commit 00637826abed84d1dbfc098eed15a0d4eb22b057 Author: Szabó Iván Date: Sun Mar 26 20:00:03 2017 +0200 Reconfigure for GIT diff --git a/SISBusiness.Module.CSharp/BusinessObjects/NAVInvoiceReport.cs b/SISBusiness.Module.CSharp/BusinessObjects/NAVInvoiceReport.cs new file mode 100644 index 0000000..e745734 --- /dev/null +++ b/SISBusiness.Module.CSharp/BusinessObjects/NAVInvoiceReport.cs @@ -0,0 +1,89 @@ +using System; +using System.Linq; +using DevExpress.Xpo; +using DevExpress.Persistent.Base; +using System.Collections.Generic; +using DevExpress.Persistent.BaseImpl; +using DevExpress.Persistent.Validation; +namespace SISBusiness.Module +{ + [DefaultClassOptions] + [CreatableItem(false)] + [NonPersistent] + [NavigationItem("Reports")] + [RuleCriteria("NAVInvoiceReport-OutputPath",DefaultContexts.Save,"CheckFilePath = true")] + public class NAVInvoiceReport : BaseObject + { // Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + public NAVInvoiceReport(Session session) + : base(session) + { + } + public override void AfterConstruction() + { + base.AfterConstruction(); + // Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + } + private DateTime _fromDate; + private DateTime _toDate; + private String _documentNumberFrom; + private String _documentNumberTo; + private String _documentNumberBegin; + private String _outputPath; + //[XafDisplayName("My display name"), ToolTip("My hint message")] + //[ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(false)] + //[Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)] + [RuleRequiredField("NAVInvoiceReport-FromDate", DefaultContexts.Save)] + public DateTime FromDate + { + get { return _fromDate; } + set { SetPropertyValue("FromDate", ref _fromDate, value); } + } + [RuleRequiredField("NAVInvoiceReport-ToDate", DefaultContexts.Save)] + public DateTime ToDate + { + get { return _toDate; } + set { SetPropertyValue("ToDate", ref _toDate, value); } + } + public String DocumentNumberFrom + { + get { return _documentNumberFrom; } + set { SetPropertyValue("DocumentNumberFrom", ref _documentNumberFrom, value); } + } + public String DocumentNumberTo + { + get { return _documentNumberTo; } + set { SetPropertyValue("DocumentNumberTo", ref _documentNumberTo, value); } + } + public String DocumentNumberBegin + { + get { return _documentNumberBegin; } + set { SetPropertyValue("DocumentNumberBegin", ref _documentNumberBegin, value); } + } + [Size(900)] + + public String OutputPath + { + get { return _outputPath; } + set { SetPropertyValue("OutputPath", ref _outputPath, value); } + } + private Boolean CheckFilePath + { + get + { + if (System.IO.Directory.Exists(OutputPath)) + { + return true; + } + else + { + return false; + }; + } + } + //[Action(Caption = "My UI Action", ConfirmationMessage = "Are you sure?", ImageName = "Attention", AutoCommit = true)] + //public void ActionMethod() { + // // Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + // this.PersistentProperty = "Paid"; + //} + } +} diff --git a/SISBusiness.Module.CSharp/BusinessObjects/ReadMe.txt b/SISBusiness.Module.CSharp/BusinessObjects/ReadMe.txt new file mode 100644 index 0000000..c96facd --- /dev/null +++ b/SISBusiness.Module.CSharp/BusinessObjects/ReadMe.txt @@ -0,0 +1,14 @@ +Folder Description + +The "BusinessObjects" project folder is intended for storing the business objects +code. In XAF, a business object can be implemented as a base persistent class +descendant and as Domain Component interfaces. + + +Relevant Documentation + +Business Model Design +http://help.devexpress.com/#Xaf/CustomDocument2600 + +Domain Components +http://help.devexpress.com/#Xaf/CustomDocument3261 diff --git a/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.Designer.cs b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.Designer.cs new file mode 100644 index 0000000..880123e --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.Designer.cs @@ -0,0 +1,50 @@ +namespace SISBusiness.Module +{ + partial class AuditTrailVCC + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + this.components = new System.ComponentModel.Container(); + this.aGetAuditTrailC = new DevExpress.ExpressApp.Actions.SimpleAction(this.components); + // + // aGetAuditTrailC + // + this.aGetAuditTrailC.Caption = "aGet Audit Trail C"; + this.aGetAuditTrailC.Category = "View"; + this.aGetAuditTrailC.ConfirmationMessage = null; + this.aGetAuditTrailC.Id = "aGetAuditTrailC"; + this.aGetAuditTrailC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject; + this.aGetAuditTrailC.ToolTip = null; + this.aGetAuditTrailC.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aGetAuditTrail_Execute); + + } + + #endregion + + internal DevExpress.ExpressApp.Actions.SimpleAction aGetAuditTrailC; + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.cs b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.cs new file mode 100644 index 0000000..1262617 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.cs @@ -0,0 +1,72 @@ +using System; +using System.Linq; +using DevExpress.ExpressApp; +using DevExpress.Data.Filtering; +using System.Collections.Generic; +using DevExpress.ExpressApp.Actions; +using DevExpress.ExpressApp.Xpo; +using DevExpress.Xpo; +using DevExpress.Persistent.BaseImpl; +using System.Runtime.InteropServices; + +namespace SISBusiness.Module +{ + // For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. + public partial class AuditTrailVCC : ViewController + { + public AuditTrailVCC() + { + InitializeComponent(); + RegisterActions(components); + TargetViewType = ViewType.ListView; + // Target required Views (via the TargetXXX properties) and create their Actions. + } + protected override void OnActivated() + { + base.OnActivated(); + Frame.GetController().aGetAuditTrailC.Active.SetItemValue("", false); + + if( View.Id.Contains("AuditDataItemPersistent")) { + Frame.GetController().aGetAuditTrailC.Active.SetItemValue("", false); + } + // Perform various tasks depending on the target View. + } + protected override void OnViewControlsCreated() + { + base.OnViewControlsCreated(); + // Access and customize the target View control. + } + protected override void OnDeactivated() + { + // Unsubscribe from previously subscribed events and release other references and resources. + base.OnDeactivated(); + } + + private void aGetAuditTrail_Execute(object sender, SimpleActionExecuteEventArgs e) + { + + //XPObjectSpace _ocur = View.ObjectSpace as XPObjectSpace; + //XPCollection _AuditDataItemPersistent_Collection = default(XPCollection); + //XPObjectSpace _onew = (XPObjectSpace)Application.CreateObjectSpace(); + //CollectionSource _CS = new CollectionSource(_onew, typeof(AuditDataItemPersistent)); + + //_AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_ocur.Session, View.SelectedObjects[0]); + + //_CS.BeginUpdateCriteria(); + //_CS.Criteria.Clear(); + //_CS.Criteria["First"] = CriteriaOperator.Parse("1=2"); + //_CS.EndUpdateCriteria(); + + //if (_AuditDataItemPersistent_Collection != null) { + // foreach ( var _AuditDataItemPersistent in _AuditDataItemPersistent_Collection) { + // _CS.Add(_onew.GetObject(_AuditDataItemPersistent)); + // } + + // e.ShowViewParameters.CreatedView = Application.CreateListView("AuditDataItemPersistent_ListView", _CS, false); + // e.ShowViewParameters.NewWindowTarget = NewWindowTarget.Separate; + // e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow; + + //} + } + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.resx b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.resx new file mode 100644 index 0000000..560ac4e --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/AuditTrailVCC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.Designer.cs b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.Designer.cs new file mode 100644 index 0000000..ddc9e9e --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.Designer.cs @@ -0,0 +1,67 @@ +namespace SISBusiness.Module +{ + partial class CustomersOrderVC + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + this.components = new System.ComponentModel.Container(); + this.aCustomer_SysnBusinessDirectory = new DevExpress.ExpressApp.Actions.SimpleAction(this.components); + this.aOpenWindowsExplorer = new DevExpress.ExpressApp.Actions.SimpleAction(this.components); + // + // aCustomer_SysnBusinessDirectory + // + this.aCustomer_SysnBusinessDirectory.Caption = "aCustomer_SyncBusinessDirectory"; + this.aCustomer_SysnBusinessDirectory.Category = "ObjectsCreation"; + this.aCustomer_SysnBusinessDirectory.ConfirmationMessage = null; + this.aCustomer_SysnBusinessDirectory.Id = "aCustomer_SyncBusinessDirectory"; + this.aCustomer_SysnBusinessDirectory.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject; + this.aCustomer_SysnBusinessDirectory.ToolTip = null; + this.aCustomer_SysnBusinessDirectory.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aCustomer_SysnBusinessDirectory_Execute); + // + // aOpenWindowsExplorer + // + this.aOpenWindowsExplorer.Caption = "aOpen Windows Explorer"; + this.aOpenWindowsExplorer.Category = "ObjectsCreation"; + this.aOpenWindowsExplorer.ConfirmationMessage = null; + this.aOpenWindowsExplorer.Id = "aOpenWindowsExplorer"; + this.aOpenWindowsExplorer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject; + this.aOpenWindowsExplorer.ToolTip = null; + this.aOpenWindowsExplorer.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aOpenWindowsExplorer_Execute); + // + // CustomersOrderVC + // + this.Actions.Add(this.aCustomer_SysnBusinessDirectory); + this.Actions.Add(this.aOpenWindowsExplorer); + + } + + #endregion + + private DevExpress.ExpressApp.Actions.SimpleAction aOpenWindowsExplorer; + private DevExpress.ExpressApp.Actions.SimpleAction aCustomer_SysnBusinessDirectory; + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.cs b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.cs new file mode 100644 index 0000000..a9fc057 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.cs @@ -0,0 +1,179 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DevExpress.Data.Filtering; +using DevExpress.ExpressApp; +using DevExpress.ExpressApp.Actions; +using DevExpress.ExpressApp.Editors; +using DevExpress.ExpressApp.Layout; +using DevExpress.ExpressApp.Model.NodeGenerators; +using DevExpress.ExpressApp.SystemModule; +using DevExpress.ExpressApp.Templates; +using DevExpress.ExpressApp.Utils; +using DevExpress.Persistent.Base; +using DevExpress.Persistent.Validation; +using DevExpress.ExpressApp.Xpo; +using System.IO; +using System.Collections; +using System.Diagnostics; +using System.Windows.Forms; +using DevExpress.Xpo; +using System; +using System.Linq; +using DevExpress.Xpo; +using DevExpress.Persistent.Base; +using System.Collections.Generic; +using DevExpress.Persistent.BaseImpl; +using DevExpress.Persistent.Validation; +using DevExpress.ExpressApp.Model; + +namespace SISBusiness.Module +{ + // For more typical usage scenarios, be sure to check out https://documentation.devexpress.com/eXpressAppFramework/clsDevExpressExpressAppViewControllertopic.aspx. + public partial class CustomersOrderVC : ViewController + { + public CustomersOrderVC() + { + InitializeComponent(); + // Target required Views (via the TargetXXX properties) and create their Actions. + } + protected override void OnActivated() + { + base.OnActivated(); + Frame.GetController().aCustomer_SysnBusinessDirectory.Active.SetItemValue("", false); + Frame.GetController().aOpenWindowsExplorer.Active.SetItemValue("", false); + if (View.Id == "DBV_OfferOutRows_ListView") + { + Frame.GetController().aCustomer_SysnBusinessDirectory.Active.SetItemValue("", true); + } + if (View.Id.Contains("OfferOutHeader_ListView")) + { + Frame.GetController().aCustomer_SysnBusinessDirectory.Active.SetItemValue("", true); + } + DevExpress.ExpressApp.ListView _ListView = View as DevExpress.ExpressApp.ListView; + if (_ListView != null) + { + IModelListView _IModelListView = (IModelListView)_ListView.Model; + switch (_IModelListView.ModelClass.Name) + { + case "SISBusiness.Module.Customers": + case "SISBusiness.Module.CustomersOrder": + Frame.GetController().aOpenWindowsExplorer.Active.SetItemValue("", true); + break; + } + } + switch (View.Id) + { + case "DBV_OfferOutRows_ListView": + case "DBV_Products_ListView": + Frame.GetController().aOpenWindowsExplorer.Active.SetItemValue("", true); + break; + } + } + protected override void OnViewControlsCreated() + { + base.OnViewControlsCreated(); + // Access and customize the target View control. + } + protected override void OnDeactivated() + { + // Unsubscribe from previously subscribed events and release other references and resources. + base.OnDeactivated(); + } + + private void aOpenWindowsExplorer_Execute(object sender, SimpleActionExecuteEventArgs e) + { + XPObjectSpace _ocur = (XPObjectSpace)View.ObjectSpace; + XPObjectSpace _onew = (XPObjectSpace)Application.CreateObjectSpace(); + XPBaseObject _Object = (XPBaseObject)View.SelectedObjects[0]; + + DevExpress.ExpressApp.ListView _ListView = (DevExpress.ExpressApp.ListView)View; + if (_ListView != null) + { + IModelListView _IModelListView = (IModelListView)_ListView.Model; + switch (_IModelListView.ModelClass.Name) + { + case "SISBusiness.Module.Products": + _Object = ((Products)_Object).ProductGroups; + break; + case "SISBusiness.Module.Contacts": + _Object = ((Contacts)_Object).Customers; + break; + case "SISBusiness.Module.OfferOutRows": + _Object = ((OfferOutRows)_Object).OfferOutHeader; + break; + + } + } + try + { + if (_Object != null) + { + if (string.IsNullOrEmpty(_Object.GetMemberValue("DocumentPath").ToString()) == false) + { + if (Directory.Exists(_Object.GetMemberValue("DocumentPath").ToString())) + { + Process.Start(_Object.GetMemberValue("DocumentPath").ToString()); + } + } + } + } + catch (Exception) + { + } + + } + + private void aCustomer_SysnBusinessDirectory_Execute(object sender, SimpleActionExecuteEventArgs e) + { + XPObjectSpace _ocur= (XPObjectSpace)View.ObjectSpace; + Customers _Customers=null; + OfferOutHeader _OfferOutHeader = null; + switch (View.Id) + { + case "DBV_OfferOutRows_ListView": + _OfferOutHeader = ((OfferOutRows)View.SelectedObjects[0]).OfferOutHeader; + _Customers=_OfferOutHeader.Customers; + break; + case "OfferOutHeader_ListView": + case "OfferOutHeader_ListView_Editable": + _OfferOutHeader = ((OfferOutHeader)View.SelectedObjects[0]); + _Customers = _OfferOutHeader.Customers; + break; + default: + return; + break; + } + if (_Customers.MasterBusinessDirectory == null) + { + BusinessDirectory _CustomersBaseBusinessDirectory = _ocur.FindObject(CriteriaOperator.Parse("ShortName='Ügyfelek' AND IsNull(BusinessDirectory_Parent)=True")); + + if (_CustomersBaseBusinessDirectory == null) + { + _CustomersBaseBusinessDirectory = new BusinessDirectory(_ocur.Session); + var _with1 = _CustomersBaseBusinessDirectory; + _with1.ShortName = "Ügyfelek"; + _with1.BusinessDirectory_Parent = null; + } + + BusinessDirectory _CustomersBusinessDirectory = new BusinessDirectory(_ocur.Session); + _CustomersBusinessDirectory.ShortName = string.Format("{0} {1} {2}", _Customers.FullName, _Customers.Address1.City, _Customers.CustomerNumber); + _CustomersBusinessDirectory.BusinessDirectory_Parent = _CustomersBaseBusinessDirectory; + _CustomersBusinessDirectory.Save(); + _Customers.MasterBusinessDirectory = _CustomersBusinessDirectory; + _ocur.CommitChanges(); + } + + if (_OfferOutHeader.MasterBusinessDirectory == null) + { + BusinessDirectory _OfferOutBusinessDirectory = new BusinessDirectory(_ocur.Session); + _OfferOutBusinessDirectory.ShortName = string.Format("{0}", _OfferOutHeader.DocumentNumber); + _OfferOutBusinessDirectory.BusinessDirectory_Parent = _OfferOutHeader.Customers.MasterBusinessDirectory; + _OfferOutBusinessDirectory.Save(); + _OfferOutHeader.MasterBusinessDirectory = _OfferOutBusinessDirectory; + _ocur.CommitChanges(); + } + } + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.resx b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.resx new file mode 100644 index 0000000..9ef78b7 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/CustomersOrderVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 254, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.Designer.cs b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.Designer.cs new file mode 100644 index 0000000..51e5b89 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.Designer.cs @@ -0,0 +1,54 @@ +namespace SISBusiness.Module +{ + partial class NavInvoiceReportVC + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + this.components = new System.ComponentModel.Container(); + this.aCreateNAVInvoiceReportXML = new DevExpress.ExpressApp.Actions.SimpleAction(this.components); + // + // aCreateNAVInvoiceReportXML + // + this.aCreateNAVInvoiceReportXML.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept; + this.aCreateNAVInvoiceReportXML.Caption = "aCreate NAVInvoice Report XML"; + this.aCreateNAVInvoiceReportXML.ConfirmationMessage = "aCreateNAVInvoiceReportXML"; + this.aCreateNAVInvoiceReportXML.Id = "aCreateNAVInvoiceReportXML"; + this.aCreateNAVInvoiceReportXML.TargetObjectType = typeof(SISBusiness.Module.NAVInvoiceReport); + this.aCreateNAVInvoiceReportXML.ToolTip = null; + this.aCreateNAVInvoiceReportXML.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aCreateNAVInvoiceReportXML_Execute); + // + // NavInvoiceReportVC + // + this.Actions.Add(this.aCreateNAVInvoiceReportXML); + + } + + #endregion + + private DevExpress.ExpressApp.Actions.SimpleAction aCreateNAVInvoiceReportXML; + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.cs b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.cs new file mode 100644 index 0000000..a46e7e2 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.cs @@ -0,0 +1,204 @@ +using System; +using System.Linq; +using DevExpress.ExpressApp; +using System.Collections.Generic; +using DevExpress.ExpressApp.Actions; +using DevExpress.Persistent.Validation; +using System.Xml; +using DevExpress.Xpo; +using DevExpress.ExpressApp.Xpo; +using DevExpress.Data.Filtering; +using SISBusiness.Module; +using System.Globalization; +using System.Windows.Forms; +namespace SISBusiness.Module +{ + // For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. + public partial class NavInvoiceReportVC : ViewController + { + public NavInvoiceReportVC() + { + InitializeComponent(); + RegisterActions(components); + // Target required Views (via the TargetXXX properties) and create their Actions. + } + protected override void OnActivated() + { + base.OnActivated(); + // Perform various tasks depending on the target View. + } + protected override void OnViewControlsCreated() + { + base.OnViewControlsCreated(); + // Access and customize the target View control. + } + protected override void OnDeactivated() + { + // Unsubscribe from previously subscribed events and release other references and resources. + base.OnDeactivated(); + } + + private void aCreateNAVInvoiceReportXML_Execute(object sender, SimpleActionExecuteEventArgs e) + { + + XPObjectSpace _ocur = (XPObjectSpace)View.ObjectSpace; + XPObjectSpace _onew = (XPObjectSpace)Application.CreateObjectSpace(); + NAVInvoiceReport _NAVInvoiceReport = (NAVInvoiceReport)View.SelectedObjects[0]; + + //Kritria a trzsbl + System.String _Criteria=" IsEditable=false and IsProforma=false and DocumentNumber!='' and IsNull(DocumentNumber)=false"; + + if (string.IsNullOrEmpty(_NAVInvoiceReport.DocumentNumberFrom)==false & string.IsNullOrEmpty(_NAVInvoiceReport.DocumentNumberTo)==false) + { + _Criteria += string.Format(" and (DocumentNumber>='{0}' and DocumentNumber <='{1}')", _NAVInvoiceReport.DocumentNumberFrom, _NAVInvoiceReport.DocumentNumberTo); + } + _Criteria += " and (GetDate(DateCreated)>=? and GetDate(DateCreated)<=?)"; + XPCollection _InvoiceHeader_Collection = new XPCollection(_onew.Session, CriteriaOperator.Parse(_Criteria, _NAVInvoiceReport.FromDate, _NAVInvoiceReport.ToDate)); + + _InvoiceHeader_Collection.Sorting.Add(new SortProperty("DateCreated", DevExpress.Xpo.DB.SortingDirection.Ascending)); + + System.String _Filename = string.Format(@"NR{0:yyyyMMddHHmm}.xml", System.DateTime.Now); + if (Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)) + { + + XmlWriterSettings settings = new XmlWriterSettings() { Indent = true, NewLineOnAttributes = true }; + using (XmlWriter writer = XmlWriter.Create(string.Format(@"{0}\{1}",_NAVInvoiceReport.OutputPath,_Filename), settings)) + { + writer.WriteStartDocument(); + writer.WriteStartElement("szamlak", @"http://schemas.nav.gov.hu/2013/szamla"); + writer.WriteElementString("export_datuma", DateTime.Now.ToString(@"yyyy-MM-dd")); + writer.WriteElementString("export_szla_db", _InvoiceHeader_Collection.Count.ToString()); + writer.WriteElementString("kezdo_ido", _NAVInvoiceReport.FromDate.ToString(@"yyyy-MM-dd")); + writer.WriteElementString("zaro_ido", _NAVInvoiceReport.ToDate.ToString(@"yyyy-MM-dd")); + writer.WriteElementString("kezdo_szamlaszam", _NAVInvoiceReport.DocumentNumberFrom); + writer.WriteElementString("zaro_szamlaszam", _NAVInvoiceReport.DocumentNumberTo); + + foreach (InvoiceHeader _InvoiceHeader in _InvoiceHeader_Collection) + { + writer.WriteStartElement("szamla"); + + writer.WriteStartElement("fejlec"); + writer.WriteElementString("szlasorszam", _InvoiceHeader.DocumentNumber); + writer.WriteElementString("szlatipus", "1"); + writer.WriteElementString("szladatum", _InvoiceHeader.DateCreated.ToString(@"yyyy-MM-dd")); + writer.WriteElementString("teljdatum", _InvoiceHeader.DateExecution.ToString(@"yyyy-MM-dd")); + + writer.WriteEndElement();//fejlec + + writer.WriteStartElement("szamlakibocsato"); + writer.WriteElementString("adoszam", _InvoiceHeader.Saved_CustomersFrom_VATNumber); + writer.WriteElementString("kisadozo", "false"); + writer.WriteElementString("nev", _InvoiceHeader.Saved_CustomersFrom_Name); + + writer.WriteStartElement("cim"); + writer.WriteElementString("iranyitoszam", _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal); + writer.WriteElementString("telepules", _InvoiceHeader.Saved_CustomersFrom_Address_City); + + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NameOfStreet") != null) + { writer.WriteElementString("kozterulet_neve", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NameOfStreet").ToString()); } + else + { writer.WriteElementString("kozterulet_neve", _InvoiceHeader.Saved_CustomersFrom_Address_Street); } + + + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("District") != null) { writer.WriteElementString("kerulet", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("District").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("TypeOfStreet") != null) { writer.WriteElementString("kozterulet_jellege", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("TypeOfStreet").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NumberOfStreet") != null) { writer.WriteElementString("hazszam", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NumberOfStreet").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("Building") != null) { writer.WriteElementString("epulet", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("Building").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("StairCase") != null) { writer.WriteElementString("lepcsohaz", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("StairCase").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("Floor") != null) { writer.WriteElementString("szint", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("Floor").ToString()); } + if (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NumberOfDoor") != null) { writer.WriteElementString("ajto", _InvoiceHeader.CustomersFrom.Address1.GetMemberValue("NumberOfDoor").ToString()); } + + //writer.WriteElementString("kerulet", (_InvoiceHeader.CustomersFrom.Address1.GetMemberValue("District") ?? "").ToString()); + + writer.WriteElementString("egyeni_vallalkozo", ""); + writer.WriteElementString("ev_nyilv_tart_szam", ""); + writer.WriteElementString("ev_neve", ""); + writer.WriteEndElement();//cim + + writer.WriteEndElement();//szamlakibocsato + + writer.WriteStartElement("vevo"); + writer.WriteElementString("nev", _InvoiceHeader.Saved_Customers_Name); + + writer.WriteStartElement("cim"); + writer.WriteElementString("iranyitoszam", _InvoiceHeader.Saved_Customers_Address_ZipPostal); + writer.WriteElementString("telepules", _InvoiceHeader.Saved_Customers_Address_City); + if (_InvoiceHeader.Customers.Address1.GetMemberValue("NameOfStreet") != null) + { writer.WriteElementString("kozterulet_neve", _InvoiceHeader.Customers.Address1.GetMemberValue("NameOfStreet").ToString()); } + else + { writer.WriteElementString("kozterulet_neve", _InvoiceHeader.Saved_Customers_Address_Street); } + + + if (_InvoiceHeader.Customers.Address1.GetMemberValue("District") != null) { writer.WriteElementString("kerulet", _InvoiceHeader.Customers.Address1.GetMemberValue("District").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("TypeOfStreet") != null) { writer.WriteElementString("kozterulet_jellege", _InvoiceHeader.Customers.Address1.GetMemberValue("TypeOfStreet").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("NumberOfStreet") != null) { writer.WriteElementString("hazszam", _InvoiceHeader.Customers.Address1.GetMemberValue("NumberOfStreet").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("Building") != null) { writer.WriteElementString("epulet", _InvoiceHeader.Customers.Address1.GetMemberValue("Building").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("StairCase") != null) { writer.WriteElementString("lepcsohaz", _InvoiceHeader.Customers.Address1.GetMemberValue("StairCase").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("Floor") != null) { writer.WriteElementString("szint", _InvoiceHeader.Customers.Address1.GetMemberValue("Floor").ToString()); } + if (_InvoiceHeader.Customers.Address1.GetMemberValue("NumberOfDoor") != null) { writer.WriteElementString("ajto", _InvoiceHeader.Customers.Address1.GetMemberValue("NumberOfDoor").ToString()); } + + writer.WriteEndElement();//cim + + writer.WriteEndElement();//vevo + foreach (InvoiceRows _InvoiceRows in _InvoiceHeader.InvoiceRows) + { + writer.WriteStartElement("termek_szolgaltatas_tetelek"); + writer.WriteElementString("termeknev", _InvoiceRows.ShortName); + writer.WriteElementString("menny", _InvoiceRows.QTT.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("mertekegys", _InvoiceRows.Units.ShortName); + writer.WriteElementString("nettoar", _InvoiceRows.SumPriceHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("nettoegysar", _InvoiceRows.ListPriceHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("adokulcs", _InvoiceRows.VAT.KeyValue.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("adoertek", (_InvoiceRows.SumPriceBruttoHUF - _InvoiceRows.SumPriceHUF).ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("bruttoar", _InvoiceRows.SumPriceBruttoHUF.ToString("F", CultureInfo.InvariantCulture)); + + writer.WriteEndElement();//termek_szolgaltatas_tetelek + } + + writer.WriteStartElement("zaradekok"); + writer.WriteElementString("adoment_hiv", "false"); + writer.WriteEndElement(); //zaradekok + + writer.WriteStartElement("nem_kotelezo"); + writer.WriteElementString("fiz_hatarido", _InvoiceHeader.DatePayment.ToString(@"yyyy-MM-dd")); + writer.WriteElementString("fiz_mod", _InvoiceHeader.PaymentOption.ShortName); + writer.WriteElementString("penznem", _InvoiceHeader.CurrencyName.ShortName); + writer.WriteEndElement(); //nem_kotelezo + + writer.WriteStartElement("osszesites"); + foreach (InvoiceVATRows _InvoiceVATRows in _InvoiceHeader.InvoiceVATRows) + { + writer.WriteStartElement("afarovat"); + writer.WriteElementString("nettoar", _InvoiceVATRows.AmountNettoHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("adokulcs", _InvoiceVATRows.VAT.KeyValue.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("adoertek", _InvoiceVATRows.AmountVATHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("bruttoar", _InvoiceVATRows.AmountBruttoHUF.ToString("F", CultureInfo.InvariantCulture)); + + writer.WriteEndElement(); //afarovat + } + writer.WriteStartElement("vegosszeg"); + writer.WriteElementString("nettoarossz", _InvoiceHeader.TotalNettoHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("afaertekossz", _InvoiceHeader.TotalVATHUF.ToString("F", CultureInfo.InvariantCulture)); + writer.WriteElementString("bruttoarossz", _InvoiceHeader.TotalBruttoHUF.ToString("F", CultureInfo.InvariantCulture)); + + writer.WriteEndElement(); //vegosszeg + writer.WriteEndElement(); //osszesites + + writer.WriteEndElement(); //szamla + } + + writer.WriteEndElement(); + writer.WriteEndDocument(); + MessageBox.Show(string.Format("A letlts befejezdtt !\nA fjl a kvetkez helyen :\n{0}", string.Format(@"{0}\{1}", _NAVInvoiceReport.OutputPath, _Filename)), "Adatletlts llapota", MessageBoxButtons.OK); + } + } + } + + private void simpleAction1_Execute(object sender, SimpleActionExecuteEventArgs e) + { + DevExpress.ExpressApp.Reports.Win.ReportsController _ReportsController = Frame.GetController(); + + _ReportsController.ShowReportDesignerAction.DoExecute(); + } + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.resx b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.resx new file mode 100644 index 0000000..fc4d2d7 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/NavInvoiceReportVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 146, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.Designer.cs b/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.Designer.cs new file mode 100644 index 0000000..7619e41 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.Designer.cs @@ -0,0 +1,36 @@ +namespace SISBusiness.Module +{ + partial class NavigationItemVCC + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + components = new System.ComponentModel.Container(); + } + + #endregion + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.cs b/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.cs new file mode 100644 index 0000000..4162902 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/NavigationItemVCC.cs @@ -0,0 +1,48 @@ +using System; +using System.Linq; +using System.Collections.Generic; +using DevExpress.ExpressApp.Actions; +using DevExpress.ExpressApp.SystemModule; +using DevExpress.ExpressApp.Xpo; + +namespace SISBusiness.Module +{ + // For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic. + public partial class NavigationItemVCC : SISBusiness.Module.Win.SISShowNavigationItemController + { + public NavigationItemVCC() + { + InitializeComponent(); + RegisterActions(components); + // Target required Windows (via the TargetXXX properties) and create their Actions. + } + protected override void OnActivated() + { + base.OnActivated(); + // Perform various tasks depending on the target Window. + } + protected override void OnDeactivated() + { + // Unsubscribe from previously subscribed events and release other references and resources. + base.OnDeactivated(); + } + + protected override void ShowNavigationItem(SingleChoiceActionExecuteEventArgs args) + { + if (args.SelectedChoiceActionItem != null && args.SelectedChoiceActionItem.Enabled) + { + if (args.SelectedChoiceActionItem.Id == "NAVInvoiceReport_ListView") + { + XPObjectSpace _onew = (XPObjectSpace)Application.CreateObjectSpace(); + NAVInvoiceReport _NAVInvoiceReport = _onew.CreateObject(); + + args.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "NAVInvoiceReport_DetailView", true, _NAVInvoiceReport); + } + else + { + base.ShowNavigationItem(args); + } + } + } + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/ReadMe.txt b/SISBusiness.Module.CSharp/Controllers/ReadMe.txt new file mode 100644 index 0000000..0c7ded8 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/ReadMe.txt @@ -0,0 +1,19 @@ +Folder Description + +The "Controllers" project folder is intended for storing Controller classes +that can change the default XAF application flow and add new features. + + +Relevant Documentation + +Extend Functionality +http://help.devexpress.com/#Xaf/CustomDocument2623 + +Controller Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppControllertopic + +ViewController Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic + +WindowController Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic diff --git a/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.Designer.cs b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.Designer.cs new file mode 100644 index 0000000..7585787 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.Designer.cs @@ -0,0 +1,53 @@ +namespace SISBusiness.Module.Controllers +{ + partial class ZoomListViewVC + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + this.components = new System.ComponentModel.Container(); + this.aZoomListView = new DevExpress.ExpressApp.Actions.SimpleAction(this.components); + // + // aZoomListView + // + this.aZoomListView.Caption = "aZoom List View"; + this.aZoomListView.Category = "ObjectsCreation"; + this.aZoomListView.ConfirmationMessage = null; + this.aZoomListView.Id = "aZoomListView"; + this.aZoomListView.ToolTip = null; + this.aZoomListView.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.aZoomListView_Execute); + // + // ZoomListViewVC + // + this.Actions.Add(this.aZoomListView); + + } + + #endregion + + private DevExpress.ExpressApp.Actions.SimpleAction aZoomListView; + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.cs b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.cs new file mode 100644 index 0000000..a006b94 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.cs @@ -0,0 +1,156 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DevExpress.Data.Filtering; +using DevExpress.ExpressApp; +using DevExpress.ExpressApp.Actions; +using DevExpress.ExpressApp.Editors; +using DevExpress.ExpressApp.Layout; +using DevExpress.ExpressApp.Model.NodeGenerators; +using DevExpress.ExpressApp.SystemModule; +using DevExpress.ExpressApp.Templates; +using DevExpress.ExpressApp.Utils; +using DevExpress.Persistent.Base; +using DevExpress.Persistent.Validation; +using DevExpress.ExpressApp.Xpo; + +namespace SISBusiness.Module.Controllers +{ + // For more typical usage scenarios, be sure to check out https://documentation.devexpress.com/eXpressAppFramework/clsDevExpressExpressAppViewControllertopic.aspx. + public partial class ZoomListViewVC : ViewController + { + public ZoomListViewVC() + { + InitializeComponent(); + // Target required Views (via the TargetXXX properties) and create their Actions. + } + protected override void OnActivated() + { + base.OnActivated(); + Frame.GetController().aZoomListView.Active.SetItemValue("", false); + if (View.Id.Contains("BusinessDirectory")) + { + Frame.GetController().aZoomListView.Active.SetItemValue("", true); + + } + if (View.Id == "DBV_OfferOutRows_ListView") + { + Frame.GetController().aZoomListView.Active.SetItemValue("", true); + } + if (View.Id == "DBV_OrderInRows_ListView") + { + Frame.GetController().aZoomListView.Active.SetItemValue("", true); + } + if (View.Id == "BusinessDirectory_ListView_Zoom") + { + Frame.GetController().aZoomListView.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_SetRoleEnabled.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_SetRoleDisabled.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_NewDashboard.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_OpenDashboardWithDesigner.Active.SetItemValue("", false); + //Frame.GetController().aBusinessDirectory_OpenDashboardWithViewer.Active.SetItemValue("", false); + } + if (View.Id == "Customers_Customers_BusinessDirectory_ListView") + { + Frame.GetController().aBusinessDirectory_SetRoleEnabled.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_SetRoleDisabled.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_NewDashboard.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_OpenDashboardWithDesigner.Active.SetItemValue("", false); + Frame.GetController().aBusinessDirectory_OpenDashboardWithViewer.Active.SetItemValue("", false); + } + } + protected override void OnViewControlsCreated() + { + base.OnViewControlsCreated(); + + } + protected override void OnDeactivated() + { + if (View.Id.Contains("BusinessDirectory")) + { + Frame.GetController().aZoomListView.Active.SetItemValue("", false); + + } + if (View.Id == "DBV_OfferOutRows_ListView") + { + Frame.GetController().aZoomListView.Active.SetItemValue("", false); + } + if (View.Id == "DBV_OrderInRows_ListView") + { + Frame.GetController().aZoomListView.Active.SetItemValue("", false); + } + base.OnDeactivated(); + } + + private void aZoomListView_Execute(object sender, SimpleActionExecuteEventArgs e) + { + XPObjectSpace _ocur = (XPObjectSpace)View.ObjectSpace; + XPObjectSpace _onew = (XPObjectSpace)_ocur.CreateNestedObjectSpace(); + CollectionSource _CollectionSource=new CollectionSource(_onew,typeof(BusinessDirectory)); + string _ListViewID = "BusinessDirectory_ListView_Zoom"; + _CollectionSource.BeginUpdateCriteria(); + _CollectionSource.Criteria.Add("Clear",CriteriaOperator.Parse("1=2")); + _CollectionSource.EndUpdateCriteria(); + + CollectionSourceBase _CollectionSourceOriginal=null; + if (View.Id.Contains("BusinessDirectory")) + { + _CollectionSourceOriginal = ((ListView)View).CollectionSource; + if (_CollectionSourceOriginal.List!=null) + { + foreach (var item in _CollectionSourceOriginal.List) + { + _CollectionSource.Add(_onew.GetObject(item)); + } + } + } + if (View.Id == "DBV_OfferOutRows_ListView") { + if (View.SelectedObjects.Count > 0) + { + _ListViewID = "OfferOutRows_ListView_Zoom"; + _CollectionSource = new CollectionSource(_onew, typeof(OfferOutRows)); + _CollectionSource.BeginUpdateCriteria(); + _CollectionSource.Criteria.Add("Clear", CriteriaOperator.Parse("1=2")); + _CollectionSource.EndUpdateCriteria(); + _CollectionSourceOriginal = ((ListView)View).CollectionSource; + if (_CollectionSourceOriginal.List != null) + { + for (int i = 0; i < _CollectionSourceOriginal.List.Count; i++) + { + _CollectionSource.Add(_onew.GetObject(_CollectionSourceOriginal.List[i])); + } + } + } + } + if (View.Id == "DBV_OrderInRows_ListView") + { + if (View.SelectedObjects.Count > 0) + { + _ListViewID = "OrderInRows_ListView_Zoom"; + _CollectionSource = new CollectionSource(_onew, typeof(OrderInRows)); + _CollectionSource.BeginUpdateCriteria(); + _CollectionSource.Criteria.Add("Clear", CriteriaOperator.Parse("1=2")); + _CollectionSource.EndUpdateCriteria(); + _CollectionSourceOriginal = ((ListView)View).CollectionSource; + if (_CollectionSourceOriginal.List != null) + { + for (int i = 0; i < _CollectionSourceOriginal.List.Count; i++) + { + _CollectionSource.Add(_onew.GetObject(_CollectionSourceOriginal.List[i])); + } + } + } + } + + ShowViewParameters _ShowViewParameters=new ShowViewParameters(); + ShowViewSource _ShowViewSource = new ShowViewSource(Frame, null); + + _ShowViewParameters.CreatedView = Application.CreateListView(_ListViewID, _CollectionSource, false); + _ShowViewParameters.NewWindowTarget = NewWindowTarget.Separate; + _ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow; + + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource); + } + } +} diff --git a/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.resx b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.resx new file mode 100644 index 0000000..2e1e7c2 --- /dev/null +++ b/SISBusiness.Module.CSharp/Controllers/ZoomListViewVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/DatabaseUpdate/ReadMe.txt b/SISBusiness.Module.CSharp/DatabaseUpdate/ReadMe.txt new file mode 100644 index 0000000..3db464c --- /dev/null +++ b/SISBusiness.Module.CSharp/DatabaseUpdate/ReadMe.txt @@ -0,0 +1,20 @@ +Folder Description + +The "DatabaseUpdate" project folder is intended for storing code that supplies +initial data (default User objects, embedded Reports, etc) and handles a database +update when the application version changes. + + +Relevant Documentation + +Supply Initial Data +http://help.devexpress.com/#Xaf/CustomDocument2788 + +Distribute the Created Reports with the Application +http://help.devexpress.com/#Xaf/CustomDocument2786 + +How to: Update the Database Structure after the Persistent Class or Property Was Renamed or Removed +http://help.devexpress.com/#Xaf/CustomDocument3254 + +ModuleUpdater Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppUpdatingModuleUpdatertopic diff --git a/SISBusiness.Module.CSharp/DatabaseUpdate/Updater.cs b/SISBusiness.Module.CSharp/DatabaseUpdate/Updater.cs new file mode 100644 index 0000000..7cb76ba --- /dev/null +++ b/SISBusiness.Module.CSharp/DatabaseUpdate/Updater.cs @@ -0,0 +1,48 @@ +using System; +using System.Linq; +using DevExpress.Xpo; +using DevExpress.ExpressApp; +using DevExpress.Data.Filtering; +using DevExpress.ExpressApp.Xpo; +using DevExpress.Persistent.Base; +using DevExpress.ExpressApp.Updating; +using DevExpress.Persistent.BaseImpl; +using DevExpress.ExpressApp.Security; +//using DevExpress.ExpressApp.Reports; +//using DevExpress.ExpressApp.PivotChart; +//using DevExpress.ExpressApp.Security.Strategy; +//using SISBusiness.Module.CSharp.Module.BusinessObjects; + +namespace SISBusiness.Module.CSharp.DatabaseUpdate +{ + // For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppUpdatingModuleUpdatertopic + public class Updater : ModuleUpdater + { + public Updater(IObjectSpace objectSpace, Version currentDBVersion) : + base(objectSpace, currentDBVersion) + { + } + public override void UpdateDatabaseAfterUpdateSchema() + { + base.UpdateDatabaseAfterUpdateSchema(); + //string name = "MyName"; + //DomainObject1 theObject = ObjectSpace.FindObject(CriteriaOperator.Parse("Name=?", name)); + //if(theObject == null) { + // theObject = ObjectSpace.CreateObject(); + // theObject.Name = name; + //} + //NAVInvoiceReport _NAVInvoiceReport = ObjectSpace.FindObject(CriteriaOperator.Parse("1=1")); + //if (_NAVInvoiceReport == null) + // _NAVInvoiceReportObjectSpace.CreateObject(); + //{ + //} + } + public override void UpdateDatabaseBeforeUpdateSchema() + { + base.UpdateDatabaseBeforeUpdateSchema(); + //if(CurrentDBVersion < new Version("1.1.0.0") && CurrentDBVersion > new Version("0.0.0.0")) { + // RenameColumn("DomainObject1Table", "OldColumnName", "NewColumnName"); + //} + } + } +} diff --git a/SISBusiness.Module.CSharp/Editors/FolderBrowseEditor.cs b/SISBusiness.Module.CSharp/Editors/FolderBrowseEditor.cs new file mode 100644 index 0000000..5a87611 --- /dev/null +++ b/SISBusiness.Module.CSharp/Editors/FolderBrowseEditor.cs @@ -0,0 +1,47 @@ +using System; +using System.Collections.Generic; +using DevExpress.ExpressApp.Win.Editors; +using DevExpress.ExpressApp.Model; +using DevExpress.ExpressApp.Editors; +using System.Windows.Forms; +using DevExpress.XtraEditors; +using DevExpress.XtraEditors.Repository; + +namespace MM.Module.Win.Editors +{ + [PropertyEditor(typeof(string), "FolderBrowseEditor", false)] + public class FolderBrowseEditor : DXPropertyEditor + { + public FolderBrowseEditor(Type objectType, IModelMemberViewItem model) + : base(objectType, model) { } + private void buttonEdit_ButtonClick(object sender, DevExpress.XtraEditors.Controls.ButtonPressedEventArgs e) + { + using (FolderBrowserDialog dialog = new FolderBrowserDialog()) + { + dialog.Description = "Select folder..."; + if (dialog.ShowDialog() != DialogResult.Cancel) + { + ((ButtonEdit)sender).Text = dialog.SelectedPath; + } + } + } + protected override object CreateControlCore() + { + return new ButtonEdit(); + } + protected override RepositoryItem CreateRepositoryItem() + { + return new RepositoryItemButtonEdit(); + } + protected override void SetupRepositoryItem(RepositoryItem item) + { + base.SetupRepositoryItem(item); + ((RepositoryItemButtonEdit)item).ButtonClick += buttonEdit_ButtonClick; + } + protected override void SetRepositoryItemReadOnly(RepositoryItem item, bool readOnly) + { + base.SetRepositoryItemReadOnly(item, readOnly); + ((RepositoryItemButtonEdit)item).Buttons[0].Enabled = !readOnly; + } + } +} diff --git a/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.en.xafml b/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.en.xafml new file mode 100644 index 0000000..e316070 --- /dev/null +++ b/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.en.xafml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.hu.xafml b/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..6528f2b --- /dev/null +++ b/SISBusiness.Module.CSharp/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Model.DesignedDiffs.xafml b/SISBusiness.Module.CSharp/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..da6d4d2 --- /dev/null +++ b/SISBusiness.Module.CSharp/Model.DesignedDiffs.xafml @@ -0,0 +1,301 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Module.Designer.cs b/SISBusiness.Module.CSharp/Module.Designer.cs new file mode 100644 index 0000000..1a8fd08 --- /dev/null +++ b/SISBusiness.Module.CSharp/Module.Designer.cs @@ -0,0 +1,45 @@ +namespace SISBusiness.Module.CSharp +{ + partial class CSharpModule + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Component Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + // + // CSharpModule + // + this.RequiredModuleTypes.Add(typeof(DevExpress.ExpressApp.CloneObject.CloneObjectModule)); + this.RequiredModuleTypes.Add(typeof(DevExpress.ExpressApp.Validation.ValidationModule)); + this.RequiredModuleTypes.Add(typeof(DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule)); + this.RequiredModuleTypes.Add(typeof(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule)); + this.RequiredModuleTypes.Add(typeof(SISBusiness.Module.SISBusinessModule)); + this.RequiredModuleTypes.Add(typeof(SISBusiness.Module.Win.SISBusinessWindowsFormsModule)); + + } + + #endregion + } +} diff --git a/SISBusiness.Module.CSharp/Module.cs b/SISBusiness.Module.CSharp/Module.cs new file mode 100644 index 0000000..e7b4d4b --- /dev/null +++ b/SISBusiness.Module.CSharp/Module.cs @@ -0,0 +1,37 @@ +using System; +using System.Text; +using System.Linq; +using DevExpress.ExpressApp; +using System.ComponentModel; +using DevExpress.ExpressApp.DC; +using System.Collections.Generic; +using DevExpress.Persistent.Base; +using DevExpress.ExpressApp.Model; +using DevExpress.ExpressApp.Actions; +using DevExpress.ExpressApp.Editors; +using DevExpress.ExpressApp.Updating; +using DevExpress.ExpressApp.Model.Core; +using DevExpress.ExpressApp.Model.DomainLogics; +using DevExpress.ExpressApp.Model.NodeGenerators; + +namespace SISBusiness.Module.CSharp +{ + // For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppModuleBasetopic. + public sealed partial class CSharpModule : ModuleBase + { + public CSharpModule() + { + InitializeComponent(); + } + public override IEnumerable GetModuleUpdaters(IObjectSpace objectSpace, Version versionFromDB) + { + ModuleUpdater updater = new DatabaseUpdate.Updater(objectSpace, versionFromDB); + return new ModuleUpdater[] { updater }; + } + public override void Setup(XafApplication application) + { + base.Setup(application); + // Manage various aspects of the application UI and behavior at the module level. + } + } +} diff --git a/SISBusiness.Module.CSharp/Module.resx b/SISBusiness.Module.CSharp/Module.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.CSharp/Module.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/Properties/AssemblyInfo.cs b/SISBusiness.Module.CSharp/Properties/AssemblyInfo.cs new file mode 100644 index 0000000..65180e0 --- /dev/null +++ b/SISBusiness.Module.CSharp/Properties/AssemblyInfo.cs @@ -0,0 +1,32 @@ +using System.Reflection; +using System.Runtime.CompilerServices; +using 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. +[assembly: AssemblyTitle("SISBusiness.Module.CSharp")] +[assembly: AssemblyDescription("")] +[assembly: AssemblyConfiguration("")] +[assembly: AssemblyCompany("-")] +[assembly: AssemblyProduct("SISBusiness.Module.CSharp")] +[assembly: AssemblyCopyright("Copyright © - 2007")] +[assembly: AssemblyTrademark("")] +[assembly: AssemblyCulture("")] + +// Setting ComVisible to false makes the types in this assembly not visible +// to COM components. If you need to access a type in this assembly from +// COM, set the ComVisible attribute to true on that type. +[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 Revision and Build Numbers +// by using the '*' as shown below: +[assembly: AssemblyVersion("15.2.5.1001")] + diff --git a/SISBusiness.Module.CSharp/Properties/licenses.licx b/SISBusiness.Module.CSharp/Properties/licenses.licx new file mode 100644 index 0000000..9f82e6f --- /dev/null +++ b/SISBusiness.Module.CSharp/Properties/licenses.licx @@ -0,0 +1,4 @@ +DevExpress.ExpressApp.ModuleBase, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/ReadMe.txt b/SISBusiness.Module.CSharp/ReadMe.txt new file mode 100644 index 0000000..f9681a3 --- /dev/null +++ b/SISBusiness.Module.CSharp/ReadMe.txt @@ -0,0 +1,27 @@ +Project Description + +The SISBusiness.Module.CSharp project implements a Module. The root project folder contains +the Module.cs(vb) file with the class that inherits ModuleBase. This class can be +designed with the Module Designer that allows you to view and customize Module +components: referenced modules, Controllers and business classes. Additionally, +the root folder contains Application Model difference files (XAFML files) that +keep application settings specific for the current Module. Differences files +can be designed with the Model Editor. + + +Relevant Documentation + +Application Solution Components +http://help.devexpress.com/#Xaf/CustomDocument2569 + +ModuleBase Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppModuleBasetopic + +Module Designer +http://help.devexpress.com/#Xaf/CustomDocument2828 + +Application Model +http://help.devexpress.com/#Xaf/CustomDocument2579 + +Model Editor +http://help.devexpress.com/#Xaf/CustomDocument2582 diff --git a/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj b/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj new file mode 100644 index 0000000..0ebd366 --- /dev/null +++ b/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj @@ -0,0 +1,296 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {B9EF03FF-D05B-4FD4-A8E9-F90D819CB1DC} + Library + Properties + SISBusiness.Module + SISBusiness.Module.CSharp + + + 3.5 + + + v4.0 + + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + SAK + SAK + SAK + SAK + + + true + full + false + bin\Debug\ + DEBUG;TRACE + prompt + 4 + + + none + true + bin\Release\ + TRACE + prompt + 4 + + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + ..\..\..\..\..\Program Files (x86)\DevExpress 15.2\Components\Bin\Framework\DevExpress.ExpressApp.Reports.Win.v15.2.dll + + + False + + + False + + + + False + + + False + + + False + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + + + ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll + True + + + System + False + + + 3.5 + False + + + System.Data + False + + + + System.Windows.Forms + False + + + System.XML + False + + + + + + Component + + + AuditTrailVCC.cs + + + Component + + + CustomersOrderVC.cs + + + Component + + + NavigationItemVCC.cs + + + Component + + + NavInvoiceReportVC.cs + + + Component + + + ZoomListViewVC.cs + + + + Component + + + Module.cs + + + + + + + AuditTrailVCC.cs + + + CustomersOrderVC.cs + + + NavInvoiceReportVC.cs + + + ZoomListViewVC.cs + + + Module.cs + Designer + + + + + + + + + + + + Model.DesignedDiffs.xafml + Designer + + + Model.DesignedDiffs.xafml + Designer + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {98539dcf-bf11-4158-aec0-4b008a404a0e} + SISBusiness.Module.Win + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + SISBusiness.Module + + + + + Model.DesignedDiffs.xafml + Designer + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj.vspscc b/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module.CSharp/SISBusiness.Module.CSharp.csproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module.CSharp/UnusableNodes.xml b/SISBusiness.Module.CSharp/UnusableNodes.xml new file mode 100644 index 0000000..002a395 --- /dev/null +++ b/SISBusiness.Module.CSharp/UnusableNodes.xml @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.CSharp/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.CSharp/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..da2da70 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.AuditTrailVCC.resources b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.AuditTrailVCC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.AuditTrailVCC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.CSharpModule.resources b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.CSharpModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.CSharpModule.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt new file mode 100644 index 0000000..5f80a83 --- /dev/null +++ b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt @@ -0,0 +1,431 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.CSharp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.CSharp.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Validation.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.Win.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\SISBusiness.Module.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Validation.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.AuditTrailVCC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CustomersOrderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.NavInvoiceReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.Controllers.ZoomListViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.CSharpModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.csproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Debug\SISBusiness.Module.CSharp.pdb diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache new file mode 100644 index 0000000..f465022 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache new file mode 100644 index 0000000..aca53c6 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.dll b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.dll new file mode 100644 index 0000000..017cb0b Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.pdb b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.pdb new file mode 100644 index 0000000..e74867d Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CSharp.pdb differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.Controllers.ZoomListViewVC.resources b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.Controllers.ZoomListViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.Controllers.ZoomListViewVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CustomersOrderVC.resources b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CustomersOrderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.CustomersOrderVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.NavInvoiceReportVC.resources b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.NavInvoiceReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/SISBusiness.Module.NavInvoiceReportVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/en/SISBusiness.Module.CSharp.resources.dll b/SISBusiness.Module.CSharp/obj/Debug/en/SISBusiness.Module.CSharp.resources.dll new file mode 100644 index 0000000..4955cad Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/en/SISBusiness.Module.CSharp.resources.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/hu/SISBusiness.Module.CSharp.resources.dll b/SISBusiness.Module.CSharp/obj/Debug/hu/SISBusiness.Module.CSharp.resources.dll new file mode 100644 index 0000000..e283f9e Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/hu/SISBusiness.Module.CSharp.resources.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Debug/sisbusiness.module.csharp.dll.licenses b/SISBusiness.Module.CSharp/obj/Debug/sisbusiness.module.csharp.dll.licenses new file mode 100644 index 0000000..29fc963 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Debug/sisbusiness.module.csharp.dll.licenses differ diff --git a/SISBusiness.Module.CSharp/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.CSharp/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..035c8e8 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.AuditTrailVCC.resources b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.AuditTrailVCC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.AuditTrailVCC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.CSharpModule.resources b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.CSharpModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.CSharpModule.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt new file mode 100644 index 0000000..ae968ae --- /dev/null +++ b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.FileListAbsolute.txt @@ -0,0 +1,427 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\SISBusiness.Module.CSharp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Validation.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Validation.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\bin\Release\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.AuditTrailVCC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CustomersOrderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.NavInvoiceReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.Controllers.ZoomListViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CSharp.CSharpModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CSharp.csproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CSharp.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.CSharp\obj\Release\SISBusiness.Module.CSharp.dll diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache new file mode 100644 index 0000000..f465022 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache new file mode 100644 index 0000000..866f3d2 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.csprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.dll b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.dll new file mode 100644 index 0000000..7875a6d Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CSharp.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.Controllers.ZoomListViewVC.resources b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.Controllers.ZoomListViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.Controllers.ZoomListViewVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CustomersOrderVC.resources b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CustomersOrderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.CustomersOrderVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.NavInvoiceReportVC.resources b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.NavInvoiceReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/SISBusiness.Module.NavInvoiceReportVC.resources differ diff --git a/SISBusiness.Module.CSharp/obj/Release/build.force b/SISBusiness.Module.CSharp/obj/Release/build.force new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Module.CSharp/obj/Release/en/SISBusiness.Module.CSharp.resources.dll b/SISBusiness.Module.CSharp/obj/Release/en/SISBusiness.Module.CSharp.resources.dll new file mode 100644 index 0000000..ca09305 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/en/SISBusiness.Module.CSharp.resources.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Release/hu/SISBusiness.Module.CSharp.resources.dll b/SISBusiness.Module.CSharp/obj/Release/hu/SISBusiness.Module.CSharp.resources.dll new file mode 100644 index 0000000..e7d6364 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/hu/SISBusiness.Module.CSharp.resources.dll differ diff --git a/SISBusiness.Module.CSharp/obj/Release/sisbusiness.module.csharp.dll.licenses b/SISBusiness.Module.CSharp/obj/Release/sisbusiness.module.csharp.dll.licenses new file mode 100644 index 0000000..29fc963 Binary files /dev/null and b/SISBusiness.Module.CSharp/obj/Release/sisbusiness.module.csharp.dll.licenses differ diff --git a/SISBusiness.Module.CSharp/packages.config b/SISBusiness.Module.CSharp/packages.config new file mode 100644 index 0000000..2c6c3f1 --- /dev/null +++ b/SISBusiness.Module.CSharp/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Subcontractor/BusinessObjects/ReadMe.txt b/SISBusiness.Module.Web.Subcontractor/BusinessObjects/ReadMe.txt new file mode 100644 index 0000000..c96facd --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/BusinessObjects/ReadMe.txt @@ -0,0 +1,14 @@ +Folder Description + +The "BusinessObjects" project folder is intended for storing the business objects +code. In XAF, a business object can be implemented as a base persistent class +descendant and as Domain Component interfaces. + + +Relevant Documentation + +Business Model Design +http://help.devexpress.com/#Xaf/CustomDocument2600 + +Domain Components +http://help.devexpress.com/#Xaf/CustomDocument3261 diff --git a/SISBusiness.Module.Web.Subcontractor/Controllers/ReadMe.txt b/SISBusiness.Module.Web.Subcontractor/Controllers/ReadMe.txt new file mode 100644 index 0000000..0c7ded8 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/Controllers/ReadMe.txt @@ -0,0 +1,19 @@ +Folder Description + +The "Controllers" project folder is intended for storing Controller classes +that can change the default XAF application flow and add new features. + + +Relevant Documentation + +Extend Functionality +http://help.devexpress.com/#Xaf/CustomDocument2623 + +Controller Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppControllertopic + +ViewController Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic + +WindowController Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic diff --git a/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/ReadMe.txt b/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/ReadMe.txt new file mode 100644 index 0000000..3db464c --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/ReadMe.txt @@ -0,0 +1,20 @@ +Folder Description + +The "DatabaseUpdate" project folder is intended for storing code that supplies +initial data (default User objects, embedded Reports, etc) and handles a database +update when the application version changes. + + +Relevant Documentation + +Supply Initial Data +http://help.devexpress.com/#Xaf/CustomDocument2788 + +Distribute the Created Reports with the Application +http://help.devexpress.com/#Xaf/CustomDocument2786 + +How to: Update the Database Structure after the Persistent Class or Property Was Renamed or Removed +http://help.devexpress.com/#Xaf/CustomDocument3254 + +ModuleUpdater Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppUpdatingModuleUpdatertopic diff --git a/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/Updater.vb b/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/Updater.vb new file mode 100644 index 0000000..1848e6c --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/DatabaseUpdate/Updater.vb @@ -0,0 +1,22 @@ +Imports System +Imports System.Security.Principal + +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Objects +Imports DevExpress.ExpressApp.Updating +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo + + +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 diff --git a/SISBusiness.Module.Web.Subcontractor/Images/ReadMe.txt b/SISBusiness.Module.Web.Subcontractor/Images/ReadMe.txt new file mode 100644 index 0000000..9fce08e --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/Images/ReadMe.txt @@ -0,0 +1,12 @@ +Folder Description + +The "Images" project folder is intended for storing custom image files. + + +Relevant Documentation + +Add and Override Images +http://help.devexpress.com/#Xaf/CustomDocument2792 + +Assign a Custom Image +http://help.devexpress.com/#Xaf/CustomDocument2744 diff --git a/SISBusiness.Module.Web.Subcontractor/Model.DesignedDiffs.xafml b/SISBusiness.Module.Web.Subcontractor/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..a3625c9 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/Model.DesignedDiffs.xafml @@ -0,0 +1,2 @@ + + diff --git a/SISBusiness.Module.Web.Subcontractor/Module.Designer.vb b/SISBusiness.Module.Web.Subcontractor/Module.Designer.vb new file mode 100644 index 0000000..ca5afd0 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/Module.Designer.vb @@ -0,0 +1,31 @@ +Imports Microsoft.VisualBasic +Imports System + +Partial Public Class SubcontractorModule + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + End Sub + +#End Region +End Class diff --git a/SISBusiness.Module.Web.Subcontractor/Module.vb b/SISBusiness.Module.Web.Subcontractor/Module.vb new file mode 100644 index 0000000..7251d60 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/Module.vb @@ -0,0 +1,12 @@ +Imports System +Imports System.Reflection +Imports System.Collections.Generic + +Imports DevExpress.ExpressApp + +Public NotInheritable Class [SubcontractorModule] + Inherits ModuleBase + Public Sub New() + InitializeComponent() + End Sub +End Class diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Application.Designer.vb b/SISBusiness.Module.Web.Subcontractor/My Project/Application.Designer.vb new file mode 100644 index 0000000..df166d7 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.3603 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Application.myapp b/SISBusiness.Module.Web.Subcontractor/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/AssemblyInfo.vb b/SISBusiness.Module.Web.Subcontractor/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ce1367b --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Resources.Designer.vb b/SISBusiness.Module.Web.Subcontractor/My Project/Resources.Designer.vb new file mode 100644 index 0000000..200480d --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.3603 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Web.Subcontractor.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Resources.resx b/SISBusiness.Module.Web.Subcontractor/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Settings.Designer.vb b/SISBusiness.Module.Web.Subcontractor/My Project/Settings.Designer.vb new file mode 100644 index 0000000..20cba55 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.3603 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.Module.Web.Subcontractor.My.MySettings + Get + Return Global.SISBusiness.Module.Web.Subcontractor.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/Settings.settings b/SISBusiness.Module.Web.Subcontractor/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Module.Web.Subcontractor/My Project/licenses.licx b/SISBusiness.Module.Web.Subcontractor/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Module.Web.Subcontractor/ReadMe.txt b/SISBusiness.Module.Web.Subcontractor/ReadMe.txt new file mode 100644 index 0000000..67638b0 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/ReadMe.txt @@ -0,0 +1,27 @@ +Project Description + +The SISBusiness.Module.Web.Subcontractor project implements a Module. The root project folder contains +the Module.cs(vb) file with the class that inherits ModuleBase. This class can be +designed with the Module Designer that allows you to view and customize Module +components: referenced modules, Controllers and business classes. Additionally, +the root folder contains Application Model difference files (XAFML files) that +keep application settings specific for the current Module. Differences files +can be designed with the Model Editor. + + +Relevant Documentation + +Application Solution Components +http://help.devexpress.com/#Xaf/CustomDocument2569 + +ModuleBase Class +http://help.devexpress.com/#Xaf/clsDevExpressExpressAppModuleBasetopic + +Module Designer +http://help.devexpress.com/#Xaf/CustomDocument2828 + +Application Model +http://help.devexpress.com/#Xaf/CustomDocument2579 + +Model Editor +http://help.devexpress.com/#Xaf/CustomDocument2582 diff --git a/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj b/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj new file mode 100644 index 0000000..f498eb7 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj @@ -0,0 +1,177 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {DD721391-766C-47EA-A0BF-E4438DB788EF} + Library + SISBusiness.Module.Web.Subcontractor + NewModule + Windows + v4.0 + SAK + SAK + SAK + SAK + + + true + full + true + true + bin\Debug\ + NewModule.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + NewModule.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU + + + On + + + Binary + + + Off + + + On + + + true + bin\R64\ + NewModule.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + pdbonly + AnyCPU + MinimumRecommendedRules.ruleset + + + + False + + + False + + + False + False + + + False + False + + + False + False + + + False + + + False + False + + + False + False + + + False + + + False + False + + + 3.5 + False + + + False + + + False + + + + + + + + + + + + + + Module.vb + + + Component + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj.vspscc b/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module.Web.Subcontractor/SISBusiness.Module.Web.Subcontractor.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module.Web.Support/Business/DocumentsVC.Designer.vb b/SISBusiness.Module.Web.Support/Business/DocumentsVC.Designer.vb new file mode 100644 index 0000000..f843a88 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/DocumentsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DocumentsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/Business/DocumentsVC.vb b/SISBusiness.Module.Web.Support/Business/DocumentsVC.vb new file mode 100644 index 0000000..da73ee2 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/DocumentsVC.vb @@ -0,0 +1,36 @@ +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.ExpressApp.Web.SystemModule + +Public Class DocumentsVC + 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 = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of DetailViewEditorActionController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + End Sub +End Class + diff --git a/SISBusiness.Module.Web.Support/Business/InstallationVC.Designer.vb b/SISBusiness.Module.Web.Support/Business/InstallationVC.Designer.vb new file mode 100644 index 0000000..5e71942 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/InstallationVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InstallationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/Business/InstallationVC.vb b/SISBusiness.Module.Web.Support/Business/InstallationVC.vb new file mode 100644 index 0000000..9b7466f --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/InstallationVC.vb @@ -0,0 +1,35 @@ +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.CloneObject +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 = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web.Support/Business/PCIGroupVC.Designer.vb b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.Designer.vb new file mode 100644 index 0000000..cccbcd8 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class PCIGroupVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewBill = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewBill + ' + Me.aViewBill.Caption = "aView Bill" + Me.aViewBill.ConfirmationMessage = Nothing + Me.aViewBill.Id = "aViewBill" + Me.aViewBill.ImageName = Nothing + Me.aViewBill.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewBill.Shortcut = Nothing + Me.aViewBill.Tag = Nothing + Me.aViewBill.TargetObjectsCriteria = Nothing + Me.aViewBill.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewBill.TargetViewId = Nothing + Me.aViewBill.ToolTip = Nothing + Me.aViewBill.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewBill As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web.Support/Business/PCIGroupVC.resx b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.resx new file mode 100644 index 0000000..c2a1748 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Business/PCIGroupVC.vb b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.vb new file mode 100644 index 0000000..c64b2ba --- /dev/null +++ b/SISBusiness.Module.Web.Support/Business/PCIGroupVC.vb @@ -0,0 +1,81 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Web.SystemModule +Imports System.IO +Imports DevExpress.Data.Filtering +Imports DevExpress.Web.Internal + +Imports System.Web +Imports System.Net + +Imports DevExpress.ExpressApp.Web + +Public Class PCIGroupVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + Me.TargetObjectType = GetType(SISBusiness.Module.PCIGroup) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", False) + If View.Id = "PCIGroup_ListView_Support" Then + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True) + End If + If View.Id = "PCIGroup_ListView_Subcontractor" Then + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End Sub + + Private Sub aViewBill_Execute(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 diff --git a/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.Designer.vb b/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.Designer.vb new file mode 100644 index 0000000..7ee7abd --- /dev/null +++ b/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class AboutInfoCustomizationVC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.vb b/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.vb new file mode 100644 index 0000000..02b74ce --- /dev/null +++ b/SISBusiness.Module.Web.Support/Controllers/AboutInfoCustomizationVC.vb @@ -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.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 & "
" + _CustomAboutString += "" & _PartnerInfo & "

" + _CustomAboutString += Application.Model.Application.Description & "
" + _CustomAboutString += "Version: " & System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString & "
" + _CustomAboutString += "Copyright (C) " & Application.Model.Copyright + + Return _CustomAboutString + End Function + +End Class diff --git a/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.Designer.vb b/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.Designer.vb new file mode 100644 index 0000000..8837af8 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HTMLEditorUserVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.vb b/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.vb new file mode 100644 index 0000000..390b764 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Controllers/HTMLEditorUserVC.vb @@ -0,0 +1,76 @@ +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 HTMLEditorUserVC + 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 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 + 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 editor.Control 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 + Dim _Toolbar As DevExpress.Web.ASPxHtmlEditor.HtmlEditorToolbar + Dim _ToolbarItem As DevExpress.Web.ASPxHtmlEditor.HtmlEditorToolbarItem + For Each htmlEditor In htmlEditors + htmlEditor.Width = Unit.Percentage(100) + + '-- InsertImage tiltsa. + For Each _Toolbar In htmlEditor.Toolbars + For Each _ToolbarItem In _Toolbar.Items + If TryCast(_ToolbarItem, ToolbarInsertImageDialogButton) IsNot Nothing Then + _ToolbarItem.Visible = False + End If + If TryCast(_ToolbarItem, ToolbarInsertLinkDialogButton) IsNot Nothing Then + _ToolbarItem.Visible = False + End If + If TryCast(_ToolbarItem, ToolbarUnlinkButton) IsNot Nothing Then + _ToolbarItem.Visible = False + End If + Next + Next + Next + htmlEditors.Clear() + End Sub +End Class diff --git a/SISBusiness.Module.Web.Support/CustomersMeeting_VC.Designer.vb b/SISBusiness.Module.Web.Support/CustomersMeeting_VC.Designer.vb new file mode 100644 index 0000000..8935fb6 --- /dev/null +++ b/SISBusiness.Module.Web.Support/CustomersMeeting_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CustomersMeeting_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/CustomersMeeting_VC.vb b/SISBusiness.Module.Web.Support/CustomersMeeting_VC.vb new file mode 100644 index 0000000..5c9104e --- /dev/null +++ b/SISBusiness.Module.Web.Support/CustomersMeeting_VC.vb @@ -0,0 +1,34 @@ +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 + +Public Class CustomersMeeting_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "CustomersMeeting_DetailView_Support" Then + Frame.GetController(Of DetailViewController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of DetailViewController).SaveAndCloseAction.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CustomersMeeting_DetailView_Support" Then + Frame.GetController(Of DetailViewController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of DetailViewController).SaveAndCloseAction.Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web.Support/Model.DesignedDiffs.Localization.hu.xafml b/SISBusiness.Module.Web.Support/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..14296ec --- /dev/null +++ b/SISBusiness.Module.Web.Support/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,26 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Model.DesignedDiffs.xafml b/SISBusiness.Module.Web.Support/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..7934ca2 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Model.DesignedDiffs.xafml @@ -0,0 +1,207 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Module.Designer.vb b/SISBusiness.Module.Web.Support/Module.Designer.vb new file mode 100644 index 0000000..ae3a32c --- /dev/null +++ b/SISBusiness.Module.Web.Support/Module.Designer.vb @@ -0,0 +1,50 @@ +Imports Microsoft.VisualBasic +Imports System + +Partial Public Class SupportModule + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + ' + 'SupportModule + ' + Me.RequiredModuleTypes.Add(GetType(SISBusiness.[Module].SISBusinessModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.AuditTrail.AuditTrailModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.ValidationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule)) + 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.PivotGrid.Web.PivotGridAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule)) + + End Sub + +#End Region +End Class diff --git a/SISBusiness.Module.Web.Support/Module.resx b/SISBusiness.Module.Web.Support/Module.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Module.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Module.vb b/SISBusiness.Module.Web.Support/Module.vb new file mode 100644 index 0000000..d62bc7d --- /dev/null +++ b/SISBusiness.Module.Web.Support/Module.vb @@ -0,0 +1,13 @@ +Imports System +Imports System.Reflection +Imports System.Collections.Generic + +Imports DevExpress.ExpressApp + +Public NotInheritable Class [SupportModule] + Inherits ModuleBase + Public Sub New() + ModelDifferenceResourceName = "SISBusiness.Module.Web.Support.Model.DesignedDiffs" + InitializeComponent() + End Sub +End Class diff --git a/SISBusiness.Module.Web.Support/My Project/Application.Designer.vb b/SISBusiness.Module.Web.Support/My Project/Application.Designer.vb new file mode 100644 index 0000000..66fb81a --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Module.Web.Support/My Project/Application.myapp b/SISBusiness.Module.Web.Support/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Module.Web.Support/My Project/AssemblyInfo.vb b/SISBusiness.Module.Web.Support/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..c4b36ba --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.Module.Web.Support/My Project/Resources.Designer.vb b/SISBusiness.Module.Web.Support/My Project/Resources.Designer.vb new file mode 100644 index 0000000..e04d507 --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Web.Support.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web.Support/My Project/Resources.resx b/SISBusiness.Module.Web.Support/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Module.Web.Support/My Project/Settings.Designer.vb b/SISBusiness.Module.Web.Support/My Project/Settings.Designer.vb new file mode 100644 index 0000000..b8a14d7 --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.239 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.[Module].Web.Support.My.MySettings + Get + Return Global.SISBusiness.[Module].Web.Support.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web.Support/My Project/Settings.settings b/SISBusiness.Module.Web.Support/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Module.Web.Support/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Module.Web.Support/My Project/licenses.licx b/SISBusiness.Module.Web.Support/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Module.Web.Support/QuickCreate.Designer.vb b/SISBusiness.Module.Web.Support/QuickCreate.Designer.vb new file mode 100644 index 0000000..80861f8 --- /dev/null +++ b/SISBusiness.Module.Web.Support/QuickCreate.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuickCreate + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/QuickCreate.vb b/SISBusiness.Module.Web.Support/QuickCreate.vb new file mode 100644 index 0000000..6700e0a --- /dev/null +++ b/SISBusiness.Module.Web.Support/QuickCreate.vb @@ -0,0 +1,32 @@ +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 + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.Web.SystemModule.WebNewObjectViewController).QuickCreateAction.Active.SetItemValue("", True) + End Sub +End Class + diff --git a/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj b/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj new file mode 100644 index 0000000..8fdae5e --- /dev/null +++ b/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj @@ -0,0 +1,275 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {C3C28A3C-8C6A-4C77-B51C-391C33D0FEE7} + Library + SISBusiness.Module.Web.Support + SISBusiness.Module.Web.Support + Windows + + + 3.5 + + + v4.0 + SAK + SAK + SAK + SAK + + + true + full + true + true + bin\Debug\ + SISBusiness.Module.Web.Support.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + + + pdbonly + false + true + true + bin\Release\ + SISBusiness.Module.Web.Support.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + On + + + Binary + + + Off + + + On + + + true + bin\R64\ + SISBusiness.Module.Web.Support.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + AllRules.ruleset + + + + False + + + False + + + + + + + + False + + + + + + + + + False + False + + + False + False + + + False + False + + + False + + + + False + + + False + + + + False + + + + + + False + + + False + + + 3.5 + False + + + + + + + + + + + + + + PCIGroupVC.vb + + + Component + + + AboutInfoCustomizationVC.vb + + + Component + + + InstallationVC.vb + + + Component + + + DocumentsVC.vb + + + Component + + + HTMLEditorUserVC.vb + + + Component + + + CustomersMeeting_VC.vb + + + Component + + + Module.vb + + + Component + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + QuickCreate.vb + + + Component + + + QuestionVC.vb + + + Component + + + Support_VC.vb + + + Component + + + + + + PCIGroupVC.vb + + + Module.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + Support_VC.vb + + + + + + Model.DesignedDiffs.xafml + Designer + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + Model.DesignedDiffs.xafml + Designer + + + + + Model.DesignedDiffs.xafml + Designer + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj.vspscc b/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module.Web.Support/SISBusiness.Module.Web.Support.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.Designer.vb b/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.Designer.vb new file mode 100644 index 0000000..1241220 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuestionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.vb b/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.vb new file mode 100644 index 0000000..55a4c70 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Support/Question/QuestionVC.vb @@ -0,0 +1,72 @@ +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.Filtering +Imports DevExpress.ExpressApp.Web.SystemModule +Imports DevExpress.ExpressApp.SystemModule + +Public Class QuestionVC + Inherits SISBusiness.Module.QuestionVC 'Module.Web + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "Question_ListView_Customers" Then + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of RefreshController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Question_ListView_User" Then + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of RefreshController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Question_DetailView_User" Then + Frame.GetController(Of DetailViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of DetailViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + If View.Id = "Question_DetailView_User" Then + Frame.GetController(Of DetailViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) + End If + If View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of DetailViewController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web.Support/Support/Support_VC.Designer.vb b/SISBusiness.Module.Web.Support/Support/Support_VC.Designer.vb new file mode 100644 index 0000000..471e8a1 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Support/Support_VC.Designer.vb @@ -0,0 +1,71 @@ +Partial Class Support_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSupportNavigationDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSupportNavigationEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSupportNavigationDisable + ' + Me.aSupportNavigationDisable.AcceptButtonCaption = Nothing + Me.aSupportNavigationDisable.CancelButtonCaption = Nothing + Me.aSupportNavigationDisable.Caption = "aSupport Navigation Disable" + Me.aSupportNavigationDisable.ConfirmationMessage = Nothing + Me.aSupportNavigationDisable.Id = "aSupportNavigationDisable" + Me.aSupportNavigationDisable.ImageName = Nothing + Me.aSupportNavigationDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSupportNavigationDisable.Shortcut = Nothing + Me.aSupportNavigationDisable.Tag = Nothing + Me.aSupportNavigationDisable.TargetObjectsCriteria = Nothing + Me.aSupportNavigationDisable.TargetObjectType = GetType(SISBusiness.[Module].SupportRoles) + Me.aSupportNavigationDisable.TargetViewId = Nothing + Me.aSupportNavigationDisable.ToolTip = Nothing + Me.aSupportNavigationDisable.TypeOfView = Nothing + ' + 'aSupportNavigationEnable + ' + Me.aSupportNavigationEnable.AcceptButtonCaption = Nothing + Me.aSupportNavigationEnable.CancelButtonCaption = Nothing + Me.aSupportNavigationEnable.Caption = "aSupport Navigation Enable" + Me.aSupportNavigationEnable.ConfirmationMessage = Nothing + Me.aSupportNavigationEnable.Id = "aSupportNavigationEnable" + Me.aSupportNavigationEnable.ImageName = Nothing + Me.aSupportNavigationEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSupportNavigationEnable.Shortcut = Nothing + Me.aSupportNavigationEnable.Tag = Nothing + Me.aSupportNavigationEnable.TargetObjectsCriteria = Nothing + Me.aSupportNavigationEnable.TargetObjectType = GetType(SISBusiness.[Module].SupportRoles) + Me.aSupportNavigationEnable.TargetViewId = Nothing + Me.aSupportNavigationEnable.ToolTip = Nothing + Me.aSupportNavigationEnable.TypeOfView = Nothing + + End Sub + Friend WithEvents aSupportNavigationDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSupportNavigationEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Web.Support/Support/Support_VC.resx b/SISBusiness.Module.Web.Support/Support/Support_VC.resx new file mode 100644 index 0000000..1b9c3c8 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Support/Support_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 218, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Support/Support_VC.vb b/SISBusiness.Module.Web.Support/Support/Support_VC.vb new file mode 100644 index 0000000..d821ba8 --- /dev/null +++ b/SISBusiness.Module.Web.Support/Support/Support_VC.vb @@ -0,0 +1,308 @@ +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 Support_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "SupportRoles_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).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 = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).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 = "WorkSheet_Header_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).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_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).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 = "PCIGroup_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).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 + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "SupportRoles_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "Contracts_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "PCIGroup_ListView_Support" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aSupportNavigationEnable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSupportNavigationEnable.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 _SupportRoles As SupportRoles = TryCast(View.SelectedObjects(0), SupportRoles) + If _SupportRoles IsNot Nothing Then + Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("SupportRoles.Oid=?", _SupportRoles.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 _SupportRoles IsNot Nothing Then + e.View.Caption += " (" & _SupportRoles.ShortName & ")" + End If + End If + End If + End Sub + Private Sub aSupportNavigationEnable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSupportNavigationEnable.Execute + Dim _ModelNavigation As ModelNavigation + Dim _NavigationItemRole As NavigationItemRole + Dim _ocur As IObjectSpace = View.ObjectSpace + + Dim _SupportRoles As SupportRoles + + For Each _SupportRoles In View.SelectedObjects + For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects + _NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("SupportRoles.Oid=? and ChoiceActionItemId=?", _SupportRoles.Oid, _ModelNavigation.Name)) + If _NavigationItemRole IsNot Nothing Then + _ocur.Delete(_NavigationItemRole) + End If + Next + Next + _ocur.CommitChanges() + End Sub + + Private Sub aSupportNavigationDisable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSupportNavigationDisable.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 _SupportRoles As SupportRoles = TryCast(View.SelectedObjects(0), SupportRoles) + If _SupportRoles IsNot Nothing Then + Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("SupportRoles.Oid=?", _SupportRoles.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 _SupportRoles IsNot Nothing Then + e.View.Caption += " (" & _SupportRoles.ShortName & ")" + End If + End If + End If + End Sub + Private Sub aSupportNavigationDisable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSupportNavigationDisable.Execute + Dim _ModelNavigation As ModelNavigation + Dim _NavigationItemRole As NavigationItemRole + Dim _ocur As IObjectSpace = View.ObjectSpace + + Dim _SupportRoles As SupportRoles + + For Each _SupportRoles In View.SelectedObjects + For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects + _NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("SupportRoles.Oid=? and ChoiceActionItemId=?", _SupportRoles.Oid, _ModelNavigation.Name)) + If _NavigationItemRole Is Nothing Then + _NavigationItemRole = _ocur.CreateObject(Of NavigationItemRole)() + _NavigationItemRole.SupportRoles = _ocur.GetObject(_SupportRoles) + _NavigationItemRole.ChoiceActionItemId = _ModelNavigation.Name + 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 + + _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 +End Class diff --git a/SISBusiness.Module.Web.Support/UnusableNodes.xml b/SISBusiness.Module.Web.Support/UnusableNodes.xml new file mode 100644 index 0000000..c8bdae2 --- /dev/null +++ b/SISBusiness.Module.Web.Support/UnusableNodes.xml @@ -0,0 +1,15 @@ + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/UnusableNodes1_hu.xml b/SISBusiness.Module.Web.Support/UnusableNodes1_hu.xml new file mode 100644 index 0000000..d4e2598 --- /dev/null +++ b/SISBusiness.Module.Web.Support/UnusableNodes1_hu.xml @@ -0,0 +1,12 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web.Support/Updater.vb b/SISBusiness.Module.Web.Support/Updater.vb new file mode 100644 index 0000000..1848e6c --- /dev/null +++ b/SISBusiness.Module.Web.Support/Updater.vb @@ -0,0 +1,22 @@ +Imports System +Imports System.Security.Principal + +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Objects +Imports DevExpress.ExpressApp.Updating +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo + + +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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.Designer.vb new file mode 100644 index 0000000..c16fe43 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.Designer.vb @@ -0,0 +1,39 @@ +Partial Class WorkSheet_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'aOpenWorkSheet_Subcontractor + ' + ' + 'aCloseWorkSheet_Subcontractor + ' + Me.aCloseWorkSheet_Subcontractor.TargetObjectsCriteria = "WorkSheetState = eWorkSheetState.eOpened" + + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.resx b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.resx new file mode 100644 index 0000000..61337c3 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 246, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.vb b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.vb new file mode 100644 index 0000000..1a703e7 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/BusinessTransactions/Worksheet/WorkSheet_VC.vb @@ -0,0 +1,281 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports SISBusiness.Module +Imports FarPoint.Win.Spread +Imports FarPoint.PDF +Imports System.IO +Imports System.Web.HttpResponse +Imports System.Web.UI.Page +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Web.ASPxClasses.Internal +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Web.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Reports + +Public Class WorkSheet_VC + Inherits SISBusiness.Module.WorkSheet_VC + Private _FpSpread As FpSpread + Private _FpPdf As FarPoint.Win.Spread.PrintInfo + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False) + + If View.Id = "WorkSheet_Header_ListView_Subcontractor" Then + Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + + End If + If View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "WorkSheet_Header_ListView_Subcontractor" Then + Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then + + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub + + Protected Overrides Sub aOpenWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) + MyBase.aOpenWorkSheet_Subcontractor_CustomizePopupWindowParams(sender, e) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _SubcontractorCustomers As Customers = _Contacts.Customers + Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _onew.CreateObject(Of OpenWorkSheet_SubcontractorPopUp)() + Dim _SubContractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers.Oid=?", _SubcontractorCustomers.Oid)) + + _OpenWorkSheet_SubcontractorPopUp.Subcontractor = _SubContractor + e.View = Application.CreateDetailView(_onew, "OpenWorkSheet_SubcontractorPopUp_DetailView", False, _OpenWorkSheet_SubcontractorPopUp) + End Sub + Protected Overrides Sub aOpenWorkSheet_Subcontractor_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) + MyBase.aOpenWorkSheet_Subcontractor_Execute(sender, e) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OpenWorkSheet_SubcontractorPopUp As OpenWorkSheet_SubcontractorPopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OpenWorkSheet_SubcontractorPopUp)) + Dim _Subcontractor As Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_OpenWorkSheet_SubcontractorPopUp.Subcontractor.Oid) + Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _SubcontractorCustomers As Customers = _Contacts.Customers + Dim _ReportData As ReportData + + + Dim _WorkSheet_Header As WorkSheet_Header = _ocur.CreateObject(Of WorkSheet_Header)() + _WorkSheet_Header.Customers = _ocur.GetObjectByKey(Of Customers)(_OpenWorkSheet_SubcontractorPopUp.WorkPlace.Customers.Oid) + _WorkSheet_Header.CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_OpenWorkSheet_SubcontractorPopUp.CustomersFrom.Oid) + _WorkSheet_Header.WorkSheetType = _ocur.GetObjectByKey(Of WorkSheetType)(_OpenWorkSheet_SubcontractorPopUp.WorkSheetType.Oid) + _WorkSheet_Header.DateExecution = _OpenWorkSheet_SubcontractorPopUp.DateCreated + _WorkSheet_Header.DateCreated = GetSQLTime(_ocur.Session) + _WorkSheet_Header.IsSubcontractor = True + _WorkSheet_Header.SubcontractorCustomers = _SubcontractorCustomers + _WorkSheet_Header.Description = _OpenWorkSheet_SubcontractorPopUp.Description + _WorkSheet_Header.WorkPlace = _ocur.GetObjectByKey(Of WorkPlace)(_OpenWorkSheet_SubcontractorPopUp.WorkPlace.Oid) + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened + _WorkSheet_Header.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _WorkSheet_Header.WorkHour = _OpenWorkSheet_SubcontractorPopUp.WorkHour + _WorkSheet_Header.WorkDescription = _OpenWorkSheet_SubcontractorPopUp.WorkDescription + _WorkSheet_Header.WorkUsedMaterialDescription = _OpenWorkSheet_SubcontractorPopUp.WorkUsedMaterialDescription + _WorkSheet_Header.WorkDescriptionOther = _OpenWorkSheet_SubcontractorPopUp.WorkDescriptionOther + _WorkSheet_Header.WorkTravelKm = _OpenWorkSheet_SubcontractorPopUp.WorkTravelKm + _WorkSheet_Header.InvoiceState = _OpenWorkSheet_SubcontractorPopUp.InvoiceState + + + _ocur.CommitChanges() + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.WorkSheetType.ReportData.Oid), True) + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + + Dim _Param_Colletion As DevExpress.XtraReports.Parameters.ParameterCollection = _XafReport.Parameters + + For Each _Param As DevExpress.XtraReports.Parameters.Parameter In _Param_Colletion + If _Param.Name = "Workplace" Then + Dim _SubcontractorCustomers_WorkPLace As SubcontractorCustomers = _ocur.FindObject(Of SubcontractorCustomers) _ + (CriteriaOperator.Parse("Subcontractor=? AND Customers=?", _Subcontractor, _WorkSheet_Header.Customers)) + If _SubcontractorCustomers_WorkPLace.Workplace Is Nothing Then + _Param.Value = "Nincs megadva!" + Else + _Param.Value = _SubcontractorCustomers_WorkPLace.Workplace.ShortName + End If + End If + Next + + Dim _FilterString As String = "[Oid]='" & _WorkSheet_Header.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & _WorkSheet_Header.DocumentNumber & "_Munkalap.pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + + _WorkSheet_Header.WorkSheetFile_Original = New FileData(_ocur.Session) + _WorkSheet_Header.WorkSheetFile_Original.LoadFromStream(_WorkSheet_Header.DocumentNumber + "_Munkalap.pdf", _StreamFile2) + _StreamFile2.Close() + Process.Start(_FileName) + End If + _ocur.CommitChanges() + + 'Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.Oid), True) + + View.Close() + End Sub + + Protected Overrides Sub aCloseWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) + MyBase.aCloseWorkSheet_Subcontractor_CustomizePopupWindowParams(sender, e) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CloseWorkSheet_SubcontractorpopUp As CloseWorkSheet_SubcontractorpopUp = _onew.CreateObject(Of CloseWorkSheet_SubcontractorpopUp)() + + e.View = Application.CreateDetailView(_onew, "CloseWorkSheet_SubcontractorpopUp_DetailView", False, _CloseWorkSheet_SubcontractorpopUp) + + End Sub + Protected Overrides Sub aCloseWorkSheet_Subcontractor_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) + MyBase.aCloseWorkSheet_Subcontractor_Execute(sender, e) + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CloseWorkSheet_SubcontractorpopUp As CloseWorkSheet_SubcontractorpopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CloseWorkSheet_SubcontractorpopUp)) + If _CloseWorkSheet_SubcontractorpopUp.WorkSheetFile Is Nothing Then Throw New System.Exception("Lezrshooz ktelez 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 + + diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.Designer.vb new file mode 100644 index 0000000..f041357 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class InstallationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInstallationDocumentations_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInstallationDocumentations_OpenDashboardWithViewer + ' + Me.aInstallationDocumentations_OpenDashboardWithViewer.Caption = "aInstallationDocumentations_OpenDashboardWithViewer" + Me.aInstallationDocumentations_OpenDashboardWithViewer.ConfirmationMessage = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.Id = "aInstallationDocumentations_OpenDashboardWithViewer" + Me.aInstallationDocumentations_OpenDashboardWithViewer.ImageName = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aInstallationDocumentations_OpenDashboardWithViewer.Shortcut = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.Tag = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetObjectsCriteria = "IsDashboard = True" + Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetObjectType = GetType(SISBusiness.[Module].InstallationDocumentations) + Me.aInstallationDocumentations_OpenDashboardWithViewer.TargetViewId = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.ToolTip = Nothing + Me.aInstallationDocumentations_OpenDashboardWithViewer.TypeOfView = Nothing + + End Sub + Friend WithEvents aInstallationDocumentations_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.resx b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.resx new file mode 100644 index 0000000..b21775f --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.vb new file mode 100644 index 0000000..6b89d19 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Products/InstallationVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.Designer.vb new file mode 100644 index 0000000..c8c1f3a --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.Designer.vb @@ -0,0 +1,71 @@ +Partial Class SubcontractorVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSubcontractorNavigationEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSubcontractorNavigationDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSubcontractorDocuments_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSubcontractorNavigationEnable + ' + Me.aSubcontractorNavigationEnable.AcceptButtonCaption = Nothing + Me.aSubcontractorNavigationEnable.CancelButtonCaption = Nothing + Me.aSubcontractorNavigationEnable.Caption = "aSubcontractor Navigation Enable" + Me.aSubcontractorNavigationEnable.ConfirmationMessage = Nothing + Me.aSubcontractorNavigationEnable.Id = "aSubcontractorNavigationEnable" + Me.aSubcontractorNavigationEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSubcontractorNavigationEnable.TargetObjectType = GetType(SISBusiness.[Module].SubcontractorRoles) + Me.aSubcontractorNavigationEnable.ToolTip = Nothing + ' + 'aSubcontractorNavigationDisable + ' + Me.aSubcontractorNavigationDisable.AcceptButtonCaption = Nothing + Me.aSubcontractorNavigationDisable.CancelButtonCaption = Nothing + Me.aSubcontractorNavigationDisable.Caption = "aSubcontractor Navigation Disable" + Me.aSubcontractorNavigationDisable.ConfirmationMessage = Nothing + Me.aSubcontractorNavigationDisable.Id = "aSubcontractorNavigationDisable" + Me.aSubcontractorNavigationDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSubcontractorNavigationDisable.TargetObjectType = GetType(SISBusiness.[Module].SubcontractorRoles) + Me.aSubcontractorNavigationDisable.ToolTip = Nothing + ' + 'aSubcontractorDocuments_OpenDashboardWithViewer + ' + Me.aSubcontractorDocuments_OpenDashboardWithViewer.Caption = "aSubcontractorDocuments_OpenDashboardWithViewer" + Me.aSubcontractorDocuments_OpenDashboardWithViewer.ConfirmationMessage = Nothing + Me.aSubcontractorDocuments_OpenDashboardWithViewer.Id = "aSubcontractorDocuments_OpenDashboardWithViewer" + Me.aSubcontractorDocuments_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSubcontractorDocuments_OpenDashboardWithViewer.TargetObjectsCriteria = "IsDashboard = True" + Me.aSubcontractorDocuments_OpenDashboardWithViewer.TargetViewId = "SubcontractorDocuments_ListView" + Me.aSubcontractorDocuments_OpenDashboardWithViewer.ToolTip = Nothing + + End Sub + Friend WithEvents aSubcontractorNavigationEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSubcontractorNavigationDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSubcontractorDocuments_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.resx b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.resx new file mode 100644 index 0000000..3121d74 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 247, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.vb new file mode 100644 index 0000000..e589a22 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Subcontractor/SubcontractorVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.Designer.vb new file mode 100644 index 0000000..b5a7cfd --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuestionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.resx b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.resx new file mode 100644 index 0000000..441fef3 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1066, 17 + + + 929, 17 + + + 796, 17 + + + 673, 17 + + + 530, 17 + + + 301, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.vb b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.vb new file mode 100644 index 0000000..1919e4f --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/Support/QuestionVC.vb @@ -0,0 +1,82 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Web.ASPxHtmlEditor +Imports DevExpress.ExpressApp.HtmlPropertyEditor.Web +Imports System.Web.UI.WebControls +Imports System.Web.UI +Imports DevExpress.ExpressApp.Web.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Reports +Imports System.IO + +Public Class QuestionVC + Inherits SISBusiness.Module.QuestionVC + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id Like "Question_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + + If View.Id = "Question_ListView_User" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + + If View.Id = "Question_ListView_Customers" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + + If View.Id = "Question_WorkItem_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + If View.Id = "Question_ListView_Subcontractor" Then + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "Question_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + + If View.Id = "Question_ListView_User" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + + If View.Id = "Question_ListView_Customers" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + + If View.Id = "Question_WorkItem_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + If View.Id = "Question_ListView_Subcontractor" Then + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True) + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb new file mode 100644 index 0000000..9ad9a17 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class MySchedule_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb b/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb new file mode 100644 index 0000000..089a5b0 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Scheduler.Web +Imports DevExpress.XtraScheduler +Imports DevExpress.Web.ASPxScheduler + +Public Class MySchedule_VC + Inherits SISBusiness.Module.MySchedule_VC + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "MySchedule_ListView" Or View.Id = "Contacts_CRM_Leads_Activity_ListView" Then + Dim currentView As ListView = CType(View, ListView) + Dim listEditor As ASPxSchedulerListEditor = CType(currentView.Editor, ASPxSchedulerListEditor) + Dim scheduler As ASPxScheduler = listEditor.SchedulerControl + + If Not scheduler Is Nothing Then + scheduler.Views.DayView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0)) + scheduler.Views.WorkWeekView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0)) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.Designer.vb new file mode 100644 index 0000000..d0be6db --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.Designer.vb @@ -0,0 +1,37 @@ +Partial Class GLAccountsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'GLAccountsVC + ' + Me.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.resx b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.resx new file mode 100644 index 0000000..52a9ad3 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.vb new file mode 100644 index 0000000..4af4243 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLAccountsVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.Designer.vb new file mode 100644 index 0000000..c015516 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLBankVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.vb new file mode 100644 index 0000000..b9c9c7c --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLBankVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.Designer.vb new file mode 100644 index 0000000..fc6b80b --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLCassaVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.vb new file mode 100644 index 0000000..4f7cd0e --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCassaVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.Designer.vb new file mode 100644 index 0000000..2012ff9 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLCompensationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.vb new file mode 100644 index 0000000..efd533c --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLCompensationVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.Designer.vb new file mode 100644 index 0000000..b883bac --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLMixedVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.vb new file mode 100644 index 0000000..6595111 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLMixedVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.Designer.vb new file mode 100644 index 0000000..cccbcd8 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class PCIGroupVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewBill = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewBill + ' + Me.aViewBill.Caption = "aView Bill" + Me.aViewBill.ConfirmationMessage = Nothing + Me.aViewBill.Id = "aViewBill" + Me.aViewBill.ImageName = Nothing + Me.aViewBill.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewBill.Shortcut = Nothing + Me.aViewBill.Tag = Nothing + Me.aViewBill.TargetObjectsCriteria = Nothing + Me.aViewBill.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewBill.TargetViewId = Nothing + Me.aViewBill.ToolTip = Nothing + Me.aViewBill.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewBill As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.resx b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.resx new file mode 100644 index 0000000..c2a1748 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.vb b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.vb new file mode 100644 index 0000000..d3cc289 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/PCIGroupVC.vb @@ -0,0 +1,80 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Web.SystemModule +Imports System.IO +Imports DevExpress.Data.Filtering +Imports DevExpress.Web.Internal + +Imports System.Web +Imports System.Net + +Imports DevExpress.ExpressApp.Web + +Public Class PCIGroupVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + Me.TargetObjectType = GetType(SISBusiness.Module.PCIGroup) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", False) + If View.Id = "PCIGroup_ListView_Support" Then + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True) + End If + If View.Id = "PCIGroup_ListView_Subcontractor" Then + Frame.GetController(Of PCIGroupVC).aViewBill.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + End Sub + Private Sub aViewBill_Execute_1(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewBill.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + If _PCIGroup IsNot Nothing Then + If _PCIGroup.PartnerType = ePartnerType.eReceivables Then + Dim _InvoiceHeader As InvoiceHeader = _ocur.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PCIGroup.CustomersFrom.Oid, _PCIGroup.Customers.Oid, _PCIGroup.DocumentNumber)) + If _InvoiceHeader IsNot Nothing Then + + If _InvoiceHeader.PDF_Copy IsNot Nothing Then + Dim _FileStream As New MemoryStream + _InvoiceHeader.PDF_Copy.SaveToStream(_FileStream) + + WebApplication.Redirect("GetAttachments.ashx?id=" & _InvoiceHeader.PDF_Copy.Oid.ToString) + + End If + + End If + + + ElseIf _PCIGroup.PartnerType = ePartnerType.ePayabels Then + Dim _RegistryHeader As RegistryHeader = _ocur.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PCIGroup.CustomersFrom.Oid, _PCIGroup.Customers.Oid, _PCIGroup.DocumentNumber)) + If _RegistryHeader IsNot Nothing Then + If _RegistryHeader.DocumentFile IsNot Nothing Then + Dim _FileStream As New MemoryStream + _RegistryHeader.DocumentFile.SaveToStream(_FileStream) + + WebApplication.Redirect("GetAttachments.ashx?id=" & _RegistryHeader.DocumentFile.Oid.ToString) + + End If + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.Designer.vb new file mode 100644 index 0000000..17add25 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HRPersonEventVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.vb new file mode 100644 index 0000000..7f6cbbd --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/HRPersonEventVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb new file mode 100644 index 0000000..adcc4cc --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb @@ -0,0 +1,83 @@ +Partial Class OperationalLog_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOperationLog_PrintLogs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOperationLog_PrintLog_Execute = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOperationaLog_CreateNewSupportLog = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOperationLog_PrintLogs + ' + Me.aOperationLog_PrintLogs.Caption = "aOperationLog_PrintLogs" + Me.aOperationLog_PrintLogs.ConfirmationMessage = Nothing + Me.aOperationLog_PrintLogs.Id = "aOperationLog_PrintLogs" + Me.aOperationLog_PrintLogs.ImageName = Nothing + Me.aOperationLog_PrintLogs.Shortcut = Nothing + Me.aOperationLog_PrintLogs.Tag = Nothing + Me.aOperationLog_PrintLogs.TargetObjectsCriteria = Nothing + Me.aOperationLog_PrintLogs.TargetObjectType = GetType(SISBusiness.[Module].OperationalLog) + Me.aOperationLog_PrintLogs.TargetViewId = Nothing + Me.aOperationLog_PrintLogs.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aOperationLog_PrintLogs.ToolTip = Nothing + Me.aOperationLog_PrintLogs.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aOperationLog_PrintLog_Execute + ' + Me.aOperationLog_PrintLog_Execute.Caption = "aOperationLog_PrintLog_Execute" + Me.aOperationLog_PrintLog_Execute.ConfirmationMessage = Nothing + Me.aOperationLog_PrintLog_Execute.Id = "aOperationLog_PrintLog_Execute" + Me.aOperationLog_PrintLog_Execute.ImageName = Nothing + Me.aOperationLog_PrintLog_Execute.Shortcut = Nothing + Me.aOperationLog_PrintLog_Execute.Tag = Nothing + Me.aOperationLog_PrintLog_Execute.TargetObjectsCriteria = Nothing + Me.aOperationLog_PrintLog_Execute.TargetObjectType = GetType(SISBusiness.[Module].OperationLog_ViewLogs_PopUp) + Me.aOperationLog_PrintLog_Execute.TargetViewId = Nothing + Me.aOperationLog_PrintLog_Execute.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOperationLog_PrintLog_Execute.ToolTip = Nothing + Me.aOperationLog_PrintLog_Execute.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOperationaLog_CreateNewSupportLog + ' + Me.aOperationaLog_CreateNewSupportLog.Caption = "aOperationaLog_CreateNewSupportLog" + Me.aOperationaLog_CreateNewSupportLog.Category = "ObjectsCreation" + Me.aOperationaLog_CreateNewSupportLog.ConfirmationMessage = Nothing + Me.aOperationaLog_CreateNewSupportLog.Id = "aOperationaLog_CreateNewSupportLog" + Me.aOperationaLog_CreateNewSupportLog.ImageName = Nothing + Me.aOperationaLog_CreateNewSupportLog.Shortcut = Nothing + Me.aOperationaLog_CreateNewSupportLog.Tag = Nothing + Me.aOperationaLog_CreateNewSupportLog.TargetObjectsCriteria = Nothing + Me.aOperationaLog_CreateNewSupportLog.TargetViewId = "OperationalLog_ListView_Support" + Me.aOperationaLog_CreateNewSupportLog.ToolTip = Nothing + Me.aOperationaLog_CreateNewSupportLog.TypeOfView = Nothing + + End Sub + Friend WithEvents aOperationLog_PrintLogs As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOperationLog_PrintLog_Execute As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOperationaLog_CreateNewSupportLog As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx new file mode 100644 index 0000000..c662a84 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 393, 54 + + + 644, 157 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb new file mode 100644 index 0000000..2d255a4 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb @@ -0,0 +1,185 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Reports +Imports System.Drawing.Imaging +Imports DevExpress.XtraPrinting +Imports DevExpress.XtraReports.UI +Imports DevExpress.XtraPrinting.Preview +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.XtraReports.Web +Imports System.IO +Imports DevExpress.Web.ASPxClasses.Internal +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Reports.Web +Imports DevExpress.Persistent.BaseImpl + + +Public Class OperationalLog_VC + Inherits SISBusiness.Module.OperationalLog_VC + + Dim _XafReport As XafReport + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "OperationLog_ViewLogs_PopUp_DetailView" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + End If + If View.Id = "OperationalLog_ListView_Support" Then + Frame.GetController(Of DevExpress.ExpressApp.Web.SystemModule.ListViewController).EditAction.Active.SetItemValue("", False) + End If + If View.Id = "ReportViewer_DetailView" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OperationalLog_DetailView_Support" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OperationalLog As OperationalLog = TryCast(View.SelectedObjects(0), OperationalLog) + Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _WorkPlace As WorkPlace = _ocur.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + Dim _WorkState As WorkState = _ocur.FindObject(Of WorkState)(CriteriaOperator.Parse("IsOperationalLog = True")) + + If _WorkPlace IsNot Nothing And _WorkState IsNot Nothing Then + Dim _OperationalLogParameters As OperationalLogParameters = _ocur.FindObject(Of OperationalLogParameters) _ + (CriteriaOperator.Parse("CustomersFrom=? AND WorkPlace=?", _WorkPlace.CustomersFrom, _WorkPlace)) + If _OperationalLogParameters IsNot Nothing Then + With _OperationalLog + If .Customers Is Nothing Then .Customers = _Contacts.Customers + If .CustomersFrom Is Nothing Then .CustomersFrom = _WorkPlace.CustomersFrom + If .OperationalLogParameters Is Nothing Then .OperationalLogParameters = _OperationalLogParameters + If .WorkPlace Is Nothing Then .WorkPlace = _WorkPlace + If .WorkState Is Nothing Then .WorkState = _WorkState + End With + End If + 'Else + 'MsgBox(String.Format("Nincs belltva munkahely s / vagy munkafolyamat a {0} felhasznlhoz! A naplt nem lehet menteni!", _User.FullName), MsgBoxStyle.OkOnly, "Krem, ellenrizze!") + 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?", _ + _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 belltva munkahely s / vagy munkafolyamat a {0} felhasznlhoz!", _User.FullName), MsgBoxStyle.OkOnly, "Krem, ellenrizze!") + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb new file mode 100644 index 0000000..1215143 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb @@ -0,0 +1,46 @@ +Partial Class BusinessDirectory_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOpenDashboardforView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOpenDashboardforView + ' + Me.aOpenDashboardforView.Caption = "aOpen Dashboardfor View" + Me.aOpenDashboardforView.ConfirmationMessage = Nothing + Me.aOpenDashboardforView.Id = "aOpenDashboardforView" + Me.aOpenDashboardforView.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aOpenDashboardforView.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aOpenDashboardforView.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aOpenDashboardforView.ToolTip = Nothing + Me.aOpenDashboardforView.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aOpenDashboardforView As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx new file mode 100644 index 0000000..f652120 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb new file mode 100644 index 0000000..6a7e2f3 --- /dev/null +++ b/SISBusiness.Module.Web/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.Designer.vb b/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.Designer.vb new file mode 100644 index 0000000..b0b515a --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ASPxGridViewVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.vb b/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.vb new file mode 100644 index 0000000..25290d5 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ASPxGridViewVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.Designer.vb b/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.Designer.vb new file mode 100644 index 0000000..7ee7abd --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class AboutInfoCustomizationVC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.vb b/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.vb new file mode 100644 index 0000000..0a5ab0a --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/AboutInfoCustomizationVC.vb @@ -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 & "
" + If GLOBAL_Company_Info <> "" Then _CustomAboutString += "" & GLOBAL_Company_Info & "

" + If _PartnerInfo <> "" Then _CustomAboutString += "" & _PartnerInfo & "

" + _CustomAboutString += Application.Model.Application.Description & "
" + _CustomAboutString += "Version: " & System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString & "
" + _CustomAboutString += "Copyright (C) " & Application.Model.Copyright + + Return _CustomAboutString + End Function + +End Class diff --git a/SISBusiness.Module.Web/Controllers/DashboardViewerVC.Designer.vb b/SISBusiness.Module.Web/Controllers/DashboardViewerVC.Designer.vb new file mode 100644 index 0000000..d486461 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/DashboardViewerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DashboardViewerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/DashboardViewerVC.vb b/SISBusiness.Module.Web/Controllers/DashboardViewerVC.vb new file mode 100644 index 0000000..f4cc6ac --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/DashboardViewerVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/HTMLEditorVC.Designer.vb b/SISBusiness.Module.Web/Controllers/HTMLEditorVC.Designer.vb new file mode 100644 index 0000000..4d59543 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/HTMLEditorVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HTMLEditorVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/HTMLEditorVC.vb b/SISBusiness.Module.Web/Controllers/HTMLEditorVC.vb new file mode 100644 index 0000000..980056c --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/HTMLEditorVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/ListViewProcessVC.Designer.vb b/SISBusiness.Module.Web/Controllers/ListViewProcessVC.Designer.vb new file mode 100644 index 0000000..2d2dba5 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ListViewProcessVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ListViewProcessVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/ListViewProcessVC.vb b/SISBusiness.Module.Web/Controllers/ListViewProcessVC.vb new file mode 100644 index 0000000..40b7cb5 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ListViewProcessVC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Web.SystemModule +Imports DevExpress.ExpressApp.SystemModule + +Public Class ListViewProcessVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then + Else + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then + Else + Frame.GetController(Of ListViewController).EditAction.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Web/Controllers/LogonWC.Designer.vb b/SISBusiness.Module.Web/Controllers/LogonWC.Designer.vb new file mode 100644 index 0000000..90f413d --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/LogonWC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class LogonWC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/LogonWC.vb b/SISBusiness.Module.Web/Controllers/LogonWC.vb new file mode 100644 index 0000000..64478e3 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/LogonWC.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports Microsoft.VisualBasic +Imports System.Web +Imports System.Web.Security +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base + +Public Class LogonWC + Inherits DevExpress.ExpressApp.WindowController + Public SISBusinessAction As SingleChoiceAction + Public Const DBName As String = "Gatya; Zokni" + Public Sub New() + Me.TargetWindowType = WindowType.Main + + 'If WebApplication.OldStyleLayout Then + ' SISBusinessAction = New SingleChoiceAction(Me, "SISBusiness", "Tools") + 'Else + ' SISBusinessAction = New SingleChoiceAction(Me, "SISBusiness", "Security") + 'End If + 'For Each databaseName As String In DBName.Split(";"c) + ' SISBusinessAction.Items.Add(New ChoiceActionItem(databaseName, databaseName)) + 'Next databaseName + 'AddHandler SISBusinessAction.Execute, AddressOf SISBusinessAction_Execute + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + 'For Each item As ChoiceActionItem In SISBusinessAction.Items + ' If Application.ConnectionString.Contains(CStr(item.Data)) Then + ' SISBusinessAction.SelectedItem = item + ' Exit For + ' End If + 'Next item + End Sub + Private Sub SISBusinessAction_Execute(ByVal sender As Object, ByVal e As SingleChoiceActionExecuteEventArgs) + 'WebApplication.Redirect(FormsAuthentication.DefaultUrl & "?" & DBName & "=" & CStr(e.SelectedChoiceActionItem.Data)) + End Sub +End Class + diff --git a/SISBusiness.Module.Web/Controllers/OpenObjectController.Designer.vb b/SISBusiness.Module.Web/Controllers/OpenObjectController.Designer.vb new file mode 100644 index 0000000..f978edf --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/OpenObjectController.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OpenObjectController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/OpenObjectController.vb b/SISBusiness.Module.Web/Controllers/OpenObjectController.vb new file mode 100644 index 0000000..43c7c55 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/OpenObjectController.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/QuickCreateVC.Designer.vb b/SISBusiness.Module.Web/Controllers/QuickCreateVC.Designer.vb new file mode 100644 index 0000000..2edaf8d --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/QuickCreateVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuickCreateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/QuickCreateVC.vb b/SISBusiness.Module.Web/Controllers/QuickCreateVC.vb new file mode 100644 index 0000000..e8d3fe1 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/QuickCreateVC.vb @@ -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 + diff --git a/SISBusiness.Module.Web/Controllers/ResetSettingsVC.Designer.vb b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.Designer.vb new file mode 100644 index 0000000..9e9d52e --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class ResetSettingsVC + + _ + 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. + _ + 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. + _ + 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 diff --git a/SISBusiness.Module.Web/Controllers/ResetSettingsVC.resx b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.resx new file mode 100644 index 0000000..26890bb --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/Controllers/ResetSettingsVC.vb b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.vb new file mode 100644 index 0000000..a2ce5dd --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ResetSettingsVC.vb @@ -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 TILTS ! + '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 diff --git a/SISBusiness.Module.Web/Controllers/ViewModeEditVC.Designer.vb b/SISBusiness.Module.Web/Controllers/ViewModeEditVC.Designer.vb new file mode 100644 index 0000000..b476f55 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ViewModeEditVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ViewModeEditVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/ViewModeEditVC.vb b/SISBusiness.Module.Web/Controllers/ViewModeEditVC.vb new file mode 100644 index 0000000..4bf8b4d --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/ViewModeEditVC.vb @@ -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 diff --git a/SISBusiness.Module.Web/Controllers/WebAllowSortViewController.vb b/SISBusiness.Module.Web/Controllers/WebAllowSortViewController.vb new file mode 100644 index 0000000..e2706b1 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/WebAllowSortViewController.vb @@ -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 + + diff --git a/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.Designer.vb b/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.Designer.vb new file mode 100644 index 0000000..d60a6d4 --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.Designer.vb @@ -0,0 +1,32 @@ +Partial Class WebGroupFooterViewController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.vb b/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.vb new file mode 100644 index 0000000..c470a2b --- /dev/null +++ b/SISBusiness.Module.Web/Controllers/WebGroupFooterViewController.vb @@ -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 + + + diff --git a/SISBusiness.Module.Web/Editor/DashboardViewerPropertyEditor.vb b/SISBusiness.Module.Web/Editor/DashboardViewerPropertyEditor.vb new file mode 100644 index 0000000..78e446a --- /dev/null +++ b/SISBusiness.Module.Web/Editor/DashboardViewerPropertyEditor.vb @@ -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 diff --git a/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.Designer.vb b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.Designer.vb new file mode 100644 index 0000000..48f233b --- /dev/null +++ b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.Designer.vb @@ -0,0 +1,48 @@ + _ +Partial Class DashboardViewerUserControl + Inherits DevExpress.XtraEditors.XtraUserControl + + 'UserControl overrides dispose to clean up the component list. + _ + 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. + _ + 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 diff --git a/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.resx b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.vb b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.vb new file mode 100644 index 0000000..265b486 --- /dev/null +++ b/SISBusiness.Module.Web/Editor/DashboardViewerUserControl.vb @@ -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 diff --git a/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.Designer.vb b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.Designer.vb new file mode 100644 index 0000000..5f66e92 --- /dev/null +++ b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.Designer.vb @@ -0,0 +1,35 @@ +Partial Class MobileListDashboardVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'aViewDashboardBase + ' + + End Sub + +End Class diff --git a/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.resx b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.resx new file mode 100644 index 0000000..cd3830e --- /dev/null +++ b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.vb b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.vb new file mode 100644 index 0000000..833f096 --- /dev/null +++ b/SISBusiness.Module.Web/Mobile/MobileListDashboardVC.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base + +Public Class MobileListDashboardVC + Inherits SISBusiness.Module.MobileListDashboardsVC + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aViewDashboardBase_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewDashboardBase.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _MobileListDashboards As MobileListDashboards = TryCast(View.SelectedObjects(0), MobileListDashboards) + + If _MobileListDashboards IsNot Nothing Then + If _MobileListDashboards.BusinessDirectory IsNot Nothing Then + Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _MobileListDashboards.BusinessDirectory.FileData.FileName) + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write) + _MobileListDashboards.BusinessDirectory.FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + + If IO.File.Exists(_FileName) Then + GLOBAL_DASHBOARD_XML_DashboardXmlFile = _FileName + GLOBAL_DASHBOARD_XML_UserName = _MobileListDashboards.BusinessDirectory.DashBoard_UserName + GLOBAL_DASHBOARD_XML_Password = _MobileListDashboards.BusinessDirectory.DashBoard_Password + GLOBAL_DASHBOARD_XML_ServerName = _MobileListDashboards.BusinessDirectory.DashBoard_Server + GLOBAL_DASHBOARD_XML_DatabaseName = _MobileListDashboards.BusinessDirectory.DashBoard_Database + Select Case _MobileListDashboards.BusinessDirectory.SQLType + Case eSQLType.MSSQL + GLOBAL_DASHBOARD_XML_SQLType = "MSSQL" + Case eSQLType.MySQL + GLOBAL_DASHBOARD_XML_SQLType = "MYSQL" + Case eSQLType.PostgreSQL + GLOBAL_DASHBOARD_XML_SQLType = "PSQL" + End Select + + DevExpress.ExpressApp.Web.WebWindow.CurrentRequestWindow.RegisterStartupScript("ShowCustomFormScriptKey", String.Format("window.open('{0}');", "Controls/DashboardViewer.aspx")) + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Web/Model.DesignedDiffs.Localization.hu.xafml b/SISBusiness.Module.Web/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..fdadafa --- /dev/null +++ b/SISBusiness.Module.Web/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,242 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/Model.DesignedDiffs.xafml b/SISBusiness.Module.Web/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..3deb73d --- /dev/null +++ b/SISBusiness.Module.Web/Model.DesignedDiffs.xafml @@ -0,0 +1,796 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/My Project/Application.Designer.vb b/SISBusiness.Module.Web/My Project/Application.Designer.vb new file mode 100644 index 0000000..82fe712 --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Module.Web/My Project/Application.myapp b/SISBusiness.Module.Web/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Module.Web/My Project/AssemblyInfo.vb b/SISBusiness.Module.Web/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..d42c692 --- /dev/null +++ b/SISBusiness.Module.Web/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.Module.Web/My Project/Resources.Designer.vb b/SISBusiness.Module.Web/My Project/Resources.Designer.vb new file mode 100644 index 0000000..1e56095 --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Web.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web/My Project/Resources.resx b/SISBusiness.Module.Web/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Module.Web/My Project/Settings.Designer.vb b/SISBusiness.Module.Web/My Project/Settings.Designer.vb new file mode 100644 index 0000000..9281cde --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.[Module].Web.My.MySettings + Get + Return Global.SISBusiness.[Module].Web.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Web/My Project/Settings.settings b/SISBusiness.Module.Web/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Module.Web/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Module.Web/My Project/licenses.licx b/SISBusiness.Module.Web/My Project/licenses.licx new file mode 100644 index 0000000..ad51b4f --- /dev/null +++ b/SISBusiness.Module.Web/My Project/licenses.licx @@ -0,0 +1,3 @@ + + +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/SISBusiness.Module.Web/QuickCreate.Designer.vb b/SISBusiness.Module.Web/QuickCreate.Designer.vb new file mode 100644 index 0000000..e7c9f2b --- /dev/null +++ b/SISBusiness.Module.Web/QuickCreate.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuickCreate + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Web/QuickCreate.vb b/SISBusiness.Module.Web/QuickCreate.vb new file mode 100644 index 0000000..ec619fa --- /dev/null +++ b/SISBusiness.Module.Web/QuickCreate.vb @@ -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 + diff --git a/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj b/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj new file mode 100644 index 0000000..59ba2da --- /dev/null +++ b/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj @@ -0,0 +1,524 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {B87EACCF-FA6C-4043-AA73-800C77D8DF11} + Library + SISBusiness.Module.Web + SISBusiness.Module.Web + Windows + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.0 + + + 4.0 + + true + http://localhost/SISBusiness.Module.Web/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + + + true + bin\R64\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + AnyCPU + AllRules.ruleset + + + + False + + + False + + + False + + + + + False + + + False + + + + + + + + + + + + + + + + + + + False + + + False + + + False + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + + + + False + + + False + + + False + + + False + + + + + + + False + + + False + + + + + + + + + + + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll + + + False + + + False + + + + + + False + + + + + + + + + + + + + InstallationVC.vb + + + Component + + + SubcontractorVC.vb + + + Component + + + PCIGroupVC.vb + + + Component + + + HRPersonEventVC.vb + + + Component + + + OperationalLog_VC.vb + + + Component + + + BusinessDirectory_VC.vb + + + Component + + + AboutInfoCustomizationVC.vb + + + Component + + + ASPxGridViewVC.vb + + + Component + + + WorkSheet_VC.vb + + + Component + + + GLAccountsVC.vb + + + Component + + + GLBankVC.vb + + + Component + + + GLCassaVC.vb + + + Component + + + GLCompensationVC.vb + + + Component + + + GLMixedVC.vb + + + Component + + + DashboardViewerVC.vb + + + Component + + + HTMLEditorVC.vb + + + Component + + + ListViewProcessVC.vb + + + Component + + + LogonWC.vb + + + Component + + + OpenObjectController.vb + + + Component + + + ResetSettingsVC.vb + + + Component + + + + DashboardViewerUserControl.vb + + + UserControl + + + MobileListDashboardVC.vb + + + Component + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + QuickCreateVC.vb + + + Component + + + QuestionVC.vb + + + Component + + + MySchedule_VC.vb + + + Component + + + + ViewModeEditVC.vb + + + Component + + + Component + + + WebGroupFooterViewController.vb + + + Component + + + WebModule.vb + + + Component + + + + + WorkSheet_VC.vb + + + InstallationVC.vb + + + SubcontractorVC.vb + + + GLAccountsVC.vb + + + PCIGroupVC.vb + + + OperationalLog_VC.vb + + + BusinessDirectory_VC.vb + + + ResetSettingsVC.vb + + + DashboardViewerUserControl.vb + + + MobileListDashboardVC.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + QuestionVC.vb + + + WebModule.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + Designer + + + Model.DesignedDiffs.xafml + Designer + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + SISBusiness.Module + + + + + Model.DesignedDiffs.xafml + Designer + + + + + Model.DesignedDiffs.xafml + Designer + + + + + Model.DesignedDiffs.xafml + Designer + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj.vspscc b/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module.Web/SISBusiness.Module.Web.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module.Web/UnusableNodes.xml b/SISBusiness.Module.Web/UnusableNodes.xml new file mode 100644 index 0000000..70c470d --- /dev/null +++ b/SISBusiness.Module.Web/UnusableNodes.xml @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/UnusableNodes1.xml b/SISBusiness.Module.Web/UnusableNodes1.xml new file mode 100644 index 0000000..70e773d --- /dev/null +++ b/SISBusiness.Module.Web/UnusableNodes1.xml @@ -0,0 +1,28 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/UnusableNodes_hu.xml b/SISBusiness.Module.Web/UnusableNodes_hu.xml new file mode 100644 index 0000000..34cba81 --- /dev/null +++ b/SISBusiness.Module.Web/UnusableNodes_hu.xml @@ -0,0 +1,19 @@ + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/Updater.vb b/SISBusiness.Module.Web/Updater.vb new file mode 100644 index 0000000..c82aa70 --- /dev/null +++ b/SISBusiness.Module.Web/Updater.vb @@ -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 diff --git a/SISBusiness.Module.Web/WebModule.Designer.vb b/SISBusiness.Module.Web/WebModule.Designer.vb new file mode 100644 index 0000000..1d35362 --- /dev/null +++ b/SISBusiness.Module.Web/WebModule.Designer.vb @@ -0,0 +1,53 @@ +Imports Microsoft.VisualBasic +Imports System + +Partial Public Class SISBusinessAspNetModule + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + ' + 'SISBusinessAspNetModule + ' + Me.RequiredModuleTypes.Add(GetType(SISBusiness.[Module].SISBusinessModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.AuditTrail.AuditTrailModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Chart.Web.ChartAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.CloneObject.CloneObjectModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Kpi.KpiModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.ValidationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Security.SecurityModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule)) + + End Sub + +#End Region +End Class diff --git a/SISBusiness.Module.Web/WebModule.resx b/SISBusiness.Module.Web/WebModule.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Web/WebModule.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Web/WebModule.vb b/SISBusiness.Module.Web/WebModule.vb new file mode 100644 index 0000000..4b7ae31 --- /dev/null +++ b/SISBusiness.Module.Web/WebModule.vb @@ -0,0 +1,15 @@ +Imports System +Imports System.Text +Imports System.Collections.Generic +Imports System.ComponentModel + +Imports DevExpress.ExpressApp + + _ +Partial Public NotInheritable Class [SISBusinessAspNetModule] + Inherits ModuleBase + Public Sub New() + InitializeComponent() + End Sub +End Class + diff --git a/SISBusiness.Module.Web/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.Web/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..6d96e27 Binary files /dev/null and b/SISBusiness.Module.Web/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.Web/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.Web/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..ba335c0 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.BusinessDirectory_VC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.DashboardViewerUserControl.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.DashboardViewerUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.DashboardViewerUserControl.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.GLAccountsVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.GLAccountsVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.InstallationVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.InstallationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.InstallationVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.MobileListDashboardVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.MobileListDashboardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.MobileListDashboardVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.OperationalLog_VC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.OperationalLog_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.OperationalLog_VC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.PCIGroupVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.PCIGroupVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.PCIGroupVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.QuestionVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.QuestionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.QuestionVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.ResetSettingsVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.ResetSettingsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.ResetSettingsVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.Resources.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.Resources.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SISBusinessAspNetModule.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SISBusinessAspNetModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SISBusinessAspNetModule.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SubcontractorVC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SubcontractorVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.SubcontractorVC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.WorkSheet_VC.resources b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.WorkSheet_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.WorkSheet_VC.resources differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.dll b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.dll new file mode 100644 index 0000000..b0590de Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.dll differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.FileListAbsolute.txt b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..d665b85 --- /dev/null +++ b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.FileListAbsolute.txt @@ -0,0 +1,444 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\SISBusiness.Module.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\hu\SISBusiness.Module.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Chart.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.FileAttachment.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Images.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotChart.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotGrid.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Reports.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Scheduler.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.TreeListEditors.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxHtmlEditor.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxSpellChecker.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.SpellChecker.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.TreeListEditors.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Chart.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.FileAttachment.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotChart.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.PivotGrid.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Reports.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Scheduler.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxHtmlEditor.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxSpellChecker.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.ASPxTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Dashboard.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraReports.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.SpellChecker.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\bin\R64\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.WorkSheet_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.InstallationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.SubcontractorVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.PCIGroupVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.OperationalLog_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.ResetSettingsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.DashboardViewerUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.MobileListDashboardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.QuestionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.SISBusinessAspNetModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\hu\SISBusiness.Module.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Web\obj\R64\SISBusiness.Module.Web.dll diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.GenerateResource.Cache b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..69f5274 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbprojResolveAssemblyReference.cache b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..7c15a3a Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/SISBusiness.Module.Web.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module.Web/obj/R64/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Module.Web/obj/R64/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..b01383a Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Module.Web/obj/R64/hu/SISBusiness.Module.Web.resources.dll b/SISBusiness.Module.Web/obj/R64/hu/SISBusiness.Module.Web.resources.dll new file mode 100644 index 0000000..737c1d1 Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/hu/SISBusiness.Module.Web.resources.dll differ diff --git a/SISBusiness.Module.Web/obj/R64/sisbusiness.module.web.dll.licenses b/SISBusiness.Module.Web/obj/R64/sisbusiness.module.web.dll.licenses new file mode 100644 index 0000000..f26246d Binary files /dev/null and b/SISBusiness.Module.Web/obj/R64/sisbusiness.module.web.dll.licenses differ diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoice.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoice.vb new file mode 100644 index 0000000..22831ae --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoice.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class C3CGeneratedInvoice + Inherits BaseObject + Private _C3CImportHeader As C3CImportHeader + Private _InvoiceHeader As InvoiceHeader + Private _PdfOriginalWithAttachments As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property C3CImportHeader As C3CImportHeader + Get + Return _C3CImportHeader + End Get + Set(value As C3CImportHeader) + SetPropertyValue("C3CImportHeader", _C3CImportHeader, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property PdfOriginalWithAttachments As FileData + Get + Return _PdfOriginalWithAttachments + End Get + Set(value As FileData) + SetPropertyValue("PdfOriginalWithAttachments", _PdfOriginalWithAttachments, value) + End Set + End Property + _ + _ + ReadOnly Property DocumentFile() As XPCollection(Of C3CGeneratedInvoiceDocuments) + Get + Return GetCollection(Of C3CGeneratedInvoiceDocuments)("DocumentFile") + End Get + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoiceDocuments.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoiceDocuments.vb new file mode 100644 index 0000000..00c5f1c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CGeneratedInvoiceDocuments.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class C3CGeneratedInvoiceDocuments + Inherits FileAttachmentBase + Private _C3CGeneratedInvoice As C3CGeneratedInvoice + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Public Property C3CGeneratedInvoice() As C3CGeneratedInvoice + Get + Return _C3CGeneratedInvoice + End Get + Set(ByVal value As C3CGeneratedInvoice) + SetPropertyValue("C3CGeneratedInvoice", _C3CGeneratedInvoice, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportHeader.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportHeader.vb new file mode 100644 index 0000000..eaef316 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportHeader.vb @@ -0,0 +1,141 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class C3CImportHeader + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Sajt cg ktelez + 'Private _InvoiceType As InvoiceType 'Szmla tipusa ktelez + 'Private _PaymentOption As PaymentOption 'Ktelez + Private _ShortName As String + Private _FileItems As FileData + Private _FileInvoices As FileData + Private _UserCreated As User + Private _ObjectCreated As Date + Private _OutputDirectory As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Public Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + ' _ + 'Public Property InvoiceType As InvoiceType + ' Get + ' Return _InvoiceType + ' End Get + ' Set(ByVal value As InvoiceType) + ' SetPropertyValue("InvoiceType", _InvoiceType, value) + ' End Set + 'End Property + ' _ + 'Public Property PaymentOption As PaymentOption + ' Get + ' Return _PaymentOption + ' End Get + ' Set(ByVal value As PaymentOption) + ' SetPropertyValue("PaymentOption", _PaymentOption, value) + ' End Set + 'End Property + _ + Public Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Public Property FileItems As FileData + Get + Return _FileItems + End Get + Set(ByVal value As FileData) + SetPropertyValue("FileItems", _FileItems, value) + End Set + End Property + _ + Public Property FileInvoices As FileData + Get + Return _FileInvoices + End Get + Set(ByVal value As FileData) + SetPropertyValue("FileInvoices", _FileInvoices, value) + End Set + End Property + _ + Public Property UserCreated As User + Get + Return _UserCreated + End Get + Set(ByVal value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Public Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Public Property OutputDirectory As String + Get + Return _OutputDirectory + End Get + Set(value As String) + SetPropertyValue("OutputDirectory", _OutputDirectory, value) + End Set + End Property + + _ + _ + _ + ReadOnly Property C3CImportRows As XPCollection(Of C3CImportRows) + Get + Return GetCollection(Of C3CImportRows)("C3CImportRows") + End Get + End Property + _ + _ + _ + ReadOnly Property C3CGeneratedInvoice As XPCollection(Of C3CGeneratedInvoice) + Get + Return GetCollection(Of C3CGeneratedInvoice)("C3CGeneratedInvoice") + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportRows.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportRows.vb new file mode 100644 index 0000000..d5a5700 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CImportRows.vb @@ -0,0 +1,125 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class C3CImportRows + Inherits BaseObject + Private _C3CImportHeader As C3CImportHeader + Private _RowIndex As Long + Private _Col01 As String + Private _Col02 As String + Private _Col03 As String + Private _Col04 As String + Private _Col05 As String + Private _Col06 As String + Private _Col07 As String + Private _Col08 As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property C3CImportHeader As C3CImportHeader + Get + Return _C3CImportHeader + End Get + Set(value As C3CImportHeader) + SetPropertyValue("C3CImportHeader", _C3CImportHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property Col01 As String + Get + Return _Col01 + End Get + Set(value As String) + SetPropertyValue("Col01", _Col01, value) + End Set + End Property + _ + Property Col02 As String + Get + Return _Col02 + End Get + Set(ByVal value As String) + SetPropertyValue("Col02", _Col02, value) + End Set + End Property + _ + Property Col03 As String + Get + Return _Col03 + End Get + Set(ByVal value As String) + SetPropertyValue("Col03", _Col03, value) + End Set + End Property + _ + Property Col04 As String + Get + Return _Col04 + End Get + Set(ByVal value As String) + SetPropertyValue("Col04", _Col04, value) + End Set + End Property + _ + Property Col05 As String + Get + Return _Col05 + End Get + Set(ByVal value As String) + SetPropertyValue("Col05", _Col05, value) + End Set + End Property + _ + Property Col06 As String + Get + Return _Col06 + End Get + Set(ByVal value As String) + SetPropertyValue("Col06", _Col06, value) + End Set + End Property + _ + Property Col07 As String + Get + Return _Col07 + End Get + Set(ByVal value As String) + SetPropertyValue("Col07", _Col07, value) + End Set + End Property + _ + Property Col08 As String + Get + Return _Col08 + End Get + Set(ByVal value As String) + SetPropertyValue("Col08", _Col08, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomInvoiceType.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomInvoiceType.vb new file mode 100644 index 0000000..2cdfe33 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomInvoiceType.vb @@ -0,0 +1,79 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class C3CTelecomInvoiceType + Inherits BaseObject + Private _CurrencyName As CurrencyName + Private _ReportData As ReportData + Private _InvoiceType As InvoiceType + Private _PaymentOption As PaymentOption + Private _BankInformation As BankInformation + Private _Controlling As Controlling + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + _ + Public Property InvoiceType As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + _ + Public Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(value As BankInformation) + SetPropertyValue("BankInformation", _BankInformation, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.Designer.vb new file mode 100644 index 0000000..0be8d50 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.Designer.vb @@ -0,0 +1,151 @@ +Partial Class C3CTelecomVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aC3CTelecomImports = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aC3CCreateInvoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinalizeInvoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintInvoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrinttoPdfInvoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewOriginalWithAttachment = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aExportPDFtoOutputDirectory = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aC3CTelecomImports + ' + Me.aC3CTelecomImports.Caption = "Imoprt from file" + Me.aC3CTelecomImports.ConfirmationMessage = "Do you want to execute command ?" + Me.aC3CTelecomImports.Id = "aC3CTelecomImports" + Me.aC3CTelecomImports.ImageName = "document_into" + Me.aC3CTelecomImports.Shortcut = Nothing + Me.aC3CTelecomImports.Tag = Nothing + Me.aC3CTelecomImports.TargetObjectsCriteria = Nothing + Me.aC3CTelecomImports.TargetViewId = "C3CImportHeader_DetailView" + Me.aC3CTelecomImports.ToolTip = Nothing + Me.aC3CTelecomImports.TypeOfView = Nothing + ' + 'aC3CCreateInvoice + ' + Me.aC3CCreateInvoice.AcceptButtonCaption = Nothing + Me.aC3CCreateInvoice.CancelButtonCaption = Nothing + Me.aC3CCreateInvoice.Caption = "Create invoice" + Me.aC3CCreateInvoice.ConfirmationMessage = Nothing + Me.aC3CCreateInvoice.Id = "aC3CCreateInvoice" + Me.aC3CCreateInvoice.ImageName = "document_lock" + Me.aC3CCreateInvoice.Shortcut = Nothing + Me.aC3CCreateInvoice.Tag = Nothing + Me.aC3CCreateInvoice.TargetObjectsCriteria = Nothing + Me.aC3CCreateInvoice.TargetViewId = "C3CImportHeader_DetailView" + Me.aC3CCreateInvoice.ToolTip = Nothing + Me.aC3CCreateInvoice.TypeOfView = Nothing + ' + 'aFinalizeInvoices + ' + Me.aFinalizeInvoices.Caption = "aFinalize Invoices" + Me.aFinalizeInvoices.Category = "ObjectsCreation" + Me.aFinalizeInvoices.ConfirmationMessage = "Do you want to execute a command?" + Me.aFinalizeInvoices.Id = "aFinalizeInvoices" + Me.aFinalizeInvoices.ImageName = Nothing + Me.aFinalizeInvoices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalizeInvoices.Shortcut = Nothing + Me.aFinalizeInvoices.Tag = Nothing + Me.aFinalizeInvoices.TargetObjectsCriteria = Nothing + Me.aFinalizeInvoices.TargetViewId = "C3CImportHeader_C3CGeneratedInvoice_ListView" + Me.aFinalizeInvoices.ToolTip = Nothing + Me.aFinalizeInvoices.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aPrintInvoices + ' + Me.aPrintInvoices.Caption = "aPrint Invoices" + Me.aPrintInvoices.Category = "ObjectsCreation" + Me.aPrintInvoices.ConfirmationMessage = "Do you want to execute a command?" + Me.aPrintInvoices.Id = "aPrintInvoices" + Me.aPrintInvoices.ImageName = Nothing + Me.aPrintInvoices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintInvoices.Shortcut = Nothing + Me.aPrintInvoices.Tag = Nothing + Me.aPrintInvoices.TargetObjectsCriteria = Nothing + Me.aPrintInvoices.TargetViewId = "C3CImportHeader_C3CGeneratedInvoice_ListView" + Me.aPrintInvoices.ToolTip = Nothing + Me.aPrintInvoices.TypeOfView = Nothing + ' + 'aPrinttoPdfInvoices + ' + Me.aPrinttoPdfInvoices.Caption = "aPrinttoPdfInvoices" + Me.aPrinttoPdfInvoices.Category = "ObjectsCreation" + Me.aPrinttoPdfInvoices.ConfirmationMessage = "Do you want to execute a command?" + Me.aPrinttoPdfInvoices.Id = "aPrinttoPdfInvoices" + Me.aPrinttoPdfInvoices.ImageName = Nothing + Me.aPrinttoPdfInvoices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrinttoPdfInvoices.Shortcut = Nothing + Me.aPrinttoPdfInvoices.Tag = Nothing + Me.aPrinttoPdfInvoices.TargetObjectsCriteria = Nothing + Me.aPrinttoPdfInvoices.TargetViewId = "C3CImportHeader_C3CGeneratedInvoice_ListView" + Me.aPrinttoPdfInvoices.ToolTip = Nothing + Me.aPrinttoPdfInvoices.TypeOfView = Nothing + ' + 'aViewOriginalWithAttachment + ' + Me.aViewOriginalWithAttachment.Caption = "aViewOriginalWithAttachment" + Me.aViewOriginalWithAttachment.Category = "ObjectsCreation" + Me.aViewOriginalWithAttachment.ConfirmationMessage = "Do you want to execute a command?" + Me.aViewOriginalWithAttachment.Id = "aViewOriginalWithAttachment" + Me.aViewOriginalWithAttachment.ImageName = Nothing + Me.aViewOriginalWithAttachment.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewOriginalWithAttachment.Shortcut = Nothing + Me.aViewOriginalWithAttachment.Tag = Nothing + Me.aViewOriginalWithAttachment.TargetObjectsCriteria = Nothing + Me.aViewOriginalWithAttachment.TargetViewId = "C3CImportHeader_C3CGeneratedInvoice_ListView" + Me.aViewOriginalWithAttachment.ToolTip = Nothing + Me.aViewOriginalWithAttachment.TypeOfView = Nothing + ' + 'aExportPDFtoOutputDirectory + ' + Me.aExportPDFtoOutputDirectory.AcceptButtonCaption = Nothing + Me.aExportPDFtoOutputDirectory.CancelButtonCaption = Nothing + Me.aExportPDFtoOutputDirectory.Caption = "aExport PDFto Output Directory" + Me.aExportPDFtoOutputDirectory.ConfirmationMessage = Nothing + Me.aExportPDFtoOutputDirectory.Id = "aExportPDFtoOutputDirectory" + Me.aExportPDFtoOutputDirectory.ImageName = Nothing + Me.aExportPDFtoOutputDirectory.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aExportPDFtoOutputDirectory.Shortcut = Nothing + Me.aExportPDFtoOutputDirectory.Tag = Nothing + Me.aExportPDFtoOutputDirectory.TargetObjectsCriteria = Nothing + Me.aExportPDFtoOutputDirectory.TargetViewId = "C3CImportHeader_C3CGeneratedInvoice_ListView" + Me.aExportPDFtoOutputDirectory.ToolTip = Nothing + Me.aExportPDFtoOutputDirectory.TypeOfView = Nothing + + End Sub + Friend WithEvents aC3CTelecomImports As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aC3CCreateInvoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFinalizeInvoices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintInvoices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrinttoPdfInvoices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewOriginalWithAttachment As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aExportPDFtoOutputDirectory As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.resx b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.resx new file mode 100644 index 0000000..629c619 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 251 + + + 17, 212 + + + 17, 95 + + + 27, 285 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.vb new file mode 100644 index 0000000..07cdb6e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/C3CTelecomVC.vb @@ -0,0 +1,1035 @@ +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 System.IO +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Win.Editors +Imports Microsoft.VisualBasic + +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Reports + +Imports Gnostice.PDFOne +Imports System.Globalization +Imports DevExpress.Utils +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Class C3CTelecomVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Private Structure tItems + Dim Name As String + Dim FullName As String + Dim Unit As String + Dim VAT As String + Dim FullName_English As String + Dim Unit_English As String + End Structure + Private _ItemNumber As Integer = 100 + Private _aItems(_ItemNumber) As tItems + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "C3CImportHeader_C3CImportRows_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + + If View.Id = "C3CImportHeader_C3CGeneratedInvoice_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + + If View.Id = "C3CInvoicePopup_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + + If View.Id = "C3CGeneratedInvoice_DocumentFile_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeActivated() + MyBase.OnDeactivated() + If View.Id = "C3CImportHeader_C3CImportRows_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + + If View.Id = "C3CImportHeader_C3CGeneratedInvoice_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + + If View.Id = "C3CInvoicePopup_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub Import_Items(openString As FileData) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _MemoryStream As New MemoryStream + Dim _StreamReader As StreamReader + Dim _Line As String + Dim _sArray As Array + Dim _index As Integer + Dim _VAT As VAT + + For index = 0 To _ItemNumber - 1 + _aItems(index).Name = "" + Next + + openString.SaveToStream(_MemoryStream) + _MemoryStream.Position = 0 + _StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250) + _index = 0 + + Do While _StreamReader.Peek <> -1 + _Line = _StreamReader.ReadLine + _sArray = _Line.Split(";") + + On Error GoTo CheckError + + If _sArray.Length > 1 Then + _aItems(_index).Name = _sArray(0) + _aItems(_index).FullName = _sArray(4) + _aItems(_index).FullName_English = _sArray(60) + _aItems(_index).Unit = _sArray(8) + _aItems(_index).Unit_English = _sArray(59) + + Select Case _sArray(13) + Case "W27" : _aItems(_index).VAT = "27 %" + Case "W25" : _aItems(_index).VAT = "25 %" + Case "W0N" : _aItems(_index).VAT = "EU 0" + Case "W00" : _aItems(_index).VAT = "0 % Export" + End Select + + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", _aItems(_index).VAT)) + If _VAT Is Nothing Then + Throw New UserFriendlyException("A keresett ÁFA kód nem található, esetleg nem a várt formátumban található az üzleti törzsben.") + End If + + _index = _index + 1 + End If + Loop + +CheckError: + + If Err.Number = 9 Then Throw New UserFriendlyException("Hiba történt. Kérem ellenõrizze a bemeneti fájlokat.") + End Sub + Private Function GetItembyName(vName As String) As Long + For _index = 0 To _ItemNumber - 1 + If _aItems(_index).Name = vName Then + Return _index + End If + Next + + Return -1 + End Function + Private Sub aC3CTelecomImports_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aC3CTelecomImports.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _C3CImportRows As C3CImportRows = Nothing + + Dim _C3C As C3CImportHeader = TryCast(View.SelectedObjects(0), C3CImportHeader) + _C3C.Save() + View.ObjectSpace.CommitChanges() + + Dim _C3CImportHeader As C3CImportHeader = _uow.GetObjectByKey(Of C3CImportHeader)(_C3C.Oid) + + Dim _MemoryStream As New MemoryStream + Dim _StreamReader As StreamReader + Dim _C3CImportRows_Collection As New XPCollection(Of C3CImportRows)(_uow, CriteriaOperator.Parse("C3CImportHeader.Oid=?", _C3CImportHeader.Oid)) + Dim _Line As String + Dim _sArray As Array + Dim _result As Double = 0 + Dim _prev_result As Double = 0 + Dim _index As Long = 1 + Dim _GUID As Guid + Dim _Date As Date + Dim _Szj As String = "SZJ 64.20.18" + + Import_Items(_C3CImportHeader.FileItems) + + _uow.Delete(_C3CImportRows_Collection) + + _C3CImportHeader.FileInvoices.SaveToStream(_MemoryStream) + _MemoryStream.Position = 0 + _StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250) + Do While _StreamReader.Peek <> -1 + _Line = _StreamReader.ReadLine + _sArray = _Line.Split(";") + + If _sArray.Length > 1 Then + + If (_result <> _prev_result) Or _sArray(0) = "0" Then + _C3CImportRows = New C3CImportRows(_uow) + _C3CImportRows.C3CImportHeader = _C3CImportHeader + _C3CImportRows.RowIndex = _index + _index = _index + 1 + _GUID = Guid.NewGuid + _Date = Format(GetSQLTime(_ocur.Session), "yyyy-MM-dd") + '_Date = Convert.ToDateTime(GetSQLTime(_ocur.Session)) + '_Date = _Date.Date + If Double.TryParse(_sArray(2), _result) Then + If _result < 200000 Then + _result = 200000 + _result + End If + End If + + _C3CImportRows.Col01 = _result + _C3CImportRows.Col02 = _sArray(16) & ";" & _sArray(3) + _C3CImportRows.Col03 = Replace(_sArray(17), ".", ",") + _C3CImportRows.Col04 = _Date + _C3CImportRows.Col05 = _Date.AddDays(Convert.ToInt16(_sArray(18))) + _C3CImportRows.Col06 = _Date.AddDays(Convert.ToInt16(_sArray(18))) + _C3CImportRows.Col07 = _GUID.ToString + _C3CImportRows.Col08 = "H" + + _prev_result = _result + _C3CImportRows.Save() + End If + + If _sArray(0) <> "0" Then + If Convert.ToInt16(_sArray(0)) Mod 2 = 1 Then 'Páratlan azonosítójú sor. + _C3CImportRows = New C3CImportRows(_uow) + _C3CImportRows.C3CImportHeader = _C3CImportHeader + _C3CImportRows.RowIndex = _index + _index = _index + 1 + _C3CImportRows.Col01 = _Szj + _C3CImportRows.Col02 = _aItems(Me.GetItembyName(_sArray(29))).FullName & " " & vbNewLine & _aItems(Me.GetItembyName(_sArray(29))).FullName_English + Double.TryParse(_sArray(32), _C3CImportRows.Col03) + _C3CImportRows.Col04 = _aItems(Me.GetItembyName(_sArray(29))).Unit & "/" & _aItems(Me.GetItembyName(_sArray(29))).Unit_English + _C3CImportRows.Col05 = Replace(_sArray(36), ".", ",") + _C3CImportRows.Col06 = _aItems(Me.GetItembyName(_sArray(29))).VAT + Else 'Páros azonosítójú sor. + _C3CImportRows.Col02 = _C3CImportRows.Col02 & " " & vbNewLine + _sArray(39) + _C3CImportRows.Col07 = _GUID.ToString + _C3CImportRows.Col08 = "R" + _C3CImportRows.Save() + End If + + End If + + End If + + Loop + _C3CImportHeader.Save() + _uow.CommitChanges() + + Dim _C3CImportRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("C3CImportRows") + Dim _ListView As ListView = TryCast(_C3CImportRows_ListEditor.ListView, ListView) + + Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + Dim _columnInfo = _GridListEditor.FindColumn("RowIndex") + _columnInfo.SortIndex = 0 + _columnInfo.SortOrder = DevExpress.Data.ColumnSortOrder.Ascending + _GridListEditor.GridView.BestFitColumns() + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute() + End Sub + Private Sub aC3CCreateInvoice_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aC3CCreateInvoice.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _C3CImportHeader_old As C3CImportHeader = TryCast(View.SelectedObjects(0), C3CImportHeader) + _C3CImportHeader_old.Save() + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _C3CImportHeader As C3CImportHeader = _onew.GetObjectByKey(Of C3CImportHeader)(TryCast(View.SelectedObjects(0), C3CImportHeader).Oid) + 'Dim _PaymentOption As PaymentOption = TryCast(View.SelectedObjects(0), C3CImportHeader).PaymentOption ' Értéket átveszek röptiben, mert ha nincs mentés akkor a régi mentett értéket veszi át... + Dim _C3CInvoicePopup As New C3CInvoicePopup(_onew.Session) + + 'If Not _C3CImportHeader_old.Equals(_C3CImportHeader) Then 'Ha _C3CImportHeader_old különbözik _C3CImportHeader akkor figyelmeztetés. Csak akkor legyen save, ha biztosan jó ez így. + ' Dim _result As Windows.Forms.DialogResult = Windows.Forms.MessageBox.Show("A fejléc adatai megváltoztak. Biztosan ezekkel az adatokkal kíván számlát készíteni?", _ + ' "Kérdés", Windows.Forms.MessageBoxButtons.YesNo, _ + ' Windows.Forms.MessageBoxIcon.Question, _ + ' Windows.Forms.MessageBoxDefaultButton.Button1) + ' If _result = Windows.Forms.DialogResult.No Then + ' Exit Sub 'Exceptiont dob. Miért? + ' Else + ' _C3CImportHeader_old.Save() + ' _ocur.CommitChanges() + ' End If + 'End If + + 'If _C3CImportHeader.PaymentOption.PayMode = 1 Then + ' _C3CInvoicePopup.IsRequiredBankInformation = True + 'Else + ' _C3CInvoicePopup.IsRequiredBankInformation = False + 'End If + _C3CInvoicePopup.CustomersFrom = _C3CImportHeader.CustomersFrom + e.View = Application.CreateDetailView(_onew, _C3CInvoicePopup, False) + End Sub + Private Sub aC3CCreateInvoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aC3CCreateInvoice.Execute + 'Számla készítése a megadott táblázat alapján + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + 'Dim _nf As NumberFormatInfo = New NumberFormatInfo + 'Dim _DecimalSeparator As String = _nf.NumberDecimalSeparator + 'Dim _GroupSeparator As String = _nf.NumberGroupSeparator + + '_nf.NumberDecimalSeparator = "," + '_nf.NumberGroupSeparator = " " + + Dim _C3CImportHeader As C3CImportHeader = TryCast(View.SelectedObjects(0), C3CImportHeader) + Dim _C3CInvoicePopup As C3CInvoicePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), C3CInvoicePopup) + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + Dim _C3CTelecomInvoiceType As C3CTelecomInvoiceType = Nothing + Dim _InvoiceHeader As InvoiceHeader = Nothing + Dim _InvoiceRows As InvoiceRows + Dim _C3CImportRows As C3CImportRows + Dim _Customers As Customers + Dim _index As Int16 = 0 + Dim _period As String = "" + Dim _NG As NumberGenerator + + Dim _CustomsTariffs As CustomsTariffs + Dim _Units As Units + + + For Each _GeneratedInv As C3CGeneratedInvoice In _C3CImportHeader.C3CGeneratedInvoice + If _GeneratedInv.InvoiceHeader.IsProforma Then + + _ocur.Delete(_GeneratedInv.InvoiceHeader.InvoiceRows) + _ocur.Delete(_GeneratedInv.InvoiceHeader) 'Biztos, hogy nem kellene inkább stornózni??? + Else + Throw New UserFriendlyException("Csak proforma számlák generálhatóak újra.") + End If + Next + _ocur.Delete(_C3CImportHeader.C3CGeneratedInvoice) + + + _C3CImportHeader.C3CImportRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _WaitFormClass.InitWork(1, 1, _C3CImportHeader.C3CImportRows.Count) + For Each _C3CImportRows In _C3CImportHeader.C3CImportRows + _WaitFormClass.DoWork() + If _C3CImportRows.Col08 = "H" Then + 'Try + _Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", _C3CImportRows.Col01)) + 'Catch ex As Exception + 'Throw New UserFriendlyException("A számlázásra kiválasztott ügyfél nem található az ügyféltörzsben.") + 'End Try + + _period = _C3CImportRows.Col02.Substring(4) + + On Error GoTo CheckError + + '-------------FEJLÉC LÉTREHOZÁSA----------------------------------------------------------------------------------- + _C3CTelecomInvoiceType = _ocur.FindObject(Of C3CTelecomInvoiceType)(CriteriaOperator.Parse("CurrencyName.ShortName=?", _C3CImportRows.Col02.Substring(0, 3))) + + _InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _C3CImportHeader.CustomersFrom + _InvoiceHeader.InvoiceType = _C3CTelecomInvoiceType.InvoiceType + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + _InvoiceHeader.Customers = _Customers + _InvoiceHeader.DateCreated = _C3CImportRows.Col04 + _InvoiceHeader.DateExecution = _C3CImportRows.Col05 + _InvoiceHeader.DatePayment = _C3CImportRows.Col06 + _InvoiceHeader.Description = _C3CInvoicePopup.Description + '_InvoiceHeader.BankInformation = _ocur.GetObjectByKey(Of BankInformation)(_C3CInvoicePopup.BankInformation.Oid) + _InvoiceHeader.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _C3CImportRows.Col02.Substring(0, 3))) + _InvoiceHeader.InvoicePeriod = _C3CImportRows.Col02.Substring(4) + + Dim _NI As New NumberFormatInfo + Dim s As String = _NI.NumberDecimalSeparator + Dim _array = Split(_C3CImportRows.Col03, ",") + + _InvoiceHeader.CurrencyRate = _array(0) + _array(1) / 10 ^ (_array(1).Length) + _InvoiceHeader.PaymentOption = _C3CTelecomInvoiceType.PaymentOption + _InvoiceHeader.BankInformation = _C3CTelecomInvoiceType.BankInformation + + '-- Próbaszámla miatt el kell menteni a tényleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _Customers.FullName.ToString() + _InvoiceHeader.Saved_Customers_Address_Country = _Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _C3CImportHeader.CustomersFrom.FullName.ToString() + _InvoiceHeader.Saved_CustomersFrom_Address_Country = _C3CImportHeader.CustomersFrom.Address1.Country.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _C3CImportHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _C3CImportHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _C3CImportHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _C3CImportHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _C3CImportHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _C3CImportHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _C3CTelecomInvoiceType.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _C3CTelecomInvoiceType.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _C3CTelecomInvoiceType.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _C3CTelecomInvoiceType.BankInformation.AccountNumber.ToString + + _C3CGeneratedInvoice = _ocur.CreateObject(Of C3CGeneratedInvoice)() + _C3CGeneratedInvoice.C3CImportHeader = _C3CImportHeader + _C3CGeneratedInvoice.InvoiceHeader = _InvoiceHeader + + _index = 0 + '-------------FEJLÉC LÉTREHOZVA------------------------------------------------------------------------------------ + End If + + If _C3CImportRows.Col08 = "R" Then + + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + + _InvoiceRows.Controlling = _C3CTelecomInvoiceType.Controlling + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual + _InvoiceRows.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", _C3CImportRows.Col06)) + + _InvoiceRows.ShortName = _C3CImportRows.Col02 'Csak a megjegyzést (2. oszlop) tesszük ide! + _InvoiceRows.Description = _period 'Idõszak + '_InvoiceRows.Description = _C3CImportRows.Col02 + " " + vbNewLine + _C3CImportRows.Col01 'Megnevezés + szj szám - javítva lett!! + _CustomsTariffs = _ocur.FindObject(Of CustomsTariffs)(CriteriaOperator.Parse("CustomsTariffNumber=?", _C3CImportRows.Col01)) + If _CustomsTariffs Is Nothing Then + _CustomsTariffs = _ocur.CreateObject(Of CustomsTariffs)() + _CustomsTariffs.CustomsTariffNumber = _C3CImportRows.Col01 + End If + _InvoiceRows.CustomsTariffs = _CustomsTariffs + + 'Amíg a CustomsTariffs tábla nincs feltöltve, a mezõ értéke mindig nothing lesz. Amennyiben a tábla feltöltésre kerül, le kell ellenõrizni, + 'hogy megfelelõ-e a formátum. + + _Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName=?", _C3CImportRows.Col04.Substring(0, 2))) + If _Units Is Nothing Then + _Units = _ocur.CreateObject(Of Units)() + _Units.ShortName = _C3CImportRows.Col04.Substring(0, 2) + _Units.ShortName_Gb = _C3CImportRows.Col04.Substring(3, 4) + End If + _InvoiceRows.Units = _Units + + 'If _InvoiceRows.Units Is Nothing Then + 'Throw New UserFriendlyException("A keresett mennyiségegység nem található.") + 'End If + + _InvoiceRows.QTT = _C3CImportRows.Col03 + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.ListPriceHUF = _C3CImportRows.Col05 + Else + _InvoiceRows.ListPriceHUF = _C3CImportRows.Col05 * _InvoiceHeader.CurrencyRate + _InvoiceRows.ListPriceDEV = _C3CImportRows.Col05 + End If + + _InvoiceRows.RowIndex = _index + _index = _index + 1 + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + End If + + _ocur.CommitChanges() + Next + + _ocur.CommitChanges() + _WaitFormClass.Finalwork() + + '_nf.NumberDecimalSeparator = _DecimalSeparator + '_nf.NumberGroupSeparator = _GroupSeparator + + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + If Err.Number = 5 Then + _WaitFormClass.Finalwork() + Throw New UserFriendlyException(Err.Description) + '_nf.NumberDecimalSeparator = _DecimalSeparator + '_nf.NumberGroupSeparator = _GroupSeparator + End If + + End Sub + Private Sub aFinalizeInvoices_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeInvoices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + Dim _InvoiceVC As New SISBusiness.Module.InvoiceVC + Dim _C3CImportHeader As C3CImportHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _DatePayment As Date + + _WaitFormClass.InitWork(1, 1, _C3CImportHeader.C3CGeneratedInvoice.Count) + For Each _C3CGeneratedInvoice In _C3CImportHeader.C3CGeneratedInvoice + _WaitFormClass.DoWork() + + _DatePayment = _C3CGeneratedInvoice.InvoiceHeader.DatePayment + _InvoiceVC.FinalizeInvoice(_C3CGeneratedInvoice.InvoiceHeader, View, _ocur) + _C3CGeneratedInvoice.InvoiceHeader.DatePayment = _DatePayment + _C3CGeneratedInvoice.InvoiceHeader.Save() + + Next + + _ocur.CommitChanges() + View.Refresh() + + _WaitFormClass.Finalwork() + End Sub + Private Sub aPrintInvoices_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintInvoices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + Dim _InvoiceVC As New SISBusiness.Module.InvoiceVC + Dim _C3CImportHeader As C3CImportHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _C3CTelecomInvoiceType As C3CTelecomInvoiceType + Dim _ReportData As ReportData + Dim _InvoiceHeade_Collection As New List(Of InvoiceHeader) + Dim _inoperator As InOperator + + If _C3CImportHeader.C3CGeneratedInvoice.Count > 0 Then + _C3CTelecomInvoiceType = _ocur.FindObject(Of C3CTelecomInvoiceType)(CriteriaOperator.Parse("CurrencyName=?", _C3CImportHeader.C3CGeneratedInvoice(0).InvoiceHeader.CurrencyName)) + _ReportData = _C3CTelecomInvoiceType.ReportData + + For Each _C3CGeneratedInvoice In _C3CImportHeader.C3CGeneratedInvoice + _InvoiceHeade_Collection.Add(_C3CGeneratedInvoice.InvoiceHeader) + Next + _inoperator = New InOperator("InvoiceHeader", _InvoiceHeade_Collection) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _inoperator, True) + End If + End If + End Sub + + Private Sub aPrinttoPdfInvoices_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrinttoPdfInvoices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + Dim _C3CImportHeader As C3CImportHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _InvoiceHeader As InvoiceHeader + Dim _FileName As String + Dim _FileNameOriginalWithAttachments As String + Dim _FileStream As FileStream + Dim _StreamReader As StreamReader + Dim _C3CTelecomInvoiceType As C3CTelecomInvoiceType + + Dim _NewPdfFileName As String + + Dim _FN As String + Dim _SF As FileStream + Dim _DeletableFileNames As New Collection + + Dim _DOC As PDFDocument = New PDFDocument("2962-F2F8-23B1-5FD8-F4A3-55DB-7D94-28E9") + Dim _FA As PDFFileAttachmentAnnot + + _WaitFormClass.InitWork(1, 1, _C3CImportHeader.C3CGeneratedInvoice.Count) + For Each _C3CGeneratedInvoice In _C3CImportHeader.C3CGeneratedInvoice + _WaitFormClass.DoWork() + _FileName = Nothing + If _C3CGeneratedInvoice IsNot Nothing Then + _InvoiceHeader = _C3CGeneratedInvoice.InvoiceHeader + + If _InvoiceHeader.PrintCopy = 0 Then + If _InvoiceHeader.PDF_Original Is Nothing Then + + _InvoiceHeader.PrintCopy = 1 + _C3CTelecomInvoiceType = _ocur.FindObject(Of C3CTelecomInvoiceType)(CriteriaOperator.Parse("CurrencyName.Oid=?", _InvoiceHeader.CurrencyName.Oid)) + _FileName = _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, False, _C3CTelecomInvoiceType.ReportData) + End If + End If + + If _FileName Is Nothing Then + + _FileName = Path.GetTempPath & "ORIGINAL" & ".pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + _InvoiceHeader.PDF_Original.SaveToStream(_StreamFile) + _StreamFile.Close() + + End If + + _DOC.Load(_FileName) 'PdfOne filekezelés kezdete. + + For Each _C3CGeneratedInvoiceDocuments As C3CGeneratedInvoiceDocuments In _C3CGeneratedInvoice.DocumentFile 'Hozzátesszük az összes csatolandó dokumentumot. + + _FN = Path.GetTempPath & _C3CGeneratedInvoiceDocuments.File.FileName + _SF = New FileStream(_FN, FileMode.Create) + + _C3CGeneratedInvoiceDocuments.File.SaveToStream(_SF) + _SF.Close() + + _FA = New PDFFileAttachmentAnnot(_FN, False, False, PDFFileAttachmentIcon.Paperclip) + _DOC.AddAnnot(_FA) + + _DeletableFileNames.Add(_FN) + Next + + If _InvoiceHeader.Customers IsNot Nothing Then 'Ez lesz a csstolt Pdf neve. Néha előfordul, hogy üres a név... + + _FileNameOriginalWithAttachments = _InvoiceHeader.Customers.CustomerNumber.ToString & "_" & Replace(_InvoiceHeader.DocumentNumber, "/", "_") & _ + "_" & _InvoiceHeader.DateCreated.Year.ToString & _InvoiceHeader.DateCreated.Month.ToString & _InvoiceHeader.DateCreated.Day.ToString & ".pdf" + Else + _FileNameOriginalWithAttachments = "Noname_" & Replace(_InvoiceHeader.DocumentNumber, "/", "_") & _ + "_" & _InvoiceHeader.DateCreated.Year.ToString & _InvoiceHeader.DateCreated.Month.ToString & _InvoiceHeader.DateCreated.Day.ToString & ".pdf" + End If + + _NewPdfFileName = Path.GetTempPath & _FileNameOriginalWithAttachments + + + + _DOC.Save(_NewPdfFileName) + _DOC.Close() + For Each _Element As String In _DeletableFileNames 'Kitöröljük a csatolt fájlok elmentett változatait. + File.Delete(_Element) + Next + + _FileStream = New FileStream(_NewPdfFileName, FileMode.Open, FileAccess.Read) + _StreamReader = New StreamReader(_FileStream) + _FileStream.Seek(0, SeekOrigin.Begin) + + _C3CGeneratedInvoice.PdfOriginalWithAttachments = New FileData(_ocur.Session) + _C3CGeneratedInvoice.PdfOriginalWithAttachments.LoadFromStream(_FileNameOriginalWithAttachments, _FileStream) + _C3CGeneratedInvoice.PdfOriginalWithAttachments.FileName = _FileNameOriginalWithAttachments + + _StreamReader.Close() + _FileStream.Close() + + File.Delete(_NewPdfFileName) + File.Delete(_FileName) + + + _InvoiceHeader.PrintCopy = 2 'Csupán létrehozzuk a másolat file-t is. + _FileName = _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, False) + File.Delete(_FileName) + + '_C3CGeneratedInvoice.Save() + _ocur.CommitChanges() + + End If + Next + _WaitFormClass.Finalwork() + End Sub + Private Sub aViewOriginalWithAttachment_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewOriginalWithAttachment.Execute + Dim _FN As String + Dim _SF As FileStream + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice = View.SelectedObjects(0) + + If _C3CGeneratedInvoice IsNot Nothing Then + If _C3CGeneratedInvoice.PdfOriginalWithAttachments IsNot Nothing Then + _FN = Path.GetTempPath & "OriginalWithAttachments.pdf" + _SF = New FileStream(_FN, FileMode.Create) + + _C3CGeneratedInvoice.PdfOriginalWithAttachments.SaveToStream(_SF) + _SF.Close() + + Dim _Process As System.Diagnostics.Process = New System.Diagnostics.Process + _Process.StartInfo.FileName = _FN + _Process.Start() + + _Process.WaitForExit() + File.Delete(_FN) + + End If + End If + + End Sub + 'Private Sub aPrinttoPdfInvoices_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrinttoPdfInvoices.Execute + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + 'Dim _InvoiceHeader As InvoiceHeader + 'Dim _FileName As String + + 'Dim _PdfEngine As PDFDocEngine + 'Dim _PdfDocument As Document + 'Dim _PdfStream As Stream + 'Dim _NewPdfFileName As String + + 'Dim _FileStream As FileStream + 'Dim _StreamReader As StreamReader + + '_C3CGeneratedInvoice = View.SelectedObjects(0) + 'If _C3CGeneratedInvoice IsNot Nothing Then + ' _InvoiceHeader = _C3CGeneratedInvoice.InvoiceHeader + + ' If _InvoiceHeader.PrintCopy = 0 Then + ' If _InvoiceHeader.PDF_Original Is Nothing Then + + ' _PdfEngine = New PDFDocEngine("Domain", "") + + ' _InvoiceHeader.PrintCopy = 1 + ' _FileName = _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, False) + + ' _PdfDocument = _PdfEngine.AddDocument(_FileName) + + ' For Each _C3CGeneratedInvoiceDocuments As C3CGeneratedInvoiceDocuments In _C3CGeneratedInvoice.DocumentFile + + ' _C3CGeneratedInvoiceDocuments.File.SaveToStream(_PdfStream) + ' _PdfDocument.AddAttachedFileFromPDFStream(_PdfStream, _C3CGeneratedInvoiceDocuments.File.FileName, "", False) + + ' Next + + ' _NewPdfFileName = Path.GetTempPath & "OriginalWithAttachments.pdf" + ' _PdfDocument.Save(_NewPdfFileName) + + ' _FileStream = New FileStream(_FileName, FileMode.Open, FileAccess.Read) + ' _StreamReader = New StreamReader(_FileStream) + ' _FileStream.Seek(0, SeekOrigin.Begin) + + ' _C3CGeneratedInvoice.PdfOriginalWithAttachments = New FileData(_ocur.Session) + ' _C3CGeneratedInvoice.PdfOriginalWithAttachments.LoadFromStream("OriginalWithAttachments.pdf", _FileStream) + ' _C3CGeneratedInvoice.PdfOriginalWithAttachments.FileName = "OriginalWithAttachments.pdf" + + ' _StreamReader.Close() + ' _FileStream.Close() + + ' File.Delete(_NewPdfFileName) + ' File.Delete(_FileName) + + ' End If + ' End If + + ' _InvoiceHeader.PrintCopy = 2 + ' _FileName = _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, False) + ' File.Delete(_FileName) + + 'End If + + + + 'Hol vannak a pdfek? Csatolni kellene hozzá a C3CGeneratedInvoice.DocumentFile kollekcióban levő fájlokat... + 'És aztán törölni kell a filestream-ot??? + + + + 'Dim _InvoiceVC As New SISBusiness.Module.InvoiceVC + 'Dim _C3CImportHeader As C3CImportHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + + 'Dim _ReportData As ReportData + 'Dim _InvoiceHeade_Collection As New List(Of InvoiceHeader) + + 'Dim _inoperator As InOperator + 'Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _C3CImportHeader.ShortName & ".pdf") + 'Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + 'Dim _XafReport As XafReport + + 'Dim _FilterString As String = "" + 'If _C3CImportHeader.C3CGeneratedInvoice.Count > 0 Then + ' _ReportData = _C3CImportHeader.C3CGeneratedInvoice(0).InvoiceHeader.InvoiceType.ReportData + 'End If + + 'For Each _C3CGeneratedInvoice In _C3CImportHeader.C3CGeneratedInvoice + ' If _FilterString = "" Then + ' _FilterString += "'" & _C3CGeneratedInvoice.InvoiceHeader.Oid.ToString & "'" + ' Else + ' _FilterString += ",'" & _C3CGeneratedInvoice.InvoiceHeader.Oid.ToString & "'" + ' End If + + 'Next + '_XafReport = _ReportData.LoadReport(_ocur) + '_XafReport.FilterString = "InvoiceHeader.Oid in (" & _FilterString & ")" + + 'If _ReportData IsNot Nothing Then + ' Dim _options As DevExpress.XtraPrinting.PdfExportOptions + + ' _XafReport.ExportToPdf(_Stream) + ' _Stream.Close() + ' Process.Start(_FilePath) + 'End If + ' End Sub +#Region "pdf" + 'PDF merge + ' Imports org.pdfbox.pdmodel + 'Imports org.pdfbox.util + 'Imports org.pdfbox.pdmodel.interactive.documentnavigation.destination + 'Imports org.pdfbox.pdmodel.interactive.documentnavigation.outline + 'Imports java.util + 'Private Function MergePdfFiles(ByVal pdfFileList As List(Of String), _ + ' ByVal outputFileFullName As String) As Boolean + ' Dim result As Boolean = False + ' Dim pdfMerger As PDFMergerUtility = Nothing + ' Dim fileCount As Integer = pdfFileList.Count + ' If fileCount > 1 Then + ' Try + ' 'Instantiate an instance of Pdf Merger Utility + ' pdfMerger = New PDFMergerUtility() + ' With pdfMerger + ' 'Set output destination + ' .setDestinationFileName(outputFileFullName) + ' 'Looping thru the file list and add source to the merger + ' For i As Integer = 0 To fileCount - 1 Step 1 + ' .addSource(pdfFileList(i)) + ' Next i + ' 'Merge the documents + ' pdfMerger.mergeDocuments() + ' result = True + ' End With + ' Catch ex As Exception + ' WriteToLog("MergePDFFile(" & outputFileFullName & "): " & ex.Message) + ' Return False + ' End Try + ' End If + ' Return result + 'End Function + 'Private Function CreateBookmarkDataTable(ByVal pdfFileList As List(Of String)) As DataTable + ' Dim bookmarkData As New DataTable + ' Dim row As DataRow = Nothing + ' Dim bookmarkTitle As String = String.Empty + ' Dim pageNumber As Integer = 0 + ' Try + ' bookmarkData.Columns.Add("BookmarkTitle", GetType(String)) + ' bookmarkData.Columns.Add("PageNumber", GetType(Integer)) + ' Dim count As Integer = pdfFileList.Count + ' If count > 0 Then + ' For i As Integer = 0 To count - 1 Step 1 + ' bookmarkTitle = Path.GetFileNameWithoutExtension(pdfFileList(i)) + ' row = bookmarkData.NewRow() + ' row.Item("BookmarkTitle") = bookmarkTitle + ' row.Item("PageNumber") = pageNumber + ' bookmarkData.Rows.Add(row) + ' pageNumber += GetPageCount(pdfFileList(i)) + ' Next + ' End If + ' Catch ex As Exception + ' WriteToLog("CreateBookmarkDataTable(): " & ex.Message) + ' Return Nothing + ' End Try + ' Return bookmarkData + 'End Function + 'Private Function GetPageCount(ByVal pdfFile As String) As Integer + ' Dim pageCount As Integer + ' Dim pdfDoc As PDDocument = Nothing + ' Try + ' pdfDoc = PDDocument.load(pdfFile) + ' pageCount = pdfDoc.getNumberOfPages + ' Catch ex As Exception + ' WriteToLog("GetPageCount(" & pdfFile & "): " & ex.Message) + ' Return 0 + ' Finally + ' If Not pdfDoc Is Nothing Then + ' pdfDoc.close() + ' End If + ' End Try + ' Return pageCount + 'End Function + 'Private Function AddBookMarks(ByVal pdfFile As String, _ + ' ByVal bookmarkTable As DataTable) As Boolean + ' Dim result As Boolean = False + ' Dim PdfDoc As PDDocument = Nothing + ' Dim outFile As String = String.Empty + ' Dim rowCount As Integer = bookmarkTable.Rows.Count + ' Try + ' If rowCount > 0 Then + ' 'Set the output file full path + ' outFile = pdfFile.Replace("temp_", "") + ' 'Load the input pdf file + ' PdfDoc = PDDocument.load(pdfFile) + ' If Not PdfDoc.isEncrypted() Then + ' 'Create new document outline and assign it to the pdf document + ' Dim outline As PDDocumentOutline = New PDDocumentOutline() + ' PdfDoc.getDocumentCatalog().setDocumentOutline(outline) + ' 'Create new outline item for the document outline + ' Dim pagesOutline As PDOutlineItem = New PDOutlineItem() + ' pagesOutline.setTitle("All Pages") + ' outline.appendChild(pagesOutline) + ' 'Get the list of pages in the document + ' Dim pages As List = PdfDoc.getDocumentCatalog().getAllPages() + ' Dim i, pageNumber As Integer + ' Dim row As DataRow = Nothing + ' Dim bookmarkTitle As String = String.Empty + ' 'loop thru the bookmark datatable and add bookmarks to the document accordingly + ' For i = 0 To rowCount - 1 Step 1 + ' 'Read the row's data + ' row = bookmarkTable.Rows(i) + ' pageNumber = CInt(row.Item("PageNumber")) + ' bookmarkTitle = CStr(row.Item("BookmarkTitle")) + ' 'Get the page at pageNumber from pages list + ' Dim page As PDPage = CType(pages.get(pageNumber), PDPage) + ' Dim dest As PDPageFitWidthDestination = New PDPageFitWidthDestination() + ' dest.setPage(page) + ' 'Then set bookmark to it + ' Dim bookmark As PDOutlineItem = New PDOutlineItem() + ' bookmark.setDestination(dest) + ' bookmark.setTitle(bookmarkTitle) + ' 'Add this bookmark to the document's outline + ' pagesOutline.appendChild(bookmark) + ' Next i + ' 'Expand the bookmark tree + ' pagesOutline.openNode() + ' outline.openNode() + ' 'Save the the document to a file + ' PdfDoc.save(outFile) + ' result = True + ' Else + ' WriteToLog("Can't add bookmarks to <" & pdfFile & "> because the document is encrypted.") + ' End If + ' Else + ' WriteToLog("Can't add bookmarks to <" & pdfFile & "> because BookmarkTable has no data.") + ' End If + ' Catch ex As Exception + ' WriteToLog("AddBookmarks(" & pdfFile & "): " & ex.Message) + ' Return False + ' Finally + ' If Not PdfDoc Is Nothing Then + ' PdfDoc.close() + ' End If + ' End Try + ' Return result + 'End Function +#End Region + + Private Sub aExportPDFtoOutputDirectory_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aExportPDFtoOutputDirectory.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _C3CExportPathPopup As C3CExportPathPopup = _onew.CreateObject(Of C3CExportPathPopup)() + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice = View.SelectedObjects(0) + + _C3CExportPathPopup.OutputDirectory = _C3CGeneratedInvoice.C3CImportHeader.OutputDirectory + e.View = Application.CreateDetailView(_onew, "C3CExportPathPopup_DetailView", False, _C3CExportPathPopup) + End Sub + + Private Sub aExportPDFtoOutputDirectory_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aExportPDFtoOutputDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _C3CExportPathPopup As C3CExportPathPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), C3CExportPathPopup) + Dim _C3CGeneratedInvoice As C3CGeneratedInvoice + + _WaitFormClass.InitWork(1, 1, View.SelectedObjects.Count) + For Each _C3CGeneratedInvoice In View.SelectedObjects + _WaitFormClass.DoWork() + Dim _FileStream As New FileStream(_C3CExportPathPopup.OutputDirectory & "/" & _C3CGeneratedInvoice.PdfOriginalWithAttachments.FileName, FileMode.Create, FileAccess.ReadWrite) + _C3CGeneratedInvoice.PdfOriginalWithAttachments.SaveToStream(_FileStream) + _FileStream.Close() + Next + _WaitFormClass.Finalwork() + + End Sub +End Class + +#Region "VB6" +' '/==========================================================================================\ +' '|VERSION: 2 | +' '|AUTHOR: SISSERVER : ivan.szabo(2010.1.5 11:25) | +' '|LAST MODIFYING: SISSERVER : ivan.szabo | +' '|DATE: 2010.2.4 9:58 | +' '|----------------------------------------DESCRIPTION---------------------------------------| +' '|3C KFT.-nek import | +' '| | +' '\==========================================================================================/ +' Dim clsADO As New clsADO +' Dim mSQL As String +' Dim FS As New Scripting.FileSystemObject +' Dim vF As File +' Dim sArray() As String +' Dim TS As String +' Dim Act_Ügyfélszám As Long +' Dim Prev_Ügyfélszám As Long +'ReDim s(1 To SP.MaxCols) As SpreadRecord +' Dim I As Long +' Dim clsC As New clsCassa +' Dim vTempID As Long +'SP.ReDraw = False +'SP.MaxRows = 0 +' '-- Ellenõrzések ... +' 'If FS.FileExists(pathDetails) = False Then +' ' frmMsgBox.MyMsgBox "Hibás a fájl útvonala !", vbCritical +' ' Exit Sub +' 'End If +' +' 'If FS.FileExists(pathItems) = False Then +' ' frmMsgBox.MyMsgBox "Hibás a fájl útvonala !", vbCritical +' ' Exit Sub +' 'End If +' +' ' 'If FS.FileExists(pathPartners) = False Then +' ' ' frmMsgBox.MyMsgBox "Hibás a fájl útvonala !", vbCritical +' ' ' Exit Sub +' ' 'End If + + +' '-- Fileok megnyitása ... +'Me.Import_Items + +'Open pathDetails For Input As #1 + +' 'Do While Not EOF(1) +' ' Line Input #1, TS +' ' sArray = Split(TS, ";") +' ' If UBound(sArray) <= 0 Then Exit Do +' ' If StrToDouble(sArray(2)) < 200000 Then +' ' Act_Ügyfélszám = 200000 + StrToDouble(sArray(2)) +' ' Else +' ' Act_Ügyfélszám = StrToDouble(sArray(2)) +' ' End If + +' ' If (Act_Ügyfélszám <> Prev_Ügyfélszám) Or sArray(0) = "0" Then +' vTempID = clsC.GetTempAlloc +' FillArray s() +' s(1).s = Act_Ügyfélszám +' s(2).s = sArray(16) & ";" & sArray(3) +' s(3).s = Replace(sArray(17), ".", ","): s(3).AL = 1 +' s(4).s = Format(Now, "yyyy-mm-dd") +' s(5).s = Format(DateAdd("d", Val(sArray(18)), Now), "yyyy-mm-dd") +' s(6).s = Format(DateAdd("d", Val(sArray(18)), Now), "yyyy-mm-dd") +' s(7).s = vTempID +' s(8).s = "H" +' For I = 1 To SP.MaxCols +' s(I).BC = RGB(245, 245, 245) +' Next I +' AddToSpreadT s(), SP + +' Prev_Ügyfélszám = Act_Ügyfélszám +' End If + + +' If sArray(0) = "0" Then +' FillArray s() +' s(1).s = "SZJ 64.20.18" +' 's(2).s = sArray(3) +' End If +' If (sArray(0) = "1") Or (sArray(0) = "3") Or (sArray(0) = "5") Or (sArray(0) = "7") Then +' s(2).s = aItems(Me.GetItembyName(sArray(29))).FullName & vbNewLine & aItems(Me.GetItembyName(sArray(29))).FullName_English +' s(3).s = StrToDouble(sArray(32)): s(3).AL = 1 +' s(4).s = aItems(Me.GetItembyName(sArray(29))).Unit & "/" & aItems(Me.GetItembyName(sArray(29))).Unit_English +' s(5).s = Replace(sArray(36), ".", ","): s(5).AL = 1 +' s(6).s = aItems(Me.GetItembyName(sArray(29))).VAT +' End If + +' If (sArray(0) = "2") Or (sArray(0) = "4") Or (sArray(0) = "6") Or (sArray(0) = "8") Then +' s(2).s = s(2).s & Chr(13) + Chr(10) + sArray(39) +' s(7).s = vTempID +' s(8).s = "R" +' AddToSpreadT s(), SP +' End If +'Loop +'Close #1 + +'SP.MaxRows = SP.DataRowCnt +'UseMaxHeight SP +'SP.ReDraw = True + +#End Region + diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CExportPathPopup.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CExportPathPopup.vb new file mode 100644 index 0000000..ab6e87c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CExportPathPopup.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class C3CExportPathPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property OutputDirectory As String +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CInvoicePopup.vb b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CInvoicePopup.vb new file mode 100644 index 0000000..0287487 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/3CTelecom/PopUp/C3CInvoicePopup.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class C3CInvoicePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property CustomersFrom As CustomersFrom + Property BankInformation As BankInformation + Property IsRequiredBankInformation As Boolean + _ + Property Description As String +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb new file mode 100644 index 0000000..d4818a1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class APCSheetReviewHeader_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb new file mode 100644 index 0000000..9b40572 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb @@ -0,0 +1,34 @@ +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 APCSheetReviewHeader_VC + Inherits SISBusiness.Module.APCSheetReviewHeader_VC + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb new file mode 100644 index 0000000..eee74a6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class APCSheetVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.vb new file mode 100644 index 0000000..c1a7e45 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Agricultural/APCSheetVC.vb @@ -0,0 +1,34 @@ +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 APCSheetVC + Inherits SISBusiness.Module.APCSheetVC + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.Designer.vb new file mode 100644 index 0000000..727c772 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CertificateOfContractVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.vb new file mode 100644 index 0000000..e8f7ae7 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/CertificateOfContractVC.vb @@ -0,0 +1,29 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports SISBusiness.Module +Public Class CertificateOfContractVC + Inherits SISBusiness.Module.CertificateOfContractVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.Designer.vb new file mode 100644 index 0000000..3771702 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ContractRowsFreeVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.vb new file mode 100644 index 0000000..ff5b220 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsFreeVC.vb @@ -0,0 +1,113 @@ +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.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering + +Public Class ContractRowsFreeVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Contracts_ContractRows_ListView" Then + If _GridListEditor IsNot Nothing Then + Dim _GridView As XafGridView = TryCast(_GridListEditor.GridView, XafGridView) + AddHandler _GridView.ShowingEditor, AddressOf _GridView_ShowingEditor + End If + End If + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf Contracts_ContractRows_ListView_CellValueChanged + End If + End If + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "Contracts_ContractRows_ListView" Or _ + View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + _GridListEditor = TryCast(View.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf Contracts_ContractRows_ListView_CellValueChanged + End If + If _GridListEditor IsNot Nothing Then + '_GridListEditor.AllowEdit = True + Dim _GridView As XafGridView = TryCast(_GridListEditor.GridView, XafGridView) + If _GridView IsNot Nothing Then + AddHandler _GridView.ShowingEditor, AddressOf _GridView_ShowingEditor + End If + 'For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "NettoPriceHUF" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "NettoPriceDEV" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "ShortName" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Description" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "InvoicePeriod" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "PaymentOption!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "VAT!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CurrencyRate" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "QTT" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "DateExecution" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + 'Next i + End If + + End If + End Sub + Sub _GridView_ShowingEditor(ender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + If _ContractRows.RegistryRowsFinancialControlling IsNot Nothing Or _ + _ContractRows.CertificateofContractRows IsNot Nothing Then + e.Cancel = True + End If + End Sub + + Private Sub Contracts_ContractRows_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Try + Dim parentView As View = nestedFrame.View + If parentView IsNot Nothing Then + parentView.ObjectSpace.CommitChanges() + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Active Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch exp As Exception + MsgBox(exp.Message) + End Try + Else + Frame.View.ObjectSpace.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Active Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.Designer.vb new file mode 100644 index 0000000..030c123 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.Designer.vb @@ -0,0 +1,37 @@ +Partial Class ContractRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'ContractRowsVC + ' + Me.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.vb new file mode 100644 index 0000000..a35d414 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractRowsVC.vb @@ -0,0 +1,60 @@ +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.ExpressApp.Win +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Data.Filtering + +Public Class ContractRowsVC + Inherits SISBusiness.Module.ContractRowsVC + Dim _WaitFormClass As New WaitFormClass + '################################################################################################################################### + '############################Ez a controller a ContractRows tpusra van irnytva!################################################## + '################################################################################################################################### + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If TryCast(View, DetailView) IsNot Nothing Then + '-- a controlling lookupeditorjnak elkapsa a registryrowsfinancialcontrolling_detailview-n, hogy meg lehessen szrni a lookuplistview-t (csak kiads vagy nem belltott jhet fel) + Dim _ControllingLookupEditor As PropertyEditor = TryCast(View, DetailView).FindItem("Controlling") + AddHandler TryCast(_ControllingLookupEditor, LookupPropertyEditor).Control.Popup, AddressOf lookuppropertyeditor_popup + End If + End Sub + Private Sub lookuppropertyeditor_popup(sender As Object, e As EventArgs) + TryCast(sender, LookupEdit).PopupForm.ListView.CollectionSource.Criteria.Remove("ControllingFilter") + If TryCast(View.SelectedObjects(0), ContractRows).Contracts.ContractTemplate.PartnerType = ePartnerType.eReceivables Then + TryCast(sender, LookupEdit).PopupForm.ListView.CollectionSource.Criteria.Add("ControllingFilter", CriteriaOperator.Parse("Controllingdirection In (0, -1)")) + Else + TryCast(sender, LookupEdit).PopupForm.ListView.CollectionSource.Criteria.Add("ControllingFilter", CriteriaOperator.Parse("Controllingdirection In (1, -1)")) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.Designer.vb new file mode 100644 index 0000000..9301dc0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.Designer.vb @@ -0,0 +1,83 @@ +Partial Class ContractTemplate_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aContractTemplate_InsertDocVariable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aContractTemplate_InsertAPCSheetDocVariable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInsertRTFText = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aContractTemplate_InsertDocVariable + ' + Me.aContractTemplate_InsertDocVariable.Caption = "aContractTemplate_InsertDocVariable" + Me.aContractTemplate_InsertDocVariable.Category = "aContractTemplate_InsertDocVariable" + Me.aContractTemplate_InsertDocVariable.ConfirmationMessage = Nothing + Me.aContractTemplate_InsertDocVariable.Id = "aContractTemplate_InsertDocVariable" + Me.aContractTemplate_InsertDocVariable.ImageName = Nothing + Me.aContractTemplate_InsertDocVariable.Shortcut = Nothing + Me.aContractTemplate_InsertDocVariable.Tag = Nothing + Me.aContractTemplate_InsertDocVariable.TargetObjectsCriteria = Nothing + Me.aContractTemplate_InsertDocVariable.TargetObjectType = GetType(SISBusiness.[Module].ContractTemplate) + Me.aContractTemplate_InsertDocVariable.TargetViewId = Nothing + Me.aContractTemplate_InsertDocVariable.ToolTip = Nothing + Me.aContractTemplate_InsertDocVariable.TypeOfView = Nothing + ' + 'aContractTemplate_InsertAPCSheetDocVariable + ' + Me.aContractTemplate_InsertAPCSheetDocVariable.Caption = "aContractTemplate_InsertAPCSheetDocVariable" + Me.aContractTemplate_InsertAPCSheetDocVariable.Category = "aContractTemplate_InsertAPCSheetDocVariable" + Me.aContractTemplate_InsertAPCSheetDocVariable.ConfirmationMessage = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.Id = "aContractTemplate_InsertAPCSheetDocVariable" + Me.aContractTemplate_InsertAPCSheetDocVariable.ImageName = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.Shortcut = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.Tag = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.TargetObjectsCriteria = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.TargetObjectType = GetType(SISBusiness.[Module].ContractTemplate) + Me.aContractTemplate_InsertAPCSheetDocVariable.TargetViewId = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.ToolTip = Nothing + Me.aContractTemplate_InsertAPCSheetDocVariable.TypeOfView = Nothing + ' + 'aInsertRTFText + ' + Me.aInsertRTFText.Caption = "aInsert RTFText" + Me.aInsertRTFText.Category = "aInsertRTFText" + Me.aInsertRTFText.ConfirmationMessage = Nothing + Me.aInsertRTFText.Id = "aInsertRTFText" + Me.aInsertRTFText.ImageName = Nothing + Me.aInsertRTFText.Shortcut = Nothing + Me.aInsertRTFText.Tag = Nothing + Me.aInsertRTFText.TargetObjectsCriteria = Nothing + Me.aInsertRTFText.TargetViewId = Nothing + Me.aInsertRTFText.ToolTip = Nothing + Me.aInsertRTFText.TypeOfView = Nothing + + End Sub + Friend WithEvents aContractTemplate_InsertDocVariable As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aContractTemplate_InsertAPCSheetDocVariable As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInsertRTFText As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.resx new file mode 100644 index 0000000..1c781ea --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 186, 156 + + + 496, 156 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.vb new file mode 100644 index 0000000..d5798c6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractTemplate_VC.vb @@ -0,0 +1,77 @@ +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.XtraRichEdit.API.Native +Imports DevExpress.XtraRichEdit +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Public Class ContractTemplate_VC + Inherits SISBusiness.Module.ContractTemplate_VC + + Private _RichEditControl As RichEditControl + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "ContractTemplate_DetailView" Then + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + End Sub + Private Sub aContractTemplate_InsertDocVariable_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aContractTemplate_InsertDocVariable.Execute + Try + Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate) + If _ContractTemplate Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If String.IsNullOrEmpty(_ContractTemplate.ContractsProperties) Then Throw New Exception("*Nem lett kivlasztva a kapcsold objektum!") + _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE Contracts." + _ContractTemplate.ContractsProperties) + _ContractTemplate.ContractsProperties = "" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + + Private Sub aContractTemplate_InsertAPCSheetDocVariable_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aContractTemplate_InsertAPCSheetDocVariable.Execute + Try + Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate) + If _ContractTemplate Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If String.IsNullOrEmpty(_ContractTemplate.APCSheetByProductsProperties) Then Throw New Exception("*Nem lett kivlasztva a kapcsold objektum!") + _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE APCSheetByProducts." + _ContractTemplate.APCSheetByProductsProperties) + _ContractTemplate.APCSheetByProductsProperties = "" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aInsertRTFText_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInsertRTFText.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User = _onew.GetObjectByKey(Of User)(_onew.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _RTFCopy As RTFCopy = _onew.FindObject(Of RTFCopy)(CriteriaOperator.Parse("UserCreated=?", _User)) + Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate) + + Dim _DocPos As DocumentPosition = _RichEditControl.Document.CaretPosition + + _RichEditControl.Document.InsertHtmlText(_DocPos, _RTFCopy.RTFString) + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.Designer.vb new file mode 100644 index 0000000..e670195 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.Designer.vb @@ -0,0 +1,106 @@ +Partial Class ContractsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aContractsRTFRestoreTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aContractsRTFReplaceValue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aContractsTemplateRTFSelectField = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsertRTFTextContracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aContractsRTFRestoreTemplate + ' + Me.aContractsRTFRestoreTemplate.Caption = "aContracts RTFRestore Template" + Me.aContractsRTFRestoreTemplate.Category = "aContractsRTFRestoreTemplate" + Me.aContractsRTFRestoreTemplate.ConfirmationMessage = Nothing + Me.aContractsRTFRestoreTemplate.Id = "aContractsRTFRestoreTemplate" + Me.aContractsRTFRestoreTemplate.ImageName = Nothing + Me.aContractsRTFRestoreTemplate.Shortcut = Nothing + Me.aContractsRTFRestoreTemplate.Tag = Nothing + Me.aContractsRTFRestoreTemplate.TargetObjectsCriteria = Nothing + Me.aContractsRTFRestoreTemplate.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aContractsRTFRestoreTemplate.TargetViewId = Nothing + Me.aContractsRTFRestoreTemplate.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aContractsRTFRestoreTemplate.ToolTip = Nothing + Me.aContractsRTFRestoreTemplate.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aContractsRTFReplaceValue + ' + Me.aContractsRTFReplaceValue.Caption = "aContracts RTFReplace Value" + Me.aContractsRTFReplaceValue.Category = "aContractsRTFReplaceValue" + Me.aContractsRTFReplaceValue.ConfirmationMessage = Nothing + Me.aContractsRTFReplaceValue.Id = "aContractsRTFReplaceValue" + Me.aContractsRTFReplaceValue.ImageName = Nothing + Me.aContractsRTFReplaceValue.Shortcut = Nothing + Me.aContractsRTFReplaceValue.Tag = Nothing + Me.aContractsRTFReplaceValue.TargetObjectsCriteria = Nothing + Me.aContractsRTFReplaceValue.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aContractsRTFReplaceValue.TargetViewId = Nothing + Me.aContractsRTFReplaceValue.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aContractsRTFReplaceValue.ToolTip = Nothing + Me.aContractsRTFReplaceValue.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aContractsTemplateRTFSelectField + ' + Me.aContractsTemplateRTFSelectField.AcceptButtonCaption = Nothing + Me.aContractsTemplateRTFSelectField.CancelButtonCaption = Nothing + Me.aContractsTemplateRTFSelectField.Caption = "aContracts Template RTFSelect Field" + Me.aContractsTemplateRTFSelectField.Category = "aContractsTemplateRTFSelectField" + Me.aContractsTemplateRTFSelectField.ConfirmationMessage = Nothing + Me.aContractsTemplateRTFSelectField.Id = "aContractsTemplateRTFSelectField" + Me.aContractsTemplateRTFSelectField.ImageName = Nothing + Me.aContractsTemplateRTFSelectField.Shortcut = Nothing + Me.aContractsTemplateRTFSelectField.Tag = Nothing + Me.aContractsTemplateRTFSelectField.TargetObjectsCriteria = Nothing + Me.aContractsTemplateRTFSelectField.TargetObjectType = GetType(SISBusiness.[Module].ContractTemplate) + Me.aContractsTemplateRTFSelectField.TargetViewId = Nothing + Me.aContractsTemplateRTFSelectField.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aContractsTemplateRTFSelectField.ToolTip = Nothing + Me.aContractsTemplateRTFSelectField.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aInsertRTFTextContracts + ' + Me.aInsertRTFTextContracts.Caption = "aInsert RTFText Contracts" + Me.aInsertRTFTextContracts.Category = "aInsertRTFTextContracts" + Me.aInsertRTFTextContracts.ConfirmationMessage = Nothing + Me.aInsertRTFTextContracts.Id = "aInsertRTFTextContracts" + Me.aInsertRTFTextContracts.ImageName = Nothing + Me.aInsertRTFTextContracts.Shortcut = Nothing + Me.aInsertRTFTextContracts.Tag = Nothing + Me.aInsertRTFTextContracts.TargetObjectsCriteria = Nothing + Me.aInsertRTFTextContracts.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aInsertRTFTextContracts.TargetViewId = Nothing + Me.aInsertRTFTextContracts.ToolTip = Nothing + Me.aInsertRTFTextContracts.TypeOfView = Nothing + + End Sub + Friend WithEvents aContractsRTFRestoreTemplate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aContractsRTFReplaceValue As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aContractsTemplateRTFSelectField As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsertRTFTextContracts As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.resx new file mode 100644 index 0000000..e4ac11d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 457, 17 + + + 17, 17 + + + 219, 17 + + + 627, 156 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb new file mode 100644 index 0000000..9df3128 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Contracts/ContractsVC.vb @@ -0,0 +1,317 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports System.Security +Imports System.Security.Permissions +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.ExpressApp.ValidateObjectEventArgs +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Security +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.Data +Imports DevExpress.ExpressApp.FileAttachments.Win +Imports System.Reflection + +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Xpo + +Public Class ContractsVC + Inherits DevExpress.ExpressApp.ViewController + Private _GridListEditor As GridListEditor + Private _RichEditControl As RichEditControl + Private _Contracts As Contracts + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback + If View.Id Like "Contracts_ListView*" Or View.Id Like "Contract*LookupListView" Then + Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", False) + End If + If View.Id = "Contracts_DetailView" Then + _Contracts = TryCast(View.SelectedObjects(0), Contracts) + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "Contracts_ListView" Then + Frame.GetController(Of FileAttachmentListViewController)().Active.SetItemValue("", True) + End If + End Sub + Sub InitQTT_ProcessColumn() + For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + Dim _ColumnWrapper As ColumnWrapper = _GridListEditor.Columns(i) + If _ColumnWrapper.PropertyName = "QTT" Then + Dim _QTTColumn As GridColumn = _GridListEditor.GridView.Columns("QTT") + _QTTColumn.OptionsColumn.AllowEdit = True + _QTTColumn.OptionsColumn.AllowFocus = True + _QTTColumn.OptionsColumn.ReadOnly = False + _QTTColumn.UnboundType = UnboundColumnType.Decimal + End If + If _ColumnWrapper.PropertyName = "Units" Then + Dim _UnitsColumn As GridColumn = _GridListEditor.GridView.Columns("Units") + _UnitsColumn.OptionsColumn.AllowEdit = True + _UnitsColumn.OptionsColumn.AllowFocus = True + _UnitsColumn.OptionsColumn.ReadOnly = False + _UnitsColumn.UnboundType = UnboundColumnType.Object + End If + Exit For + Next + End Sub + Sub view_selectionchanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _view = TryCast(View, ListView) + _GridListEditor = TryCast(_view.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + InitQTT_ProcessColumn() + End If + End Sub + Public Sub _gridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim _GridView As GridView = TryCast(sender, GridView) + Dim _Contracts As Contracts + If View.SelectedObjects.Count = 1 Then + _Contracts = TryCast(View.SelectedObjects(0), Contracts) + If Not _Contracts Is Nothing Then + If _Contracts.State = State.Ready Or _Contracts.State = State.Signed Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + + Private Sub aContractsRTFRestoreTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aContractsRTFRestoreTemplate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + + If _Contracts IsNot Nothing Then + If _Contracts.ContractTemplate IsNot Nothing Then + _Contracts.DocumentBody = _Contracts.ContractTemplate.DocumentBody + End If + End If + + End Sub + Private Sub aContractsRTFReplaceValue_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aContractsRTFReplaceValue.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + + Dim _APCSheetByProducts As APCSheetByProducts = Nothing + If _Contracts.ContractTemplate.IsAPCSheet Then + _APCSheetByProducts = _ocur.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("Contracts=?", _Contracts)) + End If + + Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControl.Document.Fields + + Dim _ContractsProperties As New ArrayList + _ContractsProperties.AddRange(TryCast(_Contracts.[GetType](), System.Type).GetProperties()) + Dim _TemplateFields As New ArrayList + For Each _Field As DevExpress.XtraRichEdit.API.Native.Field In _Fields + _Field.ShowCodes = True + Dim _ActString As String = _RichEditControl.Document.GetText(_Field.CodeRange) + If Not _ActString.Contains("FORMTEXT") Then + _TemplateFields.Add(_ActString.Replace("DOCVARIABLE ", "")) + Else + _TemplateFields.Add(_ActString) + End If + Next + + Dim _TemplateFieldsValue As New ArrayList + For Each _ActTemplateField As String In _TemplateFields + Dim _FiledLocation() As String = _ActTemplateField.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries) + If _FiledLocation.Length > 0 Then + If _FiledLocation(0) = "APCSheetByProducts" Then + _TemplateFieldsValue.Add(FieldValue(_FiledLocation, Nothing, _APCSheetByProducts)) + ElseIf _FiledLocation(0) = "Contracts" Then + _TemplateFieldsValue.Add(FieldValue(_FiledLocation, _Contracts, Nothing)) + Else + _TemplateFieldsValue.Add(FieldValue(_FiledLocation, _Contracts, _APCSheetByProducts)) + End If + End If + Next + + Dim _FieldIndex As Int16 = 0 + _RichEditControl.BeginUpdate() + Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControl.Document + _Document.BeginUpdate() + + For Each _ActTemplateField As String In _TemplateFields + Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(_FieldIndex) + field.ShowCodes = True + Dim _FieldCode As String = _Document.GetText(field.CodeRange) + Dim _FieldResult As String = _TemplateFieldsValue(_FieldIndex).ToString + Dim _FieldPosition As DevExpress.XtraRichEdit.API.Native.DocumentPosition = field.Range.Start + _Document.InsertText(_FieldPosition, _FieldResult) + _FieldIndex += 1 + Next + + For ik = _Document.Fields.Count - 1 To 0 Step -1 + Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(ik) + _Document.Delete(field.Range) + Next + + _Document.EndUpdate() + _RichEditControl.EndUpdate() + End Sub + Private Function FieldValue(_FiledLocation As String(), _Contracts As Contracts, _APCSheetByProducts As APCSheetByProducts) As String + Dim _Value As String = "" + Dim _ObjectType As Type = Nothing + Dim _Object As Object = Nothing + Dim _ikStart As Long = 0 + + Try + + + If _Contracts Is Nothing And _APCSheetByProducts Is Nothing Then + _Value = "[Nincs beállítva]" + ElseIf _Contracts IsNot Nothing And _APCSheetByProducts Is Nothing Then + _ObjectType = _Contracts.[GetType]() + _Object = _Contracts + _ikStart = 1 + ElseIf _Contracts Is Nothing And _APCSheetByProducts IsNot Nothing Then + _ObjectType = _APCSheetByProducts.[GetType]() + _Object = _APCSheetByProducts + _ikStart = 1 + Else + _ObjectType = _Contracts.[GetType]() + _Object = _Contracts + _ikStart = 0 + End If + + If String.IsNullOrEmpty(_Value) Then + For _ik = _ikStart To _FiledLocation.Length - 1 + If _ik < _FiledLocation.Length - 1 Then + + Dim _PropertyInfo As PropertyInfo = _ObjectType.GetProperty(_FiledLocation(_ik)) + + If _PropertyInfo IsNot Nothing Then + _Object = _PropertyInfo.GetValue(_Object, Nothing) + If _Object IsNot Nothing Then + _ObjectType = _Object.[GetType]() + Else + _Value = "[Nincs beállítva]" + End If + Else + _Value = "[Nincs beállítva]" + End If + Else + Dim _PropertyInfo As PropertyInfo = _ObjectType.GetProperty(_FiledLocation(_ik)) + + If _PropertyInfo IsNot Nothing Then + _Object = _PropertyInfo.GetValue(_Object, Nothing) + If _Object IsNot Nothing Then + + If TryCast(_Object, IList) IsNot Nothing Then + + For Each _ListElement In TryCast(_Object, IList) + _Value += _ListElement.ToString & " " + Next + Else + _Value = _Object.ToString + + Dim _IModelClass As IModelClass = Application.Model.BOModel.GetNode(_ObjectType.FullName) + For Each _OwnMembers In _IModelClass.OwnMembers + + If TryCast(_OwnMembers, IModelMember) IsNot Nothing Then + If TryCast(_OwnMembers, IModelMember).Name = _PropertyInfo.Name Then + Try + If LTrim(RTrim(TryCast(_OwnMembers, IModelMember).DisplayFormat)) <> "" Then + _Value = String.Format(TryCast(_OwnMembers, IModelMember).DisplayFormat, _Object) + End If + Catch ex As Exception + + End Try + End If + End If + Next + End If + Else + _Value = "[Nincs beállítva]" + End If + Else + _Value = "[Nincs beállítva]" + End If + End If + Next + End If + Catch ex As Exception + + End Try + Return _Value + End Function + Sub RecursivePropertyInfo(_Property_In As Object, _ArrayList_Value_In As ArrayList, _TagArray_In As String(), _TagArrayIndex As Int16, _ValueIndex_In As Int16) + If _Property_In IsNot Nothing Then + Dim _ObjctType As Type = _Property_In.[GetType]() + + For Each _PropertyInfo_In As PropertyInfo In _ObjctType.GetProperties() + Dim _TagArrayIndex_new As Int16 = 0 + If _TagArray_In.Length = 2 Then + _TagArrayIndex_new = 1 + Else + _TagArrayIndex_new = _TagArrayIndex + 1 + End If + If _PropertyInfo_In.Name = _TagArray_In(_TagArrayIndex_new) Then + + If _TagArray_In.Length - 1 = _TagArrayIndex + 1 Then + _ArrayList_Value_In.Add(_PropertyInfo_In.GetValue(_Property_In, Nothing)) + Exit For + Else + RecursivePropertyInfo(_PropertyInfo_In.GetValue(_Property_In, Nothing), _ArrayList_Value_In, _TagArray_In, _TagArrayIndex + 1, _ValueIndex_In) + Exit For + End If + End If + Next + If _ArrayList_Value_In.Count < _ValueIndex_In Then _ArrayList_Value_In.Add(TagBuilder(_TagArray_In)) + Else + _ArrayList_Value_In.Add(TagBuilder(_TagArray_In)) + End If + End Sub + Function TagBuilder(_TagArray_In As String()) As String + Dim _ActTag As New StringBuilder + _ActTag.Append("[") + For Each _TTag As String In _TagArray_In + _ActTag.Append(_TTag + ".") + Next + _ActTag.Append("]") + Return (_ActTag.ToString).Remove(_ActTag.ToString.Length - 2, 1) + End Function + '((_PropertyInfo_In.GetValue(_Property_In, Nothing)).[GetType]()).GetProperties().Length > 0 And + 'If (((_PropertyInfo_In.GetValue(_Property_In, Nothing)).[GetType]().ToString.Split(New Char() {"."c}, StringSplitOptions.RemoveEmptyEntries)))(0) = "SISBusiness" Then + ' RecursivePropertyInfo(_PropertyInfo_In.GetValue(_Property_In, Nothing), _RecursionLevel + 1, _ArrayList_Name_In, _ArrayList_Value_In) + 'End If + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + + Private Sub aInsertRTFTextContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInsertRTFTextContracts.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.GetObjectByKey(Of DevExpress.Persistent.BaseImpl.User)(_onew.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _RTFCopy As RTFCopy = _onew.FindObject(Of RTFCopy)(CriteriaOperator.Parse("UserCreated=?", _User)) + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + + Dim _DocPos As API.Native.DocumentPosition = _RichEditControl.Document.CaretPosition + + _RichEditControl.Document.InsertHtmlText(_DocPos, _RTFCopy.RTFString) + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.Designer.vb new file mode 100644 index 0000000..6af02c1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DeliveryNoteInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.vb new file mode 100644 index 0000000..66566ee --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteInVC.vb @@ -0,0 +1,87 @@ +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.Win.Editors + +Public Class DeliveryNoteInVC + Inherits SISBusiness.Module.DeliveryNoteInVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "DeliveryNoteInHeader_DetailView" Then + AddHandler View.ControlsCreated, AddressOf DeliveryNoteInHeader_DetailView_ControlCreated + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Private Sub DeliveryNoteInHeader_DetailView_ControlCreated(sender As Object, e As EventArgs) + If View.Id = "DeliveryNoteInHeader_DetailView" Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + + AddHandler _row_Products_Editor.ControlValueChanged, AddressOf _row_Products_Editor_ControlValueChanged + End If + End Sub + + Private Sub _row_Products_Editor_ControlValueChanged(sender As Object, e As EventArgs) + Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor + _row_QTT = TryCast(View, DetailView).FindItem("row_QTT") + If _row_QTT IsNot Nothing Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + If _row_Products_Editor IsNot Nothing Then + Dim _Products As SISBusiness.Module.Products = TryCast(_row_Products_Editor.ControlValue, SISBusiness.Module.Products) + If _Products IsNot Nothing Then + Dim _SpinEdit As DevExpress.XtraEditors.SpinEdit + _SpinEdit = TryCast(_row_QTT.Control, DevExpress.XtraEditors.SpinEdit) + If _SpinEdit IsNot Nothing Then + Select Case _Products.DecimalIn + Case 0 + _SpinEdit.Properties.Mask.EditMask = "#,##0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 1 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 2 + _SpinEdit.Properties.Mask.EditMask = "#,##0.00" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 3 + _SpinEdit.Properties.Mask.EditMask = "#,##0.000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 4 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case Else + _SpinEdit.Properties.Mask.EditMask = "" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = False + End Select + End If + End If + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.Designer.vb new file mode 100644 index 0000000..c28aae4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DeliveryNoteOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.vb new file mode 100644 index 0000000..6c530a0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOutVC.vb @@ -0,0 +1,41 @@ +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.Win.Editors + +Public Class DeliveryNoteOutVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + 'If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Or _ + ' View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Or _ + ' View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT_Will" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + ' End If + 'End If + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.Designer.vb new file mode 100644 index 0000000..b25e142 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class IntrastatHeader_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.vb new file mode 100644 index 0000000..0c343f8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/DeliveryNote/IntrastatHeader_VC.vb @@ -0,0 +1,35 @@ +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 IntrastatHeader_VC + Inherits SISBusiness.Module.IntrastatHeader_VC + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb new file mode 100644 index 0000000..3de2bb8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CRMEstateStatisticsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb new file mode 100644 index 0000000..18344c0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb @@ -0,0 +1,64 @@ +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.PivotGrid.Win +Imports DevExpress.XtraPivotGrid +Imports DevExpress.ExpressApp.Utils + +Public Class CRMEstateStatisticsVC + Inherits SISBusiness.Module.CRMEstateStatisticsVC + Dim _WaitFormClass as New WaitFormClass + Private _PivotGridListEditor As PivotGridListEditor + Private _PivotGrdidControl As PivotGridControl + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "CRMEstateStatistics_ListView_Pivot" Then + _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor) + + If _PivotGridListEditor IsNot Nothing Then + _PivotGrdidControl = _PivotGridListEditor.PivotGridControl + AddHandler _PivotGrdidControl.FieldValueDisplayText, AddressOf PivotGridControl_FieldValueDisplayText + End If + End If + End Sub + Private Sub PivotGridControl_FieldValueDisplayText(sender As Object, e As PivotFieldDisplayTextEventArgs) + If e.Field IsNot Nothing Then + If e.Field.Name = "Field_Immovables.ImmovablesTypes" Then + e.DisplayText = CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eImmovablesTypes", e.DisplayText.ToString) + End If + If e.Field.Name = "Field_Immovables.ImmovableSoldState" Then + e.DisplayText = CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eImmovableSoldState", e.DisplayText.ToString) + End If + + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb new file mode 100644 index 0000000..f65cf48 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb @@ -0,0 +1,82 @@ +Partial Class CRMEstateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewEMail_CRMEstate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSendEMail_CRMEstate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReplyEmail_CRMEstate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewEMail_CRMEstate + ' + Me.aViewEMail_CRMEstate.Caption = "aViewEMail_CRMEstate" + Me.aViewEMail_CRMEstate.ConfirmationMessage = Nothing + Me.aViewEMail_CRMEstate.Id = "aViewEMail_CRMEstate" + Me.aViewEMail_CRMEstate.ImageName = "mail_view" + Me.aViewEMail_CRMEstate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewEMail_CRMEstate.Shortcut = Nothing + Me.aViewEMail_CRMEstate.Tag = Nothing + Me.aViewEMail_CRMEstate.TargetObjectsCriteria = "EventType=2 OR EventType=3" + Me.aViewEMail_CRMEstate.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads_Activity) + Me.aViewEMail_CRMEstate.TargetViewId = Nothing + Me.aViewEMail_CRMEstate.ToolTip = Nothing + Me.aViewEMail_CRMEstate.TypeOfView = Nothing + ' + 'aSendEMail_CRMEstate + ' + Me.aSendEMail_CRMEstate.Caption = "aSendEMail_CRMEstate" + Me.aSendEMail_CRMEstate.ConfirmationMessage = Nothing + Me.aSendEMail_CRMEstate.Id = "aSendEMail_CRMEstate" + Me.aSendEMail_CRMEstate.ImageName = "mail_new" + Me.aSendEMail_CRMEstate.Shortcut = Nothing + Me.aSendEMail_CRMEstate.Tag = Nothing + Me.aSendEMail_CRMEstate.TargetObjectsCriteria = Nothing + Me.aSendEMail_CRMEstate.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads_Activity) + Me.aSendEMail_CRMEstate.TargetViewId = Nothing + Me.aSendEMail_CRMEstate.ToolTip = Nothing + Me.aSendEMail_CRMEstate.TypeOfView = Nothing + ' + 'aReplyEmail_CRMEstate + ' + Me.aReplyEmail_CRMEstate.Caption = "aReplyEmail_CRMEstate" + Me.aReplyEmail_CRMEstate.ConfirmationMessage = Nothing + Me.aReplyEmail_CRMEstate.Id = "aReplyEmail_CRMEstate" + Me.aReplyEmail_CRMEstate.ImageName = "mail_write" + Me.aReplyEmail_CRMEstate.Shortcut = Nothing + Me.aReplyEmail_CRMEstate.Tag = Nothing + Me.aReplyEmail_CRMEstate.TargetObjectsCriteria = Nothing + Me.aReplyEmail_CRMEstate.TargetObjectType = GetType(SISBusiness.[Module].Win.OutlookEMail) + Me.aReplyEmail_CRMEstate.TargetViewId = "OutlookEMail_DetailView_View" + Me.aReplyEmail_CRMEstate.ToolTip = Nothing + Me.aReplyEmail_CRMEstate.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewEMail_CRMEstate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSendEMail_CRMEstate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReplyEmail_CRMEstate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx new file mode 100644 index 0000000..d02b74d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 750, 233 + + + 738, 180 + + + 845, 336 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb new file mode 100644 index 0000000..f1b7714 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb @@ -0,0 +1,227 @@ +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 Microsoft.Office.Interop +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Editors + +Public Class CRMEstateVC + Inherits SISBusiness.Module.CRMEstateVC + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler CreateReservationReminder, AddressOf _CreateReservationReminder + If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView" Or View.Id = "CRMEstate_Opportunity_CRMEstate_Opportunity_Immovables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit + End If + If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "OutlookEMail_DetailView_View" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + End If + If View.Id = "CRMEstate_Leads_DetailView" Then + For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)() + + If editor.PropertyName = "FirstName" Then + AddHandler editor.ControlCreated, AddressOf editor_FirstName + End If + If editor.PropertyName = "LastName" Then + AddHandler editor.ControlCreated, AddressOf editor_LastName + End If + Next editor + End If + 'If View.Id = "CRMEstate_Opportunity_Payment_Forecast_DetailView" Then + ' Dim _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity_Payment_Forecast) + ' If _CRMEstate_Opportunity_Payment_Forecast.CurrencyName.ShortName = "HUF" Then + ' Dim _SumPriceNettoHUF_ViewItem As DevExpress.ExpressApp.Editors.ViewItem = TryCast(View, DetailView).FindItem("SumPriceNettoHUF") + ' Dim _DoublePropertyEditor_HUF As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor = TryCast(_SumPriceNettoHUF_ViewItem, DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor) + ' AddHandler _DoublePropertyEditor_HUF.ControlValueChanged, AddressOf DoublePropertyEditor_HUF_ControlValueChanged + ' End If + + 'End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView" Or View.Id = "CRMEstate_Opportunity_CRMEstate_Opportunity_Immovables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation + End If + If View.Id = "CRMEstate_Leads_CRMEstate_Leads_Activity_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "OutlookEMail_DetailView_View" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + End If + + End Sub + Public Sub _CreateReservationReminder(ByVal _CRMEstate_Leads_Immovables_Reservation As CRMEstate_Leads_Immovables_Reservation) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI") + Dim _NewTask As Outlook.TaskItem = _OutlookApp.CreateItem(Outlook.OlItemType.olTaskItem) + Dim _Date As New DateTime(_CRMEstate_Leads_Immovables_Reservation.DateTo.Year, _CRMEstate_Leads_Immovables_Reservation.DateTo.Month, _CRMEstate_Leads_Immovables_Reservation.DateTo.Day, 9, 0, 0) + Dim _DueDate As New DateTime(_CRMEstate_Leads_Immovables_Reservation.DateTo.Year, _CRMEstate_Leads_Immovables_Reservation.DateTo.Month, _CRMEstate_Leads_Immovables_Reservation.DateTo.Day, 12, 0, 0) + + _OutlookNameSpace.Logon(, , True, True) + _NewTask.ReminderSet = True + _NewTask.Body = "Lejr opcionlis foglals!" + _NewTask.DueDate = _DueDate + _NewTask.ReminderTime = _Date + _NewTask.Subject = _CRMEstate_Leads_Immovables_Reservation.CRMEstate_Leads_Immovables.Immovables.DisplayName + _NewTask.UnRead = True + _NewTask.Save() + + End Sub + Private Sub aViewEMail_CRMEstate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewEMail_CRMEstate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRMEstate_Leads_Activity As CRMEstate_Leads_Activity = TryCast(View.SelectedObjects(0), CRMEstate_Leads_Activity) + If _CRMEstate_Leads_Activity Is Nothing Then Throw New Exception("*Nincs kijellve egyetlen sor sem!") + + Dim _OutlookEMail As OutlookEMail = _onew.FindObject(Of OutlookEMail)(DevExpress.Data.Filtering.CriteriaOperator.Parse("Oid=?", _CRMEstate_Leads_Activity.Email_Oid)) + Dim _OutlookEMailIn As OutlookEMailIn = _onew.FindObject(Of OutlookEMailIn)(DevExpress.Data.Filtering.CriteriaOperator.Parse("Oid=?", _CRMEstate_Leads_Activity.Email_Oid)) + + If _OutlookEMail Is Nothing And _OutlookEMailIn Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + If _OutlookEMail Is Nothing Then + _OutlookEMail = _onew.CreateObject(Of OutlookEMail)() + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + _OutlookEMail.HTMLBody = _OutlookEMailIn.EmailBody + _OutlookEMail.Subject = _OutlookEMailIn.EmailSubject + + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _OutlookEMailIn.OutlookEMailAttachments + _OutlookEMail.OutlookEMailAttachments.Add(_OutlookEMailAttachments) + Next + _OutlookEMail.Recipients = _OutlookEMailIn.ReceiverEmailAdress + _OutlookEMail.OutlookEMailIn_Oid = _OutlookEMailIn.Oid.ToString + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + + If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRMEstate_Leads) IsNot Nothing Then + _OutlookEMail.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRMEstate_Leads).Oid) + Else + _OutlookEMail.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRMEstate_Opportunity).CRMEstate_Leads.Oid) + End If + + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OutlookEMail_DetailView_View", False, _OutlookEMail) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aSendEMail_CRMEstate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendEMail_CRMEstate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) + If _PropertyCollectionSource Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _OutlookEMail As OutlookEMail = _onew.CreateObject(Of OutlookEMail)() + + If TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) IsNot Nothing Then + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) + + _OutlookEMail.Subject = "< Nincs belltva >" + If _CRMEstate_Leads.EMail = "" Or _CRMEstate_Leads.EMail Is Nothing Then + _OutlookEMail.Recipients = "< Nincs belltva >" + Else + _OutlookEMail.Recipients = _CRMEstate_Leads.EMail + End If + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + _OutlookEMail.HTMLBody = "Tisztelt " + _CRMEstate_Leads.LastName + " " + _CRMEstate_Leads.FirstName + _ + "!

 

 

 

dvzlettel: " + _CRMEstate_Leads.HRPerson.FullName + _OutlookEMail.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(_CRMEstate_Leads.Oid) + End If + + If TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Opportunity) IsNot Nothing Then + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Opportunity) + + _OutlookEMail.Subject = "< Nincs belltva >" + If _CRMEstate_Opportunity.CRMEstate_Leads.EMail = "" Or _CRMEstate_Opportunity.CRMEstate_Leads.EMail Is Nothing Then + _OutlookEMail.Recipients = "< Nincs belltva >" + Else + _OutlookEMail.Recipients = _CRMEstate_Opportunity.CRMEstate_Leads.EMail + End If + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + _OutlookEMail.HTMLBody = "Tisztelt " + _CRMEstate_Opportunity.CRMEstate_Leads.LastName + " " + _CRMEstate_Opportunity.CRMEstate_Leads.FirstName + _ + "!

 

 

 

dvzlettel: " + _CRMEstate_Opportunity.CRMEstate_Leads.HRPerson.FullName + _OutlookEMail.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(_CRMEstate_Opportunity.CRMEstate_Leads.Oid) + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OutlookEMail_DetailView", False, _OutlookEMail) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aReplyEmail_CRMEstate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReplyEmail_CRMEstate.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) + If _OutlookEMail Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _OutlookEMailIn_old As OutlookEMailIn = _onew.FindObject(Of OutlookEMailIn)(DevExpress.Data.Filtering.CriteriaOperator.Parse("Oid=?", _OutlookEMail.OutlookEMailIn_Oid)) + If _OutlookEMailIn_old Is Nothing Then Throw New Exception("*Kimen e-mail-re nem lehet vlaszolni!") + + Dim _OutlookEMail_new As OutlookEMail = _onew.CreateObject(Of OutlookEMail)() + + _OutlookEMail_new.Recipients = _OutlookEMailIn_old.SenderEmailAddress + _OutlookEMail_new.Subject = "RE: " + _OutlookEMailIn_old.EmailSubject + Dim _HTML_Body As String = "

 

" + _ + "
From:" + _OutlookEMailIn_old.SenderName + _ + " " + _OutlookEMailIn_old.SenderEmailAddress + "
" + _ + "Sent:" + _OutlookEMailIn_old.ReceivedTime.ToString + "
To:" + _OutlookEMailIn_old.ReceiverEmailAdress + "
Subject:" + _OutlookEMailIn_old.EmailSubject + "

" + _HTML_Body = _HTML_Body + _OutlookEMailIn_old.EmailBody + + _OutlookEMail_new.HTMLBody = _HTML_Body + _OutlookEMail_new.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(_OutlookEMail.CRMEstate_Leads.Oid) + _OutlookEMail_new.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OutlookEMail_DetailView", True, _OutlookEMail_new) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub DoublePropertyEditor_HUF_ControlValueChanged(sender As Object, e As EventArgs) + Throw New NotImplementedException + End Sub + + Private Sub editor_LastName(sender As Object, e As EventArgs) + Dim _LastNameStringPropertyEditor As StringPropertyEditor = TryCast(sender, StringPropertyEditor) + AddHandler _LastNameStringPropertyEditor.Control.Click, AddressOf StringPropertyEditor_Click + End Sub + Private Sub editor_FirstName(sender As Object, e As EventArgs) + Dim _FirstNameStringPropertyEditor As StringPropertyEditor = TryCast(sender, StringPropertyEditor) + AddHandler _FirstNameStringPropertyEditor.Control.Click, AddressOf StringPropertyEditor_Click + End Sub + Private Sub StringPropertyEditor_Click(sender As Object, e As EventArgs) + sender.SelectAll() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.Designer.vb new file mode 100644 index 0000000..8e2bf0f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.Designer.vb @@ -0,0 +1,81 @@ +Partial Class InsertGridToRTF_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInsertGridToRTF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInsertGridToRTFCurrentPos = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRestoreDocumentTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInsertGridToRTF + ' + Me.aInsertGridToRTF.Caption = "Insert grid" + Me.aInsertGridToRTF.Category = "aInsertGridToRTF" + Me.aInsertGridToRTF.ConfirmationMessage = Nothing + Me.aInsertGridToRTF.Id = "aInsertGridToRTF" + Me.aInsertGridToRTF.ImageName = "paste" + Me.aInsertGridToRTF.Shortcut = Nothing + Me.aInsertGridToRTF.Tag = Nothing + Me.aInsertGridToRTF.TargetObjectsCriteria = Nothing + Me.aInsertGridToRTF.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aInsertGridToRTF.ToolTip = Nothing + Me.aInsertGridToRTF.TypeOfView = Nothing + ' + 'aInsertGridToRTFCurrentPos + ' + Me.aInsertGridToRTFCurrentPos.Caption = "Insert grid Current position" + Me.aInsertGridToRTFCurrentPos.Category = "aInsertGridToRTFCurrentPos" + Me.aInsertGridToRTFCurrentPos.ConfirmationMessage = Nothing + Me.aInsertGridToRTFCurrentPos.Id = "aInsertGridToRTFCurrentPos" + Me.aInsertGridToRTFCurrentPos.ImageName = "paste" + Me.aInsertGridToRTFCurrentPos.Shortcut = Nothing + Me.aInsertGridToRTFCurrentPos.Tag = Nothing + Me.aInsertGridToRTFCurrentPos.TargetObjectsCriteria = Nothing + Me.aInsertGridToRTFCurrentPos.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aInsertGridToRTFCurrentPos.ToolTip = Nothing + Me.aInsertGridToRTFCurrentPos.TypeOfView = Nothing + ' + 'aRestoreDocumentTemplate + ' + Me.aRestoreDocumentTemplate.Caption = "aRestore Document Template" + Me.aRestoreDocumentTemplate.Category = "aRestoreDocumentTemplate" + Me.aRestoreDocumentTemplate.ConfirmationMessage = Nothing + Me.aRestoreDocumentTemplate.Id = "aRestoreDocumentTemplate" + Me.aRestoreDocumentTemplate.ImageName = Nothing + Me.aRestoreDocumentTemplate.Shortcut = Nothing + Me.aRestoreDocumentTemplate.Tag = Nothing + Me.aRestoreDocumentTemplate.TargetObjectsCriteria = Nothing + Me.aRestoreDocumentTemplate.TargetViewId = Nothing + Me.aRestoreDocumentTemplate.ToolTip = Nothing + Me.aRestoreDocumentTemplate.TypeOfView = Nothing + + End Sub + Friend WithEvents aInsertGridToRTF As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInsertGridToRTFCurrentPos As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRestoreDocumentTemplate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.resx new file mode 100644 index 0000000..7f24dce --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 343, 89 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.vb new file mode 100644 index 0000000..65935b3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/InsertGridToRTF_VC.vb @@ -0,0 +1,447 @@ +Imports System +Imports System.IO +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.XtraGrid.Views.Grid + +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.Data +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering + + +Public Class InsertGridToRTF_VC + Inherits DevExpress.ExpressApp.ViewController + Dim _RichEditControl As RichEditControl + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "CRMEstate_Leads_DetailView" Then + '_RichEditControl = TryCast(View, DetailView).GetItems(Of RichEditPropertyEditor)(0).RichEditUserControl.RichEditControl + End If + End Sub + Private Sub aInsertGridToRTF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInsertGridToRTF.Execute + Dim _DetailView As DetailView = CType(View, DetailView) + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(e.CurrentObject, CRMEstate_Leads) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups)) + + If _CRMEstate_Leads.DocumentBody Is Nothing Then + _CRMEstate_Leads.DocumentBody = _ImmovablesGroupsParameters.DocumentBody + If _CRMEstate_Leads.DocumentBody Is Nothing Then + _CRMEstate_Leads.DocumentBody = "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}}" & _ + "{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}" & _ + "{\*\cs1\cf0 Default Paragraph Font;}{\*\cs2\sbasedon1\cf0 Line Number;}{\*\cs3\ul\cf1 Hyperlink;}}\sectd\pard\plain" & _ + "\ql\f1\par\pard\plain\ql\f1\par\pard\plain\ql\f1\par\pard\plain\ql{\f2\fs18\cf0 imapartmentsim}\f2\fs18\cf2\par" & _ + "\pard\plain\ql\f2\fs18\cf0\par\pard\plain\ql{\f2\fs18\cf0 imgaragesim}\f2\fs18\cf0\par\pard\plain\ql\f2\fs18\cf0\par" & _ + "\pard\plain\ql{\f2\fs18\cf0 imofficesim}\f2\fs18\cf0\par\pard\plain\ql\f2\fs18\cf0\par\pard\plain\ql{\f2\fs18\cf0 imcontainerim}" & _ + "\f2\fs18\cf0\par\pard\plain\ql\f1\par}" + End If + End If + + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 apartments}{\cf0 im}", "{\cf0 imapartmentsim}") + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 garages}{\cf0 im}", "{\cf0 imgaragesim}") + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 offices}{\cf0 im}", "{\cf0 imofficesim}") + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 container}{\cf0 im}", "{\cf0 imcontainerim}") + + '=========================== ColorTable ======================================= + Dim _actColorNum As Int32 = 0 + Dim _OrigColorTable As String + Dim _ColorTable As String = (_CRMEstate_Leads.DocumentBody.Remove(0, (InStr(_CRMEstate_Leads.DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red240\green240\blue240 ;}") + _OrigColorTable = "{\colortbl" & _ColorTable & "}" + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("improjectim", _CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups.ShortName) + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("imlastnameim", _CRMEstate_Leads.LastName) + _CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("imfirstnameim", _CRMEstate_Leads.FirstName) + '================================================================================= + + '=========================== Apartments ======================================= + Dim _CRMEstate_Leads_Immovables_Apartments As ListPropertyEditor + _CRMEstate_Leads_Immovables_Apartments = TryCast(View, DetailView).FindItem("Selected_Apartments") + + If _CRMEstate_Leads_Immovables_Apartments.ListView IsNot Nothing Then + Dim _ListView_Apartments As ListView = CType(_CRMEstate_Leads_Immovables_Apartments.ListView, ListView) + Dim _GridListEditor_Apartments As GridListEditor = TryCast(_ListView_Apartments.Editor, GridListEditor) + Dim _Grid_Apartments As GridView = TryCast(_GridListEditor_Apartments.GridView, GridView) + + If _Grid_Apartments IsNot Nothing Then + _CRMEstate_Leads.DocumentBody = RTFTableCreator(_Grid_Apartments, "imapartmentsim", _CRMEstate_Leads.DocumentBody) + End If + End If + + '================================================================================= + + '=========================== Offices ========================================== + Dim _CRMEstate_Leads_Immovables_Offices As ListPropertyEditor + _CRMEstate_Leads_Immovables_Offices = TryCast(View, DetailView).FindItem("Selected_Offices") + + If _CRMEstate_Leads_Immovables_Offices.ListView IsNot Nothing Then + Dim _ListView_Offices As ListView = CType(_CRMEstate_Leads_Immovables_Offices.ListView, ListView) + Dim _GridListEditor_Offices As GridListEditor = TryCast(_ListView_Offices.Editor, GridListEditor) + Dim _Grid_Offices As GridView = TryCast(_GridListEditor_Offices.GridView, GridView) + + If _Grid_Offices IsNot Nothing Then + _CRMEstate_Leads.DocumentBody = RTFTableCreator(_Grid_Offices, "imofficesim", _CRMEstate_Leads.DocumentBody) + End If + End If + '================================================================================= + + '=========================== Garages ========================================== + Dim _CRMEstate_Leads_Immovables_Garages As ListPropertyEditor + _CRMEstate_Leads_Immovables_Garages = TryCast(View, DetailView).FindItem("Selected_Garages") + If _CRMEstate_Leads_Immovables_Garages.ListView IsNot Nothing Then + Dim _ListView_Garages As ListView = CType(_CRMEstate_Leads_Immovables_Garages.ListView, ListView) + Dim _GridListEditor_Garages As GridListEditor = TryCast(_ListView_Garages.Editor, GridListEditor) + Dim _Grid_Garages As GridView = TryCast(_GridListEditor_Garages.GridView, GridView) + + If _Grid_Garages IsNot Nothing Then + _CRMEstate_Leads.DocumentBody = RTFTableCreator(_Grid_Garages, "imgaragesim", _CRMEstate_Leads.DocumentBody) + End If + End If + '================================================================================= + + '=========================== Container ========================================== + Dim _CRMEstate_Leads_Immovables_Container As ListPropertyEditor + _CRMEstate_Leads_Immovables_Container = TryCast(View, DetailView).FindItem("Selected_Container") + If _CRMEstate_Leads_Immovables_Container.ListView IsNot Nothing Then + Dim _ListView_Container As ListView = CType(_CRMEstate_Leads_Immovables_Container.ListView, ListView) + Dim _GridListEditor_Container As GridListEditor = TryCast(_ListView_Container.Editor, GridListEditor) + Dim _Grid_Container As GridView = TryCast(_GridListEditor_Container.GridView, GridView) + + If _Grid_Container IsNot Nothing Then + _CRMEstate_Leads.DocumentBody = RTFTableCreator(_Grid_Container, "imcontainerim", _CRMEstate_Leads.DocumentBody) + End If + End If + '================================================================================= + End Sub + Private Sub aInsertGridToRTFCurrentPos_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInsertGridToRTFCurrentPos.Execute + 'Dim _DetailView As DetailView = CType(View, DetailView) + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(e.CurrentObject, CRMEstate_Leads) + + Dim _CRMEstate_Leads_Immovables As ListPropertyEditor + _CRMEstate_Leads_Immovables = TryCast(View, DetailView).FindItem("CRMEstate_Leads_Immovables") + + Dim _ListView As ListView = CType(_CRMEstate_Leads_Immovables.ListView, ListView) + Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor) + Dim _Grid As GridView = TryCast(_GridListEditor.GridView, GridView) + + + _RichEditControl.Document.InsertText(_RichEditControl.Document.CaretPosition, "LilaLiba") + + + Dim _RTFTable As String = RTFTableCreatorCurrentPos(_Grid) + + Dim _DocumentBody_NEW As String = _CRMEstate_Leads.DocumentBody + _DocumentBody_NEW = _CRMEstate_Leads.DocumentBody.Replace("LilaLiba", _RTFTable) + _CRMEstate_Leads.DocumentBody = "" + _CRMEstate_Leads.DocumentBody = _DocumentBody_NEW + + ' _RichEditControl.Document.InsertRtfText(_DocumentPosition, RTFTableCreatorCurrentPos(_Grid)) + '_RichEditControl.Document.CaretPosition = _RichEditControl.Document.Range.End + + + End Sub + Private Function RTFTableCreatorCurrentPos(_Grid As GridView) ', _DocumentBody As String) As String + Dim _RTFtext As New StringBuilder + Dim _RowNum As Integer = _Grid.RowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Integer = 0 + '--Fejlc kirsa RTFknt-- + + _RTFtext.Append("\par\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + End If + Next + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\b\cf0" & _Grid.Columns(_ik).Caption & "}\b\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + End If + Next + irowIndex += 1 + + '' --Adatsorok kirsa RTFknt-- + For _ik As Integer = 0 To _RowNum - 2 + + _RTFtext.Append("\row") + For _jk As Integer = 0 To _ColumnsNum - 2 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\cf0" & (_Grid.GetRowCellValue(_ik, _Grid.Columns(_jk)).ToString()) & "}\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + End If + Next + irowIndex += 1 + Next + + ''--Utols sor -- + _RTFtext.Append("\row") + For _jk As Integer = 0 To _ColumnsNum - 2 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\cf0" & (_Grid.GetRowCellValue(_RowNum - 1, _Grid.Columns(_jk)).ToString()) & "}\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + End If + Next + _RTFtext.Append("\row\pard\plain\ql\par") + + '_DocumentBody_NEW = _DocumentBody.Replace(_Tag, _RTFtext.ToString()) + '_DocumentBody_NEW = _DocumentBody_NEW.Replace("{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;}", "{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;\red192\green192\blue192 ;}") + + Return _RTFtext.ToString() + End Function + Private Sub aRestoreDocumentTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRestoreDocumentTemplate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + If _CRMEstate_Leads Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _ + _CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups)) + + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs belltva ingatlancsoport paramter!") + + _CRMEstate_Leads.DocumentBody = _ImmovablesGroupsParameters.DocumentBody + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + + End Sub + + '-------------------Functions---------------------- + Function RTFTableCreator(_Grid As GridView, _Tag As String, _DocumentBody As String, Optional _FontSize As String = "8", _ + Optional _FontType As String = "Tahoma", Optional _RGB As String = "240,240,240") As String + + + Dim _DocumentBody_NEW As String + Dim _HeaderFillColor As Int32 ' -- Current table header fill color index in colot table + + If _RGB <> "240,240,240" Then + Dim _Parameters As String() = ColorTablereplacement(_DocumentBody, _RGB) + _HeaderFillColor = Convert.ToInt32(_Parameters(0)) + _DocumentBody = _Parameters(1) + Else + 'Dim _ColorTable As String = (_DocumentBody.Remove(0, (InStr(_DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + '_ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + 'Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + 'For _ik = 0 To _ColorArray.Length - 1 + ' If _ColorArray(_ik) = "\red240\green240\blue240 " Then + ' _HeaderFillColor = _ik + ' Exit For + ' End If + 'Next + _HeaderFillColor = 2 + End If + + If _Grid.DataRowCount > 0 Then + Dim _FontSizeNUM As Int32 = (Convert.ToInt32(_FontSize) * 2) ' -- Font size in half-points (the default is 16). => Size 8!!! + Dim _RTFtext As New StringBuilder + Dim _RowNumFull As Integer = _Grid.RowCount + Dim _RowNum As Integer = _Grid.DataRowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Int32 = 0 + Dim _LastCellIndex As Int32 = 0 + + '--Header to RTF format-- + '================================================================================= + _RTFtext.Append("\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + If _LastCellIndex < _ik Then + _LastCellIndex = _ik + End If + Next + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\pard\plain\ql\intbl{\b\fs" & _FontSizeNUM & "\cf0 " & _Grid.Columns.View.VisibleColumns(_ik).Caption & "}\b\cell") + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat" & _HeaderFillColor & "\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + Next + irowIndex += 1 + '' --Data to RTF format-- + '================================================================================= + For _ik As Int16 = 0 To _RowNumFull - 2 + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_ik)) = True Then + _RTFtext.Append("\row") + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik)).ToString) & "}\cell") + + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + + irowIndex += 1 + Else + _RTFtext.Append("\row") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetRowCellDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)) = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + irowIndex += 1 + End If + Next + '--Last row -- + '================================================================================= + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)) = True Then + _RTFtext.Append("\row") + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)).ToString) & "}\cell") + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + Else + _RTFtext.Append("\row") + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.Columns.View.GetRowCellDisplayText(_RowNum - 1, _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)) = True Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + ''--- + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + End If + + _RTFtext.Append("\row\pard\plain\ql") + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, _RTFtext.ToString()) + If _DocumentBody_NEW.Contains("\fonttbl{\f0 Times New Roman;") Then + _DocumentBody_NEW = _DocumentBody_NEW.Replace("\fonttbl{\f0 Times New Roman;", "\fonttbl{\f0 " & _FontType & ";") 'Font table remake + End If + Else + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, " ") + End If + + Return _DocumentBody_NEW + End Function + Function ColorTablereplacement(_DocumentBody As String, _RGB As String) As String() + Dim _Parameters(1) As String + Dim _RGBArray As String() = _RGB.Split(New [Char]() {","c}) + + Dim _actColorNum As Int32 = -1 + Dim _ColorTable As String = (_DocumentBody.Remove(0, (InStr(_DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + + For _ik As Int32 = 0 To _ColorArray.Length - 1 + If _ColorArray(_ik) = "\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " " Then + _actColorNum = _ik + End If + Next + If _actColorNum = -1 Then + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " ;}") + Dim _OrigColorTable As String = "{\colortbl" & _ColorTable & "}" + _DocumentBody = _DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + _Parameters(0) = _ColorArray.Length - 1 + _Parameters(1) = _DocumentBody + Else + _Parameters(0) = _actColorNum + _Parameters(1) = _DocumentBody + End If + Return _Parameters + End Function +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.Designer.vb new file mode 100644 index 0000000..4261d8f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class SendMailVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSendMailCRMEstate_Leads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSendEMailLawyerDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSendMailCRMEstate_Leads + ' + Me.aSendMailCRMEstate_Leads.Caption = "Send mail" + Me.aSendMailCRMEstate_Leads.Category = "aSendMailCRMEstate_Leads" + Me.aSendMailCRMEstate_Leads.ConfirmationMessage = Nothing + Me.aSendMailCRMEstate_Leads.Id = "aSendMailCRMEstate_Leads" + Me.aSendMailCRMEstate_Leads.ImageName = "mail2" + Me.aSendMailCRMEstate_Leads.Shortcut = Nothing + Me.aSendMailCRMEstate_Leads.Tag = Nothing + Me.aSendMailCRMEstate_Leads.TargetObjectsCriteria = Nothing + Me.aSendMailCRMEstate_Leads.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads) + Me.aSendMailCRMEstate_Leads.TargetViewId = "" + Me.aSendMailCRMEstate_Leads.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSendMailCRMEstate_Leads.ToolTip = Nothing + Me.aSendMailCRMEstate_Leads.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSendEMailLawyerDocument + ' + Me.aSendEMailLawyerDocument.Caption = "Send EMail Lawyer Document" + Me.aSendEMailLawyerDocument.Category = "" + Me.aSendEMailLawyerDocument.ConfirmationMessage = Nothing + Me.aSendEMailLawyerDocument.Id = "aSendEMailLawyerDocument" + Me.aSendEMailLawyerDocument.ImageName = Nothing + Me.aSendEMailLawyerDocument.Shortcut = Nothing + Me.aSendEMailLawyerDocument.Tag = Nothing + Me.aSendEMailLawyerDocument.TargetObjectsCriteria = Nothing + Me.aSendEMailLawyerDocument.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity) + Me.aSendEMailLawyerDocument.TargetViewId = Nothing + Me.aSendEMailLawyerDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSendEMailLawyerDocument.ToolTip = Nothing + Me.aSendEMailLawyerDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aSendMailCRMEstate_Leads As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSendEMailLawyerDocument As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.resx new file mode 100644 index 0000000..df31097 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.vb new file mode 100644 index 0000000..03320f0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/CRM/SendMailVC.vb @@ -0,0 +1,164 @@ +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.ExpressApp.Reports.Win +Imports DevExpress.XtraPrinting +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports Microsoft.Office.Interop +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Utils + +Public Class SendMailVC + Inherits DevExpress.ExpressApp.ViewController + Private reportService As WinReportServiceController + Private printingService As PrintingController + Private _MemoryStream As New MemoryStream + Private _StreamReader As New StreamReader(_MemoryStream) + Private _RichEditControl As RichEditControl + + 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 = "CRMEstate_Leads_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + + End If + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + reportService = Frame.GetController(Of WinReportServiceController)() + printingService = Frame.GetController(Of PrintingController)() + End Sub + + Private Sub aSendMailReportCRMEstate_Leads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + + End Sub + Private Sub reportService_CustomShowPreview(ByVal sender As Object, ByVal e As CustomShowPreviewEventArgs) + e.Report.CreateDocument() + e.Report.ExportToHtml(_MemoryStream) + e.Handled = True + End Sub + Private Sub aSendMailCRMEstate_Leads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendMailCRMEstate_Leads.Execute + Try + Dim _OutlookEMail As OutlookEMail + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + + Dim _FileName As String = Path.GetTempPath & "Ajnlat.pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _RichEditControl.ExportToPdf(_StreamFile) + _StreamFile.Close() + + _StreamFile = New FileStream(_FileName, FileMode.Open, FileAccess.Read) + Dim _StreamReader As New StreamReader(_StreamFile) + _StreamFile.Seek(0, SeekOrigin.Begin) + + Dim _OutlookEMailAttachments As OutlookEMailAttachments = _onew.CreateObject(Of OutlookEMailAttachments)() + Dim _DocumentFileData As DocumentFileData = _onew.CreateObject(Of DocumentFileData)() + _DocumentFileData.File = New FileData(_onew.Session) + _DocumentFileData.File.LoadFromStream("Ajnlat.pdf", _StreamFile) '_FileData + _DocumentFileData.File.FileName = "Ajnlat.pdf" + _OutlookEMailAttachments.DocumentFileData = _onew.GetObject(_DocumentFileData) + + _StreamReader.Close() + _StreamFile.Close() + + '-- Most jn az j outlook ! + _MemoryStream.Position = 0 + _OutlookEMail = _onew.CreateObject(Of OutlookEMail)() + _OutlookEMail.HTMLBody = "" + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + _OutlookEMail.CRMEstate_Leads = _onew.GetObjectByKey(Of CRMEstate_Leads)(_CRMEstate_Leads.Oid) + If _CRMEstate_Leads.EMail = "" Or _CRMEstate_Leads.EMail Is Nothing Then + _OutlookEMail.Recipients = "< = Nincs belltva e-mail cm az gyflhez! = >" + Else + _OutlookEMail.Recipients = _CRMEstate_Leads.EMail + End If + _OutlookEMail.OutlookEMailAttachments.Add(_OutlookEMailAttachments) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OutlookEMail_DetailView", True, _OutlookEMail) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + Private Sub aSendEMailLawyerDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendEMailLawyerDocument.Execute + Try + Dim _OutlookEMail As OutlookEMail + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + If _CRMEstate_Opportunity Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _onew.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups.Oid=?", _ + _CRMEstate_Opportunity.CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups.Oid)) + + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincsenek belltva a(z) " + _ + _CRMEstate_Opportunity.CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups.ShortName + " paramterei!") + Dim _ReportData As ReportData = _ImmovablesGroupsParameters.ReportData_Contract_Temp + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva az gyvdi segdanyag nyomtatvny!" + vbNewLine + "Krem, ellenrizze!") + + Dim _XafReport As Reports.XafReport = _ReportData.LoadReport(_onew) + Dim _FilterString As String = "[CRMEstate_Opportunity.Oid]='" & _CRMEstate_Opportunity.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & "gyvdi segdlet.pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + _StreamFile = New FileStream(_FileName, FileMode.Open, FileAccess.Read) + Dim _StreamReader As New StreamReader(_StreamFile) + _StreamFile.Seek(0, SeekOrigin.Begin) + + Dim _OutlookEMailAttachments As OutlookEMailAttachments = _onew.CreateObject(Of OutlookEMailAttachments)() + Dim _DocumentFileData As DocumentFileData = _onew.CreateObject(Of DocumentFileData)() + _DocumentFileData.File = New FileData(_ocur.Session) + _DocumentFileData.File.LoadFromStream("gyvdi segdlet.pdf", _StreamFile) '_FileData + _DocumentFileData.File.FileName = "gyvdi segdlet.pdf" + _OutlookEMailAttachments.DocumentFileData = _DocumentFileData + + _StreamReader.Close() + _StreamFile.Close() + + '-- Most jn az j outlook ! + _MemoryStream.Position = 0 + _OutlookEMail = _onew.CreateObject(Of OutlookEMail)() + _OutlookEMail.Subject = _CRMEstate_Opportunity.CRMEstate_Leads.DisplayName + " - gyvdi segdlet" + _OutlookEMail.HTMLBody = "Tisztelt Nmeth s Herrmann gyvdi Iroda!" + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRMEstate + _OutlookEMail.Recipients = "< = Nincs belltva e-mail = >" + + _OutlookEMail.OutlookEMailAttachments.Add(_OutlookEMailAttachments) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OutlookEMail_DetailView", True, _OutlookEMail) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.Designer.vb new file mode 100644 index 0000000..336daa4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.Designer.vb @@ -0,0 +1,63 @@ +Partial Class ImmovablesPriceListVCWIN + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInsertAPriceListToDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRestorePriceListTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInsertAPriceListToDocument + ' + Me.aInsertAPriceListToDocument.Caption = "Insert to document" + Me.aInsertAPriceListToDocument.ConfirmationMessage = "Do you want to execute command ?" + Me.aInsertAPriceListToDocument.Id = "aInsertAPriceListToDocument" + Me.aInsertAPriceListToDocument.ImageName = "BO_Person" + Me.aInsertAPriceListToDocument.Shortcut = Nothing + Me.aInsertAPriceListToDocument.Tag = Nothing + Me.aInsertAPriceListToDocument.TargetObjectsCriteria = Nothing + Me.aInsertAPriceListToDocument.TargetViewId = "ImmovablesPriceListHeader_DetailView" + Me.aInsertAPriceListToDocument.ToolTip = Nothing + Me.aInsertAPriceListToDocument.TypeOfView = Nothing + ' + 'aRestorePriceListTemplate + ' + Me.aRestorePriceListTemplate.Caption = "aRestore Price List Template" + Me.aRestorePriceListTemplate.ConfirmationMessage = Nothing + Me.aRestorePriceListTemplate.Id = "aRestorePriceListTemplate" + Me.aRestorePriceListTemplate.ImageName = Nothing + Me.aRestorePriceListTemplate.Shortcut = Nothing + Me.aRestorePriceListTemplate.Tag = Nothing + Me.aRestorePriceListTemplate.TargetObjectsCriteria = Nothing + Me.aRestorePriceListTemplate.TargetViewId = "ImmovablesPriceListHeader_DetailView" + Me.aRestorePriceListTemplate.ToolTip = Nothing + Me.aRestorePriceListTemplate.TypeOfView = Nothing + + End Sub + Friend WithEvents aInsertAPriceListToDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRestorePriceListTemplate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.resx new file mode 100644 index 0000000..4433601 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 228, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb new file mode 100644 index 0000000..d1c6c9e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVCWIN.vb @@ -0,0 +1,476 @@ +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.ExpressApp.Win.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraRichEdit.Commands +Imports DevExpress.XtraRichEdit.API.Native +Imports DevExpress.ExpressApp.SystemModule + +Public Class ImmovablesPriceListVCWIN + Inherits DevExpress.ExpressApp.ViewController + Private _RichEditControl As RichEditControl + Private _GridListEditor As GridListEditor + + 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 = "ImmovablesPriceListHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditControlViewItem As ViewItem + + If _DetailView IsNot Nothing Then + _RichEditControlViewItem = _DetailView.GetItems(Of RichEditPropertyEditor)(0) + If _RichEditControlViewItem IsNot Nothing Then + AddHandler _RichEditControlViewItem.ControlCreated, AddressOf RichEditControlViewItem_ControlCreated + End If + + + + '_RichEditControl.Document.Variables.Add("DOCUMENTVARIABLE Created", "nnnnna") + 'AddHandler _RichEditControl.CalculateDocumentVariable, AddressOf _CalculateDocumentVariable + End If + End If + + 'If View.Id = "CRMEstate_Offer_Template_DetailView" Then + ' _RichEditControl = TryCast(View, DetailView).GetItems(Of RichEditPropertyEditor)(0).RichEditUserControl.RichEditControl + ' _RichEditControl.Document.Fields.Add(_RichEditControl.Document.Range.End, "DOCVARIABLE Count") + 'End If + + 'If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Or _ + ' View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _ + ' View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _ + ' View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "ListPriceBruttoDEV" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "ListPriceBruttoHUF" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "ListPriceBruttoDEVRent" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "ListPriceBruttoHUFRent" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "NoteRow" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + + ' '_GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceNettoHUF" Then _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceNettoDEV" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceNettoHUF" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceNettoDEV" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceBruttoDEV" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceBruttoHUF" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceNettoHUFRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceNettoDEVRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceNettoHUFRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceBruttoDEV" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceBruttoHUF" _ + ' 'Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceBruttoDEVRent" _ + ' 'Or Not _GridListEditor.GridView.Columns(i).FieldName = "AreaListPriceBruttoHUFRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceNettoDEVRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceBruttoDEVRent" _ + ' ' Or Not _GridListEditor.GridView.Columns(i).FieldName = "ListPriceBruttoHUFRent" Then + ' End If + ' Next i + ' End If + 'End If + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.AutoCommit + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Or _ + View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = ModificationsHandlingMode.Confirmation + End If + End Sub + Private Sub aInsertAPriceListToDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInsertAPriceListToDocument.Execute + Dim _DetailView As DetailView = CType(View, DetailView) + Dim _ImmovablesPriceListHeader As ImmovablesPriceListHeader = TryCast(e.CurrentObject, ImmovablesPriceListHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + 'Ha sablon alapjn akarod kszteni akkor kell egy paramter s a sablon amit be akarsz tlteni + '_ImmovablesPriceListHeader.DocumentBody = _ImmovablesPriceListHeader.DocumentBody + + '_CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 apartments}{\cf0 im}", "{\cf0 imapartmentsim}") + '_CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 garages}{\cf0 im}", "{\cf0 imgaragesim}") + '_CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 offices}{\cf0 im}", "{\cf0 imofficesim}") + '_CRMEstate_Leads.DocumentBody = _CRMEstate_Leads.DocumentBody.Replace("{\cf0 im}{\cf0 container}{\cf0 im}", "{\cf0 imcontainerim}") + + '=========================== ColorTable ======================================= + Dim _actColorNum As Int32 = 0 + Dim _OrigColorTable As String + If _ImmovablesPriceListHeader.DocumentBody Is Nothing Then + _ImmovablesPriceListHeader.DocumentBody = "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}}" & _ + "{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}" & _ + "{\*\cs1\cf0 Default Paragraph Font;}{\*\cs2\sbasedon1\cf0 Line Number;}{\*\cs3\ul\cf1 Hyperlink;}}\sectd\pard\plain\ql{\cf0 }\par\pard\plain\ql\par\pard\plain\ql\par}" + End If + Dim _ColorTable As String = (_ImmovablesPriceListHeader.DocumentBody.Remove(0, (InStr(_ImmovablesPriceListHeader.DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red240\green240\blue240 ;}") + _OrigColorTable = "{\colortbl" & _ColorTable & "}" + _ImmovablesPriceListHeader.DocumentBody = _ImmovablesPriceListHeader.DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + + _ImmovablesPriceListHeader.DocumentBody = _ImmovablesPriceListHeader.DocumentBody.Replace("improjectim", _ImmovablesPriceListHeader.ImmovablesGroups.ShortName) + + '================================================================================= + + '=========================== Apartments ======================================= + Dim ImmovablesPriceListRowsA As ListPropertyEditor + ImmovablesPriceListRowsA = TryCast(View, DetailView).FindItem("ImmovablesPriceListRowsA") + If CType(ImmovablesPriceListRowsA.ListView, ListView) IsNot Nothing Then + Dim _ListView_Apartments As ListView = CType(ImmovablesPriceListRowsA.ListView, ListView) + Dim _GridListEditor_Apartments As GridListEditor = TryCast(_ListView_Apartments.Editor, GridListEditor) + Dim _Grid_Apartments As GridView = TryCast(_GridListEditor_Apartments.GridView, GridView) + + If _Grid_Apartments IsNot Nothing Then + _ImmovablesPriceListHeader.DocumentBody = RTFTableCreator(_Grid_Apartments, "imapartmentsim", _ImmovablesPriceListHeader.DocumentBody) + End If + End If + '================================================================================= + + '=========================== Offices ========================================== + Dim ImmovablesPriceListRowsO As ListPropertyEditor + ImmovablesPriceListRowsO = TryCast(View, DetailView).FindItem("ImmovablesPriceListRowsO") + If CType(ImmovablesPriceListRowsO.ListView, ListView) IsNot Nothing Then + Dim _ListView_Offices As ListView = CType(ImmovablesPriceListRowsO.ListView, ListView) + Dim _GridListEditor_Offices As GridListEditor = TryCast(_ListView_Offices.Editor, GridListEditor) + Dim _Grid_Offices As GridView = TryCast(_GridListEditor_Offices.GridView, GridView) + + If _Grid_Offices IsNot Nothing Then + _ImmovablesPriceListHeader.DocumentBody = RTFTableCreator(_Grid_Offices, "imofficesim", _ImmovablesPriceListHeader.DocumentBody) + End If + End If + '================================================================================= + + '=========================== Garages ========================================== + Dim ImmovablesPriceListRowsG As ListPropertyEditor + ImmovablesPriceListRowsG = TryCast(View, DetailView).FindItem("ImmovablesPriceListRowsG") + If CType(ImmovablesPriceListRowsG.ListView, ListView) IsNot Nothing Then + Dim _ListView_Garages As ListView = CType(ImmovablesPriceListRowsG.ListView, ListView) + Dim _GridListEditor_Garages As GridListEditor = TryCast(_ListView_Garages.Editor, GridListEditor) + Dim _Grid_Garages As GridView = TryCast(_GridListEditor_Garages.GridView, GridView) + + If _Grid_Garages IsNot Nothing Then + _ImmovablesPriceListHeader.DocumentBody = RTFTableCreator(_Grid_Garages, "imgaragesim", _ImmovablesPriceListHeader.DocumentBody) + End If + End If + '================================================================================= + + '=========================== Container ========================================== + Dim ImmovablesPriceListRowsC As ListPropertyEditor + ImmovablesPriceListRowsC = TryCast(View, DetailView).FindItem("ImmovablesPriceListRowsC") + + If CType(ImmovablesPriceListRowsC.ListView, ListView) IsNot Nothing Then + Dim _ListView_Container As ListView = CType(ImmovablesPriceListRowsC.ListView, ListView) + Dim _GridListEditor_Container As GridListEditor = TryCast(_ListView_Container.Editor, GridListEditor) + Dim _Grid_Container As GridView = TryCast(_GridListEditor_Container.GridView, GridView) + + If _Grid_Container IsNot Nothing Then + _ImmovablesPriceListHeader.DocumentBody = RTFTableCreator(_Grid_Container, "imcontainerim", _ImmovablesPriceListHeader.DocumentBody) + End If + End If + + '================================================================================= + End Sub + Function RTFTableCreator(_Grid As GridView, _Tag As String, _DocumentBody As String, Optional _FontSize As String = "8", _ + Optional _FontType As String = "Tahoma", Optional _RGB As String = "240,240,240") As String + Dim _DocumentBody_NEW As String + Dim _HeaderFillColor As Int32 ' -- Current table header fill color index in colot table + + If _RGB <> "240,240,240" Then + Dim _Parameters As String() = ColorTablereplacement(_DocumentBody, _RGB) + _HeaderFillColor = Convert.ToInt32(_Parameters(0)) + _DocumentBody = _Parameters(1) + Else + _HeaderFillColor = 2 + End If + + If _Grid.DataRowCount > 0 Then + Dim _FontSizeNUM As Int32 = (Convert.ToInt32(_FontSize) * 2) ' -- Font size in half-points (the default is 16). => Size 8!!! + Dim _RTFtext As New StringBuilder + Dim _RowNumFull As Integer = _Grid.RowCount + Dim _RowNum As Integer = _Grid.DataRowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Int32 = 0 + Dim _LastCellIndex As Int32 = 0 + + '--Header to RTF format-- + '================================================================================= + _RTFtext.Append("\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + If _LastCellIndex < _ik Then + _LastCellIndex = _ik + End If + Next + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\pard\plain\ql\intbl{\b\fs" & _FontSizeNUM & "\cf0 " & _Grid.Columns.View.VisibleColumns(_ik).Caption & "}\b\cell") + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat" & _HeaderFillColor & "\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + Next + irowIndex += 1 + '' --Data to RTF format-- + '================================================================================= + For _ik As Int16 = 0 To _RowNumFull - 2 + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_ik)) = True Then + _RTFtext.Append("\row") + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik)).ToString) & "}\cell") + + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + + irowIndex += 1 + Else + _RTFtext.Append("\row") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetRowCellDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)) = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + irowIndex += 1 + End If + Next + '--Last row -- + '================================================================================= + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNum - 1)) = True Then + _RTFtext.Append("\row") + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_RowNum - 1)).ToString) & "}\cell") + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + Else + _RTFtext.Append("\row") + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.Columns.View.GetRowCellDisplayText(_RowNum - 1, _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNum - 1)) = True Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_RowNum - 1), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + ''--- + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + End If + + _RTFtext.Append("\row\pard\plain\ql") + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, _RTFtext.ToString()) + If _DocumentBody_NEW.Contains("\fonttbl{\f0 Times New Roman;") Then + _DocumentBody_NEW = _DocumentBody_NEW.Replace("\fonttbl{\f0 Times New Roman;", "\fonttbl{\f0 " & _FontType & ";") 'Font table remake + End If + Else + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, " ") + End If + + Return _DocumentBody_NEW + End Function + Function ColorTablereplacement(_DocumentBody As String, _RGB As String) As String() + Dim _Parameters(1) As String + Dim _RGBArray As String() = _RGB.Split(New [Char]() {","c}) + + Dim _actColorNum As Int32 = -1 + Dim _ColorTable As String = (_DocumentBody.Remove(0, (InStr(_DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + + For _ik As Int32 = 0 To _ColorArray.Length - 1 + If _ColorArray(_ik) = "\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " " Then + _actColorNum = _ik + End If + Next + If _actColorNum = -1 Then + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " ;}") + Dim _OrigColorTable As String = "{\colortbl" & _ColorTable & "}" + _DocumentBody = _DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + _Parameters(0) = _ColorArray.Length - 1 + _Parameters(1) = _DocumentBody + Else + _Parameters(0) = _actColorNum + _Parameters(1) = _DocumentBody + End If + Return _Parameters + End Function + Private Function RTFTableCreatorCurrentPos(_Grid As GridView) ', _DocumentBody As String) As String + Dim _RTFtext As New StringBuilder + Dim _RowNum As Integer = _Grid.RowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Integer = 0 + '--Fejlc kirsa RTFknt-- + + _RTFtext.Append("\par\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + End If + Next + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\b\cf0" & _Grid.Columns(_ik).Caption & "}\b\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_ik).Visible = True Then + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + End If + Next + irowIndex += 1 + + '' --Adatsorok kirsa RTFknt-- + For _ik As Integer = 0 To _RowNum - 2 + + _RTFtext.Append("\row") + For _jk As Integer = 0 To _ColumnsNum - 2 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\cf0" & (_Grid.GetRowCellValue(_ik, _Grid.Columns(_jk)).ToString()) & "}\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + End If + Next + irowIndex += 1 + Next + + ''--Utols sor -- + _RTFtext.Append("\row") + For _jk As Integer = 0 To _ColumnsNum - 2 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\cf0" & (_Grid.GetRowCellValue(_RowNum - 1, _Grid.Columns(_jk)).ToString()) & "}\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _ColumnsNum - 1 + If _Grid.Columns(_jk).Visible = True Then + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + End If + Next + _RTFtext.Append("\row\pard\plain\ql\par") + + '_DocumentBody_NEW = _DocumentBody.Replace(_Tag, _RTFtext.ToString()) + '_DocumentBody_NEW = _DocumentBody_NEW.Replace("{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;}", "{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;\red192\green192\blue192 ;}") + + Return _RTFtext.ToString() + End Function + Private Sub aRestorePriceListTemplate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRestorePriceListTemplate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ImmovablesPriceListHeader As ImmovablesPriceListHeader = TryCast(e.SelectedObjects(0), ImmovablesPriceListHeader) + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups)) + + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincsen belltva az adott ingatlancsoporthoz a paramterek!") + _ImmovablesPriceListHeader.DocumentBody = _ImmovablesGroupsParameters.DocumentBodyPriceList + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub RichEditControlViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + _RichEditControl = TryCast(itemControl, RichEditUserControl).RichEditControl + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.Designer.vb new file mode 100644 index 0000000..a566d47 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.Designer.vb @@ -0,0 +1,112 @@ +Partial Class ImmovablesCostRecordExcelVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInsertCostRecords = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeCostRecords = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportCostRecords = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTempLikor = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSetUnitPrice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aInsertCostRecords + ' + Me.aInsertCostRecords.Caption = "aInsert Cost Records" + Me.aInsertCostRecords.ConfirmationMessage = "Do you want to execute ?" + Me.aInsertCostRecords.Id = "aInsertCostRecords" + Me.aInsertCostRecords.ImageName = Nothing + Me.aInsertCostRecords.Shortcut = Nothing + Me.aInsertCostRecords.Tag = Nothing + Me.aInsertCostRecords.TargetObjectsCriteria = Nothing + Me.aInsertCostRecords.TargetViewId = "ImmovablesCostRecordExcel_DetailView" + Me.aInsertCostRecords.ToolTip = Nothing + Me.aInsertCostRecords.TypeOfView = Nothing + ' + 'aFinalizeCostRecords + ' + Me.aFinalizeCostRecords.Caption = "aFinalize Cost Records" + Me.aFinalizeCostRecords.Category = "Save" + Me.aFinalizeCostRecords.ConfirmationMessage = "Do you want to execute ?" + Me.aFinalizeCostRecords.Id = "aFinalizeCostRecords" + Me.aFinalizeCostRecords.ImageName = "disk_red" + Me.aFinalizeCostRecords.Shortcut = Nothing + Me.aFinalizeCostRecords.Tag = Nothing + Me.aFinalizeCostRecords.TargetObjectsCriteria = Nothing + Me.aFinalizeCostRecords.TargetViewId = "ImmovablesCostRecordExcel_DetailView" + Me.aFinalizeCostRecords.ToolTip = Nothing + Me.aFinalizeCostRecords.TypeOfView = Nothing + ' + 'aImportCostRecords + ' + Me.aImportCostRecords.Caption = "aImport Cost Records" + Me.aImportCostRecords.ConfirmationMessage = "Do you want to execute ?" + Me.aImportCostRecords.Id = "aImportCostRecords" + Me.aImportCostRecords.ImageName = Nothing + Me.aImportCostRecords.Shortcut = Nothing + Me.aImportCostRecords.Tag = Nothing + Me.aImportCostRecords.TargetObjectsCriteria = Nothing + Me.aImportCostRecords.TargetViewId = "ImmovablesCostRecordExcel_DetailView" + Me.aImportCostRecords.ToolTip = Nothing + Me.aImportCostRecords.TypeOfView = Nothing + ' + 'aTempLikor + ' + Me.aTempLikor.Caption = "TEMP Import" + Me.aTempLikor.ConfirmationMessage = Nothing + Me.aTempLikor.Id = "aTempLikor" + Me.aTempLikor.ImageName = Nothing + Me.aTempLikor.Shortcut = Nothing + Me.aTempLikor.Tag = Nothing + Me.aTempLikor.TargetObjectsCriteria = Nothing + Me.aTempLikor.TargetViewId = "ImmovablesCostRecordExcel_DetailView" + Me.aTempLikor.ToolTip = Nothing + Me.aTempLikor.TypeOfView = Nothing + ' + 'aSetUnitPrice + ' + Me.aSetUnitPrice.AcceptButtonCaption = Nothing + Me.aSetUnitPrice.CancelButtonCaption = Nothing + Me.aSetUnitPrice.Caption = "aSet Unit Price" + Me.aSetUnitPrice.Category = "View" + Me.aSetUnitPrice.ConfirmationMessage = Nothing + Me.aSetUnitPrice.Id = "aSetUnitPrice" + Me.aSetUnitPrice.ImageName = Nothing + Me.aSetUnitPrice.Shortcut = Nothing + Me.aSetUnitPrice.Tag = Nothing + Me.aSetUnitPrice.TargetObjectsCriteria = Nothing + Me.aSetUnitPrice.TargetViewId = "ImmovablesCostRecordExcel_DetailView" + Me.aSetUnitPrice.ToolTip = Nothing + Me.aSetUnitPrice.TypeOfView = Nothing + + End Sub + Friend WithEvents aInsertCostRecords As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeCostRecords As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportCostRecords As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTempLikor As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSetUnitPrice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.resx new file mode 100644 index 0000000..d100f3e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 173 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb new file mode 100644 index 0000000..ba77d67 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesCostRecordExcelVC.vb @@ -0,0 +1,648 @@ +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 FarPoint.Win.Spread +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports System.Windows.Forms +Imports System.Data.OleDb +Imports DevExpress.ExpressApp.Editors +Imports System.Drawing +Imports System.Globalization + +Public Class ImmovablesCostRecordExcelVC + Inherits DevExpress.ExpressApp.ViewController + + Private _FpSpread As FpSpread + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "ImmovablesCostRecordExcel_ListView" Then + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True)) + + 'If _ImmovablesCostRecordExcel IsNot Nothing Then + ' Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + 'End If + End If + + If View.Id = "ImmovablesCostRecordExcel_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + Frame.GetController(Of ImmovablesCostRecordExcelVC)().aTempLikor.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = _ocur.FindObject(Of ImmovablesCostRecordExcel)(CriteriaOperator.Parse("IsEditable=?", True)) + + If _ImmovablesCostRecordExcel IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ImmovablesCostRecordExcel_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + + If View.Id = "ImmovablesCostRecordExcel_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "ImmovablesCostRecordExcel_DetailView" Then + + Dim _ExcelControlViewItem As ViewItem + _ExcelControlViewItem = TryCast(View, DetailView).GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + + End If + End Sub + Private Sub ExcelControlViewItem_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + If _FpSpread IsNot Nothing Then + _FpSpread.EditModeReplace = True + Dim _FileName As String = Path.GetTempPath & "OutSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(View.SelectedObjects(0), ImmovablesCostRecordExcel) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ocur.Session.IsNewObject(_ImmovablesCostRecordExcel) = False Then + If _ImmovablesCostRecordExcel IsNot Nothing Then + If _ImmovablesCostRecordExcel.ExcelFile IsNot Nothing Then + _ImmovablesCostRecordExcel.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + End If + End If + End If + End If + + + End Sub + Sub SaveAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "InSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(View.SelectedObjects(0), ImmovablesCostRecordExcel) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ImmovablesCostRecordExcel IsNot Nothing Then + If _FpSpread IsNot Nothing Then + _FpSpread.Save(_StreamFile, False) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _ImmovablesCostRecordExcel.ExcelFile = New FileData(_ocur.Session) + _ImmovablesCostRecordExcel.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _ImmovablesCostRecordExcel.Save() + _StreamFile2.Close() + End If + End If + End Sub + Private Sub aInsertCostRecords_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInsertCostRecords.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Sort As New SortProperty("Immovables.UniqueObjects.Name", DB.SortingDirection.Ascending) + Dim _SortRecordGroup As New SortProperty("ShortName", DB.SortingDirection.Ascending) + Dim _SortRecordMainGroup As New SortProperty("ImmovablesCostRecordMainGroup.GroupName", DB.SortingDirection.Ascending) + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(View.SelectedObjects(0), ImmovablesCostRecordExcel) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Sorting.Add(_Sort) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelMainGroup.Sorting.Add(_SortRecordMainGroup) + Dim _ImmovablesCostRecordGroup As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordGroup), CriteriaOperator.Parse("1=2")) + Dim _ImmovablesCostRecordMainGroup_Collection As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordMainGroup), CriteriaOperator.Parse("1=2")) + + For Each _ImmovablesCostRecordExcelMainGroup As ImmovablesCostRecordExcelMainGroup In _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelMainGroup + If _ImmovablesCostRecordExcelMainGroup.IsUseInExcel = True Then + If _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup.ImmovablesCostRecordGroup.Count > 0 Then + _ImmovablesCostRecordMainGroup_Collection.Add(_ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup) + + For Each _ImmovablesCostRecordGroup_Act As ImmovablesCostRecordGroup In _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup.ImmovablesCostRecordGroup + _ImmovablesCostRecordGroup.Add(_ImmovablesCostRecordGroup_Act) + Next + End If + End If + Next + _ImmovablesCostRecordGroup.Sorting.Add(_SortRecordGroup) + Dim _ik As Int16 = 0 + Dim _ColumnHeaderName As New ArrayList + Dim _BackColor As Drawing.Color = Drawing.ColorTranslator.FromHtml("&Hfff0f0f0") + Dim _Average As Double = 0 + + _FpSpread.Save(Path.GetTempPath + "SaveSp.xml", False) + Dim _FpSpread_Orig As FpSpread = New FpSpread() + _FpSpread_Orig.Open(Path.GetTempPath + "SaveSp.xml") + + + _FpSpread.Reset() + + _FpSpread.EditModeReplace = True + + _FpSpread.ActiveSheet.ColumnHeader.RowCount = 5 + _FpSpread.ActiveSheet.RowHeader.ColumnCount = 3 + _FpSpread.ActiveSheet.ColumnCount = 5 * _ImmovablesCostRecordGroup.Count + _FpSpread.ActiveSheet.RowCount = _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Count + + 'Oszlop fejléc + _FpSpread.ActiveSheet.AddColumnHeaderSpanCell(0, 0, 1, (5 * _ImmovablesCostRecordGroup.Count)) + _FpSpread.ActiveSheet.ColumnHeader.Cells(0, 0).Text = "Leolvasások" + + '---------------------------Oszlofejléc felépítése---------------------------- + Dim _MainGroupIndex As Int16 = 0 + Dim _RecordGroupIndex As Int16 = 0 + For Each _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup In _ImmovablesCostRecordMainGroup_Collection + Dim _ImmovablesCostRecordGroup_Collection As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordGroup), _ + CriteriaOperator.Parse("ImmovablesCostRecordMainGroup.Oid=?", _ImmovablesCostRecordMainGroup.Oid)) + + _FpSpread.ActiveSheet.AddColumnHeaderSpanCell(1, _MainGroupIndex, 1, _ImmovablesCostRecordGroup_Collection.Count * 5) + _FpSpread.ActiveSheet.ColumnHeader.Cells(1, _MainGroupIndex).Text = _ImmovablesCostRecordMainGroup.GroupName + + _ImmovablesCostRecordGroup_Collection.Sorting.Add(_SortRecordGroup) + For Each _ImmovablesCostRecordGroup_ACT As ImmovablesCostRecordGroup In _ImmovablesCostRecordGroup_Collection + _FpSpread.ActiveSheet.AddColumnHeaderSpanCell(2, _MainGroupIndex + _RecordGroupIndex, 1, 5) + _FpSpread.ActiveSheet.ColumnHeader.Cells(2, _MainGroupIndex + _RecordGroupIndex).Text = _ImmovablesCostRecordGroup_ACT.Oid.ToString + _FpSpread.ActiveSheet.ColumnHeader.Rows(2).Visible = False + + _FpSpread.ActiveSheet.AddColumnHeaderSpanCell(3, _MainGroupIndex + _RecordGroupIndex, 1, 5) + _FpSpread.ActiveSheet.ColumnHeader.Cells(3, _MainGroupIndex + _RecordGroupIndex).Text = _ImmovablesCostRecordGroup_ACT.ShortName + + _FpSpread.ActiveSheet.ColumnHeader.Cells(4, _MainGroupIndex + _RecordGroupIndex).Text = "Elõzõ" 'Fix érték 1 + _FpSpread.ActiveSheet.ColumnHeader.Cells(4, _MainGroupIndex + _RecordGroupIndex + 1).Text = "Aktuális" 'Fix érték 2 + _FpSpread.ActiveSheet.ColumnHeader.Cells(4, _MainGroupIndex + _RecordGroupIndex + 2).Text = "Különbség" 'Fix érték 3 + _FpSpread.ActiveSheet.ColumnHeader.Cells(4, _MainGroupIndex + _RecordGroupIndex + 3).Text = "Egységár" 'Fix érték 4 + _FpSpread.ActiveSheet.ColumnHeader.Cells(4, _MainGroupIndex + _RecordGroupIndex + 4).Text = "Érték" 'Fix érték 5 + + If _ImmovablesCostRecordGroup_ACT.CostRecordBaseMode = eCostRecordBaseMode.eFix Then + _FpSpread.ActiveSheet.Columns(_MainGroupIndex + _RecordGroupIndex).Visible = False + _FpSpread.ActiveSheet.Columns(_MainGroupIndex + _RecordGroupIndex + 1).Visible = False + _FpSpread.ActiveSheet.Columns(_MainGroupIndex + _RecordGroupIndex + 2).Visible = False + End If + + _RecordGroupIndex += 5 + Next + _RecordGroupIndex = 0 + _MainGroupIndex += _ImmovablesCostRecordGroup_Collection.Count * 5 + Next + + + '---------------------------Sor fejléc------------------------------------ + _FpSpread.ActiveSheet.AddRowHeaderSpanCell(0, 0, _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Count, 1) + _FpSpread.ActiveSheet.RowHeader.Cells(0, 0).Column.Width = 60 + _FpSpread.ActiveSheet.RowHeader.Cells(0, 0).Text = "Ingatlanok" + + '----------------------------Sorfejléc felépítése-------------------------------- + For Each _ImmovablesCostRecordExcelImmovables As ImmovablesCostRecordExcelImmovables In _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables + Dim _Immovables As Immovables = TryCast(_ImmovablesCostRecordExcelImmovables.Immovables, Immovables) + _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 2).Column.Width = 100 + _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 2).Row.Height = 30 + _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 1).Text = _Immovables.Oid.ToString + _FpSpread.ActiveSheet.RowHeader.Columns(1).Visible = False 'Oid elrejtése + _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 2).Text = _Immovables.UniqueObjects.Name + _ik += 1 + Next + + For _ik = 0 To _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Count - 1 + Dim _Immovables As Immovables = _ocur.FindObject(Of Immovables)(CriteriaOperator.Parse("UniqueObjects.Name=?", _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 2).Text)) + If _Immovables IsNot Nothing Then + For _jk = 0 To _FpSpread.ActiveSheet.ColumnCount - 1 Step 5 + Dim _ImmovablesCostRecordGroupOID As String = _FpSpread.ActiveSheet.ColumnHeader.Cells(2, _jk).Text + If _ImmovablesCostRecordGroupOID <> "" Then + Dim _ActImmovablesCostRecordGroup As ImmovablesCostRecordGroup = _ocur.FindObject(Of ImmovablesCostRecordGroup) _ + (CriteriaOperator.Parse("Oid=?", _ImmovablesCostRecordGroupOID)) + Dim _NumCellsType As New CellType.NumberCellType + Dim nfi As NumberFormatInfo = New CultureInfo("hu-HU", False).NumberFormat + _NumCellsType.DecimalSeparator = nfi.NumberDecimalSeparator + _NumCellsType.Separator = nfi.NumberGroupSeparator + _NumCellsType.DecimalPlaces = _ActImmovablesCostRecordGroup.DecimalPlace + _NumCellsType.NegativeRed = True + + Select Case _ActImmovablesCostRecordGroup.CostRecordBaseMode + Case eCostRecordBaseMode.eFix + Select Case _ActImmovablesCostRecordGroup.eCostRecordMode + Case eCostRecordMode.eNormal + + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).Value = _FpSpread_Orig.ActiveSheet.Cells(_ik, _jk + 3).Value + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).BackColor = _BackColor + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Formula = (_FpSpread.ActiveSheet.Cells(_ik, _jk + 3).ToString) + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Locked = True + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).TabStop = False + + + Case eCostRecordMode.eQuarter + Dim _ImmovablesQuater As Double = 0 + Select Case _Immovables.ImmovablesTypes + Case eImmovablesTypes.eApartment + _ImmovablesQuater = TryCast(_Immovables, Apartments).AreaNettoForCostRecord + Case eImmovablesTypes.eContainer + _ImmovablesQuater = TryCast(_Immovables, Container).AreaNettoForCostRecord + Case eImmovablesTypes.eGarage + _ImmovablesQuater = TryCast(_Immovables, Garages).AreaNettoForCostRecord + Case eImmovablesTypes.eOffice + _ImmovablesQuater = TryCast(_Immovables, Offices).AreaNettoForCostRecord + Case eImmovablesTypes.eStudentHostel + _ImmovablesQuater = 1 'TryCast(_ImmovablesCR.Immovables, StudentHostel).???? + End Select + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Value = _ImmovablesQuater + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).Value = _FpSpread_Orig.ActiveSheet.Cells(_ik, _jk + 3).Value + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).BackColor = _BackColor + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Formula = (_FpSpread.ActiveSheet.Cells(_ik, _jk + 1).ToString) & _ + "*" & (_FpSpread.ActiveSheet.Cells(_ik, _jk + 3).ToString) + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Locked = True + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).TabStop = False + + End Select + Case eCostRecordBaseMode.eCosuption + Select Case _ActImmovablesCostRecordGroup.eCostRecordMode + Case eCostRecordMode.eNormal + Dim _ActImmovablesCostRecord As ImmovablesCostRecord = _ocur.FindObject(Of ImmovablesCostRecord) _ + (CriteriaOperator.Parse("ImmovablesCostRecordGroup=? AND Immovables=?", _ActImmovablesCostRecordGroup, _Immovables)) + + If _ActImmovablesCostRecord IsNot Nothing Then + Dim _PrevEvents As ImmovablesCostRecordEvents + If _ActImmovablesCostRecord.ImmovablesCostRecordEvents.Count > 0 Then + Dim _SortEvents As New SortProperty("ReadDate", DB.SortingDirection.Descending) + _ActImmovablesCostRecord.ImmovablesCostRecordEvents.Sorting.Add(_SortEvents) + _PrevEvents = _ActImmovablesCostRecord.ImmovablesCostRecordEvents(0) + + If _PrevEvents.IsReader = True Then + _FpSpread.ActiveSheet.Cells(_ik, _jk).Value = 0 + _FpSpread.ActiveSheet.Cells(_ik, _jk).Tag = _PrevEvents.ImmovablesCostRecord.Oid.ToString + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Value = _PrevEvents.ReadedValue + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Tag = _PrevEvents.Oid.ToString + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).CellType = _NumCellsType + Else + _FpSpread.ActiveSheet.Cells(_ik, _jk).Value = _PrevEvents.ReadedValue + _FpSpread.ActiveSheet.Cells(_ik, _jk).Tag = _PrevEvents.ImmovablesCostRecord.Oid.ToString + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Value = 0 + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).BackColor = _BackColor + End If + + Else + _FpSpread.ActiveSheet.Cells(_ik, _jk).Value = 0 + _FpSpread.ActiveSheet.Cells(_ik, _jk).Tag = _ActImmovablesCostRecord.Oid.ToString + + End If + _FpSpread.ActiveSheet.Cells(_ik, _jk).Locked = True + _FpSpread.ActiveSheet.Cells(_ik, _jk).TabStop = False + _FpSpread.ActiveSheet.Cells(_ik, _jk).CellType = _NumCellsType + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).Formula = (_FpSpread.ActiveSheet.Cells(_ik, _jk + 1).ToString) & _ + "-" & (_FpSpread.ActiveSheet.Cells(_ik, _jk).ToString) + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).Locked = True + _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).TabStop = False + + _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).Value = _FpSpread_Orig.ActiveSheet.Cells(_ik, _jk + 3).Value + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Formula = (_FpSpread.ActiveSheet.Cells(_ik, _jk + 3).ToString) & _ + "*" & (_FpSpread.ActiveSheet.Cells(_ik, _jk + 2).ToString) + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Locked = True + _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).TabStop = False + + End If + Case eCostRecordMode.eQuarter + 'Beep() + MsgBox("---===>>> W T F <<<===---") + End Select + End Select + End If + Next + End If + Next + + If File.Exists(Path.GetTempPath + "SaveSp.xml") Then + File.Delete(Path.GetTempPath + "SaveSp.xml") + End If + _FpSpread.Refresh() + End Sub + Private Sub aFinalizeCostRecords_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeCostRecords.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(View.SelectedObjects(0), ImmovablesCostRecordExcel) + Dim _ColumnCount As Int16 = _FpSpread.ActiveSheet.ColumnCount + Dim _RowCount As Int16 = _FpSpread.ActiveSheet.RowCount + Dim _DelImmovablesCostRecordEvents_Collection As New ArrayList + _WaitFormClass.Initwork(1, 1, _RowCount) + For _ik = 0 To _RowCount - 1 + Dim _Immovables As Immovables = _ocur.FindObject(Of Immovables)(CriteriaOperator.Parse("UniqueObjects.Name=?", _FpSpread.ActiveSheet.RowHeader.Cells(_ik, 2).Text)) + For _jk = 0 To _ColumnCount - 1 Step 5 + Dim _ImmovablesCostRecordGroupOID As String = _FpSpread.ActiveSheet.ColumnHeader.Cells(2, _jk).Text + If _ImmovablesCostRecordGroupOID <> "" Then + Dim _ActImmovablesCostRecordGroup As ImmovablesCostRecordGroup = _ocur.FindObject(Of ImmovablesCostRecordGroup) _ + (CriteriaOperator.Parse("Oid=?", _ImmovablesCostRecordGroupOID)) + Dim _ActImmovablesCostRecord As ImmovablesCostRecord = _ocur.FindObject(Of ImmovablesCostRecord) _ + (CriteriaOperator.Parse("ImmovablesCostRecordGroup=? AND Immovables=?", _ActImmovablesCostRecordGroup, _Immovables)) + If _ActImmovablesCostRecord IsNot Nothing Then + Dim _NewImmovablesCostRecordEvents As ImmovablesCostRecordEvents = _ocur.CreateObject(Of ImmovablesCostRecordEvents)() + _NewImmovablesCostRecordEvents.ReadedValue = _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Value + If _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Tag IsNot Nothing Then + Dim _DelImmovablesCostRecordEvents As ImmovablesCostRecordEvents = _ocur.FindObject(Of ImmovablesCostRecordEvents)(CriteriaOperator.Parse("Oid=?", _FpSpread.ActiveSheet.Cells(_ik, _jk + 1).Tag.ToString)) + + _NewImmovablesCostRecordEvents.ReadDate = _ImmovablesCostRecordExcel.DateExecution '_DelImmovablesCostRecordEvents.ReadDate + + _DelImmovablesCostRecordEvents_Collection.Add(_DelImmovablesCostRecordEvents) + Else + _NewImmovablesCostRecordEvents.ReadDate = _ImmovablesCostRecordExcel.DateExecution 'GetSQLTime(_ocur.Session) + End If + + _NewImmovablesCostRecordEvents.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel + _NewImmovablesCostRecordEvents.ImmovablesCostRecord = _ActImmovablesCostRecord + _NewImmovablesCostRecordEvents.ReadedValuePrev = _FpSpread.ActiveSheet.Cells(_ik, _jk).Value + _NewImmovablesCostRecordEvents.ReadedValueDiff = _FpSpread.ActiveSheet.Cells(_ik, _jk + 2).Value + _NewImmovablesCostRecordEvents.ReadedValuePrice = _FpSpread.ActiveSheet.Cells(_ik, _jk + 3).Value + _NewImmovablesCostRecordEvents.ReadedValueSumPrice = _FpSpread.ActiveSheet.Cells(_ik, _jk + 4).Value + _NewImmovablesCostRecordEvents.ReadIndex += 1 + End If + End If + Next + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + Next + _ocur.Delete(_DelImmovablesCostRecordEvents_Collection) + _ocur.CommitChanges() + + _Waitformclass.FinalWork() + _FpSpread.Refresh() + _FpSpread.Enabled = False + End Sub + Private Sub aImportCostRecords_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aImportCostRecords.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _ik As Int16 = 0 + Dim _Count As Long = 0 + Dim _Rtime As New ArrayList + Dim _SID As New ArrayList + Dim _WH As New ArrayList + Dim _QM1 As New ArrayList + Dim _QM2 As New ArrayList + Dim _ARAM As New ArrayList + Dim _ColumnHeaderName As New ArrayList + Dim _BackColor As Drawing.Color = Drawing.ColorTranslator.FromHtml("&Hfff0f0f0") + 'Dim _NumCellsType As New CellType.NumberCellType + + 'Dim nfi As NumberFormatInfo = New CultureInfo("hu-HU", False).NumberFormat + '_NumCellsType.DecimalSeparator = nfi.NumberDecimalSeparator + '_NumCellsType.Separator = nfi.NumberGroupSeparator + '_NumCellsType.DecimalPlaces = 2 + '_NumCellsType.NegativeRed = True + + Dim _ActImmovables As XPCollection = _ocur.CreateCollection(GetType(Immovables), CriteriaOperator.Parse("1=2")) + Dim _ImmovablesCostRecordGroup As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordGroup), CriteriaOperator.Parse("1=1")) + Dim _OpenFileDialog As New OpenFileDialog + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + Dim _xlsFile As String = _OpenFileDialog.FileName + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=" & _xlsFile.ToString & ";" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr1 As OleDbDataReader + Dim mSQL As String + Dim _UpdatedCount As Long = 0 + + + Try + + mSQL = "select * from [Munka1$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr1 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr1.Read + If dr1(0).ToString <> "" And dr1(0).ToString <> "RTIME" Then + _Count += 1 + End If + End While + dr1.Close() + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Count) + While dr.Read + If dr(0).ToString <> "" And dr(0).ToString <> "RTIME" Then + + _Rtime.Add(dr(0).ToString) '"RTIME" + _SID.Add(dr(1).ToString) '"SID" + _WH.Add(dr(4).ToString) '"WH" + _QM1.Add(dr(2).ToString) '"QH[1]" + _QM2.Add(dr(3).ToString) '"QH[2]" + _ARAM.Add(dr(5).ToString) '"ARAM" + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + End If + End While + + dr.Close() + End If + conn.Close() + Catch ex As Exception + MsgBox(ex.Message) + conn.Close() + Finally + _Waitformclass.FinalWork() + End Try + End If + + + Try + + If _FpSpread.ActiveSheet.RowCount = 1 And _FpSpread.ActiveSheet.ColumnCount = 1 Then Throw New Exception("*Üres az Excel file, nem lehet adatokat importálni!") + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(View.SelectedObjects(0), ImmovablesCostRecordExcel) + Dim _ImmovablesCostRecordExcelImmovables As ImmovablesCostRecordExcelImmovables + For _ik = 0 To _SID.Count - 1 + Dim _ImmovablesCostRecord_Collection As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecord), _ + CriteriaOperator.Parse("SID=?", _SID(_ik))) + _WaitFormClass.Initwork(1, 1, _ImmovablesCostRecord_Collection.Count) + For Each _ImmovablesCostRecord As ImmovablesCostRecord In _ImmovablesCostRecord_Collection + + _ImmovablesCostRecordExcelImmovables = _ocur.FindObject(Of ImmovablesCostRecordExcelImmovables)(CriteriaOperator.Parse("Immovables=? AND ImmovablesCostRecordExcel=?", _ + _ImmovablesCostRecord.Immovables, _ImmovablesCostRecordExcel)) + If _ImmovablesCostRecordExcelImmovables IsNot Nothing Then + For _jk = 0 To _FpSpread.ActiveSheet.RowCount - 1 + If _FpSpread.ActiveSheet.RowHeader.Cells(_jk, 1).Text = _ImmovablesCostRecordExcelImmovables.Immovables.Oid.ToString Then + + For _lk = 0 To _FpSpread.ActiveSheet.ColumnCount - 1 Step 5 + If _FpSpread.ActiveSheet.ColumnHeader.Cells(2, _lk).Text = _ImmovablesCostRecord.ImmovablesCostRecordGroup.Oid.ToString Then + Dim _NumCellsType As New CellType.NumberCellType + Dim nfi As NumberFormatInfo = New CultureInfo("hu-HU", False).NumberFormat + _NumCellsType.DecimalSeparator = nfi.NumberDecimalSeparator + _NumCellsType.Separator = nfi.NumberGroupSeparator + _NumCellsType.DecimalPlaces = _ImmovablesCostRecord.ImmovablesCostRecordGroup.DecimalPlace + _NumCellsType.NegativeRed = True + + _FpSpread.ActiveSheet.Cells(_jk, _lk + 1).CellType = _NumCellsType + _FpSpread.ActiveSheet.Cells(_jk, _lk + 2).CellType = _NumCellsType + Select Case _ImmovablesCostRecord.SIDChild + Case eSIDChild.SID_QM1 + _FpSpread.ActiveSheet.Cells(_jk, _lk + 1).Value = Convert.ToDouble(_QM1(_ik)) + Case eSIDChild.SID_QM2 + _FpSpread.ActiveSheet.Cells(_jk, _lk + 1).Value = Convert.ToDouble(_QM2(_ik)) + Case eSIDChild.SID_WH + _FpSpread.ActiveSheet.Cells(_jk, _lk + 1).Value = Convert.ToDouble(_WH(_ik)) + Case eSIDChild.SID_ARAM + _FpSpread.ActiveSheet.Cells(_jk, _lk + 1).Value = Convert.ToDouble(_ARAM(_ik)) + Case eSIDChild.SID_NONE + End Select + End If + Next + End If + Next + End If + Next + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + Next + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + Finally + _Waitformclass.FinalWork() + End Try + + End Sub + + Private Sub aTempLikor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTempLikor.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _ImmovablesName As New ArrayList + Dim _SID As New ArrayList + Dim _OpenFileDialog As New OpenFileDialog + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + + Dim _xlsFile As String = _OpenFileDialog.FileName + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=" & _xlsFile.ToString & ";" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + Dim _Count As Long = 0 + Dim _UpdatedCount As Long = 0 + Try + + mSQL = "select * from [Sheet$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr.Read + If dr(0).ToString <> "" Or dr(0).ToString <> "RTIME" Then + '_form.ProgressBarControl1.Properties.Maximum = _Count + + _ImmovablesName.Add(dr(0).ToString) + _SID.Add(dr(1).ToString) + + '_WaitFormClass.DoWork + 'System.Windows.Forms.Application.DoEvents() + End If + End While + dr.Close() + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + End If + + Dim _ImmovablesCostRecordGroup As XPCollection = _ocur.CreateCollection(GetType(ImmovablesCostRecordGroup), CriteriaOperator.Parse("1=1")) + Dim _ik As Int16 = 0 + For Each _ActImmo In _ImmovablesName + Dim _Immo As Immovables = _ocur.FindObject(Of Immovables)(CriteriaOperator.Parse("UniqueObjects.Name=?", _ActImmo)) + If _Immo IsNot Nothing Then + For Each _ActImmovablesCostRecordGroup In _ImmovablesCostRecordGroup + Dim _ImmovablesCostRecord As ImmovablesCostRecord = _ocur.CreateObject(Of ImmovablesCostRecord)() + _ImmovablesCostRecord.Immovables = _ocur.GetObjectByKey(Of Immovables)(_Immo.Oid) + _ImmovablesCostRecord.SID = _SID(_ik) + _ImmovablesCostRecord.ImmovablesCostRecordGroup = _ActImmovablesCostRecordGroup + _ImmovablesCostRecord.ShortName = TryCast(_ActImmovablesCostRecordGroup, ImmovablesCostRecordGroup).ShortName + + _ImmovablesCostRecord.Save() + Next + End If + _ik += 1 + Next + _ocur.CommitChanges() + End Sub + Private Sub aSetUnitPrice_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetUnitPrice.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SetUnitPrice_PopUp As SetUnitPrice_PopUp = _onew.CreateObject(Of SetUnitPrice_PopUp)() + _SetUnitPrice_PopUp.UnitPrice = 1 + + e.View = Application.CreateDetailView(_onew, "SetUnitPrice_PopUp_DetailView", False, _SetUnitPrice_PopUp) + End Sub + Private Sub aSetUnitPrice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetUnitPrice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SetUnitPrice_PopUp As SetUnitPrice_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), SetUnitPrice_PopUp) + Dim _Unitprice As Double = _SetUnitPrice_PopUp.UnitPrice + Dim _ImmovablesCostRecordGroup As ImmovablesCostRecordGroup = _ocur.GetObjectByKey(Of ImmovablesCostRecordGroup)(_SetUnitPrice_PopUp.ImmovablesCostRecordGroup.Oid) + Dim _ColumnIndex As Int16 = 0 + For _ik As Int16 = 0 To _FpSpread.ActiveSheet.ColumnHeader.Columns.Count / 5 - 1 + If _FpSpread.ActiveSheet.ColumnHeader.Cells(2, _ik * 5).Text = _ImmovablesCostRecordGroup.Oid.ToString Then + _ColumnIndex = _ik * 5 + 3 + Exit For + End If + Next + If _ColumnIndex <> 0 Then + For _ik As Int16 = 0 To _FpSpread.ActiveSheet.RowCount - 1 + _FpSpread.ActiveSheet.Cells(_ik, _ColumnIndex).Value = _Unitprice + Next + + Else + Throw New Exception("*Nem lehet beazonosítani a mérőórát!") + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb new file mode 100644 index 0000000..16f5c3d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class ImmovablesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aImmovables_ImportLotNumber = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aImmovables_ImportLotNumber + ' + Me.aImmovables_ImportLotNumber.Caption = "aImmovables_ImportLotNumber" + Me.aImmovables_ImportLotNumber.ConfirmationMessage = Nothing + Me.aImmovables_ImportLotNumber.Id = "aImmovables_ImportLotNumber" + Me.aImmovables_ImportLotNumber.ImageName = Nothing + Me.aImmovables_ImportLotNumber.Shortcut = Nothing + Me.aImmovables_ImportLotNumber.Tag = Nothing + Me.aImmovables_ImportLotNumber.TargetObjectsCriteria = Nothing + Me.aImmovables_ImportLotNumber.TargetObjectType = GetType(SISBusiness.[Module].Immovables) + Me.aImmovables_ImportLotNumber.TargetViewId = Nothing + Me.aImmovables_ImportLotNumber.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aImmovables_ImportLotNumber.ToolTip = Nothing + Me.aImmovables_ImportLotNumber.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aImmovables_ImportLotNumber As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx new file mode 100644 index 0000000..a608336 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 224, 135 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb new file mode 100644 index 0000000..79ad1f2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb @@ -0,0 +1,137 @@ +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 System.Windows.Forms +Imports System.Data.OleDb +Imports DevExpress.Data.Filtering + +Public Class ImmovablesVC + Inherits SISBusiness.Module.ImmovablesVC + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Private Sub aImmovables_ImportLotNumber_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aImmovables_ImportLotNumber.Execute + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _Array_UniqueObjects As New ArrayList + Dim _Array_ImmovablesGroups As New ArrayList + Dim _Array_ImmovablesType As New ArrayList + Dim _Array_LotNumber As New ArrayList + Dim _Array_ZIP As New ArrayList + Dim _Array_City As New ArrayList + Dim _Array_Street As New ArrayList + Dim _MissingImmovable As Long = 0 + Dim _MissingImmovablesUO As New ArrayList + + Dim _OpenFileDialog As New OpenFileDialog + _OpenFileDialog.Filter = "Xls Files (.xls)|*.xls|Xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*" + + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + If Not String.IsNullOrEmpty(_OpenFileDialog.FileName) Then + Dim _xlsFile As String = _OpenFileDialog.FileName + + Dim _ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" + _ConnectionString += "Data Source=" & _xlsFile.ToString & ";" + _ConnectionString += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + Dim _OleDbConnection As New OleDbConnection(_ConnectionString) + Dim _OleDbCommand As New OleDbCommand + Dim _OleDbDataReader As OleDbDataReader + Dim _mSQL As String + Dim _UpdatedCount As Long = 0 + + '_WaitFormClass.InitWork + Try + + _mSQL = "select * from [Sheet$]" + _OleDbCommand.CommandTimeout = 60 + _OleDbCommand.Connection = _OleDbConnection + _OleDbCommand.CommandType = CommandType.Text + _OleDbCommand.CommandText = _mSQL + _OleDbConnection.Open() + + If _OleDbConnection.State = ConnectionState.Open Then + _OleDbDataReader = _OleDbCommand.ExecuteReader(CommandBehavior.SingleResult) + While _OleDbDataReader.Read + If Not String.IsNullOrEmpty(_OleDbDataReader(0).ToString) Then + _Array_UniqueObjects.Add(_OleDbDataReader(0).ToString) + _Array_ImmovablesGroups.Add(_OleDbDataReader(1).ToString) + _Array_ImmovablesType.Add(_OleDbDataReader(2).ToString) + _Array_LotNumber.Add(_OleDbDataReader(3).ToString) + _Array_ZIP.Add(_OleDbDataReader(4).ToString) + _Array_City.Add(_OleDbDataReader(5).ToString) + _Array_Street.Add(_OleDbDataReader(6).ToString) + End If + End While + + _OleDbDataReader.Close() + End If + _OleDbConnection.Close() + Catch ex As Exception + MsgBox(ex.Message) + _OleDbConnection.Close() + End Try + + + _WaitFormClass.InitWork(0, 1, _Array_UniqueObjects.Count) + For ik = 0 To _Array_UniqueObjects.Count - 1 Step 1 + Dim _UniqueObjects As UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Array_UniqueObjects(ik))) + If _UniqueObjects IsNot Nothing Then + Dim _Immovables As Immovables = _ocur.FindObject(Of Immovables)(CriteriaOperator.Parse("UniqueObjects=?", _UniqueObjects)) + If _Immovables IsNot Nothing Then + _Immovables.LotNumber = _Array_LotNumber(ik) + + If _Immovables.Address Is Nothing Then + Dim _Address As New DevExpress.Persistent.BaseImpl.Address(_ocur.Session) + _Address.ZipPostal = _Array_ZIP(ik) + _Address.City = _Array_City(ik) + _Address.Street = _Array_Street(ik) + + _Immovables.Address = _Address + End If + Else + _MissingImmovable += 1 + _MissingImmovablesUO.Add(_Array_UniqueObjects(ik)) + End If + End If + _WaitFormClass.DoWork() + Next + End If + _ocur.CommitChanges() + _Waitformclass.FinalWork() + If _MissingImmovable > 0 Then + Dim _UOList As String = "" + For Each _UO As String In _MissingImmovablesUO + _UOList += _UO + vbNewLine + vbNewLine + Next + _UOList += vbNewLine + MsgBox(String.Format("{0} db ingatlant nem lehet beazonostani az egyedi azonost alapjn! {1}", _MissingImmovable, _UOList)) + End If + End If + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/SetUnitPrice_PopUp.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/SetUnitPrice_PopUp.vb new file mode 100644 index 0000000..bb77bd1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/SetUnitPrice_PopUp.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SetUnitPrice_PopUp + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup + Private _ImmovablesCostRecordGroup As ImmovablesCostRecordGroup + Private _UnitPrice As Double + + Property ImmovablesCostRecordExcelMainGroup As ImmovablesCostRecordMainGroup + Get + Return _ImmovablesCostRecordMainGroup + End Get + Set(value As ImmovablesCostRecordMainGroup) + SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value) + End Set + End Property + _ + Property ImmovablesCostRecordGroup As ImmovablesCostRecordGroup + Get + Return _ImmovablesCostRecordGroup + End Get + Set(value As ImmovablesCostRecordGroup) + SetPropertyValue("ImmovablesCostRecordGroup", _ImmovablesCostRecordGroup, value) + End Set + End Property + Property UnitPrice As Double + Get + Return _UnitPrice + End Get + Set(value As Double) + SetPropertyValue("UnitPrice", _UnitPrice, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/FactoringSpreadCustomFunction.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/FactoringSpreadCustomFunction.vb new file mode 100644 index 0000000..98fbf74 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/FactoringSpreadCustomFunction.vb @@ -0,0 +1,51 @@ +Imports DevExpress.Spreadsheet.Functions +Imports DevExpress.Spreadsheet +Imports DevExpress.XtraSpreadsheet +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering + +Public Class FactoringSpreadCustomFunction + Inherits Object + Implements ICustomFunction + + + Private Const functionName As String = "GETFACTORINFO" + Private ReadOnly functionParameters() As ParameterInfo + Public Sub New() + Me.functionParameters = New ParameterInfo() {New ParameterInfo(ParameterType.Value, ParameterAttributes.Required), New ParameterInfo(ParameterType.Value, ParameterAttributes.Optional)} + End Sub + Public Function Evaluate(parameters As IList(Of ParameterValue), context As EvaluationContext) As ParameterValue Implements IFunction.Evaluate + Return "NINCS BEÁLLÍTVA" + End Function + +#Region "BASE" + Public Function GetName(culture As Globalization.CultureInfo) As String Implements IFunction.GetName + Return functionName + End Function + + Public ReadOnly Property Name As String Implements IFunction.Name + Get + Return functionName + End Get + End Property + + Public ReadOnly Property Parameters As ParameterInfo() Implements IFunction.Parameters + Get + Return functionParameters + End Get + End Property + + Public ReadOnly Property ReturnType As ParameterType Implements IFunction.ReturnType + Get + Return ParameterType.Value + End Get + End Property + + Public ReadOnly Property Volatile As Boolean Implements IFunction.Volatile + Get + Return False + End Get + End Property +#End Region + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.Designer.vb new file mode 100644 index 0000000..bb1ee7b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InvoiceFactoringVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.vb new file mode 100644 index 0000000..8792b53 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceFactoringVC.vb @@ -0,0 +1,105 @@ +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.XtraSpreadsheet +Imports DevExpress.Persistent.BaseImpl +Imports System.ComponentModel + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Partial Public Class InvoiceFactoringVC + Inherits ViewController + Private _SpreadsheetControl As SpreadsheetControl + 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. + If View.Id = "InvoiceFactoringHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") + If _SpreadXML_ViewItem IsNot Nothing Then + AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated + + AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + End If + End If + 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 _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs) + 'Dim _InvoiceFactoringBank As InvoiceFactoringBank = TryCast(View.SelectedObjects(0), InvoiceFactoringBank) + 'Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + 'Dim _SpreadUserControl As SpreadUserControl = TryCast(_ItemControl, SpreadUserControl) + + '_SpreadsheetControl = TryCast(_ItemControl, SpreadUserControl).SpreadsheetControl1 + + 'If _InvoiceFactoringBank IsNot Nothing Then + ' If _InvoiceFactoringBank.SpreadFile IsNot Nothing Then + ' Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _InvoiceFactoringBank.SpreadFile.FileName) + ' Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + ' _InvoiceFactoringBank.SpreadFile.SaveToStream(_Stream) + ' _Stream.Close() + + ' Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + ' Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + ' Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + ' _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + ' workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + ' _StreamFile.Close() + ' End If + 'End If + 'Dim _FactoringSpreadCustomFunction As New FactoringSpreadCustomFunction + 'Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + + 'If (Not _workbook.CustomFunctions.Contains(_FactoringSpreadCustomFunction.Name)) Then + ' _workbook.CustomFunctions.Add(_FactoringSpreadCustomFunction) + 'End If + + End Sub + Private Sub SaveAction_Executing(sender As Object, e As CancelEventArgs) + 'Dim _InvoiceFactoringBank As InvoiceFactoringBank = TryCast(View.SelectedObjects(0), InvoiceFactoringBank) + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + 'If _SpreadsheetControl IsNot Nothing Then + + ' Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "FACTORING.XML") + ' Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + ' _SpreadsheetControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + ' _Stream.Close() + + ' Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + ' Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + ' _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + ' Dim _FileData As FileData + ' _FileData = _ocur.CreateObject(Of FileData)() + + ' _FileData.LoadFromStream("FACTORING.XML", _StreamFile) + + ' _InvoiceFactoringBank.SpreadFile = _FileData + 'End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.Designer.vb new file mode 100644 index 0000000..31bde58 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InvoiceRowVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.vb new file mode 100644 index 0000000..d0d90cb --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowVC.vb @@ -0,0 +1,38 @@ +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 InvoiceRowVC + Inherits SISBusiness.Module.InvoiceRowVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.Designer.vb new file mode 100644 index 0000000..22254ef --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InvoiceRowsPivotVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.vb new file mode 100644 index 0000000..bf7b039 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceRowsPivotVC.vb @@ -0,0 +1,108 @@ +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 System.IO + +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraPivotGrid +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.PivotGrid.Win +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Model +Public Class InvoiceRowsPivotVC + Inherits SISBusiness.Module.InvoiceRowsPivotVC + Dim _FileNameGrid = Path.GetTempPath & "ReportGrid.xml" + Dim _FileNamePivotGrid = Path.GetTempPath & "ReportPivotGrid.xml" + + 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If View.Id = "InvoiceRowsPivot_InvoiceRows_Table_ListView" Then + If _User.Oid <> SecuritySystem.CurrentUserId Then + Frame.GetController(Of CentralListViewVC).aSaveCentralListViewSettings.Active.SetItemValue("", False) + End If + End If + If View.Id = "InvoiceRowsPivot_InvoiceRows_Pivot_ListView" Then + AddHandler View.ControlsCreated, AddressOf View_ControlCreated + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "InvoiceRowsPivot_InvoiceRows_Table_ListView" Then + Frame.GetController(Of CentralListViewVC).aSaveCentralListViewSettings.Active.SetItemValue("", True) + End If + + End Sub + + + Private Sub View_ControlCreated(sender As Object, e As EventArgs) + If View.Id = "InvoiceRowsPivot_InvoiceRows_Pivot_ListView" Then + TryCast(TryCast(View, ListView).Editor, PivotGridListEditor).PivotGridControl.OptionsData.DataFieldUnboundExpressionMode = DataFieldUnboundExpressionMode.UseSummaryValues + AddHandler TryCast(TryCast(View, ListView).Editor, PivotGridListEditor).PivotGridControl.CustomSummary, AddressOf PivotGridControl_CustomSummary + 'AddHandler TryCast(TryCast(View, ListView).Editor, PivotGridListEditor).PivotGridControl., AddressOf PivotGridControl_CustomSummary + End If + End Sub + + Private Sub PivotGridControl_CustomSummary(sender As Object, e As PivotGridCustomSummaryEventArgs) + 'If Not e.DataField Is Then Return + '' A variable which counts the number of orders whose sum exceeds $500. + 'Dim order500Count As Integer = 0 + '' Get the record set corresponding to the current cell. + 'Dim ds As PivotDrillDownDataSource = e.CreateDrillDownDataSource() + '' Iterate through the records and count the orders. + 'Dim i As Integer + 'For i = 0 To ds.RowCount - 1 + ' Dim row As PivotDrillDownDataRow = ds(i) + ' ' Get the order's total sum. + ' Dim orderSum As Decimal = row(fieldExtendedPrice) + ' If orderSum >= minSum Then order500Count = order500Count + 1 + 'Next + '' Calculate the percentage. + 'If ds.RowCount > 0 Then + ' e.CustomValue = order500Count / ds.RowCount + 'End If + 'Beep() + 'e.CustomValue = -1000 + 'Dim ds As PivotDrillDownDataSource = e.CreateDrillDownDataSource() + ''If ds.RowCount > 0 Then + '' e.CustomValue = -200 + ''End If + 'If e.DataField.FieldName = "GrossMarginPercent" Then + ' For i = 0 To ds.RowCount - 1 + ' Dim row As PivotDrillDownDataRow = ds(i) + + ' Next + 'End If + + End Sub + + + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.Designer.vb new file mode 100644 index 0000000..5673181 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.Designer.vb @@ -0,0 +1,35 @@ +Partial Class InvoiceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'aGeneratePDFandSendDefaultMailClient_Invoice + ' + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.resx new file mode 100644 index 0000000..4151504 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb new file mode 100644 index 0000000..9a8be74 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Invoices/InvoiceVC.vb @@ -0,0 +1,153 @@ +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.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Persistent.BaseImpl +Imports Microsoft.Office.Interop +Imports DevExpress.ExpressApp.Reports +Imports System.IO +Imports System.Runtime.InteropServices +Imports DevExpress.Data.Filtering + +Public Class InvoiceVC + Inherits SISBusiness.Module.InvoiceVC + Dim _WaitFormClass As New WaitFormClass + + 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 SISBusiness.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False) + If View.Id = "InvoiceHeader_ListView" Then + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End If + End Sub + Protected Overrides Sub OnDeactivated() + If View.Id = "InvoiceHeader_ListView" Then + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End If + MyBase.OnDeactivated() + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "InvoiceHeader_ListView" Then + Dim _editor As ListEditor = (CType(View, ListView)).Editor + Dim _gridView As GridView = (CType(_editor, GridListEditor)).GridView + AddHandler _gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + + End Sub + Public Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim _GridView As GridView = TryCast(sender, GridView) + Dim _InvoiceHeader As InvoiceHeader + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count = 1 Then + _InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + If Not _InvoiceHeader Is Nothing Then + If View.Id = "InvoiceHeader_ListView" Then + If _InvoiceHeader.IsStorno = False Then + Frame.GetController(Of SISBusiness.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", True) + Else + Frame.GetController(Of SISBusiness.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False) + End If + If _InvoiceHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + End If + End If + Else + Frame.GetController(Of SISBusiness.Module.InvoiceVC)().Actions.Item("aStornoInvoice").Active.SetItemValue("", False) + End If + End Sub + Private Sub CreatePDFAndSendToDefaultMailClient() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _ReportData As ReportData = Nothing + + Dim _OutlookApp As New Microsoft.Office.Interop.Outlook.Application() + Dim _OutlookNameSpace As Microsoft.Office.Interop.Outlook.NameSpace + Dim _mail As Outlook.MailItem = Nothing + Dim _mailRecipients As Outlook.Recipients = Nothing + Dim _mailRecipient As Outlook.Recipient = Nothing + Dim _mailAttachments As Outlook.Attachments = Nothing + Dim _mailAttachment As Outlook.Attachment = Nothing + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + + If _InvoiceHeader IsNot Nothing Then + If _InvoiceHeader IsNot Nothing Then + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + Else + _ReportData = _InvoiceHeader.InvoiceType.ReportData_DEV + End If + End If + + + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FilterString As String = "[InvoiceHeader.Oid]='" & _InvoiceHeader.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & CorrectFileName(_InvoiceHeader.DocumentNumber) & ".pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + Try + _mail = _OutlookApp.CreateItem(Outlook.OlItemType.olMailItem) + _mail.Subject = "SZÁMLA" + + _mailAttachments = _mail.Attachments + _mailAttachment = _mailAttachments.Add(_FileName) + + _mailRecipients = _mail.Recipients + + For Each _Address As String In _InvoiceHeader.Customers.EMail_Invoice.Split(";") + If LTrim(RTrim(_Address)) <> "" Then + _mailRecipient = _mailRecipients.Add(_Address) + End If + Next + + _mailRecipient.Resolve() + + If (_mailRecipient.Resolved) Then + '_mail.Send() + _mail.Display(True) + Else + System.Windows.Forms.MessageBox.Show( + "There is no such record in your address book.") + End If + Catch ex As Exception + System.Windows.Forms.MessageBox.Show(ex.Message, + "An exception is occured in the code of add-in.") + Finally + If Not IsNothing(_mailRecipient) Then Marshal.ReleaseComObject(_mailRecipient) + If Not IsNothing(_mailRecipients) Then Marshal.ReleaseComObject(_mailRecipients) + If Not IsNothing(_mail) Then Marshal.ReleaseComObject(_mail) + End Try + End If + End If + End Sub + + Private Sub aGeneratePDFandSendDefaultMailClient_Invoice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePDFandSendDefaultMailClient_Invoice.Execute + Me.CreatePDFAndSendToDefaultMailClient() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.Designer.vb new file mode 100644 index 0000000..b833316 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OfferInHeaderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.vb new file mode 100644 index 0000000..4566a51 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInHeaderVC.vb @@ -0,0 +1,101 @@ +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 System.IO +Imports FarPoint.Win.Spread +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors + +Public Class OfferInHeaderVC + Inherits DevExpress.ExpressApp.ViewController + Private _FpSpread As FpSpread + 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 = "OfferInHeader_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OffersInHeader_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + End If + End Sub + Private Sub ExcelControlViewItem_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + Dim _FileName As String = Path.GetTempPath & "Out.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ocur.Session.IsNewObject(_OfferInHeader) = False Then + If _OfferInHeader IsNot Nothing Then + If _OfferInHeader.ExcelFile IsNot Nothing Then + _OfferInHeader.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.OpenExcel(_FileName) + End If + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "OfferInHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + If _DetailView.GetItems(Of ExcelPropertyEditor).Count > 0 Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + End If + End Sub + Sub SaveAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "In.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _OfferInHeader IsNot Nothing Then + If _FpSpread IsNot Nothing Then + _FpSpread.SaveExcel(_StreamFile) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _OfferInHeader.ExcelFile = New FileData(_ocur.Session) + _OfferInHeader.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _OfferInHeader.Save() + _StreamFile2.Close() + End If + End If + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.Designer.vb new file mode 100644 index 0000000..95e0059 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OfferInRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.vb new file mode 100644 index 0000000..7a8a837 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferIn/OfferInRowsVC.vb @@ -0,0 +1,60 @@ +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.Win.Editors + +Public Class OfferInRowsVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + + 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 = "OfferInHeader_OfferInRows_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + ' Dim _OfferInHeader As OfferInHeader = CType(_PropertyCollectionSource.MasterObject, OfferInHeader) + ' If _OfferInHeader.IsEditable = True Then + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _OfferInHeader.CurrencyName.ShortName = "HUF" Then + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "FinalPriceHUF" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Else + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "FinalPriceDEV" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' End If + ' Next i + ' End If + ' End If + 'End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.Designer.vb new file mode 100644 index 0000000..8dfcea5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OfferOutHeaderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.vb new file mode 100644 index 0000000..20e1b37 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutHeaderVC.vb @@ -0,0 +1,99 @@ +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 System.IO +Imports FarPoint.Win.Spread +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors + +Public Class OfferOutHeaderVC + Inherits DevExpress.ExpressApp.ViewController + Private _FpSpread As FpSpread + 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 = "OfferOutHeader_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OffersOutHeader_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + + End If + End Sub + Private Sub ExcelControlViewItem_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + Dim _FileName As String = Path.GetTempPath & "Out.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ocur.Session.IsNewObject(_OfferOutHeader) = False Then + If _OfferOutHeader IsNot Nothing Then + If _OfferOutHeader.ExcelFile IsNot Nothing Then + _OfferOutHeader.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.OpenExcel(_FileName) + End If + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "OfferOutHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + If _DetailView.GetItems(Of ExcelPropertyEditor).Count > 0 Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + End If + End Sub + Sub SaveAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "In.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _OfferOutHeader IsNot Nothing Then + If _FpSpread IsNot Nothing Then + _FpSpread.SaveExcel(_StreamFile) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _OfferOutHeader.ExcelFile = New FileData(_ocur.Session) + _OfferOutHeader.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _OfferOutHeader.Save() + _StreamFile2.Close() + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.Designer.vb new file mode 100644 index 0000000..92fbbe6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OfferOutRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.vb new file mode 100644 index 0000000..e42631c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutRowsVC.vb @@ -0,0 +1,71 @@ +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.Win.Editors + +Public Class OfferOutRowsVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + + 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 = "OfferOutHeader_OfferOutRows_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + ' Dim _OfferOutHeader As OfferOutHeader = CType(_PropertyCollectionSource.MasterObject, OfferOutHeader) + ' If _OfferOutHeader.IsEditable = True Then + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _OfferOutHeader.CurrencyName.ShortName = "HUF" Then + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Description" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup1" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup2" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "DescriptionPrivate" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "FinalPriceHUF" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + + ' '_GridListEditor.GridView.Columns(i).FieldName <> " DiscountPercent" And _ + ' End If + ' Else + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Description" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup1" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup2" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "DescriptionPrivate" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "FinalPriceDEV" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' End If + + ' Next i + + ' End If + ' End If + 'End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.Designer.vb new file mode 100644 index 0000000..eabf17e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.Designer.vb @@ -0,0 +1,74 @@ +Partial Class OfferOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInsertGridToRTFCurrentPos_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRestoreDocumentTemplate_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReplaceValueDocumentTemplate_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGeneratePDFandSendDefaultMailClient + ' + ' + 'aInsertGridToRTFCurrentPos_OfferOut + ' + Me.aInsertGridToRTFCurrentPos_OfferOut.Caption = "Insert grid Current position" + Me.aInsertGridToRTFCurrentPos_OfferOut.Category = "" + Me.aInsertGridToRTFCurrentPos_OfferOut.ConfirmationMessage = Nothing + Me.aInsertGridToRTFCurrentPos_OfferOut.Id = "aInsertGridToRTFCurrentPos_OfferOut" + Me.aInsertGridToRTFCurrentPos_OfferOut.ImageName = "paste" + Me.aInsertGridToRTFCurrentPos_OfferOut.TargetViewId = "OfferOutHeader_DetailView" + Me.aInsertGridToRTFCurrentPos_OfferOut.ToolTip = Nothing + ' + 'aRestoreDocumentTemplate_OfferOut + ' + Me.aRestoreDocumentTemplate_OfferOut.Caption = "aRestoreDocumentTemplate_OfferOut" + Me.aRestoreDocumentTemplate_OfferOut.Category = "aRestoreDocumentTemplate_OfferOut" + Me.aRestoreDocumentTemplate_OfferOut.ConfirmationMessage = Nothing + Me.aRestoreDocumentTemplate_OfferOut.Id = "aRestoreDocumentTemplate_OfferOut" + Me.aRestoreDocumentTemplate_OfferOut.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aRestoreDocumentTemplate_OfferOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aRestoreDocumentTemplate_OfferOut.ToolTip = Nothing + Me.aRestoreDocumentTemplate_OfferOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aReplaceValueDocumentTemplate_OfferOut + ' + Me.aReplaceValueDocumentTemplate_OfferOut.Caption = "aReplaceValueDocumentTemplate_OfferOut" + Me.aReplaceValueDocumentTemplate_OfferOut.Category = "aReplaceValueDocumentTemplate_OfferOut" + Me.aReplaceValueDocumentTemplate_OfferOut.ConfirmationMessage = Nothing + Me.aReplaceValueDocumentTemplate_OfferOut.Id = "aReplaceValueDocumentTemplate_OfferOut" + Me.aReplaceValueDocumentTemplate_OfferOut.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aReplaceValueDocumentTemplate_OfferOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aReplaceValueDocumentTemplate_OfferOut.ToolTip = Nothing + Me.aReplaceValueDocumentTemplate_OfferOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aInsertGridToRTFCurrentPos_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRestoreDocumentTemplate_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReplaceValueDocumentTemplate_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.resx new file mode 100644 index 0000000..5b26e16 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 277, 56 + + + 548, 56 + + + 17, 56 + + + 536, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb new file mode 100644 index 0000000..6f1b9da --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OfferOutVC.vb @@ -0,0 +1,474 @@ +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.Win.Editors +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraBars +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Reports +Imports System.IO +Imports DevExpress.XtraPrinting +Imports DevExpress.XtraReports.UI +Imports Microsoft.Office.Interop +Imports System.Runtime.InteropServices + + +Public Class OfferOutVC + Inherits SISBusiness.Module.OffersOutVC + Dim _RichEditControl As RichEditControl + Dim _GridListEditor As GridListEditor + Dim _Grid As GridView + Dim _OfferOutHeader As OfferOutHeader + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of OfferOutVC).aReplaceValueDocumentTemplate_OfferOut.Active.SetItemValue("", False) + + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "OfferOutHeader_DetailView" Then + _OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + End If + If View.Id = "OffersOutParameters_DetailView" Then + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "OfferOutHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + If View.Id = "OfferOutParameters_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + Dim _ListView As DevExpress.ExpressApp.ListView = CType(View, DevExpress.ExpressApp.ListView) + _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + _Grid = TryCast(_GridListEditor.GridView, GridView) + + AddHandler _Grid.GridControl.HandleCreated, AddressOf Grid_HandleCreated + End If + End Sub + Private Sub CreatePDFAndSendToDefaultMailClient() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _ReportData As ReportData = Nothing + + Dim _OutlookApp As New Microsoft.Office.Interop.Outlook.Application() + Dim _OutlookNameSpace As Microsoft.Office.Interop.Outlook.NameSpace + Dim _mail As Outlook.MailItem = Nothing + Dim _mailRecipients As Outlook.Recipients = Nothing + Dim _mailRecipient As Outlook.Recipient = Nothing + Dim _mailAttachments As Outlook.Attachments = Nothing + Dim _mailAttachment As Outlook.Attachment = Nothing + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + + If _OfferOutHeader IsNot Nothing Then + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem IsNot Nothing Then + If _OfferOutHeader.IsEditable = True Then + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + _ocur.CommitChanges() + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "0" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "1" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + End If + Else + Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + End If + + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FilterString As String = "[OfferOutHeader.Oid]='" & _OfferOutHeader.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + Try + _mail = _OutlookApp.CreateItem(Outlook.OlItemType.olMailItem) + _mail.Subject = "ÁRAJÁNLAT" + + _mailAttachments = _mail.Attachments + _mailAttachment = _mailAttachments.Add(_FileName) + + _mailRecipients = _mail.Recipients + _mailRecipient = _mailRecipients.Add(_OfferOutHeader.Contact.Email) + _mailRecipient.Resolve() + + If (_mailRecipient.Resolved) Then + '_mail.Send() + _mail.Display(True) + Else + System.Windows.Forms.MessageBox.Show( + "There is no such record in your address book.") + End If + Catch ex As Exception + System.Windows.Forms.MessageBox.Show(ex.Message, + "An exception is occured in the code of add-in.") + Finally + If Not IsNothing(_mailRecipient) Then Marshal.ReleaseComObject(_mailRecipient) + If Not IsNothing(_mailRecipients) Then Marshal.ReleaseComObject(_mailRecipients) + If Not IsNothing(_mail) Then Marshal.ReleaseComObject(_mail) + End Try + End If + End If + End Sub + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + Dim _BarItem As BarItemLink + + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + _RichEditControl.BeginUpdate() + + Dim _OfferOutHeader_IList As IList(Of OfferOutRTF) = New List(Of OfferOutRTF) + Dim _OfferOutRTF As New OfferOutRTF + + If _OfferOutHeader IsNot Nothing Then + _OfferOutRTF.Sajátcég_Adószám = _OfferOutHeader.CustomersFrom.VATNumber + _OfferOutRTF.Sajátcég_Adószám_EU = _OfferOutHeader.CustomersFrom.VATNumberEU + If _OfferOutHeader.CustomersFrom.Address1 IsNot Nothing Then + _OfferOutRTF.Sajátcég_Irányítószám = _OfferOutHeader.CustomersFrom.Address1.ZipPostal + _OfferOutRTF.Sajátcég_Ország = _OfferOutHeader.CustomersFrom.Address1.Country.Name + _OfferOutRTF.Sajátcég_Utca = _OfferOutHeader.CustomersFrom.Address1.Street + _OfferOutRTF.Sajátcég_Város = _OfferOutHeader.CustomersFrom.Address1.City + Else + _OfferOutRTF.Sajátcég_Irányítószám = "Nincs beállítva" + _OfferOutRTF.Sajátcég_Ország = "Nincs beállítva" + _OfferOutRTF.Sajátcég_Utca = "Nincs beállítva" + _OfferOutRTF.Sajátcég_Város = "Nincs beállítva" + End If + _OfferOutRTF.Sajátcég_Teljesnév = _OfferOutHeader.CustomersFrom.FullName + + + _OfferOutRTF.Partner_Adószám = _OfferOutHeader.Customers.VATNumber + _OfferOutRTF.Partner_Adószám_EU = _OfferOutHeader.Customers.VATNumberEU + If _OfferOutHeader.Customers.Address1 IsNot Nothing Then + _OfferOutRTF.Partner_Irányítószám = _OfferOutHeader.Customers.Address1.ZipPostal + _OfferOutRTF.Partner_Ország = _OfferOutHeader.Customers.Address1.Country.Name + _OfferOutRTF.Partner_Utca = _OfferOutHeader.Customers.Address1.Street + _OfferOutRTF.Partner_Város = _OfferOutHeader.Customers.Address1.City + Else + _OfferOutRTF.Partner_Irányítószám = "Nincs beállítva" + _OfferOutRTF.Partner_Ország = "Nincs beállítva" + _OfferOutRTF.Partner_Utca = "Nincs beállítva" + _OfferOutRTF.Partner_Város = "Nincs beállítva" + End If + _OfferOutRTF.Partner_Teljesnév = _OfferOutHeader.Customers.FullName + + If _OfferOutHeader.Contact IsNot Nothing Then + _OfferOutRTF.Kapcsolat_Teljesnév = _OfferOutHeader.Contact.FullName + If _OfferOutHeader.Contact.PhoneNumbers.Count > 0 Then + _OfferOutRTF.Kapcsolat_Mobil = _OfferOutHeader.Contact.PhoneNumbers(0).Number + End If + _OfferOutRTF.Kapcsolat_Email = _OfferOutHeader.Contact.Email + End If + + _OfferOutRTF.Ajánlat_Dokumentum_Sorszám = _OfferOutHeader.DocumentNumber + End If + _OfferOutHeader_IList.Add(_OfferOutRTF) + _RichEditControl.Options.MailMerge.DataSource = _OfferOutHeader_IList + + _RichEditControl.Update() + _RichEditControl.UpdateCommandUI() + _RichEditControl.EndUpdate() + + _RichEditControl.BeginUpdate() + For Each _BarItem In _RichEditUserControl.MailingInsertItemLink.ItemLinks + Select Case _BarItem.Item.Caption + Case "" + End Select + _BarItem.Item.Caption = "Lófasz !" + Next + _RichEditControl.EndUpdate() + + 'AddHandler _RichEditUserControl.RichEditControl.Options.MailMerge. + + End Sub + + Private Sub Grid_HandleCreated(sender As Object, e As System.EventArgs) + RemoveHandler _Grid.GridControl.HandleCreated, AddressOf Grid_HandleCreated + _GridListEditor.Grid.BeginInvoke(New Windows.Forms.MethodInvoker(AddressOf SelectAll)) + + End Sub + Private Sub SelectAll() + _Grid.SelectAll() + End Sub + Private Sub aInsertGridToRTFCurrentPos_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInsertGridToRTFCurrentPos_OfferOut.Execute + Dim _DetailView As DetailView = CType(View, DetailView) + Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _OfferOutHeader.DocumentBody Is Nothing Then + _OfferOutHeader.DocumentBody = "{\rtf1\deff0{\fonttbl{\f0 Times New Roman;}}" & _ + "{\colortbl\red0\green0\blue0 ;\red0\green0\blue255 ;}{\*\listoverridetable}{\stylesheet {\ql\cf0 Normal;}" & _ + "{\*\cs1\cf0 Default Paragraph Font;}{\*\cs2\sbasedon1\cf0 Line Number;}{\*\cs3\ul\cf1 Hyperlink;}}\sectd\pard\plain" & _ + "\ql\f1\par\pard\plain\ql\f1\par\pard\plain\ql\f1\par\pard\plain\ql" & _ + "\f2\fs18\cf0\par\pard\plain\ql\f1\par}" + End If + _RichEditControl.BeginUpdate() + + _RichEditControl.Document.InsertText(_RichEditControl.Document.CaretPosition, "orderrows") + _RichEditControl.EndUpdate() + 'Dim _RTFMergeFieldCleaner As New RTFMergeFieldCleaner + '_OfferOutHeader.DocumentBody = _RTFMergeFieldCleaner.CleanDocument(_RichEditControl.Document.RtfText) + + Dim _a As String = _RichEditControl.Document.RtfText + + _OfferOutHeader.DocumentBody = _a + '=========================== ColorTable ======================================= + Dim _actColorNum As Int32 = 0 + Dim _OrigColorTable As String + Dim _ColorTable As String = (_OfferOutHeader.DocumentBody.Remove(0, (InStr(_OfferOutHeader.DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red240\green240\blue240 ;}") + _OrigColorTable = "{\colortbl" & _ColorTable & "}" + _OfferOutHeader.DocumentBody = _OfferOutHeader.DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + + '================================================================================= + + Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OfferOutRows") + Dim _ListView As DevExpress.ExpressApp.ListView = CType(_ListPropertyEditor.ListView, DevExpress.ExpressApp.ListView) + If _ListView IsNot Nothing Then + Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor) + Dim _Grid As GridView = TryCast(_GridListEditor.GridView, GridView) + + If _Grid IsNot Nothing Then + _OfferOutHeader.DocumentBody = RTFTableCreator(_Grid, "orderrows", _OfferOutHeader.DocumentBody, _RGB:="241,241,241") + End If + End If + '================================================================================= + End Sub + Function RTFTableCreator(_Grid As GridView, _Tag As String, _DocumentBody As String, Optional _FontSize As String = "6", _ + Optional _FontType As String = "Tahoma", Optional _RGB As String = "240,240,240") As String + Dim _DocumentBody_NEW As String + Dim _HeaderFillColor As Int32 ' -- Current table header fill color index in colot table + + If _RGB <> "240,240,240" Then + Dim _Parameters As String() = ColorTablereplacement(_DocumentBody, _RGB) + _HeaderFillColor = Convert.ToInt32(_Parameters(0)) + _DocumentBody = _Parameters(1) + Else + _HeaderFillColor = 2 + End If + + If _Grid.DataRowCount > 0 Then + Dim _FontSizeNUM As Int32 = (Convert.ToInt32(_FontSize) * 2) ' -- Font size in half-points (the default is 16). => Size 8!!! + Dim _RTFtext As New StringBuilder + Dim _RowNumFull As Integer = _Grid.RowCount + Dim _RowNum As Integer = _Grid.DataRowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Int32 = 0 + Dim _LastCellIndex As Int32 = 0 + + '--Header to RTF format-- + '================================================================================= + _RTFtext.Append("\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + If _LastCellIndex < _ik Then + _LastCellIndex = _ik + End If + Next + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\pard\plain\ql\intbl{\b\fs" & _FontSizeNUM & "\cf0 " & _Grid.Columns.View.VisibleColumns(_ik).Caption & "}\b\cell") + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat" & _HeaderFillColor & "\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + Next + irowIndex += 1 + '' --Data to RTF format-- + '================================================================================= + For _ik As Int16 = 0 To _RowNumFull - 2 + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_ik)) = True Then + _RTFtext.Append("\row") + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik)).ToString) & "}\cell") + + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + + irowIndex += 1 + Else + _RTFtext.Append("\row") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetRowCellDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)) = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + irowIndex += 1 + End If + Next + '--Last row -- + '================================================================================= + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)) = True Then + _RTFtext.Append("\row") + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)).ToString) & "}\cell") + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + Else + _RTFtext.Append("\row") + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.Columns.View.GetRowCellDisplayText(_RowNum - 1, _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNum - 1)) = True Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + ''--- + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + End If + + _RTFtext.Append("\row\pard\plain\ql") + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, _RTFtext.ToString()) + If _DocumentBody_NEW.Contains("\fonttbl{\f0 Times New Roman;") Then + _DocumentBody_NEW = _DocumentBody_NEW.Replace("\fonttbl{\f0 Times New Roman;", "\fonttbl{\f0 " & _FontType & ";") 'Font table remake + End If + Else + _DocumentBody_NEW = _DocumentBody.Replace(_Tag, " ") + End If + + Return _DocumentBody_NEW + End Function + Function ColorTablereplacement(_DocumentBody As String, _RGB As String) As String() + Dim _Parameters(1) As String + Dim _RGBArray As String() = _RGB.Split(New [Char]() {","c}) + + Dim _actColorNum As Int32 = -1 + Dim _ColorTable As String = (_DocumentBody.Remove(0, (InStr(_DocumentBody, "{\colortbl")) + "{\colortbl".Length - 1)) + _ColorTable = _ColorTable.Remove(InStr(_ColorTable, "}") - 1) '--Act Color table + Dim _ColorArray As String() = _ColorTable.Split(New [Char]() {";"c}) + + For _ik As Int32 = 0 To _ColorArray.Length - 1 + If _ColorArray(_ik) = "\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " " Then + _actColorNum = _ik + End If + Next + If _actColorNum = -1 Then + Dim _CTable As New StringBuilder() + _CTable.Append("{\colortbl") + For _ik As Int32 = 0 To _ColorArray.Length - 2 + _CTable.Append(_ColorArray(_ik) & ";") + Next + _CTable.Append("\red" & _RGBArray(0) & "\green" & _RGBArray(1) & "\blue" & _RGBArray(2) & " ;}") + Dim _OrigColorTable As String = "{\colortbl" & _ColorTable & "}" + _DocumentBody = _DocumentBody.Replace(_OrigColorTable, _CTable.ToString()) + _Parameters(0) = _ColorArray.Length - 1 + _Parameters(1) = _DocumentBody + Else + _Parameters(0) = _actColorNum + _Parameters(1) = _DocumentBody + End If + Return _Parameters + End Function + + Private Sub aRestoreDocumentTemplate_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRestoreDocumentTemplate_OfferOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + + _OfferOutHeader.DocumentBody = _OfferOutHeader.OfferOutParameters.DocumentBody + + End Sub + + Private Sub aGeneratePDFandSendDefaultMailClient_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePDFandSendDefaultMailClient.Execute + Me.CreatePDFAndSendToDefaultMailClient() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.Designer.vb new file mode 100644 index 0000000..2aff045 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.Designer.vb @@ -0,0 +1,59 @@ +Partial Class OffersOutPrintVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOfferOutSendMailDeatil = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOfferOutPrintChoice + ' + Me.aOfferOutPrintChoice.Caption = "Print documentWIN" + ' + 'aOffersOutPrintPDF + ' + ' + 'aOffersOutPrintPDF2 + ' + ' + 'aOfferOutSendMailDeatil + ' + Me.aOfferOutSendMailDeatil.Caption = "Send offer out header via outlook" + Me.aOfferOutSendMailDeatil.Category = "" + Me.aOfferOutSendMailDeatil.ConfirmationMessage = Nothing + Me.aOfferOutSendMailDeatil.Id = "aOfferOutSendMailDeatil" + Me.aOfferOutSendMailDeatil.ImageName = "mail2" + Me.aOfferOutSendMailDeatil.Shortcut = Nothing + Me.aOfferOutSendMailDeatil.Tag = Nothing + Me.aOfferOutSendMailDeatil.TargetObjectsCriteria = Nothing + Me.aOfferOutSendMailDeatil.TargetViewId = "" + Me.aOfferOutSendMailDeatil.ToolTip = Nothing + Me.aOfferOutSendMailDeatil.TypeOfView = Nothing + + End Sub + Friend WithEvents aOfferOutSendMailDeatil As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.resx new file mode 100644 index 0000000..c1c5c8f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 866, 17 + + + 697, 17 + + + 539, 17 + + + 374, 17 + + + 186, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.vb new file mode 100644 index 0000000..caef608 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Offers/OfferOut/OffersOutPrintVC.vb @@ -0,0 +1,209 @@ +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.XtraReports.UI +Imports DevExpress.XtraReports.Parameters +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Persistent.BaseImpl +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Imports Gnostice.PDFOne +Imports DevExpress.ExpressApp.Utils + +Public Class OffersOutPrintVC + Inherits SISBusiness.Module.OffersOutPrintVC + Private _ReportServiceController As ReportServiceController + Private _RichEditControl As RichEditControl + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of OffersOutPrintVC).aOfferOutSendMailDeatil.Active.SetItemValue("", False) + If View.Id = "OfferOutHeader_DetailView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutSendMailDeatil.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutSendMailDeatil.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferOutHeader_DetailView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutSendMailDeatil.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutSendMailDeatil.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "OfferOutHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + End Sub + + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + + Private Sub aOfferOutSendMailDeatil_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOfferOutSendMailDeatil.Execute + Try + Dim _ObjectSpace As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen ajánlat sem!") + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + If _OfferOutHeader.IsEditable = False Then + Dim _ReportData As ReportData + + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem Is Nothing Then + Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + End If + Select Case Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data + Case "0" : _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + Case "1" : _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + Case Else : Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + Exit Sub + End Select + + If _ReportData IsNot Nothing Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FileName As String = Path.GetTempPath & CorrectFileName(_OfferOutHeader.DocumentNumber & ".pdf") + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FF As String = "[OfferOutHeader.Oid]='" & _OfferOutHeader.Oid.ToString & "'" + _XafReport.FilterString = _FF + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + _XafReport.ExportToPdf(_StreamFile) + + _StreamFile.Close() + + Dim _OutlookEMail As OutlookEMail = _ocur.CreateObject(Of OutlookEMail)() + Dim _OutlookEMailAttachments As OutlookEMailAttachments = _ocur.CreateObject(Of OutlookEMailAttachments)() + Dim _DocumentFileData As DocumentFileData = _ocur.CreateObject(Of DocumentFileData)() + + _StreamFile = New FileStream(_FileName, FileMode.Open) + If _OfferOutHeader.CRM_Opportunities IsNot Nothing Then + _OutlookEMail.CRM_Leads = _OfferOutHeader.CRM_Opportunities.CRM_Leads + _OutlookEMail.CRM_Opportunities = _OfferOutHeader.CRM_Opportunities + End If + _OutlookEMail.Recipients = _OfferOutHeader.Contact.Email + If _OutlookEMail.Recipients = "" Then + _OutlookEMail.Recipients = "A kapcsolattartónak nincs e-mail címe." + End If + _OutlookEMail.Subject = "Árajánlat" + Dim _s As String = _OfferOutHeader.DocumentNumber & ".pdf" + + _DocumentFileData.File = New FileData(_ocur.Session) + _DocumentFileData.File.LoadFromStream(_s, _StreamFile) '_FileData + _DocumentFileData.File.FileName = CorrectFileName(_OfferOutHeader.DocumentNumber & ".pdf") + _OutlookEMailAttachments.DocumentFileData = _DocumentFileData + _OutlookEMail.OutlookEMailAttachments.Add(_OutlookEMailAttachments) + + _StreamFile.Close() + + If System.IO.File.Exists(_FileName) Then + System.IO.File.Delete(_FileName) + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + View.Refresh() + Else + '____________________________ TESZT MIATT ________________________________________ + Throw New UserFriendlyException("Üres a ReportData1 property!") + End If + Else + '____________________________ TESZT MIATT ________________________________________ + Throw New UserFriendlyException("Csak végleges kimenő árajánlatot lehet e-mailben pdf-ként elküldeni.") + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + + End Sub + + Private Sub aOffersOutPrintPDF2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutPrintPDF2.Execute + Try + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem Is Nothing Then Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + If _RichEditControl Is Nothing Then Throw New Exception("*A PDF elkészítéséhez aktiválni kell a ""Dokumentum"" fület a részletes nézetben!") + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + If _OfferOutHeader.IsEditable = True Then + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + _ocur.CommitChanges() + End If + Dim _FileName As String = CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf" + + Dim _FileName_Report As String = Path.GetTempPath & "Report.pdf" + Dim _FileName_RTF As String = Path.GetTempPath & "RTF.pdf" + Dim _FileName_Full As String = Path.GetTempPath & _FileName + + Dim _ReportData As ReportData + Dim _StreamFile As FileStream + Dim DOCReport As New PDFDocument("2962-F2F8-23B1-5FD8-F4A3-55DB-7D94-28E9") + Dim DOCRTF As New PDFDocument("2962-F2F8-23B1-5FD8-F4A3-55DB-7D94-28E9") + Dim mergeDOC As New PDFDocument("2962-F2F8-23B1-5FD8-F4A3-55DB-7D94-28E9") + + Select Case Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data + Case "0" : _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + Case "1" : _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + Case Else : Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + Exit Sub + End Select + + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FF As String = "[OfferOutHeader.Oid]='" & _OfferOutHeader.Oid.ToString & "'" + _StreamFile = New FileStream(_FileName_Report, FileMode.Create) + _XafReport.FilterString = _FF + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + DOCReport.Load(_FileName_Report) + End If + + If _RichEditControl IsNot Nothing Then + _StreamFile = New FileStream(_FileName_RTF, FileMode.Create) + _RichEditControl.ExportToPdf(_StreamFile) + _StreamFile.Close() + DOCRTF.Load(_FileName_RTF) + End If + + '// Két PDF összefűzése + mergeDOC.Merge(DOCRTF) + mergeDOC.Merge(DOCReport) + + mergeDOC.Save(_FileName_Full) + mergeDOC.Close() + + _StreamFile = New FileStream(_FileName_Full, FileMode.Open) + Dim _FileData As New FileData(_ocur.Session) + _FileData.LoadFromStream(_FileName_Full, _StreamFile) + _OfferOutHeader.PDF_Original = _FileData + _StreamFile.Close() + _ocur.CommitChanges() + + Process.Start(_FileName_Full) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.Designer.vb new file mode 100644 index 0000000..b8a9374 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.resx new file mode 100644 index 0000000..73afb87 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb new file mode 100644 index 0000000..7c4d533 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrderVC.vb @@ -0,0 +1,90 @@ +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.XtraGrid.Columns +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Data +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.XtraGrid.Views.BandedGrid +Imports DevExpress.XtraGrid + +Public Class OrderVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + Dim _GridControl As GridControl + Dim _BandedGridView As BandedGridView = Nothing + Dim _GridView As GridView + MyBase.OnViewControlsCreated() + If View.Id = "OrderInHeader_OrderInRows_ListView" Or _ + View.Id = "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + InitGridView() + InitQTT_ProcessColumn() + _GridView = _GridListEditor.GridView + _GridControl = _GridView.GridControl + + End If + End If + + End Sub + Sub InitGridView() + For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + If _GridListEditor.GridView.Columns(i).FieldName Like "QTT_Process" Then + Else + _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + End If + Next i + End Sub + Sub InitQTT_ProcessColumn() + For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + Dim _ColumnWrapper As ColumnWrapper = _GridListEditor.Columns(i) + If _ColumnWrapper.PropertyName = "QTT_Process" Then + Dim QTT_ProcessColumn As GridColumn = _GridListEditor.GridView.Columns("QTT_Process") + QTT_ProcessColumn.OptionsColumn.AllowEdit = True + QTT_ProcessColumn.OptionsColumn.AllowFocus = True + QTT_ProcessColumn.OptionsColumn.ReadOnly = False + QTT_ProcessColumn.UnboundType = UnboundColumnType.Decimal + Exit For + End If + Next + End Sub + + Private Sub _row_Products_Editor_ControlValueChanged(sender As Object, e As EventArgs) + Throw New NotImplementedException + End Sub + +End Class + +Public Class Order + Inherits ViewController + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id Like "Order*Header_DetailView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation + End If + If View.Id Like "Order*Header_OrderInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb new file mode 100644 index 0000000..9501f20 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderInRowsOtherVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb new file mode 100644 index 0000000..360fd9e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb @@ -0,0 +1,95 @@ +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.Win.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.XtraGrid.Columns + +Public Class OrderInRowsOtherVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OrderInHeader_OrderInRows_ListView" Then + If _GridListEditor IsNot Nothing Then + If _GridListEditor.GridView IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf OrderInHeader_OrderInRows_ListView_CellValueChanged + End If + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + 'If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + ' Dim _OrderInHeader As OrderInHeader = CType(_PropertyCollectionSource.MasterObject, OrderInHeader) + ' If _OrderInHeader.IsEditable = True Then + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' If _OrderInHeader.OrderInParameters.CurrencyName IsNot Nothing Then + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" _ + ' And _GridListEditor.GridView.Columns(i).FieldName <> "Description" _ + ' And _GridListEditor.GridView.Columns(i).FieldName <> "DiscountPriceHUF" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Else + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT" _ + ' And _GridListEditor.GridView.Columns(i).FieldName <> "Description" _ + ' And _GridListEditor.GridView.Columns(i).FieldName <> "DiscountPriceDEV" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' End If + + ' Next i + ' End If + ' End If + ' End If + 'End If + If View.Id = "OrderInHeader_OrderInRows_ListView" Then + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OrderInHeader As OrderInHeader = CType(_PropertyCollectionSource.MasterObject, OrderInHeader) + If _OrderInHeader.IsEditable = True Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf OrderInHeader_OrderInRows_ListView_CellValueChanged + End If + End If + End If + End Sub + + Private Sub OrderInHeader_OrderInRows_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + If TryCast(e.Column, GridColumn).FieldName = "QTT_Process" Then + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + parentView.ObjectSpace.Refresh() + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb new file mode 100644 index 0000000..d2aa0e4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderInRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb new file mode 100644 index 0000000..dbcf838 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb @@ -0,0 +1,38 @@ +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 OrderInRowsVC + Inherits SISBusiness.Module.OrderInRowsVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb new file mode 100644 index 0000000..6aee5f6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb new file mode 100644 index 0000000..362ffd8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb @@ -0,0 +1,81 @@ +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 OrderInVC + 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 = "OrderInHeader_DetailView" Then + AddHandler View.ControlsCreated, AddressOf OrderInHeader_DetailView_ControlCreated + End If + End Sub + + Private Sub OrderInHeader_DetailView_ControlCreated(sender As Object, e As EventArgs) + If View.Id = "OrderInHeader_DetailView" Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + + AddHandler _row_Products_Editor.ControlValueChanged, AddressOf _row_Products_Editor_ControlValueChanged + End If + End Sub + + Private Sub _row_Products_Editor_ControlValueChanged(sender As Object, e As EventArgs) + Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + _row_QTT = TryCast(View, DetailView).FindItem("row_QTT") + If _row_QTT IsNot Nothing Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + + If _row_Products_Editor IsNot Nothing Then + Dim _ProductSelect As SISBusiness.Module.ProductSelect = TryCast(_row_Products_Editor.ControlValue, SISBusiness.Module.ProductSelect) + If _ProductSelect IsNot Nothing Then + If _ProductSelect.Products IsNot Nothing Then + 'row_qtt_ProductSelect.Products.DecimalOut + Dim _SpinEdit As DevExpress.XtraEditors.SpinEdit + _SpinEdit = TryCast(_row_QTT.Control, DevExpress.XtraEditors.SpinEdit) + If _SpinEdit IsNot Nothing Then + Select Case _ProductSelect.Products.DecimalOut + Case 0 + _SpinEdit.Properties.Mask.EditMask = "#,##0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 1 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 2 + _SpinEdit.Properties.Mask.EditMask = "#,##0.00" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 3 + _SpinEdit.Properties.Mask.EditMask = "#,##0.000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 4 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case Else + _SpinEdit.Properties.Mask.EditMask = "" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = False + End Select + End If + End If + End If + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb new file mode 100644 index 0000000..760e8ee --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderOutStockVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb new file mode 100644 index 0000000..eda27a8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb @@ -0,0 +1,36 @@ +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 OrderOutStockVC + Inherits SISBusiness.Module.OrderOutStockVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb new file mode 100644 index 0000000..841e885 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OrderOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb new file mode 100644 index 0000000..a44aa3d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb @@ -0,0 +1,41 @@ +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.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.Data +Imports DevExpress.ExpressApp.Editors + +Public Class OrderOutVC + Inherits SISBusiness.Module.OrderOutVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb new file mode 100644 index 0000000..af2cc3e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb @@ -0,0 +1,85 @@ +Partial Class CRM_LeadsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCRM_Leads_CreateMail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_Leads_ReadMail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCRM_Leads_CreateMail + ' + Me.aCRM_Leads_CreateMail.Caption = "Create mail" + Me.aCRM_Leads_CreateMail.ConfirmationMessage = Nothing + Me.aCRM_Leads_CreateMail.Id = "aCRM_Leads_CreateMail" + Me.aCRM_Leads_CreateMail.ImageName = "mail_add" + Me.aCRM_Leads_CreateMail.Shortcut = Nothing + Me.aCRM_Leads_CreateMail.Tag = Nothing + Me.aCRM_Leads_CreateMail.TargetObjectsCriteria = Nothing + Me.aCRM_Leads_CreateMail.TargetViewId = "CRM_Leads_DetailView" + Me.aCRM_Leads_CreateMail.ToolTip = Nothing + Me.aCRM_Leads_CreateMail.TypeOfView = Nothing + ' + 'aCRM_Leads_ReadMail + ' + Me.aCRM_Leads_ReadMail.Caption = "Read mail" + Me.aCRM_Leads_ReadMail.ConfirmationMessage = Nothing + Me.aCRM_Leads_ReadMail.Id = "aCRM_Leads_ReadMail" + Me.aCRM_Leads_ReadMail.ImageName = "mail_view" + Me.aCRM_Leads_ReadMail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCRM_Leads_ReadMail.Shortcut = Nothing + Me.aCRM_Leads_ReadMail.Tag = Nothing + Me.aCRM_Leads_ReadMail.TargetObjectsCriteria = Nothing + Me.aCRM_Leads_ReadMail.TargetObjectType = GetType(SISBusiness.[Module].CRM_Leads_Activity) + Me.aCRM_Leads_ReadMail.TargetViewId = "CRM_Leads_CRM_Leads_Activity_ListView" + Me.aCRM_Leads_ReadMail.ToolTip = Nothing + Me.aCRM_Leads_ReadMail.TypeOfView = Nothing + ' + 'aCRM_LeadsDocumentation_OpenBusinessDirectory + ' + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.AcceptButtonCaption = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.CancelButtonCaption = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.Caption = "aCRM_LeadsDocumentation_OpenBusinessDirectory" + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.Category = "ObjectsCreation" + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.ConfirmationMessage = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.Id = "aCRM_LeadsDocumentation_OpenBusinessDirectory" + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.ImageName = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.Shortcut = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.Tag = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].CRM_LeadsDocumentation) + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.TargetViewId = "CRM_Leads_CRM_LeadsDocumentation_ListView" + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.ToolTip = Nothing + Me.aCRM_LeadsDocumentation_OpenBusinessDirectory.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aCRM_Leads_CreateMail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_Leads_ReadMail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_LeadsDocumentation_OpenBusinessDirectory As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx new file mode 100644 index 0000000..4e7add0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 711, 304 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb new file mode 100644 index 0000000..48e6a50 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb @@ -0,0 +1,152 @@ +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.ExpressApp.Utils +Imports DevExpress.Xpo + +Public Class CRM_LeadsVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Private Sub aCRM_Leads_CreateMail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_Leads_CreateMail.Execute + Try + Dim _CRM_Leads As CRM_Leads = TryCast(e.CurrentObject, CRM_Leads) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _CRM_Leads.EMail = "" Then Throw New UserFriendlyException("Nincs belltva e-mail cm!") + Dim _OutlookEMail As OutlookEMail = _ocur.CreateObject(Of OutlookEMail)() + + _OutlookEMail.CRM_Leads = _CRM_Leads + _OutlookEMail.Recipients = _CRM_Leads.EMail + _OutlookEMail.Subject = _CRM_Leads.LeadSource + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRM + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCRM_Leads_ReadMail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_Leads_ReadMail.Execute + Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(e.SelectedObjects(0), CRM_Leads_Activity) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _CRM_Leads_Activity IsNot Nothing Then + '--Email megkeresse s j benyitsa + If _CRM_Leads_Activity.Email_Oid = "" Then + Throw New UserFriendlyException("Nincs kapcsold e-mail zenet!") + Else + Dim _OutlookEMail As OutlookEMail = _ocur.FindObject(Of OutlookEMail)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity.Email_Oid)) + Dim _OutlookEMailIn As OutlookEMailIn = _ocur.FindObject(Of OutlookEMailIn)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity.Email_Oid)) + If _OutlookEMail IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + Else + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMailIn_DetailView", False, _OutlookEMailIn) + End If + View.Refresh() + End If + + End If + End Sub + + Private Sub aCRM_LeadsDocumentation_OpenBusinessDirectory_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_LeadsDocumentation_OpenBusinessDirectory.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + Dim _BusinessDirectoryList As New ArrayList + Dim _BusinessDirectory_CollectionSource As New CollectionSource(_onew, GetType(BusinessDirectory)) + + If _CRM_Opportunities.MasterBusinessDirectory IsNot Nothing Then + If _CRM_Opportunities.MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_CRM_Opportunities.MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _CRM_Opportunities.MasterBusinessDirectory.NestedBusinessDirectory) + Else + If _CRM_Opportunities.MasterBusinessDirectory.IsFolder Then _BusinessDirectoryList.Add(_CRM_Opportunities.MasterBusinessDirectory) + End If + End If + + Dim _Filter As String = "Oid in(" + For Each _BusinessDirectory As BusinessDirectory In _BusinessDirectoryList + _Filter += "'" + _BusinessDirectory.Oid.ToString + "'," + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + + _BusinessDirectory_CollectionSource.BeginUpdateCriteria() + _BusinessDirectory_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _BusinessDirectory_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse(_Filter)) + Else + _BusinessDirectory_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + _BusinessDirectory_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("BusinessDirectory_ListView", _BusinessDirectory_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + + End Try + End Sub + Private Sub aCRM_LeadsDocumentation_OpenBusinessDirectory_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_LeadsDocumentation_OpenBusinessDirectory.Execute + Dim _BusinessDirectory As BusinessDirectory = TryCast(e.PopupWindow.View.SelectedObjects(0), BusinessDirectory) + If Not _BusinessDirectory.IsFolder Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RichEditControl_New As New RichEditControl + + _RichEditControl_New.LoadDocument(GetFile(_BusinessDirectory.FileData)) + + Dim _OpenRTFDocument_PopUp As New OpenRTFDocument_PopUp(_onew.Session) + _OpenRTFDocument_PopUp.BusinessDirectory = _onew.GetObject(_BusinessDirectory) + _OpenRTFDocument_PopUp.RTFText = _RichEditControl_New.RtfText + _OpenRTFDocument_PopUp.CRM_Opportunities = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities)) + DeleteTempFile(_BusinessDirectory.FileData) + + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OpenRTFDocument_PopUp_DetailView", True, _OpenRTFDocument_PopUp) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End If + End Sub + +#Region "Other Functions and Subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As ArrayList, _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub + Private Function GetFile(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData) As String + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _DocumentFile.SaveToStream(_Stream) + _Stream.Close() + + Return _FilePath + End Function + Private Sub DeleteTempFile(_FileData As DevExpress.Persistent.BaseImpl.FileData) + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _FileData.FileName) + If IO.File.Exists(_FilePath) Then IO.File.Delete(_FilePath) + End Sub +#End Region + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb new file mode 100644 index 0000000..741afaa --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb @@ -0,0 +1,80 @@ +Partial Class CRM_OpportunitiesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCRM_Opportunities_CreateMail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_Opportunities_ReadMail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_Opportunities_Contact_Role_CreateMail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCRM_Opportunities_CreateMail + ' + Me.aCRM_Opportunities_CreateMail.Caption = "Create mail" + Me.aCRM_Opportunities_CreateMail.Category = "ObjectsCreation" + Me.aCRM_Opportunities_CreateMail.ConfirmationMessage = Nothing + Me.aCRM_Opportunities_CreateMail.Id = "aCRM_Opportunities_CreateMail" + Me.aCRM_Opportunities_CreateMail.ImageName = "mail_add" + Me.aCRM_Opportunities_CreateMail.Shortcut = Nothing + Me.aCRM_Opportunities_CreateMail.Tag = Nothing + Me.aCRM_Opportunities_CreateMail.TargetObjectsCriteria = Nothing + Me.aCRM_Opportunities_CreateMail.TargetViewId = "CRM_Opportunities_DetailView" + Me.aCRM_Opportunities_CreateMail.ToolTip = Nothing + Me.aCRM_Opportunities_CreateMail.TypeOfView = Nothing + ' + 'aCRM_Opportunities_ReadMail + ' + Me.aCRM_Opportunities_ReadMail.Caption = "Read mail" + Me.aCRM_Opportunities_ReadMail.ConfirmationMessage = Nothing + Me.aCRM_Opportunities_ReadMail.Id = "aCRM_Opportunities_ReadMail" + Me.aCRM_Opportunities_ReadMail.ImageName = "mail_view" + Me.aCRM_Opportunities_ReadMail.Shortcut = Nothing + Me.aCRM_Opportunities_ReadMail.Tag = Nothing + Me.aCRM_Opportunities_ReadMail.TargetObjectsCriteria = Nothing + Me.aCRM_Opportunities_ReadMail.TargetViewId = "CRM_Opportunities_CRM_Leads_Activity_ListView" + Me.aCRM_Opportunities_ReadMail.ToolTip = Nothing + Me.aCRM_Opportunities_ReadMail.TypeOfView = Nothing + ' + 'aCRM_Opportunities_Contact_Role_CreateMail + ' + Me.aCRM_Opportunities_Contact_Role_CreateMail.Caption = "Contact Role CreateMail" + Me.aCRM_Opportunities_Contact_Role_CreateMail.ConfirmationMessage = Nothing + Me.aCRM_Opportunities_Contact_Role_CreateMail.Id = "aCRM_Opportunities_Contact_Role_CreateMail" + Me.aCRM_Opportunities_Contact_Role_CreateMail.ImageName = "mail_add" + Me.aCRM_Opportunities_Contact_Role_CreateMail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCRM_Opportunities_Contact_Role_CreateMail.Shortcut = Nothing + Me.aCRM_Opportunities_Contact_Role_CreateMail.Tag = Nothing + Me.aCRM_Opportunities_Contact_Role_CreateMail.TargetObjectsCriteria = Nothing + Me.aCRM_Opportunities_Contact_Role_CreateMail.TargetViewId = "" + Me.aCRM_Opportunities_Contact_Role_CreateMail.ToolTip = Nothing + Me.aCRM_Opportunities_Contact_Role_CreateMail.TypeOfView = Nothing + + End Sub + Friend WithEvents aCRM_Opportunities_CreateMail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_Opportunities_ReadMail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_Opportunities_Contact_Role_CreateMail As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx new file mode 100644 index 0000000..e2c4015 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 465, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb new file mode 100644 index 0000000..224a3b1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb @@ -0,0 +1,130 @@ +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.ExpressApp.Utils + +Public Class CRM_OpportunitiesVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of CRM_OpportunitiesVC).aCRM_Opportunities_Contact_Role_CreateMail.Active.SetItemValue("", False) + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC)().aOfferOutSendMailDeatil.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then + Frame.GetController(Of CRM_OpportunitiesVC).aCRM_Opportunities_Contact_Role_CreateMail.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC)().aOfferOutSendMailDeatil.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then + Frame.GetController(Of CRM_OpportunitiesVC).aCRM_Opportunities_Contact_Role_CreateMail.Active.SetItemValue("", False) + End If + End Sub + Private Sub aCRM_Opportunities_CreateMail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_Opportunities_CreateMail.Execute + Try + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(e.CurrentObject, CRM_Opportunities) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _CRM_Opportunities.Contacts Is Nothing Then Throw New Exception("*Nincs kapcsolat ehhez az gyflhez!") + If _CRM_Opportunities.Contacts.Email Is Nothing Then Throw New UserFriendlyException("Nincs belltva e-mail cm!") + If _CRM_Opportunities.Contacts.Email = "" Then Throw New UserFriendlyException("Nincs belltva e-mail cm!") + + Dim _OutlookEMail As OutlookEMail = _ocur.CreateObject(Of OutlookEMail)() + + _OutlookEMail.CRM_Leads = _CRM_Opportunities.CRM_Leads + _OutlookEMail.CRM_Opportunities = _CRM_Opportunities + + _OutlookEMail.Recipients = _CRM_Opportunities.Contacts.Email + _OutlookEMail.OwnerUser = _CRM_Opportunities.UserCreated + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRM + _OutlookEMail.Subject = _CRM_Opportunities.ShortName + + _OutlookEMail.Save() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + + End Sub + Private Sub aCRM_Opportunities_ReadMail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_Opportunities_ReadMail.Execute + Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(e.SelectedObjects(0), CRM_Leads_Activity) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _CRM_Leads_Activity IsNot Nothing Then + '--Email megkeresse s j benyitsa + If _CRM_Leads_Activity.Email_Oid = "" Then + Throw New UserFriendlyException("Nincs kapcsold e-mail zenet!") + Else + Dim _OutlookEMail As OutlookEMail = _ocur.FindObject(Of OutlookEMail)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity.Email_Oid)) + Dim _OutlookEMailIn As OutlookEMailIn = _ocur.FindObject(Of OutlookEMailIn)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity.Email_Oid)) + If _OutlookEMail IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + Else + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMailIn_DetailView", False, _OutlookEMailIn) + End If + View.Refresh() + End If + End If + End Sub + Private Sub aCRM_Opportunities_Contact_Role_CreateMail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_Opportunities_Contact_Role_CreateMail.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OutlookEMail As OutlookEMail = _ocur.CreateObject(Of OutlookEMail)() + Dim _Contacts As Contacts = TryCast(View.SelectedObjects(0), CRM_Opportunities_Contacts_Roles).Contacts + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + + Dim _Contacts_Collection As New ArrayList + + For Each _CRM_Opportunities_Contacts_Roles As CRM_Opportunities_Contacts_Roles In View.SelectedObjects + If String.IsNullOrEmpty(_CRM_Opportunities_Contacts_Roles.Contacts.Email) Then _ + _Contacts_Collection.Add(_CRM_Opportunities_Contacts_Roles.Contacts) + Next + + If _Contacts_Collection.Count > 0 Then + Dim _ErrorMessage As String = "A kvetkez kapcsolatoknak nincs e-mail cm belltva:" + vbNewLine + + For Each _ContactsError As Contacts In _Contacts_Collection + _ErrorMessage += _ContactsError.FirstName + " " + _ContactsError.LastName + vbNewLine + Next + _ErrorMessage += "Krem, ellenrizze!" + Throw New Exception(_ErrorMessage) + End If + + + _OutlookEMail.CRM_Leads = _CRM_Opportunities.CRM_Leads + _OutlookEMail.CRM_Opportunities = _CRM_Opportunities + + _OutlookEMail.Recipients = "" + For Each _CRM_Opportunities_Contacts_Roles As CRM_Opportunities_Contacts_Roles In View.SelectedObjects + _OutlookEMail.Recipients += _CRM_Opportunities_Contacts_Roles.Contacts.Email + "; " + Next + + _OutlookEMail.OwnerUser = _CRM_Opportunities.UserCreated + _OutlookEMail.eCRMEstate_Leads = eCRMEstate_Leads.eCRM + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OutlookEMail_DetailView", False, _OutlookEMail) + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb new file mode 100644 index 0000000..80e189d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PricingActionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.vb new file mode 100644 index 0000000..eb3f111 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Pricing/PricingActionVC.vb @@ -0,0 +1,36 @@ +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 PricingActionVC + + Inherits SISBusiness.Module.PricingActionVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.Designer.vb new file mode 100644 index 0000000..92b1112 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ProductFinderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb new file mode 100644 index 0000000..8c3aa7c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductFinderVC.vb @@ -0,0 +1,320 @@ +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.Win.Editors +Imports DevExpress.XtraGrid +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraGrid.Views.Base +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule + +Public Class ProductFinderVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor_Selected As GridListEditor + Private _GridListEditor_Select As GridListEditor + Private gridView As ColumnView + Private currentView As ListView + Private falseCriteria As CriteriaOperator = CriteriaOperator.Parse("1=0") + Private Edit_QTT_Will As RepositoryItemDoubleEdit + Private Delegate Sub EditCellDelegate() + + 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 = "ProductFinder_ProductSelect_ListView" Then + currentView = CType(View, ListView) + AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated + End If + If View.Id = "ProductFinder_DetailView" Then + Frame.GetController(Of RefreshController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ProductFinder_ProductSelected_ListView" Then + If _GridListEditor_Selected IsNot Nothing Then + 'RemoveHandler _GridListEditor_Selected.GridView.CellValueChanged, AddressOf ProductFinder_ProductSelected_ListView_CellValueChanged + End If + End If + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "ProductFinder_ProductSelected_ListView" Then + _GridListEditor_Selected = TryCast(View.Editor, GridListEditor) + + If _GridListEditor_Selected IsNot Nothing Then + AddHandler _GridListEditor_Selected.GridView.CellValueChanged, AddressOf ProductFinder_ProductSelected_ListView_CellValueChanged + End If + + + End If + If View.Id = "ProductFinder_ProductSelect_ListView" Then + _GridListEditor_Select = TryCast(TryCast(View, ListView).Editor, GridListEditor) + + For Each column As DevExpress.XtraGrid.Columns.GridColumn In _GridListEditor_Select.GridView.Columns + column.OptionsFilter.ImmediateUpdateAutoFilter = False + If column.FieldName = "Products.ShortName" Then + column.OptionsFilter.AutoFilterCondition = Columns.AutoFilterCondition.Contains + End If + Next + If _GridListEditor_Select IsNot Nothing Then + AddHandler _GridListEditor_Select.ColumnCreated, AddressOf Products_ListView_ColumnCreated + AddHandler _GridListEditor_Select.GridView.ColumnFilterChanged, AddressOf GridView_ColumnFilterChanged + AddHandler _GridListEditor_Select.GridView.CellValueChanged, AddressOf ProductFinder_ProductSelect_ListView_CellValueChanged + AddHandler _GridListEditor_Select.GridView.RowClick, AddressOf ProductFinder_ProductSelect_RowClick + End If + End If + If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then + Dim _GLE As GridListEditor = TryCast(View.Editor, GridListEditor) + If _GLE IsNot Nothing Then + If _GLE.GridView IsNot Nothing Then + _GLE.GridView.OptionsView.RowAutoHeight = True + '_GLE.GridView.OptionsView.ShowColumnHeaders = False + '_GLE.GridView.OptionsView.ShowVerticalLines = False + End If + End If + End If + End Sub + + Private Sub ProductFinder_ProductSelected_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.CommitChanges() + + End Sub + Private Sub Products_ListView_ColumnCreated(sender As Object, e As ColumnCreatedEventArgs) + e.Column.OptionsFilter.ImmediateUpdateAutoFilter = False + End Sub + + Private Sub Timer_Elapsed() + _GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell)) + End Sub + Private Sub Edit_QTT_Will_Cell() + 'e.KeyCode = Windows.Forms.Keys.Enter And + If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then + '_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("QTT_Will").VisibleIndex) + _GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will") + _GridListEditor_Select.GridView.HideEditor() + _GridListEditor_Select.GridView.FocusedRowHandle = _GridListEditor_Select.GridView.GetVisibleRowHandle(0) + _GridListEditor_Select.GridView.ShowEditor() + If _GridListEditor_Select.GridView.ActiveEditor IsNot Nothing Then + _GridListEditor_Select.GridView.ActiveEditor.Focus() + End If + End If + End Sub + Private Sub GridView_ColumnFilterChanged(sender As Object, e As EventArgs) + Dim timer As System.Timers.Timer = New System.Timers.Timer(200) + AddHandler timer.Elapsed, AddressOf Timer_Elapsed + timer.Enabled = True + timer.AutoReset = False + End Sub + + Private Sub ProductFinder_ProductSelect_ListView_CellValueChanged(sender As Object, e As Views.Base.CellValueChangedEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If e.Column.FieldName = "QTT_Will" Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _ProductFinder As ProductFinder = TryCast(_PropertyCollectionSource.MasterObject, ProductFinder) + + + Dim _ProductNumber As String = _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "Products.ProductNumber") + Dim _Products As Products = _onew.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", _ProductNumber)) + + Dim _ProductSelected As ProductSelected = _onew.FindObject(Of ProductSelected)(CriteriaOperator.Parse("MasterKey=? AND Products=?", _ProductFinder.MasterKey, _Products)) + If _ProductSelected Is Nothing Then + _ProductSelected = _onew.CreateObject(Of ProductSelected)() + _ProductSelected.Products = _Products + _ProductSelected.MasterKey = _ProductFinder.MasterKey + _ProductSelected.QTT = _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "QTT_Will") + Else + _ProductSelected.QTT += _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "QTT_Will") + End If + + _onew.CommitChanges() + + End If + + If _GridListEditor_Select.GridView.FocusedColumn Is _GridListEditor_Select.GridView.Columns("QTT_Will") Then + _GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("Products.ProductNumber").VisibleIndex) + _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle + _GridListEditor_Select.GridView.ShowEditor() + If _GridListEditor_Select.GridView.ActiveEditor IsNot Nothing Then + _GridListEditor_Select.GridView.ActiveEditor.Focus() + End If + End If + If e.Column.FieldName = "QTT_Will" Then + Dim _DetailView As DetailView = TryCast(TryCast(Frame, NestedFrame).ViewItem.View, DetailView) + If _DetailView IsNot Nothing Then + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("ProductSelected") + If _ListPropertyEditor IsNot Nothing Then + TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload() + End If + End If + End If + End Sub + Private Sub AutoFilterRowController_ControlsCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim grid As GridControl = TryCast(currentView.Control, GridControl) + gridView = TryCast(grid.FocusedView, ColumnView) + If gridView.ActiveFilter.IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + End If + AddHandler gridView.ActiveFilter.Changed, AddressOf ActiveFilter_Changed + End Sub + Private Sub ActiveFilter_Changed(ByVal sender As Object, ByVal e As EventArgs) + If (CType(sender, ViewFilter)).IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + Else + If currentView.CollectionSource.Criteria.ContainsKey("FalseCriteria") Then + currentView.CollectionSource.Criteria.Remove("FalseCriteria") + End If + End If + End Sub + Private Sub ProductFinder_ProductSelect_RowClick(sender As Object, e As Views.Grid.RowClickEventArgs) + Dim _ProductFinder As ProductFinder + Dim _Products As Products = _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "Products") + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) + Dim _ListPropertyEditor As ListPropertyEditor + Dim _ProductFinderInfo As ProductFinderInfo + + If _PropertyCollectionSource IsNot Nothing Then + _ProductFinder = TryCast(_PropertyCollectionSource.MasterObject, ProductFinder) + If _ProductFinder IsNot Nothing Then + Dim _DetailView As DetailView = TryCast(TryCast(Frame, NestedFrame).ViewItem.View, DetailView) + If _DetailView IsNot Nothing Then + _ListPropertyEditor = _DetailView.FindItem("ProductFinderInfo") + If _ListPropertyEditor IsNot Nothing Then + + Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = TryCast(_ListView.ObjectSpace, Xpo.XPObjectSpace) 'Application.CreateObjectSpace + _ListView.CollectionSource.ResetCollection() + If _Products IsNot Nothing Then + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductGroups") + _ProductFinderInfo.InfoString = _Products.ProductGroups.ShortName + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Description") + _ProductFinderInfo.InfoString = _Products.Description + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductNumber") + _ProductFinderInfo.InfoString = _Products.ProductNumber + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ShortName") + _ProductFinderInfo.InfoString = _Products.ShortName + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "PacketUnitIn") + _ProductFinderInfo.InfoString = _Products.PacketUnitIn.ToString + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductStrategyCode") + _ProductFinderInfo.InfoString = _Products.ProductStrategyCode + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Units") + _ProductFinderInfo.InfoString = _Products.Units.ShortName + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "CustomsTariff") + If _Products.CustomsTariff IsNot Nothing Then + _ProductFinderInfo.InfoString = _Products.CustomsTariff.CustomsTariffNumber + Else + _ProductFinderInfo.InfoString = "nincs belltva" + End If + _ListView.CollectionSource.Add(_ProductFinderInfo) + + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "GrossWeight") + _ProductFinderInfo.InfoString = _Products.GrossWeight + _ListView.CollectionSource.Add(_ProductFinderInfo) + + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ListPriceOutHUF") + _ProductFinderInfo.InfoString = _Products.ListPriceOutHUF.ToString + _ListView.CollectionSource.Add(_ProductFinderInfo) + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "VAT") + _ProductFinderInfo.InfoString = _Products.VAT.ShortName + _ListView.CollectionSource.Add(_ProductFinderInfo) + + Dim _PricingActionRows As PricingActionRows = _onew.Session.FindObject(Of PricingActionRows) _ + (_onew.Session.ParseCriteria("Products=? and PricingActionHeader.IsActive=1 and PricingActionHeader.DateFrom<=Now() and PricingActionHeader.DateTo>=Now()", _Products)) + + If _PricingActionRows IsNot Nothing Then + + _ProductFinderInfo = _onew.CreateObject(Of ProductFinderInfo)() + _ProductFinderInfo.PropertyName = "Akci!" + _ProductFinderInfo.InfoString = Format(_PricingActionRows.ListPriceHUF, "#,##0") & Chr(13) & Chr(10) & _ + _PricingActionRows.PricingActionHeader.ShortName & Chr(13) & Chr(10) & _PricingActionRows.PricingActionHeader.DateFrom.ToShortDateString & _ + " - " & _PricingActionRows.PricingActionHeader.DateTo.ToShortDateString + _ListView.CollectionSource.Add(_ProductFinderInfo) + + End If + + End If + + '_ListView.CollectionSource.Reload() + End If + + End If + _ListPropertyEditor = _DetailView.FindItem("StorageOutCirculation") + If _ListPropertyEditor IsNot Nothing Then + Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(_ListView.ObjectSpace, Xpo.XPObjectSpace) 'Application.CreateObjectSpace + _ListView.CollectionSource.ResetCollection() + If _Products IsNot Nothing Then + Dim _StorageOutCirculation As StorageOutCirculation + Dim _StorageOutCirculation_Collection As New XPCollection(Of StorageOutCirculation)(_ocur.Session, CriteriaOperator.Parse("Products.Oid=?", _Products.Oid)) + For Each _StorageOutCirculation In _StorageOutCirculation_Collection + _ListView.CollectionSource.Add(_StorageOutCirculation) + Next + + End If + + End If + End If + End If + + End If + End If + End Sub + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.Designer.vb new file mode 100644 index 0000000..99d63c5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ProductSelect_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.vb new file mode 100644 index 0000000..e5ee3cb --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductSelect_VC.vb @@ -0,0 +1,121 @@ +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.Win.Editors + +Imports DevExpress.XtraGrid +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraGrid.Views.Base +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.ExpressApp.Editors +Public Class ProductSelect_VC + Inherits DevExpress.ExpressApp.ViewController + Private _GridListEditor_Select As GridListEditor + Private Delegate Sub EditCellDelegate() + 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 = "ProductSelect_LookupListView" Then + _GridListEditor_Select = TryCast(TryCast(View, ListView).Editor, GridListEditor) + + For Each column As DevExpress.XtraGrid.Columns.GridColumn In _GridListEditor_Select.GridView.Columns + column.OptionsFilter.ImmediateUpdateAutoFilter = False + If column.FieldName = "Products.ShortName" Then + column.OptionsFilter.AutoFilterCondition = Columns.AutoFilterCondition.Contains + End If + Next + If _GridListEditor_Select IsNot Nothing Then + AddHandler _GridListEditor_Select.ColumnCreated, AddressOf ProductSelect_LookupListView_ColumnCreated + AddHandler _GridListEditor_Select.GridView.ColumnFilterChanged, AddressOf ProductSelect_LookupListView_ColumnFilterChanged + AddHandler _GridListEditor_Select.GridView.CellValueChanged, AddressOf ProductSelect_LookupListView_ListView_CellValueChanged + End If + End If + End Sub + + Private Sub ProductSelect_LookupListView_ColumnCreated(sender As Object, e As ColumnCreatedEventArgs) + e.Column.OptionsFilter.ImmediateUpdateAutoFilter = False + End Sub + + Private Sub ProductSelect_LookupListView_ColumnFilterChanged(sender As Object, e As EventArgs) + Dim timer As System.Timers.Timer = New System.Timers.Timer(200) + AddHandler timer.Elapsed, AddressOf Timer_Elapsed + timer.Enabled = True + timer.AutoReset = False + End Sub + + Private Sub ProductSelect_LookupListView_ListView_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If e.Column.FieldName = "QTT_Will" Then + 'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + 'Dim _ListView As ListView = TryCast(View, ListView) + 'Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + 'Dim _ProductFinder As ProductFinder = TryCast(_PropertyCollectionSource.MasterObject, ProductFinder) + + + 'Dim _ProductNumber As String = _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "Products.ProductNumber") + 'Dim _Products As Products = _onew.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", _ProductNumber)) + + 'Dim _ProductSelected As ProductSelected = _onew.FindObject(Of ProductSelected)(CriteriaOperator.Parse("MasterKey=? AND Products=?", _ProductFinder.MasterKey, _Products)) + 'If _ProductSelected Is Nothing Then + ' _ProductSelected = _onew.CreateObject(Of ProductSelected)() + ' _ProductSelected.Products = _Products + ' _ProductSelected.MasterKey = _ProductFinder.MasterKey + ' _ProductSelected.QTT = _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "QTT_Will") + 'Else + ' _ProductSelected.QTT += _GridListEditor_Select.GridView.GetRowCellValue(e.RowHandle, "QTT_Will") + 'End If + + '_onew.CommitChanges() + + End If + + If _GridListEditor_Select.GridView.FocusedColumn Is _GridListEditor_Select.GridView.Columns("QTT_Will") Then + _GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("Products.ProductNumber").VisibleIndex) + _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle + _GridListEditor_Select.GridView.ShowEditor() + If _GridListEditor_Select.GridView.ActiveEditor IsNot Nothing Then + _GridListEditor_Select.GridView.ActiveEditor.Focus() + End If + End If + If e.Column.FieldName = "QTT_Will" Then + 'Dim _DetailView As DetailView = TryCast(TryCast(Frame, NestedFrame).ViewItem.View, DetailView) + 'If _DetailView IsNot Nothing Then + ' Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("ProductSelected") + ' If _ListPropertyEditor IsNot Nothing Then + ' TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload() + ' End If + 'End If + End If + End Sub + Private Sub Timer_Elapsed() + _GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell)) + End Sub + Private Sub Edit_QTT_Will_Cell() + 'e.KeyCode = Windows.Forms.Keys.Enter And + If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then + _GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will") + _GridListEditor_Select.GridView.HideEditor() + _GridListEditor_Select.GridView.FocusedRowHandle = _GridListEditor_Select.GridView.GetVisibleRowHandle(0) + _GridListEditor_Select.GridView.ShowEditor() + If _GridListEditor_Select.GridView.ActiveEditor IsNot Nothing Then + _GridListEditor_Select.GridView.ActiveEditor.Focus() + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.Designer.vb new file mode 100644 index 0000000..09581fe --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.Designer.vb @@ -0,0 +1,107 @@ +Partial Class ProductsGant_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProductsGant_Refresh = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductsGant_SetGantItemColumn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProductsGant_CreateCustomersReport = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProductsGant_OpenProducts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProductsGant_Refresh + ' + Me.aProductsGant_Refresh.Caption = "aProductsGant_Refresh" + Me.aProductsGant_Refresh.Category = "aProductsGant_Refresh" + Me.aProductsGant_Refresh.ConfirmationMessage = Nothing + Me.aProductsGant_Refresh.Id = "aProductsGant_Refresh" + Me.aProductsGant_Refresh.ImageName = Nothing + Me.aProductsGant_Refresh.Shortcut = Nothing + Me.aProductsGant_Refresh.Tag = Nothing + Me.aProductsGant_Refresh.TargetObjectsCriteria = Nothing + Me.aProductsGant_Refresh.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_Refresh.TargetViewId = Nothing + Me.aProductsGant_Refresh.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProductsGant_Refresh.ToolTip = Nothing + Me.aProductsGant_Refresh.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProductsGant_SetGantItemColumn + ' + Me.aProductsGant_SetGantItemColumn.AcceptButtonCaption = Nothing + Me.aProductsGant_SetGantItemColumn.CancelButtonCaption = Nothing + Me.aProductsGant_SetGantItemColumn.Caption = "aProductsGant_SetGantItemColumn" + Me.aProductsGant_SetGantItemColumn.Category = "aProductsGant_SetGantItemColumn" + Me.aProductsGant_SetGantItemColumn.ConfirmationMessage = Nothing + Me.aProductsGant_SetGantItemColumn.Id = "aProductsGant_SetGantItemColumn" + Me.aProductsGant_SetGantItemColumn.ImageName = Nothing + Me.aProductsGant_SetGantItemColumn.Shortcut = Nothing + Me.aProductsGant_SetGantItemColumn.Tag = Nothing + Me.aProductsGant_SetGantItemColumn.TargetObjectsCriteria = Nothing + Me.aProductsGant_SetGantItemColumn.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_SetGantItemColumn.TargetViewId = Nothing + Me.aProductsGant_SetGantItemColumn.ToolTip = Nothing + Me.aProductsGant_SetGantItemColumn.TypeOfView = Nothing + ' + 'aProductsGant_CreateCustomersReport + ' + Me.aProductsGant_CreateCustomersReport.AcceptButtonCaption = Nothing + Me.aProductsGant_CreateCustomersReport.CancelButtonCaption = Nothing + Me.aProductsGant_CreateCustomersReport.Caption = "aProductsGant_CreateCustomersReport" + Me.aProductsGant_CreateCustomersReport.Category = "aProductsGant_CreateCustomersReport" + Me.aProductsGant_CreateCustomersReport.ConfirmationMessage = Nothing + Me.aProductsGant_CreateCustomersReport.Id = "aProductsGant_CreateCustomersReport" + Me.aProductsGant_CreateCustomersReport.ImageName = Nothing + Me.aProductsGant_CreateCustomersReport.Shortcut = Nothing + Me.aProductsGant_CreateCustomersReport.Tag = Nothing + Me.aProductsGant_CreateCustomersReport.TargetObjectsCriteria = Nothing + Me.aProductsGant_CreateCustomersReport.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_CreateCustomersReport.TargetViewId = Nothing + Me.aProductsGant_CreateCustomersReport.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProductsGant_CreateCustomersReport.ToolTip = Nothing + Me.aProductsGant_CreateCustomersReport.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProductsGant_OpenProducts + ' + Me.aProductsGant_OpenProducts.Caption = "aProductsGant_OpenProducts" + Me.aProductsGant_OpenProducts.Category = "aProductsGant_OpenProducts" + Me.aProductsGant_OpenProducts.ConfirmationMessage = Nothing + Me.aProductsGant_OpenProducts.Id = "aProductsGant_OpenProducts" + Me.aProductsGant_OpenProducts.ImageName = Nothing + Me.aProductsGant_OpenProducts.Shortcut = Nothing + Me.aProductsGant_OpenProducts.Tag = Nothing + Me.aProductsGant_OpenProducts.TargetObjectsCriteria = Nothing + Me.aProductsGant_OpenProducts.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_OpenProducts.TargetViewId = Nothing + Me.aProductsGant_OpenProducts.ToolTip = Nothing + Me.aProductsGant_OpenProducts.TypeOfView = Nothing + + End Sub + Friend WithEvents aProductsGant_Refresh As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductsGant_SetGantItemColumn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProductsGant_CreateCustomersReport As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProductsGant_OpenProducts As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.resx new file mode 100644 index 0000000..a5051b0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 338, 199 + + + 42, 200 + + + 461, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb new file mode 100644 index 0000000..ba5df89 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/ProductsGant_VC.vb @@ -0,0 +1,756 @@ +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 exontrol.EXG2ANTTLib +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports System.Net.Mail +Imports System.Reflection +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.Model +Imports System.Linq + +Public Class ProductsGant_VC + Inherits SISBusiness.Module.ProductsGant_VC + + Dim _GanttControl As exontrol.EXG2ANTTLib.exg2antt + Dim _ProductGandRowsOidindex As Long = 0 + Dim _GantItemColumn_Array As New ArrayList + Dim _WaitFormClass As New WaitFormClass + Dim _GantChange As Boolean = False + Dim _FocusedItem As String + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Structure SISGantColumn + Public IsGroupColumn As Boolean + Public Index As Long + Public ColumnID As String + Public Caption As String + Public Width As Long + Public GantColumnIndex As Long + End Structure + +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "ProductsGant_DetailView" Then + + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _GanttContolViewItem As ViewItem = _DetailView.FindItem("G2antt") + If _GanttContolViewItem IsNot Nothing Then + AddHandler _GanttContolViewItem.ControlCreated, AddressOf GanttContolViewItem_ControlCreated + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executing, AddressOf RefreshAction_Executing + End If + End If + If View.Id = "ProductsGant_ProductsGantRows_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "ProductsGant_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + + If View.Id = "ProductsGant_ProductsGantRows_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub GanttContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + _GanttControl = TryCast(_ItemControl, G2anttUserControl).Exg2antt + + AddHandler _GanttControl.EditCloseEvent, AddressOf _GanttControl_EditCloseEvent + AddHandler _GanttControl.SelectionChanged, AddressOf _GanttControl_SelectionChanged + + Frame.GetController(Of ProductsGant_VC).aProductsGant_Refresh.DoExecute() + End Sub + Private Sub aProductsGant_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_Refresh.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + If _ProductsGant Is Nothing Then + _ProductsGant = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProductsGant) + End If + + Dim _ProductsGantRowsBar_Collection As New XPCollection(Of ProductsGantRowsBar)(_onew.Session, CriteriaOperator.Parse("BarType=3")) + + If _ProductsGantRowsBar_Collection.Count > 0 Then + For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRowsBar_Collection + With _ProductsGantRowsBar + .FromDate = GetSQLTime(_onew.Session).Date + If .ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then + .ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) + Else + .ToDate = .FromDate + End If + End With + + Next + End If + _ProductsGantRowsBar_Collection = New XPCollection(Of ProductsGantRowsBar)(_onew.Session, CriteriaOperator.Parse("BarType=0")) + + If _ProductsGantRowsBar_Collection.Count > 0 Then + For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRowsBar_Collection + With _ProductsGantRowsBar + If _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then + .ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.ManualRotation) + ElseIf _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then + .ToDate = .FromDate.AddDays(_ProductsGantRowsBar.ProductsGantRows.CalculatedRotation) + Else + .ToDate = .FromDate.AddDays(1) + + End If + End With + Next + End If + _onew.CommitChanges() + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ProductsGantRowsViewItem As ListPropertyEditor = _DetailView.FindItem("ProductsGantRows") + Dim _IModelListView As IModelListView = Application.Model.Views.GetNode("ProductsGant_ProductsGantRows_ListView") + If _GanttControl IsNot Nothing And _IModelListView IsNot Nothing Then + + _GantChange = False + + + AddHandler _GanttControl.Change, AddressOf GanttControl_Change + AddHandler _GanttControl.LayoutChanged, AddressOf GanttControl_LayoutChanged + + + With _GanttControl + .BeginUpdate() + .Columns.Clear() + .DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines + .LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesAtRoot + .HasButtons = exontrol.EXG2ANTTLib.ExpandButtonEnum.exArrow + .HasLines = HierarchyLineEnum.exSolidLine + + With .Chart + .MarkNowColor = Drawing.Color.Red + .MarkNowWidth = 3 + .DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines + .FirstVisibleDate = GetSQLTime(_onew.Session).ToString("yyyy.MM.dd") + .PaneWidthRight = 500 + .FirstWeekDay = 1 + .UnitWidth = 36 + .LevelCount = 2 + .get_Level(0).ToolTip = _GanttControl.Chart.get_Level(0).Label + .get_Level(0).Unit = 256 + .get_Level(1).ToolTip = _GanttControl.Chart.get_Level(1).Label + .OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll + .AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exZoomOnRClick + .AllowLinkBars = True + .set_PaneWidth(True, 800) + ' .HistogramVisible = True + '.HistogramHeight = 80 + '.OverviewZoomCaption = "Year|1/2Year|1/4Year|3Month|Third|2Week|1Day|Hour|Min|Sec" + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exYear, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHalfYear, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exQuarterYear, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exThirdMonth, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMinute, "") + '.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exSecond, "") + '.OverviewZoomUnit = 64 + End With + + '.SingleSel = False + + With .Chart.Bars + With .Copy("Task", "Accounted") + .Color = Drawing.Color.Black + .Shape = ShapeBarEnum.exShapeSolid + .StartShape = ShapeCornerEnum.exShapeIconUp3 + .EndShape = ShapeCornerEnum.exShapeIconDown3 + .StartColor = Drawing.Color.LightYellow + .EndColor = Drawing.Color.Yellow + .Pattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .Height = 18 + .HistogramPattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .HistogramColor = Drawing.Color.Yellow + .OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsStack + End With + With .Copy("Task", "Ordered") + .Color = Drawing.Color.Black + .Shape = ShapeBarEnum.exShapeSolid + .StartColor = Drawing.Color.LightPink + .EndColor = Drawing.Color.Pink + .Pattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .Height = 18 + .HistogramPattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .HistogramColor = Drawing.Color.Pink + .OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsStack + End With + With .Copy("Summary", "Reported") + .Color = Drawing.Color.DarkGray + .Shape = ShapeBarEnum.exShapeSolid + .StartShape = ShapeCornerEnum.exShapeIconUp3 + .EndShape = ShapeCornerEnum.exShapeIconDown3 + .HistogramRulerLinesColor = Drawing.Color.Black + .StartColor = Drawing.Color.DarkGreen + .EndColor = Drawing.Color.LightGreen + .Pattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + PatternEnum.exPatternEmpty + .Height = 18 + .HistogramPattern = PatternEnum.exPatternBox + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + PatternEnum.exPatternEmpty + .HistogramColor = Drawing.Color.Green + .OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsStack + End With + With .Copy("Milestone", "OrderArrive") + .StartShape = ShapeCornerEnum.exShapeIconVBar + .StartColor = Drawing.Color.IndianRed + .EndColor = Drawing.Color.DarkRed + .Color = Drawing.Color.Black + .Pattern = PatternEnum.exRectangularCurve + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .Shape = ShapeBarEnum.exShapeSolidCenter + .Height = 18 + .HistogramPattern = PatternEnum.exRectangularCurve + PatternEnum.exPatternDot + PatternEnum.exPatternShadow + .HistogramColor = Drawing.Color.Red + .OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsStack + End With + End With + + For Each _Column In _IModelListView.Columns + If _Column.Index <> -1 Then + Dim _SISGantColumn As New SISGantColumn + With _SISGantColumn + .Caption = _Column.Caption + .ColumnID = _Column.Id + .Index = _Column.Index + .Width = _Column.Width + End With + If _Column.GroupIndex = 0 Then + _SISGantColumn.IsGroupColumn = True + Else + _SISGantColumn.IsGroupColumn = False + End If + + _GantItemColumn_Array.Add(_SISGantColumn) + End If + Next + + Dim _GroupColumn As SISGantColumn = Nothing + + For Each _SISGantColumn As SISGantColumn In _GantItemColumn_Array + If _SISGantColumn.IsGroupColumn Then + _GroupColumn = _SISGantColumn + Exit For + End If + Next + + Dim _GantColumnIndex As Integer = 0 + + .TreeColumnIndex = 1 + + .Columns.Add(_GantColumnIndex) + .Columns(_GantColumnIndex).Caption = "ProductGandRowsOid" + .Columns(_GantColumnIndex).Key = "ProductGandRowsOid" + .Columns(_GantColumnIndex).Width = 100 + .Columns(_GantColumnIndex).Visible = False + _ProductGandRowsOidindex = _GantColumnIndex + _GantColumnIndex += 1 + + .Columns.Add(_GantColumnIndex) + .Columns(_GantColumnIndex).Key = _GroupColumn.ColumnID + .Columns(_GantColumnIndex).Caption = _GroupColumn.Caption + .Columns(_GantColumnIndex).Width = _GroupColumn.Width + _GroupColumn.GantColumnIndex = _GantColumnIndex + _GantColumnIndex += 1 + + For _ik = 0 To _GantItemColumn_Array.Count + For Each _SISGantColumn As SISGantColumn In _GantItemColumn_Array + If Not _SISGantColumn.IsGroupColumn And _SISGantColumn.Index = _ik Then + .Columns.Add(_GantColumnIndex) + .Columns(_GantColumnIndex).Key = _SISGantColumn.ColumnID + .Columns(_GantColumnIndex).Caption = _SISGantColumn.Caption + .Columns(_GantColumnIndex).Width = _SISGantColumn.Width + If _SISGantColumn.ColumnID <> "Customers" And _SISGantColumn.ColumnID <> "Products" Then + .Columns(_GantColumnIndex).Editor.EditType = EditTypeEnum.EditType + End If + If _GroupColumn.ColumnID = "Customers" Or _GroupColumn.ColumnID = "Products" Then + .Columns.Item(_GroupColumn.Caption).SortOrder = exontrol.EXG2ANTTLib.SortOrderEnum.SortAscending + End If + _SISGantColumn.GantColumnIndex = _GantColumnIndex + + _GantColumnIndex += 1 + Exit For + End If + Next + Next + + 'Csoportsítás + Dim _GroupObjects_Collection As New ArrayList + If Not String.IsNullOrEmpty(_GroupColumn.ColumnID) Then + Select Case _GroupColumn.ColumnID + Case "Customers" + For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows + If _GroupObjects_Collection.Count = 0 Then + _GroupObjects_Collection.Add(_ProductsGantRows.Customers) + Else + Dim _Need As Boolean = True + For Each _Customers As Customers In _GroupObjects_Collection + If _ProductsGantRows.Customers.Oid = _Customers.Oid Then + _Need = False + Exit For + End If + Next + + If _Need Then _GroupObjects_Collection.Add(_ProductsGantRows.Customers) + End If + Next + + Dim _CustomerColumn As exontrol.EXG2ANTTLib.Column = Nothing + For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + If _G2Column.Key = _GroupColumn.ColumnID Then + _CustomerColumn = _G2Column + Exit For + End If + Next + + If _CustomerColumn IsNot Nothing Then + For Each _Customers As Customers In _GroupObjects_Collection + Dim _GroupItem As Long = _GanttControl.Items.AddItem() + + _GanttControl.Items.set_CellValue(_GroupItem, _CustomerColumn.Index, "" + _Customers.FullName + "") + _GanttControl.Items.set_CellValueFormat(_GroupItem, _CustomerColumn.Index, ValueFormatEnum.exHTML) + Dim _GroupCollectionElement_Collection As New XPCollection(Of ProductsGantRows)(_onew.Session, CriteriaOperator.Parse("Customers=? AND ProductsGant=?", _onew.GetObject(_Customers), _onew.GetObject(_ProductsGant))) + + For Each _ProductsGantRows As ProductsGantRows In _GroupCollectionElement_Collection + Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0) + If _Item = 0 Then + _Item = .Items.InsertItem(_GroupItem, "") + .Items.set_ExpandItem(_Item, True) + SetItemsAndItemData(_Item, _ProductsGantRows) + End If + Next + _GanttControl.Items.set_ExpandItem(_GroupItem, True) + Next + End If + Case "Products" + For Each _ProductsGantRows As ProductsGantRows In _ProductsGant.ProductsGantRows + If _GroupObjects_Collection.Count = 0 Then + _GroupObjects_Collection.Add(_ProductsGantRows.Products) + Else + Dim _Need As Boolean = True + For Each _Products As Products In _GroupObjects_Collection + If _ProductsGantRows.Products.Oid = _Products.Oid Then + _Need = False + Exit For + End If + Next + + If _Need Then _GroupObjects_Collection.Add(_ProductsGantRows.Products) + End If + Next + + Dim _ProductsColumn As exontrol.EXG2ANTTLib.Column = Nothing + For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + If _G2Column.Key = _GroupColumn.ColumnID Then + _ProductsColumn = _G2Column + Exit For + End If + Next + + If _ProductsColumn IsNot Nothing Then + For Each _Products As Products In _GroupObjects_Collection + Dim _GroupItem As Long = _GanttControl.Items.AddItem() + _GanttControl.Items.set_CellValue(_GroupItem, _ProductsColumn.Index, _Products.ShortName) + + Dim _GroupCollectionElement_Collection As New XPCollection(Of ProductsGantRows)(_onew.Session, CriteriaOperator.Parse("Products=? AND ProductsGant=?", _onew.GetObject(_Products), _onew.GetObject(_ProductsGant))) + + For Each _ProductsGantRows As ProductsGantRows In _GroupCollectionElement_Collection + Dim _Item As Long = _GanttControl.Items.get_FindItem(_ProductsGantRows.Oid.ToString, 0) + If _Item = 0 Then + _Item = _GanttControl.Items.InsertItem(_GroupItem, "") + + SetItemsAndItemData(_Item, _ProductsGantRows) + End If + Next + Next + End If + + End Select + End If + If Not String.IsNullOrEmpty(_FocusedItem) Then + Dim _SelectedItem As Long = _GanttControl.Items.get_FindItem(_FocusedItem, 0) + If _SelectedItem > 0 Then + .Items.set_SelectItem(_SelectedItem, True) + End If + End If + .EndUpdate() + + _GantItemColumn_Array.Clear() + _GantChange = True + End With + End If + End Sub + Private Sub SetItemBars(_item As Long, _ProductsGantRows As ProductsGantRows) + For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRows.ProductsGantRowsBar + + + + + Next + End Sub + Private Sub aProductsGant_SetGantItemColumn_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProductsGant_SetGantItemColumn.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ProductsGant_SetGantItemColumn_PopUp_CollectionSource As New CollectionSource(_onew, GetType(ProductsGant_SetGantItemColumn_PopUp)) + Dim _IModelListView As IModelListView = Application.Model.Views.GetNode("ProductsGant_ProductsGantRows_ListView") + + For Each _Column In _IModelListView.Columns + Dim _ProductsGant_SetGantItemColumn_PopUp As New ProductsGant_SetGantItemColumn_PopUp(_onew.Session) + With _ProductsGant_SetGantItemColumn_PopUp + .ColumnCaption = _Column.Caption + If _Column.Index <> -1 Then + .IsVisable = True + Else + .IsVisable = False + End If + .Index = _Column.Index + If _Column.GroupIndex <> -1 Then + .IsGroupColumn = True + Else + .IsGroupColumn = False + End If + .Width = _Column.Width + .GroupIndex = _Column.GroupIndex + End With + + _ProductsGant_SetGantItemColumn_PopUp_CollectionSource.Add(_ProductsGant_SetGantItemColumn_PopUp) + Next + + e.View = Application.CreateListView("ProductsGant_SetGantItemColumn_PopUp_ListView", _ProductsGant_SetGantItemColumn_PopUp_CollectionSource, False) + End Sub + Private Sub aProductsGant_SetGantItemColumn_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProductsGant_SetGantItemColumn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _IModelListView As IModelListView = Application.Model.Views.GetNode("ProductsGant_ProductsGantRows_ListView") + + For Each _ProductsGant_SetGantItemColumn_PopUp As ProductsGant_SetGantItemColumn_PopUp In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection + For Each _Column In _IModelListView.Columns + If _Column.Caption = _ProductsGant_SetGantItemColumn_PopUp.ColumnCaption Then + _Column.Index = _ProductsGant_SetGantItemColumn_PopUp.Index + If _ProductsGant_SetGantItemColumn_PopUp.IsGroupColumn Then + _Column.GroupIndex = _ProductsGant_SetGantItemColumn_PopUp.GroupIndex + Else + _Column.GroupIndex = -1 + End If + _Column.Width = _ProductsGant_SetGantItemColumn_PopUp.Width + Exit For + End If + Next + Next + Application.SaveModelChanges() + + _GanttControl.BeginUpdate() + For Each _Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + For Each _ColumnModel In _IModelListView.Columns + If _ColumnModel.Caption = _Column.Caption Then + _Column.Width = _ColumnModel.Width + End If + Next + Next + _GanttControl.EndUpdate() + + End Sub + Private Sub _GanttControl_EditCloseEvent(sender As Object) + Dim _Item As Long = _GanttControl.Items.get_SelectedItem(0) + + Dim _Oid As String = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), 0) + If String.IsNullOrEmpty(_Oid) Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("Oid=?", _Oid)) + + If _ProductsGantRows IsNot Nothing Then + For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + Select Case _G2Column.Key + Case "ManualRotation" + _ProductsGantRows.ManualRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index) + Case "CalculatedRotation" + _ProductsGantRows.CalculatedRotation = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), _G2Column.Index) + End Select + Next + + End If + _ocur.CommitChanges() + End If + End Sub + Private Sub aProductsGant_CreateCustomersReport_CustomizePopupWindowParams1(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProductsGant_CreateCustomersReport.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ReportDate As Date = GetSQLTime(_onew.Session).Date + Dim _ProductsGantRows_Oid As String = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), 0) + If String.IsNullOrEmpty(_ProductsGantRows_Oid) Then + MsgBox("Nincs kiválasztva egyetlen sor sem, nem lehet azonosítani az Ügyfelet!", MsgBoxStyle.OkOnly, "Hiba!") + Exit Sub + End If + Dim _ProductsGantRows_Selected As ProductsGantRows = _onew.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("Oid=?", _ProductsGantRows_Oid)) + + Dim _ProductsGantCustomersReport_CollectionSource As New CollectionSource(_onew, GetType(ProductsGantCustomersReport)) + _ProductsGantCustomersReport_CollectionSource.BeginUpdateCriteria() + _ProductsGantCustomersReport_CollectionSource.Criteria.Clear() + _ProductsGantCustomersReport_CollectionSource.Criteria("First") = CriteriaOperator.Parse("GetDate(DateExecution)=? AND Customers.Oid=?", _ReportDate.Date, _ProductsGantRows_Selected.Customers.Oid) + _ProductsGantCustomersReport_CollectionSource.EndUpdateCriteria() + + If _GanttControl.Items.get_SelectedItem(0) > 0 Then + Dim _ProductsGantRows_Collection As New XPCollection(Of ProductsGantRows)(_onew.Session, CriteriaOperator.Parse("Customers=?", _ProductsGantRows_Selected.Customers)) + + If _ProductsGantRows_Collection.Count > 0 Then + For Each _ProductsGantRows As ProductsGantRows In _ProductsGantRows_Collection + Dim _ProductsGantCustomersReport As New ProductsGantCustomersReport(_onew.Session) + With _ProductsGantCustomersReport + .Customers = _ProductsGantRows_Selected.Customers + .Products = _ProductsGantRows.Products + .QTT = 0 + .DateExecution = _ReportDate + End With + + _ProductsGantCustomersReport_CollectionSource.Add(_ProductsGantCustomersReport) + Next + End If + + End If + e.View = Application.CreateListView("ProductsGantCustomersReport_ListView_PopUp", _ProductsGantCustomersReport_CollectionSource, False) + End Sub + Private Sub aProductsGant_CreateCustomersReport_Execute_1(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProductsGant_CreateCustomersReport.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + Dim _Customers As Customers = Nothing + Dim _Products As Products = Nothing + Dim _QTT As Double = 0 + Dim _DateExecution As Date = Date.MinValue + + + For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection + + If _ProductsGantCustomersReport.QTT > 0 Then + + Dim _ProductsGantCustomersReport_New As ProductsGantCustomersReport = _ocur.FindObject(Of ProductsGantCustomersReport)(CriteriaOperator.Parse("Customers=? AND Products=? AND DateExecution=?", _ + _ocur.GetObject(_ProductsGantCustomersReport.Customers), _ + _ocur.GetObject(_ProductsGantCustomersReport.Products), _ + _ProductsGantCustomersReport.DateExecution)) + If _ProductsGantCustomersReport_New Is Nothing Then + _ProductsGantCustomersReport_New = New ProductsGantCustomersReport(_ocur.Session) + _ProductsGantCustomersReport_New.Customers = _ocur.GetObject(_ProductsGantCustomersReport.Customers) + _ProductsGantCustomersReport_New.Products = _ocur.GetObject(_ProductsGantCustomersReport.Products) + _ProductsGantCustomersReport_New.QTT = _ocur.GetObject(_ProductsGantCustomersReport.QTT) + _ProductsGantCustomersReport_New.DateExecution = _ocur.GetObject(_ProductsGantCustomersReport.DateExecution) + End If + + + Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers.Oid=? AND Products.Oid=?", _ + _ProductsGant, _ProductsGantCustomersReport_New.Customers.Oid, _ProductsGantCustomersReport_New.Products.Oid)) + If _ProductsGantRows IsNot Nothing Then + Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar) _ + (CriteriaOperator.Parse("ProductsGantRows.Oid=? AND GetDate(FromDate)=? AND BarType=2", _ + _ProductsGantRows.Oid, _ProductsGantCustomersReport.DateExecution.Date)) + If _ProductsGantRowsBar Is Nothing Then + _ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar + .ProductsGantRows = _ProductsGantRows + .FromDate = _ProductsGantCustomersReport.DateExecution + If _ProductsGantRowsBar.ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then + .ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) + Else + If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then + .ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation) + ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then + .ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation) + Else + .ToDate = .FromDate.AddDays(1) 'temp + End If + End If + .BarType = eBarType.eReported + .Caption = _ProductsGantCustomersReport_New.QTT.ToString + End With + Else + With _ProductsGantRowsBar + .FromDate = _ProductsGantCustomersReport.DateExecution + If _ProductsGantRowsBar.ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then + .ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) + Else + If _ProductsGantRowsBar.ProductsGantRows.CalculatedRotation > 0 Then + .ToDate = .FromDate.AddDays(.ProductsGantRows.CalculatedRotation) + ElseIf _ProductsGantRowsBar.ProductsGantRows.ManualRotation > 0 Then + .ToDate = .FromDate.AddDays(.ProductsGantRows.ManualRotation) + Else + .ToDate = .FromDate.AddDays(1) 'temp + End If + End If + .Caption = _ProductsGantCustomersReport_New.QTT.ToString + End With + End If + End If + End If + Next + _ocur.CommitChanges() + + Dim _ProductsGantCustomersReport_DEL_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("QTT='0'")) + If _ProductsGantCustomersReport_DEL_Collection.Count > 0 Then + _ocur.Delete(_ProductsGantCustomersReport_DEL_Collection) + _ocur.CommitChanges() + End If + + + End Sub + Private Sub aProductsGant_OpenProducts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_OpenProducts.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + + If _GanttControl.Items.get_SelectedItem(0) > 0 Then + + Dim _ProductsGantRows_Oid As String = _GanttControl.Items.get_CellValue(_GanttControl.Items.get_SelectedItem(0), 0) + Dim _ProductsGantRows As ProductsGantRows = _onew.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("Oid=?", _ProductsGantRows_Oid)) + If _ProductsGantRows IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Products_DetailView", True, _ProductsGantRows.Products) + End If + End If + + End Sub + Private Sub GanttControl_Change(sender As Object, Item As Integer, ColIndex As Integer, ByRef NewValue As Object) + If _GantChange Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _IModelListView As IModelListView = Application.Model.Views.GetNode("ProductsGant_ProductsGantRows_ListView") + If _GanttControl IsNot Nothing And _IModelListView IsNot Nothing Then + + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + Dim _ProductsGantRows_Oid As String = _GanttControl.Items.get_CellValue(Item, 0) + Dim _ProductsGantRows As ProductsGantRows = _onew.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("Oid=?", _ProductsGantRows_Oid)) + Dim _ColumnID As String = "" + If _ProductsGantRows IsNot Nothing Then + + For Each _Column In _IModelListView.Columns + If _Column.Caption = _GanttControl.Columns(ColIndex).Caption Then + _ColumnID = _Column.Id + Exit For + End If + Next + + If Not String.IsNullOrEmpty(_ColumnID) Then + Select Case _ColumnID + Case "CalculatedRotation" + _ProductsGantRows.CalculatedRotation = CType(NewValue, Double) + Case "ManualRotation" + _ProductsGantRows.ManualRotation = CType(NewValue, Double) + End Select + + _onew.CommitChanges() + End If + End If + End If + End If + End Sub + Private Sub RefreshAction_Executing(sender As Object, e As CancelEventArgs) + If _GanttControl IsNot Nothing Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + With _GanttControl + .BeginUpdate() + .Chart.FirstVisibleDate = GetSQLTime(_ocur.Session).ToString("yyyy.MM.dd") + .EndUpdate() + End With + End If + End Sub + Private Sub GanttControl_LayoutChanged(sender As Object) + If _GantChange Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ProductsGantRowsViewItem As ListPropertyEditor = _DetailView.FindItem("ProductsGantRows") + Dim _IModelListView As IModelListView = Application.Model.Views.GetNode("ProductsGant_ProductsGantRows_ListView") + For Each _Column In _IModelListView.Columns + For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + If _Column.Id = _G2Column.Key Then + _Column.Width = _G2Column.Width + End If + Next + Next + Application.SaveModelChanges() + End If + End Sub + Private Sub SetItemsAndItemData(_Item As Long, _ProductsGantRows As ProductsGantRows) + For Each _G2Column As exontrol.EXG2ANTTLib.Column In _GanttControl.Columns + Select Case _G2Column.Key + Case "ProductGandRowsOid" + _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Oid.ToString) + Case "Customers" + _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Customers.FullName) + Case "Products" + _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.Products.ShortName) + Case "CalculatedRotation" + _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.CalculatedRotation) + Case "ManualRotation" + _GanttControl.Items.set_CellValue(_Item, _G2Column.Index, _ProductsGantRows.ManualRotation) + End Select + + Next + + For Each _ProductsGantRowsBar As ProductsGantRowsBar In _ProductsGantRows.ProductsGantRowsBar + Dim _Key As String = Guid.NewGuid.ToString + Select Case _ProductsGantRowsBar.BarType + Case eBarType.eAccounted + _GanttControl.Items.AddBar(CInt(_Item), "Accounted", _ProductsGantRowsBar.FromDate, _ProductsGantRowsBar.ToDate, _Key, _ProductsGantRowsBar.Caption) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanStartLink, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanBeLinked, False) + Case eBarType.eOrdered + _GanttControl.Items.AddBar(CInt(_Item), "Ordered", _ProductsGantRowsBar.FromDate, _ProductsGantRowsBar.ToDate, _Key, _ProductsGantRowsBar.Caption) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanStartLink, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanBeLinked, False) + Case eBarType.eReported + _GanttControl.Items.AddBar(CInt(_Item), "Reported", _ProductsGantRowsBar.FromDate, _ProductsGantRowsBar.ToDate, _Key, _ProductsGantRowsBar.Caption) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanStartLink, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanBeLinked, False) + Case eBarType.eOrderArrive + _GanttControl.Items.AddBar(CInt(_Item), "OrderArrive", _ProductsGantRowsBar.ToDate, _ProductsGantRowsBar.ToDate, _Key, _ProductsGantRowsBar.Caption) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMove, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanStartLink, False) + _GanttControl.Items.set_ItemBar(CInt(_Item), _Key, exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanBeLinked, False) + End Select + Next + End Sub + + Private Sub _GanttControl_SelectionChanged(sender As Object) + _FocusedItem = _GanttControl.Items.get_CellValue(_GanttControl.Items.FocusItem, 0).ToString + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.Designer.vb new file mode 100644 index 0000000..4cbf761 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class Products_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.vb new file mode 100644 index 0000000..bf52e2e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Product/Products_VC.vb @@ -0,0 +1,35 @@ +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 Products_VC + Inherits SISBusiness.Module.ProductsVC + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.Designer.vb new file mode 100644 index 0000000..ec430e3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.Designer.vb @@ -0,0 +1,97 @@ +Partial Class ProjectVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProjectG2anttPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProject_GenerateProjectQuestions = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProject_GenerateNewEvents = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aProjectAddRow + ' + ' + 'aProjectEditRow + ' + ' + 'aProjectDeleteRow + ' + ' + 'aProjectRefreshG2antt + ' + ' + 'aProjectG2anttPrint + ' + Me.aProjectG2anttPrint.Caption = "aProject G2antt Print" + Me.aProjectG2anttPrint.ConfirmationMessage = Nothing + Me.aProjectG2anttPrint.Id = "aProjectG2anttPrint" + Me.aProjectG2anttPrint.ImageName = Nothing + Me.aProjectG2anttPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aProjectG2anttPrint.Shortcut = Nothing + Me.aProjectG2anttPrint.Tag = Nothing + Me.aProjectG2anttPrint.TargetObjectsCriteria = Nothing + Me.aProjectG2anttPrint.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProjectG2anttPrint.TargetViewId = Nothing + Me.aProjectG2anttPrint.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProjectG2anttPrint.ToolTip = Nothing + Me.aProjectG2anttPrint.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProject_GenerateProjectQuestions + ' + Me.aProject_GenerateProjectQuestions.Caption = "aProject_GenerateProjectQuestions" + Me.aProject_GenerateProjectQuestions.ConfirmationMessage = Nothing + Me.aProject_GenerateProjectQuestions.Id = "aProject_GenerateProjectQuestions" + Me.aProject_GenerateProjectQuestions.ImageName = Nothing + Me.aProject_GenerateProjectQuestions.Shortcut = Nothing + Me.aProject_GenerateProjectQuestions.Tag = Nothing + Me.aProject_GenerateProjectQuestions.TargetObjectsCriteria = Nothing + Me.aProject_GenerateProjectQuestions.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProject_GenerateProjectQuestions.TargetViewId = Nothing + Me.aProject_GenerateProjectQuestions.ToolTip = Nothing + Me.aProject_GenerateProjectQuestions.TypeOfView = Nothing + ' + 'aProject_GenerateNewEvents + ' + Me.aProject_GenerateNewEvents.AcceptButtonCaption = Nothing + Me.aProject_GenerateNewEvents.CancelButtonCaption = Nothing + Me.aProject_GenerateNewEvents.Caption = "aProject_GenerateNewEvents" + Me.aProject_GenerateNewEvents.ConfirmationMessage = Nothing + Me.aProject_GenerateNewEvents.Id = "aProject_GenerateNewEvents" + Me.aProject_GenerateNewEvents.ImageName = Nothing + Me.aProject_GenerateNewEvents.Shortcut = Nothing + Me.aProject_GenerateNewEvents.Tag = Nothing + Me.aProject_GenerateNewEvents.TargetObjectsCriteria = Nothing + Me.aProject_GenerateNewEvents.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProject_GenerateNewEvents.TargetViewId = Nothing + Me.aProject_GenerateNewEvents.ToolTip = Nothing + Me.aProject_GenerateNewEvents.TypeOfView = Nothing + + End Sub + Friend WithEvents aProjectG2anttPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProject_GenerateProjectQuestions As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProject_GenerateNewEvents As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.resx new file mode 100644 index 0000000..c1a20d5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 642, 95 + + + 502, 95 + + + 348, 95 + + + 175, 95 + + + 17, 95 + + + 17, 56 + + + 175, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.vb new file mode 100644 index 0000000..bfc8224 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Project/ProjectVC.vb @@ -0,0 +1,558 @@ +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 exontrol.EXG2ANTTLib +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports System.Net.Mail +Imports System.Reflection +Imports DevExpress.ExpressApp.Utils + +Public Class ProjectVC + Inherits SISBusiness.Module.ProjectVC + Dim _GanttControl As exontrol.EXG2ANTTLib.exg2antt + Dim _CtrlDownYes As Boolean = False + + 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 = "ProjectHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _GanttContolViewItem As ViewItem = _DetailView.FindItem("G2antt") + If _GanttContolViewItem IsNot Nothing Then + AddHandler _GanttContolViewItem.ControlCreated, AddressOf GanttContolViewItem_ControlCreated + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executing, AddressOf RefreshAction_Executing + End If + End If + End Sub + Private Sub aProjectAddRow_Execute_1(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectAddRow.Execute + Dim _ProjectHeader As ProjectHeader = TryCast(View.SelectedObjects(0), ProjectHeader) + Dim _ProjectRows As ProjectRows + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + _ProjectRows = _onew.CreateObject(Of ProjectRows)() + _ProjectRows.ProjectHeader = _onew.GetObject(_ProjectHeader) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "ProjectRows_DetailView", True, _ProjectRows) + End Sub + Private Sub aProjectEditRow_Execute_1(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectEditRow.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectRows As ProjectRows + Dim _selecteditem As Long = 0 + Dim _Oid As String + If _GanttControl IsNot Nothing Then + _selecteditem = _GanttControl.Items.get_SelectedItem(0) + _Oid = _GanttControl.Items.get_CellValue(_selecteditem, 0) + _ProjectRows = _onew.FindObject(Of ProjectRows)(CriteriaOperator.Parse("Oid=?", _Oid)) + If _ProjectRows IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "ProjectRows_DetailView", True, _ProjectRows) + End If + End If + End Sub + + Private Sub aProjectRefreshG2antt_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectRefreshG2antt.Execute + '// Gantt diagram frissítése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(View.SelectedObjects(0), ProjectHeader) + + + If _ProjectHeader IsNot Nothing Then + Dim _ProjectRows_Collection As New XPCollection(Of ProjectRows)(_ocur.Session, CriteriaOperator.Parse("ProjectHeader=?", _ProjectHeader)) + If _ProjectRows_Collection.Count > 0 Then + _ProjectRows_Collection.Sorting.Add(New SortProperty("RowPos", DB.SortingDirection.Ascending)) + Dim _ProjectRows As ProjectRows + + If _GanttControl IsNot Nothing Then + _GanttControl.BeginUpdate() + _GanttControl.Items.RemoveAllItems() + For Each _ProjectRows In _ProjectRows_Collection + RecursiveLoadItems(_ProjectRows) + Next + _ProjectRows_Collection.Sorting.Add(New SortProperty("DateStart", DB.SortingDirection.Ascending)) + _GanttControl.Chart.FirstVisibleDate = _ProjectRows_Collection(0).DateStart + _GanttControl.Chart.StartPrintDate = _ProjectRows_Collection(0).DateStart + _ProjectRows_Collection.Sorting.Add(New SortProperty("DateEnd", DB.SortingDirection.Descending)) + _GanttControl.Chart.EndPrintDate = _ProjectRows_Collection(0).DateEnd + _GanttControl.Chart.set_SelectDate(GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session), True) + _GanttControl.EndUpdate() + End If + End If + End If + End Sub + Private Sub RecursiveLoadItems(_ProjectRows As ProjectRows) + Dim _item As Long + + _item = _GanttControl.Items.get_FindItem(_ProjectRows.Oid.ToString, 0) + If _item > 0 Then Exit Sub + + If _ProjectRows.ProjectRows Is Nothing Then + '//AddItem + _item = _GanttControl.Items.AddItem() + SetItemData(_item, _ProjectRows) + Else + '//InsertItem + _item = _GanttControl.Items.get_FindItem(_ProjectRows.ProjectRows.Oid.ToString, 0) + If _item > 0 Then + _item = _GanttControl.Items.InsertItem(_item, "") + SetItemData(_item, _ProjectRows) + Else + RecursiveLoadItems(_ProjectRows.ProjectRows) + _item = _GanttControl.Items.get_FindItem(_ProjectRows.ProjectRows.Oid.ToString, 0) + If _item > 0 Then + _item = _GanttControl.Items.InsertItem(_item, "") + SetItemData(_item, _ProjectRows) + End If + End If + End If + + End Sub + Private Sub SetItemData(_item As Long, _ProjectRows As ProjectRows) + If _ProjectRows.ProjectRows Is Nothing Then + _GanttControl.Items.set_CellValue(_item, 0, _ProjectRows.Oid.ToString) + _GanttControl.Items.set_CellValue(_item, 1, _ProjectRows.RowPos) + _GanttControl.Items.set_CellValue(_item, 2, "" & _ProjectRows.TaskName & "") + _GanttControl.Items.set_CellValueFormat(_item, 2, ValueFormatEnum.exHTML) + _GanttControl.Items.set_CellValue(_item, 3, _ProjectRows.DateStart) + _GanttControl.Items.set_CellValue(_item, 4, _ProjectRows.DateEnd) + _GanttControl.Items.set_CellValue(_item, 5, _ProjectRows.SumDay) + Else + _GanttControl.Items.set_CellValue(_item, 0, _ProjectRows.Oid.ToString) + _GanttControl.Items.set_CellValue(_item, 1, _ProjectRows.RowPos) + _GanttControl.Items.set_CellValue(_item, 2, _ProjectRows.TaskName) + _GanttControl.Items.set_CellValue(_item, 3, _ProjectRows.DateStart) + _GanttControl.Items.set_CellValue(_item, 4, _ProjectRows.DateEnd) + _GanttControl.Items.set_CellValue(_item, 5, _ProjectRows.SumDay) + End If + + Select Case _ProjectRows.ProjectBarType + Case eProjectBarType.eDeadline + _GanttControl.Items.AddBar(CInt(_item), "Deadline", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eMilestone + _GanttControl.Items.AddBar(CInt(_item), "Milestone", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eProgress + _GanttControl.Items.AddBar(CInt(_item), "Progress", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eProjectSummary + _GanttControl.Items.AddBar(CInt(_item), "ProjectSummary", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eSplit + _GanttControl.Items.AddBar(CInt(_item), "Split", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eSummary + _GanttControl.Items.AddBar(CInt(_item), "Summary", _ProjectRows.DateStart, _ProjectRows.DateEnd) + Case eProjectBarType.eTask + _GanttControl.Items.AddBar(CInt(_item), "Task%Progress", _ProjectRows.DateStart, _ProjectRows.DateEnd, "P1") + Select Case _ProjectRows.TaskDuty + Case eTaskDuty.eMyTask + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor, _ProjectRows.ProjectHeader.ProjectType.DutyColorMyTask_NP) + Case eTaskDuty.eNotSet + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor, _ProjectRows.ProjectHeader.ProjectType.DutyColorNotSet_NP) + Case eTaskDuty.ePartnerTask + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor, _ProjectRows.ProjectHeader.ProjectType.DutyColorPartnerTask_NP) + Case eTaskDuty.eSubcontractorTask + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor, _ProjectRows.ProjectHeader.ProjectType.DutyColorSubcontractorTask_NP) + End Select + + If _ProjectRows.PercentCompleted > 0 Then + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent, _ProjectRows.PercentCompleted / 100) + _GanttControl.Items.set_ItemBar(CInt(_item), "P1", exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption, True) + End If + End Select + End Sub + Private Sub GanttContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _columnindex As Long = 0 + _GanttControl = TryCast(_ItemControl, G2anttUserControl).Exg2antt + + AddHandler _GanttControl.MouseDownEvent, AddressOf GanttControl_MouseDownEvent + AddHandler _GanttControl.KeyDown, AddressOf GanttControl_KeyDown + AddHandler _GanttControl.KeyUp, AddressOf GanttControl_KeyUp + + If _GanttControl IsNot Nothing Then + '//Gantt inicializálása + _GanttControl.BeginUpdate() + _GanttControl.Columns.Clear() + _GanttControl.Columns.Add("Oid") + _GanttControl.Columns(0).Visible = False + _GanttControl.Columns.Add("Pos") + _GanttControl.Columns(1).Width = 10 + _GanttControl.Columns.Add("TaskName") + _GanttControl.Columns.Add("DateStart") + _GanttControl.Columns(3).Width = 20 + _GanttControl.Columns.Add("DateEnd") + _GanttControl.Columns(4).Width = 20 + _GanttControl.Columns.Add("Day") + _GanttControl.Columns(5).Width = 5 + + _GanttControl.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot + _GanttControl.TreeColumnIndex = 2 + _GanttControl.HeaderHeight = 36 + + _GanttControl.Columns(2).Editor.ExpandAll() + + _GanttControl.Chart.Bars.Add("Task%Progress") + + '_GanttControl.Chart.FirstVisibleDate = #5/30/2010# + _GanttControl.Chart.PaneWidthRight = 500 + _GanttControl.Chart.FirstWeekDay = 1 + _GanttControl.Chart.UnitWidth = 36 + + _GanttControl.Chart.LevelCount = 2 + '_GanttControl.Chart.get_Level(0).Label = "<%loc_mmmm%> <%yyyy%>
<%loc_sdate%> <%ww%> " + _GanttControl.Chart.get_Level(0).ToolTip = _GanttControl.Chart.get_Level(0).Label + _GanttControl.Chart.get_Level(0).Unit = 256 + + '_GanttControl.Chart.get_Level(1).Label = "<%loc_ddd%>
<%d%>" + _GanttControl.Chart.get_Level(1).ToolTip = _GanttControl.Chart.get_Level(1).Label + + '_GanttControl.Chart.ToolTip = "<%loc_ldate%>" + + + _GanttControl.Chart.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll + _GanttControl.Chart.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom + '_GanttControl.Chart.OverviewZoomCaption = "½Year|¼Year|Month|Third|Week|Day|Hour" + _GanttControl.SingleSel = False + + _GanttControl.EndUpdate() + + Frame.GetController(Of ProjectVC).aProjectRefreshG2antt.DoExecute() + End If + End Sub + Private Sub RefreshAction_Executing(sender As Object, e As CancelEventArgs) + Frame.GetController(Of ProjectVC).aProjectRefreshG2antt.DoExecute() + End Sub + Private Sub aProjectG2anttPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectG2anttPrint.Execute + With New exontrol.EXPRINTLib.exprint() + .Options = "ColumnsOnEveryPage=1" + .PrintExt = _GanttControl + .Preview() + End With + End Sub + Private Sub GanttControl_KeyDown(sender As Object, ByRef KeyCode As Short, Shift As Short) + Try + Select Case KeyCode + Case 17 + If Not _CtrlDownYes Then + _CtrlDownYes = True + End If + End Select + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub GanttControl_KeyUp(sender As Object, ByRef KeyCode As Short, Shift As Short) + Try + Select Case KeyCode + Case 17 + If _CtrlDownYes Then + _CtrlDownYes = False + End If + End Select + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub GanttControl_MouseDownEvent(sender As Object, Button As Short, Shift As Short, X As Integer, Y As Integer) + Try + If _CtrlDownYes Then + Dim _Item As Long = _GanttControl.get_ItemFromPoint(X, Y) + _GanttControl.Items.set_SelectableItem(_Item, True) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProject_GenerateProjectQuestions_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProject_GenerateProjectQuestions.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ProjectHeader As ProjectHeader = TryCast(View.SelectedObjects(0), ProjectHeader) + If _ProjectHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _ProjectQuestion_Collection As New XPCollection(Of ProjectQuestion)(_onew.Session, CriteriaOperator.Parse("ProjectHeader=?", _onew.GetObjectByKey(Of ProjectHeader)(_ProjectHeader.Oid))) + If _ProjectQuestion_Collection.Count > 0 Then + _onew.Delete(_ProjectQuestion_Collection) + _onew.CommitChanges() + End If + _ProjectQuestion_Collection.Dispose() + + Dim _User_Collection As New ArrayList + Dim _HRPerson_Collection As New ArrayList + + UsersUppload(_User_Collection, _HRPerson_Collection, _ProjectHeader) + + '---=== ProjectQuestions ===--- + For Each _User As User In _User_Collection + Dim _Question As Question = _onew.FindObject(Of Question)(CriteriaOperator.Parse("AliasUser=? AND DocumentNumber=?", _onew.GetObjectByKey(Of User)(_User.Oid), _ProjectHeader.DocumentNumber)) + If _Question Is Nothing Then + _Question = New Question(_onew.Session) + With _Question + .QuestionStatus = eQuestionStatus.eActive + .QuestionClosed = eQuestionClosed.eOpen + .IssueType = eIssueType.eQuestion + .DocumentNumber = _ProjectHeader.DocumentNumber + .Subject = String.Format("{0} számú project.", _ProjectHeader.DocumentNumber) + .Description = String.Format("{0} számú project.", _ProjectHeader.DocumentNumber) + .User = _onew.GetObjectByKey(Of User)(_User.Oid) + .UserCreated = _onew.GetObjectByKey(Of User)(_User.Oid) + .AliasUser = _onew.GetObjectByKey(Of User)(_User.Oid) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + If _Contacts IsNot Nothing Then .Customers = _onew.GetObjectByKey(Of Customers)(_Contacts.Customers.Oid) + End With + End If + Dim _Events As New Events(_onew.Session) + With _Events + .Question = _Question + .QuestionStatus = eQuestionStatus.eActive + .EventDirection = eEventDirection.eOut + .Description = String.Format("{0} szmú projekt megnyitása.", _ProjectHeader.DocumentNumber) + End With + Dim _ProjectQuestion As New ProjectQuestion(_onew.Session) + With _ProjectQuestion + .ProjectHeader = _onew.GetObjectByKey(Of ProjectHeader)(_ProjectHeader.Oid) + .Question = _Question + End With + + SendEmail(_Events, _User, _ProjectHeader) + Next + + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProject_GenerateNewEvents_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProject_GenerateNewEvents.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectNewEvents As New ProjectNewEvents(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ProjectNewEvents_DetailView", True, _ProjectNewEvents) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProject_GenerateNewEvents_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProject_GenerateNewEvents.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(View.SelectedObjects(0), ProjectHeader) + + Dim _User_Collection As New ArrayList + Dim _HRPerson_Collection As New ArrayList + Dim _ProjectRows_Collection As New ArrayList + + For _ik = 0 To _GanttControl.Items.SelectCount - 1 + Dim _index As Long = _GanttControl.Items.get_SelectedItem(_ik) + Dim _Oid As String = _GanttControl.Items.get_CellValue(_index, 0) + Dim _ProjectRows As ProjectRows = _ocur.FindObject(Of ProjectRows)(CriteriaOperator.Parse("Oid=?", _Oid)) + If _ProjectRows IsNot Nothing Then + If _ProjectRows_Collection.Count = 0 Then + _ProjectRows_Collection.Add(_ProjectRows) + Else + If Not _ProjectRows_Collection.Contains(_ProjectRows) Then _ProjectRows_Collection.Add(_ProjectRows) + End If + End If + Next + + UsersUppload_Selected(_User_Collection, _HRPerson_Collection, _ProjectRows_Collection, _ProjectHeader) + + For Each _User As User In _User_Collection + Dim _Question As Question = _ocur.FindObject(Of Question)(CriteriaOperator.Parse("DocumentNumber=? And AliasUser=?", _ProjectHeader.DocumentNumber, _User)) + If _Question IsNot Nothing Then + Dim _Events As New Events(_ocur.Session) + With _Events + .Question = _Question + .Description = TryCast(e.PopupWindow.View.SelectedObjects(0), ProjectNewEvents).Description + .EventDirection = eEventDirection.eOut + .QuestionStatus = eQuestionStatus.eActive + End With + + SendEmail(_Events, _User, _ProjectHeader) + End If + Next + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") + + For Each _User As User In _HRPerson_Collection + If Not String.IsNullOrEmpty(_User.Email) Then + Try + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_User.Email) + _MailMessage.Subject = String.Format("{0} számú projekt", _ProjectHeader.DocumentNumber) + _MailMessage.IsBodyHtml = True + + _MailMessage.Body = TryCast(e.PopupWindow.View.SelectedObjects(0), ProjectNewEvents).Description + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + Catch ex As Exception + Dim _onewEr As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _onewEr.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _onewEr.CommitChanges() + End Try + End If + Next + Catch ex As Exception + Dim _onewEr As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _onewEr.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _onewEr.CommitChanges() + End Try + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub UsersUppload(_User_Collection As ArrayList, _HRPerson_Collection As ArrayList, _ProjectHeader As ProjectHeader) + For Each _ProjectContacts As ProjectContacts In _ProjectHeader.ProjectContacts + If _User_Collection.Count = 0 Then + _User_Collection.Add(_ProjectContacts.Contacts.User) + Else + If Not _User_Collection.Contains(_ProjectContacts.Contacts.User) Then _User_Collection.Add(_ProjectContacts.Contacts.User) + End If + Next + + For Each _ProjectHRPerson As ProjectHRPerson In _ProjectHeader.ProjectHRPerson + If _HRPerson_Collection.Count = 0 Then + _HRPerson_Collection.Add(_ProjectHRPerson.HRPerson.User) + Else + If Not _HRPerson_Collection.Contains(_ProjectHRPerson.HRPerson.User) Then _HRPerson_Collection.Add(_ProjectHRPerson.HRPerson.User) + End If + Next + + '---=== ProjectHeader.ProjectRows collections ===--- + For Each _ProjectRows As ProjectRows In _ProjectHeader.ProjectRows + For Each _ProjectRowsContacts As ProjectRowsContacts In _ProjectRows.ProjectRowsContacts + If _User_Collection.Count = 0 Then + _User_Collection.Add(_ProjectRowsContacts.Contacts.User) + Else + If Not _User_Collection.Contains(_ProjectRowsContacts.Contacts.User) Then _User_Collection.Add(_ProjectRowsContacts.Contacts.User) + End If + Next + + For Each _ProjectRowsHRPerson As ProjectRowsHRPerson In _ProjectRows.ProjectRowsHRPerson + If _HRPerson_Collection.Count = 0 Then + _HRPerson_Collection.Add(_ProjectRowsHRPerson.HRPerson.User) + Else + If Not _HRPerson_Collection.Contains(_ProjectRowsHRPerson.HRPerson.User) Then _HRPerson_Collection.Add(_ProjectRowsHRPerson.HRPerson.User) + End If + Next + Next + End Sub + Private Sub UsersUppload_Selected(_User_Collection As ArrayList, _HRPerson_Collection As ArrayList, _ProjectRows_Collection As ArrayList, _ProjectHeader As ProjectHeader) + For Each _ProjectContacts As ProjectContacts In _ProjectHeader.ProjectContacts + If _User_Collection.Count = 0 Then + _User_Collection.Add(_ProjectContacts.Contacts.User) + Else + If Not _User_Collection.Contains(_ProjectContacts.Contacts.User) Then _User_Collection.Add(_ProjectContacts.Contacts.User) + End If + Next + + For Each _ProjectHRPerson As ProjectHRPerson In _ProjectHeader.ProjectHRPerson + If _HRPerson_Collection.Count = 0 Then + _HRPerson_Collection.Add(_ProjectHRPerson.HRPerson.User) + Else + If Not _HRPerson_Collection.Contains(_ProjectHRPerson.HRPerson.User) Then _HRPerson_Collection.Add(_ProjectHRPerson.HRPerson.User) + End If + + Next + + For Each _ProjectRows As ProjectRows In _ProjectRows_Collection + For Each _ProjectRowsContacts As ProjectRowsContacts In _ProjectRows.ProjectRowsContacts + If _User_Collection.Count = 0 Then + _User_Collection.Add(_ProjectRowsContacts.Contacts.User) + Else + If Not _User_Collection.Contains(_ProjectRowsContacts.Contacts.User) Then _User_Collection.Add(_ProjectRowsContacts.Contacts.User) + End If + Next + + For Each _ProjectRowsHRPerson As ProjectRowsHRPerson In _ProjectRows.ProjectRowsHRPerson + If _HRPerson_Collection.Count = 0 Then + _HRPerson_Collection.Add(_ProjectRowsHRPerson.HRPerson.User) + Else + If Not _HRPerson_Collection.Contains(_ProjectRowsHRPerson.HRPerson.User) Then _HRPerson_Collection.Add(_ProjectRowsHRPerson.HRPerson.User) + End If + Next + Next + End Sub + Private Sub SendEmail(_Events As [Module].Events, _User As User, _ProjectHeader As ProjectHeader) + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _WebParameters As WebParameters = _onew.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") + + If Not String.IsNullOrEmpty(_User.Email) Then + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_User.Email) + _MailMessage.Subject = String.Format("{0} számú projekt", _ProjectHeader.DocumentNumber) + _MailMessage.IsBodyHtml = True + + _MailMessage.Body = _Events.Description + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + End If + Catch ex As Exception + Dim _onewEr As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _onewEr.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _onewEr.CommitChanges() + End Try + End Sub + + Private Sub aProjectDeleteRow_Execute_1(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectDeleteRow.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectRows As ProjectRows + Dim _selecteditem As Long = 0 + Dim _Oid As String + If _GanttControl IsNot Nothing Then + _selecteditem = _GanttControl.Items.get_SelectedItem(0) + _Oid = _GanttControl.Items.get_CellValue(_selecteditem, 0) + _ProjectRows = _onew.FindObject(Of ProjectRows)(CriteriaOperator.Parse("Oid=?", _Oid)) + If _ProjectRows IsNot Nothing Then + _onew.Delete(_ProjectRows) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.Designer.vb new file mode 100644 index 0000000..302c681 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ServiceFinderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.vb new file mode 100644 index 0000000..26d2dd9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Services/ServiceFinderVC.vb @@ -0,0 +1,126 @@ +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.Win.Editors +Imports DevExpress.XtraGrid +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraGrid.Views.Base +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.ExpressApp.Editors +Public Class ServiceFinderVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor_Selected As GridListEditor + Private _GridListEditor_Select As GridListEditor + Private gridView As ColumnView + Private currentView As ListView + Private falseCriteria As CriteriaOperator = CriteriaOperator.Parse("1=0") + Private Delegate Sub EditCellDelegate() + 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 = "ServiceFinder_ServiceSelect_ListView" Then + currentView = CType(View, ListView) + AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "ServiceFinder_ServiceSelected_ListView" Then + _GridListEditor_Selected = TryCast(View.Editor, GridListEditor) + + If _GridListEditor_Selected IsNot Nothing Then + AddHandler _GridListEditor_Selected.GridView.CellValueChanged, AddressOf ServiceFinder_ServiceSelected_ListView_CellValueChanged + End If + + + End If + If View.Id = "ServiceFinder_ServiceSelect_ListView" Then + _GridListEditor_Select = TryCast(TryCast(View, ListView).Editor, GridListEditor) + + For Each column As DevExpress.XtraGrid.Columns.GridColumn In _GridListEditor_Select.GridView.Columns + column.OptionsFilter.ImmediateUpdateAutoFilter = False + If column.FieldName = "Services.ShortName" Then + column.OptionsFilter.AutoFilterCondition = Columns.AutoFilterCondition.Contains + End If + Next + If _GridListEditor_Select IsNot Nothing Then + AddHandler _GridListEditor_Select.ColumnCreated, AddressOf Services_ListView_ColumnCreated + AddHandler _GridListEditor_Select.GridView.ColumnFilterChanged, AddressOf GridView_ColumnFilterChanged + AddHandler _GridListEditor_Select.GridView.CellValueChanged, AddressOf ServiceFinder_ServiceSelect_ListView_CellValueChanged + AddHandler _GridListEditor_Select.GridView.RowClick, AddressOf ServiceFinder_ServiceSelect_RowClick + End If + End If + + End Sub + Private Sub AutoFilterRowController_ControlsCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim grid As GridControl = TryCast(currentView.Control, GridControl) + gridView = TryCast(grid.FocusedView, ColumnView) + If gridView.ActiveFilter.IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + End If + AddHandler gridView.ActiveFilter.Changed, AddressOf ActiveFilter_Changed + End Sub + Private Sub ActiveFilter_Changed(ByVal sender As Object, ByVal e As EventArgs) + If (CType(sender, ViewFilter)).IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + Else + If currentView.CollectionSource.Criteria.ContainsKey("FalseCriteria") Then + currentView.CollectionSource.Criteria.Remove("FalseCriteria") + End If + End If + End Sub + + Private Sub ServiceFinder_ServiceSelected_ListView_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) + + End Sub + Private Sub Services_ListView_ColumnCreated(sender As Object, e As ColumnCreatedEventArgs) + e.Column.OptionsFilter.ImmediateUpdateAutoFilter = False + End Sub + Private Sub Timer_Elapsed() + _GridListEditor_Select.GridView.GridControl.Invoke(New EditCellDelegate(AddressOf Edit_QTT_Will_Cell)) + End Sub + Private Sub Edit_QTT_Will_Cell() + 'e.KeyCode = Windows.Forms.Keys.Enter And + If _GridListEditor_Select.GridView.FocusedRowHandle = GridControl.AutoFilterRowHandle And _GridListEditor_Select.GridView.RowCount >= 1 Then + '_GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.GetVisibleColumn(_GridListEditor_Select.FindColumn("QTT_Will").VisibleIndex) + _GridListEditor_Select.GridView.FocusedColumn = _GridListEditor_Select.GridView.Columns("QTT_Will") + _GridListEditor_Select.GridView.HideEditor() + _GridListEditor_Select.GridView.FocusedRowHandle = _GridListEditor_Select.GridView.GetVisibleRowHandle(0) + _GridListEditor_Select.GridView.ShowEditor() + If _GridListEditor_Select.GridView.ActiveEditor IsNot Nothing Then + _GridListEditor_Select.GridView.ActiveEditor.Focus() + End If + End If + End Sub + Private Sub GridView_ColumnFilterChanged(sender As Object, e As EventArgs) + Dim timer As System.Timers.Timer = New System.Timers.Timer(200) + AddHandler timer.Elapsed, AddressOf Timer_Elapsed + timer.Enabled = True + timer.AutoReset = False + End Sub + + Private Sub ServiceFinder_ServiceSelect_ListView_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) + + End Sub + + Private Sub ServiceFinder_ServiceSelect_RowClick(sender As Object, e As Views.Grid.RowClickEventArgs) + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb new file mode 100644 index 0000000..01e7abe --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb @@ -0,0 +1,70 @@ +Partial Class InventoryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInventoryParameters_CreateProductsListInSpread = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInventoryHeader_UpdateInventorySpread = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInventoryHeader_LoadSpreadFromParameters + ' + ' + 'aInventoryParameters_CreateProductsListInSpread + ' + Me.aInventoryParameters_CreateProductsListInSpread.Caption = "aInventoryParameters_CreateProductsListInSpread" + Me.aInventoryParameters_CreateProductsListInSpread.ConfirmationMessage = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.Id = "aInventoryParameters_CreateProductsListInSpread" + Me.aInventoryParameters_CreateProductsListInSpread.ImageName = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.Shortcut = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.Tag = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.TargetObjectsCriteria = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.TargetObjectType = GetType(SISBusiness.[Module].InventoryParameters) + Me.aInventoryParameters_CreateProductsListInSpread.TargetViewId = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aInventoryParameters_CreateProductsListInSpread.ToolTip = Nothing + Me.aInventoryParameters_CreateProductsListInSpread.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aInventoryHeader_UpdateInventorySpread + ' + Me.aInventoryHeader_UpdateInventorySpread.Caption = "aInventoryHeader_UpdateInventorySpread" + Me.aInventoryHeader_UpdateInventorySpread.Category = "aInventoryHeader_UpdateInventorySpread" + Me.aInventoryHeader_UpdateInventorySpread.ConfirmationMessage = Nothing + Me.aInventoryHeader_UpdateInventorySpread.Id = "aInventoryHeader_UpdateInventorySpread" + Me.aInventoryHeader_UpdateInventorySpread.ImageName = Nothing + Me.aInventoryHeader_UpdateInventorySpread.Shortcut = Nothing + Me.aInventoryHeader_UpdateInventorySpread.Tag = Nothing + Me.aInventoryHeader_UpdateInventorySpread.TargetObjectsCriteria = Nothing + Me.aInventoryHeader_UpdateInventorySpread.TargetObjectType = GetType(SISBusiness.[Module].InventoryHeader) + Me.aInventoryHeader_UpdateInventorySpread.TargetViewId = Nothing + Me.aInventoryHeader_UpdateInventorySpread.ToolTip = Nothing + Me.aInventoryHeader_UpdateInventorySpread.TypeOfView = Nothing + + End Sub + Friend WithEvents aInventoryParameters_CreateProductsListInSpread As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInventoryHeader_UpdateInventorySpread As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx new file mode 100644 index 0000000..65abde2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 342, 95 + + + 17, 95 + + + 17, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb new file mode 100644 index 0000000..97129c8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb @@ -0,0 +1,381 @@ +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 FarPoint.Win.Spread +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Public Class InventoryVC + Inherits SISBusiness.Module.InventoryVC + + Private _FpSpread As FpSpread + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "InventoryHeader_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + AddHandler _InventoryHeader.Changed, AddressOf InventoryHeader_DetailView_SetWorksheetTemplateXLS_Changed + + End If + If View.Id = "InventoryParameters_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "InventoryHeader_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + End If + If View.Id = "InventoryParameters_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf InventoryHeader_DetailView_SaveAction_Executing + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "InventoryHeader_DetailView" Or View.Id = "InventoryParameters_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + If _DetailView.GetItems(Of ExcelPropertyEditor).Count > 0 Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + End If + End Sub + Private Sub InventoryHeader_DetailView_SaveAction_Executing(sender As Object, e As CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "InSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View.Id = "InventoryHeader_DetailView" Then + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + If _InventoryHeader IsNot Nothing Then + If _FpSpread IsNot Nothing Then + If Not String.IsNullOrEmpty(_InventoryHeader.DocumentNumber) Then + _FpSpread.Save(_StreamFile, False) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _InventoryHeader.ExcelFile = New FileData(_ocur.Session) + _InventoryHeader.ExcelFile.LoadFromStream("Excel worksheet.xls", _StreamFile2) + _InventoryHeader.Save() + _StreamFile2.Close() + End If + End If + End If + End If + If View.Id = "InventoryParameters_DetailView" Then + Dim _InventoryParameters As InventoryParameters = TryCast(View.SelectedObjects(0), InventoryParameters) + If _InventoryParameters IsNot Nothing Then + If _FpSpread IsNot Nothing Then + _FpSpread.Save(_StreamFile, False) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _InventoryParameters.ExcelFile = New FileData(_ocur.Session) + _InventoryParameters.ExcelFile.LoadFromStream("Excel worksheet.xls", _StreamFile2) + _InventoryParameters.Save() + _StreamFile2.Close() + End If + End If + End If + + End Sub + Private Sub ExcelControlViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + Dim _FileName As String = Path.GetTempPath & "OutSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + If View.Id = "InventoryHeader_DetailView" Then + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If Not _ocur.Session.IsNewObject(_InventoryHeader) Then + If _InventoryHeader IsNot Nothing Then + If _InventoryHeader.ExcelFile IsNot Nothing Then + _InventoryHeader.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + End If + End If + End If + End If + If View.Id = "InventoryParameters_DetailView" Then + Dim _InventoryParameters As InventoryParameters = TryCast(View.SelectedObjects(0), InventoryParameters) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If Not _ocur.Session.IsNewObject(_InventoryParameters) Then + If _InventoryParameters IsNot Nothing Then + If _InventoryParameters.ExcelFile IsNot Nothing Then + _InventoryParameters.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + End If + End If + End If + End If + End Sub + Private Sub InventoryHeader_DetailView_SetWorksheetTemplateXLS_Changed(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + + If _InventoryHeader.ExcelFile Is Nothing Then + If _InventoryHeader.InventoryParameters.ExcelFile IsNot Nothing Then + + _InventoryHeader.ExcelFile = _InventoryHeader.InventoryParameters.ExcelFile + If _InventoryHeader.ExcelFile IsNot Nothing Then + + Dim _FileName As String = Path.GetTempPath & "Temp.xls" + Dim _StreamFile As FileStream = Nothing + _StreamFile = File.Create(_FileName) + + _InventoryHeader.ExcelFile.SaveToStream(_StreamFile) + If TryCast(View, DetailView).GetItems(Of ExcelPropertyEditor)(0).ExcelUserControl IsNot Nothing Then + _FpSpread = TryCast(View, DetailView).GetItems(Of ExcelPropertyEditor)(0).ExcelUserControl.FpSpreadControl + _StreamFile.Close() + _FpSpread.OpenExcel(_FileName) + End If + End If + End If + End If + End Sub + Private Sub aInventoryParameters_CreateProductsListInSpread_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryParameters_CreateProductsListInSpread.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Products_Collection As New XPCollection(Of Products)(_ocur.Session, CriteriaOperator.Parse("DangerClass<>0")) + _Products_Collection.Sorting.Add(New SortProperty("ShortName", DB.SortingDirection.Ascending)) + + If _FpSpread IsNot Nothing Then + _FpSpread.Reset() + + _FpSpread.ActiveSheet.ColumnCount = 11 + _FpSpread.ActiveSheet.RowCount = 4 + _Products_Collection.Count + _FpSpread.AllowDragFill = True + _FpSpread.AllowColumnMove = True + _FpSpread.AllowRowMove = True + + LoadXLSHeader() + + _FpSpread.ActiveSheet.Columns(1).AllowAutoFilter = True + '_FpSpread.ActiveSheet.GroupBarInfo.Visible = True + '_FpSpread.ActiveSheet.AllowGroup = True + + Dim _RowIndex As Integer = 4 '5. sor + For Each _Products As Products In _Products_Collection + _FpSpread.ActiveSheet.Cells(_RowIndex, 0).Text = _Products.Oid.ToString + _FpSpread.ActiveSheet.Cells(_RowIndex, 1).Text = _Products.ShortName.Replace(vbNewLine, " ") + + _RowIndex += 1 + Next + + _FpSpread.Refresh() + End If + End Sub + Private Sub LoadXLSHeader() + _FpSpread.ActiveSheet.AddSpanCell(0, 0, 1, 11) + With _FpSpread.ActiveSheet.Cells(0, 0) + .Text = "A/2 adatlap: ZEMADATOK-VESZLYES ANYAGOK" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Center + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 0, 2, 1) + With _FpSpread.ActiveSheet.Cells(1, 0) + .Text = "Termk OID" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + .Row.Height = 40 + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 1, 2, 1) + With _FpSpread.ActiveSheet.Cells(1, 1) + .Text = "A nem nevestett veszlyes anyag megnevezse (az 1. mellklet 2. tblzat alapjn)" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 2, 1, 4) + With _FpSpread.ActiveSheet.Cells(1, 2) + .Text = "Nemzetkzileg elfogadott egyrtelm azonostsa (CAS-szm, szksg szerint IUPAC nv, kereskedelmi megnevezs, empirikus formula)" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 6, 1, 3) + With _FpSpread.ActiveSheet.Cells(1, 6) + .Text = "A veszlyes anyag 1. mellklet 2. tblzat 1. oszlopa szerinti veszlyessgi osztlyba sorolsa az R mondatok s az ADR szerinti osztlyozs feltntetsvel" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 9, 2, 1) + With _FpSpread.ActiveSheet.Cells(1, 9) + .Text = "Jelen lv maximlis mennyisge (tonna)" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + _FpSpread.ActiveSheet.AddSpanCell(1, 10, 2, 1) + With _FpSpread.ActiveSheet.Cells(1, 10) + .Text = "A besorolsnl figyelembe vett kszbmennyisg (tonna)" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + With _FpSpread.ActiveSheet.Cells(2, 2) + .Text = "CAS szm" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + .Row.Height = 40 + End With + With _FpSpread.ActiveSheet.Cells(2, 3) + .Text = "IUPAC nv" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + With _FpSpread.ActiveSheet.Cells(2, 4) + .Text = "kereskedelmi megnevezs" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + With _FpSpread.ActiveSheet.Cells(2, 5) + .Text = "empirikus formula" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + With _FpSpread.ActiveSheet.Cells(2, 6) + .Text = "R mondatok" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + With _FpSpread.ActiveSheet.Cells(2, 7) + .Text = "ADR osztly" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + With _FpSpread.ActiveSheet.Cells(2, 8) + .Text = "Az 1. mellklet 2. tblzat 1. oszlopa szerinti osztlyba sorols" + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Justify + End With + + For ik = 0 To 5 + With _FpSpread.ActiveSheet.Cells(3, ik) + .Text = ik.ToString + "." + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Center + End With + Next + + For ik = 9 To 10 + With _FpSpread.ActiveSheet.Cells(3, ik) + .Text = (ik - 2).ToString + "." + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Center + End With + Next + + _FpSpread.ActiveSheet.AddSpanCell(3, 6, 1, 3) + With _FpSpread.ActiveSheet.Cells(3, 6) + .Text = "6." + .HorizontalAlignment = CellHorizontalAlignment.Center + .VerticalAlignment = CellVerticalAlignment.Center + End With + + End Sub + Private Sub aInventoryHeader_LoadSpreadFromParameters_Execute_1(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_LoadSpreadFromParameters.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + + If _InventoryHeader IsNot Nothing Then + If _InventoryHeader.InventoryParameters IsNot Nothing Then + If _InventoryHeader.InventoryParameters.ExcelFile IsNot Nothing Then + _InventoryHeader.ExcelFile = _InventoryHeader.InventoryParameters.ExcelFile + End If + End If + End If + + _ocur.CommitChanges() + + Dim _FileName As String = Path.GetTempPath & "InSpread.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + _InventoryHeader.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + + _FpSpread.Open(_FileName) + _FpSpread.Refresh() + + End Sub + Private Sub aInventoryHeader_UpdateInventorySpread_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_UpdateInventorySpread.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + + If _FpSpread IsNot Nothing Then + _WaitFormClass.Initwork(1, 1, _FpSpread.ActiveSheet.RowCount - 1) + For ik = 4 To _FpSpread.ActiveSheet.RowCount - 1 + _WaitFormClass.DoWork() + Dim _InventorySC As InventorySC = _ocur.FindObject(Of InventorySC)(CriteriaOperator.Parse("InventoryHeader=? AND Products.Oid=?", _InventoryHeader, _FpSpread.ActiveSheet.Cells(ik, 0).Text)) + If _InventorySC IsNot Nothing Then + Select Case UCase(_InventorySC.Products.Units.ShortName) + Case "KG" + _FpSpread.ActiveSheet.Cells(ik, 9).Value = Format(_InventorySC.QTT / 1000, "#,##0.0000") + Case "T" + _FpSpread.ActiveSheet.Cells(ik, 9).Value = Format(_InventorySC.QTT, "#,##0.0000") + Case "L", "I" + _FpSpread.ActiveSheet.Cells(ik, 9).Value = Format(_InventorySC.QTT / 1000, "#,##0.0000") + Case Else + _FpSpread.ActiveSheet.Cells(ik, 9).Value = Format(0, "#,##0.0000") + End Select + End If + Next + _FpSpread.Refresh() + _Waitformclass.FinalWork() + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.Designer.vb new file mode 100644 index 0000000..0e424e3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InventoryVC_ListView + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.vb new file mode 100644 index 0000000..f119cd4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/InventoryVC_ListView.vb @@ -0,0 +1,62 @@ +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.Win.Editors + +Public Class InventoryVC_ListView + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "InventoryHeader_InventorySC_ListView" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf InventoryHeader_InventorySC_ListView_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT_Found" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End If + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "InventoryHeader_InventorySC_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf InventoryHeader_InventorySC_ListView_CellValueChanged + End If + End If + End Sub + + Private Sub InventoryHeader_InventorySC_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.CommitChanges() + parentView.ObjectSpace.Refresh() + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb new file mode 100644 index 0000000..7249abc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageMoveEventsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb new file mode 100644 index 0000000..254ea2a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb @@ -0,0 +1,48 @@ +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 StorageMoveEventsVC + Inherits SISBusiness.Module.StorageMoveEventsVC + Dim _WaitFormClass As New WaitFormClass + 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. + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + 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. + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + MyBase.OnDeactivated() + End Sub + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.Designer.vb new file mode 100644 index 0000000..dfded9c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageComputedVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.vb new file mode 100644 index 0000000..ef3ad36 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageComputedVC.vb @@ -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 + +Public Class StorageComputedVC + Inherits SISBusiness.Module.StorageComputedVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.Designer.vb new file mode 100644 index 0000000..dbe3612 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageDateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.vb new file mode 100644 index 0000000..78eb311 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageDateVC.vb @@ -0,0 +1,36 @@ +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 StorageDateVC + Inherits SISBusiness.Module.StorageDateVC + Private _WaitFormClass As WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + _WaitFormClass = New WaitFormClass + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + MyBase.OnDeactivated() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.Designer.vb new file mode 100644 index 0000000..136bc3b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageIn_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.vb new file mode 100644 index 0000000..841003f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageIn_VC.vb @@ -0,0 +1,146 @@ +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.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.XtraGrid.Columns + +Public Class StorageIn_VC + Inherits DevExpress.ExpressApp.ViewController + + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "StorageInHeader_DetailView" Then + AddHandler View.ControlsCreated, AddressOf StorageInHeader_DetailView_ControlCreated + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf StorageInHeader_StorageInRows_ListView_CellValueChanged + End If + End If + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "StorageInRows_ListView" Or _ + View.Id = "StorageInHeader_StorageInRows_ListView" Then + _GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf StorageInHeader_StorageInRows_ListView_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT_Will" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End If + End If + End Sub + + Private Sub StorageInHeader_StorageInRows_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + If TryCast(e.Column, GridColumn).FieldName = "QTT_Will" Then + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Try + Dim parentView As View = nestedFrame.View + Dim _uow As New UnitOfWork(TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + Dim _StorageInRows As StorageInRows = _uow.GetObjectByKey(Of StorageInRows)(TryCast(View.SelectedObjects(0), StorageInRows).Oid) + If _StorageInRows.StorageInHeader.IsStorno = False Then + Dim _StorageComputed As StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _StorageInRows.StorageInHeader.Storage, _StorageInRows.Products)) + Dim _FullResource As Double = _StorageComputed.QTTFree + _StorageComputed.QTTReservedIn + Dim _StorageInRows_QTT_Will_Sum As Double = 0 + _StorageInRows.QTT_Will = e.Value + _StorageInRows.Save() + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, TryCast(_uow, Session), CriteriaOperator.Parse("Products=? AND StorageInHeader.Storage=?", _StorageInRows.Products, _StorageInRows.StorageInHeader.Storage)) + For Each _StorageInRows_Collection_Item As StorageInRows In _StorageInRows_Collection + _StorageInRows_QTT_Will_Sum += _StorageInRows_Collection_Item.QTT_Will + Next + _StorageComputed.QTTReservedIn = _StorageInRows_QTT_Will_Sum + + _uow.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Active Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + End If + Catch exp As Exception + MsgBox(exp.Message) + End Try + End If + End If + End Sub + + Private Sub StorageInHeader_DetailView_ControlCreated(sender As Object, e As EventArgs) + If View.Id = "StorageInHeader_DetailView" Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + + AddHandler _row_Products_Editor.ControlValueChanged, AddressOf _row_Products_Editor_ControlValueChanged + End If + End Sub + + Private Sub _row_Products_Editor_ControlValueChanged(sender As Object, e As EventArgs) + Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor + _row_QTT = TryCast(View, DetailView).FindItem("row_QTT_WILL") + If _row_QTT IsNot Nothing Then + Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products") + If _row_Products_Editor IsNot Nothing Then + Dim _Products As SISBusiness.Module.Products = TryCast(_row_Products_Editor.ControlValue, SISBusiness.Module.Products) + If _Products IsNot Nothing Then + Dim _SpinEdit As DevExpress.XtraEditors.SpinEdit + _SpinEdit = TryCast(_row_QTT.Control, DevExpress.XtraEditors.SpinEdit) + If _SpinEdit IsNot Nothing Then + Select Case _Products.DecimalIn + Case 0 + _SpinEdit.Properties.Mask.EditMask = "#,##0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 1 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 2 + _SpinEdit.Properties.Mask.EditMask = "#,##0.00" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 3 + _SpinEdit.Properties.Mask.EditMask = "#,##0.000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 4 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case Else + _SpinEdit.Properties.Mask.EditMask = "" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = False + End Select + End If + End If + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.Designer.vb new file mode 100644 index 0000000..fe323c0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageOut_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.vb new file mode 100644 index 0000000..068ab5e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageOut_VC.vb @@ -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 + +Public Class StorageOut_VC + 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 = "StorageOutHeader_DetailView" Then + AddHandler View.ControlsCreated, AddressOf StorageOutHeader_DetailView_ControlCreated + End If + End Sub + + Private Sub StorageOutHeader_DetailView_ControlCreated(sender As Object, e As EventArgs) + If View.Id = "StorageOutHeader_DetailView" Then + Dim _row_StorageComputed_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_StorageComputed_Editor = TryCast(View, DetailView).FindItem("row_StorageComputed") + + AddHandler _row_StorageComputed_Editor.ControlValueChanged, AddressOf _row_StorageComputed_Editor_ControlValueChanged + End If + End Sub + + Private Sub _row_StorageComputed_Editor_ControlValueChanged(sender As Object, e As EventArgs) + Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + _row_QTT = TryCast(View, DetailView).FindItem("row_QTT") + If _row_QTT IsNot Nothing Then + Dim _row_StorageComputed_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor + _row_StorageComputed_Editor = TryCast(View, DetailView).FindItem("row_StorageComputed") + + If _row_StorageComputed_Editor IsNot Nothing Then + Dim _StorageComputed As SISBusiness.Module.StorageComputed = TryCast(_row_StorageComputed_Editor.ControlValue, SISBusiness.Module.StorageComputed) + If _StorageComputed IsNot Nothing Then + If _StorageComputed.Products IsNot Nothing Then + Dim _SpinEdit As DevExpress.XtraEditors.SpinEdit + _SpinEdit = TryCast(_row_QTT.Control, DevExpress.XtraEditors.SpinEdit) + If _SpinEdit IsNot Nothing Then + Select Case _StorageComputed.Products.DecimalOut + Case 0 + _SpinEdit.Properties.Mask.EditMask = "#,##0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 1 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 2 + _SpinEdit.Properties.Mask.EditMask = "#,##0.00" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 3 + _SpinEdit.Properties.Mask.EditMask = "#,##0.000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case 4 + _SpinEdit.Properties.Mask.EditMask = "#,##0.0000" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True + Case Else + _SpinEdit.Properties.Mask.EditMask = "" + _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = False + End Select + End If + End If + End If + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.Designer.vb new file mode 100644 index 0000000..1d55ea5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageTransactionIn_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.vb new file mode 100644 index 0000000..ce63829 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionIn_VC.vb @@ -0,0 +1,36 @@ +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 StorageTransactionIn_VC + Inherits SISBusiness.Module.StorageTransactionsInVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.Designer.vb new file mode 100644 index 0000000..4a88aea --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class StorageTransactionsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.resx new file mode 100644 index 0000000..ae50817 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb new file mode 100644 index 0000000..0e18af2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/StorageTransactions/StorageTransactionsVC.vb @@ -0,0 +1,81 @@ +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.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.Data +Imports DevExpress.ExpressApp.Editors + +Public Class StorageTransactionsVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) ' FIGYELNI!!!! CSAK LISTVIEW + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "StorageMoveInfo_ProductFinderInfo_ListView" Then + Dim _GLE As GridListEditor = TryCast(View.Editor, GridListEditor) + If _GLE IsNot Nothing Then + If _GLE.GridView IsNot Nothing Then + _GLE.GridView.OptionsView.RowAutoHeight = True + '_GLE.GridView.OptionsView.ShowColumnHeaders = False + '_GLE.GridView.OptionsView.ShowVerticalLines = False + End If + End If + End If + + End Sub + 'Sub InitGridView() + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "QTT_Will" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id Like "Storage*Header_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageOutRows_ListView_Order" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageOutRows_ListView_Order" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb new file mode 100644 index 0000000..e72618b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class Subcontractor_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb new file mode 100644 index 0000000..cdc8b8c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb @@ -0,0 +1,60 @@ +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.Win.Editors + +Public Class Subcontractor_VC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf Subcontractor_SubcontractorCustomers_ListView_CellValueChanged + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf Subcontractor_SubcontractorCustomers_ListView_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Workplace" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End If + End If + End Sub + Private Sub Subcontractor_SubcontractorCustomers_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.CommitChanges() + 'parentView.ObjectSpace.Refresh() + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.Designer.vb new file mode 100644 index 0000000..1241220 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class QuestionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.vb new file mode 100644 index 0000000..c79f43b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Support/Question/QuestionVC.vb @@ -0,0 +1,21 @@ +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.ExpressApp.SystemModule + +Public Class QuestionVC + Inherits SISBusiness.Module.QuestionVC 'Module.Win + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + 'Dim IDoc As mshtml.IHTMLDocument2 + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb new file mode 100644 index 0000000..9ad9a17 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class MySchedule_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb new file mode 100644 index 0000000..4a1818f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/ToDoObjects/MySchedule_VC.vb @@ -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.Win +Imports DevExpress.ExpressApp.Scheduler +Imports DevExpress.XtraScheduler + +Public Class MySchedule_VC + Inherits SISBusiness.Module.MySchedule_VC + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "MySchedule_ListView" Or View.Id = "Contacts_CRM_Leads_Activity_ListView" Then + Dim currentView As ListView = CType(View, ListView) + Dim listEditor As SchedulerListEditor = CType(currentView.Editor, SchedulerListEditor) + Dim scheduler As SchedulerControl = 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 diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.Designer.vb new file mode 100644 index 0000000..d92f431 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class WorksheetVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.vb new file mode 100644 index 0000000..22487ab --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/WorksheetVC.vb @@ -0,0 +1,233 @@ +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 FarPoint.Win.Spread +Imports DevExpress.ExpressApp.SystemModule +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors + +Public Class WorksheetVC + Inherits DevExpress.ExpressApp.ViewController + Private _FpSpread As FpSpread + 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 = "WorkSheet_Header_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + AddHandler _WorkSheet_Header.Changed, AddressOf SetWorksheetTemplateXLS_Changed + + End If + If View.Id = "WorkSheetType_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "WorkSheet_Header_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + RemoveHandler _WorkSheet_Header.Changed, AddressOf SetWorksheetTemplateXLS_Changed + End If + If View.Id = "WorkSheetType_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + End If + End Sub + Private Sub ExcelControlViewItem_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + If View.Id = "WorkSheet_Header_DetailView" Then + Dim _FileName As String = Path.GetTempPath & "OutSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ocur.Session.IsNewObject(_WorkSheet_Header) = False Then + If _WorkSheet_Header IsNot Nothing Then + If _WorkSheet_Header.ExcelFile IsNot Nothing Then + _WorkSheet_Header.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + End If + End If + End If + End If + If View.Id = "WorkSheetType_DetailView" Then + Dim _FileName As String = Path.GetTempPath & "OutSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _WorkSheetType As WorkSheetType = TryCast(View.SelectedObjects(0), WorkSheetType) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _ocur.Session.IsNewObject(_WorkSheetType) = False Then + If _WorkSheetType IsNot Nothing Then + If _WorkSheetType.ExcelFile IsNot Nothing Then + _WorkSheetType.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "WorkSheet_Header_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + If _DetailView.GetItems(Of ExcelPropertyEditor).Count > 0 Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + End If + If View.Id = "WorkSheetType_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + End Sub + Sub SaveAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "InSpread.xml" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If View.Id = "WorkSheet_Header_DetailView" Then + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header IsNot Nothing Then + If _FpSpread IsNot Nothing Then + If _WorkSheet_Header.DocumentNumber <> "" And _WorkSheet_Header.DocumentNumber IsNot Nothing Then + If _WorkSheet_Header.WorkSheetType.WorkSheetTypeExcelParam.Count > 0 Then + SetDatatoFpSpread(_WorkSheet_Header.WorkSheetType.WorkSheetTypeExcelParam) + End If + _FpSpread.Save(_StreamFile, False) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _WorkSheet_Header.ExcelFile = New FileData(_ocur.Session) + _WorkSheet_Header.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _WorkSheet_Header.Save() + _StreamFile2.Close() + End If + Else + If _FpSpread IsNot Nothing Then + _WorkSheet_Header.WorkSheetType.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.Open(_FileName) + If _WorkSheet_Header.WorkSheetType.WorkSheetTypeExcelParam.Count > 0 Then + SetDatatoFpSpread(_WorkSheet_Header.WorkSheetType.WorkSheetTypeExcelParam) + End If + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _WorkSheet_Header.ExcelFile = New FileData(_ocur.Session) + _WorkSheet_Header.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _WorkSheet_Header.Save() + _StreamFile2.Close() + End If + End If + End If + End If + If View.Id = "WorkSheetType_DetailView" Then + Dim _WorkSheetType As WorkSheetType = TryCast(View.SelectedObjects(0), WorkSheetType) + If _WorkSheetType IsNot Nothing Then + If _FpSpread IsNot Nothing Then + _FpSpread.Save(_StreamFile, False) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _WorkSheetType.ExcelFile = New FileData(_ocur.Session) + _WorkSheetType.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _WorkSheetType.Save() + _StreamFile2.Close() + End If + End If + End If + End Sub + Private Sub SetWorksheetTemplateXLS_Changed(sender As Object, e As ObjectChangeEventArgs) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + + If _WorkSheet_Header.CustomersFrom IsNot Nothing And _WorkSheet_Header.WorkSheetType IsNot Nothing And _WorkSheet_Header.ExcelFile Is Nothing Then + + _WorkSheet_Header.ExcelFile = _WorkSheet_Header.WorkSheetType.ExcelFile + If _WorkSheet_Header.ExcelFile IsNot Nothing Then + + Dim _FileName As String = Path.GetTempPath & "Temp.xls" + Dim _StreamFile As FileStream = Nothing + _StreamFile = File.Create(_FileName) + + _WorkSheet_Header.ExcelFile.SaveToStream(_StreamFile) + If TryCast(View, DetailView).GetItems(Of ExcelPropertyEditor)(0).ExcelUserControl IsNot Nothing Then + _FpSpread = TryCast(View, DetailView).GetItems(Of ExcelPropertyEditor)(0).ExcelUserControl.FpSpreadControl + _StreamFile.Close() + _FpSpread.OpenExcel(_FileName) + End If + End If + End If + End Sub + + Private Sub SetDatatoFpSpread(xPCollection As DevExpress.Xpo.XPCollection(Of WorkSheetTypeExcelParam)) + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + Dim _Type As System.Type = GetType(WorkSheet_Header) + Dim _PropertyInfo As System.Reflection.PropertyInfo() = _Type.GetProperties + If _FpSpread Is Nothing Then Exit Sub + 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 + 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 "Customers" + _FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Locked = True + _FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).TabStop = False + _FpSpread.ActiveSheet.Cells(_WorkSheetTypeExcelParam.XLSCellAdress).Text = _WorkSheet_Header.Customers.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).Text = _WorkSheet_Header.DateExecution.ToString + Exit For + End Select + End If + Next + Next + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.Designer.vb new file mode 100644 index 0000000..aa74ff0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.Designer.vb @@ -0,0 +1,32 @@ +Partial Class Worksheet_VC_ListView + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.vb b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.vb new file mode 100644 index 0000000..3215950 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Business/Worksheet/Worksheet_VC_ListView.vb @@ -0,0 +1,134 @@ +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.Win.Editors + +Public Class Worksheet_VC_ListView + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_CellValueChanged + End If + End If + If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_CellValueChanged + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup1" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "RowGroup2" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "ShortName" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Description" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Quantity" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End If + End If + If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = False + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName = "FinalPriceHUF_Out" Or _ + ' _GridListEditor.GridView.Columns(i).FieldName = "FinalPriceDEV_Out" Or _ + ' _GridListEditor.GridView.Columns(i).FieldName = "Controlling!" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = True + ' End If + ' Next i + 'End If + End If + 'If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" Then + + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + ' End If + + 'End If + End Sub + Private Sub WorkSheet_Header_WorkSheet_Rows_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.CommitChanges() + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub WorkSheet_Header_Worksheet_CostRows_ListView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Try + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + Dim _Worksheet_CostRows As Worksheet_CostRows = TryCast(parentView.SelectedObjects(0), Worksheet_CostRows) + + If e.Column.FieldName = "FinalPriceHUF_Out" Then + _Worksheet_CostRows.SumPriceHUF_Out = _Worksheet_CostRows.FinalPriceHUF_Out * _Worksheet_CostRows.QTT + End If + If e.Column.FieldName = "FinalPriceDEV_Out" Then + _Worksheet_CostRows.SumPriceDEV_Out = _Worksheet_CostRows.FinalPriceDEV_Out * _Worksheet_CostRows.QTT + End If + If _Worksheet_CostRows.Worksheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + End If + + parentView.ObjectSpace.CommitChanges() + parentView.ObjectSpace.Refresh() + End If + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb new file mode 100644 index 0000000..51f4e5d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb @@ -0,0 +1,35 @@ +Partial Class GLAccountsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'GLAccountsVC + ' + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx new file mode 100644 index 0000000..52a9ad3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb new file mode 100644 index 0000000..4467687 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb @@ -0,0 +1,197 @@ +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.Win.SystemModule +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.XtraEditors + +Public Class GLAccountsVC + Inherits SISBusiness.Module.GLAccountsVC + Dim _WaitFormClass As New WaitFormClass + Private _GridListEditor As GridListEditor + 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 = "GLAccounts_DetailView" Or View.Id = "GLAccounts_GLRows_ListView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = DevExpress.ExpressApp.SystemModule.ModificationsHandlingMode.AutoRollback + End If + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False) + Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False) + End If + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + AddHandler View.ControlsCreated, AddressOf View_Controlcreated + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", True) + Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True) + End If + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLAccounts_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + End Sub + + Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim gridView As GridView = TryCast(sender, GridView) + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count = 1 Then + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + If _GLAccounts Is Nothing Then + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + If _GLAccounts.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + ElseIf View.SelectedObjects.Count > 1 Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + End Sub + + Private Sub View_Controlcreated(sender As Object, e As EventArgs) + 'If View.Id = "GLAccounts_DetailView" Or View.Id = "GLCassa_DetailView" Or View.Id = "GLBank_DetailView" Or View.Id = "GLCompensation_DetailView" Or View.Id = "GLMixed_DetailView" Then + ' Dim _row_NoteRows As ViewItem = TryCast(View, DetailView).FindItem("row_NoteRows") + ' Dim _NoteHeader As ViewItem = TryCast(View, DetailView).FindItem("NoteHeader") + + ' Dim _StringComboUserControl As StringComboUserControl + ' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + ' If _row_NoteRows IsNot Nothing Then + ' _StringComboUserControl = TryCast(_row_NoteRows.Control, StringComboUserControl) + ' If _StringComboUserControl IsNot Nothing Then + ' '//------------------------------------------------------------------------------------------------------------------------------------------ + + ' Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session) + ' Dim query = From _DocumentNote In _DocumentNote_xpquery _ + ' Where _DocumentNote.IsActive = True + ' Select New With {Key .NoteRows = _DocumentNote.ShortName} + ' For Each item In query + ' _StringComboUserControl.ComboBoxEdit1.Properties.Items.Add(item.NoteRows) + ' Next + ' '-------------------------------------------------------------------------------------------------------------------------------------------- + + ' AddHandler _StringComboUserControl.ComboBoxEdit1.KeyDown, AddressOf StringComboUserControl_KeyDown + + ' End If + ' End If + ' If _NoteHeader IsNot Nothing Then + ' _StringComboUserControl = TryCast(_NoteHeader.Control, StringComboUserControl) + ' If _StringComboUserControl IsNot Nothing Then + ' '//------------------------------------------------------------------------------------------------------------------------------------------ + + ' Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session) + ' Dim query = From _DocumentNote In _DocumentNote_xpquery _ + ' Where _DocumentNote.IsActive = True + ' Select New With {Key .NoteHeader = _DocumentNote.ShortName} + ' For Each item In query + ' _StringComboUserControl.ComboBoxEdit1.Properties.Items.Add(item.NoteHeader) + ' Next + ' '-------------------------------------------------------------------------------------------------------------------------------------------- + + ' AddHandler _StringComboUserControl.ComboBoxEdit1.KeyDown, AddressOf StringComboUserControl_KeyDown + + ' End If + ' End If + 'End If + If View.Id = "GLAccounts_DetailView" Or View.Id = "GLCassa_DetailView" Or View.Id = "GLBank_DetailView" Or View.Id = "GLCompensation_DetailView" Or View.Id = "GLMixed_DetailView" Then + Dim _row_NoteRows As ViewItem = TryCast(View, DetailView).FindItem("row_NoteRows") + Dim _NoteHeader As ViewItem = TryCast(View, DetailView).FindItem("NoteHeader") + + Dim _ComboBoxEdit As ComboBoxEdit + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + If _row_NoteRows IsNot Nothing Then + _ComboBoxEdit = TryCast(_row_NoteRows.Control, ComboBoxEdit) + If _ComboBoxEdit IsNot Nothing Then + '//------------------------------------------------------------------------------------------------------------------------------------------ + + Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session) + Dim query = From _DocumentNote In _DocumentNote_xpquery _ + Where _DocumentNote.IsActive = True + Select New With {Key .NoteRows = _DocumentNote.ShortName} + For Each item In query + _ComboBoxEdit.Properties.Items.Add(item.NoteRows) + Next + '-------------------------------------------------------------------------------------------------------------------------------------------- + + AddHandler _ComboBoxEdit.KeyDown, AddressOf StringComboUserControl_KeyDown + + End If + End If + If _NoteHeader IsNot Nothing Then + _ComboBoxEdit = TryCast(_NoteHeader.Control, ComboBoxEdit) + If _ComboBoxEdit IsNot Nothing Then + '//------------------------------------------------------------------------------------------------------------------------------------------ + + Dim _DocumentNote_xpquery = New XPQuery(Of DocumentNote)(_onew.Session) + Dim query = From _DocumentNote In _DocumentNote_xpquery _ + Where _DocumentNote.IsActive = True + Select New With {Key .NoteHeader = _DocumentNote.ShortName} + For Each item In query + _ComboBoxEdit.Properties.Items.Add(item.NoteHeader) + Next + '-------------------------------------------------------------------------------------------------------------------------------------------- + + AddHandler _ComboBoxEdit.KeyDown, AddressOf StringComboUserControl_KeyDown + + End If + End If + End If + End Sub + Private Sub StringComboUserControl_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) + If e.KeyCode = System.Windows.Forms.Keys.F12 Then + '// Kell egy mentés + If TryCast(sender, DevExpress.XtraEditors.ComboBoxEdit) IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DocumentNote As DocumentNote = Nothing + Dim _ShortName As String = TryCast(sender, DevExpress.XtraEditors.ComboBoxEdit).Text + + _DocumentNote = _onew.FindObject(Of DocumentNote)(CriteriaOperator.Parse("ShortName=?", _ShortName)) + If _DocumentNote Is Nothing Then + _DocumentNote = _onew.CreateObject(Of DocumentNote)() + _DocumentNote.ShortName = _ShortName + _DocumentNote.IsActive = True + _onew.CommitChanges() + End If + End If + e.Handled = True + End If + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb new file mode 100644 index 0000000..b9efd0d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class AssetsPCIVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb new file mode 100644 index 0000000..b76da2e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb @@ -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 + +Public Class AssetsPCIVC + Inherits SISBusiness.Module.AssetsPCIVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.Designer.vb new file mode 100644 index 0000000..209ae37 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.Designer.vb @@ -0,0 +1,114 @@ +Partial Class BankImportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBankImport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateGLBankRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLBankImportsDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateGLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalGLBank_Import = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBankImport + ' + Me.aBankImport.Caption = "Bank import" + Me.aBankImport.ConfirmationMessage = "Do you want to execute command ?" + Me.aBankImport.Id = "aBankImport" + Me.aBankImport.ImageName = Nothing + Me.aBankImport.Shortcut = Nothing + Me.aBankImport.Tag = Nothing + Me.aBankImport.TargetObjectsCriteria = Nothing + Me.aBankImport.TargetViewId = "BankImportHeader_DetailView" + Me.aBankImport.ToolTip = Nothing + Me.aBankImport.TypeOfView = Nothing + ' + 'aCreateGLBankRows + ' + Me.aCreateGLBankRows.AcceptButtonCaption = Nothing + Me.aCreateGLBankRows.CancelButtonCaption = Nothing + Me.aCreateGLBankRows.Caption = "aCreate GLBank Rows" + Me.aCreateGLBankRows.ConfirmationMessage = Nothing + Me.aCreateGLBankRows.Id = "aCreateGLBankRows" + Me.aCreateGLBankRows.ImageName = Nothing + Me.aCreateGLBankRows.Shortcut = Nothing + Me.aCreateGLBankRows.Tag = Nothing + Me.aCreateGLBankRows.TargetObjectsCriteria = Nothing + Me.aCreateGLBankRows.TargetViewId = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" + Me.aCreateGLBankRows.ToolTip = Nothing + Me.aCreateGLBankRows.TypeOfView = Nothing + ' + 'aGLBankImportsDivideRows + ' + Me.aGLBankImportsDivideRows.AcceptButtonCaption = Nothing + Me.aGLBankImportsDivideRows.CancelButtonCaption = Nothing + Me.aGLBankImportsDivideRows.Caption = "Divide rows" + Me.aGLBankImportsDivideRows.ConfirmationMessage = Nothing + Me.aGLBankImportsDivideRows.Id = "aGLBankImportsDivideRows" + Me.aGLBankImportsDivideRows.ImageName = "index_preferences" + Me.aGLBankImportsDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBankImportsDivideRows.Shortcut = Nothing + Me.aGLBankImportsDivideRows.Tag = Nothing + Me.aGLBankImportsDivideRows.TargetObjectsCriteria = Nothing + Me.aGLBankImportsDivideRows.TargetViewId = "BankImportHeaderSum_GLRows_ListView" + Me.aGLBankImportsDivideRows.ToolTip = Nothing + Me.aGLBankImportsDivideRows.TypeOfView = Nothing + ' + 'aCreateGLRows + ' + Me.aCreateGLRows.Caption = "Create GLRows" + Me.aCreateGLRows.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateGLRows.Id = "aCreateGLRows" + Me.aCreateGLRows.ImageName = Nothing + Me.aCreateGLRows.Shortcut = Nothing + Me.aCreateGLRows.Tag = Nothing + Me.aCreateGLRows.TargetObjectsCriteria = Nothing + Me.aCreateGLRows.TargetViewId = "BankImportHeaderSum_DetailView" + Me.aCreateGLRows.ToolTip = Nothing + Me.aCreateGLRows.TypeOfView = Nothing + ' + 'aFinalGLBank_Import + ' + Me.aFinalGLBank_Import.Caption = "FinalGLBank_Import" + Me.aFinalGLBank_Import.ConfirmationMessage = Nothing + Me.aFinalGLBank_Import.Id = "aFinalGLBank_Import" + Me.aFinalGLBank_Import.ImageName = Nothing + Me.aFinalGLBank_Import.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalGLBank_Import.Shortcut = Nothing + Me.aFinalGLBank_Import.Tag = Nothing + Me.aFinalGLBank_Import.TargetObjectsCriteria = Nothing + Me.aFinalGLBank_Import.TargetViewId = "BankImportHeaderSum_GLRows_ListView" + Me.aFinalGLBank_Import.ToolTip = Nothing + Me.aFinalGLBank_Import.TypeOfView = Nothing + + End Sub + Friend WithEvents aBankImport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateGLBankRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLBankImportsDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateGLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalGLBank_Import As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.resx new file mode 100644 index 0000000..f1e67f0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 95 + + + 180, 134 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb new file mode 100644 index 0000000..aa54a80 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportVC.vb @@ -0,0 +1,557 @@ +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 System.IO +Imports DevExpress.Data.Filtering +Imports System.Globalization +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.ExpressApp.SystemModule + +Public Class BankImportVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "BankImportHeaderSum_GLRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub Ondeactivated() + MyBase.OnActivated() + If View.Id = "BankImportHeader_BankImportHeaderSum_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "BankImportHeaderSum_BankImportHeaderSumDetail_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "BankImportHeaderSum_GLRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "BankImportHeaderSum_BankImportPopup_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub BankImportVC_ViewControlsCreated(sender As System.Object, e As System.EventArgs) + 'If View.Id = "BankImportHeaderSum_BankImportNameParameters_ListView" Then ' Az inline edit belltsa. + ' Dim _ListView As ListView = TryCast(View, ListView) + ' Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _GridListEditor.GridView.Columns(i).FieldName <> "ChartOfAccounts!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + + ' End If + 'End If + End Sub + Private Sub aBankImport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankImport.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _BankImportHeader As BankImportHeader + Dim _BankImportHeaderSum As BankImportHeaderSum = Nothing + Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail + Dim _BankImportNameParameters As BankImportNameParameters + Dim _BankInformation As BankInformation + Dim _GLBank As GLBank + + Dim _BIH As BankImportHeader = TryCast(View.SelectedObjects(0), BankImportHeader) + _BIH.Save() + View.ObjectSpace.CommitChanges() + _BankImportHeader = _uow.GetObjectByKey(Of BankImportHeader)(_BIH.Oid) + + Dim _MemoryStream As New MemoryStream + Dim _StreamReader As StreamReader + Dim _Line As String + Dim _LineCount As Int32 + + For Each _BankImportHeaderSum In _BankImportHeader.BankImportHeaderSum + If _BankImportHeaderSum.GLBank IsNot Nothing Then + If _BankImportHeaderSum.GLBank.IsEditable = False Then + Throw New Exception("*Nem lehet vglegestett kivonatot feldolgozni !") + Exit Sub + End If + End If + Next + + For Each _BankImportHeaderSum In _BankImportHeader.BankImportHeaderSum + If _BankImportHeaderSum.GLBank IsNot Nothing Then + _GLBank = _uow.FindObject(Of GLBank)(CriteriaOperator.Parse("Oid=?", _BankImportHeaderSum.GLBank.Oid)) + _uow.Delete(_GLBank.GLRows) + _GLBank.BankImportHeaderSum = Nothing + _GLBank.Save() + _uow.Delete(_GLBank) + End If + Next + _uow.CommitChanges() + + Dim _BankImportHeaderSumDetail_Collection As New XPCollection(_uow, GetType(BankImportHeaderSumDetail), _ + CriteriaOperator.Parse("BankImportHeader.Oid=?", _BankImportHeader.Oid)) + _uow.Delete(_BankImportHeaderSumDetail_Collection) + _uow.CommitChanges() + + Dim _BankImportHeaderSum_Collection As New XPCollection(_uow, GetType(BankImportHeaderSum), _ + CriteriaOperator.Parse("BankImportHeader.Oid=?", _BankImportHeader.Oid)) + _uow.Delete(_BankImportHeaderSum_Collection) + _uow.CommitChanges() + + _BankImportHeader.FileData.SaveToStream(_MemoryStream) + _MemoryStream.Position = 0 + _StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250) + + Do While _StreamReader.Peek <> -1 + _Line = _StreamReader.ReadLine + _LineCount = _LineCount + 1 + Loop + _MemoryStream.Position = 0 + _StreamReader = New StreamReader(_MemoryStream, System.Text.Encoding.Default) ' Esetleg: System.Text.Encoding.GetEncoding(1250) + + _WaitFormClass.Initwork(1, 1, _LineCount) + Do While _StreamReader.Peek <> -1 + _WaitFormClass.DoWork() + _Line = _StreamReader.ReadLine + + If Left(_Line, 2) = "11" Then + _BankImportHeaderSum = New BankImportHeaderSum(_uow) + _GLBank = New GLBank(_uow) + + _BankImportHeaderSum.BankImportHeader = _BankImportHeader + + _BankImportHeaderSum.DateOpen = Convert.ToDateTime(_Line.Substring(85, 4) & "." & _Line.Substring(89, 2) & "." & _Line.Substring(91, 2)) 'Nyit dtum + _BankImportHeaderSum.DateClose = Convert.ToDateTime(_Line.Substring(93, 4) & "." & _Line.Substring(97, 2) & "." & _Line.Substring(100, 2)) 'Zr dtum + _BankImportHeaderSum.AccountNumber = _Line.Substring(10, 24) 'Bankszmlaszm amire a kivonat szl (sajt szmlink egyike) + _BankImportHeaderSum.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _Line.Substring(34, 3))) 'Deviza + _BankImportHeaderSum.AmountOpen = Convert.ToDouble(_Line.Substring(101, 17)) + (Convert.ToDouble(_Line.Substring(118, 2)) / 100) 'Nyit sszeg + _BankImportHeaderSum.AmountClose = Convert.ToDouble(_Line.Substring(120, 17)) + (Convert.ToDouble(_Line.Substring(136, 2)) / 100) 'Zr sszeg + _BankImportHeaderSum.DocumentNumber = _Line.Substring(2, 8).Trim 'Kiovnat szma + _BankInformation = _uow.FindObject(Of BankInformation)(CriteriaOperator.Parse("AccountNumber=?", Left(_BankImportHeaderSum.AccountNumber, 8) & "-" & _ + _BankImportHeaderSum.AccountNumber.Substring(8, 8) & "-" & _BankImportHeaderSum.AccountNumber.Substring(16, 8))) + Try + _BankImportHeaderSum.LiquidAssets = _BankInformation.LiquidAssests ' Sajt pnzeszkznk + Catch ex As Exception + End Try + + _GLBank.BankImportHeaderSum = _BankImportHeaderSum + _GLBank.CurrencyName = _BankImportHeaderSum.CurrencyName + _GLBank.CustomersFrom = _BankInformation.LiquidAssests.CustomerFrom + _GLBank.DocumentNumber = _BankImportHeaderSum.DocumentNumber + _GLBank.DateExecution = _BankImportHeaderSum.DateOpen + _GLBank.DateCreated = _BankImportHeaderSum.DateOpen + _GLBank.DatePayment = _BankImportHeaderSum.DateOpen + _GLBank.NoteHeader = _BankImportHeader.FileData.FileName 'Fjl neve, melyikbl tlttte be + _GLBank.LiquidAssets_Main = _BankInformation.LiquidAssests + + _BankImportHeaderSum.Save() + _GLBank.Save() + End If + + If Left(_Line, 2) = "12" Then + _BankImportHeaderSumDetail = New BankImportHeaderSumDetail(_uow) + _BankImportHeaderSumDetail.BankImportHeader = _BankImportHeader + _BankImportHeaderSumDetail.BankImportHeaderSum = _BankImportHeaderSum + '_BankImportHeaderSumDetail.NoteRow = _Line.Substring(356, 140).Trim + _BankImportHeaderSumDetail.NoteRow = _Line.Substring(356, 35).Trim & " " & _Line.Substring(391, 35).Trim & " " & _Line.Substring(426, 35).Trim & " " & _Line.Substring(461, 35).Trim + + Try + _BankImportHeaderSumDetail.CreditAmount = Convert.ToDouble(_Line.Substring(851, 14)) + Convert.ToDouble(_Line.Substring(865, 2) / 100) + Catch ex As Exception + End Try + + Try + _BankImportHeaderSumDetail.DebitAmount = Convert.ToDouble(_Line.Substring(902, 14)) + Convert.ToDouble(_Line.Substring(916, 2) / 100) + Catch ex As Exception + End Try + + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _BankImportHeaderSumDetail.PartnerString = _Line.Substring(182, 35).Trim & " " & _Line.Substring(218, 35).Trim & " " & _Line.Substring(252, 35).Trim & " " & _Line.Substring(287, 35).Trim + _BankImportHeaderSumDetail.AccountNumber = _Line.Substring(322, 34).Trim + Else + _BankImportHeaderSumDetail.PartnerString = _Line.Substring(636, 35).Trim & " " & _Line.Substring(671, 35).Trim & " " & _Line.Substring(706, 35).Trim & " " & _Line.Substring(741, 35).Trim + _BankImportHeaderSumDetail.AccountNumber = _Line.Substring(776, 34).Trim + End If + + If IsNumeric(_BankImportHeaderSumDetail.AccountNumber) Then + _BankImportHeaderSumDetail.AccountNumber = _BankImportHeaderSumDetail.AccountNumber.PadRight(24, "0") + _BankImportHeaderSumDetail.AccountNumber = Left(_BankImportHeaderSumDetail.AccountNumber, 8) & "-" & _BankImportHeaderSumDetail.AccountNumber.Substring(8, 8) & "-" & _BankImportHeaderSumDetail.AccountNumber.Substring(16) + End If + + _BankImportHeaderSumDetail.Save() + + If _BankImportHeaderSumDetail.AccountNumber.Trim.Length = 0 Then + _BankImportNameParameters = _uow.FindObject(Of BankImportNameParameters)(CriteriaOperator.Parse("NoteRow=?", _BankImportHeaderSumDetail.NoteRow)) + If _BankImportNameParameters Is Nothing Then + + _BankImportNameParameters = New BankImportNameParameters(_uow) + + _BankImportNameParameters.NoteRow = _BankImportHeaderSumDetail.NoteRow + '_BankImportNameParameters.ChartOfAccounts = + '_BankImportNameParameters.Controlling = + + _BankImportNameParameters.Save() + _uow.CommitChanges() + End If + End If + + End If + + Loop + _uow.CommitChanges() + _Waitformclass.FinalWork() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + Private Sub aCreateGLBankRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateGLBankRows.CustomizePopupWindowParams + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail = _onew.GetObjectByKey(Of BankImportHeaderSumDetail)(TryCast(View.SelectedObjects(0), BankImportHeaderSumDetail).Oid) + Dim _BankImportPopup As New BankImportPopup(_onew.Session) + 'Az AccountNumber tagolva van trolva a tblban? + Dim _CustomerBankAccounts As CustomerBankAccounts = _onew.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=?", _BankImportHeaderSumDetail.AccountNumber)) + + If _CustomerBankAccounts IsNot Nothing Then + _BankImportPopup.Customers = _CustomerBankAccounts.Customers + End If + _BankImportPopup.NoteRows = _BankImportHeaderSumDetail.NoteRow + If _BankImportHeaderSumDetail.BankImportHeaderSum.CurrencyName.ShortName = "HUF" Then + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _BankImportPopup.AmountHUF = _BankImportHeaderSumDetail.CreditAmount + End If + If _BankImportHeaderSumDetail.DebitAmount <> 0 Then + _BankImportPopup.AmountHUF = _BankImportHeaderSumDetail.DebitAmount + End If + Else + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _BankImportPopup.AmountDEV = _BankImportHeaderSumDetail.CreditAmount + End If + If _BankImportHeaderSumDetail.DebitAmount <> 0 Then + _BankImportPopup.AmountDEV = _BankImportHeaderSumDetail.DebitAmount + End If + End If + + '_BankImportPopup.TransactionType + 'ChartOfAccounts As ChartOfAccounts + 'Controlling As Controlling + 'ConnectInfo As String + 'CurrencyName2 As CurrencyName + '_BankImportPopup.PCIGroup = ???? + + e.View = Application.CreateDetailView(_onew, _BankImportPopup, False) + End Sub + Private Sub aCreateGLBankRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateGLBankRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail = _ocur.GetObject(TryCast(View.SelectedObjects(0), BankImportHeaderSumDetail)) + Dim _BankImportPopup As BankImportPopup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), BankImportPopup)) + Dim _ChartOfAccounts As ChartOfAccounts = _ocur.GetObject(TryCast(_BankImportPopup.ChartOfAccounts, ChartOfAccounts)) + + Dim _GLRows As GLRows + ' Dim _BankImportNameParameters As BankImportNameParameters + + _GLRows = New GLRows(_ocur.Session) + + '_GLRows.GLHeader = _BankImportHeaderSumDetail.BankImportHeaderSum.GLBank + + If _BankImportPopup.TransactionType = eTransactionType.eNormalCredit Or _BankImportPopup.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.CreditChartOfAccounts = _ChartOfAccounts + _GLRows.DebitChartOfAccounts = _BankImportPopup.Customers.CustomersGLParameters.GetChartOfAccounts(_BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.DateExecution.Year, eVATMode.eIn) + End If + If _BankImportPopup.TransactionType = eTransactionType.eNormalCredit Or _BankImportPopup.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.CreditChartOfAccounts = _BankImportPopup.Customers.CustomersGLParameters.GetChartOfAccounts(_BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.DateExecution.Year, eVATMode.eOut) + _GLRows.DebitChartOfAccounts = _ChartOfAccounts + End If + + _GLRows.AmountDEV = _BankImportPopup.AmountDEV + _GLRows.AmountHUF = _BankImportPopup.AmountHUF + _GLRows.Controlling = _BankImportPopup.Controlling + _GLRows.ConnectInfo = _BankImportPopup.ConnectInfo + + _GLRows.Save() + + + '_BankImportNameParameters = _ocur.FindObject(Of BankImportNameParameters)(CriteriaOperator.Parse("NoteRow=?", _BankImportPopup.NoteRows)) + 'If _BankImportNameParameters Is Nothing Then + ' _BankImportNameParameters = New BankImportNameParameters(_ocur.Session) + + ' _BankImportNameParameters.NoteRow = _BankImportPopup.NoteRows + ' _BankImportNameParameters.ChartOfAccounts = _ChartOfAccounts + ' _BankImportNameParameters.Controlling = _BankImportPopup.Controlling + + ' _BankImportNameParameters.Save() + 'End If + + _ocur.CommitChanges() + 'Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + Private Sub aCreateGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateGLRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _BankImportHeaderSum As BankImportHeaderSum = _uow.GetObjectByKey(Of BankImportHeaderSum)(TryCast(View.SelectedObjects(0), BankImportHeaderSum).Oid) + Dim _BankImportHeaderSumDetail As BankImportHeaderSumDetail + Dim _GLRows As GLRows + 'Dim _Customers As Customers + Dim _BankImportNameParameters As BankImportNameParameters + Dim _CustomerBankAccounts As CustomerBankAccounts + Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("1=1")) 'Az utols elemet kapjuk meg a tblbl. A ChartofAccountNo mindig ugyan az! + + _WaitFormClass.Initwork(1, 1, _BankImportHeaderSum.BankImportHeaderSumDetail.Count) + For Each _BankImportHeaderSumDetail In _BankImportHeaderSum.BankImportHeaderSumDetail + + _WaitFormClass.DoWork() + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = _BankImportHeaderSum.GLBank + + If _BankImportHeaderSumDetail.AccountNumber IsNot Nothing Then 'Valsznleg beazonosthat a tranzakcihoz tartoz partner + + _CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _BankImportHeaderSumDetail.AccountNumber, _GLRows.GLHeader.DateExecution.Year)) + If _CustomerBankAccounts IsNot Nothing Then ' Sikerlt a beazonosts + _GLRows.Customer = _CustomerBankAccounts.Customers + End If + End If + + If _GLRows.Customer Is Nothing Then 'Nem sikerlt partnert azonostani + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _GLRows.TransactionType = eTransactionType.eNormalCredit 'Kvetel tpus tranzakci lesz + + _GLRows.DebitChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Tartozik a bank(szmla) + _GLRows.CreditChartOfAccounts = _CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Kvetel az elszmolsi szmla + '_GLRows.CreditChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsNo + + End If + If _BankImportHeaderSumDetail.DebitAmount <> 0 Then 'Tartozik tpus tranzakci lesz + _GLRows.TransactionType = eTransactionType.eNormalDebit + + '_GLRows.DebitChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsNo + _GLRows.DebitChartOfAccounts = _CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Tartozik az elszmolsi szmla + _GLRows.CreditChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Kvetel a bank(szmla) + + End If + + _GLRows.PartnerType = ePartnerType.eNotSet 'Ha nincs beazonostott partner, akkor gy kell belltani?????? + _GLRows.CashType = eCashType.eNormal + Else 'Van azonostott partnernk + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _GLRows.TransactionType = eTransactionType.ePartnerCredit 'Kvetel tpus tranzakci + _GLRows.PartnerType = ePartnerType.eReceivables 'Vevi szmla + + _GLRows.DebitChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Tartozik a bank(szmla) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) 'Kvetel a partnerhez tartoz szmla + + End If + If _BankImportHeaderSumDetail.DebitAmount <> 0 Then + _GLRows.TransactionType = eTransactionType.ePartnerDebit 'Tartozik tpus tranzakci + _GLRows.PartnerType = ePartnerType.ePayabels 'Szllti szmla + + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) 'Tartozik a partnerhez tartoz szmla + _GLRows.CreditChartOfAccounts = _BankImportHeaderSum.LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) 'Kvetel a bank(szmla) + + End If + + _GLRows.CashType = eCashType.ePartner + End If + + If _BankImportHeaderSum.CurrencyName.ShortName = "HUF" Then 'Forintos tranzakci + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then 'Kvetel + _GLRows.AmountHUF = _BankImportHeaderSumDetail.CreditAmount + _GLRows.InAmountHUF = _BankImportHeaderSumDetail.CreditAmount + Else + _GLRows.AmountHUF = _BankImportHeaderSumDetail.DebitAmount + _GLRows.OutAmountHUF = _BankImportHeaderSumDetail.DebitAmount + End If + Else 'Devizs tranzakci + If _BankImportHeaderSumDetail.CreditAmount <> 0 Then + _GLRows.AmountDEV = _BankImportHeaderSumDetail.CreditAmount 'Kvetel + _GLRows.InAmountDEV = _BankImportHeaderSumDetail.CreditAmount + Else + _GLRows.AmountDEV = _BankImportHeaderSumDetail.DebitAmount + _GLRows.OutAmountDEV = _BankImportHeaderSumDetail.DebitAmount + End If + End If + + + _GLRows.LiquidAssets = _BankImportHeaderSum.LiquidAssets + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.GLRowsGUID = Guid.NewGuid + '_GLRows.ConnectInfo = _BankImportHeaderSumDetail.NoteRow + _GLRows.NoteRows = _BankImportHeaderSumDetail.NoteRow + _GLRows.BankImportHeaderSumDetail = _BankImportHeaderSumDetail + + + '_GLRows.Save() + + If _BankImportHeaderSumDetail.AccountNumber.Trim.Length = 0 Then + _BankImportNameParameters = _uow.FindObject(Of BankImportNameParameters)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("NoteRow=?", _BankImportHeaderSumDetail.NoteRow)) + If _BankImportNameParameters Is Nothing Then + + _BankImportNameParameters = New BankImportNameParameters(_uow) + + _BankImportNameParameters.NoteRow = _BankImportHeaderSumDetail.NoteRow + '_BankImportNameParameters.ChartOfAccounts = + '_BankImportNameParameters.Controlling = + + ' _BankImportNameParameters.Save() + + End If + End If + + Next + _uow.CommitChanges() + _Waitformclass.FinalWork() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + Private Sub aFinalGLBank_Import_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalGLBank_Import.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _BankImportHeaderSum As BankImportHeaderSum = _ocur.GetObject(TryCast(View.SelectedObjects(0), BankImportHeaderSum)) + Dim _GLRows As GLRows = _ocur.GetObject(TryCast(View.SelectedObjects(0), GLRows)) + + _GLRows.BankImportHeaderSumDetail.BankImportHeaderSum.GLBank.IsEditable = False + _ocur.CommitChanges() + + Windows.Forms.MessageBox.Show("Az aktulis banki kivonathoz tartoz fknyvi bejegyzs vgledestsre kerlt.") + + + End Sub + + + + Private Sub aGLBankImportsDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBankImportsDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + End If + End Sub + Private Sub aGLBankImportsDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBankImportsDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankNoTransferPopup.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankNoTransferPopup.vb new file mode 100644 index 0000000..611ec26 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankNoTransferPopup.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class BankNoTransferPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Description As String +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.Designer.vb new file mode 100644 index 0000000..455913b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.Designer.vb @@ -0,0 +1,205 @@ +Partial Class BankVC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSaveElectraDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSaveElectraHUF = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBackFromPackage = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBankDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBankMerge = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_Bank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBankPrepareName = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBankNoTransfer = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPDCI_Bank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSaveElectraDEV + ' + Me.aSaveElectraDEV.AcceptButtonCaption = Nothing + Me.aSaveElectraDEV.CancelButtonCaption = Nothing + Me.aSaveElectraDEV.Caption = "Save electra format DEV" + Me.aSaveElectraDEV.Id = "aSaveElectraDEV" + Me.aSaveElectraDEV.ImageName = "Action_Export_ToText" + Me.aSaveElectraDEV.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aSaveElectraDEV.Shortcut = Nothing + Me.aSaveElectraDEV.Tag = Nothing + Me.aSaveElectraDEV.TargetObjectsCriteria = Nothing + Me.aSaveElectraDEV.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aSaveElectraDEV.ToolTip = Nothing + Me.aSaveElectraDEV.TypeOfView = Nothing + ' + 'aSaveElectraHUF + ' + Me.aSaveElectraHUF.AcceptButtonCaption = Nothing + Me.aSaveElectraHUF.CancelButtonCaption = Nothing + Me.aSaveElectraHUF.Caption = "Save electra format HUF" + Me.aSaveElectraHUF.Id = "aSaveElectraHUF" + Me.aSaveElectraHUF.ImageName = "Action_Export_ToText" + Me.aSaveElectraHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aSaveElectraHUF.Shortcut = Nothing + Me.aSaveElectraHUF.Tag = Nothing + Me.aSaveElectraHUF.TargetObjectsCriteria = Nothing + Me.aSaveElectraHUF.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aSaveElectraHUF.ToolTip = Nothing + Me.aSaveElectraHUF.TypeOfView = Nothing + ' + 'aBackFromPackage + ' + Me.aBackFromPackage.Caption = "Back From Package" + Me.aBackFromPackage.ConfirmationMessage = "Do you want to execute command ?" + Me.aBackFromPackage.Id = "aBackFromPackage" + Me.aBackFromPackage.ImageName = "import1" + Me.aBackFromPackage.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBackFromPackage.Shortcut = Nothing + Me.aBackFromPackage.Tag = Nothing + Me.aBackFromPackage.TargetObjectsCriteria = Nothing + Me.aBackFromPackage.TargetViewId = "RegistryBankTransfer_ListView_Transfered" + Me.aBackFromPackage.ToolTip = Nothing + Me.aBackFromPackage.TypeOfView = Nothing + ' + 'aViewRegistry + ' + Me.aViewRegistry.Caption = "View registry" + Me.aViewRegistry.Category = "View" + Me.aViewRegistry.ConfirmationMessage = Nothing + Me.aViewRegistry.Id = "aViewRegistry" + Me.aViewRegistry.ImageName = "document_pinned" + Me.aViewRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry.Shortcut = Nothing + Me.aViewRegistry.Tag = Nothing + Me.aViewRegistry.TargetObjectsCriteria = Nothing + Me.aViewRegistry.TargetViewId = "" + Me.aViewRegistry.ToolTip = Nothing + Me.aViewRegistry.TypeOfView = Nothing + ' + 'aBankDivide + ' + Me.aBankDivide.AcceptButtonCaption = Nothing + Me.aBankDivide.CancelButtonCaption = Nothing + Me.aBankDivide.Caption = "Divide rows" + Me.aBankDivide.Category = "RecordEdit" + Me.aBankDivide.ConfirmationMessage = Nothing + Me.aBankDivide.Id = "aBankDivide" + Me.aBankDivide.ImageName = "row_add_after" + Me.aBankDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBankDivide.Shortcut = Nothing + Me.aBankDivide.Tag = Nothing + Me.aBankDivide.TargetObjectsCriteria = Nothing + Me.aBankDivide.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aBankDivide.ToolTip = Nothing + Me.aBankDivide.TypeOfView = Nothing + ' + 'aBankMerge + ' + Me.aBankMerge.Caption = "Merge rows" + Me.aBankMerge.Category = "RecordEdit" + Me.aBankMerge.ConfirmationMessage = "Do you want to merge the selected rows ?" + Me.aBankMerge.Id = "aBankMerge" + Me.aBankMerge.ImageName = "row_delete" + Me.aBankMerge.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBankMerge.Shortcut = Nothing + Me.aBankMerge.Tag = Nothing + Me.aBankMerge.TargetObjectsCriteria = Nothing + Me.aBankMerge.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aBankMerge.ToolTip = Nothing + Me.aBankMerge.TypeOfView = Nothing + ' + 'aViewAttachments_Bank + ' + Me.aViewAttachments_Bank.Caption = "View attachments" + Me.aViewAttachments_Bank.ConfirmationMessage = Nothing + Me.aViewAttachments_Bank.Id = "aViewAttachments_Bank" + Me.aViewAttachments_Bank.ImageName = "printer_view" + Me.aViewAttachments_Bank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_Bank.Shortcut = Nothing + Me.aViewAttachments_Bank.Tag = Nothing + Me.aViewAttachments_Bank.TargetObjectsCriteria = Nothing + Me.aViewAttachments_Bank.TargetViewId = "" + Me.aViewAttachments_Bank.ToolTip = Nothing + Me.aViewAttachments_Bank.TypeOfView = Nothing + ' + 'aBankPrepareName + ' + Me.aBankPrepareName.AcceptButtonCaption = Nothing + Me.aBankPrepareName.CancelButtonCaption = Nothing + Me.aBankPrepareName.Caption = "Prepare rows" + Me.aBankPrepareName.Category = "RecordEdit" + Me.aBankPrepareName.ConfirmationMessage = Nothing + Me.aBankPrepareName.Id = "aBankPrepareName" + Me.aBankPrepareName.ImageName = "BO_List" + Me.aBankPrepareName.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBankPrepareName.Shortcut = Nothing + Me.aBankPrepareName.Tag = Nothing + Me.aBankPrepareName.TargetObjectsCriteria = Nothing + Me.aBankPrepareName.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aBankPrepareName.ToolTip = Nothing + Me.aBankPrepareName.TypeOfView = Nothing + ' + 'aBankNoTransfer + ' + Me.aBankNoTransfer.AcceptButtonCaption = Nothing + Me.aBankNoTransfer.CancelButtonCaption = Nothing + Me.aBankNoTransfer.Caption = "Save electra format HUF" + Me.aBankNoTransfer.ConfirmationMessage = "Do you want to execute command ?" + Me.aBankNoTransfer.Id = "aBankNoTransfer" + Me.aBankNoTransfer.ImageName = Nothing + Me.aBankNoTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBankNoTransfer.Shortcut = Nothing + Me.aBankNoTransfer.Tag = Nothing + Me.aBankNoTransfer.TargetObjectsCriteria = Nothing + Me.aBankNoTransfer.TargetViewId = "RegistryBankTransfer_ListView_Not_Transfered" + Me.aBankNoTransfer.ToolTip = Nothing + Me.aBankNoTransfer.TypeOfView = Nothing + ' + 'aViewPDCI_Bank + ' + Me.aViewPDCI_Bank.Caption = "View PDCI" + Me.aViewPDCI_Bank.Category = "View" + Me.aViewPDCI_Bank.ConfirmationMessage = Nothing + Me.aViewPDCI_Bank.Id = "aViewPDCI_Bank" + Me.aViewPDCI_Bank.ImageName = Nothing + Me.aViewPDCI_Bank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPDCI_Bank.Shortcut = Nothing + Me.aViewPDCI_Bank.Tag = Nothing + Me.aViewPDCI_Bank.TargetObjectsCriteria = Nothing + Me.aViewPDCI_Bank.TargetViewId = "" + Me.aViewPDCI_Bank.ToolTip = Nothing + Me.aViewPDCI_Bank.TypeOfView = Nothing + + End Sub + Friend WithEvents aSaveElectraDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSaveElectraHUF As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackFromPackage As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBankDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBankMerge As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_Bank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBankPrepareName As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBankNoTransfer As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPDCI_Bank As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.resx new file mode 100644 index 0000000..90327dc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 290 + + + 17, 368 + + + 17, 329 + + + 17, 251 + + + 17, 212 + + + 17, 173 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb new file mode 100644 index 0000000..7a34cbf --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankVC.vb @@ -0,0 +1,722 @@ +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 System.IO +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Xpo +Imports SISBusiness.Module +Public Class BankVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As ArrayList + Protected _selection_group As ArrayList + Protected _noselect As Boolean = False + Public Sub New() + MyBase.New() + _selection = New ArrayList() + _selection_group = New ArrayList + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", False) + Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", False) + Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", False) + Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False) + If View.Id Like "RegistryBankTransfer_ListView*" Then + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + + Frame.GetController(Of BankVC).aViewAttachments_Bank.Active.SetItemValue("", True) + Frame.GetController(Of BankVC).aViewRegistry.Active.SetItemValue("", True) + Frame.GetController(Of BankVC).aViewPDCI_Bank.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "GLBankDivide_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "BankParameterDEV_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then + Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", True) + Frame.GetController(Of BankVC).aBankMerge.Active.SetItemValue("", True) + End If + + If View.Id = "BankNoTransferPopup" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "RegistryBankTransfer_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "GLBankDivide_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "BankParameterDEV_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "RegistryBankTransfer_ListView" Then + Frame.GetController(Of BankVC).aBankDivide.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True) + End If + End Sub +#Region "Bank save" 'Banki kommunikáció + Private Sub DownloadToMKBHUF(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV) + Dim _Bank_AccountNumber_CustomersFrom As String = _BankParameterDEV.BankInformation.AccountNumber + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _DocumentNumber As String + Dim _Note As String + Dim I As Long + Dim _BankString As String + Dim _Today As String + Dim _Customers_Name As String + Dim _CustomersFrom_Name As String + Dim _Bank_AccountNumber_Customers As String + Dim _Amount As String + Dim _FileName As String + + + If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub + + '------------------------------------------------------------------------------------------- + _Today = Format(Year(_BankParameterDEV.DateExecution), "0000") + _Today = _Today & Format(Month(_BankParameterDEV.DateExecution), "00") + _Today = _Today & Format(Day(_BankParameterDEV.DateExecution), "00") + + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid) + + If _BankParameterDEV.CustomFileName = "" Then + _FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _ + "_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".HUF" + Else + _FileName = _BankParameterDEV.CustomFileName + End If + + Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite) + + Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII) + + For I = 0 To _selection.Count - 1 + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid) + If _RegistryBankTransfer.IsBlocked = False Then + _CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.Name + If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then + _RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName + _ocur.Session.FlushChanges() + End If + _Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name + _Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "") + _Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24) + _Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47) + + '-- Letöltésre kerülő összeg ! + + _Amount = LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountHUF), 0, MidpointRounding.AwayFromZero)))) & ",00" + + _DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber + _Note = _RegistryBankTransfer.Note + _Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32) + _Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13) + + _BankString = "PAYORD" + _BankString = _BankString & "DO" + _BankString = _BankString & "20000101000000" + + _BankString = _BankString & Replace(AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47), "00000000", " ") + _BankString = _BankString & "0" + _BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 32)) + _BankString = _BankString & AlignStr(" ", 0, " ", 117) + + _BankString = _BankString & _Bank_AccountNumber_Customers + _BankString = _BankString & "0" + _BankString = _BankString & AlignStr(" ", 0, " ", 64) + _BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32)) + + _BankString = _BankString & AlignStr(" ", 0, " ", 229) + + _BankString = _BankString & ANSITo852(AlignStr(_DocumentNumber, 1, " ", 32)) + _BankString = _BankString & ANSITo852(AlignStr(_Note, 1, " ", 64)) + _BankString = _BankString & ANSITo852(AlignStr(" ", 0, " ", 6)) + + _BankString = _BankString & AlignStr(" ", 0, " ", 90) + _BankString = _BankString & "1111" + _BankString = _BankString & AlignStr(" ", 0, " ", 17) + + _BankString = _BankString & "HUF" + _BankString = _BankString & "0" + _BankString = _BankString & AlignStr(_Amount, 0, " ", 13) + + _BankString = _BankString & AlignStr(" ", 0, " ", 12) + + _BankString = _BankString & AlignStr(_Today, 0, " ", 8) + + _BankString = _BankString & AlignStr(" ", 0, " ", 95) + + _BankString = _BankString & "00" & Chr(13) & Chr(10) + + _StreamWriter.Write(_BankString) + _RegistryBankTransfer.BankSavedFileName = _FileName + _RegistryBankTransfer.Save() + End If + Next I + _StreamWriter.Close() + _BankParameterDEV.TransferTotalDEV = 0 + _BankParameterDEV.TransferCount = 0 + _BankParameterDEV.TransferTotalHUF = 0 + _BankParameterDEV.BankInformation = Nothing + _BankParameterDEV.Save() + e.PopupWindow.View.ObjectSpace.CommitChanges() + _ocur.CommitChanges() + End Sub + Private Sub DownloadToMKBDEV(ByVal _View As View, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BankParameterDEV As BankParameterDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), BankParameterDEV) + Dim _Bank_AccountNumber_CustomersFrom As String + Dim _Bank_AccountNumber_Customers As String + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _DocumentNumber As String + Dim _Note As String + Dim I As Long + Dim _BankString As String + Dim _Today As String + Dim _Customers_Name As String + Dim _CustomersFrom_Name As String + Dim _FileName As String + Dim _Amount As String + + If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub + + '------------------------------------------------------------------------------------------- + _Today = Format(Year(_BankParameterDEV.DateExecution), "0000") & Format(Month(_BankParameterDEV.DateExecution), "00") & Format(Day(_BankParameterDEV.DateExecution), "00") + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(0), RegistryBankTransferView).Oid) + _FileName = Replace(Replace(Mid(_RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName, 1, 10), ".", "_"), " ", "_") & _ + "_" & _Today & Replace(Format(Now, "hh:mm"), ":", "") & ".DEV" + + _CustomersFrom_Name = _RegistryBankTransfer.RegistryHeader.CustomersFrom.FullName + _Bank_AccountNumber_CustomersFrom = Replace(_BankParameterDEV.BankInformation.AccountNumber, "-", "") + _Bank_AccountNumber_CustomersFrom = AlignStr(_Bank_AccountNumber_CustomersFrom, eDirection.Right, "0", 24) + _Bank_AccountNumber_CustomersFrom = AlignStr(Replace(_Bank_AccountNumber_CustomersFrom, "-", ""), 1, " ", 47) + + Dim _FileStream As New FileStream(_BankParameterDEV.FolderName & "/" & _FileName, FileMode.Create, FileAccess.ReadWrite) + Dim _StreamWriter As New StreamWriter(_FileStream, System.Text.Encoding.ASCII) + + For I = 0 To _selection.Count - 1 + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(I), RegistryBankTransferView).Oid) + If _RegistryBankTransfer.IsBlocked = False Then + If _RegistryBankTransfer.RegistryHeader.Customers.Name = "" Then + _RegistryBankTransfer.RegistryHeader.Customers.Name = _RegistryBankTransfer.RegistryHeader.Customers.FullName + _ocur.Session.FlushChanges() + End If + _Customers_Name = _RegistryBankTransfer.RegistryHeader.Customers.Name + _Bank_AccountNumber_Customers = Replace(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.AccountNumber, "-", "") + _Bank_AccountNumber_Customers = AlignStr(_Bank_AccountNumber_Customers, eDirection.Right, "0", 24) + _Bank_AccountNumber_Customers = AlignStr(Replace(_Bank_AccountNumber_Customers, "-", ""), 1, " ", 47) + + '_Amount = Replace(LTrim(RTrim(CStr(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero)))), ".", "") + + _Amount = Replace(LTrim(RTrim(Format(Math.Round((TryCast(_selection(I), RegistryBankTransferView).AmountDEV), 2, MidpointRounding.AwayFromZero), "0.00"))), ",", "") + + _DocumentNumber = _RegistryBankTransfer.RegistryHeader.DocumentNumber + _Note = _RegistryBankTransfer.Note + _Customers_Name = AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 32) + _Amount = AlignStr(Replace(_Amount, ".", ""), 0, "0", 13) ' A replace-re nem biztos, hogy szükség van. + + 'Tranzakció + _BankString = "PAYORD" 'Rekord típus. + _BankString = _BankString & "IN" 'Devizaátutalás. + _BankString = _BankString & _Today & "000000" 'Azonosító. + + 'Fealadó + _BankString = _BankString & _Bank_AccountNumber_CustomersFrom 'Számlaszám. + _BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9. + _BankString = _BankString & ANSITo852(AlignStr(Replace(_CustomersFrom_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Feladó neve. + + _BankString = _BankString & AlignStr(" ", 1, " ", 9) 'A következő mezőnek a 220. pozíción kell kezdődnie. + + 'Címzett + _BankString = _BankString & _Bank_AccountNumber_Customers 'Számlaszám. + _BankString = _BankString & "0" 'Számlaszám típusa: 24 jegyű GIRO számlaszám esetén 0, nemzetközi számlaszám esetén 9. + _BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.ShortName, 1, " ", 64) 'Bank neve. + _BankString = _BankString & ANSITo852(AlignStr(Replace(_Customers_Name, Chr(13) & Chr(10), " "), 1, " ", 140)) 'Címzett neve. + _BankString = _BankString & "HU" 'Országkód - a régi rendszerben is így volt... + _BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CustomerBankAccounts.SWIFT, 0, " ", 15) 'SWIFT kód. + _BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Levelező bank. + + 'Megjegyzés. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Rezidens (Y/N). + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'SWIFT üzenetről másolatot kér (Y/N). + _BankString = _BankString & AlignStr(" ", 1, " ", 15) 'Fax szám, ahova a SWIFT másolatot kéri. + _BankString = _BankString & AlignStr(" ", 1, " ", 16) 'Kitöltő karakterek. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Nem kér egyedi árfolyamot (Y/N). + _BankString = _BankString & AlignStr(" ", 1, " ", 35) 'Banknak szóló közlemény, nem használt. + _BankString = _BankString & AlignStr(" ", 1, " ", 95) 'Közlemény. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter. + + 'Stat. információ. + _BankString = _BankString & AlignStr(" ", 1, " ", 4) 'Jogcímkód. + _BankString = _BankString & AlignStr(" ", 1, " ", 60) 'Kitöltő karakterekek. + _BankString = _BankString & AlignStr(" ", 1, " ", 24) 'Dev. eng. száma. + _BankString = _BankString & AlignStr(" ", 1, " ", 8) 'Dev. eng. dátuma. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés használata. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Sürgős teljesítés. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'VIBER. + _BankString = _BankString & AlignStr(" ", 1, " ", 1) 'Kitöltő karakter. + + 'Összeg. + _BankString = _BankString & AlignStr(_BankParameterDEV.CurrencyName.ShortName, 1, " ", 3) 'Kifizetendő deviza - a popupról vesszük. + _BankString = _BankString & AlignStr(" ", 1, " ", 14) 'Kitöltő karakterekek. + _BankString = _BankString & AlignStr(_RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName, 1, " ", 3) 'Átutalandó deviza. + _BankString = _BankString & "2" 'Tizedesjegyek száma. + _BankString = _BankString & AlignStr(_Amount, 0, "0", 13) 'Átutalandó összeg. + _BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek. + + 'Dátum. + _BankString = _BankString & _Today 'Valutanap. + _BankString = _BankString & AlignStr(" ", 1, " ", 12) 'Kitöltő karakterekek. + + 'Egyéb. + _BankString = _BankString & _BankParameterDEV.BankCost 'Költségviselés. + _BankString = _BankString & AlignStr(" ", 1, " ", 82) 'Kitöltő karakterekek. + _BankString = _BankString & "00" 'Státusz. + + 'Rekordelválasztó + _BankString = _BankString & Chr(13) & Chr(10) + + _StreamWriter.Write(_BankString) + _RegistryBankTransfer.BankSavedFileName = _FileName + _RegistryBankTransfer.Save() + End If + Next I + _StreamWriter.Close() + _BankParameterDEV.TransferTotalDEV = 0 + _BankParameterDEV.TransferCount = 0 + _BankParameterDEV.TransferTotalHUF = 0 + _BankParameterDEV.BankInformation = Nothing + _BankParameterDEV.Save() + e.PopupWindow.View.ObjectSpace.CommitChanges() + _ocur.CommitChanges() + End Sub + Private Function ANSITo852(ByVal S As String) As String + '[ü] 129 08/01 201 81 u diaeresis + '[é] 130 08/02 202 82 e acute + '[Ő] 138 08/10 212 8A O double acute accent + '[ő] 139 08/11 213 8B o double acute accent + '[É] 144 09/00 220 90 E acute + '[ĺ] 146 09/02 222 92 l acute + '[ö] 148 09/04 224 94 o diaeresis + '[Ö] 153 09/09 231 99 O diaeresis + '[Ü] 154 09/10 232 9A U diaeresis + '[á] 160 10/00 240 A0 a acute + '[í] 161 10/01 241 A1 i acute + '[ó] 162 10/02 242 A2 o acute + '[ú] 163 10/03 243 A3 u acute + '[Á] 181 11/05 265 B5 A acute + '[Í] 214 13/06 326 D6 I acute + '[Ó] 224 14/00 340 E0 O acute + '[Ú] 233 14/09 351 E9 U acute + '[Ű] 235 14/11 353 EB U double acute + '[ű] 251 15/11 373 FB u double acute + + Dim I As Integer + Dim seged As String + Dim ch As String + + seged = "" + For I = 1 To Len(S) + ch = Mid(S, I, 1) + Select Case ch + 'Case "ó" : ch = Chr(162) + 'Case "ű" : ch = Chr(251) + 'Case "ú" : ch = Chr(163) + 'Case "ő" : ch = Chr(139) + 'Case "á" : ch = Chr(160) + 'Case "é" : ch = Chr(130) + 'Case "í" : ch = Chr(161) + 'Case "ü" : ch = Chr(129) + 'Case "ű" : ch = Chr(129) + 'Case "Ó" : ch = Chr(224) + 'Case "Ű" : ch = Chr(235) + 'Case "Ú" : ch = Chr(233) + 'Case "Ő" : ch = Chr(138) + 'Case "Á" : ch = Chr(181) + 'Case "É" : ch = Chr(144) + 'Case "Í" : ch = Chr(214) + 'Case "Ü" : ch = Chr(154) + 'Case "Ű" : ch = Chr(154) + Case "ö" : ch = "o" + Case "ó" : ch = "o" + Case "ű" : ch = "u" + Case "ú" : ch = "u" + Case "ő" : ch = "o" + Case "á" : ch = "a" + Case "é" : ch = "e" + Case "í" : ch = "i" + Case "ü" : ch = "u" + Case "ű" : ch = "u" + Case "Ó" : ch = "O" + Case "Ű" : ch = "u" + Case "Ú" : ch = "U" + Case "Ő" : ch = "O" + Case "Á" : ch = "A" + Case "É" : ch = "E" + Case "Í" : ch = "I" + Case "Ü" : ch = "U" + Case "Ű" : ch = "U" + Case "Ö" : ch = "O" + End Select + seged = seged & ch + Next I + ANSITo852 = seged + End Function +#End Region + + Private Sub aSaveElectraHUF_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraHUF.Cancel + _noselect = False + End Sub + Private Sub aSaveElectraHUF_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraHUF.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BankParameterDEV As BankParameterDEV + Dim _TransferTotalDEV As Double = 0 + Dim _TransferTotalHUF As Double = 0 + Dim _RegistryBankTransferView As RegistryBankTransferView + Dim I As Long + + If IsSameCustomerFrom(_selection) = False Then + Throw New UserFriendlyException("Csak azonos Saját cég esetén választható ez a funkció!") + End If + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + _BankParameterDEV = _ocur.FindObject(Of BankParameterDEV)(CriteriaOperator.Parse("CurrencyName.ShortName='HUF'"), True) + If _BankParameterDEV Is Nothing Then _BankParameterDEV = _ocur.CreateObject(Of BankParameterDEV)() + + _BankParameterDEV.DateExecution = Now + _BankParameterDEV.TransferTotalDEV = 0 + _BankParameterDEV.TransferCount = 0 + _BankParameterDEV.TransferTotalHUF = 0 + _BankParameterDEV.TransferCount = _selection.Count + _BankParameterDEV.CustomFileName = "" + For I = 0 To _selection.Count - 1 + _RegistryBankTransferView = TryCast(_selection(I), RegistryBankTransferView) + If _RegistryBankTransferView.IsBlocked = False Then + If I = 0 Then _BankParameterDEV.CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom + _TransferTotalHUF += _RegistryBankTransferView.AmountHUF + _TransferTotalDEV += _RegistryBankTransferView.AmountDEV + End If + Next I + _BankParameterDEV.TransferTotalDEV = _TransferTotalDEV + _BankParameterDEV.TransferTotalHUF = _TransferTotalHUF + + _noselect = True + _BankParameterDEV.Save() + _ocur.CommitChanges() + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + Dim _BankParameterDEV_New As BankParameterDEV = _onew.GetObject(_BankParameterDEV) + e.View = Application.CreateDetailView(_onew, "BankParameterDEV_DetailView", False, _BankParameterDEV_New) + + End Sub + Private Sub aSaveElectraHUF_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraHUF.Execute + Me.DownloadToMKBHUF(View, e) + _selection.Clear() + _noselect = False + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aSaveElectraDEV_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveElectraDEV.Execute + Me.DownloadToMKBDEV(View, e) + _selection.Clear() + _noselect = False + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Function IsSameCustomerFrom(ByVal _selection As ArrayList) As Boolean + Dim _RegistryBankTransferView = TryCast(_selection(0), RegistryBankTransferView) + + For I As Int32 = 1 To _selection.Count - 1 + If _RegistryBankTransferView.RegistryHeader.CustomersFrom.Oid <> _selection(I).RegistryHeader.CustomersFrom.Oid Then + Return False + End If + Next + + Return True + End Function + + Private Sub aSaveElectraDEV_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSaveElectraDEV.Cancel + _noselect = False + End Sub + + Private Sub aSaveElectraDEV_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveElectraDEV.CustomizePopupWindowParams + aSaveElectraHUF_CustomizePopupWindowParams(sender, e) + End Sub + + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _RegistryBankTransferView As RegistryBankTransferView + If View.Id Like "RegistryBankTransfer_ListView*" And _noselect = False Then + _selection.Clear() + For Each _RegistryBankTransferView In View.SelectedObjects + _selection.Add(_RegistryBankTransferView) + Next + End If + End Sub + + Private Sub aBackFromPackage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackFromPackage.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _RegistryBankTransfer As RegistryBankTransfer + + For I = 0 To View.SelectedObjects.Count - 1 + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid) + _RegistryBankTransfer.BankSavedFileName = "" + _RegistryBankTransfer.Save() + Next I + View.ObjectSpace.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aViewRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView) + + If _RegistryBankTransferView IsNot Nothing Then + Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_RegistryBankTransferView.Oid) + If _RegistryBankTransfer IsNot Nothing Then + Dim _RegistryHeader As RegistryHeader = _onew.GetObject(_RegistryBankTransfer.RegistryHeader) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RegistryHeader_DetailView_BankTransfer", False, _RegistryHeader) + End If + + End If + + End Sub + + Private Sub aBankDivide_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankDivide.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLBankDivide As GLBankDivide = _onew.CreateObject(Of GLBankDivide)() + Dim _RegistryBankTransfer As RegistryBankTransfer = _onew.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid) + _GLBankDivide.RegistryBankTransfer_AmountDEV = _RegistryBankTransfer.AmountDEV + _GLBankDivide.RegistryBankTransfer_AmountHUF = _RegistryBankTransfer.AmountHUF + _GLBankDivide.RegistryBankTransfer_RegistryHeader_CurrencyName = _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName + _GLBankDivide.Note = _RegistryBankTransfer.Note + e.View = Application.CreateDetailView(_onew, "GLBankDivide_DetailView", False, _GLBankDivide) + End Sub + + Private Sub aBankDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankDivide.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBankDivide As GLBankDivide = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankDivide) + + Dim _oid_RegistryBankTransfer As Guid = TryCast(View.SelectedObjects(0), RegistryBankTransferView).Oid + Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid_RegistryBankTransfer) + + If Not _RegistryBankTransfer.RegistryHeader.BruttoAmountRemainingBank = 0 Then + Throw New Exception("*A számla banki csomagjai nem fedik a számla teljes összegét, kérem ellenőrizze!") + End If + + If _GLBankDivide.AmountDEV > _RegistryBankTransfer.AmountDEV Or _GLBankDivide.AmountHUF > _RegistryBankTransfer.AmountHUF Then + Throw New Exception("*A megadott adatok meghaladják a csomag értékét!") + End If + + If _GLBankDivide.AmountPercent > 0 Then + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader + _RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer.AmountHUF * (_GLBankDivide.AmountPercent / 100)), 0, MidpointRounding.AwayFromZero) + If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _RegistryBankTransfer_New.AmountDEV = Math.Round(_RegistryBankTransfer.AmountDEV * (_GLBankDivide.AmountPercent / 100), 0, MidpointRounding.AwayFromZero) + _RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 0, MidpointRounding.AwayFromZero) + End If + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + _RegistryBankTransfer_New.Save() + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV + End If + _RegistryBankTransfer.Save() + + ElseIf _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" And _GLBankDivide.AmountHUF > 0 Then + + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader + _RegistryBankTransfer_New.AmountHUF = _GLBankDivide.AmountHUF + + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + _RegistryBankTransfer_New.Save() + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + + _RegistryBankTransfer.Save() + + Else + + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _RegistryBankTransfer.RegistryHeader + _RegistryBankTransfer_New.AmountDEV = _GLBankDivide.AmountDEV + _RegistryBankTransfer_New.AmountHUF = _RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate + + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + _RegistryBankTransfer_New.Save() + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + _RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV + _RegistryBankTransfer.Save() + + End If + + '_GLBankDivide. + _ocur.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aBankMerge_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankMerge.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryBankTransfer As RegistryBankTransfer = Nothing + Dim _RegistryBankTransfer_Base As RegistryBankTransfer = Nothing + + Dim _DelArray As New ArrayList + Dim _AmountHUF As Double = 0 + Dim _AmountDEV As Double = 0 + + Dim _oid As Guid + _DelArray.Clear() + If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub + For I = 0 To _selection.Count - 1 + _oid = TryCast(_selection(I), RegistryBankTransferView).Oid + If I = 0 Then + _RegistryBankTransfer_Base = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid) + Else + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(_oid) + If _RegistryBankTransfer.RegistryHeader.Oid = _RegistryBankTransfer_Base.RegistryHeader.Oid Then + _AmountDEV += _RegistryBankTransfer.AmountDEV + _AmountHUF += _RegistryBankTransfer.AmountHUF + _DelArray.Add(_RegistryBankTransfer) + End If + End If + + Next + _RegistryBankTransfer_Base.AmountHUF += _AmountHUF + _RegistryBankTransfer_Base.AmountDEV += _AmountDEV + + For i = 0 To _DelArray.Count - 1 + _ocur.Delete(_DelArray(i)) + Next + + _ocur.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aViewAttachments_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Bank.Execute + Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView) + Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers + Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + + End Sub + + Private Sub aBankPrepareName_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankPrepareName.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView) + Dim _GLBankPrepareName As GLBankPrepareName = _onew.CreateObject(Of GLBankPrepareName)() + If _RegistryBankTransferView.BankPrepareName IsNot Nothing Then + _GLBankPrepareName.BankPrepareName = _RegistryBankTransferView.BankPrepareName + End If + e.View = Application.CreateDetailView(_onew, "GLBankPrepareName_DetailView", False, _GLBankPrepareName) + End Sub + + Private Sub aBankPrepareName_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankPrepareName.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBankPrepareName As GLBankPrepareName = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankPrepareName) + Dim _RegistryBankTransfer As RegistryBankTransfer + + For I = 0 To View.SelectedObjects.Count - 1 + _RegistryBankTransfer = _ocur.GetObjectByKey(Of RegistryBankTransfer)(TryCast(View.SelectedObjects(I), RegistryBankTransferView).Oid) + _RegistryBankTransfer.BankPrepareName = _GLBankPrepareName.BankPrepareName + _RegistryBankTransfer.Save() + Next I + View.ObjectSpace.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aBankNoTransfer_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankNoTransfer.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BankNoTransferPopup As BankNoTransferPopup = _onew.CreateObject(Of BankNoTransferPopup)() + e.View = Application.CreateDetailView(_onew, "BankNoTransferPopup_DetailView", False, _BankNoTransferPopup) + End Sub + + Private Sub aBankNoTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankNoTransfer.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim i As Long = 0 + Dim _BankNoTransferPopup As BankNoTransferPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), BankNoTransferPopup) + + If _selection Is Nothing Or _selection.Count <= 0 Then Exit Sub + For i = 0 To _selection.Count - 1 + _RegistryBankTransfer = _uow.GetObjectByKey(Of RegistryBankTransfer)(TryCast(_selection(i), RegistryBankTransferView).Oid) + _RegistryBankTransfer.BankSavedFileName = _BankNoTransferPopup.Description + Next i + _uow.CommitChanges() + _selection.Clear() + _noselect = False + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aViewPDCI_Bank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPDCI_Bank.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryBankTransferView As RegistryBankTransferView = TryCast(View.SelectedObjects(0), RegistryBankTransferView) + Dim _CustomersFrom As CustomersFrom = _RegistryBankTransferView.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RegistryBankTransferView.RegistryHeader.Customers + Dim _DocumentNumber As String = _RegistryBankTransferView.RegistryHeader.DocumentNumber + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _CustomersFrom, _Customers, 1, _DocumentNumber) + + End Sub +End Class + +'ReadOnly Property BallanceHUF As Double +' Get +' Dim _PCIGroup As PCIGroup = _ +' Session.FindObject(Of PCIGroup) _ +' (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=1 and ConnectInfo=?", _ +' Me.RegistryHeader.CustomersFrom, Me.RegistryHeader.Customers, Me.RegistryHeader.DocumentNumber), True) +' If _PCIGroup IsNot Nothing Then +' Return _PCIGroup.BallanceHUF +' Else +' Return Me.RegistryHeader.F_AmountBruttoHUF +' End If +' End Get +'End Property \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb new file mode 100644 index 0000000..c015516 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLBankVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb new file mode 100644 index 0000000..3169d1b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb @@ -0,0 +1,84 @@ +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.Win.SystemModule +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors + +Public Class GLBankVC + Inherits SISBusiness.Module.GLBankVC + Private _GridListEditor As GridListEditor + Dim _WaitFormClass As New WaitFormClass + + 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 = "GLBank_DetailView" Or View.Id = "GLBank_GLRows_ListView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoRollback + End If + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "GLBank_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLBank_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + If View.Id = "GLBank_DetailView" Then + Beep() + End If + End Sub + Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim gridView As GridView = TryCast(sender, GridView) + If View.SelectedObjects.Count = 1 Then + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + If _GLBank Is Nothing Then + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + If _GLBank.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + ElseIf View.SelectedObjects.Count > 1 Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + End Sub + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb new file mode 100644 index 0000000..7a4a6bf --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class GLBaseVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aUpdateRolling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aUpdateRolling + ' + Me.aUpdateRolling.Caption = "aUpdate Rolling" + Me.aUpdateRolling.ConfirmationMessage = Nothing + Me.aUpdateRolling.Id = "aUpdateRolling" + Me.aUpdateRolling.ImageName = Nothing + Me.aUpdateRolling.Shortcut = Nothing + Me.aUpdateRolling.Tag = Nothing + Me.aUpdateRolling.TargetObjectsCriteria = Nothing + Me.aUpdateRolling.TargetObjectType = GetType(SISBusiness.[Module].GLDetails) + Me.aUpdateRolling.TargetViewId = Nothing + Me.aUpdateRolling.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aUpdateRolling.ToolTip = Nothing + Me.aUpdateRolling.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aUpdateRolling As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx new file mode 100644 index 0000000..3fb111e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb new file mode 100644 index 0000000..0739aae --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb @@ -0,0 +1,85 @@ +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.Win.Editors +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Columns + +Public Class GLBaseVC + Inherits SISBusiness.Module.GLBaseVC + Dim _WaitFormClass as New WaitFormClass + Private _GridView As GridView + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + If View.Id = "GLDetails_ListView" Then + AddHandler View.ControlsCreated, AddressOf View_ControlsCreated + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + Private Sub View_ControlsCreated(sender As Object, e As EventArgs) + Dim _GridListEditor As GridListEditor = DirectCast(DirectCast(View, ListView).Editor, GridListEditor) + + _GridView = DirectCast(DirectCast(View, ListView).Editor, GridListEditor).GridView + + If _GridView IsNot Nothing Then + 'Dim unbColumn As GridColumn = _GridView.Columns.AddField("AmountHUF_Rolling") + 'unbColumn.VisibleIndex = _GridView.Columns.Count + 'unbColumn.UnboundType = DevExpress.Data.UnboundColumnType.Decimal + 'unbColumn.OptionsColumn.AllowEdit = False + 'unbColumn.DisplayFormat.FormatString = "{0:#,##0}" + + + End If + End Sub + + + + Private Sub aUpdateRolling_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aUpdateRolling.Execute + + Dim _Prev_AccountNumber As String = "" + Dim _Act_AccountNumber As String = "" + Dim _AmountHUF_Rolling As Double = 0 + Try + Dim _DataRowCount As Integer = _GridView.DataRowCount + + _WaitFormClass.Initwork(1, 1, _DataRowCount) + For i = 0 To _DataRowCount - 1 + _WaitFormClass.DoWork() + Dim _GLDetails As GLDetails = TryCast(_GridView.GetRow(i), GLDetails) + _Act_AccountNumber = _GLDetails.ChartOfAccounts.AccountNumber + If _Act_AccountNumber <> _Prev_AccountNumber Then + _AmountHUF_Rolling = 0 + _Prev_AccountNumber = _Act_AccountNumber + End If + _AmountHUF_Rolling += _GLDetails.AmountHUF_Ballance + _GLDetails.AmountHUF_Rolling = _AmountHUF_Rolling + Next + Finally + _Waitformclass.FinalWork + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.Designer.vb new file mode 100644 index 0000000..c50553e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLRowsDivideVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.vb new file mode 100644 index 0000000..e9778e4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/PopUp/GLRowsDivideVC.vb @@ -0,0 +1,62 @@ +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.Win.Editors +Imports DevExpress.XtraGrid.Columns + +Public Class GLRowsDivideVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then + _GridListEditor = TryCast(View.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + '_GridListEditor.AllowEdit = True + 'For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "AmountHUF" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "AmountDEV" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + 'Next i + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf _CellValueChanged + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf _CellValueChanged + End If + End If + End Sub + + Private Sub _CellValueChanged(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + If TryCast(e.Column, GridColumn).FieldName = "AmountHUF" Or _ + TryCast(e.Column, GridColumn).FieldName = "AmountDEV" Then + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + parentView.ObjectSpace.Refresh() + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb new file mode 100644 index 0000000..be5e497 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class BookEntryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb new file mode 100644 index 0000000..90643ab --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports SISBusiness.Module + +Public Class BookEntryVC + Inherits SISBusiness.Module.BookEntryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb new file mode 100644 index 0000000..048d491 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLCassaVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb new file mode 100644 index 0000000..6e1eeb2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb @@ -0,0 +1,89 @@ +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors + +Public Class GLCassaVC + Inherits DevExpress.ExpressApp.ViewController + Private _GridListEditor As GridListEditor + + 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 = "GLCassa_DetailView" Or View.Id = "GLCassa_GLRows_ListView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLCassa_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLCassa_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + + 'If View.Id = "GLRows_ListView_Cassa" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + + ' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + + ' Next + + ' End If + 'End If + + End Sub + Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim gridView As GridView = TryCast(sender, GridView) + If View.SelectedObjects.Count = 1 Then + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + If _GLCassa Is Nothing Then + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + If _GLCassa.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + ElseIf View.SelectedObjects.Count > 1 Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb new file mode 100644 index 0000000..a2a91ac --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLCompensationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb new file mode 100644 index 0000000..4715134 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb @@ -0,0 +1,100 @@ +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors + +Public Class GLCompensationVC + Inherits DevExpress.ExpressApp.ViewController + Private _GridListEditor As GridListEditor + + 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 = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + If View.Id = "GLHeader_GLRows_ListView_Compensation" Then + Frame.GetController(Of ToolbarVisibilityController).Active.SetItemValue("", False) + Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLCompensation_DetailView" Or View.Id = "GLCompensation_GLRows_ListView" Then + Frame.GetController(Of ToolbarVisibilityController)().Active.SetItemValue("", True) + End If + If View.Id = "GLHeader_GLRows_ListView_Compensation" Then + Frame.GetController(Of ToolbarVisibilityController).SetToolbarVisibility(True) + End If + + If View.Id = "GLCompensation_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + RemoveHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLCompensation_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + + 'If View.Id = "GLRows_ListView_Compensation" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + + ' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + + ' Next + + ' End If + 'End If + + End Sub + Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim gridView As GridView = TryCast(sender, GridView) + If View.SelectedObjects.Count = 1 Then + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + If _GLCompensation Is Nothing Then + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + If _GLCompensation.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + ElseIf View.SelectedObjects.Count > 1 Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.Designer.vb new file mode 100644 index 0000000..99b712d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class FixedAssetsCardVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.vb new file mode 100644 index 0000000..930957e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsCardVC.vb @@ -0,0 +1,39 @@ +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 FixedAssetsCardVC + Inherits SISBusiness.Module.FixedassetsCardVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.Designer.vb new file mode 100644 index 0000000..20d8df3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class FixedAssetsQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.vb new file mode 100644 index 0000000..539688b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/FixedAssets/FixedAssetsQueryVC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base + +Public Class FixedAssetsQueryVC + Inherits SISBusiness.Module.FixedAssetsQueryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.Designer.vb new file mode 100644 index 0000000..b6fd3df --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class GIROInfo_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGIROInfo_ImportXLS = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGIROInfo_ImportXLS + ' + Me.aGIROInfo_ImportXLS.Caption = "aGIROInfo_ImportXLS" + Me.aGIROInfo_ImportXLS.ConfirmationMessage = Nothing + Me.aGIROInfo_ImportXLS.Id = "aGIROInfo_ImportXLS" + Me.aGIROInfo_ImportXLS.ImageName = Nothing + Me.aGIROInfo_ImportXLS.Shortcut = Nothing + Me.aGIROInfo_ImportXLS.Tag = Nothing + Me.aGIROInfo_ImportXLS.TargetObjectsCriteria = Nothing + Me.aGIROInfo_ImportXLS.TargetObjectType = GetType(SISBusiness.[Module].GIROInfo) + Me.aGIROInfo_ImportXLS.TargetViewId = Nothing + Me.aGIROInfo_ImportXLS.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGIROInfo_ImportXLS.ToolTip = Nothing + Me.aGIROInfo_ImportXLS.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGIROInfo_ImportXLS As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.resx new file mode 100644 index 0000000..f4eec4d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.vb new file mode 100644 index 0000000..917dda3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/GIROInfo_VC.vb @@ -0,0 +1,93 @@ +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 System.Windows.Forms +Imports System.Data.OleDb + +Public Class GIROInfo_VC + Inherits DevExpress.ExpressApp.ViewController + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aGIROInfo_ImportXLS_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGIROInfo_ImportXLS.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _cs As String = "" + Dim _GIROID_Array As New ArrayList + Dim _ShortName_Array As New ArrayList + Dim _ZIPCode_Array As New ArrayList + Dim _Address_Array As New ArrayList + + Dim _OpenFileDialog As New OpenFileDialog + _OpenFileDialog.Filter = "xls Files (.xls)|*.xls|xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*" + _OpenFileDialog.FilterIndex = 1 + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK And (Not String.IsNullOrEmpty(_OpenFileDialog.FileName)) Then + Dim _xlsFile As String = _OpenFileDialog.FileName + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=" & _xlsFile.ToString & ";" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + Dim _UpdatedCount As Long = 0 + + Try + mSQL = "select * from [" + IO.Path.GetFileNameWithoutExtension(_xlsFile) + "$]" '[Munka1$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr.Read + If Not String.IsNullOrEmpty(dr(0).ToString) Then + + _GIROID_Array.Add(dr(0).ToString) 'ID + _ShortName_Array.Add(dr(1).ToString) 'shortname + _ZIPCode_Array.Add(dr(2).ToString) 'zipcode + _Address_Array.Add(dr(3).ToString) 'adddress + End If + End While + + dr.Close() + End If + conn.Close() + Catch ex As Exception + MsgBox(ex.Message) + conn.Close() + End Try + End If + _WaitFormClass.InitWork(1, 1, _GIROID_Array.Count) + Dim _ActIndex As Long = 0 + For Each _ID As String In _GIROID_Array + _WaitFormClass.DoWork + Dim _GIROInfo As GIROInfo = _ocur.FindObject(Of GIROInfo)(DevExpress.Data.Filtering.CriteriaOperator.Parse("GIROID=?", _GIROID_Array(_ActIndex))) + If _GIROInfo Is Nothing Then + _GIROInfo = New GIROInfo(_ocur.Session) + With _GIROInfo + _GIROInfo.GIROID = _GIROID_Array(_ActIndex) + _GIROInfo.ShortName = _ShortName_Array(_ActIndex) + _GIROInfo.Address = _ZIPCode_Array(_ActIndex) + " " + _Address_Array(_ActIndex) + End With + End If + _ActIndex += 1 + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb new file mode 100644 index 0000000..0a3803f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class LiquidAssetsBallanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb new file mode 100644 index 0000000..08df1fe --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb @@ -0,0 +1,45 @@ +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.Win.SystemModule + +Public Class LiquidAssetsBallanceVC + Inherits SISBusiness.Module.LiquidAssetsBallanceVC + Private worker As WinModificationsController + Dim _WaitFormClass As New WaitFormClass + 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 = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then + worker = Frame.GetController(Of WinModificationsController)() + worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.Confirmation + End If + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then + worker = Frame.GetController(Of WinModificationsController)() + worker.ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb new file mode 100644 index 0000000..50b24d3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class LiquidAssetsReturnVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb new file mode 100644 index 0000000..5bd4867 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb @@ -0,0 +1,58 @@ +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.Win.Editors + +Public Class LiquidAssetsReturnVC + Inherits SISBusiness.Module.LiquidAssetsReturnVC + Dim _WaitFormClass As New WaitFormClass + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + 'If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "DenominationValue" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + ' End If + ' End If + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb new file mode 100644 index 0000000..5876200 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLMixedVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb new file mode 100644 index 0000000..1e5ed37 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb @@ -0,0 +1,130 @@ +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid.Columns + +Public Class GLMixedVC + Inherits DevExpress.ExpressApp.ViewController + Private _GridListEditor As GridListEditor + 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 = "GLMixed_DetailView" Or View.Id = "GLMixed_GLRows_ListView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLMixed_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + AddHandler gridView.SelectionChanged, AddressOf GridView_SelectionChanged + End If + + If View.Id = "GLHeader_GLRows_ListView_Mixed" Then + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + _GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLHeader_GLRows_ListView_Mixed_CellValueChanged + '_GridListEditor.AllowEdit = True + + 'For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + + ' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "AmountHUF" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "AmountDEV" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "DebitChartOfAccounts!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CreditChartOfAccounts!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + + 'Next + End If + End If + + 'If View.Id = "GLRows_ListView_Mixed" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + + ' If _GridListEditor.GridView.Columns(i).FieldName <> "NoteRows" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostHolder!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "CostPlace!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "JobNumberObjects!" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "UniqueObjects!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + + ' Next + + ' End If + 'End If + + End Sub + + Private Sub GridView_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) + Dim gridView As GridView = TryCast(sender, GridView) + If View.SelectedObjects.Count = 1 Then + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + If _GLMixed Is Nothing Then + Else + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + If _GLMixed.IsEditable = False Then + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + ElseIf View.SelectedObjects.Count > 1 Then + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + End Sub + Private Sub GLHeader_GLRows_ListView_Mixed_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + Select Case TryCast(e.Column, GridColumn).FieldName + Case "NoteRows", "Controlling!", "CostHolder!", "JobNumberObjects!", "UniqueObjects!", "AmountHUF", "AmountDEV", "DebitChartOfAccounts!", "CreditChartOfAccounts!" + If nestedFrame IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + parentView.ObjectSpace.Refresh() + End If + End Select + + End Sub + +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb new file mode 100644 index 0000000..327fd3d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLOpenCloseVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb new file mode 100644 index 0000000..260e709 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb @@ -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 + +Public Class GLOpenCloseVC + Inherits SISBusiness.Module.GLOpenCloseVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceSpreadCustomFunctions.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceSpreadCustomFunctions.vb new file mode 100644 index 0000000..14896f8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceSpreadCustomFunctions.vb @@ -0,0 +1,137 @@ +Imports DevExpress.Spreadsheet +Imports DevExpress.Spreadsheet.Functions +Imports DevExpress.XtraSpreadsheet +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering + +Public Class BallanceSpreadCustomFunctions + Inherits Object + Implements ICustomFunction + + Private Const functionName As String = "GETGLBALLANCE" + Private ReadOnly functionParameters() As ParameterInfo + Private _BallanceHeader As BallanceHeader + Private _ocur As Xpo.XPObjectSpace + Private Structure stBalance + Dim Side As String + Dim AccountNumber As String + Dim Balance As String + Dim Operation As String + End Structure + Private _BalanceArray() As stBalance + Public Sub New(_p_BallanceHeader As BallanceHeader, _p_ocur As Xpo.XPObjectSpace) + ' Missing optional parameters do not result in an error message. + Me.functionParameters = New ParameterInfo() {New ParameterInfo(ParameterType.Value, ParameterAttributes.Required), New ParameterInfo(ParameterType.Value, ParameterAttributes.Optional)} + _BallanceHeader = _p_BallanceHeader + _ocur = _p_ocur + End Sub + + Public Function Evaluate(parameters As IList(Of ParameterValue), context As EvaluationContext) As ParameterValue Implements IFunction.Evaluate + Dim _GetGLBallance As Double = 0 + ReDim _BalanceArray(100) + + Try + If parameters.Count = 2 Then + + MakeBalanceArray(parameters(1).TextValue) + _GetGLBallance = Math.Round(GetValuefromArray(parameters(0).NumericValue) / 1000, 0, MidpointRounding.AwayFromZero) + + End If + Catch ex As Exception + + End Try + + Return _GetGLBallance + End Function + + Private Sub MakeBalanceArray(_BalanceString As String) + Dim _act_ballancestring As String = "" + Dim _act_arrayindex As Long = 0 + Dim i As Long = 0 + + For i = LBound(_BalanceArray) To UBound(_BalanceArray) + _BalanceArray(i).AccountNumber = "" + _BalanceArray(i).Balance = "" + _BalanceArray(i).Operation = "" + _BalanceArray(i).Side = "" + Next + + For i = 1 To Len(_BalanceString) + _act_ballancestring = Mid(_BalanceString, i, 1) + Select Case _act_ballancestring + Case "T", "K" + _BalanceArray(_act_arrayindex).Side = _act_ballancestring + Case "+", "-" + _act_arrayindex += 1 + _BalanceArray(_act_arrayindex).Operation = _act_ballancestring + Case Else + _BalanceArray(_act_arrayindex).AccountNumber += _act_ballancestring + End Select + Next + + End Sub + Private Function GetValuefromArray(_Mode As Long) As Double + Dim i As Long = 0 + Dim _GetValueFromArray As Double = 0 + + For i = LBound(_BalanceArray) To UBound(_BalanceArray) + Select Case _BalanceArray(i).Operation + Case "+" + _GetValueFromArray += GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber) + Case "-" + _GetValueFromArray -= GetValuefromTrialBallance(_Mode, _BalanceArray(i).Side, _BalanceArray(i).AccountNumber) + End Select + Next + Return _GetValueFromArray + End Function + Private Function GetValuefromTrialBallance(_Mode As Long, _Side As String, _AccountNumber As String) As Double + Dim _TrialBalanceHeader As TrialBalanceHeader + Dim _GetValuefromTrialBallance As Double = 0 + Dim _TrialBalance As TrialBalance = Nothing + If _Mode = 0 Then + _TrialBalanceHeader = _BallanceHeader.TrialBalanceHeader + Else + _TrialBalanceHeader = _BallanceHeader.TrialBalanceHeaderBefore + End If + + _TrialBalance = _ocur.FindObject(Of TrialBalance)(CriteriaOperator.Parse("TrialBalanceHeader=? and AccountNumber=?", _TrialBalanceHeader, _AccountNumber)) + If _TrialBalance IsNot Nothing Then + If _Side = "T" Then + _GetValuefromTrialBallance = _TrialBalance.DebitRAmountHUF + End If + If _Side = "K" Then + _GetValuefromTrialBallance = _TrialBalance.CreditRAmountHUF + End If + End If + Return _GetValuefromTrialBallance + End Function +#Region "BASE" + Public Function GetName(culture As Globalization.CultureInfo) As String Implements IFunction.GetName + Return functionName + End Function + + Public ReadOnly Property Name As String Implements IFunction.Name + Get + Return functionName + End Get + End Property + + Public ReadOnly Property Parameters As ParameterInfo() Implements IFunction.Parameters + Get + Return functionParameters + End Get + End Property + + Public ReadOnly Property ReturnType As ParameterType Implements IFunction.ReturnType + Get + Return ParameterType.Value + End Get + End Property + + Public ReadOnly Property Volatile As Boolean Implements IFunction.Volatile + Get + Return False + End Get + End Property +#End Region +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb new file mode 100644 index 0000000..1943449 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb @@ -0,0 +1,89 @@ +Partial Class BallanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSpreadPrintPreview = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSpreadExportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSpreadImportXML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSpreadRecalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSpreadPrintPreview + ' + Me.aSpreadPrintPreview.Caption = "aSpread Print Preview" + Me.aSpreadPrintPreview.Category = "aSpreadPrintPreview" + Me.aSpreadPrintPreview.ConfirmationMessage = Nothing + Me.aSpreadPrintPreview.Id = "aSpreadPrintPreview" + Me.aSpreadPrintPreview.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader) + Me.aSpreadPrintPreview.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadPrintPreview.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadPrintPreview.ToolTip = Nothing + Me.aSpreadPrintPreview.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSpreadExportXML + ' + Me.aSpreadExportXML.Caption = "aSpread Export XML" + Me.aSpreadExportXML.Category = "aSpreadExportXML" + Me.aSpreadExportXML.ConfirmationMessage = Nothing + Me.aSpreadExportXML.Id = "aSpreadExportXML" + Me.aSpreadExportXML.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader) + Me.aSpreadExportXML.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadExportXML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadExportXML.ToolTip = Nothing + Me.aSpreadExportXML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSpreadImportXML + ' + Me.aSpreadImportXML.Caption = "aSpread Import XML" + Me.aSpreadImportXML.Category = "aSpreadImportXML" + Me.aSpreadImportXML.ConfirmationMessage = Nothing + Me.aSpreadImportXML.Id = "aSpreadImportXML" + Me.aSpreadImportXML.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader) + Me.aSpreadImportXML.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadImportXML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadImportXML.ToolTip = Nothing + Me.aSpreadImportXML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSpreadRecalculate + ' + Me.aSpreadRecalculate.Caption = "aSpread Recalculate" + Me.aSpreadRecalculate.Category = "aSpreadRecalculate" + Me.aSpreadRecalculate.ConfirmationMessage = Nothing + Me.aSpreadRecalculate.Id = "aSpreadRecalculate" + Me.aSpreadRecalculate.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader) + Me.aSpreadRecalculate.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadRecalculate.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadRecalculate.ToolTip = Nothing + Me.aSpreadRecalculate.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aSpreadPrintPreview As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSpreadExportXML As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSpreadImportXML As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSpreadRecalculate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx new file mode 100644 index 0000000..6f194a9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 174, 17 + + + 494, 17 + + + 17, 17 + + + 337, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb new file mode 100644 index 0000000..ba94b4d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb @@ -0,0 +1,194 @@ +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.XtraSpreadsheet +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Spreadsheet +Imports DevExpress.XtraPrinting +Imports DevExpress.Persistent.BaseImpl + +Public Class BallanceVC + Inherits SISBusiness.Module.BallanceVC + Dim _WaitFormClass As New WaitFormClass + Private _SpreadsheetControl As SpreadsheetControl + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "BallanceHeader_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") + If _SpreadXML_ViewItem IsNot Nothing Then + AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated + + AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SaveAction_Executing + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + Private Sub _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _SpreadSimpleUserControl As SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl) + + _SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1 + + If _BallanceHeader IsNot Nothing Then + If _BallanceHeader.SpreadFileData IsNot Nothing Then + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _BallanceHeader.SpreadFileData.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _BallanceHeader.SpreadFileData.SaveToStream(_Stream) + _Stream.Close() + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _StreamFile.Close() + + InitSpread(_BallanceHeader) + End If + End If + End Sub + + Private Sub SaveAction_Executing(sender As Object, e As CancelEventArgs) + Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _SpreadsheetControl IsNot Nothing Then + + '// TESZT + FormatSpread(_BallanceHeader) + + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "BALANCE.XML") + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _SpreadsheetControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _Stream.Close() + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + Dim _FileData As FileData + _FileData = _ocur.CreateObject(Of FileData)() + + _FileData.LoadFromStream("BALANCE.XML", _StreamFile) + + _BallanceHeader.SpreadFileData = _FileData + End If + End Sub + Private Sub InitSpread(_BallanceHeader As BallanceHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BallanceSpreadCustomFunctions As New BallanceSpreadCustomFunctions(_BallanceHeader, _ocur) + Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + + If (Not _workbook.CustomFunctions.Contains(_BallanceSpreadCustomFunctions.Name)) Then + _workbook.CustomFunctions.Add(_BallanceSpreadCustomFunctions) + End If + '// cgjegyzkszm + Dim _worksheet As Worksheet = _workbook.Worksheets("Bort") + _worksheet.Cells("A3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 1, 1)) + _worksheet.Cells("B3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 2, 1)) + _worksheet.Cells("D3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 3, 1)) + _worksheet.Cells("E3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 4, 1)) + _worksheet.Cells("G3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 5, 1)) + _worksheet.Cells("H3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 6, 1)) + _worksheet.Cells("I3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 7, 1)) + _worksheet.Cells("J3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 8, 1)) + _worksheet.Cells("K3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 9, 1)) + _worksheet.Cells("L3").SetValue(Mid(Replace(_BallanceHeader.CustomersFrom.CompanyRegistrationNumber, "-", ""), 10, 1)) + + _worksheet = _workbook.Worksheets("Eszkzk A") + _worksheet.Cells("R11").SetValue(Format(_BallanceHeader.TrialBalanceHeaderBefore.DateTo.Date, "yyyy.MM.dd")) + _worksheet.Cells("T11").SetValue(Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd")) + End Sub + Private Sub FormatSpread(_BallanceHeader As BallanceHeader) + + Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + Dim _worksheet As Worksheet = _workbook.Worksheets("Bort") + Dim _worksheet_range As DevExpress.Spreadsheet.Range + + _worksheet_range = _worksheet.GetUsedRange() + + '_worksheet.Rows.Remove(_worksheet_range.RowCount + 1, 999999999) + + _worksheet.Cells("B14").SetValue(_BallanceHeader.CustomersFrom.FullName) + _worksheet.Cells("B15").SetValue(_BallanceHeader.CustomersFrom.Address1.ZipPostal & ". " & _BallanceHeader.CustomersFrom.Address1.City & ", " & _BallanceHeader.CustomersFrom.Address1.Street) + _worksheet.Cells("B20").SetValue("Beszmolsi idszak: " & Format(_BallanceHeader.TrialBalanceHeader.DateFrom.Date, "yyyy.MM.dd") & " - " & Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd")) + _worksheet.Cells("B17").SetValue(Format(_BallanceHeader.TrialBalanceHeader.DateTo.Date, "yyyy.MM.dd") & "-i mrleg fordulnapi") + + + End Sub + + Private Sub aSpreadPrintPreview_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadPrintPreview.Execute + Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + + If _workbook IsNot Nothing Then + + Using printingSystem As New PrintingSystem() + Using link As New PrintableComponentLink(printingSystem) + link.Component = _workbook + link.CreateDocument() + link.ShowPreviewDialog() + End Using + End Using + End If + End Sub + + Private Sub aSpreadImportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImportXML.Execute + Dim openFileDialog1 As New Windows.Forms.OpenFileDialog() + + openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments + openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*" + openFileDialog1.FilterIndex = 1 + openFileDialog1.RestoreDirectory = True + + If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + _SpreadsheetControl.LoadDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + End If + End Sub + + Private Sub aSpreadExportXML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadExportXML.Execute + Dim openFileDialog1 As New Windows.Forms.SaveFileDialog() + + openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments + openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*" + openFileDialog1.FilterIndex = 1 + openFileDialog1.RestoreDirectory = True + + If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + _SpreadsheetControl.SaveDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + End If + End Sub + + Private Sub aSpreadRecalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadRecalculate.Execute + Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + _workbook.Calculate() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb new file mode 100644 index 0000000..303448b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLCardVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb new file mode 100644 index 0000000..51d6efd --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb @@ -0,0 +1,111 @@ +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.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraPivotGrid +Imports DevExpress.ExpressApp.PivotGrid.Win +Imports DevExpress.XtraGrid.Columns + +Public Class GLCardVC + Inherits SISBusiness.Module.GLCardVC + Dim _WaitFormClass As New WaitFormClass + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + + If View.Id = "GLCardsHeader_GLCardsRows_ListView" Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLCardsHeader_GLCardsRows_ListView_CellValueChanged + End If + End If + End Sub + Private Sub GLCardVC_ViewControlsCreated(sender As Object, e As System.EventArgs) Handles Me.ViewControlsCreated + If View.Id = "GLCardsHeader_GLCardsRows_ListView" Then + Dim gridControl As GridControl = CType(((CType(View, ListView)).Editor).Control, GridControl) + Dim gridView As GridView = CType(gridControl.FocusedView, GridView) + gridView.OptionsCustomization.AllowSort = False + gridView.OptionsCustomization.AllowGroup = False + + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + _GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLCardsHeader_GLCardsRows_ListView_CellValueChanged + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Note_Rows" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + + ' Next + End If + End If + If View.Id = "GLCardsHeader_GLCardsRowsPivot_ListView" Then + Dim _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor) + If _PivotGridListEditor.PivotGridControl IsNot Nothing Then + AddHandler _PivotGridListEditor.PivotGridControl.CustomFieldValueCells, AddressOf PivotGridControl_CustomFieldValueCells + End If + End If + End Sub + + + Private Sub GLCardsHeader_GLCardsRows_ListView_CellValueChanged(sender As Object, e As Views.Base.CellValueChangedEventArgs) + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + Select Case TryCast(e.Column, GridColumn).FieldName + Case "Note_Rows" + If nestedFrame IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + parentView.ObjectSpace.Refresh() + End If + End Select + End Sub + + Private Sub PivotGridControl_CustomFieldValueCells(sender As Object, e As PivotCustomFieldValueCellsEventArgs) + Dim pivot As PivotGridControl = CType(sender, PivotGridControl) + Dim rowFieldsCount As Integer = pivot.GetFieldsByArea(PivotArea.RowArea).Count + Dim BallanceHUFAreaIndex As Integer = pivot.Fields("BallanceHUF").AreaIndex + For i As Integer = 0 To e.GetCellCount(False) - 2 + Dim cell As FieldValueCell = e.GetCell(False, i) + If cell IsNot Nothing Then + If cell.Field IsNot Nothing Then + If cell.Field.AreaIndex = rowFieldsCount - 1 AndAlso Math.Round(CDec(e.GetCellValue(BallanceHUFAreaIndex, cell.MaxIndex)), 0, MidpointRounding.AwayFromZero) = 0 Then + e.Remove(cell) + End If + End If + End If + Next i + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb new file mode 100644 index 0000000..7cc6d2a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class GLReportCashflowVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewPivotDetailCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewPivotDetailCashflow + ' + Me.aViewPivotDetailCashflow.Caption = "aView Pivot Detail Cashflow" + Me.aViewPivotDetailCashflow.ConfirmationMessage = Nothing + Me.aViewPivotDetailCashflow.Id = "aViewPivotDetailCashflow" + Me.aViewPivotDetailCashflow.ImageName = Nothing + Me.aViewPivotDetailCashflow.Shortcut = Nothing + Me.aViewPivotDetailCashflow.Tag = Nothing + Me.aViewPivotDetailCashflow.TargetObjectsCriteria = Nothing + Me.aViewPivotDetailCashflow.TargetObjectType = GetType(SISBusiness.[Module].GLReportCashflowRows) + Me.aViewPivotDetailCashflow.TargetViewId = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" + Me.aViewPivotDetailCashflow.ToolTip = Nothing + Me.aViewPivotDetailCashflow.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewPivotDetailCashflow As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx new file mode 100644 index 0000000..6b2e1f1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb new file mode 100644 index 0000000..2c923ac --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb @@ -0,0 +1,117 @@ +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.PivotGrid.Win +Imports DevExpress.XtraPivotGrid +Imports DevExpress.Data.Filtering + +Public Class GLReportCashflowVC + Inherits SISBusiness.Module.GLReportCashflowVC + Dim _WaitFormClass As New WaitFormClass + Private _PivotGridListEditor As PivotGridListEditor + Private _PivotGrdidControl As PivotGridControl + Private _Criteria As String = "" + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then + _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor) + + If _PivotGridListEditor IsNot Nothing Then + _PivotGrdidControl = _PivotGridListEditor.PivotGridControl + AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick + End If + End If + End Sub + + Private Sub aViewPivotDetailCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetailCashflow.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportCashflowRows)) + Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _GLReportCashflowHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReportCashflowHeader) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _GLReportCashflowHeader = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportCashflowRows).GLReportCashflowHeader + End If + End If + + + If LTrim(RTrim(_Criteria <> "")) Then + _CS.BeginUpdateCriteria() + _CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader.Oid) + _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria) + _CS.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportCashflowRows_ListView_PivotDetail", _CS, True) + + End If + End Sub + + Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs) + Dim _RowPivotGridField As PivotGridField + Dim _ColumnPivotGridField As PivotGridField + '_PivotGrdidControl.CreateDrillDownDataSource(e.ColumnIndex, e.RowIndex) + + Dim s As String + If e.RowValueType = PivotGridValueType.Value Then + If e.ColumnValueType = PivotGridValueType.Value Then + _Criteria = "" + For Each _RowPivotGridField In e.GetRowFields + s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + For Each _ColumnPivotGridField In e.GetColumnFields + s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.Designer.vb new file mode 100644 index 0000000..ab568a6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.Designer.vb @@ -0,0 +1,241 @@ +Partial Class GLReportRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewPivotDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttacments_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLReportRows_ChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLReportRows_DivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPivotDetail_2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCID_GLReportRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPivotDetail_3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttacments_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCID_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDivide_GLReportRowsCostHolder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aViewPivotDetail + ' + Me.aViewPivotDetail.Caption = "aView Pivot Detail" + Me.aViewPivotDetail.ConfirmationMessage = Nothing + Me.aViewPivotDetail.Id = "aViewPivotDetail" + Me.aViewPivotDetail.ImageName = Nothing + Me.aViewPivotDetail.Shortcut = Nothing + Me.aViewPivotDetail.Tag = Nothing + Me.aViewPivotDetail.TargetObjectsCriteria = Nothing + Me.aViewPivotDetail.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aViewPivotDetail.TargetViewId = "GLReport_GLReportRows_ListView_Pivot" + Me.aViewPivotDetail.ToolTip = Nothing + Me.aViewPivotDetail.TypeOfView = Nothing + ' + 'aViewRegistry_GLReportRows + ' + Me.aViewRegistry_GLReportRows.Caption = "View registry" + Me.aViewRegistry_GLReportRows.ConfirmationMessage = Nothing + Me.aViewRegistry_GLReportRows.Id = "aViewRegistry_GLReportRows" + Me.aViewRegistry_GLReportRows.ImageName = "document_pinned" + Me.aViewRegistry_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_GLReportRows.Shortcut = Nothing + Me.aViewRegistry_GLReportRows.Tag = Nothing + Me.aViewRegistry_GLReportRows.TargetObjectsCriteria = Nothing + Me.aViewRegistry_GLReportRows.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aViewRegistry_GLReportRows.TargetViewId = "" + Me.aViewRegistry_GLReportRows.ToolTip = Nothing + Me.aViewRegistry_GLReportRows.TypeOfView = Nothing + ' + 'aViewAttacments_GLReportRows + ' + Me.aViewAttacments_GLReportRows.Caption = "View registry" + Me.aViewAttacments_GLReportRows.ConfirmationMessage = Nothing + Me.aViewAttacments_GLReportRows.Id = "aViewAttacments_GLReportRows" + Me.aViewAttacments_GLReportRows.ImageName = "document_pinned" + Me.aViewAttacments_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttacments_GLReportRows.Shortcut = Nothing + Me.aViewAttacments_GLReportRows.Tag = Nothing + Me.aViewAttacments_GLReportRows.TargetObjectsCriteria = Nothing + Me.aViewAttacments_GLReportRows.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aViewAttacments_GLReportRows.TargetViewId = "" + Me.aViewAttacments_GLReportRows.ToolTip = Nothing + Me.aViewAttacments_GLReportRows.TypeOfView = Nothing + ' + 'aGLReportRows_ChangeParam + ' + Me.aGLReportRows_ChangeParam.AcceptButtonCaption = Nothing + Me.aGLReportRows_ChangeParam.CancelButtonCaption = Nothing + Me.aGLReportRows_ChangeParam.Caption = "Change parameters" + Me.aGLReportRows_ChangeParam.ConfirmationMessage = Nothing + Me.aGLReportRows_ChangeParam.Id = "aGLReportRows_ChangeParam" + Me.aGLReportRows_ChangeParam.ImageName = "index_preferences" + Me.aGLReportRows_ChangeParam.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLReportRows_ChangeParam.Shortcut = Nothing + Me.aGLReportRows_ChangeParam.Tag = Nothing + Me.aGLReportRows_ChangeParam.TargetObjectsCriteria = Nothing + Me.aGLReportRows_ChangeParam.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aGLReportRows_ChangeParam.TargetViewId = "" + Me.aGLReportRows_ChangeParam.ToolTip = Nothing + Me.aGLReportRows_ChangeParam.TypeOfView = Nothing + ' + 'aGLReportRows_DivideRows + ' + Me.aGLReportRows_DivideRows.AcceptButtonCaption = Nothing + Me.aGLReportRows_DivideRows.CancelButtonCaption = Nothing + Me.aGLReportRows_DivideRows.Caption = "Divide rows" + Me.aGLReportRows_DivideRows.Category = "Edit" + Me.aGLReportRows_DivideRows.ConfirmationMessage = Nothing + Me.aGLReportRows_DivideRows.Id = "aGLReportRows_DivideRows" + Me.aGLReportRows_DivideRows.ImageName = "row_add_after" + Me.aGLReportRows_DivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLReportRows_DivideRows.Shortcut = Nothing + Me.aGLReportRows_DivideRows.Tag = Nothing + Me.aGLReportRows_DivideRows.TargetObjectsCriteria = Nothing + Me.aGLReportRows_DivideRows.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aGLReportRows_DivideRows.TargetViewId = "" + Me.aGLReportRows_DivideRows.ToolTip = Nothing + Me.aGLReportRows_DivideRows.TypeOfView = Nothing + ' + 'aViewPivotDetail_2 + ' + Me.aViewPivotDetail_2.Caption = "aViewPivotDetail_2" + Me.aViewPivotDetail_2.ConfirmationMessage = Nothing + Me.aViewPivotDetail_2.Id = "aViewPivotDetail_2" + Me.aViewPivotDetail_2.ImageName = Nothing + Me.aViewPivotDetail_2.Shortcut = Nothing + Me.aViewPivotDetail_2.Tag = Nothing + Me.aViewPivotDetail_2.TargetObjectsCriteria = Nothing + Me.aViewPivotDetail_2.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aViewPivotDetail_2.TargetViewId = "GLReport_GLReportRows_ListView_Pivot_2" + Me.aViewPivotDetail_2.ToolTip = Nothing + Me.aViewPivotDetail_2.TypeOfView = Nothing + ' + 'aViewPCID_GLReportRows + ' + Me.aViewPCID_GLReportRows.Caption = "aViewPCIDGroup" + Me.aViewPCID_GLReportRows.ConfirmationMessage = Nothing + Me.aViewPCID_GLReportRows.Id = "aViewPCID_GLReportRows" + Me.aViewPCID_GLReportRows.ImageName = Nothing + Me.aViewPCID_GLReportRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCID_GLReportRows.Shortcut = Nothing + Me.aViewPCID_GLReportRows.Tag = Nothing + Me.aViewPCID_GLReportRows.TargetObjectsCriteria = Nothing + Me.aViewPCID_GLReportRows.TargetObjectType = GetType(SISBusiness.[Module].GLReportRows) + Me.aViewPCID_GLReportRows.TargetViewId = "" + Me.aViewPCID_GLReportRows.ToolTip = Nothing + Me.aViewPCID_GLReportRows.TypeOfView = Nothing + ' + 'aViewPivotDetail_3 + ' + Me.aViewPivotDetail_3.Caption = "aViewPivotDetail_3" + Me.aViewPivotDetail_3.ConfirmationMessage = Nothing + Me.aViewPivotDetail_3.Id = "aViewPivotDetail_3" + Me.aViewPivotDetail_3.ImageName = Nothing + Me.aViewPivotDetail_3.Shortcut = Nothing + Me.aViewPivotDetail_3.Tag = Nothing + Me.aViewPivotDetail_3.TargetObjectsCriteria = Nothing + Me.aViewPivotDetail_3.TargetObjectType = GetType(SISBusiness.[Module].GLReportRowsCostHolder) + Me.aViewPivotDetail_3.TargetViewId = "GLReport_GLReportRowsCostHolder_ListView_PivotGrid" + Me.aViewPivotDetail_3.ToolTip = Nothing + Me.aViewPivotDetail_3.TypeOfView = Nothing + ' + 'aViewRegistry_GLReportRowsCostHolder + ' + Me.aViewRegistry_GLReportRowsCostHolder.Caption = "View registry" + Me.aViewRegistry_GLReportRowsCostHolder.ConfirmationMessage = Nothing + Me.aViewRegistry_GLReportRowsCostHolder.Id = "aViewRegistry_GLReportRowsCostHolder" + Me.aViewRegistry_GLReportRowsCostHolder.ImageName = "document_pinned" + Me.aViewRegistry_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_GLReportRowsCostHolder.Shortcut = Nothing + Me.aViewRegistry_GLReportRowsCostHolder.Tag = Nothing + Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing + Me.aViewRegistry_GLReportRowsCostHolder.TargetObjectType = GetType(SISBusiness.[Module].GLReportRowsCostHolder) + Me.aViewRegistry_GLReportRowsCostHolder.TargetViewId = "" + Me.aViewRegistry_GLReportRowsCostHolder.ToolTip = Nothing + Me.aViewRegistry_GLReportRowsCostHolder.TypeOfView = Nothing + ' + 'aViewAttacments_GLReportRowsCostHolder + ' + Me.aViewAttacments_GLReportRowsCostHolder.Caption = "View atachments" + Me.aViewAttacments_GLReportRowsCostHolder.ConfirmationMessage = Nothing + Me.aViewAttacments_GLReportRowsCostHolder.Id = "aViewAttacments_GLReportRowsCostHolder" + Me.aViewAttacments_GLReportRowsCostHolder.ImageName = "document_pinned" + Me.aViewAttacments_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttacments_GLReportRowsCostHolder.Shortcut = Nothing + Me.aViewAttacments_GLReportRowsCostHolder.Tag = Nothing + Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing + Me.aViewAttacments_GLReportRowsCostHolder.TargetObjectType = GetType(SISBusiness.[Module].GLReportRowsCostHolder) + Me.aViewAttacments_GLReportRowsCostHolder.TargetViewId = "" + Me.aViewAttacments_GLReportRowsCostHolder.ToolTip = Nothing + Me.aViewAttacments_GLReportRowsCostHolder.TypeOfView = Nothing + ' + 'aViewPCID_GLReportRowsCostHolder + ' + Me.aViewPCID_GLReportRowsCostHolder.Caption = "aViewPCIDGroup" + Me.aViewPCID_GLReportRowsCostHolder.ConfirmationMessage = Nothing + Me.aViewPCID_GLReportRowsCostHolder.Id = "aViewPCID_GLReportRowsCostHolder" + Me.aViewPCID_GLReportRowsCostHolder.ImageName = Nothing + Me.aViewPCID_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCID_GLReportRowsCostHolder.Shortcut = Nothing + Me.aViewPCID_GLReportRowsCostHolder.Tag = Nothing + Me.aViewPCID_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing + Me.aViewPCID_GLReportRowsCostHolder.TargetObjectType = GetType(SISBusiness.[Module].GLReportRowsCostHolder) + Me.aViewPCID_GLReportRowsCostHolder.TargetViewId = "" + Me.aViewPCID_GLReportRowsCostHolder.ToolTip = Nothing + Me.aViewPCID_GLReportRowsCostHolder.TypeOfView = Nothing + ' + 'aDivide_GLReportRowsCostHolder + ' + Me.aDivide_GLReportRowsCostHolder.AcceptButtonCaption = Nothing + Me.aDivide_GLReportRowsCostHolder.CancelButtonCaption = Nothing + Me.aDivide_GLReportRowsCostHolder.Caption = "aDivide_GLReportRowsCostHolder" + Me.aDivide_GLReportRowsCostHolder.ConfirmationMessage = Nothing + Me.aDivide_GLReportRowsCostHolder.Id = "aDivide_GLReportRowsCostHolder" + Me.aDivide_GLReportRowsCostHolder.ImageName = Nothing + Me.aDivide_GLReportRowsCostHolder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDivide_GLReportRowsCostHolder.Shortcut = Nothing + Me.aDivide_GLReportRowsCostHolder.Tag = Nothing + Me.aDivide_GLReportRowsCostHolder.TargetObjectsCriteria = Nothing + Me.aDivide_GLReportRowsCostHolder.TargetObjectType = GetType(SISBusiness.[Module].GLReportRowsCostHolder) + Me.aDivide_GLReportRowsCostHolder.TargetViewId = Nothing + Me.aDivide_GLReportRowsCostHolder.ToolTip = Nothing + Me.aDivide_GLReportRowsCostHolder.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewPivotDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttacments_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLReportRows_ChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLReportRows_DivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPivotDetail_2 As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCID_GLReportRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPivotDetail_3 As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttacments_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCID_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDivide_GLReportRowsCostHolder As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.resx new file mode 100644 index 0000000..1364168 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 54 + + + 17, 128 + + + 17, 165 + + + 17, 239 + + + 17, 350 + + + 17, 387 + + + 17, 424 + + + 17, 461 + + + 17, 498 + + + 17, 202 + + + 17, 276 + + + 17, 313 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb new file mode 100644 index 0000000..e4e50f0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsVC.vb @@ -0,0 +1,552 @@ +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.XtraPivotGrid +Imports DevExpress.ExpressApp.PivotGrid.Win +Imports DevExpress.Data.Filtering +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.SystemModule +Imports System.IO +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.ViewVariantsModule +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid + +Public Class GLReportRowsVC + Inherits DevExpress.ExpressApp.ViewController + Private _PivotGridListEditor As PivotGridListEditor + Private _PivotGrdidControl As PivotGridControl + Private _GridListEditor As GridListEditor + Private _GridControl As GridControl + Private _Criteria As String = "" + Dim _WaitFormClass As New WaitFormClass + Private _MasterKey As Guid + Private _VariantSelectedItemID As String = "" + 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 "GLReport_DetailView" Then + Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport) + If _GLReport IsNot Nothing Then + _MasterKey = _GLReport.Oid + End If + AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Save_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Save_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Save_Executing + + AddHandler View.ControlsCreated, AddressOf GLReport_DetailView_ControlCreated + End If + If View.Id Like "GLReport_GLReportRows*" Then + AddHandler View.ControlsCreated, AddressOf ListView_ControlsCreated + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + End Sub + Private Sub GLReport_DetailView_ControlCreated(sender As Object, e As EventArgs) + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If _PivotGrdidControl IsNot Nothing Then + RemoveHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick + End If + + End Sub + + Private Sub ListView_ControlsCreated(sender As Object, e As EventArgs) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) + If _PropertyCollectionSource IsNot Nothing Then + _MasterKey = _PropertyCollectionSource.MasterObject.oid + End If + + _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor) + + If _PivotGridListEditor IsNot Nothing Then + _PivotGrdidControl = _PivotGridListEditor.PivotGridControl + AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick + End If + End Sub + + Private Sub aViewPivotDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows)) + Dim _GLReport As GLReport = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport + End If + End If + + + If LTrim(RTrim(_Criteria <> "")) Then + _CS.BeginUpdateCriteria() + _CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid) + _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria) + _CS.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail", _CS, True) + + End If + End Sub + Private Sub aViewPivotDetail_2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_2.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRows)) + Dim _GLReport As GLReport = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRows).GLReport + End If + End If + + If _GLReport Is Nothing Then Exit Sub + + If LTrim(RTrim(_Criteria <> "")) Then + _CS.BeginUpdateCriteria() + _CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid) + _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria) + _CS.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRows_ListView_PivotDetail_2", _CS, True) + + End If + End Sub + + Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs) + Dim _RowPivotGridField As PivotGridField + Dim _ColumnPivotGridField As PivotGridField + Dim s As String + If e.RowValueType = PivotGridValueType.Value Then + If e.ColumnValueType = PivotGridValueType.Value Then + _Criteria = "" + For Each _RowPivotGridField In e.GetRowFields + s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + For Each _ColumnPivotGridField In e.GetColumnFields + s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + ElseIf e.ColumnValueType = PivotGridValueType.GrandTotal Then + _Criteria = "" + For Each _RowPivotGridField In e.GetRowFields + s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + For Each _ColumnPivotGridField In e.GetColumnFields + s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + End If + End If + End Sub + + Private Sub aViewRegistry_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRows.Execute + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom + Dim _Customers As Customers = _GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRows.ConnectInfo + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aViewAttacments_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRows.Execute + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + Dim _CustomersFrom As CustomersFrom = _GLReportRows.GLReport.CustomersFrom + Dim _Customers As Customers = _GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRows.ConnectInfo + + Dim _GLMixed As GLMixed = Nothing + + If _GLReportRows.GLRows IsNot Nothing Then + _GLMixed = TryCast(_GLReportRows.GLRows.GLHeader, GLMixed) + End If + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed) + End Sub + + Private Sub aGLReportRows_ChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_ChangeParam.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)() + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + + If _GLReportRows IsNot Nothing Then + If _GLReportRows.GLRows IsNot Nothing Then + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLReportRows.GLRows.GLHeader.DateExecution.Year)) + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + + e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck) + End Sub + Private Sub aGLReportRows_ChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_ChangeParam.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck) + Dim _GLRows As GLRows + Dim _InvoiceRows As InvoiceRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _GLReportRows As GLReportRows + Dim I As Long = 0 + Dim _Controlling As Controlling + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _UniqueObjects As UniqueObjects + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + + If _GLRowsCheck.Controlling IsNot Nothing Then + _Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True) + If _Controlling.Children.Count > 0 Then + Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name)) + Exit Sub + End If + Else + _Controlling = Nothing + End If + If _GLRowsCheck.JobNumberObjects IsNot Nothing Then + _JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True) + Else + _JobNumberObjects = Nothing + End If + If _GLRowsCheck.CostHolder IsNot Nothing Then + _CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True) + Else + _CostHolder = Nothing + End If + If _GLRowsCheck.CostPlace IsNot Nothing Then + _CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True) + Else + _CostPlace = Nothing + End If + If _GLRowsCheck.UniqueObjects IsNot Nothing Then + _UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True) + Else + _UniqueObjects = Nothing + End If + If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then + _DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True) + Else + _DebitChartOfAccounts = Nothing + End If + If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then + _CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True) + Else + _CreditChartOfAccounts = Nothing + End If + + If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then + If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then + Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !") + Exit Sub + End If + End If + + _WaitFormClass.Initwork(1, 1, View.SelectedObjects.Count) + For Each _GLReportRows In View.SelectedObjects + I += 1 + _WaitFormClass.DoWork() + _GLRows = _GLReportRows.GLRows + If _GLRows IsNot Nothing Then + If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling + If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects + If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder + If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + If _DebitChartOfAccounts IsNot Nothing Then _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts + If _CreditChartOfAccounts IsNot Nothing Then _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts + If _GLRowsCheck.IsDateExecution = True Then _GLRows.DateExecution = _GLRowsCheck.DateExecution + _GLRows.Save() + + _GLReportRows.Controlling = _GLRows.Controlling + _GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects + _GLReportRows.CostHolder = _GLRows.CostHolder + _GLReportRows.CostPlace = _GLRows.CostPlace + _GLReportRows.UniqueObjects = _GLRows.UniqueObjects + _GLReportRows.Save() + End If + _InvoiceRows = _GLReportRows.InvoiceRows + If _InvoiceRows IsNot Nothing Then + If _Controlling IsNot Nothing Then _InvoiceRows.Controlling = _Controlling + If _JobNumberObjects IsNot Nothing Then _InvoiceRows.JobNumberObjects = _JobNumberObjects + If _CostHolder IsNot Nothing Then _InvoiceRows.CostHolder = _CostHolder + If _CostPlace IsNot Nothing Then _InvoiceRows.CostPlace = _CostPlace + If _UniqueObjects IsNot Nothing Then _InvoiceRows.UniqueObjects = _UniqueObjects + If _GLRowsCheck.IsDateExecution = True Then _InvoiceRows.DateExecution = _GLRowsCheck.DateExecution + _InvoiceRows.Save() + + _GLReportRows.Controlling = _InvoiceRows.Controlling + _GLReportRows.JobNumberObjects = _InvoiceRows.JobNumberObjects + _GLReportRows.CostHolder = _InvoiceRows.CostHolder + _GLReportRows.CostPlace = _InvoiceRows.CostPlace + _GLReportRows.UniqueObjects = _InvoiceRows.UniqueObjects + _GLReportRows.Save() + End If + _RegistryRowsFinancialControlling = _GLReportRows.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling IsNot Nothing Then + If _Controlling IsNot Nothing Then _RegistryRowsFinancialControlling.Controlling = _Controlling + If _JobNumberObjects IsNot Nothing Then _RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects + If _CostHolder IsNot Nothing Then _RegistryRowsFinancialControlling.CostHolder = _CostHolder + If _CostPlace IsNot Nothing Then _RegistryRowsFinancialControlling.CostPlace = _CostPlace + If _UniqueObjects IsNot Nothing Then _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects + If _GLRowsCheck.IsDateExecution = True Then _RegistryRowsFinancialControlling.DateExecution = _GLRowsCheck.DateExecution + + _RegistryRowsFinancialControlling.Save() + + _GLReportRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _GLReportRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + _GLReportRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _GLReportRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _GLReportRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + _GLReportRows.Save() + End If + + If I Mod 100 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork() + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + View.Refresh() + End Sub + + + + Private Sub aGLReportRows_DivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLReportRows_DivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + + If _GLReportRows Is Nothing Then Exit Sub + + Dim _GLRows As GLRows = _GLReportRows.GLRows + + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + + End If + End Sub + Private Sub aGLReportRows_DivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLReportRows_DivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + + If _GLReportRows Is Nothing Then Exit Sub + + Dim _GLRows As GLRows = _GLReportRows.GLRows + + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + + If _GLRows IsNot Nothing Then + + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + + End If + End Sub + + Private Sub aViewPCID_GLReportRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRows.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + + If _GLReportRows IsNot Nothing Then + If _GLReportRows.GLRows IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLRows.GLHeader.CustomersFrom, _ + _GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _ + _GLReportRows.ConnectInfo) + End If + If _GLReportRows.InvoiceHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.InvoiceHeader.CustomersFrom, _ + _GLReportRows.Customers, 0, _ + _GLReportRows.ConnectInfo) + End If + If _GLReportRows.RegistryHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.RegistryHeader.CustomersFrom, _ + _GLReportRows.Customers, 1, _ + _GLReportRows.ConnectInfo) + End If + End If + + End Sub + + Private Sub aViewPivotDetail_3_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPivotDetail_3.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLReportRowsCostHolder)) + Dim _GLReport As GLReport = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _GLReport = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _GLReport = TryCast(TryCast(View, ListView).CollectionSource.List(0), GLReportRowsCostHolder).GLReport + End If + End If + + If _GLReport Is Nothing Then Exit Sub + + If LTrim(RTrim(_Criteria <> "")) Then + _CS.BeginUpdateCriteria() + _CS.Criteria("MasterFilter") = CriteriaOperator.Parse("GLReport.Oid=?", _GLReport.Oid) + _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria) + _CS.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLReportRowsCostHolder_ListView_PivotDetail", _CS, True) + + End If + End Sub + + Private Sub aViewRegistry_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_GLReportRowsCostHolder.Execute + Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder) + Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom + Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aViewAttacments_GLReportRowsCostHolderCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttacments_GLReportRowsCostHolder.Execute + Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder) + Dim _CustomersFrom As CustomersFrom = _GLReportRowsCostHolder.GLReport.CustomersFrom + Dim _Customers As Customers = _GLReportRowsCostHolder.GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRowsCostHolder.GLReportRows.ConnectInfo + Dim _GLMixed As GLMixed = Nothing + + If _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then + _GLMixed = TryCast(_GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader, GLMixed) + End If + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "", _GLMixed) + End Sub + Private Sub aViewPCID_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_GLReportRowsCostHolder.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder).GLReportRows + + If _GLReportRows IsNot Nothing Then + If _GLReportRows.GLRows IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _ + _GLReportRows.Customers, _GLReportRows.GLRows.PartnerType, _ + _GLReportRows.ConnectInfo) + End If + If _GLReportRows.InvoiceHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _ + _GLReportRows.Customers, 0, _ + _GLReportRows.ConnectInfo) + End If + If _GLReportRows.RegistryHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLReportRows.GLReport.CustomersFrom, _ + _GLReportRows.Customers, 1, _ + _GLReportRows.ConnectInfo) + End If + End If + End Sub + + Private Sub aDivide_GLReportRowsCostHolder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDivide_GLReportRowsCostHolder.CustomizePopupWindowParams + '// Sorbontás vezetői ellenőrzésen ! + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivide As GLRowsDivide = _onew.CreateObject(Of GLRowsDivide)() + Dim _GLReportRowsCostHolder As GLReportRowsCostHolder = TryCast(View.SelectedObjects(0), GLReportRowsCostHolder) + + If _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRowsDivide.AmountHUF = _GLReportRowsCostHolder.GLReportRows.RegistryRowsFinancialControlling.Amount + ElseIf _GLReportRowsCostHolder.GLReportRows.GLRows IsNot Nothing Then + Select Case _GLReportRowsCostHolder.GLReportRows.GLRows.GLHeader.GLDocumentType + Case eGLDocumentType.eGLAccount + Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed + End Select + End If + e.View = Application.CreateDetailView(_onew, "GLRowsDivide_DetailView", False, _GLRowsDivide) + End Sub + Private Sub aDivide_GLReportRowsCostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDivide_GLReportRowsCostHolder.Execute + '// Sorbontás vezetői ellenőrzéshez + End Sub + + Private Sub Save_Executing(sender As Object, e As CancelEventArgs) + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View.Id Like "GLReport_DetailView" Then + Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport) + If _GLReport IsNot Nothing Then + + Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows") + + If _ListPropertyEditor IsNot Nothing Then + _GLReport.VariantSelectedItemID = _ListPropertyEditor.ListView.Id + End If + + + End If + End If + End Sub + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.Designer.vb new file mode 100644 index 0000000..e0fddf8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class GLReportRowsWC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.vb new file mode 100644 index 0000000..ca3e6ca --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsWC.vb @@ -0,0 +1,65 @@ +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.ExpressApp.ViewVariantsModule + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppWindowControllertopic. +Partial Public Class GLReportRowsWC + Inherits WindowController + Public Sub New() + InitializeComponent() + RegisterActions(components) + ' Target required Windows (via the TargetXXX properties) and create their Actions. + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + ' Perform various tasks depending on the target Window. + End Sub + Protected Overrides Sub OnDeactivated() + ' Unsubscribe from previously subscribed events and release other references and resources. + MyBase.OnDeactivated() + End Sub + Protected Overrides Sub OnFrameAssigned() + MyBase.OnFrameAssigned() + Dim controller As ChangeVariantController = Frame.GetController(Of ChangeVariantController)() + 'AddHandler controller.ChangeVariantActionItemsCreated, AddressOf VariantsController_ChangeVariantActionItemsCreated + End Sub + + Private Sub VariantsController_ChangeVariantActionItemsCreated(sender As Object, e As EventArgs) + 'Beep() + + 'If View.Id = "GLReport_DetailView" Then + ' Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport) + ' Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + ' If _GLReport IsNot Nothing Then + ' _MasterKey = _GLReport.Oid + ' If _ocur.IsNewObject(_GLReport) = False Then + ' If _GLReport.VariantSelectedItemID <> "" Then + ' Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("GLReportRows") + ' If _ListPropertyEditor.Frame IsNot Nothing Then + ' Dim _ChangeVariantController As ChangeVariantController = Frame.GetController(Of ChangeVariantController)() + ' _ChangeVariantController.ChangeVariantAction.DoExecute(_ChangeVariantController.ChangeVariantAction.FindItemByIdPath(_GLReport.VariantSelectedItemID)) + ' End If + ' End If + ' End If + ' End If + 'End If + If Frame.View.Id Like "GLReport_GLRep*" Then + 'TryCast(sender, ChangeVariantController).ChangeVariantAction.DoExecute(TryCast(sender, ChangeVariantController).ChangeVariantAction.FindItemByIdPath(TryCast(TryCast(TryCast(Frame.View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).VariantSelectedItemID)) + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.Designer.vb new file mode 100644 index 0000000..f212ce5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.vb new file mode 100644 index 0000000..ca83b5e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/GLRows/GLRowsVC.vb @@ -0,0 +1,89 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.XtraGrid.Columns + +Public Class GLRowsVC + Inherits SISBusiness.Module.GLRowsVC + Dim _WaitFormClass As New WaitFormClass + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + + If _GridListEditor IsNot Nothing Then + If _GridListEditor.GridView IsNot Nothing Then + RemoveHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLRows_ListView_Bank_CellValueChanged + End If + End If + End Sub + + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "GLRows_ListView_Bank" Then + _GridListEditor = TryCast(TryCast(View, ListView).Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + AddHandler _GridListEditor.GridView.CellValueChanged, AddressOf GLRows_ListView_Bank_CellValueChanged + End If + + 'If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "CurrencyRate2" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + 'End If + End If + End Sub + Private Sub GLRows_ListView_Bank_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + If TryCast(e.Column, GridColumn).FieldName = "CurrencyRate2" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLRows As GLRows = View.SelectedObjects(0) + If _GLRows IsNot Nothing Then + _GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountDEV * e.Value, 2, MidpointRounding.AwayFromZero) + _GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountDEV * e.Value, 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = e.Value + _ocur.CommitChanges() + + If _GLRows.GLHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.Designer.vb new file mode 100644 index 0000000..1d24285 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ABRQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.vb new file mode 100644 index 0000000..79ee90c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Aging Balance Report/ABRQueryVC.vb @@ -0,0 +1,39 @@ +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 ABRQueryVC + Inherits SISBusiness.Module.ABRQueryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.Designer.vb new file mode 100644 index 0000000..807a5d4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PCICheckerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.vb new file mode 100644 index 0000000..e1440bf --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/Checker/PCICheckerVC.vb @@ -0,0 +1,43 @@ +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 PCICheckerVC + Inherits SISBusiness.Module.PCICheckerVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.Designer.vb new file mode 100644 index 0000000..f0047f0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PartnerAccountConnectionInfoQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.vb new file mode 100644 index 0000000..68e7acd --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PACIQ/PartnerAccountConnectionInfoQueryVC.vb @@ -0,0 +1,38 @@ +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 PartnerAccountConnectionInfoQueryVC + Inherits SISBusiness.Module.PartnerAccountConnectionInfoQueryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.Designer.vb new file mode 100644 index 0000000..2ada37f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PCICheckVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.vb new file mode 100644 index 0000000..cdea5e8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCICheckVC.vb @@ -0,0 +1,34 @@ +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 PCICheckVC + Inherits SISBusiness.Module.PCICheckVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.Designer.vb new file mode 100644 index 0000000..545e0e6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PCIGroupAgingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.vb new file mode 100644 index 0000000..422cf05 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIGroupAgingVC.vb @@ -0,0 +1,34 @@ +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 PCIGroupAgingVC + Inherits SISBusiness.Module.PCIGroupAgingVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.Designer.vb new file mode 100644 index 0000000..10eaa8d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PCIVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.vb new file mode 100644 index 0000000..d1482b4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/PartnerConnection/PCIVC.vb @@ -0,0 +1,34 @@ +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 PCIVC + Inherits SISBusiness.Module.PCIVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb new file mode 100644 index 0000000..ba4f7ba --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SpecTranRevaluationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb new file mode 100644 index 0000000..3ea1fcb --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb @@ -0,0 +1,38 @@ +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 SpecTranRevaluationVC + Inherits SISBusiness.Module.SpecTranRevaluationVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.Designer.vb new file mode 100644 index 0000000..907fe47 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class TrialBalanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.resx new file mode 100644 index 0000000..52a9ad3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.vb new file mode 100644 index 0000000..4faad3a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/TrialBalance/TrialBalanceVC.vb @@ -0,0 +1,85 @@ +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.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Editors +Imports System.Drawing + +Public Class TrialBalanceVC + Inherits SISBusiness.Module.TrialBalanceVC + Private InBold As Boolean = False + Private CurrentRowHandle As Integer = -1 + Private LastRowHandle As Integer = -1 + Dim _WaitFormClass As New WaitFormClass + 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 = "TrialBalanceHeader_TrialBalance_ListView" Or _ + View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Then + Dim editor As ListEditor = (CType(View, ListView)).Editor + Dim gridView As GridView = (CType(editor, GridListEditor)).GridView + + gridView.OptionsCustomization.AllowSort = False + gridView.OptionsCustomization.AllowGroup = False + AddHandler gridView.RowCellStyle, AddressOf gridView_RowCellStyle + + End If + End Sub + Private Sub gridView_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) + Dim _CellValue As String + Dim sArray() As String + + CurrentRowHandle = e.RowHandle + If LastRowHandle <> CurrentRowHandle Then + LastRowHandle = CurrentRowHandle + InBold = False + End If + If e.Column.FieldName = "ShortNameFormatted" Then + _CellValue = LTrim(RTrim(e.CellValue)) + sArray = Split(_CellValue, " ") + If Len(sArray(0)) <= 2 Then + InBold = True + Else + InBold = False + End If + End If + If InBold Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + + End If + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportCheckList.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportCheckList.vb new file mode 100644 index 0000000..e228399 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportCheckList.vb @@ -0,0 +1,68 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + +Public Enum eVATReportCheckListType + eError = 0 + eWarning = 1 +End Enum + _ + _ + _ + _ +Public Class VATReportCheckList + Inherits BaseObject + + Private _VATReportCheckListType As eVATReportCheckListType + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property VATReportCheckListType As eVATReportCheckListType + Get + Return _VATReportCheckListType + End Get + Set(value As eVATReportCheckListType) + SetPropertyValue("VATReportCheckListType", _VATReportCheckListType, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + ReadOnly Property ImageType As Image + Get + Select Case VATReportCheckListType + Case eVATReportCheckListType.eError + Return ImageLoader.Instance.GetImageInfo("error").Image + Case eVATReportCheckListType.eWarning + Return ImageLoader.Instance.GetImageInfo("warning").Image + Case Else + Return Nothing + End Select + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb new file mode 100644 index 0000000..d2ad5e8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb @@ -0,0 +1,57 @@ +Partial Class VATReportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aVATReport_Create65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATReport_Check65XML = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aVATReport_Create65XML + ' + Me.aVATReport_Create65XML.Caption = "aVATReport_Create65XML" + Me.aVATReport_Create65XML.ConfirmationMessage = Nothing + Me.aVATReport_Create65XML.Id = "aVATReport_Create65XML" + Me.aVATReport_Create65XML.TargetObjectType = GetType(SISBusiness.[Module].VATReport) + Me.aVATReport_Create65XML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aVATReport_Create65XML.ToolTip = Nothing + Me.aVATReport_Create65XML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aVATReport_Check65XML + ' + Me.aVATReport_Check65XML.Caption = "aVATReport_Check65XML" + Me.aVATReport_Check65XML.ConfirmationMessage = Nothing + Me.aVATReport_Check65XML.Id = "aVATReport_Check65XML" + Me.aVATReport_Check65XML.TargetObjectType = GetType(SISBusiness.[Module].VATReport) + Me.aVATReport_Check65XML.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aVATReport_Check65XML.ToolTip = Nothing + Me.aVATReport_Check65XML.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aVATReport_Create65XML As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATReport_Check65XML As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx new file mode 100644 index 0000000..262cf0b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 212, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb new file mode 100644 index 0000000..05b7e28 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb @@ -0,0 +1,1547 @@ +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.Utils +Imports System.Xml +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.XtraSplashScreen + +Structure VATReportNAVCodes_Structure + Public VATCode As String + Public VATValue As Double +End Structure + +Public Class VATReportVC + Inherits SISBusiness.Module.VATReportVC + Private _WaitFormClass As WaitFormClass + 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 = "VATReportCheckList_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + End If + + _WaitFormClass = New WaitFormClass + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "VATReportCheckList_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End Sub + + Private Sub aVATReport_Create65XML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aVATReport_Create65XML.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + Dim _SaveFileDialog As New System.Windows.Forms.SaveFileDialog() + Dim _FileName65 As String = "" + Dim _VATNumberError As String = "" + Dim _NAVProgramPath As String = "" + + '// Ellenrzsek ----------------------- + For Each _VATReportGroupCustomers2M As VATReportGroupCustomers2M In _VATReport.VATReportGroupCustomers2M + If String.IsNullOrEmpty(_VATReportGroupCustomers2M.Customers.VATNumber) Then + If String.IsNullOrEmpty(_VATNumberError) Then + _VATNumberError = "Hinyz adszm(ok)!" + vbNewLine + _VATNumberError += "2 milli FA rtk feletti partnerek lap:" + _VATNumberError += _VATReportGroupCustomers2M.Customers.FullName + Else + _VATNumberError += _VATReportGroupCustomers2M.Customers.FullName + End If + End If + Next + + For Each _VATReport07 As VATReport07 In _VATReport.VATReport07 + If String.IsNullOrEmpty(_VATReport07.Customers.VATNumber) Then + If String.IsNullOrEmpty(_VATNumberError) Then + _VATNumberError = "Hinyz adszm(ok)!" + vbNewLine + _VATNumberError += "07 mellklet lap:" + vbNewLine + _VATNumberError += _VATReport07.Customers.FullName + vbNewLine + Else + If Not _VATNumberError.Contains("07 mellklet lap:") Then + _VATNumberError += "07 mellklet lap:" + vbNewLine + _VATNumberError += _VATReport07.Customers.FullName + vbNewLine + Else + _VATNumberError += _VATReport07.Customers.FullName + vbNewLine + End If + End If + End If + Next + + For Each _VATReport08 As VATReport08 In _VATReport.VATReport08 + If String.IsNullOrEmpty(_VATReport08.Customers.VATNumber) Then + If String.IsNullOrEmpty(_VATNumberError) Then + _VATNumberError = "Hinyz adszm(ok)!" + vbNewLine + _VATNumberError += "08 mellklet lap:" + vbNewLine + _VATNumberError += _VATReport08.Customers.FullName + vbNewLine + Else + If Not _VATNumberError.Contains("07 mellklet lap:") Then + _VATNumberError += "08 mellklet lap:" + vbNewLine + _VATNumberError += _VATReport08.Customers.FullName + vbNewLine + Else + _VATNumberError += _VATReport08.Customers.FullName + vbNewLine + End If + End If + End If + Next + + If Not String.IsNullOrEmpty(_VATNumberError) Then Throw New Exception(_VATNumberError) + + If TryCast(Application.Model.Options, IModelOptionsExtender) IsNot Nothing Then + If File.Exists(TryCast(Application.Model.Options, IModelOptionsExtender).NAVProgramPath) Then + _NAVProgramPath = TryCast(Application.Model.Options, IModelOptionsExtender).NAVProgramPath + Else + End If + Else + End If + + If _NAVProgramPath <> "" Then + _FileName65 = String.Format("{0}{1}.xml", Path.GetTempPath, _VATReport.ShortName) + Me.Create1465XML(_ocur, _FileName65, _VATReport) + Dim _ShellCommand As String = String.Format("{0} ""cmd:open.xml {1}""", _NAVProgramPath, _FileName65) + Shell(_ShellCommand, AppWinStyle.NormalFocus) + Else + _SaveFileDialog.Filter = "XML files (*.xml)|*.xml" + _SaveFileDialog.FileName = _VATReport.ShortName + _SaveFileDialog.DefaultExt = "xml" + _SaveFileDialog.FilterIndex = 2 + _SaveFileDialog.RestoreDirectory = True + + If _SaveFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + _FileName65 = _SaveFileDialog.FileName + + Me.Create65XML(_ocur, _FileName65, _VATReport) + + MsgBox(String.Format("Az XML file ""{0}"" nvvel a kvetkez helyen kerlt elmentsre:" + vbNewLine + "{1}", System.IO.Path.GetFileName(_SaveFileDialog.FileName), IO.Path.GetFullPath(_SaveFileDialog.FileName)), _ + MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Exportls befejezdtt!") + End If + End If + End Sub + Private Sub aVATReport_Check65XML_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aVATReport_Check65XML.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + Dim _NAVProgramPath As String = "" + + If TryCast(Application.Model.Options, IModelOptionsExtender) IsNot Nothing Then + If File.Exists(TryCast(Application.Model.Options, IModelOptionsExtender).NAVProgramPath) Then + _NAVProgramPath = TryCast(Application.Model.Options, IModelOptionsExtender).NAVProgramPath + End If + End If + + If _NAVProgramPath <> "" Then + Dim _FileName65 As String = Path.GetTempPath & _VATReport.ShortName & ".xml" + Dim _FileName65Result As String = Path.GetTempPath & _VATReport.ShortName & ".txt" + If IO.File.Exists(_FileName65) Then IO.File.Delete(_FileName65) + If IO.File.Exists(_FileName65Result) Then IO.File.Delete(_FileName65Result) + + Me.Create65XML(_ocur, _FileName65, _VATReport) + Dim _Process As New System.Diagnostics.Process + + With _Process.StartInfo + .FileName = _NAVProgramPath + .Arguments = " ""cmd:check.xml.silent " + _FileName65 + ";" + _FileName65Result + """" + .WindowStyle = ProcessWindowStyle.Hidden + End With + + _Process.Start() + _Process.WaitForExit() + + If IO.File.Exists(_FileName65Result) Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _VATReportCheckList_CollectionSource As New CollectionSource(_onew, GetType(VATReportCheckList)) + Dim _StreamReader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(_FileName65Result, System.Text.Encoding.Default) + Dim _ActLine As String + + Do + _ActLine = _StreamReader.ReadLine + If _ActLine IsNot Nothing Then + Dim _Bytes() As Byte = Encoding.Default.GetBytes(_ActLine) + _ActLine = Encoding.Default.GetString(_Bytes) + + If _ActLine.Contains("Hiba : ") Or _ActLine.Contains("Figyelmeztetsek:") Then + Dim _VATReportCheckList As New VATReportCheckList(_onew.Session) + With _VATReportCheckList + .Description = _ActLine + If _ActLine.Contains("Hiba : ") Then + .VATReportCheckListType = eVATReportCheckListType.eError + Else + .VATReportCheckListType = eVATReportCheckListType.eWarning + End If + + End With + + _VATReportCheckList_CollectionSource.Add(_VATReportCheckList) + End If + End If + Loop Until _ActLine Is Nothing + + _StreamReader.Close() + + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateListView("VATReportCheckList_ListView", _VATReportCheckList_CollectionSource, True) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.Separate + _ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + End If + End If + End Sub + +#Region "Subs" + Private Sub UploadField(_XmlTextWriter As XmlTextWriter, _FieldID As String, _ValueString As String) + _XmlTextWriter.WriteStartElement("mezo") ' + _XmlTextWriter.WriteAttributeString("eazon", _FieldID) + _XmlTextWriter.WriteString(_ValueString) + _XmlTextWriter.WriteEndElement() + End Sub + Private Sub Create65XML(_ocur As Xpo.XPObjectSpace, _FileName65 As String, _VATReport As VATReport) + Dim _XmlTextWriter As New XmlTextWriter(_FileName65, System.Text.Encoding.UTF8) + _XmlTextWriter.WriteStartDocument() + _XmlTextWriter.Formatting = Formatting.Indented + _XmlTextWriter.WriteStartElement("nyomtatvanyok") ' + _XmlTextWriter.WriteAttributeString("xmlns", "http://www.apeh.hu/abev/nyomtatvanyok/2005/01") + _XmlTextWriter.WriteStartElement("abev") + _XmlTextWriter.WriteStartElement("hibakszama") + _XmlTextWriter.WriteString("0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("hash") + _XmlTextWriter.WriteString("058e24f2acc722eae72d2fc8706c0c233bf1a4aa") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("programverzio") + _XmlTextWriter.WriteString("v.2.65.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("nyomtatvany") + _XmlTextWriter.WriteStartElement("nyomtatvanyinformacio") + _XmlTextWriter.WriteStartElement("nyomtatvanyazonosito") + + + _XmlTextWriter.WriteString(Mid(_VATReport.DateFrom.Year.ToString, 3, 2) & "65A") 'vente vltozhat !!!!!! + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("nyomtatvanyverzio") + _XmlTextWriter.WriteString("3.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adozo") + _XmlTextWriter.WriteStartElement("nev") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.FullName) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adoszam") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("idoszak") + _XmlTextWriter.WriteStartElement("tol") + _XmlTextWriter.WriteString(_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("ig") + _XmlTextWriter.WriteString(_VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("megjegyzes") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("mezok") + UploadField(_XmlTextWriter, "0A0001E001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0A0001E005A", _VATReport.CustomersFrom.FullName) + UploadField(_XmlTextWriter, "0A0001E006A", _VATReport.CustomersFrom.AdministratorName) + UploadField(_XmlTextWriter, "0A0001E007A", _VATReport.CustomersFrom.AdministratorPhoneNumber) + + 'UploadField(_XmlTextWriter, "0A0001F004A", "O") + UploadField(_XmlTextWriter, "0A0001F006A", "H") + + ' UploadField(_XmlTextWriter, "0A0001F015A", "1") + Dim _Page7Number As Long = _VATReport.VATReport07.Count / 36 + If _VATReport.VATReport07.Count Mod 36 > 0 Then + _Page7Number += 1 + End If + 'If _Page7Number <> 0 Then UploadField(_XmlTextWriter, "0A0001F017A", _Page7Number.ToString) '7. oldal darabszma + + Dim _Page8Number As Long = _VATReport.VATReport08.Count / 36 + If _VATReport.VATReport08.Count Mod 36 > 0 Then + _Page8Number += 1 + End If + + 'If _Page8Number <> 0 Then UploadField(_XmlTextWriter, "0A0001F018A", _Page8Number.ToString) + + Dim _VATReportGroupCustomers2M_Collection As New ArrayList + + For Each _VATReportGroupCustomers2M As VATReportGroupCustomers2M In _VATReport.VATReportGroupCustomers2M + If _VATReportGroupCustomers2M_Collection.Count = 0 Then + _VATReportGroupCustomers2M_Collection.Add(_VATReportGroupCustomers2M.Customers) + Else + Dim _Need As Boolean = True + For Each _Customers As Customers In _VATReportGroupCustomers2M_Collection + If _Customers.Oid = _VATReportGroupCustomers2M.Customers.Oid Then + _Need = False + Exit For + End If + Next + If _Need Then + _VATReportGroupCustomers2M_Collection.Add(_VATReportGroupCustomers2M.Customers) + End If + End If + Next + + If _VATReportGroupCustomers2M_Collection.Count > 0 Then UploadField(_XmlTextWriter, "0A0001F021A", _VATReportGroupCustomers2M_Collection.Count.ToString) ' Szmolni! + + UploadField(_XmlTextWriter, "0A0001F001A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0A0001F002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + If _VATReport.CustomersFrom.DefaultCustomerBankAccounts IsNot Nothing Then + Dim _AccountNumber As String() = _VATReport.CustomersFrom.DefaultCustomerBankAccounts.AccountNumber.Split(New Char() {"-"c}, StringSplitOptions.RemoveEmptyEntries) + UploadField(_XmlTextWriter, "0A0001G001A", _AccountNumber(0)) + UploadField(_XmlTextWriter, "0A0001G002A", _AccountNumber(1) + _AccountNumber(2)) + UploadField(_XmlTextWriter, "0A0001G003A", _VATReport.CustomersFrom.DefaultCustomerBankAccounts.ShortName) + End If + + 'UploadField(_XmlTextWriter, "0A0001G017A", "A") + + UploadField(_XmlTextWriter, "0A0001I001A", _VATReport.CustomersFrom.Address1.City.ToString) + UploadField(_XmlTextWriter, "0A0001I002A", _VATReport.DateVAT.Year.ToString + _VATReport.DateVAT.Month.ToString("00") + _VATReport.DateVAT.Day.ToString("00")) + + '01-01 lap + _XmlTextWriter.WriteComment("01-01 lap") + UploadField(_XmlTextWriter, "0B0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0B0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B005A", _VATReport.CustomersFrom.FullName) + + Dim _VATReportGroup_5_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=5 AND PartnerType=0", _VATReport)) + Dim _VATReportGroup_18_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=18 AND PartnerType=0", _VATReport)) + Dim _VATReportGroup_27_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=27 AND PartnerType=0", _VATReport)) + Dim _VATReportGroup_FAD_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=0 AND PartnerType=1 AND VAT.InversState=True", _VATReport)) + + Dim _SumAmountVATOutBase As Long = 0 + Dim _SumAmountVATOut As Long = 0 + Dim _SumAmountVATInBase As Long = 0 + Dim _SumAmountVATIn As Long = 0 + + If _VATReportGroup_5_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_5_Collection + _SumAmountVATOut += _VATReportGroup.AmountVATOut + _SumAmountVATOutBase += _VATReportGroup.AmountVATOutBase + Next + UploadField(_XmlTextWriter, "0B0001C0005BA", Math.Round(_SumAmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0B0001C0005CA", Math.Round(_SumAmountVATOut / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATOutBase = 0 + _SumAmountVATOut = 0 + + If _VATReportGroup_18_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_18_Collection + _SumAmountVATOut += _VATReportGroup.AmountVATOut + _SumAmountVATOutBase += _VATReportGroup.AmountVATOutBase + Next + UploadField(_XmlTextWriter, "0B0001C0006BA", Math.Round(_SumAmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0B0001C0006CA", Math.Round(_SumAmountVATOut / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATOutBase = 0 + _SumAmountVATOut = 0 + + If _VATReportGroup_27_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_27_Collection + _SumAmountVATOut += _VATReportGroup.AmountVATOut + _SumAmountVATOutBase += _VATReportGroup.AmountVATOutBase + Next + UploadField(_XmlTextWriter, "0B0001C0007BA", Math.Round(_SumAmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0B0001C0007CA", Math.Round(_SumAmountVATOut / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATOutBase = 0 + _SumAmountVATOut = 0 + + If _VATReportGroup_FAD_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_FAD_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + UploadField(_XmlTextWriter, "0B0001C0029BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0B0001C0029CA", Math.Round(_SumAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATIn = 0 + _SumAmountVATInBase = 0 + + '01-02 lap + _XmlTextWriter.WriteComment("01-02 lap") + UploadField(_XmlTextWriter, "0C0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0C0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B005A", _VATReport.CustomersFrom.FullName) + + Dim _VATReportGroup_5_Payabels_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND (VAT.KeyValuePercent=5 OR VAT.InversKeyValue=0.05) AND PartnerType=1 AND VAT.ClaimState=True", _VATReport)) + Dim _VATReportGroup_18_Payabels_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND (VAT.KeyValuePercent=18 OR VAT.InversKeyValue=0.18) AND PartnerType=1 AND VAT.ClaimState=True", _VATReport)) + Dim _VATReportGroup_27_Payabels_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND (VAT.KeyValuePercent=27 OR VAT.InversKeyValue=0.27) AND PartnerType=1 AND VAT.ClaimState=True", _VATReport)) + Dim _VATReportGroup_0_Payabels_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=0 AND PartnerType=1 AND VAT.ClaimState=True and VAT.InversState<>True", _VATReport)) + Dim _VATReportGroup_12_Payabels_Collection As New XPCollection(Of VATReportGroup)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=12 AND PartnerType=1 AND VAT.ClaimState=True and VAT.InversState<>True and VAT.ShortName = 'Komp 12%'", _VATReport)) + + Dim _VATReportGroup_12_Payabels_DB_Collection As New XPCollection(Of VATReportDetail)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND VAT.KeyValuePercent=12 AND PartnerType=1 AND VAT.ClaimState=True and VAT.InversState<>True and VAT.ShortName = 'Komp 12%'", _VATReport)) + + If _VATReportGroup_5_Payabels_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_5_Payabels_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + UploadField(_XmlTextWriter, "0C0001C0064BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0C0001C0064CA", Math.Round(_SumAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATInBase = 0 + _SumAmountVATIn = 0 + + If _VATReportGroup_18_Payabels_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_18_Payabels_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + UploadField(_XmlTextWriter, "0C0001C0065BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0C0001C0065CA", Math.Round(_SumAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATInBase = 0 + _SumAmountVATIn = 0 + + If _VATReportGroup_27_Payabels_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_27_Payabels_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + UploadField(_XmlTextWriter, "0C0001C0066BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0C0001C0066CA", Math.Round(_SumAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATInBase = 0 + _SumAmountVATIn = 0 + + If _VATReportGroup_0_Payabels_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_0_Payabels_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + UploadField(_XmlTextWriter, "0C0001C0063BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATInBase = 0 + _SumAmountVATIn = 0 + + If _VATReportGroup_12_Payabels_Collection.Count > 0 Then + For Each _VATReportGroup As VATReportGroup In _VATReportGroup_12_Payabels_Collection + _SumAmountVATIn += _VATReportGroup.AmountVATIn + _SumAmountVATInBase += _VATReportGroup.AmountVATInBase + Next + + UploadField(_XmlTextWriter, "0D0001C0073AA", _VATReportGroup_12_Payabels_DB_Collection.Count) + UploadField(_XmlTextWriter, "0D0001C0073BA", Math.Round(_SumAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0D0001C0073CA", Math.Round(_SumAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + End If + + _SumAmountVATInBase = 0 + _SumAmountVATIn = 0 + '01-03 lap + _XmlTextWriter.WriteComment("01-03 lap") + UploadField(_XmlTextWriter, "0D0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0D0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B005A", _VATReport.CustomersFrom.FullName) + + '01-04 lap + _XmlTextWriter.WriteComment("01-04 lap") + UploadField(_XmlTextWriter, "0E0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0E0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B005A", _VATReport.CustomersFrom.FullName) + + '01-05 lap + _XmlTextWriter.WriteComment("01-05 lap") + UploadField(_XmlTextWriter, "0F0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0F0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0F0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0F0001B005A", _VATReport.CustomersFrom.FullName) + + '02 lap + _XmlTextWriter.WriteComment("2 lap") + UploadField(_XmlTextWriter, "0H0001B001A", "1") + UploadField(_XmlTextWriter, "0H0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0H0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0H0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0H0001B006A", _VATReport.CustomersFrom.FullName) + + 'UploadField(_XmlTextWriter, "0H0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) '_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + ' UploadField(_XmlTextWriter, "0H0001B002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0H0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) '"1") + 'UploadField(_XmlTextWriter, "0H0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) '_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + 'UploadField(_XmlTextWriter, "0H0001B006A", _VATReport.CustomersFrom.FullName) + + '03 lap + _XmlTextWriter.WriteComment("3 lap") + UploadField(_XmlTextWriter, "0I0001B001A", "1") + UploadField(_XmlTextWriter, "0I0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0I0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0I0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0I0001B006A", _VATReport.CustomersFrom.FullName) + + ''04 lap + '_XmlTextWriter.WriteComment("4 lap") + 'UploadField(_XmlTextWriter, "0J0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + 'UploadField(_XmlTextWriter, "0J0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0J0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0J0001B005A", _VATReport.CustomersFrom.FullName) + + ''05 lap + '_XmlTextWriter.WriteComment("5 lap") + 'UploadField(_XmlTextWriter, "0K0001B001A", "1") + 'UploadField(_XmlTextWriter, "0K0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + 'UploadField(_XmlTextWriter, "0K0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0K0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0K0001B006A", _VATReport.CustomersFrom.FullName) + + 'UploadField(_XmlTextWriter, "0K0001F001A", _VATReport.CustomersFrom.Address1.City.ToString) + 'UploadField(_XmlTextWriter, "0K0001F002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + "20") + + + + Dim _PageIndex As Long = 1 + Dim _PageFullAmountLocal As Long = 0 + Dim _NeedPageHeader As Boolean = True + Dim _RowIndexPage7Local As Long = 1 + Dim _SumPagePageFullAmount As Long = 0 + + '07 lap + If _VATReport.VATReport07.Count > 0 Then + + _VATReport.VATReport07.Sorting.Add(New SortProperty("Customers.VATNumber", DB.SortingDirection.Ascending)) + _VATReport.VATReport07.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + _VATReport.VATReport07.Sorting.Add(New SortProperty("CustomsTariffs.NAVCode", DB.SortingDirection.Ascending)) + + For Each _VATReport07 As VATReport07 In _VATReport.VATReport07 + If _NeedPageHeader Then + _XmlTextWriter.WriteComment("7 lap/" + _PageIndex.ToString) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "B001A", _PageIndex.ToString) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "B006A", _VATReport.CustomersFrom.FullName) + _NeedPageHeader = False + End If + + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "AA", _VATReport07.Customers.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "BA", _VATReport07.DateExecution.Year.ToString() + _VATReport07.DateExecution.Month.ToString("00") + _VATReport07.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "CA", _VATReport07.CustomsTariffs.NAVDescription) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "DA", _VATReport07.CustomsTariffs.NAVCode) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "EA", Math.Round(_VATReport07.Weight, 0, MidpointRounding.AwayFromZero).ToString) + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "FA", Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + + _PageFullAmountLocal += Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + _SumPagePageFullAmount += Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + + If _RowIndexPage7Local Mod 36 = 0 Then + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + _PageIndex += 1 + _RowIndexPage7Local = 0 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + End If + + _RowIndexPage7Local += 1 + Next + UploadField(_XmlTextWriter, "0J" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) 'Utols oldal sszesen + UploadField(_XmlTextWriter, "0B0001C0004BA", _SumPagePageFullAmount.ToString()) '4. sor 1365A + UploadField(_XmlTextWriter, "0F0001C0100BA", _SumPagePageFullAmount.ToString()) '100. sor 1365A + + End If + + '08 lap + _PageIndex = 1 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + Dim _RowIndexPage8Local As Long = 1 + _SumPagePageFullAmount = 0 + + If _VATReport.VATReport08.Count > 0 Then + + _VATReport.VATReport08.Sorting.Add(New SortProperty("Customers.VATNumber", DB.SortingDirection.Ascending)) + _VATReport.VATReport08.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + _VATReport.VATReport08.Sorting.Add(New SortProperty("CustomsTariffs.NAVCode", DB.SortingDirection.Ascending)) + + For Each _VATReport08 As VATReport08 In _VATReport.VATReport08 + If _NeedPageHeader Then + _XmlTextWriter.WriteComment("8 lap/" + _PageIndex.ToString) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "B001A", "1") + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "B006A", _VATReport.CustomersFrom.FullName) + _NeedPageHeader = False + End If + + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "AA", _VATReport08.Customers.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "BA", _VATReport08.DateExecution.Year.ToString() + _VATReport08.DateExecution.Month.ToString("00") + _VATReport08.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "CA", _VATReport08.CustomsTariffs.NAVDescription) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "DA", _VATReport08.CustomsTariffs.NAVCode) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "EA", Math.Round(_VATReport08.Weight, 0, MidpointRounding.AwayFromZero).ToString) + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "FA", Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + + _PageFullAmountLocal += Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + _SumPagePageFullAmount += Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + + + If _RowIndexPage8Local Mod 36 = 0 Then + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + _PageIndex += 1 + _RowIndexPage8Local = 0 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + End If + + _RowIndexPage8Local += 1 + Next + + UploadField(_XmlTextWriter, "0K" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + UploadField(_XmlTextWriter, "0F0001C0101BA", _SumPagePageFullAmount.ToString()) '101. sor 1365A + Dim _FAD_VAT As VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName='FAD' AND InversState=True AND Active=True")) + + If _FAD_VAT IsNot Nothing Then + UploadField(_XmlTextWriter, "0F0001C0101CA", Math.Round(_SumPagePageFullAmount * _FAD_VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero).ToString()) + End If + + + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + End If + '65M nyomtatvnyok generlsa + If _VATReportGroupCustomers2M_Collection.Count > 0 Then + For Each _Customers As Customers In _VATReportGroupCustomers2M_Collection + _XmlTextWriter.WriteStartElement("nyomtatvany") + _XmlTextWriter.WriteStartElement("nyomtatvanyinformacio") + _XmlTextWriter.WriteStartElement("nyomtatvanyazonosito") + _XmlTextWriter.WriteString(Mid(_VATReport.DateFrom.Year.ToString, 3, 2) & "65M") 'vente vltozhat + _XmlTextWriter.WriteEndElement() 'nyomtatvanyazonosito + _XmlTextWriter.WriteStartElement("nyomtatvanyverzio") + _XmlTextWriter.WriteString("3.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adozo") + _XmlTextWriter.WriteStartElement("nev") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.FullName) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adoszam") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("albizonylatazonositas") + _XmlTextWriter.WriteStartElement("megnevezes") + _XmlTextWriter.WriteString(_Customers.FullName) + _XmlTextWriter.WriteEndElement() 'megnevezes + _XmlTextWriter.WriteStartElement("azonosito") + _XmlTextWriter.WriteString(_Customers.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() 'azonosito + _XmlTextWriter.WriteEndElement() 'albizonylatazonositas + _XmlTextWriter.WriteStartElement("idoszak") + _XmlTextWriter.WriteStartElement("tol") + _XmlTextWriter.WriteString(_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("ig") + _XmlTextWriter.WriteString(_VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("megjegyzes") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() 'nyomtatvanyinformacio + + _XmlTextWriter.WriteStartElement("mezok") + UploadField(_XmlTextWriter, "0A0001C001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0A0001C005A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0A0001C006A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0A0001C008A", _Customers.FullName) + UploadField(_XmlTextWriter, "0A0001D001A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0A0001D002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + + '01 lap + _XmlTextWriter.WriteComment("01 lap") + UploadField(_XmlTextWriter, "0B0001B001A", "1") + UploadField(_XmlTextWriter, "0B0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0B0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0B0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0B0001B009A", _Customers.FullName) + + '01-K lap + _XmlTextWriter.WriteComment("01-K lap") + UploadField(_XmlTextWriter, "0C0001B001A", "1") + UploadField(_XmlTextWriter, "0C0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0C0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0C0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0C0001B009A", _Customers.FullName) + + '02 lap + _XmlTextWriter.WriteComment("02 lap") + UploadField(_XmlTextWriter, "0D0001B001A", "1") + UploadField(_XmlTextWriter, "0D0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0D0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0D0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0D0001B009A", _Customers.FullName) + + '02-K lap + _XmlTextWriter.WriteComment("02-K lap") + UploadField(_XmlTextWriter, "0E0001B001A", "1") + UploadField(_XmlTextWriter, "0E0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0E0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0E0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0E0001B009A", _Customers.FullName) + + Dim _VATReportGroupCustomers2M_Customers_Collection As New XPCollection(Of VATReportGroupCustomers2M)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND Customers=?", _VATReport, _Customers)) + + Dim _FullAmountVATIn As Long = 0 + Dim _FullAmountVATInBase As Long = 0 + Dim _Full02C As Long = 0 + Dim _Full02D As Long = 0 + Dim _Full0A67DA As Long = 0 + Dim _RowIndex As Long = 1 + For Each _VATReportGroupCustomers2M As VATReportGroupCustomers2M In _VATReportGroupCustomers2M_Customers_Collection + If Not String.IsNullOrEmpty(_VATReportGroupCustomers2M.DocumentNumber) Then + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.ePayabels Then + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "AA", _VATReportGroupCustomers2M.DocumentNumber) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "BA", _VATReportGroupCustomers2M.DateExecution.Year.ToString + _VATReportGroupCustomers2M.DateExecution.Month.ToString("00") + _VATReportGroupCustomers2M.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "CA", Math.Round(_VATReportGroupCustomers2M.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "DA", Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + + _Full02C += Math.Round(_VATReportGroupCustomers2M.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + _Full02D += Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero) + End If + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.eReceivables Then + UploadField(_XmlTextWriter, "0B0001C" + _RowIndex.ToString("0000") + "AA", _VATReportGroupCustomers2M.DocumentNumber) + UploadField(_XmlTextWriter, "0B0001C" + _RowIndex.ToString("0000") + "BA", _VATReportGroupCustomers2M.DateExecution.Year.ToString + _VATReportGroupCustomers2M.DateExecution.Month.ToString("00") + _VATReportGroupCustomers2M.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001C" + _RowIndex.ToString("0000") + "CA", Math.Round(_VATReportGroupCustomers2M.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0B0001C" + _RowIndex.ToString("0000") + "DA", Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero)) + + _Full02C += Math.Round(_VATReportGroupCustomers2M.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + _Full02D += Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero) + End If + _RowIndex += 1 + Else + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.ePayabels Then + _Full0A67DA += Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero) + End If + 'If _VATReportGroupCustomers2M.PartnerType = ePartnerType.eReceivables Then + ' _Full0A67DA += Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero) + 'End If + End If + + _FullAmountVATIn += _VATReportGroupCustomers2M.AmountVATIn + _FullAmountVATInBase += _VATReportGroupCustomers2M.AmountVATInBase + + Next + If _Full02C > 0 And _Full02D > 0 Then + UploadField(_XmlTextWriter, "0B0001C0037CA", _Full02C.ToString) + UploadField(_XmlTextWriter, "0B0001C0037DA", _Full02D.ToString) + + UploadField(_XmlTextWriter, "0A0001E0004BA", (_RowIndex - 1).ToString) + UploadField(_XmlTextWriter, "0A0001E0004CA", _Full02C.ToString) + UploadField(_XmlTextWriter, "0A0001E0004DA", _Full02D.ToString) + + UploadField(_XmlTextWriter, "0A0001E0007BA", (_RowIndex - 1).ToString) + UploadField(_XmlTextWriter, "0A0001E0007CA", _Full02C.ToString) + ' UploadField(_XmlTextWriter, "0A0001E0007DA", _Full02D.ToString) + End If + If _Full0A67DA > 0 Then + UploadField(_XmlTextWriter, "0A0001E0006DA", _Full0A67DA.ToString) + ' UploadField(_XmlTextWriter, "0A0001E0007DA", _Full0A67DA.ToString) + End If + + UploadField(_XmlTextWriter, "0A0001E0007DA", (_Full02D + _Full0A67DA).ToString) + 'UploadField(_XmlTextWriter, "0A0001E0004CA", Math.Round(_FullAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + 'UploadField(_XmlTextWriter, "0A0001E0007CA", Math.Round(_FullAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + + 'UploadField(_XmlTextWriter, "0A0001E0004DA", Math.Round(_FullAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + 'UploadField(_XmlTextWriter, "0A0001E0007DA", Math.Round(_FullAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + + _XmlTextWriter.WriteEndElement() 'mezk + _XmlTextWriter.WriteEndElement() 'nyomtatvany + Next + End If + _XmlTextWriter.WriteEndElement() 'Nyomtatvnyok + + _XmlTextWriter.Flush() + _XmlTextWriter.Close() + End Sub + Private Sub Create1465XML(_ocur As Xpo.XPObjectSpace, _FileName65 As String, _VATReport As VATReport) + + On Error Resume Next + + Dim _XmlTextWriter As New XmlTextWriter(_FileName65, System.Text.Encoding.UTF8) + _XmlTextWriter.WriteStartDocument() + _XmlTextWriter.Formatting = Formatting.Indented + _XmlTextWriter.WriteStartElement("nyomtatvanyok") ' + _XmlTextWriter.WriteAttributeString("xmlns", "http://www.apeh.hu/abev/nyomtatvanyok/2005/01") + _XmlTextWriter.WriteStartElement("abev") + _XmlTextWriter.WriteStartElement("hibakszama") + _XmlTextWriter.WriteString("0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("hash") + _XmlTextWriter.WriteString("96b82602300312ce6edd8ef0c784ef4419ba4186") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("programverzio") + _XmlTextWriter.WriteString("v.2.50.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("nyomtatvany") + _XmlTextWriter.WriteStartElement("nyomtatvanyinformacio") + _XmlTextWriter.WriteStartElement("nyomtatvanyazonosito") + _XmlTextWriter.WriteString(Mid(_VATReport.DateFrom.Year.ToString, 3, 2) & "65A") 'vente vltozhat !!!!!! + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("nyomtatvanyverzio") + _XmlTextWriter.WriteString("3.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adozo") + _XmlTextWriter.WriteStartElement("nev") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.FullName) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adoszam") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("idoszak") + _XmlTextWriter.WriteStartElement("tol") + _XmlTextWriter.WriteString(_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("ig") + _XmlTextWriter.WriteString(_VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("megjegyzes") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("mezok") + UploadField(_XmlTextWriter, "0A0001E001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0A0001E008A", _VATReport.CustomersFrom.FullName) + ' UploadField(_XmlTextWriter, "0A0001E009A", "X") + UploadField(_XmlTextWriter, "0A0001E011A", _VATReport.CustomersFrom.Address1.ZipPostal) + UploadField(_XmlTextWriter, "0A0001E012A", _VATReport.CustomersFrom.Address1.City) + UploadField(_XmlTextWriter, "0A0001E013A", _VATReport.CustomersFrom.Address1.Street) + UploadField(_XmlTextWriter, "0A0001E014A", _VATReport.CustomersFrom.PublicLandAddress1) + + If _VATReport.CustomersFrom.Address2 IsNot Nothing Then + ' UploadField(_XmlTextWriter, "0A0001E020A", "X") + UploadField(_XmlTextWriter, "0A0001E022A", _VATReport.CustomersFrom.Address2.ZipPostal) + UploadField(_XmlTextWriter, "0A0001E023A", _VATReport.CustomersFrom.Address2.City) + UploadField(_XmlTextWriter, "0A0001E024A", _VATReport.CustomersFrom.Address2.Street) + UploadField(_XmlTextWriter, "0A0001E025A", _VATReport.CustomersFrom.PublicLandAddress2) + Else + ' UploadField(_XmlTextWriter, "0A0001E020A", "X") + UploadField(_XmlTextWriter, "0A0001E022A", _VATReport.CustomersFrom.Address1.ZipPostal) + UploadField(_XmlTextWriter, "0A0001E023A", _VATReport.CustomersFrom.Address1.City) + UploadField(_XmlTextWriter, "0A0001E024A", _VATReport.CustomersFrom.Address1.Street) + UploadField(_XmlTextWriter, "0A0001E025A", _VATReport.CustomersFrom.PublicLandAddress2) + End If + + UploadField(_XmlTextWriter, "0A0001E031A", _VATReport.CustomersFrom.AdministratorName) + UploadField(_XmlTextWriter, "0A0001E032A", _VATReport.CustomersFrom.AdministratorPhoneNumber) + + 'UploadField(_XmlTextWriter, "0A0001F004A", "O") + UploadField(_XmlTextWriter, "0A0001F005A", "H") + + ' UploadField(_XmlTextWriter, "0A0001F015A", "1") + Dim _Page7Number As Long = _VATReport.VATReport07.Count / 36 + If _VATReport.VATReport07.Count Mod 36 > 0 Then + _Page7Number += 1 + End If + If _Page7Number <> 0 Then UploadField(_XmlTextWriter, "0A0001F017A", _Page7Number.ToString) '7. oldal darabszma + + Dim _Page8Number As Long = _VATReport.VATReport08.Count / 36 + If _VATReport.VATReport08.Count Mod 36 > 0 Then + _Page8Number += 1 + End If + + If _Page8Number <> 0 Then UploadField(_XmlTextWriter, "0A0001F018A", _Page8Number.ToString) + + Dim _VATReportGroupCustomers2M_Collection As New ArrayList + + For Each _VATReportGroupCustomers2M As VATReportGroupCustomers2M In _VATReport.VATReportGroupCustomers2M + If _VATReportGroupCustomers2M_Collection.Count = 0 Then + _VATReportGroupCustomers2M_Collection.Add(_VATReportGroupCustomers2M.Customers) + Else + Dim _Need As Boolean = True + For Each _Customers As Customers In _VATReportGroupCustomers2M_Collection + If _Customers.Oid = _VATReportGroupCustomers2M.Customers.Oid Then + _Need = False + Exit For + End If + Next + If _Need Then + _VATReportGroupCustomers2M_Collection.Add(_VATReportGroupCustomers2M.Customers) + End If + End If + Next + + If _VATReportGroupCustomers2M_Collection.Count > 0 Then UploadField(_XmlTextWriter, "0A0001F021A", _VATReportGroupCustomers2M_Collection.Count.ToString) ' Szmolni! + + UploadField(_XmlTextWriter, "0A0001F001A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0A0001F002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + If _VATReport.CustomersFrom.DefaultCustomerBankAccounts IsNot Nothing Then + Dim _AccountNumber As String() = _VATReport.CustomersFrom.DefaultCustomerBankAccounts.AccountNumber.Split(New Char() {"-"c}, StringSplitOptions.RemoveEmptyEntries) + UploadField(_XmlTextWriter, "0A0001G001A", _AccountNumber(0)) + UploadField(_XmlTextWriter, "0A0001G002A", _AccountNumber(1) + _AccountNumber(2)) + UploadField(_XmlTextWriter, "0A0001G003A", _VATReport.CustomersFrom.DefaultCustomerBankAccounts.ShortName) + End If + + 'UploadField(_XmlTextWriter, "0A0001G017A", "A") + + UploadField(_XmlTextWriter, "0A0001I001A", _VATReport.CustomersFrom.Address1.City.ToString) + UploadField(_XmlTextWriter, "0A0001I002A", _VATReport.DateVAT.Year.ToString + _VATReport.DateVAT.Month.ToString("00") + _VATReport.DateVAT.Day.ToString("00")) + + '01-01 lap + _XmlTextWriter.WriteComment("01-01 lap") + UploadField(_XmlTextWriter, "0B0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0B0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B005A", _VATReport.CustomersFrom.FullName) + + Dim _VATReportNAVCodes_Structure_Collection As New ArrayList + Dim _VATReportNAVCodes As VATReportNAVCodes_Structure + Dim _VAT_Collection As New XPCollection(Of VAT)(_ocur.Session) + Dim _Exists As Boolean = False + For Each _VAT As VAT In _VAT_Collection + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDBaseValueIn) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDBaseValueIn Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDBaseValueIn + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDBaseValueInSum) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDBaseValueInSum Then + _Exists = True + Exit For + End If + Next + + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDBaseValueInSum + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDBaseValueOut) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDBaseValueOut Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDBaseValueOut + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDBaseValueOutSum) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDBaseValueOutSum Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDBaseValueOutSum + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDValueIn) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDValueIn Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDValueIn + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDValueInSum) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDValueInSum Then + _Exists = True + Exit For + End If + Next + + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDValueInSum + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDValueOut) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDValueOut Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDValueOut + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + + If Not String.IsNullOrEmpty(_VAT.XML65AFieldIDValueOutSum) Then + _Exists = False + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + If _VATReportNAVCodes.VATCode = _VAT.XML65AFieldIDValueOutSum Then + _Exists = True + Exit For + End If + Next + If _Exists = False Then + + With _VATReportNAVCodes + .VATCode = _VAT.XML65AFieldIDValueOutSum + .VATValue = 0 + End With + _VATReportNAVCodes_Structure_Collection.Add(_VATReportNAVCodes) + End If + End If + Next + + For Each _VATReportGroup As VATReportGroup In _VATReport.VATReportGroup + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDBaseValueIn Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATInBase + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDBaseValueOut Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATOutBase + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDValueIn Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATIn + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDValueOut Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATOut + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDBaseValueInSum Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATInBase + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDBaseValueOutSum Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATOutBase + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDValueInSum Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATIn + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + + For _ik = 0 To _VATReportNAVCodes_Structure_Collection.Count - 1 + Dim _VATReportNAVCodes_Structure As VATReportNAVCodes_Structure = _ + CType(_VATReportNAVCodes_Structure_Collection(_ik), VATReportNAVCodes_Structure) + + If _VATReportNAVCodes_Structure.VATCode = _VATReportGroup.VAT.XML65AFieldIDValueOutSum Then + _VATReportNAVCodes_Structure.VATValue += _VATReportGroup.AmountVATOut + + _VATReportNAVCodes_Structure_Collection(_ik) = _VATReportNAVCodes_Structure + End If + Next + Next + + For Each _VATReportNAVCodes In _VATReportNAVCodes_Structure_Collection + UploadField(_XmlTextWriter, _VATReportNAVCodes.VATCode, CType(_VATReportNAVCodes.VATValue / 1000, Long)) + Next + + + '01-02 lap + _XmlTextWriter.WriteComment("01-02 lap") + UploadField(_XmlTextWriter, "0C0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0C0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B005A", _VATReport.CustomersFrom.FullName) + + '01-03 lap + _XmlTextWriter.WriteComment("01-03 lap") + UploadField(_XmlTextWriter, "0D0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0D0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B005A", _VATReport.CustomersFrom.FullName) + + '01-04 lap + _XmlTextWriter.WriteComment("01-04 lap") + UploadField(_XmlTextWriter, "0E0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0E0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B005A", _VATReport.CustomersFrom.FullName) + + '01-05 lap + _XmlTextWriter.WriteComment("01-05 lap") + UploadField(_XmlTextWriter, "0F0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0F0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0F0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0F0001B005A", _VATReport.CustomersFrom.FullName) + + '02 lap + _XmlTextWriter.WriteComment("2 lap") + UploadField(_XmlTextWriter, "0H0001B001A", "1") + UploadField(_XmlTextWriter, "0H0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0H0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0H0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0H0001B006A", _VATReport.CustomersFrom.FullName) + + 'UploadField(_XmlTextWriter, "0H0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) '_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + ' UploadField(_XmlTextWriter, "0H0001B002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + 'UploadField(_XmlTextWriter, "0H0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) '"1") + 'UploadField(_XmlTextWriter, "0H0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) '_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + 'UploadField(_XmlTextWriter, "0H0001B006A", _VATReport.CustomersFrom.FullName) + + '03 lap + _XmlTextWriter.WriteComment("3 lap") + UploadField(_XmlTextWriter, "0I0001B001A", "1") + UploadField(_XmlTextWriter, "0I0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0I0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0I0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0I0001B006A", _VATReport.CustomersFrom.FullName) + + '04 lap + _XmlTextWriter.WriteComment("4 lap") + UploadField(_XmlTextWriter, "0J0001B001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0J0001B003A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0J0001B004A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0J0001B005A", _VATReport.CustomersFrom.FullName) + + '05 lap + _XmlTextWriter.WriteComment("5 lap") + UploadField(_XmlTextWriter, "0K0001B001A", "1") + UploadField(_XmlTextWriter, "0K0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0K0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0K0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0K0001B006A", _VATReport.CustomersFrom.FullName) + + UploadField(_XmlTextWriter, "0K0001F001A", _VATReport.CustomersFrom.Address1.City.ToString) + UploadField(_XmlTextWriter, "0K0001F002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + "20") + + + + Dim _PageIndex As Long = 1 + Dim _PageFullAmountLocal As Long = 0 + Dim _NeedPageHeader As Boolean = True + Dim _RowIndexPage7Local As Long = 1 + Dim _SumPagePageFullAmount As Long = 0 + + '07 lap + If _VATReport.VATReport07.Count > 0 Then + + _VATReport.VATReport07.Sorting.Add(New SortProperty("Customers.VATNumber", DB.SortingDirection.Ascending)) + _VATReport.VATReport07.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + _VATReport.VATReport07.Sorting.Add(New SortProperty("CustomsTariffs.NAVCode", DB.SortingDirection.Ascending)) + + For Each _VATReport07 As VATReport07 In _VATReport.VATReport07 + If _NeedPageHeader Then + _XmlTextWriter.WriteComment("7 lap/" + _PageIndex.ToString) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "B001A", _PageIndex.ToString) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "B006A", _VATReport.CustomersFrom.FullName) + _NeedPageHeader = False + End If + + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "AA", _VATReport07.Customers.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "BA", _VATReport07.DateExecution.Year.ToString() + _VATReport07.DateExecution.Month.ToString("00") + _VATReport07.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "CA", _VATReport07.CustomsTariffs.NAVDescription) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "DA", _VATReport07.CustomsTariffs.NAVCode) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "EA", Math.Round(_VATReport07.Weight, 0, MidpointRounding.AwayFromZero).ToString) + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C" + _RowIndexPage7Local.ToString("0000") + "FA", Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + + _PageFullAmountLocal += Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + _SumPagePageFullAmount += Math.Round(_VATReport07.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + + If _RowIndexPage7Local Mod 36 = 0 Then + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + _PageIndex += 1 + _RowIndexPage7Local = 0 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + End If + + _RowIndexPage7Local += 1 + Next + UploadField(_XmlTextWriter, "0L" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) 'Utols oldal sszesen + UploadField(_XmlTextWriter, "0B0001C0004BA", _SumPagePageFullAmount.ToString()) '4. sor 1365A + UploadField(_XmlTextWriter, "0E0001E0100BA", _SumPagePageFullAmount.ToString()) '100. sor 1365A + + End If + + '08 lap + _PageIndex = 1 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + Dim _RowIndexPage8Local As Long = 1 + _SumPagePageFullAmount = 0 + + If _VATReport.VATReport08.Count > 0 Then + + _VATReport.VATReport08.Sorting.Add(New SortProperty("Customers.VATNumber", DB.SortingDirection.Ascending)) + _VATReport.VATReport08.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + _VATReport.VATReport08.Sorting.Add(New SortProperty("CustomsTariffs.NAVCode", DB.SortingDirection.Ascending)) + + For Each _VATReport08 As VATReport08 In _VATReport.VATReport08 + If _NeedPageHeader Then + _XmlTextWriter.WriteComment("8 lap/" + _PageIndex.ToString) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "B001A", "1") + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "B006A", _VATReport.CustomersFrom.FullName) + _NeedPageHeader = False + End If + + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "AA", _VATReport08.Customers.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "BA", _VATReport08.DateExecution.Year.ToString() + _VATReport08.DateExecution.Month.ToString("00") + _VATReport08.DateExecution.Day.ToString("00")) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "CA", _VATReport08.CustomsTariffs.NAVDescription) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "DA", _VATReport08.CustomsTariffs.NAVCode) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "EA", Math.Round(_VATReport08.Weight, 0, MidpointRounding.AwayFromZero).ToString) + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C" + _RowIndexPage8Local.ToString("0000") + "FA", Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + + _PageFullAmountLocal += Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + _SumPagePageFullAmount += Math.Round(_VATReport08.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + + + If _RowIndexPage8Local Mod 36 = 0 Then + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + _PageIndex += 1 + _RowIndexPage8Local = 0 + _PageFullAmountLocal = 0 + _NeedPageHeader = True + End If + + _RowIndexPage8Local += 1 + Next + + UploadField(_XmlTextWriter, "0M" + _PageIndex.ToString("0000") + "C0037FA", _PageFullAmountLocal.ToString()) + UploadField(_XmlTextWriter, "0E0001E0101BA", _SumPagePageFullAmount.ToString()) '101. sor 1365A + Dim _FAD_VAT As VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName='FAD' AND InversState=True AND Active=True")) + + If _FAD_VAT IsNot Nothing Then + UploadField(_XmlTextWriter, "0E0001E0101CA", Math.Round(_SumPagePageFullAmount * _FAD_VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero).ToString()) + End If + + + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + End If + '65M nyomtatvnyok generlsa + If _VATReportGroupCustomers2M_Collection.Count > 0 Then + For Each _Customers As Customers In _VATReportGroupCustomers2M_Collection + _XmlTextWriter.WriteStartElement("nyomtatvany") + _XmlTextWriter.WriteStartElement("nyomtatvanyinformacio") + _XmlTextWriter.WriteStartElement("nyomtatvanyazonosito") + _XmlTextWriter.WriteString(Mid(_VATReport.DateFrom.Year.ToString, 3, 2) & "65M") 'vente vltozhat + _XmlTextWriter.WriteEndElement() 'nyomtatvanyazonosito + _XmlTextWriter.WriteStartElement("nyomtatvanyverzio") + _XmlTextWriter.WriteString("3.0") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adozo") + _XmlTextWriter.WriteStartElement("nev") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.FullName) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("adoszam") + _XmlTextWriter.WriteString(_VATReport.CustomersFrom.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("albizonylatazonositas") + _XmlTextWriter.WriteStartElement("megnevezes") + _XmlTextWriter.WriteString(_Customers.FullName) + _XmlTextWriter.WriteEndElement() 'megnevezes + _XmlTextWriter.WriteStartElement("azonosito") + _XmlTextWriter.WriteString(_Customers.VATNumber.Replace("-", "")) + _XmlTextWriter.WriteEndElement() 'azonosito + _XmlTextWriter.WriteEndElement() 'albizonylatazonositas + _XmlTextWriter.WriteStartElement("idoszak") + _XmlTextWriter.WriteStartElement("tol") + _XmlTextWriter.WriteString(_VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("ig") + _XmlTextWriter.WriteString(_VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteStartElement("megjegyzes") + _XmlTextWriter.WriteEndElement() + _XmlTextWriter.WriteEndElement() 'nyomtatvanyinformacio + + _XmlTextWriter.WriteStartElement("mezok") + UploadField(_XmlTextWriter, "0A0001C001A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0A0001C004A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0A0001C005A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0A0001C007A", _Customers.FullName) + UploadField(_XmlTextWriter, "0A0001D001A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0A0001D002A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + + '01 lap + _XmlTextWriter.WriteComment("01 lap") + UploadField(_XmlTextWriter, "0B0001B001A", "1") + UploadField(_XmlTextWriter, "0B0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0B0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0B0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0B0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0B0001B009A", _Customers.FullName) + + '01-K lap + _XmlTextWriter.WriteComment("01-K lap") + UploadField(_XmlTextWriter, "0C0001B001A", "1") + UploadField(_XmlTextWriter, "0C0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0C0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0C0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0C0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0C0001B009A", _Customers.FullName) + + '02 lap + _XmlTextWriter.WriteComment("02 lap") + UploadField(_XmlTextWriter, "0D0001B001A", "1") + UploadField(_XmlTextWriter, "0D0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0D0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0D0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0D0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0D0001B009A", _Customers.FullName) + + '02-K lap + _XmlTextWriter.WriteComment("02-K lap") + UploadField(_XmlTextWriter, "0E0001B001A", "1") + UploadField(_XmlTextWriter, "0E0001B002A", _VATReport.CustomersFrom.VATNumber.Replace("-", "")) + UploadField(_XmlTextWriter, "0E0001B004A", _VATReport.DateFrom.Year.ToString + _VATReport.DateFrom.Month.ToString("00") + _VATReport.DateFrom.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B005A", _VATReport.DateTo.Year.ToString + _VATReport.DateTo.Month.ToString("00") + _VATReport.DateTo.Day.ToString("00")) + UploadField(_XmlTextWriter, "0E0001B006A", _VATReport.CustomersFrom.FullName) + If Not String.IsNullOrEmpty(_Customers.VATNumber) Then + UploadField(_XmlTextWriter, "0E0001B007A", _Customers.VATNumber.Remove(8, _Customers.VATNumber.Length - 8)) + End If + UploadField(_XmlTextWriter, "0E0001B009A", _Customers.FullName) + + Dim _VATReportGroupCustomers2M_Customers_Collection As New XPCollection(Of VATReportGroupCustomers2M)(_ocur.Session, CriteriaOperator.Parse("VATReport=? AND Customers=?", _VATReport, _Customers)) + + Dim _FullAmountVATIn As Long = 0 + Dim _FullAmountVATInBase As Long = 0 + Dim _Full02C As Long = 0 + Dim _Full02D As Long = 0 + Dim _Full0A67DA As Long = 0 + Dim _RowIndex As Long = 1 + For Each _VATReportGroupCustomers2M As VATReportGroupCustomers2M In _VATReportGroupCustomers2M_Customers_Collection + If Not String.IsNullOrEmpty(_VATReportGroupCustomers2M.DocumentNumber) Then + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "AA", _VATReportGroupCustomers2M.DocumentNumber) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "BA", _VATReportGroupCustomers2M.DateExecution.Year.ToString + _VATReportGroupCustomers2M.DateExecution.Month.ToString("00") + _VATReportGroupCustomers2M.DateExecution.Day.ToString("00")) + + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.ePayabels Then + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "CA", Math.Round(_VATReportGroupCustomers2M.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "DA", Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + + _Full02C += Math.Round(_VATReportGroupCustomers2M.AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + _Full02D += Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero) + End If + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.eReceivables Then + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "CA", Math.Round(_VATReportGroupCustomers2M.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero)) + UploadField(_XmlTextWriter, "0D0001C" + _RowIndex.ToString("0000") + "DA", Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero)) + + _Full02C += Math.Round(_VATReportGroupCustomers2M.AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + _Full02D += Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero) + End If + _RowIndex += 1 + Else + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.ePayabels Then + _Full0A67DA += Math.Round(_VATReportGroupCustomers2M.AmountVATIn / 1000, 0, MidpointRounding.AwayFromZero) + End If + If _VATReportGroupCustomers2M.PartnerType = ePartnerType.eReceivables Then + _Full0A67DA += Math.Round(_VATReportGroupCustomers2M.AmountVATOut / 1000, 0, MidpointRounding.AwayFromZero) + End If + End If + + _FullAmountVATIn += _VATReportGroupCustomers2M.AmountVATIn + _FullAmountVATInBase += _VATReportGroupCustomers2M.AmountVATInBase + + Next + If _Full02C > 0 And _Full02D > 0 Then + UploadField(_XmlTextWriter, "0D0001C0037CA", _Full02C.ToString) + UploadField(_XmlTextWriter, "0D0001C0037DA", _Full02D.ToString) + + UploadField(_XmlTextWriter, "0A0001E0004BA", (_RowIndex - 1).ToString) + UploadField(_XmlTextWriter, "0A0001E0004CA", _Full02C.ToString) + UploadField(_XmlTextWriter, "0A0001E0004DA", _Full02D.ToString) + + UploadField(_XmlTextWriter, "0A0001E0007BA", (_RowIndex - 1).ToString) + UploadField(_XmlTextWriter, "0A0001E0007CA", _Full02C.ToString) + ' UploadField(_XmlTextWriter, "0A0001E0007DA", _Full02D.ToString) + End If + If _Full0A67DA > 0 Then + UploadField(_XmlTextWriter, "0A0001E0006DA", _Full0A67DA.ToString) + ' UploadField(_XmlTextWriter, "0A0001E0007DA", _Full0A67DA.ToString) + End If + + UploadField(_XmlTextWriter, "0A0001E0007DA", (_Full02D + _Full0A67DA).ToString) + 'UploadField(_XmlTextWriter, "0A0001E0004CA", Math.Round(_FullAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + 'UploadField(_XmlTextWriter, "0A0001E0007CA", Math.Round(_FullAmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero)) + + 'UploadField(_XmlTextWriter, "0A0001E0004DA", Math.Round(_FullAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + 'UploadField(_XmlTextWriter, "0A0001E0007DA", Math.Round(_FullAmountVATIn / 1000, 0, MidpointRounding.AwayFromZero)) + + _XmlTextWriter.WriteEndElement() 'mezk + _XmlTextWriter.WriteEndElement() 'nyomtatvany + Next + End If + _XmlTextWriter.WriteEndElement() 'Nyomtatvnyok + + _XmlTextWriter.Flush() + _XmlTextWriter.Close() + End Sub +#End Region + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLReset.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLReset.vb new file mode 100644 index 0000000..f19dfb4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLReset.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports SISBusiness.Module +'-- A rendszer nullázásához használt objektum + _ + _ +Public Class GLResetAll + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class + _ + _ +Public Class ResetObjects + Inherits BaseObject + Private _ObjectType As Type + Private _CustomersFrom As CustomersFrom + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Property ObjectType As Type + Get + Return _ObjectType + End Get + Set(ByVal value As Type) + SetPropertyValue("ObjectType", _ObjectType, value) + End Set + End Property + + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + + End Set + + End Property +End Class + diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.Designer.vb new file mode 100644 index 0000000..33d7735 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.Designer.vb @@ -0,0 +1,90 @@ +Partial Class GLResetVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aResetStorageTransactions = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aResetAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aResetObject = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aResetStorageTransactions + ' + Me.aResetStorageTransactions.Caption = "Reset Storage Transactions" + Me.aResetStorageTransactions.ConfirmationMessage = "Do you want to execute command ?" + Me.aResetStorageTransactions.Id = "aResetStorageTransactions" + Me.aResetStorageTransactions.ImageName = "data_delete" + Me.aResetStorageTransactions.Shortcut = Nothing + Me.aResetStorageTransactions.Tag = Nothing + Me.aResetStorageTransactions.TargetObjectsCriteria = Nothing + Me.aResetStorageTransactions.TargetViewId = "" + Me.aResetStorageTransactions.ToolTip = Nothing + Me.aResetStorageTransactions.TypeOfView = Nothing + ' + 'aResetAll + ' + Me.aResetAll.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept + Me.aResetAll.Caption = "aReset All" + Me.aResetAll.Category = "Edit" + Me.aResetAll.ConfirmationMessage = "Do you want to execute command ?" + Me.aResetAll.Id = "aResetAll" + Me.aResetAll.ImageName = Nothing + Me.aResetAll.Shortcut = Nothing + Me.aResetAll.Tag = Nothing + Me.aResetAll.TargetObjectsCriteria = Nothing + Me.aResetAll.TargetObjectType = GetType(SISBusiness.[Module].Win.ResetObjects) + Me.aResetAll.TargetViewId = Nothing + Me.aResetAll.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aResetAll.ToolTip = Nothing + Me.aResetAll.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aResetObject + ' + Me.aResetObject.Caption = "aReset Object" + Me.aResetObject.Category = "RecordEdit" + Me.aResetObject.ConfirmationMessage = "Do you want to execute command ?" + Me.aResetObject.Id = "aResetObject" + Me.aResetObject.ImageName = Nothing + Me.aResetObject.Shortcut = Nothing + Me.aResetObject.Tag = Nothing + Me.aResetObject.TargetObjectsCriteria = Nothing + Me.aResetObject.TargetObjectType = GetType(SISBusiness.[Module].Win.ResetObjects) + Me.aResetObject.TargetViewId = "" + Me.aResetObject.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aResetObject.ToolTip = Nothing + Me.aResetObject.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'GLResetVC + ' + Me.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aResetAll As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aResetObject As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aResetStorageTransactions As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.resx new file mode 100644 index 0000000..69c9bcf --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 242, 17 + + + 17, 56 + + + 17, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb new file mode 100644 index 0000000..ce06d17 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/GLResetVC.vb @@ -0,0 +1,452 @@ +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 + +Public Class GLResetVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + 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 GLResetVC).aResetStorageTransactions.Active.SetItemValue("", False) + + If View.Id = "GLReset_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + End If + End Sub + Private Sub aResetAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetAll.Execute + If Not SecuritySystem.CurrentUserName = "SysAdmin" Then Exit Sub + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Me.ResetAll(_ocur) + + End Sub + Private Sub aResetObject_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetObject.Execute + Dim _ResetObjects As ResetObjects = TryCast(e.SelectedObjects(0), ResetObjects) + Dim _ObjectSpace As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _objectsToDelete As ArrayList = New ArrayList() + Dim _ObjectType As Type = _ResetObjects.ObjectType + Dim _ConnectionString As String = Application.ConnectionString.ToUpper + If Not SecuritySystem.CurrentUserName = "SysAdmin" Then Exit Sub + _objectsToDelete.AddRange(_ObjectSpace.GetObjects(_ObjectType)) + _ObjectSpace.Delete(_objectsToDelete) + _ObjectSpace.CommitChanges() + ObjectSpace.Refresh() + End Sub + Private Sub aResetStorageTransactions_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetStorageTransactions.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + Dim _StorageOutRows_Collection As New XPCollection(_uow, GetType(StorageOutRows), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageOutRows_Collection) + + Dim _StorageOutHeader_Collection As New XPCollection(_uow, GetType(StorageOutHeader), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageOutHeader_Collection) + + Dim _StorageInRows_Collection As New XPCollection(_uow, GetType(StorageInRows), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageInRows_Collection) + + Dim _StorageInHeader_Collection As New XPCollection(_uow, GetType(StorageInHeader), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageInHeader_Collection) + + Dim _StorageOutRowsInRows_Collection As New XPCollection(_uow, GetType(StorageOutRowsInRows), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageOutRowsInRows_Collection) + + Dim _StorageComputed_Collection As New XPCollection(_uow, GetType(StorageComputed), CriteriaOperator.Parse("1=1")) + _uow.Delete(_StorageComputed_Collection) + + _uow.CommitChanges() + ObjectSpace.Refresh() + End Sub + + Sub ResetAll(_ocur As Xpo.XPObjectSpace) + Dim _ObjectsToDelete As ArrayList = New ArrayList() + + '--- Form inicializálása + '--- Nem szabad törölni, törzsadat ------------------------------------------------------- + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Apartments))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsHandlingParameter))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankImportNameParameters))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ChartOfAccounts))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Contacts))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContactsNG))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Container))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractTemplate))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Controlling))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CostHolder))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CostPlace))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CountryExtend))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_FirstMeet))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Opportunities_Contacts_Roles))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Opportunities_Probability))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_FirstMeet))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Offer_Template))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Offer_Template_CustomersFrom))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMResults))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMResultsType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMTarget))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMTaskType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CurrencyName))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CurrencyRate))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomerBankAccounts))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomerNameParameters))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Customers))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersAddress))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersFileAttachment))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersFrom))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersGLParameters))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersNG))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersNGCollection))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersNGCollectionWorkSheetType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersOrder))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersOrderDocuments))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomersOrderPriority))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomReportData))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CustomsTariffs))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteOutType))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DocumentAttachments))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DocumentAttachmentsType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DocumentFileData))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DocumentSentBackView))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(EmailSender))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Floors))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Garages))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GeneralStock))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLHeader_RateDiffParameter))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLMixedNG))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Hints))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(HRGroups))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(HRPerson))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Immovables))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesGroups))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Installation))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InstallationDocumentations))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InstallationProductsVariable))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceType))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(JobNumberObjects))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LateChargesCountMode))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssets))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LocalityLists))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LocalityType))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(MoneyRate))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(NumberGenerator))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(NumberGeneratorGroups))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(NumberGeneratorSemafor))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferInParameters))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferOutParameters))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInParameters))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PaymentOption))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Pricing))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PricingCRM))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PricingFix))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PricingFixStaged))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PricingProductsGroups))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Products))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ProductsGroups))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(QualityOption))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Recipe))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeExecutionSimple))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeExecutionSimpleType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeFrom))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeFromOther))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeTo))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeToOther))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RecipeType))) + + ' _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryType))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Rule5DforGL))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Rule5DMatrix))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Services))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ShipmentOption))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SQLImports))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Stairways))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(State))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Storage))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageMoveType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StoragePDAParameters))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StudentHostel))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Subcontractor))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SubcontractorCustomers))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SubcontractorWorksheetType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SupportNG))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(UniqueObjects))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Units))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(UrgentOption))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VAT))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WEB))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkflowSystem))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkflowSystemSteps))) + + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkSheetType))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkSheetTypeExcelParam))) + '_ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ZIPHU))) + '----------------------------------------------------------------------------------------- + + '--- Törlendő táblák --------------------------------------------------------------------- + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ABRQueryCustomersFrom))) '1 + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ABRQueryHeader))) '2 + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ABRQueryRows))) '3 + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ABRQueryRowsDetail))) '4 + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Answer))) '5 + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsHandling))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsHandlingActivity))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsHandlingPCI))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsPCIHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(AssetsPCIRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BallanceHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BallanceRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankImportHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankImportHeaderSum))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankImportHeaderSumDetail))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankInformation))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BankParameterDEV))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(BookEntryCheck))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(C3CGeneratedInvoice))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(C3CGeneratedInvoiceDocuments))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(C3CImportHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(C3CImportRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(C3CTelecomInvoiceType))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CertificateofContractHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CertificateofContractRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractMileStone))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractProductHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractProductLINQ))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractProductRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractProductRowsEvent))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractProductRowsInOut))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractRowsCloneView))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractRowsDividePopup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractRowsToFinalInvoice))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Contracts))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractsCloneView))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractsFromAcknowledgement_PopUp))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ContractsRowsToInvoice))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Corner))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Leads))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Leads_Activity))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Leads_Activity_Task))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Leads_Actvity_Completed_Popup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Leads_Qualification))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRM_Opportunities))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Leads))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Leads_Activity))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Leads_Immovables))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Leads_Immovables_Reservation))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Leads_Immovables_Reservation_Popup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity_AdvanceMoney))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity_Customers))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity_Immovables))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity_Payment_Forecast))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMEstate_Opportunity_Rent))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMNote))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(CRMTask))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInFromOrderOutRowsHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInFromOrderOutRowsRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteInToStorageInHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteOutHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(DeliveryNoteOutRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Events))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLAccounts))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLBank))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLBankDivide))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLCardsHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLCardsRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLCassa))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLCassaOpenClose))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLClosingRecord))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLClosingTime))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLCompensation))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLDetails))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLFileData))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLMixed))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRegister))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLReport))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLReportRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLResetAll))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRowsCheck))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRowsDivide))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRowsDivideH))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(GLRowsDivideR))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesCostRecord))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesCostRecordEvents))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesCostRecordExcel))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesCostRecordGroup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesPriceListHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesPriceListRowsA))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesPriceListRowsC))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesPriceListRowsG))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovablesPriceListRowsO))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ImmovableStatus))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InstallmentPayment))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InventoryDifferent))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InventoryHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InventoryPDA))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InventorySC))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InventorySIR))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceChoiceNextStep))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceNameParameters))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceRowsFIFO))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(InvoiceVATRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LateCharges))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssetsBallanceHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssetsBallanceRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssetsReturnDenomination))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssetsReturnHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(LiquidAssetsReturnRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ModifyProductsParameters))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(MySceduleFileData))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(MySchedule))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(MyTasks))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferInHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferInheaderFileAttachment))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferInRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferOutCostRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferOutHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferOutRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OfferOutVATRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Offices))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInAcknowledgementHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInAcknowledgementRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInAcknowledgementVAT))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInHeaderFromOfferOutRowsHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInHeaderFromOfferOutRowsRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInHeaderVAT))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInRowsOther))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInTo))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderInToDispose))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderOutHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OrderOutRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OutlookEMail))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OutlookEMailAttachments))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OutlookEMailIn))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(OutlookReminder))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerAccountConnectionInfoQueryHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerAccountConnectionInfoQueryPartner))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerAccountConnectionInfoQueryRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerAccountConnectionInfoQuerySelectedCustomers))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerAccountConnectionInfoQuerySelectedCustomersFrom))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerConnectionInfoCleanUp_PopupWindow))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerConnectionInfoDetailView))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PartnerConnectionInfoSpecTran_PopupWindow))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PCIDetail))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PCIGroup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(PermissionMatrix))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ProjectPlan))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(ProjectPlanRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Question))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryBankTransfer))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryChoiceNextStep))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryFileData))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRowsDeliveryNoteIn))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRowsFinancial))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRowsFinancialControlling))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRowsFinancialControlling_ReInvoicePopupWindow))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryRowsFinancialControllingPopupWindow))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RegistryTasks))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Reply))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RRFCQueryHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(RRFCQueryRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SIS_Top10_Customers))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SpecTranRevaluation))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(SpecTranRevaluationRowsAccounts))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageComputed))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageInfromDeliveryNoteInRowsHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageInfromDeliveryNoteInRowsRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageInHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageInRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageMoveEvents))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageOutCirculation))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageOutHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageOutRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StorageOutRowsInRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StoragePDACollectionHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(StoragePDACollectionRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TakeoverProtocolHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TakeoverProtocolRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TrialBalance))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TrialBalanceHeader))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TrialBalanceOpenClose))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(TrialBalanceSum))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VATReport))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VATReportDetail))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VATReportFileAttachment))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VATReportGroup))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(VATReportNoPayDetail))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Vivaldi))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Worksheet_CostRows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(Worksheet_Documets))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkSheet_Header))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(WorkSheet_Rows))) + _ObjectsToDelete.AddRange(_ocur.GetObjects(GetType(XLSImports))) + + '-- Nullázandó táblák --------------------------------------------------- + Dim _NumberGeneratorSemafor_Collection As New XPCollection(Of NumberGeneratorSemafor)(_ocur.Session, CriteriaOperator.Parse("Oid=Oid")) + Dim _NumberGeneratorSemafor As NumberGeneratorSemafor + + For Each _NumberGeneratorSemafor In _NumberGeneratorSemafor_Collection + _NumberGeneratorSemafor.SerialNumber = 0 + Next + + _ocur.Delete(_ObjectsToDelete) + _ocur.CommitChanges() + + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.Designer.vb new file mode 100644 index 0000000..4ff617a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.Designer.vb @@ -0,0 +1,62 @@ + _ +Partial Class ProjectPlanForm + Inherits DevExpress.XtraEditors.XtraForm + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GridControl1 + ' + Me.GridControl1.Location = New System.Drawing.Point(259, 120) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(400, 200) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'ProjectPlanForm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(784, 564) + Me.Controls.Add(Me.GridControl1) + Me.Name = "ProjectPlanForm" + Me.Text = "ProjectPlan" + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.resx new file mode 100644 index 0000000..5494c76 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.vb new file mode 100644 index 0000000..4469415 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanForm.vb @@ -0,0 +1,19 @@ +Imports DevExpress.Xpo +Imports DevExpress.Xpo.Session +Public Class ProjectPlanForm + Private _Session As Session + Private Sub ProjectPlan_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Me.SP.Width = Me.Width + 'Me.SP.Left = 0 + 'Me.SP.Top = 0 + 'Me.SP.Height = Me.Height + End Sub + Public Sub StartForm(ByVal session As Session) + _Session = session + Me.Show() + End Sub + + Private Sub GridView1_RowCellStyle(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.RowCellStyleEventArgs) Handles GridView1.RowCellStyle + + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.Designer.vb new file mode 100644 index 0000000..3c72ce0 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.Designer.vb @@ -0,0 +1,83 @@ +Partial Class ProjectPlanVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBindPlan = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectPlanViewFactPivot = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectPlanViewContractsPivot = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProjectPlanEditPlan + ' + ' + 'aBindPlan + ' + Me.aBindPlan.Caption = "aBind Plan" + Me.aBindPlan.ConfirmationMessage = Nothing + Me.aBindPlan.Id = "aBindPlan" + Me.aBindPlan.ImageName = Nothing + Me.aBindPlan.Shortcut = Nothing + Me.aBindPlan.Tag = Nothing + Me.aBindPlan.TargetObjectsCriteria = Nothing + Me.aBindPlan.TargetViewId = "ProjectPlan_DetailView" + Me.aBindPlan.ToolTip = Nothing + Me.aBindPlan.TypeOfView = Nothing + ' + 'aProjectPlanViewFactPivot + ' + Me.aProjectPlanViewFactPivot.Caption = "aProject Plan View Fact Pivot" + Me.aProjectPlanViewFactPivot.ConfirmationMessage = Nothing + Me.aProjectPlanViewFactPivot.Id = "aProjectPlanViewFactPivot" + Me.aProjectPlanViewFactPivot.ImageName = Nothing + Me.aProjectPlanViewFactPivot.Shortcut = Nothing + Me.aProjectPlanViewFactPivot.Tag = Nothing + Me.aProjectPlanViewFactPivot.TargetObjectsCriteria = Nothing + Me.aProjectPlanViewFactPivot.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlanRows) + Me.aProjectPlanViewFactPivot.TargetViewId = Nothing + Me.aProjectPlanViewFactPivot.ToolTip = Nothing + Me.aProjectPlanViewFactPivot.TypeOfView = Nothing + ' + 'aProjectPlanViewContractsPivot + ' + Me.aProjectPlanViewContractsPivot.Caption = "aProject Plan View Contracts Pivot" + Me.aProjectPlanViewContractsPivot.ConfirmationMessage = Nothing + Me.aProjectPlanViewContractsPivot.Id = "aProjectPlanViewContractsPivot" + Me.aProjectPlanViewContractsPivot.ImageName = Nothing + Me.aProjectPlanViewContractsPivot.Shortcut = Nothing + Me.aProjectPlanViewContractsPivot.Tag = Nothing + Me.aProjectPlanViewContractsPivot.TargetObjectsCriteria = Nothing + Me.aProjectPlanViewContractsPivot.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlanRows) + Me.aProjectPlanViewContractsPivot.TargetViewId = Nothing + Me.aProjectPlanViewContractsPivot.ToolTip = Nothing + Me.aProjectPlanViewContractsPivot.TypeOfView = Nothing + + End Sub + Friend WithEvents aBindPlan As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProjectPlanViewFactPivot As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProjectPlanViewContractsPivot As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.resx new file mode 100644 index 0000000..ac9935c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 122, 56 + + + 17, 56 + + + 122, 17 + + + 285, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.vb new file mode 100644 index 0000000..150c551 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Projectplan/ProjectPlanVC.vb @@ -0,0 +1,280 @@ +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.PivotGrid.Win +Imports DevExpress.XtraPivotGrid +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo + +Public Class ProjectPlanVC + Inherits SISBusiness.Module.ProjectPlanVC + Private _PivotGridListEditor As PivotGridListEditor + Private _PivotGrdidControl As PivotGridControl + Private _Criteria As String = "" + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aBindPlan_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBindPlan.Execute + Dim _form As New ProjectPlanForm + + _form.StartForm(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of ProjectPlanVC).aProjectPlanViewFactPivot.Active.SetItemValue("", False) + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "ProjectPlan_ProjectPlanRows_ListView_Pivot" Or View.Id = "ProjectPlan_ProjectPlanRows_ListView_Pivot_Controlling" Then + Frame.GetController(Of ProjectPlanVC).aProjectPlanViewFactPivot.Active.SetItemValue("", True) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If _PivotGrdidControl IsNot Nothing Then + RemoveHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick + End If + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "ProjectPlan_ProjectPlanRows_ListView_Pivot" Or View.Id = "ProjectPlan_ProjectPlanRows_ListView_Pivot_Controlling" Then + _PivotGridListEditor = TryCast(TryCast(View, ListView).Editor, PivotGridListEditor) + + If _PivotGridListEditor IsNot Nothing Then + _PivotGrdidControl = _PivotGridListEditor.PivotGridControl + AddHandler _PivotGrdidControl.CellClick, AddressOf PivotGrdidControl_CellClick + End If + + End If + End Sub + + Private Sub PivotGrdidControl_CellClick(sender As Object, e As PivotCellEventArgs) + Dim _RowPivotGridField As PivotGridField + Dim _ColumnPivotGridField As PivotGridField + Dim s As String + If e.RowValueType = PivotGridValueType.Value Then + If e.ColumnValueType = PivotGridValueType.Value Then + _Criteria = "" + For Each _RowPivotGridField In e.GetRowFields + s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + For Each _ColumnPivotGridField In e.GetColumnFields + s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + ElseIf e.ColumnValueType = PivotGridValueType.GrandTotal Then + _Criteria = "" + For Each _RowPivotGridField In e.GetRowFields + s = CStr(_PivotGrdidControl.GetFieldValue(_RowPivotGridField, e.RowIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _RowPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + + For Each _ColumnPivotGridField In e.GetColumnFields + s = CStr(_PivotGrdidControl.GetFieldValue(_ColumnPivotGridField, e.ColumnIndex)) + If LTrim(RTrim(s)) <> "" Then + If _Criteria = "" Then + _Criteria = _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + Else + _Criteria = _Criteria & " and " & _ColumnPivotGridField.ExpressionFieldName.ToString & "='" + _Criteria = _Criteria & s & "'" & Chr(13) & Chr(10) + End If + End If + Next + End If + End If + End Sub + Private Sub aProjectPlanViewFactPivot_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanViewFactPivot.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectPlan As ProjectPlan = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _ProjectPlan = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectPlan) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _ProjectPlan = TryCast(TryCast(View, ListView).CollectionSource.List(0), ProjectPlanRows).ProjectPlan + End If + End If + + If _ProjectPlan Is Nothing Then Exit Sub + + If LTrim(RTrim(_Criteria <> "")) Then + + Dim _ProjectPlanRows As ProjectPlanRows = _onew.FindObject(Of ProjectPlanRows)(CriteriaOperator.Parse(_Criteria)) + + If _ProjectPlanRows IsNot Nothing Then + + Dim _GLRows_Controlling As New CollectionSource(_onew, GetType(GLRows)) + + + '_GLRows.GLHeader.DateExecution.Date + + _GLRows_Controlling.BeginUpdateCriteria() + _GLRows_Controlling.Criteria("Plan1") = CriteriaOperator.Parse("(DebitChartOfAccounts.AccountNumber=? or CreditChartOfAccounts.AccountNumber=?)", _ProjectPlanRows.AccountNumber, _ProjectPlanRows.AccountNumber) + If _ProjectPlanRows.Controlling Is Nothing Then + _GLRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("isnull(Controlling)=True") + Else + _GLRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("Controlling=?", _ProjectPlanRows.Controlling) + End If + If _ProjectPlanRows.CostHolder Is Nothing Then + _GLRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("isnull(CostHolder)=True") + Else + _GLRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("CostHolder=?", _ProjectPlanRows.CostHolder) + End If + If _ProjectPlanRows.CostPlace Is Nothing Then + _GLRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("isnull(CostPlace)=True") + Else + _GLRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("CostPlace=?", _ProjectPlanRows.CostPlace) + End If + If _ProjectPlanRows.JobNumberObjects Is Nothing Then + _GLRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("isnull(JobNumberObjects)=True") + Else + _GLRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("JobNumberObjects=?", _ProjectPlanRows.JobNumberObjects) + End If + If _ProjectPlanRows.UniqueObjects Is Nothing Then + _GLRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("isnull(UniqueObjects)=True") + Else + _GLRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("UniqueObjects=?", _ProjectPlanRows.UniqueObjects) + End If + _GLRows_Controlling.Criteria("DateExecution") = CriteriaOperator.Parse("GetYear(GLHeader.DateExecution)=? and GetMonth(GLHeader.DateExecution)=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?", _ProjectPlanRows.DateYear, _ProjectPlanRows.DateMonth, _ProjectPlanRows.ProjectPlan.CustomersFrom) + _GLRows_Controlling.EndUpdateCriteria() + + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_ProjectPlan", _GLRows_Controlling, True) + End If + End If + End Sub + + Private Sub aProjectPlanEditPlan_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanEditPlan.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectPlan As ProjectPlan = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _ProjectPlan = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectPlan) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _ProjectPlan = TryCast(TryCast(View, ListView).CollectionSource.List(0), ProjectPlanRows).ProjectPlan + End If + End If + + If _ProjectPlan Is Nothing Then Exit Sub + + If LTrim(RTrim(_Criteria <> "")) Then + Dim _ProjectPlanRows_Collection As New CollectionSource(_onew, GetType(ProjectPlanRows)) + _ProjectPlanRows_Collection.BeginUpdateCriteria() + _ProjectPlanRows_Collection.Criteria("Criteris") = CriteriaOperator.Parse(_Criteria) + _ProjectPlanRows_Collection.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("ProjectPlanRows_ListView_Controlling", _ProjectPlanRows_Collection, True) + End If + + End Sub + + Private Sub aProjectPlanViewContractsPivot_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanViewContractsPivot.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectPlan As ProjectPlan = Nothing + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + _ProjectPlan = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectPlan) + Else + If TryCast(View, ListView).CollectionSource.List.Count > 0 Then + _ProjectPlan = TryCast(TryCast(View, ListView).CollectionSource.List(0), ProjectPlanRows).ProjectPlan + End If + End If + + If _ProjectPlan Is Nothing Then Exit Sub + + If LTrim(RTrim(_Criteria <> "")) Then + + Dim _ProjectPlanRows As ProjectPlanRows = _onew.FindObject(Of ProjectPlanRows)(CriteriaOperator.Parse(_Criteria)) + + If _ProjectPlanRows IsNot Nothing Then + + Dim _ContractRows_Controlling As New CollectionSource(_onew, GetType(ContractRows)) + + + '_ContractRows.GLHeader.DateExecution.Date + + _ContractRows_Controlling.BeginUpdateCriteria() + + If _ProjectPlanRows.Controlling Is Nothing Then + _ContractRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("isnull(Controlling)=True") + Else + _ContractRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("Controlling=?", _ProjectPlanRows.Controlling) + End If + If _ProjectPlanRows.CostHolder Is Nothing Then + _ContractRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("isnull(CostHolder)=True") + Else + _ContractRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("CostHolder=?", _ProjectPlanRows.CostHolder) + End If + If _ProjectPlanRows.CostPlace Is Nothing Then + _ContractRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("isnull(CostPlace)=True") + Else + _ContractRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("CostPlace=?", _ProjectPlanRows.CostPlace) + End If + If _ProjectPlanRows.JobNumberObjects Is Nothing Then + _ContractRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("isnull(JobNumberObjects)=True") + Else + _ContractRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("JobNumberObjects=?", _ProjectPlanRows.JobNumberObjects) + End If + If _ProjectPlanRows.UniqueObjects Is Nothing Then + _ContractRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("isnull(UniqueObjects)=True") + Else + _ContractRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("UniqueObjects=?", _ProjectPlanRows.UniqueObjects) + End If + _ContractRows_Controlling.Criteria("DateExecution") = CriteriaOperator.Parse("GetYear(DateExecution)=? and GetMonth(DateExecution)=? and Contracts.CustomersFrom=?", _ProjectPlanRows.DateYear, _ProjectPlanRows.DateMonth, _ProjectPlanRows.ProjectPlan.CustomersFrom) + _ContractRows_Controlling.EndUpdateCriteria() + + + e.ShowViewParameters.CreatedView = Application.CreateListView("ContractRows_ListView_ProjectPlan", _ContractRows_Controlling, True) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.Designer.vb new file mode 100644 index 0000000..aef570c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.Designer.vb @@ -0,0 +1,38 @@ +Partial Class RegistryRowsFinancialControllingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'RegistryRowsFinancialControllingVC + ' + Me.TargetObjectType = GetType(SISBusiness.[Module].RegistryRowsFinancialControlling) + Me.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.vb new file mode 100644 index 0000000..90a295e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControllingVC.vb @@ -0,0 +1,39 @@ +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.ExpressApp.Win +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Data.Filtering + +Public Class RegistryRowsFinancialControllingVC + Inherits DevExpress.ExpressApp.ViewController + '################################################################################################################################### + '############################Ez a controller a RegistryRowsFinancialControlling tpusra van irnytva!############################## + '################################################################################################################################### + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + '-- a controlling lookupeditorjnak elkapsa a registryrowsfinancialcontrolling_detailview-n, hogy meg lehessen szrni a lookuplistview-t (csak kiads vagy nem belltott jhet fel) + Dim _ControllingLookupEditor As PropertyEditor = TryCast(View, DetailView).FindItem("Controlling") + AddHandler TryCast(_ControllingLookupEditor, LookupPropertyEditor).Control.Popup, AddressOf lookuppropertyeditor_popup + End Sub + Private Sub lookuppropertyeditor_popup(sender As Object, e As EventArgs) + TryCast(sender, LookupEdit).PopupForm.ListView.CollectionSource.Criteria.Remove("ControllingFilter") + TryCast(sender, LookupEdit).PopupForm.ListView.CollectionSource.Criteria.Add("ControllingFilter", CriteriaOperator.Parse("Controllingdirection In (1, -1)")) + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb new file mode 100644 index 0000000..8d3644b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RegistryTaskVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb new file mode 100644 index 0000000..0742387 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb @@ -0,0 +1,33 @@ +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 RegistryTaskVC + Inherits SISBusiness.Module.RegistryTaskVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler Me.InitWork, AddressOf _WaitFormClass.Initwork + AddHandler Me.DoWork, AddressOf _WaitFormClass.DoWork + AddHandler Me.FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb new file mode 100644 index 0000000..cd46685 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RegistryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb new file mode 100644 index 0000000..045ac7a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb @@ -0,0 +1,72 @@ +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.Win.SystemModule + +Public Class RegistryVC + Inherits SISBusiness.Module.RegistryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + 'TryCast(TryCast(View, DetailView).FindItem("CustomersBankAccounts"), DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor).Control. + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "RegistryTasks_DetailView" Then + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + End If + If View.Id = "RegistryHeader_DetailView" Then + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Frame.GetController(Of WinModificationsController).ModificationsHandlingMode = SystemModule.ModificationsHandlingMode.AutoCommit + If _RegistryHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + End If + If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryTasks_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController)().AddFromFileAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().OpenAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentController)().SaveToAction.Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb new file mode 100644 index 0000000..bf51ddb --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RRFCQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb new file mode 100644 index 0000000..54b2fde --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports System.Linq +Imports System.Linq.Expressions + +Public Class RRFCQueryVC + Inherits SISBusiness.Module.RRFCQueryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb new file mode 100644 index 0000000..3298712 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ChartOfAccountsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb new file mode 100644 index 0000000..da22d45 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb @@ -0,0 +1,34 @@ +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 ChartOfAccountsVC + Inherits SISBusiness.Module.ChartOfAccountsVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.Designer.vb new file mode 100644 index 0000000..a3ad41c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ControllingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.vb b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.vb new file mode 100644 index 0000000..565d2ed --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Financial/FinancialObjects/Stocks/ControllingVC.vb @@ -0,0 +1,34 @@ +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 ControllingVC + Inherits SISBusiness.Module.ControllingVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.Designer.vb new file mode 100644 index 0000000..4708932 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class AlertWC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb new file mode 100644 index 0000000..4fe3621 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Alert/AlertWC.vb @@ -0,0 +1,275 @@ +'///////////////////////////////////////////////////////////////////////////////////////////// +'// +'// AlertControl figyelmeztet a kvetkez objektumokra +'// HRPersonTask +'// +'// +'//////////////////////////////////////////////////////////////////////////////////////////// + +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 System.Windows.Forms +Imports DevExpress.XtraBars.Alerter +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports System.Net +Imports System.IO + +Public Class AlertWC + Inherits DevExpress.ExpressApp.WindowController + Private alertControlCore As AlertControl + Private alertTimerCore As Timer + Private alertTimerCoreLoggedOn As Timer + + Private SISPushActivity As Timer + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + TargetWindowType = WindowType.Main + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + InitAlertTimerCore() + InitAlertControlCore() + InitAlertControlCoreLoggedOn() + InitSISPushActivity() + End Sub + Private Sub InitSISPushActivity() + SISPushActivity = New Timer + AddHandler SISPushActivity.Tick, AddressOf SISPushActivity_Tick + SISPushActivity.Interval = 900000 + SISPushActivity.Start() + End Sub + Protected Overridable Sub InitAlertControlCore() + alertControlCore = New AlertControl() + alertControlCore.AllowHtmlText = True + alertControlCore.AllowHotTrack = True + AddHandler alertControlCore.AlertClick, AddressOf alertControlCore_AlertClick + End Sub + Protected Overridable Sub InitAlertTimerCore() + alertTimerCore = New Timer() + AddHandler alertTimerCore.Tick, AddressOf alertTimerCore_Tick + alertTimerCore.Interval = 20000 + alertTimerCore.Start() + End Sub + Protected Overridable Sub InitAlertControlCoreLoggedOn() + alertTimerCoreLoggedOn = New Timer() + AddHandler alertTimerCoreLoggedOn.Tick, AddressOf alertTimerCoreLoggedOn_Tick + alertTimerCoreLoggedOn.Interval = 10 + alertTimerCoreLoggedOn.Start() + End Sub + + Private Sub alertTimerCore_Tick(ByVal sender As Object, ByVal e As EventArgs) + alertTimerCore.Enabled = False + ActivateAlert_HRPersonTask() + ActivateAlert_HRPersonTask_Alias() + ActivateAlert_CRM_Leads_Activity_Task() + alertTimerCore.Enabled = True + End Sub + Private Sub alertTimerCoreLoggedOn_Tick(sender As Object, e As EventArgs) + alertTimerCoreLoggedOn.Enabled = False + + InitAlartControlLoggedOn() + End Sub + Private Sub ActivateAlert_HRPersonTask() + If Application Is Nothing Then Exit Sub + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _CurrentUser = _uow.GetObjectByKey(Of User)(_uow.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _CurrentUser)) + + Dim _HRPersonTasks_Collection As New XPCollection(Of HRPersonTasks)(_uow, CriteriaOperator.Parse("HRPerson=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse') and isnull(AlertPeriod)=False", _HRPerson)) + Dim _HRPersonTasks As HRPersonTasks + Dim _AlertMinute As Long = 0 + + If Application Is Nothing Then Exit Sub + If Application.MainWindow Is Nothing Then Exit Sub + If Application.MainWindow.Template Is Nothing Then Exit Sub + + Dim mainForm As Form = CType(Application.MainWindow.Template, Form) + + Dim i As Long = 0 + + For Each _HRPersonTasks In _HRPersonTasks_Collection + '// itt kell az ellenrzs ! + If DateAdd(DateInterval.Day, _HRPersonTasks.AlertPeriod.DateDayBefore, GetSQLTime(_uow)) >= _HRPersonTasks.DueDate Then + _AlertMinute = (_HRPersonTasks.AlertPeriod.PeriodHour * 60) + _HRPersonTasks.AlertPeriod.PeriodMinute + If _AlertMinute > 0 Then + If GetSQLTime(_uow).Minute Mod _AlertMinute = 0 Then + Dim info As New AlertInfo("Figyelem !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("BO_Task").Image, _HRPersonTasks) + alertControlCore.Show(mainForm, info) + i += 1 + End If + End If + End If + + If i > 50 Then Exit For '// Cask az els tven jn fel ! + Next + + _HRPersonTasks_Collection = New XPCollection(Of HRPersonTasks)(_uow, CriteriaOperator.Parse("HRPersonAlias=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse') and isnull(AlertPeriod)=False and DueDate 0 Then + If GetSQLTime(_uow).Minute Mod _AlertMinute = 0 Then + Dim info As New AlertInfo("Figyelem ! Lejrt kiadott feladat !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("warning").Image, _HRPersonTasks) + alertControlCore.Show(mainForm, info) + i += 1 + End If + End If + If i > 50 Then Exit For + Next + End Sub + Private Sub ActivateAlert_CRM_Leads_Activity_Task() + If Application Is Nothing Then Exit Sub + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _CurrentUser = _uow.GetObjectByKey(Of User)(_uow.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _CurrentUser)) + + Dim _CRM_Leads_Activity_Task_Collection As New XPCollection(Of CRM_Leads_Activity_Task)(_uow, CriteriaOperator.Parse("HRPerson=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse') and isnull(AlertPeriod)=False", _HRPerson)) + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task + Dim mainForm As Form = CType(Application.MainWindow.Template, Form) + + Dim i As Long = 0 + + For Each _CRM_Leads_Activity_Task In _CRM_Leads_Activity_Task_Collection + '// itt kell az ellenrzs ! + If DateAdd(DateInterval.Day, _CRM_Leads_Activity_Task.AlertPeriod.DateDayBefore, GetSQLTime(_uow)) >= _CRM_Leads_Activity_Task.DueDate Then + If _CRM_Leads_Activity_Task.AlertPeriod IsNot Nothing Then + If _CRM_Leads_Activity_Task.AlertPeriod.PeriodMinute > 0 Then + If GetSQLTime(_uow).Minute Mod _CRM_Leads_Activity_Task.AlertPeriod.PeriodMinute = 0 Then + Dim info As New AlertInfo("Figyelem !", _CRM_Leads_Activity_Task.Subject, _CRM_Leads_Activity_Task.Description, ImageLoader.Instance.GetImageInfo("BO_Task").Image, _CRM_Leads_Activity_Task) + alertControlCore.Show(mainForm, info) + i += 1 + End If + End If + End If + End If + If i > 50 Then Exit For '// Cask az els tven jn fel ! + Next + End Sub + Private Sub alertControlCore_AlertClick(sender As Object, e As AlertClickEventArgs) + If Application Is Nothing Then Exit Sub + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _HRPersonTasks As HRPersonTasks + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task + + _HRPersonTasks = TryCast(e.Info.Tag, HRPersonTasks) + If _HRPersonTasks IsNot Nothing Then + If _HRPersonTasks.IsView Then + If _HRPersonTasks.ViewID <> "" Then + + _ShowViewParameters.CreatedView = Application.CreateDashboardView(_onew, _HRPersonTasks.ViewID, True) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End If + Else + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "HRPersonTasks_DetailView", True, _onew.GetObject(_HRPersonTasks)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End If + End If + _CRM_Leads_Activity_Task = TryCast(e.Info.Tag, CRM_Leads_Activity_Task) + If _CRM_Leads_Activity_Task IsNot Nothing Then + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_Task_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End If + End Sub + Private Sub ActivateAlert_HRPersonTask_Alias() + If Application Is Nothing Then Exit Sub + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _CurrentUser = _uow.GetObjectByKey(Of User)(_uow.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _CurrentUser)) + + Dim _HRPersonTasks_Collection As New XPCollection(Of HRPersonTasks) _ + (_uow, CriteriaOperator.Parse("DueDate <= ? and HRPersonAlias=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse') and isnull(AlertPeriodAlias)=False", GetSQLTime(_uow), _HRPerson)) + Dim _HRPersonTasks As HRPersonTasks + + If Application Is Nothing Then Exit Sub + If Application.MainWindow Is Nothing Then Exit Sub + + + Dim mainForm As Form = CType(Application.MainWindow.Template, Form) + + Dim i As Long = 0 + + For Each _HRPersonTasks In _HRPersonTasks_Collection + + Dim info As New AlertInfo("Figyelem !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("BO_Task").Image, _HRPersonTasks) + alertControlCore.Show(mainForm, info) + i += 1 + + If i > 50 Then Exit For '// Cask az els tven jn fel ! + Next + End Sub + Private Sub InitAlartControlLoggedOn() + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _CurrentUser = _uow.GetObjectByKey(Of User)(_uow.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _CurrentUser)) + Dim _HRPersonTasks_Collection As New XPCollection(Of HRPersonTasks)(_uow, CriteriaOperator.Parse("HRPerson=? AND AlertPeriod.AlertType='eOnLoggedOn' AND Status<>4", _HRPerson)) + + If Application IsNot Nothing Then + If Application.MainWindow IsNot Nothing Then + If Application.MainWindow.Template IsNot Nothing Then + Dim mainForm As Form = CType(Application.MainWindow.Template, Form) + + For Each _HRPersonTasks As HRPersonTasks In _HRPersonTasks_Collection + + Dim info As New AlertInfo("Figyelem !", _HRPersonTasks.Subject, _HRPersonTasks.Description, ImageLoader.Instance.GetImageInfo("lock_time").Image, _HRPersonTasks) + alertControlCore.Show(mainForm, info) + Next + End If + End If + End If + + End Sub + + Private Sub SISPushActivity_Tick(sender As Object, e As EventArgs) + Dim _infostring As String = GLOBAL_ActivityID + Try + _infostring = AESEncrypt(_infostring, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + _infostring = Convert.ToBase64String(Encoding.UTF8.GetBytes(_infostring)) + + Dim _url = "http://sis-r.hu/SISChat/SISPushActivitySSL.ashx?id=" & _infostring + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) + Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) + Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) + _infostring = _reader.ReadToEnd + Catch ex As Exception + + End Try + End Sub + + + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb new file mode 100644 index 0000000..b02731a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb @@ -0,0 +1,73 @@ +Partial Class ContactsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aContacts_SysncToOutlook = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aContacts_SysncFromOutlook = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aContacts_SysncToOutlook + ' + Me.aContacts_SysncToOutlook.AcceptButtonCaption = Nothing + Me.aContacts_SysncToOutlook.CancelButtonCaption = Nothing + Me.aContacts_SysncToOutlook.Caption = "aContacts_SysncToOutlook" + Me.aContacts_SysncToOutlook.Category = "" + Me.aContacts_SysncToOutlook.ConfirmationMessage = Nothing + Me.aContacts_SysncToOutlook.Id = "aContacts_SysncToOutlook" + Me.aContacts_SysncToOutlook.ImageName = Nothing + Me.aContacts_SysncToOutlook.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aContacts_SysncToOutlook.Shortcut = Nothing + Me.aContacts_SysncToOutlook.Tag = Nothing + Me.aContacts_SysncToOutlook.TargetObjectsCriteria = Nothing + Me.aContacts_SysncToOutlook.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aContacts_SysncToOutlook.TargetViewId = Nothing + Me.aContacts_SysncToOutlook.ToolTip = Nothing + Me.aContacts_SysncToOutlook.TypeOfView = Nothing + ' + 'aContacts_SysncFromOutlook + ' + Me.aContacts_SysncFromOutlook.AcceptButtonCaption = Nothing + Me.aContacts_SysncFromOutlook.CancelButtonCaption = Nothing + Me.aContacts_SysncFromOutlook.Caption = "aContacts_SysncFromOutlook" + Me.aContacts_SysncFromOutlook.Category = "" + Me.aContacts_SysncFromOutlook.ConfirmationMessage = Nothing + Me.aContacts_SysncFromOutlook.Id = "aContacts_SysncFromOutlook" + Me.aContacts_SysncFromOutlook.ImageName = Nothing + Me.aContacts_SysncFromOutlook.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aContacts_SysncFromOutlook.Shortcut = Nothing + Me.aContacts_SysncFromOutlook.Tag = Nothing + Me.aContacts_SysncFromOutlook.TargetObjectsCriteria = Nothing + Me.aContacts_SysncFromOutlook.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aContacts_SysncFromOutlook.TargetViewId = Nothing + Me.aContacts_SysncFromOutlook.ToolTip = Nothing + Me.aContacts_SysncFromOutlook.TypeOfView = Nothing + + End Sub + Friend WithEvents aContacts_SysncToOutlook As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aContacts_SysncFromOutlook As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx new file mode 100644 index 0000000..8e8afc4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 216, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb new file mode 100644 index 0000000..434b342 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb @@ -0,0 +1,337 @@ +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 Microsoft.Office.Interop.Outlook +Imports Microsoft.Office.Interop +Imports DevExpress.Xpo +Imports System.IO +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils + +Public Class ContactsVC + Inherits SISBusiness.Module.ContactsVC + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id Like "Contacts_*" Then + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "Contacts_*" Then + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.FinalWork + End If + End Sub + Private Sub aContacts_SysncToOutlook_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_SysncToOutlook.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _onew_Delete As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contacts_OutlookFolderContact_Collection As New XPCollection(Of Contacts_OutlookFolderContact)(_onew_Delete.Session) + If _Contacts_OutlookFolderContact_Collection.Count > 0 Then + _onew_Delete.Delete(_Contacts_OutlookFolderContact_Collection) + End If + _onew_Delete.CommitChanges() + + Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = _onew.CreateObject(Of Contacts_SysncOutlook)() + e.View = Application.CreateDetailView(_onew, "Contacts_SysncOutlook_DetailView", True, _Contacts_SysncOutlook) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aContacts_SysncToOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncToOutlook.Execute + Try + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _NeedCommitChanges As Boolean = False + Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + _WaitFormClass.InitWork(0, 1, View.SelectedObjects.Count) + Select Case _Contacts_SysncOutlook.SyscType + Case eSyscType.eFirstSync + Dim _ContactFolder As Outlook.MAPIFolder = _OutlookNameSpace.GetFolderFromID(_Contacts_SysncOutlook.Contacts_OutlookFolderContact.EntryID) + For Each _Contacts As Contacts In View.SelectedObjects + _WaitFormClass.DoWork + If _Contacts.IsOutlookSync Then + Dim _FileName As String = Path.GetTempPath + _Contacts.Oid.ToString + ".jpg" + Dim _ContactItem As Outlook.ContactItem = _OutlookApp.CreateItem(OlItemType.olContactItem) + With (_ContactItem) + .FirstName = _Contacts.FirstName + .LastName = _Contacts.LastName + .Email1Address = _Contacts.Email + .Birthday = _Contacts.Birthday + .JobTitle = _Contacts.Position + .BusinessTelephoneNumber = _Contacts.BusinessTelephoneNumber + .BusinessFaxNumber = _Contacts.BusinessFaxNumber + .HomeFaxNumber = _Contacts.HomeFaxNumber + .MobileTelephoneNumber = _Contacts.MobileTelephoneNumber + + If _Contacts.Photo IsNot Nothing Then + '_Contacts.Photo.Save(_FileName) + '.AddPicture(_FileName) + End If + + If _Contacts.Address1 IsNot Nothing Then + .BusinessAddress = _Contacts.Address1.FullAddress + .BusinessAddressCity = _Contacts.Address1.City + .BusinessAddressCountry = _Contacts.Address1.Country.Name + .BusinessAddressPostalCode = _Contacts.Address1.ZipPostal + .BusinessAddressState = _Contacts.Address1.StateProvince + .BusinessAddressStreet = _Contacts.Address1.Street + End If + + If _Contacts.Customers IsNot Nothing Then + .Companies = _Contacts.Customers.FullName + .CompanyName = _Contacts.Customers.Name + End If + End With + + _ContactItem.User1 = _Contacts.Oid.ToString + _ContactItem.Save() + _ContactItem.Move(_ContactFolder) + + If File.Exists(_FileName) Then File.Delete(_FileName) + + _Contacts.ContactItemFolderEntryID_Outlook = _ContactFolder.EntryID + End If + Next + _NeedCommitChanges = True + Case eSyscType.eNormalSysnc + Select Case _Contacts_SysncOutlook.OverWriteDataType + Case eOverWriteDataType.OverWriteOutlookData + For Each _Contacts As Contacts In View.SelectedObjects + _WaitFormClass.DoWork + Dim _FileName As String = Path.GetTempPath + _Contacts.Oid.ToString + ".jpg" + Dim _ContactFolder As Outlook.MAPIFolder = _OutlookNameSpace.GetFolderFromID(_Contacts.ContactItemFolderEntryID_Outlook) + Dim _ContactItem_Collection As Outlook.Items = _ContactFolder.Items + Dim _Filter As String = "[User1] = '" + _Contacts.Oid.ToString + "'" + Dim _ContactItem As Outlook.ContactItem = _ContactItem_Collection.Find(_Filter) + If _ContactItem IsNot Nothing Then + _ContactItem.FirstName = _Contacts.FirstName + _ContactItem.LastName = _Contacts.LastName + _ContactItem.Email1Address = _Contacts.Email + _ContactItem.Birthday = _Contacts.Birthday + _ContactItem.JobTitle = _Contacts.Position + _ContactItem.BusinessTelephoneNumber = _Contacts.BusinessTelephoneNumber + _ContactItem.BusinessFaxNumber = _Contacts.BusinessFaxNumber + _ContactItem.HomeFaxNumber = _Contacts.HomeFaxNumber + _ContactItem.MobileTelephoneNumber = _Contacts.MobileTelephoneNumber + + If _Contacts.Photo IsNot Nothing Then + '_Contacts.Photo.Save(_FileName) + '_ContactItem.AddPicture(_FileName) + End If + + If _Contacts.Address1 IsNot Nothing Then + _ContactItem.BusinessAddress = _Contacts.Address1.FullAddress + _ContactItem.BusinessAddressCity = _Contacts.Address1.City + _ContactItem.BusinessAddressCountry = _Contacts.Address1.Country.Name + _ContactItem.BusinessAddressPostalCode = _Contacts.Address1.ZipPostal + _ContactItem.BusinessAddressState = _Contacts.Address1.StateProvince + _ContactItem.BusinessAddressStreet = _Contacts.Address1.Street + End If + + If _Contacts.Customers IsNot Nothing Then + _ContactItem.Companies = _Contacts.Customers.FullName + _ContactItem.CompanyName = _Contacts.Customers.Name + End If + If File.Exists(_FileName) Then File.Delete(_FileName) + End If + _ContactItem.Save() + Next + Case eOverWriteDataType.OverWriteSisBusinessData + For Each _Contacts As Contacts In View.SelectedObjects + _WaitFormClass.DoWork + Dim _ContactFolder As Outlook.MAPIFolder = _OutlookNameSpace.GetFolderFromID(_Contacts.ContactItemFolderEntryID_Outlook) + Dim _ContactItem_Collection As Outlook.Items = _ContactFolder.Items + Dim _Filter As String = "[User1] = '" + _Contacts.Oid.ToString + "'" + Dim _ContactItem As Outlook.ContactItem = _ContactItem_Collection.Find(_Filter) + If _ContactItem IsNot Nothing Then + Dim _FileName As String = Path.GetTempPath + _Contacts.Oid.ToString + ".jpg" + + _Contacts.FirstName = _ContactItem.FirstName + _Contacts.LastName = _ContactItem.LastName + _Contacts.Email = _ContactItem.Email1Address + _Contacts.Birthday = _ContactItem.Birthday + _Contacts.Position = _ContactItem.JobTitle + _Contacts.BusinessTelephoneNumber = _ContactItem.BusinessTelephoneNumber + _Contacts.BusinessFaxNumber = _ContactItem.BusinessFaxNumber + _Contacts.HomeFaxNumber = _ContactItem.HomeFaxNumber + _Contacts.MobileTelephoneNumber = _ContactItem.MobileTelephoneNumber + + Dim _Address As New DevExpress.Persistent.BaseImpl.Address(_ocur.Session) + _Address.City = _ContactItem.BusinessAddressCity + Dim _Country As New DevExpress.Persistent.BaseImpl.Country(_ocur.Session) + _Country.Name = _ContactItem.BusinessAddressCountry + _Address.Country = _Country + _Address.ZipPostal = _ContactItem.BusinessAddressPostalCode + _Address.StateProvince = _ContactItem.BusinessAddressState + _Address.Street = _ContactItem.BusinessAddressStreet + + _Contacts.Address1 = _Address + + If Not String.IsNullOrEmpty(_ContactItem.Companies) Then + Dim _Customers As Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("FullName=?", _ContactItem.Companies)) + If _Customers IsNot Nothing Then + _Contacts.Customers = _ocur.GetObject(_Customers) + End If + End If + End If + Next + _NeedCommitChanges = True + End Select + End Select + If _NeedCommitChanges Then _ocur.CommitChanges() + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Try + End Sub + Private Sub aContacts_SysncFromOutlook_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_SysncFromOutlook.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _onew_Delete As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contacts_OutlookFolderContact_Collection As New XPCollection(Of Contacts_OutlookFolderContact)(_onew_Delete.Session) + If _Contacts_OutlookFolderContact_Collection.Count > 0 Then + _onew_Delete.Delete(_Contacts_OutlookFolderContact_Collection) + End If + _onew_Delete.CommitChanges() + + Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = _onew.CreateObject(Of Contacts_SysncOutlook)() + _Contacts_SysncOutlook.IsFromOutlook = True + _Contacts_SysncOutlook.SyscType = eSyscType.eFirstSync + e.View = Application.CreateDetailView(_onew, "Contacts_SysncOutlook_DetailView", True, _Contacts_SysncOutlook) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aContacts_SysncFromOutlook_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_SysncFromOutlook.Execute + Try + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _NeedCommitChanges As Boolean = False + Dim _Contacts_SysncOutlook As Contacts_SysncOutlook = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_SysncOutlook) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + Dim _ContactFolder As Outlook.MAPIFolder = _OutlookNameSpace.GetFolderFromID(_Contacts_SysncOutlook.Contacts_OutlookFolderContact.EntryID) + + Dim _ContactItem_Collection As Outlook.Items = _ContactFolder.Items + _WaitFormClass.InitWork(0, 1, _ContactItem_Collection.Count) + Select Case _Contacts_SysncOutlook.OverWriteDataType + Case eOverWriteDataType.OverWriteOutlookData + For Each _ContactItem As Outlook.ContactItem In _ContactItem_Collection + _WaitFormClass.DoWork + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Oid=?", _ContactItem.User1)) + If _Contacts Is Nothing Then + _ContactItem.Delete() + Else + Dim _FileName As String = String.Format("{0}{1}.jpg", Path.GetTempPath, _Contacts.Oid) + _ContactItem.FirstName = _Contacts.FirstName + _ContactItem.LastName = _Contacts.LastName + _ContactItem.Email1Address = _Contacts.Email + _ContactItem.Birthday = _Contacts.Birthday + _ContactItem.JobTitle = _Contacts.Position + _ContactItem.BusinessTelephoneNumber = _Contacts.BusinessTelephoneNumber + _ContactItem.BusinessFaxNumber = _Contacts.BusinessFaxNumber + _ContactItem.HomeFaxNumber = _Contacts.HomeFaxNumber + _ContactItem.MobileTelephoneNumber = _Contacts.MobileTelephoneNumber + + If _Contacts.Photo IsNot Nothing Then + '_Contacts.Photo.Save(_FileName) + '_Contacts.ph() + _ContactItem.AddPicture(_FileName) + End If + + If _Contacts.Address1 IsNot Nothing Then + _ContactItem.BusinessAddress = _Contacts.Address1.FullAddress + _ContactItem.BusinessAddressCity = _Contacts.Address1.City + _ContactItem.BusinessAddressCountry = _Contacts.Address1.Country.Name + _ContactItem.BusinessAddressPostalCode = _Contacts.Address1.ZipPostal + _ContactItem.BusinessAddressState = _Contacts.Address1.StateProvince + _ContactItem.BusinessAddressStreet = _Contacts.Address1.Street + End If + + If _Contacts.Customers IsNot Nothing Then + _ContactItem.Companies = _Contacts.Customers.FullName + _ContactItem.CompanyName = _Contacts.Customers.Name + End If + If File.Exists(_FileName) Then File.Delete(_FileName) + _ContactItem.Save() + End If + Next + Case eOverWriteDataType.OverWriteSisBusinessData + For Each _ContactItem As Outlook.ContactItem In _ContactItem_Collection + _WaitFormClass.DoWork + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Oid=?", _ContactItem.User1)) + If _Contacts Is Nothing Then _Contacts = New Contacts(_ocur.Session) + Dim _FileName As String = Path.GetTempPath + _Contacts.Oid.ToString + ".jpg" + + With (_Contacts) + .FirstName = _ContactItem.FirstName + .LastName = _ContactItem.LastName + .Email = _ContactItem.Email1Address + .Birthday = _ContactItem.Birthday + .Position = _ContactItem.JobTitle + .BusinessTelephoneNumber = _ContactItem.BusinessTelephoneNumber + .BusinessFaxNumber = _ContactItem.BusinessFaxNumber + .HomeFaxNumber = _ContactItem.HomeFaxNumber + .MobileTelephoneNumber = _ContactItem.MobileTelephoneNumber + + Dim _Address As New DevExpress.Persistent.BaseImpl.Address(_ocur.Session) + _Address.City = _ContactItem.BusinessAddressCity + Dim _Country As New DevExpress.Persistent.BaseImpl.Country(_ocur.Session) + _Country.Name = _ContactItem.BusinessAddressCountry + _Address.Country = _Country + _Address.ZipPostal = _ContactItem.BusinessAddressPostalCode + _Address.StateProvince = _ContactItem.BusinessAddressState + _Address.Street = _ContactItem.BusinessAddressStreet + + .Address1 = _Address + + If Not String.IsNullOrEmpty(_ContactItem.Companies) Then + Dim _Customers As Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("FullName=?", _ContactItem.Companies)) + If _Customers IsNot Nothing Then + .Customers = _ocur.GetObject(_Customers) + End If + End If + .IsOutlookSync = True + .ContactItemFolderEntryID_Outlook = _Contacts_SysncOutlook.Contacts_OutlookFolderContact.EntryID + End With + _ocur.CommitChanges() + _ContactItem.User1 = _Contacts.Oid.ToString + _ContactItem.Save() + Next + End Select + If _NeedCommitChanges Then _ocur.CommitChanges() + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb new file mode 100644 index 0000000..b1581e6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CustomersVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb new file mode 100644 index 0000000..bd695c3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb @@ -0,0 +1,73 @@ +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 System.Windows.Forms +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Public Class CustomersVC + Inherits SISBusiness.Module.CustomersVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + + If View.Id = "Customers_DetailView" Then + For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)() + If editor.PropertyName = "Name" Then + AddHandler editor.ControlCreated, AddressOf editor_ControlCreated + Exit For + End If + Next editor + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Private Sub editor_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + ' You can access the corresponding property editor control by the following code: + Dim editorControl As Control = TryCast((CType(sender, PropertyEditor)).Control, Control) + AddHandler editorControl.HandleCreated, AddressOf editorControl_HandleCreated + + Dim _Name As DevExpress.XtraEditors.TextEdit = TryCast(editorControl, DevExpress.XtraEditors.TextEdit) + If _Name IsNot Nothing Then + AddHandler _Name.LostFocus, AddressOf Name_LostFocus + End If + End Sub + Private Sub editorControl_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) + ' Sometimes it is necessary to access editor's control after it is visible (its handle is created). + RemoveHandler (CType(sender, Control)).HandleCreated, AddressOf editorControl_HandleCreated + End Sub + Private Sub Name_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) + On Error Resume Next + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Customers = TryCast(View.SelectedObjects(0), Customers) + + If _Customers IsNot Nothing Then + If _Customers.FullName = "" Then _Customers.FullName = sender.text + End If + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb new file mode 100644 index 0000000..b152c30 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class Dashboard_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDashboard_SaveDashDesForBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aDashboard_SaveDashDesForBusinessDirectory + ' + Me.aDashboard_SaveDashDesForBusinessDirectory.Caption = "aDashboard_SaveDashDesForBusinessDirectory" + Me.aDashboard_SaveDashDesForBusinessDirectory.ConfirmationMessage = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.Id = "aDashboard_SaveDashDesForBusinessDirectory" + Me.aDashboard_SaveDashDesForBusinessDirectory.ImageName = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.Shortcut = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.Tag = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.TargetViewId = "Dashboard_DetailView_Designer" + Me.aDashboard_SaveDashDesForBusinessDirectory.ToolTip = Nothing + Me.aDashboard_SaveDashDesForBusinessDirectory.TypeOfView = Nothing + + End Sub + Friend WithEvents aDashboard_SaveDashDesForBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.resx new file mode 100644 index 0000000..1fbbcdd --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 161, 121 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb new file mode 100644 index 0000000..237cee3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb @@ -0,0 +1,205 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.DashboardCommon +Imports DevExpress.Xpo + +Imports System.IO +Imports System.Xml +Imports System.Reflection +Imports DevExpress.DashboardWin + +Public Class Dashboard_VC + Inherits SISBusiness.Module.Dashboard_VC + + Private _DashboardViewer As DashboardViewer + Private _DashboardDesigner As DashboardDesigner + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Dashboard_DetailView_Viewer" Then + + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + 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 + If View.Id = "Dashboard_DetailView_Designer" Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _DashboardDesigner_ViewItem As ViewItem = _DetailView.FindItem("DashboardDesigner") + If _DashboardDesigner_ViewItem IsNot Nothing Then + AddHandler _DashboardDesigner_ViewItem.ControlCreated, AddressOf DashboardDesigner_ViewItem_ControlCreated + End If + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Dashboard_DetailView_Viewer" Or + View.Id = "Dashboard_DetailView_Designer" Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _DashboardViewerUserControl As DashboardViewerUserControl = TryCast(_ItemControl, DashboardViewerUserControl) + _DashboardViewer = _DashboardViewerUserControl.DashboardViewer1 + + If _DashboardViewer IsNot Nothing Then + With _DashboardViewerUserControl + .UserName = _Dashboard.UserName + .Password = _Dashboard.Password + .SQLType = _Dashboard.SQLType + .SQLServer = _Dashboard.SQLServer + .Database = _Dashboard.Database + End With + + Dim _MemoryStream As New IO.MemoryStream() + _Dashboard.XMLFileData.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, IO.SeekOrigin.Begin) + With _DashboardViewer + .LoadDashboard(_MemoryStream) + End With + End If + End Sub + Private Sub DashboardDesigner_ViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _DashboardDesignerUserControl As DashboardDesignerUserControl = TryCast(_ItemControl, DashboardDesignerUserControl) + _DashboardDesigner = _DashboardDesignerUserControl.DashboardDesigner1 + + If _DashboardDesigner IsNot Nothing Then + If Not _Dashboard.IsNewDashboard Then + With _DashboardDesignerUserControl + .UserName = _Dashboard.UserName + .Password = _Dashboard.Password + .SQLType = _Dashboard.SQLType + .SQLServer = _Dashboard.SQLServer + .Database = _Dashboard.Database + End With + + Dim _MemoryStream As New IO.MemoryStream() + _Dashboard.XMLFileData.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, IO.SeekOrigin.Begin) + With _DashboardDesigner + .LoadDashboard(_MemoryStream) + .ConfirmSaveOnClose = False + End With + End If + End If + End Sub + Private Sub aDashboard_SaveDashDesForBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDashboard_SaveDashDesForBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard) + Dim _FileName As String = IO.Path.GetTempPath + If _Dashboard.IsNewDashboard Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As New BusinessDirectory(_onew.Session) + With _BusinessDirectory + .IsDashBoard = True + _FileName += _DashboardDesigner.SelectedDataSource.Name + ".xml" + _DashboardDesigner.Dashboard.SaveToXml(_FileName) + If IO.File.Exists(_FileName) Then + _BusinessDirectory.FileData = Nothing + _BusinessDirectory.FileData = LoadOtherFile(_FileName, New FileData(_onew.Session)) + End If + End With + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "BusinessDirectory_DetailView", True, _BusinessDirectory) + Else + Select Case _Dashboard.Object_Type + Case GetType(BusinessDirectory) + Dim _BusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("Oid=?", _Dashboard.Object_Oid)) + If _BusinessDirectory IsNot Nothing Then + _FileName += _BusinessDirectory.FileData.FileName + _DashboardDesigner.Dashboard.SaveToXml(_FileName) + If IO.File.Exists(_FileName) Then + _BusinessDirectory.FileData = Nothing + _BusinessDirectory.FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + End If + End If + Case Else + MsgBox("Almafa!") + End Select + + 'Dim _da As New DevExpress.DashboardCommon.Dashboard + 'Dim _dd As New DevExpress.XtraDashboard.DashboardDesigner + '_dd.LoadDashboard(_FileName) + 'Beep() + '_dd.d() + ''_dd.DataBindings + _ocur.CommitChanges() + End If + + + End Sub + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + End Function + + Private Sub GetXMLInfo(_FileName As String) + Dim reader As New XmlTextReader("books.xml") + While reader.Read() + Select Case reader.NodeType + Case XmlNodeType.Element + ' A csompont egy sszetev. + Console.Write("<" & reader.Name) + Console.WriteLine(">") + Exit Select + Case XmlNodeType.Text + 'Az egyes sszetevk szvegnek megjelentse. + Console.WriteLine(reader.Value) + Exit Select + Case XmlNodeType.EndElement + 'Az sszetev vgnek megjelentse. + Console.Write("") + Exit Select + End Select + End While + Console.ReadLine() + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMail.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMail.vb new file mode 100644 index 0000000..697d471 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMail.vb @@ -0,0 +1,219 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports Microsoft.Office.Interop.Outlook +Imports Microsoft.Office.Interop +Imports System.IO +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eCRMEstate_Leads + eCRM = 0 'Klasszikus CRM rendszerbl + eCRMEstate = 1 'Ingatlanrtkestsi rendszerbl + eManual = 2 'Manulisan felvitt +End Enum + _ + _ + _ + _ + _ +Public Class OutlookEMail + Inherits BaseObject + Private _Recipients As String 'Kinek megy az emil + Private _Subject As String 'Trgy + Private _HTMLBody As String 'HTML szveg + Private _EntryID As String = "" 'Outlook item ID + Private _ObjectCreated As Date 'Mikor kszlt az objektum + Private _UserCreated As User 'Ki ksztette + Private _OwnerUser As User + Private _CRM_Leads As CRM_Leads 'Leads-hoz tartozik-e + Private _CRM_Opportunities As CRM_Opportunities + Private _CRMEstate_Leads As CRMEstate_Leads + Private _eCRMEstate_Leads As eCRMEstate_Leads + Private _OutlookEMailIn_Oid As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Dim _CurrentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = _CurrentUser + End Sub + _ + _ + Property Recipients As String + Get + Return _Recipients + End Get + Set(value As String) + SetPropertyValue("Recipients", _Recipients, value) + End Set + End Property + _ + _ + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + _ + Property HTMLBody As String + Get + Return _HTMLBody + End Get + Set(value As String) + SetPropertyValue("HTMLBody", _HTMLBody, value) + End Set + End Property + _ + Property EntryID As String + Get + Return _EntryID + End Get + Set(value As String) + SetPropertyValue("EntryID", _EntryID, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Public Property OwnerUser As User + Get + Return _OwnerUser + End Get + Set(value As User) + SetPropertyValue("OwnerUser", _OwnerUser, value) + End Set + End Property + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + Public Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Public Property CRMEstate_Leads As CRMEstate_Leads + Get + Return _CRMEstate_Leads + End Get + Set(value As CRMEstate_Leads) + SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value) + End Set + End Property + _ + Public Property eCRMEstate_Leads As eCRMEstate_Leads + Get + Return _eCRMEstate_Leads + End Get + Set(value As eCRMEstate_Leads) + SetPropertyValue("eCRMEstate_Leads", _eCRMEstate_Leads, value) + End Set + End Property + _ + _ + _ + Public Property OutlookEMailIn_Oid As String + Get + Return _OutlookEMailIn_Oid + End Get + Set(value As String) + SetPropertyValue("OutlookEMailIn_Oid", _OutlookEMailIn_Oid, value) + End Set + End Property + + '--- ReadOnly ---------- + _ + _ + ReadOnly Property OutlookEMailAttachments As XPCollection(Of OutlookEMailAttachments) + Get + Return GetCollection(Of OutlookEMailAttachments)("OutlookEMailAttachments") + End Get + End Property + + '--- Sub--------------- + Public Sub SendMail(_OutlookEmail As OutlookEMail, _ObjectSpace As Xpo.XPObjectSpace, Optional _WithCommit As Boolean = False) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace + Dim _FdMail As Outlook.MAPIFolder + Dim _Mail_New As Outlook.MailItem = _OutlookApp.CreateItem(OlItemType.olMailItem) + Dim _OutlookEMailAttachments As OutlookEMailAttachments + Dim _FileStream As Stream + Dim _FilePath As String + + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , True, True) + + _FdMail = _OutlookNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderOutbox) + + _Mail_New = _FdMail.Items.Add(Outlook.OlItemType.olMailItem) + _Mail_New.Subject = _OutlookEmail.Subject + _Mail_New.To = _OutlookEmail.Recipients + _Mail_New.HTMLBody = _OutlookEmail.HTMLBody + + If _OutlookEmail.OutlookEMailAttachments.Count > 0 Then + For Each _OutlookEMailAttachments In _OutlookEmail.OutlookEMailAttachments + _FilePath = Path.GetTempPath & _OutlookEMailAttachments.DocumentFileData.File.FileName + _FileStream = New FileStream(_FilePath, FileMode.Create) + + + _OutlookEMailAttachments.DocumentFileData.File.SaveToStream(_FileStream) + + Dim _AttachFile As Outlook.Attachments = _Mail_New.Attachments + Dim _Attach As Outlook.Attachment = _AttachFile.Add(_FilePath) + + _FileStream.Close() + If System.IO.File.Exists(_FilePath) Then + System.IO.File.Delete(_FilePath) + End If + Next + + End If + + _Mail_New.Save() + _OutlookEmail.EntryID = _Mail_New.EntryID + _Mail_New.UnRead = True + _Mail_New.Send() + + If _WithCommit = True Then + _OutlookEmail.Save() + _ObjectSpace.CommitChanges() + + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailAttachments.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailAttachments.vb new file mode 100644 index 0000000..3584391 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailAttachments.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OutlookEMailAttachments + Inherits BaseObject + Private _OutlookEMail As OutlookEMail + Private _OutlookEMailIn As OutlookEMailIn + Private _DocumentFileData As DocumentFileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + _ + Property OutlookEMail As OutlookEMail + Get + Return _OutlookEMail + End Get + Set(value As OutlookEMail) + SetPropertyValue("OutlookEMail", _OutlookEMail, value) + End Set + End Property + _ + _ + Property OutlookEMailIn As OutlookEMailIn + Get + Return _OutlookEMailIn + End Get + Set(value As OutlookEMailIn) + SetPropertyValue("OutlookEMailIn", _OutlookEMailIn, value) + End Set + End Property + Property DocumentFileData As DocumentFileData + Get + Return _DocumentFileData + End Get + Set(value As DocumentFileData) + SetPropertyValue("DocumentFileData", _DocumentFileData, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailIn.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailIn.vb new file mode 100644 index 0000000..a3581d1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEMailIn.vb @@ -0,0 +1,176 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ + _ + _ + _ + _ +Public Class OutlookEMailIn + Inherits BaseObject + + Private _SenderName As String + Private _SenderEmailAddress As String + Private _EmailSubject As String + Private _EmailBody As String + Private _EntryID As String + Private _ObjectCreated As Date 'Mikor kszlt az objektum + Private _OwnerUser As User + Private _UserCreated As User 'Ki ksztette + Private _ReceivedTime As Date + Private _ReceiverEmailAdress As String ' + Private _Qualified As Boolean 'Elintzett-e? + Private _IsReaded As Boolean 'Elolvasott-e? + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + MyBase.AfterConstruction() + + IsReaded = False + Qualified = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + Dim _CurrentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + + ObjectCreated = GetSQLTime(Session) + UserCreated = _CurrentUser + End If + End Sub + _ + Property SenderName As String + Get + Return _SenderName + End Get + Set(value As String) + SetPropertyValue("SenderName", _SenderName, value) + End Set + End Property + _ + Property SenderEmailAddress As String + Get + Return _SenderEmailAddress + End Get + Set(value As String) + SetPropertyValue("SenderEmailAddress", _SenderEmailAddress, value) + End Set + End Property + _ + Property EmailSubject As String + Get + Return _EmailSubject + End Get + Set(value As String) + SetPropertyValue("EmailSubject", _EmailSubject, value) + End Set + End Property + _ + Property EmailBody As String + Get + Return _EmailBody + End Get + Set(value As String) + SetPropertyValue("EmailBody", _EmailBody, value) + End Set + End Property + _ + _ + Property EntryID As String + Get + Return _EntryID + End Get + Set(value As String) + SetPropertyValue("EntryID", _EntryID, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ReceivedTime As Date + Get + Return _ReceivedTime + End Get + Set(value As Date) + SetPropertyValue("ReceivedTime", _ReceivedTime, value) + End Set + End Property + Property OwnerUser As User + Get + Return _OwnerUser + End Get + Set(value As User) + SetPropertyValue("OwnerUser", _OwnerUser, value) + End Set + End Property + Property ReceiverEmailAdress As String + Get + Return _ReceiverEmailAdress + End Get + Set(value As String) + SetPropertyValue("ReceiverEmailAdress", _ReceiverEmailAdress, value) + End Set + End Property + Property Qualified As Boolean + Get + Return _Qualified + End Get + Set(value As Boolean) + SetPropertyValue("Qualified", _Qualified, value) + End Set + End Property + Property IsReaded As Boolean + Get + Return _IsReaded + End Get + Set(value As Boolean) + SetPropertyValue("IsReaded", _IsReaded, value) + End Set + End Property + + '-------------ReadOnly--------------- + _ + _ + ReadOnly Property OutlookEMailAttachments As XPCollection(Of OutlookEMailAttachments) + Get + Return GetCollection(Of OutlookEMailAttachments)("OutlookEMailAttachments") + End Get + End Property + ReadOnly Property OutllokEmailInHasAttachments As Image + Get + Dim _ReturnImage As Image = Nothing + If Me.OutlookEMailAttachments.Count > 0 Then _ReturnImage = ImageLoader.Instance.GetImageInfo("Action_FileAttachment_Attach").Image + If Me.OutlookEMailAttachments.Count = 0 Then _ReturnImage = ImageLoader.Instance.GetImageInfo("NoImage").Image + Return _ReturnImage + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.Designer.vb new file mode 100644 index 0000000..0f7a069 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.Designer.vb @@ -0,0 +1,130 @@ +Partial Class OutlookEmailVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSendOutlookEmail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecieveEmails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aEmailIn_To_CRMLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAttachFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachedFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aEmailIn_To_CRMEstateLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSendOutlookEmail + ' + Me.aSendOutlookEmail.Caption = "Send email via outlook" + Me.aSendOutlookEmail.ConfirmationMessage = Nothing + Me.aSendOutlookEmail.Id = "aSendOutlookEmail" + Me.aSendOutlookEmail.ImageName = "mail2" + Me.aSendOutlookEmail.Shortcut = Nothing + Me.aSendOutlookEmail.Tag = Nothing + Me.aSendOutlookEmail.TargetObjectsCriteria = Nothing + Me.aSendOutlookEmail.TargetViewId = "OutlookEMail_DetailView" + Me.aSendOutlookEmail.ToolTip = Nothing + Me.aSendOutlookEmail.TypeOfView = Nothing + ' + 'aRecieveEmails + ' + Me.aRecieveEmails.Caption = "Recive Emails" + Me.aRecieveEmails.ConfirmationMessage = "Do you want to execute command ?" + Me.aRecieveEmails.Id = "aRecieveEmails" + Me.aRecieveEmails.ImageName = "server_mail_download" + Me.aRecieveEmails.Shortcut = Nothing + Me.aRecieveEmails.Tag = Nothing + Me.aRecieveEmails.TargetObjectsCriteria = Nothing + Me.aRecieveEmails.TargetObjectType = GetType(SISBusiness.[Module].Win.OutlookEMailIn) + Me.aRecieveEmails.TargetViewId = "" + Me.aRecieveEmails.ToolTip = Nothing + Me.aRecieveEmails.TypeOfView = Nothing + ' + 'aEmailIn_To_CRMLeads + ' + Me.aEmailIn_To_CRMLeads.AcceptButtonCaption = Nothing + Me.aEmailIn_To_CRMLeads.CancelButtonCaption = Nothing + Me.aEmailIn_To_CRMLeads.Caption = "aEmailIn_To_CRMLeads" + Me.aEmailIn_To_CRMLeads.ConfirmationMessage = Nothing + Me.aEmailIn_To_CRMLeads.Id = "aEmailIn_To_CRMLeads" + Me.aEmailIn_To_CRMLeads.ImageName = "BO_Opportunity" + Me.aEmailIn_To_CRMLeads.Shortcut = Nothing + Me.aEmailIn_To_CRMLeads.Tag = Nothing + Me.aEmailIn_To_CRMLeads.TargetObjectsCriteria = Nothing + Me.aEmailIn_To_CRMLeads.TargetViewId = "OutlookEMailIn_ListView" + Me.aEmailIn_To_CRMLeads.ToolTip = Nothing + Me.aEmailIn_To_CRMLeads.TypeOfView = Nothing + ' + 'aAttachFile + ' + Me.aAttachFile.Caption = "Attach file" + Me.aAttachFile.ConfirmationMessage = Nothing + Me.aAttachFile.Id = "aAttachFile" + Me.aAttachFile.ImageName = "Action_FileAttachment_Attach" + Me.aAttachFile.Shortcut = Nothing + Me.aAttachFile.Tag = Nothing + Me.aAttachFile.TargetObjectsCriteria = Nothing + Me.aAttachFile.TargetViewId = Nothing + Me.aAttachFile.ToolTip = Nothing + Me.aAttachFile.TypeOfView = Nothing + ' + 'aViewAttachedFile + ' + Me.aViewAttachedFile.Caption = "View attached File" + Me.aViewAttachedFile.ConfirmationMessage = Nothing + Me.aViewAttachedFile.Id = "aViewAttachedFile" + Me.aViewAttachedFile.ImageName = "BO_Folder" + Me.aViewAttachedFile.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachedFile.Shortcut = Nothing + Me.aViewAttachedFile.Tag = Nothing + Me.aViewAttachedFile.TargetObjectsCriteria = Nothing + Me.aViewAttachedFile.TargetViewId = Nothing + Me.aViewAttachedFile.ToolTip = Nothing + Me.aViewAttachedFile.TypeOfView = Nothing + ' + 'aEmailIn_To_CRMEstateLeads + ' + Me.aEmailIn_To_CRMEstateLeads.AcceptButtonCaption = Nothing + Me.aEmailIn_To_CRMEstateLeads.CancelButtonCaption = Nothing + Me.aEmailIn_To_CRMEstateLeads.Caption = "aEmailIn_To_CRMEstateLeads" + Me.aEmailIn_To_CRMEstateLeads.ConfirmationMessage = Nothing + Me.aEmailIn_To_CRMEstateLeads.Id = "aEmailIn_To_CRMEstateLeads" + Me.aEmailIn_To_CRMEstateLeads.ImageName = "BO_Opportunity" + Me.aEmailIn_To_CRMEstateLeads.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aEmailIn_To_CRMEstateLeads.Shortcut = Nothing + Me.aEmailIn_To_CRMEstateLeads.Tag = Nothing + Me.aEmailIn_To_CRMEstateLeads.TargetObjectsCriteria = Nothing + Me.aEmailIn_To_CRMEstateLeads.TargetViewId = "OutlookEMailIn_ListView" + Me.aEmailIn_To_CRMEstateLeads.ToolTip = Nothing + Me.aEmailIn_To_CRMEstateLeads.TypeOfView = Nothing + + End Sub + Friend WithEvents aSendOutlookEmail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecieveEmails As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aEmailIn_To_CRMLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAttachFile As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachedFile As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aEmailIn_To_CRMEstateLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.resx new file mode 100644 index 0000000..673596b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 173 + + + 17, 212 + + + 17, 134 + + + 600, 302 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb new file mode 100644 index 0000000..01a0921 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookEmailVC.vb @@ -0,0 +1,507 @@ +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 Microsoft.Office.Interop +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports Microsoft.Office.Interop.Outlook +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors +Imports System.Windows.Forms +Imports DevExpress.ExpressApp.Utils + + +Public Class OutlookEmailVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + selection = New ArrayList() + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of OutlookEmailVC).aEmailIn_To_CRMEstateLeads.Active.SetItemValue("", False) + + If View IsNot Nothing Then + If View.Id = "OutlookEMailIn_ListView" Then + Dim _OutlookEmailListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CurrentUser As User = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser)) + _OutlookEmailListView.CollectionSource.Criteria.Add("Criteria1", CriteriaOperator.Parse("ReceiverEmailAdress=?", _CurrentUser.Email)) + End If + End If + Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", False) + Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", False) + If View.Id = "OutlookEMailIn_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "OutlookEMailIn_DetailView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "OutlookEMail_DetailView" Then + Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) + Dim _OutlookEMailIn As OutlookEMailIn = TryCast(View.SelectedObjects(0), OutlookEMailIn) + If _OutlookEMail IsNot Nothing Then + If _OutlookEMail.EntryID <> "" Then + Frame.GetController(Of OutlookEmailVC)().aSendOutlookEmail.Active.SetItemValue("", False) + End If + Else + If _OutlookEMailIn.EntryID <> "" Then + Frame.GetController(Of OutlookEmailVC)().aSendOutlookEmail.Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _ + View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of OutlookEmailVC).aAttachFile.Active.SetItemValue("", True) + Frame.GetController(Of OutlookEmailVC).aViewAttachedFile.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OutlookEMailIn_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ObjectViewController)().Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "OutlookEMail_DetailView" Then + Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) + Dim _OutlookEMailIn As OutlookEMailIn = TryCast(View.SelectedObjects(0), OutlookEMailIn) + If _OutlookEMail IsNot Nothing Then + If _OutlookEMail.EntryID <> "" Then + Frame.GetController(Of OutlookEmailVC)().aSendOutlookEmail.Active.SetItemValue("", False) + End If + Else + If _OutlookEMailIn.EntryID <> "" Then + Frame.GetController(Of OutlookEmailVC)().aSendOutlookEmail.Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "OutlookEMail_OutlookEMailAttachments_ListView" Or _ + View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "OutlookEMailIn_DetailView" Then + Dim _OutlookEMailIn As OutlookEMailIn = View.SelectedObjects(0) + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _OutlookEMailIn.OutlookEMailAttachments + If _OutlookEMailIn.EmailBody.Contains(_OutlookEMailAttachments.DocumentFileData.File.FileName) Then + Dim _ActCIDText As String = "cid:" + Dim _GenString As String = _OutlookEMailIn.EmailBody.Substring(_OutlookEMailIn.EmailBody.IndexOf(_OutlookEMailAttachments.DocumentFileData.File.FileName)) + _GenString = _GenString.Remove(_GenString.IndexOf(Chr(34)), _GenString.Length - _GenString.IndexOf(Chr(34))) + _ActCIDText += _GenString + Dim _fs As New FileStream(Path.GetTempPath() + _OutlookEMailAttachments.DocumentFileData.File.FileName, FileMode.Create) + _OutlookEMailAttachments.DocumentFileData.File.SaveToStream(_fs) + _fs.Close() + + _OutlookEMailIn.EmailBody = _OutlookEMailIn.EmailBody.Replace(_ActCIDText, Path.GetTempPath() + _OutlookEMailAttachments.DocumentFileData.File.FileName) + End If + Next + End If + End Sub + Private Sub aSendOutlookEmail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendOutlookEmail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OutlookEMail As OutlookEMail = TryCast(View.SelectedObjects(0), OutlookEMail) + _OutlookEMail.SendMail(_OutlookEMail, _ocur, True) + + Dim _CRM_Leads As CRM_Leads = _OutlookEMail.CRM_Leads + Dim _CRM_Opportunities As CRM_Opportunities = _OutlookEMail.CRM_Opportunities + Dim _CRMEstate_Leads As CRMEstate_Leads = _OutlookEMail.CRMEstate_Leads + + '--CRM_Leads; CRM_Opportunities ==>CRM_Leads_Activity-be + If _CRM_Leads IsNot Nothing Then + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads + _CRM_Leads_Activity.Subject = _OutlookEMail.Subject + _CRM_Leads_Activity.Email_Oid = _OutlookEMail.Oid.ToString() + _CRM_Leads_Activity.EventType = eEventType.eEmailOut + + If _CRM_Opportunities IsNot Nothing Then + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities + End If + End If + + If _CRMEstate_Leads IsNot Nothing Then + Dim _CRMEstate_Leads_Activity As CRMEstate_Leads_Activity = _ocur.CreateObject(Of CRMEstate_Leads_Activity)() + _CRMEstate_Leads_Activity.CRMEstate_Leads = _CRMEstate_Leads + _CRMEstate_Leads_Activity.Email_Oid = _OutlookEMail.Oid.ToString() + _CRMEstate_Leads_Activity.Subject = _OutlookEMail.Subject + _CRMEstate_Leads_Activity.EventType = eEventType.eEmailOut + _CRMEstate_Leads_Activity.HRPerson = _CRMEstate_Leads.HRPerson + End If + + _ocur.CommitChanges() + View.Close(False) + End Sub + Private Sub aRecieveEmails_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecieveEmails.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace + Dim _FolderMail As Outlook.MAPIFolder + Dim _Mail As Outlook.MailItem + Dim _OutlookEMailIn As OutlookEMailIn + Dim _GO As Boolean = False + Dim _CollectionOfEmailIn As XPCollection = _ocur.CreateCollection(GetType(OutlookEMailIn)) + Dim _Mail_New As OutlookEMailIn + Dim _FilePath As String + Dim _fs As FileStream + Dim i As Long = 0 + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _FDObject As Object + Dim _CurrentUser As User = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _CurrentUser)) + + + + If _HRPerson Is Nothing Then + Throw New System.Exception("Nincs a felhasznl a szemlyzeti trzsben !") + Exit Sub + End If + + If _CurrentUser.Email <> "" Then + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + + '_FolderMail = _OutlookNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) + _FolderMail = _OutlookNameSpace.GetFolderFromID(_HRPerson.DefaultOutlookFolderEntryID) + + If _FolderMail Is Nothing Then + Throw New System.Exception("Nem tallom a megadott outlook knyvtrat ! ") + Exit Sub + End If + + _WaitFormClass.Initwork(1, 1, _FolderMail.Items.Count) + For Each _FDObject In _FolderMail.Items + _Mail = TryCast(_FDObject, MailItem) + + If _Mail IsNot Nothing Then + _GO = False + _WaitFormClass.DoWork() + i += 1 + For Each _OutlookEMailIn In _CollectionOfEmailIn + If _Mail.EntryID = _OutlookEMailIn.EntryID Then + _GO = True + Exit For + End If + Next + If _GO = False Then + _Mail_New = New OutlookEMailIn(_uow) + 'If _Mail.SenderEmailType = "EX" Then + ' _Mail_New.SenderEmailAddress = GetExchangeSenderAddress(_Mail, _OutlookNameSpace) + 'Else + ' _Mail_New.SenderEmailAddress = _Mail.SenderEmailAddress + 'End If + _Mail_New.SenderEmailAddress = GetSmtpAddress(_Mail) + _Mail_New.ReceivedTime = _Mail.ReceivedTime + _Mail_New.SenderName = _Mail.SenderName + _Mail_New.EmailSubject = _Mail.Subject + _Mail_New.EmailBody = _Mail.HTMLBody + _Mail_New.EntryID = _Mail.EntryID + _Mail_New.ReceiverEmailAdress = _CurrentUser.Email + + If _Mail.Attachments.Count > 0 Then + For Each _Attachment As Outlook.Attachment In _Mail.Attachments + _FilePath = Path.GetTempPath & _Attachment.FileName + _Attachment.SaveAsFile(_FilePath) + + Dim _EmailAttachments As OutlookEMailAttachments + Dim _DocumentFileData As DocumentFileData = New DocumentFileData(_uow) + + _fs = New FileStream(_FilePath, FileMode.Open) + + _DocumentFileData.File = New FileData(_uow) + _DocumentFileData.File.LoadFromStream(Path.GetFileName(_Attachment.FileName), _fs) + + _EmailAttachments = New OutlookEMailAttachments(_uow) + _EmailAttachments.DocumentFileData = _DocumentFileData + + _Mail_New.OutlookEMailAttachments.Add(_EmailAttachments) + + _fs.Close() + If System.IO.File.Exists(_FilePath) Then + System.IO.File.Delete(_FilePath) + End If + Next + End If + '_Mail_New.Save() + If i Mod 100 Then _uow.CommitChanges() + + End If + End If + Next + _uow.CommitChanges() + _WaitFormClass.FinalWork() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Else + _ocur.Rollback() + Throw New System.Exception("Nincs belltva e-mail cm a bejelentkezett felhasznlnak!") + End If + End Sub + Private Function GetSmtpAddress(ByVal item As Outlook.MailItem) As String + Dim sAddress As String + Dim recip As Outlook.Recipient + Dim exUser As Outlook.ExchangeUser + Dim oOutlook As Outlook.Application + Dim oNS As Outlook.NameSpace + + On Error Resume Next + + oOutlook = New Outlook.Application + oNS = oOutlook.GetNamespace("MAPI") + If UCase$(item.SenderEmailType) = "EX" Then + recip = oNS.CreateRecipient(item.SenderEmailAddress) + exUser = recip.AddressEntry.GetExchangeUser() + sAddress = exUser.PrimarySmtpAddress + Else + sAddress = item.SenderEmailAddress + End If + GetSmtpAddress = sAddress + oNS = Nothing + oOutlook = Nothing + End Function + Private Sub aEmailIn_To_CRMLeads_Cancel(sender As Object, e As System.EventArgs) Handles aEmailIn_To_CRMLeads.Cancel + noselect = False + End Sub + Private Sub aEmailIn_To_CRMLeads_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aEmailIn_To_CRMLeads.CustomizePopupWindowParams + If View.SelectedObjects.Count > 0 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + noselect = True + Dim _OutlookEmailIn_To_CRMLeads As OutlookEmailIn_To_CRMLeads = _onew.CreateObject(Of OutlookEmailIn_To_CRMLeads)() + Dim _Mail As Outlook.MailItem = TryCast(View.SelectedObjects(0), Outlook.MailItem) + Dim _OutlookEMailIn As OutlookEMailIn = TryCast(View.SelectedObjects(0), OutlookEMailIn) + _OutlookEmailIn_To_CRMLeads.EMail = _OutlookEMailIn.SenderEmailAddress + + e.View = Application.CreateDetailView(_onew, "OutlookEmailIn_To_CRMLeads_DetailView", False, _OutlookEmailIn_To_CRMLeads) + View.Refresh() + End If + End Sub + Private Sub aEmailIn_To_CRMLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aEmailIn_To_CRMLeads.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OutlookEmailIn_To_CRMLeads As OutlookEmailIn_To_CRMLeads = TryCast(e.PopupWindow.View.SelectedObjects(0), OutlookEmailIn_To_CRMLeads) + Dim _OutlookEMailIn As OutlookEMailIn + noselect = True + + Select Case _OutlookEmailIn_To_CRMLeads.EmailTo + Case eEmailTo.eCRM + Dim _CRM_Leads_POPUP As CRM_Leads + Dim _CRM_Opportunities_POPUP As CRM_Opportunities + Dim _CRM_Leads_Activity As CRM_Leads_Activity + + If _OutlookEmailIn_To_CRMLeads.CRM_Leads IsNot Nothing Then + _CRM_Leads_POPUP = _ocur.GetObjectByKey(Of CRM_Leads)(_OutlookEmailIn_To_CRMLeads.CRM_Leads.Oid) + End If + If _OutlookEmailIn_To_CRMLeads.CRM_Opportunities IsNot Nothing Then + _CRM_Opportunities_POPUP = _ocur.GetObjectByKey(Of CRM_Opportunities)(_OutlookEmailIn_To_CRMLeads.CRM_Opportunities.Oid) + If _CRM_Leads_POPUP Is Nothing Then + _CRM_Leads_POPUP = _CRM_Opportunities_POPUP.CRM_Leads + End If + End If + _WaitFormClass.Initwork(1, 1, selection.Count) + For Each _OutlookEMailIn In selection + _WaitFormClass.DoWork() + _OutlookEMailIn.IsReaded = True + _OutlookEMailIn.Qualified = True + If _OutlookEMailIn.SenderEmailAddress = _OutlookEmailIn_To_CRMLeads.EMail Then + If _CRM_Leads_POPUP IsNot Nothing Then + _CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + + If _CRM_Opportunities_POPUP IsNot Nothing Then + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads_POPUP + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities_POPUP + _CRM_Leads_Activity.Email_Oid = _OutlookEMailIn.Oid.ToString() + _CRM_Leads_Activity.Subject = _OutlookEMailIn.EmailSubject + _CRM_Leads_Activity.EventType = eEventType.eEMailIn + Else + + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads_POPUP + _CRM_Leads_Activity.CRM_Opportunities = Nothing + _CRM_Leads_Activity.Email_Oid = _OutlookEMailIn.Oid.ToString() + _CRM_Leads_Activity.Subject = _OutlookEMailIn.EmailSubject + _CRM_Leads_Activity.EventType = eEventType.eEMailIn + End If + + End If + + End If + Next + Case eEmailTo.eRegistry + _WaitFormClass.Initwork(1, 1, selection.Count) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + + For Each _OutlookEMailIn In selection + _WaitFormClass.DoWork() + _OutlookEMailIn.IsReaded = True + _OutlookEMailIn.Qualified = True + Dim _RegistryHeader As RegistryHeader = _ocur.CreateObject(Of RegistryHeader)() + _RegistryHeader.RegistryType = _ocur.GetObjectByKey(Of RegistryType)(_OutlookEmailIn_To_CRMLeads.RegistryType.Oid) + _RegistryHeader.DeliveryType = eDeliveryType.eMail + _RegistryHeader.CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_OutlookEmailIn_To_CRMLeads.CustomersFrom.Oid) + + + Dim _Mail As Outlook.MailItem = TryCast(_OutlookNameSpace.GetItemFromID(_OutlookEMailIn.EntryID), Outlook.MailItem) + _Mail.SaveAs(Path.GetTempPath() + "EmailMessage.msg") + + Dim _fs As FileStream + _fs = New FileStream(Path.GetTempPath() + "EmailMessage.msg", FileMode.Open) + _RegistryHeader.DocumentFile = New FileData(_ocur.Session) + _RegistryHeader.DocumentFile.LoadFromStream("EmailMessage.msg", _fs) + + _fs.Close() + If System.IO.File.Exists(Path.GetTempPath() + "EmailMessage.msg") Then + System.IO.File.Delete(Path.GetTempPath() + "EmailMessage.msg") + End If + Next + Case eEmailTo.eCRMEstate + _WaitFormClass.Initwork(1, 1, selection.Count) + + For Each _OutlookEMailIn In selection + _WaitFormClass.DoWork() + _OutlookEMailIn.IsReaded = True + _OutlookEMailIn.Qualified = True + + Dim _CRMEstate_Leads As CRMEstate_Leads = _ocur.GetObjectByKey(Of CRMEstate_Leads)(_OutlookEmailIn_To_CRMLeads.CRMEstate_Leads.Oid) + If _CRMEstate_Leads Is Nothing Then Throw New System.Exception("Nem lett kivlasztva a felugr ablakban egyetlen ingatlan gy sem!" + vbNewLine + "A folyamat megszakadt!") + + Dim _CRMEstate_Leads_Activity As CRMEstate_Leads_Activity = _ocur.CreateObject(Of CRMEstate_Leads_Activity)() + + _CRMEstate_Leads_Activity.EventType = eEventType.eEMailIn + _CRMEstate_Leads_Activity.CRMEstate_Leads = _CRMEstate_Leads + _CRMEstate_Leads_Activity.Email_Oid = _OutlookEMailIn.Oid.ToString + _CRMEstate_Leads_Activity.HRPerson = _CRMEstate_Leads.HRPerson + _CRMEstate_Leads_Activity.Subject = _OutlookEMailIn.EmailSubject + + Next + End Select + noselect = False + _ocur.CommitChanges() + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + Finally + Me._WaitFormClass.FinalWork() + End Try + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _OutlookEmailIn As OutlookEMailIn + If View Is Nothing Then Exit Sub + If noselect = False Then + selection.Clear() + + For Each _OutlookEmailIn In View.SelectedObjects + selection.Add(_OutlookEmailIn) + Next + End If + End Sub + Private Sub aViewAttachedFile_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachedFile.Execute + Try + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + Dim _OutlookEMailAttachments As OutlookEMailAttachments = TryCast(View.SelectedObjects(0), OutlookEMailAttachments) + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _OutlookEMailAttachments.DocumentFileData.File.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _OutlookEMailAttachments.DocumentFileData.File.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + Catch + Throw New UserFriendlyException("Nem tudom megnyitni a file-t!") + End Try + End Sub + Private Sub aAttachFile_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aAttachFile.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OutlookEMail As OutlookEMail = TryCast(_PropertyCollectionSource.MasterObject, OutlookEMail) + Dim _MyStream As Stream = Nothing + Dim _OpenFileDialog As New OpenFileDialog() + + _OpenFileDialog.InitialDirectory = "c:\" + _OpenFileDialog.RestoreDirectory = True + + If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + Try + _MyStream = _OpenFileDialog.OpenFile() + If (_MyStream IsNot Nothing) Then + + Dim _EmailAttachments As OutlookEMailAttachments + Dim _DocumentFileData As DocumentFileData = _ocur.CreateObject(Of DocumentFileData)() + + _DocumentFileData.File = _ocur.CreateObject(Of FileData)() + _DocumentFileData.File.LoadFromStream(Path.GetFileName(_OpenFileDialog.FileName), _MyStream) + + _EmailAttachments = _ocur.CreateObject(Of OutlookEMailAttachments)() + _EmailAttachments.DocumentFileData = _DocumentFileData + + _OutlookEMail.OutlookEMailAttachments.Add(_ocur.GetObject(_EmailAttachments)) + _OutlookEMail.Save() + _ocur.CommitChanges() + View.Refresh() + End If + Catch + '--- TESZT MIATT!!! ----- + MessageBox.Show("Nem tudtam csatolni a file-t!") + Finally + + If (_MyStream IsNot Nothing) Then + _MyStream.Close() + End If + End Try + End If + End Sub + + Private Sub aEmailIn_To_CRMEstateLeads_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aEmailIn_To_CRMEstateLeads.CustomizePopupWindowParams + Try + + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aEmailIn_To_CRMEstateLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aEmailIn_To_CRMEstateLeads.Execute + Try + + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder.vb new file mode 100644 index 0000000..35442a9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OutlookReminder + Inherits BaseObject + Private _Subject As String + Private _Body As String + Private _DueDate As DateTime + Private _ReminderTimeDay As DateTime + Private _Hours As Integer + Private _Minutes As Integer + Private _TaskEntryID As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + _ + Property Body As String + Get + Return _Body + End Get + Set(value As String) + SetPropertyValue("Body", _Body, value) + End Set + End Property + Property DueDate As DateTime + Get + Return _DueDate + End Get + Set(value As DateTime) + SetPropertyValue("DueDate", _DueDate, value) + End Set + End Property + Property ReminderTimeDay As DateTime + Get + Return _ReminderTimeDay + End Get + Set(value As DateTime) + SetPropertyValue("ReminderTimeDay", _ReminderTimeDay, value) + End Set + End Property + _ + Property Hours As Integer + Get + Return _Hours + End Get + Set(value As Integer) + SetPropertyValue("Hours", _Hours, value) + End Set + End Property + _ + Property Minutes As Integer + Get + Return _Minutes + End Get + Set(value As Integer) + SetPropertyValue("Minutes", _Minutes, value) + End Set + End Property + _ + _ + Property TaskEntryID As String + Get + Return _TaskEntryID + End Get + Set(value As String) + SetPropertyValue("TaskEntryID", _TaskEntryID, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.Designer.vb new file mode 100644 index 0000000..7bbefb5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OutlookReminder_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.vb new file mode 100644 index 0000000..ddd2f85 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/OutlookReminder_VC.vb @@ -0,0 +1,73 @@ +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 Microsoft.Office.Interop +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Editors + +Public Class OutlookReminder_VC + 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 = "OutlookReminder_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf OutlookReminder_DetailView_Save + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf OutlookReminder_DetailView_Save + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf OutlookReminder_DetailView_Save + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OutlookReminder_DetailView" Then + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf OutlookReminder_DetailView_Save + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf OutlookReminder_DetailView_Save + RemoveHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf OutlookReminder_DetailView_Save + End If + End Sub + Private Sub OutlookReminder_DetailView_Save() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI") + + Dim _OutlookReminder As OutlookReminder = TryCast(View.SelectedObjects(0), OutlookReminder) + Dim _NewTask As Outlook.TaskItem = Nothing + + If Not String.IsNullOrEmpty(_OutlookReminder.TaskEntryID) Then + Try + _NewTask = _OutlookNameSpace.GetItemFromID(_OutlookReminder.TaskEntryID) + Catch ex As Exception + End Try + End If + + If _NewTask Is Nothing Then _NewTask = _OutlookApp.CreateItem(Outlook.OlItemType.olTaskItem) + + _OutlookNameSpace.Logon(, , True, True) + _NewTask.ReminderSet = True + _NewTask.Body = _OutlookReminder.Body + _NewTask.DueDate = New DateTime(_OutlookReminder.DueDate.Year, _OutlookReminder.DueDate.Month, _OutlookReminder.DueDate.Day, _OutlookReminder.Hours, _OutlookReminder.Minutes, 0) + _NewTask.ReminderTime = _OutlookReminder.ReminderTimeDay + _NewTask.Subject = _OutlookReminder.Subject + _NewTask.UnRead = True + _NewTask.Save() + + If String.IsNullOrEmpty(_OutlookReminder.TaskEntryID) Then _OutlookReminder.TaskEntryID = _NewTask.EntryID + + _ocur.CommitChanges() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/PopUp/OutlookEmailIn_To_CRMLeads.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/PopUp/OutlookEmailIn_To_CRMLeads.vb new file mode 100644 index 0000000..9a2dd7f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/PopUp/OutlookEmailIn_To_CRMLeads.vb @@ -0,0 +1,118 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eEmailTo + eCRM = 0 + eRegistry = 1 + eCRMEstate = 2 +End Enum + _ + _ + _ + _ + _ + _ + _ +Public Class OutlookEmailIn_To_CRMLeads + Inherits BaseObject + + Private _EmailTo As eEmailTo + Private _EMail As String + + '-------CRM---------- + Private _CRM_Leads As CRM_Leads + Private _CRM_Opportunities As CRM_Opportunities + + + '-------Registry------- + Private _CustomersFrom As CustomersFrom + Private _RegistryType As RegistryType 'Iktats tpusa + + '-------CRMEstate------ + Private _CRMEstate_Leads As CRMEstate_Leads + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + _ + Property EmailTo As eEmailTo + Get + Return _EmailTo + End Get + Set(value As eEmailTo) + SetPropertyValue("EmailTo", _EmailTo, value) + End Set + End Property + _ + Property EMail As String + Get + Return _EMail + End Get + Set(value As String) + SetPropertyValue("EMail", _EMail, value) + End Set + End Property + + '-------CRM---------- + Public Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + Public Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + + '-------Registry------- + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property RegistryType As RegistryType + Get + Return _RegistryType + End Get + Set(value As RegistryType) + SetPropertyValue("RegistryType", _RegistryType, value) + End Set + End Property + + '-------CRMEstate------ + Property CRMEstate_Leads As CRMEstate_Leads + Get + Return _CRMEstate_Leads + End Get + Set(value As CRMEstate_Leads) + SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/WEB.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/WEB.vb new file mode 100644 index 0000000..0dbfada --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/EMail/WEB.vb @@ -0,0 +1,29 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class WEB + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.Designer.vb new file mode 100644 index 0000000..2f6fdb4 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class HRPersonEventVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSelectHRPersonToScheduler = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSelectHRPersonToScheduler + ' + Me.aSelectHRPersonToScheduler.AcceptButtonCaption = Nothing + Me.aSelectHRPersonToScheduler.CancelButtonCaption = Nothing + Me.aSelectHRPersonToScheduler.Caption = "aSelect HRPerson To Scheduler" + Me.aSelectHRPersonToScheduler.ConfirmationMessage = Nothing + Me.aSelectHRPersonToScheduler.Id = "aSelectHRPersonToScheduler" + Me.aSelectHRPersonToScheduler.ImageName = Nothing + Me.aSelectHRPersonToScheduler.Shortcut = Nothing + Me.aSelectHRPersonToScheduler.Tag = Nothing + Me.aSelectHRPersonToScheduler.TargetObjectsCriteria = Nothing + Me.aSelectHRPersonToScheduler.TargetObjectType = GetType(SISBusiness.[Module].HRPersonEvent) + Me.aSelectHRPersonToScheduler.TargetViewId = Nothing + Me.aSelectHRPersonToScheduler.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSelectHRPersonToScheduler.ToolTip = Nothing + Me.aSelectHRPersonToScheduler.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aSelectHRPersonToScheduler As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.resx new file mode 100644 index 0000000..a715a21 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.vb new file mode 100644 index 0000000..114cdf9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPersonEventVC.vb @@ -0,0 +1,123 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.ExpressApp.Scheduler +Imports DevExpress.ExpressApp.Scheduler.Win +Imports DevExpress.Data.Helpers +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.XtraScheduler + + +Public Class HRPersonEventVC + Inherits DevExpress.ExpressApp.ViewController + Private _SchedulerListEditor As SchedulerListEditor + Public Sub New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + + End Sub + Protected Overloads Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "HRPersonEvent_ListView_CurrentUser" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _SchedulerListEditor = TryCast((CType(View, ListView)).Editor, SchedulerListEditor) + If _SchedulerListEditor IsNot Nothing Then + InitSchedulerControl(_SchedulerListEditor.SchedulerControl) + Dim _Resources_Collection As XPCollection = TryCast(_SchedulerListEditor.ResourcesDataSource, XPCollection) + Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _ocur.GetObject(SecuritySystem.CurrentUser))) + If _HRPerson Is Nothing Then + _Resources_Collection.Criteria = CriteriaOperator.Parse("1=2") + Else + _Resources_Collection.Criteria = New BinaryOperator("Oid", _HRPerson.Oid) + End If + End If + End If + If View.Id Like "HRPersonEvent_ListView*" Then + _SchedulerListEditor = TryCast((CType(View, ListView)).Editor, SchedulerListEditor) + If _SchedulerListEditor IsNot Nothing Then + AddHandler _SchedulerListEditor.SchedulerControl.AppointmentViewInfoCustomizing, AddressOf SchedulerListEditor_SchedulerControl_AppointmentViewInfoCustomizing + End If + End If + If View.Id = "HRPersonEvent_ListView_All" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _SchedulerListEditor = TryCast((CType(View, ListView)).Editor, SchedulerListEditor) + If _SchedulerListEditor IsNot Nothing Then + InitSchedulerControl(_SchedulerListEditor.SchedulerControl) + Dim _Resources_Collection As XPCollection = TryCast(_SchedulerListEditor.ResourcesDataSource, XPCollection) + Dim _HRPersonEventCriteria As HRPersonEventCriteria = _ocur.FindObject(Of HRPersonEventCriteria)(CriteriaOperator.Parse("ViewID=? and User.Oid=?", View.Id, SecuritySystem.CurrentUser.oid)) + If _HRPersonEventCriteria IsNot Nothing Then + _Resources_Collection.CriteriaString = _HRPersonEventCriteria.Criteria + _SchedulerListEditor.SchedulerControl.ActiveViewType = _HRPersonEventCriteria.ActiveViewType + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "HRPersonEvent_ListView_All" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _SchedulerListEditor = TryCast((CType(View, ListView)).Editor, SchedulerListEditor) + If _SchedulerListEditor IsNot Nothing Then + Dim _HRPersonEventCriteria As HRPersonEventCriteria = _ocur.FindObject(Of HRPersonEventCriteria)(CriteriaOperator.Parse("ViewID=? and User.Oid=?", View.Id, SecuritySystem.CurrentUser.oid)) + If _HRPersonEventCriteria IsNot Nothing Then + _HRPersonEventCriteria.ActiveViewType = _SchedulerListEditor.SchedulerControl.ActiveViewType + _ocur.CommitChanges() + End If + End If + End If + End Sub + Private Sub InitSchedulerControl(_SchedulerControl As DevExpress.XtraScheduler.SchedulerControl) + _SchedulerControl.Views.DayView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0)) + _SchedulerControl.Views.WorkWeekView.VisibleTime = New TimeOfDayInterval(New TimeSpan(7, 0, 0), New TimeSpan(19, 0, 0)) + _SchedulerControl.OptionsCustomization.AllowAppointmentDragBetweenResources = UsedAppointmentType.None + End Sub + Private Sub aSelectHRPersonToScheduler_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectHRPersonToScheduler.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(HRPerson)) + + e.View = Application.CreateListView("HRPerson_ListView_Select", _CS, False) + + End Sub + Private Sub aSelectHRPersonToScheduler_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectHRPersonToScheduler.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SchedulerListEditor As SchedulerListEditor = TryCast((CType(View, ListView)).Editor, SchedulerListEditor) + Dim _HRPerson As HRPerson + If _SchedulerListEditor IsNot Nothing Then + Dim _Resources_Collection As XPCollection = TryCast(_SchedulerListEditor.ResourcesDataSource, XPCollection) + If _Resources_Collection IsNot Nothing Then + Dim Keys As New Collection + Keys.Clear() + For Each _HRPerson In e.PopupWindow.View.SelectedObjects + Keys.Add(_HRPerson.Oid) + Next + If Keys.Count <= 0 Then + _Resources_Collection.Criteria = Nothing + Else + _Resources_Collection.Criteria = New InOperator("Oid", Keys) + End If + + Dim _HRPersonEventCriteria As HRPersonEventCriteria = _ocur.FindObject(Of HRPersonEventCriteria)(CriteriaOperator.Parse("ViewID=? and User.Oid=?", View.Id, SecuritySystem.CurrentUser.oid)) + If _HRPersonEventCriteria Is Nothing Then + _HRPersonEventCriteria = _ocur.CreateObject(Of HRPersonEventCriteria)() + End If + _HRPersonEventCriteria.User = _ocur.FindObject(Of User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUser.oid)) + _HRPersonEventCriteria.ViewID = View.Id + _HRPersonEventCriteria.Criteria = _Resources_Collection.CriteriaString + + _ocur.CommitChanges() + End If + End If + End Sub + + Private Sub SchedulerListEditor_SchedulerControl_AppointmentViewInfoCustomizing(sender As Object, e As DevExpress.XtraScheduler.AppointmentViewInfoCustomizingEventArgs) + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb new file mode 100644 index 0000000..251367d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HRPerson_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb new file mode 100644 index 0000000..1f55f15 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb @@ -0,0 +1,32 @@ +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 HRPerson_VC + Inherits SISBusiness.Module.HRPerson_VC + + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.Designer.vb new file mode 100644 index 0000000..8b13789 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.Designer.vb @@ -0,0 +1 @@ + diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.vb new file mode 100644 index 0000000..eeeee0c --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/LookupListEditor/WinLookupLinkViewControllerVC.vb @@ -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.Editors +Imports DevExpress.ExpressApp.Win.Editors + +Public Class WinLookupLinkViewControllerVC + Inherits LookupLinkViewController + Protected Overrides Sub ProcessLookupEditor(ByVal editor As PropertyEditor) + Dim lookup As LookupPropertyEditor = TryCast(editor, LookupPropertyEditor) + Dim list As ListPropertyEditor = TryCast(editor, ListPropertyEditor) + If lookup IsNot Nothing Then + AddHandler lookup.Control.Popup, AddressOf Control_Popup + End If + End Sub + Private Sub Control_Popup(ByVal sender As Object, ByVal e As EventArgs) + Dim control As LookupEdit = CType(sender, LookupEdit) + Dim controller As LinkToLookupViewController = control.Frame.GetController(Of LinkToLookupViewController)() + If controller IsNot Nothing Then + For Each editor As LookupPropertyEditor In View.GetItems(Of LookupPropertyEditor)() + If Equals(editor.Control, control) Then + controller.Lookup = editor + End If + Next editor + End If + End Sub + Private Sub ListPropertyEditor_ControlCreated(sender As Object, e As EventArgs) + + End Sub +End Class + diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.Designer.vb new file mode 100644 index 0000000..86fd0a2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.Designer.vb @@ -0,0 +1,119 @@ +Partial Class BusinessDirectory_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBusinessDirectory_OpenRTFDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenRTFDocument_InsertTable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenRTFDocument_SaveBusinessDiretory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenRTFDocument_SaveToCRM_Lead = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOpenRTFDocument_InsertDocVariable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBusinessDirectory_OpenSpreadDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBusinessDirectory_OpenRTFDocument + ' + Me.aBusinessDirectory_OpenRTFDocument.Caption = "aBusinessDirectory_OpenRTFDocument" + Me.aBusinessDirectory_OpenRTFDocument.Category = "RecordEdit" + Me.aBusinessDirectory_OpenRTFDocument.ConfirmationMessage = Nothing + Me.aBusinessDirectory_OpenRTFDocument.Id = "aBusinessDirectory_OpenRTFDocument" + Me.aBusinessDirectory_OpenRTFDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBusinessDirectory_OpenRTFDocument.TargetObjectsCriteria = "IsFolder=False" + Me.aBusinessDirectory_OpenRTFDocument.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_OpenRTFDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aBusinessDirectory_OpenRTFDocument.ToolTip = Nothing + Me.aBusinessDirectory_OpenRTFDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aOpenRTFDocument_InsertTable + ' + Me.aOpenRTFDocument_InsertTable.Caption = "aOpenRTFDocument_InsertTable" + Me.aOpenRTFDocument_InsertTable.Category = "RecordEdit" + Me.aOpenRTFDocument_InsertTable.ConfirmationMessage = Nothing + Me.aOpenRTFDocument_InsertTable.Id = "aOpenRTFDocument_InsertTable" + Me.aOpenRTFDocument_InsertTable.TargetObjectType = GetType(SISBusiness.[Module].OpenRTFDocument_PopUp) + Me.aOpenRTFDocument_InsertTable.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOpenRTFDocument_InsertTable.ToolTip = Nothing + Me.aOpenRTFDocument_InsertTable.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOpenRTFDocument_SaveBusinessDiretory + ' + Me.aOpenRTFDocument_SaveBusinessDiretory.Caption = "aOpenRTFDocument_SaveBusinessDiretory" + Me.aOpenRTFDocument_SaveBusinessDiretory.Category = "Save" + Me.aOpenRTFDocument_SaveBusinessDiretory.ConfirmationMessage = Nothing + Me.aOpenRTFDocument_SaveBusinessDiretory.Id = "aOpenRTFDocument_SaveBusinessDiretory" + Me.aOpenRTFDocument_SaveBusinessDiretory.TargetObjectType = GetType(SISBusiness.[Module].OpenRTFDocument_PopUp) + Me.aOpenRTFDocument_SaveBusinessDiretory.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOpenRTFDocument_SaveBusinessDiretory.ToolTip = Nothing + Me.aOpenRTFDocument_SaveBusinessDiretory.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOpenRTFDocument_SaveToCRM_Lead + ' + Me.aOpenRTFDocument_SaveToCRM_Lead.AcceptButtonCaption = Nothing + Me.aOpenRTFDocument_SaveToCRM_Lead.CancelButtonCaption = Nothing + Me.aOpenRTFDocument_SaveToCRM_Lead.Caption = "aOpenRTFDocument_SaveToCRM_Lead" + Me.aOpenRTFDocument_SaveToCRM_Lead.Category = "Save" + Me.aOpenRTFDocument_SaveToCRM_Lead.ConfirmationMessage = Nothing + Me.aOpenRTFDocument_SaveToCRM_Lead.Id = "aOpenRTFDocument_SaveToCRM_Lead" + Me.aOpenRTFDocument_SaveToCRM_Lead.TargetObjectType = GetType(SISBusiness.[Module].OpenRTFDocument_PopUp) + Me.aOpenRTFDocument_SaveToCRM_Lead.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOpenRTFDocument_SaveToCRM_Lead.ToolTip = Nothing + Me.aOpenRTFDocument_SaveToCRM_Lead.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOpenRTFDocument_InsertDocVariable + ' + Me.aOpenRTFDocument_InsertDocVariable.AcceptButtonCaption = Nothing + Me.aOpenRTFDocument_InsertDocVariable.CancelButtonCaption = Nothing + Me.aOpenRTFDocument_InsertDocVariable.Caption = "aOpenRTFDocument_InsertDocVariable" + Me.aOpenRTFDocument_InsertDocVariable.Category = "RecordEdit" + Me.aOpenRTFDocument_InsertDocVariable.ConfirmationMessage = Nothing + Me.aOpenRTFDocument_InsertDocVariable.Id = "aOpenRTFDocument_InsertDocVariable" + Me.aOpenRTFDocument_InsertDocVariable.TargetObjectType = GetType(SISBusiness.[Module].OpenRTFDocument_PopUp) + Me.aOpenRTFDocument_InsertDocVariable.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOpenRTFDocument_InsertDocVariable.ToolTip = Nothing + Me.aOpenRTFDocument_InsertDocVariable.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aBusinessDirectory_OpenSpreadDocument + ' + Me.aBusinessDirectory_OpenSpreadDocument.Caption = "aBusinessDirectory_OpenSpreadDocument" + Me.aBusinessDirectory_OpenSpreadDocument.Category = "RecordEdit" + Me.aBusinessDirectory_OpenSpreadDocument.ConfirmationMessage = Nothing + Me.aBusinessDirectory_OpenSpreadDocument.Id = "aBusinessDirectory_OpenSpreadDocument" + Me.aBusinessDirectory_OpenSpreadDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBusinessDirectory_OpenSpreadDocument.TargetObjectsCriteria = "IsFolder=False" + Me.aBusinessDirectory_OpenSpreadDocument.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_OpenSpreadDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aBusinessDirectory_OpenSpreadDocument.ToolTip = Nothing + Me.aBusinessDirectory_OpenSpreadDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aBusinessDirectory_OpenRTFDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenRTFDocument_InsertTable As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenRTFDocument_SaveBusinessDiretory As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenRTFDocument_SaveToCRM_Lead As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOpenRTFDocument_InsertDocVariable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBusinessDirectory_OpenSpreadDocument As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.resx new file mode 100644 index 0000000..6432a5b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 173 + + + 17, 56 + + + 1064, 17 + + + 302, 173 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb new file mode 100644 index 0000000..65cba11 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/BusinessDirectory_VC.vb @@ -0,0 +1,352 @@ +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.XtraRichEdit.API.Native +Imports DevExpress.XtraRichEdit +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.TreeListEditors.Win +Imports DevExpress.XtraTreeList +Imports DevExpress.ExpressApp.Win.Controls +Imports DevExpress.XtraSpreadsheet +Imports DevExpress.XtraSpreadsheet.Services + +Public Class BusinessDirectory_VC + Inherits SISBusiness.Module.BusinessDirectory_VC + + Private _RichEditControl As RichEditControl + Private _SpreadsheetControl As SpreadsheetControl + Private _ISpreadsheetCommandFactoryService As ISpreadsheetCommandFactoryService + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "OpenRTFDocument_PopUp_DetailView" Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("RTFText") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + If View.Id = "OpenSpreadDocument_Popup_DetailView" Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") + If _SpreadXML_ViewItem IsNot Nothing Then + AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated + End If + End If + If View.Id = "BusinessDirectory_ListView" Then + AddHandler View.ControlsCreated, AddressOf BusinessDirectory_ListView_ControlsCreated + End If + + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OpenRTFDocument_PopUp_DetailView" Then + 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 = "BusinessDirectory_ListView" Then + RemoveHandler View.ControlsCreated, AddressOf BusinessDirectory_ListView_ControlsCreated + End If + End Sub + Private Sub aBusinessDirectory_OpenRTFDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenRTFDocument.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + Dim _FileType As String = GetFileType(_BusinessDirectory.FileData) + If _FileType = ".rtf" Or _FileType = ".RTF" Or _FileType = ".doc" Or _FileType = ".DOC" Or _FileType = ".docx" Or _FileType = ".DOCX" Then + Dim _OpenRTFDocument_PopUp As New OpenRTFDocument_PopUp(_onew.Session) + Dim _RichEditControl_New As New RichEditControl + _BusinessDirectory.Reload() + _RichEditControl_New.LoadDocument(GetFile(_BusinessDirectory.FileData)) + _OpenRTFDocument_PopUp.RTFText = _RichEditControl_New.RtfText + _OpenRTFDocument_PopUp.BusinessDirectory = _onew.GetObject(_BusinessDirectory) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OpenRTFDocument_PopUp_DetailView", True, _OpenRTFDocument_PopUp) + End If + End Sub + Private Sub aBusinessDirectory_OpenSpreadDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenSpreadDocument.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + Dim _FileType As String = GetFileType(_BusinessDirectory.FileData) + If UCase(_FileType) = ".XLS" Or UCase(_FileType) = ".XLSX" Then + Dim _OpenSpreadDocument_PopUp As New OpenSpreadDocument_Popup(_onew.Session) + _OpenSpreadDocument_PopUp.BusinessDirectory = _onew.GetObject(_BusinessDirectory) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OpenSpreadDocument_Popup_DetailView", True, _OpenSpreadDocument_PopUp) + End If + End Sub + Private Sub aOpenRTFDocument_InsertTable_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOpenRTFDocument_InsertTable.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User = _onew.GetObjectByKey(Of User)(_onew.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _RTFCopy As RTFCopy = _onew.FindObject(Of RTFCopy)(CriteriaOperator.Parse("UserCreated=?", _User)) + If _RTFCopy Is Nothing Then Throw New Exception("*Nincs tblzat elhelyezve a vglapon!") + Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate) + + Dim _DocPos As DocumentPosition = _RichEditControl.Document.CaretPosition + + _RichEditControl.Document.InsertHtmlText(_DocPos, _RTFCopy.RTFString) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aOpenRTFDocument_SaveBusinessDiretory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOpenRTFDocument_SaveBusinessDiretory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OpenRTFDocument_PopUp As OpenRTFDocument_PopUp = TryCast(View.SelectedObjects(0), OpenRTFDocument_PopUp) + Dim _BusinessDirectory As BusinessDirectory = _ocur.GetObject(_OpenRTFDocument_PopUp.BusinessDirectory) + + _RichEditControl.SaveDocument(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf", DocumentFormat.Rtf) + + _BusinessDirectory.FileData = LoadOtherFile(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf", New FileData(_ocur.Session)) + + _BusinessDirectory.FileCreated = GetFileCreatedDate(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf") + _BusinessDirectory.FileCreated = GetFileModifiedDate(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf") + + If IO.File.Exists(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf") Then _ + IO.File.Delete(IO.Path.GetTempPath + _BusinessDirectory.FileData.FileName.Remove(_BusinessDirectory.FileData.FileName.Length - 4, 4) + ".rtf") + + _ocur.CommitChanges() + _BusinessDirectory.Reload() + View.Close() + End Sub + Private Sub aOpenRTFDocument_SaveToCRM_Lead_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOpenRTFDocument_SaveToCRM_Lead.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OpenRTFDocument_PopUp As OpenRTFDocument_PopUp = TryCast(View.SelectedObjects(0), OpenRTFDocument_PopUp) + If _OpenRTFDocument_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + Dim _RichEditControlNew As New RichEditControl + _RichEditControlNew.RtfText = _OpenRTFDocument_PopUp.RTFText + + Dim _RTFDocumentsCreatorHeader As New RTFDocumentsCreatorHeader(_onew.Session) + Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControlNew.Document.Fields + Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControlNew.Document + For Each _ActTagString As DevExpress.XtraRichEdit.API.Native.Field In _Fields + Dim _RTFDocumentsCreatorRows As New RTFDocumentsCreatorRows(_onew.Session) + With _RTFDocumentsCreatorRows + .RTFDocumentsCreatorHeader = _RTFDocumentsCreatorHeader + .InfoString = _Document.GetText(_ActTagString.CodeRange) + _RTFDocumentsCreatorHeader.RTFDocumentsCreatorRows.Add(_RTFDocumentsCreatorRows) + End With + Next + _RTFDocumentsCreatorHeader.FileName = _OpenRTFDocument_PopUp.BusinessDirectory.FileData.FileName + + e.View = Application.CreateDetailView(_onew, "RTFDocumentsCreatorHeader_DetailView", False, _RTFDocumentsCreatorHeader) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aOpenRTFDocument_SaveToCRM_Lead_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOpenRTFDocument_SaveToCRM_Lead.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OpenRTFDocument_PopUp As OpenRTFDocument_PopUp = TryCast(View.SelectedObjects(0), OpenRTFDocument_PopUp) + If _OpenRTFDocument_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + Dim _RichEditControlNew As New RichEditControl + _RichEditControlNew.RtfText = _OpenRTFDocument_PopUp.RTFText + Dim _RTFDocumentsCreatorHeader As RTFDocumentsCreatorHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumentsCreatorHeader) + + Dim _FieldIndex As Int16 = 0 + Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControlNew.Document.Fields + + _RichEditControlNew.BeginUpdate() + + Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControlNew.Document + + _Document.BeginUpdate() + + For Each _RTFDocumentsCreatorRows As RTFDocumentsCreatorRows In _RTFDocumentsCreatorHeader.RTFDocumentsCreatorRows + Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(_FieldIndex) + field.ShowCodes = True + Dim _FieldCode As String = _Document.GetText(field.CodeRange) + Dim _FieldResult As String = _RTFDocumentsCreatorRows.ValueString + Dim _FieldPosition As DocumentPosition = field.Range.Start + _Document.Delete(field.Range) + _Document.InsertText(_FieldPosition, _FieldResult) + Next + _Document.EndUpdate() + _RichEditControlNew.EndUpdate() + + Dim _FilePath As String = System.IO.Path.GetTempPath + Dim _FileName As String = "" + Select Case _RTFDocumentsCreatorHeader.RTFExportFileType + Case eRTFExportFileType.ePDF + _FileName = _RTFDocumentsCreatorHeader.FileName + ".pdf" + _RichEditControlNew.ExportToPdf(_FilePath + _FileName) + Case eRTFExportFileType.eRTF + _FileName = _RTFDocumentsCreatorHeader.FileName + ".rtf" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.Rtf) + Case eRTFExportFileType.eWord + _FileName = _RTFDocumentsCreatorHeader.FileName + ".doc" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.Doc) + Case eRTFExportFileType.eWordXDoc + _FileName = _RTFDocumentsCreatorHeader.FileName + ".docx" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.WordML) + End Select + + If System.IO.File.Exists(_FilePath + _FileName) Then + Dim _CRM_LeadsDocumentation As New CRM_LeadsDocumentation(_ocur.Session) + With _CRM_LeadsDocumentation + .CRM_Leads = _ocur.GetObject(_OpenRTFDocument_PopUp.CRM_Opportunities.CRM_Leads) + .File = LoadOtherFile(_FilePath + _FileName, New DevExpress.Persistent.BaseImpl.FileData(_ocur.Session)) + .FileCreated = GetFileCreatedDate(_FilePath + _FileName) + .FileModified = GetFileModifiedDate(_FilePath + _FileName) + .ShortName = .File.FileName + .Status = eProductsDocumentationStatus.ePublic + End With + + System.IO.File.Delete(_FilePath + _FileName) + End If + + _ocur.CommitChanges() + View.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aOpenRTFDocument_InsertDocVariable_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOpenRTFDocument_InsertDocVariable.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RTFDocumanetsHandler_DocVariable_PopUp As New RTFDocumanetsHandler_DocVariable_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "RTFDocumanetsHandler_DocVariable_PopUp_DetailView", False, _RTFDocumanetsHandler_DocVariable_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aOpenRTFDocument_InsertDocVariable_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOpenRTFDocument_InsertDocVariable.Execute + Try + Dim _RTFDocumanetsHandler_DocVariable_PopUp As RTFDocumanetsHandler_DocVariable_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumanetsHandler_DocVariable_PopUp) + _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub BusinessDirectory_ListView_ControlsCreated(sender As Object, e As EventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _TreeListEditor As TreeListEditor = CType((CType(View, DevExpress.ExpressApp.ListView)).Editor, TreeListEditor) + Dim _TreeList As TreeList = _TreeListEditor.TreeList + + AddHandler _TreeList.FilterNode, AddressOf _TreeList_FilterNode + End Sub + Private Sub _TreeList_FilterNode(sender As Object, e As FilterNodeEventArgs) + e.Handled = True + If View Is Nothing Then Exit Sub + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ObjectTreeListNode As ObjectTreeListNode = TryCast(e.Node, ObjectTreeListNode) + Dim _BusinessDirectory As BusinessDirectory = TryCast(_ObjectTreeListNode.Object, BusinessDirectory) + If _BusinessDirectory IsNot Nothing Then + Dim _BusinessDirectory_Roles As BusinessDirectory_Roles = _ocur.FindObject(Of BusinessDirectory_Roles)(CriteriaOperator.Parse("BusinessDirectory=?", _BusinessDirectory)) + If _BusinessDirectory_Roles IsNot Nothing Then + If SecuritySystemHelper.IsUserInRoleCurrentUser(_BusinessDirectory_Roles.Role.Name) Then + _ObjectTreeListNode.Visible = False + End If + End If + End If + End Sub +#Region "Other Functions and Subs" + Private Function GetFileType(_FileData As FileData) As String + Dim _FileExt As String = "" + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _FileData.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _FileData.SaveToStream(_Stream) + _Stream.Close() + + _FileExt = System.IO.Path.GetExtension(_FilePath) + + If IO.File.Exists(_FilePath) Then IO.File.Delete(_FilePath) + + Return _FileExt + End Function + Private Function GetFile(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData) As String + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _DocumentFile.SaveToStream(_Stream) + _Stream.Close() + + Return _FilePath + End Function + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + Private Sub _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _OpenSpreadDocument_PopUp As OpenSpreadDocument_Popup = TryCast(View.SelectedObjects(0), OpenSpreadDocument_Popup) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _SpreadUserControl As SpreadUserControl = TryCast(_ItemControl, SpreadUserControl) + + _SpreadsheetControl = TryCast(_ItemControl, SpreadUserControl).SpreadsheetControl1 + + _ISpreadsheetCommandFactoryService = _SpreadsheetControl.GetService(Of ISpreadsheetCommandFactoryService)() + _SpreadsheetControl.ReplaceService(Of ISpreadsheetCommandFactoryService)(New CustomCommandFactoryServise(_ISpreadsheetCommandFactoryService, _SpreadsheetControl, View)) + + '// IDE KELL !!! Itt mr van SPREAD !! + + If _OpenSpreadDocument_PopUp IsNot Nothing Then + If _OpenSpreadDocument_PopUp.BusinessDirectory IsNot Nothing Then + If _OpenSpreadDocument_PopUp.BusinessDirectory.FileData IsNot Nothing Then + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _OpenSpreadDocument_PopUp.BusinessDirectory.FileData.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _OpenSpreadDocument_PopUp.BusinessDirectory.FileData.SaveToStream(_Stream) + _Stream.Close() + + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _StreamFile.Close() + End If + End If + End If + End Sub + + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + Private Function GetFileCreatedDate(_ActFile As String) As Date + Return System.IO.File.GetCreationTime(_ActFile) + End Function + Private Function GetFileModifiedDate(_ActFile As String) As Date + Return System.IO.File.GetLastAccessTime(_ActFile) + End Function +#End Region + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/PopUp/RTFDocumanetsHandler_DocVariable_PopUp.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/PopUp/RTFDocumanetsHandler_DocVariable_PopUp.vb new file mode 100644 index 0000000..5142235 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/PopUp/RTFDocumanetsHandler_DocVariable_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class RTFDocumanetsHandler_DocVariable_PopUp + Inherits BaseObject + + Private _DocVariableString As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property DocVariableString As String + Get + Return _DocVariableString + End Get + Set(value As String) + SetPropertyValue("DocVariableString", _DocVariableString, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.Designer.vb new file mode 100644 index 0000000..e4aaba6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.Designer.vb @@ -0,0 +1,71 @@ +Partial Class RTFDocumentsHandlerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRFTDocuments_CreateBusinessDirectoryDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRTFDocuments_InsertRTFDocVariable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRFTDocuments_CreateBusinessDirectoryDocument + ' + Me.aRFTDocuments_CreateBusinessDirectoryDocument.AcceptButtonCaption = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.CancelButtonCaption = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.Caption = "aRFTDocuments_CreateBusinessDirectoryDocument" + Me.aRFTDocuments_CreateBusinessDirectoryDocument.ConfirmationMessage = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.Id = "aRFTDocuments_CreateBusinessDirectoryDocument" + Me.aRFTDocuments_CreateBusinessDirectoryDocument.ImageName = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.Shortcut = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.Tag = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.TargetObjectsCriteria = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.TargetObjectType = GetType(SISBusiness.[Module].RTFDocumentsHandler) + Me.aRFTDocuments_CreateBusinessDirectoryDocument.TargetViewId = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aRFTDocuments_CreateBusinessDirectoryDocument.ToolTip = Nothing + Me.aRFTDocuments_CreateBusinessDirectoryDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aRTFDocuments_InsertRTFDocVariable + ' + Me.aRTFDocuments_InsertRTFDocVariable.AcceptButtonCaption = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.CancelButtonCaption = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.Caption = "aRTFDocuments_InsertRTFDocVariable" + Me.aRTFDocuments_InsertRTFDocVariable.ConfirmationMessage = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.Id = "aRTFDocuments_InsertRTFDocVariable" + Me.aRTFDocuments_InsertRTFDocVariable.ImageName = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.Shortcut = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.Tag = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.TargetObjectsCriteria = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.TargetObjectType = GetType(SISBusiness.[Module].RTFDocumentsHandler) + Me.aRTFDocuments_InsertRTFDocVariable.TargetViewId = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aRTFDocuments_InsertRTFDocVariable.ToolTip = Nothing + Me.aRTFDocuments_InsertRTFDocVariable.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aRFTDocuments_CreateBusinessDirectoryDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRTFDocuments_InsertRTFDocVariable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.resx new file mode 100644 index 0000000..044fe76 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 412, 140 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.vb new file mode 100644 index 0000000..e818b6a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RTFDocumentsHandler/RTFDocumentsHandlerVC.vb @@ -0,0 +1,167 @@ +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.XtraRichEdit.API.Native +Imports DevExpress.XtraRichEdit + +Public Class RTFDocumentsHandlerVC + Inherits SISBusiness.Module.RTFDocumentsHandlerVC + + Private _RichEditControl As RichEditControl + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "RTFDocumentsHandler_DetailView" Then + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _RichEditContolViewItem As ViewItem = _DetailView.FindItem("DocumentBody") + If _RichEditContolViewItem IsNot Nothing Then + AddHandler _RichEditContolViewItem.ControlCreated, AddressOf RichEditContolViewItem_ControlCreated + End If + End If + End Sub + Private Sub aRFTDocuments_CreateBusinessDirectoryDocument_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRFTDocuments_CreateBusinessDirectoryDocument.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + Dim _RichEditControlNew As New RichEditControl + _RichEditControlNew.RtfText = _RTFDocumentsHandler.DocumentBody + + Dim _RTFDocumentsCreatorHeader As New RTFDocumentsCreatorHeader(_onew.Session) + Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControlNew.Document.Fields + Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControlNew.Document + For Each _ActTagString As DevExpress.XtraRichEdit.API.Native.Field In _Fields + Dim _RTFDocumentsCreatorRows As New RTFDocumentsCreatorRows(_onew.Session) + With _RTFDocumentsCreatorRows + .RTFDocumentsCreatorHeader = _RTFDocumentsCreatorHeader + .InfoString = _Document.GetText(_ActTagString.CodeRange) + _RTFDocumentsCreatorHeader.RTFDocumentsCreatorRows.Add(_RTFDocumentsCreatorRows) + End With + Next + _RTFDocumentsCreatorHeader.FileName = _RTFDocumentsHandler.ShortName + + e.View = Application.CreateDetailView(_onew, "RTFDocumentsCreatorHeader_DetailView", False, _RTFDocumentsCreatorHeader) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aRFTDocuments_CreateBusinessDirectoryDocument_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRFTDocuments_CreateBusinessDirectoryDocument.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + Dim _RichEditControlNew As New RichEditControl + _RichEditControlNew.RtfText = _RTFDocumentsHandler.DocumentBody + Dim _RTFDocumentsCreatorHeader As RTFDocumentsCreatorHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumentsCreatorHeader) + + Dim _FieldIndex As Int16 = 0 + Dim _Fields As DevExpress.XtraRichEdit.API.Native.FieldCollection = _RichEditControlNew.Document.Fields + + _RichEditControlNew.BeginUpdate() + + Dim _Document As DevExpress.XtraRichEdit.API.Native.Document = _RichEditControlNew.Document + + _Document.BeginUpdate() + + For Each _RTFDocumentsCreatorRows As RTFDocumentsCreatorRows In _RTFDocumentsCreatorHeader.RTFDocumentsCreatorRows + Dim field As DevExpress.XtraRichEdit.API.Native.Field = _Fields(_FieldIndex) + field.ShowCodes = True + Dim _FieldCode As String = _Document.GetText(field.CodeRange) + Dim _FieldResult As String = _RTFDocumentsCreatorRows.ValueString + Dim _FieldPosition As DocumentPosition = field.Range.Start + _Document.Delete(field.Range) + _Document.InsertText(_FieldPosition, _FieldResult) + Next + _Document.EndUpdate() + _RichEditControlNew.EndUpdate() + + Dim _FilePath As String = System.IO.Path.GetTempPath + Dim _FileName As String + Select Case _RTFDocumentsCreatorHeader.RTFExportFileType + Case eRTFExportFileType.ePDF + _FileName = _RTFDocumentsCreatorHeader.FileName + ".pdf" + _RichEditControlNew.ExportToPdf(_FilePath + _FileName) + Case eRTFExportFileType.eRTF + _FileName = _RTFDocumentsCreatorHeader.FileName + ".rtf" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.Rtf) + Case eRTFExportFileType.eWord + _FileName = _RTFDocumentsCreatorHeader.FileName + ".doc" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.Doc) + Case eRTFExportFileType.eWordXDoc + _FileName = _RTFDocumentsCreatorHeader.FileName + ".docx" + _RichEditControlNew.SaveDocument(_FilePath + _FileName, DocumentFormat.WordML) + End Select + + If System.IO.File.Exists(_FilePath + _FileName) Then + Dim _BusinessDirectory As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory + _BusinessDirectory.BusinessDirectory_Parent = _ocur.GetObject(_RTFDocumentsCreatorHeader.BusinessDirectory) + _BusinessDirectory.IsFolder = False + _BusinessDirectory.FileData = LoadOtherFile(_FilePath + _FileName, New DevExpress.Persistent.BaseImpl.FileData(_ocur.Session)) + _BusinessDirectory.FileCreated = GetFileCreatedDate(_FilePath + _FileName) + _BusinessDirectory.FileModified = GetFileModifiedDate(_FilePath + _FileName) + End With + + System.IO.File.Delete(_FilePath + _FileName) + End If + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aRTFDocuments_InsertRTFDocVariable_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRTFDocuments_InsertRTFDocVariable.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RTFDocumanetsHandler_DocVariable_PopUp As New RTFDocumanetsHandler_DocVariable_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "RTFDocumanetsHandler_DocVariable_PopUp_DetailView", False, _RTFDocumanetsHandler_DocVariable_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aRTFDocuments_InsertRTFDocVariable_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRTFDocuments_InsertRTFDocVariable.Execute + Try + Dim _RTFDocumanetsHandler_DocVariable_PopUp As RTFDocumanetsHandler_DocVariable_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumanetsHandler_DocVariable_PopUp) + _RichEditControl.Document.Fields.Add(_RichEditControl.Document.CaretPosition, "DOCVARIABLE " + _RTFDocumanetsHandler_DocVariable_PopUp.DocVariableString) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub RichEditContolViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _RichEditUserControl As RichEditUserControl = TryCast(_ItemControl, RichEditUserControl) + _RichEditControl = TryCast(_ItemControl, RichEditUserControl).RichEditControl + End Sub + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As DevExpress.Persistent.BaseImpl.FileData) As DevExpress.Persistent.BaseImpl.FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + Private Function GetFileCreatedDate(_ActFile As String) As Date + Return System.IO.File.GetCreationTime(_ActFile) + End Function + Private Function GetFileModifiedDate(_ActFile As String) As Date + Return System.IO.File.GetLastAccessTime(_ActFile) + End Function +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditor.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditor.vb new file mode 100644 index 0000000..8fe72c9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditor.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum ePermissionType + Allow = 1 + Deny = 0 + NotSet = -1 +End Enum + _ + _ +Public Class PermissionMatrix + Inherits BaseObject + Private _Role As Role + Private _ObjectType As String + Private _IsCreate As ePermissionType = -1 + Private _IsDelete As ePermissionType = -1 + Private _IsWrite As ePermissionType = -1 + Private _IsRead As ePermissionType = -1 + Private _IsNavigate As ePermissionType = -1 + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Role As Role + Get + Return _Role + End Get + Set(ByVal value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property + _ + Property ObjectType As String + Get + Return _ObjectType + End Get + Set(ByVal value As String) + SetPropertyValue("ObjectType", _ObjectType, value) + End Set + End Property + Property IsCreate As ePermissionType + Get + Return _IsCreate + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsCreate", _IsCreate, value) + End Set + End Property + Property IsDelete As ePermissionType + Get + Return _IsDelete + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsDelete", _IsDelete, value) + End Set + End Property + Property IsWrite As ePermissionType + Get + Return _IsWrite + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsWrite", _IsWrite, value) + End Set + End Property + Property IsRead As ePermissionType + Get + Return _IsRead + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsRead", _IsRead, value) + End Set + End Property + Property IsNavigate As ePermissionType + Get + Return _IsNavigate + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsNavigate", _IsNavigate, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.Designer.vb new file mode 100644 index 0000000..290e2f7 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.Designer.vb @@ -0,0 +1,99 @@ +Partial Class CustomRoleEditorVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCustomRoleLoad = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomRoleSave = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomRoleGroupSetUp = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateCustomRoleObjectTypes = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCustomRoleLoad + ' + Me.aCustomRoleLoad.Caption = "Custom Role Load" + Me.aCustomRoleLoad.ConfirmationMessage = Nothing + Me.aCustomRoleLoad.Id = "aCustomRoleLoad" + Me.aCustomRoleLoad.ImageName = Nothing + Me.aCustomRoleLoad.Shortcut = Nothing + Me.aCustomRoleLoad.Tag = Nothing + Me.aCustomRoleLoad.TargetObjectsCriteria = Nothing + Me.aCustomRoleLoad.TargetViewId = "PermissionMatrix_ListView" + Me.aCustomRoleLoad.ToolTip = Nothing + Me.aCustomRoleLoad.TypeOfView = Nothing + ' + 'aCustomRoleSave + ' + Me.aCustomRoleSave.Caption = "Custom Role Save" + Me.aCustomRoleSave.ConfirmationMessage = Nothing + Me.aCustomRoleSave.Id = "aCustomRoleSave" + Me.aCustomRoleSave.ImageName = Nothing + Me.aCustomRoleSave.Shortcut = Nothing + Me.aCustomRoleSave.Tag = Nothing + Me.aCustomRoleSave.TargetObjectsCriteria = Nothing + Me.aCustomRoleSave.TargetViewId = "PermissionMatrix_ListView" + Me.aCustomRoleSave.ToolTip = Nothing + Me.aCustomRoleSave.TypeOfView = Nothing + ' + 'aCustomRoleGroupSetUp + ' + Me.aCustomRoleGroupSetUp.AcceptButtonCaption = Nothing + Me.aCustomRoleGroupSetUp.CancelButtonCaption = Nothing + Me.aCustomRoleGroupSetUp.Caption = "Custom Role Group SetUp" + Me.aCustomRoleGroupSetUp.Category = "ObjectsCreation" + Me.aCustomRoleGroupSetUp.ConfirmationMessage = Nothing + Me.aCustomRoleGroupSetUp.Id = "aCustomRoleGroupSetUp" + Me.aCustomRoleGroupSetUp.ImageName = Nothing + Me.aCustomRoleGroupSetUp.Shortcut = Nothing + Me.aCustomRoleGroupSetUp.Tag = Nothing + Me.aCustomRoleGroupSetUp.TargetObjectsCriteria = Nothing + Me.aCustomRoleGroupSetUp.TargetViewId = "PermissionMatrix_ListView" + Me.aCustomRoleGroupSetUp.ToolTip = Nothing + Me.aCustomRoleGroupSetUp.TypeOfView = Nothing + ' + 'aCreateCustomRoleObjectTypes + ' + Me.aCreateCustomRoleObjectTypes.AcceptButtonCaption = Nothing + Me.aCreateCustomRoleObjectTypes.CancelButtonCaption = Nothing + Me.aCreateCustomRoleObjectTypes.Caption = "Create Custom Role ObjectTypes" + Me.aCreateCustomRoleObjectTypes.Category = "ObjectsCreation" + Me.aCreateCustomRoleObjectTypes.ConfirmationMessage = Nothing + Me.aCreateCustomRoleObjectTypes.Id = "aCreateCustomRoleObjectTypes" + Me.aCreateCustomRoleObjectTypes.ImageName = Nothing + Me.aCreateCustomRoleObjectTypes.Shortcut = Nothing + Me.aCreateCustomRoleObjectTypes.Tag = Nothing + Me.aCreateCustomRoleObjectTypes.TargetObjectsCriteria = Nothing + Me.aCreateCustomRoleObjectTypes.TargetViewId = "PermissionMatrix_ListView" + Me.aCreateCustomRoleObjectTypes.ToolTip = Nothing + Me.aCreateCustomRoleObjectTypes.TypeOfView = Nothing + + End Sub + Friend WithEvents aCustomRoleLoad As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomRoleSave As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomRoleGroupSetUp As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateCustomRoleObjectTypes As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.resx b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.resx new file mode 100644 index 0000000..4905510 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 476, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb new file mode 100644 index 0000000..2c2c34e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/CustomRoleEditorVC.vb @@ -0,0 +1,495 @@ +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 System.IO +Imports System.Security +Imports System.Xml + +Imports System.Security.Principal + +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Updating +Imports DevExpress.ExpressApp.Win.Editors +Imports SISBusiness.Module + + +Public Class CustomRoleEditorVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + Protected _selection As ArrayList + Protected _noselect As Boolean = False + + Public Sub New() + MyBase.New() + _selection = New ArrayList() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + ''____________Tovbbgondolsig letltva!__________________________>>>> + 'Frame.GetController(Of CustomRoleEditorVC).aCustomRoleSave.Active.SetItemValue("", False) + ''____________Tovbbgondolsig letltva!__________________________<<< + + If View.Id = "PermissionMatrix_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed + End If + + '// Permission matrix belltsa Modelbl + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "PermissionMatrix_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + + RemoveHandler View.SelectionChanged, AddressOf PermissionMatrix_selection_changed + End If + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + 'If View.Id = "PermissionMatrix_ListView" Then + ' Dim _ListView As ListView = CType(View, ListView) + ' _GridListEditor = TryCast(View.Editor, GridListEditor) + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "IsCreate" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "IsRead" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "IsWrite" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "IsNavigate" And _ + ' _GridListEditor.GridView.Columns(i).FieldName <> "IsDelete" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + ' End If + 'End If + End Sub + Sub PermissionMatrix_selection_changed(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If View.Id = "PermissionMatrix_ListView" Then + If _noselect = False Then + _selection.Clear() + For Each _PermissionMatrix As PermissionMatrix In View.SelectedObjects + _selection.Add(_PermissionMatrix) + Next + End If + End If + End Sub + Sub CreatePermissionMatrix(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(ObjectSpace.Session, CriteriaOperator.Parse("Oid=Oid")) + Dim _Role_Collection As XPCollection(Of Role) = New XPCollection(Of Role)(ObjectSpace.Session, CriteriaOperator.Parse("Oid=Oid")) + + Dim _Type As Type + Dim _Role As Role + Dim _Permission As IPermission + Dim _XMLDocument As New XmlDocument + Dim _XmlNodes As Xml.XmlNodeList + Dim _XmlNode As Xml.XmlNode + Dim _XmlNode1 As Xml.XmlNode + Dim i As Long + Dim _PermissionMatrix As PermissionMatrix + Dim _OT As String + ObjectSpace.Delete(_PermissionMatrix_Collection) + + For Each _Role In _Role_Collection + + + For Each _Permission In _Role.Permissions + _XMLDocument.LoadXml(_Permission.ToXml.ToString) + _XmlNodes = _XMLDocument.SelectNodes("IPermission") + For Each _XmlNode In _XmlNodes + i = 0 + For Each _XmlNode1 In _XmlNode.SelectNodes("ParticularAccessItem") + If i = 0 Then + + _PermissionMatrix = ObjectSpace.CreateObject(Of PermissionMatrix)() + _PermissionMatrix.Role = _Role + + _OT = Replace(_XmlNode1.Attributes("objectType").Value.ToString, "SISBusiness.Module.", "") + _PermissionMatrix.ObjectType = _OT + End If + If _XmlNode1.Attributes("access").Value.ToString = "Create" Then + If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsCreate = ePermissionType.Allow + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsCreate = ePermissionType.Deny + End If + If _XmlNode1.Attributes("access").Value.ToString = "Read" Then + If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsRead = ePermissionType.Allow + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsRead = ePermissionType.Deny + End If + If _XmlNode1.Attributes("access").Value.ToString = "Write" Then + If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsWrite = ePermissionType.Allow + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsWrite = ePermissionType.Deny + End If + If _XmlNode1.Attributes("access").Value.ToString = "Delete" Then + If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsDelete = ePermissionType.Allow + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsDelete = ePermissionType.Deny + End If + If _XmlNode1.Attributes("access").Value.ToString = "Navigate" Then + If _XmlNode1.Attributes("modifier").Value.ToString = "Allow" Then _PermissionMatrix.IsNavigate = ePermissionType.Allow + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _PermissionMatrix.IsNavigate = ePermissionType.Deny + End If + i += 1 + Next + _PermissionMatrix.Save() + Next + Next + Next + ObjectSpace.CommitChanges() + View.Refresh() + End Sub + Private Sub aCustomRoleLoad_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCustomRoleLoad.Execute + Me.CreatePermissionMatrix(View.ObjectSpace) + End Sub + Private Sub aCustomRoleSave_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCustomRoleSave.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + ' Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(_ocur.Session, CriteriaOperator.Parse("IsCreate=? AND IsDelete=? AND IsNavigate=? AND IsRead=? AND IsWrite=?", _ + ' ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet, ePermissionType.NotSet)) + Dim _ObjectName As String = "" + Dim _PermissionMatrix_Collection As XPCollection(Of PermissionMatrix) = New XPCollection(Of PermissionMatrix)(_ocur.Session, CriteriaOperator.Parse("1=1")) + Dim _Role_Collection As XPCollection(Of Role) = New XPCollection(Of Role)(_ocur.Session, CriteriaOperator.Parse("Oid=Oid")) + Dim _PersistentPermission_Collection As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("1=1")) + + For Each _Role As Role In _Role_Collection + For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection + If _PermissionMatrix.Role Is _Role Then + Dim _PersistentPermissionXPColl As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _Role)) + For Each _PersistentPermission As PersistentPermission In _PersistentPermissionXPColl + If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then + _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString + End If + If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then + _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName + End If + + Dim _ObjectNameArry As String() = _ObjectName.Split(New [Char]() {"."c}) + If _ObjectNameArry(_ObjectNameArry.Length - 2) = "Win" Then + _ObjectName = _ObjectNameArry(_ObjectNameArry.Length - 2) & "." & _ObjectNameArry(_ObjectNameArry.Length - 1) + End If + + If _ObjectName <> _PermissionMatrix.ObjectType And _ObjectNameArry(_ObjectNameArry.Length - 1) <> _PermissionMatrix.ObjectType Then + If _PermissionMatrix.IsCreate <> ePermissionType.NotSet And _ + _PermissionMatrix.IsDelete <> ePermissionType.NotSet And _ + _PermissionMatrix.IsNavigate <> ePermissionType.NotSet And _ + _PermissionMatrix.IsRead <> ePermissionType.NotSet And _ + _PermissionMatrix.IsWrite <> ePermissionType.NotSet Then + + Dim _ActRole As Role = _PermissionMatrix.Role + Dim _ActPersistentPermission As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _PermissionMatrix.Role)) + Dim _ObjectAccessPermission As New ObjectAccessPermission + _ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_PermissionMatrix.ObjectType) + Select Case _PermissionMatrix.IsRead + Case ePermissionType.Allow + _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow + Case ePermissionType.Deny + _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny + End Select + Select Case _PermissionMatrix.IsWrite + Case ePermissionType.Allow + _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow + Case ePermissionType.Deny + _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny + End Select + Select Case _PermissionMatrix.IsNavigate + Case ePermissionType.Allow + _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow + Case ePermissionType.Deny + _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny + End Select + Select Case _PermissionMatrix.IsDelete + Case ePermissionType.Allow + _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow + Case ePermissionType.Deny + _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny + End Select + Select Case _PermissionMatrix.IsCreate + Case ePermissionType.Allow + _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow + Case ePermissionType.Deny + _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny + End Select + + _ActRole.AddPermission(_ObjectAccessPermission) + End If + End If + Next + End If + Next + Next + 'Dim _ObjectName As String = "" + 'Dim _Needpermission As Boolean = False + 'For Each _ActRole As Role In _Role_Collection + ' For Each _MatrixElement As PermissionMatrix In _PermissionMatrix_Collection + ' If Equals(_ActRole, _MatrixElement.Role) Then + + ' If _MatrixElement.IsCreate <> ePermissionType.NotSet And _ + ' _MatrixElement.IsDelete <> ePermissionType.NotSet And _ + ' _MatrixElement.IsNavigate <> ePermissionType.NotSet And _ + ' _MatrixElement.IsRead <> ePermissionType.NotSet And _ + ' _MatrixElement.IsWrite <> ePermissionType.NotSet Then + ' Dim _ObjectAccessPermission As New ObjectAccessPermission + + ' Dim _ActPersistentPermission As XPCollection = _ocur.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("Role=?", _MatrixElement.Role)) + ' If _ActPersistentPermission.Count > 0 Then + ' For Each _PersistentPermission As PersistentPermission In _ActPersistentPermission + ' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString + ' End If + ' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName + ' End If + ' If _ObjectName <> _MatrixElement.ObjectType Then + ' _Needpermission = True + ' End If + ' Next + ' End If + ' If _Needpermission Then + ' _ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_MatrixElement.ObjectType) + ' Select Case _MatrixElement.IsRead + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _MatrixElement.IsWrite + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _MatrixElement.IsNavigate + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _MatrixElement.IsDelete + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _MatrixElement.IsCreate + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny + ' End Select + + ' _ActRole.AddPermission(_ObjectAccessPermission) + ' _Needpermission = False + ' End If + ' End If + ' End If + ' Next + + 'Next + + + 'Dim _NotExistPerimissons As New XPCollection + 'For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection + ' For Each _PersistentPermission As PersistentPermission In _PersistentPermission_Collection + ' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString + ' End If + ' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName + ' End If + + ' Next + 'Next + + + 'For Each _PermissionMatrix As PermissionMatrix In _PermissionMatrix_Collection + ' For Each _PersistentPermission As PersistentPermission In _PersistentPermission_Collection + ' If TryCast(_PersistentPermission.Permission, EditModelPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, EditModelPermission).GetType.ToString + ' End If + ' If TryCast(_PersistentPermission.Permission, ObjectAccessPermission) IsNot Nothing Then + ' _ObjectName = TryCast(_PersistentPermission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName + ' End If + + ' If Not Equals(_PersistentPermission.Role, _PermissionMatrix.Role) Then + + ' If _PermissionMatrix.IsCreate <> ePermissionType.NotSet And _ + ' _PermissionMatrix.IsDelete <> ePermissionType.NotSet And _ + ' _PermissionMatrix.IsNavigate <> ePermissionType.NotSet And _ + ' _PermissionMatrix.IsRead <> ePermissionType.NotSet And _ + ' _PermissionMatrix.IsWrite <> ePermissionType.NotSet Then + + ' Dim _ObjectAccessPermission As New ObjectAccessPermission + ' Dim _Role As Role = _PermissionMatrix.Role + ' _ObjectAccessPermission.ObjectType = ReflectionHelper.FindType(_PermissionMatrix.ObjectType) + ' Select Case _PermissionMatrix.IsRead + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.ReadAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _PermissionMatrix.IsWrite + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.WriteAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _PermissionMatrix.IsNavigate + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.NavigateAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _PermissionMatrix.IsDelete + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.DeleteAccess = ObjectAccessModifier.Deny + ' End Select + ' Select Case _PermissionMatrix.IsCreate + ' Case ePermissionType.Allow + ' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Allow + ' Case ePermissionType.Deny + ' _ObjectAccessPermission.CreateAccess = ObjectAccessModifier.Deny + ' End Select + + ' '_Role.AddPermission(_ObjectAccessPermission) + ' End If + ' End If + ' Next + 'Next + + End Sub + Private Sub aCustomRoleGroupSetUp_Cancel(sender As Object, e As System.EventArgs) Handles aCustomRoleGroupSetUp.Cancel + _noselect = False + End Sub + Private Sub aCustomRoleGroupSetUp_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomRoleGroupSetUp.CustomizePopupWindowParams + _noselect = True + If _selection.Count > 0 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomRoleGroupSetUpPopUp As CustomRoleGroupSetUpPopUp = _onew.CreateObject(Of CustomRoleGroupSetUpPopUp)() + + e.View = Application.CreateDetailView(_onew, "CustomRoleGroupSetUpPopUp_DetailView", False, _CustomRoleGroupSetUpPopUp) + Else + _noselect = False + '_______________________________________TESZT MIATT____________________>>>> + Throw New Exception("*Nincs kivlasztott sor(ok)!") + '_______________________________________TESZT MIATT____________________<<<< + + End If + End Sub + Private Sub aCustomRoleGroupSetUp_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomRoleGroupSetUp.Execute + Dim _ocur As Xpo.XPObjectSpace = e.PopupWindow.View.ObjectSpace + Dim _CustomRoleGroupSetUpPopUp As CustomRoleGroupSetUpPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomRoleGroupSetUpPopUp) + Dim _IsCreate As ePermissionType = _CustomRoleGroupSetUpPopUp.IsCreate + Dim _IsDelete As ePermissionType = _CustomRoleGroupSetUpPopUp.IsDelete + Dim _IsWrite As ePermissionType = _CustomRoleGroupSetUpPopUp.IsWrite + Dim _IsRead As ePermissionType = _CustomRoleGroupSetUpPopUp.IsRead + Dim _IsNavigate As ePermissionType = _CustomRoleGroupSetUpPopUp.IsNavigate + + For Each _PermissionMatrix As PermissionMatrix In _selection + _PermissionMatrix.IsCreate = _IsCreate + _PermissionMatrix.IsDelete = _IsDelete + _PermissionMatrix.IsWrite = _IsWrite + _PermissionMatrix.IsRead = _IsRead + _PermissionMatrix.IsNavigate = _IsNavigate + + _PermissionMatrix.Save() + Next + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub aCreateCustomRoleObjectTypes_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateCustomRoleObjectTypes.CustomizePopupWindowParams + If View.SelectedObjects.Count > 0 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PermissionMatrix As PermissionMatrix = TryCast(View.SelectedObjects(0), PermissionMatrix) + Dim _CreateCustomRoleObjectTypes As CreateCustomRoleObjectTypes + Dim _FullObjectList As New ArrayList + Dim _ActobjectList As New ArrayList + Dim _CS As New CollectionSource(_onew, GetType(CreateCustomRoleObjectTypes)) + ' _CreateCustomRoleObjectTypes.Role = _onew.GetObject(_PermissionMatrix.Role) + Dim _PersistentPermission As XPCollection = _onew.CreateCollection(GetType(PersistentPermission), CriteriaOperator.Parse("1=1")) + + + For Each _Permission As PersistentPermission In _PersistentPermission + If TryCast(_Permission.Permission, ObjectAccessPermission) IsNot Nothing Then + _FullObjectList.Add(TryCast(_Permission.Permission, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName) + End If + If TryCast(_Permission.Permission, EditModelPermission) IsNot Nothing Then + _FullObjectList.Add(TryCast(_Permission.Permission, EditModelPermission).GetType.ToString) + End If + Next + + For Each _Permissions As IPermission In _PermissionMatrix.Role.Permissions + If TryCast(_Permissions, ObjectAccessPermission) IsNot Nothing Then + _ActobjectList.Add(_onew.GetObject(TryCast(_Permissions, ObjectAccessPermission).AccessItemList(0).ObjectTypeInfo.FullName)) + End If + If TryCast(_Permissions, EditModelPermission) IsNot Nothing Then + _ActobjectList.Add(_onew.GetObject(TryCast(_Permissions, EditModelPermission).GetType.ToString)) + End If + Next + + Dim _Exist As Boolean = False + For Each _s In _FullObjectList + For Each _sa In _ActobjectList + If _s = _sa Then + _Exist = True + Exit For + End If + Next + If Not _Exist Then + _CreateCustomRoleObjectTypes = _onew.CreateObject(Of CreateCustomRoleObjectTypes)() + _CreateCustomRoleObjectTypes.Role = _onew.GetObject(_PermissionMatrix.Role) + _CreateCustomRoleObjectTypes.MissingObjectType = _s + + _cs.add(_CreateCustomRoleObjectTypes) + End If + _Exist = False + Next + e.View = Application.CreateListView("CreateCustomRoleObjectTypes_ListView", _CS, False) + Else + '_______________________________________TESZT MIATT____________________>>>> + Throw New Exception("*Nincs kivlasztott sor!") + '_______________________________________TESZT MIATT____________________<<<< + End If + End Sub + Private Sub aCreateCustomRoleObjectTypes_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateCustomRoleObjectTypes.Execute + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + Dim _Role As Role = TryCast(View.SelectedObjects(0), PermissionMatrix).Role + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + For Each _CreateCustomRoleObjectTypes As CreateCustomRoleObjectTypes In e.PopupWindow.View.SelectedObjects + Dim _PermissionMatrix As PermissionMatrix = _ocur.CreateObject(Of PermissionMatrix)() + _PermissionMatrix.Role = _Role + _PermissionMatrix.ObjectType = _CreateCustomRoleObjectTypes.MissingObjectType + _PermissionMatrix.IsCreate = ePermissionType.NotSet + _PermissionMatrix.IsDelete = ePermissionType.NotSet + _PermissionMatrix.IsNavigate = ePermissionType.NotSet + _PermissionMatrix.IsRead = ePermissionType.NotSet + _PermissionMatrix.IsWrite = ePermissionType.NotSet + + _PermissionMatrix.Save() + Next + _ocur.CommitChanges() + Else + '_______________________________________TESZT MIATT____________________>>>> + Throw New Exception("*Legalbb egy sort ki kell vlasztani!") + '_______________________________________TESZT MIATT____________________<<<< + End If + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CreateCustomRoleObjectTypes.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CreateCustomRoleObjectTypes.vb new file mode 100644 index 0000000..a8b2404 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CreateCustomRoleObjectTypes.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CreateCustomRoleObjectTypes + Inherits BaseObject + + Private _Role As Role + Private _MissingObjectType As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Role As Role + Get + Return _Role + End Get + Set(ByVal value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property + Property MissingObjectType As String + Get + Return _MissingObjectType + End Get + Set(value As String) + SetPropertyValue("MissingObjectType", _MissingObjectType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CustomRoleGroupSetUpPopUp.vb b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CustomRoleGroupSetUpPopUp.vb new file mode 100644 index 0000000..fdc3275 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/GeneralObjects/RoleEditor/PopUp/CustomRoleGroupSetUpPopUp.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CustomRoleGroupSetUpPopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _IsCreate As ePermissionType = -1 + Private _IsDelete As ePermissionType = -1 + Private _IsWrite As ePermissionType = -1 + Private _IsRead As ePermissionType = -1 + Private _IsNavigate As ePermissionType = -1 + + Property IsCreate As ePermissionType + Get + Return _IsCreate + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsCreate", _IsCreate, value) + End Set + End Property + Property IsDelete As ePermissionType + Get + Return _IsDelete + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsDelete", _IsDelete, value) + End Set + End Property + Property IsWrite As ePermissionType + Get + Return _IsWrite + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsWrite", _IsWrite, value) + End Set + End Property + Property IsRead As ePermissionType + Get + Return _IsRead + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsRead", _IsRead, value) + End Set + End Property + Property IsNavigate As ePermissionType + Get + Return _IsNavigate + End Get + Set(ByVal value As ePermissionType) + SetPropertyValue("IsNavigate", _IsNavigate, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.Designer.vb new file mode 100644 index 0000000..493c67e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ViewHintController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.vb b/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.vb new file mode 100644 index 0000000..10d99fc --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Hints/ViewHintControllerVC.vb @@ -0,0 +1,66 @@ +Imports Microsoft.VisualBasic +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.Templates +Imports System.Windows.Forms +Imports DevExpress.Utils.Frames +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Model + +Partial Public Class ViewHintController + Inherits ViewController + Public Sub New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler Frame.GetController(Of WindowHintController)().HintPanelReady, AddressOf ViewHintController_HintPanelReady + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler Frame.GetController(Of WindowHintController)().HintPanelReady, AddressOf ViewHintController_HintPanelReady + End Sub + Private Sub ViewHintController_HintPanelReady(ByVal sender As Object, ByVal e As HintPanelReadyEventArgs) + + e.HintPanel.Text = "" + e.HintPanel.Visible = False + + If TryCast(View, DevExpress.ExpressApp.ListView) IsNot Nothing Then + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + Dim _IModelListView As IModelListView + Dim _IModelListViewExtender As IModelListViewExtender + + _IModelListView = _ListView.Model + _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender) + + If String.IsNullOrEmpty(_IModelListViewExtender.Hints) = False Then + e.HintPanel.Text = _IModelListViewExtender.Hints + e.HintPanel.Visible = True + End If + End If + + If TryCast(View, DevExpress.ExpressApp.DetailView) IsNot Nothing Then + Dim _DetailView As DevExpress.ExpressApp.DetailView = TryCast(View, DevExpress.ExpressApp.DetailView) + Dim _IModelDetailView As IModelDetailView + Dim _IModelDetailViewExtender As IModelDetailViewExtender + + _IModelDetailView = _DetailView.Model + _IModelDetailViewExtender = TryCast(_IModelDetailView, IModelDetailViewExtender) + + If String.IsNullOrEmpty(_IModelDetailViewExtender.Hints) = False Then + e.HintPanel.Text = _IModelDetailViewExtender.Hints + e.HintPanel.Visible = True + End If + End If + + + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.Designer.vb new file mode 100644 index 0000000..c6477fe --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class WindowHintController + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.vb b/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.vb new file mode 100644 index 0000000..70b51df --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Hints/WindowHintControllerWC.vb @@ -0,0 +1,63 @@ +Imports Microsoft.VisualBasic +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.Utils.Frames +Imports DevExpress.ExpressApp.Templates +Imports System.Windows.Forms + +Partial Public Class WindowHintController + Inherits WindowController + Private hintPanel_Renamed As NotePanelEx + Public Sub New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler Window.TemplateViewChanged, AddressOf Window_TemplateViewChanged + End Sub + Public ReadOnly Property HintPanel() As NotePanelEx + Get + Return hintPanel_Renamed + End Get + End Property + Private Sub Window_TemplateViewChanged(ByVal sender As Object, ByVal e As EventArgs) + If TypeOf Frame.Template Is IViewSiteTemplate Then + PlaceHintPanel() + End If + End Sub + Public Event HintPanelReady As EventHandler(Of HintPanelReadyEventArgs) + Private Sub PlaceHintPanel() + hintPanel_Renamed = New NotePanelEx() + hintPanel_Renamed.BackColor = System.Drawing.Color.LightGoldenrodYellow + hintPanel_Renamed.Dock = System.Windows.Forms.DockStyle.Bottom + hintPanel_Renamed.MinimumSize = New System.Drawing.Size(350, 33) + hintPanel_Renamed.Visible = False + Dim viewSiteControl As Control = TryCast((TryCast(Frame.Template, IViewSiteTemplate)).ViewSiteControl, Control) + viewSiteControl.Controls.Add(hintPanel_Renamed) + DoHintPanelReady(hintPanel_Renamed) + End Sub + Private Sub DoHintPanelReady(ByVal hintPanel As NotePanelEx) + RaiseEvent HintPanelReady(Me, New HintPanelReadyEventArgs(hintPanel)) + End Sub +End Class +Public Class HintPanelReadyEventArgs + Inherits EventArgs + Private hintPanel_Renamed As NotePanelEx + Public Sub New(ByVal hintPanel As NotePanelEx) + MyBase.New() + Me.hintPanel_Renamed = hintPanel + End Sub + Public ReadOnly Property HintPanel() As NotePanelEx + Get + Return hintPanel_Renamed + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/BaseImport.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/BaseImport.vb new file mode 100644 index 0000000..c9a1842 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/BaseImport.vb @@ -0,0 +1,1482 @@ +Imports System.Data.SqlClient +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.Persistent.BaseImpl + +Module BaseImport + + Public Sub Import_GLAccounts(ByVal _ID As Long, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + Dim dr_r As SqlDataReader + + Dim mSQL As String + Dim _Customers As Customers + Dim _GLRows As GLRows + Dim _GUID As Guid + Dim _GLAccounts As GLAccounts + Dim _PaymentOption As PaymentOption + + Dim _UniqueObjects As UniqueObjects + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _Controlling As Controlling + + + mSQL = "select Ügyfélszám=t2.CégAlany,t1.BizTipus,Bizonylatszám=isnull(t1.Bizonylatszám,''),t1.TD,t1.ED,t1.KD,t1.ÁFADátum," + mSQL = mSQL & " Árfolyam=isnull(t2.Árfolyam,1),IktatóSzám=isnull(t1.IktatóSzám,'')," + mSQL = mSQL & " S_Ügyfél=case when t1.BizTipus=0 then isnull(t6.Számlaszám,'') else isnull(t5.Számlaszám,'') end," + mSQL = mSQL & " t2.Storno,Megjegyzés=isnull(t1.Megjegyzés,''),Deviza=isnull(t1.Deviza,'')," + mSQL = mSQL & " ID_Dokument_Header=isnull(t2.ID_Dokument_Header,-1)," + + mSQL = mSQL & " FizetésiMód=isnull(t1.FizetésiMód,'')" + + mSQL = mSQL & " from sql_Cassa..vv_ÖsszLista t1 left join sql_Cassa..Folyó_Bizonylatok t2 on" + mSQL = mSQL & " t1.ID=t2.ID left join sql_Main..Ügyféltörzs t3 on" + mSQL = mSQL & " t2.CégAlany=t3.Ügyfélszám left join Ügyféltörzs_Mode t4 on" + mSQL = mSQL & " t3.Mode=t4.Mode left join sql_Cassa..Költségek t5 on" + mSQL = mSQL & " t4.KöltségIDIn=t5.ID left join sql_Cassa..Költségek t6 on" + mSQL = mSQL & " t4.KöltségIDOut=t6.ID" + + mSQL = mSQL & " Where t1.ID=" & _ID + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + _PaymentOption = _uow.FindObject(Of PaymentOption)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("FizetésiMód"))) + If _PaymentOption Is Nothing Then + _PaymentOption = New PaymentOption(_uow) + If UCase(dr_h("FizetésiMód")) = "KÉSZPÉNZ" Then + _PaymentOption.PayMode = ePayMode.InCash + _PaymentOption.PayDay = 0 + _PaymentOption.ShortName = dr_h("FizetésiMód") + _PaymentOption.Description = dr_h("FizetésiMód") + Else + _PaymentOption.PayMode = ePayMode.InTransfer + _PaymentOption.PayDay = 8 + _PaymentOption.ShortName = dr_h("FizetésiMód") + _PaymentOption.Description = dr_h("FizetésiMód") + End If + End If + _Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + If _Customers IsNot Nothing Then + + _GLAccounts = _uow.FindObject(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and DocumentNumber=?", _ + _CustomersFrom.Oid, _Customers.Oid, dr_h("BizTipus"), dr_h("Bizonylatszám"))) + If _GLAccounts Is Nothing Then _GLAccounts = New GLAccounts(_uow) + + _GLAccounts.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _GLAccounts.Customers = _Customers + _GLAccounts.PaymentOption = _PaymentOption + + _GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza"))) + If dr_h("Deviza") = "HUF" Then + _GLAccounts.CurrencyRate = 1 + _GLAccounts.CurrencyRateVAT() = 1 + Else + _GLAccounts.CurrencyRate = dr_h("Árfolyam") + _GLAccounts.CurrencyRateVAT() = dr_h("Árfolyam") + End If + '_GLAccounts.CustomerBankAccounts + _GLAccounts.DateCreated = dr_h("KD") + _GLAccounts.DateExecution = dr_h("TD") + _GLAccounts.DatePayment = dr_h("ED") + _GLAccounts.DocumentNumber = dr_h("Bizonylatszám") + _GLAccounts.GLDocumentType = eGLDocumentType.eGLAccount + _GLAccounts.IsEditable = False + _GLAccounts.IsStorno = dr_h("Storno") + _GLAccounts.NoteHeader = dr_h("Megjegyzés") + _GLAccounts.PartnerType = dr_h("BizTipus") + '_GLAccounts.PaymentOption + _GLAccounts.RegistryNumber = dr_h("IktatóSzám") + _GLAccounts.IsRegistry = False + + If dr_h("ID_Dokument_Header") > 0 Then + Dim _FS As FileStream + Dim _FilePath As String + + _FilePath = LoadFileFromSQL(dr_h("ID_Dokument_Header"), _ConnectionString) + If System.IO.File.Exists(_FilePath) Then + _FS = New FileStream(_FilePath, FileMode.Open) + + _GLAccounts.DocumentFile = New FileData(_uow) + _GLAccounts.DocumentFile.LoadFromStream(_FilePath, _FS) + _GLAccounts.DocumentFile.FileName = System.IO.Path.GetFileName(_FilePath) + + _FS.Close() + _FS = Nothing + End If + End If + + mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),t1.ÖsszegNetto,t1.ÖsszegNettoDeviza," + mSQL = mSQL & " t1.ÖsszegAFADeviza,t1.ÖsszegAFA," + mSQL = mSQL & " S_Költség=isnull(t3.Számlaszám,''),t1.Megjegyzés," + mSQL = mSQL & " S_ÁFA=case when t2.BizTipus=0 then isnull(t5.Számlaszám,'') else isnull(t6.Számlaszám,'') end," + + mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,'')," + mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,'')," + mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,'')," + mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,'')," + mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')" + + mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join sql_Cassa..Folyó_Bizonylatok t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID left join sql_Cassa..Költségek t3 on" + mSQL = mSQL & " t1.KöltségID=t3.ID left join sql_Cassa..VAT t4 on" + mSQL = mSQL & " t1.Áfahiv=t4.ShortName left join sql_Cassa..Költségek t5 on" + mSQL = mSQL & " t4.KöltségIDOut=t5.ID left join sql_Cassa..Költségek t6 on" + mSQL = mSQL & " t4.KöltségIDIn=t6.ID left join Munkaszám t20 on" + mSQL = mSQL & " t1.MunkaszámID=t20.ID left join Egyedi t21 on" + mSQL = mSQL & " t1.EgyediID=t21.ID left join RögzítőKód t22 on" + mSQL = mSQL & " t1.RögzítőKódID=t22.ID left join Költséghely t23 on" + mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on" + mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on" + mSQL = mSQL & " t1.ControllingID=t25.ID" + + mSQL = mSQL & " Where t1.ParentID=" & _ID + mSQL = mSQL & " order by t1.ID" + + cmd_r.CommandTimeout = 60 + cmd_r.Connection = conn_r + cmd_r.CommandType = CommandType.Text + cmd_r.CommandText = mSQL + conn_r.Open() + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLAccounts.Oid)) + _uow.Delete(_GLRows_Collection) + + If conn_r.State = ConnectionState.Open Then + dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult) + While dr_r.Read + _GUID = Guid.NewGuid + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + _GLRows.AmountDEV = dr_r("ÖsszegNettoDeviza") + _GLRows.AmountHUF = dr_r("ÖsszegNetto") + If LTrim(RTrim(dr_r("Bizonylatszám_P"))) = "" Then + _GLRows.ConnectInfo = _GLAccounts.DocumentNumber + Else + _GLRows.ConnectInfo = dr_r("Bizonylatszám_P") + End If + _GLRows.Controlling = Nothing + _GLRows.CostHolder = Nothing + _GLRows.CostPlace = Nothing + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_Költség"), _GLRows.GLHeader.DateExecution.Year)) + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_Költség"), _GLRows.GLHeader.DateExecution.Year)) + End If + + _GLRows.GLRowsGUID = _GUID + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.JobNumberObjects = Nothing + _GLRows.NoteRows = dr_r("Megjegyzés") + _GLRows.TransactionType = eTransactionType.eNotSet + _GLRows.UniqueObjects = Nothing + _GLRows.Customer = _GLAccounts.Customers + _GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv"))) + _GLRows.DateVAT = dr_h("ÁfaDátum") + + '-- Jelölőadatok beállítása + _UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Egyedi"))) + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + _JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Munkaszám"))) + If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects + _CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költséghely"))) + If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace + _CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költségviselő"))) + If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder + _Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Controlling"))) + If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling + + If dr_r("Áfahiv") <> "" Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + _GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv"))) + _GLRows.DateVAT = dr_h("ÁfaDátum") + _GLRows.AmountDEV = dr_r("ÖsszegAFADeviza") + _GLRows.AmountHUF = dr_r("ÖsszegAFA") + _GLRows.ConnectInfo = dr_r("Bizonylatszám_P") + _GLRows.Controlling = Nothing + _GLRows.CostHolder = Nothing + _GLRows.CostPlace = Nothing + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_ÁFA"), _GLRows.GLHeader.DateExecution.Year)) + If _GLRows.VAT IsNot Nothing Then + If _GLRows.VAT.InversState = True Then + _GLRows.DebitChartOfAccounts = _GLRows.VAT.GetChartOfAccounts(_GLRows.DateVAT.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _GLRows.VAT.GetChartOfAccounts(_GLRows.DateVAT.Year, eVATMode.eIn) + If dr_h("Deviza") = "HUF" Then + _GLRows.AmountDEV = 0 + _GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNetto") * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + Else + _GLRows.AmountDEV = Math.Round(dr_r("ÖsszegNettoDeviza") * _GLRows.VAT.InversKeyValue, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNettoDeviza") * Math.Round(dr_h("Árfolyam"), 2, MidpointRounding.AwayFromZero) * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + End If + + End If + End If + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("S_Ügyfél"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_r("S_ÁFA"), _GLRows.GLHeader.DateExecution.Year)) + End If + + _GLRows.GLRowsGUID = _GUID + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow + _GLRows.JobNumberObjects = Nothing + _GLRows.NoteRows = dr_r("Megjegyzés") + _GLRows.TransactionType = eTransactionType.eNotSet + _GLRows.UniqueObjects = Nothing + _GLRows.Customer = _GLAccounts.Customers + + End If + End While + conn_r.Close() + _GLAccounts.RecalculateTotal(True) + End If + End If + End While + End If + conn_h.Close() + + + End Sub + Public Sub Import_GLBank(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _Date As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + + Dim mSQL As String + Dim i As Long = 1 + + Dim _GLBank As GLBank = Nothing + Dim _GLRows As GLRows = Nothing + Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, CriteriaOperator.Parse("DateExecution=? and CustomersFrom=? and LiquidAssets_Main=?", _Date, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid))) + + For Each _GLBank In _GLBank_Collection + _uow.Delete(_GLBank.GLRows) + Next + _uow.Delete(_GLBank_Collection) + + mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date," + mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum," + mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,'')," + mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,'')," + mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0)," + mSQL = mSQL & " TranType=t2.TranType,t2.Mode," + + mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on" + mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on" + mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on" + mSQL = mSQL & " t2.KöltségID=t4.ID" + + mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and " + mSQL = mSQL & " t1.Date ='" & _Date & "'" + mSQL = mSQL & " Order by t1.ID,t2.ID" + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + If i = 1 Then + _GLBank = New GLBank(_uow) + _GLBank.LiquidAssets_Main = _LiquidAssets + _GLBank.CustomersFrom = _CustomersFrom + _GLBank.DateCreated = dr_h("Date") + _GLBank.DateExecution = dr_h("Date") + _GLBank.DatePayment = dr_h("Date") + _GLBank.DocumentNumber = dr_h("TömbSorszám") + _GLBank.GLDocumentType = eGLDocumentType.eGLBank + _GLBank.IsEditable = False + _GLBank.IsStorno = False + _GLBank.NoteHeader = dr_h("Megjegyzés") + i += 1 + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLBank.Oid)) + _uow.Delete(_GLRows_Collection) + End If + If _GLBank IsNot Nothing Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLBank, GLHeader) + _GLRows.AmountHUF = dr_h("QTT_Sum") + _GLRows.AmountDEV = dr_h("DQTT_Sum") + _GLRows.ConnectInfo = dr_h("Bizonylatszám_P") + _GLRows.NoteRows = dr_h("SorMegjegyzés") + _GLRows.LiquidAssets = _LiquidAssets + _GLRows.GLRowsGUID = Guid.NewGuid + Select Case dr_h("TranType") + Case "Szállítói jóváírás" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + Case "Szállítói terhelés" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case "Vevői jóváírás" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + Case "Vevői terhelés" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case Else + _GLRows.PartnerType = ePartnerType.eNotSet + If dr_h("Mode") = 0 Then + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + End If + End Select + If dr_h("Mode") = 0 Then 'Jóváírás + _GLRows.InAmountHUF = dr_h("QTT_Sum") + _GLRows.InAmountDEV = dr_h("DQTT_Sum") + Else 'Terhelés + _GLRows.OutAmountHUF = dr_h("QTT_Sum") + _GLRows.OutAmountDEV = dr_h("DQTT_Sum") + End If + + End If + End While + If _GLBank IsNot Nothing Then _GLBank.RecalculateTotal() + End If + conn_h.Close() + End Sub + Public Sub Import_GLCassa(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _LinkNumber As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + Dim dr_r As SqlDataReader = Nothing + + Dim mSQL As String + Dim i As Long = 1 + + + Dim _Customers As Customers = Nothing + Dim _GLCassa As GLCassa = Nothing + Dim _GLRows As GLRows + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Cassa=?", _ + _LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _ + _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid))) + For Each _GLCassa In _GLCassa_Collection + _uow.Delete(_GLCassa.GLRows) + Next + _uow.Delete(_GLCassa_Collection) + + mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date," + mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum," + mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,'')," + mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,'')," + mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0)," + mSQL = mSQL & " TranType=t2.TranType,t2.Mode" + + mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on" + mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on" + mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on" + mSQL = mSQL & " t2.KöltségID=t4.ID" + + mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and " + mSQL = mSQL & " t1.LinkNumber =" & _LinkNumber + mSQL = mSQL & " Order by t1.ID,t2.ID" + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + If i = 1 Then + _GLCassa = New GLCassa(_uow) + _GLCassa.LiquidAssets_Cassa = _LiquidAssets + _GLCassa.CustomersFrom = _CustomersFrom + _GLCassa.DateCreated = dr_h("Date") + _GLCassa.DateExecution = dr_h("Date") + _GLCassa.DatePayment = dr_h("Date") + _GLCassa.DocumentNumber = _LinkNumber + _GLCassa.GLDocumentType = eGLDocumentType.eGLCassa + _GLCassa.IsEditable = False + _GLCassa.IsStorno = False + _GLCassa.NoteHeader = dr_h("Megjegyzés") + + i += 1 + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLCassa.Oid)) + _uow.Delete(_GLRows_Collection) + End If + If _GLCassa IsNot Nothing Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLCassa, GLHeader) + _GLRows.AmountHUF = dr_h("QTT_Sum") + _GLRows.AmountDEV = dr_h("DQTT_Sum") + _GLRows.ConnectInfo = dr_h("Bizonylatszám_P") + _GLRows.NoteRows = dr_h("SorMegjegyzés") + _GLRows.GLRowsGUID = Guid.NewGuid + Select Case dr_h("TranType") + Case "Szállítói jóváírás" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + Case "Szállítói terhelés" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case "Vevői jóváírás" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + Case "Vevői terhelés" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case Else + _GLRows.PartnerType = ePartnerType.eNotSet + If dr_h("Mode") = 0 Then + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + End If + End Select + If dr_h("Mode") = 0 Then 'Jóváírás + _GLRows.InAmountHUF = dr_h("QTT_Sum") + _GLRows.InAmountDEV = dr_h("DQTT_Sum") + Else 'Terhelés + _GLRows.OutAmountHUF = dr_h("QTT_Sum") + _GLRows.OutAmountDEV = dr_h("DQTT_Sum") + End If + + End If + End While + If _GLCassa IsNot Nothing Then _GLCassa.RecalculateTotal(_GLCassa, Nothing, False) + End If + conn_h.Close() + + End Sub + Public Sub Import_GLCompensation(ByVal _Cassa As Long, ByVal _LiquidAssets As LiquidAssets, ByVal _LinkNumber As String, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + ' Dim dr_r As SqlDataReader + + Dim mSQL As String + Dim i As Long = 1 + + + 'Dim _Customers As Customers + Dim _GLCompensation As GLCompensation = Nothing + Dim _GLRows As GLRows + Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Main=?", _ + "", _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _ + _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid))) + + For Each _GLCompensation In _GLCompensation_Collection + _uow.Delete(_GLCompensation.GLRows) + Next + _uow.Delete(_GLCompensation_Collection) + _GLCompensation_Collection = New XPCollection(Of GLCompensation)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=? and LiquidAssets_Main=?", _ + _LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid), _ + _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets.Oid))) + + For Each _GLCompensation In _GLCompensation_Collection + _uow.Delete(_GLCompensation.GLRows) + Next + _uow.Delete(_GLCompensation_Collection) + + mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,'" & _LinkNumber & "'),t1.Date," + mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum," + mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,t2.Bizonylatszám)," + mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,'')," + mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0)," + + mSQL = mSQL & " TranType=t2.TranType,t2.Mode," + + mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on" + mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on" + mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on" + mSQL = mSQL & " t2.KöltségID=t4.ID" + + mSQL = mSQL & " Where t1.Cassa=" & _Cassa & " and " + mSQL = mSQL & " t1.LinkNumber =" & _LinkNumber + mSQL = mSQL & " Order by t1.ID,t2.ID" + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + If i = 1 Then + _GLCompensation = New GLCompensation(_uow) + _GLCompensation.LiquidAssets_Main = _LiquidAssets + _GLCompensation.CustomersFrom = _CustomersFrom + _GLCompensation.DateCreated = dr_h("Date") + _GLCompensation.DateExecution = dr_h("Date") + _GLCompensation.DatePayment = dr_h("Date") + _GLCompensation.BallanceDEV = 0 + _GLCompensation.BallanceHUF = 0 + If dr_h("TömbSorszám") = "" Then + _GLCompensation.DocumentNumber = _LinkNumber + Else + _GLCompensation.DocumentNumber = dr_h("TömbSorszám") + End If + _GLCompensation.GLDocumentType = eGLDocumentType.eGLCompensation + _GLCompensation.IsEditable = False + _GLCompensation.IsStorno = False + _GLCompensation.NoteHeader = dr_h("Megjegyzés") + i += 1 + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLCompensation.Oid)) + _uow.Delete(_GLRows_Collection) + End If + If _GLCompensation IsNot Nothing Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLCompensation, GLHeader) + _GLRows.AmountHUF = dr_h("QTT_Sum") + _GLRows.AmountDEV = dr_h("DQTT_Sum") + _GLRows.ConnectInfo = dr_h("Bizonylatszám_P") + _GLRows.NoteRows = dr_h("SorMegjegyzés") + _GLRows.GLRowsGUID = Guid.NewGuid + Select Case dr_h("TranType") + Case "Szállítói jóváírás" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + Case "Szállítói terhelés" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case "Vevői jóváírás" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + Case "Vevői terhelés" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + Case Else + _GLRows.PartnerType = ePartnerType.eNotSet + If dr_h("Mode") = 0 Then + _GLRows.DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + End If + End Select + If dr_h("Mode") = 0 Then 'Jóváírás + _GLRows.InAmountHUF = dr_h("QTT_Sum") + _GLRows.InAmountDEV = dr_h("DQTT_Sum") + Else 'Terhelés + _GLRows.OutAmountHUF = dr_h("QTT_Sum") + _GLRows.OutAmountDEV = dr_h("DQTT_Sum") + End If + '-- Jelölő adatok ???? + + End If + End While + End If + conn_h.Close() + + End Sub + Public Sub Import_GLMixed(ByVal _FK_ID As Long, _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + ' Dim dr_r As SqlDataReader + + Dim mSQL As String + Dim i As Long = 1 + + + + Dim _GLMixed As GLMixed = Nothing + Dim _GLRows As GLRows = Nothing + + Dim _UniqueObjects As UniqueObjects = Nothing + Dim _JobNumberObjects As JobNumberObjects = Nothing + Dim _CostHolder As CostHolder = Nothing + Dim _CostPlace As CostPlace = Nothing + Dim _Controlling As Controlling = Nothing + + mSQL = "select KSorszám=isnull(t3.KSorszám,''),t3.ED,t3.Bizonylatszám," + mSQL = mSQL & " Megjegyzés=isnull(t3.Megjegyzés,''),IktatóSzám=isnull(t3.IktatóSzámK,'')," + mSQL = mSQL & " M_Debit=isnull(t5.Számlaszám,''),M_Credit=isnull(t6.Számlaszám,'')," + mSQL = mSQL & " t1.Összeg,S_Megjegyzés=isnull(t2.Megjegyzés,''),TD=t3.ED," + + mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,'')," + mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,'')," + mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,'')," + mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,'')," + mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')" + + mSQL = mSQL & " from sql_Cassa..FKBizonylatok_Részletes t1 join sql_Cassa..FKBizonylatok_Sorok t2 on" + mSQL = mSQL & " t1.ParentID1=t2.ID join sql_Cassa..FKBizonylatok t3 on" + mSQL = mSQL & " t1.ParentID=t3.ID left join sql_Cassa..Költségek t5 on" + mSQL = mSQL & " t1.KöltségIDSzámla=t5.ID left join sql_Cassa..Költségek t6 on" + mSQL = mSQL & " t1.KöltségIDEllenszámla=t6.ID left join Munkaszám t20 on" + mSQL = mSQL & " t2.MunkaszámID=t20.ID left join Egyedi t21 on" + mSQL = mSQL & " t2.EgyediID=t21.ID left join RögzítőKód t22 on" + mSQL = mSQL & " t2.RögzítőKódID=t22.ID left join Költséghely t23 on" + mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on" + mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on" + mSQL = mSQL & " t2.ControllingID=t25.ID" + + mSQL = mSQL & " Where t1.Oldal='K' and t3.ID=" & _FK_ID + mSQL = mSQL & " Order by t1.ID,t2.ID" + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + If i = 1 Then + _GLMixed = _uow.FindObject(Of GLMixed)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom.oid=?", dr_h("KSorszám") & "->" & dr_h("Bizonylatszám"), _CustomersFrom.Oid)) + If _GLMixed Is Nothing Then _GLMixed = New GLMixed(_uow) + + _GLMixed.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName='HUF'")) + _GLMixed.CurrencyRate = 1 + _GLMixed.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _GLMixed.DateCreated = dr_h("ED") + _GLMixed.DateExecution = dr_h("ED") + _GLMixed.DatePayment = dr_h("ED") + _GLMixed.DocumentNumber = dr_h("KSorszám") & "->" & dr_h("Bizonylatszám") + _GLMixed.GLDocumentType = eGLDocumentType.eGLMixed + _GLMixed.IsEditable = False + _GLMixed.IsStorno = False + _GLMixed.RegistryNumber = dr_h("IktatóSzám") + _GLMixed.NoteHeader = dr_h("Megjegyzés") + _uow.Delete(_GLMixed.GLRows) + i += 1 + End If + + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLMixed, GLHeader) + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("M_Debit"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", dr_h("M_Credit"), _GLRows.GLHeader.DateExecution.Year)) + _GLRows.AmountDEV = 0 + _GLRows.AmountHUF = dr_h("Összeg") + + _GLRows.GLRowsGUID = Guid.NewGuid + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.NoteRows = dr_h("S_Megjegyzés") + _GLRows.PartnerType = ePartnerType.eNotSet + _GLRows.TransactionType = eTransactionType.eNotSet + + '-- Jelölőadatok beállítása + _UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Egyedi"))) + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + _JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Munkaszám"))) + If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects + _CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Költséghely"))) + If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace + _CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Költségviselő"))) + If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder + _Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_h("M_Controlling"))) + If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling + + End While + End If + conn_h.Close() + + End Sub + Public Sub Import_Invoice(ByVal conn As SqlConnection, ByVal ID As Long, ByVal _InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom) + 'Dim cmd_h As New SqlCommand + 'Dim dr_h As SqlDataReader + + 'Dim cmd_r As New SqlCommand + 'Dim dr_r As SqlDataReader + + 'Dim _Customers As Customers + 'Dim mSQL As String + 'Dim _InvoiceRows As InvoiceRows + 'mSQL = "select t1.Ügyfélszám " + 'mSQL = mSQL & " from sql_Main..Számlaössz t1" + 'mSQL = mSQL & " Where t1.ID=" & ID + + 'cmd_h.CommandTimeout = 60 + 'cmd_h.Connection = conn + 'cmd_h.CommandType = CommandType.Text + 'cmd_h.CommandText = mSQL + 'conn.Open() + 'If conn.State = ConnectionState.Open Then + ' dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + ' While dr_h.Read + ' _Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + ' CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + ' If _Customers IsNot Nothing Then + + ' _InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + ' CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _ + ' _CustomersFrom.Oid, _Customers.Oid, dr_h("Bizonylatszám"))) + ' If _InvoiceHeader Is Nothing Then _InvoiceHeader = New InvoiceHeader(_uow) + + ' _InvoiceHeader.BankInformation + ' _InvoiceHeader.BookEntryErrorString + ' _InvoiceHeader.ConnectInfo + ' _InvoiceHeader.CurrencyName + ' _InvoiceHeader.Customers = _Customers + ' _InvoiceHeader.CustomersFrom = _CustomersFrom + ' _InvoiceHeader.DateCreated + ' _InvoiceHeader.DateExecution + ' _InvoiceHeader.DatePayment + ' _InvoiceHeader.Description + ' _InvoiceHeader.DocumentNumber + ' _InvoiceHeader.HUNumberToText + ' _InvoiceHeader.InvoiceType + ' _InvoiceHeader.IsEditable = False + ' _InvoiceHeader.IsStorno + ' _InvoiceHeader.IsImported + ' _InvoiceHeader.IsProforma + ' _InvoiceHeader.PaymentOption + ' _InvoiceHeader.QualityOption + ' _InvoiceHeader.ReadyforBookEntry = True + ' _InvoiceHeader.Saved_Customers_Address_City + ' _InvoiceHeader.Saved_Customers_Address_Country + ' _InvoiceHeader.Saved_Customers_Address_StateProvince + ' _InvoiceHeader.Saved_Customers_Address_Street + ' _InvoiceHeader.Saved_Customers_Address_ZipPostal + ' _InvoiceHeader.Saved_Customers_FullAddress + ' _InvoiceHeader.Saved_Customers_Name + ' _InvoiceHeader.Saved_Customers_VATNumber + ' _InvoiceHeader.Saved_Customers_VATNumberEU + ' _InvoiceHeader.Saved_CustomersFrom_Address_City + ' _InvoiceHeader.Saved_CustomersFrom_Address_Country + ' _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince + ' _InvoiceHeader.Saved_CustomersFrom_Address_Street + ' _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal + ' _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber + ' _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN + ' _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName + ' _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT + ' _InvoiceHeader.Saved_CustomersFrom_FullAddress + ' _InvoiceHeader.Saved_CustomersFrom_Name + ' _InvoiceHeader.Saved_CustomersFrom_VATNumber + ' _InvoiceHeader.Saved_CustomersFrom_VATNumberEU + ' _InvoiceHeader.ShipmentOption + ' _InvoiceHeader.TotalBruttoDEV + ' _InvoiceHeader.TotalBruttoHUF + + ' mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),t2.Bizonylatszám_P," + ' mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join Folyó_Bizonylatok t2 on" + ' mSQL = mSQL & " t1.ParentID=t2.ID" + ' mSQL = mSQL & " Where t1.ParentID=" & ID + ' mSQL = mSQL & " order by t1.ID" + + ' cmd_r.CommandTimeout = 60 + ' cmd_r.Connection = conn + ' cmd_r.CommandType = CommandType.Text + ' cmd_r.CommandText = mSQL + ' conn.Open() + + ' Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GlHeader.Oid=?", _GLAccounts.Oid)) + ' _uow.Delete(_GLRows_Collection) + + ' If conn.State = ConnectionState.Open Then + ' dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult) + ' While dr_r.Read + ' _InvoiceRows.ChartOfAccounts + ' _InvoiceRows.ContractRows + ' _InvoiceRows.Controlling + ' _InvoiceRows.CostHolder + ' _InvoiceRows.CostPlace + ' _InvoiceRows.CustomsTariffs + ' _InvoiceRows.Description + ' _InvoiceRows.DiscountPriceDEV + ' _InvoiceRows.DiscountPriceHUF + ' _InvoiceRows.InvoiceHeader = _InvoiceHeader + ' _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual + ' _InvoiceRows.JobNumberObjects + ' _InvoiceRows.ListPriceDEV + ' _InvoiceRows.ListPriceHUF + ' _InvoiceRows.PriceDEV + ' _InvoiceRows.PriceHUF + ' _InvoiceRows.QTT + ' _InvoiceRows.QTT + ' _InvoiceRows.QualityOption + ' _InvoiceRows.ReadyforBookEntryRows + ' _InvoiceRows.RowIndex + ' _InvoiceRows.ShortName + ' _InvoiceRows.UniqueObjects + ' _InvoiceRows.Units + ' _InvoiceRows.VAT + ' _InvoiceRows.WorkflowSystemSteps + ' End If + ' End While + 'End If + End Sub + Public Sub Import_Invoice_E(ByVal conn As SqlConnection, ByVal ID As Long, ByVal _InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom) + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + Dim dr_r As SqlDataReader + + Dim _Customers As Customers + Dim mSQL As String + Dim _InvoiceRows As InvoiceRows + mSQL = "select t1.Ügyfélszám,Bankszámlaszám=isnull(t1.Bankszámlaszám,''),Bizonylatszám=isnull(t1.Bizonylatszám,'')," + mSQL = mSQL & "" + mSQL = mSQL & " from sql_Cassa..Bill_Sum t1" + mSQL = mSQL & " Where t1.ID=" & ID + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + _Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + If _Customers IsNot Nothing Then + + End If + _InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _ + _CustomersFrom.Oid, _Customers.Oid, dr_h("Bizonylatszám"))) + If _InvoiceHeader Is Nothing Then _InvoiceHeader = New InvoiceHeader(_uow) + + _InvoiceHeader.BankInformation = _uow.FindObject(Of BankInformation)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("Bankszámlaszám"))) + _InvoiceHeader.ConnectInfo = dr_h("Bizonylatszám") + _InvoiceHeader.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza"))) + _InvoiceHeader.Customers = _Customers + _InvoiceHeader.CustomersFrom = _CustomersFrom + _InvoiceHeader.DateCreated = dr_h("KD") + _InvoiceHeader.DateExecution = dr_h("TD") + _InvoiceHeader.DatePayment = dr_h("ED") + _InvoiceHeader.Description = dr_h("Note") + _InvoiceHeader.DocumentNumber = dr_h("Bizonylatszám") + _InvoiceHeader.HUNumberToText = dr_h("AzazStr") + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsImported = True + _InvoiceHeader.IsProforma = False + _InvoiceHeader.ReadyforBookEntry = False + _InvoiceHeader.Saved_Customers_Address_City = _Customers.Address1.City + _InvoiceHeader.Saved_Customers_Address_Country = _Customers.Address1.Country.Name + _InvoiceHeader.Saved_Customers_Address_StateProvince = _Customers.Address1.StateProvince + _InvoiceHeader.Saved_Customers_Address_Street = _Customers.Address1.Street + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _Customers.Address1.ZipPostal + _InvoiceHeader.Saved_Customers_Name = _Customers.Name + _InvoiceHeader.Saved_Customers_VATNumber = _Customers.VATNumber + _InvoiceHeader.Saved_Customers_VATNumberEU = _Customers.VATNumberEU + + _InvoiceHeader.Saved_CustomersFrom_Address_City = _CustomersFrom.Address1.City + _InvoiceHeader.Saved_CustomersFrom_Address_Country = _CustomersFrom.Address1.Country.Name + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _CustomersFrom.Address1.StateProvince + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _CustomersFrom.Address1.Street + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _CustomersFrom.Address1.ZipPostal + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = "" + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT + + _InvoiceHeader.Saved_CustomersFrom_Name = _CustomersFrom.Name + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _CustomersFrom.VATNumber + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _CustomersFrom.VATNumberEU + + '_InvoiceHeader.TotalBruttoDEV + '_InvoiceHeader.TotalBruttoHUF + + mSQL = "select D_Name=isnull(t1.D_Name,'')," + mSQL = mSQL & " from sql_Cassa..Bill_Detail t1 join sql_Cassa..Bill_Sum t2 on" + mSQL = mSQL & " t1.Bizonylatszám=t2.Bizonylatszám" + mSQL = mSQL & " Where t2.ID=" & ID + mSQL = mSQL & " order by t1.ID" + + cmd_r.CommandTimeout = 60 + cmd_r.Connection = conn + cmd_r.CommandType = CommandType.Text + cmd_r.CommandText = mSQL + conn.Open() + + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid)) + _uow.Delete(_InvoiceRows_Collection) + Dim _RowIndex As Long = 1 + If conn.State = ConnectionState.Open Then + dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult) + While dr_r.Read + _InvoiceRows = New InvoiceRows(_uow) + '_InvoiceRows.ChartOfAccounts + '_InvoiceRows.ContractRows + '_InvoiceRows.Controlling + '_InvoiceRows.CostHolder + '_InvoiceRows.CostPlace + '_InvoiceRows.CustomsTariffs + _InvoiceRows.Description = dr_r("") + _InvoiceRows.DiscountPriceDEV = 0 + _InvoiceRows.DiscountPriceHUF = 0 + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual + '_InvoiceRows.JobNumberObjects + '_InvoiceRows.ListPriceDEV + '_InvoiceRows.ListPriceHUF + '_InvoiceRows.PriceDEV + '_InvoiceRows.PriceHUF + '_InvoiceRows.QTT + '_InvoiceRows.QTT + '_InvoiceRows.QualityOption + _InvoiceRows.ReadyforBookEntryRows = False + '_InvoiceRows.RowIndex + '_InvoiceRows.ShortName + '_InvoiceRows.UniqueObjects + '_InvoiceRows.Units + '_InvoiceRows.VAT + '_InvoiceRows.WorkflowSystemSteps + + End While + End If + end while + End If + End Sub + + Public Sub Import_FN(ByVal _uow As UnitOfWork, ByVal _LinkNumber As String, ByVal _CustomersFrom As CustomersFrom, ByVal _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + ' Dim dr_r As SqlDataReader + + Dim mSQL As String + Dim i As Long = 1 + + Dim _ChartOfAccounts_Open As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491'")) + If _ChartOfAccounts_Open Is Nothing Then Exit Sub + + 'Dim _Customers As Customers + Dim _GLMixed As GLMixed + Dim _GLRows As GLRows + Dim _GLMixed_Collection As New XPCollection(Of GLMixed)(_uow, CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom=?", _ + _LinkNumber, _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid))) + _uow.Delete(_GLMixed_Collection) + + mSQL = "select t1.Date,t1.ID,TömbSorszám=isnull(t1.TömbSorszám,''),t1.Date," + mSQL = mSQL & " Megjegyzés=isnull(t1.Megjegyzés,''),t2.QTT_Sum,t2.DQTT_Sum," + mSQL = mSQL & " Bizonylatszám_P=isnull(t2.Bizonylatszám_P,'')," + mSQL = mSQL & " Comment=isnull(t3.Comment,''),SorMegjegyzés=isnull(t2.Comment,'')," + mSQL = mSQL & " Ügyfélszám=isnull(t2.Ügyfélszám,0)," + mSQL = mSQL & " TranType=t1.TranType,t2.Mode," + + mSQL = mSQL & " M_Költség=isnull(t4.Megnevezés,'')" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa_Detail t2 on" + mSQL = mSQL & " t1.LinkNumber=t2.LinkNumber left join Cassa t3 on" + mSQL = mSQL & " t1.Cassa=t3.Cassa left join Költségek t4 on" + mSQL = mSQL & " t2.KöltségID=t4.ID" + + mSQL = mSQL & " Where t2.PBizonylatszám='" & _LinkNumber & "'" + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + If i = 1 Then + _GLMixed = New GLMixed(_uow) + _GLMixed.CustomersFrom = _CustomersFrom + _GLMixed.DateCreated = dr_h("Date") + _GLMixed.DateExecution = dr_h("Date") + _GLMixed.DatePayment = dr_h("Date") + _GLMixed.DocumentNumber = _LinkNumber + _GLMixed.GLDocumentType = eGLDocumentType.eGLMixed + _GLMixed.IsEditable = False + _GLMixed.IsStorno = False + _GLMixed.NoteHeader = dr_h("Megjegyzés") + + i += 1 + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLMixed.Oid)) + _uow.Delete(_GLRows_Collection) + End If + If _GLMixed IsNot Nothing Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLMixed, GLHeader) + _GLRows.AmountHUF = dr_h("QTT_Sum") + _GLRows.AmountDEV = dr_h("DQTT_Sum") + _GLRows.ConnectInfo = dr_h("Bizonylatszám_P") + _GLRows.NoteRows = dr_h("SorMegjegyzés") + Select Case dr_h("TranType") + Case "Szállítói jóváírás" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eIn) + Case "Szállítói terhelés" + _GLRows.PartnerType = ePartnerType.ePayabels + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + Case "Vevői jóváírás" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eOut) + Case "Vevői terhelés" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(Year(dr_h("Date")), eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + Case Else + _GLRows.PartnerType = ePartnerType.eNotSet + If dr_h("Mode") = 0 Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), Year(dr_h("Date")))) + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Name=? and AccountYear=?", dr_h("M_Költség"), Year(dr_h("Date")))) + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + _GLRows.Customer = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + End If + End Select + If dr_h("Mode") = 0 Then 'Jóváírás + _GLRows.InAmountHUF = dr_h("QTT_Sum") + _GLRows.InAmountDEV = dr_h("DQTT_Sum") + Else 'Terhelés + _GLRows.OutAmountHUF = dr_h("QTT_Sum") + _GLRows.OutAmountDEV = dr_h("DQTT_Sum") + End If + + End If + End While + + End If + conn_h.Close() + + + End Sub + Public Sub Import_FN_1(ByVal _ID As Long, ByVal _uow As UnitOfWork, ByVal _CustomersFrom As CustomersFrom, _ConnectionString As String) + '// MS SQL régi rendszerből importál Folyószámlából + Dim conn_h As New SqlConnection(_ConnectionString) + Dim conn_r As New SqlConnection(_ConnectionString) + + Dim cmd_h As New SqlCommand + Dim dr_h As SqlDataReader + + Dim cmd_r As New SqlCommand + Dim dr_r As SqlDataReader + + Dim mSQL As String + Dim _Customers As Customers + Dim _GLRows As GLRows + Dim _GUID As Guid + Dim _GLAccounts As GLAccounts + Dim _PaymentOption As PaymentOption + + Dim _UniqueObjects As UniqueObjects + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _Controlling As Controlling + + Dim _ChartOfAccounts_Open As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491'")) + If _ChartOfAccounts_Open Is Nothing Then Exit Sub + + mSQL = "select Ügyfélszám=t2.CégAlany,t1.BizTipus,Bizonylatszám=isnull(t1.Bizonylatszám,''),t1.TD,t1.ED,t1.KD,t1.ÁFADátum," + mSQL = mSQL & " Árfolyam=isnull(t2.Árfolyam,1),IktatóSzám=isnull(t1.IktatóSzám,'')," + mSQL = mSQL & " S_Ügyfél=case when t1.BizTipus=0 then isnull(t6.Számlaszám,'') else isnull(t5.Számlaszám,'') end," + mSQL = mSQL & " t2.Storno,Megjegyzés=isnull(t1.Megjegyzés,''),Deviza=isnull(t1.Deviza,'')," + mSQL = mSQL & " ID_Dokument_Header=isnull(t2.ID_Dokument_Header,-1)," + + mSQL = mSQL & " FizetésiMód=isnull(t1.FizetésiMód,'')" + + mSQL = mSQL & " from sql_Cassa..vv_ÖsszLista t1 left join sql_Cassa..Folyó_Bizonylatok t2 on" + mSQL = mSQL & " t1.ID=t2.ID left join sql_Main..Ügyféltörzs t3 on" + mSQL = mSQL & " t2.CégAlany=t3.Ügyfélszám left join Ügyféltörzs_Mode t4 on" + mSQL = mSQL & " t3.Mode=t4.Mode left join sql_Cassa..Költségek t5 on" + mSQL = mSQL & " t4.KöltségIDIn=t5.ID left join sql_Cassa..Költségek t6 on" + mSQL = mSQL & " t4.KöltségIDOut=t6.ID" + + mSQL = mSQL & " Where t1.ID=" & _ID + + cmd_h.CommandTimeout = 60 + cmd_h.Connection = conn_h + cmd_h.CommandType = CommandType.Text + cmd_h.CommandText = mSQL + conn_h.Open() + If conn_h.State = ConnectionState.Open Then + dr_h = cmd_h.ExecuteReader(CommandBehavior.SingleResult) + While dr_h.Read + _PaymentOption = _uow.FindObject(Of PaymentOption)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("FizetésiMód"))) + If _PaymentOption Is Nothing Then + _PaymentOption = New PaymentOption(_uow) + If UCase(dr_h("FizetésiMód")) = "KÉSZPÉNZ" Then + _PaymentOption.PayMode = ePayMode.InCash + _PaymentOption.PayDay = 0 + _PaymentOption.ShortName = dr_h("FizetésiMód") + _PaymentOption.Description = dr_h("FizetésiMód") + Else + _PaymentOption.PayMode = ePayMode.InTransfer + _PaymentOption.PayDay = 8 + _PaymentOption.ShortName = dr_h("FizetésiMód") + _PaymentOption.Description = dr_h("FizetésiMód") + End If + End If + _Customers = _uow.FindObject(Of Customers)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomerNumber=?", dr_h("Ügyfélszám").ToString)) + If _Customers IsNot Nothing Then + + _GLAccounts = _uow.FindObject(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and DocumentNumber=?", _ + _CustomersFrom.Oid, _Customers.Oid, dr_h("BizTipus"), dr_h("Bizonylatszám"))) + If _GLAccounts Is Nothing Then _GLAccounts = New GLAccounts(_uow) + + _GLAccounts.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _GLAccounts.Customers = _Customers + _GLAccounts.PaymentOption = _PaymentOption + + _GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_h("Deviza"))) + If dr_h("Deviza") = "HUF" Then + _GLAccounts.CurrencyRate = 1 + _GLAccounts.CurrencyRateVAT() = 1 + Else + _GLAccounts.CurrencyRate = dr_h("Árfolyam") + _GLAccounts.CurrencyRateVAT() = dr_h("Árfolyam") + End If + '_GLAccounts.CustomerBankAccounts + _GLAccounts.DateCreated = dr_h("KD") + _GLAccounts.DateExecution = dr_h("TD") + _GLAccounts.DatePayment = dr_h("ED") + _GLAccounts.DocumentNumber = dr_h("Bizonylatszám") + _GLAccounts.GLDocumentType = eGLDocumentType.eGLAccount + _GLAccounts.IsEditable = False + _GLAccounts.IsStorno = dr_h("Storno") + _GLAccounts.NoteHeader = dr_h("Megjegyzés") + _GLAccounts.PartnerType = dr_h("BizTipus") + '_GLAccounts.PaymentOption + _GLAccounts.RegistryNumber = dr_h("IktatóSzám") + _GLAccounts.IsRegistry = False + + If dr_h("ID_Dokument_Header") > 0 Then + Dim _FS As FileStream + Dim _FilePath As String + + _FilePath = LoadFileFromSQL(dr_h("ID_Dokument_Header"), _ConnectionString) + If System.IO.File.Exists(_FilePath) Then + _FS = New FileStream(_FilePath, FileMode.Open) + + _GLAccounts.DocumentFile = New FileData(_uow) + _GLAccounts.DocumentFile.LoadFromStream(_FilePath, _FS) + _GLAccounts.DocumentFile.FileName = System.IO.Path.GetFileName(_FilePath) + + _FS.Close() + _FS = Nothing + End If + End If + + mSQL = "select Áfahiv=isnull(t1.Áfahiv,''),Bizonylatszám_P=isnull(t2.Bizonylatszám_P,''),t1.ÖsszegNetto,t1.ÖsszegNettoDeviza," + mSQL = mSQL & " t1.ÖsszegAFADeviza,t1.ÖsszegAFA," + mSQL = mSQL & " S_Költség=isnull(t3.Számlaszám,''),t1.Megjegyzés," + mSQL = mSQL & " S_ÁFA=case when t2.BizTipus=0 then isnull(t5.Számlaszám,'') else isnull(t6.Számlaszám,'') end," + + mSQL = mSQL & " M_Munkaszám=isnull(t20.Megnevezés,'')," + mSQL = mSQL & " M_Egyedi=isnull(t21.Megnevezés,'')," + mSQL = mSQL & " M_Költséghely=isnull(t23.Megnevezés,'')," + mSQL = mSQL & " M_Költségviselő=isnull(t24.Megnevezés,'')," + mSQL = mSQL & " M_Controlling=isnull(t25.Megnevezés,'')" + + mSQL = mSQL & " from Folyó_Bizonylatok_Sorok t1 join sql_Cassa..Folyó_Bizonylatok t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID left join sql_Cassa..Költségek t3 on" + mSQL = mSQL & " t1.KöltségID=t3.ID left join sql_Cassa..VAT t4 on" + mSQL = mSQL & " t1.Áfahiv=t4.ShortName left join sql_Cassa..Költségek t5 on" + mSQL = mSQL & " t4.KöltségIDOut=t5.ID left join sql_Cassa..Költségek t6 on" + mSQL = mSQL & " t4.KöltségIDIn=t6.ID left join Munkaszám t20 on" + mSQL = mSQL & " t1.MunkaszámID=t20.ID left join Egyedi t21 on" + mSQL = mSQL & " t1.EgyediID=t21.ID left join RögzítőKód t22 on" + mSQL = mSQL & " t1.RögzítőKódID=t22.ID left join Költséghely t23 on" + mSQL = mSQL & " t22.KöltséghelyID=t23.ID left join Költségviselő t24 on" + mSQL = mSQL & " t22.KöltségviselőID=t24.ID left join Költségviselő t25 on" + mSQL = mSQL & " t1.ControllingID=t25.ID" + + mSQL = mSQL & " Where t1.ParentID=" & _ID + mSQL = mSQL & " order by t1.ID" + + cmd_r.CommandTimeout = 60 + cmd_r.Connection = conn_r + cmd_r.CommandType = CommandType.Text + cmd_r.CommandText = mSQL + conn_r.Open() + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _GLAccounts.Oid)) + _uow.Delete(_GLRows_Collection) + + If conn_r.State = ConnectionState.Open Then + dr_r = cmd_r.ExecuteReader(CommandBehavior.SingleResult) + While dr_r.Read + _GUID = Guid.NewGuid + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + _GLRows.AmountDEV = dr_r("ÖsszegNettoDeviza") + _GLRows.AmountHUF = dr_r("ÖsszegNetto") + If LTrim(RTrim(dr_r("Bizonylatszám_P"))) = "" Then + _GLRows.ConnectInfo = _GLAccounts.DocumentNumber + Else + _GLRows.ConnectInfo = dr_r("Bizonylatszám_P") + End If + _GLRows.Controlling = Nothing + _GLRows.CostHolder = Nothing + _GLRows.CostPlace = Nothing + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél"))) + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél"))) + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + End If + + _GLRows.GLRowsGUID = _GUID + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.JobNumberObjects = Nothing + _GLRows.NoteRows = dr_r("Megjegyzés") + _GLRows.TransactionType = eTransactionType.eNotSet + _GLRows.UniqueObjects = Nothing + _GLRows.Customer = _GLAccounts.Customers + _GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv"))) + _GLRows.DateVAT = dr_h("ÁfaDátum") + + '-- Jelölőadatok beállítása + _UniqueObjects = _uow.FindObject(Of UniqueObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Egyedi"))) + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + _JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Munkaszám"))) + If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects + _CostPlace = _uow.FindObject(Of CostPlace)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költséghely"))) + If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace + _CostHolder = _uow.FindObject(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Költségviselő"))) + If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder + _Controlling = _uow.FindObject(Of Controlling)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Name=?", dr_r("M_Controlling"))) + If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling + + If dr_r("Áfahiv") <> "" Then + _GLRows = New GLRows(_uow) + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + _GLRows.VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", dr_r("Áfahiv"))) + _GLRows.DateVAT = dr_h("ÁfaDátum") + _GLRows.AmountDEV = dr_r("ÖsszegAFADeviza") + _GLRows.AmountHUF = dr_r("ÖsszegAFA") + _GLRows.ConnectInfo = dr_r("Bizonylatszám_P") + _GLRows.Controlling = Nothing + _GLRows.CostHolder = Nothing + _GLRows.CostPlace = Nothing + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _GLRows.CreditChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél"))) + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + If _GLRows.VAT IsNot Nothing Then + If _GLRows.VAT.InversState = True Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_Open + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + If dr_h("Deviza") = "HUF" Then + _GLRows.AmountDEV = 0 + _GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNetto") * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + Else + _GLRows.AmountDEV = Math.Round(dr_r("ÖsszegNettoDeviza") * _GLRows.VAT.InversKeyValue, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = Math.Round(dr_r("ÖsszegNettoDeviza") * Math.Round(dr_h("Árfolyam"), 2, MidpointRounding.AwayFromZero) * _GLRows.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + End If + + End If + End If + Else + _GLRows.DebitChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("AccountNumber=?", dr_h("S_Ügyfél"))) + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_Open + End If + + _GLRows.GLRowsGUID = _GUID + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow + _GLRows.JobNumberObjects = Nothing + _GLRows.NoteRows = dr_r("Megjegyzés") + _GLRows.TransactionType = eTransactionType.eNotSet + _GLRows.UniqueObjects = Nothing + _GLRows.Customer = _GLAccounts.Customers + + End If + End While + conn_r.Close() + _GLAccounts.RecalculateTotal(True) + End If + End If + End While + End If + conn_h.Close() + + + End Sub + +#Region "FileHandling" + Public Function LoadFileFromSQL(_ID_File As Long, _ConnectionString As String) As String + '/==========================================================================================\ + '|VERSION: 1 | + '|AUTHOR: SISSERVER : ivan.szabo(2010.1.15 9:5) | + '|LAST MODIFYING: SISSERVER : ivan.szabo | + '|DATE: 2010.1.15 9:5 | + '|----------------------------------------DESCRIPTION---------------------------------------| + '|Az eljárás dokumantum azonosító alapján létrehoz egy filet és visszatér a teljes útvonalla| + '|l. | + '\==========================================================================================/ + + + Dim conn As New SqlConnection(_ConnectionString) + + Dim mSQL As String + mSQL = "select t1.Data,t2.FileName " + mSQL = mSQL & " from sql_Work..Dokumentum_Rows t1 join sql_Work..Dokumentum_Header t2 on" + mSQL = mSQL & " t1.ID_Dokumentum_Header=t2.ID" + mSQL = mSQL & " where t1.ID_Dokumentum_Header = " & _ID_File + mSQL = mSQL & " order by t1.Idx asc" + + Dim cmd As New SqlCommand + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + + Dim _FileName As String = "" + Dim _StreamFile As FileStream = Nothing + LoadFileFromSQL = "" + + Dim dr As SqlDataReader + Dim _Buffer As String + Dim _Record As Byte + Dim I As Long = 0 + Dim J As Long = 0 + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While (dr.Read) + _Buffer = dr("Data") + If J = 0 Then + _FileName = Path.GetTempPath & System.IO.Path.GetFileName(dr("FileName")) + If System.IO.File.Exists(_FileName) Then System.IO.File.Delete(_FileName) + _StreamFile = New FileStream(_FileName, FileMode.Create, FileAccess.ReadWrite) + J += 1 + End If + For I = 1 To Len(_Buffer) + _Record = Asc(Mid(_Buffer, I, 1)) + _StreamFile.WriteByte(_Record) + Next + End While + If _StreamFile IsNot Nothing Then + _StreamFile.Close() + End If + End If + conn.Close() + Return _FileName + End Function +#End Region +End Module diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCColumns.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCColumns.vb new file mode 100644 index 0000000..477ed92 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCColumns.vb @@ -0,0 +1,62 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DBCColumns + Inherits BaseObject + + Private _DBCTables As DBCTables + Private _ColumnName As String + Private _ColumnType As String + Private _ColumnLength As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property DBCTables As DBCTables + Get + Return _DBCTables + End Get + Set(value As DBCTables) + SetPropertyValue("DBCTables", _DBCTables, value) + End Set + End Property + _ + Property ColumnName As String + Get + Return _ColumnName + End Get + Set(value As String) + SetPropertyValue("ColumnName", _ColumnName, value) + End Set + End Property + _ + Property ColumnType As String + Get + Return _ColumnType + End Get + Set(value As String) + SetPropertyValue("ColumnType", _ColumnType, value) + End Set + End Property + Property ColumnLength As String + Get + Return _ColumnLength + End Get + Set(value As String) + SetPropertyValue("ColumnLength", _ColumnLength, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.Designer.vb new file mode 100644 index 0000000..ac027cb --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.Designer.vb @@ -0,0 +1,67 @@ +Partial Class DBCExportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDBCGetTables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDBCCopyData = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aDBCGetTables + ' + Me.aDBCGetTables.Caption = "aDBCGet Tables" + Me.aDBCGetTables.ConfirmationMessage = Nothing + Me.aDBCGetTables.Id = "aDBCGetTables" + Me.aDBCGetTables.ImageName = Nothing + Me.aDBCGetTables.Shortcut = Nothing + Me.aDBCGetTables.Tag = Nothing + Me.aDBCGetTables.TargetObjectsCriteria = Nothing + Me.aDBCGetTables.TargetObjectType = GetType(SISBusiness.[Module].Win.DBCLogin) + Me.aDBCGetTables.TargetViewId = Nothing + Me.aDBCGetTables.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aDBCGetTables.ToolTip = Nothing + Me.aDBCGetTables.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aDBCCopyData + ' + Me.aDBCCopyData.Caption = "aDBCCopy Data" + Me.aDBCCopyData.ConfirmationMessage = Nothing + Me.aDBCCopyData.Id = "aDBCCopyData" + Me.aDBCCopyData.ImageName = Nothing + Me.aDBCCopyData.Shortcut = Nothing + Me.aDBCCopyData.Tag = Nothing + Me.aDBCCopyData.TargetObjectsCriteria = Nothing + Me.aDBCCopyData.TargetObjectType = GetType(SISBusiness.[Module].Win.DBCLogin) + Me.aDBCCopyData.TargetViewId = Nothing + Me.aDBCCopyData.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aDBCCopyData.ToolTip = Nothing + Me.aDBCCopyData.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aDBCGetTables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDBCCopyData As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.resx new file mode 100644 index 0000000..6cca7c1 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 152, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.vb new file mode 100644 index 0000000..b3743ad --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCExportVC.vb @@ -0,0 +1,1216 @@ +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.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports MySql.Data.MySqlClient +Imports Npgsql +Imports System.Data.SqlClient +Imports System.IO + +Public Class DBCExportVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Dim _connstr_mysql As String = "" + Dim _connstr_mssql As String = "" + Dim _connstr_postgre As String = "" + Dim _FileName As String = IO.Path.GetTempPath + "DBCopyErrorLog_" + Date.Now.ToString("yy-MM-dd") + ".txt" + Dim _FileNameInsert As String = IO.Path.GetTempPath + "DBCopyINSERTLog_" + Date.Now.ToString("yy-MM-dd") + ".txt" + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Private Sub aDBCGetTables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDBCGetTables.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _DBCLogin As DBCLogin = _uow.GetObjectByKey(Of DBCLogin)(TryCast(View.SelectedObjects(0), DBCLogin).Oid) + + If _DBCLogin Is Nothing Then Exit Sub + + Dim _conn_mysql As MySqlConnection = Nothing + Dim _conn_postgresql As NpgsqlConnection = Nothing + + Dim _DBCColumns_Collection As New XPCollection(Of DBCColumns)(_uow, CriteriaOperator.Parse("DBCTables.DBCLogin=?", _DBCLogin)) + _uow.Delete(_DBCColumns_Collection) + + Dim _DBCTables_Collection As New XPCollection(Of DBCTables)(_uow, CriteriaOperator.Parse("DBCLogin=?", _DBCLogin)) + _uow.Delete(_DBCTables_Collection) + + _uow.CommitChanges() + + Select Case _DBCLogin.SQLType_From + Case eSQLType.MSSQL + LoadTables_MSSQL(_uow, _DBCLogin, 0) + Case eSQLType.MySQL + LoadTables_MySQL(_uow, _DBCLogin, 0) + Case eSQLType.PostgreSQL + LoadTables_PostgreSQL(_uow, _DBCLogin, 0) + End Select + + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + LoadTables_MSSQL(_uow, _DBCLogin, 1) + Case eSQLType.MySQL + LoadTables_MySQL(_uow, _DBCLogin, 1) + Case eSQLType.PostgreSQL + LoadTables_PostgreSQL(_uow, _DBCLogin, 1) + End Select + + _uow.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + Private Sub LoadTables_MSSQL(_uow As UnitOfWork, _DBCLogin As DBCLogin, _DBCType As Long) + If _DBCType = 0 Then + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + + If String.IsNullOrEmpty(_connstr_mssql) Then Exit Sub + + Dim cnn As New SqlConnection(_connstr_mssql) + Dim cnn2 As New SqlConnection(_connstr_mssql) + Dim _recordcount As Long = 0 + + Try + Dim sql As String = "select db=count(*) from sysobjects where xtype='U'" + Dim cmd As New SqlCommand + Dim cmd2 As New SqlCommand + Dim dr As SqlDataReader + Dim dr2 As SqlDataReader + + cmd.CommandText = sql + cmd.Connection = cnn + cnn.Open() + + dr = cmd.ExecuteReader() + + If dr.HasRows Then + While dr.Read + _recordcount = dr("db") + End While + End If + + dr.Close() + cnn.Close() + + sql = "select name,id from sysobjects where xtype='U' order by name" + _WaitFormClass.Initwork(1, 1, _recordcount) + cnn.Open() + If cnn.State = ConnectionState.Open Then + cmd = New SqlCommand(sql, cnn) + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + If dr.HasRows Then + _WaitFormClass.Initwork(1, 1, _recordcount) + While dr.Read + _WaitFormClass.DoWork() + + Dim _DBCTables As New DBCTables(_uow) + With _DBCTables + .DBCLogin = _DBCLogin + .DBCType = _DBCType + .TableName = dr("name") + .CreateScript = "" + .DropScript = "" + End With + + sql = "select cname=t1.name,ctype=t2.name,t2.length from syscolumns t1 join systypes t2 on t1.xtype = t2.xtype where t2.name<>'sysname' and t1.id = " & dr("id").ToString + cnn2.Open() + + If cnn2.State = ConnectionState.Open Then + cmd2 = New SqlCommand(sql, cnn2) + dr2 = cmd2.ExecuteReader(CommandBehavior.SingleResult) + + If dr2.HasRows Then + _WaitFormClass.Initwork(1, 1, _recordcount) + While dr2.Read + + Dim _DBCColumns As New DBCColumns(_uow) + With _DBCColumns + .DBCTables = _DBCTables + .ColumnName = dr2("cname").ToString + .ColumnType = dr2("ctype").ToString + .ColumnLength = dr2("length").ToString + End With + + End While + + End If + dr2.Close() + cnn2.Close() + End If + '_DBCTables.DBCTableCount = SelectCountMsSql(_DBCTables) + End While + End If + dr.Close() + cnn.Close() + _uow.CommitChanges() + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + _WaitFormClass.Finalwork + End Try + End Sub + Private Sub LoadTables_MySQL(_uow As UnitOfWork, _DBCLogin As DBCLogin, _DBCType As Long) + If _DBCType = 0 Then + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + + If String.IsNullOrEmpty(_connstr_mysql) Then Exit Sub + + Dim cnn As New MySqlConnection(_connstr_mysql) + Dim cnn2 As New MySqlConnection(_connstr_mysql) + Dim _recordcount As Long = 0 + + Try + cnn.Open() + Dim sql As String = "SELECT count(*) FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_SCHEMA = '" + _DBCLogin.SQLDatabase_From + "';" + Dim cmd As New MySqlCommand + Dim cmd2 As New MySqlCommand + Dim dr As MySqlDataReader + Dim dr2 As MySqlDataReader + cmd.CommandText = sql + cmd.Connection = TryCast(cnn, MySqlConnection) + + dr = cmd.ExecuteReader + If dr.HasRows Then + While dr.Read() + _recordcount = dr(0) + End While + End If + dr.Close() + + sql = "SELECT TABLE_NAME as Name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_SCHEMA = '" + _DBCLogin.SQLDatabase_From + "';" + cmd.CommandText = sql + cmd.Connection = TryCast(cnn, MySqlConnection) + + dr = cmd.ExecuteReader + If dr.HasRows Then + _WaitFormClass.Initwork(1, 1, _recordcount) + While dr.Read() + _WaitFormClass.DoWork() + Dim _DBCTables As New DBCTables(_uow) + With _DBCTables + .DBCLogin = _DBCLogin + .DBCType = _DBCType + .TableName = dr("Name") + .CreateScript = "" + .DropScript = "" + End With + sql = "SHOW COLUMNS FROM `" + _DBCTables.TableName + "`;" + + cnn2.Open() + + cmd2.CommandText = sql + cmd2.Connection = TryCast(cnn2, MySqlConnection) + dr2 = cmd2.ExecuteReader + + If dr2.HasRows Then + _WaitFormClass.Initwork(1, 1, _recordcount) + While dr2.Read() + Dim _DBCColumns As New DBCColumns(_uow) + With _DBCColumns + .DBCTables = _DBCTables + .ColumnName = dr2("Field").ToString + .ColumnType = dr2("Type").ToString + .ColumnLength = "0" + End With + + End While + End If + cnn2.Close() + dr2.Close() + End While + End If + dr.Close() + cnn.Close() + _uow.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + _WaitFormClass.Finalwork + End Try + + End Sub + Private Sub LoadTables_PostgreSQL(_uow As UnitOfWork, _DBCLogin As DBCLogin, _DBCType As Long) + If _DBCType = 0 Then + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + + If String.IsNullOrEmpty(_connstr_postgre) Then Exit Sub + + Dim _conn_pgsql As New NpgsqlConnection(_connstr_postgre) + Dim _conn_pgsql2 As New NpgsqlConnection(_connstr_postgre) + Dim _cmd_pgsql As NpgsqlCommand + Dim _cmd_pgsql2 As NpgsqlCommand + Dim _dr As NpgsqlDataReader + Dim _dr2 As NpgsqlDataReader + Dim sql As String = "SELECT table_name as Name FROM information_schema.tables WHERE table_type='BASE TABLE' AND table_schema='public' and TABLE_CATALOG='" + _DBCLogin.SQLDatabase_To + "'" + + _conn_pgsql.Open() + + If _conn_pgsql.State = ConnectionState.Open Then + + _cmd_pgsql = New NpgsqlCommand(sql, _conn_pgsql) + _cmd_pgsql.CommandTimeout = 100 + _cmd_pgsql.Connection = _conn_pgsql + _cmd_pgsql.CommandType = CommandType.Text + _cmd_pgsql.CommandText = sql + _dr = _cmd_pgsql.ExecuteReader() + + Try + If _dr.HasRows Then + _WaitFormClass.Initwork(1, 1, 1) + While _dr.Read() + + Dim _DBCTables As New DBCTables(_uow) + With _DBCTables + .DBCLogin = _DBCLogin + .DBCType = _DBCType + .TableName = _dr("Name").ToString + .CreateScript = "" + .DropScript = "" + End With + sql = "SELECT column_name as Field, data_type as Type FROM INFORMATION_SCHEMA.COLUMNS WHERE table_name = '" + _DBCTables.TableName + "';" + + _conn_pgsql2.Open() + + If _conn_pgsql2.State = ConnectionState.Open Then + _cmd_pgsql2 = New NpgsqlCommand(sql, _conn_pgsql) + _cmd_pgsql2.CommandText = sql + _cmd_pgsql2.Connection = _conn_pgsql2 + _dr2 = _cmd_pgsql2.ExecuteReader() + + If _dr2.HasRows Then + + While _dr2.Read() + + Dim _DBCColumns As New DBCColumns(_uow) + With _DBCColumns + .DBCTables = _DBCTables + .ColumnName = _dr2("Field").ToString + .ColumnType = _dr2("Type").ToString + .ColumnLength = "0" + End With + + End While + End If + _dr2.Close() + End If + _conn_pgsql2.Close() + End While + End If + _dr.Close() + _conn_pgsql.Close() + _uow.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + _WaitFormClass.Finalwork + End Try + End If + End Sub + Private Sub WriteErrorLog(_ex As String, Optional _InsertFile As Boolean = False) + If _InsertFile Then + Dim _StreamWriter As New StreamWriter(_FileNameInsert, True) + _StreamWriter.WriteLine(_ex) + _StreamWriter.Close() + Else + Dim _StreamWriter As New StreamWriter(_FileName, True) + _StreamWriter.WriteLine(_ex) + _StreamWriter.Close() + End If + + End Sub + + Private Sub aDBCCopyData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDBCCopyData.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _DBCLogin As DBCLogin = TryCast(View.SelectedObjects(0), DBCLogin) + + If _DBCLogin Is Nothing Then Exit Sub + + Select Case _DBCLogin.SQLType_From + Case eSQLType.MSSQL + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + UpdateModuleInfo(_DBCLogin, eSQLType.MSSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.MySQL + UpdateModuleInfo(_DBCLogin, eSQLType.MySQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.PostgreSQL + UpdateModuleInfo(_DBCLogin, eSQLType.PostgreSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + End Select + Case eSQLType.MySQL + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + UpdateModuleInfo(_DBCLogin, eSQLType.MSSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.MySQL + UpdateModuleInfo(_DBCLogin, eSQLType.MySQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.PostgreSQL + UpdateModuleInfo(_DBCLogin, eSQLType.PostgreSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + End Select + Case eSQLType.PostgreSQL + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + UpdateModuleInfo(_DBCLogin, eSQLType.MSSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MSSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.MySQL + UpdateModuleInfo(_DBCLogin, eSQLType.MySQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.MySQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + Case eSQLType.PostgreSQL + UpdateModuleInfo(_DBCLogin, eSQLType.PostgreSQL, 1) + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DropForeignKeys(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_To + DeleteSQLTable(_DBCTables, eSQLType.PostgreSQL) + Next + For Each _DBCTables As DBCTables In _DBCLogin.DBCTables_From + InsertData(_DBCTables, _DBCLogin) + Next + End Select + + End Select + If File.Exists(_FileName) Then Process.Start(_FileName) + End Sub + Private Sub DropForeignKeys(_DBCTables As DBCTables, _SQLType As eSQLType) + Try + Dim cnn As Object + Dim cnn2 As Object + Dim cnn3 As Object + + Dim sql As String = "" + Select Case _SQLType + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + + sql = "SELECT Name, parent_obj FROM sysobjects WHERE xtype='F'" + + cnn = New SqlConnection(_connstr_mssql) + cnn2 = New SqlConnection(_connstr_mssql) + cnn3 = New SqlConnection(_connstr_mssql) + cnn.Open() + Dim cmd As New SqlCommand(sql, TryCast(cnn, SqlConnection)) + Dim dr As SqlDataReader = cmd.ExecuteReader + + If dr.HasRows Then + While dr.Read + sql = "SELECT Name FROM sysobjects WHERE id='" + dr("parent_obj").ToString + "'" + cnn2.Open() + Dim cmd2 As New SqlCommand(sql, TryCast(cnn2, SqlConnection)) + Dim dr2 As SqlDataReader = cmd2.ExecuteReader + If dr2.HasRows Then + While dr2.Read + sql = "ALTER TABLE dbo.[" + dr2("Name") + "] DROP CONSTRAINT " + dr("Name") + cnn3.Open() + Dim cmd3 As New SqlCommand(sql, TryCast(cnn3, SqlConnection)) + cmd3.ExecuteReader() + cnn3.Close() + End While + End If + dr2.Close() + cnn2.Close() + End While + End If + dr.Close() + cnn.Close() + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + + sql = "SELECT CONSTRAINT_NAME FROM information_schema.KEY_COLUMN_USAGE WHERE TABLE_SCHEMA='" + _DBCTables.DBCLogin.SQLDatabase_To + "'" + " AND TABLE_NAME='" + _DBCTables.TableName + "'" + " AND REFERENCED_TABLE_NAME is not null" + + cnn = New MySqlConnection(_connstr_mysql) + cnn2 = New MySqlConnection(_connstr_mysql) + cnn.Open() + Dim cmd As New MySqlCommand(sql, TryCast(cnn, MySqlConnection)) + Dim dr As MySqlDataReader = cmd.ExecuteReader() + + If dr.HasRows Then + While dr.Read + sql = "ALTER TABLE " + _DBCTables.TableName + " DROP FOREIGN KEY " + dr("CONSTRAINT_NAME") + + cnn2.Open() + Dim cmd2 As New MySqlCommand(sql, TryCast(cnn2, MySqlConnection)) + ' Dim dr2 As MySqlDataReader = cmd2.ExecuteReader + Dim _LineCount As Long = cmd2.ExecuteNonQuery + cnn2.Close() + End While + End If + dr.Close() + cnn.Close() + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + + sql = "SELECT CONSTRAINT_NAME FROM information_schema.TABLE_CONSTRAINTS WHERE CONSTRAINT_CATALOG='" + _DBCTables.DBCLogin.SQLDatabase_To + "'" + _ + " AND TABLE_CATALOG='" + _DBCTables.DBCLogin.SQLDatabase_To + "'" + " AND TABLE_NAME='" + _DBCTables.TableName + "'" + " AND CONSTRAINT_TYPE= 'FOREIGN KEY'" + + cnn = New NpgsqlConnection(_connstr_postgre) + cnn2 = New NpgsqlConnection(_connstr_postgre) + cnn.Open() + Dim cmd As New NpgsqlCommand(sql, TryCast(cnn, NpgsqlConnection)) + Dim dr As NpgsqlDataReader = cmd.ExecuteReader() + + If dr.HasRows Then + While dr.Read + sql = "ALTER TABLE """ + _DBCTables.TableName + """ DROP CONSTRAINT """ + dr("CONSTRAINT_NAME") + """" + + cnn2.Open() + Dim cmd2 As New NpgsqlCommand(sql, TryCast(cnn2, NpgsqlConnection)) + Dim _LineCount As Long = cmd2.ExecuteNonQuery + cnn2.Close() + End While + End If + + dr.Close() + cnn.Close() + End Select + Catch ex As Exception + WriteErrorLog("DROPFOREIGNKEY ERROR - " + _DBCTables.TableName + " " + ex.Message) + 'MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub UpdateModuleInfo(_DBCLogin As DBCLogin, _SQLType As eSQLType, _DBCType As Long) + Dim cnn As Object + Dim _Version As String = (System.Reflection.Assembly.GetExecutingAssembly.FullName.Split(New Char() {","})(1).Remove(0, 9)).Remove( _ + (System.Reflection.Assembly.GetExecutingAssembly.FullName.Split(New Char() {","})(1).Remove(0, 9)).Length - 2, 2) + "00" + Try + Dim sql As String = "" + Select Case _SQLType + Case eSQLType.MSSQL + If _DBCType = 0 Then + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + sql = "UPDATE ModuleInfo SET Version = '" + _Version + "' WHERE Name = 'SISBusinessModule'" + + cnn = New SqlConnection(_connstr_mssql) + cnn.Open() + Dim cmd As New SqlCommand(sql, TryCast(cnn, SqlConnection)) + Dim _LineCount As Long = cmd.ExecuteNonQuery + cnn.Close() + Case eSQLType.MySQL + If _DBCType = 0 Then + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + sql = "UPDATE ModuleInfo SET Version = '" + _Version + "' WHERE Name = 'SISBusinessModule'" + + cnn = New MySqlConnection(_connstr_mysql) + cnn.Open() + Dim cmd As New MySqlCommand(sql, TryCast(cnn, MySqlConnection)) + Dim _LineCount As Long = cmd.ExecuteNonQuery + cnn.Close() + Case eSQLType.PostgreSQL + If _DBCType = 0 Then + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + ElseIf _DBCType = 1 Then + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + End If + sql = "UPDATE ""ModuleInfo"" SET ""Version"" = '" + _Version + "' where ""Name"" = 'SISBusinessModule'" + + cnn = New NpgsqlConnection(_connstr_postgre) + cnn.Open() + Dim cmd As New NpgsqlCommand(sql, TryCast(cnn, NpgsqlConnection)) + Dim _LineCount As Long = cmd.ExecuteNonQuery + cnn.Close() + End Select + Catch ex As Exception + WriteErrorLog(cnn.ConnectionString + " " + ex.Message) + ' MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + + End Sub + Private Sub InsertData(_DBCTables As DBCTables, _DBCLogin As DBCLogin) + Dim cnnFrom As Object + Dim cnnTo As Object + Dim sql As String = "" + Try + + Select Case _DBCLogin.SQLType_From + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + sql = "SELECT " + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += _DBCColumns.ColumnName + ", " + Next + sql = sql.Remove(sql.Length - 2, 2) + sql += " FROM " + _DBCTables.TableName + + cnnFrom = New SqlConnection(_connstr_mssql) + cnnFrom.Open() + Dim cmd As New SqlCommand(sql, TryCast(cnnFrom, SqlConnection)) + Dim dr As SqlDataReader = cmd.ExecuteReader + + If dr.HasRows Then + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New SqlConnection(_connstr_mssql) + cnnTo.Open() + + sql = "INSERT INTO dbo.[" + _DBCTables.TableName + "] (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += _DBCColumns.ColumnName + ", " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "null, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ")" + Dim cmdTo As New SqlCommand(sql, TryCast(cnnTo, SqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New MySqlConnection(_connstr_mysql) + cnnTo.Open() + sql = "INSERT INTO `" + _DBCTables.TableName + "` (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += "`" + _DBCColumns.ColumnName + "`, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + If dr(i).ToString = "Fales" Then + sql += "'0', " + ElseIf dr(i).ToString = "True" Then + sql += "'1', " + Else + sql += "'" + dr(i).ToString + "', " + End If + + End If + Next + + sql = sql.Remove(sql.Length - 2, 2) + ");" + If sql.Contains("'File'") Then + sql = sql.Replace("'File'", "'[File]'") + End If + WriteErrorLog(sql, True) + Dim cmdTo As New MySqlCommand(sql, TryCast(cnnTo, MySqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New NpgsqlConnection(_connstr_postgre) + cnnTo.Open() + + sql = "INSERT INTO """ + _DBCTables.TableName + """ (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += """" + _DBCColumns.ColumnName + """, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ");" + Dim cmdTo As New NpgsqlCommand(sql, TryCast(cnnTo, NpgsqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + End Select + End If + dr.Close() + cnnFrom.Close() + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + sql = "SELECT " + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += _DBCColumns.ColumnName + ", " + Next + sql = sql.Remove(sql.Length - 2, 2) + sql += " FROM " + _DBCTables.TableName + + cnnFrom = New MySqlConnection(_connstr_mysql) + cnnFrom.Open() + Dim cmd As New MySqlCommand(sql, TryCast(cnnFrom, MySqlConnection)) + Dim dr As MySqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New SqlConnection(_connstr_mssql) + cnnTo.Open() + + sql = "INSERT INTO dbo.[" + _DBCTables.TableName + "] (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += _DBCColumns.ColumnName + ", " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "null, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ")" + Dim cmdTo As New SqlCommand(sql, TryCast(cnnTo, SqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New MySqlConnection(_connstr_mysql) + cnnTo.Open() + + sql = "INSERT INTO `" + _DBCTables.TableName + "` (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += "`" + _DBCColumns.ColumnName + "`, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ");" + If sql.Contains("`File`") Then + WriteErrorLog(sql) + End If + Dim cmdTo As New MySqlCommand(sql, TryCast(cnnTo, MySqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New NpgsqlConnection(_connstr_postgre) + cnnTo.Open() + + sql = "INSERT INTO """ + _DBCTables.TableName + """ (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += """" + _DBCColumns.ColumnName + """, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ");" + Dim cmdTo As New NpgsqlCommand(sql, TryCast(cnnTo, NpgsqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + End Select + End If + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_From, _DBCLogin.SQLUser_From, _DBCLogin.SQLPassword_From, _DBCLogin.SQLDatabase_From) + sql = "SELECT " + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += """" + _DBCColumns.ColumnName + """, " + Next + sql = sql.Remove(sql.Length - 2, 2) + sql += " FROM """ + _DBCTables.TableName + """" + + cnnFrom = New NpgsqlConnection(_connstr_postgre) + cnnFrom.Open() + Dim cmd As New NpgsqlCommand(sql, TryCast(cnnFrom, NpgsqlConnection)) + Dim dr As NpgsqlDataReader = cmd.ExecuteReader + + If dr.HasRows Then + Select Case _DBCLogin.SQLType_To + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New SqlConnection(_connstr_mssql) + cnnTo.Open() + + sql = "INSERT INTO dbo.[" + _DBCTables.TableName + "] (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += _DBCColumns.ColumnName + ", " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "null, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ")" + Dim cmdTo As New SqlCommand(sql, TryCast(cnnTo, SqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New MySqlConnection(_connstr_mysql) + cnnTo.Open() + + sql = "INSERT INTO `" + _DBCTables.TableName + "` (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += "`" + _DBCColumns.ColumnName + "`, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ");" + If sql.Contains("`File`") Then + WriteErrorLog(sql) + End If + Dim cmdTo As New MySqlCommand(sql, TryCast(cnnTo, MySqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCLogin.SQLServer_To, _DBCLogin.SQLUser_To, _DBCLogin.SQLPassword_To, _DBCLogin.SQLDatabase_To) + While dr.Read + cnnTo = New NpgsqlConnection(_connstr_postgre) + cnnTo.Open() + + sql = "INSERT INTO """ + _DBCTables.TableName + """ (" + For Each _DBCColumns As DBCColumns In _DBCTables.DBCColumns + sql += """" + _DBCColumns.ColumnName + """, " + Next + sql = sql.Remove(sql.Length - 2, 2) + ") VALUES (" + + For i = 0 To dr.FieldCount - 1 + If String.IsNullOrEmpty(dr(i).ToString) Then + sql += "NULL, " + Else + sql += "'" + dr(i).ToString + "', " + End If + + Next + sql = sql.Remove(sql.Length - 2, 2) + ");" + Dim cmdTo As New NpgsqlCommand(sql, TryCast(cnnTo, NpgsqlConnection)) + Dim _InsertRow As Long = cmdTo.ExecuteNonQuery + cnnTo.Close() + End While + End Select + End If + End Select + Catch ex As Exception + WriteErrorLog("INSERT ERROR- " + _DBCTables.TableName + " - " + ex.Message) + End Try + End Sub + Private Sub DeleteSQLTable(_DBCTables As DBCTables, _SQLType As eSQLType) + Try + Dim cnn As Object + Dim sql As String = "" + Select Case _SQLType + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New SqlConnection(_connstr_mssql) + sql = "delete from dbo.[" + _DBCTables.TableName + "]" + Dim cmd As New SqlCommand(sql, TryCast(cnn, SqlConnection)) + cnn.Open() + Dim dr As Long = cmd.ExecuteNonQuery + cnn.Close() + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New MySqlConnection(_connstr_mysql) + sql = "delete from " + _DBCTables.TableName + Dim cmd As New MySqlCommand(sql, TryCast(cnn, MySqlConnection)) + cnn.Open() + Dim _DeletedRowCount As Long = cmd.ExecuteNonQuery + cnn.Close() + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New NpgsqlConnection(_connstr_postgre) + sql = "delete from """ + _DBCTables.TableName + """" + Dim cmd As New NpgsqlCommand(sql, TryCast(cnn, NpgsqlConnection)) + cnn.Open() + Dim _DeletedRowCount As Long = cmd.ExecuteNonQuery + cnn.Close() + End Select + Catch ex As Exception + WriteErrorLog("DELETE ERROR - " + _DBCTables.TableName + " " + ex.Message) + End Try + End Sub + Private Function GetConnectionString(SQLType As eSQLType, Server As String, Uid As String, Pwd As String, Database As String) As String + Dim _cnn As String = "" + Select Case SQLType + Case eSQLType.MSSQL + _cnn = "Data Source=" + Server + ";Initial Catalog=" + Database + ";User ID=" + Uid + ";Password=" + Pwd + Case eSQLType.MySQL + _cnn = "server=" + Server + ";Uid=" + Uid + ";Pwd=" + Pwd + ";Database=" + Database + Case eSQLType.PostgreSQL + _cnn = "Server=" + Server + ";User ID=" + Uid + ";Password=" + Pwd + ";Database=" + Database + ";" + End Select + Return _cnn + End Function + Function SelectCount(_DBCTables As DBCTables) + Dim _Count As Long = 0 + Dim cnn As Object + Dim sql As String = "" + + If _DBCTables.DBCType = 0 Then + Select Case _DBCTables.DBCLogin.SQLType_From + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCTables.DBCLogin.SQLServer_From, _DBCTables.DBCLogin.SQLUser_From, _DBCTables.DBCLogin.SQLPassword_From, _DBCTables.DBCLogin.SQLDatabase_From) + cnn = New SqlConnection(_connstr_mssql) + sql = "select db=count(*) from [" + _DBCTables.TableName + "]" + Dim cmd As New SqlCommand(sql, TryCast(cnn, SqlConnection)) + cnn.Open() + Dim dr As SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCTables.DBCLogin.SQLServer_From, _DBCTables.DBCLogin.SQLUser_From, _DBCTables.DBCLogin.SQLPassword_From, _DBCTables.DBCLogin.SQLDatabase_From) + cnn = New MySqlConnection(_connstr_mysql) + sql = "select count(*) db from `" + _DBCTables.TableName + "`" + Dim cmd As New MySqlCommand(sql, TryCast(cnn, MySqlConnection)) + cnn.Open() + Dim dr As MySqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCTables.DBCLogin.SQLServer_From, _DBCTables.DBCLogin.SQLUser_From, _DBCTables.DBCLogin.SQLPassword_From, _DBCTables.DBCLogin.SQLDatabase_From) + cnn = New NpgsqlConnection(_connstr_postgre) + sql = "delete from """ + _DBCTables.TableName + """" + Dim cmd As New NpgsqlCommand(sql, TryCast(cnn, NpgsqlConnection)) + cnn.Open() + Dim dr As NpgsqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + End Select + ElseIf _DBCTables.DBCType = 1 Then + Select Case _DBCTables.DBCLogin.SQLType_From + Case eSQLType.MSSQL + _connstr_mssql = GetConnectionString(eSQLType.MSSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New SqlConnection(_connstr_mssql) + sql = "select db=count(*) from [" + _DBCTables.TableName + "]" + Dim cmd As New SqlCommand(sql, TryCast(cnn, SqlConnection)) + cnn.Open() + Dim dr As SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + Case eSQLType.MySQL + _connstr_mysql = GetConnectionString(eSQLType.MySQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New MySqlConnection(_connstr_mysql) + sql = "select count(*) db from `" + _DBCTables.TableName + "`" + Dim cmd As New MySqlCommand(sql, TryCast(cnn, MySqlConnection)) + cnn.Open() + Dim dr As MySqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + Case eSQLType.PostgreSQL + _connstr_postgre = GetConnectionString(eSQLType.PostgreSQL, _DBCTables.DBCLogin.SQLServer_To, _DBCTables.DBCLogin.SQLUser_To, _DBCTables.DBCLogin.SQLPassword_To, _DBCTables.DBCLogin.SQLDatabase_To) + cnn = New NpgsqlConnection(_connstr_postgre) + sql = "delete from """ + _DBCTables.TableName + """" + Dim cmd As New NpgsqlCommand(sql, TryCast(cnn, NpgsqlConnection)) + cnn.Open() + Dim dr As NpgsqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + _Count = CType(dr("db"), Long) + End If + cnn.Close() + End Select + End If + Return _Count + End Function +#Region "OldCodes" + 'Private Sub LoadTables_To_MySQL(_uow As UnitOfWork, _DBCLogin As DBCLogin) + ' Dim _conn_mysql_tables As MySql.Data.MySqlClient.MySqlConnection = Nothing + ' Dim _cmd_mysql_tables As New MySql.Data.MySqlClient.MySqlCommand + ' Dim _dr_mysql_tables As MySql.Data.MySqlClient.MySqlDataReader + + ' Dim _conn_mysql_columns As MySql.Data.MySqlClient.MySqlConnection = Nothing + ' Dim _cmd_mysql_columns As New MySql.Data.MySqlClient.MySqlCommand + ' Dim _dr_mysql_columns As MySql.Data.MySqlClient.MySqlDataReader + + ' Dim _connstr As String = "" + ' Dim _SQLQuery As String = "" + ' Dim _DBCTables As DBCTables + ' Dim _DBCColumns As DBCColumns + + ' Try + ' '//Server=myServerAddress;Port=1234;Database=myDataBase;Uid=myUsername;Pwd=myPassword + ' _connstr = " Uid=" & _DBCLogin.SQLUser_To & "; " + ' _connstr &= " Pwd=" & _DBCLogin.SQLPassword_To & ";" + ' _connstr &= " Server=" & _DBCLogin.SQLServer_To.Split(",")(0) & ";" + ' _connstr &= " Port=" & _DBCLogin.SQLServer_To.Split(",")(1) & ";" + ' _connstr &= " Database=" & _DBCLogin.SQLDatabase_To + + ' _conn_mysql_tables = New MySql.Data.MySqlClient.MySqlConnection(_connstr) + + ' _conn_mysql_tables.Open() + + ' _SQLQuery = "SELECT * FROM information_schema.TABLES WHERE TABLE_TYPE='BASE TABLE' and TABLE_SCHEMA='" & _DBCLogin.SQLDatabase_To & "'" + + ' If _conn_mysql_tables.State = ConnectionState.Open Then + ' _cmd_mysql_tables.CommandTimeout = 60 + ' _cmd_mysql_tables.Connection = _conn_mysql_tables + ' _cmd_mysql_tables.CommandType = CommandType.Text + ' _cmd_mysql_tables.CommandText = _SQLQuery + ' _dr_mysql_tables = _cmd_mysql_tables.ExecuteReader(CommandBehavior.SingleResult) + + ' _WaitFormClass.InitWork(1, 1, _DBCLogin.DBCTables_From.Count) + ' While _dr_mysql_tables.Read + ' _WaitFormClass.DoWork() + + ' _DBCTables = New DBCTables(_uow) + ' _DBCTables.DBCLogin = _DBCLogin + ' _DBCTables.DBCType = 1 + ' _DBCTables.TableName = _dr_mysql_tables("TABLE_NAME") + ' _DBCTables.DBCTableCount = SelectCountMySql(_DBCTables) + + ' _conn_mysql_columns = New MySql.Data.MySqlClient.MySqlConnection(_connstr) + ' _conn_mysql_columns.Open() + + ' _SQLQuery = "SELECT * FROM information_schema.COLUMNS where TABLE_NAME='" & _dr_mysql_tables("TABLE_NAME").ToString & "' and TABLE_SCHEMA='" & _DBCLogin.SQLDatabase_To & "'" + + ' If _conn_mysql_columns.State = ConnectionState.Open Then + ' _cmd_mysql_columns.CommandTimeout = 60 + ' _cmd_mysql_columns.Connection = _conn_mysql_columns + ' _cmd_mysql_columns.CommandType = CommandType.Text + ' _cmd_mysql_columns.CommandText = _SQLQuery + ' _dr_mysql_columns = _cmd_mysql_columns.ExecuteReader(CommandBehavior.SingleResult) + + + ' While _dr_mysql_columns.Read + ' _DBCColumns = New DBCColumns(_uow) + ' _DBCColumns.DBCTables = _DBCTables + ' _DBCColumns.ColumnName = _dr_mysql_columns("COLUMN_NAME").ToString + ' _DBCColumns.ColumnType = _dr_mysql_columns("DATA_TYPE").ToString + ' _DBCColumns.ColumnLength = _dr_mysql_columns("COLUMN_TYPE").ToString + ' End While + ' _conn_mysql_columns.Close() + + ' End If + ' End While + ' _uow.CommitChanges() + ' _WaitFormClass.Finalwork + ' _conn_mysql_tables.Close() + ' End If + ' Catch ex As Exception + ' MsgBox(ex.Message) + ' Finally + + ' End Try + 'End Sub + 'Private Sub LoadTables_To_PgSQL(_uow As UnitOfWork, _DBCLogin As DBCLogin) + ' Dim _conn_pgsql_tables As Npgsql.NpgsqlConnection + ' Dim _cmd_pgsql_tables As Npgsql.NpgsqlCommand + ' Dim _dr_pgsql_tables As Npgsql.NpgsqlDataReader + + ' Dim _conn_pgsql_columns As Npgsql.NpgsqlConnection + ' Dim _cmd_pgsql_columns As New Npgsql.NpgsqlCommand + ' Dim _dr_pgsql_columns As Npgsql.NpgsqlDataReader + + ' Dim _connstr As String = "" + ' Dim _SQLQuery As String = "" + ' Dim _DBCTables As DBCTables + ' Dim _DBCColumns As DBCColumns + + ' Try + ' 'Server=datacenter;User Id=root;Password=pcl718;Database=molcontrol;Encoding=UNICODE; + ' _connstr = " Server=" & _DBCLogin.SQLServer_To.Split(",")(0) & ";" + ' _connstr &= " User Id=" & _DBCLogin.SQLUser_To & "; " + ' _connstr &= " Password=" & _DBCLogin.SQLPassword_To & ";" + ' _connstr &= " Database=" & _DBCLogin.SQLDatabase_To + + ' _conn_pgsql_tables = New Npgsql.NpgsqlConnection(_connstr) + ' _conn_pgsql_tables.Open() + + ' _SQLQuery = "select * from information_schema.TABLES WHERE TABLE_TYPE='BASE TABLE' and TABLE_SCHEMA='public' and TABLE_CATALOG='" & _DBCLogin.SQLDatabase_To & "'" + + ' If _conn_pgsql_tables.State = ConnectionState.Open Then + ' _cmd_pgsql_tables = New Npgsql.NpgsqlCommand(_SQLQuery, _conn_pgsql_tables) + ' _cmd_pgsql_tables.CommandTimeout = 60 + ' _cmd_pgsql_tables.Connection = _conn_pgsql_tables + ' _cmd_pgsql_tables.CommandType = CommandType.Text + ' _cmd_pgsql_tables.CommandText = _SQLQuery + ' _dr_pgsql_tables = _cmd_pgsql_tables.ExecuteReader(CommandBehavior.SingleResult) + + ' _WaitFormClass.InitWork(1, 1, _DBCLogin.DBCTables_From.Count) + ' While _dr_pgsql_tables.Read + ' _WaitFormClass.DoWork() + + ' _DBCTables = New DBCTables(_uow) + ' _DBCTables.DBCLogin = _DBCLogin + ' _DBCTables.DBCType = 2 + ' _DBCTables.TableName = _dr_pgsql_tables("TABLE_NAME") + ' _DBCTables.DBCTableCount = SelectCountPgSql(_DBCTables) + + ' _conn_pgsql_columns = New Npgsql.NpgsqlConnection(_connstr) + ' _conn_pgsql_columns.Open() + + ' _SQLQuery = "select * from information_schema.COLUMNS where TABLE_NAME='" & _dr_pgsql_tables("TABLE_NAME").ToString & "' and TABLE_CATALOG='" & _DBCLogin.SQLDatabase_To & "'" + + ' If _conn_pgsql_columns.State = ConnectionState.Open Then + ' _cmd_pgsql_columns.CommandTimeout = 60 + ' _cmd_pgsql_columns.Connection = _conn_pgsql_columns + ' _cmd_pgsql_columns.CommandType = CommandType.Text + ' _cmd_pgsql_columns.CommandText = _SQLQuery + ' _dr_pgsql_columns = _cmd_pgsql_columns.ExecuteReader(CommandBehavior.SingleResult) + + + ' While _dr_pgsql_columns.Read + ' _DBCColumns = New DBCColumns(_uow) + ' _DBCColumns.DBCTables = _DBCTables + ' _DBCColumns.ColumnName = _dr_pgsql_columns("COLUMN_NAME").ToString + ' _DBCColumns.ColumnType = _dr_pgsql_columns("DATA_TYPE").ToString + + ' 'If _DBCColumns.ColumnType = "character" Then + ' ' _DBCColumns.ColumnLength = _dr_pgsql_columns("CHARACTER_MAXIMUM_LENGTH").ToString + ' 'End If + ' 'If _DBCColumns.ColumnType = "integer" Or _DBCColumns.ColumnType = "double precision" Then + ' ' _DBCColumns.ColumnLength = _dr_pgsql_columns("NUMERIC_PRECISION").ToString + ' 'End If + ' End While + ' _conn_pgsql_columns.Close() + + ' End If + ' End While + ' _uow.CommitChanges() + ' _WaitFormClass.Finalwork + ' _conn_pgsql_tables.Close() + ' End If + ' Catch ex As Exception + ' MsgBox(ex.Message) + ' Finally + + ' End Try + 'End Sub +#End Region +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCLogin.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCLogin.vb new file mode 100644 index 0000000..49e8cce --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCLogin.vb @@ -0,0 +1,168 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DBCLogin + Inherits BaseObject + + Private _ShortName As String + + Private _SQLType_From As eSQLType + Private _SQLServer_From As String + Private _SQLUser_From As String + Private _SQLPassword_From As String + Private _SQLDatabase_From As String + + Private _SQLType_To As eSQLType + Private _SQLServer_To As String + Private _SQLUser_To As String + Private _SQLPassword_To As String + Private _SQLDatabase_To As String + + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property SQLType_From As eSQLType + Get + Return _SQLType_From + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType_From", _SQLType_From, value) + End Set + End Property + Property SQLServer_From As String + Get + Return _SQLServer_From + End Get + Set(value As String) + SetPropertyValue("SQLServer_From", _SQLServer_From, value) + End Set + End Property + Property SQLUser_From As String + Get + Return _SQLUser_From + End Get + Set(value As String) + SetPropertyValue("SQLUser_From", _SQLUser_From, value) + End Set + End Property + Property SQLPassword_From As String + Get + Return _SQLPassword_From + End Get + Set(value As String) + SetPropertyValue("SQLPassword_From", _SQLPassword_From, value) + End Set + End Property + Property SQLDatabase_From As String + Get + Return _SQLDatabase_From + End Get + Set(value As String) + SetPropertyValue("SQLDatabase_From", _SQLDatabase_From, value) + End Set + End Property + + Property SQLType_To As eSQLType + Get + Return _SQLType_To + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType_To", _SQLType_To, value) + End Set + End Property + Property SQLServer_To As String + Get + Return _SQLServer_To + End Get + Set(value As String) + SetPropertyValue("SQLServer_To", _SQLServer_To, value) + End Set + End Property + Property SQLUser_To As String + Get + Return _SQLUser_To + End Get + Set(value As String) + SetPropertyValue("SQLUser_To", _SQLUser_To, value) + End Set + End Property + Property SQLPassword_To As String + Get + Return _SQLPassword_To + End Get + Set(value As String) + SetPropertyValue("SQLPassword_To", _SQLPassword_To, value) + End Set + End Property + Property SQLDatabase_To As String + Get + Return _SQLDatabase_To + End Get + Set(value As String) + SetPropertyValue("SQLDatabase_To", _SQLDatabase_To, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + '//XPCollections + _ + ReadOnly Property DBCTables_From As XPCollection(Of DBCTables) + Get + Return New XPCollection(Of DBCTables)(Session, CriteriaOperator.Parse("DBCLogin=? and DBCType=0", Me)) + End Get + End Property + _ + ReadOnly Property DBCTables_To As XPCollection(Of DBCTables) + Get + Return New XPCollection(Of DBCTables)(Session, CriteriaOperator.Parse("DBCLogin=? and DBCType=1", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCTables.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCTables.vb new file mode 100644 index 0000000..bd9b800 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/DB Convert/DBCTables.vb @@ -0,0 +1,87 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DBCTables + Inherits BaseObject + + Private _DBCType As Long + Private _DBCLogin As DBCLogin + Private _TableName As String + Private _CreateScript As String + Private _DropScript As String + Private _DBCTableCount As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property DBCType As Long + Get + Return _DBCType + End Get + Set(value As Long) + SetPropertyValue("DBCType", _DBCType, value) + End Set + End Property + Property DBCLogin As DBCLogin + Get + Return _DBCLogin + End Get + Set(value As DBCLogin) + SetPropertyValue("DBCLogin", _DBCLogin, value) + End Set + End Property + _ + Property TableName As String + Get + Return _TableName + End Get + Set(value As String) + SetPropertyValue("TableName", _TableName, value) + End Set + End Property + _ + Property CreateScript As String + Get + Return _CreateScript + End Get + Set(value As String) + SetPropertyValue("CreateScript", _CreateScript, value) + End Set + End Property + _ + Property DropScript As String + Get + Return _DropScript + End Get + Set(value As String) + SetPropertyValue("DropScript", _DropScript, value) + End Set + End Property + Property DBCTableCount As Long + Get + Return _DBCTableCount + End Get + Set(value As Long) + SetPropertyValue("DBCTableCount", _DBCTableCount, value) + End Set + End Property + + _ + ReadOnly Property DBCColumns As XPCollection(Of DBCColumns) + Get + Return New XPCollection(Of DBCColumns)(Session, CriteriaOperator.Parse("DBCTables=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.Designer.vb new file mode 100644 index 0000000..36725b2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.Designer.vb @@ -0,0 +1,82 @@ + _ +Partial Class ImportsForm + Inherits DevExpress.XtraEditors.XtraForm + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'ProgressBarControl1 + ' + Me.ProgressBarControl1.EditValue = "0" + Me.ProgressBarControl1.Location = New System.Drawing.Point(13, 28) + Me.ProgressBarControl1.Name = "ProgressBarControl1" + Me.ProgressBarControl1.Size = New System.Drawing.Size(382, 24) + Me.ProgressBarControl1.StyleController = Me.StyleController1 + Me.ProgressBarControl1.TabIndex = 0 + Me.ProgressBarControl1.UseWaitCursor = True + ' + 'LabelControl1 + ' + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte)) + Me.LabelControl1.Location = New System.Drawing.Point(13, 9) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(85, 13) + Me.LabelControl1.TabIndex = 1 + Me.LabelControl1.Text = "Adatgenerálás ..." + ' + 'LabelControl2 + ' + Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte)) + Me.LabelControl2.Location = New System.Drawing.Point(13, 58) + Me.LabelControl2.Name = "LabelControl2" + Me.LabelControl2.Size = New System.Drawing.Size(95, 13) + Me.LabelControl2.TabIndex = 2 + Me.LabelControl2.Text = "Adatgenerálás ..." + Me.LabelControl2.Visible = False + ' + 'ImportsForm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(407, 83) + Me.Controls.Add(Me.LabelControl2) + Me.Controls.Add(Me.LabelControl1) + Me.Controls.Add(Me.ProgressBarControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "ImportsForm" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.TopMost = True + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.resx new file mode 100644 index 0000000..3944946 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.vb new file mode 100644 index 0000000..6d93cf6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm.vb @@ -0,0 +1,12 @@ +Public Class ImportsForm + WriteOnly Property SetMessage(_Message As String) + Set(value) + Me.LabelControl2.Text = value + Me.LabelControl2.Visible = True + End Set + End Property + + Private Sub ImportsForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Me.LabelControl2.Visible = False + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.Designer.vb new file mode 100644 index 0000000..5f7a934 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.Designer.vb @@ -0,0 +1,94 @@ + _ +Partial Class ImportsForm2 + Inherits DevExpress.XtraEditors.XtraForm + + 'Form overrides dispose to clean up the component list. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.ProgressBarControl2 = New DevExpress.XtraEditors.ProgressBarControl() + Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl() + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ProgressBarControl2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'ProgressBarControl1 + ' + Me.ProgressBarControl1.EditValue = "0" + Me.ProgressBarControl1.Location = New System.Drawing.Point(13, 28) + Me.ProgressBarControl1.Name = "ProgressBarControl1" + Me.ProgressBarControl1.Size = New System.Drawing.Size(373, 24) + Me.ProgressBarControl1.StyleController = Me.StyleController1 + Me.ProgressBarControl1.TabIndex = 0 + Me.ProgressBarControl1.UseWaitCursor = True + ' + 'LabelControl1 + ' + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte)) + Me.LabelControl1.Location = New System.Drawing.Point(13, 9) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(85, 13) + Me.LabelControl1.TabIndex = 1 + Me.LabelControl1.Text = "Adatgenerálás ..." + ' + 'ProgressBarControl2 + ' + Me.ProgressBarControl2.Location = New System.Drawing.Point(13, 77) + Me.ProgressBarControl2.Name = "ProgressBarControl2" + Me.ProgressBarControl2.Size = New System.Drawing.Size(373, 24) + Me.ProgressBarControl2.StyleController = Me.StyleController1 + Me.ProgressBarControl2.TabIndex = 3 + ' + 'LabelControl2 + ' + Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte)) + Me.LabelControl2.Location = New System.Drawing.Point(13, 58) + Me.LabelControl2.Name = "LabelControl2" + Me.LabelControl2.Size = New System.Drawing.Size(85, 13) + Me.LabelControl2.TabIndex = 4 + Me.LabelControl2.Text = "Adatgenerálás ..." + ' + 'ImportsForm2 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(398, 125) + Me.Controls.Add(Me.LabelControl2) + Me.Controls.Add(Me.ProgressBarControl2) + Me.Controls.Add(Me.LabelControl1) + Me.Controls.Add(Me.ProgressBarControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "ImportsForm2" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.TopMost = True + CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ProgressBarControl2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents ProgressBarControl2 As DevExpress.XtraEditors.ProgressBarControl + Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.resx new file mode 100644 index 0000000..3944946 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.vb new file mode 100644 index 0000000..57b2bab --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/ImportsForm2.vb @@ -0,0 +1,13 @@ +Public Class ImportsForm2 + WriteOnly Property SetMessage(_Message As String) + Set(value) + Me.LabelControl2.Text = value + Me.LabelControl2.Visible = True + End Set + End Property + + Private Sub ImportsForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Me.LabelControl2.Visible = True + End Sub + +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImports.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImports.vb new file mode 100644 index 0000000..100c417 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImports.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class SQLImports + Inherits BaseObject + Private _SQLServer As String + Private _SQLUser As String + Private _SQLPassword As String + Private _CustomersFrom As CustomersFrom + Private _DateFrom As Date + Private _DateTo As Date + Private _Override As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property SQLServer As String + Get + Return _SQLServer + End Get + Set(ByVal value As String) + SetPropertyValue("SQLServer", _SQLServer, value) + End Set + End Property + Property SQLUser As String + Get + Return _SQLUser + End Get + Set(ByVal value As String) + SetPropertyValue("SQLUser", _SQLUser, value) + End Set + End Property + Property SQLPassword As String + Get + Return _SQLPassword + End Get + Set(ByVal value As String) + SetPropertyValue("SQLPassword", _SQLPassword, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + Property Override As Boolean + Get + Return _Override + End Get + Set(value As Boolean) + SetPropertyValue("Override", _Override, value) + End Set + End Property + _ + ReadOnly Property BankInformation As XPCollection(Of BankInformation) + Get + Return New XPCollection(Of BankInformation)(Session, CriteriaOperator.Parse("LiquidAssests.CustomerFrom=?", Me.CustomersFrom)) + End Get + End Property + _ + ReadOnly Property LiquidAssets_Cassa As XPCollection(Of LiquidAssets) + Get + Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType in (0,2,4)")) + End Get + End Property + _ + ReadOnly Property LiquidAssets_Compensation As XPCollection(Of LiquidAssets) + Get + Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType=3")) + End Get + End Property + _ + ReadOnly Property LiquidAssets_SpecTran As XPCollection(Of LiquidAssets) + Get + Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType=5")) + End Get + End Property + +End Class + diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.Designer.vb new file mode 100644 index 0000000..695140a --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.Designer.vb @@ -0,0 +1,528 @@ +Partial Class SQLImportsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Import_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Country = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Controlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Procucts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Storage = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_ChartsOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_CustomersGLParameters = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_LiquidAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_GL = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_ProcuctsGroups = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Invoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_UniqueObject = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Invoices_Business = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_CostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_CostPlace = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.JobNumberObject = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_GCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_SpecTran = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Contacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_GCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_HRPerson = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Circulation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Operations = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Offers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aScriptUpdate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_Pricing = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'Import_Customers + ' + Me.Import_Customers.Caption = "Import_Customers" + Me.Import_Customers.Category = "Import_Customers" + Me.Import_Customers.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Customers.Id = "Import_Customers" + Me.Import_Customers.ImageName = Nothing + Me.Import_Customers.Shortcut = Nothing + Me.Import_Customers.Tag = Nothing + Me.Import_Customers.TargetObjectsCriteria = Nothing + Me.Import_Customers.TargetViewId = "SQLImports_DetailView" + Me.Import_Customers.ToolTip = Nothing + Me.Import_Customers.TypeOfView = Nothing + ' + 'Import_Country + ' + Me.Import_Country.Caption = "Import_Country" + Me.Import_Country.Category = "Import_Country" + Me.Import_Country.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Country.Id = "Import_Country" + Me.Import_Country.ImageName = Nothing + Me.Import_Country.Shortcut = Nothing + Me.Import_Country.Tag = Nothing + Me.Import_Country.TargetObjectsCriteria = Nothing + Me.Import_Country.TargetViewId = "SQLImports_DetailView" + Me.Import_Country.ToolTip = Nothing + Me.Import_Country.TypeOfView = Nothing + ' + 'Import_Controlling + ' + Me.Import_Controlling.Caption = "Import_Controlling" + Me.Import_Controlling.Category = "Import_Controlling" + Me.Import_Controlling.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Controlling.Id = "Import_Controlling" + Me.Import_Controlling.ImageName = Nothing + Me.Import_Controlling.Shortcut = Nothing + Me.Import_Controlling.Tag = Nothing + Me.Import_Controlling.TargetObjectsCriteria = Nothing + Me.Import_Controlling.TargetViewId = "SQLImports_DetailView" + Me.Import_Controlling.ToolTip = Nothing + Me.Import_Controlling.TypeOfView = Nothing + ' + 'Import_Procucts + ' + Me.Import_Procucts.Caption = "Import_Procucts" + Me.Import_Procucts.Category = "Import_Procucts" + Me.Import_Procucts.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Procucts.Id = "Import_Procucts" + Me.Import_Procucts.ImageName = Nothing + Me.Import_Procucts.Shortcut = Nothing + Me.Import_Procucts.Tag = Nothing + Me.Import_Procucts.TargetObjectsCriteria = Nothing + Me.Import_Procucts.TargetViewId = "SQLImports_DetailView" + Me.Import_Procucts.ToolTip = Nothing + Me.Import_Procucts.TypeOfView = Nothing + ' + 'Import_Storage + ' + Me.Import_Storage.Caption = "Import_Storage" + Me.Import_Storage.Category = "Import_Storage" + Me.Import_Storage.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Storage.Id = "Import_Storage" + Me.Import_Storage.ImageName = Nothing + Me.Import_Storage.Shortcut = Nothing + Me.Import_Storage.Tag = Nothing + Me.Import_Storage.TargetObjectsCriteria = Nothing + Me.Import_Storage.TargetViewId = "SQLImports_DetailView" + Me.Import_Storage.ToolTip = Nothing + Me.Import_Storage.TypeOfView = Nothing + ' + 'Import_ChartsOfAccounts + ' + Me.Import_ChartsOfAccounts.Caption = "Import_ChartsOfAccounts" + Me.Import_ChartsOfAccounts.Category = "Import_ChartsOfAccounts" + Me.Import_ChartsOfAccounts.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_ChartsOfAccounts.Id = "Import_ChartsOfAccounts" + Me.Import_ChartsOfAccounts.ImageName = Nothing + Me.Import_ChartsOfAccounts.Shortcut = Nothing + Me.Import_ChartsOfAccounts.Tag = Nothing + Me.Import_ChartsOfAccounts.TargetObjectsCriteria = Nothing + Me.Import_ChartsOfAccounts.TargetViewId = "SQLImports_DetailView" + Me.Import_ChartsOfAccounts.ToolTip = Nothing + Me.Import_ChartsOfAccounts.TypeOfView = Nothing + ' + 'Import_CustomersGLParameters + ' + Me.Import_CustomersGLParameters.Caption = "Import_CustomersGLParameters" + Me.Import_CustomersGLParameters.Category = "Import_CustomersGLParameters" + Me.Import_CustomersGLParameters.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_CustomersGLParameters.Id = "Import_CustomersGLParameters" + Me.Import_CustomersGLParameters.ImageName = Nothing + Me.Import_CustomersGLParameters.Shortcut = Nothing + Me.Import_CustomersGLParameters.Tag = Nothing + Me.Import_CustomersGLParameters.TargetObjectsCriteria = Nothing + Me.Import_CustomersGLParameters.TargetViewId = "SQLImports_DetailView" + Me.Import_CustomersGLParameters.ToolTip = Nothing + Me.Import_CustomersGLParameters.TypeOfView = Nothing + ' + 'Import_LiquidAssets + ' + Me.Import_LiquidAssets.Caption = "Import_LiquidAssets" + Me.Import_LiquidAssets.Category = "Import_LiquidAssets" + Me.Import_LiquidAssets.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_LiquidAssets.Id = "Import_LiquidAssets" + Me.Import_LiquidAssets.ImageName = Nothing + Me.Import_LiquidAssets.Shortcut = Nothing + Me.Import_LiquidAssets.Tag = Nothing + Me.Import_LiquidAssets.TargetObjectsCriteria = Nothing + Me.Import_LiquidAssets.TargetViewId = "SQLImports_DetailView" + Me.Import_LiquidAssets.ToolTip = Nothing + Me.Import_LiquidAssets.TypeOfView = Nothing + ' + 'Import_VAT + ' + Me.Import_VAT.Caption = "Import_VAT" + Me.Import_VAT.Category = "Import_VAT" + Me.Import_VAT.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_VAT.Id = "Import_VAT" + Me.Import_VAT.ImageName = Nothing + Me.Import_VAT.Shortcut = Nothing + Me.Import_VAT.Tag = Nothing + Me.Import_VAT.TargetObjectsCriteria = Nothing + Me.Import_VAT.TargetViewId = "SQLImports_DetailView" + Me.Import_VAT.ToolTip = Nothing + Me.Import_VAT.TypeOfView = Nothing + ' + 'Import_GL + ' + Me.Import_GL.Caption = "Import_GL" + Me.Import_GL.Category = "Import_GL" + Me.Import_GL.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_GL.Id = "Import_GL" + Me.Import_GL.ImageName = Nothing + Me.Import_GL.Shortcut = Nothing + Me.Import_GL.Tag = Nothing + Me.Import_GL.TargetObjectsCriteria = Nothing + Me.Import_GL.TargetViewId = "SQLImports_DetailView" + Me.Import_GL.ToolTip = Nothing + Me.Import_GL.TypeOfView = Nothing + ' + 'Import_ProcuctsGroups + ' + Me.Import_ProcuctsGroups.Caption = "Import Procucts Groups" + Me.Import_ProcuctsGroups.Category = "Import_ProcuctsGroups" + Me.Import_ProcuctsGroups.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_ProcuctsGroups.Id = "Import_ProcuctsGroups" + Me.Import_ProcuctsGroups.ImageName = Nothing + Me.Import_ProcuctsGroups.Shortcut = Nothing + Me.Import_ProcuctsGroups.Tag = Nothing + Me.Import_ProcuctsGroups.TargetObjectsCriteria = Nothing + Me.Import_ProcuctsGroups.TargetViewId = "SQLImports_DetailView" + Me.Import_ProcuctsGroups.ToolTip = Nothing + Me.Import_ProcuctsGroups.TypeOfView = Nothing + ' + 'Import_Invoices + ' + Me.Import_Invoices.Caption = "Import invoices" + Me.Import_Invoices.Category = "Import_Invoices" + Me.Import_Invoices.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Invoices.Id = "Import_Invoices" + Me.Import_Invoices.ImageName = "document_lock" + Me.Import_Invoices.Shortcut = Nothing + Me.Import_Invoices.Tag = Nothing + Me.Import_Invoices.TargetObjectsCriteria = Nothing + Me.Import_Invoices.TargetViewId = "SQLImports_DetailView" + Me.Import_Invoices.ToolTip = Nothing + Me.Import_Invoices.TypeOfView = Nothing + ' + 'Import_UniqueObject + ' + Me.Import_UniqueObject.Caption = "Import_UniqueObject" + Me.Import_UniqueObject.Category = "Import_UniqueObject" + Me.Import_UniqueObject.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_UniqueObject.Id = "Import_UniqueObject" + Me.Import_UniqueObject.ImageName = Nothing + Me.Import_UniqueObject.Shortcut = Nothing + Me.Import_UniqueObject.Tag = Nothing + Me.Import_UniqueObject.TargetObjectsCriteria = Nothing + Me.Import_UniqueObject.TargetViewId = "SQLImports_DetailView" + Me.Import_UniqueObject.ToolTip = Nothing + Me.Import_UniqueObject.TypeOfView = Nothing + ' + 'Import_Invoices_Business + ' + Me.Import_Invoices_Business.Caption = "Import invoices" + Me.Import_Invoices_Business.Category = "Import_Invoices" + Me.Import_Invoices_Business.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Invoices_Business.Id = "Import_Invoices_Business" + Me.Import_Invoices_Business.ImageName = "document_lock" + Me.Import_Invoices_Business.Shortcut = Nothing + Me.Import_Invoices_Business.Tag = Nothing + Me.Import_Invoices_Business.TargetObjectsCriteria = Nothing + Me.Import_Invoices_Business.TargetViewId = "SQLImports_DetailView" + Me.Import_Invoices_Business.ToolTip = Nothing + Me.Import_Invoices_Business.TypeOfView = Nothing + ' + 'Import_GLAccounts + ' + Me.Import_GLAccounts.Caption = "Import_GLAccounts" + Me.Import_GLAccounts.Category = "Import_GL" + Me.Import_GLAccounts.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_GLAccounts.Id = "Import_GLAccounts" + Me.Import_GLAccounts.ImageName = Nothing + Me.Import_GLAccounts.Shortcut = Nothing + Me.Import_GLAccounts.Tag = Nothing + Me.Import_GLAccounts.TargetObjectsCriteria = Nothing + Me.Import_GLAccounts.TargetViewId = "SQLImports_DetailView" + Me.Import_GLAccounts.ToolTip = Nothing + Me.Import_GLAccounts.TypeOfView = Nothing + ' + 'Import_CostHolder + ' + Me.Import_CostHolder.Caption = "Import_CostHolder" + Me.Import_CostHolder.Category = "Import_CostHolder" + Me.Import_CostHolder.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_CostHolder.Id = "Import_CostHolder" + Me.Import_CostHolder.ImageName = Nothing + Me.Import_CostHolder.Shortcut = Nothing + Me.Import_CostHolder.Tag = Nothing + Me.Import_CostHolder.TargetObjectsCriteria = Nothing + Me.Import_CostHolder.TargetViewId = "SQLImports_DetailView" + Me.Import_CostHolder.ToolTip = Nothing + Me.Import_CostHolder.TypeOfView = Nothing + ' + 'Import_CostPlace + ' + Me.Import_CostPlace.Caption = "Import_CostPlace" + Me.Import_CostPlace.Category = "Import_CostPlace" + Me.Import_CostPlace.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_CostPlace.Id = "Import_CostPlace" + Me.Import_CostPlace.ImageName = Nothing + Me.Import_CostPlace.Shortcut = Nothing + Me.Import_CostPlace.Tag = Nothing + Me.Import_CostPlace.TargetObjectsCriteria = Nothing + Me.Import_CostPlace.TargetViewId = "SQLImports_DetailView" + Me.Import_CostPlace.ToolTip = Nothing + Me.Import_CostPlace.TypeOfView = Nothing + ' + 'JobNumberObject + ' + Me.JobNumberObject.Caption = "Import_JobNumberObject" + Me.JobNumberObject.Category = "Import_JobNumberObject" + Me.JobNumberObject.ConfirmationMessage = "Do you want to execute command ?" + Me.JobNumberObject.Id = "Import_JobNumberObject" + Me.JobNumberObject.ImageName = Nothing + Me.JobNumberObject.Shortcut = Nothing + Me.JobNumberObject.Tag = Nothing + Me.JobNumberObject.TargetObjectsCriteria = Nothing + Me.JobNumberObject.TargetViewId = "SQLImports_DetailView" + Me.JobNumberObject.ToolTip = Nothing + Me.JobNumberObject.TypeOfView = Nothing + ' + 'Import_GLBank + ' + Me.Import_GLBank.Caption = "Import Bank" + Me.Import_GLBank.Category = "Import_GLBank" + Me.Import_GLBank.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_GLBank.Id = "Import_GLBank" + Me.Import_GLBank.ImageName = Nothing + Me.Import_GLBank.Shortcut = Nothing + Me.Import_GLBank.Tag = Nothing + Me.Import_GLBank.TargetObjectsCriteria = Nothing + Me.Import_GLBank.TargetViewId = "SQLImports_DetailView" + Me.Import_GLBank.ToolTip = Nothing + Me.Import_GLBank.TypeOfView = Nothing + ' + 'Import_GCassa + ' + Me.Import_GCassa.Caption = "Import cassa" + Me.Import_GCassa.Category = "Import_GCassa" + Me.Import_GCassa.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_GCassa.Id = "Import_GCassa" + Me.Import_GCassa.ImageName = Nothing + Me.Import_GCassa.Shortcut = Nothing + Me.Import_GCassa.Tag = Nothing + Me.Import_GCassa.TargetObjectsCriteria = Nothing + Me.Import_GCassa.TargetViewId = "SQLImports_DetailView" + Me.Import_GCassa.ToolTip = Nothing + Me.Import_GCassa.TypeOfView = Nothing + ' + 'Import_SpecTran + ' + Me.Import_SpecTran.Caption = "Import spec tran." + Me.Import_SpecTran.Category = "Import_GCassa" + Me.Import_SpecTran.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_SpecTran.Id = "Import_SpecTran" + Me.Import_SpecTran.ImageName = Nothing + Me.Import_SpecTran.Shortcut = Nothing + Me.Import_SpecTran.Tag = Nothing + Me.Import_SpecTran.TargetObjectsCriteria = Nothing + Me.Import_SpecTran.TargetViewId = "SQLImports_DetailView" + Me.Import_SpecTran.ToolTip = Nothing + Me.Import_SpecTran.TypeOfView = Nothing + ' + 'Import_Contacts + ' + Me.Import_Contacts.Caption = "Import_Contacts" + Me.Import_Contacts.Category = "Import_Contacts" + Me.Import_Contacts.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Contacts.Id = "Import_Contacts" + Me.Import_Contacts.ImageName = Nothing + Me.Import_Contacts.Shortcut = Nothing + Me.Import_Contacts.Tag = Nothing + Me.Import_Contacts.TargetObjectsCriteria = Nothing + Me.Import_Contacts.TargetViewId = "SQLImports_DetailView" + Me.Import_Contacts.ToolTip = Nothing + Me.Import_Contacts.TypeOfView = Nothing + ' + 'Import_GCompensation + ' + Me.Import_GCompensation.Caption = "Import cassa" + Me.Import_GCompensation.Category = "Import_GCompensation" + Me.Import_GCompensation.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_GCompensation.Id = "Import_GCompensation" + Me.Import_GCompensation.ImageName = Nothing + Me.Import_GCompensation.Shortcut = Nothing + Me.Import_GCompensation.Tag = Nothing + Me.Import_GCompensation.TargetObjectsCriteria = Nothing + Me.Import_GCompensation.TargetViewId = "SQLImports_DetailView" + Me.Import_GCompensation.ToolTip = Nothing + Me.Import_GCompensation.TypeOfView = Nothing + ' + 'Import_HRPerson + ' + Me.Import_HRPerson.Caption = "Import_HRPerson" + Me.Import_HRPerson.Category = "Import_HRPerson" + Me.Import_HRPerson.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_HRPerson.Id = "Import_HRPerson" + Me.Import_HRPerson.ImageName = Nothing + Me.Import_HRPerson.Shortcut = Nothing + Me.Import_HRPerson.Tag = Nothing + Me.Import_HRPerson.TargetObjectsCriteria = Nothing + Me.Import_HRPerson.TargetViewId = "SQLImports_DetailView" + Me.Import_HRPerson.ToolTip = Nothing + Me.Import_HRPerson.TypeOfView = Nothing + ' + 'Import_OrderOut + ' + Me.Import_OrderOut.Caption = "Import_OrderOut" + Me.Import_OrderOut.Category = "Import_OrderOut" + Me.Import_OrderOut.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_OrderOut.Id = "Import_OrderOut" + Me.Import_OrderOut.ImageName = Nothing + Me.Import_OrderOut.Shortcut = Nothing + Me.Import_OrderOut.Tag = Nothing + Me.Import_OrderOut.TargetObjectsCriteria = Nothing + Me.Import_OrderOut.TargetViewId = "SQLImports_DetailView" + Me.Import_OrderOut.ToolTip = Nothing + Me.Import_OrderOut.TypeOfView = Nothing + ' + 'Import_Circulation + ' + Me.Import_Circulation.Caption = "Import_Circulation" + Me.Import_Circulation.Category = "Import_Circulation" + Me.Import_Circulation.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Circulation.Id = "Import_Circulation" + Me.Import_Circulation.ImageName = Nothing + Me.Import_Circulation.Shortcut = Nothing + Me.Import_Circulation.Tag = Nothing + Me.Import_Circulation.TargetObjectsCriteria = Nothing + Me.Import_Circulation.TargetViewId = "SQLImports_DetailView" + Me.Import_Circulation.ToolTip = Nothing + Me.Import_Circulation.TypeOfView = Nothing + ' + 'Import_Operations + ' + Me.Import_Operations.Caption = "Import_Operations" + Me.Import_Operations.Category = "" + Me.Import_Operations.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Operations.Id = "Import_Operations" + Me.Import_Operations.ImageName = Nothing + Me.Import_Operations.Shortcut = Nothing + Me.Import_Operations.Tag = Nothing + Me.Import_Operations.TargetObjectsCriteria = Nothing + Me.Import_Operations.TargetViewId = "SQLImports_DetailView" + Me.Import_Operations.ToolTip = Nothing + Me.Import_Operations.TypeOfView = Nothing + ' + 'Import_Offers + ' + Me.Import_Offers.Caption = "Import_Offers" + Me.Import_Offers.Category = "Import_Offers" + Me.Import_Offers.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Offers.Id = "Import_Offers" + Me.Import_Offers.ImageName = Nothing + Me.Import_Offers.Shortcut = Nothing + Me.Import_Offers.Tag = Nothing + Me.Import_Offers.TargetObjectsCriteria = Nothing + Me.Import_Offers.TargetViewId = "SQLImports_DetailView" + Me.Import_Offers.ToolTip = Nothing + Me.Import_Offers.TypeOfView = Nothing + ' + 'aScriptUpdate + ' + Me.aScriptUpdate.Caption = "aScript Update" + Me.aScriptUpdate.ConfirmationMessage = Nothing + Me.aScriptUpdate.Id = "aScriptUpdate" + Me.aScriptUpdate.ImageName = Nothing + Me.aScriptUpdate.Shortcut = Nothing + Me.aScriptUpdate.Tag = Nothing + Me.aScriptUpdate.TargetObjectsCriteria = Nothing + Me.aScriptUpdate.TargetViewId = "SQLImports_DetailView" + Me.aScriptUpdate.ToolTip = Nothing + Me.aScriptUpdate.TypeOfView = Nothing + ' + 'Import_OrderIn + ' + Me.Import_OrderIn.Caption = "Import_OrderIn" + Me.Import_OrderIn.Category = "Import_OrderIn" + Me.Import_OrderIn.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_OrderIn.Id = "Import_OrderIn" + Me.Import_OrderIn.ImageName = Nothing + Me.Import_OrderIn.Shortcut = Nothing + Me.Import_OrderIn.Tag = Nothing + Me.Import_OrderIn.TargetObjectsCriteria = Nothing + Me.Import_OrderIn.TargetViewId = "SQLImports_DetailView" + Me.Import_OrderIn.ToolTip = Nothing + Me.Import_OrderIn.TypeOfView = Nothing + ' + 'Import_Pricing + ' + Me.Import_Pricing.Caption = "Import_Pricing" + Me.Import_Pricing.Category = "Import_Pricing" + Me.Import_Pricing.ConfirmationMessage = "Do you want to execute command ?" + Me.Import_Pricing.Id = "Import_Pricing" + Me.Import_Pricing.ImageName = Nothing + Me.Import_Pricing.Shortcut = Nothing + Me.Import_Pricing.Tag = Nothing + Me.Import_Pricing.TargetObjectsCriteria = Nothing + Me.Import_Pricing.TargetViewId = "SQLImports_DetailView" + Me.Import_Pricing.ToolTip = Nothing + Me.Import_Pricing.TypeOfView = Nothing + + End Sub + Friend WithEvents Import_Customers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Country As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Controlling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Procucts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Storage As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_ChartsOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_CustomersGLParameters As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_LiquidAssets As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_VAT As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_GL As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_ProcuctsGroups As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Invoices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_UniqueObject As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Invoices_Business As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_CostHolder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_CostPlace As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents JobNumberObject As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_GCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_SpecTran As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Contacts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_GCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_HRPerson As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Circulation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Operations As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Offers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aScriptUpdate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_Pricing As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.resx new file mode 100644 index 0000000..5361868 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.resx @@ -0,0 +1,216 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 157, 54 + + + 743, 54 + + + 199, 128 + + + 17, 165 + + + 809, 165 + + + 629, 165 + + + 415, 165 + + + 262, 165 + + + 150, 165 + + + 805, 128 + + + 636, 128 + + + 503, 128 + + + 344, 128 + + + 17, 128 + + + 699, 91 + + + 553, 91 + + + 414, 91 + + + 274, 91 + + + 145, 91 + + + 17, 91 + + + 605, 54 + + + 471, 54 + + + 301, 54 + + + 17, 54 + + + 805, 17 + + + 536, 17 + + + 390, 17 + + + 268, 17 + + + 147, 17 + + + 17, 17 + + + 680, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb new file mode 100644 index 0000000..fad53b6 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SQL Imports/SQLImportsVC.vb @@ -0,0 +1,3332 @@ +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.Persistent.BaseImpl +Imports System.Data.SqlClient +Imports System.Data.OleDb +Imports System.Configuration +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Public Class SQLImportsVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Dim _Maximum As Long + 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 = "SQLImports_LiquidAssets_Cassa_ListView" Or _ + View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _ + View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _ + View.Id = "SQLImports_BankInformation_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "SQLImports_LiquidAssets_Cassa_ListView" Or _ + View.Id = "SQLImports_LiquidAssets_Compensation_ListView" Or _ + View.Id = "SQLImports_LiquidAssets_SpecTran_ListView" Or _ + View.Id = "SQLImports_BankInformation_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + End If + End Sub + Private Sub Import_Customers_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Customers.Execute + '-- Ügyfelek és a hozzátartozó kapcsolatok importálása + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _Customers As Customers + Dim _CustomersOrder As CustomersOrder + Dim _CustomersFrom As CustomersFrom + Dim _Address As Address + Dim _CountryExtend As CountryExtend + Dim _CustomersGLParameters As CustomersGLParameters + Dim _CustomerBankAccounts As CustomerBankAccounts + + Dim sArray As String() + Dim i As Long + Dim _PhoneNumber As PhoneNumber + + _Maximum = 0 + + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Ügyféltörzs t1 left join " + mSQL = mSQL & " Ügyféltörzs_Kapcsolat t2 on" + mSQL = mSQL & " t1.Ügyfélszám=t2.Ügyfélszám" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select Ügyfélszám=isnull(t1.Ügyfélszám,0),Név=isnull(t1.Név,''),Országjel=isnull(t1.Országjel,'')," + mSQL = mSQL & " Irányítószám=isnull(t1.Irányítószám,''), Város=isnull(t1.Város,''), Utca=isnull(t1.Utca,''), " + mSQL = mSQL & " Bankszámlaszám=isnull(t1.Bankszámlaszám,''),AdószámEU=isnull(t1.AdószámEU,'')," + mSQL = mSQL & " Adószám=isnull(t1.Adószám,''),Leírás=isnull(t3.Leírás,''),Tipus=isnull(t1.Tipus,0)," + mSQL = mSQL & " Beszállító=case when t4.Ügyfélszám is null then 0 else 1 end," + mSQL = mSQL & " Hitelkeret_Összeg=isnull(t1.Hitelkeret_Összeg,0),Hitelkeret_Nap=isnull(t1.Hitelkeret_Nap,0)," + mSQL = mSQL & " Telefon=isnull(t1.Telefon,''),Fax=isnull(t1.Fax,''),EMail=isnull(t1.EMail,''),WEB=isnull(t1.WEB,'')" + + mSQL = mSQL & " from Ügyféltörzs t1 left join " + mSQL = mSQL & " Ügyféltörzs_Kapcsolat t2 on" + mSQL = mSQL & " t1.Ügyfélszám=t2.Ügyfélszám left join Ügyféltörzs_Mode t3 on" + mSQL = mSQL & " t1.Mode=t3.Mode left join " + + mSQL = mSQL & " (select Ügyfélszám=t2.Ügyfélszám" + mSQL = mSQL & " from sql_Main..Rendelés_Lezárt t1 left join sql_Main..vv_Ügyféltörzs_Telephely2 t2 on" + mSQL = mSQL & " t1.Ügyfélszám = t2.Ügyfélszámx10" + mSQL = mSQL & " group by t2.Ügyfélszám) t4 on" + + mSQL = mSQL & " t1.Ügyfélszám=t4.Ügyfélszám" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + If dr("Tipus") = 4 Then + _CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("CustomerNumber=?", CStr(dr("Ügyfélszám"))), True) + If _CustomersFrom Is Nothing Then _CustomersFrom = New CustomersFrom(_uow) + + + _CustomersFrom.CustomerNumber = dr("Ügyfélszám").ToString + _CustomersFrom.Name = dr("Név") + _CustomersFrom.FullName = dr("Név") + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Országjel"))) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca"), TryCast(_CountryExtend, Country))) + If _CustomersFrom.Address1 Is Nothing Then + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString + _Address.ZipPostal = dr("Irányítószám").ToString + _Address.Street = dr("Utca").ToString + + _CustomersFrom.Address1 = _Address + Else + _CustomersFrom.Address1.Country = TryCast(_CountryExtend, Country) + End If + _CustomersFrom.VATNumber = dr("Adószám").ToString + _CustomersFrom.VATNumberEU = dr("AdószámEU").ToString + _CustomersFrom.Email = dr("EMail") + _CustomersFrom.WebSite = dr("WEB") + _CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("ShortName=?", dr("Leírás"))) + + _CustomersFrom.CustomersGLParameters = _CustomersGLParameters + + _CustomersFrom.Save() + Else + If dr("Beszállító") = 1 Then + _CustomersOrder = _uow.FindObject(Of CustomersOrder)(CriteriaOperator.Parse("CustomerNumber=?", CStr(dr("Ügyfélszám"))), True) + If _CustomersOrder Is Nothing Then _CustomersOrder = New CustomersOrder(_uow) + + + _CustomersOrder.CustomerNumber = dr("Ügyfélszám").ToString + _CustomersOrder.Name = dr("Név") + _CustomersOrder.FullName = dr("Név") + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Országjel"))) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca"), TryCast(_CountryExtend, Country))) + If _CustomersOrder.Address1 Is Nothing Then + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString + _Address.ZipPostal = dr("Irányítószám").ToString + _Address.Street = dr("Utca").ToString + + _CustomersOrder.Address1 = _Address + Else + _CustomersOrder.Address1.Country = TryCast(_CountryExtend, Country) + End If + _CustomersOrder.VATNumber = dr("Adószám").ToString + _CustomersOrder.VATNumberEU = dr("AdószámEU").ToString + _CustomersOrder.Email = dr("EMail") + _CustomersOrder.WebSite = dr("WEB") + + _CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("ShortName=?", dr("Leírás"))) + _CustomersOrder.CustomersGLParameters = _CustomersGLParameters + + _CustomersOrder.CreditlineAmountHUF = dr("Hitelkeret_Összeg") + _CustomersOrder.CreditlineDay = dr("Hitelkeret_Nap") + + _CustomersOrder.Save() + + _Customers = TryCast(_CustomersOrder, Customers) + Else + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", CStr(dr("Ügyfélszám"))), True) + If _Customers Is Nothing Then _Customers = New Customers(_uow) + + + _Customers.CustomerNumber = dr("Ügyfélszám").ToString + _Customers.Name = dr("Név") + _Customers.FullName = dr("Név") + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Országjel"))) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca"), TryCast(_CountryExtend, Country))) + If _Customers.Address1 Is Nothing Then + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString + _Address.ZipPostal = dr("Irányítószám").ToString + _Address.Street = dr("Utca").ToString + + _Customers.Address1 = _Address + Else + _Customers.Address1.Country = TryCast(_CountryExtend, Country) + End If + _Customers.VATNumber = dr("Adószám").ToString + _Customers.VATNumberEU = dr("AdószámEU").ToString + _Customers.Email = dr("EMail") + _Customers.WebSite = dr("WEB") + + _CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("ShortName=?", dr("Leírás"))) + + _Customers.CustomersGLParameters = _CustomersGLParameters + _Customers.CreditlineAmountHUF = dr("Hitelkeret_Összeg") + _Customers.CreditlineDay = dr("Hitelkeret_Nap") + + _Customers.Save() + End If + End If + + '_uow.Delete(_Customers.CustomerBankAccounts) + 'If LTrim(RTrim(dr("Bankszámlaszám"))) <> "" Then + ' _CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + ' CriteriaOperator.Parse("AccountNumber=? and Customers.Oid=?", dr("Bankszámlaszám"), _Customers.Oid)) + ' If _CustomerBankAccounts Is Nothing Then + ' _CustomerBankAccounts = New CustomerBankAccounts(_uow) + ' _CustomerBankAccounts.Customers = _Customers + ' _CustomerBankAccounts.AccountNumber = dr("Bankszámlaszám") + ' End If + 'End If + '_uow.Delete(_Customers.PhoneNumbers) + 'If dr("Telefon") <> "" Then + ' sArray = dr("Telefon").ToString.Split(vbNewLine) + ' For i = LBound(sArray) To UBound(sArray) + ' _PhoneNumber = New PhoneNumber(_uow) + ' _PhoneNumber.Number = sArray(i) + ' _Customers.PhoneNumbers.Add(_PhoneNumber) + ' Next + 'End If + 'If dr("Fax") <> "" Then + ' sArray = dr("Fax").ToString.Split(vbNewLine) + ' For i = LBound(sArray) To UBound(sArray) + ' _PhoneNumber = New PhoneNumber(_uow) + ' _PhoneNumber.Number = sArray(i) + ' _Customers.PhoneNumbers.Add(_PhoneNumber) + ' Next + 'End If + _uow.CommitChanges() + End While + End If + _WaitFormClass.FinalWork() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_Country_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Country.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _CountryExtend As CountryExtend + Dim _Country As Country + + + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Ügyféltörzs_Országjel" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,t1.Országjel" + mSQL = mSQL & " from Ügyféltörzs_Országjel t1 " + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Országjel")), True) + If _CountryExtend Is Nothing Then + _CountryExtend = New CountryExtend(_uow) + _CountryExtend.Name = dr("Megnevezés") + _CountryExtend.ShortName = dr("Országjel") + + _CountryExtend.Save() + Else + + End If + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_Controlling_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Controlling.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _Controlling As Controlling + Dim _Controlling_Parent As Controlling + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Controlling" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Controlling t1 left join Controlling t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _Controlling = _uow.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _Controlling_Parent = _uow.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _Controlling Is Nothing Then + _Controlling = New Controlling(_uow) + End If + + _Controlling.Name = dr("Megnevezés") + If _Controlling_Parent Is Nothing Then + Else + _Controlling.Parent = _Controlling_Parent + End If + _Controlling.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_ChartsOfAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_ChartsOfAccounts.Execute + '-- Számlatükör importálása meglévõ SQL szerverrõl + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String = String.Format(" User ID={0}; ", _SQLImports.SQLUser) + connstr &= String.Format(" Password={0};", _SQLImports.SQLPassword) + connstr &= " Pooling=false;" + connstr &= String.Format(" Data Source={0};", _SQLImports.SQLServer) + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _ChartOfAccounts_P As ChartOfAccounts + + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Költségek" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Számlaszám,t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Költségek t1 left join Költségek t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(1, CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _ChartOfAccounts_P = _uow.FindObject(Of ChartOfAccounts)(1, CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _ChartOfAccounts Is Nothing Then + _ChartOfAccounts = New ChartOfAccounts(_uow) + End If + If _ChartOfAccounts_P Is Nothing Then + Else + _ChartOfAccounts.Parent = _ChartOfAccounts_P + End If + _ChartOfAccounts.Name = dr("Megnevezés") + _ChartOfAccounts.AccountNumber = dr("Számlaszám") + _ChartOfAccounts.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_Storage_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Storage.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + '-- Raktárkészlet importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _Storage As Storage + Dim _NumberGeneratorGroups As NumberGeneratorGroups + Dim _NumberGenerator As NumberGenerator + + '-- Elõször a raktár importálása + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Raktár_Tipus" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select *" + mSQL = mSQL & " from Raktár_Tipus" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("ShortName=?", dr("Megnevezés")), True) + If _Storage Is Nothing Then + _Storage = New Storage(_uow) + _NumberGeneratorGroups = _uow.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Raktár'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = New NumberGeneratorGroups(_uow) + _NumberGeneratorGroups.Description = "Raktár" + _NumberGeneratorGroups.ShortName = "Raktár" + End If + + '-- Sorszám generálása + _NumberGenerator = New NumberGenerator(_uow) + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "R-BE-" & AlignStr(LTrim(RTrim(dr("ID").ToString)), eDirection.Left, "0", 2) + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Betárolás : " & dr("Megnevezés") + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorIn = _NumberGenerator + + _NumberGenerator = New NumberGenerator(_uow) + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "R-BES-" & AlignStr(LTrim(RTrim(dr("ID").ToString)), eDirection.Left, "0", 2) + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Betárolás stornó : " & dr("Megnevezés") + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorInS = _NumberGenerator + + _NumberGenerator = New NumberGenerator(_uow) + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "R-KI-" & AlignStr(LTrim(RTrim(dr("ID").ToString)), eDirection.Left, "0", 2) + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Kitárolás : " & dr("Megnevezés") + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorOut = _NumberGenerator + + _NumberGenerator = New NumberGenerator(_uow) + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "R-KIS-" & AlignStr(LTrim(RTrim(dr("ID").ToString)), eDirection.Left, "0", 2) + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Kitárolás stornó : " & dr("Megnevezés") + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorOutS = _NumberGenerator + + + End If + _Storage.ShortName = dr("Megnevezés") + _Storage.Description = dr("Leírás") + _Storage.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid) + + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + '-- Utána a nyitott készlet importálása + '_WaitFormClass.InitWork + 'Try + ' mSQL = "select DB=count(*)" + ' mSQL = mSQL & " from Raktár_Új t1 join ET t2 on" + ' mSQL = mSQL & " t1.Cikkszám=t2.Cikkszám" + ' mSQL = mSQL & " Where round(t1.Bevett,4) > round(t1.Kiírt,0)" + + ' cmd.CommandTimeout = 60 + ' cmd.Connection = conn + ' cmd.CommandType = CommandType.Text + ' cmd.CommandText = mSQL + ' conn.Open() + ' If conn.State = ConnectionState.Open Then + ' dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + ' While dr.Read + ' _form.ProgressBarControl1.Properties.Maximum = dr("DB") + ' End While + ' End If + ' conn.Close() + + ' mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + ' mSQL = mSQL & " from Controlling t1 left join Controlling t2 on" + ' mSQL = mSQL & " t1.ParentID=t2.ID" + ' mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + ' cmd.CommandTimeout = 60 + ' cmd.Connection = conn + ' cmd.CommandType = CommandType.Text + ' cmd.CommandText = mSQL + ' conn.Open() + + + + ' If conn.State = ConnectionState.Open Then + ' dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + ' While dr.Read + ' _StorageInHeader = New StorageInHeader(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + + + + ' _WaitFormClass.DoWork + ' View.ObjectSpace.CommitChanges() + ' System.Windows.Forms.Application.DoEvents() + ' End While + ' End If + 'Catch ex As Exception + + 'End Try + '_WaitFormClass.Finalwork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_Procucts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Procucts.Execute + '-- Terméktörzs importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String = String.Format(" User ID={0}; ", _SQLImports.SQLUser) + connstr &= String.Format(" Password={0};", _SQLImports.SQLPassword) + connstr &= " Pooling=false;" + connstr &= String.Format(" Data Source={0};", _SQLImports.SQLServer) + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _Products As Products + Dim _ProductsGroups As ProductsGroups + Dim _ProductsGroupsP As ProductsGroups + Dim _Units As Units + Dim _VAT As VAT + Dim _CustomsTariffs As CustomsTariffs + Dim _CustomersOrderPriority As CustomersOrderPriority + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from ET " + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "" + mSQL += "select Cikkszám=isnull(t1.Cikkszám,'')," + mSQL += " Megnevezés=isnull(t1.Megnevezés,'')," + mSQL += " Megnevezés_Angol=isnull(t1.Megnevezés_Angol,'')," + mSQL += " Csoport=isnull(t1.Csoport,'')," + mSQL += " CsoportMegnevezés=isnull(t2.Megnevezés,'-')," + mSQL += " FőCsoport=isnull(t2.FőCsoport,'')," + mSQL += " MEgys=isnull(t1.MEgys,'')," + mSQL += " Description=isnull(t1.Description,'')," + mSQL += " Description_Belső=isnull(t1.Description_Belső,'')," + mSQL += " Ár=isnull(t1.Ár,0)," + mSQL += " DevizásÁr=isnull(t1.DevizásÁr,0)," + mSQL += " Ár_Deviza=isnull(t1.Ár_Deviza,0)," + mSQL += " Vonalkód=isnull(t1.Vonalkód,'')," + mSQL += " Áfahiv=isnull(t1.Áfahiv,'')," + mSQL += " ITJ=isnull(t1.ITJ,'')," + mSQL += " CsEgys=isnull(t1.CsEgys,0)," + mSQL += " BeszCsEgys=isnull(t1.BeszCsEgys,0)," + mSQL += " Termékkód=isnull(t1.Termékkód,'')," + mSQL += " StratégiaiKód=isnull(t1.StratégiaiKód,'')," + mSQL += " Beszállító1=isnull(t4.Ügyfélszám,0), " + mSQL += " Beszállító2=isnull(t5.Ügyfélszám,0), " + mSQL += " Beszállító3=isnull(t6.Ügyfélszám,0), " + mSQL += " Súly=isnull(t1.Súly,0), " + mSQL += " ITJ_Leírás=isnull(t7.Leírás,''), " + mSQL += " Devizanem=isnull(t1.Devizanem,''), " + mSQL += " Származás=isnull(t1.Származás,'') " + + mSQL += " from ET t1 left join Főcsoportok t2 on" + mSQL += " t1.Csoport=t2.Csoport left join FőCsoportokM t3 on" + mSQL += " t2.FőCsoport=t3.FőCsoport left join vv_Ügyféltörzs_Telephely2 t4 on" + mSQL += " t1.Ügyfélszám_Beszállító1=t4.ÜgyfélszámX10 left join vv_Ügyféltörzs_Telephely2 t5 on" + mSQL += " t1.Ügyfélszám_Beszállító2=t5.ÜgyfélszámX10 left join vv_Ügyféltörzs_Telephely2 t6 on" + mSQL += " t1.Ügyfélszám_Beszállító3=t6.ÜgyfélszámX10 left join sql_Auto..Auto_VSZ t7 on" + mSQL += " t1.ID_Auto_VSZ=t7.ID" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _ProductsGroupsP = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("FőCsoport"))) + If _ProductsGroupsP Is Nothing Then + _ProductsGroupsP = New ProductsGroups(_uow) + _ProductsGroupsP.ShortName = dr("FőCsoport") + _ProductsGroupsP.Description = dr("FőCsoport") + _ProductsGroupsP.Name = dr("FőCsoport") + End If + _ProductsGroups = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("Csoport"))) + If _ProductsGroups Is Nothing Then + _ProductsGroups = New ProductsGroups(_uow) + _ProductsGroups.ShortName = dr("Csoport") + _ProductsGroups.Description = dr("CsoportMegnevezés") + _ProductsGroups.Parent = _ProductsGroupsP + _ProductsGroups.Name = dr("Csoport") + End If + + _Units = _uow.FindObject(Of Units)(CriteriaOperator.Parse("ShortName=?", dr("MEgys"))) + If _Units Is Nothing Then + _Units = New Units(_uow) + _Units.ShortName = dr("MEgys") + End If + _CustomsTariffs = _uow.FindObject(Of CustomsTariffs)(CriteriaOperator.Parse("CustomsTariffNumber=?", dr("ITJ"))) + If _CustomsTariffs Is Nothing Then + _CustomsTariffs = New CustomsTariffs(_uow) + End If + _CustomsTariffs.CustomsTariffNumber = dr("ITJ") + _CustomsTariffs.Description = dr("ITJ_Leírás") + + _Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr("Cikkszám"))) + If _Products Is Nothing Then + _Products = New Products(_uow) + End If + _VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", dr("Áfahiv"))) + + _Products.ProductGroups = _ProductsGroups + _Products.ProductNumber = dr("Cikkszám") + _Products.ShortName = dr("Megnevezés") + _Products.ShortName_Gb = dr("Megnevezés_Angol") + _Products.Description = dr("Description") + _Products.Description_Private = dr("Description_Belső") + _Products.Units = _Units + _Products.ListPriceOutHUF = dr("Ár") + _Products.Barcode = dr("Vonalkód") + _Products.VAT = _VAT + _Products.CustomsTariff = _CustomsTariffs + _Products.PacketUnitIn = dr("BeszCsEgys") + _Products.PacketUnitOut = dr("CsEgys") + _Products.ProductCode = dr("Termékkód") + _Products.ProductStrategyCode = dr("StratégiaiKód") + _Products.NettoWeight = dr("Súly") + _Products.ListPriceInDEV = dr("DevizásÁr") + _Products.ListPriceOutDEV = dr("Ár_Deviza") + _Products.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Devizanem"))) + _Products.CountryFrom = TryCast(_uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Származás"))), Country) + _Products.Save() + + If dr("Beszállító1") > 0 Then + _CustomersOrderPriority = _uow.FindObject(Of CustomersOrderPriority)(CriteriaOperator.Parse("CustomersOrder.CustomerNumber=? and Products=?", dr("Beszállító1").ToString, _Products)) + If _CustomersOrderPriority Is Nothing Then + _CustomersOrderPriority = New CustomersOrderPriority(_uow) + _CustomersOrderPriority.Products = _Products + _CustomersOrderPriority.CustomersOrder = _uow.FindObject(Of CustomersOrder)(CriteriaOperator.Parse("CustomerNumber=?", dr("Beszállító1").ToString)) + _CustomersOrderPriority.RowIndex = 1 + End If + End If + If dr("Beszállító2") > 0 Then + _CustomersOrderPriority = _uow.FindObject(Of CustomersOrderPriority)(CriteriaOperator.Parse("CustomersOrder.CustomerNumber=? and Products=?", dr("Beszállító2").ToString, _Products)) + If _CustomersOrderPriority Is Nothing Then + _CustomersOrderPriority = New CustomersOrderPriority(_uow) + _CustomersOrderPriority.Products = _Products + _CustomersOrderPriority.CustomersOrder = _uow.FindObject(Of CustomersOrder)(CriteriaOperator.Parse("CustomerNumber=?", dr("Beszállító2").ToString)) + _CustomersOrderPriority.RowIndex = 2 + End If + End If + If dr("Beszállító3") > 0 Then + _CustomersOrderPriority = _uow.FindObject(Of CustomersOrderPriority)(CriteriaOperator.Parse("CustomersOrder.CustomerNumber=? and Products=?", dr("Beszállító3").ToString, _Products)) + If _CustomersOrderPriority Is Nothing Then + _CustomersOrderPriority = New CustomersOrderPriority(_uow) + _CustomersOrderPriority.Products = _Products + _CustomersOrderPriority.CustomersOrder = _uow.FindObject(Of CustomersOrder)(CriteriaOperator.Parse("CustomerNumber=?", dr("Beszállító3").ToString)) + _CustomersOrderPriority.RowIndex = 3 + End If + End If + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_ProcuctsGroups_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_ProcuctsGroups.Execute + '-- Termékcsoport importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _ProductsGroups As ProductsGroups + Dim _ProductsGroupsM As ProductsGroups + + '---- Elõször a FõcsoportokM táblából betöltjük a FõCsoportokat + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from FõcsoportokM " + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select * " + mSQL = mSQL & " from FõCsoportokM" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _ProductsGroups = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("FõCsoport"))) + If _ProductsGroups Is Nothing Then + _ProductsGroups = New ProductsGroups(_uow) + End If + _ProductsGroups.ShortName = dr("FõCsoport") + _ProductsGroups.Name = dr("FõCsoport") + _ProductsGroups.Description = dr("Leírás") + _ProductsGroups.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + conn.Close() + '---- Most a termékcsoportok a fõcsoport hierarchia alá ! + + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Fõcsoportok " + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select * " + mSQL = mSQL & " from FõCsoportok" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _ProductsGroupsM = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("FõCsoport"))) + _ProductsGroups = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("Csoport"))) + If _ProductsGroups Is Nothing Then + _ProductsGroups = New ProductsGroups(_uow) + End If + _ProductsGroups.Parent = _ProductsGroupsM + _ProductsGroups.ShortName = dr("Csoport") + _ProductsGroups.Name = dr("Megnevezés") + _ProductsGroups.Description = dr("Megnevezés") + _ProductsGroups.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_CustomersGLParameters_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_CustomersGLParameters.Execute + '-- Partner fõkönyvi kategóriák másolása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _CustomersGLParameters As CustomersGLParameters + Dim _ChartOfAccounts As ChartOfAccounts + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Ügyféltörzs_Mode " + mSQL = mSQL & " Where LastLevel=1" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Leírás,InC=isnull(t2.Számlaszám,''),OutC=isnull(t3.Számlaszám,'')" + mSQL = mSQL & " from Ügyféltörzs_Mode t1 left join sql_Cassa.dbo.Költségek t2 on" + mSQL = mSQL & " t1.KöltségIDIn=t2.ID left join sql_Cassa.dbo.Költségek t3 on" + mSQL = mSQL & " t1.KöltségIDOut=t3.ID " + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + + _CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("ShortName=?", dr("Leírás").ToString), True) + If _CustomersGLParameters Is Nothing Then _CustomersGLParameters = New CustomersGLParameters(_uow) + _CustomersGLParameters.ShortName = dr("Leírás") + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", dr("InC"))) + '_CustomersGLParameters.ChartOfAccountsIn = _ChartOfAccounts + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", dr("OutC"))) + '_CustomersGLParameters.ChartOfAccountsOut = _ChartOfAccounts + + _CustomersGLParameters.Save() + _uow.CommitChanges() + + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_LiquidAssets_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_LiquidAssets.Execute + '-- Pénzeszközök importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _CustomersFrom As CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=Oid")) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _LiquidAssets As LiquidAssets + Dim _CurrencyName As CurrencyName + Dim _BankInformation As BankInformation + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + _Maximum = 0 + + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Cassa " + mSQL = mSQL & " Where CégSzám=1" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Comment,t1.Deviza,t1.Tipus,t2.Számlaszám,t1.Bankszámlaszám" + mSQL = mSQL & " from Cassa t1 left join Költségek t2 on" + mSQL = mSQL & " t1.KöltségID=t2.ID" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _LiquidAssets = _uow.FindObject(Of LiquidAssets)(CriteriaOperator.Parse("ShortName=?", dr("Comment")), True) + If _LiquidAssets Is Nothing Then + _LiquidAssets = New LiquidAssets(_uow) + End If + _LiquidAssets.ShortName = dr("Comment") + _CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Deviza")), True) + + Select Case dr("Tipus") + Case 0 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.NormalCheckout + Case 1 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.NormalBank + + '-- Fel kell vinni a bankszámlaszámokat + _BankInformation = _uow.FindObject(Of BankInformation)(CriteriaOperator.Parse("AccountNumber=?", dr("Bankszámlaszám"))) + If _BankInformation Is Nothing Then + _BankInformation = New BankInformation(_uow) + End If + _BankInformation.AccountNumber = dr("Bankszámlaszám") + _BankInformation.LiquidAssests = _LiquidAssets + _BankInformation.CurrencyName = _CurrencyName + + Dim _CustomerBankAccounts As CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("Customers.Oid=? and AccountNumber=?", _CustomersFrom.Oid, dr("Bankszámlaszám"))) + If _CustomerBankAccounts Is Nothing Then + _CustomerBankAccounts = New CustomerBankAccounts(_uow) + _CustomerBankAccounts.Customers = TryCast(_CustomersFrom, Customers) + End If + _CustomerBankAccounts.AccountNumber = dr("Bankszámlaszám") + + Case 2 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.DepositCheckout + Case 3 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.Compensatory + Case 4 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.CurrencyCheckout + Case 5 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.SpecialTransaction + Case 6 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.TechnicalTransaction + Case 7 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.SimpleReceipt + Case 8 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.Virtual + End Select + _LiquidAssets.CurrencyName = _CurrencyName + _LiquidAssets.CustomerFrom = _CustomersFrom + + Dim _LiquidAssetsYear As LiquidAssetsYear + + _LiquidAssetsYear = _uow.FindObject(Of LiquidAssetsYear)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("LiquidAssets=? and AccountYear=2010")) + If _LiquidAssetsYear Is Nothing Then + _LiquidAssetsYear = New LiquidAssetsYear(_uow) + End If + _LiquidAssetsYear.AccountYear = 2010 + _LiquidAssetsYear.LiquidAssets = _LiquidAssets + _LiquidAssetsYear.ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2010", dr("Számlaszám"))) + + + _LiquidAssetsYear = _uow.FindObject(Of LiquidAssetsYear)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("LiquidAssets=? and AccountYear=2011")) + If _LiquidAssetsYear Is Nothing Then + _LiquidAssetsYear = New LiquidAssetsYear(_uow) + End If + _LiquidAssetsYear.AccountYear = 2011 + _LiquidAssetsYear.LiquidAssets = _LiquidAssets + _LiquidAssetsYear.ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2011", dr("Számlaszám"))) + + + _LiquidAssetsYear = _uow.FindObject(Of LiquidAssetsYear)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("LiquidAssets=? and AccountYear=2012")) + If _LiquidAssetsYear Is Nothing Then + _LiquidAssetsYear = New LiquidAssetsYear(_uow) + End If + _LiquidAssetsYear.AccountYear = 2012 + _LiquidAssetsYear.LiquidAssets = _LiquidAssets + _LiquidAssetsYear.ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2012", dr("Számlaszám"))) + + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_VAT_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_VAT.Execute + '-- ÁFA kódok importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _VAT As VAT + _Maximum = 0 + + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from VAT " + mSQL = mSQL & " Where CégSzám=1" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select ShortName=isnull(t1.ShortName,'')," + mSQL += " Description=isnull(t1.Description,'')," + mSQL += " Value=isnull(t1.Value,0)," + mSQL += " CIn=isnull(t2.Számlaszám,'')," + mSQL += " COut=isnull(t3.Számlaszám,'')," + mSQL += " Fordított=isnull(t1.Fordított,0)," + mSQL += " FordítottKulcs=isnull(t1.FordítottKulcs,0)," + mSQL += " Igényelhető=isnull(t1.Igényelhető,0)" + + mSQL = mSQL & " from VAT t1 left join Költségek t2 on" + mSQL = mSQL & " t1.KöltségIDIn=t2.ID left join Költségek t3 on" + mSQL = mSQL & " t1.KöltségIDOut=t3.ID" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", dr("ShortName")), True) + If _VAT Is Nothing Then + _VAT = New VAT(_uow) + End If + _VAT.ShortName = dr("ShortName") + _VAT.Description = dr("Description") + _VAT.KeyValue = dr("Value") + + _VAT.InversState = dr("Fordított") + _VAT.InversKeyValue = dr("FordítottKulcs") + _VAT.ClaimState = dr("Igényelhető") + + Dim _VATYear As VATYear + + _VATYear = _uow.FindObject(Of VATYear)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("VAT=? and AccountYear=2010", _VAT)) + If _VATYear Is Nothing Then + _VATYear = New VATYear(_uow) + End If + _VATYear.AccountYear = 2010 + _VATYear.ChartOfAccountsIn = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2010", dr("CIn"))) + _VATYear.ChartOfAccountsOut = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2010", dr("COut"))) + _VATYear.VAT = _VAT + + _VATYear = _uow.FindObject(Of VATYear)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("VAT=? and AccountYear=2011", _VAT)) + If _VATYear Is Nothing Then + _VATYear = New VATYear(_uow) + End If + _VATYear.AccountYear = 2011 + _VATYear.ChartOfAccountsIn = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2011", dr("CIn"))) + _VATYear.ChartOfAccountsOut = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2011", dr("COut"))) + _VATYear.VAT = _VAT + + + _VATYear = _uow.FindObject(Of VATYear)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("VAT=? and AccountYear=2012", _VAT)) + If _VATYear Is Nothing Then + _VATYear = New VATYear(_uow) + End If + _VATYear.AccountYear = 2012 + _VATYear.ChartOfAccountsIn = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2012", dr("CIn"))) + _VATYear.ChartOfAccountsOut = _uow.FindObject(Of ChartOfAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("AccountNumber=? and AccountYear=2012", dr("COut"))) + _VATYear.VAT = _VAT + + _uow.CommitChanges() + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_GL_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_GL.Execute + '// Az eljárás a teljes főkönyvet beolvassa a régi rendszerből + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = " select DB=count(*) " + mSQL = mSQL & " from FKBizonylatok t1 " + + mSQL = mSQL & " where t1.Feladásból=0 and " + mSQL = mSQL & " t1.ED <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.ED >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + + mSQL = " select ID=t1.ID " + mSQL = mSQL & " from FKBizonylatok t1 " + + mSQL = mSQL & " where t1.Feladásból=0 and " + mSQL = mSQL & " t1.ED <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.ED >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " order by t1.ID" + + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + BaseImport.Import_GLMixed(dr("ID"), _uow, _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid), _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + + _uow.CommitChanges() + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_Invoices_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Invoices.Execute + '// A rutin az egyedi számlákat importálja + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + Dim _i As Long = 0 + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Bill_Sum " + mSQL = mSQL & " Where CégSzám=1" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + _WaitFormClass.InitWork(1, 1, _Maximum) + mSQL = "select t1.ShortName,t1.Description,t1.Value,CIn=t2.Számlaszám,COut=t3.Számlaszám" + mSQL = mSQL & " from VAT t1 left join Költségek t2 on" + mSQL = mSQL & " t1.KöltségIDIn=t2.ID left join Költségek t3 on" + mSQL = mSQL & " t1.KöltségIDOut=t3.ID" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _WaitFormClass.DoWork() + _i += 1 + + + If _i Mod 100 Then _uow.CommitChanges() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _uow.CommitChanges() + _WaitFormClass.Finalwork() + + End Sub +#Region "GL" + Private Sub Import_GLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_GLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Folyó_Bizonylatok t1" + mSQL = mSQL & " Where t1.TD <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.TD >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.ID " + mSQL = mSQL & " from Folyó_Bizonylatok t1" + mSQL = mSQL & " Where t1.TD <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.TD >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + 'mSQL = mSQL & " Where t1.Bizonylatszám='AM8SB 7315242'" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + BaseImport.Import_GLAccounts(dr("ID"), _uow, _SQLImports.CustomersFrom, _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + + _uow.CommitChanges() + _WaitFormClass.FinalWork() + End Sub + Private Sub Import_GCassa_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_GCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("LiquidAssets_Cassa") + Dim _LiquidAssets_Cassa As LiquidAssets = TryCast(_ListView.ListView.SelectedObjects(0), LiquidAssets) + + If _LiquidAssets_Cassa Is Nothing Then Exit Sub + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = " select DB=count(*) from " + mSQL = mSQL & " (select t2.Comment" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + mSQL = mSQL & " where(t2.Tipus = 1) and " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and" + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Cassa.ShortName & "'" + mSQL = mSQL & " group by t2.Comment,t1.LinkNumber) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + + mSQL = " select t1.Cassa,t2.Comment,t1.LinkNumber" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + + mSQL = mSQL & " where(t2.Tipus = 1) and " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Cassa.ShortName & "'" + + mSQL = mSQL & " group by t1.Cassa,t2.Comment,t1.LinkNumber" + mSQL = mSQL & " order by t1.Cassa,t2.Comment,t1.LinkNumber" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + BaseImport.Import_GLCassa(dr("Cassa"), _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets_Cassa.Oid), LTrim(RTrim(CStr(dr("LinkNumber")))), _ + _uow, _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid), _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + + _uow.CommitChanges() + _WaitFormClass.FinalWork() + End Sub + Private Sub Import_GLBank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_GLBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("BankInformation") + Dim _BankInformation As BankInformation = TryCast(_ListView.ListView.SelectedObjects(0), BankInformation) + + If _BankInformation Is Nothing Then Exit Sub + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = " select DB=count(*) from " + mSQL = mSQL & " (select t2.Comment" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t2.Comment='" & _BankInformation.LiquidAssests.ShortName & "'" + mSQL = mSQL & " group by t2.Comment,convert(varchar(10),t1.Date,111)) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + + mSQL = " select t1.Cassa,t2.Comment,Date=convert(varchar(10),t1.Date,111),max(t1.TömbSorszám)" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t2.Comment='" & _BankInformation.LiquidAssests.ShortName & "'" + + mSQL = mSQL & " group by t1.Cassa,t2.Comment,convert(varchar(10),t1.Date,111)" + mSQL = mSQL & " order by t1.Cassa,t2.Comment,convert(varchar(10),t1.Date,111)" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + BaseImport.Import_GLBank(dr("Cassa"), _uow.GetObjectByKey(Of LiquidAssets)(_BankInformation.LiquidAssests.Oid), dr("Date"), _uow, _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid), _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + + _uow.CommitChanges() + _WaitFormClass.FinalWork() + End Sub + Private Sub Import_GCompensation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_GCompensation.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("LiquidAssets_Compensation") + Dim _LiquidAssets_Main As LiquidAssets = TryCast(_ListView.ListView.SelectedObjects(0), LiquidAssets) + + If _LiquidAssets_Main Is Nothing Then Exit Sub + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = " select DB=count(*) from " + mSQL = mSQL & " (select t2.Comment" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and" + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Main.ShortName & "'" + mSQL = mSQL & " group by t2.Comment,t1.LinkNumber) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + + mSQL = " select t1.Cassa,t2.Comment,t1.LinkNumber" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Main.ShortName & "'" + + mSQL = mSQL & " group by t1.Cassa,t2.Comment,t1.LinkNumber" + mSQL = mSQL & " order by t1.Cassa,t2.Comment,t1.LinkNumber" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + BaseImport.Import_GLCompensation(dr("Cassa"), _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets_Main.Oid), LTrim(RTrim(CStr(dr("LinkNumber")))), _ + _uow, _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid), _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + _uow.CommitChanges() + _WaitFormClass.FinalWork() + End Sub +#End Region + Private Sub Import_UniqueObject_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_UniqueObject.Execute + '-- Egyedi azonosítók importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _UniqueObjects As UniqueObjects + Dim _UniqueObjects_Parent As UniqueObjects + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Egyedi" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Egyedi t1 left join Egyedi t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _UniqueObjects = _uow.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _UniqueObjects_Parent = _uow.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _UniqueObjects Is Nothing Then + _UniqueObjects = New UniqueObjects(_uow) + End If + + _UniqueObjects.Name = dr("Megnevezés") + If _UniqueObjects_Parent Is Nothing Then + Else + _UniqueObjects.Parent = _UniqueObjects_Parent + End If + _UniqueObjects.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_Invoices_Business_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Invoices_Business.Execute + '// Az sql_Main-ban kiállított vevõi számlákat tölti át. + '// Elõtte kell a fõkönyvi teljes áttöltés + + On Error GoTo CheckError + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String = String.Format(" User ID={0}; ", _SQLImports.SQLUser) + connstr &= String.Format(" Password={0};", _SQLImports.SQLPassword) + connstr &= " Pooling=false;" + connstr &= String.Format(" Data Source={0};", _SQLImports.SQLServer) + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim cmd1 As New SqlCommand + Dim dr As SqlDataReader + Dim dr1 As SqlDataReader + + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows + _Maximum = 0 + + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Számlaössz" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select *" + mSQL = mSQL & " from Számlaössz" + mSQL = mSQL & " order by ID asc" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + + _InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("DocumentNumber=? and CustomersFrom.Oid=?", dr("Bizonylatszám"), _SQLImports.CustomersFrom.Oid)) + + mSQL = "select * from Számla" + mSQL = mSQL & " Where Bizonylatszám=1" & dr("Bizonylatszám") & "'" + cmd1.CommandTimeout = 60 + cmd1.Connection = conn + cmd1.CommandType = CommandType.Text + cmd1.CommandText = mSQL + + If conn.State = ConnectionState.Open Then + dr1 = cmd1.ExecuteReader(CommandBehavior.SingleResult) + While dr1.Read + + End While + End If + End While + End If + _WaitFormClass.Finalwork() + Exit Sub +CheckError: + + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + End Sub + Private Sub Import_CostHolder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_CostHolder.Execute + '-- Egyedi azonosítók importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _CostHolder As CostHolder + Dim _CostHolder_Parent As CostHolder + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Költségviselő" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Költségviselő t1 left join Költségviselő t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _CostHolder = _uow.FindObject(Of CostHolder)(CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _CostHolder_Parent = _uow.FindObject(Of CostHolder)(CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _CostHolder Is Nothing Then + _CostHolder = New CostHolder(_uow) + End If + + _CostHolder.Name = dr("Megnevezés") + If _CostHolder_Parent Is Nothing Then + Else + _CostHolder.Parent = _CostHolder_Parent + End If + _CostHolder.Save() + _uow.CommitChanges() + End While + End If + Catch ex As Exception + + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_CostPlace_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_CostPlace.Execute + '-- Költséghely azonosítók importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _CostPlace As CostPlace + Dim _CostPlace_Parent As CostPlace + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Költséghely" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Költséghely t1 left join Költséghely t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _CostPlace = _uow.FindObject(Of CostPlace)(CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _CostPlace_Parent = _uow.FindObject(Of CostPlace)(CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _CostPlace Is Nothing Then + _CostPlace = New CostPlace(_uow) + End If + + _CostPlace.Name = dr("Megnevezés") + If _CostPlace_Parent Is Nothing Then + Else + _CostPlace.Parent = _CostPlace_Parent + End If + _CostPlace.Save() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub JobNumberObject_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles JobNumberObject.Execute + '-- Munkaszámok importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _JobNumberObjects As JobNumberObjects + Dim _JobNumberObjects_Parent As JobNumberObjects + _Maximum = 0 + Try + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Munkaszám" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select t1.Megnevezés,Megnevezés_Parent=t2.Megnevezés" + mSQL = mSQL & " from Munkaszám t1 left join Munkaszám t2 on" + mSQL = mSQL & " t1.ParentID=t2.ID" + mSQL = mSQL & " order by t1.LevelID,t1.Megnevezés" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + _WaitFormClass.InitWork(1, 1, _Maximum) + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _WaitFormClass.DoWork() + _JobNumberObjects = _uow.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Name=?", dr("Megnevezés"))) + _JobNumberObjects_Parent = _uow.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Name=?", dr("Megnevezés_Parent"))) + If _JobNumberObjects Is Nothing Then + _JobNumberObjects = New JobNumberObjects(_uow) + End If + _JobNumberObjects.Name = dr("Megnevezés") + If _JobNumberObjects_Parent Is Nothing Then + Else + _JobNumberObjects.Parent = _JobNumberObjects_Parent + End If + _JobNumberObjects.Save() + _uow.CommitChanges() + End While + End If + Catch ex As Exception + + End Try + _WaitFormClass.Finalwork() + End Sub + + + Private Sub Import_SpecTran_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_SpecTran.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim _connstr As String + Dim i As Long = 0 + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("LiquidAssets_SpecTran") + Dim _LiquidAssets_Main As LiquidAssets = TryCast(_ListView.ListView.SelectedObjects(0), LiquidAssets) + + If _LiquidAssets_Main Is Nothing Then Exit Sub + + _connstr = " User ID=" & _SQLImports.SQLUser & "; " + _connstr &= " Password=" & _SQLImports.SQLPassword & ";" + _connstr &= " Pooling=false;" + _connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + _connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(_connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + _Maximum = 0 + + mSQL = " select DB=count(*) from " + mSQL = mSQL & " (select t2.Comment" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and" + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Main.ShortName & "'" + mSQL = mSQL & " group by t2.Comment,t1.LinkNumber) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + + mSQL = " select t1.Cassa,t2.Comment,t1.LinkNumber" + + mSQL = mSQL & " from Cassa_Sum t1 join Cassa t2 on" + mSQL = mSQL & " t1.Cassa = t2.Cassa" + + mSQL = mSQL & " where " + mSQL = mSQL & " t1.Date <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t1.Date >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "' and " + mSQL = mSQL & " t2.Comment='" & _LiquidAssets_Main.ShortName & "'" + + mSQL = mSQL & " group by t1.Cassa,t2.Comment,t1.LinkNumber" + mSQL = mSQL & " order by t1.Cassa,t2.Comment,t1.LinkNumber" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + i += 1 + Dim _LinkNumber As String = "" + _LinkNumber = LTrim(RTrim(CStr(dr("LinkNumber")))) + _LinkNumber = "130000260" + BaseImport.Import_GLCompensation(dr("Cassa"), _uow.GetObjectByKey(Of LiquidAssets)(_LiquidAssets_Main.Oid), _LinkNumber, _ + _uow, _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid), _connstr) + If i Mod 1000 Then _uow.CommitChanges() + End While + End If + _uow.CommitChanges() + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_Contacts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Contacts.Execute + '-- Kapcsolattartók importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + Dim connstr As String + + On Error GoTo CheckError + + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _Contacts As Contacts + Dim _Customers As Customers + Dim _ImportedID As Long + + _Maximum = 0 + + mSQL = "select DB=count(*)" + mSQL = mSQL & " from Ügyféltörzs_Kapcsolat t1 " + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select ID=t1.ID,Keresztnév=isnull(t1.Keresztnév,''),Vezetéknév=isnull(t1.Vezetéknév,''),Beosztás=isnull(t1.Beosztás,''), " + mSQL = mSQL & " Egyéb=isnull(t1.Egyéb,''),EMail=isnull(isnull(t1.EMail,t2.EMail),'')," + mSQL = mSQL & " Fax=case when ltrim(rtrim(isnull(isnull(t1.Fax,t2.Fax),'')))='' then isnull(t2.Fax,'') else ltrim(rtrim(isnull(isnull(t1.Fax,t2.Fax),''))) end," + mSQL = mSQL & " Telefon=case when ltrim(rtrim(isnull(isnull(t1.Telefon,t2.Telefon),'')))='' then isnull(t2.Telefon,'') else ltrim(rtrim(isnull(isnull(t1.Telefon,t2.Telefon),''))) end," + mSQL = mSQL & " Mobil=isnull(t1.Mobil,''),Ügyfélszám=t1.Ügyfélszám" + + mSQL = mSQL & " from Ügyféltörzs_Kapcsolat t1 left join Ügyféltörzs t2 on" + mSQL = mSQL & " t1.Ügyfélszám=t2.Ügyfélszám" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _ImportedID = dr("ID") + _Contacts = _uow.FindObject(Of Contacts)(CriteriaOperator.Parse("ImportedID=?", _ImportedID)) + If _Contacts Is Nothing Then + _Contacts = _uow.FindObject(Of Contacts)(CriteriaOperator.Parse("FirstName=? and LastName=? and Customers.CustomerNumber=?", dr("Keresztnév"), dr("Vezetéknév"), dr("Ügyfélszám"))) + If _Contacts Is Nothing Then + _Contacts = New Contacts(_uow) + _Contacts.FirstName = dr("Keresztnév") + _Contacts.LastName = dr("Vezetéknév") + _Contacts.Position = dr("Beosztás") + _Contacts.Email = dr("EMail") + _uow.Delete(_Contacts.PhoneNumbers) + Dim _OfficePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _OfficePhone.PhoneType = "OfficePhone" + _OfficePhone.Number = dr("Telefon") + _Contacts.PhoneNumbers.Add(_OfficePhone) + + Dim _Fax As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _Fax.PhoneType = "Fax" + _Fax.Number = dr("Fax") + _Contacts.PhoneNumbers.Add(_Fax) + + Dim _MobilePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _MobilePhone.PhoneType = "MobilePhone" + _MobilePhone.Number = dr("Mobil") + _Contacts.PhoneNumbers.Add(_MobilePhone) + + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám"))) + _Contacts.Customers = _Customers + _Contacts.MobileTelephoneNumber = dr("Mobil") + _Contacts.BusinessTelephoneNumber = dr("Telefon") + _Contacts.BusinessFaxNumber = dr("Fax") + + + '// Cím1-be menjen bele az ügyfél címe + If _Contacts.Customers.Address1 IsNot Nothing Then + _Contacts.Address1 = _Contacts.Customers.Address1 + End If + _Contacts.ImportedID = _ImportedID + _Contacts.Save() + + Else + _Contacts.ImportedID = _ImportedID + _Contacts.Save() + End If + End If + + _uow.CommitChanges() + End While + End If + + _WaitFormClass.Finalwork() + Exit Sub +CheckError: + + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + + End Sub + + Private Sub Import_HRPerson_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_HRPerson.Execute + '-- Terméktörzs importálása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String = String.Format(" User ID={0}; ", _SQLImports.SQLUser) + connstr &= String.Format(" Password={0};", _SQLImports.SQLPassword) + connstr &= " Pooling=false;" + connstr &= String.Format(" Data Source={0};", _SQLImports.SQLServer) + connstr &= " Initial Catalog=sql_Permission" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim _HRPerson As HRPerson + Dim _HRGroups As HRGroups + Dim _Address As Address = Nothing + Dim _User As User + Dim _Role As Role = _uow.FindObject(Of Role)(CriteriaOperator.Parse("Name='Administrators'")) + Dim _FirstName As String = "" + Dim _LastName As String = "" + Dim sArray As String() + _Maximum = 0 + + Try + mSQL = "select DB=count(*)" + mSQL += " from Személyzet t1" + mSQL += " Where isnull(t1.Törölve,0)=0" + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "" + mSQL += "select " + mSQL += " Név=isnull(t1.Név,'')," + mSQL += " Cím=isnull(t1.Cím,'')," + mSQL += " Telefon=isnull(t1.Telefon,'')," + mSQL += " Mobil=isnull(t1.Mobil,'')," + mSQL += " Fax=isnull(t1.Fax,'')," + mSQL += " EMail=isnull(t1.EMail,'')," + mSQL += " Munkacsoport=isnull(t1.Munkacsoport,'')," + mSQL += " Munkakör=isnull(t1.Munkakör,'')," + mSQL += " Vonalkód=isnull(t1.Vonalkód,'')," + mSQL += " UserName=isnull(t1.UserName,'')" + + mSQL += " from Személyzet t1" + + mSQL += " Where isnull(t1.Törölve,0)=0 and replace(isnull(t1.Név,''),' ','')<>''" + mSQL += " order by isnull(Név,'')" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + sArray = dr("Név").ToString.Split(" ") + If UBound(sArray) = 2 Then + _FirstName = sArray(2) + _LastName = String.Format("{0} {1}", sArray(0), sArray(1)) + End If + If UBound(sArray) = 1 Then + _FirstName = sArray(1) + _LastName = sArray(0) + End If + If UBound(sArray) = 0 Then + _FirstName = "" + _LastName = sArray(0) + End If + _FirstName = LTrim(RTrim(_FirstName)) + _LastName = LTrim(RTrim(_LastName)) + If _FirstName <> "" Or _LastName <> "" Then + _HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("FirstName=? and LastName=?", _FirstName, _LastName)) + If _HRPerson Is Nothing Then + _HRPerson = New HRPerson(_uow) + _HRPerson.FirstName = _FirstName + _HRPerson.LastName = _LastName + End If + _HRPerson.Email = dr("EMail") + _uow.Delete(_HRPerson.HRGroups) + _HRGroups = _uow.FindObject(Of HRGroups)(CriteriaOperator.Parse("ShortName=?", dr("Munkacsoport"))) + If _HRGroups Is Nothing Then + _HRGroups = New HRGroups(_uow) + + End If + _HRGroups.ShortName = dr("Munkacsoport") + _HRGroups.Description = dr("Munkacsoport") + _HRPerson.HRGroups.Add(_HRGroups) + + _HRPerson.Barcode = dr("Vonalkód") + _HRPerson.Post = dr("Munkakör") + + _uow.Delete(_HRPerson.PhoneNumbers) + Dim _OfficePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _OfficePhone.PhoneType = "OfficePhone" + _OfficePhone.Number = dr("Telefon") + _HRPerson.PhoneNumbers.Add(_OfficePhone) + + Dim _Fax As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _Fax.PhoneType = "Fax" + _Fax.Number = dr("Fax") + _HRPerson.PhoneNumbers.Add(_Fax) + + Dim _MobilePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = New PhoneNumber(_uow) + _MobilePhone.PhoneType = "MobilePhone" + _MobilePhone.Number = dr("Mobil") + _HRPerson.PhoneNumbers.Add(_MobilePhone) + + If dr("UserName") <> "" Then + _User = _uow.FindObject(Of User)(CriteriaOperator.Parse("UserName=?", dr("UserName"))) + If _User Is Nothing Then + _User = New User(_uow) + _User.UserName = dr("UserName") + _User.FirstName = _FirstName + _User.LastName = _LastName + _User.ChangePasswordOnFirstLogon = True + _User.Roles.Add(_Role) + End If + _HRPerson.User = _User + End If + + _uow.CommitChanges() + End If + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_OrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_OrderOut.Execute + '-- Kimenő rendelés importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim conn_row As New SqlConnection(connstr) + Dim cmd_row As New SqlCommand + Dim dr_row As SqlDataReader + + Dim _Products As Products = Nothing + Dim _OrderOutHeader As OrderOutHeader = Nothing + Dim _OrderOutRows As OrderOutRows = Nothing + Dim _CustomersOrder As CustomersOrder = Nothing + Dim _CurrencyName As CurrencyName = Nothing + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from (" + mSQL = mSQL & " select Ügyfélszám,RendSzám,TömbSorszám" + mSQL = mSQL & " from Rendelés_Lezárt " + mSQL = mSQL & " where Ügyfélszám > 0 " + mSQL = mSQL & " and Time <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and Time >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " group by Ügyfélszám,RendSzám,TömbSorszám) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select Ügyfélszám,RendSzám,TömbSorszám=case when ltrim(rtrim(isnull(TömbSorszám,'')))='' then 'BR-'+convert(varchar(10),RendSzám) else TömbSorszám end ," + mSQL = mSQL & " Time=MAX(Time),Deviza=max(Deviza),ÖsszesenHUF=SUM((ÁrS-AES)*(Rendelt+Foglalt)),ÖsszesenDEV=SUM((DÁrS-DAES)*(Rendelt+Foglalt))" + mSQL = mSQL & " from Rendelés_Lezárt" + mSQL = mSQL & " where Ügyfélszám > 0 and Megjött=0" + mSQL = mSQL & " and Time <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and Time >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " group by Ügyfélszám,RendSzám,TömbSorszám" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _CustomersOrder = _uow.FindObject(Of CustomersOrder)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám").ToString)) + _CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Deviza"))) + If _CustomersOrder IsNot Nothing Then + _OrderOutHeader = _uow.FindObject(Of OrderOutHeader)(CriteriaOperator.Parse("CustomersOrder=? and DocumentNumber=?", _CustomersOrder, dr("TömbSorszám"))) + If _OrderOutHeader Is Nothing Then + _OrderOutHeader = New OrderOutHeader(_uow) + End If + + _OrderOutHeader.CurrencyName = _CurrencyName + _OrderOutHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid) + + _OrderOutHeader.CustomersOrder = _CustomersOrder + + _OrderOutHeader.DateCreated = dr("Time") + _OrderOutHeader.DateExecution = dr("Time") + _OrderOutHeader.DocumentNumber = dr("TömbSorszám") + + + _OrderOutHeader.IsEditable = False + _OrderOutHeader.IsStorno = False + _OrderOutHeader.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode='InTransfer'")) + _OrderOutHeader.TotalNettoHUF = dr("ÖsszesenHUF") + _OrderOutHeader.TotalNettoDEV = dr("ÖsszesenDEV") + + mSQL = "select Cikkszám=isnull(Cikkszám,'')," + mSQL = mSQL & " Rendelt=isnull(Rendelt+Foglalt,0)," + mSQL = mSQL & " ÁrS=isnull(ÁrS,0)," + mSQL = mSQL & " AES=isnull(ÁrS,0)," + mSQL = mSQL & " RM=isnull(Rendelt+Foglalt,0)," + mSQL = mSQL & " DÁrS=isnull(DÁrS,0)," + mSQL = mSQL & " DAES=isnull(DÁrS,0)," + mSQL = mSQL & " Perc=isnull(case when ÁrS<>0 then round(AES/ÁrS ,4) end,0) " + + + mSQL = mSQL & " from Rendelés_Lezárt" + mSQL = mSQL & " Where Ügyfélszám=" & dr("Ügyfélszám").ToString & " and RendSzám=" & dr("RendSzám").ToString '& " and TömbSorszám='" & dr("TömbSorszám").ToString & "'" + cmd_row.CommandTimeout = 60 + cmd_row.Connection = conn_row + cmd_row.CommandType = CommandType.Text + cmd_row.CommandText = mSQL + conn_row.Open() + If conn_row.State = ConnectionState.Open Then + dr_row = cmd_row.ExecuteReader(CommandBehavior.SingleResult) + While dr_row.Read + + _OrderOutRows = New OrderOutRows(_uow) + _OrderOutRows.DiscountPercent = dr_row("Perc") + _OrderOutRows.ListPriceDEV() = dr_row("DÁrS") + _OrderOutRows.ListPriceHUF() = dr_row("ÁrS") + _OrderOutRows.OrderOutHeader = _OrderOutHeader + _OrderOutRows.Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr_row("Cikkszám"))) + _OrderOutRows.QTT = dr_row("Rendelt") + End While + End If + conn_row.Close() + + _uow.CommitChanges() + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_Circulation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Circulation.Execute + '// Fogyások áttöltése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + + + Dim _Products As Products = Nothing + Dim _Storage As Storage = Nothing + Dim _StorageOutCirculation As StorageOutCirculation = Nothing + Dim _YearExecution As Long + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from (" + + mSQL = mSQL & " select Raktár=''" + mSQL = mSQL & " from Számla_Bevétel t1 join Számlaössz t2 on" + mSQL = mSQL & " t1.Bizonylatszám=t2.Bizonylatszám join Raktár_Új t3 on" + mSQL = mSQL & " t1.RaktáriSzám=t3.RaktáriSzám join Raktár_Tipus t4 on" + mSQL = mSQL & " t3.Raktár = t4.Raktár" + mSQL = mSQL & " and t2.TD <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t2.TD >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " group by t4.megnevezés,t1.Cikkszám,CONVERT(varchar(7),t2.TD,111)) t1" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = " select Raktár=t4.Megnevezés,Cikkszám=t1.Cikkszám,Dátum=CONVERT(varchar(7),t2.TD,111),Mennyiség=isnull(SUM(t1.Mennyiség),0)," + mSQL = mSQL & " YearExecution=MAX(YEAR(t2.TD)),MonthExecution=MAX(month(t2.TD))" + mSQL = mSQL & " from Számla_Bevétel t1 join Számlaössz t2 on" + mSQL = mSQL & " t1.Bizonylatszám=t2.Bizonylatszám join Raktár_Új t3 on" + mSQL = mSQL & " t1.RaktáriSzám=t3.RaktáriSzám join Raktár_Tipus t4 on" + mSQL = mSQL & " t3.Raktár = t4.Raktár" + mSQL = mSQL & " and t2.TD <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and t2.TD >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " group by t4.megnevezés,t1.Cikkszám,CONVERT(varchar(7),t2.TD,111)" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + + _Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("ShortName=?", dr("Raktár"))) + _Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr("Cikkszám"))) + + If _Storage IsNot Nothing AndAlso _Products IsNot Nothing Then + _StorageOutCirculation = _uow.FindObject(Of StorageOutCirculation) _ + (CriteriaOperator.Parse("Storage=? and Products=? and CirculationType='eAccaount' and YearExecution=?", _ + _Storage, _Products, dr("YearExecution"))) + If _StorageOutCirculation Is Nothing Then + _StorageOutCirculation = New StorageOutCirculation(_uow) + + End If + _StorageOutCirculation.CirculationType = eCirculationType.eAccaount + _StorageOutCirculation.Storage = _Storage + _StorageOutCirculation.Products = _Products + _StorageOutCirculation.YearExecution = dr("YearExecution") + Select Case dr("MonthExecution") + Case 1 + _StorageOutCirculation.Month01 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 2 + _StorageOutCirculation.Month02 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 3 + _StorageOutCirculation.Month03 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 4 + _StorageOutCirculation.Month04 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 5 + _StorageOutCirculation.Month05 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 6 + _StorageOutCirculation.Month06 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 7 + _StorageOutCirculation.Month07 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 8 + _StorageOutCirculation.Month08 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 9 + _StorageOutCirculation.Month09 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 10 + _StorageOutCirculation.Month10 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 11 + _StorageOutCirculation.Month11 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + Case 12 + _StorageOutCirculation.Month12 = dr("Mennyiség") + _StorageOutCirculation.Total += dr("Mennyiség") + End Select + + _uow.CommitChanges() + + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_Operations_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Operations.Execute + '// Műveletek áttöltése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + + + Dim _Operations As Operations + + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from Egyedi Where (ParentID = 126) AND (Active = 1)" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = " select Megnevezés" + mSQL &= " from Egyedi Where (ParentID = 126) AND (Active = 1)" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _Operations = _uow.FindObject(Of Operations)(_uow.ParseCriteria("ShortName=?", dr("Megnevezés"))) + If _Operations Is Nothing Then + _Operations = New Operations(_uow) + _Operations.ShortName = dr("Megnevezés") + End If + _uow.CommitChanges() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_Offers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_Offers.Execute + '// Műveletek áttöltése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + + + Dim _OfferAskIn As OfferAskIn + + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from (select t1.ID " + mSQL = mSQL & " from Iktatás_Mark t1 join IktatóRendszer t2 on" + mSQL = mSQL & " t1.ID_IktatóRendszer = t2.ID" + mSQL = mSQL & " where t2.IktatóTipus = 3) t1" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = " select t1.ID,IktatóSzám=isnull(t2.IktatóSzám,''),t2.ÜgyfélszámFrom,t2.ÜgyfélszámTo,t2.IktatóTipus," + mSQL = mSQL & " Mark01=isnull(t1.Mark01,'')," + mSQL = mSQL & " Mark02=isnull(t1.Mark02,'')," + mSQL = mSQL & " Mark03=isnull(t1.Mark03,'')," + mSQL = mSQL & " Mark04=isnull(t1.Mark04,'')," + mSQL = mSQL & " Mark05=isnull(t1.Mark05,'')," + mSQL = mSQL & " Mark06=isnull(t1.Mark06,'')," + mSQL = mSQL & " Mark07=isnull(t1.Mark07,'')," + mSQL = mSQL & " Mark08=isnull(t1.Mark08,'')," + mSQL = mSQL & " Mark09=isnull(t1.Mark09,'')," + mSQL = mSQL & " Mark10=isnull(t1.Mark10,'')," + mSQL = mSQL & " Mark11=isnull(t1.Mark11,'')" + + mSQL = mSQL & " from Iktatás_Mark t1 join IktatóRendszer t2 on" + mSQL = mSQL & " t1.ID_IktatóRendszer = t2.ID" + mSQL = mSQL & " where t2.IktatóTipus = 3" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _OfferAskIn = _uow.FindObject(Of OfferAskIn)(CriteriaOperator.Parse("DocumentNumber=?", dr("IktatóSzám"))) + If _OfferAskIn Is Nothing Then + _OfferAskIn = New OfferAskIn(_uow) + _OfferAskIn.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid) + End If + _OfferAskIn.DocumentNumber = dr("IktatóSzám") + _OfferAskIn.CustomersName = dr("Mark05") + _OfferAskIn.ContactsName = dr("Mark06") + _OfferAskIn.ContactsPhone = dr("Mark07") + _OfferAskIn.ContactsEMail = dr("Mark08") + _OfferAskIn.JobNumberName = dr("Mark09") + _OfferAskIn.DateValid = dr("Mark02") + + Select Case dr("Mark01") + Case "01-Döntésre vár" + _OfferAskIn.OfferAskInState = eOfferAskInState.eWaitDecisions + Case "01-Feldolgozás alatt" + _OfferAskIn.OfferAskInState = eOfferAskInState.eInProgress + Case "01-Következő körös" + _OfferAskIn.OfferAskInState = eOfferAskInState.eNextStep + Case "01-Visszajelzést várunk" + _OfferAskIn.OfferAskInState = eOfferAskInState.eWait + Case "02-Lemondott" + _OfferAskIn.OfferAskInState = eOfferAskInState.eRejected + Case "02-Lezárult elvesztett" + _OfferAskIn.OfferAskInState = eOfferAskInState.eLost + Case "02-Lezárult megnyert" + _OfferAskIn.OfferAskInState = eOfferAskInState.eWin + End Select + _uow.CommitChanges() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub aScriptUpdate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aScriptUpdate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=SISBusiness" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + + + Dim _RegistryHeader As RegistryHeader + + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from (select t2.ImportedRegistryHeader" + mSQL = mSQL & " from GLRows t1 join GLHeader t2 on" + mSQL = mSQL & " t1.GLHeader = t2.Oid" + mSQL = mSQL & " where t2.ImportedRegistryHeader Is Not null And t1.RegistryRowsFinancialControlling Is null And t1.Controlling Is null And t2.GCRecord Is null And t1.PartnerType = 1 " + mSQL = mSQL & " group by t2.ImportedRegistryHeader) t1" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = " select t2.ImportedRegistryHeader " + mSQL = mSQL & " from GLRows t1 join GLHeader t2 on" + mSQL = mSQL & " t1.GLHeader = t2.Oid" + mSQL = mSQL & " where t2.ImportedRegistryHeader Is Not null And t1.RegistryRowsFinancialControlling Is null And t1.Controlling Is null And t2.GCRecord Is null And t1.PartnerType = 1 " + mSQL = mSQL & " group by t2.ImportedRegistryHeader" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + + _RegistryHeader = _uow.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("Oid=?", dr("ImportedRegistryHeader"))) + + If _RegistryHeader IsNot Nothing Then + _RegistryHeader.BookEntryRemove(_RegistryHeader, _uow) + _RegistryHeader.BookEntry(1, _RegistryHeader, _uow) + End If + + _uow.CommitChanges() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + + Private Sub Import_OrderIn_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles Import_OrderIn.Execute + '// Bejövő megrendelések importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim conn_row As New SqlConnection(connstr) + Dim cmd_row As New SqlCommand + Dim dr_row As SqlDataReader + + Dim _Customers As Customers + Dim _Products As Products = Nothing + Dim _OrderInHeader As OrderInHeader + Dim _OrderInRows As OrderInRows + Dim _CurrencyName As CurrencyName = Nothing + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from (" + mSQL = mSQL & " select MegbSzám" + mSQL = mSQL & " from Megbízás_Új " + mSQL = mSQL & " where MegbMode in (1,4) and Deviza='HUF' " + mSQL = mSQL & " and DátumA <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and DátumA >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " ) t1" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select DátumA,MegbSzám,Ügyfélszám,Deviza" + mSQL = mSQL & " " + mSQL = mSQL & " from Megbízás_Új" + mSQL = mSQL & " where MegbMode in (1,4) and Deviza='HUF'" + mSQL = mSQL & " and DátumA <='" & Replace(Format(_SQLImports.DateTo, "yyyy/MM/dd"), ".", "/") & "' and DátumA >='" & Replace(Format(_SQLImports.DateFrom, "yyyy/MM/dd"), ".", "/") & "'" + mSQL = mSQL & " " + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám").ToString)) + _CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Deviza"))) + If _Customers IsNot Nothing Then + _OrderInHeader = _uow.FindObject(Of OrderInHeader)(CriteriaOperator.Parse("Customers=? and DocumentNumber=?", _Customers, dr("MegbSzám"))) + If _OrderInHeader Is Nothing Then + _OrderInHeader = New OrderInHeader(_uow) + End If + + _OrderInHeader.Customers = _Customers + _OrderInHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_SQLImports.CustomersFrom.Oid) + _OrderInHeader.DateCreated = dr("DátumA") + _OrderInHeader.DateExecution = dr("DátumA") + _OrderInHeader.DocumentNumber = dr("MegbSzám") + _OrderInHeader.IsEditable = True + _OrderInHeader.IsStorno = False + _OrderInHeader.OrderInParameters = _uow.FindObject(Of OrderInParameters)(CriteriaOperator.Parse("CurrencyName.ShortName=?", dr("Deviza"))) + + + mSQL = "select Cikkszám=isnull(Cikkszám,'')," + mSQL = mSQL & " Megjegyzés=isnull(Megjegyzés,'')," + mSQL = mSQL & " DAE=isnull(DAE,0)," + mSQL = mSQL & " AE=isnull(AE,0)," + mSQL = mSQL & " Ár=isnull(Ár,0)," + mSQL = mSQL & " Kiírt=isnull(Kiírt,0)," + mSQL = mSQL & " Áfahiv=isnull(Áfahiv,'')," + mSQL = mSQL & " DÁr=isnull(DÁr,0)" + + + mSQL = mSQL & " from Megbízás_Alkatrész" + mSQL = mSQL & " Where MegbSzám='" & dr("MegbSzám").ToString & "'" + cmd_row.CommandTimeout = 60 + cmd_row.Connection = conn_row + cmd_row.CommandType = CommandType.Text + cmd_row.CommandText = mSQL + conn_row.Open() + If conn_row.State = ConnectionState.Open Then + dr_row = cmd_row.ExecuteReader(CommandBehavior.SingleResult) + While dr_row.Read + + _OrderInRows = New OrderInRows(_uow) + _OrderInRows.OrderInHeader = _OrderInHeader + + _OrderInRows.Description = dr_row("Megjegyzés") + _OrderInRows.DiscountPriceDEV = dr_row("DAE") + _OrderInRows.DiscountPriceHUF = dr_row("AE") + _OrderInRows.ListPriceDEV = dr_row("DÁr") + _OrderInRows.ListPriceHUF = dr_row("Ár") + _OrderInRows.ListPriceOriginalHUF = dr_row("Ár") - dr_row("AE") + _OrderInRows.Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr_row("Cikkszám"))) + _OrderInRows.QTT = dr_row("Kiírt") + _OrderInRows.VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", dr_row("Áfahiv"))) + + End While + End If + conn_row.Close() + + _uow.CommitChanges() + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + + End Sub + + Private Sub Import_Pricing_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles Import_Pricing.Execute + '// Árképzés importja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQLImports As SQLImports = TryCast(View.SelectedObjects(0), SQLImports) + Dim mSQL As String + + Dim connstr As String + connstr = " User ID=" & _SQLImports.SQLUser & "; " + connstr &= " Password=" & _SQLImports.SQLPassword & ";" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _SQLImports.SQLServer & ";" + connstr &= " Initial Catalog=sql_Main" + + Dim conn As New SqlConnection(connstr) + Dim cmd As New SqlCommand + Dim dr As SqlDataReader + + Dim conn_row As New SqlConnection(connstr) + Dim cmd_row As New SqlCommand + Dim dr_row As SqlDataReader + + Dim _Customers As Customers + Dim _Products As Products = Nothing + Dim _Pricing As Pricing + Dim _PricingFix As PricingFix + Dim _ShortName As String + _Maximum = 0 + Try + mSQL = " select DB=COUNT(*) from Ügyféltörzs_Ármátrix" + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _Maximum = dr("DB") + End While + End If + conn.Close() + + mSQL = "select Ár, Cikkszám, Devizanem, DevizásÁr, FM, ID, LM, Ügyfélszám, Ügyintéző" + mSQL = mSQL & " " + mSQL = mSQL & " from Ügyféltörzs_Ármátrix" + + + + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + + + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.InitWork(1, 1, _Maximum) + While dr.Read + _WaitFormClass.DoWork() + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám").ToString)) + If _Customers IsNot Nothing Then + _ShortName = dr("Ügyfélszám").ToString & " árképzése" + _Pricing = _uow.FindObject(Of Pricing)(CriteriaOperator.Parse("ShortName=?", _ShortName)) + If _Pricing Is Nothing Then + _Pricing = New Pricing(_uow) + End If + _Customers.Pricing = _Pricing + _Pricing.ShortName = _ShortName + _Pricing.PartnerType = ePartnerType.eReceivables + + _PricingFix = _uow.FindObject(Of PricingFix)(CriteriaOperator.Parse("Pricing=? and Products.ProductNumber=?", _Pricing, dr("Cikkszám"))) + If _PricingFix Is Nothing Then + _PricingFix = New PricingFix(_uow) + End If + _PricingFix.Pricing = _Pricing + _PricingFix.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Devizanem"))) + _PricingFix.Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr("Cikkszám"))) + If dr("Devizanem") = "HUF" Then + _PricingFix.PriceNetto = dr("Ár") + Else + _PricingFix.PriceNetto = dr("DevizásÁr") + End If + End If + _uow.CommitChanges() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImport.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImport.vb new file mode 100644 index 0000000..879cb7d --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImport.vb @@ -0,0 +1,70 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class SpreadImport ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _SpreadFile As FileData + Private _SpreadXML As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + _ + Property SpreadFile As FileData + Get + Return _SpreadFile + End Get + Set(value As FileData) + SetPropertyValue("SpreadFile", _SpreadFile, value) + End Set + End Property + Property SpreadXML As String + Get + Return _SpreadXML + End Get + Set(value As String) + SetPropertyValue("SpreadXML", _SpreadXML, value) + End Set + End Property + + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.Designer.vb new file mode 100644 index 0000000..db3ea67 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.Designer.vb @@ -0,0 +1,59 @@ +Partial Class SpreadImportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSpreadImport_LoadDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSpreadImport_SaveDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSpreadImport_LoadDocument + ' + Me.aSpreadImport_LoadDocument.Caption = "aSpreadImport_LoadDocument" + Me.aSpreadImport_LoadDocument.ConfirmationMessage = Nothing + Me.aSpreadImport_LoadDocument.Id = "aSpreadImport_LoadDocument" + Me.aSpreadImport_LoadDocument.TargetObjectType = GetType(SISBusiness.[Module].Win.SpreadImport) + Me.aSpreadImport_LoadDocument.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadImport_LoadDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadImport_LoadDocument.ToolTip = Nothing + Me.aSpreadImport_LoadDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSpreadImport_SaveDocument + ' + Me.aSpreadImport_SaveDocument.Caption = "aSpreadImport_SaveDocument" + Me.aSpreadImport_SaveDocument.ConfirmationMessage = Nothing + Me.aSpreadImport_SaveDocument.Id = "aSpreadImport_SaveDocument" + Me.aSpreadImport_SaveDocument.TargetObjectType = GetType(SISBusiness.[Module].Win.SpreadImport) + Me.aSpreadImport_SaveDocument.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aSpreadImport_SaveDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSpreadImport_SaveDocument.ToolTip = Nothing + Me.aSpreadImport_SaveDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aSpreadImport_LoadDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSpreadImport_SaveDocument As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.resx new file mode 100644 index 0000000..2adbad3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 216, 19 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb new file mode 100644 index 0000000..0bc80b5 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/SpreadImport/SpreadImportVC.vb @@ -0,0 +1,147 @@ +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.XtraSpreadsheet +Imports DevExpress.Persistent.BaseImpl + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Partial Public Class SpreadImportVC + Inherits ViewController + Private _SpreadsheetControl As SpreadsheetControl + + 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. + If View.Id = "SpreadImport_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") + If _SpreadXML_ViewItem IsNot Nothing Then + AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated + End If + AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + + End If + 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 _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs) + Dim _SpreadImport As SpreadImport = TryCast(View.SelectedObjects(0), SpreadImport) + Dim _ItemControl As Object = TryCast(sender, ViewItem).Control + Dim _SpreadSimpleUserControl As SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl) + + If _SpreadSimpleUserControl IsNot Nothing Then + _SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1 + + If _SpreadImport IsNot Nothing Then + If _SpreadImport.SpreadFile IsNot Nothing Then + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _SpreadImport.SpreadFile.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _SpreadImport.SpreadFile.SaveToStream(_Stream) + _Stream.Close() + + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _StreamFile.Close() + End If + End If + End If + End Sub + + Private Sub SpreadImport_DetailView_SaveAction_Executing(sender As Object, e As ComponentModel.CancelEventArgs) + Dim _SpreadImport As SpreadImport = TryCast(View.SelectedObjects(0), SpreadImport) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML") + Dim _ItemControl As Object + Dim _SpreadSimpleUserControl As SpreadSimpleUserControl + + If _SpreadXML_ViewItem IsNot Nothing Then + _ItemControl = _SpreadXML_ViewItem.Control + _SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl) + _SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1 + End If + + If _SpreadsheetControl IsNot Nothing Then + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "IMPORT.XML") + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _SpreadsheetControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _Stream.Close() + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + Dim _FileData As FileData + _FileData = _ocur.CreateObject(Of FileData)() + + _FileData.LoadFromStream("IMPORT.XML", _StreamFile) + + _SpreadImport.SpreadFile = _FileData + End If + + + End Sub + + + + + Private Sub aSpreadImport_LoadDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_LoadDocument.Execute + Dim openFileDialog1 As New Windows.Forms.OpenFileDialog() + + openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments + openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*" + openFileDialog1.FilterIndex = 1 + openFileDialog1.RestoreDirectory = True + + If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + _SpreadsheetControl.LoadDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + End If + End Sub + + Private Sub aSpreadImport_SaveDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_SaveDocument.Execute + Dim openFileDialog1 As New Windows.Forms.SaveFileDialog() + + openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments + openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*" + openFileDialog1.FilterIndex = 1 + openFileDialog1.RestoreDirectory = True + + If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + _SpreadsheetControl.SaveDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.Designer.vb new file mode 100644 index 0000000..06a5416 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class StorageOperation_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aResetStorageForTest = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aResetStorageForTest + ' + Me.aResetStorageForTest.Caption = "aReset Storage For Test" + Me.aResetStorageForTest.ConfirmationMessage = Nothing + Me.aResetStorageForTest.Id = "aResetStorageForTest" + Me.aResetStorageForTest.ImageName = "data_delete" + Me.aResetStorageForTest.Shortcut = Nothing + Me.aResetStorageForTest.Tag = Nothing + Me.aResetStorageForTest.TargetObjectsCriteria = Nothing + Me.aResetStorageForTest.TargetViewId = Nothing + Me.aResetStorageForTest.ToolTip = Nothing + Me.aResetStorageForTest.TypeOfView = Nothing + + End Sub + Friend WithEvents aResetStorageForTest As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.resx new file mode 100644 index 0000000..2ef2e0b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 173, 133 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.vb new file mode 100644 index 0000000..4779805 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/Storages/StorageOperation_VC.vb @@ -0,0 +1,186 @@ +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 + +Public Class StorageOperation_VC + Inherits DevExpress.ExpressApp.ViewController + + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", False) + + If View.Id = "ResetObjects_DetailView" Then + Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "ResetObjects_DetailView" Then + Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", False) + End If + End Sub + + Private Sub aResetStorageForTest_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetStorageForTest.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _StorageOutHeader_Collection As New XPCollection(Of StorageOutHeader)(_uow) + Dim _StorageOutRows_Collection As New XPCollection(Of StorageOutRows)(_uow) + Dim _StorageInHeader_Collection As New XPCollection(Of StorageInHeader)(_uow) + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow) + Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_uow) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_uow) + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow) + Dim _OrderInHeader_Collection As New XPCollection(Of OrderInHeader)(_uow) + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_uow) + Dim _DeliveryNoteOutHeader_Collection As New XPCollection(Of DeliveryNoteOutHeader)(_uow) + Dim _DeliveryNoteOutRows_Collection As New XPCollection(Of DeliveryNoteOutRows)(_uow) + Dim _DeliveryNoteInHeader_Collection As New XPCollection(Of DeliveryNoteInHeader)(_uow) + Dim _DeliveryNoteInRows_Collection As New XPCollection(Of DeliveryNoteInRows)(_uow) + Dim _StorageComputedLocations_Collection As New XPCollection(Of StorageComputedLocations)(_uow) + Dim _StoragePDACollectionHeader_Collection As New XPCollection(Of StoragePDACollectionHeader)(_uow) + Dim _StoragePDACollectionRows_Collection As New XPCollection(Of StoragePDACollectionRows)(_uow) + + _WaitFormClass.InitWork(1, 1, 16) + _WaitFormClass.DoWork() + _uow.Delete(_StorageComputed_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageInHeader_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageInRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageMoveEvents_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageOutHeader_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageOutRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageOutRowsInRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_OrderInHeader_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_OrderInRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_DeliveryNoteInHeader_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_DeliveryNoteInRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_DeliveryNoteOutHeader_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_DeliveryNoteOutRows_Collection) + _WaitFormClass.DoWork() + _uow.Delete(_StorageComputedLocations_Collection) + '_WaitFormClass.DoWork() + '_uow.Delete(_StoragePDACollectionHeader_Collection) + '_WaitFormClass.DoWork() + '_uow.Delete(_StoragePDACollectionRows_Collection) + _WaitFormClass.Finalwork + _uow.CommitChanges() + + Dim _Products_Collection As New XPCollection(Of Products)(_uow) + Dim _Storage As Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("CustomersFrom.IsDefault=True")) + '_Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("ShortName=?", "Input anyag raktr")) + Dim _StorageInHeader As New StorageInHeader(_uow) + Dim _Rnd As New Random + + _StorageInHeader.Storage = _Storage + _StorageInHeader.DocumentNumber = _Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn) + _StorageInHeader.StorageMoveType = _uow.FindObject(Of StorageMoveType)(CriteriaOperator.Parse("MoveType=?", eMoveType.NormalInput)) + + _WaitFormClass.InitWork(1, 1, 10) + For ik = 1 To 100 + _WaitFormClass.DoWork() + Dim _StorageInRows As New StorageInRows(_uow) + Dim _StorageComputed As StorageComputed + + _StorageInRows.StorageInHeader = _StorageInHeader + _StorageInRows.Products = _Products_Collection(_Rnd.Next(0, _Products_Collection.Count)) + _StorageInRows.QTT_Will = _Rnd.Next(1, 1000) + _StorageInRows.RowIndex = _StorageInHeader.StorageInRows.Count + + _StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = New StorageComputed(_uow) + _StorageComputed.Storage = _Storage + _StorageComputed.Products = _StorageInRows.Products + End If + _StorageComputed.QTTReservedIn += _StorageInRows.QTT_Will + Next + _WaitFormClass.Finalwork + + _uow.CommitChanges() + + _WaitFormClass.InitWork(1, 1, 3) + For ik = 0 To 3 + _WaitFormClass.DoWork() + Dim _StorageInRows_ReNew As New StorageInRows(_uow) + Dim _StorageInHeader_ReNew As New StorageInHeader(_uow) + + _StorageInRows_ReNew.StorageInHeader = _StorageInHeader_ReNew + _StorageInRows_ReNew.Products = _StorageInHeader.StorageInRows(ik).Products + _StorageInRows_ReNew.QTT_Will = _Rnd.Next(1, 1000) + _StorageInRows_ReNew.RowIndex = _StorageInHeader_ReNew.StorageInRows.Count + + _StorageInHeader_ReNew.Storage = _StorageInHeader.Storage + _StorageInHeader_ReNew.DocumentNumber = _StorageInHeader.Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn) + _StorageInHeader_ReNew.StorageMoveType = _StorageInHeader.StorageMoveType + + Dim _StorageComputed_ReNew As StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows_ReNew.Products, _StorageInHeader_ReNew.Storage)) + If _StorageComputed_ReNew Is Nothing Then + _StorageComputed_ReNew = New StorageComputed(_uow) + _StorageComputed_ReNew.Storage = _Storage + _StorageComputed_ReNew.Products = _StorageInRows_ReNew.Products + End If + _StorageComputed_ReNew.QTTReservedIn += _StorageInRows_ReNew.QTT_Will + Next ik + _WaitFormClass.Finalwork + + _uow.CommitChanges() + + Dim _OrderInHeader As New OrderInHeader(_uow) + Dim _Customers_Collection As New XPCollection(Of Customers)(_uow) + Dim _Contacts As Contacts = Nothing + + _OrderInHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_StorageInHeader.Storage.CustomersFrom.Oid) + _OrderInHeader.Customers = _Customers_Collection(_Rnd.Next(0, _Customers_Collection.Count)) + + If _Contacts Is Nothing Then + _Contacts = New Contacts(_uow) + _Contacts.FirstName = "Tams" + _Contacts.LastName = "Teszt" + End If + _OrderInHeader.Contacts = _Contacts + _OrderInHeader.OrderInParameters = _uow.FindObject(Of OrderInParameters)(CriteriaOperator.Parse("CustomersFrom=?", _OrderInHeader.CustomersFrom)) + _OrderInHeader.DocumentNumber = _OrderInHeader.OrderInParameters.NumberGenerator.GetNewNumber(_OrderInHeader.OrderInParameters.NumberGenerator) + _OrderInHeader.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + _OrderInHeader.ShipmentOption = _uow.FindObject(Of ShipmentOption)(CriteriaOperator.Parse("1=1")) + + Dim _StorageOutHeader As New StorageOutHeader(_uow) + _StorageOutHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_StorageInHeader.Storage.CustomersFrom.Oid) + _StorageOutHeader.Customers = _Customers_Collection(_Rnd.Next(0, _Customers_Collection.Count)) + _StorageOutHeader.Storage = _StorageInHeader.Storage + _StorageOutHeader.DocumentNumber = _Storage.NumberGeneratorOut.GetNewNumber(_Storage.NumberGeneratorOut) + + _StorageOutHeader.StorageMoveType = _uow.FindObject(Of StorageMoveType)(CriteriaOperator.Parse("Storage=? AND MoveType=?", _StorageOutHeader.Storage, eMoveType.Sales)) + _uow.CommitChanges() + + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/PopUp/Import_PH_Immovables_PopUp.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/PopUp/Import_PH_Immovables_PopUp.vb new file mode 100644 index 0000000..7dc8959 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/PopUp/Import_PH_Immovables_PopUp.vb @@ -0,0 +1,76 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eImportPHType + eApartments = 0 + eOffices = 1 + eGarages = 2 + eContainers = 3 + eInvoiceRows = 4 +End Enum + _ + _ + _ + _ + _ + _ + _ +Public Class Import_PH_Immovables_PopUp + Inherits BaseObject + + Private _ImportPHType As eImportPHType + Private _FileName As String + Private _Customers As Customers + Private _CustomersFrom As CustomersFrom + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ImportPHType As eImportPHType + Get + Return _ImportPHType + End Get + Set(value As eImportPHType) + SetPropertyValue("ImportPHType", _ImportPHType, value) + End Set + End Property + _ + Property FileName As String + Get + Return _FileName + End Get + Set(value As String) + SetPropertyValue("FileName", _FileName, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImport.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImport.vb new file mode 100644 index 0000000..e983b17 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImport.vb @@ -0,0 +1,88 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class XLSExportImport + Inherits BaseObject + + Private _ObjectType As Type + Private _ShortName As String + Private _Description As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _ExcelProperty As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ObjectType As Type + Get + Return _ObjectType + End Get + Set(value As Type) + SetPropertyValue("ObjectType", _ObjectType, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.Designer.vb new file mode 100644 index 0000000..51b45ae --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class XLSExportImportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateExportImportSpread = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCreateExportImportSpread + ' + Me.aCreateExportImportSpread.AcceptButtonCaption = Nothing + Me.aCreateExportImportSpread.CancelButtonCaption = Nothing + Me.aCreateExportImportSpread.Caption = "aCreate Export Import Spread" + Me.aCreateExportImportSpread.Category = "aCreateExportImportSpread" + Me.aCreateExportImportSpread.ConfirmationMessage = Nothing + Me.aCreateExportImportSpread.Id = "aCreateExportImportSpread" + Me.aCreateExportImportSpread.ToolTip = Nothing + ' + 'XLSExportImportVC + ' + Me.Actions.Add(Me.aCreateExportImportSpread) + + End Sub + Friend WithEvents aCreateExportImportSpread As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.resx new file mode 100644 index 0000000..d0cc58b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.vb new file mode 100644 index 0000000..8f59c10 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSExportImportVC.vb @@ -0,0 +1,35 @@ +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 XLSExportImportVC + 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 XLSExportImportVC).aCreateExportImportSpread.Active.SetItemValue("", False) + + If View.Id = "Products_ListView" Then + Frame.GetController(Of XLSExportImportVC).aCreateExportImportSpread.Active.SetItemValue("", True) + End If + End Sub + + Private Sub aCreateExportImportSpread_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCreateExportImportSpread.Execute + + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImports.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImports.vb new file mode 100644 index 0000000..8449c10 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImports.vb @@ -0,0 +1,28 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class XLSImports + Inherits BaseObject + Private _XLSFileName As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property XLSFileName As FileData + Get + Return _XLSFileName + End Get + Set(ByVal value As FileData) + SetPropertyValue("XLSFileName", _XLSFileName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.Designer.vb new file mode 100644 index 0000000..be3d814 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.Designer.vb @@ -0,0 +1,248 @@ +Partial Class XLSImportsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Import_XLS_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_Contacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_Products = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_ProductGroups = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_CustomersBankAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_LiquidAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_ChartsOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_Units = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_Contracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_Services = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_XLS_KSZ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.Import_PH_Immovables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOpenFileDialog = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'Import_XLS_Customers + ' + Me.Import_XLS_Customers.Caption = "Import_XLS_Customers" + Me.Import_XLS_Customers.ConfirmationMessage = Nothing + Me.Import_XLS_Customers.Id = "Import_XLS_Customers" + Me.Import_XLS_Customers.ImageName = Nothing + Me.Import_XLS_Customers.Shortcut = Nothing + Me.Import_XLS_Customers.Tag = Nothing + Me.Import_XLS_Customers.TargetObjectsCriteria = Nothing + Me.Import_XLS_Customers.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Customers.ToolTip = Nothing + Me.Import_XLS_Customers.TypeOfView = Nothing + ' + 'Import_XLS_Contacts + ' + Me.Import_XLS_Contacts.Caption = "Import_XLS_Contacts" + Me.Import_XLS_Contacts.ConfirmationMessage = Nothing + Me.Import_XLS_Contacts.Id = "Import_XLS_Contacts" + Me.Import_XLS_Contacts.ImageName = Nothing + Me.Import_XLS_Contacts.Shortcut = Nothing + Me.Import_XLS_Contacts.Tag = Nothing + Me.Import_XLS_Contacts.TargetObjectsCriteria = Nothing + Me.Import_XLS_Contacts.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Contacts.ToolTip = Nothing + Me.Import_XLS_Contacts.TypeOfView = Nothing + ' + 'Import_XLS_Products + ' + Me.Import_XLS_Products.Caption = "Import_XLS_Products" + Me.Import_XLS_Products.ConfirmationMessage = Nothing + Me.Import_XLS_Products.Id = "Import_XLS_Products" + Me.Import_XLS_Products.ImageName = Nothing + Me.Import_XLS_Products.Shortcut = Nothing + Me.Import_XLS_Products.Tag = Nothing + Me.Import_XLS_Products.TargetObjectsCriteria = Nothing + Me.Import_XLS_Products.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Products.ToolTip = Nothing + Me.Import_XLS_Products.TypeOfView = Nothing + ' + 'Import_XLS_ProductGroups + ' + Me.Import_XLS_ProductGroups.Caption = "Import_XLS_ProductGroups" + Me.Import_XLS_ProductGroups.ConfirmationMessage = Nothing + Me.Import_XLS_ProductGroups.Id = "Import_XLS_ProductGroups" + Me.Import_XLS_ProductGroups.ImageName = Nothing + Me.Import_XLS_ProductGroups.Shortcut = Nothing + Me.Import_XLS_ProductGroups.Tag = Nothing + Me.Import_XLS_ProductGroups.TargetObjectsCriteria = Nothing + Me.Import_XLS_ProductGroups.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_ProductGroups.ToolTip = Nothing + Me.Import_XLS_ProductGroups.TypeOfView = Nothing + ' + 'Import_XLS_CustomersBankAccounts + ' + Me.Import_XLS_CustomersBankAccounts.Caption = "Import_XLS_CustomersBankAccounts" + Me.Import_XLS_CustomersBankAccounts.ConfirmationMessage = Nothing + Me.Import_XLS_CustomersBankAccounts.Id = "Import_XLS_CustomersBankAccounts" + Me.Import_XLS_CustomersBankAccounts.ImageName = Nothing + Me.Import_XLS_CustomersBankAccounts.Shortcut = Nothing + Me.Import_XLS_CustomersBankAccounts.Tag = Nothing + Me.Import_XLS_CustomersBankAccounts.TargetObjectsCriteria = Nothing + Me.Import_XLS_CustomersBankAccounts.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_CustomersBankAccounts.ToolTip = Nothing + Me.Import_XLS_CustomersBankAccounts.TypeOfView = Nothing + ' + 'Import_XLS_LiquidAssets + ' + Me.Import_XLS_LiquidAssets.Caption = "Import_XLS_LiquidAssets" + Me.Import_XLS_LiquidAssets.ConfirmationMessage = Nothing + Me.Import_XLS_LiquidAssets.Id = "Import_XLS_LiquidAssets" + Me.Import_XLS_LiquidAssets.ImageName = Nothing + Me.Import_XLS_LiquidAssets.Shortcut = Nothing + Me.Import_XLS_LiquidAssets.Tag = Nothing + Me.Import_XLS_LiquidAssets.TargetObjectsCriteria = Nothing + Me.Import_XLS_LiquidAssets.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_LiquidAssets.ToolTip = Nothing + Me.Import_XLS_LiquidAssets.TypeOfView = Nothing + ' + 'Import_XLS_ChartsOfAccounts + ' + Me.Import_XLS_ChartsOfAccounts.Caption = "Import_XLS_ChartsOfAccounts" + Me.Import_XLS_ChartsOfAccounts.ConfirmationMessage = Nothing + Me.Import_XLS_ChartsOfAccounts.Id = "Import_XLS_ChartsOfAccounts" + Me.Import_XLS_ChartsOfAccounts.ImageName = Nothing + Me.Import_XLS_ChartsOfAccounts.Shortcut = Nothing + Me.Import_XLS_ChartsOfAccounts.Tag = Nothing + Me.Import_XLS_ChartsOfAccounts.TargetObjectsCriteria = Nothing + Me.Import_XLS_ChartsOfAccounts.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_ChartsOfAccounts.ToolTip = Nothing + Me.Import_XLS_ChartsOfAccounts.TypeOfView = Nothing + ' + 'Import_XLS_Units + ' + Me.Import_XLS_Units.Caption = "Import_XLS_Units" + Me.Import_XLS_Units.ConfirmationMessage = Nothing + Me.Import_XLS_Units.Id = "Import_XLS_Units" + Me.Import_XLS_Units.ImageName = Nothing + Me.Import_XLS_Units.Shortcut = Nothing + Me.Import_XLS_Units.Tag = Nothing + Me.Import_XLS_Units.TargetObjectsCriteria = Nothing + Me.Import_XLS_Units.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Units.ToolTip = Nothing + Me.Import_XLS_Units.TypeOfView = Nothing + ' + 'Import_XLS_Contracts + ' + Me.Import_XLS_Contracts.Caption = "Import_XLS_Contracts" + Me.Import_XLS_Contracts.ConfirmationMessage = Nothing + Me.Import_XLS_Contracts.Id = "Import_XLS_Contracts" + Me.Import_XLS_Contracts.ImageName = Nothing + Me.Import_XLS_Contracts.Shortcut = Nothing + Me.Import_XLS_Contracts.Tag = Nothing + Me.Import_XLS_Contracts.TargetObjectsCriteria = Nothing + Me.Import_XLS_Contracts.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Contracts.ToolTip = Nothing + Me.Import_XLS_Contracts.TypeOfView = Nothing + ' + 'Import_XLS_GLAccounts + ' + Me.Import_XLS_GLAccounts.Caption = "Import_XLS_GLAccounts" + Me.Import_XLS_GLAccounts.ConfirmationMessage = Nothing + Me.Import_XLS_GLAccounts.Id = "Import_XLS_GLAccounts" + Me.Import_XLS_GLAccounts.ImageName = Nothing + Me.Import_XLS_GLAccounts.Shortcut = Nothing + Me.Import_XLS_GLAccounts.Tag = Nothing + Me.Import_XLS_GLAccounts.TargetObjectsCriteria = Nothing + Me.Import_XLS_GLAccounts.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_GLAccounts.ToolTip = Nothing + Me.Import_XLS_GLAccounts.TypeOfView = Nothing + ' + 'Import_XLS_Services + ' + Me.Import_XLS_Services.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept + Me.Import_XLS_Services.Caption = "Import services" + Me.Import_XLS_Services.ConfirmationMessage = Nothing + Me.Import_XLS_Services.Id = "Import_XLS_Services" + Me.Import_XLS_Services.ImageName = Nothing + Me.Import_XLS_Services.Shortcut = Nothing + Me.Import_XLS_Services.Tag = Nothing + Me.Import_XLS_Services.TargetObjectsCriteria = Nothing + Me.Import_XLS_Services.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_Services.ToolTip = Nothing + Me.Import_XLS_Services.TypeOfView = Nothing + ' + 'Import_XLS_KSZ + ' + Me.Import_XLS_KSZ.Caption = "Import_XLS_KSZ" + Me.Import_XLS_KSZ.ConfirmationMessage = Nothing + Me.Import_XLS_KSZ.Id = "Import_XLS_KSZ" + Me.Import_XLS_KSZ.ImageName = Nothing + Me.Import_XLS_KSZ.Shortcut = Nothing + Me.Import_XLS_KSZ.Tag = Nothing + Me.Import_XLS_KSZ.TargetObjectsCriteria = Nothing + Me.Import_XLS_KSZ.TargetViewId = "XLSImports_DetailView" + Me.Import_XLS_KSZ.ToolTip = Nothing + Me.Import_XLS_KSZ.TypeOfView = Nothing + ' + 'Import_PH_Immovables + ' + Me.Import_PH_Immovables.AcceptButtonCaption = Nothing + Me.Import_PH_Immovables.CancelButtonCaption = Nothing + Me.Import_PH_Immovables.Caption = "Import_PH_Immovables" + Me.Import_PH_Immovables.Category = "Import_PH_Immovables" + Me.Import_PH_Immovables.ConfirmationMessage = Nothing + Me.Import_PH_Immovables.Id = "Import_PH_Immovables" + Me.Import_PH_Immovables.ImageName = Nothing + Me.Import_PH_Immovables.Shortcut = Nothing + Me.Import_PH_Immovables.Tag = Nothing + Me.Import_PH_Immovables.TargetObjectsCriteria = Nothing + Me.Import_PH_Immovables.TargetViewId = "" + Me.Import_PH_Immovables.ToolTip = Nothing + Me.Import_PH_Immovables.TypeOfView = Nothing + ' + 'aOpenFileDialog + ' + Me.aOpenFileDialog.Caption = "aOpen File Dialog" + Me.aOpenFileDialog.Category = "aOpenFileDialog" + Me.aOpenFileDialog.ConfirmationMessage = Nothing + Me.aOpenFileDialog.Id = "aOpenFileDialog" + Me.aOpenFileDialog.ImageName = Nothing + Me.aOpenFileDialog.Shortcut = Nothing + Me.aOpenFileDialog.Tag = Nothing + Me.aOpenFileDialog.TargetObjectsCriteria = Nothing + Me.aOpenFileDialog.TargetViewId = Nothing + Me.aOpenFileDialog.ToolTip = Nothing + Me.aOpenFileDialog.TypeOfView = Nothing + + End Sub + Friend WithEvents Import_XLS_Customers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_Contacts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_Products As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_ProductGroups As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_CustomersBankAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_LiquidAssets As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_ChartsOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_Units As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_Contracts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_Services As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_XLS_KSZ As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents Import_PH_Immovables As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOpenFileDialog As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.resx b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.resx new file mode 100644 index 0000000..8095a04 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 173 + + + 17, 212 + + + 17, 290 + + + 17, 329 + + + 17, 368 + + + 17, 407 + + + 17, 446 + + + 17, 524 + + + 17, 56 + + + 17, 485 + + + 17, 95 + + + 17, 251 + + + 418, 280 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb new file mode 100644 index 0000000..c5decad --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Imports/XLS Imports/XLSImportsVC.vb @@ -0,0 +1,1468 @@ +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.Persistent.BaseImpl +Imports System.Data.SqlClient +Imports System.Data.OleDb +Imports System.Configuration +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Utils + +Public Class XLSImportsVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + 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.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + '--- XLSX file-ból történõ importálások----------------------------------------------------- + Private Sub Import_XLS_Customers_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Customers.Execute + '--- Ügyfelek importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _CustomersFrom As CustomersFrom + Dim _CountryExtend As CountryExtend + Dim _Address As Address + Dim _Customers As Customers + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr2 As OleDbDataReader + Dim mSQL As String + Dim _PhoneNumber As PhoneNumber + Dim _Count As Long = 0 + Dim _UpdatedCount As Long = 0 + Dim _TempName As String + Dim _QueryString As String + + + Try + 'mSQL = "select DB=count(*)" + mSQL = " select * from [Ügyfelek$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + + dr2 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr2.Read + If dr2("Név").ToString.Trim.Length > 0 Then + _Count += 1 + End If + End While + dr2.Close() + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _WaitFormClass.Initwork(1, 1, _Count) + + If dr("Név").ToString.Trim <> "" Then + + If dr("Ügyfél tipus") = 4 Then + _QueryString = dr("Név").ToString.Replace("'", "''") + _QueryString = dr("Név").ToString.Replace("%", "'%") + _QueryString = dr("Név").ToString.Replace("_", "'_") + _QueryString = dr("Név").ToString.Replace("\", "'\") + _QueryString = dr("Név").ToString.Replace("/", "'/") + _TempName = "ShortName Like '%" & _QueryString.ToString.Trim & "%'" + _CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse(_TempName)) + '_CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám").ToString.Trim), True) + If _CustomersFrom Is Nothing Then + _CustomersFrom = New CustomersFrom(_uow) + If dr("Ügyfélszám").ToString.Trim.Length > 0 Then + _CustomersFrom.CustomerNumber = dr("Ügyfélszám").ToString.Trim + End If + _CustomersFrom.Name = dr("Név").ToString.Trim + _CustomersFrom.FullName = dr("Név").ToString.Trim + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Ország")), True) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca házszám"), TryCast(_CountryExtend, Country))) + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString.Trim + _Address.ZipPostal = dr("Irányítószám").ToString.Trim + _Address.Street = dr("Utca házszám").ToString.Trim + + _CustomersFrom.Address1 = _Address + _CustomersFrom.VATNumber = dr("Adószám").ToString.Trim + _CustomersFrom.VATNumberEU = dr("EU adószám").ToString.Trim + + _CustomersFrom.Email = dr("Email").ToString.Trim + _CustomersFrom.WebSite = dr("WEB").ToString.Trim + + If dr("Telefon1").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon1")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon1" + _PhoneNumber.Number = dr("Telefon1").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon2").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon2")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon2" + _PhoneNumber.Number = dr("Telefon2").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Fax").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Fax")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Fax" + _PhoneNumber.Number = dr("Fax").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + + _CustomersFrom.Save() + + Else + _Count += 1 + If dr("Ügyfélszám").ToString.Trim.Length > 0 Then + _CustomersFrom.CustomerNumber = dr("Ügyfélszám").ToString.Trim + End If + _CustomersFrom.Name = dr("Név").ToString.Trim + _CustomersFrom.FullName = dr("Név").ToString.Trim + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Ország")), True) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca házszám"), TryCast(_CountryExtend, Country))) + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString.Trim + _Address.ZipPostal = dr("Irányítószám").ToString.Trim + _Address.Street = dr("Utca házszám").ToString.Trim + + _CustomersFrom.Address1 = _Address + _CustomersFrom.VATNumber = dr("Adószám").ToString.Trim + _CustomersFrom.VATNumberEU = dr("EU adószám").ToString.Trim + + _CustomersFrom.Email = dr("Email").ToString.Trim + _CustomersFrom.WebSite = dr("WEB").ToString.Trim + + If dr("Telefon1").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon1")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon1" + _PhoneNumber.Number = dr("Telefon1").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon2").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon2")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon2" + _PhoneNumber.Number = dr("Telefon2").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Fax").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Fax")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Fax" + _PhoneNumber.Number = dr("Fax").ToString.Trim + _CustomersFrom.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + + _CustomersFrom.Save() + End If + Else + _QueryString = dr("Név").ToString.Replace("'", "''") + _QueryString = _QueryString.Replace("%", "'%") + '_QueryString = dr("Név").ToString.Replace("_", "'_") + '_QueryString = dr("Név").ToString.Replace("\", "'\") + '_QueryString = dr("Név").ToString.Replace("/", "'/") + _TempName = "FullName Like '%" & _QueryString.ToString.Trim & "%'" + If _TempName Like "*Aquaterv*" Then + + End If + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse(_TempName)) + '_Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám")), True) + If _Customers Is Nothing Then + _Customers = New Customers(_uow) + If dr("Ügyfélszám").ToString.Trim.Length > 0 Then + _Customers.CustomerNumber = dr("Ügyfélszám").ToString.Trim + End If + _Customers.Name = dr("Név").ToString.Trim + _Customers.FullName = dr("Név").ToString.Trim + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Ország"))) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca házszám"), TryCast(_CountryExtend, Country))) + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString.Trim + _Address.ZipPostal = dr("Irányítószám").ToString.Trim + _Address.Street = dr("Utca házszám").ToString.Trim + + _Customers.Address1 = _Address + _Customers.VATNumber = dr("Adószám").ToString.Trim + _Customers.VATNumberEU = dr("EU adószám").ToString.Trim + + _Customers.Email = dr("Email").ToString.Trim + _Customers.WebSite = dr("WEB").ToString.Trim + + If dr("Telefon1").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon1")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon1" + _PhoneNumber.Number = dr("Telefon1").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon2").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon2")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon2" + _PhoneNumber.Number = dr("Telefon2").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Fax").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Fax")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Fax" + _PhoneNumber.Number = dr("Fax").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + + _Customers.Save() + + Else + _Count += 1 + If dr("Ügyfélszám").ToString.Trim.Length > 0 Then + _Customers.CustomerNumber = dr("Ügyfélszám").ToString.Trim + End If + _Customers.Name = dr("Név").ToString.Trim + _Customers.FullName = dr("Név").ToString.Trim + + _CountryExtend = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Ország"))) + _Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? and ZipPostal=? and Street=? and Country=?", _ + dr("Város"), dr("Irányítószám"), dr("Utca házszám"), TryCast(_CountryExtend, Country))) + If _Address Is Nothing Then _Address = New Address(_uow) + _Address.Country = TryCast(_CountryExtend, Country) + _Address.City = dr("Város").ToString.Trim + _Address.ZipPostal = dr("Irányítószám").ToString.Trim + _Address.Street = dr("Utca házszám").ToString.Trim + + _Customers.Address1 = _Address + _Customers.VATNumber = dr("Adószám").ToString.Trim + _Customers.VATNumberEU = dr("EU adószám").ToString.Trim + + _Customers.Email = dr("Email").ToString.Trim + _Customers.WebSite = dr("WEB").ToString.Trim + + If dr("Telefon1").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon1")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon1" + _PhoneNumber.Number = dr("Telefon1").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon2").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon2")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon2" + _PhoneNumber.Number = dr("Telefon2").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Fax").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Fax")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Fax" + _PhoneNumber.Number = dr("Fax").ToString.Trim + _Customers.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + + _Customers.Save() + + End If + End If + _WaitFormClass.DoWork + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + Else + _Count -= _UpdatedCount + MsgBox(_Count.ToString & " darab új ügyfél importálása és " & _UpdatedCount.ToString & " darab ügyfél frissítése sikeresen bejefeződött!") + dr.Close() + Exit Try + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_XLS_Contacts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Contacts.Execute + '--- Kapcsolatok importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _Customers As Customers + Dim _PhoneNumber As PhoneNumber + Dim _Contacts As Contacts + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Kapcsolatok$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _WaitFormClass.Initwork(1, 1, 4986) + '_Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám")), True) + _Contacts = _uow.FindObject(Of Contacts)(CriteriaOperator.Parse("PhoneNumbers[Number=?]", dr("Mobil")), True) + + If _Contacts Is Nothing Then + _Contacts = New Contacts(_uow) + End If + + '_Contacts.Customers = _Customers + '_Contacts.ContactNumber = dr("Ügyfélszám").ToString.Trim + _Contacts.FirstName = dr("Keresztnév").ToString.Trim + _Contacts.LastName = dr("Vezetéknév").ToString.Trim + _Contacts.Email = dr("Email").ToString.Trim + _Contacts.AccountName = dr("Account Name").ToString.Trim + + If Not dr("Születésnap").ToString.ToUpper = "" Then + _Contacts.Birthday = CDate("#" & dr("Születésnap") & "#") + End If + + _Contacts.Save() + + If dr("Mobil").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Mobil")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Mobil" + _PhoneNumber.Number = dr("Mobil").ToString.Trim + _Contacts.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon1").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon1")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon1" + _PhoneNumber.Number = dr("Telefon1").ToString.Trim + _Contacts.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Telefon2").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Telefon2")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Telefon2" + _PhoneNumber.Number = dr("Telefon2").ToString.Trim + _Contacts.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + If dr("Fax").ToString <> "" Then + _PhoneNumber = _uow.FindObject(Of PhoneNumber)(CriteriaOperator.Parse("Number=?", dr("Fax")), True) + If _PhoneNumber Is Nothing Then _PhoneNumber = New PhoneNumber(_uow) + _PhoneNumber.PhoneType = "Fax" + _PhoneNumber.Number = dr("Fax").ToString.Trim + _Contacts.PhoneNumbers.Add(_PhoneNumber) + _PhoneNumber.Save() + End If + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_Products_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Products.Execute + '--- Termékek importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _ProductsGroups As ProductsGroups + Dim _Products As Products + Dim _CustomsTariffs As CustomsTariffs + + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr2 As OleDbDataReader + Dim mSQL As String + Dim _Count As Long = 0 + Dim _UpdatedCount As Long = 0 + + + Try + + mSQL = "select * from [Termékek$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr2 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr2.Read And dr2("Cikkszám").ToString <> "" + _Count += 1 + End While + dr2.Close() + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + + If dr("Cikkszám").ToString <> "" Then + + _WaitFormClass.Initwork(1, 1, _Count) + + _ProductsGroups = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("Termékcsoport")), True) + + _Products = _uow.FindObject(Of Products)(CriteriaOperator.Parse("ProductNumber=?", dr("Cikkszám")), True) + If _Products Is Nothing Then + _Products = New Products(_uow) + Else + _UpdatedCount += 1 + End If + + If _ProductsGroups Is Nothing And dr("Termékcsoport").ToString.Trim <> Nothing Then + _ProductsGroups = New ProductsGroups(_uow) + _Products.ProductGroups = _ProductsGroups + _ProductsGroups.ShortName = dr("Termékcsoport").ToString.Trim + _ProductsGroups.Description = dr("Termékcsoport").ToString.Trim '& " Termék importból létrehozva" + End If + + _Products.ProductGroups = _ProductsGroups + _Products.ProductNumber = dr("Cikkszám").ToString.Trim + _Products.Description = dr("Leírás").ToString.Trim + _Products.Description_De = dr("LeírásNémet").ToString.Trim + _Products.Description_Gb = dr("LeírásAngol").ToString.Trim + _Products.CountryFrom = _uow.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", dr("Származási hely").ToString.Trim)) + _Products.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Devizanem").ToString.Trim)) + _CustomsTariffs = _uow.FindObject(Of CustomsTariffs)(CriteriaOperator.Parse("CustomsTariffNumber=?", dr("VTSZ").ToString.Trim)) + If _CustomsTariffs Is Nothing Then + _CustomsTariffs = New CustomsTariffs(_uow) + _CustomsTariffs.CustomsTariffNumber = dr("VTSZ").ToString.Trim + _CustomsTariffs.Description = "-" + End If + _Products.CustomsTariff = _CustomsTariffs + _Products.ListPriceOutDEV = dr("Lista ár (DEV)") + _Products.ListPriceOutHUF = dr("Lista ár (HUF)") + _Products.ShortName = dr("Megnevezés").ToString.Trim + _Products.ShortName_De = dr("MegnevezésNémet").ToString.Trim + _Products.ShortName_Gb = dr("MegnevezésAngol").ToString.Trim + _Products.VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", dr("ÁFA kód").ToString.Trim)) + _Products.Units = _uow.FindObject(Of Units)(CriteriaOperator.Parse("ShortName=?", dr("Megys").ToString.Trim)) + _Products.Parameter_01 = dr("Paraméter_01").ToString.Trim + _Products.Parameter_02 = dr("Paraméter_02").ToString.Trim + _Products.Parameter_03 = dr("Paraméter_03").ToString.Trim + _Products.Parameter_04 = dr("Paraméter_04").ToString.Trim + _Products.Parameter_05 = dr("Paraméter_05").ToString.Trim + _Products.Parameter_06 = dr("Paraméter_06").ToString.Trim + _Products.Parameter_07 = dr("Paraméter_07").ToString.Trim + _Products.Parameter_08 = dr("Paraméter_08").ToString.Trim + _Products.Parameter_09 = dr("Paraméter_09").ToString.Trim + _Products.Parameter_10 = dr("Paraméter_10").ToString.Trim + _Products.ListPriceOutHUF = Math.Round(_Products.ListPriceOutHUF, 0, MidpointRounding.AwayFromZero) + _Products.ListPriceOutDEV = Math.Round(_Products.ListPriceOutDEV, 2, MidpointRounding.AwayFromZero) + + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + Else + _Count -= _UpdatedCount + MsgBox(_Count.ToString & " darab új termék importálása és " & _UpdatedCount.ToString & " darab termék frissítése sikeresen bejefeződött!") + dr.Close() + Exit Try + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_ProductGroups_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_ProductGroups.Execute + '--- Termék csoportok importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _ProductGroups As ProductsGroups + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + 'mSQL = "select DB=count(*)" + mSQL = "select * from [Termékcsoportok$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + _WaitFormClass.Initwork(1, 1, 100) + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + + _ProductGroups = _uow.FindObject(Of ProductsGroups)(CriteriaOperator.Parse("ShortName=?", dr("Megnevezés")), True) + + If _ProductGroups Is Nothing Then _ProductGroups = New ProductsGroups(_uow) + + _ProductGroups.ShortName = dr("Megnevezés").ToString.Trim + _ProductGroups.Description = dr("Leírás").ToString.Trim + + _ProductGroups.Save() + + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_CustomersBankAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_CustomersBankAccounts.Execute + '--- Bankszámlák importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _CustomerBankAccounts As CustomerBankAccounts + Dim _Customers As Customers + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Bankszámlák$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + _WaitFormClass.Initwork(1, 1, 1000) + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=?", dr("Bankszámlaszám")), True) + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Ügyfélszám")), True) + + If _CustomerBankAccounts Is Nothing Then _CustomerBankAccounts = New CustomerBankAccounts(_uow) + + If _Customers IsNot Nothing Then _CustomerBankAccounts.Customers = _Customers + + _CustomerBankAccounts.ShortName = dr("Bank megnevezése").ToString.Trim + If dr("Bankszámlaszám").ToString.Trim.Length = 16 Then + _CustomerBankAccounts.AccountNumber = dr("Bankszámlaszám").ToString.Trim & "00000000" + Else + _CustomerBankAccounts.AccountNumber = dr("Bankszámlaszám").ToString.Trim + End If + _CustomerBankAccounts.IBAN = dr("IBAN").ToString.Trim + _CustomerBankAccounts.SWIFT = dr("SWIFT").ToString.Trim + + _CustomerBankAccounts.Save() + + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_LiquidAssets_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_LiquidAssets.Execute + '--- Pénzeszközök importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _LiquidAssets As LiquidAssets + Dim _ChartOfAccounts As ChartOfAccounts + Dim _CurrencyName As CurrencyName + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Pénzeszközök$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + _WaitFormClass.Initwork(1, 1, 1000) + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + + + _LiquidAssets = _uow.FindObject(Of LiquidAssets)(CriteriaOperator.Parse("ShortName=?", dr("Megnevezés")), True) + + If _LiquidAssets Is Nothing Then _LiquidAssets = New LiquidAssets(_uow) + _LiquidAssets.ShortName = dr("Megnevezés").ToString.Trim + + Select Case dr("Tipus") + Case 0 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.NormalCheckout + Case 1 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.NormalBank + Case 2 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.DepositCheckout + Case 3 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.Compensatory + Case 4 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.CurrencyCheckout + Case 5 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.SpecialTransaction + Case 6 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.TechnicalTransaction + Case 7 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.SimpleReceipt + Case 8 + _LiquidAssets.LiquidAssetsType = eLiquidAssetsType.Virtual + End Select + + If dr("FK számlaszám").ToString <> "" Then + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", dr("FK számlaszám")), True) + If _ChartOfAccounts Is Nothing Then _ChartOfAccounts = New ChartOfAccounts(_uow) + _ChartOfAccounts.AccountNumber = dr("FK számlaszám").ToString.Trim + '_LiquidAssets.ChartOfAccounts = _ChartOfAccounts + _ChartOfAccounts.Save() + End If + If dr("Deviza").ToString <> "" Then + _CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Deviza")), True) + If _CurrencyName Is Nothing Then _CurrencyName = New CurrencyName(_uow) + _CurrencyName.ShortName = dr("Deviza").ToString.Trim + _LiquidAssets.CurrencyName = _CurrencyName + _CurrencyName.Save() + End If + + _LiquidAssets.Save() + + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_ChartsOfAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_ChartsOfAccounts.Execute + '--- Számlatükrök importálása XLSX file-ból---------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _ChartOfAccounts As ChartOfAccounts + Dim _ChartOfAccounts_Parent As ChartOfAccounts + + Dim _AccountNumber As String + Dim _AccountNumber_Parent As String + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Számlatükör$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + _WaitFormClass.Initwork(1, 1, 1000) + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _ + _AccountNumber = dr("Számlaszám") + _AccountNumber_Parent = Mid(_AccountNumber, 1, Len(_AccountNumber) - 1) + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber), True) + + _ChartOfAccounts_Parent = Nothing + If _AccountNumber_Parent <> "" Then _ChartOfAccounts_Parent = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber_Parent), True) + + If _ChartOfAccounts Is Nothing Then _ChartOfAccounts = New ChartOfAccounts(_uow) + _ChartOfAccounts.AccountNumber = dr("Számlaszám").ToString.Trim + _ChartOfAccounts.Name = dr("Számlaszám").ToString.Trim & " " & dr("Megnevezés").ToString.Trim + _ChartOfAccounts.Parent = _ChartOfAccounts_Parent + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_Contracts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Contracts.Execute + '--- Mennyiségi egységek importálása XLSX file-ból---------------------------------------------- + Dim _Ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _uow As UnitOfWork = New UnitOfWork(_Ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _ContractTemplate As ContractTemplate + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Szerzõdések$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + _WaitFormClass.Initwork(1, 1, 10) + + Dim _CustomersFrom As CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("CustomerNumber=?", dr("Vállalat").ToString.Trim)) + Dim _Customers As Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Szállító szám").ToString.Trim)) + Dim _Contracts As Contracts = _uow.FindObject(Of Contracts)(CriteriaOperator.Parse("ShortName=? AND Customers=? AND CustomersFrom=?", dr("Megnevezés").ToString.Trim, _Customers, _CustomersFrom)) + If _Customers IsNot Nothing And _CustomersFrom IsNot Nothing Then + 'szerzõdési sablon meghatározása a szerzõdés típus szerint + If dr("Szerzõdés típus").ToString.Trim = "OS" Then + _ContractTemplate = _uow.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And PartnerType=1 And ShortName LIKE '%szállítói%'", _CustomersFrom)) + Else + _ContractTemplate = _uow.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And PartnerType=0", _CustomersFrom)) + End If + 'Ha a szerzõdés még nem létezik akkor létrehozzuk + If _Contracts Is Nothing Then + Dim _Contracts_New As Contracts = New Contracts(_uow) + _Contracts_New.ContractTemplate = _ContractTemplate + _Contracts_New.State = State.Signed + _Contracts_New.ShortName = dr("Megnevezés").ToString.Trim + _Contracts_New.CustomersFrom = _CustomersFrom + _Contracts_New.Customers = _Customers + If Not dr("Szerzõdéskötés dátuma").ToString.Trim = "" Then + Try + _Contracts_New.DateCreated = CType(CDate("#" & dr("Szerzõdéskötés dátuma").ToString.Trim & "#"), Date) + Catch + + End Try + End If + If Not dr("Szerzõdés lejárat").ToString.Trim = "" Then + Try + _Contracts_New.DateExpectClose = CType(CDate("#" & dr("Szerzõdés lejárat").ToString.Trim & "#"), Date) + Catch + + End Try + End If + _ContractTemplate.NumberGenerator.Reload() + _Contracts_New.Save() + _uow.CommitChanges() + End If + End If + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_GLAccounts.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _Ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_Ocur.Session.DataLayer) + Dim _cs As String + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + Dim _MissingCustomers As String = "" + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + + + Try + + mSQL = "select * from [Folyószámla nyitó$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + _WaitFormClass.Initwork(1, 1, 1000) + If conn.State = ConnectionState.Open Then + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + + Dim _GLAccounts As GLAccounts = New GLAccounts(_uow) + Dim _GLHeader As GLHeader = TryCast(_GLAccounts, GLHeader) + Dim _GLRows As GLRows = New GLRows(_uow) + Dim _CustomersFrom As CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("CustomerNumber=?", dr("Sajátcég").ToString.Trim)) + Dim _Customers As Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", dr("Partner sorszáma").ToString.Trim)) + Dim _ChartOfAccounts As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491'")) + Dim _PaymentOption As PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode = 1")) + Dim _CurrencyName As CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", dr("Deviza").ToString.Trim)) + Dim _PartnerType As ePartnerType = dr("Partner típusa").ToString.Trim + Dim _ExistingGLRows As GLRows = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? AND Customer=? AND PartnerType=? AND GLHeader.DocumentNumber=?", _CustomersFrom, _Customers, _PartnerType, dr("Pontozási Információ").ToString.Trim)) + + If _Customers IsNot Nothing And _CustomersFrom IsNot Nothing And _ExistingGLRows Is Nothing Then + + _GLAccounts.CustomersFrom = _CustomersFrom + _GLAccounts.Customers = _Customers + _GLAccounts.row_ConnectInfo = dr("Pontozási információ").ToString.Trim + _GLAccounts.row_AmountHUF = dr("Egyenleg HUF").ToString.Trim + _GLAccounts.row_AmountDEV = dr("Egyenleg DEV").ToString.Trim + _GLAccounts.DateCreated = CType(CDate("#" & dr("Kiállítás dátuma").ToString.Trim & "#"), Date) + _GLAccounts.DateExecution = CType(CDate("#" & dr("Teljesítés dátuma").ToString.Trim & "#"), Date) + _GLAccounts.DatePayment = CType(CDate("#" & dr("Fizetési határidõ").ToString.Trim & "#"), Date) + _GLAccounts.PaymentOption = _PaymentOption + _GLAccounts.CurrencyName = _CurrencyName + + If _PartnerType = ePartnerType.eReceivables Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + ElseIf _PartnerType = ePartnerType.ePayabels Then + _GLAccounts.PartnerType = ePartnerType.ePayabels + End If + _GLHeader = TryCast(_GLAccounts, GLHeader) + _GLHeader.Save() + + ' -- Könyvelési sor hozzáadása + ' -- PartnerType vizsgálata majd ez alapján a fõkönyvi tartozik/kövezel beállítása ------------------------ + + Dim _NettoHUF As Double + Dim _BruttoHUF As Double + Dim _VATHUF As Double + Dim _BruttoDEV As Double + Dim _GUID As Guid = Guid.NewGuid + + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLHeader.row_CreditChartOfAccounts = _ChartOfAccounts + '_GLHeader.row_DebitChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsOut + Else + _GLAccounts.PartnerType = ePartnerType.ePayabels + '_GLHeader.row_CreditChartOfAccounts = _Customers.CustomersGLParameters.ChartOfAccountsIn + _GLHeader.row_DebitChartOfAccounts = _ChartOfAccounts + End If + ' -- Deviza vizsgálat, ha nem Forint akkor átváltja --------------------------------------------------------- + If _GLHeader.CurrencyName.ShortName = "HUF" Then + _BruttoHUF = _GLHeader.row_AmountHUF + _BruttoDEV = 0 + Else + _BruttoDEV = _GLHeader.row_AmountDEV + _BruttoHUF = Math.Round(_GLHeader.row_AmountDEV * _GLHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _GLHeader.row_AmountHUF = _BruttoHUF + End If + + ' -- ÁFA vizsgálata -------------------------------------------------------------------------------------------- + ' -- Létrehoz egy sort a nettó összegre ------------------------------------------------------------------------------------------ + + _GLRows = New GLRows(_uow) + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _GLHeader.row_AmountHUF + _GLRows.DebitAmountDEV = _GLHeader.row_AmountDEV + Else + _GLRows.CreditAmountHUF = _GLHeader.row_AmountHUF + _GLRows.CreditAmountDEV = _GLHeader.row_AmountDEV + End If + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLHeader.row_LiquidAssets, _ + _Customers, _GLHeader.DateExecution, Nothing, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _ + _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.eNormal, _GLAccounts.PartnerType) + + ' -- Véglegesítés ----- + _GLAccounts.IsEditable = False + _GLAccounts.RecalculateTotal() + _GLAccounts.Save() + _GLHeader.Save() + _uow.CommitChanges() + ' -- Véglegesítés vége ----- + ' -- Könyvelési sor hozzáadása vége + End If + _WaitFormClass.DoWork() + System.Windows.Forms.Application.DoEvents() + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub Import_XLS_Services_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_Services.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _cs As String + Dim _Services As Services + Dim _XLSImports As XLSImports = TryCast(View.SelectedObjects(0), XLSImports) + + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=Excels\XLSImports.xlsx;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr2 As OleDbDataReader + Dim mSQL As String + Dim _Count As Long = 0 + Dim _UpdatedCount As Long = 0 + + + Try + + mSQL = "select * from [Szolgáltatások$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr2 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr2.Read And dr2("Megnevezés").ToString.Length > 0 + _Count += 1 + End While + dr2.Close() + _WaitFormClass.Initwork(1, 1, _Count) + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + If dr("Megnevezés").ToString <> "" Then + + _Services = _uow.FindObject(Of Services)(CriteriaOperator.Parse("ShortName=? and Description=? and ListPriceHUF=? and ListPriceDEV=?", dr("Megnevezés").ToString.Trim, dr("Leírás").ToString.Trim, dr("Lista ár (HUF)").ToString.Trim, dr("Lista ár (DEV)").ToString.Trim), True) + + If _Services Is Nothing Then + _Services = New Services(_uow) + Else + _UpdatedCount += 1 + End If + + _Services.Description = dr("Leírás").ToString.Trim + _Services.ListPriceDEV = dr("Lista ár (DEV)") + _Services.ListPriceHUF = dr("Lista ár (HUF)") + _Services.RowGroup1 = dr("Csoport 1").ToString.Trim + _Services.RowGroup2 = dr("Csoport 2").ToString.Trim + _Services.ShortName = dr("Megnevezés").ToString.Trim + _Services.Units = _uow.FindObject(Of Units)(CriteriaOperator.Parse("ShortName=?", dr("ME").ToString.Trim)) + _Services.VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", dr("ÁFA kód").ToString.Trim)) + + If dr("Recept sorszáma").ToString.Trim <> "" Then + _Services.Recipe = _uow.FindObject(Of Recipe)(CriteriaOperator.Parse("DocumentNumber=?", dr("Recept sorszáma").ToString.Trim)) + End If + + If dr("VTSZ").ToString.Trim <> "" Then + _Services.CustomsTariffs = _uow.FindObject(Of CustomsTariffs)(CriteriaOperator.Parse("CustomsTariffNumber=?", dr("VTSZ").ToString.Trim)) + End If + + _Services.Save() + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + + Else + _Count -= _UpdatedCount + MsgBox(_Count.ToString & " darab új szolgáltatás importálása és " & _UpdatedCount.ToString & " darab szolgáltatás frissítése sikeresen bejefeződött!") + dr.Close() + Exit Try + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_XLS_KSZ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles Import_XLS_KSZ.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + + Dim _cs As String + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=c:\data\fetools\R20110101.xls;" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr2 As OleDbDataReader + Dim mSQL As String + Dim _Count As Long = 0 + Dim _UpdatedCount As Long = 0 + Dim _CustomerNumber As String + + Dim _CustomersFrom As CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=Oid")) + + If _CustomersFrom Is Nothing Then Exit Sub + + Dim connstr As String + connstr = " User ID=sa; " + connstr &= " Password=pcl718;" + connstr &= " Pooling=false;" + connstr &= " Data Source=192.168.1.143,1777;" + connstr &= " Initial Catalog=sql_Cassa" + + Dim conn_sql As New SqlConnection(connstr) + Dim cmd_sql As New SqlCommand + Dim dr_sql As SqlDataReader + + 'P40001038-11 + Import_FN(_uow, "P40001038-11", _CustomersFrom, connstr) + _uow.CommitChanges() + + Try + + mSQL = "select * from [Munkafüzet$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + dr2 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr2.Read + If dr2(2).ToString.Length > 0 Then + _Count += 1 + End If + End While + dr2.Close() + _WaitFormClass.Initwork(1, 1, _Count) + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + '_CustomerNumber=dr( + If dr(1) IsNot Nothing Then + If dr(1).ToString <> "" And Mid(dr(1).ToString, 1, 1) = "F" Then + + + If Val(Mid(dr(1), 3, 20)) > 0 Then + Import_FN_1(Val(Mid(dr(1).ToString, 3, 20)), _uow, _CustomersFrom, connstr) + _uow.CommitChanges() + End If + _WaitFormClass.DoWork() + + System.Windows.Forms.Application.DoEvents() + ElseIf dr(2).ToString <> "" And Mid(dr(1).ToString, 1, 1) = "P" Then + + + Import_FN(_uow, dr(4), _CustomersFrom, connstr) + + _WaitFormClass.DoWork() + _uow.CommitChanges() + System.Windows.Forms.Application.DoEvents() + End If + End If + End While + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + _WaitFormClass.Finalwork() + End Sub + Private Sub Import_PH_Immovables_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles Import_PH_Immovables.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Import_PH_Immovables_PopUp As New Import_PH_Immovables_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "Import_PH_Immovables_PopUp_DetailView", True, _Import_PH_Immovables_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub Import_PH_Immovables_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles Import_PH_Immovables.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Import_PH_Immovables_PopUp As Import_PH_Immovables_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Import_PH_Immovables_PopUp)) + If _Import_PH_Immovables_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + If String.IsNullOrEmpty(_Import_PH_Immovables_PopUp.FileName) Then Throw New Exception("*Nem lett kiválasztva egyetlen file sem, melyből importálni lehetne!") + If Not System.IO.File.Exists(_Import_PH_Immovables_PopUp.FileName) Then Throw New Exception("*A kiválsztott file nem létezik!") + + Dim _cs As String + _cs = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=" & _Import_PH_Immovables_PopUp.FileName & ";" + _cs += "Extended Properties=""Excel 12.0;HDR=YES;""" + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim mSQL As String + Dim _UpdatedCount As Long = 0 + + Dim _WorksheetName As String = "" + Select Case _Import_PH_Immovables_PopUp.ImportPHType + Case eImportPHType.eApartments + _WorksheetName = "Lakas" + Case eImportPHType.eContainers + _WorksheetName = "Tarolo" + Case eImportPHType.eGarages + _WorksheetName = "Garazs" + Case eImportPHType.eOffices + _WorksheetName = "Uzlet" + Case eImportPHType.eInvoiceRows + _WorksheetName = "Szerzodeses sorok" + If _Import_PH_Immovables_PopUp.Customers Is Nothing Then Throw New Exception("*Nincs beállítva ügyfél!") + If _Import_PH_Immovables_PopUp.CustomersFrom Is Nothing Then Throw New Exception("*Nincs beállítva saját cég!") + End Select + + mSQL = "select * from [" + _WorksheetName + "$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + Select Case _Import_PH_Immovables_PopUp.ImportPHType + Case eImportPHType.eApartments + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + Dim _UniqueObjectString As String = dr(0) + Dim _UniqueObjectStringArray As String() = _UniqueObjectString.Split((New [Char]() {"-"})) + Dim _UniqueObjects As UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjectString)) + If _UniqueObjects Is Nothing Then + Dim _ImmovablesGroupsString As String = _UniqueObjectStringArray(0) + If _UniqueObjectStringArray.Length > 3 Then + For _ik = 1 To _UniqueObjectStringArray.Length - 3 + _ImmovablesGroupsString += "-" + _UniqueObjectStringArray(_ik) + Next + End If + + Dim _ImmovablesGroups As ImmovablesGroups = _onew.FindObject(Of ImmovablesGroups)(CriteriaOperator.Parse("UniqueTag=?", _ImmovablesGroupsString)) + Dim _Stairways As Stairways = _onew.FindObject(Of Stairways)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 2))) + Dim _Floors As Floors = _onew.FindObject(Of Floors)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _ + _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Remove(2, (_UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Length - 2)))) + _UniqueObjects = New UniqueObjects(_onew.Session) + With (_UniqueObjects) + .Name = _UniqueObjectString + End With + + Dim _Apartments As New Apartments(_onew.Session) + With _Apartments + .UniqueObjects = _UniqueObjects + Select Case dr(1).ToString + Case "Eladva" + .ImmovableSoldState = eImmovableSoldState.eSold + .CanForRent = False + .CanForSale = False + Case "Érdeklődő" + + Case Else + End Select + .ImmovableGroups = _ImmovablesGroups + .Stairway = _Stairways + .Floor = _Floors + .UniqueTag = "*" 'Nincs UniqueObject generálás + .ImmovablesTypes = eImmovablesTypes.eApartment + If Not String.IsNullOrEmpty(dr(4).ToString) Then .RoomString = dr(4).ToString + If Not String.IsNullOrEmpty(dr(5).ToString) Then .AreaNetto = Convert.ToDouble(dr(5).ToString) + If Not String.IsNullOrEmpty(dr(6).ToString) Then .AreaNettoUnder190 = Convert.ToDouble(dr(6).ToString) + If Not String.IsNullOrEmpty(dr(7).ToString) Then .AreaTerrace = Convert.ToDouble(dr(7).ToString) + If .AreaTerrace > 0 Then .IsTerrace = True + If Not String.IsNullOrEmpty(dr(9).ToString) Then .AreaNettoForSale = Convert.ToDouble(dr(9).ToString) + If Not String.IsNullOrEmpty(dr(11).ToString) Then .PriceNettoHUF = Convert.ToDouble(dr(11).ToString) + End With + End If + End While + Case eImportPHType.eContainers + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + Dim _UniqueObjectString As String = dr(0) + Dim _UniqueObjectStringArray As String() = _UniqueObjectString.Split((New [Char]() {"-"})) + Dim _UniqueObjects As UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjectString)) + If _UniqueObjects Is Nothing Then + Dim _ImmovablesGroupsString As String = _UniqueObjectStringArray(0) + If _UniqueObjectStringArray.Length > 2 Then + For _ik = 1 To _UniqueObjectStringArray.Length - 2 + _ImmovablesGroupsString += "-" + _UniqueObjectStringArray(_ik) + Next + End If + + Dim _ImmovablesGroups As ImmovablesGroups = _onew.FindObject(Of ImmovablesGroups)(CriteriaOperator.Parse("UniqueTag=?", _ImmovablesGroupsString)) + Dim _Floors As Floors = _onew.FindObject(Of Floors)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _ + _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Remove(1, (_UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Length - 1)))) + _UniqueObjects = New UniqueObjects(_onew.Session) + With (_UniqueObjects) + .Name = _UniqueObjectString + End With + + Dim _Container As New Container(_onew.Session) + With _Container + .UniqueObjects = _UniqueObjects + .ImmovableGroups = _ImmovablesGroups + .Floor = _Floors + .ImmovablesTypes = eImmovablesTypes.eContainer + .UniqueTag = "*" 'Nincs UniqueObject generálás + Select Case dr(1).ToString + Case "Eladva" + .ImmovableSoldState = eImmovableSoldState.eSold + Case "Érdeklődő" + + Case Else + End Select + + 'If Not String.IsNullOrEmpty(dr(2).ToString) Then .UniqueTag = (dr(2).ToString).Remove(0, 1) + If Not String.IsNullOrEmpty(dr(3).ToString) Then .PriceNettoHUF = Convert.ToDouble(dr(3).ToString) + End With + End If + End While + Case eImportPHType.eGarages + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + Dim _UniqueObjectString As String = dr(0) + Dim _UniqueObjectStringArray As String() = _UniqueObjectString.Split((New [Char]() {"-"})) + Dim _UniqueObjects As UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjectString)) + If _UniqueObjects Is Nothing Then + Dim _ImmovablesGroupsString As String = _UniqueObjectStringArray(0) + If _UniqueObjectStringArray.Length > 2 Then + For _ik = 1 To _UniqueObjectStringArray.Length - 2 + _ImmovablesGroupsString += "-" + _UniqueObjectStringArray(_ik) + Next + End If + + Dim _ImmovablesGroups As ImmovablesGroups = _onew.FindObject(Of ImmovablesGroups)(CriteriaOperator.Parse("UniqueTag=?", _ImmovablesGroupsString)) + Dim _Floors As Floors = _onew.FindObject(Of Floors)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _ + _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Remove(1, (_UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Length - 1)))) + _UniqueObjects = New UniqueObjects(_onew.Session) + With (_UniqueObjects) + .Name = _UniqueObjectString + End With + + Dim _Garages As New Garages(_onew.Session) + With _Garages + .UniqueObjects = _UniqueObjects + .ImmovableGroups = _ImmovablesGroups + .Floor = _Floors + .ImmovablesTypes = eImmovablesTypes.eGarage + .UniqueTag = "*" 'Nincs UniqueObject generálás + Select Case dr(1).ToString + Case "Eladva" + .ImmovableSoldState = eImmovableSoldState.eSold + Case "Érdeklődő" + + Case Else + End Select + ' If Not String.IsNullOrEmpty(dr(2).ToString) Then .UniqueTag = (dr(2).ToString).Remove(0, 1) + If Not String.IsNullOrEmpty(dr(3).ToString) Then .PriceNettoHUF = Convert.ToDouble(dr(3).ToString) + End With + End If + End While + Case eImportPHType.eOffices + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + Dim _UniqueObjectString As String = dr(0) + Dim _UniqueObjectStringArray As String() = _UniqueObjectString.Split((New [Char]() {"-"})) + Dim _UniqueObjects As UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjectString)) + If _UniqueObjects Is Nothing Then + Dim _ImmovablesGroupsString As String = _UniqueObjectStringArray(0) + If _UniqueObjectStringArray.Length > 3 Then + For _ik = 1 To _UniqueObjectStringArray.Length - 3 + _ImmovablesGroupsString += "-" + _UniqueObjectStringArray(_ik) + Next + End If + + Dim _ImmovablesGroups As ImmovablesGroups = _onew.FindObject(Of ImmovablesGroups)(CriteriaOperator.Parse("UniqueTag=?", _ImmovablesGroupsString)) + Dim _Stairways As Stairways = _onew.FindObject(Of Stairways)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 2))) + Dim _Floors As Floors = _onew.FindObject(Of Floors)(CriteriaOperator.Parse("ImmovablesGroups=? AND UniqueTag=?", _ImmovablesGroups, _ + _UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Remove(1, (_UniqueObjectStringArray(_UniqueObjectStringArray.Length - 1).Length - 1)))) + _UniqueObjects = New UniqueObjects(_onew.Session) + With (_UniqueObjects) + .Name = _UniqueObjectString + End With + + Dim _Offices As New Offices(_onew.Session) + With _Offices + .UniqueObjects = _UniqueObjects + .ImmovableGroups = _ImmovablesGroups + .Stairway = _Stairways + .Floor = _Floors + .ImmovablesTypes = eImmovablesTypes.eOffice + .UniqueTag = "*" 'Nincs UniqueObject generálás + Select Case dr(1).ToString + Case "Eladva" + .ImmovableSoldState = eImmovableSoldState.eSold + Case "Érdeklődő" + + Case Else + End Select + 'If Not String.IsNullOrEmpty(dr(2).ToString) Then .UniqueTag = (dr(2).ToString).Remove(0, 1) + If Not String.IsNullOrEmpty(dr(3).ToString) Then .AreaNettoForSale = Convert.ToDouble(dr(3).ToString) + If Not String.IsNullOrEmpty(dr(4).ToString) Then .AreaPriceNettoHUF = Convert.ToDouble(dr(4).ToString) + If Not String.IsNullOrEmpty(dr(5).ToString) Then .PriceNettoHUF = Convert.ToDouble(dr(5).ToString) + End With + End If + End While + Case eImportPHType.eInvoiceRows + Dim _Contracts As Contracts = _onew.FindObject(Of Contracts)(CriteriaOperator.Parse("Customers=? AND CustomersFrom=?", _ + _onew.GetObject(_Import_PH_Immovables_PopUp.Customers), _onew.GetObject(_Import_PH_Immovables_PopUp.CustomersFrom))) + + If _Contracts Is Nothing Then + _Contracts = New Contracts(_onew.Session) + With _Contracts + .Customers = _onew.GetObject(_Import_PH_Immovables_PopUp.Customers) + .CustomersFrom = _onew.GetObject(_Import_PH_Immovables_PopUp.CustomersFrom) + .CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + .ShortName = System.IO.Path.GetFileName(_Import_PH_Immovables_PopUp.FileName) + End With + End If + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + While dr.Read + Dim _UniqueObjectString As String = dr(0) + Dim _UniqueObjectStringArray As String() = _UniqueObjectString.Split((New [Char]() {"-"})) + Dim _UniqueObjects As UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjectString)) + If _UniqueObjects IsNot Nothing Then + Dim _Immovables As Immovables = _onew.FindObject(Of Apartments)(CriteriaOperator.Parse("UniqueObjects=?", _UniqueObjects)) + If _Immovables IsNot Nothing Then + Dim _ContractRows As New ContractRows(_onew.Session) + With _ContractRows + .Contracts = _Contracts + + + End With + + Select Case _Immovables.ImmovablesTypes + Case eImmovablesTypes.eApartment + + Case eImmovablesTypes.eContainer + Case eImmovablesTypes.eGarage + Case eImmovablesTypes.eOffice + End Select + End If + + End If + End While + + End Select + dr.Close() + End If + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aOpenFileDialog_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOpenFileDialog.Execute + Try + Dim _OpenFileDialog As New System.Windows.Forms.OpenFileDialog + _OpenFileDialog.Filter = "Xls Files (.xls)|*.xls|Xlsx Files (.xlsx)|*.xlsx|All Files (*.*)|*.*" + Dim _Import_PH_Immovables_PopUp As Import_PH_Immovables_PopUp = TryCast(View.SelectedObjects(0), Import_PH_Immovables_PopUp) + If _Import_PH_Immovables_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + _Import_PH_Immovables_PopUp.FileName = _OpenFileDialog.FileName + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/Corner.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/Corner.vb new file mode 100644 index 0000000..90bb043 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/Corner.vb @@ -0,0 +1,139 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ + _ + _ + _ + _ +Public Class Corner + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ObjectCreated As Date 'Maga az objektum mikor kszlt el + Private _UserCreated As User 'Ki csinlta + Private _ShortName As String + Private _ExcelCorner As String + Private _ExcelFile As FileData + Private _CostHolder As CostHolder + Private _Customers_Cash As Customers ' Kszpnzes vev melyik legyen az gyfltrzsben + Private _Customers_ATM As Customers ' Bankkrtys vev melyik legyen + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + _ + Property ExcelCorner As String + Get + Return _ExcelCorner + End Get + Set(value As String) + SetPropertyValue("ExcelCorner", _ExcelCorner, value) + End Set + End Property + _ + ReadOnly Property GLAccounts As XPCollection(Of GLAccounts) + Get + Return New XPCollection(Of GLAccounts)(Session, CriteriaOperator.Parse("ImportedOther=?", Me.Oid)) + End Get + End Property + _ + ReadOnly Property InvoiceNameParameters As XPCollection(Of InvoiceNameParameters) + Get + Return New XPCollection(Of InvoiceNameParameters)(Session, CriteriaOperator.Parse("PHImportType=0")) + End Get + End Property + _ + ReadOnly Property CustomerNameParameters As XPCollection(Of CustomerNameParameters) + Get + Return New XPCollection(Of CustomerNameParameters)(Session, CriteriaOperator.Parse("PHImportType=0")) + End Get + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + _ + Property Customers_Cash As Customers + Get + Return _Customers_Cash + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers_Cash", _Customers_Cash, value) + End Set + End Property + _ + Property Customers_ATM As Customers + Get + Return _Customers_ATM + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers_ATM", _Customers_ATM, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.Designer.vb new file mode 100644 index 0000000..dcaf0b3 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.Designer.vb @@ -0,0 +1,78 @@ +Partial Class CornerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateGLAccounts_Corner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCheckName_Corner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRemoveGLAccounts_Corner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateGLAccounts_Corner + ' + Me.aCreateGLAccounts_Corner.Caption = "Create GL Accounts" + Me.aCreateGLAccounts_Corner.ConfirmationMessage = "Do you want to execute ?" + Me.aCreateGLAccounts_Corner.Id = "aCreateGLAccounts_Corner" + Me.aCreateGLAccounts_Corner.ImageName = Nothing + Me.aCreateGLAccounts_Corner.Shortcut = Nothing + Me.aCreateGLAccounts_Corner.Tag = Nothing + Me.aCreateGLAccounts_Corner.TargetObjectsCriteria = Nothing + Me.aCreateGLAccounts_Corner.TargetViewId = "Corner_DetailView" + Me.aCreateGLAccounts_Corner.ToolTip = Nothing + Me.aCreateGLAccounts_Corner.TypeOfView = Nothing + ' + 'aCheckName_Corner + ' + Me.aCheckName_Corner.Caption = "Check names" + Me.aCheckName_Corner.ConfirmationMessage = "Do you want to execute ?" + Me.aCheckName_Corner.Id = "aCheckName_Corner" + Me.aCheckName_Corner.ImageName = Nothing + Me.aCheckName_Corner.Shortcut = Nothing + Me.aCheckName_Corner.Tag = Nothing + Me.aCheckName_Corner.TargetObjectsCriteria = Nothing + Me.aCheckName_Corner.TargetViewId = "Corner_DetailView" + Me.aCheckName_Corner.ToolTip = Nothing + Me.aCheckName_Corner.TypeOfView = Nothing + ' + 'aRemoveGLAccounts_Corner + ' + Me.aRemoveGLAccounts_Corner.Caption = "Remove GL Accounts" + Me.aRemoveGLAccounts_Corner.ConfirmationMessage = "Do you want to execute command ?" + Me.aRemoveGLAccounts_Corner.Id = "aRemoveGLAccounts_Corner" + Me.aRemoveGLAccounts_Corner.ImageName = Nothing + Me.aRemoveGLAccounts_Corner.Shortcut = Nothing + Me.aRemoveGLAccounts_Corner.Tag = Nothing + Me.aRemoveGLAccounts_Corner.TargetObjectsCriteria = Nothing + Me.aRemoveGLAccounts_Corner.TargetViewId = "Corner_DetailView" + Me.aRemoveGLAccounts_Corner.ToolTip = Nothing + Me.aRemoveGLAccounts_Corner.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateGLAccounts_Corner As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCheckName_Corner As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRemoveGLAccounts_Corner As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.resx b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.resx new file mode 100644 index 0000000..09f105e --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 217, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.vb new file mode 100644 index 0000000..e13ab73 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CornerVC.vb @@ -0,0 +1,678 @@ +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 FarPoint.Win.Spread +Imports DevExpress.ExpressApp.SystemModule +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.ExpressApp.Editors + + +Public Class CornerVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + Private _FpSpread As FpSpread + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Corner_InvoiceNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Corner_CustomerNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Corner_GLAccounts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Corner_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Corner_InvoiceNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + End If + If View.Id = "Corner_CustomerNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + End If + If View.Id = "Corner_GLAccounts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + End If + If View.Id = "Corner_CustomerNameParameters_ListView" Then ' Az inline edit beállítása. + Dim _ListView As ListView = TryCast(View, ListView) + _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + Dim _Grid = _GridListEditor.GridView + RemoveHandler _Grid.ShownEditor, AddressOf GridView_ShownEditor + End If + End If + End Sub + Private Sub ExcelControlViewItem_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim itemControl As Object = (CType(sender, ViewItem)).Control + + _FpSpread = TryCast(itemControl, ExcelUserControl).FpSpreadControl + + Dim _FileName As String = Path.GetTempPath & "Out.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _Corner As Corner = TryCast(View.SelectedObjects(0), Corner) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _Corner IsNot Nothing Then + If _ocur.Session.IsNewObject(_Corner) = False Then + _Corner.ExcelFile.SaveToStream(_StreamFile) + _StreamFile.Close() + _FpSpread.OpenExcel(_FileName) + End If + End If + End Sub + + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "Corner_DetailView" Then + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ExcelControlViewItem As ViewItem + If _DetailView IsNot Nothing Then + _ExcelControlViewItem = _DetailView.GetItems(Of ExcelPropertyEditor)(0) + If _ExcelControlViewItem IsNot Nothing Then + AddHandler _ExcelControlViewItem.ControlCreated, AddressOf ExcelControlViewItem_ControlCreated + End If + End If + End If + + 'If View.Id = "Corner_InvoiceNameParameters_ListView" Then ' Az inline edit beállítása. + ' Dim _ListView As ListView = TryCast(View, ListView) + ' _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + ' If _GridListEditor IsNot Nothing Then + ' _GridListEditor.AllowEdit = True + + ' For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Controlling!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + ' Next i + + ' End If + 'End If + + If View.Id = "Corner_CustomerNameParameters_ListView" Then ' Az inline edit beállítása. + Dim _ListView As ListView = TryCast(View, ListView) + _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + + Dim _Grid = _GridListEditor.GridView + AddHandler _Grid.ShownEditor, AddressOf GridView_ShownEditor + + '_GridListEditor.AllowEdit = True + + 'For i As Integer = 0 To _GridListEditor.Columns.Count - 1 + ' If _GridListEditor.GridView.Columns(i).FieldName <> "Customers!" Then + ' _GridListEditor.GridView.Columns(i).OptionsColumn.ReadOnly = True + ' _GridListEditor.GridView.Columns(i).OptionsColumn.AllowEdit = False + ' _GridListEditor.GridView.Columns(i).OptionsColumn.TabStop = False + ' End If + 'Next i + + End If + End If + End Sub + Sub GridView_ShownEditor(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _LookupEdit As LookupEdit = sender.ActiveEditor + + If _LookupEdit.Frame IsNot Nothing Then + _LookupEdit.Frame.GetController(Of FilterController)().FullTextFilterAction.Value = _GridListEditor.GridView.GetRowCellValue(_GridListEditor.GridView.FocusedRowHandle, "CustomerText") + + End If + End Sub + Sub SaveAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Dim _FileName As String = Path.GetTempPath & "In.xls" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + Dim _Corner As Corner = TryCast(View.SelectedObjects(0), Corner) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If _Corner IsNot Nothing Then + _FpSpread.SaveExcel(_StreamFile) + _StreamFile.Close() + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + _Corner.ExcelFile = New FileData(_ocur.Session) + _Corner.ExcelFile.LoadFromStream("Excel worksheet", _StreamFile2) + _Corner.Save() + _StreamFile2.Close() + End If + End Sub + + Private Sub aCreateGLAccounts_Corner_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateGLAccounts_Corner.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _Corner As Corner = _uow.GetObjectByKey(Of Corner)(TryCast(View.SelectedObjects(0), Corner).Oid) + Dim _GLAccounts As GLAccounts = Nothing + Dim _GLAccounts_check As GLAccounts + Dim _GLRows As GLRows + Dim _CustomersFrom As CustomersFrom = Nothing + Dim _InvoiceNameParameters As InvoiceNameParameters + Dim _CustomerNameParameters As CustomerNameParameters + + Dim _column As Integer = 0 + Dim _row As Integer = 0 + Dim _firstHeaderSRow As Integer + Dim _FooterIndicator As Boolean = False + Dim _HeaderIndicator As String = "T." + Dim _GUID As Guid + Dim _RowIndex As Integer = 0 + Dim _SysDate As DateTime + Dim _Rate As Double + Dim _VAT As VAT = Nothing + Dim _VATText As String = "" + Dim _CustomersText As String = "" + Dim _CustomersFromText As String = "" + + Dim _iCustomer As Integer = 0 + Dim _iPaymentOption As Integer = 0 + Dim _iCurrencyName As Integer = 0 + Dim _iCurrencySum As Integer = 0 + Dim _iDateCreated As Integer = 0 + Dim _iDateExecution As Integer = 0 + Dim _iDatePayment As Integer = 0 + Dim _iDocumentNumber As Integer = 0 + Dim _iVATHeader As Integer = 0 + Dim _iVATRow As Integer = 0 + Dim _iNetHeader As Integer = 0 + Dim _iNetRow As Integer = 0 + Dim _iGrossHeader As Integer = 0 + Dim _iGrossRow As Integer = 0 + Dim _iCustomerNumber As Integer = 0 + + Dim _GLAccounts_List As New ArrayList + _GLAccounts_List.Clear() + + '_uow.GetObjectByKey(Of InvoiceNameParameters)("PHImportType=0 And IsNull(Controlling)") + _InvoiceNameParameters = _uow.FindObject(Of InvoiceNameParameters)(CriteriaOperator.Parse("PHImportType=0 And IsNull(Controlling)")) + If _InvoiceNameParameters IsNot Nothing Then ' Megvizsgáljuk, hogy az összes tétel megnevezéséhez tartozik-e controlling adat. + Throw New UserFriendlyException("A művelet indítása előtt végezze el a Megnevezés paraméterek feldolgozását!") + End If + + For _column = 0 To _FpSpread.ActiveSheet.GetLastNonEmptyColumn(NonEmptyItemFlag.Data) 'Saját cég nevének megeresése a táblázatban. + If _FpSpread.ActiveSheet.Cells(0, _column).Text <> "" Then + '_CustomersFromText = _FpSpread.ActiveSheet.Cells(0, _column).Text.Trim 'Ha itt kap értéket a változó, a blokkon kívül nem látható az értéke. (???) + Exit For + End If + Next + _CustomersFromText = _FpSpread.ActiveSheet.Cells(0, _column).Text.Trim + + ' Mégsem a táblázatból olvassuk ki a saját céget, hanem egy propertybe bekérjük. + '_CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Name=?", _CustomersFromText)) + 'If _CustomersFrom Is Nothing Then ' Saját cég keresése. + ' Throw New UserFriendlyException("A számlát kiállító saját cég nem azonosítható.") + 'End If + + For _row = 0 To _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data) 'Fejléc keresése. + If _FpSpread.ActiveSheet.Cells(_row, 0).Text = _HeaderIndicator Then + _firstHeaderSRow = _row + Exit For + End If + Next + + For _column = 0 To _FpSpread.ActiveSheet.GetLastNonEmptyColumn(NonEmptyItemFlag.Data) ' Fejléc feldolgozása. + Select Case _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Text + Case "Számlaszám" + _iDocumentNumber = _column + Case "Megrendelő neve" + _iCustomer = _column + Case "R-Nr" + _iCustomerNumber = _column + Case "Kelte" + _iDateCreated = _column + Case "Teljesítés" + _iDateExecution = _column + Case "Esedékes" + _iDatePayment = _column + Case "Mennyiség" + _iCurrencySum = _column + Case "FM" + _iPaymentOption = _column + Case "Áfakulcs" + _iCurrencyName = _column + Case "ÁFA" + If _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Font.Bold = True Then + _iVATHeader = _column + Else + _iVATRow = _column + End If + Case "Nettó" + If _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Font.Bold = True Then + _iNetHeader = _column + Else + _iNetRow = _column + End If + Case "Bruttó" + If _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Font.Bold = True Then + _iGrossHeader = _column + Else + _iGrossRow = _column + End If + End Select + Next + + _SysDate = GetSQLTime(_uow) + _WaitFormClass.InitWork(1, 1, _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data)) + For _row = _firstHeaderSRow + 1 To _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data) 'Számlák készítése indul. + + _VAT = Nothing + If (_FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text = "SZÁMLÁK ÖSSZESÍTÉS FIZETÉSI MÓDONKÉNT") _ + Or (_FpSpread.ActiveSheet.Cells(_row, _iCustomerNumber).Text = "SZÁMLÁK ÖSSZESÍTÉS FIZETÉSI MÓDONKÉNT") Then 'Innét tudjuk, hogy elfogytak a feldolgozandó sorok. + _FooterIndicator = True + End If + + _WaitFormClass.DoWork() + + If (_FpSpread.ActiveSheet.Cells(_row, 0).Text <> _HeaderIndicator) And (_FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text.Trim <> _CustomersFromText) _ + And Not _FooterIndicator Then + + If (_FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text <> "") Then + + _GLAccounts_check = _uow.FindObject(Of GLAccounts)(CriteriaOperator.Parse("DocumentNumber=? And CustomersFrom=?", _FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text, _Corner.CustomersFrom)) + If _GLAccounts_check IsNot Nothing Then ' A DocumentNumbernek egyedinek kell lennie. + _ocur.Rollback() + _WaitFormClass.Finalwork + Throw New UserFriendlyException("A művelet nem végezhető el, már létezik számla ezzel a számmal: " + _GLAccounts_check.DocumentNumber) + End If + + '_GLAccounts = _ocur.CreateObjec(Of GLAccounts)() + '_GLAccounts = New GLAccounts(_ocur.Session) + _GLAccounts = New GLAccounts(_uow) + + _RowIndex = _RowIndex + 1 + _GLAccounts.HeaderInfo = Format(_SysDate.Date, "yyyy-MM-dd") + " " + Format(_RowIndex, "0000") + " " + _FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text + + _GLAccounts.PartnerType = ePartnerType.eReceivables ' Partner típusa. + _GLAccounts.CustomersFrom = _Corner.CustomersFrom ' Saját cég. + _CustomersText = _FpSpread.ActiveSheet.Cells(_row, _iCustomer).Text ' Partner neve a táblázatban + _CustomerNameParameters = _uow.FindObject(Of CustomerNameParameters)(CriteriaOperator.Parse("CustomerNumber=? And PHImportType=0", _FpSpread.ActiveSheet.Cells(_row, _iCustomerNumber).Text)) + + If _FpSpread.ActiveSheet.Cells(_row, _iPaymentOption).Text = "KP" Then ' A fizetési módnak megfelelő ügyfél és fizetési mód kiválasztása. + _GLAccounts.Customers = _Corner.Customers_Cash ' Partner. + If _CustomerNameParameters IsNot Nothing Then + If _CustomerNameParameters.Customers IsNot Nothing Then + _GLAccounts.Customers = _CustomerNameParameters.Customers ' Ha találunk partnert a CustomerNameParameters táblában, akkor felülírjuk + End If + End If + _GLAccounts.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=?", ePayMode.InCash)) ' Fizetési mód. + Else 'ElseIf _FpSpread.ActiveSheet.Cells(_row, _iPaymentOption).Text = "HK" Then + _GLAccounts.Customers = _Corner.Customers_ATM ' Partner + If _CustomerNameParameters IsNot Nothing Then + If _CustomerNameParameters.Customers IsNot Nothing Then + _GLAccounts.Customers = _CustomerNameParameters.Customers ' Ha találunk partnert a CustomerNameParameters táblában, akkor felülírjuk + End If + End If + _GLAccounts.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=?", ePayMode.InTransfer)) + End If + + _GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _FpSpread.ActiveSheet.Cells(_row, _iCurrencyName).Text())) + If _GLAccounts.CurrencyName Is Nothing Then + _ocur.Rollback() + _WaitFormClass.Finalwork + Throw New UserFriendlyException("Nem sikerült beazonosítani az alábbi devizanemet: " + _FpSpread.ActiveSheet.Cells(_row, _iCurrencyName).Text) + End If + + If _GLAccounts.CurrencyName.ShortName = "HUF" Then ' Árfolyam kiszámolása. + _Rate = 1 ' A belső számolásokhoz + _GLAccounts.CurrencyRateVAT = 1 + Else + _Rate = Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iGrossHeader).Text) / Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iCurrencySum).Text) ' A belső számolásokhoz + _GLAccounts.CurrencyRateVAT = Math.Round(_Rate, 4, MidpointRounding.AwayFromZero) + End If + _GLAccounts.CurrencyRate = _GLAccounts.CurrencyRateVAT ' A két árfolyam azonos. + + _GLAccounts.DateCreated = Convert.ToDateTime(_FpSpread.ActiveSheet.Cells(_row, _iDateCreated).Text).Date + _GLAccounts.DateExecution = Convert.ToDateTime(_FpSpread.ActiveSheet.Cells(_row, _iDateExecution).Text).Date + _GLAccounts.DatePayment = Convert.ToDateTime(_FpSpread.ActiveSheet.Cells(_row, _iDatePayment).Text).Date + + _GLAccounts.DocumentNumber = _FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text + _GLAccounts.ConnectInfo = _FpSpread.ActiveSheet.Cells(_row, _iDocumentNumber).Text + _GLAccounts.GLDocumentType = eGLDocumentType.eGLAccount ' Dokumentum típusa. + + _GLAccounts.IsEditable = False ' Nem szerkeszthető. + _GLAccounts.IsStorno = False ' Nem sztornózott. + + _GLAccounts.NoteHeader = "Corner" + _GLAccounts.ImportedOther = _Corner.Oid + + _GLAccounts.Save() + _GLAccounts_List.Add(_GLAccounts) + End If + + If _FpSpread.ActiveSheet.Cells(_row, _iGrossRow).Text <> "" Then ' Tétel sorok. + _GUID = Guid.NewGuid + _InvoiceNameParameters = _uow.FindObject(Of InvoiceNameParameters)(CriteriaOperator.Parse("PHImportType=0 And ShortName=?", _FpSpread.ActiveSheet.Cells(_row, _iPaymentOption).Text)) + + If _InvoiceNameParameters Is Nothing Then ' Megvizsgáljuk, hogy az adott tétel megtalálható-e. + _ocur.Rollback() + _WaitFormClass.Finalwork + Throw New UserFriendlyException("A művelet nem végezhető el, végre kell hajtani a Megnevezés paraméterek feldolgozását!") + End If + + If _VAT Is Nothing Then + Select Case _FpSpread.ActiveSheet.Cells(_row, _iCurrencyName).Text ' Egyenlőre úgy tűnik, át kell konvertálni az ÁFA kódolkat, ez a PH-ra lett szabva. + Case "27" + _VATText = "27%" + Case "25" + _VATText = "25%" + Case "18" + _VATText = "18%" + Case "0" + _VATText = "ÁTHK" + Case Else + _VATText = "" + End Select + _VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", _VATText)) + End If + + If _VAT Is Nothing Then + _VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", LTrim(RTrim(_FpSpread.ActiveSheet.Cells(_row, _iCurrencyName).Text)) + "%")) + End If + If _VAT Is Nothing Then + _VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("ShortName=?", LTrim(RTrim(_FpSpread.ActiveSheet.Cells(_row, _iCurrencyName).Text)) + " %")) + End If 'Nem egységes az áfakulcs sor rögzítése, de megtesszük, amit lehet... + + If _VAT Is Nothing Then ' Nem találtuk meg az ÁFA-kulcsot + _ocur.Rollback() + _WaitFormClass.Finalwork + Throw New UserFriendlyException("Nem sikerült megtalálni az Áfa-kulcs paramétert: " + _VATText) + End If + + + If Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iNetRow).Text) <> 0 Then ' Nettó rész. + _GLRows = New GLRows(_uow) + + If _GLAccounts.CurrencyName.ShortName = "HUF" Then + _GLRows.AmountHUF = Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iNetRow).Text) + Else + _GLRows.AmountDEV = Math.Round(Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iNetRow).Text) / _Rate, 4, MidpointRounding.AwayFromZero) ' Számolni kell. + _GLRows.AmountHUF = Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iNetRow).Text) + End If + + If _FpSpread.ActiveSheet.Cells(_row, _iPaymentOption).Text = "KP" Then ' Más a főkönyvi szlaszám kp., és más utalás esetén. + _GLRows.DebitChartOfAccounts = _Corner.Customers_Cash.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLRows.DebitChartOfAccounts = _Corner.Customers_ATM.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + End If + _GLRows.CreditChartOfAccounts = _InvoiceNameParameters.Controlling.ChartOfAccounts + + _GLRows.GLRowsGUID = _GUID + _GLRows.ConnectInfo = _GLAccounts.DocumentNumber + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + + _GLRows.Customer = _GLAccounts.Customers + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.NoteRows = _CustomersText + _GLRows.GLHeader.NoteHeader = _CustomersText + + _GLRows.DateVAT = _GLAccounts.DateExecution + _GLRows.VAT = _VAT + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + + _GLRows.CostHolder = _Corner.CostHolder + _GLRows.Controlling = _InvoiceNameParameters.Controlling + _GLRows.CostPlace = Nothing + _GLRows.JobNumberObjects = Nothing + + _GLRows.Save() + _GLAccounts.RecalculateTotal() + + + _GLRows = New GLRows(_uow) ' Áfa rész + + If _GLAccounts.CurrencyName.ShortName = "HUF" Then + _GLRows.AmountHUF = Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iVATRow).Text) + Else + _GLRows.AmountDEV = Math.Round(Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iVATRow).Text) / _Rate, 4, MidpointRounding.AwayFromZero) ' Számolni kell. + _GLRows.AmountHUF = Convert.ToDouble(_FpSpread.ActiveSheet.Cells(_row, _iVATRow).Text) + End If + + If _FpSpread.ActiveSheet.Cells(_row, _iPaymentOption).Text = "KP" Then ' Más a főkönyvi szlaszám kp., és más utalás esetén. + _GLRows.DebitChartOfAccounts = _Corner.Customers_Cash.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLRows.DebitChartOfAccounts = _Corner.Customers_ATM.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + End If + _GLRows.CreditChartOfAccounts = _VAT.ChartOfAccountsOut + + _GLRows.GLRowsGUID = _GUID + _GLRows.ConnectInfo = _GLAccounts.DocumentNumber + _GLRows.GLHeader = TryCast(_GLAccounts, GLHeader) + + _GLRows.Customer = _GLAccounts.Customers + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.NoteRows = _CustomersText + _GLRows.GLHeader.NoteHeader = _CustomersText + + _GLRows.DateVAT = _GLAccounts.DateExecution + _GLRows.VAT = _VAT + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow + + _GLRows.CostHolder = _Corner.CostHolder + _GLRows.Controlling = _InvoiceNameParameters.Controlling + _GLRows.CostPlace = Nothing + _GLRows.JobNumberObjects = Nothing + + _GLRows.Save() + _GLAccounts.RecalculateTotal() + End If + End If + End If + + Next + _uow.CommitChanges() + _WaitFormClass.Finalwork + + '// Pontozás lefuttatása + _WaitFormClass.InitWork(1, 1, _GLAccounts_List.Count) + For Each _GLAccounts In _GLAccounts_List + _WaitFormClass.DoWork() + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, ePartnerType.eReceivables, _GLAccounts.ConnectInfo) + Next + _WaitFormClass.Finalwork + + + View.Refresh() + + End Sub + + Private Sub aCheckName_Corner_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCheckName_Corner.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _InvoiceNameParameters As InvoiceNameParameters + Dim _CustomerNameParameters As CustomerNameParameters + + Dim _firstHeaderSRow As Integer + Dim _HeaderIndicator As String = "T." + Dim _ColumnName1 As String = "FM" + Dim _ColumnName2 As String = "Bruttó" + Dim _ColumnName3 As String = "Megrendelő neve" + Dim _ColumnName31 As String = "Útlevél" + Dim _ColumnName4 As String = "R-Nr" + Dim _ColumnName5 As String = "Mennyiség" + Dim _iCol1 As Integer + Dim _iCol2 As Integer + Dim _iCol3 As Integer + Dim _iCol4 As Integer + Dim _iCol5 As Integer + + Dim _row As Integer + Dim _column As Integer + + For _row = 0 To _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data) 'Megkeressük az első oldal fejlécét. + If _FpSpread.ActiveSheet.Cells(_row, 0).Text = _HeaderIndicator Then + _firstHeaderSRow = _row + Exit For + End If + Next + + For _column = 0 To _FpSpread.ActiveSheet.GetLastNonEmptyColumn(NonEmptyItemFlag.Data) 'Végigmegyünk az oszlopokon. + + Select Case _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Text ' Fejléc feldolgozása. + Case _ColumnName1 + _iCol1 = _column ' Eltároljuk a "fizetési mód/megnevezés" oszlop sorszámát. + Case _ColumnName2 + If _FpSpread.ActiveSheet.Cells(_firstHeaderSRow, _column).Font.Bold = False Then + _iCol2 = _column ' Eltároljuk a "tételsor bruttó értéke" oszlop sorszámát + End If + Case _ColumnName3 ' Eltároljuk a "Vendég neve/Útlevél" oszlop sorszámát + _iCol3 = _column + Case _ColumnName4 ' Eltároljuk az "R-Nr" oszlop sorszámát + _iCol4 = _column + Case _ColumnName5 ' Eltároljuk a "Mennyiség" oszlop sorszámát + _iCol5 = _column + + End Select + Next + + _WaitFormClass.InitWork(1, 1, _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data)) + For _row = _firstHeaderSRow To _FpSpread.ActiveSheet.GetLastNonEmptyRow(NonEmptyItemFlag.Data) ' Végigmegyünk az egész táblázaton. + + _WaitFormClass.DoWork() + + If _FpSpread.ActiveSheet.Cells(_row, _iCol2).Text <> _ColumnName2 And _FpSpread.ActiveSheet.Cells(_row, _iCol2).Text <> "" Then ' Ha a cella szövege nem üres, de nem is az oszlop fejlécének szövege, akkor találtunk tételsort. + _InvoiceNameParameters = _uow.FindObject(Of InvoiceNameParameters)(CriteriaOperator.Parse("ShortName=? And PHImportType=0", _FpSpread.ActiveSheet.Cells(_row, _iCol1).Text)) + + If _InvoiceNameParameters Is Nothing Then ' Amennyigen a megnevezés még nincs az InvoiceNameParameters táblában, beszúrjuk. + _InvoiceNameParameters = New InvoiceNameParameters(_uow) + _InvoiceNameParameters.PHImportType = ePHImportType.eCorner + _InvoiceNameParameters.ShortName = _FpSpread.ActiveSheet.Cells(_row, _iCol1).Text + + Try + _InvoiceNameParameters.Save() + _uow.CommitChanges() + Catch + _WaitFormClass.Finalwork + End Try + End If + End If + + If _FpSpread.ActiveSheet.Cells(_row, _iCol3).Text <> _ColumnName3 And _FpSpread.ActiveSheet.Cells(_row, _iCol3).Text <> _ColumnName31 _ + And _FpSpread.ActiveSheet.Cells(_row, _iCol3).Text <> "" And _FpSpread.ActiveSheet.Cells(_row, _iCol5).Text <> "" Then ' Ha a cella szövege nem üres, de nem is az oszlop fejlécének szövege, akkor találtunk tételsort. + _CustomerNameParameters = _uow.FindObject(Of CustomerNameParameters)(CriteriaOperator.Parse("CustomerNumber=? And PHImportType=0", _FpSpread.ActiveSheet.Cells(_row, _iCol4).Text)) + + If _CustomerNameParameters Is Nothing Then ' Amennyigen az ügyfélszám még nincs az CustomerNameParameters táblában, beszúrjuk. + _CustomerNameParameters = New CustomerNameParameters(_uow) + _CustomerNameParameters.PHImportType = ePHImportType.eCorner + _CustomerNameParameters.CustomerText = _FpSpread.ActiveSheet.Cells(_row, _iCol3).Text + _CustomerNameParameters.CustomerNumber = _FpSpread.ActiveSheet.Cells(_row, _iCol4).Text + + Try + _CustomerNameParameters.Save() + _uow.CommitChanges() + Catch + _WaitFormClass.Finalwork + End Try + End If + End If + + Next + _WaitFormClass.Finalwork + View.Refresh() + End Sub + Private Sub aRemoveGLAccounts_Corner_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveGLAccounts_Corner.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Corner As Corner = TryCast(View.SelectedObjects(0), Corner) + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("ImportedOther=?", _Corner.Oid)) + + _uow.Delete(_GLAccounts_Collection) + _uow.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/CustomerNameParameters.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CustomerNameParameters.vb new file mode 100644 index 0000000..a4142f2 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/CustomerNameParameters.vb @@ -0,0 +1,58 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomerNameParameters + Inherits BaseObject + Private _PHImportType As ePHImportType + Private _CustomerNumber As String + Private _CustomerText As String + Private _Customers As Customers + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Public Property PHImportType As ePHImportType + Get + Return _PHImportType + End Get + Set(value As ePHImportType) + SetPropertyValue("PHImportType", _PHImportType, value) + End Set + End Property + Property CustomerNumber As String + Get + Return _CustomerNumber + End Get + Set(value As String) + SetPropertyValue("CustomerNumber", _CustomerNumber, value) + End Set + End Property + Property CustomerText As String + Get + Return _CustomerText + End Get + Set(value As String) + SetPropertyValue("CustomerText", _CustomerText, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/InvoiceNameParameters.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/InvoiceNameParameters.vb new file mode 100644 index 0000000..e5dc168 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/InvoiceNameParameters.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum ePHImportType + eCorner = 0 + eVivaldi = 1 +End Enum + _ + _ +Public Class InvoiceNameParameters + Inherits BaseObject + Private _PHImportType As ePHImportType + Private _ShortName As String + Private _Controlling As Controlling + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Public Property PHImportType As ePHImportType + Get + Return _PHImportType + End Get + Set(value As ePHImportType) + SetPropertyValue("PHImportType", _PHImportType, value) + End Set + End Property + Public Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Public Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/Vivaldi.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/Vivaldi.vb new file mode 100644 index 0000000..ac3f019 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/Vivaldi.vb @@ -0,0 +1,129 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ + _ + _ + _ + _ +Public Class Vivaldi + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ObjectCreated As Date 'Maga az objektum mikor kszlt el + Private _UserCreated As User 'Ki csinlta + Private _ShortName As String + Private _ExcelFile As FileData 'Import file, amibl a betlts ltrejn + Private _CostHolder As CostHolder + Private _Customers_Cash As Customers ' Kszpnzes vev melyik legyen az gyfltrzsben + Private _Customers_ATM As Customers ' Bankkrtys vev melyik legyen + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + _ + ReadOnly Property GLAccounts As XPCollection(Of GLAccounts) + Get + Return New XPCollection(Of GLAccounts)(Session, CriteriaOperator.Parse("ImportedOther=?", Me.Oid)) + End Get + End Property + _ + ReadOnly Property InvoiceNameParameters As XPCollection(Of InvoiceNameParameters) + Get + Return New XPCollection(Of InvoiceNameParameters)(Session, CriteriaOperator.Parse("PHImportType=1")) + End Get + End Property + _ + ReadOnly Property CustomerNameParameters As XPCollection(Of CustomerNameParameters) + Get + Return New XPCollection(Of CustomerNameParameters)(Session, CriteriaOperator.Parse("PHImportType=1")) + End Get + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + _ + Property Customers_Cash As Customers + Get + Return _Customers_Cash + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers_Cash", _Customers_Cash, value) + End Set + End Property + _ + Property Customers_ATM As Customers + Get + Return _Customers_ATM + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers_ATM", _Customers_ATM, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.Designer.vb new file mode 100644 index 0000000..84832a9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.Designer.vb @@ -0,0 +1,78 @@ +Partial Class VivaldiVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateGLAccounts_Vivaldi = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCheckName_Vivaldi = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRemoveGLAccounts_Vivaldi = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateGLAccounts_Vivaldi + ' + Me.aCreateGLAccounts_Vivaldi.Caption = "Create GL Accounts" + Me.aCreateGLAccounts_Vivaldi.ConfirmationMessage = "Do you want to execute ?" + Me.aCreateGLAccounts_Vivaldi.Id = "aCreateGLAccounts_Vivaldi" + Me.aCreateGLAccounts_Vivaldi.ImageName = Nothing + Me.aCreateGLAccounts_Vivaldi.Shortcut = Nothing + Me.aCreateGLAccounts_Vivaldi.Tag = Nothing + Me.aCreateGLAccounts_Vivaldi.TargetObjectsCriteria = Nothing + Me.aCreateGLAccounts_Vivaldi.TargetViewId = "Vivaldi_DetailView" + Me.aCreateGLAccounts_Vivaldi.ToolTip = Nothing + Me.aCreateGLAccounts_Vivaldi.TypeOfView = Nothing + ' + 'aCheckName_Vivaldi + ' + Me.aCheckName_Vivaldi.Caption = "Check names" + Me.aCheckName_Vivaldi.ConfirmationMessage = "Do you want to execute ?" + Me.aCheckName_Vivaldi.Id = "aCheckName_Vivaldi" + Me.aCheckName_Vivaldi.ImageName = Nothing + Me.aCheckName_Vivaldi.Shortcut = Nothing + Me.aCheckName_Vivaldi.Tag = Nothing + Me.aCheckName_Vivaldi.TargetObjectsCriteria = Nothing + Me.aCheckName_Vivaldi.TargetViewId = "Vivaldi_DetailView" + Me.aCheckName_Vivaldi.ToolTip = Nothing + Me.aCheckName_Vivaldi.TypeOfView = Nothing + ' + 'aRemoveGLAccounts_Vivaldi + ' + Me.aRemoveGLAccounts_Vivaldi.Caption = "Remove GL Accounts" + Me.aRemoveGLAccounts_Vivaldi.ConfirmationMessage = "Do you want to execute command ?" + Me.aRemoveGLAccounts_Vivaldi.Id = "aRemoveGLAccounts_Vivaldi" + Me.aRemoveGLAccounts_Vivaldi.ImageName = Nothing + Me.aRemoveGLAccounts_Vivaldi.Shortcut = Nothing + Me.aRemoveGLAccounts_Vivaldi.Tag = Nothing + Me.aRemoveGLAccounts_Vivaldi.TargetObjectsCriteria = Nothing + Me.aRemoveGLAccounts_Vivaldi.TargetViewId = "Vivaldi_DetailView" + Me.aRemoveGLAccounts_Vivaldi.ToolTip = Nothing + Me.aRemoveGLAccounts_Vivaldi.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateGLAccounts_Vivaldi As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCheckName_Vivaldi As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRemoveGLAccounts_Vivaldi As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.resx b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.resx new file mode 100644 index 0000000..64a1d5f --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 216, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb new file mode 100644 index 0000000..4a79651 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/PH Imports/VivaldiVC.vb @@ -0,0 +1,404 @@ +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 System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports Microsoft.VisualBasic.FileIO +Imports System.Threading + +Public Class VivaldiVC + Inherits DevExpress.ExpressApp.ViewController + Dim _WaitFormClass As New WaitFormClass + + Private _GridListEditor As GridListEditor + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + _WaitFormClass = New WaitFormClass + + If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Vivaldi_GLAccounts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", False) + End If + If View.Id = "Vivaldi_DetailView" Then + AddHandler Frame.GetController(Of ModificationsController)().SaveAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndCloseAction.Executing, AddressOf SaveAction_Executing + AddHandler Frame.GetController(Of ModificationsController)().SaveAndNewAction.Executing, AddressOf SaveAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Vivaldi_InvoiceNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + End If + If View.Id = "Vivaldi_CustomerNameParameters_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + End If + If View.Id = "Vivaldi_GLAccounts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Win.SystemModule.OpenObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of PrintingController)().Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + End Sub + Sub SaveAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + End Sub + + Private Sub aCreateGLAccounts_Vivaldi_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateGLAccounts_Vivaldi.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Vivaldi As Vivaldi = _onew.GetObject(TryCast(View.SelectedObjects(0), Vivaldi)) + Dim _RowCount As Long = 0 + Dim _GLAccount As GLAccounts + Dim _GLRows As GLRows + If _Vivaldi.ExcelFile Is Nothing Then Exit Sub + Dim _VAT As VAT + Dim _DocumentNumber As String = "" + Dim _DocumentNumber_Last As String = "" + Dim _DocumentNumber_Act As String = "" + Dim _MemoryStream As New MemoryStream + _Vivaldi.ExcelFile.SaveToStream(_MemoryStream) + Dim _StreamReader As New System.IO.StreamReader(_MemoryStream, System.Text.Encoding.GetEncoding(1250)) + Dim _StrBuffer As String = "" + Dim columns As String() + Dim _Loadable As Boolean = False + + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + _StrBuffer = _StreamReader.ReadToEnd() + _StreamReader.Close() + _MemoryStream.Close() + + Using parser As New TextFieldParser(New StringReader(_StrBuffer)) + parser.TextFieldType = FieldType.Delimited + parser.SetDelimiters(";") + While Not parser.EndOfData + Try + columns = parser.ReadFields() + _RowCount += 1 + Catch ex As MalformedLineException + + End Try + End While + End Using + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + GLOBAL_HAS_Audit = False + + Using parser As New TextFieldParser(New StringReader(_StrBuffer)) + parser.TextFieldType = FieldType.Delimited + parser.SetDelimiters(";") + parser.TrimWhiteSpace = True + _WaitFormClass.Initwork(1, 1, _RowCount) + While Not parser.EndOfData + Try + columns = parser.ReadFields() + _WaitFormClass.DoWork() + If parser.LineNumber > 2 Or parser.LineNumber = -1 Then + _DocumentNumber = Replace(columns(3).ToString, " ", "") + 'If _DocumentNumber = "F01-1-204/2014" Then + If _DocumentNumber_Last <> _DocumentNumber Then + If _DocumentNumber_Last <> "" Then + '// Az előző befejezése + If _GLAccount IsNot Nothing Then + _GLAccount.RecalculateTotal() + _onew.CommitChanges() + End If + End If + _Loadable = False + _GLAccount = _onew.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and DocumentNumber=? and PartnerType=0 and IsEditable=False", _Vivaldi.CustomersFrom, _DocumentNumber), True) + If _GLAccount Is Nothing Then + _Loadable = True + _GLAccount = _onew.CreateObject(Of GLAccounts)() + + _GLAccount.ConnectInfo = _DocumentNumber + _GLAccount.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", columns(18).ToString)) + If _GLAccount.CurrencyName Is Nothing Then _GLAccount.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'", columns(18).ToString)) + _GLAccount.Customers = _Vivaldi.Customers_ATM + If columns(0).ToString = "KPS" Then _GLAccount.Customers = _Vivaldi.Customers_Cash + If columns(0).ToString = "HKS" Then _GLAccount.Customers = _Vivaldi.Customers_ATM + _GLAccount.CustomersFrom = _Vivaldi.CustomersFrom + If _GLAccount.Customers.Oid = _Vivaldi.Customers_Cash.Oid Then + _GLAccount.PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("ShortName='Készpénz'")) + Else + _GLAccount.PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("ShortName='Átutalás'")) + End If + _GLAccount.DateCreated = CDate(columns(5)) + _GLAccount.DateExecution = CDate(columns(6)) + _GLAccount.DatePayment = CDate(columns(7)) + _GLAccount.DocumentNumber = _GLAccount.ConnectInfo + _GLAccount.GLDocumentType = eGLDocumentType.eGLAccount + _GLAccount.ImportedOther = _Vivaldi.Oid + _GLAccount.IsEditable = False + _GLAccount.IsStorno = False + _GLAccount.NoteHeader = "" + _GLAccount.PartnerType = ePartnerType.eReceivables + + + _GLAccount.VATAvowalType = eVATAvowalType.eGeneral + End If + + _DocumentNumber_Last = _DocumentNumber + Else + + End If + + If _GLAccount IsNot Nothing And _Loadable = True Then + + 'Nettó sor + + Dim _Rate As Double = 1 + If Val(SQLNum(columns(17))) <> 0 Then + _Rate = Math.Round((Val(SQLNum(columns(13))) + Val(SQLNum(columns(16)))) / Val(SQLNum(columns(17))), 4, MidpointRounding.AwayFromZero) + End If + + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLAccount + + _GLRows.AmountHUF = Val(SQLNum(columns(13))) + If Val(SQLNum(columns(17))) <> 0 Then + _GLRows.AmountDEV = Math.Round(_GLRows.AmountHUF / _Rate, 4, MidpointRounding.AwayFromZero) + End If + _GLRows.ConnectInfo = _GLAccount.ConnectInfo + _GLRows.Controlling = Nothing + _GLRows.CostHolder = _Vivaldi.CostHolder + _GLRows.CostPlace = Nothing + If columns(11) = "K" Then + _GLRows.CreditChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", Year(_GLAccount.DateExecution), columns(8).ToString)) + _GLRows.DebitChartOfAccounts = _GLAccount.Customers.CustomersGLParameters.GetChartOfAccounts(Year(_GLAccount.DateExecution), eVATMode.eOut) + ElseIf columns(11) = "T" Then + _GLRows.DebitChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", Year(_GLAccount.DateExecution), columns(8).ToString)) + _GLRows.CreditChartOfAccounts = _GLAccount.Customers.CustomersGLParameters.GetChartOfAccounts(Year(_GLAccount.DateExecution), eVATMode.eOut) + End If + _GLRows.Customer = _GLAccount.Customers + _GLRows.DateExecution = _GLAccount.DateExecution + _GLRows.DateVAT = _GLAccount.DateExecution + _GLRows.GLRowsType = eGLRowsType.eNormal + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.NoteRows = columns(12).ToString + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.RowIndex = Val(columns(4)) + _GLRows.TransactionType = eTransactionType.eNotSet + _VAT = _onew.FindObject(Of VAT)(CriteriaOperator.Parse("VATBag=?", columns(14))) + + + If _VAT IsNot Nothing Then _GLRows.VAT = _VAT + If Val(columns(16)) > 0 Then + 'ÁFA sor + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLAccount + _GLRows.AmountDEV = 0 + _GLRows.AmountHUF = Val(SQLNum(columns(16))) + If Val(SQLNum(columns(17))) <> 0 Then + _GLRows.AmountDEV = Math.Round(_GLRows.AmountHUF / _Rate, 4, MidpointRounding.AwayFromZero) + End If + + _GLRows.ConnectInfo = _GLAccount.ConnectInfo + _GLRows.CostHolder = _Vivaldi.CostHolder + + If columns(11) = "K" Then + _GLRows.CreditChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", Year(_GLAccount.DateExecution), columns(15).ToString)) + _GLRows.DebitChartOfAccounts = _GLAccount.Customers.CustomersGLParameters.GetChartOfAccounts(Year(_GLAccount.DateExecution), eVATMode.eOut) + ElseIf columns(11) = "T" Then + _GLRows.DebitChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", Year(_GLAccount.DateExecution), columns(15).ToString)) + _GLRows.CreditChartOfAccounts = _GLAccount.Customers.CustomersGLParameters.GetChartOfAccounts(Year(_GLAccount.DateExecution), eVATMode.eOut) + End If + + _GLRows.Customer = _GLAccount.Customers + _GLRows.DateExecution = _GLAccount.DateExecution + _GLRows.DateVAT = _GLAccount.DateExecution + + _GLRows.GLRowsType = eGLRowsType.eNormal + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow + _GLRows.NoteRows = "" + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.RowIndex = Val(columns(4)) + 1 + If _VAT IsNot Nothing Then _GLRows.VAT = _VAT + End If + End If + End If + 'End If + Catch ex As MalformedLineException + + End Try + End While + If _GLAccount IsNot Nothing Then _GLAccount.RecalculateTotal() + _onew.CommitChanges() + _WaitFormClass.FinalWork() + End Using + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + Finally + GLOBAL_HAS_Audit = True + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub + + Private Sub aCheckName_Vivaldi_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCheckName_Vivaldi.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Vivaldi As Vivaldi = _onew.GetObject(TryCast(View.SelectedObjects(0), Vivaldi)) + Dim _RowCount As Long = 0 + Dim _GLAccount As GLAccounts + Dim _GLRows As GLRows + If _Vivaldi.ExcelFile Is Nothing Then Exit Sub + Dim _VAT As VAT + Dim _DocumentNumber As String + Dim _J As Long = 1 + Dim _MemoryStream As New MemoryStream + _Vivaldi.ExcelFile.SaveToStream(_MemoryStream) + Dim _StreamReader As New System.IO.StreamReader(_MemoryStream, System.Text.Encoding.GetEncoding(1250)) + Dim _StrBuffer As String = "" + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + _StrBuffer = _StreamReader.ReadToEnd() + _StreamReader.Close() + _MemoryStream.Close() + + Using parser As New TextFieldParser(New StringReader(_StrBuffer)) + parser.TextFieldType = FieldType.Delimited + parser.SetDelimiters(";") + While Not parser.EndOfData + Try + Dim columns As String() = parser.ReadFields() + _RowCount += 1 + Catch ex As MalformedLineException + + End Try + End While + End Using + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + GLOBAL_HAS_Audit = False + + Using parser As New TextFieldParser(New StringReader(_StrBuffer)) + parser.TextFieldType = FieldType.Delimited + parser.SetDelimiters(";") + parser.TrimWhiteSpace = True + _WaitFormClass.Initwork(1, 1, _RowCount) + While Not parser.EndOfData + Try + Dim columns As String() = parser.ReadFields() + _WaitFormClass.DoWork() + If parser.LineNumber > 2 Then + _DocumentNumber = Replace(columns(3).ToString, " ", "") + _GLAccount = _onew.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and DocumentNumber=? and PartnerType=0", _Vivaldi.CustomersFrom, _DocumentNumber), True) + If _GLAccount Is Nothing Then + Debug.Print(String.Format("{0:0000}. {1}", _J, _DocumentNumber)) + _J += 1 + End If + End If + Catch ex As MalformedLineException + + End Try + End While + _WaitFormClass.FinalWork() + End Using + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + Finally + GLOBAL_HAS_Audit = True + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub + + Private Sub aRemoveGLAccounts_Vivaldi_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveGLAccounts_Vivaldi.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Vivaldi As Vivaldi = TryCast(View.SelectedObjects(0), Vivaldi) + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("ImportedOther=?", _Vivaldi.Oid)) + + _uow.Delete(_GLAccounts_Collection) + _uow.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.Designer.vb new file mode 100644 index 0000000..aba7a36 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RepairRegistryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.vb b/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.vb new file mode 100644 index 0000000..92ccf9b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/Repair/RepairRegistryVC.vb @@ -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 + +Public Class RepairRegistryVC + Inherits SISBusiness.Module.RepairRegistryVC + Dim _WaitFormClass As New WaitFormClass + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.Initwork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb new file mode 100644 index 0000000..e46ebb8 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SISChatVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.vb b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.vb new file mode 100644 index 0000000..39893c9 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatVC.vb @@ -0,0 +1,135 @@ +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.XtraEditors +Imports DevExpress.ExpressApp.HtmlPropertyEditor.Win +Imports System.Windows.Forms +Imports System.Net +Imports System.IO + +Public Class SISChatVC + Inherits SISBusiness.Module.SISChatVC + Private ChatTimerCore As Timer +#If DEBUG Then + Private _SISChatURL As String = "http://192.168.1.102/SISChat/SISChat.ashx?id=" +#Else + Private _SISChatURL As String = "http://sis-r.hu/SISChat/SISChat.ashx?id=" +#End If + 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 = "SISChat_DetailView" Then + AddHandler Me.MyAutoscroll, AddressOf MyAutoscroll_Scroll + Dim _HTMLBody As DevExpress.ExpressApp.Validation.Win.MemoEditStringPropertyEditor = TryCast(View, DetailView).FindItem("HTMLBody") + If _HTMLBody IsNot Nothing Then + AddHandler _HTMLBody.ControlCreated, AddressOf HTMLBody_ControlCreated + + End If + InitChatTimerCore() + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If ChatTimerCore IsNot Nothing Then + RemoveHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "SISChat_DetailView" Then + Dim _HtmlPropertyEditor As HtmlPropertyEditor + + _HtmlPropertyEditor = TryCast(View, DetailView).FindItem("HTMLEvents") + If _HtmlPropertyEditor IsNot Nothing Then + If _HtmlPropertyEditor.Editor IsNot Nothing Then + If _HtmlPropertyEditor.Editor.TabControl IsNot Nothing Then + If _HtmlPropertyEditor.Editor.TabControl.TabPages(1) IsNot Nothing Then + _HtmlPropertyEditor.Editor.TabControl.TabPages(1).PageVisible = False + End If + End If + If _HtmlPropertyEditor.Editor.BrowserControl IsNot Nothing Then + _HtmlPropertyEditor.Editor.BrowserControl.Document.Window.ScrollTo(0, Int16.MaxValue) + End If + End If + End If + End If + + End Sub + Private Sub MyAutoscroll_Scroll(sender As Object, e As EventArgs) + Dim _DetailView As DetailView = TryCast(View, DetailView) + If _DetailView IsNot Nothing Then + Dim _HtmlPropertyEditor As HtmlPropertyEditor = TryCast(View, DetailView).FindItem("HTMLEvents") + If _HtmlPropertyEditor IsNot Nothing Then + If _HtmlPropertyEditor.Editor IsNot Nothing Then + _HtmlPropertyEditor.Editor.BrowserControl.Document.Window.ScrollTo(0, Int16.MaxValue) + End If + End If + End If + End Sub + Protected Overridable Sub InitChatTimerCore() + ChatTimerCore = New Timer() + AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick + ChatTimerCore.Interval = 3000 + ChatTimerCore.Start() + End Sub + + Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs) + '// Itt kell lekrni a cuccokat + ChatTimerCore.Enabled = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SISChat As SISChat = TryCast(View.SelectedObjects(0), SISChat) + Dim _JSON As String + + + _JSON = _SISChat.CreateJSONSerialize(_SISChat.HTMLBody, eChatDirection.eOut) + + Try + Dim URL As String = _SISChatURL & _JSON + Dim request As HttpWebRequest = TryCast(WebRequest.Create(URL), HttpWebRequest) + Dim response As HttpWebResponse = TryCast(request.GetResponse, HttpWebResponse) + + Dim reader As StreamReader = New StreamReader(response.GetResponseStream()) + Dim str As String = reader.ReadToEnd + + If _SISChat.HTMLEvents <> str Then + _SISChat.HTMLEvents = str + MyAutoscroll_Scroll(sender, e) + End If + Catch exp As Exception + _SISChat.HTMLEvents = exp.Message + + End Try + + ChatTimerCore.Enabled = True + End Sub + + Private Sub HTMLBody_KeyUp(sender As Object, e As KeyEventArgs) + If e.KeyCode = 13 Then + + Frame.GetController(Of SISChatVC).aSISChatSubmit.DoExecute() + e.Handled = True + End If + End Sub + + Private Sub HTMLBody_ControlCreated(sender As Object, e As EventArgs) + Dim _HTMLBody As DevExpress.ExpressApp.Validation.Win.MemoEditStringPropertyEditor = TryCast(sender, DevExpress.ExpressApp.Validation.Win.MemoEditStringPropertyEditor) + If _HTMLBody IsNot Nothing Then + AddHandler _HTMLBody.Control.KeyUp, AddressOf HTMLBody_KeyUp + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.Designer.vb new file mode 100644 index 0000000..87a0300 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.Designer.vb @@ -0,0 +1,31 @@ +Partial Class SISChatWC + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb new file mode 100644 index 0000000..f010e0b --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb @@ -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 System.Windows.Forms +Imports DevExpress.XtraBars.Alerter +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Public Class SISChatWC + Inherits DevExpress.ExpressApp.WindowController + + Private ChatAlertControlCore As AlertControl + Private ChatAlertTimerCore As Timer + Private ChatTimerCore As Timer + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + TargetWindowType = WindowType.Main + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + '// Meg kell nzni, hogy a felhasznl tud-e Chatelni ! + + + End Sub + Protected Overridable Sub InitChatTimerCore() + ChatTimerCore = New Timer() + AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick + ChatTimerCore.Interval = 5000 + ChatTimerCore.Start() + End Sub + + Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs) + '// Itt kell lekrni a cuccokat + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.Designer.vb b/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.Designer.vb new file mode 100644 index 0000000..b720385 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SystemTool_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.vb b/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.vb new file mode 100644 index 0000000..f717a12 --- /dev/null +++ b/SISBusiness.Module.Win/BusinessObjects/SystemTool/SystemTool_VC.vb @@ -0,0 +1,34 @@ +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 SystemTool_VC + Inherits SISBusiness.Module.SystemTool_VC + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler DoWork, AddressOf _WaitFormClass.DoWork + AddHandler InitWork, AddressOf _WaitFormClass.InitWork + AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork + RemoveHandler InitWork, AddressOf _WaitFormClass.InitWork + RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/AnonymVC.Designer.vb b/SISBusiness.Module.Win/Controllers/AnonymVC.Designer.vb new file mode 100644 index 0000000..8e6835d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/AnonymVC.Designer.vb @@ -0,0 +1,42 @@ +Partial Class AnonymVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aAnonymData = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aAnonymData + ' + Me.aAnonymData.Caption = "aAnonym Data" + Me.aAnonymData.ConfirmationMessage = Nothing + Me.aAnonymData.Id = "aAnonymData" + Me.aAnonymData.ToolTip = Nothing + + End Sub + Friend WithEvents aAnonymData As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/AnonymVC.resx b/SISBusiness.Module.Win/Controllers/AnonymVC.resx new file mode 100644 index 0000000..01b7ef5 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/AnonymVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/AnonymVC.vb b/SISBusiness.Module.Win/Controllers/AnonymVC.vb new file mode 100644 index 0000000..9b7f04d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/AnonymVC.vb @@ -0,0 +1,85 @@ +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.Xpo +Imports DevExpress.Persistent.BaseImpl + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Partial Public Class AnonymVC + 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. + Frame.GetController(Of AnonymVC).aAnonymData.Active.SetItemValue("", False) + 'If SecuritySystem.CurrentUserName = "SysAdmin" Then + ' Frame.GetController(Of AnonymVC).aAnonymData.Active.SetItemValue("", True) + 'End If + 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. + Frame.GetController(Of AnonymVC).aAnonymData.Active.SetItemValue("", False) + MyBase.OnDeactivated() + End Sub + + Private Sub aAnonymData_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAnonymData.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _Organization_Collection As New XPCollection(Of Organization)(_uow) + Dim _Organization As Organization + + For Each _Organization In _Organization_Collection + Dim _Z1 As ZIPHU = ObjectSpace.FindObject(Of ZIPHU)(CriteriaOperator.Parse("ID=?", Math.Round(Rnd() * 3570, 0, MidpointRounding.AwayFromZero))) + Dim _Z2 As ZIPHU = ObjectSpace.FindObject(Of ZIPHU)(CriteriaOperator.Parse("ID=?", Math.Round(Rnd() * 3570, 0, MidpointRounding.AwayFromZero))) + + _Organization.Name = String.Format("{0} {1}", _Z1.City, _Z2.City) + _Organization.FullName = _Organization.Name + + If _Organization.Address1 IsNot Nothing Then + _Organization.Address1.Street = _Organization.Name + End If + + If _Organization.Address2 IsNot Nothing Then + _Organization.Address2.Street = _Organization.Name + End If + + _uow.CommitChanges() + Next + + Dim _Person_Collection As New XPCollection(Of Person)(_uow) + Dim _Person As Person + + For Each _Person In _Person_Collection + Dim _LN1 As String = TryCast(ObjectSpace, Xpo.XPObjectSpace).Session.ExecuteScalar(String.Format("select LastName from _LastName where Oid={0}", Math.Round(Rnd() * 9039, 0, MidpointRounding.AwayFromZero))) + Dim _LN2 As String = TryCast(ObjectSpace, Xpo.XPObjectSpace).Session.ExecuteScalar(String.Format("select LastName from _LastName where Oid={0}", Math.Round(Rnd() * 9039, 0, MidpointRounding.AwayFromZero))) + + _Person.LastName = _LN1 + _Person.FirstName = _LN2 + _Person.Email = String.Format("{0}.{1}@tdfexample.org", _LN2, _LN1) + + _uow.CommitChanges() + Next + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.Designer.vb b/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.Designer.vb new file mode 100644 index 0000000..64d34f3 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class AutoFilterRowControllerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.vb b/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.vb new file mode 100644 index 0000000..2611b7e --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/AutoFilterRowControllerVC.vb @@ -0,0 +1,53 @@ +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.XtraGrid.Views.Base +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraGrid + +Public Class AutoFilterRowControllerVC + Inherits DevExpress.ExpressApp.ViewController + Private currentView As ListView + Private gridView As ColumnView + Private falseCriteria As CriteriaOperator = CriteriaOperator.Parse("1=0") + + 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 = "ProductFinder_ProductSelect_ListView" Then + ' currentView = CType(View, ListView) + ' AddHandler currentView.ControlsCreated, AddressOf AutoFilterRowController_ControlsCreated + 'End If + End Sub + Private Sub AutoFilterRowController_ControlsCreated(ByVal sender As Object, ByVal e As EventArgs) + Dim grid As GridControl = TryCast(currentView.Control, GridControl) + gridView = TryCast(grid.FocusedView, ColumnView) + If gridView.ActiveFilter.IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + End If + AddHandler gridView.ActiveFilter.Changed, AddressOf ActiveFilter_Changed + End Sub + Private Sub ActiveFilter_Changed(ByVal sender As Object, ByVal e As EventArgs) + If (CType(sender, ViewFilter)).IsEmpty Then + currentView.CollectionSource.Criteria("FalseCriteria") = falseCriteria + Else + If currentView.CollectionSource.Criteria.ContainsKey("FalseCriteria") Then + currentView.CollectionSource.Criteria.Remove("FalseCriteria") + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CentralListViewVC.Designer.vb b/SISBusiness.Module.Win/Controllers/CentralListViewVC.Designer.vb new file mode 100644 index 0000000..aae944d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CentralListViewVC.Designer.vb @@ -0,0 +1,63 @@ +Partial Class CentralListViewVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSaveCentralListViewSettings = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aResetCentralListViewSettings = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSaveCentralListViewSettings + ' + Me.aSaveCentralListViewSettings.Caption = "aSave Central List View Settings" + Me.aSaveCentralListViewSettings.ConfirmationMessage = "Are you sure ?" + Me.aSaveCentralListViewSettings.Id = "aSaveCentralListViewSettings" + Me.aSaveCentralListViewSettings.ImageName = Nothing + Me.aSaveCentralListViewSettings.Shortcut = Nothing + Me.aSaveCentralListViewSettings.Tag = Nothing + Me.aSaveCentralListViewSettings.TargetObjectsCriteria = Nothing + Me.aSaveCentralListViewSettings.TargetViewId = Nothing + Me.aSaveCentralListViewSettings.ToolTip = Nothing + Me.aSaveCentralListViewSettings.TypeOfView = Nothing + ' + 'aResetCentralListViewSettings + ' + Me.aResetCentralListViewSettings.Caption = "aReset Central List View Settings" + Me.aResetCentralListViewSettings.ConfirmationMessage = "Are you sure ?" + Me.aResetCentralListViewSettings.Id = "aResetCentralListViewSettings" + Me.aResetCentralListViewSettings.ImageName = Nothing + Me.aResetCentralListViewSettings.Shortcut = Nothing + Me.aResetCentralListViewSettings.Tag = Nothing + Me.aResetCentralListViewSettings.TargetObjectsCriteria = Nothing + Me.aResetCentralListViewSettings.TargetViewId = Nothing + Me.aResetCentralListViewSettings.ToolTip = Nothing + Me.aResetCentralListViewSettings.TypeOfView = Nothing + + End Sub + Friend WithEvents aSaveCentralListViewSettings As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aResetCentralListViewSettings As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CentralListViewVC.resx b/SISBusiness.Module.Win/Controllers/CentralListViewVC.resx new file mode 100644 index 0000000..be57891 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CentralListViewVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 227, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/CentralListViewVC.vb b/SISBusiness.Module.Win/Controllers/CentralListViewVC.vb new file mode 100644 index 0000000..5de9e2f --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CentralListViewVC.vb @@ -0,0 +1,234 @@ +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.Win.Editors +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.TreeListEditors.Win +Imports DevExpress.ExpressApp.Win.Core +Imports DevExpress.Xpo +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.ExpressApp.PivotGrid.Win +Imports DevExpress.ExpressApp.PivotGrid +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Win.SystemModule + +Public Class CentralListViewVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Dim _WaitFormClass As New WaitFormClass + 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 CentralListViewVC).aSaveCentralListViewSettings.Active.SetItemValue("", False) + Frame.GetController(Of CentralListViewVC).aResetCentralListViewSettings.Active.SetItemValue("", False) + + Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + If _IModelListViewExtender.IsCentralListView Then + + Frame.GetController(Of CentralListViewVC).aSaveCentralListViewSettings.Active.SetItemValue("", True) + Frame.GetController(Of CentralListViewVC).aResetCentralListViewSettings.Active.SetItemValue("", True) + + AddHandler View.ControlsCreating, AddressOf View_ControlCreating + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler View.ControlsCreating, AddressOf View_ControlCreating + End Sub + + Private Sub View_ControlCreating(sender As Object, e As EventArgs) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ModelListView As ModelListView + Dim _IModelListView As IModelListView = TryCast(View.Model, IModelListView) + Dim _PropertyCollectionSource As PropertyCollectionSource + + _PropertyCollectionSource = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) + + If _PropertyCollectionSource IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + Dim _MasterObject As Guid = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject.oid + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=? and MasterObject=?", View.Id, _MasterObject)) + Else + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=?", View.Id)) + End If + Else + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=?", View.Id)) + End If + + If _ModelListView IsNot Nothing Then + If _IModelListView.EditorType = GetType(PivotGridListEditor) Then + TryCast(View.Model, IModelPivotListView).PivotSettings.Settings = _ModelListView.PivotSettings + View.SaveModel() + 'View.LoadModel() + End If + If _IModelListView.EditorType = GetType(GridListEditor) Then + TryCast(View.Model, IModelListView).IsFooterVisible = _ModelListView.IsFooterVisible + TryCast(View.Model, IModelListView).IsGroupPanelVisible = _ModelListView.IsGroupPanelVisible + TryCast(View.Model, IModelListViewShowAutoFilterRow).ShowAutoFilterRow = _ModelListView.ShowAutoFilterRow + TryCast(View.Model, IModelListViewShowFindPanel).ShowFindPanel = _ModelListView.ShowFindPanel + + For Each _Column In TryCast(View.Model, IModelListView).Columns + _Column.Index = -1 + _Column.GroupIndex = -1 + Next + + For Each _ModelListViewColumn As ModelListViewColumn In _ModelListView.ModelListViewColumn + Dim _Found As Boolean = False + + For Each _Column In TryCast(View.Model, IModelListView).Columns + If _Column.Id = _ModelListViewColumn.Id Then + _Column.Index = _ModelListViewColumn.Index + _Column.GroupIndex = _ModelListViewColumn.GroupIndex + _Column.Width = _ModelListViewColumn.Width + _Column.GroupInterval = _ModelListViewColumn.GroupInterval + _Found = True + Exit For + End If + Next + If _Found = False Then + Dim _Column As IModelColumn = TryCast(View.Model, IModelListView).Columns.AddNode(Of IModelColumn)(_ModelListViewColumn.Id) + TryCast(_Column, IModelColumnExtender).HideValueIfZero = _ModelListViewColumn.HideValueIfZero + TryCast(_Column, IModelColumnExtender).InLineCriteria = _ModelListViewColumn.InLineCriteria + TryCast(_Column, IModelColumnExtender).InLineEdit = _ModelListViewColumn.InLineEdit + _Column.AllowEdit = _ModelListViewColumn.AllowEdit + 'TryCast(_Column, IModelColumnAllowSort).AllowSort = _ModelListViewColumn.AllowSort + _Column.GroupInterval = _ModelListViewColumn.GroupInterval + _Column.ImmediatePostData = _ModelListViewColumn.ImmediatePostData + _Column.IsPassword = _ModelListViewColumn.IsPassword + _Column.PropertyName = _ModelListViewColumn.PropertyName + _Column.GroupIndex = _ModelListViewColumn.GroupIndex + _Column.MaxLength = _ModelListViewColumn.MaxLength + _Column.SortIndex = _ModelListViewColumn.SortIndex + _Column.Width = _ModelListViewColumn.Width + _Column.Caption = _ModelListViewColumn.Caption + _Column.Index = _ModelListViewColumn.Index + End If + Next + View.SaveModel() + 'View.LoadModel() + End If + End If + End Sub + + Private Sub aSaveCentralListViewSettings_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSaveCentralListViewSettings.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ModelListView As ModelListView + Dim _ModelListViewColumn As ModelListViewColumn + Dim _IModelListView As IModelListView = TryCast(View.Model, IModelListView) + Try + GLOBAL_HAS_Audit = False + View.SaveModel() + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + Dim _MasterObject As Guid = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject.oid + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=? and MasterObject=?", View.Id, _MasterObject)) + + If _ModelListView Is Nothing Then + _ModelListView = _onew.CreateObject(Of ModelListView)() + _ModelListView.MasterObject = _MasterObject + _ModelListView.Id = View.Id + End If + Else + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=?", View.Id)) + If _ModelListView Is Nothing Then + _ModelListView = _onew.CreateObject(Of ModelListView)() + _ModelListView.Id = View.Id + End If + End If + If _ModelListView IsNot Nothing Then + If _IModelListView.EditorType = GetType(PivotGridListEditor) Then + View.SaveModel() + _ModelListView.PivotSettings = TryCast(View.Model, IModelPivotListView).PivotSettings.Settings + End If + If _IModelListView.EditorType = GetType(GridListEditor) Then + View.SaveModel() + _ModelListView.IsFooterVisible = TryCast(View.Model, IModelListView).IsFooterVisible + _ModelListView.IsGroupPanelVisible = TryCast(View.Model, IModelListView).IsGroupPanelVisible + _ModelListView.ShowAutoFilterRow = TryCast(View.Model, IModelListViewShowAutoFilterRow).ShowAutoFilterRow + _ModelListView.ShowFindPanel = TryCast(View.Model, IModelListViewShowFindPanel).ShowFindPanel + + _onew.Delete(_ModelListView.ModelListViewColumn) + + + _WaitFormClass.Initwork(1, 1, TryCast(View.Model, IModelListView).Columns.Count) + For Each _Column In TryCast(View.Model, IModelListView).Columns + _WaitFormClass.DoWork() + _ModelListViewColumn = _onew.CreateObject(Of ModelListViewColumn)() + _ModelListViewColumn.ModelListView = _ModelListView + _ModelListViewColumn.Index = _Column.Index + _ModelListViewColumn.GroupIndex = _Column.GroupIndex + _ModelListViewColumn.HideValueIfZero = TryCast(_Column, IModelColumnExtender).HideValueIfZero + _ModelListViewColumn.InLineCriteria = TryCast(_Column, IModelColumnExtender).InLineCriteria + _ModelListViewColumn.InLineEdit = TryCast(_Column, IModelColumnExtender).InLineEdit + _ModelListViewColumn.AllowEdit = _Column.AllowEdit + _ModelListViewColumn.AllowSort = TryCast(_Column, IModelColumnAllowSort).AllowSort + _ModelListViewColumn.GroupInterval = _Column.GroupInterval + _ModelListViewColumn.ImmediatePostData = _Column.ImmediatePostData + _ModelListViewColumn.IsPassword = _Column.IsPassword + _ModelListViewColumn.PropertyName = _Column.PropertyName + _ModelListViewColumn.GroupIndex = _Column.GroupIndex + _ModelListViewColumn.MaxLength = _Column.MaxLength + _ModelListViewColumn.SortIndex = _Column.SortIndex + If _Column.Index >= 0 Then + _ModelListViewColumn.Width = TryCast(TryCast(View, ListView).Editor, GridListEditor).Columns(_Column.Index).Width + End If + _ModelListViewColumn.Caption = _Column.Caption + _ModelListViewColumn.Index = _Column.Index + _ModelListViewColumn.Id = _Column.Id + Next + End If + _onew.CommitChanges() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + _Waitformclass.FinalWork + End Try + End Sub + Private Sub aResetCentralListViewSettings_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aResetCentralListViewSettings.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ModelListView As ModelListView + Dim _IModelListView As IModelListView = TryCast(View.Model, IModelListView) + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + Dim _MasterObject As Guid = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject.oid + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=? and MasterObject=?", View.Id, _MasterObject)) + Else + _ModelListView = _onew.FindObject(Of ModelListView)(CriteriaOperator.Parse("Id=?", View.Id)) + End If + + If _ModelListView IsNot Nothing Then + Dim _ModelListViewColumn_Collection As New XPCollection(Of ModelListViewColumn)(_onew.Session, CriteriaOperator.Parse("ModelListView=?", _ModelListView)) + + _onew.Delete(_ModelListViewColumn_Collection) + _onew.Delete(_ModelListView) + + _onew.CommitChanges() + End If + + End Sub + + + '//CSK + + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CountListView.Designer.vb b/SISBusiness.Module.Win/Controllers/CountListView.Designer.vb new file mode 100644 index 0000000..500ebba --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CountListView.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CountListView + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CountListView.vb b/SISBusiness.Module.Win/Controllers/CountListView.vb new file mode 100644 index 0000000..f047d38 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CountListView.vb @@ -0,0 +1,45 @@ +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 +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule + +Public Class CountListView + 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() + 'SetNavitemCaptionCount("RegistryTasks_ListView_Not_Completed", "@RegistryTask_ListView_Not_Completed") + 'SetNavitemCaptionCount("CRM_Leads_Activity_Task_ListView", "CRM_Leads_Activity_Task_ListView") + End Sub + Sub SetNavitemCaptionCount(_ListView As String, _NavigationItem As String) + Dim ListViewModel As IModelListView = Application.FindModelView(_ListView) + Dim count As Long = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.Evaluate(ListViewModel.ModelClass.TypeInfo.Type, New AggregateOperand("", Aggregate.Count), CriteriaOperator.Parse(ListViewModel.Criteria)) + Dim navItem As ChoiceActionItem = Application.MainWindow.GetController(Of ShowNavigationItemController).ShowNavigationItemAction.Items.Find(_NavigationItem, ChoiceActionItemFindType.Recursive, ChoiceActionItemFindTarget.Any) + Dim sArray() As String + If navItem IsNot Nothing Then + sArray = Split(navItem.Caption, "[") + If UBound(sArray) > 0 Then + navItem.Caption = Replace(sArray(0).ToString, "[", "").Trim + String.Format(" [{0}]", count) + Else + navItem.Caption += String.Format(" [{0}]", count) + End If + + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.Designer.vb b/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.Designer.vb new file mode 100644 index 0000000..f952d6b --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CreateLogonWindowsControllerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.vb b/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.vb new file mode 100644 index 0000000..cc05e23 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CreateLogonWindowsControllerVC.vb @@ -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 CreateLogonWindowsControllerVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/CustomPrintingController.Designer.vb b/SISBusiness.Module.Win/Controllers/CustomPrintingController.Designer.vb new file mode 100644 index 0000000..9452622 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CustomPrintingController.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CustomPrintingController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CustomPrintingController.vb b/SISBusiness.Module.Win/Controllers/CustomPrintingController.vb new file mode 100644 index 0000000..68ac5b6 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CustomPrintingController.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports System.Drawing +Imports System.Object +Imports System.Windows.Forms + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.XtraPrinting +Imports System.Drawing.Printing +Imports DevExpress.XtraReports.UI +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.Data.Filtering + +Public Class CustomPrintingController + Inherits PrintingController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + 'Protected Overrides Sub OnPrintingSettingsLoaded(ByVal args As PrintableComponentLinkEventArgs) + ' MyBase.OnPrintingSettingsLoaded(args) + ' CustomizePrintingSystem(args.PrintableComponentLink) + 'End Sub + + Private Sub CustomizePrintingSystem(ByVal link As PrintableComponentLink) + Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + + Dim _CustomersFrom As CustomersFrom = View.ObjectSpace.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=True")) + + + Dim _HeaderLeft As String = String.Format(_IModelListViewExtender.HeaderLeft, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + Dim _HeaderCenter As String = String.Format(_IModelListViewExtender.HeaderCenter, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + Dim _HeaderRight As String = String.Format(_IModelListViewExtender.HeaderRight, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + Dim _FooterLeft As String = String.Format(_IModelListViewExtender.FooterLeft, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + Dim _FooterCenter As String = String.Format(_IModelListViewExtender.FooterCenter, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + Dim _FooterRight As String = String.Format(_IModelListViewExtender.FooterRight, _CustomersFrom.FullName, View.Model.Caption, GLOBAL_MainModuleVersion) + + Dim _PageHeaderFooter As PageHeaderFooter = TryCast(link.PageHeaderFooter, PageHeaderFooter) + + _PageHeaderFooter.Header.Content.Clear() + _PageHeaderFooter.Footer.Content.Clear() + + _PageHeaderFooter.Header.Content.AddRange(New String() {_HeaderLeft, _HeaderCenter, _HeaderRight}) + '_PageHeaderFooter.Header.LineAlignment = BrickAlignment.Far + + _PageHeaderFooter.Footer.Content.AddRange(New String() {_FooterLeft, _FooterCenter, _FooterRight}) + '_PageHeaderFooter.Footer.LineAlignment = BrickAlignment.Far + + ' + End Sub + Private Sub CustomPrintingController_CustomPrint(sender As Object, e As HandledEventArgs) Handles Me.CustomPrint + e.Handled = True + Dim _PrintableComponentLink As PrintableComponentLink = New PrintableComponentLink(New PrintingSystem()) + _PrintableComponentLink.Component = GetPrintable() + CustomizePrintingSystem(_PrintableComponentLink) + _PrintableComponentLink.PrintDlg() + End Sub + Private Sub CustomPrintingController_CustomShowPrintPreview(sender As Object, e As CustomShowPrintPreviewEventArgs) Handles Me.CustomShowPrintPreview + e.Handled = True + Dim _PrintableComponentLink As PrintableComponentLink = New PrintableComponentLink(New PrintingSystem()) + _PrintableComponentLink.Component = GetPrintable() + CustomizePrintingSystem(_PrintableComponentLink) + _PrintableComponentLink.ShowPreviewDialog() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/CustomReportWizardController.Designer.vb b/SISBusiness.Module.Win/Controllers/CustomReportWizardController.Designer.vb new file mode 100644 index 0000000..280780e --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CustomReportWizardController.Designer.vb @@ -0,0 +1,31 @@ +Partial Class ReportWizardModifyController + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/CustomReportWizardController.vb b/SISBusiness.Module.Win/Controllers/CustomReportWizardController.vb new file mode 100644 index 0000000..35a9f0f --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CustomReportWizardController.vb @@ -0,0 +1,99 @@ +Imports Microsoft.VisualBasic +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.ExpressApp.Reports +Imports DevExpress.ExpressApp.Reports.Win +Imports DevExpress.Persistent.Validation +Imports DevExpress.XtraReports.UI +Imports DevExpress.XtraReports.Parameters +Imports DevExpress.XtraReports.Design +Imports DevExpress.XtraReports.UserDesigner +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.AuditTrail +Imports DevExpress.Persistent.BaseImpl + +Imports System.Data +Imports System.Drawing.Printing + + +Partial Public Class ReportWizardModifyController + Inherits WindowController + Private reportServiceController As WinReportServiceController + Public Sub New() + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + reportServiceController = Frame.GetController(Of WinReportServiceController)() + AddHandler reportServiceController.NewXafReportWizardShowing, AddressOf reportServiceController_NewXafReportWizardShowing + 'AddHandler reportServiceController.CustomShowPreview, AddressOf WinReportsController_CustomShowPreview + AddHandler reportServiceController.CustomShowPreview, AddressOf reportServiceController_CustomShowPreview + End Sub + Protected Overrides Sub OnDeactivated() + RemoveHandler reportServiceController.NewXafReportWizardShowing, AddressOf reportServiceController_NewXafReportWizardShowing + 'RemoveHandler reportServiceController.CustomShowPreview, AddressOf WinReportsController_CustomShowPreview + reportServiceController = Nothing + MyBase.OnDeactivated() + End Sub + Private Sub reportServiceController_CustomShowPreview(ByVal sender As Object, ByVal e As CustomShowPreviewEventArgs) + AddHandler e.Report.PrintProgress, AddressOf report_PrintProgress + + End Sub + Private Sub report_PrintProgress(sender As Object, e As DevExpress.XtraPrinting.PrintProgressEventArgs) + + End Sub + Private Sub reportServiceController_NewXafReportWizardShowing(ByVal sender As Object, ByVal e As NewXafReportWizardShowingEventArgs) + If (Not e.ReportDataType.Equals(GetType(CustomReportData))) Then + Return + End If + Dim newReportParamsObject As New CustomReportWizardParameters(e.WizardParameters.Report) + newReportParamsObject.ReportName = "Custom report name" + newReportParamsObject.AdditionalInfo = "AdditionalInfo default value" + e.WizardParameters = newReportParamsObject + + End Sub + Private Sub WinReportsController_CustomShowPreview(ByVal sender As Object, ByVal e As CustomShowPreviewEventArgs) + ' 'Dim _NameOfCreator As XRLabel = TryCast(e.Report.FindControl("NameOfCreator", False), XRLabel) + + ' If e.Report.Name = "xafReport_OfferOut" Then + ' Dim _ocur As Xpo.XPObjectSpace = TryCast(e.Report.ObjectSpace, Xpo.XPObjectSpace) + ' Dim _AuditTrail As XPCollection(Of AuditDataItemPersistent) = AuditedObjectWeakReference.GetAuditTrail(_ocur.Session, e.Report.GetCurrentRow) + + ' 'Dim _DocumentNumber As XRLabel = TryCast(e.Report.FindControl("DocumentNumber", False), XRLabel) + + ' 'Dim _st As String = e.Report.GetCurrentColumnValue("DocumentNumber") + ' 'Dim _AuditedObjectWeakReference As XPCollection = AuditedObjectWeakReference.GetAuditTrail() + + ' 'Dim _OfferOutHeader As OfferOutHeader = _ocur.FindObject(Of OfferOutHeader)(CriteriaOperator.Parse("DocumentNumber=?", _DocumentNumber.Text)) + ' 'Dim _AuditDataItemPersistent As AuditDataItemPersistent = _ocur.FindObject(Of AuditDataItemPersistent)(CriteriaOperator.Parse("AuditedObject=?", _OfferOutHeader.Oid)) + + ' '_NameOfCreator.Text = _AuditDataItemPersistent.UserName + ' End If + 'Dim _ReportData As ReportData = + 'e.Report.ExportToPdf() + + End Sub +End Class + _ +Friend Class CustomReportWizardParameters + Inherits NewXafReportWizardParameters + Public Sub New(ByVal report As XafReport) + MyBase.New(report) + End Sub + Public Property AdditionalInfo() As String + Get + Return (CType(Report, CustomXafReport)).AdditionalInfo + End Get + Set(ByVal value As String) + CType(Report, CustomXafReport).AdditionalInfo = value + End Set + End Property +End Class + diff --git a/SISBusiness.Module.Win/Controllers/CustomXAFReport.vb b/SISBusiness.Module.Win/Controllers/CustomXAFReport.vb new file mode 100644 index 0000000..8315a9e --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/CustomXAFReport.vb @@ -0,0 +1,43 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Text +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Xpo +Imports DevExpress.XtraReports +Imports DevExpress.XtraReports.Serialization +Imports DevExpress.Persistent.BaseImpl + + _ +Public Class CustomXafReport + Inherits XafReport + Protected additionalInfo_Renamed As String + Public Property AdditionalInfo() As String + Get + Return additionalInfo_Renamed + End Get + Set(ByVal value As String) + additionalInfo_Renamed = value + End Set + End Property + Protected Overrides Sub SerializeProperties(ByVal serializer As XRSerializer) + MyBase.SerializeProperties(serializer) + serializer.SerializeString("AdditionalInfo", AdditionalInfo) + End Sub + Protected Overrides Sub DeserializeProperties(ByVal serializer As XRSerializer) + MyBase.DeserializeProperties(serializer) + AdditionalInfo = serializer.DeserializeString("AdditionalInfo", String.Empty) + End Sub +End Class + _ +Public Class CustomReportData + Inherits ReportData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Function CreateReport() As XafReport + Return New CustomXafReport() + End Function +End Class + + diff --git a/SISBusiness.Module.Win/Controllers/Customization.Designer.vb b/SISBusiness.Module.Win/Controllers/Customization.Designer.vb new file mode 100644 index 0000000..315c0d1 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/Customization.Designer.vb @@ -0,0 +1,31 @@ +Partial Class Customization + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/Customization.vb b/SISBusiness.Module.Win/Controllers/Customization.vb new file mode 100644 index 0000000..f3c6a9d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/Customization.vb @@ -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.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.XtraLayout + +Public Class Customization + Inherits DevExpress.ExpressApp.WindowController + Private controller As WindowTemplateController + Public Sub New() + TargetWindowType = WindowType.Main + AddHandler Activated, AddressOf CustomizeWindowController_Activated + End Sub + Private Sub CustomizeWindowController_Activated(ByVal sender As Object, ByVal e As EventArgs) + controller = Frame.GetController(Of WindowTemplateController)() + AddHandler controller.CustomizeWindowCaption, AddressOf controller_CustomizeWindowCaption + AddHandler controller.CustomizeWindowStatusMessages, AddressOf controller_CustomizeWindowStatusMessages + + End Sub + Private Sub controller_CustomizeWindowCaption(ByVal sender As Object, _ + ByVal e As CustomizeWindowCaptionEventArgs) + e.WindowCaption.SecondPart = GLOBAL_WINFormCaption + End Sub + Private Sub controller_CustomizeWindowStatusMessages(ByVal sender As Object, _ + ByVal e As CustomizeWindowStatusMessagesEventArgs) + e.StatusMessages.Add(GLOBAL_WINFormCaption) + End Sub +End Class +Public Class CustomDateTimeEditor + Inherits DatePropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + End Sub + Protected Overrides Sub SetupRepositoryItem(ByVal item As DevExpress.XtraEditors.Repository.RepositoryItem) + 'MyBase.SetupRepositoryItem(item) + 'CType(item, RepositoryItemDateTimeEdit).VistaDisplayMode = _ + 'DevExpress.Utils.DefaultBoolean.True + 'CType(item, RepositoryItemDateTimeEdit).VistaEditTime = _ + 'DevExpress.Utils.DefaultBoolean.True + 'CType(item, RepositoryItemDateTimeEdit).Mask.EditMask = "MM.dd.yyyy hh:mm:ss" + 'CType(item, RepositoryItemDateTimeEdit).Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.DateTimeAdvancingCaret + 'CType(item, RepositoryItemDateTimeEdit).AllowNullInput = True + End Sub + +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/DateTimeHandle.Designer.vb b/SISBusiness.Module.Win/Controllers/DateTimeHandle.Designer.vb new file mode 100644 index 0000000..9fedb36 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DateTimeHandle.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DateTimeHandle + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DateTimeHandle.vb b/SISBusiness.Module.Win/Controllers/DateTimeHandle.vb new file mode 100644 index 0000000..d393c9b --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DateTimeHandle.vb @@ -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.Editors +Imports System.Windows.Forms +Imports DevExpress.XtraLayout + + +Public Class DateTimeHandle + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + TargetViewType = ViewType.DetailView + + End Sub + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)() + + AddHandler editor.ControlCreated, AddressOf editor_ControlCreated + Next editor + + End Sub + Private Sub editor_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + ' You can access the corresponding property editor control by the following code: + Dim editorControl As Control = TryCast((CType(sender, PropertyEditor)).Control, Control) + AddHandler editorControl.HandleCreated, AddressOf editorControl_HandleCreated + + Dim _DateTimeEditor As DevExpress.XtraEditors.DateEdit = TryCast(editorControl, DevExpress.XtraEditors.DateEdit) + If _DateTimeEditor IsNot Nothing Then + _DateTimeEditor.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.DateTimeAdvancingCaret + AddHandler _DateTimeEditor.Click, AddressOf DateTimeEditor_Click + AddHandler _DateTimeEditor.KeyDown, AddressOf DateTimeEditor_KeyDown + + End If + Dim _SpinEditor As DevExpress.XtraEditors.SpinEdit = TryCast(editorControl, DevExpress.XtraEditors.SpinEdit) + If _SpinEditor IsNot Nothing Then + AddHandler _SpinEditor.Click, AddressOf SpinEditor_Click + AddHandler _SpinEditor.KeyDown, AddressOf SpinEditor_KeyDown + End If + + Dim _TextEditor As DevExpress.XtraEditors.TextEdit = TryCast(editorControl, DevExpress.XtraEditors.TextEdit) + If _TextEditor IsNot Nothing Then + AddHandler _TextEditor.KeyDown, AddressOf TextEditor_KeyDown + + + End If + End Sub + Private Sub editorControl_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) + ' Sometimes it is necessary to access editor's control after it is visible (its handle is created). + RemoveHandler (CType(sender, Control)).HandleCreated, AddressOf editorControl_HandleCreated + End Sub + + Private Sub DateTimeEditor_Click(ByVal sender As Object, ByVal e As System.EventArgs) + sender.SelectAll() + End Sub + Private Sub SpinEditor_Click(ByVal sender As Object, ByVal e As System.EventArgs) + sender.Selectall() + End Sub + + Private Sub DateTimeEditor_KeyDown(sender As Object, e As KeyEventArgs) + Select Case e.KeyCode + Case Keys.Enter, Keys.Down + DirectCast(View.Control, LayoutControl).FocusHelper.GetNextControl(sender).Focus() + e.Handled = True + Case Else + + End Select + End Sub + + Private Sub SpinEditor_KeyDown(sender As Object, e As KeyEventArgs) + Select Case e.KeyCode + Case Keys.Enter, Keys.Down + DirectCast(View.Control, LayoutControl).FocusHelper.GetNextControl(sender).Focus() + e.Handled = True + Case Else + + End Select + End Sub + + Private Sub TextEditor_KeyDown(sender As Object, e As KeyEventArgs) + If TryCast(sender, DevExpress.ExpressApp.Win.Editors.LargeStringEdit) IsNot Nothing Then + Else + Select Case e.KeyCode + Case Keys.Enter, Keys.Down + DirectCast(View.Control, LayoutControl).FocusHelper.GetNextControl(sender).Focus() + e.Handled = True + Case Keys.Up + DirectCast(View.Control, LayoutControl).FocusHelper.ProcessDialogKey(Keys.Shift + Keys.Tab) + e.Handled = True + Case Else + + End Select + End If + + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.Designer.vb b/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.Designer.vb new file mode 100644 index 0000000..ce8da89 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DisableGridColumnsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.vb b/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.vb new file mode 100644 index 0000000..e8489c1 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DisableGridColumnsVC.vb @@ -0,0 +1,44 @@ +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.XtraGrid.Columns +Imports DevExpress.ExpressApp.Win.Editors +Public Class DisableGridColumnsVC + 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 OnViewControlsCreated() + MyBase.OnViewControlsCreated() + Dim _GridListEditor As GridListEditor = TryCast(View.Editor, GridListEditor) + Dim _GridColumn As GridColumn + If _GridListEditor IsNot Nothing Then + For Each _GridColumn In _GridListEditor.GridView.Columns + If _GridColumn.FieldName Like "row_*" Or _GridColumn.FieldName Like "!row_*" Then + _GridColumn.Visible = False + _GridColumn.OptionsColumn.AllowShowHide = False + End If + Next + End If + + 'GridListEditor gridListEditor = View.Editor as GridListEditor; + ' if (gridListEditor != null) + ' foreach (GridColumn column in gridListEditor.GridView.Columns) + ' if (column.FieldName == "Photo") + ' column.OptionsColumn.AllowShowHide = false; + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.Designer.vb b/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.Designer.vb new file mode 100644 index 0000000..5f8e876 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.Designer.vb @@ -0,0 +1,31 @@ +Partial Class DisableValidationPopUpWindow + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.vb b/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.vb new file mode 100644 index 0000000..c474efc --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DisableValidationPopUpWindow.vb @@ -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 + +Public Class DisableValidationPopUpWindow + Inherits DevExpress.ExpressApp.Validation.Win.ValidationResultsShowingController + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() '--- Ha ki van kommentelve nem jelenik meg a validáló ablak-------- + + 'AddHandler (CType(Application, DevExpress.ExpressApp.Win.WinApplication)).CustomHandleException, AddressOf ViewController1_CustomHandleException + End Sub + Private Sub ViewController1_CustomHandleException(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Win.CustomHandleExceptionEventArgs) + e.Handled = True + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + 'RemoveHandler (CType(Application, DevExpress.ExpressApp.Win.WinApplication)).CustomHandleException, AddressOf ViewController1_CustomHandleException + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.Designer.vb new file mode 100644 index 0000000..17b16db --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DragAndDropBusinessDirectory_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.resx b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.vb new file mode 100644 index 0000000..9937071 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropBusinessDirectory_VC.vb @@ -0,0 +1,404 @@ +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.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo + +Imports Microsoft.VisualBasic +Imports System.Drawing +Imports System.Collections +Imports System.Windows.Forms +Imports System.Data +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Win +Imports Microsoft.Office.Interop +Imports System.IO +Imports DevExpress.XtraTreeList +Imports DevExpress.ExpressApp.Win.Controls +Imports DevExpress.ExpressApp.TreeListEditors.Win +Imports DevExpress.XtraTreeList.Nodes +Imports Microsoft.Office +Imports System.Runtime.InteropServices +Imports System.Collections.Specialized +Imports System.Threading + +Public Class DragAndDropBusinessDirectory_VC + Inherits DevExpress.ExpressApp.ViewController + + Private _TreeListEditor As TreeListEditor + Private _TreeList As TreeList + Private _Selection As New ArrayList + Private _EnabledSelection = True + Private _CanEmailDrop As Boolean = True + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id Like "*BusinessDirectory_ListView*" Then + AddHandler View.ControlsCreated, AddressOf View_ControlsCreated + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "BusinessDirectory_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True) + End If + End Sub + Private Sub View_ControlsCreated(sender As Object, e As EventArgs) + _TreeListEditor = CType((CType(View, DevExpress.ExpressApp.ListView)).Editor, TreeListEditor) + _TreeList = _TreeListEditor.TreeList + _TreeList.OptionsDragAndDrop.DragNodesMode = DragNodesMode.Multiple + _TreeList.OptionsDragAndDrop.ExpandNodeOnDrag = True + + AddHandler _TreeList.DragOver, AddressOf _TreeList_DragOver + AddHandler _TreeList.DragDrop, AddressOf _TreeList_DragDrop + AddHandler _TreeList.DragLeave, AddressOf _TreeList_DragLeave + + + AddHandler View.SelectionChanged, AddressOf BusinessDirectory_ListView_SelectionChanged + End Sub +#Region "Drag and Drop" + + Private Sub _TreeList_DragOver(sender As Object, e As DragEventArgs) + 'Dim dragNode As TreeListNode = TryCast(e.Data.GetData(GetType(TreeListNode)), TreeListNode) + e.Effect = DragDropEffects.All + + + 'e.Effect = GetDragDropEffect(TryCast(sender, TreeList), dragNode, New Point(e.X, e.Y)) + End Sub + Private Sub _TreeList_DragLeave(sender As Object, e As EventArgs) + 'Fileok Clipboard droplistba + Dim _Paths As New StringCollection + + For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects + If _BusinessDirectory.FileData 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) + + _BusinessDirectory.FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + _Paths.Add(_FileName) + + End If + Next + If _Paths.Count > 0 Then + Dim data As New DataObject() + data.SetFileDropList(_Paths) + _TreeList.DoDragDrop(data, DragDropEffects.Copy) + End If + + End Sub + Private Sub _TreeList_DragDrop(sender As Object, e As DragEventArgs) + Dim _TargetNode As TreeListNode = Nothing + Dim _Point As Point + Dim _BusinessDirectoryDrop As Boolean = False + Dim _FileDrop As Boolean = False + Dim _EmailDrop As Boolean = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _TL As TreeList = TryCast(sender, TreeList) + If _TL IsNot Nothing Then + _Point = _TL.PointToClient(New Point(e.X, e.Y)) + _TargetNode = _TL.CalcHitInfo(_Point).Node + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + _FileDrop = True + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + _EmailDrop = True + ElseIf TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) IsNot Nothing Then + _BusinessDirectoryDrop = True + End If + End If + + If _TargetNode Is Nothing Then Exit Sub + + If _BusinessDirectoryDrop Then + Dim _TargetBusinessDirectory As BusinessDirectory = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + If TryCast(_Selection(0), BusinessDirectory).Oid <> _TargetBusinessDirectory.Oid Then + If _TargetBusinessDirectory.IsFolder Then + If _TargetBusinessDirectory IsNot Nothing Then + _EnabledSelection = False + For Each _BusinessDirectory As BusinessDirectory In _Selection + _BusinessDirectory.BusinessDirectory_Parent = _TargetBusinessDirectory + Next + _ocur.CommitChanges() + _EnabledSelection = True + End If + Else + MsgBox("Fjl nem hasznlhat knyvtrknt!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Figyelem!") + End If + Else + MsgBox("Nem helyezhet t az elem sajt magba!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Figyelem!") + End If + End If + + If _FileDrop Then + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _Selection.Clear() + Try + _WaitFormClass.Initwork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + _WaitFormClass.DoWork() + + If System.IO.File.Exists(_ActFile) Then + Dim _BusinessDirectory As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory + .IsFolder = False + .ShortName = IO.Path.GetFileName(IO.Path.GetFileNameWithoutExtension(_ActFile)) + .FileData = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .BusinessDirectory_Parent = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + Finally + _WaitFormClass.FinalWork() + End Try + End If + End If + + If _EmailDrop Then + Dim _OL As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application + Dim _Explorer As Microsoft.Office.Interop.Outlook.Explorer = _OL.ActiveExplorer + Dim _TargetBusinessDirectory As BusinessDirectory = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + If _TargetBusinessDirectory.IsFolder Then + If _CanEmailDrop Then + If _Explorer.Selection.Count > 0 Then + _CanEmailDrop = False + + Dim _MemoryStream As MemoryStream = TryCast(e.Data.GetData("FileGroupDescriptor"), MemoryStream) + Dim _TMPFileName As String = Path.GetTempPath + Path.GetRandomFileName + + Dim _FileStream As FileStream = File.OpenWrite(_TMPFileName) + _MemoryStream.WriteTo(_FileStream) + _FileStream.Flush() + _FileStream.Close() + + Dim _TxtLine As String = "" + If File.Exists(_TMPFileName) Then + + Dim _StreamReader As New StreamReader(_TMPFileName) + Do While _StreamReader.Peek <> -1 + _TxtLine += _StreamReader.ReadLine + Loop + End If + + If _TxtLine.Contains(".msg") Then + Try + _WaitFormClass.Initwork(0, 1, _Explorer.Selection.Count) + For ik = 1 To _Explorer.Selection.Count + _WaitFormClass.DoWork() + Dim _FileIn As Object = _Explorer.Selection(ik) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + Dim _MeetingItem As Microsoft.Office.Interop.Outlook.MeetingItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MeetingItem) + + If _MailItem Is Nothing And _MeetingItem Is Nothing Then Throw New Exception("*Csak e-mail, rtekezlet s tallkoz tpus Outlook elemet lehet beilleszteni!") + + If _MailItem IsNot Nothing Then + Try + Dim _FileName As String = "" + Dim _Subject As String = "" + If _MailItem.Subject IsNot Nothing Then + _Subject = _MailItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + Else + _Subject = "Nincs trgy" + End If + + If Not IsValidFileName(_Subject) Then Throw New Exception("*Illeglis karakterek a trgy mezben!") + + _FileName = String.Format("{0}{1}.msg", System.IO.Path.GetTempPath, _Subject) + _MailItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + If System.IO.File.Exists(_FileName) Then + Dim _BusinessDirectory As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory + .FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + .FileData.FileName = IO.Path.GetFileName(_FileName) + .FileCreated = _MailItem.ReceivedTime 'Klds dtuma kell? + .FileModified = GetFileModifiedDate(_FileName) + .ShortName = IO.Path.GetFileName(_FileName) + .BusinessDirectory_Parent = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + .IsFolder = False + .EMail_Sender = _MailItem.Sender.Name + .Email_Copy = _MailItem.CC + End With + System.IO.File.Delete(_FileName) + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + ElseIf _MeetingItem IsNot Nothing Then + Try + Dim _FileName As String = "" + Dim _Subject As String = "" + If _MeetingItem.Subject IsNot Nothing Then + _Subject = _MeetingItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + _Subject = _Subject.Replace("|", "_") + Else + _Subject = "Nincs trgy" + End If + + If Not IsValidFileName(_Subject) Then Throw New Exception("*Illeglis karakterek a trgy mezben!") + + _FileName = String.Format("{0}{1}.msg", System.IO.Path.GetTempPath, _Subject) + _MeetingItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + If System.IO.File.Exists(_FileName) Then + Dim _BusinessDirectory As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory + .FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + .FileData.FileName = IO.Path.GetFileName(_FileName) + .FileCreated = _MeetingItem.ReceivedTime 'Klds dtuma kell? + .FileModified = GetFileModifiedDate(_FileName) + .ShortName = IO.Path.GetFileName(_FileName) + .BusinessDirectory_Parent = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + .IsFolder = False + .EMail_Sender = _MeetingItem.SenderName '.Sender.Name + End With + System.IO.File.Delete(_FileName) + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + _WaitFormClass.FinalWork() + End Try + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + Finally + Marshal.ReleaseComObject(_Explorer) + Marshal.ReleaseComObject(_Explorer) + _Explorer = Nothing + Marshal.ReleaseComObject(_OL) + _OL = Nothing + _WaitFormClass.FinalWork() + End Try + Else + _WaitFormClass.Initwork(0, 1, 1) + _WaitFormClass.DoWork() + Dim _FileNameFromStream As New StringBuilder("") + _FileNameFromStream.Append(Path.GetTempPath) + + + Dim fileGroupDescriptor(512) As Byte + _MemoryStream.Read(fileGroupDescriptor, 0, 512) + + Dim i As Integer = 76 + While fileGroupDescriptor(i) <> 0 + _FileNameFromStream.Append(Convert.ToChar(fileGroupDescriptor(i))) + i += 1 + End While + + Dim _FileIn As Object = _Explorer.Selection(1) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + + For Each _Attachment As Microsoft.Office.Interop.Outlook.Attachment In _MailItem.Attachments + If _Attachment.FileName = Path.GetFileName(_FileNameFromStream.ToString) Then + _Attachment.SaveAsFile(Path.GetTempPath + _Attachment.FileName) + + If System.IO.File.Exists(Path.GetTempPath + _Attachment.FileName) Then + Dim _BusinessDirectory As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory + .FileData = LoadOtherFile(Path.GetTempPath + _Attachment.FileName, New FileData(_ocur.Session)) + .FileData.FileName = IO.Path.GetFileName(Path.GetTempPath + _Attachment.FileName) + .FileCreated = GetFileCreatedDate(Path.GetTempPath + _Attachment.FileName) + .FileModified = GetFileModifiedDate(Path.GetTempPath + _Attachment.FileName) + .ShortName = IO.Path.GetFileName(Path.GetTempPath + _Attachment.FileName) + .BusinessDirectory_Parent = TryCast(DirectCast(_TargetNode, DevExpress.ExpressApp.Win.Controls.ObjectTreeListNode).Object, BusinessDirectory) + .IsFolder = False + .EMail_Sender = _MailItem.Sender.Name + .Email_Copy = _MailItem.CC + End With + + System.IO.File.Delete(Path.GetTempPath + _Attachment.FileName) + End If + End If + Next + + _ocur.CommitChanges() + + Marshal.ReleaseComObject(_Explorer) + Marshal.ReleaseComObject(_Explorer) + _Explorer = Nothing + Marshal.ReleaseComObject(_OL) + _OL = Nothing + + _WaitFormClass.FinalWork() + End If + End If + End If + _CanEmailDrop = True + Else + MsgBox("Fjl nem hasznlhat knyvtrknt!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Figyelem!") + End If + End If + e.Effect = DragDropEffects.None + End Sub + +#End Region + Private Function GetDragDropEffect(ByVal tl As TreeList, ByVal dragNode As TreeListNode, _Point As Point) As DragDropEffects + Dim _TargetNode As TreeListNode + Dim _PointNew As Point = tl.PointToClient(_Point) + _TargetNode = tl.CalcHitInfo(_PointNew).Node + + Return DragDropEffects.Move + End Function + Private Sub BusinessDirectory_ListView_SelectionChanged(sender As Object, e As EventArgs) + If _EnabledSelection Then + _Selection.Clear() + _Selection.AddRange(View.SelectedObjects) + End If + End Sub + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + Private Function GetFileCreatedDate(_ActFile As String) As Date + Return System.IO.File.GetCreationTime(_ActFile) + End Function + Private Function GetFileModifiedDate(_ActFile As String) As Date + Return System.IO.File.GetLastAccessTime(_ActFile) + End Function + Public Function IsValidFileName(ByVal fn As String) As Boolean + Try + Dim fi As New IO.FileInfo(fn) + Catch ex As Exception + Return False + End Try + Return True + End Function + + + + + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.Designer.vb new file mode 100644 index 0000000..3bacaa7 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class DragAndDropCRMOutlookCRM_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDragDrop_CRM_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aDragDrop_CRM_Change + ' + Me.aDragDrop_CRM_Change.AcceptButtonCaption = Nothing + Me.aDragDrop_CRM_Change.CancelButtonCaption = Nothing + Me.aDragDrop_CRM_Change.Caption = "aDragDrop_CRM_Change" + Me.aDragDrop_CRM_Change.Category = "aDragDrop_CRM_Change" + Me.aDragDrop_CRM_Change.ConfirmationMessage = Nothing + Me.aDragDrop_CRM_Change.Id = "aDragDrop_CRM_Change" + Me.aDragDrop_CRM_Change.ImageName = Nothing + Me.aDragDrop_CRM_Change.Shortcut = Nothing + Me.aDragDrop_CRM_Change.Tag = Nothing + Me.aDragDrop_CRM_Change.TargetObjectsCriteria = Nothing + Me.aDragDrop_CRM_Change.TargetViewId = Nothing + Me.aDragDrop_CRM_Change.ToolTip = Nothing + Me.aDragDrop_CRM_Change.TypeOfView = Nothing + + End Sub + Friend WithEvents aDragDrop_CRM_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.resx b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.resx new file mode 100644 index 0000000..93d8058 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb new file mode 100644 index 0000000..2e1154d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCRM_VC.vb @@ -0,0 +1,603 @@ +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.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo + +Imports Microsoft.VisualBasic +Imports System.Drawing +Imports System.Collections +Imports System.Windows.Forms +Imports System.Data +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Win +Imports Microsoft.Office.Interop +Imports System.IO +Imports DevExpress.ExpressApp.Utils +Imports System.Runtime.InteropServices +Imports Microsoft.Office + +Public Class DragAndDropCRMOutlookCRM_VC + Inherits DevExpress.ExpressApp.ViewController + + Private _Selection As New ArrayList + Dim _ActSelection As Object + Private downHitInfo As GridHitInfo = Nothing + Dim _WaitFormClass As New WaitFormClass + Private _CRM_Opportunities As CRM_Opportunities = Nothing + Private _AllowSelect_CRM_Opportunities As Boolean = False + + Private _DoDragGridViewOutlookEMailAttachments As DevExpress.XtraGrid.Views.Grid.GridView + Private _DoDragGridControlOutlookEMailAttachments As DevExpress.XtraGrid.GridControl + Private _DoDragGridViewOutlookEMailIn As DevExpress.XtraGrid.Views.Grid.GridView + Private _DoDragGridControlOutlookEMailIn As DevExpress.XtraGrid.GridControl + + Private _ToDragGridControlCRM_Opportunities As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewCRM_Opportunities As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlCRM_LeadsDocumentation As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewCRM_LeadsDocumentation As DevExpress.XtraGrid.Views.Grid.GridView + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + If View.Id = "" Then + End If + If View.Id = "OutlookEMailIn_ListView_CRM_Outlook" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _DoDragGridViewOutlookEMailIn = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _DoDragGridViewOutlookEMailIn.OptionsBehavior.EditorShowMode = DevExpress.Utils.EditorShowMode.MouseUp + _DoDragGridControlOutlookEMailIn = _DoDragGridViewOutlookEMailIn.GridControl + + AddHandler _DoDragGridViewOutlookEMailIn.MouseDown, AddressOf _DoDragGridViewOutlookEMailIn_MouseDown + AddHandler _DoDragGridViewOutlookEMailIn.MouseMove, AddressOf _DoDragGridViewOutlookEMailIn_MouseMove + AddHandler View.SelectionChanged, AddressOf OutlookEMailIn_ListView_SelectionChanged + End If + If View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _DoDragGridViewOutlookEMailAttachments.OptionsBehavior.EditorShowMode = DevExpress.Utils.EditorShowMode.MouseUp + _DoDragGridControlOutlookEMailAttachments = _DoDragGridViewOutlookEMailAttachments.GridControl + + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseDown, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseMove, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove + AddHandler View.SelectionChanged, AddressOf OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged + End If + If View.Id = "CRM_Opportunities_ListView_CRM_Outlook" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCRM_Opportunities = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlCRM_Opportunities = _ToDragGridViewCRM_Opportunities.GridControl + + AddHandler _ToDragGridControlCRM_Opportunities.DragOver, AddressOf _ToDragGridControlCRM_Opportunities_DragOver + AddHandler _ToDragGridControlCRM_Opportunities.DragDrop, AddressOf _ToDragGridControlCRM_Opportunities_DragDrop + AddHandler _ToDragGridViewCRM_Opportunities.MouseMove, AddressOf _ToDragGridControlCRM_Opportunities_MouseMove + + AddHandler View.SelectionChanged, AddressOf CRM_Opportunities_ListView_CRM_Outlook_SelectionChanged + End If + If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False) + + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCRM_LeadsDocumentation = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlCRM_LeadsDocumentation = _ToDragGridViewCRM_LeadsDocumentation.GridControl + + AddHandler _ToDragGridControlCRM_LeadsDocumentation.DragOver, AddressOf ToDragGridControlControlCRM_LeadsDocumentation_DragOver + AddHandler _ToDragGridControlCRM_LeadsDocumentation.DragDrop, AddressOf ToDragGridControlCRM_LeadsDocumentation_DragDrop + AddHandler _ToDragGridViewCRM_LeadsDocumentation.MouseMove, AddressOf ToDragGridView_MouseMove + End If + End Sub + Private Sub _DoDragGridViewOutlookEMailIn_MouseDown(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + downHitInfo = Nothing + + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + If Control.ModifierKeys <> Keys.None Then + Return + End If + If e.Button = MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then + downHitInfo = hitInfo + End If + End Sub + Private Sub _DoDragGridViewOutlookEMailIn_MouseMove(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + If e.Button = MouseButtons.Left AndAlso downHitInfo IsNot Nothing Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + If (Not dragRect.Contains(New Point(e.X, e.Y))) Then + _AllowSelect_CRM_Opportunities = True + view.GridControl.DoDragDrop(_Selection, DragDropEffects.All) + downHitInfo = Nothing + End If + End If + End Sub + Private Sub OutlookEMailIn_ListView_SelectionChanged(sender As Object, e As EventArgs) + _Selection.Clear() + _Selection.AddRange(View.SelectedObjects) + End Sub + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + downHitInfo = Nothing + + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + If Control.ModifierKeys <> Keys.None Then + Return + End If + If e.Button = MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then + downHitInfo = hitInfo + End If + End Sub + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + If e.Button = MouseButtons.Left AndAlso downHitInfo IsNot Nothing Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + If (Not dragRect.Contains(New Point(e.X, e.Y))) Then + _AllowSelect_CRM_Opportunities = True + view.GridControl.DoDragDrop(_Selection, DragDropEffects.All) + downHitInfo = Nothing + End If + End If + End Sub + Private Sub OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged(sender As Object, e As EventArgs) + _Selection.Clear() + _Selection.AddRange(View.SelectedObjects) + End Sub + Private Sub _ToDragGridControlCRM_Opportunities_DragOver(sender As Object, e As DragEventArgs) + e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewCRM_Opportunities.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCRM_Opportunities.CollapseAllGroups() + If _ToDragGridViewCRM_Opportunities.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCRM_Opportunities.ExpandGroupRow(_GridHitInfo.RowHandle) + + If _ToDragGridViewCRM_Opportunities.IsDataRow(_GridHitInfo.RowHandle) Then + _ToDragGridViewCRM_Opportunities.ClearSelection() + _ToDragGridViewCRM_Opportunities.SelectRow(_GridHitInfo.RowHandle) + End If + End Sub + Private Sub _ToDragGridControlCRM_Opportunities_DragDrop(sender As Object, e As DragEventArgs) + Try + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), CRM_Opportunities) + If _CRM_Opportunities Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + + Dim _OutlookEMailInSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _OutlookEMailInSelection IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, _OutlookEMailInSelection.Count) + If TryCast(_OutlookEMailInSelection(0), OutlookEMailIn) IsNot Nothing Then + + For Each _OutlookEMailIn As OutlookEMailIn In _OutlookEMailInSelection + Dim _CRM_Leads_Activity As New CRM_Leads_Activity(_ocur.Session) + _OutlookEMailIn = _ocur.GetObject(_OutlookEMailIn) + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities + _CRM_Leads_Activity.CRM_Leads = _CRM_Opportunities.CRM_Leads + _CRM_Leads_Activity.EventType = eEventType.eEMailIn + _CRM_Leads_Activity.Email_Oid = _OutlookEMailIn.Oid.ToString + + _OutlookEMailIn.Qualified = True + _OutlookEMailIn.IsReaded = True + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + + _Waitformclass.FinalWork + ElseIf TryCast(_OutlookEMailInSelection(0), OutlookEMailAttachments) IsNot Nothing Then + If _CRM_Opportunities.CRM_Leads Is Nothing Then Throw New Exception("*Nem tartozik Potencili gyfl a CRM gyhz!") + _Selection.Clear() + + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _OutlookEMailInSelection + Dim _CRM_LeadsDocumentation As New CRM_LeadsDocumentation(_ocur.Session) + With (_CRM_LeadsDocumentation) + .CRM_Leads = _ocur.GetObject(_CRM_Opportunities.CRM_Leads) + .File = _ocur.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + End With + _Selection.Add(_CRM_LeadsDocumentation) + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + + _Waitformclass.FinalWork + + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookCRM_VC).aDragDrop_CRM_Change), PopupWindowShowActionHelper).ShowPopupWindow() + Else + Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + End If + ElseIf e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) 'File + If _FileIn IsNot Nothing Then + _Selection.Clear() + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CRM_LeadsDocumentation As New CRM_LeadsDocumentation(_ocur.Session) + With (_CRM_LeadsDocumentation) + .CRM_Leads = _ocur.GetObject(_CRM_Opportunities.CRM_Leads) + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .ShortName = .File.FileName + End With + _Selection.Add(_CRM_LeadsDocumentation) + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + + _Waitformclass.FinalWork + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookCRM_VC).aDragDrop_CRM_Change), PopupWindowShowActionHelper).ShowPopupWindow() + End If + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'Email + Dim _OL As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application + _WaitFormClass.InitWork(0, 1, _OL.ActiveExplorer.Selection.Count) + If _OL.ActiveExplorer.Selection.Count > 0 Then + For ik As Long = 1 To _OL.ActiveExplorer.Selection.Count + Dim _FileIn As Object = _OL.ActiveExplorer.Selection(ik) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + If _MailItem IsNot Nothing Then + Dim _FileName As String = "" + Dim _Subject As String = "" + If _MailItem.Subject IsNot Nothing Then + _Subject = _MailItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + Else + _Subject = "Nincs trgy" + End If + _FileName = System.IO.Path.GetTempPath + _Subject + ".msg" + _FileName = _FileName.Replace("\\", "\") + _MailItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + + If System.IO.File.Exists(_FileName) Then + Dim _CRM_LeadsDocumentation As New CRM_LeadsDocumentation(_ocur.Session) + With (_CRM_LeadsDocumentation) + .CRM_Leads = _ocur.GetObject(_CRM_Opportunities.CRM_Leads) + .FileCreated = GetFileCreatedDate(_FileName) + .FileModified = GetFileModifiedDate(_FileName) + .File = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + .ShortName = .File.FileName + End With + System.IO.File.Delete(_FileName) + End If + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + SwitchOutlookPanes(_OL) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute() + End Try + End Sub + Private Sub _ToDragGridControlCRM_Opportunities_MouseMove(sender As Object, e As MouseEventArgs) + If _AllowSelect_CRM_Opportunities Then + Dim view As XafGridView = TryCast(sender, XafGridView) + view.ClearSelection() + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + view.SelectRow(hitInfo.RowHandle) + End If + End Sub + Private Sub CRM_Opportunities_ListView_CRM_Outlook_SelectionChanged(sender As Object, e As EventArgs) + ' frissteni kell a masterdetail view-et! na de hogy a pkbe? + End Sub + Private Sub ToDragGridControlControlCRM_LeadsDocumentation_DragOver(sender As Object, e As DragEventArgs) + 'e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + If TryCast(_ListView.CollectionSource.Collection, ProxyCollection).Count > 0 Then + If _ToDragGridViewCRM_LeadsDocumentation.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCRM_LeadsDocumentation.ExpandGroupRow(_GridHitInfo.RowHandle) + _ActSelection = Nothing + + If Not _ToDragGridViewCRM_LeadsDocumentation.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.None + _ToDragGridViewCRM_LeadsDocumentation.Tag = "NODROPCRM" + + ElseIf _ToDragGridViewCRM_LeadsDocumentation.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.Copy + _ToDragGridViewCRM_LeadsDocumentation.ClearSelection() + _ToDragGridViewCRM_LeadsDocumentation.SelectRow(_GridHitInfo.RowHandle) + _ActSelection = _ToDragGridViewCRM_LeadsDocumentation.GetRow(_ToDragGridViewCRM_LeadsDocumentation.GetSelectedRows(0)) + _ToDragGridViewCRM_LeadsDocumentation.Tag = "" + End If + Else + e.Effect = DragDropEffects.Copy + End If + + + + End Sub + Private Sub ToDragGridControlCRM_LeadsDocumentation_DragDrop(sender As Object, e As DragEventArgs) + Try + If _ToDragGridViewCRM_LeadsDocumentation.Tag = "NODROPCRM" Then + _ToDragGridViewCRM_LeadsDocumentation.Tag = "" + Return + End If + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + Dim _CRM_LeadsDocumentation As CRM_LeadsDocumentation = Nothing + Dim _CRM_Opportunities As CRM_Opportunities = Nothing + Dim _NoListViewElem As Boolean = False + If _ActSelection IsNot Nothing Then + _CRM_LeadsDocumentation = TryCast(_ActSelection, CRM_LeadsDocumentation) + ElseIf TryCast(_ListView.CollectionSource.Collection, ProxyCollection).Count > 0 Then + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + _CRM_LeadsDocumentation = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), CRM_LeadsDocumentation) + Else + _NoListViewElem = True + End If + + If _CRM_LeadsDocumentation Is Nothing And _NoListViewElem = False Then Return + + If _CRM_LeadsDocumentation Is Nothing Then + _CRM_Opportunities = TryCast(TryCast(_ListView.CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + End If + + If _CRM_LeadsDocumentation Is Nothing And _CRM_Opportunities Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _OutlookEMailAttachments_Collection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _OutlookEMailAttachments_Collection IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, _OutlookEMailAttachments_Collection.Count) + If TryCast(_OutlookEMailAttachments_Collection(0), OutlookEMailAttachments) IsNot Nothing Then + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _OutlookEMailAttachments_Collection + Dim _CRM_LeadsDocumentation_New As New CRM_LeadsDocumentation(_ocur.Session) + With _CRM_LeadsDocumentation_New + If _CRM_LeadsDocumentation IsNot Nothing Then + .RowGroup1 = _CRM_LeadsDocumentation.RowGroup1 + .RowGroup2 = _CRM_LeadsDocumentation.RowGroup2 + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_LeadsDocumentation.CRM_Leads.Oid) + Else + .RowGroup1 = "" + .RowGroup2 = "" + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_Opportunities.CRM_Leads.Oid) + End If + .Status = eProductsDocumentationStatus.ePublic + .File = _ocur.GetObjectByKey(Of FileData)(_OutlookEMailAttachments.DocumentFileData.File.Oid) + .File.FileName = _OutlookEMailAttachments.DocumentFileData.File.FileName + End With + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + ElseIf TryCast(_OutlookEMailAttachments_Collection(0), OutlookEMailIn) IsNot Nothing Then + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + + For Each _OutlookEMailIn As OutlookEMailIn In _OutlookEMailAttachments_Collection + Dim _CRM_LeadsDocumentation_New As New CRM_LeadsDocumentation(_ocur.Session) + With _CRM_LeadsDocumentation_New + If _CRM_LeadsDocumentation IsNot Nothing Then + .RowGroup1 = _CRM_LeadsDocumentation.RowGroup1 + .RowGroup2 = _CRM_LeadsDocumentation.RowGroup2 + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_LeadsDocumentation.CRM_Leads.Oid) + Else + .RowGroup1 = "" + .RowGroup2 = "" + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_Opportunities.CRM_Leads.Oid) + End If + + Dim _Mail As Outlook.MailItem = TryCast(_OutlookNameSpace.GetItemFromID(_OutlookEMailIn.EntryID), Outlook.MailItem) + _Mail.SaveAs(Path.GetTempPath() + "EmailMessage.msg") + + Dim _fs As FileStream + _fs = New FileStream(Path.GetTempPath() + "EmailMessage.msg", FileMode.Open) + .File = New FileData(_ocur.Session) + .File.LoadFromStream("EmailMessage.msg", _fs) + .File.FileName = "E-mail zenet" + _fs.Close() + If System.IO.File.Exists(Path.GetTempPath() + "EmailMessage.msg") Then + System.IO.File.Delete(Path.GetTempPath() + "EmailMessage.msg") + End If + End With + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + End If + ElseIf e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CRM_LeadsDocumentation_New As New CRM_LeadsDocumentation(_ocur.Session) + With _CRM_LeadsDocumentation_New + If _CRM_LeadsDocumentation IsNot Nothing Then + .RowGroup1 = _CRM_LeadsDocumentation.RowGroup1 + .RowGroup2 = _CRM_LeadsDocumentation.RowGroup2 + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_LeadsDocumentation.CRM_Leads.Oid) + Else + .RowGroup1 = "" + .RowGroup2 = "" + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_Opportunities.CRM_Leads.Oid) + End If + .Status = eProductsDocumentationStatus.ePublic + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + End With + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + End If + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then 'Email + Dim _OL As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application + _WaitFormClass.InitWork(0, 1, _OL.ActiveExplorer.Selection.Count) + If _OL.ActiveExplorer.Selection.Count > 0 Then + For ik As Long = 1 To _OL.ActiveExplorer.Selection.Count + Dim _FileIn As Object = _OL.ActiveExplorer.Selection(ik) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + If _MailItem IsNot Nothing Then + Dim _FileName As String = "" + Dim _Subject As String = "" + If _MailItem.Subject IsNot Nothing Then + _Subject = _MailItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + Else + _Subject = "Nincs trgy" + End If + _FileName = System.IO.Path.GetTempPath + _Subject + ".msg" + _FileName = _FileName.Replace("\\", "\") + _MailItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + + If System.IO.File.Exists(_FileName) Then + Dim _CRM_LeadsDocumentation_New As New CRM_LeadsDocumentation(_ocur.Session) + With _CRM_LeadsDocumentation_New + If _CRM_LeadsDocumentation IsNot Nothing Then + .RowGroup1 = _CRM_LeadsDocumentation.RowGroup1 + .RowGroup2 = _CRM_LeadsDocumentation.RowGroup2 + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_LeadsDocumentation.CRM_Leads.Oid) + Else + .RowGroup1 = "" + .RowGroup2 = "" + .CRM_Leads = _ocur.GetObjectByKey(Of CRM_Leads)(_CRM_Opportunities.CRM_Leads.Oid) + End If + .Status = eProductsDocumentationStatus.ePublic + .FileCreated = GetFileCreatedDate(_FileName) + .FileModified = GetFileModifiedDate(_FileName) + .File = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + End With + System.IO.File.Delete(_FileName) + End If + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + SwitchOutlookPanes(_OL) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork + End Try + End Sub + Private Sub ToDragGridView_MouseMove(sender As Object, e As MouseEventArgs) + If _AllowSelect_CRM_Opportunities Then + Dim view As XafGridView = TryCast(sender, XafGridView) + view.ClearSelection() + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + view.SelectRow(hitInfo.RowHandle) + End If + End Sub + Private Sub aDragDrop_CRM_Change_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDragDrop_CRM_Change.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = "aCRM_LeadsDocumentation_ChangeGroup" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDragDrop_CRM_Change_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDragDrop_CRM_Change.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + Dim _CRM_Opportunities As CRM_Opportunities = _onew.GetObject(TryCast(View.SelectedObjects(0), CRM_Opportunities)) + _WaitFormClass.InitWork(1, 1, _Selection.Count) + For Each _CRM_LeadsDocumentation_Select As CRM_LeadsDocumentation In _Selection + Dim _CRM_LeadsDocumentation As CRM_LeadsDocumentation = _onew.GetObject(_CRM_LeadsDocumentation_Select) + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 Then + _CRM_LeadsDocumentation.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 Then + _CRM_LeadsDocumentation.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + If _ChangeFileAttachment_PopUp.ChangeStatus Then + _CRM_LeadsDocumentation.Status = _ChangeFileAttachment_PopUp.Status + End If + _WaitFormClass.DoWork + Next + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork + _Selection.Clear() + End Try + End Sub + + '------Subs as Functions------------- + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + Private Function GetFileCreatedDate(_ActFile As String) As Date + Return System.IO.File.GetCreationTime(_ActFile) + End Function + Private Function GetFileModifiedDate(_ActFile As String) As Date + Return System.IO.File.GetLastAccessTime(_ActFile) + End Function + + Public Sub SwitchOutlookPanes(_OL As Microsoft.Office.Interop.Outlook.Application) + Dim _Explorer As Microsoft.Office.Interop.Outlook.Explorer = _OL.ActiveExplorer + Try + If _OL IsNot Nothing And _Explorer IsNot Nothing Then + Dim nMAPIFOlder As Interop.Outlook.MAPIFolder = _Explorer.CurrentFolder + Dim _NameSpace As Microsoft.Office.Interop.Outlook.NameSpace = _OL.GetNamespace("MAPI") + If _NameSpace.Folders(1) IsNot Nothing Then + If _NameSpace.Folders(1).Folders.Count > 0 Then + If _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count) IsNot Nothing Then + If _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count).Name <> nMAPIFOlder.Name Then + _Explorer.CurrentFolder = _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count) + Else + _Explorer.CurrentFolder = _NameSpace.Folders(1).Folders(1) + End If + End If + End If + End If + System.Threading.Thread.Sleep(1000) + _Explorer.CurrentFolder = nMAPIFOlder + System.Threading.Thread.Sleep(1000) + End If + Catch ex As System.Exception + Finally + Marshal.ReleaseComObject(_Explorer) + Marshal.ReleaseComObject(_OL) + End Try + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.Designer.vb new file mode 100644 index 0000000..699e4a3 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class DragAndDropCRMOutlookCustomers_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDragDrop_CRM_Customer_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aDragDrop_CRM_Customer_Change + ' + Me.aDragDrop_CRM_Customer_Change.AcceptButtonCaption = Nothing + Me.aDragDrop_CRM_Customer_Change.CancelButtonCaption = Nothing + Me.aDragDrop_CRM_Customer_Change.Caption = "aDragDrop_CRM_Customer_Change" + Me.aDragDrop_CRM_Customer_Change.Category = "aDragDrop_CRM_Customer_Change" + Me.aDragDrop_CRM_Customer_Change.ConfirmationMessage = Nothing + Me.aDragDrop_CRM_Customer_Change.Id = "aDragDrop_CRM_Customer_Change" + Me.aDragDrop_CRM_Customer_Change.ImageName = Nothing + Me.aDragDrop_CRM_Customer_Change.Shortcut = Nothing + Me.aDragDrop_CRM_Customer_Change.Tag = Nothing + Me.aDragDrop_CRM_Customer_Change.TargetObjectsCriteria = Nothing + Me.aDragDrop_CRM_Customer_Change.TargetViewId = Nothing + Me.aDragDrop_CRM_Customer_Change.ToolTip = Nothing + Me.aDragDrop_CRM_Customer_Change.TypeOfView = Nothing + + End Sub + Friend WithEvents aDragDrop_CRM_Customer_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.resx b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.resx new file mode 100644 index 0000000..1df58a4 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb new file mode 100644 index 0000000..702f118 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookCustomers_VC.vb @@ -0,0 +1,504 @@ +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.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo + +Imports Microsoft.VisualBasic +Imports System.Drawing +Imports System.Collections +Imports System.Windows.Forms +Imports System.Data +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Win +Imports Microsoft.Office +Imports System.Runtime.InteropServices +Imports DevExpress.ExpressApp.Utils + +Public Class DragAndDropCRMOutlookCustomers_VC + Inherits DevExpress.ExpressApp.ViewController + + Private _CanEmailDrop As Boolean = True + Private _Selection As New ArrayList + Dim _ActSelection As Object + Private _DoDragGridControl As DevExpress.XtraGrid.GridControl + Private _DoDragGridView As DevExpress.XtraGrid.Views.Grid.GridView + Private _DoDragGridControlOutlookEMailAttachments As DevExpress.XtraGrid.GridControl + Private _DoDragGridViewOutlookEMailAttachments As DevExpress.XtraGrid.Views.Grid.GridView + + Private _ToDragGridControl As DevExpress.XtraGrid.GridControl + Private _ToDragGridView As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlCustomers As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewCustomers As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridViewCustomersFileAttachment As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlCustomersFileAttachment As DevExpress.XtraGrid.GridControl + Private downHitInfo As GridHitInfo = Nothing + Dim _WaitFormClass As New WaitFormClass + + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False) + Frame.GetController(Of SISBusiness.Module.Win.OutlookEmailVC).aAttachFile.Active.SetItemValue("", False) + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _DoDragGridViewOutlookEMailAttachments.OptionsBehavior.EditorShowMode = DevExpress.Utils.EditorShowMode.MouseUp + _DoDragGridControlOutlookEMailAttachments = _DoDragGridViewOutlookEMailAttachments.GridControl + + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseDown, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseMove, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove + AddHandler View.SelectionChanged, AddressOf OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged + + End If + + If View.Id = "Customers_ListView_CRM_Outlook" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCustomers = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlCustomers = _ToDragGridViewCustomers.GridControl + + AddHandler _ToDragGridControlCustomers.DragOver, AddressOf ToDragGridControlCustomers_DragOver + AddHandler _ToDragGridControlCustomers.DragDrop, AddressOf ToDragGridControlCustomers_DragDrop + + End If + + If View.Id = "Customers_CustomersFileAttachment_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + + _ToDragGridControlCustomersFileAttachment = _ToDragGridViewCustomersFileAttachment.GridControl + + AddHandler _ToDragGridControlCustomersFileAttachment.DragOver, AddressOf ToDragGridControlCustomersFileAttachment_DragOver + AddHandler _ToDragGridControlCustomersFileAttachment.DragDrop, AddressOf ToDragGridControlCustomersFileAttachment_DragDrop + + End If + + End Sub + 'Protected Overrides Sub OnDeactivated() + ' MyBase.OnDeactivated() + ' 'If View.Id = "Customers_CustomersFileAttachment_ListView" Then + ' ' Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + ' ' _ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + + ' ' _ToDragGridControlCustomersFileAttachment = _ToDragGridViewCustomersFileAttachment.GridControl + + ' ' RemoveHandler _ToDragGridControlCustomersFileAttachment.DragOver, AddressOf ToDragGridControlCustomersFileAttachment_DragOver + ' ' RemoveHandler _ToDragGridControlCustomersFileAttachment.DragDrop, AddressOf ToDragGridControlCustomersFileAttachment_DragDrop + + ' 'End If + 'End Sub + '------Subs as Functions------------- + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + + + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown(sender As Object, e As MouseEventArgs) + + Dim view As GridView = TryCast(sender, GridView) + downHitInfo = Nothing + + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + If Control.ModifierKeys <> Keys.None Then + Return + End If + If e.Button = MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then + downHitInfo = hitInfo + End If + End Sub + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove(sender As Object, e As MouseEventArgs) + + Dim view As GridView = TryCast(sender, GridView) + If e.Button = MouseButtons.Left AndAlso downHitInfo IsNot Nothing Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + If (Not dragRect.Contains(New Point(e.X, e.Y))) Then + view.GridControl.DoDragDrop(_Selection, DragDropEffects.All) + downHitInfo = Nothing + End If + End If + End Sub + Private Sub OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged(sender As Object, e As EventArgs) + + _Selection.Clear() + _Selection.AddRange(View.SelectedObjects) + End Sub + + Private Sub ToDragGridControlCustomers_DragOver(sender As Object, e As DragEventArgs) + + e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewCustomers.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomers.CollapseAllGroups() + If _ToDragGridViewCustomers.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomers.ExpandGroupRow(_GridHitInfo.RowHandle) + + If _ToDragGridViewCustomers.IsDataRow(_GridHitInfo.RowHandle) Then + _ToDragGridViewCustomers.ClearSelection() + _ToDragGridViewCustomers.SelectRow(_GridHitInfo.RowHandle) + End If + + End Sub + Private Sub ToDragGridControlCustomers_DragDrop(sender As Object, e As DragEventArgs) + Try + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + Dim _Customers As Customers = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), Customers) + If _Customers Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + If TryCast(_AttachmentSelection(0), OutlookEMailAttachments) Is Nothing Then Throw New InvalidCastException + _WaitFormClass.InitWork(0, 1, _AttachmentSelection.Count) + _Selection.Clear() + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _CustomersFileAttachment As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachment) + .Customers = _ocur.GetObject(_Customers) + .File = _ocur.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .File.FileName = _OutlookEMailAttachments.DocumentFileData.File.FileName + End With + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + + _Selection.Add(_CustomersFileAttachment) + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookCustomers_VC).aDragDrop_CRM_Customer_Change), PopupWindowShowActionHelper).ShowPopupWindow() + + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + _Selection.Clear() + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .Customers = _ocur.GetObject(_Customers) + .Status = eProductsDocumentationStatus.ePublic + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + _Selection.Add(_CustomersFileAttachmentNew) + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookCustomers_VC).aDragDrop_CRM_Customer_Change), PopupWindowShowActionHelper).ShowPopupWindow() + Else + If _CanEmailDrop Then + _CanEmailDrop = False + Dim _OL As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application + _WaitFormClass.InitWork(0, 1, _OL.ActiveExplorer.Selection.Count) + If _OL.ActiveExplorer.Selection.Count > 0 Then + For ik As Long = 1 To _OL.ActiveExplorer.Selection.Count + _FileIn = _OL.ActiveExplorer.Selection(ik) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + If _MailItem IsNot Nothing Then + Dim _FileName As String = "" + Dim _Subject As String = _MailItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + _FileName = System.IO.Path.GetTempPath + _Subject + ".msg" + _FileName = _FileName.Replace("\\", "\") + _MailItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + + If System.IO.File.Exists(_FileName) Then + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .Customers = _ocur.GetObject(_Customers) + .Status = eProductsDocumentationStatus.ePublic + .File = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + .ShortName = _MailItem.Sender.Name + .FileCreated = _MailItem.CreationTime + .FileModified = GetFileModifiedDate(_FileName) + .Description = _MailItem.Subject + End With + _Selection.Add(_CustomersFileAttachmentNew) + System.IO.File.Delete(_FileName) + End If + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + SwitchOutlookPanes(_OL) + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookCustomers_VC).aDragDrop_CRM_Customer_Change), PopupWindowShowActionHelper).ShowPopupWindow() + End If + End If + _CanEmailDrop = True + End If + End If + Catch ex As InvalidCastException + MsgBox("gyflhez nem lehet e-mailt rendeleni!", MsgBoxStyle.OkOnly, "Hiba!") + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub ToDragGridControlCustomersFileAttachment_DragOver(sender As Object, e As DragEventArgs) + + 'e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersFileAttachment.CollapseAllGroups() + If _ToDragGridViewCustomersFileAttachment.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersFileAttachment.ExpandGroupRow(_GridHitInfo.RowHandle) + _ActSelection = Nothing + + If Not _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.None + _ToDragGridViewCustomersFileAttachment.Tag = "NODROP" + + ElseIf _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.Copy + _ToDragGridViewCustomersFileAttachment.ClearSelection() + _ToDragGridViewCustomersFileAttachment.SelectRow(_GridHitInfo.RowHandle) + _ActSelection = _ToDragGridViewCustomersFileAttachment.GetRow(_ToDragGridViewCustomersFileAttachment.GetSelectedRows(0)) + _ToDragGridViewCustomersFileAttachment.Tag = "" + End If + + End Sub + Private Sub ToDragGridControlCustomersFileAttachment_DragDrop(sender As Object, e As DragEventArgs) + 'Try + If _ToDragGridViewCustomersFileAttachment.Tag = "NODROP" Then + _ToDragGridViewCustomersFileAttachment.Tag = "" + Return + End If + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + Dim _Customer_CustomersFileAttachment As CustomersFileAttachment = Nothing + If _ActSelection IsNot Nothing Then + _Customer_CustomersFileAttachment = TryCast(_ActSelection, CustomersFileAttachment) + Else + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + + _Customer_CustomersFileAttachment = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), CustomersFileAttachment) + End If + + If _Customer_CustomersFileAttachment Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, _AttachmentSelection.Count) + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _CustomersFileAttachment As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachment) + .RowGroup1 = _Customer_CustomersFileAttachment.RowGroup1 + .RowGroup2 = _Customer_CustomersFileAttachment.RowGroup2 + .Status = eProductsDocumentationStatus.ePublic + .Customers = _ocur.GetObject(_Customer_CustomersFileAttachment.Customers) + .File = _ocur.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .File.FileName = _OutlookEMailAttachments.DocumentFileData.File.FileName + End With + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .RowGroup1 = _Customer_CustomersFileAttachment.RowGroup1 + .RowGroup2 = _Customer_CustomersFileAttachment.RowGroup2 + .Status = eProductsDocumentationStatus.ePublic + .Customers = _ocur.GetObject(_Customer_CustomersFileAttachment.Customers) + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + Else + If _CanEmailDrop Then + _CanEmailDrop = False + Dim _OL As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application + If _OL.ActiveExplorer.Selection.Count > 0 Then + _WaitFormClass.InitWork(0, 1, _OL.ActiveExplorer.Selection.Count) + For ik = 1 To _OL.ActiveExplorer.Selection.Count + _FileIn = _OL.ActiveExplorer.Selection(ik) + Dim _MailItem As Microsoft.Office.Interop.Outlook.MailItem = TryCast(_FileIn, Microsoft.Office.Interop.Outlook.MailItem) + If _MailItem IsNot Nothing Then + Dim _FileName As String = "" + Dim _Subject As String = "" + If _MailItem.Subject IsNot Nothing Then + _Subject = _MailItem.Subject.Replace(":", "") + _Subject = _Subject.Replace("/", "-") + Else + _Subject = "Nincs trgy" + End If + If _Subject.Length > 16 Then + _FileName = System.IO.Path.GetTempPath + _Subject.Remove(16, _Subject.Length - 16) + ".msg" + Else + _FileName = System.IO.Path.GetTempPath + _Subject + ".msg" + End If + + _MailItem.SaveAs(_FileName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG) + + If System.IO.File.Exists(_FileName) Then + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .RowGroup1 = _Customer_CustomersFileAttachment.RowGroup1 + .RowGroup2 = _Customer_CustomersFileAttachment.RowGroup2 + .Customers = _ocur.GetObject(_Customer_CustomersFileAttachment.Customers) + .Status = eProductsDocumentationStatus.ePublic + .File = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + .ShortName = _MailItem.Sender.Name + .FileCreated = _MailItem.ReceivedTime 'Klds dtuma kell? + .FileModified = GetFileModifiedDate(_FileName) + .Description = _MailItem.Subject + End With + _Selection.Add(_CustomersFileAttachmentNew) + System.IO.File.Delete(_FileName) + End If + End If + _WaitFormClass.DoWork + Next + _ocur.CommitChanges() + _Waitformclass.FinalWork + SwitchOutlookPanes(_OL) + End If + End If + _CanEmailDrop = True + End If + End If + 'Catch ex As Exception + 'MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + 'End Try + End Sub + + Private Sub aDragDrop_CRM_Customer_Change_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDragDrop_CRM_Customer_Change.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = "aCustomersFileAttachment_ChangeGroup" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDragDrop_CRM_Customer_Change_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDragDrop_CRM_Customer_Change.Execute + + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + Dim _Customers As Customers = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers)) + _WaitFormClass.InitWork(1, 1, _Selection.Count) + For Each _CustomersFileAttachment_Select As CustomersFileAttachment In _Selection + Dim _CustomersFileAttachment As CustomersFileAttachment = _onew.GetObject(_CustomersFileAttachment_Select) + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 Then + _CustomersFileAttachment.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 Then + _CustomersFileAttachment.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + If _ChangeFileAttachment_PopUp.ChangeStatus Then + _CustomersFileAttachment.Status = _ChangeFileAttachment_PopUp.Status + End If + _WaitFormClass.DoWork + Next + _onew.CommitChanges() + + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork + _Selection.Clear() + End Try + + End Sub + + Private Function GetFileCreatedDate(_ActFile As String) As Date + Return System.IO.File.GetCreationTime(_ActFile) + End Function + Private Function GetFileModifiedDate(_ActFile As String) As Date + Return System.IO.File.GetLastAccessTime(_ActFile) + End Function + Public Sub SwitchOutlookPanes(_OL As Microsoft.Office.Interop.Outlook.Application) + Dim _Explorer As Microsoft.Office.Interop.Outlook.Explorer = _OL.ActiveExplorer + Try + If _OL IsNot Nothing And _Explorer IsNot Nothing Then + Dim nMAPIFOlder As Interop.Outlook.MAPIFolder = _Explorer.CurrentFolder + Dim _NameSpace As Microsoft.Office.Interop.Outlook.NameSpace = _OL.GetNamespace("MAPI") + If _NameSpace.Folders(1) IsNot Nothing Then + If _NameSpace.Folders(1).Folders.Count > 0 Then + If _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count) IsNot Nothing Then + If _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count).Name <> nMAPIFOlder.Name Then + _Explorer.CurrentFolder = _NameSpace.Folders(1).Folders(_NameSpace.Folders(1).Folders.Count) + Else + _Explorer.CurrentFolder = _NameSpace.Folders(1).Folders(1) + End If + End If + End If + End If + System.Threading.Thread.Sleep(1000) + _Explorer.CurrentFolder = nMAPIFOlder + System.Threading.Thread.Sleep(1000) + End If + Catch ex As System.Exception + Finally + Marshal.ReleaseComObject(_Explorer) + Marshal.ReleaseComObject(_OL) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.Designer.vb new file mode 100644 index 0000000..ef5e5fb --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class DragAndDropCRMOutlookProducts_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDragDrop_Products_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDragDrop_CustomersDoc_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aDragDrop_Products_Change + ' + Me.aDragDrop_Products_Change.AcceptButtonCaption = Nothing + Me.aDragDrop_Products_Change.CancelButtonCaption = Nothing + Me.aDragDrop_Products_Change.Caption = "aDragDrop_Products_Change" + Me.aDragDrop_Products_Change.Category = "aDragDrop_Products_Change" + Me.aDragDrop_Products_Change.ConfirmationMessage = Nothing + Me.aDragDrop_Products_Change.Id = "aDragDrop_Products_Change" + Me.aDragDrop_Products_Change.ImageName = Nothing + Me.aDragDrop_Products_Change.Shortcut = Nothing + Me.aDragDrop_Products_Change.Tag = Nothing + Me.aDragDrop_Products_Change.TargetObjectsCriteria = Nothing + Me.aDragDrop_Products_Change.TargetViewId = Nothing + Me.aDragDrop_Products_Change.ToolTip = Nothing + Me.aDragDrop_Products_Change.TypeOfView = Nothing + ' + 'aDragDrop_CustomersDoc_Change + ' + Me.aDragDrop_CustomersDoc_Change.AcceptButtonCaption = Nothing + Me.aDragDrop_CustomersDoc_Change.CancelButtonCaption = Nothing + Me.aDragDrop_CustomersDoc_Change.Caption = "aDragDrop_CustomersDoc_Change" + Me.aDragDrop_CustomersDoc_Change.Category = "aDragDrop_CustomersDoc_Change" + Me.aDragDrop_CustomersDoc_Change.ConfirmationMessage = Nothing + Me.aDragDrop_CustomersDoc_Change.Id = "aDragDrop_CustomersDoc_Change" + Me.aDragDrop_CustomersDoc_Change.ImageName = Nothing + Me.aDragDrop_CustomersDoc_Change.Shortcut = Nothing + Me.aDragDrop_CustomersDoc_Change.Tag = Nothing + Me.aDragDrop_CustomersDoc_Change.TargetObjectsCriteria = Nothing + Me.aDragDrop_CustomersDoc_Change.TargetViewId = Nothing + Me.aDragDrop_CustomersDoc_Change.ToolTip = Nothing + Me.aDragDrop_CustomersDoc_Change.TypeOfView = Nothing + + End Sub + Friend WithEvents aDragDrop_Products_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDragDrop_CustomersDoc_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.resx b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.resx new file mode 100644 index 0000000..f2b9d59 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 221, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb new file mode 100644 index 0000000..d5ff6bb --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/DragAndDrop/DragAndDropCRMOutlookProducts_VC.vb @@ -0,0 +1,633 @@ +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.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo + +Imports Microsoft.VisualBasic +Imports System.Drawing +Imports System.Collections +Imports System.Windows.Forms +Imports System.Data +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Win +Imports System.IO +Imports DevExpress.ExpressApp.Utils + +Public Class DragAndDropCRMOutlookProducts_VC + Inherits DevExpress.ExpressApp.ViewController + + Private _Selection As New ArrayList + Dim _ActSelection As Object + Private downHitInfo As GridHitInfo = Nothing + Dim _WaitFormClass As New WaitFormClass + Private _CRM_Opportunities As CRM_Opportunities = Nothing + Private _AllowSelect_CRM_Opportunities As Boolean = False + + Private _DoDragGridViewOutlookEMailAttachments As DevExpress.XtraGrid.Views.Grid.GridView + Private _DoDragGridControlOutlookEMailAttachments As DevExpress.XtraGrid.GridControl + + Private _ToDragGridControlProducts As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewProducts As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlProductsDocumentations As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewProductsDocumentations As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlCustomersOrderPriority As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewCustomersOrderPriority As DevExpress.XtraGrid.Views.Grid.GridView + Private _ToDragGridControlCustomersFileAttachment As DevExpress.XtraGrid.GridControl + Private _ToDragGridViewCustomersFileAttachment As DevExpress.XtraGrid.Views.Grid.GridView + + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + If View.Id = "OutlookEMailIn_OutlookEMailAttachments_ListView" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _DoDragGridViewOutlookEMailAttachments = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _DoDragGridViewOutlookEMailAttachments.OptionsBehavior.EditorShowMode = DevExpress.Utils.EditorShowMode.MouseUp + _DoDragGridControlOutlookEMailAttachments = _DoDragGridViewOutlookEMailAttachments.GridControl + + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseDown, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown + AddHandler _DoDragGridViewOutlookEMailAttachments.MouseMove, AddressOf DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove + AddHandler View.SelectionChanged, AddressOf OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged + End If + If View.Id = "Products_ListView_CRM_Outlook" Then + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewProducts = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlProducts = _ToDragGridViewProducts.GridControl + + AddHandler _ToDragGridControlProducts.DragOver, AddressOf ToDragGridControlProducts_DragOver + AddHandler _ToDragGridControlProducts.DragDrop, AddressOf ToDragGridControlProducts_DragDrop + End If + If View.Id = "Products_ProductsDocumentations_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False) + + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewProductsDocumentations = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlProductsDocumentations = _ToDragGridViewProductsDocumentations.GridControl + + AddHandler _ToDragGridControlProductsDocumentations.DragOver, AddressOf ToDragGridControlProductsDocumentations_DragOver + AddHandler _ToDragGridControlProductsDocumentations.DragDrop, AddressOf ToDragGridControlProductsDocumentations_DragDrop + End If + If View.Id = "Products_CustomersOrderPriority_ListView_CRM_Outlook" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCustomersOrderPriority = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + _ToDragGridControlCustomersOrderPriority = _ToDragGridViewCustomersOrderPriority.GridControl + + AddHandler _ToDragGridControlCustomersOrderPriority.DragOver, AddressOf ToDragGridControlCustomersOrderPriority_DragOver + AddHandler _ToDragGridControlCustomersOrderPriority.DragDrop, AddressOf ToDragGridControlCustomersOrderPrioritys_DragDrop + End If + If View.Id = "CustomersFileAttachment_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).Active.SetItemValue("", False) + + Dim _View As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _ToDragGridViewCustomersFileAttachment = TryCast(_View.Editor, DevExpress.ExpressApp.Win.Editors.GridListEditor).GridView + + _ToDragGridControlCustomersFileAttachment = _ToDragGridViewCustomersFileAttachment.GridControl + + AddHandler _ToDragGridControlCustomersFileAttachment.DragOver, AddressOf ToDragGridControlCustomersFileAttachment_DragOver + AddHandler _ToDragGridControlCustomersFileAttachment.DragDrop, AddressOf ToDragGridControlCustomersFileAttachment_DragDrop + End If + End Sub + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseDown(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + downHitInfo = Nothing + + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + If Control.ModifierKeys <> Keys.None Then + Return + End If + If e.Button = MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then + downHitInfo = hitInfo + End If + End Sub + Private Sub DoDragGridViewOutlookEMailAttachments_MouseDown_MouseMove(sender As Object, e As MouseEventArgs) + Dim view As GridView = TryCast(sender, GridView) + If e.Button = MouseButtons.Left AndAlso downHitInfo IsNot Nothing Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + If (Not dragRect.Contains(New Point(e.X, e.Y))) Then + _AllowSelect_CRM_Opportunities = True + view.GridControl.DoDragDrop(_Selection, DragDropEffects.All) + downHitInfo = Nothing + End If + End If + End Sub + Private Sub OutlookEMailIn_OutlookEMailAttachments_ListView_SelectionChanged(sender As Object, e As EventArgs) + _Selection.Clear() + _Selection.AddRange(View.SelectedObjects) + End Sub + + Private Sub ToDragGridControlProducts_DragOver(sender As Object, e As DragEventArgs) + e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewProducts.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewProducts.CollapseAllGroups() + If _ToDragGridViewProducts.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewProducts.ExpandGroupRow(_GridHitInfo.RowHandle) + + If _ToDragGridViewProducts.IsDataRow(_GridHitInfo.RowHandle) Then + _ToDragGridViewProducts.ClearSelection() + _ToDragGridViewProducts.SelectRow(_GridHitInfo.RowHandle) + End If + End Sub + Private Sub ToDragGridControlProducts_DragDrop(sender As Object, e As DragEventArgs) + Try + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + Dim _Products As Products = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), Products) + If _Products Is Nothing Then Return + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + '_WaitFormClass.InitWork(0, 1, _AttachmentSelection.Count) + _Selection.Clear() + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _ProductsDocumentations As New ProductsDocumentations(_onew.Session) + With (_ProductsDocumentations) + .Products = _onew.GetObject(_Products) + .Status = eProductsDocumentationStatus.ePublic + .File = _onew.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .ShortName = .File.FileName + End With + _Selection.Add(_ProductsDocumentations) + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + '_WaitFormClass.DoWork + Next + _onew.CommitChanges() + + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookProducts_VC).aDragDrop_Products_Change), PopupWindowShowActionHelper).ShowPopupWindow() + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + ' _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + _Selection.Clear() + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _ProductsDocumentations As New ProductsDocumentations(_onew.Session) + With (_ProductsDocumentations) + .Products = _onew.GetObject(_Products) + .Status = eProductsDocumentationStatus.ePublic + .File = LoadOtherFile(_ActFile, New FileData(_onew.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + + _Selection.Add(_ProductsDocumentations) + End If + ' _WaitFormClass.DoWork + Next + _onew.CommitChanges() + + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookProducts_VC).aDragDrop_Products_Change), PopupWindowShowActionHelper).ShowPopupWindow() + End If + End If + Catch ex As InvalidCastException + MsgBox("Termkhez nem lehet e-mailt rendeleni!", MsgBoxStyle.OkOnly, "Hiba!") + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + ' _Waitformclass.FinalWork + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute() + End Try + End Sub + + Private Sub ToDragGridControlProductsDocumentations_DragOver(sender As Object, e As DragEventArgs) + ' e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + If _ToDragGridViewProductsDocumentations.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewProductsDocumentations.ExpandGroupRow(_GridHitInfo.RowHandle) + _ActSelection = Nothing + + If Not _ToDragGridViewProductsDocumentations.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.None + _ToDragGridViewProductsDocumentations.Tag = "NODROPDOC" + + ElseIf _ToDragGridViewProductsDocumentations.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.Copy + _ToDragGridViewProductsDocumentations.ClearSelection() + _ToDragGridViewProductsDocumentations.SelectRow(_GridHitInfo.RowHandle) + _ActSelection = _ToDragGridViewProductsDocumentations.GetRow(_ToDragGridViewProductsDocumentations.GetSelectedRows(0)) + _ToDragGridViewProductsDocumentations.Tag = "" + End If + End Sub + Private Sub ToDragGridControlProductsDocumentations_DragDrop(sender As Object, e As DragEventArgs) + Try + If _ToDragGridViewProductsDocumentations.Tag = "NODROPDOC" Then + _ToDragGridViewProductsDocumentations.Tag = "" + Return + End If + + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + Dim _ProductsDocumentations As ProductsDocumentations = Nothing + + If _ActSelection IsNot Nothing Then + _ProductsDocumentations = TryCast(_ActSelection, ProductsDocumentations) + Else + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + _ProductsDocumentations = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), ProductsDocumentations) + End If + + If _ProductsDocumentations Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + _WaitFormClass.Initwork(1, 1, _AttachmentSelection.Count) + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _ProductsDocumentationsNew As New ProductsDocumentations(_ocur.Session) + With (_ProductsDocumentationsNew) + .RowGroup1 = _ProductsDocumentations.RowGroup1 + .RowGroup2 = _ProductsDocumentations.RowGroup2 + .Products = _ocur.GetObject(_ProductsDocumentations.Products) + .Status = eProductsDocumentationStatus.ePublic + .File = _ocur.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .ShortName = .File.FileName + End With + _Selection.Add(_ProductsDocumentations) + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + _WaitFormClass.DoWork() + Next + _ocur.CommitChanges() + + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _ProductsDocumentationsNew As New ProductsDocumentations(_ocur.Session) + With (_ProductsDocumentationsNew) + .RowGroup1 = _ProductsDocumentations.RowGroup1 + .RowGroup2 = _ProductsDocumentations.RowGroup2 + .Products = _ocur.GetObject(_ProductsDocumentations.Products) + .Status = eProductsDocumentationStatus.ePublic + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + End If + _WaitFormClass.DoWork() + Next + _ocur.CommitChanges() + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork() + End Try + End Sub + + Private Sub ToDragGridControlCustomersOrderPriority_DragOver(sender As Object, e As DragEventArgs) + e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewCustomersOrderPriority.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersOrderPriority.CollapseAllGroups() + If _ToDragGridViewCustomersOrderPriority.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersOrderPriority.ExpandGroupRow(_GridHitInfo.RowHandle) + + If _ToDragGridViewCustomersOrderPriority.IsDataRow(_GridHitInfo.RowHandle) Then + _ToDragGridViewCustomersOrderPriority.ClearSelection() + _ToDragGridViewCustomersOrderPriority.SelectRow(_GridHitInfo.RowHandle) + End If + End Sub + Private Sub ToDragGridControlCustomersOrderPrioritys_DragDrop(sender As Object, e As DragEventArgs) + Try + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + Dim _CustomersOrderPriority As CustomersOrderPriority = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), CustomersOrderPriority) + If _CustomersOrderPriority Is Nothing Then Return + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + ' _WaitFormClass.InitWork(0, 1, _AttachmentSelection.Count) + _Selection.Clear() + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _CustomersFileAttachment As New CustomersFileAttachment(_onew.Session) + With (_CustomersFileAttachment) + .Customers = _onew.GetObject(TryCast(_CustomersOrderPriority.CustomersOrder, Customers)) + .File = _onew.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .File.FileName = _OutlookEMailAttachments.DocumentFileData.File.FileName + .ShortName = .File.FileName + End With + _Selection.Add(_CustomersFileAttachment) + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + ' _WaitFormClass.DoWork + Next + _onew.CommitChanges() + + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookProducts_VC).aDragDrop_CustomersDoc_Change), PopupWindowShowActionHelper).ShowPopupWindow() + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + ' _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + _Selection.Clear() + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CustomersFileAttachment As New CustomersFileAttachment(_onew.Session) + With (_CustomersFileAttachment) + .Customers = _onew.GetObject(TryCast(_CustomersOrderPriority.CustomersOrder, Customers)) + .File = LoadOtherFile(_ActFile, New FileData(_onew.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + _Selection.Add(_CustomersFileAttachment) + End If + ' _WaitFormClass.DoWork + Next + _onew.CommitChanges() + + CType(New PopupWindowShowActionHelper(Frame.GetController(Of DragAndDropCRMOutlookProducts_VC).aDragDrop_CustomersDoc_Change), PopupWindowShowActionHelper).ShowPopupWindow() + End If + End If + Catch ex As InvalidCastException + MsgBox("Beszllthoz nem lehet e-mailt rendeleni!", MsgBoxStyle.OkOnly, "Hiba!") + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + ' _Waitformclass.FinalWork + + End Try + End Sub + + Private Sub ToDragGridControlCustomersFileAttachment_DragOver(sender As Object, e As DragEventArgs) + 'e.Effect = DragDropEffects.Copy + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + + ' If Not _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersFileAttachment.CollapseAllGroups() + If _ToDragGridViewCustomersFileAttachment.IsGroupRow(_GridHitInfo.RowHandle) Then _ToDragGridViewCustomersFileAttachment.ExpandGroupRow(_GridHitInfo.RowHandle) + _ActSelection = Nothing + + If Not _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.None + _ToDragGridViewCustomersFileAttachment.Tag = "NODROPATTACH" + + ElseIf _ToDragGridViewCustomersFileAttachment.IsDataRow(_GridHitInfo.RowHandle) Then + e.Effect = DragDropEffects.Copy + _ToDragGridViewCustomersFileAttachment.ClearSelection() + _ToDragGridViewCustomersFileAttachment.SelectRow(_GridHitInfo.RowHandle) + _ActSelection = _ToDragGridViewCustomersFileAttachment.GetRow(_ToDragGridViewCustomersFileAttachment.GetSelectedRows(0)) + _ToDragGridViewCustomersFileAttachment.Tag = "" + End If + End Sub + Private Sub ToDragGridControlCustomersFileAttachment_DragDrop(sender As Object, e As DragEventArgs) + Try + + If _ToDragGridViewCustomersFileAttachment.Tag = "NODROPATTACH" Then + _ToDragGridViewCustomersFileAttachment.Tag = "" + Return + End If + + Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + If _ListView Is Nothing Then Return + Dim _Grid As DevExpress.XtraGrid.GridControl = TryCast(sender, DevExpress.XtraGrid.GridControl) + Dim _GridHitInfo As GridHitInfo = _Grid.MainView.CalcHitInfo(_Grid.PointToClient(New Point(e.X, e.Y))) + Dim _CustomersFileAttachment As CustomersFileAttachment = Nothing + If _ActSelection IsNot Nothing Then + _CustomersFileAttachment = TryCast(_ActSelection, CustomersFileAttachment) + Else + If Not _GridHitInfo.InRow OrElse Not _GridHitInfo.InRowCell Then Return + If Not DirectCast(_Grid.MainView, GridView).IsDataRow(_GridHitInfo.RowHandle) Then Return + + _CustomersFileAttachment = TryCast(_Grid.MainView.GetRow(_GridHitInfo.RowHandle), CustomersFileAttachment) + End If + + If _CustomersFileAttachment Is Nothing Then Return + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _AttachmentSelection As ArrayList = e.Data.GetData(GetType(ArrayList)) + If _AttachmentSelection IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, _AttachmentSelection.Count) + For Each _OutlookEMailAttachments As OutlookEMailAttachments In _AttachmentSelection + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .RowGroup1 = _CustomersFileAttachment.RowGroup1 + .RowGroup2 = _CustomersFileAttachment.RowGroup2 + .Customers = _ocur.GetObject(_CustomersFileAttachment.Customers) + .File = _ocur.GetObject(_OutlookEMailAttachments.DocumentFileData.File) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(.File) + .FileModified = GetFileModifiedDate(.File) + End With + _OutlookEMailAttachments.OutlookEMailIn.IsReaded = True + _OutlookEMailAttachments.OutlookEMailIn.Qualified = True + _WaitFormClass.DoWork() + Next + _ocur.CommitChanges() + + Else + Dim _FileIn As Object = e.Data.GetData(DataFormats.FileDrop) + If _FileIn IsNot Nothing Then + _WaitFormClass.InitWork(0, 1, TryCast(_FileIn, String()).Length) + For Each _ActFile As String In _FileIn + If System.IO.File.Exists(_ActFile) Then + Dim _CustomersFileAttachmentNew As New CustomersFileAttachment(_ocur.Session) + With (_CustomersFileAttachmentNew) + .RowGroup1 = _CustomersFileAttachment.RowGroup1 + .RowGroup2 = _CustomersFileAttachment.RowGroup2 + .Customers = _ocur.GetObject(_CustomersFileAttachment.Customers) + .File = LoadOtherFile(_ActFile, New FileData(_ocur.Session)) + .ShortName = .File.FileName + .FileCreated = GetFileCreatedDate(_ActFile) + .FileModified = GetFileModifiedDate(_ActFile) + End With + End If + _WaitFormClass.DoWork() + Next + _ocur.CommitChanges() + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork() + End Try + End Sub + Private Sub aDragDrop_Products_Change_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDragDrop_Products_Change.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = "aProductsDocumentations_ChangeGroup" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDragDrop_Products_Change_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDragDrop_Products_Change.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + If TryCast(_Selection(0), ProductsDocumentations) IsNot Nothing Then + _WaitFormClass.InitWork(1, 1, _Selection.Count) + For Each _ProductsDocumentationsAct As ProductsDocumentations In _Selection + Dim _ProductsDocumentations As ProductsDocumentations = _onew.GetObject(_ProductsDocumentationsAct) + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 Then + _ProductsDocumentations.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 Then + _ProductsDocumentations.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + If _ChangeFileAttachment_PopUp.ChangeStatus Then + _ProductsDocumentations.Status = _ChangeFileAttachment_PopUp.Status + End If + _WaitFormClass.DoWork() + Next + End If + _onew.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork() + _Selection.Clear() + End Try + End Sub + Private Sub aDragDrop_CustomersDoc_Change_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDragDrop_CustomersDoc_Change.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = "aCustomersDocFileAttachment_ChangeGroup" + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDragDrop_CustomersDoc_Change_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDragDrop_CustomersDoc_Change.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + If TryCast(_Selection(0), CustomersFileAttachment) IsNot Nothing Then + _WaitFormClass.InitWork(1, 1, _Selection.Count) + For Each _CustomersFileAttachmentAct As CustomersFileAttachment In _Selection + Dim _CustomersFileAttachment As CustomersFileAttachment = _onew.GetObject(_CustomersFileAttachmentAct) + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 Then + _CustomersFileAttachment.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 Then + _CustomersFileAttachment.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + If _ChangeFileAttachment_PopUp.ChangeStatus Then + _CustomersFileAttachment.Status = _ChangeFileAttachment_PopUp.Status + End If + _WaitFormClass.DoWork() + Next + End If + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _Waitformclass.FinalWork() + _Selection.Clear() + End Try + End Sub + + '------Subs as Functions------------- + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + End Function + Public Function GetFileCreatedDate(_FileData As FileData) As Date + Try + Dim _FileName As String = System.IO.Path.GetTempPath + _FileData.FileName + Dim _StreamFile As New System.IO.FileStream(_FileName, FileMode.Create) + + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + + Return File.GetCreationTime(_FileName) + Catch ex As Exception + Finally + Dim _FileName As String = System.IO.Path.GetTempPath + _FileData.FileName + If File.Exists(_FileName) Then File.Delete(_FileName) + End Try + End Function + Public Function GetFileCreatedDate(_FileName As String) As Date + Return File.GetCreationTime(_FileName) + End Function + Public Function GetFileModifiedDate(_FileData As FileData) As Date + Try + Dim _FileName As String = System.IO.Path.GetTempPath + _FileData.FileName + Dim _StreamFile As New System.IO.FileStream(_FileName, FileMode.Create) + + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + + Return File.GetLastAccessTime(_FileName) + Catch ex As Exception + Finally + Dim _FileName As String = System.IO.Path.GetTempPath + _FileData.FileName + If File.Exists(_FileName) Then File.Delete(_FileName) + End Try + End Function + Public Function GetFileModifiedDate(_FileName As String) As Date + Return File.GetLastAccessTime(_FileName) + End Function +End Class diff --git a/SISBusiness.Module.Win/Controllers/FileAttachementsVC.Designer.vb b/SISBusiness.Module.Win/Controllers/FileAttachementsVC.Designer.vb new file mode 100644 index 0000000..4534696 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/FileAttachementsVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class FileAttachementsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/FileAttachementsVC.vb b/SISBusiness.Module.Win/Controllers/FileAttachementsVC.vb new file mode 100644 index 0000000..20f77d5 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/FileAttachementsVC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base + +Public Class FileAttachementsVC + 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 = "C3CGeneratedInvoice_DocumentFile_ListView" Or + View.Id = "OfferAskIn_OfferAskInDocuments_ListView" Or + View.Id = "OfferAskOut_OfferAskOutDocuments_ListView" Or + View.Id = "OfferAnswerIn_OfferAnswerInDocuments_ListView" Or + View.Id = "Products_ProductsDocumentations_ListView" Or + View.Id = "Customers_CustomersFileAttachment_ListView" Or + View.Id = "OfferAnswerOut_OfferAnswerOutDocuments_ListView" Then + Else + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).AddFromFileAction.Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentListViewController).AddFromFileAction.Active.SetItemValue("", True) + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.Designer.vb new file mode 100644 index 0000000..abf1587 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class FileDataProcess_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aShowFileData = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aShowFileData + ' + Me.aShowFileData.Caption = "aShow File Data" + Me.aShowFileData.ConfirmationMessage = Nothing + Me.aShowFileData.Id = "aShowFileData" + Me.aShowFileData.ImageName = Nothing + Me.aShowFileData.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aShowFileData.Shortcut = Nothing + Me.aShowFileData.Tag = Nothing + Me.aShowFileData.TargetObjectsCriteria = Nothing + Me.aShowFileData.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.FileData) + Me.aShowFileData.TargetViewId = Nothing + Me.aShowFileData.ToolTip = Nothing + Me.aShowFileData.TypeOfView = Nothing + + End Sub + Friend WithEvents aShowFileData As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.resx b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.resx new file mode 100644 index 0000000..98cd928 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.vb b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.vb new file mode 100644 index 0000000..f64cbf6 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/FileDataProcess_VC.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl + +Public Class FileDataProcess_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aShowFileData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aShowFileData.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + + Dim _FileData As FileData = TryCast(View.SelectedObjects(0), FileData) + + Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _FileData.FileName) + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + Process.Start(_FileName) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.Designer.vb b/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.Designer.vb new file mode 100644 index 0000000..cdc9f93 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GridAutoWidthVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.vb b/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.vb new file mode 100644 index 0000000..e523402 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/GridAutoWidthVC.vb @@ -0,0 +1,39 @@ +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.Win.Editors + +Public Class GridAutoWidthVC + 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() + AddHandler View.ControlsCreated, AddressOf View_ControlsCreated + End Sub + Private Sub View_ControlsCreated(ByVal sender As System.Object, ByVal e As System.EventArgs) + Try + DirectCast(DirectCast(View, ListView).Editor, GridListEditor).GridView.OptionsView.ColumnAutoWidth = False + If TryCast(View, ListView) IsNot Nothing Then + If CType(View.Model, IModelListViewAllowSort) IsNot Nothing Then + DirectCast(DirectCast(View, ListView).Editor, GridListEditor).GridView.OptionsView.RowAutoHeight = CType(View.Model, IModelListViewAllowSort).RowAutoHeight + End If + End If + Catch + End Try + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/HTMLEditorVC.Designer.vb b/SISBusiness.Module.Win/Controllers/HTMLEditorVC.Designer.vb new file mode 100644 index 0000000..4d59543 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/HTMLEditorVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HTMLEditorVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/HTMLEditorVC.vb b/SISBusiness.Module.Win/Controllers/HTMLEditorVC.vb new file mode 100644 index 0000000..84931d0 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/HTMLEditorVC.vb @@ -0,0 +1,48 @@ +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.XtraEditors +Imports DevExpress.ExpressApp.HtmlPropertyEditor.Win + +Public Class HTMLEditorVC + 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() + For Each editor As HtmlPropertyEditor In View.GetItems(Of HtmlPropertyEditor)() + + AddHandler editor.CustomizeHtmlHeader, AddressOf HTMLEditor_CustomizeHtmlHeader + Next editor + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + For Each editor As HtmlPropertyEditor In View.GetItems(Of HtmlPropertyEditor)() + + RemoveHandler editor.CustomizeHtmlHeader, AddressOf HTMLEditor_CustomizeHtmlHeader + Next editor + End Sub + Private Sub HTMLEditor_CustomizeHtmlHeader(sender As Object, e As CustomizeHtmlHeaderEventArgs) + e.HeaderInnerHtml = "" + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/InLineEditVC.Designer.vb b/SISBusiness.Module.Win/Controllers/InLineEditVC.Designer.vb new file mode 100644 index 0000000..eec2cb3 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/InLineEditVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class InLineEditVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/InLineEditVC.vb b/SISBusiness.Module.Win/Controllers/InLineEditVC.vb new file mode 100644 index 0000000..41f7c44 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/InLineEditVC.vb @@ -0,0 +1,556 @@ +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.Win.Editors +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.TreeListEditors.Win +Imports DevExpress.ExpressApp.Win.Core +Imports DevExpress.Xpo +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.ExpressApp.Validation + +Public Class InLineEditVC + Inherits DevExpress.ExpressApp.ViewController(Of ListView) + Private _GridListEditor As GridListEditor + Private _TreeListEditor As TreeListEditor + Private _HandlerCreated As Boolean = False + Private appearanceController As AppearanceController + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + Dim _ListView As ListView = CType(View, ListView) + _GridListEditor = TryCast(_ListView.Editor, GridListEditor) + + If _GridListEditor IsNot Nothing Then + _GridListEditor.AllowEdit = True + Dim _ic As New DevExpress.Utils.ImageCollection + _ic.AddImage(ImageLoader.Instance.GetImageInfo("data_edit").Image, "data_edit") + _GridListEditor.GridView.Images = _ic + + AddHandler _GridListEditor.ColumnCreated, AddressOf GridListEditor_ColumnCreated + _HandlerCreated = True + + For Each column As XafGridColumnWrapper In _GridListEditor.Columns + UpdateColumnProperties(column.Column, column.PropertyName, _GridListEditor) + Next + + AddHandler _GridListEditor.GridView.CustomColumnDisplayText, AddressOf GridView_CustomColumnDisplayText + 'AddHandler _GridListEditor.GridView.CustomDrawCell + Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + If _IModelListViewExtender IsNot Nothing Then + If _GridListEditor.GridView IsNot Nothing Then + _GridListEditor.GridView.GroupFormat = _IModelListViewExtender.GridViewGroupFormat + End If + End If + End If + + _TreeListEditor = TryCast(_ListView.Editor, TreeListEditor) + + If _TreeListEditor IsNot Nothing Then + _TreeListEditor.TreeList.OptionsBehavior.Editable = True + _TreeListEditor.TreeList.OptionsFilter.AllowColumnMRUFilterList = True + _TreeListEditor.TreeList.OptionsFilter.AllowFilterEditor = True + _TreeListEditor.TreeList.OptionsFilter.AllowMRUFilterList = True + If TryCast(View.Model, IModelListViewExtender) IsNot Nothing Then + If TryCast(View.Model, IModelListViewExtender).TreeListEnableFiltering Then + _TreeListEditor.TreeList.OptionsBehavior.EnableFiltering = True + End If + End If + + For Each _RepositoryItem As RepositoryItem In _TreeListEditor.TreeList.RepositoryItems + _RepositoryItem.ReadOnly = False + Next _RepositoryItem + + For Each column As TreeListColumnWrapper In _TreeListEditor.Columns + Dim modelColumn As IModelColumnExtender = Nothing + If column.PropertyName IsNot Nothing Then + DisableInlineEdit(column.Column) + If column.PropertyName.Contains(".") Then + Dim NewName As String() = column.PropertyName.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))(column.PropertyName), IModelColumnExtender) + End If + + If modelColumn IsNot Nothing Then + If modelColumn.InLineEdit = True Then + EnableInlineEdit(column.Column) + End If + If modelColumn.InLineEditAutoCommit Then + AddHandler _TreeListEditor.TreeList.CellValueChanged, AddressOf TreeListEditor_CellValueChanged + AddHandler _TreeListEditor.TreeList.ShownEditor, AddressOf TreeListEditor_ShownEditor + _TreeListEditor.TreeList.OptionsBehavior.ImmediateEditor = True + End If + End If + End If + Next + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If _HandlerCreated Then + If _GridListEditor IsNot Nothing Then + RemoveHandler _GridListEditor.ColumnCreated, AddressOf GridListEditor_ColumnCreated + If _GridListEditor.GridView IsNot Nothing Then RemoveHandler _GridListEditor.GridView.CustomColumnDisplayText, AddressOf GridView_CustomColumnDisplayText + End If + End If + End Sub + + Private Sub GridListEditor_ColumnCreated(sender As Object, e As ColumnCreatedEventArgs) + Dim _GridListEditor = DirectCast(sender, GridListEditor) + + UpdateColumnProperties(e.Column, e.ColumnInfo.PropertyName, _GridListEditor) + End Sub + Private Sub UpdateColumnProperties(gridColumn As DevExpress.XtraGrid.Columns.GridColumn, name As String, GridListEditor As GridListEditor) + '//Tilts ----------------------------------------------------------------------------------------- + DisableInlineEdit(gridColumn) + '-------------------------------------------------------------------------------------------------- + + '//Engedlyezs ----------------------------------------------------------------------------------- + Select Case View.Id + Case "GLRows_ListView_Account" + Select Case name + Case "NoteRows", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView", "CRMEstate_Opportunity_CRMEstate_Opportunity_Immovables_ListView" + Select Case name + Case "AreaPriceNettoHUF", "AreaPriceNettoDEV", "AreaPriceDivide" + EnableInlineEdit(gridColumn) + End Select + + Case "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn", "StorageOutRowsInRows_ListView_DeliveryNote_Transfer", "DeliveryNoteOutRows_ListView_Invoice" + Select Case name + Case "QTT_Will" + EnableInlineEdit(gridColumn) + End Select + + Case "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView", "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView", _ + "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView", "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" + Select Case name + Case "ListPriceBruttoDEV", "ListPriceBruttoHUF", "ListPriceBruttoDEVRent", "ListPriceBruttoHUFRent" + EnableInlineEdit(gridColumn) + End Select + + Case "InvoiceHeader_InvoiceRows_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _InvoiceHeader As InvoiceHeader = CType(_PropertyCollectionSource.MasterObject, InvoiceHeader) + If _InvoiceHeader.IsEditable = True Then + Select Case name + Case "ShortName", "InvoicePeriod", "CustomsTariffs", "Description", "Units", "Controlling" + EnableInlineEdit(gridColumn) + End Select + End If + + Case "OrderInHeader_OrderInRowsOther_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OrderInHeader As OrderInHeader = CType(_PropertyCollectionSource.MasterObject, OrderInHeader) + + If _OrderInHeader.IsEditable = True Then + Select Case name + Case "QTT", "Description" + EnableInlineEdit(gridColumn) + End Select + + If _OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then + If name = "DiscountPriceHUF" Then + EnableInlineEdit(gridColumn) + End If + Else + If name = "DiscountPriceDEV" Then + EnableInlineEdit(gridColumn) + End If + End If + End If + + Case "OfferInHeader_OfferInRows_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OfferInHeader As OfferInHeader = CType(_PropertyCollectionSource.MasterObject, OfferInHeader) + + If _OfferInHeader.IsEditable = True Then + Select Case name + Case "QTT" + EnableInlineEdit(gridColumn) + End Select + + If _OfferInHeader.CurrencyName.ShortName = "HUF" Then + If name = "FinalPriceHUF" Then + EnableInlineEdit(gridColumn) + End If + Else + If name = "FinalPriceDEV" Then + EnableInlineEdit(gridColumn) + End If + End If + End If + + Case "OfferOutHeader_OfferOutRows_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OfferOutHeader As OfferOutHeader = CType(_PropertyCollectionSource.MasterObject, OfferOutHeader) + + CriteriaOperator.Parse("") + If _OfferOutHeader.IsEditable = True Then + Select Case name + Case "QTT", "Description", "RowGroup1", "RowGroup2", "DescriptionPrivate" + EnableInlineEdit(gridColumn) + End Select + + If _OfferOutHeader.CurrencyName.ShortName = "HUF" Then + If name = "FinalPriceHUF" Then + EnableInlineEdit(gridColumn) + End If + Else + If name = "FinalPriceHUF" Then + EnableInlineEdit(gridColumn) + End If + End If + End If + + Case "OrderOutHeader_OrderOutRows_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OrderOutHeader As OrderOutHeader = CType(_PropertyCollectionSource.MasterObject, OrderOutHeader) + + If _OrderOutHeader.IsEditable = True Then + Select Case name + Case "Products" + EnableInlineEdit(gridColumn) + End Select + End If + + Case "ContractRows_ListView_Invoice_Not_MileStone" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + Select Case name + Case "NettoPriceHUF", "NettoPriceDEV", "ShortName", "Description", "InvoicePeriod", "Controlling", "PaymentOption", "VAT", "CurrencyRate", "QTT", "DateExecution" + EnableInlineEdit(gridColumn) + End Select + + Case "ProductFinder_ProductSelected_ListView" + Select Case name + Case "QTT", "Description" + EnableInlineEdit(gridColumn) + End Select + + Case "InventoryHeader_InventorySC_ListView" + Select Case name + Case "QTT_Found" + EnableInlineEdit(gridColumn) + End Select + + Case "StorageInRows_ListView", "StorageInHeader_StorageInRows_ListView" + Select Case name + Case "QTT_Will" + EnableInlineEdit(gridColumn) + End Select + + Case "Subcontractor_SubcontractorCustomers_ListView" + Select Case name + Case "Workplace" + EnableInlineEdit(gridColumn) + End Select + + Case "WorkSheet_Header_WorkSheet_Rows_ListView" + Select Case name + Case "RowGroup1", "RowGroup2", "ShortName", "Description", "Quantity" + EnableInlineEdit(gridColumn) + End Select + + Case "WorkSheet_Header_Worksheet_CostRows_ListView" + Select Case name + Case "FinalPriceHUF_Out", "FinalPriceDEV_Out", "Controlling" + EnableInlineEdit(gridColumn) + End Select + + Case "BankImportHeaderSum_BankImportNameParameters_ListView" + Select Case name + Case "Controlling", "ChartOfAccounts" + EnableInlineEdit(gridColumn) + End Select + + Case "GLRows_ListView_Bank" + Select Case name + Case "NoteRows", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide", "GLRowsDivideH_GLRowsDivideR_ListView" + Select Case name + Case "AmountHUF", "AmountDEV", "Controlling", "CostHolder", "CostPlace", "UniqueObjects", "JobNumberObjects" + EnableInlineEdit(gridColumn) + End Select + Case "GLRows_ListView_Cassa" + Select Case name + Case "NoteRows", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "GLRows_ListView_Compensation" + Select Case name + Case "NoteRows", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" + Select Case name + Case "DenominationValue" + EnableInlineEdit(gridColumn) + End Select + + Case "GLHeader_GLRows_ListView_Mixed" + Select Case name + Case "NoteRows", "AmountHUF", "AmountDEV", "DebitChartOfAccounts", "CreditChartOfAccounts", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "GLRows_ListView_Mixed" + Select Case name + Case "NoteRows", "Controlling", "CostHolder", "CostPlace", "JobNumberObjects", "UniqueObjects" + EnableInlineEdit(gridColumn) + End Select + + Case "GLCardsHeader_GLCardsRows_ListView" + Select Case name + Case "Note_Rows" + EnableInlineEdit(gridColumn) + End Select + + Case "GLRows_ListView_Bank" + Select Case name + Case "CurrencyRate2" + EnableInlineEdit(gridColumn) + End Select + + Case "PermissionMatrix_ListView" + Select Case name + Case "IsCreate", "IsRead", "IsWrite", "IsNavigate", "IsDelete" + EnableInlineEdit(gridColumn) + End Select + + Case "Corner_InvoiceNameParameters_ListView" + Select Case name + Case "Controlling" + EnableInlineEdit(gridColumn) + End Select + + Case "Corner_CustomerNameParameters_ListView" + Select Case name + Case "Customers" + EnableInlineEdit(gridColumn) + End Select + + Case "Vivaldi_InvoiceNameParameters_ListView" + Select Case name + Case "Controlling" + EnableInlineEdit(gridColumn) + End Select + + Case "Vivaldi_CustomerNameParameters_ListView" + Select Case name + Case "Customers" + EnableInlineEdit(gridColumn) + End Select + + Case "StorageOutRows_ListView_DeliveryNote" + Select Case name + Case "QTT_Will" + EnableInlineEdit(gridColumn) + End Select + + Case "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView", _ + "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" + Select Case name + Case "QTT_Process" + EnableInlineEdit(gridColumn) + End Select + + Case "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = CType(_PropertyCollectionSource.MasterObject, DeliveryNoteInHeader) + + If _DeliveryNoteInHeader.IsEditable = True Then + + Select Case name + Case "QTT", "NoteRows" + EnableInlineEdit(gridColumn) + End Select + + If _DeliveryNoteInHeader.CurrencyName.ShortName = "HUF" Then + If name = "ListPriceHUF" Then + EnableInlineEdit(gridColumn) + End If + Else + If name = "ListPriceDEV" Then + EnableInlineEdit(gridColumn) + End If + End If + + End If + End Select + + '// ModelEditor InLineEdit, InLineEditCriteria alapjn + Dim modelColumn As IModelColumnExtender = Nothing + If name IsNot Nothing Then + If name.Contains(".") Then + Dim NewName As String() = name.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))(name), IModelColumnExtender) + End If + + If modelColumn IsNot Nothing Then + If modelColumn.InLineEdit = True Then + EnableInlineEdit(gridColumn) + End If + If modelColumn.InLineEditAutoCommit Then + AddHandler GridListEditor.GridView.CellValueChanged, AddressOf GridListEditor_CellValueChanged + End If + End If + End If + End Sub + + Sub DisableInlineEdit(gridColumn As DevExpress.XtraGrid.Columns.GridColumn) + gridColumn.OptionsColumn.ReadOnly = True + gridColumn.OptionsColumn.AllowEdit = False + gridColumn.OptionsColumn.TabStop = False + gridColumn.ImageIndex = -1 + If Mid(gridColumn.FieldName, 1, 4) = "row_" Then + gridColumn.OptionsColumn.AllowShowHide = False + End If + + End Sub + Sub DisableInlineEdit(_TreeListColumn As DevExpress.XtraTreeList.Columns.TreeListColumn) + _TreeListColumn.OptionsColumn.ReadOnly = True + _TreeListColumn.OptionsColumn.AllowEdit = False + End Sub + Sub EnableInlineEdit(gridColumn As DevExpress.XtraGrid.Columns.GridColumn) + + gridColumn.OptionsColumn.ReadOnly = False + gridColumn.OptionsColumn.AllowEdit = True + gridColumn.OptionsColumn.TabStop = True + gridColumn.ImageIndex = 0 + + + End Sub + Sub EnableInlineEdit(_TreeListColumn As DevExpress.XtraTreeList.Columns.TreeListColumn) + + _TreeListColumn.OptionsColumn.ReadOnly = False + _TreeListColumn.OptionsColumn.AllowEdit = True + + End Sub + + Private Sub GridListEditor_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) + Try + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", False) + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True) + parentView.ObjectSpace.Refresh() + ElseIf Frame IsNot Nothing Then + Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", False) + TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of PersistenceValidationController)().Active.SetItemValue("", True) + View.ObjectSpace.Refresh() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub GridView_CustomColumnDisplayText(sender As Object, e As DevExpress.XtraGrid.Views.Base.CustomColumnDisplayTextEventArgs) + Dim modelColumn As IModelColumnExtender = Nothing + If View IsNot Nothing Then + If e.Column.FieldName <> "" Then + 'If e.Column.FieldName.Contains(".") Then + ' Dim NewName As String() = e.Column.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.Column.FieldName), IModelColumnExtender) + 'End If + If modelColumn IsNot Nothing Then + If modelColumn.HideValueIfZero = True Then + If e.Value = 0 Then e.DisplayText = "" + End If + End If + + End If + End If + End Sub + + Private Sub TreeListEditor_CellValueChanged(sender As Object, e As DevExpress.XtraTreeList.CellValueChangedEventArgs) + Try + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + Dim newValue As Object = e.Value + If TypeOf e.Value Is IXPSimpleObject Then + newValue = ObjectSpace.GetObject(e.Value) + End If + Dim focusedObject As Object = _TreeListEditor.FocusedObject + If focusedObject IsNot Nothing Then + Dim focusedColumnMemberInfo As DevExpress.ExpressApp.DC.IMemberInfo = ObjectSpace.TypesInfo.FindTypeInfo(focusedObject.GetType()).FindMember(e.Column.FieldName) + If focusedColumnMemberInfo IsNot Nothing Then + focusedColumnMemberInfo.SetValue(focusedObject, Convert.ChangeType(newValue, focusedColumnMemberInfo.MemberType)) + End If + End If + + If nestedFrame IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim parentView As View = nestedFrame.View + TryCast(parentView.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + 'parentView.ObjectSpace.Refresh() + ElseIf Frame IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + 'View.ObjectSpace.Refresh() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + + Private Sub TreeListEditor_ShownEditor(sender As Object, e As EventArgs) + 'Dim activeEditor As IGridInplaceEdit = TryCast(_TreeListEditor.TreeList.ActiveEditor, IGridInplaceEdit) + 'If activeEditor IsNot Nothing AndAlso TypeOf _TreeListEditor.TreeList.FocusedObject Is IXPSimpleObject Then + ' activeEditor.GridEditingObject = _TreeListEditor.TreeList.FocusedObject + 'End If + End Sub + + + + + + + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewCustomization.vb b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewCustomization.vb new file mode 100644 index 0000000..582d114 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewCustomization.vb @@ -0,0 +1,148 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eEditMode + eCentralXML = 0 + eUserXML = 1 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class ListViewCustomization + Inherits BaseObject + + Private _eEditMode As eEditMode + Private _SQLServer As String + Private _SQLDatabase As String + Private _SQLUser As String + Private _SQLPassword As String + Private _SQLType As eSQLType + Private _XMLFileName As String + Private _User As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + XMLFileName = "" + eEditMode = eEditMode.eCentralXML + SQLType = eSQLType.MSSQL + End Sub + + _ + Property eEditMode As eEditMode + Get + Return _eEditMode + End Get + Set(value As eEditMode) + SetPropertyValue("eEditMode", _eEditMode, value) + End Set + End Property + Property SQLServer As String + Get + Return _SQLServer + End Get + Set(value As String) + SetPropertyValue("SQLServer", _SQLServer, value) + End Set + End Property + Property SQLDatabase As String + Get + Return _SQLDatabase + End Get + Set(value As String) + SetPropertyValue("SQLDatabase", _SQLDatabase, value) + End Set + End Property + Property SQLUser As String + Get + Return _SQLUser + End Get + Set(value As String) + SetPropertyValue("SQLUser", _SQLUser, value) + End Set + End Property + Property SQLPassword As String + Get + Return _SQLPassword + End Get + Set(value As String) + SetPropertyValue("SQLPassword", _SQLPassword, value) + End Set + End Property + Property SQLType As eSQLType + Get + Return _SQLType + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType", _SQLType, value) + End Set + End Property + Property XMLFileName As String + Get + Return _XMLFileName + End Get + Set(value As String) + SetPropertyValue("XMLFileName", _XMLFileName, value) + End Set + End Property + _ + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + Private ReadOnly Property XMLDatabaseUser As XPCollection(Of User) + Get + Dim _UserCollection As XPCollection(Of User) = Nothing + Dim _Session As New Session + Try + _Session.ConnectionString = GetConnectionString() + _Session.Connect() + If _Session.IsConnected Then + _UserCollection = New XPCollection(Of User)(_Session) + End If + Catch ex As Exception + Finally + If _Session.IsConnected Then _Session.Disconnect() + End Try + + Return _UserCollection + End Get + End Property + Private Function GetConnectionString() + Dim _ConnectionString As String = "" + Select Case SQLType + Case eSQLType.MSSQL + _ConnectionString = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(SQLServer, SQLUser, SQLPassword, SQLDatabase) + Case eSQLType.MySQL + _ConnectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(SQLServer, SQLUser, SQLPassword, SQLDatabase) + Case eSQLType.PostgreSQL + _ConnectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(SQLServer, SQLUser, SQLPassword, SQLDatabase) + End Select + + Return _ConnectionString + End Function +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.Designer.vb b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.Designer.vb new file mode 100644 index 0000000..ad0753c --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.Designer.vb @@ -0,0 +1,67 @@ +Partial Class ListViewModelManagerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aManageListViewModel = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aListViewModelManager_FileBrowser = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aManageListViewModel + ' + Me.aManageListViewModel.AcceptButtonCaption = Nothing + Me.aManageListViewModel.CancelButtonCaption = Nothing + Me.aManageListViewModel.Caption = "aManage List View Model" + Me.aManageListViewModel.Category = "Menu" + Me.aManageListViewModel.ConfirmationMessage = Nothing + Me.aManageListViewModel.Id = "aManageListViewModel" + Me.aManageListViewModel.ImageName = Nothing + Me.aManageListViewModel.Shortcut = Nothing + Me.aManageListViewModel.Tag = Nothing + Me.aManageListViewModel.TargetObjectsCriteria = Nothing + Me.aManageListViewModel.TargetViewId = Nothing + Me.aManageListViewModel.ToolTip = Nothing + Me.aManageListViewModel.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aListViewModelManager_FileBrowser + ' + Me.aListViewModelManager_FileBrowser.Caption = "aListViewModelManager_FileBrowser" + Me.aListViewModelManager_FileBrowser.Category = "aListViewModelManager_FileBrowser" + Me.aListViewModelManager_FileBrowser.ConfirmationMessage = Nothing + Me.aListViewModelManager_FileBrowser.Id = "aListViewModelManager_FileBrowser" + Me.aListViewModelManager_FileBrowser.ImageName = Nothing + Me.aListViewModelManager_FileBrowser.Shortcut = Nothing + Me.aListViewModelManager_FileBrowser.Tag = Nothing + Me.aListViewModelManager_FileBrowser.TargetObjectsCriteria = Nothing + Me.aListViewModelManager_FileBrowser.TargetViewId = "" + Me.aListViewModelManager_FileBrowser.ToolTip = Nothing + Me.aListViewModelManager_FileBrowser.TypeOfView = Nothing + + End Sub + Friend WithEvents aManageListViewModel As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Private WithEvents aListViewModelManager_FileBrowser As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.resx b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.resx new file mode 100644 index 0000000..4413435 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 184, 135 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.vb b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.vb new file mode 100644 index 0000000..a2d530f --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListViewCustomization/ListViewModelManagerVC.vb @@ -0,0 +1,173 @@ +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 +Imports DevExpress.ExpressApp.Model.Core +Imports System.IO +Imports System.Xml +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + + +Public Class ListViewModelManagerVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If SecuritySystemHelper.IsUserInRoleCurrentUser("ListViewModelManager") = False Then + Frame.GetController(Of ListViewModelManagerVC).aManageListViewModel.Active.SetItemValue("", False) + End If + + If View.Id = "ListViewCustomization_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ListViewCustomization_DetailView_AcceptAction_Executing + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of ListViewModelManagerVC).aManageListViewModel.Active.SetItemValue("", True) + + If View.Id = "ListViewCustomization_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ListViewCustomization_DetailView_AcceptAction_Executing + End If + End Sub + + Private Sub aManageListViewModel_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aManageListViewModel.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ListViewCustomization As ListViewCustomization + + _ListViewCustomization = _onew.CreateObject(Of ListViewCustomization)() + e.View = Application.CreateDetailView(_onew, "ListViewCustomization_DetailView", True, _ListViewCustomization) + + End Sub + Private Sub aManageListViewModel_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aManageListViewModel.Execute + Dim _ListViewCustomization As ListViewCustomization = TryCast(e.PopupWindow.View.SelectedObjects(0), ListViewCustomization) + View.SaveModel() + + Dim _Model As ModelApplicationBase = TryCast(Application.Model, ModelApplicationBase) + + Dim xmlWriter As New ModelXmlWriter() + Dim aspect As String = _Model.GetAspect(0) + Dim xmlContent As String = xmlWriter.WriteToString(_Model, 0) + Dim _FileName As String = System.IO.Path.GetTempPath + View.Id + LTrim(RTrim(CStr(0))) + ".xml" + + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + Dim _StreamWriter As New StreamWriter(_StreamFile, System.Text.Encoding.UTF8) + + _StreamWriter.Write(xmlContent) + _StreamWriter.Close() + + Select Case _ListViewCustomization.eEditMode + Case eEditMode.eCentralXML + + + If IO.File.Exists(_FileName) Then + Dim _XmlDocument_From As New XmlDocument + _XmlDocument_From.Load(_FileName) + Dim _ListViewNode_From As XmlNode = _XmlDocument_From.SelectSingleNode("/Application/Views/ListView[@Id='" + View.Id + "']") + + Dim _XmlDocument_To As New XmlDocument + _XmlDocument_To.Load(_ListViewCustomization.XMLFileName) + Dim _ListViewNode_To As XmlNode = _XmlDocument_To.SelectSingleNode("/Application/Views/ListView[@Id='" + View.Id + "']") + Dim _ListViewNode_To_Parent As XmlNode = Nothing + + If _ListViewNode_To IsNot Nothing Then + _ListViewNode_To_Parent = _ListViewNode_To.ParentNode + _ListViewNode_To.ParentNode.RemoveChild(_ListViewNode_To) + _XmlDocument_To.Save(_ListViewCustomization.XMLFileName) + Else + _ListViewNode_To_Parent = _XmlDocument_To.SelectSingleNode("/Application/Views") + End If + Dim _ListViewNode_To_ImportNode As XmlNode = _XmlDocument_To.ImportNode(_ListViewNode_From, True) + _ListViewNode_To_Parent.AppendChild(_ListViewNode_To_ImportNode) + _XmlDocument_To.Save(_ListViewCustomization.XMLFileName) + End If + Case eEditMode.eUserXML + Dim _Session As New Session + + _Session.ConnectionString = GetConnectionString(_ListViewCustomization) + _Session.Connect() + If _Session.IsConnected Then + _Session.BeginTransaction() + Dim _XmlUser As XmlUser = _Session.FindObject(Of XmlUser)(CriteriaOperator.Parse("User=?", _Session.GetObjectByKey(Of User)(_ListViewCustomization.User.Oid))) + Dim _XmlStore As XmlStore = _Session.FindObject(Of XmlStore)(CriteriaOperator.Parse("User=?", _Session.GetObjectByKey(Of XmlUser)(_XmlUser.Oid))) + Dim _FileStream As FileStream = File.Create(IO.Path.GetTempPath + View.Id + ".xml") + Dim info As Byte() = New UTF8Encoding(True).GetBytes(_XmlStore.XmlData) + _FileStream.Write(info, 0, info.Length) + _FileStream.Close() + + Dim _XmlDocument_To As New XmlDocument + _XmlDocument_To.Load(IO.Path.GetTempPath + View.Id + ".xml") + Dim _ListViewNode_To As XmlNode = _XmlDocument_To.SelectSingleNode("/Application/Views/ListView[@Id='" + View.Id + "']") + Dim _ListViewNode_To_Parent As XmlNode = Nothing + + If _ListViewNode_To IsNot Nothing Then + _ListViewNode_To_Parent = _ListViewNode_To.ParentNode + _ListViewNode_To.ParentNode.RemoveChild(_ListViewNode_To) + _XmlDocument_To.Save(IO.Path.GetTempPath + View.Id + ".xml") + Else + _ListViewNode_To_Parent = _XmlDocument_To.SelectSingleNode("/Application/Views") + End If + + Dim _XmlDocument_From As New XmlDocument + _XmlDocument_From.Load(_FileName) + Dim _ListViewNode_From As XmlNode = _XmlDocument_From.SelectSingleNode("/Application/Views/ListView[@Id='" + View.Id + "']") + + Dim _ListViewNode_To_ImportNode As XmlNode = _XmlDocument_To.ImportNode(_ListViewNode_From, True) + _ListViewNode_To_Parent.AppendChild(_ListViewNode_To_ImportNode) + _XmlDocument_To.Save(IO.Path.GetTempPath + View.Id + ".xml") + + _XmlStore.XmlData = _XmlDocument_To.InnerXml + _XmlStore.Save() + _Session.CommitTransaction() + End If + End Select + End Sub + Private Sub aListViewModelManager_FileBrowser_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aListViewModelManager_FileBrowser.Execute + Dim _ListViewCustomization As ListViewCustomization = TryCast(View.SelectedObjects(0), ListViewCustomization) + If _ListViewCustomization IsNot Nothing Then + Dim _OpenFileDialog As New Windows.Forms.OpenFileDialog + _OpenFileDialog.Filter = "XAFML file (.xafml)|*.xafml|All Files (*.*)|*.*" + + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + _ListViewCustomization.XMLFileName = _OpenFileDialog.FileName + End If + End If + End Sub + Private Sub ListViewCustomization_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Dim _ListViewCustomization As ListViewCustomization = TryCast(View.SelectedObjects(0), ListViewCustomization) + If String.IsNullOrEmpty(_ListViewCustomization.XMLFileName) And _ListViewCustomization.eEditMode = eEditMode.eCentralXML Then + e.Cancel = True + MsgBox("Nincs kivlasztva Model XML file!") + ElseIf Not IO.File.Exists(_ListViewCustomization.XMLFileName) And _ListViewCustomization.eEditMode = eEditMode.eCentralXML Then + e.Cancel = True + MsgBox("A kivlasztott Model XML file nem ltezik!") + End If + End Sub + Private Function GetConnectionString(_ListViewCustomization As ListViewCustomization) + Dim _ConnectionString As String = "" + Select Case _ListViewCustomization.SQLType + Case eSQLType.MSSQL + _ConnectionString = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(_ListViewCustomization.SQLServer, _ListViewCustomization.SQLUser, _ListViewCustomization.SQLPassword, _ListViewCustomization.SQLDatabase) + Case eSQLType.MySQL + _ConnectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ListViewCustomization.SQLServer, _ListViewCustomization.SQLUser, _ListViewCustomization.SQLPassword, _ListViewCustomization.SQLDatabase) + Case eSQLType.PostgreSQL + _ConnectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ListViewCustomization.SQLServer, _ListViewCustomization.SQLUser, _ListViewCustomization.SQLPassword, _ListViewCustomization.SQLDatabase) + End Select + + Return _ConnectionString + End Function +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.Designer.vb b/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.Designer.vb new file mode 100644 index 0000000..e4d1d64 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.Designer.vb @@ -0,0 +1,31 @@ +Partial Class ShowFilterDialogController + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.vb b/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.vb new file mode 100644 index 0000000..1d9da54 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListviewFilter/ShowFilterDialogController.vb @@ -0,0 +1,103 @@ +' Developer Express Code Central Example: +' How to show filter dialog before showing ListView +' +' When the ListView contains a large amount of data, it is useful to provide a +' capability for the end-user to set a filter for this View before loading it. To +' accomplish this task, I've performed the following actions in this example: +' 1. +' Extended the Application Model with the AdditionalCriteria attribute for the +' ListView node via the WinSampleModule.GetSchema overridden method. This +' attribute should store the filter, selected by the user. +' 2. Implemented the +' ViewFilterContainer class, whose DetailView is used as a filter dialog. +' 3. +' Implemented the ViewFilterObject class, which is used to store filters. +' 4. +' Implemented a ShowFilterDialogController, which shows the DetailView of the +' ViewFilterContainer object before showing ListView, and then shows the filtered +' ListView. +' 5. Implemented the ViewFilterContainerModificationsController, which +' sets the ObjectType property of the ViewFilterObject class, created by the +' lookup's New action. +' +' See Also: +' How to: Use Criteria Property Editors +' (ms-help://DevExpress.Xaf/CustomDocument3014.htm) +' How to: Extend the +' Application Model and Schema +' (ms-help://DevExpress.Xaf/CustomDocument2785.htm) +' ShowNavigationItemController +' Class +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleShowNavigationItemControllertopic.htm) +' Dialog +' Controller +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleDialogControllertopic.htm) +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1554 + +Imports Microsoft.VisualBasic +Imports DevExpress.ExpressApp.DC +Imports System +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering + + + +Public Class ShowFilterDialogController + Inherits WindowController + Private dialogCotnroller As DialogController + Public Sub New() + TargetWindowType = WindowType.Main + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler Frame.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction.Execute, AddressOf ShowNavigationItemAction_Execute + End Sub + Private oldListView As View + Private Sub ShowNavigationItemAction_Execute(ByVal sender As Object, ByVal e As SingleChoiceActionExecuteEventArgs) + Dim showViewParameters As ShowViewParameters = e.ShowViewParameters + If TypeOf showViewParameters.CreatedView Is ListView Then + + oldListView = showViewParameters.CreatedView + If (CType(oldListView.Model, IModelListViewExtender)).RequireCriteriaBeforeView = True Then + Dim objectSpace As IObjectSpace = Application.CreateObjectSpace() + Dim newViewFilterContainer As ViewFilterContainer = objectSpace.CreateObject(Of ViewFilterContainer)() + newViewFilterContainer.ObjectType = oldListView.ObjectTypeInfo.Type + newViewFilterContainer.ViewID = oldListView.Id + If (CType(oldListView.Model, IModelListViewExtender)).RequireCriteriaBeforeViewCriteria <> "" And (CType(oldListView.Model, IModelListViewExtender)).AdditionalCriteria = "" Then + newViewFilterContainer.Criteria = (CType(oldListView.Model, IModelListViewExtender)).RequireCriteriaBeforeViewCriteria + Else + newViewFilterContainer.Criteria = (CType(oldListView.Model, IModelListViewExtender)).AdditionalCriteria + End If + + showViewParameters.CreatedView = Application.CreateDetailView(objectSpace, newViewFilterContainer) + showViewParameters.CreatedView.Caption = String.Format((CType(oldListView.Model, IModelListViewExtender)).RequireCriteriaBeforeViewCaption, oldListView.Caption) + showViewParameters.TargetWindow = TargetWindow.Current + + dialogCotnroller = Application.CreateController(Of DialogController)() + AddHandler dialogCotnroller.AcceptAction.Execute, AddressOf AcceptAction_Execute + showViewParameters.Controllers.Add(dialogCotnroller) + End If + End If + End Sub + Private Sub AcceptAction_Execute(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Try + Dim currentViewFilterContainer As ViewFilterContainer = CType(e.CurrentObject, ViewFilterContainer) + CType(oldListView, ListView).CollectionSource.BeginUpdateCriteria() + CType(oldListView, ListView).CollectionSource.Criteria("ByViewFilterObject") = CriteriaEditorHelper.GetCriteriaOperator(currentViewFilterContainer.Criteria, currentViewFilterContainer.ObjectType, oldListView.ObjectSpace) + CType(oldListView, ListView).CollectionSource.EndUpdateCriteria() + + CType(oldListView.Model, IModelListViewExtender).AdditionalCriteria = currentViewFilterContainer.Criteria + + + e.ShowViewParameters.CreatedView = Application.CreateListView(oldListView.Id, CType(oldListView, ListView).CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub +End Class + diff --git a/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb b/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb new file mode 100644 index 0000000..bf818f3 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ViewFilterContainerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.vb b/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.vb new file mode 100644 index 0000000..75f9a75 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ListviewFilter/ViewFilterContainerVC.vb @@ -0,0 +1,44 @@ +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.XtraFilterEditor +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraEditors +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering + +Public Class ViewFilterContainerVC + Inherits SISBusiness.Module.ViewFilterContainerVC + + 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 = "ViewFilterContainer_DetailView" Then + Dim _CriteriaPropertyEditor As CriteriaPropertyEditor = TryCast(View, DetailView).FindItem("Criteria") + If _CriteriaPropertyEditor IsNot Nothing Then + Dim _FilterEditorControl As FilterEditorControl = TryCast(_CriteriaPropertyEditor.Control, FilterEditorControl) + + _FilterEditorControl.Font = New System.Drawing.Font("Arial", 12, System.Drawing.FontStyle.Bold) + _FilterEditorControl.ViewMode = FilterEditorViewMode.Visual + End If + End If + If View.Id = "ViewFilterContainer_ViewFilterContainerSaved_ListView" Then + CType(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("IsPublic=? or UserCreated.UserName=?", True, SecuritySystem.CurrentUserName) + End If + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.Designer.vb b/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.Designer.vb new file mode 100644 index 0000000..89a9f67 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class LockObjectBeforeEditVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.vb b/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.vb new file mode 100644 index 0000000..ca1a8c1 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/LockObjectBeforeEditVC.vb @@ -0,0 +1,59 @@ +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 + +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Win.SystemModule +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering + +Public Class LockObjectBeforeEditVC + 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 TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _IModelClass As IModelClass + + _IModelClass = _ListView.Model.ModelClass + AddHandler Frame.GetController(Of OpenObjectController).CustomOpenObject, AddressOf ListView_CustomOpenObject + End If + End Sub + Private Sub ListView_CustomOpenObject(sender As Object, e As CustomOpenObjectEventArgs) + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _ActBusinessObject As Object = e.ObjectToOpen + + If TryCast(Application.Model.BOModel.GetNode(e.ObjectToOpen.GetType().FullName), IModelClassAllowSort).LockObjectBeforeEdit = True Then + If Not LockingModule.LockObject(_uow_lock, e.ObjectToOpen.GetType, _ActBusinessObject.Oid.ToString, _User) Then + e.Handled = True + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("ObjectKey=?", _ActBusinessObject.Oid.ToString)) + Throw New Exception(String.Format(TryCast(Application.Model.BOModel.GetNode(e.ObjectToOpen.GetType().FullName), IModelClassAllowSort).LockObjectBeforeEditErrorString, _ + _LockingObject.User.FullName, _LockingObject.ObjectCreated)) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/LogOnDB.Designer.vb b/SISBusiness.Module.Win/Controllers/LogOnDB.Designer.vb new file mode 100644 index 0000000..b3b0e70 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/LogOnDB.Designer.vb @@ -0,0 +1,31 @@ +Partial Class LogOnDB + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/LogOnDB.vb b/SISBusiness.Module.Win/Controllers/LogOnDB.vb new file mode 100644 index 0000000..3b3f536 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/LogOnDB.vb @@ -0,0 +1,25 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Win +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Win.SystemModule + +Public Interface IApplicationFactory + Function CreateApplication() As WinApplication +End Interface +Public Class LogOnDB + Inherits DevExpress.ExpressApp.WindowController + Public changeDatabaseAction As SingleChoiceAction + Public Shared NewApplication As WinApplication = Nothing + + Public Sub New() + Me.TargetWindowType = WindowType.Main + + 'changeDatabaseAction = New SingleChoiceAction(Me, "ChangeDatabase", PredefinedCategory.View) + 'changeDatabaseAction.Items.Add(New ChoiceActionItem("KUTYA", Nothing)) + 'changeDatabaseAction.Items.Add(New ChoiceActionItem("MACSKA", Nothing)) + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/LogOnDO.vb b/SISBusiness.Module.Win/Controllers/LogOnDO.vb new file mode 100644 index 0000000..c234d01 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/LogOnDO.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Security + +Public Class WinChangeDatabaseHelper + Public Shared DatabaseName As String + Public Shared AuthenticatedUserLogonFailed As Boolean = False + Public Shared SkipLogonDialog As Boolean = False +End Class +Public Class WinChangeDatabaseStandardAuthentication + Inherits AuthenticationStandard(Of SimpleUser, ChangeLogon) + Public Shared AuthenticatedUserName As String + Public Overloads Overrides ReadOnly Property AskLogonParametersViaUI() As Boolean + Get + If WinChangeDatabaseHelper.SkipLogonDialog Then + Return False + End If + Return MyBase.AskLogonParametersViaUI + End Get + End Property + Public Overloads Function Authenticate(ByVal objectSpace As DevExpress.ExpressApp.IObjectSpace) As Object + WinChangeDatabaseHelper.AuthenticatedUserLogonFailed = False + If String.IsNullOrEmpty(AuthenticatedUserName) Then + Return MyBase.Authenticate(objectSpace) + Else + Dim logonParameters As ChangeLogon = CType(Me.LogonParameters, ChangeLogon) + Dim result As Object = objectSpace.FindObject(UserType, New BinaryOperator("UserName", logonParameters.UserName)) + If result Is Nothing Then + WinChangeDatabaseHelper.AuthenticatedUserLogonFailed = True + WinChangeDatabaseHelper.SkipLogonDialog = False + Throw New AuthenticationException(logonParameters.UserName, SecurityExceptionLocalizer.GetExceptionMessage(SecurityExceptionId.RetypeTheInformation)) + End If + AuthenticatedUserName = "" + Return result + End If + End Function +End Class diff --git a/SISBusiness.Module.Win/Controllers/MasterDetailVC.Designer.vb b/SISBusiness.Module.Win/Controllers/MasterDetailVC.Designer.vb new file mode 100644 index 0000000..350149b --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/MasterDetailVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class MasterDetailVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/MasterDetailVC.vb b/SISBusiness.Module.Win/Controllers/MasterDetailVC.vb new file mode 100644 index 0000000..1b8a835 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/MasterDetailVC.vb @@ -0,0 +1,361 @@ +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.XtraGrid +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraGrid.Views.Base +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Utils.Drawing +Imports System.Drawing + + +Public Class MasterDetailVC + Inherits ViewController(Of ListView) + Private edit As RepositoryItemCheckEdit + Protected selection As ArrayList + Private column As GridColumn + Private Const CheckboxIndent As Integer = 4 + Private _view As GridView + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + selection = New ArrayList() + + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + Dim gridListEditor As GridListEditor = TryCast(View.Editor, GridListEditor) + If gridListEditor IsNot Nothing Then + Dim grid As GridControl = gridListEditor.Grid + _view = gridListEditor.GridView + _view.OptionsPrint.PrintDetails = True + _view.OptionsDetail.ShowDetailTabs = True + _view.OptionsView.ShowDetailButtons = True + _view.OptionsDetail.EnableMasterViewMode = True + 'iew.OptionsSelection. + + If View.Id = "RegistryTasks_ListView_Not_Completed" Then + ' InitCheckBoxColumn(_view) 'Úgy tűnik, mégsincs szükség erre. + End If + If View.Id = "AssetsHandling_ListView_Active" Then + InitCheckBoxColumn(_view) + End If + AddHandler _view.MasterRowExpanded, AddressOf view_MasterRowExpanded + + + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "InitCheckBoxColumn(_view)" Then + DetachCheckBoxColumn(_view) + End If + End Sub + Private Sub DetachCheckBoxColumn(ByVal _view As GridView) + If _view Is Nothing Then + Return + End If + If column IsNot Nothing Then + column.Dispose() + End If + If edit IsNot Nothing Then + _view.GridControl.RepositoryItems.Remove(edit) + edit.Dispose() + End If + + RemoveHandler _view.Click, AddressOf View_Click + RemoveHandler _view.CustomDrawColumnHeader, AddressOf View_CustomDrawColumnHeader + RemoveHandler _view.CustomDrawGroupRow, AddressOf View_CustomDrawGroupRow + RemoveHandler _view.CustomUnboundColumnData, AddressOf view_CustomUnboundColumnData + RemoveHandler _view.KeyDown, AddressOf view_KeyDown + RemoveHandler _view.RowStyle, AddressOf view_RowStyle + + _view = Nothing + + End Sub + Private Sub InitCheckBoxColumn(ByVal view As GridView) + If view Is Nothing Then + Return + End If + selection.Clear() + view.BeginUpdate() + Try + edit = TryCast(view.GridControl.RepositoryItems.Add("CheckEdit"), RepositoryItemCheckEdit) + + column = view.Columns.Add() + column.OptionsColumn.AllowSort = DevExpress.Utils.DefaultBoolean.False + column.Visible = True + column.VisibleIndex = 0 + column.FieldName = "CheckMarkSelection" + column.Caption = "Mark" + column.OptionsColumn.ShowCaption = False + column.OptionsColumn.AllowEdit = False + column.OptionsColumn.AllowSize = False + column.UnboundType = DevExpress.Data.UnboundColumnType.Boolean + column.Width = GetCheckBoxWidth() + column.ColumnEdit = edit + + AddHandler view.Click, AddressOf View_Click + AddHandler view.CustomDrawColumnHeader, AddressOf View_CustomDrawColumnHeader + AddHandler view.CustomDrawGroupRow, AddressOf View_CustomDrawGroupRow + AddHandler view.CustomUnboundColumnData, AddressOf view_CustomUnboundColumnData + AddHandler view.KeyDown, AddressOf view_KeyDown + AddHandler view.RowStyle, AddressOf view_RowStyle + Finally + view.EndUpdate() + End Try + + + End Sub + Protected Function GetCheckBoxWidth() As Integer + Dim info As DevExpress.XtraEditors.ViewInfo.CheckEditViewInfo = TryCast(edit.CreateViewInfo(), DevExpress.XtraEditors.ViewInfo.CheckEditViewInfo) + Dim width As Integer = 0 + GraphicsInfo.Default.AddGraphics(Nothing) + Try + width = info.CalcBestFit(GraphicsInfo.Default.Graphics).Width + Finally + GraphicsInfo.Default.ReleaseGraphics() + End Try + Return width + CheckboxIndent * 2 + End Function + Protected Sub DrawCheckBox(ByVal g As Graphics, ByVal r As Rectangle, ByVal Checked As Boolean) + Dim info As DevExpress.XtraEditors.ViewInfo.CheckEditViewInfo + Dim painter As DevExpress.XtraEditors.Drawing.CheckEditPainter + Dim args As DevExpress.XtraEditors.Drawing.ControlGraphicsInfoArgs + info = TryCast(edit.CreateViewInfo(), DevExpress.XtraEditors.ViewInfo.CheckEditViewInfo) + painter = TryCast(edit.CreatePainter(), DevExpress.XtraEditors.Drawing.CheckEditPainter) + info.EditValue = Checked + info.Bounds = r + info.CalcViewInfo(g) + args = New DevExpress.XtraEditors.Drawing.ControlGraphicsInfoArgs(info, New DevExpress.Utils.Drawing.GraphicsCache(g), r) + painter.Draw(args) + args.Cache.Dispose() + End Sub + Private Sub Invalidate() + _view.BeginUpdate() + _view.EndUpdate() + End Sub + Private Sub SelectRow(ByVal rowHandle As Integer, ByVal [select] As Boolean, ByVal invalidate As Boolean) + If IsRowSelected(rowHandle) = [select] Then + Return + End If + Dim row As Object = _view.GetRow(rowHandle) + If [select] Then + selection.Add(row) + Else + selection.Remove(row) + End If + If invalidate Then + Me.Invalidate() + End If + End Sub + Private Sub view_CustomUnboundColumnData(ByVal sender As Object, ByVal e As CustomColumnDataEventArgs) + If e.Column Is CheckMarkColumn Then + If e.IsGetData Then + e.Value = IsRowSelected(e.ListSourceRowIndex) + Else + SelectRow(e.ListSourceRowIndex, CBool(e.Value)) + End If + End If + End Sub + Private Sub view_KeyDown(ByVal sender As Object, ByVal e As Windows.Forms.KeyEventArgs) + If _view.FocusedColumn IsNot column OrElse e.KeyCode <> Windows.Forms.Keys.Space Then + Return + End If + InvertRowSelection(_view.FocusedRowHandle) + End Sub + Private Sub View_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim info As GridHitInfo + Dim pt As Point = _view.GridControl.PointToClient(Windows.Forms.Control.MousePosition) + info = _view.CalcHitInfo(pt) + If info.Column Is column Then + If info.InColumn Then + If SelectedCount = _view.DataRowCount Then + ClearSelection() + Else + SelectAll() + End If + End If + If info.InRowCell Then + InvertRowSelection(info.RowHandle) + End If + End If + If info.InRow AndAlso _view.IsGroupRow(info.RowHandle) AndAlso info.HitTest <> GridHitTest.RowGroupButton Then + InvertRowSelection(info.RowHandle) + End If + End Sub + Private Sub View_CustomDrawColumnHeader(ByVal sender As Object, ByVal e As ColumnHeaderCustomDrawEventArgs) + If e.Column Is column Then + e.Info.InnerElements.Clear() + e.Painter.DrawObject(e.Info) + DrawCheckBox(e.Graphics, e.Bounds, SelectedCount = _view.DataRowCount) + e.Handled = True + End If + End Sub + Private Sub View_CustomDrawGroupRow(ByVal sender As Object, ByVal e As RowObjectCustomDrawEventArgs) + Dim info As DevExpress.XtraGrid.Views.Grid.ViewInfo.GridGroupRowInfo + info = TryCast(e.Info, DevExpress.XtraGrid.Views.Grid.ViewInfo.GridGroupRowInfo) + + info.GroupText = " " & info.GroupText.TrimStart() + e.Info.Paint.FillRectangle(e.Graphics, e.Appearance.GetBackBrush(e.Cache), e.Bounds) + e.Painter.DrawObject(e.Info) + + Dim r As Rectangle = info.ButtonBounds + r.Offset(r.Width + CheckboxIndent * 2 - 1, 0) + DrawCheckBox(e.Graphics, r, IsGroupRowSelected(e.RowHandle)) + e.Handled = True + End Sub + Private Sub view_RowStyle(ByVal sender As Object, ByVal e As RowStyleEventArgs) + If IsRowSelected(e.RowHandle) Then + e.Appearance.BackColor = SystemColors.Highlight + e.Appearance.ForeColor = SystemColors.HighlightText + End If + End Sub + Public ReadOnly Property CheckMarkColumn() As GridColumn + Get + Return column + End Get + End Property + Public ReadOnly Property SelectedCount() As Integer + Get + Return selection.Count + End Get + End Property + Public Function GetSelectedRow(ByVal index As Integer) As Object + Return selection(index) + End Function + Public Function GetSelectedIndex(ByVal row As Object) As Integer + Return selection.IndexOf(row) + End Function + Public Sub ClearSelection() + selection.Clear() + Invalidate() + End Sub + Public Sub SelectAll() + selection.Clear() + ' fast (won't work if the grid is filtered) + 'if(_view.DataSource is ICollection) + ' selection.AddRange(((ICollection)_view.DataSource)); + 'else + ' slow: + For i As Integer = 0 To _view.DataRowCount - 1 + selection.Add(_view.GetRow(i)) + Next i + Invalidate() + End Sub + Public Sub SelectGroup(ByVal rowHandle As Integer, ByVal [select] As Boolean) + If IsGroupRowSelected(rowHandle) AndAlso [select] Then + Return + End If + For i As Integer = 0 To _view.GetChildRowCount(rowHandle) - 1 + Dim childRowHandle As Integer = _view.GetChildRowHandle(rowHandle, i) + If _view.IsGroupRow(childRowHandle) Then + SelectGroup(childRowHandle, [select]) + Else + SelectRow(childRowHandle, [select], False) + End If + Next i + Invalidate() + End Sub + Public Sub SelectRow(ByVal rowHandle As Integer, ByVal [select] As Boolean) + SelectRow(rowHandle, [select], True) + End Sub + Public Sub InvertRowSelection(ByVal rowHandle As Integer) + If _view.IsDataRow(rowHandle) Then + SelectRow(rowHandle, (Not IsRowSelected(rowHandle))) + End If + If _view.IsGroupRow(rowHandle) Then + SelectGroup(rowHandle, (Not IsGroupRowSelected(rowHandle))) + End If + End Sub + Public Function IsGroupRowSelected(ByVal rowHandle As Integer) As Boolean + For i As Integer = 0 To _view.GetChildRowCount(rowHandle) - 1 + Dim row As Integer = _view.GetChildRowHandle(rowHandle, i) + If _view.IsGroupRow(row) Then + If (Not IsGroupRowSelected(row)) Then + Return False + End If + Else + If (Not IsRowSelected(row)) Then + Return False + End If + End If + Next i + Return True + End Function + Public Function IsRowSelected(ByVal rowHandle As Integer) As Boolean + If _view.IsGroupRow(rowHandle) Then + Return IsGroupRowSelected(rowHandle) + End If + + Dim row As Object = _view.GetRow(rowHandle) + Return GetSelectedIndex(row) <> -1 + End Function + Private Sub view_MasterRowExpanded(ByVal sender As Object, ByVal e As CustomMasterRowEventArgs) + Dim masterView As GridView = TryCast(sender, GridView) + Dim detailView As GridView = TryCast(masterView.GetDetailView(e.RowHandle, e.RelationIndex), GridView) + Dim i As Integer + Dim _Exists As Boolean = False + Try + detailView.BeginUpdate() + detailView.OptionsDetail.EnableMasterViewMode = False + detailView.OptionsBehavior.Editable = False + Dim tlist As ITypedList = detailView.DataSource + + For Each col As GridColumn In detailView.Columns + If col.FieldName.Contains("!") Then + col.Visible = True + col.OptionsColumn.ShowInCustomizationForm = True + 'Dim pd As PropertyDescriptor = tlist.GetItemProperties(Nothing)(Replace(col.FieldName, "!", "")) + 'If pd IsNot Nothing Then + ' Dim modelClass As IModelClass = Application.Model.BOModel.GetClass(pd.ComponentType) + + ' If modelClass Is Nothing Then Exit Sub + ' Dim modelMember As IModelMember = modelClass.FindMember(col.FieldName) + ' If modelMember Is Nothing Then Exit Sub + ' col.Caption = modelMember.Caption + 'End If + ElseIf Not tlist Is Nothing Then + Dim pd As PropertyDescriptor = tlist.GetItemProperties(Nothing)(col.FieldName) + If pd Is Nothing Then Exit Sub + Dim modelClass As IModelClass = Application.Model.BOModel.GetClass(pd.ComponentType) + + If modelClass Is Nothing Then Exit Sub + Dim modelMember As IModelMember = modelClass.FindMember(col.FieldName) + If modelMember Is Nothing Then Exit Sub + col.Caption = modelMember.Caption + _Exists = False + For i = 0 To modelClass.DefaultListView.Columns.Count - 1 + If col.FieldName = modelClass.DefaultListView.Columns.Item(i).PropertyName Then + + _Exists = True + + End If + Next + col.Visible = _Exists + End If + Next col + detailView.EndUpdate() + Catch + + End Try + End Sub + Private Sub view_MasterRowExpanded_PCI(ByVal sender As Object, ByVal e As CustomMasterRowEventArgs) + Dim masterView As GridView = TryCast(sender, GridView) + Dim detailView As GridView = TryCast(masterView.GetDetailView(e.RowHandle, e.RelationIndex), GridView) + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/NavbarTreelist.Designer.vb b/SISBusiness.Module.Win/Controllers/NavbarTreelist.Designer.vb new file mode 100644 index 0000000..aa7e3e6 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/NavbarTreelist.Designer.vb @@ -0,0 +1,31 @@ +Partial Class NavbarTreeList + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/NavbarTreelist.vb b/SISBusiness.Module.Win/Controllers/NavbarTreelist.vb new file mode 100644 index 0000000..0f86167 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/NavbarTreelist.vb @@ -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.Win.Templates.ActionContainers +Imports DevExpress.ExpressApp.Model +Imports DevExpress.XtraTreeList.Nodes +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.XtraTreeList +Imports System.Drawing +Imports DevExpress.Data.Filtering + +Partial Public Class NavbarTreeList + Inherits WindowController + Private navActionContainer As NavigationActionContainer + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + _ObjectSpace = Application.CreateObjectSpace() + _ListViewModel = CType(Application.FindModelView("RegistryTasks_ListView_Not_Completed"), IModelListView) + AddHandler Window.ProcessActionContainer, AddressOf Window_ProcessActionContainer + End Sub + Protected Overrides Sub OnDeactivated() + RemoveHandler Window.ProcessActionContainer, AddressOf Window_ProcessActionContainer + UnsubscribeFromContainerEvents() + navActionContainer = Nothing + MyBase.OnDeactivated() + End Sub + Private Sub Window_ProcessActionContainer(ByVal sender As Object, ByVal e As ProcessActionContainerEventArgs) + UnsubscribeFromContainerEvents() + If TypeOf e.ActionContainer Is NavigationActionContainer Then + navActionContainer = TryCast(e.ActionContainer, NavigationActionContainer) + SubscribeToContainerEvents() + SetupNavBar() + End If + End Sub + Private Sub SubscribeToContainerEvents() + If navActionContainer IsNot Nothing Then + AddHandler navActionContainer.NavigationControlCreated, AddressOf navigationControlCreated + End If + End Sub + Private Sub UnsubscribeFromContainerEvents() + If navActionContainer IsNot Nothing Then + RemoveHandler navActionContainer.NavigationControlCreated, AddressOf navigationControlCreated + End If + End Sub + Private Sub navigationControlCreated(ByVal sender As Object, ByVal e As EventArgs) + SetupNavBar() + End Sub + Private _TreeNode As TreeListNode + Private _ObjectSpace As Xpo.XPObjectSpace + Private _ListViewModel As IModelListView + Private Sub SetupNavBar() + If navActionContainer IsNot Nothing AndAlso TypeOf navActionContainer.NavigationControl Is TreeListNavigationControl Then + Dim treeListNavigationControl As TreeListNavigationControl = CType(navActionContainer.NavigationControl, TreeListNavigationControl) + Dim navItem As ChoiceActionItem = Window.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction.Items.Find("@RegistryTask_ListView_Not_Completed", ChoiceActionItemFindType.Recursive, ChoiceActionItemFindTarget.Any) + If navItem IsNot Nothing Then + _TreeNode = treeListNavigationControl.FindNodeByActionItem(navItem) + AddHandler treeListNavigationControl.AfterExpand, AddressOf NavigationTreeList_AfterExpand + AddHandler treeListNavigationControl.NodeCellStyle, AddressOf NavigationTreeList_NodeCellStyle + End If + End If + End Sub + Private Sub NavigationTreeList_NodeCellStyle(ByVal sender As Object, ByVal e As GetCustomNodeCellStyleEventArgs) + If e.Node.GetDisplayText(e.Node.TreeList.Columns(0)).Contains(" [") Then + e.Appearance.Font = New Font(e.Appearance.Font, FontStyle.Bold) + End If + End Sub + Private Sub NavigationTreeList_AfterExpand(ByVal sender As Object, ByVal e As NodeEventArgs) + For Each node As TreeListNode In e.Node.Nodes + If node.Equals(_TreeNode) Then + Dim caption As String = _TreeNode.GetValue(_TreeNode.TreeList.Columns(0)) + If caption.Contains(" [") Then + caption = caption.Remove(caption.IndexOf(" [")) + End If + Dim count As Integer = CInt(_ObjectSpace.Session.Evaluate(_ListViewModel.ModelClass.TypeInfo.Type, New AggregateOperand("", Aggregate.Count), CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName))) + If count > 0 Then + caption &= String.Format(" [{0}]", count) + End If + node.SetValue(_TreeNode.TreeList.Columns(0), caption) + End If + Next + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ProgressForm.vb b/SISBusiness.Module.Win/Controllers/ProgressForm.vb new file mode 100644 index 0000000..fcba771 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ProgressForm.vb @@ -0,0 +1,126 @@ +Imports System +Imports System.Collections.Generic +Imports System.Text +Imports DevExpress.XtraEditors +Imports System.Windows.Forms +Imports DevExpress.ExpressApp.Demos +Imports System.Drawing +Public Class ProgressForm + Implements IProgressControl + Public Const FormName As String = "ProgressForm" + Private _form As XtraForm + Private _progressbar As ProgressBarControl = New ProgressBarControl() + Private _cancelbutton As SimpleButton = New SimpleButton() + Private _label As Label = New Label() + Private _longOperation As LongOperation + Private _minimumProgressValue As Long + Private _maximumProgressValue As Long + Private _progressFormCaption As String + Private Delegate Sub UpdateProgressFormDelegate(value As Long, message As String) + Private Sub CreateProgressForm() + _form = New XtraForm() + _form.Name = FormName + _form.Width = 350 + _form.Height = 125 + _form.StartPosition = FormStartPosition.CenterScreen + _form.FormBorderStyle = FormBorderStyle.FixedDialog + _form.MinimizeBox = False + _form.MaximizeBox = False + _form.ControlBox = False + _form.ShowInTaskbar = False + + _label.Parent = _form + _label.Location = New Point(10, 10) + _label.Size = New Size(_form.ClientSize.Width - 20, 13) + + _progressbar.Parent = _form + _progressbar.Location = New Point(10, 30) + _progressbar.Name = "progressBar" + _progressbar.Size = New Size(_form.ClientSize.Width - 20, 15) + _progressbar.Properties.Minimum = _minimumProgressValue + _progressbar.Properties.Maximum = _maximumProgressValue + _progressbar.Properties.Step = 1 + + _cancelbutton.Parent = _form + _cancelbutton.DialogResult = DialogResult.Cancel + _cancelbutton.Size = New Size(75, 23) + _cancelbutton.Location = New Point((_form.Width - _cancelbutton.Width) / 2, 55) + _cancelbutton.Text = "&Cancel" + AddHandler _cancelbutton.Click, AddressOf cancelButton_Click + AddHandler _cancelbutton.LostFocus, AddressOf DoOnFormLostFocus + _form.CancelButton = _cancelbutton + _form.Text = _progressFormCaption + End Sub + Public Sub ShowProgress(longOperation As DevExpress.ExpressApp.Demos.LongOperation) Implements IProgressControl.ShowProgress + _form.Show() + Me._longOperation = longOperation + AddHandler Me._longOperation.ProgressChanged, AddressOf LongOperation_ProgressChanged + AddHandler Me._longOperation.Completed, AddressOf LongOperation_Completed + End Sub + Private Sub DoOnFormLostFocus(sender As Object, e As EventArgs) + _form.Focus() + End Sub + Private Sub LongOperation_Completed(sender As Object, e As LongOperationCompletedEventArgs) + If _form IsNot Nothing Then + _form.Invoke(New MethodInvoker(AddressOf _form.Close)) + End If + End Sub + Private Sub UpdateProgressForm(value As Long, message As String) + _progressbar.EditValue = value + _progressbar.Update() + _label.Text = message + End Sub + Private Sub LongOperation_ProgressChanged(sender As Object, e As LongOperationProgressChangedEventArgs) + Dim value As Long = e.ProgressPercentage + If _form IsNot Nothing Then + _form.Invoke(New UpdateProgressFormDelegate(AddressOf UpdateProgressForm), value, e.Message) + End If + End Sub + Private Sub cancelButton_Click(sender As Object, e As EventArgs) + _longOperation.CancelAsync() + End Sub + Public Sub ProgressForm(caption As String, minimum As Integer, maximum As Integer) + _progressFormCaption = caption + _minimumProgressValue = minimum + _maximumProgressValue = maximum + CreateProgressForm() + End Sub +#Region "IDisposable Support" + Private disposedValue As Boolean ' To detect redundant calls + + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + ' TODO: dispose managed state (managed objects). + End If + + _label = Nothing + RemoveHandler _cancelbutton.LostFocus, AddressOf DoOnFormLostFocus + RemoveHandler _longOperation.ProgressChanged, AddressOf LongOperation_ProgressChanged + RemoveHandler _longOperation.Completed, AddressOf LongOperation_Completed + _longOperation = Nothing + If _form IsNot Nothing Then + _form.Invoke(New MethodInvoker(AddressOf _form.Dispose)) + _form = Nothing + End If + End If + Me.disposedValue = True + End Sub + + ' TODO: override Finalize() only if Dispose(ByVal disposing As Boolean) above has code to free unmanaged resources. + 'Protected Overrides Sub Finalize() + ' ' Do not change this code. Put cleanup code in Dispose(ByVal disposing As Boolean) above. + ' Dispose(False) + ' MyBase.Finalize() + 'End Sub + + ' This code added by Visual Basic to correctly implement the disposable pattern. + Public Sub Dispose() Implements IDisposable.Dispose + ' Do not change this code. Put cleanup code in Dispose(ByVal disposing As Boolean) above. + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +End Class diff --git a/SISBusiness.Module.Win/Controllers/RTFCopy_VC.Designer.vb b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.Designer.vb new file mode 100644 index 0000000..8cbf288 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.Designer.vb @@ -0,0 +1,54 @@ +Partial Class RTFCopy_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGetGridToRTFText = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGetGridToRTFText + ' + Me.aGetGridToRTFText.Caption = "aGet Grid To RTFText" + Me.aGetGridToRTFText.ConfirmationMessage = Nothing + Me.aGetGridToRTFText.Id = "aGetGridToRTFText" + Me.aGetGridToRTFText.ImageName = Nothing + Me.aGetGridToRTFText.Shortcut = Nothing + Me.aGetGridToRTFText.Tag = Nothing + Me.aGetGridToRTFText.TargetObjectsCriteria = Nothing + Me.aGetGridToRTFText.TargetViewId = Nothing + Me.aGetGridToRTFText.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGetGridToRTFText.ToolTip = Nothing + Me.aGetGridToRTFText.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'RTFCopy_VC + ' + Me.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGetGridToRTFText As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/RTFCopy_VC.resx b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.resx new file mode 100644 index 0000000..e64e87a --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/RTFCopy_VC.vb b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.vb new file mode 100644 index 0000000..0836bd7 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/RTFCopy_VC.vb @@ -0,0 +1,182 @@ +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.Win.Editors +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.Persistent.BaseImpl +Imports System.IO + +Public Class RTFCopy_VC + Inherits DevExpress.ExpressApp.ViewController + + '-----------------------Csak LISTVIEW-n mkdik!------------------- + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + ' Frame.GetController(Of RTFCopy_VC).aGetGridToRTFText.Active.SetItemValue("", False) + End Sub + Private Sub aGetGridToRTFText_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetGridToRTFText.Execute + Dim _ListView As ListView = TryCast(View, ListView) + If _ListView IsNot Nothing Then + Dim _GridListEditor As GridListEditor = TryCast(_ListView.Editor, GridListEditor) + If _GridListEditor IsNot Nothing Then + Dim _GridView As GridView = TryCast(_GridListEditor.GridView, GridView) + If _GridView IsNot Nothing Then + + Dim _FileName As String = Path.GetTempPath + "Grid.html" + _GridView.ExportToHtml(_FileName) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _UserCreated As User = SecuritySystem.CurrentUser + Dim _RTFCopy As RTFCopy = _onew.FindObject(Of RTFCopy)(DevExpress.Data.Filtering.CriteriaOperator.Parse("UserCreated=?", _onew.GetObject(_UserCreated))) + If _RTFCopy Is Nothing Then + _RTFCopy = New RTFCopy(_onew.Session) + End If + _RTFCopy.RTFString = File.ReadAllText(_FileName) + + _onew.CommitChanges() + End If + End If + End If + End Sub + Function RTFTableCreator(_Grid As GridView, Optional _FontSize As String = "8", Optional _FontType As String = "Tahoma") As String + + Dim _RTFtext As New StringBuilder + + Dim _HeaderFillColor As Int32 ' -- Current table header fill color index in colot table + _HeaderFillColor = 2 + + + If _Grid.DataRowCount > 0 Then + Dim _FontSizeNUM As Int32 = (Convert.ToInt32(_FontSize) * 2) ' -- Font size in half-points (the default is 16). => Size 8!!! + + Dim _RowNumFull As Integer = _Grid.RowCount + Dim _RowNum As Integer = _Grid.DataRowCount + Dim _ColumnsNum As Integer = _Grid.Columns.Count + Dim irowIndex As Int32 = 0 + Dim _LastCellIndex As Int32 = 0 + + '--Header to RTF format-- + '================================================================================= + _RTFtext.Append("\pard\plain\ql\par\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat2\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + If _LastCellIndex < _ik Then + _LastCellIndex = _ik + End If + Next + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\pard\plain\ql\intbl{\b\fs" & _FontSizeNUM & "\cf0 " & _Grid.Columns.View.VisibleColumns(_ik).Caption & "}\b\cell") + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10" & _ + "\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + For _ik As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + _RTFtext.Append("\clvertalt\clcbpat" & _HeaderFillColor & "\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10" & + "\cltxlrtb\clftsWidth3\clwWidth3302\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _ik) + Next + irowIndex += 1 + '' --Data to RTF format-- + '================================================================================= + For _ik As Int16 = 0 To _RowNumFull - 2 + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_ik)) = True Then + _RTFtext.Append("\row") + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik)).ToString) & "}\cell") + + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + + irowIndex += 1 + Else + _RTFtext.Append("\row") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetRowCellDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)) = True Then + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_ik), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + irowIndex += 1 + End If + Next + '--Last row -- + '================================================================================= + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)) = True Then + _RTFtext.Append("\row") + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.GetGroupRowDisplayText(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)).ToString) & "}\cell") + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trftsWidth1\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108\tblindtype3\tblind0") + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth9619" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _LastCellIndex) + Else + _RTFtext.Append("\row") + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + If _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Double" And _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName <> "System.Boolean" Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & (_Grid.Columns.View.GetRowCellDisplayText(_RowNum - 1, _Grid.Columns.View.VisibleColumns(_jk))) & "}\cell") + ElseIf _Grid.Columns.View.VisibleColumns(_jk).ColumnType.FullName = "System.Boolean" Then + If _Grid.IsGroupRow(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1)) = True Then + + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Van" & "}\cell") + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0 " & "Nincs" & "}\cell") + End If + Else + _RTFtext.Append("\pard\plain\ql\intbl{\fs" & _FontSizeNUM & "\cf0\qr " & LTrim(RTrim(Format(_Grid.Columns.View.GetRowCellValue(_Grid.Columns.View.GetVisibleRowHandle(_RowNumFull - 1), _Grid.Columns.View.VisibleColumns(_jk)), "#,##0.00"))) & "}\qr\cell") + End If + Next + + _RTFtext.Append("\trowd\irow" & irowIndex & "\irowband" & irowIndex & "\lastrow\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10" & _ + "\trleft-108\trautofit1\trpaddfl3\trpaddl108\trpaddfr3\trpaddr108") + ''--- + For _jk As Integer = 0 To _Grid.Columns.View.VisibleColumns.Count - 1 + + _RTFtext.Append("\clvertalt\clbrdrt\brdrs\brdrw10\clbrdrl\brdrs\brdrw10\clbrdrb\brdrs\brdrw10\clbrdrr\brdrs\brdrw10\cltxlrtb\clftsWidth3\clwWidth3302" & _ + "\clpadfr3\clpadr108\clpadft3\clpadt108\cellx" & _jk) + Next + End If + + _RTFtext.Append("\row\pard\plain\ql") + End If + Return _RTFtext.ToString + End Function +End Class diff --git a/SISBusiness.Module.Win/Controllers/SchedulerVC.Designer.vb b/SISBusiness.Module.Win/Controllers/SchedulerVC.Designer.vb new file mode 100644 index 0000000..f3e82b1 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/SchedulerVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SchedulerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/SchedulerVC.vb b/SISBusiness.Module.Win/Controllers/SchedulerVC.vb new file mode 100644 index 0000000..1f1b15a --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/SchedulerVC.vb @@ -0,0 +1,76 @@ +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.Win.Editors +Imports DevExpress.ExpressApp.Scheduler.Win +Imports DevExpress.XtraScheduler +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.General +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Public Class SchedulerVC + Inherits DevExpress.ExpressApp.ViewController + Private scheduler As SchedulerControl + 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 = "Contacts_CRM_Leads_Activity_ListView" Then + ' Access the current List View + Dim currentView As ListView = CType(View, ListView) + ' Access the View's List Editor as a SchedulerListEditor + Dim listEditor As SchedulerListEditor = CType(currentView.Editor, SchedulerListEditor) + ' Access the LOist Editor's ScheudlerControl + scheduler = listEditor.SchedulerControl + + ' Set the desired time to be visible + If Not scheduler Is Nothing Then + AddHandler scheduler.Storage.AppointmentInserting, AddressOf AppointmentInserting + End If + End If + + End Sub + Sub AppointmentInserting(sender As Object, e As DevExpress.XtraScheduler.PersistentObjectCancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Appointment As Appointment + Dim _CRM_Leads_Activity As CRM_Leads_Activity + Dim _Contacts As Contacts = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Contacts) + Dim _CRM_Leads As CRM_Leads + Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + + If _Contacts IsNot Nothing Then + _Appointment = TryCast(e.Object, Appointment) + + If _Contacts.CRM_Leads Is Nothing Then + _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)() + _CRM_Leads.Contacts = _Contacts + _CRM_Leads.FirstName = _Contacts.FirstName + _CRM_Leads.LastName = _Contacts.LastName + _CRM_Leads.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser)) + _CRM_Leads.CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True")) + _CRM_Leads.LeadStatus = eLeadStatus.Qualified + End If + _CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + _CRM_Leads_Activity.CRM_Leads = _Contacts.CRM_Leads + _CRM_Leads_Activity.EventType = eEventType.eMeeting + _CRM_Leads_Activity.Subject = _Appointment.Subject + _CRM_Leads_Activity.StartOn = _Appointment.Start + _CRM_Leads_Activity.EndOn = _Appointment.End + End If + _ocur.CommitChanges() + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.Designer.vb b/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.Designer.vb new file mode 100644 index 0000000..03a4f4e --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.Designer.vb @@ -0,0 +1,31 @@ +Partial Class ShowAlertControlMainWindowController + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.vb b/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.vb new file mode 100644 index 0000000..5b01d65 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ShowAlertControlMainWindowController.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.Windows.Forms +Imports DevExpress.ExpressApp +Imports DevExpress.XtraBars.Alerter +Imports DevExpress.ExpressApp.Utils + + +Public Class ShowAlertControlMainWindowController + Inherits WindowController + Private alertControlCore As AlertControl + Private alertTimerCore As Timer + Public Sub New() + TargetWindowType = WindowType.Main + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + 'InitAlertControlCore() + 'InitAlertTimerCore() + End Sub + Protected Overridable Sub InitAlertControlCore() + alertControlCore = New AlertControl() + End Sub + Protected Overridable Sub InitAlertTimerCore() + alertTimerCore = New Timer() + AddHandler alertTimerCore.Tick, AddressOf alertTimerCore_Tick + alertTimerCore.Interval = 5000 + alertTimerCore.Start() + End Sub + Private Sub alertTimerCore_Tick(ByVal sender As Object, ByVal e As EventArgs) + ShowAlertInfo() + End Sub + Protected Overrides Sub OnDeactivated() + If alertTimerCore IsNot Nothing Then + alertTimerCore.Stop() + End If + MyBase.OnDeactivated() + End Sub + Protected Overridable Sub ShowAlertInfo() + Dim mainForm As Form = CType(Application.MainWindow.Template, Form) + Dim info As New AlertInfo("Kssben vagy vaze !!!!", "", DateTime.Now.ToString(), ImageLoader.Instance.GetImageInfo("document_into").Image) + AlertControl.Show(mainForm, info) + End Sub + Public ReadOnly Property AlertControl() As AlertControl + Get + Return alertControlCore + End Get + End Property + Public ReadOnly Property AlertTimer() As Timer + Get + Return alertTimerCore + End Get + End Property +End Class + diff --git a/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.Designer.vb b/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.Designer.vb new file mode 100644 index 0000000..9d9fbb5 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.Designer.vb @@ -0,0 +1,31 @@ +Partial Class SISShowNavigationItemController + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.vb b/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.vb new file mode 100644 index 0000000..e88b6d6 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ShowNavigationItemController.vb @@ -0,0 +1,47 @@ + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering + +Public Class SISShowNavigationItemController + Inherits ShowNavigationItemController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub ShowNavigationItem(args As DevExpress.ExpressApp.Actions.SingleChoiceActionExecuteEventArgs) + If args.SelectedChoiceActionItem IsNot Nothing AndAlso args.SelectedChoiceActionItem.Enabled = True Then + If args.SelectedChoiceActionItem.Id = "@OrderInToDispose" Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _UserCreated = _onew.GetObjectByKey(Of User)(_onew.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _OrderInToDispose As OrderInToDispose = _onew.FindObject(Of OrderInToDispose)(CriteriaOperator.Parse("UserCreated=?", _UserCreated)) + If _OrderInToDispose Is Nothing Then + _OrderInToDispose = _onew.CreateObject(Of OrderInToDispose)() + _onew.CommitChanges() + End If + args.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OrderInToDispose_DetailView", True, _OrderInToDispose) + ElseIf args.SelectedChoiceActionItem.Id = "@ProductFinder" Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProductFinder As ProductFinder = _onew.CreateObject(Of ProductFinder)() + + _ProductFinder.MasterKey = Guid.NewGuid + + args.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "ProductFinder_DetailView", True, _ProductFinder) + ElseIf args.SelectedChoiceActionItem.Id = "@ServiceFinder" Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ServiceFinder As ServiceFinder = _onew.CreateObject(Of ServiceFinder)() + + _ServiceFinder.MasterKey = Guid.NewGuid + + args.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "ServiceFinder_DetailView", True, _ServiceFinder) + Else + MyBase.ShowNavigationItem(args) + End If + End If + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/SplitterVC.Designer.vb b/SISBusiness.Module.Win/Controllers/SplitterVC.Designer.vb new file mode 100644 index 0000000..967f85c --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/SplitterVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SplitterVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/SplitterVC.vb b/SISBusiness.Module.Win/Controllers/SplitterVC.vb new file mode 100644 index 0000000..cff9feb --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/SplitterVC.vb @@ -0,0 +1,30 @@ +Imports System.Linq +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Win.Layout +Imports DevExpress.ExpressApp.Model +Imports DevExpress.XtraEditors + +Partial Public Class SplitterVC + Inherits ViewController(Of ListView) + Public Sub New() + InitializeComponent() + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Model.MasterDetailMode = MasterDetailMode.ListViewAndDetailView Then + AddHandler View.ControlsCreated, AddressOf View_ControlCreated + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + End Sub + + Private Sub View_ControlCreated(sender As Object, e As EventArgs) + Dim splitContainer As SplitContainer = CType(View.Control, SplitContainer) + splitContainer.FixedPanel = SplitFixedPanel.None + splitContainer.SplitterPosition = TryCast(View.Model.SplitLayout, IModelListViewSplitLayout).SplitterPosition + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/TreeListVC.Designer.vb b/SISBusiness.Module.Win/Controllers/TreeListVC.Designer.vb new file mode 100644 index 0000000..ff40b1a --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/TreeListVC.Designer.vb @@ -0,0 +1,65 @@ +Partial Class TreeListVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTreeCollapseAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTreeExpandAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aTreeCollapseAll + ' + Me.aTreeCollapseAll.Caption = "Collapse all" + Me.aTreeCollapseAll.Category = "View" + Me.aTreeCollapseAll.ConfirmationMessage = Nothing + Me.aTreeCollapseAll.Id = "aTreeCollapseAll" + Me.aTreeCollapseAll.ImageName = "arrow_up_blue" + Me.aTreeCollapseAll.Shortcut = Nothing + Me.aTreeCollapseAll.Tag = Nothing + Me.aTreeCollapseAll.TargetObjectsCriteria = Nothing + Me.aTreeCollapseAll.TargetViewId = Nothing + Me.aTreeCollapseAll.ToolTip = Nothing + Me.aTreeCollapseAll.TypeOfView = Nothing + ' + 'aTreeExpandAll + ' + Me.aTreeExpandAll.Caption = "Expand all" + Me.aTreeExpandAll.Category = "View" + Me.aTreeExpandAll.ConfirmationMessage = Nothing + Me.aTreeExpandAll.Id = "aTreeExpandAll" + Me.aTreeExpandAll.ImageName = "arrow_down_blue" + Me.aTreeExpandAll.Shortcut = Nothing + Me.aTreeExpandAll.Tag = Nothing + Me.aTreeExpandAll.TargetObjectsCriteria = Nothing + Me.aTreeExpandAll.TargetViewId = Nothing + Me.aTreeExpandAll.ToolTip = Nothing + Me.aTreeExpandAll.TypeOfView = Nothing + + End Sub + Friend WithEvents aTreeCollapseAll As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTreeExpandAll As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/TreeListVC.resx b/SISBusiness.Module.Win/Controllers/TreeListVC.resx new file mode 100644 index 0000000..7a3cd7d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/TreeListVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 21, 16 + + + 159, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/TreeListVC.vb b/SISBusiness.Module.Win/Controllers/TreeListVC.vb new file mode 100644 index 0000000..3368d88 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/TreeListVC.vb @@ -0,0 +1,49 @@ +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.TreeListEditors.Win +Imports DevExpress.XtraTreeList +Imports DevExpress.Persistent.Base.General + + +Public Class TreeListVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + TargetViewType = ViewType.ListView + TargetObjectType = GetType(ITreeNode) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + + + End Sub + + Private Sub aTreeCollapseAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTreeCollapseAll.Execute + Dim _ListView As ListView = CType(View, ListView) + Dim _ListEditor As TreeListEditor = CType(_ListView.Editor, TreeListEditor) + Dim _TreeList As TreeList = _ListEditor.TreeList + _TreeList.CollapseAll() + End Sub + + Private Sub aTreeExpandAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTreeExpandAll.Execute + Dim _ListView As ListView = CType(View, ListView) + Dim _ListEditor As TreeListEditor = CType(_ListView.Editor, TreeListEditor) + Dim _TreeList As TreeList = _ListEditor.TreeList + _TreeList.ExpandAll() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/WinAllowSortViewController.vb b/SISBusiness.Module.Win/Controllers/WinAllowSortViewController.vb new file mode 100644 index 0000000..1c88f1d --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/WinAllowSortViewController.vb @@ -0,0 +1,42 @@ +Imports Microsoft.VisualBasic +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.Win.Editors +Imports DevExpress.XtraGrid.Columns +Imports DevExpress.Utils + + +Public Class WinAllowSortListViewController + Inherits AllowSortListViewController + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + UpdateAllowSort() + End Sub + Protected Overrides Sub UpdateAllowSort() + 'Dim gridListEditor As GridListEditor = TryCast(View.Editor, GridListEditor) + 'If gridListEditor IsNot Nothing Then + ' Dim allowSortListView As Boolean = GetAllowSortListView() + ' gridListEditor.GridView.OptionsCustomization.AllowSort = allowSortListView + ' If allowSortListView Then + ' For Each column As GridColumn In gridListEditor.GridView.Columns + ' Dim xafColumn As GridColumn = TryCast(column, GridColumn) + ' If xafColumn IsNot Nothing Then + ' If GetAllowSortColumn(xafColumn) Then + ' xafColumn.OptionsColumn.AllowSort = DefaultBoolean.True + ' Else + ' xafColumn.OptionsColumn.AllowSort = DefaultBoolean.False + ' End If + + ' End If + ' Next column + ' End If + 'End If + End Sub +End Class + diff --git a/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.Designer.vb b/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.Designer.vb new file mode 100644 index 0000000..d57b51b --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.Designer.vb @@ -0,0 +1,32 @@ +Partial Class WinGroupFooterViewController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.vb b/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.vb new file mode 100644 index 0000000..8e1c85b --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/WinGroupFooterViewController.vb @@ -0,0 +1,80 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.Data +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraGrid.Columns + + +Public Class WinGroupFooterViewController + Inherits ViewController(Of ListView) + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Private Sub View_InfoSynchronized(ByVal sender As Object, ByVal e As EventArgs) + Dim modelListView As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + If modelListView IsNot Nothing AndAlso modelListView.IsGroupFooterVisible Then + Dim gridListEditor As GridListEditor = TryCast(View.Editor, GridListEditor) + If gridListEditor IsNot Nothing Then + Dim gridView As GridView = gridListEditor.GridView + If gridView IsNot Nothing Then + For i As Integer = 0 To gridView.GroupSummary.Count - 1 + Dim modelColumn As IModelColumnExtender = TryCast(CType(View.Model.Columns, IModelList(Of IModelColumn))(gridView.GroupSummary(i).FieldName), IModelColumnExtender) + If modelColumn IsNot Nothing Then + modelColumn.GroupFooterSummaryType = gridView.GroupSummary(i).SummaryType + End If + Next i + End If + End If + End If + End Sub + Protected Overloads 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 GridListEditor = TryCast(View.Editor, GridListEditor) + If gridListEditor IsNot Nothing Then + Dim gridView As GridView = gridListEditor.GridView + gridView.OptionsView.GroupFooterShowMode = GroupFooterShowMode.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 gridColumn As GridColumn = gridView.Columns(modelColumn.ModelMember.MemberInfo.BindingName) + If modelColumn.DisplayFormat.ToString <> "" Then + If Mid(modelColumn.DisplayFormat, 1, 1) = "{" Then + displayFormat = modelColumn.DisplayFormat + gridView.GroupSummary.Add(modelColumnExtender.GroupFooterSummaryType, modelColumn.Id, gridColumn, displayFormat) + Else + displayFormat = String.Format("{{0:{0}}}", modelColumn.DisplayFormat) + gridView.GroupSummary.Add(modelColumnExtender.GroupFooterSummaryType, modelColumn.Id, gridColumn, displayFormat) + End If + + Else + gridView.GroupSummary.Add(modelColumnExtender.GroupFooterSummaryType, modelColumn.Id, gridColumn) + End If + + End If + Next modelColumn + End If + End If + End Sub + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler View.ModelSaved, AddressOf View_InfoSynchronized + End Sub + Protected Overloads Overrides Sub OnDeactivated() + RemoveHandler View.ModelSaved, AddressOf View_InfoSynchronized + MyBase.OnDeactivated() + End Sub +End Class + + + diff --git a/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.Designer.vb b/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.Designer.vb new file mode 100644 index 0000000..b440d3f --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class WinNewObjectViewVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.vb b/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.vb new file mode 100644 index 0000000..a8aec6c --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/WinNewObjectViewVC.vb @@ -0,0 +1,81 @@ +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.Win.SystemModule +Imports DevExpress.ExpressApp.SystemModule + +Public Class WinNewObjectViewVC + + Inherits WinNewObjectViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + 'Get the ShowNavigationItemController, + 'then get its ShowNavigationItemAction and subscribe the SelectedItemChanged event + AddHandler Frame.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction.SelectedItemChanged, AddressOf ShowNavigationItemAction_SelectedItemChanged + AddHandler CollectCreatableItemTypes, AddressOf MyController_CollectCreatableItemTypes + AddHandler CollectDescendantTypes, AddressOf MyController_CollectDescendantTypes + End Sub + Private Sub MyController_CollectDescendantTypes(ByVal sender As Object, _ + ByVal e As DevExpress.ExpressApp.SystemModule.CollectTypesEventArgs) + CustomizeList(e.Types) + End Sub + Private Sub MyController_CollectCreatableItemTypes(ByVal sender As Object, _ + ByVal e As DevExpress.ExpressApp.SystemModule.CollectTypesEventArgs) + CustomizeList(e.Types) + End Sub + Private Sub ShowNavigationItemAction_SelectedItemChanged(ByVal sender As Object, ByVal e As EventArgs) + Me.UpdateActionState() + End Sub + Public Sub CustomizeList(ByVal types As ICollection(Of Type)) + 'Get the ShowNavigationItemController, then get its ShowNavigationItemAction + Dim showNavigationItemAction As SingleChoiceAction = _ + Frame.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction + 'Get the item selected in the navigation control + Dim selectedItem As ChoiceActionItem = showNavigationItemAction.SelectedItem + Dim currentGroup As ChoiceActionItem = Nothing + If Not selectedItem Is Nothing Then + 'Get the selected item's parent group + currentGroup = selectedItem.ParentItem + Dim unusableTypes As List(Of Type) = New List(Of Type)() + 'Collect the types that must be deleted + For Each type As Type In types + Dim deletionRequired As Boolean = True + For Each item As ChoiceActionItem In currentGroup.Items + Dim shortcut As ViewShortcut = TryCast(item.Data, ViewShortcut) + If shortcut.ViewId = Application.FindListViewId(type) Then + deletionRequired = False + End If + Next item + If deletionRequired = True Then + unusableTypes.Add(type) + End If + Next type + 'Remove the collected types + For Each type As Type In unusableTypes + types.Remove(type) + Next type + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler Frame.GetController(Of ShowNavigationItemController)().ShowNavigationItemAction.SelectedItemChanged, _ + AddressOf ShowNavigationItemAction_SelectedItemChanged + RemoveHandler CollectCreatableItemTypes, AddressOf MyController_CollectCreatableItemTypes + RemoveHandler CollectDescendantTypes, AddressOf MyController_CollectDescendantTypes + End Sub +End Class diff --git a/SISBusiness.Module.Win/Controllers/ZIPHUVC.Designer.vb b/SISBusiness.Module.Win/Controllers/ZIPHUVC.Designer.vb new file mode 100644 index 0000000..f3dc503 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ZIPHUVC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class ZIPHUVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aAddress_LoadZIPHUFromXLS = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aAddress_LoadZIPHUFromXLS + ' + Me.aAddress_LoadZIPHUFromXLS.Caption = "aAddress_LoadZIPHUFromXLS" + Me.aAddress_LoadZIPHUFromXLS.ConfirmationMessage = Nothing + Me.aAddress_LoadZIPHUFromXLS.Id = "aAddress_LoadZIPHUFromXLS" + Me.aAddress_LoadZIPHUFromXLS.ImageName = Nothing + Me.aAddress_LoadZIPHUFromXLS.Shortcut = Nothing + Me.aAddress_LoadZIPHUFromXLS.Tag = Nothing + Me.aAddress_LoadZIPHUFromXLS.TargetObjectsCriteria = Nothing + Me.aAddress_LoadZIPHUFromXLS.TargetViewId = "ZIPHU_ListView" + Me.aAddress_LoadZIPHUFromXLS.ToolTip = Nothing + Me.aAddress_LoadZIPHUFromXLS.TypeOfView = Nothing + + End Sub + Friend WithEvents aAddress_LoadZIPHUFromXLS As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Controllers/ZIPHUVC.resx b/SISBusiness.Module.Win/Controllers/ZIPHUVC.resx new file mode 100644 index 0000000..2d18be4 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ZIPHUVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Controllers/ZIPHUVC.vb b/SISBusiness.Module.Win/Controllers/ZIPHUVC.vb new file mode 100644 index 0000000..40ed0d1 --- /dev/null +++ b/SISBusiness.Module.Win/Controllers/ZIPHUVC.vb @@ -0,0 +1,166 @@ +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 System.Windows.Forms +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports System.Data.OleDb + +Public Class ZIPHUVC + Inherits DevExpress.ExpressApp.ViewController + + Dim _WaitFormClass As New WaitFormClass + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Address_DetailView" Then + For Each editor As PropertyEditor In (CType(View, DetailView)).GetItems(Of PropertyEditor)() + If editor.PropertyName = "ZipPostal" Then + AddHandler editor.ControlCreated, AddressOf editor_ControlCreated + Exit For + End If + Next editor + End If + + End Sub + Private Sub editor_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + ' You can access the corresponding property editor control by the following code: + Dim editorControl As Control = TryCast((CType(sender, PropertyEditor)).Control, Control) + AddHandler editorControl.HandleCreated, AddressOf editorControl_HandleCreated + + Dim _ZipPostal As DevExpress.XtraEditors.TextEdit = TryCast(editorControl, DevExpress.XtraEditors.TextEdit) + If _ZipPostal IsNot Nothing Then + + AddHandler _ZipPostal.TextChanged, AddressOf ZipPostal_TextChanged + End If + End Sub + Private Sub editorControl_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) + ' Sometimes it is necessary to access editor's control after it is visible (its handle is created). + RemoveHandler (CType(sender, Control)).HandleCreated, AddressOf editorControl_HandleCreated + End Sub + Private Sub ZipPostal_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StringEdit As DevExpress.ExpressApp.Win.Editors.StringEdit = TryCast(sender, DevExpress.ExpressApp.Win.Editors.StringEdit) + + If _StringEdit.Text.Length = 4 Then + Dim _ZIPHU As ZIPHU = _ocur.FindObject(Of ZIPHU)(CriteriaOperator.Parse("Zip=?", _StringEdit.Text)) + + If _ZIPHU IsNot Nothing Then + Dim _Address As Address = TryCast(View.SelectedObjects(0), Address) + _Address.ZipPostal = _StringEdit.Text + _Address.City = _ZIPHU.City + _Address.StateProvince = _ZIPHU.County + End If + End If + End Sub + + Private Sub aAddress_LoadZIPHUFromXLS_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAddress_LoadZIPHUFromXLS.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ZIP As New ArrayList + Dim _City As New ArrayList + Dim _Country As New ArrayList + + Dim _OpenFileDialog As New OpenFileDialog + _OpenFileDialog.Filter = "XLS file (.xls)|*.xls|XLSX file (.xlsx)|*.xlsx|All Files (*.*)|*.*" + + + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + Dim _xlsFile As String = _OpenFileDialog.FileName + Dim _cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;" + _cs += "Data Source=" & _xlsFile.ToString & ";" + _cs += "Extended Properties=""Excel 12.0 Xml;HDR=YES;""" + Dim conn As New OleDbConnection(_cs) + Dim cmd As New OleDbCommand + Dim dr As OleDbDataReader + Dim dr1 As OleDbDataReader + Dim mSQL As String + Dim _UpdatedCount As Long = 0 + + + Try + + mSQL = "select * from [Munka1$]" + cmd.CommandTimeout = 60 + cmd.Connection = conn + cmd.CommandType = CommandType.Text + cmd.CommandText = mSQL + conn.Open() + + If conn.State = ConnectionState.Open Then + Dim _Count As Long = 0 + + dr1 = cmd.ExecuteReader(CommandBehavior.SingleResult) + + While dr1.Read + If dr1(0).ToString <> "" And dr1(0).ToString <> "ZIP" Then + _Count += 1 + End If + End While + dr1.Close() + + dr = cmd.ExecuteReader(CommandBehavior.SingleResult) + _WaitFormClass.Initwork(1, 1, _Count) + While dr.Read + If dr(0).ToString <> "" And dr(0).ToString <> "ZIP" Then + + _ZIP.Add(dr(0).ToString) + _City.Add(dr(1).ToString) + _Country.Add(dr(2).ToString) + + _WaitFormClass.DoWork + System.Windows.Forms.Application.DoEvents() + End If + End While + + dr.Close() + End If + conn.Close() + Catch ex As Exception + MsgBox(ex.Message) + conn.Close() + End Try + _WaitFormClass.Finalwork + End If + + + Dim _LineIndex As Long = 0 + For Each _ZIP_String As String In _ZIP + System.Windows.Forms.Application.DoEvents() + + + Dim _ZIPHU As ZIPHU = _onew.FindObject(Of ZIPHU)(CriteriaOperator.Parse("Zip=? AND City=? AND County=?", _ZIP(_LineIndex), _City(_LineIndex), _Country(_LineIndex))) + If _ZIPHU Is Nothing Then + With _ZIPHU + .ID = _LineIndex + 1 + .Zip = _ZIP(_LineIndex) + .City = _City(_LineIndex) + .County = _Country(_LineIndex) + End With + End If + + Dim _Country_O As Country = _onew.FindObject(Of Country)(CriteriaOperator.Parse("Name=?", _Country(_LineIndex)), True) + If _Country_O Is Nothing Then + _Country_O = New Country(_onew.Session) + With _Country_O + .Name = _Country(_LineIndex) + End With + End If + _LineIndex += 1 + Next + _WaitFormClass.Finalwork + + _onew.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/DXPropertyEditors/CalculatorPropertyEditor.vb b/SISBusiness.Module.Win/Editor/DXPropertyEditors/CalculatorPropertyEditor.vb new file mode 100644 index 0000000..b4ac1a2 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DXPropertyEditors/CalculatorPropertyEditor.vb @@ -0,0 +1,19 @@ +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Win.Core.ModelEditor +Imports DevExpress.XtraEditors + + _ +Public Class CalculatorPropertyEditor + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New CalcEdit() + + Return control + End Function +End Class + diff --git a/SISBusiness.Module.Win/Editor/DXPropertyEditors/FieldPicker.vb b/SISBusiness.Module.Win/Editor/DXPropertyEditors/FieldPicker.vb new file mode 100644 index 0000000..0dc13b3 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DXPropertyEditors/FieldPicker.vb @@ -0,0 +1,56 @@ +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Win.Core.ModelEditor +Imports DevExpress.XtraEditors + + + _ +Public Class FieldPickerPropertyEditor + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New FieldPicker() + control.Properties.ClassType = Me.ObjectType + Return control + End Function +End Class + _ +Public Class FieldPickerPropertyEditorContacts + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New FieldPicker() + control.Properties.ClassType = GetType(Contacts) + Return control + End Function +End Class + _ +Public Class FieldPickerPropertyEditorContract + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New FieldPicker() + control.Properties.ClassType = GetType(Contracts) + Return control + End Function +End Class + _ +Public Class FieldPickerPropertyEditorAPCShettByProducts + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New FieldPicker() + control.Properties.ClassType = GetType(APCSheetByProducts) + Return control + End Function +End Class + diff --git a/SISBusiness.Module.Win/Editor/DXPropertyEditors/NotePropertyEditor.vb b/SISBusiness.Module.Win/Editor/DXPropertyEditors/NotePropertyEditor.vb new file mode 100644 index 0000000..929472b --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DXPropertyEditors/NotePropertyEditor.vb @@ -0,0 +1,47 @@ +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Win.Core.ModelEditor +Imports DevExpress.XtraEditors + + _ +Public Class NotePropertyEditor + Inherits DXPropertyEditor + Public Sub New(type As Type, model As IModelMemberViewItem) + MyBase.New(type, model) + End Sub + Protected Overrides Function CreateControlCore() As Object + Dim control As New ComboBoxEdit + + control.Properties.Sorted = True + control.Properties.ImmediatePopup = True + 'AddHandler control.Properties.CloseUp, AddressOf control_CloseUp + + + 'AddHandler control.KeyDown, AddressOf control_KeyDown + Return control + End Function + + Private Sub control_PreviewKeyDown(sender As Object, e As Windows.Forms.PreviewKeyDownEventArgs) + Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit) + If e.KeyCode = Windows.Forms.Keys.F6 Then + MsgBox(control.Text) + control.EditValue = control.Text + End If + End Sub + + Private Sub control_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) + Dim control As ComboBoxEdit = TryCast(sender, ComboBoxEdit) + If control.IsPopupOpen Then + If e.KeyCode = Windows.Forms.Keys.F6 Then + control.ClosePopup() + MsgBox(control.Text) + End If + End If + End Sub + + Private Sub control_CloseUp(sender As Object, e As Controls.CloseUpEventArgs) + 'Beep() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerPropertyEditor.vb b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerPropertyEditor.vb new file mode 100644 index 0000000..a78cf47 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerPropertyEditor.vb @@ -0,0 +1,27 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class DashboardDesignerPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "DashboardDesignerInfo" + End Sub + Private DashboardDesignerUserControlCore As DashboardDesignerUserControl = Nothing + Public ReadOnly Property DashboardDesignerUserControl() As DashboardDesignerUserControl + Get + Return DashboardDesignerUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + DashboardDesignerUserControlCore = New DashboardDesignerUserControl() + Return DashboardDesignerUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.Designer.vb new file mode 100644 index 0000000..8f01111 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.Designer.vb @@ -0,0 +1,2608 @@ + _ +Partial Class DashboardDesignerUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim GalleryItemGroup1 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItem1 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DashboardDesignerUserControl)) + Dim GalleryItem2 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem3 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem4 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem5 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem6 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem7 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem8 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem9 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem10 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem11 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem12 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem13 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem14 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItem15 As DevExpress.XtraBars.Ribbon.GalleryItem = New DevExpress.XtraBars.Ribbon.GalleryItem() + Dim GalleryItemGroup2 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup3 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup4 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup5 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup6 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup7 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup8 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup9 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem1 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem2 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem3 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup10 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem4 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem5 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem6 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem7 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem8 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem9 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup11 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem10 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem11 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem12 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem13 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem14 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem15 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem16 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup12 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem17 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem18 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup13 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem19 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup14 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim ChartSeriesTypeGalleryItem20 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem21 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim ChartSeriesTypeGalleryItem22 As DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem = New DevExpress.DashboardWin.Bars.ChartSeriesTypeGalleryItem() + Dim GalleryItemGroup15 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup16 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup17 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup18 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup19 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup20 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim GalleryItemGroup21 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) + Me.DashboardDesigner1 = New DevExpress.DashboardWin.DashboardDesigner() + Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) + Me.HomeBar1 = New DevExpress.DashboardWin.Bars.HomeBar() + Me.FileNewBarItem1 = New DevExpress.DashboardWin.Bars.FileNewBarItem() + Me.FileOpenBarItem1 = New DevExpress.DashboardWin.Bars.FileOpenBarItem() + Me.FileSaveBarItem1 = New DevExpress.DashboardWin.Bars.FileSaveBarItem() + Me.FileSaveAsBarItem1 = New DevExpress.DashboardWin.Bars.FileSaveAsBarItem() + Me.UndoBarItem1 = New DevExpress.DashboardWin.Bars.UndoBarItem() + Me.RedoBarItem1 = New DevExpress.DashboardWin.Bars.RedoBarItem() + Me.InsertPivotBarItem1 = New DevExpress.DashboardWin.Bars.InsertPivotBarItem() + Me.InsertGridBarItem1 = New DevExpress.DashboardWin.Bars.InsertGridBarItem() + Me.InsertChartBarItem1 = New DevExpress.DashboardWin.Bars.InsertChartBarItem() + Me.InsertPiesBarItem1 = New DevExpress.DashboardWin.Bars.InsertPiesBarItem() + Me.InsertGaugesBarItem1 = New DevExpress.DashboardWin.Bars.InsertGaugesBarItem() + Me.InsertCardsBarItem1 = New DevExpress.DashboardWin.Bars.InsertCardsBarItem() + Me.InsertChoroplethMapBarItem1 = New DevExpress.DashboardWin.Bars.InsertChoroplethMapBarItem() + Me.InsertRangeFilterBarItem1 = New DevExpress.DashboardWin.Bars.InsertRangeFilterBarItem() + Me.InsertImageBarItem1 = New DevExpress.DashboardWin.Bars.InsertImageBarItem() + Me.InsertTextBoxBarItem1 = New DevExpress.DashboardWin.Bars.InsertTextBoxBarItem() + Me.DuplicateItemBarItem1 = New DevExpress.DashboardWin.Bars.DuplicateItemBarItem() + Me.DeleteItemBarItem1 = New DevExpress.DashboardWin.Bars.DeleteItemBarItem() + Me.DashboardTitleBarItem1 = New DevExpress.DashboardWin.Bars.DashboardTitleBarItem() + Me.SetCurrencyCultureBarItem1 = New DevExpress.DashboardWin.Bars.SetCurrencyCultureBarItem() + Me.InsertGeoPointMapBarSubItem1 = New DevExpress.DashboardWin.Bars.InsertGeoPointMapBarSubItem() + Me.InsertGeoPointMapBarItem1 = New DevExpress.DashboardWin.Bars.InsertGeoPointMapBarItem() + Me.InsertBubbleMapBarItem1 = New DevExpress.DashboardWin.Bars.InsertBubbleMapBarItem() + Me.InsertPieMapBarItem1 = New DevExpress.DashboardWin.Bars.InsertPieMapBarItem() + Me.InsertFilterElementSubItem1 = New DevExpress.DashboardWin.Bars.InsertFilterElementSubItem() + Me.InsertComboBoxBarItem1 = New DevExpress.DashboardWin.Bars.InsertComboBoxBarItem() + Me.InsertListBoxBarItem1 = New DevExpress.DashboardWin.Bars.InsertListBoxBarItem() + Me.InsertTreeViewBarItem1 = New DevExpress.DashboardWin.Bars.InsertTreeViewBarItem() + Me.InsertGroupBarItem1 = New DevExpress.DashboardWin.Bars.InsertGroupBarItem() + Me.ConvertToPivotBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToPivotBarItem() + Me.ConvertToGridBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToGridBarItem() + Me.ConvertToChartBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToChartBarItem() + Me.ConvertToPieBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToPieBarItem() + Me.ConvertToGaugeBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem() + Me.ConvertToCardBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToCardBarItem() + Me.ConvertToChoroplethMapBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem() + Me.ConvertGeoPointMapBaseBarItem1 = New DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem() + Me.ConvertToGeoPointMapBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem() + Me.ConvertToBubbleMapBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem() + Me.ConvertToPieMapBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem() + Me.ConvertToRangeFilterBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem() + Me.ConvertToComboBoxBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem() + Me.ConvertToListBoxBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem() + Me.ConvertToTreeViewBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem() + Me.RemoveDataItemsBarItem1 = New DevExpress.DashboardWin.Bars.RemoveDataItemsBarItem() + Me.TransposeItemBarItem1 = New DevExpress.DashboardWin.Bars.TransposeItemBarItem() + Me.EditRulesBarItem1 = New DevExpress.DashboardWin.Bars.EditRulesBarItem() + Me.DeleteGroupBarItem1 = New DevExpress.DashboardWin.Bars.DeleteGroupBarItem() + Me.DashboardColorSchemeBarItem1 = New DevExpress.DashboardWin.Bars.DashboardColorSchemeBarItem() + Me.DataSourceBar1 = New DevExpress.DashboardWin.Bars.DataSourceBar() + Me.NewDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.NewDataSourceBarItem() + Me.DeleteDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.DeleteDataSourceBarItem() + Me.EditDataSourceFilterBarItem1 = New DevExpress.DashboardWin.Bars.EditDataSourceFilterBarItem() + Me.ClearDataSourceFilterBarItem1 = New DevExpress.DashboardWin.Bars.ClearDataSourceFilterBarItem() + Me.EditSqlConnectionBarItem1 = New DevExpress.DashboardWin.Bars.EditSqlConnectionBarItem() + Me.EditOlapConnectionBarItem1 = New DevExpress.DashboardWin.Bars.EditOlapConnectionBarItem() + Me.EditObjectDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.EditObjectDataSourceBarItem() + Me.EditEFDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.EditEFDataSourceBarItem() + Me.RenameDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.RenameDataSourceBarItem() + Me.ServerModeBarItem1 = New DevExpress.DashboardWin.Bars.ServerModeBarItem() + Me.ViewBar1 = New DevExpress.DashboardWin.Bars.ViewBar() + Me.DashboardSkinsBarItem1 = New DevExpress.DashboardWin.Bars.DashboardSkinsBarItem() + Me.PivotToolsBar1 = New DevExpress.DashboardWin.Bars.PivotToolsBar() + Me.EditFilterBarItem1 = New DevExpress.DashboardWin.Bars.EditFilterBarItem() + Me.ClearFilterBarItem1 = New DevExpress.DashboardWin.Bars.ClearFilterBarItem() + Me.IgnoreMasterFiltersBarItem1 = New DevExpress.DashboardWin.Bars.IgnoreMasterFiltersBarItem() + Me.ShowItemCaptionBarItem1 = New DevExpress.DashboardWin.Bars.ShowItemCaptionBarItem() + Me.EditItemNamesBarItem1 = New DevExpress.DashboardWin.Bars.EditItemNamesBarItem() + Me.PivotInitialStateBarItem1 = New DevExpress.DashboardWin.Bars.PivotInitialStateBarItem() + Me.PivotAutoExpandColumnBarItem1 = New DevExpress.DashboardWin.Bars.PivotAutoExpandColumnBarItem() + Me.PivotAutoExpandRowBarItem1 = New DevExpress.DashboardWin.Bars.PivotAutoExpandRowBarItem() + Me.GridToolsBar1 = New DevExpress.DashboardWin.Bars.GridToolsBar() + Me.MasterFilterBarItem1 = New DevExpress.DashboardWin.Bars.MasterFilterBarItem() + Me.MultipleValuesMasterFilterBarItem1 = New DevExpress.DashboardWin.Bars.MultipleValuesMasterFilterBarItem() + Me.DrillDownBarItem1 = New DevExpress.DashboardWin.Bars.DrillDownBarItem() + Me.CrossDataSourceFilteringBarItem1 = New DevExpress.DashboardWin.Bars.CrossDataSourceFilteringBarItem() + Me.GridHorizontalLinesBarItem1 = New DevExpress.DashboardWin.Bars.GridHorizontalLinesBarItem() + Me.GridVerticalLinesBarItem1 = New DevExpress.DashboardWin.Bars.GridVerticalLinesBarItem() + Me.GridMergeCellsBarItem1 = New DevExpress.DashboardWin.Bars.GridMergeCellsBarItem() + Me.GridBandedRowsBarItem1 = New DevExpress.DashboardWin.Bars.GridBandedRowsBarItem() + Me.GridColumnHeadersBarItem1 = New DevExpress.DashboardWin.Bars.GridColumnHeadersBarItem() + Me.GridWordWrapBarItem1 = New DevExpress.DashboardWin.Bars.GridWordWrapBarItem() + Me.GridAutoFitToContentsColumnWidthModeBarItem1 = New DevExpress.DashboardWin.Bars.GridAutoFitToContentsColumnWidthModeBarItem() + Me.GridAutoFitToGridColumnWidthModeBarItem1 = New DevExpress.DashboardWin.Bars.GridAutoFitToGridColumnWidthModeBarItem() + Me.ManualGridColumnWidthModeBarItem1 = New DevExpress.DashboardWin.Bars.ManualGridColumnWidthModeBarItem() + Me.ChartToolsBar1 = New DevExpress.DashboardWin.Bars.ChartToolsBar() + Me.ChartTargetDimensionsArgumentsBarItem1 = New DevExpress.DashboardWin.Bars.ChartTargetDimensionsArgumentsBarItem() + Me.ChartTargetDimensionsSeriesBarItem1 = New DevExpress.DashboardWin.Bars.ChartTargetDimensionsSeriesBarItem() + Me.ChartRotateBarItem1 = New DevExpress.DashboardWin.Bars.ChartRotateBarItem() + Me.ChartXAxisSettingsBarItem1 = New DevExpress.DashboardWin.Bars.ChartXAxisSettingsBarItem() + Me.ChartYAxisSettingsBarItem1 = New DevExpress.DashboardWin.Bars.ChartYAxisSettingsBarItem() + Me.ChartShowLegendBarItem1 = New DevExpress.DashboardWin.Bars.ChartShowLegendBarItem() + Me.GalleryChartLegendPositionItem1 = New DevExpress.DashboardWin.Bars.GalleryChartLegendPositionItem() + Me.GalleryChartSeriesTypeItem1 = New DevExpress.DashboardWin.Bars.GalleryChartSeriesTypeItem() + Me.UseGlobalColorsBarItem1 = New DevExpress.DashboardWin.Bars.UseGlobalColorsBarItem() + Me.UseLocalColorsBarItem1 = New DevExpress.DashboardWin.Bars.UseLocalColorsBarItem() + Me.EditActualColorsBarItem1 = New DevExpress.DashboardWin.Bars.EditActualColorsBarItem() + Me.PiesToolsBar1 = New DevExpress.DashboardWin.Bars.PiesToolsBar() + Me.PieTargetDimensionsArgumentsBarItem1 = New DevExpress.DashboardWin.Bars.PieTargetDimensionsArgumentsBarItem() + Me.PieTargetDimensionsSeriesBarItem1 = New DevExpress.DashboardWin.Bars.PieTargetDimensionsSeriesBarItem() + Me.ContentAutoArrangeBarItem1 = New DevExpress.DashboardWin.Bars.ContentAutoArrangeBarItem() + Me.ContentArrangeInColumnsBarItem1 = New DevExpress.DashboardWin.Bars.ContentArrangeInColumnsBarItem() + Me.ContentArrangeInRowsBarItem1 = New DevExpress.DashboardWin.Bars.ContentArrangeInRowsBarItem() + Me.ContentArrangementCountBarItem1 = New DevExpress.DashboardWin.Bars.ContentArrangementCountBarItem() + Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit() + Me.PieLabelsDataLabelsBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsBarItem() + Me.PieLabelsDataLabelsNoneBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsNoneBarItem() + Me.PieLabelsDataLabelArgumentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelArgumentBarItem() + Me.PieLabelsDataLabelsValueBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsValueBarItem() + Me.PieLabelsDataLabelsArgumentAndValueBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentAndValueBarItem() + Me.PieLabelsDataLabelsPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsPercentBarItem() + Me.PieLabelsDataLabelsValueAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsValueAndPercentBarItem() + Me.PieLabelsDataLabelsArgumentAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentAndPercentBarItem() + Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentValueAndPercentBarItem() + Me.PieTooltipsBarItem1 = New DevExpress.DashboardWin.Bars.PieTooltipsBarItem() + Me.PieLabelsTooltipsNoneBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsNoneBarItem() + Me.PieLabelsTooltipsArgumentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentBarItem() + Me.PieLabelsTooltipsValueBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsValueBarItem() + Me.PieLabelsTooltipsArgumentAndValueBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentAndValueBarItem() + Me.PieLabelsTooltipsPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsPercentBarItem() + Me.PieLabelsTooltipsValueAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsValueAndPercentBarItem() + Me.PieLabelsTooltipsArgumentAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentAndPercentBarItem() + Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1 = New DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentValueAndPercentBarItem() + Me.PieStylePieBarItem1 = New DevExpress.DashboardWin.Bars.PieStylePieBarItem() + Me.PieStyleDonutBarItem1 = New DevExpress.DashboardWin.Bars.PieStyleDonutBarItem() + Me.PieShowCaptionsBarItem1 = New DevExpress.DashboardWin.Bars.PieShowCaptionsBarItem() + Me.GaugesToolsBar1 = New DevExpress.DashboardWin.Bars.GaugesToolsBar() + Me.GaugeStyleFullCircularBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleFullCircularBarItem() + Me.GaugeStyleHalfCircularBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleHalfCircularBarItem() + Me.GaugeStyleLeftQuarterCircularBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleLeftQuarterCircularBarItem() + Me.GaugeStyleRightQuarterCircularBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleRightQuarterCircularBarItem() + Me.GaugeStyleThreeForthCircularBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleThreeForthCircularBarItem() + Me.GaugeStyleLinearHorizontalBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleLinearHorizontalBarItem() + Me.GaugeStyleLinearVerticalBarItem1 = New DevExpress.DashboardWin.Bars.GaugeStyleLinearVerticalBarItem() + Me.GaugeShowCaptionsBarItem1 = New DevExpress.DashboardWin.Bars.GaugeShowCaptionsBarItem() + Me.CardsToolsBar1 = New DevExpress.DashboardWin.Bars.CardsToolsBar() + Me.RangeFilterToolsBar1 = New DevExpress.DashboardWin.Bars.RangeFilterToolsBar() + Me.RangeFilterLineSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterLineSeriesTypeBarItem() + Me.RangeFilterStackedLineSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterStackedLineSeriesTypeBarItem() + Me.RangeFilterFullStackedLineSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterFullStackedLineSeriesTypeBarItem() + Me.RangeFilterAreaSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterAreaSeriesTypeBarItem() + Me.RangeFilterStackedAreaSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterStackedAreaSeriesTypeBarItem() + Me.RangeFilterFullStackedAreaSeriesTypeBarItem1 = New DevExpress.DashboardWin.Bars.RangeFilterFullStackedAreaSeriesTypeBarItem() + Me.MapToolsBar1 = New DevExpress.DashboardWin.Bars.MapToolsBar() + Me.MapShowLegendBarItem1 = New DevExpress.DashboardWin.Bars.MapShowLegendBarItem() + Me.GalleryMapLegendPositionItem1 = New DevExpress.DashboardWin.Bars.GalleryMapLegendPositionItem() + Me.MapLoadBarItem1 = New DevExpress.DashboardWin.Bars.MapLoadBarItem() + Me.MapImportBarItem1 = New DevExpress.DashboardWin.Bars.MapImportBarItem() + Me.MapDefaultShapefileBarItem1 = New DevExpress.DashboardWin.Bars.MapDefaultShapefileBarItem() + Me.MapWorldCountriesBarItem1 = New DevExpress.DashboardWin.Bars.MapWorldCountriesBarItem() + Me.MapEuropeBarItem1 = New DevExpress.DashboardWin.Bars.MapEuropeBarItem() + Me.MapAsiaBarItem1 = New DevExpress.DashboardWin.Bars.MapAsiaBarItem() + Me.MapNorthAmericaBarItem1 = New DevExpress.DashboardWin.Bars.MapNorthAmericaBarItem() + Me.MapSouthAmericaBarItem1 = New DevExpress.DashboardWin.Bars.MapSouthAmericaBarItem() + Me.MapAfricaBarItem1 = New DevExpress.DashboardWin.Bars.MapAfricaBarItem() + Me.MapUSABarItem1 = New DevExpress.DashboardWin.Bars.MapUSABarItem() + Me.MapCanadaBarItem1 = New DevExpress.DashboardWin.Bars.MapCanadaBarItem() + Me.ImageToolsBar1 = New DevExpress.DashboardWin.Bars.ImageToolsBar() + Me.ImageLoadBarItem1 = New DevExpress.DashboardWin.Bars.ImageLoadBarItem() + Me.ImageImportBarItem1 = New DevExpress.DashboardWin.Bars.ImageImportBarItem() + Me.ImageSizeModeClipBarItem1 = New DevExpress.DashboardWin.Bars.ImageSizeModeClipBarItem() + Me.ImageSizeModeStretchBarItem1 = New DevExpress.DashboardWin.Bars.ImageSizeModeStretchBarItem() + Me.ImageSizeModeSqueezeBarItem1 = New DevExpress.DashboardWin.Bars.ImageSizeModeSqueezeBarItem() + Me.ImageSizeModeZoomBarItem1 = New DevExpress.DashboardWin.Bars.ImageSizeModeZoomBarItem() + Me.ImageAlignmentTopLeftBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentTopLeftBarItem() + Me.ImageAlignmentCenterLeftBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentCenterLeftBarItem() + Me.ImageAlignmentBottomLeftBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentBottomLeftBarItem() + Me.ImageAlignmentTopCenterBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentTopCenterBarItem() + Me.ImageAlignmentCenterCenterBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentCenterCenterBarItem() + Me.ImageAlignmentBottomCenterBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentBottomCenterBarItem() + Me.ImageAlignmentTopRightBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentTopRightBarItem() + Me.ImageAlignmentCenterRightBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentCenterRightBarItem() + Me.ImageAlignmentBottomRightBarItem1 = New DevExpress.DashboardWin.Bars.ImageAlignmentBottomRightBarItem() + Me.TextBoxToolsBar1 = New DevExpress.DashboardWin.Bars.TextBoxToolsBar() + Me.TextBoxEditTextBarItem1 = New DevExpress.DashboardWin.Bars.TextBoxEditTextBarItem() + Me.ChoroplethMapToolsBar1 = New DevExpress.DashboardWin.Bars.ChoroplethMapToolsBar() + Me.MapLockNavigationBarItem1 = New DevExpress.DashboardWin.Bars.MapLockNavigationBarItem() + Me.MapFullExtentBarItem1 = New DevExpress.DashboardWin.Bars.MapFullExtentBarItem() + Me.ChoroplethMapShapeLabelsAttributeBarItem1 = New DevExpress.DashboardWin.Bars.ChoroplethMapShapeLabelsAttributeBarItem() + Me.GeoPointMapToolsBar1 = New DevExpress.DashboardWin.Bars.GeoPointMapToolsBar() + Me.GeoPointMapClusterizationBarItem1 = New DevExpress.DashboardWin.Bars.GeoPointMapClusterizationBarItem() + Me.MapShapeTitleAttributeBarItem1 = New DevExpress.DashboardWin.Bars.MapShapeTitleAttributeBarItem() + Me.BubbleMapToolsBar1 = New DevExpress.DashboardWin.Bars.BubbleMapToolsBar() + Me.ChangeWeightedLegendTypeBarItem1 = New DevExpress.DashboardWin.Bars.ChangeWeightedLegendTypeBarItem() + Me.WeightedLegendNoneBarItem1 = New DevExpress.DashboardWin.Bars.WeightedLegendNoneBarItem() + Me.WeightedLegendLinearBarItem1 = New DevExpress.DashboardWin.Bars.WeightedLegendLinearBarItem() + Me.WeightedLegendNestedBarItem1 = New DevExpress.DashboardWin.Bars.WeightedLegendNestedBarItem() + Me.GalleryWeightedLegendPositionItem1 = New DevExpress.DashboardWin.Bars.GalleryWeightedLegendPositionItem() + Me.PieMapToolsBar1 = New DevExpress.DashboardWin.Bars.PieMapToolsBar() + Me.PieMapIsWeightedBarItem1 = New DevExpress.DashboardWin.Bars.PieMapIsWeightedBarItem() + Me.FilterElementToolsBar1 = New DevExpress.DashboardWin.Bars.FilterElementToolsBar() + Me.ComboBoxStandardTypeBarItem1 = New DevExpress.DashboardWin.Bars.ComboBoxStandardTypeBarItem() + Me.ComboBoxCheckedTypeBarItem1 = New DevExpress.DashboardWin.Bars.ComboBoxCheckedTypeBarItem() + Me.ListBoxCheckedTypeBarItem1 = New DevExpress.DashboardWin.Bars.ListBoxCheckedTypeBarItem() + Me.ListBoxRadioTypeBarItem1 = New DevExpress.DashboardWin.Bars.ListBoxRadioTypeBarItem() + Me.TreeViewAutoExpandBarItem1 = New DevExpress.DashboardWin.Bars.TreeViewAutoExpandBarItem() + Me.FilterElementShowAllValueBarItem1 = New DevExpress.DashboardWin.Bars.FilterElementShowAllValueBarItem() + Me.GroupToolsBar1 = New DevExpress.DashboardWin.Bars.GroupToolsBar() + Me.GroupMasterFilterBarItem1 = New DevExpress.DashboardWin.Bars.GroupMasterFilterBarItem() + Me.GroupIgnoreMasterFilterBarItem1 = New DevExpress.DashboardWin.Bars.GroupIgnoreMasterFilterBarItem() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.DashboardPopupMenu1 = New DevExpress.DashboardWin.DashboardPopupMenu(Me.components) + Me.DashboardBarController1 = New DevExpress.DashboardWin.Bars.DashboardBarController() + Me.EditExcelDataSourceBarItem1 = New DevExpress.DashboardWin.Bars.EditExcelDataSourceBarItem() + Me.AddQueryBarItem1 = New DevExpress.DashboardWin.Bars.AddQueryBarItem() + Me.EditQueryBarItem1 = New DevExpress.DashboardWin.Bars.EditQueryBarItem() + Me.RenameQueryBarItem1 = New DevExpress.DashboardWin.Bars.RenameQueryBarItem() + Me.EditQueryFilterBarItem1 = New DevExpress.DashboardWin.Bars.EditQueryFilterBarItem() + Me.DeleteQueryBarItem1 = New DevExpress.DashboardWin.Bars.DeleteQueryBarItem() + Me.InsertScatterChartBarItem1 = New DevExpress.DashboardWin.Bars.InsertScatterChartBarItem() + Me.ConvertToPivotBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToPivotBarItem() + Me.ConvertToGridBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToGridBarItem() + Me.ConvertToChartBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToChartBarItem() + Me.ConvertToScatterChartBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToScatterChartBarItem() + Me.ConvertToPieBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToPieBarItem() + Me.ConvertToGaugeBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem() + Me.ConvertToCardBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToCardBarItem() + Me.ConvertToChoroplethMapBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem() + Me.ConvertGeoPointMapBaseBarItem2 = New DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem() + Me.ConvertToGeoPointMapBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem() + Me.ConvertToBubbleMapBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem() + Me.ConvertToPieMapBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem() + Me.ConvertToRangeFilterBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem() + Me.ConvertToFilterElementsBaseBarItem1 = New DevExpress.DashboardWin.Bars.ConvertToFilterElementsBaseBarItem() + Me.ConvertToComboBoxBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem() + Me.ConvertToListBoxBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem() + Me.ConvertToTreeViewBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem() + Me.DashboardAutomaticUpdatesBarItem1 = New DevExpress.DashboardWin.Bars.DashboardAutomaticUpdatesBarItem() + Me.UpdateDataBarItem1 = New DevExpress.DashboardWin.Bars.UpdateDataBarItem() + Me.ScatterChartToolsBar1 = New DevExpress.DashboardWin.Bars.ScatterChartToolsBar() + Me.ChartTargetDimensionsPointsBarItem1 = New DevExpress.DashboardWin.Bars.ChartTargetDimensionsPointsBarItem() + Me.PieTargetDimensionsPointsBarItem1 = New DevExpress.DashboardWin.Bars.PieTargetDimensionsPointsBarItem() + Me.ScatterChartRotateBarItem1 = New DevExpress.DashboardWin.Bars.ScatterChartRotateBarItem() + Me.ScatterChartXAxisSettingsBarItem1 = New DevExpress.DashboardWin.Bars.ScatterChartXAxisSettingsBarItem() + Me.ScatterChartYAxisSettingsBarItem1 = New DevExpress.DashboardWin.Bars.ScatterChartYAxisSettingsBarItem() + Me.ScatterChartPointLabelOptionsBarItem1 = New DevExpress.DashboardWin.Bars.ScatterChartPointLabelOptionsBarItem() + Me.ScatterChartShowLegendBarItem1 = New DevExpress.DashboardWin.Bars.ScatterChartShowLegendBarItem() + Me.GalleryScatterChartLegendPositionItem1 = New DevExpress.DashboardWin.Bars.GalleryScatterChartLegendPositionItem() + Me.PivotShowTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowTotalsBarItem() + Me.PivotShowColumnTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowColumnTotalsBarItem() + Me.PivotShowRowTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowRowTotalsBarItem() + Me.PivotShowGrandTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowGrandTotalsBarItem() + Me.PivotShowColumnGrandTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowColumnGrandTotalsBarItem() + Me.PivotShowRowGrandTotalsBarItem1 = New DevExpress.DashboardWin.Bars.PivotShowRowGrandTotalsBarItem() + Me.AddCalculatedFieldBarItem1 = New DevExpress.DashboardWin.Bars.AddCalculatedFieldBarItem() + Me.ConvertDashboardItemTypeBarItem1 = New DevExpress.DashboardWin.Bars.ConvertDashboardItemTypeBarItem() + Me.ConvertToPivotBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToPivotBarItem() + Me.ConvertToGridBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToGridBarItem() + Me.ConvertToChartBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToChartBarItem() + Me.ConvertToScatterChartBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToScatterChartBarItem() + Me.ConvertToPieBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToPieBarItem() + Me.ConvertToGaugeBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem() + Me.ConvertToCardBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToCardBarItem() + Me.ConvertToChoroplethMapBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem() + Me.ConvertGeoPointMapBaseBarItem3 = New DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem() + Me.ConvertToGeoPointMapBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem() + Me.ConvertToBubbleMapBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem() + Me.ConvertToPieMapBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem() + Me.ConvertToRangeFilterBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem() + Me.ConvertToFilterElementsBaseBarItem2 = New DevExpress.DashboardWin.Bars.ConvertToFilterElementsBaseBarItem() + Me.ConvertToComboBoxBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem() + Me.ConvertToListBoxBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem() + Me.ConvertToTreeViewBarItem3 = New DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem() + Me.DashboardParametersBarItem1 = New DevExpress.DashboardWin.Bars.DashboardParametersBarItem() + CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DashboardPopupMenu1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DashboardBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'BarAndDockingController1 + ' + Me.BarAndDockingController1.PropertiesBar.DefaultGlyphSize = New System.Drawing.Size(16, 16) + Me.BarAndDockingController1.PropertiesBar.DefaultLargeGlyphSize = New System.Drawing.Size(32, 32) + ' + 'DashboardDesigner1 + ' + Me.DashboardDesigner1.AllowEditComponentName = True + Me.DashboardDesigner1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DashboardDesigner1.Location = New System.Drawing.Point(0, 31) + Me.DashboardDesigner1.MenuManager = Me.BarManager1 + Me.DashboardDesigner1.Name = "DashboardDesigner1" + Me.DashboardDesigner1.PopupMenu = Me.DashboardPopupMenu1 + Me.DashboardDesigner1.Size = New System.Drawing.Size(851, 403) + Me.DashboardDesigner1.TabIndex = 0 + ' + 'BarManager1 + ' + Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.HomeBar1, Me.DataSourceBar1, Me.ViewBar1, Me.PivotToolsBar1, Me.GridToolsBar1, Me.ChartToolsBar1, Me.PiesToolsBar1, Me.GaugesToolsBar1, Me.CardsToolsBar1, Me.RangeFilterToolsBar1, Me.MapToolsBar1, Me.ImageToolsBar1, Me.TextBoxToolsBar1, Me.ChoroplethMapToolsBar1, Me.GeoPointMapToolsBar1, Me.BubbleMapToolsBar1, Me.PieMapToolsBar1, Me.FilterElementToolsBar1, Me.GroupToolsBar1, Me.ScatterChartToolsBar1}) + Me.BarManager1.Controller = Me.BarAndDockingController1 + Me.BarManager1.DockControls.Add(Me.barDockControlTop) + Me.BarManager1.DockControls.Add(Me.barDockControlBottom) + Me.BarManager1.DockControls.Add(Me.barDockControlLeft) + Me.BarManager1.DockControls.Add(Me.barDockControlRight) + Me.BarManager1.Form = Me + Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.FileNewBarItem1, Me.FileOpenBarItem1, Me.FileSaveBarItem1, Me.FileSaveAsBarItem1, Me.UndoBarItem1, Me.RedoBarItem1, Me.NewDataSourceBarItem1, Me.DeleteDataSourceBarItem1, Me.EditDataSourceFilterBarItem1, Me.ClearDataSourceFilterBarItem1, Me.InsertPivotBarItem1, Me.InsertGridBarItem1, Me.InsertChartBarItem1, Me.InsertPiesBarItem1, Me.InsertGaugesBarItem1, Me.InsertCardsBarItem1, Me.InsertChoroplethMapBarItem1, Me.InsertRangeFilterBarItem1, Me.InsertImageBarItem1, Me.InsertTextBoxBarItem1, Me.DuplicateItemBarItem1, Me.DeleteItemBarItem1, Me.DashboardTitleBarItem1, Me.SetCurrencyCultureBarItem1, Me.DashboardSkinsBarItem1, Me.EditFilterBarItem1, Me.ClearFilterBarItem1, Me.MasterFilterBarItem1, Me.MultipleValuesMasterFilterBarItem1, Me.DrillDownBarItem1, Me.IgnoreMasterFiltersBarItem1, Me.CrossDataSourceFilteringBarItem1, Me.ChartTargetDimensionsArgumentsBarItem1, Me.ChartTargetDimensionsSeriesBarItem1, Me.PieTargetDimensionsArgumentsBarItem1, Me.PieTargetDimensionsSeriesBarItem1, Me.ShowItemCaptionBarItem1, Me.EditItemNamesBarItem1, Me.ContentAutoArrangeBarItem1, Me.ContentArrangeInColumnsBarItem1, Me.ContentArrangeInRowsBarItem1, Me.ContentArrangementCountBarItem1, Me.GridHorizontalLinesBarItem1, Me.GridVerticalLinesBarItem1, Me.GridMergeCellsBarItem1, Me.GridBandedRowsBarItem1, Me.GridColumnHeadersBarItem1, Me.ChartRotateBarItem1, Me.ChartXAxisSettingsBarItem1, Me.ChartYAxisSettingsBarItem1, Me.ChartShowLegendBarItem1, Me.GalleryChartLegendPositionItem1, Me.GalleryChartSeriesTypeItem1, Me.PieLabelsDataLabelsBarItem1, Me.PieLabelsDataLabelsNoneBarItem1, Me.PieLabelsDataLabelArgumentBarItem1, Me.PieLabelsDataLabelsValueBarItem1, Me.PieLabelsDataLabelsArgumentAndValueBarItem1, Me.PieLabelsDataLabelsPercentBarItem1, Me.PieLabelsDataLabelsValueAndPercentBarItem1, Me.PieLabelsDataLabelsArgumentAndPercentBarItem1, Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1, Me.PieTooltipsBarItem1, Me.PieLabelsTooltipsNoneBarItem1, Me.PieLabelsTooltipsArgumentBarItem1, Me.PieLabelsTooltipsValueBarItem1, Me.PieLabelsTooltipsArgumentAndValueBarItem1, Me.PieLabelsTooltipsPercentBarItem1, Me.PieLabelsTooltipsValueAndPercentBarItem1, Me.PieLabelsTooltipsArgumentAndPercentBarItem1, Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1, Me.PieStylePieBarItem1, Me.PieStyleDonutBarItem1, Me.PieShowCaptionsBarItem1, Me.GaugeStyleFullCircularBarItem1, Me.GaugeStyleHalfCircularBarItem1, Me.GaugeStyleLeftQuarterCircularBarItem1, Me.GaugeStyleRightQuarterCircularBarItem1, Me.GaugeStyleThreeForthCircularBarItem1, Me.GaugeStyleLinearHorizontalBarItem1, Me.GaugeStyleLinearVerticalBarItem1, Me.GaugeShowCaptionsBarItem1, Me.ImageLoadBarItem1, Me.ImageImportBarItem1, Me.ImageSizeModeClipBarItem1, Me.ImageSizeModeStretchBarItem1, Me.ImageSizeModeSqueezeBarItem1, Me.ImageSizeModeZoomBarItem1, Me.ImageAlignmentTopLeftBarItem1, Me.ImageAlignmentCenterLeftBarItem1, Me.ImageAlignmentBottomLeftBarItem1, Me.ImageAlignmentTopCenterBarItem1, Me.ImageAlignmentCenterCenterBarItem1, Me.ImageAlignmentBottomCenterBarItem1, Me.ImageAlignmentTopRightBarItem1, Me.ImageAlignmentCenterRightBarItem1, Me.ImageAlignmentBottomRightBarItem1, Me.TextBoxEditTextBarItem1, Me.RangeFilterLineSeriesTypeBarItem1, Me.RangeFilterStackedLineSeriesTypeBarItem1, Me.RangeFilterFullStackedLineSeriesTypeBarItem1, Me.RangeFilterAreaSeriesTypeBarItem1, Me.RangeFilterStackedAreaSeriesTypeBarItem1, Me.RangeFilterFullStackedAreaSeriesTypeBarItem1, Me.PivotInitialStateBarItem1, Me.PivotAutoExpandColumnBarItem1, Me.PivotAutoExpandRowBarItem1, Me.MapShowLegendBarItem1, Me.GalleryMapLegendPositionItem1, Me.MapLoadBarItem1, Me.MapImportBarItem1, Me.MapDefaultShapefileBarItem1, Me.MapWorldCountriesBarItem1, Me.MapEuropeBarItem1, Me.MapAsiaBarItem1, Me.MapNorthAmericaBarItem1, Me.MapSouthAmericaBarItem1, Me.MapAfricaBarItem1, Me.MapUSABarItem1, Me.MapCanadaBarItem1, Me.EditSqlConnectionBarItem1, Me.EditOlapConnectionBarItem1, Me.EditObjectDataSourceBarItem1, Me.EditEFDataSourceBarItem1, Me.RenameDataSourceBarItem1, Me.ServerModeBarItem1, Me.InsertGeoPointMapBarSubItem1, Me.InsertGeoPointMapBarItem1, Me.InsertBubbleMapBarItem1, Me.InsertPieMapBarItem1, Me.InsertFilterElementSubItem1, Me.InsertComboBoxBarItem1, Me.InsertListBoxBarItem1, Me.InsertTreeViewBarItem1, Me.InsertGroupBarItem1, Me.ConvertToPivotBarItem1, Me.ConvertToGridBarItem1, Me.ConvertToChartBarItem1, Me.ConvertToPieBarItem1, Me.ConvertToGaugeBarItem1, Me.ConvertToCardBarItem1, Me.ConvertToChoroplethMapBarItem1, Me.ConvertToGeoPointMapBarItem1, Me.ConvertToBubbleMapBarItem1, Me.ConvertToPieMapBarItem1, Me.ConvertGeoPointMapBaseBarItem1, Me.ConvertToRangeFilterBarItem1, Me.ConvertToComboBoxBarItem1, Me.ConvertToListBoxBarItem1, Me.ConvertToTreeViewBarItem1, Me.RemoveDataItemsBarItem1, Me.TransposeItemBarItem1, Me.EditRulesBarItem1, Me.DeleteGroupBarItem1, Me.DashboardColorSchemeBarItem1, Me.GroupMasterFilterBarItem1, Me.GroupIgnoreMasterFilterBarItem1, Me.GeoPointMapClusterizationBarItem1, Me.GridWordWrapBarItem1, Me.GridAutoFitToContentsColumnWidthModeBarItem1, Me.GridAutoFitToGridColumnWidthModeBarItem1, Me.ManualGridColumnWidthModeBarItem1, Me.ComboBoxStandardTypeBarItem1, Me.ComboBoxCheckedTypeBarItem1, Me.ListBoxCheckedTypeBarItem1, Me.ListBoxRadioTypeBarItem1, Me.TreeViewAutoExpandBarItem1, Me.FilterElementShowAllValueBarItem1, Me.MapLockNavigationBarItem1, Me.MapFullExtentBarItem1, Me.ChoroplethMapShapeLabelsAttributeBarItem1, Me.MapShapeTitleAttributeBarItem1, Me.ChangeWeightedLegendTypeBarItem1, Me.WeightedLegendNoneBarItem1, Me.WeightedLegendLinearBarItem1, Me.WeightedLegendNestedBarItem1, Me.GalleryWeightedLegendPositionItem1, Me.PieMapIsWeightedBarItem1, Me.UseGlobalColorsBarItem1, Me.UseLocalColorsBarItem1, Me.EditActualColorsBarItem1, Me.EditExcelDataSourceBarItem1, Me.AddQueryBarItem1, Me.EditQueryBarItem1, Me.RenameQueryBarItem1, Me.EditQueryFilterBarItem1, Me.DeleteQueryBarItem1, Me.InsertScatterChartBarItem1, Me.ConvertToScatterChartBarItem1, Me.ConvertToFilterElementsBaseBarItem1, Me.DashboardAutomaticUpdatesBarItem1, Me.UpdateDataBarItem1, Me.ChartTargetDimensionsPointsBarItem1, Me.PieTargetDimensionsPointsBarItem1, Me.ScatterChartRotateBarItem1, Me.ScatterChartXAxisSettingsBarItem1, Me.ScatterChartYAxisSettingsBarItem1, Me.ScatterChartPointLabelOptionsBarItem1, Me.ScatterChartShowLegendBarItem1, Me.GalleryScatterChartLegendPositionItem1, Me.PivotShowTotalsBarItem1, Me.PivotShowColumnTotalsBarItem1, Me.PivotShowRowTotalsBarItem1, Me.PivotShowGrandTotalsBarItem1, Me.PivotShowColumnGrandTotalsBarItem1, Me.PivotShowRowGrandTotalsBarItem1, Me.AddCalculatedFieldBarItem1, Me.ConvertDashboardItemTypeBarItem1, Me.DashboardParametersBarItem1}) + Me.BarManager1.MaxItemId = 220 + Me.BarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1}) + ' + 'HomeBar1 + ' + Me.HomeBar1.Control = Me.DashboardDesigner1 + Me.HomeBar1.DockCol = 0 + Me.HomeBar1.DockRow = 0 + Me.HomeBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.HomeBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.FileNewBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FileOpenBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FileSaveBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FileSaveAsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UndoBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RedoBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertPivotBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertGridBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertChartBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertPiesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertGaugesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertCardsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertChoroplethMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertRangeFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertImageBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertTextBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.DuplicateItemBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.DeleteItemBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.DashboardTitleBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetCurrencyCultureBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertGeoPointMapBarSubItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertFilterElementSubItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertGroupBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.RemoveDataItemsBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.TransposeItemBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditRulesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.DeleteGroupBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.DashboardColorSchemeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertScatterChartBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DashboardAutomaticUpdatesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.UpdateDataBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ConvertDashboardItemTypeBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.DashboardParametersBarItem1)}) + ' + 'FileNewBarItem1 + ' + Me.FileNewBarItem1.Id = 0 + Me.FileNewBarItem1.Name = "FileNewBarItem1" + ' + 'FileOpenBarItem1 + ' + Me.FileOpenBarItem1.Id = 1 + Me.FileOpenBarItem1.Name = "FileOpenBarItem1" + ' + 'FileSaveBarItem1 + ' + Me.FileSaveBarItem1.Id = 2 + Me.FileSaveBarItem1.Name = "FileSaveBarItem1" + ' + 'FileSaveAsBarItem1 + ' + Me.FileSaveAsBarItem1.Id = 3 + Me.FileSaveAsBarItem1.Name = "FileSaveAsBarItem1" + ' + 'UndoBarItem1 + ' + Me.UndoBarItem1.Id = 4 + Me.UndoBarItem1.Name = "UndoBarItem1" + ' + 'RedoBarItem1 + ' + Me.RedoBarItem1.Id = 5 + Me.RedoBarItem1.Name = "RedoBarItem1" + ' + 'InsertPivotBarItem1 + ' + Me.InsertPivotBarItem1.Id = 6 + Me.InsertPivotBarItem1.Name = "InsertPivotBarItem1" + ' + 'InsertGridBarItem1 + ' + Me.InsertGridBarItem1.Id = 7 + Me.InsertGridBarItem1.Name = "InsertGridBarItem1" + ' + 'InsertChartBarItem1 + ' + Me.InsertChartBarItem1.Id = 8 + Me.InsertChartBarItem1.Name = "InsertChartBarItem1" + ' + 'InsertPiesBarItem1 + ' + Me.InsertPiesBarItem1.Id = 9 + Me.InsertPiesBarItem1.Name = "InsertPiesBarItem1" + ' + 'InsertGaugesBarItem1 + ' + Me.InsertGaugesBarItem1.Id = 10 + Me.InsertGaugesBarItem1.Name = "InsertGaugesBarItem1" + ' + 'InsertCardsBarItem1 + ' + Me.InsertCardsBarItem1.Id = 11 + Me.InsertCardsBarItem1.Name = "InsertCardsBarItem1" + ' + 'InsertChoroplethMapBarItem1 + ' + Me.InsertChoroplethMapBarItem1.Id = 12 + Me.InsertChoroplethMapBarItem1.Name = "InsertChoroplethMapBarItem1" + ' + 'InsertRangeFilterBarItem1 + ' + Me.InsertRangeFilterBarItem1.Id = 14 + Me.InsertRangeFilterBarItem1.Name = "InsertRangeFilterBarItem1" + ' + 'InsertImageBarItem1 + ' + Me.InsertImageBarItem1.Id = 15 + Me.InsertImageBarItem1.Name = "InsertImageBarItem1" + ' + 'InsertTextBoxBarItem1 + ' + Me.InsertTextBoxBarItem1.Id = 16 + Me.InsertTextBoxBarItem1.Name = "InsertTextBoxBarItem1" + ' + 'DuplicateItemBarItem1 + ' + Me.DuplicateItemBarItem1.Id = 17 + Me.DuplicateItemBarItem1.Name = "DuplicateItemBarItem1" + ' + 'DeleteItemBarItem1 + ' + Me.DeleteItemBarItem1.Id = 18 + Me.DeleteItemBarItem1.Name = "DeleteItemBarItem1" + ' + 'DashboardTitleBarItem1 + ' + Me.DashboardTitleBarItem1.Id = 19 + Me.DashboardTitleBarItem1.Name = "DashboardTitleBarItem1" + ' + 'SetCurrencyCultureBarItem1 + ' + Me.SetCurrencyCultureBarItem1.Id = 20 + Me.SetCurrencyCultureBarItem1.Name = "SetCurrencyCultureBarItem1" + ' + 'InsertGeoPointMapBarSubItem1 + ' + Me.InsertGeoPointMapBarSubItem1.Id = 124 + Me.InsertGeoPointMapBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.InsertGeoPointMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertBubbleMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertPieMapBarItem1)}) + Me.InsertGeoPointMapBarSubItem1.Name = "InsertGeoPointMapBarSubItem1" + Me.InsertGeoPointMapBarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'InsertGeoPointMapBarItem1 + ' + Me.InsertGeoPointMapBarItem1.Id = 125 + Me.InsertGeoPointMapBarItem1.Name = "InsertGeoPointMapBarItem1" + ' + 'InsertBubbleMapBarItem1 + ' + Me.InsertBubbleMapBarItem1.Id = 126 + Me.InsertBubbleMapBarItem1.Name = "InsertBubbleMapBarItem1" + ' + 'InsertPieMapBarItem1 + ' + Me.InsertPieMapBarItem1.Id = 127 + Me.InsertPieMapBarItem1.Name = "InsertPieMapBarItem1" + ' + 'InsertFilterElementSubItem1 + ' + Me.InsertFilterElementSubItem1.Id = 128 + Me.InsertFilterElementSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.InsertComboBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertListBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.InsertTreeViewBarItem1)}) + Me.InsertFilterElementSubItem1.Name = "InsertFilterElementSubItem1" + Me.InsertFilterElementSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'InsertComboBoxBarItem1 + ' + Me.InsertComboBoxBarItem1.Id = 129 + Me.InsertComboBoxBarItem1.Name = "InsertComboBoxBarItem1" + ' + 'InsertListBoxBarItem1 + ' + Me.InsertListBoxBarItem1.Id = 130 + Me.InsertListBoxBarItem1.Name = "InsertListBoxBarItem1" + ' + 'InsertTreeViewBarItem1 + ' + Me.InsertTreeViewBarItem1.Id = 131 + Me.InsertTreeViewBarItem1.Name = "InsertTreeViewBarItem1" + ' + 'InsertGroupBarItem1 + ' + Me.InsertGroupBarItem1.Id = 132 + Me.InsertGroupBarItem1.Name = "InsertGroupBarItem1" + ' + 'ConvertToPivotBarItem1 + ' + Me.ConvertToPivotBarItem1.Id = 134 + Me.ConvertToPivotBarItem1.Name = "ConvertToPivotBarItem1" + ' + 'ConvertToGridBarItem1 + ' + Me.ConvertToGridBarItem1.Id = 135 + Me.ConvertToGridBarItem1.Name = "ConvertToGridBarItem1" + ' + 'ConvertToChartBarItem1 + ' + Me.ConvertToChartBarItem1.Id = 136 + Me.ConvertToChartBarItem1.Name = "ConvertToChartBarItem1" + ' + 'ConvertToPieBarItem1 + ' + Me.ConvertToPieBarItem1.Id = 137 + Me.ConvertToPieBarItem1.Name = "ConvertToPieBarItem1" + ' + 'ConvertToGaugeBarItem1 + ' + Me.ConvertToGaugeBarItem1.Id = 138 + Me.ConvertToGaugeBarItem1.Name = "ConvertToGaugeBarItem1" + ' + 'ConvertToCardBarItem1 + ' + Me.ConvertToCardBarItem1.Id = 139 + Me.ConvertToCardBarItem1.Name = "ConvertToCardBarItem1" + ' + 'ConvertToChoroplethMapBarItem1 + ' + Me.ConvertToChoroplethMapBarItem1.Id = 140 + Me.ConvertToChoroplethMapBarItem1.Name = "ConvertToChoroplethMapBarItem1" + ' + 'ConvertGeoPointMapBaseBarItem1 + ' + Me.ConvertGeoPointMapBaseBarItem1.Id = 141 + Me.ConvertGeoPointMapBaseBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToGeoPointMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToBubbleMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToPieMapBarItem1)}) + Me.ConvertGeoPointMapBaseBarItem1.Name = "ConvertGeoPointMapBaseBarItem1" + ' + 'ConvertToGeoPointMapBarItem1 + ' + Me.ConvertToGeoPointMapBarItem1.Id = 142 + Me.ConvertToGeoPointMapBarItem1.Name = "ConvertToGeoPointMapBarItem1" + ' + 'ConvertToBubbleMapBarItem1 + ' + Me.ConvertToBubbleMapBarItem1.Id = 143 + Me.ConvertToBubbleMapBarItem1.Name = "ConvertToBubbleMapBarItem1" + ' + 'ConvertToPieMapBarItem1 + ' + Me.ConvertToPieMapBarItem1.Id = 144 + Me.ConvertToPieMapBarItem1.Name = "ConvertToPieMapBarItem1" + ' + 'ConvertToRangeFilterBarItem1 + ' + Me.ConvertToRangeFilterBarItem1.Id = 145 + Me.ConvertToRangeFilterBarItem1.Name = "ConvertToRangeFilterBarItem1" + ' + 'ConvertToComboBoxBarItem1 + ' + Me.ConvertToComboBoxBarItem1.Id = 146 + Me.ConvertToComboBoxBarItem1.Name = "ConvertToComboBoxBarItem1" + ' + 'ConvertToListBoxBarItem1 + ' + Me.ConvertToListBoxBarItem1.Id = 147 + Me.ConvertToListBoxBarItem1.Name = "ConvertToListBoxBarItem1" + ' + 'ConvertToTreeViewBarItem1 + ' + Me.ConvertToTreeViewBarItem1.Id = 148 + Me.ConvertToTreeViewBarItem1.Name = "ConvertToTreeViewBarItem1" + ' + 'RemoveDataItemsBarItem1 + ' + Me.RemoveDataItemsBarItem1.Id = 149 + Me.RemoveDataItemsBarItem1.Name = "RemoveDataItemsBarItem1" + ' + 'TransposeItemBarItem1 + ' + Me.TransposeItemBarItem1.Id = 150 + Me.TransposeItemBarItem1.Name = "TransposeItemBarItem1" + ' + 'EditRulesBarItem1 + ' + Me.EditRulesBarItem1.Id = 151 + Me.EditRulesBarItem1.Name = "EditRulesBarItem1" + ' + 'DeleteGroupBarItem1 + ' + Me.DeleteGroupBarItem1.Id = 152 + Me.DeleteGroupBarItem1.Name = "DeleteGroupBarItem1" + ' + 'DashboardColorSchemeBarItem1 + ' + Me.DashboardColorSchemeBarItem1.Id = 153 + Me.DashboardColorSchemeBarItem1.Name = "DashboardColorSchemeBarItem1" + ' + 'DataSourceBar1 + ' + Me.DataSourceBar1.Control = Me.DashboardDesigner1 + Me.DataSourceBar1.DockCol = 1 + Me.DataSourceBar1.DockRow = 0 + Me.DataSourceBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.DataSourceBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.NewDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditDataSourceFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ClearDataSourceFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditSqlConnectionBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditOlapConnectionBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditObjectDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditEFDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RenameDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ServerModeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditExcelDataSourceBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.AddQueryBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditQueryBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RenameQueryBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditQueryFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteQueryBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.AddCalculatedFieldBarItem1)}) + ' + 'NewDataSourceBarItem1 + ' + Me.NewDataSourceBarItem1.Id = 21 + Me.NewDataSourceBarItem1.Name = "NewDataSourceBarItem1" + ' + 'DeleteDataSourceBarItem1 + ' + Me.DeleteDataSourceBarItem1.Id = 23 + Me.DeleteDataSourceBarItem1.Name = "DeleteDataSourceBarItem1" + ' + 'EditDataSourceFilterBarItem1 + ' + Me.EditDataSourceFilterBarItem1.Id = 26 + Me.EditDataSourceFilterBarItem1.Name = "EditDataSourceFilterBarItem1" + ' + 'ClearDataSourceFilterBarItem1 + ' + Me.ClearDataSourceFilterBarItem1.Id = 27 + Me.ClearDataSourceFilterBarItem1.Name = "ClearDataSourceFilterBarItem1" + ' + 'EditSqlConnectionBarItem1 + ' + Me.EditSqlConnectionBarItem1.Id = 155 + Me.EditSqlConnectionBarItem1.Name = "EditSqlConnectionBarItem1" + ' + 'EditOlapConnectionBarItem1 + ' + Me.EditOlapConnectionBarItem1.Id = 156 + Me.EditOlapConnectionBarItem1.Name = "EditOlapConnectionBarItem1" + ' + 'EditObjectDataSourceBarItem1 + ' + Me.EditObjectDataSourceBarItem1.Id = 157 + Me.EditObjectDataSourceBarItem1.Name = "EditObjectDataSourceBarItem1" + ' + 'EditEFDataSourceBarItem1 + ' + Me.EditEFDataSourceBarItem1.Id = 158 + Me.EditEFDataSourceBarItem1.Name = "EditEFDataSourceBarItem1" + ' + 'RenameDataSourceBarItem1 + ' + Me.RenameDataSourceBarItem1.Id = 159 + Me.RenameDataSourceBarItem1.Name = "RenameDataSourceBarItem1" + ' + 'ServerModeBarItem1 + ' + Me.ServerModeBarItem1.Id = 160 + Me.ServerModeBarItem1.Name = "ServerModeBarItem1" + ' + 'ViewBar1 + ' + Me.ViewBar1.Control = Me.DashboardDesigner1 + Me.ViewBar1.DockCol = 2 + Me.ViewBar1.DockRow = 0 + Me.ViewBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ViewBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.DashboardSkinsBarItem1)}) + ' + 'DashboardSkinsBarItem1 + ' + ' + ' + ' + Me.DashboardSkinsBarItem1.Gallery.AllowHoverImages = True + Me.DashboardSkinsBarItem1.Gallery.ColumnCount = 4 + Me.DashboardSkinsBarItem1.Gallery.FixedHoverImageSize = False + GalleryItemGroup1.Caption = "Standard Skins" + GalleryItem1.Caption = "DevExpress Style" + GalleryItem1.Checked = True + GalleryItem1.Hint = "DevExpress Style" + GalleryItem1.HoverImage = CType(resources.GetObject("GalleryItem1.HoverImage"), System.Drawing.Image) + GalleryItem1.Image = CType(resources.GetObject("GalleryItem1.Image"), System.Drawing.Image) + GalleryItem1.Tag = "DevExpress Style" + GalleryItem2.Caption = "DevExpress Dark Style" + GalleryItem2.Hint = "DevExpress Dark Style" + GalleryItem2.HoverImage = CType(resources.GetObject("GalleryItem2.HoverImage"), System.Drawing.Image) + GalleryItem2.Image = CType(resources.GetObject("GalleryItem2.Image"), System.Drawing.Image) + GalleryItem2.Tag = "DevExpress Dark Style" + GalleryItem3.Caption = "Office 2016 Colorful" + GalleryItem3.Hint = "Office 2016 Colorful" + GalleryItem3.HoverImage = CType(resources.GetObject("GalleryItem3.HoverImage"), System.Drawing.Image) + GalleryItem3.Image = CType(resources.GetObject("GalleryItem3.Image"), System.Drawing.Image) + GalleryItem3.Tag = "Office 2016 Colorful" + GalleryItem4.Caption = "Office 2016 Dark" + GalleryItem4.Hint = "Office 2016 Dark" + GalleryItem4.HoverImage = CType(resources.GetObject("GalleryItem4.HoverImage"), System.Drawing.Image) + GalleryItem4.Image = CType(resources.GetObject("GalleryItem4.Image"), System.Drawing.Image) + GalleryItem4.Tag = "Office 2016 Dark" + GalleryItem5.Caption = "Office 2013 White" + GalleryItem5.Hint = "Office 2013 White" + GalleryItem5.HoverImage = CType(resources.GetObject("GalleryItem5.HoverImage"), System.Drawing.Image) + GalleryItem5.Image = CType(resources.GetObject("GalleryItem5.Image"), System.Drawing.Image) + GalleryItem5.Tag = "Office 2013" + GalleryItem6.Caption = "Office 2013 Dark Gray" + GalleryItem6.Hint = "Office 2013 Dark Gray" + GalleryItem6.HoverImage = CType(resources.GetObject("GalleryItem6.HoverImage"), System.Drawing.Image) + GalleryItem6.Image = CType(resources.GetObject("GalleryItem6.Image"), System.Drawing.Image) + GalleryItem6.Tag = "Office 2013 Dark Gray" + GalleryItem7.Caption = "Office 2013 Light Gray" + GalleryItem7.Hint = "Office 2013 Light Gray" + GalleryItem7.HoverImage = CType(resources.GetObject("GalleryItem7.HoverImage"), System.Drawing.Image) + GalleryItem7.Image = CType(resources.GetObject("GalleryItem7.Image"), System.Drawing.Image) + GalleryItem7.Tag = "Office 2013 Light Gray" + GalleryItem8.Caption = "Office 2010 Blue" + GalleryItem8.Hint = "Office 2010 Blue" + GalleryItem8.HoverImage = CType(resources.GetObject("GalleryItem8.HoverImage"), System.Drawing.Image) + GalleryItem8.Image = CType(resources.GetObject("GalleryItem8.Image"), System.Drawing.Image) + GalleryItem8.Tag = "Office 2010 Blue" + GalleryItem9.Caption = "Office 2010 Black" + GalleryItem9.Hint = "Office 2010 Black" + GalleryItem9.HoverImage = CType(resources.GetObject("GalleryItem9.HoverImage"), System.Drawing.Image) + GalleryItem9.Image = CType(resources.GetObject("GalleryItem9.Image"), System.Drawing.Image) + GalleryItem9.Tag = "Office 2010 Black" + GalleryItem10.Caption = "Office 2010 Silver" + GalleryItem10.Hint = "Office 2010 Silver" + GalleryItem10.HoverImage = CType(resources.GetObject("GalleryItem10.HoverImage"), System.Drawing.Image) + GalleryItem10.Image = CType(resources.GetObject("GalleryItem10.Image"), System.Drawing.Image) + GalleryItem10.Tag = "Office 2010 Silver" + GalleryItem11.Caption = "Visual Studio 2013 Blue" + GalleryItem11.Hint = "Visual Studio 2013 Blue" + GalleryItem11.HoverImage = CType(resources.GetObject("GalleryItem11.HoverImage"), System.Drawing.Image) + GalleryItem11.Image = CType(resources.GetObject("GalleryItem11.Image"), System.Drawing.Image) + GalleryItem11.Tag = "Visual Studio 2013 Blue" + GalleryItem12.Caption = "Visual Studio 2013 Dark" + GalleryItem12.Hint = "Visual Studio 2013 Dark" + GalleryItem12.HoverImage = CType(resources.GetObject("GalleryItem12.HoverImage"), System.Drawing.Image) + GalleryItem12.Image = CType(resources.GetObject("GalleryItem12.Image"), System.Drawing.Image) + GalleryItem12.Tag = "Visual Studio 2013 Dark" + GalleryItem13.Caption = "Visual Studio 2013 Light" + GalleryItem13.Hint = "Visual Studio 2013 Light" + GalleryItem13.HoverImage = CType(resources.GetObject("GalleryItem13.HoverImage"), System.Drawing.Image) + GalleryItem13.Image = CType(resources.GetObject("GalleryItem13.Image"), System.Drawing.Image) + GalleryItem13.Tag = "Visual Studio 2013 Light" + GalleryItem14.Caption = "Seven Classic" + GalleryItem14.Hint = "Seven Classic" + GalleryItem14.HoverImage = CType(resources.GetObject("GalleryItem14.HoverImage"), System.Drawing.Image) + GalleryItem14.Image = CType(resources.GetObject("GalleryItem14.Image"), System.Drawing.Image) + GalleryItem14.Tag = "Seven Classic" + GalleryItem15.Caption = "Visual Studio 2010" + GalleryItem15.Hint = "Visual Studio 2010" + GalleryItem15.HoverImage = CType(resources.GetObject("GalleryItem15.HoverImage"), System.Drawing.Image) + GalleryItem15.Image = CType(resources.GetObject("GalleryItem15.Image"), System.Drawing.Image) + GalleryItem15.Tag = "VS2010" + GalleryItemGroup1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {GalleryItem1, GalleryItem2, GalleryItem3, GalleryItem4, GalleryItem5, GalleryItem6, GalleryItem7, GalleryItem8, GalleryItem9, GalleryItem10, GalleryItem11, GalleryItem12, GalleryItem13, GalleryItem14, GalleryItem15}) + GalleryItemGroup2.Caption = "Bonus Skins" + GalleryItemGroup2.Visible = False + GalleryItemGroup3.Caption = "Theme Skins" + GalleryItemGroup3.Visible = False + GalleryItemGroup4.Caption = "Custom Skins" + GalleryItemGroup4.Visible = False + Me.DashboardSkinsBarItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup1, GalleryItemGroup2, GalleryItemGroup3, GalleryItemGroup4}) + Me.DashboardSkinsBarItem1.Gallery.ImageSize = New System.Drawing.Size(32, 16) + Me.DashboardSkinsBarItem1.Gallery.ItemCheckMode = DevExpress.XtraBars.Ribbon.Gallery.ItemCheckMode.SingleRadio + Me.DashboardSkinsBarItem1.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.Squeeze + Me.DashboardSkinsBarItem1.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Top + Me.DashboardSkinsBarItem1.Glyph = CType(resources.GetObject("DashboardSkinsBarItem1.Glyph"), System.Drawing.Image) + Me.DashboardSkinsBarItem1.Id = 28 + Me.DashboardSkinsBarItem1.Name = "DashboardSkinsBarItem1" + ' + 'PivotToolsBar1 + ' + Me.PivotToolsBar1.Control = Me.DashboardDesigner1 + Me.PivotToolsBar1.DockCol = 19 + Me.PivotToolsBar1.DockRow = 0 + Me.PivotToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.PivotToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotInitialStateBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowTotalsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowGrandTotalsBarItem1)}) + Me.PivotToolsBar1.Visible = False + ' + 'EditFilterBarItem1 + ' + Me.EditFilterBarItem1.Id = 29 + Me.EditFilterBarItem1.Name = "EditFilterBarItem1" + ' + 'ClearFilterBarItem1 + ' + Me.ClearFilterBarItem1.Id = 30 + Me.ClearFilterBarItem1.Name = "ClearFilterBarItem1" + ' + 'IgnoreMasterFiltersBarItem1 + ' + Me.IgnoreMasterFiltersBarItem1.Id = 31 + Me.IgnoreMasterFiltersBarItem1.Name = "IgnoreMasterFiltersBarItem1" + ' + 'ShowItemCaptionBarItem1 + ' + Me.ShowItemCaptionBarItem1.Id = 32 + Me.ShowItemCaptionBarItem1.Name = "ShowItemCaptionBarItem1" + ' + 'EditItemNamesBarItem1 + ' + Me.EditItemNamesBarItem1.Id = 33 + Me.EditItemNamesBarItem1.Name = "EditItemNamesBarItem1" + ' + 'PivotInitialStateBarItem1 + ' + Me.PivotInitialStateBarItem1.Id = 34 + Me.PivotInitialStateBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PivotAutoExpandColumnBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotAutoExpandRowBarItem1)}) + Me.PivotInitialStateBarItem1.Name = "PivotInitialStateBarItem1" + Me.PivotInitialStateBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PivotAutoExpandColumnBarItem1 + ' + Me.PivotAutoExpandColumnBarItem1.Id = 35 + Me.PivotAutoExpandColumnBarItem1.Name = "PivotAutoExpandColumnBarItem1" + ' + 'PivotAutoExpandRowBarItem1 + ' + Me.PivotAutoExpandRowBarItem1.Id = 36 + Me.PivotAutoExpandRowBarItem1.Name = "PivotAutoExpandRowBarItem1" + ' + 'GridToolsBar1 + ' + Me.GridToolsBar1.Control = Me.DashboardDesigner1 + Me.GridToolsBar1.DockCol = 18 + Me.GridToolsBar1.DockRow = 0 + Me.GridToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.GridToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.GridHorizontalLinesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridVerticalLinesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridMergeCellsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridBandedRowsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridColumnHeadersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridWordWrapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridAutoFitToContentsColumnWidthModeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GridAutoFitToGridColumnWidthModeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ManualGridColumnWidthModeBarItem1)}) + Me.GridToolsBar1.Visible = False + ' + 'MasterFilterBarItem1 + ' + Me.MasterFilterBarItem1.Id = 37 + Me.MasterFilterBarItem1.Name = "MasterFilterBarItem1" + ' + 'MultipleValuesMasterFilterBarItem1 + ' + Me.MultipleValuesMasterFilterBarItem1.Id = 38 + Me.MultipleValuesMasterFilterBarItem1.Name = "MultipleValuesMasterFilterBarItem1" + ' + 'DrillDownBarItem1 + ' + Me.DrillDownBarItem1.Id = 39 + Me.DrillDownBarItem1.Name = "DrillDownBarItem1" + ' + 'CrossDataSourceFilteringBarItem1 + ' + Me.CrossDataSourceFilteringBarItem1.Id = 40 + Me.CrossDataSourceFilteringBarItem1.Name = "CrossDataSourceFilteringBarItem1" + ' + 'GridHorizontalLinesBarItem1 + ' + Me.GridHorizontalLinesBarItem1.Id = 41 + Me.GridHorizontalLinesBarItem1.Name = "GridHorizontalLinesBarItem1" + ' + 'GridVerticalLinesBarItem1 + ' + Me.GridVerticalLinesBarItem1.Id = 42 + Me.GridVerticalLinesBarItem1.Name = "GridVerticalLinesBarItem1" + ' + 'GridMergeCellsBarItem1 + ' + Me.GridMergeCellsBarItem1.Id = 43 + Me.GridMergeCellsBarItem1.Name = "GridMergeCellsBarItem1" + ' + 'GridBandedRowsBarItem1 + ' + Me.GridBandedRowsBarItem1.Id = 44 + Me.GridBandedRowsBarItem1.Name = "GridBandedRowsBarItem1" + ' + 'GridColumnHeadersBarItem1 + ' + Me.GridColumnHeadersBarItem1.Id = 45 + Me.GridColumnHeadersBarItem1.Name = "GridColumnHeadersBarItem1" + ' + 'GridWordWrapBarItem1 + ' + Me.GridWordWrapBarItem1.Id = 163 + Me.GridWordWrapBarItem1.Name = "GridWordWrapBarItem1" + ' + 'GridAutoFitToContentsColumnWidthModeBarItem1 + ' + Me.GridAutoFitToContentsColumnWidthModeBarItem1.Id = 164 + Me.GridAutoFitToContentsColumnWidthModeBarItem1.Name = "GridAutoFitToContentsColumnWidthModeBarItem1" + ' + 'GridAutoFitToGridColumnWidthModeBarItem1 + ' + Me.GridAutoFitToGridColumnWidthModeBarItem1.Id = 165 + Me.GridAutoFitToGridColumnWidthModeBarItem1.Name = "GridAutoFitToGridColumnWidthModeBarItem1" + ' + 'ManualGridColumnWidthModeBarItem1 + ' + Me.ManualGridColumnWidthModeBarItem1.Id = 166 + Me.ManualGridColumnWidthModeBarItem1.Name = "ManualGridColumnWidthModeBarItem1" + ' + 'ChartToolsBar1 + ' + Me.ChartToolsBar1.Control = Me.DashboardDesigner1 + Me.ChartToolsBar1.DockCol = 17 + Me.ChartToolsBar1.DockRow = 0 + Me.ChartToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ChartToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartTargetDimensionsArgumentsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartTargetDimensionsSeriesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartRotateBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartXAxisSettingsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartYAxisSettingsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryChartLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryChartSeriesTypeItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseGlobalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseLocalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditActualColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChartTargetDimensionsPointsBarItem1)}) + Me.ChartToolsBar1.Visible = False + ' + 'ChartTargetDimensionsArgumentsBarItem1 + ' + Me.ChartTargetDimensionsArgumentsBarItem1.Id = 46 + Me.ChartTargetDimensionsArgumentsBarItem1.Name = "ChartTargetDimensionsArgumentsBarItem1" + ' + 'ChartTargetDimensionsSeriesBarItem1 + ' + Me.ChartTargetDimensionsSeriesBarItem1.Id = 47 + Me.ChartTargetDimensionsSeriesBarItem1.Name = "ChartTargetDimensionsSeriesBarItem1" + ' + 'ChartRotateBarItem1 + ' + Me.ChartRotateBarItem1.Id = 48 + Me.ChartRotateBarItem1.Name = "ChartRotateBarItem1" + ' + 'ChartXAxisSettingsBarItem1 + ' + Me.ChartXAxisSettingsBarItem1.Id = 49 + Me.ChartXAxisSettingsBarItem1.Name = "ChartXAxisSettingsBarItem1" + ' + 'ChartYAxisSettingsBarItem1 + ' + Me.ChartYAxisSettingsBarItem1.Id = 50 + Me.ChartYAxisSettingsBarItem1.Name = "ChartYAxisSettingsBarItem1" + ' + 'ChartShowLegendBarItem1 + ' + Me.ChartShowLegendBarItem1.Id = 51 + Me.ChartShowLegendBarItem1.Name = "ChartShowLegendBarItem1" + ' + 'GalleryChartLegendPositionItem1 + ' + ' + ' + ' + Me.GalleryChartLegendPositionItem1.Gallery.ColumnCount = 3 + GalleryItemGroup5.Caption = "Inside Horizontal" + GalleryItemGroup6.Caption = "Inside Vertical" + GalleryItemGroup7.Caption = "Outside Horizontal" + GalleryItemGroup8.Caption = "Outside Vertical" + Me.GalleryChartLegendPositionItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup5, GalleryItemGroup6, GalleryItemGroup7, GalleryItemGroup8}) + Me.GalleryChartLegendPositionItem1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.GalleryChartLegendPositionItem1.Gallery.RowCount = 8 + Me.GalleryChartLegendPositionItem1.Id = 52 + Me.GalleryChartLegendPositionItem1.Name = "GalleryChartLegendPositionItem1" + ' + 'GalleryChartSeriesTypeItem1 + ' + ' + ' + ' + GalleryItemGroup9.Caption = "Bar" + ChartSeriesTypeGalleryItem1.Hint = "Bar" + ChartSeriesTypeGalleryItem1.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem1.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem1.SeriesTypeCaption = "Bar" + ChartSeriesTypeGalleryItem2.Hint = "Stacked Bar" + ChartSeriesTypeGalleryItem2.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem2.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem2.SeriesTypeCaption = "Stacked Bar" + ChartSeriesTypeGalleryItem3.Hint = "Full-Stacked Bar" + ChartSeriesTypeGalleryItem3.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem3.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem3.SeriesTypeCaption = "Full-Stacked Bar" + GalleryItemGroup9.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem1, ChartSeriesTypeGalleryItem2, ChartSeriesTypeGalleryItem3}) + GalleryItemGroup10.Caption = "Point / Line" + ChartSeriesTypeGalleryItem4.Hint = "Point" + ChartSeriesTypeGalleryItem4.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem4.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem4.SeriesTypeCaption = "Point" + ChartSeriesTypeGalleryItem5.Hint = "Line" + ChartSeriesTypeGalleryItem5.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem5.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem5.SeriesTypeCaption = "Line" + ChartSeriesTypeGalleryItem6.Hint = "Stacked Line" + ChartSeriesTypeGalleryItem6.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem6.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem6.SeriesTypeCaption = "Stacked Line" + ChartSeriesTypeGalleryItem7.Hint = "Full-Stacked Line" + ChartSeriesTypeGalleryItem7.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem7.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem7.SeriesTypeCaption = "Full-Stacked Line" + ChartSeriesTypeGalleryItem8.Hint = "Step Line" + ChartSeriesTypeGalleryItem8.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem8.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem8.SeriesTypeCaption = "Step Line" + ChartSeriesTypeGalleryItem9.Hint = "Spline" + ChartSeriesTypeGalleryItem9.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem9.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem9.SeriesTypeCaption = "Spline" + GalleryItemGroup10.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem4, ChartSeriesTypeGalleryItem5, ChartSeriesTypeGalleryItem6, ChartSeriesTypeGalleryItem7, ChartSeriesTypeGalleryItem8, ChartSeriesTypeGalleryItem9}) + GalleryItemGroup11.Caption = "Area" + ChartSeriesTypeGalleryItem10.Hint = "Area" + ChartSeriesTypeGalleryItem10.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem10.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem10.SeriesTypeCaption = "Area" + ChartSeriesTypeGalleryItem11.Hint = "Stacked Area" + ChartSeriesTypeGalleryItem11.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem11.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem11.SeriesTypeCaption = "Stacked Area" + ChartSeriesTypeGalleryItem12.Hint = "Full-Stacked Area" + ChartSeriesTypeGalleryItem12.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem12.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem12.SeriesTypeCaption = "Full-Stacked Area" + ChartSeriesTypeGalleryItem13.Hint = "Step Area" + ChartSeriesTypeGalleryItem13.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem13.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem13.SeriesTypeCaption = "Step Area" + ChartSeriesTypeGalleryItem14.Hint = "Spline Area" + ChartSeriesTypeGalleryItem14.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem14.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem14.SeriesTypeCaption = "Spline Area" + ChartSeriesTypeGalleryItem15.Hint = "Stacked Spline Area" + ChartSeriesTypeGalleryItem15.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem15.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem15.SeriesTypeCaption = "Stacked Spline Area" + ChartSeriesTypeGalleryItem16.Hint = "Full-Stacked Spline Area" + ChartSeriesTypeGalleryItem16.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem16.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem16.SeriesTypeCaption = "Full-Stacked Spline Area" + GalleryItemGroup11.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem10, ChartSeriesTypeGalleryItem11, ChartSeriesTypeGalleryItem12, ChartSeriesTypeGalleryItem13, ChartSeriesTypeGalleryItem14, ChartSeriesTypeGalleryItem15, ChartSeriesTypeGalleryItem16}) + GalleryItemGroup12.Caption = "Range" + ChartSeriesTypeGalleryItem17.Hint = "Range Bar Side-by-Side" + ChartSeriesTypeGalleryItem17.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem17.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem17.SeriesTypeCaption = "Range Bar Side-by-Side" + ChartSeriesTypeGalleryItem18.Hint = "Range Area" + ChartSeriesTypeGalleryItem18.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem18.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem18.SeriesTypeCaption = "Range Area" + GalleryItemGroup12.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem17, ChartSeriesTypeGalleryItem18}) + GalleryItemGroup13.Caption = "Bubble" + ChartSeriesTypeGalleryItem19.Hint = "Bubble" + ChartSeriesTypeGalleryItem19.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem19.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem19.SeriesTypeCaption = "Bubble" + GalleryItemGroup13.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem19}) + GalleryItemGroup14.Caption = "Financial" + ChartSeriesTypeGalleryItem20.Hint = "High-Low-Close" + ChartSeriesTypeGalleryItem20.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem20.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem20.SeriesTypeCaption = "High-Low-Close" + ChartSeriesTypeGalleryItem21.Hint = "Open-High-Low-Close (Candle Stick)" + ChartSeriesTypeGalleryItem21.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem21.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem21.SeriesTypeCaption = "Open-High-Low-Close (Candle Stick)" + ChartSeriesTypeGalleryItem22.Hint = "Open-High-Low-Close (Stock)" + ChartSeriesTypeGalleryItem22.Image = CType(resources.GetObject("ChartSeriesTypeGalleryItem22.Image"), System.Drawing.Image) + ChartSeriesTypeGalleryItem22.SeriesTypeCaption = "Open-High-Low-Close (Stock)" + GalleryItemGroup14.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {ChartSeriesTypeGalleryItem20, ChartSeriesTypeGalleryItem21, ChartSeriesTypeGalleryItem22}) + Me.GalleryChartSeriesTypeItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup9, GalleryItemGroup10, GalleryItemGroup11, GalleryItemGroup12, GalleryItemGroup13, GalleryItemGroup14}) + Me.GalleryChartSeriesTypeItem1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.GalleryChartSeriesTypeItem1.Gallery.RowCount = 8 + Me.GalleryChartSeriesTypeItem1.Id = 53 + Me.GalleryChartSeriesTypeItem1.Name = "GalleryChartSeriesTypeItem1" + ' + 'UseGlobalColorsBarItem1 + ' + Me.UseGlobalColorsBarItem1.Id = 167 + Me.UseGlobalColorsBarItem1.Name = "UseGlobalColorsBarItem1" + ' + 'UseLocalColorsBarItem1 + ' + Me.UseLocalColorsBarItem1.Id = 168 + Me.UseLocalColorsBarItem1.Name = "UseLocalColorsBarItem1" + ' + 'EditActualColorsBarItem1 + ' + Me.EditActualColorsBarItem1.Id = 169 + Me.EditActualColorsBarItem1.Name = "EditActualColorsBarItem1" + ' + 'PiesToolsBar1 + ' + Me.PiesToolsBar1.Control = Me.DashboardDesigner1 + Me.PiesToolsBar1.DockCol = 16 + Me.PiesToolsBar1.DockRow = 0 + Me.PiesToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.PiesToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieTargetDimensionsArgumentsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieTargetDimensionsSeriesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentAutoArrangeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInColumnsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInRowsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangementCountBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieTooltipsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieStylePieBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieStyleDonutBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieShowCaptionsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseGlobalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseLocalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditActualColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieTargetDimensionsPointsBarItem1)}) + Me.PiesToolsBar1.Visible = False + ' + 'PieTargetDimensionsArgumentsBarItem1 + ' + Me.PieTargetDimensionsArgumentsBarItem1.Id = 54 + Me.PieTargetDimensionsArgumentsBarItem1.Name = "PieTargetDimensionsArgumentsBarItem1" + ' + 'PieTargetDimensionsSeriesBarItem1 + ' + Me.PieTargetDimensionsSeriesBarItem1.Id = 55 + Me.PieTargetDimensionsSeriesBarItem1.Name = "PieTargetDimensionsSeriesBarItem1" + ' + 'ContentAutoArrangeBarItem1 + ' + Me.ContentAutoArrangeBarItem1.Id = 56 + Me.ContentAutoArrangeBarItem1.Name = "ContentAutoArrangeBarItem1" + ' + 'ContentArrangeInColumnsBarItem1 + ' + Me.ContentArrangeInColumnsBarItem1.Id = 57 + Me.ContentArrangeInColumnsBarItem1.Name = "ContentArrangeInColumnsBarItem1" + ' + 'ContentArrangeInRowsBarItem1 + ' + Me.ContentArrangeInRowsBarItem1.Id = 58 + Me.ContentArrangeInRowsBarItem1.Name = "ContentArrangeInRowsBarItem1" + ' + 'ContentArrangementCountBarItem1 + ' + Me.ContentArrangementCountBarItem1.Edit = Me.RepositoryItemSpinEdit1 + Me.ContentArrangementCountBarItem1.Id = 59 + Me.ContentArrangementCountBarItem1.Name = "ContentArrangementCountBarItem1" + ' + 'RepositoryItemSpinEdit1 + ' + Me.RepositoryItemSpinEdit1.AutoHeight = False + Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemSpinEdit1.IsFloatValue = False + Me.RepositoryItemSpinEdit1.Mask.EditMask = "N00" + Me.RepositoryItemSpinEdit1.MaxValue = New Decimal(New Integer() {10000, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.MinValue = New Decimal(New Integer() {1, 0, 0, 0}) + Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1" + ' + 'PieLabelsDataLabelsBarItem1 + ' + Me.PieLabelsDataLabelsBarItem1.Id = 60 + Me.PieLabelsDataLabelsBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsNoneBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelArgumentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsValueBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsArgumentAndValueBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsValueAndPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsArgumentAndPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1)}) + Me.PieLabelsDataLabelsBarItem1.Name = "PieLabelsDataLabelsBarItem1" + Me.PieLabelsDataLabelsBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PieLabelsDataLabelsNoneBarItem1 + ' + Me.PieLabelsDataLabelsNoneBarItem1.Id = 61 + Me.PieLabelsDataLabelsNoneBarItem1.Name = "PieLabelsDataLabelsNoneBarItem1" + ' + 'PieLabelsDataLabelArgumentBarItem1 + ' + Me.PieLabelsDataLabelArgumentBarItem1.Id = 62 + Me.PieLabelsDataLabelArgumentBarItem1.Name = "PieLabelsDataLabelArgumentBarItem1" + ' + 'PieLabelsDataLabelsValueBarItem1 + ' + Me.PieLabelsDataLabelsValueBarItem1.Id = 63 + Me.PieLabelsDataLabelsValueBarItem1.Name = "PieLabelsDataLabelsValueBarItem1" + ' + 'PieLabelsDataLabelsArgumentAndValueBarItem1 + ' + Me.PieLabelsDataLabelsArgumentAndValueBarItem1.Id = 64 + Me.PieLabelsDataLabelsArgumentAndValueBarItem1.Name = "PieLabelsDataLabelsArgumentAndValueBarItem1" + ' + 'PieLabelsDataLabelsPercentBarItem1 + ' + Me.PieLabelsDataLabelsPercentBarItem1.Id = 65 + Me.PieLabelsDataLabelsPercentBarItem1.Name = "PieLabelsDataLabelsPercentBarItem1" + ' + 'PieLabelsDataLabelsValueAndPercentBarItem1 + ' + Me.PieLabelsDataLabelsValueAndPercentBarItem1.Id = 66 + Me.PieLabelsDataLabelsValueAndPercentBarItem1.Name = "PieLabelsDataLabelsValueAndPercentBarItem1" + ' + 'PieLabelsDataLabelsArgumentAndPercentBarItem1 + ' + Me.PieLabelsDataLabelsArgumentAndPercentBarItem1.Id = 67 + Me.PieLabelsDataLabelsArgumentAndPercentBarItem1.Name = "PieLabelsDataLabelsArgumentAndPercentBarItem1" + ' + 'PieLabelsDataLabelsArgumentValueAndPercentBarItem1 + ' + Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1.Id = 68 + Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1.Name = "PieLabelsDataLabelsArgumentValueAndPercentBarItem1" + ' + 'PieTooltipsBarItem1 + ' + Me.PieTooltipsBarItem1.Id = 69 + Me.PieTooltipsBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsNoneBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsArgumentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsValueBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsArgumentAndValueBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsValueAndPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsArgumentAndPercentBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1)}) + Me.PieTooltipsBarItem1.Name = "PieTooltipsBarItem1" + Me.PieTooltipsBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PieLabelsTooltipsNoneBarItem1 + ' + Me.PieLabelsTooltipsNoneBarItem1.Id = 70 + Me.PieLabelsTooltipsNoneBarItem1.Name = "PieLabelsTooltipsNoneBarItem1" + ' + 'PieLabelsTooltipsArgumentBarItem1 + ' + Me.PieLabelsTooltipsArgumentBarItem1.Id = 71 + Me.PieLabelsTooltipsArgumentBarItem1.Name = "PieLabelsTooltipsArgumentBarItem1" + ' + 'PieLabelsTooltipsValueBarItem1 + ' + Me.PieLabelsTooltipsValueBarItem1.Id = 72 + Me.PieLabelsTooltipsValueBarItem1.Name = "PieLabelsTooltipsValueBarItem1" + ' + 'PieLabelsTooltipsArgumentAndValueBarItem1 + ' + Me.PieLabelsTooltipsArgumentAndValueBarItem1.Id = 73 + Me.PieLabelsTooltipsArgumentAndValueBarItem1.Name = "PieLabelsTooltipsArgumentAndValueBarItem1" + ' + 'PieLabelsTooltipsPercentBarItem1 + ' + Me.PieLabelsTooltipsPercentBarItem1.Id = 74 + Me.PieLabelsTooltipsPercentBarItem1.Name = "PieLabelsTooltipsPercentBarItem1" + ' + 'PieLabelsTooltipsValueAndPercentBarItem1 + ' + Me.PieLabelsTooltipsValueAndPercentBarItem1.Id = 75 + Me.PieLabelsTooltipsValueAndPercentBarItem1.Name = "PieLabelsTooltipsValueAndPercentBarItem1" + ' + 'PieLabelsTooltipsArgumentAndPercentBarItem1 + ' + Me.PieLabelsTooltipsArgumentAndPercentBarItem1.Id = 76 + Me.PieLabelsTooltipsArgumentAndPercentBarItem1.Name = "PieLabelsTooltipsArgumentAndPercentBarItem1" + ' + 'PieLabelsTooltipsArgumentValueAndPercentBarItem1 + ' + Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1.Id = 77 + Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1.Name = "PieLabelsTooltipsArgumentValueAndPercentBarItem1" + ' + 'PieStylePieBarItem1 + ' + Me.PieStylePieBarItem1.Id = 78 + Me.PieStylePieBarItem1.Name = "PieStylePieBarItem1" + ' + 'PieStyleDonutBarItem1 + ' + Me.PieStyleDonutBarItem1.Id = 79 + Me.PieStyleDonutBarItem1.Name = "PieStyleDonutBarItem1" + ' + 'PieShowCaptionsBarItem1 + ' + Me.PieShowCaptionsBarItem1.Id = 80 + Me.PieShowCaptionsBarItem1.Name = "PieShowCaptionsBarItem1" + ' + 'GaugesToolsBar1 + ' + Me.GaugesToolsBar1.Control = Me.DashboardDesigner1 + Me.GaugesToolsBar1.DockCol = 15 + Me.GaugesToolsBar1.DockRow = 0 + Me.GaugesToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.GaugesToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentAutoArrangeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInColumnsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInRowsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangementCountBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleFullCircularBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleHalfCircularBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleLeftQuarterCircularBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleRightQuarterCircularBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleThreeForthCircularBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleLinearHorizontalBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeStyleLinearVerticalBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GaugeShowCaptionsBarItem1)}) + Me.GaugesToolsBar1.Visible = False + ' + 'GaugeStyleFullCircularBarItem1 + ' + Me.GaugeStyleFullCircularBarItem1.Id = 81 + Me.GaugeStyleFullCircularBarItem1.Name = "GaugeStyleFullCircularBarItem1" + ' + 'GaugeStyleHalfCircularBarItem1 + ' + Me.GaugeStyleHalfCircularBarItem1.Id = 82 + Me.GaugeStyleHalfCircularBarItem1.Name = "GaugeStyleHalfCircularBarItem1" + ' + 'GaugeStyleLeftQuarterCircularBarItem1 + ' + Me.GaugeStyleLeftQuarterCircularBarItem1.Id = 83 + Me.GaugeStyleLeftQuarterCircularBarItem1.Name = "GaugeStyleLeftQuarterCircularBarItem1" + ' + 'GaugeStyleRightQuarterCircularBarItem1 + ' + Me.GaugeStyleRightQuarterCircularBarItem1.Id = 84 + Me.GaugeStyleRightQuarterCircularBarItem1.Name = "GaugeStyleRightQuarterCircularBarItem1" + ' + 'GaugeStyleThreeForthCircularBarItem1 + ' + Me.GaugeStyleThreeForthCircularBarItem1.Id = 85 + Me.GaugeStyleThreeForthCircularBarItem1.Name = "GaugeStyleThreeForthCircularBarItem1" + ' + 'GaugeStyleLinearHorizontalBarItem1 + ' + Me.GaugeStyleLinearHorizontalBarItem1.Id = 86 + Me.GaugeStyleLinearHorizontalBarItem1.Name = "GaugeStyleLinearHorizontalBarItem1" + ' + 'GaugeStyleLinearVerticalBarItem1 + ' + Me.GaugeStyleLinearVerticalBarItem1.Id = 87 + Me.GaugeStyleLinearVerticalBarItem1.Name = "GaugeStyleLinearVerticalBarItem1" + ' + 'GaugeShowCaptionsBarItem1 + ' + Me.GaugeShowCaptionsBarItem1.Id = 88 + Me.GaugeShowCaptionsBarItem1.Name = "GaugeShowCaptionsBarItem1" + ' + 'CardsToolsBar1 + ' + Me.CardsToolsBar1.Control = Me.DashboardDesigner1 + Me.CardsToolsBar1.DockCol = 14 + Me.CardsToolsBar1.DockRow = 0 + Me.CardsToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.CardsToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentAutoArrangeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInColumnsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangeInRowsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ContentArrangementCountBarItem1)}) + Me.CardsToolsBar1.Visible = False + ' + 'RangeFilterToolsBar1 + ' + Me.RangeFilterToolsBar1.Control = Me.DashboardDesigner1 + Me.RangeFilterToolsBar1.DockCol = 13 + Me.RangeFilterToolsBar1.DockRow = 0 + Me.RangeFilterToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.RangeFilterToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterLineSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterStackedLineSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterFullStackedLineSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterAreaSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterStackedAreaSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RangeFilterFullStackedAreaSeriesTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1)}) + Me.RangeFilterToolsBar1.Visible = False + ' + 'RangeFilterLineSeriesTypeBarItem1 + ' + Me.RangeFilterLineSeriesTypeBarItem1.Id = 89 + Me.RangeFilterLineSeriesTypeBarItem1.Name = "RangeFilterLineSeriesTypeBarItem1" + ' + 'RangeFilterStackedLineSeriesTypeBarItem1 + ' + Me.RangeFilterStackedLineSeriesTypeBarItem1.Id = 90 + Me.RangeFilterStackedLineSeriesTypeBarItem1.Name = "RangeFilterStackedLineSeriesTypeBarItem1" + ' + 'RangeFilterFullStackedLineSeriesTypeBarItem1 + ' + Me.RangeFilterFullStackedLineSeriesTypeBarItem1.Id = 91 + Me.RangeFilterFullStackedLineSeriesTypeBarItem1.Name = "RangeFilterFullStackedLineSeriesTypeBarItem1" + ' + 'RangeFilterAreaSeriesTypeBarItem1 + ' + Me.RangeFilterAreaSeriesTypeBarItem1.Id = 92 + Me.RangeFilterAreaSeriesTypeBarItem1.Name = "RangeFilterAreaSeriesTypeBarItem1" + ' + 'RangeFilterStackedAreaSeriesTypeBarItem1 + ' + Me.RangeFilterStackedAreaSeriesTypeBarItem1.Id = 93 + Me.RangeFilterStackedAreaSeriesTypeBarItem1.Name = "RangeFilterStackedAreaSeriesTypeBarItem1" + ' + 'RangeFilterFullStackedAreaSeriesTypeBarItem1 + ' + Me.RangeFilterFullStackedAreaSeriesTypeBarItem1.Id = 94 + Me.RangeFilterFullStackedAreaSeriesTypeBarItem1.Name = "RangeFilterFullStackedAreaSeriesTypeBarItem1" + ' + 'MapToolsBar1 + ' + Me.MapToolsBar1.Control = Me.DashboardDesigner1 + Me.MapToolsBar1.DockCol = 12 + Me.MapToolsBar1.DockRow = 0 + Me.MapToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.MapToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryMapLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapDefaultShapefileBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu)}) + Me.MapToolsBar1.Visible = False + ' + 'MapShowLegendBarItem1 + ' + Me.MapShowLegendBarItem1.Id = 95 + Me.MapShowLegendBarItem1.Name = "MapShowLegendBarItem1" + ' + 'GalleryMapLegendPositionItem1 + ' + ' + ' + ' + Me.GalleryMapLegendPositionItem1.Gallery.ColumnCount = 3 + GalleryItemGroup15.Caption = "Vertical" + GalleryItemGroup16.Caption = "Horizontal" + Me.GalleryMapLegendPositionItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup15, GalleryItemGroup16}) + Me.GalleryMapLegendPositionItem1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.GalleryMapLegendPositionItem1.Gallery.RowCount = 4 + Me.GalleryMapLegendPositionItem1.Id = 96 + Me.GalleryMapLegendPositionItem1.Name = "GalleryMapLegendPositionItem1" + ' + 'MapLoadBarItem1 + ' + Me.MapLoadBarItem1.Id = 97 + Me.MapLoadBarItem1.Name = "MapLoadBarItem1" + ' + 'MapImportBarItem1 + ' + Me.MapImportBarItem1.Id = 98 + Me.MapImportBarItem1.Name = "MapImportBarItem1" + ' + 'MapDefaultShapefileBarItem1 + ' + Me.MapDefaultShapefileBarItem1.Id = 99 + Me.MapDefaultShapefileBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.MapWorldCountriesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapEuropeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapAsiaBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapNorthAmericaBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapSouthAmericaBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapAfricaBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapUSABarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapCanadaBarItem1)}) + Me.MapDefaultShapefileBarItem1.Name = "MapDefaultShapefileBarItem1" + Me.MapDefaultShapefileBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'MapWorldCountriesBarItem1 + ' + Me.MapWorldCountriesBarItem1.Id = 100 + Me.MapWorldCountriesBarItem1.Name = "MapWorldCountriesBarItem1" + ' + 'MapEuropeBarItem1 + ' + Me.MapEuropeBarItem1.Id = 101 + Me.MapEuropeBarItem1.Name = "MapEuropeBarItem1" + ' + 'MapAsiaBarItem1 + ' + Me.MapAsiaBarItem1.Id = 102 + Me.MapAsiaBarItem1.Name = "MapAsiaBarItem1" + ' + 'MapNorthAmericaBarItem1 + ' + Me.MapNorthAmericaBarItem1.Id = 103 + Me.MapNorthAmericaBarItem1.Name = "MapNorthAmericaBarItem1" + ' + 'MapSouthAmericaBarItem1 + ' + Me.MapSouthAmericaBarItem1.Id = 104 + Me.MapSouthAmericaBarItem1.Name = "MapSouthAmericaBarItem1" + ' + 'MapAfricaBarItem1 + ' + Me.MapAfricaBarItem1.Id = 105 + Me.MapAfricaBarItem1.Name = "MapAfricaBarItem1" + ' + 'MapUSABarItem1 + ' + Me.MapUSABarItem1.Id = 106 + Me.MapUSABarItem1.Name = "MapUSABarItem1" + ' + 'MapCanadaBarItem1 + ' + Me.MapCanadaBarItem1.Id = 107 + Me.MapCanadaBarItem1.Name = "MapCanadaBarItem1" + ' + 'ImageToolsBar1 + ' + Me.ImageToolsBar1.Control = Me.DashboardDesigner1 + Me.ImageToolsBar1.DockCol = 11 + Me.ImageToolsBar1.DockRow = 0 + Me.ImageToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ImageToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ImageLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ImageImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageSizeModeClipBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageSizeModeStretchBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageSizeModeSqueezeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageSizeModeZoomBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentTopLeftBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentCenterLeftBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentBottomLeftBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentTopCenterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentCenterCenterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentBottomCenterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentTopRightBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentCenterRightBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageAlignmentBottomRightBarItem1)}) + Me.ImageToolsBar1.Visible = False + ' + 'ImageLoadBarItem1 + ' + Me.ImageLoadBarItem1.Id = 108 + Me.ImageLoadBarItem1.Name = "ImageLoadBarItem1" + ' + 'ImageImportBarItem1 + ' + Me.ImageImportBarItem1.Id = 109 + Me.ImageImportBarItem1.Name = "ImageImportBarItem1" + ' + 'ImageSizeModeClipBarItem1 + ' + Me.ImageSizeModeClipBarItem1.Id = 110 + Me.ImageSizeModeClipBarItem1.Name = "ImageSizeModeClipBarItem1" + ' + 'ImageSizeModeStretchBarItem1 + ' + Me.ImageSizeModeStretchBarItem1.Id = 111 + Me.ImageSizeModeStretchBarItem1.Name = "ImageSizeModeStretchBarItem1" + ' + 'ImageSizeModeSqueezeBarItem1 + ' + Me.ImageSizeModeSqueezeBarItem1.Id = 112 + Me.ImageSizeModeSqueezeBarItem1.Name = "ImageSizeModeSqueezeBarItem1" + ' + 'ImageSizeModeZoomBarItem1 + ' + Me.ImageSizeModeZoomBarItem1.Id = 113 + Me.ImageSizeModeZoomBarItem1.Name = "ImageSizeModeZoomBarItem1" + ' + 'ImageAlignmentTopLeftBarItem1 + ' + Me.ImageAlignmentTopLeftBarItem1.Id = 114 + Me.ImageAlignmentTopLeftBarItem1.Name = "ImageAlignmentTopLeftBarItem1" + Me.ImageAlignmentTopLeftBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentCenterLeftBarItem1 + ' + Me.ImageAlignmentCenterLeftBarItem1.Id = 115 + Me.ImageAlignmentCenterLeftBarItem1.Name = "ImageAlignmentCenterLeftBarItem1" + Me.ImageAlignmentCenterLeftBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentBottomLeftBarItem1 + ' + Me.ImageAlignmentBottomLeftBarItem1.Id = 116 + Me.ImageAlignmentBottomLeftBarItem1.Name = "ImageAlignmentBottomLeftBarItem1" + Me.ImageAlignmentBottomLeftBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentTopCenterBarItem1 + ' + Me.ImageAlignmentTopCenterBarItem1.Id = 117 + Me.ImageAlignmentTopCenterBarItem1.Name = "ImageAlignmentTopCenterBarItem1" + Me.ImageAlignmentTopCenterBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentCenterCenterBarItem1 + ' + Me.ImageAlignmentCenterCenterBarItem1.Id = 118 + Me.ImageAlignmentCenterCenterBarItem1.Name = "ImageAlignmentCenterCenterBarItem1" + Me.ImageAlignmentCenterCenterBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentBottomCenterBarItem1 + ' + Me.ImageAlignmentBottomCenterBarItem1.Id = 119 + Me.ImageAlignmentBottomCenterBarItem1.Name = "ImageAlignmentBottomCenterBarItem1" + Me.ImageAlignmentBottomCenterBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentTopRightBarItem1 + ' + Me.ImageAlignmentTopRightBarItem1.Id = 120 + Me.ImageAlignmentTopRightBarItem1.Name = "ImageAlignmentTopRightBarItem1" + Me.ImageAlignmentTopRightBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentCenterRightBarItem1 + ' + Me.ImageAlignmentCenterRightBarItem1.Id = 121 + Me.ImageAlignmentCenterRightBarItem1.Name = "ImageAlignmentCenterRightBarItem1" + Me.ImageAlignmentCenterRightBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'ImageAlignmentBottomRightBarItem1 + ' + Me.ImageAlignmentBottomRightBarItem1.Id = 122 + Me.ImageAlignmentBottomRightBarItem1.Name = "ImageAlignmentBottomRightBarItem1" + Me.ImageAlignmentBottomRightBarItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'TextBoxToolsBar1 + ' + Me.TextBoxToolsBar1.Control = Me.DashboardDesigner1 + Me.TextBoxToolsBar1.DockCol = 10 + Me.TextBoxToolsBar1.DockRow = 0 + Me.TextBoxToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.TextBoxToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.TextBoxEditTextBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu)}) + Me.TextBoxToolsBar1.Visible = False + ' + 'TextBoxEditTextBarItem1 + ' + Me.TextBoxEditTextBarItem1.Id = 123 + Me.TextBoxEditTextBarItem1.Name = "TextBoxEditTextBarItem1" + ' + 'ChoroplethMapToolsBar1 + ' + Me.ChoroplethMapToolsBar1.Control = Me.DashboardDesigner1 + Me.ChoroplethMapToolsBar1.DockCol = 9 + Me.ChoroplethMapToolsBar1.DockRow = 0 + Me.ChoroplethMapToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ChoroplethMapToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapDefaultShapefileBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapLockNavigationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapFullExtentBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ChoroplethMapShapeLabelsAttributeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryMapLegendPositionItem1)}) + Me.ChoroplethMapToolsBar1.Visible = False + ' + 'MapLockNavigationBarItem1 + ' + Me.MapLockNavigationBarItem1.Id = 170 + Me.MapLockNavigationBarItem1.Name = "MapLockNavigationBarItem1" + ' + 'MapFullExtentBarItem1 + ' + Me.MapFullExtentBarItem1.Id = 171 + Me.MapFullExtentBarItem1.Name = "MapFullExtentBarItem1" + ' + 'ChoroplethMapShapeLabelsAttributeBarItem1 + ' + Me.ChoroplethMapShapeLabelsAttributeBarItem1.Id = 172 + Me.ChoroplethMapShapeLabelsAttributeBarItem1.Name = "ChoroplethMapShapeLabelsAttributeBarItem1" + ' + 'GeoPointMapToolsBar1 + ' + Me.GeoPointMapToolsBar1.Control = Me.DashboardDesigner1 + Me.GeoPointMapToolsBar1.DockCol = 8 + Me.GeoPointMapToolsBar1.DockRow = 0 + Me.GeoPointMapToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.GeoPointMapToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GeoPointMapClusterizationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapDefaultShapefileBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapLockNavigationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapFullExtentBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShapeTitleAttributeBarItem1)}) + Me.GeoPointMapToolsBar1.Visible = False + ' + 'GeoPointMapClusterizationBarItem1 + ' + Me.GeoPointMapClusterizationBarItem1.Id = 173 + Me.GeoPointMapClusterizationBarItem1.Name = "GeoPointMapClusterizationBarItem1" + ' + 'MapShapeTitleAttributeBarItem1 + ' + Me.MapShapeTitleAttributeBarItem1.Id = 174 + Me.MapShapeTitleAttributeBarItem1.Name = "MapShapeTitleAttributeBarItem1" + ' + 'BubbleMapToolsBar1 + ' + Me.BubbleMapToolsBar1.Control = Me.DashboardDesigner1 + Me.BubbleMapToolsBar1.DockCol = 7 + Me.BubbleMapToolsBar1.DockRow = 0 + Me.BubbleMapToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.BubbleMapToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GeoPointMapClusterizationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapDefaultShapefileBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapLockNavigationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapFullExtentBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShapeTitleAttributeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryMapLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChangeWeightedLegendTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryWeightedLegendPositionItem1)}) + Me.BubbleMapToolsBar1.Visible = False + ' + 'ChangeWeightedLegendTypeBarItem1 + ' + Me.ChangeWeightedLegendTypeBarItem1.Id = 175 + Me.ChangeWeightedLegendTypeBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.WeightedLegendNoneBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.WeightedLegendLinearBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.WeightedLegendNestedBarItem1)}) + Me.ChangeWeightedLegendTypeBarItem1.Name = "ChangeWeightedLegendTypeBarItem1" + Me.ChangeWeightedLegendTypeBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'WeightedLegendNoneBarItem1 + ' + Me.WeightedLegendNoneBarItem1.Id = 176 + Me.WeightedLegendNoneBarItem1.Name = "WeightedLegendNoneBarItem1" + ' + 'WeightedLegendLinearBarItem1 + ' + Me.WeightedLegendLinearBarItem1.Id = 177 + Me.WeightedLegendLinearBarItem1.Name = "WeightedLegendLinearBarItem1" + ' + 'WeightedLegendNestedBarItem1 + ' + Me.WeightedLegendNestedBarItem1.Id = 178 + Me.WeightedLegendNestedBarItem1.Name = "WeightedLegendNestedBarItem1" + ' + 'GalleryWeightedLegendPositionItem1 + ' + ' + ' + ' + Me.GalleryWeightedLegendPositionItem1.Gallery.ColumnCount = 3 + GalleryItemGroup17.Caption = "Position" + Me.GalleryWeightedLegendPositionItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup17}) + Me.GalleryWeightedLegendPositionItem1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.GalleryWeightedLegendPositionItem1.Gallery.RowCount = 2 + Me.GalleryWeightedLegendPositionItem1.Id = 179 + Me.GalleryWeightedLegendPositionItem1.Name = "GalleryWeightedLegendPositionItem1" + ' + 'PieMapToolsBar1 + ' + Me.PieMapToolsBar1.Control = Me.DashboardDesigner1 + Me.PieMapToolsBar1.DockCol = 6 + Me.PieMapToolsBar1.DockRow = 0 + Me.PieMapToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.PieMapToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GeoPointMapClusterizationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapLoadBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapImportBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapDefaultShapefileBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapLockNavigationBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.MapFullExtentBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShapeTitleAttributeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryMapLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChangeWeightedLegendTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryWeightedLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PieMapIsWeightedBarItem1)}) + Me.PieMapToolsBar1.Visible = False + ' + 'PieMapIsWeightedBarItem1 + ' + Me.PieMapIsWeightedBarItem1.Id = 180 + Me.PieMapIsWeightedBarItem1.Name = "PieMapIsWeightedBarItem1" + ' + 'FilterElementToolsBar1 + ' + Me.FilterElementToolsBar1.Control = Me.DashboardDesigner1 + Me.FilterElementToolsBar1.DockCol = 5 + Me.FilterElementToolsBar1.DockRow = 0 + Me.FilterElementToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.FilterElementToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ComboBoxStandardTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ComboBoxCheckedTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ListBoxCheckedTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ListBoxRadioTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.TreeViewAutoExpandBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FilterElementShowAllValueBarItem1)}) + Me.FilterElementToolsBar1.Visible = False + ' + 'ComboBoxStandardTypeBarItem1 + ' + Me.ComboBoxStandardTypeBarItem1.Id = 181 + Me.ComboBoxStandardTypeBarItem1.Name = "ComboBoxStandardTypeBarItem1" + ' + 'ComboBoxCheckedTypeBarItem1 + ' + Me.ComboBoxCheckedTypeBarItem1.Id = 182 + Me.ComboBoxCheckedTypeBarItem1.Name = "ComboBoxCheckedTypeBarItem1" + ' + 'ListBoxCheckedTypeBarItem1 + ' + Me.ListBoxCheckedTypeBarItem1.Id = 183 + Me.ListBoxCheckedTypeBarItem1.Name = "ListBoxCheckedTypeBarItem1" + ' + 'ListBoxRadioTypeBarItem1 + ' + Me.ListBoxRadioTypeBarItem1.Id = 184 + Me.ListBoxRadioTypeBarItem1.Name = "ListBoxRadioTypeBarItem1" + ' + 'TreeViewAutoExpandBarItem1 + ' + Me.TreeViewAutoExpandBarItem1.Id = 185 + Me.TreeViewAutoExpandBarItem1.Name = "TreeViewAutoExpandBarItem1" + ' + 'FilterElementShowAllValueBarItem1 + ' + Me.FilterElementShowAllValueBarItem1.Id = 186 + Me.FilterElementShowAllValueBarItem1.Name = "FilterElementShowAllValueBarItem1" + ' + 'GroupToolsBar1 + ' + Me.GroupToolsBar1.Control = Me.DashboardDesigner1 + Me.GroupToolsBar1.DockCol = 4 + Me.GroupToolsBar1.DockRow = 0 + Me.GroupToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.GroupToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.GroupMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GroupIgnoreMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu)}) + Me.GroupToolsBar1.Visible = False + ' + 'GroupMasterFilterBarItem1 + ' + Me.GroupMasterFilterBarItem1.Id = 187 + Me.GroupMasterFilterBarItem1.Name = "GroupMasterFilterBarItem1" + ' + 'GroupIgnoreMasterFilterBarItem1 + ' + Me.GroupIgnoreMasterFilterBarItem1.Id = 188 + Me.GroupIgnoreMasterFilterBarItem1.Name = "GroupIgnoreMasterFilterBarItem1" + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(851, 31) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 434) + Me.barDockControlBottom.Size = New System.Drawing.Size(851, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 31) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 403) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(851, 31) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 403) + ' + 'DashboardPopupMenu1 + ' + Me.DashboardPopupMenu1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ShowItemCaptionBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DuplicateItemBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteItemBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertDashboardItemTypeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.RemoveDataItemsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.TransposeItemBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditRulesBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditItemNamesBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteGroupBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.EditFilterBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.ClearFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UpdateDataBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.MapLoadBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.MapImportBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapDefaultShapefileBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MapFullExtentBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageLoadBarItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.ImageImportBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.TextBoxEditTextBarItem1, True)}) + Me.DashboardPopupMenu1.Manager = Me.BarManager1 + Me.DashboardPopupMenu1.Name = "DashboardPopupMenu1" + ' + 'DashboardBarController1 + ' + Me.DashboardBarController1.BarItems.Add(Me.FileNewBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.FileOpenBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.FileSaveBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.FileSaveAsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.UndoBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RedoBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.NewDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DeleteDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditDataSourceFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ClearDataSourceFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertPivotBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertGridBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertChartBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertPiesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertGaugesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertCardsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertChoroplethMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertRangeFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertImageBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertTextBoxBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DuplicateItemBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DeleteItemBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DashboardTitleBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.SetCurrencyCultureBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DashboardSkinsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ClearFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MasterFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MultipleValuesMasterFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DrillDownBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.IgnoreMasterFiltersBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.CrossDataSourceFilteringBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartTargetDimensionsArgumentsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartTargetDimensionsSeriesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieTargetDimensionsArgumentsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieTargetDimensionsSeriesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ShowItemCaptionBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditItemNamesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ContentAutoArrangeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ContentArrangeInColumnsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ContentArrangeInRowsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ContentArrangementCountBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridHorizontalLinesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridVerticalLinesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridMergeCellsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridBandedRowsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridColumnHeadersBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartRotateBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartXAxisSettingsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartYAxisSettingsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartShowLegendBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GalleryChartLegendPositionItem1) + Me.DashboardBarController1.BarItems.Add(Me.GalleryChartSeriesTypeItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsNoneBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelArgumentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsValueBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsArgumentAndValueBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsValueAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsArgumentAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsDataLabelsArgumentValueAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieTooltipsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsNoneBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsArgumentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsValueBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsArgumentAndValueBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsValueAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsArgumentAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieLabelsTooltipsArgumentValueAndPercentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieStylePieBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieStyleDonutBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieShowCaptionsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleFullCircularBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleHalfCircularBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleLeftQuarterCircularBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleRightQuarterCircularBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleThreeForthCircularBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleLinearHorizontalBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeStyleLinearVerticalBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GaugeShowCaptionsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageLoadBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageImportBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageSizeModeClipBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageSizeModeStretchBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageSizeModeSqueezeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageSizeModeZoomBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentTopLeftBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentCenterLeftBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentBottomLeftBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentTopCenterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentCenterCenterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentBottomCenterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentTopRightBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentCenterRightBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ImageAlignmentBottomRightBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.TextBoxEditTextBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterLineSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterStackedLineSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterFullStackedLineSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterAreaSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterStackedAreaSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RangeFilterFullStackedAreaSeriesTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotInitialStateBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotAutoExpandColumnBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotAutoExpandRowBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapShowLegendBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GalleryMapLegendPositionItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapLoadBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapImportBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapDefaultShapefileBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapWorldCountriesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapEuropeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapAsiaBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapNorthAmericaBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapSouthAmericaBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapAfricaBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapUSABarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapCanadaBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditSqlConnectionBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditOlapConnectionBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditObjectDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditEFDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RenameDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ServerModeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertGeoPointMapBarSubItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertGeoPointMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertBubbleMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertPieMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertFilterElementSubItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertComboBoxBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertListBoxBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertTreeViewBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertGroupBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPivotBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGridBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChartBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGaugeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToCardBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChoroplethMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertGeoPointMapBaseBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGeoPointMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToBubbleMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieMapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToRangeFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToComboBoxBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToListBoxBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToTreeViewBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RemoveDataItemsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.TransposeItemBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditRulesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DeleteGroupBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DashboardColorSchemeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GroupMasterFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GroupIgnoreMasterFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GeoPointMapClusterizationBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridWordWrapBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridAutoFitToContentsColumnWidthModeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GridAutoFitToGridColumnWidthModeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ManualGridColumnWidthModeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ComboBoxStandardTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ComboBoxCheckedTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ListBoxCheckedTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ListBoxRadioTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.TreeViewAutoExpandBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.FilterElementShowAllValueBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapLockNavigationBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapFullExtentBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChoroplethMapShapeLabelsAttributeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.MapShapeTitleAttributeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChangeWeightedLegendTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.WeightedLegendNoneBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.WeightedLegendLinearBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.WeightedLegendNestedBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GalleryWeightedLegendPositionItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieMapIsWeightedBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.UseGlobalColorsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.UseLocalColorsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditActualColorsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditExcelDataSourceBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.AddQueryBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditQueryBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.RenameQueryBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.EditQueryFilterBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.DeleteQueryBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.InsertScatterChartBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPivotBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGridBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChartBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToScatterChartBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGaugeBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToCardBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChoroplethMapBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertGeoPointMapBaseBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGeoPointMapBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToBubbleMapBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieMapBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToRangeFilterBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToFilterElementsBaseBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToComboBoxBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToListBoxBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToTreeViewBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.DashboardAutomaticUpdatesBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.UpdateDataBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ChartTargetDimensionsPointsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PieTargetDimensionsPointsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ScatterChartRotateBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ScatterChartXAxisSettingsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ScatterChartYAxisSettingsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ScatterChartPointLabelOptionsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ScatterChartShowLegendBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.GalleryScatterChartLegendPositionItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowColumnTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowRowTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowGrandTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowColumnGrandTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.PivotShowRowGrandTotalsBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.AddCalculatedFieldBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertDashboardItemTypeBarItem1) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPivotBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGridBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChartBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToScatterChartBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGaugeBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToCardBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToChoroplethMapBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertGeoPointMapBaseBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToGeoPointMapBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToBubbleMapBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToPieMapBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToRangeFilterBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToFilterElementsBaseBarItem2) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToComboBoxBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToListBoxBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.ConvertToTreeViewBarItem3) + Me.DashboardBarController1.BarItems.Add(Me.DashboardParametersBarItem1) + Me.DashboardBarController1.Control = Me.DashboardDesigner1 + ' + 'EditExcelDataSourceBarItem1 + ' + Me.EditExcelDataSourceBarItem1.Id = 192 + Me.EditExcelDataSourceBarItem1.Name = "EditExcelDataSourceBarItem1" + ' + 'AddQueryBarItem1 + ' + Me.AddQueryBarItem1.Id = 193 + Me.AddQueryBarItem1.Name = "AddQueryBarItem1" + ' + 'EditQueryBarItem1 + ' + Me.EditQueryBarItem1.Id = 194 + Me.EditQueryBarItem1.Name = "EditQueryBarItem1" + ' + 'RenameQueryBarItem1 + ' + Me.RenameQueryBarItem1.Id = 195 + Me.RenameQueryBarItem1.Name = "RenameQueryBarItem1" + ' + 'EditQueryFilterBarItem1 + ' + Me.EditQueryFilterBarItem1.Id = 196 + Me.EditQueryFilterBarItem1.Name = "EditQueryFilterBarItem1" + ' + 'DeleteQueryBarItem1 + ' + Me.DeleteQueryBarItem1.Id = 197 + Me.DeleteQueryBarItem1.Name = "DeleteQueryBarItem1" + ' + 'InsertScatterChartBarItem1 + ' + Me.InsertScatterChartBarItem1.Id = 198 + Me.InsertScatterChartBarItem1.Name = "InsertScatterChartBarItem1" + ' + 'ConvertToPivotBarItem2 + ' + Me.ConvertToPivotBarItem2.Id = -1 + Me.ConvertToPivotBarItem2.Name = "ConvertToPivotBarItem2" + ' + 'ConvertToGridBarItem2 + ' + Me.ConvertToGridBarItem2.Id = -1 + Me.ConvertToGridBarItem2.Name = "ConvertToGridBarItem2" + ' + 'ConvertToChartBarItem2 + ' + Me.ConvertToChartBarItem2.Id = -1 + Me.ConvertToChartBarItem2.Name = "ConvertToChartBarItem2" + ' + 'ConvertToScatterChartBarItem1 + ' + Me.ConvertToScatterChartBarItem1.Id = 199 + Me.ConvertToScatterChartBarItem1.Name = "ConvertToScatterChartBarItem1" + ' + 'ConvertToPieBarItem2 + ' + Me.ConvertToPieBarItem2.Id = -1 + Me.ConvertToPieBarItem2.Name = "ConvertToPieBarItem2" + ' + 'ConvertToGaugeBarItem2 + ' + Me.ConvertToGaugeBarItem2.Id = -1 + Me.ConvertToGaugeBarItem2.Name = "ConvertToGaugeBarItem2" + ' + 'ConvertToCardBarItem2 + ' + Me.ConvertToCardBarItem2.Id = -1 + Me.ConvertToCardBarItem2.Name = "ConvertToCardBarItem2" + ' + 'ConvertToChoroplethMapBarItem2 + ' + Me.ConvertToChoroplethMapBarItem2.Id = -1 + Me.ConvertToChoroplethMapBarItem2.Name = "ConvertToChoroplethMapBarItem2" + ' + 'ConvertGeoPointMapBaseBarItem2 + ' + Me.ConvertGeoPointMapBaseBarItem2.Id = -1 + Me.ConvertGeoPointMapBaseBarItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToGeoPointMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToBubbleMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToPieMapBarItem1)}) + Me.ConvertGeoPointMapBaseBarItem2.Name = "ConvertGeoPointMapBaseBarItem2" + ' + 'ConvertToGeoPointMapBarItem2 + ' + Me.ConvertToGeoPointMapBarItem2.Id = -1 + Me.ConvertToGeoPointMapBarItem2.Name = "ConvertToGeoPointMapBarItem2" + ' + 'ConvertToBubbleMapBarItem2 + ' + Me.ConvertToBubbleMapBarItem2.Id = -1 + Me.ConvertToBubbleMapBarItem2.Name = "ConvertToBubbleMapBarItem2" + ' + 'ConvertToPieMapBarItem2 + ' + Me.ConvertToPieMapBarItem2.Id = -1 + Me.ConvertToPieMapBarItem2.Name = "ConvertToPieMapBarItem2" + ' + 'ConvertToRangeFilterBarItem2 + ' + Me.ConvertToRangeFilterBarItem2.Id = -1 + Me.ConvertToRangeFilterBarItem2.Name = "ConvertToRangeFilterBarItem2" + ' + 'ConvertToFilterElementsBaseBarItem1 + ' + Me.ConvertToFilterElementsBaseBarItem1.Id = 200 + Me.ConvertToFilterElementsBaseBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToComboBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToListBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToTreeViewBarItem1)}) + Me.ConvertToFilterElementsBaseBarItem1.Name = "ConvertToFilterElementsBaseBarItem1" + ' + 'ConvertToComboBoxBarItem2 + ' + Me.ConvertToComboBoxBarItem2.Id = -1 + Me.ConvertToComboBoxBarItem2.Name = "ConvertToComboBoxBarItem2" + ' + 'ConvertToListBoxBarItem2 + ' + Me.ConvertToListBoxBarItem2.Id = -1 + Me.ConvertToListBoxBarItem2.Name = "ConvertToListBoxBarItem2" + ' + 'ConvertToTreeViewBarItem2 + ' + Me.ConvertToTreeViewBarItem2.Id = -1 + Me.ConvertToTreeViewBarItem2.Name = "ConvertToTreeViewBarItem2" + ' + 'DashboardAutomaticUpdatesBarItem1 + ' + Me.DashboardAutomaticUpdatesBarItem1.Id = 201 + Me.DashboardAutomaticUpdatesBarItem1.Name = "DashboardAutomaticUpdatesBarItem1" + ' + 'UpdateDataBarItem1 + ' + Me.UpdateDataBarItem1.Id = 202 + Me.UpdateDataBarItem1.Name = "UpdateDataBarItem1" + ' + 'ScatterChartToolsBar1 + ' + Me.ScatterChartToolsBar1.Control = Me.DashboardDesigner1 + Me.ScatterChartToolsBar1.DockCol = 3 + Me.ScatterChartToolsBar1.DockRow = 0 + Me.ScatterChartToolsBar1.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.ScatterChartToolsBar1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ClearFilterBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.MasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.MultipleValuesMasterFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DrillDownBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.CrossDataSourceFilteringBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.IgnoreMasterFiltersBarItem1), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.ShowItemCaptionBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.EditItemNamesBarItem1, DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu), New DevExpress.XtraBars.LinkPersistInfo(Me.ScatterChartRotateBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ScatterChartXAxisSettingsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ScatterChartYAxisSettingsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ScatterChartPointLabelOptionsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ScatterChartShowLegendBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.GalleryScatterChartLegendPositionItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseGlobalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.UseLocalColorsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.EditActualColorsBarItem1)}) + Me.ScatterChartToolsBar1.Visible = False + ' + 'ChartTargetDimensionsPointsBarItem1 + ' + Me.ChartTargetDimensionsPointsBarItem1.Id = 203 + Me.ChartTargetDimensionsPointsBarItem1.Name = "ChartTargetDimensionsPointsBarItem1" + ' + 'PieTargetDimensionsPointsBarItem1 + ' + Me.PieTargetDimensionsPointsBarItem1.Id = 204 + Me.PieTargetDimensionsPointsBarItem1.Name = "PieTargetDimensionsPointsBarItem1" + ' + 'ScatterChartRotateBarItem1 + ' + Me.ScatterChartRotateBarItem1.Id = 205 + Me.ScatterChartRotateBarItem1.Name = "ScatterChartRotateBarItem1" + ' + 'ScatterChartXAxisSettingsBarItem1 + ' + Me.ScatterChartXAxisSettingsBarItem1.Id = 206 + Me.ScatterChartXAxisSettingsBarItem1.Name = "ScatterChartXAxisSettingsBarItem1" + ' + 'ScatterChartYAxisSettingsBarItem1 + ' + Me.ScatterChartYAxisSettingsBarItem1.Id = 207 + Me.ScatterChartYAxisSettingsBarItem1.Name = "ScatterChartYAxisSettingsBarItem1" + ' + 'ScatterChartPointLabelOptionsBarItem1 + ' + Me.ScatterChartPointLabelOptionsBarItem1.Id = 208 + Me.ScatterChartPointLabelOptionsBarItem1.Name = "ScatterChartPointLabelOptionsBarItem1" + ' + 'ScatterChartShowLegendBarItem1 + ' + Me.ScatterChartShowLegendBarItem1.Id = 209 + Me.ScatterChartShowLegendBarItem1.Name = "ScatterChartShowLegendBarItem1" + ' + 'GalleryScatterChartLegendPositionItem1 + ' + ' + ' + ' + Me.GalleryScatterChartLegendPositionItem1.Gallery.ColumnCount = 3 + GalleryItemGroup18.Caption = "Inside Horizontal" + GalleryItemGroup19.Caption = "Inside Vertical" + GalleryItemGroup20.Caption = "Outside Horizontal" + GalleryItemGroup21.Caption = "Outside Vertical" + Me.GalleryScatterChartLegendPositionItem1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup18, GalleryItemGroup19, GalleryItemGroup20, GalleryItemGroup21}) + Me.GalleryScatterChartLegendPositionItem1.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.GalleryScatterChartLegendPositionItem1.Gallery.RowCount = 8 + Me.GalleryScatterChartLegendPositionItem1.Id = 210 + Me.GalleryScatterChartLegendPositionItem1.Name = "GalleryScatterChartLegendPositionItem1" + ' + 'PivotShowTotalsBarItem1 + ' + Me.PivotShowTotalsBarItem1.Id = 211 + Me.PivotShowTotalsBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowColumnTotalsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowRowTotalsBarItem1)}) + Me.PivotShowTotalsBarItem1.Name = "PivotShowTotalsBarItem1" + Me.PivotShowTotalsBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PivotShowColumnTotalsBarItem1 + ' + Me.PivotShowColumnTotalsBarItem1.Id = 212 + Me.PivotShowColumnTotalsBarItem1.Name = "PivotShowColumnTotalsBarItem1" + ' + 'PivotShowRowTotalsBarItem1 + ' + Me.PivotShowRowTotalsBarItem1.Id = 213 + Me.PivotShowRowTotalsBarItem1.Name = "PivotShowRowTotalsBarItem1" + ' + 'PivotShowGrandTotalsBarItem1 + ' + Me.PivotShowGrandTotalsBarItem1.Id = 214 + Me.PivotShowGrandTotalsBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowColumnGrandTotalsBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PivotShowRowGrandTotalsBarItem1)}) + Me.PivotShowGrandTotalsBarItem1.Name = "PivotShowGrandTotalsBarItem1" + Me.PivotShowGrandTotalsBarItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PivotShowColumnGrandTotalsBarItem1 + ' + Me.PivotShowColumnGrandTotalsBarItem1.Id = 215 + Me.PivotShowColumnGrandTotalsBarItem1.Name = "PivotShowColumnGrandTotalsBarItem1" + ' + 'PivotShowRowGrandTotalsBarItem1 + ' + Me.PivotShowRowGrandTotalsBarItem1.Id = 216 + Me.PivotShowRowGrandTotalsBarItem1.Name = "PivotShowRowGrandTotalsBarItem1" + ' + 'AddCalculatedFieldBarItem1 + ' + Me.AddCalculatedFieldBarItem1.Id = 219 + Me.AddCalculatedFieldBarItem1.Name = "AddCalculatedFieldBarItem1" + ' + 'ConvertDashboardItemTypeBarItem1 + ' + Me.ConvertDashboardItemTypeBarItem1.Id = 217 + Me.ConvertDashboardItemTypeBarItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToPivotBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToGridBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToChartBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToScatterChartBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToPieBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToGaugeBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToCardBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToChoroplethMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertGeoPointMapBaseBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToRangeFilterBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToFilterElementsBaseBarItem1)}) + Me.ConvertDashboardItemTypeBarItem1.Name = "ConvertDashboardItemTypeBarItem1" + ' + 'ConvertToPivotBarItem3 + ' + Me.ConvertToPivotBarItem3.Id = -1 + Me.ConvertToPivotBarItem3.Name = "ConvertToPivotBarItem3" + ' + 'ConvertToGridBarItem3 + ' + Me.ConvertToGridBarItem3.Id = -1 + Me.ConvertToGridBarItem3.Name = "ConvertToGridBarItem3" + ' + 'ConvertToChartBarItem3 + ' + Me.ConvertToChartBarItem3.Id = -1 + Me.ConvertToChartBarItem3.Name = "ConvertToChartBarItem3" + ' + 'ConvertToScatterChartBarItem2 + ' + Me.ConvertToScatterChartBarItem2.Id = -1 + Me.ConvertToScatterChartBarItem2.Name = "ConvertToScatterChartBarItem2" + ' + 'ConvertToPieBarItem3 + ' + Me.ConvertToPieBarItem3.Id = -1 + Me.ConvertToPieBarItem3.Name = "ConvertToPieBarItem3" + ' + 'ConvertToGaugeBarItem3 + ' + Me.ConvertToGaugeBarItem3.Id = -1 + Me.ConvertToGaugeBarItem3.Name = "ConvertToGaugeBarItem3" + ' + 'ConvertToCardBarItem3 + ' + Me.ConvertToCardBarItem3.Id = -1 + Me.ConvertToCardBarItem3.Name = "ConvertToCardBarItem3" + ' + 'ConvertToChoroplethMapBarItem3 + ' + Me.ConvertToChoroplethMapBarItem3.Id = -1 + Me.ConvertToChoroplethMapBarItem3.Name = "ConvertToChoroplethMapBarItem3" + ' + 'ConvertGeoPointMapBaseBarItem3 + ' + Me.ConvertGeoPointMapBaseBarItem3.Id = -1 + Me.ConvertGeoPointMapBaseBarItem3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToGeoPointMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToBubbleMapBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToPieMapBarItem1)}) + Me.ConvertGeoPointMapBaseBarItem3.Name = "ConvertGeoPointMapBaseBarItem3" + ' + 'ConvertToGeoPointMapBarItem3 + ' + Me.ConvertToGeoPointMapBarItem3.Id = -1 + Me.ConvertToGeoPointMapBarItem3.Name = "ConvertToGeoPointMapBarItem3" + ' + 'ConvertToBubbleMapBarItem3 + ' + Me.ConvertToBubbleMapBarItem3.Id = -1 + Me.ConvertToBubbleMapBarItem3.Name = "ConvertToBubbleMapBarItem3" + ' + 'ConvertToPieMapBarItem3 + ' + Me.ConvertToPieMapBarItem3.Id = -1 + Me.ConvertToPieMapBarItem3.Name = "ConvertToPieMapBarItem3" + ' + 'ConvertToRangeFilterBarItem3 + ' + Me.ConvertToRangeFilterBarItem3.Id = -1 + Me.ConvertToRangeFilterBarItem3.Name = "ConvertToRangeFilterBarItem3" + ' + 'ConvertToFilterElementsBaseBarItem2 + ' + Me.ConvertToFilterElementsBaseBarItem2.Id = -1 + Me.ConvertToFilterElementsBaseBarItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToComboBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToListBoxBarItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ConvertToTreeViewBarItem1)}) + Me.ConvertToFilterElementsBaseBarItem2.Name = "ConvertToFilterElementsBaseBarItem2" + ' + 'ConvertToComboBoxBarItem3 + ' + Me.ConvertToComboBoxBarItem3.Id = -1 + Me.ConvertToComboBoxBarItem3.Name = "ConvertToComboBoxBarItem3" + ' + 'ConvertToListBoxBarItem3 + ' + Me.ConvertToListBoxBarItem3.Id = -1 + Me.ConvertToListBoxBarItem3.Name = "ConvertToListBoxBarItem3" + ' + 'ConvertToTreeViewBarItem3 + ' + Me.ConvertToTreeViewBarItem3.Id = -1 + Me.ConvertToTreeViewBarItem3.Name = "ConvertToTreeViewBarItem3" + ' + 'DashboardParametersBarItem1 + ' + Me.DashboardParametersBarItem1.Id = 218 + Me.DashboardParametersBarItem1.Name = "DashboardParametersBarItem1" + ' + 'DashboardDesignerUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.DashboardDesigner1) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "DashboardDesignerUserControl" + Me.Size = New System.Drawing.Size(851, 434) + CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DashboardPopupMenu1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DashboardBarController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DashboardDesigner1 As DevExpress.DashboardWin.DashboardDesigner + Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager + Friend WithEvents HomeBar1 As DevExpress.DashboardWin.Bars.HomeBar + Friend WithEvents FileNewBarItem1 As DevExpress.DashboardWin.Bars.FileNewBarItem + Friend WithEvents FileOpenBarItem1 As DevExpress.DashboardWin.Bars.FileOpenBarItem + Friend WithEvents FileSaveBarItem1 As DevExpress.DashboardWin.Bars.FileSaveBarItem + Friend WithEvents FileSaveAsBarItem1 As DevExpress.DashboardWin.Bars.FileSaveAsBarItem + Friend WithEvents UndoBarItem1 As DevExpress.DashboardWin.Bars.UndoBarItem + Friend WithEvents RedoBarItem1 As DevExpress.DashboardWin.Bars.RedoBarItem + Friend WithEvents InsertPivotBarItem1 As DevExpress.DashboardWin.Bars.InsertPivotBarItem + Friend WithEvents InsertGridBarItem1 As DevExpress.DashboardWin.Bars.InsertGridBarItem + Friend WithEvents InsertChartBarItem1 As DevExpress.DashboardWin.Bars.InsertChartBarItem + Friend WithEvents InsertPiesBarItem1 As DevExpress.DashboardWin.Bars.InsertPiesBarItem + Friend WithEvents InsertGaugesBarItem1 As DevExpress.DashboardWin.Bars.InsertGaugesBarItem + Friend WithEvents InsertCardsBarItem1 As DevExpress.DashboardWin.Bars.InsertCardsBarItem + Friend WithEvents InsertChoroplethMapBarItem1 As DevExpress.DashboardWin.Bars.InsertChoroplethMapBarItem + Friend WithEvents InsertRangeFilterBarItem1 As DevExpress.DashboardWin.Bars.InsertRangeFilterBarItem + Friend WithEvents InsertImageBarItem1 As DevExpress.DashboardWin.Bars.InsertImageBarItem + Friend WithEvents InsertTextBoxBarItem1 As DevExpress.DashboardWin.Bars.InsertTextBoxBarItem + Friend WithEvents DuplicateItemBarItem1 As DevExpress.DashboardWin.Bars.DuplicateItemBarItem + Friend WithEvents DeleteItemBarItem1 As DevExpress.DashboardWin.Bars.DeleteItemBarItem + Friend WithEvents DashboardTitleBarItem1 As DevExpress.DashboardWin.Bars.DashboardTitleBarItem + Friend WithEvents SetCurrencyCultureBarItem1 As DevExpress.DashboardWin.Bars.SetCurrencyCultureBarItem + Friend WithEvents DataSourceBar1 As DevExpress.DashboardWin.Bars.DataSourceBar + Friend WithEvents NewDataSourceBarItem1 As DevExpress.DashboardWin.Bars.NewDataSourceBarItem + Friend WithEvents DeleteDataSourceBarItem1 As DevExpress.DashboardWin.Bars.DeleteDataSourceBarItem + Friend WithEvents EditDataSourceFilterBarItem1 As DevExpress.DashboardWin.Bars.EditDataSourceFilterBarItem + Friend WithEvents ClearDataSourceFilterBarItem1 As DevExpress.DashboardWin.Bars.ClearDataSourceFilterBarItem + Friend WithEvents ViewBar1 As DevExpress.DashboardWin.Bars.ViewBar + Friend WithEvents DashboardSkinsBarItem1 As DevExpress.DashboardWin.Bars.DashboardSkinsBarItem + Friend WithEvents PivotToolsBar1 As DevExpress.DashboardWin.Bars.PivotToolsBar + Friend WithEvents EditFilterBarItem1 As DevExpress.DashboardWin.Bars.EditFilterBarItem + Friend WithEvents ClearFilterBarItem1 As DevExpress.DashboardWin.Bars.ClearFilterBarItem + Friend WithEvents IgnoreMasterFiltersBarItem1 As DevExpress.DashboardWin.Bars.IgnoreMasterFiltersBarItem + Friend WithEvents ShowItemCaptionBarItem1 As DevExpress.DashboardWin.Bars.ShowItemCaptionBarItem + Friend WithEvents EditItemNamesBarItem1 As DevExpress.DashboardWin.Bars.EditItemNamesBarItem + Friend WithEvents PivotInitialStateBarItem1 As DevExpress.DashboardWin.Bars.PivotInitialStateBarItem + Friend WithEvents PivotAutoExpandColumnBarItem1 As DevExpress.DashboardWin.Bars.PivotAutoExpandColumnBarItem + Friend WithEvents PivotAutoExpandRowBarItem1 As DevExpress.DashboardWin.Bars.PivotAutoExpandRowBarItem + Friend WithEvents GridToolsBar1 As DevExpress.DashboardWin.Bars.GridToolsBar + Friend WithEvents MasterFilterBarItem1 As DevExpress.DashboardWin.Bars.MasterFilterBarItem + Friend WithEvents MultipleValuesMasterFilterBarItem1 As DevExpress.DashboardWin.Bars.MultipleValuesMasterFilterBarItem + Friend WithEvents DrillDownBarItem1 As DevExpress.DashboardWin.Bars.DrillDownBarItem + Friend WithEvents CrossDataSourceFilteringBarItem1 As DevExpress.DashboardWin.Bars.CrossDataSourceFilteringBarItem + Friend WithEvents GridHorizontalLinesBarItem1 As DevExpress.DashboardWin.Bars.GridHorizontalLinesBarItem + Friend WithEvents GridVerticalLinesBarItem1 As DevExpress.DashboardWin.Bars.GridVerticalLinesBarItem + Friend WithEvents GridMergeCellsBarItem1 As DevExpress.DashboardWin.Bars.GridMergeCellsBarItem + Friend WithEvents GridBandedRowsBarItem1 As DevExpress.DashboardWin.Bars.GridBandedRowsBarItem + Friend WithEvents GridColumnHeadersBarItem1 As DevExpress.DashboardWin.Bars.GridColumnHeadersBarItem + Friend WithEvents ChartToolsBar1 As DevExpress.DashboardWin.Bars.ChartToolsBar + Friend WithEvents ChartTargetDimensionsArgumentsBarItem1 As DevExpress.DashboardWin.Bars.ChartTargetDimensionsArgumentsBarItem + Friend WithEvents ChartTargetDimensionsSeriesBarItem1 As DevExpress.DashboardWin.Bars.ChartTargetDimensionsSeriesBarItem + Friend WithEvents ChartRotateBarItem1 As DevExpress.DashboardWin.Bars.ChartRotateBarItem + Friend WithEvents ChartXAxisSettingsBarItem1 As DevExpress.DashboardWin.Bars.ChartXAxisSettingsBarItem + Friend WithEvents ChartYAxisSettingsBarItem1 As DevExpress.DashboardWin.Bars.ChartYAxisSettingsBarItem + Friend WithEvents ChartShowLegendBarItem1 As DevExpress.DashboardWin.Bars.ChartShowLegendBarItem + Friend WithEvents GalleryChartLegendPositionItem1 As DevExpress.DashboardWin.Bars.GalleryChartLegendPositionItem + Friend WithEvents GalleryChartSeriesTypeItem1 As DevExpress.DashboardWin.Bars.GalleryChartSeriesTypeItem + Friend WithEvents PiesToolsBar1 As DevExpress.DashboardWin.Bars.PiesToolsBar + Friend WithEvents PieTargetDimensionsArgumentsBarItem1 As DevExpress.DashboardWin.Bars.PieTargetDimensionsArgumentsBarItem + Friend WithEvents PieTargetDimensionsSeriesBarItem1 As DevExpress.DashboardWin.Bars.PieTargetDimensionsSeriesBarItem + Friend WithEvents ContentAutoArrangeBarItem1 As DevExpress.DashboardWin.Bars.ContentAutoArrangeBarItem + Friend WithEvents ContentArrangeInColumnsBarItem1 As DevExpress.DashboardWin.Bars.ContentArrangeInColumnsBarItem + Friend WithEvents ContentArrangeInRowsBarItem1 As DevExpress.DashboardWin.Bars.ContentArrangeInRowsBarItem + Friend WithEvents ContentArrangementCountBarItem1 As DevExpress.DashboardWin.Bars.ContentArrangementCountBarItem + Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit + Friend WithEvents PieLabelsDataLabelsBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsBarItem + Friend WithEvents PieLabelsDataLabelsNoneBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsNoneBarItem + Friend WithEvents PieLabelsDataLabelArgumentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelArgumentBarItem + Friend WithEvents PieLabelsDataLabelsValueBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsValueBarItem + Friend WithEvents PieLabelsDataLabelsArgumentAndValueBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentAndValueBarItem + Friend WithEvents PieLabelsDataLabelsPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsPercentBarItem + Friend WithEvents PieLabelsDataLabelsValueAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsValueAndPercentBarItem + Friend WithEvents PieLabelsDataLabelsArgumentAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentAndPercentBarItem + Friend WithEvents PieLabelsDataLabelsArgumentValueAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsDataLabelsArgumentValueAndPercentBarItem + Friend WithEvents PieTooltipsBarItem1 As DevExpress.DashboardWin.Bars.PieTooltipsBarItem + Friend WithEvents PieLabelsTooltipsNoneBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsNoneBarItem + Friend WithEvents PieLabelsTooltipsArgumentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentBarItem + Friend WithEvents PieLabelsTooltipsValueBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsValueBarItem + Friend WithEvents PieLabelsTooltipsArgumentAndValueBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentAndValueBarItem + Friend WithEvents PieLabelsTooltipsPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsPercentBarItem + Friend WithEvents PieLabelsTooltipsValueAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsValueAndPercentBarItem + Friend WithEvents PieLabelsTooltipsArgumentAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentAndPercentBarItem + Friend WithEvents PieLabelsTooltipsArgumentValueAndPercentBarItem1 As DevExpress.DashboardWin.Bars.PieLabelsTooltipsArgumentValueAndPercentBarItem + Friend WithEvents PieStylePieBarItem1 As DevExpress.DashboardWin.Bars.PieStylePieBarItem + Friend WithEvents PieStyleDonutBarItem1 As DevExpress.DashboardWin.Bars.PieStyleDonutBarItem + Friend WithEvents PieShowCaptionsBarItem1 As DevExpress.DashboardWin.Bars.PieShowCaptionsBarItem + Friend WithEvents GaugesToolsBar1 As DevExpress.DashboardWin.Bars.GaugesToolsBar + Friend WithEvents GaugeStyleFullCircularBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleFullCircularBarItem + Friend WithEvents GaugeStyleHalfCircularBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleHalfCircularBarItem + Friend WithEvents GaugeStyleLeftQuarterCircularBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleLeftQuarterCircularBarItem + Friend WithEvents GaugeStyleRightQuarterCircularBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleRightQuarterCircularBarItem + Friend WithEvents GaugeStyleThreeForthCircularBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleThreeForthCircularBarItem + Friend WithEvents GaugeStyleLinearHorizontalBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleLinearHorizontalBarItem + Friend WithEvents GaugeStyleLinearVerticalBarItem1 As DevExpress.DashboardWin.Bars.GaugeStyleLinearVerticalBarItem + Friend WithEvents GaugeShowCaptionsBarItem1 As DevExpress.DashboardWin.Bars.GaugeShowCaptionsBarItem + Friend WithEvents CardsToolsBar1 As DevExpress.DashboardWin.Bars.CardsToolsBar + Friend WithEvents RangeFilterToolsBar1 As DevExpress.DashboardWin.Bars.RangeFilterToolsBar + Friend WithEvents RangeFilterLineSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterLineSeriesTypeBarItem + Friend WithEvents RangeFilterStackedLineSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterStackedLineSeriesTypeBarItem + Friend WithEvents RangeFilterFullStackedLineSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterFullStackedLineSeriesTypeBarItem + Friend WithEvents RangeFilterAreaSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterAreaSeriesTypeBarItem + Friend WithEvents RangeFilterStackedAreaSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterStackedAreaSeriesTypeBarItem + Friend WithEvents RangeFilterFullStackedAreaSeriesTypeBarItem1 As DevExpress.DashboardWin.Bars.RangeFilterFullStackedAreaSeriesTypeBarItem + Friend WithEvents MapToolsBar1 As DevExpress.DashboardWin.Bars.MapToolsBar + Friend WithEvents MapShowLegendBarItem1 As DevExpress.DashboardWin.Bars.MapShowLegendBarItem + Friend WithEvents GalleryMapLegendPositionItem1 As DevExpress.DashboardWin.Bars.GalleryMapLegendPositionItem + Friend WithEvents MapLoadBarItem1 As DevExpress.DashboardWin.Bars.MapLoadBarItem + Friend WithEvents MapImportBarItem1 As DevExpress.DashboardWin.Bars.MapImportBarItem + Friend WithEvents MapDefaultShapefileBarItem1 As DevExpress.DashboardWin.Bars.MapDefaultShapefileBarItem + Friend WithEvents MapWorldCountriesBarItem1 As DevExpress.DashboardWin.Bars.MapWorldCountriesBarItem + Friend WithEvents MapEuropeBarItem1 As DevExpress.DashboardWin.Bars.MapEuropeBarItem + Friend WithEvents MapAsiaBarItem1 As DevExpress.DashboardWin.Bars.MapAsiaBarItem + Friend WithEvents MapNorthAmericaBarItem1 As DevExpress.DashboardWin.Bars.MapNorthAmericaBarItem + Friend WithEvents MapSouthAmericaBarItem1 As DevExpress.DashboardWin.Bars.MapSouthAmericaBarItem + Friend WithEvents MapAfricaBarItem1 As DevExpress.DashboardWin.Bars.MapAfricaBarItem + Friend WithEvents MapUSABarItem1 As DevExpress.DashboardWin.Bars.MapUSABarItem + Friend WithEvents MapCanadaBarItem1 As DevExpress.DashboardWin.Bars.MapCanadaBarItem + Friend WithEvents ImageToolsBar1 As DevExpress.DashboardWin.Bars.ImageToolsBar + Friend WithEvents ImageLoadBarItem1 As DevExpress.DashboardWin.Bars.ImageLoadBarItem + Friend WithEvents ImageImportBarItem1 As DevExpress.DashboardWin.Bars.ImageImportBarItem + Friend WithEvents ImageSizeModeClipBarItem1 As DevExpress.DashboardWin.Bars.ImageSizeModeClipBarItem + Friend WithEvents ImageSizeModeStretchBarItem1 As DevExpress.DashboardWin.Bars.ImageSizeModeStretchBarItem + Friend WithEvents ImageSizeModeSqueezeBarItem1 As DevExpress.DashboardWin.Bars.ImageSizeModeSqueezeBarItem + Friend WithEvents ImageSizeModeZoomBarItem1 As DevExpress.DashboardWin.Bars.ImageSizeModeZoomBarItem + Friend WithEvents ImageAlignmentTopLeftBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentTopLeftBarItem + Friend WithEvents ImageAlignmentCenterLeftBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentCenterLeftBarItem + Friend WithEvents ImageAlignmentBottomLeftBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentBottomLeftBarItem + Friend WithEvents ImageAlignmentTopCenterBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentTopCenterBarItem + Friend WithEvents ImageAlignmentCenterCenterBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentCenterCenterBarItem + Friend WithEvents ImageAlignmentBottomCenterBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentBottomCenterBarItem + Friend WithEvents ImageAlignmentTopRightBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentTopRightBarItem + Friend WithEvents ImageAlignmentCenterRightBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentCenterRightBarItem + Friend WithEvents ImageAlignmentBottomRightBarItem1 As DevExpress.DashboardWin.Bars.ImageAlignmentBottomRightBarItem + Friend WithEvents TextBoxToolsBar1 As DevExpress.DashboardWin.Bars.TextBoxToolsBar + Friend WithEvents TextBoxEditTextBarItem1 As DevExpress.DashboardWin.Bars.TextBoxEditTextBarItem + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents DashboardBarController1 As DevExpress.DashboardWin.Bars.DashboardBarController + Friend WithEvents InsertGeoPointMapBarSubItem1 As DevExpress.DashboardWin.Bars.InsertGeoPointMapBarSubItem + Friend WithEvents InsertGeoPointMapBarItem1 As DevExpress.DashboardWin.Bars.InsertGeoPointMapBarItem + Friend WithEvents InsertBubbleMapBarItem1 As DevExpress.DashboardWin.Bars.InsertBubbleMapBarItem + Friend WithEvents InsertPieMapBarItem1 As DevExpress.DashboardWin.Bars.InsertPieMapBarItem + Friend WithEvents InsertFilterElementSubItem1 As DevExpress.DashboardWin.Bars.InsertFilterElementSubItem + Friend WithEvents InsertComboBoxBarItem1 As DevExpress.DashboardWin.Bars.InsertComboBoxBarItem + Friend WithEvents InsertListBoxBarItem1 As DevExpress.DashboardWin.Bars.InsertListBoxBarItem + Friend WithEvents InsertTreeViewBarItem1 As DevExpress.DashboardWin.Bars.InsertTreeViewBarItem + Friend WithEvents InsertGroupBarItem1 As DevExpress.DashboardWin.Bars.InsertGroupBarItem + Friend WithEvents ConvertToPivotBarItem1 As DevExpress.DashboardWin.Bars.ConvertToPivotBarItem + Friend WithEvents ConvertToGridBarItem1 As DevExpress.DashboardWin.Bars.ConvertToGridBarItem + Friend WithEvents ConvertToChartBarItem1 As DevExpress.DashboardWin.Bars.ConvertToChartBarItem + Friend WithEvents ConvertToPieBarItem1 As DevExpress.DashboardWin.Bars.ConvertToPieBarItem + Friend WithEvents ConvertToGaugeBarItem1 As DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem + Friend WithEvents ConvertToCardBarItem1 As DevExpress.DashboardWin.Bars.ConvertToCardBarItem + Friend WithEvents ConvertToChoroplethMapBarItem1 As DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem + Friend WithEvents ConvertGeoPointMapBaseBarItem1 As DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem + Friend WithEvents ConvertToGeoPointMapBarItem1 As DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem + Friend WithEvents ConvertToBubbleMapBarItem1 As DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem + Friend WithEvents ConvertToPieMapBarItem1 As DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem + Friend WithEvents ConvertToRangeFilterBarItem1 As DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem + Friend WithEvents ConvertToComboBoxBarItem1 As DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem + Friend WithEvents ConvertToListBoxBarItem1 As DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem + Friend WithEvents ConvertToTreeViewBarItem1 As DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem + Friend WithEvents RemoveDataItemsBarItem1 As DevExpress.DashboardWin.Bars.RemoveDataItemsBarItem + Friend WithEvents TransposeItemBarItem1 As DevExpress.DashboardWin.Bars.TransposeItemBarItem + Friend WithEvents EditRulesBarItem1 As DevExpress.DashboardWin.Bars.EditRulesBarItem + Friend WithEvents DeleteGroupBarItem1 As DevExpress.DashboardWin.Bars.DeleteGroupBarItem + Friend WithEvents DashboardColorSchemeBarItem1 As DevExpress.DashboardWin.Bars.DashboardColorSchemeBarItem + Friend WithEvents EditSqlConnectionBarItem1 As DevExpress.DashboardWin.Bars.EditSqlConnectionBarItem + Friend WithEvents EditOlapConnectionBarItem1 As DevExpress.DashboardWin.Bars.EditOlapConnectionBarItem + Friend WithEvents EditObjectDataSourceBarItem1 As DevExpress.DashboardWin.Bars.EditObjectDataSourceBarItem + Friend WithEvents EditEFDataSourceBarItem1 As DevExpress.DashboardWin.Bars.EditEFDataSourceBarItem + Friend WithEvents RenameDataSourceBarItem1 As DevExpress.DashboardWin.Bars.RenameDataSourceBarItem + Friend WithEvents ServerModeBarItem1 As DevExpress.DashboardWin.Bars.ServerModeBarItem + Friend WithEvents GridWordWrapBarItem1 As DevExpress.DashboardWin.Bars.GridWordWrapBarItem + Friend WithEvents GridAutoFitToContentsColumnWidthModeBarItem1 As DevExpress.DashboardWin.Bars.GridAutoFitToContentsColumnWidthModeBarItem + Friend WithEvents GridAutoFitToGridColumnWidthModeBarItem1 As DevExpress.DashboardWin.Bars.GridAutoFitToGridColumnWidthModeBarItem + Friend WithEvents ManualGridColumnWidthModeBarItem1 As DevExpress.DashboardWin.Bars.ManualGridColumnWidthModeBarItem + Friend WithEvents UseGlobalColorsBarItem1 As DevExpress.DashboardWin.Bars.UseGlobalColorsBarItem + Friend WithEvents UseLocalColorsBarItem1 As DevExpress.DashboardWin.Bars.UseLocalColorsBarItem + Friend WithEvents EditActualColorsBarItem1 As DevExpress.DashboardWin.Bars.EditActualColorsBarItem + Friend WithEvents ChoroplethMapToolsBar1 As DevExpress.DashboardWin.Bars.ChoroplethMapToolsBar + Friend WithEvents MapLockNavigationBarItem1 As DevExpress.DashboardWin.Bars.MapLockNavigationBarItem + Friend WithEvents MapFullExtentBarItem1 As DevExpress.DashboardWin.Bars.MapFullExtentBarItem + Friend WithEvents ChoroplethMapShapeLabelsAttributeBarItem1 As DevExpress.DashboardWin.Bars.ChoroplethMapShapeLabelsAttributeBarItem + Friend WithEvents GeoPointMapToolsBar1 As DevExpress.DashboardWin.Bars.GeoPointMapToolsBar + Friend WithEvents GeoPointMapClusterizationBarItem1 As DevExpress.DashboardWin.Bars.GeoPointMapClusterizationBarItem + Friend WithEvents MapShapeTitleAttributeBarItem1 As DevExpress.DashboardWin.Bars.MapShapeTitleAttributeBarItem + Friend WithEvents BubbleMapToolsBar1 As DevExpress.DashboardWin.Bars.BubbleMapToolsBar + Friend WithEvents ChangeWeightedLegendTypeBarItem1 As DevExpress.DashboardWin.Bars.ChangeWeightedLegendTypeBarItem + Friend WithEvents WeightedLegendNoneBarItem1 As DevExpress.DashboardWin.Bars.WeightedLegendNoneBarItem + Friend WithEvents WeightedLegendLinearBarItem1 As DevExpress.DashboardWin.Bars.WeightedLegendLinearBarItem + Friend WithEvents WeightedLegendNestedBarItem1 As DevExpress.DashboardWin.Bars.WeightedLegendNestedBarItem + Friend WithEvents GalleryWeightedLegendPositionItem1 As DevExpress.DashboardWin.Bars.GalleryWeightedLegendPositionItem + Friend WithEvents PieMapToolsBar1 As DevExpress.DashboardWin.Bars.PieMapToolsBar + Friend WithEvents PieMapIsWeightedBarItem1 As DevExpress.DashboardWin.Bars.PieMapIsWeightedBarItem + Friend WithEvents FilterElementToolsBar1 As DevExpress.DashboardWin.Bars.FilterElementToolsBar + Friend WithEvents ComboBoxStandardTypeBarItem1 As DevExpress.DashboardWin.Bars.ComboBoxStandardTypeBarItem + Friend WithEvents ComboBoxCheckedTypeBarItem1 As DevExpress.DashboardWin.Bars.ComboBoxCheckedTypeBarItem + Friend WithEvents ListBoxCheckedTypeBarItem1 As DevExpress.DashboardWin.Bars.ListBoxCheckedTypeBarItem + Friend WithEvents ListBoxRadioTypeBarItem1 As DevExpress.DashboardWin.Bars.ListBoxRadioTypeBarItem + Friend WithEvents TreeViewAutoExpandBarItem1 As DevExpress.DashboardWin.Bars.TreeViewAutoExpandBarItem + Friend WithEvents FilterElementShowAllValueBarItem1 As DevExpress.DashboardWin.Bars.FilterElementShowAllValueBarItem + Friend WithEvents GroupToolsBar1 As DevExpress.DashboardWin.Bars.GroupToolsBar + Friend WithEvents GroupMasterFilterBarItem1 As DevExpress.DashboardWin.Bars.GroupMasterFilterBarItem + Friend WithEvents GroupIgnoreMasterFilterBarItem1 As DevExpress.DashboardWin.Bars.GroupIgnoreMasterFilterBarItem + Friend WithEvents DashboardPopupMenu1 As DevExpress.DashboardWin.DashboardPopupMenu + Friend WithEvents BarAndDockingController1 As DevExpress.XtraBars.BarAndDockingController + Friend WithEvents InsertScatterChartBarItem1 As DevExpress.DashboardWin.Bars.InsertScatterChartBarItem + Friend WithEvents DashboardAutomaticUpdatesBarItem1 As DevExpress.DashboardWin.Bars.DashboardAutomaticUpdatesBarItem + Friend WithEvents UpdateDataBarItem1 As DevExpress.DashboardWin.Bars.UpdateDataBarItem + Friend WithEvents ConvertDashboardItemTypeBarItem1 As DevExpress.DashboardWin.Bars.ConvertDashboardItemTypeBarItem + Friend WithEvents ConvertToScatterChartBarItem1 As DevExpress.DashboardWin.Bars.ConvertToScatterChartBarItem + Friend WithEvents ConvertToFilterElementsBaseBarItem1 As DevExpress.DashboardWin.Bars.ConvertToFilterElementsBaseBarItem + Friend WithEvents DashboardParametersBarItem1 As DevExpress.DashboardWin.Bars.DashboardParametersBarItem + Friend WithEvents EditExcelDataSourceBarItem1 As DevExpress.DashboardWin.Bars.EditExcelDataSourceBarItem + Friend WithEvents AddQueryBarItem1 As DevExpress.DashboardWin.Bars.AddQueryBarItem + Friend WithEvents EditQueryBarItem1 As DevExpress.DashboardWin.Bars.EditQueryBarItem + Friend WithEvents RenameQueryBarItem1 As DevExpress.DashboardWin.Bars.RenameQueryBarItem + Friend WithEvents EditQueryFilterBarItem1 As DevExpress.DashboardWin.Bars.EditQueryFilterBarItem + Friend WithEvents DeleteQueryBarItem1 As DevExpress.DashboardWin.Bars.DeleteQueryBarItem + Friend WithEvents AddCalculatedFieldBarItem1 As DevExpress.DashboardWin.Bars.AddCalculatedFieldBarItem + Friend WithEvents PivotShowTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowTotalsBarItem + Friend WithEvents PivotShowColumnTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowColumnTotalsBarItem + Friend WithEvents PivotShowRowTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowRowTotalsBarItem + Friend WithEvents PivotShowGrandTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowGrandTotalsBarItem + Friend WithEvents PivotShowColumnGrandTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowColumnGrandTotalsBarItem + Friend WithEvents PivotShowRowGrandTotalsBarItem1 As DevExpress.DashboardWin.Bars.PivotShowRowGrandTotalsBarItem + Friend WithEvents ChartTargetDimensionsPointsBarItem1 As DevExpress.DashboardWin.Bars.ChartTargetDimensionsPointsBarItem + Friend WithEvents PieTargetDimensionsPointsBarItem1 As DevExpress.DashboardWin.Bars.PieTargetDimensionsPointsBarItem + Friend WithEvents ScatterChartToolsBar1 As DevExpress.DashboardWin.Bars.ScatterChartToolsBar + Friend WithEvents ScatterChartRotateBarItem1 As DevExpress.DashboardWin.Bars.ScatterChartRotateBarItem + Friend WithEvents ScatterChartXAxisSettingsBarItem1 As DevExpress.DashboardWin.Bars.ScatterChartXAxisSettingsBarItem + Friend WithEvents ScatterChartYAxisSettingsBarItem1 As DevExpress.DashboardWin.Bars.ScatterChartYAxisSettingsBarItem + Friend WithEvents ScatterChartPointLabelOptionsBarItem1 As DevExpress.DashboardWin.Bars.ScatterChartPointLabelOptionsBarItem + Friend WithEvents ScatterChartShowLegendBarItem1 As DevExpress.DashboardWin.Bars.ScatterChartShowLegendBarItem + Friend WithEvents GalleryScatterChartLegendPositionItem1 As DevExpress.DashboardWin.Bars.GalleryScatterChartLegendPositionItem + Friend WithEvents ConvertToPivotBarItem2 As DevExpress.DashboardWin.Bars.ConvertToPivotBarItem + Friend WithEvents ConvertToGridBarItem2 As DevExpress.DashboardWin.Bars.ConvertToGridBarItem + Friend WithEvents ConvertToChartBarItem2 As DevExpress.DashboardWin.Bars.ConvertToChartBarItem + Friend WithEvents ConvertToPieBarItem2 As DevExpress.DashboardWin.Bars.ConvertToPieBarItem + Friend WithEvents ConvertToGaugeBarItem2 As DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem + Friend WithEvents ConvertToCardBarItem2 As DevExpress.DashboardWin.Bars.ConvertToCardBarItem + Friend WithEvents ConvertToChoroplethMapBarItem2 As DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem + Friend WithEvents ConvertGeoPointMapBaseBarItem2 As DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem + Friend WithEvents ConvertToGeoPointMapBarItem2 As DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem + Friend WithEvents ConvertToBubbleMapBarItem2 As DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem + Friend WithEvents ConvertToPieMapBarItem2 As DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem + Friend WithEvents ConvertToRangeFilterBarItem2 As DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem + Friend WithEvents ConvertToComboBoxBarItem2 As DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem + Friend WithEvents ConvertToListBoxBarItem2 As DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem + Friend WithEvents ConvertToTreeViewBarItem2 As DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem + Friend WithEvents ConvertToPivotBarItem3 As DevExpress.DashboardWin.Bars.ConvertToPivotBarItem + Friend WithEvents ConvertToGridBarItem3 As DevExpress.DashboardWin.Bars.ConvertToGridBarItem + Friend WithEvents ConvertToChartBarItem3 As DevExpress.DashboardWin.Bars.ConvertToChartBarItem + Friend WithEvents ConvertToScatterChartBarItem2 As DevExpress.DashboardWin.Bars.ConvertToScatterChartBarItem + Friend WithEvents ConvertToPieBarItem3 As DevExpress.DashboardWin.Bars.ConvertToPieBarItem + Friend WithEvents ConvertToGaugeBarItem3 As DevExpress.DashboardWin.Bars.ConvertToGaugeBarItem + Friend WithEvents ConvertToCardBarItem3 As DevExpress.DashboardWin.Bars.ConvertToCardBarItem + Friend WithEvents ConvertToChoroplethMapBarItem3 As DevExpress.DashboardWin.Bars.ConvertToChoroplethMapBarItem + Friend WithEvents ConvertGeoPointMapBaseBarItem3 As DevExpress.DashboardWin.Bars.ConvertGeoPointMapBaseBarItem + Friend WithEvents ConvertToGeoPointMapBarItem3 As DevExpress.DashboardWin.Bars.ConvertToGeoPointMapBarItem + Friend WithEvents ConvertToBubbleMapBarItem3 As DevExpress.DashboardWin.Bars.ConvertToBubbleMapBarItem + Friend WithEvents ConvertToPieMapBarItem3 As DevExpress.DashboardWin.Bars.ConvertToPieMapBarItem + Friend WithEvents ConvertToRangeFilterBarItem3 As DevExpress.DashboardWin.Bars.ConvertToRangeFilterBarItem + Friend WithEvents ConvertToFilterElementsBaseBarItem2 As DevExpress.DashboardWin.Bars.ConvertToFilterElementsBaseBarItem + Friend WithEvents ConvertToComboBoxBarItem3 As DevExpress.DashboardWin.Bars.ConvertToComboBoxBarItem + Friend WithEvents ConvertToListBoxBarItem3 As DevExpress.DashboardWin.Bars.ConvertToListBoxBarItem + Friend WithEvents ConvertToTreeViewBarItem3 As DevExpress.DashboardWin.Bars.ConvertToTreeViewBarItem + +End Class diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.resx b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.resx new file mode 100644 index 0000000..4814d59 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.resx @@ -0,0 +1,1750 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 214, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABJGSURBVGhDzZoHcFzndYWVWLJkR5EsS5YtW47EKJJiS1E0 + 8iTxZJJxJtEMnTEztmzFjhRRCsXeG9gAguiFBIjeid4Boi76ouyiEguABSQIVhCNnWjbF/Xk3Le7EMAm + W5YmeTOHb/e93fe+e//z3/++BR/5Erc/+QP1/2Jzwvwp9TWHHnPo6/eR89yjlHxWvvd/EsxC6Mdy0nJe + qymq+6ihVHuoobRRVVfSeKauRHO7trhhSl1YN1WTU3u7IqvyTGlquepoYlFwZkzO8sD9oT/idx+X7zuu + 40zGV7o5wR/19/d/traw/mNNeVOmtqLpWmNZC7SlTWgo1qKusAHq/DpU59WiMrsG5ZlVUKVXoCSlDEXJ + pSg4Uoy8uKPX0sIys6P9j6z46L11z/OaMkLOQL6STS78tT179jytLqpbp1E11TeV26Eby5pxsqUbl870 + 4frgTUyM6GGz2DA7M6vIYrBi9NoYBnuH0N3SA01JE/LjCpERnoO00CzEH0zShLlHbPrVv/3qWd5j4Yh8 + KZsz64+pMlX/Xl9Uf1SrakZDSSM6Ncdxpbcf+lEDMAe7Zu/VnHUOs0YGQ82Z7fs7V+7glLYbtBUSApIR + 55eE0P1RRV7bfP+D93qCknnyRwehZJ16vCy7eqe6QHO5rlCD9lodBs4PKlmeB18IP7NA0zxkIPTojKIZ + 0YhjPzYDw7ARJ+q7kR2Zjwj3GAS5RvR5bvXdw3v+GSWjIcn7QpsCv2/zvu+UZVUE1eTXTtfQ02c7e6Ef + e3jGP4Ofwxw1S9CZ29TNacxcp65OY3qYGqKuTmGax2/03IQ6ux5Bu8MQsCt4xn2DV9jSf176Ahm+UBDz + 8MVpqsiqXDVqOTH7aJcHQosc4HMzdnBFU3PMOKHv2DV9wwE9NIWpS9R5qncSUxd5bGAa7cU6hLlFw3fr + Iexd5R737j+++32yyAT/ve3ktM0TRxMLg8syKqEuqMfgpaH7Z/1+0A7wuUnKOsvsE/oWAW9Q1ykGMHWV + 0INU3yQmL9gw2WOD7YQNU+cmcbz4JEL3RsFzgx9clu8JJ8tTlIzE7xWEDNfjGVFZu4pSSqcrsqoxcGFw + MbQDXIG+K9vzEnibTN4ZWsQOPnXNAT5E9RP8CsEv22U7b4XtDHXKislzNnTmdyFwazD2r/aY2fi7rW5k + epL63IktJ78eczBhWW5cfl9+fCHOn7poz7pkmuD3QN+tu4KQCTwtIyABEHzSCd5H6EsO8HNWWAlvPU11 + W2A5aYGNo6JNb8K+Tz04Cm79nyxb/RuyfYN64HxQrLPsZ8ueSw7NLMqOzoeuoQtzswS5H7QAct+m1qG1 + 5hhaq4+hpaoNzZVtaKpohawRjVSzqhVdVSdwRdcPU7+RIzDFACYJ6ADvsRCc6jbbxfdy3HTKiL76PsTs + P6IEse2/d5e9/sPXHzofJLInInxjtsgCo8qowMjN0YdbhMdC3aIQsi8SwXvDlQpyaFcoAnceRsD2YPhv + C4LvloOKQvZG4ohfKipTajCkG1JGQYE/JeCE5kgYThtwprwHxREqxLon4uC2EAXeqdW/2ehCRrGSzNFF + m0T06HtL33shxi+hMTkoHWc6ej6DXwjt8PacjYsSXz8I2mdzILw2BnAi+sNjvR8OrPOF+1of7F/jjYPb + Q9CY3QzbRVqI2b7TOYL6VA0i9sbCe0PgIuiF2vbhnta3XntrCVnvGQUl+4G7D62WVbEoRQWT3rwY2gnO + VVUqyyxXVHkfsMMBzbLnRx2UQHYchj+D8doUoIALtNsqL7iu9KTsMO5rfFAcpYImTatkWs7fDbx/tbcS + VMHhYhzeGaEc+/SXazaT9Z5RkDdPhriF50d7J6BTe9ye+fls28FnLQQXSTtgYgCWOSXT3gT12uiPxMBU + DJ8dxvjQOEYHRnH1zDX01p9Dc14r4r2ScWCt7z2QEtTdx7zWB6AgpBhnS3thaNfD1GWEOq5OObflv3aU + kNXZMymbDMVjq/5z1duhrtE3YhjAzaFbCvysZFrkhHb0MVIaZwxsDfhearXTHinBGdBf1durzh1WnYFJ + x6S0T8xu1el7fL1QAVuCURyqQn9lP8ydJpiaDDDUTMCoNaCvsg8ea/2w+xPXW+/+/c9/Smbpl5SKJP98 + Y+969zWH90WgILHEDr8g04oc0DN6aoIaZwAske60x/7VXrSApzICE4PjyoIlNd921gqLzgTzMZNSJnvL + z81bYaEELMc/H/0VBG83wVCnx4RKD0PlBPQMQF81DrPOiESPVOXznyxbuYXMf04pNpIAnnRb7x150IWT + i329WMaebULeA86WYJRiezDL9wstcMQ/FeNXxu0LFldZ8wkzTIS3sMq0pLXCc53//GedCnOJxvH0kzBr + CF5mhL6AwKoJTBB+omQcE2Xj0FfaA6iIqlK+s+79zQlkfoaShU2J4mn3Db41Mgl72s/a4Z3QImZbAR+z + w09LT8PWQN4vhJEyOX55HJNcsGxcqBR4lklNUiPcV/ss+qwoyysPw6phBf5yQR/0dYROJ3TWGCby7fBK + EKW0UZsRHTldyvc2f+CiIbM8BCnzQKL4tvt6n/NS9q5euGbPusMmM+wkp5ltRY6eZkp6GhGPLQQ64peC + sYtjsLHGS10X+GMZOhxYs3jyyqhVBaoxljsGfd4Ekt3SkXIgA7crb0OfTeBkBpAkgTD75RyREgagMeBy + 1WXl+zuX77tEZueipkTxnNtan1GZjPrrBgV+WjI9Dz2NKfYzAj7JlmCS/czk8KRyfCHYEV8G0DsGq6yy + 5224oLoIr7tss3+VN1pi22BSG2Go0CPHI185HrkzFtfLb8BQqIc+g+ApVAKVSVVMwFCtx63G28pnd/+P + 6ziZX6TkmVoJ4HnXVV7TUounxgkm4LTJFOEFfFIBJ7QDfJL+tg2wc2QwC+EkgNEeBsCKYzxjQKyrvQ1w + Sq7fHNuqWMZcZ0JdlGb+XNj2aAwXDsFQygA4KnpaSZ/CfSyVzwldroexw2Cfcys8p8n80sIAvrt3hfu0 + XMg2wk5RbCIZd0JLEzZIW4j6KWnEKDnnBBAl+KRg5Myo0qS1Zh1bdE7gtbFNMLeamU0DrlVfgyerj/N8 + 8NZwDOT1w6AycCITOJdZz6QSqGRKqlKbQZlL+1f6SAAvU1JK7QHs+dhtVC40PsAqcoPA1yjJ9hBBBVp8 + LbpEe9AiYhMJygkgSvBmAN32AKL3xS86VxhUAoOOcGrCaPXor+6fr2CyD98Zg+GjV2EsIShtZJAgcvjZ + dO5jmP18A+7U3mbQ/izbvmKhRSPwvMvHrhfkYgMnh5QyKDaZpE0UaPbr1suEJryAW8+zCevl4sTAFkJK + AKMnRxULBW0Lmz8esSsW1+qvw1BLe1RxQjYacbmiTxkVmROi+H3JuFF0E8ZCzo1iLmBFVJ6AU/FcjfOM + 6C/sh8/6g3D/1OMymX/oDECq0HNbPtxVLzc7oT7FAOhx6RYVeCc0dVbaXuo4e/ZOWV3vCsDLEQADPLQt + VMms9DMN8VqY2kycjMxmFWG4WLVndeDAal+lQnms8UOGXy7GyxhcrgHGAooZN+YSnoEYEw0w55lwMrUb + ARuD4brCo4nMP6CUKiQBPCOLg0BUpavtq6hk+6IDXtreE1SXHdzSYaYYwNnPAhDYIx60UMsIW2QrSoLK + lMwe3BKCS6WXYapjZllJDDV6tglmpPlkwWttALzXsZei6hIbYGk2w5hlhPGoQ7lGmEqpZAOsJVxPIhsR + tCUMOz/cm0bm+XVAFrKnlv9ixTYBSQpIwxS9r4DTCvKwYTnlEJ+UFBHA3G5WAnBbKW2E3QpJPukYaR+F + ud6EO6o7yPTMQ6J7GvQt0tNQamaSwZ9TncfBzSHw3cAOdkMQQrZH4nzqBZhVDCCTwDkUAzHlsB/KoqKM + sOZaUOBbjNDtUVjz6w17yfxtSlmJlV7oZz959592Lne77cnefUA3qPjdsgieWWdrYDlO+C6KzZatx7rI + Bik+GRjtGFGybSwwYqx8DDerb8LUYoKRlceiM2O4dhhxrokI2HQYgZtClECKPEphTKBVAg0wRRI8xiGC + mw8bYYk14WruVcTuSWS1ChtZ+tOl75J5vqWWblS89L2Nv91eLlaoy9QoZdIiXhdwQitZF3hmUCwgQcgI + iA281tmtkO6fjdGuMZg4AoZ8AnBCmmvYTnC0TGzqeop7keCWjEO0QdCWcMJEIG5XEvoSrsB8hNk/xO+E + 8zsCHkFFc72IZCOoskKX3qUE4Ls2sIasf0FJCVUeapSnMepbHy/71EWsEOeZhJETo3a7MOtm+t7UwL1I + 4JlJ2UuL7Muq4OewQop3JgY0g7jNFfOG6gaGSoZxNvccGuNbkO2Xj7Ad0QjZFqnYQBTpEof20E5YjvL6 + kvkQsQsVQ/A4KpHBp5kx3jCB4uAyJLqmYuvvdsgvFM9R4v/5pzLFRq++9MaPdi137ZBa25zdqlQZcxOz + V0blU6W8aCvFUTB1MTO0UOC8FUIRvC0C4S4xiGTZFDhZXcXfAivwUusj2DLIubi9SWgNOwZroZXZ5zWT + qGQqldDpdnBLKpOk4XNE/mmk7s9E6NaoEz9+6cdvk1XsozwLODfloYZ6duUv13pKrY13T8Jw3VWYBT7L + LmMB99XMENsA6fFlDsgKKlY4TPhFsDs+g41yiUf0rgTE7D6CWCo/sBBnMs+ysjBB6RzNNAJnc7RzCS1i + siw8bq204Jb2NspDqpDFgrBvuZs/Gb9L3feXCYnomy9//+XX9yx3q5NJVhGhhqWFbXEe4bMJX074RqqW + r9XMzmnbfWGjdi0Apm/j9iQh7UA2ygjSkdWF0TauFWXMfBqhFXCqgComOGUtYPUrsWDyxCR0/HyedyEi + t8Zol7y45G/IeN9fJWRzzoVnPvr5Jyu91wdelcy2p9GjdTYYcwhdyWxxQprbKA1vdJwLXTdFq0n3KT9G + KXv5hU3HfTvVygWxidI43vfwdTXhswhM7wu4TFJrKVXu2FOTnTacK72AQr8SZHrkXN/8/tb1ZPsOtcj7 + d29yQmb3C1s/2Bl0eEfETIJrMrozemBt4E2r7ZNXCcIZiJZZY4MmC5uFC51SqY5RdTxWQ9EGlkJKslxD + NVICXSxZdgBXUZUOVbHLPT6FKxUDqApVozSwYtZ/TWAYmaR1kF/mHggvm5yU4ZHf5l9y/Xh/utgg3SMb + Z7J7uRrTsyyfUlItspeV+RjVSkkAUnal5MrrJqqaUlPFDIzZliQockJX2Pe2Go5MJVVL+FNTGKgYRH2U + FpVBNQjbEplNlr+inM/ADw1ANmcQT7255M23PFf65En5kkl0Ku80bL20AC2iwLK9kCCsHQQRHedxxzGL + jsfreayWEmsIsJaqk2OEpS1t1Q7x/WQz2/ieafTxwV4T1Qh1SD1iXOIL33nlnZ+Q5VuU2Ptz4Z2bfFC8 + 9vQbL7/xtz6r/TP4yDeTcSAHx9J1uK27hclL8pMJYU5Q7H1kL0Ep709SXZQAqymBVhNU5oGWqqckAJGW + 4Mz6uG4CvYXnUR+mRUOYZjbOJSHHAS8P7w/1/YM2ZxDy2/xfHvjUMzTZLe26VISaiDr0lp+Hvldv/6GW + k1j5ZVkC6XbsZcJy8toaHHsnOIFt9YRu4wPTySmYOWID6iF0pR5HU2QLqoNqboRsDo/kPV+jJPNfCN65 + yRdl6KR0vbj515vXR2+PaSz2V6EkoByNCS04V3kBd06O2J8f+vgc0cs9y59ShbooCaSdx3QE7pzC9Gk+ + rlIT7RMYqBrEqczTaI0+hraYduR4Hm12/ch9E+8lDyvi+T/INg/a5AIyJ6QCPLfkB0ve8lrpE5jqmnlK + JllVsBp14Rp0ZZzAhdJLyoPLWAf7Ibbgyp+Qzk4pzeD4sQncbLiFflaXs3m96EjoQntsB3RxnSgLKO8O + 3RQa9MoLr7zDe0ib/E3HPf9oeOcmFxLJcEpmXnh7ydt/57XCxzN1X0Z9+cHKUU14I7QRzWikDZqiWtEc + 1YYWZraVmW2L0RFWp8B2xHehM/44tOEtYwVehZqg9Ye933n1nX/gNeUBRewqq6wsql8a/MLNORpyEwnk + e9Qr7/3L+7/wXeXvkbg7MbfAp7C9Mrh6UBvZpG+P6ZjRxXTOtES36RsOawZL/ct1aW6ZeYT2/O2/fiB/ + D36Vkr9EOsG/1Kw/bJObSJZkRMRaMtmkR5HF5hXqr6k3KVn6RfJa/m+E1HNpheWz8h2xylea8c/b5KbO + UZFgBEZWcgETyYLolLyXc1/if/B45JH/BUZ8JQEsvHCRAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMASURBVDhPbZP7T1JhHMbp5qW7dlmXX/pL+qFma6s1XS5N + LS28ZzoZpoCI4F3EVMyUaKKJ2pYNR07njbameauWCl7Ie9nUtqAEDog8vS8prey7Pds57/t8nvP9nnNe + 1j+1i2gPkReRL9GBLe0n8iaie9Tz36Ib3lKB9IKiWFmqlNUNqUrrTcoilalM+GhYwikoT47gBBAPDd4R + Qhd8y7Pl6c9rXs4P9g5j0bgEi9mK9TULZkZm0d3ci3Jh1eL9cI6AeA8S7aYgLQr7FPJKMjS1WuusYQ4u + hwsuOxHjgvPbBjaWHXAs2THeNY5HwhobOzAuizB0NHcneznsBwGKotrFT2MzbrCQI0NuSjHE9wpQzC2D + WtaMYc07MBM2aORacKMEC9cvhlwl7D4a4MuLFci7W3Rw2VzYtGxCFJ+LzFgJ+Oxs8O6KPBIn5HuuY4Li + FYSlo7AO82Ky3k+NGOE0OeH8vuExOT47sKRbRGVGjWdNJWpAv3IAyaHcUcIeowH+vCjhD9OSGY6vDmys + /glgjAzaKzo99/3yARjV01jVroAbyf9J2FM04Hj6bRIwawazwMD+xe4BBpoGIY7Lh6V3He2Vv4MGq4ew + 1r6GtEgBDThNA/xSwtI+6nUTYKZs7qduB1gGLBhr0KOjqgsFKTJkRkswp5nHeKMe3Ft8PWFP0oBD7MB4 + ZWv1KxLAgNEzELDFbrMwJgei2DzSRQEk8YXoUehg7bSio7QLSTdS6wl7lAZ4XTsfHJSXVLQ81jZOPhXj + NucmFCEvUYoK7mO0lLTiQ8sobB1WGConIU+tWQm5FBZCWB8aQP+oIzGBCYVKocpuaDOAMZBODDbY+qyw + 6chYQ0TDDKZVRrzI09hTb3JLCeO/xbqLHpITicEp0soMxcpr1RvM9MzC1GeGqcuMOe083j4dxLMs9Wp6 + hOAh8dK3T5m/ii74RVyODBXeyVaXp8on6/hqS0Nmo6Uq7clUTmx+U/SVuHDiod9+B7xdtCU6lx/RGaJz + WzpLRFumJ9HTNovFYv0CqKbrpfRaTHsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAx7SURBVGhDzZp3sFXVFYdJFEUj9T26QIKB4EwogvQuTXpT + inTpj9577x180nuR3kF6771IGYpOJjNRJ0xIxn8FZ+f37bx1Z3O5j6cIY87M8r57zj3nfGut31q7YKoX + ePzuF9r/xWEwv5e9kmSpk+y1GGbXXpXxW+77TZwJoVO3atUqf9euXVvKpiYkJOzU540uXbo80OeP+vyx + U6dOD9q3b3+jXbt2O1u3bj39k08+aVWrVq13de/r3J/0HAvGSz0M/NUGDRrECbB1t27d1nTv3v1bfTrB + O51zgnaCdh07dnQdOnRwgneCd23btnVt2rRxcti1aNHi26ZNm65t2LBhu0KFCmXRM8mQOfJSDh78StWq + VdMLrotgDwvcQ/fs2dONGzfOff75527VqlVuy5Yt7ssvv3QHDhxwe/bs8d85z/Xx48e7Pn36eCfkgGvS + pImTE0dr167dvUCBAnF6R5iRF3JY1FMrijUV3U1Em0iPGDHCLVy40O3cudOdOHHCHTt2zB05csQdPHjQ + 7du3z8Pv3r3b7dixw23bts1t3rzZbdiwwa1bt87NnTvX30+G5IBTRl3NmjW3fvDBB3X1rjQy6uRXO+Gj + LntdMugn+K+Rx5AhQ9zixYvdoUOHIuCHDx/24Pv374+A41gIvnbtWrdmzRqfjeXLl7slS5a4xMREN3Dg + QKe6cHXq1HEffvjhN3JikN75BxnZIHjPdXj4cuXKZRb8NOn5EbqePn2627Vr1zMjnhL40qVL3aJFi9y8 + efN8Jj777DM3duxYXzNywFWrVu1xxYoVZ0tS2cXwXE5E4CWbRB6M3pEL4EePHk0RfOPGjV4q0REnc/Pn + z4+Az5o1y82YMcNNnTrVTZ482UtTHcqp1lyFChUW5MqVK4dYKPCfLSeTTRpa3qeffup69Ojhowa4SSU5 + jacETiHPmTPnCfApU6a4iRMn+kZAJpApmahUqZIrU6bMHLGkk5GJn+UE6Xq9efPmA9TyHnXu3Nm//HnB + yVoIPnv2bA+OFA2czgT4qFGjvFHcyLVKlSpOKnhcvHjxYWJ6S5ZiYXPxNXWEOurT37Rs2dKnOTmp0B4N + /IsvvnArV66MgKNxA+cZIThSCcFHjx7twUeOHOnhhw8f7oYNG+bHDDlAFv723nvvNRbbG7Jk68FLJ3/+ + /PHqzVvpCmPGjImAU7hEfOvWrZHiXL9+vRs0aJDr37+/t759+7revXv7cQHZ0W6pHc4NHTrUAxs4cokG + xwDHBg8e7O+nHnCiZMmSu+Li4p5ZD3iWpl69ej0ZYNDh6tWrY4JbxJGKBiD/EvVwr9saNWq46tWr00l8 + ISIDjGv0etWVd9bAw6gDzXs//vhj/8wkCUWsaNGi/cWIlKjRJw48epW2pZcc/+ijj7w+Yw1A0e0wOWj1 + cle5cmVvFKPaojd1Fv8bphYGPmDAAO+YFW4IHVqJEiVOZ82a9U9ifSoLPvqKYkdGRdomvTs58FDjBm3g + oSMGD3T58uW9GQznyDQ657fhNTPOEZxGjRr5Z3JOtdBDrE9lgS9vyYGNkpBPrw1AJhWLuIHTxxlFibRF + G4lQE0SV0ZoRlnpgMle3bl2fgWjIWIbTQBNI5k3UEM5yTbWwXaw2Z/IHqUitVlVEev4eCOAs4itWrIiA + 0xINnJY4c+bMJ+RB9pAFncW6S6hz9E20o4HNCATyZTDr16+fB8d69erl50y8Qx3pn3ny5CklZuZLviPx + nzeU0k4UIgMXxWvg4cgZgls7RAomkfr16/sOklx3YeaKxKLBzflocIwMWlezjqTpd08xp5V5GeHAW4pk + InojZSE48xXA6eMh+KRJk9yECROe0C7yQzrR3QV4ijZWgeIQQaMFWxsOwTFaMZ9kh3uKFSu2SMwZZQxs + 3ov0isJ+0stLY4EzCNGZAA97eQiDA7TCEByjw5Cl8LcYciUrgDPiAwk8ksHMAfvOGoL7JPejYmYR5OsA + LzLpBXcoRKJq4DZfATwcPW3OgoVAFCqFa/AMXkQ3Gp6sNWvWzMOScabRGJEOMxH9NzXE/aVLl74vZhvU + vBfxysBDtAhs9AwxFrjpPATDAXo64GSC6EbLBmdonWgdIwucR744wCDHeZ5jIzxGYHCW38qB/4j5bRlr + au9AFl14RGTQeCzwED4cRQ0MCx3ghVZ0ZjzfRmJ+p/lW5BoOUKicx7gfoy0TDJ6J8YyyZcs+EnOe0IGs + ak+PeBDQGFKKhifqFnlzwgAwHACOF1G04TWDBwgwZEHG7ToDFQ4Aa8ZzkCM1xbv4m3v0LBz4o4xW+j8H + 5NVDHsQPgQ8dMHj7tOjHcsAyEB195jfAcw04ihKnuMYnLRydA2nQFih7N+eoU/0eCT2RgSzS1V0exkui + o29OmAPPygAOUMA29GPAoesQDgeoBzPrYDwfs/fCYaqgRTNd0e+/FnMuc4AuFK8h+jAvo5CiMxA6EDoR + ywEggMQBIgsc+0EmA3OetokcKHKMDDF9N2DaNUZTwahL5Mm4oftOiDmnzHchHMjI4AAEL+MBBs+n/W3w + 9okZPLA2kAHIegJ4HEEadh/GsxiUkIPNpZj3AEzzABajoTAGYXRG1gfMWPW+lWKOjAMMZOkKFizYGxCG + dCticyTaCT7NLMoY9xJ9zvOZtGnl77Fn8ExkRtdh4MRB6gXHad0GyzjEtIXVHKs6pjIEl/WH1DJYzJlk + fiT2c6G8efOWK1Wq1APSiQzMgVBOmH23c6EMmEESfa5xL+B8J6oYUkBKOIUUcAIDDHCAGUQBZibAjIBJ + JNManOM+1dO/8uXLV1XMkSk1s1G0lO3999/fTUSZ+fFCmzbYp40Ndg4LZUDEgbaRO5QCRoNo3LixlwGF + jeE0gQDYYJctW+aNCSUzYiaXZDTJ8f1izS2jhfpFjV+NyTJoltcfKTCrBMQgDCgsKPtEBiYFCpEIW4Yo + Stom/Z1Bi+kCckEGmHUe1hrAsikALOsQjDUJmwaco+iTJnPsUMTL0H9kVeZllClTpnc1HlwgqhSMRc6M + NGL8bcUVSoGIAgkYZqAY5+lSGNeIPPAsmFjxGSyrQNbfLGW3b9/u1+QEigWNnnElR44cRcSKfPxawA6/ + qJHFack2ml7LC+gcFFRo6BSjyCgwk0IYWWAN2Jwhq8x7MEZpMrpp0yYPCyjrb2DZtmFnm50QdkTY+SCY + dDXJdKIYs8pi7kzg0Ztp06b9i2R0iMiyuRQWFp3AiovVGXpNDtaA0S0GACBIk6iztwQstnfvXg/Ldjwb + xhhbl+wEIkWm0XrusQwZMhQUY8xdCQ6rhYxFihRpLwf+QWQpPEBZyLPQidYrS0+TARIwGbDphQyIbDQs + ZrCAGiybxey9njp1yp0+fdotWLDAz1ybN2/+nbTfVWyZZU9oP/rgAtWdXZO7aZLFYwqHqAFqxUVaQ1As + WgYYMmC7HVh299ieNFhAQ9gzZ864s2fPuvPnz7sLFy744JAxtdifxDFbTEwd2JlLFp6Di6SHvfk86u2r + kAEdhK5jUbXiMlhAiarBEllgLarHjx9/CvbcuXMRWOzSpUvu8uXL7urVqz5AjN5IWPJbK5Y/y2wN/EwH + OMyJdFmyZCmk9riBLKBDuoEVF7BENdSrSeDkyZMRWKIKrIFevHjRw165csXDXrt2zV2/ft199dVX3sg0 + CxcW+GrLW7Jnz15MLBlkyDtFeDv4IVpLnzlz5sKqh9VaAj6WFv00AemEsIAabBhVYIlqLNgbN264mzdv + ulu3brnbt2/759AckI3gfxL8uty5cwPP4v2Zuk/uMCfYm8+rTMzSSPsdmSBCFBhRD6NqEsDCqAILqMHe + uXMnYjhFPTHosYCXbL6XbBL1zvwyIv9c8HZwI6mjdb1NJ1BNHKePs1hn3k+HQkaxohrC3r171927d8/d + v3/fG9lC60xHbHGvjnNS2e6ud7FYQfO/SDbJHTyAmqADxFMXaq+TJadrFJlthwBCi6WwkQORNXCcA5ja + oYsxCNKeKVQWOnrOdQ2c0+Lj44vqHUyT30x656+Gt4MHYaSTyGTPli1bcTkyWgPUYQE8ZCHEnAezvRwi + a9E1WIyFia7/W5k8qoyOzZkzZ0k9kwUKcmWUZVB9YfDhYdngJTiSTfZO4cKFa2s0HqWsrJe0ziUkJPxd + Tvwg6McCfiwHfuCcFi3nVUMbNEqP1pSFfw/OJ+NfIg38hUb9WQcvIUpkBGlRbMxRGGzekRWQ/VXG0I/x + N/9vBP2cqTC/5R6k8lIjntLBSy0rOAMMIzlgGAOiGd+59gL/B49Uqf4L1/vQXw7udWsAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPbVNJSFtRFE0nh87agQ6bLgV3ClFCnKKJGiNS + RVvtRjS6CCrqwhSCMQQXhYpJzMpSF4mECIqYiNPCAQVFK5EGC+2udVGwK7HY4ur03Id+aO2FQ37uv+e8 + ++65X/dPXCKuEClEOnHjDNeJVELeSc1/Q16kdnR0mPr6+oaJHafTedTV1XVkt9s/NDY2BiwWi5k1InxB + RBLpnZ2dTo/H8zUUCmFpaQlbW1tYW1tDJBKB1+tFU1PTQXFxsYu1N4nLQpQQclpra+vrwcHBXwsLC9jf + 30cikdAERCwej2NoaAj19fW/c3Jy3OTI1VQnV6urq808/UCKkskkamtrwRwqKytRU1OD9vZ21cH4+Lh6 + NhqN37Kzs23kXhOBdJvNFhT1vb09bG9vw2w2o6SkBIWFhSgoKNBQWlqqPefm5r4jV66iu01CIhqNYnNz + E6urq1rR5OQkgsGg6ug819DQAHYLvV6fJPeeCGTypOPFxUUsLy9jfn5eKw6Hw6Ar2n86AjqD/v5+GAyG + n+Q+EoH7vNPxzMwMZmdnMTU1pRFoJUwmE3w+H2ilyokgnZI5iMBjEcjIz8//6Pf7Vcti2bnA6Ogo3G43 + HA4HKioq1FzoFAYGBlBUVPSJ3IcicIu2vO/u7lanT0xMyEtVLKeXlZWhvLxcOSLty6zkl/sQJveuCKRk + ZWU9pxPfA4EAYrGYOs1qtYI5cAPR09ODkZERtQ9jY2NoaWk5zMvLe0FumgjIRt3hUN7Q41MpkOVZX1/H + xsaGckas3d3dxfT0NFwu12lVVdUwOZlnXBXykTygz2+5kYdi3dzcnNoLWayVlRXIenOoP+rq6nyslekL + 56+QRAbv/5JFkba2ts+cy0lvb+8JJ/+lubk5yqu9Yo14f4F8HtKS3CuDeEI8O8NTQlqWL1FrW6fT6f4A + AAWHfvbjIEEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAOBSURBVGhD7ZnPaxQxFMcDglAQRE+iIKg3wZMoiJ5EQSh4 + Kz15Ejx4sDOzLe3FSkGwF8Gr6B8gvUihoCDqYWeyW+hRwYuCKOhFEQRBWND33sysSeZNdpLsj6r9wJfZ + ySTfvDdJZrOzYof/krn0jEiymyJJn4g4/SAS2cuPcI7leH3bEcv9otU9Ccc7EOhnCPpXveA61ptPjxWt + J8T85gG4o3MizhZF0rkIQT3mA64R1m9lpwq3MbG4tRc6vppPBwrkhYjkBefgS2G7kY9ELKfgDs+KKFsX + UfpTC6CVXYHrMG2UMldh+6Ezs7YLgpuGoB9BJ98rneYdP4W7f1ab81G2RSOC60Gtm2u1KF/Ty6H90BZ2 + KzsPgd0H0y96J5yypfxp0y9bJY+l9j46anXTZ1SGyWnlpcDHm1iehjt3F6bHJ968Rpjsn7WA59fgCHcZ + jkhZHsmv/aSoDiRTXusLfJxodY9D1isQ+LuqWUMtpAeL57xebiaATykTcxqhjxNq46bCEYrlBiWedC4X + Pr1KPTMBnPc4AjgSiXxbfDanUo/aNEZvXJUZbCwPFS11moxA1D5KqjtHDX0EmqKugVJmAomcoXOa/9pn + pZ3rGtAaM2qK/hTKVRkBmDo4ZUrwcz6dlHauTyGtMaOm0MZt0N6nUJ6IETjK53ugYmLIhYl8E3NGqlzA + vczY90KcmSpXcFfpmgTVh12sF5yhKh/ykWj+ewAXc5w9KFo7whorCoE2ePh0gkdj/j2h/yLD67iLxa24 + d19mwKZCwF0qbvRwr4TbDdzZ4pH2TlBO10P7Ug04hcD52eQFZ6QqBM7PJi84I1UhcH42ecEZqQqB87PJ + C85IVQicn01ecEaqQuD8bPKCM1IVAudnkxeckaoQOD+bvOCMVIXA+dnkBWekKgTOzyYvOCNVIXB+NnnB + GakKgfOzyQvThN554u5RLohW90hRyw/Te5C8wIb4UiuW92CXOA3HqeJKOGaAg+QFZ6Qp/QgJrkNiy5Qg + /hfQFNbPIi9ieQICvA0G7yuGtWqYFNvWomCSzjmaSq4vd0lMUmw9i4ZKLC/Br6aHkMw3trNRaCTcerWb + 3onSHxzpD7bjYWnkXH+5B5KZhdHZgA6rb6P99AZGeoVe848V/DsV/+SL5XMmqEGaUNB10ILtJDDFNplg + S22zoOu40T4Mo7IMa+b13xP0Dv88QvwGDALow3g+RZgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFbSURBVDhPjVM9S8RAEJ1KsFIUzsJCf4E2/gDh7K3FylIU + b3dzYGFho5WFnT9A8BoL8QeIwmUnKhYWor2NjY0gIlicb2c3uXwZ78EwmZk3L5PZDTVi626auskCmWSP + DDPs23vEnWQ+sEqIbIuMXSNlDyhKlsnEZ2gaVA35TKRzPUkqXiXNpyi8CyFiHd48EI7zmrflWXPPi6Au + MPzoE87iD9gNSLOI3dhDgdQPjSVXSCpe8UnAf3NRwCGbAHVB2pwnOfw1QeprJ8ijuoOePNfsoF7AbXmk + U8gXyhARmaR4D4xtBwbQJJBC9xdp/2lMvDtiZfuhAowikOdUuC5Q9hXLOafdh4mQLaLc7CyDtrdovodd + QOgE8QZu5hLiqcD4TwBEf/8vsd2vjKDit3ArjwqNUuOf0F3CTjIDwnqY5rPS6JtfMOVh6GhAZOdwZJsQ + u8Ikz7Bj+UM1j3sC0S9iWEY9Qea20wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAOsSURBVGhD7ZnPS1RRFMeFIAiCqFUUBOVuYBY6zmDUShQC + wd3gqpXgNghCNwpCoJugbdQfIG0kEAqi9kHboE1CGNQmCYJAEOr7le+T825n7nv3Oo724wsf7pt7z/ne + c98PvfNm6L/+RbXb7eujo6NLrVbrOdptsMdWn5c4rtCTo/Hx8QsorjU2NraK9gvan73QOOOGlX48wpm8 + iELu4MwugCkcbxRF1oTxbdkNRij0HJjj7aAiXoNJFRMWWIeNI78SuD3OYKJZTPQM7a6ZnNwGq0FfKqua + qn/qdrunUPA0zvQ6JvgeTFjwAuM3dE8XfW/BJPr4PNhYsqb+p7af+X17sGE2gaIeof1qJ/FA3CLilkzf + Gj2azeZ5tqafRb5UH2+3g/4C+nA8SyikA5MHMPkcGsdAPBdbPAtkHqyxpa/p3zGLmudizNg+9OF4bXU6 + nQaSVmC2FZrVZWRk5BLyt52x0gIwz8L+pEboD2+jbQ3Vk02uCybhFdrkwtHO0Ad9ezZGlBaAmBavAI53 + cPxBx6VbiT7MqS2b7BEWi79El5VaEuIqrwC4Jnp97v8VUFileO86+eEt1NXneXtcjCsm7RmwyR4KqxTO + nP0rVPDbQwwm9xMgHqvvIIc+Gq4nm+yhsEpp4xbd+xhYdKlwwvzk/wOhSYjCagnxg/9P7JiUUFgt4QwO + I2eweyHHqITCags5bZC8G8XDOyWLNDlmJRSWJF2J2t8HAB/mx0pPU2HWC4VlCWeVG7ye38g4jjm4i+VW + PG+uotBeKCxLyOculRu9CW43uLPVtoN7p0WOH3oua+ChsCx5fjGUlibPyKKwLHl+MZSWJs/IorAseX4x + lJYmz8iisCx5fjGUlibPyKKwLHl+MZSWJs/IorAseX4xlJYmz8iisCx5fjGUlibPyKKwLHl+MZSWJs/I + orAseX4xlJYmz8iisCx5fjGUlibPyKKwLHl+MZSWJs/IorAseX4xlJYmx2iXu0W09zqdzlWFZSnwrURp + aWIidodbKPoh2mm+wNXQoRUWWIXS0uQZWbCwT1gY30Yvc4H8LUCplQq9qlBamlBUE8n3wUdrFqPuosK8 + KpSWLxR2U7dS0std4i0qjKlCZfRHKOAWTJ+Ab3aSo0RT91eNRuM0zGdwhtdxZn+Ek/YTTXl0wmLOYqJZ + sInFeG+jk4HPe5ycFb7m1zSDEX9OxcRzKOJVWFQVx1Z0L/GBRUF3UdybsNiCE1d0L6HIKyh4Ge27P6bo + //r7NTT0C9TinEt/FLTbAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFcSURBVDhPjZM/SwNBEMWvEqwUBS0stL7ijvt/ZUB762Bl + KdikTmuqFHZ+ACFpLMQPIAQEESsr7W1sbASRgIX5zTp77JLkdOAxs2/evN3buwvaoiiKzSRJoizL+uA+ + z/OpZFlXVbWnMj+iKNpC0EV8Ru6QR+BnAUaNSRzH64gP0zS9BO8iYN2TnaQWjXKnWo913Zd1QPEkhACD + DzCp63oHXo7dGNhsIX3hPBIcGJKgngqntckS1OYE0rdEY2AIjWUnsHnhCQyhgcC7AzDW2r8Dbc4ZyC3D + /f0W3IYhnBCR7KSP03wHfCP7Kmk3sFGWZRyG4YpkDHpo77T1PwNXM6eVBe/+lXyF+5rSXriDFtoyzQcM + HsnX4AIc84w5H9OGStoNRMjOXUxuwJcVUL+BCb2hO6i9bx33g1vfZvcjRHKaT3fIwQumAx1ZHvzKu+x0 + wsAteGboHHQ48eqvIghmMpng0ufDtN4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJVSURBVGhD7ZnBR2VRHMcPMUTErCKiVUTbWc2qVcTs0h/Q + rkV17pvMYijRNtoO/QFpF9FqzKJ7zytapWgVQ7SKiBiifucofr33fb/3+v3urdd4Hz5E933O79xub3Gu + 69Hjo7BwMOKy+k+X5SduqThzPqy4xXzs6bddyvejIZcVizTwgcvCA7TrNvPjeJAGmqM7vQ8Hlny3zfjQ + T4/HLA2w65byf3C411r5ZmZ2+lytmKaFtmnB26YByrRUasUk3Zlf9Ihcw8Wq0IwPX+hOb9DjcQUXqFoV + tcNx+gZZo8EvYLRT46Z92EutrP6Nfh6G10mqQKF2omER6LOSKlCI2+mwCNSTVIFCXAuoJ6kChbgWUE9S + BQpxLaCepAoU4lpAPUkVKMS1gHqSKlCIawH1JFWgENcC6kmqQCGuBdSTVIFCXAuoJ6kChbgWUE9SBQpx + LaCepAoU4lpAPUkVKMS1gHqSKlCIawH1JFWgENcC6kmqQCGuBdSTVIFCXAuoJ6kChbgWUE9SBQpxLaCe + pAoU4lpAPUkVKMS1gHqSKhoj6cwz33c+LLva4ejTVToa2+1UET8YD7V82ExnoPEAtywaB2ynChR6YX5J + G9ylja2kDcZ3AZ0Ce4IqfJigAdcp8Lcp2NIONwU/K2gmq39Nj5LqcBdsCl4nWCo+TLms2KLN3MDFqrAS + Vk8/pTPR9IIjv4MLl2XlzP8ZoM3M0l9njxa8bxpA53k6OI7H/G+KD5/JOfI3GKqd7zR0K9I/bD2jR+wI + DPtslw3diviiO34TxbePH2boHv89zj0CdZ2L/4eL57gAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPhZMhTwNBEIXHoigI6uBPgAaBRxMUqsGUvT0B + PwAUCSj6A7CENPUQSLq7RwgCQ9FgMCBICAZR3h3DdW53Ul4yyc3b701GzNFUdYeLlIUOmXBJxj9S5o/R + r6JmmFCU+wWyfhPwBVn3TjaM03IjDDzgBLR73SLjNjD5DI9vSuhZ8cachmx4mDy4D9QNvk+xxTY2WqH9 + 4dzkXVQtaZqwzm5TkvmrWqoZSTIJq5qRJJOwqhlJMgmrmpEkk7CqGUkyCauakSSTsGVj/AsO6Zz27mfZ + bSoOl1Ur87cI36H6GNSrDsi4ZfTzTPw3AGB5/8YPcIVfNWDca3WVWThqBKu38M3pSN2iDWCLt/lMgr/h + J2x5yIkpyv0S2WIHw66wyQh1Qnmxhp5/Z6IfMyo+UguDJAMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKfSURBVGhD7ZlPZ1xhFMaHUkopXZUSuipDN/PnmkVXXZWQ + 3cgHyAcopasyhGxLt6UfINsSsuqqq25L6KqU0lUppYTSPq8+4eT15Nx7TuYmk5gfP3cx53ne844ki5vB + mjVXhPF4vAFfTiaTT3ge4bmAD/nxajKdTu9hyWfwA/yrXLnLYKE7cAce2kW7eGmXmc1mt3Do9mg0eofn + cVnmvPZ+mfl8fgMLb+KgfRzy6+TgPuSRywFLP8HSb/D8oQ7rQx6dBws3KHqFpb/X5Rch14jRNM0Qi+9i + 6S+qtKu89EHpwnMLvy/37edd5EoxVFGbalnWncJmushYDFVk7bqswvZ0kbEYqsjKsRSqz5OxGKrIyrEU + qs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEUqs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEU + qs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEUqs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEU + qs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEUqs+TsRiqyMqxFKrPk7EYqsjKsRSqz5OxGKrIyrEU + qs+TsRiqyMqxFKrPk7EYouh4/P+F7YumaR5wLEXV2ypjMUqwvNTC0q/x3CwvcPnRuakXbJOxGKrIiot9 + w8XK2+hFuWD5XwCjrdRdbTIWA0s9QngPfrVlnl0vVefaZCwPFnvMH6Xwy111qXqmTa6xHLDAU5S+hT/t + IX3Ko5fLcDi8ifItfMP7+GZ/14cuUx7ZH7jMbRy0DQ9wmT/28Kzo+YwvZ7e85ucxFwP+3N7FwTtY4n29 + VJuXtvRZlF9YLPQcy32slz1x5ZY+Cyy5gYUXeB5dmaXXXH8Gg389XWjw01n4RQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEjSURBVDhPfZMvT8NQFMWfnYIhmINP0Db9l9aBmEcvqCnC + 9wBFAmr7ALOEEDwkSIKaYWgwGBBLFgxi/F5zG27fe+wkv3Q995z7mrQzm5Tn+R6cwD28FEVxCQd1Xfck + 4iuO413CI7jJsuyLwjrAAs6kYkySJNsUjijM4NMJW94C3lrqzaPOW5MFS3jEm3A/hjKKon4710jdGGcw + FLsjJ9Mgo+5QLE8642WDpiOd8bJB05HOeNmg6UhnvGzQdKQzXjZoOtIZL2tvePfvXK95/1tid6SLLTJq + hk8seOZ6C1MYl2VZ8M3vSGTzAhvk5BFL7uC7DfD7A+xXeaGLMvuReldVVQ04/ZiQfZqVLileWXoulf+V + puk+J51SeIAFpSs4/Ps7G/MLWV3fDqWD2JUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKcSURBVGhD7ZnBp5RhFMaHiEtEq4hoFZe2rVq1imjbH3D/ + gIhWMePSYsx8Y77FbKI/ILOLS6tWrdrGpVVEtIqIuEQ9r/vE6euZc99zmq87N/Pj57vMeZ73vOOuvhls + 2XJGaNv2atM0j6fT6dvZbHYIh/P5/Do/3kwmk8llLP0Ay76GP1a4WZcZj8cXsdAevumXZslaT+cyOHQH + 3/R9PF/AI6iWi9rvZZbL5Tl8y3dxyHM8v5qD1y6PXA9Y9jZKn+L5uXtQX/LoPCi5CQufoDykT7lGDHzD + u/i/3kfB+25h0HLpg9IF7+HvK+azKrlSDFVU4R/Lsu43zHyVjMVQRR2rllWYjioZi6GKrBxLofo8GYuh + iqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuhiqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuh + iqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuhiqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuh + iqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuhiqwcS6H6PBmLoYqsHEuh+jwZi6GKrBxLofo8GYuh + iqwcS6H6PBmLoYqsHEuh+jwZiyGKjqbHL2wf4XmNYyk6vSfKWAyGy0utFguXd6A7/OivYXe1jMVQRVZc + 6iOe5W30sFyw/BbA6InYnhoZi4HgDfikaZoPtsyz9lI2UyNjeXCJWyhqYfjlrrqU/bxGrrEeUHgHF3qG + 5xd7SJ/y6PUyGo3O851o+YHjW/fQdcoj+2OxWFzAZcpPTAe4zPfuAhnR9w7uo2+Xx/wbcPgluAdf/Vqm + 1lNbehX8mfUhFnqjFi5u3NKrKD90Y+EhPDwzS2/5/xkMfgLIpRFx6yUWcQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEcSURBVDhPhZOtTgNBFIXHoigrqIOXaDUVeHSDWkV4D5rd + ZH9NeYDahhA8TZAEhWHRrcFQ0aTBIOi3zZ3k7swAJ/ly75577uyKWfOX6ro+KYriCh7hDUo4gwOJ+Mqy + 7DjP8zGhO/o19ccFv6HeyIoxVVX1yrK8wJyx/KnDLXhL12uR9f1bX61Jv4EnlqY8x/TDJEmO7Fwj68Zo + ky85F7sjnbHIqDsUy5POeNmg6UhnvGzQdKQzXjZoOtIZLxs0HemMlw2ajnTGy4qxgnmapodid2SXNDLa + D5/hBe7hFmLuw4AaSeTfAyK5/w/cvC8V+mhvJTVTnuVb1rviD+xz2CWB9mu2akHzDhNZ+V28/ZTDrgkv + 6Bv6ijriWX5nY3aGi4HsB+CMxgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA0USURBVGhD3ZnpV1XXGcbTNo1JTNqmmdsmadN/oV3t565E + TTRxiMQgmpXVrpUPTVMnUARkEoQ4K4gCKoKIOIBMMs/gPKLIPMPlMlyGgDhg0rfPs8/ZlwsFLllZ+qFn + rd/a+wx3n+d99ruHA0/9vx4/+YH8dBIc7z+xQ4t5GvzcgWecMGsSeJ2//Rl4IkEo8Us8U95zDci/4rq5 + RJYHlYguHXHVdf2M4zXgpuuBhVcXb0x9H+0+kSD4gqddA4q7Ltb0Sf/I9zJw73vpv/cflOPpx/U+3Ce2 + u99Lz/B30j30nVgHH4llYFTa+0el1fZQ8m/2IoiSLrTL3ngiATxD52q6R+VW50Op7ByVO12jUkW6H6F8 + pM4rrcb9io6Hcr3tgVxpvS8Xm0akrO6uFFUPS+6dbyWzYlDyULoFlQrafRYwNR/rwRc8w1S4CkHXIOxG + +wO52fFAKiwQSyC4wmJcv952X660GMLPN9yVktphyb8zJNm3BiX9+oCcudInpy/ZxC1YBfCc2f5jPfiC + WeyBCw0jcrHxnlxquieXm+9B6Bg85/ULjSNyrh7Ca4alsGpIciH87I0BSblK4b2SeL5HEsq7ZcWWMgbw + PNDjgO8hPHeGfnZG6ccHn6VjRdVDUlwzJKVwtbRuWMpBmaZ2CKKHpKjqWylAiuTcGoDwfkmF8CRT+LGy + bjla0iVHiqw6gNlAz2xMJwbEa468MAm8zt7j76hv2kMFsBwBZN0ckOyKASUurxK5fFtjXMvCPYpOu9aH + VLHJqYs9cvwcRJd2SWyxVWIKOyU63yJRuRYdAMXMWux+Yp5rYNG1lVvKZWVIuawALD+fUOo6cQsquL7Q + I/FD/N7pRGDvgRSIUly1wVkHcC35cq9y+tSFHkmE6GNlY6IP5ndKVJ5F9ud0yL6sdtmX2Y4AyhnAi2D2 + 8uDi7oSidim83W+n4FafFFT0Sb5J1rVeST5nlRMlFkkE+9IaZWVwSTd+z16bthd48znOGnST4hTIY5IA + oRQbX2KVOHAEgmMKKNoikbkdSnQERIedbZM96a2y24Ruot1fENYjs9tlR0qLbCdnzBJsQ31zYoNsOFQt + ayIrZW3UHYVffK18HnpOm8BxMeWhAlgRXIbc7TSASAMLxFogtkMOwuFoCI6kYIgJz2yTvRkQm9YiO1Mh + JKUZgpohCCQ36wB+SSjkm6QmRejpZsCySULAJgj1OFhlF07WAffoKqSSCoAmcBxNeTCA55mz+yHsgMn+ + 7DblbATSIRzuEi14V2oz3ITgM1qUKehUI2iSLWCl8fJfEQYTfLJRgk80SpCiQfyP1cnGIzWyNtIUTOHR + pErBoDgW8HuaMG0A7B4VwLbkJghshUCKhLMQSbbDVYrdivuhSY2y5TSA2GAIoZggpADTgASS4w26B14i + FBJwvF78E+rFN94Q7m66TvFaNF3ndfeD1QigWjjo8Xua4DSA2SsRgHtUpXjH1kgQXhZyqkFBkcEnIQ5l + YGK9EhIAIQHHIMgBPzhKV1lS5MQAvONqxTPGEK5FU7AuKVgL98B4WH+oRrcxwwDw8L/2VShW7b+FRivx + wmrxOVorvkoUStQ3Ha0zqRUfiNKlT1yNKimU0BC0+2vCtt2ZHlHjRVOwXbQSXqOErz9cIxuA2QZNcBrA + C3zJ1xCviLhlh8FwduAL1x+qQsPV4nmkWryQBl7oLaYDYbC8t0GlQJV272XCVLCLBnbBSrThNqHoDYfR + U2BDTK1eS2YYAB62iwb/JhC/KuI2grgtq8GqAyjtVCrU1KfADEKQHoSLFdpVATCFPKIdRAMt2hBuiPaE + aM3GI0jDsV7kijzlwQBepGMUTcftgk206DWmaELRayaIZooo4LK5kL1CKMRR9AYl2hCuxGvRMRzgBl6x + dboHaMIMAsAL7YIdRFOsFk63pxKt08PddNp071XCNcZw2kG0KXyiaK/YeoV3XL2sMHa0MwwAPaACmEQ0 + BSvhkzitRU8cjObLVQ/Qyf8RPU74mGjiE9eg4Bcefs8Ucj4LYTtt/Srshl08BWu3Oe3ZhVOwdtxB9Hpi + pghTcfnmYiva5RT4Ettmm152l+swXY8Jtgs/2oBZzYCLmqt/Ib/qnE6j3OnN+nhdwlK3gKIedjfdo2vj + wS4SpZu673BdPw+4ISTLAwp7FqyKXYZ2uRF7nnU3/0K0jfvYc9FZjfqG5je2onjse9uvoGfuP6NczTam + 3cwxAPYC/6LAjRMjZt6p7gcqjyfw2iS8bsL7nPq4p2fuEtaZCrz/BnhzAr+ZAK+xHW4jqIv6pt1S8yaj + 5N6bL2MQjuKnEzwR3mMAdG6yACYTPBl8zrEtppHz74IFXx/+aFlA/g2VDujuybqd56rrJ2KmwTLfnJtz + voxchPYofPacL/ctWoprrrg3jkBNkZ3PSICmUFx8sire+8feJWjHaSqp2Wg5ctUvrkq2YdO2DZu2bdhl + ku3YdW5Lwi4UW+XtYAf28Tuxn9+Zgh1qahs2ge2yJ43fBG3YS9XJZ375PWhPLWSsB5+oxxbcIuFZJpmd + dsJwPews6lnG+d4MnGfgeoZVNmPvtdQ7uxftOJ2NePMlOuyNWYL7Eb0n4bJurI7c54zNGL7HGsUvoQm7 + zCYJSGyWwBP4OAEhya1wsphToMpxOrs1pQPXOyT0jME3juCeva6esaAkHfjOsMinfgVsi+k37XrAmy8z + DewLjimcqHka+MRjmouHcIj3P948JvxkiwSdapXg022yJalNpQDa+y1hKmxNtZh0yrY0YhlDXTNLhfHc + 1hRiERfffLbFwc8xOuVhD0CL9nRYaNQcDeG+cNvvOByH+ECI18IpmoSeaVeOLoNotPc78ql/gWxP75Qd + SAuyU5VWlFaUXQ51k3QrngcIdHuaFQHk6d50GsArHFR6hdzIBQcr4ia47kfXmS6m646Oh0B4iCl8ayq6 + HW4ug2i09xZxQQrsyrTK7swu2ZXVJbsV3bjWba/vZp33z3bJTrALge3M6AZd8olPLtvizMQpdcpDBcCu + 13sSn6P1huvMdbpuTxcKb4XwdrtwdjuF07kdZ606bxnA20yBPTndslfRowhjmWvU7WQb7MnqQVDECGyJ + dw7bYjo6DeDVz/wLjb2ImTJ+xzhIHV03UiUkuV1CU9pVXlO4SgMIJ7vgpJm3bxOXTXkSntsr4XkG+/Jt + gKVBeB7O1T2bhLHEswwwLLtX9iKQxV7ZMw7gtU8ZAGeYeOQ6xBu5ztkFrpvidZ4bjpv5DOF0TDkNZ5ca + efsO+WRTrkQU2mR/UZ/igIk+VxQaRBQAFaAZVK5NFm7MYlscT9MGwAHyGnPXV7k+Jj6IKYN8Z8pwqjNc + xwCDeJWvcHxPdreE5YK8HuWqmbe/J5/45EhkSb9EOVI6YFwr7Udp1COLQVG/EZxDMAs9z844gNdd/PLh + PFKG4pnveqAiZbR4zg6G68aAZG6HwfVwCI8ogNN4uZm3fyBLvLMlumxADpaDskGUJqyr8wF1nxiBgWKC + YAr75aP1GWyL48lpAG9wyjLEtxrT4zjxhusUb7gO8RDOvKXrFH6guE+5aeYtA3h3EVLg0PlBOXz+Wzsx + F1AS1A+dMyknRlAqIAQThSDme6SxLY4n5wEsRddzNWXaGOKNlZELikoZu3jTdYin60o4XkYH+XKKRnvv + ko89M+XIhSGJuTgkRy6ZoK7ONbxvBnTYDEYFUjoo891TdQD8C/eUGzoG8CbzNfgkButpTJFJxvKu0obT + I8Rzrt6DwUrnOciU68hZI58H8OIBCBjUeftH8jFSIA6iYy8PSxxgGXvFLMkl4hjIkBEIg0CPfLA2ZeYB + LEa+bjkF8QjgGzpv5rx2frdy3pgK7c5jINL1QxCu02OBkbcM4N35HumSWjkiR6/eVcSbpQKBEAYWpwIZ + NnqHgaCtONTnrU5mW3oMOAnAK0s5zw2XShtzwHKF5ALDBUcNVkyLOt8POorHC+nmfHeVt0yht+asPt2T + fqVTGm2PpL73kdT2GP9/u20dlZuWh3K1/aFcbHkgZU33pbDuvuRV35PMOyOScXsEO9UW+dtXCdzZ6q3E + 9AEsRL6GIu8pnhurHenG8k7nKZ5pw+mNacMpMBopo8TDdbpG8Wlw+8N1Km+5DrzyF5egL+auPmn7YO0Z + mbdmjLlwdt6aZJm7KlnmkNVJuJaE+hjvf33c9qdFPn9HO/w6m/bLTK3E8z1SujfGVGMba2yqOFXuRc5H + FvRKbGmfnLw0KGk3hyT3zl0pqxuRyy33paLjgdTA0UbbqLT2P5Kca1Z5f1UiXeMOkh81/BM560wDtbiZ + qHViGvgMnaf4ad3nwehe+Kvr1s/hlG0Bpi6mgQJukg/XgnUp8gHBwNKMc1U5esL2Z5fAL9Ce/ts+oQDm + MAfiTOHz/J12ftoAeJO9wA97foty78HVT+0oTdTeZhK0o6zzObpN19iefvGPZUYHH2S0fLF2TDOZQ5Px + g1x7nId++Y/hMR1PPfVfMNedQ69O+v4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI6SURBVDhPfZPtS5NhFMZXps1edLbSij5E0f9iaWBUpm3z + XyhNK21mVlMhQvoQ04EskwKLcpvzBc3NMktRimhzJTa3Vm61ihL2+epc9x6H9uIFP+77Oec657lfnken + aYOwUcjS2LQKPjO/rrIqrz3F6ev/4hkkz0brKpvm6JcUYskUFhMpBKO/MBX6DrNNNdictv1f2SYxDs3G + MTSTgPvlEu77P8IxuAhzy3M2yBVyBL02Z0NuOaMcc8sEHANh2PvDuOVawI2H82jrnYelVTUwVMnIeVXb + JDiXGJtlpGfykjMIa/ccGgXrnRAanHMrDYwc7d4IOgaisKRXtVVVasql4Yz9reJsRwDVnQHUOIIrDQot + ssILXe9w0fletjXB2HZVqUlPA2FyDTZlNnLkgZrksE3pm1mzAh4IAzuFImG3sEeDsW3CLmGfxl4hX+A3 + ktEWde/8HhTjqLxK/HxbUUWzHxXNPpy6QsZQ3jT21zbyWHC5ZwG23jBuPo7gtjemzJLbf7LpCXp8cXT7 + EugajeNE4wjjO1Slpvxy6d76IIJ2VxSdw59w17ckxlEaDxy3jsA7k4RnOolHL5Ioqx9i3KgqNRlobnfH + pPgz7o3H4Zr6imMNwzQeKqsfRCCyjDfCqw/LKK3rZ5znk1EBze7pbxh5/QOToZ9p43kvjQdLaj04cs4t + uFBc04fi6j7GC1SlpryjYi6t86CklkY3Dte4BGXkDdBcuAruP1vIiH+cQeCyWLACC2nkL/0HOt1vioFs + kBTVPMwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAx2SURBVGhD3Vn3d1THGSXNsbENxontuJcktmMHk5zjFhvU + 66qvANGEEKAuoV5WvbHqva1AIIFlhFCQMSgQE9c005ycHOePwJD4X/hy78yb1YJXuyIE/5B3zj0z+8q8 + +9253/dmpBX/j8d3PPDd/wE4zrd28GXfA34A3AX80MLdfnDPEuCz3wcYyB0/FPnouI3hSZt2XLFvThXf + 2KGAe5dEQvLWLyJj7JEYl4Lc8ZngC+6yb0y9OnvipFy4eEkuXroily5/IRcvo73yhQb6Fy5dlgsXLstf + P78of/rL5/LZH/8sH33ymXzw4cdy9tx5Ob1wVuZPLcjQ6LjEJ2/5CuNylu74LPAFd1Pd994/I3MnT8nJ + 906r/qn3F+TU6QX0F0DsjDrP67Nz83Ls+JwcnT4uh6emZXxiUobHDkrfwKh09QyoNnHjdsG49wK05h09 + GMA9tMX0sVl5d2ZOZo7/Vo5jNmbniHmZPTGvfs/MzuGeEyA+I5NHpuXgoSMyNn5IBodd0tM/LB3d/dLa + 1iXNrR0IYBsDuA/4dgKgdycmjypFp46+K0feOWZhRrVTR4+pa4cm35EDE1MyCuLDowekbxCq9w5KW0ev + NO/vlIamNqltaEUeqADuB0wyEwyG4DlfMPfxGb85xJtWMgDaYNQ1IWMHDosLGD84KS7iwKRSegTXhkcP + KsX7BkYU8fbOPmlxdklDsyZeXdcsVTWNJoBVAKsasRJgQDy32gse8AB/c/ZYzRiIzyB4w71J8GxP35D0 + wgp9gyPSPzgm/UOjuoXKPMdrJN3R1S/Ojh6teLNTaupbQLxJKqsbpayqTsoqa1mJGADJrAwKtcXEJG76 + W7x9q2hsWUTSIuLcSJGYuOS/B4SEx+F5v4VABcCkIyknrNBmtVSXoD2c7T3a3yDd2NImdY37ldqVULvC + Ua+Il1TUSFGpA6hSRDHug8DquISUa3WNrRBoWOVKN9ru3iEk/KB0IunZ8n0ckyIQBUUVEhO/+Rqe54yR + 45IHL97HAGgDkmtsaZfGZo16KMyBaY+auhZx1GqLlDugdEWtFJdXS1GZQwpBel9xpXoxW6qLcX9EUN1S + 3JtfVC75heWSt69Mt1Z/b/Y+2Z6WKZu3pcuWHXsUdu3NldjEzUYE5sWSBwO4PxGedUBRR22TQhUBokSF + o0ETtuxRUgbSULqguEIRJomcglIQKlP9XPRpBYz7Y+Ah9nPyS9zIJvKKFUh0284MN3GDral7JTZBBUAR + +EFc8lABMOlogVILJVCW6hYrdWkLh1I2H4SpXi5JGyJWm2WQW6R8jHEfAh6OS0yRTJwjMnIKFXZn5ktq + evYNhE1LMKiYhE1GBJ9fdAawikmXW1CyOLXW9CpF95UqhQ3JTBAgycwcEMouVL9pAxJjS5A0xn2YiEV/ + T1aB7MksgOJ5snN3Nghqwp6kDWgnIiZeBUARfAZAf61i0qVs3y2pu7LUyxRBKgaCJMSXK5CIBaroRoZG + ekaeAklj3EcIeplWSU3PchNfirTBDvCwxW80IvgNYDUDMIuxjVvSZAuC2Z6WodTatSdX0qEcSRCmn4bz + GjmSthswLWD59ycE+1tTl0fagPayxakAKAK/Iz4DeIBV45srz1TZtHWXmhm+kL7csStTzRJfQEV3Wi3P + L5Khf1UAjxL08nKI6zGzlSipEC46LnnZAaxhpTCkOQMGDMAbWPIMGKDxs4GVgI8R9PJSpA3xxdnUYK5Y + AXAWlxNAym2T9lTZphPwcYJe9qa0p+KGtCeiYu1mFv0G8CCTzh9pwhdpwihsJeATBL18M/GlSO9GoTC4 + lQDWsFLcLmkDkrUSUM0ArbBc0sSeLFQ9IDImadkBrI6OT76anLJzSdL+iBt7ECnb0yXKZr+KcdV3ICom + 4attuD9dlVkNQ/IG4izX1nkWhojoOO7q/H4HuNK7Z31g2FZbvP0ak49JZ0Av0w43AOoS2EerRLsBscl4 + sf36G+sDd2BcLsRWvb4+MDUiOul6VIxd2UK1CklKZTdsFmISJTw69l+vvbkhDc9zCe5zMcfIOAtcr68B + qBqnTU0/oHxs4UkveOom8D6WPs+9APusJrz+DPCsB57zwE8t8DzH4TKCvMhvyRngwYuMkmtvbiY4bSyB + 3kh7kn3aC3iPCcD8ecYzAE/ShrA38Drvp6CcBZ824sEAVr7xdrA93Jb4j5ttQUSp1q6grHCDHeyYerZJ + EhIZ9+Xrv1m/CeOp3dZrr729OSQy9ssIW6J8A9FEghvhNyEwzPbPX7/6xhaM49dKqpxG2OzXuVTIycfi + TS1/sZADcguw+sSijos8rkgLuPYvwR6gBCvV8hqsXA1qJQvPRcDDGE99yOjnHDxf7sDSvLoJy3OgutlC + k5RjA1NRgx1dDTdI/I3r6PM6nwuOtHEs80HzenBqOEWPUGWWOlNRVN3GZ92UP89Sl5GLlSmQlYflNAMs + KEeQCLC4SqmL8ZTPI2wJCLJOCstq3SiuqAfqFltcZ1ty8+/KegmNjONYtBPt6NVGPMnoHqUt3B8cizjB + 0kfie7O5pi9W5LM5S4Y4ZwbECzAjBdg70A4Y72cErWDIllY1LgIzwrYMM1Jm9UurGtxtSRXur2yQ0AgV + AMVgjvoM4DH62JBOU6tPLo/zQZzLai6xS7Ti+d6IV2uFYSOSxng/B54Pj4qXMloFtiinbWpapLK2VaGi + tkX91sB1Wkfdp4OijUIiYjkWk5p/d10yAE7P46zH7q8k1vW0CslT9UwQz7JUzyvEzqyoSvJBfF9pjSJe + BOJUuQSqhYE0xnueYJ9kHfVOqQLY6v5+3TZYLX5X1enAqurYxyYffSsAVqZlBADvGq8r8tx1kTwTGorn + gnheIbeWTGAqrskXw6skToWpohXAC8CLYfBwdWP7Dahp6gDapdZqa3DOs1/d0GYFul+Cw2OWHcATTD7z + Oc8A+aw8ViNuKTV5Y5d9ll2M4pq4tgKVI2mM9yLBJKxt7pS6li6F+tZuN/i7YX+P6jfwHO/BvQxGt+0S + HGbjWMwnvwE8yeTjmsRdXVhCUVmM6iRP1WkXk4DK1/CyA6oZda3E+wXwUigs0OjsBfrcaG7vtzCg2qY2 + nG/r1S3vRVA6sC4TAPPJbwBPMfky1eadlmHt1+Tzilj3q92lTZFnvQbxSihuiGulu41vXwJeZr+5Y0Ba + O4ektcsD1u/9XcPW70GFFtyrgkIgzQgoKDSaYzGffAbAEvUUvasSlVWG5EGcttGqa/KsDqaa0KckX9uk + LUIrNOKlVgC/JELgYWf3iDh7RqStd1TaekalvW9Mo1eD53nd2T2MgBAUWhOMFQDziesinwE8HRYZ72Gb + CneiauXhdasU0uckrxIRqiviUKyJtsBLrcRjAGvZb+9zSefAAa/o6B9X6FStSwVmAmpD4IEhURyL+eQ3 + gGeYcKZE6kTl8kArrz/x2jKOBqdONJWE2rtUjMpRbcu3a4ngcJt0DR1U6B6eWMTQhPSOHJKe4UOq3817 + BhnUuHQBHQias3MrATzL5CuwKk0h6rv2O6uMJq9qN5KVfqfqJM5pVuThZaeyh0uCdACvELRA78hh6R0l + JqVvbEqDfYDn1HUFBjSBQBCMmh2XBIREciwWBL8BPMeKQeL6o2TZxq08PkZQ3pQ+XU0s8lCeU09L8OWW + b9cBawPRH5+ckYHxox44IgMujX7XlG6toBgIZ4WB9I0ekg3BKgDmgM8k5sXnmHDuMgnyJmH5heQHhrXZ + +J2VgpWEluF0K/KwQQ8IWAFwBl5YHxRxfdh1WBY++FTO/P4TOX3uYzl19kOZX/iDnDxzXubePycz8wsy + PXdajsy8J5PHTsrEOyfkwNQM3tUpb28I42rU71pIWYgJxyUxV4Wljgb3h4lfRnqeHxpNHsqjWjDZOM0k + Tx+TvGvyuPEtp/3xl1/5Vc5bQWFfB+BcANSkJRTYB6jwhuAI9CNUuyFIA4HLmwGhX7/40ro8jMPd2ZI7 + M55UX+INIRHXufZRCylUHK5FSL4Rqju7BqULZIdckzJ++F05PH1CpmdPyez872T+zAdy5txHcvb8pzJ2 + cErWB4RTNW4fuanhn8i5W6MN1MfNC172At5L5UmeAvv8Tw2jW7N23auZAUFR/6YFgsIAthboZdVCycBQ + gK0HjMJvBYZ+TdUxHolzlcu9BgnQpvzX63LBpOVz5Ob3H35mFvgfEe5rufbg14+qGai1jRdQKQPeR+VJ + nuOZF98ulnXwRkbLF1MtKnAroGp8btmq3cnDM/r/FnfoWLHiP+Xr7HZZPGKlAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIgSURBVDhPfZP9T5JRFMcpw7AXxSit1g+t1v9hgiDv7y9m + paPMWrOaUepIaaYjJSFSotHbGkvKoIhaq7/u2/leHpFq+d0+2/Occ77n3Pvc++g07RH2Ch0a+9rgO/O7 + qiMQuYQdLsIf3kHybLSr9DRtfW7gQ/UrKp/q2PxYQ7lShS80ygb7m2X/l94fHkUmV8DjtXWkM3ksr+Sw + mF6DN3iBDbqETsGgPbMht9xSp08K5+aXMJNcRGIuhbsz85i+/wCeQIwNjG5/DE2icPuijLFZSwZvYARX + Jm/h6vXbmLhxB/HJKYxP3NwuNrl8EUzfSyIxuwCnN8zYQeXU1MVJwehlhGJjCI+MK6KjcdAo+T6a4tem + VHOHJ8TYYeXUZHDJJBYrvBE1hTg8apqJJrubBBUS+2MF/CAMHBX6hePCCQ3GDgnHhFMaJ4UegXekpQPt + E4ZdgSbOAKf125x+2Bx+WB2+JnbvP9vopiExm1InkXyYxsKjVTH5WHiapszTIrLrJeSfv4Zl2MP4EeXU + 1MMpqaWMnH8Wy6t5uRMbGGpOOkNDofQOxVdllN5uwmx1M25STk1GLmslW8CT/AvkNl7iWfENLDZVeM5s + daFa/4Fa4ye+fPuF80NOxvl9WurllHKlhvdbdVSqDbna3zEoRsmdHRQDTWTA4sCA2c54r3Jq6uYUQlPL + IMWS4wmwuK8N7l8vtMQ/zihwWTRsQyML+Uv/hU73GzkOGZaG6wQ1AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAoRSURBVGhD3ZnpbxvXFcXdNLblplbipsv/U7QFWvRD0X4o + 8t8ECBCgQIMULhAktWtJtrVRu6jVqmRJlq3F2klt1MJVFKl9t6wEuLnnvneHT5QoUkjkDx3gh3nDId+c + c+bOmzfDG/+vy09+RN7pogf9qeX9K3LTAdvo4z3mnRl5r7qp87f+zv6RlmcDBPygU3khNIMOB++zfo8m + pr6t93V5Vcvv0C9z7SYkeX9HfyqZ3qaT0+/obQ6w7+T0W+HNW+bkWzo+OaXjN6d0dPyWDo9O6ICJJtJU + 19ab4n5xNt6JgfeR9O7BMW3vHdPOPnhjOLDINu9ntvaOaHP3kDZ2Dim9vU+pzT1Kru9QggOIrW1SIrVN + jW19xP3esv1f6yIGUAobLArCIFDZ3mewtttG+AGtQ/jWHq1t7NJqeofiqS2KJjconFin5ViaDfSqAZTR + tS4wcBM1nd7al0TXt1kgi4RQF3yO7yBxEY7UWXgsuWmFp2gpukaLkSQ1tMoZuM3odQDQLhT9Td7FGujn + JLelFCDuIrBPRKe3KM6l4iUeT9FiNEmhcJIWwqs0v5xgA3IGYEBHNoxQ2HYpygH24ewVdA15BmIsCDUc + T4EtSRegDcHYB9ERFh3mC3UpZtKG6IWVVZpbStDMYpxmQjGqb30OAxBz81FF3e99TV2jdS3PqZaRtZ/X + TK2/h7d7eN1t6aGa5h6qbOwa/bq05g/8+7wmsPNWY1u/iArHGaytSGWF61pKhBHRK0lJGqJnl1j0YoyC + C1EKzEdomqlnkdzvHaaoxt+Tmg1FKIEL3GOD4hyGEuFjLHEQoZU4hZbjNDa9QL76ZxjJcDZQUjkXa6CP + hZlEM2tTFl5p2JRFNCcdDEUzouciNDm7QlMM1kiX+/0ZQKrBhQhNzCzTRHCZxoUlQ2CJRibn6eXrIPUP + TTHTwtDYLPmaujWESw1g563G9j4v0XlOAMxxshCKhLGegWAmwGKm58M0NWfETsys0PiMFWRFQTT3Kwbq + uD0WWDRML9Iog/bodIiGxmdpYDjgCQcvhkGAfI3/0z7yGriNM4AkIQ5paVtgsSpYEkaSEMxCXVEQZNaL + fAbEwAegtrmbXk+FmAWP4Yk5Tn3GEZwRDgZGAlTV2KUGMAjkXMRAAxsYDy5agSZZEcqne4JTBWMQzN8Z + ZdFGEDMJQRlxI7wNIJr7FQM13EaZDE/Mc+Jz9Gp0RkS6aWcjBhqeaR/5DdTzsIcfDnLtQciYpGlF8nrE + ioOICxmHOCMQ1DTL6f85qOFaRr+ocyPwvGgI1jXAdyvrCzdQhFGj99Wk0Dc4JZ295KQGuUaH+HQPjc2x + CCNOsNsQ5vLKrn1NGQPV3M6VNFDRAyNBEa5UNnQWbgBjsxroHXTgbYwOmQPMCCgDxXxmDqpiIJr7hYG7 + 1XwxXizY4IoGps8gVdSJAfRRiIEeT3SfFa5n4zLM0JcZ/pRqcwHeBWgXIjqbitrCDdzBsGcE5xYNoW47 + W7SbcnWDZ6C4ki/Gi0QrF4lHGVbUdhRuALdvV6yLCs8nWoHYKmOgGGA0KVS0S7kxgBAKMMAjxQ8RDTIl + 4o0g5gzUd+YUDbKF60DxtLa9YANFfNNIdvW9vlA0RpBcwlW0m273i1GqqOlIcr9yHyj3dSS7B8Z4hGLB + lmzRrnDw/OUEPa5sXePf572RyWz0m5Kqv7CJNEYMQ5eAUtD1GThhpKxrgUcNjBwVvrb0/a/L/sr9yrQZ + 7XJfaxolIdRh3S4JP605zxNQ1ZL+4t8lf7N9IOScCwzgC5ivY+KE1GT0YKSGL+DDS8B+XHg4MJIDaOMz + 7P/Ici8P6AfpQxf05Z1S40uYe2MOryYKEXwR+H0uAxeJBb/IAp9l95XXxM37X5X+8amvdUzLQksEpeGV + CFPutbUkOrgkzLqkyj/+xb8e/In7w4Fvo/2o0j/ulYivjcukjR5jrfA21vjscbXSSg/LGyc+/+dXf7Z9 + XVpK2HmnwteexkU7FgjJfGicJ24ZeJsnczq5w2RPmF2WSaDAM1aMLKVcw9yflCLqeZAvXMxyPeyzhDxP + CDxFB/bZAmBG/Go0SKXlTevcT977AXZ+gFQxIrijCpAhT0cPzI94pMAkTmefmPTpVBrmcCFyf1IeSHaC + zZ2BZ7xnwRQd4NlC24ayqlb0hXJCiedcYOAuDJwT7ozVmMfL7JOnxyLceQYwDzT8tMUHhWjuT+r5CZfD + 5Fz4PLOGKbuNtbTZID6HGbTLqlrQFy78/AZQ2yraFa+Ja+pu4ipcE0TC1sDH4LGvlaZQGoqUSjSDlg6j + 35uSByhjrLRSDOBsFmCAL0JXvN5Y3FIB5uEmk7imZRKNyMXI/RkDXAJS56GYR9BBtwPyuGqAMbOOXMlA + MUYJLRdNXsVr4hCfSd0kDtEmPSQa1br9JUA7iGdqvL3wwCsYRrfxkkCeu7G2hqwZawDlWIABX7uINvV+ + vlw88Zq61K0tAXtAJFrGQyD35xmYxQuD5VUD3m4A3bbgO7MwZg0ZUzEqrfCrAdzUci5wV4zazS4ZfVh3 + xevFp6lDeFDSw4ETeuH9CqA9H04KC+E1Yd5i2rwP75mYOcExxYZKjAGUY14DH8KAK17TF/FerWfEBxZs + LbNwHEyT5vvAGQOhSOosUYvdXhCMIdcU+np0FQMYMVwD7sXqifdSh/CYnHKIx8FwUAiwdftrgPZiDK8i + 18+waJF2NO1hDFkzK2tXOgMf4fYN8VLzeOcjZZNd7ygXRzxS59MuJcEHhoASxwDay/GNsyQc7GdLcccc + jNgzZA3gespvABef3pzOlw1KBhcpG/DEZ1KXckCKnLY9A78BpZV+Wkls0srqJoVXtwS0z8D71ZAaQT8w + kmUg54TOM5C5YN2yCcsNx1ysEH+2ZCAeB8OBkSZEc39iAALCSRbORJLbgm57OKb0rMAITDyqaEZfuJ7y + GriHCy4jHqMNxni8WsyIz653nGqpcT4gDow0bWqegdWNPYqsbVN0bccD2x5qSo3gjKAvpsQYKOgM3MOp + x1Dpikf6OkxiiETZYLiTenfFc3I4OEQ4Bj5+WFafWoqs0uHxWzpg9o9OaI/ZPTT/v+F/t83dIzL/uR1Q + anOfkhv4B2hXNHxTVofX7HonzmOgyu8YMMnLDQplg6GSL9hzZeOK5xSTnLY1gNNe/OnnX37ynyeN6ygF + pHkR2Cf7yzPtR9x+UFq38elnX37C/ehb6ksNFD982rDWPzxl6t6OOPjzYp5Tx/8GYRYbW2OR6zvyfxn+ + 9MO/l3uc5sHxCR29OaXlaJL+a1LDDBJPeDg42igDuTfkQUYv20byeCq7NH0scFf02T/u//0Bp4WLsCQb + TtUj+3Nea8L4PVLn/vSNAoAA1HAh4P8xgDZ+p8lfagA7cSA82OPhAXMPmU1aZF6TBySGNdKGeE3tx6Cg + BV+EWxz4KollU3Bq17nowX8I17TcuPE9Hb+fZK5WDWMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAH7SURBVDhPfZPtUxJRFMYpQ7EXpSitpg9NTf92YhovgoCA + iviSWoYzpIWuAgtCi0EqNkw0TH17Os/dyw7V5DPzm7t77nnOuS+7Lq1rwnVhSHNjAL5z/koNpbPvkCIr + b5HMkG0sLJMtyDwLXSk3DT96vxTd3k90uj20O13El1SBETvt/3Kzm9Vqw2q2UftyDrPewnHlFLH0GxYY + FYYFj35mQW7Z0XBCOhmmBaNsoVCsY984wd5hBdHUBgt4I6l1zCWFhTWEE2uMsZgjT2xxEzt5A7m9Y+zu + FxV8johB5n00laoNlIVQPMvYLeXUGo0mN7CZ+4StXEGxvXugCCdWmTwRimVVg/cfjhCYX2HsjnJqebg0 + e3mrCJG4IKZgTCX7aArMZ/A6msFsZPmfFfBAGLgvTAoPhUcaxm4LD4QnmsfCuMBvxNHNwS79TjN2t8mZ + uSW8IuFFxbQg8T+2MTYbyajDyxdMuYEqPh7VlEnmntJgmA0cErkpfzDN+D3l1Bpnl/yBKVdYVVfJxOmQ + Snzml7Fc/4qSfB+lkxamginGfcqp5WUX3n+h+BlGpYFirdnv9IKG829dxdnld0wFVAGej6O77GY1L3B6 + donWRWcw8TlHmyReauhRTq0xv3RhJ5XYH+0CvAEmTwzA/bsFR/zjvAKXRUMfGpnIX/ovXK7fZHGgQ9g0 + kEwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALtSURBVGhD7Zk/iNRAFMbvVFBEQbCxFREs7BRslBW8ZIPK + VS4yyR4nFmehFhaicJMZS3urs9DGRitbG7VXsRCxEwVLQVQU/+Cfmex3e5udty+Z29xlD/KDj4XJ+968 + l01mZtmphoaGhrEIY6XbcfosjNOFVkfvwPDGICs+Uf9WJL+azyXTzCGETC5u8Y6eT+y3UqL4vsJEfQ9i + dT8S+ijs9eJT/LCQoj7GKd4Kaeph3OKtkGr9qaJ4K6QrRyTSViDSJ+Ylunt6QW/HsDdVFW+FlDzLhefM + Qr6aEXI/QkpTZfFWSMtDGa0CIT9HseogrJCqi7dCah7KmFOsbkXR5a0IJ/EpPhDqCzVOCel5KKMjc3YJ + uot7YcnhdefNoxkKfYC8RghT8FBGUkJ+aifpKdgy/B4beW/5mEBfd5VNUoRrTG+4Y339Nddvtlp6S9ni + g0T9MI/hRUyXQcVRQjgPZSpowhb1jhp3JOT7oJseySYagIwlhHCeUaaiJgol0kcn5q7vRrocZDwhhPNw + ptU0YZbfP9antd6ENA6UjxLCeYpMXk0I9THs6gjWkZBeQgjnKWNydmpCQSJ/Bok+AwsL5aeEcJ4ik+dS + +TsU6pqxTffcNLTXFcJ5OJNf8Ssyq9TD1rzehTQOlIcSwnlGmVZbfF9CvZ2Z04eRLgcZTwjhPJSpqHiz + 0rymxodlN7Gwm17KJhqAiqWEcJ5hE1u8UL/MD+4rxjbtszqZ3xgPZs9f3dmbcY0bGCXzcn4wRR+DLcNv + n5Bvgq4+2PNR111lkxRBGQk9Pjmv98CSw6cJ8+h9a8fyHHWNEqbgoYwDyg5vnU5nM8JJ/L6J8kJ6HsqY + KTs+61mEFbIWTSA1jynyuHnJnubN8mV0dnEfQkpTdRNIW45+I7G8YzahbRj2psomkHL9qaoJpKuHKppA + qvoYtwmkqZdxmkCK+vFrwv5rI2+POgjWRlETZpd+YT4vDJ6ZJg63iQm92xy2iQ1xtxsaJpKpqf+CCEHE + lTDFZgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEvSURBVDhPYyAFuEXXTnGPrtvnGl0X7xZSLwQVJg5ANf+H + 48iah+7RtT1QafwAQzPckLpfDG5RtcZA3OUaU68DVY8CcGoGYqBX3jEAnfISynnlEVUXCtUHBuiaXaNr + fgLV/UHwgQa4RtZ9AhryHaGwtgMUQG7RdRMRYkAcVXfCLaY+ACj+DSYGcQGUA5RoRpJ4AGODcWTNAteY + Ym6QqzBcAOOAJIGB0g/jgzDUtnSQHAyQbIBbZF05UIoRJA8COA1A88IdGBvMj6rb4hVfL4HXADiOqmu0 + j68XcI+qnYQs7hZVc9M9uiYFIxCBxCuwACg6o+qDwO6EAmxpwDWy5i+cDTIAlpDcI2q0ofpQAMGERAzA + m5SJBVgMeQRKdFBp4oBbVN1U18ja/UCnQ7MzAwMA4XBI3SqtoJ8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALvSURBVGhD7Zc9iNRQFIVnVVBEQbCxFREs7BRslLEccLEy + m7wkw8gUa6GNleVsaW+lhTY2WtnaqP0qFiJ2omApiC7Kqvhzkjkj+bm5ydvETRbywWF2Xu65797My8vb + QU9PT08tPM+fGeOv+76/6jjOAQ7vDObFB38S2vC84DaaOcWQ7iIUn5LrBs87+6uUFZ/RNyyxB8aYs7S3 + i2XxKTFFe9QpPhLTtEPd4iMx1fbTRPGRmK4aeGiG0FNsa/eWl1f3c9iapoqPxJQ6i8LTZvMKOs6QyjRZ + fCSm1ZGMkVzXfMa+7DCslKaLj8TUOpIxKRR2azQa7WW4iE3xnme+SOOSmF5HMublr4dheJSWFHZ3Pl6a + J+RreXEKHckoCUvqEx7wC7TF2N354P7imCBdlxRPUoZgXBPGFvqNQm4Oh8M9FsVvIvYqp4sRYkQxXEcy + 4VNrIjp4vZPG8zLvPS88E0+UQI7Ni+E6RSb8rTZRLvN4PB4fZroUcnxeDNfRTPhu3QSelV/4XJvNZruY + JkfWUySG65SZMFa5CRT/EUtmRGshklcSw3WqmLAcMm9qUd/xgF+iRUXwimK4TpnJbp8PfqLZG7Atzd0y + gk8Uw3U0k2Xx/4Rf4tFkMjnENDkkjySG6xSZtlr8QjgyvPW88WmmSyHFS2K4jmQqKx7FvZbGBW0aE16L + J0ogxIliuE7WpBWPXeYHrl+HbQnfK+9OWFIPp9PpwfmM/7mBYpkPeAOfoy0G4xZbbPBmZSU8SZ8Yk1U8 + SRmSMSvcwSeOMzlCSwpct3jZma/4H+OyfC0vTqEjGROKD284Re5muAjirN/YVcT0OpIxEo/PFxlWCjyN + N8HUOlib56FnSSO+v3Rd9xhDKgNvo00wbTUWjWCXuYuX0D4OW4OJG2uCKbcfTN5IE0zXDiigdhNM1R4o + olYTTNMuKGTLTTBF+6AYmyY2oDtFB8HWQFElTZgX+LySPDN1DhSYbaKbd1sDBaOJHXC3e3o6yWDwF3zu + /qc7MfmzAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEcSURBVDhPlZO9TgJREIWvtQ2x8h2040WM2U32L9mGxEew + NjaEmBiN9DwEtbS8gokF0GlhYYGRQPCbmxm9CwsuJzncO2fuOcz+uUOQpulTkiTPeZ6XURSdqNwMYs6y + bG2knsI7be/HptnINAvHpg17RVGc6/kKdpmFBHw4ft5UeIex+jxqzN9wabUFfMIvE2FXbhDmh0ATjtEu + WOem+QAraN4GjYnttTfgEo9lKurqBFboyPdWK+doV9IzoB0ccE3rSPoCtPoADv5eAnwN9sJhHMenewMC + 3pRl2WJ93NBf+JMO69ZNlMcnhTzOSz+nAsPWO8C5VbD3Af5FojhTXwV1IUYf0AS7QghY6JH/URMyg11t + NwOGPkGjv8/ZuR/MGDzid6VNPQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALySURBVGhD7Zk/aBRBFMbXP6CIgmBjJ6JicHdWIYKNEktB + sPLqSPZPwGhhZXmW2uzMJWliYRobU9naqL2KhYidKFgKoqL4B40zm++82713b3dym+wF9gcfB3Pf9+a9 + zWZ3QpyGhoaGkQg91Q6FehaKTnz1xOJeLG8NTPORUKtdBSL5GrlySQ8zCcv4km9+UMnzsf2pFDffU+Cq + 75GQD2JfnUW8Xmyazwsl6mOU5o1Qph5Gbd4IpTafKpo3QrlyRF5nSoeeRK5ajieX9mDZmqqaN0JJnv+N + 94fd5NXsKXUMltJU2bwRyvJQQaNQJJ9joVqwFVJ180YozUMF+6UHWbh+tLMLdhLL5r8Qa6RQnocK5pWe + Xfz5w4hksGpe35qxNz9BfkcIW/BQQVKu+hR5yUXEUiyv/P3uMYH4jlS6SRGDQXlrcK2r5K/+vN2eau8s + 27w+sP3Qt+EctkuhfJRg56FC/BBG8h29npVu/n3kyzPpRn1QXkqw8wwLFQ/BKxTy0dzEwgGUy0D5KcHO + w4XWM0Qg1B+Tazvt7SgzAJWjBDtPUchmCH2vf4z9zgVEh0JlKcHOUyak17Nvalo/9QCXEWEhsqRg5ykK + 2Twq9R8jv0NP3nSc1W2Ik1BZSrDzcCHL53xPrnw4fVLuR5kByAwh2HmGhdbdfFdu8jb2ktMol4H0E4Kd + hwoVNa/v9dfUel7mJRZ56lq6UR+UlxLsPPkQ13zgJr/05w1zj9s9ndTKzPE7+7Dlxg4wTPoX9IO+8ucQ + S7EZIhDyzYyvvLUc7ckr3aQIKpiXfqs+1gexg4hksBrCTb7pWleo7yhhCx4q2NPa4a3VWtkBO4nNEDZC + eR4qmMocn4W8BFshGzEESvMErjyv78+nufDLyO0cgaU0VQ+BsuXoDSLvTR9a3o1la6ocAiU3n6qGQLl6 + qGIIlKqPUYdAmXoZZQiUqB+bIdL/2njq7rCDYG0UDaGPKi8iT872n5nGjvwQY3u1OcwQW+JqNzSMJY7z + D8PUSymyVpNwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE6SURBVDhPlVM7TgMxFDQ1DaLiDLGdFFwEIdEhRcLeIHEB + akQTQVi/oNBzCGpouQISBdCFgoICRARaZr3PJgvesBlpJL/PjF+es2IZZIomVrvrTFPfdM7WOd0OpRjC + ItDo/BFmIy4vxm9xNJH5TFg93kTDyV6XFPfX0CQuCYMXYSRNfULmzwNNO6zzSIg/0PcZYm+Aw2um3XtI + gsNyQVbTeC5XGEW3A+W2cOFbzLFB1aToOJ61e/g5U2GVu9ztnq76qRIT+IBHdiGuGnCbcvtlLWBpA9x+ + KESx4tVAo8H8T8Ab38c8iH1cHXQmG4sNmGg+6vfcGvZwXqtJust0bv8uEc9XBTQ10m37ORmJZ8R09BXP + pUH4I9leLllXQ8ok0Bu0QZMJDGbc8j8SJk/gkMvtYJS7gOgG5M9ZiG8R7EsB96Ft0QAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAApwSURBVGhD7ZlrUJTXGcdtNSZNTExNa2/TfumHdJqZTj+0 + HzrT6Zf2Q+ukJpNLm7QmqW2TNlXjBU1REJRdYFlY9sLusstyXWBhWW5yvyMXAVEQ5LKA3OQiigjqqC02 + evr8z+67vLu8ygbR9EPPzG/Yfc9znuf/nPdcl3X/L97lS5+D/5kiCPoysd7NBjdP+SA8hw3sv7BkvEQf + CAr6bqhC+1Z4tF4erjblK9TmrgiN+UqU1rQI8Jk/UxkLYBMSqXkbbagtkhIn80SKIHxDaJR6e3iMMT4m + LnHYYs1hecVVrOFUO+txDrHJ6cts/voNDj7jGepgA1u0kUcbTEcjY18jXxvhz+33sSUiFv56RIzBrrek + f5ZfUs06u/vZtQWIvekXsEUbtIWPcJUxJzgs+g3yjUTwRtY8CThcfzg0/AfyGENsXELaDQTvGxxhs3ML + jwR8wBd8hkXr1Ps+DX6FYmFordnbgJMNoRGabREqU0WKLZ81t3WyqZlZNn356poAX/AJ3zKVoSowNGo7 + xcTbeOQkXEMmUrNDZUh0ZuWVsfP9w2x8cuaxAN+IEROXPBAki/6AYj9NrHpIicSnjtkLK1hX7yAbGp14 + rCAGYsXoky4eCVP+iTSsKgk+bILDYl5V6hOdtrxS1n6ul8br6BMBsRBTqU0cPBQc/jppQRLoUL8KxK8P + OBz6Q3lMfGVqVgFrbO3kPeM/QxLPpHiwHWKm2AqYTGms+fiTgz8iTZjYfr0FZPp0WIxBbU7NYRV1Lex0 + Ry873fmEoZiIDQ3HIrVxpOlZYsWhxIfOEbnqTbUp9Ya9oILVN7ez5tNdD2V84hK7f//+quh1jkj6BIgN + DVqj9WZAcPg7pG3FoYTKZ2jLdyRl5LPiqkZ2sqVjRWbn5iXF+YM9v5idKK+T9AugAVpkSn0BaXuewI4t + +Rbw8CnsiBpT2mc2Ws7Kak+xmsb2FZmbv8HFjF2cZPWNLX5x586/uL0i1kgbWY2kXwAN0KI1W+8dCpL9 + njQ+Q0i+Bd77MqXBkpDmYI6iahqDrX6xePcum5i6xOigxnSmNJZKG9LDqKxr5gmbkjK4vZRPMdACTcej + tMmkcROBueBV+Nh//8M931doEkdTswtZbnE1K6lu9AuIsTkKmdqYJFnvy63bd1hXj5PJojQsj44RUjZi + oCU1q5ApdZaxt/7455dJK3Zpr2GELxsPhyn/oEvIYJm5ZeS4lhVVNqxI69nzbHHxLjuu0FC7YkkbMf1D + o9weyVrS7JI2vkALNEFbQKAMO/SyYcSHz3FlnDI+xc4yHCV07K1hBaV1K1JV38paz3RRb2ol68WU0ISE + +Da3fS4NDSk7X6AFmqDtqFwdS1qXDSMk8Kw8Nr7Ykp5HxqX02mqoYa1f4PySkGqXrBMzMDzO/r24yCeu + MdEmaSMFtEATtIVF6ctI6wuEVwL4skmhNfek0FjLyC3lE8dBY2+tKKt1TdxTpztoY1KzbDrvSNlJQlqg + CdoUseY+0vpVwms5RQLPK3RJV9Mp08y8cpZDjdaS4bEpnoA8Oo7pEzMkbR4GNEGbUmuZI60vEV5HC2Tz + QpQu+W4GGWbmV7DsE1VE9ZpQUu3q/e6+ARYki3H7l7aVpoq3gTZoJK1fI5YlsFmpS7mbRVs3sBdWMjs1 + 9AepHhMj9L4h0cpijcme51K+JCEt0GTLL2fKuBQk8HVCMoGrNsrUXkiiKPMH4SiqkSQX8Em3BDYiiF+g + y32IXMWs9qIle6oXt5eKJQBN0BajT8QQWpYA5sBmhTqhD2PNAcc+5JbUeZEHSuu9yJdgYPgiT6CppZ3G + v4E/822XR0ulr38pDdBGGp2kddkQ4pM4QhVfZsUegLXXTX4ZCXFTAMpPeigEFaDBixNucI7Buo8EzMmZ + zJhsW2YLH2KfBeVL8YBYizWnhB2PjqskrVuIZavQppBIjTrFVugRIFBU2eihGFQ1eSipBs2SOC+Mc/Hz + C9dp49LRUKjysVny42IpDhBrQKLJpI0WAdwNNhNeCWAj+0pAkGynOS2XldY0c9CDAuV0uRDARaOCdmAx + leBkmxe36cSJBDq7e5lKb1mqc9t7+RD5B+LYgp4E0vbJoaMfkVbsxNDsSQAfNv72zXdeiTWmjiNjIVhV + AzjNqW4E7Rx+3G0CZzzUgmZwlvUMjHDxoKL6JJ3pc111InsXLl+CX8QQ4iG2oAOaVMaUiW3bXvsxacVZ + yCMeBV/4ShSm1FmzacmqIxH1pzo8uC4YnZwGuq82tJ7z0NgGujhNbmauzHkSsKRl0ZGgij8X7DgiH/Ap + +Afi2NACTSER2kzSuGwTQ8EXfh7a/8+wHQnW3Hto1CRc79q7PZw6c95DC51EW872cFpBB+hlZ7qcHvFA + bUgkIWd5HcfdxoPIpzgWYkMDtEDTrv1BO0kjbmWYs14JoOABMntJroovLiir44La6IItwC/b5/o47aCr + n3MGdDs9DI9j42Kc6zdu0qUl2aveg7s9EPwCcUxogBb3Ie4bBO7Fy8Sj4CEye25f4LEPzOm5t/Aqz3YP + eOg4DwZZJ+gBQ+wc6AUXPFy5ijsyJcAYv6klWe2sS1S/xBD34WKQ+wbimNAALbsOHPkraRNOoZIJoKAC + t50txxQ6C06BXX0XWHc/GOY//Z13ghE+SZcY5fSCwVF+44J4MDl9iWXnlfDnvYNjLhs3rnYuH/AJEEcA + saEhWK7GVXIr8cDeFwoq+Vx4972PfhapsTRiSeujwP1DYJyD9d154SJz0i47QH+x27qY4MzOXSfpjJ/9 + q+samaOwzFO3hLsN/HBcfoUYiIfYkWpz89vv7vw5aXqOeGjvCwUGWJFe2H0weEecxTaCCTg0OsW5QAcz + F9N0SHMz7s3I+CVW39jGktKymdWWSze2bv4M+NqiPXy5cPlGHKw+hkTb6N/3BeIK+aJb04riUWAEMJRe + PHBYtifB6pjCUjk2OSPiMmdcYMqXKxL42LjbunwJPmdoiT3HTGk503s/Dd1HGnBsEIaOXwmgwBBDCQ23 + HAyS7YlPyR45SW9i8tIsZ0rMzCPg9iH4RQw6M43uD+TicWgTfo3zW7xQvJLYExDyXqTG3IwtHWN15so1 + b2ZXgaj9APmEb7kqoeUfe4/gZ3WIF359+NzihSIkgeG0GZMpNFKbnO4ouoUNZmL6Mpu9tuDm+ipY4D7g + Kz275DatNqlv/O79X1As3HlX3fO+BQ4ANjmsBFv3Hgz5UB5rLM8qqLzXROMVN675hZtLSPxjzwuyQRu0 + hY9wlali9/6gv5HvbxI4qCHWmogXipAEljH0DI6z39odEPKX4wp9tiEpazKfzusNdF7q7htioxen2WUa + IgskFuAznqEONrCNs2ROHYvS2T/eF4jT5XcIrDQYMsJSuWbixUVwjCUNiWBn3Pqr32z/yZ6DQbuOymNN + 4WpTrUqfNqROsM3rk7L+A/AZz1AHm90BR3f/8tev/pTa4miAzoBw+FzTXn9YQRAEQ29hfuCfDxCCkyJE + fZvAf+K/5waf0csYIpicsEUbtIWPJybctwhvREgGYxeiAN4Qehbgs/AcNmLRX4hwqSKI8Zc1KOvW/Rf1 + 1lJtb0K9cQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK5SURBVDhPfZPtS9NRFMeXZk8SlGFJBPWqP6IX0cteRRFW + kPUiicBKU7NFTh1O/W069/Bzc7n5MLfl8GHTNjd1Njd1aj47TSRsPiJmWmaFUC88nXOZoiQd+HDvPef7 + PfdyuVewTxxAIpBI5CASFR5pTfn/RmSmRHpJUsgXFMi1AU6lWyckcm2vmFPK0jNzLqOGGtIme4ISUdmc + IkWpqwo1ud5B/3AQpkPzDJpTrlhTPivM5jJQeyTs2YkoUW5RaqnBsunvGYSPn+b2hWpag3lTmJX/Ej07 + TSJShDlXikoMs442H4xOTMHC0jJsbcEeVr6ssZqj1QdSddlCYlLqVfTS3QgOiXLlyrLqOujsHYLu9yOw + vLIK/kA/5BWqGDNz8yDndVBttTENaV9k5uvQG00NoiWykqHKN3ZwtXdBizcAA6MfQKOvBqutmc1Dc4tQ + XKIHZ5ufaUgr5hRB9MZQgxNSXr9hqnVCvaMdGl0dDGNNIxu/rW+AzeEB/rWRrUlDWqlS/xO9cdTgFMfr + f1ga3GBtbIM6FGzT2TcMX9e/424qMNc7WY40pOXUZb/Qe5YaxIhl6nFzXTM0OL0Mu8vHWFxagaGxSZDI + eLberpM2q0A5hV52guNpr/Iqq6xvwe3thZYOog9afX14+1vg9vih3FzPci1YJw1pk5+LatB7khocvn0v + Mb5IU/nZ6emCwEAQegbHITg5zRpUmGqhye1lOaqRRsZXrF6Pv5uA3qPUgN53TNIzYbHBZP/t7R6E8akQ + TCA9A2OgwNunkXJUK7fY/jxMStegJzbsZUEfJe5RcoZaXWpcdXq6oX9kEl/fArLI5pRT6KrWEh+naVF7 + DmGPaHdQk9gbtxLuP00XNYilfEhRatwkcjjVzJM0kf3azTsPUHMG+ce8HXSkYwgd7zxyMcwF5DRCtV1f + WiD4C6rB/mbHGb6VAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA4hSURBVGhD7Zl5cJT1GcftBSRR5JRxtLaVUw6tY+0xtS0e + XCJFBBJy35CL3CF3yH1xGZWYO1k2WdYsy2aXsOYkIXc4JKioFBBFCAEC/lmnY+fp9/nt+27ebDbYOtNO + /3BnPvO+++4GPt/nfX7H7j7ww+OHx3/n8SPw40n4yffgp/8BP7MDX+d/h73u+5DF+Y+mAgfgqMBJwYMK + HrJhuoKHFcyQmKlgloLZCuYo4Pfx/zMFsN+kD6Sc5zTXcYX3XKcVFfMcn9HPc1pxdIynDXZokJnr9LRx + jOWm8aw4puQRpxWNNhwfY5lZyVyHZXWzHZaEom6PwJELa/dO8MUpcxyX+zk7557P3t//98LSj6igxII4 + VzwveNdCPsgr/pBymYPnKfcd8NY5yik6R9kHPqDsfWcpa+9pyiw8RZn5A5SZ108Z2X2UntFLabu7KTW1 + k1KSOykrrZsOlV2gZsMwdZvvUrdhlLp1o3RSM0oNxZe/iXA58Oksh8XhcOS7yu004cG3xmHeg8tVWXsG + vsnYe4bS90nsPyvYLYNrFs5SGt6Xuue0IKUQFAxSSt4gJeUMUFL2ACVm9lFieg8l7O6i+JSTtCvpJMXF + d1BsbDvFxrRRQXY/aWouUvvxW9RlHqVO4yh16O5QhwaoblN75W1qKb5Fpn1X/zHbcbkOjnMBt/iEu8Cp + nLgtcvdDKm+AUlGx1PxBSoNUWuEgpRacwvkpSsk/Jc5T8BrLJuO9ybkQzumnpCwIZ/ZCuhfSPRSf2k27 + krsoLrFTiMfsaqcYiCfh/LDqIvW03qWeplHqMkEeVe/Q3qH22jvUDPHWstvUfPAWNR24RS1Ft+kRp+XN + cHwU8FiwG+BBDpDNVczqpWQmm+mjZMgJUDFGiOL1JMgyCRk9lIiWSEizSMendFmqDfHY+BMUG9dO0dGt + FB3VQgW4O83GGxC/S12NY1VvR9VbUXWWbyq5TWbIN+5H9QtHyLz3Ns1xWNoCx8eA3XHAAR7iwZiZCznc + cpmkdIhBjgW5HSwtAck0tAXDrcHCyVKLsPQuSIOY2DYhHhXZQjGgovhjizjapQPi7Xq0ilT11mqIVwC0 + jPltST5vhIxZI2TKvYUAy1rh+DiYNMB0nkE6Tt6gBtPnVH3oY8rfi9ZBdeOTOq3skohLQi8nnKC4BBxF + e0BYlo6BNKodFdFMkeHNFBvRQnVVF6lT7nM95OshDvlWtaVlmtAyZsg3FlmqzvIGyBvSb5IpUwRog+MT + YBqYEIAXCxFg6NzXdPbsPSt9fXeoXneJMjJ7UNU20Q4xgjaAtoCsqDILo8qRQrqJIne+TxGhZsg3k0l7 + jTrQ5+3oc656K+RbudfRMk3KlkG/m/ai6vlj8vqkm9SQcYswnbbD8Rdg0gAP85x9pv9rGuy6S6d77tHp + vns0yPTfo56eUSor/ZCiIcmi0ZHNgqgIyFqFQYiZwoOP086gRgrbcYxUpZhlDJI0Kt7M4mpIo2XMqHoj + zzJyy6DyRq58xk2LfMpN0iUNU8PuEQR4qgOOvwKTBpjBi8xgJ6refpf6OkCndAQ9uNaF43HDV5SJcRAO + 2Z0hx0WVw3Fk4Z0QDtt+jEIDTRSO87ryy9SMAdqKAdrESBUX4iWQRtVNqLpxP6S56jm28iB+mAypCOC4 + tBOO8wHvEOwGmMkBetssU1tns4Uu6byDBx7O+Xji+CjlZ/ZT6HaTEJalQwOMFOpvpBC/Bio/cGFMWhqg + LG5mcVRcFjei6iyvh7w+C8I28vVxCJAsAnTBcQGYNMAsXta7MUtwv3ZgiutoxEAzAZ4xQCtagduhGX3c + fOQO7c86TSEQDvZtoBBfA4X4GCjY+ygV5w2RGeKNqHajqDbEeXbhPudBqpA3cuWlAatH9XWQr4d8fSLk + gTZmmPSJIzTbcUk3HBcB3pdNCMCr22zei5yUpjeWFaIM2qAJPcw0S8cm9DNXOCehh4K89BTkCTyOUEFC + v0UcFWd5EypugrwR8kZU3nAA0pDXQ14vVZ7bRs+VT5Mqn4gAUvU10QgQzwGe6oHjEjBpgDm8eTKqr1F9 + 2VXSlH5O9eVXqUF1nd7XQgaDjzFjAJprAY6NXGWQGn6CtrvpKDm0jY4WD5OpDNIQZ2kDS6PqBlTdwOKY + ZQyyPCpfj7aR5fUpw5CHuCTP1T8UdpX2+ffRHMen+uC4FPBueFwAfsIB5mK5fj8ag28HqrldIsSngRJ2 + ttKb2edIV3GdTCyNnhZwpYH+4A3Ki+0jI0vL1ZYrzvKYYVhcrroO4jqI13PLgHoEqEcArSSvg/x7kC/y + PkOBr9RQ6GsqDtAPx2XAbgDeX8xDgKbIQCMFuuvGg+oGur1HId56enP3B3SkZJiMqDILG3A08BHiBkXF + 9XLVZXGgy4Nwzpi0DtIsXo++16B1OIAG8rXR12n31hbyWVlGXitLKUQEWDwAxxVg0gCP8n4j3N9AAdve + I38F/DzAZYxgtyNUlDaEykNUBuI6SOsgrUOf10t9ruOKg3rIayCvReW1CKBFAA3EtZjnhTgqzxQFDtGO + NXXk9aJF3gshgkWAJafg+AzgDzcTAvD+4jHeb4T56slv62Hyc5aQzv2dteLcfwueb9EI8mIGhKwsLEDF + Ga3UKlogxCGtAbUQF6DfGQ0C1EK8dtcNSndvJ8+XysjzxVKJEhFCCnAajs+CSQP8nPcbYWgTn80a8pUk + rcfNdQI/fu0NDYW5G6g6FwMd0lqWRrVZWhwlaQ2qzdRyxblVuOpoFdEucuVBRcRltImWPF9GxV+yYWWJ + HOAMHJ8D/LHVboAnsFyfCEHPe79eSz6b6sbha0VNoa5HSJ3/lRAXQFoDeVFpTItaqVVEAJYWFccRIWol + aa46t8y7oZ9SwGoVWqZ8ojzwxp0I2aCimdMWnYXjb4DdALy/+CXvN4Lc68nzdTV5bVSTjx0iPY5RRfpV + qmVhUMu9LfU3UytVnBHiLC3a5SapcVRDXg3xQyDbq5d8V1WRB9qGsYpz/1spp+C/qmjWtMXn4PhbwB8r + 7QZ4kvcbO1y15IE/YDxtCPcwUS1LKlBDWABhhvtbzUBcAHEV2oXFVRKVMdcoarOR3NEyHhBW4skBxoFB + jP8bAYbg+HtgNwDvLxbwfmO7y2Fyf61mAhHujVSa9iWpIFkNYQFLs6wkL84leRXEqyFeDWEBKs7yZVFf + UNjrRyFfJgK4Q3IsQDngu2F57oX3eOE9wRtVNHva4vNw/AOYNMAi3m8EOmvIfX0Nub1aTW7rqyGvovSQ + AaqEoACCDMsLcK6ShK1gkHLVWbwS4kw15vei0Avkt04N8XIrHuOoGDvnIAjgifMgEWDhR3D8I+DvmCYE + 4P3FEuw3egO21pHrq1UiQODmetof94kQZ1GmAn1cCeFxyFWWhK3nkGa4+tn+g+S5Gv3+SsVYAJzz8zEg + Lp1bA+I8aOMhOcALgAOM+4JLDrCU9xsBW+rIe0MtpW3vo9KU61SJigogWsGyHECiAlUeB6QZEYIrrwiQ + 7tOLALijLGeDRRoVFwGUWK7twKQy22HRBTj+GfC3exMC8PK8nJfrnIhT9E7CF1QGQaYizQa+ZiPPd6CS + jzaIMBIc4mDEJQp/A4NXFl9VqQjBsnwsJ89VaB0Bn6OFNuEOOCz6BI5/AZMGeBqLxWBV7giVQJQpUwrb + Ebcii+JcJi/4AwrZbKCyhK/GXa9OGKbCoHMI0iACMJ6KAJ6rGIu4MsBMhwWfwnElsBuAl+df83KtDKBE + 3A0g3xnrHbJDgk8Hua6ppG2rKyjKxTwugJKC0CEK3WSwBFmNloG8B/5mPGghLJ4zHBZ8BseXAH/ZazfA + s7xcVyJAsY08Py+GWAm4X4C3465QhKtZyMu4r62h/J3nx8aOnSCFoecpwtlIAa+phfC4AAi1Y1MtB7gI + x5eB3QC8PD/Hy3VV/i0qwWzDlPFRCqAMpITbrBRiGTsGyX1d9Th5JfsiPxEhqzHF2gvBa0YF2m0vwiR5 + 4QPSRiyoazBr4e5wgJkOC/8Gx1fApAGe5+W6EgGKpQCMkFc8l+FwTFHCFeyNjtG2dVUCl7VoHeDKKAJ4 + rT9EeyI+xl1QBJDPbe5ONa5XJWPQx16hPcFDlBvSzwEuwXEVsBuAV7ff8XJdWYAAmPc5hIy9AG8lXaVo + nzYsdiqrvC1uay244lyAIPHeJyauIzKSvIwcSJ05IgdYDfjHEPsBeLm2BpAowZahhI8Se+MuUpxfB7lv + UJMLpGxhceW5ElcsjnyMcDtO7yZehTQEgbWtpCDKEExd9gjNclh4GY7fHeCdrC/ozdQvqQjsS7xMOdEf + UWJQL4V6mPGB5gg5Y5UWcpKMVZafA/m5uKaA5eUAjBcWy1hPfNaO+WycrFx1xnJtWAT4rhYSs9Asx4V9 + Ps4133psOkxu+EzgjH3Q1vVVtAVshTjLiwDYIwkg4oKBq5RWYhtA+VxcQ3vxwN+57RhmqiEqT7xmCSGN + CT6vwR2qSPnsn7OmPsnb6Um3Erydnj996uNFLzwbNOK1qfJbHxcNeQMfFy04TN74WCnANd9t+JTGR2z8 + /PA6H32d8WFHwg/P/fk17KsY/+8gENsXJsxVT4kBLZQR0kN52BEURp2l7KCOf274U9zd6VMeq4Yjf61i + 93sh8c0cDs8/POWJ4hlT5w/w3oNXP15AbLgow1ObHS7Zwv07kflX7PD5ePC+afOHpk95vAZuvA+Sf2Ka + 8OBE/M0ED5CFgD/58B+8CHj14wVECc/HDPekEh5kMmsUrLXDOhtetYGv8d+yB38fdN9fKfnBL/Cd4M8G + vC7Y/qZ7Pzj490X5+7At/Dr3PLeN3R/37D34TTxI/p/4t8R/ePxvHw888C/lR6bx3pU+dwAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALrSURBVDhPbZH5S5NxHMcHNZe3Zh5p5oFaItL1VxQZFJ6Y + zcilmOUVXvPY8pylOZdDzUeb16bL1Kk5mZqWupmB+IOQkr/ktUP7F959vjpIpAde8PDweb0+fJ8vj54z + hAvhcQrPU5w/gRfhTpwleK6e58KKPAUhUoa7IOSVuyC4yk61nVoPQVAdIWO4CYLqaVZCLgvzvNhQTeMP + VNSbiGWUy0woqzWitGoJpdJFlJTNg+tcx6zBhi8Th5gbOYSb4HITuRdZwJsVx6a30dqzjkLJN2QXzSKn + cBbZLw3IyTdA1b0Jg/4AU8M26PuJHhtcHQKU5AawgJ+74JJ8ZvEPpr4eYnRqD5IaI569mERm1mdw3E/o + dQcY19qg67VimLNA12aDm0NAB7mBLODPauqB39Bod6CjTeMTBxCL59FQv4pREkc1Ngx3WTHUboFWYcFw + ixUuDv7d5AazQCCrZWWOIy1tFMVF83jfvoWP/TRMG7UqKwY5KzStFmhI7n1jRlPRKh3BT01uKAsEsVqG + aAQpyVo8Sh6ERGxCbwcN08ZeEntaiLdmdNRtI1+ox9N4NZzP+n4iN5wFQqmmSXs8hKQ4DcQFRnAkHKEw + gyORo63y0k2I4mnmThdEsX0U8NORe4UFwlgtQzSGcvEalCQoG4l6M1oJZd0+XhdvICmmG4m3O494EtcH + F77vJLmRLBDhzPcba2nahZxtIklBkqJ6H81VdCO5a5BLtlGSaUTqfQ0S7AFHvu80uVEsEEk1vVJphYIC + DHmdGbKKXxAljyH27geIs1bQUrmPd9IdlNN7gcgAJwefeXKjWSDKke89o2yzoqFhD7KqLeQ9X0DCg37E + 3utGbIyKIirkpy+gWboLJYU4mQVOfJ8Fcq+xQDSr5RXMIT1jEkLhEIQPtRAmD0CYdExqogbCRDXSU0ZQ + lmuConIDzvwLJnKvs0A4+4n0YYkw2jEd471s5/s/fFaOOHELTkQEceMUN//DrRNc5fF4zn8BnpTNCSwZ + v6AAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAMASURBVDhPbZP7T1JhHMbp5qW7dlmXX/pL+qFma6s1XS5N + LS28ZzoZpoCI4F3EVMyUaKKJ2pYNR07njbameauWCl7Ie9nUtqAEDog8vS8prey7Pds57/t8nvP9nnNe + 1j+1i2gPkReRL9GBLe0n8iaie9Tz36Ib3lKB9IKiWFmqlNUNqUrrTcoilalM+GhYwikoT47gBBAPDd4R + Qhd8y7Pl6c9rXs4P9g5j0bgEi9mK9TULZkZm0d3ci3Jh1eL9cI6AeA8S7aYgLQr7FPJKMjS1WuusYQ4u + hwsuOxHjgvPbBjaWHXAs2THeNY5HwhobOzAuizB0NHcneznsBwGKotrFT2MzbrCQI0NuSjHE9wpQzC2D + WtaMYc07MBM2aORacKMEC9cvhlwl7D4a4MuLFci7W3Rw2VzYtGxCFJ+LzFgJ+Oxs8O6KPBIn5HuuY4Li + FYSlo7AO82Ky3k+NGOE0OeH8vuExOT47sKRbRGVGjWdNJWpAv3IAyaHcUcIeowH+vCjhD9OSGY6vDmys + /glgjAzaKzo99/3yARjV01jVroAbyf9J2FM04Hj6bRIwawazwMD+xe4BBpoGIY7Lh6V3He2Vv4MGq4ew + 1r6GtEgBDThNA/xSwtI+6nUTYKZs7qduB1gGLBhr0KOjqgsFKTJkRkswp5nHeKMe3Ft8PWFP0oBD7MB4 + ZWv1KxLAgNEzELDFbrMwJgei2DzSRQEk8YXoUehg7bSio7QLSTdS6wl7lAZ4XTsfHJSXVLQ81jZOPhXj + NucmFCEvUYoK7mO0lLTiQ8sobB1WGConIU+tWQm5FBZCWB8aQP+oIzGBCYVKocpuaDOAMZBODDbY+qyw + 6chYQ0TDDKZVRrzI09hTb3JLCeO/xbqLHpITicEp0soMxcpr1RvM9MzC1GeGqcuMOe083j4dxLMs9Wp6 + hOAh8dK3T5m/ii74RVyODBXeyVaXp8on6/hqS0Nmo6Uq7clUTmx+U/SVuHDiod9+B7xdtCU6lx/RGaJz + WzpLRFumJ9HTNovFYv0CqKbrpfRaTHsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAgpSURBVFhHvZdpUJXXGcdtzGa2Nv3aNv3QGdtkMunomKSpTdOmVohpjTqoaHEj7qCCArJc2V1w + AZFdQVkUZJFFERdUQERc4gaCRnAnoCL3st6NC/8+z/O+7723ic2M/VBmfvOc9zznPv//ec+551xGqH8v + ECOfgxf/R15S4TbX+Qkx4oXs4ktVe0uv4MfIYUqeQTHHy8hmiv87WQc0Lgm7Cy5UqyZGjNxd+A3+339p + uedA2vw2RryYUaAYsFqHYLHaVLQ2R2eUvNlpDLfN1DZb1BzFH2N4eBgpe+vZwMtiYFf+RQyTAWeBZyEi + EhWk/3vFTc+IJsug+sxxEENkINnZwM68C+QKalGeiTIbgcWcIxXQckpxFbMiwgKtWXvQEBWuEoZrRAv1 + iRGzTQwkZZ9lA6+wgZfScs8rBr5X3NFW+rUCmqhRjSxupH5+NtKYq2Hr0Hf+pMoJ9J6vxJUwHY0ZxAAb + GBpGQladw0DqvnNigAuZ7TPhwipcmPvtKP3cJ6JaW+WSLgT6w/vQnhSF9sQo6Mv34puQIBhNZIBgA/GZ + tQ4DvB5sgN0rBRUhR9H/FHBmQIOLq/Fi0Fp0lWXhu/hwoas0ExcDAyhnRb/RChsZ2L77NBt4lQ28nJRz + VnbmD4qqz+JcjZLn5x9AxdX2OX8/PC1KR1usDm3bdHhamI56v9WUt6JPM5BR4zCQmF0nG4M/LCJcyGx1 + Ku6ARR6czkZrSRQRidbiCLQQ96uzZHZMnY8POvenoW1LMB5uDkJnXirOrFolOTYwaBtG7K5qNjCKDbyy + g9aD10WbBTt1bisMoo+fqcC3haEY7m9y4jpu5odIcabG2xtPchLxYIO/8DgnAdXLl6NvwIpeMTCErTud + DMTvVgzIDFiMoxN9RhZXijM3cgMx1H0WlocHYH5YBJuhDtdzAiTXSyKnFi/Boz2xuBflK3RkxOLkosWS + Y9jAltRTDgPbM07LumgCAg20R/6gWpzbjZmrYdPXwnx/P8z39kv7aoaP5HuI456eaE+Lwd3QFUJ76iYc + X+ApOcY6OISYlJNs4DU28Gpseo3dgObyWfCHOV7Z6Q1bVzVMd3Jgup0N29MqXEpZjp5+ZUyFx1y0JUbj + dvBSoS0hEhWz56Cb8oyFDGxKOuEwsI3Ww0Ybw1lE3KoFezlq0PPFhMWwPTkB460MmG6lU7sS5+O/VgT6 + rCiZOgMPturQGrCIWIj7m4NRPMVNcmKATtuNiZVs4HU2MGprWpXsTE0kpfwGAjIuICBdZdcFJB9slg/3 + 9Ftwdts8DD46AmNzCoxNyRjsOIwzmz1goByT7/oV7oT74saSmcQM3AlbiXyXf8JABhg2sH7HcYeBjUmV + si7KAAvWpNbjTNsAzjxUqH0wgNUp9TD0kgBxeqM7rG1lGGiIE6xtJaiOng495fQ9FuRO+BKtwV5oXuSG + 5q/d0BLkhX1/myQ5fa9ZTtbwuKNs4A0xsD7huLhSBKxYlViH4hvdSKh9JBQ1G7Ai4YwI8JjjQZNgubsf + /ZdjiE2w3MnF0QAXu0DOX1zRErAETQumCi1+i5D92UR09ZhpjJkOMxvCtlXYDbwWTa9DMWCGgQZ4xZ1G + /nU94mo6EFfdjryGLiyLq1EEiPKVf4bpRhp6a/3QQ/BSlHmNJwGLiGR+OgG3Vi9A09zJaJo3Gbd852HP + +M8lx/CBtm6rGHhTDERuP0rX7ZDyCsnE/A0nkH3lKWJOtgl7LndiXnSl3UDpsk9gbIhHT5UPsQrGa7Eo + XvyRItBtxu4//hXfes9Bk8eXxD9w08sDGX/4DE+7TYRiQLf1sN3A6xFsgH4D8OvhIu6hR5BS/xi6Q/cQ + cvAekuo6MHPdESnO+aKFH2Lg0kb0nKCvXuUy9F+MRuGCsXaBXR99iptL3dE4exKuz/5CNuLOcX9Cp8GE + ThrTTwdbSMwhh4Gw2COyMTSBmboKxNe2I6jsLgKJuJp2TA8+LMWZgvlj0F8fCsPRRTAcW4i+uhDkzf1A + DHRSPm3seDQvdEOjuysaZ7qiyXMaUsd8gidswGCm84YMbBIDb7GBN0JpQ/DGUARMcAsqx5aq7xBQehf+ + JXdkGaYFHpLiPIu8Oe+jt8YPhor5Qm+VL/bNfk+ZIQkk//5jNM2fgoYZfycm4jrtg+QPPhYDDB94QRsP + OgzothyWa5YNcJGpaw9hQ+VD+BXfxpoDtxF97AGm+JdJcWbvrHfp1XvBcIi++wc90HNsKbJnjLYLJL4/ + Do209tfcJqCBaPzXJCS8N05yjwk+6AI3iIGfsoE3Q7aUy8ZgcR70lV8Zwo/ch29RK3wKWxBacQ+T15Ta + BbKmj6aZe0Jf6g59iTsM5fOQOe03lDOKwI53x8rrvzrtc1xjZrog/ndjJPeYxvBpunZ9qZOBmHK5bjUB + /x3VcPUuhItXgTBxWT784k5JAc4XB3kg6Yt3kOTySyS6Ei6/QKH/LCnOYzJnL0DEr3+LSCL8ndGI+NVo + ZMyaj8d6Ex7pFQP+0WLgZ2IgeNNBuYY1AUZra0UVntXmaJTCdtRnTdC5jzHQke4XVWI38BavB+9MR3G1 + sFpEolaUo5pTCjqJOPV1qO2OLsIpx22+L/wiix1vYO2GMvt9b4ee5UZ0oluihaJFLiWmW0UuIrpHtAvJ + DvcJdMoSemrrKa6OcBgYtVKXW7MmsgRryJXCARpwAL40yDeiCL7hRFgRfMIKsYoJJdYVYGVoAVZQZLx1 + +Qoh++EVzOTBi9rLKQpBeVjGBOYKnj7ptaQttyH/a84/jfg7ybuSYWfPw9vPwc8J/gyJjxj5bxHb9m/B + jNGOAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAgbSURBVFhHvZd5UJXnFcZpzGa2pv2/7bTN2MSaWBMTY6yNbU1aNYvW0TSIiRsKigrRCMgioAiE + RXYVBBURBWWTRRKogAgKCgyCIIuKW6lFucDdL8vTc8733SUZ64z9o8z85rzfd957nudd7vtenNS/J4gJ + j8GT/yNPqXCb6/yIcHoiI6+xMrOgGY/iCJP/EPI4NiGDyfvvHM610iik5zRUqSacJqSfuIT/99/+rAsg + bZ4NpyfTchQDFssYzJZRFWuboyNK3uTQh9smapvMao7ioxgfH8fezPNs4GkxkJp9EeNkwFHgYYiIRAV5 + /4PixodEo3lEfeY4gjEykOxoIOVYA7mCWpRHooxGYDHHSAWsOaW4ikkRYYHC+ltI/rYTyaUdSCxpR1xR + O7JrrkvOaBoVA0kZdWzgGTbw1P6sesXAD4rb28p7awGrqEGNLG6g9/xsoD5JJHxTYyZM6BXMCD/ZQn1G + oGcDY+NIOFxrN7Dv6AUxwIVMUoyFlKhAhb/3bEdvxWiPsUVX0NpnQEHbgNDyTz1CjjfDwH0INhB3qMZu + gNeDDbB7HoWtKCFCanGOIqoW+j4W6NR2ZH4rmu7ocKLlgXDptg7+mReVPgYLRslAbPpZNvAsG3g66Uid + 7EzbyLiQyeJQ3A6L6KiQIqj0kXcGRhEIzWnGhV4tspruC+d7h7Et/YL011oNpFXbDSRm1MrG4GIsbhdQ + 2goj0IqQBTnnbiCm8Aqi8tsQntuK0BMtOFjRJcWZwKONKGvXILGqDwnVfSi9ooFnSp18lvMjo+OISa1i + AxPZwDPxtB68Lo6ijzIQScI9D0zodsDvyCWbgXPhzjDdKoehdR8Ml/fC1FuGyqDF0OotGBYDY4hKcTAQ + l64YkClkMY4OaGl6tfTeKhCa04Kmu3pk0/rm8Brf0WNrer3khkmkeucSmK7lQ98UBV1jJIzduSj3+0Ry + DBuI3HfGbiA27aysi1VAoI62yB9Ui3M7IKsJDbf1ON7cj2NE/S0tNqXUSn6IOBO4CMbO49BeDIOuYTcM + V7Pw7bZ5kmMsI2OI2PsPNvAcG3g25kC1zYDV5cPgD3P0PtyAuptaHKUNltnYj3O04dYlncWQTulTvv0j + GNszoL0QDO35IBiuHETplg8wSHnGTAbCkyrsBqJpPUZpYziKiFu14DBHK/TMG6q0gzZZ9V2iDyXUXrWn + UhHQWkhsLvStKdDWBUBb6w9Dyz6c8pgtOTFAp21YYjkbeJ4NTIzaXyk70yoSn9cKz6RaeCaqJNQi7mSr + fHhIZ6Yp/gSmO6U0sr0wtCXThitGxfYF0FCOYTF94x4MVXphuNIT+ovRyFs7AxoywLCB0Pjv7AbCkspl + XZQOZmyMq8HpnmGc7rbjEVsDzTAJEOW+82iTZUPXHCGYerJQtu1DDFBuYMiMArf3MFTlh4GiFdAUfklG + fJC75m3JDQyb5PgO2lPGBl4QA6EJ34krRcAC9+hqpNP6xtL3mDlw6T7coqpEgPuc3vJn2ljp0DbsJEJg + aD+AEs85NoEjc/6KO98E4PpXq4Tb4X7IeP9DPBgyUR8THXaj2BFdajPw3C6aDsWACRrq4BpRiQgSDijq + RUDhDYRX3MXqiDOKAFG86Q/Qt8RiuGYrhghdczQKN8wiAbOIHJo9FzcDN6Nn3VL0uC3FzQAPHJz1J8kx + fOAFRImBF8VASGwZXbdjyhSSidooFxi7jtJBEk8HCXH1EE37fJuBAveZGDrrg4HilcQKDFV/TWv8jiIw + aEL6e39Er487elz/RizGDe91SHv3fdwfNBKKAf+oEpuB54PZAP0G4OnhImd3LYWuJQHa+iDo6gOhbY6h + aZ8rxTmfSsWub1+PjrVLhWsktvetWTaB1Hdm48bW1ehavQjdqxfSMqxEyvTfo19jRD/14XvDL6LIbmBH + zGnZGFaByqBFMq3a8/4YrvOF9lIYSjbPkeLMfirW5eGCtmUL0OayAJ3rlyFh6rtioJ/zb87CtU1foGvF + p+j68lP0eCzHvmkz8W82QL8P+GT1CxcDL7GBFwJpQ/DGUASMqPD/GIPV3tCUuRFroanwwqmNs6U4jyKJ + ivHI2z6fh1bneehYswR7pkxXRkgCyVNnoMfdGZ1ffER8jG63z5D8xgwxwPCB5xt2ym7AP7JErmE2wEVS + Z87BDd/1NIrluLZxOa57uyH2dRbgvAmxU95G+4qFuPzZX4QrNMrIV39nE0gkM12uS3CVZ4foWrMYCZOn + S+4ewQedz24x8GM28KJfZLFsDBbnTsm0nt0bXdC5ahGxEN3uf8c3k6baBKJIrG3ZfFxe8oHQ5jwfYb+e + QjmDCMS/9iZN/0J00OxcZWgp4l6dJrl71IdPU+/QAgcDEcVy3VoFstd4IGbyWyQ0TYTDXnkdGS6uUoDz + mctdEf7KFBL9LUJ/NRmhv3wNh51XS3Huc8h5JYJ/8RuEEEE/n4Tgn01C2ucrcG/AiH8NKAa+3iUGXhYD + 28NPyTVsFWCsbWtRhYe1ORqksA312Sro+I7R0JG+dWe+zcBLvB68M+3F1cJqEYnWohzVnFLQQcThXZ/a + 7ntAOOS4zffF1pA8+wx47y603fc26FluRAcGJZopmuVSYgZV5CKie8R6IdngdwKdssQAtQcofhVsNzBx + k39W9ZaQfGwhVwq51CEXXtTJK/gkvIKIHSfhueMENjOBREAONgXmYCNFxsM/W8HvODZsZ45hA7XXUxR8 + j8Gd8ckSVnkeqCFtuQ35X3P+acTfSd6VDDt7HH7yGPyU4M+QuNOE/wAIsPii1XPyGgAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAi6SURBVFhHvZd5UJXnFYdtzGa2Lv92krbTNCZt0hprNI6p6ThtJtFKa+NScalSNBqigmIU2REE + giLIvgoIgoiAKARRWeUiIBJBdsWlJgoI98K93FX49Zzz3YXp2Mwkf5SZZ96X77zfOc+7+L04zfrzBDH9 + O/Dk9+QpK9znPD8gpj2RVdhSlV3cim/jGFP0GAq5vYospvB/k3nKRouQnt9UbZWYNj395BX8v3+Sjl8G + 1ebVmPZkWr4iYDZPwGR+ZMXW53YqStw4ZQz3jdQ3mqwxar+NyclJJGQ3sMDTIpByohmTJDC1wOOQItIq + yPP/Sm54TGswWay/c2vBBAnETxVIzm0iK1iTTiC7sh9h+W0IPdGO0Dxu25B9sd9axILChrtIKO9F4rle + xJX1IqqkEzlV/fZiOTW3EF54HeGnHORU31REjI9EIC5LxQLPsMBTSccbFQEawEWCc9vQPWQUuqzsz71m + T5B8vg+dg0Z00nNpBw2IOt0BPb2rpzFhBW2ov6tD/W3ijlb6IfnXoDdaMM4CE5OIyax3CCTmXBYBAw0w + EkE5rWigl0q7RwUV9QOyWyXOJJ3rk3hm8xAymh9CdUeHyCISoBjDxUo6NMi8MiRjTneoEZTXCr2BBAgW + iM6ocwjwfrAA2/Ms/LNacInsz3RqhLpbOvhlttgLxJX1oJbiaY2DQu0tLb4oaKfZKQUC875CYfsI0psG + Be7706TGDWbo9GY8IoGo9FoWeJYFno47ppKTaSvgk96CGkpaTLNgqvu18E5rlhlwPOZsF8q6NYiq/loo + pT6fGZ11hn7ZV3GybRiplweE/GvD8D3WQnEztDaBtBqHQGxWvRwMfpmLeKU2o+qmFqfa1ULlDS32pjRJ + nIt0Ze2GZaQZxnvFgmW4CZ0Zu2R2jA+tVl7rMJIbBogHyG19CK+MKxJjAcujSUSmVLPADBZ45gjtB++L + LBEV2J3UiAs3xsh8RKjoHYNn4mVoWYASXE93h+WhCsY7uYJlqA5tKdskOeN19Apyrg4hvv6BkN0yhM9p + BbXjZoyJwAQOJk8RiE5XBGQGJLEzvgFFNPMU1aBQ2D4MD3pmK3At2Q2WwVoY+4/B0J8F80A1riZskdgY + Ffk8tYkO3yBi6+4LGXQOPFMaJcawQERipUMgKq1W9sVWoIWSmR5Uwni7AMZbeTDdK4fq4Hp5mWfRErsJ + Zoob+tJg6E2j/gU0RbtIfJTwTG6UwxlV842QSlvhkdQgMcZsmUB4wkUWeI4Fno1MrbELcJLGKBcqWkbJ + j8LQkw7T7SLUhqySlzneFLkB5m8qoO9OhL4rAeavy9EQsQ6jOqWAR6IKkZX3EFR2B4Gld6W/I6EeGooz + JhIIi7vgEDhE+/GIDoZtBvVfrJXZGzqTYOhIgOHGcVT6/81eQBXuDNO/SzF+/Qj016NhvHsGlw6sUgpo + aYtSd8B4M4cEU4kUWqlMNB5xlZgI0Nc2NPY8CzzPAjMOJlXJyZQCRM3+FdD3HIWuJRja5iAqkoAKr8Xy + 8qjOhJrg5bT3eRQPge5KsAhWBSyDmmJMc8wmjHfEYfyrcOhaw6Fvi8alMGeoSYBhgZAjFQ6B0Ljzsi/K + ABMu+jrR0qZC2+QP7WVf6NtjUbbrT1CPUQGi0s+JtidTiROG7nSc916CEYqNjJqgou0YvxYJLcnpmvdD + dzUClSTIsZExo9wZAYfLWeAFEQiJqRArpYAZ5/Z8CD0tvVbljbF6L0p2GCXbFkoBHlO++880w0SMqfYR + FG+PR9nORfYCNcEraHXCoG30kwnomoNRsXcxhkeNNMZIHzP62h4qsws8F0zLoQgYoaYBpR6LyD4Umgtu + 0FRsJZEAFG+ZrxQgzm5fSFJRGKvzxCihaz2E024LqIBJilz0caKVCSL5vRi7tIck/FBGOTnG8AfN96AI + vCgCQVHldBVPKEtIEmkLFuGu3zb0bVkp3PFxQ/K779sFirfOp70PxWiVO7FDZli4ea5SQGPEl7RCoxfd + oT63BZryTzB64TOc/vQ9PNQYCEXA52CpXeD5QBYwkYDVMHne+7i9ZzO6//lX9BC3PF2RMIdmSC9zvMD1 + HYxW7oT6zHqoS9ZBU+mOkxtn2wukzP0DbritQc+mFejdtBx9bs5InvMehtQGDNEYnd4C7/AzDgH/yC/l + YNgKxFOx/l0uJOAk3HTfgJhZ70pyJnPhByLV86+P0Uv073RB0tyFIjBE8aTZC9Dj8nd0rVuKrrVL0b1x + GRLfno9BFlAb6XtDAmEi8BILvOBHB4IPhlLAgJjfzcPN7evRve4vwg23tTj85juSnGeRMv+PtDWrKTnF + ib5PVomgzJAKxNP7XbRynWs+IpZQfynifztPBBj+4HmFljgEfCJK5ZplAU4S+Zvfy7J10cuda5dQgX8g + 4vVZkpyJoxn2ui5HlzMld/6IZrsMh96YbS8Q++YckqN3V38odK1djJhfz5HYAMEfvL0HROCHLPCid8RZ + ORhcnAdFzJyF3s0rlRlQgV7XjxH26lv2AlFvzUH3Bid0rVbi3eudECpxvRQ4QjIc61j1AToZkoh+/W2J + DdAY/pruCSmeIhB+Vq5hW4Gj61yx/xdvIODnzEz4/2wmUp03SgKJr3GVZ76v/Ar7Xn4V+376SySsXC/J + eUwGjQ2keBAR8MprCHz5NaSt3oCBEQMejCgCu4NF4EcisC+sRK5hWwHG1rclVXhcn1u9JLZj/d1WcOoz + Rk2fdM/9RXaBl3g/+GQ6klsTW5NIa0vKrTWmJJxSZMqz+9b+/WFiSoz7fF94BhU6VmDPgdPylwofDjv0 + Oy/VVDTSmqg1yaXEaKzIRUT3iO1CssPPBPrKEiPUH6F2Z6BDYMZ2n+M1u4KKsIusFE7RgFPwoEEegQXw + CCD8C+DufxI7GD/CNx/b/fKxjVrmM58TCt55cNvH5MKN+p9SK3jlYiuz97jg4p5aR7XlNuT/mvOfRvxv + kk8lw2bfhR9/B35C8DtUfNr0/wAfg7ecfZ2GDgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAY0SURBVFhHvVf5TxVXGKXue5f/xNSq6SKNrWlK2lRt45Y2qda6oRTUBpQnKC5IZFEBAUGqoFBR + Fq0olR3CpoAajbaYGqJNkaogoI/HY/n6ne/eOzMi2tgfSnJyvvnuzDlnZu7c+/DRf6MYo18BY/4jxmqg + hs5rDJ9RGXlN5ccLrtDLkAnkj4A8cDNlAHkvxrFcgyZBes6lCh3CZ3T6qUb6v/9SsuqJvfE0fMYcyVEB + vN5B6vMOaJga7IQa9zjOQe3h2tOnx5hfhqGhIUo6XocA4yRA6snLNMQBnAYjQUyEFaQ/TLx3BO7t69fH + 4H4a5ACHnAEOZ1/iVKRFcSfqbgQwczILmDElruFRJmLm0cfS04yeHkOAxIxaBBiPAGNTshpUAC3e3nKV + quLWU1nUavrzRqNcqAyNkIJbMwzc3MexWxu6Tc+qFZ4iwOAQxR+rsQMkn6iXALjQwygMnk/3a9OorSqB + Tqz8UJlxX92JDmHEZex5I4OnQK9iN5iBAAeOVtsB8D4QAOkheGrDJ3SvJI7uZn9PactmsdC/GADaRLFX + +FpLA4UnLyVXwhJqvlXHPS89cXtpgAPsT69CgAkIMC4xs1ZmphFtqS+nw4vfoaQvp9Ot6mKVHGPMGG9t + aKYzK/0pf/laulPXpEwhLtzPjNpLa3b60oWrEXSmMZS+CZ4tvR4T4EilHSAho0YmBi4WEwjpuxgOmGT6 + LaR76bvobnIopX3kJ70nbkDdIUxgttz1PuXWBVPseT9aHDTTGusfGKLY1AoEmIgA4w/y+8B7MXeBi521 + Qj/1iJGXfpr3Od2JD6HbG/zo0Jx5lrCFp4qrGkvpq4AZtGDd21RxqVj63dzvHxik6MOOAAfSVQC5A5iB + Hejhu+vhvjG4VVJFCe/OpYOzfenGr+XPmHaDYfQSIMC+5DI7wP4jVfJejIFTUBgXOsQtA91zomuEuuuJ + qg28/YMUlVSKAJMQYEJsWqUVwFw8EixBMItKH+LGwMkajx1s0McB9iaW2AFi+H0M8MQYbtL8Wz2FJS2h + UP6MLt+otQ00jLgY9GiDEbhT6j6rh9U2MqEYASYjwMTolHKZmUbMYPXOOdZn9DV/RsqQhfR4w802Coyr + oICYMqq9/hd18pgARj2KO59jFWD3wYt2gMjEYnkv9onq5OWu9/gzCqGYC360KHAmdXZz34DPWeYqpJM1 + d+lEVSst3JhLHdzv6GJ0e6Tu7FKswLUew8q6Pa4IAaZIgN3xFyWVEucQwn386ZTIZzSfP6PSumIlKmJg + Dy0KKaCjZX9QxOmb9EXAScvgdk0TFaxYR7nfrqXfqy9z30OPNFBjZQ2POW8FmLSLH4cK4JHUlgkEBbqn + j0WIzy2pb6XP/LPIb00WXay9w301lvnpAmuhSp3rRw+5ZwIAWNC2RUuAqRIgYn8Rb7eDYqoelZ3WmDpr + JQQ2tQOPPZT+sVqoWvz9KPGDefSQewq9wgjgii60AkzegQD8G8AYKyFtwBcAuFBqbYK7MsJm3BhcK6qg + eF6oDszypSvnS+kB9x9w/0EnuJcXt34KjfrFDhAee0EmhjGQR4Yagl0QVcKt15uoIsafiiNX0e2mBm3K + gHCnCmAbOVnhb30eVtbQvRJgGgJMCeMJgYnhvAtbjKF75xy/E45/58vGGMM5EDawzYyhqQ2w4G2JPGsH + cO0rlG0WJio1G4IFtkHOevM7YRWlLp1l9YcbPAu3cLs+BmOhC9kjAV5HgKmh+87JxDBiRni4+PXKEkpZ + NIMOLZxOV0qKHGNubWDYrtuFTa2OsYoG7y5wBIg6J9utETQi5qLhffvYKf5sfR/o6FXMPXA7jjtUgB93 + SYA3JMDWvWdlGx7JzBZ9UQ2GmQP62Bg6e0AnL+Obd+ZbAabhfWBm2uJaWIsIG1GwHlOCDhNHr03XbY8Y + jjHU2C82R+TZTyB4z5nn93Y+du58wGNh3owY2JTUxqSgNiHNTlh7C6+mjA6uO5g37rADTAxwZVVuisin + TZxKIZdPyKUgPilox2kK2s4IP02B4afoByCMsS2HAsJyaAMzsN51UiH0Z/LfCmSTP9frmAVbsmktEJIl + WBGYVs3eshviX3P8NMI3iVkJINmr4M1XwFsMXMPmPqP/AUx1qTaEBunpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAcuSURBVFhHvVdpT1VXFKUOdbbDX+i3fmnSxqYaTRTS1E7RNjVptGnTJtVYVFBsHcAB64BhEBFk + EJBBUYT3UEGrSBmewmPSqjiCIlQFUXk85jcAu3vtc++7F6sm9kNJVvbZ55y71jrn7HPvw0/7G8MY+woY + 9x8xXgPa4HmN4Tcmy3qx7NDxv+hlyAYKngMr4iXKAqwvRqZFx0VB+rHacs2E39j0vHr6v/+Sc6qJtbEb + fuPSjikDHs8wuT1DGvQ2ohlq3GWag7aL2y63NsbxZRgZGaHEQ3YYeF0MHMitoxE2YBZ4HkREooL0P0M+ + +Ez0eIfJOzQs0eX2cr+XhtnAfrOBlCO17Io0UkweMR6CGMj0yAQqKhEfXCBHm6NL5R7vEDXmpNOZhQF0 + M/OA8GEMBhKyqmBgAgyMT86pUQb4YS9PMj+EHKRKUCPXRAe0CLEB7kc+IHOQMzodVPj5HGo/kU3Wjz8S + A/0wMDxC+zIrDQNJh6vFAB6EYOGXc+Uhi/8M6mlpUWI8JqsUQFT1iaje1uBse0QNcTF0Kyme7OGhlPne + O1QTHSG72z/IR8AG9macNwzgPGAA7t1soD4uSh6q3BpKjYcyqTIokO7bbKNEdPTrYOJuh5Oup6dS6ZJF + dCMjjXqdvVInWDniwKCH+gY8NMQGYtNtMDARBl5PyK6SygQhVujms/NwDSAiby2voIrApWRbuZxaKyqY + iI9EI0bs6xukRquFir/9hi5FR5KjvYP6WEzm8Q5hUZjXz329uoG0CsNAfFalFAZWgYeAfpdHcjPulZVT + 6bKfeXXpdC0pVurkclwkXTuQQpVhodRx+46sECIwAPGbRQepaEUANVhTJMeYd2iEYg6Uw8AkGJgQx+eB + c4HDPhbCw+a2gpd6kTNB591mOvmZKq58rpPuh21C7EO/ili1Zak/tZxNoMNLZskx9HA/blhUisnA3nRl + AOQihmhC7wDEDQGspG6vqpOaqAi1Mk20B5GB2HHvLhVt+JGS579LF1KipJjRDwORSaWGgdg0m5yLLiDQ + CCWC0EQOUyDD2SLqwkC3Fu/W11DWdwHUdvs678Sw3BZwYBy1szvxTxiYDAMTY1IrRhnAFcP2IT5LjhzX + DquWcfT3qTE93qmrptSFH9JNWyk50cdA1AHjEQklhoFoPo8hLgyIwKleOFctKcq5RgIgTypqoDlBxyj+ + +GUxIwK9iryptppSFsygGxVKHP1dMub2zcH7YFf8ORiYAgOTopLLpDJBhJVZlgVohTOTBnknzCvAeMCa + PDpob6E5K4/Q2fpWKqhspran/dRYaxfx6xDvdYtw17+iMrAjrtgwsCvhnJwLBnHd7OkxUjjH1/7AhdSs + PczocVPjAycFxpbQjGXZFM0fsbpbHRScUE7+IXm0ZOlOSss+TQ8e95KD5zp7XHJ7sEsobjzv4D7UzdY9 + Z2BgqhjYsa9YXGECtgkmMKn97h3K/v4TaqqvlbELDW20KPwUXbvXKeMgh7Hb1XaKWzCbkjNOUxCbmReS + TyGJNjGXcOKKHNd+jn18mxzdLjG0Jfq0z8Dk7bwdyoCLuniCcsor7lbkqV/PotOnbPTpugIqqf+bOnkO + VuLg8Vv2Kkr64gNqKCvhfreMtT7qoaNlt6nI3kxzg3PluOZxxJsW41jgpigxME0MbIs9I1cFoorYpUQE + bioqLKeAFRmUby2THGMQu2m3s/j71FAKcfVMp1PFpxz7+r0Uk1svxxXLP3pwg9APA2FRp3wGpoTDgJsN + 6CRCBCE3nb/ykOb/ZqU8SyllLPanh02N8qpGTFs0m65CnElB/NQ5qEUF8OCa4mPVw2Yw/oSBowjdXWgY + 2BLzh5wpiLADctdZ5FZrJ3216SQV17UIYVtTE9miguWKlmxfTvdvXFdiXUzcpQw84fwJ8lFR4bE2D2/W + 0AgxMB0Gpm7mgkBhgAyOEwuvSuGs2ldGDc1PxTXGsHWWpfPkih5aPFNyn5APhpguqLd1YIEbdp00DIRF + npIC0UX0ez43KFeJCNGgbGOVdkVtSZFiFv3PCozGgMQOLUfEC2/9TjHwBgxMC40s8glhMDbvohTOHi4c + 5DoZdgI55iIi10WUgB6NdodEva1yvK7X7ThuMrC7SO60LoIJEEF87BMxVmHkZvLR7UeAY1BF7kPsQO5Q + Bn7dLgbeFAMbI07Km8osoLcN0he1ESFmgpbrguY+oItf6Wt/L/AZmI7zQGUa5BqxRiJRJ0XUxhShScTU + 16612zsZpjG0u/jDtHab1diBdTtP+L73PnCOrTLDKZFf14xuJgHkK8cAqXwv9La5T8BvWIaD2w6Oa8IN + A5NWheVUhGwroBB2pWDhCRZazZNWh+fT6q2MLfkUvCWPgoDNjE18TTcfo5UcgRVhuQqhRylwI3CEArn9 + C0fBhiO0HFifI/gpOPU8a8vXEP+a46cR7iSqEoCzV8Fbr4C3GXiGxf3G/gNXroH0uac5KQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAcYSURBVFhHvZf7U1XlGscpu5nVqfMvnDPTTD/UjB3Paaa006kzU5ldpqlppjnnzMmmjqXljURF + TPCCgYIX5CYYbIVANqCgIZooKKIgFFNqqElTgXLbbGDDZm/g2/N93rX2WjrkjOeHmPnO972s9Tyf932f + tdYmyvq7XTTlFnTH/6k7LbHNOLeJom7PLz1bs7u8BTeThyqbRKX0ZuRTpb+tPK+ts6rc4jPHLIioKbl7 + m/B7/2UWNEByczei7sgpNgCh0DhGQ2OW7DbdLTMfdF3DdlDawVFrTvxmmpiYQPruUwS4SwGyixoxIQDu + BJNJk6gb6fgNwUdu8FB4HOGxcfXgaFjGwxgXgB1ugKzCM0IFKygvNKtRMZnbJYA9xyQRBRmcbfGg6YfC + Y2gryEXVq8/ifF62QnCOAGn59QS4mwB3ZhacNgBW8OupTVDbNbi2xzBsOZMNyzj7w3oN+2EMdXSgYvZM + dO7zoPSfT2i8AAHGJ7At76QDkLGnQQF4Y3gyagaWOV2liknNmCa125autrSgcUU0Lubn4lTCKuQ99iec + 3pSouxsYkSMQgC2f1zkAPA8CkD4kK6+Y83el9v5jBvounMdg/+B1CdwK2JLAHc0taIhZgrp576L98GEM + yxjrhIugD4+EMDQcwpgApObWEuAeAtyV5qnXymTAUdmBpq3JSl0fH4fLpV5Uv/kaWrMy0N/ZpdewHvR4 + NGgYvzQ142T0YtS8Nxc/VFdjiIlEhGLCIbo1NmgD5Bx3ALbnn9TC4A0jNrXshKEOo/vSFZxN2YzKl2fj + csU+nMtJ0yNq3ZGC7wsLcGTuf3GpShIzmYhJNKG2w6bvmguPTWBz9jECTCXA3VvlPHguAaU0tO62URh9 + XX242tyM/S8+pUdU8swM9LZdjASOKGB8gC5St8YHxFngyVkugC25BoCBmJgVz9XTA7yRq5BxBmFBNqYm + mcJKTtRrbpaUxcqjotvzBEjKOOoApObU6rnYCc5X7kLlfNnikgyTgAGtmwnJa1jRdDuoLb+rzSfkm+Lt + 8L7zJJqLdmif86yfjelfEeBeAtyzeefxCABpS99/Fu2H0uB5669oqzmIc0er4PMN6s28ho+dvhe4Khnz + D5nE9I72H9FSWYqDCdFoKszGnrf/hssHtyHn9b8ocL9cMyoAiWlHHIBNch5jUhg2dcOuFGQ+/whq0xPR + 3tKI8mXvInPOdFSsmo+fvv0G5/bnmB3yZsHX3aMJD8QvRc6bs5Dx0uMoXz4P9Z6d6OnoxImsZGx5+s+o + SUtUcAWQ3duw/TABphFganJmjVYmV6AQem7j6n5ZMcevdXajqawI337pRcncWZEdOuNJR1nM/zRh+4UL + 8A2NwjcYQv/gqCbTJ0te7XT2OUeAdVurHYANaYf1XDjpkxuNpD0gTtlj0mag+uwk3aFj29Zqn+N9A0GR + uN9p+/zWmD1vzfEoPk2pIsB9CrBuW7VSmYQ3JHY5A3FlfCQZhM65SBI7uXgvk7OvCmrfjAV1Z1dvOhgB + uHetbIcBCCq1ncznCqBj0qabQuRbjqt3EvZG3FGPJfcYd21VsgLcrwDxqVV65s5WmQvp7lXQmTS9ohUz + Py5GqrdF++7gvf3Ge+giuqMRdQLEJh+IAExbQwApFDuxCcTViOQGOxC9oyeAZxYWY9epdsxcUIiCI+ex + IvsEimra8N2VXlcyE4ePKROyuAnQLSL0yo0VDsDqzV/qmUboFYASYj+pR3ClcwAJngZ8VtiIuNyTmPG+ + B6nyU+7nriF4Dp3DJ5l1mB1Thldi92F5Vh2KjrbpXIr82nr0XzuxSX70EKLbJ1AESFSABwhwX5wUBAvD + UI9cR93RPYwd5V/jhU+8WLf7NNoFhOOcHwyEFbbbJyuz1Hq5B/kCFJ1Ri7xD32H6f7KRVXsR0/+drUXb + JdewhpZv2O8AxCYd0KIiAIPbZ7x+z2lskZ/Si9OOofVSj9JTXepOUgadTIyVIN/9h9/Yjg2fn9D+NWs8 + Zr0C/IEA969MqtQVMRgpn1u8V8941oIvZOv9kwa/XsMa2HHT7pKj8wfMY8tXNfvXZJztZevKXQAbKyPb + Q7rUvWf1jFPkjPVGK6gT3O4zoUl6Y/sq1TdiXMbo19jvMwDRaxXgQQVYkbhfAMz2sEoJQSC6obZlJ3C3 + TWIGjsjq2wndY5RPXslLE8oiAA/wPFiZTnArsBVE3Q5Kt+ZMQFcS11in1e7sFbnm2Ob3Yml8qbMDy9bv + i3zvI+JHSNytfnV5HYv8EoTqt2Q+Qpa7xTGVvE1FfXx1iy9e4wBM/Si24PiS+DIsESojr1zgxSK5aNGa + Eiz6VLS6BAtX78XHVJxoVTE+iivGAnFqfmyR0cov8OEKqhAfSvsDcdXyQsyjYgpU7yzcWSe59WvIf835 + 04jPJKuSItmt6KFb0B9FvEeSR035Fb1LjyF7JATMAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAafSURBVFhHvZfZT5RnFMapS93t8i/0rje9aGzTRquWNGlsNE1jF5OmF9XGuINLXEBwBwsIiiOC + LAI6IsgIAhUVBFQQRVTU1qU1EEUUEIZ1GGaA0/Oc9/2WAjWxFyV5ct71PL93+b5vCNB/Y1hjX0Pj/qPG + a6GMPG+wAsZkuGrLjuXdolcpEzo9ilyINykDcv270nMN1YpSs6+Xa4iAsak5N+j//kt0VhN7YzcCxqVk + KwCfb5D6fQNaRhnRLtXvtY1B2ctlb7/u4/gqDQ0NUcKxqwB4UwCOnKyhIQYwEvoHBmmAhWgYKqNB8ul2 + RGkflrxvWPT59XiO3n4/t/tpkAEO2QGSTlxnKpKV+AeG6JEzlYq/DqT76UdksiRHHyex9yEpjEReJEeZ + o1fVff6BkeO5DwCOjCoATADA+ETnNQXAk2FYuGAOPc/PpNy5M6g+K5MqFs4T1TvT6cy8mf/oK//2K+6D + MMYoK9nHu774RAB6ATA4RPHplRbA4ePVAgBqP1PfOBBN6R+8R9djIs1VevSK7H393OeRPtU/XP228dcw + no+wt4+PgAH2H71sAeA8AOCRM+Jz5Yly/hwBZRigPLyv1xAntqJPooeFe4JFIHr6fNTj8dEAA8SlXgLA + RAC86ciskptpkOO8MQlR2nRyRNTFZIQ4uS73SNkn43F/sFPIhTHdBkBKhQVwMKNSLgYmg/RBYRoVrgyk + u64kc9sMwQTJlaFaqbR5ILVCmKAP5vcLUsxcqKMPF33fkXIATALAhAN8HjgXJAWta2kgNZxz0LFFH1Pb + 03pJBpNuMVImdkPD1FBLYxPVuo7TH8UuOrX4M8l1/MdPZXFd3I8jjE6yAexPVQBIhK26lhZLiV++T6Ux + oVSTEU+5QYvoYVWZ9Msd4TGIYtyrTBsfPaTKtHjKWraQEud/SIXhQdR4r46upsRIritJ0TKni8cDIOrw + RQsgLuWSnAsSYbXKRN1+mPxecpacvyyg6qPxVJcVJ1t6JzeJXjz+k8ockZT6/WxKXjiTSuJ20v3LZWIi + 0sB4geFpQb2T23G/9iaUAmAyACbuS64wAczJo+jFXw/p1JLZsqWZP3xEt08fo4rEWGq4e08Sd/YoA4la + HbZoCMcc6SixAGL4PAb4YsAECYxoJOxCZOFxrNbHU+HYI3XTqFsbjBLdUu4327C7EQcvAGAKACZFJ5bJ + zTSS2dWhQTARMOox5S1l865eTqr7IDebiGDUraJ7RFQAuw+ctwAiHBfkXKyBenAXR0i3ISkeO7zPEbEq + Y0x7l5fFsdMquzt1m9Gv+3AvtsUWA2CqAOyOPy9UKtkwY1vEo3i44A7NWpNNh/LrpG4ZsAxzjm0wR13k + lbpq88ruhcf8ZgJM3sXboQC8Qg0zJHTbEqANEz9fm01pVxto1qoTdOVuE9161CJjlIERLb3Usrdh97ZG + C8A0AdgRVyznam2VGohoX0UlG66MK6EZSzPpV+d1OlfTQPO35NHiqPPkLH1AT5u7qa1DGyOyEC31SQRA + aHSRCTBlOwD6GUAbizqwGhZPgCKdNfRTxFl61tojO9HNb0LD6Ny1Bgp2lFPguhwKS62i8tuN0o5+vKhg + iCcLAK0svEVD9hZYAOH7zsrFMOkFAOqjppc9tCGhgpbwKuufd0niVpZakZabE7u99PhZByUX3aPvthXQ + N1vz6eLNJxSfd1vujCOvTiAwDvAhkQIwHQBTw/hCYFWKus+kbuHEy2NLaD0DNLX2inGrmCm95GTD22AA + Xap7RqW1T2hO0Em5M3PXnJRLi5x44W2OOGMBhEYVMYBfAECZoG86trWoun5E8haJlimSjibkiuUfvLgz + iKg36/ZNewTgLQBMC4kqlBUjGSgD1+YI9ezVWSb1q+WRxFZU5RY+wk5+WSEHXmKoN3M7yht359kA9haa + RqCLy6k1qWWiTmolN+owVKbDyy+g9j4VuQ2xGfV2BbBhlwC8LQBbIs8wgNoe3FJAAAhRURsyDOxlZYzE + pnTdMLS3QW5+ba/fedoEmI7zwM20kuvEOolEIymi7lMJbSa2tue6/LyNZetDGd+L9Ttc1g5s3JMv32qs + 2JT+dtvVIZG/CaxOTgLJVw7fBAivbKNsbxPx25TVzuV2jmu3WwCTVoc6K9btOE3rmEoplwfkUjAPCt5+ + ioK3scJPUVB4Dq2Bwlhbs2l1WDat4gitDD2pFJJFK7ZAJ2gFl5dzFG0+QcugTU7Rz0HJl9lbvob41xw/ + jfBM4lZCIHsdvfMaepeFOWweMPZvwmmQAxHR4E8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAX+SURBVFhHvVdZb1VVGK2UqUwO/8AXYyQaZBA0VURRH3zTmBiJ1kBklrZQLHQGOqYDHSltodqB + zr2ttNUGlFEGCygmJj5ojG9MbW/He2/vbfv5rW/vfc659ZaIDzZZWd/+zjlrrb3PPufchum/OYzwR8Dc + /4h5Gqih8xgjbE6t69b5+s6f6WGoAzpCwAX+iWoB1+yoaTe4Jahu6bugQ4SFV7fepP/7r6LhOrE3ViNs + 7skWFcDvn6IJ/6SGqcFOqOM+xzmofVz7JvQx5odhenqayuuvIcB8CVDVfIOmOYDTIBTERFhB+jPEvSHY + OxHQY3CApjjAMWeAysY+TkVaFDNRsxHATDMM/ZptcQ2fMhEznx5LTzN6+hgClNVeRYAFCDCvouFHFYBP + MMYqsakDEqz3ehXFl6+n7h8qONAUefR5MPCwMMYebegxPatWGEeAqWkqqbliBzh+6roEwIU+hj0rDa6x + ArF5r9O537NoS9pqOtEVSymVbwmSK4CNlHR8YwhDhlexB8xAgKKvLtsBcD8QAOllFnyyPQtArURtVz69 + F/0sVbtyZWwZACyccOwNbeZXbMGM/TTm8dMkByisvoQACxFgflndVdmZxtAS1WNJzuzjIJUdMbIqwQaA + n+KLN0g9BiNtCsMxR2/UBDh50Q5QWntFNgYugJkynDkLhfjSDVrcYQJ4AhRXuF4MYSKGUgfUWAN1YHKa + CqouIEAEAiwo5vuB+6JEVVpnrcBCjP1FygSGRhRAkOKmXcKj48poBMwQ5rHUzIHJKcqrdAQoqlYBRAxm + YAdkFtyHyN6C13TPFsXt+fN0B/W8vY7+6HRJCJjOBgTIPX7ODlB48pLcF0tUC1uMC7nGxTG5kWrs6MGw + +51IutNZQ23rV1B+7XbambmOdmSso+2MbelraZjPM/AHpiin/HsEWIQACwtOXLQCmJShgIt3Z78iPDKm + +8xYod+aGqhp1TP0a+MpXqEADXMfGGJ8lrZG2GCCA2SXfWcHyOf7Mckbw5gYFhFtYgQxKznGgJjpj46r + zQgWo1FtyLw5ZTXXE1YPL7Ws0rMIsBgBIvIqzsvONGJODOkgIsbYeuQlYXWcRR3H3DwWwGhUsZs5KnGl + sBqrABnFZ+wAWWVn5b6YC7ACWFbM3D2CCzW43sLLObMHDI74GMzDdu0eVvzxwRWqp4/hzZp2tBcBlkiA + jJIzkgpCI2MBut1STq1Ra6nvVIkKoY0g9mnyKiVuDJ0w5swDMMeY8dEXL8hY9XzyZk3N/8YKsCidl0MF + 8NEoG9Zvepnu3oijsnefo4yqLRSVtFKW8ZME4EUlZGakjZSBYRv9jA/jng/q4alJzpMASyXA4cJe+bph + Friv54/lUH7k03SmMFPutdMo2OyfhgNDivvBDPAHscuF+4e8wgiQlNdjBVh8CAH4NwBMcDE2kGw83hMi + qIWMuIy1iek7DYLhpfejl9MDrh+4vcxeeUwTc7rsAKkF38rGMAYQlxqCwxANFoaYc9wPYTdqGBgjxVjV + hKObhO/r87DBE7MlwDIEWJLCGwIbQwkaMyMCQ9WzxDX65VhwT85nwAz7pLTzF3o1uoWKXbdljD5eeAez + TtsBknJ75LMrJhCBYZDgTPFgU4iGAp6eN/e20pfX/qIN0c0yvsd9POYHMiXA4wiwNDG3WzaGEfs34sHw + iLDNqh7gGec336Q12+oor+mGjO9xH2/R+IxOR4CcbnmNGkEjArYFg2s1hqEynVnfRT3IK4nHlWcOvs/j + u4MqwP50CfCEBEjIPi2f4VBmtuhsNZgNWdiCHiPAzB7g5ics7kiHFWAZ7gd2pi2uhbWIsBEF62NK0GHi + 6N3R9Z0BhuMYanwv4g677BWIz/za+rZb4LH56hkMCfMHiIEXlvoYKaiPkGYn0BP4BLgdg8x7D9kBIvYk + NVzcd7iD9nEqhXY+oZ1i+aTYQ20Um8ZIbaOY1FaKBlIYyS20J6WFPmcGdic1KyQ20a4EoJF2cb2TWXCw + kXYABxoEm2NOXGZv+RriX3P8NMIziV0JINmj4MlHwFMMXMPmYeF/A9pgvemwV9hAAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAYiSURBVFhHvVdZT11VGMXOs8M/8K2vvqgxJhoTU21jmhgfjIkax8ZSW2iptIVyCx0oXi69TNJC + uWGGQhmKtKWlE8WWjprG6ItGGy3SS4F7uZc7MH5+69t7n3NA2lgfJFlZ3/72OWutc84+Z18S9N88xvzH + wIL/iIUaqKHzBCNhXlXL7Ys1bT/Qo1ANtM6BFvD3VAW0PByVzQa3Bb7GG5d0iIT5vqZb9H//Ham7RuyN + u5GwoLxRBRgfn6Kx8UkNU4OdUPNxxzGo41zHx/Qc86MwPT1NJTW9CLBIApQdu0nTHMBpMBfERFhB+rPE + Y3NwbGxCj8ETNMUBvnEGKK2/walIi+JK1NUIYOZkFjBzSlwjrkzELK7H0tOMnp5DgOKqqwiwGAEWHqm7 + rgLMErdr1bfE9XxUMwxGRiN0oruUssrepdSCtVR7Okd6UZ5zIoIAU9NUWHnFDnC49poEgFCcYQzUlaga + J1tXpfsiynPhSIwKG5Ko4YyH/EN+Qe0pN+XXJVEoEqVIDMZ8LJiBAPkVPXYAPA8EiPIVQtCYmdRRYzYH + IAyz0pbdUiuzceHS4+lU3fE112oMHo2O0yQH8PouI8ASBFhUXH1VVqZT1EB6IqpY5kVM4Z7/Hm0/tJaG + QyM0qnujMGIEw6O0NfcN6hv4y+qFTYDybjtAUdUVWRg4WUwgpK9iNmACIbkaRvslH9V3evnKuM/iAEzE + kLnrWhPd/vmy3FEzNzE5TXlllxBgKQIsLuDngeeiRJ0GqlaYoDDGEBeo2l2xkQ2+E2ELEcW4W4X13bQu + sYHK+YuJcYj7E5NTlFvqCJDvUwFEGGZgB8JsFua+MVA9hWT3m/wY+izTEJgBxuJdt7GG8rv/pDWfVMoY + fQRwH75gB/CWX5bnYkQFWlAYgg5xA6wLX+teruPqGMaIZgDz+ZVX6fl3isnLrx3GmB+fmKKckvMIsAwB + luQd7bYCmJPnghEHY53caSqhpg9foFt1RUp8VM0JM0IMPDq8RWD0gowxDnCw+JwdwMPPY5IXxmwTIwgh + Iyp9Bl7XmvdepPs3U6hs/XMcaFLEg2Fl4uSA1GNWD1/b7KIuBFiOAEtzj1yUlWmZOBDUQURMeizEjDfi + TH4GeV5+ls4VZMsVBnhOAKOw4sA/WAXYX3DWDpBd3CXPBQmx4CAOFpEQTtRArYEruvnTFerqbZZjA+E4 + fwvGaHiEEVJ1YET3BFzrOSzGPYc6EWCFBNhfeFZSQehUbxmllrxC7T2HebWzMIS0uYhaHKfi+kxqO1+r + DRjGnHkI5hgL4jJWvbisCZfnlBVg2T6+HQiAK0/KfZUu/JJNG/a+RBEOYATEWAtCaDAYpc9cr9Gvf9y1 + ekMW2xjUcPbgsztXAqyUAFneTt5u1R2oOOGht7esJk/FV/JqGVOEcAY43dNGGUWfzhAWBBUPghlgGzFh + BEjPPWkFWJ6JAPwbALcVb8Dv936jwtpdvKuFlaAWMOJ3+/rp8z2v0/Ufb1h9p8FMxOiBIE4PAqrGo03L + +dYO4Mo7LQvDGOCWFdS4yO3bTgOBiIgYwfscKtXzPnmrM6zeIIQDxswYOVlhQB+HO512UAKsQoAVGbwg + sDBMYnD/gyC5ijZQmvcj6r3TKz1wat4H0u8bCLIxCxsjC7aZMTS1AT54O7Pb7QDp7pOyUcBEpeYQzP6h + CNV2lFFi1lu0PnE1bdq3nho7q/guRLWZwmyDmYgK+/UYjMe844AEeBIBVqa5O2RhGLF/L24Q1QaG7dov + bGo1xpc0dX+bI0BOh3zJjKARMSfN7ttjp/jM+j4wHFPMPbAf42EVYPs+CfCUBNh1sF224bnMbNGH1WCY + OaDHxtDZAwL8KU/Z22oFWIXngZVpi2thLSJsRMF6Tgk6TBy9fl3383oxtYwZ2C9SslrsO5B64IS131vg + sdn5DILCvA8wsCmpjUlBbUKanTD7CO8Vsl9wPcy8NdMOsHRzel33tqxW2sapFJr5gGZK5oOSM49T8h6G + 6zgluZpoC5DB2N1ImzMa6UtmYFP6MYW0BkrcBdRTItcbmQU76+kLYEed4OOkoz3sLbsh/jXHTyO8k1iV + AJI9Dp5+DDzDwDlsnjD/b/lr0S61KmChAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAbdSURBVFhHvZfpU5NXFMap+97lP+qMM7bTjtNlXD92OtOptipqFQETkhCWASGgqAGhCggkrCJL + CGACiAsuWKgWihCxIKKVLSQkYTk959z7Lip1xn4oM8+cc89NzvO7C+8LUfJnBWrle2jVf9RqKcqpzweo + qBWFVfc8xTXd8C4VkaqXURXF+1BIqvp3XapUdI9V4OzySoiolQXld+H//rGX3AL0pt2IWpXvFACRyCKE + IwtSSk5RLzEf0n2G8hDmobCcw/guLS0twbnimwSwhgHyHHdgCQH0BsuJTTgKcf2N5nPLxLnwvBxTnIdF + BDirB8gt7UIqkE1pJWI1LDLTR2ygzInmUiFhwmYhOeaajFjztTs5EkBO4Q0CWEsAq+0ltwXAG821XNTV + 5nI+KCMZBLFO46A0DCo1mQ96HdCZtAMCBLC4BKcvdWoA5y/fYgD6YgilGIiViJyaiJVICKU5z2lGbyqA + euwpg6H6VGizfAuBOTwCBMi62KEB0HkQANGLhvpVkN5twMLGWoyIiBpoLYXBuhQIDTnAY/oaZoMRWEAA + W0E7AawjgDU5RTf4Zr7VVI6DsjlFnpfNX1cEZmU+y3kE/mwphcdXk9k80JsFrYbt4FcA8ts0gDOFnXwx + 6MtDXqc01FahF5lQ83LPAMTn34L6m09gfHIOV4Z1bE4ik/7mEhioTULzMgj+boNgrw3csV/y3PzCEmTk + eQlgPQGszcbzoHOhVbTjRRnAM1NWpKyGcj+NsYETzfMa+8H76AVk1zyEfbZ2yK76Dbr+GGeDvqZiGKix + CvPeTCkbuGI+hxkGWIT0XB1AVoEAoOZtlm9gEC/MQEuJbkVkLlbmQPNcNO8enYXbwzPwAGPPqB8qbgyD + 4eJd2J/mgry8X2HsIe4kGgdUgExoPLYNZgICIO38NQ3Alt/O50IG1xK+gpDPyWfX13wZ/PgFEpGXXSPz + PugemYVO3zRcHxLqRHU99UPVveeQ0+IDa0UvfJ/uhSR7NXS48mH6gQCpO7wVprFXZH4RUs+1EsAGAliX + caFNBWiN3460WXxxBq5Y4RFuJ1GzeUMf3B/xq8Z65XqfQnxlP+R0PoOzqEt3xsHW9BgO53XBD7gr+cWl + UHRkF0zNRiCMACk5LRrAKTyPBbwYZOSO/YLPK4AXh86wvzoR7PlVqnmHzrRjUDEfZvOstlFIbn4KyS0o + jBmev+Bc5xjYr4+Cqfwh7LW4BQA+bZPPNBPARgJYn2738M2cxklXzGe4XQggz6289goYLneDo2uMDTuG + phiC88EpYV7RDzY0T2oefk1Wim6CGYaMthHYa3bDpF8AWLPdGkByTjOfC03WH90GgR5h7igvBrOjFy7i + dsZV9IEdzdrRlIwp2j3DWO+HTO8oWN1khqaoRDU+4VzRHlMTTMyE+MmakOkigE0MYD3tZqrJmTDURW+F + YE8Gm5scPXyeVlxFpndEQKCpYh6L40zPCCQ2SROKrCdgwWjhKEQ1BpgO4cNsAYynGlSADYm4HQIgBLUH + PwWHswiMaJ5z/ZlsLBpkoFlseR8koDFFOmMytLgUIzJVpJnzPGp3QhO8QgB6oJ1MZ4DNDGC2ufB1u4jb + EwbrsTgwlvXAmY5n/OVEbi5NXMNwCk2TXUMYR7hm1hkoMjeiKKJMLp+a70KAv6cEQHx6vQqw0UQA+DcA + bc8ekxtOd4y+Rm5GYzKnJhZsSJfKzI1RaGZq9AkjjCQxJnMBYKLPNPgQwAUvp8RjOy71qgZgzGjki/EK + 6eicmJgbiybcWEaqqXMsHyQopg2ipowT0JTyBKoRgBEBJkP8ZI1LYYAtBLDJgBeCLgZtDwEojYVEQ2qi + 1WRjNBRzyvhtGXXaZXDBC3xx0QPvRHKtBhCfVs+vWQLYjQDUjE3IQDZSzWQzrY7jeik5p+ZqfYjjTkMj + vznpgReTxAAfEsDmuLQ6vhgvcZLOSW0sJXLRRDXRyUAR5wxSWi6+o+QCIMjvg+PWGh1Aah2/bml76JwI + giNuGUvJMe7EyFJyYyNHmt95UtbQaIcacR7rPMb4fEIA/JJYQwAfMUBsSi2/82l7CIKk5ERMudByOcUg + N1Ylx+MTc2/VSJP4yD9qqVYBttB50M3UmsvGsglHpSlFOSca6kx0tTGZj71C6eYon5wNw1FzlbYDx5Ou + 8PueLocqHNNW6TXFMYwxjC8uoSkpajrpl1EvqrFCrAnMJzAeNmkA6w/El7QdMVfDEaQSqsQPVEI0fija + VAHRCShjBRwylsNBkgF10gkHDE74GSPpp3iHUFwZ7I8llcJ+zPdhZJ0ohR9JMSWs7w5d6EBvfhvSv+b0 + pxH9TtKtJBHZ++jj99AnKPoOmket/AdWxPsb993b+wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAi6SURBVFhHvZf5U1RXFsedmM1ss/wLmaqpmh9mTSZTM3EmlpmME0vNaCVjyopxGccouAJBAWlw + gUYa6G52ZG8B2ZFFXICmabpZW4LWxBglQQM2DcrWTdML8J1z7nt0t6lkqpwfhqpPnXvfu9zv99x77n2w + Qv55ilj5BDz9P/KMDLd5nh8QK54qrrHoz9cN4L+hY2q/gxqO11HM1Hw/RdXLWAT5Fb3tsokVK/Mr+/H/ + /sku7QZp82qseDqvQjLg8SzC7VmQWW5zDER67woYw20XtV1u+R3FQDzeRXgXFkXk/tLSEjLPd7GBZ4WB + c+V9WCIDgQLfhRARUUI8/5bY/Lcii35Zmo/L763FraIc0V8kAxmBBnLKeskVxKTehSXBslshFhjdXjlK + Ij5cXrlN0SX1nU43pofuov7d1bBe1KHmL7+HVzaQXmxmA8+xgWeyS3uEAa934TG3PFgSkkR9k8uiTjkK + MXrOfSeNcUzbMVRbDePHW/FVfja6w4NR9MtX0ZukhJsNLC4htcjkN5BV0i0bWETDhreE26o1r2NiwILp + Easkxhn6YFHpmRCV2zPjD/F5bhZaP9iE68E7MaYMhyMvEfMttbDVlogtc857hQFNodFvgPeDDbhpBfq1 + KuG2KywI90uLcHXLRnSFH8U9gwFztKQsxBPxFokJqf/w63sYUCXgypYNGAjegYdnI+BIj4U9PQZ2bQxm + UxUY/PAdzM174HB6sEAG1PkdbOB5NvBsus4sKpOzYxPj7NbQiHmdGvbsONyNPAjD9q1o3rIJ99tacKsw + S2zTzSwNhmqqcGnjetw4sBuTyZFCzKFVwK6JJvEozKYwkbBsWQMHGbAvG8gz+A2kFZtEYfDycFZjlUVw + tV6EsyAZc1mn4cg6A3vGaYzFH8NIXSUV1Zu+bRpvrsM0CTg0UbCrCRK0q8lISgRmk47DnhqN+cZSjJSc + E3XEK8BFnnyunQ2sYgPPaWk/eF9Y/IvGAjQGr8VgRhRcbRdJ+CRNQstJcGbzV6rRd+yg2Kbu0P2ib0+O + gD2JBFXHiXDMJn4qcTYMzqYyDGrDUb3rjxgozxD1xHeCKifAgCbfb6Bm71qMtmVAt/V3uFVdgP4jH8Kq + DPFlNpejhOezLix8MwTPQBccmXGSWAKhDMNMQijufLoT5j0bUffBm+gtUKNk2xu4U34UeVtek4/6IhKz + 2vwG1HkdYl/YXXdBCrLX/Ryd6qOwdpeiNWIzCjb9CrrNr6F930aMlefiVo5CrNKNVMq8vgT/DtkG/Z53 + Uf7+G9C+9SqN/zUuHVqHgcxdmBqsgEl9GJo//xT69ARxariAEzJb2cALbOD55FyDMMBFwiZsvdVwDzdj + bjANDotKcL8+HMa4rRgsz0TV7j9hqCpUrFJXXgoubP8D9NF/x+eF+/BIT0XYEwd7L9VND9VPHx3Du3Ww + dlVgjo7rzJxH3AXK9Ba/gSTajwUqjFl6yQMG1P8g0UTM9Z+lCZgEQknEwzXUALP2iFglvTJI9B0sRNi7 + mVME1Q3TxVD9dMWg7+x7mLZ7MO0gA3Slx6ddYwMvsoFVqmy9qMwZesn0qzZLgr3xRJzAzvScgXNAC4+t + Hwszw/CM9WHOQkdVFnLIYnazArMydhMdR9MJ9MSvxxQZYNjAGe1Vv4H49GtiX6QBbvQqN1BG8hKKjJY5 + CdedOmSXN2H1oQpozjdRv1YSMrOQxCwJzpqoaDvpODLGSJhi/4rJGTcmZ11im2NSLrOBl4SBM6lXhaup + WTfhgfnU30iMs1lGyoqx3dZjzeFyFPXew+oDZSi5OohIVTZqdCrcuRIrBO1GOpJMB90DphjMf1GG4dYC + cQlNkQG+uhVJl3wGXjhNyyEZcGFqxgWjYq2UiciKs4nGqD4GCm0hlPThCsvpxOt7dVDoetFy+xGOlX2G + nUlX8E5YBdaHX8DRRB1Ki7W43RxF4hfo2q3ELz7KRTJ9dR1OL13JXpxQCQMvCwMn1ZfpfPIWuMVJ+Ppa + PuZvV8BhPoUJwwmoc/PxdkgF9maaUGwZQ+c9OwatTnQO21E6+BCF18dRYBlHPqFuG0ao7jq2qdqwNqwa + hZdv4jcfn0Oe6S5+S5HFmShVk8/Ai7FswL0o3GU23BD7m1lSD3OXAevCK7EtsQWpHfdRNDAhKLRM+ATz + +8eRR+T2SeT02gTZPTZkddvQdHMCB9Qt+Nn7aVAWdoptYJ3IhAa/AUVys/TJJWdvh1T697ftNhKa71CG + LDghBPMYFiOR3D4bzj0mOCbI7LIigzFbkUP9a19Oo8E8LI75w2kXmSADSmHgFTbwUjQVBBeGfc4LTZVF + 7G94rglGWmLOLq9fEntMkLLLfkxwTAimm6xIMz1AaucDaDut0BgfQNMxin8mtmN8al7Aq3A8vt5vICqx + SXzXH1EBsssrlhG0fzWDIspWCFJ2kqCNxFiQxcaQzggxqw+tcZQEH0BNomrDKJKZ9lHsTtALcRvBGsfi + hIEfsoGXIxMbRWFMyA4PZ3VL2fUQQlBa0nQTC3KGJCZnKTIkWDCFxFIMI0IwqX0EKj3RNoLE1m+wQ9km + xG1TTnHbhp+pCzCQ0EjV7/Ut0aEMMw6mm3GASTMhmAhK7USQphP7iU/URnyS0oG9yR34V7IBe5IIVbtY + 5t2Jeuw6SyS0YSexQ9mKHXGt2E7YJucxNikZCDstDPxIGIhQ1ovjxw6XTSy32bHk/PvaHJ1iYh9yf1kw + 8BkzRdd96Klan4FXeD+4Mv2TyxPLk4i4PClH+Z00YYBIwDOr3LY+IgLecXvK4UboyRr/CoTHXcQsVSYX + hw/q81IFMi0i/a1PzNAkzLQMT8oXmYiB8DMB3bLEJLUnKR6N9RtYdTCq1BByshYh5EqimgZU4wgNOhJb + hSMxhKIKhxWVOMREEycqcDC6AgcoMsFR5RKRFxAUwZQhiNr7KQqOl2Efc6xUsOtwrpG0xdeQ/zXnP434 + THJVMuzsSfjxE/ATgn+HxFes/A/Gt6igEGEYogAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAgBSURBVFhHvZf5U1RnFoaZmM1ss/xLUxnHqIMajJlKpWZqylQUZEehoelmaxpk3/d9tVkaEYFI + CJFN9tXgkgjdLKJBAemd7Z1zvnt7mcRJlfPDUPXUOXfp877nfF/f23jJf28QR16DN/9H3pLhnOv8jvB6 + o7p1sq+2bRq/RQ2jfwWtHKdQzbT+d6panEwKynVj38smvI6UN03g//1XVD8C0uZpeL1ZppMM7O4ewLG7 + L+PMOXoiXbd73MO5nXK7Q75G8bc4PDxEQe1dNvC2MFByfRyHZMBT4FUIERElxPlfFLe9Itoce/Ixxz0c + kIF8TwPFDWPkCqJoWPWcILSKmUUIxZDKOQRXzkpUzCKonJlBIMUAigHl0wgom4a/zOVSCb8SZkrgS1wq + noLNvi8M5FUPs4F32MBbRfWjkgFyF0KizfdeuGgS8Tma5imfoyiQct0vuD77HI2zGwRHYkbKGyg2zDzH + xaJJWNjAwSFyqobcBgrrRoQBm31PdMiCBXfX3Yw8lXNnXEc+M7yOPGZIysUx5dK5J8ilPFeO9WTi60Iy + YKMlIANZlQNuA7webMBKE+DxNlOHBSOSoBCSRYWwLJQ//MQlLkHHchTCg24DOUTd9Aa+KhiH2bqLfTKQ + Wd7PBt5lA2/n1QyLnWmlCfCa8jiFIAv9h6iEs0N3tywkdyuEJVHOc2SEgfxxmJwGyu64DeRWD4mNweP5 + Nu48ivpXRZFfC7OoJMyCbmFicN0l5pln969B07mI1O5F9FJtNrC3f4j0ku/ZwFE28E42rQevi8W2i57Y + z9AxMIrAsgkodPeR1rssdSqEJVyinMtCnvBnVPqHCKqZx8XCcWQ392F4tB89MeewIwwcILXYw0BWuWSA + 1+e2ygcOQwe2H7agv78L8XWD8K+YQUz7j8geWJNHzB3L4gPUJZ3nLiPI8MWSSSgqh6Dr+gbzo20wPWiE + 7X4lbD/pcFvtgx2LZCCl8Du3gcyyfrEuPJ5u5aewPaqHZS4P1oUyWB81wDCjR31HD/xLRhHeuIDkHiPS + vuMuH1GXc/T1GkN2Ux96ejvwdL4Jtoc1sP5QCutsHixTGTBPpYpa3yjP4iUZ2N07QHJBLxt4jw28m156 + x2WgK/IMFaiFZTYb5plsWGayYJ3Lh/V+BXaom8H+m0io64eiYhBNnd2YG9XDdL+BBCpgmS+kz2TCMpkq + RM0cJ1NgnkiB9V4JuqLOYNu8CwcZSMr71m0gjdZjnzYGj6czwhu2BzUkTIVmyP20hGU6XUTrfAGZqaKx + VsNyr5iM5shC10iIcMaJZInxJAF/rjPcWzJAj3Rtbg8beJ8NHE0t6hM78yVd7LhyirqppA7SaHxpIkoC + zm64OEWn0LhbxDyuhXmMSYRpPFFE85gGJsIylytqb5kkA5rs224D2rwesS588WboCVq/MknAJchwR04h + ScwkBN1CEgkwjybANBIP02g85QTlFlrOdqq9uWMXL6aYjG428IEwoMm5LVxt7ThwI+g4rVexh5hHV8TP + nTGYTwrDpDIYC+lXsFSpwLObKrwcipNERyjejYVZxnQ3hlDTEmaI2psv7fTA24c6rdNl4L0EGodkwA69 + /zGx6YQgdSK6ovisQ4VZbQimlVdhzLuG1dIMPM7UYkEbjcnIMAwG+mFc6Y8f0kNgrL2Kja4omIbVMA2p + KKpoOVNF7RdkgB940anCwIfCQFxmt3jXb9IEWv0+pq9Prhgfd/S0PRoz8UGYUoRhKScJT0rSsJoTj9XM + WKxka7Cap8VaYbI4b8xJxIOkaExHhWIowBd9ly5gLNoXC1kBWLsRD73vMTzflgwoU2+5DLwfywYcZIDc + NX/9ZxpXFtbbozAVG4iJq8FYzNQIkZUMNYwpUVi+FkkoYKRoTKaYHAFjUgSWU+h8mgorWbFkTIOVXA1+ + JEOzyjBMqSPR+eWX2Ni20QNvD1HJN90G1OldYmO8IHf6r47jXqYKo2GBeJwehzXqcDktGoakcBi0Tq7C + kEhoOF6hGAZDQigM8RJL8SFYiguBIY6O6T42uVZ4De2f/x0bW3Z63pCBJGHgIzbwgYo2BG8MHk/vhQsw + FmXQmBOoQwUVdwoQsoBBFGeRYCzFMkFYignEIrGkZgIIfyyp/LGovCxYTopE66c++HnLJh54Cm2724Ay + 5ZZ4FbOB7n/+A2s0Oi5ucCILSMUlgUVGCMgiUX547CTSF48Vl9xEXBRN6P52Gs/IAD/wIhKFgd+zgQ+j + UjrExtigi7e++AIrNPLlVEZJa83I655MUCdGLa05k8jQkmjCYeTlSKBpMa5JEbE0rRiaElH/yUkyYBXv + g3BNm4eB5A6YyQCPp+38ebSdOw/9uc/Q6nNO0EKjaznrg6YzZ9F0+ix0jPcZXD91Go2nvNF40hsNRP2J + U6j7hDmJ2r8yJ1BzjPjLcVQTVR8fx9NNycCVBGHgD8JAZFI7GdgV42ETjDNnx5xLvCrnaBWFXcjHzzZt + vzrHbNEjPyxe7zLwEa8H70x3cbmwXEREZ1GO8jWpoIeIx7l1OV9/QXhc43zL7EBYXKt7AuGJN8QvFd4c + LuiYR+XJtogOig56cUlsy3DRLZMcPeFzArtgk/JNiiGxbgNHA5T1d0Lj9AglVxItdEMLgumm4NhmBMcQ + 6mYEqZsQyKiIaB0CVDr4U2QuK69LRDXCL5JpgB/lvhQFigZcYiLqBf8KKh0gbfE25H/N+acRfyd5VzLs + 7HX442vwJ4I/Q+JeR/4Njzhyx1NW1S8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAZgSURBVFhHvZf5T1RXGIap+97ln1LbNG3TpmmbpqnaNlbcEFFkFeoCYUf2rYI4yrApBWuVfVM2 + xa02sY0m7CjD6jAzLF+/9zvnLiCa2B9K8uQ799w7533OuXfuGfz03ypm9Vuw5j+yVoM2xnmH8VtVVNHT + UHzlLr2JC6ByBSpQ71ARqHg9heUGPUKBs7NRS/itLijtpv/7L9txmzgbq+G3Jt+pBHy+BfL65jVGG9WO + Ou+xXYO2h9serz7H9U0sLi5SZvEtCKwTgdySLlpkAXvASkiIVIX0Lxt8doU6653Tx6hztMACGXaBnEud + bEV6UMxEzUZAmL3yAMY5NbjGo0IkzKOPpU9X9OlzEEgvaofAegiszXZ0KIFlg1tt1W8Ozu38+qcU7nyo + KAEPKPzyA8qr+0cC3cK8rhYvIbCwSOcK2yyBrIu3RQAf9DDWrDTcxofNWXFfGIe1PZumlmdT1AyeKkIc + 95cFMrOqulEZCKScb7EEcD8g4OYZum1h1kCvziTEcY+q/nRRausgpbYMUgrjuPucgot7OcynQk2MYx/N + uH00zwLJBc0Q2ACBdekX2uXJNAYXa4304cO6ynmuwRd66eojFuDg1JYBEbjIAscK79Cx8z0U9KviaEG3 + kF79F82wwLQhkN9kCaQVtcmDgYElRAKXz0IxI/gkCAIpEj5Aqc0DVMwC1Y9dVP9kkuqYWs3NJxMUkNsp + s4fA3PwiJeY2QmAjBNan8v3AfZEl0gH2tmKOpnHMA4DA/G6qfDimBDjcTrKdpgEq6hmlg5m3aPqlj6ZE + YIHic2wCKQVKQAZHmA4xSKt+TIF5XXQE5HbJbAJyOqniwdjSMKFfwcFJmvNdo+R/ro2mIMBAIC6r3hJI + zm+W+4LlMeELjRqQ06GW9W9rabGsZfdZgAOMmRokNUHAkOhngRHam9xCkzwW8M0tUGxmHQQ2QWBDYl6T + KWBY2sHylfNsjeVN0aFJOhizNAKTG/slNKmR+9FmCjqH6aeEJpqY8QleFohJr7UEEvh+zPODgTAYGnWS + L0bF8pXdf6ECdKCEcog5UwkcoERpq+BETX7HMO2JraeJaS3Ab9uzaTchsBkCG+OzG+TJlMBlTLDA3qQW + Kr33wpypOUMdhhB7YGLD0prXMUTfn6mlcRYAEDidesMSOJt+U+6LusCr4fYUV+bH+EZy9o6qcB5QZirV + FmQP1SQ09lEC19zbw/Rt9A1yTXrJNeWRN+vJpOsQ2CICp8/dECuExTh6aU9cA/3A7I5toF28dLti6uky + f8etYFVViApGkKJP9YN60EfZ7cP0deR1Gpv0sISHX2bzFJlwzRTYdIqXQwl4JKzm8Rjjklr9SOG4M6pC + 7eigRCMUgdLHM5fwfopnstqH6MuwGhEAeKGFx4vAVhGITr7O2+0CL4+XvjtVK2FqqY2wARUkobYZSpAR + 1sdh6hih8SKkzmW1DdLnx6voxcQsowTC4mtMgc1REODfAFieb6L+sGaLUB1mztBA9xvHEqollrTr+iiT + BT4NukrPx2fpOUvMuOcoNPY3SyAy8Xd5MMbY7quIa1TMr04zYAk8I728Mjj6zDCuHGaE2gUyeMf8+Egl + jUJg3MPvGxaIEYFtENgSwQ8EHgwszxcnqqmoGwIIw+AI0UvLfebANuJQ65RIHAcCBKMf7TTeKT86VC4C + AC+8E2erLIGwuBrZZiHw2bEqKuRXZ9atIUWbwaDUTJ6NwMeoGa1DlM4BGQwqQOAS+I2540CphI8weNEF + nxGBdyGwNTSuWh4M3KPQjFb6JLCSPuQP7DxQRjv3czXwV3WHVCdXJ23XoG/7Pm6blJjguqDkRgkfGXfL + 2/X46Ss2gdhq2W6NJcKFRjXa9n7r2K15tT0MXLOqch/qCI5dSiDolAi8JwIhMVWyDa8UZg36ujYqwmzo + YyPQ3gfG+RV/9JdKU2Ab7geeTGtwPbAeRKoxKKo+pwa0hdj6hnR7aIyxnUN7fMZLR6MrrBU4fuaq/FIx + tl+Bj2VHtIGNafKll6uXNyrFhAaDyh5itO19gkdwcdvF9UiUJbDxYJijKTC6kgLZSlHOF5RTAF8UEFVG + ASeZyDI6HFlKh0AEE+6kgxFOOsAV7A8rUYReJv8QcIn8ub2Pq3DiEv0Mgh3C7sN5LZwtuyH+NcdPI3wn + 8VQCmL0N778FHzD4DIf7rf4X23wjG3PcU60AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAe7SURBVFhHvZf5V1PnFoa5tZOd7/0Da+ttvdfaWq11aZEKWmUwYQ4yJciMBAlKBXFgHmWep4LM + CSGSQMhwEob37r3PyVBru5b94bLWs/Z3hnzv8w05J8Rof28Rx96At/8m72hwm/v5BxHzVqllqLX8/gj+ + ijKm7jVYuA6jlLH8OSW1IYaEInN/myYRc6yoZhD/77/8yj5QNs9GzNsmsyoQDB4iEDzQCLW5RqNeV6Lu + 4bZCbSWgXaP6VxwdHSG3vJcF3hWBwuoBHJFAdMDrkBCpKnL+lc79r6n+wL52zHUfhyRwO1qgoKqfrKB1 + yiNRRyNwGFXXxiLmG25jxHQew4XfUzuHzi1pAYSihkiYoh3LOa3yOe0aC+SU9rDAeyzwTn7lc1WAbggF + q8Yq60NPMGNOwPaEBQF7NwJbfdger8VUVRysE10S4KOOfXSvTwv0hc6F2ypeFjg8QnZJd0Qgr6JPBPiD + ChEZFYc/xfLTLAQ226Gs1UN5UQX/YiWUlft0rg3T5ng4lmb+EBTCS2w4vLjzeA6XjP3w+mkJSCCzuDMi + wOvBAmwvo6APsYxjaVoCArZnUBbLKZxYKIN/oZRqKYmUw7f6GKMll7G7vS1hHOBVgmolFq1uJFWP4fGI + Fd8aeuDxBXFAAhlFHSzwPgu8m1PWIzsz2trj82OkNBZ7iw0UTCNepMCFEii/EQvFVIvhJ3hGHEMVmKxN + h0cL9fiDwgubG4lVY5jc8GDRqeBMdjf2QgKm9oiAobRbNgZ/2Kex1FuPpSeZUFbrtGAKnL9DoQTXuSLC + JCgrdZi13MDqcKuMkEN2vQEkVo5icGkHg2sezDn8OJOlCuwfHCGtsI0FjrPAe1m0HrwuXjHfh9u9h/68 + 7+BbaZRR+ucpjAmFzprgmzNSLYQvxPJDDBl/gGN9GXveICpbFmDpW8WY1Yu+FTdmt/w4ndUFtwgcQl8Q + JZBZpAqwPU/dUm8jfnt4C8qyWRulUQskZgqJAsE3kw/fdJ7KjAk7U/cwaLqM6QUbrpePUKhPwnuX3Zhh + gQwSIDkW0OW1RAQyTB2yLjw9zPO8C9idrVVHTKOTkXLoNAfnUdVCp3KJ2/BNMjk0EyY4J+4iwVCP5slN + DKzuoVcTmLb78N+MTlqaIIL7h0jJbWaBD1jg/TRje1jAtjiLwYKzCCxbKCyfwtRR+qdz4X81kJkwwDuR + TTVbamfLXdykXZ/ROI8HY1sSHhL4T3ondjxBBEggOedZRCCV1uOANgZPz/TjMrx4lEprT1+3cCAFTeXA + K6EGFQnNgnc8C77xTHjHMuAczkJsfisso1tIa1lDXPUUUurnUdFrRS9txlNp7aoAPW2TDE9Z4EMWOK6n + D/HO3KWLPYZzcI5X0Khp5FGBPDqvBHKYGiiMMulEGswWMwxN8zD125HWvk5sIKnpBa7WziCpbhZfp3bA + tacK3Mx6EhFIynkq68IXz2Y0Q1feimdNVdgbpXAaoXeMRhkKHOMwFc9oquAd1mOlx4CLhX2oGXMgnYLT + 2kigLVTXUTG8ha/07XC6FXnKJqQ3scBHInAz+4lYudwBnM7sRMOoHbq6aehLHsExQKPXRugdYSiQoVDP + sI64BfeQDonGRpT3bcDQFQkVWtVaNujAv3VtcO4q9LA7QHxqY1jggxs0HaqAIjv10ZwLNeMvUUEdJpha + sUyj845wYCTUM8SkwDOYgvq6UhKewZ3+zXBwKgdr4VxLBuw4qWvFNgnwA+9nvQh8LALXM5rotXtI0xOQ + nWoe5WlcR2HfJu4N2xFr7MJYc56EeQaTo0hCy68m/FI9jqoR2nihERMsIIjMGsnZ8WVKK17uqAJx+oaw + wIfXWIB+A/D0nErrkPVK585oLXO6bKildY0rHkRJ1V1MNhvg6kuGtVuP2ppSNZzulyAJe0VAo+j5Jgm0 + wLHjpwfePq6k/BoRiE97JBtjm+y+Tm2n9bKTAK+lup6ZHesyK1lNC7hoHMCp9A56rndB92AGFUM08t+F + ramVvoapLeqxno55Nr9IJgGXQs8bEkgWgU9Y4KOrtCF4Y/D0fKVvQzGtV2gtGR5ZOnVS9NxOu/wl6qe2 + cX9ym9Z1Uwv7fTAH6lmAz/Exkd+ziRMksOXyywPvp6T6iECcrkFewyGB0GYKTysRPuaQMFqoBFGoFqzC + bY3mNeR1W3EiqQV2EuAH3uVEEfiUBT6+onsoG8NBF0/SV8VE68UYadp46sL02pDfuykUSNuGvB6im7Ei + X6oNuYJVuN1lpX2k8nkiC/jkfXDp5v0ogZSH8hrm6Tl5q01265e3CK5Mciu+kNoi6xiBztOoeGQRmvE5 + Vwo7kUhtIlSZTacqcPGGCHwmArHJ9fIa5ulhCSbUZmNuq7yuzdUnHYfRju1O/x/OMS565P/4S11Y4BNe + D96Zkc61jrVOpIY65apdUzuMCok6Z9Patm0i6hq3XZ4AfrxuiczApcQH8kuFN0cYOuapimZHaoBqgF5c + Kjsa3KlrT6vR8DlBEZzUdlL94VpE4PjZuMr2C9frcIGsVGrphlqcp5vOX7uH8wlE/D2ci6/B98xV4mcz + zl414zuqzLdx1SpX7uJMLFOFM9T+hqrwUxVOM5crhZPnjJ2ULW9D/tecfxrxd5J3JcNmb8I/34B/EfwZ + Co859j/0DQh0AodaBAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAgcSURBVFhHvZf3U1vZGYbJepu3JvmDspPE2bhms5tkkpkUOzHjibHBYIzBIHoRGIzBpgjTezHG + xnRwAUyXRFsCXsBYppgiQCAJCYny5vvOvSpLdjfj/BBmnvnOvVec9zlF54KH/PMWcegNePt/5B0ZbnM/ + PyI83iqq0T4teTCEH6KYuf8d1HAdRBFT8/0U3nOgFeRVDbTLEh6H8u5q8P/+ySrrA2XzbHi8nVslCdjt + e7DZd2Ucba7uSM+33T7D7W1qb9vkZ1R/iP39fWSW9LLAu0Igu1KNfRLgDu07u9+LbYcCRZUQ94WIC0lM + qtbtXWin9Ch7MgVV/Thiy4dhte1gjwQy3AXulA+QFcQv2TnEbaQizL26IY1chkfn1h6dWUNC5QjSmiZR + OfAaNcPLCC1QCykWSC/qYYH3WOCdrLJ+SYDs3Ds/2D4YZHW7Z2Xkey2aOdyqm0DD+Brqnq/j3tgaqr5e + Q0juALZYYG8ftwu7XQKq0j4hYN0mgQMjcQRygPNaxhnqaBPN6lnkPJlB/XMDykdo+of0KB2WalB2H7as + tAQkkFrwzCXA68ECFpoBR4fOgP+CxQGNrE07j6zWadz/17oILaXQEsEKSgZXcDWrF2aLHbskkJLXyQLv + s8C76cU9YmdaaAa+1Skhgqhz0aYqnvP1AVrVc8hsmUINhRcP6lFMwUVUiyhYQg//zB6YHAK5HS6BtKJu + sTF4engZGIvNTh1TPcCWgJ/ZRV3dsCK/+TnSm6dorVelUC0FOtGjkCpzOa1LCOzs7iM5u50FDrPAe7do + PXhdtqzcqXuA1JbYgZkwbdkxPb+BoalVlLRNQpE/gMKuWVTTJhNBmgOoV1CgWRbVJ7UTRiGwh6Q7bgKp + eZIAr48IYxFiddOKR4NzUNWOIalqmKawG1dUPYgo1kJZNYrcdh1qacp5gxXIQfmMehm5/UtIbXuJuJpx + hJWMIKRoEHlef4KRBsACiaonLoGU3E6xLjw9jJnChyb1iCzSIqV+AsU986jULKGRdnbDhAEPKLSGvlpl + tNEKKCyPQvPUSwIOTm6cRniRBiW1j9Hb8RAzmiq8Hi5D5t+/wCYJ8FmTkPmYBT5ggfeTczqcAmxY8XgK + MRXDuDeqx91RmmoaYeEgh/DoKGhAIpcrBeYO0IipnfpIh1AaaXV9K/SjxbB8rcLWcCq2tEkw9kUh4/Qp + bJjtdKjtIT79kUvgBq3HLm0MDu8Yfg0FTXEFfYfzB1ZEKHfOITlUcziQyOFrqtn9y0hrn0VUxRhUVU8x + ry2DZTQDZnU8zANxMPXHwNQTBlN3iEuATlplWhsLfMgCh5OynoqduUkPFTl9UHXMIr37NTJ6FnGnb5lC + OGgJ6Z1zSHv6CiltOiQ2TCO2ZgLBhUNILu2A5lm1GLFZnQBzfywFx8JMozZ1K2DqCobpWbAQMJgkgdhb + rS4BZXqbWBd+eDq2DareJVxveong0lFcztbAT9UPv8w+KAs7caOkHVlVj1FR24xHrbWYUZdScBbM2kQR + aO6LJiJh7A6Vg6+JcK4ssG7cFmdJxM1mFvhICMTebhVWBqMNZyLrEJA/iBtFrWhvrcRkbyGWtTkUkomt + kXSBZSQNW0Mp2BpMpmlWwtwbITDyVHeFwChCHQQJjJ1BksDmNn3FdxF+o9Ep8EEMTYcksI3r5zwx3FlC + AanUOa0jjcrYEy7W0Eidc4AI4coj67pGbWmEjuCNJ4FYKPbB9M1/Yjz0LEavnoHG669o+uI41kiAD7zQ + JCHwsRCISmmmF84eTY9NWJr6o6ljBU0jhXAwVw4hjBRqpFAOFqE0Mh7hZnsgFssu4ZuYc9CcP42xgIuY + jLoKXWIEXt2MxkJGAupPHaOTUxJQJDU4BT6MZAEbCZBdwx9/g5W7/hTAo5TCRKBzOqlSqFG0A2FoDcBM + 6nkMev8No1e88CI+BIuZCVi4FY25JAVmlYGYjQnAq0hfPDx+FHo6us2WHYQk1LkEwpObxMZYI7u2353E + 8yBvjF05ixeJ57FYcgmrtf5YrfOn0EAacSBWH1zGfIE3JiI9abRn8E24P+ZvK7GQSqHx16ALv0T4QBfm + jjfuH/0cesM2nTckEC8EPmGBj8JoQ/DG4Olp+e0JYb+QrsSMMhjjJDPqew4jPp5Qe/4FA2f/jCFvT4xd + vYgXShptehzmEhXQRfhCF+otQWEvRfsidAqqioviuvpXR7BisIoD75ryoUtAkdgg3nQs0P77L0UHryL8 + aPqCsHAzAq9vxxCxWFRdJxLE9XxyGGbjAvCSOucQrhIXpBoit0MuQEdwbT52AsskwAdeUJwQ+JQFPg5J + rBcbQ08Pn/3hK8lYxtEWnRzo0B2+pwv+9vVLvg72cta2YydJwCLeB4GxD9wEEurpBbQjpkcbFo6WX59C + y+cn0XKE6hGuJ9F85ASafynRJNP4C+Y4Gn9+HA0y9Z/J/OyoxGdHUUeV6b2qwNK6JBAQIwR+LASC4x+K + NyBPD0swjjYbc1viu9pcLaJjJ/L18rr1P+4xBjryr0Tfdwp8wuvBO9PVudyx3Imojk65ys+kDt1C3O4t + yu3FNcLtGbcNZhuuRNW4ZiAwrlb8pcKbwwld81S5syGqjaqNXlwSGzLcqcEkV3f4nmBbsE7tdaqXI10C + h30UZR3+UffhT1YS9+gD9+BHH/KLrIZfBBFeDd/wu7jEhBGhVfAJq4I3VeaiolIipAIXgplyXKC2F1XB + tXKcZ4LKBP/wzXlG2eJtyP+a859G/J3kXcmw2ZvwkzfgpwT/DoV7HPo3d3jJwxyX6QkAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAf0SURBVFhHvZeJU1TZFcbJOJuzZfmbkkolU5OZRDOjOBHcEhQQGppu1maTfREEGlA2kUUaBUfR + QQTZpNmkaQV0gs3mZGQMe+/N9uWc+14vTohVJlWh6qtz3n3N+X73nNvvgZ/88xZp3xvo7f9S78jinOv8 + jOT3Vm3LWHfdjXG8TldYrXuohaMBtayW/6zL190aE6rSjfTIEH77qpof4v/9U94wBPLmbvi9XamTADY3 + d+Da3Jblzjn6Srrv9PkM507KnS75HsXXaXd3F6V1gwzwrgC41DSKXQLwNdhLwkRESWL9J8Ude0SHa0u+ + 5riFHQLQ+gJcbBwhKoiiQdohqGsevUZGqKuNUL2icaiqxhH1igyIqjRAyapgjeHr3B44nNsCoKRWzwDv + McA75Q3DEgDRMcC1iRVcmyRRbOZ8Yhm6xyskjj/JHy2jiWITR9LVR0skjiSjlDdSbDQuCwAbA+zsoujy + gBegrH5IADicEkAzGZYOLno19KOcu+MitCz9IkpYA1IurimX1l6gmPJiOTYQxKHs+7A5aAQEUFjT7wXg + eTCAXe5AM+2wdEgyFEayqTCWjbT6Fx5zSXQtR2H8wAtQRKofX8LB9E5Y7ZvYJoCCqj4GeJ8B3i25ohcn + 004dOFk0INoqDNnoFVNJ7h16d8tGkllZjwn1bR1oaarB3ep03K1Mxn2tEoa6eNyM/hQWN0BlrxeguHZA + HAxuT2BBn5jl3sZsKhmzodd4EdXtw7h15QL0ZWF42pqM5z0FWDFWY/VxDczfNcD1QwfuZ/gLgK3tXeRf + 6mGA/Qzw3gWaB8/F5tjEt5o/oqurnQxfeI2Fmdvc3Vppx3XftKO9PB7jdSos6kthn9XBYWqAffoy7N9V + wv7kEmxPyuB8fhsD+QEwC4Ad5F70ASiskgB4Pv35gXgxUouWqzUo7Z/3GHkkz7aiYwx3yjWYak7AqrEK + dlM9HGRom9LCPlkC20QxbI+LSIWwPiqAY+4GHjCATQLIKbvvBSio7BNz4fb05QXCtdiF+e7z6NYq0KjT + oeKuQRhre+dQ3daH1sp8DJeHYflhOex/r4FtspSMLpBRIWxkZjOeh3U8H1ZDHimHlE1daRYAGwSwubWD + rNIuBviAAd7Pr+j1AOjPE8A/7ooWmp9ewfTNVAyVh6IzIwDduSdgqInEDz15tNtqWGmXVjKzGcloPFeY + WcayYR3LgvVhBiyj6bCOpMEyfA6O6Qb0Zftj3boJFwFklnR6AfJoHtt0MLg9/TlH4Fxok1pIrbQ/qaBZ + VtNOaaZPq6nFNFPe7RjtTBhleswsspllOAWWwWRYhpIoJsKi18Dx5DK607+UAOiRnlF8jwE+ZID9ueXd + 4mRu0M2ezK/gmG2lnVELx70t9JiNktkImQmjVDJJgZnNBpMoJsKsT4BlIB7mB3GkWJj7o2Hui4Z94iLu + Jf8JaxYJIO1Chxcgo+SemAvf7Ew9QPNqemVXVo+ZtCszm+lpZwMJZCKb9ceQEUsNc69KaKNHCXN3JCmC + xqRFe8JnWDU7xYsp6Xw7A3wkANKKOgTVmtmFDs1nNK96yYyMLGRkphYKs4E4WMhs6WYEZrWnMJl4BEb1 + IYyGHMDQyS8wGnwARtVXmEw4jNmiQLzUncZG51ls3AuFzVCA2zG/w+qGkx5420jMu+MB+OActUMCcOJO + 7O9p7tXCTGoh74ra2KvG86ogGCK+xFjwIUxF/xWmFAXm0qKwkB2D73M1Is6dU4r1qehTMIQchkFxEPOl + R2l0ObgV9WusEAA/8BJyBcDHAiCloF2861epA7dUv6EDWA5zTxRJauGi7gzGwg9iQnkMc+kqLGTGYCE1 + AnOaUMwmhGAmLhgzMUEUz2AuPoTWQzBPEAsZagKKxETkMUwknkK74rdYXpcA4nNvewA+TGYAFwEQnQAw + lmCjK4zaF4aZwgCMn/XHPO10norNkokp+m+YkWVSU1RTN0gcZ1SnYGLxmoquCWwuWYHvC5Iw8JdPsbTu + oAfeFuKybnkBEvO/FQdjhegEAM1rvSMY09lHMEXFFqits9FBUmHVSUlRPpH0jKOS8xNyTtGtyBPUMSWG + A/6MpTUnPW8IIFMAfMIAH2noQPDB4PYIgIc5mCn4GpNRx0Wbn1FRd0GT8rinqCnyuNAztyKOwRQhRUmB + eKaQ4lxiKAaPfIF/rjnEAy8m46YXID7ntngVM0BbmALLdzR0gA5hPilcLuQtOq2goqKwJHEd7lYApilO + i8g6SmtHMR0WQKMLFgAvCYAfeNHpAuDnDPBxXA49+ehgLNFNBniaSXPLohOdTF+3BD5obtEB40gHTRId + Pio8G3tGaCaW8hiOrNM0f1YQrVGkEQ76f04AdvE+UKfd8AHIaoOVALg9Ov/DeOD/BwwfPUjEnwvqQX8S + R76mIv+LflyVAKLOCYBfCIDYzJsEsCnawxAsd87EnEvaK+doF4U9kq9frjr+bY21Ro98ZWqrB+ATngef + TG9xubBcRER3UY7yPamgj4nP2qKcL66QfO5xvmZ1QZnS4u2AOv0b8ZcKHw6P6Jpb5at1EV0UXfTikrQu + i4uuWeToK14TcgqtUr5KMSLZC7D/bHxDb2RKKyKJStJ1+sB1KOhDiuRrUCSREq8hPLEZYSwNKUGHsxod + QimyQuKbJMVdRXAsqxHBlJ+hKBTTiNOs6Aah4+EV/eQt3ob8rzn/acTfST6VLCZ7E/3yDfQrEv8Omfvt + +xfFN2MeHNPb0AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAd9SURBVFhHvZfpU1TZGcbJOJuzJZN/IMmnVCqpSiVVqVRiVSo1HxIrTiqfUpPMjGbGmWRKQUQl + inYP+yqgLLKKCIiACA0u4MK+yoCoMI46GVIqqMjaNPTewJP3fc+9fS/GmSrzIVY99Z57zunn+d0+p8/B + EO3fc6R1z6Dn/0e9oInb7PMtUshzFbbhjsrG6/gmnWA1PEU2rtdQwbJ9vcrrdQ2LSmsHOzWIkHWlp6/i + //2vqGoAlM3fRsjzx2oVgN+/Ap9/WZPe5mqWGvea5nDbS22vTxuj+k1aXV1FQeUVBnhRAI6eGsIqAZgD + niYJkaok/U+Ye55SPb6A9sw1gBUCyDcDFFcPEhU0U34T9TYiDjNXMtDHlLlSedsYEmpGSSNIqB5BeesY + PF4VKNWrgVBlgLyKfgZ4iQFeKKr6TAE8YW60Vb9uoIe6tcoBMZXX0f/QheFpD/oeuOTZTXPdNGaWiwFW + VpFb3mcAFJ4cEAA28pL0AAnTAvnD6k00CN1cxpZhLb+GM/9y4OjgDBq/dMBSNqwFkjyqurmSGCC7rMcA + 4PVgADe9oTJUQRJAmugqx5gtDmP1sRiri8F45/HgmASQokqGUH97AQUD06i7Zce+kkEVLPIHq9PtxzIB + ZJV2M8DLDPBi3ol+2ZlPmgo16c4pC1adN4O6U73fZK60p2gANTftyO19jJrReewpHJB+DnRy5XDSkg5w + rMsAOFLRJxuDP8Bfk3xVXp06gFuVe7Fi74VvvBbL8734vDyS+pWhhJBCs3tx4sYcsromUXFtFjvomcOX + 3AEJFRB59iOwvIpDRzsZYD0DvJRD68HrokwVrbk9WhqB5blueO9WUu3CjaPhZKa9naaP0tpReGUK8Rcn + kN/3GFtT27HookCSVA7ntgCsIKPYBJBdqgDEjIM1U13XCrZjebYdnrHjCMy0YSj/E2XI0sw/TG5DTs8k + opvuI6v7EeIzT2L02E6MlITjBunLszkCwmKA9MJ2AyDrWLesS9DUZMz1s+yPEJi6DPftIgQeX8LA4Q+V + GY3rplsSWpDR+QjWc/dwsO0B0g8Wr9k3DO2geSx/YAVpBW0M8AoDvHyopCsIoBua1Zf+PvyPzsH1eTb8 + D8+gJ/VdLDq1caoO0ntxl5DcMoH9Z+4i8fIEUlLyZb94viqj2iPQCzSP5SOA1LxWAyCT1mOZNgYbMqFe + 2ZhrW/Qf4btXg6XBGPjuVqE9+k/Sz2Yyh/SX6AuIuzCOvY13aR+MIzEhR/aL+04xLV+nQC8saQB02qYc + aWGAVxlgfUZRh+xM3cysBQpq3v0WvGPlWOw/AO9Xx9G087fauC/4Vu9Ym2E9fw+Rtn8jtvk+Yqzpsl9c + N3MRmG4RaDsBsBggKeeyAZCS1yLroib4kG0bRUR+HyLylI4fyYeH1n+xJxLuWwU4G7pB5okWlfbldGBj + 6Cn8fnsNfkc6nJhB+6UZzutUJ5sEet7hw/yiV07W2MMXGeA1AUjKvSxUysyPsOxu9Ey4cHXKg+5xJ1Ji + 0+EezYajIwLukUOwffJLmuclMzY0SQvgej78N/BPNMA5lEDnR71Azzl4zEuH2zJiMpuDAK8k0tehALyw + 04RtmZ1ynGbTz6rui3kkWFPgGk6Bo3U7XEOJOL3158EgNuTK5nPB6kXjtl/RslUItJc2IkPrY3x4fZoh + AK8LQHzWRbpuV7Q38eLjtDZUj84ho+MhqkbmEBuVCOeVaNgv/p32gQU1W36qhRmBQS2oWvfxL+C9XSzQ + ni8KBHp2wUNSANaMpiDAq3EMQH8D8Nvwh/+W1ILy67NIbX2AsuEZWCLjsNgVCXvzB1js3I2T7/4YszSP + zVgcqtoqgFX7wc9k2RjaRcvG0DN2D2ZoDp+ilrRzBkDMoQuyMXT6Px9oQh4dp/ybzu2dxN5wKxwtobCf + ex+OS9tw4p0fBoNEbGxXADP0zEHVm38C19VUgXYOJQn0tDaP7wdLqgC8wQCvRdOG4I2hDD14e3cDDtNx + yr/pzM6H2PqPZBS+/QMUbvo+CjZ9D7ao9yRklsz0QEP87EXlX38EZz8tG0Ev9VkEmgFYfODtTzlrAFjT + m+TaZQA22RRhw8H2B/KbTm2dwB/C69eYT0s1QnVjsxotm9dA1xM090+R+KCLShaAbzPA65b087IxdLON + O+roOB3HrroxOt3uY2NY3Rrz/5ZbjI1qtKek6m31zKfovqRGE0Daebl6dcOw1EvYsKUMGzaX4teksKRm + 6TfMldaar20/Zs17VKU+rlP8PK8A/pkoAN8RgAOpZ+UaNgfobcP069pcOcwk7VkPNPex7HR0RyY0BAHe + 4PXgnWmYa8aaiVTdlKs2pgxNIaa+Sa09OUcyjXHbTndIZLzN+Ab2JZ9Zc7eL6FluRJMWpNIFROKLSF1G + Smwqd4PeNveJ6JQlzVN7nuruOANgfbi1qmtPfAP2EJVSPU2oxy6atCuuDrtiSTF1iIg5jZ2saNKntQiP + rsUOqqww6yklSw1CD7CqEUrt7VRF+6uxjRVVJdoaUdJD2XIb8n/N+U8j/k3yrmQx2bPozWfQd0n8GQoP + Wfcfp3RSRqDjDVkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAcUSURBVFhHvZf5T1RXFMdp1arVrv9U07RpbWtqY00Xk+4t1aKxyLDMsAwI4gayKMSigoAgoOwI + ArKDKxYY1Ao0KhUZYPZh+facc9+b9yDU1P5Qk2/Oeffed76fu3DfGKb9e5G05jm09j9qnSbOuc4LpLAX + C8oHWs5UXMezdJp1YRWVc7yGAlb5P+u3Ml0DovyS3isaRNia/NJ+/N//cgq7Qd68GmFr80oUQDC4iEBw + QZOeczRL9ftNYzj3U+4PaH0Un6WlpSVkneligJcE4ERxH5YIwGywmsREopK0ryjuWyX6AvPaM8d5LBLA + cTNAblEvUUEryjNRsxGxmTlSAb1PFdfkVyZi5teepU2L3Kb1MUBmQScDrGeAdTmFPQpgRXEjV+2h4lq/ + V4ts4KV2fvbSGEdzMUZI0iZ9hjwMsLiEY791GADZZ7sFgAv5SbqBmskCRq+U4k5NHry+gIzR26Uom+o5 + aaT5HEZrD2G0Jl1yD7V5fGxM/RxJDHDkVLsBwPvBAEyvCrKJKuhoKcHd+gyMtebhWmES5macITOWGLCo + 8DAZOqrTEZioh+9+KUaqkjDcVER9QQVB0e0NYoEADue3McAGBngp83SnnMyVRUdaijFadxTBhy3w37+A + x30F6M6NwNOHE1pBQ8OXi+C4lIrAWA08t4/D3W+H984JDFfEY4gg3GxOcukAea0GQEZBhxwMLsTLxJKl + rDmC4J+X4buTA89AihSeuVOCrqxwPHLclIL8Dhs4LqaQ+UV4bmXA3ZdISoK7NxHe29kYLo/DUONZmT0D + zC8sIf3EFQbYyADrj9J+8L7IEvFsxPwQLWUDfIPZMpuQrh2Ea6gIvbnhGL1aReaFcFTZEfijEp6bR8k0 + QaknniKJopeghs5b8Hv9WcwJwCLSck0AR/IVABPKUlYfRGC8lugz1UxEPCtdyfAOF2Cw2AJHZSJtTxk8 + 1w/DxabdNhnvGThA5glwdVupLY4gjqM58QPMeRRAanazAXA4r032hZfneu5OmbksJS2hKzQjbVY9tpCR + dzAL3qFTsipuzYjf8QykwtOfSitGEATLEJ7+FDQnbMEsAQTnF5GSdZkBXmaADeknW0MAAzlfwH+3NGSm + ZJUiunQzVxcZklxdsRRJ9I6nLwWO0gg0xm/FRCM9E4y7l7aOVqXJtgUz7iACBJCc2WQAHKT9WKCDwcvT + n/U5/KN0apcZslGsGClTip1sGgN3Zwzl0dLn6bPDUbwLV/OsuH+jD7X2r9Fg+wjjdTSWVqLR+p4CoNvW + ntHIAJsYYGNaTouczFnq7Mv8jPb3dMhEjMREF5mxOnRZRLxFk03RqLbuwNTULGZcAThdQdy70YOapK9Q + F/s+GmPflTYGSDzaYADYMxtlX7iz99gO+GhflxnxrOkcCIAYRsF1VcU5Em/DbJcN1fvfxbhjBNNzfhIB + zKrIGr3Wjc6cPdLHt2zcoToG2CwAiccahMpJA7uPfEoXyEnDqJPMe+jki9SpZvO5q5GYa49U47qsaD3w + MW41VSjz2QCesjlFJb88qzY/XXYLiD1YEwJ4OYGWQwH40XVoO/3JZMHVTuYdtMd0CAcLvkV93PsYr4lW + IGTIfQzB2zN09jtcPm4hA2Vs1pQmcxtfXtFpAvCKANgO19HndlGWqjP9E7pQMmiWPHsrbp/6Bu35dtyl + JaxO+Aq10e9h7NI+Wgk6/bRFk3V7UWnZhsm/nMpgRjPmSOJoyCeRASxp1SGATVYGoN8AvDwdadvUpUKH + 715JOBrSd2Nq2isvckHHQDeqbDtRHfUOHlRGoGLvW3gwPLzMYLl8eCLy44lT5W7vPKJSLhoAsem1cjDY + oD11K10aaXhUG4GqmO14/HhKipiLcrGR/i5UWr/E9foyTHFhp26mG5mj0l/aOBcDJAvAqwywOYYOBB8M + Lt6WshXT7fGoiNyCibEJ9bIGECqqaUr6lreZzXRDPdfFF16kvcoAsKRWy2dYAJI/RNW+t3F/8Jap4Mri + y01XGiyXV+Kk9syRL7xfkwTgNQZ4JSr1khwMLnbF/hEG2xr+ZXFdXs1Aj0Y+KVHP1TN/D/YlVpgAUi7J + Z5hfHGqrkIGc6y/pRuZcPZuLL88fs6Z9KlIbx0l+pgPNAHsTBOB1AdifXCU/LlYzM4r+U86RzUzSnnVD + cxvLSVf+nvgLIYBXeT/4ZBrFtcJaEYl6UY5anypoMjG1PdLyR09Jpj7One4A9tjKjRXYl1Qpv1T4cIRE + z7xUZs1IDFAM0IdLaUYTF3XyB0jPzW0iv2ia8mmKv1gNgI3hlsLWCNsFRBCVUhkNKMNuGrTbeh6740ix + 57ErthQ/s2JI0SUIjynBTxRZP1qKlaLO4Yf9rCL8QPn3FEWRRfiO9WuhaOeuk+3kLV9D/q85/zTiv0k+ + lSwmex698Rx6k8TvkHnYmr8B3Mxez3a6iakAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAc/SURBVFhHvZfbU1RXFsZJzM3cZpJ/IDVvecpTLlV5mEmq8jBTNZPU5GV0MiYpk5hkVBDUKOHS + gKIQELxBcxECiDCCgCIGBBG6lRYQRZExhpsiEmhufaXpbi5f1tp7nz4HQlJlHkLVr9ba6+yzvm+fs9kH + wtTPo8Sah+Cx38jjCs65zyNE2KMl1ddaSk9349c4ztSsQjXH6yhhqn+Z4iqNa4LCis5WZSJsTWFlF37v + n9yydpA2P42wxwoqpIFgcBGB4IJCyzkakdf9hjmc+yn3B9Q1ir/G0tISzKVX2MATwkD+yatYIgNGgdUQ + IiJKRH1F87lV4lxgXo05zmORDGQbDeSVd5IrqKa8ErkaAYsZIzXQrsnmCr8UEWJ+NRY1FbmmrrGBrBIb + G3iSDTyeW9YhDaxoruey7hqfRE9aBiwbPkZ3ajqcNNbEfdTYR7lPCfq0WiiXzLKBxSUcKW7TDeScaBcG + +EY/oa9KwY2p3hWfhL70RCx01mAgMwmXo76SoqsIacwyczL6OBJs4FDRJd0Avw82wO5lQ+MqGFmr//s/ + EbCUY742E4HccFT/+R0pwCgRGYMyhtDGQXh9QSyQgYOFVjbwFBt4Iuu4TexMTTDUVI2Fc4otX0Sg1xQJ + 38FN6P30Hzj3743LRLwq94pcirIg17WaRzNQYNENHC1pExuDb2AxKbhyFfOYHBrBdxs2If+ll1G7fiPs + g8OiLgR8Umx00ovs07ewI/sydmS1Iav6Fh5MeKURgg3MLywhI7+VDaxlA08epvfB70VbhXS/3DnnHiEk + G2mCxsaDoy5EHLag5EI/boy4BUVNfdiS0Yq+EQc8s0G4ad78wiLS8wwGDhVKA6IZi6mmenMWlyKMrCmo + qRYzK7pRROIdDzyovj2DshvTaBxwIr/hB3xT2gU3GyDYQFrORd3AwQKreC+hpisaa8755tDYUNP4JLkJ + VhIsvzmFvI5x5HbYUXDVjjM9k9iQUA8XzWGC84tINTezgafZwFMZxywhA8aGK+GbQ9Gr6hRdDOUfJjag + rncKBZ3jyL5C2MaR1z6Oos4fsS6mDk6axwTIQErWBd3AAXofC7QxVopw4+nJCQxaTqLnhAnX8rbixvE4 + 9DWXYmrCLpoJcW7sCWJvQTtSK3tQRKs228ZgbhvDMXoScce7kZhvE3OEATpt9x9tYgPPsIG16bktYmdq + zTTG+ntxvSAKw63fwnO/Awvee3APX8Hd5ny0H/0So3e6Q6tieoem8UHsOSScuAGzdQRmywiii69jXfRZ + 9A5OwUEGGDaQfLhRN7A/q0m8FzkhIJgct+NqTjgc/RbMz3QjMHoec3fLEBiuQtBuwfTt87Cm0a/i6I9w + uAOYcfuJAAZHXEjIuYz10bUkfAamnDYMPHDJ6y45j0/WhMwGNvCsMJB8pFG44kYON5mgeLu+CEMX8hEc + t2Kuvxi+O/nwfZ9H5MJ3Owf+oQrcOXsA16uyhLBACXCcdilBgV+MZc0vTlbTge9CBp7eS49DGvDDQRPY + gDXzc3gGGzHXVwrfrSPw9RzGbM8hzN7MhPdmBryUO2+Wot70r5DgdCjqTCmMNT684tKFgeeEgaSDDfS5 + XVQrkS7Px70P3906eLtJrCuVSIH36j54OvfC27EHHsLbk42qLW8ta+6kHrx/eBHTThJfxpyIbCA2/VzI + wDOJbID+BjA+qnrTejiuFZBYMjy2eLjb4ogYeC5Hw31pN9ViMdEcj6qIv4WEHB4/6trysMv8F5y2mMVe + YtFJgR+TDpnzKRqTelY3YMqoFxuDG7E4PzJb8TfoKYmCu30PXK1RcLVEwnWRaI6A60I4XNZodB35D1rM + iZjixg5aPQluS38LF/v34/M9b4qxFJZMqHl8ssakCAPPs4Fn42lD8MYwPqaRoSGc2vw2hs9+ReI7SXQr + nA1fwNW0WRi5V7kJpR+9huGBQbkygl9fYU063o94GXkVqWKsCRvhAy96f61uIDbtnPjssrD2mHhV39ta + SeR12FLew/3Kz+C+uB33T34Ka9JfUbjuFfz/UrOYrzXWTPCjl+Jc94lrdjWHIx90u/cJA39gA8/FpNWJ + jaE1EyYU9/oG0Ji5G8UfvoGcd/+Eog9eRcOBnbjb1y/mSnxKQIt6bhdRy+WYT9ldyacNBlJpt5MBraHW + RLtpZV0fG5svz8eZmTkZqcbRzuMZaWDnXmHgj8LA1ym14jO8mpje9JdyjixmQI01QWONcdCv6Y49NSED + z/P74J2pN1eNVRMRtaYc1TXZ0CBiqI2pfGyaMFzj3OENYEdStf4Edu0787NvO4/FF9GAU8QART5sJE4F + NxXfES031gTynJjhDUoxKlE3sDY8tsyyPakG28mVpIomVCGSJkUmnkJkAmE6hW2mSkQw8URcBcLjK7CV + IrMl9qQk5n/Y/DVTjs2U/5eiILocXzK7ywQbtx27RNria8j/mvOfRvw7ybuSYWcPwwsPwYsE30PiYWt+ + ApgJjnO+2De0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAW4SURBVFhHvVf7U1ZVFCXx/cCshsLMCErAVBSDUDRzxmmmaZpmmmbq534ryyRtfIAiJAIDEj5I + EflSJEBAJB9hago6mlnWn2EmfB8vvydw2mvvc+49INrQDzGzZu29771rrXvP5R6I0j8TCNHjwMT/iEka + qKHzBCFqQm3rnat1bX+qx+EEcHoMtIL/ULVA66Nx/JTBHYan6XaHDhEV7Wn+Xf3fP1X1txR542lETaxp + kgDh8JAKhQc1TA22IceD1jmog1QHQ/oY8eMwPDysDtX9ggCTOUD1yd/UMAWwDcYCmzALeD5KPDAGB0IR + 3YMjaogCfGsHONJwm1IpLYo7kbthwMxmEjDHRFwjKCZsFtQ9zyIqY80HMtPHEKCy9iYCTEGASVX1v0qA + UeJuLXNHXB/3a4aRn+bo/XwOej0jTn/jfd1H1AMEGBpWB47fcAMc/v4WB8CFQYIxkDuRGhebu1q57iOe + sygf0/UYeEBYvuo9Zn+AegIC7Dt23Q2A9UAApBdB+y6AkQaZaz90aggzIO5wWFhj2cp3dR1WA/6wGqQA + FZ5rCDAVASZXnrjJb+ZDorrn5JrRY00NXKOw6ly9husBGBG4JsOlme84s34ToKbTDXCw9ga/GLiATSA4 + 6i4MBghYU74bYwL4I6ojaxUbwoQNuY6oJRlvc22ORQaHVXl1BwJMQ4Ap+2k9sC4iKneAuj11uQjpeT8b + hXlNYWhEjfCVzCzm/gfS94EJi157y5n3EUcGh1TZESvAPo8EYDGYgQnnF6VpcZiLKIA1NbUxA19OX+GY + gg1S0taN6BGg9PAVN0BFzTVeF0dUC55JSRUDXEgzXIwaa8piembwU1qGYFk69716nrx0rcabPAtHhlTJ + oZ8RYDoCTC0/2ukEsAXbFiwa0RtBrGnfgJ4T9wJUt6emM3Ov0UNIWrKG2SBEAYorL7sB9tJ6DNKLYZuA + WxMXSk8XOaLUY03BEHOM+mnJFqcxs5HFryxeTXXImeFrW3TwEgLMQIBpZVVX+c10TDSa45NVD8JQzWI8 + D/Gayjkkah07uzBV+Wjmg1G/sI84cWEWs/QSoHD/RTdAUeUlXhdzgTm5af4C5eszPQE1Aes5eubtC6q2 + pMXK2yu1F/NeYQHV+hi+rLu+uYAAMzlA4YGLnErEKARzSDU+nyi1NmJRAtbUp01stL78KrEYdcMchowg + 9zIL0sdsUOXt/dEJMH03PQ4JEOTUxqz+uQRHgGdaEGvq3BGLimHLSymOkUGXhj3Dx2tHGQeYxQEKKi7Q + djuk70RS4sS62Be1iWsEYE272VSMDZrmJ6nuHqm7wASwiwAzAuSWnXcCzMhHAPobwBgzekKq9ukXRFAL + GPGElBVyZ9Yc3Dgv0Zm5CKj7jKC675MaX9GckrNugLzydn4xjAE/MqqPzZlHNVJLcoP45NdH9F0Q9gVV + fVyCZWSz4G99Hr6sOcUcIAYBZu6kFwIvhggas4DyzJ6rPDFz1XcxcTxzRDW6IGzN6mLjiV0zY2hqA3zw + thWdcQPklp7nbZZNcBFCENfMitOCxtSI2zNXuPaZ+U7tws98T/dgfOi27uEAsxFgVk7pOX4xjJgRPjrz + WS3yb/BrA8NufY/Z1NLjK7qlsM0KUHKOt1sjaESqp8c6tT13e1t8ZP0X4A0I0wx8D71XAny1mwM8yQG2 + F5/hbXgsM1f0UTUYZhZ0bwztGeCjz/bmr087AWKwHngzXXEtrEWYjShYHxNBy8Sa3dX13W6CdQw19ovN + Ba3uE9iy54eH9nb0eFQ2ephpAyJgI5LNSCCbkGYbZs/op68pwUu1l/jLfDfAtA259Z2bCk6rTZRKcIpO + OKWy6aTs/BaVvYuQ16I25jWrL4CdhB1NasPOJvU5MfBZ7klBTqNavx1oUOup/pSYsa1BfQJsrWd8vPHo + dfLm3RD/muNPI/xO4q0EkGw8mDMOPEXANWQeFf0PdredQuv87i0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAcBSURBVFhHvVdnUFVHGCX23qLG2LuiIiL2gg2DxthiYg9GRgyooKDGAooNy1hiw15BMSJiL2Pv + LTH5l6gIlszYBSvvUb9859vd9651xvwIM2fOt+2cs/dedsFF/+Ri5P4E5PmPyKuBGjqfMVxyRSdcPbll + 95/0McQAu96DBPAfFA0kfBibdxpcFWyIu3JKh3DJvWHH7/R//6yOvUTsjafhkmd9nAqQkZFN6RlZGqYG + W6HG7ZY5qO1c29P1GPPHkJOTQyu3XESAfBJg7fbfKIcDWA3eBzERVpD+t8Rt72FbeqZugzMpmwOssAZY + s+0KpyItip2o3QBXunZVNUy1iBn7qleANmDYlYmY2bPoYmcf3Ye26jNjCBAVfQEB8iNA3tWxl1UAi7hK + nEWXfVhI9xsBY+rdY7iq2SCN+9O4TtOGFzt2Vn0y5sRrBMjOoWWbzzsDrNp6SQJgoZ1hDGB2yRsBlJDa + iQ7B6PiNnzJ9j9G59p2EXwM2xWlgBgIs2XTWGQDvAwGQXgkqI/D5Dt7MbxoE/zyHvLr4kpfPD9SWETQ+ + 0mGiOIPOeLVXtSDDwa/SMiiLAyzecAYBCiBAvqiYC/JlGgMR0jjbrqNKjjFmjLfpPEiJaeHW3gN0O5Ou + BgbRiZZt6ETzVnS8WSu6EjBK+jEXeGkCrD/tDLA8+rx8GBATEwZ2gfapNu2EDSDWqlN/3gnXLAa06NDX + 0T7WtCXdXzWPHqycS/dXzKYjns3F1MxFnZmVQ4vWnkKAggiQfym/D7wXswu1M1VjJyp9Jr3EGAs0b/+9 + CAleZ1Czdn0c7SONW9A/M0Pp1jg/ujsjlA43akYveI6Z+4I5MyubFqyxBFiyQQWQlDADaxxt0oIXw1yL + MJp6fSuiEAN7tukp4hg75N6U7kYEU3LIj8IH3DzVXAsQYP6qE84Ai9efkfdiDARaEDswybEYtWfrHvTi + lRZk9mjZ3SF+sEETuhM2gpKDB9PtyYG0v14jes5znvOYQUZmNs1beRwBCiFAgUXrTjsCGCGroKmxGOzR + spvUzyDMcG/eVYlzvc/Vg25NHE5JIwfS7XH+tKeOu/RjrkE6B5gbdcwZYCG/jyz+MKwm54YMk/T7XRuJ + 6FnfYY6dNGzWRdWv0kXQrYkPPXupxPfUdqPk0KF0M6AfJYUMpV0161OqjPFcPQen7ZzlRxGgMAIUXLD6 + pHyZSlRhTx03uhcVSfeWzaJ7S2fS7loNZDFM63t6s2i6wot0qte4k4yl8lhCjQaUPGYIJfr3oaTRvhRf + rZ4EUPPBKkDk0iPOAHOijsp7cU6EUD26OyWIkoIG0Z3wkRRfnYXYDHD16MBspxSugbru7ZlVO75KXboZ + NJiu+/WipFGDKK5ibT2Px58rxsk67ZfDCFBEAkQuOyKplAGHYN5R1ZVuTwygxMB+dGvCcIqrpIQwNsR/ + LNVp6EW1G7alWm5tydc/VJmwwXY2TAwcQNd9uzP3p23la3C/nZ5qoMbJGrHwoCNAoVn8OFQAO6XyBJhs + r1CTksf60Q3/7ygp1I+FaqodMESI5yIABE3fU2YYJgb0pWuDvqbEn/rS1i+q0RMZcwIH2pQFEqCoBJix + +DBft9lqF/Ko7LS1XHW6GexL14f2pJujBtOWslXfCACzmg1avSEMxPI8hP67vw/dGNaHYspUpifP7Bo2 + YQQIX3DAEaDwdATgvwGsjyqmTBXeSX+6Nrgb76QfxXxehZ7yYhmHGHN11xYiKG2BjbaUrszvvzf91deb + w/ei6FKV6TH3P+bxx6lgGx9wmRQ2b58zQMSiQ/JhGAOIH+o9kKJLVqLNggp0oOdAbcJCmqvWbqr6IJyq + AmAd1mzkNZtKVJR1GAMe6Xk4WcPmSoBiCFBkKn8Q+DDMLgzDaGPxCpLaGMsuNCrX8nynz5ghgDEEW4ED + b9Kcvc4A4fMPyDUrJlgEQzBjfZFyqk+gxB8J26hiDQ/htw2AjcXK6zpN+KHuB+OgmzhbAhRHgKJh8/fL + h2HEnIY2WluorBZ6FxWques6TRsYVsFRP5Q+1W/aOE0nRO62BJi3X65bI2xEwKvzl36n3+DLqm4iaISt + NYI/SLHRA64fcB/4IdopKsD4WRKghASYPHevXMNWA1M7RT9Ug9mEhR3QbWNo7QNS+dgeN3OXI0AxvA98 + mU5xLaxFhI0oWI8pQYuJpe++ru8/ZVjGUOPOGDcjwfkEJsze47jvHeC2XLEWPBPmW42BS0ndhgoQlXvE + 1NY+AZ+wjBSuU5hDpzsDFAwOjz09dsYuGsupFHbyhJ0UwpNCpsdTyDRGRDyNidhBo4GpjClxFDw1joKY + gVHh2xXCfqWRk4FtNJLrEcyCSdsoEJgYK/Abs+4se8ttiH/N8acRfifxVQJI9iko+QkoxcAaNnfJ/S/m + UQjGj3A2DAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAXBSURBVFhHvVf7U1ZVFCXxiYJZjaUZkaQ8AlEMfOBzxmmmaZpmGpv6ud/KMk0bH6CIicKIhg9S + VL4UCZR3qGlqCjqaWdafYaR8H8/vCZz22vucew+INvZDzKxZe+9771rr3nO5B6L0zyhC9FNg9H/EGA3U + 0HmGEDWqsvHe9armP9WTcBpoGgGN4D9UJdD4eJxqMLjH8NTebdUhoqI9db+r//unvPqOIm88jajRFbUS + IBweUKFwv4apwTbkeNA6B3WQ6mBIHyN+EgYHB9WRql8QYCwHOH72NzVIAWyDkcAmzAKeDxMPjMCBUET3 + 4IgaoADf2gGO1dylVEqL4k7kbhgws5kEzDER1wiKCZsFpV+w4gPCapW9fLXM9DEEKKu8jQDjEGBMefWv + EmCYuFvL3BHXx/2aYeanOXo/n4Nez4izlr2v+4jqQ4CBQXXo1C03wNHv73AAXBgkGAO5E6lxMd8lYfGq + j3jOonxM1yOgjzB/yXvM/gD1BAQ4cPKmGwDrgQBIL4L2XQBDDRau/NCpIcyAuMNhYY15i9/VdVj1+sOq + nwKUem4gwHgEGFt2+ja/mY+I6p6Ta0aPNTVwjcKqbelyrnthROCaDOcufMeZ9ZgAFW1ugMOVt/jFwAVs + AsFhd2HQS8Ca8t0YE8AfUa05S9gQJmzIdUTNyX6ba3Ms0j+o9h9vRYAJCDDuIK0H1kVE5Q5QX8yYL0J6 + 3sNGYV5TGBpRI3xtYQ5zT5/03WBC2ptvOfNu4kj/gCo5ZgU44JEALAYzMOFCWqYWh7mIAlhTUxsz8NWs + RY4p2CAlc9WQHgH2Hr3mBiituMHr4ohqwZaUDDHAhTTDxaixpiymZwY/ZWYL5mVx36XnyXNXaqzgWTgy + oIqP/IwAMQgwfv+JNicALmhJmqOak9JV8+w0R9wWxJp29+o5cRdA9cWMLGbuNToJSXOWMxuEKEBR2VU3 + wD5aj356MWwTcGNiqvR0kSNKPdYUDDHHqIeWLD2TmY0snpW+lOqQM8PXds/hKwgwEQEmlJRf5zfTMdGo + S0hWnQhDNYvxPMRrKueQqHXsXGqG8tHMB6MeYR9xYmoOs/QSoPDgZTfAnrIrvC7mAnNybfxs5es2PQE1 + Aes5fObtDvKyebuk9mLeJSygWh/Dl3XHN5cQYBIHKDx0mVOJGIVgDqkzLydKrY1YlIA19WkTG42vv0Es + Rh0whyEjyL3MgvQx61f5+350AsTsoschAYKc2phVvzTTEcBsVvoyXk/AuSMWFcP611IcI4OHGvYMH69t + JRwglgPsLL1E2+2AvhNJiROrpr6qTVwjAGvawaZibFAbn6Q6OqV+CCaAXQSYESCv5IITYGIBAtDfAMaY + 0RlSlc+/IoJawIjPTFkkd2bNwWdmJDozFwH1gBFUD3xS4yuaW3zODZC//yK/GMaAHxnVJ6fMoBqpJblB + QvKCIX3NtJmMaoJrZLPgb/TE+LLmFnGAOASYtJ1eCLwYImjMAsozebryxE1X38VN45kjqvEQwtasamoC + sWtmDE1tgA/elj0tboC8vRd4m2UTXIQQxBWx07SgMTXi9swVrnwh3qld+JnbdQ/Gh27zbg4wGQFic/ee + 5xfDiBnhE5Ne1CL/Br82MOzW7cymlh5f0U2FzVaA4vO83RpBI3I8ZqpT23O3t8WH1n8B3oAwzcDt6L0S + 4KtdHOBZDrC1qIW34ZHMXNHH1WCYWdC9MbRngI8+2xu/bnICxGE98Ga64lpYizAbUbA+JoKWiTW7r+v7 + HQTrGGrsFxt3NrpPYNPuHx7Z29HjUdnoZKYNiICNSDYjgWxCmm2YPaOHvqYEL9Ve4i8L3AAT1uZVt23Y + 2aQ2UCpBA53QoNbTSesL6tX6HYT8erUuv059AWwnbKtVa7fXqs+Jgc/yzgpyz6g1W4EatYbqT4kZW2rU + J8DmasbH607cJG/eDfGvOf40wu8k3koAyZ4GU54CzxFwDZlHRf8DeTqM3AKVaVkAAAAASUVORK5CYII= + + + + 529, 17 + + + 339, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.vb b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.vb new file mode 100644 index 0000000..4620e1d --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Designer/DashboardDesignerUserControl.vb @@ -0,0 +1,101 @@ +Imports DevExpress.DataAccess +Imports DevExpress.DataAccess.ConnectionParameters +Imports DevExpress.DataAccess.Sql + +Public Class DashboardDesignerUserControl + 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 DashboardDesigner() As DevExpress.DashboardWin.DashboardDesigner + Get + Return Me.DashboardDesigner1 + End Get + End Property + Public ReadOnly Property BarManger As DevExpress.XtraBars.BarManager + Get + Return BarManager1 + 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 DashboardDesigner1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles DashboardDesigner1.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 diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerPropertyEditor.vb b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerPropertyEditor.vb new file mode 100644 index 0000000..f7929f7 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerPropertyEditor.vb @@ -0,0 +1,24 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Public Class DashboardViewerPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "DashboardViewerInfo" + End Sub + Private DashboardViewerUserControlCore As DashboardViewerUserControl = Nothing + Public ReadOnly Property DashboardViewerUserControl() As DashboardViewerUserControl + Get + Return DashboardViewerUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + DashboardViewerUserControlCore = New DashboardViewerUserControl() + Return DashboardViewerUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.Designer.vb new file mode 100644 index 0000000..da0ba00 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.Designer.vb @@ -0,0 +1,51 @@ + _ +Partial Class DashboardViewerUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + 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(922, 715) + 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(922, 715) + CType(Me.DashboardViewer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents DashboardViewer1 As DevExpress.DashboardWin.DashboardViewer + +End Class diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.resx b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.vb b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.vb new file mode 100644 index 0000000..7f59cd8 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DashBoard/Viewer/DashboardViewerUserControl.vb @@ -0,0 +1,99 @@ +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 diff --git a/SISBusiness.Module.Win/Editor/DateTimeEditor.vb b/SISBusiness.Module.Win/Editor/DateTimeEditor.vb new file mode 100644 index 0000000..1e6307a --- /dev/null +++ b/SISBusiness.Module.Win/Editor/DateTimeEditor.vb @@ -0,0 +1,20 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Model +Imports DevExpress.XtraEditors + +Public Class DateTimeEditor + Inherits DatePropertyEditor + Public Sub New(ByVal objectType As Type, ByVal item As IModelMemberViewItem) + MyBase.New(objectType, item) + End Sub + Protected Overrides Sub SetupRepositoryItem(ByVal item As DevExpress.XtraEditors.Repository.RepositoryItem) + MyBase.SetupRepositoryItem(item) + Dim defaultItem As RepositoryItemDateTimeEdit = CType(item, RepositoryItemDateTimeEdit) + defaultItem.VistaDisplayMode = DevExpress.Utils.DefaultBoolean.True + defaultItem.VistaEditTime = DevExpress.Utils.DefaultBoolean.True + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelPropertyEditor.vb b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelPropertyEditor.vb new file mode 100644 index 0000000..870323b --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelPropertyEditor.vb @@ -0,0 +1,28 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class ExcelPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "ExcelInfo" + End Sub + Private ExcelUserControlCore As ExcelUserControl = Nothing + Public ReadOnly Property ExcelUserControl() As ExcelUserControl + Get + Return ExcelUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + ExcelUserControlCore = New ExcelUserControl() + Return ExcelUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.Designer.vb new file mode 100644 index 0000000..5de3a63 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.Designer.vb @@ -0,0 +1,406 @@ + _ +Partial Class ExcelUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.SP = New FarPoint.Win.Spread.FpSpread() + Me.SP_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.FormulaProvider1 = New FarPoint.Win.Spread.FormulaProvider() + Me.SPFormula = New FarPoint.Win.Spread.FormulaTextBox() + Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) + Me.Bar2 = New DevExpress.XtraBars.Bar() + Me.BarSubItem2 = New DevExpress.XtraBars.BarSubItem() + Me.BarSubItem5 = New DevExpress.XtraBars.BarSubItem() + Me.ImportXLS = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.BarSubItem6 = New DevExpress.XtraBars.BarSubItem() + Me.ExportXLS = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem8 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.BarSubItem3 = New DevExpress.XtraBars.BarSubItem() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarSubItem7 = New DevExpress.XtraBars.BarSubItem() + Me.TrimColumns = New DevExpress.XtraBars.BarButtonItem() + Me.TrimRows = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() + Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() + Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarSubItem1 = New DevExpress.XtraBars.BarSubItem() + Me.BarSubItem4 = New DevExpress.XtraBars.BarSubItem() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.FontDialog1 = New System.Windows.Forms.FontDialog() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ShowHideGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FontToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BackColorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.BorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CellTypeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + CType(Me.SP, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'SP + ' + Me.SP.AccessibleDescription = "" + Me.SP.AllowColumnMove = True + Me.SP.EditModeReplace = True + Me.SP.Location = New System.Drawing.Point(0, 58) + Me.SP.Name = "SP" + Me.SP.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.SP_Sheet1}) + Me.SP.Size = New System.Drawing.Size(798, 446) + Me.SP.TabIndex = 0 + ' + 'SP_Sheet1 + ' + Me.SP_Sheet1.Reset() + SP_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + SP_Sheet1.ColumnCount = 1 + SP_Sheet1.RowCount = 1 + Me.SP_Sheet1.HorizontalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None) + Me.SP_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.SP_Sheet1.VerticalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None) + Me.SP_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'SPFormula + ' + Me.SPFormula.Location = New System.Drawing.Point(0, 30) + Me.SPFormula.Multiline = False + Me.SPFormula.Name = "SPFormula" + Me.SPFormula.Size = New System.Drawing.Size(801, 22) + Me.SPFormula.TabIndex = 1 + 'Attach SPFormula to SP + Me.SPFormula.Attach(Me.SP) + ' + 'BarManager1 + ' + Me.BarManager1.Bars.AddRange(New DevExpress.XtraBars.Bar() {Me.Bar2}) + Me.BarManager1.DockControls.Add(Me.barDockControlTop) + Me.BarManager1.DockControls.Add(Me.barDockControlBottom) + Me.BarManager1.DockControls.Add(Me.barDockControlLeft) + Me.BarManager1.DockControls.Add(Me.barDockControlRight) + Me.BarManager1.Form = Me + Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.ExportXLS, Me.ImportXLS, Me.TrimColumns, Me.TrimRows, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarSubItem1, Me.BarSubItem2, Me.BarSubItem3, Me.BarSubItem4, Me.BarSubItem5, Me.BarSubItem6, Me.BarSubItem7, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12}) + Me.BarManager1.MainMenu = Me.Bar2 + Me.BarManager1.MaxItemId = 22 + ' + 'Bar2 + ' + Me.Bar2.BarName = "Main menu" + Me.Bar2.DockCol = 0 + Me.Bar2.DockRow = 0 + Me.Bar2.DockStyle = DevExpress.XtraBars.BarDockStyle.Top + Me.Bar2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem3)}) + Me.Bar2.OptionsBar.MultiLine = True + Me.Bar2.OptionsBar.UseWholeRow = True + Me.Bar2.Text = "Main menu" + ' + 'BarSubItem2 + ' + Me.BarSubItem2.Caption = "File" + Me.BarSubItem2.Id = 12 + Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem11)}) + Me.BarSubItem2.Name = "BarSubItem2" + ' + 'BarSubItem5 + ' + Me.BarSubItem5.Caption = "Import" + Me.BarSubItem5.Id = 15 + Me.BarSubItem5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ImportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem6)}) + Me.BarSubItem5.Name = "BarSubItem5" + ' + 'ImportXLS + ' + Me.ImportXLS.Caption = "... from XLS" + Me.ImportXLS.Id = 4 + Me.ImportXLS.Name = "ImportXLS" + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "... from XML" + Me.BarButtonItem6.Id = 8 + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'BarSubItem6 + ' + Me.BarSubItem6.Caption = "Export" + Me.BarSubItem6.Id = 16 + Me.BarSubItem6.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ExportXLS), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem12)}) + Me.BarSubItem6.Name = "BarSubItem6" + ' + 'ExportXLS + ' + Me.ExportXLS.Caption = "... to XLS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.ExportXLS.Id = 3 + Me.ExportXLS.Name = "ExportXLS" + ' + 'BarButtonItem7 + ' + Me.BarButtonItem7.Caption = "... to XML" + Me.BarButtonItem7.Id = 9 + Me.BarButtonItem7.Name = "BarButtonItem7" + ' + 'BarButtonItem12 + ' + Me.BarButtonItem12.Caption = "... to PDF" + Me.BarButtonItem12.Id = 21 + Me.BarButtonItem12.Name = "BarButtonItem12" + ' + 'BarButtonItem8 + ' + Me.BarButtonItem8.Caption = "Print..." + Me.BarButtonItem8.Id = 10 + Me.BarButtonItem8.Name = "BarButtonItem8" + ' + 'BarButtonItem11 + ' + Me.BarButtonItem11.Caption = "Print preview..." + Me.BarButtonItem11.Id = 20 + Me.BarButtonItem11.Name = "BarButtonItem11" + ' + 'BarSubItem3 + ' + Me.BarSubItem3.Caption = "Edit" + Me.BarSubItem3.Id = 13 + Me.BarSubItem3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.BarSubItem7), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem10)}) + Me.BarSubItem3.Name = "BarSubItem3" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Show/Hide grid line" + Me.BarButtonItem5.Id = 7 + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'BarSubItem7 + ' + Me.BarSubItem7.Caption = "Trim" + Me.BarSubItem7.Id = 17 + Me.BarSubItem7.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.TrimColumns), New DevExpress.XtraBars.LinkPersistInfo(Me.TrimRows)}) + Me.BarSubItem7.Name = "BarSubItem7" + ' + 'TrimColumns + ' + Me.TrimColumns.Caption = "... columns" + Me.TrimColumns.Id = 5 + Me.TrimColumns.Name = "TrimColumns" + ' + 'TrimRows + ' + Me.TrimRows.Caption = "... rows" + Me.TrimRows.Id = 6 + Me.TrimRows.Name = "TrimRows" + ' + 'BarButtonItem9 + ' + Me.BarButtonItem9.Caption = "Font..." + Me.BarButtonItem9.Id = 18 + Me.BarButtonItem9.Name = "BarButtonItem9" + ' + 'BarButtonItem10 + ' + Me.BarButtonItem10.Caption = "Color..." + Me.BarButtonItem10.Id = 19 + Me.BarButtonItem10.Name = "BarButtonItem10" + ' + 'barDockControlTop + ' + Me.barDockControlTop.CausesValidation = False + Me.barDockControlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.barDockControlTop.Location = New System.Drawing.Point(0, 0) + Me.barDockControlTop.Size = New System.Drawing.Size(801, 24) + ' + 'barDockControlBottom + ' + Me.barDockControlBottom.CausesValidation = False + Me.barDockControlBottom.Dock = System.Windows.Forms.DockStyle.Bottom + Me.barDockControlBottom.Location = New System.Drawing.Point(0, 558) + Me.barDockControlBottom.Size = New System.Drawing.Size(801, 0) + ' + 'barDockControlLeft + ' + Me.barDockControlLeft.CausesValidation = False + Me.barDockControlLeft.Dock = System.Windows.Forms.DockStyle.Left + Me.barDockControlLeft.Location = New System.Drawing.Point(0, 24) + Me.barDockControlLeft.Size = New System.Drawing.Size(0, 534) + ' + 'barDockControlRight + ' + Me.barDockControlRight.CausesValidation = False + Me.barDockControlRight.Dock = System.Windows.Forms.DockStyle.Right + Me.barDockControlRight.Location = New System.Drawing.Point(801, 24) + Me.barDockControlRight.Size = New System.Drawing.Size(0, 534) + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "BarButtonItem1" + Me.BarButtonItem1.Id = 0 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "FileOpen" + Me.BarButtonItem2.Id = 1 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "FileSave" + Me.BarButtonItem3.Id = 2 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarSubItem1 + ' + Me.BarSubItem1.Caption = "FIle" + Me.BarSubItem1.Id = 11 + Me.BarSubItem1.Name = "BarSubItem1" + ' + 'BarSubItem4 + ' + Me.BarSubItem4.Caption = "BarSubItem4" + Me.BarSubItem4.Id = 14 + Me.BarSubItem4.Name = "BarSubItem4" + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Trim columns" + Me.BarButtonItem4.Id = 5 + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShowHideGridToolStripMenuItem, Me.FontToolStripMenuItem, Me.BackColorToolStripMenuItem, Me.BorderToolStripMenuItem, Me.CellTypeToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 114) + ' + 'ShowHideGridToolStripMenuItem + ' + Me.ShowHideGridToolStripMenuItem.Name = "ShowHideGridToolStripMenuItem" + Me.ShowHideGridToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.ShowHideGridToolStripMenuItem.Text = "Show/Hide grid" + ' + 'FontToolStripMenuItem + ' + Me.FontToolStripMenuItem.Name = "FontToolStripMenuItem" + Me.FontToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.FontToolStripMenuItem.Text = "Font..." + ' + 'BackColorToolStripMenuItem + ' + Me.BackColorToolStripMenuItem.Name = "BackColorToolStripMenuItem" + Me.BackColorToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.BackColorToolStripMenuItem.Text = "Back color..." + ' + 'BorderToolStripMenuItem + ' + Me.BorderToolStripMenuItem.Name = "BorderToolStripMenuItem" + Me.BorderToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.BorderToolStripMenuItem.Text = "Border ..." + ' + 'CellTypeToolStripMenuItem + ' + Me.CellTypeToolStripMenuItem.Name = "CellTypeToolStripMenuItem" + Me.CellTypeToolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.CellTypeToolStripMenuItem.Text = "Cell type ..." + ' + 'ExcelUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SPFormula) + Me.Controls.Add(Me.SP) + Me.Controls.Add(Me.barDockControlLeft) + Me.Controls.Add(Me.barDockControlRight) + Me.Controls.Add(Me.barDockControlBottom) + Me.Controls.Add(Me.barDockControlTop) + Me.Name = "ExcelUserControl" + Me.Size = New System.Drawing.Size(801, 558) + CType(Me.SP, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SP_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FormulaProvider1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SP As FarPoint.Win.Spread.FpSpread + Friend WithEvents SP_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents FormulaProvider1 As FarPoint.Win.Spread.FormulaProvider + Friend WithEvents SPFormula As FarPoint.Win.Spread.FormulaTextBox + Friend WithEvents BarManager1 As DevExpress.XtraBars.BarManager + Friend WithEvents Bar2 As DevExpress.XtraBars.Bar + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ExportXLS As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ImportXLS As DevExpress.XtraBars.BarButtonItem + Friend WithEvents barDockControlTop As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlBottom As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlLeft As DevExpress.XtraBars.BarDockControl + Friend WithEvents barDockControlRight As DevExpress.XtraBars.BarDockControl + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog + Friend WithEvents TrimColumns As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TrimRows As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem8 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarSubItem2 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem3 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem1 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem5 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem6 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem4 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarSubItem7 As DevExpress.XtraBars.BarSubItem + Friend WithEvents BarButtonItem9 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog + Friend WithEvents BarButtonItem10 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents FontToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BorderToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowHideGridToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BackColorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CellTypeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem + +End Class diff --git a/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.resx b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.resx new file mode 100644 index 0000000..c32f367 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 124, 17 + + + 272, 17 + + + 534, 17 + + + 397, 17 + + + 676, 17 + + + 794, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.vb b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.vb new file mode 100644 index 0000000..5383a42 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ExcelEditor/ExcelUserControl.vb @@ -0,0 +1,211 @@ +Imports System.IO +Imports System.Text +Imports FarPoint.Win.Spread +Imports FarPoint.Win.Spread.Design +Imports System.Windows.Forms + +Public Class ExcelUserControl + Private _ExcelInfo As String + Private _FileName As String = "" + Private _EnterMoveNextControl As Boolean + Public Sub New() + InitializeComponent() + End Sub + Public ReadOnly Property FpSpreadControl() As FpSpread + Get + Return Me.SP + End Get + End Property + ReadOnly Property FileName As String + Get + Return _FileName + End Get + End Property + Public Property ExcelInfo As String + Get + Return _ExcelInfo + End Get + Set(ByVal value As String) + _ExcelInfo = value + End Set + End Property + Public Property EnterMoveNextControl As Boolean + Get + Return _EnterMoveNextControl + End Get + Set(value As Boolean) + _EnterMoveNextControl = value + End Set + End Property + + Private Sub ExcelUserControl_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged + SP.Width = Me.Width + SPFormula.Width = Me.Width + SP.Height = Me.Height - SPFormula.Height - 35 + End Sub + Private Sub ImportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ImportXLS.ItemClick + Me.OpenFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx" + If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then + Me.SP.OpenExcel(Me.OpenFileDialog1.FileName) + _FileName = Me.OpenFileDialog1.FileName + End If + End Sub + Private Sub ExportXLS_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles ExportXLS.ItemClick + 'Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.SaveFileDialog1.Filter = "Excel (*.xls) |*.xls;*.xlsx" + If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then + Me.SP.SaveExcel(Me.SaveFileDialog1.FileName) + End If + End Sub + Private Sub TrimColumns_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimColumns.ItemClick + Me.SP.ActiveSheet.ColumnCount = Me.SP.ActiveSheet.ActiveColumnIndex + 1 + End Sub + Private Sub TrimRows_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles TrimRows.ItemClick + Me.SP.ActiveSheet.RowCount = Me.SP.ActiveSheet.ActiveRowIndex + 1 + End Sub + Private Sub BarButtonItem5_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick + SetGridLine() + End Sub + Private Sub BarButtonItem6_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick + Me.OpenFileDialog1.Filter = "Spread (*.xml) |*.xml" + If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then + Me.SP.Open(Me.OpenFileDialog1.FileName) + _FileName = Me.OpenFileDialog1.FileName + End If + End Sub + Private Sub BarButtonItem7_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick + Me.SaveFileDialog1.Filter = "Spread (*.xml) |*.xml" + If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then + Me.SP.Save(Me.SaveFileDialog1.FileName, False) + End If + End Sub + Private Sub BarButtonItem8_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick + Dim printset As New FarPoint.Win.Spread.PrintInfo() + printset.ShowGrid = False + printset.UseMax = True + printset.ShowPrintDialog = True + SP.ActiveSheet.PrintInfo = printset + + SP.PrintSheet(SP.ActiveSheet) + End Sub + Private Sub BarButtonItem9_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick + SetFont() + End Sub + Private Sub BarButtonItem10_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick + SetColor("Any") + End Sub + Private Sub FontToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FontToolStripMenuItem.Click + SetFont() + End Sub + Private Sub SetFont() + FontDialog1.ShowColor = True + If (FontDialog1.ShowDialog() = DialogResult.OK) Then + Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections + For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range + For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1 + For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1 + Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik) + _ActCell.Font = FontDialog1.Font + _ActCell.ForeColor = FontDialog1.Color + Next + Next + Next + End If + End Sub + Private Sub SetColor(_Object As String) + Dim _ColorDialog As New Windows.Forms.ColorDialog + Select Case _Object + Case "CellBackColor" + If (_ColorDialog.ShowDialog() = DialogResult.OK) Then + Dim _range As FarPoint.Win.Spread.Model.CellRange() = SP.ActiveSheet.GetSelections + For Each _CellRange As FarPoint.Win.Spread.Model.CellRange In _range + For ik = _CellRange.Column To _CellRange.Column + _CellRange.ColumnCount - 1 + For jk = _CellRange.Row To _CellRange.Row + _CellRange.RowCount - 1 + Dim _ActCell As FarPoint.Win.Spread.Cell = SP.ActiveSheet.Cells(jk, ik) + _ActCell.BackColor = _ColorDialog.Color + Next + Next + Next + End If + + Case "BorderColor" + If (_ColorDialog.ShowDialog() = DialogResult.OK) Then + + End If + + End Select + End Sub + Private Sub SP_CellClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles SP.CellClick + If e.Button = Windows.Forms.MouseButtons.Right Then + Cursor = New Cursor(Cursor.Current.Handle) + ContextMenuStrip1.Show(New System.Drawing.Point(Cursor.Position)) + End If + End Sub + Private Sub ShowHideGridToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ShowHideGridToolStripMenuItem.Click + SetGridLine() + End Sub + Private Sub SetGridLine() + Dim HGridLine As FarPoint.Win.Spread.GridLine + Dim VGridLine As FarPoint.Win.Spread.GridLine + If Me.SP.ActiveSheet.HorizontalGridLine.Type = GridLineType.None Then + HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray) + VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Flat, System.Drawing.Color.LightGray) + Else + HGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent) + VGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.None, System.Drawing.Color.Transparent) + End If + + Me.SP.ActiveSheet.HorizontalGridLine = HGridLine + Me.SP.ActiveSheet.VerticalGridLine = VGridLine + End Sub + Private Sub BackColorToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BackColorToolStripMenuItem.Click + SetColor("CellBackColor") + End Sub + Private Sub BorderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BorderToolStripMenuItem.Click + FarPoint.Win.Spread.Design.ExternalDialogs.BorderEditor(SP) + End Sub + Private Sub BarButtonItem11_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick + Dim printset As New FarPoint.Win.Spread.PrintInfo() + printset.ShowGrid = False + printset.UseMax = True + 'printset.ShowPrintDialog = True + printset.Preview = True + SP.ActiveSheet.PrintInfo = printset + + SP.PrintSheet(SP.ActiveSheet) + + + End Sub + Private Sub CellTypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CellTypeToolStripMenuItem.Click + FarPoint.Win.Spread.Design.ExternalDialogs.CellTypeEditor(SP) + End Sub + Private Sub BarButtonItem12_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick + Dim _FpPdf As FarPoint.Win.Spread.PrintInfo = New FarPoint.Win.Spread.PrintInfo + Dim _SaveDialog As New SaveFileDialog + _SaveDialog.Filter = "PDF (*.pdf) |*.pdf" + _SaveDialog.DefaultExt = ".pdf" + _SaveDialog.FileName = "Munkalap" + + If (_SaveDialog.ShowDialog() = DialogResult.OK) Then + + + SP.ActiveSheet.ColumnHeader.Visible = False + SP.ActiveSheet.RowHeader.Visible = False + + _FpPdf.PdfFileName = _SaveDialog.FileName + '_FpPdf.PdfWriteMode = PdfWriteMode.New + '_FpPdf.PdfWriteTo = PdfWriteTo.File + _FpPdf.PrintToPdf = True + '_FpPdf.PaperSize = New System.Drawing.Printing.PaperSize("A4", 8, 11) + '_FpPdf.Centering = Centering.Both + _FpPdf.Preview = False + + SP.ActiveSheet.PrintInfo = _FpPdf + SP.PrintSheet(SP.ActiveSheet) + 'SP.SafePrint(SP, 0) + + SP.ActiveSheet.ColumnHeader.Visible = True + SP.ActiveSheet.RowHeader.Visible = True + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/FolderPropertyEditor.vb b/SISBusiness.Module.Win/Editor/FolderPropertyEditor.vb new file mode 100644 index 0000000..d5c04ce --- /dev/null +++ b/SISBusiness.Module.Win/Editor/FolderPropertyEditor.vb @@ -0,0 +1,24 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class FolderPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "FolderName" + End Sub + Private FolderUserControlCore As FolderUserControl = Nothing + Public ReadOnly Property FolderUserControl() As FolderUserControl + Get + Return FolderUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + FolderUserControlCore = New FolderUserControl() + Return FolderUserControlCore + End Function +End Class diff --git a/SISBusiness.Module.Win/Editor/FolderUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/FolderUserControl.Designer.vb new file mode 100644 index 0000000..3edcacb --- /dev/null +++ b/SISBusiness.Module.Win/Editor/FolderUserControl.Designer.vb @@ -0,0 +1,68 @@ + _ +Partial Class FolderUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(0, 0) + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(409, 20) + Me.TextEdit1.StyleController = Me.StyleController1 + Me.TextEdit1.TabIndex = 0 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Location = New System.Drawing.Point(426, 0) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(18, 20) + Me.SimpleButton1.TabIndex = 1 + Me.SimpleButton1.Text = "..." + ' + 'FolderUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SimpleButton1) + Me.Controls.Add(Me.TextEdit1) + Me.Name = "FolderUserControl" + Me.Size = New System.Drawing.Size(444, 22) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents FolderBrowserDialog As System.Windows.Forms.FolderBrowserDialog + +End Class diff --git a/SISBusiness.Module.Win/Editor/FolderUserControl.resx b/SISBusiness.Module.Win/Editor/FolderUserControl.resx new file mode 100644 index 0000000..701a2d8 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/FolderUserControl.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 156, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/FolderUserControl.vb b/SISBusiness.Module.Win/Editor/FolderUserControl.vb new file mode 100644 index 0000000..ca3b6f7 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/FolderUserControl.vb @@ -0,0 +1,20 @@ +Public Class FolderUserControl + Public Property FolderName + Get + Return TextEdit1.Text + End Get + Set(ByVal value) + TextEdit1.Text = value + End Set + End Property + Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize + TextEdit1.Width = Me.Width - SimpleButton1.Width + SimpleButton1.Left = Me.Width - SimpleButton1.Width + End Sub + + Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click + Me.FolderBrowserDialog.ShowDialog() + Me.TextEdit1.Text = Me.FolderBrowserDialog.SelectedPath.ToString + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartPropertyEditor.vb b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartPropertyEditor.vb new file mode 100644 index 0000000..ce608a0 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartPropertyEditor.vb @@ -0,0 +1,3 @@ +Public Class GanttChartPropertyEditor + +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.Designer.vb new file mode 100644 index 0000000..e972acf --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.Designer.vb @@ -0,0 +1,95 @@ + _ +Partial Class GanttChartUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim GanttDiagram1 As DevExpress.XtraCharts.GanttDiagram = New DevExpress.XtraCharts.GanttDiagram() + Dim Series1 As DevExpress.XtraCharts.Series = New DevExpress.XtraCharts.Series() + Dim RangeBarSeriesLabel1 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel() + Dim OverlappedGanttSeriesView1 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView() + Dim Series2 As DevExpress.XtraCharts.Series = New DevExpress.XtraCharts.Series() + Dim RangeBarSeriesLabel2 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel() + Dim OverlappedGanttSeriesView2 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView() + Dim RangeBarSeriesLabel3 As DevExpress.XtraCharts.RangeBarSeriesLabel = New DevExpress.XtraCharts.RangeBarSeriesLabel() + Dim OverlappedGanttSeriesView3 As DevExpress.XtraCharts.OverlappedGanttSeriesView = New DevExpress.XtraCharts.OverlappedGanttSeriesView() + Me.ChartControl = New DevExpress.XtraCharts.ChartControl() + CType(Me.ChartControl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(GanttDiagram1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Series1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(RangeBarSeriesLabel1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(OverlappedGanttSeriesView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Series2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(RangeBarSeriesLabel2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(OverlappedGanttSeriesView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(RangeBarSeriesLabel3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(OverlappedGanttSeriesView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'ChartControl + ' + GanttDiagram1.AxisX.Range.ScrollingRange.SideMarginsEnabled = True + GanttDiagram1.AxisX.Range.SideMarginsEnabled = True + GanttDiagram1.AxisX.VisibleInPanesSerializable = "-1" + GanttDiagram1.AxisY.Range.ScrollingRange.SideMarginsEnabled = True + GanttDiagram1.AxisY.Range.SideMarginsEnabled = True + GanttDiagram1.AxisY.VisibleInPanesSerializable = "-1" + Me.ChartControl.Diagram = GanttDiagram1 + Me.ChartControl.Dock = System.Windows.Forms.DockStyle.Fill + Me.ChartControl.Location = New System.Drawing.Point(0, 0) + Me.ChartControl.Name = "ChartControl" + Series1.Label = RangeBarSeriesLabel1 + Series1.Name = "Series 1" + Series1.ValueScaleType = DevExpress.XtraCharts.ScaleType.DateTime + Series1.View = OverlappedGanttSeriesView1 + Series2.Label = RangeBarSeriesLabel2 + Series2.Name = "Series 2" + Series2.ValueScaleType = DevExpress.XtraCharts.ScaleType.DateTime + Series2.View = OverlappedGanttSeriesView2 + Me.ChartControl.SeriesSerializable = New DevExpress.XtraCharts.Series() {Series1, Series2} + Me.ChartControl.SeriesTemplate.Label = RangeBarSeriesLabel3 + Me.ChartControl.SeriesTemplate.View = OverlappedGanttSeriesView3 + Me.ChartControl.Size = New System.Drawing.Size(484, 308) + Me.ChartControl.TabIndex = 0 + ' + 'GanttChartUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ChartControl) + Me.Name = "GanttChartUserControl" + Me.Size = New System.Drawing.Size(484, 308) + CType(GanttDiagram1, System.ComponentModel.ISupportInitialize).EndInit() + CType(RangeBarSeriesLabel1, System.ComponentModel.ISupportInitialize).EndInit() + CType(OverlappedGanttSeriesView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Series1, System.ComponentModel.ISupportInitialize).EndInit() + CType(RangeBarSeriesLabel2, System.ComponentModel.ISupportInitialize).EndInit() + CType(OverlappedGanttSeriesView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Series2, System.ComponentModel.ISupportInitialize).EndInit() + CType(RangeBarSeriesLabel3, System.ComponentModel.ISupportInitialize).EndInit() + CType(OverlappedGanttSeriesView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ChartControl, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ChartControl As DevExpress.XtraCharts.ChartControl + +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.resx b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.vb b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.vb new file mode 100644 index 0000000..c6b7336 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttChartEditor/GanttChartUserControl.vb @@ -0,0 +1,3 @@ +Public Class GanttChartUserControl + +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttEditor/G2anttPropertyEditor.vb b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttPropertyEditor.vb new file mode 100644 index 0000000..cab957e --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttPropertyEditor.vb @@ -0,0 +1,28 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class G2anttPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "G2anttInfo" + End Sub + Private G2anttUserControlCore As G2anttUserControl = Nothing + Public ReadOnly Property G2anttUserControl() As G2anttUserControl + Get + Return G2anttUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + G2anttUserControlCore = New G2anttUserControl() + Return G2anttUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.Designer.vb new file mode 100644 index 0000000..534b482 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.Designer.vb @@ -0,0 +1,77 @@ + _ +Partial Class G2anttUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.Exg2antt = New exontrol.EXG2ANTTLib.exg2antt() + Me.SuspendLayout() + ' + 'Exg2antt + ' + Me.Exg2antt.BackColorAlternate = System.Drawing.Color.Black + Me.Exg2antt.BackColorHeader = System.Drawing.SystemColors.Control + Me.Exg2antt.BackColorHeader32 = -2147483633 + Me.Exg2antt.BackColorLevelHeader = System.Drawing.SystemColors.Control + Me.Exg2antt.BackColorLock = System.Drawing.SystemColors.Window + Me.Exg2antt.BackColorSortBar = System.Drawing.SystemColors.ControlDark + Me.Exg2antt.BackColorSortBar32 = -2147483632 + Me.Exg2antt.BackColorSortBarCaption = System.Drawing.SystemColors.Control + Me.Exg2antt.BackColorSortBarCaption32 = -2147483633 + Me.Exg2antt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Exg2antt.ColumnsAllowSizing = True + Me.Exg2antt.DefaultItemHeight = 18 + Me.Exg2antt.Dock = System.Windows.Forms.DockStyle.Fill + Me.Exg2antt.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines + Me.Exg2antt.FilterBarBackColor = System.Drawing.SystemColors.Control + Me.Exg2antt.FilterBarBackColor32 = -2147483633 + Me.Exg2antt.FilterBarForeColor = System.Drawing.SystemColors.WindowText + Me.Exg2antt.ForeColorHeader = System.Drawing.SystemColors.WindowText + Me.Exg2antt.ForeColorLock = System.Drawing.SystemColors.WindowText + Me.Exg2antt.ForeColorSortBar = System.Drawing.SystemColors.ControlDark + Me.Exg2antt.GridLineColor = System.Drawing.SystemColors.ControlDark + Me.Exg2antt.HyperLinkColor = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(101, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Exg2antt.Location = New System.Drawing.Point(0, 0) + Me.Exg2antt.MarkSearchColumn = False + Me.Exg2antt.Name = "Exg2antt" + Me.Exg2antt.PictureLevelHeader = Nothing + Me.Exg2antt.SelBackColor = System.Drawing.SystemColors.Highlight + Me.Exg2antt.SelBackColor32 = -2147483635 + Me.Exg2antt.SelForeColor = System.Drawing.SystemColors.HighlightText + Me.Exg2antt.SingleSort = False + Me.Exg2antt.Size = New System.Drawing.Size(371, 307) + Me.Exg2antt.SortBarHeight = 42 + Me.Exg2antt.TabIndex = 0 + Me.Exg2antt.TooltipCellsColor = System.Drawing.Color.FromArgb(CType(CType(49, Byte), Integer), CType(CType(101, Byte), Integer), CType(CType(255, Byte), Integer)) + ' + 'G2anttUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Exg2antt) + Me.Name = "G2anttUserControl" + Me.Size = New System.Drawing.Size(371, 307) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Exg2antt As exontrol.EXG2ANTTLib.exg2antt + +End Class diff --git a/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.resx b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.vb b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.vb new file mode 100644 index 0000000..5997da2 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/GanttEditor/G2anttUserControl.vb @@ -0,0 +1,23 @@ +Public Class G2anttUserControl + Property _G2anttInfo As String + Public Sub New() + InitializeComponent() + 'exontrol.EXG2ANTTLib.exg2antt.RuntimeKey = "kxcp0u|cdqBuku/tgpfu|gtjc|0jw" + End Sub + Public Property G2anttInfo As String + Get + Return _G2anttInfo + End Get + Set(ByVal value As String) + _G2anttInfo = value + End Set + End Property + + Private Sub G2anttUserControl_Load(sender As Object, e As EventArgs) Handles Me.Load + + End Sub + + Private Sub Exg2antt_Load(sender As Object, e As EventArgs) Handles Exg2antt.Load + 'exontrol.EXG2ANTTLib.exg2antt.RuntimeKey = "kxcp0u|cdqBuku/tgpfu|gtjc|0jw" + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/IEPropertyEditor.vb b/SISBusiness.Module.Win/Editor/IEPropertyEditor.vb new file mode 100644 index 0000000..e98b099 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/IEPropertyEditor.vb @@ -0,0 +1,24 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class IEPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "URL" + End Sub + Private IEControlCore As IEUserControl = Nothing + Public ReadOnly Property FolderUserControl() As IEUserControl + Get + Return IEControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + IEControlCore = New IEUserControl + Return IEControlCore + End Function +End Class diff --git a/SISBusiness.Module.Win/Editor/IEUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/IEUserControl.Designer.vb new file mode 100644 index 0000000..6bf7d71 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/IEUserControl.Designer.vb @@ -0,0 +1,54 @@ + _ +Partial Class IEUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.WB = New System.Windows.Forms.WebBrowser() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'WB + ' + Me.WB.Dock = System.Windows.Forms.DockStyle.Fill + Me.WB.Location = New System.Drawing.Point(0, 0) + Me.WB.MinimumSize = New System.Drawing.Size(20, 20) + Me.WB.Name = "WB" + Me.WB.Size = New System.Drawing.Size(444, 226) + Me.WB.TabIndex = 0 + ' + 'IEUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.WB) + Me.Name = "IEUserControl" + Me.Size = New System.Drawing.Size(444, 226) + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents WB As System.Windows.Forms.WebBrowser + +End Class diff --git a/SISBusiness.Module.Win/Editor/IEUserControl.resx b/SISBusiness.Module.Win/Editor/IEUserControl.resx new file mode 100644 index 0000000..3944946 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/IEUserControl.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/IEUserControl.vb b/SISBusiness.Module.Win/Editor/IEUserControl.vb new file mode 100644 index 0000000..a2ecb8d --- /dev/null +++ b/SISBusiness.Module.Win/Editor/IEUserControl.vb @@ -0,0 +1,13 @@ +Public Class IEUserControl + Public Property Url As String + Get + Return WB.Url.ToString + End Get + Set(ByVal value As String) + WB.Navigate(value) + End Set + End Property + Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/MemoEditor.vb b/SISBusiness.Module.Win/Editor/MemoEditor.vb new file mode 100644 index 0000000..d1c18ac --- /dev/null +++ b/SISBusiness.Module.Win/Editor/MemoEditor.vb @@ -0,0 +1,16 @@ +Imports DevExpress.ExpressApp.Win.Editors +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Model +Public Class MemoEditStringPropertyEditor + Inherits StringPropertyEditor + Sub New(objectType As System.Type, model As DevExpress.ExpressApp.Model.IModelMemberViewItem) + + MyBase.New(objectType, model) + + End Sub + Protected Overrides Function CreateRepositoryItem() As DevExpress.XtraEditors.Repository.RepositoryItem + Return New RepositoryItemLargeStringEdit + End Function +End Class + diff --git a/SISBusiness.Module.Win/Editor/PivotGridLayout.vb b/SISBusiness.Module.Win/Editor/PivotGridLayout.vb new file mode 100644 index 0000000..bcdba14 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/PivotGridLayout.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PivotGridLayout + Inherits BaseObject + Private _MasterKey As Guid + Private _ViewID As String + Private _LayoutXML As String + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + End Set + End Property + _ + Property LayoutXML As String + Get + Return _LayoutXML + End Get + Set(value As String) + SetPropertyValue("LayoutXML", _LayoutXML, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module.Win/Editor/ProductsDetailEditor.vb b/SISBusiness.Module.Win/Editor/ProductsDetailEditor.vb new file mode 100644 index 0000000..fa74297 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ProductsDetailEditor.vb @@ -0,0 +1,21 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Public Class ProductsDetailEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "Products" + End Sub + Private IEControlCore As IEUserControl = Nothing + Public ReadOnly Property FolderUserControl() As IEUserControl + Get + Return IEControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + IEControlCore = New IEUserControl + Return IEControlCore + End Function +End Class diff --git a/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.Designer.vb new file mode 100644 index 0000000..205360a --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.Designer.vb @@ -0,0 +1,54 @@ + _ +Partial Class ProductsDetailUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.labelPRoductNumber = New DevExpress.XtraEditors.LabelControl() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'labelPRoductNumber + ' + Me.labelPRoductNumber.Location = New System.Drawing.Point(0, 0) + Me.labelPRoductNumber.Name = "labelPRoductNumber" + Me.labelPRoductNumber.Size = New System.Drawing.Size(102, 13) + Me.labelPRoductNumber.TabIndex = 0 + Me.labelPRoductNumber.Text = "" + ' + 'ProductsDetailUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.labelPRoductNumber) + Me.Name = "ProductsDetailUserControl" + Me.Size = New System.Drawing.Size(444, 226) + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Friend WithEvents labelPRoductNumber As DevExpress.XtraEditors.LabelControl + +End Class diff --git a/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.resx b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.resx new file mode 100644 index 0000000..3944946 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.vb b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.vb new file mode 100644 index 0000000..cf36493 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/ProductsDetailUserControl.vb @@ -0,0 +1,18 @@ +Imports SISBusiness.Module +Imports DevExpress.Xpo + +Public Class ProductsDetailUserControl + Private _Products As Products + Private _uow As UnitOfWork + Public Property Products As SISBusiness.Module.Products + Get + Return _Products + End Get + Set(value As SISBusiness.Module.Products) + + End Set + End Property + Private Sub FolderUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditHandler.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditHandler.vb new file mode 100644 index 0000000..0dc818c --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditHandler.vb @@ -0,0 +1,159 @@ +Option Strict On +Option Explicit On + +Imports System.Text + +'''

+''' Helper class to return the cleaned rtf, especcially the merge fields +''' to be clean and replaced by their values. Keep in mind: +''' 1. NO PIPES (|) allowed in the merge field(they will be removed) !!! +''' 2. ALL SPACES will be removed +''' +Public Class RTFMergeFieldCleaner + Private _ArrayOfFields(,) As String + ''' + ''' Returns array of uncleaned (0st dimension 1) and cleaned (1st dimension 1) strings + ''' + Public ReadOnly Property ArrayOfFields() As String(,) + Get + Return _ArrayOfFields + End Get + End Property + ''' + ''' Returns the amount of millisecconds it took to clean the page from strange rtf tags + ''' + Public ReadOnly Property MilliseccondsItTookToProcess() As Integer + Get + Return processedinmillisecconds + End Get + End Property + 'onderstaande is essentieel om de volgende instantie van een merge field te vinden + 'houdt enkel bij waar de search was in het document + Private bcounter As Integer + 'om de waarde om te slaan + Dim processedinmillisecconds As Integer + ''' + ''' Input string or stringbuilder. Returns cleaned(everything within + ''' the tags is cleaned from rtf codes)string or stringbuilder + ''' On failure or no start and end tag combination it will return an + ''' empty string or stringbuilder or a mangled one :-) + ''' + Public Function CleanDocument(ByVal rtfSring As String, Optional ByVal detectStartChar As Char = CChar("["), Optional ByVal detectEndChar As Char = CChar("]")) As String + + Dim time As Integer = Date.Now.TimeOfDay.Milliseconds + + Dim sb As New StringBuilder(rtfSring) + Dim sbclean As New StringBuilder(sb.ToString) + Dim tempstr(1) As String + Dim stepper As Integer = 0 + Do + tempstr = ReturnNextRtfString(sb, detectStartChar, detectEndChar, True) + 'als de return leeg is exit, dit implicdeert dat er geen start tag was gevonden + If tempstr(0) Is Nothing Then Exit Do + sbclean.Replace(tempstr(0), tempstr(1)) + 'array opbouwen met de velden evt groter maken + ReDim Preserve _ArrayOfFields(1, stepper) + _ArrayOfFields(0, stepper) = tempstr(0) + _ArrayOfFields(1, stepper) = tempstr(1) + stepper += 1 + Loop + + processedinmillisecconds = Date.Now.TimeOfDay.Milliseconds - time + + Return sbclean.ToString + + End Function + ' overload van de vorige alleen nu met een string builder + Public Function CleanDocument(ByRef sb As StringBuilder, Optional ByVal detectStartChar As Char = CChar("["), Optional ByVal detectEndChar As Char = CChar("]")) As StringBuilder + Dim time As Integer = Date.Now.TimeOfDay.Milliseconds + + Dim sbclean As New StringBuilder(sb.ToString) + Dim stepper As Integer = 0 + Dim tempstr(1) As String + Do + tempstr = ReturnNextRtfString(sb, detectStartChar, detectEndChar, True) + If tempstr(0) Is Nothing Then Exit Do + sbclean.Replace(tempstr(0), tempstr(1)) + ReDim Preserve _ArrayOfFields(1, stepper) + _ArrayOfFields(0, stepper) = tempstr(0) + _ArrayOfFields(1, stepper) = tempstr(1) + stepper += 1 + Loop + + processedinmillisecconds = Date.Now.TimeOfDay.Milliseconds - time + + Return sbclean + End Function + ''' + ''' Returns the next rtf string with the start and end tags. + ''' optional define other start and end tags, and defin if the sting gets cleaned + ''' + Private Function ReturnNextRtfString(ByRef sb As StringBuilder, ByVal startchar As Char, ByVal endchar As Char, Optional ByVal autoclean As Boolean = False) As String() + + Dim startcounter, endcounter As Integer + Dim acounter As Integer + Dim returnstring(1) As String + ' loop door de hele stringbuilder vanaf het startpunt + For acounter = bcounter To sb.Length - 1 + 'zoek begin + If sb.Chars(acounter) = startchar Then + startcounter = acounter + End If + 'zoek einde + If sb.Chars(acounter) = endchar Then + endcounter = acounter + 1 + 'set nieuwe start voor de volgende aanroep van de functie + bcounter = acounter + 1 + End If + 'retourneer de substring + If startcounter > 0 AndAlso endcounter > startcounter Then + 'als auto clean dan meteen schoonmaken + If autoclean = True Then + returnstring(1) = CleanRtfString(sb.ToString.Substring(startcounter, endcounter - startcounter)) + returnstring(0) = sb.ToString.Substring(startcounter, endcounter - startcounter) + Return returnstring + Else + returnstring(0) = sb.ToString.Substring(startcounter, endcounter - startcounter) + Return returnstring + End If + + Exit Function + End If + Next + Return returnstring + End Function + ''' + ''' Removes anny rtf codes between the tags leaving the strue string as return + ''' allso it removes spaces(32) and pipes(|) + ''' internally it replaces everything it does not know by pipes thats why :-) + ''' + ''' + Private Function CleanRtfString(ByRef rtfstring As String) As String + Dim sb As New StringBuilder(rtfstring) + Dim cleansb As New StringBuilder + + Dim ccounter As Integer + + For ccounter = 0 To sb.Length + 'verwijderen van dit soort strings \af0\afs20 en { } + 'als geen leesteken onder de 32 ascii nummer dan weg + If Asc(sb.Chars(ccounter)) > 32 AndAlso sb.Chars(ccounter) <> "|" AndAlso sb.Chars(ccounter) <> "\" AndAlso sb.Chars(ccounter) <> "{" AndAlso sb.Chars(ccounter) <> "}" Then + cleansb.Append(sb.Chars(ccounter)) + + End If + 'als we er overheen zijn dan pleite! + If ccounter + 1 >= sb.Length Then Exit For + + ' ff al het andre wordt genegeerd en omgezet in een pipe(|) + If sb.Chars(ccounter + 1) = "\" OrElse sb.Chars(ccounter + 1) = "{" OrElse sb.Chars(ccounter + 1) = "}" Then + For dcounter As Integer = ccounter + 1 To sb.Length - 1 + If sb.Chars(dcounter) = CChar(" ") Then Exit For + sb.Chars(dcounter) = CChar("|") + Next + End If + Next + 'alle pipes weg en retourneren + cleansb.Replace("|", "") + Return cleansb.ToString + End Function +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditPropertyEditor.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditPropertyEditor.vb new file mode 100644 index 0000000..d9a4d85 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditPropertyEditor.vb @@ -0,0 +1,63 @@ +' Developer Express Code Central Example: +' How to create a PropertyEditor based on the XtraRichEdit control +' +' Take special note that this editor is intended to be used for a simple and most +' common scenario when only one text property in a Detail View is edited with the +' help of the XtraRichEdit control. Other scenarios are not supported in this +' example and are required to be implemented manually. For example, if there are +' more than one property, edited with this editor in a Detail View, then there may +' be problems with merging in ribbons. See the issue for more detailed +' information. See Also: Implement Custom Property Editors How to: Implement a +' Property Editor for Windows Forms Applications XtraRichEdit Home +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1509 + +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Editors + + _ +Public Class RichEditPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "RtfText" + End Sub + Private richEditUserControlCore As RichEditUserControl = Nothing + Public ReadOnly Property RichEditUserControl() As RichEditUserControl + Get + Return richEditUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + richEditUserControlCore = New RichEditUserControl() + AddHandler richEditUserControlCore.RichEditControl.RtfTextChanged, AddressOf RichEditControl_RtfTextChanged + UpdateReadOnly() + Return richEditUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + UpdateReadOnly() + End Sub + Private Sub UpdateReadOnly() + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _Customers_Collection As New XPCollection(Of Customers)(_ocur.Session) + 'If RichEditUserControl IsNot Nothing AndAlso RichEditUserControl.RichEditControl IsNot Nothing Then + + ' RichEditUserControl.RichEditControl.ReadOnly = Not AllowEdit + ' 'RichEditUserControl.RichEditControl.Options.MailMerge.DataSource = _Customers_Collection + 'End If + End Sub + + Private Sub RichEditControl_RtfTextChanged(sender As Object, e As EventArgs) + 'Me.PropertyValue = Me.RichEditUserControl.RichEditControl.RtfText + OnControlValueChanged() + End Sub + +End Class + diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.Designer.vb new file mode 100644 index 0000000..b537652 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.Designer.vb @@ -0,0 +1,1774 @@ +' Developer Express Code Central Example: +' How to create a PropertyEditor based on the XtraRichEdit control +' +' Take special note that this editor is intended to be used for a simple and most +' common scenario when only one text property in a Detail View is edited with the +' help of the XtraRichEdit control. Other scenarios are not supported in this +' example and are required to be implemented manually. For example, if there are +' more than one property, edited with this editor in a Detail View, then there may +' be problems with merging in ribbons. See the issue for more detailed +' information. See Also: Implement Custom Property Editors How to: Implement a +' Property Editor for Windows Forms Applications XtraRichEdit Home +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1509 + +Imports Microsoft.VisualBasic +Imports System +Partial Public Class RichEditUserControl + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso (components IsNot Nothing) Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + +#Region "Component Designer generated code" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RichEditUserControl)) + Dim BorderInfo1 As DevExpress.XtraRichEdit.Model.BorderInfo = New DevExpress.XtraRichEdit.Model.BorderInfo() + Me.ribbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.changeFontColorItem1 = New DevExpress.XtraRichEdit.UI.ChangeFontColorItem() + Me.changeFontBackColorItem1 = New DevExpress.XtraRichEdit.UI.ChangeFontBackColorItem() + Me.toggleFontBoldItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontBoldItem() + Me.toggleFontItalicItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontItalicItem() + Me.toggleFontUnderlineItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontUnderlineItem() + Me.toggleFontDoubleUnderlineItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontDoubleUnderlineItem() + Me.toggleFontStrikeoutItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontStrikeoutItem() + Me.toggleFontDoubleStrikeoutItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontDoubleStrikeoutItem() + Me.toggleFontSuperscriptItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontSuperscriptItem() + Me.toggleFontSubscriptItem1 = New DevExpress.XtraRichEdit.UI.ToggleFontSubscriptItem() + Me.fontSizeIncreaseItem1 = New DevExpress.XtraRichEdit.UI.FontSizeIncreaseItem() + Me.fontSizeDecreaseItem1 = New DevExpress.XtraRichEdit.UI.FontSizeDecreaseItem() + Me.showFontFormItem1 = New DevExpress.XtraRichEdit.UI.ShowFontFormItem() + Me.toggleParagraphAlignmentLeftItem1 = New DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentLeftItem() + Me.toggleParagraphAlignmentCenterItem1 = New DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentCenterItem() + Me.toggleParagraphAlignmentRightItem1 = New DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentRightItem() + Me.toggleParagraphAlignmentJustifyItem1 = New DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentJustifyItem() + Me.toggleNumberingListItem1 = New DevExpress.XtraRichEdit.UI.ToggleNumberingListItem() + Me.toggleBulletedListItem1 = New DevExpress.XtraRichEdit.UI.ToggleBulletedListItem() + Me.toggleMultiLevelListItem1 = New DevExpress.XtraRichEdit.UI.ToggleMultiLevelListItem() + Me.decreaseIndentItem1 = New DevExpress.XtraRichEdit.UI.DecreaseIndentItem() + Me.increaseIndentItem1 = New DevExpress.XtraRichEdit.UI.IncreaseIndentItem() + Me.toggleShowWhitespaceItem1 = New DevExpress.XtraRichEdit.UI.ToggleShowWhitespaceItem() + Me.showParagraphFormItem1 = New DevExpress.XtraRichEdit.UI.ShowParagraphFormItem() + Me.cutItem1 = New DevExpress.XtraRichEdit.UI.CutItem() + Me.copyItem1 = New DevExpress.XtraRichEdit.UI.CopyItem() + Me.pasteItem1 = New DevExpress.XtraRichEdit.UI.PasteItem() + Me.quickPrintItem1 = New DevExpress.XtraRichEdit.UI.QuickPrintItem() + Me.printItem1 = New DevExpress.XtraRichEdit.UI.PrintItem() + Me.printPreviewItem1 = New DevExpress.XtraRichEdit.UI.PrintPreviewItem() + Me.undoItem1 = New DevExpress.XtraRichEdit.UI.UndoItem() + Me.redoItem1 = New DevExpress.XtraRichEdit.UI.RedoItem() + Me.findItem1 = New DevExpress.XtraRichEdit.UI.FindItem() + Me.replaceItem1 = New DevExpress.XtraRichEdit.UI.ReplaceItem() + Me.changeStyleItem1 = New DevExpress.XtraRichEdit.UI.ChangeStyleItem() + Me.repositoryItemRichEditStyleEdit1 = New DevExpress.XtraRichEdit.Design.RepositoryItemRichEditStyleEdit() + Me.richEditControl_Renamed = New DevExpress.XtraRichEdit.RichEditControl() + Me.zoomOutItem1 = New DevExpress.XtraRichEdit.UI.ZoomOutItem() + Me.zoomInItem1 = New DevExpress.XtraRichEdit.UI.ZoomInItem() + Me.insertPictureItem1 = New DevExpress.XtraRichEdit.UI.InsertPictureItem() + Me.insertPageBreakItem1 = New DevExpress.XtraRichEdit.UI.InsertPageBreakItem() + Me.InsertMergeFieldItem1 = New DevExpress.XtraRichEdit.UI.InsertMergeFieldItem() + Me.ShowAllFieldCodesItem1 = New DevExpress.XtraRichEdit.UI.ShowAllFieldCodesItem() + Me.ShowAllFieldResultsItem1 = New DevExpress.XtraRichEdit.UI.ShowAllFieldResultsItem() + Me.ToggleViewMergedDataItem1 = New DevExpress.XtraRichEdit.UI.ToggleViewMergedDataItem() + Me.InsertTableItem1 = New DevExpress.XtraRichEdit.UI.InsertTableItem() + Me.InsertBookmarkItem1 = New DevExpress.XtraRichEdit.UI.InsertBookmarkItem() + Me.InsertHyperlinkItem1 = New DevExpress.XtraRichEdit.UI.InsertHyperlinkItem() + Me.EditPageHeaderItem1 = New DevExpress.XtraRichEdit.UI.EditPageHeaderItem() + Me.EditPageFooterItem1 = New DevExpress.XtraRichEdit.UI.EditPageFooterItem() + Me.InsertPageNumberItem1 = New DevExpress.XtraRichEdit.UI.InsertPageNumberItem() + Me.InsertPageCountItem1 = New DevExpress.XtraRichEdit.UI.InsertPageCountItem() + Me.InsertSymbolItem1 = New DevExpress.XtraRichEdit.UI.InsertSymbolItem() + Me.ChangeSectionPageMarginsItem1 = New DevExpress.XtraRichEdit.UI.ChangeSectionPageMarginsItem() + Me.SetNormalSectionPageMarginsItem1 = New DevExpress.XtraRichEdit.UI.SetNormalSectionPageMarginsItem() + Me.SetNarrowSectionPageMarginsItem1 = New DevExpress.XtraRichEdit.UI.SetNarrowSectionPageMarginsItem() + Me.SetModerateSectionPageMarginsItem1 = New DevExpress.XtraRichEdit.UI.SetModerateSectionPageMarginsItem() + Me.SetWideSectionPageMarginsItem1 = New DevExpress.XtraRichEdit.UI.SetWideSectionPageMarginsItem() + Me.ChangeSectionPageOrientationItem1 = New DevExpress.XtraRichEdit.UI.ChangeSectionPageOrientationItem() + Me.SetPortraitPageOrientationItem1 = New DevExpress.XtraRichEdit.UI.SetPortraitPageOrientationItem() + Me.SetLandscapePageOrientationItem1 = New DevExpress.XtraRichEdit.UI.SetLandscapePageOrientationItem() + Me.ChangeSectionColumnsItem1 = New DevExpress.XtraRichEdit.UI.ChangeSectionColumnsItem() + Me.SetSectionOneColumnItem1 = New DevExpress.XtraRichEdit.UI.SetSectionOneColumnItem() + Me.SetSectionTwoColumnsItem1 = New DevExpress.XtraRichEdit.UI.SetSectionTwoColumnsItem() + Me.SetSectionThreeColumnsItem1 = New DevExpress.XtraRichEdit.UI.SetSectionThreeColumnsItem() + Me.SwitchToSimpleViewItem1 = New DevExpress.XtraRichEdit.UI.SwitchToSimpleViewItem() + Me.SwitchToDraftViewItem1 = New DevExpress.XtraRichEdit.UI.SwitchToDraftViewItem() + Me.SwitchToPrintLayoutViewItem1 = New DevExpress.XtraRichEdit.UI.SwitchToPrintLayoutViewItem() + Me.ToggleShowHorizontalRulerItem1 = New DevExpress.XtraRichEdit.UI.ToggleShowHorizontalRulerItem() + Me.ToggleShowVerticalRulerItem1 = New DevExpress.XtraRichEdit.UI.ToggleShowVerticalRulerItem() + Me.GoToPageHeaderItem1 = New DevExpress.XtraRichEdit.UI.GoToPageHeaderItem() + Me.GoToPageFooterItem1 = New DevExpress.XtraRichEdit.UI.GoToPageFooterItem() + Me.GoToNextHeaderFooterItem1 = New DevExpress.XtraRichEdit.UI.GoToNextHeaderFooterItem() + Me.GoToPreviousHeaderFooterItem1 = New DevExpress.XtraRichEdit.UI.GoToPreviousHeaderFooterItem() + Me.ToggleLinkToPreviousItem1 = New DevExpress.XtraRichEdit.UI.ToggleLinkToPreviousItem() + Me.ToggleDifferentFirstPageItem1 = New DevExpress.XtraRichEdit.UI.ToggleDifferentFirstPageItem() + Me.ToggleDifferentOddAndEvenPagesItem1 = New DevExpress.XtraRichEdit.UI.ToggleDifferentOddAndEvenPagesItem() + Me.ClosePageHeaderFooterItem1 = New DevExpress.XtraRichEdit.UI.ClosePageHeaderFooterItem() + Me.ChangeTableCellsShadingItem1 = New DevExpress.XtraRichEdit.UI.ChangeTableCellsShadingItem() + Me.ChangeTableBordersItem1 = New DevExpress.XtraRichEdit.UI.ChangeTableBordersItem() + Me.ToggleTableCellsBottomBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomBorderItem() + Me.ToggleTableCellsTopBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsTopBorderItem() + Me.ToggleTableCellsLeftBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsLeftBorderItem() + Me.ToggleTableCellsRightBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsRightBorderItem() + Me.ResetTableCellsAllBordersItem1 = New DevExpress.XtraRichEdit.UI.ResetTableCellsAllBordersItem() + Me.ToggleTableCellsAllBordersItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsAllBordersItem() + Me.ToggleTableCellsOutsideBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsOutsideBorderItem() + Me.ToggleTableCellsInsideBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideBorderItem() + Me.ToggleTableCellsInsideHorizontalBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideHorizontalBorderItem() + Me.ToggleTableCellsInsideVerticalBorderItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideVerticalBorderItem() + Me.ToggleShowTableGridLinesItem1 = New DevExpress.XtraRichEdit.UI.ToggleShowTableGridLinesItem() + Me.ChangeTableBorderLineStyleItem1 = New DevExpress.XtraRichEdit.UI.ChangeTableBorderLineStyleItem() + Me.RepositoryItemBorderLineStyle1 = New DevExpress.XtraRichEdit.Forms.Design.RepositoryItemBorderLineStyle() + Me.ChangeTableBorderLineWeightItem1 = New DevExpress.XtraRichEdit.UI.ChangeTableBorderLineWeightItem() + Me.RepositoryItemBorderLineWeight1 = New DevExpress.XtraRichEdit.Forms.Design.RepositoryItemBorderLineWeight() + Me.ChangeTableBorderColorItem1 = New DevExpress.XtraRichEdit.UI.ChangeTableBorderColorItem() + Me.SelectTableElementsItem1 = New DevExpress.XtraRichEdit.UI.SelectTableElementsItem() + Me.SelectTableCellItem1 = New DevExpress.XtraRichEdit.UI.SelectTableCellItem() + Me.SelectTableColumnItem1 = New DevExpress.XtraRichEdit.UI.SelectTableColumnItem() + Me.SelectTableRowItem1 = New DevExpress.XtraRichEdit.UI.SelectTableRowItem() + Me.SelectTableItem1 = New DevExpress.XtraRichEdit.UI.SelectTableItem() + Me.DeleteTableElementsItem1 = New DevExpress.XtraRichEdit.UI.DeleteTableElementsItem() + Me.ShowDeleteTableCellsFormItem1 = New DevExpress.XtraRichEdit.UI.ShowDeleteTableCellsFormItem() + Me.DeleteTableColumnsItem1 = New DevExpress.XtraRichEdit.UI.DeleteTableColumnsItem() + Me.DeleteTableRowsItem1 = New DevExpress.XtraRichEdit.UI.DeleteTableRowsItem() + Me.DeleteTableItem1 = New DevExpress.XtraRichEdit.UI.DeleteTableItem() + Me.InsertTableRowAboveItem1 = New DevExpress.XtraRichEdit.UI.InsertTableRowAboveItem() + Me.InsertTableRowBelowItem1 = New DevExpress.XtraRichEdit.UI.InsertTableRowBelowItem() + Me.InsertTableColumnToLeftItem1 = New DevExpress.XtraRichEdit.UI.InsertTableColumnToLeftItem() + Me.InsertTableColumnToRightItem1 = New DevExpress.XtraRichEdit.UI.InsertTableColumnToRightItem() + Me.ShowInsertTableCellsFormItem1 = New DevExpress.XtraRichEdit.UI.ShowInsertTableCellsFormItem() + Me.MergeTableCellsItem1 = New DevExpress.XtraRichEdit.UI.MergeTableCellsItem() + Me.ShowSplitTableCellsForm1 = New DevExpress.XtraRichEdit.UI.ShowSplitTableCellsForm() + Me.SplitTableItem1 = New DevExpress.XtraRichEdit.UI.SplitTableItem() + Me.ToggleTableCellsTopLeftAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsTopLeftAlignmentItem() + Me.ToggleTableCellsTopCenterAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsTopCenterAlignmentItem() + Me.ToggleTableCellsTopRightAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsTopRightAlignmentItem() + Me.ToggleTableCellsMiddleLeftAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleLeftAlignmentItem() + Me.ToggleTableCellsMiddleCenterAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleCenterAlignmentItem() + Me.ToggleTableCellsMiddleRightAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleRightAlignmentItem() + Me.ToggleTableCellsBottomLeftAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomLeftAlignmentItem() + Me.ToggleTableCellsBottomCenterAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomCenterAlignmentItem() + Me.ToggleTableCellsBottomRightAlignmentItem1 = New DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomRightAlignmentItem() + Me.ProtectDocumentItem1 = New DevExpress.XtraRichEdit.UI.ProtectDocumentItem() + Me.ChangeRangeEditingPermissionsItem1 = New DevExpress.XtraRichEdit.UI.ChangeRangeEditingPermissionsItem() + Me.UnprotectDocumentItem1 = New DevExpress.XtraRichEdit.UI.UnprotectDocumentItem() + Me.FileOpenItem2 = New DevExpress.XtraRichEdit.UI.FileOpenItem() + Me.FileSaveItem2 = New DevExpress.XtraRichEdit.UI.FileSaveItem() + Me.FileSaveAsItem1 = New DevExpress.XtraRichEdit.UI.FileSaveAsItem() + Me.HeaderFooterToolsRibbonPageCategory1 = New DevExpress.XtraRichEdit.UI.HeaderFooterToolsRibbonPageCategory() + Me.HeaderFooterToolsDesignRibbonPage1 = New DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignRibbonPage() + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignNavigationRibbonPageGroup() + Me.HeaderFooterToolsDesignOptionsRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignOptionsRibbonPageGroup() + Me.HeaderFooterToolsDesignCloseRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignCloseRibbonPageGroup() + Me.TableToolsRibbonPageCategory1 = New DevExpress.XtraRichEdit.UI.TableToolsRibbonPageCategory() + Me.TableDesignRibbonPage1 = New DevExpress.XtraRichEdit.UI.TableDesignRibbonPage() + Me.TableStylesRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableStylesRibbonPageGroup() + Me.TableDrawBordersRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableDrawBordersRibbonPageGroup() + Me.TableLayoutRibbonPage1 = New DevExpress.XtraRichEdit.UI.TableLayoutRibbonPage() + Me.TableTableRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableTableRibbonPageGroup() + Me.TableRowsAndColumnsRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableRowsAndColumnsRibbonPageGroup() + Me.TableMergeRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableMergeRibbonPageGroup() + Me.TableAlignmentRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TableAlignmentRibbonPageGroup() + Me.FileRibbonPage1 = New DevExpress.XtraRichEdit.UI.FileRibbonPage() + Me.CommonRibbonPageGroup2 = New DevExpress.XtraRichEdit.UI.CommonRibbonPageGroup() + Me.clipboardRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.ClipboardRibbonPageGroup() + Me.zoomRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.ZoomRibbonPageGroup() + Me.editingRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.EditingRibbonPageGroup() + Me.fontRibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.fontRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.FontRibbonPageGroup() + Me.insertRibbonPage1 = New DevExpress.XtraRichEdit.UI.InsertRibbonPage() + Me.illustrationsRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.IllustrationsRibbonPageGroup() + Me.pagesRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.PagesRibbonPageGroup() + Me.stylesRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.StylesRibbonPageGroup() + Me.paragraphRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.ParagraphRibbonPageGroup() + Me.TablesRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.TablesRibbonPageGroup() + Me.LinksRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.LinksRibbonPageGroup() + Me.HeaderFooterRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.HeaderFooterRibbonPageGroup() + Me.SymbolsRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.SymbolsRibbonPageGroup() + Me.MailingsRibbonPage1 = New DevExpress.XtraRichEdit.UI.MailingsRibbonPage() + Me.MailMergeRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.MailMergeRibbonPageGroup() + Me.PageLayoutRibbonPage1 = New DevExpress.XtraRichEdit.UI.PageLayoutRibbonPage() + Me.PageSetupRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.PageSetupRibbonPageGroup() + Me.ViewRibbonPage1 = New DevExpress.XtraRichEdit.UI.ViewRibbonPage() + Me.DocumentViewsRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.DocumentViewsRibbonPageGroup() + Me.ShowRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.ShowRibbonPageGroup() + Me.ReviewRibbonPage1 = New DevExpress.XtraRichEdit.UI.ReviewRibbonPage() + Me.DocumentProtectionRibbonPageGroup1 = New DevExpress.XtraRichEdit.UI.DocumentProtectionRibbonPageGroup() + Me.repositoryItemFontEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemFontEdit() + Me.repositoryItemRichEditFontSizeEdit1 = New DevExpress.XtraRichEdit.Design.RepositoryItemRichEditFontSizeEdit() + Me.fileOpenItem1 = New DevExpress.XtraRichEdit.UI.FileOpenItem() + Me.fileSaveItem1 = New DevExpress.XtraRichEdit.UI.FileSaveItem() + Me.richEditBarController1 = New DevExpress.XtraRichEdit.UI.RichEditBarController() + CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.repositoryItemRichEditStyleEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemBorderLineStyle1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemBorderLineWeight1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.repositoryItemFontEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.repositoryItemRichEditFontSizeEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.richEditBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'ribbonControl1 + ' + Me.ribbonControl1.ApplicationButtonText = Nothing + Me.ribbonControl1.ExpandCollapseItem.Id = 0 + Me.ribbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonControl1.ExpandCollapseItem, Me.changeFontColorItem1, Me.changeFontBackColorItem1, Me.toggleFontBoldItem1, Me.toggleFontItalicItem1, Me.toggleFontUnderlineItem1, Me.toggleFontDoubleUnderlineItem1, Me.toggleFontStrikeoutItem1, Me.toggleFontDoubleStrikeoutItem1, Me.toggleFontSuperscriptItem1, Me.toggleFontSubscriptItem1, Me.fontSizeIncreaseItem1, Me.fontSizeDecreaseItem1, Me.showFontFormItem1, Me.toggleParagraphAlignmentLeftItem1, Me.toggleParagraphAlignmentCenterItem1, Me.toggleParagraphAlignmentRightItem1, Me.toggleParagraphAlignmentJustifyItem1, Me.toggleNumberingListItem1, Me.toggleBulletedListItem1, Me.toggleMultiLevelListItem1, Me.decreaseIndentItem1, Me.increaseIndentItem1, Me.toggleShowWhitespaceItem1, Me.showParagraphFormItem1, Me.cutItem1, Me.copyItem1, Me.pasteItem1, Me.quickPrintItem1, Me.printItem1, Me.printPreviewItem1, Me.undoItem1, Me.redoItem1, Me.findItem1, Me.replaceItem1, Me.changeStyleItem1, Me.zoomOutItem1, Me.zoomInItem1, Me.insertPictureItem1, Me.insertPageBreakItem1, Me.InsertMergeFieldItem1, Me.ShowAllFieldCodesItem1, Me.ShowAllFieldResultsItem1, Me.ToggleViewMergedDataItem1, Me.InsertTableItem1, Me.InsertBookmarkItem1, Me.InsertHyperlinkItem1, Me.EditPageHeaderItem1, Me.EditPageFooterItem1, Me.InsertPageNumberItem1, Me.InsertPageCountItem1, Me.InsertSymbolItem1, Me.ChangeSectionPageMarginsItem1, Me.SetNormalSectionPageMarginsItem1, Me.SetNarrowSectionPageMarginsItem1, Me.SetModerateSectionPageMarginsItem1, Me.SetWideSectionPageMarginsItem1, Me.ChangeSectionPageOrientationItem1, Me.SetPortraitPageOrientationItem1, Me.SetLandscapePageOrientationItem1, Me.ChangeSectionColumnsItem1, Me.SetSectionOneColumnItem1, Me.SetSectionTwoColumnsItem1, Me.SetSectionThreeColumnsItem1, Me.SwitchToSimpleViewItem1, Me.SwitchToDraftViewItem1, Me.SwitchToPrintLayoutViewItem1, Me.ToggleShowHorizontalRulerItem1, Me.ToggleShowVerticalRulerItem1, Me.GoToPageHeaderItem1, Me.GoToPageFooterItem1, Me.GoToNextHeaderFooterItem1, Me.GoToPreviousHeaderFooterItem1, Me.ToggleLinkToPreviousItem1, Me.ToggleDifferentFirstPageItem1, Me.ToggleDifferentOddAndEvenPagesItem1, Me.ClosePageHeaderFooterItem1, Me.ChangeTableCellsShadingItem1, Me.ChangeTableBordersItem1, Me.ToggleTableCellsBottomBorderItem1, Me.ToggleTableCellsTopBorderItem1, Me.ToggleTableCellsLeftBorderItem1, Me.ToggleTableCellsRightBorderItem1, Me.ResetTableCellsAllBordersItem1, Me.ToggleTableCellsAllBordersItem1, Me.ToggleTableCellsOutsideBorderItem1, Me.ToggleTableCellsInsideBorderItem1, Me.ToggleTableCellsInsideHorizontalBorderItem1, Me.ToggleTableCellsInsideVerticalBorderItem1, Me.ToggleShowTableGridLinesItem1, Me.ChangeTableBorderLineStyleItem1, Me.ChangeTableBorderLineWeightItem1, Me.ChangeTableBorderColorItem1, Me.SelectTableElementsItem1, Me.SelectTableCellItem1, Me.SelectTableColumnItem1, Me.SelectTableRowItem1, Me.SelectTableItem1, Me.DeleteTableElementsItem1, Me.ShowDeleteTableCellsFormItem1, Me.DeleteTableColumnsItem1, Me.DeleteTableRowsItem1, Me.DeleteTableItem1, Me.InsertTableRowAboveItem1, Me.InsertTableRowBelowItem1, Me.InsertTableColumnToLeftItem1, Me.InsertTableColumnToRightItem1, Me.ShowInsertTableCellsFormItem1, Me.MergeTableCellsItem1, Me.ShowSplitTableCellsForm1, Me.SplitTableItem1, Me.ToggleTableCellsTopLeftAlignmentItem1, Me.ToggleTableCellsTopCenterAlignmentItem1, Me.ToggleTableCellsTopRightAlignmentItem1, Me.ToggleTableCellsMiddleLeftAlignmentItem1, Me.ToggleTableCellsMiddleCenterAlignmentItem1, Me.ToggleTableCellsMiddleRightAlignmentItem1, Me.ToggleTableCellsBottomLeftAlignmentItem1, Me.ToggleTableCellsBottomCenterAlignmentItem1, Me.ToggleTableCellsBottomRightAlignmentItem1, Me.ProtectDocumentItem1, Me.ChangeRangeEditingPermissionsItem1, Me.UnprotectDocumentItem1, Me.FileOpenItem2, Me.FileSaveItem2, Me.FileSaveAsItem1}) + Me.ribbonControl1.Location = New System.Drawing.Point(0, 0) + Me.ribbonControl1.MaxItemId = 133 + Me.ribbonControl1.Name = "ribbonControl1" + Me.ribbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.HeaderFooterToolsRibbonPageCategory1, Me.TableToolsRibbonPageCategory1}) + Me.ribbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.FileRibbonPage1, Me.fontRibbonPage1, Me.insertRibbonPage1, Me.MailingsRibbonPage1, Me.PageLayoutRibbonPage1, Me.ViewRibbonPage1, Me.ReviewRibbonPage1}) + Me.ribbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.repositoryItemFontEdit1, Me.repositoryItemRichEditFontSizeEdit1, Me.repositoryItemRichEditStyleEdit1, Me.RepositoryItemBorderLineStyle1, Me.RepositoryItemBorderLineWeight1}) + Me.ribbonControl1.ShowExpandCollapseButton = DevExpress.Utils.DefaultBoolean.[True] + Me.ribbonControl1.ShowFullScreenButton = DevExpress.Utils.DefaultBoolean.[True] + Me.ribbonControl1.Size = New System.Drawing.Size(1226, 142) + ' + 'changeFontColorItem1 + ' + Me.changeFontColorItem1.Glyph = CType(resources.GetObject("changeFontColorItem1.Glyph"), System.Drawing.Image) + Me.changeFontColorItem1.Id = 2 + Me.changeFontColorItem1.LargeGlyph = CType(resources.GetObject("changeFontColorItem1.LargeGlyph"), System.Drawing.Image) + Me.changeFontColorItem1.Name = "changeFontColorItem1" + ' + 'changeFontBackColorItem1 + ' + Me.changeFontBackColorItem1.Glyph = CType(resources.GetObject("changeFontBackColorItem1.Glyph"), System.Drawing.Image) + Me.changeFontBackColorItem1.Id = 3 + Me.changeFontBackColorItem1.LargeGlyph = CType(resources.GetObject("changeFontBackColorItem1.LargeGlyph"), System.Drawing.Image) + Me.changeFontBackColorItem1.Name = "changeFontBackColorItem1" + ' + 'toggleFontBoldItem1 + ' + Me.toggleFontBoldItem1.Glyph = CType(resources.GetObject("toggleFontBoldItem1.Glyph"), System.Drawing.Image) + Me.toggleFontBoldItem1.Id = 4 + Me.toggleFontBoldItem1.LargeGlyph = CType(resources.GetObject("toggleFontBoldItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontBoldItem1.Name = "toggleFontBoldItem1" + ' + 'toggleFontItalicItem1 + ' + Me.toggleFontItalicItem1.Glyph = CType(resources.GetObject("toggleFontItalicItem1.Glyph"), System.Drawing.Image) + Me.toggleFontItalicItem1.Id = 5 + Me.toggleFontItalicItem1.LargeGlyph = CType(resources.GetObject("toggleFontItalicItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontItalicItem1.Name = "toggleFontItalicItem1" + ' + 'toggleFontUnderlineItem1 + ' + Me.toggleFontUnderlineItem1.Glyph = CType(resources.GetObject("toggleFontUnderlineItem1.Glyph"), System.Drawing.Image) + Me.toggleFontUnderlineItem1.Id = 6 + Me.toggleFontUnderlineItem1.LargeGlyph = CType(resources.GetObject("toggleFontUnderlineItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontUnderlineItem1.Name = "toggleFontUnderlineItem1" + ' + 'toggleFontDoubleUnderlineItem1 + ' + Me.toggleFontDoubleUnderlineItem1.Glyph = CType(resources.GetObject("toggleFontDoubleUnderlineItem1.Glyph"), System.Drawing.Image) + Me.toggleFontDoubleUnderlineItem1.Id = 7 + Me.toggleFontDoubleUnderlineItem1.LargeGlyph = CType(resources.GetObject("toggleFontDoubleUnderlineItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontDoubleUnderlineItem1.Name = "toggleFontDoubleUnderlineItem1" + ' + 'toggleFontStrikeoutItem1 + ' + Me.toggleFontStrikeoutItem1.Glyph = CType(resources.GetObject("toggleFontStrikeoutItem1.Glyph"), System.Drawing.Image) + Me.toggleFontStrikeoutItem1.Id = 8 + Me.toggleFontStrikeoutItem1.LargeGlyph = CType(resources.GetObject("toggleFontStrikeoutItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontStrikeoutItem1.Name = "toggleFontStrikeoutItem1" + ' + 'toggleFontDoubleStrikeoutItem1 + ' + Me.toggleFontDoubleStrikeoutItem1.Glyph = CType(resources.GetObject("toggleFontDoubleStrikeoutItem1.Glyph"), System.Drawing.Image) + Me.toggleFontDoubleStrikeoutItem1.Id = 9 + Me.toggleFontDoubleStrikeoutItem1.LargeGlyph = CType(resources.GetObject("toggleFontDoubleStrikeoutItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontDoubleStrikeoutItem1.Name = "toggleFontDoubleStrikeoutItem1" + ' + 'toggleFontSuperscriptItem1 + ' + Me.toggleFontSuperscriptItem1.Glyph = CType(resources.GetObject("toggleFontSuperscriptItem1.Glyph"), System.Drawing.Image) + Me.toggleFontSuperscriptItem1.Id = 10 + Me.toggleFontSuperscriptItem1.LargeGlyph = CType(resources.GetObject("toggleFontSuperscriptItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontSuperscriptItem1.Name = "toggleFontSuperscriptItem1" + ' + 'toggleFontSubscriptItem1 + ' + Me.toggleFontSubscriptItem1.Glyph = CType(resources.GetObject("toggleFontSubscriptItem1.Glyph"), System.Drawing.Image) + Me.toggleFontSubscriptItem1.Id = 11 + Me.toggleFontSubscriptItem1.LargeGlyph = CType(resources.GetObject("toggleFontSubscriptItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleFontSubscriptItem1.Name = "toggleFontSubscriptItem1" + ' + 'fontSizeIncreaseItem1 + ' + Me.fontSizeIncreaseItem1.Glyph = CType(resources.GetObject("fontSizeIncreaseItem1.Glyph"), System.Drawing.Image) + Me.fontSizeIncreaseItem1.Id = 12 + Me.fontSizeIncreaseItem1.LargeGlyph = CType(resources.GetObject("fontSizeIncreaseItem1.LargeGlyph"), System.Drawing.Image) + Me.fontSizeIncreaseItem1.Name = "fontSizeIncreaseItem1" + ' + 'fontSizeDecreaseItem1 + ' + Me.fontSizeDecreaseItem1.Glyph = CType(resources.GetObject("fontSizeDecreaseItem1.Glyph"), System.Drawing.Image) + Me.fontSizeDecreaseItem1.Id = 13 + Me.fontSizeDecreaseItem1.LargeGlyph = CType(resources.GetObject("fontSizeDecreaseItem1.LargeGlyph"), System.Drawing.Image) + Me.fontSizeDecreaseItem1.Name = "fontSizeDecreaseItem1" + ' + 'showFontFormItem1 + ' + Me.showFontFormItem1.Glyph = CType(resources.GetObject("showFontFormItem1.Glyph"), System.Drawing.Image) + Me.showFontFormItem1.Id = 14 + Me.showFontFormItem1.LargeGlyph = CType(resources.GetObject("showFontFormItem1.LargeGlyph"), System.Drawing.Image) + Me.showFontFormItem1.Name = "showFontFormItem1" + ' + 'toggleParagraphAlignmentLeftItem1 + ' + Me.toggleParagraphAlignmentLeftItem1.Glyph = CType(resources.GetObject("toggleParagraphAlignmentLeftItem1.Glyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentLeftItem1.Id = 15 + Me.toggleParagraphAlignmentLeftItem1.LargeGlyph = CType(resources.GetObject("toggleParagraphAlignmentLeftItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentLeftItem1.Name = "toggleParagraphAlignmentLeftItem1" + ' + 'toggleParagraphAlignmentCenterItem1 + ' + Me.toggleParagraphAlignmentCenterItem1.Glyph = CType(resources.GetObject("toggleParagraphAlignmentCenterItem1.Glyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentCenterItem1.Id = 16 + Me.toggleParagraphAlignmentCenterItem1.LargeGlyph = CType(resources.GetObject("toggleParagraphAlignmentCenterItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentCenterItem1.Name = "toggleParagraphAlignmentCenterItem1" + ' + 'toggleParagraphAlignmentRightItem1 + ' + Me.toggleParagraphAlignmentRightItem1.Glyph = CType(resources.GetObject("toggleParagraphAlignmentRightItem1.Glyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentRightItem1.Id = 17 + Me.toggleParagraphAlignmentRightItem1.LargeGlyph = CType(resources.GetObject("toggleParagraphAlignmentRightItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentRightItem1.Name = "toggleParagraphAlignmentRightItem1" + ' + 'toggleParagraphAlignmentJustifyItem1 + ' + Me.toggleParagraphAlignmentJustifyItem1.Glyph = CType(resources.GetObject("toggleParagraphAlignmentJustifyItem1.Glyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentJustifyItem1.Id = 18 + Me.toggleParagraphAlignmentJustifyItem1.LargeGlyph = CType(resources.GetObject("toggleParagraphAlignmentJustifyItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleParagraphAlignmentJustifyItem1.Name = "toggleParagraphAlignmentJustifyItem1" + ' + 'toggleNumberingListItem1 + ' + Me.toggleNumberingListItem1.Glyph = CType(resources.GetObject("toggleNumberingListItem1.Glyph"), System.Drawing.Image) + Me.toggleNumberingListItem1.Id = 19 + Me.toggleNumberingListItem1.LargeGlyph = CType(resources.GetObject("toggleNumberingListItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleNumberingListItem1.Name = "toggleNumberingListItem1" + ' + 'toggleBulletedListItem1 + ' + Me.toggleBulletedListItem1.Glyph = CType(resources.GetObject("toggleBulletedListItem1.Glyph"), System.Drawing.Image) + Me.toggleBulletedListItem1.Id = 20 + Me.toggleBulletedListItem1.LargeGlyph = CType(resources.GetObject("toggleBulletedListItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleBulletedListItem1.Name = "toggleBulletedListItem1" + ' + 'toggleMultiLevelListItem1 + ' + Me.toggleMultiLevelListItem1.Glyph = CType(resources.GetObject("toggleMultiLevelListItem1.Glyph"), System.Drawing.Image) + Me.toggleMultiLevelListItem1.Id = 21 + Me.toggleMultiLevelListItem1.LargeGlyph = CType(resources.GetObject("toggleMultiLevelListItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleMultiLevelListItem1.Name = "toggleMultiLevelListItem1" + ' + 'decreaseIndentItem1 + ' + Me.decreaseIndentItem1.Glyph = CType(resources.GetObject("decreaseIndentItem1.Glyph"), System.Drawing.Image) + Me.decreaseIndentItem1.Id = 22 + Me.decreaseIndentItem1.LargeGlyph = CType(resources.GetObject("decreaseIndentItem1.LargeGlyph"), System.Drawing.Image) + Me.decreaseIndentItem1.Name = "decreaseIndentItem1" + ' + 'increaseIndentItem1 + ' + Me.increaseIndentItem1.Glyph = CType(resources.GetObject("increaseIndentItem1.Glyph"), System.Drawing.Image) + Me.increaseIndentItem1.Id = 23 + Me.increaseIndentItem1.LargeGlyph = CType(resources.GetObject("increaseIndentItem1.LargeGlyph"), System.Drawing.Image) + Me.increaseIndentItem1.Name = "increaseIndentItem1" + ' + 'toggleShowWhitespaceItem1 + ' + Me.toggleShowWhitespaceItem1.Glyph = CType(resources.GetObject("toggleShowWhitespaceItem1.Glyph"), System.Drawing.Image) + Me.toggleShowWhitespaceItem1.Id = 24 + Me.toggleShowWhitespaceItem1.LargeGlyph = CType(resources.GetObject("toggleShowWhitespaceItem1.LargeGlyph"), System.Drawing.Image) + Me.toggleShowWhitespaceItem1.Name = "toggleShowWhitespaceItem1" + ' + 'showParagraphFormItem1 + ' + Me.showParagraphFormItem1.Glyph = CType(resources.GetObject("showParagraphFormItem1.Glyph"), System.Drawing.Image) + Me.showParagraphFormItem1.Id = 25 + Me.showParagraphFormItem1.LargeGlyph = CType(resources.GetObject("showParagraphFormItem1.LargeGlyph"), System.Drawing.Image) + Me.showParagraphFormItem1.Name = "showParagraphFormItem1" + ' + 'cutItem1 + ' + Me.cutItem1.Glyph = CType(resources.GetObject("cutItem1.Glyph"), System.Drawing.Image) + Me.cutItem1.Id = 26 + Me.cutItem1.LargeGlyph = CType(resources.GetObject("cutItem1.LargeGlyph"), System.Drawing.Image) + Me.cutItem1.Name = "cutItem1" + ' + 'copyItem1 + ' + Me.copyItem1.Glyph = CType(resources.GetObject("copyItem1.Glyph"), System.Drawing.Image) + Me.copyItem1.Id = 27 + Me.copyItem1.LargeGlyph = CType(resources.GetObject("copyItem1.LargeGlyph"), System.Drawing.Image) + Me.copyItem1.Name = "copyItem1" + ' + 'pasteItem1 + ' + Me.pasteItem1.Glyph = CType(resources.GetObject("pasteItem1.Glyph"), System.Drawing.Image) + Me.pasteItem1.Id = 28 + Me.pasteItem1.LargeGlyph = CType(resources.GetObject("pasteItem1.LargeGlyph"), System.Drawing.Image) + Me.pasteItem1.Name = "pasteItem1" + ' + 'quickPrintItem1 + ' + Me.quickPrintItem1.Glyph = CType(resources.GetObject("quickPrintItem1.Glyph"), System.Drawing.Image) + Me.quickPrintItem1.Id = 33 + Me.quickPrintItem1.LargeGlyph = CType(resources.GetObject("quickPrintItem1.LargeGlyph"), System.Drawing.Image) + Me.quickPrintItem1.Name = "quickPrintItem1" + ' + 'printItem1 + ' + Me.printItem1.Glyph = CType(resources.GetObject("printItem1.Glyph"), System.Drawing.Image) + Me.printItem1.Id = 34 + Me.printItem1.LargeGlyph = CType(resources.GetObject("printItem1.LargeGlyph"), System.Drawing.Image) + Me.printItem1.Name = "printItem1" + ' + 'printPreviewItem1 + ' + Me.printPreviewItem1.Glyph = CType(resources.GetObject("printPreviewItem1.Glyph"), System.Drawing.Image) + Me.printPreviewItem1.Id = 35 + Me.printPreviewItem1.LargeGlyph = CType(resources.GetObject("printPreviewItem1.LargeGlyph"), System.Drawing.Image) + Me.printPreviewItem1.Name = "printPreviewItem1" + ' + 'undoItem1 + ' + Me.undoItem1.Glyph = CType(resources.GetObject("undoItem1.Glyph"), System.Drawing.Image) + Me.undoItem1.Id = 36 + Me.undoItem1.LargeGlyph = CType(resources.GetObject("undoItem1.LargeGlyph"), System.Drawing.Image) + Me.undoItem1.Name = "undoItem1" + ' + 'redoItem1 + ' + Me.redoItem1.Glyph = CType(resources.GetObject("redoItem1.Glyph"), System.Drawing.Image) + Me.redoItem1.Id = 37 + Me.redoItem1.LargeGlyph = CType(resources.GetObject("redoItem1.LargeGlyph"), System.Drawing.Image) + Me.redoItem1.Name = "redoItem1" + ' + 'findItem1 + ' + Me.findItem1.Glyph = CType(resources.GetObject("findItem1.Glyph"), System.Drawing.Image) + Me.findItem1.Id = 38 + Me.findItem1.LargeGlyph = CType(resources.GetObject("findItem1.LargeGlyph"), System.Drawing.Image) + Me.findItem1.Name = "findItem1" + ' + 'replaceItem1 + ' + Me.replaceItem1.Glyph = CType(resources.GetObject("replaceItem1.Glyph"), System.Drawing.Image) + Me.replaceItem1.Id = 39 + Me.replaceItem1.LargeGlyph = CType(resources.GetObject("replaceItem1.LargeGlyph"), System.Drawing.Image) + Me.replaceItem1.Name = "replaceItem1" + ' + 'changeStyleItem1 + ' + Me.changeStyleItem1.Edit = Me.repositoryItemRichEditStyleEdit1 + Me.changeStyleItem1.Id = 40 + Me.changeStyleItem1.Name = "changeStyleItem1" + Me.changeStyleItem1.Width = 150 + ' + 'repositoryItemRichEditStyleEdit1 + ' + Me.repositoryItemRichEditStyleEdit1.AutoHeight = False + Me.repositoryItemRichEditStyleEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.repositoryItemRichEditStyleEdit1.Control = Me.richEditControl_Renamed + Me.repositoryItemRichEditStyleEdit1.Name = "repositoryItemRichEditStyleEdit1" + ' + 'richEditControl_Renamed + ' + Me.richEditControl_Renamed.Dock = System.Windows.Forms.DockStyle.Fill + Me.richEditControl_Renamed.Location = New System.Drawing.Point(0, 142) + Me.richEditControl_Renamed.MenuManager = Me.ribbonControl1 + Me.richEditControl_Renamed.Name = "richEditControl_Renamed" + Me.richEditControl_Renamed.Options.Fields.UseCurrentCultureDateTimeFormat = False + Me.richEditControl_Renamed.Options.MailMerge.KeepLastParagraph = False + Me.richEditControl_Renamed.Options.MailMerge.ViewMergedData = True + Me.richEditControl_Renamed.Size = New System.Drawing.Size(1226, 532) + Me.richEditControl_Renamed.TabIndex = 1 + ' + 'zoomOutItem1 + ' + Me.zoomOutItem1.Glyph = CType(resources.GetObject("zoomOutItem1.Glyph"), System.Drawing.Image) + Me.zoomOutItem1.Id = 41 + Me.zoomOutItem1.LargeGlyph = CType(resources.GetObject("zoomOutItem1.LargeGlyph"), System.Drawing.Image) + Me.zoomOutItem1.Name = "zoomOutItem1" + ' + 'zoomInItem1 + ' + Me.zoomInItem1.Glyph = CType(resources.GetObject("zoomInItem1.Glyph"), System.Drawing.Image) + Me.zoomInItem1.Id = 42 + Me.zoomInItem1.LargeGlyph = CType(resources.GetObject("zoomInItem1.LargeGlyph"), System.Drawing.Image) + Me.zoomInItem1.Name = "zoomInItem1" + ' + 'insertPictureItem1 + ' + Me.insertPictureItem1.Glyph = CType(resources.GetObject("insertPictureItem1.Glyph"), System.Drawing.Image) + Me.insertPictureItem1.Id = 43 + Me.insertPictureItem1.LargeGlyph = CType(resources.GetObject("insertPictureItem1.LargeGlyph"), System.Drawing.Image) + Me.insertPictureItem1.Name = "insertPictureItem1" + ' + 'insertPageBreakItem1 + ' + Me.insertPageBreakItem1.Glyph = CType(resources.GetObject("insertPageBreakItem1.Glyph"), System.Drawing.Image) + Me.insertPageBreakItem1.Id = 44 + Me.insertPageBreakItem1.LargeGlyph = CType(resources.GetObject("insertPageBreakItem1.LargeGlyph"), System.Drawing.Image) + Me.insertPageBreakItem1.Name = "insertPageBreakItem1" + ' + 'InsertMergeFieldItem1 + ' + Me.InsertMergeFieldItem1.Glyph = CType(resources.GetObject("InsertMergeFieldItem1.Glyph"), System.Drawing.Image) + Me.InsertMergeFieldItem1.Id = 45 + Me.InsertMergeFieldItem1.LargeGlyph = CType(resources.GetObject("InsertMergeFieldItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertMergeFieldItem1.Name = "InsertMergeFieldItem1" + ' + 'ShowAllFieldCodesItem1 + ' + Me.ShowAllFieldCodesItem1.Glyph = CType(resources.GetObject("ShowAllFieldCodesItem1.Glyph"), System.Drawing.Image) + Me.ShowAllFieldCodesItem1.Id = 46 + Me.ShowAllFieldCodesItem1.LargeGlyph = CType(resources.GetObject("ShowAllFieldCodesItem1.LargeGlyph"), System.Drawing.Image) + Me.ShowAllFieldCodesItem1.Name = "ShowAllFieldCodesItem1" + ' + 'ShowAllFieldResultsItem1 + ' + Me.ShowAllFieldResultsItem1.Glyph = CType(resources.GetObject("ShowAllFieldResultsItem1.Glyph"), System.Drawing.Image) + Me.ShowAllFieldResultsItem1.Id = 47 + Me.ShowAllFieldResultsItem1.LargeGlyph = CType(resources.GetObject("ShowAllFieldResultsItem1.LargeGlyph"), System.Drawing.Image) + Me.ShowAllFieldResultsItem1.Name = "ShowAllFieldResultsItem1" + ' + 'ToggleViewMergedDataItem1 + ' + Me.ToggleViewMergedDataItem1.Glyph = CType(resources.GetObject("ToggleViewMergedDataItem1.Glyph"), System.Drawing.Image) + Me.ToggleViewMergedDataItem1.Id = 48 + Me.ToggleViewMergedDataItem1.LargeGlyph = CType(resources.GetObject("ToggleViewMergedDataItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleViewMergedDataItem1.Name = "ToggleViewMergedDataItem1" + ' + 'InsertTableItem1 + ' + Me.InsertTableItem1.Glyph = CType(resources.GetObject("InsertTableItem1.Glyph"), System.Drawing.Image) + Me.InsertTableItem1.Id = 49 + Me.InsertTableItem1.LargeGlyph = CType(resources.GetObject("InsertTableItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertTableItem1.Name = "InsertTableItem1" + ' + 'InsertBookmarkItem1 + ' + Me.InsertBookmarkItem1.Glyph = CType(resources.GetObject("InsertBookmarkItem1.Glyph"), System.Drawing.Image) + Me.InsertBookmarkItem1.Id = 50 + Me.InsertBookmarkItem1.LargeGlyph = CType(resources.GetObject("InsertBookmarkItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertBookmarkItem1.Name = "InsertBookmarkItem1" + ' + 'InsertHyperlinkItem1 + ' + Me.InsertHyperlinkItem1.Glyph = CType(resources.GetObject("InsertHyperlinkItem1.Glyph"), System.Drawing.Image) + Me.InsertHyperlinkItem1.Id = 51 + Me.InsertHyperlinkItem1.LargeGlyph = CType(resources.GetObject("InsertHyperlinkItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertHyperlinkItem1.Name = "InsertHyperlinkItem1" + ' + 'EditPageHeaderItem1 + ' + Me.EditPageHeaderItem1.Glyph = CType(resources.GetObject("EditPageHeaderItem1.Glyph"), System.Drawing.Image) + Me.EditPageHeaderItem1.Id = 52 + Me.EditPageHeaderItem1.LargeGlyph = CType(resources.GetObject("EditPageHeaderItem1.LargeGlyph"), System.Drawing.Image) + Me.EditPageHeaderItem1.Name = "EditPageHeaderItem1" + ' + 'EditPageFooterItem1 + ' + Me.EditPageFooterItem1.Glyph = CType(resources.GetObject("EditPageFooterItem1.Glyph"), System.Drawing.Image) + Me.EditPageFooterItem1.Id = 53 + Me.EditPageFooterItem1.LargeGlyph = CType(resources.GetObject("EditPageFooterItem1.LargeGlyph"), System.Drawing.Image) + Me.EditPageFooterItem1.Name = "EditPageFooterItem1" + ' + 'InsertPageNumberItem1 + ' + Me.InsertPageNumberItem1.Glyph = CType(resources.GetObject("InsertPageNumberItem1.Glyph"), System.Drawing.Image) + Me.InsertPageNumberItem1.Id = 54 + Me.InsertPageNumberItem1.LargeGlyph = CType(resources.GetObject("InsertPageNumberItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertPageNumberItem1.Name = "InsertPageNumberItem1" + ' + 'InsertPageCountItem1 + ' + Me.InsertPageCountItem1.Glyph = CType(resources.GetObject("InsertPageCountItem1.Glyph"), System.Drawing.Image) + Me.InsertPageCountItem1.Id = 55 + Me.InsertPageCountItem1.LargeGlyph = CType(resources.GetObject("InsertPageCountItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertPageCountItem1.Name = "InsertPageCountItem1" + ' + 'InsertSymbolItem1 + ' + Me.InsertSymbolItem1.Glyph = CType(resources.GetObject("InsertSymbolItem1.Glyph"), System.Drawing.Image) + Me.InsertSymbolItem1.Id = 56 + Me.InsertSymbolItem1.LargeGlyph = CType(resources.GetObject("InsertSymbolItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertSymbolItem1.Name = "InsertSymbolItem1" + ' + 'ChangeSectionPageMarginsItem1 + ' + Me.ChangeSectionPageMarginsItem1.Glyph = CType(resources.GetObject("ChangeSectionPageMarginsItem1.Glyph"), System.Drawing.Image) + Me.ChangeSectionPageMarginsItem1.Id = 57 + Me.ChangeSectionPageMarginsItem1.LargeGlyph = CType(resources.GetObject("ChangeSectionPageMarginsItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeSectionPageMarginsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SetNormalSectionPageMarginsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetNarrowSectionPageMarginsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetModerateSectionPageMarginsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetWideSectionPageMarginsItem1)}) + Me.ChangeSectionPageMarginsItem1.Name = "ChangeSectionPageMarginsItem1" + ' + 'SetNormalSectionPageMarginsItem1 + ' + Me.SetNormalSectionPageMarginsItem1.Glyph = CType(resources.GetObject("SetNormalSectionPageMarginsItem1.Glyph"), System.Drawing.Image) + Me.SetNormalSectionPageMarginsItem1.Id = 58 + Me.SetNormalSectionPageMarginsItem1.LargeGlyph = CType(resources.GetObject("SetNormalSectionPageMarginsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetNormalSectionPageMarginsItem1.Name = "SetNormalSectionPageMarginsItem1" + ' + 'SetNarrowSectionPageMarginsItem1 + ' + Me.SetNarrowSectionPageMarginsItem1.Glyph = CType(resources.GetObject("SetNarrowSectionPageMarginsItem1.Glyph"), System.Drawing.Image) + Me.SetNarrowSectionPageMarginsItem1.Id = 59 + Me.SetNarrowSectionPageMarginsItem1.LargeGlyph = CType(resources.GetObject("SetNarrowSectionPageMarginsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetNarrowSectionPageMarginsItem1.Name = "SetNarrowSectionPageMarginsItem1" + ' + 'SetModerateSectionPageMarginsItem1 + ' + Me.SetModerateSectionPageMarginsItem1.Glyph = CType(resources.GetObject("SetModerateSectionPageMarginsItem1.Glyph"), System.Drawing.Image) + Me.SetModerateSectionPageMarginsItem1.Id = 60 + Me.SetModerateSectionPageMarginsItem1.LargeGlyph = CType(resources.GetObject("SetModerateSectionPageMarginsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetModerateSectionPageMarginsItem1.Name = "SetModerateSectionPageMarginsItem1" + ' + 'SetWideSectionPageMarginsItem1 + ' + Me.SetWideSectionPageMarginsItem1.Glyph = CType(resources.GetObject("SetWideSectionPageMarginsItem1.Glyph"), System.Drawing.Image) + Me.SetWideSectionPageMarginsItem1.Id = 61 + Me.SetWideSectionPageMarginsItem1.LargeGlyph = CType(resources.GetObject("SetWideSectionPageMarginsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetWideSectionPageMarginsItem1.Name = "SetWideSectionPageMarginsItem1" + ' + 'ChangeSectionPageOrientationItem1 + ' + Me.ChangeSectionPageOrientationItem1.Glyph = CType(resources.GetObject("ChangeSectionPageOrientationItem1.Glyph"), System.Drawing.Image) + Me.ChangeSectionPageOrientationItem1.Id = 62 + Me.ChangeSectionPageOrientationItem1.LargeGlyph = CType(resources.GetObject("ChangeSectionPageOrientationItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeSectionPageOrientationItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SetPortraitPageOrientationItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetLandscapePageOrientationItem1)}) + Me.ChangeSectionPageOrientationItem1.Name = "ChangeSectionPageOrientationItem1" + ' + 'SetPortraitPageOrientationItem1 + ' + Me.SetPortraitPageOrientationItem1.Id = 63 + Me.SetPortraitPageOrientationItem1.Name = "SetPortraitPageOrientationItem1" + ' + 'SetLandscapePageOrientationItem1 + ' + Me.SetLandscapePageOrientationItem1.Id = 64 + Me.SetLandscapePageOrientationItem1.Name = "SetLandscapePageOrientationItem1" + ' + 'ChangeSectionColumnsItem1 + ' + Me.ChangeSectionColumnsItem1.Glyph = CType(resources.GetObject("ChangeSectionColumnsItem1.Glyph"), System.Drawing.Image) + Me.ChangeSectionColumnsItem1.Id = 65 + Me.ChangeSectionColumnsItem1.LargeGlyph = CType(resources.GetObject("ChangeSectionColumnsItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeSectionColumnsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SetSectionOneColumnItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetSectionTwoColumnsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SetSectionThreeColumnsItem1)}) + Me.ChangeSectionColumnsItem1.Name = "ChangeSectionColumnsItem1" + ' + 'SetSectionOneColumnItem1 + ' + Me.SetSectionOneColumnItem1.Glyph = CType(resources.GetObject("SetSectionOneColumnItem1.Glyph"), System.Drawing.Image) + Me.SetSectionOneColumnItem1.Id = 66 + Me.SetSectionOneColumnItem1.LargeGlyph = CType(resources.GetObject("SetSectionOneColumnItem1.LargeGlyph"), System.Drawing.Image) + Me.SetSectionOneColumnItem1.Name = "SetSectionOneColumnItem1" + ' + 'SetSectionTwoColumnsItem1 + ' + Me.SetSectionTwoColumnsItem1.Glyph = CType(resources.GetObject("SetSectionTwoColumnsItem1.Glyph"), System.Drawing.Image) + Me.SetSectionTwoColumnsItem1.Id = 67 + Me.SetSectionTwoColumnsItem1.LargeGlyph = CType(resources.GetObject("SetSectionTwoColumnsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetSectionTwoColumnsItem1.Name = "SetSectionTwoColumnsItem1" + ' + 'SetSectionThreeColumnsItem1 + ' + Me.SetSectionThreeColumnsItem1.Glyph = CType(resources.GetObject("SetSectionThreeColumnsItem1.Glyph"), System.Drawing.Image) + Me.SetSectionThreeColumnsItem1.Id = 68 + Me.SetSectionThreeColumnsItem1.LargeGlyph = CType(resources.GetObject("SetSectionThreeColumnsItem1.LargeGlyph"), System.Drawing.Image) + Me.SetSectionThreeColumnsItem1.Name = "SetSectionThreeColumnsItem1" + ' + 'SwitchToSimpleViewItem1 + ' + Me.SwitchToSimpleViewItem1.Glyph = CType(resources.GetObject("SwitchToSimpleViewItem1.Glyph"), System.Drawing.Image) + Me.SwitchToSimpleViewItem1.Id = 69 + Me.SwitchToSimpleViewItem1.LargeGlyph = CType(resources.GetObject("SwitchToSimpleViewItem1.LargeGlyph"), System.Drawing.Image) + Me.SwitchToSimpleViewItem1.Name = "SwitchToSimpleViewItem1" + ' + 'SwitchToDraftViewItem1 + ' + Me.SwitchToDraftViewItem1.Glyph = CType(resources.GetObject("SwitchToDraftViewItem1.Glyph"), System.Drawing.Image) + Me.SwitchToDraftViewItem1.Id = 70 + Me.SwitchToDraftViewItem1.LargeGlyph = CType(resources.GetObject("SwitchToDraftViewItem1.LargeGlyph"), System.Drawing.Image) + Me.SwitchToDraftViewItem1.Name = "SwitchToDraftViewItem1" + ' + 'SwitchToPrintLayoutViewItem1 + ' + Me.SwitchToPrintLayoutViewItem1.Glyph = CType(resources.GetObject("SwitchToPrintLayoutViewItem1.Glyph"), System.Drawing.Image) + Me.SwitchToPrintLayoutViewItem1.Id = 71 + Me.SwitchToPrintLayoutViewItem1.LargeGlyph = CType(resources.GetObject("SwitchToPrintLayoutViewItem1.LargeGlyph"), System.Drawing.Image) + Me.SwitchToPrintLayoutViewItem1.Name = "SwitchToPrintLayoutViewItem1" + ' + 'ToggleShowHorizontalRulerItem1 + ' + Me.ToggleShowHorizontalRulerItem1.Glyph = CType(resources.GetObject("ToggleShowHorizontalRulerItem1.Glyph"), System.Drawing.Image) + Me.ToggleShowHorizontalRulerItem1.Id = 72 + Me.ToggleShowHorizontalRulerItem1.LargeGlyph = CType(resources.GetObject("ToggleShowHorizontalRulerItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleShowHorizontalRulerItem1.Name = "ToggleShowHorizontalRulerItem1" + ' + 'ToggleShowVerticalRulerItem1 + ' + Me.ToggleShowVerticalRulerItem1.Glyph = CType(resources.GetObject("ToggleShowVerticalRulerItem1.Glyph"), System.Drawing.Image) + Me.ToggleShowVerticalRulerItem1.Id = 73 + Me.ToggleShowVerticalRulerItem1.LargeGlyph = CType(resources.GetObject("ToggleShowVerticalRulerItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleShowVerticalRulerItem1.Name = "ToggleShowVerticalRulerItem1" + ' + 'GoToPageHeaderItem1 + ' + Me.GoToPageHeaderItem1.Glyph = CType(resources.GetObject("GoToPageHeaderItem1.Glyph"), System.Drawing.Image) + Me.GoToPageHeaderItem1.Id = 74 + Me.GoToPageHeaderItem1.LargeGlyph = CType(resources.GetObject("GoToPageHeaderItem1.LargeGlyph"), System.Drawing.Image) + Me.GoToPageHeaderItem1.Name = "GoToPageHeaderItem1" + ' + 'GoToPageFooterItem1 + ' + Me.GoToPageFooterItem1.Glyph = CType(resources.GetObject("GoToPageFooterItem1.Glyph"), System.Drawing.Image) + Me.GoToPageFooterItem1.Id = 75 + Me.GoToPageFooterItem1.LargeGlyph = CType(resources.GetObject("GoToPageFooterItem1.LargeGlyph"), System.Drawing.Image) + Me.GoToPageFooterItem1.Name = "GoToPageFooterItem1" + ' + 'GoToNextHeaderFooterItem1 + ' + Me.GoToNextHeaderFooterItem1.Glyph = CType(resources.GetObject("GoToNextHeaderFooterItem1.Glyph"), System.Drawing.Image) + Me.GoToNextHeaderFooterItem1.Id = 76 + Me.GoToNextHeaderFooterItem1.LargeGlyph = CType(resources.GetObject("GoToNextHeaderFooterItem1.LargeGlyph"), System.Drawing.Image) + Me.GoToNextHeaderFooterItem1.Name = "GoToNextHeaderFooterItem1" + ' + 'GoToPreviousHeaderFooterItem1 + ' + Me.GoToPreviousHeaderFooterItem1.Glyph = CType(resources.GetObject("GoToPreviousHeaderFooterItem1.Glyph"), System.Drawing.Image) + Me.GoToPreviousHeaderFooterItem1.Id = 77 + Me.GoToPreviousHeaderFooterItem1.LargeGlyph = CType(resources.GetObject("GoToPreviousHeaderFooterItem1.LargeGlyph"), System.Drawing.Image) + Me.GoToPreviousHeaderFooterItem1.Name = "GoToPreviousHeaderFooterItem1" + ' + 'ToggleLinkToPreviousItem1 + ' + Me.ToggleLinkToPreviousItem1.Glyph = CType(resources.GetObject("ToggleLinkToPreviousItem1.Glyph"), System.Drawing.Image) + Me.ToggleLinkToPreviousItem1.Id = 78 + Me.ToggleLinkToPreviousItem1.LargeGlyph = CType(resources.GetObject("ToggleLinkToPreviousItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleLinkToPreviousItem1.Name = "ToggleLinkToPreviousItem1" + ' + 'ToggleDifferentFirstPageItem1 + ' + Me.ToggleDifferentFirstPageItem1.Glyph = CType(resources.GetObject("ToggleDifferentFirstPageItem1.Glyph"), System.Drawing.Image) + Me.ToggleDifferentFirstPageItem1.Id = 79 + Me.ToggleDifferentFirstPageItem1.LargeGlyph = CType(resources.GetObject("ToggleDifferentFirstPageItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleDifferentFirstPageItem1.Name = "ToggleDifferentFirstPageItem1" + ' + 'ToggleDifferentOddAndEvenPagesItem1 + ' + Me.ToggleDifferentOddAndEvenPagesItem1.Glyph = CType(resources.GetObject("ToggleDifferentOddAndEvenPagesItem1.Glyph"), System.Drawing.Image) + Me.ToggleDifferentOddAndEvenPagesItem1.Id = 80 + Me.ToggleDifferentOddAndEvenPagesItem1.LargeGlyph = CType(resources.GetObject("ToggleDifferentOddAndEvenPagesItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleDifferentOddAndEvenPagesItem1.Name = "ToggleDifferentOddAndEvenPagesItem1" + ' + 'ClosePageHeaderFooterItem1 + ' + Me.ClosePageHeaderFooterItem1.Glyph = CType(resources.GetObject("ClosePageHeaderFooterItem1.Glyph"), System.Drawing.Image) + Me.ClosePageHeaderFooterItem1.Id = 81 + Me.ClosePageHeaderFooterItem1.LargeGlyph = CType(resources.GetObject("ClosePageHeaderFooterItem1.LargeGlyph"), System.Drawing.Image) + Me.ClosePageHeaderFooterItem1.Name = "ClosePageHeaderFooterItem1" + ' + 'ChangeTableCellsShadingItem1 + ' + Me.ChangeTableCellsShadingItem1.Glyph = CType(resources.GetObject("ChangeTableCellsShadingItem1.Glyph"), System.Drawing.Image) + Me.ChangeTableCellsShadingItem1.Id = 82 + Me.ChangeTableCellsShadingItem1.LargeGlyph = CType(resources.GetObject("ChangeTableCellsShadingItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeTableCellsShadingItem1.Name = "ChangeTableCellsShadingItem1" + ' + 'ChangeTableBordersItem1 + ' + Me.ChangeTableBordersItem1.Glyph = CType(resources.GetObject("ChangeTableBordersItem1.Glyph"), System.Drawing.Image) + Me.ChangeTableBordersItem1.Id = 83 + Me.ChangeTableBordersItem1.LargeGlyph = CType(resources.GetObject("ChangeTableBordersItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeTableBordersItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsBottomBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsTopBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsLeftBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsRightBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ResetTableCellsAllBordersItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsAllBordersItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsOutsideBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsInsideBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsInsideHorizontalBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleTableCellsInsideVerticalBorderItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ToggleShowTableGridLinesItem1)}) + Me.ChangeTableBordersItem1.Name = "ChangeTableBordersItem1" + ' + 'ToggleTableCellsBottomBorderItem1 + ' + Me.ToggleTableCellsBottomBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsBottomBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomBorderItem1.Id = 84 + Me.ToggleTableCellsBottomBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsBottomBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomBorderItem1.Name = "ToggleTableCellsBottomBorderItem1" + ' + 'ToggleTableCellsTopBorderItem1 + ' + Me.ToggleTableCellsTopBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsTopBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsTopBorderItem1.Id = 85 + Me.ToggleTableCellsTopBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsTopBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsTopBorderItem1.Name = "ToggleTableCellsTopBorderItem1" + ' + 'ToggleTableCellsLeftBorderItem1 + ' + Me.ToggleTableCellsLeftBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsLeftBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsLeftBorderItem1.Id = 86 + Me.ToggleTableCellsLeftBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsLeftBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsLeftBorderItem1.Name = "ToggleTableCellsLeftBorderItem1" + ' + 'ToggleTableCellsRightBorderItem1 + ' + Me.ToggleTableCellsRightBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsRightBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsRightBorderItem1.Id = 87 + Me.ToggleTableCellsRightBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsRightBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsRightBorderItem1.Name = "ToggleTableCellsRightBorderItem1" + ' + 'ResetTableCellsAllBordersItem1 + ' + Me.ResetTableCellsAllBordersItem1.Glyph = CType(resources.GetObject("ResetTableCellsAllBordersItem1.Glyph"), System.Drawing.Image) + Me.ResetTableCellsAllBordersItem1.Id = 88 + Me.ResetTableCellsAllBordersItem1.LargeGlyph = CType(resources.GetObject("ResetTableCellsAllBordersItem1.LargeGlyph"), System.Drawing.Image) + Me.ResetTableCellsAllBordersItem1.Name = "ResetTableCellsAllBordersItem1" + ' + 'ToggleTableCellsAllBordersItem1 + ' + Me.ToggleTableCellsAllBordersItem1.Glyph = CType(resources.GetObject("ToggleTableCellsAllBordersItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsAllBordersItem1.Id = 89 + Me.ToggleTableCellsAllBordersItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsAllBordersItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsAllBordersItem1.Name = "ToggleTableCellsAllBordersItem1" + ' + 'ToggleTableCellsOutsideBorderItem1 + ' + Me.ToggleTableCellsOutsideBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsOutsideBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsOutsideBorderItem1.Id = 90 + Me.ToggleTableCellsOutsideBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsOutsideBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsOutsideBorderItem1.Name = "ToggleTableCellsOutsideBorderItem1" + ' + 'ToggleTableCellsInsideBorderItem1 + ' + Me.ToggleTableCellsInsideBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsInsideBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideBorderItem1.Id = 91 + Me.ToggleTableCellsInsideBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsInsideBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideBorderItem1.Name = "ToggleTableCellsInsideBorderItem1" + ' + 'ToggleTableCellsInsideHorizontalBorderItem1 + ' + Me.ToggleTableCellsInsideHorizontalBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsInsideHorizontalBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideHorizontalBorderItem1.Id = 92 + Me.ToggleTableCellsInsideHorizontalBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsInsideHorizontalBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideHorizontalBorderItem1.Name = "ToggleTableCellsInsideHorizontalBorderItem1" + ' + 'ToggleTableCellsInsideVerticalBorderItem1 + ' + Me.ToggleTableCellsInsideVerticalBorderItem1.Glyph = CType(resources.GetObject("ToggleTableCellsInsideVerticalBorderItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideVerticalBorderItem1.Id = 93 + Me.ToggleTableCellsInsideVerticalBorderItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsInsideVerticalBorderItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsInsideVerticalBorderItem1.Name = "ToggleTableCellsInsideVerticalBorderItem1" + ' + 'ToggleShowTableGridLinesItem1 + ' + Me.ToggleShowTableGridLinesItem1.Glyph = CType(resources.GetObject("ToggleShowTableGridLinesItem1.Glyph"), System.Drawing.Image) + Me.ToggleShowTableGridLinesItem1.Id = 94 + Me.ToggleShowTableGridLinesItem1.LargeGlyph = CType(resources.GetObject("ToggleShowTableGridLinesItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleShowTableGridLinesItem1.Name = "ToggleShowTableGridLinesItem1" + ' + 'ChangeTableBorderLineStyleItem1 + ' + Me.ChangeTableBorderLineStyleItem1.Edit = Me.RepositoryItemBorderLineStyle1 + BorderInfo1.Color = System.Drawing.Color.Black + BorderInfo1.Frame = False + BorderInfo1.Offset = 0 + BorderInfo1.Shadow = False + BorderInfo1.Style = DevExpress.XtraRichEdit.Model.BorderLineStyle.[Single] + BorderInfo1.Width = 10 + Me.ChangeTableBorderLineStyleItem1.EditValue = BorderInfo1 + Me.ChangeTableBorderLineStyleItem1.Id = 95 + Me.ChangeTableBorderLineStyleItem1.Name = "ChangeTableBorderLineStyleItem1" + ' + 'RepositoryItemBorderLineStyle1 + ' + Me.RepositoryItemBorderLineStyle1.AutoHeight = False + Me.RepositoryItemBorderLineStyle1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemBorderLineStyle1.Control = Me.richEditControl_Renamed + Me.RepositoryItemBorderLineStyle1.Name = "RepositoryItemBorderLineStyle1" + ' + 'ChangeTableBorderLineWeightItem1 + ' + Me.ChangeTableBorderLineWeightItem1.Edit = Me.RepositoryItemBorderLineWeight1 + Me.ChangeTableBorderLineWeightItem1.EditValue = 20 + Me.ChangeTableBorderLineWeightItem1.Id = 96 + Me.ChangeTableBorderLineWeightItem1.Name = "ChangeTableBorderLineWeightItem1" + ' + 'RepositoryItemBorderLineWeight1 + ' + Me.RepositoryItemBorderLineWeight1.AutoHeight = False + Me.RepositoryItemBorderLineWeight1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemBorderLineWeight1.Control = Me.richEditControl_Renamed + Me.RepositoryItemBorderLineWeight1.Name = "RepositoryItemBorderLineWeight1" + ' + 'ChangeTableBorderColorItem1 + ' + Me.ChangeTableBorderColorItem1.Glyph = CType(resources.GetObject("ChangeTableBorderColorItem1.Glyph"), System.Drawing.Image) + Me.ChangeTableBorderColorItem1.Id = 97 + Me.ChangeTableBorderColorItem1.LargeGlyph = CType(resources.GetObject("ChangeTableBorderColorItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeTableBorderColorItem1.Name = "ChangeTableBorderColorItem1" + ' + 'SelectTableElementsItem1 + ' + Me.SelectTableElementsItem1.Glyph = CType(resources.GetObject("SelectTableElementsItem1.Glyph"), System.Drawing.Image) + Me.SelectTableElementsItem1.Id = 98 + Me.SelectTableElementsItem1.LargeGlyph = CType(resources.GetObject("SelectTableElementsItem1.LargeGlyph"), System.Drawing.Image) + Me.SelectTableElementsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SelectTableCellItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SelectTableColumnItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SelectTableRowItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SelectTableItem1)}) + Me.SelectTableElementsItem1.Name = "SelectTableElementsItem1" + ' + 'SelectTableCellItem1 + ' + Me.SelectTableCellItem1.Glyph = CType(resources.GetObject("SelectTableCellItem1.Glyph"), System.Drawing.Image) + Me.SelectTableCellItem1.Id = 99 + Me.SelectTableCellItem1.LargeGlyph = CType(resources.GetObject("SelectTableCellItem1.LargeGlyph"), System.Drawing.Image) + Me.SelectTableCellItem1.Name = "SelectTableCellItem1" + ' + 'SelectTableColumnItem1 + ' + Me.SelectTableColumnItem1.Glyph = CType(resources.GetObject("SelectTableColumnItem1.Glyph"), System.Drawing.Image) + Me.SelectTableColumnItem1.Id = 100 + Me.SelectTableColumnItem1.LargeGlyph = CType(resources.GetObject("SelectTableColumnItem1.LargeGlyph"), System.Drawing.Image) + Me.SelectTableColumnItem1.Name = "SelectTableColumnItem1" + ' + 'SelectTableRowItem1 + ' + Me.SelectTableRowItem1.Glyph = CType(resources.GetObject("SelectTableRowItem1.Glyph"), System.Drawing.Image) + Me.SelectTableRowItem1.Id = 101 + Me.SelectTableRowItem1.LargeGlyph = CType(resources.GetObject("SelectTableRowItem1.LargeGlyph"), System.Drawing.Image) + Me.SelectTableRowItem1.Name = "SelectTableRowItem1" + ' + 'SelectTableItem1 + ' + Me.SelectTableItem1.Glyph = CType(resources.GetObject("SelectTableItem1.Glyph"), System.Drawing.Image) + Me.SelectTableItem1.Id = 102 + Me.SelectTableItem1.LargeGlyph = CType(resources.GetObject("SelectTableItem1.LargeGlyph"), System.Drawing.Image) + Me.SelectTableItem1.Name = "SelectTableItem1" + ' + 'DeleteTableElementsItem1 + ' + Me.DeleteTableElementsItem1.Glyph = CType(resources.GetObject("DeleteTableElementsItem1.Glyph"), System.Drawing.Image) + Me.DeleteTableElementsItem1.Id = 103 + Me.DeleteTableElementsItem1.LargeGlyph = CType(resources.GetObject("DeleteTableElementsItem1.LargeGlyph"), System.Drawing.Image) + Me.DeleteTableElementsItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.ShowDeleteTableCellsFormItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteTableColumnsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteTableRowsItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.DeleteTableItem1)}) + Me.DeleteTableElementsItem1.Name = "DeleteTableElementsItem1" + ' + 'ShowDeleteTableCellsFormItem1 + ' + Me.ShowDeleteTableCellsFormItem1.Glyph = CType(resources.GetObject("ShowDeleteTableCellsFormItem1.Glyph"), System.Drawing.Image) + Me.ShowDeleteTableCellsFormItem1.Id = 104 + Me.ShowDeleteTableCellsFormItem1.LargeGlyph = CType(resources.GetObject("ShowDeleteTableCellsFormItem1.LargeGlyph"), System.Drawing.Image) + Me.ShowDeleteTableCellsFormItem1.Name = "ShowDeleteTableCellsFormItem1" + ' + 'DeleteTableColumnsItem1 + ' + Me.DeleteTableColumnsItem1.Glyph = CType(resources.GetObject("DeleteTableColumnsItem1.Glyph"), System.Drawing.Image) + Me.DeleteTableColumnsItem1.Id = 105 + Me.DeleteTableColumnsItem1.LargeGlyph = CType(resources.GetObject("DeleteTableColumnsItem1.LargeGlyph"), System.Drawing.Image) + Me.DeleteTableColumnsItem1.Name = "DeleteTableColumnsItem1" + ' + 'DeleteTableRowsItem1 + ' + Me.DeleteTableRowsItem1.Glyph = CType(resources.GetObject("DeleteTableRowsItem1.Glyph"), System.Drawing.Image) + Me.DeleteTableRowsItem1.Id = 106 + Me.DeleteTableRowsItem1.LargeGlyph = CType(resources.GetObject("DeleteTableRowsItem1.LargeGlyph"), System.Drawing.Image) + Me.DeleteTableRowsItem1.Name = "DeleteTableRowsItem1" + ' + 'DeleteTableItem1 + ' + Me.DeleteTableItem1.Glyph = CType(resources.GetObject("DeleteTableItem1.Glyph"), System.Drawing.Image) + Me.DeleteTableItem1.Id = 107 + Me.DeleteTableItem1.LargeGlyph = CType(resources.GetObject("DeleteTableItem1.LargeGlyph"), System.Drawing.Image) + Me.DeleteTableItem1.Name = "DeleteTableItem1" + ' + 'InsertTableRowAboveItem1 + ' + Me.InsertTableRowAboveItem1.Glyph = CType(resources.GetObject("InsertTableRowAboveItem1.Glyph"), System.Drawing.Image) + Me.InsertTableRowAboveItem1.Id = 108 + Me.InsertTableRowAboveItem1.LargeGlyph = CType(resources.GetObject("InsertTableRowAboveItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertTableRowAboveItem1.Name = "InsertTableRowAboveItem1" + ' + 'InsertTableRowBelowItem1 + ' + Me.InsertTableRowBelowItem1.Glyph = CType(resources.GetObject("InsertTableRowBelowItem1.Glyph"), System.Drawing.Image) + Me.InsertTableRowBelowItem1.Id = 109 + Me.InsertTableRowBelowItem1.LargeGlyph = CType(resources.GetObject("InsertTableRowBelowItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertTableRowBelowItem1.Name = "InsertTableRowBelowItem1" + ' + 'InsertTableColumnToLeftItem1 + ' + Me.InsertTableColumnToLeftItem1.Glyph = CType(resources.GetObject("InsertTableColumnToLeftItem1.Glyph"), System.Drawing.Image) + Me.InsertTableColumnToLeftItem1.Id = 110 + Me.InsertTableColumnToLeftItem1.LargeGlyph = CType(resources.GetObject("InsertTableColumnToLeftItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertTableColumnToLeftItem1.Name = "InsertTableColumnToLeftItem1" + ' + 'InsertTableColumnToRightItem1 + ' + Me.InsertTableColumnToRightItem1.Glyph = CType(resources.GetObject("InsertTableColumnToRightItem1.Glyph"), System.Drawing.Image) + Me.InsertTableColumnToRightItem1.Id = 111 + Me.InsertTableColumnToRightItem1.LargeGlyph = CType(resources.GetObject("InsertTableColumnToRightItem1.LargeGlyph"), System.Drawing.Image) + Me.InsertTableColumnToRightItem1.Name = "InsertTableColumnToRightItem1" + ' + 'ShowInsertTableCellsFormItem1 + ' + Me.ShowInsertTableCellsFormItem1.Glyph = CType(resources.GetObject("ShowInsertTableCellsFormItem1.Glyph"), System.Drawing.Image) + Me.ShowInsertTableCellsFormItem1.Id = 112 + Me.ShowInsertTableCellsFormItem1.LargeGlyph = CType(resources.GetObject("ShowInsertTableCellsFormItem1.LargeGlyph"), System.Drawing.Image) + Me.ShowInsertTableCellsFormItem1.Name = "ShowInsertTableCellsFormItem1" + ' + 'MergeTableCellsItem1 + ' + Me.MergeTableCellsItem1.Glyph = CType(resources.GetObject("MergeTableCellsItem1.Glyph"), System.Drawing.Image) + Me.MergeTableCellsItem1.Id = 113 + Me.MergeTableCellsItem1.LargeGlyph = CType(resources.GetObject("MergeTableCellsItem1.LargeGlyph"), System.Drawing.Image) + Me.MergeTableCellsItem1.Name = "MergeTableCellsItem1" + ' + 'ShowSplitTableCellsForm1 + ' + Me.ShowSplitTableCellsForm1.Glyph = CType(resources.GetObject("ShowSplitTableCellsForm1.Glyph"), System.Drawing.Image) + Me.ShowSplitTableCellsForm1.Id = 114 + Me.ShowSplitTableCellsForm1.LargeGlyph = CType(resources.GetObject("ShowSplitTableCellsForm1.LargeGlyph"), System.Drawing.Image) + Me.ShowSplitTableCellsForm1.Name = "ShowSplitTableCellsForm1" + ' + 'SplitTableItem1 + ' + Me.SplitTableItem1.Glyph = CType(resources.GetObject("SplitTableItem1.Glyph"), System.Drawing.Image) + Me.SplitTableItem1.Id = 115 + Me.SplitTableItem1.LargeGlyph = CType(resources.GetObject("SplitTableItem1.LargeGlyph"), System.Drawing.Image) + Me.SplitTableItem1.Name = "SplitTableItem1" + ' + 'ToggleTableCellsTopLeftAlignmentItem1 + ' + Me.ToggleTableCellsTopLeftAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsTopLeftAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsTopLeftAlignmentItem1.Id = 116 + Me.ToggleTableCellsTopLeftAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsTopLeftAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsTopLeftAlignmentItem1.Name = "ToggleTableCellsTopLeftAlignmentItem1" + ' + 'ToggleTableCellsTopCenterAlignmentItem1 + ' + Me.ToggleTableCellsTopCenterAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsTopCenterAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsTopCenterAlignmentItem1.Id = 117 + Me.ToggleTableCellsTopCenterAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsTopCenterAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsTopCenterAlignmentItem1.Name = "ToggleTableCellsTopCenterAlignmentItem1" + ' + 'ToggleTableCellsTopRightAlignmentItem1 + ' + Me.ToggleTableCellsTopRightAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsTopRightAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsTopRightAlignmentItem1.Id = 118 + Me.ToggleTableCellsTopRightAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsTopRightAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsTopRightAlignmentItem1.Name = "ToggleTableCellsTopRightAlignmentItem1" + ' + 'ToggleTableCellsMiddleLeftAlignmentItem1 + ' + Me.ToggleTableCellsMiddleLeftAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsMiddleLeftAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleLeftAlignmentItem1.Id = 119 + Me.ToggleTableCellsMiddleLeftAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsMiddleLeftAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleLeftAlignmentItem1.Name = "ToggleTableCellsMiddleLeftAlignmentItem1" + ' + 'ToggleTableCellsMiddleCenterAlignmentItem1 + ' + Me.ToggleTableCellsMiddleCenterAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsMiddleCenterAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleCenterAlignmentItem1.Id = 120 + Me.ToggleTableCellsMiddleCenterAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsMiddleCenterAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleCenterAlignmentItem1.Name = "ToggleTableCellsMiddleCenterAlignmentItem1" + ' + 'ToggleTableCellsMiddleRightAlignmentItem1 + ' + Me.ToggleTableCellsMiddleRightAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsMiddleRightAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleRightAlignmentItem1.Id = 121 + Me.ToggleTableCellsMiddleRightAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsMiddleRightAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsMiddleRightAlignmentItem1.Name = "ToggleTableCellsMiddleRightAlignmentItem1" + ' + 'ToggleTableCellsBottomLeftAlignmentItem1 + ' + Me.ToggleTableCellsBottomLeftAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsBottomLeftAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomLeftAlignmentItem1.Id = 122 + Me.ToggleTableCellsBottomLeftAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsBottomLeftAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomLeftAlignmentItem1.Name = "ToggleTableCellsBottomLeftAlignmentItem1" + ' + 'ToggleTableCellsBottomCenterAlignmentItem1 + ' + Me.ToggleTableCellsBottomCenterAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsBottomCenterAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomCenterAlignmentItem1.Id = 123 + Me.ToggleTableCellsBottomCenterAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsBottomCenterAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomCenterAlignmentItem1.Name = "ToggleTableCellsBottomCenterAlignmentItem1" + ' + 'ToggleTableCellsBottomRightAlignmentItem1 + ' + Me.ToggleTableCellsBottomRightAlignmentItem1.Glyph = CType(resources.GetObject("ToggleTableCellsBottomRightAlignmentItem1.Glyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomRightAlignmentItem1.Id = 124 + Me.ToggleTableCellsBottomRightAlignmentItem1.LargeGlyph = CType(resources.GetObject("ToggleTableCellsBottomRightAlignmentItem1.LargeGlyph"), System.Drawing.Image) + Me.ToggleTableCellsBottomRightAlignmentItem1.Name = "ToggleTableCellsBottomRightAlignmentItem1" + ' + 'ProtectDocumentItem1 + ' + Me.ProtectDocumentItem1.Glyph = CType(resources.GetObject("ProtectDocumentItem1.Glyph"), System.Drawing.Image) + Me.ProtectDocumentItem1.Id = 125 + Me.ProtectDocumentItem1.LargeGlyph = CType(resources.GetObject("ProtectDocumentItem1.LargeGlyph"), System.Drawing.Image) + Me.ProtectDocumentItem1.Name = "ProtectDocumentItem1" + ' + 'ChangeRangeEditingPermissionsItem1 + ' + Me.ChangeRangeEditingPermissionsItem1.Glyph = CType(resources.GetObject("ChangeRangeEditingPermissionsItem1.Glyph"), System.Drawing.Image) + Me.ChangeRangeEditingPermissionsItem1.Id = 126 + Me.ChangeRangeEditingPermissionsItem1.LargeGlyph = CType(resources.GetObject("ChangeRangeEditingPermissionsItem1.LargeGlyph"), System.Drawing.Image) + Me.ChangeRangeEditingPermissionsItem1.Name = "ChangeRangeEditingPermissionsItem1" + ' + 'UnprotectDocumentItem1 + ' + Me.UnprotectDocumentItem1.Glyph = CType(resources.GetObject("UnprotectDocumentItem1.Glyph"), System.Drawing.Image) + Me.UnprotectDocumentItem1.Id = 127 + Me.UnprotectDocumentItem1.LargeGlyph = CType(resources.GetObject("UnprotectDocumentItem1.LargeGlyph"), System.Drawing.Image) + Me.UnprotectDocumentItem1.Name = "UnprotectDocumentItem1" + ' + 'FileOpenItem2 + ' + Me.FileOpenItem2.Glyph = CType(resources.GetObject("FileOpenItem2.Glyph"), System.Drawing.Image) + Me.FileOpenItem2.Id = 130 + Me.FileOpenItem2.LargeGlyph = CType(resources.GetObject("FileOpenItem2.LargeGlyph"), System.Drawing.Image) + Me.FileOpenItem2.Name = "FileOpenItem2" + ' + 'FileSaveItem2 + ' + Me.FileSaveItem2.Glyph = CType(resources.GetObject("FileSaveItem2.Glyph"), System.Drawing.Image) + Me.FileSaveItem2.Id = 131 + Me.FileSaveItem2.LargeGlyph = CType(resources.GetObject("FileSaveItem2.LargeGlyph"), System.Drawing.Image) + Me.FileSaveItem2.Name = "FileSaveItem2" + ' + 'FileSaveAsItem1 + ' + Me.FileSaveAsItem1.Glyph = CType(resources.GetObject("FileSaveAsItem1.Glyph"), System.Drawing.Image) + Me.FileSaveAsItem1.Id = 132 + Me.FileSaveAsItem1.LargeGlyph = CType(resources.GetObject("FileSaveAsItem1.LargeGlyph"), System.Drawing.Image) + Me.FileSaveAsItem1.Name = "FileSaveAsItem1" + ' + 'HeaderFooterToolsRibbonPageCategory1 + ' + Me.HeaderFooterToolsRibbonPageCategory1.Control = Me.richEditControl_Renamed + Me.HeaderFooterToolsRibbonPageCategory1.Name = "HeaderFooterToolsRibbonPageCategory1" + Me.HeaderFooterToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.HeaderFooterToolsDesignRibbonPage1}) + ' + 'HeaderFooterToolsDesignRibbonPage1 + ' + Me.HeaderFooterToolsDesignRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1, Me.HeaderFooterToolsDesignOptionsRibbonPageGroup1, Me.HeaderFooterToolsDesignCloseRibbonPageGroup1}) + Me.HeaderFooterToolsDesignRibbonPage1.Name = "HeaderFooterToolsDesignRibbonPage1" + ' + 'HeaderFooterToolsDesignNavigationRibbonPageGroup1 + ' + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.ItemLinks.Add(Me.GoToPageHeaderItem1) + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.ItemLinks.Add(Me.GoToPageFooterItem1) + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.ItemLinks.Add(Me.GoToNextHeaderFooterItem1) + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.ItemLinks.Add(Me.GoToPreviousHeaderFooterItem1) + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.ItemLinks.Add(Me.ToggleLinkToPreviousItem1) + Me.HeaderFooterToolsDesignNavigationRibbonPageGroup1.Name = "HeaderFooterToolsDesignNavigationRibbonPageGroup1" + ' + 'HeaderFooterToolsDesignOptionsRibbonPageGroup1 + ' + Me.HeaderFooterToolsDesignOptionsRibbonPageGroup1.ItemLinks.Add(Me.ToggleDifferentFirstPageItem1) + Me.HeaderFooterToolsDesignOptionsRibbonPageGroup1.ItemLinks.Add(Me.ToggleDifferentOddAndEvenPagesItem1) + Me.HeaderFooterToolsDesignOptionsRibbonPageGroup1.Name = "HeaderFooterToolsDesignOptionsRibbonPageGroup1" + ' + 'HeaderFooterToolsDesignCloseRibbonPageGroup1 + ' + Me.HeaderFooterToolsDesignCloseRibbonPageGroup1.ItemLinks.Add(Me.ClosePageHeaderFooterItem1) + Me.HeaderFooterToolsDesignCloseRibbonPageGroup1.Name = "HeaderFooterToolsDesignCloseRibbonPageGroup1" + ' + 'TableToolsRibbonPageCategory1 + ' + Me.TableToolsRibbonPageCategory1.Control = Me.richEditControl_Renamed + Me.TableToolsRibbonPageCategory1.Name = "TableToolsRibbonPageCategory1" + Me.TableToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.TableDesignRibbonPage1, Me.TableLayoutRibbonPage1}) + ' + 'TableDesignRibbonPage1 + ' + Me.TableDesignRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.TableStylesRibbonPageGroup1, Me.TableDrawBordersRibbonPageGroup1}) + Me.TableDesignRibbonPage1.Name = "TableDesignRibbonPage1" + ' + 'TableStylesRibbonPageGroup1 + ' + Me.TableStylesRibbonPageGroup1.ItemLinks.Add(Me.ChangeTableCellsShadingItem1) + Me.TableStylesRibbonPageGroup1.ItemLinks.Add(Me.ChangeTableBordersItem1) + Me.TableStylesRibbonPageGroup1.Name = "TableStylesRibbonPageGroup1" + ' + 'TableDrawBordersRibbonPageGroup1 + ' + Me.TableDrawBordersRibbonPageGroup1.ItemLinks.Add(Me.ChangeTableBorderLineStyleItem1) + Me.TableDrawBordersRibbonPageGroup1.ItemLinks.Add(Me.ChangeTableBorderLineWeightItem1) + Me.TableDrawBordersRibbonPageGroup1.ItemLinks.Add(Me.ChangeTableBorderColorItem1) + Me.TableDrawBordersRibbonPageGroup1.Name = "TableDrawBordersRibbonPageGroup1" + ' + 'TableLayoutRibbonPage1 + ' + Me.TableLayoutRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.TableTableRibbonPageGroup1, Me.TableRowsAndColumnsRibbonPageGroup1, Me.TableMergeRibbonPageGroup1, Me.TableAlignmentRibbonPageGroup1}) + Me.TableLayoutRibbonPage1.Name = "TableLayoutRibbonPage1" + ' + 'TableTableRibbonPageGroup1 + ' + Me.TableTableRibbonPageGroup1.ItemLinks.Add(Me.SelectTableElementsItem1) + Me.TableTableRibbonPageGroup1.ItemLinks.Add(Me.ToggleShowTableGridLinesItem1) + Me.TableTableRibbonPageGroup1.Name = "TableTableRibbonPageGroup1" + ' + 'TableRowsAndColumnsRibbonPageGroup1 + ' + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.DeleteTableElementsItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.InsertTableRowAboveItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.InsertTableRowBelowItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.InsertTableColumnToLeftItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.InsertTableColumnToRightItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.ItemLinks.Add(Me.ShowInsertTableCellsFormItem1) + Me.TableRowsAndColumnsRibbonPageGroup1.Name = "TableRowsAndColumnsRibbonPageGroup1" + ' + 'TableMergeRibbonPageGroup1 + ' + Me.TableMergeRibbonPageGroup1.ItemLinks.Add(Me.MergeTableCellsItem1) + Me.TableMergeRibbonPageGroup1.ItemLinks.Add(Me.ShowSplitTableCellsForm1) + Me.TableMergeRibbonPageGroup1.ItemLinks.Add(Me.SplitTableItem1) + Me.TableMergeRibbonPageGroup1.Name = "TableMergeRibbonPageGroup1" + ' + 'TableAlignmentRibbonPageGroup1 + ' + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsTopLeftAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsTopCenterAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsTopRightAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsMiddleLeftAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsMiddleCenterAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsMiddleRightAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsBottomLeftAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsBottomCenterAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.ItemLinks.Add(Me.ToggleTableCellsBottomRightAlignmentItem1) + Me.TableAlignmentRibbonPageGroup1.Name = "TableAlignmentRibbonPageGroup1" + ' + 'FileRibbonPage1 + ' + Me.FileRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.CommonRibbonPageGroup2, Me.clipboardRibbonPageGroup1, Me.zoomRibbonPageGroup1, Me.editingRibbonPageGroup1}) + Me.FileRibbonPage1.Name = "FileRibbonPage1" + ' + 'CommonRibbonPageGroup2 + ' + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.FileOpenItem2) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.FileSaveItem2) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.FileSaveAsItem1) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.quickPrintItem1) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.printItem1) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.printPreviewItem1) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.undoItem1) + Me.CommonRibbonPageGroup2.ItemLinks.Add(Me.redoItem1) + Me.CommonRibbonPageGroup2.Name = "CommonRibbonPageGroup2" + ' + 'clipboardRibbonPageGroup1 + ' + Me.clipboardRibbonPageGroup1.ItemLinks.Add(Me.cutItem1) + Me.clipboardRibbonPageGroup1.ItemLinks.Add(Me.copyItem1) + Me.clipboardRibbonPageGroup1.ItemLinks.Add(Me.pasteItem1) + Me.clipboardRibbonPageGroup1.Name = "clipboardRibbonPageGroup1" + ' + 'zoomRibbonPageGroup1 + ' + Me.zoomRibbonPageGroup1.ItemLinks.Add(Me.zoomOutItem1) + Me.zoomRibbonPageGroup1.ItemLinks.Add(Me.zoomInItem1) + Me.zoomRibbonPageGroup1.Name = "zoomRibbonPageGroup1" + ' + 'editingRibbonPageGroup1 + ' + Me.editingRibbonPageGroup1.ItemLinks.Add(Me.findItem1) + Me.editingRibbonPageGroup1.ItemLinks.Add(Me.replaceItem1) + Me.editingRibbonPageGroup1.Name = "editingRibbonPageGroup1" + ' + 'fontRibbonPage1 + ' + Me.fontRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.fontRibbonPageGroup1}) + Me.fontRibbonPage1.Name = "fontRibbonPage1" + Me.fontRibbonPage1.Text = "Font" + ' + 'fontRibbonPageGroup1 + ' + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.changeFontColorItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.changeFontBackColorItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontBoldItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontItalicItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontUnderlineItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontDoubleUnderlineItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontStrikeoutItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontDoubleStrikeoutItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontSuperscriptItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.toggleFontSubscriptItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.fontSizeIncreaseItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.fontSizeDecreaseItem1) + Me.fontRibbonPageGroup1.ItemLinks.Add(Me.showFontFormItem1) + Me.fontRibbonPageGroup1.Name = "fontRibbonPageGroup1" + ' + 'insertRibbonPage1 + ' + Me.insertRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.illustrationsRibbonPageGroup1, Me.pagesRibbonPageGroup1, Me.stylesRibbonPageGroup1, Me.paragraphRibbonPageGroup1, Me.TablesRibbonPageGroup1, Me.LinksRibbonPageGroup1, Me.HeaderFooterRibbonPageGroup1, Me.SymbolsRibbonPageGroup1}) + Me.insertRibbonPage1.Name = "insertRibbonPage1" + Me.insertRibbonPage1.Text = "Common" + ' + 'illustrationsRibbonPageGroup1 + ' + Me.illustrationsRibbonPageGroup1.ItemLinks.Add(Me.insertPictureItem1) + Me.illustrationsRibbonPageGroup1.Name = "illustrationsRibbonPageGroup1" + ' + 'pagesRibbonPageGroup1 + ' + Me.pagesRibbonPageGroup1.ItemLinks.Add(Me.insertPageBreakItem1) + Me.pagesRibbonPageGroup1.Name = "pagesRibbonPageGroup1" + ' + 'stylesRibbonPageGroup1 + ' + Me.stylesRibbonPageGroup1.ItemLinks.Add(Me.changeStyleItem1) + Me.stylesRibbonPageGroup1.Name = "stylesRibbonPageGroup1" + ' + 'paragraphRibbonPageGroup1 + ' + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleParagraphAlignmentLeftItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleParagraphAlignmentCenterItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleParagraphAlignmentRightItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleParagraphAlignmentJustifyItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleNumberingListItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleBulletedListItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleMultiLevelListItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.decreaseIndentItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.increaseIndentItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.toggleShowWhitespaceItem1) + Me.paragraphRibbonPageGroup1.ItemLinks.Add(Me.showParagraphFormItem1) + Me.paragraphRibbonPageGroup1.Name = "paragraphRibbonPageGroup1" + ' + 'TablesRibbonPageGroup1 + ' + Me.TablesRibbonPageGroup1.ItemLinks.Add(Me.InsertTableItem1) + Me.TablesRibbonPageGroup1.Name = "TablesRibbonPageGroup1" + ' + 'LinksRibbonPageGroup1 + ' + Me.LinksRibbonPageGroup1.ItemLinks.Add(Me.InsertBookmarkItem1) + Me.LinksRibbonPageGroup1.ItemLinks.Add(Me.InsertHyperlinkItem1) + Me.LinksRibbonPageGroup1.Name = "LinksRibbonPageGroup1" + ' + 'HeaderFooterRibbonPageGroup1 + ' + Me.HeaderFooterRibbonPageGroup1.ItemLinks.Add(Me.EditPageHeaderItem1) + Me.HeaderFooterRibbonPageGroup1.ItemLinks.Add(Me.EditPageFooterItem1) + Me.HeaderFooterRibbonPageGroup1.ItemLinks.Add(Me.InsertPageNumberItem1) + Me.HeaderFooterRibbonPageGroup1.ItemLinks.Add(Me.InsertPageCountItem1) + Me.HeaderFooterRibbonPageGroup1.Name = "HeaderFooterRibbonPageGroup1" + ' + 'SymbolsRibbonPageGroup1 + ' + Me.SymbolsRibbonPageGroup1.ItemLinks.Add(Me.InsertSymbolItem1) + Me.SymbolsRibbonPageGroup1.Name = "SymbolsRibbonPageGroup1" + ' + 'MailingsRibbonPage1 + ' + Me.MailingsRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.MailMergeRibbonPageGroup1}) + Me.MailingsRibbonPage1.Name = "MailingsRibbonPage1" + ' + 'MailMergeRibbonPageGroup1 + ' + Me.MailMergeRibbonPageGroup1.ItemLinks.Add(Me.InsertMergeFieldItem1) + Me.MailMergeRibbonPageGroup1.ItemLinks.Add(Me.ShowAllFieldCodesItem1) + Me.MailMergeRibbonPageGroup1.ItemLinks.Add(Me.ShowAllFieldResultsItem1) + Me.MailMergeRibbonPageGroup1.ItemLinks.Add(Me.ToggleViewMergedDataItem1) + Me.MailMergeRibbonPageGroup1.Name = "MailMergeRibbonPageGroup1" + ' + 'PageLayoutRibbonPage1 + ' + Me.PageLayoutRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.PageSetupRibbonPageGroup1}) + Me.PageLayoutRibbonPage1.Name = "PageLayoutRibbonPage1" + ' + 'PageSetupRibbonPageGroup1 + ' + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.ChangeSectionPageMarginsItem1) + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.ChangeSectionPageOrientationItem1) + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.ChangeSectionColumnsItem1) + Me.PageSetupRibbonPageGroup1.Name = "PageSetupRibbonPageGroup1" + ' + 'ViewRibbonPage1 + ' + Me.ViewRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.DocumentViewsRibbonPageGroup1, Me.ShowRibbonPageGroup1}) + Me.ViewRibbonPage1.Name = "ViewRibbonPage1" + ' + 'DocumentViewsRibbonPageGroup1 + ' + Me.DocumentViewsRibbonPageGroup1.ItemLinks.Add(Me.SwitchToSimpleViewItem1) + Me.DocumentViewsRibbonPageGroup1.ItemLinks.Add(Me.SwitchToDraftViewItem1) + Me.DocumentViewsRibbonPageGroup1.ItemLinks.Add(Me.SwitchToPrintLayoutViewItem1) + Me.DocumentViewsRibbonPageGroup1.Name = "DocumentViewsRibbonPageGroup1" + ' + 'ShowRibbonPageGroup1 + ' + Me.ShowRibbonPageGroup1.ItemLinks.Add(Me.ToggleShowHorizontalRulerItem1) + Me.ShowRibbonPageGroup1.ItemLinks.Add(Me.ToggleShowVerticalRulerItem1) + Me.ShowRibbonPageGroup1.Name = "ShowRibbonPageGroup1" + ' + 'ReviewRibbonPage1 + ' + Me.ReviewRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.DocumentProtectionRibbonPageGroup1}) + Me.ReviewRibbonPage1.Name = "ReviewRibbonPage1" + ' + 'DocumentProtectionRibbonPageGroup1 + ' + Me.DocumentProtectionRibbonPageGroup1.ItemLinks.Add(Me.ProtectDocumentItem1) + Me.DocumentProtectionRibbonPageGroup1.ItemLinks.Add(Me.ChangeRangeEditingPermissionsItem1) + Me.DocumentProtectionRibbonPageGroup1.ItemLinks.Add(Me.UnprotectDocumentItem1) + Me.DocumentProtectionRibbonPageGroup1.Name = "DocumentProtectionRibbonPageGroup1" + ' + 'repositoryItemFontEdit1 + ' + Me.repositoryItemFontEdit1.AutoHeight = False + Me.repositoryItemFontEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.repositoryItemFontEdit1.Name = "repositoryItemFontEdit1" + ' + 'repositoryItemRichEditFontSizeEdit1 + ' + Me.repositoryItemRichEditFontSizeEdit1.AutoHeight = False + Me.repositoryItemRichEditFontSizeEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.repositoryItemRichEditFontSizeEdit1.Control = Me.richEditControl_Renamed + Me.repositoryItemRichEditFontSizeEdit1.Name = "repositoryItemRichEditFontSizeEdit1" + ' + 'fileOpenItem1 + ' + Me.fileOpenItem1.Id = -1 + Me.fileOpenItem1.Name = "fileOpenItem1" + ' + 'fileSaveItem1 + ' + Me.fileSaveItem1.Id = -1 + Me.fileSaveItem1.Name = "fileSaveItem1" + ' + 'richEditBarController1 + ' + Me.richEditBarController1.BarItems.Add(Me.changeFontColorItem1) + Me.richEditBarController1.BarItems.Add(Me.changeFontBackColorItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontBoldItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontItalicItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontUnderlineItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontDoubleUnderlineItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontStrikeoutItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontDoubleStrikeoutItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontSuperscriptItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleFontSubscriptItem1) + Me.richEditBarController1.BarItems.Add(Me.fontSizeIncreaseItem1) + Me.richEditBarController1.BarItems.Add(Me.fontSizeDecreaseItem1) + Me.richEditBarController1.BarItems.Add(Me.showFontFormItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleParagraphAlignmentLeftItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleParagraphAlignmentCenterItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleParagraphAlignmentRightItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleParagraphAlignmentJustifyItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleNumberingListItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleBulletedListItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleMultiLevelListItem1) + Me.richEditBarController1.BarItems.Add(Me.decreaseIndentItem1) + Me.richEditBarController1.BarItems.Add(Me.increaseIndentItem1) + Me.richEditBarController1.BarItems.Add(Me.toggleShowWhitespaceItem1) + Me.richEditBarController1.BarItems.Add(Me.showParagraphFormItem1) + Me.richEditBarController1.BarItems.Add(Me.cutItem1) + Me.richEditBarController1.BarItems.Add(Me.copyItem1) + Me.richEditBarController1.BarItems.Add(Me.pasteItem1) + Me.richEditBarController1.BarItems.Add(Me.quickPrintItem1) + Me.richEditBarController1.BarItems.Add(Me.printItem1) + Me.richEditBarController1.BarItems.Add(Me.printPreviewItem1) + Me.richEditBarController1.BarItems.Add(Me.undoItem1) + Me.richEditBarController1.BarItems.Add(Me.redoItem1) + Me.richEditBarController1.BarItems.Add(Me.findItem1) + Me.richEditBarController1.BarItems.Add(Me.replaceItem1) + Me.richEditBarController1.BarItems.Add(Me.changeStyleItem1) + Me.richEditBarController1.BarItems.Add(Me.zoomOutItem1) + Me.richEditBarController1.BarItems.Add(Me.zoomInItem1) + Me.richEditBarController1.BarItems.Add(Me.insertPictureItem1) + Me.richEditBarController1.BarItems.Add(Me.insertPageBreakItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertMergeFieldItem1) + Me.richEditBarController1.BarItems.Add(Me.ShowAllFieldCodesItem1) + Me.richEditBarController1.BarItems.Add(Me.ShowAllFieldResultsItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleViewMergedDataItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertTableItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertBookmarkItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertHyperlinkItem1) + Me.richEditBarController1.BarItems.Add(Me.EditPageHeaderItem1) + Me.richEditBarController1.BarItems.Add(Me.EditPageFooterItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertPageNumberItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertPageCountItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertSymbolItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeSectionPageMarginsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetNormalSectionPageMarginsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetNarrowSectionPageMarginsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetModerateSectionPageMarginsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetWideSectionPageMarginsItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeSectionPageOrientationItem1) + Me.richEditBarController1.BarItems.Add(Me.SetPortraitPageOrientationItem1) + Me.richEditBarController1.BarItems.Add(Me.SetLandscapePageOrientationItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeSectionColumnsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetSectionOneColumnItem1) + Me.richEditBarController1.BarItems.Add(Me.SetSectionTwoColumnsItem1) + Me.richEditBarController1.BarItems.Add(Me.SetSectionThreeColumnsItem1) + Me.richEditBarController1.BarItems.Add(Me.SwitchToSimpleViewItem1) + Me.richEditBarController1.BarItems.Add(Me.SwitchToDraftViewItem1) + Me.richEditBarController1.BarItems.Add(Me.SwitchToPrintLayoutViewItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleShowHorizontalRulerItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleShowVerticalRulerItem1) + Me.richEditBarController1.BarItems.Add(Me.GoToPageHeaderItem1) + Me.richEditBarController1.BarItems.Add(Me.GoToPageFooterItem1) + Me.richEditBarController1.BarItems.Add(Me.GoToNextHeaderFooterItem1) + Me.richEditBarController1.BarItems.Add(Me.GoToPreviousHeaderFooterItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleLinkToPreviousItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleDifferentFirstPageItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleDifferentOddAndEvenPagesItem1) + Me.richEditBarController1.BarItems.Add(Me.ClosePageHeaderFooterItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeTableCellsShadingItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeTableBordersItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsBottomBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsTopBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsLeftBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsRightBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ResetTableCellsAllBordersItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsAllBordersItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsOutsideBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsInsideBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsInsideHorizontalBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsInsideVerticalBorderItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleShowTableGridLinesItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeTableBorderLineStyleItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeTableBorderLineWeightItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeTableBorderColorItem1) + Me.richEditBarController1.BarItems.Add(Me.SelectTableElementsItem1) + Me.richEditBarController1.BarItems.Add(Me.SelectTableCellItem1) + Me.richEditBarController1.BarItems.Add(Me.SelectTableColumnItem1) + Me.richEditBarController1.BarItems.Add(Me.SelectTableRowItem1) + Me.richEditBarController1.BarItems.Add(Me.SelectTableItem1) + Me.richEditBarController1.BarItems.Add(Me.DeleteTableElementsItem1) + Me.richEditBarController1.BarItems.Add(Me.ShowDeleteTableCellsFormItem1) + Me.richEditBarController1.BarItems.Add(Me.DeleteTableColumnsItem1) + Me.richEditBarController1.BarItems.Add(Me.DeleteTableRowsItem1) + Me.richEditBarController1.BarItems.Add(Me.DeleteTableItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertTableRowAboveItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertTableRowBelowItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertTableColumnToLeftItem1) + Me.richEditBarController1.BarItems.Add(Me.InsertTableColumnToRightItem1) + Me.richEditBarController1.BarItems.Add(Me.ShowInsertTableCellsFormItem1) + Me.richEditBarController1.BarItems.Add(Me.MergeTableCellsItem1) + Me.richEditBarController1.BarItems.Add(Me.ShowSplitTableCellsForm1) + Me.richEditBarController1.BarItems.Add(Me.SplitTableItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsTopLeftAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsTopCenterAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsTopRightAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsMiddleLeftAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsMiddleCenterAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsMiddleRightAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsBottomLeftAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsBottomCenterAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ToggleTableCellsBottomRightAlignmentItem1) + Me.richEditBarController1.BarItems.Add(Me.ProtectDocumentItem1) + Me.richEditBarController1.BarItems.Add(Me.ChangeRangeEditingPermissionsItem1) + Me.richEditBarController1.BarItems.Add(Me.UnprotectDocumentItem1) + Me.richEditBarController1.BarItems.Add(Me.FileOpenItem2) + Me.richEditBarController1.BarItems.Add(Me.FileSaveItem2) + Me.richEditBarController1.BarItems.Add(Me.FileSaveAsItem1) + Me.richEditBarController1.Control = Me.richEditControl_Renamed + ' + 'RichEditUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.richEditControl_Renamed) + Me.Controls.Add(Me.ribbonControl1) + Me.Name = "RichEditUserControl" + Me.Size = New System.Drawing.Size(1226, 674) + CType(Me.ribbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.repositoryItemRichEditStyleEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemBorderLineStyle1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemBorderLineWeight1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.repositoryItemFontEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.repositoryItemRichEditFontSizeEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.richEditBarController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub +#End Region + Private fileOpenItem1 As DevExpress.XtraRichEdit.UI.FileOpenItem + Private fileSaveItem1 As DevExpress.XtraRichEdit.UI.FileSaveItem + Private ribbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Private repositoryItemFontEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemFontEdit + Private repositoryItemRichEditFontSizeEdit1 As DevExpress.XtraRichEdit.Design.RepositoryItemRichEditFontSizeEdit + Private richEditControl_Renamed As DevExpress.XtraRichEdit.RichEditControl + Private changeFontColorItem1 As DevExpress.XtraRichEdit.UI.ChangeFontColorItem + Private changeFontBackColorItem1 As DevExpress.XtraRichEdit.UI.ChangeFontBackColorItem + Private toggleFontBoldItem1 As DevExpress.XtraRichEdit.UI.ToggleFontBoldItem + Private toggleFontItalicItem1 As DevExpress.XtraRichEdit.UI.ToggleFontItalicItem + Private toggleFontUnderlineItem1 As DevExpress.XtraRichEdit.UI.ToggleFontUnderlineItem + Private toggleFontDoubleUnderlineItem1 As DevExpress.XtraRichEdit.UI.ToggleFontDoubleUnderlineItem + Private toggleFontStrikeoutItem1 As DevExpress.XtraRichEdit.UI.ToggleFontStrikeoutItem + Private toggleFontDoubleStrikeoutItem1 As DevExpress.XtraRichEdit.UI.ToggleFontDoubleStrikeoutItem + Private toggleFontSuperscriptItem1 As DevExpress.XtraRichEdit.UI.ToggleFontSuperscriptItem + Private toggleFontSubscriptItem1 As DevExpress.XtraRichEdit.UI.ToggleFontSubscriptItem + Private fontSizeIncreaseItem1 As DevExpress.XtraRichEdit.UI.FontSizeIncreaseItem + Private fontSizeDecreaseItem1 As DevExpress.XtraRichEdit.UI.FontSizeDecreaseItem + Private showFontFormItem1 As DevExpress.XtraRichEdit.UI.ShowFontFormItem + Private toggleParagraphAlignmentLeftItem1 As DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentLeftItem + Private toggleParagraphAlignmentCenterItem1 As DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentCenterItem + Private toggleParagraphAlignmentRightItem1 As DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentRightItem + Private toggleParagraphAlignmentJustifyItem1 As DevExpress.XtraRichEdit.UI.ToggleParagraphAlignmentJustifyItem + Private toggleNumberingListItem1 As DevExpress.XtraRichEdit.UI.ToggleNumberingListItem + Private toggleBulletedListItem1 As DevExpress.XtraRichEdit.UI.ToggleBulletedListItem + Private toggleMultiLevelListItem1 As DevExpress.XtraRichEdit.UI.ToggleMultiLevelListItem + Private decreaseIndentItem1 As DevExpress.XtraRichEdit.UI.DecreaseIndentItem + Private increaseIndentItem1 As DevExpress.XtraRichEdit.UI.IncreaseIndentItem + Private toggleShowWhitespaceItem1 As DevExpress.XtraRichEdit.UI.ToggleShowWhitespaceItem + Private showParagraphFormItem1 As DevExpress.XtraRichEdit.UI.ShowParagraphFormItem + Private cutItem1 As DevExpress.XtraRichEdit.UI.CutItem + Private copyItem1 As DevExpress.XtraRichEdit.UI.CopyItem + Private pasteItem1 As DevExpress.XtraRichEdit.UI.PasteItem + Private quickPrintItem1 As DevExpress.XtraRichEdit.UI.QuickPrintItem + Private printItem1 As DevExpress.XtraRichEdit.UI.PrintItem + Private printPreviewItem1 As DevExpress.XtraRichEdit.UI.PrintPreviewItem + Private undoItem1 As DevExpress.XtraRichEdit.UI.UndoItem + Private redoItem1 As DevExpress.XtraRichEdit.UI.RedoItem + Private findItem1 As DevExpress.XtraRichEdit.UI.FindItem + Private replaceItem1 As DevExpress.XtraRichEdit.UI.ReplaceItem + Private changeStyleItem1 As DevExpress.XtraRichEdit.UI.ChangeStyleItem + Private repositoryItemRichEditStyleEdit1 As DevExpress.XtraRichEdit.Design.RepositoryItemRichEditStyleEdit + Private zoomOutItem1 As DevExpress.XtraRichEdit.UI.ZoomOutItem + Private zoomInItem1 As DevExpress.XtraRichEdit.UI.ZoomInItem + Private insertPictureItem1 As DevExpress.XtraRichEdit.UI.InsertPictureItem + Private insertPageBreakItem1 As DevExpress.XtraRichEdit.UI.InsertPageBreakItem + Private fontRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.FontRibbonPageGroup + Private paragraphRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.ParagraphRibbonPageGroup + Private clipboardRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.ClipboardRibbonPageGroup + Private editingRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.EditingRibbonPageGroup + Private stylesRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.StylesRibbonPageGroup + Private zoomRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.ZoomRibbonPageGroup + Private insertRibbonPage1 As DevExpress.XtraRichEdit.UI.InsertRibbonPage + Private illustrationsRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.IllustrationsRibbonPageGroup + Private pagesRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.PagesRibbonPageGroup + Private richEditBarController1 As DevExpress.XtraRichEdit.UI.RichEditBarController + Private fontRibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents InsertMergeFieldItem1 As DevExpress.XtraRichEdit.UI.InsertMergeFieldItem + Friend WithEvents ShowAllFieldCodesItem1 As DevExpress.XtraRichEdit.UI.ShowAllFieldCodesItem + Friend WithEvents ShowAllFieldResultsItem1 As DevExpress.XtraRichEdit.UI.ShowAllFieldResultsItem + Friend WithEvents ToggleViewMergedDataItem1 As DevExpress.XtraRichEdit.UI.ToggleViewMergedDataItem + Friend WithEvents InsertTableItem1 As DevExpress.XtraRichEdit.UI.InsertTableItem + Friend WithEvents InsertBookmarkItem1 As DevExpress.XtraRichEdit.UI.InsertBookmarkItem + Friend WithEvents InsertHyperlinkItem1 As DevExpress.XtraRichEdit.UI.InsertHyperlinkItem + Friend WithEvents EditPageHeaderItem1 As DevExpress.XtraRichEdit.UI.EditPageHeaderItem + Friend WithEvents EditPageFooterItem1 As DevExpress.XtraRichEdit.UI.EditPageFooterItem + Friend WithEvents InsertPageNumberItem1 As DevExpress.XtraRichEdit.UI.InsertPageNumberItem + Friend WithEvents InsertPageCountItem1 As DevExpress.XtraRichEdit.UI.InsertPageCountItem + Friend WithEvents InsertSymbolItem1 As DevExpress.XtraRichEdit.UI.InsertSymbolItem + Friend WithEvents ChangeSectionPageMarginsItem1 As DevExpress.XtraRichEdit.UI.ChangeSectionPageMarginsItem + Friend WithEvents SetNormalSectionPageMarginsItem1 As DevExpress.XtraRichEdit.UI.SetNormalSectionPageMarginsItem + Friend WithEvents SetNarrowSectionPageMarginsItem1 As DevExpress.XtraRichEdit.UI.SetNarrowSectionPageMarginsItem + Friend WithEvents SetModerateSectionPageMarginsItem1 As DevExpress.XtraRichEdit.UI.SetModerateSectionPageMarginsItem + Friend WithEvents SetWideSectionPageMarginsItem1 As DevExpress.XtraRichEdit.UI.SetWideSectionPageMarginsItem + Friend WithEvents ChangeSectionPageOrientationItem1 As DevExpress.XtraRichEdit.UI.ChangeSectionPageOrientationItem + Friend WithEvents SetPortraitPageOrientationItem1 As DevExpress.XtraRichEdit.UI.SetPortraitPageOrientationItem + Friend WithEvents SetLandscapePageOrientationItem1 As DevExpress.XtraRichEdit.UI.SetLandscapePageOrientationItem + Friend WithEvents ChangeSectionColumnsItem1 As DevExpress.XtraRichEdit.UI.ChangeSectionColumnsItem + Friend WithEvents SetSectionOneColumnItem1 As DevExpress.XtraRichEdit.UI.SetSectionOneColumnItem + Friend WithEvents SetSectionTwoColumnsItem1 As DevExpress.XtraRichEdit.UI.SetSectionTwoColumnsItem + Friend WithEvents SetSectionThreeColumnsItem1 As DevExpress.XtraRichEdit.UI.SetSectionThreeColumnsItem + Friend WithEvents SwitchToSimpleViewItem1 As DevExpress.XtraRichEdit.UI.SwitchToSimpleViewItem + Friend WithEvents SwitchToDraftViewItem1 As DevExpress.XtraRichEdit.UI.SwitchToDraftViewItem + Friend WithEvents SwitchToPrintLayoutViewItem1 As DevExpress.XtraRichEdit.UI.SwitchToPrintLayoutViewItem + Friend WithEvents ToggleShowHorizontalRulerItem1 As DevExpress.XtraRichEdit.UI.ToggleShowHorizontalRulerItem + Friend WithEvents ToggleShowVerticalRulerItem1 As DevExpress.XtraRichEdit.UI.ToggleShowVerticalRulerItem + Friend WithEvents GoToPageHeaderItem1 As DevExpress.XtraRichEdit.UI.GoToPageHeaderItem + Friend WithEvents GoToPageFooterItem1 As DevExpress.XtraRichEdit.UI.GoToPageFooterItem + Friend WithEvents GoToNextHeaderFooterItem1 As DevExpress.XtraRichEdit.UI.GoToNextHeaderFooterItem + Friend WithEvents GoToPreviousHeaderFooterItem1 As DevExpress.XtraRichEdit.UI.GoToPreviousHeaderFooterItem + Friend WithEvents ToggleLinkToPreviousItem1 As DevExpress.XtraRichEdit.UI.ToggleLinkToPreviousItem + Friend WithEvents ToggleDifferentFirstPageItem1 As DevExpress.XtraRichEdit.UI.ToggleDifferentFirstPageItem + Friend WithEvents ToggleDifferentOddAndEvenPagesItem1 As DevExpress.XtraRichEdit.UI.ToggleDifferentOddAndEvenPagesItem + Friend WithEvents ClosePageHeaderFooterItem1 As DevExpress.XtraRichEdit.UI.ClosePageHeaderFooterItem + Friend WithEvents ChangeTableCellsShadingItem1 As DevExpress.XtraRichEdit.UI.ChangeTableCellsShadingItem + Friend WithEvents ChangeTableBordersItem1 As DevExpress.XtraRichEdit.UI.ChangeTableBordersItem + Friend WithEvents ToggleTableCellsBottomBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomBorderItem + Friend WithEvents ToggleTableCellsTopBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsTopBorderItem + Friend WithEvents ToggleTableCellsLeftBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsLeftBorderItem + Friend WithEvents ToggleTableCellsRightBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsRightBorderItem + Friend WithEvents ResetTableCellsAllBordersItem1 As DevExpress.XtraRichEdit.UI.ResetTableCellsAllBordersItem + Friend WithEvents ToggleTableCellsAllBordersItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsAllBordersItem + Friend WithEvents ToggleTableCellsOutsideBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsOutsideBorderItem + Friend WithEvents ToggleTableCellsInsideBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideBorderItem + Friend WithEvents ToggleTableCellsInsideHorizontalBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideHorizontalBorderItem + Friend WithEvents ToggleTableCellsInsideVerticalBorderItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsInsideVerticalBorderItem + Friend WithEvents ToggleShowTableGridLinesItem1 As DevExpress.XtraRichEdit.UI.ToggleShowTableGridLinesItem + Friend WithEvents ChangeTableBorderLineStyleItem1 As DevExpress.XtraRichEdit.UI.ChangeTableBorderLineStyleItem + Friend WithEvents RepositoryItemBorderLineStyle1 As DevExpress.XtraRichEdit.Forms.Design.RepositoryItemBorderLineStyle + Friend WithEvents ChangeTableBorderLineWeightItem1 As DevExpress.XtraRichEdit.UI.ChangeTableBorderLineWeightItem + Friend WithEvents RepositoryItemBorderLineWeight1 As DevExpress.XtraRichEdit.Forms.Design.RepositoryItemBorderLineWeight + Friend WithEvents ChangeTableBorderColorItem1 As DevExpress.XtraRichEdit.UI.ChangeTableBorderColorItem + Friend WithEvents SelectTableElementsItem1 As DevExpress.XtraRichEdit.UI.SelectTableElementsItem + Friend WithEvents SelectTableCellItem1 As DevExpress.XtraRichEdit.UI.SelectTableCellItem + Friend WithEvents SelectTableColumnItem1 As DevExpress.XtraRichEdit.UI.SelectTableColumnItem + Friend WithEvents SelectTableRowItem1 As DevExpress.XtraRichEdit.UI.SelectTableRowItem + Friend WithEvents SelectTableItem1 As DevExpress.XtraRichEdit.UI.SelectTableItem + Friend WithEvents DeleteTableElementsItem1 As DevExpress.XtraRichEdit.UI.DeleteTableElementsItem + Friend WithEvents ShowDeleteTableCellsFormItem1 As DevExpress.XtraRichEdit.UI.ShowDeleteTableCellsFormItem + Friend WithEvents DeleteTableColumnsItem1 As DevExpress.XtraRichEdit.UI.DeleteTableColumnsItem + Friend WithEvents DeleteTableRowsItem1 As DevExpress.XtraRichEdit.UI.DeleteTableRowsItem + Friend WithEvents DeleteTableItem1 As DevExpress.XtraRichEdit.UI.DeleteTableItem + Friend WithEvents InsertTableRowAboveItem1 As DevExpress.XtraRichEdit.UI.InsertTableRowAboveItem + Friend WithEvents InsertTableRowBelowItem1 As DevExpress.XtraRichEdit.UI.InsertTableRowBelowItem + Friend WithEvents InsertTableColumnToLeftItem1 As DevExpress.XtraRichEdit.UI.InsertTableColumnToLeftItem + Friend WithEvents InsertTableColumnToRightItem1 As DevExpress.XtraRichEdit.UI.InsertTableColumnToRightItem + Friend WithEvents ShowInsertTableCellsFormItem1 As DevExpress.XtraRichEdit.UI.ShowInsertTableCellsFormItem + Friend WithEvents MergeTableCellsItem1 As DevExpress.XtraRichEdit.UI.MergeTableCellsItem + Friend WithEvents ShowSplitTableCellsForm1 As DevExpress.XtraRichEdit.UI.ShowSplitTableCellsForm + Friend WithEvents SplitTableItem1 As DevExpress.XtraRichEdit.UI.SplitTableItem + Friend WithEvents ToggleTableCellsTopLeftAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsTopLeftAlignmentItem + Friend WithEvents ToggleTableCellsTopCenterAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsTopCenterAlignmentItem + Friend WithEvents ToggleTableCellsTopRightAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsTopRightAlignmentItem + Friend WithEvents ToggleTableCellsMiddleLeftAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleLeftAlignmentItem + Friend WithEvents ToggleTableCellsMiddleCenterAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleCenterAlignmentItem + Friend WithEvents ToggleTableCellsMiddleRightAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsMiddleRightAlignmentItem + Friend WithEvents ToggleTableCellsBottomLeftAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomLeftAlignmentItem + Friend WithEvents ToggleTableCellsBottomCenterAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomCenterAlignmentItem + Friend WithEvents ToggleTableCellsBottomRightAlignmentItem1 As DevExpress.XtraRichEdit.UI.ToggleTableCellsBottomRightAlignmentItem + Friend WithEvents ProtectDocumentItem1 As DevExpress.XtraRichEdit.UI.ProtectDocumentItem + Friend WithEvents ChangeRangeEditingPermissionsItem1 As DevExpress.XtraRichEdit.UI.ChangeRangeEditingPermissionsItem + Friend WithEvents UnprotectDocumentItem1 As DevExpress.XtraRichEdit.UI.UnprotectDocumentItem + Private WithEvents HeaderFooterToolsRibbonPageCategory1 As DevExpress.XtraRichEdit.UI.HeaderFooterToolsRibbonPageCategory + Friend WithEvents HeaderFooterToolsDesignRibbonPage1 As DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignRibbonPage + Friend WithEvents HeaderFooterToolsDesignNavigationRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignNavigationRibbonPageGroup + Friend WithEvents HeaderFooterToolsDesignOptionsRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignOptionsRibbonPageGroup + Friend WithEvents HeaderFooterToolsDesignCloseRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.HeaderFooterToolsDesignCloseRibbonPageGroup + Private WithEvents TableToolsRibbonPageCategory1 As DevExpress.XtraRichEdit.UI.TableToolsRibbonPageCategory + Friend WithEvents TableDesignRibbonPage1 As DevExpress.XtraRichEdit.UI.TableDesignRibbonPage + Friend WithEvents TableStylesRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableStylesRibbonPageGroup + Friend WithEvents TableDrawBordersRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableDrawBordersRibbonPageGroup + Friend WithEvents TableLayoutRibbonPage1 As DevExpress.XtraRichEdit.UI.TableLayoutRibbonPage + Friend WithEvents TableTableRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableTableRibbonPageGroup + Friend WithEvents TableRowsAndColumnsRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableRowsAndColumnsRibbonPageGroup + Friend WithEvents TableMergeRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableMergeRibbonPageGroup + Friend WithEvents TableAlignmentRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TableAlignmentRibbonPageGroup + Friend WithEvents TablesRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.TablesRibbonPageGroup + Friend WithEvents LinksRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.LinksRibbonPageGroup + Friend WithEvents HeaderFooterRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.HeaderFooterRibbonPageGroup + Friend WithEvents SymbolsRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.SymbolsRibbonPageGroup + Friend WithEvents MailingsRibbonPage1 As DevExpress.XtraRichEdit.UI.MailingsRibbonPage + Friend WithEvents MailMergeRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.MailMergeRibbonPageGroup + Friend WithEvents PageLayoutRibbonPage1 As DevExpress.XtraRichEdit.UI.PageLayoutRibbonPage + Friend WithEvents PageSetupRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.PageSetupRibbonPageGroup + Friend WithEvents ViewRibbonPage1 As DevExpress.XtraRichEdit.UI.ViewRibbonPage + Friend WithEvents DocumentViewsRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.DocumentViewsRibbonPageGroup + Friend WithEvents ShowRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.ShowRibbonPageGroup + Friend WithEvents ReviewRibbonPage1 As DevExpress.XtraRichEdit.UI.ReviewRibbonPage + Friend WithEvents DocumentProtectionRibbonPageGroup1 As DevExpress.XtraRichEdit.UI.DocumentProtectionRibbonPageGroup + Friend WithEvents FileOpenItem2 As DevExpress.XtraRichEdit.UI.FileOpenItem + Friend WithEvents FileSaveItem2 As DevExpress.XtraRichEdit.UI.FileSaveItem + Friend WithEvents FileSaveAsItem1 As DevExpress.XtraRichEdit.UI.FileSaveAsItem + Friend WithEvents FileRibbonPage1 As DevExpress.XtraRichEdit.UI.FileRibbonPage + Friend WithEvents CommonRibbonPageGroup2 As DevExpress.XtraRichEdit.UI.CommonRibbonPageGroup +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.resx b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.resx new file mode 100644 index 0000000..bde7625 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.resx @@ -0,0 +1,6203 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAFlSURBVDhPzdC7 + SgNREAbggUAKzW032UQbwcoqDyCom/tlEwWrtHkAUZPdxCRrro2tleB7CNYi2FhZ2NmnFdIK4382ETKg + hbGxmF3+Zb8zM4eY+U/17cfflAibRxPaOERVx5SojihRGd3FreG7UR74jXKfYqVLihZdYURYxvHKcCtu + DT6A2Sj1a7GSC9wjvdAVRgQPVzxMwGN0fUBXjhXdx2hhjrVcRxgRPGx52Ac8Bd7FyDO90GPgpJbvUCTX + FkYEhQ1rQMDHwE9qX+BbPd9hLXdxE8m2KZxpCSMC9lUYl+XeY9+6Ghk4CczAM+BwKG0LI4K6ZeBtYNbz + XcbIHFE40+Zw2uFQyj4JpprCiLAY+Qqdr7191cjZFsZ2aujMQbP5GjAbwogA7MPIU4y887VvKO0QOvuD + ZmMaODjn9f2zzLIRB6Dr22Lf5zm2SY2MrnXgF2Be2zvFrz8csErNH3itUv/hAKZPz/Hz+7f0jEgAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAVWSURBVFhHxZbZ + c1RVEMZBgUCSmSQzk1kyyeyThEWIguWCEsQiIcFsErLvkECh8oAbWxUiZFUMIhWDCYYtIEZ8sNR3ywe1 + yjd980WK8j1V/gHt953cO547uRIfKDhVv0r6nL7dffp0nzPLRMTC/xyPgRUgw4D/LweL7C2FRcgpO7Qk + hqMV8Y7pV0oOfi15Ww7LmtDLQc5xze6bdHSfFsFOOR0M7n51om/2avGBOxKoGhXnht73Occ1u2/S0X1a + BDtlHQy1e+8L/UVJOE8O3JFY93XJ2XTwLuadYCV17L7V0X1aBDtlHQzuPiPWPXM6OfAVAgD9c+LbeVYc + 67vexNoa6th9q6P7tAh2yiYYavcgO9n/5Z90TBL75yTUfEmcGwd+xFqOoXPfLOg+LYKdsgmNgoxo22RP + oGpECuvGRuK9N35L7L8tiX23xf38O5IVr90JnSVrQfdpEeyUTTAeB1nxvps/uJ45Is519c+G954/muj7 + QuJ9tyRYO45i7JuFDmvhvlnQfVoEO2VCY2BVQeXRsqI9F5Hu/m8gu3I37E7Ge2/Ox3pvCsndfFgy8jcV + Y41ZeKABcPeZsa4r17wvnRLH2vZ9kLOAM9R0YTjWO4sAZsVXMSiOdZ0jmHcY39gGofu0CHbKNAJWujc3 + R6JtM/NGy+UC3oCr87cdejrac0OiaMdw6xRa8sA9zHuN9QcSAFtvTaR18oy/ckic63vOQubuuUP2fW64 + 9dPvI13XJNJ1Vbw73hNHaetxzKss2NnUfVqEdEUMs/Vyoj3X76oz9j2VgMzdMTBVmP5dJ1ojXVck3HlF + gg0fi/OJ/T9hPh+sAouyoPu0COmKGOraDdYONRYuGP4OshvwwqFxwmwUhNqm7oU7PpdQ+2VxPfeWZEYq + ajCfDRZlQfdpEdIVMbh7Z7ht6lvPi8ckK7a7B3Ih4BlzhyQAYr6KY4N0XtQ2Jb6qYdyM3XOY94BFWdB9 + WgRdiR+BDO+217ZEu3m+1ySKMzZTHe6ckXDHZbVj07Gi9TNwCS35hqxylWyEDWbIcjHpPi2CroTB880u + bBwfYnGlHHcYjg3n6Y4LW0DzpOTvOCXZpS3jsMEjszxSuk+LoDlXFw9wRzpn5ll8K/OSZZCZbqbfZ+A3 + KABhx9rKqmDzhASbJiTQgJtx48BfmA+BTJDKgu7TImgBqOoO1o++G6ge43t/C3J68ZmYv4pYcMFA/dgv + waaLEtx7UdzlxyW7uPE05l0gdT3rPv/9B8Nwrp5c4Am1TP7u3npUshJ17ZBTd/x/wLU8T/nhIwV7P5FA + 4wXxVg8z+F8xHwGqIwB1rQEYwzTCe9zl33XydbOl8JOrgXPGmjKiZYvfmUHzhizxN3z0t3/PefG/Oi6u + rXglY9XHMF8EuAnq0YbuWxlhOvme+wvqhsdC7dOquAJ15ySnbOBn1MCTWOP5cyepdGLQOY+GLRkFm701 + g38gCPE3nBMfMI5iAmulgHWkagKkBiNyLLTUtOBSgXNUdQthZU+isifEs/0kHpuOt6GrfvkAM2tuc8e6 + Y1/9h+AD8daOgRHJrz5rvhUMlp2RGgsBpNrJ6tisbE/5CTMAcwcMgIbcC44N54Zjn3I8uuC8ZkQ8u87o + j5VqTaAGjfFseARsL6aJrcWf24S3H/9yjefI49IzwGNhO4ZBHPC9ICWAaSf8Pwlohw+VOkagBo0xIhYZ + d8fbi0apmA7nqcNj4F/KDCoPsFWZXv2e4GaIuRnOm885/aooWI6PAlUHjMJu8WHALKgCtFt8GPDIH2kA + KgOP8gjUjcgiNLuAETEtJqz0dFj56bBr7GCHpMN52kEbLlv+D3yoJbMCEbr+AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAG8SURBVDhPnY5L + LwNhFEBva0HSigUzjaLiVVVTaYMgklYq3qlovVpUorpAvFZWiA0rCYmtyPwAYUnEhi4a7QgLYtd1NxL/ + 4Lrf6FRrijDJ+R6Te84MIKIKemhTv8/Fx0IbESF6lbsy8BufBwAzEUmd2cI4JcwvBgM8E48cp5V4fksS + hLd7p1OMWK3tbFgWCVlSAhnRkyeeh4eSEm2c56Mko+R0Isl4rteLbIjJ5i9iZuBSljkuGm9sRMnlwlsm + 63R4kpf3pgxJBDPSgRSXOo3GElNk+rIs6/VMxiONZosZaWbDG+CfXYfRwBIMj4Vh39GhvSM5RnI8JZ99 + ytF9gPyswGRwDXz+RfD45qHPE4SewcDFQVcfxki+aWhQyYT8z2l2hRYY8s5B79A0dA/4Hd6JMAZDq7jX + 6c4pqwJXdN+us4G7fwJGxkOHwbkVHPBMYVOzG0N8hUrOGWDs2FpM/pmFRL8ngILDhTWWNqysdTyMFRmy + 5O8CpuuCgsSmxc7k16r61uOKGnursdIGfLkVfIXcjwETkSCQeF0uNjaXV9uh1CTIMlf2gTcjIouiKOJ/ + YG46kEwm/4Qq8B8QEd4BqXzq1WgjeLgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAATASURBVFhHxZZZ + UFNnFIBPWCubJRAsEAKyhoA0IDisOoKCM85YWcISMIAhgbAbtmLRTmvVqrXVaV/a6dj4wJv2qS1UOkJL + Kba143SzZfWVF2Z8LA+d03PCvcwlCST0Qf6ZL//9T27Od/6NARBxV3EZfJG4DDpCjbrNsQcU/HJPAFwy + 9sPIwDWYzciCxagoV+QuqVS2pdTU58+KimxLZWW5fxUWwi+Jieu5HRO7wlUBHsq1iyrVPyTHZ4WFSHIk + OZL84vdhYeu5HROzTGCaKBVj0ncYj+QxMassXxbkT6l/nJiI02Fh+E1QUC7n2ZRUCrVkYlp45g+Re0Sy + O/kCyRcF+WJpKT4tKJDK8XN/f5s9t1TqCAulvfDMhd3ZSr4gkS9J5QkJUjl+5u393J5PTCxJzkvPAztC + 3N6L8Hg7+YJabZcvkPxPkv9M8u9IPkHy++ty/FAmc14BaixPloyp86yAhchI7bwgXySpG/m/7wE4nwFq + jwl7AdwT9Li5ACE+viEm5gX5vFSen48/kfxbZ/kayU8Q6/nExJLkXAQP7AjxjTExTiRL5XNK5YZ8nuR/ + iHK5HB8EBuJ9Pz8nucsCpIj3fGDkNvSd/wB6h27AaOlp6ZLDnChPSdlWfseF3G0BG/Lh96Fn8AZ09l2F + tu634W7xSZ61Xf43yedIvkDyuePH8XdBPuWB3G0B/W/cAuvwTZJfhw7rZWjteguMlhEwtAzCxwUlzvK8 + PPwxPh6nQkPxaw/kDHucxCLnXr8J3f3XoL33HTB3vgnNreeh4ewA1Jzp0erqO1Y/KT6J84L8t/8hZ9jj + JBbp6n8XLD2XwNRxEZrMw1Df3AfVDV3yqjrLau2ZTjS2DuDdOgP+SvJHJJ8U5Pc8lDPscRKL8H63tF+A + RtMQ6JusoNN3QkVtW0hNfTs2m/vQ3D6E+sYOvJJdgA9JPh4QsCP5bYI9TmIRcb9rDb1QWdcO5TVmqNZb + GptMVjRZBlFvaMfiMh1qDx1DqzJhx/IvCPY4iUWuZxXwftOsLXBaZ4IqfZtXU8u5WVNbP9Y1WPBoaRW+ + ml2C6vQC3J+SgwZ55I7k/P8Ee5zEIvzC5fRsOFVlhMraVj+DsXfM2NqP1fVteORYBWYcLMaUtHyMSz6I + yv1afEWVvlYRrPBY7lEBEz4+cDW70LuhuXvsrNmKOr0ZD5eU44Gso5ikycO4pCyMjsvAfTFpaxHRmhOK + aA2UBys8krstgOWTcjnMqNXw0anKW7o6ExYVv4bpmUcwMTUXYxMzZ6NiMxpJvpfk0SxXRGkgnHAswpXc + bQEPQ0JgJiUFHuXkqH5IS1u+oMnENO1hjFcfwpgE7ZOo2AP+EUoNkBxYzmIp9YHybeWbCnDVphQKILFq + RqNZngwPxwlf39Wu8OhPlfHaJ5GqdDnL7bN2IVfvS4JRb18YpTxbyZmt3DJmLCAgdioiYpn/wLD8K5ks + m+OGkPAA8R0Br23w3gL+jn+70XjAX/hI8CX8BPwFXhLYI8DFBAoECQQTIQJ7iZcFQgm50PM7nJcLAZnN + ZsPdgNw8SfDiwcrKygtFKIBXFbx3sQDezl0twL4C9i3YDXjyXIB4lfhASE+69LRL4ZPviHgTHBFvhhSO + cx66aSD7D/WQWMuHh8ZVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABUElEQVQ4T6WQW26CUBRFzwzaxmoVlYeC + IKIIQvFFQZT4iLFpOgCHogPph5PqPDqD3Yt/ekms6cf6ODt73ZNzCcC/yA3vITe8By7Y7D6x2n4gXb9j + vtxilm4QJavTNE6Ho3DO9bkgXe+iTIwXG7wlS2LifhwmCCbxyRuGXJ8L4sWawtkSkyjFKEwomEQPTITr + j3/swZDrc8EkWtAwnOF1HMELpuT4433PDWA5/snsuVyfC5hIg2AKJsLOxL6PdteF3ul/qUZXuO5fDBmO + P6LzRttjokN6xyYmHhotE5JqHK/7F0NGx/aobTlomTZUwyJFM0lqGmZd0VCVmt/X/Ysho2X2SNUtMJFt + 1Kkua1QVm2alrqAkSLcfULR2JDV01GQNgtigck2mkiAeipUaCqXq7RNqspqJYCLbKOK5fBbxVKwcHwsv + tz/xXnLDe8gN/w7oFzDDaLU62zSyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGeElEQVRYR8VWSW9bVRh9HSDN5CSeHU/P + s+Mhdhw7juMkdZM4c5o2aZuppQMUlbYCKoYfABtYIFXqkiU7fgPddFuJDUVij8Qa+gc+zrl+z3kmLq1Y + lCsdvfvu8J3zDe+zNRH5X9F18W3ieHI8TnXB6dfgjGVu3ukYVlIrjietwYs0dhZ410CPgXMW9BroM9Bv + gGs8y/umGDWspFYcTwxPj24/enp06xM5BPg8uPmx7F1/KPvXH+D5QK4efCS7+/eAD2Vn767sXLsr21fe + l63dO7Jx6ebPyxv7X8GODaAYCjmVyla1ZGaqg7jN254Y3hfLjaeA1Oc3W4SH94EWaWW6KbnirOQKs5Id + r0tmfEbyxTmZwdmN7fdkbeuGrG5dl5XNI5msLn4Ge4PAO7SdSFc6iNu87UlrMGxm+HtXtg4v7tDTax8o + L7OFukTi+QXs0cMBA4MuT0jP5GtfL63tyfLagSyt7svCyp7kJ+Z/MM4qEVbiNm97cjxUKgAK6b+4i/Du + 3JbNyzdlLF/jQRqkQO5b62UglpxoNppX/2w0d6WxtCO12U0JRXKfY491Qpsd5Iq34wUjV6hrCC+nNN63 + ztBebIUWueQhhlXllmHl0wDXBiq15S9nG5el3tiWmfMXRY+N/4L1IWP/RBQ6Xgh4qY3lajirFPctbxzJ + 8vqhNNcPJDFWMQWciafKWiw1qcWSk1o0WeJ5iugZDcSSM3NbMg3vq/UNpGyCdxxA1zR0vBCpTFUBgxHo + X1zdk8WVa3KheVViqXI7AiSNJkoaCBQwKIAkzqn6ulRqq1IsL0hIz4ttyBU39l4vIDlW0eApzioBA42l + K3Ie+ZxfvCwgpADWwFkdpHqsCBS0cLTA8yoCgHuyuiylqWWJpyriD2VeYG0EeLMUmKHFoIDB2cYl5HJb + avPIZ7xIAcOAMhaOjuPRWQOJdPmgWFmURHoK5Flxe6P3sM4mRXsn+E4sxBDWaEKFVAmo4RufntuQ6uyG + wFMKYD7ZDRlSkvLJd5vTHUhni3MvIvGSjAYz4vHFv8U6vedX8u+foYlIHGEFMCjANjWzLuXamkxOr0hQ + z1FAAHACdgOce1LZ6W+SY9XffYExAf5yuvSHxh7FnfaMpk5wEScWmM9QK7T0bqik8tmUicqSFCcXFQql + BRmfuIAu2JBs8Twa1Dy6IpCfw5dS/Qn38kAYoEAlAHizCAQjeS2o874SMKwIJ0FYuqDC6guOyWjLSwVv + IC3BSEEiiUn0iTowI8mxGRTg1K8uX+wGbLSjAJzgO7EQCGe1QCjLs0pAfsLwEiAh1nTAA9Aw4QZ8dmfo + vsef+jGenpZ4uirx5JTEAK8/9b1xpquIjhcCXipgUMBIhuHNz6INz9IYBXgBtlYWFguQTxpnf3A73eFb + 0WQFn2xZdEQlHCvJiDP8HfaYjhO9oIOcgJdAGueUAHtahbUuycyMoJAowAWoqraAnrFoKcQ9Gso81mMt + 8lC0hHvJlz3nBplX/kSftvJ1kBNef1pjxWJQrSORqaGwWmF1+xIUwHAqAU5vXHN6iJgCBkUM9A2MlEKR + CdQGUYSAtNiGfZ9ij03sjJWvg5yAWs3jS9IYBThjaCix1JRE0dVcnjgFMP8tAW4QAw6FKJZUNOhlOKgX + JAD4w+PoBymxjfgfY51pOGvl6yAn4KXm8iZwTglwRRMVVHgZPyplARkFsAaUAIcrqpmwuyJYUqlg14uR + 2B8i8uKAcNvwqCng1RHggJd80BOSeMxchqMTAi95aBRgz7fWANGuAYc78oUvmMNnm0P4MzLs0KV/0H0H + e69OgTFMQ/Se/3YCKpcgZy6Rbx5kg2HFk8z8w8qw07h3wOZa9gYyf3hJ7s+K3RmRIXvwN+wFAd7p/hVw + AzCJ2e/9bm/8UUAvqlwGwgUY02XYPrqPPfYCtmSChvUhu38HoX7iDWTRnPAjhLyPqPPhlz29Q02cMX/E + 2pz/FKDyFwiPP1PFo0iRQ5XLPMKZN545dMMWvAE8DUIvQk1ShzsOYnodRuEFn5/rHVqCXTqk6sZKrnjb + E0PAiEN/RgN4Kg/UE2AeWwi3AAITJDNhGwk8H7B5n/T226/AHiPEv2NdyRVve9JKAQ8yl2w2rHYfwKLz + A2bIzbCHDLAmmBKC7zzL+7TDnDPsXcmJ40lrMAq8wFqgGLPIrKDRbmAh8skzvM9iplNqWEmt6Hw5Hrz4 + X9F1WHms6Lr49iDa36GvWoZZLZl4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABXElEQVQ4T6WNS07CYBRGvykzFUEehbbQ + UloKpYVaoNRCoeERojGauAkTN+EyTLoGlmHiKpyb6NRgfn+GejuQOPgG9+ScXDDG/rVUeMhS4SEjYH15 + g+XmGvHqCrPFJpnG69cwWrLxJP4cBrPkt//j2C9eXe5DTOZrXEQL8PBpFETM8yeP/UFAfAIm8xWC6QJ+ + GGMYRBnPD995yBx3pFm9AfEJ8MM5BsEU56MQfW98Z7sj1nG8Z9N2YXQc4hOwD3veGDyE5Xhbs+syve3c + a60ulGab+ATY7hD8I0yrn9Pb9k5rWTsentQaBkSlSXwCWlYfummjYVgPStNksmpsxXoTFVlFWawTn4CG + 0YGimeDhi6horCKpt+VqHcWKjHxJJD4BsqpDrGmaIKmsVK29FQQpky9VkSsKyObLxCdAkJSEhx88ZDz8 + Oi0IyT48zhVxlD0jPgGHLhUeslT49zF8A36iU3HydlCDAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAE+ElEQVRYR8WW2W5jRRCG2/EsmayO7Xg9 + 9vHx8fG+x7GzTfZJSEgyk4RhIBIwgWF9CiQQQuIOIYTEYyAQN0jccc1yP9xwD7xAUX/bPY4yJUBEGkr6 + ZPnvPvV3V/VpWxHR/4ooPktE8TKXwjdg5F+CuWJeIIqXuRDG+DpzgxllbjFjF8B3gDHM8TM+KS8QRUNr + fkPT7Kyr5tw651G+4xff3L1/9i6dvvQOnT54i/g7Hd9/REenb9DhyTnzkA6OH9LmzgtULPe+42eu/ecF + wLTRXlP19qqqt1b1AhjsCDsbPzh57fsjbXpOu8+fUbOz+Ws21zjmsQkGVbhaBWBaY6rNFVVtrKhKY5lz + PVnE6NrWveO9o1dp7/AV6i7tkVtof8D6OIMWYc7VzkCVDUGlvqzKtSVVqi2qUnUR+ZD0xurm3fOd/TPa + 2X+ZKo3blLLLG6zfZEZyhTnl5ucwV8xtEEXDRdNSdUEVKj1VKPeQEzvjChx/urn7gNa3TylX6PzO2hSj + e571WsphEFJugygaihU2ZUOQL3c1XmkeOVHe8dXNkx/X2Hx+8TnK5BpfsYbe+51cS2XcpgYh5TaIokGb + siFMvWJH8S6RD+W/lvWq9srGPVpeu0u15hqlMtUPWcfBG7GzDWVn6yrt1DFfzG0QRQMMgTvoZzbfRj4s + 4Garu/364uohLdw+oFxxnmKJ3BZ0jKedmkplGLuK+WJugygaYOp6baX7ibLmdEnR/7F2785n3aV96vR2 + iXeK/s8wOP0+y66o5ACElNsgigaHDQGMMy7K2kA+9H+y3b3zU7u3o09/IlX6mjUcQH8yzcapskoMQEi5 + DaJosPkQwTQ97CfKfz2edLOt+W1qzm2RV+xSLJn/iHW8/yPxVEnFrQHJIp4RcxtE0aB7Oein1e+nfv34 + 7XhUb29QrbVOKadOoXB6BzrGY1ZRxdg4miyoaKKAZ8TcBlE0wBT9tFBWBgbMeKGy+HmFT365fpviVvEP + 1sIMrl0fTDXxvIowCCm3QRQNMDW95D4jFy6ZQKm69HOptkJuvkOzsdw30AZjPphG4p6aBTGPpSssAKb9 + fupe6us3GE56hcoy5ctLfPqbFIo4H7M+yfiNKS9KhaN9EFJugyga0Evdz34vUf5babfxtlda4He/x+Uv + 0fRMYo91/A8YCT8xdvtEXDwn5jaIoqHfz7zuJ4d+/exc8wu30CUH5Y/m0P8ooy8gGIKQJqtCs1mWr7AA + 9FL3s99LXDJBJzf3i+N1+Opt8OnPfAttMOaDoSE462gQUm6DKBrQS94lcujrdyoQKWTcObLdti5/IJT6 + hPVpxh+8YDoTHoKQchtE0WB6yaFfv5hVeC/ttCiVbfHp92hiKnIIHeND08yQUAbPirkNoggGgZ3r248J + xq3yl1amSRaXPxh2MCnF6F9AGAbY8DIIKb9BFvsBY7zbOGBTYxMzNcuu/Zm063z3VygQtH9jHTXGbwAu + IVTJFwjZbMwE+yAkD4MsDneN8oZmQun9WLL8QyJdY/M+4ahHk9Px93ncYvBLiKvYD9PpCyAkD4Ms9ncz + mkzXHg9NqxQHVoVihmRZEwhnaHwqWuNn9G04HUyr6RmGPxGSh0EWhxXAXyzsbpaJMQkmyWDX+IwzEQZz + cBZwVzwVkodBFvuBKmBHWAh6DHAeJDBHnwHmqZA8DKIILgSS/hN/G1J+gyg+O0j9BbDxrY4odU9OAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABq0lEQVQ4T6XP3W6iYBCH8Tlf12opVFBB + EPxWhPqNFKVaqzXdbTZ7P15Pb8Vjr+e/o0dO0hOzBxPyvMlvJhCA/5pvH2+Zbx9vGRH733+Pu48/eNt/ + Yr39dXzZ7Gm53lGSvh3nizWm8QvG0eJ4bcSCzftnZr39AEMsVrvMc7ohhjSL0wxDDCYxwlGUuTZiQfq6 + p8Vqi3i5QZSsaRqnNI4SYkjhcAb/aYJufyiMiOflK0XJCpN4idGM4XhOwXBGvXBMnWCIVi9Eo90XRsRk + viSGeBrPcYb+GfLFZjekersPt9GFU28LI4IhX5yCL6LjDxgGDH1iSE6tBcttwLRrwojoBiNq+wM0OwFq + rTPskO21yKo2qGx7KFpV6GVbGBEMqdbqndx6BwwTy61TueJR0awmDKEZ1kktlIURUeX/s73mwXLqKFW8 + L8N0kkKpkmiG+aXqJSha8ZBXdWFEmE6NShXXYHhgeGKIh8IFnhgecsqjkb3XhBGhlx1iSKpuEkNSNIPO + FxlSNq/Rz/wDZe4UYUQwvFy81wzk1ALulEdk8yoYgiF+5JTL99qIBbcP6B8vfwmeMopnJwAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGNElEQVRYR8WWyXYbRRSG245D4kHzPEut + ebJkDXbkOB5i2Y4tD/GUOAPJgYQAAbJlw4KTJ4AFhyVbFjwCT8ALwAvwAOQFLv9f3S3LQxJlA33Od6Su + rlv/X/dWV7UmIv8rlzb+l5z+Ob1GTEaHgP0GLyvuChi7BLarmLcZYDA7fgSumVw3GT8Hn/UHNH8Zy2c2 + 4DBxDjAFOPbIZQbUAA+efCMnj7+W+4+/kuOHL8GXcnjyhRzefyH79z6T/ePnsnv4TErT8wyiidFipcN4 + mh/f2H4kG72Hsrb5QLqbJ9K9c19ur9+TlfVjyeRbjKGJK281MN1YRMCRHJx8Dl7Iwb3nsnf0THaPPpW5 + +Q0lXKp2pFDpMIiZGc2X5xivDOSKs1JrrkAQomtH6Dsv6VxT0tmG6AB93mmAgzBFE729Jz9wpjsHn8j2 + /lPp3X2qRPVs/RmeM7VMNVM+ki228aPirwIKeBvt2y9vrdxVov5QcgdtfmAHHH/0MgO8LBNqoK29J7K5 + +7Hc2XksG9sPJV+aY0fWsl9/pFXL5JsaZolbI4uA5gLzSzuSTNcZEwQT5jOOf3ENWCbMenLwyfXeI1nf + Qj23HsgqapkttNmJs1Azp6iea2h6dkZLkcwMmvuZ8M7e7Elcn2aMD6jFB85qDt4QzJJ9lAGKrm6wlsey + 1D2SdL7ZN4DUKkGCWSoS6ZqW0GuMVwZac+sSS1bPGDivd+aGmPWkgalliC51D2RxdV8WUE+IcTDWf8wQ + NQQT+rQWT5GqBkHGKwP1VlciiTJjWP/hDGCW6KcM2BaW78r80p50FndBv55cA2PnRWOJihYFuKwS+KYb + KxKJlxgTAMMZYD1xKQOdxW25casncws9mZ3fkkRK1dMFxigaTVK0rGGWBvEyYy0D/kptUULRAmO4CIcz + kMzU0U8ZsFO01dmU5o0Naah6VjiYG4xZgpFYSQubhKJFxtIAxQKFyoIEwnnGhADfnPcbwKpFP7XKHRRt + zK7JTLsr9eaqROOqnjRwVQnGikpUESloQYDLMhDMlebFH84xJgyGM2AuIhpwUrTWvC2sZXVmWSDIwTyA + KR4JRg3RQCSvYaYKtgMaCGUKc+ILZhkTAcMZwCzRzzBA0XJ9yeC0nl6gDFiigVBO85uwHSgDeq4t3kCG + MVEwnAGmFhcNuEoQLVUXpAgKlZtWPflOKwOGaFbzkSDJoFkZoFg4mWmKJ5D+MAOYJfopA+5C+abkAWup + 6hlS9ey/05YoZmmSRnPfQDSuN8Tj1xkTAzy43m/ArCNn6MmWOpIt3hDWcqCe/XfaElX405oHsB1QLBZL + 1cXtSzEmbrYNYcCoIw1404VZbL+zoufbONXaVgb6r5QlillqHp+uuQHbwcTElKsWjlfE7f1AA0wrLmWA + oqlsC1twC7tgU4KRokzavAt4xpNtlKKGcKoPLrWHuDyxA/Z3ehJ/4374NcBOgGvAk0w3/kmkG5LQZ3Cq + zUg4Wha7M/wKz9R5wL4ub0qz4D1gefxYGz96A1mxu2K/417thDBzUe98g1lHNYtIvPprDMKsZTRZU2CW + v+EZy8Azn/0oSqzvCOf1cXvLHy7+DUGxOULfo01t3073EAbMOqrPK5sj2FHCCTKNk62qcLrCz/GcJng0 + 0whRX0Ig4wvm/mDtHa44058AqmQOd/yC3oUGs46ckZqNyxP/LhSt4FSrSjhWwW5oAJFfbHZ/F30YkAQZ + xL72BnN/Ob1JcbgTb8Yn3Ydo5+yvwow2lIGBWjILXDieKUfoFV65N6xpIFLCYjyF90g33veMuHw6Z426 + R/+8Nu5YQyw3LfXhCkawHi7onb05FeYC42JiML/xufnoNnvw9ZQ99BNnBzDLuAFE8ftm0h78eXLK9y36 + 8l1mifjtMAlYIk5GrZkzmgPivChOUaaNK5eHCHcxppjvJ784GoAfjrfAMlgxWQJs5xcNTzRuqTRCuEdz + LPVJDvomzhvgzJ2BMFILmNoA8IcKBuGC+Mz//PUF86cEcoL6c23gADL+89eDshG7M0oRHstqF32XAVc/ + tcDO9Kq6kti7ccbEBiFCQeu/BcZ+rwGrBDzzrfRzG+WrxDIQrlLC95WbBmGKWSLClPNAISyDVQruhlxP + AyUQ7V858cT/oLdakwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABw0lEQVQ4T6XP3XKaUBQF4H0fmmgQCqgg + CIq/iPEfCWIkRuOkzXT6Pj5PXsVrn2d1k06nnpn0ItOLPWfWGb69DgTgv+bDy8/Mh5efGSEcvv887V9+ + 4Onwimz37fSwPVCa7SlZP52Wqwzz+AHTaHW6NMKC7fOrlO1ewBCrzV66X2+JIS3itcQQo1mM4SSSLo2w + YP14oNVmhzjdIkoymsdrmkYJMaTheIHgbobeYCwYIdynjxQlG8ziFJMFw+mSwvGC+sMpdcMx2v0h/M5A + MEKYLVNiiLvpEjkMcsiNrd6Qmp0BXL8Hp9kRjBAYcuMc3IhuMGIYMgyIITmNNizXh2k3BCOEXjihTjA6 + t7ohGu0gcf0u2V6brLqfVG0PZat+1qu2YITAkBrt/tFtdsHwzXKbSbXmJWWz/sYQqmEdFa0qGCHU+f9s + r2VYTvNYqXlnw3SgVWoMzbOiV46yWjaKii4YIZhOgyo1lxgSQ2JIJa1CDCmHBfkrXd+qghGCXv3dqOgm + GEJWDTAEQ1wXVXwpliDdyPzpPxYwfG+8VQ0qKBrd5I1FhRgSQ7oqyO/npRECQxRKGviZ3KhAKpRwxY15 + a37+mb8G9AtKEvOhTRvs3AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGM0lEQVRYR8WW2XITRxSGx8aEzdYujXaN + 9tWyVssWxvuCLS/Y2GCWQBEISSC5y01uwhukUqnc5jY3eYO8QV4geQFeAF7g5P9bM5Jt2SBukqn6amZ6 + +vR/+pzT3aOJyP/KuY3/Jf2H/jViMjoE7HfysuwugbFzYLuyucgBGrPjZ+CKyVWTa2fgt96A5p22/DYB + 7CaOE4wDjj1yngNqgAdPvpPjx9/K/cev5ejhK/CN3D3+Wu7efyn7976U/aMXsnv3uRTKbRrRidF8aZb2 + dP7axvYj2eg8lLXNB7K6eSyrt+/L8vo9WVo/klS2QRs6celCB8q1eRgcysHxV+ClHNx7IXuHz2X38Atp + tTeUcGFyVnKlWRoxMqPZYov2yoFMflqm6ksQhOjaIfq2JZmpSzJdkwRAnw86wEEYouudvSc/c6Y7B89k + e/+pdO48VaKJdOU5vjO0DDVDPpLON3FT9pcBBTy15vKrW0t3lKgvYOygzQdsgOOPnucAL8sJNdDW3hPZ + 3P1cbu88lo3th5IttNiRuezlH2HVUtm6hlnitRtFQOf09sKOGMkKbfzguvmN4w/WgOWEmU8OfmO980jW + t5DPrQeyglymc0124izUzCmayNS0RLqqxUmqiuZeJDzTNzsSTZRp4wWq+MBpzZMvBLNkH+UARVc2mMsj + WVg9lGS23nMAoVWCBLNUxJJTWiwxRXvlQKO1LhFj8pQDZ/VOvRAzn3RgfBGiC6sHMr+yL3PIJ8Q4GPM/ + 1hXtCsYSZS0aJ5MaBGmvHKg0ViUUK9KG+R/OAcwS/ZQDE3OLd6S9sCez87ugl0/WwNhZ0UispIUBLisF + 3nJtSULRAm10MJwDzCcu5cDs/LbM3OpIa64j0+0ticVVPp1gjKJhg6JFDbPsEi3S1nLAV5qal0A4RxsW + 4XAOGKkK+ikHbBRtzG5KfWZDaiqfJQ7mAmOWYChS0IImgXCetnSAYnquNCd6MEubAODK+bgDqFr0U1Vu + p2htek2qzVWp1FckHFX5pAOXlWAkr0QVoZzmB7gsB/yZQlt8wQxtgmA4B8wiogMOik7Vl4W5nKwuCgQ5 + mBswxCP+cFdUD2U1zFTBdkAHAqlcS7z+NG1CYDgHMEv06zpA0WJloUs/nx6gHLBE9UBG85mwHVAsmMg0 + xaOnPs0BhhYXHXAWIFqYnJM8yJVuWvnsLamuaFrzEj9JoVk5cG3c5ikZqbq49eSnOYBZop9ywJUr3pQs + YC5VPgMZmbDr3Cq51Y5YopilSZK23GonPLqxF03UxOWNv8X78DVg5lGlIF2YeZfOzwhzaeXT6Y68xjee + 91wpIxRV+JS4lX+PP5z/KRKviMMd/RPvjNplpyc+oDfQwHziUvuAka79nsxOSyLbxKnWVBFweY0/zAF5 + FCsnTKxDzHbl6ng1FCu/DUZLYneEfkSb2rycHmNAb6CBYcXFwa569Xgrnm5gC25gF6yLP5QXty+JNPif + 4Tt3N0bC+mO6AbhEDaTjr1C0jJrJMfxhwJSNOtzDOIBc4uKMmAZbMFr4IZao4lSrSjBcRAQSCocr8tv1 + G85F9ImCCIjbHME3Tk/sH3+4IMFI8T3qZR/tavYOd0wjZ/UGGjBD9O+FlIXj1IOZ12Gj/C5sTImHdeCJ + mxh93AbybWDWedHDhb/Hbb5l2HLP4BjqH8Dh+ogD7GR25uxZTDRWfzgg5guk3mDZ/YI6ea+iYIoSt55C + W/xX1Mj36MtZMEU8OfkjwhRxPFUzpzRPiPOyZs2wsdB4iHAJMcQJwDXKvboBZkAbzJnwmWc5fwi4mbCY + 6AiJA54HrBM6caED/GhnOK2wWqH16GmFHiqgGPvw3Yewu30pcSIqdmdU7K4uNj6b8BljD5yKZx1QO6Al + iqLp4+piP4UpZorarOeeaOQUGHtgRzzPAYafYeO5zJDyH43h5g5ohfwWmAdcBUuABbcC1sA62AC3wRbo + mO/TgGn4YAS4kbj0IEILGFpWtS+Q6xLMidd85t3rz/bRM1ghGTzjbj7z7kbaiM0Rpghr6aMRcPZCy7D2 + wjkY0gEcEZmAEKGg9WyBsVnQH4yA2gEB1y/zRY+50cSAYcKKJlwVVpVz92LVE+7lPFAIVw1hG3fE3hnS + 1RXtX2N3u8ndlJzrAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABaklEQVQ4T6WO622CYBSGzwhtrNYLCih3 + UQSlIIqgQr3E2DSNK7gCKzhLV3CFruAKrHD6YX/pR9KS/nhIzpP3AQAR/0WuLEKuLAIltvsPWO/ek3jz + li5XO5zHWwwWa5yGMY79JbWnRLzZn0iYhtF2OFusgITg+YtPZxLiyPWpPSXCaJP689V5EsQw9hfgTALI + Qsv2LsbQpfaUmATRxfXn+OIFyciZgml70Lcc0E0btL5F7a8Pf/6K3ixCd3oNcehMkYRoWA7qAxvVnoVy + d4CC0sO23EVOULDJSyTN+QPTHmdffNSN0UntmWe5a/yEkoasoBzv9zdHRtcYJapugqQZICg68KIGbEdJ + mryIDbZzud/fHBmS1kdB1o/XUJChyYnQaHWg1uS/KnX29xfwoopsW04ZTkzqrTZUGQ4q9dahXGPSUqWR + 3O9vjgyGEy4kPJDwTEJ8qjJIQnws15KH0jO1p0RRcmURcuXfQfgGtgtbUrcahO8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGV0lEQVRYR8VWSW9bVRR2aZuhTWInnu3Y + jofneZ7iIVMTJ05ip0njDkkLTanUAlJZAQs2SBQBZVHUSt2D2LECFqyphACJLQuWoKr7Dn/gcL5rX+c+ + K0V0U4706fmcO3xnuicxENH/iiONrxJHGgehyLEeXnsBjlqHrhPd3aoyCEXkpccZJxnDjBHGKONU7wsd + 9qHeb2k/wdA5oeNQlUHkyg3sx2EQD+103mztXrrx0YX9d5509t6mzt5NYp12L96g9rmDH5rtyx8XK8v5 + xsaF91rbBxRL1REFHMH5vqgcOkVFT0B+YnXjYryz99ZPzdYVqtQ3KZVbpFR2gRKZBSpW1mixscsOXKPW + 9lXa2HqD1rdep2b7CkUTVVw0gTtwmRQdj6r0jV0R5M32fn137+aTM6u7lGTSWLr+vRYtbvPaWA/jQS2/ + k84vfgPStdY+rW3sU2N9j7RYBZeZcA+jLzouVekbu4Kaj5ztXP+rvXNNRM0R3WPbaQbqjEslUPvxeKp6 + fnntEp1Zu0hLqx0KRUu4bKq3py86LlURhq6I6Nfbl99t7RyIqLieT+1Ov5ftIBfdHY5X+CP2QkdzjpVm + 1z5dWD5Hc0vnKBAuSgew1hcdn6oIQ1dw6RA78B3S2uCUxpP1v9k2zkA0x7TYrEGLlg0hRjBSYlP3DGOq + ttB+VJvfoplQHheaGXAA60J0fKoiDF0R6V9Zv/SwsblH/KVStfnUYvXMsB3pFhkIRooGjtIQ0IoGv1Zg + k+j2sVxp+bMyN6svkMWFMgMv78BSo/NwafUCLTXOi07PzzYesN3IwPvGpcgG9gqHet9hu0tb9voz5GGw + /u+v4AUiLqotbt2fF/XcodriNlUXztLs3ObPufLK+7yOyHA5mhIOycaEY9CxBvQzNoC+SM8BpBDARSOx + VG23urDFxG2qzLeYvEXl2iaVqxv8/tc5I6uP+Gl+nsjUP+D9FgaeHJ6mnIKAnI6DgKPgFITYhEOIRrxt + BlJtT+eXfgRpkUkLlSaTrlG+vEq5UoOyxRXKAPllSufO8GCa/0WLlj7kcy6cVeDowdkDfiODGNki1d0o + 59ocZVtEWaptcOOtU2F2gLSwIiBJU9klSmQXxVSMpxmpeX6y8xRNzlEkURcIx2ukxasU4sHEr4dC4TIF + I2XZoIZhXzBHvmC2i0CGvAw0kGcmLTDtSwm4fUnxtMI8YpOZQ9JYukeY7BJGEjUKx2oU0Ark4nM2V4Rs + zkNYHWEB6YCoN0OmXjYPSoCaApMMbLbaHKGbNqf2hXM6Lpzx87CJcIRAOFYV4zcUBWYpECqSyey5w+ei + DAyx6R7cDPQMeqTfhLL5JNAk6I3BJkKvwEEMGKfFHrpjcYS+RcaCTIrU8mDiKcjQihx99DHv8/XOyD/Z + QL8JB0U6BDLZlDgIB1VncQHsyBqy4zbbg3dnQgXioUQ+/s4EC2R3x2jc6Nziddwl7wC6og4FZTBg4xjq + 6Q3kaGzCGmAdXr/GERm4jtgjL5LOIDPWSfP0ri+Qe+4N5Mnrz3HNozRhcl3lNQQiItbxqYowdAUlmETX + IqUWRxB1RAphP8YNZAAsgD3Mpn5mkBGnczr2tWcGTZwhs11DBg7Y/lIOICKzqKVWwkx/NnrKFGNbP40W + u2bgyw1mGxBik3AC5yzcpJ+4fWlyTidoyhqkoeGxLNuRoZdywOLnLkZNUUuXN/kr2zBEEAnW1XrKDKCr + XVZH6IHLmxLRm8y+39mGcygh9un5VEUYDiOxci3JyzMCtfTwb7cv9dvoKWOK1/AC0HwgRNoBOGbnfmk6 + PYnnVkeETJYAnZ5wXGc7njIcFqLjUxVhOHTA5vVnyeFO8FOKMTkGUoaRJrsrfNfqCN7iPXjbHnxHRo0F + fo73HdNJjjwsyMdN7vu8hrELB0X0EB2fqgiDkgEnpxE1NE55v5owuW9zwz1DV6O2Tk9SAITQ4aTFptEk + E5vMfm48122+A38TUPt+9BAdn6oIQ1fQ7aZJSxCR/MG/MblsDBdHdWti0vOl0ex/DCIVxinfn7x+7+TQ + 6TzvtTJQouPGKfwfcyg6PlURhq6godA0GMcAosBgkoMHPYDUYqyiDBKIGGvoB+wXXT8oOj5V6Ru7ZcBh + OZbxGzZADh4QwEnZhABs6v4jRcelKioG5Qi7dEjFfxIdj6q8epDhHz8JwDHmNa67AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABhElEQVQ4T6WOaU7CUBSF7xI0CjK0dKAT + LVDmoVBKC2WSYIxhC26hW3AtbsEtuAW20C0cH2qCUBIl/vhe8k7Od+8lAP/ibHgJZ8NLSASrzRMt1o9R + uHyIJ/M1/HAFL1hgOA7RdyeJfiIIl5sXJsbj6ao5CubERHLc4LU7GKPVcxP9RDCeLmPXn78NvJD6bkDd + gUd7sdF2dnazl+h/PsHsHkzEyJ9h4E3Rc310HA+t7hD1toNqo4tyvQ2z2oBh1aCWKpA1i6nfA1x/Rs5o + Sr2hT0zcNr9Fey/W2ihVGi+6VZMVo0KybpGoGMRL2uECJqLTH+FL7H9ttFtMrEO3bDCRbTQhKAYKkgZO + KCLHS4cLfmLZrahUrpNm2qQYZZJUk4SiEfGSirxQ3J32jz57NLMKRS8/f4qKTryoUr5QpCwvvadzwu8D + JLUEQdZjTlSjXEGmDCdSOlfYprJcfJPOR6f9o88eTlR2TNwy8Y2JuM1wYCKuU9no6uYu0U8El3I2vISz + 4d8BfQDfSUpSPZdWJgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGX0lEQVRYR8VWSW9bZRR1pzSz7XiI7XiI + 59mJx8SZ4zjOYKdJkw5JS0kpagGprGDDBokiEAuKWql7EH8A+AWAQCCxZcEShNh3+AOXc77nl7jxi8Sq + fNLRe+9+791z7z33u7ZJRP5XGBpfJYyNp68zbZw9BUb7fDbkIYyN3Ut3eg64AFwEeoE+oL995TPtPe17 + 3X4eODUIY2N75St1XvgxiXt29t5o7l6/++HVg3ee7u2/LXv79wTPsnvtrrQuH3631rrxUWm6VqhvXH2v + uX0oyewsnTEQfm/MZWg8XiQ/v7pxLbW3/9b3a82bMj27Kdn8omQnFyQ9sSCl6YYs1ncRwG1pbr8uG1u3 + ZH3rNVlr3ZREukpnw/RBZ4ZchkZtKfK11sHs7v69p8uru5IBaTI3+200UdrG3mAbQ+FoYSdXWPyapI3m + gTQ2DqS+vi/R5DSdWegHMOYyNGqLmvde2rvzZ2vntsoaGT2CbQCgznSqg9oPpbLVK7XGdVluXJOl1T2J + JMp0NtJ+x5iry6Atlf1668a7zZ1DlRX0fDbqDvphJ7nq7lhqGhf1Lp/ZnIPlqcYnC7XLMrd0WUKxkh4A + 97q4FF+XQVt02oMAvmFZ6yhpKjP7F2xDALM5E01OmaKJiikChONlmLRvgJGZhdbfM/NbMh4p0KENYABn + TnJ18HUtVf6V9es/1Df3BVcpV9ee2R2+cdhZblUBAlmaQtESbtUzu30wX659WkGzBkKTLwVwAkdLN9Ap + QSfMsn+pvvvj0upVWapfUZ1emKo/gd0M8HzTqd4DOliBAac7vOoPTogPwDMD4Pvc06F/Sz7tjAP68CDY + 3dbqfPPJvNJzR2YWt6W6cEmm5jZ/yldW3sc+HVvboM4EbU7AC4Ta4P0oQDuv+j2/I6epR2W5iixX9mSh + tisLyzsg3W6TbgEtmZ5vgrwplZlNqVQ3cP7XpTi9JoVKQzCwZLK0IhMKNckVazg1yzi2xKJkMC9SuXlJ + ZefRzHOSyMxKPK2GFIMw9YTjJdWxoVhRgtHCEcYjeRkP5wXdLrlCTSOcaoB0VfLlDlLs5UCYzS/B8YwE + 8I3Hlxa3NyVuX0pcuLrGkgqjOjyJowCoBTVih1NfgsODm7ahYUc8mpr6OV9e0UiLKwpHpJNLkkaWnIqp + HIAsE5m5F0535AN8nwIoQwBgAxPB9rML4ExRAVB3jkydmNA1pWYBlyf2eShafB6OVxRhZuKYNInyglTi + 7dKyCrHkjLg88cf4NgaQVAcDYiAMgL1muliqQs+ptp4lrbST0JFlzxa00qosjzLVtOSPjSJNzSjEklU1 + fiMJYkoisYqEgVCsDEmJkgQjRUhbhExHM8LU6x3PiXc8K95AVsYIf0Y8CmkFt64ntfR2a+lUiIsXx44V + wmBSpJgPYndFjzGqIyI2Z+QoAKMeoAT6ceL4dQMOwN4G77mvHy2W028bDT9kdsEoMmSm4aIKsn/Ifgv7 + UYDa0x/90gelV0OIs0AfQASnnZV6+kN56R8coY7Ui3YOEaJzsNBOZw6rzbsbCOVf+EMF8Qfz4nQnZMjs + fhN7zJbvdP5xIWfXYkAMwhqBniyp3RX+DM+sjNFI1cGpxkq63d7kV75xTELAhpIjgEPYWWES6u9r65Qf + BxLZlJZoHsz05339liRsPDbKCbQ0wbnJ5iQiMCmn/M7udEc/Hgvk0DNpGXGEpefi4CTszP5sF1+XQVvK + UTBSUh1LLdGUv8DGXqAU3O/MhtAr4HG4Ik88/qzK3mIL/AYbv2PZu34RX3pQhuNMHNBS/Jhq1NKHe5yQ + X/v6zVnsUU+WlITUlGBgo4PDjjWcmhcOV1ws9pAMDLvuwM75ovTu4usyHAfg9AcnceTSOGJJkOOoBiaA + HI5e7KHDFb6Pd9jRPl57+8xFuyvy2OXNIPOYIh+yjHEQ8YQwQOP/A12Gjgq4UUZqaB7xfzlsGXtgH409 + Z1dTW7cvo0BCPjNIuzMqVhBbbEE0nucBfHgAam+YveLrMmiLp8BitYeZye+4HwN45j3I6v6w1feF2Rb8 + h0SdMI8E/sD+ows9AwW8y3NOic6ZR8a7eHR0G7TFhmLT6IOJWej/Gag9e4Cl1QeVDmbMPfYD31d/OE5y + dMLYqMnAj/XBxHvaCJaTEukDSG9Cgraj9418n4Sx8b8tPaBOqGXk8zQYGl8dxPQvCCISfPreqx8AAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABpUlEQVQ4T6WNS07CUBSGz0Q0+IhVIVIe + pZeWltJS2lKKlMpDHvEREwdugS2wBRITEzVxoAMnOnHiAtwCW2ALbOF4W40D2xiJg+/PPX/Ody4g4r+I + LJchsvyNN3YLX5Mb+LIXv/PnyKXfeN5bh6ed+PBxe42OXwdGpxfTwfE5Ho3OsNM/wcPeaNrqDKym10PH + 7WCt4aFZdyf+7sP2mnG/tYq3GzH2+0BveAad/rHldUdztz2YHXg9xnHbQMWxaTdnutUgWtUOdm82Y3i9 + HsOr+Aodvw4cdofgtvvQ8Lqk3mwvak7r3bCbVsV05qphM0rFBLlcDXZ/EkSj1QUqguW0gIqXuumgWrUX + Jc0kEhUFWQP6CMk+QXyKB0B/BFWvkZJmLKSyjlS8JEUFOEGGHF8MyT5BaEYdynoNSqrBFBV9LsiqxYvK + O1eQF1leJGmuAKksH5J9gqAiFJUKESR1RsUxJ0iQzYtMOleYUXGeZDkrsZ8NyT5BFKTyhBdLyBEJM3kR + 2Ryx9jP5aZLNYSKVwd1kGplEavpT9gkVyxJZLkNkuQyR5d9B+ACJ5Edb2kqT4gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFm0lEQVRYR8WWWW8bVRTHJ2lcL0m8xI7t + eJmxPV7jeLfjpqRy2ixNmrTpkm70oUChquAD8EpXCqpahKqWAgkCxAtvFIkHIvEJeGilvlZC8A5tv8Dh + f659XTsZV31A4Uq/+M6ZM/d/7jnnzkQhov8VQ+NOYmjcSQyN/xU/uG2u70dsP37rstE3LiutO61Pv3Ja + 5jp9Xk5ec7yuL/tB+OaGy7q57rQoEI49cJj/vmc3P5WaYq0tC/a16O+BvN/ps8sA4bvustz80mmhLxwW + 5b7DrNy1mzc/HzZD0jgAXpQfNoHdwAwsHbBtAEhh9mP7IBgCw61fG2BfXqsPO2ZhBcLKZ8O7f789tLs7 + A60hdrR29hKdOHOJjp1+j46efJdW1y7QkRMX6PDxt6k+vUipbP19+PHCAwvL5347uPImLRw6S/NLZ2h2 + 8TQdWDhNk3uXSE+W19mH120JKxC+eGvIRJ8Omrb3QGvwrvghy8rR8xuHj71Fy0fPU3XPPBYsvQM77453 + JtPOu3fum1m9u39+jcq1AxTR81dhs7fuiQxAWLk1aHoA4ac3B02Vj22mtvjWAGRdOQjrwUNn7xxcOUfT + M6uUSNcewsYp5rTLEnAw9ql9y3czuTcoqKZO4pp92umHsALhTQhvsvB124ByDWwLgMlMTCnp7B48JwLh + IGyzS6cecWor9TmKxouXYbMCXlxkoFBu7M+VGqRGc1dwzRkSAWqxgqJG8wqEP4TwphS+ah1Qrlh3bT8F + TGq8riTHJ5VkpoY1RBAmPVkIN2ZP/NGYO064R/6AXoKdg7Cks/VCsTr7jxbL/YRrufM+BKOEI02u20wE + YYIwXQGXwUdAajLtCdKsxFNVgZ6qYC2RZjPvcm9jlapTi6TphcewuYGrVJt9BLFHmDvYD/SHtQklJMgq + QTXbXvtVtCd6stIkUVZiCd5o+1jaUIKr9ellyhb2USpTv4+034vES888Xq2M+9xw/UEWbQkHwuOCTqFe + tCdRiKLOggijF7BusxTAXqzN/lyuL1B5ch79UCKIL8LOdRfHTYqOhTJNgukuoV60JxG9qGgMN1AsL5qI + 64jBpbB6vKFkvjTzpFiZJS1WpBFPaBl2PnIiACnqb+ELpLqEetGeNEXRPK0m4lrywoDLMBhPV07lSjOU + LTZoPDdNgXDmz8HhkSTucVP2+4IpISoYY5JdQr1oT6QoN1AIdeRa8sLAEopkynqq9kyL5u+jSW9lEICe + qtLoWPwX3OemFE3ohWiThOL1J7qEetGesGBnA/GCvPCoT4sk0/XH2BmfAC8YS6T3PEmO78X5L5DbG/0E + NhfgXukb9ccVgS/eJdSL9qQp3GwgXqi1oD2Rrj/EvWcOV4DPJn94hkf90Sk9PflcT9cJ9Sa707/CvkD0 + g9unKx6v3iXUi/ZkLNRsHl4AsPhwLFm9FlCzaDhtDdfyTcc4gur4B9FkFe+GMnl88b8sVjvXjAPc5Ya4 + ezTWJdSL5h8Mbh4MTrsQV2OFi+FInlN8A9f8smE7BydKAzwhdeLriF7BdyBHLo/2K2xjgD/H4lsAtglu + RQ7Z7eID4w8mltBkz1FH9ggBftWK9LYQWQBxNVJ4oUaK5AukyeEK3oGNg+BMsA8Haygs4SHF+Y3mQmPd + iCVqeNlUCR1Ng0PuBuwjrfvsx/DRG7U7fXMhLf8iqBUoqOXhnyK7K3gb94KAe0J8H4yEJTzEjiLx8kY0 + XqEI4LpqsRKpOoiWcNyS5HSrh9mP8YcyR6Qopz8gmMC7YYLGAAfiGFG/g694RxgJS3h0ZoCj5t16AB+5 + UcDnvPOfDOnrBOzDuw0DtfXL1/wcPyP6xkhYIocMgussdgk4fRK2cz3Zj5HNys249X9Hvu58xlBY8nLS + HFJgK2Js8eVh5Ctp+78KQ+NOYmjcSQyNO4mhcecg5V+D5U9MHm9R1wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABoklEQVQ4T6WNS07CUBSGz0Q0+IhVIVIe + pZeWltJS2lKKlMpDHvEREwdugS2wBRITEzVxoAMnOnHiAtwCW2ALbOF4W40D6cDq4Ptzz5/znQuI+C9C + yyiEllEILaMQxOj0Yjo4Psej0Rl2+id42BtNW52B1fR66LgdrDU8NOvu5KfsE0RveAad/rHldUdztz2Y + HXg9xnHbQMWxaTdnutUgWtVekn2COOwOwW33oeF1Sb3ZXtSc1rthN62K6cxVw2aUiglyubok+wTRaHWB + imA5LaDipW46qFbtRUkziURFQdaAPpZknyA+xQOgP4Kq10hJMxZSWUcqXpKiApwgQ44vLsk+QWhGHcp6 + DUqqwRQVfS7IqsWLyjtXkBdZXiRprgCpLB/svrFb+JrcwJe9+N33ASpCUakQQVJnVBxzggTZvMikc4UZ + FedJlrMS+9lg93lvHZ524sPH7TU6fh0oSOUJL5aQIxJm8iKyOWLtZ/LTJJvDRCqDu8k0MonU1N992F4z + 7rdW8XYjxn4fiMLNZgyv12N4FV+h4x8O/CS0jEJo+XsQPgDUaEdbE8qwswAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFjklEQVRYR8WWWW8TVxTHJyHGW+Il3rcZ + 2+M1jnc7JjQoASchIYGwhK080JYWofYD9LWspRWCqkLQLVRt1Ze+lUp9aKR+gj6AxCtS1b63wBc4/Z87 + nsEOttQnc6Wfc+fMmfs/95xzZyIR0Wulr3GY9DUOk77GYdLXOEy0n5djpMPoAPT73T67+qD7viK4E+1H + G/wAP2wCu4EZWLpg2xjQhdmP7XYwDiY6f22AfXmtkZ2CO9GH2NHm2Ut04swlOnb6PTp68l3a2LxAR05c + oMPH36bW3AplC6334ccLjy2vnfv94PqbtHzoLC2tnqH2ymk6sHyaZvaukpqpbbEPr9tPtBvtRxu8K37I + sn70/IPDx96itaPnqbFnCQtW34Gdd8c709POu3ftW9i4u39pk2rNAxRXS1dhc3Tu/b8MiB9t6HXlIKwH + D529c3D9HM0tbFA613wIG6eY066XgINxzO5bu5svvkEROXsS1+xjpB+8IrgTY5KfnpVyhT38DD/IQdja + q6cecWrrrUVKpCqXYbMCXlxkoFyb31+szpOcKF7BNWdIBKgky5KcKPUIDcKYZKdaUmZqRsrkm1hDBGFS + M+XYfPvEn/OLxwn3KBhWq7BzEJZcoVWuNNr/Ksniz7jWdz6CYKRYXKNbaBDGBGmWUtmGQM3WsZZIs5l3 + uXd+gxqzK6So5ceweYC72mw/gtgjzJ3sB0ZjyrQUFRSkiFzoERqEMVEzdY10TUqmeaMiC5xqG0pwtTW3 + RoXyPsrmW/eR9nvxVPWZ16/UcJ8bbjTCoh3hcGxK0C00CGOSgCjqLIgzahnraqUAjkqz/UuttUy1mSX0 + Q5UgvgI7110cN100FM1rRHI9QoMwJnG1IikMN1CyJJqI64jBpbB6/dFMqbrwpFJvk5Ks0KQ3ugY7HzkR + gC4a7BAIZ3uEBmFMNFE0T6eJuJa8MOAy2FO5+qlidYEKlXmaKs5ROJb/yz4xmcE9bsrRQCQrRAUhJtMj + NAhjootyA0VRR64lLwws0Xi+pmabz5RE6T6a9FYeAajZBvlCqV9xn5tSNKEfohppyR9M9wgNwpiwYHcD + 8YK8sC+gxDO51mPsjE+AH4TSuT1PMlN7cf7L5PEnPoHNDbhXRnzBlCQIpHqEBmFMNGGtgXihzoKOdK71 + EPeeOd1hPpv84ZnwBROzam7muZprEepNDldwnX2B6AdPQJW8flWs+6PH5v5h0vbTd24bfeu20pbL+vRr + l2XxlQBCUa15eAHA4hPJTONaWC6g4ZRNXOtvOsYZkac+SGQaeDfUyBtI/W2xOrhmHOAuD8Q9vqRYF8I3 + H7it21suiwTh5JdO8z/3HOanPQHw4ObB4LQLcTlZvhiLlzjFN3DNLxu2c3CiNMAblae/iat1fAeK5PYq + v8EWAvw5Nr4FW27Lza9cFvrCaZHuO83SXYd5+/MJM2Q7AXSG3u3iAxOMpFfRZM9RR/aIAn7VivR2EFkA + KTlefiHHKxQI58jpjtyBjYPgTLDPKAtjxywsQVj6bGL3H7fHd7/MAIYuzm80NxrrRjLdxMumQehoso97 + 5mGf7NxnP4aPns/hCixGldKLiFKmiFKCf5Yc7sht3IsA7gnxfegISxC+eGvcRJ/aTS97gB2AKZ6qPUik + 6hQHXFclWSVZBYkqjluGXB75MPsxwWj+iC7K6Q8LpvFumKYQ4ECck/L38BXvCAhLt+ymLyH89KbdVP/Y + ZhLi/TLAUfNuvYCPnA/wOe/+J0P3dQH24d3GgNz5y9f8HD8j+gbC2xDeZuHrtjHpGugOgIceBNdZ7BJw + +nTYzs3HfozerNyMO/935GvjGQh/COFtXfiqdUy6Yt3Vewq6ItEFdjJo9PPVEetet5kIwgRhugIug4+A + oatPXhd9jcOkr3GY9DUOD5L+A0IFgizeEt2ZAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAB/UlEQVQ4T6XSTUsbYRAH8AFhk827edGc + BE+evJU2Gzdq15hErQehUOiptzYxRqMmaqJWQfDqSfAzeBUEbyL01mPpR9hrwWtk/M/uPj6B9iD0MCYI + v/nPzBNKJPOqztV3Zn51KXyB4uCTxj+c0NjKdxpbPr7JLR3/ydWOjGytT5lqj9KVA0ov7tNoee+lgcKq + LgI8kVs6GmRrh5yt9j9lKj4eLe9TamGPUk7XbyB/8qunSEWtIHnZwwR8CnyfqfY5Xek9eBjJqXIXDTqU + fL+rG8jICud8PALsAlvAjxiZMfJ0aqFLSadDCeDE/I5uEIwM6GHCvmvY90ew7xUwA1/6eIfi89sUn2sP + NfBTAQ8Fy7Fu04sHX/yRkex0GSM/IjUpODbbRm3pBgpjZByqN4lkF9jyRpZ9nV0XyRyf227GkBwrbVLU + bukGQ1hGPg9GZozM2JeRDNxmpP6KBjgys6EbqPdF6giwCzw1vC9SDWAXmCN2yxFszjR1A/VEwB+BH9SV + MbJgipa2KGJvnpl2iwGvzeI6ha113cD7ccj7Op07HOuz4NgLxsilFpn2xgTwAHgQLjbyRqGuG3jHcjqz + SH4CtuSJ5MqCMbK3r1lsSupVyGpwyKpfGu++6QbAk9jXxb5yrJ+CI3/jN+FC43eoUGdgNt5+BQ0a/E/9 + 85+vL6ZnZ5uJUJxkzE8AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGh0lEQVRYR8WWWVOTVxjHAwhJCEsIW0II + gRhR2RJAQDYVsOyyyCKIG+jUMs50VLS1su8iYqMiSlFLbWn1qtP2qjftdLQ3vepHaG17r36Bp8//vHnf + JOYFvWrPzG/gnPOe83/WAxoi+l9RXfwvUV0E7zhCmFDvT6AMtTvVUF0EbxmycDijZSKYMEYxQu1ONZRf + okpmAylWY0bAA+La7QNPfrL1rJOhaPJnnuuYMEPRtCaYKYk9U5pIRv6pbsAWwl5xeLktrXOp0nnmKTlP + PyVT9RLp8y608joiERIkzEDQx6RAMaDmYLemqrpTs7+qXVO5v22+vPKQprSsSVNSWh8gbpAMgPc6x6nH + 686BJ7R94BuytK1SZMHIY16PZDgK6h7LwkEGVOxr1ZRVNGv2ljV6ivfWUWHRQU9+QZUmz71PEfaKC++T + Kt5PhTBw9H8tiC6fJ13mMTfvS1FQRIOFIwvBhM+AopJaTcGeGo87/wDluiopO6eMdmWVeDJ37lHEDUW+ + 3Gf0rU04BlgY9G8IEhtuUaTrMj4SUdhKWEYxICev3JOVXUo7dxfTjsxCcjjdZM/IIZs9ywNh5JMHvEel + GxynNl5aux6Q/djD5xmnvqKMk1/y7+sUVTL9Mtxak8HfiChsJhxkAPAPteyxr5iEAcL7tJ6V8ymHV1ls + 4oeE0v7SjJOPKf0E+IIS6jxcjEOz/J2BCZOEg8X1heOCAAM2E/aKK96z0O9xBxZJn32ug+fx9qNrz9JP + rJP9+Dql9qxxMY694HUTI0VBRVhfIBFogBAOFvczICK1fbEtrfcR8WV/8DyWibI0TnTZj3/OKXhEaX0P + Ka7qOumyBs/ynjcKwcL6gjHBGwYEC8uthIuYSPb2+4R6DrPrMqxCseEVNNp6V19A3HZ0jcxty6R3f/Ir + rytReFP4HQyQhL3iwvvkmotue98jMpRMcaFVy4W2jTFYWuY+grit9zNmlWIq50ib2d/LezAyVE1cn69q + gE8YoJV4CO9t3ct30Gp698d3eB7lXUdhRkTvqnfaeu69Su1ZpdQj9ymhfol0uUNPeQ9RwN8LjoJPWJc/ + Kgg0wE/YTxzehxtdHen2vgcvo0pnSOvoLuQ1vPsQxz6iEGNumlmwHlkhaze4y5GapHBbYxnvSVHwE97S + AP8HBAdxgbXj5oyl7S5F5g8/4zm80jNIgfzXMDrSUZYDYWv3Mlm7limu+hoX47kbvBfn/S7EJz4iCDBA + Eg4QF94zRg7tn7GV86TdcewEz61MIpPgBb9bGKe5cfLblK47ZOm8TeZ2LtbC0ddh8QXZvAeDQxVxt8Qb + BkjCAn48cAAHLa3XLtmOSsVlQ4577nOeVwRSuCWPIZwC4Y5bjIfMhz8l44FZ0u4eXOJ7EAWkKkQW17mH + VQzwvlz40HsgNrXr9nN/YV+eIcyioCNQ2Nx+k1mixEOLpHNd+ZvvSWWkKLCwTKABfk8mPmR0ybVXu6xd + K8QF9IrnaUwyg5CDJO8cmJkUJt1UfvZSMosnt91gFim6bJIinMcv8J6R2baFAYq4Utkp7Ysb8bXsRe7Q + PZ4jjKh+FJ8aohgZW9KhuX+SW65TUssCmWo5DTkXf+N11A7Oh+hcwxqt66qaAeO8L3kfV3KyGKEW7ZTW + VMprop0YGLgZKFqTqerSzaSWa5wCpnme7xij8IzO07wnooBvAwzAwFvNAwLwxpjcNLFgbuNKzh/+i+eo + ctH7vlYKbCkUFvYZgzbFlZ/YNPs6sXmODZil2KoJitg9+B3v2Rk8YsIIRhmYYBEiRlPZmaaUTm6nw3j5 + RuX8xzAwDi8g97RczUIY57GOfaTBbqz44H5C8wwlNE4zU2TYO8pR6LqKPQaRgBbOiMM4CIHkpLrxhZQO + zyuLt6rj6xZImzv0I+/hIIoPHkgPi08cxmMdhZnOuDgNv0A4HjRMkomJLh8l7a4zG6ExTryQ6AycEVZE + wWP0sSws2kluqTapqmP3T5M2+7z8b5doKR4wQBdXMdjt73F8w5QQNTVMkKkOjDNjFFc3Ssa6EYrIu4Lc + o3uEAdGWzlssHixsRju1LhKqOmbfFBvwIf7j8TcAedcby9kARRgECptqWbh2hIzvgWHZANSWUnj4BwMh + lvsamwD9LYMQI1UiBQyGnALkHueQKgez3YuT2cFk+oE1tKVIAS6AEbgEF8MYGfS2P1jDd/jef+AOuQhR + XHj1/EHE/MEa7gtT2tA7cNHbeNtQO7MJmpB/AWM4ZnUDeTz/AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABXUlEQVQ4T6WQPU/CUBSGT2IitEBbYHEy + 8Qew81EsX5XZiZVVKF+lQNFFJ1YmExZ/hYmzMXF38De4mrCaHN/b0MjVkogO7733nNznvOccYuZ/KTK5 + jyKT+ygyuY+CQ9OPlhBvafn94y4FB4DtIuKmbPOSMmfz+4ztv6cbs0OjPiW9NiGtOt5ZQGgRvjP2/Dht + +x9GY8ZGbdrSqx5plTGlKu7PAqGyzSu4Bs4E+Aauj3p9wnrNexLOKculpDWSGCkIYNsntHwA+A0tF7Sq + t4Yzp6xRLnk6pER5IDFSAFcBE+BzwM+Ba8VdwZUB3wpYNfsSIwUbGIvyHuDa3rScS5SHrJqDtWL2daXk + SIwUGNgylnUiWk5aLjRiuEJ9VsweA3aUYldipADOYtMLzLsM5xUtq6VeSyk6HC90X2OFjsRIAea9Bizm + vVO/YALcBvwSz3c4lr/A1x0F/qLI5O/F9AmFDT38Pn7MhAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAERElEQVRYR8WV209cVRTGD+DMmRlunWEu + Z67Qciv3q9xtQSyIFAbaMhYxpk289BJjJUoLLUqGwgC2MJYWNdVo4rMPGjX+Db7VGJ/F9F35C5brO3PO + cIazYy0m40l+ydnfXrO/tdde+4xERP8rQjGbCMVsIhSziVDMJkIxmwjFbCIUs4lQzCZC8UloTw6Tq4F3 + YeyTEIr/hPbA0MLYNPB+qCSEInA8t8jcStG3j2b0TEn3xVB4+vM/Hb0Lv/O4ABrm7L0L0j7zaUQewCR0 + dr2YbO84RW3tg9TcOkCNTSeorr6Xamq7ko6+m+yhltwWiW3Hy177ipzDCbK1XnqdNTvmMox79jnoo2MS + mppPSvUNfcnaum46XtNBlVVtVF7RnCw71ghzdfdMUWTmi93SV7+k4NQO2buv/8LaEW0ux2gMbD03TD46 + JqGqul2qqGyRjpY3JUvL6ikcqUkGQlWS4q/gtVO7D53ZnI288pAiMw/3OBEqHFgiuW76FM+lqmAw1jno + o2MSIqW1UjBcLfmDlZJPOZbweMskt6cU5vruC73RzUeuofj3/vHERpgT8Ua3yNY5+wPPoQpqQxrNbd1P + kYAOzlul9yaf5wKvmdp9YGL9YtHgMslNF2I8DoZiD/4Inf+M8k8skqV8pIs1tQop4+tpRB5AKAK7ZqyZ + 67svUCY2v7P3zD3idxfj9EfXPwm9vEMlI2skt1/9lLViLTbnPyawf52wGCP7hucHnMOrZGu78h6PcfXy + 8yv7q4NT9/cC5+6Ro+fGXp7Sepz1VBVU8znJ1jUn9ABCEewnMM9rSXlMgRK98zV3/C6/e5h8xoF3f3Tt + p8C5bToydJvkljc/Yi19I2AuHy6BVCdjEcZaWDtS7hpa+UtuvbTOYz9TohEobj0/pZz9mLwTd9GMj7V5 + fCFzYS53vS/0AEIR6FeJH+w+XxlfXQnGdigYu893f5uwY5Tdz8bK2SQpZ7aYTSp6fomsjRcW+TfpKhw6 + AfyYsTIuz2hi19ZxDVctwGDnTuiMmwm6+q7MKpN3yT3KzfjsO7+xhjhUIUfuPEQC+CGjnr1vNL5a2P8h + WetnpnmMLpcZJIY7j3c0ZNg7tvrYF92ggpO3yFI3fY01JKl+F0QewCykHt0c3ezzT975lXuC8jwNDTwu + YrCo/jeMOOxUcfW/e887vkau4WWytl39mbUyxhhv9jMJmeZu31jiR5xx8Qtx7vA30OFeBjcA54tFsThM + ws7eyyue0wnynF7h+A/I2vLWN9C1eWElMgaqkErAokxsbPnTzcVMbpLCXV48yN/99reXOAZHoO7eM7r8 + rWcsZexWuc29wLwU5+NYIEvL5TjimFyTn0nIrADOG03m08D9x7ni/hsrgB5AHK4fdow/DxBiULFC5l9X + AI+eBEywUyNYCHOI0dHj0JDYqRFo6nVkzH4HBR3tMZoYeZpYkBFvRChmE6GYPUj6G0WAHhrPY+1mAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABtUlEQVQ4T6XRuUoDURQG4ANCzCSj2Y02 + gpWVnc3ESYxjVo2FIAhWtmqMidlM4o7gGwg+g60g2EnAzkYQH2FawTZw/O/MGMSbwqW4EAa+//znhJj5 + X2/gx9+8/o+JlXMaF69wRtHCKY0tn9DY0vFtJH/8FskducK5DoWybQpmWhRMH8gBfbzcx5OR/FEvnDvk + cLazHsrYOJA6IP9iUw6IfuIlCxPwGfBDKNvhYKbdtTAm+1MNBNQHBDg4YuMhYBNYA35HZQ6kmjP+xQb5 + jDqNLtTkAHuqhQn7rmLfR2ffa2AGvrJxlUaS+3KADQ8FFse6C6Zbm3ZlTDYa7FuovY8mqz6B1URFDhAY + lXGo9hQmm8CaVRn7+oyaick8Mr9fVOcrpMb35AAHi8qXTmVGZca+jMnAFVYT5RcvsFcvyQHOlYeATeDp + r/tiqgvYBGaPXjI8c7tygNgXeA24K66MqYTKApM3XiaPvneh6CVW5oo3SmxHDrD+X6N+j2NtCKz2MSrH + S6Tou5PAPeCeO7Y9LgWg8rOz7xP2xaXLFkZlEpWVWHHWre28DmvbPKxtgXwL+Osb+PHnj+kDpobrk7Gy + 7NYAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAF6UlEQVRYR8WV21OUdRjHQYFld1lgT+yy + J1jwkHng7GmssQhQREABOQSidpNm5VCoCHIU5JASigiZCWlat111W9NMM81U09RNV03OdB36Dzx9v+++ + 7x7gXeIqn5nP7P5+v/f9fZ/n+T3P700QkReK7uT/ie7kWkRZItig/pJ1W8x+0YP1oBqFk4FBJQms24mY + /bQ/aXtGE9J263EtBhiFkvM6F/uDHY/EXDb8J8YmsJFr5rKRhBDDYUyl0QwprMOBWGGziipk2nTmyT/5 + Z56Is2pGTIWXLmCOmdgQFlYFtV9NOL4DccQ1YVWc0afkts5foHje6cfia7ov5pL+7zCfBpSjiIiuFjaV + kMF4DugLm8vICPYORR/sXPo278xjOPCFgvXglBi3nz+ONSULawlr6DgQX1gVV87e3zBdF4SowqlHEux8 + KO7aO2Is6nmEdSULawnHdSCecJQDrHxjbvv9JXfdXQm0zD0Odn4uuSfJklj2jYohv6UYzzALiSHh1eLG + kgEFfQd0hFVxJXr7no5ATvuSmEuHljH2BtoWvs89uSg5HYviqJoW486uMcwzCxvjCRuLQ6x2II44gTH6 + 1EDz7LDj0IwYC7pZkXbvsanunI4HktP+mfhb7ompeOAZ5h0gBSALq4WNxf0KOg6sFA61EDcCrO703I7F + Zcv+cKrNwOZvXXgaePO++NvuibUcxbjjvUuYV7IQEY0Ir8OBkLAGTIne3zjd5a6bQ5S9X2NsAYwyzVM/ + MUZxf+snkn1sFsXY+zvm7ep6op64sUjXgVhhthI3AIzeEmi792vmq+OSuv1cA8ZGwJY0WLZWbva33H3m + a1kQX/O8pB9AhracasMaM4QsxAqnFl1VWO3ACnG2EIzRG7KPDDV4mxcQff9fGGcCfgc05zI89VNPvM1z + 4j0xJ87qG5K6q/sbzEeyECW8pgMrLxAYo0zzNd1+aK+4IcZdXaMcq/N0QGnNzNLWfd4Td+DArHibZsW8 + e0iSfYcOYI3fiA2x4n0KqxzQEadAiuOVc8U+RI9Nl5Oy9m7FHB1gZMwCfynizq6f/MHTdFuyG2+hGMfF + sP3dTzFvU59LDIsXhtBxQBVXLxAYozR76idHndXo8V0ffoVxDnABp0oWcIOgdffJs+6GGXE3fCyu+pti + LO57vtFetANroSyowiF6dRyIurlgSvTA5m+eX/a1zKPAcMbqOYdSfVsYsafhFkRDwu7j0+I+dhPckIyD + 18Sw7e2b3AMoHykKa+g4ELm1YDxbk7tm5KKucGMo1XrCLlL/kThrJlCMl//GPn7ArkEW1uEAjNHz3Kye + xpnfrOWTaL3zUxj7ANPPtPOXqSfZwAMCBvfLe111E89dtZOSVTshlv2DkrKpvQtrVpCkiBf0JhgKrug5 + gAsDwJToneXdzYzUVNL/LMlZug1zLD5+aHg00XCOsO9d9vKLD7Jqx8V5dFysb+AYdnT9iHk6r2SB4qsc + oPHG4gOAm9ndR8e+tFdOSerOLhafdr9znRnSQ7mwzFsryp0113EEY2BUTGV9kuStasaadi/AiZ6IA6pp + G6QCK6J/x8N2eu06CuksC4mpZoQ8GvR1pKJhfJcdw80zQL694spPjppr4qgeEWvFILLwwR+Yfwmwc8L7 + AMW4AV9OB+6sQ/2T2VHtlLZv8HlKXstprHkBz5IZUtuqF38VcbYaayMIimzlF39xVA+LnRwekozXB8RY + +P7PyYHas1jPA+wM7kPt0G3HiDVhpaq1yq5Xq/oIqrqg5ymeZZRKQcEU59OLTpRpESvCh4fFBmHb4UGx + VZEB0C/Wqqti2ntFkre8xZf5QVOyQAcs2TrCbgi76qaEVe2oxoeo4DId4Lcg2gGDpbCpLCJMYoVtlVcl + s7JPMiv6xLSnhw7w7JhxaocLj5HxjFa2lwbnmDrWSfj8YKwdpQNAADDF+SqbwGaVLeqYz2hHoOzDKPiH + G7EWNPhANJyLKR7V+L5WhHSO7RYN6yMaPqPtkxjTCjButhb/ZXrv6BJuQ+3Pi0ES/gXeVMTdMYhaUAAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABg0lEQVQ4T6XP227aUBQE0PmEVikQMGAM + GN+xMTZ329iBECiiSaOq//8l0x1F8gP4obQPIx1tac3ogOR/pfJ4TyqP96R8XH7+5vn1F0+Xd76c37g/ + /uDT4cx8f2JWvHCz3XOZPHG+3jJepkKuCo6Xdxy+v2F/vEAgtrsT0uIAgVglBQQiWiQIZ2sE00XpyodA + Fs9nbndHJvmB6+xjsZDFjAIZxiv6Ar0ghj2e3hYIRJo/Y53tsEhyzFYZovkGk3iFcTiHO/mAIUwngG55 + twWrdMfFJqdATucbCqQfzukGMS0vpOEEHJoe+4bD3tAUclUwW6YQKIvLz0U/guVNYDg+BKI/sqEOTXS1 + EdrqoHTlI4iW9CYzOn5Ey51wZPuy6FLTbaoDkx1NpyKw2dHQUNTbAsefQiBG9hhDw4VAWTTQ6elQup+w + 3lJRe+zgoaHcFujWmAP5n6ZbVPsG2z2drW6fj+0e660ua802H+oKv9aa/PKtIeSq4F9Tebwnlcd7Unn8 + +xB/AMM/LvMiGAc9AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAD6klEQVRYR8WW6VIbORSFQxKyk4ANGBtv + 3d4XvBuz2mDCEhK2kMwkU5OlZt7/Gc7cI6lxy9XG+THlqOqrbqnVOtf3XKn9AMBvJXBwlgQOzpLAwVkS + ODhL7M6ozQkPJ/BoCo8nwGdc19a0OrpRZF54KjwTnvt4Ibw0vDIsGF4b3hgWhSUD7zn3iTBnaVodHeH8 + 9ad/cXn7Dy5ufuL99Q+cX33Hu8tvOLv4G6cf/sLJOfmKo7MvGJ7+ieHJHzg8/oTDt7cYDD+iP7zB3sEN + dg+usDO4FC6wvf+BAgzikaVpdUwAhUoPhfKmIlfqIlckHWSFTKGNTJ604OaacEi2gTTJ1JEibg0pp4ak + s4FEWhNPVynATE0NgH4x9UyzP71BqQ0JYWHZsGJYNVdvnHO4Bi14aGlanVEA9Jvp8vs6LhwkTmEPPueP + YC2xprgu6+veGuCEJ4fHnzE4vkX/6CP2lZ/X4uMVtvuXwgW2xM/e3nv0ds+xufMO3e0zdLZO0e6doNU9 + RqPzFo3uERdk9ig8F40X5KKbpWl1dABPHfFR+enWkRQ/k+6G9lN5WkUiVUU8VcE6SZYRS5YQS5QQVRQR + jRextl7kgsyeCiASy8tFN0vT6mgLmC6mji97aR9PuT/dEcOaEPXBecwA64ne/5IF/gD84pO8HheOCesG + 3nOMzzmPazGYe4uQET5ri58t8bMpfjbpZ/sI9fYQtdYhNpoHqDQGqNYHqNT7KNf6KNX2UazuoVDdRaFC + dpAvkS1kSbEn23eTAgzisaVpdXQAz+lnTHxUXio/C4h4xPKK1WhOsULWsppIFsuRzIhVF2FDaMX9pQBo + Af2id0y9P+VBXnspjxsSQtLAe47xOefSRm7vqRYwABYgX5gk7vd6XDhlrpzL84Oi3lkwtQg54YXyU3m5 + i3x5B7nythzJ2kvPTzffVTj5jhzHHTmK25pMW47jlmzdFhdkFik8txhmXLpZmlZHfzJfaj9HXoYjIy/D + 4mVoxRmxrFlaTmvCaYiYQtZiFnUAISZFN0vT6ugMMF3cgkz9eMrHvebPShscwTXwnvNZdPyEc031HRCm + WsDJfJGeU3zc63FxinniGUPWXDnOeXyHP4jB3Ps1pAWv6CV9TLlNJDOC00RC7hNOQz6rdcU6SZGaHMcb + chyTqhzJVTmONWskLvfxilwrFGBRz1uaVkcHsEAvF8XLJePlHSGSxBsfr5cSk1mM37EgyNrMwr0B0AJ6 + xe3DaL2tF7T3J9XEeF0Q3nMNHvFT/5AwCH44WL0MxoO1EQTP9yC8/5GEfa6h/phamv6OGhg1BvN/ctcs + PX/ndxA4OEsCB2dJ4ODswIP/AN+bQQ5b30WyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABg0lEQVQ4T6XP3Y6aUBwE8HmENlt1FRUR + kW/5FkERdXVdrbHdbpq+/5NMD2nChXJR24tJTv7JbyYHJP8rjcdH0nh8JPXj+uMXL99/8nz94NvlnYfT + N74cL9wezix3b1xtDsyKF6bLDZNsLchNwen6gePXdxxOVwiIzf6M9e4IAZEXOwiIeFEgnC/hR4va1Y8K + 7l4reGKxPXJZVos7sVhSQIZJTi9a0PUTWLPovkBArLevWJZ7LIot5nmJOF0hSHLMwhROUMEQhu1DM937 + gny952K1pYCM0hUFpBemdPyEphtSt31ODJdj3eZoYghyUzDP1hBQLGZ/Fr0YphtAtz0IiPHUgjwxMFSm + 6Mtq7eqHH2dwgzlsL6bpBJxanlh0qGgWZdXgQNEoySq7AwUdSb4vsL0IAmJqzTDRHQgoFnUMRhqkoYoK + tnsyWs8DPHWk+wLNnFEV/1M0k/JYZ3+ksTcc87k/Yrs3ZKvb51Nb4udWl5++dAS5KfjXNB4fSePxkTQe + /z7Ebw29LPU3Cs9YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAD6klEQVRYR8WWaVMbRxCGwTaxndixDYhT + ErqFDhDo4DaHsAFjc8WuXJWrkv//G970sztjtGKR+JBSpuqpOXZmuum3p8WYpP+V2MVRErs4SmIXR0ns + 4iiJTm7buPHoHh4P4ck98I17ozYjk7BhZMJ4ajwznvfwrfGd44XjpeN7xyvHa+ONgzF7vzHGIzYjk9DD + iesv/+jy89+6uPlLH6//1PnVH/pw+bvOLn7T6adfdXIOv+j47Gd1T39S9+RHHb3/oqN3n3XQ/UH73Rvt + Hd5o9/BKOweXxoW2337CAE48jtiMTJwDlZVdVeqwo3JtW+VqSKm6pWJlU8Vl2FChvKF8uaN8qaNcqa1c + saUsFIx8UxljKbcekM6tYYBIDXUArQiVD7kPsw9vb2gnjSlj2pFwzLjer7OH89z7KGIzMgkbTvhkI3k4 + hOa9xjEcZxzDHr5zjlwip7iLe+/PgWDBmoV2zELLkAPP9g6vTccrbe9fGhfaMj039z5qc/dcGzsf1Nk+ + U3vrVK3NEzU777XWfqe1zjGXETkMjy+m69bF2LuzYC1fbI+ZngwDBzIF9DQtAU2za0obqWxDqUxDycyq + kksrWvSkV7SQqnMZYQ8cmE9WrRvigGv9EvAU+UsIvQ95b7hnHXPGfA/s4xznkXG4BHx0G0lAks8n3iDj + vYYXjEUHY9b4zj7uwJmBSRiEvGV6Nk3PddNzHT1bx2q0ulptHmll/VC1tQPVGweqNfZVXd1XZfWtlut7 + KtvTLddgR6UKbKkA9mzz9mTtbpx4ErEZmYQOPEfPpOkYaJmuB3rOp2ohSahqbhEqmoUFx/yyZr5S1sxc + WYmAkqZnSw9yIChEBu+f8PPseE6EflDIk46UkXYwZo3v7EVCpH1QHeitATiD5zjgjfdq3W94yfXsJX8w + 6mvB4CQMFqxZeOm8Iy+KVoaLTkuvZy4ovx1lrQRni21lrPwG5Fv2XJtWeptcRvQwPD6ZyFsXY+/OgrXZ + hWU678DLhOnptUyYlugZUtT0TMhUQEFTiYImA/JcRthDB6Yf4IBr3jAHCR3llIsIfX/ICXfGkTVyDsbs + RTok5J7gd8AYWgfYSAEhfLx5Es8bx3C/cYx54/yZUHA96+zjDDmEMwN/DQPN0RIdg59RK7/p7LpSNk5Z + +U0GpbehRViCVfdce59syBwkbWxPd86wu/mDJiI2IxOnOVqi462eoaamY8Cb6dxXXk/FkQ2ZvOWVYXcT + hYEOoBES8Hx8+HlOcW/f50N/TvTnBTDmDvJp6D8kOEENIAlxxkMixUF9j4P372HOHUR4eB1wDWf+S4J2 + x17/wqiJXRwlsYujJHZxdGjsX/GUSDmdJGEtAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABhklEQVQ4T6XP3Y6aABAF4PMIbbbq+ouI + yD8oiigKCqvrao3tdtP0/Z/kdEgTLgwXtb04yWSSb04GJP8rtctHUrt8JNVw+/GL1+8/ebl98O36zuP5 + G19OV+bHC3fFG7f7I9fpC+PNntE6E3J34Hz7wOnrO47nGwRif7ggK04QiCQtIBCLVYpwucF0vqpcNZSw + eC3hGWl+4mZXNhbSuKNAhlHCYL6iN41o+3MhdwdKmOWv2OwOWKU5lskOi3iLWZTAD2O4swi2H8J0ptAt + r3LVkGQHrrY5BXIebymQQRjTlUbLC2k4U45NjyPD4XBsCrk7sFxnECiN6z+NwQKWN4PhBBCI0cSGMjYx + UCfoKVrlqmG6WMObLeGU0J1xYgfS6FLVbSqayb6qs6tobPdVtrqKkLsDTjAvISa2j7HhQqA0GugPdXQH + GgSi2VHQeO7jqdWtXDXolk9N/lN1i8rIYG+oszMY8bk3ZLMzYKPd41Ozy8+NNj99aQm5O/CvqV0+ktrl + I6ld/n2I3+wILvNaqp3MAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADyUlEQVRYR8WWCVMaQRCFPRNNNF6gCIhc + CwLKjXcE8b41WrkqVyX//ze89Jud0d3NAqYqRabqK2ba3emmX3fjAID/iq+xn/ga+4mvsZ/4GvuJ+/C0 + BoWhDgz3YKQD/Bvvdft0HexFJ6PCS2FMGHfwSnitmdBMat5opjTTwoyGez77Qhh0+XQd7AhHbx9+4fr+ + J67ufuDi9jvOb77h7PorTq++4OTyM47PySccnH5E++QD2sfvsX/0gP3DezTb77DXvsNu6w47rRtsN6+F + K2y9vaQDBjHs8uk66AByazvIrZJtZAtbyOZtMvlNWLkNWCtkHensOlLZBlKZBpKZOpJWDQmSFlJVxIXl + ZEURS5bpgJnqGQC1YqpMyk2aTXqdqZ0V5oSAJijMaxaEkIZ7PktJh1w+XQd7MQhTbCweBkPNnc55WSfn + dGacL2q45/P8Up0DUAZZktoBSS23DGRst3UrOt5ga+9auMKm6Lmxe4GNnXOsb5+hsXWK+uYJahvHqDaO + UK4fotw4QKnWVhSr+0KLlzOLIy5/zoMyyEpZ9QHRk1sVQDxNPUVLQk0TZcSEpUQJS/ESovEiostriBhi + awgvrWoKCEcLWIzmeTmz2DkAvbwSUDfWAFNvUu7V2pnysBDRRIUlvec7rKmeRUin1IrFZwqvm3On1sY5 + HRvnMb3n8z0DUCmviZ5V0bMielaoZ83Wk1quVVoolJtYLTVRKO0hX9xDrvgWK6u7yErrZgtkG5kc2USa + SNumpGXlbn6RrhIwgHHqGRUdlZYxW8tF0VKh9QxFSA4LJKxZXMH8I1nMh7IIKjIILGSeFYAaRAJTxfSz + 7dg+TP3fpHxZiGsS+sz32M5dJeAyw8jMAAbDyBlAt0KjY6dzOiZJfea73UexMvDJSJ4fJpAJS8awpbU0 + eibV+G0gISM4YdURl/GrSNWkXasyeoVERVqVSMtKu8pdLORRlz/nQRlkLYRX+GECmAyKnkbLoGhJPW0s + BOZt5hRpzAXTmFWkHpkJyKcgd3UPQC/j2PwkUze+yNR7U+7VmulOadKCpeGZ7z7rx4i680EWH3uehWec + 07HXuVNrr+OMhjYG3jMApTm1pI7qZ1TGr9JS9tQyqkZvCRGyTIq6XZ0taxMiUdlL64YEuZtfqKsESnNq + SR2f9NSaai1nAslHpuf8SNjMPjElyN3spK4BcBBRAo5fk362j1/vm3rw1oS3Lgj3z5oDrAEGwRnAImQw + BhakH/yx8sP8H0l45h3McOf/CZXhaTGYf4laf/jzGvqNr7Gf+Br7ia+xf2DgN+QaU8pDn54tAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABiklEQVQ4T6XP3Y6aABAF4PMIbbbqKioi + IvIvIAr4g7q6rtbY3W6avv+TnM5mEy4IF7W9OMlkkm9OBiT/K7XLe1K7vCflcPv5m9fXX7zc3vlyfePx + /INPpyt3xwuL/QtX2yOz9RMXyy2TbCOkcuB8e8fp+xuO5xsEYnu4YLM/QSDy9R4CMUvXiOZLTOO0dOUg + kPvnK7eHM9e7E5fFR+NeGgsKZJTkDOKU3jSh7cdCKgcEYrN7xrI4IF3vMM8LzBYrhEkOP1rADRPYfoSJ + M4VheaUrh3xzYLraUSDjxYoCGUQLutJoeRFNZ8rRxOPQdDgYTYRUDsyzDQRKY/bZGMxgeSFMJ4BADMc2 + 1NEEfW2MrqqXrhyms4xeOKcTzGi5Icd2II0uNcOmqk/Y0wwqqs52T2NLUYVUDjhBDIEY2z5GpguB0mii + NzCg9HUIRLOjovHYw0NLKV05GJZPXf7TDIvq0GR3YLDTH/KxO2Cz02ej3eVDU+HXRptfvrWEVA78a2qX + 96R2eU9ql38f4g81hDTt/YQtXgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADsUlEQVRYR8WWeVPiQBDFvW/XCxQREQiH + iHKKIioo3ve5Z+1Vu9//M7ztN5lIkg3GP7bYVP3KmTGZ1/TrnqQHwH/Fc7GbeC52E8/FbuK52E2ck/bV + K/R1oN+HgQ7wf9zXqemYmBdFBoVhYUQYtTEmjGsmNJOad5opzbQwo+GY9w4JvQ5Nx8SMcPD++Tdun37h + 5uEnru5/4PLuOy5uv+H85ivOrr/g9JJ8xtH5J7TOPqJ1+gGHJ884PH5Cs/WIRusBewcP2D24Q715K9xg + Z/+aAgyi36HpmOgAshu7yK6TOjK5HWTWTNJrNaSy20itki0kM1swMlUY6SoS6U0kUhXESVIwyogJK4mS + IpooUoCZ8g2AfjH1TLM9vV6pnRXmhIAmKMxrFoSQhmPey337HJqOSTsA+s102X11C3cSp5glvqjhmPdz + 31cDYAEOHZ68R/PkCY2jR+wrP+/FxzvsNG6FG9TEz+29K2zvXmKrfoHqzjk2a2eobJ+iXD1BcfMYxeoR + CpWWIl8+FA4owB8z4NB0TMwAho2U9lO8jCXFS2KIl4SexouICsvxApZjBURieURWNrBkEd1AeHldk0M4 + ksNiZI0CzOSrAagiFOg/o7XS7k6522t7ysPCkiYiLOsxn2Eb+3eBwADs4n6FZnltiVPYEo/qMe/3DYAW + jFTEz7L4WRI/S/SzYvpJLzdKB8gVm1gvNJErNLCWbyCb38fq+h4y0rqZHKkjnSU1JIm0rSEtK3vzB/nW + wCj9jIiPysuo6eWieKnQfoaWSBYLJKxZXMX8CxnMhzIIKtIILKTfFAAt4HHJ3mfq/dqrU8pXhJgmrud8 + jtb6WsAAWID0vZO4V6FR2C5OYZLQcz7rexQzgDHlp/JyV47fOlJyDKe0l5afCXX8VhGXIzgubRtTLSsY + FWnXshy9QrwkrUqkZaVdZW/+qEGHpmMi0QnjC+FVm5/iIdFeBsVL+mmSQmDeZE6RxFwwiVmF8cJMQP4K + bwlAHUQCW5Cpd6fcz2um29AkhZSGcz7v+zKyAmC10nOKu712i9u9dgunNVzj874B0IIJekkf1WtUjl/l + pYzpZUQdvQUskRWS1+1qb1mTEInIWFo3JMjeLGrfGpikl/Sx7af2VHs5E0i8MD3nRdxkts2UIHvTVt8a + YBvypcFordazasGrBd014a4LwjH38D0HeBAxCH4T8J3AYCxYG17wI8ML+7ck59xDfZg6NO0TtdC+GMy/ + RF1/6bkXuo3nYjfxXOwmnovdAz1/AGLzXxAkKKpuAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAwUlEQVQ4T92SWwqCQBiFh8wyS8u0bAUu + xQUIIgji4rK7hdQCT3+Ulx9sQh97+B6+M87AOSgAVDw2Bu7uDIU7ZbkMJsVa924rHVdnwnIZTHJH8y72 + GOfl2CuzNE2RJAniOEYURQjDEEEQ0FHLAydrhKOl4rBQSetcRmvYBSaNEasKv2BCIwoa0aMRSfmH32Dy + ByN+fiLkttZvROovqL//qtLMZTAp++/nw34j0kWxMxU/MxXSOpfBJDMG2L7pt0F3IJ7ABa1S78raQwAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABB0lEQVRYR+3Uy2qDUBSFYYe52TSQJmma + TM8rCIIggiIIPmnpNZcmL7eyCxnoZo0U9+mgg2/gfw4JiKwAgFc0WqLREo2WaLREoyUatet+gYv42T3S + 8z5o1OSP3flljtN2Ts/7oFE7bh+Cw3OI703Y6nVdo6oqlGWJPM+RZRnSNEWSJIjjGFEUybX2b2k0al+b + mftcT/Gxmjh23geN2vvTBG/LMV6XI3nkd7qi0RKNlmi0RKPW2AE/H+HvAMkOONkBeeR3uqJRkx1w9x1o + vQHLHYDsQCE7QM/7oFH734Eh0WiJRu2v7EDhcwfgeweC+w7II7/TFY1aYwf8fANDotESjZZotESjHQQ3 + cJ+N363eXmUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABh0lEQVQ4T2P4//8/AxJgBGImKA2WI4Qh + BFCDdtmpMCA+pFVy/JBG7r5IoBgTumJsGEIAFWsWHD304vP//zff/P+vmr79CFCMBSQXHx//PzY29n9U + VNT/8PDw/6Ghof+DgoKAUqgGMKtk7Dx84MG//1tu/v2vlLAWZAArTBE+DCGALlCIWR6jGLfqqGL0sqPy + wdPjQIaiK8aGIQQk0NiAmBuIeYCYHYhJCgNmjdzdsVrFR49rFh46rpqyLhEoBg4DQhhCAG3UyD1wHBaI + KimbTwLFOEFyxAYih0ra1hOwQFSMXX4KKMYFU4QPQwhgiMuFzExRiF56SiFi4SkZ3+40oBgbumJsGEJA + Uh8oAMWAWByIeYGYpFhgU01ZlaZZcOCMRt6es0rR87OAYuzoirFhCAGMOrWs3WdhgaictO48UIwfJEds + IPIpJ68/BwtEhahFF4BiAjBF+DCEAMaCtE93nnzEggvyoXMuSrnVFwDFwNFICEMISCByArEgEAsBMRdI + DF0xJv7PAACd2D1r2sZsEwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADaklEQVRYR8WWW0jTcRTHvWVqiWZWmlPn + ZooWk/YiDDSTDMPSshRCgpppljVD8ZaZ+lIEGlFUghfKh6IoldVDKmreTZNqmUr6FBZkPUThJvNyOmd/ + rczzsGV/+8GHje/5/c7v/G7fzQoA/iusuJKw4krCi0ubNWIzD30nTI0bbwm8+KtZK0uG1duLhxuURUOT + IYW6RkX+i2TUbSlGHbjxlsCLQrNWFOrUSbdGjbX9X2Di+wzUdE7AgbI3xiBN63GM/5MieFFoNsHZfY13 + uybgqwHg4zeAoc9zcOnJB9iS1tCE8VWIaAVQYrvAjI7JgXEj6D7NQc/4HDSMzcKdgSnwV9frMb4aoTth + FRsbCzExMRAdHQ1RUVEQGRkJEREREBYWBiqVCkJDQzHt0nkIXpwvQJb6tKmk7j1oR2bh/uAM3H45A6dr + RkF2uKYZ4z8L4HKYCy8KBdj6HnmQGp7basyoGYMrHZNwomoEVBlao2/ctZMYt5/vx+YwF14UGq3O3udQ + RZo0sbpZnlipl8ffaJHGXE5H3RExXUJuvCXwotBodXTR1iDrEHfEDXFGaPXL3n6CF+ePAHFQ5Halh5x/ + 1aoseqtX5Pc/C9Y0nkGdirKjftx4S+BFoQD7rVntp5b6gM4YkFKrwTgdg2iXkBI7BWV2tXI+4J/yuA3j + LgjtEpvDXHhRSOwcmNGuZ33gWL0B43Qf6BhE8QFTAX7J2jbOB/wSqzswThfTVACXw1x4UTgCR0lCxdnw + 3JYlPiDZczEL42sR0Y5g4Qm6SPaWZvnGl3fKEyoNsrirXd67CnJQX4+QE4r6Cmh19Nw8EH8kGAlAvBDy + AvGfIeIWlK7NUeQ971ZeGDRsy+7sCUi+l4/6RsQBseHGWwIvLryCtLrspJvvphf5QOnraVlS1TmMuyKi + XUJK7B6oaenmfECuftSLcU+EdonNYS68KCT2CNS0GXgfqJvCuA9CF1EUH6AXsEl69GEv5wPSg+V9GJcg + y34JvCgcgevmfWUF6APTi3xAo5323JlXjHH6dTT9LeNymAsvCkZEt9zDc3dJoc/+6/3yhIopv32l/V47 + MmlyWr0T9ePGWwIvCs3khgiZjjciQ+jcNyA0Ob0UcXyAoOQIFUHHQWdNO0KftO2kL3tyghV/hyb6E67f + 38KKKwkrrhxg9QOymrLir1y7pQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABEUlEQVQ4T5WSXW7CMBCELX4KBJKQEgqF + 8ppz5AyRokiRolyBw/QGBdpCS4H+97UHm64jLDAsSXn4LM3s2tJ6RwAQr30Tm14Lq14z0+eQHasrw1t2 + DTy7jaOGIrLjya17i04N88uapwppmiJJEsRxjCiKEIYhgiCgEvPAo3OBB6eK+3aVpN5QBGuegyZ+Rs7t + 98jB1017vO/noQm6KD6Htv8xsEnqjafQxPvA8t+uTci1Kq/oM7UHNv0W1pQFWivJnZ+HJl66xnjpNkBr + /d3382BNCY0h/pNO1pTQGILSKYrSyZoSGgPbdGb61GceXVRQOsU2nWxdwZqSmV3xCUytss/VFawpmVhl + TMwS7ojD2g6IP1y8ovP5gD7FAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABVUlEQVRYR8XUy0rDQBTG8UHtxdg0jW1t + rbrNKwQCgSEQCATyLH0YH8FL1VK13t32wY6noGLiBynjcFz8FvnP0K6+UUT0r2CUBKMkGCXBKAnG9xOf + 3tjrcQ+e2wQj/3HwcuTR88SD5zbB+DTpqsdDlx7GbqkXRUF5nlOWZZSmKSVJQlpriuOYoiiiMAz5Wvm3 + 6sC4HHeC+9Ee3R04ATq3CcbboUOLwS7NB23+/H1uE4ySYJQEoyQYq3gVp5+rmC5HHXjHFIxVvArFq9C8 + CloMHXjHFIxVvAr9tYqbfuu723gXYKya99t0vd9SV36TZn5DozumYKya+c3pZa9BF97OinHC90zAKAlG + STDW4UkqniTZmCSMdXiSiiepbEwSxjpokqZgrPNjkqVu8i6UPjbFk9TrObI/vwkw1jnvbtPZmrvFn/jO + pmCUBKMkGCXBKAlGSTDKIfUBwhx7s1nwSsgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACVUlEQVQ4T6XQ11JaURjF8XVvoijSexVF + FDFYMNhFAliixhJ1kknu8ihRkKZUS2KeIa+38u0DOInjXS7W7HPz2/89B432L8pwcv6Vx2dfeHT6mR9O + PnH/6Jx7h2fcPfjInf1jbu0eMrtzwHe5PW5md7me3uJqKks0Wo+stx5Rb6r91FZTa/zATXeZ7QOkc3tI + ZXYhECsbWSytpZFcSUEBKtQpnmrF7b1j5qQokOnce6YyO1zf3KJACmRyOcXE4hpnF5YppX9rN/UHXPdW + e0C1di/FDJZW03i7vIH55BoEIj6/iNjMArqoCwX0UPWms8rNPRVMJFc1+GYuqcHo9BwiUzN4KqnNfvvN + LpLdoXJ9h/L1nTx1SUHG4glOTs8xEo1zbGKaI+Eon2oKP1/5+hbl6i2n4glMxGYxPhXH2EQMoXAUgdEI + vMEwtNpLWK1YbaNUaXM8GsdoJKYV/aEIvSNhuv0hOjxBqieqyouXFCttXJVbAichUIpjcPlDcHqCsLt8 + sDo8QElwZ23tEoWK5ZaCnZWa9AQE+lQxQJvLR4vDQ5PNRaPFQfVEPEcFtVIT+WIThWKTDncANqcPAmG0 + umAwO6A32TBosOCvUgf1YL7YwKXaVQNmu1ugEwaLHXpjB+qGTegfMsoF8kSFfPJjPP5ROr1B2t1+Wp1e + CqRADpvtFEiB1OlNFMj+QQP7BvTUnqhqWlFql4W6nHVcyHlRqOF7vtYp6qU4aMTrwWG8GtBDsDbkrxpU + QP0Ys81Ng6VTHDJaqTOYOaCKUhNIgezT6bWz9w3yf0b8AdsTlP4cyccZAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGP0lEQVRYR5WXeVNURxTF38C4MEYT2RkG + 2WeYDWZgBhgQkU0QQRAUQXElxgWXaGVVEBFlxy2LplKVxCQmMWWWSogxVkyqknyI5GNY5f839/R7PTSv + RtSp+tn9uvr1Pd3n3n6oEZGm/CwvQNwLEG8CY1hD0+aufkQMunJRTLAqLFNYbmKFwUqFBAWbwioFzMPa + FlVA3N6BM9R/8Azt3n+KdjFo+/adpJ39x6m3f5DbQdrRd5S6e48wr1HXzkPU1XOIOrYPUHv3QWrvOsDs + py0d+6i1Yy9tbu+nlvbd1Ny2i5pa+6hxM+ilhpYeHDtExGmzV27hQew+FNlMgsoWKqsAzVRaDjZRMMyE + migQaqRAWSMVlzYw9QJ/kAnUka9kI3kFteQtriWPfwO5BTVU5APryeVlPNWLBTDcF8cvj/xZx2s+1pcM + ViusMXjZ4BUFzEWMOG1m7hbNzN3kflSA6u+LBFcFxAq+1sAs4Ka0IL5zxwB1sp9b4ec29rLT8HLrHvay + X3i5qRX0sY+9VN+8k+o39VBd03aqa+ym2vou2lC/jdZv3EbVGzuoqnYr006RmjaKrG+jiuotVF7VSmG2 + meNhE3Ha9OyHUQHCy2Cd7mdA99IDLwWLvSyCl95qcrKfTk8VFbojOkURKnBVUj5wVlCeoJxyC8M6BWHK + KQgtFsBwP6YFz1Niz5MHqh3oYz5yzaJNzXwQRQzoQiTqxWEek6iJqwpXUTcBMA/vWrRJDjw5LXmfx6Ii + ZAD0LRNT72njk5IbQFoHATiRZyWhTEQ1CVkAB5WIAT3ocv+ej51Vb/0zz33sAEHkCVguT9zQGAjA88pA + qIFKBHwvlOl55BN5VMt3wwbOnxq+E2o4hzh3fNUid/g9iIjXJqYW7dqaUtK5JnzqwXDkzb+fRN74CxOx + A0yG3zg+iLFcGr8eFbAut5QkWTlBgSM7QI6cAGVym7muRGCXZBUvCOCf3PWK4Kt3mypOP/q34syfVH76 + Dyp//RGFT/1O4RMPKXTiN8rruY0XISJubPwa+ngX/mMxHG0ik8QkK6QwqQp4xlyxDqNZ89tG7aHj9++I + YCcR7CGVHX9ApYO/UunR+xQ8Ok/Bwz+TrWo0qnzs8lWzAPi7VPA0A/QxVxdgb70+WHps/nEZgh37hQNy + sCPzFDj8E5Uc+pH5gYoHvif/wXtSAJIs/uIlIQA7SHDxPeAU90AlFRSBCirg2s9n8pxG/ReG+A4o4zug + jLLzS6PraLaKc4Ora8Ye5+74VAREsOKB78h/4B759n9Lvn13ybv3G/Ls+UoKQHZbR8euRAVkZPlJ4AA+ + SgeZPkrL9C5gl3goNcOzIIB/y5YXdjtslUN3EhumqbD3cw72Nbn775B795fk2vUFufpuk6v3s0UncOHi + nBSAcoIoHH+sI09nMhTwjFxB6YocwD+illcGTzSvqhr5L63lGhX0fCICmuF5qIb4kdFZswB4vlRwuwH6 + EKsLYC+5Xaj/+CRvYkL47RG25YkRUGYtdo7g4go9f2FGCrBl53EJ5gW5DLkEcwNchiUCB5OZXcwlWcxl + CPxchjr8HsrbqrGXAv5F7wImYYW732OrHL7PfRkU4xCJ4NqwLgDPq+BpaoabUiTpKkWUDNIWSGL4PV0A + eykYuTir8bHyWPQ05P0ub0GMC4ZHprWhkWl5ApiD04Gvavmp+aDagv5CGSKoEhgLIjiCQoAEz7GQIrFY + rC+kCu4KgD7m432Ldn5UHCWCYwCLYDexPiQAygF2K2899fIx71xNRgme8a5+AsMj0WRK0BMIdzgnD5II + ySMSiBOH61xvfVzzOqj3DIeXW4brOz3TwzWvgJq3u3UyinTsesvxsBErC4h6maAmj0gYU/LouDiJmNTY + JKY6KTGFQSv7iygURAUMnZ+SFpiTaanjNNd2poHDIItZZ5DN5ChgDOsgF+K1c8OT8gSkgKfdaLGCxwr8 + tOC5BhjDOrqAs0MTUoBNeMlI/6SHaSYPU4w+2pR01wJpTrbNyX1ujT7apLRCQXKqThLD8XDSVu3dc+NR + AbqP7JOZGB5K1ppJBgVPJ0lvDQHLtHfOXsYDcgA1Lb/rS5WYtEe1RfKs3AB4xnr6t0D57zlExLqEVJAn + S2H+a9gMah8t1uJT1yz/AwAy7e3TkU7jAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACVElEQVQ4T6XQWVeSURjF8X1vqYgg8wyi + iCKGYziLBKik5pC6atVdHyUFmWeHss/Q19s950Vc1vKui73Oe/M7/7NeNDu/KMPpxVeenH/h8dlnfjj9 + xIPjC+4fnTN7+JF7ByfcyR4xvXfId5l9bqez3EzucD2RJprtBzbaD2i01H5qq6s1f6D2uNTuIZKZfSRS + WQjE2lYaKxtJxNcSUIAKdYtnWnF3/4QZKQpkMvOeidQeN7d3KJACGV9NcHF5g3NLq5TS37Va4x7V3ur3 + qNTvpJjCynoSb1e3sBDfgEDEFpYRnV3CI3qEAnqoUuuuXLujgovxdQ2+mY9rMDIzj/D0LJ5KPTj37TcF + CbxFuXqLUvVWnrqiIKOxRU7NzDMciXF8coajoQif0L8rVW8Eyyo3nI4tYjI6h4npGMYnowiGIvCPheEJ + hKCe+OIFaoVKB8VyhxORGMbCUa3oC4bpGQ3R5QvS7g5QPfHFCwrlDtSuS22BUxAoxXE4fUE43AHYnF5Y + 7G6gWLl5XBdouNRWsLtii26/QK8q+ml1emm2uzliddJotlM9UYPPUV6t2EKu0EK+0KLd5YfV4YVAGC1O + GEx26Ees0BnMeFbqoh7MFZq4UrtuwmRzCXTAYLZBb+zCweER9A8Z5QJ5okJe+TFu3xgdngBtLh8tDg8F + UiCHTTYKpEAO6kcokP06A/sG9NSeqGpaUWpX+YacDVzKeZmv43uu3i3qpagz4rVuGK8G9BCsDbnrJhVQ + P8ZkddFg7haHjBYOGkwcUEWpCaRA9g3qtbP3DfJ/RvwB29eU9ncUTqwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGQUlEQVRYR5WXaVNTVxjHb0AUUNvKEpaA + LEICSUgCJEBYRJBNFFHcQCMqjAvFpbW1tiq7LLJo7abt+K6L1u6t1o7TffkO7cdwxvdPn/+594STOzFq + Zn5zzr2cc57/ebY7aESkKT/LcxD3HMSbwDucoWlL1z4kBlN5KBasUEhQWGlilUGiQpJCssJqBazD2RZV + QFz/4FkKDZylA4fP0H4GY9+h07QvdJJ6Q8M8DtOeviHa1XuCOUY9+45Sz96j1L17kLp2DVBXzxHmMG3t + PkSd3f20pStEHV0HqH3bfmrt7KOWLaCXNnfshdshIk5bvHoTD+L2/uAWEtR0UGU1aKeKKtBG5QHG30o+ + fwv5KlvIU7GZaRaUlTO+JnJ7N5FL0EguTyM5yzZSqaCBStygnhwuxlkXKYDhuXC/dPnT3Gt26xqDtQov + GLxo8JIC1sJGnLawdJMWlm7wPCxAje/zGFcFRDO+zsAs4IYMQfyOPYO0g+O5HfHcybHcYcRy+0GOZUjE + sq0T9HEce6m5fR81t+2lptbd1NSyixqbe2hj806q37ST6jZ1U23jdqaLgg3bKFi/jarrtlJVbScFOMxs + D5eI0+YXPwgLELEsb9Lj6dNj6UQsBZGxLEEsXXVk53janbVUXBrUKQlSkaOGNgB7NRUKqqigOKBTFKD8 + In+kAIbnUUPwLCX2LHmghgNzrEeuWbQrC++HES90IbEwNxU1cVXhKuolANZhr0WbY8Nz8zriRaQRzC2z + V97VwMyc5B0gQwcB8MjTklAmopqELGD+PR4jDK+sPf/PvbLQR3bMjXf4uwWGp2fDQAD2JPr8m8kr4L5Q + qeeRW+RRI/eGjZw/DdwTGjiHOHfcdSJ3eB9E4GxxCFwIV+Ema4Pn/qbg63889p+8P5JS0grFYSHTs9e1 + y2DmeljA+oIKkuTmlwty8nyUk+8jG4+29V5BtiTXEyEgIXjuL6p57U/md6o++xtVvforVb3yCwXO/Ez+ + 4Qf/ukO32nkdxEGoCMvUzNsyBHiHwyA0hUll0hTSGasCnrEWuYCztFXSWOD0Q/KfekiVJ3+iiuEHVDH0 + I5UP3aPy4z+QZ+DubVvdifW8Ht6Im5q+ZhaA+MYynmGAOdaGBSRWwtjL99kgGztxj3zHvyfv0W+Zb8gz + +DWVDXxJ7iNfkLP/9iNry9wp3pMweVkIwAFJDu4DdtEHaqioBFRTEdf+BqbQbtR/sZ97QCX3gErK21CB + vUhWEYIk77HvhEEY8wx+RWVH2ODhu+Q+9Dm5+u+Q8+BnlNt9g9bUTz5Kqjp/mvckTExdDQvIyi0jQQ5w + UyawuSnD5lomW+Ika5YzUgBuB2NOYew2lYY+pdIDn5Bj/8dUuPsWrWuao6TqC3dWFnTk83oka/z45JIU + gJCg5OD+aC7PZLIU8IxcQU7pOZBcO0FmivfcImvbVVpdO/Zfoneok9ehe4n4M5axiUWzAMQ8lvFsA8wh + NiwAbsCt0FbhlhQIWNsw9Tgp8MZ4fIoDB+PvaDgwrIHR8QUpIDmvkEuwsJzLkEuwwMdl6BXkMLY8D5ek + h8sQlHEZ6vA+NCicGdGERFdLDo7eX1UacmLOhEtvdGIBhgUjugDsWY2YWrNKKV2SqVJCaSBjmVSG9+kC + OJaCsclFfhZicCiMAsxFF9SNzmsjYzqXxubVEAjPMWr5metfhgXz5TKULuWf9IT8uADMY4E1EIDD4C3z + F1IFvQJgjvXYb9HYrbgJjOMFDsFt5EdE/ZAAKAe4rex6avMx31xNRgmesVf3wMhYOJmS9ARCD+fkQRIh + eUQCceJwneujm2teB/WelePikeH6zrQ5ueYVUPPZpTpZJTrZ+sj2cJEViGdYgJo8ImFMyaPj4CRirNFJ + sdopJZ3BKOcRFAvCAi6NXpEhMCdTLHeaa9tmkGOQy+C7AfIYNDAJ3uEc5EK8dnFkTnpACnhSR4tmPJrh + JxkvMMA7nKMLuHBpVgpIFrFkZPxkDDNMMUw35hjTMx3LZNg5bHae82jMMaZmFAvSrDqpDNuDp1dob12c + CQvQ48hxMhMlhpJ1ZtJA0ZNJ1UdDQIL25oVpPCAHUNPyux6rxGR41LBInpYbAM84T/8WKP+eQ4Rsx7IR + mUGexALfjFig9jHiLPa6ZvkfMjr1Yrsi6fgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACGklEQVQ4T6XQOW8TQRjG8bcn+Ii9a6/P + tb2+z/V9rb2+4/uKYyAgWgo6JCoqvoVLmjQcQoKGgp4CiiDRUPmbPIydCIQ0FRSz28zv/0hDAP7rHD+b + +49pvX2kry4ud4vzB/vZ6h4miwuMZuc4myzRH83RHUzR6o3ZdU5gubnU19uH17PVlsENg+sj7A3n6Awm + DI7QbJ+hrvfYdU5gutzuxvMNnr94iXcfPzM4O0K9O6JGe0AHWNXaKNX0v/DvwHC63g/GC7x+/wlfv/9k + cAitNUCt2aOK1qZSrYl8WUO2UOUHumezfbs/xtWbD/jy7QeDXZS1ForVJuVLdVILVaSyJSTUAj+gd4Y7 + rdXHk6fP8Orq7QEiV6qDQUpnS5TIFBBNZhGOZ/iBWqOjs9XrYqVxCys3i+k8RZMqheNpKJEk/KEYP1Co + NCjHXiiTr+ySanEfT+cRTagIxdKkRBLkC8bgDUTg9gX5gUyuTCm1SPF0jhikUCwFJZwAg+RVwuSWg3B6 + ApDcPn4gnspRJJGhYDRFgXCcLUbh9YfhkoPk8PjJ7pIhOjwQJBc/EIzdQiVKHn+IXLICBsEgMUhWuwsW + 0QmzIPED8h9IkvtmUZA8YJAsooMYhMlig8Es8gNO7wH6yO6UicHj4qnogEmwk9FiI4NZwF2zFSdGCz9g + c3pJlNxktTmJQTJZ7TCcimxRoBOTle4YLQcM9ucH/v2AfgFaYufSbCZ4pAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFeUlEQVRYR8WXS3BTVRjHA1gLKNCmadK8 + 321CkjbPPtI2bZq+Umho05a+p7yRlzCdcaU4wzgw6jCOMy5k58aFS8dxUBGKpbRQQIU9ulFgx4715/c/ + yWmbpDKSOnpmfpOc8917vv//vO69CiL6XylsWL9syrI5jy15vJYF/xHHPQU51lLYkFtkUnRawpQyW5lt + zHbmDeZNZgezk9mV/UUd1+C+Tfk51lLYwCUS7cKPSNzRnY4ODB+6ODlzZmHywFmaPHiWJmbeprHp0zQ2 + dYpGmf2TJ2lo7C3mOKXSB6k1nvrT7W14j++HiM35OdaSW1ktSF4yMHL49NShc4+ReJyTjk6tJh0ZP5FN + eozSo0cpvf8o7Rs+TP1DhyiZmiJPXfQP7gOjs2VtjnxyK5mCYS8ZGj9+hp2+6OPOzr3zPn351dc0MpFN + OnqMBjnh4MgRSg1xUnbdnz5AewcPUM+ecaqP9jxxukPnuR9M0ysJQPItfanJ6Pj0qceJ3mE6f+Ejuvvg + Ed29/4hdHhEu/ZF20uqtPr62nFE6Xf5Asn+aevunyO1rREdGBmsB6+afrwFcjJsGRo5c6mYnx07OcvKH + dOfeQ1q696twundwBsOLi8sYLEhQ0d03Tl3JMarx1COmZrBgMZU5OfLJrWRuKE0NHbzd1Jqkzz7/ghaX + f6Hbd36mBSaZynEpHYLyju79FO8apmp3GLFK5nXmpe5BbiUjYBvP5fPaUIy+/W6Obi09oPlFcJ+6+yao + i51mXWLLye2pjCXS1NoxSHZXEDGMQPECkv1Tz73+Fvrm6g26ubAsmLu1TIkeuBwhpzuCizEFKwKa2/ZR + NJYiW3UAMQ1TvIBE7+hiIBKny59eoRvzd+n6T0v0480lautMUywBlyEpQE5BRWPrHmpo7iOLo25DArAI + S1vjAx+is8mZE3RtbpF+ENymKLtsWnWJHSAFqCJNvRRu7CGzvRaxKqZoASWBcDzWnhj8DaNwZvZd+v76 + Al29Nk/CZcsedunHxUpcm6UyUN9J/nCCjFbvhgSgYBq2hho7Z6Nt/S/84bgYiY8/uULhpiSF2KUp47KC + QXIkqqwLdlBtIE4GiwcxLYNtWJQAjAIW13ZfIDbb0Jz8PdTQQ8GGbgrWd1Eg0ildQgCSA7XH38bnQ4x0 + pt2I6ZhXFyAaMkWK2Ga2+TpcnqbLtYH25boQuwyuuFQxUoDGXdtKLm8LaY0uxPRM8QJM4pQVIvBcR0d4 + vOqES0ZvFi7lYQOqanZHCVQZahAzMMULMFi8jEehZ7hgTSBJ5W5fC5+CKy7lYQO0DncjOVwNpNFXI4Zn + QfEC2KFAZ3ILuIitVuNppmrhUgjAXkcSoLXV1JO9JkJqnVMKwDOiOAE6o1uhFbgEXIQAZ65LbDUpQGd1 + hnl7hqhS60DMxBQvAEl5LgUahovY63Z2aVt1uVaA3mIPkdkWJFWVHTEzU7wAdrgCOmEgQA2XVkdYupR7 + HRhMVj+ZLH5SaWyIWZgNCNA5FexSgE4YLDSN2R5klwHpUu51JDIaLHW8O+qo4t8QoNY6FOxSgE4YsdWM + nNzITrNJsNeRRAjQm3x8CPlIqbYiZmXwQlqcABUnZpcCdMIIAXBpWHWJvS4FmLRGL2kNXirPCLAxGxCA + 5Bq7ghOhuiJAuDT6qCKTRJ52YgS0Bg9vTw+VqyyIYQTQXpwAJJagE0bsAnb4FEmUKstTrstnPkRoNTr3 + M7XOTWUq8zOub+woZocKnssVuOBI3qHSOC4wT3Yp9R9wXb6SgTJlpe1ihdr+dGe57hLX5aO6oP98ChvW + L3Ia8ExA53ghRR3HNIBbvCHh+YAXFdRf+kUkKWz4+wIR8gNUfnzKgv9oh2v8ilh+3+uxbuN/Byn+Al7i + l5KF+K8lAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACPElEQVQ4T6WSuW4TYRSFz2sgZEJInMX7 + eF/ifTz2eN8dZ1EwiBQoEqKhiBAIKRRpSAMl7+LHcnc4M3YkFIU0FLf8/vOf716Q/K/B/PytO8dnbzA7 + fY3J/AKj2TmG0zP2xyfsjY7Z6U/Z6o1pt4est/o0Gx1WrBZLVZuCFpierMGxC55CILrDY7T7UzS7YzTa + Q1jNPgSiXGuhWG0gX7aQLVThgFQiBbqJAimQAtloD2g1ezTrHQqkQOZLFgUylSsxkSkQg4mTOFfiTIkT + JY6UOEDN7qFabyuxiWKlgaNSDZl8FQIhENFkDpFYGugMZuo3od0dqd+ANbtLgSyZTRYqdQpkNl9xE+Pp + PAVSIINGkr5QjLA7I0iMEruoWG2UTFv96sgVncSKEosQiGgii7ASg5EEBGLfH4H3MASJ6a6NmjYLZYu5 + osl0vsxktoi7X7+Nz99ul4t3V6t/eYFWsTFqIn1UhgPGUkcwlHj99ftSXgSOXFBe3HryQnlx6yEnowKZ + lFGBNBIZhqIpBsJxnC0uV46X2x8///biCL33AtdoLCWj8QwkBn6BhwEDe76wjmuxkhfe3N5RXlSvxo2X + tVD90lkFQzLqD8cokHu+EHf3A9z2+nD18dPygRfG1/XWvzQSePS+7+f6y41x+f7DUg5W63pZhqMpBCIJ + HgajdDbxKHg/8rIRmsHGi0BDKwxz9yDIV3u+px944EX1HDAA1ePWzgE9296nH5CXjdAQNl64tbsPz0sv + n7/Y4TPPNv4A4OCbIYwQvt4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFCElEQVRYR8WXyW8jRRTGk2GGCUw2Z3EW + J15iO4kdx1vsOLZjO97itW3HWSYZhnWExIEbEidO/CcIGA4sQoILB+4c4IKEQJwj/o3H+8p+TqfTMyQT + jSjpp+5yV9X36n2vSskQEf2vmP4IrtmG+9z5D14xgN8w79YBYKF7zH1mpM9rOl7X8UAHxt1lhgeCE1Oe + G6Ems3j35H1qHz0h7fA90rrvMu9Qo/021dtvUU17TFXtDao0H1G5fkalGjilYvUEO0QQdwa7NRN5HtxU + APxOLwLP7QWga1jQDPHRCLxE+rEQ0jrKjOkY7zPRZ1IHxr7KYB3VICQLChggwGMBgkA8FnF9AGbilj5X + AlDiHfayc/yEOuxnC34esJedvpetN9nLx8rL/To4Yx9PqVB5SIX9E8qXjyhfOqRcoUvZwgHt7h1Qeq9N + qVyL0SiZaVJyt0mJdIO2U3WKJ2uwAMFfBGDm08vEGABennWc5BgBSfV1Uq5P+1Sf6f4TY6F1KQB4YvRX + kPP7osIiPtN/XgngbrECL48VufIhZYtdyig/O+xjm5LZFqPRDvuZ2G2wn3X2s8Z+Vim2U6GtxD5F42UK + x0oUjhcptFVQBKN5Zo8CESaco41glvybGViADaHwewGY+fQyYU1kchAAXpAS/dF6Xsr1ace7/rvRDqMl + eGIsLIf2pQBEXITNxEUA4DtqBgWMu13uD30xS00JMh7+DwK4F09V2U/2kv2Msp8R9jMCP7d6fsLLTfZx + g30MhNjLEHvJfvJcLIoNyCawAQQqO9cXIZ74NihANBWAmU/Xgecia9jRSLmqadrB8eftw7PzVveUmp0T + qreOqNo84MurTaWKxkXewBxkVPmPhgCQPqQG0T8r5XovAfoYp9JdrDRZ+9Gfre5DFj5m4UMlXK61ib+x + cJ1vyiqfqjICwLrQVE0CQCrhqZmwsZD0xYTAR1nsi0b7mD7+5FP67sefWbilhPmbm/FAOJUpoL/MIGsD + C9Ql5A9myBfYpXVmbSOtWPWnyOtPkte3Q571hMK9tk0rq3GFazUm6ZysNrvnlUaHvv7+J/r1979pr1Sj + TL6C70sgkc7xfaHO/zyDrA3LnwII4L6Zv9eB5yJblmJFOy/sN+jpNz/QL7/9QelciS+tPL4vgkg8xYWc + QN/KqCMoAYgFSIuk3izlQK5TuVIxFtaNpbOlLzP5ffrgw4/os6ff8i2Z49txFwo2EAjHybcZRX+OuRIA + qlgCMBabCOvFZ/t9BKDOeSi63WGP/9pOZpVwJJ6UHasA1jZCbOGmaQDKApc3Ri7PFjkZhztKjpUI2d2M + K0LL/L7sCtOSM6SwAQcIYgUUrjr/vkCoEwjHvuLd/rMRinFNRfBd1YDL6+d119FHDVwJYMTM3+vAcxEA + LJSThIw5V/1B8qwFJIDlZaeXbHa3aQD6YyjnX3/8zCwRMB6LYRNYR22GWXB5fZzFNSjg2Nnnl5xkXbSj + v8BcOgVomCzXqezGCOpEj/yuxL3+ID/UOghobsnpoUX7ChTsjGNmfommrTb0cSouAtBHcYMGITBoTo8P + j0EA2PHsgtqxCsAyu0CT03PmAZhx02ZzXPyvwFix4ynrIhZSFoxbZmnMMoM+LLioAaOwcNM2Z3MMWReg + pWyxTM7M0/iUFQvh4pl7MDFNowy/4/giyJ6OUVi4RZNClAKWvzGkiFHsGNPTMQoLt2iwAQJSpMbiVkXb + 06GhfwGdvQb+0mjImAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADRElEQVQ4T2P4//8/w4Nnr7l2HDm9c8vO + vcb7Dh5hQOCjDFsOXgHiq2AMBEy9czZaZzSt3ptd2iAA0gs24PrdBwxHT5+vnz5/wYXeiZP4FyxczjBv + wWIGEL1h5wmGjbtPgTQzpuZWiJV1rbhS0zm/C8hnhxtw6uwFhj0HDisuXL7ybVtnzzygJPOMGfMYZs9Z + yLBx51GwZpCG1knLluVV9XyISszUB6mBG3D2wiWwok1bd05ZvWbD//yiiiyQgsbWPoZlKzeC5Fjr2qYV + z1iw+n9qZtECIJ8LpB5uwOGjJ0CKGBcuWaG7c/eBP5Onzv3g5h1oARRjBuHElFy7hUvXfGrv6vnr5Oxm + CxRjqatvBOsFExu27ABjkERn/7SVN2/e/h+bkn/OwMhSys7eWaaquvEiEPy3c3TeAlTDC8SMickZCAOm + TJvNMG02yGUMTIWl9QGbtu75ff3mrf8mVu6r3Nzc1zy4f+9/fUv/b1Vt01igGjYH7wQGW884hAEzdl9l + aJ28mKG1uRdkCGdWbuWxO3fu/W/tnf0/OCr1/84Dp/8rGgSdBsoJAjGjhkctg2rIHIQBy65+YWjd/ZAh + oWMbyAAW87BKGxlN20vmbnH/rXwL/wtpBl8TN030AMqx180+xZDbd5ghumE3wgCQqUAMCjAOIBZQTZid + ImVb+lhYP+ajklPVR42oeU8VfWoLgHLSIHkgZgdiJmQDmEXT9rqI5VxcLZJ5+bNY3IG3ivFb/nMbFnaL + 2Nf2ykZt/i8as++pSMKpL/z+q7ZxmlcHA/VwIBvAIZp1frVgxKYiNmUfDW6XWVO43FfcY5dzNmWTcbAQ + idr9lN9tyjQWCRNzTsumZg77yaAoE0U2gFcw6dwnViUfdSCbjc2yT5jVYfUnIFsciCWFog99YREzAqUL + DjaTGhE2+9mfgWxZZAO4ub3Xr2e3mVTOZtYlzGq/Mp7ZeskioDgo1IW4XOZsZzOpamHVLxZltZsdz2w1 + ZTFQXBzZAFZWkxYfFqtZm5htl31itlq0iEmvyQ0oDgpUDlbd3FBW846dzNbTPzNbTl7MqJXrAxTnQjYA + FAtsQAwKYTEgBtkM0swExZxADBKXA2KQt0B5ARgL/xkArl2F6FIH2OMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAJK0lEQVRYR6VXC1iM6xb+cxdhuz0ODhsb + KZUaJGUf0XaLyI6pFNmarrqYbsil1Jim+4WaGjXVJJ1KKZc0KnqIlNraouO2N92F4uzKdpnW+da/pzG/ + y/Psc856nveZede/1veub33r+6coAFDg/zXltZTWU1HC5zEMwjRF0l+1L6yF+QMJBhEMkHNmHIPI7d7j + pzrZ50uhvKJyHaEqHOfdlLkFmzI2WUUZGC6jFusvpXRZiyltXRalqaVLzZuP0CNgUepaiyjOoWxcBsUG + ZeRdNvM+mgEZOcV6hGMRTE0G+WgqZRVVjSdzz/Qmik6MRr7F0poyWbWW0jcwovQWLqF0dBdS87VRlCmu + rrWYzicY6OKxd4IgPu9NnLigifAhBH+9gJu1dU7554ogMyv7DuHYQpXV69aTApZRC1iLKC0d1hfF52rp + Yz62fZgoo6g+JikXUk/muxE+GNfAhwxNBvlodPty8gt/z8nLh6zsnBDk6DdcZkxav4jS0MYCviiOuxya + kVscJpIUAC9C9DvhqgRYlIqyHq3JIB+NbmHp5fJjhecuAF8QLjuRnGKCPnymo6f/NXHMG5IkzlpziJ8g + E6VmQ3xSmpD4hhF81n5ak0Hk9s8z5/BjgIOj00ihKPlDY2MzHAnmd3M4juOJny7iK+KDbHbsmsQLT+x5 + +Og38PQ++EFPbyHm0O1X1lJoMojcTmbn4QcuOLjg3PmLF6UlIL1UCoKwqBriw93QRXwijj7VY4npteeL + SiAjMwdCQiMvoY9ggNHy1QwthSaDyC01Iws/6EXjE4Rz+GFR0N3dTRaMgtCwqGDiH0owAMXnahlgLLZ3 + mFCUdjQ86jh0vXoF1rY7YZc9R4v4cfpVNBevZWgpNBlEbiKxhIoXpeBXeqBS0zPvXym/Bs+edYCNnaPM + 23f/UuLvv1Z0TGAQ38jZjStra2uDM2cKwMvb5yHxqxEMnLvQlJqmt4WhpdBkELkliMRUbLwIv9LHIE6T + sEPCouEV2VlVdQ1wXLiv52vr4NliEUP19FgTfPcdfF1dfQu6urpg+/btsMfL15Y8o4dviq4lNVGPw9BS + aDKI3FA8MiaeEkTEIcWzHRERnfDy+o0qePHiBSSnZoKnz8GbxD8GEcTjV6WnS6CzsxOkUilY2tq/JP5v + COjhG89yocYs3svQUmgyiNwiYxOoUCIeHBKFlG6xMEl8NCJGCO3t7YBtdnLf2+fh5R984OBBHpfL7Xv+ + /Dl0dHTATgcPcPL0DyU5IzB3LMudGqN/gBplwGdoKTQZRG64c54gigrghSGlrxfBaP+A0Le1P9dBS0sL + 3Gu4DytNt8nYllaympoaurAbldVguNbuLYmdQEAP3+glAZTa0lBKzTCCoaXQZBC59YvvDwih/A7w0IVd + UI2MTcqNTRBDY2MjNDU1QeF5KVj/5AEVFRXQ0NAAu/0EYOMSlE9iRxEMHGUQTAv3Q1lLockgcgvghVP+ + gQJanLs3CF30MLKtbGfYu/n3mVu7gsnGnSDOyIEgwTGwsHWHydqbYPpSTt+S5WZzSCx9TZXF/6sCcOe+ + /sEU1+8I5eETSLlyD6ObHkaCyRs2bAhevnINcNz2Q3JaNljs2AO2u9z55Nm3BLh7+nfjfypAfOvfCnF3 + n4B+cTyCwWsdg2e5xpcXGG+2l/H4AtAyYn/4wdzhQ2VVLWziBMjCzt4rNHc9ougAgcq+nEfUHsldykn0 + M7U9rpKhR2syCLGECrxBdMtxAdwJXiVccLSv5PbtoKwamXV4GSzfFgBGa2yP2Lv6BrkGJsPxK22QUdEk + iy5+Ukdi8R2Br2DMw2HEdeiClPVoTQb5KIxJIwnwnuNik1xiL8V4p9X2PX7xFs5WN4GRe+a7cRommkYb + 7eaHF/367l7TK3j9RgaxJc0yn6SyeJIzg2Aq5hKMJcCC6KNhaCqJo+E5D488VWZ6/OLDq4Gn73c7CGvA + M6Wmxy7mmqz8X51wp+0dOMdd6dOwOV5EYvG8Rx3OvntRcrWp72WPDO629gA3rU7mkXKrdzO/DHZElPU4 + RhVXbvWKsZDHM4pQLgB3PzRUUmIqKHzQnHa1Gcrvd0HDsz/gQl0HXP+1G24+/QOiz91/P4N9rGPEbJPp + JB6PZ4j+Rsdv3cR1z6X1L97/1vkefmntpXOqG9/AqestsEd0A0y8stpW7ORtIfHY2QGMAuSGu1cLOX3n + WlLpU4goeATfc6Uw2zYPzI/ehPjSdsit7QIWR9ypxnLAhYYT4HEhVFc4x7CdE250Vj3pBd7ph2DoKYXv + bPJg/ZFKEJxvAcujJWDgKMbX90QCxd8HyrvH1oxzSazuPnv7OazwuwzTzROyJunbLdPnlsQ7pDyCwNwH + oG6V1EPiphDggGEe3TmCaZaC0l5JRSv8w6cMpq6PLBivbb6a5V4stBE+AK/0Bpi5OaGXxGHn8EfqswKw + qomrDlyAkgc9oO0ihQnaZhuIT3Vt+N3p7MQnICjugNHGoZiAw/VZAbqOJyH39mvQdCqGMXOMbYhv1MqQ + +ulmxx6Df347qBnRubMIvlrAhNX7Cnuiip6CVdw90PfIz9F3TtG0SGqMcjnVBvbCephmJsQOTCag3/Vy + YAFTFzme7D2U8wA2RdaDrmPmWR3baB2z40+idqa1gE3sHZhqKsQO4O34rAA0nIExq31OX9/KvwwBZzvA + XtIM7ORmcMhsBa/cdvjeswg0rMSVJA6v5qDhCyOoObZizKWLX+okuWl6SAreuW2wLbkRzBMbwS69Bdyz + 2sHIrQjULU7cInF/I6CLVxQgLwKHabihXbj5gp/SW9fslwIn8S745bbCjrh6WOZRBLM2p7TNWx+I14n+ + qR3OiqYmmdF/M2DuyAU/HmbPs05uN/YqonP2ZLXAtuhfwHD3RZi5MaV99g97t5E4+odKoatUALYSB1FN + dyt/s45t6o1pGxJ7yDsc/r4uqUdja2ql+rpAnH78T4meYlW9OGrsqkjyVXGE32is97fSZJ+oJjm9I5dE + wpQ1ol71H1NufWfihzMxjkCxe0YBnxSBO8RgnHacWhw6/I3HO0yLE3xq2AV8hjvENs8kmEuAQ4czg4Wj + uOIdQGsyyJ+Gi/cvhgk4YAjk6P+SeL/hM5wlzMNBw3cFfiJHv2LnfwKo/wBP/SghvEsJegAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACHElEQVQ4T32TyWsTYRiHI2oX1LoUEXdP + glf/CqXigh486MGDHlQURESpXdWDYBUPglURERFR9CwGg23BIghtjGJo40JilnFqJpOZzCQzk/n5/tLo + YZI08MCQ+d7ne/LNJASgAfksEpYIS4U2oV3oEDrr14uF+bXB4dqXMjz86hsGXyYw8GIWfc9n0PssjktP + 47jw5Cvujt7bzjVc2ErQ1i9DtutDtzwouoOfqo14poRzj2LQTTtxY+TWDllXkzTL7boouyl5E5rpIG+6 + yNUlZx5Ecfr+NE6OTnGnFcLCuVMzGSiajTmRZDQHszkL0aSJ43c+UtBNwYK5v1QD49M/kNXKUA0PaZEk + FBvHbn+gYC0FHcx1q4Dl+NBKXtPc2HcVBdvH76KHZN7BkZFJCtZR0Hn+8Rc4HlARShUff0QSzH3/OYVi + BXLPR1b3cPj6BAXrKVh29uEnlGWY2C5QLPsNuePRJPQyIMcB1azi0LUxCjZSsPyUJHLQEkrOPMHcsWgK + c7K7avpQjCr2DUUo2ERB1wlJlKdVGzQkk9fB3IlYGmm5Thc8pDQXPf1hCrZQsJKJRn2YgzoJ5O4dfIs9 + A2H09IWx+/Ib7Op9/f8MVh+9OYlCbcBH3uIh+s1ydwrccauwTdgg8KULdTORO3FxTsjKb2+W2+K1D61i + 4sGr73DgSgT7hyMtc1sJ+B9YwwUCs/hoeLqbhX/JvNfeKEDoL8apkowE2gDrAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGEklEQVRYR6WX948UdRjGsaEUkV7tJvon + +LsFREUlxh41NiAhIkal9yIgaGzBhEhQY2+ggrSjyEHoiNfb1rvbu+27t7uzbXYfn/e7O+vs7Q6iTPIw + m2V2ns/7Pu9853sDLvK4rKjL/6eM35cdAIqfLnwYxldRV1PXFDWoigZXkXw/kLqCKoP4LwADN+3uxMbd + bmzc5caGnS6sp9b96sTb1NpfHFi7w47V2+1Ytd2GlT/bsOKnDqXlP3Sgs9vzMu8h0Api4TctPF08gFQ/ + aMMuF68H9Fwe6WwOibSOaDKLYCwDbySNzmASdq+GVk8C9e4YzjqiON4ewZLv2vgb6HaHawbvIx25klKd + MAPIF0arzRJiaf2Q9b85kaW5KEnzOM0jiQyC8Qx80TR6wgUIGyFaCFEnEPYoWC1/A5HeYXPM5L3KIOSQ + D2IkORnZmjMcSo1cs8OBQDQJfyQJbzgJTzCBTn9cqSukwRNOKbn8SXQQorm7ADH/qyZkCKCkQ29ps83i + /YZQJQip9JIydnpj6OiJoYsd6A6l4CREOyGaCPHmF41gw8zSmwsQUqh4q38GX0rGWd642R1GU2cE7oDG + a1Nw+AjRq+H1z+oxd1s9XttahznUq5+eV6LnMEq6oNqvMs4TQJTV80ixZ/GUjoiWRYAQvUUIq4zZXtQ5 + QqhzhuHgNe6AQGhoI0QjO3HeGcMpWxRHWyOYveWcAIwwAwyVjPN0F7EJvCGHrQgRJoSfED2EcAesM05n + gTPtAZy3h2D3JTgPKZ6TaO3R0NCVwDlCnCTEzM1nBWAUJQOuAK5dxVzF2BD9mVceGu8cSxIiQYi+DAct + DRchrDJOZfM4TYgGdxQuRuFiJ2yEaCFEfWcB4pWPTwvA6DKAFT92KNOSWJEozRtq6Rz6CBEihI8Q3YRQ + g3aBjE+0+tU13ZEMQdLsWhLNHg11hHjxw1MCMMYAkByGLfu+vWRafG5LkqoShIhqOp/7LLzRDB+9AoRV + xrWNPtWp3r4sugjhDKTZtSSaCPH8+ycEYKwZ4LrF37aWmRq5ynBJa5OZPOchx6HUESBEr0CwMquMaxu9 + 6OQj6Yvr6IkSIpyBgxBthHj23eMCMI6StUcBDF/wdXOFaVm2lEaIWDLHKHQOZZZDmYGbENUyrm3ycU1I + I6jl4Ivp8BDCHcrA7k/j6Y3HBGC8GWDEvC8bK4zF1BCXBKVEOs/1IYcgIXxsr8ciYwGQ/wtpeQQSOXj7 + dM5DFi5CPLmhtgJg5BufN1QaF01FfBJLiqfyiBAiwPZ6LTI+whnoZtu5OisIPyF6CNEVzuLxdUcEYIIB + IIMwau62OmVoNi0zzrB6k/oIESaE3yLjPwgg34WS4HVgx/LwxnOMQsejaw8LwERK9hcFgDlb/6pardmU + L76SYmkwijyrq57x4QYfh5BvS5oLRFADYfPojeUwffUhAZhkBhg9e8ufVavtb2qor6iwRcYCIEB8NShz + OYt8hHho5QEBuN4MMGbWJ2erVssVuMJUFGW2oohFxofqfXASwF809icK4gqNactrBOAGM8DYGZvPVK20 + ZCyGPBumhiTfahkfJICDAGJolpeaunSfANxIyf5DTeK4lz46VWkqhiIxN0zF0GQs+VbL+AAB7EG+ysU0 + /o96qSmL9grATWaA8S98cNLa1GRoNuVGSBlXy7imjgABvsaLpqIeUQyYvHC3ANxsBpjw3HvHK0zN1ZZM + KZlss2m1jPcTwEYADw0NY/ksumf+70YEagYEYOIzm45dsNr+lSpTUdG0f8b3Ld6DyYv2YAqrvXcBRVMx + vnveLtz11k4BKK2EQjHpqXeOVppWMVaV9jO2yPhO6nbq1n6S7MVcNqayFSgAPLH+SMFYDIvGF6q2v2mV + jO+ghlPGX02GJHepXMzVrlhF8BgfnQpTGpWZmoxLptYZ30IZO18xMksd3H6qs1oJp685pB6fR1YdxMOc + YtG0FTWYtqwGDy7bjweW7sf9S/Zh6pK9zFf0rxmXXjZWhwGgtuWUbJFkdZKM5BExJJUYMmd5m4XkOjEv + ZWx1GADSEvXHCSXzIBlVU/8srSTXyn1KGVsdAAb8DZiDNqLJWpCkAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADWElEQVQ4T22SfUzUdRzHf1ucT5ArHqJ0 + WVttNf/oYc1WUpZJNmoCK2TzaZrZbCwMqUMSIiM6y4gV6iinxhAVpeIhHjzCK0Bu0O1E1EPggDsP7pDz + uEeO4867e/WF1oqtP15//P54v96fz/f3kfrPxWXpTscaeyti0B6Ppqs1n3ZzEKXeSWVlAS2KpTQV3k1d + QdTNs/JIuSRJdwHSP0hXK2KM49oiCNoJBazU6pyc1Dg42mnjSLuZkOMc4cmj6GrXcyZ7yagQLJwn0By7 + F+5Y+bZtgoMtFgoaTMh/MZBZNcTuigF2nOzjxf0thA3JVGQuEgkpcp7gUuk9EDDwhqKN9Z+pePmTVhI+ + VvJsThPPZDfwVFY9T2TW4upN5MTuxbOCpfMEqq/Ft68HbKXou3K5WLUTZeVWOqo3cbkxjYGLGxhTJ+LQ + vkDZzjmBGPk/guaiKMKeVsLj+YTMcrxDGQx3bOZKQyrXmpMYVq3F0vk8ds0qDm+bWyFunqA+P5KQ/SxB + 4y7uDG/HP5jOzI0NuHsSUdQZKKwZ4cDPQxScHySvaoB9p28gP9WHN4BuKkC89FPOEoK3SvAPpODrS8J7 + 9RU8Pauxdz/Np9V6XDNhbnuCjNkD6Cd8XB/z8sGJXjx+cPvRSWeyFuM3foj3SgJu7Sqc3U9iV6/EonqM + XNEmmnD4wljdQUyTAQaF5L2yy+w6ouHt0m6k8oxFTPdvxtW9Envn49jaH8X6xyMYGh9i74/XEGPONmH3 + hhl3BTEIyXXzNBrDFFuK1UjH312IpzeJyQ4R/P1hxn9bgfnCcnTnHyDjhx5cIuyaAafAJiRmZ5ARW4A+ + i4808eulsh0LcPz5HBOqFViUyzE1xmOoi0NbHsM7hzVifMQqRvFww2SXD4r9+3n/mA69NUDyARXSd1sW + jKpKlonw/Zh+vY+Rmlj01dF0fh/Ntm/UTAqBbfpvbnvBKjC7wxjtQZLylEifp8ryDqXJzMUbZRx6M4Iv + U2UoUiL4IjmC9IPtc6HtJRq2Fnex6Ss16YpLvFXUhskZYt2+ptm7kGSCqNkLE8QK4gXLBA+mFKqYmIJb + njCWWUSz2RVmVHBTCNZk1/97Uf/H6/ktvLb/Aq/mNrMup5G1HzXwkgit2VtPwp5aVu+p4S+4B9JzlWSM + ewAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAJYUlEQVRYR5WXB1RUVxrHJxHEGlcFuzmW + CNHVWJKYXY+7aqyo0RgVe8dy7ICiYtBEY0TFZTV2xAZii8ZCULAgSEcY2gAiIzADM3RmmF7/+903Mzoi + HrP3nB9vzoN5/9937/fue/AANMnmU2m8jSeSeeuOJfHWHEngrQyK54U+Fnruv5pV5BkYa951KaMo6G6+ + 5wz/SN60HRG8Kb53eBO9b/HGbrrR5PXeR5MnGevtglcExvGWBMTw9ofzix6kS1BSb8D1RDG8TyUXTfJh + ob/zRq27xhuxOpz3zYrQJq/3Piw/3oyP7Pi4Ec3m7Ykyl8n0kKjMyK7UYoLXTTOdd2iEo91n9j12rXeC + bdiPjwRXXDwE4c6xuWHOOBt+AssPPsQ0vwi4b72DcZtvoqRGC5HciLxqA1IkOtzNl2PQvLMY4HEGbjNP + 4qslIdi0+yfc2dUGt3a0jgvzbjWfrtuMXZsFfEjg45xQ59hKvj+gF2Pm7kjczqxDapkWOVIdBBU6ZNMx + WaRBVKESV7IVOJ4mw6HEehyMr8OBZ3XYcU+E/h4nYX41FXk33HDFp9Uzui6bkQ8KsD9olnWhA4UXA+rn + CLj8EOO8bmLRwafwC83GkagShCRW4UxyPQJj67DzfjVWXRFhwel8TN2fiBFeEXCbG4z1+wPQkDkMphcD + EO7ViiW0INhSfFDAIf1se0BbAMj/AGQ3EJN0Eyv3nMWETRcxdFEI+nx/HN0mBaHL+MPoPC4QPSYfhStV + /K/VJ7FqTwCuXfVETdpwNGQMgSa7P0I3cgItib8mkHqKBDRZQH0oUHeeCIa+4igK4rfj0TVPPLq6DE+v + L0b8rQVIuesBfuRMCB5+h5cxEyGKH4OK5BGoe/4llJkDoc11xYV1LVlCa4L1wQcFHBOP/Y2mPwWoPQHU + /AZUBwFVB4DKvdCJ/VCUsAbJdxci7d4cCp+F3OjpKHwyGSVxYyFJGslVL88YDHX2ABgErghZzQm0If6S + QPO4oHaAMtYSWvUrBe8BKnYB0u2AxBsoXweNcDlEyXOo8ukoeDQZwthxKH32b0gTv0F1ylDInv8dygxX + aHNccXpFC5bQjmCN2OQtaRvsl04xh0ig4QGF0p1Q4UfBvlywuXwDzOJVMIuWwlQyD8ZXP0CVNxni+G9R + +GgkhI+Ho/jJEIhiBkAc0w/lsX0hjeuDoIXcDHQiPiFYM7K94S0J22ACLR4GtLU0oGQzhW6EuWytJbh0 + GQUvhKl4NgxF07Htcj58w/LgGyrAlksC+FwUwPtCLrwu5MDrfA42ncvGxpAsbDibhfXBmVh3JhN5hcI1 + lNGWeOu2tA0m0PL+3jbUgJcp1JOqXUbBiyl4PlXsAWPRDBheToFaMJ4L1ejNUGpNkKmNqFUaUCHXo6xO + h+IqDV5I1cgtU4FfokCKUI41JzOgNsCYniVYTzlsSZqzzMYCrSJ2t4a5NphC53LVGoU/UMXToC+cAv2L + CdDmjaEmG0EV50BnpH4lCQVJ1JNEtcIAKW3T4lodhCRRwCTEKmSQxKrjz6HSAwqd2ZSYxt9EWe2J5vYC + rEtb395JAlVHqNqpVK07hU6ELn8cBY+GJnck1Fn/QE3yUGymKdaSgNYAqHRmNGhMqFUZUUUSEpIQkURR + JUlI1MghiRW/pUKpIwGSaNCaTQmpnMQnjQXa3NzeGqaKAOgLRlPwKGgFIyn4n3RbDYeKdjdF+mBIY924 + tdVQOIOmli5uhpwkapRGVDYYUE4SJVaJPJJYdiQFS48kY0lQMhb/JwmLDiex5E6NBdpe39IKxjJ/6HKH + 0072NVU8DCr+ECjTB0GR1h/1iW4oje6Ntaf5XDCDTS03vVoz6q0SFSRRVq9HcY0OL0lCQBJZIhXSXimQ + +FKO+YcSWHIPewF2e3wSvrkl9KU+tBkOgppP9/PzAVCkukGe0g+yxN6oiesFYUR3rDmV/jpYaYdcY0ad + 2kT9YIREboCYJF5V6/CigiTK1eCTRCpJzD3wjCX3aizQLmxjS+iEayn4MwruC3lyH8iSeqEuvidq47qj + 4nF3FNzuhpXH016HsnVVsPUlGggZSdSSRGUDScgMKK3TQ0gSBSSRwyRKVfDYH8eS+zQWaH9hrRM0hcvQ + kPIp5Ek9UZ/Qg4J7oCa2O6pjuqE8uhtyb3ThmsoWytj3ez5+uZGHPdcF+PmaAD9dFWD3lVz4h+fSUhio + H/QoqtIhX6pBtliNmfuesuTPGgt0OLfaCeqChZbweEt49dPuqHrSDRWPukIU2RX8y52x9L8pXLUMOUNr + QcbQ0FZCx1p6a6pSmmgpjLQUBryq0aOwUkdNqcGMvTEs2dVegO1OHYNXOEElmGMNt1Rd+bgrpA+7QhLV + BcX3OuP5pU5cJ9uH/ng5BzvDcuAXlo0d9O6w/VIWtl204HsxE74XMmkp3khM+/kxS/68sYDz6eVOUOTM + tFTOwqlqaXQXlN/vDHFkJwhvuyD1vAsWBCa8VW09HevsqGWo6YFKVCnNkCpMEMuMKCGJomo9vtv9iCUP + sAlwj2LC5cSS5pBnTqNpZ5V3s4Q/oPCITii954LCm85IDHbGvAPxXKgtmFW41cqW85nwOc+Hzzk+vIlq + FT3XSKK8wQQRSbwiCXf/aJY88B2BY4uaQ5bhzq25NLqrpfI/KfyuC4r/cEbB9Y6IP90BHgFxb1Vqq5bB + AqutxyorlUp6sCrMKJOb6JXeiIl+USz5C3sBrgkPzW6e+vRoP67hJFFs2jtzlRffdobwVkfkXemAuBMd + MIu62D7UO4QPr5AMeJ3NwGZGcAY2Badj4xkLG4gKkignCZHMhAk77rPkIfY9wG3FWyc5rPl1hmPaYQ9H + BM52xKFZDjg40wEHZjgi4HsH7JvuCP+pTlwXv67WvlJrtQwWyJAqCOtRQpQ1mDFuWyRLHsoJWC1sy8Ce + 1y5Ed+JTohfRm+hD9CU+J0ZOpy62hdoH20JfB1tDGeU2GoBvt0aw0GH2AmwwCTYTTMSJYG8wDPZWy2hF + sMdof9bFtkrfqdYa+FYwhZZZEcuB0VvusdA3M2DDbjCZpmBCPab4P4T7j9FEFNx3PsAkvweYuOMBJmy/ + j/HbI7kpHuv7JwerdsyWCIz2uccxyptxl4VZNqL3CDQ1mAD31CR6Emw5BhKDiC+IwcQQK0OJYcSXVr4i + vrbCzrsS9F/Q/yfAhk2CzQRbEvbK3RRMsjHsxZTBPrPvOgDg/Q/mToo5u9yq7AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADVElEQVQ4T6WSb0hbVxiH35WxqhudoFDH + nBLIdCsMR0Famw6HMoYDqVQ6/NKRIGhlJEhFtG5gEMtAVlwkXZaCW9ayEVEUxdFqkkaul5u7/EGDUcxc + bEqjxZgsud5sMU31t5N0+7Zve+HhHjjn97zv4VwC8L+gyVWJrKsyI5X/TjAm/TLdcR98aV2RExZPMmrg + 4tvDtr3ftdORX6+Obwo1PQ9mei3i+7NiiIgXffSTO0b33Em6y7C4JTLxSeVs4EBiHfJ1dHSMdOYZEvIh + vKEo3r02LTbfXHj1+l03kcvlIoeTI57naZ4Zza4EjThjht3ks3w4k81CTh9iX0ohJsnQjouHZ65NnVf1 + z9OHn5tfCJxOBwn8Mokunn5e2nxz3J2IHR8fsWAG0WQKj6NJhJ7Gcd/3CG+3T3yvuj5Bl9p7SaO++q/A + SbwgkChw58zzPlEISZBSf+WDwScx+LefYmV7F623HPika+RGR0fH6cstl05pNOqTL67gcNCS0/mFILhS + gzO/Ibgrs44J+MN7EIM74AKPMSkE8UGPFaOGsezwkP6gr69vv62tTSRBEE4wwbeBtTX41wLou2PD1AMO + Mw4XppZ8uGfzYILz47PbHC6qv4Lt/hysVivMZjNaWlrSZLfbjRsbGwiHwwiFthDcCMDn82HBZsMPFgu+ + NtyGfmQU733cjnfOXoTZZIRer4fRaERTU1OSOI5LS5KESCSCra0trK+v5wUejwdutxui6ILDbscvs9Mw + jN5CT08vhoaGMDY2BpVKlaHFxUU591zpdBrZ3JPJMnZ2dvIyr9eLZW4ZNjaNyWRCV1cXBgYG8hPkqKqq + +pMsFsvzTCaDwcHBvHlubo5dJYT9aBTxRBxPdsPYDG5CrVZDp9Ohv78fGo0GlZWVe8XFxTrq7OycYcF4 + TU3N87q6OjQ2NqK1tRXdum44uAWMr3bDuyLi0ytt0Gq1aGhoQGlpqaegoOAjInqdQUVlZWUKpVJ5WaFQ + fMNE9vr6+tiFC6rs8M1h8OIS2I+G5uZmVFdXZ4uKin5kGSWjkPESsdFzkhOMVxivMUrYoTMVFRVXWKfv + SkpKH9bW1v7Bxo0UFhZ2s/03GC+Xl5cTO8OW/1054UlGMaOMoWC8xTjFyO39U0R/A243XbUHxiEVAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIvUlEQVRYR8VVaVBU2RW+JiYzScxUZXQy + 4rhn/qQqiaVlVVziPi6jcV/iNjiWWyquJOpEHR0RC3EBUURAUVEUAREUEWVr9hYQ2XebtVkaGrrZuqHZ + vpxzoREoZ5gfqeRVfdXd9933vuWcc1sA+L/ivYv/S7x3sS+8U4ziblKzuKFsEtdiGoS9Qi+eZxt8nKP1 + BkeFznAxrNZwPrRG76SozXEIq8m5EKLJORdclXUlXOPpEFLpafusxPO0X76n7ePsXTY+KVsvB6T+5eXr + og+r9c2ioq5xcAH3iPymspHI6yV5eJ5hp1ucvqVc3w61rg1lhPzqVkTlNyEitxGh2fUIztDjangF7F+o + YftUBWvfbGy8FI0vv3veZuUaZTNyvZNQaxtEiUY3uAAmdyZyB4VOnAupEw+S6jNeFRnoVv+rq6sLnYT2 + jk6Y2jvQ0taG5tY2NBhaoGtsgX1AOr62D1VabHQRv13jKFSVdSK/XDu4AOcYvXCIIPKXWhGc2XTMPa6u + zWjqpFvvLibv6OxEW0cHWtvaYWgxodHQCl2TETUNzVCkq7Ho28Cmb27FLPx0nZMYvspB5JRWi8xizeAC + HCJqhV2IVlgHaYSHUpefOMB9JxG3EyQxOe4mboGWiKv0jSjXNuDwLSV2XQn3sfjbdfEJuR9BAlILK0Vy + QcXgAuxe1kjywPR6K+fImnZjW7f7zi70EHeQYzOxkYgN0OiaJHFJtR5+cSp8eTKw9qh79AR2z+TDVzuI + xFy1UOaUDS7AOqhKHA+oEHfitamReY0gXhm3iYnJcZPRBF0zEzdL4orabuLCyjoUlNfiH85R2OEQ6tHX + PSM2q0REZRQLkZGRIdLT00VaWppISUkRb968Ea9fv+4VcNxfLYLS9EutA9VtmgYTEbfDaCLHTNwTtXRs + Jq7SEbEWOWU1eBidhy+OBegOuSrGfLruarf7HijSC0V4qkpI8tTU1F7ipKQkkZiYKMmpt1jY8kfK0tqH + CdUwtnJzmaAf4Li0up6IyXFFLRFXI6NEA6ox9rtEYcv5YP+RG5zFiNWOktgsIuTNW/EiuUD0c83ECQkJ + QqlUiszMzI9p3Sc+Pt5w6XkxElR66KXjnhoPcJxbWoNMIk5TVYKaCwHKAvz5kE/nlTt+L729vbd6eXn9 + qa+A50l54llinuh1bSaOi4tj1ztJjCo5ORnRqUWwDihCta4nam6umu4a0xxL4ozibsdMnJinRnxOKb69 + G4+vz/nDw8MDTk5OuHDhAmxsbHD+/HnDxYsXtZcuXcpxdHT0lcSvXr0S5FTExMRwIi4kopkSQElJCR7E + lMA9sqzXsYqiZmKu8TviciQQsZKIYzNLEJVRhL9+9wSOXmGIjo5GZGQkIiIiEBYWhsePH+PBgwdwc3PD + wYMHIR0zMW3iNAJJUEtBQQFKS0tBicDmURYsXdJkjfPVREyO04ur+hNnlyKGidOLEJFaCJfnKZh72BuK + yChERUVBoVAgPDwcoaGhePHiBR49eoT79+9j9+7dELSBJ2EoRR5JkXexa7VajYqKCuTm5iIkJAT3fQNw + 38sbHl4+8HkajMDwOIQmZCBeEhf3EoelqBCSXIADLhFYefgGnjx50s+9v78/7t27J8n9/PxgaWkJQQRc + AgU1HMrLyyXKysqkiIHgddqLp0+fygjPnDmDb46fxL5//RvHz16EnfMduPkG47PNbpi19u+YP39+r/uH + Dx/ixo0bMn4mZ2zYsAFMHkDuOyorK8EwC+AkiouLUVhYiLdv3yI/P1+Cy8OfeXl5/X6zU244brQdO3Zg + 9erV0mlwcDBu374NV1dXSe7jQykSfH19sWLFCoigoKAOdldVVSVj/yEBXJLs7Gxwg9L5ATo/wJPC6fUF + r1Ffgd4NFxeXXnIaxX5YvHgxBN9obW2F0WhEY2Mj6urqpBhuwqKiIqhUKumSHefk5CArKwvUM1IATYwk + ozEGNS9okhAbGyvJAwMDcfXqVSnA09OzHzgZxrx58yC4LiygpaVFimAYDAaJhoYGKYhLw2L6CqCzQrql + yZECuDfMAtj55cuXce3aNVkWM+7evdsPM2fOhKDDoJecSZubmyWamppkIgz+zmt8X6/XQ6PRSEGcAgtg + 9zyyNNKy25mccevWre8FnwELFy5sEWfPnu11zETcTPxCFsTCmJhFMHFtba1MhL/zXr7Pz+l0OjklnA7H + bmdnJzv+feBTce3atVi+fHm+hYXFJHHs2LFeciY6ceKE3LBy5UqsX79edjVHygTmlMyl4SS4PFqtFvX1 + 9VKQlZUVrl+/Lms/EKdPn8aMGTO6li5d6iGEGE/4SBw6dAju7u5yVrnj7e3tsWfPHhnhyZM04/v24SvL + r+RYbd26FadOnZIdzdGbTCZcj/unBAvh5w8cOCBdDsTOnTsxe/Zs47Rp0yyJ2ILwK8JQFrDe1tbWz9ra + Wr1///72bdu2yTnmQ4ad8AHCI8OkN2/elMK4bLRXCnCOtZLghHhUWQD3lRlcDh43qnf2sGHD/kikwwkf + En5KGEIQwwifEEYTPqeN67Zs2XKPUsjftGmTiWqFXbt2Sed8+j179kyC/904ch5PPh94QhgsjFNkHDly + BFOmTOlasGCBK717HOEjws8IPyEMmThxIn10K+HFDwi/JPCmEYTPCL+jyL6gRG7SH0f2mjVrDDw6mzdv + xt69e+W881nQ92xgAfSXK/dMnz69efLkyZvoPRw5v3soYcj48ePFuHHjxNixY4Wg45DWZBRmsCDe+HPC + Lwi/JnBsowgTJ0yYMHX79u2OdI6nbNy4sXHq1KlYtWoVjh49KnuJ7mHu3Ll8yKRT5H/oeZbNSddm4jFj + xojRoyn0JUuWiEWLFgmKSdBDYs6cObSvnyB+cKCgjwnsijv59yTmLIlRLlu2TDdp0qS2WbNmXaZ1svcu + cjMxkzJGjRolaAzp1o+7vk8QNxP30G8IIwncR1w6ds1iexvtv30NFNS3j1gYC5SRE37gEuI/M1JDRO/3 + 3ZcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADrElEQVQ4T3WSX0zbVQCFb8u/gsaxgJEZ + VtqsQIEsNUbcoCgKGIMLwsAubISlDYaWYWsHFkpLpGFdFptNVmBhxTA7l8ayLV1AzIS2YorpailhKBAI + K2OxQIDh6DpTajePvzXxTR++p3vPd85NLjnYHk9yVAxWTlucOqsl1slVxO5yP4txZjZFqzNOR7PSP40i + AP4Xkt0Wx8pqjTPVmt+E7jchvt1RQ3u3BoKrPHBkUaYDn0Sx/iv4L4RqVJ8w5cL8uB37jtKQepyGVz+i + oX/jFD78igthv/KJ3rG9rLVu3JNafL/UDiw4ec0/3FIYXa8NubyEZDbHOLXTJ2DaaYHFr4XaLsD+Ghou + +mohHS9EpS4fz579jWDoLzwK7MLj3USWxOIqOzv6QtM3bkLS5dG7hvVGGDYk6FkTgVlHw5mJk+hcPALl + r0XgnGIgENzFlv8JHvoDkA64drMlNw/zlSPknUYDIQdkUc7TjhLo7gugvVeOG+taqGbfhWKmAMeHuDhy + 5hAebO7Au76N21P3kV43eIXfNEjK6xREJKwlhN1IV5f07I+0tcy8DWY9DTLPG5Dc4eHwF3vxuUmFmeV1 + TC+voeqCHR806Nrq6+tfqawof0kkEsYRloTOShPTTQXnX8YxCwcjaz04ep2JQ+f2oObLSgy7XXDMPsAN + 5yLeajajS98d1nZqHre2tm5VV1e7iNPppF+5efmaekCGknYemB/HgK/IgVgvRv/Id7hmncSgYwYnLzlQ + IDwH6+1hmM1mGAwGVFRUBInNZuudn5/HysoKvN4lLM7PYmpqCqNWK742GnFefwkaXRcOvl8H7usFMPT1 + QqPRoLe3F6WlpTvE4XAE/X4/fD4flpaWMDc3FxFMTk7C7XbD5boDu82G74cs0HddQHOzAp2dneju7gaf + zw+RsbGxAPWjEAwGEQ6HEQgEsLq6GpF5PB5MOCZgpdb09fWhoaEBKpUqsuA5GRkZfxKj0fg0FAqho6Mj + Yh4eHqae4sXW5ia2H23j97UVLCwuQCgUQiaTQalUQiQSIS0tbSMxMVFGxGLxLSq4zePxnubl5aG4uBhV + VVWQy+SwO0YxcFcOz7QLxwTVkEqlKCoqQnJy8iSDwXiPELKHgiSkpKSwORxOJZvNvkiJbIWFhQ/z8/lh + 7Vktfnb9hPFxO8rKypCZmRlOSEi4SmU4FPEUNEJNfy6hU8RSvEiRRF3KZjKZAqrpclJS8o+5ubl/UHN9 + 8fHxcup8H0V0amoqYTKZ5B/GFkWJi4cEjAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAKw0lEQVRYR61XCViP2R4+ZRnrzJ3BzPyR + imEYMxqNO5fsIWPfTchaDYYoEkoJ3ShRpMUe0SZRqUYlURqRUmn1b9O+/dv35b3nd5KRx73Pc597v+d5 + n6++73znXX6/c06xv1v9jU048RlT/Wd/pmrRf9D4Y/20fzzS113FvI9Uxax3yw+mvaXfm/RyH3uwp/bY + Az0HjTHqwUbv68G+3dudAfifwVSPf8r4Jffj4f5zVMz7+f3uOQ+XXhzGk5JbkLZEIKLYA87RxtC+po7R + e3oEjN7bfVZKaygbpf9/EkDk40z6aqjbKL20jTSAtDUC+m4rMeRXOQxdK4fR2/tit98CBNfbwzR0HSaZ + fxk7cne3Wd/odfvohP8t2Lc7e0vGmfbxt4nQQ3JbMDZdniHIJSuYuCtoyUFpszy2+c7EzUoj7AlchBE7 + 5e+O2CE/6GMTdqK9vZ21tbWz1rY21tzaxhqbW1hdYwurrW9iVfWNrKK2gZVW1zE2dn+fbTo31ZHYEojw + 5ovC8dA1crB8vhG3a82x0HYsFDfLYfZJZVwt340Lxdux8NwYbL1ypskuTFZ3MqSsziq4pMI+rCz5dEhJ + svX9ouTjgYWvzoQWuZ6+X+Bq6Z/tau6d5mp5O0n3mGeslu2duCl/PM/sVVxRy/LLq0lAb2+76N2IbHbB + 7XpzbHGfjt99NOBRZQzXSkNs854FxS3ymG09HM7FW3GuYAs2+/4MbcdfkStrxhuOtOJGhKfV4EFKNYKT + KhGYUIGzofk4FZQLS18pjnglQdPmEeYdDmg2cA4/9vUqe5ZbWsWyi2SMjdn/SZZPvg0CGmzgUWOMW9Vm + 8Kg0wTWZAXbc4423ozdUjQbAMU0PtnlasMnRhF7EdEw9+A1P+q+LR442jpbWNjS1tKKhuRm1jc2oqmuA + rLoBp+7EY9Op4CiJphP7crkdkxaUs7S8Ut4Dhj1bQmod4VF9CK4VhnAp18el0p3YdGsihmnLYYrZUFx/ + YwLbHC1YSpfBPG0h9J5OhbJu97fUHeS81mhubQWvNeoamlBd1whZTT1KqmoRFp8LjUN+NfsvP57z1Up7 + NmDpaZacU8wSs4oYG6nfI/ti5l5cLtPDhZLtcCzUhX3BJsw/8y0UdeWx594SHJeuwJG0BTBL1sCeF9Og + 6f8d1PaPEORtnLiFQxBzxx3EDSjlxIUV1cgrrYLh5Sjongn1lPzqyAZx9wO5gLiMAhaTns/Y8O3dfQ2C + 58GxQAdn8jbgVM4aWGWtgluRKYLKHOCQtQ2HkmbjQOIM7IufAu3HKpjp9DW2OWm+JW7ljjuJ6zlxHYpk + NYI4u7gC3pFSzDP1KzO69EiZ3BP5gGWnWXRKLotKfsOYwvpue9Vth8E6UxPHM5bD4vVimKfOx/hDn0FB + h2HRFWUYvlSDQdxEaEeMwzL/ERhr3AfXwy4IxzX1TZDVEnGtIM4v6yDOKChHel4ZfncIh/bpYJf33RMi + XmWz8IQsxr6YLDdKYYv8g0UuI3nEc2Es3E6HmpkChmxhWH9DDXoxP2F92Ggs8VXEBOvPsP70Ik6S9y5q + 4biTuFDGiUuR/KYE7o9SMfvgHZm+c5jCVyvPdrh/i7D4DBYaJxU7YZ+vFstpDt/eM1XdYTB0I8ZjR/RP + CCx2xLPKu7BL2oblAUrQ8JRgvGV/aBxVRVBMQBfHOcWVnJg7zi/jxMVIyC4CrzH0nMKxzirQ5+vVDmzg + MjtB3Cni/ovXLCgmXQjoxvHpwHlyWpK17NF3PN6fT3+OGVe/xGx3CaZcGgBV6/4Yue8TzDH6Gf7PAj7q + OCWnBImc+KW0ALy5cCcqHf/Q92w7c9X7Dw8PDy03N7dx7wsIeJbK/KNThQA5ju4c/fuOZT8OmM/Mf9CR + pIzS+bx18CZ5jNIdBJXt/8ABR0P88fhhR3OVdNSYr2NBnJDV4ZiIo1Nz8SQ5B4euPcGm4z5wcXGBvb09 + rK2tcezYMVhZWdWdPHmy1MbGJtnOzs5LKHh7URK97t+/f+Xu3bt1/I5Hjx7BzjMCJ72ikZiehZTsAkh5 + 1ERMNf6LOA9POXEUJ45IzEZ4QiYWHublcwsRczx8+BAPHjxASEgIbt++jZs3b+L8+fPYvXt3x3HYeT17 + 9swvKiqqISUlBRkZGeJjc/c4rHd4wWMuQSonTeaO47MKuxIn5eAxEcdn4kFcBpwCYjHD0ANhD8MRHh6O + sLAwhIaGIjg4GEFBQbh16xZu3LiB3377DYwPYAkJCd2jo6MfxsTEtGdnZyM3Nxf5+fkgIZTEDa87uOHm + ARc3T3j6BsIvNBLBTxPwRBBnvSMOiZXifkw6djk9wBLDC+BJdnHv4+OD69evC3Jvb29s2LABjBOwP//8 + M+zFixfIy8sTePPmjRDxIeg5HwtfX18R4dGjR7Hf2BQ79x6AscVJnHC4ivNegRiy9jymrtgGdXX1d+7d + 3d1x4cIFET+RE1avXg0iv8PdtxYUFIDQKYCSyMrKEqV4/fo10tLSBNLT08U9NTW1y+/klBqOGk1bWxvL + li0TTgMDA3HlyhU4OzsLck9PniKHl5cXFi9eDHbv3r1WcldYWChi/08CqCRJSUlITExEfHw84uLiwMsG + Su990LPHjx+Dzw0nJ6d35HwpdsHcuXPB6EVjYyPq6+tRXV2N8vJyISYnJweZmZmQSqXCJTlOTk7Gq1ev + wHtGCIiNjRVkvHnx9OlTPHnyBBEREYLcz88PZ8+eFQJcXV27gJIhzJw5E4zqQgIaGhqECEJdXZ1AVVWV + EESlITHvC3j58qVw+/z5cyGAeqNTADm3tbXFuXPnRFk6ce3atS6YPHkyGN8M3pETaW1trUBNTY1IhEA/ + 0zN6X1FRgaKiIiGIUiAB5J4vX0RGRopuJ3LC5cuX/y1oD5gzZ04Ds7CweOeYiKiZaEISRMKImEQQcVlZ + mUiEfqax9J6+k8lkYpVQOhT7iRMnRMd/DLQrrlixAosWLUqTSCQq7ODBg+/IicjExEQMWLJkCVatWiW6 + miIlgs6UOktDSVB5SktLUVlZKQQZGBjA0dFR1P5DmJubQ01NrX3+/PkufN9T4viU6evzP8EuXRJrlTr+ + 1KlT2Lp1q4jQ1JSv8Z07sX7DerGstLS0YGZmJjqaom9qaoJj5B4BEkLf79q1S7j8EDo6Opg2bVr9xIkT + N3BiCUdfju4kYJWlpaX3kSNHcvX09Fo2btwo1jFtMuSENhBaMkR68eJFIYzKxscKAQ4RBgKUEC1VEkB9 + 1QkqBy03Xu+kfv36/cBJB3D04qCzhw5C1o9jEMdQjm/4wJXr1q27zlNIW7NmTROvFXR1dYVz2v38/f0F + 6HSjyGl50v5AK4RAwihFwr59+6Cqqto+a9YsZz63Igf9H9iDQ55Dbvjw4fzWoYQefsLRh4MGDeQYwjGC + RzabJ3KRHxxJy5cvr6Ols3btWuzYsUOsd9oL3t8bSAA/csWYSZMm1Y4fP34Nn4cip7np2JdTUlJiioqK + bNiwYYzx7ZA/E1F0ggTRwJ4cvTn6c1BsgzmGKysrT9i8ebMd38djNTU1qydMmIClS5fCyMhI9BJ/hxkz + ZtAmE88j//7tt2ROuO4kVlBQYEOH8tB/+eUXpqGhwXhMjH/Epk+fzsd1EUQffijoCw5yRZ08houx4GKi + FixYIFNRUWmeOnWqLX/O7f0VeScxkRIGDx7MJBIJ+xePeionl1XymQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACY0lEQVQ4T42QW0iTYRyHR2GJUQ2RwBa2 + GHQ1b4pdjiCSVbBIap3IOerCIi8mtOWyzbEli2UZCRIILVxYLLbysDw0JsOZzRA7eqjEYBKa4GFHndqv + /7uDbKOLPnj44P3e5/l/78sBwKFnk6njJ+rapmB8NQWDYxJ6+w/UvvgOre0bap6PQ9M6DvXTMaiso0zI + Y17cTQY2G19OYv0P4qylWAdWk8SIlTWgyvKZCTuyAzls2oacLpKUkhmVzR+YwM0ObLn5bCJjGhNTks3u + gEp9A+XlClRcvw2ZTHZNIpFkBLaqrF8zJi0n6XB2Q6lUwu12IxwOw9HpQrVGExOLxYr0QK7S8ikhrQLR + JBGi/t599Hn6EaV4kL77Jhdg73JBJBJ1pwfyKptH4gIjHANCBHvrdDr8CkQwswL4o0DvxDyGZ0IQCoXh + 9MC2iqZhRJISk4MMkp60WNHRP4TRIPBxCXCMLeKBzQmBQJDxB9svNQ4lRJICxBJjGfC8fY9a011Yerzo + nQ7D0NIO6bmyGI/Hy7iDnfKGwYRI0iIRiETgG+iBQipCd58XdXfMOC2T4ZBUDj6fX1VQUJBwkwHuBbMX + C3RGRjAwi+iYBe8eX4HL2YY5Ou1vYjYEHLvVy4Qi5qUH8s+YPJgnORSYxtJIE760VqJRfhD+ueCGTHeH + Ek0XE/jZAW6p0Q1r+xvM+R5i8JEc5rPFKL3agKM1PZCQVFL9GkfUThwmaP/u7EAOke93m+CqPwXDyf04 + X7xLT2t7iCJiL8En9hE8IjcjkKKz7oRWe1yAywcK9WXFhZyLwgTpe7L55+L/A85fYNXCy26plFAAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGs0lEQVRYR42XCVATVxjHrfctaD1QW2ut + 42irHa1apdZqrcc4dphiq+NV6+BZRcV6IDpaBBSPYlUGQQGxqPWA4I1axRJvRSsKojHhEGMgQLghBMK/ + 37fZxSUk4M782PAy+37/7+2+ty+NANRgdbzXAI3t0MQO/B1fV9tpQy51Ll3YlGgm0lykBdFSRiuitUgb + oi3RTqS9eOZ27qNWCFsBGu+MzcTOi6+w/VwGtp0nzqZjK+F3Og2+p1Pho0jFlhgNvKM1+D1Kjc3EphMv + sfH4C3gR6489F1hHrD2SgjWRyVgd+YwlHIyLshuA0zXxJ6n1US1BfxizFVUSZguVMkyER8RTljgSPKL1 + BmjK1fJB/dUrtRbLpZLYVGVhRfgTlnQihNtA3doN0MwnJrWOmCV1pIyVtIKlDEkrZCw98Jglnbl/9tQX + oLl3tFoQSxJBSp1KMumzIBLb5DKjCH8ur7SwJPgRS7pw/+yxF4Cf/habTr2sqU6SypHE1lVKYqMoZcpE + FgY9ZElXosEALTeceFFHbE9aI5ZJ5eIyE1BKuAXeZ0k3osEArTyPpryblLElJVgqUULM+/MeS5wIXkPq + DdCa5229Q0zUqZYkUrWSVKK4ApgTcIclvQheuOwG4EWizaqIJNtia6mEKJXEin/uY+2OCLgs9sXYWesx + f8NeTPM8hG9d3dZQ/zwTmv627YDdAG1XHnpiEVPnDd1buTgtqwBbAk9gzuo/EKqIQ4LqFd4UluE/tRaK + uAfwDjppnrfKN3LslGkDyNPUXoB27qGJ73xv5cO8LSQaXrsjkZyuQ365ScDAUFpDWQVuPs1EeMw1LFrn + c4Q8vCo2thWg/ZKQR3artZZKXFAmwn1LCFSZ2Sih4SsWqEQRQ9UUEgkaA6FFwMG/za6zFywnV0vrALxO + d1hEc1ZebS0pI0qLRAqJnWFncPraPRo5M4W3UFZZReGrqA+Cglx6rIM6twgnL8Xjx58Xn2eXrQAOCwIf + 1BLLK5WkRUaLuLAcyKfPa+ihS3+jp9lTTbPHLFBBcCAjBckpMeJQnAaa3GK6FSq4zHB7Ta7OtgI4ztt7 + r7aMRaKwgM4CLBYxEB5bQ2EikZnW8CoKwVRyGLMZeaVGpOeVCAHUOYVI0Rkw3mVGFbmcbAXoODfg7lup + JJSkdJakEvpSM3aExeCN3iC+vKoFePj1xeVUdZFA+DUNVPpCXEt4iuHfTNCSq6t1AH5TdZq961YtsVSp + XJxXZiG3tBraAhMOn43HrYe8fphp9EzCkL8yFAtiNUlV+gKEXVUjJSsfu8OOoN/AoZfI5WgrwPszdty0 + WW2eXEzkkPxNYSXUWSXYtv849kRE45E6E2l5lop5uF+S/EV2AZ4TBynA1YQkuM5yM/f4sM9qcrWWBxD2 + AkSX6f7Kt2IWimKWSuiFyiuh0hVje0gUNFo99kdGIyD0GO4+01jEVDWLn1HVybp8bD+mxMKVnujZu98p + 9hC11gEpQNef/P6tGWa5NKfUQlZJNTLzTUjRFsIv6AQSVRlQJiRj32EFZv/qhWVePth/NBpXHjxB4usc + XLj9EP5BYRjz/Uxzj16fKNo5dBzCLsFrFYBfld1+8L3+ViqK9SJZxdXIMFQgKaMAZ3Z74FlcMMKjYrFy + yz5MnL0K/cfMQp8vXeD6iwdGTZiKQcO+xhejJqLvyKno1MXJn/r/SPQILyRbAZxcvOPqiLNLAF2RGem5 + RjxU5yBmlztS4gJRpDuNiryTGDRuDroPcYHDgMkIUdxG1PVkKJQpOCWeh86PYMlQgrfpNt+GUoDuUzZf + rZEy9IxBS3KNvhx3UnSI3rkEz+P3oDj7OMkjkBa/Gpf9RqNtv0kIP3cf8U+0SHxVhCRtaQ0jl0WxZBDB + W/P6A0zeeAXZPNw18mqaSuW48VSLk/5uUCl3oFT/Fypyg0jujli/r7Bpck+EnrkHZZIOz7PKkWowIy2/ + Gqkizu4KlnxG8A8Uu/sBYRpO2nAZE70uYbxnLL4jxq05j9HLo3Bw/XSobmxFWW4wjLm7SL4Qsb4j4Dne + CQNnBmL4wiNwpkqdlyuIGIER7tEYSfIRS4UR+JjgX1F2Awg7IoKnyAdEb4Iv6kMMvrB/DskDSO6NVOVc + XPQdhrVjHI303Tjic+JTgqscSPBwcxvDbdyPA8Grbd0AYgi+DRyCbwXv3TitBD88/S8ET0KacjrO+QzG + CucOJmpjEb/beWgl+D7L4Tbuo5ZccMr/ERreHhzGGg7V129qdywZ2o7l/Qhhj/eu1PFZNwiN9R88Ory/ + ZzhQncNWn7ZBo/8BAS8Owz+JOCQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADN0lEQVQ4T32SCUiTYRjHn5lXa0tzW5qK + zqPC6eZyWh6R0qzUdYnHPFaRmWYTNY9geGSmyGIe5JmRSLRi0VIxTE2j7HJY2iGIYUSgRSSFZpiVPr3f + B06D6IH/9/H93+f/43nf7wWqqh7OgqpjuqP49lRCSdsERJUZILX2NbXEIDJZIUZoVicEprYBItKiS9M3 + zS+5M/W7UD/5XFlvYO4tvOcXXfJYpSh/0hZd3Nd/QNV1UxJ/MUsUqfEl7aZEjL8AGdqJg7qhadQavi4e + qnzxVN3+7uc1wxRqn83gJcMsFnZM4Ynmdxiae/e7d2xdGomYUTkjIKlhLEU/PI1PJhGbB2fx/gSibhSx + tG8O87vnMK8XUdmJGKedR0Gi7ht/Z76IxEyMgMPVL4tvDs/gjdEFbBpewOKeGQwvePR5a/KtAb/jrW/9 + ld2/wtTjuK95Dr3THyMvqCiXxMyNgCMVQw+uvZzHSgOiegAxoWYMPeUtdWw7DzY/JMeeJ1H6OO2p6tpa + OI7eeSPIDSzSkhhzCcDYW/DgabxmeFF+4Q0qmt5jYtME+qd3zQtj61PIOrVfU8fAU9KNcbofgswR5ASe + 7Sce2ziBLLfVNiC1VbbpQEOaq6xG5RHT0i6I077nR9SOuoeXu5EWEztxvLOLrObD5pODaOWr6iTeMkBe + Pki9lv75KiIzG0EshyNKsuWJFBaUz/GMcnUOq/7oltSPa7yUjcRj0QDqQQGCs3rBI+YKeCl0IDysB35E + A+kBhus+qhdWccQpu132X553jLqFTEFyPvEs/wtwkTWAg7QSNhCRMrMWpSpd5HrkBlfMWjiFBxHP9J8A + 4SECOKIHp7BaWB98HmxDNBSAaSPJueoYqUOWOIc6QBsi+jYaASHZfeAp14JX4nVwkjUCl4R5RFSjBVfo + wNle9oknrUVLt1gF8ejxjYAE9RAEZ/aAMxmbE1QG1v4lsC7gHC1SFizB0UybHeeRJczoYpizucSjb6ER + EFM6APZSDbB88mGtXxFY+Z2hRYphauXOY2/Je8WWqL6Yb9guIZ4Za1spnTMC7HeqwVKYDSzxaVizQhTA + 3HGXO0uc+2b1psRj5JtJecsAhD+7k5IuL93Q3wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIs0lEQVRYR8WWezyV2RrHl2Y6Z2aOiI2S + 0NU0yNR0UXN0pFFRGVQUQ1EMk5mm6WKY9Pk0pFLYIZfKJbZccguhqNOg+2WkmEyhyCiaybiksPd+zvO8 + 9t7jzZz+mD/OeT6f32d71vuu9X0ua60XA4D/q/508H8pvoN24Eo/23fxFcuv6zuS/OOLBwElHcy3sJ1t + zX3CNmc+Zt6pD5lnUj1zO1rHXKJrmKOwiqYpyWUZUM4W+p1nZttL2fxvSticLwvZTO9TzMQzh8dSMHkO + 2r7Klyzohx4WVtHVn3CtG7KrOr/bktXKfNKbmFfKQ7Yh4T69JgeOkOmt10Rj3DszvfKYiUc2M3TP5LEU + TJ6DtvtcNyuqe2kTXt4BV5peQuSFZw3yxWQaEVfauDS8qDFmb259tq+o9t7WxDt1fil38r89fjvdP+mG + O77zDupvqLfp/Q/cMtn7rmk8loLJc9B2Yskzq7oikq51QGefFITn2sSxPzzdG11UqxdV2pzmfqRG4h1f + A3ty6yG0oAFSL7ZCckULBJ2sA3/RXXAIroSF20vEziEVNW7Bp0xxSQpkxBQnEY+lYPIcNN+CdhZ/+Xl5 + QXUnBgBQXt8Lu/Kaft2e9qAz6mwzPHzeD229UmjtkULD71KobpfCtVYplD2SQHGDBM40SiCtqgcCMu/D + HO9ciVNggY08CFp/KI9j8pxBUwora2u52NAD7b0APz+XQnFtNxTWdMGjzkFw7bNBYGG9BHLqxJDxkxiS + 74rhWNUARN0cgLCr/bDnYj98nfsEZm/K69UzsRDgutQOpaE8jslzBk3JL7vp1b22Pg5YhRnefCKBy79I + MFMJXGzBTBGc/0AC2ffEkF47AMfvDMBRgt/oh9ArfRBc+Qp2XXgFvmW9MH9HGczfdjoG16V9MawKfAdN + mHNDZcOxOmjtlsLdZxK4hMDyZgmck5U4/74YQkpawftYDdgGXQK7vZdgffRt8BHVw66S3yCo4iUEXOiF + 7aUv4KuiHlghrAFjr9zHuPQoFJ0QPpPnYPYx51tst6Tch8ddUi7bsodyMJV7AIKLfpHa7SlvXxV49twK + 37Tg5f45UVY7iysW+pY0z/DKGbDecxm2nukBn9Nd4JHfBU4nnoHuqkTpKL0ZY3H9kcTgMXkOPjxY1BQZ + mNsI97H3hQ/EkPezmCt1JvY57mo3rA650ofgDHzXBKWL0kLR4uNRU+dtzvm3eUAFbMz7HVyyOmBNxnOY + 6CyCaesTXPA51wYek+dgAAFZ9RURpS1w66mE21xpNWIQ3R2ApOoBiL/dD7uL28DC90yvxaY4Ib4/AaWC + ooXfRamhphptzOywEv4EDmm/gV3Kr2CwIRumup0IwWf/QPH2wbAAvkqsbd4Ycxt2pNbBjpOP4PvipxBe + 2QUxN/sg6nofhF99BZszmsBsa0GXhWfY9zhHG/V3FPWXfrXNvxSdnLelCGyT22F5YhtM2ZgLk9aJjuKz + YftgWAA7U6t0vk254+kRcytz1YErNda7y5+bbTsrnrWpAMx9y8Bm71VYE1kN6xMegKlPXoe5Z8RmnEdV + oIXpqKnPc4vwN1qfBo6pbWB5pBX0XTNAf218+JD3FPvg9QDI6LqVZ0MRa6ImahuZLZi77mDwxz6iC6Y+ + WY0zvXM6p3tkv5j3RWo8PldF0RySqon9d2snOiSAe0YbLDjcAuMcjoOOvdAPn3EB8Jg8B81sWyn9cHc+ + ihaknUv9pcljUBNRxqiPUIayMdoD8sBVDG13OuqvjAe39KdgKmwCLZs40LL0/4yeod64CZnp10Vstk8h + m+F1ik33yKEhxUcIRSWmyryHUpb9yq9ZeQCqJi6R2yc7JcNnolb4KKQe1CyFMFJlLAVNc94cwKwv8tmH + n+cx443ZjL5iBq7pbIpzKpu0JoVNcEiiV+QBKaRlfRh/uL8pwNHG7knJRh7ZsCqxBab5XQfNT+Ne4Phk + FAX8xnuAfeiZy4w2ZLEP1mUwA5c0Nhm/YpPWJDP91UlM1z6Bjbc7xrQ/PcLGrohlY5ZHMy2rw0xzaSTT + WBJB07lNaOCafGv21rOwLK4J9NzzYYx97HUcpzuDqvfmAAzdT7JpCJ/qfIJNXitiExyTmd6qRKa7Mp7p + 2B5l2jZxbOxyhC+LZppWUUzjDzhVgNqhOX7lsR7z4B/B/FAjqFtHweh53t44roF6eyiPY/IctPe5kp/g + Sq7vcJzprcSs7WXwFXGYdQyjknPwJQhffIgJFtOdxAXwzjgzzzmCJYdgSXQjTPe/CoJl0b04boSiE8Xr + P8fkOWhTnKnkg/3WJTiWfByWXNuGsh6Ea3CZRyD4EFNHuJolHXFuIypPcow9rO8kAouIBhi3Ng00loUW + 4bgeijspQ3kck+egTcSSc/1GuA7Bh5acMl9KmcvglkJUGE2Tb0CN8auPPjb+5jzMCawGtcVCyVvvqc/H + cXUU7/wrmDwHjeu3vOQ8+GDJBQRHMGWt9kkYU1sUStMogHcFs5w+xoBg7v57mH0qqC/dX4jjdG/QPTKs + /ByT56CNt4tn42yp5MP7jb3lSq7+STgbvSgMFcpULQ7SNDr/ajorY8/ouWbCtG2VILCO6saxmTROz0eZ + 7eGxFEyeg0b9HjxiCKcjJuu3OpYcS8rB1QhuEYri4JQ9HS9dgVVkn6HfNRhtGS5VNnH4HMd0ZM+UlBcE + 8VgKJs9B4+DWdMRws8mOmMAS4VzJSQhedJCNXngAs6cvLLf5Ro2xCTuoZRcP2o6pILDaX4JjBii6+TD7 + IEYaylIweQ6aFne+B+HUb67kBMesqd+qCFe1OMBUFoZwIgBKXdMmtk3X4zRorIhqQp/+WaHS08ZU4gL4 + ZyCPpWDyHDRFv2VHjIPjZqN+U8kJropgVfP9TOVf+2gKd/9r2saVCZZHt43UMJhLy6DoUkJ4IFNGuDL+ + DmUpmDznr5l8D9BRo3/NKHPy/3TXvy6+89eMAqB9QJ9typor+9B1/7uA/QeYRDsoGr49XQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADEElEQVQ4T2P4//8/GFeveshQt+YRQ+zE + ywxAwAjEzEDMAsUgNhMQs9nFT8kxi55xAMgWBmJGFANAAsFNBwx9ag7kx3WfWBvefPhIUM2uLXYpixq1 + vBodJJRN5T3ylt+0TF7xV8ogxBGonhWsGQoYU6deSK5edvfrnMOv/s8/8fH//NNf//fsff+/cs2T/9Ed + J35bJ8y5nDvn+j/rkmP/hQzSyoB6uOAGxHcfVi+Yd+PTgUf//6+78///7Mv//7ce+Pm/fNvX/yU7//5P + W/frf+L8l//T1n7/r5d78r+wfkofUBs/zADGgPqD2U0bn/5fcO3//9J1r/571R79Y5Wx6b5ezOIzpulb + 3npPevrfY9rH/3a9H//r5J/7L2KUsQKoTwRmALNb2e65dds+/i/d8P6/SfLK7TLWxSYKNtmy7HwSYkpu + rQuM84/+t+t7/9+09c1/7eLr/4Utam8C9cnADGBxLNyxO3fdp/8ulUd/qHp1OIHEgJhN268z1zZz/S+H + +iv/NTOO/VeK2flf0nvBPz7j8ttAeSm4AWYp69dGz3/z3yBx3VMZqww5oBiTmnutmqp3/y31gOlPxW2a + 9/FoJk7iVg3v4FYJzWeXMDMFquGEG6AdNrfHo/fJf82oFc/ETZIUQAaIarhzCqn5y3BKmsoA+QJAzAvE + PEDMCcQgF0LSARAwq/hOzDcpOfdfI27TDzGLEleQmFbofJAcKFExSrpPZxC162QQMK5gELbuZBB2mAjR + CzWAScqmTE85bNVnteQD/0VMSrKAYmyyPrMZ5Fx7GaSduhgIGQACnJLOfXsVgIEkbFG3GMjnlnCbxiDh + MplB0qmXQQqfAVBDWIRMCoIlfBb/F7bve8EmoiMLFGMSdZ7MAMISboQNYGTmEuUTMKvdKuw05T+PdmoB + UIxD0LqDAYI7gbidQcC8AbsBwo6TQIawcCp46PObN77jNSq/zMKnKAEymN+siQGOzZuBhjQzCNv3oxog + aN/HIGgHSt4MHNxayYk8hhW32aWd1IB8JiCbAQUblDPwmdYD9f1nAABv3HiC2FMS6QAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIUklEQVRYR7WXCVCV1xXHPySNQdlXRZRE + tGaUTrU4aiMgKosVkUURxlISDCAViUgAU0CssgRZVVDEhz5RZBERniICFRCRYDXBCtGCEEGSiEFkESFs + j9Nz7lvk8TDNdKZ35j+879z77u+cc8+574MDgP+LxENhkuTXTTb8N71tTLGGgO+gpqPeRSmSbeI6tnay + gRR5c4A7cKOPC7vewwVf7eQCLndwn+V+z/lktnJe/Bbuk1ONuJdcdAqWYVWcxRfl+JE9E3CmR3z1d3uO + V2fgZyWxTYYl8yBReFkvF1LczQUV/sT55z3jfLOf0vckoGko2oii+80E0TPZJfNK/snlUR/HVcOavVdG + 8VkLRZmQyYIMWKK/XeviAhG+5+KPuP4N9MQ/2j6OL2rNii5sEXyR2dgYlPFtU+j5+oKQjDpe0IlSR1yj + gpohltb26PJ2XlkrrPYvAofgcx5i+7SJLBmwRJRyP0w5DgVeeevSmGvtDT78xrHPLzRBwrWnkIjKrOmA + c9XPIPJSEwSfrQfHiCpYH1w27nusqsDS1X+5Z0zRCffYKmFJ8wisCa0Cs88L6BjUUDLHIANmBhx+2e30 + R4FX8b3VrozHwrx7XfDo+TC0vxqH5p5xqO8ch7rn41DzgxButgvZ369+FMKtJ0MQkF4HtiElr53CS/ty + ajvgZN0I2MR8Aya7C+twTx0UHdcb3kQ4M4iGgl/UGaXArJaB2tYBaO0dh4YXQqhFUHmbEEqeCOFqixDy + G8cg59EYZDSMAe/+KCR/jbo3AkdudEAGZudK0ygElA6CfXIjGHtf6sR9DVDUFW94U8BpTEu83pZ0SNAK + j7vH4c4zjPSpEMpahVCMYEGzEC79ewyyH47C2fpROEVwBMfXDkNU9RDsrxyC2JqfIfLWz+B99TU4838A + o+2ZI7jvQhR1g7QQp3KAtdC+7MdtWf/sYum9gVEXfyeEKwg+c7cfwgvbwYf3EByia8AmvBJcEr+GXZlP + 4FDVIIRVDkJg2QD4XXsNXoJ+cL/8ClxzemDW5pOgOufDP+LeVKjSQpzSAfud4TNdku6PVzwZZmDBYyFc + bhoDX/4jsAqtGLWPqGpziqystAsrTLIOyIyw3Cco/8hf0OXOaxrfe70ffItegafgFbhf6gPX3F7YmvUS + DF3Pg9Gm0GDcn9pR8ZccmBaW3eDknnwf0z3GUp2L5+xz+iG4xt2+jvO6KE2UOkoDpYdavNKLd3HFnqIR + j5wO+LSgF9zyesAlpxucMrtgc8YLWOQlgA+cUwpx7RwUFSI7hqkcUAw8/+3fvdPq8YzH4HzDKBwqfg62 + B6te4hxVMfUyXSi0CX2eZbX7VMxyn7xBvClhR34P/Dm3G5wxaodzXWB3thNs0n+CJf7lMM8l/SGufx9F + hfh2B3affnDUM7Ue0v+FBYZtRGfsGFlOfayKohuPLiZyQMPaNzXYdHd+7/68Fki43Q8eeS9hS+YL2JDa + BqbRD2BpcDUs3HkV5mzLAP2tZ6gT5qLe6gArQO/Ubw66IjT53jAcuTsM60IqwCY47zOcm0nzKHLgvQ3+ + fM/VfvldgVlN4JJwF1YGlIKRWzbo2aaCvgNPOHfbmf5523jtBk7Jt2ZZ749TW7zRHL9HR/fWGmAOfHK0 + 1mfjwdtw+Ctsq9tDsMKvCD7yPGaPc+QAwUkzbILyU0y8L/Yv9czpNt6R2bxwe1rFvD+Fxs7QN7bD+VWo + ZajFqPmo2SjKoPT8p3KAhqJzdJm1WVAZHLg5BKEVg7DsrwIwcYvdgnPKKIKTo7QRXa2U0gViGaIIRJVO + c7Se6uQ9FK2n7EnhjCnzIBqKH6zYpLF0ZyFQS+0teQ0mmAETL14QzknucskPlOT3ni4XgtBnCUiSKVqr + oL42llOzOCzDY0yZB9GgL81ctbe4fzv/KXhf6YOVQeXwB5/sC2jXRrEUzrZLxT+izSdK0yqJ07BM5DTW + J3Dq6+I4NZIYrromRobHmDIPokEbKZnvK620OHiH9bPZgTtg7JX3AO36KFbBerbHOd0NKZyOzTFO2/oo + p2l1hNO0RDiCNdbFIzSOU7eI5dTXHpbC1cy/lOExppxB5MC7y73S7Rd55IHThZdgeaQRFvwlewDtdM50 + pgo6G5I5bTFcC6PWXC+JOp5FTilXRbAaglXXfMmpIlzFLFqeJ2cQOUBnq/mhx8X+tYmNeJE8BwPH06Dz + ezsbtLM20rZGOEbN4NKUI1wcOUUthaNUzKNRUfI8OYNoUB0o/847N2exbzGsS+sAI4/L8L7zMT7a6RhY + HUjPm0WNshBFLoGrieGqGLmqWRSTHG+ygRlFWZiupGs032ALf2xVXDMY76uBudvOdqB9EYruAwVNS9F5 + s5RT1OLzVjOXwClqhGPkBFcxi5RnTTYwo8gBaiUNIzd+zvxPC2BFQivobDwOqr9d74B26oZ3JHBJlatZ + EFicdopaCo9kcBWzCHnWZANptt1J3J85Qb1tOGcrv29JyF0w3FEI+o4pt9BGNxvNsf6WKTYxXIVFLIab + RnLKphFMk1lyBpKe7QnWYjgoC+o6ZrtctTelji/Zfx90bFPpzcaE7DQvLTasclZsLHJRylURzOAYOcFV + Vh+SY8kZSDoIpxbDwWoBpT/bIUVg4JYLelv4oGtziFJExcje8yVwlnIWNUZPcBY9gsXwX+0AwbXY5ZKE + +4tuRtQCXYe0NkOfEtDefPIFPtO9zy4l0Vm/OW+KXBq1BG4q0mSWnIGkRbfahP7GQfeC2vRZS5bpbE7r + 1LVPrcRnehNiGWCVPjFqhDMhUBnhygQXOzGZJWeYSgRBUe/TCyWBJW9GMv/l/C+a0jiVcEhakxwhsV+6 + qdb+egH3HxBLHytNWPYQAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACfklEQVQ4T6WTUUiTURTHz6YSw60wZxNZ + 028Epc7lSw89rEUY1ZtUBj4VxSQRhK1eBsIIUcKlKAsFcYgxhTFUhDGSMfBhGsMFWxmyMdI1bSyJ1hZh + SPw73wcFpT1YF37c7zvn/v/nnAuXAPwXBwYPw4HBw0CTk5M0MjJCo6OjNDMzQ319fTQxMUFTU1MiJT6f + r55zVt6D8/PzKY/HY/JMT59nnc3v92t/M/B6veRwOGRjY2Mml8tlX1hYiC4tLX1ZW1tDNBoF5zE+Pv4x + Eol8SyaTmJubC0mVhoaGyphrLOrn/3UW7SUSCSwvL4O7AReR4DhyuRyKxaLE7OzsHnE1S29vbzIUCiGV + SiGfz0tCu92O9vZ2WK1WcOvY3NxEoVDAzs4OMpmM1JHNZtumnp6e/NZWBrFYTDoUDofR1dUFi8UitSzG + RFNxjHg8Lpm73W60tra+a2xsvE6OR45dvk08dXvhdDrR0dGBgQEngsEgV0ojm80inU5D7LC7uxudnZ0w + GAwrFRUV54ionC6YL8ZerGdx9dZ9NDc34/liEN/ZMLHxHoHFEFZXVxEIBDA4OAidTgetVuuVyWQCi48w + MqqtrTPXnNSvaKprhgVB8Gc+FLH9Gdj4BPS7nklC8T4aGhp2VSrVYxbVMKUmk4na2tr4k6iMKWeOnz5T + /yQQfoNXOSCyDdx+OIzLLZcgCHU5pVJ5l8+omRKj0Ui/DAxNRqpUV3GcSrU6wXzjzoOC72UBnjhgNN2E + Wl35WqFQXOH8UUam1+tpn0HViWrRQMYoq3Wn7umbzG+Fsy1flapjAblcXs9xhZjXaDS0z+CPJWfEccQ5 + 6xixNXHEv6+fj+LfAP0AdewrJj2K/A0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHLklEQVRYR8WWeVAV1hXGr6axtjZNG3HD + XVBR3BAtog2gOFVbwgSaCdhiBTu2jowOjZUkLZaa1G3GBfcdF1QERRaXioACrogFFHiPRRZBAsguNSC8 + 976cc/C9eaNPp/YPcmd+vOFy7/nO/c6596EAfK9YnOxOLE52JxYnuxOLk92JOn369CtERkYKp06dMnHy + 5EnhxIkTQkREhInjx4+rY8eOCTdv3vRLSkq6euHChcorV66kpqenO1gSNmIKbEngzJkzJqKjo18hKipK + 3b59+4O0tLR/Xrx4UUP7dGfPnsX169eRnZ2Nq1ev4ty5c6l8mNTUVMcrSUnJcXFxbZSYhhINYj1T9keP + HjVx5MgRgQWYlx26cePGJAoSQcGrDx48iPj4eNy7dw+VlZWoqalBWVkZ8vPzQacHiXScP3++hBLGrVu3 + ZM39+/eRkJDwlBINUocPHxYOHTqkKJg6cOCA2r9/v2BeAjqNH9maRgGf0VokJiYiLy8P9fX1ePLkCaqq + qvDw4UM8ePAAd+7ckb+zGwy70djYiJaWFjQ3NwtZWVmgxDRq7969as+ePWr37t1q165dws6dOxXZ+sHl + y5f/RQE0tEZPToFsRElJiQRqaGhAbW0ttFqtBGPIGQ4KKoUI80k5QXPhpqYmSebRo0egg3eqsLAwtW3b + NrV161aVnJxsR9ZEkFgt/Q6yH1RjVFdXm4JwwKKiIqSkpGDfvn0ICQnBypUrsX37dpB7XHPk5uZKKVjI + XJSpq6uTeIWFhaBD6xQF6kXWhtLmZ5QIqEkkcz4hizIc4PHjx2JreHg4yCFs2LABa9euBTkmv7Mwl4TX + sQjvMQpzLGOZuD8KCgpEh/ZpFVl1nE9CXYzMzExZYBQ22lxRUSEWb9myRYSZHTt2gF3ipLixODh/cgJG + YaNoeXm5uMYHy8jIkGTXrFmjJ/c+Y+ur6cpJ1izIDcQdbN7NnBjdbaxfv16SYOGYmBjk5ORIT3CCXBpG + o9FI0/Eci3JT3r17F9RTkiy7HBwc3OLt7e2ilHpPrVq1Ss9Z8dDpgVxNAU6ejjZ1M9ea7jE2bdokCdCN + kCvHQqWlpXJCPimfmBNobW2VRqSyynvAiVNfgZt49erVCAwM/E+/fv1GkvhPiXfV0qVL9Wxde6cBLd8a + UFLVhL8Eh0i2sbGxkjE3Gn9yU/JJuMnYVm4mds68vtzdnHRoaCjoAZOe4eQDAgIMCxcu3Eui1sRPRFyp + HsrX17cmKeUaGp/pUdmow72iOny6aKlkzBvJLnGisYmasbkV2sJiXEu7jnyNVsrEyRcXF0up2Hq2mx8c + Dw8PbN68GUFBQSDhdhcXF38SHEj0IX7A4p6enkr5+PhEff7F30Vc800n9kWlwH/ZZ2wV/P39cS42Ds91 + BnzbYcB/2w142mZAeVU9IqNjkZWdI6XiktDTKk/vpUuXwK/e1KlT4efnBy8vr0pra2tnEuxP/IjoyeLz + 5s1TjJo/f76dl/cn2i//sQ7rwsLxkfdCzJu/wEAbM5YsWdJZ+ugxWkm4iRyqa9Wj9qke1S16JCSmIyom + QZ5bej+kztwr9IRj+fLlcHd3N8ydOzeRxOyIvsQPjeKzZ89Wrq6uAo/ebnPcnVzd5iS5uM2p+PVHXjGU + sT3Nj6dORUNrpwh/09xVorJ6HUrrdLiWWYjQdVukT/jl4+8EvprcaG5ubrpx48Z9RTFsifeJXkSPWbNm + qZkzZypnZ2c1Y8YMgcc7RG+Cu/LnxM9eMMJv0R86crTlIlxCooU1ncinMuVWdSKjqJl65U+g7wzQa4qN + Gzdi8eLFIEdbhg8f7kP7hxPvEVLv6dOnq2nTpilHR0dF5VEODg5qypQp9KeuwdZwIryYYbusly1fURkR + fR5FtZ3II9Hsig7cLevArZLnSH7QgLm/+USE6VHBggUL2HIN7XPivcSPCY7ZY9KkSYqZOHGimjBhgrK3 + t1fjx49X5FLXf0Rmo8cLOAmr3y0KOBEYFGzIqXiODBJOL36OlIJ2JGrasScmA56+f8SKFSvg5ORkIFvp + y13xkbjZpN5GETs7O2HMmDFq9OjRgq2trbKxsXklAeNgR/iujvULWPbw623hSNG24d957YjPaUNMVhv+ + HLILnr/9PYu3U+C/0lo6jpSQ73dPc5FRo0apkSNHqhEjRghUIjVs2DA1dOjQ1ybALnAgq+nOrj5evgGl + ny4OxN+2RmJnvAYbTmViosMv4OT8y6o+ffp40LpRhKne5iLMkCFDhMGDBytqcGHQoEFq4EB6Fl6TAA92 + ga1kS6fO8fCJ+/BXH9faT3bU2djYwn7ytGSan0kMJkz1ZhGGBYwiAwYMEPr376/oGRasrKxU3750O9+Q + AA9Ogq+Q3ApiMsGPCjfaWMKKkHpznP+Hrh9vHlwOPh0L8TPK15Xt5ldNLH856NvQ9eN/G8YbYo6Ml4O+ + DRYnuxOLk92JxcnuA+o7zo1nmTxT64oAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADDElEQVQ4T2WQa0hTYRjHn7ZztpWXnd1v + bq6WGZhloa7MaFBhSIHfuiAx6ENFNyuKSisVxaFd1CaaEd3pAoPTBaJc+q6plYmugijKXJBQFLS+RNjl + 6TlLbdILv3MO7zn/3/95DyBiHLdvEJb7X0B29aAs81B/kbtusD2rvO9exq5wMGMHE2duurvD4RUdmuLL + oC66BNKScn8vtBbVD4K7/pkr3xe5dvD2u5+B5zEMRUfxztAotvZ9xXUX3qBrc8fraQXNG5IKm2f+J8it + HViw7uyrKBv+jpHPiLeGfmMN+4Jbbn3ErcEYbu/5gavFr5hV9xKNa29+oAg3SZBX82Qk9B4xMIzovT6C + ujU33k5deiqgyGu4qHC39Keu7xx1tXzCjPPfMLk0/IsiyZME1o3Bo7l1z364T7xEVaHfLzcvzqBt7Rjp + Mntppdx9BVN2vUa5+6oU0k4S0JLxC9tW8XlNFfSsIThiStLKgPSO5yyebEgurgZloQ+mLttPe0kTggSJ + nFBI9/H9sXdTCJ5IIQQiiYh/A09XuWBguRP6CuzwcL41pzvTlMPS9dBp0kCHRj0hcZ5T5aSfUXkc7SqP + vVXpSfMrBVsjdQ2smA79SxzwKNcm9Mwx4wOXAbvSdMJ9AwmEf4L00yrmaFOhvUWJtpPEcQVaGxQl8GSJ + HR7n26B3nsUbzjTGqB07zRpvUCvAvdTUCYGjVcnsfiWzNSnBdkwB1no+Yq7lRakZeudaIDzbKIam6891 + WbXifYMgSu2JgrSTFG5UMGoFq493Wmr4qLmKL4PuLBOEZxkF5tQjhUso7KWzI4WFRAGNzKz1CrTU8Wiu + 5tF0hIuZyjknhGboIeTQeTstGqRwJYUbKSgJvIkCi49nllqemas4wXSY8xgPcBHDPi4CXTat9MfFoE6I + 0tiMQhJRQkwUmGt4Rq3MVMGBYT+xlyvTl8kRgnpBiI+sTi2RAmNI7fFjjAuoldHIUqtHv4croXBEu03G + oEOtLqMPY2PBcaTzx48xLqCRGbWiYbcc9TvlqNsmF7VbZDl/AOUolAz9w3i7AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIcElEQVRYR8WWeVTU1xXHn6wKw+wDM+z8 + IOCKGhQCikZBgrK4otWqmERHW2zdxSXWaBV/okBcImFnWHVQRzyIRhlRESQ6oizGUhq1TdW4oCciiQLD + 7X0D80MPeNr+Y945n/O78+Z33/fe73tvzhAA+E3pc/J90hP8/6PfO+DGm0Lvoif478MoYIKYImaIOWLx + BvQznafv/E/F9AQ4gr5uIhMONJKP931PxiU2kLEJdXTaKGq2Q3Mrcv3hvx1bnFHfFHWg5nn4nu9+Dd1V + 9SqcrXw5M+HKw0UHq6tjkiu/nLEyyQnft6Q53bn97OfmEMWcbAzfLuatAsZT4SQU3ltHAuJv0ikqbvqX + 4407F6bVP4pI0um3appAdfkBlNY3w4XGn+Fi089QWtcMqor7sK3oNkxnL4HfmpLXs1jtxahN2b6Y3x8x + FsI502cBY/bWEv/dN2ho6Hq75vaM6LS6B8uyb0Hxjadw91k7/PiiE5qa9dDwWA81Dzvg6v0OqPhnB1y4 + 1w5ld5E7bZBT/QRi0nQwdKm6bdq20nxcS4BYzdpeEoRPun39+izAd6eOPgxdbyy6nYgdtx/VPYb7KHrn + uR5uoajugR6u/LtLVHu3A07/ox2KG9tAfes15NW/gswbv8Ch662QrGuFeO0jiNheBoGrjzcGxZ4oDVhx + rAnXpo5QJ3oXgMMgvrbw+5Rl2Q36ugevULgTah/poZqK/qsDylH07J0OOIXCmtttUIiiqrpXkFbzKxy4 + 1gqJ1S8hrvIlbD3fApu0LbAZ2VL6EPZof4LhS/If4fo2VIOK9VWAydqCBnZR6k1949MOqMeOq1C4/F4H + lP3QJZqjewEr8m5D2M5L4L/+NHy4srgzAJ/huyshRn0XtpS3QOy5Flh15gXEnHoOyuJm+FTzFNZ9+wzc + 56ueo4YIoWeiVwH91uXWzg3ZVdlx7cdXcB2tPvdDO5xqwk4b2+Ewdvp5ai14LinSj40t+fuEWE3euFV5 + 2wKWZ270W557wGe5+rJ7dH7rsJhimJN1B5YUP4NoTTMsKHoKc9RPIKrwMchnpbWijgyh19VwDt4qYHlm + zaZRsWfbd568AydQtAgtLrjVBslXW2D8ljJ94IYSnW80G9a9iBDhd0O7srVWeHoNXJSWqYjKeB32TRPM + PvIEZhY8hunI1NzHIIk89BrfUyD0N6N3AYjZvLgT/hO3apuCt12AuPNPILHiBfjHnmkPXHf0IH5vi/AQ + ugC1ke6l8UeJztH9dbLzn79AHHZQPzn1nkE4MhcPo+on4IckduL39t3v9iqADno6qT28oC2l+z2XqNt8 + 150G/9VFyTgnQegJNlwjweT9hP/JPmLzyVfEZlISThkaMJcyI+2GLc6pso/K6JREJncKQvd38oITOvmT + EvWi8K9/wXeMW9Cl+2YB8t/n0ofBCcT6w8/2Bfit0cRjTO2mv2wm/ND9XaIhSYQXnIgkEOugvcRq4h78 + 2tAALVKKMMggZDAyEHFH5IgV8s5raByG64hQq6gwrdiQ1Nd4Yw2aR9+jeQMQ626oKP1M1+KuoCHHGBz2 + tiWF3jJSOFRGtBOcSUOUJ1M/3YOtDWPYMz4KNtdNxOQ4C4nKUUiy7QUkS07PXtcwrrFIy4iiy9zYhedc + 2fnfurDzTjuzc0uc2N+ddGRnn3BYOiZeTF3oN/ILPpfDBVS4cIiUFAyWkoZZngTFY2sj3OFGKAPXJ7pA + jqsoVuWEBTgISLaCT7LsehYxsvCcG7PgrCuE5djBR3FC8NsphMAEMcw8JocZRXKYki0D7428KITL4QIq + XDBISjQj7UjdVA9SG+4O5/0doSbIFXTjnEHtLgGVI4p3d59la8PlGsGumXmlThCSKoMRW2xShm/mMSjG + TC2URUXkyyA8TwJD11vpEC6HC/K9JCTfU0LKA53IzcmMT9V4ZyjwEFPxlKsBTnBmiC2o7AU+2QZxPsmU + 9i5g7ilHZnaxAwQdksDwTdbssA3WxOdLHpmiEpPJWSIYtZ0Hg9f0p3A5XJDnISaFWMCNEDdSE+yaUuJt + R23XaUfIRdWjHeDKSHvIsRekUOuzZDZYQI+NRmafdGCo3dOOYLf5UpYKh2YKSUi6wMdvlzUMXGlJifJa + acnlcEEuIyLHB8uIbryL6FogWu6BljsLlcc9JOTKCIW6cqgcjjgKAa0X0e4zxL0LmHVczkxT20JEvgQm + Z4sgJEMAwSl8mHCIBx8ftIbROwawH/zJglCMOVyQ4yIk2pEKctXfMfg7P0cowj0vchP7aBgJqRwij6rw + soNSFzGgeDAVzxD1LgDFGSo+JoEHg9Zgt6sswWuFBQz/whLGJg3A+QEwdINFivsfzbgcLsjDK1Y9yoFU + +9irqd1VwxWAXQdfHmQXXOFpq7zkLoMLLlLIltioqXiG0JrLNRJZKGWmqETgv5tHxVnPFbRbc+K10pz4 + x1sqP2It8RaYA7PMTGnM4ZJpp1XeClHlMDloXMUGu484COGwQgDFjiIUl0C5gxjUUj6guChd0LuA8FwJ + E5olAN84K0BxtNucuMeYkSHrzYnvLgtm9A4LGLjaDFyVpqwxh0vWfiAjFQPtlGUeUtxnPuBBU1K7Kdh1 + cLm9mD1vJ4JSqQBQXJnO710AHjpmUnrXno/bb8UGJPTHv3iWxDfOgoz6q7nSe7M5uC01BZfFJr0dQIvJ + RUamO6oQ0n3WZUrwoEnQ6u79PikViMqkQjgnFkAOn6dLs+m5y0ZCs4TMpFQbPHBWEIh7jrYDdg7DNprh + 6TcIg/PnJjpEZMzhkjMlPB8EUJCiNApnCHkkHfebWo5dq1EYuvEx5hoZvLY/Qw+e55/NwSPGDJg/mHZ1 + vASFF5uoUVjp9JkJcfrUhMt5a4Hfgj4n3yd9Tr5P+px8fwD5Dxz5xbZD9s1ZAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACgElEQVQ4T3WSa0iTYRTHX3VBBgklZZap + lWZK4WXlsplOsVJMuhkhaVppE60snZpSaq6oyKyoPuTlg4RMEm+YHxQKRWJNsxwq+KEI080u5nQ6N2/9 + O8/rMD9sB34cnvP+z4/3xgHgVpSNGdsVsDOfswRfwgPhnJ8oZHtAkKQgOCLmQ9SpBNPppDRVQnp20dnU + LE+KMJF1wdJymEL+4DFUPb0wGE343D+IyppGSHPktWdSrnlRzMaawMZ/v6Sw8H4pxqdmMDM3D+P8At91 + BiPKFU2IT8u5SzmBNYGtJPK46p3yI3Qzs5g0zkJvmuM7O3d+6kdMXHIP5eytCQSxCcmmobEJtERGoyE4 + FK/996LaywdVrtswNKZDaNTJWcqttSqQZuR0ve3qhWbSAK3egFGCdXZ+0/4ee4RiNeUc6HE4xkB3GTf9 + 7dGywE52Sy4vrVDg668JfNdNEdN8//JzHFdvFODi5axJyjmxLBMo6ms53UDxssA2NUPmfSw+teHO03I0 + dygxqP2NurZ2pGfnI/FSOqobW1BWXTdM2Y1MMqS8yY11Zy4LWAmE4ojdgQePlPiKJOpdvoFzbh7efeKw + w/rbD5+go6cPzypf4UqWbISyziw/3Ja0JDBb2N9mR6wmHIj1ZrYEhYSPXM8rQvz5C+hsvofW53FamrsQ + /GflBZYwF5M6+wkDNM1VKVj48wLdTZmoKY7W0Hwrf93SMsPTcyfnuGETkwhYODfWY7S14ihM2uK/9SUn + 8DLvkJLm6ywuM0I3ryHsOQlhlrhnx7prKvL34YdaClnUjkWauVhcZiwJ/kO1inDLjXNTnRM5LRYk+rA7 + cLS4bA0qdifs5bryyxwn+AfiIP689xaECgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAINklEQVRYR8WWeVQUVxbGGxADkjhGMZIh + mlETPYlxSNxPZtQxxsQtC+7KIYIKrT1qUFBEokaNyKaDUQiKEQU1AooSouCKKKMoBBQUoQGbLSrQbN3Q + 0Gzf3Fvd1SJbcvLP3HN+1KtXVff76r5bj5YA+L/ScaJjGBHGekyIHm3gc57ne5huo72WoCcOsvOLJA/l + BZJ7WXmS1Iwcvt/owtWkQZdupDhdSEgOi71yKyM6/qY64pcEdXj0pcxDJ2OPBxw+tcpjV8AQuteUYDNG + W/eGSjb5hPDzHaKtsIhh8CBHIelv9YZkgPWbkuVSmfHV//4qjb2clLxrTyC+cl6Dj2baYvSHH2HspE8w + 3XYJ7Fe6wvXbPfA6EJ6y1T9kTe8+fc1Jg6ti5LIjUBBsH22FRXR/KNIeyCWvDxwsuZSY3O/arTTffQeP + YZ7dMixwXIndP4QiOjEFdxTPkKwoxdmkNOwNjYB0wzYscXbF+u0BcN25f9+sBcveoFRcjU6Xo724qC1E + cnqWZJmzzPjyzVS/Xf4HYLvYAb4kfL9EieyKOmQrmVoa1+JRuY70kgocjDoPmacvVm/5D5zdffab93r5 + ZUonVEJI3Ca6NUBhdDHxrjQg+Cjm2DkiNCoGiup6QgNFlQaPmco65FdqBPJoLECGIhNS4OH3I9Zs2wc7 + 2eb1lIuXg3vihejOgNHZuIRB0XHXk+fbO+H7w+F4om7Ab4yqASWqeoHimnoUCWiEYyGZKyBjmWUqnLn+ + K77xPwwHl2/TJk6fM4Jy9uS884f2kMwfYiqZP9RUEuw02kAHAzGXkpx2+gdimWwdipU1KK/TokxPaa0W + zwQa8IxMsbknZOw3MlVEJrLKVXjwpBqn4m7CdUcAZi1y4ir0IowFA3q6M2B8+kJimKPMFYePR6C6oQnV + 9U2oqm9EpZ4KTSOUDBlic+VkqIwopmrkkIHscjUS78vhE3gMMxeuOE05exMm84foK0DHrgxws5icjLma + MXOuPVLuP0RtYzPU2mbU3M9AgdtGyJ1lyFhkh7szP0PiPycj3mYUYoYOR4T1m8gIDYdcqUYuGcgoLMXx + 6HhMn+eYTTn7EkIz6irQ9RKwgR6hUXG1k6bPQUWNGvVNLdA0NePxOje0VlahtVyJ1qfP0FJYhCZ5Lhoz + M9GQkgrNzSQctRyAfDZQQZTVIOFWGj7+wq6OcvYnhE9S1wfdV8A0+MTPtdO+tEO1ug6Nza3QNrfgkeMK + tJaUoEWhQHN2DpqoIto7d1GfeAN1Fy9DHROLkD79yEAt8slAHhlITn+IyTPmsYHXCF0j6pehWwP7Qs9k + LnZ2Q3YeibW2ormlFcor15A09RNcGTsBscNHIGrg33DSyhrHLK1wpG9/QfxuwH48JnEmr7QKl6/fxvgp + M3kvb1MB7oHfMeATdOLEak8/xF9PBumjhf6IsBmmSaAFlRotfX61KNALM1yB/KdKHAmPhM34f52jnEIP + COJ/pAc8fQ/KPHwOIfhELLSNjXQNIB8vmNFQc5bX0uZUqdYhGqAeyFeqUFxagXXuWzHsvdGelLMP5xXX + //cMmDis9njb3Ts4dcueI7id/kgQZhqpF9TaJihpDyiurjWIi8KPK1R0VKGovBpnY+Mw+dMv1JZW1h9T + Tq7A8yYkujLAwSZ6St29v97gFYyQU+eRkq1AIZW5sJJKTYIFdDS8NQkr9ML5tAcUltfg/sMcLJOuwdJV + bljlsum2mXmvoZTzFUL3KXbzFXAIVTC3eMXCfs3W/R67gxB5/jrS5IVQkIiCxVlYMECiNJdHwnkkzLtm + RlYO1m3YjAUO/0bg0TPYvT8UUhePZDNzi8GU14Jzd7kEbVwIzUgdPGjO0rWBLt/4IvRUDDLIRE5JGfLL + qvCYBFlcQeVm4dIqFWJ+iYeDkwzTbO3h6XsIPxz/GUFhZ7FjbwhWyNbHUU4r4iXOH7xiVOcGGAeX7XSP + 8PPKtOdLZr2nfr7EdfbC5ekbt3njMHV24q0U5BUUo7D4Ke6kpiPsZCTWum7CmA+n1E+ZtRBOG73h7n0I + PsE/ITDsHAKPnET4d6uqKN9Ioh8h7AmiiQ4GFkk3SuY6utA9ukoQFu/YjBs5dtKnbsSZMROn5Yz+x9Q6 + m/GT6955f7z8rXffjxk4eNiW/lbWn8+wXZJHz2PlZn/QzzEE/HgCxfJ4PLx8EJG7VlRQrveIF0x0MGCY + 0IXQEwQ/wGvIn5QlMUAP73J8/iofX7Uc8PfPFizNXbxyE1y3eKH4Xgi0FbGoLjmPrGvBiPJaXkn32RC8 + OQkmDHptxQ2TumATohHuZK4KPyzC5zzP47/0e+31EbNtF90Okk5S5cashSr3AJmIhOrpOTxKCETEdw68 + HKMINi/0hKDVXrwtfuN7ECbCkR9oi/gvVn/OA/7krAmbg8s/qMk5J0W13I9MHIW69BRyEvchYqd9DV0f + R3AVBROdCov4jWMDesaZCLuZuKkYeG6CK2VG8NKMPLD0XXVWtCOZ2AGtMgh1ZWGQ3/DDT9sXq+g6m+D7 + enQqLGKoAImzmfbCBkPC2GCEl4STfxCwZLg668xiMuGBBqU/NMpgyG96IdTjSzbxFmHWqbCI7s2fIwgJ + sLBuCRYYTOjmKEQTvNZjvOcN0WSenouq3HVkYjuZ2Iu4Qw7caG8T5p0KixjKr+8Dw9u3R18BsSIUbILX + mNd6gueMvzbci5qN6lwpLh6ZxeKT9ddMOxUWEYVFnveA7u3bihp4sTnZBO+EE76eaKk9IBsuig8k+Ke7 + cafCXfEnQjTB3z+XfBjBhgRxIWd7ke74k8EmuCQsynCjCOIAJP8D4xKc1xniDJoAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACf0lEQVQ4T2P4//8/AxJghGImJAzig9Vh + w2BgbOXEYGBup2Rk6VBn4+J7wjM49kdoQtbJ2OzShuiMYlWgEpBBuA2AaHZc3tzZ///k2Qv/v37/8f/8 + lRv/567Y8D+9rHl1eGqBOlAZIy4DGA0tHOrrO/r+v/v87f+3X7//H0hKAdPvv37/P3v5xv8xWWWtQHUs + uAxgcvAIOLnv+Jn/77/9/P/x+8//Wz28wTSIf/jclf++kSlngeo4cRnAEhKb8uPhmw9gjett7P+vMjT5 + v1Rd6/9COcX/D9+8/2/vGfQTqI4XpwHp+WWn9p668P/px6//n336CtYIokH8LQeO/tc1tr4IVMcH9A4D + CF89PYvhy/1euAHMJbXNzX1zlv+/++rD/0fvP/+fLSAMpu+8fPc/r6Luf3JO8UegOnGQWpABy9etZnh/ + tQluAFNGfommf0zG+paJs/9vPnj8/41nr/+v3XXgf3Zp1f/4tOz/Szds/T9r6drHQLViIEMeHq9heHO6 + CG4ACLAYW7vomNm69+ibO1zU0Df7Ja+iedna0e1TY/eE/wfPXv4/ee7i/7nFJU+AaiVB6h/vSoAYADUF + lNqYgZgDiPmAWAiKpS3tnJ4UVjb8j0lM+n94c/v/nVMinwHFZYAYHK1gA7BhKAAZKmlgbPR088LU/3/e + Tv1/emPR/xVN3k+B4rJgeWyaQVhVVY1BWFQCZAgLSHF5iMrznXN8/v941vRvXU/g/5mVrseB4oJYNYOw + vRQXEHMyOAAx1BCF0hCFp3OqTP+/uJj+v8RT+S9QTAarZhCGGIDAQMAKxPLlkfIn48zF/9bFa4FcIIxV + My4MBCCXgAJXDqyZgYEFAGiQ98Pl8YdkAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIEElEQVRYR8WWCVBUVxaGG1HjkjguqDhG + U2bRSoxDEhesTKmjxsQtMajjRjGCAo0dMSBuSNCoEdl0MIA2oqDgAqgoIQqugDCCoiAgCM3SbGqAZutu + 9uWfc56N6WZASdVMzan6+923nf975557q0UA/q/qSeiRemmkT+qtJT7n6/wM6w+FDkB2frEoU1YoepSV + J3qQnsOX9K7eShh7/U6y1dWYpKDIm3fTw6PjVaG/xqiCw69nHDsbedrreMgGx/1e79KzfUgMo7frUKBo + h5s/v//a0AF4nCMXDTd8WzRy9Dui9WJJr1v/eiiOvJGQtP+gL/5hbYs5C00w+fM5mDrzS8w3WQMzGwc4 + /HgQLj7Bybs8/W0HDR7an9JwVfTs9voKOV8XOgApj2WiUWPGia7HJQ27fTfF/bDfKSw3XYcVFjY4cDQQ + 4XHJuCf/DUnyMlxKSMGhwFCIt+7GGmsHbN7jBYd93ocXrVj3NqXiavRoOnQAklKzROusJb1uxD/w2O/p + A5PV5nAn47RSBbIr65CtYKlprMaTihdKLa2E3/krkDi5Y6PzP2G93c27/4A336R0QiWExK+Izk2ody3u + vthLehJLTS0QeD4C8poGUj3k1fUoYFXVIb+qXlAejQURUFhMMhw9TsB292GYSnZuplw8HdwTrwxtAL1L + UTFjw6Nik/5uZoWfjwfjmaoRT1nKRpQqG1CR9hglO51RYGuHpwmJKK5tQBHBFRJYRrkSF2Mf4gfP4zC3 + +zFlxvylEylnX84rtZos6kocOgAR1xOs9nn6Yp3EHiWKWlTUNaFcozJ1E4p37ATa2oCWVjxcshTPCOwp + gRUTRFaFEo+f1SAkKh4Oe72waJUVV2EAqVdX5iwObYBeF67GBVlIHHD8dChqGltQ09CC6oZmVGmUa/Md + 0NAAqNWInzkHFQRVTiqprUcOAWRXqBCXJoOb7yksXGl5gXIOIul3Zc7i6ADgZtE/G3ErfeEyMySnZULd + 3ApVUytq09JRuGUbZNYSpK8yRXtVNdrLKxBt9Bki3puA0NHvID0wGDKFCrkEkF5UhtPh0Zi/3CKbcg4l + Cc3YE4Degeej1DPnL0VlrQoNLW2op1IX2G95YVqhQPvz39BWVIwWWS6aMzLQmPwA9fEJOGkwEvkMUEkq + r0XM3RR8scS0jnIOJwlLsicAfaRnflHP+9YUNao6NLe2o6m1DU8sLNFeWoo2uRyt2TlooYo03buPhrg7 + qLt2A6qISPgPHkYAauQTQB4BJKVmYtaC5QwwgtRtI3LoABwOvJix2noLsvPIrL0drW3tUNy8jYS5X+Lm + 1OmInDARjbFxqI++hlMGhggYOlwwv+/ljQIyZ+WVVeNGbCKMZy/kvfyPVcDtyJkzG508EB2bBPJHG/10 + iGHCaL7Vly5DeS4EJ4YY0PJTo1BjzOIK5D9XICA4DEbGf7tMOYUe6MqcxaHTA07ufhJHt2OQnolEU3Mz + 3QOI4yVM8IhRqA0IQvVRP/gNGgJ5lQryDgDqgXyFEiVllbDfvgvjP57sRDkHc96uzFkc2gD65hsdP9ju + Kn3gfDAAialPBGNWM/WCqqkFGT5HhZJLyTzJ/dBL44JKJR2VKK6owaXIKMz6aonKwHD0F5STK9CjKeBg + iL7i7a7fb3WRwj/kCpKz5SiiMhdVUanpawvp+PKryViuMc6nPaCoohZpmTlYJ7bF2g1bsMFuR2K//gPe + o5xvkbpcihydAfT7D3xroJntLm/HA0cQdiUWKbIiyMlEzuZsLACQKV3LI+M8MuZdMz0rB/Zbd2KF+Xfw + PXkRB7wDIbZzTOrXf+A4yjuQc0stP3slAIfQjNTBY5eu3eRr94M7AkMikE4QOaXlyC+vRgEZsrmcys3G + ZdVKRPwaDXMrCeaZmMHJ/RiOnv4FR4IuYe8hf1hKNkdRTkPSG5xfG4JDB8Dcbg8f+O9Vn75v9Bs095s1 + DotXrk/dttsVx6mz4+4mI6+wBEUlz3HvQSqCzoZhk8MOTPl8dsPsRSthtc0V212PwU16Dr5Bl+EbcBbB + P22opnyTSMNIL/YEDQSHDsAq8TbRMgs7HgqVIA380GjapKkzv9pCujhlxrycyX+dW2dkPKvuw0+MZe9/ + 9EnEmHHjnYcbjv5mgcmaPHofNjs9QX/H4HXiDEpk0ci84Yew/ZaVlOtjkg4ER+cp0A6hJ0j8As8hLykD + 0kiNeJfj8yF8HGIw8i9fr1ibu9pmBxycXVDyyB9NlZGoKb2CrNtSnHdZX0XPGZF4cxIgSK8E4OCHOkC4 + k7kq/HKH+Jyv8/hPw0aMmrjYZFXiEfFMZW7EJihzfQgiDMrnl/EkxhehP5nzdPCnM7zQE68DEHkY9ybp + C0eKDiBBHtPoHklzzgNecqNJRn7rP63NuSxGjcyDIE5CVRaCnLjDCN1nVkv3p5G4igIEqfsQTAQINnsB + og3VCY4r1Y/EUzPJZ+1HqqxwC4LYiybFEdSVB0F2xwPn9qxW0n2G4OeEl7uNlyZsrvli4Zow1gbqLXIz + 5pkQQHjAyT/1WjNBlXVxNUE4olHhiXqFFLJ4FwQ6fssQ75MYuPv43UwjLcOu1AmC53qK6/J36zMuLEN1 + rj1B7CGIQ4g6Zs6T/wGJ/7x2H78n1/3a/5AWnBYEzzHP9XSnBX9ufHR+MWpyxbgWsIjNZ2nucSN3H90b + d5qSjmua5ztB8E44/fsZBk0+kgkd5mNI/PW88f1PowOC1z+XfDyJgQTz1y7D/1IwBHc7m7K47MKXAxD9 + G8zrLGTWx47cAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACaElEQVQ4T6XTW0iTYRjA8VVmnrWTBpEX + 3XSRUNNNi0ztQEnM1DKUnFtNm6kXGR00z1BRIBnklVpEIoE0QohKjJLctFameGHY2jRLhZYQVndT/73v + 1zqNiKAPfnzw8T3/99nYVMB/kdcCYbEQIAT6CPpFsI8lwkJB5f+iWmsdqo1noCae/qp47JVanlRosZVr + eXxaQ/cpDQ9Paug6oaHzuIZ7pXFYStS9YlYeqgq0i5dnhq/Alw7htmCBz+3CTfjUJrQK12HmmtCMe6CG + 9mK13D9UBoLkCUyXUVGsQ5eY5COZtKQU0lO2kbl9J3XH9sBUGjfMSiBMBoLvlorA+wJloNc1i9XpweqY + pee1hx6HB5u428SzPpeH3PR0eJtEk2mDDITLQMitkjhRzWRvcgpDU3O4cvwZnJxjYEJ4N8fgxCy2cTeP + xkbJz84BVyyNBiUQIQOhreZYUd1B1u5UHNPzvJI+zDMiPJt0U99/nqxONal31lBkNMLIOi7plcBSGQhr + ManBmYA+I4MHY0/pcHQx7P6IfXIU0/1dbG4L/KEkPx+GormQowSWyUB4o3EjvFyvrLf1ajibmgPQWxLJ + tWwhocn/N0WHTfB8FWezlcByGYhoEOswuJbCPAOaBr+/MhsMYIuk7oASWKEELh4UAftqGqt1HDUeUhSK + z1ooXjaLqDkvjyN6PQW5ei6XpUJ3FNVZSmClEjgn1nG2RcN4PbzxGvMa9XJ5OetxtERTse/nBsHlGTHW + WrGSVCPKsl7lVbn/GzkgnfEq1cX0iVnlh7RICBHkNyqLklztu0gfUYJ8Lof9/vgX/XeovgJ4wBOFkKEY + IgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHGUlEQVRYR8XXC1RUdR4H8KxMxUe1GopJ + tdqusCoK7UnXcncFLBVSHqLyGpG3sO2pg2xKmpW6JYK6lrpFtqELkrASwYq4aAqKqZUwQI4ggoCACPKw + hzIM3/3+/jNDY7Gre05rc86He+fey/1//697/3MXgJ9UnwfvpD4P3knGP999+pncfQv3/A/utSDf5f+l + jJvKNhcqF91HA00GmVhZGGwyxMJQC8Ms3P89cl7u15+kvN7P3Z5Oo4amRjjGp0c/0UDYG+2ED6OckEZ7 + ljkhNVI4IoX+HuGI3bQr3BHJIswRH9D7oY7YSe+FTFGSgo3epXeCJ2N7kEPTRt8JWybZDhvBMiWEagn5 + 03932JTEw4k+aNUlA98cMsmnf9FBygO+PkC5tJ/+STmUTR8DX2XRR5RJ++gfwLUM2muShstlm5C5zh1v + LJrwNsuUlpMuUU0xMCXCqeXbplSgcyfQ8RbQvpW20GbaBLQlUDxwdQO9QetpHa2lV4HWNbSaVlEcrQBa + /gRcWU4x9CK/x+Hr2nhsDnBoZZk/I+lylWKwNKcqtC0RpcdWIibMA/NnOsPD2Rmezi7wcnGFt+ssLJj1 + LHyemQ2f2XOwcM5cLJrrhsXu7vB1fw5+z82D/3wPBHp4QuPpBY33AixZ4IPXY/2gOx4KNIczyDIGmCyj + 7yGS8aYCDJE+NNcsyMsN69/OxI7McmynbfvK8Na+UvwlvRSbPyxFQpoWG/eUID61GAncJqSVYNNeLc+X + YGtGCa/XYgev35FZir9m8fqkbMREBAJNwg8J/irAKMsAw5KCGaD1FdWM3rOeQW5xJw7ruvEJHdbpceis + HgfLunCgVI/92i5kF4sbdB05Jdd57AZdR17ZDeR/2cXru/i/XThyrgt5xe2ICGThjd5Agyfi/VQAG3MA + 6Yf73+FIRUssLVfNe7rWgNMXDdDmpONcnAt0VPxxOoqqDDhe1Y3C83oUVnSjoFKPggo9jnF7jMeKqvQ4 + cUGPk9V6nLrYzXt04zOKXBIEXHKjOXjTVwUYTQPMAR7YtoQBmp+naNWfZ5t7lMpVLqhafJ8i+9rGHpQ0 + GFBMZy4Z8EU91XG/vhvF/C7ntNyWNhpQJpoMKKeooGAW7grUu2D9IhVgjGWAB7dqGOAyB8rlYARwIFW3 + Qala7dobQPYrW4GKlh6cE1d6oCMJqms2cN/AfT10Ld1qX64Tla09iA4OAepm0NNYZwxgaw4gD4ThWwIY + oNGffDl6fVDXybBU80kGLrziqtQcykBNO4+RMWAPLlBFaxfONDUh7+KnSNGlIfnsLuRUH8YXTfU4f/U6 + LrQb8IdQVq5mKj2J140BHiF52qoAIxI5NdDgpQZJ8MJFaLjGFjNjEAnUqwOo5ba6Q4/SK5eRcf4jrDwR + Bs9ce7hkjYBz1nDMybFF5FE3/O3LJHzaqEN0CANUOZEjXluoAjxmGeCheE4NXHKnuQj19UPjV2wMMgbp + 6Q1Tb1Ld8S0K6j/H2pMx8Mixx4yMoXgq3eomT6cPhss+a4TkuyJqKcdA5ST230Ss8VEBfm4ZwHoDRybq + ZrFqrggPCGBh3Wy6TpS1NEDbXMdmvoraji40MFR1+zc4WH0UfzzkjZlpw/FUihWmpwz6j+R8ZBBngc6O + xmPNAhVgLMmLSc3FUX9ezAA1v6UZiNBocKAqH28WrUB0nieiDszHa4UvIKsiG2dbm5FfXYjIXHdMTx6M + aR8MvC0RmiVA+Tgai9XGAOMsA9jIyETVNJqKSE0Q5qWOx2+SrDD13QHKtKRBeHbXI1iZH4qIbDdMf29I + 77nbERGoAUofBbSPYpW3CvALywCj10qAyifYR05YxofGk9v692nadtaI+jr334QF8El4ZozysjHAL0nW + F2ouPiwjEzoHmoRlQUvx6833/qhC/DjFPx9NNojzUgHGWwawfZUjE+X2QJkdXno+DDNX28Jpwz0/it+/ + PAYxkRwDp0YCJ0dipTGAnWWAMTI1UPI4jUPZkTjERoWofpOXSDi34ZpA1YxKYABC/U0C/FXtFE7fYLPF + vlhq8kKYBtqDXBecsAaKrH8QQI2BVV4ObR0FY9lHHCjlv+Nk52KjgYuRBi5GxCWRaIELFFFvUic23qzW + pJoLls/4FDxmjY5cG8TOn9zBMh8nNQjlXTA8arbdzuTYibh2hAFOc7CcepjYZ+KksGENRn2nSLBJjwvW + TLAApdCM5wpMjo5E534bvP/iBIS42O1hmfI2VK9jWZJZjXxg0GPRs+13v+Th0CqDxGiKyWTVbEZTfsjT + aMUtLJ/n0MbC9z44ZIA9y5QVsloTykd2pD9kmSQvCXlIyDyVqSJkxJpJ35nJjcx+ZTLBZOL3yDG5l9Rc + CpeW72f540BaQh7L5t8DEuhWzL8RbpfcV5pdKtyv95eRmekjy/T/q5vKtPzyU+jz4J2Du/4N9ciFcoKN + LCgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADBUlEQVQ4T6WTyU9TcRSFz8oBUHmUSaBM + ooiKqFWImmgiGBUpIpRZChR4jjiA8lAhDokuiCTGhYZEFCwiFCjQCgoFBxxAfeIQpwSrCSyMmNSof8D1 + Puq0cGHi4i6/d75zfnkgov865LV/gcH6DQbLV+S0fUaa8aOYWDNmWlv9llYef0nRh5/T0oNPSFM+bFpc + JotR+x9gwb77iNh9B+G7boOBcWQ0fkJ6w7iQUvfBpq0Zo3Wn39GqE2/kmMpn0pLyYWmRJMsMUmTJIM3f + e882t3hAmL3jJmZt6wcSzo1CWzOKjWdH5fVn3lNs9QjDr6WYyudYUv4YUQceIrJ0CAxKnEqcSrO235BD + imwIKugBYqtGEHtqRFxTNUKrT76hFUdfmJZVPMHiskdO8IfunJ23ELb9hil0ax8FFfaQOr9b9M+9CnBP + rDz2yrb8yAuKrniqdE1dpKSWDGLenrtgXSi6DCK4qCdVXXCNAvK6aKbeYvPZ0gEoqksPPbUzSAzSwtIh + gXV/pbIugkUbAguuIyC/W/DLtZLvlk7yzjLbPTNaAc3BYUXXvpBHYl2K4NRwpy5CGQwu7IHa0A1/vRUz + czrhk91Onplt5JFmsgu6JkyMtKBkUGbdiYHCdtzUhIp9CCrsRWB+NwJyuxi0wCerHV6ZbRpVuomEtGaa + oWuSpydfBuaxbnjxgMQ9SRkouKhXUhuuwT+PQT2D2R3wzGjjawWnSu66KzQjpZGmbb4suSUZ4ey5rV8I + Kep1BBp4oPwuO4OCLw/klWWGikEhtRnuuiZhenKjfVpSA7ltMjpctPWCq7YevC6/Z+F18LPE+emtDt8c + HijbLLNunCqtBYKuGZwYx7oyJ5Jr4iUFjpuacBHKIdAw8Z6y0tM7u11gUFKlt/BIzQ7WBafCLanB4brJ + SC7aOokhYcrGC5gcXyvzifDTW0TuSV6ZZvJgkHW54xVikFhXYBCuifXkklBHDBPDNCm+liZtOK+cCH5P + UUn8E+REVlUS60OnJtTxOUFO/An+/sDfftF/P8J3dnzf+chxUpsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAJB0lEQVRYR8VX+VNV1x2/oBZl5/HgAY/9 + vccii4gYBCSK4sYmyA4iIoiixiUoogHjgkFHrUtA0MoiSpQYFzY3YrW4oaaKayadpo1LU9tMO9H8Ad9+ + P+e+S0Gc6eSnnpkP9937Ped8vvs5SET0f8V7Pw7GoGFihKkRI94DRabMHTaG7f/uBwWDhkI6kvEbxmiG + uREWRlgagW+QY56i0BBFhvEoPyas7ZDC1nVKYWWd0sSyLsxViEcxRs+pvhSY0fz95oyWV+fm7H9KH27r + o6jNt2jK9gc0a/9fKHbPnyl6a39HePmNbbrk6lBeY4V1DChu6pZ1VAJcgcyjwxUYv6ZdCi3tkCYweIAc + FoxOrX+YlHvy9bX5p/5NM/b0U/BHZylw+WnyX9za7pPfuEU///BW3YKjHWFlvfThZ99S1NanNGnTIwor + u3Ndn3UojfewZsAjpiDXZjYLDFMgZNU5KWT1OZ4nyKG1eVbrq+ZcJs5p+xdFbrrK5GfIv+joAZbZMOD6 + MZjHgPvtDPnHaiI2P6bwikc08ZN+CtvYTwHLLrSyTGWcC6NMXDKahivAlrFMJp9UUqvNPP73/qwTP1Fm + 6z8ppvoeBa04Q/rM36ayHMSDY6zkhxnD2it1X6ZM/kAgtPyPFLC857Gl3xwDy6GEqUt641AFjENxu3lq + 48tr6S3/oLSjrynp8A/C5b4Lj2xjGchBZuJT2CbpC05IuoVfSF4LYKRYj3yxDljaXj1hw31BHrr+Gwop + u0fe+V/eZJmaAUUxd5gCsMQsbv/TzSkNP1Lykb8JRFT2kn9x23OWwe0gMDEUnpTJ82Vyz/nHJY/cYywS + G8M76vFrb78AMRC89g4FrblFmvhdO1mGfYQRgxUQrg/O3ekaf/CHnxPqX1JCHfCCAkrOkC6nrpTlwn2G + Re8nd8uWMxxzGOZ+hac2jFt7V5AHf9xHgR/fJq+C02/MdTH+yl6DjBcKmE377P6W2Qf+Sgqm7nhMPkVt + ZB+a5s1yWGYCl3vnt0peeTK5e46R3JjdWk4wHiPVodmGIBCvuc24RWNX3SB98XlSz9y+i+XwAsI9MKD1 + mJjqxx2o59jd34u6jtx0l3QLWh6xbMBtsNorT7baPadFrm1B3iQhu5FgmMew9F9x5cnYVTfJf+V18vvo + OhmWfk3quD2XWYZcQDgHBrSxnLL92fOYHX+iqTu/Y+u/o7Dym+SZ3YCuhKYywvNdYlHXTZI2XSZ2SWuU + nNMaJKfUI9hzlO+SC91+K3rJd/k18mHol/SQOrHmFcucGcKjmIgBBaw+3Pbs5+iqb2ly1TOKZoxf20vu + GfVIcaEAiN2NxMJqWJzBxEwOYmcmBrlm3u+wp6mhsOuYYdlVtvz3pF96hXTF7IHE2rcsc2UMVAMGFLCO + 2vKUIjc/ocgtTyiCnyGlN8g19eCAAgPuVoiNFgvieTIx4JhyGHua6BZ1teiXXCHvxV8zesijoJvsEw8i + 89wYaNNDFQivePB8UiV3sspH9MEnDym07C5pU+u7WSZyYLjFsrsFcQoTJx8ScJhbjz1NPRe2d3oVXSav + wkvkuegiueaeIbs5e39kGRQY5gHLieV3r39Q8VC00YkbHhCaiWtW0wuW2TNED3ABsTHOTgPEhyUHQSyT + O/A7j5GeBV0vPQovkHvBeUY3adKOk23sjnssU3JgYIjaDVnZs120UJCjizH0Re1koZ/ux3LhssHEGna1 + bLFMrE6qk9SJdZJz+nFJFbHczX0hEy/sJtf8LnJd0EmqhDqymrweZwmqAFU1pBGZuc6qCFOIx6+XuxiX + EjnMrNrIcpxqI2V3M3HKcGKOr2SfUIv9TF1SDpe7MalrXidp57eTY/pxspl9gMz0s2cY95Ib0aBuBI2s + A5dfPAHicevuUlBpHwVxB3PPPnabZU4MeMFUibMgZijEqvhaSZMquqG5S0brHRBrc9vJOZtjH19LVtGV + 7SzTGvcZ0ooxRDNSR5WEB5f2vQkq5Q62+hYFrL7BdXyVHGZVVbIcuYDkMZWtBvFBQWwXX8PKiNiP0CTW + btDmniPnnLPknMXkCfVkPXPPL2a6mTNZbssQ7h/ELUKARMTmNo4zNuWOXdkr2qffij+IRmJY0vPWblLJ + PJY7MEQvVwmrayS7uM8lx9QW/sSKxVZPd8n66i2INZmn2PI6Jt9LY4LySljuwkBJK8e5qAL8QYbjUoFy + A9Sq6NI8j/zTb3yXMXmJ3ES8iy+Tdt6hfSyHG3ERMQE5noxRmpTGKhA7ZZ4m+7nNHPP9ZB27+5cxgfOX + sdyTgezHWkcG1kMJ8ccyYOW1Xp+SHrIOyY3kd2SpxkwbFqqK3dqkzT5JXFLkWXiRn+fJPukQfIecgCXi + DoA4O6XzwZXUICy2nrGXLMJL20aofKayXMfwHGNIjLNLaiaLKVV9/K4xrhXxUPkvu3xrLB8ahsXdEPow + cALiGcKIdpq9o9k99/RrtwVdpJ57hEb7JMTwd7jTyiooJ0aT+RVpMk6Rw9zmn2yi1rfx97mMaYxwBi6p + kXaza/ttExrJIvrT+/wOjyAZhRZq3+Lzfb6It7F36/jg8F58WVjtUcDNhOsZ5K55HUIB8/GLingd7noq + m4jSYsf0L8khFWgjh3knSZ1yQkbyFxyOVlIBSdyI4lmBqMqHvE7PQC4JBRz0RZ19hpKr4tDwLu4htFCQ + o4u55XMz4ZpGWblwdquTm8hiwtIyXodYOtpO3lAuiFP/S2wP4mSQtpIdEwOqxGNkG9dA5lEVOOKVO6Ls + AV1he59+iXxoeBZdIo9FsBrkstUuTO6cw6WVfZY9wHGMWIeOhjxwsp22o0ZttFoQG60VSJSJAbsEVmAO + ey+yAh5AXogQIAlt7eP33eTaFqcVlxejhuzigM950QGR0TazOKtn7RNJZhm9CWcuklVtEbWxwXL6HrKc + vlvGtN1kwbCctossYobDPOrTb3gdqkGcB+IyykA88dGD4WUEEhGaAoiZAswBOVyIckJvwHycGQGMQEaQ + EcGMccYngDshTkOUvShDDCiBUEARuAXA5u8CZHhCjvnYAMBvRY6ruwLlf8bBwHesxzqTIe2QBxrKr4Ey + 3if7nyAi6T+uieRuQmjK2wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACJUlEQVQ4T6WS60uTYRjGbztIZLXciCkV + VvRnJAVBWRkua4ukiMIwLLJ9MExaBw/VtDlcszbnaVTKwDzMU23zVXMRFdhRimCM+aVBH8bYp8Hg6n7e + 1lywQdEFP3i5ue7fw/u8LwH4LzIPl5PDrEiyklnFrE4innOyCvRdkqTvnsHlLgk1jmlcsvtw0eZF9UMP + znc8Q6V59AXXckVX2H+bxWANs666YwLRaBSxWAyJRIK9f6ayfVyclEdzNu2sv1MHv12HedsxzD0ox4y1 + DNPth+A1lcDXWYVIJJJcW84Zk1sI1pNYRmQB+DEPfJ8ClgaBQB/w1Qp8NmLy9h68/hiAzbOE+5NBtI0G + ZMGplmEhUJDfrgXCPi43Ap8MwPs6YEEPvLkAvKqCu6EYoVBIXkpPxZ1BIVCS16KRZq0aSJbD8JkPwNO6 + D1N392K8eTfGGnZhxFSBt4shmN0BGJ9+Q5PriyzQNbmEYBMjX9rGwuckBmqmkNl54mYfgsEgwuEw4vG4 + vJSeo7cGRL8g9enUwwRVP5HKQdjQTNqz5jG52CZOHvp18o0ni6h3fpDnGsNjIdiSEqgGCMpugsLCghbC + 6XsjcjFbSuudQlCUEigdRPkWvtZWwtpaOn7SOCQXs6XkSo8QbEsJ0uHklRt6X+oaXfK7Hrnej7Jrj1B6 + 1YmDdb3YX9uD4nPGd9xTZxOI/17BFDCbma1MEbOd2ZFEXHhuRsG/kHH494B+AremeRzBUFQvAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHhklEQVRYR8WXe1BU9xXHLzQmMZhoUhOt + pTWJefxlp9M4TjPNi5HRmDbWRzRR89BO26RN0nTqaKRYnzxCeBMgCGhqzGhQBI0GFaMQBCQGeSy4rLxU + YHdZ2BfLvh98e85v71U0W7ud6aS/mQ93713u7/s9557f+e2VAPxfCXnx+yTkxfHcNCL+DZEh+MEt4O/5 + vrANKCJ8823EBJnbiTtk7iQmytxFRBGTZO4m7pHhz/w9zxMxXuRWI/K9YlXVe7va8BemuA3vFqvwblEr + 3iHeLiR2tuLPghb8qaAZbzEfN+PN/Cb8kcm7gN8zuY1Yk1l/luZkgxzQLYcS+QQWDAQCAr/fL/D5fOLI + 18bGxiiWGwdfEdCfgIyfTn6X8y1HfS/BWQg5WFhJN6c56u2Pv4XD4cDo6CisVivMZjOMRqM48jWv13uD + CUVYEffTH/9YAD5/AGtzzrOBqQQ/Rklq+OS1Z8/tWv1NXdFK1BauwNmCl/B1/lJU5/4WZ7JfxFdZv8ap + 9IWoTFuAEx/G4njyPFQkPYdjCc/gRM5qtJ37UpjijIQUpw9+/xh8dOIhA2uyhYH7CQ5OkuqLV5mu1BfC + Y2qDe7gJbsN5uPR1cA5Uw9F3CvbLFbB1H4GtsxQjHfthaf8UptZimJoK0LzvLZRvj0FDaxfyj/eg8FQ/ + Cir7kH+yD3nHr+KjisvI+fIyvGTA6wvA7RvDmqxv2MAD1wzU7lwuhJ19JzCi2YMR9W5Y24tgUe2EuSWP + hHJgasyC8XwahhtSMFSfBEPtDuhrtkJ7Oh6H4uegQ6OB3e6gehiTnzdFzWmniL1UI146srjLG8DrmcLA + dMVABKfboa0j4U++I2wk4WFZ2FAXFB4kYV3VJmjPxOHqyXU48P7P0d5+kWrBLkQVcU45R+4h3N4xOD0B + ODx+vJbRwAZ+pBiIPJOzSNt1OhWWtkJYWvNJ+COKOFMID7GwHPFgzRboWfh0HLSnNmCg8m9oKFiCkvhf + 4Ux9K7KOaJBbcQW5lPKcY73IPNqDjCPdSDvcBSdFzuJ2tx+vpgsDMwjuH1JkeeL8FyvTnh88mTofJ1Ji + UZEcg2OJz+LojqfxxbancGTLkyjf/EuUbZqLQ39/AqVxv8BBirpk/c/wedyTOF1WBK1OD6fLLapcpJzS + zZFzyl1y5Cxuc/mxOv0cG/ixYoCXHC837mTctSYT9xFcpTNnZU0xZte+gzm5M9Hc3Ay1Wg2VSoXGxgt0 + 3gJ1hwYDWi1slH6Pj3qDnHKP/LydJOxw+zBKwixudfqwKq2eDUQTwgAPpeEobZafDXPPrMLJw7vUGzC7 + 6D6Unz8AE617g2EIywoWoq65ExmH1cg+2k0p76FjD7K+6A2mvbwbqWWdSCm9hOSDGhL3CXGrw4eVqXVs + 4CfEHTe3YjYynokPp08+ubFuJZ4vn4ZVny0iEwfR2dWN6O2TsCg3Fjq9Hi63V0TNBeempeby+kXknHKO + fESO3EKYyMArQQM/Je68YeO5GRoTouPv/uv8/bPxh6onsPTwbMzJfwjROyZhxtZJWHtoIV5Ij8HVfi3s + Li+MFTHQ75agLZLQVyiht0BCZ56EntIYWEjYbPfBOOrFyx/W8uQzwzEQETkx4t4Z66OKn9nzKBaXz8KG + +lhkXHgTey9tQ0l3Muamz8Rv0mJhtNigK+bbvjtaMyQSJ4PEMBtIEQYeDMcAj9sjbpMefG7LOizJm4/H + E6Lx2OYZmL4+CnPzpiA28Wl09vTC5vBAd2wBevMlXMqVoM6WoMqU0JQu4WLJgmviQzYPlqec5ckfIsIy + wIU5dU1mHYaMJqp4PRqbWjBtXRTmJTyFS129sNrdsNMzF5VOz3lELjZOuWlc5CxuGCEDyTU8+cPExJDC + CvLgVfFD3kJFPyf0hmG8kDoPlfVt+KC0AyllVOlU7UkHNEj4XI3t+y9i2752bPmsHf/Y24ZNn6pgIPFB + EtcTLwUNzCLCNjB1LRngte2hKrc53DCYLBS5iyqdzqnalUo3i8i9wcjlqBkWH7SSAWJZ0tc8+SNE2Abu + 5y3UJZaY3Fyou4nOxuJyyrnSWdhEwtdSrkQui+ssbiwNGniU+I8GuBewgQfeyCIDJMo9naNOOcRp1yDx + QAcSSjpE2rfuu4jNlPZNe1WI36NC3D9bsXF3C97f1Qyd1S3QsoFEYeAx4q6Qwgo02AB3xGlvZDWIqB1y + c+G2ypFzczE7rqc8GLn3hsh1BAszA8SShCqe/HEibAPTX6ctVFQ6p51Ehfj4Smfh0espvy4eFBbiZjf6 + icUJ1f+VAX4E014lAyYSMNrcGCYMNLHe4oTO7MSAyYF+ox1Xhx24MjSKnsFRdA/a0KkbgUZrRceAFep+ + K9r7LGi7YiYDIgNhFyH3gSkrEr+qWU27GO9kvJkwr1BL5a62ghrL8g+YGrHEljFUaEuTqsXzXpLAVGPx + jiohvnBj2TmaM/iDJJTweGjwLsnbJv+M5pt4F+M+znA75Y7GTYXXNcORcYUzXGic6vHw//A8wfeCUKLj + kYeyVXM9KG9BCsrb0M3w208o+Dueh3/2B9+MwkEeXBP/K4IjlNj3B6R/AWYHoAlCyZDaAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACx0lEQVQ4T6WT+0uTURzGTxmZVpaZf0YX + zOhiYeAP5iVNq1WKkZANM5LUvGw5m1ozL0OdWJpThpmOmcpqGia60Hkps0xsaRestdnWNjdn3oY8nfc1 + /CXzlw48cOB7ns/z/Z7zvgTAf4n018T490mjBzQPzqOnkoPu+6fxojwS6rJwdJacQEdxCJ4XBaG9MBCq + vICx6pTDQYSQDSuA3qoofB2ogtOhhdM+AqdtCIvWASyYNVgwdWH+Rzvm9SrM6ZqhVaVBletPXWQr1Xqq + daSn4gw1v8fiz07MfpdDKi1BMv82fn2pATeJD3HRLcyMSeDQiuEYLYBS6Ic4cTO4Za1qCnAhTLtO2xvM + fqvD7IRs2fypEjMfy+GgxujL11mj/Z0I9uEctAgOwmKxgCtpZTrZSLokYVi09NFEKSorCnEtXUgTS9nE + aWrkXLwKYVYibEMC2F7x0MTfD5PJhEslTxnAJtIhDsGCsYsm3sPMeCnikzNZ4/SICLa3OYiI5sI2yIP1 + ZSqsfUlozPDB5OQkYouUDMCNtBcEYs7QtjKjuDATMdxk2F4LEEnNAl48a7RqEmHuSYA8dQ/0ej1i8psZ + wGbyLC/A/qGNv5xIZ2RanaKJU0xiPzX2JsLSfQVmNReDVcFoSPNlO4gSNTKALaSe5xemzD5qVAqPoCXr + EL2kA+ycj3m+UKT7QJG2l6buRkPKLtQm7QNPKILD4QAnV84APKjoUxDiSuVOxbyvd2y+AmazGUajkU1j + WtbpdDAYDKx5aWkJp4T1DGDb358mvdk4esPMkrROQKz8jLtN48iVa5FVNwqebJitncx8yBz2XA3gFit+ + Qrdrr1CejDnstRrA/UJBC92uvY6nVv8T4Ho2u0597o4CnBw5O2uE4BHCb9YiNEOG4PQaBN6oxrGEYg09 + 67EagPlJ3NgiIdupPKl2UHlR7aTy/iNaJy6/Ad+rlkUIjhBtAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHvUlEQVRYR8WXC1BU1xnHV/Mw7bSTJibp + M32nj7R2Op22mbTpdJymaZpmGlFRRFFU1JQKEls0mhJtgiIaQNSYqEhwfKFoIvHZBApoUVDerDyERZ7L + vl93776Xf7/v7N1lETKSmc70zPxguLt7f//vO+ees6gA/F+Z+OLEY8okmDoJ+H2jrmhx5OLoiL7pPQr3 + KtyncL/CNIUHFD6j8Nko+HW+x5QJXOPGlLSDrRVphWowaw62ClIVUgpaBKsPtOCv+5lmQfK+JvzlXaYR + q5i9DYKVe+uxLP/qZbovh+OCPjFAuOp7KABGRkYEwWBwQgKBwDj8fv/o3+J9fA8g6e06Nn6O702MCxAR + E9zaaakHGuH1egUejwdut1vgcrkgyzKcTqdAkiQ4HA7Y7XbYbLYIdrrmcrkpEAcZwfI9IsCDBE/hmABT + qguXzKwtSrxeW7QYNYWLcLUgHtX743Dl3VhcfmcOKvfEoGLXSyjf+SLKcl/ARznP49L253Bx2+9wYetM + nMv8Lc6+8RuU/vPXKH39abyf8RRKM59FR30ZnLILPurGsl032PgFYlyAqbWHFtsHG09ixG9F0GtC0KNH + 0K1F0NWHoNyDgNQJv10Nv60JPksdvKYaeA1V8AyXwTN0Ae6BUrj6SyDfPgZndxGct/ahqTgJH2T8CiaL + GW6PF0t3XWfjQwR3OBKAW3/vtYML4Xe0wWf6N3zGMvgM/4JPdwHe4bPwaEtxo6oQS1M3wNV3HK7bRyD3 + FCEhOR3XLuWRbC+kjl2Q2nLhUGfD3pwFW/2bsDVswYn0GdDqdJBoKhLza9n4MDEuwH3VB+Lg1ZdHiT8U + Ys/QaaquBEuS1wmxS1MEubsAzq79QhyXlAbpJolbs+FoUsT1m2G7kQFzzTocX/sj9PcPwu6kADtr2Did + fSweE4Dn2Tt8nloaqjgkPhWpOH7l30h8ALIi5oodVPHcxNVjxFYSW2rXw1KTDtOVNTiW9kNoegdgk1xY + nCcCPMI+FkcHuL9y9yzI/afGiWXNIWRty8C85amQOqNaTRVzq19a9DI2Z6TCVvcarCyuTYel+hVYrqyG + oXwVjqz5Pm5198JidyIh9xobHyXGBOBHb1p5/oskPQF3/wkSHx3Taokqnr04mcQ5EbG9gSvehD/FJYXE + VHFYbKpMhrFiFfQfJ+FwyhNov6WByebEohwR4DGCd84xAR74mB4rIabFxa0Oz7HUzhXn4M/xK8eIrXUZ + Qvz83ERFnBIRG8pXwFC2FIZLCSKAuqMLBquEhW9dZeMXifEBLm3/vZCOznE+HDepYvUOOFqyUHFyA/4Y + u1SILbUbYLmWjmdjEvDRoZdhrmLxSkWcKMSGiwuhOxcrArS0d0FndiB+RzUbv0SMD3B+y0xH24cpyuJi + Ma1qEtuawqua5riGxJFWpyjiVTBGVWy4uAD68/OgOxuLqzufwdG1M6Du7IHe4sSC7f9h45eJMQHEU/Be + +i9jSjc/oz+z6Wmcef0pvP/aL3B6489R8urPULL+pzix7ico/vsMFK/9MY698iSOpv1ALLDDqd8jnhCV + 3smRtCdRduY9aAZ10NtciAt14CsEn4qRADy4C5yKj8zPE7xbPZ74ViVMJjOMRhP0egOGaUMZ0mrRPziE + Pnq2b/f2o7unD53dt2mhdeMmzXVLWyea1R1oVHeitUMDTb8Ow2YnDHYP5oc68FWCA4gjOXpwJ8JnPh+Z + 01fsvk4HkQ8ewuX2CGRCkt0Ch9MFq0OmR0yG2S7BSAvNYHFARwzTnOvMEvRWGQaHh/BifrYI8DViwgDR + gw+Lh1a8XS+OU38ghM8fhJfw+IJw+wJwef2QPQEYzs+E9qAKg/tV6NunguYdFTr30O+SmTBKXsInAsRm + X2Hj48RoAP4RjTJEgKQ9HGAEfiYwgrxSDXJKu7Djgy5sP92Jbac64fQGoC3gj44fzbmqiFxvpwBZl1nw + dYI7fPcAy3fXCbmP5AxX76bqXSSVCSdVLxHac39Az95Q1W35KrTkqdCQo4K6+DnoSa4j+TAxNxTgG8Rd + A/BW+fCy3TcUcZScCMmDcJDc7g7A5vLDIhNOH8yESamaYbnORgGIOVurPlWA6Xx+C7Eiz6a2Z53qwNaT + 7cgsbscbx9uw+agam460IuNwC/5xqBkbi5rwamET1hc2Yl1BgxAzWqsHs0MBvkVMKsAjifnX4WG5N1Q5 + V80td1DVdqraxlUT4aqNDmW+w21nsc0jGOIAWyIB+NvyXQM8lrizVqx2mQLwapdIHJZbRdtHWx5abL47 + 5F4hZgaJmMwKFnybmFyAJXm1cJKQV7qonKRCLuZ7tHIDPWphcXTlEbnFgwFiVmYlC75DTGoKHk3IrYHV + 6YWZBCbaTIyEnm48bHVBa3Fh0CxjwOREn1FGr0GCRiehW+fALa0dHUM2tA/a0DZgg7rfitZeCwUQHZjU + IuTd8MH5WeVVC+kM52M0nlhAezkTR1sq72rzaGOJ3cZcFo/YHIYW2uytlWK+YzKZSsx6s0LIX9hYWk33 + 5eOYC5w4gLhILxJ8NvBXaP4A79+8hTK8k/FmwnA1zDcVeIExPM/caua7ym9+nb+M8HkzNeKKFkcuhgaH + 4A2Jg/DWGYbb90mE/x+cCH6d78UHn6heuKLFd8Jv/F8z1gHVfwE040x7YwSYiQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACyElEQVQ4T6WT+0vTURjGTxmZVpaZf0YX + zOhiYeAP5iUtLTVjgqhM8gZrOZ2XnJozzaVOzMoLy0zHTGU1DRNd6LyUKSZmFoU1nM023Zp5G/J0zpfo + l8xfOvDAgfM+n+c97/l+CYD/Ehms43kP1FwZ0j24jL77YeituoiXlSHQVgSju+wcukoD8KLED523faEp + 9JmqFZ70I4Rs+wPor47El6Fq2G2TsFvHYbeMYG1+CKsmHUYHmrHyrRMrMxos61sxqRFBk+9NXWQ31Vaq + LaTv3iVqfoe17914qJBDmFUATUs5fn6uQ7wgE4sfK7E4JYdtUgbbRDHUEi/EyVrBr2jXUoADYe3aLaNY + +tqApWkFZ0xMzeGMMcnpiOILIb0pgvWtFNaxPLRlH4fZbAZf3s462U565EFYMw9QYw2qqoqRJMqhyRlc + YlS8ENZxKUJ5fFhGsmF5LUZLxlHMzc0htuwZA+wgXbIArBp7aOJdJFIzM8Ymp+EHNYbHJHHGoIg4zL9K + xfyAAM3pHpidnUV0iZoBnEhnsS+WDR2csfyOBDFJabTta7C8yUYIL54zZ4ooQJcCU18ClKmHMDMzA15R + KwPsJM8LfazvOzK4RAu9I0tcGBZjgSUOCjDfnwJz71WYtHwMV/ujSeTJdRApbWaAXaRR7BWkzj1tVEtO + oe3GCTqkY9w9n4g9oUrzgEp0mKYeRJPwAOoFRyCWSGGz2RCWr2QAFyr6FIQ4UjlTsfd1jy5SwWQywWg0 + cmmsZb1eD4PBwJnX19cRKmlkgD1/f5p0snF0wmzJ26chU3/CrZYPyFdO4kbDBMSKMe7sfNYjVuy6EcAp + WvaUbjdfgWIFK3bbCOAcVdxGt5uvs6m1/wQ4huc2aCMKVAjLU3J3vZD9GMGZ9QhMV8A/rQ6+12txJqFU + R2tdNgKwn8SJOyRkL5Ur1T4qN6r9VO6/Rc+Jwy9usI6tQmV/BQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAH4ElEQVRYR8WXCVCU5xnH0RymnXbSxCQ9 + 0ytJj7R2Op22mbTpdJi2aSeTmXoUARG5xaCcFTWmJjbiiaCgYhQhZLwgaCLebSCACgJyQzjkkHPZXfbe + /fZe/n2edw8WISOd6UzfmR8M3+5+v//zvO/3vksAgP8rc1+ceyyYBwvnAb9v2uUv9l2cHv43fcjDwx4e + 8fCoh0UeHvPwBQ9f9INf53ssmMM1ayxIKeioTCnsBJNc0CFI8pB4ol2wIb8d648zbYKEY6144z2mBfFM + XrNgbV4TonNqb9B9ORwX9LkBvFU/RAEwNTUlcLlcc+J0OmfhcDim/xbv43sAsUca2fglvjcxK4BPTHBr + FyXlt8BmswmsVissFovAbDZDkiSYTCaB0WiEwWCAXq+HTqfzoadrZrOFAnGQKcQcFgEeJ3gKZwRYUFMY + EVhfFNlQX7QGdYWrUXtiFWqOh+Dme0G4cXQFqg4vQ2XuX1Fx8HWUZ7+Gf2f9Bdf3vYpre/6Aq7sCcTnj + 97j07u9Q9s/fouztl/HRtpdQlvFH9DSVwySZYaduROfeYeNXiFkBFtZ/sEY/1vIhphxauGwquKwKuCwy + uMzDcEmDcBp74dB3IvdILuyaRthUdbApq2GdKId1/Coso2Uwj5RCuncGpv4imO4eQ2txLD7e9huoNGpY + rDZE5Taw8QmCO+wLwK1/+HZBGByGLthVn8I+WQ678l+wy6/CNnEJVlkZSc6TpBTR69NhvncK0mARpP4C + SH3HSZYHY08ujF3ZMHTuhb5tN3RNO6Br3omS9CWQyeUw0lRE5tSz8UliVoBHavJDYFNU+IkvCnF8ypuI + S96Chk+PCXFkwkZErEtDeHwqaq9lCvGtixkIjkzEyoj1bnHTdujubIO6bhPOpv0EIyNj0JsowME6Ni5m + H4tnBOB5tk1coZb6V3wO5uGzQsyVS/35JP+7r+JVMckwdGQiOCrRJ9aSWFO/GZq6dKhuJuNMyo8xMDQK + ndGMNQdEgKfYx2L/AI9WHVoKaeTcDPGdiqOIS9yMGJJHvZEOY28ewtemulvdsReh0UnQte6gyjdA1/gW + tCyuT4emJhWamxugrIjHqeQf4m7/EDR6E8Kzb7PxaWJGAH70FlXkvE7SElhGSqji0zAPFCGW5CaaYyNV + HEmVG7uysDouVcyxvnkHQqhyrjgoIkFU7BWrqhIwWRkPxSexOJn4ArrvDkClM2F1lgjwDME754wAj31C + j5UQi8WVL8R11/cjKiFdtH1NfJoQh8WkIDQmScirSzYKceWZZKxYvQ7Lw9YJsbIiDsryKCivh4sAnT19 + UGqNCNtfy8avErMDXN/3JyGdXtU5MHyWRas6E4Z2d8W6RprjRp7jN6G57a5YfSsR6mqueK1HHCnEymth + kF8OEgHau/sgVxuwKrOGjV8jZge4sjPQ0HUxUSwuA7WaHycW8xy7VzXNcR2Jfa32iuMx6Vex8looFFdW + Qn4pCLUHX8HptCXo7B2EQmNC6L5bbPw6MSOAeAreT//1srLtryguvPMyLrz9Ej5661c4v/WXKN3yC5Ru + /jlKNv0MxRuXoDjtpziT+iJOp/xILLCTST8gXhCV3s+plBdRfuF9DIzJodCZEeLuwDcIPhV9AXhwFzgV + H5lfJni3ejZyfxVUKjUmJ1VQKJSYoA1lXCbDyNg4hunZvjc0gv7BYfT236OF1o/PaK7bu3rR1tmDls5e + dPQMYGBEjgm1CUq9FcHuDnyT4ADiSPYf3Anvmc9H5uK4Qw10ENlhJcwWq0AijJJFYDCZoTVI9IhJUOuN + mKSFptQYICcmaM7laiMUWglKg5WwIXivCPAtYs4A/oMPiyfijjSJ49ThdGN3uGAjrHYXLHYnzDYHJKsT + yiuBkBUEYOx4AIaPBWDgaAB6D9Pv0kBMGm2EXQQI2nuTjc8S0wH4hz+eIQLEHuYAU3AwzikcKBtAVlkf + Mj/uw77zvdhzrhcmmxOyE/zR2aMtO8AnV+gpwO4bLPg2wR1+cICYQ41Cbic5w9VbqHozSSXCRNUbCdnl + P2Mwz111V04A2g8EoDkrAJ3Fr0JBcjnJJ4i/uQN8h3hgAN4qn4w+dMcj9pMTbrkLBpLrLU7ozA5oJMJk + h5pQeapmWC7XUQBixa7q/yrAYj6/hdgj30tt332uB7s+7EZGcTfePduF7ac78c6pDmw72Y5/fNCGrUWt + 2FLYis2FLdh0olmIGZnWiuXuAN8j5hXgqcicBlhZbnNXzlVzyw1UtZ6q1nHVhLfqSYNnvr1tZ7HOKhjn + ADt9Afjb8gMDPBN5sF6sdokC8Go3ktgr14q2T7fcvdjs98ltQsyMEcsyKlnwfWJ+ASIO1MNEQl7ponKS + CrmY7+nKlfSoecX+lfvkGitGiaUZVSx4jpjXFDwdnl0HrckGNQlUtJlMEgq68YTWDJnGjDG1hFGVCcOT + EoaURgzIjeiXG3BXpkfPuA7dYzp0jerQOaJFx5CGAogOzGsR8m74ePDuiuowOsP5GF1FhNJezoTQlsq7 + 2kraWIL2MDfEI7aCoYW2fFeVmO9lGUwVlu6oFPLXtpbV0H35OOYC5w4gLtKLBJ8N/BWaP8D7N2+hDO9k + vJkwXA3zXQ+8wBieZ24187znN7/OX0b4vFnoc/mLfRfdg0PwhsRBeOv0wu37PLz/D84Fv8734oNPVC9c + /uL74Tf+r5npQMB/APq9OgM4m4BmAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACQklEQVQ4T6WSX0iTYRTGN2diDhnohRfR + jV0ERRB2s5CkRjIr0sRClMXEP6hNcxteRPvGgrLNqK1WsmRbRFdBslqBTmsbm6URgReBQiSY1gcGXiSt + YH96Ou/Xlq8rr3rgB+f9OM9z3vfjyAD8FxvFhuREQRYFUUhsy8Jq+ZYBJl8kYvJHYfRFMOAN4/zoC/Td + fY5znin0jITQ6QrGqa1oq4ACoz9C5d/KZDJIp9NodwZZo4r1EtJN+AAFm5ovZpwMx2Fz3MTptn7Ut3bG + Tpxp66V+9iQ5H1DYT1dmuhcV4Q1/hie0hAu3AjBfcuJhaBaf1r4jHJ+BSbAnaxta+piHDyhib+WVTCZh + HSLzxCzIK+nt4lfcD06j9pRumjwlfEAx+1FMnqkV3B5fwrWxeTTpDdJkpi/ffmJkchkvP6xTwNkf5FHx + Adu73ONSY06JRAKDwmWEY6+wSuY5MQ33xEfceRRBzbGm1/kBynbXM8nofLoI+9gCbN4ohsy9MF68Av/j + GGLv12F2BaAzWFJV1UctbCgfUKq//kQKSKVSWBVXEHKZERSaYazXoqNnAJoGHQ5qTr7brz5so/4yQsEH + qHTDgax5mcwmBK3NcBxX400sClEUccTgYo1VhJKZJR8XoGwU/DMtVt+fyXYy1+kt0A6OEn4c6hqeo76K + nCc/gO19+Y0O7dUH3XUQqnev7SsvbaVve4hdRCVRQfx7laXD7xVVde/d6dDsKKuhuoSQWw5Uyng2efiD + u1GdCykmpFXNN28OgOwXrthAQal20VMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHO0lEQVRYR51XCUwUZxRe8b5Q64G1trax + h9qkNWmMJk2tV1QU641VKYqoCApqLJXGqCgeGJX7UvBoPaoUUImogIKiKIecKvehIItUQFhcYM+v7w07 + Asuuoi/5dnd2Zt73veN//4wEQDvoWRcjMDGArm8Bn+f7OvJ1+KPFRBK+uRuhuw49CD116EXorUMfQl9C + Px36E0x14N98nv106cDX7qDVTDaHZMdtPvEIToyQR3AMyYZjcBY2ETYeJxzLgoOATNgHZWADIzADdgHp + WM/wT8Naht9DrPa8f5d8skAOqD1nu4MW4+i7MfH7mlYEfWh0UNPBGp9Udj6I/bJ/uuSdAro7UcTvYyKx + SK6mD7VWA5VaAxufFHY+hP2yf7r0nQJ6OAZ3PgMdyOmHWq2Fig4UJGC1tyBgKPtl/3T5OwX0dAxun4HT + dypx6rZUwIn4CoTEVSD41nMcjy1HUEwZAqLL4H/9GXyvlcInqhRKEqBUadCs0mK1VzI7H0bolADu/l6b + 9ATom37UGo6a004RKzUE+mbyJqUG1p6CgOGEzgvgTjdmInnt9WmoPClBRbAEZcclKAmSoMBfgqfh09Cs + 1KJRoYFcocZvHkns/GNCpwX0dtATcCJOipBblPabz3GM0s4CpCF8W0fL8pCgkSJn8tfNalgdFQSMIPD8 + 4BK3Gl1vSEBfXt9tTYy6NeVAVdRslARIkO8nQY63BNmeEqQflSA3dNYbclmTGiuPPmDnnxA6JYCHRT8e + LqJ1JG+pN3e5ippNwdDVu6KqBldjE+DuEwIH5z3YsG0Xlm9xh4Wlzd6pFku/1vlvFUG+DQnoz5ONTSQ/ + FiN2+zP46brd+2oJvCJL4HGlCEcuFWHv6Xtwcg1E0NkIxGc+RVpZI7IrmnA/uxj+p0KxxHpjlMWyNZN1 + HC0imFiEzvikqV1gusGohch1UfNSa6al1qRUU+TV8Aj8C2Ex95FQqkJqhQaP/1OjqFqN8no1CirlOHcl + FgusNkRNnr3oKx1PF0MCeFya8ixvS15jpONLw6dSrVWIjL6NoDMRuFumwkOBXIuCGi3KZVq8aNAg81kD + HlcqcMD3JGYttt5BHLyZmRgTMJAFMLkY9ds6vl6ugP0OLyHtqVIir9KisAZ4WqfFc5kGhZSFa5kv8aCs + CedupMB8ic0d4hggcJEPQwIGrfVLa5fyF0Y6/snFWahtaIa98248pJo/fkHprtHg6SuKvl6L3GoNksuU + OJlQget5ckSkV2HuMtta4jAj9DAm4CNb2kbFLudac5e31JvXtwavaZk10BKrlytRXS/H+q07qeHkQrTl + QuQt5IlUktiiJnhQ44ZmN+BcUiXmLl3zijhGEnoaEsA71mDeQoV5LpBr4BFZjKPU7YcvFeJQRD4OhuXj + QGge3P55gt1nMrDG2R2J1O3ccFxzFpJEkccWKRCZ04h9l0twNk0G37BETJ+3Ipk43ipgiA0J4KiZnKNu + nWwayGjA1FP0dY0qVDcoIK2W4dSFy8JSk8rUlH4VMqVKxBc3C+QXshrgGlGEEyn12LrXB5OmWXgTB5eg + uzEBQ3kLbRLJiVhIO082JifiOrmKaq9AZe1rFJSW48x+BzjY/IrztNQeUbcnUcNF5zXiX0o7R74zrAh7 + Ai5iyhzL5FFfjptBHNyEXfUF8HBgAcNWeZEAIuXIOepD4Zz2POwPzcW+i7nYc/4Rdv6dgT/8b8LbbibC + XWbC7/fFsLNaIiy1s9Tt3HBcc0771j0+mGy+JH3s+InryD9vTC1j2YAA3rHMVnklCVHLKWJuNp7pHPkr + Ie3NkNY0IDsrE2e3zkDyGWfEB9jilN0P8HCyxM4DnrB1/BOLrB2w0MoOM5baY/ykqaEjPhu9kHxz7fkh + lfecDpNQFDDcmrZQodM57UQqkFPaq2VUcyJ/nJOP89tmovCmL3Ki9uHSDsqA9URExcQjITUbd5KzEHs3 + FdEJKZjudJqdTyUwOT9FM7nBUSyWwMyKBNRQjatlzXhJqKqjqGvlePaiDlm5xTjn/AueRLqjOM4TMQfn + w3fl9wiNuIK76Xl4mP8caQVSpOSWI+lJGebtus7OxxH4EZ1HcKvpCWATJqHl/psJK4/cxwrC8sOJApa5 + 38Ei1xtwsbVE4rENKLixH9fc5sJtwbcwX3cIc1zCMN81Bgvc4rGQsGBvHOa7xcHcJfwB+eTnAeGBhNBq + bQXoRHB6uEH4MZqb5VPCKMLnhDFWEwY7XdwyCTlXXBCxfQpcpw8tNOvX1ZrO/Uj4jjCW8E0bjCawnzfv + Be3MgAA2FsGZYMXiWxA3zhCP+SOT7wVa4+Tqcdg+eXC0aU+Tn+j/LwiDCfxWxNe1Bdec/bRuwW1NX4AI + nfENIthBH4txphMOmZulWI0fsImOxxD4cZsFigTGYNgMkRsCGTvhrHCUTMovGvybm9bkwM8DJfrolBki + MwYyFsGRMqlArPvvw80Q0btAJqS1zfEHmkTyPzmoyW+rdtncAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC5ElEQVQ4T6WT509TYRjFr3t+MG7j+C/U + D2pMNBrjYBjBvRX3wpmoYCtCLUtwgAi4FRQUBSG20toWCigIFmUIooCAtcoSS29bOJ57qYl+9ia/3E/n + POc57/sK/PqR/mQAGUgGeRhMhpChHoaR4WQEGelhmOCrMOl9lHnwURjhdcaIJUEGLD6tx6KTOiw8kYsF + x7WYf0yDeYc1mBuYgzmHsjF7fxZm7cvEjIAHZsGX4vzK79CX26AptSKruAWPC5qQYmrALX09krR1iM+p + RWzmB0RmVEGVVgFlyjsE3bFg5u6nELw5VVtmxdEb5Thy3YLAZAsOJpXhwLVS7Et4gz1XS7ArrgQ7L79G + wKVX2BZbhC1k84VCzNiRAcGLke9x0qaoImyILMT68AKsVZuxWpWHlaEm+IUYsfysAb6Kl/AO1sErSIdl + p3OxlEwPoMExTnb3Ak43ILp64XD2IlHXCLvYgy6HhBud3W5cyKxB+y8XWrtc+PHTie9kXYQZghTb3dPr + EfegmwbXchv6xBRK4g67C9FPq9Emibso7nTCRtaG50EITH6Lm8Zm3DA0IVnfiESKE17UI+75J1zKqUPs + s1pEs8CIJ1VQP6pEWNp7hKSWQ5FiwWo1DQ6xMNEtTe6BnXQxerzmMzo5tcPuRjv/Umz140rGdsHW4cQ3 + Ym0XsUptgnAgsRQOxreLbvwi0s5XOF2K3cadJaSdVekVjC1SLOJru5M4sFJFA+mokvRf5L0TtH3RL+d8 + RIwcvQYRGdX/RFfef4vgu2U4dfsN/FVGCHvjS/oa/6uwi9m1cmFSdKltG6eee/hOji1NbmkjrQ74hdFg + d1yxHP2PWDqqmKxatk2xp20rDZSpFopFtNCguU1EMw1WhBogbI0yGLbLN+wVtsQUyjdsY3QBL5WZ55yP + NeH5cturzpvkyP5hBqyQoHjJifRiPij5hY0io8kYMpaMI+PJBDKRTCKTyRQylUzz/McKAP4DCL8Be0jL + K/r/dfEAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHmklEQVRYR71X93+V5R21rXsPtK2jrfpP + aIu2tdNRW6ssg6tiqzKEMiRmQ0xCAgElDLXWiIwAoiwTiCOQECDmZpEdEkAgZDNyk5Dce5PTc57nfW/e + i3zaj7/0fj4nb/Y55/s9z/f53ks8r+99B3z/O+IHHrjf0/8Jv9x/eqmDyzy4/AJc4cGVF+AqD6724BoP + 9LX+VmKMCEMetbi0ICrTh6jFPkzK8GFiRikmpJdgQloJxqUexFMpB/Hkm/vxV+KJhcX4C/HnpH14LKkQ + j8UX4tH4vXgkrgAPxxbgD9Ff4ffE7+Z/id++/jl+My8fv55DzM7HL2fvwtgZ2wvJKcEybQRcOjmzDPvq + T6Owrgd7anvwVU03vjjUhfyqTuyq7ERueQd2+tqxvbQNW0vasOXAKWze34qcfSewoegE1u49jjUF3yD7 + y2N4/4ujeC//CN7Z3YKVec14+7PDeGvnYSzd3oSMT+rxwMxckPNaQlUwAi6T8wISJ25uQuKmJiRsbER8 + TiPichoQu6EBMevr8ca6OkSvrcP8j2rx+poazCPmZldj9gfCIcz6dxVmvl+J1/5ViRnvVWLauxWY+k45 + Xl1djldWl+GVVWV4KasUY62A6wm12wi4fBJLLseJJBZ5AonjSBxLYpd8/loSk1zE89ZUY86HRAR5lUNe + YcinkXyqiA25D/9Y4cOU5V/jFzN2SsCNrgD14Qr1PK+iEwmbGhC/8dvk0etILgEi/7AGc7IJEl+MfLoR + YJ2/StdyLvK/ryjFixTw8+kXETAhvZQ97iC5Sq+ye8hVdkNu3c9R2bNHyWeFyUfLLucif3mlz0DkL2V9 + jb+9XYL7p+2QgJu8Aq4cz7Svyj2CcWkHTeqfTDnA1B/AE8lO6hcU4/GkIvwpoYipV+L34OGYAvwxxpP4 + eZ/joblK/G78avZuPDhrF5GHsa/lsuy5xvnYmZ/hvqlGwM2EjrkVoJ6PABjmByHED0EXoREE+Fyx6wiG + QsMYFIIjxDDOC4EQBoaG0c/n4q0N6BsMoW8oBD+fveeFIM4RZweCONrVjxeWHZSAW7wCrorLqR8lHxkx + cAUEHAFZeS0YcohHyYcdcoLP9E/rjQB/mDiEcyQ+OxDCmX4K6OzH80uNgDFeAVcrcOS05A6x69wIIJbn + NhvnIj0fsM8B49467hukgE/qIp0b8qAhF45QwHNLD0QI0DC4JmadKjBKLmLrfphlH6HzYQ6UltHSG3LH + uVNyOV+0pc6Qq+RhckfA6f4AWjooINMIuDVCgNK+s6wdq/OPYdXuowYr845iBcu+PLeF5M14i1imibaj + CZnbG7FkW4PpeQbLvogTLo3uUz+uRermWqRsrkHypmos3FiNBRsPYcGGKiSur0QC8cyS/RJwG6G7xQi4 + NprHLOzeKbmcW8fWtcgH+FTJ1XfXtem5KXsQKR/X0HnoAudEXxA9REt7HyYvNgJ+6BVwncarBLg9N2l3 + ydVzEsu5CZyDC8l7SZiyqSai55Y8gG5/gALYAiOgWAJ+FCFAI9Z1L3KvADftmduawmlX4ASbdiXdpl1l + dwWIvEdwBHQRzW1+RGUYAT/2Crh+LidccNghNqXnU84JhU1Ysq2RZbfO/STvNc7dtNuyJ+dUhwOnsneL + 3BHQ2RvAYQp4OmOfBNxOaC8w4/CGuZzt63mtZrmBY7+X7bBXqA1cIzIYOJ1zEzimPW0Lw8bQeQO3MOcQ + knIYOIYuYV0l4oW15Yj7qBwxwppyTEo3Au7wCrhRs13lt1Mu0rk5bnSevtUOGevaKT3dewOntMu9KTvR + Rded/iG6H0LHuSE0nfJj4iIj4E6vgJv+yYtFqbf9Hh0yGq9u6OQ+3HOH3DtoVPLE9VUm7Sq56bsEECIX + GilgwqIiCbjLK+Bm3Wqu87B7d8JFDBnbb+OcpN7E99C5znm3nwJI2kXXct5J4nbh7BAaWnsxPu0iArTJ + SIAllmM5F7kTOjrWkBkdr+5Zt2GzZQ+y7xXGtSWn+3N0T2KRt0nASVbACvgJob3QjMNbdJ+/yx0uk6FT + 4OyEY+g43eRc5BoybuCSNd0YtiRNuHDgKhi4CsQxdLEmcGV4Q8j2IZqY/4FQivGphRLwU6+AMdO5TJyn + W9e9W3Zz1AQ6FrncuyWPGDJOz5V2N3CCSi/nwqkzg6g70YtxKXsl4GdeAbdO5yaj3rvEmm4GJnQsO/Gm + Z8icYbmVdJdYQ0bEsTxmHUZAwJITp85Y8lZHwFOpRsDdEQK0QJr57iF3j5nb82Sec+Nc5O5RCwuwPVfZ + 3cDZvg8acoloPT2IGgmwFYgQMGYqF8jWngGc7B7ACeJ4l8U3xDFuMcICDhnd54Ku1Zb2fjRztje39ZkJ + d5hP9VxHraHVj3omvv5kL+qIWoHktcfDAsIhNKN4yrKiPS9re9UCmeUz+/uU5SV4kUukFkmtUc8TWiae + 5X2uK3UyEcWL5WkhvdhMuIk84zrnSrrCJqjn4/gUsfB43I5icuo6lnn7voC4gdA3dUloTgsal4KmlqCz + 60IOBKXZhYIlqLzCPQ7u9UC/Jx69R9Q2Zl76RPNAQgQNiP8Gle5/wftG1Qv9TByWnIuwgfNSNf4fcHhx + yX8AzsoTOp+fw/YAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACg0lEQVQ4T22S20uTcRjHPWxtbmrzAAoF + grvpor8hbwSvuukmiEqyIKwgDCQJKSNRC0tKMrFopR2MJTlBQsi7sOlS8jTn6w5sHtbWu14Pe3dwyrff + 89s7eYUe+LJ3/Ph8nud3yAKQpVS2kpxMdGUnNAUnT+uN5lM69l+jRKv8ZnNWEWQ/GvEhk7HKSoxWVMB2 + 7Dis5eW4O+jEgyE37lsF3PvkQvNHF0FatSCHwEwR7G7vgLu1FR9KS7ARlpSVdN157yRIxz4PBLkZQWpv + H8Os8wqD7dXV6DeZIATCiO/uI5rcw3Y8hab+BYL0/xXsxBKwlpVDaGnBRFUVXhfkY9a9DpnDe5DkFBrf + zhOUpxZoMoINcYuNXYrxmhrYzGb0GQyYWvTzzlIshchOEg2WWYIMaoH2oc3LBb51kY/dc7YOXWcuolev + x6QzwGGRwaGtJG6++kWQUS040j6cFtAEn+sbMCOswbG0ineXr2MpIEKM7iLM4A0pgRt9MwTlqwW6ti8e + LoiyUUOSjM1oko8bCG8jKMUR2k7Da3/juPZimqACtUDfOrTCBXTaL8fX0PdtFT1jfjwb9aDTtow26yKD + E/CLcVx97iCoUC3Io0dCFU2kr4pOmyagPQc3WedInMO+sIwr3ZMEHT0koBdGRVfV/dWLJyMCOobYCxyc + Q/PADJosDnjDMbh/y7j01E6QSS0w0POkSnfe5XsOSkneOSDG4PsTgyckQwjKqO36QVCRWmCk50kVodMm + +GBsBiudCXat7+D84wmCitUCw+2BBTS+mcctyxy/Z7qq+t5pdmA/2Z6nUMfGru2y4wKDz3V+J+jQGeSy + GFkKaUGJSUmRkmIlJSy0rgGQ9Q8WfohZJlluNAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHm0lEQVRYR5VWaXCV1RnGhGyEpRBKaSKN + CCTwox2GcaYMtDDVKbQVO1IFSpVaa6tt1doW0giGspTEBBMJpOKCiKBNhbBEAiN1LI5hyQYiS8hGQghZ + yHbvzd3XPH3e833fvUlolp7Mc+83J989z/O873vec0YBCGKwEfeDVIXo+Llh0QnzwmKTfhgeO/vH4eO+ + s2J0zH0LwvjKPQMw6OjLpziDD/2HsZAsHjZ6fHz4f5KTT3yenIzTs5Lw2cyZ+PeMGTh+/4xTMdO/F8N3 + IvpgdHjc7PCIxEXy27tGX3LFG3wIjXu2H7+JvsgsbICQ38rLQ2NuLhqyc1CflYWT9yVi80fV+PvhOmwt + qMPmgho8m1eyLSLx+7FRs5dHiohn8spHPb2zbNRTO0rV4n3JFW/wITTChLTv8AcCOJ2UpMgvrVyJi8uX + o2LZMhyfNg02h1t/SxspByrxVE7x9sjZyydFJi2LjkhcHCbka14vUYvzlX4IPWhDhd0Q0KvD6w/gs1kz + 6Tw7SF6+9EcoTIiHyeqElwI9/l64fQFsyK/C7lMNWJX+aW7UnMemRM35WYyIeDL7nCLgcv0QetCGCAjP + +riBUyEBHp8fn864H/WZWah4eBnKli5F6UMP4fDUqeg0OyhQyHvh8gaQdrAatS1WiqjHY1tO7Yqa83h8 + ZPJPY/W1+5ELQg/akJdGZw4Q4PL68Mn06biRkY6yJUtR8uCDOL94MQ5OmYJ2k50CSU73Tq9fRUAiJiJy + i2rxSFrR7qhvr/6WrKuvPwIBx+o5FRLgcHtxMjERtVu26uSLcG7hQuRPnoyWbqty7qQAOwWs239N/dYQ + kXX4On7ycuHbXFeioETw30MKiMg42l+Azelhwd2Lmk2bcH4RyRcsxJn58/HBxIm43dEDl0dzb3f7wYID + Cw5PZJ/H6tfO4udZZ7EqsxiPbjyRybWjCbU9uezgAtKP3uBUSECP3Y1jCQmoTkuj8wU48935KH7gAbw/ + YQKa2nvgoAAhtxLdNi+aux241WFDY6dN++6w48U9XwnJOCJciLjsoAIitx2p45RGHuCH2ebEERZc1Yb1 + OJk0C0VsQl/Mm4d3x45FY5sZdo8PVpcfFpcPFqcPJocPXXYvumwedFg9uGPx4IW3vxSSCYSkYVABEp6o + rWwsMnr5F+jtRZfFoQru9JIlKHopFYUvrsOJuXPxzpgxaGg1w+YWATq504tunbyL5O09HrRRwB/euigk + E4lhBURvKajllObez49OCsifHIdP/rIerV025t2Ko8+vxVvR0Whosyj3PSQ3O0hOdDENnRTQrty70Wp2 + 43dvXhi5gM2HNAF+uvdRgIXd7vMNG3HHbOOOYLHRbRNFFP0pBa3d9iC5STknudWrhb5HI282ufDcbiVg + EiHnxZACYjYdrOGU5t7HJuPysMC4Exz8li0nRSfh7rS6SerRyJVzLecSdkVO90J+u9uF3/6jQkjiiGEF + jPkbDxgZ0uGkyUiLFTgpwC6QimcUeoJFx9Ar5xJ2tyq6Njpv0cmbupz4TV65kEwmRECwFwwUIFskNo3d + TIaHzUSId52sx84T9Xj9eB2yC2uw/Vg1MtlgMgquYdvBK9jyr8vY9M+vsPHDS3jlwAWsf/8CUt8rV+6b + TE40UsCvd5aNXMAr+dc5BUWuWizPAgm/qnZCy7lPKzjmvZPugwVncaHZTOjuGztduNnhwNM7S4Xk68Sw + Asau/7CSU3IG+NnhAthB5zkf686PVCG9oJLOr2rO88X5l5rz/RVI3VeOv75XhpS9pbjVJeQuNFDAr3JL + hGQKEUkMKWBcKs90GUJudDnbwJzrFd8hBSc5p/sWOr8tYe92kpyh73Qq8vp2B365Qwn4BjGsgPEpB7QD + xSAX51l0niHOD9H5R4ZzyflFlfOX99E9856ytwxr3y3F2j0luEniegqoa7djTc75kQtYt/8qp0DygOac + ri3MudnOvBPKubHdlHN9u9G1OL8pzjs153V3HKi9YwcvJEIylRhSgHSpCWv3XeEUtK1G8lcPVyL90DVs + Zc43519WztM+uIgN+zXnRs7X7dGcG7ghAtocqG614RevKQHfJIYV8LU/773MqZAAE12bbGw8bDRai/Wy + 0XhY8R7lXsu7VDzddzhJ7NSdO1BjCNh+VkjiiWEFTHxJF2Bx+oMt1mg0WosVci30Qn6L5Cr0JJew3yCx + CKhW5HZUtdh4LzhjCIgihhbwR57dMmSvq/7Odqucqxbbn1ycq+1G91JwKuzivs0eJL/eTAGZSkACMayA + SS+8c4lTCB0u0uP1gpPDJVh0hnO13ST0GnmNkLfZUEUBQl5JrByhAOlScc/z7JYRJJeKV/3dpfp7s8mt + O9f3uri/y3mI/KoIePULIbmXGD4Cv39TF2DknNAaDZ0TTRTRqIdd2qyRdyGv+R/kV5psWJGhBIwoBeOf + 212BZ9+oUEeonGLP7CrjYVLKdlrKS2eJ6mrSWNbknOPl85zaYnIBXc1KX6UuoWfouJhhL8YKOn+c5AKu + PeRZIPdBdSUj5O4mJ5d0LgPSRASylw1IVQvEmQEJs4FpOmReyMcQwnG3gAEiJBKiVPbsYBCh/w9kvX7k + AEb9F3uyxFyM0zdkAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADdklEQVQ4T12TbUxTVxjHr29bZpSEzWXG + SdAZQ9mqLOBtDYgg0IrIS6lYpS32ggWRpnVYMttKaa0WRKQgFHARMHM2QuPQiS1Cu9Y3BF3wJYoiItnm + ZvTLEvSTSvl7ri+d8SS/L+ee/++553lyqFh1P0XWNMKsGEWXjJfvcvCVvWMrCz2vaMb9MFrqdHKzWpTk + +xzCDFp+lgIQhF3TojYdXUgXuOypet+kpesybN1unPD/jm1HDiDDZsP68vNTcczJznBeSQQr+VgwawUJ + p+89C21PM/Rde1B12o4GVwfyWn/BF5ZVWGKSQWwaRFLBbz3kfChhelDA/nai1jOZ3KrByp+TIXFtgaZX + hx+cnag4Pw7ZYTfmGZPA09sg3nVjihYdNhPBZ0EBr8DlSLQ2YP7+SCxs4eC76mSonKdgHfgXlksTUDlG + kNdkBlNngkh7DmlFnhEi+Dwo4G/tHfu2fCvCtKvwZcVyMMcdqLz6FPuuPIehbwLKn4YhqCpG5aACTI0R + YvXACyJY8L9A2fcqorQAooNtkLV1weB9hAr/M+jcE9jR8R8211xHhDkFsjNpkNdvg0QzyHZuUVBAK1wP + haYTCNueA3njBUgP+SCr74fCfheKhr+RZbyOUFUiOHVRSDFLIFL2BYggOA0qOrfTmbH7FhJK2xEjV4OX + q4BAXoa4zRokMS1IKfZjmUSN6A0M4sVqxGVqJzm8tTYimMdKKG5ms1KgGphaW+SA1X4cvstD+OfxE3gv + /gGzrR38jDIYa1rh9vZjbPxPdPdehM7aHODwU6uIIIRAzaFzjp0U5u2Hr38IlsYOSEtrIVFXI6ekEqLC + PUjPNyJ1ix4puWXYrq/F6R4/otZsGibZr1nBjPkcUbRA+mOArSzRVKPtWAeyiyzkisDwyChu3b6DdQoD + 6puOIDazGHdHHoBel/+SZJdQtOwMKwlZnV1yzXPhGgwHjr6rqIOAVFyzcQe5u+pNkJ9eCKXWil+7veDG + b7hPcuFvR0FRn9JCqc5U2z55zn8F4389gst7CYaqlgA3PvuqzmoPnHL7MHxvlIQ92GmuC3wTldBAcqHv + BdMJId8n5pTz05ih2KziFzFC+c1Iflol2Y9cukJYsyxh472YVOYlN148unh5QiPZDyPMfCP4QDKbwI6H + bc5XhLmETwhst9nAUkI4gX1QMwFQrwGjWAB+ikgulAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAALeklEQVRYR31XCVhOaRtuZv4Z5re0kCWG + LDNz/X8MYjRtX6WU0iLtX7svlfbSRotoU0m0aUNIQr6kRNYWTUOhVJaxREOiVUQp3f/zfilyuf73u+5z + znfOe977fu/neZcjBECAr5RvCN8S/kUYQxhHmESQJEgRlhIWf/wvThAm/JvwA+E7AnufYVQZ5hvhZQcp + zxbBQ/kCJSG9czrskr3IGmHEwlM4YWrT1JNiZqgnllgH5LaGJJ3vy8y7ivTj5f2ytllPp+sXnpmifShS + WHajNkmYTu9MIDAhrAP/V8SQAI+WTzeGXvieMG6mziGtn9YcO6LuntV94nw52rs68IF+J85cxMnzJegf + 7EXtvQboB+VDKSQFCz2S34jr7DshIrfJjN6fSmCOCNwY6G8RYmBlmEvAxw7/JQc+kjPFTPlESbMLwTJu + xc8DD6TjTnstXvW3oW/gLT4MDmCQfhknCnGLyN/1t6PwajmM4opgftABOkn2+IWX0CmmFp0gNFZoDrXF + 3GBh/Kb//T90+oqA/7gLlLGe/yC6aN1MSfPSFN3Q4sHgvHAUP+Wj8kkJ9pw4gh05x3Ds7FlU1NYgLPc8 + 9p8txY0HdbCML4dNxmPoRFyAQYIbLA9zsdw3YHCS+nb+mBlLFlG7IyIIowV8LMO2C1PP04yi+XAvcEfi + 7WjwnxxCUT0fO7KzkFGYh9qHtUg9mY/ISzXYVtYE/zOP4VXUAfvsNlhn7IVluhccj9vAPtcCnABfiKqG + 8SmT5lHbLIkFOfGlAEbO4jRe0vT8Fs2QvEGrUzbYXOWD2LpwZD9Iw4VnJ3H0chYevr6FlreP0PbuCfZX + VNHzV4i48R6bLvXC+fgrcJMbsXprOTSDY+CWy4P7SWtwfEIHxThb46l9CcJYwrdfCmCqxlKyafzhVdas + lWEJXhkPPlc9EFETjLS7u8B/fAilzYWo6ShH8fUCZF4oQEpVA+IbehBJAgJKeuGa1wObva9gEN2CFV6V + sEzwhUGkP3RDojBX/9gL4d82cIlHjCAIxecC2A1hSfOyTK2IDKw+qwfLEiu4Vbog+Lo/4uojcPD+HhQ0 + HUHJ81M4WJ6H1NqH2NvYg4R7fQIBmy+TgFwm4DWMoluhG1yK0LOukOUdhgy3GAtNCjCZE36SeFhS/kgY + JWDMdI00xSXu19tWJKzHyqLVMLpoBvvy9fC95oVwcmF39XbsLEhF+pVyZN1vRnZLL/Y9HcDuO/0Iq+qD + //m3cD7aA+u0bhhub4eG3z24pEdAzTMazqne0AsMwCKrkDfjf9Vkw1OE8N3nAsbPNisNVA+rhkyaFpQK + NaB7zgBWJdYCFwKr/bCVH4djdxtxuqMXJzo+IOvFB6Q+HkBsfT9C/uyF95m3cDzyBhbJ3WR7F1b5NUPJ + 6Qz2XQpEQU0QCm4GIXC/H0SX2aURH5uoWMILXGBFZI5NDd848ToWpapgOV8ZKzN1YVBkKsgF12J3xF8p + QX7bO+R1DiL75QfsaxpA/N3+ofiX9sIjvwd2B96AG9+NNaGd0PB+BoX1p5BZ6YODhAOV3thZ5IFJ8m4V + xDeXwJJxRIC4pN3f9esy6yCVpIpFhxXhe/g0AvJOw4LvjM15R7D/UStyWgeQ9fwDMog88X4/dtS+R3BF + L3zOvYMT2W+T3g3jmC6KfydUXR9A028Hoi84I/aSM3ZcdELUhQ2Yqe7ZTNPcAuJkM+SIgGmS9o87HY8+ + wJJEU8gnWmHrxduIq3mO4MuXsaWiGGkPe7CXiFMfUdyp5zFEzqz3J3KW/bzM14Lerw3rgpZvOzgODdCN + 8IBXvg02ErzyreFx0gpz9J3fEfUy4mRzwogAiTn2Tz848V9AJ2UPpEkENzUDDoV8RFW3Iq6uG7vu9CKO + Ei6GYs7GPeu57/l3cCNy+0OvYbGnm7Kfeh/UAQ3PNijwaqAc7AijrLUwzTKAMZ0ND+ljjglvUGiikCxx + jv9cwIxZvMYu2+xX4B36G0t22mLWkQUwTEpGUFkrwq/3Ed4j9FovgqnXbMh5nxnq+XoityRy4x1d0Avp + hKZPG1SdW6FgXYPfXFwhn6wOueSVkCXIJKlhxlrzPpqUmYDRDsy0un1HP6ELtgc6wU24CemY9ZBJdIDL + 8Ua4Fz6Ha34TnV/C6/RrAfGGnCHbWdYPkzPr1VxbscLuGRStbkHKZgvmxshjTowcZkfLYnaIMsTXmLZS + CNg+YlQOTJEwqSxYsa0V3JRuWKZ1UDzvYkVCCll7C0tCHfFLuDY4UVEw3F0J04TbNOW+gNkuNuuR7Vs6 + PpE7NkPFthEc83osM+RDPEARoqFLMYtnAyn9PZgs41RO68IvxDlqFIhN1eaHS3s8xdqoLlpWu2ES3wHT + +BfQjqyAqO9PEI6SgEjcDIiFz8W0oN8h73MAmgF10NzUjFU+rVB1IXL7IXIlizvgcGshb1iGxYYZ+Nkq + CHKmBZDSO4jJC60TiG8GgS35IwLGiywP1Jxve6ddfXMbdLZ2QC+sE7rhLZB1P4AJ7lMxIWIqxscSoqdi + XPgUTAiQwDTnlZB2yIHyhidY4fAUyp+RKxpVQdH4CqEUiqYlULQowVy12K4JszgmxMfWg1EzIdt2SUzV + LcxZ6tQEDUokdf82WlDu4ydzbUx0FsO4IDH8GDUZYyMJYZMwdsskjNkkikk8ZfzOLYKcRRUUuERqVg1F + k2skoAIc4woomVVCxeoqlhrmYoq0fQHx/EoYXpZHBLClWERUNtR4vvmN5wpOT6Hi8hJKjo/ws5k3RHgT + McFTBGKBklAPcYF5UDR4m5Nh7ZsAc684GLhGQGndRvxs4IaFeongmJ2BmcdR2PrvG6lnsXEXTNxj3us7 + bDunoGs3n/hGNiessAvmwnRxtb07Flg3DKo4NEF5/WMsNy+BuIkUpq+fB7eoDFy+1oDGZ63o6O4ZQUv7 + K5wtuw5D52BI2C7CxqhsXLv1AB2v3lAHP5W+9/24WnsPtt6x3Qpr7KWJb0QEOzBLmDVzxDUOHl5kWQMV + 3t9QtKzDYpOj0PTYiNKq23jZ+RoNjc9RfbcJfzU8HsGfdY0ISzwCI/doVNc/RF//AO7/04ob9/4ZVa+y + vhGxe/OgbORZSFxsWf52OA5MhGBfMEZ8yeIpqmnZUuaVg3JWN8GxrIbNplQ0t3YKyB2DkqC1Lhi69tvI + 5kSyOJ4sjoMpkRs4RULPPhSr6bm65Waocv0E9dY6RSB2f4FARGTKcSgYuL8hrqF9IhMww7SargUiBPtC + wvxJClG75q7Jf7HEtJSIkgR2X7vzBPoOYRChfBDeMhvG3uG4cbtxVEgY2sn+kqt14Bh6vFbQ4bmp6nI5 + 1n7xqLj1CNHpfPyh68R6LUoYEiBh/JeQllsN/R9xgqn7SXihnbW4YnQe1yt+8NnLTkEPtqflwcA5EsZu + MTB2jUb9/SYUlF5HdlHFKKTnXoCioSfWOIaD67kTOacrUFheg4g9x7FM066H2mfD8fshAYblhBIhCYOL + dE8ggo0MFiP2yTVPh7etqrjsJq7UPhgV06zCK1i7IQwaVpuxgusLJeONUDTwhPxad6w09yO7c5FztpJy + 5BGKrtRi98FCuG9NxkIVbjG1y5wecuBLUBlOTObGODktKwVLz6juiOSjCE06KrBxGNsScmDnuxN/aNu/ + +13TJs7UbXvPpphMeIWlwT86E2HJxwT1IlNz4RGaAlkdxzezpBRUqN2hr6avCRgGlWEhY5aqGP2qYuxx + imPg/lJ+jQtktB2wbBUPi9WseqU4xhenz5NmHyCiv8lrL1Q19S5UMfF+STkAOT1nyKx2gPSqdb0LlE1L + ps1dzBajiQTBtuyrxJ/jYxlOULaIMOVsPWd5whpiZzaE2bPhOuweSzIWQvaNOI0whcDizup+2hN+Sfg1 + fCzDbrD8YGDhGQb7z559XoeRsEWHgU107MzuCeoNtQ2h/wFeihugPSgzYAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACj0lEQVQ4T42SW08TURSFB0qLIgSjGATR + 3+QzooaUiKggoqCSgqJAuVnuStRgMN4IFAqCgg/GGBS5xAoUhtLOgIgi5VIuQmkxWe59QDPGF3ey0nmY + 9X1nn6kEQCpqUyWzTXltblNR2KqgoMWNm1YXbjS7kNc0gWuNTuQ8G4fpiYzsx2PIfGB/K0mSgbsCQBNk + tqn0+H+T1eDgUhg9/gEEF5CZZzI3FIrJAPdVA5xZBsiX9BhND8Fwqg5DZ3TwrgdwsX6YS+FagC7f6hYA + NScUcBUDch7guALY04CBJKA3AfYUHRZ/BHDh/hCXIrSAEN6XRzGF7tj1kDPIfl6HkXNsD4Y9OQjza36k + 3fvEpUgtQH+dLotnbfMnVn1bWKEsb2xhiY7M1oW1ADxUnlv142zdRy7t1QIMuXTLPHWvpnCnexK13Spq + XiqoplR2ulHeMQHLcydmV/xIuT3IpX1awC7TU1kA2OrdCGCJrRQ+sofsc6ubmF3exDfKqZoBLkVpAbuz + H40JQG2XiuouBVUv3KjocJPVhVvtTpS1jaPEJmPG64Oxqp9LB7SAsMsPHQLA+86Lfdnqx/eVbetXypel + 7SRWfOBStBYQntkwIgCVnS7a1wVL+4SwlpK1uEWG2ToKc/MoPi/6cNLSy6UYLSAio35IADy/rXRZbJ3x + stWHaQqXpxY2cLzsPZditYDIdPpz8PC+pTbat1VGkXVMWAubHShociC/0QF1wYdjJe+4FPcXIPWuXQDE + vnRRMzvWabKyeZLMKkXxrCO+uOcfwB6j5U3Pafq+yTWDSKruh7GyD4nlfWLfE2W9SKBjx5f0iPLR7NZB + 6uzXAnSUCEoUJZpykBJDiaUcosRRDlOO7Pzye3oA0i8fuLCPhoAWSwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAG/0lEQVRYR52X+VtUVRzGpxBQy/Zd2/fl + H+np6af2bDXLFrVFlJQ0QQPZl8pQCRCRzF3LRDERMUNAxGEbZoBBkV0WYx1A397vOffemXFhejrP83nu + nTPMfd/3fr/n3IsNgMVl47oAXD8J8r3f8NXxxf+DHubFpxgE+xBiEGow1YdpxlG+DyJ+Jnx1fPGe6KHE + U393FX7/RxPS9jUhdV8jUkjy7w1I/s2FpL0uJO51ImGPE/G76xG3y4HYHXVYQ1Ztc8iFbiFi5PrFG6ts + izLtts83VNrmp1f4CVu61okeYmBKGsX/z1i+xYF1+Q1ysRtI0Oy4YzaTeT+W+wmbeE/0EAPBklrGxKVL + hMeLwPjFSxZjxMMvPPxCMa5ZtrkWxdWdWLSh7Civ42fgg9RSP2ET74keYiAklbdbhhg4n/c8WmOm49x3 + 09CyairORE5F87ehcC8PQWNECFxfB6M+LBhdhWkIz6nGhaExFFV14sv15YVyPdPAu0klSsDUM/Ge6CHN + Fyr1liFp2yiOlk1AcybgXgc0/OjFmQLUxwO1MRjrKsGi7Cr1u54BDw7bO7AwvUxMmM1sNSb/ZFIDU5PY + bDLkVrdGTwPOZKF5uQ1NETY0LLXBtcQGR5gNtV/aULPQBvt8G1oLUvBFRqX63cjYRbT1j+DAqXZ8nHa8 + mNeUxpxBZIX4mbiagWmJe7wG5NbDnQHUrACqvgZOL/JycgFQNg8oeR+ec/n4LP2U+t2g5yL6R8bR3DWM + fWVtSNpVKwIPkJuI3I1JDUxP4PKSMcZG68p7ES1RoTgbGcrah8D9TTAalwXDFT4FjsVTeBeCUL0gCG2H + UhGfVYC5aaV4L7kE7yQex+z4v/B67DG8FlOMD5L/EpE7iOwn11m61okeUqcbZG3LMLt8lB0ujJBhgbd4 + mCmHyKBnQjPKc3KuvRu1DW7Ya504aa/FiQo7jpaU482IHBG5i6gyWLrWiR5i4MbYnYYBigmWOIVFdMg4 + yq3WTGCA/DPK48gELijGVRn6h8fR/Y8HC9YeF5F7SEADM2K213EKGKVQ7tEW5Ba1IOfIWWwsPEOakfWn + G5mHmpBR0IR1BxqQzs1n7R8u/LCvHmm/1SNlbx2SdtcifmcN+oe0gc9+UCW4lwQ2EL2thlPagCBdbaX3 + Tc3EklrBtDr1hEpt0kcDXRc8+OR7ZeA+Is+QaxqQDr1p9dZqTunltEmSHzmD7MOSvJnJ3UbyRiZ3Gcmd + RnKHSp6wqwZxO6qwZlsVemignQbmpRaLyEwS0MDNUVu0AVVrYiaW44BqNiM905r4JpfUvYNjih7S1jeK + j1KOisgsEtDArSt/0Tua3G4z+c9MvuFgI9YfNGvuvKLmCax53HZJbkf0VjtWbzmN8zTQ2juCuUlFInI/ + kSflpAZu+3aznVOyoRhLTDBTG8ml061aM7HGm1qEu+U4QAM9I5iTeEREHiSTGpBN4vbluac5RQMUU8kL + mFxqvt/sdqm5QyVPNLo9bnu1qrmZPOqXU1i5+RRNeNDSM4z34wtF5CES0MAdETl6T/dNrdf21WstiXsG + x5lakNQedDN5l0ADZ2ng3bjDIvIwCWjgzmXZFZyCElc1l+T7XT41l26v0zXfIcnt+E6S/1qJqLxKJq/A + ityT+CanHJ3cA5rPD+PtNX+KyKNEXt2uakC9jJC7wrO0gStrPYY+JuxlUt9an2dKSW0ml42ni3Rw+Qlu + PpRmxxz6TwZkl7p7SWY5p6BE/ZLvkW73Tx699TRrXonIPKm5N3lEdjmWZpeivd+Dxs4hvBmtDDxOAhq4 + JyyjjFPagE5u1nvcqLWRXKVmYrPe/Gwml81HxNv7R5WBN1YfFJEnyHTRsnStE6+Be79aX8opbcC7znXy + WCu5HavY7ZFGt6/IrVDJl20sw9KsUoRnlmLJzyf4YjKKho5BvKYNPEkmNSC71Mwv0ks4BfTRgDe5WW9N + t6Q1YWpptg4zvUruobjGSQOvRh0QkadIQAOzFv6kDfSy6awdjsljuMtF/6prbq5zM3mESl6GcKZfknkC + izNKEEZa+zxwtA3hlah8EXmGyCv75Abmr/2bU3y5ZFIrOZNKapVcEhsdbtX7suSt3P/P9WocbQN4eeV+ + 00DAHpj5KR+dMuQhIrT2DqvdTDjLNd3cPQw3aeLyEqTJGjsH0UCcHUNwtg+ivm0QdULrgOIlbWDSHpCh + tuI5sfnF81KP4UM+wT5MLsLcxCLMSTiC97idyo72TuxhtbG8xbU9m8vrjegCvL5aOIhXVxHW+5XIfLxM + RFh4ISzvBK997aehYUK9FRN5eZQn1yNENo/HDGQdy1ISJI00lfC0gdxi4VnynA/ytyJ+Iwny0/T7oIeY + kDshTmXfFkMmcvuuhTTXtZDv5XrqnxOvJmz/AhO/xEKnmbxEAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACj0lEQVQ4T42S7TNUYRjGD2tXidGURqT+ + pj5LNYZJKpKiMksU1lvrvUw1Gk1vhmWJog9N0yh5mTYsx9o9h0rJ23q3dmmu7vtBc5q+dM/8Zs+Hc/2u + 537OSgCkghZVMlmVN6YWFfnNCvKaXLhlceJmoxM5DWO4Ue9A5vNRGJ/KyHgygrSHtneSJBk4KwQ0fiar + So//N+l1dg4F0eMfgX8eNfPUvJ7A3c5xVHeqqHqloJIob3ehtG0M5hcOLKz5cLl2kEPBWoEu1+ISgnXv + L6x5t7C6sYUVYsmzicX1TSwQbgrPr/pw6cEAh0K0ggDel6e6Q0Vlh4KKly6Utbmo1YnbrQ6UtIyiyCpj + dsWL5PufORSqFeiz6bJ4uHWZWnebd1vnVnyYofD0shfnaz5xaL9WYMiiW+Ypb3fSvk6YW8dEazG1FjbJ + MFmGYWocxtSSF4l3+jl0QCvYY3wmC8H2vj64uZXgI89Q+/TyBqYWN/CDOFPVx6EwrWBvxuMRIeB9i620 + b7OMAsuIaM1vtCOvwY7cejsmFzyIq+jl0CGtIOjqI7sQ8L6zYl9u9eLn0nbrd+Kbe5vYso8cCtcKgtPq + hoRgPCsQitEA13UDHOkGyFf0GE4JwGCSDgPndPgy78FpczeHIrSCkNTaASFQMwMBZyEg5wD2a4AtGeiL + B7pjYEvUYWJuHSdLPnAoUisITaE/B49iDNxp10NOpfaLOgxd4HZ/2BL8oM55cKLoPYei/hIk3bMJgdiX + LmrS7cFXho7Mxx6nZpVQZtYQXdj1j2BfnPlt11n6vglV/Yiv7EVceQ9iS3vEvqdKuhFDx44u6hLh4xnN + /ZQ5qBXoiBAijAgnDhMRRCRxhIgijhLHdn75PT0A6TfhqLFTieeRxwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHQUlEQVRYR52X+VeU1x3GX3Y1S7c0TWra + dN//if7S03Oanv7QRm1MDMYatWIMB8UFNQEEFGRt9OCGaEjUxETjlqiRRYyBYdiGbZhhBCEMomyGdQB9 + +nzvu8xMq0xP7zmfM+/cYd7nee73e+87aAAs/mOEhSB8DuTzoBGoE0jwG32YN480iAog2iDGYF4A841X + +TyCBJkI1AnEf6EPJZ5/3l1WcNGD/AvkvAd55zuQd64DuefcyDnrRvZZF7I/cWEPyTrTjszTTmR+7MTO + U0650TeJGAnfeLRJSyhyaOsPNmhxhXVBwpaudaEPMRApwv/P2H7Cif2fdcjNHiMRSzOvayar9tqDhE38 + F/oQA1F5TC1j9sEDwtf7wMz9BxbTxMcPfPxAMaOz9b1WVDb3I+FgzTXeJ8jAinxbkLCJ/0IfYiA6l8st + QwyUXOtBSUUPjpV342jZLdKFI1c7UfT5TRy6chP7L3WgkKnrPEPYdKwZ98anUdHUj/gD9jK5n2ng1Zwq + JWDqmfgv9CHNF5PDWst4eGp/+immnhSmdRKKm9T3Bkd9KHXcxhuFNWLCbGarMfkncxqYJ00mQ0TfleTl + t1BcKsm7mLzTSO5hcjf2XXTjnQsu2NyDePNQg/qemPGOTOJSfR9WF9yo5D2lMZ8gskOCTDzMwHzpbBli + QIc1Fox6W8mN9BO++xgnawvr1ffGeD0yOYOuOxO4UONFzulWEfgheZLIasxpYEHmacMAl9pMfpjJD172 + 4MBlveb7LrqYvB0F59qRd7YN1a4B5HJb/qPAhtjcKizLvoGlWV9gye7rWJxRidfzvxSRp4icJ2GWrnWh + D6nTY7s/auMU9MRGrc3UE0JA6jHfrM4Ur0m3tx8tLg8aW9phb2xBVW0jrlXZ8cpbJSLyNFFlsHStC32I + gcczThkGKKaSX2Fyqfmnktytal5wzqmSZ59pRdbHLcg81YxdHzYh/QMHdp5oRMrxerz9Xj1GJmZw92sf + 4vdXi8gzJKSBJ9I+bOEUMMWkPmKlN1NzbtxMzvejU7P4empGZ3IW9ygqPaAY1w2sL6wSkWdJaAOpJ/0G + VM0l+afugJo7kXOmDXsk+UeS3IE0SX6yASnvNzB5HXaU1GLbMTuGaeDOPR/W7VM98H0iz5BHGpAOfTLl + hL6fVYertGZiqblea5WaaRXqmmlV8lkMyyuFRXyQ9NFA3N4bIrKQhDTwjbePOzgFjFM8KPknbf+VPP2D + Rta8AcnvS839yZOK7dhSbMPg2DS8w1P457+ui8hzJKSBb+0oaeQUDZiJrXrPYlRQNWetmVrVOwBJPTQ2 + gwEKm/QOTWJ1vjLwAyJPyjkNfHubYUAEzX1uJt9tJXcgld2ebHT7jpI6lXzr0RpsOWLDpiIbEg9XY2CU + BgYnsTLvmog8T+Y0IIfEd5KOGScaU5qo7jZqrqflq6rzNBMLenJZ8gE+CyT5XYUPPYMTWJGrDPyIhDTw + 1ObiOk7pBnK4z82aZ5ziPj+p19zc52byJJW8BpuYPrGoGhsPVWEDuUMD3TTw2p4KEfkxCWngu4lFtZxC + QK0ltZlcr7OZXCUOQFLLCsje7zfoGphAbFaZiPyUyE+3hxpQP0bI0xsP2zkFa9lN4RGKDlNAX+5AcS65 + LLsIs+Yifofc5vYTOvlQWra79H8yIKfU9xIO2jgFJdpf8kf0ZizAV2nz0ZM6D7eS56HrrRh0bo+GJyka + 7s1RaN8Qhbb4SLSsj0BTXAQa1oSj7vVwNO/6PfpGfPD0j+OVXVdF5OckpIFn3jxQzSndgJfi6HkX6CoC + OvcDHXv9uPKA9iygNQNoTgYc24GGLUBdIlAbD/vyMBqYUgaWZnwuIr8gC0TL0rUu/AaelXNbhhjoTZ8P + 3DqCru0abiZp6NiiwZ2owblBQ2u8hpY3NDjiNDSu0VC/SkPdSg32Fbxl+Z9howEvDXTcHsNL6crAL8mc + BuSUWhi390tOQR2psvToPAS07ACaNgONCX5q1wE1q4Cq5eRl4PoioPKvFP8LUPon2F7VaMAHFw0sSbss + Ir8iIQ08t/adLzgFDLHp+kpeQE9KDLqTY1j7aHRui4JnaxTcmyLh3BjJVYhA87oIONaGo2E1a78yjCsQ + hppYrkrGH9A77IPTO47FqcrAb4j8ZJ/bwBqe2zKky61OVx2uIx3eb3S4IA8bBdMKkrqX5/9XQzpO7yhe + TPnMNBCyBxau4rktQx4iQu/QhDrNhG7u6a67E+gkN7m9BGkyT/8YOojr9jhcfWNo946hTegdVfwtWRmY + swdkqKM4Nv1i5crcCqzIrsBr2eVYvqdcHSSxmWVYllnKPX0VL3NbLc0g6VfwUtoV/J0s2XkZi8milEtY + lEqY+kUKi/gLG45X896PfhoaJtSvYiI/HuXJ9RMih8fPDGQfy1YSJI00lfBrA1li4bfkdwHI34r44yQi + SDPojT7EhKyEOJVzWwyZyPI9CmmuRyGfy/3UPyd+TWj/BtEcr/8ZuOR0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACpElEQVQ4T42SW0tUYRSGd5lSphhlmKZF + EUUhSF102S+ICAQlM0un0ooiCysGK63MErGTRFQYVpqHdDQvggox0Uwb8tDoqOOMqeOM42Gc88EDb2t9 + SezopgUve198z7PWt/aWAEh36g1Sfp2+Mb/egNsqPfJqh3CzRocbb3XIrR7E9coBXK3oR3a5FsqyPmS9 + 6GyWJCmIWSGgWpZfZ6DX/6tLpRqGgun1j2B5HnXm8s4tUhbg8S/ARXH6KN4F2D3zsLnnYbH5cLGkh6EQ + uSDgVs2QEHj8i3AzTOC+zPcwznhgI3jv6QZY3XMwzXqR+byboVC5YAXfl4tB7qzWTSMht1HAbdopHFB+ + xLRrDkarB+eedTEUJhcE5tCyuHjkPekNiDtRh9g0FXYeq8GO5CpsS6rElsRKjEx7cObJd4bWyAVB12jL + XA4v3ZW6xuc0is4z1HX/lQ9o1lhgsfsxPOXBqcdqhtbKBSuz32iFgOHeURvd+Z0YuWvYiri0WlgcPphp + gfpJN04Wf2MoXC5YpXzdJwSxdJjH3s5jH6rC1sQKbE4oR0x8GcZJoJtwQfGwg6H1ckHw5ZcaIeCRM4pa + UdE0TF39SCv4jFefhgQ8ZvVhwOxC6v2vDEXIBSFZpT+EwGBxY7dCBR0dHDQ7sSulGtpxB8ZmWeCF1uTE + 0aI2hiLlgtALJd1CMEldJ+w+mGhh3NW4BI5SRma86DU6cKTwC0NRckHYefo5uMwEmggcJ/A37MPIEvyT + PqHG6MThglaGov8SnH3aKQQG2rLe4hLL4vv208g8NnfWUHpG7Ui62/KPYLWiqKklg75verEaxx91QPGg + Han32sV9UwrbkExjJxW0CPigUqUmZp1cEEAJpYRTIigbKJGUKMpGSjQlhrJp6cnnAgFIvwBibLrgFu/v + 5gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGx0lEQVRYR52X51NUVxjGsXfTjNGoMRqj + MTrjJB/yMX+Bky9GsUskxpqoY0wcYywoqCg16mCNEizYMGIFBcGGiEoRpIMYliZF2QUW0CfPe27Zu46y + mZyZ3+zds+x9nue87zl38QJg8sro5IHOHSCfuw2rjhX3N9owbt5Vp5uF7jo9dHpa6KW/yuddiJsJq44V + 14U2lHjYuYLE8AtFCDtPzhUh9FwhQmMLERJbgOCzBQg6m4+gv/OxnWw7k4fAmFwEns7FppO5cqO3iRjp + vPJQlteKA5leS/emey2JuO8mbOqaF9oQA11F+P+M34/lYvelQrlZH9JlRuANL4P5O9PchA1cF9oQA91C + mVpG+8uXhK8vgLYXL01aiZMfOPmBok1j9eEcXH9YhRV77ybzPm4GfMNS3YQNXBfaEAPdQ7jcMl414NSx + GmjRDbSQXyMf4pmjFUlZVVi+Jy1R7mcYmBOcogQMPQPXhTak+XoEs9YyXp/aIk7RZqFVY8XBLPW92kYn + EjIr8VPEXTFhNLPZmPyTDg30lCaTIaJRyU8QlfQEkdfKcCjxMSnFn1dLcOBKMfbFF2P35UJEsO5phXVY + ti9dfU/M2BqacflBBRaE37rOe0pj9iOyQ9xMvM5AL+lsGWJAg8ssWJZbJdfTNzlfwEEWRzxQ37PzuqG5 + DaXVTTh/14bgmBwR+Ij0J7IaHRroHRijG+BS/yXJrz3GwQRJXsrkJXryIiYvwK4LBdhxPh+pBbUI4bb8 + PjwVPiEpmB10CzO23cTUrTfgvfk6fgi7LSIDiJwnnUxd80IbUqc+W0894hS0xHqtjdRNgiW13dmu0cJr + UmarQnZ+ETKy85CWkY2UexlITknDrHVRIjKQqDKYuuaFNsRA380ndQMUM5LvZ/K9cUXYE6fVfNeFfCbP + Q3hsHkLPPkLwmRxsP52NwJNZ2HIiEwHHM7HpWAYamtpQ89yJ5bvviMgg4tFAP/8T2ZwCWpjUScz0RmrO + OYzkfN/Y0o7nLW0aze14RlHpAYVDM7A0IkVEBhPPBjZGuwyo5PFMLjW/KMkLVM3DY3NV8iAm36aSP2Ty + LDO539EHWH/4AeppoPqZEz/uUj3wIZFnyBsNSIf29zum7WfV4SqtkVhqrtVapWZahbpmWpW8HfXySmER + ryUVNLBk5y0RGUI8Gnhr/dFMTgEOiquaS/KLBZaa57Lmj7San5LkmfCX5NHp8DuSzuT3sTbqHtZEpqHW + 3gpbfQsW/XFDRIYSjwbeWRuVwSkaMBKb9W5Ho6Bqzloztaq3BUldZ2/DUwoblNc1Y0GYMjCMyJOyQwPv + rtENWIXtFDSEVaMRU5iiGq0Ub1WpRbhGXhtpoLYZ80KTRWQ46dCAHBLv/Rapn2gUMzBE5VUTbsfXyy6i + rMahRL9aFKuSK3E+CwwDNXYnntQ2wTdEGfiYeDQwYNXB+5zSDLiWW0+tG0jNe4rJGxKU+K2cGnyzOp6i + +tLTQA2TVws0UEYDc7cnicgI4tHA+78cuMcpuIlLYmPJv5wfiwnzzmD83BiM9TmFMTOPY9T0aIzwjtaX + nQa496t0Sp82wWdbooh8QuSn22sNqB8jZODK/Wmcwmtq3Yp6CshST1qXoJJL4omr4nCDP0SM5CJeTSq5 + /YQSPpRmb034TwbklPpgxd5UTkGJWrtcdTjJetzAmp+luBMZJfWYMPe0JmxJXklk/1c0OFFU5cCsLVdF + 5FPi0cCgZXvucEozoCV3ba/xFJNlHy3LPu04Rnofw/ApRzBs0mHW3JXcEK9oaFEGZmy+IiKjSW/RMnXN + C5eBwXJuy1CpiaSWE01rsjYsDLmJ6KQSldg3MBlHEoq1huN7SW4YsNGAjQYKK+2YHqAMjCEdGpBTasiS + nbc5BSVuJDf2dkm1A1/4xqC4ys4bN2LcnBMorGg0l12Jq+SGASfyaWCqf5yIfEY8Ghi6eMdNToHJ3Q8W + A0kuS210uaq3YFl6SV7OI7i83olcmwPeG5WBz4n8ZO/YwEKe2zJE2BSXBtNR4hQyutwqbCQX8X/qNHJt + jZjsd8kw4LEHhsznuS1DHiJCeV2TOs2EMu7p0pomlJBibi9BmqxISkLyKx3Ir7Ajz2bHI6G8UfHtBmWg + wx6QoY5in4AL1+eFJME3KAlzg67hu+3X1EHiE5iI2YEJ3NNXMZPbasZmEhCP6f7xmEamboqDN5nidxlT + NhKmnkxhEZ/489E7vPebn4a6CfWrmMiPR3lyjSRyeIzSkX0sW0mQNNJUwlgdWWJhHBlvQf5WxPuSLm6a + bm+0ISZkJcSpnNtiyECW701Ic70J+Vzup/45cWnC61+djQbFjwHzuwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACh0lEQVQ4T5WTy08TURjFeRRQghhRschC + YjXU2EQSSEz4M1z7VlBjTFBjMCqEAEvBilBQHirB+EBcuHCrEVN5E5DSF4q0lFJKWuh0po8pHL9v7GjC + xniS3+ROMud8596bSUkqlUgj0pNoiIwkmURWEn5PA5CiwkptGHB8bHw3h4YBJ+r7nah740DtaxtqXlpx + 94UVt/ssqO614HrX2CB9n7U1IL1xYI7WwObmJjY2NpBIJBRkWUY8HleIxWKo6hxjx27iTxOWpv6tUzE/ + ++TG/zZhZdT1O5SJapN/6ebTaXbm0FIJyKx9ZVPqchNWOJpAOJbAz+AySnvK4RPCMDwuRSAswxOMoKp7 + ip25asC2e1SR98lNWAIFhCIyvrgmUNJ5HOMeG4pNx7AqxOEOSLj2ZJKdO9WA7Xf6ZpVD4iYsu9+Fsu5y + xWzoKIW+vQS6tqM40KLHgl/C1Y4Jdu5SA7Kre2cQiUTATVhrkoygFKfaZfCsC9C1GmDxeeALRTG/IuKy + 6fdtqAE5t55/gyRJ4CasgCjDvrqEYpq8uBZC0UM9ltej8K7HMEcBFa0j7NyjBuy40TMFURTpimaUAD4w + vakEh2gy1y40Hoa2+SCG3U44vCIutgyzM18NyK3qmoIgCOAmLD8dlq7NAPPCrGL+YDdTkyjcwSjsXgHn + HgyxU6sGZFcaPw9WGAfBTVgroRhNPoL5QIgm6zDpcdHpR+AirEsCzjR9ZWeBGsA/Tw5RxE1Y83TSP2iv + 330inATXttJkNlsWQzh13/w3gB/KItmEr+hK+zgutY2i8tEoLtB+zxuHcLZ5CKebzDhJ5hM170fo+7yt + AWoT/ln2EvnEPkJLFBD7icIkeYQGQMov4+d3kpW4uTIAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHSUlEQVRYR5WXe3BU5RnGQ8X7pdNqFbwM + KgoiY6d0prX9p393+ocznXYGbLyAiLUFS63T0tpaCkICIXcMJoCIVORaQYIokatBEmk02Vxgc9sECJtN + 9pJNsrezu8nT93nPns2JZkN9Z37Zbycn53me7/2+75xkAUiTqinCt4SpKa61cX2KG2zcmPq8TrhG4N9/ + rew6dsYGZql4UWXbyZLDnSg+3IHiyg4UVbaj8FA7Cg61oeCDNuQLGw62Iu+AE3nvO7FeWPefC8jdfwE5 + +89j7b4WrNkr7GnG6t3Nx3lju6idsYFZNDC1RITtNTo6OiEjIyMZ4e9Zq3Y16s1lOCFjA7No4FomZiWS + ozASSUSNuBKOGQhFSQxD4QiGQsJwGEHBPxRCYHAY/sGQjCMYCBkYjCSwcqfjGxu4rlAMMEE8MYJ9Z3vw + TdqxZr8TvV6fmAiLiThee7cBr2xrzFq+pSFrWfmX48RVNz0wi4vv+ny5OQ0w9VfbcbV6bbcTFR93oD8w + BN+Qgb/vqOfNp2Tnncn6bVndOHEyNjCLBm5gIhqIxGKamJUckZaMjKaJCwZbJL9QZLbIqzvPo7q5D6WH + LsA3bOBv27/kzblDpiwuOTdOnIwNzKKBGzmdNBCKRsF2sCwDRgq7gVjKQExYsaMZg+E4Tjf1ofgDJ1Zs + q+PNbxOmPltYS42rGriJW4ormQuN7WCNT20TF9EoiZu8sr1Jr/dL+hONHiyvOMeb3yXwvOC5oueEXDKh + AR4kN3M/0wBXN9vBSsj3Hacu4Z2TF4VuvH28C9uOubD1ExcqjnagXPoeNkbwx60Nej3NuINRHK3vxQuF + pxj9ToEzoe0QMhq4hQeJGpCtxXaw4vLdILbp1uSp9BERp4Gl5fV6fUjGwWgC3f0RfPhfNwoPnKfIDEHb + IWQ0cOvre0wDA7Kv2Q4WhbefYPJuSd6VSt4pydux6Ug73viwTQ0UybZ8vvQcFhbV4pmCs8je8BkWrD+D + +bnVeKGkhkJ3CDzWp6guf+jALDWwalcTkskk/MEhPV5ZTGyljhBb6pCRNInJWLjk7kNLWyccLa2oc7Sg + 9gsHTtfU4emV71KIrdA2qC5/6MAsTs1tK99rVAP9gUE911kUf0uSb6nqxOYqs+ebjrRJ8laUVraiWLZd + 4cHzyH+/BXn7m7BuXyNy9jZizW4HgnIiegcNvFzxOYWmCZMa+PY/5fikAY8/CLaDlU5vpZYZCFvJ5ftw + LImhWMIkmtRjmGtACSfQLwaWl9dSaLowqYHv/OPfpoFe34A8TMxtxYW2mT3/iMnbteellU5NXiDJN2jy + ZknelE6+elc9/rWzHgNiwBM08NImXQN3C3ykZzTw3VffqUcikYDbGwDbwWJqMzF7bvZaU0taRceSVpMn + McBPEaa4X3AHY1hWdpZC9wgZDXB13v7Xt79QA1f6/GA7WKawNd00kBxvQKCwGhAoHJCHEfELVwai+P3G + MxS6V5jUwB1/2WYauOTxge1gpVe6MEy059JrSf349p/hcjCgwvO2/jQlnoBPhC16/FG8WKIG7hP4BpXR + wPf+/FadGuh2e8F2sFTcSp1KPih83tOEX+59Uqe75pIDv9j163RqCnv5OSwGfFEsKf6UQjyMJjSgLyPC + nX/acg7xeByuHg/YDhbFLVGdbkk7d/MPMaf8B5j15vcxs+xRPLhxLmaUPoJ7S2fpk9Ay4JWXk4v+CBYX + qYH7hYwGuD3u4n6lgc7LHrAdLHO6Tey9fmLvfHx2sUET//y9X6G622FOuxjwSvJ+QgO+CJ7LP02hB4RJ + DUz7w5u1aqDjohtsB0uFI+MXWbOnC/O2/ETFHb0uzK34kW3axYC8kPSl6PKGsXDDSQrNFPhkzGhg+rKy + GjXQ1n0FbAfLEg7Ks56vWrM2PabT/sDGRzFj4xzcVzIb9xQ9hOmFMzU5xfsFjxxAxNUfxjPrT/xfBu5e + +sZZGIYBp6tHj0+WPXlAYOolh1/G7uZKTb3w4FLsdBwS8bHkHqFXxHvlEOrwhPH0uuMUeliY1MC035We + UQMNzi6wHSzrUOH28guugA+PVTwOl88r+DC7bB465LNfDFjJLfFeOYRoIDv3GIVmCTdRT3X5Qwdm6Um4 + KOdI9XP5x5G96oCcXjXUN1MLPt3fY3ucibnN0gtOvjO5ZcAtBngKtveG8JscNTBb+LoB/ZJ6KRX4zOZq + /THbwTKTm6J2cU2cSm1Nu4prcsuAgVYxsGBt1VUNsGiCrbhVuJ/tYLnlKO0JjHFZ9jW3VrfXxCWrvFMW + GunoE2TK2z0htLpNnML819XAxGvATqr0ubAo96NqnmBL5BBZXHQaiwtOyX4+hUWypbitns07oaubC+yp + XGmb9Dk75xM8ufaYUIUFa6pUeP7qo3hixZ4auefET8OvImW143aBTzAeoTzF2JoHhYdSMBEXFuH0PmJj + jg1eR/FbhGvSOnZRO6miCc6E/V9yTp8d9jMTN6fgmNfyPvovvKmDrP8BY65nAqtAJPEAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADBUlEQVQ4T6WTyU9TcRSFz8oBUHmUSaBM + ooiKqFWImmgiGBUpIpRZChR4jjiA8lAhDokuiCTGhYZEFCwiFCjQCgoFBxxAfeIQpwSrCSyMmNSof8D1 + Puq0cGHi4i6/d75zfnkgov865LV/gcH6DQbLV+S0fUaa8aOYWDNmWlv9llYef0nRh5/T0oNPSFM+bFpc + JotR+x9gwb77iNh9B+G7boOBcWQ0fkJ6w7iQUvfBpq0Zo3Wn39GqE2/kmMpn0pLyYWmRJMsMUmTJIM3f + e882t3hAmL3jJmZt6wcSzo1CWzOKjWdH5fVn3lNs9QjDr6WYyudYUv4YUQceIrJ0CAxKnEqcSrO235BD + imwIKugBYqtGEHtqRFxTNUKrT76hFUdfmJZVPMHiskdO8IfunJ23ELb9hil0ax8FFfaQOr9b9M+9CnBP + rDz2yrb8yAuKrniqdE1dpKSWDGLenrtgXSi6DCK4qCdVXXCNAvK6aKbeYvPZ0gEoqksPPbUzSAzSwtIh + gXV/pbIugkUbAguuIyC/W/DLtZLvlk7yzjLbPTNaAc3BYUXXvpBHYl2K4NRwpy5CGQwu7IHa0A1/vRUz + czrhk91Onplt5JFmsgu6JkyMtKBkUGbdiYHCdtzUhIp9CCrsRWB+NwJyuxi0wCerHV6ZbRpVuomEtGaa + oWuSpydfBuaxbnjxgMQ9SRkouKhXUhuuwT+PQT2D2R3wzGjjawWnSu66KzQjpZGmbb4suSUZ4ey5rV8I + Kep1BBp4oPwuO4OCLw/klWWGikEhtRnuuiZhenKjfVpSA7ltMjpctPWCq7YevC6/Z+F18LPE+emtDt8c + HijbLLNunCqtBYKuGZwYx7oyJ5Jr4iUFjpuacBHKIdAw8Z6y0tM7u11gUFKlt/BIzQ7WBafCLanB4brJ + SC7aOokhYcrGC5gcXyvzifDTW0TuSV6ZZvJgkHW54xVikFhXYBCuifXkklBHDBPDNCm+liZtOK+cCH5P + UUn8E+REVlUS60OnJtTxOUFO/An+/sDfftF/P8J3dnzf+chxUpsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAJB0lEQVRYR8VX+VNV1x2/oBZl5/HgAY/9 + vccii4gYBCSK4sYmyA4iIoiixiUoogHjgkFHrUtA0MoiSpQYFzY3YrW4oaaKayadpo1LU9tMO9H8Ad9+ + P+e+S0Gc6eSnnpkP9937Ped8vvs5SET0f8V7Pw7GoGFihKkRI94DRabMHTaG7f/uBwWDhkI6kvEbxmiG + uREWRlgagW+QY56i0BBFhvEoPyas7ZDC1nVKYWWd0sSyLsxViEcxRs+pvhSY0fz95oyWV+fm7H9KH27r + o6jNt2jK9gc0a/9fKHbPnyl6a39HePmNbbrk6lBeY4V1DChu6pZ1VAJcgcyjwxUYv6ZdCi3tkCYweIAc + FoxOrX+YlHvy9bX5p/5NM/b0U/BHZylw+WnyX9za7pPfuEU///BW3YKjHWFlvfThZ99S1NanNGnTIwor + u3Ndn3UojfewZsAjpiDXZjYLDFMgZNU5KWT1OZ4nyKG1eVbrq+ZcJs5p+xdFbrrK5GfIv+joAZbZMOD6 + MZjHgPvtDPnHaiI2P6bwikc08ZN+CtvYTwHLLrSyTGWcC6NMXDKahivAlrFMJp9UUqvNPP73/qwTP1Fm + 6z8ppvoeBa04Q/rM36ayHMSDY6zkhxnD2it1X6ZM/kAgtPyPFLC857Gl3xwDy6GEqUt641AFjENxu3lq + 48tr6S3/oLSjrynp8A/C5b4Lj2xjGchBZuJT2CbpC05IuoVfSF4LYKRYj3yxDljaXj1hw31BHrr+Gwop + u0fe+V/eZJmaAUUxd5gCsMQsbv/TzSkNP1Lykb8JRFT2kn9x23OWwe0gMDEUnpTJ82Vyz/nHJY/cYywS + G8M76vFrb78AMRC89g4FrblFmvhdO1mGfYQRgxUQrg/O3ekaf/CHnxPqX1JCHfCCAkrOkC6nrpTlwn2G + Re8nd8uWMxxzGOZ+hac2jFt7V5AHf9xHgR/fJq+C02/MdTH+yl6DjBcKmE377P6W2Qf+Sgqm7nhMPkVt + ZB+a5s1yWGYCl3vnt0peeTK5e46R3JjdWk4wHiPVodmGIBCvuc24RWNX3SB98XlSz9y+i+XwAsI9MKD1 + mJjqxx2o59jd34u6jtx0l3QLWh6xbMBtsNorT7baPadFrm1B3iQhu5FgmMew9F9x5cnYVTfJf+V18vvo + OhmWfk3quD2XWYZcQDgHBrSxnLL92fOYHX+iqTu/Y+u/o7Dym+SZ3YCuhKYywvNdYlHXTZI2XSZ2SWuU + nNMaJKfUI9hzlO+SC91+K3rJd/k18mHol/SQOrHmFcucGcKjmIgBBaw+3Pbs5+iqb2ly1TOKZoxf20vu + GfVIcaEAiN2NxMJqWJzBxEwOYmcmBrlm3u+wp6mhsOuYYdlVtvz3pF96hXTF7IHE2rcsc2UMVAMGFLCO + 2vKUIjc/ocgtTyiCnyGlN8g19eCAAgPuVoiNFgvieTIx4JhyGHua6BZ1teiXXCHvxV8zesijoJvsEw8i + 89wYaNNDFQivePB8UiV3sspH9MEnDym07C5pU+u7WSZyYLjFsrsFcQoTJx8ScJhbjz1NPRe2d3oVXSav + wkvkuegiueaeIbs5e39kGRQY5gHLieV3r39Q8VC00YkbHhCaiWtW0wuW2TNED3ABsTHOTgPEhyUHQSyT + O/A7j5GeBV0vPQovkHvBeUY3adKOk23sjnssU3JgYIjaDVnZs120UJCjizH0Re1koZ/ux3LhssHEGna1 + bLFMrE6qk9SJdZJz+nFJFbHczX0hEy/sJtf8LnJd0EmqhDqymrweZwmqAFU1pBGZuc6qCFOIx6+XuxiX + EjnMrNrIcpxqI2V3M3HKcGKOr2SfUIv9TF1SDpe7MalrXidp57eTY/pxspl9gMz0s2cY95Ib0aBuBI2s + A5dfPAHicevuUlBpHwVxB3PPPnabZU4MeMFUibMgZijEqvhaSZMquqG5S0brHRBrc9vJOZtjH19LVtGV + 7SzTGvcZ0ooxRDNSR5WEB5f2vQkq5Q62+hYFrL7BdXyVHGZVVbIcuYDkMZWtBvFBQWwXX8PKiNiP0CTW + btDmniPnnLPknMXkCfVkPXPPL2a6mTNZbssQ7h/ELUKARMTmNo4zNuWOXdkr2qffij+IRmJY0vPWblLJ + PJY7MEQvVwmrayS7uM8lx9QW/sSKxVZPd8n66i2INZmn2PI6Jt9LY4LySljuwkBJK8e5qAL8QYbjUoFy + A9Sq6NI8j/zTb3yXMXmJ3ES8iy+Tdt6hfSyHG3ERMQE5noxRmpTGKhA7ZZ4m+7nNHPP9ZB27+5cxgfOX + sdyTgezHWkcG1kMJ8ccyYOW1Xp+SHrIOyY3kd2SpxkwbFqqK3dqkzT5JXFLkWXiRn+fJPukQfIecgCXi + DoA4O6XzwZXUICy2nrGXLMJL20aofKayXMfwHGNIjLNLaiaLKVV9/K4xrhXxUPkvu3xrLB8ahsXdEPow + cALiGcKIdpq9o9k99/RrtwVdpJ57hEb7JMTwd7jTyiooJ0aT+RVpMk6Rw9zmn2yi1rfx97mMaYxwBi6p + kXaza/ttExrJIvrT+/wOjyAZhRZq3+Lzfb6It7F36/jg8F58WVjtUcDNhOsZ5K55HUIB8/GLingd7noq + m4jSYsf0L8khFWgjh3knSZ1yQkbyFxyOVlIBSdyI4lmBqMqHvE7PQC4JBRz0RZ19hpKr4tDwLu4htFCQ + o4u55XMz4ZpGWblwdquTm8hiwtIyXodYOtpO3lAuiFP/S2wP4mSQtpIdEwOqxGNkG9dA5lEVOOKVO6Ls + AV1he59+iXxoeBZdIo9FsBrkstUuTO6cw6WVfZY9wHGMWIeOhjxwsp22o0ZttFoQG60VSJSJAbsEVmAO + ey+yAh5AXogQIAlt7eP33eTaFqcVlxejhuzigM950QGR0TazOKtn7RNJZhm9CWcuklVtEbWxwXL6HrKc + vlvGtN1kwbCctossYobDPOrTb3gdqkGcB+IyykA88dGD4WUEEhGaAoiZAswBOVyIckJvwHycGQGMQEaQ + EcGMccYngDshTkOUvShDDCiBUEARuAXA5u8CZHhCjvnYAMBvRY6ruwLlf8bBwHesxzqTIe2QBxrKr4Ey + 3if7nyAi6T+uieRuQmjK2wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACgUlEQVQ4T22SWU9TURSFryJEkQajGATR + 3+QzTiEYhxiNQ9CE4CyihDCUUmvBEoyFIhQoEh9AsNZCBYkIIgVLMUItc6Ht7Uyy3PtUzTV6kpV7Hu73 + rX13KwGQHlrmpLIu90CZZQ4POt0o7ZjFPbMLd9tduNP2FbdaZ3DDNI2SZieKjVMoahyzSZKUxqwQ0NlW + 1jVHV6DplUM8/3fqLXbxvNY0yVA6Xf8ItpdScyPBIj0OGHqG8PQlZxAN3XboCdZ32fCk04arhgmGMpSC + lPvmWbqCQAdCsS3I0S0EKf5IApvhBDYoDHs3IrjcMM6QSinYwd/Lh1tlEgSjCfgJEnAoDp+cgM5shccX + xsX6TwxlKgWpt2lZQtA9iAC1/m72Ebwux7EWjONxuxXf18I4r/vI0B6lIO0mbZkPLyo5MrWGEgJepawE + Y9C2vcG31TDOaUcZ2qsU7CxpcQqB3vIuCXMrwwSuUPtyIArNi364V0I4rfnAUJZSsKv4+ZQQ8KLWaew1 + OZaEAzEs+aNY9MdQ29oP15KMQvUIQ/uVgvTrzyaFQNfxlkAemVuTsHczih8Utek1ZhZlFFS/ZyhbKcgo + avosBFradLI1JloZ9lAWNqKoaemD0xvEyUoHQzlKgeqKYVwI6mhRopVgbvUQuOCLYJ5S3dyHL54AjlcM + MZSrFGReoj9HXdsALYrTL8ZVm/pEK4fhKiOluRdHywcZyvtLcEE/RleIRbmXZbEs/t5pGpnH5uYqYy8m + 5v3If2T/R7C7sNJqP0u/7xnNKE7VjqCwZhgFVcPie09UOHCMxs4vtwv4SHHnKDH7lIIUioqSRcmmHKDk + UHIpByl5lEOUw7+e/F4qAOkneOTD2dvHcmkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGcElEQVRYR42X91cUVxzFscVumjEaTe/l + T8mPsUSiIRqjiSbqISY5iWk2pO4uEaXpQUXRiBIBEVBBqqjYGyJEjwldirIsuyz4zb3vzczuemQ375zP + mbez7Nx7v/N9b4YwEbF4ZIwIwcgg8PuA4a/jT+AHPcyLjzYY48cTBmMNxvkx3jjy+1EgwIS/jj++iR5K + 3JF/qzSxoFEcR0B+o9jzG8Se1yC2vFuSkHtL4nPrJf5wvcSB2L9uSkxOncQcqpMN2XW80FOARkau2Xkl + LHLH5bCVaRfDViSfDxC2dK2JHjQwmsLm2J5XbcxCj5/31UlKYQMvNhGMCo+pDDNZmlQbIGzim+hBA2Ps + SM0x+PChpOdWyuCQiHfoocUA8AySIY1X8+Oe61JxtU0i086W4zoBBhY7zgQIm/gmetDAEzaUOz2vClQq + A+m5VZLG4+FKSSM5FZJ6uEJScsol9VC5pBh8v+uq3O8bkLIrbbI6tbaU1zMNfJpQowT8xZWuNdGDzTc2 + Afeag2kpHpjal96N1P1kQBOZcUX9rrPXIyWXW+Wb5LM0YTaz1Zj4k6AGxrHJOCjK1N4hlNg04DUwDUDY + 5RmSPrAq/aL6Hc819/RL0YUWWZZYXYFrsjEnA66QABOPMzCenc1BA2ko9YAy4LvfVvJHDCxPvqB+58S8 + p98rd9pdcuRssyTkXKfAS2AKYDWCGpgQk2MYQGLeb6vRmBq4MHdRWDEIcTIkNizLzxPPSIStRhbGV0t4 + bJXMi66UuVEV8oXjFEWmAu4nIyxda6IH79PE6IM3cEqUYCoMMLGZ2hI3UjshrnBjDu42t8m1+ka5dO2m + rLVlSM25S1JeUysLfs2kyDSgboOla030oIFJUdmGAYilotMtcQhTtM84stSaQekFD9w49g/KfYVXEved + kB6XVzoeeGR1ymmKTAchDUzeeOAaTom4IbQNy8syQHEKKgNGcnzuhfADt1dDcYiyBxxZx6WnTxtYmVxD + kRkgtIH1+30GUg6W60YzUvuSI60SNoAgU/fAAFMTOwx0w0D7fY98vVX1wAuAz5BhDbBDp6zbp9czhbfB + gBbWaRW410ocYgrDgBLG524eIWzPOiadOLbAwIqkaorMBCENPPlb1mWcEnWvt2WXWYl1uWnASG8aAP7J + mbrLOSD2vTCAY3O3W776o5Iis0BIA0//knkJp2AAgknZJw1xDZvNLD1Lru63H1rcK/cgbNtTrI5NXf2y + zKEMvAj4pAxq4Jm1hgEKbjUNmKmN5Ox0SxiimgGVnKkpnLCnSO71wkBnvyyxl1PkZRDUADeJZ3/aZexo + ENtyAAb8RFW5lTCOEO02RJmaKHE8C2ggPrNIOpwe+afTJYttysArIKSBqT9knMcpw8CfpUa5jdSWAd+9 + pminKrsuPQ10IHlCZqG0w8BdGFgUV0aRV0FIA899t+McTokqOQ3ocgcKm8nNcpt08EgDWPtxMNCG4517 + LomILaXI64Cvbo81oF5GwLQ122txSlS5E/eXWMK8x90Q0OX2F0fJWXYjOcXbaWD3UWnFEryNh9LC6JL/ + ZYC71PORaWdwSpRo4n69nZrJu0CAMI5KVKGTM3UrDew6Ki09Hmls65MFm09Q5E0Q0sD0VamncUobcHA/ + VyU3m8y4z0Sl1uLtCp2cqbn5xCoDbmUgPOo4Rd4CE6hl6VoTn4EZ3Lc5lAFspyo10E3mM8DEjxpgcp+B + AryYuKWh1SnzNykDb4OgBrhLzVyRdAqnRG2pDmyn1vLyg+IqsZHaLLsSR9lJ7E4a8Eg9DMzbWEyRd0BI + A7OWb6lSDxLu5TZsp9zRbHuLsbFouL4VuwvRaJpYNBxLztTRO4+CAtlMMsgRmbteGXgP8JU9uIEvsW9z + MDUNqNRIqprMTIykTGuWW2EkZ+om7P8U/7fLLXXNvTJ7XaFpIGQPzFyKfZuDDxEmbupyqd2M3MWavtPh + ktvgbywvwiZrbHNKA6hv7ZP6FqfcbHbCQL7caOpVfPS7MhC0BzjUVhyxqaBiia1MFseXyaL4k/JZ3Em1 + kUTElMrCmBKs6RPyCZZVeBTYdEzmbzwmH4N5G4plLpizrkjmrAdIPRvCFP/w26zTuPbwT0PDhHorBnx5 + 5JPrNcDN4w0DrmMuJcI0bCryrgFLTN4HH/jBv6X4JDAqQDPggx40wUrQKfdtGjJh+YaDzTUc/J7XU/+c + +DQl7D9XViR7G/w7EQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAoFJREFUOE9l + k2lPE2EUhRuCgivrD/OjikvUaJRojMYlEjVqZCkBLCDQtIBGRQVLCwWUyGKhC0WQfbMoSwtK6XQBOi34 + 5XjvO21j45uczKTp85w7t1MVnZSKdpflWccPlJsXUda+iFKTC2rjdxQb5lHYMocnzbN4/G4GD5umcP/1 + BO7onTbi0gEwr0qtIDh+Wq0zsbv/T7NlQlzvvhhj8jDdCsG+8nZFsBX9g8buUYQiewjJuwiE9+AP70Ki + +Laj0Hc64Vrfwq36USaPJARlbS7R3Ng9ItLwifJxGPVdFLoyqOscgq5jCNoOB27ovjJ5NC7Yz8/LJyTv + ETycaPbtKM2blI1QBFrzEBY8IVyvG2YyIyEoMSwIQZDG5kYeWdreFaA3Bv8ORlDXZsecJ4irNY4kQVph + y7wQcGt9lzPR7N1iOCrgdUqtyY5ZdxBXquxMZiYE/DPxkQjUkWCTQAVWmn8FIljzy6gx2jC9GsSlSiuT + WXFB+qO304qAWnlRG0mwLGCPJOO50UqCAC5UDDKZHRccePBmSgi4WWt2KCCPHWtm2M2CViumVgI4V2ZJ + FhS8Ul4QHrvObBcjr8ea3VIYq74wVjbDqDZYMbnsxxn1FyZz4oKD916OoalvnGAHattsqDFRaFweuZpa + RQyDqPwwAA3lVEkfk7lxwaHbDd/EBNzK8BqP7JOpWRbNy94dLFEYHv8pIa+oN1lwUz8iBHPukNj0DG2a + l8XPO8mhsSeWJGjeD2CMBCcKe5IEaflVFsu1Wify6QW5XGXDRY1VbPo8LetsaT9Oq/uRV9yLk0U9OP70 + M44VtNqJS/wXUijp/AElI5ZMShYlO5YcSu4/4e+mAlD9BZ8ixU/vbELbAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAABgBJREFUWEel + l+lTVEcUxTWL5W7W/ysf4pKYWGqiWawsRiupJCZxZV8FlwBJTFQkAkoQUy4gi4IaF1RwzYCggqwzMIsg + +XBzzu3u4c0wDlVJV53qAaY4v3Nvv+5+M0RkBsZM6DloFjQbmgPNjdO8BJofpwVxWugR/87/+wJEP+Pt + AZiVW32vIf94h+Qe80lujU9yqv9WZf1xTzKhjKN3Jf3oHUmrvC2pUErFbdlRfku2/94uW8vaZUtZm2wu + bZPvD16X7w5cl037W+XrX6F9V+WrX67IF0UtTfAhBMPGAPAXs/NqOvBj7KhobLOf/ts4WNtqP4lsLLlM + M1bmeZriVzEAc/KQmiM8PiGhMaOf/rwkwScTEoxMyCjmUcwjXoWNAqEJ8YeeqoahoeBTGRx9KrurmmVg + ZFzu9QRlQ/FfNFsEsQ1TAOay7Aow9o+a07gEAGqcyBwKxJkPqfm4DAJgYHRcdh1tln4A3AXA+h8V4CUo + MQD7XY6SMzVVcvyiqpiqoS5IkdOx87LXqdpoT3WL7KlqQeoWNd4Ncd515JwUVp6Tz/ZeSA6QDQAOLblN + TICEqW1ylnsYaYdQbqYeRGomp5i88Eiz9I2MyZ2eUfl0z7MBuCjmcrUrAExYcpoxuRq7Xqsxy01ziOYO + wGNMU6oQ6Xsx3wbAJ7vPJwWYl1l1VwG8aYsIQHN8nuy36blJjn6rTM+d+WOrwsqz0ht4AoARWVfYQrOX + ocQAfM7jAYqPXZgseRjJYTocNMlpGi05jPth2OcBoHF+hQV4GJCPCpqTA3CTiQcoqjkvfpj71ZzGE9FH + TFOrsSv5uDF2CowZAD8BRuTDndMApFV6AGy5udq13za1PmJT+m3kys7ETvnlTfJoOCK3HgRkbf5Zmr0C + JQZIqbhlAKIln9DHy20sXGicnbEzN8YwtKmdeY8/InkW4GZ3QNbkNTmAF2kaDzA/Bfs6h5acKx2p+Wyr + uRqbksf3u1fNrWiOktOcxrnljfJwKCLtAHg/pzE5wPbDNw2APmZmlRPArfDEyQlgBdMeTW4AHgIg53Cj + PABAGwBWTwewDScah7fk3Nk0ebTfnsWm5aZc6ifyyCan+QMClDVINwG6ArIqq4Fmr0KJAbbiOOUwJed+ + Pq7bqkltNpboI6bylhzmMHTmLDuNFWCQAH5ZmZkcYMHmQzcMABK7snM/d6aTJbfGnn73WHOWm+acaZx9 + qF66BsJyAwArMuqTA/xQagC035oapxm2Ui+AMTazt+Sa3GPcPRiW7gECNEwCpNUlB+AtRgGsOY3NXg5T + FY2piElujV3ySXMI5t0wzkIF7veH5dp9v7wzHcCm/dcUwJkzcYE9TKYstrjUscnDmprGWaVnpJMAnX5Z + nqoAr0EEmBkPsPCb38z1ybvQCnCOT/Ybpuw3AHSVO2OPeRdlAWicYQFaO4fl7ZTTyQF4eeRw5jQt4Gmm + qY15NLUFiKbWstvkNn1nf0gyDp6Rjr6QXAXAWzumAeDNlcM8YgYgv6LJrvKpZTfmNI5ES26Mob6wdChA + nfj6ggAYkmU7TtHsdWgKAA+HhV/+fNkA2JLTWA+TZyafNO+iOeaouSok6QcsgG9Ilm5PDrBoY8kl2Xfi + iuSj7HlIzvQ8TKhcbKlUThnVINlWXOVZpUbsN5WOslNpSJ8GgLQDtZKKecm2k8kBNhRfwo8Ss8rzDjeZ + 1C6xij23/daSh2zykKbueBzS1L7HQQXw9WINoAKLt04DsL7oogJ4S87UsSWncSS60O7T3Pab5j6KADDn + nIr0nBVgy4lnAug+8PleA8DLQzuFE4wAPEioGyq/XKewsVzDym7V2a+rXNVh5aOGJHV/rc7UmwbAbUQx + AHotX7ezsY4313W7WuTjwma9w32AW8zavLOyJqdJ3sNxujq7QVZl1stK7Osr0s/Iu+l12GBqZXlKLZ7z + Wqz007IMi23ptlPa8yUo++ItJ9X8jW+r6uHDF1UGjgHgyynbwLdgfoFXZ97dnHiGe8UU8eLz7cQyx4vf + 4Xsh38AZ2HhbAA73ik6QRGLZ/q+YnB729Vxm/Auphtjafn1C/AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAnxJREFUOE91 + k1lPE2EUhhuCgivrD/NSxSVqMEo0RuMSiRo1sqa0gBYIUDEqKrVlaUWiIA60BSrYFCiLBVmlULoCXeDq + 9Zxv2mIvPMmbaZp5nnO+MzMKqjRVl0tSm+ZRZZyDsmsOlR0uVLT/Qpl+BiW6aTxtm8KT9048ap3AgzcO + 3G0asRCXCYB5RbqKYK52s1Nc/1dtkkNc77XYmTxKP4XgQFXXPAzmKbR8GcNLTs8otD02aD/b0Exp6h4R + afw0jAbjMG43jzF5LClQdrqEmcFQZA+h6C4C4V34Kb6dGLwUz1YMDaYhuNa2cLPxB5PHE4KDfF4uLQmC + EYb3BOzdoWzHsEnZCEWpuxWzqyHcqLcxmZUUlOtnhYDHZdjHnbd3BeiJw+vBKOo6rZheDeKaZihFkFGi + m5EF3TYaeb8zj70Rigl4jaLpsGBqJYirtVYms5MCfkxcvCgxMoEyLHd2B6L444/ghcGCyeUgLteYmcxJ + CDIfv5uUBaZh+bwpcETAqz4WDJIggEuqQSZzE4JDD99OCEEDCRIju3nseGeGVyjP9YOYWArgglJKFRS/ + ll+QeuMQ1qkzj7wW77ziC2PZG8bSZhg1HwcwvujHuYrvTOYlBIfvv7ILAW/ZHdwfmbsKmLLoIYFuAI4F + P86Uf2MyPyE4ckf7E629dmhIwJvWGMzivDxyjX5AdGa4WidBTSko7UsV3GoaFRNo2uXH5KRN87L4vOMc + Gtux4IP6gwT7bx9OlfSmCDKKaiXpet0IiugFuVJrQWG1WWz6Ii3rfGU/zlb0o6CsD6dLe3Hy2VecKDZY + iUt+C2mUTP6DkhVPNiWHkhtPHiX/n/C96QAUfwEWpsURSLt2ywAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAABf1JREFUWEel + l/lXVGUcxrXF427r/9UPuZTlUUtbPC2mp05lJS7sq4AYaFkokoIYarmwq4hh4oJrgKCigDADzIzC/PLt + eb7vfe+9M4zDD95znnMH5Pj5PN/3vcvMEJEZOGYiLyCzkNnIHGRuXOYlyPy4LIjLQl/47/x/X0LIM2yf + wKy82jtNBce7Je9ol+Qd65Lc2v802X/ekSwks+a2ZNTckvTqm5KGpFbdlO2Hbsi2PzplS2WnpFRek80V + 1+TH/Vfkh31XZFN5h3z7G7L3knzz67/yVWlrCziUYNkYAf5idv6xbvxojqqWTufT8x376zqcTyIbd18k + jJN5kVD8KkZgTj5a8whPRGXPX+0SehqV0JOojDORqIzhPIbzqD9hk2AoKoHQpGYEGR6flMdjk7Kz5pwM + jU7Inf5x2VD2D2GLEC7DFIG5HPshNN/zd7sKMLuP21yQsmNeSvXcJqVH22TX0fMmteel5Eir7LQBvLim + FTkrxYfPyvqfVeAVJLEA15sHWxPK5glbO82DiGkd9VprJtB+QpsXQ2Jg9KncxgS+2NWWXCDHESB4DwQS + ghGCNQ54BNBhjFvhBDsZhEAR2lPgVv+YfF7ybAFuirnc7SoASBlGHgMG0LYOuq0Rwq2AD0woU1R9Vh7i + fBMCn+08n1RgXtaR2ypAIJcgBo6zbU24bjYFm3Fzw/nhj5wUHj4jD4NPIDAq64paCXsVSSzA69wKcKNZ + uDvyMJoDOjJumhPqjhzgQQAHfAIEF1Q5AveD8knhueQCvMl4Am1u64CGcIKj7iWmrRVsRz5hwDbBp0Yg + QIFR+XjHNALp1Z5AKQR03ITrWtv1NuOOXW8TO3Y2tsk/1CIPRiJy415Q1hacIew1JLFAatUNIwAor29t + T7hziXGj8WzBFm7AADqtLbw/EIFAswpc7wvKmvwWK/AyofEC81NxX+fB1ryx+EduwGbk8ev9UOFOCMfI + CSc4DwL3hyPSCYEPc5uTC2w7eN0IoDHvau71TbBv5LHNKeAE0H5tbgTuQyD3YLPcg8A1CKyeTmArnmg8 + OPISCHhwb+wxm03HzdjWT+SB05zweyrQJH0U6A3Kquwmwl5HEgtsweOUB8ddUtuqt9Sh0UmntbmxuJeY + xj9ywAG0cI6d4JxKCDymQEBWZiUXWLD5wFUjgMZ8mOjYndZ23AbugH3r3e/AOW7CeSY4p7JReofCchUC + KzIbkwv8VGEECOZTzFtvH1zB5uwfuTb3gfseh6VvKCLZB5o8gfT65AJ8i1EBQO1TjPF2OcFMxDR3wLa5 + B0cA7wM4u6JR7g6G5fLdgLw3ncCm8ssqwNYU8EZuwXbkvvV2wLHNw9qaYAr0UKAnIMvTVOANhAIz4wUW + fve7eX1i6yK8QLiXl7vegHK9IaC73IJ98F7GESA4s6JBzx09I/Ju6unkAnx55MHW+hh1wWajuZcYwY6A + 21rH7jR32vcMhiRzf4N0D4TkEgTe2T6NAN9cebB1YbV5ijFml08du4ETHHFHbsDIQFi6IZABga6BcQgM + y7Ltpwh7E5kiwIfDwq9/uWgEAC2sajHgpM09eC/hOLtwDQXqjUDXsCzdllxg0cbd7a5AAQTcxv7WFk4w + 13sw4mseQmsD7n4UAjgk6fsggM8UWLL1ZHKBDWXtsvfERYXnM3iU5uFezuRWIrit5uC6zjnQaM7Y4dzl + mZoGrHe9jpytNYCn76tTibTyOlm8ZRqB9aUX8KPoyPkYnXqJsTk3Glq7ax5y15vN2ZqNux6N6zmt3JvA + 4pQTzxTQ+8CXu4wAXx7Ymo9QPsX4IGGuagJyhcGN5TJ2doeeA7rLNd1Ouphhbc4z87YRsDeiGAF9LV+3 + o7meb67rilvl06Jz+g73Ed5i1uafkTW5LfIBHqerc5pkVVajrMR9fUVGg7yfUY8bTJ0sT63DdV6HnX5a + lmGzLd16Std8Cca+OOWkwt/6/kgjOPyiysIxAvxyymXgt2D+AV+d+e5mw2e4P2wRH17fNhxzfPg3/F7I + b+AsbNiOAA/7FZ0iicKxPW/YnAzn67nM+B8SzdjjM3hpSgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAohJREFUOE9V + k/lP0nEYx52ztNPzD+vHyo5Vq5WrtVrHctWqhdcUFVGYoLUOWyao2GF5hAKmaSAeaJhTQQqRUw6xX949 + zwe+LD7be3zHeL3ez+cBcujkyvudxsaBX2gwrKC+fwV1vU7U6n+iumcJsm4HnrxdxOM3C3j4eg73X87i + jmbSTFwBAOZz8uQES0dvWkg/ZZ/uMXv6Cbj7zMrkYXoUgn0N/SlBZPcvOj/PIJzYQzieRDC2h0AsCT9F + +2ESvkgSTk8Et7QzTB7JCOr7nNBRM8Odg9PoGJxBxyd6/TgFLUVDcPt7ysA3qAcmcKP9O5NHJcF+vi+f + cHxPCKTm7ShlZxc+CsPeUALL7jCuq6aYLMwIanqWhSBEY2upmUf27yQFuEXxhhOi+XcwAYc7hKutE1mC + fFn3khBwK48sNW9FGN7FH2pW9U1gMxDHoiuEKwoLk0UZAX9NfPwE8n19BKbghIC5ua3PAjcJ5jdCuNRs + YrJYEhQ86ppPCfiutCxvFhwXzW29Zri2WRDEBfk4kyWS4MCDV3NCwM1qWpYAKR5qZtjtj0OpN2NjO4a5 + 9SDO1RuzBZUvZoWAx1YbUsvypJtd/pgAW3QmrPmisK8FcKb2K5OlkuDgvedWdI3YoCJYZbDQuBa0cqhV + qTdBqRtHS48JLe/G0Ew5VTPCZJkkOHS744eYgFt5WZs0Mt93g7Lui2FtKyrAVW8UtlU/yquGswU3NdNC + 4HCFResCbZqXxfe1c2jsJhLYVgOwkuCEbChLkF+hMBqvtU2ign4glxVmXGwyiU2fp2WdrRvF6dpRlFcP + 42TVEI4//YJjlToLcZn/Qi6lgN+gFKZTRCmmlKRTSin7L/zZPAA5/wAHucWNsJF1FQAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAABhBJREFUWEel + l+lTVEcUxTWL5W7W/ysf4pKYWGqiWawsRiupJCYRFwTZFZEIJiYqEkAhiikXdgQkEFHBNcOmgogwAwwo + kA8359zunnkzjENV8qpO9QxQnN+5977u9+aIyBxcc6HnoHnQfGgBtDBKi2JocZSWRGmpR/w9/+8LEP2M + twdgXsbpuzVZZzsl44xPMsp9kn76b1Xq73clBdpbekeSS29L0slbsgdKLLklu4tvyq7fOmRHYYckFLbL + 9oJ2+f74Nfnu2DXZdrRNvv4FOnJFvvr5L/niUGMdfAjBsBEA/MH8zPJOfA1fxXXt9tN/u45XtNlP5tqa + 30ozVuZ5muJHEQALMpGa1/jktASfTsvhP1ok+GRaxqiJaRnFOop1xKtxo0BwWvzBKdUwNDQ2JTlljfJ4 + dFIGRyblbt+YbMn7k2bLILZhBsBCll0Bnv6jAPlnW9RcjWOZQ4Eo8yE1n5THADhQ2qDmj6A7ANj8owK8 + BMUGYL+La9uRvFXT50OHAZFf3gyYZskrvww1yyGsqjOXJfd0kxy0YuKDEI1zoAOnLkk2dfKS7Ic+y70c + HyANALy05BBNoxOHUtvkLPcw0g6NTmlqLblV9qkGGRh5qrrdNyqfHnw2AIdiIaddAWDCkud5AVyv1Zjl + pjlEcwdgjVlymjL9Q6z90C0AfJLTFBdgUUrZHQVwpiEAmmMN99v03CRHv1VTEeY0Ztn7R55If+AJAEZk + U3YjzV6GYgPwPo8AQJ9DqVVIDtPhMZOcpqGS67Cx3F6AejVXgPsB+Wh/Q3wAbjJeAA4ajf0qmtN4Wktu + zJFajY0pzV3JqaySOgPgJ8CIfLhvFoCkkx4AmHLK1Vx77fptyh3ZbyOaK4BNnVUMAJg/GJ6Qm/cCsjGr + nmavQLEBEktuGgAt97TknmmywxYeNK7O2JkbY5iqeRggs7hWHvgnFOBGb0A2ZNY5gBdpGg2wOBH7Oi+T + ekrvcVdyY2xKHt1vHTQnW/I+GGeiAjS/PzQhHQB4P702PsCuohsGQG8zAJQ12dvLpI6d3PRbBdM+APRZ + gPSiWrkPgHsAaAfA+tkAduJE4xW5l9vkoX57hk3LTbnU6LctOY3Ti2rUvJcAPQFZl1pDs1eh2AA7cJzy + MiWfVIDBkSmb2uxo7hYzqb0lN8PmzFn2tMIa6X0MAKi9xy9rU+IDLNl+4roBsGXPKSWASe3Kbcytsaff + fdaciWnONa2wWnoHJ6RncFyuA2DN3ur4AD8UGADtN4x5oLiyh8zV2Kzekmtya2xSj0vqCQKMhwGSKuMD + 8ClGAbTkkzjNzGESnnIaUxMmuTV2ycPmEJKnFlRJ96Nx1dVuv7wzG8C2o1cVwKX2HiYzhi0qtTe5S51a + UK3mXQTo8svqPQrwGkSAudEAS7/51TxCuZJnn8JeruYsO81hyn4DwN1eauwx76EswF5bAQK0dQ3L24kX + 4wPw4ZGXS72/BKdZKLUxD6W2AKHUWnZj3E3BNPl4FcyD0jkQlCsAeGv3LAB8cuVlbjEcJvY0M1M+s+zG + nMZm0l2/mbhrgACV0vkwKL6BMQAMyardF2j2OjQDgIfD0i9/ajUAtuQ8zeInD5v30ByrM+90AEivAL4h + WbkrPsCyrfktcuRcqxpnldTrXq7ClpoBcWdLx+ZCpeEWSz1Ro7cah439ZsmTuR6rhKokCWvSsQrZc7QS + qpAVO8/HB9iS14KvEpryDJiHUrvEKvbc9ltLHrTJTb9d2Qng4+d+zAAqsHzHLACbDzUrgCt5RlFdeNJD + JafxRGjQumnOktth81E0fQgAJOfK7wqQcO6ZALoPfJ5rAPjw0AGx5DzFeJBQ11V+uUZhY7mKyW7T1a9T + ruq08g1r2Wns9KYBcBtRBIA+lm/aV1vJJ9dNBxrl4+wGfYb7AE8xGzPrZUN6nbyH43R9Wo2sS6mWtdjX + 1yRXybvJldhgKmR1YgXu8wpM+kVZhWFbufOC9nwFyr484byav/FtWTV8+KLKwBEAfDllG/gWzD/gozOf + 3Zx4hnvFFNHi/e3EMkeLf8P3Qr6BM7DxtgC83Cs6QWKJZfu/YnJ62NdzmfMvHv7Yr9ltSSUAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAApBJREFUOE9V + k+dPU2EUxglBwcn8w/yo4ogajRKN0TgiUaNGRgmglFGhoMYBUsoo6Bcp7YW2BFEpQ4ZFVmsZ3aUTvzye + 897ehr7Jk9w0/f2ec97bZtHJrjc4pBdDf1A3uIxawzJq+h1Q9f1GlX4RFboFPOuex9OuX3j8cRYP30/j + nnbCSlweAOazcuoJ3n/0ZnvqST7dIz9TT/K5/2aKyaP0KAQH6gyyIJz4h3B8D68/jyMUSyIQ3YM/mkSb + wQLvbgKecBIOdxh32n8weSwtqB1wQC/Z0fFlHB0Etw/Z0D5og3bQCi3BLGgdGENr/xg0faO41TbJ5HFF + cJD35ROK7SFIzdohq2j2RijUzPB2KI7tYBxLrhBuar4xmZ8WVOuXhIBhHpubfbtJeAjeobzqH8UWwZuB + OBZcQVxvHs8Q5FboFoWAW33Uquy8E05QcwKaXgluEvz1xzDvDOKa2sZkQVrAr4kPw/LIlhQcF80tJGDY + RZnbCOJKg4XJQkWQ96RzThYQzGMrO8tjx9CsN8Pli8HpZUEAl+rHmCxSBIcefZgVAo8yMt30JsFu2pmb + m3pMcJJgwxvF7HoAF2qlTEH5u2kh4LG3qFnsTM0MO31RNOlMWPdEseaJYGbNj3MqM5PFiuDwg7dT6Bye + pGZJ7Nuil8TY3NxIcGP3CNSfOEY0UM5UjzBZogiO3O2Qf6rc6vbH0dxjFvtuULiZwdWdCFa2I7Cv+FBa + acwU3NZ+F4IFZ0i8Jm7my+J9ZyjqLiOmV30E+zFFglMVwxmC3DK1JN1omUAZ/UCuqq24/NIibvoiXdb5 + GhPOqkworTLidOUwTj7/ihPlvTbi0v+FbEoef0DJT6WAUkgpSqWYUrIv/N0cAFn/AQqRw8jkNl5rAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAABghJREFUWEel + l+lTFFcUxTVbuZv1/8qHuCQmlppoFiuL0UoqiUlcUUFg2BTBSqKILEpAYxJBhs0lxgVUUNSwqigizADD + AJIPN+fc995MzzAOH/KqTnWDlL9z7r3vdfcsEZmFNRt6DnoJmgPNhebFaX4CLYjTwjgt8oj/zv/3BYg8 + w/YYeCnz5N2GrN87JfO3Dsk81SEZJ/9R7T1xV9Kg1Mo7sqfytuyuaJddUMrxdtl57JbsKGuTbaVtsrW0 + VbYcbZUfiq/L90euy+aiFvnmEPRLs3z981X5suBCEzg0wbAxBviLOb5Tnfgx8SqrvWrvkq/imkv2bvra + dPAKYazM84TiVzEG5vqQmmtsckpCE1bjUzIKFZ44JyO4joSnZNirMaNgaEoCoaeyv6JRhnAdHH0qT0ao + SRkYnpS7faOysfASYYshtmGagXksuxqY+FfhBFMEF9BAPBwKeuDUvuONgE/KExgYsPDH0B0Y2HBADbwM + JTbAfpf7m6Xw5DkprDqn0IKqs3KA99AB3OdXQr82qfZTFVSj7IPyKhpgoEHyjtVLbnm95OCag2t2eZ1k + l9XJ5/kXkxtIhwGuSHJPUpqISW2Ts9xDSDvIcuOaBwOaHGLy/uEJ1e2+Efls/7MNcCjmcdrVACAsuwOq + ASTXXiuY5SYcItwZADTvWEMM+BH0EGqHgU/3/ZXUwPy0qjtqwAtWAZpf2eTpt+m5SY5+q0zPc1F2Bzbw + cXkYHIeBYVmfe4GwV6DEBrjPpxmwqdnz4BiSAzo0apJHppzSYZtA3+uiyQF2ar8flI9zzic3wEMm3gDh + AYgDF1DwlGeLIbWdclPySR06llwVtCYCNDAsH2XPYGB3hceAKzcN4MppN/025XbJDdyIqXMw7d7khD8Y + Csute0FZl3WWsFehxAZSjt8yBgi3MsNmDhgOGtM7sIObfgOGa1aZPwLvC4TlAQUDN3uDstbX5Ay8SGi8 + gQUpONe5Agpmv6Ml5wEzYEvu+m2S20GzUgNIrXCAqfuDYWmDgQ8yGpMb2FF+0xjQbebZ3xAPmMTJbb8p + QLNK/YAbA/cJh+7BQCsMrJnJwHY80bjcWe7gTB67vw3cDBmF9AodF19JrUlNsIX30kBPUFbvbSDsNSix + gW14nHIpXM9zlvupgt3+jmwxlem1gxPsKzljkltw7xOj1p6ArEpLbmDhlpIbxkAkuek3odzf0ZJbcAQe + lj5AaSDzKAwArMkJHwhLz8CY3ICBlan1yQ38eNQYiB4srt8wgP1tyk6wuWrquGGjAZN6TOG9gEcM7PYn + N8C3GDXgAVNMnIMnWvRwCZvkFkwxMZVRbA1YePdjo2vdAXl3JgObi66pAQePlnxCH6fx/XapHZzgdBqw + qR28iwa6ArJilxp4HaKB2fEGFn17uEUNOHhkewFs9jeg7DcMuO2lYAtn2dOLaxROEewMtHQNyTspZ5Ib + 4MsjVwSu/Tapub9dvzW1NRDpt5adBqql26bvehxSdfaHpBkG3t45gwG+uXJ5k1Oc8iy7v71lN3CCzaQT + ml5Uo4m7+sekk/BHIenoH4WBQVm+s4awN6BpBvhwWPTVT1eMAQ9Yj1TIV+JPkDwK7wGUydOKqg1cZdKr + gY5BWbYjuYHFmw5elkN/XNSBy6JQdspXWqsnXCYOGW4zitNOseeqIzWy90g1DJy2Mveph60O/SlLt1cn + N7Cx8DJ+lOlTjmt0f1PseXTSTa9Z9pCkAuzK3vGIwv1DzAAqsGTbDAY2FPytBmKGzSozsr8JDkcGrZtw + 128aQFqFOri9qoGtp59pQM+BL/KNAb48tFF4gvEpxgcJy30DV55o1ykcLNcw2S16DeiUUzTQ3In7Dmow + Rm8ZA+4gijGgr+Xrsxv9fHNdn3dBPsk9r+9wH+ItZp3vrKzNaJL38Thdk94gq9PqZRXO9ZV76uS9PX4c + MLWyIqUW+7wWk35GlmPYlm2v0Z4vRdmXbK1W+JvfVdWDww9VBo4xwI9TtoFfwfwDvjrz3c2Jz3CvmCJe + 3N9OLHO8+Df8LuQXOAMbtjXA5T7RaSSRWLb/KyYnw36ey6z/ABa31VpvHhEHAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACbElEQVQ4T42Sy09TYRDFZ+9t645SWqj+ + JyY+YvQaEzVKomGBRBNXhhBEq9ViixIMglRjlACKEaOorFix1B2JBXkU2vpaCMGWZwv39pbjzHepaWJj + nGR23++cMzMfAfhn7324m/b0uMjf7dJrOl1U0+Ek313uiIO8IQfRnZHUWNtICpF3SYTfJtA6PI/Qm3nc + ej2H4Kv4mD9qw/5OF4qwN2zDVUEWaHufYqPydX1oBv4u5YzqDhcYhi/sAMO6h2FPQCMKs7PUplngtpAz + LGxwr29ZuPZiBjux9WobpiqG2RkCV7bsIro9nFACOaOArMAMCry6mceVwSl2dhLD5I04dYZV7MqABneL + Ru5mTiDzSgloO+exmstjhbvp2WeJTb6wU5wZ1nRPwCEwGEZFk6bTTV6WlLiusas4C5zJmmjsm4RXbdtJ + nqCmZq5s0XSB3QxXNPIIN4ZmlYDAmQ0DC5k1/FhcxreFNC5FP8rCSmEVuwgrgcDLGSUgrgKH+CoXnn9V + 3cB9vj+F+r4k6noTOPc0gbNP5lH7aA6no/ExxoiuDk4rgUw2j++LGQX+T53sVsmJmnlRUukNE19+plkg + BauwDZPbsAowzG37xHwluZS9KwvH70/ZAk0Dk6ONfRO43BvDxQcf0DCQ2oG3sVUC5uS8DAq8yn3snjKm + v/5+fX+yBJaPJf+DnQVmkZWchWW+0JH2CX5eRqCuN/nHWT6WRC7GLsKZdQOHwjF+XkZAtiwCWQUWlKtE + XsmZDBv4tW5iiQUOtH7i52UEah/PjZ6JxnGqZxYnuqbVsmTeo+2TOByJ4WBrDPtD49gXHB8FQL8B7R7K + EK/wS4cAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIj0lEQVRYR8VWaVTU1x0dXBKWAdxQcEVj + arY2adqT9kO/pB/aDzmn+eA5bVo1JtW6JBwXtGIwxkTFBUEERDCiiHHFfYs7i4AKiHCAsC8KyDIsM8ww + 7Pb2/t5/Zpyhtjmn/dB3zvXhzH/evff3u++9vw7A/xUv/PB/AccIYrTML/p+ONQ/+2/W3dl/sxYJN2oR + f6MG+67XIO5aNfZ+X4XYK5WIISIvVWHHhSrdtnOVurAzFbpvTpXpNh0v1W04WqL7IrlIN+foODu596x9 + vjc5e8yMG6ObuXeMLjDaRzcjioj00U3f4a2bHubtKiCB5D82SI7EmzWYF56lG461hwod5DNjfe/MShgj + pZhM+BBexEuE2zSSTw3T66Zu0bsKENc/NsLOViKzpBVfHC5MHS6Aw0H+0ZX3wApgRrRPO123T9uivxWw + yit4hIebrzw3ZbNeN/mbYQKk5DL6n/0DA0T/kOAZ+oj+Qc7ElpRydFkHkFHcinWHHrmI4Bg9K8735vun + 5iD80XwsT/slNmTNRWjmXCy4+Bv8Kn4m/Fd4JYxwdxsrIgI2DROw91qV8NuIbeQk7RUMaNh0skw902Hp + R2pRC9Yk5jtEyKKEb2Ckd9oHZ15HYIwPAvd447UYX/w6cRz+kDIb78ZMwYRFHiF8zj0g1Ou5AI6RsVdt + AgZJTpy59xQp2RpOZjfC2v8MXx4rUc+ImCZTL24UNCNob3Y2fy99lh6PIsbO2O6dHhjlIyvP9lvo8ZeA + dfq03yYF4v3kyZgY7JXOz8cEhLgKGBXNlMuwl1s5t7nvIbkIWJ9crJ7p5t+m3kE8NvTgal4Tdp8vk1XG + EHYR46dt1d/h7E14jP+z+/y3IgPw8dV34B/q1cnP/PzXDhOw57ImQHreQ+JTdH2COJ7ZgGOZ9UpAAnOy + +kABVuzPR1B8HpbH5WJJbA7+Fv0AqxJyZSUhHGmDOyGCJHhvvEkBK2/9DpOCvYz8/5uEZGGUXcDoPRcr + lAAh73Fy3d0/pKGPfxONzW0ora5DUWkl8otKkfOoCHcfPMTizcdlpYmyFuEWljNP1vXwD/FKDdioh/8G + Pdalf4BJa7wU/D7zzOD3eruAl3ZfKFcChNRKAcp5xhMcSXuM5NRaHL5dg0O3qnHgRhX2X69EwrVydHT3 + MZB9aDH2YP3BB7LSdEL2vIiQVkgFAiYGed77MOkXoCi8G+2DCUs8c/j5NHnGLuDlCPbRLqCbAqx0be4d + gJEkbaZutBrNaOnsQnN7F5oMRjQaOtEgaO5ATYMBq2LvyEpvEXL4jCekxHrCk5jqt8zz/ts7/TFhqSu5 + XYB7+LnS5wKII2l1SLpViT2XyhF5oUIh4nwFdp0vRzj/3sl559lS7Dhbhu2ct50pRdjpH7A1pQRbThZj + M7F6X/puri3nswiZ5rfc867MxKiJQa4h9NhxRttiQi697uoZgMFoQaQtG//N2HiynO2qFgY/QkTIdh0l + 58bSuIcuAjy3n9a2mEWFbUj1O/5yCV2Xo29giNtxiOEk+gdh7RvgMwOwcCtKm0Ssydqv0MmWCTrMvQg9 + VqqO7pVxWVL2SYQHMVIELIrOdRGgDztlE8DeWyjAyMWa2k2q5Iqcn0suNPJBJ3ISE8ZuJ3IGs50CQo6U + OI7uz2MycskTQEgmRi7c/cBFgPfWE0VKgJnk5t4hlq4CMRcKsOtcmXKtOR90kFtIbqbzLgp1kJO4w9KL + NpIbzD1Yc1gzZT+6l0al5ZFrCiE7Rc4KhwDfzccL1cNCbuoZVD9qaOlEOANmdSI/erfhP+JIRj2S057A + 0NWDVYnams5H9+KIOw/JJ0GUTCgRMsZ+faxAPWyyCYi7UoaI0w9VyjVy6bnNtfRcyu7kXpy329139aLF + 1IPPE7Q1hx/d21KKxbaIkHbIJaYb99VRmwCSG62DaKODukaD2l4WVXaN/EWuBZrzeiSlPkbi7TolYNe5 + ciyOycUnUQ/wceQ9zNuVjY92ZuFP2zPx+xWHDpBXgimHlW7CxiOPlABj9wAdDcLABWoaWrHtdKkKm3Pg + THQszrWTUHNtd97K37WarGjm3NTZjdLaRuQVlyM7vxgZOQW4nZ2H6xn38ceQw1KFWYTcGTq/Dcn5SkAn + 3XdQhDioqm/GllMlyrlZiFnyFzpP15wfpPNv5b2Sez+O75IxlysQdYmtPP8DD61iPGm34EmbBXUGM5bF + ZIqA1whpg25CaNJDJaCD7ttFgNGKysdN6lQz2dKu7XPClnbZam1MeyvbJc5bxDl/J3hK9087utHQYUED + iett5I9JXttqxpI9d0WA3IqyI3S+wXHpGesO5OLvB3Kw5lter/GZWBbxPb4+UazCJuQy251/l9Hg6Lnm + vAbxyrm8QdP5xefOt6UU0UghyTX3ta1dWBylBPzULuBlQi4POSjkRptJ/IR4b9PxIhi5JeVS0pxrh4z0 + W7aauLc7b1LOrWhUzruV63pxrWBGHZ2L+5qWLvw1Ml0E/IyQ7ai2glyhIkRCIX2Rczvwq6OFJLaV3ayR + a4GzkfMqtpM3kVzK3khie9mFWMpud15L8mri04g0EfAOob2d2oabDSJIxEz+8rtCRaztc17NQi59d+q5 + 5pw9Jxz9FtjIaw0k5lzTQlBEVbMJC8NTXQU4g0NESEUmhSYXqKC1UYAQu5SdcJRdyKXsDJ09cOLa7lzK + Lqhu7kIlBSzY4Xh/eH4vOwmQod5wg+Mz765PykdIUh7WHczF2sRcBDOoqxnUlfvvY0XCfQTtu4eguGx8 + tjcby2KzuMWymPJMFbRFERn4lP3+ZFeacr1gZyrmk3xuaIrcC4GE+78IsImQNkge5IVCLpAZhIRTDo9X + iNnEq4SEdQ4he/p14g1Ctpe4k5RL0N4mpNw/t0G+k/UkZyP/nQAZw8Mp97kzJKzOkC3lDEm4M+StWWb5 + TtbjZaRz+yfBzjHlbvBXCQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACr0lEQVQ4T5WTZ0+TURiGCUHByfxhflRx + RI1GicZoHBGFIKHMtgwFE9GooCCVCmWoyKoyBAodbwe1CHRC97CD4pfb5xxoYz96kjtp3vS6nuc+b5tF + J1uqsCibh39BMrQGsWINjQMWNHz8ibr+VYhkJlT3GfG414DKdwIedWtxr3Nhlrg8AIzPypES/D/n/is1 + I4/SRy44IFHsCSI7fxBJ7CLMEk8iGNtFIJaEn+L7vQNvJAmLK4I7L5YZeSwtEA9a9gQEdnxaQ/uoBU9H + LBxuHTKjWbEK6aAJ7nCCC249X2Lk8ZTgIOvLTji+i29GD5QGD6b1bviiSUzqtjCu3cKYxgV3KAGzI4yb + zxYZmZ8W1PebuSBEaz+hya3DZrTQZC+tLR4wokluQP0HPbaCCZgcIVxvn88Q5Ipkq1zAVp4S3JgUtjFB + kz2RHYypXfi84sToshPOQBxGewjX2uYYWZAWsNfEjp9WZn0l1LdJbuSd62R6iPoEVPfq4CCB3hbCldYZ + RhamBHlVPfo9Aa2c6vtF7cQ2dR5VOTC8ZIdi0Q67jwmCuCT9zsiilOBQxVuBC7y0ciPr269HrUyAizpX + 92pQ1aNGZbcaNl8MgjWIC2JlpqC8S8sFrDPvq3JihCazzoMLNgz8sEI+b8WmNwrdZgDnGqYZWZwSHH7w + Ws0F29S55r2OpmppqgZ2fxwV3St42LWM8jcqbHhi0G4EcKZ+kpElKcGRuy9XuMAVjMMVSMBJIOtro1i9 + MWx6ogRHse6OQrPuR2ntRKbgdqeKC0z2MH9NBrppdlmsr46F1tZu+AkOQE2CU6LxDEFuWZtSeaNjAWX0 + A7naNovLLTP8pi/SZZ1vnMLZhimU1k3gdO04TtZ8xYly+Rxx6f9CNiWPPaDk76eAUkgp2k8xpeSfsO/m + AMj6C+0txPhDr2qSAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGbUlEQVRYR7WX51NUZxTGNcWxm/p/5UMs + iYmjJpripBiNRkWlS1FAbAh27EIQUCOCsY0mSoeFpewidUGB3aUL+XDyPOe9d3dZcfmQyZ35zR1ROc/v + nvO+771zRGQOrrngLTAPzAcLwMIwFs3A4jCWhLE0BP49f+87gPVM7ZAA89KLWu4fvOmW9GKXpN9wSVpR + q7K/sEVSQUpBsyQXNElSvlP2gcQ8pyRca5T4Kw6JveyQmMv1En2xXvZcqJXd52slKrdadpwFZ6pk++lK + +SX7yUPUYQjKTgvAH8zPuOHGH/+/a+uJChbjk3mbRfGjaQEWZMCa1+irKRmZsBifkmEyNiVDuA/h7g9l + 1OAbmRLvyKQyCAaGJ6V/iLySl/5X0tIzLFtynrHYMsA2vBZgIR+7Bpj4R4trYRa1CS8OfGHFB7T4K+lH + gJdW8RegGQE2H9cA74GZA7DfvNTaCvCmwmoNTOGpoLWCACHF+/wTGuCnrL8jBzhgBbDNT5Y9lxNlbZJT + 2ibZpW45XuKWrBKXHLvtkiN/tKr5oZstknmjWTKLmySj2ClphU45cD0Ii5OmniH58dibA3AoFnLaNQAM + ad7rmwjiNXjI4Lj0DE7Aekq6B8ali/SPS2f/mHS8HJN28PzFqNKL4h7gRIAfjv4VMcCi1OvNGsB+zDl3 + 3JKt1m5Yt8pRWB+51SqHYX3oZrMM4nFnwDy9sMkyb5T9vzdISgge/7h4fOMI4JdNh5+w2Ptg5gBc56EB + bHO1VmAO2+6BCTXnlKt1wJzWxr4NuPtGtLgG6PLJd4ceRw7ATSY0QBZ6fQzWR2l9C9bsNaB1RpFTA6h1 + QaOk0ji/QZLzHLIvrz6ABkBwZ5dfvs2cJUBSfkgATLgHfe6BOfttW3cNjMHa9JvLzPTbQGvb3NU3rLB4 + 9+CYNHb6ZOPBRyz2AZg5QGJeowlgLTH2m71W82KYF9m9BrDmElPrfMv4Wp0kXK3D1hyk2zumARo6fLIh + 46Ed4F0WDQ+wOBH7Oi+vtb571HrCTDnogDl7rf2GaR8CsN/uFyOKi9C8d1hae4ekxTOkxfnUHAjwddqD + yAHirzaYALq5TOraPgjrdPQ7rbBxWr+T8x26xGidCOuEK7USdxlcqpGYELoQoBMB6hFg/WwB4nCi8bJ3 + NbO2LXP0PLi+Tb89WCWBfqv1sLRY5s2gCbB4BwO0+2Td/vss9iGYOUAsjlNeLM79PN1e2wUNgSlPsnpN + a67xeFqDmEvVOIqrZe+FatlzviqALlFQ3+6VtamRAyyJvlRnAugpNmn+M62xvu0J1ylnz601bve7FbY0 + 55bbDHh3dg8F9oc6BFiTci9ygL0XTQD7FEuFeQp6zbVNc+21Tjmta7BEx2FdA2B7oVKNo3IrZde5igAd + KB4IkHQ3cgC+xWgA6xSjeeiU66SH9LwHA0Zr29y2VrqI35qZUal57pUvZgsQlVujAewj1O530LpWYq3p + jkavucT2nK+U3bTOhfHZctl1pgKvYOUBWJxtq2nzyup9GuAjwABzwwMs3XmuWgOwOJeYW+1DdjZryjnt + nHJOuFoHzP3SSGBOHJ3mCTBAddugfJ5YGjkAXx552UcorXXK1dqecjPdtGaAqLMVshPsgD2Nfzv9TLaf + CtJmDWwVAnyWMEsAvrnyYnFim9O41QN7q9/2lHOV2P2mcQOMCc0dHX7dfNy95ndUtQ3IqoQ7LPYxeC0A + D4el205VmADWEar9hnU0rPfqurb6zQmHNQMY63LYPpVtMN528qn8GoItUeUakJXxkQMs23qiPBjAOkR0 + Lyd43PauZu8P7f1YYtb5b3rNlWJmxpgD3gEDrIgriRxgS44JwPUdKM7CuAdePJRRxbyAmMK6SbFwoLgZ + Wg3gMQGWx84SYHP2Uw1gH6G2tZrbxXVjMbujMUfxvuDuGLS2ilt3DRBz+40BdB/4OcsE4MuDg2CIOEg8 + SEid4pVago2lBpNdrXevTrnitnCRgWl8agLYG9G0APpavinzwV2+uW468kS+P/xY3+G+wVvMxoxHsiHt + oXyF43T9gfuyLvWerMW+vib5T/ky+S42mDJZnViGdV6GSS+VVRi2lXF3tOcr8NiXx5Ro8U92Xb+HOvxQ + pfC0APw4ZRv4Fcx/wFdnvrvZ8AwPhRbhcH3b8DGHw3/D70J+gVPY1LYC8LI/0RlkJvjY/is0Zw3r81zm + /As2iJvhGPhiBAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACsUlEQVQ4T5WT2U8TYRTFCUHBlfUP81HF + JWo0SjRG4xJQEAllsy1QBRPRqMhOWQrigyBWNsvSUrov0FIW6TIzbe1C8eV4vylt7KNfcpLJZM7vzLl3 + JotOtlzlUDePr0M25oRU5UTTiAONw3bUK62QDFhQ02/G814TqroNePpJj0cdmjny5QFg/qwcOZn/5zx+ + r2POk3QpAo7IVElAeP8PwvEDhJhiCQjRA/DRBDhS4Pc+/OEEHLthPHi7wpyn0gDpqCMJIGP7FyfaJhx4 + NWGH4rMdrWM2NKtskI1a4A3FRcC9N0vMeToFOMr6shOKHcDgEbDmDkLvFqBzCdBu8FhZ57DkDMAbjMO2 + HcLd14vMmZ8GNChtIiBIr/2SpY7b0aKyQj5qhXTYgqYhExqURvwS4rBsB3G7bSEDkCsZsIoA1neVUnUu + Htp1Hsss2cFBYw9gwe7HDh+DeSuIW4p55ixIA9ia2OEiCeprhWzEghfDZjQqTagfNKC2fw01vXpsE8Do + CeJG6yxzFqYAedU9xiSAJp3sy2HREaBkPxasPsyRZs0+bAUYQMA1+QxzFqUAxyq7DCLAH95P9h00oq6f + kvuSyc+6V1HVpYMnEIVhU8AVqToTUNGpFwE+Amgo+afNj3mWbPFhxuzFD5MXauMe3P4IbYjHpcbvzFmc + Ahwv/6ATAXu0Zwnr26dHdU8ytbJLiyedKyj/uAyXLwo9DfhCwzfmLEkBTjx8pxUBu0IMu3wcO1xM7Osh + bfqjcPsiZI5gwxvB6gaH0rqpTMD9jmURYNkKiWsy0aTZsFjfNSZ6bb2LIzMPHQHOSSYzALllCrX6TrsG + ZfSB3FTM4XrLrDjpqzSsy03TuNg4jdL6KZyvm8TZ2q84UzE0T770v5BNymM3SPmHKiAVkooOVUwq+Ufs + 2RwAWX8BwybDeahMmuAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGT0lEQVRYR7WX91NUVxTHNcWxm/p/5YdY + EhNHTTTFSTEajYpKl6I0G4IduxAV0IhgsIwmSodlabsrdUFZdpde8sPJ+Z5779u3Ky4/ZPJmPvNGVM73 + 88659743j4jm8TWfeYtZwCxkFjGLI1gyC0sjWBbBchv4e/zedxjUU7VtARZkFrc/yL7tpswSF2WWuiij + uEM4eKud0pm0G22UeqOVUopa6ACTXNhCSdedlHjVQfFXHBR3pYliLzXRvosNtPdCA8UU1NGuc8zZWtp5 + poZ+yXv6iOsgBGTDAuAHC7NK3fzH/+/afrIaxfBk3kZR/lFYgEVZbI1rbGqGRic1EzM0AsZnaJjvw3wP + 2hlTBEZnyD86LQwxvpFpGhwGU/QqOEXtfSO0Lf85iq1g0IbXAizGY5cAk/9IcSmMoobI4kwgorhPik/R + IAd4pYu/ZNo4wNYTEuA9ZvYA6DcusdYB3lRYrBlVeCZkLXAAW/GB4KQE+Cn37+gBDukAxvxUxQs6WeGh + /HIP5ZW76USZm3LLXHT8rouO/tFBR+600+Hb7ZRT2kY5Ja2UVdJCGbda6NDNECgOWvuG6cfjbw6AoViM + aZcAbAjz/sBkCL/CC4YmqG9oknqBb4J6wOAEdQ+OU9ercepkXrwcE/q5uJdp4QA/HPsraoAl6TfbJIB5 + zPn33JQn1m627qBjbH30Dpuz9eHbbZRdCutWyrzVqs2ddPD3Zkqz4Q1OkDcwwQGCtOXIUxR7n5k9ANa5 + PYAxF2uBzdm216fMu421ZQ5rZe9h3AOjUlwC9ATou8NPogfAJmMPkMu9Ps7Wx2CNfqPXDKyzik2/2fqG + k9JhXNRMqYUOOlDYZCEBOHhLT5C+zZkjQEqRLQBPuJd73Mfm0m9t3eMbDzNX/VbA2pi7BkYEFO8dGidn + d4A2Zz9GsQ+Y2QMkFzpVAL3E0G/0WsxL2LzY9JqxWxdp4+uNlHStkbfmEL3+cQnQ3BWgTVmPTIB3UTQy + wNJk3tdx+fX67hPrSTXlTBebo9fSbzY1/Xa/HBVcAOb9I9TRP0zt3mEpjqfm4ABfZzyMHiDxWrMKIJvL + tKztbLbOlH47w/qdWuSgFG2dzNZJVxso4QpzuZ7ibPRwgG4O0MQBNs4VIIFPNFxmV1NrW5tb/VbmptdW + v8V6hNq1eRvTyqB4FwJ0BmjDwQco9iEze4B4Pk5xoTj280xryputfodZX2ugRFgzcZfr+Ciuo/0X62jf + hVoLWaJMU6ef1qdHD7As9nKjCiCn2LT6z7Dm9W0mXMzRczFndL872Bbm2HLbGNxbeoet/aGRA6xLq4we + YP8lFcCcYulsnsa9xtqGubLGdMO6nuK5x7GXANterBHjmIIa2nO+2qKLi1sBUu5HD4C3GAmgTzGY26dc + Jt3ec21tzI210AOCembGqP6Fn76YK0BMQb0EMEeo6XfIukGsMd2x3GvV7xraC+sCNj5XRXvOVvMrWJUF + iqNt9R4/rT0gAT5iEGB+ZIDlu8/XSQAUxynmFns17cYaU45plyk31pZ5kJyAzYGjWz0BBKjzDNHnyeXR + A+DlEZc5QmEtUy7WZsrVdMM65jxzrpp2M7vYHsa/nXlOO0+H8OiBreUAnyXNEQBvrrhQHBhzGHd42V73 + 2z7lpt8wbmZjAHNHV1A2H3e/+h21Hh+tSbqHYh8zrwXA4bB8x+lqFUAfodJvto5l6/2yrnW/MeFibqyr + 2PYZ7WDjHaee0a82jESty0erE6MHWLH9ZFUogD5EZC/X+7nZ1cz+0DnIS0yfB6rXWCl6hxRzBncGAVYl + lEUPsC1fBejTR6g5SLr5br14CGOCegFRhWWTQmGruBpaCeBVAVbGzxFga94zCWCOUGMt5qa4bCxqd1Tm + XHwgcncEuri+S4C4u28MIPvAz7kqAF4eHICHCIOEgwQ0Cn5qALyx1PNk18ndL1MuuDUu4AvjUxXAbERh + AeS1fEvOw/t4c91y9Cl9f+SJvMN9w28xm7Me06aMR/QVH6cbDz2gDemVtJ739XWpf9KXqfd5g6mgtckV + vM4reNLLaQ0P2+qEe9LzVfzYV8aVSfFP9tys5Dr4UIVwWAB8nKIN+ArGP8CrM97dDDjD7cAiEqxvAx5z + JPg3+C7EFziEVW0dAJf5REeQ2cBj+6/AHDX05znN+xdjopNTXXSZoQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACr0lEQVQ4T5WTZ0+TURiGCUHByfxhflRx + RI1GicZoHBGFIKHMtgwFE9GooCCVCmWoyKoyBAodbwe1CHRC97CD4pfb5xxoYz96kjtp3vS6nuc+b5tF + J1uqsCibh39BMrQGsWINjQMWNHz8ibr+VYhkJlT3GfG414DKdwIedWtxr3Nhlrg8AIzPypES/D/n/is1 + I4/SRy44IFHsCSI7fxBJ7CLMEk8iGNtFIJaEn+L7vQNvJAmLK4I7L5YZeSwtEA9a9gQEdnxaQ/uoBU9H + LBxuHTKjWbEK6aAJ7nCCC249X2Lk8ZTgIOvLTji+i29GD5QGD6b1bviiSUzqtjCu3cKYxgV3KAGzI4yb + zxYZmZ8W1PebuSBEaz+hya3DZrTQZC+tLR4wokluQP0HPbaCCZgcIVxvn88Q5Ipkq1zAVp4S3JgUtjFB + kz2RHYypXfi84sToshPOQBxGewjX2uYYWZAWsNfEjp9WZn0l1LdJbuSd62R6iPoEVPfq4CCB3hbCldYZ + RhamBHlVPfo9Aa2c6vtF7cQ2dR5VOTC8ZIdi0Q67jwmCuCT9zsiilOBQxVuBC7y0ciPr269HrUyAizpX + 92pQ1aNGZbcaNl8MgjWIC2JlpqC8S8sFrDPvq3JihCazzoMLNgz8sEI+b8WmNwrdZgDnGqYZWZwSHH7w + Ws0F29S55r2OpmppqgZ2fxwV3St42LWM8jcqbHhi0G4EcKZ+kpElKcGRuy9XuMAVjMMVSMBJIOtro1i9 + MWx6ogRHse6OQrPuR2ntRKbgdqeKC0z2MH9NBrppdlmsr46F1tZu+AkOQE2CU6LxDEFuWZtSeaNjAWX0 + A7naNovLLTP8pi/SZZ1vnMLZhimU1k3gdO04TtZ8xYly+Rxx6f9CNiWPPaDk76eAUkgp2k8xpeSfsO/m + AMj6C+0txPhDr2qSAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGbUlEQVRYR7WX51NUZxTGNcWxm/p/5UMs + iYmjJpripBiNRkWlS1FAbAh27EIQUCOCsY0mSoeFpewidUGB3aUL+XDyPOe9d3dZcfmQyZ35zR1ROc/v + nvO+771zRGQOrrngLTAPzAcLwMIwFs3A4jCWhLE0BP49f+87gPVM7ZAA89KLWu4fvOmW9GKXpN9wSVpR + q7K/sEVSQUpBsyQXNElSvlP2gcQ8pyRca5T4Kw6JveyQmMv1En2xXvZcqJXd52slKrdadpwFZ6pk++lK + +SX7yUPUYQjKTgvAH8zPuOHGH/+/a+uJChbjk3mbRfGjaQEWZMCa1+irKRmZsBifkmEyNiVDuA/h7g9l + 1OAbmRLvyKQyCAaGJ6V/iLySl/5X0tIzLFtynrHYMsA2vBZgIR+7Bpj4R4trYRa1CS8OfGHFB7T4K+lH + gJdW8RegGQE2H9cA74GZA7DfvNTaCvCmwmoNTOGpoLWCACHF+/wTGuCnrL8jBzhgBbDNT5Y9lxNlbZJT + 2ibZpW45XuKWrBKXHLvtkiN/tKr5oZstknmjWTKLmySj2ClphU45cD0Ii5OmniH58dibA3AoFnLaNQAM + ad7rmwjiNXjI4Lj0DE7Aekq6B8ali/SPS2f/mHS8HJN28PzFqNKL4h7gRIAfjv4VMcCi1OvNGsB+zDl3 + 3JKt1m5Yt8pRWB+51SqHYX3oZrMM4nFnwDy9sMkyb5T9vzdISgge/7h4fOMI4JdNh5+w2Ptg5gBc56EB + bHO1VmAO2+6BCTXnlKt1wJzWxr4NuPtGtLgG6PLJd4ceRw7ATSY0QBZ6fQzWR2l9C9bsNaB1RpFTA6h1 + QaOk0ji/QZLzHLIvrz6ABkBwZ5dfvs2cJUBSfkgATLgHfe6BOfttW3cNjMHa9JvLzPTbQGvb3NU3rLB4 + 9+CYNHb6ZOPBRyz2AZg5QGJeowlgLTH2m71W82KYF9m9BrDmElPrfMv4Wp0kXK3D1hyk2zumARo6fLIh + 46Ed4F0WDQ+wOBH7Oi+vtb571HrCTDnogDl7rf2GaR8CsN/uFyOKi9C8d1hae4ekxTOkxfnUHAjwddqD + yAHirzaYALq5TOraPgjrdPQ7rbBxWr+T8x26xGidCOuEK7USdxlcqpGYELoQoBMB6hFg/WwB4nCi8bJ3 + NbO2LXP0PLi+Tb89WCWBfqv1sLRY5s2gCbB4BwO0+2Td/vss9iGYOUAsjlNeLM79PN1e2wUNgSlPsnpN + a67xeFqDmEvVOIqrZe+FatlzviqALlFQ3+6VtamRAyyJvlRnAugpNmn+M62xvu0J1ylnz601bve7FbY0 + 55bbDHh3dg8F9oc6BFiTci9ygL0XTQD7FEuFeQp6zbVNc+21Tjmta7BEx2FdA2B7oVKNo3IrZde5igAd + KB4IkHQ3cgC+xWgA6xSjeeiU66SH9LwHA0Zr29y2VrqI35qZUal57pUvZgsQlVujAewj1O530LpWYq3p + jkavucT2nK+U3bTOhfHZctl1pgKvYOUBWJxtq2nzyup9GuAjwABzwwMs3XmuWgOwOJeYW+1DdjZryjnt + nHJOuFoHzP3SSGBOHJ3mCTBAddugfJ5YGjkAXx552UcorXXK1dqecjPdtGaAqLMVshPsgD2Nfzv9TLaf + CtJmDWwVAnyWMEsAvrnyYnFim9O41QN7q9/2lHOV2P2mcQOMCc0dHX7dfNy95ndUtQ3IqoQ7LPYxeC0A + D4el205VmADWEar9hnU0rPfqurb6zQmHNQMY63LYPpVtMN528qn8GoItUeUakJXxkQMs23qiPBjAOkR0 + Lyd43PauZu8P7f1YYtb5b3rNlWJmxpgD3gEDrIgriRxgS44JwPUdKM7CuAdePJRRxbyAmMK6SbFwoLgZ + Wg3gMQGWx84SYHP2Uw1gH6G2tZrbxXVjMbujMUfxvuDuGLS2ilt3DRBz+40BdB/4OcsE4MuDg2CIOEg8 + SEid4pVago2lBpNdrXevTrnitnCRgWl8agLYG9G0APpavinzwV2+uW468kS+P/xY3+G+wVvMxoxHsiHt + oXyF43T9gfuyLvWerMW+vib5T/ky+S42mDJZnViGdV6GSS+VVRi2lXF3tOcr8NiXx5Ro8U92Xb+HOvxQ + pfC0APw4ZRv4Fcx/wFdnvrvZ8AwPhRbhcH3b8DGHw3/D70J+gVPY1LYC8LI/0RlkJvjY/is0Zw3r81zm + /As2iJvhGPhiBAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACqElEQVQ4T5WTWU+TURCGCUFBjbv+Lu+U + uMS4RSUaI4mJEDECFiyW0qASl5jIIvtWBFQ2G4QCKV0pLRSB7pTydaMr3rzOnJLqrSd5L+d5Zuack0cn + X6l2aBq+/EL90BoU6jXUDTgg719Fba8dsm4bqrqWUdlhxdPPFjxpNaG82YjSd9pZqi1iQIGSiv/3PPqo + B9UeZcCBenUWEEv/Riy1hygnmUE4sScSSmQgUXZ20wjGMnD4Ynj4XseAYwKgGHRkAVT4engVjZQwFajU + digH7ZDiabzsX4a814pANCUAD97OM+A4Aw7yvHyiyT1orAH8WAoI64R5C+MUNn83+vBV70UgksKKJ4p7 + TXN/AS96VwQgQm2rhshKZmk3I6x1fVZsE6C22wJZlxn+cAo2TwR3X80y4AQDCmXddgFg66Sw+nPWbwYf + tZ3GyKIXwzoPvKEklt0R3FbNMOCkAPA18ZHiGSgGbFlrjKw9S6gh8xa1XdVhQmW7ER4CLLkiuNkwzYBT + DCh61r6UBZB1LGdNYXTRgxGy+sNJDC24MTjvgnuHAWFcU2hygEMVbRYBCP5j9bO1k6xk5rYr2gyoaNXD + tZOAxRnG1bopBpwWgPIWkwBw26N6j5jVt29VL5BVSqB/zok+rRObwTjMmyFclk8y4AwDDpd9MgjAFrVd + 3WnOziol6emStS1rLW9ZRFmzDhvbCZg2QrhUO5EDHOFnyYetvlAKXirmWV37cQYT2NyOU3Ec64E4jOsS + imXjDDgrAKUfdAJgc0fFFVlpy7wonpVj5lDbpg2JikMwEODC87EcoLCkUaO53zSPkjda3GmcwS3VT9xQ + TuM6bZqXdUU+JVq+WDOOYio8Xz2Gc497tFQr/kI+hb8l/yx+mhx+YfxI+Jo4vG2el8NWDhXnFfwBZyzK + +jD5Z6UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGe0lEQVRYR7WX51dUVxTFNW3ZTf2/8iGW + xMSlJpriSjEaTQSVXqWIKAj2gg0iRY0KxrY0UZA6MLRB6oAwDEMv+XCy93nvDsOIw4esvLV+6y2Ggb33 + O+eee98iEVmEazF4A7wDloClYFkQy+dhRRArg1gVAH/P//sWoJ6lHWDgnbTi5vuHbrgkraRV0q63Smpx + i3KwqFmSQdK1Jkm81igJBU6JB3H5Tom92iAxlx0SdckhkZfqJCKvTvZfqJF952sk/FyV/HYGnK6UPaee + y885Tx5ChyYYdo4BfrAk/boLP/5/167jFRTjk3mTovhojoGl6UjNa2xqRkYnbSZmZISMz8gw7sO4+wIZ + sxganRHv6LQyCDwj0zIwTKak3zclzT0jsjP3GcVWA5bhFQPL+NjVwOQ/Kq7CFDUEi4OhIHGPik/JAAz0 + 2+IvQRMM7DimBt4F8xtgvXlpatvA64Q1NbCEZ2ZTKzAQIN7nm1QDP2b/HdpAim3AJD9R9kKOl7VJbmmb + 5JS65Nhtl4pn3WqVI3+0KIdvNEvG9Sbx4HGnlzgltcgpKYWzUJw09gzLD1mvN8CmWMZuVwMQYfLeoclZ + vBZM7R6ckJ7BSekmngnpAjTQOTAuHf3j0g5evBxTeiHuBk4Y+P7oXyENLE8ubFID5jHn3nFJDlJng6xb + LXIUiVnvTKQ+fKNJSS9plLSiRm24lMIGOfh7vSQF4PZNiHtoAgZ8sj3zCcXeA/Mb4DoPNGCSu/1MiBc1 + 7vZYyTsHCFID1ru9n6mt9G3A1Teq4mqga0i+Pfw4tAEOmUAD2ah1FlIfvdkimTeRGrUeHJnR1OnFTkVT + X2vQOicV1EtivkPi8+v8qAEYd3b55JuMBQwkFAQY0FpPSg+Sa73t1Fxigcmteo/DwJSmNslb+0YUincP + jktD55BsO/SIYu+D+Q3E5TdYBuwldgTJtdZInlGCehc36lLTDkdqoqkL6tBsExJ/tVZir9RiNM/S7R1X + A/UdQ7I1/aEx8DZFgw2siMNc5+W113ePpp7ULicdSM5aa6cjqam36yVqDQOtuGvy3hFp6R2WZvewind5 + xsUBA1+lPghtIOZKvWVAh8s0UjfKIaROQ61Ti5AY9eZgSUZ3JxY4FKaOQ2outehLNRJ9sVoiA+iCgU4Y + qIOBLQsZiMaOxstMtS6ttZXc1JvNxuSm1qberHULkjfbyZtAI6B4Bw20D8nmg/cp9gGY30AUtlNeFGez + pelUY5fXa2rWmwZMahLD1KAHBiLyquTAhSrZf77SD42TunavbEoObWBlxMVay4DuYtPWH7PLsb5Nh3Oy + seZWcmDXuwePmsk5cpsA787uYXsyjkktDGxMuhfawIE8y4DZxZKRPIm1xtpOwJrWWmNdx1xm6molIo9U + arMxcfi55xJ2tsJPB8T9BhLuhjbAU4wagDibjclNlxvcmI7+TkdipiastUmtdBGf/j2pfuGVzxcyEH6u + Wg2YLZSpZ9e2VWs2G7s7ArUm+88/l31ITQNhZ8ol7HQFjmDlfsxYrm7zyoZ4NfAhoIHFwQZW7T1bpQYo + btWa6QMmG1JzsLDbtctNrQH7xdntkwaC5MTRaT0BGqhqG5TP4kpDG+DhkZfZQplau1zXNBKjy02tmZqE + n6mQvYAGmPjXU89kz8lZ2uyGrYSBT2MXMMCTKy+KE5OciVvcWONITQOBXW7qzUarR2LC5I4Onw4fV6/1 + PyrbPLI+9g7FPgKvGODmsGr3yQrLgL2FRjE5UkdcqJQDuq5RaxjQDkdqYqUu19G8G4l3n3gqvwRgQlS2 + emRdTGgDq3cdL581YG8iOssJmsxMNTMf2gewxOz9wKo1V4o9ITU54B3QwNro26EN7My1DHCq+cUpjLvZ + fi3GFOsAYgnroKKwX9xqWjXgtgysiVrAwI6cp2rAbKEmtSY34jpYrOloJYd4nz0r9HGb1La4fVcDkbde + a0DnwE/ZlgEeHhwETcRG4kZCahWv1BAMlmp0dpXevdrlisumlXjm8IllwAyiOQb0WL4948Fdnly3H3ki + 32U+1jPc1zjFbEt/JFtTH8qX2E63pNyXzcn3ZBPm+sbEP+WLxLsYMGWyIa4M67wMnV4q69Fs66LvaM3X + 4rGvibyt4h+HFd6DDl9UGXiOAb6csgx8C+YXeHTm2c3APTwQpgiG69vAxxwMv8P3Qr6BM7ClbRvgZV7R + aWQ++Nj+K0xODfv1XBb9C8BzpIiXx0AUAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACiklEQVQ4T1WT2U8TURSH79/mlqhxSQwh + aqKBGCW+mpiY0IaWspSW0n06LasttVFEEBJ8ARRlK6CJDyYmJj6hQPdOO9PCw89z7nQAH87jd77zO/dc + MZpZXE68WkAivYB4+j3U6XmoqXnEknNQkrOITr1FZHIG4Yk3CI6/RnAsg0Aig5F4GiPq9LJguHl8gmbz + BI1WGQ2uY+jGMepGEzW9Aa3eRLVuoFIzUNYMlDQdPiUFwWaGn8b20KXs4nF0V4KPQjvoDGbREcjigX+L + Ghi479vEPe8G2j3rKFZ1eJWXEDw2W7uUvVOrTlbT3IQm7Y2WWZfmNjc3qMMTmeIG82jQyE+iO60GBBNo + jt2gsVswVanKpePO4DrylRrc4UkIdXrOBK3MBEc+/EZg8Re8cz8xMPMDzsx32JLfpLXARXC+XMNgcBxC + Sb6DwZnD2f/Hrp0z8+hktuBbfV+QK9UwEBjjBrPS3BnKmjCNfN5sT33Fi8ldPB/blnCOzDdcazgqauj3 + JyD4ndncEdg2M5PxLPOZOV+hIjhX0nC9dw2HxSr6RuIQfCRsfkhPZS1MZrbM41t4ltiUxfAR1TXHRxwU + qnD5VAi+MDZzZrZbT1WSec8WZsFsPqD6Sw16h2MQITpPNvORWDBvW268XKfMmlzYEUGHlJvNl+2r1KAC + p0eB4Nvmse8Ob6BMeSXMec9lNs0Es50aXLKtYj9fgcMTgfDTx+DbbvdsoG1oXR5JgcDb9FQ3+z7LhV11 + fpLwFTJftK3gQvcK9nNl9Li5Af2q03duWfM8NtVhycxrmity7D9kZthsEILwqaklXywlPwbf9lB4Ql4Y + H0m/f1Q+lWtYlQtzehU4hqLS3OMOwz4YWvoHubBcQa8+kQgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGx0lEQVRYR32XWVNUVxSF+w8l8SUpk4do + Kg+awQcrJlUaq/QPpGKVU6KAKAqCyowyCIgCMgkyIwgCMogmTiDGAZFBIDRTQ9M0mKqdtfcZ7r1g8rDq + 9Nu31t777HPbd6W+d0t+fU9ffn0v5df1UF5tD85unN2UW9Mlyqm5SznV0M1OymZVdVBWVTtlVbZT5o12 + ulRxR3Sxoo0yytooHcooa6X00lZKK7lNqSUtlHq9mVKKb1FyEauJkgobpxKvNWzxXanrmRydmqPVtX88 + Cq+6FH5PK6ta+B2ClvlcwQkFWaE1WjJaXqVACFoO0wJ+zwfD0Iqcc0srooGhCYKBSRjo9cIBceAbwUYG + rM41EcMFLPBVWmAwTAhcwMrA7GJIdOFqPfm47Ar+HnAF/V84Q8Nrog3JNVjgnF6Sm9RhmhX4Cs0APhNY + ofMFMJAHA2GGc9lFyoCBe8EqsTu1MWBSr09uSu6Fh8gPJRTUwQCG7YMlX2+A4dqAGyxiMBsIMtz0HNIl + V2V3kvtx+hdCFH/FGtBlR3ouN4P3p9ynfaI+ej4WoEFob9I92pt4j/Zc6KXdUP/bBdGPCT20K76Hfjjb + TTvjuujRm1l6ODRLO8500ncx0KkOBWewTj/NBvJr2UCXNeBOvh9gW3ork3xV9ZtLL/1Wsqm59JAp+zcn + lQEHviyKz68hXy7u+IcGbl+yMuCBQ3bY2IT0W5edew64GTqBQwzeFt3hST4dUAbO5lbDABaMlJ0FA6bf + XHZ7zwGV5DBgwM5VY2mwDJ02YHoO3X/pFyj3ncFTWnGXb5Ivp7rTA5bU0OBoQMG1gZzWcZfG7O+s22OU + 2TxC6U3DlFI/RBeqX1J85XMYUHCe+L4X0x7w1HyQJheCFCsGsFrdpRcDgPLAecvuXDXpuZl2ScynSm2W + jEnvB/DryDYp/dQ8w5dpkg1AZ3KqyMe73cJNyaGfMe227AB6KzBO2VBmyyhdbHpLqfVvKLHmFZ2r+oti + K57RqZKnque6319FtOn0QWVgLkgTYqCSfFl4WCxcp+fUe2DADJxnwyE1bzlJL32HFs2WUyVXiwaDJsMW + oq3H2IBKLdIGTmffYAPtruRYsbrsu8/3yjWTgVtXgSwkv3RrhNIa3lBS7Ws6d/MFxVUMUkxpP50oekwR + V/9UcBYSf3ms1cIZPMEGIDGQiSdVdruAlQlO3v92Xgx4em6Tu1as9B0Tb5Ob62aGLkhdz6cdAxr+bhYG + MitgAO+5pA+xTMlhYBgGdHouuSTHxHPy9MZhSq57Ted54m8M0umyAYoufkKR1x7S7wUP6EhuHwyg39Jz + NvC3hTP4Hc7x2SWKyRIDd2xqZUCl/gnrVeD6nstd1xM/x6mRfkYn9y/ijvOJxO7kJvUXR1qc5KIlZSCz + nHz8JcNgJ71KvSu+27NeM5tHKcPc9ZqXlIC7Hls+gIlH8sKHdKzgDzqa30eHcu/RwZxeddc5NbT5SLMD + B5irMIbz5EUY4M8ogS+znGnnh8Xec5x2vbruuO35uuSSHjCZduizQ82q9IBycpYyUEq+jPI2D9wM3M44 + ZUCt1jClNgxRYq2564NI3k9RRY/oOCb+t/wHdFgnNzJw1qcHm2kcp4GPz8AApAzgA9KkFgOy4VblSVW7 + 3STXu92khtQ916lRanfZDZyTtz+bUqk1WGmRojNKYABfrgLXw6auWVjec3vVbOn10Nklo8su69VZsQY+ + Afg4Bq59YHKdgUUa9S/SCTaQVnrblt2+aij5jtN3AeYNZ3Y7vmTWwcUAwGzCJofUsHHJVdk3HWiSnlu4 + MZDOBvDNbuEAGgPf40vGDZeHxRgwYIF7y26umTKgev7xr40CN2AjMcB/GEzZFVyV/duYDvmS2RbdTn14 + z/te+PGq3ZGHZevxNlmvj4dn0KoZ+vxoC20+3CLTzgPHPeeybzrQSJ8A/tEv2oCftUgjMDKCMyrtOvlS + tAEzcGbJmKEzA/dfS8ab3JTedd0Ac8quDfgDoshUNoC/SzY5w6XkWrbkeMvxWw2cM+3uq8Zw1XO1ZDw9 + 1yVXcKXh6QBFsQH+n8Y9N4/KhuSegXOS2/QAstSSgQFAJfmsTi2lZzinBnwacPwexhmRWky+pMImV8kV + 3CQ333Ab4OuSWzifklpJwHKqkjvpVQUilYHGwNPX7xQcYIEDbD8gAXSX3MDdPRcDDOXkAneSK6gxAAHM + 8M7Hr3gGAr7Ewobt+JM4yf/TRPi3kgDxn4b4vBo6m1ctX6+s2MtV8h13JrsSHxMV8pzGZJXTqUusMqzW + MorGehVhyfA1i2Jh2rnfPHRc9siUYopIKQodTy7a/i+me1ybYN4iXAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC7UlEQVQ4T22Ty08TURjFZ+vKtW4MO/8A + NsaEDSYaMe6UP0DcaYxLQ5SHCJRHgbZQhgIFW5AIVh4lKFjUaFAiyMNSENDWIn1Oh07b6XQ6bY/3Xh7R + xEnO8vedb75zLtc74nRZnk3BMjyFnuFJ8EMT4O0T6LaNw2xzoGvwBToHxmCyjsLQ/xyGvhF0WEbQ1jOM + Nn7IxVFYzWpQVQ2ZIykZqizSShayoiKVziApq0jICqSUgnhSwUEyDb3ZDo46U/irV8I7j8j0dkPE/EYM + LncMb74JmFuPYnYtglerESxsxRgsJtJoMT8FR9emrhSkX6FQQI5IyxeQ1fJQsnnImRwSaQ2SrGF6OYQD + AosJGc2dg3TABDJkZTqAcMgRUMvloWoFAucYnCRwXM5CTGXhXAoiJskQpBR0pgFw/NA4+1+69iFcQKVt + +b8SEiomvwTIgBSEeAqNhn5wZttLKORY82QAhdW/1k4q1FlFVEojGEvCH5Yw9uEn9kICQoKEho4+OsDB + rj3vFg5hNfeP64OBRbj5BiyWFZ1oruQsvP4g6tst4GjONCoXubaiHh2MOEvEOXIgY9lQh89Xi+ApP880 + e/EMnDcuYWvXhydtPeBoSVJplUV1DB87G5wbuGZaxU37L6bi+w4G9507Bc+OF3V6HhxtWFLOkJyjLCp6 + 7aikwDjtxnXTCsrtvhP4yh0Lg8fu3cauP4DHrd3gjKSeCTLgNSmJRKNKquxgZZ1buGz0oLTVjZLGNQaf + LqnE6N0KeLa9+B0RUdtsBke7Tev56bvASkJzdiz4YFuMYnAhAuvHEHrfBxl862E/Nnd8DN4nKdQ0d4Jr + Jw+DdjvO6ilDJCUJhGMo1RNn3Tou1K6guGoJFVVW8t8+7IVFBKJx7BNV6+gA8qpot2k9WcNIQSKiBH8g + jG3fHjbJtT27Xvzw7zPnAHGm8OEAIzg9b5/Rd9vZw6DdbjJZWcNoSerbe1lUda08O1htixk1TV3MuVpn + wqNG48wfMWFHGmzM7UMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHeklEQVRYR52X60/b5xXH/Qfs5V7uzfZi + 66RV67RMrdRNrapNi9ZuqdZpe1Gp7apkbbesndKUtmlCWa6QpAnXBHC4JYRLIIC5hATCZQFMuBtjA8FQ + 4hsGGwPmYmyS7rtzzu9iOyGoGdKXx0jA5/s9v+d5zvkZipt6XypqMvcVNfWiqNGMwgYzrT209qCgvltk + rO+C0USqu4N8Vu1/kFfbibyaTuRe78TF6g7Rhep25FxrRzYp51obsivbkFVxG5kVrcgsb0FG2S2kX2Xd + xPnS5vlzV268ZChuNPtc80uIbj1MUCQap8gDbEZV0ecwaYPXTVpJ66zwFtY0bUQRCpM2Ilihz8vrEdKm + rEtrmyLbzBzIgI8M9CbCCRKDPw7WpIGVdUvEcAELPIoVBpMJgQtYMRBcDYu+utwEA5ddgT8guALdEc7Q + yJboseQqWOCcXpJrqSMICnwTiwRfDG3ibAkZKCQDEYZz2UWKAQ2eCFYSx6fWDGipH02ulTwRHkaAdLqk + kQzQZtu25I8aYLhqIB4sYjAbWGe49sxJasmVsseSB2gNrISRVqwbUMtO6bncDB6eDaFzfOkRBdFhJ9mC + aCe1jS3itlVRi9WPWxbSiB/NpBvDC2ganEfXeEDSC5zBano/GyhqYAPduoH45Azc6eub/wIP6Vv0wTcI + 09+uUWVWNrYIFoU/FIVvOQJPcBMNAz4EKXUifEOUVlQPQwGd8e023E4Gvi3cGQjD1DenP3MtuT+kGEgt + MJEBumCk7Grptef9JANPA59d2EBdn1cMMJSfO4PnVZ26VAeD0XQnAczizfaoAWObR1c+KbfViZyb95HR + 9DW+Mk3hdM0kTlbZcLTciuTSYYHPzK+jttdLyZXEGnh+eR2+lXWcFAN0tcaXXgxQKt5s8V9Pm5zh0751 + 1PR61JKHCczwDfpdMkA6YayFge92HU7/VDlmiQYYrqXPa3Xhwq37yKTk5+sdOF3Lye04VmHFl1ct+OLy + ED4r6hc4m7hu9sSSU2oxsLSOOTFQA0MeNRYdrqbnc87HTIP/P8l55Z+rzW4driXXDBzPv84GOuOS0xWr + 3nDttsUEeF6rGxdbnMhqnkV6wzTO1k0htXocxyttSCmz4PCVIXxePICkgj58fKlX4GyqqselPHNVDJ5j + AyQxkEstVe52ASsm+Hbjy+Vpk095V0krcKia9i7hSuskplzzuOecw4xnAe5ASODeIBnIrSYD1M8lfZjF + 8KhuIB6eLTt+RnZ8Ws0ETtCOTykfxZHSERwqGcQnl8y4nHQQ43955olqef91TMx64SUDnuAajuWJgQ49 + td5Y6G5vsQa+ZfI1TLpXMJafium3noVr38+2VdWeX+DyM9/BkN1BBtYUA7lVMPAkw+BYeqWj8b0eDz+n + 7vhTtOOP0o5PluQDkrzkkwM7wiv/sEvg3Ul7cXfEJuV3k4F/XyADPEYJnEDS1VTdpIayU/Jp3xomnEvI + v9KMj8424NNqB/5VcQ9/L53A3mI73i6w402jDc/vy9bhdbufQ/fgqKRXDFTCkFPVngDnEYpbajN1s3j4 + qWo665XaWR/EQWMP3j1lwv6sdhwqs+JAuR37S8ext2QcbxfaCD6GX32Qg+/+7pgOZyO9VAHPIhkgKQZo + gNRSiwHp51HcGJp/4m6fdC/D1DWJkg4HKu56UdjlQXabC2m0UVNMM0iqcuCV/RcE/sGZOh1e/PkB2Kbd + AncvriIlp4IM0OQqcBkm1EGCxL18OzhfMmNfL+DjMhv+bLyHNy5O4NV0G359ZgQvHh3Azw+Z8fv0ER3+ + /L4cgRvf+RP6Ridwf2FF4K7AKr5kA1mVt/Wyx2a4CBoGfdvCeR2ZdCvw3Am8lmXHb85Y8Mvjg9h12Iyf + HLyDH/7jtg5nI3lv/RFmKv0sTd8C1wxkswGa2XU4gTUDXfaA9HITtVPuaNxUWNfpas03DeLhQ5qgIlS5 + UAgLfj+cLjcmJ6cwOmpFX/+ADn/9w7PoGR4TuAbWJAb4hUEruwKPzXA8OsdPMtLPqbNZ7PewJ3scvz1v + xcsnh/BC8l38NKkbP/qwHd//2y1876+NAt/zzzMK3BeU5+4KsFbhJCNOWpOzymHIUA0saRMsg+OGyBg8 + 1tNtjlm8k9WFl1OH8UJKP577rBs//qgDP3iP4O82Yte+ErxxIB09Q1YVrpVdNUDXMetIJhug1yU9eVxq + kcDVXk6ftWHC7V+GZcKB7n4LOs0D6CC1k9q6+9F5dxi9Fjus006Cq89cLbkCVzTrDyGZDfB7mrw0CHyb + 5Oo0I+njupre2ehWY3npYvHQymdcuWjU1FJ6hnNqgvsJTp9naT2cWQbD+dKbcSVXx2cVrM1wj8HVdipd + TTqbCudVzrgiAcuqlDyWXqnAEcVAc8g6TYMjwwkscALrAyQBdTjBNLiABa4aYCgnF3gsuQLVDJAIzPA7 + FgfvgZDhXOmN3fSS6OP3NBG9rZwm8UtDWmE9UgtNMr2yTl6qlTnuRH4NDRPV0k6P5VXh6EXWNbparyGF + rlcRXTJ8zJJZtNv5efOm47IfySjD4Yyr4S/Sr+7+HykC9tbacZUEAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADNUlEQVQ4T1WT/U8bdRzH738wMf7gP+Sv + OnUO65zORJ2oTJyEJcuYAwp9glIopTyOwsjmGAWTJSZLZJub2TQO2pVSymDQJ9pee3e99voAefm9M5p4 + ySd3+eb7frj39/2VJpd+vh+8uUZwcY2JxVUCC2ECoTDj8yv455cZm7vD6OxP+GZu452+hXdqieHgEp6J + RTyBhfuSCW40W9TrTaq1OnrVQKvUUDWdslJBLqsU5LIYFaVSRdUN8TYoiz1ufwjJVG40Wha4azEhZpsf + QnEuiem8sSUmxsXZF3TMRMnm5f/AJa2G038DybRdFwQVvWaBWycn1Fsn6PVj1FoLWW9ypNb5ZjrCQTpn + gcsCXNKqOEbnTIKwsN+yLF9aiGM0jvGs7vxvUrJB++Qm+wdZCyyrVYqqzoBvFimwsIIh/r+kaHwvbFeM + YxS9RbHSICPX2D/SSWZUPh/7g3jyJQUzFwEuKjp27zSSf/4uhtFELil0zm9RrjYtVffKNueGn/Dx0BPO + eh5jcz7iQ8cj0kdFQaJTKOv0D0+ZBMvUBEG+UOLiXIy82iAtlHczZQssV4QbrSVyaNI2+JDYzktepXJk + Cwp9Q0Ek85yrRoNcrkjHbJRUsYZrao3PusexuR5bwKzS5FBucNr+gNPfOunx3iT5KkWvZwLJLIleE6rZ + vJX0Xk7j/OUA5mNz/kab4yFnhLIFtq9b6++3DxBL7HHdHUAyG1ap1jkUtr6e2iSeUvi0e8za+Ob5VS6H + NbqXFdrnMrx25hYPnkZ590I/ke1dfnSNI42IemqCIJU+4qvghkj7GZ90/UPwdv86b5y9y+u2OwJ8m7eu + /ML60winvuxlY2uHaw4/ktlts55yWRPnnOF5JMa5Lp9FsC9c7Yq1nb00seQB0cQ+v/6+yTtf9PJnJE6P + YxRpSFwMs56KVc8qh5k8zskwH3V6sX03RFuHiw9EcO+12zl1oU+o99EzHOJ5LMHVAZNA3Kp/62k2LFdU + 2BUJb4nSRBNJNoXVDbH5r2hcqMZ4tvFCfG+zl84LghEkdyB0zz0esi6G2e1B34zVMLMkfUOT1lFddwWs + wK45/fQMjlnKVwd8XLGP3PsbyUQ5YikgQO0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAI0klEQVRYR32X6VOV5xnGz//QptPpdCbT + zmSa6Yd+6Uxn2i/5mn5smqZGQ6MhLjQ62kknpjESFVFQE5FFRVQ0JURZRFCM+4IgmwtbAOEAh8PZOPvC + WVGvXvf9nvcAo1NmrnleDkd/17089/O8ljPt3W/Vtj/orW3vRu3lBzh96QHXLq5dONXWqappu4+aVupi + B06IWu6huuUuqi/cxfHmuzjWdEd1tOk2qhpuo5KqariFyvO3UHHuJsrP3UD599dxpP4ayr4TXcXhuh88 + 3/z3yluWM5cfuO2eINKZZyuUSi9TahHJdFZ8TlBxWZNcqQVRIoOYqXgakQQVTyHM59BCikrqGowlVSNT + LtCAmwa6V8IJWYK/DDZlgo01oxK4ghWeRljANKFwBRsGAtGE6utv22GRtBvwRcIN6P+FCzSVUb0UeRas + cIleIzejTiGg8CT8hPsjSRw6SwOnaSAlcEm7yjCQEEgyjSjdR2IJRKJxhKhgeEHlD0XhD0bgC0Qw7w/D + 7QvC5TXk4e8B/huJ3Ez5SngCPurA2cs0wGZ7VcrjiRTqOuZw4NIMDrQZKm2dVpWILk5jf8uUal+LFfsu + WFHcbMXe5kmUtY3B5Qsx7Us1Xx65j6svnEDpmZyBbNoZvaRbDEjkAg3Hpa6LiGnqmRn93nOkF59j8dkL + LD5/gQzXzOIL/Vy+v7lmEDaXd0X0ChdwNnqvGKi9JAY6cwZyNacisbgaELg7lIQ3IjWUxpJaSz/QDIFJ + li2Reo4oPwvyb9PzcRRUP8G0w51Le4BRr4THVaW1bbCc4h5/VcOFWW8xIJHn4IxO4EYmBP5c11jymRrz + R9OYdC9g47FHmLK7liLPgs3IvRHDQMmpVhrggNG0Z1NvdnswsqD1FthKOP/OqAWeJHyBfw/zc38sA084 + jXHnAjYcfQTrrCuXdjEgUKm7gD1Z7T95EZaa1o4VYJFAAqGYGpCam2mvueV4SdU35nD0mk2z5AwmMeaI + YX3VQ0za5pZFb0Rsgj2hBbi5k/apAY7W5alXA0x7IBjVTpfG0sj5mZl2UZzPUvcAzfkiGbhCacwFOOHs + UeRX9mNixjDgI9BIeYJggcfZUzRAFde0wCKzPQeXTqdkwPjVwJR2e5w1lkysiPymnZHPouLKNA63TSrc + 5ktgaDaC/PI+jE/ZjZQTnoucUauB4AINi4ELsFTzYMnBs9HLWJXhIns884wGWOckDUgG4lyjNBSKL3I/ + pzDnX8CMJ4oJZxjj9iB6xz3IO3gPj0fGYJ8PwBOI5eBm5KaBvSeaxcDdZZHL9DPmuscXyBp4oWDR8ppL + 5IcujrHh+rGhsg8fV/Yiv6IH6470YO3hbnx4+AHyvu6Czekzap6VgF1igFIDx3mk6mxXsGFC5rqb7vfR + gAwb6XqtuWw3Rh6IydZMY8YdYcP16e/L5Y9KdhaRd6gTE7NOgpfqbsKdARo43kQDPM81ejaUcbCk1YDL + 49PxKpNOSiBwibxca27FwYvj2FP/BOsrel8BZwnZmB8c7MQ4m3E5XMBOrg6WpqhaDdzJRW2ebHKazXGU + FnOuSwmiCYk8Q4D8xynYfXFYWfPHTx1suCUDAvdGFjEf5vQMZ7DmwH30PBnB6PQcrA4vHP6owp3BmGHg + eCMscpMR8FL0xnE665zXgyXFGS9pl0Ej3V7S/CO2lpxDwVen8KfP2lnz7qXIGbVE7uaWdIYyeJ8G3syv + x6pth7CtqBoTdg8zENMszHHdfZQG5BqlcJl02bNcZOMs39tEA9zzAp/nmHVz0k06gyjYdQry8+a/bmFd + WfeKtEvkzqDMhDRWlXTgtbwm/e7ft5RiYGxKIxcZBs7DUtV4ewVcrlDhBTYYZ3kRDUj3G3CZdCmM2rwa + vfz8ZutN/HFnJ/7wxX38fvsd/O7TW/jtlmt4o+AKfr3hEl7Pb8NP1zTifv8I3ttcgv7hccOAnwYowwAv + kGbUaoDwEDXF7i1qnNBZ7yLcQfisn4NmyoOCwpNq4I0t17GjNYovLoSxvSmIz84H8O96L7bVzWPrtx5s + OevCT1Y3oKNvBH/7ZD96BsYUbCiKXVXnaIA3V4UTal6hRBOc5XsaniJGA46AwJOY9ibweMKFTTsNA2vK + evErRvv6xnb88uNL+MVHrfj5hy34WV4zXvugifBG/LnwOu71DePdfxaj+8mPObjdF8VXYqDi/M1c2pfu + cDTAzt1NA7L9JPIZbxJWTxx9o3PYuPOEGvD6Q/B4A3B4/LBz19gcHj2GJ2ecHMVzGLXaMTJhw92eIfy1 + oBhdj4YNuGmgUgzwzp6DE2waeMpZXnhunJ2d1gNmkDN+YCaMm4+msOFLw4CH98BPdtdiE3tiw45qrPu8 + CnmflmHV1oN4d/N+/GVTEYafzuBOzyDeKdjLXhhUsCk1IC8MZtoNuHGNmnHMY09dH8drP9bxcFl7pJfj + tQfvFV3F+h3H1cDQ+DQ+4iCSqaf7n7vAw13gyu6E1aX3FX67e1DNdD0aUfAsMzDLtbDie1iOZA0EzRus + XKG4ejm5pubcTOE0hsetGBqdxODoBLoeDmD7/tPI/89RrNtepbPf2ILG8HFx/zvMbVjagXdYe4Gv//wQ + Bp/aDAO+iGpnuRjg61IucoGbt5gVlwme5XyWU83pj8Bqd2NwfAp3OnuxlnPgH9mDZw1n/2qO39UcQKtK + RB1ouXIDnQ+HMMBSTLuDGrloxhtBoRiQ9zR9aVC4Ib1IKHzpNqM3muxMN2WbD2Jg1Ipednf342Ftsq7+ + IXT2D3DrPeG2G8WEw5etuURNuJdwPs9w/bK8HpbDdVc15QZ4+SVy6Q73Ejx7ounhItLpZhww5pARKVhX + I+VL0RsZ2GkY+CEyOOkw4AQrnODcBZLAHJwwE24cKgLPGhAo19w+zxowoKYBimCBdwxMSg9ELN/UXXlb + 3lLlPU3Ft5UDlLw0lJ5uQ8npVr29ivadbNF7XPGJC7xMNOlxWlTdiD3HRA0crQ3YxfGq4pCRbVYoYrdL + vaXpJO3Gc31iR9l3b/8P+bsPCSCVmC0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACN0lEQVQ4T6XSW0hTcRwH8IPdy2tuuksW + RIVUWHShJoGUXexBUoNuaKtMXem2ohtdMEi0wqweeg1DynTOrV3SlZdNFtUqrdnptdtbEayd7eziy7ff + OTuED3todODD/5wffL/nx+EwAP5L0mEqhCuNzCSzppktmSOZK5k3jTBPY9iOYs+njmKw7RpM3twM//VN + +NC6ERMtGzBxbR3eXV0L35U18F0uwuuLq/Hy/Ep4zxRiyLDihVjC3tJg6vsAcWLqm4PYEf9qI1bEv1hI + PzEj/tkkik7eQ8BlgNu4XNg/nfG3rhfD0Y+3k7gjignn+zaEhusQMJfhx30NhnQFQkEGM95cJL75b4BN + BETsXQreQNjTCM5WiaBpB34/LsHPzi1wHVUKBZnMm0urxFVjFIz62xEdb0HkbTN47ymEXDVikDPvRrBn + K7jebeBMpfjVVYKBGoVQkMW8OlcI3tcGzl5FKuBsKqBQBThLOYK0rrVegVDfLoTMOxHuL4NJK0fgYSkc + h+SJAu/pZQiPXcDTpkW04nY4TqgRcevwpEEF3loOy3ElYl4jzMfyEbHvgemwHPxIA+wHZEJBNjOmX4rg + 8Fk4GtXgntXCrlPRxzoJa50S/KieggrwbiP6tHmIeAzoqZbRsx62/bmJgsH6JaMjusXo1arwvFaN7up8 + DB5R4dHBPDjpvmtfLq0rw4O9OWKoszJxdlct9FLBAiL+UfNJuiRDkinJkmRLcqRTCM9I+n+nIukwFUmH + /w7MH5w6Z3Cw50MtAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFr0lEQVRYR+2WaUxUVxiGp7Z2cwUBRWNN + t6RVq1VbtYpo2jQ2dQOBYREUFyragAVBZLFuaKVq1WqwrqUgFhDZBwaGfYBhYFBAUBCpqaldrMoyM3eZ + ucPb716w6Y9JapoG/3iTJ3dycjPP+33nnHuuDMATxergYGJ1cDCxOjiYWB0cTKwODiZWBwcT8XrmCSJd + zxLPDTD0P/L8Y/LCAOJv0TdEdiveuez2yYXojF+IWyec0XF8AeGEjmPz0X50Ptq+mYe2w/Nw/eBctB6c + g5a4Obh2YDaa989G07730Rj7Hq7umYWG3cTOmdB9OQP1MTOgjZ4ObdR0aLZPgybiHVRvm4rqsClQb52C + ypDJKAt+u5wCDJXdjneG0H1zgHYIXUR3G92vQ3jQ0s/9ZqKRaID5ng7CPS2E3zUw/1ZFqGH+tRzCL6UQ + 7hZBuFMAyx0FhJ9zIdzOgPBTOiydqbDcTICl+QgsjV/DpIuFcu04cQG8KOs84SRJ+c4s8B0ZRDqRCq49 + hbgIri0R3I0EcNfPg2s9De7ad+Cb48E1HSeOgLtyGFyD+KcHwOv2wlS/C+a6HTDXRsOsiYC5OgTmktUQ + CtxgUbrDUugBLscFSn8pwEuyjm8/oCpbwd1MI+GPYNsvkDCJZN+DbT0LruU0WBKyjceJYyQkacMhcCTk + 6mPBafeAq90FXhNNbIepJhzmKpKqg8Cr1sBMYnP+yv4ABR5SADbbBQVrHMQAw2Q3j8yF8OdVsCRlWxPA + tpwl4SmwTSfBSNKjYKlKtj4ObN1XYLR7wWp3gdPEgNVEgauKBF8VDl4dCr4yGKbyTeALfcDnuoDPc4GJ + 5BaSC2L1Sjn6iuRSgHw/KcBwWdvh2TD9UUvSM2AGpMyVo2B0h8DUHwBTt1+SMprdYGp2gKmKAlsVAVa9 + FUxlCLiKYPBlm8Gp/MEVyMHlrQCvGJArXCkAVZ7f33oLyftUnmBzXKHwtRcDjJDdODgLprvlYBpISq01 + 1sXBqN0HY+1eGDU7YSSpUR0JY+U2YiuMFVvAlgeDKQ4AU+AHNs8dbK4r8UjsCp6q5kkstl+qPF9svRwW + kosBOHo+b5UUYKTsRtxMmv9U6CsjoC8Pg74shO6hyNk8HvqSzTCoNsGg3ACDwheGXDn0lN6QtZxYhtTV + duConRxJRR6JTVQxT2Kh0BMJbiOp9Z5UPckJiAHo2VwfOzHAKFnL/ndhrI7Bg6T5eJjohIfJC4iFyA50 + hKF4HXpSP0Zv2mL0pn8CfcYS6DOXwpi5Aky2K1L8xtAqDwWncOsX0yLjaRrMJBQKvSTOrxyJPt12knuT + 3At9xV60C1Yipz/AaNm12GkwqCPw4IKTVHVX8iJ0XVyEzI2OMJYEoOfSYlxe7wD95aXQU9Vpa+zBUBfY + HDckr7KFqTaMpB5I8rKBiYQmpTd+8BgFoWgV4YNzrmKASPSV+ODM8uHSXQyc4z1GDGAja9ozFXp1OB4m + LUC22HbVWnSnfISMz8bBWBpIlS9B+joHMDT3Bmq31PbqMJp7OZJ9KIA2gtrtg0T5aNr/UTAV+SGBqhbq + Y2BW+eGcC0l10ST2w+llw4AG2jkKd2R7SgFsZVd3TkZ38RbcT3RGFrW9R+lP3fgQGQFj0avaiK6UT5G2 + 1h6G0iD0XF4utd1YEYreTHdc8LalHREOQ46nVLW4Owy53jhPVXM1kWAU3jhLVXM1tGsUXji15GXpPcEp + PJAtt+3vgCbqrVJd1Juoj3wDpV9Mgnbb69CEv4aioImoDnkVVVsmQRk4HhVBr6Di84nI2zAOZYETULJx + ArL8HaAKcETRekdk+NrR63UsvWDG4hIFU9A+V/g6IEVuQwvOnlpuh4tuo6TKRVLcbMoowAiC3kbiYhDb + IZONeQzsHgP7f0H8H1Eunop/H8fWjtn/i38eySLimOgdQlj9UBgsnn4TPg3wNMCTDgDZX9BY2bCF9pd7 + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACWklEQVQ4T33TXUhTYRwG8PWB6SzNuelM + CjPKmkUfdmWOiAi66yZYNWz5gZW1KSgiWK2SGYFBWhRRXfixudaaTgs/t7XhpjNdpaEQpH0R3czm7Oyc + rYun98xFQp3zwnP3/H/83/dwBAAEsbN6TLff6buRh7Hru+DV7sSoNhcjV2TwXJLBXbcD9pocG+nFsTN/ + shyIm2jIA/PFDfqTC/RHB+g5G5jZAdCzfaDHm+Cq3caWhf8DVkQB3T78+u4FM9MCZvoxwtOP0K3ORvfF + zeg6mwmzSsqWE7mANa/q9yLyzQP63UMwUw8QnrqH8ORdRCabEXqpgaN6Cz/grd+DyFey/tv7oN/cAf36 + NhjfLXSWbYClNAOmwnS2vJYLiB+9thvhz3aEfE0kjeTeNxFyaBCyHgPlqMBgZRY/4CEvH57rQ2i8EdRY + A0IjWpiLpdE8PSOFUSlhy+u4gIThy7kIf+gB5dWB8lzF4nMlFkxHwDjVoOxq9F7YyA+46mRg3lvw061F + sLcIP/RyLBgPw6RKw5NCCQwnUnkBobN2O+gZI4L95zDfKo8CAeMhLJqPYnGoHD1lGWw5iRNw1OSAmmiG + v6UA/rYDmG8vQIcyFQaSjlNi6BUiXiDRVr0VQVsVAfLhb10CAgY5KFsp2aoEXcXRz5jMCQxWZSM4VBkD + 8jFPtmCvoT8pQrsiBW3HU/iB/oosBAc00eGlkC3Yd+g4iEBvIZ6pxJwAe+Kt5zcNvyjPRE+pFNaSdLJy + GjqLJLCQQfNpMVoVIifp/fszxZBVJAkkSbEkx7J+WYQkK/8CEPwGXB44m9dN4bkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFh0lEQVRYR62Xe2xTVRzHQQQENhhjMF5R + URRQICIGH/C/CuzRdgVxDIQwDHFTVgYb4f0GEXkFlASIRAfjsa3t2iKPsbF2DxiPwWBbcATBSPAfCYze + e9uSfP2e096JyfUv7k0+6XKXc76f3++c3nPbCcD/wqsz6XJr98TK1i1j0LJ5DJo3jcbNDW/jxvq30LRu + FK6vHYlrq0eicdUIXFnxJq4sewMXC4ef5rhusfGGc+sY3tSJTdC1bfckRP6qRfiBH6H750klwn+eQfje + KYTuehH63Y3QHSe02yegtRWjoXC4GNyDvCAmMZpbx/CmDi8h0K1t1yQ8pYDWWgSt5RC0m/uhXd8H9doe + qFd3QL38PdRLW9Besx7t/pW4WCAFepIuYhKjuXUMb+rwkgK/7ZxIAX80vPlALHwv1EYRvg1qwxaUzR+E + 0vkDJe65yWJwL/LcAqKF3W7t+AiRB1Ws/CC0pn3QRPjVnR3hysWNUOvXQmnci2DDVtTnv2aqQPfW7R8i + cr8iFv4DK4+Fs+16uFq7Eo8rC/D3cQtqHcPE4DhijkDLNgpw08nKRfgVrrmsfANK5w1EiSA7GSfmJfPv + ZDhnDzBV4KWW7yjwx8n/hKsMV+rXyMpDTXsQ4n54XPE12ity4F/4qhgcT8wRaN76ASL3PND08Avr2fY1 + UGqXQ61ZCtW/BEFfJh4enYKHx1JQnfuyuQI3v30fkbsuueay8rrVUGr08MVQTmfj+Jz+ODZngKQ0q7+p + Aj1ubJ6AyJ2SjnC1ZhnUQCEUfz7Uczl4UpaGoNOCJ+dyEazKQ9VXQ8Xg3uRFMYnR3DqGN3V4SYGmTRS4 + Xcy2x8JrCqBU50OpzMUTVzrDKeC24NGJNDwqsaBygbkCPa9vnIBw2y/QZOUFUKsdUCu/QdBlRbAsVQoU + z0qKkpWEksx+YnAfYo7AtQ3vIXzrUCw8D2oVK3czvHQKFGcqFHZBKbfJ9gfPL0LF/CGmCYhN1KtxHQVa + 98cqz0Gw3MLwyax+alTAnQ7Vk4FHpRa0l9lxNnuwGJxAzBG4unY8ws0/Rjeci+td+qkUUJwpOJKZiMMz + +6FoZiKK+HcR2398RqKpAnGX14xHpGk71zoFSsnHrJwCrD7I6lVWHwo4EK7hpjzvkN+MU3MHicF9iTkC + l1a9i1BdAav+RFavUECJtV91p0Hj+mteO9qdNmLHqTnyNDRNIP7SSgrUs8JYuFo2GapzClQXBbgfNI8N + P0/v28FRwnGJpKuYxGhuHcObOrykQMOKcewAn3giWDKV4SmsPpXVcwk8VoS80/hU5CYNLIZvtuyAeQIX + lo9DuI5PPVG1kwIu4k6Bxg5osgMU8Nn5XMjg19MOb5Y8DfsRUwR61y97hwKLoFFAoLrYASEg1z+d62/D + IXsf/JQRpdie8KxAZ6O5dQxv6vASm6hP3dKogAjWJCJcVJ/G9nMJvKIDGdC4BFogH55MeRglEXME6gvH + IlzLDsiqdVIRkgKWDgHxaFbcGSj/3FyBhNoCIcDqGBwq16GAJw0Hbb1x0KoTLz+PcBk4rj8xSWDJWETq + 8v4Nlojq0xD2pvN/DsIOBfJ4YDng/kweRuYJBPJjAp5UhBkqg2PhEp8FEZ+NB5KFm9MK13QpMIDIX0dG + c+sY3tThJQT6+vPHUGAhwqw6Giw+RbhFEvFZcSA9nsRhf1ocDtvkEpgosGg0IrUUkJVHq46IYBke5Sk7 + EKrJ45nggHOaPIxME0iodsQERLAvFs6qo+Hik5y0cpPymVBu1QVM2QPyMDqdOypQmTsKFTkjcHbBcJz5 + 8nX8mj0MJ+e+At8XQ+GdNQSerMEoz0yGewZfTO1JVRynv5I9l4D8dUzEjwxxuonvtqhMR7RZkPwM4r54 + G+pOxBuV4dxR0OkfekjJZ/cdd7IAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACdklEQVQ4T2WTW08TURSF0Qo8GJ8MGhPj + L/PFBAMqIMG7QRQEhovcWgqVcAmISmwrbaEWGn3QB0Uw1ELp9DqtUAQLFAoDnWkxy30GROqcZGWfh7XX + d/acOTkAVGIrUpWPcGUeQg/y4L+bB/52LhbKT2GuVAP3dQ0znVa8f5sarMIHziqgfjSMpyY/hEf5QLAR + 4KsBz33AVQbMFAJfLsN1TQkoyArgLAKVgyVJEtHzD+m54CuIflOD+RJGPwlX0QkWcI6s/wLqiMxWKv0b + YkpGfGMTiytxRGKrCP9Yhl9YhDcQRVGrkzVfINERjwXUmkOsHwZnFN2TEegnBXQ6wtCROuwhtI0HkNhN + 49bAHLMd9R1takxBKoAo7UOU97EjZZDcy2CLtEmNCTGDdTGN8j43s6kDnhgDVAD9hADdRBjadyG0j4fQ + OhZEi82PZ1Yf4jsySntczKYOqBrxUQG2U4fUPaLuZrBB1DUSa/6VlHHDMMts6oDK1zwV0LxBmjeIVltA + oTZbeDS+5cGZF7CyJaG46xuzqQMeDnup4IBKM6+LMtaIGt+WsZqUsEL0ZQq42jnNbOqAe0MeKlDmbbb4 + 0DTKo8HsBWdaQL3JgzqjB0sJCYXar8ymDrgzOE8FRKV5FaqsUH8SNUZa2iQlUrjSNsVs6oCKfuV6jo6s + G3mPjldOtA070DJkR1P/GLheC+p6zKjpNlLnf2+hvNftKKMrKqGvXKyfho6aZ4MxTHmj+Pg9BOeMD/bP + Hlg+uVHd9YYFZL+F42K/qfblJNpfTKBlkOgDNnB9FtQ+J7rBiMcHAdlv4bhoaUhnSGdJBaTzJPb/XyRd + OtzTW0DOHxcL61e1GTcvAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHW0lEQVRYR72W6VOUVxbGX3bULBozk8kk + U5NUTKpmMjUzVfMXzOepqdTUVE3Nh9TETMZgEkzKJBJXBBEbQWURZBFZJAIKxA0lihKixoXuhu6mm94X + mkU2oelGdubJOfftN3QbsfpDKrfqV/3e8+Gc57nn3ttXAvAjIhhRQaKJGCKWiCPiiQQikVhNrCGeJp4h + ng3OY8JqhU5E4AljULWmbVC1GgNEf+Yq9GUkojc9EZ69CXDviYdzVzzs2+Ng/TwO5q2xMH0Sg+7kGOg+ + iEbn+9FoeztKQ2nWhtULnYjA8gh1ycQNZq0G+moATwXgLgUcReHY8gBrDtCjAozpgGEPoNsBdKYA2q3Q + vBvFBV4Oqxc2WR5Rec2OtvxmJ+gXeRcdyPnKBHaP3kr0pknw7JHg2iXBsUOCPUWC5XMJPVslmD6WYEiW + oP9AQleShM5NEjTvUfr2v6NDFvBaWM2wyfKIzqfCoSMQCNDSryLn5YApFejeDug/C0e7BVAnAXffJd4G + bv0LuPlPKv4W0PY3dLwjcZHXKd0TBfCyx+RetFMIWFwCFpb+D58/AFfZX9G/PxF9+xLgTU+g3sfDvTsO + zp1xsH8RC8u2WFqFGBi3xMDwUTR0m6n3m6JoBaKg3iih6R+SkXK/pNRjVhRw5BEB0/MLGBmfgLd/AK5e + LxxuD2wuF2x2J8w2O3osNnSbrTCYzNAZTejqNkKjM+K2Wo+krEZO/hfit0SCUo9ZSUDsoQs2CsnF54m5 + xVCWMLuwhBlmfplp4uEcsyiYou+xwDx2nezi5OIIcgGlHhM+kQcLiMs5Z6UQC1hCzbdenGz3ovqbXlS1 + eVDBXHejvNWNslYXSq44UdziQNFlG45esiK/2Yq8CxYhYJQE7Kjq5ORPERELiM8+a6EQyP0S5hhyPUeO + f3AedD8tHMtMBV0HBIuCkcAcvqjQcnK+kCISwGc+IavJTCGIwlXkvFK49uDENTeOk+vSq06Ufu3AsRY7 + ChXnFy3IPW/B4XM9yDlrgn92EcO+WWw7oeHkfBvyjRleM2wiDyFA1SgLYMeK62kmxLXsmJilb8GiKOqf + WcTkzILgvm8Gn5V3cHK+iiMWkJjZYKKQLED0m51fJefU7xLF+SUbCrjf5PzIeTMOnyXndGEdbDRC1dAN + 3/QCBh7MYGvpPU6+lohYwKqM08sChHvFtdjpQefca+F6QYadU1EfORc8XED/2Aw+KbnLydcREQtYnV7X + TSGIjVZGzkuuOFAsnNuEc2Wn55LzQ9TvnCYjOe/GgQYDMk8bkFGvxwQJ8I5NY8uxO5z8OYL/McNrhk3k + wTt1zd5aA4UQ3OGyWwH1WrgmtwLxTW6F80VM8C8V5uIPCPfoNJKLbnPy9UTEAp5KPaWnEETRYup30WW7 + 7Jx3Ojnnnc7Os5tMyKJ+y871yKjTI61Oh71fduLB1Dycww/x4dFbnPx5ggVEKfWYHz7ERB4s4OndNYoA + pd/yuZZ7Htzl7DYEdj0+tYAxKqzgHJrC5nwh4BdE5AJ2VndRSBbwozNOOz2beq6inmeeoX6T833kOr22 + C6nkfE+NFrtPasU17Bicwqa8G5z8lwS/mCIS8Mz2Si2FSECw35PBnstu6Vf0eZ4cM7JzXvIxuvnY+ahg + DtbBAN7LFQJeICISwEfl2RS6PnnwcvNO5zOezWecnVPPhfN6nXCeVtspes7Od1VrsbNKTfe/GiMkwDLo + x38PfcvJf0VELGAtX5882LlwHNJnxblwHAK75hUY9c9hOEhPvx8bc77h5C8SEQtY9+nxDgpBFBU7nfqt + Cu50pd9ppzpFz3fXaMi5Bjuq1dheqUZKRQdSTtzD0OQcjF4//nOwjZP/muAXc0QC1vP1ySPU+TjBrkfZ + ZWAWI/5ZDNFdP+Sbxv2JKQyOBeAd9cMzMgnX0AScA+O4a+rHv9MucPLfEXwZxSr1mMcJ4KOy/uPiuxQi + AWLJ5U3WeE2DwtPXUFB3Ffm1V5D75dc4XNOCQ9WXkF3VjIOVF5F14jxU5eeQefws9pc1IaOkCenFDUg/ + dgbbssu1lHudUo9ZScDzyUV3KATZNTE8OYvC+mvkcBKeYR9c9ydgH3gAa98oenqH0e2+D71jEFpbP9Tm + PtwzefCdwY0bOgfatTZcV1uRWljPRX6j1GMeFSCeY8T6jwpvU4he4XSVukcewtI3joL6VvSO+FBQSytw + ilegBUdOBleA3B+suCDcHyD3mWVfYV9po3CfRu4b2+iOkAVsUOoxjwrgIe6B/+W0ticV3EJS/k28n3sT + G1VXRGH3kA+m3hEYXEPQkWMNOb5n9uI7owc39C60ae1oJbctd8xovmXEuRsGNLV3oeE6HdOjdVxk5We5 + CMirwMeFXzB8ffL55SO0YV9RfYfc98vhrqnvB8pl1/tLqe/FQedFZ7C36LRwzsWTU/Oe/CwXAXnwXzK3 + gvcDi+Hjw69avk5fIV4lXiM2EG8QvMN/T7xJ/IH4I/En4s8hcPxlYuVneSjBwavxUyDGY+s8LvjzAel7 + sqMHZJ+jruQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACdklEQVQ4T2VTWU8TURhFK/BgfDJoTIy/ + zBcTDKiABHdTUZBSFilLWSphCYhKbCtTFksbfdAHRTDUQtvpNgNCsVigbIXOUMzxu9NawbnJybkPZ7nf + zL05AFRgyzj8Hq2vnGgesqNpcAINfWPQ93DQdVtR3WVmotOK9q+pziZ+0NtE1I4IeGoJwEjm2VAEU75F + fPwehnPGj4nPHnCf3KjqfMMCCo4F6DmRKL0kSULbSwdaXkyiaYDa+0eh7+VQ85zaTWY8TgecI+m/AB01 + s5U8+I1EUkZsYxNL0RgWIqsQfqwgIC7BF1xEkcHJzBcI+cyXDaixhpkfJuciuhwL6HCIaLcLMBJaJ8Jo + Hg8ivneAW/1zTJb1ZTfVlhARkJAOkZAPsSulsL2fwhZhk4zxRArriQOU97qZTB3wxBwkAjomRRgnBbS9 + C6NlPAzDWAhNowE8s/kR25VR2u1iMnVA5bCfCNhJZlr3qXUvhQ1qXSMw869tGTdMs0ymDtC+5olA84Zo + 3hAMo0GltZHjUf+Wh97qRXRLQnHnNyZTBzwc8hEh3UozrydkrFFrbEfG6raEKLWvUMDV9mkmUwfcG/QQ + QZm3kfOjYYRHndUHvcWLWosHOrMHy3EJhW1fmUwdcGdgngjUSvMqrbLS+pNaI4TlTUI8iSvNU0ymDqjo + U35P9sgLlfkQtHkIP8hD4G4e+Nu58JafwlypBu7rGnL+9xbKe9z2MvpFJfSVizumIT6iixaqB/gqwHMf + cJUBM4XAl8twXVMCjr+Fo2DXVNDmZ9pzwVdQ+00N5ktY+0m4ik4w0fG3cBS0NIQzhLOEAsJ5Arv/FwmX + Mns6InL+ALtz61fmND6fAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHaUlEQVRYR72X+VNUVxbHmx3NpjGT2ZKa + SWXPzG/5J1I1lUqlpiq/zJZlDMkEkzILcQEBEUFQWQQBRRaJLAJRFCXKIlHjQtPQK01v9MK+KE03As0y + 3znnvvdCtyms/mlu1af63fPDOd/vPffe91oF4BeEMSJkIokoIpqIIWKJOCKe2Ew8RjxBPEk8Jc+jQmoF + T0TgEaO4oaOrqKEDhXVXUVB7BXnf/YAjNW04XH0JOVWtOFR5EdmnWpBVfh6ZJ8/hwIlmZJQ2I72kEenH + zyIpt7yX0mwJqRc8EYH1EeySiSmq74Bneg6uSS+GxmdhG70Hy/A0BtyTMDjHobOPQWMdgdo8jLsmF37S + O3Fda0e3xopOtQX7iuq5wHMh9UIm6yMiv9XeVdDqAP0i/6Idud+bUFjfDveUF4W1tAJneAXacPS0vALk + /lDFBeH+ILnPPPE99pc1Cfdp5L6pq18R8GJIzZDJ+ogsoMLBw+/3i8LOCS9M7inohyagJce95Piu2YOf + jC5c1w2hS2NDO7ltu21G600jzl/Xo7m7H42dfUg5VsdFXqZ0jxTAyx6Vd9FGIWB1DVhZ+y+8Pj+qW67J + fb8c6pr6frBccn2gjPpeIjsvPovU4gbhnIsn7ss3Uu7fK/WYDQUcfUjAwvIKpu7PwjMyiiG3B3anC9ah + IVhtDpitNgwMWmEwW6A3maE1mtBvMKJXa8QttQ4J2U2c/E3iD0ScUo/ZSED04QtWCknFl4nAajBrWFpZ + wyKzvM4C8SDArArm6XnGv4y9p/s5uTiCXECpx4ROpMECYnLPWyjEAtZQ86MHp7s9qL7mRlWXCxVMpxPl + 7U6caB9C6RUHStrsKL5sxbFLFhS0WpB/YVAImCYBu6v6OPnjRNgCYnPODVII5H4NAYZcB8jxz85l9wvC + scS87NovWBVM+QP4tkLDyflCCksAn/m47GYzhSAKV5HzSuHahVMdTpwk12VXHSj7wY7jbTYUKc4vDiKv + ZRBHzg8g95wJvqVVTHqX8M2pXk7OtyHfmKE1QybSEAKymiQB7FhxvcAEuZYcE0v0LFgVRX2Lq5hbXBGM + exfxVXkPJ+erOGwB8ZmNJgpJAkS/2flVck79LlWcX7KikPtNzo+2mHHkHDmnC+tQkxFZjQZ4F1Ywem8R + O8vucvItRNgCNmU0rAsQ7hXXYqfLzrnXwvWKBDunol5yLniwgpGZRXxReoeTbyXCFrA5vc5AIYiNdoKc + l16xo0Q4twrnyk7PI+eHqd+5zUZybsDBRj0yG/TIqNdhlgR4Zhaw4/htTv40wW/M0JohE2nwTn0stVZP + Icg7XHIroF4L1+RWIJ7JrXC+iln+pcJc/B7hnF5AYvEtTr6NCFvA4/vO6CgEUbSE+l182SY5551Oznmn + s/OcZhOyqd+Scx0y6nRIq9Mi9bs+3JtfhmPyAf5z7CYnf4ZgARFKPebnBzGRBgt4IrlGEaD0WzrXUs/l + Xc5ug2DX9+dXMEOFFRwT8/ikQAj4FRG+gD3V/RSSBPzijNNOz6GeZ1HPM89Sv8n5fnKdXkuvXHKeUqNB + 8mmNuIbtY/PYnn+dkz9L8BdTWAKe3FWpoRAJkPs9J/dccku/os/L5JiRnPOSz9DNx86nBQFYxvz4KE8I + +DURlgA+Kk8l0fXJg5ebdzqf8Rw+4+ycei6c12uF87TaPtFzdr63WoM9VWq6/9WYIgGDYz58ePhHTv4b + ImwBW/j65MHOheOgPivOheMg2DWvwLQvgEmZgREf3s+9xsl/S4QtYOuXJ3soBFFU7HTqd5a805V+p53p + Ez1Prukl573YXa3Grko1kip6kHTqLibmAjB6fPjnoS5O/juCv5jDErCNr08ewc7vE+uu5V7TRpNYdz5B + jFPxcW8ABvcc/pHdycmfI8ISwEdl2+cldyhEAsSSK5tMOmJSsSVMzS1hgl42494FjM3OY3TGTx+tPjgn + 58RXs4O+mm8bR/Beagsnf4Pg2zBaqcdsJOCZxOLbFILkmpih4hM1b2EsazNGiZHMTRjOiIc7PR6u1Dg4 + U2Lh2BsL264YWL6OgXlnNExfRMGQGAXtp5Ho+zgSnX+L0FDurUo95mEB4nOM2PZZ0S0KAW66Sp1TD2Af + 92EsezMwXAO4KgBnGWAvDsWaD1hygYEswJgO6FMA7W6gLwnQ7ETvBxFc5HmlHvOwAB7iHvh3bnt3QuFN + JBTcwMd5N/BhTodwD3cl3GkquFJUGNqrgn23CrYkFQa/VmFgpwqmz1XQJ6qg+1SF/gQV+rar0PsRpe9+ + Gz2SgI3/F4iAtAp8XPgLhq9PPr98hF4ezdpEzssB0z7AsAvQfRWKZgegTgDufED8Hbj5HnDjr1T8HaDr + L+j5l4oLbPy/QASkwa9kbgXvBxbDu/dpY3L8rZED8RjeHwdPehz1PhbO5Bg49sTA9m00Br+JplWIgnFH + FPSfRUL7CfV+ewStQATU76vQ/K7q0f8LgpEHr4aCuKAIPs/PE/yN/0fiBeJF4iXiFeJV4jXideJPxJ9l + +BSIoxhSJ3jy/weq/wEoRDl3oNMLyQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC0UlEQVQ4T5WSyU9TQRzHR0tboBShLIpA + 4tF4MV49+Q+YePJkRAkKIiDBFQLVgqVFaJGdGJdoTDRhR1Ag0ZtBFm2AQunKvsi+FPoKmK+/ebRRvDnJ + J5O8N9/Pd+a9Yf+OMbUczlwZHNkyWO/JYLkjxXBmAAbTJRhIlYCWKAAwP0zf4vqsa3GhsMmJgnorXHly + wF4EWDSA+QFgygD6koDuSzDdEAVRBwS6ZhfN+0MQBGqX+9qlsGRR+y0JhtJ4+2GYkg9xQTQt/SPQUjMf + np1fcHu8WFhexeTcAsam5+GcmIHVNYkR2ziSjV08HE/QFv8SPG5w8Dxqu8ZR0zmGqk4XKj85UUGUtTtQ + 2mbDytYObr8a5AKZP+iH5dfbaQbcwh7c3j1sCrtY397FGrFKwRX3LpbcO8h8McAFgfGloSy+VMnijEoW + WxLC2KM6myio6nChosOJ8o8OPG1zwPjBDkOrFSUto1jY9CL9mYkLgsSwYT98vEjBmPr9qCjY8Phat6l1 + axfL1LpI8PDPdS9u1v7gAkWcMUQthosVLEYfzFjuO4soKGu303ntMLbaxNbiZguKGi3QNQxjbk1ASnU/ + F4TEGkJAYXWMLpgd0wYxlvN2RBSIrXTmJbcXi9S6sOHF/LqAOWqfIcG1yl4uCKUwzj0/jaPaIHV0QSBj + 99+YRQE/b3HzKJ40WaBvGIGufhiF9WZo68yYWhGQVN7DBWExegUSGy/gTPkJRD+Uq9nd10OiYHGTziu2 + esXWWWqdJqZWiRUPrpZ+44JwakZC3XmcLIlGRJ5Mw7JeDogC/5ZnfVue9gUniYllDxIM3Vygom3jbPUp + ROZJNapcKWNp1b1fMugXpdFXTq35jpSqflyv6ENSWQ8SiSvUfJnCF/M7vpJAGaWRI1It00RQWJUTQI/o + ahJ0I5iSCCWOEGFEOBFBRPrg7yURFObNquwAFp4tYQeu5f8D9hvd24HO4fLC9gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHiUlEQVRYR72XbVBU1xnH7wLLIviCrti0 + pjYznaQz5mM+9EOnHzr91k6btE0zsbVJ1BpixDiKIohvhCAEVCCRIEYRJWpSJSbRJI1G1GiM4XV5WViW + XRYQQREVWASXl/77f87duyxr6/Ch0zPzu/fugXme//88zzl7VwMQYBrD5CeMhJMIYiaRxEKiSDSJIbPI + bDLH/zk8OFcgZ+DhEaM7M6a8OzMaN0hXxgxcT49CR1oU2rdb4NkaCXdqJFqTzWjZYEbzugjY14ajISEc + tlVhqHk1DOVLTVUMExucOJA38DA5gl0K5u6saOB6KdBeDHiKAFfBVJx5QEsO0JQJNKYB9VsBWwpQkwRU + r0PVMpMkeDw4cSCvukwOU94ZV3n+GTd4R95pF3I+tkPco+MQOnZoaN+qoS1VgytFQ2uSBscGDU3rNNjf + 0FCfoKFulYbaeA01KzVUrWD4i79DhS7gp6HJVW51mRxh+UwcPLxeL5d+Bp0fAOzbgIZkoC5xKtVrgMp4 + 4NoyshS48gJw+U9M/ixQ/ltUvKxJkicZ7pECZNnDc0+3cgoYnwDGJv6F/kEv2vb/Cl1vReH6mxZ0pllY + +0h4tpjh3mxG66YIODZGcBXC0bgmHPWrw2B7jbVfaeIKmFD5ioayP2iNjL1QcoXykIA9IQKGR8fQe/ce + OrtuoK2jEy5PO5xtbXC2utHsbEWTw4mG5hbU25tha7SjtqERVbZGXK2sQ3zWSQn+DPkJsUiuUEIFROz6 + zMkpPfko8Y0HM4EHYxMYEUYnGSb3fcK4YojPfd5RpB6pleBqC0oCyRWKftGHCDDnfNLCKREwgdJLnThy + sROHL3SgpLwdxcJ5Dw6c82D/uTbs+8qNwi9dKPjCiXc/b0H+mRbkfeZQAm5TQEpJjQSfSaYtIDL7lINT + oPsJ+AS69tFxwLnf/bByrDPkd+1VjCt6vT5sKq6W4HIgTUuA7HlLVlkzp6ASl9D5IeW6HQe/9uB9ui46 + 60bRP11478tW7DWcn3Yg91MHdn/ShJxTdgw+GMet/gfYeLBKgstpKCfmlMQG+kUfSkDmSV2AODZcDwtB + rnXH5AGfFeMq6eDIOAZGxhQ9/SNIPFAhweUonraAqIwTdk7pAlS9xflZOme99xnOP3fiHak3ne/5tBm7 + T9E5D6y3TzYi80QD+ofHcOPOCNYVfS/BY8m0BcxI/2hSgHJvuFad7ncutVaux3TEOZP207ni/hi6+kaw + dt81CT6XTFtAdNrxBk5BNdp+Ot/3lQuFyrlTOTc6PZfOd7HeOWWNdN6AnSfqkfFRPdI/rMM9CujsG8aa + 976T4POIfGM+lFzQL/qQTo3ZfqyeU/B3uO5WwVor13SrUM90q5yP457cmViS3yGe28NIKLgqwa1k2gJm + bjtaxymopIWsd8EXrbpz6XQ6l04X59lldmSx3rrzOqQfr8OO4zZs/6AGd4ZG4b51H6+/e0WCzyciwCS5 + QtEv+hABs7aUGgKMeuv7Wq+5v8vFbRDi+u7QGPqY2MB9cwiv5SsBcWT6AjYfruWULuChPc5Oz2bNM1nz + jH+w3nT+Jl2nHavFNjrfWlqNLUeq1THs6h7CyrxvJPgCIm9MpriNFi2Y+Rs4HSJgdvKhal2Av94D/prr + bnlXdR6lY0F3Lkvex5NPnN9W+NDS7cWKXCXgB0Re1yS+aUGKRRPiNomIqQJkq8xJ4vEpQ5ZbOl32eLbs + cXHOmivnH9qU8x3HalTNxXnq4WpsLqnk+V+JXgpwdA9i+a5LEvwxEhWXaMngfQYJi0tm8iSzZk2kphAB + sXJ8yhDnynFQnQ3nynEQ4lpW4PagD7f8NHUN4pWcCxL8h2QWXcO6OjKXz3I0h1kTzdrc9Q8LmLv+/Qol + QJKqTme9M/2dbtR7x9EaVfMtpVV0XoWUw5VIPlSJpOIKJB38HjcHfGjsHMRLb5dL8B+ReQuSLfjzB7/E + vOXmQn6WrRkeu5ZHT4gAqxyfhgDD+V0y6dpfazaazqTzm6SHyXv6fWjoGMDfss5L8MdJXFxyJPbaNuDX + RYsxZ0lEMeekNBHBAmSrWN8ovKYLUEtuNFnQFpNm8yfvVfjQK8klsT95D78J69sH8NfMryX4j8ljcUmR + yKtaj+fLFuMX+U9h5gumEs7PDhUwP6HgOyVAuSZ9KvmkAHEcKkCcGwK6KaCbAmzt/fjLzoCAhaw5dl1b + i98f/xkW77Qi5nnTUc7HGgLU6xixrt57VQno4FHq6b2PNuK+NQQXD5bWHi9aBG4xx41B1Wh2IvWu55IL + NjoXajz38GLGWQm+kCyy8qU169sEPJ1pRfRz2knOPUHMwSugzoG/55y7GP/OFcTnX8aruZexcs83WLHn + EpbvFi5iGTtbuvvl7AtssvOqzkuJLLc4XpJxDi++RdLP4o+pH19mTDmKn4jlr6XfFP4cMc+ZAslnreJV + BPhFqFcyIttEjk9pEtlC0sWCOBGkqQRZWoNFfuTt10D+R5LL3l80Z00Yop+dmjxUgAz5SpZSSD8YPzgf + hfwY/W/I3yWOxJw3c4npAO9Tkk8RECJEVuN/gTY7Qd3ElLwdT0n+HwX8f4H2b/SdSHoVxVYkAAAAAElF + TkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACyklEQVQ4T5WSWU9TQRiGR0tboBShLMp2 + 6V/Q+BOMXntlXEEQAQmukFItCC1CiywFYqJGotGEIougQKIXJgZZtAEKBbqwL7KUrdCWYl6/ObRRvHOS + J+fizPu835wz7N81oZLCrpTAlivB2F0JLLfFGM4OwmCmCAPpItAWGQAWgGlbHJ80LQ4UN9lRaByDI18K + WEsAixow3wdMWUBfMtB9HqbrgiDmgEDT7KDn/vJ4PNQu9beLYcmh9psiDGXw9sMwpR7iglja+kdQRM18 + uXd/weX2Yml1DdMLS5iYXYR9ag5jjmmMjE8iVd/Fw0kEjfiX4FGjjedR1zWJ2s4JGDodqP5oRxVR0W5D + eds4nNu7uPVikAskgWAAVmC00hNwefbg8u5hy+PDxo4P68QaBZ0uH1Zcu8h+NsAFwUnl4SypXM4S9XKW + UBbG2MOGcUFg6HCgqsOOyg82PGmzQf/eCl3rGMpaRrG05UXmUxMXhAhh3X44vkTGmOrtqCDYdPtbd6h1 + 24dVal0mePjnhhc36n5wgSxRH7YfLpWxOG2oiinfWARBRbuVzmuFvnVcaC1ttqDknQWaxmEsrHuQVtPP + BWEJOn9YE6o6VhQClvdqRBAIrXTmFZcXy9S6tOnF4oYHC9Q+R4KU6l4uCOfheAqffX0SsYXBYPfqzYKA + n7e0eRSPmyzQNo5AYxxGsdGMogYzZpweJFf2cEFEnFYmhJVfriL2gRTszsshQbC8RecVWr1C6zy1zhIz + a4TTjcvl37gg8mhRiPp0/QmktJ9BVL4ELOf5gCAIjDzvH3nWH5wmplbduKjr5gIFjc1i1FL1KcNxKJRi + sIya3s9Z9Isy6Cun135HmqEf16r6kFzRgyvEJWq+QOFzBR1fSSCnMItWSViUUqxW5AVxKZMSdCOYnAgn + jhARRCQRRUT74e9FURSmZqbIDWKRuSL1gWv5/4D9BtcRgtzmMA0FAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHc0lEQVRYR72Xa1CUVRjHXy67C97CuGRZ + mZM1fe9LMzXN1KempmmymaaLlWZIKWJkEggqRAiyXE0SDUGkNPNa3vKGmo4a12XZhWUvLCAXRVRgEVwu + /Xue877vsqzkMNNMZ+b3vi9H5nn+//M853CUAHiYwvBT8CcCiEBCQ2gJHRFETCOmEzOJWcRDys8B3rk8 + OT0fDxid6dPLO9OnoYNoTwvGtdQgtKYEoWWDDs51WjgStbDFa9D0tQaNsYEwrwpAfXQADF/4o2aZP8oX + +VVRmBDvxJ68no/x4e2S0XRmTAOulQEtxYBzG2AvmIg1D2jSAw3pgCkFMK4DDAlATRxQHYuqJX6c4HHv + xJ684jE+/PKO2svzjzpAb+QdsUN/0Ax2j9YStCZLaFknoTlRgj1Bgi1OguVrCQ2xEswxEozREuq+kFAb + JaEmUkLVUgp//k1UyAKe9k0ucovH+PDPp8Tew+Vy0dIHk/MiwLweqI8H6lZPpHolUBkFXF1CLAIuvQtc + fIeSvwWUv4GKTyRO8gyFe6AAXvaA3CM2mgJGx4CRsb/R2+9C8/ZX0P5dEK59q0Nbio5qr4UzSQPHWg1s + 3wTCsiaQViEAppUBMK7wh+Fzqn2kH62AHyoXSzjwtmSi2HM5ly/3CcjxETA4PILu23fQ1t6B5tY22J0t + sDY3w2pzoNFqQ4PFivrGJhjNjTCYzKitN6HKYMLlyjpEZezn4M8T8wgd5/LFV0Bg1u9WmpKTDxPuUW/G + cG9kDEPM8DiDxF03MyoYoO8e1zASd9VycLEFOQHn8kV+yIMFaPSHm2iKBYyh7EIbdp1vQ+m5Vuwsb0Ex + c9aJotNObD/djMKTDmw9YUfBcSu+P9aE/KNNyPvdIgTcJAEJO2s4+AxiygK0mYcsNAVyPwY3Q67d5Njj + XHE/KBzLDCiuXYJRQbfLjW+Kqzk4H0hTEsB7XpdxoJGmIBLvJOclwnULdpxx4kdyve2UA9v+sOOHEzZs + UZ0fsSD3NwuyDzdAf8iM/nujuNF7D2t2VHFwPg35xJyQWEV+yEMISN8vC2DHqutBxsu17Ji4R9+CUZG0 + f2gUfUMjgq7eIawuquDgfBRPWUBQ2j4zTckCRL3Z+SlyTvUuVJ0fs2Iz15uc5/zWiOxD5JwOrE37TUjf + V4/ewRF03BpC7La/OHgIMWUBwal7xwUI96pr0emKc661cD0iw84paS85F9wdQXvPEFYVXuXgs4kpC5iW + sqeepiAabTs5Lzxpx1bh3Cqcq52eS86zqN76AyZyXo+N+4xI22tE6i91uEMC2noGsfKHKxz8YYL/Yt6X + nJEf8uBOnb5ht5GmoHS47FZAtRauya1AfJNb4XwUd/hNiTn5LcJ5cxDRBZc5eCgxZQEz1v9cR1MQSbdS + vQuO22Tn3OnknDudnWceMCOD6i07r0Pqnjok7zFgw081uDUwDMeNu1j+/SUOHkawAD/O5Yv8kAcLmJlU + pgpQ6y3va7nmSpezWy/Y9e2BEfRQYhXH9QF8ni8EhBNTF7C2tJamZAH37XHq9EyqeTrVPO1Xqjc5/5Zc + p+yuxXpyvq6sGkm7qsUxbO8cQGTenxw8guAbEx90E8ZkAmbFl1TLApR69yk1l93SW9R5mBwzsnNe8h46 + +dj5TYEbTZ0uLM0VAh4hhIDwNXxrE0K44cWKeAvgrfJQHB2fPHi5udN5j2fyHmfnVHPh/BeDcJ68u0bU + nJ0nllZj7c5KOv8r0U0CLJ39+DTrAgefQ6grwOjCv9Jt5PdkAkL4+OTBzoVjrzqrzoVjL9g1r8DNfjdu + KDS092Ox/hwHf5RgAeKkDYvR6iMSdDwv7oi+AmZ/9WOFEMBJRadTvdOVTlfrnfxzjah5UlkVOa9CQmkl + 4ksqEVdcgbgdf+F6nxumtn58vKmcgz9G8G05iJMv3PUiFAHhkwkI5eNTFaA6v02Mu1ZqTY0mM+78OtFF + ybt63ahv7cNHGWc5+OPErLCV2ixOrr8Sg4h4IeBRXwG8VUJjtl6VBYglV5vMa4txsynJuwVudHNyTqwk + 76K/hMaWPnyYfoaDPxUWrc1+p+wlZF39EsuPvY7weK0QNpmAsOiCK0KAcE30iOTjAtixrwB2rgroJAGd + JMDQ0osPNgoB80NXaDcvLH0J0cffwGulCxAeJwTM8xbA3SlKsGLLZSGglY5SZ/ddNBOOGwOw08Fi63Kh + iaEtZunoF41mJrjeRlpyxkDOmRrnHbyXdoqDcwnCH47Ubn+54Dm8WjQfoas1PC+u6d4rIM6Bz/Snz0dt + voSo/ItYlnsRkTl/YmnOBXyazZzHEups7u5PMs9Rk50VdV5E8HKz4/fTTuO974jUU1iYePAixeSjmA+A + 0JCPNaUvZC9AKN2g6ednPQIUEbwKvF34BsPHJ+9f3kLcxcxcBXbEPOHFkwp8+1Xh3+HkwQRvQTY4Z+a7 + /ntD6L9u9L3AVwAP/kUuBfcDi2HlD0Jsr3+B/53j+Iet0Uihqzm/iP3EjPf9i+kdMUGAjxD11PpPRMRr + pbA4Tq6RQmIDpJAYjwi+KWsmFfD/AukfmK5mToLiKNwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACBUlEQVQ4T62Q7UtTYRjGn1zb+hRE0qjh + nDU3V/0DfesPEIyxdlwZUlZipb0QkpkT6ZNRVtJ6O82d2RuBBBFBFERBeJI1DpY21+YLKzg4a1qeQo8f + rp7nsGAjOOdLN1wf7vv3ey4OhwAoyd+p3Hlc3L7vrnvr3kGhJijIbi4quwIDQpUv4i7xixftUBj6GB5/ + OO8NCsPu+ijn2h3lNvsjw5U+XijxixftUJhtDYPwBmOoqu3NugJRQh8Tp4/nHLt4ucQvXrRDYbx7BNTU + C6gODMC246jo9N0hjjqeq6i79W/B/5iy6ZAVk+csSLVbMH5iNT60mjB6xMTazbr8/FD6VejhOKa6rEC6 + F0j2AFIbIDZAajHhbCzxRo+TnqE0FEWh7VZkOixInjLj4zHWXgapeRU6YgldTkKPUlBVFVk5h8zMV6Sm + vmAik8XBiy/Z53s674/p8S2k80GS/kfg5osZXH8+jf5nGeR/qWi9LTHBZsDXkTP3PmnCwu8VzFOQV1bw + TVHRciPBBLsBLyenhTFNYM19Tz7jwuMJ5BaXcTgcZ4LTgNvIycioJnynrXM0DM7+WEbT1REmVBvwTaSN + lzRhjoLcoorZn0uQF5bQeFlkgseA28mBS6/fNoff49C1OJr6R7D/yjs09onwdz+NU8FhwNfTkLU0G2g2 + 0thpKgopp1lDo8OJ+Q/suUPsoNfEYAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAF+0lEQVRYR8WWaUxUZxSGv2G1aZrWtS6p + FNda98aQJv3T/m6a/igibkVZBAVEVOpWBMStChVUUKnVFiz7jlvTRlFEkX0bllFAQUGjCAwzLAPy9px7 + YRybaROuTXqTJ8xc7vue9zvn3m+uAPC/YvakOT7xzHEgxFJiiUf2ssXuWcGL3DJzF7pmti9wzWifvy49 + d963acFz16Yum7M6RcxanSxmrkwy62WK2ZPmoOKdSzfkOFBxTyqupuJgFqzPABUHFQcVBxVXz16V7Dlz + ZbKwd/5PA2Tj861Xe5d4ZOkWu2cOLXTNiKPijlR8yjyXtCkfrU11nLMmJY6KD81yTuqa4Zzkae+UYNbL + FLMnzbHUIxtbThXis82XQW2PobaL+S7pglYuqLjgtlNxbnvQDOfEIXunRLWdU/wyc16mmD1pjiXucoCV + B3LxqfdF7cfr0h2Mxde8mvmMFUnCfkVi3IdOCbBbHh9szssUsyfNscg9k1aeQTNPBxXnmXfSzB2k4vLK + BbVdcNvtlic4TneMx3TH33LNeZnyT4eKsCAsh7EirAkbwpYYMwx/5+tMD8VaFlo2Bo25/iDIFk2BNmjY + Y4N7O61Rv90atf5WUPtZosrHEuUbLVC6wQL5Lqp80rz1htrXEts+DLYF7kfJaCKA+qNAzSGgOgSoDATK + dwGl3wEl/iher+Iejn8D7VgRllV/LTxLgzDiUEoVeAXQRKJuu0CNv4B6s0Clj0DFRoEyT4FSD4FiNxpf + 7lcoJJOQ2ALFWgowUYRlauhekA+9Xo+mvTZkEg5UbKOkvkCRJ1CwnlgD3HIC8r4hg6+Ba1+i0EWgra1N + sZYCTBZHMuolg/7Bl+jS6XE/+gs07LbGvR1WqAuwopVYotrXEpXeFij3ovl5qGgVKhStE0j1XID29nZF + 2svLRSEFGEcB6owBegwDeNGpRevTZ3jU9gTNj9vwoKUVjc2P0PCwBZqmZpTVNMIv8iqnX7j3fD4MBoMS + 7TzifcJaHE6rlQL0DbxEzB+NOP17g8SpK/cRdVmDE5fqEXmxHhHZddD1v0RbRx/2xJaxyfiDydVKte8S + /HgKcTC1xmjSa6CV0IX6YXoMg5JQRv7c2tmHXb+UssmE/UlVSrXvEXKA/clygF4yib5yDycpOSOlz6nD + saw6hGfW4GiGGt1k9LijFzvOlbDJpH0JlUq1Ywk5QGiS3MYeXgGl1tOFI6uQkvcNQmtCy/MeBPxczCaT + Q+LLlWrHEbw7ChGSILeRRcd5XpSc+TGrFuEZlD5djR9Sq6XnvKt3AA+f67HtbCGbTA26UIahoSElWt68 + OIBKBMfLbTSdF7eLE3f3DpKQGUAn0zOApqd6+J+5yybTAuNKpQAKtBOMAQIvVAwHGKSZ1SKM5sUcTaum + 9FU4mFKJA0mVCE2sQKd+AI1PdPA7XcAmH+z+tWQ4wKi1E40B9sTKc+w2mZWWEsvJB6XkI3SQSQOZ+Ebf + YRO7neeKpAAKtJMI/jVUid30WPChJcGRNDUO07wYOX0FQhMqEJxQjqALpWgnE02bDj5Rt9nEfsfZu1IA + BVrehOQAO8+XGAOMYJqek7/QGSTaibrHWmw6cYtNZgb8VGAMMErtZGOAgHPFUgBu24FkmhcnJ/ZR8pD4 + Muyl9IFxJfg+tgTPyaT2kRZekZLJ7K0xd6QACrRTCH45UYntZ4ukACOp+WaReZWcxc/4b7cBNc1aeETc + ZJO5/qdvSwEUaKcaA2yNKZQDkLBjWPhCx60bkA26+40mz3T9qGrugtsxOYBfdL4cYPTaacYAW84USAEa + n9DPKd0kmtZuQkfzYrSoaekitKim9FX0ubK5E65hN9hktm9UnhRAgZZHIN8Dm47nXvOhR8Ob7k7vk7fp + JsmH1/Fb0qw2RORJLXOn1G7hN4hcMriOVfty8kg8zevYn9dHq10deukmaV9txXS8TfCPA+9OvEHwM8qP + Cd+pDKflmXHbGP7OW+k7w4xWy8X5rdiCGk9/Xn91Zrg1pvCsTOFzfN3fX7tHo5Vex0cC8MFvxqPBVGzu + //+GpJWB+Au2wOYJ+6n6JgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACjklEQVQ4T22Sa0hTYQCGF4tCM6G7/uyP + kUVSlIVKaQSWSckwJUGlaENnnrwz8152Iy3zMllt07XjMulimRhD0DmnztxMiwik/FEuC6ZzLvr59n3f + 3GK2D97z5/A8Dx/nCAD4rKpjmq2CnxKQI6zWWgw1/HtUaq0ob7fgqnoCMuU48psHTeR9wP8CfpqCayhM + tqGifRzLrt9wOF2wO5ywLy1j0fUHBfJhkPfBXrCkbZKtSGWlAqFMNW6QqS0oVr5DocKMvNYxcC0juMGb + 8dVmx5UmIxVs+idQT1LQWy5SjPotZ90bxKdZGy43DFLBFq+gUGWhAiEnHzVwrWbktIwiu9EEScMwLtUP + oUI9wsriuwOYmvmG7LoBKtjGYHK8ZWmj0W85/WY/K1+43Q/L51mI7/RTcLtHIEzlow2puiik8FFI1h6B + SHMYSe2RyHuWycpp1/WsnFGrx9jHL7h4S0/BEI9gHYU/uN5garkbk87nmHA+hXmpA4nKA6ycUt3Hymk1 + fTBNzyCz9i0FQz2C9bRK4a5f+eAKy9E5z6HzRy5OKfazsqisl5VTK3uRUqLDuRKdmXDur0BOgEgTCSsp + 17+UQZpfhuHFR9DZchAv38fKZ2SvWTm5rIcCEWSbydZ6BIFn2w5hYqmLlTPEeTAuEMGcFCea97Ly6eJu + JHIaJHAaVqYcY1cEQfSuZocOT2y5EJ2XYGjhIfi5bMQ1hrPyyYIXPuXVgo0J5K5jjscoVUkQn5SOa8pS + aL9n4ej9XYiTKHFMrPQprxYEx8sjYFpUo8MmRc/PGhjsCryar0JMXZjf8mpBYGxduPF40x7EPtjNqjH1 + YYgm8MHKnX7Lnrkf7r8wiGwr2Q6yELLQlfktuwfBX+iISZhwu3FwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAI60lEQVRYR6WXeVSU5xXGTaImUdN9y9Ko + bUyauMTdNk2TJjVNGk1d4kmjxhUVUUBWFRAVEBGNBRQQUAQRkUUWkU0lgigoHGURhh2GbWAWZp9B5A+f + 3vvNDM4gntOefuc8c96D4/d7nvve937zjQHwTI24niM9TxpLGkcab9ZLVnrZrAmkiVaaRHrFLF7zd/g+ + z/0v4BdI42IKWopjrrUi+moLoq4241QeqwmRuY2IyG1AeE4DTmbX44QgEUIv1yE0qw4hl+tp3YCw7CaE + ZNQV073Y/PP/DZzB/OUXSZMic+phMBgE6fV66HQ6QVqtFhqNBmq1GiqVykb8N/7u0NAQHj9+jJCsegbx + /Z4YGHFZl3t8cHpd8bHMBgRn1ONIhghBl0hpIhxOrUVg6gMEpjxAQHIN/JOq4ZdUhQMXKnEgkXShGgeS + aki1iM5vgEpnRL9uEMczBQO8ZSYDIy7r1LxXrwSl1PzfqX0Tq6HUGqAgA8fSRaMasEntGXu/eHdcFTzP + VsLj7H24n7kPN5Lr6Qq4xJTDJaoczqfK4RR5h1SGnRGl2BleBofwO2aVIzilGv1aI+TaQfgkVEGh0dF6 + AEfT6hjK4WwMMJy7m51NcieQ0WgUZEluSc/JrdNbKjAytf2JMoIaICMDXvGVkKu1kKoGcIS2jhg2BoSy + r0xYWPT1+UVYeX4hViSwFmB5wnwsj5+PZfHz8M+4efgqbi6Wxs7BkjOzBX15mhTzPv4RPQtfkHZdWg+5 + xohe1SC2hpZCptZBqhnAHqqiVKlFr9JIvVPDUD6qL1gbGMvwzqG76Bi6A/FQGcSPbqP90S20PbqJ1kfF + aB68gaaHP6Dx4XU0DFyFyJiHOmMuag05eGDIRpU2A59FzCSoARL1Q9gdv0WJTVDP2HvoU2jQozDi0MXq + 0Q1QBQT4dUMArur9cFXnhwLdQeRp9iNXvY/kgysqb2QrvUh7kdm/h+RJ8kCmwh0Xe52xOHwGpdeiR2XA + pmMl6O0nqNJAPVSBXrkG3XIjAui0EI8HlI2BcSvOLaDkpQT3F8AFugPIZ7hmH3LIwBW1NxmwwHcjg6Xw + ILkjXe6GJIkTPjk5HZJ+LYH02HD0JiRyNbrkBrhGl0MiU6OT1n6JVaMbWHZuHpX8tgDP1xxAnm4/pfcl + uDk5wS+rOPUeAc7J0+UEV7jhkswVF3oc8dcT7xJcjQ6ZDuuCi9DDUJkBu6LuopvW7bQ+SDOCeDySbQ1w + k7U9KkE+Jc/T+VJykhU8S8lwAivMySn1Jbkr0uQuSJXtwvnuHfgo9A/okqnQ3qfD2sM/EFQFsUwvHFf+ + e5tUj/0J90Y1MH5p7Fy0Dt4U9jxPbZt8GG7ec0vZ2QDD02TOONflgA9D3kFXH4F6dVgdWIhOqQqtBHWM + KEOXVIm2Pi184wUD/GCyNbDkzBy0DBYJyYU9N8N5z7Ot4NxwDE43J0+TOiNZ6oSEju348/G3Ie5Tolmi + xb/8r6OD12Rmx8nb6KR1S48W3nEVTxngIfTiEjrTzQ9vmMvuY0quMnU773lqtyc8AvYh8qYnJXahfd+F + FIKnEjyl1xHx7dvwwbFplF6JBgJ943cN4t5+MqPB9rDbZEaBxh4N9p4VDPyINNbGAA+TpoeFT+BU9izl + bmRR8rAcL+x03Qd7570ol6eiQBk0nDxF6ojk3p2IE2/FH4PfQqukH6IuNVYdyIeY1k3dGhpKJdQXcjKm + xl46kqMZeOlzMtA4cN1qzym5wnP4qCXcOgoHVy+IDAVIl3kI8GQz/KJkB2Lbt2DRkbeozArUdaiw0jcf + bRI56smMXUgJ2nrkgrHdp+8y9MdPGfj7qZnChMuiPefkvOfW5zwg0Q3eYXtQo8+mkjvR4HEkEbx3B5J6 + HBDbaoeFQb9DS5cCte0qLNuXixaJjKAqbP7+Jlq6ZaglYx7Rd0Y3sDhiBkQD+VRyKj03nBWcz/lOX2eE + pvmhVHNWgCdLTMmTJA40A7bjdPMmLAicikYCVbX34yufXDTT+gFBNx4rQnOnDDViFdyjyhj6k5EGXv40 + fLow27Osyp5O3c4dn9Thgm/WOeBKbQwK+0Ns4EkEv9Bjj6jmjZh3aAoauqWobOvH0j05aOqUopqqsT6Y + niOdfcLa7VTp6AY+oSlWZ7wiJOejZhk0232csOq77Vi+eiuWrtoEryhHAj9JfqHbHok923CqeQPmBkxG + fYcU91oU+HL3ZTSIpahqU2LdEXqIdfQJa1eTgZ+ONDDh47B3hacaj1ZL2fmocbff015EnZ6efnp6+uly + cUMR9gTevQ0JpMjGdZjt/ybq2vtQ0aTAFx5ZqBf3orJVibVBhSipFlNlFNgVeYuhNj3AP8Em/IWmWI0h + czg5w3nQ8DkX9tzc7Rep4bjsiVR2Bid0b6UpuBURDd9hlt+beNDWhzuNCnzunglRey/utfZjzeFC2B/N + hVNYEXb8+3oR8WweRmxg4oc0xar06cPj1TJkrOFC2SVPym6Bx3fZ4WT9Wsw6SAZae1DWIMdnbhkorhKj + okWObwOvMWgq6eckfg7wry/TewFdgoEPvn8blfq0pyaccNwYbpVcKHsXawviO0lk4ET9Gszc/waqyUBp + vRSLXTOwwjudJmIevvbN4ncBbjz+Oc48Hv9jrA1M+tPRabivS7WBDycfCReSbxEU32lH2owwERnweR0F + Fa0oEUnxN5dLfPNppF+RePLxL20BzFyBbW2Ax+h9XbJpvFrgPGQsZRfgln03w7s2I44MxLGB2tWY7v06 + PrKPx6eOKfjY4Tyn5m63SW2BjzQwcVHQ71HWf154qMSyWrfgdIsdYmjARDdtRGTTBur09Yigbg+n/eY9 + DxOx1iCU4CG13+I979csqX9N4k43vQHRZQ22yPRhnoTz/acUzj88FfMCp2DuocmYQ2d6tv9kvE9Hi7ub + G2zWwd9ipu8bgmZQuVnTfV4j8Kt4z+tVvOP+m1FT8zUSLrCFD9OX+IVEeBMisXMWNw2Lb2jRz8zibrbo + F6Rfmte818Opra+RcIEtfJguNsH/iV2zmWeJj8+zxP8+6l6PLoz5D/yvVwggjdECAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC0UlEQVQ4T3WSa0hTYRyHLcPSTFIznYg2 + RU0zJcgQyUu6mSYZSjdIUTARsdImgX5QSpFCUPI2mzpzzQvJPkRZFkVeW+om3puphWF53c0578Kv95y5 + YlIvPOfLeZ/nvz87RgAMyGqYpMmsnzAixzhS6N0e2XASF+q9ECE8gfMCT7AFHjjHc/tE3pv+M0DOHkom + HIwQeGFQ3Yx+1QtIFCJIlE2QapoQwncHeW/xR2SL3GhYIlcqYMypGW3nPJUhnT+KO1UjSOUNI4U7iIy6 + ZjROpyOoypUKWBoEyNlLMCEcTuVKIVcoMbcgx8/ZecwuyqHQrCDxsRSCyVQEPHGhAta0zBHKjNIFMipg + Ei5gqYManRHYwMRZ4TH41zrBr9YRbF4ovnz/hYTCXtSMJcO/gkkFbOgAOfqdLQOeMdGnfo4eZR3E8lqI + FTUQL/FxusoBvUNfEVfwGZWjifArd6LEo/qAcQpvoD2lcghJFQNILOtDfLEUcUW9SK5uAv/HDZzi2aNT + OoLr+WJwBxNwptSREu30AZNk3iA2t7axvrmN1Y0taNc3sbS6gSv5XeCOX4VPOQMfu/txObcLZf2x8C1x + oESGPrD/Znk/LatWNiDXrGFevYoZ5QqicztQIouGV6kt3nZKEHO/A94P7OGdx+ghnu5fIMc0vlhCJm9D + vvxXnpZrcTGnFUXDUfAstkFzazcuZbdRgg/BirBPHzCLLeyBdm1rR9ZiWqHF1OIywjM/oGAgEseLbBCc + VA12moieTHm0uxMwv/ZITO88oyIymUzJ3+aXwLr3Dg+lYXAvtKYuhhLoybsDh2LyOqHSbugmL2iIrMH4 + rBrBd1vgnG0F9yyPZXKPqRd3ByyictqgIPtPLZDJc0uYIPLYjBoBt19TF1gEF8KB/wXM2BkvO8My39M/ + OYTTgsC0Nwi49Qq+CQKDnXeje+i+QnPCEYItwY7A2MFgZ0Ng9BsFI0h5TbpaXwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIzklEQVRYR6WXCVBUVxaGzUSNcRmzz1oT + jWOiVibLjCmTmKiTmMxYqdGocUfchsQ4OsYxMVHEBUQFFFEEARFQEBAEQZBFFtnECAjN1uw0a9Pd9EZ3 + s6v/nPMe3TZUW2PV3Kqvu4FH//9/z3n33jcKwGMZMZ4inibGEs8Q44kJVkwkJg3xS+K5IZ4nXrB659/x + tWOIp55U+BfEaGLsltyZWZvzZ2FT3ixsyJ0B+5w3sCF7BtZnTcf6zNdhlzEda9P+iFU3idRpWJE0DV8l + vYZlSVOxNPk1LE+ZiiXxr+bQd40TvvcJxM2pnyUmbbw1E83aYjRpiyDTFKJBXUDcRX3nHdSp8lGrzEO1 + MhfVihxIO7IhVWTR5yzUqXMgM9xBkykfXyZOYSH+vkcGRoxhqd1iKrI8rlXBLVaK47GVOHaViK7E0ahy + uEaVwfVKGVwiS+EcLsHh8BIcvFyMg2HEZQkOhpcS5fBKzMFdZSBuqwKwOOFVFuQSPv1EqY9dKYXJZBIw + Go0wGAwCXV1d0Ov10Ol00Gq1w+Df8bUDAwN4+PAhnMIkyFecR67SH1/E/4FFuW+GGRiW2iHhsyyHG5/D + IXEhtiQMcf0TbIon4v6KDUzsAtjHzMd6wu7qPNhFz8O6mI9hR6yL+QhO6Vuh7uqGqqsPjpdKcLsjADkK + Pyy69nubBlicO5ObY+KWuIWo0WehSp8JqS4DlZo0lGtSUaZOgaQzmUhEsSoBhco4FHZcQ0FHLAoUV1HU + GQtJVzwkhjisip6LTr0JSjKwN6QYeWQgW34Of4/9HYvynWAxIEy7y5WKW0eipXCJksI5qhKHI0UORVTg + QEQ5Dlwux/6wcjiGlhGl2HtJgr0XJfgxRII9wSX4IagEzrGJiJF/jyj5bqyM+gBKnQEKfQ9+DLqH3HZ/ + 3JL74vOY39o0MPoICf+/Y3dgIaLadyOyfRdWRL4PhbYLck03frhQRAb8kNl2Fgujf8OivF4MN+B8pVL4 + kv77D614gL7BB+hlBh7RQ3T3M/cFTPRZbRzAroACRLXuQkTbTiyPmAO5Wo82jYmMFSC7zRcZrafxadSv + bRoYc5im2mJgcAizARYVBEV6BkRREfFzJxnY6XcXkS3f4XLrv7E0fDbaVTq0qEzY5X8X2a0+SCcDCyIE + A7xajh5mgGssGnhA4g8QktmEICZDhsA0GQLSGuGX2oBzyfXwSaqF940anE6sgZEMMCpjP3b4/Izw5p0I + bd6BJWGz0abUoVlpImM/I4sMpLR4Yf7lV2wbcAorsxjoI3rIBE+1iDjV5hkQUvfdh8EKpb4P/zp7B+Gy + HbjUtA3/CP0zWpVayJRG7PC9g8yWs0hpPomPw15m0ckjDYx1vCQa4Hqz+IV0Gc5Tav+bDfBPqYdvch3O + mpMnVONUfDVOxknR1Tso0KHvxbfetxEm247gxm344uK7aFZoUa8wYrtPPhnwxg0yMPfSS7YN8C3Fw9Jg + Q+/Wteap5rTG3vskygxCz/QMol3Ti2+88hDasA3BDVvJwDto6tCgVm7ANu88pDefQWLTCcy9+AKL8q5o + McCL0DM/hZSIBlic8Kd6+5mT36jFGaq3FyX3jK/CyWtSeNC+4Ha1QjTQPYg2dS8cTuXiYv23CKz/GouC + 34ZMrkZtux5bT+chjQxcb/TAB8Ev2jawJ6hYMPCozkOprWs9NN16Ss+pzejIQIu6B1tO5iCk9hsE1Drg + bxfegqxdjZpWPRy8cnCzyQvxDW6YEyTMAJ8PhhkY931gkWDAPOW+ybVCcu50r+tc8yqcuFYJj5gKSl6O + o9HiTsjiGkLW2YPNJ7IQTAb8ajbjs8A/oaFdBWmLDltOkQGZF+Lqj2POhedZlA8nww3853yhxYCxj0xw + rYXUj7BOzsJa04CAhmhQdmOjeyYu1DjgXNUmfHp+Furalahs0ZKxbKQ2eiG27hhmB1gMjBlm4DtaLEQD + YrMJnU7JudM5uXtMJY5Hm5OXwiWilPYJCdQkzjQoTLA/nonAqn/CV7oRnwTMQm2rEmVNWmz0uIWURk9c + rT2Kv/g/x6IvjjTwLK9iPCw1p7Tc6ZZaU2KRR6lZuJPfaRWsl5uw7lg6zldthrfUHgv8ZqKmWQFJoxb2 + bplIbvBEVI0r3vWbbNvAdp87ggEWZXFOzp3uTjU/RjXn048LJXem1HzyOUCnHqfQe4KBTlM/auRGrDma + jgDpJpwpt8N8vxmokilQ0qDB+uMZSK4nA1UueOec7RkYv80732LAVq05scY0SKkZTt0vrP8qhgxU0/2+ + 2iUNfpUb4VW6DvN834BUJkdxvUaYmZDC/bhS5Yy3fYUZGNaEfAQbv/XMbcGAWZjOgnT2G0oeKRGSHwoX + z3uc3PHiPewLKYTS0C8gbTNgpXMq/Mo3wLN0DT7yeR2VjXIU1auxlmbmzROT8Jb3ZLzpOSmL9Ibthmxg + wte0igkGqMY6SqilpNa1VlNKTm1O3kmiKkLRJVLRYsBXh1LgW26PkyWrMffsdGSVyFBQp8Jq15ssNJ14 + heCNiM+c4nMBDcGAg2euYECYcoI73VzvQ3TS5ZrvDy2i5EV0EirET8GF2BNUgA4S79D3o7y5C8sPJMOn + bD08SlbhQzKwdF8MVh5OwnKnOE7Niw8/1LAeL/+jrA1M5EWEBycXaz2UXEhNic31pp/Nyc3iHbQTljV1 + YalTElxyl8G9eCU+9J5mTv0rgjcfFud+E3QFbeFlyMAm91usT6JWjUZ02jCgsDIgJwNyMiBp0uPL/Ul4 + z20K3j81Fe+5T7GZmjXNWBuYsMFNNNCo6qZVzUTbqAl1HUbUMHSLVbcbhEarJLjeZTTljISSM8UyHRY7 + JvzP1NaIL+IF49YeSUm3O5qBda7pWOOahtVHmJtYRZ3N3b3icCo1WbJQ52UETzcnXuJ4A4v3EXsTsGh3 + tO1a0xgpLmgLL+JF/EAiPAkR7JyxfsI1w/cvwwuJmZeIl4c+c4dbUluPkeKCtvAiDjbB/8Su2czj4IeX + x8F/t1lr22DUfwFVk/Aork5ZjQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADM0lEQVQ4Tz2TXUxTZxyHi06WmLnoJi0t + 1WILFZ0OJTGMMBI+dbhsfMxJgs5RcU4TFpPNC69MtuzGi+12DBiLuPmxMaW10CIcaitUaRonUZRJXGRu + Rpy0QKlsV8/+76FZkyfvSc55n//v955TQ68163+8KTxZFoP80lIsE5aneEFYIaSnrtP0jaGqSi38Xj3h + +npGUgwLIZ06grJelTVQV8tQXR1abS3u0tKQLlKC4Xfe5nk0SjISYWF0lIXrYRIjI8xfu8ZcMMhsIEBc + 04gNDDDT38+014t/dzUiWGnwStzQrp0kgiFi584xc/Ys9z77lAdffM7TM11Mn+7it5MnGfukhcednfzV + 0cHD1lZ6KyqU4CW9c6CsjDmfj7/b2ojUvIt//4f07arm9tEjjB35mJ6Knbgb9hGoqmLq66+YPHUKd8mb + SvCyYEjTiouIdXdz2+XCf8BF6OZ9xu8/wt94AM/eRgI3xvl1Ygqf3Avv2cP4iRNcLCxUgtVKsOxyjoOn + 7W3cO3xYJr/F+OQjEgv/EI8tcOvuQ+5M/sliclF672a0oYGoq4kfsm1KsEYJlvdYLEwdP85ETQ2R8nJ9 + cjyeJD6bZCaWIDGf5GpzM9qOHVwvKqI/L49Oo1EJXlWCFRezLPx+7Bh3KisZKSjA836jPnlGEjx7Nsf0 + kxhDTU34JGlo61Z8ubl8tyTIUIL0XyTBg5YWRqXXpYoqvbOKnZh/LpvjOrOxeS6UluFz2OnLyaHDmKEE + mUrwYrfFzKT0D+Xn45H4tyb+0DsHDx1i6GAzc7J5cfFftOaP6FlnxbvBTluGLshSgpU/m81MuA5ys6SE + XjVBvcbqavzOXPocDn4qLWdQ3tB5k5HBXCee7Gy+XRKsV4JVF8yZ3P1gP9HiYiKFb3AlbyPapk0Mb9u2 + 1FkkavKg08kVuXbbbLSuXasEG5Rg9XkRROV7D24vIPB6PtqWLQy8tlk/bZ9MVJ177XYuy2T3ehuXrFa+ + WRLYlWBVu8kY/jHTxBmTiS7htPC90USnRFanrQ6sXVCx1eRWWb98Zc2Y7NUPUf1N1RdlFqzCOkF1swkq + opriEHIEp7AxtcrzhvT/AMNe/rHZRiQnAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIc0lEQVRYR8WXeVDU9xnGo4lJQFBE5JDD + A0G5PACVQ2o0HmiMCSbGeCSxM21m+oexM7U5Ok06qfmjnWhMJ20iHqCIoNyXLCyoyKEGvEIMwiqK3Owu + LLsgt/P0eX+sirKm7T/pzjyzy29/+36e7/t93/f74xkA/1dZvPhL6tGHn3+N+Q8a+xQ9O0Ly94P7f9bA + k0FHBnnOrHFmPU+9QL1olhVlbdZ4yoayNb/LNblX4ox5zMCI1xhVQMCyC1FR5Ze3b8clRe/h0nui7ajg + e8W776LcrO+pi++8g4vm9wvbtuH81m0oU7RVUemWrSjZsgV5kZFX93l4vEqGGJWFWTZQ/tamFtOVK7iv + 1+O+ToehtjYMtbZiqKUZg01NGGxowGB9PQbq6tB/+zb6a2vRf/MW+jQa9FZXo7eqCj3Xr+NeZSXuXbuG + bsbqqqhAQ0ICCtev15IxkZIsWjQwtuLtt3Ffq0VfWRl61QXoUatxLz9fUXeeCt0qFbpyc9F16hRMOTkw + Zouy0ZmVBUNmJjoyMtCeno72tDToU1OhS0mBLjkZdd9+izOvvy4wB0q2T9mGkQZk35+9uGEDhpqb0cPg + 9xi4m4G7GbiLgU2UkcGNDG5k8E4GNzB4R1ISOk6eRPuJE9AnJkLH1WqPH4c2Ph5tccfQejQOtXv3oOCV + VwTmREntWDTw3IX165UUdzNwV3ISTAxuYnAjgxsZvJPBDQzeweAdx45BH3cUuiNHoY2NhTYmBm2HD6P1 + 0CG0HDyAlgPRaN6/H03ffYea3buhXrlSYM7UUw08X7omEoPcVxODm+Li0HnkCDoZ3BAbg3oGqdgQBc2u + XdBFH6D2Q8vgrUxvy7/+iR937MDZyEjc+OgjNH79NRq++gr1e/fi7p49qPrkE+QufUlgrpR0wygDUpkv + FkVEYIDF1BkdDQPdGwhoJ0DzwQfI9vVF3u//iKyFC1G6ahVa9+1DCwFNBJSsWYOEgHlI/d1OxLlPw/mN + b+HO7i9we/dfUfv556jcyd+HhgrMjXq6gVNuruhhAbZ/+SXauQL9nr3Q8rNqlidOJ+eg5Go1qn/SIIPB + CkND0MDg55jaxMBgqNSlKL5ag2uF5xBjPwmV77+Pmg8/RA0zdpktfHLGDIF5CIeyaMA6x3Uqqz0PjZs3 + o/G3v0Hzrj+g5dM/I9PdDWfUJTB09aJ/8D46WrRIXbQYaTNnmOFlNKdBV+8AjC1tOGxvj+LVq1DJOOXL + l6PQzw9xEycKbDpl0YBMKJvsqVPRxQ5o2LQJdzduxJ033sTtqCicD1mMzLAl6GhuQ9/AffT0D0Hb1Ia0 + qDehyi99BNfqkRoahrQ5c5iZFShbsAAl8+ZBPdubBiYIzJOSiWnRgG22y1QYM9LN8DcU+K3XXoPm1XUo + 8PdHelg42mmiu28Ipt5B6I29qKiqI7zfDA9HireXAi8JC0NxwFwU+/kjf9YsHJmgGPCiLBqQ6WSX5eKC + TrbgHc6DWgW+Hpp161Czdi1usMJVLMTkkFBouQWd9wbQ0T2A9i7CdR1IJfABvDic8Llzcc7fD2d9faCa + OZMGbAU2m5JzwaIB+ywXZxjY77WcWjc5EwRebYb/xMovYGoTA4NQXHYVOmMf9KYBaE39aGrU4SRrItnL + i/BwwgNwjvt+1mcOTs+ejdzp0xBrqxjwoeSgGmVAxqNDprMLh0ucAq8R+Jq1qIpcjeusdDWDJRCea95z + IzOgM/WhrbMPzYZe1NY24sjc+UgmrIjwMzQr8IJZXsjxcEeMjY3A/KhRBmQIiQGnDGdn6DjNNByb1ezt + qtXD8EI/X8KDCWe1X9HA1DO85wXbf427d5rR2NGDen0vbtbUI5YmUqZPx2lvb8JnQc30Z7m54fCwgQBK + judRBmQ8uqQ7OaGNA+jGCPgPy5bj+BRH5J4qUlb+AC57HufohGPMyk1NA+p0PWho70Xb3SYcsLPD6aBA + 5BOex4xksLYOjVcMzKcsGpDp5JZGAy3ffEP4KlxfsRKV7OFrS5cifvJkqE5kwtjd96jaud9ScElSYPMX + oO52I7thEA2Xf8DBiXYoenk5VBw+ue7uSHN2wiGb8QILpOQhxaIBjzRHRzRxAv64YsVD+JWIX+EMWzCW + gUo//QuSg4OVYhP4ubBQpdKTZI/9A1DM7+W+7MAFKFq+TIHnuLoilXEPjlcMBFMWDch0miE3Nv79b6hc + tgzXXhJ4BC6z9ys4douCg5DGQszjUFJaTeBKpfsMVzr7PYUDp2BJuPJ9Pq/nTHWFtHaKgwMOWFsLbBE1 + QZhPGpDh4JnqOAV3v9iNq8rKlyjw8pAQfL9oES5w5aVUCcHFgYFKpStw79koZEbUnp5Qz/FBIaefynOm + svIsdlWmkyOSOJqjhw2EUE814JUyZQrufPYZriyJwCUWWQVXe1HgQUEPx2pxgP9wmxFeOKLS81j5uR4e + OMWKl5GexY4SeDpXf5JFGW1tJbBQSh7LLBrwTnaYglsff6zAywXOo/e8wFlkCpz7XOQ73OMP4TMewXN4 + mso4z2LRZXA7BZ7K1SfyIIq2UgxIBqQGxj5pQKmBePvJejlGS5ni4vnzUMRxeparPe3jiwLus5qpzmOq + pbpzpk1TBkwmUy1tlk6oFLFkMXmyvZL2E1y5wBNsJ+AfVlYGMuZR0oajDMgodthpa7vj6KRJhkT+OMGs + +EmTEM9AcXYTlSP1KCUHS6yI4zXG1gaH+S6D5hArXapdCk6RlTX2M/WEGzePG/cnMuSB5PFHMrMJ5YGE + cqTkxJpLLaCCKGkd0UJKqngxJakUyZ6Kwqhws5ZQESMk12QAuVMyhpXVP2lAsiAmZCTLafXgv5oHksq1 + JCkoS7IbIblP4smsEYay+scMPLwwbOR/kQT8b6TcP4r35IVfVnjm32f6x4C1ieARAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAClUlE + QVQ4T82PW0jTURzH/5qEGaRIJoUEYbph3hXd1IkTjZVr8z6pZWoaDZwrvKRzama29ZCamaKiZZE30oab + WVHTbC1M0zKEbi8p5jWQjNHTvp3/mDYfeuith8/hnMP3+/mdQwGgPH1CpwhrhCGCIpDFdTslKfkYLcwy + JohzayiKsiPYBEWLqA3oHs2GQEuI8/QOOcLwZSnTc2Tj+rFJxCRKEMZLBy/5zLSnV8AuIrH9m8CFMMH0 + Y0WcL1E+7ewbwreFFehGx5GWLUdCej64wqxVL3+2Ky0RXxvbKqCfx/QL9Qhkx6ydPSfHu5nP+LH+EyaT + CerBYSiqm5BfVoOoYxlfSXYnnd8U0AfGoQDHDEnxSENrN/IKypB64jTG37zF/OIyPnyZxahhErJ6HUQq + PYRFPXPh4it7rAXbUzJkhustXdDpJ7CyuoZXrycgSDmJGL4IVbUd0D4xoFE9jfiLOsIzxMm1jdYCe36a + ZPp2txZz80swGn9h6v0nNN/VIEtaAXa0EB29j82STOUjHL7wELGFmllrgV1IlCAlr1hpWif/NpfvaJBf + 2QhpaR3ZD+C+ZgTlV1sRkVzwnSPtB0faZ7QW2BAcAiOFl8tVN9F2bxCFl5qQK69FfVs/egeGUaZqBSv2 + +KLrfiYrOKcTwdmdpGsRWCy2BEefMH5XcmYR8hR1aGh/gB61DgpVC4K4qUu73TzYJGPvLW5f9hbf2irw + 5STSkm0E54P+3BtxIimaO9QoVbbAPzJpyXmvezhdJtgwRC0ywswWAZMloBihgg2J0z6PYIl7EG/BPZC3 + 6OR6gEPudtDlhOqXlKDyBXW0fMTc2xRYQwcJDgQXC+bJSUoDFV+lp/gVzymeYvhP3lKil3/mfxCA+g1C + rtZdd1JecQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAIL0lE + QVRYR8VWeVTU1xn9GY1W21rX1KppYmsbtecYFQOoKIhERRlkkR0XQHAUF2RRHPYMizPMiCggu6gsoqAi + AQRlUTTgGvflGKPRHK1aT441GgX09vseDB2W0yV/xHfO5a2/d+/7tkEC0AH/pfXojMGjTaT/BZ15dGgf + ZOzYI6Vn50tpWflSamaetD0jV0pJ3y0lp+2SktJ2EpcgfE+dkGoan5DmFRWTMIbmvXiN97oj1Yc+qT7a + BykZuyWThUGjCdXTFwY9NrEP+p7GFQT1NLtAh9GTZvcj8kzV5jTYL16LAMUmbNKmVCnCYw31hdD5nycg + MSVbmmrrf4tgThg6xdZ/BGHuVJt166kvmuEQ+Cxak46iQ1X4xMgGpjIf2C8NgCIy/pUiUrWcyPsQerKI + nyVAk5guGVqvfmgoWzOMeslItpruEmbvFRWbEKNKSEP18dN4+sMzTDJzwrT5nnD0UsDbLwZBYSpsjNiU + OWmy8e/4POG9/1tAnCZZMrCUpxBWEJicTfp+uDI+RrU5FWVHTqDhzCV8/+ARcgpKYGDuAvcVEVgTkoCA + sK3wV8QhUBHdYG3n+hF/11mEPqk+2gfKuETpUwvPYeMtvK6Mm+H6e74kODwuNlqdjJKKY6hv+BrnL13H + rdvfoampGUtXh8PSZQ3WKhIQocpAtHYHAkJV8PUPuzbNdPaINhHt7tAn1Uf7IEyppfNSj7HT3WaNM3Wv + WhsUpYmK24qi0hrUnDiL0+ev4uatu/jH0x/w4uVPord08oX7yjBEqjOQkFqA5KxihCoT4CEPrB88dJjO + HUKEPqk+Wv+0NpFmhN4U5XkmVt7Izi9FVd0pYfqrN27jCZH++OIlWlpa6DPg27v3hYjVG9RISNuDw9UN + OHfpJvw3xsLO1UdNd/2aIALTLrpRslU20rC1Ma8et2iCfHVAaJwiSoO4rTthbOkJ1bZduHjlJh49eSrI + m4n87du3wgrf3X+AcxevwdEjELGbs3C84TyOnTyPfSVVcPcOaJluYW1Bd/Yl9LRVNkg2XzQwj2idBYiA + 8/UL2RYcrsKuvRUoOVxPOAZXeQgWkZkvkIjm5ma8efMGz5+/wPWb36KWXFNYUovL12/DUVkHeuW/oWyA + TUTNa6vQmgITj6SRbRxsZdH0BfBiT6/l61wop7GrsBz7y+qE6RvPXsa9+w9pXo0ZMk+4yxVk5pNE+A1K + q04iK78MmXll2JpZhCMnr8A1th4bdlyB9uAtJJXfhob64J1XYB9d/2TmqoJPiIdFiNZZQK8ly/wClOoU + FBw4gvKjX+FE4wVcv3UH/3z+I0V9E5qaW1BcehQWdj6YONMZbvIwuHhvhMm8pVQPNkC7fQ8q685h/bYa + 2EfWwCX+NBZvOQuvpHPwSjwDS0V1EfGIzGDSLgKs7RdNXhesRHbufhTuL0Pt8UbcuXsPL8nXnHYPHz8V + wZhbfARfaLNh5eaHP47/XGTIGCNrRMQm4RC57XD1V5S2tfCIKMAS7Wm4a0/BRd2IuYraZ8TzK4Kwgr4A + brzY19VjVV3+vjKcOnsJl6/ewKXLV1FffwJ7iw5ge8ZOhFBw+m+MwZLlQbBy8IKxhSP++pkMMqoHabsO + ooKyILeoEvHJebB2lsNsZd6jZYmn4axqwOzgGmbTZUUXAWyF3nOsnMxW+IW0fHPnHl68+AmvXr2mSH8o + ilBazgGR6xuUyVgeEIclqyLhF74NW9KLsC1zH/1G1CCvuAqbU/fAxs0XRjMXZIyZH+I2K6gSC2PqMSvo + KLP9ltBRgJ4K3ui3wNFTvWnzdrx63SQCsL7hAnYWHkZKTglCVVlYG5oI74BNok/MLKZALBcZw+QcBzZu + qzDV3DaV7href+SnHxvK92NB1DHM9D/CRFycRF3oTgBb4f3+AwYNtHH2PpGYsoMC8SKlZCWZtxRh6uwO + 5PEphYL8QPlxvZevgrG5bRrd8wGBXzt0vEc+5odRFvlVMNFAgqiOHQQw5jsso3URC33+MnbCx9ZOy25s + jEpARu6XiNTkdCBXJRWI9Cv6sq7t5QVY4OqrT96P7yEMGuO6A3OCK2GypowFDCZ0L2CO7VKpubmF9loD + ctyEKePm2i45s1geLH7xdOTq5FbyfYdqKSMqoaW4sHYhn5vbptN3TM6Vj0k45Qb/2SG1yTywDFNXlrKA + oW3rXQXMsl4sPfj7Y9oTrmA/9R0w+IPhZpbOuTInOXyDNdBsL2wjryPyVp/LnFfA0GxBBp3nX1BRdgki + tQlDPrLZ+mj62oMwWn7oPwswnecmnfn6mlR+VNRrnQjO20GGprIN8xy8Xys1WSgms+cWVWFLWiEsHeQw + mCFj8mEEQW7gky9N9imgoSAaOGKe+qShfC8+8znIAthCvQldBUyd7SxRbZdy9lRI9Eo6I0SImCAMGDvR + ZK7xLPt6J09/+K6PhZXLSkw2szlIe0zOPu852Ttfmui5W5q0LI+m4gH9h5mHRPxtUQ4MvPa/ovkQQvcW + MLJwlIwtnKQpn7eCBTGosQj+6DeEIX8aazB9vPHc4LGTTHmTTSpebrzikDTKNkUaKdsiDZ+noSXxgD69 + B40a/qFMe2bCovxqmvcnsGvaedsH7QvdN51L2HxMyGK4qvGcBfYw9CmRRtmlSB/KEqXh87XSHyzFPzg6 + NzIxp6XufBc+HQGr04FfzR8w2A0MvozBIhhsehbCYFEMJmJCBheeAW3gGjCore8ghslZyrsAP1Ko6G7z + lwBbVZi+u81fAuzOdypAWOBduoAf315wOCD0I10/2vXBkd8ZukzoDF1m6IPX+R7KNKnHvwC8s0UdKPHm + 1AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA7ElEQVQ4T6WSzwqCQBDGexlTM9OeK8v+ + 2KGLhw5eeoEOBUEdeokgCAIzqzeaZmbZ0LWFBQ+/+YYP9htmdzsA0Aouw+UHmOQDYfKGcCEIkMGceIE/ + I0roE9MSj9UC3j/DBC9WA3CyNKpszjlK0+/FTxTRcwk1ATpc04DseEdp+u5ECQjw4qRhgjsuUETPhW6b + VO6cncTk9eHGmu6urKvthVUbYIoTKQH0ztKoku7FZBU7eqCInouvCdBhj5QA+l3SqCJ3VumaBuiwGgH4 + tz2EflgvLoDe2cGbZnBf2pmgyd1RDhZSC2jDX9Mc6HwBNyzgKCTxuOAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAD80lEQVRYR8WX2zuUURTG+78qUURhMKXo + XlGiYcaYMWNISHGVQ1ERnbuuyCmnKOPQEf0zq/dd235ofD3PNz3PVxe/vWfvdbHfd337sOaQiPxXtLnQ + kxRSTrpXpYzctnyS87fIRzmH/lwX+q4VOdu5LGc7luUMaf8gflBygyxJSduiFLUtie/6glLYOg/QJ+Yl + v5nMYdl9Asq7k5J49VMSL3d2we8XO9KM383o4yD2nGwrTc+2DE+3JAoaH/+QsGXsmzSMfZfQ6DcJPSJf + JThiqB/+KnXggIALPasQsCPlcKwZ2HVeps7p2jgvhfPSm3S/os79Hca5H86L4biYzq8bfHDsg3Nfy4IU + tMxJQWJOFw4Mf5HT8fe/C+CidE4BNuAF+Vg48PAPApqRdjq3ATd0PV1B5xxzggsHHn6WU7FZDM2cNmXd + nzQDTLsNeMGp2HupffBZ8ppmMDRz2nBhbjZ+bxtwQ+eTZXTOMSfovPY+BESdBGCX86jZgBfQeQ0E5Ean + MTRz2tB5HMfrPHa7DbihfWwJnXPMidymWQjYlJORVAE4YjzfPGo24AW5kRm5OrQpOY1TGJo5bZh6FXAz + PQFto4vonGNO0PnVwQ3JCacIoPPY8y29ZGzAC3IgoHpwU7JTM1AK57Fn23q/24AbWofn0TnHnGDqKeBE + wySGZk6bUlytEdzp6QpIl+zwpFy+u3FQABeOPvkhZ3YF2Buu8/EH7dtHzW5ve2S+eevIgvaJB+ZRiQ+Z + m61p0JzvyD2zy8MDJtWh3nfaZ2PhqrvrciLkICACAX48MDbgBXReNbAux0NGENGGL1oETynfchtwQ/z+ + 3qPihqzQhFQOrElm/QSGZk4bf/uSvukleFJtwAuyghNS1b9+UACdh1FE8E23ATfYb+6WLCxc2b8mx+rG + MTRz2hTfWFQBRSgobMAL6PwSBQTeYmjmtKFzllFFqGJswA12t7slE84pICNVQBEKxwbUb4Uon2zACzLq + 3srFvqRkXEsR4Gtd1AKysCW9my3cv3ee3UDnFHD02hsMzZw2LB6DfyEgXY7CeYWTAKY+iPK5AHW7Dbgh + 1Ld3obiBC1f0QkBtqgCUzKzb99frXnAEC1f0rsrh2tcYmjlt8uG8HgJYtVpYQOahgsmNkhlUMWRaciJT + ko33nNcqr1QFF0wmqR/XM64ExoWbjt+dqafrI8zAnSQEpGQgHxmowx8G1uwWVq8sIFlCsY5jJaOgoKi+ + tyFXCB6Wy4D3eyXBESOX+kB/UjccU34RsOfiKqAmNQNIvbpW57NaNrN+M86njfPGaS0k+KSq++A74dVK + eMEcI7uOFbjlN1foHtA5Fz8g4H/iOPnvkEO/AFIqiFkBxlmMAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABpUlEQVQ4T6WRazNCURSG149hXAdj/CnR + RKkYlzEJKYmo3Boq19xiRDTKKOl6FD9oWXvvU+0zfDDTh30+nJlnPe+7FiBiS49/Anc19N9WwRf7xK3Y + J3ivFdy4qoDnsoyr0SI4T/PoOP6ApUgOFyPvYAtlCJMG+DhcBQZv3ijA4YsyuKMlcJ4VwHFC8FEOGLwQ + ysD8wZs2AQ0QZoLXhZnDrrMCOk7yEpzl8Oz+K2HSAGal2JKZYpN5pW4ON80Ew/ReSpuABojOamwyE0xm + 6mwPZ1nnJrybhqntF8KkATy2BuYL03Se43CKwWD1J7UJCMZmZx5bmA8zqMKowmgNJMHsfyZMGsBO5Tqn + bbNTUWe7ONVvM8EWspu2nrQJCKY752GZwVLnuaBq3hGxzT4BG70JwqQB9W3bads29VTMPCN1Nqvmce8j + GNYftAkanRvbTje2rXaGCQnWe+KESQMErJqDjVPxzgwW5oSA1+Iw6r7XJhia/MZBSw0HJr6w31TDPmMV + e8cU7DEo2K2vYNdoGTtHStihK2HbcBHbdQXCpAGtvD9//v8h/ACerWZsxJ0mzQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFWUlEQVRYR8WW2VdTVxTGz7/V2sFaOyw7 + 2Mlq67OtMs8yyyhIQhBCAAGZAjKJA5CgYRJICJAgaK0t/Wd2997nnHvPvblh9ak+fLKWL7/9ffs7+0YA + wDsV/9O/+Ar6nh6L0NNjCD2Rf3ufHAkUBB+/FMFHL6Fn4VDcXTgElOh6mIbOuZRAgX/2QPhm9qFjek/c + eZCE9qk90TaVhNvhXdEaTkDLRFy0jCegeTwumsZ2oGF0W9y6v4VYYwAFFyEJFb2PpQje8+iQ1b2QpgFE + 13xaBOYZLhRcSPieaJ9KirbJpGD4RIJFAzSPxUXj2LZg+MiWqB9+4UxAOrfhQfwbVAN0MxzdP2Tnbrhy + bsAnd3mAlnBCNCMcXSN8R8LvS3jd0CZizQEo9qzOFZydp2347L7wTe8bcAluJTjHrp0ruHKOcFGLcg7A + Oz+mXbNzBms4Rs/O5wy4HTvuHOEogpN7jp33TcLYR0gKPozwwQ1RM7iBWGMAK3pyzu4xelk2VIpjDyi4 + f+Ygc+fknuAYO7nn2EddzlE1g5sEF9X31p0JyLbjAARG51Q2yznvHMEock6y4KrtvHN0LpuuYkfn7tgJ + XjWwTkKsMYDtXMG9C6ecJx3OOXLl3No5we3CWc4Zju4r+10JYOQg963g+qmhdOE8n1o4ATp2R+Fc8Op7 + FDsOwPA1cbN/DbHGAN1q57Zzz8IhHI+M6Rwj58KNezw1FMeOop0zfIDhoqJv1ZkAwoHg2jXD1c6zOOcB + 8J0DFa6JCsdt33bCVeEoeuVcVIRWRXkohlhjgP924SRYD6ALRwNk7FzDae8u5+U4QFlvzJlAAG/76XAV + u943CQdoHN0GlGfbeefknOAIJucVoRjDS4PPEWsOgODTnLNrjFzvvVnv3HxqKMu5huvYDecIFyU9z5wJ + INz1VVMXbnJXftUm8KvG4Dh+1RhufdWUc1DOgSJHAT01aju5L++NgXZO8OKeFcQaA3g55+umC6ejV845 + dmPn6rw6Y1fOjdjZeTGqqDvqTMBw7oyd4NR2VTj3JxVj184zd+4ROzpneOHdKGKNASTcuHB65+Sc4R7v + 3OFcPbVs8CDCu6VzhIuCLlcC8peMAafGK+enfVJp5/rI0AAy9jV655nOESzhEZEfiCDWGMCO3Ww6XTjl + 3hl75s6p7bxvr51r+Ao7R7jI74w4E0Dnuu22c5RVOMO5fmp226lwOnYbLstmOpfwvM5lEmKNAQiuB2D3 + CNbOrR8Tduxy56hscLlzXTjDOQ8QEbn+JWcCCJa/Xt1PzYwd4XRadeF4532roG67E85tXxGFCLZjZ+cM + RyHWGIBcazjfdoK7PqnysyrBdGTIvYS7nprl3CqcFX2uf1nk+JZY7gH4wsnYd7LAzfNqxa4vXLa2c+EY + rtzn+BbFDd8iYo0BdOEct93a+ab1zGTbvW+7cWQy4HnoXMKXCC6udyw6E7gaSMOvnSn4xZ+CK74DuNyx + Dz/f2YdLbXvwU1sSfmjdhe9bEnCxKQ7fNu3ANw3b8HX9Flyo34Qvazfgi+oN+LxqDT6rXIPzFatwriIG + Z8uew8elz+Cj4hX4sCiKisAHhRE4U7AM7+W7XsHVQAoa5v+BW3MnUD97AnUzJ1A78zfUTP8FNQ/eQtXU + W6hE3Qz/CeXhN1A2/gZKx/6AkrHXUDz6GopGXkHBMGroGPKGjiB38AhyBg7hBup6/yH83peG31DXQim4 + 1nsA7+e7SkjudQKXrQT24FJ7En68vcsJfNcSh4vNqEaZwFf1L+BCHSZQQwmsYwLrcB4T+BTdnyuLwSeY + wNmSFZlAcRTdR+GMTiDPlcC7lOd//n8C8S/QCtDxwnWnogAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABlUlEQVQ4T6WRbS9CYRjHrw/DPA4zX0pq + 0SOTZgmRlHTyEEOp5TmbiKZMSc+KD3S5zjl3p/vevLD14u5F2+//+/+vA4jY01N+puZ/cNLWxgnLN46b + 2zhmauHobBNHjE0cNjRwSF/HwZkaDuhq2DddxX5dhTAuQLpvgZRqQSj1Bbt3Tdi5aYD/qg6+yxpsJivg + SXzC2nkJVmMfsHJWgOWTd7EBBaAMBwkOyPC1CnuTFfQkyhxcVOClozfCuADZGrzlzVXFvNExR7tmgmEx + khMbUADytclMMJljJXRHi+Di4cM8LOy/EsYFKLUFmMwxcbNTgXMyDPZwVmxAMHY3K7VV82kBGYwMRvte + FqzhF8K4gC3a7L2ga8fVzW4yd2oLZoJtZDeHnsUGBKMnXoZ1GeY2O4+Z+UCtbZVU2BTMEMYFdK7tpmu7 + 2KeSzQ5us5WZ54JPYAw8ig20zdq189q12WawcLDBnyaMC1BhZj7WPpWyWYZVc0aFt9Og9z2IDcisXdsR + 4cxSFhmMDEYZpkcYF9DL+/PP/z+EX/VLY1J9MLxtAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFS0lEQVRYR8WWV1tVVxCG199KTDHGlMcU + 04wmuTZK70iXjsChH4pAqCJF1EhVunDoNcaYkD8z+WbWWvusvc+By3gx54Kbd95vZs1GEdFbLfn5pfGA + fm7Yp59C+3Sjfo+u1+3Sj7W7dK1mh36o2abvqrbo28pNuloeoa/LN+ir0nX6suQlXSlZpc+LVuizghX6 + NH+JPslbosu5i3Qpd4EuZr+gD7Oe0wcZ8/R++hxqlt5Lm6ULqTP0TsoMsL4G9qn00b90d+KUSsZPqXjs + lIrG/qHC0b+p8OEbyh95Q3moO8N/Uc7wa8oefE1ZA39S5sAryuh/Rel9f1BqL6rnhJJ7jimp+5gSuw4p + AXW785BudRzQr6ib7ft0M7xH76ZM+xtge5vAdS+BHbp2b5u+r96SBL6pjNDVClSZTuCLkjW6UowECjmB + ZSSwTJeRwMewv5S9QB8hgYuZ8zqBjDnYz9EFm0ByIIH2309Qxyr8VFfb0yPV+uRQquXxoWqePFRNjw5U + I6phYl+FxvdU/fiuqh/dVbUPd9S9kW1V82BLVQ9vqSpU5VBEVQ5GVMVARJUNbKjS/nV1t++lKuldU8U9 + q6oI5W/g2QmF0UTbkyPAjzXYwh8fqKZJwCcc+NiuqhvdYTgJHMXwajRRNbQp8HLAywfWVWkfl4H3At69 + ogq7V4B1GggbezEX+yOBM7hpch/mKAMPje1ZuDEHnO0ZPgw47MthXdYfMEcVdq8yXBXcX/YngAaIzTkB + Nm92zQFvmAAYxeZcHnxkm8RcYt9UFcZcYod5MHaG53ctcwHrNBA1N3CeuQcPxr7tM5fIjbk3c4b/FoVb + c4HDPq8zkAAiJz1vA5eFAxxlFy4mdlm4TbKx+xYuAC+4z7GjAYEvqTudS8A6DbSYmUfN4y4c4Dt+c0Qu + CzeImQfhKIkdxTMXeJfAVW7Hoj8BwInh1lrgZuZnmEsDFUMR4oUr54WTbV/3w83CcfTGXOW2L6qc9gVg + nQY4ei/2uOYM12DbgF04biBm5hbOcw+Y56CB7PCCP4HGyQM6H25it/PmQgNl/euEirvtMnM2ZzjAbJ7b + viDwrLYXwLoNAHyeuVgjcjv3Cjtz96mhPHMLt7E75oCrzNbn/gQAJwMnA9cX7sGWvHOASYMjZOBkFo6M + ORlz4shRxE+Nt53tc8ILZM0ZntE6D6zTQDxzuW524Wz0xlxid2Zuzqs/dmPuxC7mGaj0ljl/Ao65P3aG + 87abhSvj2+7OvHfNmsfOPE7sMBd4WvMcsE4DGu5cODtzNhd4nHfuMzdP7Sx4G+At2hxwldoUSABwM3MD + 54035ud9Unnm9shwAzr2JX7nseYAa/isSmmcBdZpIBq7u+l84Yy9P/bYmfO2y7zjzdzC58UccJXSMOtP + AOZ226PmKG/hHHP71KLbzgtnY4/C9bK55hqe3DDDBazTAMNtA2IPsDX3/pmIxq5njjoLrmduF84xlwZm + VVJo2p8AwMTPLOapubEDzqfVLpzMvGORzG33w2Xb51UawNHYxVzgKGCdBtjawuW2MzzwSdWfVQ3mI8P2 + Gh54ap65t3Be9EmhGZVYPy0VbEAunI594wy4e1692O2FO2vbZeEEbuwT66dUQv0UsE4DduF8t92b+ar3 + zPS2x7/tzpGJgSfDXMOnGa5u1035E4C1/qq5RwbF1tGFk5lLOTMn3nYde2DmXuwAu/DaZ9wAsE4DwSOj + Yw+8c7F34OGoOVtbc2vvLZyZeQIXzG+hAS5fAzCP/aoBjCJzXikwczLbTva2G3MycBJ4aIaMORk4mQaA + dRp4mxX3j/9fkfoPVX+7dHYzPnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABlUlEQVQ4T6WRazNCURSG158x7re/RSSV + xkhjElJS0sklDRVJbpkR0SijpHv9o2XtfbbaJz6Y6cM+H87Ms573XQsQsa/HP9PmNgYf2qCkWhhItcB/ + 18S92wZ4b+q4k6yC67KMzosv2IyVcCP2CfZIgTBpwJSphUqqDQzev28Ch6/r4EnWwJWogDNO8HkJGLwe + KcDa6Yc2wSQN4GaCfaqZw+5EBZ3xsgQXObx68k6YNGDC2ESKLZkpNpm3f8zRrplgWAnltAnGDaKziE1m + gslMnR3RIuvchY/zsHz4Rpg0YGyhiVqYL0zT2cbhHIPBEsxqE4zqG9jtzGOr5rMCChgFjJaDLJiDr4RJ + A0b0dXRf0bbZqaizQz3VbzPBS2Q3Bl60CYbna3TnMmwxWOpsCwvzkRrbrKjwoj9DmDRgSFdDbqZt28Wp + mNkqdTYLs8H/DHrfkzbB4Gy1Z9v5zrZFZzBJ8Jw3TVjPgI453DkV78xg1ZxR4d006DyP2gQDM5XOtq0h + yaxkUcAoYGQwPcKkAf28P3/+/yF8AxWtYzwIZM6sAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFaklEQVRYR8WWWVdURxSF628lIbqMGU1i + YmImn5OoILMggggIyNCAMjQCMg8yiQMyaDMJNDTQzWAGY/JnTvY5VXW77u0mj/HhUGv1y7f3Prvqoojo + rY78udCcoAvNcUyCwk+OVPjpEXU8OVQYan98oNofHVDbzL66O7NPGHXnYYKap+IKQ02Teyo0sUuN4zuq + 4UGM6sd2VN1YjG6PbKvakS2qGY6qmqEtqh6KqluDm1Q5sKEq+taBdQU0xaly+h/6CaeAH+theNujfZnW + mQQLUHemE6plWuDKwJWG76j6sZiqG40pgQ9vybCA6sGoqhrcUALvX1c3e1/6E2BwxRQL2CMBQ0S7EdAq + cLh/KM6DcOPcgY9ui4CakS1VDThcA76p4X0aXn5/DVhHwI+hXbo59Tf9EDICfM4NXJwnkvDJXRUa33Xg + GlzLcIndOjdw4xxwdQPjE/B9IwRMQkDDLnZ+qMEWjujF+ZQDT8aOnQOOYTi7l9hl3zyIvZ/HwHsB71lV + ZT2rwLoCAC6feEPfNexQm7hH9LpsmLjE3mLgTRN7qTtn9wxH7OxeYh8IOMeU9awxXJV2r/gTOF8foxvj + b+h8/Q6xcy6b51x2DjCGnfN4cNN22Tmc66ab2OE8GDvDr3et8ADrCPj2dozKWEDdtlyzYwpnnMd8ziVy + 49zbOcOThfOcCxzuS+4FEvimdptKH/xFfCYLBzjGFi7tVRvZIhu7r3ABeGk3xw4BAl9W1+4tA+sIOFez + RSVjr+lcTZS087SFAxyPjOsckUvhhtJcNYzEjuGdC7xL4Kq4c8mfwNfVUSoZfU1f4WTXAjc7P8a5CMA9 + Jy7cLS6ctH3DDzeF4+iNc1UcXlJF4QiwjoCzVVG6NvInna3alCc21TnDNdgKsIVjASk7t3Dee8B5EQRc + 7Yj4E/iycoOKhv8gPtPDTex23zwQUDWwQZi0bZeds3OGA8zOi8MRgRe2vwDWEfBFxToVDv1On+NM51xc + I3K792q7c/eqYTznFm5jd5wDrgranvsTOFO+TgUDv9GZ8pf2bdcv3Oi2/qoN46sm4Ci+agL3vmrGORnn + xJFjiK8at53dF3VEyDpneH7bIrCOgM9urFF+/yv6tGyVrHN53WzhbPTGucTu7Nw8r/7YjXMndnGej8lr + XfAn8EnpKuX1vSI+fbEznNtuChf8pCJ26zx152lih3OB595dANYR8PH1FcrpPSI+vavGO2fnAk9zz33O + zVU7Dt4OeKt2DrjKuRNI4MOSZcq+f0gf4RQ4N944/69PKu/cPjIsQMe+zPc81TnAGj6vslvmgXUEnC5e + pqyeAzpdvETJpvMLZ9z7Y0/dObdd9p1u5xa+KM4BV9nN8/4EPiiKUGb3AZ3C6TnHeIVznNurlmw7F87G + noTrsrnONfxK8xwPsI6AU1cjdLlrn04VRvR1A9g69/6ZSMaud445Dq53bgvnOBcB8yqr6Zk/gZMFz+kS + BJwseGHveWrsgPPTagsnO+9cIvO2++HS9kWVC3AydnEucAywjoAT+c/pYmeCTuQvyscl2Hb9PTdfNdm5 + dq/hgavmOfcK50Wf1TSnMkPPZAICFunXcILez1vE2755DNx9Xr3Y7Qt3XNulcAI37jNDs+pyaBZYR0BG + 3gL9Eo5TRu4CpV61Ne+a6banf9udRyYFfgXONfwZw9Wlxll/Ahk58/RzR5zey1mwb7veOVwnCyc7l3F2 + Ttx2HXtg517sALvwhqcsAFhHwLvZENAeJz6TsQfuubh34B1J5+zaOrfuvcKZnV/mgfOLEMATEDBH7wDO + p33hGIwh87xSYOdk2k72bTfOycBJ4E1zZJyTgZMRAKwj4G1O2h//vyH1L6Chu4FneVplAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABj0lEQVQ4T6WR2U7CUBCG52WM+/ZaiiIB + NEYkBlERRBEpuBEVFBE3NO6NYgSRHXyicc7paW2LFyZcnF40+f5v/hlAxI4e/8RuvzF60wIp28RItgnh + qwZuXtZh46KGa5kK+E9L6Dv5guVkEZeSnzDqbBGmC5A43AIGb103gMPnNQhmquBPl8GXIvi4CAxePMrD + iKPZFqCYCQ4pZg4H0mX0pUo6uAALBx8wbA5gVhpbZ6axybyqmhOKmcHz++8wZG+0BSidxdhkJpjM1Nmb + KIBHB8/t5mDQZgrgYxtgvjCtM4PdHH6D2e1XGJgyBRCMv5352Ir5MI8CRgHjTEyGfmvdGMBOFTijbbNT + UWcvmdWx9WYGT0dl6LPWjAEE051LsMJgXWd3XJh3CCbQKclgjzxD72TVGKBu20vb9ohTMbNLNTOYHoNt + 4UfosZgCtM7atnN822pnZ/QFHAK2hh6ge7xiDFBgYY4rp1I7M1gxP3F4Yv2+PYDM2rZdezqzJKOAUcBo + Cd5B11jZGNDJ+/Pn/x/CD9RuZlqJDiJSAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFWklEQVRYR8WW2VdURxDG699KYvQQs5rE + xMQkhudsiCwDgsgiu2zDMswMiws7sokLQUBWgYEBZ0DIYkz+mUpVdfe9t+8dPHmKDzV9zrz8vu+r6uoL + iPhGS356546x5/ERxB8fYfyROmOPXgAVRh8eQvTBIXbPHkDX7AFSQef9NLZPp4AKw1PPoW1yH1sn9qDl + XhKbx/egaTyJN0d3oXF0BxtGEtAwvIP1wwnIbk9jdnuKKk1YjwANh7iCQuyhKoZ3PziQisymWQB0zqSh + Y0bgoOGg4HvQPJ6EprEkCHxkR4oF1A8loHZoC7LDKayZ+Qe/p9MSoJy78CidUS0gInByf1+c++HauQc+ + tisCGkZ3oJ7gdUPbBN+GmsEtYHD1NAt47hPAsZ/oXMPFedqFT+1D28S+B67AjQyX2I1zBa8e2IRLbft4 + Y/pv/K7NL0B6fsS9FucCNnCKXpxPe+Bu7NRzglMxnN1L7ASvI3gdxV4zwLUJN+48g29bScAUCWjZtwU4 + 0bNzcU/Rq2GjSknsHRoennwe7Dm7ZzjFzu4l9kHXOcOrWACBqyZf4TctewEBNO0kgMHknIfNcS49JzAV + O+dy4HrapefknCednUvs5NyB396ASqqLzUmsnHiFF5t9AlznGp554LTzpOVcItfOnZ4z/K4Lr7jFtQ5f + 30xiBQto2rUFUOSo+q3h5qpRmYHLeNXonpvYrYHzwcv716W+atzF8nt/IZ+WgIjuues848ARnJaM1zlF + LgM37F41B07FsVdQlfevwXWqCw07WDb+Ei80JHwCeMMR3LgWuO75Cc5FAN1z5IGr44GTad+y4RS7wPvW + oKx3Fb6sT2DZ2Ev8gk5LwH/bcApsBJiBYwGBnhs4FTsv61uFayTgfG0Cr43+iedrt20BHbTbXw/XsZt+ + c5GA2sEtpApMu3JOcHbO8J4VKI2vwOc1W1gy8gfyaQsg8Ouci2uK3PS93vTce9WoHOcGTq7ZeSkJKCEB + n1VvYvHw7/gpnZYAgvteNb3hxnbVqzZCr5qAE/SqCRz1wKF2jto5cuRUWNa7xnBk9yWxZbwaW4ZzVZtY + NPgbnqt6ZgvI5Fy2mxk4E712LrF7el5JrgOxa+el8WVgeHH0KXxSuYGhgWP8uGLdFuBxbsfOcJ52PXD8 + pPrWq3Ee7LmO3cCLupfgo/J1LLx7jHxaAhTcs+FMz9m5wDPcc8u5vmonwaNLEIoswYfX1zD/zhHyaQlQ + XzIeOE+8du5/Uh247rlZMixAxb5KcDd2dh7qXoTCrgV4v2wV826/wA/otAS4sXsnnTecdm/HHuw5T7v0 + 2+65F17QtQhnS1cx99Yhni1dsQWQczPtrnMqZ+A8zs1Vc6edB87E7sJDBC+MGPgC5HcuwHsly3i5/xCz + 6LQEMNwIEPcENs7Nx4QndtVzqpPgqucEjyjnDM/reAJZV5cxp+8As4p9Agisvl79V80bO8F5tZqBk573 + rCDHHoBz7CSggMAGntc+D2eKlvAXEnCm6KktgF0buOx2hvueVPWsKjAvGXav4PZVc50znMAMp7pCAk6H + lvDnnjSeDi0GBMiGU7FvnwD3rlcndtlwwYHzwNsVPFcELOJP8TS+W+gTYAbO2u1Ozzeca6am3d3tAbjf + uYZfCZOA8K9wqnABf4yn8FTBgi2AXKtXzbtkqNi1O3DScylPz5GnXcXu67mOncGXudpIQP4T/CGWwnfy + fQL8S0bF7rvn4t4Dj7nO2bVxbtwbeC6BGZ5D9XYeCYimkE9LADkPvmoEpkK9XtHXc9TTjjp21M5Rw1Hg + 4XlU8DnMaZ0jAfP4FsH5tAS8ycr45/9XCP8C6DTQ9buELqAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABdUlEQVQ4T6WSWzNCYRSG3x/MGIc0RhqT + JJKSdiENFUlOZUQ0yigph8ovWtZ3aPft4cJMF+u72DPPe1hrg4jGGvkkb74pUR7AKvUpXuojdtWj7csv + RC4+abP4jo3TDgVP3hDItWk19wpfpsmYITDOyMcqD5TzdQ9R5Yxw8QOhQpeC+Q4Cx20I55VMC8uHL1g6 + eGbMENhhkGNDxj4XMMcudLGe59gCzgq4OYSxmKo7E7CA6ixh6cwwO3Nnf7YlOo/g/QYWdp8YMwRkbAcs + F6ZjK9gr4bqA4U7UnAkYplFnGVs5HzVJw6RhcidrcCUeGTMExKlCZ13IU3FnvzrVb2eG59l9Nv7gTMAw + 37mDNQEbnb1p7bynYrssBc/EqowZAsNt+3nbPn0q4ewxOru083TsHlPRO2cCu7O97Ya9bd0ZcwY8Gakw + ZggoWDun7VPJzgJWzlUFb1UwEb51JhD/to5NnpThbNVIw6RhEjAPY4bAOPPnx/8P4Qcr+HIRkHS6FQAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAEfElEQVRYR8WWWVdUVxBG69/GMcYBkmji + BMahm7G7QYnK7IzKnABKBJoGBcVfVPmqTp1769y+zcpTeChYi5dd+6s6dSFmPtHSH6ML33lk/oga80fc + eB9+199/IxTX3n2l2tuvPDx3SINzh4yigTcH3PfqC6G4+vIzVV7s84Pne3T/WYvvze7R3dkW/zG9S3em + m9w7tUO9k03umdyh2xPbfHN8i248+QSsa8Dg1AhQqr8LJfDht4daQ3MH0gANvD6g/tcKJ4NTgO/RvdkW + 3Z1pkcKnmlrSQM/EDt2a2CKFP/1E1x//kyYQzHN4Db9r1sCQwmH/Rs2LcDN38JldbaB3ukk9gMMa8O0A + fxLgv/+5CaxvQGLvaG5wNT/I4S/3qfJ838ED+I7ANfZobnAzB5x+Q6UN6MyPZNZqruAIR/Rq/srB89gx + c8BRAhd7jV3nLYXYn0oZ/DHgYx/p2thHYF0DWfRirvaIPiwb6ovG3m/w6ovP7TMXe4EjdrHX2McL5qhr + Y5sCp6uPPqQJhG1HAwKGuSxbZq4zBxgl5lIZ3LZdZw7zsOkWO8yLsQv814cfpIB1DeTmBi9fODNvJeYa + uZlnMxd4vnCZucJh/8toIQFEzmHeBo9PDRUXrvSpTTc5xp4sXAF+9ZHEjgYUvkE/j24A6xoYspnn5qUL + BziOjDdH5LpwkyVPDaWxo2TmCn+ocOoeWU8TAJwFHq0VbjPvYK4N4J2zLNxtWTjd9q0Ubgsn0Zs5dTfW + qauxBqxr4L9duACODcSFkwbaZh7hMveCeRcauFJfSxPox20/Hm6xx3lLoYFb41uMKt12nbmYCxxgMe9u + rCn8cu1vYH0DAB9nrtaIPM69J87cPzVUZh7hMXZnDjhdGv4rTQDwwlfNLtzMbviqTeGrpuAdfNUUnn3V + zJzNnCVyFMtTk20X+676GkdzgV8cXgXWNVBmrtctLlyM3sw1djdzO69p7GbuYlfzi6ifhlbSBJx5GrvA + Zdtt4YqfVMQezdtnXhI7zBV+YXAFWNfASZb+CP/J2LaLuWy8mR/3SZWZxyMj9iH2DXnn7eaDak4/DizT + +f5lYF0Deex+0+XChXeePDVU28xl23XeZTOP8FXAVwRO5/uW0wRgHrc9N0dlC+fM41PLt10WLs48h4dl + 8+YBfq5vSQpY14DAYwNqD3A0z/6ZyGOHeYi9E/xSDeYC14Vz5trAMp2tLqYJABz+ey0+NR874HJa423X + mY+ss932FK7bvkoXAM5jV3OFo4B1DYh1hOttF3jb99y+ajrzYB/ghaeWmWcLl0V/trpEZyqLWsUG9MKF + 2Lc7wP15zWKPF67TtuvCKdzsz1QW6HRlAVjXQFy45LZnM9/MnlnY9vLb7o5MG/wczAN8UeB06sFCmgCs + w1fNn1eUWOcLpzPXcjNn2fYQe2HmWewAe/j9eWkAWNdA8ciE2AvvXO0dvJ6bi3U0j/bZwtnMT0vB/Ac0 + IJU0UPpVAxjFdtu5MHO2bed4282cDc4Kry6xmbPB2RoA1jVwklX6x/+vmP4FoMu2h3VCP/oAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABQklEQVQ4T6WSUXKCQBBE5zQKRMBcSwUE + 8ZARYXOjSffMogHzkSo/2q2i6r2enVVU9a3Yz+f1W5l9j+AseV6CFkjZTVow7ag5sjt7FoL9NVAgEEjZ + BykvQQCLgd0keesBKB/nO7MUxHZB6y/BxKAVYIR3hJtRsmY9QR8gcNiaAeddYKsLrNnbs8ayFADUeeyS + zRy7GyHAfdsZRtheQ1APKwGX5SM7/LyzPkA2A07rQZJqPYELbNs5w9HjtgErR86aQdP6rkk1WBaCosOT + 2diP5jgyQW/3Zs+2ui0FsZV3xsYj7AtT3Nfgp+Am29OLwJflT+UCb4WgwhnB5EQYE7wIcOdZYH8Ueypr + 1YTtHNtBy+a4EgDGwhx02O9sArYDsvYjYAoOa4E/FzbOO3sIp1gWRleODNBPtG8OX0vBO/nz4/+j8gOl + 0TahyWZsQQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGJklEQVRYR8WWSV9UVxTE7/eKggMEBEUG + GXRvCKBMDXQzOysGV2FGEQUVzToRJZFBiYoN3UwN5MucVJ17b79+3WQbF8Xjx6bqf+4ZMCLyXaU/rjyK + C3WZGv4mddQvXhtS+/Cr1DzckJohfIe+SPWDL3KJuv9ZLt37LFXU3b+lEqq4A93+JBdvr0vZrY+qCzfX + IHwH16R0gFqFbUaAy8NxGfztHxl8c+SE318fyQB+H8C3b4E6VPW+OrB6eSA91IuUxKj5lESduub2pfP5 + nnQ+o3alY9Yq8nRX2qGcAFcefUOAI7kMYq2AI68Dda0jr/bk9x051A3jynuWvBLk5aAuJ/2tT1IG4jKQ + l934KOdvrMr5wVU1bnu6IyX9K+EANCU5A4DcgNr0vz60Wjg0fa8OTa/qwIAaSpkqGGsAGEfn9010bt+A + HNozIDcdXrN7BuSm/emOKYVx28x/BBhA2Une/8YFgLGaQ9bcBuh+YUXq2Py+DeDMo8/xfW6NIzSepbE1 + B7mhcdvMtpzrWw4HqBve0Aqw7AOeHCK5pffkNE+pKlyAijvrNoAz78S349muNdcAO6rWmR1zrm9FWp5s + S3Hvh6wAanyk763U3lzpDwwaznSrUiYGehgbNUYAvrs1DkqfaY6Sq3nrEwZYlpbHCNBzXAB0Osetf+Eo + MCY5gvTAFN1uuudpjhAQA7DbL6LpaO7fPAJ6W/bdwHxm24DckLwZAYp6/goHcORSO7QhvuH0C+peUNuy + owIwxphpwzlydPzHcAC8ffrdHTkFclPUu4wASfmxOyfAV53xmgdfOeMaoPclyF3pMedadmue0oajMQNw + zNQcJc9sOlL70pO+5XHS0Pj6dFIKo3+GA3DO+xYOdM6tefDmpFdzdjmbTRtuz1zEnMMYM74mNI7Mstky + yq6m2wYlN83TSQNjU4gA16aSUhDLClANcpRcl0uP6/jA3Jbcm2u5oQsw1gBYr37O22Fsy55hDvJ0ABgz + wNmupawA2G4wddsN5vrm7PjgzT25f28GALmUYsNp2dPmvuSWXM2nkgbGpiC6JE2TidwANOZur8KXh0WP + yt11nfEKNBs7vcyt1wt4c5qTHKOG9bqCzbYqJZhxjlkxVIQx43t78c0LYktSAGMN0HlMALw5lBKMmi6Y + GEYsNmcPC5uN5bYKHxbudpAL3h1LhtrWTge5gFxLfm0yKU1TCWmEeeNEQs50vg8HIDWvmj2pljw4LDwq + EKgtOY6KHpYVDVACYm64YowY55xSarw3m62A9Cg9y34Wxg0TW3K6IyeAPyzrPKtB02GtcrXaDWfHLMJm + w5vbvb6jZfdvzlFrnt7Whrs+ldB3R8lN00TCNE5smTMwbhhngHfhAHxzLJn0Xvfm2nS6XDJnHKPmA6Dk + fHMG0G5HCJpfU3MYUwwwuWUax7fM6c538vP4ppyK5ARQcm24KM6pHzff8UGAYNYduZbed7wlRwCYUjRv + hDnKbkBuSN4wtpUbwJG7w+LMXdm54ZScI+bGjHPuDwv3ui87S67kJIa5Nwa16jSM68c2Jb99MRyg/M6n + 4LCoMQTjYL36q4b16t6b5DBFw31ApycQwJVdzSGYUw0wbhhDAIjkGqDtbTiA7nWMGGdczV3Z7UnNXa9U + ETqdo1YY43r1b+0C0DhND7kAee1v5afRuOS1ZgUou6nkOmbho+LpA3KKzca9zgpw1NhsGgLd3pRpzNI7 + c5CbPJAzwMnWP7ID2L3u1muInEqvVui62+2cc4yazrmnD8gD07RGN81JkF89LoAt/W7GYeGohXd7+LAk + 3GFBACwYfXOoARVgAJLXU864fjSuovHVEQRoyQ6Azcb1yn+btez+zV3p7Yy7MXPdnj4s2G6evJENl/Hm + NEXJrUbi5gSMr458kx9afg8HKCU5AnC5ePn1WtSzrJ2u67U7vFpBrXtdhRk/RUUWdczy2xaFTcd3Z+lJ + fYIV+DWOAFkVsCfVHhUvLhm8ux4WNpsKJceCUXI0G8lVoFah8QTkgrJj3OLacCw56PVLcw3QnF0BlF6p + ldweFf7/5s8qR80eFndUut7rSeVu53ajOOP5lKPOAy3fXEV6iOQ0zwnwPXXsH/8/ifkXv0KpcMR2FEkA + AAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAA7ElEQVQ4T6WSzwqCQBDGexlTM9OeK8v+ + 2KGLhw5eeoEOBUEdeokgCAIzqzeaZmbZ0LWFBQ+/+YYP9htmdzsA0Aouw+UHmOQDYfKGcCEIkMGceIE/ + I0roE9MSj9UC3j/DBC9WA3CyNKpszjlK0+/FTxTRcwk1ATpc04DseEdp+u5ECQjw4qRhgjsuUETPhW6b + VO6cncTk9eHGmu6urKvthVUbYIoTKQH0ztKoku7FZBU7eqCInouvCdBhj5QA+l3SqCJ3VumaBuiwGgH4 + tz2EflgvLoDe2cGbZnBf2pmgyd1RDhZSC2jDX9Mc6HwBNyzgKCTxuOAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAD80lEQVRYR8WX2zuUURTG+78qUURhMKXo + XlGiYcaYMWNISHGVQ1ERnbuuyCmnKOPQEf0zq/dd235ofD3PNz3PVxe/vWfvdbHfd337sOaQiPxXtLnQ + kxRSTrpXpYzctnyS87fIRzmH/lwX+q4VOdu5LGc7luUMaf8gflBygyxJSduiFLUtie/6glLYOg/QJ+Yl + v5nMYdl9Asq7k5J49VMSL3d2we8XO9KM383o4yD2nGwrTc+2DE+3JAoaH/+QsGXsmzSMfZfQ6DcJPSJf + JThiqB/+KnXggIALPasQsCPlcKwZ2HVeps7p2jgvhfPSm3S/os79Hca5H86L4biYzq8bfHDsg3Nfy4IU + tMxJQWJOFw4Mf5HT8fe/C+CidE4BNuAF+Vg48PAPApqRdjq3ATd0PV1B5xxzggsHHn6WU7FZDM2cNmXd + nzQDTLsNeMGp2HupffBZ8ppmMDRz2nBhbjZ+bxtwQ+eTZXTOMSfovPY+BESdBGCX86jZgBfQeQ0E5Ean + MTRz2tB5HMfrPHa7DbihfWwJnXPMidymWQjYlJORVAE4YjzfPGo24AW5kRm5OrQpOY1TGJo5bZh6FXAz + PQFto4vonGNO0PnVwQ3JCacIoPPY8y29ZGzAC3IgoHpwU7JTM1AK57Fn23q/24AbWofn0TnHnGDqKeBE + wySGZk6bUlytEdzp6QpIl+zwpFy+u3FQABeOPvkhZ3YF2Buu8/EH7dtHzW5ve2S+eevIgvaJB+ZRiQ+Z + m61p0JzvyD2zy8MDJtWh3nfaZ2PhqrvrciLkICACAX48MDbgBXReNbAux0NGENGGL1oETynfchtwQ/z+ + 3qPihqzQhFQOrElm/QSGZk4bf/uSvukleFJtwAuyghNS1b9+UACdh1FE8E23ATfYb+6WLCxc2b8mx+rG + MTRz2hTfWFQBRSgobMAL6PwSBQTeYmjmtKFzllFFqGJswA12t7slE84pICNVQBEKxwbUb4Uon2zACzLq + 3srFvqRkXEsR4Gtd1AKysCW9my3cv3ee3UDnFHD02hsMzZw2LB6DfyEgXY7CeYWTAKY+iPK5AHW7Dbgh + 1Ld3obiBC1f0QkBtqgCUzKzb99frXnAEC1f0rsrh2tcYmjlt8uG8HgJYtVpYQOahgsmNkhlUMWRaciJT + ko33nNcqr1QFF0wmqR/XM64ExoWbjt+dqafrI8zAnSQEpGQgHxmowx8G1uwWVq8sIFlCsY5jJaOgoKi+ + tyFXCB6Wy4D3eyXBESOX+kB/UjccU34RsOfiKqAmNQNIvbpW57NaNrN+M86njfPGaS0k+KSq++A74dVK + eMEcI7uOFbjlN1foHtA5Fz8g4H/iOPnvkEO/AFIqiFkBxlmMAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABBElEQVQ4T6WSyw7BQBSG+ziqWi+mpbWy + YGHRBUFSERY2QiI2biGxkUgkgro+0ThzRmM600rD4jv/6Tkz/1w6CiHkLzB0l08QonTmd1RvekM1iuy7 + Nj6iusMDanWwR6WE3EQMhxl9A0Nn8QCRm0Yx2qDc34GwXGry6HbCHbRn0QN1+woi10u9LQjLpSZPphBt + wIMhC7edhfPSS9MpsHUdJlMDLX8l6fwF8IlqXUjK9JGQQRwaTBRrIhjqkxOI3KQrizWK421AWC41eeiW + xZoIBnfEXpiIan3OymO21iAsl5o8cQY8GIK3XXm/sOA/q+YZ1X6f2WyylXONFSol5PYLkcXkEOUFMmrs + fdQ1n+4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC/klEQVRYR8WXWVMTQRDH+WxCOKIEEvkO + KiEgRy4OuRJTKFoeIHIJJMCblqA+yI0K+CKE04/T9r8nSza7oZjZouTh1z3Z3qr5d+9Mz6SCiG4VMROr + x+yoYnwlX+LHPh+Jf/vpUPyrj3/Eg6bMb7r/9IDZv3w2snwg48yS8uncnvjUgvJD8z/F98/uigdivNCU + OaDk0gWFbAK8IMbK2ARkLgJS5gL6prfZqbErqEsovU+JxXNPAuyI8VKBYEFAMKW+rwk9U1vs1NgV1AUT + x1lA47C5ADtirNVuAgTEcufUMPyLf5Z/5yqS7zfZqbErqAsyj2XPqGFIbS2viHlT2OcmIHMICAyaC4hP + bLBTY1dQF2QehYCBG6jAa1uH06WBM+9aOKN7Az/4Z/l3riI6vsZOjV1BXep5YhHQby7ATtmHOkBA5/wp + 3e0v9nUviJGDhXs7Dhd0uGB6TxpMkFc6FhsIDDFc9nr+5pgcmXdAwJMd8vftkr93h+p6t6kW9GxRTfcW + VSc3L/HFN6gqsU5VsXWqZEoEYOLk8gUlF/9Kd0vw/k7kLmSfx7LgTMqtOKUunrhz7pQ6mPa5E2r/cEKP + mbZZcExtM8fUOpOn1uk8Raby1AIm8xSeOqLmySOqjDoEhHCscuahQubY443InFd6AHDmAc5aZb4rZUfm + EODnjOs4+9oelTmoLmTvSyBrBtnHVeaV0TW6E/1eKsAL/r4dyRxld8ZMKPtQBxHAJcc3d8ZMEGPdZExA + 5vjeKL0zdh2Rl9/YqbErqIsloKa7eLB4QUxm0bwCyByrvTpZPNt1aXnxlZ0au4K6YJ9HeJthtTtjJohJ + Z80vFTU8Mfa5L2EuIDz6hZ0au4K6+FgAKoB97oyZICa1YH6rQZOJcGdDk3HGruPR81V2auwK6gIBLRBg + 6+teEDM4Z36pQGsNS18vnu26PHx2AxVAX2+ePOS+bi7Ajhjrv5r1j8W6t1u31/g7VWb7TQYTW1jPrA5n + 7fPwqPLWN38wslLigZjbpOzD/wdV/APWcraVsKhkdwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABl0lEQVQ4T6WSazNCURSG189x749JKjFG + GpOQkpIuSGMqktxiRDSqUVI6XfyiZe29T7U3Ppjpw3s+nJnnfd+11gZEHEn8E73/wshdD8K5LoZyXQje + dHDvug3+Kw13sp/gOW+g++wDNlN13Ei9gzNRJUwyCHO4Bwzev+0Ahy818GVb4Mk0wZ0m+LQODF5PVGHt + 5E1tQAYimeCASOawN9NEd7ohwTUOrx5XCJMMWCrVlpKpNiVv95OTw2SCYSVWUhuQgZhZr03JBFMyzexK + 1tjMQ/ioDMsHr4RJBry2AvOFKTM7OFxiMCxFimoDg7WLBmsHZywdnGYyk+bbOEWaNLVxwqSRWjg+p+GY + scWlGLBTeS9o2+xUNLNLnOp3crQIi5RuDT2rDQimOzdgi8HSzI54BTl8KGrbwgK2BAuESQb9bbto2079 + VCzZLs1s05PNwScwBR7VBgT/2HZ5sG1W2xZ5gQUJNvrzhEkGAtaT44NT8ZkZLJILAt7Nw6zvQW3A3rZe + G+0xKTlcRB1GHUYGkwiTDEbRnz//L4RvB5lk1G4XqeIAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFIklEQVRYR8WWWVtURxCG+68lMYlL4ob/ + IZEdhWFX2URlcxiGTfbFHZVNlGGHYUBBRkn051S+qu4+p8+ZM3lyFS8+5nm4eeutqu4+ioi+a+TPwMJn + 6p/PquR8lpJv9G/fmxOFUOL1J5V49Yl6547Vw7ljQlTPyyPqev5RIdT57IPqeHpID54cqPuPM3Rv9kC1 + z2bo7vS+aptOU+vUnmqdTFPL5J5qntilO+M76vboNrBOAQaukhqq+l7rMLz31bEkPnfEBaieF0eq+4XA + lYErDT9Q92Yzqn0mowQ+lZZwAS0Te6ppYkcJfGxb3RrZCnZAm/vwBH4TpoC4wGH/UszDcGPuwGf2pYDW + 6bRqARzWgO9q+KiGNz7aBNYtgNue19zAxfzIhz87VB1PDh24BrcxXNpuzQ3cmAOuGpBgATLzLM9azAVs + 4Wi9mD934H7bMXPAEYazvbRd5s1B28c4Bj4C+PCGqh/eANYpwGs9m4s9Wq+XDfkobe828M6nH3JnzvYM + R9vZXto+HjJH6oc3Ga7qhtaDHdDbjgIYDHNeNs9cZg4wwuYcD262XWYOc73ppu0wD7ed4bWD6xxgnQJ8 + cwOPXjhjngmYS8uNuTdzhvsL55kLHPY1A6EOoOWk523g9qghduEij9p0mmzbAwsXgtcNcdtRgMDXVPXA + GrBOAXEzc988cuEAxyXjmqPlsnCTEUcNkbYjPHOBDwpcxfpTwQ4ATgy31gI3M89jLgXgnBMvXDMvnGz7 + ThBuFo5bb8xVLJlSVclVYJ0C/tsNp8G2ALtwXEDOzC2c5x4yr0IBlX2rwQ505104x9w5ZnzDcQFNaDkn + attl5mzOcIDZPJZcFfjNxPtgAdfaM3St/YAK8FtwN0NX2/bpSluarrQiLWm61LJHF5uRpl36/Q5nh367 + zdmmC7e26HzjNp1v2KJzDZt0Fvm1boN+qV338nP1Gp2pSdGZWIp+4lSlgA0VUPv4G/KVame+Uc3M31Qz + zflKMfzGpv6iykmbU6qcOKWb46d0A6kY/0IVY1+oHCkb5Xym0pEslT7KUslwloo5Q1kqGj6hwiFk8IR+ + rArtgFgjBTC/aswvw/wyzC8174r5RVhrc1gb8wuNsIfxOdifrYd9/YZErGvYGmH7amu+Cvh7+qEyVEDU + wgW23bvhgk9qcNtDM3cWjmd+o/edquhdUeXxt6rs4VvhegVouHPDMRxgWTqBRz6p9mHxj1o+eALw+DsP + XtoTKkB/yThwc9Gw+b89qYCTvWS4AH3U1vic55oDrOHLqqR7GVinAL/t5iuGwWxu7cNt98xN2/mSiThq + QfiKmAOuSrqWgx2Auf6G47Zbc4TNw+fcXjJiPbRO+oazbffhFYCXx11zDS/uWuIA6xTAcFuA2ANszb2P + Cb/teuZIPrieuV04x1wKWFZFnYvBDgCsv17lhtMLl9N2wPlqtQsnM+9Pkbnbg3DZ9hVVBrDfdjEXOAKs + U4C8agYudzvDc95z86rJzLW9hoeOmmfuLZzX+qLOJVXYsSgJF4Dvdtv23TxwZ+H8tlP0wjlwtFzgxr6w + Y0Fd71gA1inALlz0Z9Smd8z0tgdftQA8bG7gxTDX8EWGqz8fLAQ7AGuSmbuXDMLW/sLJzCXOzIm3Xbc9 + NHOv7QC78PvzXACwTgHhS0a3PXTOxd6B9/nmbG3Nrb23cGbm1zkw/wMFcAIFwJwMnOwNx2CEzPVKoZmT + 2XYybSdjTgZOAu9cImNOBk6mAGCdAr5nIv/5/4XUPzJgw7REBM35AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABnElEQVQ4T6XSWzNCURQH8PV1Qn0ylUoa + 4zKGkJKSLogxFSG3GBGNMkrS5ZRPtKy19zm1z4wHMz3sHpr5rf+6HEDEsZ74ST38YPJ+AIliH+PFPsRu + Ndy96YHN08ftQhuC5y0MnH3BRq6J67lPWM3UiSkFEgIPgPHenQaMI1ddsLk1DF58QyBP+LQJjNcydVg5 + +TB3QAVkMuEo4+suhAsd6kDDQL6l4IbAS0fvxJQCnEptD5PD3DYlW10aCpwdJROGhXTV3AEVEDNL3IEQ + 4S1Ktrp66M82eOYRPqzB/P4bMaWAaNuExcJgaqaHRvKywFXG4EtWzB0QRh3TzGJhIpkL6Bh1jL5UBbzJ + V2JKAT5V6JK2zaeimf3yVDDp7KIpmfAcpXviL+YOCNOdW7DJWJl5ggoIfCDb9iYkdsfKxJQCYmaBOVme + ipMtji4aM3v1ZFfsGZzRJ3MHxsyjbdfEti2OjjEzzCrYHikRUwpIrCcfD08lCjCWyWWJd0owHX40d8Df + trHtxbS8Mydb7G3UMeoYGdMjphQY5/355/8fwi815WTIzt+TxAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFSklEQVRYR8WXZ1tUVxSF92+LEE1iQjT5 + D4kUCShDU+ogKk0YRgTpJbGASpOE3gaIdNvf2Vl7n3PuPXfm4sf4YcPz8OVda+1yLsTMX7X0R9/cOT+e + PaP07Bmn35jfvW9OCcWp1yeUenXCPTPH9GjmmFHUNX1Ev7Ye8C/39lF73PbsX3r41wE9+HOf708dUOvU + Pt+b2KOWiQwnx3cpOZbh5rFdahrd4YaRbaof2gLWE2DhlDZQ6n1tSuA9r461umeORAB1vTyizpeHELDP + 1VOf+ToEGPgB3Z/ap9bJfVL4eEZLBDSP7lLj6DYpfHiL6gY3owkY5yE8hd8pK6Bb4XA/bZwLvOPFIYlz + FZDc4wh8ck8FJCcy1Aw4XAO+Y+BDBn736QawvgCJ/ULnFq7OjxTe/vwdXW/Z46rJTyrAwA24ReAau3Nu + 4dY54HQHFRWgPT+TXqtzBTs4olfnL0K49PyaFXAtmWH0XOHiXmPXfksh9mEpCx8EfGCdagfWgfUEBNGL + c3WP6O2wdU0fauydFt7+7J0OnIArIeDn5gxr7AJH7OJeYx/Jco6qHdgQONX0r0UTMNMOAQKGcxm2wLn2 + HGCUOJeSnouAxMQnLmje1YlPwrmZdBs7nGfHLvDqJ2tSwHoCQucWnjVwLna7ajpw4jwx/pELmnZYBi6c + dgsPBy5wrnC4r+rLSgCRs+m3hdtV60Ap/LmDh9MuzkXAT40Q4MOj067wmn6JHQIUvkqVfavAegK6bc9D + 59GBC+E4MnbVxHmFCGjY4aaxmFVDaewo6bnCnyicEo9XogkAzgJ3rhVuex57ZBB5AZzfHvvIVxu2uUkG + Tqd9Owq3AyfRW+eUSK9QRXoZWE+Af+HinZs9F7AT8CPAKqB+m3N67uDS9yznFRBwu3c5mkDn9BF/GW5i + d2smF04E3Br9wD/Ub3HctGvPxbnAARbnifSywm+l/gHWFwDwl5yra3fb5cKh5+K8XATUbbKLPXDu4C52 + zzngVN7zdzQBwNnC3cPizqt51cbxqil4F6+aGbirdVtcPvKBv7+7yZ5zlshRLKsm0y7uK3qX2TkXeFnP + ErCegDjnet1sv4PoLbwR0y7OVcCdDbbnNRq7de7Frs7LUH90v40m4DmPxi7wyIULn1RxXjb8nr+DgNie + x8QO5wovffQWWE+AgZsLF6ya9FycKzx3z1XA0Hu+AgHBql0ETwHebZwDTje7shIwXzIeXCbeOr/oSRXn + pUPnfKV2w/QdAkzsq7Lnuc4BNvBFKulcBNYTEMbuTzqcO/c+HCU9dwIu18jAxa5aFnxJnQNOJR2L0QTg + 3E176BzlBs537lZNnJcOnvO31etc2ediD+Fm2HznBl7csSAFrCdA4E6AugfYOQ8+JsJV0/N6uWadS56e + QcAaZ8NNz93Aec5VwCIVtc9HEwDYfL1mrVokdsDltLqBuwzwTQjIr1rjHLhO+xKVAhzGrs4VjgLWEyCu + HVycxz2p5ll1D8sa5UOAJJBXteqOjOl54DwYuCD6ovYFKmyb18oWoBfOfUrFw/3zukL5AJcMnHJe5Srn + DpwHR+QKt+4L2+boRtscsJ4AN3Dxn1Eb+qIFcKyZ9FwEFIuAxIo7r7nOLbwYzg18XuD0+8O5aAJwzdpz + z7n2HK41dpTedoD1tqPneZUrXNR/ypcqltnEntXzIHaAffiDWREArCcg+8iY2L3zqrGbXXcDdwnOC/tP + +BsIENfOuXMfDJzt+Q0pOP8NAqQiAuDcPKn4jyV41QBGsT2vbtWCgROwKwNX52zhrPD2BbbO2cLZCgDW + E/A1K/aP/18x/Qd+wsO1wnhZXQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACRUlEQVQ4T52TXVMSYRiGTRSc8vtn9GHW + L+mMEFCxpKwf0alCNpaW/oOa0uqkU6cC01RmmumYj2BCSPmGXWAXb+/nZaE4bWeufZdh7/t57ud9t8+6 + LpF+YrMYsBi0sBOHxZD1ux8AF4ofb0V2H21FsLQZwcPNYzx4eQQ/Wdw4xOL6Ie69+I4F4lsTDuAJfglR + 5+gY9Iv43+tc4C2b19Hig2C2zmEQvWFi7tm+KC/zNWVg6xg0DRN1o4V6s8207z0FBmoU1eoGqnUTmYIO + b9tguGuw9OpYGTTEQIlN6CSVrarKNQqrNKhwPRGD1W+iHOkYDEjmLP+4vfARqdMqbs1/QPJPFTdnd5DM + VDHlfYf4SQXX3W/xM5aH5+ler4F/40hlbrCq5JUOpHKSHRgmO9ANxmuhohkoak242wajHYNB/3rbQAak + CWxVct/wbKvsFRqUSYmkzjS4g8pgrGNgv8+tYkElbg+snTmRqXAuLZRZuWSRPNXgCoZFOf7XgHucyWuY + ntvBL7Y95d1GnGLJLNmvud4gmi7jqvM1ItEcXIGQKCc6Bg45KJJZY1WVmatkFrFudSDdFWsGMkUdd1d6 + DYZ8zw+Ugdoq3VSZJa9ULtWaanBFmhT4HGeHzpWvopzsGsyv7asBZumeLtSRZpzfOQ0/onnkKg0kzmpI + cFtjFMe4rc7lXgO7J/B5d5anSw6Id3VPbZNMeobDmgmEmTms2nYKyyHcefIpTF33JMqXKF/ZFTJMRsio + xRgZJxMWkxbynk0ZyO3/Qd8Fg6WeGqBUaQAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFoklEQVRYR8VXa1eUVRjV8i6u7pcfkFGU + kvVHugFykbtaoqX5A/qWpZjXSs1qZct0lSyrL31qtUANAfFS34bLIDCAIDPAXGBuPO39nPe8vDADY33x + rLV5hpl33r2fffY575llIvJQYf7MjeWL4JEHxKM5wGt4Px0LBfADXrQCWAms8mC1B2s8WOtgnYP1HuQ5 + 2OCAr3kt768ivAKUfP+3d/7c/93fgiofAfu+uSN7z96WD8/ekg+Ir2/JnjM3ZTfQcLpTGk51yq5TN+T9 + rzrlvS9vAB2y84sO2XGyQ7afbJftJ9ql/kSb1B1vk9pjbVLZeKUFPBRBJzIErCD5UmM0NO28yj5yfV5z + 9DrJ6AadzhCwkl1zpFKzkkylDZJpSaAmUF+v/1XiqDMJgDWZ0tfTiZRi87ZLEoungKREUaMzKYkoknJv + YtoKeAzgNGQIWLXPFUByI8KSE4GxqKTTs3MiFCAkQNh/L4LrZ5U8AhEKCAgDwxBQfaSVZI8DSwuY37kh + JLbUXlZCC9u5FbCp4met3s7DxHRShjA9lTkFIHAqgOQeWAGDcCAFB7y2G8sN7qoDaadr231SpiggGJPK + z/8i2RNAhgCmcvVeJJ1BeqP+Nxm6H9U5p+1ban6RwdGIvFZ9GTUqm6uaZIC18pLazs5J/mr5RekbiUhB + 2UXxD09JQekFrS+X/Cj/+INSeTiHAC41Ds5jetZYrx0jbKwDEMHKzpkRWs9rGTo61QcR/A6tZ0jZPd3i + FISicak7piF8EuA+k0UA1rkKwJcTII3boOF/1kJ07tqOqkm3ANkr6NzO+xQBYoOEDIxHpaLx2pIC1uw5 + YwSYOXfChtfTKiSlDmjn84gNON/+kbDbuRUwScTmCXgKyC5g9+mbjgB2T3KKWGydAyBhDeM9dl6w9YIb + OiVG5woI6Eemyg/lENBgBVjrKULJjYh+jwMkpAB3uYHQPzKlDswJMCImIOAuBJQdukqypwEKWL5QwNpd + 2Nu5CgqrmzT1hZVNSsrO56f9Jw1cQSnSDtvZeS/ImfZepP6l4vPSPTQp+e+iBlh/kM7u8QcTwMHu3bSj + smOm3a5zds6ccO51ztElv0NyusXQxVAnY2ZL5hSMTs7YfWBRAev4VDMCMjcZguvc2D5/kzE1IflF57VO + gHgC74dATPuJPji59eAVkj0DLCIAj1QOLrFpD7FNvHedc86tADvntJ3fVVIKiSZURAjVPwYBny0ugI/H + 9Ts9Auw6pwDzUEHKMedu5xYkB4k6gLmmEAoI0QWPgF6IdwQ8C/CQk0UADhMqwO3aSTkr4K5zp2sDLjXH + gcCUfs/aruRAUAWEpSSXgB0QMIqHxqZypj1s0s6U27SXzKW9B4HLR9p7hlDRuab+nXOa+hffPie+wUl5 + wda3vpd235iUfNpCsueArALyduAYxRFD10w7N5y4Pt3M3s4Hi3XApD2pbnEK2HkXyCKOA3SO1nO6gngO + BNBYmQnh4gLqHQHGegPewIKdc8lZy+0mY+3eiI75mpZbjEdY49INB4sPqAPPA1kFbKjHIVIFOOSuAJAR + tJ3LU4kpwCG3AnyBCbdjAwpABSigKJeAuuNGgJecSbehM+ucKZ8jJ7FWkG3EXLO6DqD7cQihC77h3ALy + anF85hjB+Y0YIkIxPc0EglG53RvUbgawr3Nv72PF+uYm4wc6fPdlGFt5DwLcjWXXjcNJFzrvArkP4S06 + 0EyyrKtAt+KqxpY/anBo4Om16gjRquAWuu3wNakAao+2SgWeanyylR28KqXY30tRuctxnfMzpr2YQMfs + uuiTZq1vfvx7M3jsmXCeAP1dAPBHA8/tPDrzQoJHKIIHCYKPU4J7ugV3N4LdEUw6Qbst+D7vy19XbNhw + OwI4KIIfcDooZiG4feYCrV0KvA85yJUh4L8O3uT/wB2ugIcHWfYv4aYvRHeWkJ4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABi0lE + QVQ4T2P4//8/RRjO8Ks/CMe+dQcYttu5MByysGAAAqbNJibqQJpxv6kpwx4jQ9wGoEgANQAx83pj44CL + WVk/rjQ1LQAZBjIERR2MgWwAVDPrCkPD4Kf9/X/+3bv3/4iP9/+dxsZNIDmYOrBaGAPkbLAARDObdcqc + sMYll//8unv//8/lK/5/Kiv/D/TS/+2mpmYwPWD1MIZ37X6YZnbLxGlRIM07zr7+X7Po2v8rYZFgzVtM + TLKB8sxYDYBq5jCL7YtD1uxbt++/XeHm/2uNjPKB8qyggMUwAKbZNKonAVmzH1CzPVCzaeIskGY2kDpc + BrAeOXdzHkLzdbBmkM3GcVOLQYaDNNvkbwRHLTYDBDds2f7/4KVXf2sWXgc6ey/Q5k3/jaInlAHlOEGa + QepABoAwNgNES8qr/j9/+/l/VOdxsM2GkX0VQHEukGan0m0MIIzPAEE2dvb/xWWV/1dv2Pp/x5FLS2Ca + kRVjwxCCgYEFZAgQi0JpcIChK8aGIQSQIgcPBgP+MwAA2TX1ss3zCvcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAE5klE + QVRYR8WXe0xVdRzAD4pSaZa9lkXGHwwqSFAM7gsi2GqrK2zINEF5xOMC8igeumgjQKeXBNGsZqHI88Ll + lYhwTXkLy3KzIh2yXLpCkrb+qGmtdd237/d3z8HfPedq3NHgbJ9dz/f8fufz/f5eHAUAUDDHaxGyWPx1 + +H4eReCFbcfuiW98rbAmsV5Ym9QorDeYhfXRpYLRJ0ho8fAg3+I2b+8tvf5+1t6AgN1474q4XAwPV3gk + FAFeFrHrSxul4q+M+BKLkF1iEgr3dTB5i5dXzFBgoPVSVBR8rdXCiE63B+NLKQm5R0IR4BOIJLFcLt7H + l1qEt0le3sbklX4vxfZqdNap3Fz4s64OporeB6wcBrXaMnx+/92SUAT4BJiMT4D7d1xJz0zlYRtSYmNS + i63lez+Fq33DcHtgAKC9Ha6nJLOROO7nX4Ht3OQuQhGwS0Am5Ynee94m16fGbk0rtTZ3jcAR8xmYuPIz + /Ng3Av+UlcEfO3bCpYgI6PP3R5OwQu4iFAG7BER5pFxutMlfzm6Njcyqsta0nIGGzrMw+ctvcO7CBBTu + qYaTJQdhKs0AwyoV1Hl61mH7ZXIXoQhIch9c7dIU8AlslORZLVv1RUPWzI++gsL9Zrg2+SuMjf8EVU0D + EJtzEBKSiuELtQ6OeXo2YvtHqY/cRSgCJJe2Gl81IVUewuSD1rzqcSj4ZBCa+6/gCIzCoZpT8NbOzyCj + qBrUryZBhddzzdj+ccRV7pFQBHzialDeIPgnmezmX5xz1+Dt5m1MfhTlHw9C2+gk1A7egLT9wxASswsM + mIDmtWR4PuCNFmz/BPUxubsrPBKKgO2QMbFDRpLj5UIvCskwxdGwMzlW3jZC8mnIOvwthGQ2Q2hWK6g2 + 7QbvgNdpbz5JfRLeaxXqV3soPBKKgCQPymi3kwenN8ZvkORUuSjPJPn2Zggr6AFtTiesebOS9uZT1Cez + uEkIy+1i0yr3SCgCklybdVySL9Gl1ydQ5fkzlV+/UznKw1Guy+6EFzdXUKenSb75XSxgx+dCyDsnnUtA + ITfUJuKc3847elms/I48WJRT5b6byk9ge3fqQ1IepxLQZM/Il2pSjiTb5OOQL5PTnIcVWEDH5Pu6sP0z + juROJyDJgxIPG3h5K7/g2JxbQIvD7hv9QTe2X303OeFsAq6FBXn6lAPnIK7iPBt2O3mm2VY5kxt7sP2z + 95ITziaw/ERN5emrP0xAQ/81KKwZ4+bcjHOOleOw+0QbLbORE7NOAC8a/lW9pg9///uvWxgC6Boagy3G + UXHB2YZdlNMXyH/KCWcScAt/JTT9m/4OvAW4OX0ZbnzXAWdHRyE0t5stOJ+NxlPOyAlnElip0Wia0gwp + M/Lp77tg6uJpKKvtt6ucTkz6m0Evnw28h8f+Bg8RtUY9pdfrIT01CS50V0FjceKtQzlRYxHh2mx8Ticc + k/P95oL9DQrWrlt3U61ST6pUqnadKjAfY97IKmQZsuj/lBP2N4JwH0JHKR0qjyEPIOzzmr/4PnPFYXA+ + kS7afvSfCfqOl1iC0Cc14SZCI0TQVy5BI0RTQywXeRBZIfIQ8rDISuQR8Zfa0HvZ6JKcUlkIqEiWhaOH + 8wGNKht6Rw/nA5rOBU2AjcBCTgEVzxYhJUELgl/p/GrnoZUvR9oJcqSdwUNxeg/uNMHlX6lfK58qrgeK + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACz0lEQVQ4T2VRSUyTURCesiqIUSPGeDAN + iJZAFBMUkLKXssqObKVgS2tLsQtdWEoU4sHEeJCLHDBRExPj0QsXY6IHlFRlEdmiIhZJpaUtSET2cR4m + Hvq/ZPLmn/m+b94/HyDi/6DjZ7b23KE7gIJn6uiG1vYboLd0gdZkhZbWdmjWW0ClNYFC08rw4CsQaOm6 + hUR4QHkQBU9vsYLW2AkaIqt1ZlBdNxLZAHKVjuE5AkHmzh4cfGtDmvbsJD8ilGo81nO43LC45AGnZxlk + 17TQoGhheI5AsLHjJqWItvfDqNG3vRTExB6iut/ikhecbi+4vCvQ0KQBiUzN8ByBffR83N3dxe3tbRwZ + +4RqnXEw9mxcOPX8l4jsXv4FkqsqqG1QMjxHYL/W2IE7Ozu4sbmJ6xsbODY+icpmw8jFpBQ+9QM8K6tQ + LW2CKomc4TkCIRpDG27R9LU/67j6ew3nFhz4+s07VLYYZhIupQoIs+dQeU0jw3MEQtVaE03exJ8uD858 + m8fpr3b8PPcDhz6MoqJZb49PFJ4n3J5DjOArcID8Rdo2TnyZw+nZeSIv4Oy8g17ixNHxafodnZNEhIQN + puD5CoSRv0hW4dSsHUcmZmjyR7wikWNFTSOWVUmxpLIOC0urXcJ0MRPx8xU42KjQIG0bXw3a0Gztxu8O + F1rovpCUIqH+MYrDDEfx7zd8Beplahwm+yQy1VRpZd3YkG0Ynw+8wJyCsgHqhzFSbmE5ZBeUMTxnBwdr + pUqUNqkn+RFRggxRvu723V50uLxYXS/fioyKjiWMv7igFER5JQzPdYHsGT11OjqS8qAjR8NPFFfUue1k + ZV//I0xOy75H9ZCs3GLIFBcxPEcgID4h+TjdgRTMppA0UX7f4ydP8X7/Q8zKKbJTLSxDfBnSRYWU0vER + YKS9oE2z7wBBzLk4UV7xQqIws5cfeSaGakFpogJIFeVTCvAXdAXPOWOByJcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHrElEQVRYR51XaVBWVRg+UJmmqSmVS2rr + lDU2VuOkQYrILgrErgiiKIuIbIKYmqaWjlmRaZllE5m2aGWLS7ZZMrmkYCwSfKwCsoNssti8Pe85cLrX + fpQ+M8983/vee77nOee+5z33E0T0L/bCCrzpte271uGzH3/nXPKqF8Xy59eJpJXrRGLqCyIhdY1ISFkt + 4lJWibjlz4vYpJViaWKqiElIEUvikkXUsmQRGZskImISMVzBpGUMdFLBGuyX9tZ7FL9i1UZ87w9KE4mp + a5X4ChZfI+KSlTAzJnGFiIlPEdFxKSIqdrmIXJooFsckiPDoeAxVMGkZA51UYAMDXt/xLh059hMtTUp9 + GfFt4M2gVU/PVdHH7p4eyfaOK6LpcotoammVbJZsk+ILI5dhmIJJyxjopAIbuA2PgK5evUqHjv5A0fHJ + m5AbCEoTfcLawJVOGFDiykCb5MKoZSIsYimGKJi0jIFOKvByD9y6bSf1wEBrWwd9e+R7ioxN3Iz8IPAW + UJnoVpQGrpk9k8XnL4rB7QomLWOgkwpsYNCWtB2EZaaGpst0ubWNvj58lBZFL9uCa4NBaaIL4sw2fgTX + iGOMCF20RISER+NWBZOWMdBJBTZw+6bXthNmSXWNzVTb0ERYYjr47REKi4h5BdeHgLxDrLu6u0VLe7sW + Z2HFdjFvQbQIXhCJ2xRMWsZAJxXYwOCXtm6TBmrqG6m6voGq6xqosfkyffH1IQpZGLUV9wwFpQkWlOLa + QLtoaWsXwWGRYk5oBG5RMGkZA51U4EIbsmFLGmF56RKEL9XWU1VNHVVW18kV+fzgNzR3/qJXcd8d4K2g + NGEUZwaFLhaBIeG4rGDSMgY6qcAGhq7b9CoMdPcK11IFePFSLZVX1chV2f/FVxQwN+x13Dsc1Cb6xJmB + 88KFf/ACXFIwaRkDnVRgA3e8sHELdcKAFIZoeVU1leGzrLKaSiouyUfy8f4vyTcoJA3324DcsKyNBljc + b24Y0gomLWOgkwpsYNjq9Zups6tLCUO0FKIsXHKxStJSVkG5BcX04b795OU35w2MuQvsNdEhWts7hO+c + +cInMBQpBZOWMdBJBd5iw1eufUkaKK1QgsXM8ioqKq+kQoifOp9LJ85mSRPpez+lWd7+b2Lc3eAA0JoN + +ASGiOf8QxAqmLSMgU4qsAGblNXr6UpnF0QrpWhRWaWcdUFxOZ08n0MZZ7Ppt3M5dDIzly5YSumDjz4h + t9k+2zF2JMitW54fXr7B+FAwaRkDnVRgA3fi1JMGWNRSWkGFYM6fRZSR+Qdm/o/4qaw8Og3ml5TS+3s+ + Jmd3rx0YPwrUJkAJk5Yx0EkFNnAXjlrq6OykfMz4j3wLnczKoRNnspR4ZjbiXDBPGjiTnU9ncwuooPQi + vf/hPnJw9ngbvzEa5PNDmzBpGQOdVODmcjeOWNmCj5/OpF9OZ9GvEJfLnpkj2TfzMzkQB8/BQGaehSyo + k93pe2mao9tO/M49IJvgA87KpGUMdFKBDYxYEpdC6G5S+FcUW8a53mXHSpzC7Fk8t7CYqmrRqLhZ1XHH + bKSahkbZut/7YA9NdXDjx8GFyX3iugyMjIpNUgYgzsvOBlj8/AWLEreUoC0fJu+AEPL2DyZP37k067kg + 8vAOpJleAeTu6Y+i9KPpTh58dnA9WJu0jIFOKrCBUXiZkAb0zFFweaj2I8d+puwCC5a8UPYGdLuuYcNt + ZmPM4+BD4IPgA+D9INdB35nxv1eAl2v0gohYWQMZeN5ccCy+O30fBUCwGFvyfF4htmYVpeHFZcrUGdsw + ZizIRzXPlnsBk3+Li/q6aoAH3RMaHg0D7Zh5DsRL8Ez3cnWnz3CZdeDTAwexLSspGzWQfSGft14lxvCs + jVVvpIRJyxjopAIbGDMvLJJaYECKo6od3TzfRX78gw8/6rl4SbwstOz8YnlWJK5YQxMmTuI3Dz6YeMZW + 6CFimuNM0B2hgknLGOikAhsYi6OUcKDImTu5zt7FOZAF7nWe6f17xskzct8XYdsd+u5HsrV3OYFr40Be + ehjoFlNnuAs7BzeECiYtY6CTCvIR+AcvxEHzGTkq8TEgvw/yYWMzacqzSWs3bJYnYl5RmdyG/nPC/ho9 + 5j4XXOeiu+lKVzfEXYXtdFeECiYtY6CT6nnJRuQbNJ+c3L24o3EzYXE+JbmYBt3Sr98jLh6+tUWl5ViF + Cvme8M7udHrqabs9vffzJKzs7F3FM/bsScGkZQx0UhlgocHunn782sVH7LWFJfvEZDuHXSxahbckPrCK + YWaa08ym/v0HTMR13g3WtvbO4plpzviqYNIyBjqpwLNkkb5tJLcQv/nyHxCAzQwZOXqsg19QaE99U7M8 + LWvqm2nlmvU0fsKTq3H9TpAnYjXlBgz0zVQKM/vE+f2/N8fm7rW1dzp+9NiPeG1rpIbmVvrh+Al62tYh + E9dGgHI3TJ7qhA8Fk5Yx0EkDPLwD5Pu+FO4VNxjg2dk88tjEiNiEFHn4+ATOo0lT7H/HCvBfoWG999y4 + AXevAIFeLlxn+QoXDx+BrSdQlMLR1YsvswnueOPsprtkPTHJdt+IUWM9EXMb5q0qX80mP+skbtjAf4AN + cC3w7uDTjpecZ82mdOsFTfhHi8Tf+Xmxp8VahAcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACb0lEQVQ4T6WT2VITYRSE44ob7s/llQJh + 3xV9Bq9BkLCEmBAgCDyCCgEkUGIIZJFLIQhIiUqxBMhkm8xM2j6TQbw3VV9NKpXu06f/f2wA/gv5XCAX + ySWLyxZXLK6SEotr5Dq5YT1LbC88scBzTwxt7hieuaN46oqglbQMhNHiDKOpfwWNpKFXWEZdTwh1jhBq + HUuwtweCNhEbRgFGgciTjM9vQ9MLRbQC8pqB0Y+byOUNkyxJKCqqu4MwDQoU6bphiQyMB4oGKoVnAt9s + 0SCtakjldOwd51DVRYO2N1FMLHw3pwpj81tocq1ylVU09MdQ1xdFbU8ENY4wRmgyNL1h4vbHUdn1GTbZ + WZcERBM4ucn5BbNxBdPrCvxrCia/JlH1egVZVUdGlRQGDk5ysItB6wANKMpbu0psmTxD8UQ0gfHoMcYi + R6aBCJWshiTZPcrA/mqRBs6IGfttgMxtYXRuE/V9MTQyeo0jgqruMHddgb0zBC+jexl9kLg+rKOikwma + eVRnjUsCwTf77bxxTpXYgxSnWZ4UqGRZYiKLcknQzDM2G8/rVuM6hmeKBv8KvFNx8/tpRsMJ2TlI0+AT + bHJRfIzt4zmPcPKwQIMh4vVL5A0z8iANPP51uKfIZBzO92soa6dBQ9/y3+iqFXtoZsOMnmbrZyncNJAk + ZolM8OMwg7IOGtT3hqDwh6OkisNkDvs8Hg8nHvKm/U5k8JNt7/LPLk78xb139lPYFvZSeCwJqjsXArW8 + 2zXdSyTI4yK8YXJJKtmynVSwLCmsvGPRnPqEQuHRy3dBvlDmW3aT3CKl5LbFHXKX3LO4Tx6Qh+fYSv8A + sqDmHOLqTSQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFwElEQVRYR8WX51eURxTGSTOxa3r9lywR + 0agxJrHEFtv3nBOlLR1saDQ5RuOJsbevKtJBJKCIgscSTZTOwrJ9vXmeOzPLu0hO/IR7zs+ZfY+8z3Pv + 3Jm5myYiL5VxH04k4z6cSF7W5xWLftyXVy2vvSCvvwBv/Af8e2qpCU4mgclgCpjqYZpluocZlpmWWR5m + W962vGN51wOf8z3UpHbapK0Hmyu2/dIq235uka1gy8EW2XzgT9l0oFm+Jz81y8b912UDWL+vSdaXN8m6 + 8muydm+TfLfnGmiUNbsbZfWuRlm1q0FW7WyQlTvr5duyevmmtF6+LqmXFaV1sqK4Vlniu1wNXQbBTKRN + pngi8QwkPGNC4uBo5UOJ4Vk8npCYhyg4cuWBRGIJiWCuoyUMDl26L+FoQkLRuARJJC4joHcoIsuLall9 + zAaXI20Ko1bB+LNREbyEIqUXOnSuL8YL+fJwLK7zorN3dO4EgpGYioyE45J3uh3zmATCMRkOGYbA3/1B + +bKohgbeB1yGtKlbkgYobkxQPAqxkgudOiajowklLoVnb5sIbXQkQFGQf6odY1yGYYDCjsc0UKgGPhxj + wEYPESP+TAVLz3eoAQo6KEqeM4DIA0pM8k7d0tEr7g/G5FHviCwrrB5jAAV39OpfUnaxU8oQcamlBOnP + 8NWDOlmYC3LqZEFOrSzIrpXPs2tkfla1FMBE/pl2yT99C7Rr6n2n2pRcmMg9iRHknGiT7OM3Jev4DVlW + kGpg2mZUOgvOFRojdiyEgd8a++VIA+mTw3V98mttrxyq6ZX5mTVm/YFZArPmJPfkLRnG9+FwVIYcoag8 + 7gvK0oIqGvgoaYBbjQaiWH+33q7YGDnFyyt7ZO9VUNEte8iVbpm3o1oLj2utxWYZUgNtdv2j4idI/yB4 + gCVYmq8ZSBqYzn2uBjTquERcoeF7OtJ+uL5PylUcQHg3udwlc7dXGQNjxLneOWrAioNBEoyqgS/yNAMf + gzfVwMb9zZp6U+m22DAPwUQ61ptppzgjd+K7LnXJHBhg6p14ioETNz3RR2UAqIGeAAxUphrYsO+6HK14 + qEVXgqovPn9His/dkaJzt1FwNbbgQGY10l4l8yBM8Tk/Vmq1+xCtg5FTnAWXfeIGxhtaeJl/GHYca3UG + PnEGZqyHAVd8LguaCcwLYSKEudt6LDR34Litxn1vCs5mAFDYpT+5BOBBz4gs9o0xsA5nO/e+OWiMECs7 + BBHvXjeHjCu4uG41Cru0+3Wvm1RnIVoKM/UDwYj0g4GRiNzrCjxnYKYzwMJzkbrjlQbcNtNo7WHDo9WH + DGjUTlyjNdXOtKuBkVH6wb2uYVlkDHyaNMBbzRiw4hBzFJyBgaS4MeBEda/b/a1p5lbDc0bN9U4asBmg + gbvIwCLf1RQDs9biSj1y5b4WHSMmFCbmlDNwzV3RUTyl4PSUwwhhpj/zGGnVotvxe6tsV1qUjFw18FnS + wBoY4JWqxQZ0/Zn2KC4VHLF6wjELrtgIskBxlwHWgWaBS8EMQJi1MFoDJhusgecNoJmgAaZ69Eg1gjTg + bjV3pRqiiLpNhTX1EHBQlJFz7EfhGcz87tNhycipSDEwe7XHgNliAC+mgTy9ViGYYgARQ5Rp9yMDzoBG + yzWHENOukWPeFwB27HwyhEstaeAtGpi5Gm2UH3/Y6w9Lz1BYuv0h6QJPB0Na6V2DYXkyEJR/cJezoXiE + C4XXKg1wzr3NE47c7w5omrnmnDNiQ0A6MXbAQHqOLkHyJJy6orjyEnu4lWUNto+rQx+HHo4U18lX6OOW + o4sh7GZ4ny8rqNFLZYlSpec7WYxTjtuMcK0zcjFCkDDydDD3h4uV0GWzqi0Z/2EHzG7W28G+Z2HrRD6w + 8B538EYjjIbwcHFwmxGm2gv/HztjduHaFbM3d32+69u98Mr8P5jKF4FrzpHvTf4u8H7cj5SJwHzG+702 + kYz7cOKQtH8BPEU0baW4w3UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACyElEQVQ4T6XTZ09TURgH8OvEhfu7kDje + Go288J2ADFkpFDEoGETU1yII2BbKKquAO4awyipFZLXQMiqFUlaMhAqle9GWv8+9veIH8Ca/nFfPc//n + OecwAP4L+x0ih8kR3lHeMd5xEsE7QU6SU/wawbxsMyiftxlQ2LqAgpYfeCrXI7qwF9HPFLhd0I1b+V24 + md+JG3kdeFCtQ1aVFpnSKQgqNUgpGxll2OJgcP9AgOQ16KEyuaFcdmGQDCw58ahuFr690IFdpx9pYjUY + 9s9cYSBE9rFHa65sHkqTC++0VrSSlmkrcmpnuEK3L8gxW31IFU2CYWPLhzcgV62jWbWGpqE1pEp0EEh1 + SBZrOfdF00h8Ow1Zvwl1fSbU9i6jqseI5PIJMOye2dgcSsBKoQb9Rid6Kbpi0YlugwMJ5VPw+kPwELc/ + iG27D0nl42Dym8MN/HusECdZpEUfFcundtE8ZUWTxoL4Mg1X7PQE4CC/LB4kllKDJ43zkFPspqFVNCrJ + 4CqSKG6KmGKXa5BAhfFlatwrVXPRaxTLqKb4Fd1LSHgzBia3YY4fHuETZNNR9Ric6Fqwo0NvR7veBiEd + m4uG5/KFuHXL6kV8ySiYx/XhBj6K56W9eUi2dBqdCw40qC2on9yBbHwHmZJwAzvFt7sD2Nh2I674O5gc + 2QyaKHbD4ArqB1Zo0ivIqqT4FDuuZAKxxROIIRnUoFphhLRnCdJuIySdi4h9PQLmYa2Oi/33gniJsEKD + 9nkbvs7Z8GWWzFghEE/C4Q2GUYqfNMSYImqQXaODgyLt2P3YtvlhtvkgEKnxWWtB5bAZkuEtiFWbSKMz + 39z1Yv23G2tmF+fuK2ogEI8phXS3M+iv6RI1dz2vZ33CNeFHXBV8wBXBe0SltyEqrZXbMxs7pugbV3zn + RccoPSjulZ0mZ0gkOcs7R86TC7yL5BK5/A8T+QctQNNVJ6INRgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGR0lEQVRYR8WX51OUVxjFSTOxa3r9P5KY + fDSaxIKKYDQOmWTsOqZINGrUqJQFpNhAwIJgoRhNjMQkiixLt9NsiQ2lI3UXWBafnHPv+25xyMRPuDM/ + 7+uOcs5znufe9+InIk+UAb8cTAb8cjB5Up+nDNTH/MvTBs88Js8+Bs/9B/z/1FIm+DAEDAXDwHAvRhiM + 9GKUwWiDMV6MNXjR4CWDl73g9/w51KS235DV6RXWtQerZfUBkF4tP6RXyao0zcRVOTJxpcH3OfJRiGZ8 + yHEZv+KEfJ1yUZYnX5RlYOmuC7IELE48L4sSzsvChHOyYAc5K/O3l8m8bWXy1dZSCY62FkKXRTAJv6Fr + Dl6R/v6HoN9YTfplZWql/FHdISfdtEtOlSZkT7k4Xf3SS/q8VpB6+qb0OPulG88Op0scvZrmjl75Mr6U + 08c02A6/YWtQvSnqgqgLP6jPhWesQVFnJeN8q6QUtkhyQbNil00TEF4MMZd0U8BLxN7TJ5FHq8WO5y48 + d4IO0t0n9x845Iu4Ehp4FbANfsMZvUec60NlgARFlcnhcw8kGQaSIE6UgfwmmRFWLD0wYAprcYDV8jMN + QLzbpQ1AnNyDgeC4Yhp43W2APWfcrFhXrxNwIr4gS6kcOgsDXuKJECczQou8qu9TlSsDwHKkWrqUAY94 + u6NPaprtEhz7iAEO2yHbHYn/7bqbuOOaQBgItJTIzAgQXiIzEDsrnx5WJNNCCyX62BWJIkdJtarccqRK + rRFYI7KrJJxkVUqYQXCMr4ERNKATYN8ZPRJA9WQmDBxAAullpEXSSlpkf3GzpBY1y7TNRe7eM25Gr/rO + FkBc9b/b6UkAz/daHDI3pogG3nAbWLm/UhnQoowewARbwMopnmhrkgTEnmBtlJ0kr1H8NxUa4uawod/o + OQeO1bP37Ub0bQ6ntNmdcqfJIZ9H+xoYqQ1QVPed28hcAxB7WmmL6nmCFUB4BznTIFM3FojdqSvX1dKE + Xhm7MqDEDex9crvJLnO0gTfB88pASGqF2gEUNYV7uGIfB6DfjJ3irNwU357bIFNggC3o4qRTnNVj7YBY + eHalSqKdlRvirXi+3dglc6IKfQ2s2FchB6y3Jfb4NYn9VRNDfrmKgSsyBg5sLkTsBeIPYYpP+ckmkebQ + Yer10FUqcXPoQrMqJDQTZFTI5sxy2YR1tjbwlmlg1Iq95Wr7mQnoFFwqhekQ5sDtA3uLmmRPQaPsBilg + 8oZ8NXyM3zxwzD1Pcfa/DYPH/rN6rrca7fJZZIGvge/2XFaTr6JH7OoINeCkU1zFrqiXbbn1shVMWm91 + 9569VgNHUQixck59K75vxfA9IF298k99FwzYfAyM/tbHACpXJnDEYrj8ETsrpwEKm+JbT9fJpHX5yoDe + YoYJVgoxGlCVm+IGN+s7ZZZFGXjbbeCb3doAI+fJ5g17vrew0VccxJ+qk0/XWVE99rlZvRo2wwD6ztg9 + 1TulBQn8DQNBjxgYszzlkqTl3ZItGDrFsas44cgVmQoD3G4cOPZ8MmKftD5fiX/yY54auDDCYXMPXTkG + DkOXgaE7TC7LRi8MA+94DCRfUq9Svli6vd9ugOIcumSQZGuQpPwGSbSCvHr5eG2eJ36VgFOt3HaceF19 + rxG/XjkDQRH5vgZ4maABNXjou/t0A1M22JR4PHoeh9jjTtVK7F+1EgMmrj0DQc+Um5ETVq8MIPYWxN9M + OnvlRl2nBIb7Ghi7DLcYGnDAgM9rFUymAZtpgOJ12sCf92XCmlyjYk+vWyHEdRMMsGqKawO9iuu1HXip + uQ28QAOjlyZdkA6cVM0dPYrGNtItDYD93pFbK1En70nkyRqJ/L1GLDl3JeLEXZmwOldq8HK5g+OVJxy5 + SRq6YOAyVrvcwNApUPm1ug65BgMB2oD7JBy+YFtxrr7HnZOFO/U9bj7ucfNwj/twSTbIkg8WZ8u4RVky + bmGmvA/eW5Ap787PkLlbitTLZU50oTrhZkcVqH0+y1KgtluQJV8C0XMFhGeGWcV/XY4NurysqisZ/+AN + mLdZ7xvsKwa8OpHXDPgeN+EbjbAawsPFhNuMMGpv+O94M+YtXN2KeTc37/nmvd0bvjL/D0b5OLDnXPlz + 3b8XeH/MX1IGA/0Z6Pe1wWTALwcP8fsXFPX0n37WNBcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACyElEQVQ4T6XTWU8TURQH8HHFDffvYjR+ + A6Mmxg0qe1kExKj44vamKa207C0FWpDEAC/GKEhBFoG20BZawEQobTFuBCzQfej699xhDPHZSX65neSc + c0/PvcMB+C/s2UV2kz2ivaJ9ov0kTXSAHCSHxDWNe6ifG67Uz+F+2yzukbutDlRoHbijtaNcM4My9TRK + m2woabSiuMGKwnoLpHVTKKidRLZ81MhV6ueRTKWQTKaQIPFECp2jXxGPpxCj39F4EluxJNqHPOBpjQgS + 2AhGkacyg3ugm9tOFBKSiFECK8BWngJZcDiagO6jWygQ2oojyCewsskjR0kFLj8dQHnLHIrUsygk0iY7 + ChrtKCZ5ddPIqbUhW2VFltKCHJUFmYpJZMjNuC4z4XxpD7hLTwwY90TwyRPGqDuMEVcYBfUzGHQGYVgM + on8hiL4vAUheTuHdZx/ezvvwZtaHbpsX50q6wV18bMAYJffM+tHt8KPL7hN2HqDkTtsGXtk20WFdFwqw + 5FazF1rTbzSOrOBsURe4C4/6cVvjgJRaZjvn1c0gt3Ya+dR6ltIKSbUFEsWU0LZEYcYNmRnXXphw9fkE + zhS+BldBx8UGFqUhChMn+mE28Z0BMi2GJQS3EgjQEAN8HL82eNxSGMGVN88IiTwFRcRgHR0ZOy42bRbs + J1pWgFZfJI7NUAzLayFI5BPgyjTT6BhZRjvtys5aT3RDbrQNutE64ELLwJKQ/JfmgxPqPica3i8gUz5O + BeimRWk3dlm2205SskvoJERY26yT5n6n2E1M6OK7N4KMKipQqrbBH4nB649izc9j1ccL/9cbiOLnegQ/ + yLf1MJp6F+mdx/JqGJ7VEFyrQdyUjYGT1hiHixss/9zx/JpJ5KqI0oTsajOyqk3CwCRyUjWBTJIhG8eV + Z71G+qCEr+wwOULSyVHRMXKcnBCdJKfI6R1c+h/guNad79emEgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGmklEQVRYR8WX51OUVxTGSY9d0+ufkMn4 + DyR+SDJq1GiMEWsSTbGhxt4LSgcRC6IIKIggGkWNk1gB6YhKL2oyFgQWFgSWBXYpT55z7/uuu8ZM/KQ7 + 8+PijrvPc84957wHLwDPlMe++TR57JtPk2f1es5Avcx/PG/wwhPy4hPw0n8gnxctZUJ+eZn0I/3JADcG + GgxyY7DBEIOhbgwzeM3gdYM33JD35XtEU7S9Xt6QVJ6xKaUaG48IVdiQXIX1yZVYf7gSa8maxAqsOVSB + 1QnlWJVQhpXxZVhxsBTLybK4EiyNK8aS2BL8GlOExfuLsCi6CD77rsNn7zUsIPOirmLunkLMjSzEnN1X + MCs8M5u6EoRkwqvfJgr3sSKEXv7Q9KG3F0jKvMezDz2KXnTzdPb0KhLSb8PBU+js1nQ4hR7EXfgL7Y5e + 0gMbaesind2ob3Hg510FUn2SDbkOr/4SdZ8IugxQTAHsOHMT3fzFQZwUcHT3ocsQCztZjQ6edgq0U8DW + 1Uu6lVDgsXK08nzQoWm2d6Op3YnbjR34cYcy8BaRa/AaICn/t3gfqIWI32+pqMWARKrEnX0q0rCTVfzd + FNe00YAIB/xmGKBws92JZoprA3YayBcD73gaoKA2AJVuEZXII5gBp2GgS6Bwp0pzL0JpQE5P8R60MuKA + o2VooQGJ3IzeSv5uaMfsiEcMjFh0EqviyzEl9Aq8QwoUk4Pz8a0QJORhUiAJyMPEgFxM9M/F1/45mOCX + jQlbNeO3ZOMr30yM25yJsZsuYwz5ciPZkIHR69Mxel06Rq1Lw8i1aRg+M97DwMARC1NxvsqGlGstOHL1 + AZIVzUgqbMYkGki80oxDBUITEvKaEJ9rxcEcK4VzEJfdqIjNakAMiSb7yBiK782wICqjHpHp9didXofd + aXUIP1eD4TOUgXcfGvBJxblKG2JymhTRQraVX2RVkYt4VGYj9lwmGQ2IFNIbVNSxWY3YealesYNEXCQX + 6lTkUekWbDtfi7Dz9xF6VhNw+g4+nn7Qw8CgT31O4KxhYH+2Fo+m+F7yDdOekN+EKCVOKLxbSLMw5Vkq + aiUuwmT7RUZJA6PXZ6jIt52jsPCnGKiBvxiYpgy8R15RBj5ZkIqzFW0Up7AhLtErA7xvSbuIS+Sm+K5L + FowzDOjI65T49gu1NFCr7j2SKVfijDyEBoL/qIHfqds0cOBRAyew8kCZLrjAfFVsErkU20QWmy44ooot + C+MpLOJmwY1VxWYWXAZGUXykKrhLii/WXMTnqzWfrbyAj6bEiYH3TQODZcS6Wo843Xp+2yn2Ok9zwtml + 743pFni8wtX3LTJwVN+z58nWIyVsPQesNrafzYFGng1tDtyqs2F6aJangVWc7WLAJSz9zikk/a6HjYxU + 4up3Gas0YAyblg4RNXq+Xff8FhqQvjeFLa1O1Lc6UF1rw7QQTwNDVhzUBvS00+J64mkDEr2dou1q1GoT + Iuw+btWwIVYaEGHf5BI0MgOmuIXiYqDqvg1TtYEP3AyUGuNWp90UV+M2tYpp95x2MuvVtDtWpgzoSWfA + iEXYN6lYnaZwfWsX6nhW3m/D1GBPA0OXHyhFYsYdhJ++gfBT1bz3ahV5KMVDT1QihAQfr0QQ7zyIaZfU + BzB6f45bv5RSxdYjpSrtWxi5b3IxNtPA5qQibDpcTIqwMfG6YgPxDs4UAx+6DCw7UKKfeG7R6wz0KHFV + dGYGePdmBsSAetoZhafnvS68zRRuYPFZ5ApIvcAMVPMKvIMeMbCUS4UUoHqmG6lXj1gWXgijFgNaWN+9 + qnjid7QUzSxAJayq/WHRSfRyuqe/rqULFTVt8A687GFg2JLYInX/ut3YahTUBnqY+gqj6DzFJWq/lDIV + uVntWlwjabe0dbkM1FK8lstIOQ1MDnRl4FUxMGRxTDHa+eXSr1a6buCHhHp+SAzIFnO/uRM1TZ2429SB + u1Y77hC/lBLcbujgI9aOW5Z2YsdN9vkNIgZusOWqWHSVFK2osaH8XpticoDKgGsSDpgfmX9pYTR3ONce + dxXzowoxj3vcHO5xv3CPkzXqp50FapuZzYViVkQeftieh+/Dc/HdthzMDMvBjLBsDhkhS/X6VBbblKAs + defejHoyUy/iEzaeyaSuLKtqJZMfsgHLNuu+wb5pIKuT8LaBPMdN5IkmSDSCDBcTaTNBUu2O/D/ZjGUL + V1ux7Obmnm/u7e7II/P/kFQ+CXLncsr3uv4ucH+Zf6Q8DfSLu+gz5bFvPj3g9Q9Exu50LEOr2gAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC8klEQVQ4T6WTZ09TcRjFrxMX7g/iC4GI + ooYoYnAgYmQEymhBRghxBDeJAoJsUIYiosxCEYEChZaK0FKgpaWggIhsEoOUbnx5fO6l0Q/gTX75vzrP + Oc/JcxkA/wX7bSI2E1scbHWwzcF2wsnBDmInscvxOjF+yTL5lWQZfJOluPyoC5ceduLCA+K+BD732nE+ + qQ3eSWJ43W6F160WnLnZAs/Ejzid0ASP2Folw4pV87+hmFuHYnYdfTPriCnVo2faDvl3G7oJ2Tcr+AXD + kExa0D5hhvirGRWKZZyMF4HxfSyDksSNYxaIiAa9BYIiHeTTNtRqjagmqoaNCM1Vk9iCiiEDygcMyO5c + gEccDWBjx78eRVSxHgKCT+Lo4hFEv9QhnFx5+RpOHJ6nBi93CEGZAwh8roJ/mhInYuvBsDuzsT/P2NHz + w45PFJ0VS6es6KTokkkr58zLGULrFxOax0xo0ptQ1rME9xtCMBepsF4S1+vNEI6YUaczQfBCiy4SV2rW + 8F5jxDu1gRvAistUq3jV/wtZ7XM4FlUHxofajikZAZ9cIwu1FFsLPr0RFD0kR43g7CEEZw4iJGuAXhWu + p6twLa0ffk/74CaooQF3O/42Lpuycc6RtHvHhBVt42aKbUYzRQ+m3RspeoPOCKF2DSXyxY0B3knt1Lh9 + o3Fqu4oiR+RpIB634C3b+OAq3lDsICpOROJSxQqK+1aQLp6FG7+aHdCGKIofVqABj4Qh1HQYtR5KOweS + awAJ2diBGSoEpCvhn6rE1RQFfJ/0wjWiCsy5O2Jq3IZOalvCxnY0zrU9auJiN44YEZChhHDYgFoqtFq9 + ikLpPFwiKsGcpfOsUf1EYfcSCmSLyJcucnHLe5eRLVlAlmQemR1z8E/pQ1H3Ap5R9DQitXUGLuE0wDNB + JGdv2zOxie77A07ReXrENXBHcjxaCPfoOq4sdl/XyGpyreKcj5L4SFCxkn4o7i/bTewhnIm9DvYR+4kD + Dg4Sh4jD/2Cc/wC5zpQY/bY/dgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGi0lEQVRYR8WX6VeVZRTFabKctXn8G1rL + oTI1U5nDEac+ZWZZaYUBXsABUpkVREERlBkZFFCQScbLBeRqNrhA0bQSVLhMavr9tPfzvi/3XrSVn5C1 + fqIsZO9zzn7O8+AiIk+UR35xNHnkF0eTJ/XxlI76MP7xtM4zj8mzj8Fz/wH/P7WUCf5lDBgLxoHxDkzQ + mejAJJ3JOlMcmKrzos5LOi87wK/z51CT2i5jvExlZu/gSnGmQryCKsUzqEI8TTpbKsQ9UMMtsEzcAsrF + 1b9MFvqXysIfS2XBZnJKFvidkvl+JRo/FIMSmfddMSiSjzYVyewNuS3QZRHshMtYCtZdfSC1V3Q6H0hN + 532puXxfTJntUn3pH6ka5p5UdGgEpl2U8va7cvqiRhkoBSd/vyObU36Tk78OSQko1im6MCiZlh6Zs/EE + 08ducBwu42iAwhnWO4o00jYkaWeHZHXseSm4cEeOtAxKavOA4rBFY0XkWcluG5RDTX1y0Awa+ySp0SaJ + Db2yeKdFjjb3yf76Xkmo65V9dT2yr/a2hBVdlznfHqeBVwHH4DLeMJAO4XQIp0OY4kdbaeCc5P88JKkw + kAJxogw09YtvBAycHdDFbbq4TQ5AdPFPFpjtk4T6Hkmo1cTjQSgMzP5GGXjdbgCzVgbaUDmFdfGjrYOy + OtoqeedhwEE8GeLEN7xVMmEgSa88CcKJgFUvCrNIigUG9Mrja25LHNhx4pp8+HWhswEvdCAoq0M+3XNe + 1qBisjrGKqsIDKyKbpOVUSCyTXzRdla+PKJVloW3yLLdGkt3tcgStJ2VLwprEh/wSSjYYRbv7Y3iva1R + vLY1iOfWBpk1wsAELySdoSv85a6ad75iSPLQ+pUwkIsO5Jwjg2rmWag6s3UAwq2S3tKvSEO7OXO2PQX4 + QPyw2SbJ5l6Mpxcd6pGkhh4JP/mnzNqgDLxhN4AjdgaJZ8tJKmnRWs7KKZ5s6UfYAOetB45VpzX3q5kT + I3CcOStPxljY9r01t2RPtcbWgqvy/lcFTgYm8oxX6wZU2iGu0g5WoO3Z1kE180NmoOYNELYlO5tV1Uqc + wnra42HAe7tZVR53BsKkigZuSkg+DHypDLwJnlcGPLBgeNaPUFgXV4GjASadRw3irNwQT6y34ahpBrTK + ETYjcIBzP4iWK3FUHgsDMZU3JTj/CgzkPWzAlNGuBS7KqsLGyhk2X4RNCxxQYWuWpRCmuBG4RSpsRuDM + 4gVxTxW4eoV7SJ24BWu4mmpl5vpjNPCWYWCSR2C52nAM23DgrEOq8uU8aghcBkhvtYftCKB4isUmKU02 + BK4XM0fgUDVh2hOxAxLrbst+dCSh9pbsQxZCC/942IA7DHC1GouGgTNmzqRTXLVdYQ+cT6hZiRttV4FD + y/ei5R4h9XIA4jFVN1Xroyu6Jaq8S7bkdsrML5wNTHYLKJOK9ntq5txwShzrlYlfirazchpwTPt+zNsH + becxM5aMIc6Ze6DtrFyJV3ZLdHm3RMJAYM5lGMilgbedDJTDgL1y46jZ1MzTW7SkD4sD+1FD0tFaR/FY + VO0WVIfO3NIq16uPPN0lAdkwsM7ZwBRXXKcBuNmWc8PpYRvebjDA42YPnFktGWPDeekbziOE1KvK3Rm4 + oFoVONctNbIQLAg8o5gfUC0zPs+hgXfsBnCX8zrNahtQWy4DLVeBw4YzzrracHrgkrnhUDnFud0SCQJ3 + AGNJQNtZOcXjce5JXFU39gCo7JIgZGDG2mxnA3xM0ICx4RzDthiXirrV1Bl3vlh41JIgbJxztj6G80bL + aSAO/2bbI07fkIiyG7ILbM7okOkjDEzlK4aPiYOozEi7MW/eaqlOtxo2HQ1g5h4446ycwrEIWwyEGTjO + m21n5RQP18V3lf4tfs4GXqCByXxCFVj7JRpuo+gY3xyBb94NOO+9FV2ys+QvCSu+rh4UvFK3H7+mZr67 + 5JqEYL8HY8UGHbsipmOdYkKbOe+t2Hr+WZfEP/OSqpzifukdMu2zLBoY3oTj520qrNfebyXy8fekWL3h + +H6bi+fT3I3H8Yo5oR4Ss3GV8j7njfYBLhVeLFyt763Pw4IBOOM8ZjPX5aiwzdA/s+rpa7OU+Ltrki3Q + 5WNVPcn4B1/AfM06vmBf0eHTibymw3vcgDcaYTWEy8WAx4yw1Y7w+/gy5itcvYr5Njfe+TQzEl6Z/wdb + +Thw5vzMnzv8e4Hjh/FLymigfYz8XW20eeQXRw9x+RfTR+/pvhGEdAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADBklEQVQ4T22TaUhUYRSGL7a7pNC4G2FF + qVEuOBaoYVpKRZiUSVimiJllaRpGEFlijdvYpI65zjguP0LJXGZcZ8ZtXFJzNH+o5DapYyr0V0V9++71 + uvzohYfvu4d73vdw4KOIdAh7CHtZ9rHsZznAcnAXdF0HAEXd4XUp/XnduPW+C36JKvgmtONGfBuuv2nB + 1ddK+LyS48rLJnjFNeJSbAM8YurgFvmtnTbZNEjqQWnnEkpUS5CoFlHUsQBR2wIKW/8gv2Ue+UotchVa + 5MjnkN08C2HTLNyjpaST0mUM6PQSYiBo0OJjvRbpdXOEWfBlM0iTziC19jdSajVIriFUTyOpaooYyGgD + vW2Dd+VjeJI3iIgcNcKzBxAm/IHQjD4EC3pxn9+DwLRu3E3uQkBSJ/x5KrhFMRPoMwZxxcPk3FFJi4a9 + 7ahQPsXeNhWW+X2XgeTnZpVV8S6DjY0NrK6uIqduDOvr60xtbW0ND9LbaAMO+aSoF0VDqO6dR2mrhkmn + DSSKKYjkk8iRjqAoJhGlAaEQfB1EtmwU/PIBpHjdBs/Sgq8N8aaoWPEQ47wliXKaOelkdWYGJoKuocOd + i6awMExOTkIWEowGRzv0e7ug7KjlcypGNMg0bElM0mktLy+jI/IZVBe5+PvUF4rz9qjguqDB6Qw0gV6o + sTsBsbm5mIouVKOye45JLlJMQ0wWJmqeQl7jBASVgyi4GQjlBQdogzyhcnfcbuZxOE2/fJwoKqpAzSRu + SbRr4ysrKxgfH4fknCOZxAmz/q5QONvi0/HT9BK5I572xCB/gP19U4UknRa97cXFRUiDglDvYAvNPS8o + nW0w6nkW5dZWSDAyah52taGox8IeeWRuPyI+9+NRdh/Chb14mNWLkLQ28Dz8UEc3k7GrydgC61Ok2RJq + 55MoszKF0NBQTCZhXtYhgi5Bj6DPYiqwsqjou8xFle0JfDjCaSY1l7dGRvIySxPIjpkgy/BwBkWm/S9E + 9BM35puZfknlcGrJ3YxAP2XzBAMDabyBfnm3tTH1D/zjeAxjOo+EAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIHUlEQVRYR8WWC1SUZRrHzTLkMjBcR2pb + BdJWO6vu2bbdPda2Ze3aVrpqqIW3srSLKwhqKHnhKsKMXAsVCN221huKJSK5iCgIiIvERa6DqbBBI5e4 + y8zw3+d5v2+GSaHTqXN2v3N+vMJ8zv//XN7nfccA+L9i+dxjwdhRuHcU7huBcRbw7/wef7d47jTAH/AL + /PL9hBUxXsZaxoawlbEjFIS9jAOhJBxlnAhnwkWGf+f3+LuFCUsDQtxHXZLro76MV6JLsIRYHFWCRZFF + 8N5ZhJeJhRFFWBB+EfNDC/DXkALMC87H3B35eGFbnuD5rXmYE5SLP28+iz9tzsFzgTl4NvAMZm/6Ak8T + T/p+XkA6bJSzcZeBcSx+sa4DBbUduFDTjnNX23G2qg05FbfwRbkOp8u+wanSVpy83IITJV/jWPF/cKSw + GYcKmvDp+Zv4OO8GDuRex0c515ByphH7srVIympAYmY9Yk7U4qmA06zmyloseqeB+zny8zUdiMhoRMTx + RoQd0yI0vQHBR+ux40gdth2uxdaDtQj6ZzW2fFqNzf+ownsfV2Lj3ysRsL8c/mlfwu+jL+GbcgV/S76C + d/eV4p09/8bbey5j9QcleMo/i9XcWYtFLQ1wc1lx2nMpYsmAlgw0kIF6BB8hA4fJwCE2UEMGarDlk6sI + JAObSHzjgQoEpFXAn8VTy+BL4muTS/HuXjKwlwwkkYHEEjzpJww8wFoseqeB8VzzM5RuNhBO0YdR9CFH + 5QyQAY7+fRIP4ujJwHtkgKPfQAb808qxXkRfhnWUgbUUPRt4mzLwlmzgCb9TrPYgwQbuucvAoshipGRf + g7fceAsjCrEwvBDzw4Ybb27wBby0/QJepKb7y9ZzeJ6abk4QN91Zqek2ncEzG6npNmTjjwHZ+MP600SW + YNa6k99rwJprOkR/MdIPxkA/9CYMQ0jMasQgrbcNRgww+iHCiH5m0ADNiRr00tp724ieAQN6bhvQTWtX + vwE3dL14LbaQ1X5GjGwgkBrKLD40JDAZYOHELC2JkwFZeFjciD4SVWeQARaXDXSTcFe/Ht/Sep0MrIwR + Bh4ieLZ8xwDvSxs2QJqSuCzMkQ/KBhJOSQY4chbtH5TWPoq6j6JlAz0DRnRbRC4M9OnxFRlYsfsiq/2c + uMsAT0Bb7mijhTgLS9EbhXBCZoMcuZx6IW6ktBMkGHW82iJyA0UuiXcS18jAco0wMJEYzUAFMktbkESN + +MFpplGknSOPz2QaEHeyAbGf02D5rA67abhoCI48msSjjl3FrvSriDxahZ1HKxFxpBLhhysQdrgcIYfK + sVRd8L0G7Hg/m+rOKZcaTko5E0cGuOZ9DKWZ686NJhqOYHFOeVcfRU9w5B1Mrx6N3/TCRzIwiRjRgGIj + TTNOv6nmottl8QFKc+zJelmcUi5jEuea70qvInEp7R29g0KYaWcDrT3wiRYGPAk+zO4yYL+Bhokpeha3 + NMCRc+rNNRfiEqaac+o7SfhWZw+0V8qho7WtZxBtZEBLBpap81lt6itK5RO08kk6NkblRotsgGe53igL + i9TTSmKmZuO6s7h5m5F4F62mbue6t7Z3I0+twcGZ05GfmoavdV3Qdd+GtqUb78SdxwpHx9B9npP0AU7O + atLkY5tHgNiGDjzLD+Y3IZGaLkE0XT01XT1FXifENZ9JTRctmq6Gmq7a3HSR6ZWIyajAuSg19nt4oDV0 + LT755aPI3ZOMm63tqGpsxa71YdjrMclQs2w+YtxU8FU67iZdviMIA0o/Okg4/dKUG47cBIubopeiluDt + xjVPSslCmpcndDvXo9vfG81Bq3Fg2lRkxcTjeLQGyZO9ULNsAWqefgxV3i8gysXF+LKt3SyTAUe/1Cui + 66XpNjxkTONVnUEGOPVm4e/udU16Gc4npyJlkgduvDobbatfwnXflUiZ/DCSH/Yg8fkk/hsUTZ+MaBdX + 40qFYjPpmjPguI6OUVPk5uh5m8moKe3m8cpbjdZOajCx3WgNO1iBJl0n/vVhEvZTtA3zZqF5ybPQvrkY + tSsWmsXjVSrjcjvF+6xJmHtAyZeI1m8H0Nzej+Y2pk/QRP9uutUnhs1NWvlg4dn+la5PjNhruh7aZr0I + pWGjbemherfgeJQGqR4TUfXMY9DO+T1qSfzSjCmIU7kNLbaziyA9vhmNDXfgG5o8iNYkFOSupfNb3GLo + DH/rwxKsoZvMm4mX8EbCJayKL8aquCK8TrwWWyRm+3JiGY1YnnK8z5dG51O35yLKdxuSqR/KyUD1rOmo + +PVUFM14BHHuE4zetrZsgPff2DB7yYC4ExJ80+XbK3+oIibI8DWKbzJ8ljN8pPKpxgcLj1aGJ5wXMWOp + Uhm519PDULdigRT5zCkonOaFsl9NQelzv4Na5WpYYmuznd7lW7MoAT/iZkywEdPV3ASf33fC49QSvra7 + rnFy3hLv7q6vo5rXzn4cxRQ11Xwo1s11KM/rQVyeNhEllJEQeweDt7X1Dvo/HPAPftjkaNy7ytFpTvwE + d339G4tRN/u3KJ75CxJ3M3LNKe07NU6OxpyHXFDkqcKlxydju53CMM/Kaq6Yxz8V2YRToLPLsRg3NxJ/ + ROxzH4WCU80N57bIxiYk1N7BmK1SIlihwGobm0z6u2rEL/wx0MO76YENjk4ZLL5UodhGv5vqzOV18R5v + HbJDoTDK4tw740b8sh9DjIr7VphwobS/SKvY5+FK5Ri529mE81wrq3m0cnOP225LB+NIX/ZToEf0BK+j + fMYmh49jyxf+92DMfwHagE5xMXiZDgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACIElEQVQ4T6WR30uTYRTH34t+anOycikJ + Dsd4oX9gENhFu/EmiXaRIRRtbeEMkiAEQbGfUBetbE2X4mxTp3jXVaalM9DcxFGmRuBsq3hj/8S3c549 + secF7zrwhfM87/l+zjnPqwH4L3EcejT7jfJyTH/8KTNgIl2UWTni73/IDOgaWmd3FQMOP5jdltdAarkC + SC6ZAaMKIBTNMKCaAUfuz2yLzmyeInHn5FIBux0d+N7ejh2vF5ttbdhobcXI/B5i7/LojAiAhQFH705v + SS4wqYzN5lIoBCMQxK9rfmQ9HvkFuPFijQFWBlQNpCoAde+di178CQbx2+dH8cpVrLa0yC9AYPATA2oZ + UN0/+ZU6l0dPLBbxerGA+IcCjX0eORo74zmHFTIvu90YnttD9G0e158LgI0Blr6JTckFAQoyo0dbqDwa + x9BcXmaA/5kAnGBATW/ii7wGxlXAvBnAnf+FL7zKgDoGWLoj6YWe8c+4M5bD7dEcukc2cCu2jpv0r7ui + WXS+zIhHCwyuidF94RVcGniTJq9Y4QCphnRcisdiMZ1llzqpqJ7EtQdJ+8eMrgulXC4knE6MORyINTZq + kYYGWSGD1tlXbJ5yubQkmY3LZ9kMNoftdlOd6aCKzHrS2Wxw5+IFN5vx1F5nPLbZdLXOZFKVaHZqZCZI + Uyl75jSGT9WXnpD5Ya3VVGc6qIo7mrRX5Z11GtsQZqtVu3fMotRB+wtTgWs0B5vt+AAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGdElEQVRYR8WWeVBVZRjGSRQXEEwkcsuQ + lGZs5A/NbKxmyimbyWZqGjWdwW3cCHdSI6ccK0VkR00UNRnLEc0Va7Icp5xyQ8UMQVncAC/CRZZ74QL3 + Xt6e5zvn3q54BOqfzsyP7/Kd5Xne93u/9xwvEflf0f54eT0BvBOPFUpdY4tUW5oVZp20H0ukqr7JTWWd + RurxYrlf2yQVtTapqGkSU41NkXS0UMof2HQapdxskzKwfGcuxXpTi5ptDXSlgVZMtOIPceI/J8a0H0rE + gdGOSTsmWnRSsoukGSeaHU5pAraWVrHZnZJ49IY0tjgVDc0OsTY7pdTcKMsyLlOsL+hGzbYGurkMOAkN + KFphoFgzgAmXAQonw0ATxiaIEpsumngEBiDcAGFrE3EoA0szLlGsH7Wo2daATwJSl/V7mWxCypl2NUI8 + DalOxZh6vEilnZGT5GOkUJIAzScdwQjxBMV1iT8MDhWA67LxYIEs3n6RYkHA2EA8bvSM3qFHTFE7IlWp + 90g5hVXkKnoHokbKMSZAmFFbkQULxnqbQ+5WNciibY830AV030gDLnGkntBACiKnsCv1zXYt7Sw2TRyp + V+Jcc6fbgAXC9Ta71GG8AwNR6TkUewr4gEcNxOkGlDh+qDWHYEp2sWZARU9xFBvElAG17oxei5hrzpS7 + IlcGGu1yGwY++rp9Az3i4NxTnBGrDLiqHdFqBadlwFXtKnI95Yx8I9ad4nW6eC24BQORmoFgYGxgA5xn + nrqrCk8Vm15wrHYWHNdcAWEW2/Vp06RgyhTJmzRJrr73vuS+O1Fy3p4g58ePlzgUXdzBfMWGA+SaLNhy + gWJPA2MDsbhJpZ3Re6RcbTc9aq55I0G0+R9OkbqYGKlZuVKqo6OlcskSqYiKkj9efQ2RO1TkNaTBLjcr + G2T+5vPtGui5/vt8d+o1cS3dqtqR5n/EtWJj5BQ3L1wklQsixTR3npTNmi2/jR2riUOYPKCB+1aZt0kZ + 6A8MDfRah1Sp7aaLuw0g5e5qd605DDDt5uXRcj+S4nMhPkvuREyXU6NHuw1QvBqUwMDctA4MfLX/GsR1 + YZhQBQcxGnC3VsDWymLLnThRpd0tPj1Cbk2dJidHjtTFW+SB1S5ma4syMCftHMUGgO7gIQN8Ofh+sT9f + 0k/c9Ci4G+6CU93tsDbGH9a6W86Et+X8G+PVmp8e+zIiHyW/hI+Un0aMkFgUXez+PFl/AHDMypPZqWfb + N7A265oqOnY5VXB61Kq3M3pGrkfPbRbnsd08Cy4WmWT01Yic0VfVt0hRhUVmJSsDA4GhAb81+/LUmmvr + rTUbNhlGTXFlAOJah4MB7BrPva7SjpQz4mqm3gIDQBkwWWVm8pn2DXy+N0+JulDrju2mWqveZNztFdts + A3ZNLUQ9K74aka9HBswWGIBwVX2zVIKiexaZmdS+Ad/PvvtLTPi4UB8S1QQfE4BvtTK8TkurAEa+WNjb + aYAt9laVFdusAXvdimJrUBkoRsTFJouKvOieVQrLLTJDM8Bd8IgB1Yhidl88ufrbqxKz56p8kvmnrNp9 + RVZ8c0U+3pWrvmaW7bgsS7ZfksV4qy1KvyhRW3PQ3y+oDjd/8wWZh0bDrTYn9RwKDqScVes+M4mckanr + fj4NHX6QdAUPGVBfRKAn4CdTAOgDngS8gQTq8IOCr1TCFwthf2eHI4yQlU6Ybhec53N6AAasaesGeNAE + T9CIJ3x3Pw42FCOYYiP4PGpQ6xEDnTl4Y1t89g4bJntCQyUzJER2DRnCBzKTRtcS9+E28F/ICgvz2jd8 + OJ/Tg+KVK2aIaWmEZAweTAN+m/v390oJDja81xPDyc5AcUROAz0zQ4aKaVmE3H5nlGwdOJAG/CmeGBRk + eK8nhpMdgYOpZA0w1f2Y9vKFU6XkrXBB5LxgEGAh83wXo2e4MJzsCBze20JC4nZjzXc+O0SlvTRystx4 + fYQgckkKCpL4wEBZHRCQjGt9jJ7hwnCyI3AwA70SBg1K/fXNcVK6YLLcmfOBFIx7XvJeek6yXwyXaH// + bbiG29jb6BkuDCc7Aw5up95fBgdvOTHmBSl4JUzyxoTKodABstTfPwPnuOfbFSeGk50hY/AzLhMBnwYG + pmeHh8mhoUp8B+bYsLzX+vkZ3uuJ4WRnQLV7catRCPRdFdBnK9Kejt/slEp8ja+v4b2eGE7+W3AwE77A + j+JG1xgjXn8DLB8SdEa9B/sAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACOElEQVQ4T6WP30uTYRTHn4t+aluurVcF + 29qWvHQlZlgDrQQLxSJBGHQjWA0nq8amDEY3FkbGBBdlWM1SW8N+UNG1aWumNlNUDLG7lrRc1PrxB3x7 + ztuDewe768AXznu+5/s578MA/JeoNvW8+Mj7f/VoYlV0wIrdjj9+P377fPjZ0YHFE8eFA7jvzFI6jwCb + A89XxBgYiX0WHbDc1KSEf/Fw2uPBfH29cIDz/TMEyCfAlmvPcgOWGk8ql9MeL3643Xh/7KhwANctBaAh + wNarT5fFGIi8yQAWGhqQ9nrx/YIbKdc5xGtqhAO09cUJsJ0AeVeeZAAPVYC5urr18FqrE5PV1cIBWm+8 + I0ABAfK7HmcA4WhCdMBMbS2+uVxYc7Yh6XBgwmYTDuC4rgB2EEBzaeSDGAMPXmcA04eP4KvTiS9nHVht + aUG0slI4wJngNAEMBNB2RpbEGBge/yQ64G1V1Xo40dyMsX0VwgFO904SYCcBNO39sdGLw4vwDy7Ad38e + 7aE5eO7OInbQplwd31+BV+XlGC0r45eneHgK9s6XUZ5VnrCBS8ulF6LfIhGdJAkVqlTERbsbuXJXpLSU + ha172KDZgpDRiNslJbhZXMyChcRSFX9OToWtVjZkNrMBHk6eOkRhBCWJBQz6rL2sD7WGLBZ5wGRM0uVE + 4wEKI2AwJLt1BbJ6LyukVshkYjws39u9KxW37UVfkZTq1unkLq02ay/rQy0eZvTmXkmSe/R65TKFL2/T + qPbA/gJaX1zZJIFSYQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAG2UlEQVRYR8WWeVBVVRzHX1IuCWiCIqCi + LKU0lY2NjY41Tk42OaMiKiiSyCLKoriPWk1mWZmpuKHmUpkt2uJKOU7bOO1qapohPBBl5wEKPFnf49v3 + d+59D9ArUP90Zz7cx3nv3s/3d86551wTgP8V7Y/JdA9xefvQFVTWNKC8ul5RprPlq2xYquqclFZqZERE + oGrFStxctAg3Fi5CxYKFqJifgr/CwlBQUatTg4KyWuSTlHfPisxNXOK8PcC9aw9loIkNTfwj2PmfnWcJ + YOO5kY2NbGjQuTwtHJXLl1NO8YIUlKeQefNxcfJk1DTYFbfqbbDW25FXVoP5O1WAXuQ+cd4e4L639AB2 + QQIompoDsMERoJ4Nl8Km4sayZaiguIxiy7x5sCQl4ULIRNRQfItia51gUwGSd5wRmae4xHl7gM5vfqEH + oFTkNp5FLAEamUrJ2SDU2+ysNBQVS5dSTnFyMiyJiShJSMS58eO1ynV5NbluuYWk7adF1psYB3iDAVpW + b+MfkW5OZwAR6wFEXkcuhISgnONvSUpGaUIS5QkonjMHZ8c9r8RWhhB5Va0WIDHt97sG6ES6rPn8crNc + Va8F2JRu1irnZ+n6+sYm1LFLpNIyTrxSVl0ydy6K4+NRODsep58bq1VOcVVtIyp5vsYACWmqB/qQzuTO + AK/rAZScH9SYU+gMoKoXeRNqOcHOjBuHUo5/yZy5KFLy2SiMjcWvY8Y4K1cBahqRywBzt/3WZoCur312 + uZVcKpZz6nGzXjm7XqH1wOmxz6EkeR6KWHVhXBwKKM+fFY1fRo9W8kpdfpNcZYD4rSqAFzEOsPrgX0rO + 4dUCqIrtDJDlHHcR1wrsgd9YaTFnfUFsHPJjYiifheszo/DjqKf0ADYlVwFKGWCLCtCXGAd49cAlrdt1 + uaPLU49lOasWeY3ACfYzKy3kxMuPjkZeFOVRUbj2wkycGjmSlWvyG8KtRuQwwOzNbQfotupTLUCr2U7x + xqOZqGPFzXJZYOysdBQK4udQrolzIyORO2MGfhg+XJNTLFRIgBIr4jb/KjJvYhjg/lc+YQBn5XZngA0M + 4Oh2tboJDHBqxAjkxc3GtcgXKI7EVS7NOdMj8N2wJ5wBRF5OshkgdtMvbQd4+aOLlOtihlATjrINRzKb + l1YiS6s8Zt8PfxJ5MbGanOKcadORHRaOb4YO1eUNqLA2oszaoALEpKoAPqQLaRVANofuL+2/qFctIfio + SdVEBeCYC0qur3LfDRuGa5z1OdMpDp8OM+XmKVNx8pFHlbicAcqrGaC6AeZiK6I3thPgxQ//VGLnbNer + Xn/kir6xNFcvs1wqzeX4Z4dPg3lqGLIozwydghPBD6vqy1m5VG+pakBWcTVmbfhZZL7EMIDryn0X1Jhr + 460tNjUNNqw/fEXJtc3FscLZWOkjuMrxF3nmlCmUT8aVSaH4evBgyrXKBRWgyIqo9gKsYACROlDjzu5+ + 53CG3u0tllc+ZieCg5ETMQNZ3H6VPCQUGRNDkB70IMUMQLGlqh6lJKuwGjPXtx2g+/IPLqDopv4iUS7w + ZYKs44tKPrfTPAvhWTYWWdu/emgIzBx/qTojZBIyJoTg7wkTcSwgEGZWbC6qVpVnFVqRWSABfhKZPAV3 + BFAL0eLdv3+z9L3zWLz3HBbvOYeFu//Agl1n1ZuMvEwk7zyDZG6pidxUEradVpUeDwzCcQqPBwTgmH8g + 8cfRQYPUhItml0u3S+XCtDUnT9EjLyT3klYB1BsR6UbklakH6UkeIHKB4KEjLxSypQqysQiyvssKJ0iF + MtMF6W4H0i736UqkYM2tB5BDQsgXEqQlsnffDVlQjJAuNkLuJw5x3RGgI4dceDud9/kH4H12+96BA7Gr + /wC5ofSk0W8F5+EM8F/4OCjItD8wUO7TVeSlS6JQlDIDO/r1kwCuW7z7mjZ5eRle2xLDxo6wPyDQtM/f + XwJ02+Pnh8KUCGQ/+xjSfHwkgHtqHy/Tht69Da9tiWFje/CQrpQ5IF3tuat/f+QlhCHj6WBs7ustP+hH + ZCLL952M7uHAsLE9eLik+Q1Yu5uVi3y7ry+uxoTi0vBApPbpg/Wenljn4YEXe/bYyN92NrqHA8PG9uAh + PXD/Wh+fTd8+MwK5lJsjx+P80AE4O8QHXw4NxhJ39538jTzGLkb3cGDY2BF4yOPktsrLa1v644Nx/jE/ + nBnsg4O+nljo7r6L38kz36ZcMGzsCGm+ss6oED1WeHjsODzEHweU3G0322TBclnt5mZ4bUsMGzvCVm9v + Pmay8Kl9pNeynj23L3Z338HPslK6rHZ1M63q7mp4bUsMG/8tPKQnuhNXkRv9xhiY/gH12tYeuYBn3wAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACCUlEQVQ4T6WS30tTYRjHX8LKiqnMJggb + Z2zZuYiKvNAbLwpkKioquOlqsrVpjIhugiCiqCiRkS3FkqO4obP8gWndVZoXXVijlJlubWoeG8bAf+Lr + 8+7sKj2s8AtfOM/L8/087/uelwE4kPdd5O5+t/bm6dsEfNNr6JqOo3PqJx5PxvBoPIoHY1Hcf7VKbSoA + Lh7+BzE2IYppvy4pEUfMJhYQjDx/yDfzH4AxCofMplRAEJhkMHBATtLjgex0Yv3yFcRtNqw2NmG5tg6L + FgvCFy9hoaJCAfDJU2dO7wSNAiS9Hn3FxfwMh2WnCymvF9vt7Ui6XJAdbdhoaUWiuRmxhgasECwNGDGZ + U7HaMiQby7FhOQ9/kY4DjvxyOPCno4PCVyG3UbjVroRpJzwcqapWAAGjUQydEnb4ZB72abUccHTdbkfS + 7cYWD9N3wmpFrInCdfWIVNdgqbJSAUh6A6Ow6NfpUhRmnQX5/A5y4zYrojQt8te5P5eVY/5CKWbPnlMA + FGY0mfm0heKT/AL2UKPhgGP3RtP/OZv2voOMjt8N/aAyq1QBJ+4MLyP46TcC5KG5LQzOyhggSx9l9H/Y + xMv3m9SuDtDcDkaozCpVQN6toSUqs0p9B17//NxNaRE3+r/j+otv8PaFca03DE/PV7iff4Hr2QK17wNI + L9JTJueRCzM+mbEu4yJuAGwXa0+HGTB0p4oAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGd0lEQVRYR8WXeVBVVRzHn1vuCggKKhC7 + QOKWqeSS1jTTKKK4pBiKiAsC4kKImZqQa+ASkKZjhlqmpanJiFOjZamYiISAgIIKoiKCCI+dx7ff77x7 + 37vi4w9z0jPzueec+9473+/v3HN+9zwVgFeKwZsvE4M3lfwPpQVfdOMrxQzRpPCPmZYKWhmgdRPaNKG1 + bnylmCEUhcV4sLZEO6I90YHoSHQiOhNdiK6EEWFMmBDdCFPCjOgu1ca68ZVihpAKR906+ljW71tO3EA0 + EXUsB5t/zsamo1nYeCQb63/KwrofM/H54UxEHMrA2oMZWHMwHau/S8eqA2lYuT8Nn+xLQ3h8KsL2ptLQ + 0vhyozmkwgbasngj3XwGuuhqujAaBQ0S9YymEWWVdfRtaXy50RxS4elvF30i5xlxjUQDdYQQdVikXqrr + GPqwjj6orW9EDXH/cTX9QhpfboiOojS5xwbaRx1/2sAz4nKkwoAs3IhanbhGcE9p4JCTk+CgoyMLtdhn + ZxfB9R5ra9UuS0vVjl69+D4b6MDPXIjThdFQj3SkaaaIJXERNVErxLUGaojqukZUs4HSJgZ+UIjH29hw + 2K12W1mqdvburYq1sODPeGt13HRUa0BELoT14sIA3ZANyOI1jBR5dZ0GVUSh0oAsHm9nG3nuvbfxjfXr + bIC3Ge/X1yTYQKfUMWNww3cWUkaNRPKI4bjk7o6kYcOQNGQIzg8ejD8HDcK5AQNwtn9/nHFzwxlXV/zq + 7IzTzn2Q6OSEREdHnHJwQIKdnd4AlRbxtiw+HLf8vLDbygo7e/dCXE8LbDc3x1YzMzEjROfU0aNRExeH + yrWfoXLNGlSsWo0nKz9FWfgKlIYtx6PQZShesgRFwYtwf2Eg7i5YgIK5c3HHzw95s3yR6+ODm9NnIGfa + NL2B/fb2EbJ4zjh3pL1pi+ypHyDT631keL6LKNNusoEuqe+MEgbU4eEoXx6GJ6GheLx0KUpDFqM4KBgP + Axbiwbz5uOfvj7u+s5HvMxO3vGcg98NpuDFlCnK8JiFrwgRkeozXG9hrYxN5dvRQZI91x7VBNkjtZ4Ur + rj1x2bEHkmzNsMnERDbQNWXkSFTHxqGCoi0P/Rhly5ahlCIuCQ5GcWAgiijiexRx4Ww/5M+chTszPkLe + dG/cnDoVOZMmk/hEXB/viYxxHnoDPPhXVpYbEge64KqbFWJ42rt3p8hNsZnENxgZ8bc4BRsljxiBqthY + lIdJ0S9ZipKQEIo+CEUBAXgwdz4K5/ijgKb7DkdP053H0U+eguyJXsjy9MR1Dw9kjB33lAHOcm22mFts + +sXVAdtInPqcuzm/c27nmg0YJw8fjkxvb1p4Q3FhyFvSwhuIP3jh9aOF17evWHi/ubjgdB954TnglL12 + 4Z20s8UJ2mXHaaHrDPBepyJS7XpTs6hoipzaHSly1bquXVURXfgdIwyYcG6XE40+yWizmxbaakQVU9tA + aKCmWl2jpYIor65HfnGV3gAnGmmvs4n2EcYmm6luy+KRnbuo1nbiCRAGuq3+XmtATq8iwcjitL/14hpU + SjQVL6+qx53iSr0BuSE6WhMs1lJxjwvnBNNVB65RrteLKw2wuJxoKhkhrqWimsUb8KSKqcft5gwYQips + wIxfqTz92tSqnXIRuSQsi6ulyCtIvFxEro2eDZS9gIHuK/b9g4SUIuxIzEPcqTzEnsoVxCTcxPaEG9h6 + Mgdb6I0ZfTwLXxzLovNCJjYezcSGIxl0XkjHusPpiDx8TaAbX240BxWxS4gefJjgGeAXizK366LnyKXo + tVFLU0/Rc+SPmcp65D18vhlgA/w+MA/7NlU8f+3zploIN9C0EyQsLzrdM5fE+bkLAyReqiYDRf/VAB2l + +L3OwrroeZvJ6MS1z1tETqKyOFNCp6HcIjUNLY0vN5pDMiAeQeieqyhR14rXaWEJUyW4S+27j6pQQPu7 + gOp8WmS81W5TnxfcrWK1iDrvoZrEK5H74PkMcBGZMCjmr3OLd6cgZNcVLPo6GUE7LyNwx2UExDF/Y0Hs + JcyLuYS5XybBf/tFzNl2EX7bLmD21gvw3XIes4iZUefhQ+jGlxvNIRU+EfFxnI/ZfESyJmwIW8KOsCf4 + YOFE9CGcCRfiDaIv4Ub0k+A+Hwi04yvFDKEobIIfhfJ/gRL+jyDD/xWUcDqV4X573fhKMUMYKLwmXhjd + +EqxV4HBmy8PqP4FcyOvbOjfqxcAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADBklEQVQ4T22TaUhUYRSGL7a7pNC4G2FF + qVEuOBaoYVpKRZiUSVimiJllaRpGEFlijdvYpI65zjguP0LJXGZcZ8ZtXFJzNH+o5DapYyr0V0V9++71 + uvzohYfvu4d73vdw4KOIdAh7CHtZ9rHsZznAcnAXdF0HAEXd4XUp/XnduPW+C36JKvgmtONGfBuuv2nB + 1ddK+LyS48rLJnjFNeJSbAM8YurgFvmtnTbZNEjqQWnnEkpUS5CoFlHUsQBR2wIKW/8gv2Ue+UotchVa + 5MjnkN08C2HTLNyjpaST0mUM6PQSYiBo0OJjvRbpdXOEWfBlM0iTziC19jdSajVIriFUTyOpaooYyGgD + vW2Dd+VjeJI3iIgcNcKzBxAm/IHQjD4EC3pxn9+DwLRu3E3uQkBSJ/x5KrhFMRPoMwZxxcPk3FFJi4a9 + 7ahQPsXeNhWW+X2XgeTnZpVV8S6DjY0NrK6uIqduDOvr60xtbW0ND9LbaAMO+aSoF0VDqO6dR2mrhkmn + DSSKKYjkk8iRjqAoJhGlAaEQfB1EtmwU/PIBpHjdBs/Sgq8N8aaoWPEQ47wliXKaOelkdWYGJoKuocOd + i6awMExOTkIWEowGRzv0e7ug7KjlcypGNMg0bElM0mktLy+jI/IZVBe5+PvUF4rz9qjguqDB6Qw0gV6o + sTsBsbm5mIouVKOye45JLlJMQ0wWJmqeQl7jBASVgyi4GQjlBQdogzyhcnfcbuZxOE2/fJwoKqpAzSRu + SbRr4ysrKxgfH4fknCOZxAmz/q5QONvi0/HT9BK5I572xCB/gP19U4UknRa97cXFRUiDglDvYAvNPS8o + nW0w6nkW5dZWSDAyah52taGox8IeeWRuPyI+9+NRdh/Chb14mNWLkLQ28Dz8UEc3k7GrydgC61Ok2RJq + 55MoszKF0NBQTCZhXtYhgi5Bj6DPYiqwsqjou8xFle0JfDjCaSY1l7dGRvIySxPIjpkgy/BwBkWm/S9E + 9BM35puZfknlcGrJ3YxAP2XzBAMDabyBfnm3tTH1D/zjeAxjOo+EAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIHUlEQVRYR8WWC1SUZRrHzTLkMjBcR2pb + BdJWO6vu2bbdPda2Ze3aVrpqqIW3srSLKwhqKHnhKsKMXAsVCN221huKJSK5iCgIiIvERa6DqbBBI5e4 + y8zw3+d5v2+GSaHTqXN2v3N+vMJ8zv//XN7nfccA+L9i+dxjwdhRuHcU7huBcRbw7/wef7d47jTAH/AL + /PL9hBUxXsZaxoawlbEjFIS9jAOhJBxlnAhnwkWGf+f3+LuFCUsDQtxHXZLro76MV6JLsIRYHFWCRZFF + 8N5ZhJeJhRFFWBB+EfNDC/DXkALMC87H3B35eGFbnuD5rXmYE5SLP28+iz9tzsFzgTl4NvAMZm/6Ak8T + T/p+XkA6bJSzcZeBcSx+sa4DBbUduFDTjnNX23G2qg05FbfwRbkOp8u+wanSVpy83IITJV/jWPF/cKSw + GYcKmvDp+Zv4OO8GDuRex0c515ByphH7srVIympAYmY9Yk7U4qmA06zmyloseqeB+zny8zUdiMhoRMTx + RoQd0yI0vQHBR+ux40gdth2uxdaDtQj6ZzW2fFqNzf+ownsfV2Lj3ysRsL8c/mlfwu+jL+GbcgV/S76C + d/eV4p09/8bbey5j9QcleMo/i9XcWYtFLQ1wc1lx2nMpYsmAlgw0kIF6BB8hA4fJwCE2UEMGarDlk6sI + JAObSHzjgQoEpFXAn8VTy+BL4muTS/HuXjKwlwwkkYHEEjzpJww8wFoseqeB8VzzM5RuNhBO0YdR9CFH + 5QyQAY7+fRIP4ujJwHtkgKPfQAb808qxXkRfhnWUgbUUPRt4mzLwlmzgCb9TrPYgwQbuucvAoshipGRf + g7fceAsjCrEwvBDzw4Ybb27wBby0/QJepKb7y9ZzeJ6abk4QN91Zqek2ncEzG6npNmTjjwHZ+MP600SW + YNa6k99rwJprOkR/MdIPxkA/9CYMQ0jMasQgrbcNRgww+iHCiH5m0ADNiRr00tp724ieAQN6bhvQTWtX + vwE3dL14LbaQ1X5GjGwgkBrKLD40JDAZYOHELC2JkwFZeFjciD4SVWeQARaXDXSTcFe/Ht/Sep0MrIwR + Bh4ieLZ8xwDvSxs2QJqSuCzMkQ/KBhJOSQY4chbtH5TWPoq6j6JlAz0DRnRbRC4M9OnxFRlYsfsiq/2c + uMsAT0Bb7mijhTgLS9EbhXBCZoMcuZx6IW6ktBMkGHW82iJyA0UuiXcS18jAco0wMJEYzUAFMktbkESN + +MFpplGknSOPz2QaEHeyAbGf02D5rA67abhoCI48msSjjl3FrvSriDxahZ1HKxFxpBLhhysQdrgcIYfK + sVRd8L0G7Hg/m+rOKZcaTko5E0cGuOZ9DKWZ686NJhqOYHFOeVcfRU9w5B1Mrx6N3/TCRzIwiRjRgGIj + TTNOv6nmottl8QFKc+zJelmcUi5jEuea70qvInEp7R29g0KYaWcDrT3wiRYGPAk+zO4yYL+Bhokpeha3 + NMCRc+rNNRfiEqaac+o7SfhWZw+0V8qho7WtZxBtZEBLBpap81lt6itK5RO08kk6NkblRotsgGe53igL + i9TTSmKmZuO6s7h5m5F4F62mbue6t7Z3I0+twcGZ05GfmoavdV3Qdd+GtqUb78SdxwpHx9B9npP0AU7O + atLkY5tHgNiGDjzLD+Y3IZGaLkE0XT01XT1FXifENZ9JTRctmq6Gmq7a3HSR6ZWIyajAuSg19nt4oDV0 + LT755aPI3ZOMm63tqGpsxa71YdjrMclQs2w+YtxU8FU67iZdviMIA0o/Okg4/dKUG47cBIubopeiluDt + xjVPSslCmpcndDvXo9vfG81Bq3Fg2lRkxcTjeLQGyZO9ULNsAWqefgxV3i8gysXF+LKt3SyTAUe/1Cui + 66XpNjxkTONVnUEGOPVm4e/udU16Gc4npyJlkgduvDobbatfwnXflUiZ/DCSH/Yg8fkk/hsUTZ+MaBdX + 40qFYjPpmjPguI6OUVPk5uh5m8moKe3m8cpbjdZOajCx3WgNO1iBJl0n/vVhEvZTtA3zZqF5ybPQvrkY + tSsWmsXjVSrjcjvF+6xJmHtAyZeI1m8H0Nzej+Y2pk/QRP9uutUnhs1NWvlg4dn+la5PjNhruh7aZr0I + pWGjbemherfgeJQGqR4TUfXMY9DO+T1qSfzSjCmIU7kNLbaziyA9vhmNDXfgG5o8iNYkFOSupfNb3GLo + DH/rwxKsoZvMm4mX8EbCJayKL8aquCK8TrwWWyRm+3JiGY1YnnK8z5dG51O35yLKdxuSqR/KyUD1rOmo + +PVUFM14BHHuE4zetrZsgPff2DB7yYC4ExJ80+XbK3+oIibI8DWKbzJ8ljN8pPKpxgcLj1aGJ5wXMWOp + Uhm519PDULdigRT5zCkonOaFsl9NQelzv4Na5WpYYmuznd7lW7MoAT/iZkywEdPV3ASf33fC49QSvra7 + rnFy3hLv7q6vo5rXzn4cxRQ11Xwo1s11KM/rQVyeNhEllJEQeweDt7X1Dvo/HPAPftjkaNy7ytFpTvwE + d339G4tRN/u3KJ75CxJ3M3LNKe07NU6OxpyHXFDkqcKlxydju53CMM/Kaq6Yxz8V2YRToLPLsRg3NxJ/ + ROxzH4WCU80N57bIxiYk1N7BmK1SIlihwGobm0z6u2rEL/wx0MO76YENjk4ZLL5UodhGv5vqzOV18R5v + HbJDoTDK4tw740b8sh9DjIr7VphwobS/SKvY5+FK5Ri529mE81wrq3m0cnOP225LB+NIX/ZToEf0BK+j + fMYmh49jyxf+92DMfwHagE5xMXiZDgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACwElEQVQ4T1WTaU8TURSGh0W6fCCsAf6C + 0R/iEmPQ+EVR0Ki0iGJRiYnKojExIKhBQlyIbFJKW2Pgo1BBuiCl2lIT0cgqINAWWtrCTJfXc6cdjJM8 + mZnkvs85c+dc7r7+p0gDUa/7wdURB8uMEpek55rub9ytzmnuxhsXp+lwclWvnRwATgzTlUKkJkkj0g+U + 6l9SEHRvp3cZIScUhDL5nioK6Eqp182MUHXU9s/grvY71M8mwMIJgRHlT2ygyqjucIEqQ91mM1NOIQlS + 63QziMchsuLbQZiPEVExHKJ7cDcK94IffCSGXSGGyhcOlszcE9RqE4JoLI6hyVXwUVpIi/efMyBMASYx + WJYR2InCH46gol0UZEmCNLdGCbdGgenrSkIB5zXiqgJfK+X4ckUGR0WCKZUM9vIElMuWBOnTJAg7mhGy + NyH4+RECEw8RsD6A39yArfFa+EbvwGe6Dc9wDTY+3JQEOZJgn7taQeFGbA6dwubgSXjfn4DnXTHWjcex + rj+GPwNHsdp/BCvaw1juO4TJ8gyWzP0noA5c1L6rilpn0CeI7TMq5HCoqX3CrspIfoIoyJMEGTVdbkSi + cXH3jbZlbNOusw3TjS9iKyxgMyTg7dg8vNsCNoiypzaWzJcEMpowCCQIUdBgZbsdEXe7/9OCGPYFBfSM + zsGzzWMjIKC0xcqSBZJAzoaE/WeD5Tf05iUMmBcpvAjt2AL6RufR+3EePaY5dJtm0Tn8C2ebLSxZKAkU + Gpownv53ou0lajuy17YnSFWpcvfILNYDPNb8uyhpEgVFkkBZ9copTlhAapta9hK9VD3RNo8uqszCa34e + pxvN/wlkqlariY2nun0KqjY7Lj+342LrJC7QmThP56C0xUZtW1Hy2IIzTWYU3xucoNzeILETyE5aJpFF + ZBM5RC6RR+QTBUQhUZSErUkHwP0FJsZi8Wfp+p4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGq0lEQVRYR8WX11dUVxTGAbFrLOl9JSbG + hcmbK/9D8mAeVJodURAFUZdrWSjqUgxEgYiiokRUmlLVGE1ejGJDYBiQKRSJIEVpwhSmwpe9z713ZlAs + yYPetX7rzL1zme/b++yzz8ELwBtl1IevAl3exFgZn9HeeRVGffg8vl970Wte+AVFfNJ3i7OS/YJOptDn + KWxi7vJiL7/lRaP+7fP4T9e8MLe4X1DmryGpd7Fg703MXnDkMD2bRvjMWVrA7/yvi3/4RfgQY4ipfgEZ + aSEp5Ui90oItOQ2Yv6sMs+anHqPv3ibElMjw+6PB3/Fvui6+4S98CWVex3kwnphIzJyzMD19ZfIdJF9u + QdLFB9h4ph6Rp3T4IfYaPvsxMYve+ZSYSkz2gKdIge8nEKwnTAjxuDzt1bh8PWLz9IjJ02FHrg7bc7TY + lq3F1jMabMlSI/rgdXy7ohhzlxfBb1kh9pQ2I+qUHl8HFxDnMCvwLEISriAs7TYijlQhPL1SsOZwBVYf + uovQtLtYlVaOZQfKrpMmB8SZEAbGxpP4MFWFwtDwsJuhYdidTmge9KC5rQuVNTp8s6QA8UVNiMjU4qug + s7h2qwraplZU6NphsthhcQzBYh/CoG0IZptTYLI60dlvwcrUO1x9nCXOgjAwLjZfR2IsDDhJlHHQDWN3 + EjSqmvvRa3RA39yG2RRxxAktwjI0+JIir9U3o8doR0VTnxAyWpwwWBwYoHFg0IH+QSeemB34p8uMFSnC + ABctT7lIw/gYSjlpSuKysEMWFgYIxQBHOouijsrSIvRoHb7wz4da24Qeg2TASAYMigEh7hDiTDMZWJ5y + mw1MH2FgRw5nwC3OwlL0Q7CRuI1SWiUbaHjQQVHnIzpLhzVk4PNFedA0tkoGGvuE+ICnuGygz2zH/cdk + IFkYmEG4DEzQb/bFC9kkods4BtqNvtBG07jBF5oNPqiLIiJ9cG+9RG2EN2oifFCzlsZwb6iJ6jVehDdU + zGovNjCT4NXmNmC/X0IUwdZUSJyDrZFoyCdyYdPnENnEGVh1p2DVnJTJhPXecVhqM4hjsKiPwlKdDovq + MCxVaRisPEikYrAiBebyZJjv7FcMKD1DGJjIBljQ9Ffws1yR+TMIRoXLMn8EwXApUOKizIUAIhAD5wNc + 9Jf6o7+ExmJ/VIUKA+94GpgkDNTnvNSA6XKwW5wwvMhAqWSin2Fx2YAq1HuEAV6Lk4UBSu2oBhgWJxOS + sDQaGBb+XR6FuNuEiF4RlsVFBlaJDLz7jIFR4cKTi08UIBcfURc1BhqP4qtdx8VHrJWKTx0m4S48glLP + VEkZeI/gNi8MTNmcVSuWnZWWnVXpYh6YqaMllepEk5HWuAQvN8+ltjuvRiy3XpMdPUQ3Lc0uow1dBhse + D9jQ0GFEYOINNvC+p4Gpm07WimYjtVAahTC1UEa0UzJQopM7HAs/tdZ5nZsc2JlbQ+IO0RUZYYBgcaae + DAQklrGBD0YY2PhbjWg2LOyKnvu3AkWeWKQlcRaVIydRzy7XS5HH56pJmAyQaDdFzZF3kfAjpt8GfbsB + /j8LAx96GngrOlNNHU8R9thA6LPS2/cVamQDLOyUU28XkUtpdyA+p1pELYlT9AMUPQmzeCcbaKMMSAY+ + InibF+1w2oYTamT/3YLkCw04cL4e+0v1+KVEj6RirYicxRMK65BQUIc95+5hz9la7M6vwS6a851EfI4a + cSQel12N2GwVYs6osON0FbYzWZXYRmw9yVTAf991NvCxp4HpkcfVUurl6JW0GxQoYhbn6JWU9zFcbDTX + vfKcx5KwUnAMp54jZzqeWKF9aMCihGts4BNPAzMiM6pFASrCvKMJRNFR2om9FLlrzindXOmKcDfBwjGn + VXgsDNglcaLjiSTeLhtYuE8Y4JOT28D6Yyox/57iI3c1J6X9nhQ5iytLzWVAmnNOu1Jw0rxbhTibaO+z + oo4NSBkYYWD6uqMqdPZZ0NYziIdEa7dEC/Gg2yzYnV8r9nOGt9X7j8xoemRCU6cJjZ1GwiTmnJeavt0I + HVW8rs0ALaFhSFzT6jLgqgHRiEJTb1wNp3NcGJ/hDlXSGa6CznDlWHWwHCEEH6NWEHyYWEb7+dIDt7CE + WLz/JoKZpJsISrpBTaZMrHOudC42hud8EY0szPwUd6mMNF27oTgTEnxi5T2aNwnu09wqGe5YDDcOBV7D + DC8lhqNR4OJiOMUKn3nA77A4n4x5IxSXOBkTbIThBvEyOH0vg0Wehp+zhkvc82IjrwP3pfyP9qYY9eHr + A17/ArqwfviAuLRQAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACvElEQVQ4T22TaU9TQRSGK0u3DwRcAvwA + lxD8IS4xBo0xIoomKAVRBIlCQESNiQH5ohJi3NiEFqiyfBSIsQuUUqUUAQ0mLC1bKbR04Xbh9czQ20Rj + k+dObjLPe86ZzpU86volod8eIi5KPJFAJEaREjJCTigIZfQ9DgAtJNdoZgZrND9RrZ5BVcc0Kj9Mo6Lt + B8pbJ3GveRJlTRO4896K0rdWFL8ZR0HDsJ48hRgQ90Azg50dcByuACK0Rugxu+xFmNZgeAe2OTeEUATb + wQiKXlmYmRQLqO7YDWCb+0eXIIRpI23uMTngJ8EnhNFtsMMTCMPtD6GwkQckiwHxVe3TvHIfyYxeEntG + HPg0bIfWaCd5EZ36BWgI9dd5qBrGmJkiBiRUtk/xDlirvaYlBIQIVQ5z2UtVtwIhaHTz2KTqG74grr8c + ZeZeMSCxom2Kz83mY5X91LJvm9o2LvK2Pf4wVZ7jsssbQt5zEzP3xQJsJUrYShSYuK0kFBi/RdxU4HuR + HN9uyGAp3GVMJYM5fxfy9osB0gkK8Fvq4TPXwWt6Cs/IE3iMj+HWP8SmrhquL5VwDZXDOXAXa5/LxIAD + YoDMVqoguRYb/eew0XcW6z1n4PyYhVXtaax2ncJy50ksqU/A0XEc9vZjGM2XMjNVDJCzEazUvrWYWmfQ + CLx9RqEclgJqnzCrpNEReECaGKAooRsm0AGyA9PoFmKnffSKFk6vgLUtAS2Dv7HqEbDi3kZOnYGZ6WKA + svj1OP8HPCTy0/YGsU6wgHWSnUTzwCyXV9wCsmv1fwXIVC+MQ+x6FjSO0SUxI6/ewOXMXC0yLnfjaq0O + l+qNyHlmwMU6PbLu942QF7tI7AtkX1oSkUykEHszslubmHz4fMs7ek8l0oj0KGxPAg9gj3/JzO2WkCw5 + ktN17VB2p+TgBfV/9wGQ/AHEsHApQfdfowAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGmklEQVRYR8WX51NUZxTGAbFr1ERNgsZk + kjiZSZwkkz8hbcyYSb5YSSxRbCjYxqhRMTEIiFIi2EWj9A4WUJOIgg0QpGyjLCiIqBRhKcsWeHLOe+8u + d3Etkw/mzvzmLPfu3ec55z1vwQXA/4rTmy8TpzdfJsrL9Tm4/QcGPQV+xr9pv/gPfuBODJYZomDoAIYN + YLiCETIjFYxSwH/zO6wnTAhxv3hNjl+CDtvjddgWr8XWOC1+idVgS4wGm6PV2BStws+nyrHxz3JsINaf + KMP642VYG1WKNcdK4Hu0BKuP3Maqw8XwPkQcLMKKA7cEy/YXYmlkAbwiCrAkIh8LQvJySZPNciWEgcE7 + SLyPBsVGb19fP719sFLM0zbDSp8tCsxWphcmSx96KJ4uaIDR3AujhaDYbepFl8kq6OyxorHNiJ/Cb/Lg + jya4CsLAkO0JWhJjYQgxxkGEYmS2XhKiH2ccRCh2UQxO1wqhDqMVBqMF7RTbuy1o67bicZcFtY+6sChM + GBhD8JCLMgzdRiUnTUlcFrbIwlKWfYjIqibhPilDsxS7zVYyQNmJDMlAmgYdZMBgMyDELUKcqSEDC8Nu + sIGxDga2xnIF+sVZWMqeykviJsp23zm9MCCyF+Jy5iQoGbBid6pGiLcrxWUDrV1m6B+SgVBhYJzSwDBu + uDxtCw5dvIODF2oFB7JrsZ/KHpGlJ/Fq/EGEn61C2JlKhJ6uQEimDnszdNhDZd+dpkUQZR+YokZgshoB + ySr4J5Xj98Ry7Ewsw874UvwaV4IdxPyQ62zgVYJnm2RgS4xaVMA+5pw1IWUsZc3i3RS55DzutqzFmIuy + WxCQoqLMrQMyJzotaCH0Dzrx415h4DWlgeE81Xj8bWNuotLbxXnMSZgzl7paYqC4gQQDklQOYy6Jm9Hc + YSYDNATCwDU2MF5pYMQmNqAQVxqwdXtoZqW927nhGKnbudOlbuey2wyweAsjG2giqhs78MMeRwM8F0du + PKUSBoSwKD1FzpzgZmNCMiuo7FLmHSRuEJnbul0qu39Cub3huOzNLC4beGQwo4oMeO65ygYmOBjQbXDH + M1kvoV03CJp17tCspbjGHeo1blD5Ej5uKF8tUebtilJvN5SupLjCFSXE7WUuhCuKmaUubGAiwcu8MDCK + Rcz6dCIVpuoUIgmmKqIygYiDSRdLxBDR6NGeRI/6hEwUesqPwlh2hDgMY8khGG8fgLF4P4xFEei+tY8I + R3dhGLryQ9F1c6/NwOtKA6PZAAt2XvR8kvMyF+ahw0a2TNY8GM7NlTgjc3oOMRftmXPstGXMRls6xbTZ + KPISBt540kBF7HMNdGZ79osThmcZyJBMtDEsLhso9nJlA28qDbwiDFBpnRpgWJxMSMJSNDAsfFaOQrzf + hMjeJiyLiwosERXwIHhrF8vhGNFozuDGk5tPNCA3H6HyHQS1ovnKVnHzESul5itZLtHfeASVnimSKjBJ + aWCsD+3nYsqJRaZ/bRdTjaFpVlDViiaaSnWP2vHZ0kwcvtSArUl6fLw4HTUNzXjYbsINXTNNN5P4zDwg + Gtsk7j/ugabegFkBV9jAZKWBcT50mOAFxybMq5vANs+J/MoWMZdr7rfgE68MRP51D5sTqjFtURp0tY12 + Aw+FAbMkTtx/LIk3yAZmBgoDbzkYWE0nGV5slOKOu5rVbqC6vpmyTkP4+bvYGFuJDxekQKNvEAau65qE + 8APKmGls6xHibKKhtQcqNiBVwMHA2FV0jGpsNeJeczfqibomibvEnaYuOkh0Ild1HxV3m1BYVoVpC1MR + fOYO1kVX4IP5ybh8swSlFXX4u6gW2vo26Bo6oG0wQHvPAA2hZkhcXWc3YO8BsRB5hV/NWUHnuOV8hou8 + RWe4QjrD5WPJvnwsJhaGXoNP2BVR7o9InLP2z6iB70kdpnomE0l4b24iFvlnYeaufzAnKA+zA3MFPOaz + KLIw873fuTzStO+G4kxI8ImV92jeJHid5qWS4RWL4Wkz9d1vg0/OC7ouxHekVsM7SoPlR9WYsf0yPD73 + S6bvfEq8TXCJbUxRwJmzOJ+MeSMUlzgZE2yE4QXCGfzSxHdmhER991suvI+R+BE1vticA4+v/GPoGYvx + kZxLy9iO7Ur4PmvYxZUXG3ke3DPjJ0/ffeKbbTkkfgkeX+6Kpnu8tPIzZ+8MpP+y/Yv0ItA4u7zvmciv + cbUmTJoefMzj66Dj9FmIT5kZ58I4e/dpOL35IsgmuG/4fO/u7DsvgtObLw+4/At5ieg8jnzN2gAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACy0lEQVQ4T6WTWU8TURiGj4DdLghrgGuV + INE/4wWrRTACAqJsJiQmrBfGCKKihLgQNpG2QKIoXskmtIXSSgtcgJFNwSCIdroxbeH1O6eNf8AmT2aa + zPt87zlzhjUPfRHQ7xQRESaSiCJOh1EQSkJFqAlN+H/Ev3CjfnW8Ub+Get0qlqs1WK4KsULU9q7gds8S + arodqO5yoOKlHaUd5lnKqVlTSBDRoF/FyQkEy5Ua+GxtRKu4Dx6fwB88wfKWE3LgGEf+Y5Q/s4Fy0azJ + sCYE9YMhAX94qVINr7UF0odsLFVo4KWARw5i2LgDyReE0xtAWacQxLAGvRBEjtn2sHvow6jlR0hguQfX + WBYct9QYMe1Q+DsMs9+gJ3SftlHSYeWCWHaxYIQLosra50QDXnWJQt75u2GBCm6a6vIFoJ/Zxh+a/tvj + R/FTCxfEsQv5Iyw9z9CZpjWA2ov12W+q4DU3Q3qfRfdqUVvyBmnylggfugMobJ/ngniWfmW46Lx2CKm5 + BpzN1uFMlg6L5SQwNUJ6l4nFGyqazGtvYZAYmNrEq8lNXHs8xwUJLE07xFJzdM/P5egQoPpe+ViEPMY6 + apCJz2Uqqu0XkwemN/HL5cc+UfDIzAWJLDVXT1emLGyZFev3HAVFyD1zRzSwlSrDtf3on9rAgUvGvuRH + fpuJC5IYHRIuUL2Z3xXvme82D3mma+EczYS1RIHX4dr9Exvom1hHz8evyHtg5IJkRieMC9RVdMJk2kC+ + YbYSJdyTNXC+zYD1ugIHbppKk/vG1/FTkrHnPIK2RQhSWHW3gws0FS/s4g1I9Jp4yDVRRQ0ysMAForaM + XprMw3tOGbn3Z0OCqi47FyhLnpgm+PEs7bRioVgRokgBC12vPjTTms1U2wRtqxGXab8u1Y3OUS6W0WQu + 4F8g/9KiiRgilogj4okEIpFIIpKJlDD8mSgG4D8A+wv1fWSm7ZWVAwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHUElEQVRYR8WX+VPU5x3HQTyQyaRt1DRt + msajTiYzcaad9E/oj5nJZDoIKJEkFfAIoiS9RkEFDwRJUjxio3SK2nB54UF/a1EUUWEPdpflEFONUU4L + e7CwB++8P8/z3WVhNz+0M53uzMvviuu+X5/P83me75cEAP9XZt7MfiX+B8z7L5D/p19zBMJfmETmR7Eg + ioVRLDJInsNig5Q4yOfl+7XEnOrnlZzr+wdBcUMv9pI99b3YXdcNx0cpcO6YD2cB4bVL2J4E244U/P60 + A7+ttik++qsNBX/pxI4qK7ZXWZB/yoJtp8zI+8KErWTT8bvXmSOSUugsATGaL+HRr2kDCZ66fxFTD65g + qr+R7y9hsqcOjvwkBKenEQxpAsFp+MmVu0/UdUoITGMyEMLI+BQ2n+iQwOeIdCFGYIFUHg4VQgaOj1MY + 3gj33zPIOrib0uEith2LjaBQJEgov9SNCX/IIAjvZAiPR3zY/Hm7BD5PZGljBaTtKpx/CCH+jYWpJZjs + qZ8lMH41VQmoKikwSXz+afgoUHZxRsA7FYRnKoSvRyaQe0wJfI/EFVgoax6pXAQU07AXUKC7JlZg+2IG + z1TuM0LLLjgxwWAvgz2s3jMZVAI5x+5J4PdJjIAMxaLddT1odozgaNMDHCGVTf2ovNYPu3TAeWZGgFcX + BTopUNHYg8OXelDOqssuCE4cOu9E6bkuHFQ4cKDBgf31dmQfvSuBPyDfIVDbrTtgVK8Gi9gLWGlXtSGg + EQHrNv5cKlfVB1k1W87rofNdqmoPu+Dm1eUL4tGwFxuPKIEXiGzpGIHkwlrnTLhMN1ECXGufvSqOQLIR + ztarcFnzkKpcBNwMdvkCGOf1IQV+U3lHApcQLfDLTZcT3sy5LG9FYHHqvhsIMTC8tSRctpYMm892Mr6A + WnepXlcsay5tD1euBCYC+BcFPviTElhKRCCR4Y0Jv8hu5PuEpDVZNQfXvH8Bo65JPPMEZiFr7bOdiBXI + S9aTLhgtl8r3N9hV+LgRPka+osD7n7WJwLKIwM83XpLwxDXv1e/LqmjDG1nnYekfwZ3uYbR1D6HVOYjb + ziF05lPAemxGoCkD41dSYfkwGaVcbz1wetjCA7evzkY6UVLbieIa8qUV72mBF4kc5eo4Tnwjq6Ek63Ab + Kpoe4vUN5/Dauw14LbMBq9fXY3VGHVaRznxWaqmMKxCuWq25antAhY9PBFXl/xa8ATwY8iLr09si8MOI + ACsuVuHXHqLwXD+2VXfjwMUH2Hehn/eD+7wX9KGwtld1YML8aXyBOeEuBpawchXOYOGZCAx6sOGTVhF4 + KSLw+ob6ksyyVhQxPK/aiS1VXcg96UD2CTs+OG7DhqOdyKy0agFTRYyAeasIhIxp55qzalnzYrY9LCDh + o6SfAu9WzBHgK2l12tmD7xS3YMupLqxKr8NKsiKtFsvX1mB5ag1eJVYRaC+LETBtSYZLVR6edt32vRTQ + 4X41xCMevxLIrLglAj8mclvWM0AWrPh1VflbRc0q+IblK1y3Pkaz5RH+aX7I91/Dwu02ca80rsD+Ojtb + btPDRvbWWrG3hnxpwe6/WYkFRcJZMzIPK4GXiRb42bo6XpVEyitvHTkiVT8eHMMojUfdmhFi4Xbz3t0f + EXBFd8DYbtEDt4fhUr18j1Q/7PKjb8CN9eVK4CdEC6xMr01YmVbL92pfvvSrj6/C5fUZpxvvbMYhI8Pm + bSuJFdicPGuvq7az5XtY8ai03ihACTz1YF35TRF4hWiBqKNYbg5L8k+aeKIFVLAOlyPWELi9J67AGEOj + J36UlRedtTCYAgwedk1hiPQ9cSOjrCUsIE9FMQIvyGOU3Fx0sJzrcksNwiwCrYUxAh0ioFqvh023PaDW + W6rW4X4MjfvR+40b6VrgpyRGQJZgiTzDHWvqNU43h3G62dV2897cpcOFa3weuLwW7ZsWcb2tGjVsZlV9 + 0RkzCsmuMybsOm3CztMd2FndgfRDNyRwOYkrsDTvpEW33qg+fMrJsHlb/hhXQPb5Mxm2qKEtZLC0fZDP + gcIA6WYH0g6pDqwgcQWW5X1hVgLhYDndhA4KeG78LlYgd1Fkx6hhIxIsVQ8qAb8Kf0qcj91YW6o6sJLI + Y3tEQJ0FZNmHf5Yh1I9Q4XDZZiLgvfmHWQKuqxkRgci0u/Wa76SABA+MaZ6OTVLAhbUHIwKzOhAWWLr1 + hAlPRn18gp1Qz3CPhjXm3HnwNBfEdMCUnYj+AS/uD3hwn9us76lbbTdZ7x5OvbTd+Y1LhXeR1APXJfBV + ErME8pz+/MbPWpo3fd6B3OPtyDnazme4e3yMuqMqNeckqkBT9jx08Crcy1nI47UV63nCrRPKbnGr3eSw + taj1TittUVULEv524dVbzAnfjvUjWVQX5IfyyCwf+BGRM1uOTUFOL9m/YWQrCVKNIJMtwyVIi4VVc5DP + yHfLr2gzvxlFdUF+KOeBiAhyWsVD2vddhH8vjIf8u3yvDpdXWGCOiHTjf0XUKyHhW3yvSt1Vx+fgAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACt0lEQVQ4T52T2U9TQRjFkaXbAwHUAE8q + Eo3/DlEWEd8EC6JscUEWCQ9qBH1BQowSUFlalsiivokCLYUuLK1A3SJbEQPF3tJbbnvL8ZtpS+KrN/nd + mZvMOd+Zb+bGNPZ/jaHnCBEbIY6IJxIiKAgloSLUhCbyHQuABhI36J0fGvRfUK9zorZ3GTXdy6juWoSj + UgNHRZjPRGX7AspezKO41WQgnTpqEHtP78TBATgutx8hGkP0cpRr4Lc9IZr5XAqGsB8IofSZjSkTDw3q + e8MGMolGzZuQZFpIi+3laojWJgjv82Av00Dwy/CIQZS0cYOkqEFcbc8yrzxCYsbwjAtD066wgfkhvO9y + sXBDDb1hDZZvbvQb1pkyOWoQX9OzxBME5AMSb8IvhSAGZNhJJM7cjxio8Iequ/cCKHxsZMqUzIt6bpBQ + 3bXE9832xyqLkgzfvoz56yqIpkYIb3NprsauL8ANzub3IeN8R/vpXF3Y4M7rRXz/5cMQRX9jcmFwagMD + xg3MlZLBVAOE0RzMXVPhXEE/zpA4M08HEuNUdm8hM1DceulAkOKLFH3QtAEvVWcNYyKfsY4S5GC2RIUd + bwA7lCCDxCey2jtPXujhCZQ3O+18/yz2AFUX/EHebSbam7zLE9iKldj2Stzk8oNx1oPUqIGqqmMBjhUP + xV6nDq+hz7AK3cQqF/nGb8MzkgOrVoFXYz9gcm6j+9NPZpAWPQV1Bd0wiRrIYusn13i3WcNsWiX2PlbB + M5wN61UFfgsStjz7KGjip5AeNdCUPZ/nJyCQUDexgl3aJ9srE3nHKihBNiw0Z+Itj4T8R4Z/DJTalqkx + dj2L26zQtlpQ9NSCKy1mWIoUYQoVMNNY0GzEpSYDsupGpkl3eJHYH8j+tEQiiUgmUoijxDHiOJFKpBHp + EdiaeG7AXv8PYv4C0PJyNkI47n0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHRklEQVRYR8WXa1BU5xnHAxpdaJqr6bS5 + 1SRNm3aaTr/1czPTTmfSaetMvaVJbIyKxhAFmxgjNEYjIkZFFEM1tlE0uN5AQZPejIr1BuzCssvuAhLr + jQSxkV2WXdhd/n3+zzlnWdjNh3am0zPz86Dg/n/P877nOS+3Afi/ku7K+A/I/C/g/0srYH3gOGF8Ercn + MSGJiSa2MWSZZKeBP8/Pz0gnkLnqQMdxASv3t+NtYcW+drxl9+H3e30oFAqqfFj+oRdv7mnDst1tcC/J + hjdvPLz5gtzbyOJxaM3LxuIdzVj0fjNefd+J3G0OLBTmb71wUnIoyUJHCbD68QxPvoZNzvhuIi5fxIeH + R90ZPNhZjcGuWgxePCxf1yDit8OzaByGYsMYJNFhRKJx9PYNYkFFExPvENiFFIHbWbkVSuImW45dRExC + LaKSTjy/y5bwwwh+NFN4FsFjMxAQWvOyMDAUN4khFInjam8YC95rZOKdApc2VYBt13D5g8Tlb6x0swoA + UTN8yMQjSxDx7xsl0Fc3dZRAaDCG/sE4rvQOIKdcBe4S0gpM4JpTQCungDKMsqOmgPyDJcD2uvNFwFeV + KrBYBCQ4JMH9Un1/JKYC88obmHi3kCLATTHxLbsfJzy90vIuqboLZVI5wzfVdSqltR3KhiOkXTdhxFs5 + IiD3gAi4RKD4QBvWKB4U7fdg9T435m65wMR7hC8RkJ2uHTCrj5kVMzwqFWvrubFicUQEd34WIm07TQED + CrS8mqVV90sXgnIPhGO4fCOEOZtV4F6Bj3SKgK1wr3ckXFpvbbjS2k4Ntlpv7Wy3rHXYvSONgE0FghIc + CEfRJ/dLPf2YveksEycJaQWyCuQZ5+bTcAnTNZfAjdJyFdDqGT6MsGwwbrZw6/a0AlblKjAQRWd3H37y + +kdMfEjgIMv43qyDcjMuFVi+hx0YCWfFvG843GFWLq1XjA5wrcOtFakCuTbcCAwl6BEuXv8CT714CE9M + 2VwhWXwSxj35/H5m68XBkM0JV3P+uracm42Vkw1H/Fhf48e7NT6sI4d8KDnkhWuRCLSUjwgcm4m+2qlo + fsWG8+03cdrTjVOuazjRchUfn+vA92cdxHMlZ/CtKVvKJY/zgIXrRYGvLNvtSax7cssZblUdFgaIbDDX + IhsGmsvSCvzwpRr8YHa1Vs1gaTe++8IBFNd+il+9XY/JvyjbKpnshF4UuOONShEwW2+EG+1m5RFZ85Fw + DhhZAunAgHNjWoHyv13B5j9fwaaPL2P90X9iXd0lrJXwouou5Gz34JnCk3j452XshF4U+OpSEbCqZ7gl + sK7ap+HceDrddMKZAo71KQLOhTa8ae/E0qoOLNntR16lH7k7vXh5R5uGz61w4+mlx/HQM6Xsgl4q8Nou + twiYwSKhG07CSmTNE6NV4GjlY9ZCgcaSFAHHyzZt95PPHcB3frMf3352H56YacfjM+yYI+E/lvAHf/bu + NsnkTNCLAne+9oEbuz65JC2XDVft18qtDbf2oBfFB43JtkYmG6dbszxuAw3FaQXO+XvxSfMV/LWxC39p + uIhDf3fi0el7MWXFKTzw05IdknefmasXR+NdSz5wafs55XTDmVUz2HixjFTPZ7xZHrfQhdUJgUCSQE9g + ED3yCv7cxNPVjcnTqvD1p1fukaxvMPORX3/IbL0ocHf+n1y66431NoYNX6ec6ww3Xi7WhBMB2Wyhc6tS + BRbYcLM/it7gkMJZ4OrqwY9y7BxETwk8HWWMFbgn748ticqt6vm4se2c66PG64ApcHZFWoHeoAjoIJJO + CP6rfZhedJwC3xR4KtJjmXVR4F4eoyhgBLNivlJFQNbbCjdGrDFenRQ4U5gi0CQCxhRkuEzCviG0Xwti + Rkk9Ex8RUgT4criPZ7jyY+265sXcbPoqdaNIXqWr7W68Y2/Fqr3EhZVVLn3cQqcLjHByVM4DR6ahcf5E + FFY6UVDpQMEuB5bvasLynU2YsfYUEycLaQUm5W5vNlpvVm+1/R0RCLByaTsrJ1+EorrZQvXL0gqw7dYG + /EzwSQemr9UOPCqkFbg/d5tTBRLrbbJKKjdeq1HcEolbpkCTCPSfej1VIGciPleBIQ3vFrxXg5hWrB14 + TOCxPSGg50Hh/lf+4NDqk8O529lyVm2ExzT8X7LLKRA6/cYogUDdTBVg8Ge3DLpvRUQggGlrEgKjOmAJ + TFpY4cD1m2E5wQ7oGe7yDYOVInBJTjTkU6Grx8CZk4n+E/kpHXDMzYD/elDb7r0W0PA2YWrRSSamfQp0 + Es4prT8x/70m5GxtxLwtjXKGa5Bj1Hm8VHYes4UXS8/ht8KsjWfxwoazWqlzXoYGOuZmoknupGHeBF3v + 6cX1WjVh+C8L6/4hOV8TeCBJPRULfD3yBzipHhAeNOEp5uEk+CgRVkO4s7m5CFtMHh8Df4afzSGUyfBk + AV48HHAejP3dbyxs35dh/V6YDn6fn6uHkHQC1sVu/K9IBBvgtn8DpnVRyWRfP1MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABlElEQVQ4T8WSbStDYRzGb0+RcOwhXjNP + LZ/CV1Azxp5YZiJ8AOUDSEMkj+WFbbYXXmiFw4vZ2TmemhdK4gWliCSENnX5b6jhnpQXTv06dbqu61z/ + +38zAH+C+5FH39y+2DMdRdfUHlwTO3CObaNtRBG5Yh49M1E8xV5w/xTHzUMMl7fPsLkjVIGxDCKLyCFy + ibz3d2ZqQPfkHu6f4zi9esTJxQMOz+9gGZLAlE7txpZLA8WpQaRdDclRDNEiSBSQX2sNML0l0F/T7Ged + E7vB9vFtOEYV2N0ymSNoHgwH2ZZLC1xIwFkQOF4ADsYRbhUS1dR6s5/VtPhRbVrsr2j0fRrpA6Z0aIDT + ZUA0AauNwIoBIZsAvTmAN7MPZEa50VvHDZCdauBoHlgj86qBAuoRshYlGpRWmXyssskLndEzUGbwfDMn + A9btxRuSQ5WsvWkrInMhlhoKZApQVVJtndGbNKddIz2JUxcIDVFClBIqIjv1T2nXmCr6ibRr5Il59M5G + r7+OYB+Wr7liHv8/QtqbyBP/HrBXzPqrxXng4QoAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAET0lEQVRYR+2W+1NUZRjHz9mz1GBXq+mH + tIbsRo2VQP0B9UvN6EyXcQIF0pAFpZBERptmmrGZxoJgQiAlBQUhwLyV1UxZmoFkBHuRhcWFQEVNueyF + Ze9I355n2YPrzonZVZxmGp+Zz5zDLu/z/Z7zPs+zrwDguviXEIOoCCmImogJwvf8naCYNFJC4736riMb + 6owoqOlE/k4D8qoNyN2uQ05lB7K3dSCzoh0ZZW1YWXoC6cXHj9ESNiIqJo6UkBBZ3DfxN7z+Sbh9k3D6 + LsPhmYDd7YfV6cfouA9DY14MDDmRVtLKi+cQkmLiSAkJ1YbdRngnJgNiIw4/iflw0ebFeYsHgxY3zoy4 + 0D/kgm7AhuXFAQN3ELNigPdaKqjthMd/GRYSH3b4cInEL1i9GBz1kLgbA8Mu9F1yQcsGio7z4rsItWLi + SAkGG1Dn15yElV5z30Unev8aR895B7rPjcF4dgwnT9uhJ1i8vd+KlMKW2TeQV6U9nFelp8LTYk2lFllb + 26Gp+AMZW37HCi482vdUevXLilqw9KOfj9Ka24nr2wImaIAr+lYilriN4OR3EvyUdxNziXuIe4NX3v9b + iGvrgudWHxKSsg4JiZpvKIcQszC9oZCuLMz9Lfe8jNz7oVyZAwrBT8TMOEQSSPzZzK/pVoh9+q0DiE+u + /ozu2YQqPn0vfy6HnC+Uq8NcoD5yar0ap/IlmNapYXpXQvdaCV25EjrfUaEzh1gjwrBahFYj8hBhIe5j + 5r6FK/Yjreg3PPr6tjL6m1+vSunNKcEhsrivtwFe0y54jF/AYyiHR1sCd9tmuFo3wdX8Ppy/FMDx01ro + s0Q8k3EQ/NQs/BTx5Jv78Mm3p/Hqhy2Ie6X8c8rJex+RCQ4VG2Bxe8PzsDcmwV6fCHtdEmy1ibDVJMC6 + KxGWnQkBdBoR5T+ew5YfBlHy/Vl8+t0ZFJL45oMDyN7RjcUf/IoHl5SxiVglwXA4pB567fzk9i9JnCED + tt2EbCAobqlaBO0qARsb+7C+3ox1dWbk1vYgp9oUENdUduHFjUcxf3Hp1mgMqE15ZEBfPi1ur5sSt4aK + Vy/C6I4pA/Fp+/BE6l48vvwrPLZsDx5J2YNMEn+BxOe9XLydcnKrSUqC4QQMGHOlw11UdEYuuLenio4L + Tp9N0J7rNAK0mcQqEa0rBR4i9xPc29zjcQ8nN+G1Tc2Y91J04gwHtxsPhaiHyIKUJroIc+PeaMQDIeIP + LW1QFFOCg/syvOdlQofHVXNgQXKTQMJ0K8yZv6SilK7T4tEamCnCBwgTHmyexzCbl0P+3xmHGXHzRHTz + RHRjTkTmCw6YAqchG52GrND9aUEH0dY7ghPmYSR/fIwXc3vHKCaOlGAEDNAWWCItwtSiZhutmTUDHKpI + i7D/ShHO2hZwSBEXYf90EfK0/Q+KkA3c2CIchznsWG6Qj+Uk/r88lnNc8y+qYtJoCAa/hah/UQVBEP4B + qZ2tHffwKIwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACz0lEQVQ4T6WTe0yNcRzGX3fhDyPXUubW + rJvbZsbM3cy/NAyR29ixytLNCTUrOt07q0hE2RhtjbSQ5VBKjqRiqXWRdRNOp06d23vO43nPOZr+9m6f + 9937x/N9vr/n+/0JfMaQsWQcGU8mOJhIJpHJDpzIFDKVTHPgJETm1ZdF5H9GRF4Dwu424PydeoTk1uHc + rU8IulmLwOyPOHujBrKsGpzOVONUxnucVFbjRPo7HIoveytEUmwFYOXLYsOKnJffYOaPSbRjIGlFTdAb + LRgiOoMFg3oLjqRUQQinqyQ2W+yYRCC7tA0G/uhNFgxLIoOI5MeNGNCL0A6b0T9khkZnhn9SJYQwtpz7 + 6jtulXUgp7Qd2S/asOv6CuzI8MF2pRe2pHliU8pybEzywHrFUqy7thhrYxdhzZWFWBXjDiE0tx7s0OZs + NLNdkxU7M32g1mXYqB5UolKbgnJNAlS/4vDyRwye9cjxtDMMKy+7QQi5XQeR57WLpbatNnebeECJKm3y + aHG3HEWdoSjsCIbvJVcIUtpS29eftyKzpAXK4iZsU3pTnE5nSawYEZdQLDkXdgShoF0G34ssEJxTC6Po + CIzoGNrWdM/R4r5oOkdRbHd+RPH9lpPwlrtACLz5kYlbmbbIEYkckYjNqZ6oGHXmKLYtOVPcJsOD1lO4 + 1xwAL6mAtCTK4mbO+StSnjQisfCLPfVED2xQLGPqS0ZSXx3tzuAWwIetS+5eF+ZDkGV9sM1axxn/nfPV + ggbbnH+Tn4Mm9GmNiMpXo7ffiJ5+A7o15LcBe+NeQzjD9ZRa/3dJYh/W4ZckHqCY9LKAPE9NsRHdLNCl + MaKLBfbEqiAcS1KpTnC3j6dVIyC1Cke5nv7JlTic+BYHEypwQFGB/fHl2HftDfyuvoZfnAp7JCjeHV6g + 5oWy3bDpZAaZSZzJLDKbzCFzyTziQlzJAuLm+DoLvEf/AYQ/Ozy1dWx4TmMAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHgklEQVRYR72XeXBUVRrFnXHfN5wZcUMd + VxBQZyxLZystUXRqqqbEBQVFI5ABGRAKUZIIE4RIgBCyswohaBJwATQoKiIkIpIFEpJ0ZwMTsieQdDpJ + J53Ome/cd+/rl0DNlP/YVb+87iTd55zvfu+7t89yPH71M/j1z+RsB+Z3/Bz7YT70HM25Ds4bxPkOLhjE + hQ4ucnCxA77me2lGmTDi/HC+kf90ieZS4TIHlwtXaK4UrhKu1gwRrtH8Rvit5lrNUM3vBL6PhqmrDJwT + meneu2hbOSK3luE/wsLMMizIcOGddBcihPAPXQj7oBTzt5Tg7bQSvLW5GPNSizF3U5FizsYizN5QiDfW + H8Gs9Ycxc91h/HtdAWasycd0YdrqfPwrJQ+hybkIic3OFk0GZBWUgXMp7nz0OwjIj0B/P/aVtKired1H + 5AXx9/WjV9h+8IS69hB/P3z+AHy9/eiW513yvKndhymJhyCarCiXWxk4j8kHiGrkcywhIT6rAn6KCRSx + hAJBISH64xJ09QY0fej0BeAVOnx98HT3oaa5C5MTfqQBLqMywHU4n2VX4vKDBORVMCngl2vc55Xopbig + EmoDPqFbpQxg6UdBA509ffD2WOLGQMHxY3gt/gwGuOY0oJIr4aC4MiC/MAaMuI/o5N1aVBkQ4U4RZnKv + Eff5bQMhcQdpgE1sG7hgQYZb1rgVSV9UCceQuKsKCUJ8VqUIVyDus3L8fd19eHLtvRi7ejSeSBmFMckj + 8VjiCDyaMByPxN2Nv626C39deSf+vOIO/Gn57Xgo+jY8+N6teGDJLfjj4mG4f9Ew3Bd5E0YvvJEGeCfw + NtcGpNNVBXR61VgGScrkNJDrTbLoSMCPHXE46FmFH9pX4vu2Fcg5tQz7Ty7Fd61R2Nu8GHuaI/F10wLs + bojAF3VhyKqbhy3u18XADTTAW9c2cGFEemlQXJU+aEA1nFyfkvS53kQcorgnXokfoHj7IPGWxfhGiS/U + 4vORVTsPn52YizT3NIxaoAxwbtgGLgqXe1w0LXEtbJKbjn9qzWglfqiD4nGDkkdjn4h/2/Iu9jRF4qvG + hfjSFn9Lie+omYPU0qmnGeAwuDhsCysQFKewlV5uMxHvkUYbKwZM2Zn8QFuMiC9X4gOSN+qy14fhcxHf + qcU//WkWNpVMxsh3rqcBTsygAU64rPxGpOw+juQvjymSdrEZK+1GHLt6lBaPleQUP8Oa2+JWciVeLeLV + M/Hx8RnYUByCeyKUAY5rjn9l4JK304rtdQ8OGd5mhoB0/ki77Nm67BT/Vidn2U1yNpxV9tmS3BLfVjUd + 64smiYHraID7hG3gUs52lt+suRowRlzubw6Zx+W2M8mzHWXnmjvLHlxzis+yxI9NR2ZVKNYWTjQGuCkF + DcwTAya9Gq8OAxTnoBmTdM9p3e681XZJw3HNTcMZ8a2SPLMyFBmVk7HmyARjgDukbeCyualHxYAWVqWX + K5MLZrSOSRqhxK1uN2vu7HaW/U1sl+Sf2MmnSfKpSK+YjA/LQ5ByZLwxwK2Z5wI1Di+fu/Eo0rNrkKAb + bpVMvtid5Vi5owwxO9xYsd2tph7F7eRmzR33Ocs+UDxUxKfgg4oQpJVNQnLB88bAdU4DV8zZWKjKz43F + OdsNnO00YMTt+1x1u0O8WotXmeQiLsm3iPhm98tILHjWGLjeaeDK2e8Xqq631luuSlg2FSLixsCe5kWD + kus1rz694dIrjfgr2Ox6CamuCUjIH4cR4crADU4DV72x4Yid3E6vtlON7Gg04BS3Gs6s+Ux8ZCfXZRfx + NBFPleSbXBOxsfRFxOc9jeHhQ083wGMUDVjC1l5u9nO1pcpWSgN22c90n0vyDOl2JmfDqeQO8fdLxiMu + 75+4O+xaGrhR4LlQjcOreYZbu7tKGq5MNdzyT11Y9olLnXC4x0dtKw5uu7F34S8xsu3G3IGHl90m2+7v + 8eBS2XajuO3ejD/Itnu/bLv3yrY7SnY+jl6uO0s/PGwohs9XBm5yGhgyY+1hq/Q6vSm7x9DVhyVbj6K9 + y49TnRYnibcXLR29aBV4jdicjyZPDxrbLRqE+jaLulM+5Lgr8MyS72hgmNPANTPWFCgDRtgco1h6T7cf + 7cLizCK0GQNeP1pF3Ag3CxQOT81HozLQa4kLdacs8VptYFyUMnDzAAOvy7GZ6Z3iPEJRmKnbpALvZhRZ + ySneKeI6vWWgRwz0Iiw1Twk3SGJS3+ZT4jRRe9KHozUejLMqMMDAkOkp+ahr7caJli7UCNVyeiU/Cceb + OxWR6YWoaupUVDYKDZ2oaPCiot6L8voOwYv5YsBd1wFXbQdKaz0oPeFBiVBMRLy42jZgN6Eaxa/F7t8b + mpyHqUm5mJKQK0fnQ3J6PagOkK8Kr8T+gEnCyysP4KWYA5i44ntMEF5cnoMXSHQOxkdn4/ml+/EceW8/ + no3ap+CaPyNXCpN/ROzMEU1uxwxvfS8Q+LWLv3R+jeK4JJxahPeugQkIu9nAxiIsL7lFc6sD/h91+B2R + pzH14BPOAxohHBD/C5bu/+H8ouqEf6OGJS4HYYV+sBq/BFoXZ/0XezFgEc/aMbQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC20lEQVQ4T6WTZ0xTYRSGr1vUH0ZxshQF + NGw1EpUYccb4F4kaFUWBaGoQgyyLjChlz4YhQxRMNEpCFIkDgkWWWAEBDUIYYlgilEKh67av597W9dsm + T2/uj/c7zz3nfAz95hBziXnEfGKBkYXEImKxERNiCbGUWGbEhAkvbq8OK/mEsOIOhNzvwPV77QgqasO1 + wo+4mt+KgLwWXLnTDEFOMy5lS+Gf9R5+4ib4Zr7DmYTqeiacwnoAevrT8ehRUPUVWnrRsAZUREZ5F5Rq + HWYIhUqHaaUO59IawYRSVS6s1RnQsEBeZR9U9KLU6DDLhVQsUp92YkrJQj6rxeSMFjKFFt4pDWBCSLno + zTcUVg+goLIfea/7cDTXBYeznHBI7ID9GfbYl7YVe1PssCfRBrviN8Et1ho7bm3AthgrMMFF7SBDvrJa + S7oaPY5kO0GqyOJpmhajQZ4G9yRbSMZFqPoeg5cjQjwfDIFrlCWYoLttYOl7DWFOW89X58NTYjTKU1Er + S8LuBBtDeFiI8sFglA0EwjnSHAzXbU4791Uvsl/0QFzRhYNiR17dg1ffQuq2/6pHW8El0gLON+mAwIJW + qFljwwgFNe1Apj1pc5UTDdpj0XATWZO2ofKTfgEe9vjBUWgGJiC/hTqup26zNCKWRsTCI90edaT955sj + sPP2RkO4T4BHvf540O0DB+4AbknEFd005y9Ie9aJ5LLPhq4n28GdV9/8W307qbtGWcCJ1LnqDjfWgxHk + fOBnraAZ/5pzXGkHP+cJ4se0BmNyNSJKpBidVGNkUoVhGTGhwnFRDZjLtJ6c+t9LEvu4DeNceIrCxCgd + ICyWUliNYTpgSKbGEB3gGSsBcyFFIvGl3b6Y0QSf9Eacp/X0Tm3A2eR6nE6qw6nEOpxMqMWJ+LfwiquB + l0gCTw4KHwstldKF4m/YcmIFsZIwJVYRq4k1xFpiHWFGmBMWhKXxacrQPfoPwPwEfkOlIYXK0NkAAAAA + SUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAHbElEQVRYR8WXeVSUVRjG2zNbNLPNyjSX + Fs0ly7J9OVlWp3M6aWW5lWsuaXqMEkjDlEBFZRO3VNxwLZewrMxEXAEVBIbVhR1EYRhgYBie3ud+3535 + aLP+qTnnx8eA8jzPe9/73juXAPhfsb4u/Qdc9i+5/C/g7/j3PC++4S+uEK40uep3XG2h2e+4xkJzC9ea + XGeB7/l/qKdMKPGATRm/zNychYBNmfhCmLExE9M32PB5jA3+gt96G3zXpWPa2jR8tiYNn65OhU90Kqau + SlFMWZmCyV8n4+PlJzBp+XFMXHYcHy07hglLkjBOGLs4CR9GJWLMogSMWBi/TzRplpVQBq6kuPXVaMEt + X9yNjdiXdk499fsGIm+Iq6ER9cK2w/nqWUdcjXC63HDWN6JWvq+R70srnRgVcZSLf73AKigDVzF5E1ET + +TuGkBAWmw0XxQSKGEJur5AQvDUNNfVukwZUO91wCFXOBthrG5BXVoOR4UdooIXAJVdluJplV+Lyhbjl + nTcp4JJn6Hc5qKe4oBKaBpxCrUrpRtAWr4HqugY46gxxbeBMWTVGhCkDLZsY4JrTgEquhL3iyoD8QBvQ + 4k5iJq81RZUBEa4WYSZ3aHGny2NgeOhhGrjRaqDZ9A0ZssbliPw+VziFiF25CBfCYnNEOBuhO7Pw2rKH + 8MrSnui3uAdejuqOvou64cWIrnghvAueD30Azy68H8/Mvw9PzbsXT87tjMeDO+Gxrzqg9+x78Misdug1 + sx0eCrgbPWa0pYFWAnebaUA6XVXATK8aSyNJmZwGEhyRBlXhOFIVisP2hThUOR8HKuYh/sIcZeDX8kDs + LZuFPWUB+Kl0OnYX++P7Ql/EFvpgbcZ4MXAXDdxkNXCNf0y6V1yV3mtANZw8X5X0CY4IHKW4PUyJH6R4 + pSEedz4IT0v6vedm4WclPsMUn4bYAh/szJ+KNRlj0X26MtDaaqC5n+xx0TTETWGdXHf8q0t6KPGjVRQP + bZI87nww9klyGthTGoAfS2bgB4/4p0p8e94URKeP/oMB7sVrfdeyAl5xChvpZZuJeJ00Wj8xoMvO5Acr + QkR8rhJXZZfkNPBTiVn2Il98J+I7TPFvz0zCqrSR6Pb5nTRwcxMDnHCxSSWI2n0ai344pYjcxWbM8TRi + v8XdL9qENHCxJnzQXxm4ReCIVwau+2xNqmfdvUOG20zjFtFunrLvN8vO5L+Ya86y0wCTs+GMsk+W5BOx + 9fQEbM4dh+Upw8TAHTRwq9XA9ZztLL9eczVgtLjsbw6ZlyTxAVX2OdhvKTvXXJed6b1rTvFJhvipcdiY + OwZLkwdrA7c1MeAjBnR6NV4tBijOQdM38kFPt3vELVttlzTcE3M6expOi2+S5BtzxmBDzkgsOTFIG7jd + auCGqdEnxYAprEovTyYX9GjtG9lVibPbWXYl3qTbfcRAJ2yT5N94ko+V5KMRkz0S67OGI+rEQG2gjcCj + XY3DFlNXnkTM/jyEmw23UCbfgh1ZmL89EyHbMzBvW4ZquJcizcYLMxrvuQXe6cf0fYI7ok9QBzwayMZr + j4e/bCeN1xY9v2iLHrL9uANMA3dYDbScsjJZlZ8Hi3W2azjbKazL7tnnRd4hwzXvE9TRbDidfBTWSfK1 + mcOwOmMoIo69pQ3caTVw4+QVyarrjfWWpxKWQ4WIuDawp2ymKrt3wpkNd9ZoOG473XAxOVr8fay2DUG0 + bRDCk/qjq58ycJfVQKuPvz7hSe5Jr45TEznRaMAqziGzM/8Tc80nYoskZ+mVuJl8jYhHS/JVtsFYmf4e + whLfRBe/Nn80wGsUDRjCxlmuz3N1pMpRSgOesv/ZPpfkvWe3V8nZcCq5RXxF2kCEJr6BB3xvp4G2Au+G + ahzexDvc0t250nCZquHmfmvDnG9s6obDMz5wc6p34knjPR0ijRfCxuskE68jHpPG660bTyZeL5l4PeXY + 7S4nn248lr6Lbxt0maYM3G010HrC0uNG6c30uux2TU0DZm86icoaFy5UG5wnjnqcq6pHucCn/+oklNrr + UFJpUCwUVRgUXnAiLc+OAbN/pYF2VgM3T1hyTBnQwvoaxdLba12oFGZtTEGFNuBwoVzEtXCZQGG/6CSU + KAP1hrhQeMEQLzAN9A9UBto3MTBers1MbxXnFYrCTF0hFfhyQ4qRnOLVIm6mNwzUiYF6+EYnKuFiSUyK + KpxKnCYKzjtxkgaMCjQx0HpcVBIKy2uRf64GecJZub2SM8JpuceRgJhk5JZWK3JKhOJqZBc7kF3kQFZR + leDANDGQUVgFW0EV0gvsSM+3I01IJSKeetZjwNOEahSPWBC3d8yiRIyOTMCo8AS5Oh+V2+thdYH8QHh/ + wSEME4bOP4ghIQcxeN4BDBLemxuPd0lwPAYG78c7QXF4m3wVh7cC9ym45gPkSWHyuv+OeNHkcczwxucC + gfd0/pCHBOc04bgknFqEe1fDBITdrGFjEZaX3GPSwQL/HXX40Y23MfXiN5wHNEI4IP4Olu5iWD8vWuHv + qGGIy0XY+jGZ1fgvMHVxyW9ao4m1KiY9EAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACsklEQVQ4T02TWU9TARCF77PxQXFXojFG + 46/xUVCjAoKAgqJEIiAQQJCdskdQgiKbIJuA8cFE2SkttCwtAr5oCJtFaKF0g+OZS4ve5Mvcl5kz95y5 + SnK96Wty4wySGmbwrMGMxDoz4t+Z8LR2CnFvp/CkZhKxNRN4VG1EzGsjHr4yILpyDPdfjiFM0zekpLDZ + 5d6FU3DtwuHaQbd+Ua3bxO6lU7sAu9ODTcc/Iip0UJKoKs12xw62VDwo6pqHbdsDq92DjW03Nuxu5Ld/ + x/qWG3+ETTfWNl24WzYKJZEDevRLKOn5geLueRR3zakDNB9nUdA5i/wOwua8thnktpmR/cGk8qLFhNBS + LZSEOpO67iYVRVUo7JyDVVX2YJ3qopzTOoM11jVRt7lgIXeKR6DE1+4NsHF1dW02ygBZ29csK2e3mtW1 + LXy3sP62uhCs4YDYav2XuDdet6t9bhvwoMqAqMpxuq1HZIUe4WU69ZtDS7SqcohmGIEZnwcUPgfJEXKc + nCCnyGniT86Sc+Q8uUAukkvkshd/JaZK1/dYlNWMjVQeRzQzvkciGVN4+SjC/lMOLhpGUOEQbpGraZ90 + ijRLvhKfL9+24V/7nki1srYM/FR98SH+3MgbgCLK0qzm6zUsizFZbF6z6PaqzYn0pgmsWJ1Y2XBi2cv1 + 3H4oMTzNjpEFxsSMW30ZTyOzeQqZ76eQ0TSJ5yS9cQJpjUakNhiQUm9Ect04ruX0QYmm07K25CuKQmbz + 9L7yKuMS5dQGo1fdgaV1J3EgMJsDovhjyHeqGbNJGmWANK7KyqzLRAYsS6N3wCIHBGT1QuEf9S2inG4z + 57DSPbdDikYQRLdv0+mbBYO4mT9Iw/q5cj8CubYoB2T34kpCu5ZRKgfIIXKY+BG5iaPkGPHdxkniu48z + RG6EVfH7C+bU6AEQfWPpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGeklEQVRYR8VX93MUdRxFRZogxd77v+NP + IoioNEGaUqUlhA4hhBgSegs9CQgiCjo4owaCIJBeLhWVQCAhgVzuLlfz8b1vud1LYPQHB3fm3d7tXfa9 + 96mbPiLyv+K+Fx8m3McjBo8+AI/9A/o+AI/3AK/x9+SKHyTgF/2A/sAAYKDBIIMnDAYbDDF40mAoMMxg + ODDC4CmDpw14jX9HLiWCL31X5Nf8svJYnaw4WivLgWX5tZKS55GluR5JBpKOeGTJ4WpZfKhKFh2skoUH + KmXB/kqZv69cYW5OuczZUyazd5fKrN0l8sWuEvl8V7HM3FEk04Fp24tk6rar8tnWKzIx41whOCmappWA + fiR3H90uxPAS6+6Wgqo76mw/Rwl8ICLRbgkDJy81qXOIiHRLMBKTYLhbuvA+gPctHUGZvPkyk/8MwJSo + 8Pen8wRSA9xHEwFZp+slQjKAJJoo5hAB649XSSAcM4iKPxgTH9AZjIq3KyrXWwPyafbvFPA8wDQoAQMY + dkWOFyKGT45TkQjOm75vkDDJAeXQCAgCXcplTFK/dgT4Q1HxhTS5FfBnq18mZSkBLyQIYM4pQDlXxA65 + EoALVoAlDxLGeZchVQJA7AcxnfsseTASFzBx0yUKeBFgwSsBA1PyapDjNtnyQyNwTTafaZRsIOt0A4jr + ZdN3dZIJZJyqk43f1kr6yRrZcNIjad94JPV4NVAl60C+9lilrDlWIavzK2RVfrmszCuXFbllsjy3VGHZ + kRIZn9lbwKAUVLqKgHGvCssCTul8M8TZkAdN3hn2LuQ6AMd+nDdAEF37EAUbdm9XRDqAe4GIXEMExn91 + kQJeShCQnFvtkKvQOwJUweGcfaYhoeA0OUKvyJlzFOGJah32OHFUOkB8LxCVu34IaPHLuAwl4OUEAUno + cXBqckNsnduKZxfQOUlV0am80712zJyzCxKcK/KIIicaIeCTjN96C1hyiBFwyEms3aPNQB6CWxZhPPSK + 3Dg3IadzFiHJGfI4uRHQ7g9Lw20I2KgEJHRB/wU5JT8twpTTE65CvtxXIfMx3ebllMmcvcCeUjXl1ITb + 6Zpw25wJN2XLFTVk2OdsNVb7BGB85kUZh7zT+ccbL8jo1WcLwMmRrAYRJyGXA+c/Z72d7z1nu53vPWc7 + J9qzBs8BHDAEHRKsdhYcwbDzGu9DPppXB9/0XEYWdim5F5N7ObkXlHtJuReVNWTf8150H19GNgL8I/7Q + uv8vnNM18YoBr/M+8QjwZcCcPUUF85Dzucg3wZzPcuV8xo5imb4dQL6nbXVyPgU5n5x9WSYh7xOR9wkY + Muxzd84/AsamF8rYDYUyJq1QRq788SI4aULVAN0PmZ9TgcpnxcdUB6hhA9hBQ+w4W6+GjRqzpvU6Ue26 + 6qOq4tNPVOqKD4Sl3ReRNl9Y7lh0oguaffLB+vPsAkZDtSEFDJ2Lamev6ynntJmzWJwho3tcw04422rL + DpeqdrPErd6wtHSGpMUbktsdIam92SmjU5WANwCmQRXfULYa+107doaMdUywx/WE044Tep2u4TjlcAnI + I8otoQQAJCdqIGBU6jkKeBNgMSoBw2Yj59Z53L2dcGbIcNHo6Wacg9Q95drgPOVQMYghAKStcE3nLSC+ + RdwLieeGV95fpwS85RYwnI9Ru842OpsOSyXthEeNVjq3W27NUb3lVuWVYcuVyvIj3HClIC6RpSBferBY + kg8WSdKBIlmy/6osJnKuyCJg4V7isozSAt5OEMBqZ/h1vulaF5r7YYLkuth0wemwu4oNIU8GsQ473Yfj + zpuBm0B1EyKwtqCXgBEzd0KACrsVoMPutQDpajhnzm3I240AEreZnCftL4oXHEEBJFcC7gal6rpXRq75 + lQLeSRSAPqcAS2ydO2s1grCXOzk3ri1xK0Bihv22EqDdNwM372ryG0bAe2t7Cxg+A4/Nze1BaboTkOsG + f+EBko9QxB94TwHc543YaA0tPmw24JZG/a1OqUOPUwArveaGBouOYa9u6lTkFRSgIxBvQ86BwZMzC3/m + hJu65SomnJ5u8a2WZbYap5t7wqVzwl2QD82EG5N2Xg0Z9vlotNqodQWo+AIZiZwz7CQm3k06dQGc8adi + 7gKORO4Bzuh/u9XsbH8VeM3gdYDO2OMEW41gwTHkBL/n/bnQaF4ddiFRCEFlbnBk3g8M4f3A3D4I/J73 + JJ/ahu6DFx4W8N+x9Pkb5kBD0QbVNbIAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACUElEQVQ4T6WT+0uTcRTG35xOo3v/RhGG + ZVT2T/RjRFiW5RotLCkKocjsYqsoogtGEF0Rb7NaYZtdLKeui5pztzQvOd19727Ogqdzvnu30n6KDjy8 + 8LLn85ydc17pUptbosohqUi5ivIUqRXlKyogLVTE79kn5ehbHR0EQkZ6gxsXWpw43+zA2UY7ahuGcOrR + IE48GED1/X4cu/sZh292dZKXoZKKTf9aVbetIO8iBuRmAFsOmVFSacLmg+3YeOAFNmifY73GCH80BW9k + BlOhJCaDCdhGQ6i81cOAJXMA8dRPxJI/IJPC8VmEYin45Rlhng6nzRP+OL4QQHfdkgXkXTS4BGCTLp1c + rDVineYZivY9QWG5AWvKWrB6V5Mwj/ri6B8JQnvtPQOWCgAPjEtOpJODlByQlbZFcjJrHvHG0DccgOZK + JwOWMUDN0+Yq3m9EUcVTrN3bhsI9rZTcjFWljXPMw54oPrn9KL/85jeAV8UVjM3OS07/5zEyf5sm81QU + bo+MDy4fyvSvGbCcAfm1DTYBCPwxbY8wJ8gcy5pdkzKc3yPodfpQWveKASsEoObxoADMn7ZIpra/crJi + to9H0O3wYcc5cxZQcPLhgAD8Zc60nTFPRGAbC8NCgO1nTAxYKQDV9/oEwD4eFkfCe+ZV8bR5YFZSL5l6 + SGzuGvJi2+n2bAfqI/Xd5qN3PqKq3iouTHfDIvZccfUdTfstdtPAdtZ1UNsmSn4pzFuPN/G3sJgBCxhC + 4rvmF3xdLD4SXhOLp81pLG6bn/xblUSd/4cg/QLeqZmQmHD9oQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAGAUlEQVRYR8VX93NUVRgFpWOvfwEoioIi + KJb/wR8ElN5DSYDIMDiIhd7BQVR07CgBEkgCKj0gLRBqQnpCCiRkWzbZ3ewmoczxO/fe9/atyQYdR7gz + J5N58/LOOV+7XzoBuKdo9+HdhP4RPZ07wH3/EPffAXyH39PHIYAP+UIXQVeDbg50d6CHAz0Nehn0duAB + gwcN+DvfJYcWYQQo8vWZJUc27CnH+t1lWJdZhrUZpViTXoLVglW7irFiZxGWpxViWWohlm7Px5Jt+ViU + chmfpOTh419zsfCXXHy45SIW/HwRH/x4AfO/P4d5353D3G/P4v1vcjDn6xwkbjp+TLgogpGIEdCF5P/n + qQ+2IOmrbBIyGox2jICudM7TfOM2Iq23EGm5hbCgSRBqvolg5CYCgsbwDTQ03YBfwI/WB1vhDbTA09gM + d0Mz6gh/BNfrw6jxRXDNF8ZVbxMuV/qR+MUpEj4sYBpiBaxzCHhrbhbeTM7CG8mH8fqcQxg66yBem7Uf + Q5L2YUjiXgye8QcGTfsdLyf8hpem7sHAKZl4cVI6XEoAySOoIRR5GNUiIK+iHjM3nSThI4I2Arox5zyR + 1tvKebhZOw85nSv3reK+Fb5QC7wSAU9AnIt7lxDTea0Q14pzm9zThCpBboUf0z/vQMCajBIlICzhV85n + H9TOkw6I6/0YPHOfON/rcL4bAyZnGnIr7BQQtsNO51XuJlS6Q7h0pR4JG4+T8FFBWwGsdiXA5NzOu7i2 + 8x5qVXn3BUzexb0z7HRP59dM2KuFuFIEVLhCuFjuw9TPjrUrgC3Rna3G0yTEQ8X9q0mS80RxPXMvXlE5 + F9fifOAU7fyFSRnoP2EXnh+/E/3GpaHf2FRTdNo5Q0/nJL9SF8IFETB5gxLwmIBzJlbASulzHst9IKKd + N6qKF+eSc5+413lvURXPvF83eVfOhZyhZ84t8gohL68L4ny5F5PW/xlfwIo0I0DCbjkfNF3yLTmPVnqG + OE83zuk6zVS8DrtddBa5KyjkIuB6AOfKvJi49igJHxe0EdBjWWqBEqCcC6xeZ959Atu5VfESgVpxr53H + kmv3QQl9EGVCXlYrAkq9GL/mSHwBS3cYAeGb2nmCOE/YgwGSc+V8ojifuAvPKeepgh14ZvQO9B29HX1G + paDPyK0Ocuad5EGUCkpEQE6pB+NWKwFPCCigc4wAznYe3e/S66x4umferUknsCYd2033uuRdnFd7Qqrl + rKJzkpfUNCoBY1dlxRXQkxcLDwfNQMn5AJPz/uKcla5znopn6XzMdvQdtU1cp6iw64qPkrPoSoWYKK4R + XGvEmWI3Rq88FF/Ap1u1AF3xDucm7+x1a9JZ7UbnrHjCCjvJlXvjvFhQpAR4MGqFEvCkoI2AXrxSeRS5 + ERAtOmvYSNgpoJ2KvyJgxdvktYb8aiMKrzbgtERg5PKD8QV8JPe5EmBuN8JJrpybfo/OeCk64/zvRWc5 + LxQBBdUNyC5y471lSsBTAi45tgDezb0XbrmkBLDdrKKznTuGDcnVsDEzXg8a7ZztZpEz7xZ5vuBUoRvv + Lj0QX8CCny4oAQy7XfFCbM94Cb9y7iRnrzP0JLedB5Rzhr5AQk/y/KoGnCxwY8QSJeBpQVsBXKN43CLA + pdxbzpn36LCxyCvVoDEVL8NG511XPAUUiACSXxbyvCo/ThS4MHzJvvgC5v9wXgswoVfkAueM13nXFU/E + VrxxrkJvnFf7RYAfubINncivw7DFHQiYJ0skr1qrdfgRK4TKhXwkT5aKXNlseLfzdjsv4Iw/W+ZBTolX + 4MEZASs+u8gleXdJ6F3KPQW8s0gJYBfECFCTMHnzyUPcXpO/OYPZm09j1pfZssNlY4asUdxkpm08oe7z + KXKl8labsO6omu3jVmdhzKrDasiwz9lqrHYW3AjB8MX7lfNhQv72gvSjwmXthLYALiR8wD2fu/tDAr5E + cH2ywEWC4HVK8FIhONks0B3BSicYbgt8zm/yfwuati8jHorgQ6aDYjoCh8idwBC3B/49ecgXI+C/HH7s + 3yB6KOBeot2Hdw/o9Bc28Nzhq1aiogAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACVklEQVQ4T6WT+0uTcRTG35xOo3v/RhGG + ZXT7J/oxIizLco0WlhSFUFR2sVUU0QUjiK6It1mtWJtdLKeui5pztzQvubn7/WLG0znfvVtkP0UHHl54 + 2fN5zs45r3SpwyVRFZAUpEJZRbKUsopllZDmy+L37JMKtO32TgIhJ63OhQttDpxvteNssw31TcM4+WgI + xx8Mou7+AI7e/YxDN7u7yMtQScGmf63a2xaQdwEDCnOAZOYn4ulZbD5owqYaIzYeMGD9/hdYp36OtSo9 + PKEUpoJJWMdCqLnVy4BFfwASmVnEUz8QJYUTMwjFM/BH0/BG0pgOZ82T/gS+EEBz3ZwHFF3UOQVgg8aQ + FyeXq/VYo3qGsr1PUFqlw6rKNqzc2YKB0SDU194zYLEA8MC4oslscpCSA9GMSPaI5JRIHvMlMOqNo38k + ANWVLgYsYYCSp82VM5fv06Os+ilW7+lA6e52Sm7FiopmYR5xx/DJ5UfV5Te/AbwqrmB8Zk5y9j+PU/K3 + aTJ7YnC5o/jg9KFS+5oBSxlQXN9kFYBATDbTtN3CnCRzPG92TkXh+B5Bn8OHioZXDFgmAKceDwnA3GmL + ZGr7KyfLZttEBD12H7afM+UBJSceDgrAX+Zc2znzZATW8TDMBNh2xsiA5QJQd69fAGwTYXEkvGdeFU+b + B2Yh9ZGpl8Tm7mEvtp425DtQHm7sMR258xG1jRZxYZobZrHn6qvvaNpvsYsGtqOhk9o2UvJLYd5yrIW/ + hYUMmMcQEt81v+DrYvGR8JpYPG1OY3Hb/OTfKiTq/D8E6RdCQpcvSGG3kAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAF8klEQVRYR8WX+VPUdRzGtbztPv+CSs0S + u0wr/4Z+SC0vvO8DM8fG7PC+tTErc7q1PFDxKjUQTFMUEUTkWBYEFBB22YU9WA5tnt7P51h2g8WaJv3O + vJD5zrLP87zf789hJwB3lXZf3kn0j9ancwfc8w+59zbwM/w+/UQY4Et+oIvQ1dAtgu4R9Iigp6GXoXcE + 9xnuN/B3fpYa2oQxoMQ3HnSkbTpcjI2HnNhw0In1B4qwLsmBtcKa/YVYta8AK/fmY0ViPpbvvoJlu65g + yc5cfLzzMj76KQeLd+Tgg+3ZWPRjNt7/PgsLv83Egm8yMf/rC3h3WwYSvsrArC2nT4kWTbASUQa6UPz/ + fDz+Jsz+Mp2CrAarHWWgK5PzCTXfQrD5TwSb5N/GWwg03oSfhG6iXqhraIE3KASaUSu45Ytd/ma46ptQ + U9+I6rpG3PA2otIbQoWnAddrBXcDcsu8mPX5WQo+KLAN0QY2GAMNNCDiASLCQ+enYeh7aXhjfipen5eK + 1xJOYEhCCgbPTcarc47jlVnH8PKMo3hx+i94YeoRxE05jAGTDop4SMRDuOYOotwVRG6pFzO3nKHgQ0Ib + A93Ycz7BsIGbOj2TN5AW1DG54GF6Sa3S+wRJr5ILNnmFiDO9NtCAy6UeTP+sAwPrDji0ASss5WfpfcpA + iyRPwZC5Ovmg2Tb5rzr5tCMYOPWQSl4pyZW4O4RyKT3Tl9YEkHPVg6mbT1PwYaGtAU67MqD6bsVblDjx + BpvhIYEmSS7pJXmNYJNXse8UN31XyYUyGqgO4lKJB1M+PdWuAS6J7lxqfOzAMTnRyZMxeI703CafeRQv + mZ4PnHIIcZL8+YkH0H9CEp4dtw994xNV2ZW4pL8qBrJLajFpkzLwiMB9JtrAalnnyoARVj03fWfPCXuu + +s6Jr9PpmbxK+q5Lryc+WjyAEiGruBYTN/4e28CqvdqASi5Dp5dbsyw3MSAltz2PTD5gsk7+3IT9Knk/ + Jo/oO5NTvPiGHxfFwIT1Jyn4qNDGQI8ViXnaAHsuqa2B8MRz2tl3Sc+e674zOXvOodPJrXipSV4i4s4q + PzLFwLh1abENLN+jDYSXmyn7INNzPe2Hdc9V8iT0H6973i9+L/qO3YM+Y3bj6dG78NTInZLeL+IBOJUB + HzKdbsSvVQYeE2igc5QB7u18Ite66rtPdjmT3KaP6rmaeJ28rIbpg7gqFaB4cZUYkPRFlX5cKHJj7JrU + mAZ68mDhw+Qsvd5mW8XjonqehH4meZ+xiXhmtCQfJclHSXKKq75rcYeIOyp9yBADo1enxDbwyc/GAMVF + mOhdrrE1ucDklTa50GbiI5I7jXhhBQ24MGqVMvC40MZALx6pfJi8Vh0wduhaD5gqs9GEl5sQLrsRV0Mn + FDF9BRED1+uR4XBj5Mrk2AY+lPNcGbBr3ZRei4dU33nA2L7b5GVMHi67FfdJ30VYKBBxct7hwjsrlIEn + BF5ywgZ4NvdevP2SMhAlLulVcjt0ApNz6HTZzcDZ0tvkLL1KLgYq6pEvBs4V1uDt5b/FNrDohyxlQIkL + 1bLTRU28Ebf7O5O3rnX2XYtz4pW4CFO84JoYENILajBimTLwpNDWAK9R2oDp+d/FOXTmbC9zibjpO6ed + aHFfeOhYdibPv1aHPIEGhi87FtvAwu8uKgOq7Epcn+2V4XPdrHVbepOeyVXf1cT7jbg2kEfK63HFVGDY + 0g4MLJBLJO9tLB2h+zz5w7zyOrlOEa9cKrxyrnvV0ZotWysPGJLprMUF2em41hUycOcLXarv50T4LMmv + xltLlAGugigDaiect/VMCm+v87adx9yt5zDni3S5w6VjhlyjeJOZtvkPdZ5PliOVp9r4DSfV3h6/NhVj + 1pxQmwzXOZcap50DN0IYvvS4Sj5MxN9clHRStOydMGyAFxK+4D2fd/cHBH6I8Ppk4UWC8DglPFQIdzYL + 0xFOOmG5LXzP7+T/LRg6fBjxoQm+ZDtopiO4idwOlrg9+PfUoV6Ugf/y8Mv+Da0PDdxN2n1550CnvwD/ + neaZ8yLFlwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACTUlEQVQ4T6WT6UtUYRTGb46ORnt/RBBB + EERR0T/RxyhJkiIppiwpCqGobLGpKKIFI4g2GbLUKEJnpsVy1GlxG2dLc8ll9rnemXG0eDrneO9I9il6 + 4eHC5T6/57znnKtcaQwqdPJIJlK+rgJdZl2FuopIC3Xxe/YpedZ6n5NAMGRtCOLScz8uPvPh/FMvqmx9 + OP2kFycfdaPyYReO3/+KI7dbW8jLUMXEpn89FXfdIO8iBuQbgHT2F7SpnyI1PYOth53YUm7HZksTNh54 + jfVlL7FubyM8g3GU32lnwJI/AKksmTMzUEmJ1DTiWhYRdQqh5BQmEhmMxtIYiaTQQwDLTVcOUHC5ISAA + wyzJhxzYdLAZGyT5FSW/wNrSeqwpqUPXQAz7b3xkwFIBcMP4cNmcHKPkqJqV5HFJzkjyYDiFgZCGzv4o + yq61MGAZA8zcbT6GOTKZRZjMs3eeS15dbMOqnbX4Eoxgz9V3cwAeFZ+YNj0vefbOQ5T8fUJD//gkgmMq + PgXC2G19y4DlDCissnkEEKVkMcczGBNzmsxazhwYVeH/kUSHP4xd1W8YsEIAZ2p7BTC/25JMd/7GybrZ + O5xEmy+M4guOHKDo1ONuAfxlNso2zCNJeIYScBFgxzk7A1YKoPJBpwC8wwlZEp4zj4q7zQ1zkzrI1E5i + c2tfCNvPNuUqMB+taXMcu/cZFTVu2TDLLZfMed/1D9Tt9yilhpVUO6lsOyU3i3nbiTr+FxYzYAFDSLzX + /IK3i8VLwmNicbc5jcVl85O/NSlU+X8Iym/ruZqAQL2R5gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAF3ElEQVRYR8VX93NUVRgFpWOvf4EKNsSG + Cvo3+IOAAiH0GkpgGBzEQu/gICoydlRa6IggVSAEQighddMI6ZtNNtndlE1g5vid79338pbNBh1HuDMn + m3mzeeec73z3fjedANxVtPvwTsL60bY6d4B7/iHuvQ34Hb7PWi4BfMgvdBF0NejmQncXerjQ06CXQW8X + 7jO434C/87vksEQYAUq+dq/nxLr9BVi7Lx9r9uZj9Z48rNrtwUrBil25WLYzB0uTsrFkRzYWb8vEoq2Z + WLAlA59uuYpPfk3H/F/S8dHmy5j382V8+OMlzP0+DXO+S8Psby9g1qZUzPwmFQkbTp8SLopgJSIEdCH5 + /7lqg2FM+zqFhKwGqx0hoCudczWGb6Kh+SZCzTcQbLIQENQ3tqKuoRV+QW2oBTXBFvjkpdWBMLz1YVTV + NaNSUOFvRllto6LE14jrRHUDrhbVIuHLsyR8UMAYIgWsMQIawjdUQFAEkDggxDb5O7NP4G0XBs06hoEz + j+GtGUfwpuCNaYfxesIhvDb1D7w6+Xe8PPEAXpqwD9e8IaQX+jF1QzIJHxJECejGzFUAnav7ViGn8xtC + 3gJ/SNzTucBH97bzett5E8oFZTVNKKkx7sV5seBaVQiXC2sx+YsOBKza41EBdukDKkCcC5yya+mtsg9M + FOczxfX0Ixgw3e38oOO83/i9eHHsHhSKgEuFNZi4/jQJHxZEC2C3cym5XXY3uXFdHWhRAZbzJnVeUSvO + JfNSt3OvOJfSF8mnCiiowYTPT7UrgFuiO7cal91w9dpwLH2LCmDDDUo8bjk3mQ+QzAfQ+ZSDVuaTDqC/ + y/kLo3fhuVFJKKgM4qIIGLdOBTwi4DkTKWC57HMuJTfOo9xL5k7HG+flknnZrZmL66IqyznJ8yuCSMv3 + Yezav2ILWJbUJsDabpbzttKTXIhN01mZ07lkPml/RObP0/nonegbvwN9Rm5HfnkQF0TAmNUnSfioIEpA + jyU7slRAVO4Cm9za6+Kc3c7cxX2pOLfcNzru6bywMqTO84Q8rzyAC3k+jFp1IraAxdstATa5CnA5Z9Mx + c3e3vyLd3n/CfvQbZzIfYzl/Vpz3jduOZ+K24enh2+ApCyBVBMSvVAGPCSigc4QAnu0qgMQC9ynnVedW + 7uXa8eLczl1gdTxzF+cm9zy6F3jEfa4RMHLF8ZgCenKwcLHshJIHmq3cTen1oDHk2u3qfLfjvG98EvrE + Se50PmIrnhouGLYFOWX1OO+pxojlR2ML+Ow3W0BY3UeSNxtyOeOFXHM3HV/Mve44l9xN19M5S58r5Dml + FODF8GUq4HFBlIBeHKlcPnPQ2LnrdjPkdK6ll4azDhseNEaAEociyp5DCHl2aR3O5VZj2NIjsQV8LPOc + K7LjremmudvkPtu5ZO4mJ6TjPQKSq3P5zBYBWSX1SMn14oMlKuAJAS85jgDO5t7zN1+xBOhBE9bMdcDc + Qu4eMCRnw2nTiWsi13FvlZ7kKiDHi/cX/xlbwLyfLqmAqI7nXlfytjOexG2525m7Si/EWvqSOmRdt0AB + QxepgCcF0QJ4jeJi6Vl2e8A4x6wpvQ4YktO5EOdXiHMnd5bdJhfn14k6ZAqSs70YsuhQbAFzf7ioAioN + Od2Xcra7nOteFxRWseziXogtcpO745xlt4gzi+uQYQQMXtiBgDlyieS9Lcdkpn8syCj2I+OaH+lFflyR + axUvFhytnG5pBT4ZMjV6zqfKPudePy/dzo4/JyVn2c8KcbJ8nsmqwnsLVAB3QYQAPQkTNyYf5e01cdN5 + zNh4DtO/SpE7XAqmyDWKN5lJ68/oPB8vI5VTbfSak3q2x688jrgVx/SQ4T7nVmO3s+GGCoYsPKzOBwv5 + u/N2nxQu+07oCOCFhA94z+fd/QEBv0Tw+mSDFwmC45TgUCF4stmgO4KdTrDcNvic7+T/FjTtDCMuiuBD + xkExHYGHyO3AErcH/j15yBch4L8svuzfoG1RwN1Euw/vHNDpb/T43xsa0g69AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACSUlEQVQ4T6WT6UtUYRTGb46ORnv/RBFR + hBRB/RV9jJisrFAkK5KiEIrKSpuKIlowgmgfJlMjAh1tsRx1WtQcZ1NzydGZcZY7uxZP57zz3hvWp+jA + w4XLfX7P4ZxzlcvNPoUqj2Qg5UsVSBmlCqWKSAul+D37lDxzo7udQNBkbvLh4nMPahvcOG91ocYyiNOP + B3DyYT+qH/Th+L0vOHKrs4O8DFUMbPrXqrrjAHkXMSBfA6SyP5HI/BBSU3OIJmcRScwiFM8iEMtgKpLG + ZDgF52gEh293M2DJPEAyS+b0HFRSzpxFSM0I83Q0Z54IJfGVAJU37Dqg4FKTVwC2HrJhy8FWbD7Qgk0V + r1Bc9hIb9jeTOQO/NI8Gk+gbCaPi+gcGLBUAHhiX1naYkmdU2bZITuvmkUACvcMzKL/awYBlDDDytLk4 + eaOe/ALrShuxdncD1uy0YpXpqTAP++P47Ath35W3vwG8Kq4wDWx+cq7tMUr+Nk3mqTh8fhUfvUHsMb9h + wHIGFNZYnAJQXJ5LXr9XJpdYsdpk0c3eSRWe7zH0eIIoqXvNgBUCcObJgAD8OW2RTG0PcbI0u8Zj6HIH + YbrQpgOKTj3qF4C/zFrbmnkiBudYFHYC7DhnY8BKAai+3ysArvGoOBLeM6+Kp80Dc5B6yNRNYnPnYADb + z7boHRiP1ne1Hbv7CVX1DnFhlTftYs9l197TtN+hlAa2q66d2rZRcqswbzvxjP+FxQxYwBAS3zW/4Oti + 8ZHwmlg8bU5jcdv85G8NCnX+H4LyC4acmZ3+p7ziAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFwklEQVRYR8WX53OUZRTFQenY61+gjoID + CGJB/wc/CKiAoddQAsPgIBZ6BwdRkbGjUhJIaNIDghAIgRBCQjaV9LIt2RQgfDjec5/n3d03yQYdR3hn + fsC8s7vnnHvvU+gC4L7S4ct7ifkj8nTthAf+IQ/eBX6Gv2eeKAN8yQ90E7pbekTRM4peUfS29LH0jeIh + y8MW/pufpYYxYQ2o+Ia9npMb9xdiw74CrN9bgHUp+Vib7MEaYfWePKzcfR0rknKxPDEXy3Zew9Id17B4 + ezY+234Vn/6WhUW/ZuHjbZlY+EsmPvrpMhb8kIH532dg3ncXMXdrOuZ8m474zWdOixZNsBIuA90o/n8+ + /tAtzPwmjYKsBqvtMtCdyfmEWu6goaVVqW9uRVAINLXC33Qb/sbb8IVuwys/Vld/C7VCTfAWqoMtqArc + RJW/BZVCha8ZZcTbhNK6JtwQrhQHEP/VOQo+KrANbgPrrYEGMVCv4ncQFOGACAdEOCze4IjfRI1QTeEA + hW+GxcuFUm+zCpOS2kYx4MeMzWcp+JjQzkAP9twYiCRXA42tKuwTA15rwIgzPcVNchX2R8Sd5CW1TSiu + aURmoR/TvuzEwNoUjxpgekfcT6LKruKCJrfiTK3JhXIRLrPiFFZqmlAkBi6LgSmbzlDwcaG9AU47Hwob + cSm7CNOAll2Tm9SkWsquySksyU3PI8lvSNmLrXhRdUgM+DD5i9MdGuCS6Mml5hh4e97JKFLx1twTGDbn + BN6cfRyvzzqK1+KPYOiMQxgy7Q8MnnoAAyfvx8BJe0Xc9N0kF2GhsLoRBWLgkhiYuFENPCFwn3EbWCXr + nI8zdNrzBie9Sa09txNvym56rsll4k1yI86+U7xQxAuqQsgo9GLChj9jG1iZZAz4ZejCyRNSMSxBks+J + Sh5/GEOmM/lBDJqyP1z2UhFm2TnxbcXzhYsFXoxfd4qCTwrtDPRanphjDZjUTnKdePac6XW5RSXnxFOc + ZdfSm7Kb0lvxyhA8FSGk53sxdu3J2AaW7TIGKByd/A0mn2l7rskP4BVJPmDSPgyYmIKXxyej37jdeCku + ySS36Z3knsoGhQbi1qiBpwQa6OoywL3dMcClFknOnpvklT6ZeCL9LmO/bWqn7EUse5UjboQ9FQ3IE9I9 + Xny4OjWmgd48WPhwlxvG5LOPmeTS81enH8LgaQclOSdekk9IQf8JTL5HhSPJQ2LAlF1LLwYofr2cBuow + etXx2AY+/90YMMllf+c6d00705uJD0+7oMmtOJM7faewEa9XLuTVYdRKNfC00M5AHx6pfLjLceKHhte6 + ST6IydlzSd5fkvcbuxsvxiXihTG78PzoHXhu1A4RNmVXYcWI55bV4/z1Wnyw4lhsA5/Iea4GXMlNarPF + 2pMtOrkuNbPRmJ5z4iPJc614TllQDby/XA08I/CSEzbAs7nvom1X1AAHjrDsFVJ2s8lETrZil7jtueAW + twYoXmpIEwPvLTsa28DCny+rAZ12Te70nMnFQDi52d+djcYMXKT0eSJMAznlQUlO8SCuCedyazByqRp4 + VmhvgNcoPqbsbcTtcnMNHEvfduCcngtGvF7Fs62BEUsPxzaw4MdLxoCuczPtTund4oKW3a7z8NC1FTfJ + s28EcVX+Pptbi+FLOjEwXy6RvLeZLwWQXSJfLAkgS24yWUV+ZBI50y8pPmQU+HAx36c7XHp+HS7IOldk + uZ3Pq0WacE5EKazk1ODdxWqAq8BlQHfChC1nj/P2mrD1AmZvOY9ZX6fJHS4N0+UaxZvM1E1/6Xk+SY5U + nmrj1p/SvT1uTSrGrD6hmwzXOZcap50DN1IYseSIJh8u4u8sTD4lWs6dMGyAFxK+4D2fd/dHBH6I8Prk + wIsE4XFKeKgQ7mwOTEc46YTlduB7/ib/b8HQ4cOID03wJdtBM53BTeRusMQdwe9Th3ouA//l4Y/9GyIP + DdxPOnx570CXvwHXvem+GS5uuAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACWUlEQVQ4T6WTZ09TcRTGrxQKxu2ncMZB + nMEv4UtjEFI1gmgVJRoNiUbFgVWjMY5gTIwzlWE1OKCtA6VAHYCULkGGCN29dILm8Zx/b2vQV8aTPGly + c5/fc+45p9L5x26JKoukImUrylGkVpSrKI80XRE/Z5+UpXvkMBMIaekMbpxtcOJMvQOnau2o0vfi2P0e + HLnbjco7XTh06xP2X2ttIS9DJRWb/rUqblhB3hkMyE4DYsmfiCR+CMmxSYSiEwhGJuAbT8ITTmA0GMdI + IAbbQBDl19sZMGsKIJokc3wSMillTsInJ4R5LJQyD/ui+EwA7RVLBpBzzuASgLR5Q7kZBXtNWL+nGWt3 + v8DqsmfIL20U5gFvFF39AZRdfseA2QLAA+NKtx2gZL+stC2S4xlzvyeCzj4/Si+2MGAOA9Q8ba6CfZxq + xDptE9bseo5VO59i5Y4nWL7NgKWaBiwursPCLQ/x0e3D9guvfwN4VVwBGtjU5NQ3D1Ly17EI+kbH4f4u + 473LC43uFQPmMiC3Sm8TAL8y7fySRqyg5GWUvERTj0VFtVhQqIdrRIbzWxgdTi+Kql8yYJ4AHH/QIwB/ + Tlsk0zd/4WTFbB8Ko83hReFpUwaQd/RetwD8ZU63nTYPh2EbDMFCgM0njQyYLwCVtzsFwD4UEkfCe+ZV + 8bR5YFZSB5naSWxu7fVg04mmTAfqAzVtpoM3P6CixiouTHvVIvZccuktTfsNttLAiqvN1LaRkpuFeePh + Ov4vzGTANIaQ+K75AV8Xi4+E18TiaXMai9vmX35XJVHn/yFIvwAPXZeiStgULQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFy0lEQVRYR8WXd3OUVRjFQenY6ycQCxYU + FRH8Dv4hoBQD0rvAMDiIhd7BQVRk7KihQ8BCB8GQEEIJCUk2G0pISLK72SRbkoXgzPE5z73vu7uz2aDj + CHfmZDPvbN7zO899bkk7ALdVrT68lTI/4qN9G7rjH+rOm4jf4fvMSADgQ36hg6ijVacEdU5QlwR1tepm + 1T1Bd1ndbcXf+V16GAgLoOarsjyHV+8ux6pdXqzM8mLFzjIs3+HBMtHS7aVYvK0Ei7YWY+GWYizYVIT5 + G4swN7MQH2Wew4c/FWDOjwV4f8MZzP7hDN777jRmfZOPmV/nY8ZXJzF9fR7e/TIPk9YeOypehGAlkgA6 + 0Pz/HMHwNUz+IoeGrAarnQTQkck5IrEbCMf+Qrj5BkJNN9Aon41NLWiItiAYuY46Sl7mDxn5Gq+htiGG + mvoYquubcTXYjKq6Zlypa0KFvwmX/VFVwcUgJn12nIb3ijgNyQArLUCYAGJqAFpc83oxVgAxD7RqHlPz + SjGmrgQEIBDFJZ+oNoqzF4KYuDabhveJUgA6cc4dgBBTNxtjNY/Gk9Oc8jXGjHlDs0kuqiKAGKs5k9Nc + dLE2gjPlQYz/tA2A5Ts9BsCax5Pb0oev2+SxBPPEsjeZ0hPAll3NfRFcrIngdHkdxq45RsP7RakA7HYO + 17zpuiYPEkDM62jOuWfZBYDmNU5yMdayc94FwJhHtPQ0L7cAYz452ioAl0RnLjUFUHOWnclbNDnVf8Yh + 9J9+EP2mHUDfqfvxypS96DNpD16a+DteHP8beo/7Bb3G7tLSqzmTS+nLa8Iorw7jlLcOo1YrwAMi7jPJ + AEtknSuAznm86QJO6SV5YulZ9qtBKbudd5Nc5JRdzC+oeQRlApAvACNX/ZEeYPFWA8Cyq7lN/tr0w+in + yQ/iVSafvA99Ju9NSf7c6Cw8M3IHnh6xHU9lbBNzSS/mXjEvuxrCSW8A76w4QsMHRSkAXRZuOa8AQXa8 + mku32/XuLjdtOklfb5M7y82WnckvaHJTemMehocAZQEMX344PcCCzRYgsePdsl9D3ynx5L0n/IoXJPnz + Y3YnJe85fKsASNmtuVeMmb60KoQ8TwAZyxTgIREB2icBcG/ncJpOk8uSc5Jzs9Hl5iaPqtzlJh3P5Jx3 + r3xy3pncI+alVY0K8PbSQ2kBuvJg4YiXXcxFnPOXE7qdyXsx+agsPOvMuSR/MmMLnhi2CY8P2YjHBmcK + gGMeQkllCCc8fgxdciA9wMc/GwB/SNIndHy1yHS8SW46Pmp3OtvttuO9bDqZc5bdSV5SaXSi1I8hixXg + YVEKQDceqQogxjR3Nppqa27mPN7tPe2cm+Sb0WPoJvRwktt5LxEVi3lxZQNyBWDwov3pAT6Q85zDKb3Z + 4515N8lb2+M579pwdrk5TeekL77SiPOi3BIf3lqoAI+IeMlxAXg2d5+z4awCaNPp6Wb3eJY+0VzEhnNK + 7y43C6DmMueaXM0bUCTKEYA3F+xLDzD7+9MKkGLurnVnj48n1/QCYNa6yE0uANac6YsqGnC82IdB8xXg + UVEqAK9RHElld043m9411+Tx0uty0/S27KLzoqIKo8LLBKjFwPl70gPM+vaUARBzAjjJXXM/T7eEsmvp + OedhlNrSMzkBmFqTiwol/bmKemRLBQbMawNgplwieW9zmqZIqAsv1eOcqEB0Vq5UvNXwYnFKjlYqX/b3 + PEq2WW40edLpXG65pT4V553JaZ4tn2/MVQCugiQA3Qmnrcs+wNvrtPUnMHVdLqZ8niN3uBxMkGsUbzLj + 1vyp5/loOVJ5qo1YeUT39oxlhzBs6UHdZLjOudTY7Wy4QaKB8/Zq8gFi/vrsHUfEy7kTugC8kPAB7/m8 + u98j4pcoXp8c8SJB8TileKhQ3NkcMR3FTqdYbkd8znfyfwuGdg8jDkLwIaeDMG2Jm8jNxBK3Jv49feiX + BPBfBl/2bxQfBLidavXhrRPa/Q3ZvPRwGUyQLQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACSklEQVQ4T6WT6UtUYRTGb46ORnt/RBBB + EERR0T/RxyhJkiIppiwpCqGobLGpKKIFI4g2GbLUKEJnpsVy1GlRc5wZJ80ll9nnOqtTPJ1z5l4n61P0 + wsOFy31+z3nPOVe51OxT6BSQDKRCTUWajJqKNZWQ5mvi9+xTCsyNHjuBoMvc5MOFp16cf+LB2cdu1Fj6 + cfJRH44/6EX1/R4cvfsZh262t5GXoYqBTf96qm47Qd4FDCjUAcnMT8TTP0RqMotoYgaR+AyC0xn4Y2lM + RlIYDyfhGo6g8lYnAxbNASQyZE5loZJy5gyCalrMU9GceSyYwBcCmK47ZgFFF5sGBJA3ZxEm8+aDdmyq + tGKjqQXr973E2ornWLO7GT1DYey99p4BiwXADeOjl83mkKqVLckpSR4OJDDkj6N7MISKK20MWMIAI3eb + j26W5AM2bNjfinWS/IKSn2F1eSNWlTXgky+IXZff5AE8Kj5hatjc5NydRyj521Qcg5PT8E2o+DAQwE7z + awYsZUBxjcUlgNBv3Z4gc+7O+eSVpRas2F6PLm8AO2pfMWCZAE7V9wngz25LMt35KyePq/B+j8E9GkOH + J4DSc7ZZQMmJh70C+Musl62bx2JwjUThIMC2M1YGLBdA9b1uAbhHo7IkPGceFXebG+YkdZGpk8Tm9n4/ + tp5uma3AeLiuw3bkzkdU1Tllw0w3HDLnPVffUbffopwaVlZrp7KtlNwq5i3HGvhfWMiAeQwh8V7zC94u + Fi8Jj4nF3eY0FpfNT/7WoFDl/yEovwByIJsuY3wVdAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFzUlEQVRYR8VX93OUVRQFpWOv/4CKjijK + 6CCi/4M/CCjSO9JlGBzEQu/gICoydlQCoQVQ6SAYAqFD2HSSEJJsyWZLGgFnrufc996X3Uk26DjCmzlJ + 5pvd75xz27tpJyJ3FK0+vJ0wP5pP+zZw1z/E3bcAP8P3mZMggA/5gQ5AR4tOCeicgC4J6GrRzaJ7Au6x + uNeCf/Oz5DAirAAlX5WRf3j1riJZtbNQVmYUyoodBbJ8e74sA5Zuy5PFW3Nl0RafLEz3yYJNOTI/LUfm + brwkH2+8KB/9fEHm/HRBPthwTmb/eE7e//6szPr2tMz85rTM+PqUvLc+W6Z9lS2T1h47Ci6KYCSSBHQg + +f95wvHrMvnLLBIyGox2koCOdM5T1/iXxBtvKmINNyXacEOidTckAtQA4dobUo2XhYjodQlEG8WP31WR + RqmqaZDKcINcI6rr5WqoXspCdVIaqJOLJTUy6fPjJLwfYBqSBay0AuINEADiGImBSD3Jm0DeBPImQx67 + LkEgAGI/BJC8kuQAyctJDpQFQQ6UQMCF4hqZuDaThA8ALQR0Ys6NAOscxIRzXqPkTR450UzeKBXWeXnY + ktO9Jb8SqJXzxWGZ8FkbApbvyFcBJI/VQwDDDgEm7Ia8GqQUECBA7LfOKwh1DoBYQ0/3IC4Brvhr5VxR + tYxbc4yEDwItBbDaeaLWfXPOEXp1bt27vJM8YoiV3Dq/ipwbcro35MXAWQgY++nRVgWwJTqz1VSAIycx + nQMhCGDIX59xOAmvTT8or04Dpu6XvlP2SZ9Je+Xlib/LSxN+k97jdsuLY3dKr9EZUlQVlzMQMHq1CngI + 4JxJFrAEfc5D8ggqXZ1TgC26QIzVbpxXIeesds07XGvRJVS8y3uxP67khZVxOV1YLaNW/ZFawOItRgCr + Xd0z7Na5qXhTcK7i+8F5Xzh/RZ3vsc5/ld7jd8sLY3dJrzEZ8tyo7dJzxFYpqIxBQEhGrjhCwoeBFgK6 + LEy/rALY567oXMV7zi25cW7bLUXOi+G8CM4LgPyKuJwqCMnw5YdTC1iw2QhgyD1yELuCq0LBMef9ph1A + 3ul8r/SZ7JybnCc73ybPDt8qzwxLl/xrMcmGgGHLVMAjAAW0TxLA2e4EcMppq3k555BJ6HXm3bVaQq8b + 57XGOVwXVMSUPK88Ktn5QRm69FBKAV15sfCQPIiC0ymn5Ax7InmDFpznPCnnO5KcPz10szw1OE1yyxEB + CBi85EBqAZ/8YgS4guOg8aacN2gShow6t4OGrplzW/HqHMij+2tRFXAiLyjvLFYBjwItBHTjlcrjOXfk + Cc5brXb0+fMjkfOR1vnQdOkxZLP0GLxJnhyUJk8M2ig+pIACBi3an1rAh7jPecx8NxeLq3gv57bi1TXy + 7lV7K85z1XlUyS9fjUpWbkDeXqgCHgO45HgCeDd3n7PhvApIJGeruWuVYNhLg6bVTLs1t5ohjxtykFKA + D8QkzymLqIC3FuxLLWD2D2dVgJLbsCs5AWK6L6F7PyreVbvnnL0O5wTyzZz7yiMgj0iOE+ALyMD5KuBx + oKUArlE8ruB00GjB2aLjoCE5241hB7ELu2u3XHVPcjinABCT/BKQCQED5u9JLWDWd2dUgNfngMl5fbJz + wHOOEevCbpw35zynzDjPKY3IRSDT55f+89oQMBNLJPc2/TK+cKm0RsFVitvM+Sth3OlhvVZ5sxGncMFw + xGYXBNHnITmJXme1ZxHI+XG4Po7fdJ952S9vzlUB7IIkAToJp6/LPMDtdfr6kzJ13QmZ8kUWdrgseRdr + FDeZ8Wv+1Pt8DK5U3mojVh7R2T5s2SEZsvSgDhn2OVuN1c6CGwgMmLdXnfcH+Ruztx8Bl9sJPQFcSPiA + ez539/sAfojg+uTARYLgdUrwUiE42RzojmClEwy3A5/znfzfgqa9y4iHIviQ6aCYtsAhciswxK2B3ycP + +ZIE/JfDl/0bNB8KuJNo9eHtg7T7G/SB7bZpbqFQAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACTElEQVQ4T6WT+0tTYRjHT06n0b1/oogo + Qoqg/op+jFhWViiSFUlRCEVlF1tFEV0wgug+lqkRgU67WE5dFzXnbmlecrozdzm7Hld8e553Z2es36IX + vhw4nM/neXie90hX2nwSnSKKgVKspUSLUUupljLKQi38njmpyNzi7iIRcjG3+nDphQcXm904b3WhwTKC + 00+GcfLREOofDuL4/a84crunm1iWSgaG/vXU3XWA2EUsKM4JkupvxNO/RJRkBpHEPMLxeQRjKgLRNGbC + KUyHknCOh3H4Th8LlhQIEirBqQwUShZWEVTSAp6NZOGpYALfSFB7064LSi63eoUgD2cQErAKWcBp+DV4 + XE5gcCyEmhsfWbBUCHhgfHJtMzxHsGhbVE7p8FggjoHROVRf62bBMhYYedp8th6yYcvBDmw+0I5NNa9R + XvUKG/a3FcCj/hi++ILYd/VdXsCr4hOigRVWzrY9QfCPWYJnYvD5FXzyythjfsuC5SwobbA4hYArb9Qr + v8S6yhas3d2MNTutWGV6Bu+0As/PKPo9Mioa37BghRCceTosBH9PW1Smtr9zZQ12TUbR65ZhutCpC8pO + PR4SgvLqbOX1e7XKFVasNlny8FQUzokI7CTYcc7GgpVCUP9gQAhckxFxSXjPvCqeNg/MQeknqI/CcM9I + ANvPtusdGI829XYeu/cZdU0OccNqb9nFnquuf6Bpv0clDWxXYxe1baPKHQLeduI5/wuLWbCAJRS+1/yC + bxeHLwmvicPT5mocbpuf/K1Bos7/I5D+ACc/mkalIbQzAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFvklEQVRYR8VX+VPUZRzW8rb7/Auasumw + KDvU/oZ+SC1T8T7w1nFszA4FxNvGrMzptrxABW0yPMA0RQFFEYEFRARRYdkFdrmsZj49z+d9v9/dZVms + adJ35nGd73x3n+f5XO+HHiJyR9Hlw9sJ80/o9OwGd/1D3H0L8B3+XpQAPuQLvYDeFn3C0DcM/cLQ32KA + xcAw3GNxrwX/z3fJoSIcAUq+PsOTvWF/hazfVy7rMsplbXqZrNnrkdXAqj2lkrK7RFakFUtyarEk7SyS + xB1Fsmz7Bfloe6F8+NN5WfrjeXl/a4Es+aFA3vvurCz+Jl8WfZ0vC7/KkwVbcmXel7kya9PxY+CiCEYi + QkAvkv+fxxfokNlf5JCQ0WC0IwT0pnOelva/JNjxpwTwGWjDJ9DU+oc0thj4Wm5KQxAI3JT65g5FXVO7 + 3ACu+9ul1temuNrQJjUNrVLtbZUqb4sUXvbLrM9OkvB+gGmIFLDOCiB5sN0QNys5YMn9IPdZcq+St0eQ + X3PJW13yK/UtUgWcr/TLzE0nSPgAECWgD3OuAsLJw9z7g3APhMjpvENuNHYYcr8lB0LkcA/yy3Utcu6S + T2Z82o2ANekeFRCwAtQ5QNd+ht51Hgq9Om8EeSPIHQEIfTUEXEHYHfLLN4JSUOGTaRuPk/BBIFoAq10F + 0D1cu85t2H0gd9wz7MY9BbTZ0Lcacht2uldy4BIEnK1okKmfHOtSAFuiL1uNxyFn3o17Q05iJVcBJG/r + lHeEHuTVNufqHsSVQMV1CvDJ5A0q4CGAcyZSwEr0OU/IuYHrHG3kVjydKzmrHs6BGi/dG+ckr6wjOd0H + ICAgZxCBSet/iy0gJa2zgLCKB6LIgc7t5lQ8w07nl+Cc5OVAfnmDTFx7lIQPA1EC+iWnXlQBpuJD5A1O + 0SHsFMCiu+5WvGm3GjpX9ySHc4B5J3nFNQgA8su9Mn5NdmwBSbusALTa8IXZ8gbAz+ELsmTY/CwZOu+w + vD73kLw656C8MitThiQckLiEX+TF6T/LC1P3yeAp6YYcYa+0YafzMpCX1QYkDwLiV6uARwAK6BkhgLOd + Rys+iIJzcw5otbPdEHa4Z693brcqkBsBDL0VAGIK8NQ2Sy4EjFuVFVNAf14sjgC6H9bZ+Ww4n50pL888 + IC+5zvebvGu7mbCbvAc17HTuAUqvQkCZV8asPBxbwMfbjACn1x337rBxi445tzNei47Ow4vOIW9WkLyk + hgLq5d0UFfAoECVgAK9UHk46uh8670jIuc05ncdNMzl/fkqGPDtprzwzcY88PX63DBqXasLuOL9myB0B + p0vrZfSKQ7EFfID7nMfNu+Nc3ZuqN+0W6nWGns616Fj1IHcElKr7JpAD1U1yCgLeSVYBjwFcclwBvJsH + Lt16TgWQ/DXrfAica85nmJwPpvPJ6cb5BDiPT3OLjhVPchYcoe5BXgz3xSqgTt5OOhhbwJLvz1oBdI75 + bive6Xfm3M07q93OeLfibd6VHCiBeyWHiItWwKhEFfA4EC2AaxQPJ51T7XHWOaudOX9uUrpxPj5NBsWn + ylNjd8mTY3bKE6N3ANvcomPoSeyQEzkldTIy8dfYAhZ/e0YFaN7hutbPGd9pzNp20xnvjFk6R8F5QEw4 + eWfYiaLqRim60igni+tkxPJuBCzCEsm9Tb9slfOLF6oMCrHREFwsCghcLrxi84E8zPk89Dl7PdfjldOe + ei06hj2npF7dU8Bby1QAuyBCgE7C+ZtPHOb2On/LaZm7+ZTM+TwHO1yOJGCN4iYzfePvep9PwZXKW23C + uqM62+NXZ8nYVUd0yLDP2WqsdhbcKGDk8kx1PgLkby7ZexRczk7oCuBCwgfc87m73wfwJYLrkwMuEgSv + U4KXCsHJ5oDuCFY6wXA74HP+Jv+2oGn3MuKhCD5kOiimO3CI3AoMcVfg98lDvggB/+Xwx/4NQocC7iS6 + fHj7ID3+BsTj9CwAUVchAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACX0lEQVQ4T6WTd09TYRTGrxQKxu2ncMZB + nMEv4Z/GIKRqBNEqSiQaEo2KA6tGYxzBmBhnKsNqcEBbB0qBOgApbakgQwpt6Z5U83jO29sS/M/4Jk9u + cnN/v3NyznulS88cEp0sioKSLSdHjlJOrpw8ymw5/J45KUvz1GYkEdLR6By40GjH+QYbztZZUa3tw8lH + vTj+oAdV97tx9O5XHL7Z1kosSyUFQ/96Km6bQewcFmSnBdHEb4Tjv0SC0ST8kSn4wlPwhBJwBeIY98Uw + 5o3CMuRD+a0OFsybIYgkCI4lEaSk4AQ8wbiAJ/wpeNQTwTcSqK+bMoKci7p+IZiGk/AKOAG3gONwyvCQ + O4LuQS/Krn1kwXwh4IHxSbfN8CTBom1ROZaBB11hdA1MovRKKwsWsEDJ0+aThreUG1Fw0IDNB1qwcf9r + rC97ifzSJgEPOEP44vBg9+V30wJeFR8vDWxm5VTbw1T5xwTB4yE4nEF86ndDpXnLgoUsyK3WWoSg4BBX + 1WOTuhkb9r3Cur0vsHbPc6zepcNKVSOWF9dj6Y4n6LS7UVTzhgWLhODU414h+HvaojK1/Z0rjwVh/xmA + dSSAdpsbhecMGUHeiYc9QpCG80uasIYqr6LKK1QNWFZUhyWFWlhHA7AM+2EiwfYzehYsFoKqe11CYB3x + i0vCe+ZV8bR5YGZKJ0EdFIbb+lzYdro504HySG27ofLOZ1TUmsUNU98wiT2XXP1A036PnTSw4hojta2n + yi0C3nqsnv+FuSyYxRIK32t+wbeLw5eE18ThaXM1DrfNT/5WIVHn/xFIfwDXvJhj/4qD/QAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAFzUlEQVRYR8VX93NUZRQFpWOv/4AdlGZB + Af8GfxBQkBJ6CSUgg4NY6B0cREXGjhIgkEJRSgqCIRggIaSx2UAaJW1TdjebkDhzvOd+7+2+Jdmg4wjf + zEkyb3bfOee276YLgLuKDh/eSZgfodO1E9zzD3HvbcDP8H3mOATwIT/QTdDdQg8HejrQy4HeFvpY6OvA + fRbut8C/+VlyGBGWACXfnORK23KwGJsPuLEpyY2NiUXYkODCesG6+EtYs78Qq/cVYFVcAVbuycOK3XlY + FpuLT2Iv4uNfcrD05xx8uDMbS37Kxgc/ZGHxd+ew6NtzWPjNWSzYkYn5X2cietupk8JFEYxEmIBuJP8/ + j8fbgjlfZZCQ0WC0wwR0p3Mef8tf8DcL5Lcv0AavoDHQioamNtQ3taLOf1PQKi+8iVpBjby4urEFVQ0t + uFHfLAjgel0A1zwBXPU0oaK2CeU1TcgtqUf0F6dJ+KCAaQgXsMkW0NwGn8BLKHkbGkRAvZCS3ONrtYgF + FjFRSfK6ZiFvNuRCbJOXCS5eqcPsbekkfEjQTkAP5pzH1+Ikp3MhV+cCn3FdK64pwDhvRqUg3HkAFUJa + XuNHWbUfpYIcETDz804EbEh0qQCn88YgOZ0LsSWAxNVO505yOie5/LbJS6v8uHDZg+lbT5HwYUF7Aax2 + FWCH3SJn6DXsFnko7LZzht0mt52bsJcJcYnCh+xiD6Z9drJDAWyJnmw1niC55lzIbfca9ludO8mtnKtz + 457EVyoFN3zIKq7FlC0q4BEB50y4gLXS5zwkJ0y1m7DbBWdXuyk4ht0quGDODbkJuw8lQn6ZuOFVAZM3 + /x5ZwJp9IQHqXIidrfbmwjTF8AVpGBaTgmHzk/H6vOMYOvcYXos+ildm/4YhM39VcnUuuFzpRbGQF1/3 + 4rwImLTxBAkfFbQT0GtVXL4K0IKzwk7ikHNHtYvjsLBrzk3BmbD7xbUvSO6+3oizImDihrTIAlbutQTQ + uebcCBghrke8L84XpmJ4TKo4TxHnycb5nCPq/GVxPnjGIQyafhADph7AS5MThNwHtwhwi4Cia16cdddg + wnoV8JiAArqGCeBs53FWezDndK5DRpwLtNpt58y3OveHhZ3kReLcJeSuq43ILKrB+HWpEQX05sWiAqyw + B4mtVhsWk4w3mHd1fhSvRovzWU7nSeI8UUNvyIVYyC8JOZFZVI331iZHFvDpLiNAnQup5lyrvSPnoQmn + fW5Vu4bdCrnrGt0b8sKKBmReqsbYNSrgcUE7AX14pfKEtxqdpwSdD1XnkndxPkSdH8JAyfmAKYnoPyke + /SbuxwsT4vDc+L2G2CIvLG/AGREwZvXxyAI+kvucp/LWnNvVbve5gKPVHjK2c7va1bmGXYgrjIACEZAh + At5dpQKeEHDJCQrg3dx36c4LlgCT81vJ1bn2+mHN+cBpUu3i/MVJCegfJc4n7sPz4+OssAu5oIDkgjwK + KKzCOyuPRRaw5McsFdDprWbNdnu8BnPuyLsWnUWcX16vyCszAkavUAFPCtoL4BrFE3LOggvIlGPO2euH + MVhyPkics+LpvF9UvORcnEvenx23B8+M3Y2nx8biqTG7hJgC6J4C6pFeUIVRK45EFrD4+/MqwFS7Y8JZ + s912zrmuE85qtaJgzkNFx5zTNYmJ3NI6FTByeScCFskSyb0tn18qNV/KLanTTSbnigcXBNkyTrPkWuXF + co5w1+qAUbiqtdVY7WcKiSoN+2khJnl6fiXeXqYC2AVhAnQSxmxPT+b2GrPjT8zbfgZzv8yQHS4Ds2SN + 4iYzY+sfep9PlSuVt1rUphM62yesT8W4dSk6ZNjnbDVWOwtutGDU8qPqfKSQv7Uk4YRw2TthUAAXEj7g + ns/d/QEBP0RwfbLBRYLgdUrwUiE42WzQHcFKJxhuG3zOd/J/C5oOXkY8FMGHTAfFdAYOkduBIe4I/D55 + yBcm4L8cvuzfIHQo4G6iw4d3DujyN3QM5b7sEQF0AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACR0lEQVQ4T6WT6UuUYRTFJ0dHo71/IogW + ooII/4o+RoiVFZpkSVIUQlHZYlNRRAtGEK0MZo4QUTq2WI46Le4z46SZ5TL7jLM6xemeZ94Z02/RA4cX + Xt7zO/e59766y00unZwckV6UqylPk0FTvqYC0UJNfE+fLsfY6GgVEDIyml24+MyJCw0OnKu3o8Y0iFOP + +3HiYS+qH/Tg2L0vOHyrvU28hOr0NP3rqbpjg3gXEZCbAcSSvxFJ/FIKx1IIRmcQiMzAO52EO5TAZCCO + cX8MA6MBVN7uJGDJHEA0KeZ4CmFR2pyEN5xQ5qlg2vzDG0WfACpuWLOAvEvmIQWYNafgV+YkPMqcwIRm + HvVE0TPiR/n1DwQsVQA2jCdTNs0+MauyVXI8ax5xR9A97EPZ1TYClhFgYLd5MmbemcmFlRZsPdiMLQde + YnP5C2wsfY4N+5rw2eXF3itvZwEcFY9fGjY3OV32d0n+NhXB8OQ0XBNhfBzyYLfxDQHLCcivMQ0ogE/r + duGhv5L3S3JZOnldiRlrdzWgy+lBce1rAlYowOkn/Qowv9sqWe78lcnjYTh/hmAfC6HD4UHReUsWUHDy + Ua8CzDdv0u68fk8j1kjy6uJ6rCoywSqAHWdbCFipANX3uxXAPhZUS8I5c1TsNhtmE3WJqVNEc/ugG9vP + vMpWYDhS12E5evcTqupsasMqblrVnEuvvZduv0OJNGxnbauU3SLJzcq87fhT/guLCVhAiIh7zRfcLopL + wjFR7DbTKJbNJ7/V66Ty/xB0fwAhcZvLKHf18AAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAF10lEQVRYR8VX+VeUZRjVcrd9/QvatMXS + NLX6G/ohtdz3fUOPxw7Z4r5rx6zM025lKipIKSKKqYAiruyggCjIDAzDzAgo/nB77vN+7zczwWCdTvqe + cxnOd4bv3vts70MHAPcUbT68mzA/wqdjO7jvH+L+O4Df4fvMiRDAh/xCJ0FnB10i0DUC3SLQ3UEPBz0j + 8ICDBx3wd36XHEaEI0DJNyQVp29MvoQN+0qxPqkU6xJLsHZvMdYIVu8pwsrdhViRUIDluwqwbEcelv6W + h8Xbc/HJ9ov4+JcLWPTzBXy47RzifzqHD344i4Xf5WDBtzmY/81pzNuajblfZ2Pm5uPHhIsiGIkoAZ1I + /n8eX/AmZn2VRUJGg9GOEtCZznlCzbcRbLqNQFMLAo0taBD4BfWhFvhCt1AnL6oVeAM34Qk0o8bfjOtE + fTOq65twzdeEq3WNqBRc8RI3UC44X+bDzC8ySfiwgGmIFrDeEUDyIInlU8lvGOJW5A0GVkC1EFf5Gl3y + ylpDXuERAZ4Qzl/2YcbmDBI+ImgloAtzbgU0NFryW6h3BNQRQmzJa/yGvNovxOK8Sp03hYnFPYnLiJoQ + zl7yYdrn7QhYm1isAhh669wNu8A695JcwZCbsJNcQy/kFFChzkNGgJBfVgF1mLLpOAkfFbQWwGrnccnF + vQk7nYuACPcacoI5F9fqPDLsgnIJvZJfD+HS9SDOiIDJnx1rUwBboitbjYcFx9C7ORdyde6GPrLgGlWA + FhzJHfflQhwmD6G0Ooic0jpM3KgCHhNwzkQLWCV9zmOct7gFZ50z5DbnpuCse8d5rXVuyYPqnOQlgtMi + YMKGP2MLWJngCNCck9w411ZznNO1zflb847gTcHguMMYOCcNA2en4o3ZB9F/Zgpen3EA/abtx2tTf0ef + yckorgoiu6QW49cdJeHjglYCui3fla8CfMy5QItOiD2Oc+bdVrvb6+LabTX5tAUXdh5AMXEtIAK8GLs2 + PbaAZTuNAJN3S24qXotO8v72/PQo54PmivM5h8R5qjg/6Dj/Q52/OiUZfSYl4eUJiSiigGIvxqxRAU8I + KKBjlADOdh5bdNHkf3NO0LmTc4IFZyuezpl3Oid54bUGnBIBo1cfiSmgOy8WHkPOvIdHbLjPCdNq6nxW + KgaI8/4RObfOX5mYiJcm7EXvcbtReFUEFHkxclVabAGf/moEeFjxSsyCM+QqQNvthpt37XPXual4ui6p + kpwT6lwg5AUUUOjFiJUq4ElBKwE9eKWqABmxZtAYYoJhJwbHpWGQk/MBs1Jc532t88n7jPPxdL4Hvccm + 4IXRu5Bf2YAsicDwFYdiC/hI7nMe027hvHPKmRHLnMt8Z7WLe1Z7VK9Lq6lzQdHVgLgWCHFBpR95V/zI + KvTg/eUq4CkBlxxXAO/mnou2nVcBOuXcsBvnOuVYdGy3GtNu/abvNxU/Rdyr8yTN+YvjjfNe4vz5UTvx + 3MgdKiBTBLy3LDW2gPgfz6oAG3adcurcGa+a84herzYjVqud7iNzLs4Z9nwhJrkVMGypCnha0FoA1ygj + gPPdudfVuRUQkpyniPMD6Os6Tw47l5z3Gic5H5PgOn92xA48M3w7civqkZlfg6FLU2ILWPj9GRWg1e44 + d8POancqPnK+M+9FmvMGt9rpPk/dy6c4z63w46IIyCiowZAl7QhYIEsk97Y8+QMqJi6W1csqJZBt5pws + FLzTCd5sOaW1yCZkxnPKZRfVSq97cFKqnQVHZBZ4lDhD3J8QvLtYBbALogToJIzbkpHG7TVu6ynM2XIS + s7/Mkh0uC9NljeImM3XTCb3PJ8mVyltt3PqjOtvHrDmCUasP65Bhn7PVWO0suGGCoUsOqvMhQv5O/N6j + wmV3QlcAFxI+4J7P3f0hAb9EcH2y4CJB8DoleKkQnGwWdEew0gmG24LP+U7+b0HT7mXEQxF8yHRQTHvg + ELkTGOK2wL8nD/miBPyXw5f9G4QPBdxLtPnw7gEd/gKzRN1Vqi44wwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrUlEQVQ4T42RW0iTcRjGl5alZpIlVEZ2 + YVQgSFEk5E1hJBiJkkVkKULWULSxcm6m7iI7SFGYYUk5Z2LdSThdK095nJvOwyz0pjLNnJtT03nYdE// + 98t9VhT0wA++0/M87//9BEyr5OXGOvmLPuSU9yK7rBfXn/cgs7QHMmU3pCUGSIoNSH/WCdHjlkb2vQcA + gQuSGxn/R6InOnJ4scvfAtyzWCtJUqz9hXZklBA6SJU6jE3OI7VQS471LjNBWp1Z2k1+TNkcmLTZMTFj + h/W7HZapBZiZ0TQ5h9GJOSQXtJLDx2UmuABpSRf5kaHQ8kgUK+2yUh1GrLMQ5reQY8Ph2HRBaLSYD1iT + rujkAqzTdoxPs9blZmodtc5x5q8WG5LuN5LDNzT6quDASREf4CF+qucCpOzMPFyzHo+qPqBY0wdRrgJh + p6U4GHWlmpkD9kem8QFrabsk89Q8tywTa/42PosRxjBrTpYX4Z7yNQZM88gtUmFfZGpDSEQKH+CZxrZL + kin1K7D2h5VGlNX0IeyUGPWGjzgUlQZV2wCCw5MWmM+b4U4BXskFbVwAnZnOO2yZxZDZhv7BMRgKz8KY + G4JueTA6svaiXbIbreIgqIWB2uUQgbcwv5kL+HOCOy+1MN4IASbew2npgHO0Gc7hN1j6VIE64Q6afyMX + kPSgkQtwNQ+aZ/DZNAND/xd05QSz5XRgqSYGyjP+WFSfgKMqAm8vBlCAHwWsu3BT/S7xbgMS8uoRn1eH + 87drEXerFrFZFdDL9rDmJixqTiL7qA9ndlQegzphKx/gxvBk+DJoJHq4ibGZEaS9tgvOIQ0c1ZFwqI4z + czjsr46g6pz/zyOwyf8Jk7f68s6m+pRA1FzaDk3iNlTHb4Eqzh/lMX5N9P6vRhdM9Jto067JXNA9ey5w + /wHDTnz6p7nQqAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIIUlEQVRYR61XaVBUVxaO2dQYl8bMktln + mElVUjE1M/lBiqQqVTPxh1MmwQKjyci44QKCRkTFQTCCgiyCEFBHTSYoSJoYVJBdQBaDKNBsDTSLgOwN + NN2soYH+5py3NDyHJPzIqfqque/y7vede849574nAFgh2QLCk4SnJDxNeEbCs4SFEhZJWEx4jrCE8LyE + pRKWSb88z+/z2kpOxUC0J0+oa3JPqLUIIBxPqCFU45P4KvjFV8I3rgJHr1TAJ1aDI7Hl8P5vOQ59XopD + n5Xi4MUHOHDxPvZfuI+Pz9/DvnPF2Hu2GK5n8gtpXRbIDik5FQNR4VNM/mPank/v8uIrCLybSk7FQBIQ + oK6hITAyPvWDGGaMTWGIMToJI2PEjEGCYdiMh11DcBMFrCRwGJScioEo4GnecjYl2aT1b4FUhkQ8NDYJ + k0A+iUEiNgxPYGDIjGYSsDuyiBd/gTAvAc8cv1pFwxkB5zOacS6jCWfTGhGT2ojoVB2iUnSIJEQk1+H0 + jVqEXa9FaJIWwV/X4NRX1UQ+gX5CU5cJuyILefGfEDiJlZyKgSSAE45NFiBjxmv2eGbbRc9p2wXPzVby + PtO3aOo0YeeZAl78p4R5CXjWL66ShjMCRM8byPMGyfN6RNysQ/iNuhnPr9UgiDwPTKzCCXUlkYsCGkiA + S4Qg4Ge8NpPIfAzlQBSw0PcxAQxFvCWvZ3sueE9eDxApE+uNE+g1jkPXYcL28Hxe/OcEQYDCZHIGGReg + hT50ztlkcmvMkynmsz3/Wox5EHkfmFiNgC8r4J+goZpRjh7DGLoGRlHXNohtYXm8+C8I8xKwyOeyhvlF + z8lrMeai5/IxM5LHDPacY85e9xpG0dE3hPaeQbR0GegIDkDT0IPNwdm8+K95bSZRmEzOIBMEcIVjG5HI + I5Mp5oTTkuchUrZzzE9SvCOTaxCf24DYdA32h6mx6VAM1rkGwdkzFF6Bl7Dh6Je8+B8JXKaZY8ZkcgYZ + Ty72/qKM+cWYWzPdDBOfcanAyOijOLd3G3EpqQi7/C8jMbME1Y0daO3qR0lVIy6pM7HB4yTeXLstetGS + ZS/S+hwGzjXGnAKeO/y5LEDceo756etahMgxl7L9VGKl4LnP2VQcjb6J1u4BxCblYpdPFN5z8cMWr1Cc + iL6KpKxibD8YhjfW7rhM63ODsjamuQQs4cbCZj3jDCne8jnXU8y7KeZ3Shuxwz8ODzv74Rkch/0BF5BZ + UIa65nak5T6Au28kNu8PwvmENKz+52G8bO/gQBzcHcVQyOQMMu5Wz3tdesD8REyJRtv++DnnuPsnVCA2 + ux6eETeRmFVKBBnYd/w/eNjei45eI2GIwmCAlsLh4RcJ76CLcPP9FK+9szWZOJYTuDEtmFMAt1Q2+YwP + CHVdqm5GOuPsPR2xtm4Dth6LRX1rD9btDkTO3Uq0Uew79SYSYEJbjxH1LT24nlmEtZu9EXrhK7y6elcv + cchleU4BSz2pn7PJW861Xa5wfNaPx2twq6QVSfk6rPc6h84+E+wdD6Kithm6h13QtXRTCDoF78u0zcgp + Ksfbju44F5+Kl99xNRMHH0kxDDI5g4wFLOPLBJvY0chzqazqyXuubt0DY3hE3jWUZiHw0BZEeK1DxAEH + tES/geYoOzRG2qEh3A71p+1QG2qHmmA7BLk7IGiPA7xdHKdCN/7JmXjE+4FMzpAELN93vpj5rdt+Ul1F + nlPcr1ZQldPA90opkgob0Hzx7xh/9A0wNQZMjhKGAbMJmDAC3xoI/cC4HhjrAUa7CB0waVNR7Pt6P/GI + pVkmZ5BxYiznaxSb3NE45r3kfc8geU8l9pF+BLo2PdpiXifSEVj6NbB0F/ww9CWwGHUoOfJXJvsVYeFc + Ala4x5BXZNzReNs54z+5qoFfXDndCcvg88V9qPNq0RRiK3hreZSmwG11GDY6raXf0P+bs/RpkO9hy2Ri + aZbJGZIA1Z7ou8wvxZw8N7Dn49RcxtDRP0bZPYw6yu66YzawDOowXRMDS7PainfX/A22q+yxxe0ALG2p + 1uf8fxNlIcjcrGKy33ynALcoUQCT9w5yweHONo5OIu/oH0VLtwnapi5ofUmAvgzmW6sxleuMqXuHMV0R + gvjw3XjzXRekpyTC0p6JaXo+mUPzKasxUeCJdGcbJvvtdwlY4RpVxPzQtZtQ325EHUHbxhiEtnUQlU19 + +KaiBdX/JgG9xZhKX4PptH9gSsAaJBy1x0t/eRsZiZGYvushPJtKpznCRP5epH4k7MDv5hIgFKLtodl5 + O88UYkd4AVzoMrE97A62huZhS0getdZcOAdmY8OxG6g8rIKlpwDTWe8r4Lb+z7B97S2cOhVA3n+M6Wxp + jn4n8j2Q8qGwA7+fSwA3CG4U/DXD12i+x/FVirsYXygYvySw+lXlXiSgKweWXCdMM3KcYCGsesUWq956 + H45bPWGpCqbnjjRPoDlzvhuSNwoC/kBY/LgANhbBO8FCuFzKkD/JGNzXXyz1tAE6MmC58yFho/RLKCA0 + XQFarwm/PAd6Pp3zAcx3XHHjg5XfK2A+xrlic2+vatiQ5w9zoTvMmY4EJ0xkEfjvLB47Cn9bx7c/QueV + 93DNaeUovc/HUFkH5gPJhFz5bP3STQWuqr5CVxXyd6qQ56LC7W0qZNExy/yXCumbbHCLEi6FtvzmBhvy + 3IbJh47YL91N74sfKnORfB8km50rvJCcI5wfXOHYOz7nfNQ4XzjheMsZPMfv8P1Q2YzmA8lYwOxcmZ0f + DPnTfTb4M57B8/wOXUieWPA/d9LPh4L/sBAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAC6UlEQVQ4T32Te0hTURzHV/bULBTMLNGa + hRqrmVmZQfaaSYrS/tBMo5kuy4a6VprDTGomURYWWdhDLajAP6KaTtOy8p1rCaNC6e0UN6+4zOketW/n + bGZl0Q8+3HPPPd/PPed3uayqE9GsC0lrY88lrjNl8PytcYHuz5d7OE9ljRWA/8KqyA5nyWK4jKpEgNO7 + Q5Ac4mWOX+lximSpZMrYlTKNMH1sPHlcUJaxiSUJ9x0+n7oe6so0nBMGIyFsHaRlSkhvdCC7XIWsUhUy + r7/A4atKpF1saqCycQGpSZmRS+XPSvfC0HUGJeINKD4mhtFoJM//rozLbTTlSIa/BFL+yqhrB3l4fnMX + 2UEomusUYPQGDBks+GIwgxkyof+LCTq9EWnFLTQ1K3i7xC5g8+c6BuUsKooTcgypMSvAF3CRX5GDT706 + DAyNYnDYjH4S1OpH0Tc4igMXmqjAOShKbBesPs4+m1udgJJ2MWSPEpF8h4fNRRzk3D6CHq0eA19NePNR + B8nJUoTGSREmPA2fVZF+gRHpdkFwgY92dQEbQbJFCDzujYA8LyzL9UTICQ7ea3S2bYvyrqCwvBqdWiPy + S+QI2CZq5IaLxntAP80swmyCe0phLRiGwbtuLT736fGhh0FozCHUq95jTXQ65C2d4GzZayJrnQgONstP + SM0UkSbRoud9q+lHx6WdUOdz0ZHHgfKoP9qyfNEsWQzFfu9Wm+RnmEInUkmTaPUOjOD1u16oZVxg8BWs + jBLWvkZYNQ/x/cNdPN7vRQMufwlSihppHhpmBOouDV4e4wD9Snyv46M81g3fFJGwVIajVriABlwnCmYI + CqqfJBU+ReKZeuzIu492qR95cwO+1UQhd5OzLWx5wINC4PFPwWTCTMIcgguB3Xp4CazdNbBURcAi30rC + W2C+txGV8W408OcRJkLKSbFvYUO9yBt1KZ6o2TMfVbvnQZ7ghlt8V/pP/NnEiZBysC2y78b1N+g9mWc5 + /ADNUkA+1yEkUAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAJT0lEQVRYR6WXCVBUVxaGMc4kLlEDZpZo + oo4kVDRu0Uyh4FZGpkYHF0oTcUFWZVFEAYNGQUT2FhSEiHtEAUWRKKKyC6iIsokCKovI2kBDQ6MgDfQ/ + 57wGBEWTqTlVX73ud3n8/zn33XNvq/htnN8fA31N5/p4GWmXuK/XqnZdOyt235qZC+iq4m6gpeJtOFvl + /wkAPbwpbENk+5jNy4sJ2obClFPIiHRHVKANRBY6nTv1puvT8wOID97BwHfAY/ycEO8zUH8r1An3I9xR + lBSEgsRgnHc1RKCNLnwtdbBVd2rz/G9GfUL/4yNiUBeDiSHEUOLjLoZ1MbzryuN/JgQT7zIwkMC9S27w + NJ6HX7YtQ+IZEQ7bLIGn0WzsWD4JJvM0cDXtGXYFZ2PHqUw4nMzETycyYH88A3ZH78H2SDq2EjaH72LL + L2nYHHgHmwJuw9w3KZV02SBX450GVHzM5rYctNRR3D+3B5GBO2GjOw3mCydi/ZwvYfn9eKzT1kBbu4Ke + +9/Cwu8WKalw5f70XgMikzn5ImMt+YuyW+ioz0Lj00jkRLkh5cRG2CydBrPFs/CitaMPzUxLB2TMy3Y0 + Mi/kkBINzXKUVMlg7pfKBkYSPA3vNuCxXtv9gKmWoqPhEVpKYyB7Eg5JThAqU5xhNvcLuNlbkGj72+Ik + KmtpR5Mg3g4pCTc0t6FeJkcxGdh4MIUNfPq7BqwWT/n6qJWWTFaaCunDX1FP4jVp3iiI3AS7xRoIOhGG + U/El8It6jAOXC+D7WwH2R+ZDdCkPXhcfwePCQ7iH58L1/AMSb4OEKKpqgtkBwcBfiA/fa4BiyFHLGZFZ + EW6ove+H6lQXVCbtwKU9C+BvvxrVNQ2vMxeyp8wpa2XmVHYhc3mPeF3TKxRVNsHUN5kN/JUQDPSJXuIf + TNs2dsLireohR6xmIDPcAcVRlojz+Q+2/+szmLoYwD8yFv6XH8InMk+ZeQRlHkGZU/bu4Q+x71wOXMKy + 4RyShRppK9GCx+VSmOxPYgN/J942MP/gBJUJhqMHa3lp+C0PmtWxP8Eep6N2IcBuPlz1xmGv8Qx4nNyA + 7ReMsMB7KnaE2qK8qhZS2SvlS9edOWdMgtV1MlTUNOJ5tRSl1fV4UCSGoVccGxhNcP/oG2P//emHc3y+ + TvRLccDjpjjkN0bjVtVhROTvwqE7hnBNWA6neF3sS1oLn1Rr2ISvg65oEULi82jOH8CN5vtQVB4upBQh + LC4X9j7hMHAIhJ6lBwxsRdjucRyrdp9jA+oE9wLuiq9Dy+OrnxyjTfFAcgUJlb6IKNmK8GJrnMw3xcH7 + +tibrAv7GzqwujwfRhdmQz9EG0sCtKjsrqiRyFBP81wubsTxyFswdwlGeEw6HhZWoLRKgvTcQhw/H4NV + 1m7Q1jUJGDR0+GckydPAHVHZmrW9NYpmeX0JTQ91/NNtPL5zHYfpLuPw7d4xmOo8BlOcPsdkx9GYtHsU + vtk1CpMIvs7Z9x0ibj4WMncKuo7dAZeFkp++lAjzXf5YauYEI3sRXANCcSk2Dabb92Om7oZgkuT23NOW + Obg7sSueH+7ZapdSCtEglUFc20hvvhRV4gZUiCUor65DGc1/WWUdfa+HWNKM5MxCbHA5i5JKCWy9zsLO + 9SgSb+eg+HkV4lMzscXJH4bbPBAUdg06ax0wUVtvWZeOcip61qMy+OYQ++P36Raoq8mFxvLmOud5dwnL + QWjCU9j7XUF4bAYJ3MC2fUdQUS1BbX0zJNKXwhSVlouxzdkfOzyOwcrxEKYsNL5CGiMITnxAfwaG2h27 + pzTQ9YbXC13tNbzGaxpaUCaWwnjPaTwuFUPPwh3Jd3OFqrF4fWOLcK2kSsUlp0PXcAdERy9gko55DWl0 + N6W3DPBu9bEt7Wwc3Y3Fs1eH47W+NyQbcVnluHqnCD/YH0ZlXRO0VmxH/tNneF5RQ8uUpqqyVvhcWFKO + jKxHmLdiMw6HRGPCQks5aXxBKKehPwNbg+4KBpT9nDJuUna1brjJVNQ2oTAjDsc9rXHAXg8H7JbjWcBM + FPtrotBPE099NfHYRxP5Ik088tKEx+bl8Ni0HM4blpSK9L8yIB3l7tiPgWE2QWmCge5yu53Ppcxp3kNz + qMtlw/FMBqLvFqPk2PdoLbsDdLQA7S+JZkDeBLQ1Aq8aCAnQWgu0iIGXVUQFmvKikeY4Q0I6ys7Yj4Hh + fJjg6O7ntZx142sqJS9QVE4lDpxBoi+gkGRDUZ3y+9SmQ9H4BOk7p7Pg58RH/RkYwScZjjoqfS0J8hvv + HJoNp7NZcDybiV2/3sPl1Cco8lYXslWUXetD/Pn90F+pS1fRW2OKumwkW6uzIL8Hg940wEtjBB+jOFic + MxY3tKK6F+W1zSh4JkbBHjUopE/Q+SgQiuLzPSxZtADqk7VgZGUHxfPonvv8d22Z3ogxVGXBMUS/Bj6x + 8u9rwEmY9yzsDs7Ez8EZcDiRjojkAuQ5koHaTMiv6qAj0QAddx3QmeONEF8LaC8xw/WocCjKY9BJ99sT + aDxKB20ptrhuoMaCY4l+Daha+t/qY+DNCpTVyJBfXI2HP5OBmjR0XF+EzmuL0SGwCGG7taDx7TzcCPdD + 521r4V7HdRoj2pK3IHqNUIFxRP8G+AzHIbx00lck2oKq+tYenotlyCuqxAMHVSjEKeiMXdYHqx+mQX3K + bHh67qPst6IzrmuMrm3J1ohaLVTgH0T/U7DxoNLAk/ImOlA0ooDIe/6a3OI63MkpQZY9GahKgCJxJTqZ + hJVQEJMnqmPy7GVYYWwLRa4X3V9B4wSNyZOtcEVfMDCeGPymAaERGXnGJPExymT/TZiIbsJIlAhD70Ss + 90qAgUcC1rjGYOXuCGTYqgEVN6C4uZrQ77oSKUTRGaD0onDlMdD9zoQfIb9pid9+HPlOA7xF8lbJv2b4 + GM3nuL8RvI+P6oJPNjx/k9KsVV82JLlAnroZ8pgVxEq0xRL8OZa/rxA+93yPX4PKM0txceXIl/Q8L8O3 + +gAHm+BKsBHeMLrh7bob7uMjA/SGGSdbqkpSLVWRvFEVSWaqiDdRRSwts5j1qri+Tg1X6YWLopJfXqVG + mauxuGyn1jALel55TO/HwB8JNsmm+HDBO1t3Zbi7cWa8xnmZcaX4ZeNyd8PjLM6/K19vRn+UrmADvSvV + uzpM9w/X3vCPWIbH+Rna+lUG/Bex9uEqV0XDgQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACwklEQVQ4T3WTe0iTURjG1ZWXzJzCMi+5 + 5TIVpEUq2l9SmYk6Iym7CZkxbTbUMB0o1iJnf5RChRbdzDLtAkk1naZk4UylZYJdMEqFps5t6pTy0nRP + 52xeVz3wfJzzcX7Ped+X77MispZyuTuvbPJDPpsTSfb2mR6e0VJvNgQsNz7ZrwRg9T9TMSisSwlDRVAA + ctZ7593e7AtNYjDy3D3oCSYNIbYltptb2ywNsMnnbIi8T2BtciiqtwWY4FJ/DkqK7+Kpogfisg7k3HmP + 7FtKpJe0NBPGdmkAlZ2Y3GyGQ/A4yBdV585jQK2FwTBDzi0q83o7pVaR5WIFxGtozyY4mJS/PwjFXC/U + VT7CoG4cuvFpaMemodFPIb20lVKrw/ZmLQTYFphgc9mFQjGKfTyh5vMgdGair18LLQGH9JNQj07i5NUW + SjkFx51aCFghWOvGpwPbx2QmPGj4iMaHT5DGZEJ2rwr9Gj2+9GmQVViG8EO5iBRcBDck1n9rTMZCgDUx + nawjsZOkogMjYz/Rq9JANaSHemQCIslNFJXXoXtoCtIbMmyJFil4USJzAH3Mm8g+gwyJSjs2hcHhX+jt + 1yE84TSaOnoQuicDstZuBEakTM9dyLAMcBCRIVHRfr+ptOi8dhhdUh46JYFQ5gegXeyHt1kbIRey20wh + 8zA1fZFGhkQ1MDyBz98H0FXAA0Y/wahTwqhWwKh6idnearwSelPA5a+A1MsKykOlm0DXVxU+nA0k/Sgx + 2xiP8gMszMhjYaiJQoPAkwKulgH2SRfqXh8veoNjl5pwUPIc73L9yc3NmKmPw5kdTibY8GIX5Enu/wyg + H5UDsTOxC7FPW7YvjD/qYaiNgUG2m8AR+P1sO2qOsCiwvAVLEznKT3Cam0RsNKZ6oT7ZA7VH10GWyEJl + vCv9J5YP0dJEDNMhczWuS0z35L0V4w9knCw5Aqn76wAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAIv0lEQVRYR6VXaVCUVxY1MwqIUcNiCIi4 + dHRmMjGz+IMU6Fg1E38448aAa2IUgyIIEVkGE8EoUbZGFMSdOBFFA+6gIiggKCLKjgjIIvvSrN1s0kCf + uffrbhZpK1bNrTr1+nuvvz7nLu++1+MAjFPZe4TfErQJ41XPbDxOIEwiaKme/y9jTjXUAgQSz5mz/hU6 + 73dwNTNbQc86BBY00d7ExDpwjgi2RkZr6FlXNf8bDeB5TeC1IeGaBIxXk0vsFyNk7jw4TTe1ovkpW41N + bALmzEH1GkscNJuFNQaGX/E8gQUyJhJYFEfofRUmq8Df45HXOYqCCE0CtJm8icgrFk5Cg+3fECyaCxdT + U9/A2SIiX4j8j7VRaWWJfaYzcDm5GLv/mwXPs1n4z0+ZcA/PhNvpp3A9lQEXws4TT/Dt8XQ4HXuMHWFp + sA9OfkgcLJCjoVHAeA47e15qroviBbqo/XIRmLxKINdC3iwtgTw5KhpSWTe99u62PeQRk3zAPExGU2ME + cGi0d0w3/fehj+ei6E8TUfhHHfJ8keB53mwl+b3IKDQ1SyHrlqOrd0BAJ6NnADJGdz86GF1ytBPaOuWo + qJfBPuQhkxgQOA0aBbBxoUzdaTrDL3D2HBT+XhsFI8h/9tyDV9UNRNI3lpxIZT39kArk/Wgn4rbOPrTK + 5CgnAduOpDKJIeGtAjgCOnbGxqu52pU510I+keeaTUDFSgvsMTbB6eAzSHhWifCElzh8swjBN4oQdP0F + xNcKEXDlOfwuF8A3Oh8HovKIvA8thLJ6KewOCwKmEXgbaxSgZW9MW03I+SIUiIY9zzEdj2xCxQoLeHxo + hNvnIiFp7VR5T56T10rPKeyC5/Ih8mbpa5TVSfFNcAqTfMg8TDbKVAImcdgFz0VccBOwb7oy7Ow5C1CL + 2GU4DbGPSpSeXyXPr5Ln5L1vdAF+/CUXPpdysC8yG03tvYQeFNe0Y0tQMpN8RHirAC1bo49W+86cJZDv + J8+TLkUJOY+LuCh4zgJ2GRgi5myEEAEh7yM9Z4+JsKFZhtqmDlQ1tKOyoRV5ZY3YFHCPSaYTuMuONpUA + rgHd9YbT1nPYw8Rn0NYug7SrD42SDhwXnxbIQ/1P4M6Tchy/U6z0nHJ+kPIddC0fx289R3B0Bhz9LmKD + RxisHPyw0VUMD79wrPX6hUlEBO4FXOzDphLAJoggGN1Iq8DAwKBQ6VLykD2urpMIYweJGrndWinPNY0d + CL/+CPY+EYiOz0BBaS0q61uQkV+K8Kh4rHU+CMtlW8J0Jk0xpt9XnycMpYARIlidDnc4ti7aYlxoXO2H + rhciUJ1zVbX7RuUKnrseiYFX2E0h5OeuJcF+TyhW2O3FZncxDoRdxLWEdHzjEYTPl22NoN/n9jzUljUJ + mMjtlW1kg5FS8xkC7XXe5xLKeUpWKbb6XEBFXQtcAy7AxecU4lOzUFxeg7jkp3DyDsGmXX44eekOlnzp + iU8srVYSB0damQoNAnTdw58JAjqIjBvLm/uc8+5zKRdHbxZgR+A1RCdkEsFd7Nx/ChU1TaijIqynYqym + Qiwur4Xz3hDs9jsDR++j+OwL2xjimEpQHvkaBExyO/NUKUBV4a1CVxsG7/Gmth5UN7bD9odzKK5shNV2 + XySm5RFpq0BeK+mk2pCihNZiEtKwbNNuiE9fxqdL7JuIQ92Uxgjg0+p9VzrZ2NSNxX9Eh+O9vj8yB2fj + S3AyJg82bidQR+eDhbUH8l6U4+WrepRWNaCkoh4vyuuQ86ICSWnZWGzthBORt/GHLxzkxDGDoEyDJgEu + J58IApT9nDyWKruaGtxkaiVSlGbeQ7i/Mw67W+Gw2yq8Cvsc5aHmKA0xx8tgcxQfMscLsTmeB5jDz2kV + /Haswr6tyyvF6+ZuJB7l6ahBwOSdJ9MFAepwH4zKJ88p7xdzqcvlwPs85fxWHkpP/wO91Y+BgR6gn47o + /k5ALgX6OoDXbYQWoFcC9DQC3fWEWkgLbyPde0EL8Sg7owYBU/gywabu5xL2umMYdS1dKKuRoOrYAiLt + gqIlB4qG1F+HJAOKjhJkfPdXJjQlaGsSMJVvMmzNFHoJEXLF77uYg70XsuF9IQt7fn6KozeyURYoErxV + VN8ZhftRQVhns4xG8Zg1RXMOUpxFTMh1oPOmAN4aU/kaxcbk7HFjWy8aRqCGKrzoVSOKftCHor0Eg8+P + QVEeNYTlS/8O0XwLbHZ0g6Lq9tA8f68vKxDxm/SY0IygUcAHjqGjBewV8p4Nr4gsfB+RCc+fMhBy9RkK + vUmAJAvyW0swkLQRA088MZgbiMjg7bBcboe42GgoauIxSPP9ibQeuwR9qa6I26jPhDMJGgXoOYQ+GiXg + zQhUN8loizWg4HsS0JSOgbilGLzzTwwIWIpLXhaY95fFuBsdgsE0Z2FuII7WCH0p3+L2BiECswiaBfAd + jk0ouvbXRNqD+tbeIVQ1ylBYVoc8Tz0oGlMxmLByFBxX/xmizxbC3/9H8t4Fg/dUazT2pTgjdr0QgdkE + zSnYdkQpoKRGSheKDhQRCquGkV/ejMe5Fch2JwH1iVAk2WCQkWgDBWH+JyLMX7gS1rauUOQH0Lw1rRNo + TZ7iiJh1goA5hIlvChAa0Wb/+GS+Rm0JeoAt4gfYLE7CpsAkfB2QiI1+idhwIB42XleR6aoP1N6F4sF6 + wjrVSEgllJ0HKq8II6+B5gcT10D+wAE31hi8VQAfkXxU8r8ZvkbzPc6IwOe4iQp8s+H8fZrurNfdluwD + +UMnyOOtCTboSyDw5wR+thY+Dz3f34C68ytwxcagm97nbTimD7CxCI4EC+EDQw2+TqnBfdwgzGqybYqD + XstDBz2kbNNDsp0e7m/RQwJts/iv9RD3lT5uUcHFUshvrtUnz/WZXPadxeTt9L7ymq5BwLsYi2RRfLng + k00dGe5u7Bnvcd5mHCkuNg63GrzO5Py/cvgweleojAWMjNTI6DDUf1xHgv/EMnid36Gjf9x7/wMnvqh0 + /X/C3gAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAvFJREFUOE+l + kmlIVFEUx29JY+MsvpESJMW0UEy/ZH3QkiJCCIKIgsAUW0Sk1PBDaYGVKGpUmqmoKZpLKJnmmpqm4jgu + uaE4uaY2mvs6M80445uZf9dRyqBP9eH37rnv3fO7nPMOAfBfkGlJQMnIOxf2S7YFBguOsLIGv5LuNBHp + SBGRtkSGNCcwpCnOnDQ8NSe1seakKkpIKiKEvwUjhS7shvIbDDo1q1UMoy/PiSWE7N6ByV/YfL8lkGZZ + AIZ1GDRdgCobmtlHaHnJQBzPoOGZOepihaiOFqIyUoiyxwJURVuyzamHyjclRkFvBhXoV4Ef6YAiGobV + cOgXgqGbC4ZeUQHdUg7YmThsTIRBM+SHlZZzyL/Lp5mEYxR0p4oAdgr6xTDoZm+DlflAO3oR2gFPaHpP + QN3pClWrM5RiByjq7SH/aIvcEKOAaxS0JzEwqHtp0hWsS8/jTYgd0nw5FNMd6zbXttnev7puCiJ5wUC3 + XANVx0kMlV1CfZo37YmWlqWkjZ2j4SD0qibo1vLBLj6BdioQ6+NeGCh1pT3ZJyONzxloJzMhr3NERfRx + zI/WQ7+WTmuPATt/nyb404QLUA25QdFHy+ixgbzTGiXhfDTGM/6kKlIAtTQK4+9PoTr+NL24AhtTN6GV + +UIzdhmqYU8o+49B3mWP1TZLLEssMVxkgeIHPEXWLS4hhfd4ULQHoSHZHZM9qdBMeEE96AGV1B3K3qNY + 63DAisQKi40iLNSJMFfNoCqKj6KHZgk5d8wIyQrgYqbWB+UxDnQGEqDsOgD5Z2ustlphqWk/Fj4JMFfD + x0wlD99LeBjO5aEw1EznaL3bJi+ECjL8+Kw47Qz6PwRiqc0NMzU8TNPDU6U8yIp5mHhrhrECLr7mcjGS + yUV1BBeZQXvF9DcKXwfSEopD7epSbgiQ6G2KxKubcP4g6Ve89S3Zh2M462ziQQV7Er05dNmabSHFimJN + saXYUw5THCiOFKcdHKTQq8ku4yBtPv4dkJ+NhWIUmUJFdQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAB/tJREFUWEfF + lnlQlOcdxxdTkV32eJfNCgGEgIJAPKq1TSeTNrE2bdqp007SSY9I2kziMZrRaNVpa2qNVk3iEeMZD1A8 + 4i0g2iiHEEAU5FJE5BJRlGuF3WVhl112v/0+lMUFMf5V+8x8huHh5f18f8/ze3YfGYD/K0NOPk0GD69v + 4YljKMGTcA8hGEae6eM7gxBzTwwxlOBJuMewu7kfbrqVMtVYvk+H63v9cC3eD6V7yC4/1KTNPsZnhovn + iNflLZIsb7Mku7hJkuVslGRZG8h6jSzjM40s7VONLHWtRnZutVr271Vq2dmVatnpFWpZ8nLVYwOIyp6p + PT3V2NmUyzlXH85+6rMXofL8TBHCWzxLRJDH4V5FT8R8/wrypY8EGF7OqnvFrg7AXgh0JpA9gOVLoGML + 6tJ+ivIzbx/ns75E3ofCAzHvRumB+3kRvjfI4ABickRZXF+A7nyK4yjeSfFW8jlZB5jXoObcK8j5XMI3 + GyRkrtPgwmcapH+iQeoaNc4RLjnOrFSDS47kf6qQ+A8VTi5TIXXdKFPmtshtwtPneySAT+luEYBL3rmL + 8u2UfkHWU7yWrASMH8HVthTO1gVw2bhCPQ8ARyNc3XVwWW/A1VkApymd0yfR07wHjob1sNctQ3fVXDRk + vIazawJM9IgVEVvyaIASNhvfSvnm/4pNn8Bl/JhQbFgCZ8t89DTORE/DO3DU/wH2W2/AXv0r2Ct/BlvF + q7Bdexm2khfRVTQZXQUT0Xl5PCx50bBkR8KSFYFDi5XCpiXiVPVvgxgigLxoh5Y7YKdwLVztKyj9O6td + hJ6meZS+R+kMSt+i9DforvwlbDemwVb2I1hLXoK16PuUfpfScZTGwJIzFh1ZY2C+MBrm9DCYzofiwMLe + AM8ScZoGBBBL4ntlm8QAVla6lJUugOPeHErfRcnJWBxYEI7tM7y/heFDzD2ehHmSI3VDZKJnACXPNlw9 + Bjhuv8+9i0V39VsoPfk2Lh78C8yt9XxWDPcR5VZxtURgOM1E9EMDp6rYH8VwdX0DpyWZfzoIp3En+2ID + HK0fw960GN335sJQ9ib2f6B28EX9AVR5XzCAtRq2yje5vNO5pz9H8qoX0VjFzwZnO2BNhcu8g9uzhs34 + V27RHK7WH7lF0+G4Pw2OOy+R78F+ewILGI/uW+Ngq30BtuoYWKti0FVJbkajsyIK7cWRiJ8lF5U8DCCO + V48xl3s6jY30ClqzX8fhJREstgku00ZKl1O6gH3xJzib3kDP/dfguPsypVO4auPZHzHoro1Gd00UpVGU + RsJaGYmuikh0lrMRyyNgKRsDy9XRKEzwx9lVUok7gOhKTfZGiafqGJvoB7DkTkbJV79GwfGlcFmOUDoL + zubfwdn4Czbkj3ul9nohjYK9NpLCCNiqIigcA+vN0ei6EU5pOCzXSVkYpWHoKHkepuJQmIpCkfSRClmb + tHM9A0iZ6yUu2UZ27jiY0qNxevUktNSmsiGnUzqV1f6QlU7slXbXhLNHwikNpzAM1oowCp8noei8HgrL + tRB0lIbAXBxCYTBMhcEwXglGe34QGtIDcOhDhSNulk//KRABtOLTrPPqQhi/Ho3GlCk4sXwsGymFJ2ES + HHXRrJTSqlD2SCilIbDeCGGloygMZpXkajCrDKKUFAXCdCUQxoJAtF8OQNulADy4GABDjj8u75S4/Mr8 + uNkPA4hzqTvDj05z3u/RljwKxft/gqLEeWyuWJ77UJ77YNhuBrPSIHSVB1EaxCoDYSklJYHoKA6AuTCA + 0gAY8/0p9Udbnp5SPaV6tGbp0XLhWTSn63BqmRIZ69Tv7p2rGBjg1N+UMKa9CsOJ53BmbRQMVbsoDaSU + lD+HrusB6LwWwEpJiT+lIynVw1Sgp1SP9kt6tF3U4UGuDoZsHaV+lJJ0LZpTtWg6r0XtCQ2OLPZ10Oe1 + 74OBAfSHFylgSJ6AO0eikLImAvbGZegqG8lt0bNSUqJHRxG5ooO5QAfTZR2Ml3Rov+iHthw/GLK0MGRq + 0ZohoSVNolRC09caNJ7V4F6KGg1JauRuUuLMCt98ESBh/sAAIxPmKdByPAzFeyejNPG3PD5TKNXBUqRD + R6EfpVqY8rWUaimVWKnESkmmBq0XNKxUjebzKkpVlKooVVGqxN1TStw54Ys7x3yRuEyBpOXyd0SAgwsf + BhDf0/673/NB00Eu/+pRaCmdA0uhltUKqUSphPY8CW25ajzIUrNakqFGaxqlqUpKlbh/VkmpLxpO++Ju + ogJ3TpKjctw+LEfdITnKd8txbInCTpe4H3jtXzBwBfy3xnqjdl8IklcGw8xPQUMOJdmUZKq4l0o0p1FE + WeNgWRJFp8gJBeqPKXD7iAK3DspRe0COmn1yVO+Voypejox/yXF0ibyIrt4Ag3tAF//+CHPGp8HI3TUJ + DeeCUJ/k28vtU76o48tvkdqjCtR8RQ4pUE2qDihQuU+Bm/EKVJAbcax0F9khx/XtcpRtk+PqZh8UrPfB + ofk+WBfrPZcucTvy2uNxDHu/jOJnyvfEzVZh64wRxLvvpxv3797YxpV6ODeYgc+62fnnEUiYNeIuPSOJ + KNhrywzv/gC9d0KiJv5kFAkj4WQ0GdNHBIkkY0kUiSYxfbxAxpHxZAKZ6IGYF/8v5D5kmBC7cY/emzER + DSkecl863XhePgdfQD3xvIy6EfPiHaJIcfkZeCkdnIRDhPmf4Cnu9w41+TQZcvJpMuTk0wOy/wCPKdZL + 5FHXfAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAyhJREFUOE99 + k31MlGUAwNHws5tMiuJU8ooYbCxYQmAbDZqwHVvcJpfd6ciJ6ZVSmRsz24wl3MI4BcMPElE5rxMQuOmQ + svT0YAcBDSaoKPbh1AjwAz3g4sbXr+d5d2vrH5/t98f77P39no93b4B/zBLMFjzjJ1Awx89cwTzBfMEC + wUI/cl56AbMq3HddO6r7ec/yK3V1dU/lnd1ujHs7MR1pahGuDAfMlnLPE1hb3MXTxszMDDpzK5ZmD7qC + VoS7SAYCc0/do/M+vF/arbxYX19PbW0tNTU1VFVVYbfbsdlsTE5OsrqwjW9cj9HmNctAsAzM2f79HX4Z + gA1lV5WAHHK16elppqamFHFiYgKfz8caSwdfO4dZ9YVTBp6XgbmfVv5JUz9sPtqrSMXFxVgsFoqKiigs + LMRsNpOfn4/X68VY0knBxQe8lfuTDITIwPwtFbe4cBs+OtH3v9XGx8cVaWxsjJGRETweD1kHrrD75yFW + bmuUgRdlYMGmshuc+32aj22/kXPyFlutfWyp7OPD4zcxHetlc0UvH5RfZ+ORa8ox834cZMXWszKgloFn + 15f24LgxSVW3j+Nd/1DWPsp+9xOKXMOYnQ8puPBAWfWr80N8+cMguxoHeM3kkIGlMqBau6+L6ms+Gm76 + qL/u5dSVMaydHo51POZo2zDlbY/4ruURh90POeS+z86Gv4jKPi0Dy2RgkX5PO9YuLw4h5+TkYDKZyM7O + JisrC4PBQGZmJhkZGWi1Wkqbh/j8zD0i1lfLwEsyEKQraKG8Y5Tq7lGMRiN6vR6dTkd6ejqpqakkJydz + QIgJCQl8e3mQXMcdNOvsMqCRgcXaPBcHWz3YxbbT0tJISUkhKSmJxMRE4uLiiImJodQ1RGRkJCXOv9nu + uM0yg00GXlECb++8SEnTMCfEmePj44mNjSU6OpqoqCjCw8PRaDTsvzRAaGgo+5z9bDv9B0vetf63g4WG + Pefa3/yskTc+aSAiIkIRwsLCUKvVhISEEBwcTFBQECqViqVrrKj1lbxuqugR7nMyIH9jleAFwRKB/DTy + dsME8pKWC14WyO2GC171Pws5IPBfDmYv4LBg9lUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAACN5JREFUWEfF + lgdQlOkZx8/rPZfc5XLJZTJJJuVii0aNM6eeSK9LEQFBQKqIgAiLwCFFEaVz9BPU86IiFhAQY0FPUeRs + qKcgIhY6i7BLW5bOP8/z7bK6aCaTSTJ5Z377uR9+7///lPfZ7yUA/1eUHy9e0/5LvPwMk/eE9SIDkw+8 + MoVX/wmvPcPrU3jjBfB9fk4wMTX4abEF92zjjtaXxxXWI7bgPvyzruHgkeL/CJ+MKohzbwhsyL5S4ZV4 + dhVpqU1MLv7yComWX6iRYmwcGCUCvq4ik//empiEPhi/rBt4IB1DnXQUBy42wyetsoK03iQ40+rFBl7d + TlGPjk9APjKOjoExcn1T2PRfrWcF6XEN1u+4haq2EdxoHUFtxwjWZVzmvL9DcGnViw28FnO4DiP0VHvf + GNqIjbtuKxVo5ebmIicnB9nZ2cjMzERGRgbS09ORlpaG1NRUJCcnIykpCYmJiUhISKAsTgjBBOTewZXm + IVxuGkR1+zC8UivZwHvEcwZejz5Yi+GxCTT3jKGRCNlTrZJ/uigojUi5XMqSKQWH6csw1Y8ZIsS7qlHR + OIiLDYO41TaMNSmX2MD7BPeBenE93ticf5cemsBD2SgedI3iy721SlVa0dHR2LJlC6KiohAREYHw8HCE + hYUhNDQUISEhCA4ORlBQEMRiMQIDA9E/OCqwcU8Nzj9U4BxR1TIEt6SLbODHxHMG3ozMq4GCDNR2juAu + 1Ss8r46inFCmkzIzRL3BDAyPQT5EkEDf4Ah6FcPoGVDSTcj6hwSkfcMIpSDK6hUouz+Aq82DcIk/zwY+ + JPjoqhcbeCtiXzXkw+O4LRmidA0hMv+BSnQMPj4+8Pb2hpeXFzw9PeHh4QF3d3e4urrCxcUFzs7OcHJy + gqOjIxwcHCDpHkC7TI4v99ehtFaO4/fkuESlcNz+HRv4iGAD6qPIBt4O+/YO+obGKVWDuEpNs/nwY8gp + uj7FELrlHNUgpMSTHgU6CEm3Am2yAbQyXXK0EE1d/Wjq7EPTkz40Epsoi0U1/QIXHytgH32GDXxM8FBS + G+COfCf4mx/QrRhHZaMCFQ0KbC1ohKxPgS7iSc+AEJUgOCnW2Y8GEnlMPJL04qGK+rYePGjtRj0RkV+H + I7f7iF7qAznsNp9mA58Qzxl4N2jXTXTR+S9/pGyamKIWSGT9lMp+EqXISKihoxePiQftJEDcb5XhXgvR + JEUtcZeoaexCtYqoQ/dx4FYP8m72Uh/IYRN1ig38guDRrGHgvYCc6+iQj+FM/YDQNGxgW3EztpcoiT3W + jLiSJsSXNiP+WBMSSpuQKNCoJuFYA+KKH2N70SPEFDzElsP3sfd6D/5W1Y2T1AvLw0+wgV8Szxl4f33W + VbT2juJEnRwn7vWj9G4/Smr6UEwUVveh4E4vDv/Qg4MER7X/JlHVg70Mi1zrxjfEt1e7sVvFrqsy7L7S + jZ2Xu2m/PliG/Z0N/Irgcaw2wGfyRz40Jhu6R1BCwoLoHRK9rRTM5zTe6ME+QinWI4ixALPzigy5zGUZ + ci5LsYOu2ZUyZBHZlVKBQgpAFFrKBn5NPGfgAx6T9V3DFGmPEOkBijCP2MeC15XR7aKoBCEi53sZdhCC + 0CUpMokMpkKK9ItMF9IvEHRNIw7RXqbBJWzgt8RbhIaBn3imVKBaMqgUpbQKoiS4kyLkyHZQZFmVXSTW + RSIECwibdyL1QidSypUkn+9E0vknSDqnJFF13Vclg0lQMRv4HaFhgIfCh+5JF3CtWSHUcjenlVP5PaWP + BDOZik5kklg6kVL+hIRUnOsQrknfdSCRiCfiVGw/85Q9V6QwEhexgT8QbxMaBj5yiS/HhUdySi8JU81Y + NCouC+Hb0hAanYKgyERsCIuFX3AMvMWbsWZDJNz8NmG1dwgc1wTBwSMQdm7+sHHxg7WzL0xWuGBbWQe2 + npIgmsih7BkEFrKBzwi1Af5gAz91ij0ndH8mpZejZEIi4yEO24b1IVuwThyJtf5h8PANgat3EJzWBMDB + 3Q92Lr6wcfKGjqEIusZW0DOxhoWdOwxFdog5KUHk8XaBLCqPvn8BG5hO8DuBhoGPV8WcRSE1XyqlM/F8 + B76iq594E9ZtCMUa341wWxuA1Z7r4ejmA/vVXrB19IS1vRss7VbD3MYJWrrGiKOIw0raYGbtCF0jC0Sf + bKfvrQJfUUl01h9hAzMJDQM8Fj9ZGV1GR0wq1JBrxrX1XOcPV08fOLutxarVnrBd5YoV9s6wsnWEhbU9 + zJevhMjKDmaWtliqrYd4MhBMA8zEfAWW6RgIGdh4tEW4l1AmgbbvITYwm3hXpa028HObyJP4muoec1qC + reQ8mYw4unjAwckVtisdYW1jDytrO5hbroDIwhpm5stham4FE5EljM0s8IWWNpLOSiAubIahiQiLv1iG + 2FPtCChohpjYRntq+RxkA3MIDQM8Fj/lMZlColEn2hFxvI026yBhB1ivsIWllTVE5pYwE1nA1MwcJqYi + GJuYwdDIRMDA0BhLliyl5yXwP9IEPX1DfP75IsSdbof/4SbhXtTxVnzhnc8G5hL8WqaRgU8two5jK4mH + l7YJNUuiMlhYWMDc3BxmZmYwNTWFiYkJjIyMYGhoCAMDA+jr60NPTw+6urpYtGgR0ql3/PIboa2tjYUL + FyKprB1+BxsRSCY2FbdgifcBNvBnQiMD3IQ/M/LPr/LIuo6QolYEU92SKZ0ikUhDeKqojo6OILZs2TJo + aWkJLF26VGD+/PlIo4z6H2oiA81wSLyEvzpn1ZAWzwGNQST8GC1aleCr77v/hvHGIhjTwDAUH8WCBQuE + jebNm4e5c+dizpw5ArNnzxaYNWsWZs6cqWbGjBmYPn26AP+bI168Ng+LvfKwwDHz7mcGGzaR1tP3AXrf + pKu6DB8Q/Fv9G+L3xB8JHhrMnwg+vzMIPkazVHBHc0q5sbi2f1ExT8V8Ffw33ofFOfqXBW2VAV5sgn8T + uCH5P/CkmoTP7FS4hlPhxnoR/BrOV96LA+VXwGlTDUwuNvI/hTWV4KV/ACvHiaz7dIg7AAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAA0VJREFUOE9d + k31MlHUcwNGw9XKLRaOBSl0Rg40N1iBYGxu0wQZ/QItTD42s25RCzLI5tbnelpVxgUgaJqRcIh0vx9qw + v0o97EjQvDw0OF7KxHgPjuPeHu7l+fR7nlhb/bbPfnu25/P5/p7f9kStrjWCtYJ7VokWrFN43zLOe51j + vNMxyiGzk7fbnOxvHSYYlodcy9548U7UmmbbhHW/eZItxmt0dXX9h0PtI7j9YWbdQf6YD+Cc8vFWy01W + wiCF5CElsFaRB5dga52d/68DrUP4gzIuX5iZ1cieZge7m26w68tfUALR+9rucn0OXmpwqJLFYqGzs5P2 + 9nYx7ZY6zbcisyAiU64gYzN+HBNedp74WQ2s29t6hyvT8ErjTTWgLFmWiUQi6jRJBAIhWJZk5j1hJkVk + fDaA4diAGrh3T8vv9E7CzqYhVaqrq8NoNFJTU0PVSTt+IfuC/7AUkJlbDjOxGKSi9ooauK+qeZTvb8Nr + Z0YIhUIEg0EkSSIQCLDj+DVV9KyAV+zLYl/wyUy7w5R/+qMauH9H4zDnxyPsPjtG9dej7DKNUNUywqun + nbxc36/KiuhWkMAVgHlvhE0f9aqBB7c3DNI9HOIbh8Rpu5/GAQ/1tiVqrIu8+Fkf24w2Mc3Glk8us/nj + XnSHrbxw+BLPf3BRDWi21tox35LocUpYfvXRdsOL6bqbr666aOpf5FT/Aif7FvjC9hcnbHMc7PmTVEOH + Im9UAg/pjgxgsvvoFnJ1dTWVlZUYDAYqKirQ6/WUlZVRUlJCUVERDZdnOfDtXZK3m5XAY0ogpvTDPk5d + 9WB2eCgvL0en01FaWkpxcTEFBQXk5eXxuRCzs7M5dmmGfd130G47pwS0SuDhonetHP/JzTlx7MLCQvLz + 88nNzSUnJ4fMzEzS09NpsM6SkpLC0QtT7O2+zUb9WSXwpBp47uAPHO1d5Iz45qysLDIyMkhLSyM1NZWk + pCS0Wi31F6eJj4+n9sIkb3T8xvpNpn9P8ID+yPmBZ9/8jmde7yE5OVkVEhMTSUhIIC4ujtjYWGJiYtBo + NGzYbCJB18LTlc2Dwn1ECSi/sUbwqGC9YINAud1EgXJJjwueECjHTRI8tfos5KjovwF/WHaDD7eNEwAA + AABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAACSFJREFUWEfF + l3dUVOkZh3V7z57UTfafJCebbGzRqPEcK70NDEUQFFE6iHRBQKQXAUEFBF3QuJZFUEFAWAtrAVkLyloo + LgIiQ28zwzAzwADzy/tdhtERd8/JHzm55zxcytz7e973/e43wxwA/1emv7z+mPvfkFIuQHJZO/aUtiG+ + +Bliz7ciurAFUWebEXmmCbvymzCmmLRnrw060TAn8Hj9awXYzd4g3nyFt36Ct2dIKGmDYlIJ6fgUhLIJ + 9IjG0dY/isYuKWpahhF8shETU5iUyEYd6PVzfY48mlX83KTCH22TzzdXJhc1I6nwKfyz76HgXMnPcrqg + CMdO5CGmsBWUj/EJJUZGpzAkfSHxWDCCgGN1JAiMTWJqWDotMR07fbAf3qTQyqqGIUxOgdki8HAtSf70 + oVQqoVAoMDAwgN1nnnLXMMZIQkISgyTRRRJPe+Twzn2IcRJgkMSkbJwbh/pgAm/toaonpqiNiin0ySYR + lPtAFfX6Y0agnwRC856ALlMzqlBimCQGRibQKRyHx6FauGfdg2tmDZwz7sLxwJ1Zs3874WwTXaxEj2QS + 3cTOo49VUUBubi5ycnJw6NAhZGVl4eDBg8jMzERGRgbS09Ox43gD1+KZKhlMQqyS6BgaRxN14pFAiju0 + Jjan3Zol8E5cwRO6UIkO8STaidCv61XxLw4aM1UOkCeNSonRMQX6+gfgd/SROphaPM0EIBtXQiSnjkom + ICCJp72jqCMJ26QqDQG28t+NyW/k5tcqnEDL4AR2nXwynUpHXFwcYmNjER0djcjISERERCA8PBxhYWEI + DQ3F9pwH6tDRl5ATUpIQkkTv8ATaVRLrEypnCbwXlddAFyjxZECBxj4FIvKaqFIlV+kEdWaMhsugBQQp + pY3IFRiSyNDW0Q2P7PsaoRyKaWSEZEyJQdkUelQS5jFXZwm8H3mqnnuOH/eO4WH3GKLyW1Shk/D29oaX + lxc8PT3h7u4ONzc3uLq6wtnZGU5OTnBOv6sRzEJnkDLGgWGSGJBOoVs8AV7EFSagfhSZwAfhx+vIdAq1 + naOoEYwi5mwbpPJxSORjEEnHIBwZxRDRL5ajj+gRyiDoF6O+RUCL6vbsUGKEQeEziEaV6B+ZguGuSxoC + bLf7MOTYI27B3GqXo/q5HPGF7RBK5Bgk+sUy9Ipk6KbQrkEpOon2fglauofwoOk57JKr1aFc8EuhEhXD + Y9MI5Uro7iyfJfBR8NEHNKdJVD6T43qrHAnFnegVjlClIxQ6QtVK8LxvGG1ES48Izd1CNLb3425dC2wS + bvxsKEOsQkRo7bgwS+DjwJz76JNO4rtmGSqeyjiBxJIOeoOZJulCB5JLBUgp60DKBQH2lgmQytEOi9hr + 6tCXg2dCZ4JFo9QBYm1AySyBT/yya9BFq/RikxQXfxxBWeMIShskKCGK6iUorBvG2UdiFBCnH4rxzQMx + jt8dQua1LphGVsCEFpZx+GVuvgahF6EX8i10gsuhHVTGVcxC1/iXYLVfMVb6ntcQYO9sv/A+eAfPRQqU + UjAXWkehj6cD8ykw7wcxThEn74tx4p4Y/64R4sidIWTf7EXaFerSt21IvPAMCRdaEU/n2NJniCFiS1s5 + sq8+Bz+sjAX/kXiP0BD41DP9FpoHx6lSMVfpaaowjzjFAu+LcOyeCEdrRMi9K+TIuS3E4dskUE1dqOxH + +o0+7Gdc78O+a4xe7LtK0DmNOHV3EKYhpUzgz8T7hIbAL933V6OedikutFYVSoFHqNLcO0J8xaq9NYjs + 7wdxsJq4OYhMIr2qHweqBrCPJPYT+270I41E0kiEkao6n6odAi+Ym/1fCA0B9qHiV65pVbjXIaf2itTt + /YoqPESBWYzqAWTdHKDQAXUQB6uYhVLVqUQKkaxiz3cv+JrWi3FQMRP4K/EBoSHwa6eUSlQ9k1J7KfjW + EBcanZyNiMQMhMXtR3BUKgLCk+AbkgCvoBh4BETBxXc3HL1C4eARDHu3HbBz8ccGJ19Yb/UBz8YJiRV9 + iL/cizgih7pnuKOICXxJqAXYFybwmy1J17nVn0XtZVUyQqNSEBSeCL/QWGwPisI2/3C4+YTC2SsYWzwC + Ye/qCzsnH2zY4gVdIz70TKygz7OGhZ0rjPh2SLjUi6jyHo7sygEY+BcygXnEh6pstcBvNydcRREtvnRq + ZyrN8ACdfYN2Y3tAGDx8dsJlWyAc3f3g4OKNTY6esHVwh/UmF1jaOcJ8wxZo6ZkgmSoOL+2GmbUD9Iwt + EHeph37u4jhAI9H1O8cEFhAaAu8Qn22Mq6BHbIibIZsZm637dn84u3tjq8s2bHZ0h+1mZ9hs2gorWwdY + WG+C+fqN4FvZwczSFut09JFCAiG0gfHMbaCta8h1YOf5Tu53eyt6oeNzhgksIj5SZasFfr8h6hIO09wT + rvQinszZo+Tg5Ab7Lc6w3egA6w2bYGVtB3NLG/AtrGFmvh6m5lbg8S1hYmaBtVo6SKPHLqioA0Y8Plav + 1UbS5R4EFnYgiEike2p5FzCBxYSGwLvE5+sjLmI/hUZf7EFkeTfdrI+C7WFtYwtLK2vwzS1hxreAqZk5 + eKZ8mPDMYGTM4zA0MsGaNevo+l74nxNA38AIK1euQvKVHvifFXC/iy7vwlqvfCawhPhYla3uwOcW4eWI + p/CIsm5uZmk0BgsLC5ibm8PMzAympqbg8XgwNjaGkZERDA0NYWBgAH19fejp6WHVqlXIpLXjm98OHR0d + rFixAmkVPfAtaMcOkthd0ok1XqeZwD8IjQ6wRfg7Y//8Wjf6ZBNa3IUQmhvbxfh8vkbwq6G6urpcmLa2 + NrS0tDjWrVvHsWzZMmRQR/3PCEigA/ap3+NfW7MbKIvtAxobEfdmtGrzXh8Dn29+MNlZDBPaMIyCzmP5 + 8uXcjZYuXYolS5Zg8eLFHIsWLeJYuHAhFixYoGb+/PmYN28eB/ueVbx6Wx5We+ZhuUNW45eGAbsp6zOC + dX3uzL9HM2P4lPgD8SfiC+JvBNs0GH8n2PM7n2CP0UIVbEWzlrKFxWb7TxVLVSxTwf7G7sPCWfVvcNkq + AXYwCfaewBYkewHbqWZgz+yrsBm+CltYr+MT1ZndixXKPgLOfVVg5mAi/1NY5jSY8x++L0nhrRHArgAA + AABJRU5ErkJggg== + + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.vb new file mode 100644 index 0000000..c7f57e2 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichEditUserControl.vb @@ -0,0 +1,81 @@ +' Developer Express Code Central Example: +' How to create a PropertyEditor based on the XtraRichEdit control +' +' Take special note that this editor is intended to be used for a simple and most +' common scenario when only one text property in a Detail View is edited with the +' help of the XtraRichEdit control. Other scenarios are not supported in this +' example and are required to be implemented manually. For example, if there are +' more than one property, edited with this editor in a Detail View, then there may +' be problems with merging in ribbons. See the issue for more detailed +' information. See Also: Implement Custom Property Editors How to: Implement a +' Property Editor for Windows Forms Applications XtraRichEdit Home +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1509 + +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.XtraEditors +Imports DevExpress.XtraRichEdit +Imports DevExpress.XtraBars.Ribbon +Imports DevExpress.XtraBars + +Partial Public Class RichEditUserControl + Inherits XtraUserControl + + Private _EnterMoveNextControl As Boolean + Public Sub New() + InitializeComponent() + Me.richEditControl_Renamed.Document.Sections(0).Page.PaperKind = System.Drawing.Printing.PaperKind.A4 + End Sub + + Public Property EnterMoveNextControl As Boolean + Get + Return _EnterMoveNextControl + End Get + Set(value As Boolean) + _EnterMoveNextControl = value + End Set + End Property + Public ReadOnly Property RichEditControl() As RichEditControl + Get + Return (Me.richEditControl_Renamed) + End Get + End Property + Public ReadOnly Property RibbonControl() As RibbonControl + Get + Return Me.ribbonControl1 + End Get + End Property + Public Property RtfText() As String + Get + If richEditControl_Renamed IsNot Nothing Then + Return richEditControl_Renamed.RtfText + End If + Return String.Empty + End Get + Set(ByVal value As String) + If richEditControl_Renamed IsNot Nothing Then + richEditControl_Renamed.RtfText = value + End If + End Set + End Property + Public Property MailingDataSource As Object + Get + Return Me.richEditControl_Renamed.Options.MailMerge.DataSource + End Get + Set(value As Object) + Me.richEditControl_Renamed.Options.MailMerge.DataSource = value + End Set + End Property + Public ReadOnly Property MailingInsertItemLink As DevExpress.XtraBars.PopupMenu + Get + Dim _RichEditUserControl As RichEditUserControl = TryCast(Me.RichEditControl.GetContainerControl, RichEditUserControl) + Dim _InsertMergeFieldItem As DevExpress.XtraRichEdit.UI.InsertMergeFieldItem = TryCast(_RichEditUserControl.InsertMergeFieldItem1, DevExpress.XtraRichEdit.UI.InsertMergeFieldItem) + Dim _PopupMenu As PopupMenu = TryCast(_InsertMergeFieldItem.DropDownControl, PopupMenu) + + Return _PopupMenu + End Get + + End Property +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextView.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextView.vb new file mode 100644 index 0000000..a448693 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextView.vb @@ -0,0 +1,25 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RichTextView + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property RichText As String + Property ObjectType As Type + Property ObjectGUID As Guid +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.Designer.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.Designer.vb new file mode 100644 index 0000000..38ed917 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.Designer.vb @@ -0,0 +1,81 @@ +Partial Class RichTextViewVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewRichText = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRichText_Save = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRichText_SaveAndClose = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewRichText + ' + Me.aViewRichText.Caption = "aView Rich Text" + Me.aViewRichText.ConfirmationMessage = Nothing + Me.aViewRichText.Id = "aViewRichText" + Me.aViewRichText.ImageName = Nothing + Me.aViewRichText.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRichText.Shortcut = Nothing + Me.aViewRichText.Tag = Nothing + Me.aViewRichText.TargetObjectsCriteria = Nothing + Me.aViewRichText.TargetViewId = Nothing + Me.aViewRichText.ToolTip = Nothing + Me.aViewRichText.TypeOfView = Nothing + ' + 'aViewRichText_Save + ' + Me.aViewRichText_Save.Caption = "aViewRichText_Save" + Me.aViewRichText_Save.ConfirmationMessage = Nothing + Me.aViewRichText_Save.Id = "aViewRichText_Save" + Me.aViewRichText_Save.ImageName = Nothing + Me.aViewRichText_Save.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRichText_Save.Shortcut = Nothing + Me.aViewRichText_Save.Tag = Nothing + Me.aViewRichText_Save.TargetObjectsCriteria = Nothing + Me.aViewRichText_Save.TargetViewId = Nothing + Me.aViewRichText_Save.ToolTip = Nothing + Me.aViewRichText_Save.TypeOfView = Nothing + ' + 'aViewRichText_SaveAndClose + ' + Me.aViewRichText_SaveAndClose.Caption = "aViewRichText_SaveAndClose" + Me.aViewRichText_SaveAndClose.ConfirmationMessage = Nothing + Me.aViewRichText_SaveAndClose.Id = "aViewRichText_SaveAndClose" + Me.aViewRichText_SaveAndClose.ImageName = Nothing + Me.aViewRichText_SaveAndClose.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRichText_SaveAndClose.Shortcut = Nothing + Me.aViewRichText_SaveAndClose.Tag = Nothing + Me.aViewRichText_SaveAndClose.TargetObjectsCriteria = Nothing + Me.aViewRichText_SaveAndClose.TargetViewId = Nothing + Me.aViewRichText_SaveAndClose.ToolTip = Nothing + Me.aViewRichText_SaveAndClose.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewRichText As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRichText_Save As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRichText_SaveAndClose As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.resx b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.resx new file mode 100644 index 0000000..24470e0 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 147, 17 + + + 307, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.vb b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.vb new file mode 100644 index 0000000..a6ee5f3 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/RichTextEditor/RichTextViewVC.vb @@ -0,0 +1,76 @@ +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.Data.Filtering +Imports DevExpress.ExpressApp.Utils + +Public Class RichTextViewVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of RichTextViewVC).aViewRichText.Active.SetItemValue("", False) + Frame.GetController(Of RichTextViewVC).aViewRichText_Save.Active.SetItemValue("", False) + Frame.GetController(Of RichTextViewVC).aViewRichText_SaveAndClose.Active.SetItemValue("", False) + + If View.Id = "ContractTemplate_DetailView" Then + Frame.GetController(Of RichTextViewVC).aViewRichText.Active.SetItemValue("", True) + End If + If View.Id = "RichTextView_DetailView" Then + Frame.GetController(Of RichTextViewVC).aViewRichText_Save.Active.SetItemValue("", True) + Frame.GetController(Of RichTextViewVC).aViewRichText_SaveAndClose.Active.SetItemValue("", True) + End If + End Sub + Private Sub aViewRichText_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText.Execute + Try + If View.Id = "ContractTemplate_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractTemplate As ContractTemplate = TryCast(View.SelectedObjects(0), ContractTemplate) + + If _ContractTemplate Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _RichTextView As RichTextView = _ocur.CreateObject(Of RichTextView)() + _RichTextView.RichText = _ContractTemplate.DocumentBody + _RichTextView.ObjectGUID = _ContractTemplate.Oid + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "RichTextView_DetailView", False, _RichTextView) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + Private Sub aViewRichText_Save_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText_Save.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _RichTextView As RichTextView = TryCast(View.SelectedObjects(0), RichTextView) + If _RichTextView Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt") + + Dim _ContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("Oid=?", _RichTextView.ObjectGUID)) + + If _ContractTemplate IsNot Nothing Then + _ContractTemplate.DocumentBody = _RichTextView.RichText + If Not _ocur.IsNewObject(_ContractTemplate) Then _ocur.CommitChanges() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aViewRichText_SaveAndClose_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRichText_SaveAndClose.Execute + Frame.GetController(Of RichTextViewVC).aViewRichText_Save.DoExecute() + View.Close() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadFactoryService.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadFactoryService.vb new file mode 100644 index 0000000..a786b7c --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadFactoryService.vb @@ -0,0 +1,84 @@ +Imports DevExpress.XtraSpreadsheet.Services +Imports DevExpress.XtraSpreadsheet +Imports DevExpress.XtraSpreadsheet.Commands +Imports DevExpress.ExpressApp + +Public Class CustomCommandFactoryServise + Inherits SpreadsheetCommandFactoryServiceWrapper + Private Property Control() As SpreadsheetControl + Get + Return m_Control + End Get + Set(value As SpreadsheetControl) + m_Control = value + End Set + End Property + Private Property View As DevExpress.ExpressApp.View + Get + Return m_View + End Get + Set(value As DevExpress.ExpressApp.View) + m_View = value + End Set + End Property + Private m_Control As SpreadsheetControl + Private m_View As DevExpress.ExpressApp.View + Public Sub New(service As ISpreadsheetCommandFactoryService, _control As SpreadsheetControl, _view As DevExpress.ExpressApp.View) + MyBase.New(service) + Control = _control + View = _view + End Sub + + Public Overrides Function CreateCommand(id As SpreadsheetCommandId) As SpreadsheetCommand + Dim command As SpreadsheetCommand = MyBase.CreateCommand(id) + If id = SpreadsheetCommandId.FileSave Then + Return New SaveCommand(Control, View) + End If + Return command + End Function +End Class + +Public Class SaveCommand + Inherits SaveDocumentCommand + Private m_View As DevExpress.ExpressApp.View + Private m_Control As SpreadsheetControl + Private Property SpreadControl() As SpreadsheetControl + Get + Return m_Control + End Get + Set(value As SpreadsheetControl) + m_Control = value + End Set + End Property + Private Property View As DevExpress.ExpressApp.View + Get + Return m_View + End Get + Set(value As DevExpress.ExpressApp.View) + m_View = value + End Set + End Property + Public Sub New(control As ISpreadsheetControl, _view As DevExpress.ExpressApp.View) + MyBase.New(control) + SpreadControl = control + View = _view + End Sub + Public Overrides Sub Execute() + Dim _OpenSpreadDocument_Popup = TryCast(View.SelectedObjects(0), OpenSpreadDocument_Popup) + Dim _BusinessDirectory As BusinessDirectory = _OpenSpreadDocument_Popup.BusinessDirectory + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _OpenSpreadDocument_Popup.BusinessDirectory.FileData.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + SpreadControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml) + _Stream.Close() + + Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _OpenSpreadDocument_Popup.BusinessDirectory.FileData.LoadFromStream(_OpenSpreadDocument_Popup.BusinessDirectory.FileData.FileName, _StreamFile) + _ocur.CommitChanges() + + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadPropertyEditor.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadPropertyEditor.vb new file mode 100644 index 0000000..d7c0f5a --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadPropertyEditor.vb @@ -0,0 +1,32 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class SpreadPropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "SpreadInfo" + End Sub + Private SpreadUserControlCore As SpreadUserControl = Nothing + Public ReadOnly Property SpreadUserControl() As SpreadUserControl + Get + Return SpreadUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + SpreadUserControlCore = New SpreadUserControl() + AddHandler SpreadUserControlCore.SpreadsheetControl1.CellValueChanged, AddressOf SpreadSheetControl_CellValueChanged + Return SpreadUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + + End Sub + Private Sub SpreadSheetControl_CellValueChanged(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellEventArgs) + OnControlValueChanged() + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimplePropertyEditor.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimplePropertyEditor.vb new file mode 100644 index 0000000..a03f6e2 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimplePropertyEditor.vb @@ -0,0 +1,34 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Win.Editors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors + + _ +Public Class SpreadSimplePropertyEditor + Inherits WinPropertyEditor + Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem) + MyBase.New(objectType, info) + ControlBindingProperty = "SpreadInfo" + End Sub + Private SpreadSimpleUserControlCore As SpreadSimpleUserControl = Nothing + Public ReadOnly Property SpreadSimpleUserControl() As SpreadSimpleUserControl + Get + Return SpreadSimpleUserControlCore + End Get + End Property + Protected Overrides Function CreateControlCore() As Object + SpreadSimpleUserControlCore = New SpreadSimpleUserControl() + AddHandler SpreadSimpleUserControlCore.SpreadsheetControl1.CellValueChanged, AddressOf SpreadSheetControl_CellValueChanged + Return SpreadSimpleUserControlCore + End Function + Protected Overrides Sub OnAllowEditChanged() + MyBase.OnAllowEditChanged() + + End Sub + + Private Sub SpreadSheetControl_CellValueChanged(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellEventArgs) + OnControlValueChanged() + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.Designer.vb new file mode 100644 index 0000000..876d6d0 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.Designer.vb @@ -0,0 +1,110 @@ + _ +Partial Class SpreadSimpleUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SpreadSimpleUserControl)) + Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() + Me.SpreadsheetFormulaBarControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl() + Me.SpreadsheetNameBoxControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitterControl1 = New DevExpress.XtraEditors.SplitterControl() + CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + Me.SuspendLayout() + ' + 'SpreadsheetControl1 + ' + Me.SpreadsheetControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetControl1.Location = New System.Drawing.Point(0, 25) + Me.SpreadsheetControl1.Name = "SpreadsheetControl1" + Me.SpreadsheetControl1.Options.Export.Csv.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Csv.Encoding"), System.Text.Encoding) + Me.SpreadsheetControl1.Options.Export.Txt.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Txt.Encoding"), System.Text.Encoding) + Me.SpreadsheetControl1.Size = New System.Drawing.Size(467, 385) + Me.SpreadsheetControl1.TabIndex = 0 + Me.SpreadsheetControl1.Text = "SpreadsheetControl1" + ' + 'SpreadsheetFormulaBarControl1 + ' + Me.SpreadsheetFormulaBarControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetFormulaBarControl1.Location = New System.Drawing.Point(0, 0) + Me.SpreadsheetFormulaBarControl1.MinimumSize = New System.Drawing.Size(0, 20) + Me.SpreadsheetFormulaBarControl1.Name = "SpreadsheetFormulaBarControl1" + Me.SpreadsheetFormulaBarControl1.Size = New System.Drawing.Size(317, 20) + Me.SpreadsheetFormulaBarControl1.SpreadsheetControl = Me.SpreadsheetControl1 + Me.SpreadsheetFormulaBarControl1.TabIndex = 0 + ' + 'SpreadsheetNameBoxControl1 + ' + Me.SpreadsheetNameBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetNameBoxControl1.EditValue = "A1" + Me.SpreadsheetNameBoxControl1.Location = New System.Drawing.Point(0, 0) + Me.SpreadsheetNameBoxControl1.Name = "SpreadsheetNameBoxControl1" + Me.SpreadsheetNameBoxControl1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.SpreadsheetNameBoxControl1.Size = New System.Drawing.Size(145, 20) + Me.SpreadsheetNameBoxControl1.SpreadsheetControl = Me.SpreadsheetControl1 + Me.SpreadsheetNameBoxControl1.TabIndex = 0 + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.SpreadsheetNameBoxControl1) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SpreadsheetFormulaBarControl1) + Me.SplitContainerControl1.Size = New System.Drawing.Size(467, 20) + Me.SplitContainerControl1.SplitterPosition = 145 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'SplitterControl1 + ' + Me.SplitterControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.SplitterControl1.Location = New System.Drawing.Point(0, 20) + Me.SplitterControl1.MinSize = 20 + Me.SplitterControl1.Name = "SplitterControl1" + Me.SplitterControl1.Size = New System.Drawing.Size(467, 5) + Me.SplitterControl1.TabIndex = 1 + Me.SplitterControl1.TabStop = False + ' + 'SpreadSimpleUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SpreadsheetControl1) + Me.Controls.Add(Me.SplitterControl1) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Name = "SpreadSimpleUserControl" + Me.Size = New System.Drawing.Size(467, 410) + CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SpreadsheetControl1 As DevExpress.XtraSpreadsheet.SpreadsheetControl + Friend WithEvents SpreadsheetFormulaBarControl1 As DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl + Friend WithEvents SpreadsheetNameBoxControl1 As DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitterControl1 As DevExpress.XtraEditors.SplitterControl + +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.resx b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.resx new file mode 100644 index 0000000..fb82dff --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.resx @@ -0,0 +1,152 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz + UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt + E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq + U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy + bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT + eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5 + QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv + c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA + CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv + ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE + ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu + Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz + UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt + E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq + U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy + bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT + eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5 + QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv + c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA + CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv + ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE + ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu + Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.vb new file mode 100644 index 0000000..8b6dd89 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadSimpleUserControl.vb @@ -0,0 +1,22 @@ +Public Class SpreadSimpleUserControl + Private _SpreadInfo As String + Public Sub New() + InitializeComponent() + End Sub + Property SpreadInfo As String + Get + Return _SpreadInfo + End Get + Set(value As String) + _SpreadInfo = value + End Set + End Property + + Private Sub SpreadsheetControl1_CellEndEdit(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellValidatingEventArgs) Handles SpreadsheetControl1.CellEndEdit + If SpreadInfo <> "1" Then + SpreadInfo = "1" + Else + SpreadInfo = "0" + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.Designer.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.Designer.vb new file mode 100644 index 0000000..e1c3757 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.Designer.vb @@ -0,0 +1,4572 @@ + _ +Partial Class SpreadUserControl + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim SpreadsheetCommandGalleryItemGroup1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem11 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem12 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SpreadUserControl)) + Dim GalleryItemGroup1 As DevExpress.XtraBars.Ribbon.GalleryItemGroup = New DevExpress.XtraBars.Ribbon.GalleryItemGroup() + Dim SpreadsheetCommandGalleryItem13 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem14 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem15 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem16 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem17 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem18 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem19 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem20 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem21 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem22 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem23 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem24 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem25 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem26 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem27 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem28 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem29 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem30 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem31 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem32 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem33 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem34 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem35 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem36 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem37 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem38 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem39 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem40 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem41 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem42 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem43 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem44 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem45 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem46 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem47 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem48 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem49 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem50 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem51 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem52 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem53 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem54 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem55 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem56 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem57 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem58 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem59 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem60 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem61 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem62 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem63 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem64 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem65 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem66 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup11 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem67 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem68 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem69 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem70 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup12 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem71 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem72 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem73 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem74 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup13 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem75 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem76 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem77 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem78 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem79 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem80 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup14 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem81 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup15 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem82 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem83 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup16 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem84 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem85 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup17 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem86 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem87 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup18 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem88 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem89 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem90 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup19 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem91 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem92 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem93 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup20 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem94 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem95 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem96 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup21 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem97 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem98 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem99 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup22 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem100 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem101 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem102 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup23 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem103 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem104 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem105 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup24 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem106 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem107 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem108 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup25 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem109 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem110 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem111 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem112 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem113 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup26 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem114 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem115 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup27 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem116 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem117 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup28 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem118 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem119 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem120 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim ReduceOperation1 As DevExpress.XtraBars.Ribbon.ReduceOperation = New DevExpress.XtraBars.Ribbon.ReduceOperation() + Dim SpreadsheetCommandGalleryItemGroup29 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem121 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem122 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem123 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem124 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem125 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem126 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup30 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem127 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem128 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem129 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem130 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem131 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem132 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup31 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem133 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem134 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem135 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem136 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem137 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem138 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem139 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem140 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem141 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem142 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem143 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem144 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup32 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem145 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem146 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem147 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem148 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem149 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem150 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem151 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup33 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem152 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem153 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem154 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem155 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem156 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup34 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem157 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem158 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem159 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup35 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem160 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem161 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem162 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem163 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem164 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup36 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem165 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem166 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem167 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup37 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem168 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem169 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem170 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem171 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup38 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem172 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem173 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem174 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem175 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup39 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem176 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem177 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem178 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem179 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup40 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem180 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem181 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem182 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem183 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup41 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem184 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem185 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem186 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem187 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem188 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem189 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup42 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem190 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup43 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem191 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem192 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup44 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem193 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem194 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup45 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem195 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem196 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup46 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem197 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem198 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem199 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup47 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem200 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem201 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem202 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup48 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem203 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem204 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem205 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup49 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem206 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem207 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem208 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup50 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem209 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem210 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem211 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup51 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem212 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem213 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem214 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup52 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem215 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem216 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem217 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup53 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem218 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem219 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem220 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem221 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem222 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup54 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem223 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem224 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup55 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem225 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem226 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup56 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem227 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem228 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem229 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup57 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem230 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem231 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem232 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup58 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem233 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem234 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup59 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem235 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem236 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem237 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem238 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup60 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem239 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem240 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem241 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem242 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem243 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem244 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem245 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup61 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem246 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem247 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem248 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem249 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem250 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem251 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem252 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem253 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem254 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem255 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem256 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup62 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem257 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem258 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem259 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem260 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem261 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem262 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem263 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem264 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem265 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup63 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem266 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem267 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem268 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem269 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem270 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem271 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem272 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem273 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem274 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup64 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem275 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem276 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem277 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem278 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup65 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem279 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem280 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem281 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem282 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup66 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem283 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem284 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem285 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem286 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem287 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup67 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem288 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem289 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItemGroup68 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItemGroup() + Dim SpreadsheetCommandGalleryItem290 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem291 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem292 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Dim SpreadsheetCommandGalleryItem293 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandGalleryItem() + Me.StylesRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.StylesRibbonPageGroup() + Me.SpreadsheetCommandBarSubItem4 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarSubItem5 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem43 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem44 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem45 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem46 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem47 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem48 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem49 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem6 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem50 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem51 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem52 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem53 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem54 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem55 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown26 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.SpreadsheetCommandBarButtonItem1 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem2 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem3 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem4 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem5 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem6 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem7 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem8 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem9 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem10 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem11 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem12 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem13 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup() + Me.ChangeFontNameItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeFontNameItem() + Me.RepositoryItemFontEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemFontEdit() + Me.ChangeFontSizeItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeFontSizeItem() + Me.RepositoryItemSpreadsheetFontSizeEdit1 = New DevExpress.XtraSpreadsheet.Design.RepositoryItemSpreadsheetFontSizeEdit() + Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() + Me.SpreadsheetCommandBarButtonItem14 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem15 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.BarButtonGroup2 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarCheckItem1 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem2 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem3 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem4 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.BarButtonGroup3 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarSubItem1 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem16 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem17 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem18 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem19 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem20 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem21 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem22 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem23 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem24 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem25 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem26 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem27 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem28 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.ChangeBorderLineColorItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeBorderLineColorItem() + Me.ChangeBorderLineStyleItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeBorderLineStyleItem() + Me.CommandBarGalleryDropDown25 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.BarButtonGroup4 = New DevExpress.XtraBars.BarButtonGroup() + Me.ChangeCellFillColorItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeCellFillColorItem() + Me.ChangeFontColorItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeFontColorItem() + Me.BarButtonGroup5 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarCheckItem5 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem6 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem7 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.BarButtonGroup6 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarCheckItem8 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem9 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem10 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.BarButtonGroup7 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarButtonItem29 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem30 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarCheckItem11 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarSubItem2 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarCheckItem12 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarButtonItem31 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem32 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem33 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.BarButtonGroup8 = New DevExpress.XtraBars.BarButtonGroup() + Me.ChangeNumberFormatItem1 = New DevExpress.XtraSpreadsheet.UI.ChangeNumberFormatItem() + Me.RepositoryItemPopupGalleryEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit() + Me.BarButtonGroup9 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarSubItem3 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem34 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem35 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem36 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem37 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem38 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem39 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem40 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.BarButtonGroup10 = New DevExpress.XtraBars.BarButtonGroup() + Me.SpreadsheetCommandBarButtonItem41 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem42 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown27 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown28 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonItem56 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem57 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem7 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.GalleryFormatAsTableItem1 = New DevExpress.XtraSpreadsheet.UI.GalleryFormatAsTableItem() + Me.CommandBarGalleryDropDown29 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.GalleryChangeStyleItem1 = New DevExpress.XtraSpreadsheet.UI.GalleryChangeStyleItem() + Me.SpreadsheetCommandBarSubItem8 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem58 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem59 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem60 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem9 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem61 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem62 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem63 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem10 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem64 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem65 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem11 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem66 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem67 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem68 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem69 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem70 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem71 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem72 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem12 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem73 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem74 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem75 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem76 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem77 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem13 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem78 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem79 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem80 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem81 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem14 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem82 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem83 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem84 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem85 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem86 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem87 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem88 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem89 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonGalleryDropDownItem4 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown30 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem5 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown31 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem6 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown32 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem7 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown33 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem8 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown34 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem9 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown35 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonGalleryDropDownItem10 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem() + Me.CommandBarGalleryDropDown36 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetCommandBarButtonItem90 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.RenameTableItem1 = New DevExpress.XtraSpreadsheet.UI.RenameTableItem() + Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.SpreadsheetCommandBarCheckItem13 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem14 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem15 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem16 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem17 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem18 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem19 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.GalleryTableStylesItem1 = New DevExpress.XtraSpreadsheet.UI.GalleryTableStylesItem() + Me.SpreadsheetCommandBarCheckItem20 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem21 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarButtonItem91 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem92 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem93 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem15 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem94 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem95 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem96 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem97 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem16 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.FunctionsFinancialItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsFinancialItem() + Me.FunctionsLogicalItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsLogicalItem() + Me.FunctionsTextItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsTextItem() + Me.FunctionsDateAndTimeItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsDateAndTimeItem() + Me.FunctionsLookupAndReferenceItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsLookupAndReferenceItem() + Me.FunctionsMathAndTrigonometryItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsMathAndTrigonometryItem() + Me.SpreadsheetCommandBarSubItem17 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.FunctionsStatisticalItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsStatisticalItem() + Me.FunctionsEngineeringItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsEngineeringItem() + Me.FunctionsInformationItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsInformationItem() + Me.FunctionsCompatibilityItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsCompatibilityItem() + Me.FunctionsWebItem1 = New DevExpress.XtraSpreadsheet.UI.FunctionsWebItem() + Me.SpreadsheetCommandBarCheckItem22 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarSubItem18 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarCheckItem23 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem24 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem25 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarSubItem19 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarCheckItem26 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.SpreadsheetCommandBarCheckItem27 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem() + Me.PageSetupPaperKindItem1 = New DevExpress.XtraSpreadsheet.UI.PageSetupPaperKindItem() + Me.SpreadsheetCommandBarSubItem20 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem103 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem104 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarSubItem21 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem() + Me.SpreadsheetCommandBarButtonItem105 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem106 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.TableToolsRibbonPageCategory1 = New DevExpress.XtraSpreadsheet.UI.TableToolsRibbonPageCategory() + Me.TableToolsDesignRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.TableToolsDesignRibbonPage() + Me.TablePropertiesRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.TablePropertiesRibbonPageGroup() + Me.TableToolsRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.TableToolsRibbonPageGroup() + Me.TableStyleOptionsRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.TableStyleOptionsRibbonPageGroup() + Me.TableStylesRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.TableStylesRibbonPageGroup() + Me.FileRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.FileRibbonPage() + Me.CommonRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.CommonRibbonPageGroup() + Me.HomeRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.HomeRibbonPage() + Me.ClipboardRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.ClipboardRibbonPageGroup() + Me.FontRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.FontRibbonPageGroup() + Me.AlignmentRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.AlignmentRibbonPageGroup() + Me.NumberRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.NumberRibbonPageGroup() + Me.CellsRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.CellsRibbonPageGroup() + Me.EditingRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.EditingRibbonPageGroup() + Me.InsertRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.InsertRibbonPage() + Me.TablesRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.TablesRibbonPageGroup() + Me.IllustrationsRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.IllustrationsRibbonPageGroup() + Me.ChartsRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.ChartsRibbonPageGroup() + Me.LinksRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.LinksRibbonPageGroup() + Me.ViewRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.ViewRibbonPage() + Me.ShowRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.ShowRibbonPageGroup() + Me.ZoomRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.ZoomRibbonPageGroup() + Me.WindowRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.WindowRibbonPageGroup() + Me.FormulasRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.FormulasRibbonPage() + Me.FunctionLibraryRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.FunctionLibraryRibbonPageGroup() + Me.FormulaAuditingRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.FormulaAuditingRibbonPageGroup() + Me.PageLayoutRibbonPage1 = New DevExpress.XtraSpreadsheet.UI.PageLayoutRibbonPage() + Me.PageSetupRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.PageSetupRibbonPageGroup() + Me.ArrangeRibbonPageGroup1 = New DevExpress.XtraSpreadsheet.UI.ArrangeRibbonPageGroup() + Me.CommandBarGalleryDropDown1 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown2 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown3 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown4 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown5 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown6 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown7 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown8 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown9 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown10 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown11 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown12 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown13 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown14 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown15 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown16 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown17 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown18 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown19 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown20 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown21 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown22 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown23 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.CommandBarGalleryDropDown24 = New DevExpress.XtraBars.Commands.CommandBarGalleryDropDown(Me.components) + Me.SpreadsheetFormulaBarControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl() + Me.SpreadsheetNameBoxControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitterControl1 = New DevExpress.XtraEditors.SplitterControl() + Me.SpreadsheetBarController1 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetBarController() + Me.SpreadsheetCommandBarButtonItem98 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem99 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem100 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem101 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + Me.SpreadsheetCommandBarButtonItem102 = New DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem() + CType(Me.CommandBarGalleryDropDown26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemFontEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemSpreadsheetFontSizeEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown33, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown34, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown35, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown36, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CommandBarGalleryDropDown24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SpreadsheetBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'StylesRibbonPageGroup1 + ' + Me.StylesRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem4) + Me.StylesRibbonPageGroup1.ItemLinks.Add(Me.GalleryFormatAsTableItem1) + Me.StylesRibbonPageGroup1.ItemLinks.Add(Me.GalleryChangeStyleItem1) + Me.StylesRibbonPageGroup1.Name = "StylesRibbonPageGroup1" + ' + 'SpreadsheetCommandBarSubItem4 + ' + Me.SpreadsheetCommandBarSubItem4.CommandName = "ConditionalFormattingCommandGroup" + Me.SpreadsheetCommandBarSubItem4.Id = 75 + Me.SpreadsheetCommandBarSubItem4.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarSubItem5), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarSubItem6), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonGalleryDropDownItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonGalleryDropDownItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonGalleryDropDownItem3), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarSubItem7)}) + Me.SpreadsheetCommandBarSubItem4.Name = "SpreadsheetCommandBarSubItem4" + ' + 'SpreadsheetCommandBarSubItem5 + ' + Me.SpreadsheetCommandBarSubItem5.CommandName = "ConditionalFormattingHighlightCellsRuleCommandGroup" + Me.SpreadsheetCommandBarSubItem5.Id = 83 + Me.SpreadsheetCommandBarSubItem5.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem43), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem44), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem45), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem46), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem47), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem48), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem49)}) + Me.SpreadsheetCommandBarSubItem5.Name = "SpreadsheetCommandBarSubItem5" + ' + 'SpreadsheetCommandBarButtonItem43 + ' + Me.SpreadsheetCommandBarButtonItem43.CommandName = "ConditionalFormattingGreaterThanRuleCommand" + Me.SpreadsheetCommandBarButtonItem43.Id = 76 + Me.SpreadsheetCommandBarButtonItem43.Name = "SpreadsheetCommandBarButtonItem43" + Me.SpreadsheetCommandBarButtonItem43.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem44 + ' + Me.SpreadsheetCommandBarButtonItem44.CommandName = "ConditionalFormattingLessThanRuleCommand" + Me.SpreadsheetCommandBarButtonItem44.Id = 77 + Me.SpreadsheetCommandBarButtonItem44.Name = "SpreadsheetCommandBarButtonItem44" + Me.SpreadsheetCommandBarButtonItem44.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem45 + ' + Me.SpreadsheetCommandBarButtonItem45.CommandName = "ConditionalFormattingBetweenRuleCommand" + Me.SpreadsheetCommandBarButtonItem45.Id = 78 + Me.SpreadsheetCommandBarButtonItem45.Name = "SpreadsheetCommandBarButtonItem45" + Me.SpreadsheetCommandBarButtonItem45.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem46 + ' + Me.SpreadsheetCommandBarButtonItem46.CommandName = "ConditionalFormattingEqualToRuleCommand" + Me.SpreadsheetCommandBarButtonItem46.Id = 79 + Me.SpreadsheetCommandBarButtonItem46.Name = "SpreadsheetCommandBarButtonItem46" + Me.SpreadsheetCommandBarButtonItem46.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem47 + ' + Me.SpreadsheetCommandBarButtonItem47.CommandName = "ConditionalFormattingTextContainsRuleCommand" + Me.SpreadsheetCommandBarButtonItem47.Id = 80 + Me.SpreadsheetCommandBarButtonItem47.Name = "SpreadsheetCommandBarButtonItem47" + Me.SpreadsheetCommandBarButtonItem47.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem48 + ' + Me.SpreadsheetCommandBarButtonItem48.CommandName = "ConditionalFormattingDateOccurringRuleCommand" + Me.SpreadsheetCommandBarButtonItem48.Id = 81 + Me.SpreadsheetCommandBarButtonItem48.Name = "SpreadsheetCommandBarButtonItem48" + Me.SpreadsheetCommandBarButtonItem48.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem49 + ' + Me.SpreadsheetCommandBarButtonItem49.CommandName = "ConditionalFormattingDuplicateValuesRuleCommand" + Me.SpreadsheetCommandBarButtonItem49.Id = 82 + Me.SpreadsheetCommandBarButtonItem49.Name = "SpreadsheetCommandBarButtonItem49" + Me.SpreadsheetCommandBarButtonItem49.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarSubItem6 + ' + Me.SpreadsheetCommandBarSubItem6.CommandName = "ConditionalFormattingTopBottomRuleCommandGroup" + Me.SpreadsheetCommandBarSubItem6.Id = 90 + Me.SpreadsheetCommandBarSubItem6.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem50), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem51), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem52), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem53), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem54), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem55)}) + Me.SpreadsheetCommandBarSubItem6.Name = "SpreadsheetCommandBarSubItem6" + ' + 'SpreadsheetCommandBarButtonItem50 + ' + Me.SpreadsheetCommandBarButtonItem50.CommandName = "ConditionalFormattingTop10RuleCommand" + Me.SpreadsheetCommandBarButtonItem50.Id = 84 + Me.SpreadsheetCommandBarButtonItem50.Name = "SpreadsheetCommandBarButtonItem50" + Me.SpreadsheetCommandBarButtonItem50.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem51 + ' + Me.SpreadsheetCommandBarButtonItem51.CommandName = "ConditionalFormattingTop10PercentRuleCommand" + Me.SpreadsheetCommandBarButtonItem51.Id = 85 + Me.SpreadsheetCommandBarButtonItem51.Name = "SpreadsheetCommandBarButtonItem51" + Me.SpreadsheetCommandBarButtonItem51.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem52 + ' + Me.SpreadsheetCommandBarButtonItem52.CommandName = "ConditionalFormattingBottom10RuleCommand" + Me.SpreadsheetCommandBarButtonItem52.Id = 86 + Me.SpreadsheetCommandBarButtonItem52.Name = "SpreadsheetCommandBarButtonItem52" + Me.SpreadsheetCommandBarButtonItem52.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem53 + ' + Me.SpreadsheetCommandBarButtonItem53.CommandName = "ConditionalFormattingBottom10PercentRuleCommand" + Me.SpreadsheetCommandBarButtonItem53.Id = 87 + Me.SpreadsheetCommandBarButtonItem53.Name = "SpreadsheetCommandBarButtonItem53" + Me.SpreadsheetCommandBarButtonItem53.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem54 + ' + Me.SpreadsheetCommandBarButtonItem54.CommandName = "ConditionalFormattingAboveAverageRuleCommand" + Me.SpreadsheetCommandBarButtonItem54.Id = 88 + Me.SpreadsheetCommandBarButtonItem54.Name = "SpreadsheetCommandBarButtonItem54" + Me.SpreadsheetCommandBarButtonItem54.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem55 + ' + Me.SpreadsheetCommandBarButtonItem55.CommandName = "ConditionalFormattingBelowAverageRuleCommand" + Me.SpreadsheetCommandBarButtonItem55.Id = 89 + Me.SpreadsheetCommandBarButtonItem55.Name = "SpreadsheetCommandBarButtonItem55" + Me.SpreadsheetCommandBarButtonItem55.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem1 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1.CommandName = "ConditionalFormattingDataBarsCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1.DropDownControl = Me.CommandBarGalleryDropDown26 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1.Id = 91 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem1" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'CommandBarGalleryDropDown26 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown26.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup1.CommandName = "ConditionalFormattingDataBarsGradientFillCommandGroup" + SpreadsheetCommandGalleryItem1.CommandName = "ConditionalFormattingDataBarGradientBlue" + SpreadsheetCommandGalleryItem2.CommandName = "ConditionalFormattingDataBarGradientGreen" + SpreadsheetCommandGalleryItem3.CommandName = "ConditionalFormattingDataBarGradientRed" + SpreadsheetCommandGalleryItem4.CommandName = "ConditionalFormattingDataBarGradientOrange" + SpreadsheetCommandGalleryItem5.CommandName = "ConditionalFormattingDataBarGradientLightBlue" + SpreadsheetCommandGalleryItem6.CommandName = "ConditionalFormattingDataBarGradientPurple" + SpreadsheetCommandGalleryItemGroup1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem1, SpreadsheetCommandGalleryItem2, SpreadsheetCommandGalleryItem3, SpreadsheetCommandGalleryItem4, SpreadsheetCommandGalleryItem5, SpreadsheetCommandGalleryItem6}) + SpreadsheetCommandGalleryItemGroup2.CommandName = "ConditionalFormattingDataBarsSolidFillCommandGroup" + SpreadsheetCommandGalleryItem7.CommandName = "ConditionalFormattingDataBarSolidBlue" + SpreadsheetCommandGalleryItem8.CommandName = "ConditionalFormattingDataBarSolidGreen" + SpreadsheetCommandGalleryItem9.CommandName = "ConditionalFormattingDataBarSolidRed" + SpreadsheetCommandGalleryItem10.CommandName = "ConditionalFormattingDataBarSolidOrange" + SpreadsheetCommandGalleryItem11.CommandName = "ConditionalFormattingDataBarSolidLightBlue" + SpreadsheetCommandGalleryItem12.CommandName = "ConditionalFormattingDataBarSolidPurple" + SpreadsheetCommandGalleryItemGroup2.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem7, SpreadsheetCommandGalleryItem8, SpreadsheetCommandGalleryItem9, SpreadsheetCommandGalleryItem10, SpreadsheetCommandGalleryItem11, SpreadsheetCommandGalleryItem12}) + Me.CommandBarGalleryDropDown26.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup1, SpreadsheetCommandGalleryItemGroup2}) + Me.CommandBarGalleryDropDown26.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown26.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown26.Name = "CommandBarGalleryDropDown26" + Me.CommandBarGalleryDropDown26.Ribbon = Me.RibbonControl1 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.SpreadsheetCommandBarButtonItem1, Me.SpreadsheetCommandBarButtonItem2, Me.SpreadsheetCommandBarButtonItem3, Me.SpreadsheetCommandBarButtonItem4, Me.SpreadsheetCommandBarButtonItem5, Me.SpreadsheetCommandBarButtonItem6, Me.SpreadsheetCommandBarButtonItem7, Me.SpreadsheetCommandBarButtonItem8, Me.SpreadsheetCommandBarButtonItem9, Me.SpreadsheetCommandBarButtonItem10, Me.SpreadsheetCommandBarButtonItem11, Me.SpreadsheetCommandBarButtonItem12, Me.SpreadsheetCommandBarButtonItem13, Me.BarButtonGroup1, Me.ChangeFontNameItem1, Me.ChangeFontSizeItem1, Me.SpreadsheetCommandBarButtonItem14, Me.SpreadsheetCommandBarButtonItem15, Me.BarButtonGroup2, Me.SpreadsheetCommandBarCheckItem1, Me.SpreadsheetCommandBarCheckItem2, Me.SpreadsheetCommandBarCheckItem3, Me.SpreadsheetCommandBarCheckItem4, Me.BarButtonGroup3, Me.SpreadsheetCommandBarSubItem1, Me.SpreadsheetCommandBarButtonItem16, Me.SpreadsheetCommandBarButtonItem17, Me.SpreadsheetCommandBarButtonItem18, Me.SpreadsheetCommandBarButtonItem19, Me.SpreadsheetCommandBarButtonItem20, Me.SpreadsheetCommandBarButtonItem21, Me.SpreadsheetCommandBarButtonItem22, Me.SpreadsheetCommandBarButtonItem23, Me.SpreadsheetCommandBarButtonItem24, Me.SpreadsheetCommandBarButtonItem25, Me.SpreadsheetCommandBarButtonItem26, Me.SpreadsheetCommandBarButtonItem27, Me.SpreadsheetCommandBarButtonItem28, Me.ChangeBorderLineColorItem1, Me.ChangeBorderLineStyleItem1, Me.BarButtonGroup4, Me.ChangeCellFillColorItem1, Me.ChangeFontColorItem1, Me.BarButtonGroup5, Me.SpreadsheetCommandBarCheckItem5, Me.SpreadsheetCommandBarCheckItem6, Me.SpreadsheetCommandBarCheckItem7, Me.BarButtonGroup6, Me.SpreadsheetCommandBarCheckItem8, Me.SpreadsheetCommandBarCheckItem9, Me.SpreadsheetCommandBarCheckItem10, Me.BarButtonGroup7, Me.SpreadsheetCommandBarButtonItem29, Me.SpreadsheetCommandBarButtonItem30, Me.SpreadsheetCommandBarCheckItem11, Me.SpreadsheetCommandBarSubItem2, Me.SpreadsheetCommandBarCheckItem12, Me.SpreadsheetCommandBarButtonItem31, Me.SpreadsheetCommandBarButtonItem32, Me.SpreadsheetCommandBarButtonItem33, Me.BarButtonGroup8, Me.ChangeNumberFormatItem1, Me.BarButtonGroup9, Me.SpreadsheetCommandBarSubItem3, Me.SpreadsheetCommandBarButtonItem34, Me.SpreadsheetCommandBarButtonItem35, Me.SpreadsheetCommandBarButtonItem36, Me.SpreadsheetCommandBarButtonItem37, Me.SpreadsheetCommandBarButtonItem38, Me.SpreadsheetCommandBarButtonItem39, Me.SpreadsheetCommandBarButtonItem40, Me.BarButtonGroup10, Me.SpreadsheetCommandBarButtonItem41, Me.SpreadsheetCommandBarButtonItem42, Me.SpreadsheetCommandBarSubItem4, Me.SpreadsheetCommandBarButtonItem43, Me.SpreadsheetCommandBarButtonItem44, Me.SpreadsheetCommandBarButtonItem45, Me.SpreadsheetCommandBarButtonItem46, Me.SpreadsheetCommandBarButtonItem47, Me.SpreadsheetCommandBarButtonItem48, Me.SpreadsheetCommandBarButtonItem49, Me.SpreadsheetCommandBarSubItem5, Me.SpreadsheetCommandBarButtonItem50, Me.SpreadsheetCommandBarButtonItem51, Me.SpreadsheetCommandBarButtonItem52, Me.SpreadsheetCommandBarButtonItem53, Me.SpreadsheetCommandBarButtonItem54, Me.SpreadsheetCommandBarButtonItem55, Me.SpreadsheetCommandBarSubItem6, Me.SpreadsheetCommandBarButtonGalleryDropDownItem1, Me.SpreadsheetCommandBarButtonGalleryDropDownItem2, Me.SpreadsheetCommandBarButtonGalleryDropDownItem3, Me.SpreadsheetCommandBarButtonItem56, Me.SpreadsheetCommandBarButtonItem57, Me.SpreadsheetCommandBarSubItem7, Me.GalleryFormatAsTableItem1, Me.GalleryChangeStyleItem1, Me.SpreadsheetCommandBarSubItem8, Me.SpreadsheetCommandBarButtonItem58, Me.SpreadsheetCommandBarButtonItem59, Me.SpreadsheetCommandBarButtonItem60, Me.SpreadsheetCommandBarSubItem9, Me.SpreadsheetCommandBarButtonItem61, Me.SpreadsheetCommandBarButtonItem62, Me.SpreadsheetCommandBarButtonItem63, Me.SpreadsheetCommandBarSubItem10, Me.SpreadsheetCommandBarButtonItem64, Me.SpreadsheetCommandBarButtonItem65, Me.SpreadsheetCommandBarButtonItem66, Me.SpreadsheetCommandBarButtonItem67, Me.SpreadsheetCommandBarButtonItem68, Me.SpreadsheetCommandBarButtonItem69, Me.SpreadsheetCommandBarButtonItem70, Me.SpreadsheetCommandBarButtonItem71, Me.SpreadsheetCommandBarSubItem11, Me.SpreadsheetCommandBarButtonItem72, Me.SpreadsheetCommandBarSubItem12, Me.SpreadsheetCommandBarButtonItem73, Me.SpreadsheetCommandBarButtonItem74, Me.SpreadsheetCommandBarButtonItem75, Me.SpreadsheetCommandBarButtonItem76, Me.SpreadsheetCommandBarButtonItem77, Me.SpreadsheetCommandBarSubItem13, Me.SpreadsheetCommandBarButtonItem78, Me.SpreadsheetCommandBarButtonItem79, Me.SpreadsheetCommandBarButtonItem80, Me.SpreadsheetCommandBarButtonItem81, Me.SpreadsheetCommandBarSubItem14, Me.SpreadsheetCommandBarButtonItem82, Me.SpreadsheetCommandBarButtonItem83, Me.SpreadsheetCommandBarButtonItem84, Me.SpreadsheetCommandBarButtonItem85, Me.SpreadsheetCommandBarButtonItem86, Me.SpreadsheetCommandBarButtonItem87, Me.SpreadsheetCommandBarButtonItem88, Me.SpreadsheetCommandBarButtonItem89, Me.SpreadsheetCommandBarButtonGalleryDropDownItem4, Me.SpreadsheetCommandBarButtonGalleryDropDownItem5, Me.SpreadsheetCommandBarButtonGalleryDropDownItem6, Me.SpreadsheetCommandBarButtonGalleryDropDownItem7, Me.SpreadsheetCommandBarButtonGalleryDropDownItem8, Me.SpreadsheetCommandBarButtonGalleryDropDownItem9, Me.SpreadsheetCommandBarButtonGalleryDropDownItem10, Me.SpreadsheetCommandBarButtonItem90, Me.BarStaticItem1, Me.RenameTableItem1, Me.SpreadsheetCommandBarCheckItem13, Me.SpreadsheetCommandBarCheckItem14, Me.SpreadsheetCommandBarCheckItem15, Me.SpreadsheetCommandBarCheckItem16, Me.SpreadsheetCommandBarCheckItem17, Me.SpreadsheetCommandBarCheckItem18, Me.SpreadsheetCommandBarCheckItem19, Me.GalleryTableStylesItem1, Me.SpreadsheetCommandBarCheckItem20, Me.SpreadsheetCommandBarCheckItem21, Me.SpreadsheetCommandBarButtonItem91, Me.SpreadsheetCommandBarButtonItem92, Me.SpreadsheetCommandBarButtonItem93, Me.SpreadsheetCommandBarSubItem15, Me.SpreadsheetCommandBarButtonItem94, Me.SpreadsheetCommandBarButtonItem95, Me.SpreadsheetCommandBarButtonItem96, Me.SpreadsheetCommandBarButtonItem97, Me.SpreadsheetCommandBarSubItem16, Me.FunctionsFinancialItem1, Me.FunctionsLogicalItem1, Me.FunctionsTextItem1, Me.FunctionsDateAndTimeItem1, Me.FunctionsLookupAndReferenceItem1, Me.FunctionsMathAndTrigonometryItem1, Me.SpreadsheetCommandBarSubItem17, Me.FunctionsStatisticalItem1, Me.FunctionsEngineeringItem1, Me.FunctionsInformationItem1, Me.FunctionsCompatibilityItem1, Me.FunctionsWebItem1, Me.SpreadsheetCommandBarCheckItem22, Me.SpreadsheetCommandBarSubItem18, Me.SpreadsheetCommandBarCheckItem23, Me.SpreadsheetCommandBarCheckItem24, Me.SpreadsheetCommandBarCheckItem25, Me.SpreadsheetCommandBarSubItem19, Me.SpreadsheetCommandBarCheckItem26, Me.SpreadsheetCommandBarCheckItem27, Me.PageSetupPaperKindItem1, Me.SpreadsheetCommandBarSubItem20, Me.SpreadsheetCommandBarButtonItem103, Me.SpreadsheetCommandBarButtonItem104, Me.SpreadsheetCommandBarSubItem21, Me.SpreadsheetCommandBarButtonItem105, Me.SpreadsheetCommandBarButtonItem106}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 195 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.TableToolsRibbonPageCategory1}) + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.FileRibbonPage1, Me.HomeRibbonPage1, Me.InsertRibbonPage1, Me.ViewRibbonPage1, Me.FormulasRibbonPage1, Me.PageLayoutRibbonPage1}) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemFontEdit1, Me.RepositoryItemSpreadsheetFontSizeEdit1, Me.RepositoryItemPopupGalleryEdit1, Me.RepositoryItemTextEdit1}) + Me.RibbonControl1.Size = New System.Drawing.Size(544, 142) + ' + 'SpreadsheetCommandBarButtonItem1 + ' + Me.SpreadsheetCommandBarButtonItem1.CommandName = "FileNew" + Me.SpreadsheetCommandBarButtonItem1.Id = 1 + Me.SpreadsheetCommandBarButtonItem1.Name = "SpreadsheetCommandBarButtonItem1" + ' + 'SpreadsheetCommandBarButtonItem2 + ' + Me.SpreadsheetCommandBarButtonItem2.CommandName = "FileOpen" + Me.SpreadsheetCommandBarButtonItem2.Id = 2 + Me.SpreadsheetCommandBarButtonItem2.Name = "SpreadsheetCommandBarButtonItem2" + ' + 'SpreadsheetCommandBarButtonItem3 + ' + Me.SpreadsheetCommandBarButtonItem3.CommandName = "FileSave" + Me.SpreadsheetCommandBarButtonItem3.Id = 3 + Me.SpreadsheetCommandBarButtonItem3.Name = "SpreadsheetCommandBarButtonItem3" + ' + 'SpreadsheetCommandBarButtonItem4 + ' + Me.SpreadsheetCommandBarButtonItem4.CommandName = "FileSaveAs" + Me.SpreadsheetCommandBarButtonItem4.Id = 4 + Me.SpreadsheetCommandBarButtonItem4.Name = "SpreadsheetCommandBarButtonItem4" + ' + 'SpreadsheetCommandBarButtonItem5 + ' + Me.SpreadsheetCommandBarButtonItem5.CommandName = "FileQuickPrint" + Me.SpreadsheetCommandBarButtonItem5.Id = 5 + Me.SpreadsheetCommandBarButtonItem5.Name = "SpreadsheetCommandBarButtonItem5" + ' + 'SpreadsheetCommandBarButtonItem6 + ' + Me.SpreadsheetCommandBarButtonItem6.CommandName = "FilePrint" + Me.SpreadsheetCommandBarButtonItem6.Id = 6 + Me.SpreadsheetCommandBarButtonItem6.Name = "SpreadsheetCommandBarButtonItem6" + ' + 'SpreadsheetCommandBarButtonItem7 + ' + Me.SpreadsheetCommandBarButtonItem7.CommandName = "FilePrintPreview" + Me.SpreadsheetCommandBarButtonItem7.Id = 7 + Me.SpreadsheetCommandBarButtonItem7.Name = "SpreadsheetCommandBarButtonItem7" + ' + 'SpreadsheetCommandBarButtonItem8 + ' + Me.SpreadsheetCommandBarButtonItem8.CommandName = "FileUndo" + Me.SpreadsheetCommandBarButtonItem8.Id = 8 + Me.SpreadsheetCommandBarButtonItem8.Name = "SpreadsheetCommandBarButtonItem8" + ' + 'SpreadsheetCommandBarButtonItem9 + ' + Me.SpreadsheetCommandBarButtonItem9.CommandName = "FileRedo" + Me.SpreadsheetCommandBarButtonItem9.Id = 9 + Me.SpreadsheetCommandBarButtonItem9.Name = "SpreadsheetCommandBarButtonItem9" + ' + 'SpreadsheetCommandBarButtonItem10 + ' + Me.SpreadsheetCommandBarButtonItem10.CommandName = "PasteSelection" + Me.SpreadsheetCommandBarButtonItem10.Id = 20 + Me.SpreadsheetCommandBarButtonItem10.Name = "SpreadsheetCommandBarButtonItem10" + Me.SpreadsheetCommandBarButtonItem10.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'SpreadsheetCommandBarButtonItem11 + ' + Me.SpreadsheetCommandBarButtonItem11.CommandName = "CutSelection" + Me.SpreadsheetCommandBarButtonItem11.Id = 21 + Me.SpreadsheetCommandBarButtonItem11.Name = "SpreadsheetCommandBarButtonItem11" + Me.SpreadsheetCommandBarButtonItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarButtonItem12 + ' + Me.SpreadsheetCommandBarButtonItem12.CommandName = "CopySelection" + Me.SpreadsheetCommandBarButtonItem12.Id = 22 + Me.SpreadsheetCommandBarButtonItem12.Name = "SpreadsheetCommandBarButtonItem12" + Me.SpreadsheetCommandBarButtonItem12.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarButtonItem13 + ' + Me.SpreadsheetCommandBarButtonItem13.CommandName = "ShowPasteSpecialForm" + Me.SpreadsheetCommandBarButtonItem13.Id = 23 + Me.SpreadsheetCommandBarButtonItem13.Name = "SpreadsheetCommandBarButtonItem13" + Me.SpreadsheetCommandBarButtonItem13.RibbonStyle = CType((DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText), DevExpress.XtraBars.Ribbon.RibbonItemStyles) + ' + 'BarButtonGroup1 + ' + Me.BarButtonGroup1.Id = 10 + Me.BarButtonGroup1.ItemLinks.Add(Me.ChangeFontNameItem1) + Me.BarButtonGroup1.ItemLinks.Add(Me.ChangeFontSizeItem1) + Me.BarButtonGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem14) + Me.BarButtonGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem15) + Me.BarButtonGroup1.Name = "BarButtonGroup1" + Me.BarButtonGroup1.Tag = "{B0CA3FA8-82D6-4BC4-BD31-D9AE56C1D033}" + ' + 'ChangeFontNameItem1 + ' + Me.ChangeFontNameItem1.Edit = Me.RepositoryItemFontEdit1 + Me.ChangeFontNameItem1.Id = 24 + Me.ChangeFontNameItem1.Name = "ChangeFontNameItem1" + ' + 'RepositoryItemFontEdit1 + ' + Me.RepositoryItemFontEdit1.AutoHeight = False + Me.RepositoryItemFontEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemFontEdit1.Name = "RepositoryItemFontEdit1" + ' + 'ChangeFontSizeItem1 + ' + Me.ChangeFontSizeItem1.Edit = Me.RepositoryItemSpreadsheetFontSizeEdit1 + Me.ChangeFontSizeItem1.Id = 25 + Me.ChangeFontSizeItem1.Name = "ChangeFontSizeItem1" + ' + 'RepositoryItemSpreadsheetFontSizeEdit1 + ' + Me.RepositoryItemSpreadsheetFontSizeEdit1.AutoHeight = False + Me.RepositoryItemSpreadsheetFontSizeEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemSpreadsheetFontSizeEdit1.Control = Me.SpreadsheetControl1 + Me.RepositoryItemSpreadsheetFontSizeEdit1.Name = "RepositoryItemSpreadsheetFontSizeEdit1" + ' + 'SpreadsheetControl1 + ' + Me.SpreadsheetControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetControl1.Location = New System.Drawing.Point(0, 167) + Me.SpreadsheetControl1.MenuManager = Me.RibbonControl1 + Me.SpreadsheetControl1.Name = "SpreadsheetControl1" + Me.SpreadsheetControl1.Options.Export.Csv.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Csv.Encoding"), System.Text.Encoding) + Me.SpreadsheetControl1.Options.Export.Txt.Encoding = CType(resources.GetObject("SpreadsheetControl1.Options.Export.Txt.Encoding"), System.Text.Encoding) + Me.SpreadsheetControl1.Size = New System.Drawing.Size(544, 150) + Me.SpreadsheetControl1.TabIndex = 0 + Me.SpreadsheetControl1.Text = "SpreadsheetControl1" + ' + 'SpreadsheetCommandBarButtonItem14 + ' + Me.SpreadsheetCommandBarButtonItem14.ButtonGroupTag = "{B0CA3FA8-82D6-4BC4-BD31-D9AE56C1D033}" + Me.SpreadsheetCommandBarButtonItem14.CommandName = "FormatIncreaseFontSize" + Me.SpreadsheetCommandBarButtonItem14.Id = 26 + Me.SpreadsheetCommandBarButtonItem14.Name = "SpreadsheetCommandBarButtonItem14" + Me.SpreadsheetCommandBarButtonItem14.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem15 + ' + Me.SpreadsheetCommandBarButtonItem15.ButtonGroupTag = "{B0CA3FA8-82D6-4BC4-BD31-D9AE56C1D033}" + Me.SpreadsheetCommandBarButtonItem15.CommandName = "FormatDecreaseFontSize" + Me.SpreadsheetCommandBarButtonItem15.Id = 27 + Me.SpreadsheetCommandBarButtonItem15.Name = "SpreadsheetCommandBarButtonItem15" + Me.SpreadsheetCommandBarButtonItem15.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'BarButtonGroup2 + ' + Me.BarButtonGroup2.Id = 11 + Me.BarButtonGroup2.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem1) + Me.BarButtonGroup2.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem2) + Me.BarButtonGroup2.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem3) + Me.BarButtonGroup2.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem4) + Me.BarButtonGroup2.Name = "BarButtonGroup2" + Me.BarButtonGroup2.Tag = "{56C139FB-52E5-405B-A03F-FA7DCABD1D17}" + ' + 'SpreadsheetCommandBarCheckItem1 + ' + Me.SpreadsheetCommandBarCheckItem1.ButtonGroupTag = "{56C139FB-52E5-405B-A03F-FA7DCABD1D17}" + Me.SpreadsheetCommandBarCheckItem1.CommandName = "FormatFontBold" + Me.SpreadsheetCommandBarCheckItem1.Id = 28 + Me.SpreadsheetCommandBarCheckItem1.Name = "SpreadsheetCommandBarCheckItem1" + Me.SpreadsheetCommandBarCheckItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem2 + ' + Me.SpreadsheetCommandBarCheckItem2.ButtonGroupTag = "{56C139FB-52E5-405B-A03F-FA7DCABD1D17}" + Me.SpreadsheetCommandBarCheckItem2.CommandName = "FormatFontItalic" + Me.SpreadsheetCommandBarCheckItem2.Id = 29 + Me.SpreadsheetCommandBarCheckItem2.Name = "SpreadsheetCommandBarCheckItem2" + Me.SpreadsheetCommandBarCheckItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem3 + ' + Me.SpreadsheetCommandBarCheckItem3.ButtonGroupTag = "{56C139FB-52E5-405B-A03F-FA7DCABD1D17}" + Me.SpreadsheetCommandBarCheckItem3.CommandName = "FormatFontUnderline" + Me.SpreadsheetCommandBarCheckItem3.Id = 30 + Me.SpreadsheetCommandBarCheckItem3.Name = "SpreadsheetCommandBarCheckItem3" + Me.SpreadsheetCommandBarCheckItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem4 + ' + Me.SpreadsheetCommandBarCheckItem4.ButtonGroupTag = "{56C139FB-52E5-405B-A03F-FA7DCABD1D17}" + Me.SpreadsheetCommandBarCheckItem4.CommandName = "FormatFontStrikeout" + Me.SpreadsheetCommandBarCheckItem4.Id = 31 + Me.SpreadsheetCommandBarCheckItem4.Name = "SpreadsheetCommandBarCheckItem4" + Me.SpreadsheetCommandBarCheckItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'BarButtonGroup3 + ' + Me.BarButtonGroup3.Id = 12 + Me.BarButtonGroup3.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem1) + Me.BarButtonGroup3.Name = "BarButtonGroup3" + Me.BarButtonGroup3.Tag = "{DDB05A32-9207-4556-85CB-FE3403A197C7}" + ' + 'SpreadsheetCommandBarSubItem1 + ' + Me.SpreadsheetCommandBarSubItem1.ButtonGroupTag = "{DDB05A32-9207-4556-85CB-FE3403A197C7}" + Me.SpreadsheetCommandBarSubItem1.CommandName = "FormatBordersCommandGroup" + Me.SpreadsheetCommandBarSubItem1.Id = 32 + Me.SpreadsheetCommandBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem16), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem17), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem18), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem19), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem20), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem23), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem24), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem25), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem26), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem27), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem28), New DevExpress.XtraBars.LinkPersistInfo(Me.ChangeBorderLineColorItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.ChangeBorderLineStyleItem1)}) + Me.SpreadsheetCommandBarSubItem1.Name = "SpreadsheetCommandBarSubItem1" + Me.SpreadsheetCommandBarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem16 + ' + Me.SpreadsheetCommandBarButtonItem16.CommandName = "FormatBottomBorder" + Me.SpreadsheetCommandBarButtonItem16.Id = 33 + Me.SpreadsheetCommandBarButtonItem16.Name = "SpreadsheetCommandBarButtonItem16" + ' + 'SpreadsheetCommandBarButtonItem17 + ' + Me.SpreadsheetCommandBarButtonItem17.CommandName = "FormatTopBorder" + Me.SpreadsheetCommandBarButtonItem17.Id = 34 + Me.SpreadsheetCommandBarButtonItem17.Name = "SpreadsheetCommandBarButtonItem17" + ' + 'SpreadsheetCommandBarButtonItem18 + ' + Me.SpreadsheetCommandBarButtonItem18.CommandName = "FormatLeftBorder" + Me.SpreadsheetCommandBarButtonItem18.Id = 35 + Me.SpreadsheetCommandBarButtonItem18.Name = "SpreadsheetCommandBarButtonItem18" + ' + 'SpreadsheetCommandBarButtonItem19 + ' + Me.SpreadsheetCommandBarButtonItem19.CommandName = "FormatRightBorder" + Me.SpreadsheetCommandBarButtonItem19.Id = 36 + Me.SpreadsheetCommandBarButtonItem19.Name = "SpreadsheetCommandBarButtonItem19" + ' + 'SpreadsheetCommandBarButtonItem20 + ' + Me.SpreadsheetCommandBarButtonItem20.CommandName = "FormatNoBorders" + Me.SpreadsheetCommandBarButtonItem20.Id = 37 + Me.SpreadsheetCommandBarButtonItem20.Name = "SpreadsheetCommandBarButtonItem20" + ' + 'SpreadsheetCommandBarButtonItem21 + ' + Me.SpreadsheetCommandBarButtonItem21.CommandName = "FormatAllBorders" + Me.SpreadsheetCommandBarButtonItem21.Id = 38 + Me.SpreadsheetCommandBarButtonItem21.Name = "SpreadsheetCommandBarButtonItem21" + ' + 'SpreadsheetCommandBarButtonItem22 + ' + Me.SpreadsheetCommandBarButtonItem22.CommandName = "FormatOutsideBorders" + Me.SpreadsheetCommandBarButtonItem22.Id = 39 + Me.SpreadsheetCommandBarButtonItem22.Name = "SpreadsheetCommandBarButtonItem22" + ' + 'SpreadsheetCommandBarButtonItem23 + ' + Me.SpreadsheetCommandBarButtonItem23.CommandName = "FormatThickBorder" + Me.SpreadsheetCommandBarButtonItem23.Id = 40 + Me.SpreadsheetCommandBarButtonItem23.Name = "SpreadsheetCommandBarButtonItem23" + ' + 'SpreadsheetCommandBarButtonItem24 + ' + Me.SpreadsheetCommandBarButtonItem24.CommandName = "FormatBottomDoubleBorder" + Me.SpreadsheetCommandBarButtonItem24.Id = 41 + Me.SpreadsheetCommandBarButtonItem24.Name = "SpreadsheetCommandBarButtonItem24" + ' + 'SpreadsheetCommandBarButtonItem25 + ' + Me.SpreadsheetCommandBarButtonItem25.CommandName = "FormatBottomThickBorder" + Me.SpreadsheetCommandBarButtonItem25.Id = 42 + Me.SpreadsheetCommandBarButtonItem25.Name = "SpreadsheetCommandBarButtonItem25" + ' + 'SpreadsheetCommandBarButtonItem26 + ' + Me.SpreadsheetCommandBarButtonItem26.CommandName = "FormatTopAndBottomBorder" + Me.SpreadsheetCommandBarButtonItem26.Id = 43 + Me.SpreadsheetCommandBarButtonItem26.Name = "SpreadsheetCommandBarButtonItem26" + ' + 'SpreadsheetCommandBarButtonItem27 + ' + Me.SpreadsheetCommandBarButtonItem27.CommandName = "FormatTopAndThickBottomBorder" + Me.SpreadsheetCommandBarButtonItem27.Id = 44 + Me.SpreadsheetCommandBarButtonItem27.Name = "SpreadsheetCommandBarButtonItem27" + ' + 'SpreadsheetCommandBarButtonItem28 + ' + Me.SpreadsheetCommandBarButtonItem28.CommandName = "FormatTopAndDoubleBottomBorder" + Me.SpreadsheetCommandBarButtonItem28.Id = 45 + Me.SpreadsheetCommandBarButtonItem28.Name = "SpreadsheetCommandBarButtonItem28" + ' + 'ChangeBorderLineColorItem1 + ' + Me.ChangeBorderLineColorItem1.ActAsDropDown = True + Me.ChangeBorderLineColorItem1.Id = 46 + Me.ChangeBorderLineColorItem1.Name = "ChangeBorderLineColorItem1" + ' + 'ChangeBorderLineStyleItem1 + ' + Me.ChangeBorderLineStyleItem1.DropDownControl = Me.CommandBarGalleryDropDown25 + Me.ChangeBorderLineStyleItem1.Id = 47 + Me.ChangeBorderLineStyleItem1.Name = "ChangeBorderLineStyleItem1" + ' + 'CommandBarGalleryDropDown25 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown25.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown25.Gallery.ColumnCount = 1 + Me.CommandBarGalleryDropDown25.Gallery.DrawImageBackground = False + Me.CommandBarGalleryDropDown25.Gallery.ImageSize = New System.Drawing.Size(65, 46) + Me.CommandBarGalleryDropDown25.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.CommandBarGalleryDropDown25.Gallery.ItemSize = New System.Drawing.Size(136, 26) + Me.CommandBarGalleryDropDown25.Gallery.RowCount = 14 + Me.CommandBarGalleryDropDown25.Gallery.ShowGroupCaption = False + Me.CommandBarGalleryDropDown25.Gallery.ShowItemText = True + Me.CommandBarGalleryDropDown25.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown25.Name = "CommandBarGalleryDropDown25" + Me.CommandBarGalleryDropDown25.Ribbon = Me.RibbonControl1 + ' + 'BarButtonGroup4 + ' + Me.BarButtonGroup4.Id = 13 + Me.BarButtonGroup4.ItemLinks.Add(Me.ChangeCellFillColorItem1) + Me.BarButtonGroup4.ItemLinks.Add(Me.ChangeFontColorItem1) + Me.BarButtonGroup4.Name = "BarButtonGroup4" + Me.BarButtonGroup4.Tag = "{C2275623-04A3-41E8-8D6A-EB5C7F8541D1}" + ' + 'ChangeCellFillColorItem1 + ' + Me.ChangeCellFillColorItem1.Id = 48 + Me.ChangeCellFillColorItem1.Name = "ChangeCellFillColorItem1" + ' + 'ChangeFontColorItem1 + ' + Me.ChangeFontColorItem1.Id = 49 + Me.ChangeFontColorItem1.Name = "ChangeFontColorItem1" + ' + 'BarButtonGroup5 + ' + Me.BarButtonGroup5.Id = 14 + Me.BarButtonGroup5.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem5) + Me.BarButtonGroup5.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem6) + Me.BarButtonGroup5.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem7) + Me.BarButtonGroup5.Name = "BarButtonGroup5" + Me.BarButtonGroup5.Tag = "{03A0322B-12A2-4434-A487-8B5AAF64CCFC}" + ' + 'SpreadsheetCommandBarCheckItem5 + ' + Me.SpreadsheetCommandBarCheckItem5.ButtonGroupTag = "{03A0322B-12A2-4434-A487-8B5AAF64CCFC}" + Me.SpreadsheetCommandBarCheckItem5.CommandName = "FormatAlignmentTop" + Me.SpreadsheetCommandBarCheckItem5.Id = 50 + Me.SpreadsheetCommandBarCheckItem5.Name = "SpreadsheetCommandBarCheckItem5" + Me.SpreadsheetCommandBarCheckItem5.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem6 + ' + Me.SpreadsheetCommandBarCheckItem6.ButtonGroupTag = "{03A0322B-12A2-4434-A487-8B5AAF64CCFC}" + Me.SpreadsheetCommandBarCheckItem6.CommandName = "FormatAlignmentMiddle" + Me.SpreadsheetCommandBarCheckItem6.Id = 51 + Me.SpreadsheetCommandBarCheckItem6.Name = "SpreadsheetCommandBarCheckItem6" + Me.SpreadsheetCommandBarCheckItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem7 + ' + Me.SpreadsheetCommandBarCheckItem7.ButtonGroupTag = "{03A0322B-12A2-4434-A487-8B5AAF64CCFC}" + Me.SpreadsheetCommandBarCheckItem7.CommandName = "FormatAlignmentBottom" + Me.SpreadsheetCommandBarCheckItem7.Id = 52 + Me.SpreadsheetCommandBarCheckItem7.Name = "SpreadsheetCommandBarCheckItem7" + Me.SpreadsheetCommandBarCheckItem7.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'BarButtonGroup6 + ' + Me.BarButtonGroup6.Id = 15 + Me.BarButtonGroup6.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem8) + Me.BarButtonGroup6.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem9) + Me.BarButtonGroup6.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem10) + Me.BarButtonGroup6.Name = "BarButtonGroup6" + Me.BarButtonGroup6.Tag = "{ECC693B7-EF59-4007-A0DB-A9550214A0F2}" + ' + 'SpreadsheetCommandBarCheckItem8 + ' + Me.SpreadsheetCommandBarCheckItem8.ButtonGroupTag = "{ECC693B7-EF59-4007-A0DB-A9550214A0F2}" + Me.SpreadsheetCommandBarCheckItem8.CommandName = "FormatAlignmentLeft" + Me.SpreadsheetCommandBarCheckItem8.Id = 53 + Me.SpreadsheetCommandBarCheckItem8.Name = "SpreadsheetCommandBarCheckItem8" + Me.SpreadsheetCommandBarCheckItem8.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem9 + ' + Me.SpreadsheetCommandBarCheckItem9.ButtonGroupTag = "{ECC693B7-EF59-4007-A0DB-A9550214A0F2}" + Me.SpreadsheetCommandBarCheckItem9.CommandName = "FormatAlignmentCenter" + Me.SpreadsheetCommandBarCheckItem9.Id = 54 + Me.SpreadsheetCommandBarCheckItem9.Name = "SpreadsheetCommandBarCheckItem9" + Me.SpreadsheetCommandBarCheckItem9.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem10 + ' + Me.SpreadsheetCommandBarCheckItem10.ButtonGroupTag = "{ECC693B7-EF59-4007-A0DB-A9550214A0F2}" + Me.SpreadsheetCommandBarCheckItem10.CommandName = "FormatAlignmentRight" + Me.SpreadsheetCommandBarCheckItem10.Id = 55 + Me.SpreadsheetCommandBarCheckItem10.Name = "SpreadsheetCommandBarCheckItem10" + Me.SpreadsheetCommandBarCheckItem10.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'BarButtonGroup7 + ' + Me.BarButtonGroup7.Id = 16 + Me.BarButtonGroup7.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem29) + Me.BarButtonGroup7.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem30) + Me.BarButtonGroup7.Name = "BarButtonGroup7" + Me.BarButtonGroup7.Tag = "{A5E37DED-106E-44FC-8044-CE3824C08225}" + ' + 'SpreadsheetCommandBarButtonItem29 + ' + Me.SpreadsheetCommandBarButtonItem29.ButtonGroupTag = "{A5E37DED-106E-44FC-8044-CE3824C08225}" + Me.SpreadsheetCommandBarButtonItem29.CommandName = "FormatDecreaseIndent" + Me.SpreadsheetCommandBarButtonItem29.Id = 56 + Me.SpreadsheetCommandBarButtonItem29.Name = "SpreadsheetCommandBarButtonItem29" + Me.SpreadsheetCommandBarButtonItem29.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem30 + ' + Me.SpreadsheetCommandBarButtonItem30.ButtonGroupTag = "{A5E37DED-106E-44FC-8044-CE3824C08225}" + Me.SpreadsheetCommandBarButtonItem30.CommandName = "FormatIncreaseIndent" + Me.SpreadsheetCommandBarButtonItem30.Id = 57 + Me.SpreadsheetCommandBarButtonItem30.Name = "SpreadsheetCommandBarButtonItem30" + Me.SpreadsheetCommandBarButtonItem30.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarCheckItem11 + ' + Me.SpreadsheetCommandBarCheckItem11.CommandName = "FormatWrapText" + Me.SpreadsheetCommandBarCheckItem11.Id = 58 + Me.SpreadsheetCommandBarCheckItem11.Name = "SpreadsheetCommandBarCheckItem11" + Me.SpreadsheetCommandBarCheckItem11.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarSubItem2 + ' + Me.SpreadsheetCommandBarSubItem2.CommandName = "EditingMergeCellsCommandGroup" + Me.SpreadsheetCommandBarSubItem2.Id = 59 + Me.SpreadsheetCommandBarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem12), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem31), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem32), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem33)}) + Me.SpreadsheetCommandBarSubItem2.Name = "SpreadsheetCommandBarSubItem2" + Me.SpreadsheetCommandBarSubItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarCheckItem12 + ' + Me.SpreadsheetCommandBarCheckItem12.CommandName = "EditingMergeAndCenterCells" + Me.SpreadsheetCommandBarCheckItem12.Id = 60 + Me.SpreadsheetCommandBarCheckItem12.Name = "SpreadsheetCommandBarCheckItem12" + ' + 'SpreadsheetCommandBarButtonItem31 + ' + Me.SpreadsheetCommandBarButtonItem31.CommandName = "EditingMergeCellsAcross" + Me.SpreadsheetCommandBarButtonItem31.Id = 61 + Me.SpreadsheetCommandBarButtonItem31.Name = "SpreadsheetCommandBarButtonItem31" + ' + 'SpreadsheetCommandBarButtonItem32 + ' + Me.SpreadsheetCommandBarButtonItem32.CommandName = "EditingMergeCells" + Me.SpreadsheetCommandBarButtonItem32.Id = 62 + Me.SpreadsheetCommandBarButtonItem32.Name = "SpreadsheetCommandBarButtonItem32" + ' + 'SpreadsheetCommandBarButtonItem33 + ' + Me.SpreadsheetCommandBarButtonItem33.CommandName = "EditingUnmergeCells" + Me.SpreadsheetCommandBarButtonItem33.Id = 63 + Me.SpreadsheetCommandBarButtonItem33.Name = "SpreadsheetCommandBarButtonItem33" + ' + 'BarButtonGroup8 + ' + Me.BarButtonGroup8.Id = 17 + Me.BarButtonGroup8.ItemLinks.Add(Me.ChangeNumberFormatItem1) + Me.BarButtonGroup8.Name = "BarButtonGroup8" + Me.BarButtonGroup8.Tag = "{0B3A7A43-3079-4ce0-83A8-3789F5F6DC9F}" + ' + 'ChangeNumberFormatItem1 + ' + Me.ChangeNumberFormatItem1.Edit = Me.RepositoryItemPopupGalleryEdit1 + Me.ChangeNumberFormatItem1.Id = 64 + Me.ChangeNumberFormatItem1.Name = "ChangeNumberFormatItem1" + ' + 'RepositoryItemPopupGalleryEdit1 + ' + Me.RepositoryItemPopupGalleryEdit1.AutoHeight = False + Me.RepositoryItemPopupGalleryEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + ' + ' + ' + Me.RepositoryItemPopupGalleryEdit1.Gallery.AllowFilter = False + Me.RepositoryItemPopupGalleryEdit1.Gallery.AutoFitColumns = False + Me.RepositoryItemPopupGalleryEdit1.Gallery.ColumnCount = 1 + Me.RepositoryItemPopupGalleryEdit1.Gallery.FixedImageSize = False + SpreadsheetCommandGalleryItem13.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem13.CaptionAsValue = True + SpreadsheetCommandGalleryItem13.CommandName = "FormatNumberGeneral" + SpreadsheetCommandGalleryItem13.IsEmptyHint = True + SpreadsheetCommandGalleryItem14.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem14.CaptionAsValue = True + SpreadsheetCommandGalleryItem14.CommandName = "FormatNumberDecimal" + SpreadsheetCommandGalleryItem14.IsEmptyHint = True + SpreadsheetCommandGalleryItem15.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem15.CaptionAsValue = True + SpreadsheetCommandGalleryItem15.CommandName = "FormatNumberAccountingCurrency" + SpreadsheetCommandGalleryItem15.IsEmptyHint = True + SpreadsheetCommandGalleryItem16.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem16.CaptionAsValue = True + SpreadsheetCommandGalleryItem16.CommandName = "FormatNumberAccountingRegular" + SpreadsheetCommandGalleryItem16.IsEmptyHint = True + SpreadsheetCommandGalleryItem17.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem17.CaptionAsValue = True + SpreadsheetCommandGalleryItem17.CommandName = "FormatNumberShortDate" + SpreadsheetCommandGalleryItem17.IsEmptyHint = True + SpreadsheetCommandGalleryItem18.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem18.CaptionAsValue = True + SpreadsheetCommandGalleryItem18.CommandName = "FormatNumberLongDate" + SpreadsheetCommandGalleryItem18.IsEmptyHint = True + SpreadsheetCommandGalleryItem19.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem19.CaptionAsValue = True + SpreadsheetCommandGalleryItem19.CommandName = "FormatNumberTime" + SpreadsheetCommandGalleryItem19.IsEmptyHint = True + SpreadsheetCommandGalleryItem20.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem20.CaptionAsValue = True + SpreadsheetCommandGalleryItem20.CommandName = "FormatNumberPercentage" + SpreadsheetCommandGalleryItem20.IsEmptyHint = True + SpreadsheetCommandGalleryItem21.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem21.CaptionAsValue = True + SpreadsheetCommandGalleryItem21.CommandName = "FormatNumberFraction" + SpreadsheetCommandGalleryItem21.IsEmptyHint = True + SpreadsheetCommandGalleryItem22.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem22.CaptionAsValue = True + SpreadsheetCommandGalleryItem22.CommandName = "FormatNumberScientific" + SpreadsheetCommandGalleryItem22.IsEmptyHint = True + SpreadsheetCommandGalleryItem23.AlwaysUpdateDescription = True + SpreadsheetCommandGalleryItem23.CaptionAsValue = True + SpreadsheetCommandGalleryItem23.CommandName = "FormatNumberText" + SpreadsheetCommandGalleryItem23.IsEmptyHint = True + GalleryItemGroup1.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem13, SpreadsheetCommandGalleryItem14, SpreadsheetCommandGalleryItem15, SpreadsheetCommandGalleryItem16, SpreadsheetCommandGalleryItem17, SpreadsheetCommandGalleryItem18, SpreadsheetCommandGalleryItem19, SpreadsheetCommandGalleryItem20, SpreadsheetCommandGalleryItem21, SpreadsheetCommandGalleryItem22, SpreadsheetCommandGalleryItem23}) + Me.RepositoryItemPopupGalleryEdit1.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {GalleryItemGroup1}) + Me.RepositoryItemPopupGalleryEdit1.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.RepositoryItemPopupGalleryEdit1.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.RepositoryItemPopupGalleryEdit1.Gallery.RowCount = 11 + Me.RepositoryItemPopupGalleryEdit1.Gallery.ShowGroupCaption = False + Me.RepositoryItemPopupGalleryEdit1.Gallery.ShowItemText = True + Me.RepositoryItemPopupGalleryEdit1.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.Hide + Me.RepositoryItemPopupGalleryEdit1.Gallery.StretchItems = True + Me.RepositoryItemPopupGalleryEdit1.Name = "RepositoryItemPopupGalleryEdit1" + Me.RepositoryItemPopupGalleryEdit1.ShowButtons = False + Me.RepositoryItemPopupGalleryEdit1.ShowPopupCloseButton = False + Me.RepositoryItemPopupGalleryEdit1.ShowSizeGrip = False + ' + 'BarButtonGroup9 + ' + Me.BarButtonGroup9.Id = 18 + Me.BarButtonGroup9.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem3) + Me.BarButtonGroup9.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem39) + Me.BarButtonGroup9.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem40) + Me.BarButtonGroup9.Name = "BarButtonGroup9" + Me.BarButtonGroup9.Tag = "{508C2CE6-E1C8-4DD1-BA50-6C210FDB31B0}" + ' + 'SpreadsheetCommandBarSubItem3 + ' + Me.SpreadsheetCommandBarSubItem3.ButtonGroupTag = "{508C2CE6-E1C8-4DD1-BA50-6C210FDB31B0}" + Me.SpreadsheetCommandBarSubItem3.CommandName = "FormatNumberAccountingCommandGroup" + Me.SpreadsheetCommandBarSubItem3.Id = 65 + Me.SpreadsheetCommandBarSubItem3.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem34), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem35), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem36), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem37), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem38)}) + Me.SpreadsheetCommandBarSubItem3.Name = "SpreadsheetCommandBarSubItem3" + Me.SpreadsheetCommandBarSubItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem34 + ' + Me.SpreadsheetCommandBarButtonItem34.CommandName = "FormatNumberAccountingUS" + Me.SpreadsheetCommandBarButtonItem34.Id = 66 + Me.SpreadsheetCommandBarButtonItem34.Name = "SpreadsheetCommandBarButtonItem34" + ' + 'SpreadsheetCommandBarButtonItem35 + ' + Me.SpreadsheetCommandBarButtonItem35.CommandName = "FormatNumberAccountingUK" + Me.SpreadsheetCommandBarButtonItem35.Id = 67 + Me.SpreadsheetCommandBarButtonItem35.Name = "SpreadsheetCommandBarButtonItem35" + ' + 'SpreadsheetCommandBarButtonItem36 + ' + Me.SpreadsheetCommandBarButtonItem36.CommandName = "FormatNumberAccountingEuro" + Me.SpreadsheetCommandBarButtonItem36.Id = 68 + Me.SpreadsheetCommandBarButtonItem36.Name = "SpreadsheetCommandBarButtonItem36" + ' + 'SpreadsheetCommandBarButtonItem37 + ' + Me.SpreadsheetCommandBarButtonItem37.CommandName = "FormatNumberAccountingPRC" + Me.SpreadsheetCommandBarButtonItem37.Id = 69 + Me.SpreadsheetCommandBarButtonItem37.Name = "SpreadsheetCommandBarButtonItem37" + ' + 'SpreadsheetCommandBarButtonItem38 + ' + Me.SpreadsheetCommandBarButtonItem38.CommandName = "FormatNumberAccountingSwiss" + Me.SpreadsheetCommandBarButtonItem38.Id = 70 + Me.SpreadsheetCommandBarButtonItem38.Name = "SpreadsheetCommandBarButtonItem38" + ' + 'SpreadsheetCommandBarButtonItem39 + ' + Me.SpreadsheetCommandBarButtonItem39.ButtonGroupTag = "{508C2CE6-E1C8-4DD1-BA50-6C210FDB31B0}" + Me.SpreadsheetCommandBarButtonItem39.CommandName = "FormatNumberPercent" + Me.SpreadsheetCommandBarButtonItem39.Id = 71 + Me.SpreadsheetCommandBarButtonItem39.Name = "SpreadsheetCommandBarButtonItem39" + Me.SpreadsheetCommandBarButtonItem39.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem40 + ' + Me.SpreadsheetCommandBarButtonItem40.ButtonGroupTag = "{508C2CE6-E1C8-4DD1-BA50-6C210FDB31B0}" + Me.SpreadsheetCommandBarButtonItem40.CommandName = "FormatNumberAccounting" + Me.SpreadsheetCommandBarButtonItem40.Id = 72 + Me.SpreadsheetCommandBarButtonItem40.Name = "SpreadsheetCommandBarButtonItem40" + Me.SpreadsheetCommandBarButtonItem40.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'BarButtonGroup10 + ' + Me.BarButtonGroup10.Id = 19 + Me.BarButtonGroup10.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem41) + Me.BarButtonGroup10.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem42) + Me.BarButtonGroup10.Name = "BarButtonGroup10" + Me.BarButtonGroup10.Tag = "{BBAB348B-BDB2-487A-A883-EFB9982DC698}" + ' + 'SpreadsheetCommandBarButtonItem41 + ' + Me.SpreadsheetCommandBarButtonItem41.ButtonGroupTag = "{BBAB348B-BDB2-487A-A883-EFB9982DC698}" + Me.SpreadsheetCommandBarButtonItem41.CommandName = "FormatNumberIncreaseDecimal" + Me.SpreadsheetCommandBarButtonItem41.Id = 73 + Me.SpreadsheetCommandBarButtonItem41.Name = "SpreadsheetCommandBarButtonItem41" + Me.SpreadsheetCommandBarButtonItem41.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonItem42 + ' + Me.SpreadsheetCommandBarButtonItem42.ButtonGroupTag = "{BBAB348B-BDB2-487A-A883-EFB9982DC698}" + Me.SpreadsheetCommandBarButtonItem42.CommandName = "FormatNumberDecreaseDecimal" + Me.SpreadsheetCommandBarButtonItem42.Id = 74 + Me.SpreadsheetCommandBarButtonItem42.Name = "SpreadsheetCommandBarButtonItem42" + Me.SpreadsheetCommandBarButtonItem42.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem2 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2.CommandName = "ConditionalFormattingColorScalesCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2.DropDownControl = Me.CommandBarGalleryDropDown27 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2.Id = 92 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem2" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem2.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'CommandBarGalleryDropDown27 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown27.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup3.CommandName = "ConditionalFormattingColorScalesCommandGroup" + SpreadsheetCommandGalleryItem24.CommandName = "ConditionalFormattingColorScaleGreenYellowRed" + SpreadsheetCommandGalleryItem25.CommandName = "ConditionalFormattingColorScaleRedYellowGreen" + SpreadsheetCommandGalleryItem26.CommandName = "ConditionalFormattingColorScaleGreenWhiteRed" + SpreadsheetCommandGalleryItem27.CommandName = "ConditionalFormattingColorScaleRedWhiteGreen" + SpreadsheetCommandGalleryItem28.CommandName = "ConditionalFormattingColorScaleBlueWhiteRed" + SpreadsheetCommandGalleryItem29.CommandName = "ConditionalFormattingColorScaleRedWhiteBlue" + SpreadsheetCommandGalleryItem30.CommandName = "ConditionalFormattingColorScaleWhiteRed" + SpreadsheetCommandGalleryItem31.CommandName = "ConditionalFormattingColorScaleRedWhite" + SpreadsheetCommandGalleryItem32.CommandName = "ConditionalFormattingColorScaleGreenWhite" + SpreadsheetCommandGalleryItem33.CommandName = "ConditionalFormattingColorScaleWhiteGreen" + SpreadsheetCommandGalleryItem34.CommandName = "ConditionalFormattingColorScaleGreenYellow" + SpreadsheetCommandGalleryItem35.CommandName = "ConditionalFormattingColorScaleYellowGreen" + SpreadsheetCommandGalleryItemGroup3.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem24, SpreadsheetCommandGalleryItem25, SpreadsheetCommandGalleryItem26, SpreadsheetCommandGalleryItem27, SpreadsheetCommandGalleryItem28, SpreadsheetCommandGalleryItem29, SpreadsheetCommandGalleryItem30, SpreadsheetCommandGalleryItem31, SpreadsheetCommandGalleryItem32, SpreadsheetCommandGalleryItem33, SpreadsheetCommandGalleryItem34, SpreadsheetCommandGalleryItem35}) + Me.CommandBarGalleryDropDown27.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup3}) + Me.CommandBarGalleryDropDown27.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown27.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown27.Name = "CommandBarGalleryDropDown27" + Me.CommandBarGalleryDropDown27.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem3 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3.CommandName = "ConditionalFormattingIconSetsCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3.DropDownControl = Me.CommandBarGalleryDropDown28 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3.Id = 93 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem3" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' + 'CommandBarGalleryDropDown28 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown28.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup4.CommandName = "ConditionalFormattingIconSetsDirectionalCommandGroup" + SpreadsheetCommandGalleryItem36.CommandName = "ConditionalFormattingIconSetArrows3Colored" + SpreadsheetCommandGalleryItem37.CommandName = "ConditionalFormattingIconSetArrows3Grayed" + SpreadsheetCommandGalleryItem38.CommandName = "ConditionalFormattingIconSetArrows4Colored" + SpreadsheetCommandGalleryItem39.CommandName = "ConditionalFormattingIconSetArrows4Grayed" + SpreadsheetCommandGalleryItem40.CommandName = "ConditionalFormattingIconSetArrows5Colored" + SpreadsheetCommandGalleryItem41.CommandName = "ConditionalFormattingIconSetArrows5Grayed" + SpreadsheetCommandGalleryItem42.CommandName = "ConditionalFormattingIconSetTriangles3" + SpreadsheetCommandGalleryItemGroup4.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem36, SpreadsheetCommandGalleryItem37, SpreadsheetCommandGalleryItem38, SpreadsheetCommandGalleryItem39, SpreadsheetCommandGalleryItem40, SpreadsheetCommandGalleryItem41, SpreadsheetCommandGalleryItem42}) + SpreadsheetCommandGalleryItemGroup5.CommandName = "ConditionalFormattingIconSetsShapesCommandGroup" + SpreadsheetCommandGalleryItem43.CommandName = "ConditionalFormattingIconSetTrafficLights3" + SpreadsheetCommandGalleryItem44.CommandName = "ConditionalFormattingIconSetTrafficLights3Rimmed" + SpreadsheetCommandGalleryItem45.CommandName = "ConditionalFormattingIconSetTrafficLights4" + SpreadsheetCommandGalleryItem46.CommandName = "ConditionalFormattingIconSetSigns3" + SpreadsheetCommandGalleryItem47.CommandName = "ConditionalFormattingIconSetRedToBlack" + SpreadsheetCommandGalleryItemGroup5.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem43, SpreadsheetCommandGalleryItem44, SpreadsheetCommandGalleryItem45, SpreadsheetCommandGalleryItem46, SpreadsheetCommandGalleryItem47}) + SpreadsheetCommandGalleryItemGroup6.CommandName = "ConditionalFormattingIconSetsIndicatorsCommandGroup" + SpreadsheetCommandGalleryItem48.CommandName = "ConditionalFormattingIconSetSymbols3Circled" + SpreadsheetCommandGalleryItem49.CommandName = "ConditionalFormattingIconSetSymbols3" + SpreadsheetCommandGalleryItem50.CommandName = "ConditionalFormattingIconSetFlags3" + SpreadsheetCommandGalleryItemGroup6.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem48, SpreadsheetCommandGalleryItem49, SpreadsheetCommandGalleryItem50}) + SpreadsheetCommandGalleryItemGroup7.CommandName = "ConditionalFormattingIconSetsRatingsCommandGroup" + SpreadsheetCommandGalleryItem51.CommandName = "ConditionalFormattingIconSetStars3" + SpreadsheetCommandGalleryItem52.CommandName = "ConditionalFormattingIconSetRatings4" + SpreadsheetCommandGalleryItem53.CommandName = "ConditionalFormattingIconSetRatings5" + SpreadsheetCommandGalleryItem54.CommandName = "ConditionalFormattingIconSetQuarters5" + SpreadsheetCommandGalleryItem55.CommandName = "ConditionalFormattingIconSetBoxes5" + SpreadsheetCommandGalleryItemGroup7.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem51, SpreadsheetCommandGalleryItem52, SpreadsheetCommandGalleryItem53, SpreadsheetCommandGalleryItem54, SpreadsheetCommandGalleryItem55}) + Me.CommandBarGalleryDropDown28.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup4, SpreadsheetCommandGalleryItemGroup5, SpreadsheetCommandGalleryItemGroup6, SpreadsheetCommandGalleryItemGroup7}) + Me.CommandBarGalleryDropDown28.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown28.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown28.Name = "CommandBarGalleryDropDown28" + Me.CommandBarGalleryDropDown28.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonItem56 + ' + Me.SpreadsheetCommandBarButtonItem56.CommandName = "ConditionalFormattingRemoveFromSheet" + Me.SpreadsheetCommandBarButtonItem56.Id = 94 + Me.SpreadsheetCommandBarButtonItem56.Name = "SpreadsheetCommandBarButtonItem56" + ' + 'SpreadsheetCommandBarButtonItem57 + ' + Me.SpreadsheetCommandBarButtonItem57.CommandName = "ConditionalFormattingRemove" + Me.SpreadsheetCommandBarButtonItem57.Id = 95 + Me.SpreadsheetCommandBarButtonItem57.Name = "SpreadsheetCommandBarButtonItem57" + ' + 'SpreadsheetCommandBarSubItem7 + ' + Me.SpreadsheetCommandBarSubItem7.CommandName = "ConditionalFormattingRemoveCommandGroup" + Me.SpreadsheetCommandBarSubItem7.Id = 96 + Me.SpreadsheetCommandBarSubItem7.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem56), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem57)}) + Me.SpreadsheetCommandBarSubItem7.Name = "SpreadsheetCommandBarSubItem7" + ' + 'GalleryFormatAsTableItem1 + ' + Me.GalleryFormatAsTableItem1.DropDownControl = Me.CommandBarGalleryDropDown29 + Me.GalleryFormatAsTableItem1.Id = 97 + Me.GalleryFormatAsTableItem1.Name = "GalleryFormatAsTableItem1" + ' + 'CommandBarGalleryDropDown29 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown29.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown29.Gallery.ColumnCount = 7 + Me.CommandBarGalleryDropDown29.Gallery.DrawImageBackground = False + Me.CommandBarGalleryDropDown29.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.CommandBarGalleryDropDown29.Gallery.ItemSize = New System.Drawing.Size(73, 58) + Me.CommandBarGalleryDropDown29.Gallery.RowCount = 10 + Me.CommandBarGalleryDropDown29.Name = "CommandBarGalleryDropDown29" + Me.CommandBarGalleryDropDown29.Ribbon = Me.RibbonControl1 + ' + 'GalleryChangeStyleItem1 + ' + ' + ' + ' + Me.GalleryChangeStyleItem1.Gallery.DrawImageBackground = False + Me.GalleryChangeStyleItem1.Gallery.ImageSize = New System.Drawing.Size(65, 46) + Me.GalleryChangeStyleItem1.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.GalleryChangeStyleItem1.Gallery.ItemSize = New System.Drawing.Size(106, 28) + Me.GalleryChangeStyleItem1.Gallery.RowCount = 9 + Me.GalleryChangeStyleItem1.Gallery.ShowItemText = True + Me.GalleryChangeStyleItem1.Id = 98 + Me.GalleryChangeStyleItem1.Name = "GalleryChangeStyleItem1" + ' + 'SpreadsheetCommandBarSubItem8 + ' + Me.SpreadsheetCommandBarSubItem8.CommandName = "InsertCellsCommandGroup" + Me.SpreadsheetCommandBarSubItem8.Id = 99 + Me.SpreadsheetCommandBarSubItem8.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem58), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem59), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem60)}) + Me.SpreadsheetCommandBarSubItem8.Name = "SpreadsheetCommandBarSubItem8" + ' + 'SpreadsheetCommandBarButtonItem58 + ' + Me.SpreadsheetCommandBarButtonItem58.CommandName = "InsertSheetRows" + Me.SpreadsheetCommandBarButtonItem58.Id = 100 + Me.SpreadsheetCommandBarButtonItem58.Name = "SpreadsheetCommandBarButtonItem58" + ' + 'SpreadsheetCommandBarButtonItem59 + ' + Me.SpreadsheetCommandBarButtonItem59.CommandName = "InsertSheetColumns" + Me.SpreadsheetCommandBarButtonItem59.Id = 101 + Me.SpreadsheetCommandBarButtonItem59.Name = "SpreadsheetCommandBarButtonItem59" + ' + 'SpreadsheetCommandBarButtonItem60 + ' + Me.SpreadsheetCommandBarButtonItem60.CommandName = "InsertSheet" + Me.SpreadsheetCommandBarButtonItem60.Id = 102 + Me.SpreadsheetCommandBarButtonItem60.Name = "SpreadsheetCommandBarButtonItem60" + ' + 'SpreadsheetCommandBarSubItem9 + ' + Me.SpreadsheetCommandBarSubItem9.CommandName = "RemoveCellsCommandGroup" + Me.SpreadsheetCommandBarSubItem9.Id = 103 + Me.SpreadsheetCommandBarSubItem9.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem61), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem62), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem63)}) + Me.SpreadsheetCommandBarSubItem9.Name = "SpreadsheetCommandBarSubItem9" + ' + 'SpreadsheetCommandBarButtonItem61 + ' + Me.SpreadsheetCommandBarButtonItem61.CommandName = "RemoveSheetRows" + Me.SpreadsheetCommandBarButtonItem61.Id = 104 + Me.SpreadsheetCommandBarButtonItem61.Name = "SpreadsheetCommandBarButtonItem61" + ' + 'SpreadsheetCommandBarButtonItem62 + ' + Me.SpreadsheetCommandBarButtonItem62.CommandName = "RemoveSheetColumns" + Me.SpreadsheetCommandBarButtonItem62.Id = 105 + Me.SpreadsheetCommandBarButtonItem62.Name = "SpreadsheetCommandBarButtonItem62" + ' + 'SpreadsheetCommandBarButtonItem63 + ' + Me.SpreadsheetCommandBarButtonItem63.CommandName = "RemoveSheet" + Me.SpreadsheetCommandBarButtonItem63.Id = 106 + Me.SpreadsheetCommandBarButtonItem63.Name = "SpreadsheetCommandBarButtonItem63" + ' + 'SpreadsheetCommandBarSubItem10 + ' + Me.SpreadsheetCommandBarSubItem10.CommandName = "FormatCommandGroup" + Me.SpreadsheetCommandBarSubItem10.Id = 107 + Me.SpreadsheetCommandBarSubItem10.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem64), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem65), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarSubItem11), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem72)}) + Me.SpreadsheetCommandBarSubItem10.Name = "SpreadsheetCommandBarSubItem10" + ' + 'SpreadsheetCommandBarButtonItem64 + ' + Me.SpreadsheetCommandBarButtonItem64.CommandName = "FormatAutoFitRowHeight" + Me.SpreadsheetCommandBarButtonItem64.Id = 108 + Me.SpreadsheetCommandBarButtonItem64.Name = "SpreadsheetCommandBarButtonItem64" + ' + 'SpreadsheetCommandBarButtonItem65 + ' + Me.SpreadsheetCommandBarButtonItem65.CommandName = "FormatAutoFitColumnWidth" + Me.SpreadsheetCommandBarButtonItem65.Id = 109 + Me.SpreadsheetCommandBarButtonItem65.Name = "SpreadsheetCommandBarButtonItem65" + ' + 'SpreadsheetCommandBarSubItem11 + ' + Me.SpreadsheetCommandBarSubItem11.CommandName = "HideAndUnhideCommandGroup" + Me.SpreadsheetCommandBarSubItem11.Id = 116 + Me.SpreadsheetCommandBarSubItem11.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem66), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem67), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem68), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem69), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem70), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem71)}) + Me.SpreadsheetCommandBarSubItem11.Name = "SpreadsheetCommandBarSubItem11" + ' + 'SpreadsheetCommandBarButtonItem66 + ' + Me.SpreadsheetCommandBarButtonItem66.CommandName = "HideRows" + Me.SpreadsheetCommandBarButtonItem66.Id = 110 + Me.SpreadsheetCommandBarButtonItem66.Name = "SpreadsheetCommandBarButtonItem66" + ' + 'SpreadsheetCommandBarButtonItem67 + ' + Me.SpreadsheetCommandBarButtonItem67.CommandName = "HideColumns" + Me.SpreadsheetCommandBarButtonItem67.Id = 111 + Me.SpreadsheetCommandBarButtonItem67.Name = "SpreadsheetCommandBarButtonItem67" + ' + 'SpreadsheetCommandBarButtonItem68 + ' + Me.SpreadsheetCommandBarButtonItem68.CommandName = "HideSheet" + Me.SpreadsheetCommandBarButtonItem68.Id = 112 + Me.SpreadsheetCommandBarButtonItem68.Name = "SpreadsheetCommandBarButtonItem68" + ' + 'SpreadsheetCommandBarButtonItem69 + ' + Me.SpreadsheetCommandBarButtonItem69.CommandName = "UnhideRows" + Me.SpreadsheetCommandBarButtonItem69.Id = 113 + Me.SpreadsheetCommandBarButtonItem69.Name = "SpreadsheetCommandBarButtonItem69" + ' + 'SpreadsheetCommandBarButtonItem70 + ' + Me.SpreadsheetCommandBarButtonItem70.CommandName = "UnhideColumns" + Me.SpreadsheetCommandBarButtonItem70.Id = 114 + Me.SpreadsheetCommandBarButtonItem70.Name = "SpreadsheetCommandBarButtonItem70" + ' + 'SpreadsheetCommandBarButtonItem71 + ' + Me.SpreadsheetCommandBarButtonItem71.CommandName = "UnhideSheet" + Me.SpreadsheetCommandBarButtonItem71.Id = 115 + Me.SpreadsheetCommandBarButtonItem71.Name = "SpreadsheetCommandBarButtonItem71" + ' + 'SpreadsheetCommandBarButtonItem72 + ' + Me.SpreadsheetCommandBarButtonItem72.CommandName = "RenameSheet" + Me.SpreadsheetCommandBarButtonItem72.Id = 117 + Me.SpreadsheetCommandBarButtonItem72.Name = "SpreadsheetCommandBarButtonItem72" + ' + 'SpreadsheetCommandBarSubItem12 + ' + Me.SpreadsheetCommandBarSubItem12.CommandName = "EditingAutoSumCommandGroup" + Me.SpreadsheetCommandBarSubItem12.Id = 118 + Me.SpreadsheetCommandBarSubItem12.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem73), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem74), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem75), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem76), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem77)}) + Me.SpreadsheetCommandBarSubItem12.Name = "SpreadsheetCommandBarSubItem12" + Me.SpreadsheetCommandBarSubItem12.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarButtonItem73 + ' + Me.SpreadsheetCommandBarButtonItem73.CommandName = "FunctionsInsertSum" + Me.SpreadsheetCommandBarButtonItem73.Id = 119 + Me.SpreadsheetCommandBarButtonItem73.Name = "SpreadsheetCommandBarButtonItem73" + ' + 'SpreadsheetCommandBarButtonItem74 + ' + Me.SpreadsheetCommandBarButtonItem74.CommandName = "FunctionsInsertAverage" + Me.SpreadsheetCommandBarButtonItem74.Id = 120 + Me.SpreadsheetCommandBarButtonItem74.Name = "SpreadsheetCommandBarButtonItem74" + ' + 'SpreadsheetCommandBarButtonItem75 + ' + Me.SpreadsheetCommandBarButtonItem75.CommandName = "FunctionsInsertCountNumbers" + Me.SpreadsheetCommandBarButtonItem75.Id = 121 + Me.SpreadsheetCommandBarButtonItem75.Name = "SpreadsheetCommandBarButtonItem75" + ' + 'SpreadsheetCommandBarButtonItem76 + ' + Me.SpreadsheetCommandBarButtonItem76.CommandName = "FunctionsInsertMax" + Me.SpreadsheetCommandBarButtonItem76.Id = 122 + Me.SpreadsheetCommandBarButtonItem76.Name = "SpreadsheetCommandBarButtonItem76" + ' + 'SpreadsheetCommandBarButtonItem77 + ' + Me.SpreadsheetCommandBarButtonItem77.CommandName = "FunctionsInsertMin" + Me.SpreadsheetCommandBarButtonItem77.Id = 123 + Me.SpreadsheetCommandBarButtonItem77.Name = "SpreadsheetCommandBarButtonItem77" + ' + 'SpreadsheetCommandBarSubItem13 + ' + Me.SpreadsheetCommandBarSubItem13.CommandName = "EditingFillCommandGroup" + Me.SpreadsheetCommandBarSubItem13.Id = 124 + Me.SpreadsheetCommandBarSubItem13.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem78), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem79), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem80), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem81)}) + Me.SpreadsheetCommandBarSubItem13.Name = "SpreadsheetCommandBarSubItem13" + Me.SpreadsheetCommandBarSubItem13.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarButtonItem78 + ' + Me.SpreadsheetCommandBarButtonItem78.CommandName = "EditingFillDown" + Me.SpreadsheetCommandBarButtonItem78.Id = 125 + Me.SpreadsheetCommandBarButtonItem78.Name = "SpreadsheetCommandBarButtonItem78" + ' + 'SpreadsheetCommandBarButtonItem79 + ' + Me.SpreadsheetCommandBarButtonItem79.CommandName = "EditingFillRight" + Me.SpreadsheetCommandBarButtonItem79.Id = 126 + Me.SpreadsheetCommandBarButtonItem79.Name = "SpreadsheetCommandBarButtonItem79" + ' + 'SpreadsheetCommandBarButtonItem80 + ' + Me.SpreadsheetCommandBarButtonItem80.CommandName = "EditingFillUp" + Me.SpreadsheetCommandBarButtonItem80.Id = 127 + Me.SpreadsheetCommandBarButtonItem80.Name = "SpreadsheetCommandBarButtonItem80" + ' + 'SpreadsheetCommandBarButtonItem81 + ' + Me.SpreadsheetCommandBarButtonItem81.CommandName = "EditingFillLeft" + Me.SpreadsheetCommandBarButtonItem81.Id = 128 + Me.SpreadsheetCommandBarButtonItem81.Name = "SpreadsheetCommandBarButtonItem81" + ' + 'SpreadsheetCommandBarSubItem14 + ' + Me.SpreadsheetCommandBarSubItem14.CommandName = "FormatClearCommandGroup" + Me.SpreadsheetCommandBarSubItem14.Id = 129 + Me.SpreadsheetCommandBarSubItem14.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem82), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem83), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem84), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem85), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem86), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem87)}) + Me.SpreadsheetCommandBarSubItem14.Name = "SpreadsheetCommandBarSubItem14" + Me.SpreadsheetCommandBarSubItem14.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarButtonItem82 + ' + Me.SpreadsheetCommandBarButtonItem82.CommandName = "FormatClearAll" + Me.SpreadsheetCommandBarButtonItem82.Id = 130 + Me.SpreadsheetCommandBarButtonItem82.Name = "SpreadsheetCommandBarButtonItem82" + ' + 'SpreadsheetCommandBarButtonItem83 + ' + Me.SpreadsheetCommandBarButtonItem83.CommandName = "FormatClearFormats" + Me.SpreadsheetCommandBarButtonItem83.Id = 131 + Me.SpreadsheetCommandBarButtonItem83.Name = "SpreadsheetCommandBarButtonItem83" + ' + 'SpreadsheetCommandBarButtonItem84 + ' + Me.SpreadsheetCommandBarButtonItem84.CommandName = "FormatClearContents" + Me.SpreadsheetCommandBarButtonItem84.Id = 132 + Me.SpreadsheetCommandBarButtonItem84.Name = "SpreadsheetCommandBarButtonItem84" + ' + 'SpreadsheetCommandBarButtonItem85 + ' + Me.SpreadsheetCommandBarButtonItem85.CommandName = "FormatClearComments" + Me.SpreadsheetCommandBarButtonItem85.Id = 133 + Me.SpreadsheetCommandBarButtonItem85.Name = "SpreadsheetCommandBarButtonItem85" + ' + 'SpreadsheetCommandBarButtonItem86 + ' + Me.SpreadsheetCommandBarButtonItem86.CommandName = "FormatClearHyperlinks" + Me.SpreadsheetCommandBarButtonItem86.Id = 134 + Me.SpreadsheetCommandBarButtonItem86.Name = "SpreadsheetCommandBarButtonItem86" + ' + 'SpreadsheetCommandBarButtonItem87 + ' + Me.SpreadsheetCommandBarButtonItem87.CommandName = "FormatRemoveHyperlinks" + Me.SpreadsheetCommandBarButtonItem87.Id = 135 + Me.SpreadsheetCommandBarButtonItem87.Name = "SpreadsheetCommandBarButtonItem87" + ' + 'SpreadsheetCommandBarButtonItem88 + ' + Me.SpreadsheetCommandBarButtonItem88.CommandName = "InsertTable" + Me.SpreadsheetCommandBarButtonItem88.Id = 136 + Me.SpreadsheetCommandBarButtonItem88.Name = "SpreadsheetCommandBarButtonItem88" + ' + 'SpreadsheetCommandBarButtonItem89 + ' + Me.SpreadsheetCommandBarButtonItem89.CommandName = "InsertPicture" + Me.SpreadsheetCommandBarButtonItem89.Id = 137 + Me.SpreadsheetCommandBarButtonItem89.Name = "SpreadsheetCommandBarButtonItem89" + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem4 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem4.CommandName = "InsertChartColumnCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem4.DropDownControl = Me.CommandBarGalleryDropDown30 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem4.Id = 138 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem4.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem4" + ' + 'CommandBarGalleryDropDown30 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown30.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup8.CommandName = "InsertChartColumn2DCommandGroup" + SpreadsheetCommandGalleryItem56.CommandName = "InsertChartColumnClustered2D" + SpreadsheetCommandGalleryItem57.CommandName = "InsertChartColumnStacked2D" + SpreadsheetCommandGalleryItem58.CommandName = "InsertChartColumnPercentStacked2D" + SpreadsheetCommandGalleryItemGroup8.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem56, SpreadsheetCommandGalleryItem57, SpreadsheetCommandGalleryItem58}) + SpreadsheetCommandGalleryItemGroup9.CommandName = "InsertChartColumn3DCommandGroup" + SpreadsheetCommandGalleryItem59.CommandName = "InsertChartColumnClustered3D" + SpreadsheetCommandGalleryItem60.CommandName = "InsertChartColumnStacked3D" + SpreadsheetCommandGalleryItem61.CommandName = "InsertChartColumnPercentStacked3D" + SpreadsheetCommandGalleryItem62.CommandName = "InsertChartColumn3D" + SpreadsheetCommandGalleryItemGroup9.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem59, SpreadsheetCommandGalleryItem60, SpreadsheetCommandGalleryItem61, SpreadsheetCommandGalleryItem62}) + SpreadsheetCommandGalleryItemGroup10.CommandName = "InsertChartCylinderCommandGroup" + SpreadsheetCommandGalleryItem63.CommandName = "InsertChartCylinderClustered" + SpreadsheetCommandGalleryItem64.CommandName = "InsertChartCylinderStacked" + SpreadsheetCommandGalleryItem65.CommandName = "InsertChartCylinderPercentStacked" + SpreadsheetCommandGalleryItem66.CommandName = "InsertChartCylinder" + SpreadsheetCommandGalleryItemGroup10.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem63, SpreadsheetCommandGalleryItem64, SpreadsheetCommandGalleryItem65, SpreadsheetCommandGalleryItem66}) + SpreadsheetCommandGalleryItemGroup11.CommandName = "InsertChartConeCommandGroup" + SpreadsheetCommandGalleryItem67.CommandName = "InsertChartConeClustered" + SpreadsheetCommandGalleryItem68.CommandName = "InsertChartConeStacked" + SpreadsheetCommandGalleryItem69.CommandName = "InsertChartConePercentStacked" + SpreadsheetCommandGalleryItem70.CommandName = "InsertChartCone" + SpreadsheetCommandGalleryItemGroup11.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem67, SpreadsheetCommandGalleryItem68, SpreadsheetCommandGalleryItem69, SpreadsheetCommandGalleryItem70}) + SpreadsheetCommandGalleryItemGroup12.CommandName = "InsertChartPyramidCommandGroup" + SpreadsheetCommandGalleryItem71.CommandName = "InsertChartPyramidClustered" + SpreadsheetCommandGalleryItem72.CommandName = "InsertChartPyramidStacked" + SpreadsheetCommandGalleryItem73.CommandName = "InsertChartPyramidPercentStacked" + SpreadsheetCommandGalleryItem74.CommandName = "InsertChartPyramid" + SpreadsheetCommandGalleryItemGroup12.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem71, SpreadsheetCommandGalleryItem72, SpreadsheetCommandGalleryItem73, SpreadsheetCommandGalleryItem74}) + Me.CommandBarGalleryDropDown30.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup8, SpreadsheetCommandGalleryItemGroup9, SpreadsheetCommandGalleryItemGroup10, SpreadsheetCommandGalleryItemGroup11, SpreadsheetCommandGalleryItemGroup12}) + Me.CommandBarGalleryDropDown30.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown30.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown30.Name = "CommandBarGalleryDropDown30" + Me.CommandBarGalleryDropDown30.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem5 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem5.CommandName = "InsertChartLineCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem5.DropDownControl = Me.CommandBarGalleryDropDown31 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem5.Id = 139 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem5.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem5" + ' + 'CommandBarGalleryDropDown31 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown31.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup13.CommandName = "InsertChartLine2DCommandGroup" + SpreadsheetCommandGalleryItem75.CommandName = "InsertChartLine" + SpreadsheetCommandGalleryItem76.CommandName = "InsertChartStackedLine" + SpreadsheetCommandGalleryItem77.CommandName = "InsertChartPercentStackedLine" + SpreadsheetCommandGalleryItem78.CommandName = "InsertChartLineWithMarkers" + SpreadsheetCommandGalleryItem79.CommandName = "InsertChartStackedLineWithMarkers" + SpreadsheetCommandGalleryItem80.CommandName = "InsertChartPercentStackedLineWithMarkers" + SpreadsheetCommandGalleryItemGroup13.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem75, SpreadsheetCommandGalleryItem76, SpreadsheetCommandGalleryItem77, SpreadsheetCommandGalleryItem78, SpreadsheetCommandGalleryItem79, SpreadsheetCommandGalleryItem80}) + SpreadsheetCommandGalleryItemGroup14.CommandName = "InsertChartLine3DCommandGroup" + SpreadsheetCommandGalleryItem81.CommandName = "InsertChartLine3D" + SpreadsheetCommandGalleryItemGroup14.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem81}) + Me.CommandBarGalleryDropDown31.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup13, SpreadsheetCommandGalleryItemGroup14}) + Me.CommandBarGalleryDropDown31.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown31.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown31.Name = "CommandBarGalleryDropDown31" + Me.CommandBarGalleryDropDown31.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem6 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem6.CommandName = "InsertChartPieCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem6.DropDownControl = Me.CommandBarGalleryDropDown32 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem6.Id = 140 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem6.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem6" + ' + 'CommandBarGalleryDropDown32 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown32.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup15.CommandName = "InsertChartPie2DCommandGroup" + SpreadsheetCommandGalleryItem82.CommandName = "InsertChartPie2D" + SpreadsheetCommandGalleryItem83.CommandName = "InsertChartPieExploded2D" + SpreadsheetCommandGalleryItemGroup15.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem82, SpreadsheetCommandGalleryItem83}) + SpreadsheetCommandGalleryItemGroup16.CommandName = "InsertChartPie3DCommandGroup" + SpreadsheetCommandGalleryItem84.CommandName = "InsertChartPie3D" + SpreadsheetCommandGalleryItem85.CommandName = "InsertChartPieExploded3D" + SpreadsheetCommandGalleryItemGroup16.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem84, SpreadsheetCommandGalleryItem85}) + SpreadsheetCommandGalleryItemGroup17.CommandName = "InsertChartDoughnut2DCommandGroup" + SpreadsheetCommandGalleryItem86.CommandName = "InsertChartDoughnut2D" + SpreadsheetCommandGalleryItem87.CommandName = "InsertChartDoughnutExploded2D" + SpreadsheetCommandGalleryItemGroup17.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem86, SpreadsheetCommandGalleryItem87}) + Me.CommandBarGalleryDropDown32.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup15, SpreadsheetCommandGalleryItemGroup16, SpreadsheetCommandGalleryItemGroup17}) + Me.CommandBarGalleryDropDown32.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown32.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown32.Name = "CommandBarGalleryDropDown32" + Me.CommandBarGalleryDropDown32.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem7 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem7.CommandName = "InsertChartBarCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem7.DropDownControl = Me.CommandBarGalleryDropDown33 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem7.Id = 141 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem7.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem7" + ' + 'CommandBarGalleryDropDown33 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown33.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup18.CommandName = "InsertChartBar2DCommandGroup" + SpreadsheetCommandGalleryItem88.CommandName = "InsertChartBarClustered2D" + SpreadsheetCommandGalleryItem89.CommandName = "InsertChartBarStacked2D" + SpreadsheetCommandGalleryItem90.CommandName = "InsertChartBarPercentStacked2D" + SpreadsheetCommandGalleryItemGroup18.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem88, SpreadsheetCommandGalleryItem89, SpreadsheetCommandGalleryItem90}) + SpreadsheetCommandGalleryItemGroup19.CommandName = "InsertChartBar3DCommandGroup" + SpreadsheetCommandGalleryItem91.CommandName = "InsertChartBarClustered3D" + SpreadsheetCommandGalleryItem92.CommandName = "InsertChartBarStacked3D" + SpreadsheetCommandGalleryItem93.CommandName = "InsertChartBarPercentStacked3D" + SpreadsheetCommandGalleryItemGroup19.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem91, SpreadsheetCommandGalleryItem92, SpreadsheetCommandGalleryItem93}) + SpreadsheetCommandGalleryItemGroup20.CommandName = "InsertChartHorizontalCylinderCommandGroup" + SpreadsheetCommandGalleryItem94.CommandName = "InsertChartHorizontalCylinderClustered" + SpreadsheetCommandGalleryItem95.CommandName = "InsertChartHorizontalCylinderStacked" + SpreadsheetCommandGalleryItem96.CommandName = "InsertChartHorizontalCylinderPercentStacked" + SpreadsheetCommandGalleryItemGroup20.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem94, SpreadsheetCommandGalleryItem95, SpreadsheetCommandGalleryItem96}) + SpreadsheetCommandGalleryItemGroup21.CommandName = "InsertChartHorizontalConeCommandGroup" + SpreadsheetCommandGalleryItem97.CommandName = "InsertChartHorizontalConeClustered" + SpreadsheetCommandGalleryItem98.CommandName = "InsertChartHorizontalConeStacked" + SpreadsheetCommandGalleryItem99.CommandName = "InsertChartHorizontalConePercentStacked" + SpreadsheetCommandGalleryItemGroup21.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem97, SpreadsheetCommandGalleryItem98, SpreadsheetCommandGalleryItem99}) + SpreadsheetCommandGalleryItemGroup22.CommandName = "InsertChartHorizontalPyramidCommandGroup" + SpreadsheetCommandGalleryItem100.CommandName = "InsertChartHorizontalPyramidClustered" + SpreadsheetCommandGalleryItem101.CommandName = "InsertChartHorizontalPyramidStacked" + SpreadsheetCommandGalleryItem102.CommandName = "InsertChartHorizontalPyramidPercentStacked" + SpreadsheetCommandGalleryItemGroup22.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem100, SpreadsheetCommandGalleryItem101, SpreadsheetCommandGalleryItem102}) + Me.CommandBarGalleryDropDown33.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup18, SpreadsheetCommandGalleryItemGroup19, SpreadsheetCommandGalleryItemGroup20, SpreadsheetCommandGalleryItemGroup21, SpreadsheetCommandGalleryItemGroup22}) + Me.CommandBarGalleryDropDown33.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown33.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown33.Name = "CommandBarGalleryDropDown33" + Me.CommandBarGalleryDropDown33.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem8 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem8.CommandName = "InsertChartAreaCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem8.DropDownControl = Me.CommandBarGalleryDropDown34 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem8.Id = 142 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem8.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem8" + ' + 'CommandBarGalleryDropDown34 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown34.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup23.CommandName = "InsertChartArea2DCommandGroup" + SpreadsheetCommandGalleryItem103.CommandName = "InsertChartArea" + SpreadsheetCommandGalleryItem104.CommandName = "InsertChartStackedArea" + SpreadsheetCommandGalleryItem105.CommandName = "InsertChartPercentStackedArea" + SpreadsheetCommandGalleryItemGroup23.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem103, SpreadsheetCommandGalleryItem104, SpreadsheetCommandGalleryItem105}) + SpreadsheetCommandGalleryItemGroup24.CommandName = "InsertChartArea3DCommandGroup" + SpreadsheetCommandGalleryItem106.CommandName = "InsertChartArea3D" + SpreadsheetCommandGalleryItem107.CommandName = "InsertChartStackedArea3D" + SpreadsheetCommandGalleryItem108.CommandName = "InsertChartPercentStackedArea3D" + SpreadsheetCommandGalleryItemGroup24.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem106, SpreadsheetCommandGalleryItem107, SpreadsheetCommandGalleryItem108}) + Me.CommandBarGalleryDropDown34.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup23, SpreadsheetCommandGalleryItemGroup24}) + Me.CommandBarGalleryDropDown34.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown34.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown34.Name = "CommandBarGalleryDropDown34" + Me.CommandBarGalleryDropDown34.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem9 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem9.CommandName = "InsertChartScatterCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem9.DropDownControl = Me.CommandBarGalleryDropDown35 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem9.Id = 143 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem9.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem9" + ' + 'CommandBarGalleryDropDown35 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown35.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup25.CommandName = "InsertChartScatterCommandGroup" + SpreadsheetCommandGalleryItem109.CommandName = "InsertChartScatterMarkers" + SpreadsheetCommandGalleryItem110.CommandName = "InsertChartScatterSmoothLinesAndMarkers" + SpreadsheetCommandGalleryItem111.CommandName = "InsertChartScatterSmoothLines" + SpreadsheetCommandGalleryItem112.CommandName = "InsertChartScatterLinesAndMarkers" + SpreadsheetCommandGalleryItem113.CommandName = "InsertChartScatterLines" + SpreadsheetCommandGalleryItemGroup25.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem109, SpreadsheetCommandGalleryItem110, SpreadsheetCommandGalleryItem111, SpreadsheetCommandGalleryItem112, SpreadsheetCommandGalleryItem113}) + SpreadsheetCommandGalleryItemGroup26.CommandName = "InsertChartBubbleCommandGroup" + SpreadsheetCommandGalleryItem114.CommandName = "InsertChartBubble" + SpreadsheetCommandGalleryItem115.CommandName = "InsertChartBubble3D" + SpreadsheetCommandGalleryItemGroup26.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem114, SpreadsheetCommandGalleryItem115}) + Me.CommandBarGalleryDropDown35.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup25, SpreadsheetCommandGalleryItemGroup26}) + Me.CommandBarGalleryDropDown35.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown35.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown35.Name = "CommandBarGalleryDropDown35" + Me.CommandBarGalleryDropDown35.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonGalleryDropDownItem10 + ' + Me.SpreadsheetCommandBarButtonGalleryDropDownItem10.CommandName = "InsertChartOtherCommandGroup" + Me.SpreadsheetCommandBarButtonGalleryDropDownItem10.DropDownControl = Me.CommandBarGalleryDropDown36 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem10.Id = 144 + Me.SpreadsheetCommandBarButtonGalleryDropDownItem10.Name = "SpreadsheetCommandBarButtonGalleryDropDownItem10" + ' + 'CommandBarGalleryDropDown36 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown36.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup27.CommandName = "InsertChartStockCommandGroup" + SpreadsheetCommandGalleryItem116.CommandName = "InsertChartStockHighLowClose" + SpreadsheetCommandGalleryItem117.CommandName = "InsertChartStockOpenHighLowClose" + SpreadsheetCommandGalleryItemGroup27.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem116, SpreadsheetCommandGalleryItem117}) + SpreadsheetCommandGalleryItemGroup28.CommandName = "InsertChartRadarCommandGroup" + SpreadsheetCommandGalleryItem118.CommandName = "InsertChartRadar" + SpreadsheetCommandGalleryItem119.CommandName = "InsertChartRadarWithMarkers" + SpreadsheetCommandGalleryItem120.CommandName = "InsertChartRadarFilled" + SpreadsheetCommandGalleryItemGroup28.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem118, SpreadsheetCommandGalleryItem119, SpreadsheetCommandGalleryItem120}) + Me.CommandBarGalleryDropDown36.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup27, SpreadsheetCommandGalleryItemGroup28}) + Me.CommandBarGalleryDropDown36.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown36.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown36.Name = "CommandBarGalleryDropDown36" + Me.CommandBarGalleryDropDown36.Ribbon = Me.RibbonControl1 + ' + 'SpreadsheetCommandBarButtonItem90 + ' + Me.SpreadsheetCommandBarButtonItem90.CommandName = "InsertHyperlink" + Me.SpreadsheetCommandBarButtonItem90.Id = 145 + Me.SpreadsheetCommandBarButtonItem90.Name = "SpreadsheetCommandBarButtonItem90" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Table Name:" + Me.BarStaticItem1.Id = 146 + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.TextAlignment = System.Drawing.StringAlignment.Near + ' + 'RenameTableItem1 + ' + Me.RenameTableItem1.Edit = Me.RepositoryItemTextEdit1 + Me.RenameTableItem1.Id = 147 + Me.RenameTableItem1.Name = "RenameTableItem1" + ' + 'RepositoryItemTextEdit1 + ' + Me.RepositoryItemTextEdit1.AutoHeight = False + Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1" + ' + 'SpreadsheetCommandBarCheckItem13 + ' + Me.SpreadsheetCommandBarCheckItem13.CommandName = "TableToolsConvertToRange" + Me.SpreadsheetCommandBarCheckItem13.Id = 148 + Me.SpreadsheetCommandBarCheckItem13.Name = "SpreadsheetCommandBarCheckItem13" + Me.SpreadsheetCommandBarCheckItem13.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'SpreadsheetCommandBarCheckItem14 + ' + Me.SpreadsheetCommandBarCheckItem14.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem14.CommandName = "TableToolsToggleHeaderRow" + Me.SpreadsheetCommandBarCheckItem14.Id = 149 + Me.SpreadsheetCommandBarCheckItem14.Name = "SpreadsheetCommandBarCheckItem14" + ' + 'SpreadsheetCommandBarCheckItem15 + ' + Me.SpreadsheetCommandBarCheckItem15.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem15.CommandName = "TableToolsToggleTotalRow" + Me.SpreadsheetCommandBarCheckItem15.Id = 150 + Me.SpreadsheetCommandBarCheckItem15.Name = "SpreadsheetCommandBarCheckItem15" + ' + 'SpreadsheetCommandBarCheckItem16 + ' + Me.SpreadsheetCommandBarCheckItem16.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem16.CommandName = "TableToolsToggleBandedColumns" + Me.SpreadsheetCommandBarCheckItem16.Id = 151 + Me.SpreadsheetCommandBarCheckItem16.Name = "SpreadsheetCommandBarCheckItem16" + ' + 'SpreadsheetCommandBarCheckItem17 + ' + Me.SpreadsheetCommandBarCheckItem17.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem17.CommandName = "TableToolsToggleFirstColumn" + Me.SpreadsheetCommandBarCheckItem17.Id = 152 + Me.SpreadsheetCommandBarCheckItem17.Name = "SpreadsheetCommandBarCheckItem17" + ' + 'SpreadsheetCommandBarCheckItem18 + ' + Me.SpreadsheetCommandBarCheckItem18.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem18.CommandName = "TableToolsToggleLastColumn" + Me.SpreadsheetCommandBarCheckItem18.Id = 153 + Me.SpreadsheetCommandBarCheckItem18.Name = "SpreadsheetCommandBarCheckItem18" + ' + 'SpreadsheetCommandBarCheckItem19 + ' + Me.SpreadsheetCommandBarCheckItem19.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem19.CommandName = "TableToolsToggleBandedRows" + Me.SpreadsheetCommandBarCheckItem19.Id = 154 + Me.SpreadsheetCommandBarCheckItem19.Name = "SpreadsheetCommandBarCheckItem19" + ' + 'GalleryTableStylesItem1 + ' + ' + ' + ' + Me.GalleryTableStylesItem1.Gallery.ColumnCount = 7 + Me.GalleryTableStylesItem1.Gallery.DrawImageBackground = False + Me.GalleryTableStylesItem1.Gallery.ImageSize = New System.Drawing.Size(65, 46) + Me.GalleryTableStylesItem1.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.GalleryTableStylesItem1.Gallery.ItemSize = New System.Drawing.Size(73, 58) + Me.GalleryTableStylesItem1.Gallery.RowCount = 10 + Me.GalleryTableStylesItem1.Id = 155 + Me.GalleryTableStylesItem1.Name = "GalleryTableStylesItem1" + ' + 'SpreadsheetCommandBarCheckItem20 + ' + Me.SpreadsheetCommandBarCheckItem20.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem20.CommandName = "ViewShowGridlines" + Me.SpreadsheetCommandBarCheckItem20.Id = 156 + Me.SpreadsheetCommandBarCheckItem20.Name = "SpreadsheetCommandBarCheckItem20" + ' + 'SpreadsheetCommandBarCheckItem21 + ' + Me.SpreadsheetCommandBarCheckItem21.CheckBoxVisibility = DevExpress.XtraBars.CheckBoxVisibility.BeforeText + Me.SpreadsheetCommandBarCheckItem21.CommandName = "ViewShowHeadings" + Me.SpreadsheetCommandBarCheckItem21.Id = 157 + Me.SpreadsheetCommandBarCheckItem21.Name = "SpreadsheetCommandBarCheckItem21" + ' + 'SpreadsheetCommandBarButtonItem91 + ' + Me.SpreadsheetCommandBarButtonItem91.CommandName = "ViewZoomOut" + Me.SpreadsheetCommandBarButtonItem91.Id = 158 + Me.SpreadsheetCommandBarButtonItem91.Name = "SpreadsheetCommandBarButtonItem91" + ' + 'SpreadsheetCommandBarButtonItem92 + ' + Me.SpreadsheetCommandBarButtonItem92.CommandName = "ViewZoomIn" + Me.SpreadsheetCommandBarButtonItem92.Id = 159 + Me.SpreadsheetCommandBarButtonItem92.Name = "SpreadsheetCommandBarButtonItem92" + ' + 'SpreadsheetCommandBarButtonItem93 + ' + Me.SpreadsheetCommandBarButtonItem93.CommandName = "ViewZoom100Percent" + Me.SpreadsheetCommandBarButtonItem93.Id = 160 + Me.SpreadsheetCommandBarButtonItem93.Name = "SpreadsheetCommandBarButtonItem93" + ' + 'SpreadsheetCommandBarSubItem15 + ' + Me.SpreadsheetCommandBarSubItem15.CommandName = "ViewFreezePanesCommandGroup" + Me.SpreadsheetCommandBarSubItem15.Id = 161 + Me.SpreadsheetCommandBarSubItem15.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem94), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem95), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem96), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem97)}) + Me.SpreadsheetCommandBarSubItem15.Name = "SpreadsheetCommandBarSubItem15" + ' + 'SpreadsheetCommandBarButtonItem94 + ' + Me.SpreadsheetCommandBarButtonItem94.CommandName = "ViewFreezePanes" + Me.SpreadsheetCommandBarButtonItem94.Id = 162 + Me.SpreadsheetCommandBarButtonItem94.Name = "SpreadsheetCommandBarButtonItem94" + ' + 'SpreadsheetCommandBarButtonItem95 + ' + Me.SpreadsheetCommandBarButtonItem95.CommandName = "ViewUnfreezePanes" + Me.SpreadsheetCommandBarButtonItem95.Id = 163 + Me.SpreadsheetCommandBarButtonItem95.Name = "SpreadsheetCommandBarButtonItem95" + ' + 'SpreadsheetCommandBarButtonItem96 + ' + Me.SpreadsheetCommandBarButtonItem96.CommandName = "ViewFreezeTopRow" + Me.SpreadsheetCommandBarButtonItem96.Id = 164 + Me.SpreadsheetCommandBarButtonItem96.Name = "SpreadsheetCommandBarButtonItem96" + ' + 'SpreadsheetCommandBarButtonItem97 + ' + Me.SpreadsheetCommandBarButtonItem97.CommandName = "ViewFreezeFirstColumn" + Me.SpreadsheetCommandBarButtonItem97.Id = 165 + Me.SpreadsheetCommandBarButtonItem97.Name = "SpreadsheetCommandBarButtonItem97" + ' + 'SpreadsheetCommandBarSubItem16 + ' + Me.SpreadsheetCommandBarSubItem16.CommandName = "FunctionsAutoSumCommandGroup" + Me.SpreadsheetCommandBarSubItem16.Id = 166 + Me.SpreadsheetCommandBarSubItem16.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem73), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem74), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem75), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem76), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem77)}) + Me.SpreadsheetCommandBarSubItem16.Name = "SpreadsheetCommandBarSubItem16" + ' + 'FunctionsFinancialItem1 + ' + Me.FunctionsFinancialItem1.Id = 167 + Me.FunctionsFinancialItem1.Name = "FunctionsFinancialItem1" + ' + 'FunctionsLogicalItem1 + ' + Me.FunctionsLogicalItem1.Id = 168 + Me.FunctionsLogicalItem1.Name = "FunctionsLogicalItem1" + ' + 'FunctionsTextItem1 + ' + Me.FunctionsTextItem1.Id = 169 + Me.FunctionsTextItem1.Name = "FunctionsTextItem1" + ' + 'FunctionsDateAndTimeItem1 + ' + Me.FunctionsDateAndTimeItem1.Id = 170 + Me.FunctionsDateAndTimeItem1.Name = "FunctionsDateAndTimeItem1" + ' + 'FunctionsLookupAndReferenceItem1 + ' + Me.FunctionsLookupAndReferenceItem1.Id = 171 + Me.FunctionsLookupAndReferenceItem1.Name = "FunctionsLookupAndReferenceItem1" + ' + 'FunctionsMathAndTrigonometryItem1 + ' + Me.FunctionsMathAndTrigonometryItem1.Id = 172 + Me.FunctionsMathAndTrigonometryItem1.Name = "FunctionsMathAndTrigonometryItem1" + ' + 'SpreadsheetCommandBarSubItem17 + ' + Me.SpreadsheetCommandBarSubItem17.CommandName = "FunctionsMoreCommandGroup" + Me.SpreadsheetCommandBarSubItem17.Id = 173 + Me.SpreadsheetCommandBarSubItem17.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.FunctionsStatisticalItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FunctionsEngineeringItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FunctionsInformationItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FunctionsCompatibilityItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.FunctionsWebItem1)}) + Me.SpreadsheetCommandBarSubItem17.Name = "SpreadsheetCommandBarSubItem17" + ' + 'FunctionsStatisticalItem1 + ' + Me.FunctionsStatisticalItem1.Id = 174 + Me.FunctionsStatisticalItem1.Name = "FunctionsStatisticalItem1" + ' + 'FunctionsEngineeringItem1 + ' + Me.FunctionsEngineeringItem1.Id = 175 + Me.FunctionsEngineeringItem1.Name = "FunctionsEngineeringItem1" + ' + 'FunctionsInformationItem1 + ' + Me.FunctionsInformationItem1.Id = 176 + Me.FunctionsInformationItem1.Name = "FunctionsInformationItem1" + ' + 'FunctionsCompatibilityItem1 + ' + Me.FunctionsCompatibilityItem1.Id = 177 + Me.FunctionsCompatibilityItem1.Name = "FunctionsCompatibilityItem1" + ' + 'FunctionsWebItem1 + ' + Me.FunctionsWebItem1.Id = 178 + Me.FunctionsWebItem1.Name = "FunctionsWebItem1" + ' + 'SpreadsheetCommandBarCheckItem22 + ' + Me.SpreadsheetCommandBarCheckItem22.CommandName = "ViewShowFormulas" + Me.SpreadsheetCommandBarCheckItem22.Id = 179 + Me.SpreadsheetCommandBarCheckItem22.Name = "SpreadsheetCommandBarCheckItem22" + ' + 'SpreadsheetCommandBarSubItem18 + ' + Me.SpreadsheetCommandBarSubItem18.CommandName = "PageSetupMarginsCommandGroup" + Me.SpreadsheetCommandBarSubItem18.Id = 180 + Me.SpreadsheetCommandBarSubItem18.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem23), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem24), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem25)}) + Me.SpreadsheetCommandBarSubItem18.Name = "SpreadsheetCommandBarSubItem18" + ' + 'SpreadsheetCommandBarCheckItem23 + ' + Me.SpreadsheetCommandBarCheckItem23.CaptionDependOnUnits = True + Me.SpreadsheetCommandBarCheckItem23.CommandName = "PageSetupMarginsNormal" + Me.SpreadsheetCommandBarCheckItem23.Id = 181 + Me.SpreadsheetCommandBarCheckItem23.Name = "SpreadsheetCommandBarCheckItem23" + ' + 'SpreadsheetCommandBarCheckItem24 + ' + Me.SpreadsheetCommandBarCheckItem24.CaptionDependOnUnits = True + Me.SpreadsheetCommandBarCheckItem24.CommandName = "PageSetupMarginsWide" + Me.SpreadsheetCommandBarCheckItem24.Id = 182 + Me.SpreadsheetCommandBarCheckItem24.Name = "SpreadsheetCommandBarCheckItem24" + ' + 'SpreadsheetCommandBarCheckItem25 + ' + Me.SpreadsheetCommandBarCheckItem25.CaptionDependOnUnits = True + Me.SpreadsheetCommandBarCheckItem25.CommandName = "PageSetupMarginsNarrow" + Me.SpreadsheetCommandBarCheckItem25.Id = 183 + Me.SpreadsheetCommandBarCheckItem25.Name = "SpreadsheetCommandBarCheckItem25" + ' + 'SpreadsheetCommandBarSubItem19 + ' + Me.SpreadsheetCommandBarSubItem19.CommandName = "PageSetupOrientationCommandGroup" + Me.SpreadsheetCommandBarSubItem19.Id = 184 + Me.SpreadsheetCommandBarSubItem19.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem26), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarCheckItem27)}) + Me.SpreadsheetCommandBarSubItem19.Name = "SpreadsheetCommandBarSubItem19" + ' + 'SpreadsheetCommandBarCheckItem26 + ' + Me.SpreadsheetCommandBarCheckItem26.CommandName = "PageSetupOrientationPortrait" + Me.SpreadsheetCommandBarCheckItem26.Id = 185 + Me.SpreadsheetCommandBarCheckItem26.Name = "SpreadsheetCommandBarCheckItem26" + ' + 'SpreadsheetCommandBarCheckItem27 + ' + Me.SpreadsheetCommandBarCheckItem27.CommandName = "PageSetupOrientationLandscape" + Me.SpreadsheetCommandBarCheckItem27.Id = 186 + Me.SpreadsheetCommandBarCheckItem27.Name = "SpreadsheetCommandBarCheckItem27" + ' + 'PageSetupPaperKindItem1 + ' + Me.PageSetupPaperKindItem1.Id = 187 + Me.PageSetupPaperKindItem1.Name = "PageSetupPaperKindItem1" + ' + 'SpreadsheetCommandBarSubItem20 + ' + Me.SpreadsheetCommandBarSubItem20.CommandName = "ArrangeBringForwardCommandGroup" + Me.SpreadsheetCommandBarSubItem20.Id = 188 + Me.SpreadsheetCommandBarSubItem20.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem103), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem104)}) + Me.SpreadsheetCommandBarSubItem20.Name = "SpreadsheetCommandBarSubItem20" + ' + 'SpreadsheetCommandBarButtonItem103 + ' + Me.SpreadsheetCommandBarButtonItem103.CommandName = "ArrangeBringForward" + Me.SpreadsheetCommandBarButtonItem103.Id = 189 + Me.SpreadsheetCommandBarButtonItem103.Name = "SpreadsheetCommandBarButtonItem103" + ' + 'SpreadsheetCommandBarButtonItem104 + ' + Me.SpreadsheetCommandBarButtonItem104.CommandName = "ArrangeBringToFront" + Me.SpreadsheetCommandBarButtonItem104.Id = 190 + Me.SpreadsheetCommandBarButtonItem104.Name = "SpreadsheetCommandBarButtonItem104" + ' + 'SpreadsheetCommandBarSubItem21 + ' + Me.SpreadsheetCommandBarSubItem21.CommandName = "ArrangeSendBackwardCommandGroup" + Me.SpreadsheetCommandBarSubItem21.Id = 191 + Me.SpreadsheetCommandBarSubItem21.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem105), New DevExpress.XtraBars.LinkPersistInfo(Me.SpreadsheetCommandBarButtonItem106)}) + Me.SpreadsheetCommandBarSubItem21.Name = "SpreadsheetCommandBarSubItem21" + ' + 'SpreadsheetCommandBarButtonItem105 + ' + Me.SpreadsheetCommandBarButtonItem105.CommandName = "ArrangeSendBackward" + Me.SpreadsheetCommandBarButtonItem105.Id = 192 + Me.SpreadsheetCommandBarButtonItem105.Name = "SpreadsheetCommandBarButtonItem105" + ' + 'SpreadsheetCommandBarButtonItem106 + ' + Me.SpreadsheetCommandBarButtonItem106.CommandName = "ArrangeSendToBack" + Me.SpreadsheetCommandBarButtonItem106.Id = 193 + Me.SpreadsheetCommandBarButtonItem106.Name = "SpreadsheetCommandBarButtonItem106" + ' + 'TableToolsRibbonPageCategory1 + ' + Me.TableToolsRibbonPageCategory1.Control = Me.SpreadsheetControl1 + Me.TableToolsRibbonPageCategory1.Name = "TableToolsRibbonPageCategory1" + Me.TableToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.TableToolsDesignRibbonPage1}) + Me.TableToolsRibbonPageCategory1.Visible = False + ' + 'TableToolsDesignRibbonPage1 + ' + Me.TableToolsDesignRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.TablePropertiesRibbonPageGroup1, Me.TableToolsRibbonPageGroup1, Me.TableStyleOptionsRibbonPageGroup1, Me.TableStylesRibbonPageGroup1}) + Me.TableToolsDesignRibbonPage1.Name = "TableToolsDesignRibbonPage1" + Me.TableToolsDesignRibbonPage1.Visible = False + ' + 'TablePropertiesRibbonPageGroup1 + ' + Me.TablePropertiesRibbonPageGroup1.ItemLinks.Add(Me.BarStaticItem1) + Me.TablePropertiesRibbonPageGroup1.ItemLinks.Add(Me.RenameTableItem1) + Me.TablePropertiesRibbonPageGroup1.Name = "TablePropertiesRibbonPageGroup1" + ' + 'TableToolsRibbonPageGroup1 + ' + Me.TableToolsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem13) + Me.TableToolsRibbonPageGroup1.Name = "TableToolsRibbonPageGroup1" + ' + 'TableStyleOptionsRibbonPageGroup1 + ' + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem14) + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem15) + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem16) + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem17) + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem18) + Me.TableStyleOptionsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem19) + Me.TableStyleOptionsRibbonPageGroup1.Name = "TableStyleOptionsRibbonPageGroup1" + ' + 'TableStylesRibbonPageGroup1 + ' + Me.TableStylesRibbonPageGroup1.ItemLinks.Add(Me.GalleryTableStylesItem1) + Me.TableStylesRibbonPageGroup1.Name = "TableStylesRibbonPageGroup1" + ' + 'FileRibbonPage1 + ' + Me.FileRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.CommonRibbonPageGroup1}) + Me.FileRibbonPage1.Name = "FileRibbonPage1" + ' + 'CommonRibbonPageGroup1 + ' + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem1) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem2) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem3) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem4) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem5) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem6) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem7) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem8) + Me.CommonRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem9) + Me.CommonRibbonPageGroup1.Name = "CommonRibbonPageGroup1" + ' + 'HomeRibbonPage1 + ' + Me.HomeRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ClipboardRibbonPageGroup1, Me.FontRibbonPageGroup1, Me.AlignmentRibbonPageGroup1, Me.NumberRibbonPageGroup1, Me.StylesRibbonPageGroup1, Me.CellsRibbonPageGroup1, Me.EditingRibbonPageGroup1}) + Me.HomeRibbonPage1.Name = "HomeRibbonPage1" + ReduceOperation1.Behavior = DevExpress.XtraBars.Ribbon.ReduceOperationBehavior.UntilAvailable + ReduceOperation1.Group = Me.StylesRibbonPageGroup1 + ReduceOperation1.ItemLinkIndex = 2 + ReduceOperation1.ItemLinksCount = 0 + ReduceOperation1.Operation = DevExpress.XtraBars.Ribbon.ReduceOperationType.Gallery + Me.HomeRibbonPage1.ReduceOperations.Add(ReduceOperation1) + ' + 'ClipboardRibbonPageGroup1 + ' + Me.ClipboardRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem10) + Me.ClipboardRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem11) + Me.ClipboardRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem12) + Me.ClipboardRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem13) + Me.ClipboardRibbonPageGroup1.Name = "ClipboardRibbonPageGroup1" + ' + 'FontRibbonPageGroup1 + ' + Me.FontRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup1) + Me.FontRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup2) + Me.FontRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup3) + Me.FontRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup4) + Me.FontRibbonPageGroup1.Name = "FontRibbonPageGroup1" + ' + 'AlignmentRibbonPageGroup1 + ' + Me.AlignmentRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup5) + Me.AlignmentRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup6) + Me.AlignmentRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup7) + Me.AlignmentRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem11) + Me.AlignmentRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem2) + Me.AlignmentRibbonPageGroup1.Name = "AlignmentRibbonPageGroup1" + ' + 'NumberRibbonPageGroup1 + ' + Me.NumberRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup8) + Me.NumberRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup9) + Me.NumberRibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup10) + Me.NumberRibbonPageGroup1.Name = "NumberRibbonPageGroup1" + ' + 'CellsRibbonPageGroup1 + ' + Me.CellsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem8) + Me.CellsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem9) + Me.CellsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem10) + Me.CellsRibbonPageGroup1.Name = "CellsRibbonPageGroup1" + ' + 'EditingRibbonPageGroup1 + ' + Me.EditingRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem12) + Me.EditingRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem13) + Me.EditingRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem14) + Me.EditingRibbonPageGroup1.Name = "EditingRibbonPageGroup1" + ' + 'InsertRibbonPage1 + ' + Me.InsertRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.TablesRibbonPageGroup1, Me.IllustrationsRibbonPageGroup1, Me.ChartsRibbonPageGroup1, Me.LinksRibbonPageGroup1}) + Me.InsertRibbonPage1.Name = "InsertRibbonPage1" + ' + 'TablesRibbonPageGroup1 + ' + Me.TablesRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem88) + Me.TablesRibbonPageGroup1.Name = "TablesRibbonPageGroup1" + ' + 'IllustrationsRibbonPageGroup1 + ' + Me.IllustrationsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem89) + Me.IllustrationsRibbonPageGroup1.Name = "IllustrationsRibbonPageGroup1" + ' + 'ChartsRibbonPageGroup1 + ' + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem4) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem5) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem6) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem7) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem8) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem9) + Me.ChartsRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem10) + Me.ChartsRibbonPageGroup1.Name = "ChartsRibbonPageGroup1" + ' + 'LinksRibbonPageGroup1 + ' + Me.LinksRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem90) + Me.LinksRibbonPageGroup1.Name = "LinksRibbonPageGroup1" + ' + 'ViewRibbonPage1 + ' + Me.ViewRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ShowRibbonPageGroup1, Me.ZoomRibbonPageGroup1, Me.WindowRibbonPageGroup1}) + Me.ViewRibbonPage1.Name = "ViewRibbonPage1" + ' + 'ShowRibbonPageGroup1 + ' + Me.ShowRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem20) + Me.ShowRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem21) + Me.ShowRibbonPageGroup1.Name = "ShowRibbonPageGroup1" + ' + 'ZoomRibbonPageGroup1 + ' + Me.ZoomRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem91) + Me.ZoomRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem92) + Me.ZoomRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarButtonItem93) + Me.ZoomRibbonPageGroup1.Name = "ZoomRibbonPageGroup1" + ' + 'WindowRibbonPageGroup1 + ' + Me.WindowRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem15) + Me.WindowRibbonPageGroup1.Name = "WindowRibbonPageGroup1" + ' + 'FormulasRibbonPage1 + ' + Me.FormulasRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.FunctionLibraryRibbonPageGroup1, Me.FormulaAuditingRibbonPageGroup1}) + Me.FormulasRibbonPage1.Name = "FormulasRibbonPage1" + ' + 'FunctionLibraryRibbonPageGroup1 + ' + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem16) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsFinancialItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsLogicalItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsTextItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsDateAndTimeItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsLookupAndReferenceItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.FunctionsMathAndTrigonometryItem1) + Me.FunctionLibraryRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem17) + Me.FunctionLibraryRibbonPageGroup1.Name = "FunctionLibraryRibbonPageGroup1" + ' + 'FormulaAuditingRibbonPageGroup1 + ' + Me.FormulaAuditingRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarCheckItem22) + Me.FormulaAuditingRibbonPageGroup1.Name = "FormulaAuditingRibbonPageGroup1" + ' + 'PageLayoutRibbonPage1 + ' + Me.PageLayoutRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.PageSetupRibbonPageGroup1, Me.ArrangeRibbonPageGroup1}) + Me.PageLayoutRibbonPage1.Name = "PageLayoutRibbonPage1" + ' + 'PageSetupRibbonPageGroup1 + ' + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem18) + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem19) + Me.PageSetupRibbonPageGroup1.ItemLinks.Add(Me.PageSetupPaperKindItem1) + Me.PageSetupRibbonPageGroup1.Name = "PageSetupRibbonPageGroup1" + ' + 'ArrangeRibbonPageGroup1 + ' + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem20) + Me.ArrangeRibbonPageGroup1.ItemLinks.Add(Me.SpreadsheetCommandBarSubItem21) + Me.ArrangeRibbonPageGroup1.Name = "ArrangeRibbonPageGroup1" + ' + 'CommandBarGalleryDropDown1 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown1.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown1.Gallery.ColumnCount = 1 + Me.CommandBarGalleryDropDown1.Gallery.DrawImageBackground = False + Me.CommandBarGalleryDropDown1.Gallery.ImageSize = New System.Drawing.Size(65, 46) + Me.CommandBarGalleryDropDown1.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.CommandBarGalleryDropDown1.Gallery.ItemSize = New System.Drawing.Size(136, 26) + Me.CommandBarGalleryDropDown1.Gallery.RowCount = 14 + Me.CommandBarGalleryDropDown1.Gallery.ShowGroupCaption = False + Me.CommandBarGalleryDropDown1.Gallery.ShowItemText = True + Me.CommandBarGalleryDropDown1.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown1.Manager = Nothing + Me.CommandBarGalleryDropDown1.Name = "CommandBarGalleryDropDown1" + ' + 'CommandBarGalleryDropDown2 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown2.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup29.Caption = "Gradient Fill" + SpreadsheetCommandGalleryItemGroup29.CommandName = "ConditionalFormattingDataBarsGradientFillCommandGroup" + SpreadsheetCommandGalleryItem121.Caption = "Blue Data Bar (Gradient)" + SpreadsheetCommandGalleryItem121.CommandName = "ConditionalFormattingDataBarGradientBlue" + SpreadsheetCommandGalleryItem121.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem121.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem122.Caption = "Green Data Bar (Gradient)" + SpreadsheetCommandGalleryItem122.CommandName = "ConditionalFormattingDataBarGradientGreen" + SpreadsheetCommandGalleryItem122.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem122.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem123.Caption = "Red Data Bar (Gradient)" + SpreadsheetCommandGalleryItem123.CommandName = "ConditionalFormattingDataBarGradientRed" + SpreadsheetCommandGalleryItem123.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem123.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem124.Caption = "Orange Data Bar (Gradient)" + SpreadsheetCommandGalleryItem124.CommandName = "ConditionalFormattingDataBarGradientOrange" + SpreadsheetCommandGalleryItem124.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem124.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem125.Caption = "Light Blue Data Bar (Gradient)" + SpreadsheetCommandGalleryItem125.CommandName = "ConditionalFormattingDataBarGradientLightBlue" + SpreadsheetCommandGalleryItem125.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem125.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem126.Caption = "Purple Data Bar (Gradient)" + SpreadsheetCommandGalleryItem126.CommandName = "ConditionalFormattingDataBarGradientPurple" + SpreadsheetCommandGalleryItem126.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem126.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItemGroup29.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem121, SpreadsheetCommandGalleryItem122, SpreadsheetCommandGalleryItem123, SpreadsheetCommandGalleryItem124, SpreadsheetCommandGalleryItem125, SpreadsheetCommandGalleryItem126}) + SpreadsheetCommandGalleryItemGroup30.Caption = "Solid Fill" + SpreadsheetCommandGalleryItemGroup30.CommandName = "ConditionalFormattingDataBarsSolidFillCommandGroup" + SpreadsheetCommandGalleryItem127.Caption = "Blue Data Bar (Solid)" + SpreadsheetCommandGalleryItem127.CommandName = "ConditionalFormattingDataBarSolidBlue" + SpreadsheetCommandGalleryItem127.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem127.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem128.Caption = "Green Data Bar (Solid)" + SpreadsheetCommandGalleryItem128.CommandName = "ConditionalFormattingDataBarSolidGreen" + SpreadsheetCommandGalleryItem128.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem128.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem129.Caption = "Red Data Bar (Solid)" + SpreadsheetCommandGalleryItem129.CommandName = "ConditionalFormattingDataBarSolidRed" + SpreadsheetCommandGalleryItem129.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem129.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem130.Caption = "Orange Data Bar (Solid)" + SpreadsheetCommandGalleryItem130.CommandName = "ConditionalFormattingDataBarSolidOrange" + SpreadsheetCommandGalleryItem130.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem130.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem131.Caption = "Light Blue Data Bar (Solid)" + SpreadsheetCommandGalleryItem131.CommandName = "ConditionalFormattingDataBarSolidLightBlue" + SpreadsheetCommandGalleryItem131.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem131.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem132.Caption = "Purple Data Bar (Solid)" + SpreadsheetCommandGalleryItem132.CommandName = "ConditionalFormattingDataBarSolidPurple" + SpreadsheetCommandGalleryItem132.Description = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItem132.Hint = "View a colored data bar in the cell. The length of the data bar represents the va" & _ + "lue in the cell. A longer bar represents a higher value." + SpreadsheetCommandGalleryItemGroup30.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem127, SpreadsheetCommandGalleryItem128, SpreadsheetCommandGalleryItem129, SpreadsheetCommandGalleryItem130, SpreadsheetCommandGalleryItem131, SpreadsheetCommandGalleryItem132}) + Me.CommandBarGalleryDropDown2.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup29, SpreadsheetCommandGalleryItemGroup30}) + Me.CommandBarGalleryDropDown2.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown2.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown2.Manager = Nothing + Me.CommandBarGalleryDropDown2.Name = "CommandBarGalleryDropDown2" + ' + 'CommandBarGalleryDropDown3 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown3.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup31.Caption = "Color Scales" + SpreadsheetCommandGalleryItemGroup31.CommandName = "ConditionalFormattingColorScalesCommandGroup" + SpreadsheetCommandGalleryItem133.Caption = "Green - Yellow - Red Color Scale" + SpreadsheetCommandGalleryItem133.CommandName = "ConditionalFormattingColorScaleGreenYellowRed" + SpreadsheetCommandGalleryItem133.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem133.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem134.Caption = "Red - Yellow - Green Color Scale" + SpreadsheetCommandGalleryItem134.CommandName = "ConditionalFormattingColorScaleRedYellowGreen" + SpreadsheetCommandGalleryItem134.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem134.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem135.Caption = "Green - White - Red Color Scale" + SpreadsheetCommandGalleryItem135.CommandName = "ConditionalFormattingColorScaleGreenWhiteRed" + SpreadsheetCommandGalleryItem135.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem135.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem136.Caption = "Red - White - Green Color Scale" + SpreadsheetCommandGalleryItem136.CommandName = "ConditionalFormattingColorScaleRedWhiteGreen" + SpreadsheetCommandGalleryItem136.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem136.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem137.Caption = "Blue - White - Red Color Scale" + SpreadsheetCommandGalleryItem137.CommandName = "ConditionalFormattingColorScaleBlueWhiteRed" + SpreadsheetCommandGalleryItem137.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem137.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem138.Caption = "Red - White - Blue Color Scale" + SpreadsheetCommandGalleryItem138.CommandName = "ConditionalFormattingColorScaleRedWhiteBlue" + SpreadsheetCommandGalleryItem138.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem138.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem139.Caption = "White - Red Color Scale" + SpreadsheetCommandGalleryItem139.CommandName = "ConditionalFormattingColorScaleWhiteRed" + SpreadsheetCommandGalleryItem139.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem139.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem140.Caption = "Red - White Color Scale" + SpreadsheetCommandGalleryItem140.CommandName = "ConditionalFormattingColorScaleRedWhite" + SpreadsheetCommandGalleryItem140.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem140.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem141.Caption = "Green - White Color Scale" + SpreadsheetCommandGalleryItem141.CommandName = "ConditionalFormattingColorScaleGreenWhite" + SpreadsheetCommandGalleryItem141.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem141.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem142.Caption = "White - Green Color Scale" + SpreadsheetCommandGalleryItem142.CommandName = "ConditionalFormattingColorScaleWhiteGreen" + SpreadsheetCommandGalleryItem142.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem142.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem143.Caption = "Green - Yellow Color Scale" + SpreadsheetCommandGalleryItem143.CommandName = "ConditionalFormattingColorScaleGreenYellow" + SpreadsheetCommandGalleryItem143.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem143.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem144.Caption = "Yellow - Green Color Scale" + SpreadsheetCommandGalleryItem144.CommandName = "ConditionalFormattingColorScaleYellowGreen" + SpreadsheetCommandGalleryItem144.Description = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItem144.Hint = "Displays a two or three color gradient in a range of cells. The shade of the colo" & _ + "r represents the value in the cell." + SpreadsheetCommandGalleryItemGroup31.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem133, SpreadsheetCommandGalleryItem134, SpreadsheetCommandGalleryItem135, SpreadsheetCommandGalleryItem136, SpreadsheetCommandGalleryItem137, SpreadsheetCommandGalleryItem138, SpreadsheetCommandGalleryItem139, SpreadsheetCommandGalleryItem140, SpreadsheetCommandGalleryItem141, SpreadsheetCommandGalleryItem142, SpreadsheetCommandGalleryItem143, SpreadsheetCommandGalleryItem144}) + Me.CommandBarGalleryDropDown3.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup31}) + Me.CommandBarGalleryDropDown3.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown3.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown3.Manager = Nothing + Me.CommandBarGalleryDropDown3.Name = "CommandBarGalleryDropDown3" + ' + 'CommandBarGalleryDropDown4 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown4.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup32.Caption = "Directional" + SpreadsheetCommandGalleryItemGroup32.CommandName = "ConditionalFormattingIconSetsDirectionalCommandGroup" + SpreadsheetCommandGalleryItem145.Caption = "3 Arrows (Colored)" + SpreadsheetCommandGalleryItem145.CommandName = "ConditionalFormattingIconSetArrows3Colored" + SpreadsheetCommandGalleryItem145.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem145.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem146.Caption = "3 Arrows (Gray)" + SpreadsheetCommandGalleryItem146.CommandName = "ConditionalFormattingIconSetArrows3Grayed" + SpreadsheetCommandGalleryItem146.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem146.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem147.Caption = "4 Arrows (Colored)" + SpreadsheetCommandGalleryItem147.CommandName = "ConditionalFormattingIconSetArrows4Colored" + SpreadsheetCommandGalleryItem147.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem147.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem148.Caption = "4 Arrows (Gray)" + SpreadsheetCommandGalleryItem148.CommandName = "ConditionalFormattingIconSetArrows4Grayed" + SpreadsheetCommandGalleryItem148.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem148.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem149.Caption = "5 Arrows (Colored)" + SpreadsheetCommandGalleryItem149.CommandName = "ConditionalFormattingIconSetArrows5Colored" + SpreadsheetCommandGalleryItem149.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem149.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem150.Caption = "5 Arrows (Gray)" + SpreadsheetCommandGalleryItem150.CommandName = "ConditionalFormattingIconSetArrows5Grayed" + SpreadsheetCommandGalleryItem150.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem150.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem151.Caption = "3 Triangles" + SpreadsheetCommandGalleryItem151.CommandName = "ConditionalFormattingIconSetTriangles3" + SpreadsheetCommandGalleryItem151.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem151.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItemGroup32.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem145, SpreadsheetCommandGalleryItem146, SpreadsheetCommandGalleryItem147, SpreadsheetCommandGalleryItem148, SpreadsheetCommandGalleryItem149, SpreadsheetCommandGalleryItem150, SpreadsheetCommandGalleryItem151}) + SpreadsheetCommandGalleryItemGroup33.Caption = "Shapes" + SpreadsheetCommandGalleryItemGroup33.CommandName = "ConditionalFormattingIconSetsShapesCommandGroup" + SpreadsheetCommandGalleryItem152.Caption = "3 Traffic Lights ()" + SpreadsheetCommandGalleryItem152.CommandName = "ConditionalFormattingIconSetTrafficLights3" + SpreadsheetCommandGalleryItem152.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem152.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem153.Caption = "3 Traffic Lights (Rimmed)" + SpreadsheetCommandGalleryItem153.CommandName = "ConditionalFormattingIconSetTrafficLights3Rimmed" + SpreadsheetCommandGalleryItem153.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem153.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem154.Caption = "4 Traffic Lights" + SpreadsheetCommandGalleryItem154.CommandName = "ConditionalFormattingIconSetTrafficLights4" + SpreadsheetCommandGalleryItem154.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem154.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem155.Caption = "3 Signs" + SpreadsheetCommandGalleryItem155.CommandName = "ConditionalFormattingIconSetSigns3" + SpreadsheetCommandGalleryItem155.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem155.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem156.Caption = "Red To Black" + SpreadsheetCommandGalleryItem156.CommandName = "ConditionalFormattingIconSetRedToBlack" + SpreadsheetCommandGalleryItem156.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem156.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItemGroup33.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem152, SpreadsheetCommandGalleryItem153, SpreadsheetCommandGalleryItem154, SpreadsheetCommandGalleryItem155, SpreadsheetCommandGalleryItem156}) + SpreadsheetCommandGalleryItemGroup34.Caption = "Indicators" + SpreadsheetCommandGalleryItemGroup34.CommandName = "ConditionalFormattingIconSetsIndicatorsCommandGroup" + SpreadsheetCommandGalleryItem157.Caption = "3 Symbols (Circled)" + SpreadsheetCommandGalleryItem157.CommandName = "ConditionalFormattingIconSetSymbols3Circled" + SpreadsheetCommandGalleryItem157.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem157.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem158.Caption = "3 Symbols (Uncircled)" + SpreadsheetCommandGalleryItem158.CommandName = "ConditionalFormattingIconSetSymbols3" + SpreadsheetCommandGalleryItem158.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem158.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem159.Caption = "3 Flags" + SpreadsheetCommandGalleryItem159.CommandName = "ConditionalFormattingIconSetFlags3" + SpreadsheetCommandGalleryItem159.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem159.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItemGroup34.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem157, SpreadsheetCommandGalleryItem158, SpreadsheetCommandGalleryItem159}) + SpreadsheetCommandGalleryItemGroup35.Caption = "Ratings" + SpreadsheetCommandGalleryItemGroup35.CommandName = "ConditionalFormattingIconSetsRatingsCommandGroup" + SpreadsheetCommandGalleryItem160.Caption = "3 Stars" + SpreadsheetCommandGalleryItem160.CommandName = "ConditionalFormattingIconSetStars3" + SpreadsheetCommandGalleryItem160.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem160.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem161.Caption = "4 Ratings" + SpreadsheetCommandGalleryItem161.CommandName = "ConditionalFormattingIconSetRatings4" + SpreadsheetCommandGalleryItem161.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem161.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem162.Caption = "5 Ratings" + SpreadsheetCommandGalleryItem162.CommandName = "ConditionalFormattingIconSetRatings5" + SpreadsheetCommandGalleryItem162.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem162.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem163.Caption = "5 Quarters" + SpreadsheetCommandGalleryItem163.CommandName = "ConditionalFormattingIconSetQuarters5" + SpreadsheetCommandGalleryItem163.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem163.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem164.Caption = "5 Boxes" + SpreadsheetCommandGalleryItem164.CommandName = "ConditionalFormattingIconSetBoxes5" + SpreadsheetCommandGalleryItem164.Description = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItem164.Hint = "Display an icon from the above icon set in each cell. Each icon represents a valu" & _ + "e in the cell." + SpreadsheetCommandGalleryItemGroup35.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem160, SpreadsheetCommandGalleryItem161, SpreadsheetCommandGalleryItem162, SpreadsheetCommandGalleryItem163, SpreadsheetCommandGalleryItem164}) + Me.CommandBarGalleryDropDown4.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup32, SpreadsheetCommandGalleryItemGroup33, SpreadsheetCommandGalleryItemGroup34, SpreadsheetCommandGalleryItemGroup35}) + Me.CommandBarGalleryDropDown4.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown4.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown4.Manager = Nothing + Me.CommandBarGalleryDropDown4.Name = "CommandBarGalleryDropDown4" + ' + 'CommandBarGalleryDropDown5 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown5.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown5.Gallery.ColumnCount = 7 + Me.CommandBarGalleryDropDown5.Gallery.DrawImageBackground = False + Me.CommandBarGalleryDropDown5.Gallery.ItemAutoSizeMode = DevExpress.XtraBars.Ribbon.Gallery.GalleryItemAutoSizeMode.None + Me.CommandBarGalleryDropDown5.Gallery.ItemSize = New System.Drawing.Size(73, 58) + Me.CommandBarGalleryDropDown5.Gallery.RowCount = 10 + Me.CommandBarGalleryDropDown5.Manager = Nothing + Me.CommandBarGalleryDropDown5.Name = "CommandBarGalleryDropDown5" + ' + 'CommandBarGalleryDropDown6 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown6.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup36.Caption = "2-D Column" + SpreadsheetCommandGalleryItemGroup36.CommandName = "InsertChartColumn2DCommandGroup" + SpreadsheetCommandGalleryItem165.Caption = "Clustered Column" + SpreadsheetCommandGalleryItem165.CommandName = "InsertChartColumnClustered2D" + SpreadsheetCommandGalleryItem165.Description = "Compare values across categories by using vertical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the" & _ + " order of categories is not important or for displaying item counts such as a hi" & _ + "stogram." + SpreadsheetCommandGalleryItem165.Hint = "Compare values across categories by using vertical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the" & _ + " order of categories is not important or for displaying item counts such as a hi" & _ + "stogram." + SpreadsheetCommandGalleryItem166.Caption = "Stacked Column" + SpreadsheetCommandGalleryItem166.CommandName = "InsertChartColumnStacked2D" + SpreadsheetCommandGalleryItem166.Description = "Compare the contribution of each value to a total across categories by using vert" & _ + "ical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it to emphasize the total across series for one category" & _ + "." + SpreadsheetCommandGalleryItem166.Hint = "Compare the contribution of each value to a total across categories by using vert" & _ + "ical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it to emphasize the total across series for one category" & _ + "." + SpreadsheetCommandGalleryItem167.Caption = "100% Stacked Column" + SpreadsheetCommandGalleryItem167.CommandName = "InsertChartColumnPercentStacked2D" + SpreadsheetCommandGalleryItem167.Description = "Compare the percentage that each value contributes to a total across categories b" & _ + "y using vertical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is to emphasize the proportion of each data " & _ + "series." + SpreadsheetCommandGalleryItem167.Hint = "Compare the percentage that each value contributes to a total across categories b" & _ + "y using vertical rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is to emphasize the proportion of each data " & _ + "series." + SpreadsheetCommandGalleryItemGroup36.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem165, SpreadsheetCommandGalleryItem166, SpreadsheetCommandGalleryItem167}) + SpreadsheetCommandGalleryItemGroup37.Caption = "3-D Column" + SpreadsheetCommandGalleryItemGroup37.CommandName = "InsertChartColumn3DCommandGroup" + SpreadsheetCommandGalleryItem168.Caption = "3-D Clustered Column" + SpreadsheetCommandGalleryItem168.CommandName = "InsertChartColumnClustered3D" + SpreadsheetCommandGalleryItem168.Description = "Compare values across categories and display clustered columns in 3-D format." + SpreadsheetCommandGalleryItem168.Hint = "Compare values across categories and display clustered columns in 3-D format." + SpreadsheetCommandGalleryItem169.Caption = "Stacked Column in 3-D" + SpreadsheetCommandGalleryItem169.CommandName = "InsertChartColumnStacked3D" + SpreadsheetCommandGalleryItem169.Description = "Compare the contribution of each value to a total across categories and display s" & _ + "tacked columns in 3-D format." + SpreadsheetCommandGalleryItem169.Hint = "Compare the contribution of each value to a total across categories and display s" & _ + "tacked columns in 3-D format." + SpreadsheetCommandGalleryItem170.Caption = "100% Stacked Column in 3-D" + SpreadsheetCommandGalleryItem170.CommandName = "InsertChartColumnPercentStacked3D" + SpreadsheetCommandGalleryItem170.Description = "Compare the percentage that each value contributes to a total across categories a" & _ + "nd display 100% stacked columns in 3-D format." + SpreadsheetCommandGalleryItem170.Hint = "Compare the percentage that each value contributes to a total across categories a" & _ + "nd display 100% stacked columns in 3-D format." + SpreadsheetCommandGalleryItem171.Caption = "3-D Column" + SpreadsheetCommandGalleryItem171.CommandName = "InsertChartColumn3D" + SpreadsheetCommandGalleryItem171.Description = "Compare values across categories and across series on three axes." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when " & _ + "the categories and series are equally important." + SpreadsheetCommandGalleryItem171.Hint = "Compare values across categories and across series on three axes." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when " & _ + "the categories and series are equally important." + SpreadsheetCommandGalleryItemGroup37.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem168, SpreadsheetCommandGalleryItem169, SpreadsheetCommandGalleryItem170, SpreadsheetCommandGalleryItem171}) + SpreadsheetCommandGalleryItemGroup38.Caption = "Cylinder" + SpreadsheetCommandGalleryItemGroup38.CommandName = "InsertChartCylinderCommandGroup" + SpreadsheetCommandGalleryItem172.Caption = "Clustered Cylinder" + SpreadsheetCommandGalleryItem172.CommandName = "InsertChartCylinderClustered" + SpreadsheetCommandGalleryItem172.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem172.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem173.Caption = "Stacked Cylinder" + SpreadsheetCommandGalleryItem173.CommandName = "InsertChartCylinderStacked" + SpreadsheetCommandGalleryItem173.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem173.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem174.Caption = "100% Stacked Cylinder" + SpreadsheetCommandGalleryItem174.CommandName = "InsertChartCylinderPercentStacked" + SpreadsheetCommandGalleryItem174.Description = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem174.Hint = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem175.Caption = "3-D Cylinder" + SpreadsheetCommandGalleryItem175.CommandName = "InsertChartCylinder" + SpreadsheetCommandGalleryItem175.Description = "Compare values across categories and across series and display a cylinder chart o" & _ + "n three axes." + SpreadsheetCommandGalleryItem175.Hint = "Compare values across categories and across series and display a cylinder chart o" & _ + "n three axes." + SpreadsheetCommandGalleryItemGroup38.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem172, SpreadsheetCommandGalleryItem173, SpreadsheetCommandGalleryItem174, SpreadsheetCommandGalleryItem175}) + SpreadsheetCommandGalleryItemGroup39.Caption = "Cone" + SpreadsheetCommandGalleryItemGroup39.CommandName = "InsertChartConeCommandGroup" + SpreadsheetCommandGalleryItem176.Caption = "Clustered Cone" + SpreadsheetCommandGalleryItem176.CommandName = "InsertChartConeClustered" + SpreadsheetCommandGalleryItem176.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem176.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem177.Caption = "Stacked Cone" + SpreadsheetCommandGalleryItem177.CommandName = "InsertChartConeStacked" + SpreadsheetCommandGalleryItem177.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem177.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem178.Caption = "100% Stacked Cone" + SpreadsheetCommandGalleryItem178.CommandName = "InsertChartConePercentStacked" + SpreadsheetCommandGalleryItem178.Description = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem178.Hint = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem179.Caption = "3-D Cone" + SpreadsheetCommandGalleryItem179.CommandName = "InsertChartCone" + SpreadsheetCommandGalleryItem179.Description = "Compare values across categories and across series and display a cone chart on th" & _ + "ree axes." + SpreadsheetCommandGalleryItem179.Hint = "Compare values across categories and across series and display a cone chart on th" & _ + "ree axes." + SpreadsheetCommandGalleryItemGroup39.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem176, SpreadsheetCommandGalleryItem177, SpreadsheetCommandGalleryItem178, SpreadsheetCommandGalleryItem179}) + SpreadsheetCommandGalleryItemGroup40.Caption = "Pyramid" + SpreadsheetCommandGalleryItemGroup40.CommandName = "InsertChartPyramidCommandGroup" + SpreadsheetCommandGalleryItem180.Caption = "Clustered Pyramid" + SpreadsheetCommandGalleryItem180.CommandName = "InsertChartPyramidClustered" + SpreadsheetCommandGalleryItem180.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem180.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem181.Caption = "Stacked Pyramid" + SpreadsheetCommandGalleryItem181.CommandName = "InsertChartPyramidStacked" + SpreadsheetCommandGalleryItem181.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem181.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem182.Caption = "100% Stacked Pyramid" + SpreadsheetCommandGalleryItem182.CommandName = "InsertChartPyramidPercentStacked" + SpreadsheetCommandGalleryItem182.Description = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem182.Hint = "Compare the percentage that each value contributes to a total across categories." + SpreadsheetCommandGalleryItem183.Caption = "3-D Pyramid" + SpreadsheetCommandGalleryItem183.CommandName = "InsertChartPyramid" + SpreadsheetCommandGalleryItem183.Description = "Compare values across categories and across series and display a pyramid chart on" & _ + " three axes." + SpreadsheetCommandGalleryItem183.Hint = "Compare values across categories and across series and display a pyramid chart on" & _ + " three axes." + SpreadsheetCommandGalleryItemGroup40.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem180, SpreadsheetCommandGalleryItem181, SpreadsheetCommandGalleryItem182, SpreadsheetCommandGalleryItem183}) + Me.CommandBarGalleryDropDown6.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup36, SpreadsheetCommandGalleryItemGroup37, SpreadsheetCommandGalleryItemGroup38, SpreadsheetCommandGalleryItemGroup39, SpreadsheetCommandGalleryItemGroup40}) + Me.CommandBarGalleryDropDown6.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown6.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown6.Manager = Nothing + Me.CommandBarGalleryDropDown6.Name = "CommandBarGalleryDropDown6" + ' + 'CommandBarGalleryDropDown7 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown7.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup41.Caption = "2-D Line" + SpreadsheetCommandGalleryItemGroup41.CommandName = "InsertChartLine2DCommandGroup" + SpreadsheetCommandGalleryItem184.Caption = "Line" + SpreadsheetCommandGalleryItem184.CommandName = "InsertChartLine" + SpreadsheetCommandGalleryItem184.Description = "Display trend over time (dates, years) or ordered categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Useful when ther" & _ + "e are many data points and the order is important." + SpreadsheetCommandGalleryItem184.Hint = "Display trend over time (dates, years) or ordered categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Useful when ther" & _ + "e are many data points and the order is important." + SpreadsheetCommandGalleryItem185.Caption = "Stacked Line" + SpreadsheetCommandGalleryItem185.CommandName = "InsertChartStackedLine" + SpreadsheetCommandGalleryItem185.Description = "Display the trend of the contribution of each value over time or ordered categori" & _ + "es." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a stacked area chart instead." + SpreadsheetCommandGalleryItem185.Hint = "Display the trend of the contribution of each value over time or ordered categori" & _ + "es." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a stacked area chart instead." + SpreadsheetCommandGalleryItem186.Caption = "100% Stacked line" + SpreadsheetCommandGalleryItem186.CommandName = "InsertChartPercentStackedLine" + SpreadsheetCommandGalleryItem186.Description = "Display the trend of the percentage each value contributes over time or ordered c" & _ + "ategories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using 100% stacked area chart instead." + SpreadsheetCommandGalleryItem186.Hint = "Display the trend of the percentage each value contributes over time or ordered c" & _ + "ategories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using 100% stacked area chart instead." + SpreadsheetCommandGalleryItem187.Caption = "Line with Markers" + SpreadsheetCommandGalleryItem187.CommandName = "InsertChartLineWithMarkers" + SpreadsheetCommandGalleryItem187.Description = "Display trend over time (dates, years) or ordered categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Useful when ther" & _ + "e are only a few data points." + SpreadsheetCommandGalleryItem187.Hint = "Display trend over time (dates, years) or ordered categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Useful when ther" & _ + "e are only a few data points." + SpreadsheetCommandGalleryItem188.Caption = "Stacked Line with Markers" + SpreadsheetCommandGalleryItem188.CommandName = "InsertChartStackedLineWithMarkers" + SpreadsheetCommandGalleryItem188.Description = "Display the trend of the contribution of each value over time or ordered categori" & _ + "es." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a stacked area chart instead." + SpreadsheetCommandGalleryItem188.Hint = "Display the trend of the contribution of each value over time or ordered categori" & _ + "es." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a stacked area chart instead." + SpreadsheetCommandGalleryItem189.Caption = "100% Stacked Line with Markers" + SpreadsheetCommandGalleryItem189.CommandName = "InsertChartPercentStackedLineWithMarkers" + SpreadsheetCommandGalleryItem189.Description = "Display the trend of the percentage each value contributes over time or ordered c" & _ + "ategories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using 100% stacked area chart instead." + SpreadsheetCommandGalleryItem189.Hint = "Display the trend of the percentage each value contributes over time or ordered c" & _ + "ategories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using 100% stacked area chart instead." + SpreadsheetCommandGalleryItemGroup41.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem184, SpreadsheetCommandGalleryItem185, SpreadsheetCommandGalleryItem186, SpreadsheetCommandGalleryItem187, SpreadsheetCommandGalleryItem188, SpreadsheetCommandGalleryItem189}) + SpreadsheetCommandGalleryItemGroup42.Caption = "3-D Line" + SpreadsheetCommandGalleryItemGroup42.CommandName = "InsertChartLine3DCommandGroup" + SpreadsheetCommandGalleryItem190.Caption = "3-D Line" + SpreadsheetCommandGalleryItem190.CommandName = "InsertChartLine3D" + SpreadsheetCommandGalleryItem190.Description = "Display each row or column of data as a 3-D ribbon on three axes." + SpreadsheetCommandGalleryItem190.Hint = "Display each row or column of data as a 3-D ribbon on three axes." + SpreadsheetCommandGalleryItemGroup42.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem190}) + Me.CommandBarGalleryDropDown7.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup41, SpreadsheetCommandGalleryItemGroup42}) + Me.CommandBarGalleryDropDown7.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown7.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown7.Manager = Nothing + Me.CommandBarGalleryDropDown7.Name = "CommandBarGalleryDropDown7" + ' + 'CommandBarGalleryDropDown8 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown8.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup43.Caption = "2-D Pie" + SpreadsheetCommandGalleryItemGroup43.CommandName = "InsertChartPie2DCommandGroup" + SpreadsheetCommandGalleryItem191.Caption = "Pie" + SpreadsheetCommandGalleryItem191.CommandName = "InsertChartPie2D" + SpreadsheetCommandGalleryItem191.Description = "Display the contribution of each value to a total." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the values can " & _ + "be added together or when you have only one data series and all values are posit" & _ + "ive." + SpreadsheetCommandGalleryItem191.Hint = "Display the contribution of each value to a total." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the values can " & _ + "be added together or when you have only one data series and all values are posit" & _ + "ive." + SpreadsheetCommandGalleryItem192.Caption = "Exploded Pie" + SpreadsheetCommandGalleryItem192.CommandName = "InsertChartPieExploded2D" + SpreadsheetCommandGalleryItem192.Description = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a pie chart, and explode individual values instead." + SpreadsheetCommandGalleryItem192.Hint = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a pie chart, and explode individual values instead." + SpreadsheetCommandGalleryItemGroup43.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem191, SpreadsheetCommandGalleryItem192}) + SpreadsheetCommandGalleryItemGroup44.Caption = "3-D Pie" + SpreadsheetCommandGalleryItemGroup44.CommandName = "InsertChartPie3DCommandGroup" + SpreadsheetCommandGalleryItem193.Caption = "Pie in 3-D" + SpreadsheetCommandGalleryItem193.CommandName = "InsertChartPie3D" + SpreadsheetCommandGalleryItem193.Description = "Display the contribution of each value to a total." + SpreadsheetCommandGalleryItem193.Hint = "Display the contribution of each value to a total." + SpreadsheetCommandGalleryItem194.Caption = "Exploded pie in 3-D" + SpreadsheetCommandGalleryItem194.CommandName = "InsertChartPieExploded3D" + SpreadsheetCommandGalleryItem194.Description = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a 3-D pie chart, and explode individual values instead." + SpreadsheetCommandGalleryItem194.Hint = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Consider using a 3-D pie chart, and explode individual values instead." + SpreadsheetCommandGalleryItemGroup44.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem193, SpreadsheetCommandGalleryItem194}) + SpreadsheetCommandGalleryItemGroup45.Caption = "Doughnut" + SpreadsheetCommandGalleryItemGroup45.CommandName = "InsertChartDoughnut2DCommandGroup" + SpreadsheetCommandGalleryItem195.Caption = "Doughnut" + SpreadsheetCommandGalleryItem195.CommandName = "InsertChartDoughnut2D" + SpreadsheetCommandGalleryItem195.Description = "Display the contribution of each value to a total like a pie chart, but it can co" & _ + "ntain multiple series." + SpreadsheetCommandGalleryItem195.Hint = "Display the contribution of each value to a total like a pie chart, but it can co" & _ + "ntain multiple series." + SpreadsheetCommandGalleryItem196.Caption = "Exploded Doughnut" + SpreadsheetCommandGalleryItem196.CommandName = "InsertChartDoughnutExploded2D" + SpreadsheetCommandGalleryItem196.Description = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues like an exploded pie chart, but it can contain multiple series." + SpreadsheetCommandGalleryItem196.Hint = "Display the contribution of each value to a total while emphasizing individual va" & _ + "lues like an exploded pie chart, but it can contain multiple series." + SpreadsheetCommandGalleryItemGroup45.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem195, SpreadsheetCommandGalleryItem196}) + Me.CommandBarGalleryDropDown8.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup43, SpreadsheetCommandGalleryItemGroup44, SpreadsheetCommandGalleryItemGroup45}) + Me.CommandBarGalleryDropDown8.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown8.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown8.Manager = Nothing + Me.CommandBarGalleryDropDown8.Name = "CommandBarGalleryDropDown8" + ' + 'CommandBarGalleryDropDown9 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown9.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup46.Caption = "2-D Bar" + SpreadsheetCommandGalleryItemGroup46.CommandName = "InsertChartBar2DCommandGroup" + SpreadsheetCommandGalleryItem197.Caption = "Clustered Bar" + SpreadsheetCommandGalleryItem197.CommandName = "InsertChartBarClustered2D" + SpreadsheetCommandGalleryItem197.Description = "Compare values across categories using horizontal rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the " & _ + "values on the chart represent durations or when the category text is very long." + SpreadsheetCommandGalleryItem197.Hint = "Compare values across categories using horizontal rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the " & _ + "values on the chart represent durations or when the category text is very long." + SpreadsheetCommandGalleryItem198.Caption = "Stacked Bar" + SpreadsheetCommandGalleryItem198.CommandName = "InsertChartBarStacked2D" + SpreadsheetCommandGalleryItem198.Description = "Compare the contribution of each value to a total across categories by using hori" & _ + "zontal rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the values on the chart represent durations or" & _ + " when the category text is very long." + SpreadsheetCommandGalleryItem198.Hint = "Compare the contribution of each value to a total across categories by using hori" & _ + "zontal rectangles." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the values on the chart represent durations or" & _ + " when the category text is very long." + SpreadsheetCommandGalleryItem199.Caption = "100% Stacked Bar" + SpreadsheetCommandGalleryItem199.CommandName = "InsertChartBarPercentStacked2D" + SpreadsheetCommandGalleryItem199.Description = resources.GetString("SpreadsheetCommandGalleryItem199.Description") + SpreadsheetCommandGalleryItem199.Hint = resources.GetString("SpreadsheetCommandGalleryItem199.Hint") + SpreadsheetCommandGalleryItemGroup46.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem197, SpreadsheetCommandGalleryItem198, SpreadsheetCommandGalleryItem199}) + SpreadsheetCommandGalleryItemGroup47.Caption = "3-D Bar" + SpreadsheetCommandGalleryItemGroup47.CommandName = "InsertChartBar3DCommandGroup" + SpreadsheetCommandGalleryItem200.Caption = "Clustered Bar in 3-D" + SpreadsheetCommandGalleryItem200.CommandName = "InsertChartBarClustered3D" + SpreadsheetCommandGalleryItem200.Description = "Compare values across categories and display clustered bars in 3-D format." + SpreadsheetCommandGalleryItem200.Hint = "Compare values across categories and display clustered bars in 3-D format." + SpreadsheetCommandGalleryItem201.Caption = "Stacked Bar in 3-D" + SpreadsheetCommandGalleryItem201.CommandName = "InsertChartBarStacked3D" + SpreadsheetCommandGalleryItem201.Description = "Compare the contribution of each value to a total across categories and display s" & _ + "tacked bars in 3-D format." + SpreadsheetCommandGalleryItem201.Hint = "Compare the contribution of each value to a total across categories and display s" & _ + "tacked bars in 3-D format." + SpreadsheetCommandGalleryItem202.Caption = "100% Stacked Bar in 3-D" + SpreadsheetCommandGalleryItem202.CommandName = "InsertChartBarPercentStacked3D" + SpreadsheetCommandGalleryItem202.Description = "Compare the percentange each value contributes to a total across categories and d" & _ + "isplay 100% stacked bars in 3-D format." + SpreadsheetCommandGalleryItem202.Hint = "Compare the percentange each value contributes to a total across categories and d" & _ + "isplay 100% stacked bars in 3-D format." + SpreadsheetCommandGalleryItemGroup47.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem200, SpreadsheetCommandGalleryItem201, SpreadsheetCommandGalleryItem202}) + SpreadsheetCommandGalleryItemGroup48.Caption = "Cylinder" + SpreadsheetCommandGalleryItemGroup48.CommandName = "InsertChartHorizontalCylinderCommandGroup" + SpreadsheetCommandGalleryItem203.Caption = "Clustered Horizontal Cylinder" + SpreadsheetCommandGalleryItem203.CommandName = "InsertChartHorizontalCylinderClustered" + SpreadsheetCommandGalleryItem203.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem203.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem204.Caption = "Stacked Horizontal Cylinder" + SpreadsheetCommandGalleryItem204.CommandName = "InsertChartHorizontalCylinderStacked" + SpreadsheetCommandGalleryItem204.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem204.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem205.Caption = "100% Stacked Horizontal Cylinder" + SpreadsheetCommandGalleryItem205.CommandName = "InsertChartHorizontalCylinderPercentStacked" + SpreadsheetCommandGalleryItem205.Description = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItem205.Hint = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItemGroup48.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem203, SpreadsheetCommandGalleryItem204, SpreadsheetCommandGalleryItem205}) + SpreadsheetCommandGalleryItemGroup49.Caption = "Cone" + SpreadsheetCommandGalleryItemGroup49.CommandName = "InsertChartHorizontalConeCommandGroup" + SpreadsheetCommandGalleryItem206.Caption = "Clustered Horizontal Cone" + SpreadsheetCommandGalleryItem206.CommandName = "InsertChartHorizontalConeClustered" + SpreadsheetCommandGalleryItem206.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem206.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem207.Caption = "Stacked Horizontal Cone" + SpreadsheetCommandGalleryItem207.CommandName = "InsertChartHorizontalConeStacked" + SpreadsheetCommandGalleryItem207.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem207.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem208.Caption = "100% Stacked Horizontal Cone" + SpreadsheetCommandGalleryItem208.CommandName = "InsertChartHorizontalConePercentStacked" + SpreadsheetCommandGalleryItem208.Description = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItem208.Hint = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItemGroup49.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem206, SpreadsheetCommandGalleryItem207, SpreadsheetCommandGalleryItem208}) + SpreadsheetCommandGalleryItemGroup50.Caption = "Pyramid" + SpreadsheetCommandGalleryItemGroup50.CommandName = "InsertChartHorizontalPyramidCommandGroup" + SpreadsheetCommandGalleryItem209.Caption = "Clustered Horizontal Pyramid" + SpreadsheetCommandGalleryItem209.CommandName = "InsertChartHorizontalPyramidClustered" + SpreadsheetCommandGalleryItem209.Description = "Compare values across categories." + SpreadsheetCommandGalleryItem209.Hint = "Compare values across categories." + SpreadsheetCommandGalleryItem210.Caption = "Stacked Horizontal Pyramid" + SpreadsheetCommandGalleryItem210.CommandName = "InsertChartHorizontalPyramidStacked" + SpreadsheetCommandGalleryItem210.Description = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem210.Hint = "Compare the contribution of each value to a total across categories." + SpreadsheetCommandGalleryItem211.Caption = "100% Stacked Horizontal Pyramid" + SpreadsheetCommandGalleryItem211.CommandName = "InsertChartHorizontalPyramidPercentStacked" + SpreadsheetCommandGalleryItem211.Description = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItem211.Hint = "Compare the percentange each value contributes to a total across categories." + SpreadsheetCommandGalleryItemGroup50.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem209, SpreadsheetCommandGalleryItem210, SpreadsheetCommandGalleryItem211}) + Me.CommandBarGalleryDropDown9.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup46, SpreadsheetCommandGalleryItemGroup47, SpreadsheetCommandGalleryItemGroup48, SpreadsheetCommandGalleryItemGroup49, SpreadsheetCommandGalleryItemGroup50}) + Me.CommandBarGalleryDropDown9.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown9.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown9.Manager = Nothing + Me.CommandBarGalleryDropDown9.Name = "CommandBarGalleryDropDown9" + ' + 'CommandBarGalleryDropDown10 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown10.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup51.Caption = "2-D Area" + SpreadsheetCommandGalleryItemGroup51.CommandName = "InsertChartArea2DCommandGroup" + SpreadsheetCommandGalleryItem212.Caption = "Area" + SpreadsheetCommandGalleryItem212.CommandName = "InsertChartArea" + SpreadsheetCommandGalleryItem212.Description = "Display the trend of values over time or categories." + SpreadsheetCommandGalleryItem212.Hint = "Display the trend of values over time or categories." + SpreadsheetCommandGalleryItem213.Caption = "Stacked Area" + SpreadsheetCommandGalleryItem213.CommandName = "InsertChartStackedArea" + SpreadsheetCommandGalleryItem213.Description = "Display the trend of the contribution of each value over time or categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "U" & _ + "se it to emphasize the trend in the total across series for one category." + SpreadsheetCommandGalleryItem213.Hint = "Display the trend of the contribution of each value over time or categories." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "U" & _ + "se it to emphasize the trend in the total across series for one category." + SpreadsheetCommandGalleryItem214.Caption = "100% Stacked Area" + SpreadsheetCommandGalleryItem214.CommandName = "InsertChartPercentStackedArea" + SpreadsheetCommandGalleryItem214.Description = "Display the trend of the percentage each value contibutes over time or categories" & _ + "." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it to emphasize the trend in the proportion of each series." + SpreadsheetCommandGalleryItem214.Hint = "Display the trend of the percentage each value contibutes over time or categories" & _ + "." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it to emphasize the trend in the proportion of each series." + SpreadsheetCommandGalleryItemGroup51.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem212, SpreadsheetCommandGalleryItem213, SpreadsheetCommandGalleryItem214}) + SpreadsheetCommandGalleryItemGroup52.Caption = "3-D Area" + SpreadsheetCommandGalleryItemGroup52.CommandName = "InsertChartArea3DCommandGroup" + SpreadsheetCommandGalleryItem215.Caption = "3-D Area" + SpreadsheetCommandGalleryItem215.CommandName = "InsertChartArea3D" + SpreadsheetCommandGalleryItem215.Description = "Display the trend of values over time or categories using areas on three axes." + SpreadsheetCommandGalleryItem215.Hint = "Display the trend of values over time or categories using areas on three axes." + SpreadsheetCommandGalleryItem216.Caption = "Stacked Area in 3-D" + SpreadsheetCommandGalleryItem216.CommandName = "InsertChartStackedArea3D" + SpreadsheetCommandGalleryItem216.Description = "Display the trend of the contribution of each value over time or categories by us" & _ + "ing stacked areas in a 3-D format." + SpreadsheetCommandGalleryItem216.Hint = "Display the trend of the contribution of each value over time or categories by us" & _ + "ing stacked areas in a 3-D format." + SpreadsheetCommandGalleryItem217.Caption = "100% Stacked Area in 3-D" + SpreadsheetCommandGalleryItem217.CommandName = "InsertChartPercentStackedArea3D" + SpreadsheetCommandGalleryItem217.Description = "Display the trend of the percentage each value contributes over time or categorie" & _ + "s by using 100% stacked areas in 3-D format." + SpreadsheetCommandGalleryItem217.Hint = "Display the trend of the percentage each value contributes over time or categorie" & _ + "s by using 100% stacked areas in 3-D format." + SpreadsheetCommandGalleryItemGroup52.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem215, SpreadsheetCommandGalleryItem216, SpreadsheetCommandGalleryItem217}) + Me.CommandBarGalleryDropDown10.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup51, SpreadsheetCommandGalleryItemGroup52}) + Me.CommandBarGalleryDropDown10.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown10.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown10.Manager = Nothing + Me.CommandBarGalleryDropDown10.Name = "CommandBarGalleryDropDown10" + ' + 'CommandBarGalleryDropDown11 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown11.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup53.Caption = "Scatter" + SpreadsheetCommandGalleryItemGroup53.CommandName = "InsertChartScatterCommandGroup" + SpreadsheetCommandGalleryItem218.Caption = "Scatter with only Markers" + SpreadsheetCommandGalleryItem218.CommandName = "InsertChartScatterMarkers" + SpreadsheetCommandGalleryItem218.Description = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when the values are not in X-axis order or whe" & _ + "n they represent separate measurements." + SpreadsheetCommandGalleryItem218.Hint = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when the values are not in X-axis order or whe" & _ + "n they represent separate measurements." + SpreadsheetCommandGalleryItem219.Caption = "Scatter with Smooth Lines and Markers" + SpreadsheetCommandGalleryItem219.CommandName = "InsertChartScatterSmoothLinesAndMarkers" + SpreadsheetCommandGalleryItem219.Description = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are a few data points in X-axis ord" & _ + "er and the data represents a function." + SpreadsheetCommandGalleryItem219.Hint = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are a few data points in X-axis ord" & _ + "er and the data represents a function." + SpreadsheetCommandGalleryItem220.Caption = "Scatter with Smooth Lines" + SpreadsheetCommandGalleryItem220.CommandName = "InsertChartScatterSmoothLines" + SpreadsheetCommandGalleryItem220.Description = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are many data points in X-axis orde" & _ + "r and the data represents a function." + SpreadsheetCommandGalleryItem220.Hint = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are many data points in X-axis orde" & _ + "r and the data represents a function." + SpreadsheetCommandGalleryItem221.Caption = "Scatter with Straight Lines and Markers" + SpreadsheetCommandGalleryItem221.CommandName = "InsertChartScatterLinesAndMarkers" + SpreadsheetCommandGalleryItem221.Description = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are a few data points in X-axis ord" & _ + "er and the data represents separate samples." + SpreadsheetCommandGalleryItem221.Hint = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are a few data points in X-axis ord" & _ + "er and the data represents separate samples." + SpreadsheetCommandGalleryItem222.Caption = "Scatter with Straight Lines" + SpreadsheetCommandGalleryItem222.CommandName = "InsertChartScatterLines" + SpreadsheetCommandGalleryItem222.Description = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are many data points in X-axis orde" & _ + "r and the data represents separate samples." + SpreadsheetCommandGalleryItem222.Hint = "Compare pairs of values." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use is when there are many data points in X-axis orde" & _ + "r and the data represents separate samples." + SpreadsheetCommandGalleryItemGroup53.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem218, SpreadsheetCommandGalleryItem219, SpreadsheetCommandGalleryItem220, SpreadsheetCommandGalleryItem221, SpreadsheetCommandGalleryItem222}) + SpreadsheetCommandGalleryItemGroup54.Caption = "Bubble" + SpreadsheetCommandGalleryItemGroup54.CommandName = "InsertChartBubbleCommandGroup" + SpreadsheetCommandGalleryItem223.Caption = "Bubble" + SpreadsheetCommandGalleryItem223.CommandName = "InsertChartBubble" + SpreadsheetCommandGalleryItem223.Description = "Resembles a scatter chart, but compares sets of three values instead of two. The " & _ + "third value determines the size of the bubble marker." + SpreadsheetCommandGalleryItem223.Hint = "Resembles a scatter chart, but compares sets of three values instead of two. The " & _ + "third value determines the size of the bubble marker." + SpreadsheetCommandGalleryItem224.Caption = "Bubble with a 3-D effect" + SpreadsheetCommandGalleryItem224.CommandName = "InsertChartBubble3D" + SpreadsheetCommandGalleryItem224.Description = "Resembles a scatter chart, but compares sets of three values instead of two. The " & _ + "third value determines the size of the bubble marker, which is displayed with a " & _ + "3-D effect." + SpreadsheetCommandGalleryItem224.Hint = "Resembles a scatter chart, but compares sets of three values instead of two. The " & _ + "third value determines the size of the bubble marker, which is displayed with a " & _ + "3-D effect." + SpreadsheetCommandGalleryItemGroup54.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem223, SpreadsheetCommandGalleryItem224}) + Me.CommandBarGalleryDropDown11.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup53, SpreadsheetCommandGalleryItemGroup54}) + Me.CommandBarGalleryDropDown11.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown11.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown11.Manager = Nothing + Me.CommandBarGalleryDropDown11.Name = "CommandBarGalleryDropDown11" + ' + 'CommandBarGalleryDropDown12 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown12.Gallery.AllowFilter = False + SpreadsheetCommandGalleryItemGroup55.Caption = "Stock" + SpreadsheetCommandGalleryItemGroup55.CommandName = "InsertChartStockCommandGroup" + SpreadsheetCommandGalleryItem225.Caption = "High-Low-Close" + SpreadsheetCommandGalleryItem225.CommandName = "InsertChartStockHighLowClose" + SpreadsheetCommandGalleryItem225.Description = "Requires three series of values in order High, Low and Close." + SpreadsheetCommandGalleryItem225.Hint = "Requires three series of values in order High, Low and Close." + SpreadsheetCommandGalleryItem226.Caption = "Open-High-Low-Close" + SpreadsheetCommandGalleryItem226.CommandName = "InsertChartStockOpenHighLowClose" + SpreadsheetCommandGalleryItem226.Description = "Requires four series of values in order Open, High, Low and Close." + SpreadsheetCommandGalleryItem226.Hint = "Requires four series of values in order Open, High, Low and Close." + SpreadsheetCommandGalleryItemGroup55.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem225, SpreadsheetCommandGalleryItem226}) + SpreadsheetCommandGalleryItemGroup56.Caption = "Radar" + SpreadsheetCommandGalleryItemGroup56.CommandName = "InsertChartRadarCommandGroup" + SpreadsheetCommandGalleryItem227.Caption = "Radar" + SpreadsheetCommandGalleryItem227.CommandName = "InsertChartRadar" + SpreadsheetCommandGalleryItem227.Description = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable." + SpreadsheetCommandGalleryItem227.Hint = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable." + SpreadsheetCommandGalleryItem228.Caption = "Radar with Markers" + SpreadsheetCommandGalleryItem228.CommandName = "InsertChartRadarWithMarkers" + SpreadsheetCommandGalleryItem228.Description = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable." + SpreadsheetCommandGalleryItem228.Hint = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable." + SpreadsheetCommandGalleryItem229.Caption = "Filled Radar" + SpreadsheetCommandGalleryItem229.CommandName = "InsertChartRadarFilled" + SpreadsheetCommandGalleryItem229.Description = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable and there is only one series." + SpreadsheetCommandGalleryItem229.Hint = "Display values relative to a center point." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Use it when the categories are not " & _ + "directly comparable and there is only one series." + SpreadsheetCommandGalleryItemGroup56.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem227, SpreadsheetCommandGalleryItem228, SpreadsheetCommandGalleryItem229}) + Me.CommandBarGalleryDropDown12.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup55, SpreadsheetCommandGalleryItemGroup56}) + Me.CommandBarGalleryDropDown12.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown12.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown12.Manager = Nothing + Me.CommandBarGalleryDropDown12.Name = "CommandBarGalleryDropDown12" + ' + 'CommandBarGalleryDropDown13 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown13.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown13.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup57.Caption = "Chart Title" + SpreadsheetCommandGalleryItemGroup57.CommandName = "ChartTitleCommandGroup" + SpreadsheetCommandGalleryItem230.Caption = "None" + SpreadsheetCommandGalleryItem230.CommandName = "ChartTitleNone" + SpreadsheetCommandGalleryItem230.Description = "Do not display a chart Title" + SpreadsheetCommandGalleryItem230.Hint = "Do not display a chart Title" + SpreadsheetCommandGalleryItem231.Caption = "Centered Overlay Title" + SpreadsheetCommandGalleryItem231.CommandName = "ChartTitleCenteredOverlay" + SpreadsheetCommandGalleryItem231.Description = "Overlay centered Title on chart without resizing chart" + SpreadsheetCommandGalleryItem231.Hint = "Overlay centered Title on chart without resizing chart" + SpreadsheetCommandGalleryItem232.Caption = "Above Chart" + SpreadsheetCommandGalleryItem232.CommandName = "ChartTitleAbove" + SpreadsheetCommandGalleryItem232.Description = "Display Title at top of chart area and resize chart" + SpreadsheetCommandGalleryItem232.Hint = "Display Title at top of chart area and resize chart" + SpreadsheetCommandGalleryItemGroup57.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem230, SpreadsheetCommandGalleryItem231, SpreadsheetCommandGalleryItem232}) + Me.CommandBarGalleryDropDown13.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup57}) + Me.CommandBarGalleryDropDown13.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown13.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown13.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown13.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown13.Manager = Nothing + Me.CommandBarGalleryDropDown13.Name = "CommandBarGalleryDropDown13" + ' + 'CommandBarGalleryDropDown14 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown14.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown14.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup58.Caption = "Primary Horizontal Axis Title" + SpreadsheetCommandGalleryItemGroup58.CommandName = "ChartPrimaryHorizontalAxisTitleCommandGroup" + SpreadsheetCommandGalleryItem233.Caption = "None" + SpreadsheetCommandGalleryItem233.CommandName = "ChartPrimaryHorizontalAxisTitleNone" + SpreadsheetCommandGalleryItem233.Description = "Do not display an Axis Title" + SpreadsheetCommandGalleryItem233.Hint = "Do not display an Axis Title" + SpreadsheetCommandGalleryItem234.Caption = "Title Below Axis" + SpreadsheetCommandGalleryItem234.CommandName = "ChartPrimaryHorizontalAxisTitleBelow" + SpreadsheetCommandGalleryItem234.Description = "Display Title below Horizontal Axis and resize chart" + SpreadsheetCommandGalleryItem234.Hint = "Display Title below Horizontal Axis and resize chart" + SpreadsheetCommandGalleryItemGroup58.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem233, SpreadsheetCommandGalleryItem234}) + Me.CommandBarGalleryDropDown14.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup58}) + Me.CommandBarGalleryDropDown14.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown14.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown14.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown14.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown14.Manager = Nothing + Me.CommandBarGalleryDropDown14.Name = "CommandBarGalleryDropDown14" + ' + 'CommandBarGalleryDropDown15 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown15.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown15.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup59.Caption = "Primary Vertical Axis Title" + SpreadsheetCommandGalleryItemGroup59.CommandName = "ChartPrimaryVerticalAxisTitleCommandGroup" + SpreadsheetCommandGalleryItem235.Caption = "None" + SpreadsheetCommandGalleryItem235.CommandName = "ChartPrimaryVerticalAxisTitleNone" + SpreadsheetCommandGalleryItem235.Description = "Do not display an Axis Title" + SpreadsheetCommandGalleryItem235.Hint = "Do not display an Axis Title" + SpreadsheetCommandGalleryItem236.Caption = "Rotated Title" + SpreadsheetCommandGalleryItem236.CommandName = "ChartPrimaryVerticalAxisTitleRotated" + SpreadsheetCommandGalleryItem236.Description = "Display Rotated Axis Title and resize chart" + SpreadsheetCommandGalleryItem236.Hint = "Display Rotated Axis Title and resize chart" + SpreadsheetCommandGalleryItem237.Caption = "Vertical Title" + SpreadsheetCommandGalleryItem237.CommandName = "ChartPrimaryVerticalAxisTitleVertical" + SpreadsheetCommandGalleryItem237.Description = "Display Axis Title with vertical text and resize chart" + SpreadsheetCommandGalleryItem237.Hint = "Display Axis Title with vertical text and resize chart" + SpreadsheetCommandGalleryItem238.Caption = "Horizontal Title" + SpreadsheetCommandGalleryItem238.CommandName = "ChartPrimaryVerticalAxisTitleHorizontal" + SpreadsheetCommandGalleryItem238.Description = "Display Axis Title horizontally and resize chart" + SpreadsheetCommandGalleryItem238.Hint = "Display Axis Title horizontally and resize chart" + SpreadsheetCommandGalleryItemGroup59.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem235, SpreadsheetCommandGalleryItem236, SpreadsheetCommandGalleryItem237, SpreadsheetCommandGalleryItem238}) + Me.CommandBarGalleryDropDown15.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup59}) + Me.CommandBarGalleryDropDown15.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown15.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown15.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown15.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown15.Manager = Nothing + Me.CommandBarGalleryDropDown15.Name = "CommandBarGalleryDropDown15" + ' + 'CommandBarGalleryDropDown16 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown16.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown16.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup60.Caption = "Legend" + SpreadsheetCommandGalleryItemGroup60.CommandName = "ChartLegendCommandGroup" + SpreadsheetCommandGalleryItem239.Caption = "None" + SpreadsheetCommandGalleryItem239.CommandName = "ChartLegendNone" + SpreadsheetCommandGalleryItem239.Description = "Turn off Legend" + SpreadsheetCommandGalleryItem239.Hint = "Turn off Legend" + SpreadsheetCommandGalleryItem240.Caption = "Show Legend at Right" + SpreadsheetCommandGalleryItem240.CommandName = "ChartLegendAtRight" + SpreadsheetCommandGalleryItem240.Description = "Show Legend and align right" + SpreadsheetCommandGalleryItem240.Hint = "Show Legend and align right" + SpreadsheetCommandGalleryItem241.Caption = "Show Legend at Top" + SpreadsheetCommandGalleryItem241.CommandName = "ChartLegendAtTop" + SpreadsheetCommandGalleryItem241.Description = "Show Legend and align top" + SpreadsheetCommandGalleryItem241.Hint = "Show Legend and align top" + SpreadsheetCommandGalleryItem242.Caption = "Show Legend at Left" + SpreadsheetCommandGalleryItem242.CommandName = "ChartLegendAtLeft" + SpreadsheetCommandGalleryItem242.Description = "Show Legend and align left" + SpreadsheetCommandGalleryItem242.Hint = "Show Legend and align left" + SpreadsheetCommandGalleryItem243.Caption = "Show Legend at Bottom" + SpreadsheetCommandGalleryItem243.CommandName = "ChartLegendAtBottom" + SpreadsheetCommandGalleryItem243.Description = "Show Legend and align bottom" + SpreadsheetCommandGalleryItem243.Hint = "Show Legend and align bottom" + SpreadsheetCommandGalleryItem244.Caption = "Overlay Legend at Right" + SpreadsheetCommandGalleryItem244.CommandName = "ChartLegendOverlayAtRight" + SpreadsheetCommandGalleryItem244.Description = "Show Legend at right of the chart without resizing" + SpreadsheetCommandGalleryItem244.Hint = "Show Legend at right of the chart without resizing" + SpreadsheetCommandGalleryItem245.Caption = "Overlay Legend at Left" + SpreadsheetCommandGalleryItem245.CommandName = "ChartLegendOverlayAtLeft" + SpreadsheetCommandGalleryItem245.Description = "Show Legend at left of the chart without resizing" + SpreadsheetCommandGalleryItem245.Hint = "Show Legend at left of the chart without resizing" + SpreadsheetCommandGalleryItemGroup60.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem239, SpreadsheetCommandGalleryItem240, SpreadsheetCommandGalleryItem241, SpreadsheetCommandGalleryItem242, SpreadsheetCommandGalleryItem243, SpreadsheetCommandGalleryItem244, SpreadsheetCommandGalleryItem245}) + Me.CommandBarGalleryDropDown16.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup60}) + Me.CommandBarGalleryDropDown16.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown16.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown16.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown16.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown16.Manager = Nothing + Me.CommandBarGalleryDropDown16.Name = "CommandBarGalleryDropDown16" + ' + 'CommandBarGalleryDropDown17 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown17.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown17.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup61.Caption = "Data Labels" + SpreadsheetCommandGalleryItemGroup61.CommandName = "ChartDataLabelsCommandGroup" + SpreadsheetCommandGalleryItem246.Caption = "None" + SpreadsheetCommandGalleryItem246.CommandName = "ChartDataLabelsNone" + SpreadsheetCommandGalleryItem246.Description = "Turn off Data Labels for selection" + SpreadsheetCommandGalleryItem246.Hint = "Turn off Data Labels for selection" + SpreadsheetCommandGalleryItem247.Caption = "Show" + SpreadsheetCommandGalleryItem247.CommandName = "ChartDataLabelsDefault" + SpreadsheetCommandGalleryItem247.Description = "Turn on Data Labels for selection" + SpreadsheetCommandGalleryItem247.Hint = "Turn on Data Labels for selection" + SpreadsheetCommandGalleryItem248.Caption = "Center" + SpreadsheetCommandGalleryItem248.CommandName = "ChartDataLabelsCenter" + SpreadsheetCommandGalleryItem248.Description = "Display Data Labels and position centered on the data point(s)" + SpreadsheetCommandGalleryItem248.Hint = "Display Data Labels and position centered on the data point(s)" + SpreadsheetCommandGalleryItem249.Caption = "Inside End" + SpreadsheetCommandGalleryItem249.CommandName = "ChartDataLabelsInsideEnd" + SpreadsheetCommandGalleryItem249.Description = "Display Data Labels and position inside the end of data point(s)" + SpreadsheetCommandGalleryItem249.Hint = "Display Data Labels and position inside the end of data point(s)" + SpreadsheetCommandGalleryItem250.Caption = "Inside Base" + SpreadsheetCommandGalleryItem250.CommandName = "ChartDataLabelsInsideBase" + SpreadsheetCommandGalleryItem250.Description = "Display Data Labels and position inside the base of data point(s)" + SpreadsheetCommandGalleryItem250.Hint = "Display Data Labels and position inside the base of data point(s)" + SpreadsheetCommandGalleryItem251.Caption = "Outside End" + SpreadsheetCommandGalleryItem251.CommandName = "ChartDataLabelsOutsideEnd" + SpreadsheetCommandGalleryItem251.Description = "Display Data Labels and position outside the end of data point(s)" + SpreadsheetCommandGalleryItem251.Hint = "Display Data Labels and position outside the end of data point(s)" + SpreadsheetCommandGalleryItem252.Caption = "Best Fit" + SpreadsheetCommandGalleryItem252.CommandName = "ChartDataLabelsBestFit" + SpreadsheetCommandGalleryItem252.Description = "Display Data Labels and position with Best Fit" + SpreadsheetCommandGalleryItem252.Hint = "Display Data Labels and position with Best Fit" + SpreadsheetCommandGalleryItem253.Caption = "Left" + SpreadsheetCommandGalleryItem253.CommandName = "ChartDataLabelsLeft" + SpreadsheetCommandGalleryItem253.Description = "Display Data Labels and position left of the data point(s)" + SpreadsheetCommandGalleryItem253.Hint = "Display Data Labels and position left of the data point(s)" + SpreadsheetCommandGalleryItem254.Caption = "Right" + SpreadsheetCommandGalleryItem254.CommandName = "ChartDataLabelsRight" + SpreadsheetCommandGalleryItem254.Description = "Display Data Labels and position right of the data point(s)" + SpreadsheetCommandGalleryItem254.Hint = "Display Data Labels and position right of the data point(s)" + SpreadsheetCommandGalleryItem255.Caption = "Above" + SpreadsheetCommandGalleryItem255.CommandName = "ChartDataLabelsAbove" + SpreadsheetCommandGalleryItem255.Description = "Display Data Labels and position above data point(s)" + SpreadsheetCommandGalleryItem255.Hint = "Display Data Labels and position above data point(s)" + SpreadsheetCommandGalleryItem256.Caption = "Below" + SpreadsheetCommandGalleryItem256.CommandName = "ChartDataLabelsBelow" + SpreadsheetCommandGalleryItem256.Description = "Display Data Labels and position below data point(s)" + SpreadsheetCommandGalleryItem256.Hint = "Display Data Labels and position below data point(s)" + SpreadsheetCommandGalleryItemGroup61.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem246, SpreadsheetCommandGalleryItem247, SpreadsheetCommandGalleryItem248, SpreadsheetCommandGalleryItem249, SpreadsheetCommandGalleryItem250, SpreadsheetCommandGalleryItem251, SpreadsheetCommandGalleryItem252, SpreadsheetCommandGalleryItem253, SpreadsheetCommandGalleryItem254, SpreadsheetCommandGalleryItem255, SpreadsheetCommandGalleryItem256}) + Me.CommandBarGalleryDropDown17.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup61}) + Me.CommandBarGalleryDropDown17.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown17.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown17.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown17.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown17.Manager = Nothing + Me.CommandBarGalleryDropDown17.Name = "CommandBarGalleryDropDown17" + ' + 'CommandBarGalleryDropDown18 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown18.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown18.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup62.Caption = "Primary Horizontal Axis" + SpreadsheetCommandGalleryItemGroup62.CommandName = "ChartPrimaryHorizontalAxisCommandGroup" + SpreadsheetCommandGalleryItem257.Caption = "None" + SpreadsheetCommandGalleryItem257.CommandName = "ChartHidePrimaryHorizontalAxis" + SpreadsheetCommandGalleryItem257.Description = "Do not display axis." + SpreadsheetCommandGalleryItem257.Hint = "Do not display axis." + SpreadsheetCommandGalleryItem258.Caption = "Show Left to Right Axis" + SpreadsheetCommandGalleryItem258.CommandName = "ChartPrimaryHorizontalAxisLeftToRight" + SpreadsheetCommandGalleryItem258.Description = "Display Axis Left to Right with Labels" + SpreadsheetCommandGalleryItem258.Hint = "Display Axis Left to Right with Labels" + SpreadsheetCommandGalleryItem259.Caption = "Show Axis without Labeling" + SpreadsheetCommandGalleryItem259.CommandName = "ChartPrimaryHorizontalAxisHideLabels" + SpreadsheetCommandGalleryItem259.Description = "Display Axis without labels or tick marks" + SpreadsheetCommandGalleryItem259.Hint = "Display Axis without labels or tick marks" + SpreadsheetCommandGalleryItem260.Caption = "Show Right to Left Axis" + SpreadsheetCommandGalleryItem260.CommandName = "ChartPrimaryHorizontalAxisRightToLeft" + SpreadsheetCommandGalleryItem260.Description = "Display Axis Right to Left with Labels" + SpreadsheetCommandGalleryItem260.Hint = "Display Axis Right to Left with Labels" + SpreadsheetCommandGalleryItem261.Caption = "Show Default Axis" + SpreadsheetCommandGalleryItem261.CommandName = "ChartPrimaryHorizontalAxisDefault" + SpreadsheetCommandGalleryItem261.Description = "Display Axis with default order and labels" + SpreadsheetCommandGalleryItem261.Hint = "Display Axis with default order and labels" + SpreadsheetCommandGalleryItem262.Caption = "Show Axis in Thousands" + SpreadsheetCommandGalleryItem262.CommandName = "ChartPrimaryHorizontalAxisScaleThousands" + SpreadsheetCommandGalleryItem262.Description = "Display Axis with numbers represented in Thousands" + SpreadsheetCommandGalleryItem262.Hint = "Display Axis with numbers represented in Thousands" + SpreadsheetCommandGalleryItem263.Caption = "Show Axis in Millions" + SpreadsheetCommandGalleryItem263.CommandName = "ChartPrimaryHorizontalAxisScaleMillions" + SpreadsheetCommandGalleryItem263.Description = "Display Axis with numbers represented in Millions" + SpreadsheetCommandGalleryItem263.Hint = "Display Axis with numbers represented in Millions" + SpreadsheetCommandGalleryItem264.Caption = "Show Axis in Billions" + SpreadsheetCommandGalleryItem264.CommandName = "ChartPrimaryHorizontalAxisScaleBillions" + SpreadsheetCommandGalleryItem264.Description = "Display Axis with numbers represented in Billions" + SpreadsheetCommandGalleryItem264.Hint = "Display Axis with numbers represented in Billions" + SpreadsheetCommandGalleryItem265.Caption = "Show Axis in Log Scale" + SpreadsheetCommandGalleryItem265.CommandName = "ChartPrimaryHorizontalAxisScaleLogarithm" + SpreadsheetCommandGalleryItem265.Description = "Display Axis using a log 10 base scale" + SpreadsheetCommandGalleryItem265.Hint = "Display Axis using a log 10 base scale" + SpreadsheetCommandGalleryItemGroup62.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem257, SpreadsheetCommandGalleryItem258, SpreadsheetCommandGalleryItem259, SpreadsheetCommandGalleryItem260, SpreadsheetCommandGalleryItem261, SpreadsheetCommandGalleryItem262, SpreadsheetCommandGalleryItem263, SpreadsheetCommandGalleryItem264, SpreadsheetCommandGalleryItem265}) + Me.CommandBarGalleryDropDown18.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup62}) + Me.CommandBarGalleryDropDown18.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown18.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown18.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown18.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown18.Manager = Nothing + Me.CommandBarGalleryDropDown18.Name = "CommandBarGalleryDropDown18" + ' + 'CommandBarGalleryDropDown19 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown19.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown19.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup63.Caption = "Primary Vertical Axis" + SpreadsheetCommandGalleryItemGroup63.CommandName = "ChartPrimaryVerticalAxisCommandGroup" + SpreadsheetCommandGalleryItem266.Caption = "None" + SpreadsheetCommandGalleryItem266.CommandName = "ChartHidePrimaryVerticalAxis" + SpreadsheetCommandGalleryItem266.Description = "Do not display axis." + SpreadsheetCommandGalleryItem266.Hint = "Do not display axis." + SpreadsheetCommandGalleryItem267.Caption = "Show Left to Right Axis" + SpreadsheetCommandGalleryItem267.CommandName = "ChartPrimaryVerticalAxisLeftToRight" + SpreadsheetCommandGalleryItem267.Description = "Display Axis Left to Right with Labels" + SpreadsheetCommandGalleryItem267.Hint = "Display Axis Left to Right with Labels" + SpreadsheetCommandGalleryItem268.Caption = "Show Axis without Labeling" + SpreadsheetCommandGalleryItem268.CommandName = "ChartPrimaryVerticalAxisHideLabels" + SpreadsheetCommandGalleryItem268.Description = "Display Axis without labels or tick marks" + SpreadsheetCommandGalleryItem268.Hint = "Display Axis without labels or tick marks" + SpreadsheetCommandGalleryItem269.Caption = "Show Right to Left Axis" + SpreadsheetCommandGalleryItem269.CommandName = "ChartPrimaryVerticalAxisRightToLeft" + SpreadsheetCommandGalleryItem269.Description = "Display Axis Right to Left with Labels" + SpreadsheetCommandGalleryItem269.Hint = "Display Axis Right to Left with Labels" + SpreadsheetCommandGalleryItem270.Caption = "Show Default Axis" + SpreadsheetCommandGalleryItem270.CommandName = "ChartPrimaryVerticalAxisDefault" + SpreadsheetCommandGalleryItem270.Description = "Display Axis with default order and labels" + SpreadsheetCommandGalleryItem270.Hint = "Display Axis with default order and labels" + SpreadsheetCommandGalleryItem271.Caption = "Show Axis in Thousands" + SpreadsheetCommandGalleryItem271.CommandName = "ChartPrimaryVerticalAxisScaleThousands" + SpreadsheetCommandGalleryItem271.Description = "Display Axis with numbers represented in Thousands" + SpreadsheetCommandGalleryItem271.Hint = "Display Axis with numbers represented in Thousands" + SpreadsheetCommandGalleryItem272.Caption = "Show Axis in Millions" + SpreadsheetCommandGalleryItem272.CommandName = "ChartPrimaryVerticalAxisScaleMillions" + SpreadsheetCommandGalleryItem272.Description = "Display Axis with numbers represented in Millions" + SpreadsheetCommandGalleryItem272.Hint = "Display Axis with numbers represented in Millions" + SpreadsheetCommandGalleryItem273.Caption = "Show Axis in Billions" + SpreadsheetCommandGalleryItem273.CommandName = "ChartPrimaryVerticalAxisScaleBillions" + SpreadsheetCommandGalleryItem273.Description = "Display Axis with numbers represented in Billions" + SpreadsheetCommandGalleryItem273.Hint = "Display Axis with numbers represented in Billions" + SpreadsheetCommandGalleryItem274.Caption = "Show Axis in Log Scale" + SpreadsheetCommandGalleryItem274.CommandName = "ChartPrimaryVerticalAxisScaleLogarithm" + SpreadsheetCommandGalleryItem274.Description = "Display Axis using a log 10 base scale" + SpreadsheetCommandGalleryItem274.Hint = "Display Axis using a log 10 base scale" + SpreadsheetCommandGalleryItemGroup63.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem266, SpreadsheetCommandGalleryItem267, SpreadsheetCommandGalleryItem268, SpreadsheetCommandGalleryItem269, SpreadsheetCommandGalleryItem270, SpreadsheetCommandGalleryItem271, SpreadsheetCommandGalleryItem272, SpreadsheetCommandGalleryItem273, SpreadsheetCommandGalleryItem274}) + Me.CommandBarGalleryDropDown19.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup63}) + Me.CommandBarGalleryDropDown19.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown19.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown19.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown19.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown19.Manager = Nothing + Me.CommandBarGalleryDropDown19.Name = "CommandBarGalleryDropDown19" + ' + 'CommandBarGalleryDropDown20 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown20.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown20.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup64.Caption = "Primary Horizontal Gridlines" + SpreadsheetCommandGalleryItemGroup64.CommandName = "ChartPrimaryHorizontalGridlinesCommandGroup" + SpreadsheetCommandGalleryItem275.Caption = "None" + SpreadsheetCommandGalleryItem275.CommandName = "ChartPrimaryHorizontalGridlinesNone" + SpreadsheetCommandGalleryItem275.Description = "Do not display Horizontal Gridlines" + SpreadsheetCommandGalleryItem275.Hint = "Do not display Horizontal Gridlines" + SpreadsheetCommandGalleryItem276.Caption = "Major Gridlines" + SpreadsheetCommandGalleryItem276.CommandName = "ChartPrimaryHorizontalGridlinesMajor" + SpreadsheetCommandGalleryItem276.Description = "Display Horizontal Gridlines for Major units" + SpreadsheetCommandGalleryItem276.Hint = "Display Horizontal Gridlines for Major units" + SpreadsheetCommandGalleryItem277.Caption = "Minor Gridlines" + SpreadsheetCommandGalleryItem277.CommandName = "ChartPrimaryHorizontalGridlinesMinor" + SpreadsheetCommandGalleryItem277.Description = "Display Horizontal Gridlines for Minor units" + SpreadsheetCommandGalleryItem277.Hint = "Display Horizontal Gridlines for Minor units" + SpreadsheetCommandGalleryItem278.Caption = "Major & Minor Gridlines" + SpreadsheetCommandGalleryItem278.CommandName = "ChartPrimaryHorizontalGridlinesMajorAndMinor" + SpreadsheetCommandGalleryItem278.Description = "Display Horizontal Gridlines for Major and Minor units" + SpreadsheetCommandGalleryItem278.Hint = "Display Horizontal Gridlines for Major and Minor units" + SpreadsheetCommandGalleryItemGroup64.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem275, SpreadsheetCommandGalleryItem276, SpreadsheetCommandGalleryItem277, SpreadsheetCommandGalleryItem278}) + Me.CommandBarGalleryDropDown20.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup64}) + Me.CommandBarGalleryDropDown20.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown20.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown20.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown20.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown20.Manager = Nothing + Me.CommandBarGalleryDropDown20.Name = "CommandBarGalleryDropDown20" + ' + 'CommandBarGalleryDropDown21 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown21.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown21.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup65.Caption = "Primary Vertical Gridlines" + SpreadsheetCommandGalleryItemGroup65.CommandName = "ChartPrimaryVerticalGridlinesCommandGroup" + SpreadsheetCommandGalleryItem279.Caption = "None" + SpreadsheetCommandGalleryItem279.CommandName = "ChartPrimaryVerticalGridlinesNone" + SpreadsheetCommandGalleryItem279.Description = "Do not display Vertical Gridlines" + SpreadsheetCommandGalleryItem279.Hint = "Do not display Vertical Gridlines" + SpreadsheetCommandGalleryItem280.Caption = "Major Gridlines" + SpreadsheetCommandGalleryItem280.CommandName = "ChartPrimaryVerticalGridlinesMajor" + SpreadsheetCommandGalleryItem280.Description = "Display Vertical Gridlines for Major units" + SpreadsheetCommandGalleryItem280.Hint = "Display Vertical Gridlines for Major units" + SpreadsheetCommandGalleryItem281.Caption = "Minor Gridlines" + SpreadsheetCommandGalleryItem281.CommandName = "ChartPrimaryVerticalGridlinesMinor" + SpreadsheetCommandGalleryItem281.Description = "Display Vertical Gridlines for Minor units" + SpreadsheetCommandGalleryItem281.Hint = "Display Vertical Gridlines for Minor units" + SpreadsheetCommandGalleryItem282.Caption = "Major & Minor Gridlines" + SpreadsheetCommandGalleryItem282.CommandName = "ChartPrimaryVerticalGridlinesMajorAndMinor" + SpreadsheetCommandGalleryItem282.Description = "Display Vertical Gridlines for Major and Minor units" + SpreadsheetCommandGalleryItem282.Hint = "Display Vertical Gridlines for Major and Minor units" + SpreadsheetCommandGalleryItemGroup65.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem279, SpreadsheetCommandGalleryItem280, SpreadsheetCommandGalleryItem281, SpreadsheetCommandGalleryItem282}) + Me.CommandBarGalleryDropDown21.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup65}) + Me.CommandBarGalleryDropDown21.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown21.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown21.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown21.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown21.Manager = Nothing + Me.CommandBarGalleryDropDown21.Name = "CommandBarGalleryDropDown21" + ' + 'CommandBarGalleryDropDown22 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown22.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown22.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup66.Caption = "Lines" + SpreadsheetCommandGalleryItemGroup66.CommandName = "ChartLinesCommandGroup" + SpreadsheetCommandGalleryItem283.Caption = "None" + SpreadsheetCommandGalleryItem283.CommandName = "ChartLinesNone" + SpreadsheetCommandGalleryItem283.Description = "Do not show Drop Lines, High-Low Lines or Series Lines" + SpreadsheetCommandGalleryItem283.Hint = "Do not show Drop Lines, High-Low Lines or Series Lines" + SpreadsheetCommandGalleryItem284.Caption = "Drop Lines" + SpreadsheetCommandGalleryItem284.CommandName = "ChartShowDropLines" + SpreadsheetCommandGalleryItem284.Description = "Show Drop Lines on an Area or Line Chart" + SpreadsheetCommandGalleryItem284.Hint = "Show Drop Lines on an Area or Line Chart" + SpreadsheetCommandGalleryItem285.Caption = "High-Low Lines" + SpreadsheetCommandGalleryItem285.CommandName = "ChartShowHighLowLines" + SpreadsheetCommandGalleryItem285.Description = "Show High-Low Lines on a 2D Line Chart" + SpreadsheetCommandGalleryItem285.Hint = "Show High-Low Lines on a 2D Line Chart" + SpreadsheetCommandGalleryItem286.Caption = "Drop and High-Low Lines" + SpreadsheetCommandGalleryItem286.CommandName = "ChartShowDropLinesAndHighLowLines" + SpreadsheetCommandGalleryItem286.Description = "Show Drop Lines and High-Low Lines on a 2D Line Chart" + SpreadsheetCommandGalleryItem286.Hint = "Show Drop Lines and High-Low Lines on a 2D Line Chart" + SpreadsheetCommandGalleryItem287.Caption = "Series Lines" + SpreadsheetCommandGalleryItem287.CommandName = "ChartShowSeriesLines" + SpreadsheetCommandGalleryItem287.Description = "Show Series Lines on a 2D stacked Bar/Column Pie or Pie or Bar of Pie Chart" + SpreadsheetCommandGalleryItem287.Hint = "Show Series Lines on a 2D stacked Bar/Column Pie or Pie or Bar of Pie Chart" + SpreadsheetCommandGalleryItemGroup66.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem283, SpreadsheetCommandGalleryItem284, SpreadsheetCommandGalleryItem285, SpreadsheetCommandGalleryItem286, SpreadsheetCommandGalleryItem287}) + Me.CommandBarGalleryDropDown22.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup66}) + Me.CommandBarGalleryDropDown22.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown22.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown22.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown22.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown22.Manager = Nothing + Me.CommandBarGalleryDropDown22.Name = "CommandBarGalleryDropDown22" + ' + 'CommandBarGalleryDropDown23 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown23.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown23.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup67.Caption = "Up/Down Bars" + SpreadsheetCommandGalleryItemGroup67.CommandName = "ChartUpDownBarsCommandGroup" + SpreadsheetCommandGalleryItem288.Caption = "None" + SpreadsheetCommandGalleryItem288.CommandName = "ChartHideUpDownBars" + SpreadsheetCommandGalleryItem288.Description = "Do not show Up/Down Bars" + SpreadsheetCommandGalleryItem288.Hint = "Do not show Up/Down Bars" + SpreadsheetCommandGalleryItem289.Caption = "Up/Down Bars" + SpreadsheetCommandGalleryItem289.CommandName = "ChartShowUpDownBars" + SpreadsheetCommandGalleryItem289.Description = "Show Up/Down Bars on a Line Chart" + SpreadsheetCommandGalleryItem289.Hint = "Show Up/Down Bars on a Line Chart" + SpreadsheetCommandGalleryItemGroup67.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem288, SpreadsheetCommandGalleryItem289}) + Me.CommandBarGalleryDropDown23.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup67}) + Me.CommandBarGalleryDropDown23.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown23.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown23.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown23.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown23.Manager = Nothing + Me.CommandBarGalleryDropDown23.Name = "CommandBarGalleryDropDown23" + ' + 'CommandBarGalleryDropDown24 + ' + ' + ' + ' + Me.CommandBarGalleryDropDown24.Gallery.AllowFilter = False + Me.CommandBarGalleryDropDown24.Gallery.AutoSize = DevExpress.XtraBars.Ribbon.GallerySizeMode.Both + SpreadsheetCommandGalleryItemGroup68.Caption = "Error Bars" + SpreadsheetCommandGalleryItemGroup68.CommandName = "ChartErrorBarsCommandGroup" + SpreadsheetCommandGalleryItem290.Caption = "None" + SpreadsheetCommandGalleryItem290.CommandName = "ChartErrorBarsNone" + SpreadsheetCommandGalleryItem290.Description = "Removes the Error Bars for the selected series or all Error Bars if none are sele" & _ + "cted" + SpreadsheetCommandGalleryItem290.Hint = "Removes the Error Bars for the selected series or all Error Bars if none are sele" & _ + "cted" + SpreadsheetCommandGalleryItem291.Caption = "Error Bars with Standard Error" + SpreadsheetCommandGalleryItem291.CommandName = "ChartErrorBarsStandardError" + SpreadsheetCommandGalleryItem291.Description = "Displays Error Bars for the selected chart series using Standard Error" + SpreadsheetCommandGalleryItem291.Hint = "Displays Error Bars for the selected chart series using Standard Error" + SpreadsheetCommandGalleryItem292.Caption = "Error Bars with Percentage" + SpreadsheetCommandGalleryItem292.CommandName = "ChartErrorBarsPercentage" + SpreadsheetCommandGalleryItem292.Description = "Displays Error Bars for the selected chart series with 5% value" + SpreadsheetCommandGalleryItem292.Hint = "Displays Error Bars for the selected chart series with 5% value" + SpreadsheetCommandGalleryItem293.Caption = "Error Bars with Standard Deviation" + SpreadsheetCommandGalleryItem293.CommandName = "ChartErrorBarsStandardDeviation" + SpreadsheetCommandGalleryItem293.Description = "Displays Error Bars for the selected chart series with 1 standard deviation" + SpreadsheetCommandGalleryItem293.Hint = "Displays Error Bars for the selected chart series with 1 standard deviation" + SpreadsheetCommandGalleryItemGroup68.Items.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItem() {SpreadsheetCommandGalleryItem290, SpreadsheetCommandGalleryItem291, SpreadsheetCommandGalleryItem292, SpreadsheetCommandGalleryItem293}) + Me.CommandBarGalleryDropDown24.Gallery.Groups.AddRange(New DevExpress.XtraBars.Ribbon.GalleryItemGroup() {SpreadsheetCommandGalleryItemGroup68}) + Me.CommandBarGalleryDropDown24.Gallery.ImageSize = New System.Drawing.Size(32, 32) + Me.CommandBarGalleryDropDown24.Gallery.ItemImageLayout = DevExpress.Utils.Drawing.ImageLayoutMode.MiddleLeft + Me.CommandBarGalleryDropDown24.Gallery.ItemImageLocation = DevExpress.Utils.Locations.Left + Me.CommandBarGalleryDropDown24.Gallery.ShowScrollBar = DevExpress.XtraBars.Ribbon.Gallery.ShowScrollBar.[Auto] + Me.CommandBarGalleryDropDown24.Manager = Nothing + Me.CommandBarGalleryDropDown24.Name = "CommandBarGalleryDropDown24" + ' + 'SpreadsheetFormulaBarControl1 + ' + Me.SpreadsheetFormulaBarControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetFormulaBarControl1.Location = New System.Drawing.Point(0, 0) + Me.SpreadsheetFormulaBarControl1.MinimumSize = New System.Drawing.Size(0, 20) + Me.SpreadsheetFormulaBarControl1.Name = "SpreadsheetFormulaBarControl1" + Me.SpreadsheetFormulaBarControl1.Size = New System.Drawing.Size(394, 20) + Me.SpreadsheetFormulaBarControl1.SpreadsheetControl = Me.SpreadsheetControl1 + Me.SpreadsheetFormulaBarControl1.TabIndex = 0 + ' + 'SpreadsheetNameBoxControl1 + ' + Me.SpreadsheetNameBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SpreadsheetNameBoxControl1.EditValue = "A1" + Me.SpreadsheetNameBoxControl1.Location = New System.Drawing.Point(0, 0) + Me.SpreadsheetNameBoxControl1.Name = "SpreadsheetNameBoxControl1" + Me.SpreadsheetNameBoxControl1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.SpreadsheetNameBoxControl1.Size = New System.Drawing.Size(145, 20) + Me.SpreadsheetNameBoxControl1.SpreadsheetControl = Me.SpreadsheetControl1 + Me.SpreadsheetNameBoxControl1.TabIndex = 0 + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 142) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.SpreadsheetNameBoxControl1) + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SpreadsheetFormulaBarControl1) + Me.SplitContainerControl1.Size = New System.Drawing.Size(544, 20) + Me.SplitContainerControl1.SplitterPosition = 145 + Me.SplitContainerControl1.TabIndex = 2 + ' + 'SplitterControl1 + ' + Me.SplitterControl1.Dock = System.Windows.Forms.DockStyle.Top + Me.SplitterControl1.Location = New System.Drawing.Point(0, 162) + Me.SplitterControl1.MinSize = 20 + Me.SplitterControl1.Name = "SplitterControl1" + Me.SplitterControl1.Size = New System.Drawing.Size(544, 5) + Me.SplitterControl1.TabIndex = 1 + Me.SplitterControl1.TabStop = False + ' + 'SpreadsheetBarController1 + ' + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem2) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem3) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem4) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem5) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem6) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem7) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem8) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem9) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem10) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem11) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem12) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem13) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeFontNameItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeFontSizeItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem14) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem15) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem2) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem3) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem4) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem16) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem17) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem18) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem19) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem20) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem21) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem22) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem23) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem24) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem25) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem26) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem27) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem28) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeBorderLineColorItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeBorderLineStyleItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeCellFillColorItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeFontColorItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem5) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem6) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem7) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem8) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem9) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem10) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem29) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem30) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem11) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem2) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem12) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem31) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem32) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem33) + Me.SpreadsheetBarController1.BarItems.Add(Me.ChangeNumberFormatItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem3) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem34) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem35) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem36) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem37) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem38) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem39) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem40) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem41) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem42) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem4) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem5) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem43) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem44) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem45) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem46) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem47) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem48) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem49) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem6) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem50) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem51) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem52) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem53) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem54) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem55) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem2) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem3) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem7) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem56) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem57) + Me.SpreadsheetBarController1.BarItems.Add(Me.GalleryFormatAsTableItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.GalleryChangeStyleItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem8) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem58) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem59) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem60) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem9) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem61) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem62) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem63) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem10) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem64) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem65) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem11) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem66) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem67) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem68) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem69) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem70) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem71) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem72) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem12) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem73) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem74) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem75) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem76) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem77) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem13) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem78) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem79) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem80) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem81) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem14) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem82) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem83) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem84) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem85) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem86) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem87) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem88) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem89) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem4) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem5) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem6) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem7) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem8) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem9) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonGalleryDropDownItem10) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem90) + Me.SpreadsheetBarController1.BarItems.Add(Me.BarStaticItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.RenameTableItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem13) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem14) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem15) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem16) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem17) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem18) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem19) + Me.SpreadsheetBarController1.BarItems.Add(Me.GalleryTableStylesItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem20) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem21) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem91) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem92) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem93) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem15) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem94) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem95) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem96) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem97) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem16) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem98) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem99) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem100) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem101) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem102) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsFinancialItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsLogicalItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsTextItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsDateAndTimeItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsLookupAndReferenceItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsMathAndTrigonometryItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem17) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsStatisticalItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsEngineeringItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsInformationItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsCompatibilityItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.FunctionsWebItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem22) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem18) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem23) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem24) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem25) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem19) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem26) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarCheckItem27) + Me.SpreadsheetBarController1.BarItems.Add(Me.PageSetupPaperKindItem1) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem20) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem103) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem104) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarSubItem21) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem105) + Me.SpreadsheetBarController1.BarItems.Add(Me.SpreadsheetCommandBarButtonItem106) + Me.SpreadsheetBarController1.Control = Me.SpreadsheetControl1 + ' + 'SpreadsheetCommandBarButtonItem98 + ' + Me.SpreadsheetCommandBarButtonItem98.CommandName = "FunctionsInsertSum" + Me.SpreadsheetCommandBarButtonItem98.Id = -1 + Me.SpreadsheetCommandBarButtonItem98.Name = "SpreadsheetCommandBarButtonItem98" + ' + 'SpreadsheetCommandBarButtonItem99 + ' + Me.SpreadsheetCommandBarButtonItem99.CommandName = "FunctionsInsertAverage" + Me.SpreadsheetCommandBarButtonItem99.Id = -1 + Me.SpreadsheetCommandBarButtonItem99.Name = "SpreadsheetCommandBarButtonItem99" + ' + 'SpreadsheetCommandBarButtonItem100 + ' + Me.SpreadsheetCommandBarButtonItem100.CommandName = "FunctionsInsertCountNumbers" + Me.SpreadsheetCommandBarButtonItem100.Id = -1 + Me.SpreadsheetCommandBarButtonItem100.Name = "SpreadsheetCommandBarButtonItem100" + ' + 'SpreadsheetCommandBarButtonItem101 + ' + Me.SpreadsheetCommandBarButtonItem101.CommandName = "FunctionsInsertMax" + Me.SpreadsheetCommandBarButtonItem101.Id = -1 + Me.SpreadsheetCommandBarButtonItem101.Name = "SpreadsheetCommandBarButtonItem101" + ' + 'SpreadsheetCommandBarButtonItem102 + ' + Me.SpreadsheetCommandBarButtonItem102.CommandName = "FunctionsInsertMin" + Me.SpreadsheetCommandBarButtonItem102.Id = -1 + Me.SpreadsheetCommandBarButtonItem102.Name = "SpreadsheetCommandBarButtonItem102" + ' + 'SpreadUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SpreadsheetControl1) + Me.Controls.Add(Me.SplitterControl1) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "SpreadUserControl" + Me.Size = New System.Drawing.Size(544, 317) + CType(Me.CommandBarGalleryDropDown26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemFontEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemSpreadsheetFontSizeEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemPopupGalleryEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown33, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown34, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown35, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown36, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CommandBarGalleryDropDown24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpreadsheetNameBoxControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SpreadsheetBarController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents CommandBarGalleryDropDown1 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown2 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown3 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown4 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown5 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown6 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown7 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown8 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown9 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown10 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown11 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown12 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown13 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown14 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown15 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown16 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown17 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown18 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown19 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown20 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown21 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown22 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown23 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents CommandBarGalleryDropDown24 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetControl1 As DevExpress.XtraSpreadsheet.SpreadsheetControl + Friend WithEvents SpreadsheetFormulaBarControl1 As DevExpress.XtraSpreadsheet.SpreadsheetFormulaBarControl + Friend WithEvents SpreadsheetNameBoxControl1 As DevExpress.XtraSpreadsheet.SpreadsheetNameBoxControl + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitterControl1 As DevExpress.XtraEditors.SplitterControl + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents SpreadsheetCommandBarButtonItem1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem11 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem12 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem13 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents BarButtonGroup1 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents ChangeFontNameItem1 As DevExpress.XtraSpreadsheet.UI.ChangeFontNameItem + Friend WithEvents RepositoryItemFontEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemFontEdit + Friend WithEvents ChangeFontSizeItem1 As DevExpress.XtraSpreadsheet.UI.ChangeFontSizeItem + Friend WithEvents RepositoryItemSpreadsheetFontSizeEdit1 As DevExpress.XtraSpreadsheet.Design.RepositoryItemSpreadsheetFontSizeEdit + Friend WithEvents SpreadsheetCommandBarButtonItem14 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem15 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents BarButtonGroup2 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarCheckItem1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents BarButtonGroup3 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarSubItem1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem16 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem17 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem18 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem19 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem20 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem21 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem22 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem23 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem24 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem25 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem26 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem27 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem28 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents ChangeBorderLineColorItem1 As DevExpress.XtraSpreadsheet.UI.ChangeBorderLineColorItem + Friend WithEvents ChangeBorderLineStyleItem1 As DevExpress.XtraSpreadsheet.UI.ChangeBorderLineStyleItem + Friend WithEvents CommandBarGalleryDropDown25 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents BarButtonGroup4 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents ChangeCellFillColorItem1 As DevExpress.XtraSpreadsheet.UI.ChangeCellFillColorItem + Friend WithEvents ChangeFontColorItem1 As DevExpress.XtraSpreadsheet.UI.ChangeFontColorItem + Friend WithEvents BarButtonGroup5 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarCheckItem5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents BarButtonGroup6 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarCheckItem8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents BarButtonGroup7 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarButtonItem29 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem30 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarCheckItem11 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarSubItem2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarCheckItem12 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarButtonItem31 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem32 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem33 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents BarButtonGroup8 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents ChangeNumberFormatItem1 As DevExpress.XtraSpreadsheet.UI.ChangeNumberFormatItem + Friend WithEvents RepositoryItemPopupGalleryEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemPopupGalleryEdit + Friend WithEvents BarButtonGroup9 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarSubItem3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem34 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem35 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem36 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem37 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem38 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem39 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem40 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents BarButtonGroup10 As DevExpress.XtraBars.BarButtonGroup + Friend WithEvents SpreadsheetCommandBarButtonItem41 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem42 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarSubItem5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem43 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem44 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem45 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem46 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem47 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem48 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem49 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem50 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem51 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem52 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem53 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem54 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem55 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown26 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem2 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown27 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem3 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown28 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarSubItem7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem56 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem57 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents GalleryFormatAsTableItem1 As DevExpress.XtraSpreadsheet.UI.GalleryFormatAsTableItem + Friend WithEvents CommandBarGalleryDropDown29 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents GalleryChangeStyleItem1 As DevExpress.XtraSpreadsheet.UI.GalleryChangeStyleItem + Friend WithEvents SpreadsheetCommandBarSubItem8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem58 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem59 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem60 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem61 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem62 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem63 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem64 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem65 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem11 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem66 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem67 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem68 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem69 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem70 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem71 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem72 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem12 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem73 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem74 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem75 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem76 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem77 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem13 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem78 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem79 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem80 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem81 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem14 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem82 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem83 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem84 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem85 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem86 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem87 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem88 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem89 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem4 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown30 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem5 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown31 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem6 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown32 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem7 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown33 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem8 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown34 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem9 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown35 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonGalleryDropDownItem10 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonGalleryDropDownItem + Friend WithEvents CommandBarGalleryDropDown36 As DevExpress.XtraBars.Commands.CommandBarGalleryDropDown + Friend WithEvents SpreadsheetCommandBarButtonItem90 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents RenameTableItem1 As DevExpress.XtraSpreadsheet.UI.RenameTableItem + Friend WithEvents RepositoryItemTextEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemTextEdit + Friend WithEvents SpreadsheetCommandBarCheckItem13 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem14 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem15 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem16 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem17 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem18 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem19 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents GalleryTableStylesItem1 As DevExpress.XtraSpreadsheet.UI.GalleryTableStylesItem + Friend WithEvents SpreadsheetCommandBarCheckItem20 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem21 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarButtonItem91 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem92 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem93 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem15 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem94 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem95 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem96 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem97 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents TableToolsRibbonPageCategory1 As DevExpress.XtraSpreadsheet.UI.TableToolsRibbonPageCategory + Friend WithEvents TableToolsDesignRibbonPage1 As DevExpress.XtraSpreadsheet.UI.TableToolsDesignRibbonPage + Friend WithEvents TablePropertiesRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.TablePropertiesRibbonPageGroup + Friend WithEvents TableToolsRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.TableToolsRibbonPageGroup + Friend WithEvents TableStyleOptionsRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.TableStyleOptionsRibbonPageGroup + Friend WithEvents TableStylesRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.TableStylesRibbonPageGroup + Friend WithEvents FileRibbonPage1 As DevExpress.XtraSpreadsheet.UI.FileRibbonPage + Friend WithEvents CommonRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.CommonRibbonPageGroup + Friend WithEvents HomeRibbonPage1 As DevExpress.XtraSpreadsheet.UI.HomeRibbonPage + Friend WithEvents ClipboardRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.ClipboardRibbonPageGroup + Friend WithEvents FontRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.FontRibbonPageGroup + Friend WithEvents AlignmentRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.AlignmentRibbonPageGroup + Friend WithEvents NumberRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.NumberRibbonPageGroup + Friend WithEvents StylesRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.StylesRibbonPageGroup + Friend WithEvents CellsRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.CellsRibbonPageGroup + Friend WithEvents EditingRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.EditingRibbonPageGroup + Friend WithEvents InsertRibbonPage1 As DevExpress.XtraSpreadsheet.UI.InsertRibbonPage + Friend WithEvents TablesRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.TablesRibbonPageGroup + Friend WithEvents IllustrationsRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.IllustrationsRibbonPageGroup + Friend WithEvents ChartsRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.ChartsRibbonPageGroup + Friend WithEvents LinksRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.LinksRibbonPageGroup + Friend WithEvents ViewRibbonPage1 As DevExpress.XtraSpreadsheet.UI.ViewRibbonPage + Friend WithEvents ShowRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.ShowRibbonPageGroup + Friend WithEvents ZoomRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.ZoomRibbonPageGroup + Friend WithEvents WindowRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.WindowRibbonPageGroup + Friend WithEvents SpreadsheetBarController1 As DevExpress.XtraSpreadsheet.UI.SpreadsheetBarController + Friend WithEvents SpreadsheetCommandBarSubItem16 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents FunctionsFinancialItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsFinancialItem + Friend WithEvents FunctionsLogicalItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsLogicalItem + Friend WithEvents FunctionsTextItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsTextItem + Friend WithEvents FunctionsDateAndTimeItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsDateAndTimeItem + Friend WithEvents FunctionsLookupAndReferenceItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsLookupAndReferenceItem + Friend WithEvents FunctionsMathAndTrigonometryItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsMathAndTrigonometryItem + Friend WithEvents SpreadsheetCommandBarSubItem17 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents FunctionsStatisticalItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsStatisticalItem + Friend WithEvents FunctionsEngineeringItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsEngineeringItem + Friend WithEvents FunctionsInformationItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsInformationItem + Friend WithEvents FunctionsCompatibilityItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsCompatibilityItem + Friend WithEvents FunctionsWebItem1 As DevExpress.XtraSpreadsheet.UI.FunctionsWebItem + Friend WithEvents SpreadsheetCommandBarCheckItem22 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarSubItem18 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarCheckItem23 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem24 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem25 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarSubItem19 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarCheckItem26 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents SpreadsheetCommandBarCheckItem27 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarCheckItem + Friend WithEvents PageSetupPaperKindItem1 As DevExpress.XtraSpreadsheet.UI.PageSetupPaperKindItem + Friend WithEvents SpreadsheetCommandBarSubItem20 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem103 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem104 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarSubItem21 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarSubItem + Friend WithEvents SpreadsheetCommandBarButtonItem105 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem106 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents FormulasRibbonPage1 As DevExpress.XtraSpreadsheet.UI.FormulasRibbonPage + Friend WithEvents FunctionLibraryRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.FunctionLibraryRibbonPageGroup + Friend WithEvents FormulaAuditingRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.FormulaAuditingRibbonPageGroup + Friend WithEvents PageLayoutRibbonPage1 As DevExpress.XtraSpreadsheet.UI.PageLayoutRibbonPage + Friend WithEvents PageSetupRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.PageSetupRibbonPageGroup + Friend WithEvents ArrangeRibbonPageGroup1 As DevExpress.XtraSpreadsheet.UI.ArrangeRibbonPageGroup + Friend WithEvents SpreadsheetCommandBarButtonItem98 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem99 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem100 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem101 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + Friend WithEvents SpreadsheetCommandBarButtonItem102 As DevExpress.XtraSpreadsheet.UI.SpreadsheetCommandBarButtonItem + +End Class diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.resx b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.resx new file mode 100644 index 0000000..355fb5b --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz + UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt + E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq + U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy + bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT + eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5 + QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv + c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA + CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv + ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE + ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu + Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABxTeXN0ZW0uVGV4dC5Db2RlUGFnZUVuY29kaW5nCAAAAAxtX2lz + UmVhZE9ubHkPZW5jb2RlckZhbGxiYWNrD2RlY29kZXJGYWxsYmFjawptX2NvZGVQYWdlCGRhdGFJdGVt + E0VuY29kaW5nK21fY29kZVBhZ2URRW5jb2RpbmcrZGF0YUl0ZW0LbWF4Q2hhclNpemUAAwMAAgACAAEq + U3lzdGVtLlRleHQuSW50ZXJuYWxFbmNvZGVyQmVzdEZpdEZhbGxiYWNrKlN5c3RlbS5UZXh0LkludGVy + bmFsRGVjb2RlckJlc3RGaXRGYWxsYmFjawgICAEJAgAAAAkDAAAA4gQAAAriBAAACgEAAAAEAgAAACpT + eXN0ZW0uVGV4dC5JbnRlcm5hbEVuY29kZXJCZXN0Rml0RmFsbGJhY2sEAAAACGVuY29kaW5nDGFycmF5 + QmVzdEZpdBtiSXNNaWNyb3NvZnRCZXN0Rml0RmFsbGJhY2srRW5jb2RlckZhbGxiYWNrK2JJc01pY3Jv + c29mdEJlc3RGaXRGYWxsYmFjawMHAAAcU3lzdGVtLlRleHQuQ29kZVBhZ2VFbmNvZGluZwMBAQkBAAAA + CgEBBAMAAAAqU3lzdGVtLlRleHQuSW50ZXJuYWxEZWNvZGVyQmVzdEZpdEZhbGxiYWNrBQAAAAhlbmNv + ZGluZwxhcnJheUJlc3RGaXQMY1JlcGxhY2VtZW50G2JJc01pY3Jvc29mdEJlc3RGaXRGYWxsYmFjaytE + ZWNvZGVyRmFsbGJhY2srYklzTWljcm9zb2Z0QmVzdEZpdEZhbGxiYWNrAwcAAAAcU3lzdGVtLlRleHQu + Q29kZVBhZ2VFbmNvZGluZwMDAQEJAQAAAAo/AQEL + + + + Compare the percentage each value contributes to a total across categories using horizontal rectangles. + +Use it when the values on the chart represent durations or when the category text is very long. + + + Compare the percentage each value contributes to a total across categories using horizontal rectangles. + +Use it when the values on the chart represent durations or when the category text is very long. + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.vb b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.vb new file mode 100644 index 0000000..500b4d8 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/SpreadEditor/SpreadUserControl.vb @@ -0,0 +1,21 @@ +Public Class SpreadUserControl + Private _SpreadInfo As String + Public Sub New() + InitializeComponent() + End Sub + Property SpreadInfo As String + Get + Return _SpreadInfo + End Get + Set(value As String) + _SpreadInfo = value + End Set + End Property + Private Sub SpreadsheetControl1_CellEndEdit(sender As Object, e As DevExpress.XtraSpreadsheet.SpreadsheetCellValidatingEventArgs) Handles SpreadsheetControl1.CellEndEdit + If SpreadInfo <> "1" Then + SpreadInfo = "1" + Else + SpreadInfo = "0" + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.Designer.vb b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.Designer.vb new file mode 100644 index 0000000..2f788e6 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.Designer.vb @@ -0,0 +1,95 @@ +Imports System.Windows.Forms + + _ +Partial Class WaitForm + Inherits DevExpress.XtraWaitForm.WaitForm + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components) + Me.tableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.progressPanel1 = New DevExpress.XtraWaitForm.ProgressPanel() + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.tableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'tableLayoutPanel1 + ' + Me.tableLayoutPanel1.AutoSize = True + Me.tableLayoutPanel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.tableLayoutPanel1.BackColor = System.Drawing.Color.Transparent + Me.tableLayoutPanel1.ColumnCount = 1 + Me.tableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tableLayoutPanel1.Controls.Add(Me.progressPanel1, 0, 0) + Me.tableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.tableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.tableLayoutPanel1.Name = "tableLayoutPanel1" + Me.tableLayoutPanel1.Padding = New System.Windows.Forms.Padding(0, 14, 0, 14) + Me.tableLayoutPanel1.RowCount = 1 + Me.tableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.tableLayoutPanel1.Size = New System.Drawing.Size(481, 248) + Me.tableLayoutPanel1.TabIndex = 2 + Me.tableLayoutPanel1.UseWaitCursor = True + ' + 'progressPanel1 + ' + Me.progressPanel1.Appearance.BackColor = System.Drawing.Color.Transparent + Me.progressPanel1.Appearance.Options.UseBackColor = True + Me.progressPanel1.AppearanceCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.progressPanel1.AppearanceCaption.Options.UseFont = True + Me.progressPanel1.AppearanceDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!) + Me.progressPanel1.AppearanceDescription.Options.UseFont = True + Me.progressPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.progressPanel1.ImageHorzOffset = 20 + Me.progressPanel1.Location = New System.Drawing.Point(0, 17) + Me.progressPanel1.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3) + Me.progressPanel1.Name = "progressPanel1" + Me.progressPanel1.Size = New System.Drawing.Size(481, 214) + Me.progressPanel1.StyleController = Me.StyleController1 + Me.progressPanel1.TabIndex = 0 + Me.progressPanel1.Text = "progressPanel1" + Me.progressPanel1.UseWaitCursor = True + ' + 'WaitForm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSize = True + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ClientSize = New System.Drawing.Size(481, 248) + Me.Controls.Add(Me.tableLayoutPanel1) + Me.DoubleBuffered = True + Me.Name = "WaitForm" + Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual + Me.Text = "Form1" + CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit() + Me.tableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController + Private WithEvents tableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Private WithEvents progressPanel1 As DevExpress.XtraWaitForm.ProgressPanel + + 'Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController +End Class diff --git a/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.resx b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.resx new file mode 100644 index 0000000..3944946 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.vb b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.vb new file mode 100644 index 0000000..f3c4956 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/WaitForm/WaitForm.vb @@ -0,0 +1,25 @@ +Public Class WaitForm + + Sub New() + InitializeComponent() + Me.progressPanel1.AutoHeight = True + End Sub + + Public Overrides Sub SetCaption(ByVal caption As String) + MyBase.SetCaption(caption) + Me.progressPanel1.Caption = caption + End Sub + + Public Overrides Sub SetDescription(ByVal description As String) + MyBase.SetDescription(description) + Me.progressPanel1.Description = description + End Sub + + Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object) + MyBase.ProcessCommand(cmd, arg) + End Sub + + Public Enum WaitFormCommand + SomeCommandId + End Enum +End Class diff --git a/SISBusiness.Module.Win/Editor/WaitForm/WaitFormClass.vb b/SISBusiness.Module.Win/Editor/WaitForm/WaitFormClass.vb new file mode 100644 index 0000000..6bc8c38 --- /dev/null +++ b/SISBusiness.Module.Win/Editor/WaitForm/WaitFormClass.vb @@ -0,0 +1,109 @@ +Imports DevExpress.XtraSplashScreen +Imports System.Threading +Public Class WaitFormClass + Private _WaitForm_Minimum As Long = -1 + Private _WaitForm_Maximum As Long = -1 + Private _WaitForm_Step As Long = -1 + Private _Current_Step As Long = -1 + Private _Current_Percent As Double = 0 + Private _Last_Percent As Double = 0 + Private _Act_Displayed_Time As Date + Private _Prev_Displayed_Time As Date + Private _StartTime As Date + Private _Caption As String + Private _DoThread As Boolean = False + Private _ThreadHandler As Thread + Public Property Caption + Get + Return _Caption + End Get + Set(value) + _Caption = value + End Set + End Property + Public Sub Initwork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + _WaitForm_Minimum = _Minimum + _WaitForm_Maximum = _Maximum + _WaitForm_Step = _Step + _Current_Step = 0 + _Current_Percent = 0 + _Last_Percent = 0 + _Act_Displayed_Time = Now + _Prev_Displayed_Time = Date.MinValue + _StartTime = Now + SplashScreenManager.ShowForm(Nothing, GetType(WaitForm), True, False, False) + System.Windows.Forms.Application.DoEvents() + _DoThread = True + _ThreadHandler = New Thread(AddressOf ThreadTask) + _ThreadHandler.IsBackground = True + _ThreadHandler.Start() + End Sub + Public Sub DoWork() + Dim _EstimatedSec As Long = 0 + Dim _SpentSec As Long = 0 + _Current_Step += _WaitForm_Step + _Current_Percent = Math.Round(_Current_Step / _WaitForm_Maximum * 100, 0, MidpointRounding.AwayFromZero) + + + If _Last_Percent <> _Current_Percent Then + Try + If Caption = "" Then + SplashScreenManager.Default.SetWaitFormCaption(String.Format("Kérem várjon, dolgozom ... {0}", Format(_StartTime, "hh:mm:ss"))) + Else + SplashScreenManager.Default.SetWaitFormCaption(Me.Caption) + End If + _SpentSec = DateDiff(DateInterval.Second, _StartTime, Now) + _EstimatedSec = ((_SpentSec / _Current_Step) * (_WaitForm_Maximum - _Current_Step)) + 1 + Dim iSpan As TimeSpan = TimeSpan.FromSeconds(_EstimatedSec) + + SplashScreenManager.Default.SetWaitFormDescription(String.Format("{0}% ,{1}/{2}, eltelt idő: {3}, becsült hátralévő : {4}:{5}:{6}", + _Current_Percent, _Current_Step, _WaitForm_Maximum, FormatEllapsedTime(), + iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString)) + Catch ex As Exception + + End Try + _Last_Percent = _Current_Percent + End If + System.Windows.Forms.Application.DoEvents() + End Sub + Public Sub FinalWork() + _DoThread = False + _ThreadHandler = Nothing + SplashScreenManager.CloseForm(False) + System.Windows.Forms.Application.DoEvents() + End Sub + Private Function FormatEllapsedTime() As String + Dim iSpan As TimeSpan = TimeSpan.FromSeconds(DateDiff(DateInterval.Second, _StartTime, Now).ToString) + Return String.Format("{0}:{1}:{2}", iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString) + End Function + + '// THREADING + Private Sub ThreadTask() + Dim _EstimatedSec As Long = 0 + Dim _SpentSec As Long = 0 + + While _DoThread + _Act_Displayed_Time = Now + Try + If _Act_Displayed_Time <> _Prev_Displayed_Time Then + If DateDiff(DateInterval.Second, _Prev_Displayed_Time, _Act_Displayed_Time) >= 1 Then + _SpentSec = DateDiff(DateInterval.Second, _StartTime, Now) + + _EstimatedSec = ((_SpentSec / _Current_Step) * (_WaitForm_Maximum - _Current_Step)) + 1 + Dim iSpan As TimeSpan = TimeSpan.FromSeconds(_EstimatedSec) + + SplashScreenManager.Default.SetWaitFormDescription(String.Format("{0}% ,{1}/{2}, eltelt idő: {3}, becsült hátralévő : {4}:{5}:{6}", + _Current_Percent, _Current_Step, _WaitForm_Maximum, FormatEllapsedTime(), + iSpan.Hours.ToString, iSpan.Minutes.ToString, iSpan.Seconds.ToString)) + + _Prev_Displayed_Time = Now + End If + End If + Catch ex As Exception + + End Try + Thread.Sleep(1000) + End While + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Excels/BallanceXLS.xlsm b/SISBusiness.Module.Win/Excels/BallanceXLS.xlsm new file mode 100644 index 0000000..6522b69 Binary files /dev/null and b/SISBusiness.Module.Win/Excels/BallanceXLS.xlsm differ diff --git a/SISBusiness.Module.Win/Excels/XLSImports.xlsx b/SISBusiness.Module.Win/Excels/XLSImports.xlsx new file mode 100644 index 0000000..4cfd657 Binary files /dev/null and b/SISBusiness.Module.Win/Excels/XLSImports.xlsx differ diff --git a/SISBusiness.Module.Win/Images/Images.forbidden.png b/SISBusiness.Module.Win/Images/Images.forbidden.png new file mode 100644 index 0000000..4425ff3 Binary files /dev/null and b/SISBusiness.Module.Win/Images/Images.forbidden.png differ diff --git a/SISBusiness.Module.Win/Images/Images.forbidden_32x32.png b/SISBusiness.Module.Win/Images/Images.forbidden_32x32.png new file mode 100644 index 0000000..a8ed7ff Binary files /dev/null and b/SISBusiness.Module.Win/Images/Images.forbidden_32x32.png differ diff --git a/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.Designer.vb b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.Designer.vb new file mode 100644 index 0000000..a16b65f --- /dev/null +++ b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.Designer.vb @@ -0,0 +1,35 @@ +Partial Class MobileListDashboardsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'aViewDashboardBase + ' + + End Sub + +End Class diff --git a/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.resx b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.resx new file mode 100644 index 0000000..cd3830e --- /dev/null +++ b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.vb b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.vb new file mode 100644 index 0000000..1b5fa8b --- /dev/null +++ b/SISBusiness.Module.Win/Mobile/MobileListDashboardsVC.vb @@ -0,0 +1,44 @@ +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 MobileListDashboardsVC + Inherits SISBusiness.Module.MobileListDashboardsVC + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aViewDashboardBase_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewDashboardBase.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _MobileListDashboards As MobileListDashboards = TryCast(View.SelectedObjects(0), MobileListDashboards) + + If _MobileListDashboards IsNot Nothing Then + If _MobileListDashboards.BusinessDirectory IsNot Nothing Then + Dim _BusinessDirectory As BusinessDirectory = _MobileListDashboards.BusinessDirectory + Dim _Dashboard As New Dashboard(_onew.Session) + With _Dashboard + .DashboardViewMode = DashboardViewMode.Viewer + .UserName = _BusinessDirectory.DashBoard_UserName + .Password = _BusinessDirectory.DashBoard_Password + .SQLServer = _BusinessDirectory.DashBoard_Server + .Database = _BusinessDirectory.DashBoard_Database + .XMLFileData = _onew.GetObject(_BusinessDirectory.FileData) + .SQLType = _BusinessDirectory.SQLType + End With + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Viewer", True, _Dashboard) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.en.xafml b/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.en.xafml new file mode 100644 index 0000000..4633922 --- /dev/null +++ b/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.en.xafml @@ -0,0 +1,87 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.hu.xafml b/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..fb6e171 --- /dev/null +++ b/SISBusiness.Module.Win/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,1453 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Model.DesignedDiffs.xafml b/SISBusiness.Module.Win/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..09114d3 --- /dev/null +++ b/SISBusiness.Module.Win/Model.DesignedDiffs.xafml @@ -0,0 +1,3434 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/My Project/Application.Designer.vb b/SISBusiness.Module.Win/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Module.Win/My Project/Application.myapp b/SISBusiness.Module.Win/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Module.Win/My Project/AssemblyInfo.vb b/SISBusiness.Module.Win/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..914d990 --- /dev/null +++ b/SISBusiness.Module.Win/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.Module.Win/My Project/Resources.Designer.vb b/SISBusiness.Module.Win/My Project/Resources.Designer.vb new file mode 100644 index 0000000..d84c779 --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Win.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Win/My Project/Resources.resx b/SISBusiness.Module.Win/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Module.Win/My Project/Settings.Designer.vb b/SISBusiness.Module.Win/My Project/Settings.Designer.vb new file mode 100644 index 0000000..1a1f778 --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.[Module].Win.My.MySettings + Get + Return Global.SISBusiness.[Module].Win.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Module.Win/My Project/Settings.settings b/SISBusiness.Module.Win/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Module.Win/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Module.Win/My Project/licenses.licx b/SISBusiness.Module.Win/My Project/licenses.licx new file mode 100644 index 0000000..7feaa0e --- /dev/null +++ b/SISBusiness.Module.Win/My Project/licenses.licx @@ -0,0 +1,6 @@ +DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.DashboardWin.DashboardDesigner, DevExpress.Dashboard.v15.2.Win, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.ExpressApp.ModuleBase, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj b/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj new file mode 100644 index 0000000..538519d --- /dev/null +++ b/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj @@ -0,0 +1,1788 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {98539DCF-BF11-4158-AEC0-4B008A404A0E} + Library + SISBusiness.Module.Win + SISBusiness.Module.Win + Windows + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.0 + + + 4.0 + + true + + + http://localhost/SISBusiness.Module.Win/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + false + + + true + bin\Release 64bit\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + bin\Release\SISBusiness.Module.Win.dll.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + AllRules.ruleset + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + + + + + + + + + + False + ..\..\..\..\..\Program Files (x86)\DevExpress 15.2\Components\Bin\Framework\DevExpress.ExpressApp.Reports.Win.v15.2.dll + + + + False + + + False + + + + + + + + + + + + + + + + + + False + + + False + + + False + + + False + + + False + + + False + False + + + + False + + + False + + + False + + + + + + False + + + False + + + + + + + + False + + + False + + + False + + + + + + + + + + + + + + + + + + + + + + + + False + ..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exg2antt.dll + + + False + ..\..\..\..\..\..\Program Files (x86)\Exontrol\ExG2antt.NET\Sample\exontrol.exprint.dll + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Excel.dll + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.PDF.dll + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.dll + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.dll + + + False + ..\..\..\..\..\Program Files (x86)\GrapeCity\Spread.WinForms.5.dotNet35\v5.0.3518\Bin\FarPoint.Win.Spread.Design.dll + + + ..\..\..\..\..\..\..\Program Files (x86)\Gnostice\PDFOne.NET\Bin\Gnostice.PDFOne.dll + + + ..\packages\Microsoft.Office.Interop.Outlook.14.0.0\lib\net40\Microsoft.Office.Interop.Outlook.dll + True + + + False + ..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11.91-bin-ms.net4.0\Mono.Security.dll + + + False + ..\..\..\..\..\..\..\Program Files\MySQL\MySQL Connector Net 6.5.4\Assemblies\v4.0\MySql.Data.dll + + + ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll + True + + + False + ..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11.91-bin-ms.net4.0\Npgsql.dll + + + False + ..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11.91-bin-ms.net4.0\policy.2.0.Npgsql.dll + False + + + System + False + + + + System.Data + False + + + + System.Drawing + False + + + + + System.Windows.Forms + False + + + System.XML + False + + + + + + + + + + + + + + + + + + + + + C3CTelecomVC.vb + + + Component + + + + + + + APCSheetReviewHeader_VC.vb + + + Component + + + APCSheetVC.vb + + + Component + + + IntrastatHeader_VC.vb + + + Component + + + CRMEstateStatisticsVC.vb + + + Component + + + ImmovablesVC.vb + + + Component + + + + InvoiceFactoringVC.vb + + + Component + + + InvoiceRowsPivotVC.vb + + + Component + + + InvoiceRowVC.vb + + + Component + + + OrderInRowsVC.vb + + + Component + + + OrderInVC.vb + + + Component + + + OrderOutStockVC.vb + + + Component + + + CRM_LeadsVC.vb + + + Component + + + CRM_OpportunitiesVC.vb + + + Component + + + PricingActionVC.vb + + + Component + + + ProductSelect_VC.vb + + + Component + + + ProductsGant_VC.vb + + + Component + + + Products_VC.vb + + + Component + + + ProjectVC.vb + + + Component + + + ServiceFinderVC.vb + + + Component + + + InventoryVC.vb + + + Component + + + StorageComputedVC.vb + + + Component + + + StorageDateVC.vb + + + Component + + + StorageOut_VC.vb + + + Component + + + StorageTransactionIn_VC.vb + + + Component + + + StorageMoveEventsVC.vb + + + Component + + + GLBaseVC.vb + + + Component + + + FixedAssetsCardVC.vb + + + Component + + + FixedAssetsQueryVC.vb + + + Component + + + GIROInfo_VC.vb + + + Component + + + GLOpenCloseVC.vb + + + Component + + + + GLReportCashflowVC.vb + + + Component + + + GLReportRowsWC.vb + + + Component + + + PCICheckerVC.vb + + + Component + + + PCICheckVC.vb + + + Component + + + PCIGroupAgingVC.vb + + + Component + + + SpecTranRevaluationVC.vb + + + Component + + + + RegistryTaskVC.vb + + + Component + + + AlertWC.vb + + + Component + + + ContactsVC.vb + + + Component + + + ContractTemplate_VC.vb + + + Component + + + Dashboard_VC.vb + + + Component + + + OutlookReminder_VC.vb + + + Component + + + HRPersonEventVC.vb + + + Component + + + HRPerson_VC.vb + + + Component + + + BusinessDirectory_VC.vb + + + Component + + + + RTFDocumentsHandlerVC.vb + + + Component + + + + DBCExportVC.vb + + + Component + + + + + ImportsForm2.vb + + + Form + + + + SpreadImportVC.vb + + + Component + + + + + XLSExportImportVC.vb + + + Component + + + SISChatVC.vb + + + Component + + + SISChatWC.vb + + + Component + + + SystemTool_VC.vb + + + Component + + + AnonymVC.vb + + + Component + + + AutoFilterRowControllerVC.vb + + + Component + + + DeliveryNoteInVC.vb + + + Component + + + DeliveryNoteOutVC.vb + + + Component + + + CRMEstateVC.vb + + + Component + + + InsertGridToRTF_VC.vb + + + Component + + + ImmovablesPriceListVCWIN.vb + + + Component + + + ImmovablesCostRecordExcelVC.vb + + + Component + + + + OfferInHeaderVC.vb + + + Component + + + OfferInRowsVC.vb + + + Component + + + OfferOutHeaderVC.vb + + + Component + + + OfferOutRowsVC.vb + + + Component + + + OffersOutPrintVC.vb + + + Component + + + CertificateOfContractVC.vb + + + Component + + + ContractRowsFreeVC.vb + + + Component + + + ProductFinderVC.vb + + + Component + + + InventoryVC_ListView.vb + + + Component + + + StorageIn_VC.vb + + + Component + + + Subcontractor_VC.vb + + + Component + + + WorksheetVC.vb + + + Component + + + ContractRowsVC.vb + + + Component + + + Worksheet_VC_ListView.vb + + + Component + + + CentralListViewVC.vb + + + Component + + + DragAndDropBusinessDirectory_VC.vb + + + Component + + + DragAndDropCRMOutlookCRM_VC.vb + + + Component + + + DragAndDropCRMOutlookCustomers_VC.vb + + + Component + + + DragAndDropCRMOutlookProducts_VC.vb + + + Component + + + SplitterVC.vb + + + Component + + + + + + FileDataProcess_VC.vb + + + Component + + + + ListViewModelManagerVC.vb + + + Component + + + ShowFilterDialogController.vb + + + Component + + + CountListView.vb + + + Component + + + DisableGridColumnsVC.vb + + + Component + + + ViewFilterContainerVC.vb + + + Component + + + LockObjectBeforeEditVC.vb + + + Component + + + RTFCopy_VC.vb + + + Component + + + + DashboardDesignerUserControl.vb + + + UserControl + + + + DashboardViewerUserControl.vb + + + UserControl + + + + GanttChartUserControl.vb + + + UserControl + + + + G2anttUserControl.vb + + + UserControl + + + + + ProductsDetailUserControl.vb + + + UserControl + + + + + IEUserControl.vb + + + UserControl + + + + FileAttachementsVC.vb + + + Component + + + + GLRowsDivideVC.vb + + + Component + + + LiquidAssetsBallanceVC.vb + + + Component + + + LiquidAssetsReturnVC.vb + + + Component + + + BallanceVC.vb + + + Component + + + GLReportRowsVC.vb + + + Component + + + ABRQueryVC.vb + + + Component + + + PartnerAccountConnectionInfoQueryVC.vb + + + Component + + + PCIVC.vb + + + Component + + + VATReportVC.vb + + + Component + + + RegistryRowsFinancialControllingVC.vb + + + Component + + + RRFCQueryVC.vb + + + Component + + + ChartOfAccountsVC.vb + + + Component + + + ControllingVC.vb + + + Component + + + CustomersVC.vb + + + Component + + + + SendMailVC.vb + + + Component + + + OfferOutVC.vb + + + Component + + + OrderInRowsOtherVC.vb + + + Component + + + OrderOutVC.vb + + + Component + + + + CustomPrintingController.vb + + + Component + + + InvoiceVC.vb + + + Component + + + OrderVC.vb + + + Component + + + ContractsVC.vb + + + Component + + + CreateLogonWindowsControllerVC.vb + + + Component + + + Customization.vb + + + Component + + + CustomReportWizardController.vb + + + Component + + + Component + + + DateTimeHandle.vb + + + Component + + + DisableValidationPopUpWindow.vb + + + Component + + + + ExcelUserControl.vb + + + UserControl + + + + FolderUserControl.vb + + + UserControl + + + + + RichEditUserControl.vb + + + UserControl + + + BankImportVC.vb + + + Component + + + BankVC.vb + + + Component + + + AssetsPCIVC.vb + + + Component + + + GLRowsVC.vb + + + Component + + + TrialBalanceVC.vb + + + Component + + + + GLResetVC.vb + + + Component + + + + WinLookupLinkViewControllerVC.vb + + + Component + + + + + HTMLEditorVC.vb + + + Component + + + + SQLImportsVC.vb + + + Component + + + StorageOperation_VC.vb + + + Component + + + XLSImportsVC.vb + + + Component + + + + + ImportsForm.vb + + + Form + + + ProjectPlanForm.vb + + + Form + + + ProjectPlanVC.vb + + + Component + + + RegistryVC.vb + + + Component + + + BookEntryVC.vb + + + Component + + + GLAccountsVC.vb + + + Component + + + GLBankVC.vb + + + Component + + + GLCardVC.vb + + + Component + + + GLCassaVC.vb + + + Component + + + GLCompensationVC.vb + + + Component + + + GLMixedVC.vb + + + Component + + + + CustomRoleEditorVC.vb + + + Component + + + + + + OutlookEmailVC.vb + + + Component + + + GridAutoWidthVC.vb + + + Component + + + ViewHintControllerVC.vb + + + Component + + + WindowHintControllerWC.vb + + + Component + + + InLineEditVC.vb + + + Component + + + LogOnDB.vb + + + Component + + + + MasterDetailVC.vb + + + Component + + + + RichTextViewVC.vb + + + Component + + + + + + SpreadSimpleUserControl.vb + + + UserControl + + + SpreadUserControl.vb + + + UserControl + + + WaitForm.vb + + + Form + + + + MobileListDashboardsVC.vb + + + Component + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + NavbarTreelist.vb + + + Component + + + + CornerVC.vb + + + Component + + + + + + VivaldiVC.vb + + + Component + + + + RepairRegistryVC.vb + + + Component + + + SchedulerVC.vb + + + Component + + + ShowAlertControlMainWindowController.vb + + + Component + + + ShowNavigationItemController.vb + + + Component + + + StorageTransactionsVC.vb + + + Component + + + QuestionVC.vb + + + Component + + + MySchedule_VC.vb + + + Component + + + TreeListVC.vb + + + Component + + + + Component + + + WinGroupFooterViewController.vb + + + Component + + + WinModule.vb + + + Component + + + WinNewObjectViewVC.vb + + + Component + + + ZIPHUVC.vb + + + Component + + + + + C3CTelecomVC.vb + + + CRMEstateVC.vb + + + InsertGridToRTF_VC.vb + + + SendMailVC.vb + + + ImmovablesPriceListVCWIN.vb + + + ImmovablesCostRecordExcelVC.vb + + + ImmovablesVC.vb + + + InvoiceRowsPivotVC.vb + + + OfferOutHeaderVC.vb + + + OfferOutVC.vb + + + OffersOutPrintVC.vb + + + OrderVC.vb + + + CRM_LeadsVC.vb + + + CRM_OpportunitiesVC.vb + + + ContractRowsVC.vb + + + ProductsGant_VC.vb + + + ProjectVC.vb + + + InventoryVC.vb + + + GLBaseVC.vb + + + GIROInfo_VC.vb + + + BallanceVC.vb + + + GLReportCashflowVC.vb + + + GLReportRowsVC.vb + + + VATReportVC.vb + + + ContactsVC.vb + + + ContractTemplate_VC.vb + + + Dashboard_VC.vb + + + HRPersonEventVC.vb + + + BusinessDirectory_VC.vb + + + RTFDocumentsHandlerVC.vb + + + DBCExportVC.vb + + + ImportsForm2.vb + + + SpreadImportVC.vb + + + XLSExportImportVC.vb + + + AnonymVC.vb + + + CentralListViewVC.vb + + + DragAndDropBusinessDirectory_VC.vb + + + DragAndDropCRMOutlookCRM_VC.vb + + + DragAndDropCRMOutlookCustomers_VC.vb + + + DragAndDropCRMOutlookProducts_VC.vb + + + FileDataProcess_VC.vb + + + ListViewModelManagerVC.vb + + + RTFCopy_VC.vb + + + ZIPHUVC.vb + + + DashboardDesignerUserControl.vb + + + DashboardViewerUserControl.vb + + + GanttChartUserControl.vb + + + G2anttUserControl.vb + + + ProductsDetailUserControl.vb + + + IEUserControl.vb + + + ExcelUserControl.vb + + + FolderUserControl.vb + + + BankImportVC.vb + + + BankVC.vb + + + BookEntryVC.vb + + + TrialBalanceVC.vb + + + RegistryRowsFinancialControllingVC.vb + + + RRFCQueryVC.vb + + + CustomRoleEditorVC.vb + + + ImportsForm.vb + + + ProjectPlanForm.vb + + + ProjectPlanVC.vb + + + OutlookEmailVC.vb + + + SQLImportsVC.vb + + + StorageOperation_VC.vb + + + XLSImportsVC.vb + + + RichTextViewVC.vb + + + SpreadSimpleUserControl.vb + + + SpreadUserControl.vb + + + WaitForm.vb + + + MobileListDashboardsVC.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + CornerVC.vb + + + VivaldiVC.vb + + + TreeListVC.vb + + + WinModule.vb + + + + + Always + + + + + Model.DesignedDiffs.xafml + Designer + + + Model.DesignedDiffs.xafml + Designer + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + InvoiceVC.vb + + + ContractsVC.vb + + + RichEditUserControl.vb + + + GLResetVC.vb + + + GLAccountsVC.vb + + + Designer + + + StorageTransactionsVC.vb + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + + + + Model.DesignedDiffs.xafml + Designer + + + Model.DesignedDiffs.xafml + Designer + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj.vspscc b/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module.Win/SISBusiness.Module.Win.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module.Win/UnusableNodes.xml b/SISBusiness.Module.Win/UnusableNodes.xml new file mode 100644 index 0000000..6318ba9 --- /dev/null +++ b/SISBusiness.Module.Win/UnusableNodes.xml @@ -0,0 +1,17 @@ + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/UnusableNodes_hu.xml b/SISBusiness.Module.Win/UnusableNodes_hu.xml new file mode 100644 index 0000000..f67f60e --- /dev/null +++ b/SISBusiness.Module.Win/UnusableNodes_hu.xml @@ -0,0 +1,19 @@ + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/Updater.vb b/SISBusiness.Module.Win/Updater.vb new file mode 100644 index 0000000..99e091c --- /dev/null +++ b/SISBusiness.Module.Win/Updater.vb @@ -0,0 +1,50 @@ +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 +Imports System.IO +Imports System.Security +Imports System.Xml + +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() + + Dim _FileData As DevExpress.Persistent.BaseImpl.FileData = ObjectSpace.CreateObject(Of DevExpress.Persistent.BaseImpl.FileData)() + Dim _XLSImports As XLSImports + Dim _FileStream As FileStream = File.OpenRead("Excels\XLSImports.xlsx") + _XLSImports = ObjectSpace.FindObject(Of XLSImports)(CriteriaOperator.Parse("Oid=Oid"), False) + If _XLSImports Is Nothing Then + _XLSImports = ObjectSpace.CreateObject(Of XLSImports)() + _FileData.LoadFromStream("XLSImports.xlsx", _FileStream) + _XLSImports.XLSFileName = _FileData + _XLSImports.Save() + End If + + Dim _ResetObjects As ResetObjects = ObjectSpace.FindObject(Of ResetObjects)(CriteriaOperator.Parse("Oid=Oid"), False) + If _ResetObjects Is Nothing Then + _ResetObjects = ObjectSpace.CreateObject(Of ResetObjects)() + _ResetObjects.Save() + End If + + Dim _SpreadImport As SpreadImport + _SpreadImport = ObjectSpace.FindObject(Of SpreadImport)(CriteriaOperator.Parse("1=1")) + + If _SpreadImport Is Nothing Then + _SpreadImport = ObjectSpace.CreateObject(Of SpreadImport)() + _SpreadImport.Save() + End If + End Sub + + +End Class diff --git a/SISBusiness.Module.Win/WinModule.Designer.vb b/SISBusiness.Module.Win/WinModule.Designer.vb new file mode 100644 index 0000000..9e00b64 --- /dev/null +++ b/SISBusiness.Module.Win/WinModule.Designer.vb @@ -0,0 +1,85 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.XtraPivotGrid.Localization +Imports DevExpress.XtraCharts.Localization +Imports DevExpress.ExpressApp.Security + +'Imports DevExpress.ExpressApp.PivotChart. +Partial Public Class SISBusinessWindowsFormsModule + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + ' + 'SISBusinessWindowsFormsModule + ' + Me.RequiredModuleTypes.Add(GetType(SISBusiness.[Module].SISBusinessModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.CloneObject.CloneObjectModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.ValidationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Security.SecurityModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.AuditTrail.AuditTrailModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Kpi.KpiModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Notifications.NotificationsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Notifications.Win.NotificationsWindowsFormsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Reports.ReportsModule)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Localization.PreviewControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Security.ServerDataLogLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.GridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LayoutControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.NavBarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.BarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.RichEditControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.TreeListControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.VerticalGridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.XtraEditorsLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LargeStringEditFindFormLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.MainFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.DetailViewFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.NestedFrameTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.LookupControlTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.PopupFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditorControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Reports.Win.ReportControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.SchedulerModuleBaseLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Win.SchedulerControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.DocumentManagerControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotGrid.PivotGridListEditorLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.XtraPivotGrid.Localization.PivotGridLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.XtraCharts.Localization.ChartLocalizer)) + + End Sub + +#End Region +End Class diff --git a/SISBusiness.Module.Win/WinModule.resx b/SISBusiness.Module.Win/WinModule.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module.Win/WinModule.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module.Win/WinModule.vb b/SISBusiness.Module.Win/WinModule.vb new file mode 100644 index 0000000..a90c0c8 --- /dev/null +++ b/SISBusiness.Module.Win/WinModule.vb @@ -0,0 +1,29 @@ +Imports System +Imports System.Text +Imports System.Collections.Generic +Imports System.ComponentModel + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.FileAttachments.Win +Imports DevExpress.ExpressApp.DC + + _ +Partial Public NotInheritable Class [SISBusinessWindowsFormsModule] + Inherits ModuleBase + Public Sub New() + InitializeComponent() + exontrol.EXG2ANTTLib.exg2antt.RuntimeKey = "kxcp0u|cdqBuku/tgpfu|gtjc|0jw" + End Sub + 'Public Overrides Sub CustomizeLogics(customLogics As DevExpress.ExpressApp.DC.CustomLogics) + ' MyBase.CustomizeLogics(customLogics) + ' customLogics.RegisterLogic(GetType(IModelOptionsFileAttachment), GetType(LogicIModelOptionsFileAttachment)) + + 'End Sub +End Class + _ +Public Class LogicIModelOptionsFileAttachment + Public Shared Function Get_DefaultDirectory(instance As IModelOptionsFileAttachment) As String + Return "c:\Temp" + End Function +End Class + diff --git a/SISBusiness.Module.Win/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.Win/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..472f2d9 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.AnonymVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.AnonymVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.AnonymVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BallanceVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BallanceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankImportVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BankVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BookEntryVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BookEntryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BookEntryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BusinessDirectory_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.C3CTelecomVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.C3CTelecomVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.C3CTelecomVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRMEstateVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRMEstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRMEstateVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_LeadsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_LeadsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_LeadsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CentralListViewVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CentralListViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CentralListViewVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContactsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContactsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContactsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractRowsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractRowsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractTemplate_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractTemplate_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractTemplate_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ContractsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CornerVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CornerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CornerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CustomRoleEditorVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CustomRoleEditorVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.CustomRoleEditorVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DBCExportVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DBCExportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DBCExportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardDesignerUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardDesignerUserControl.resources new file mode 100644 index 0000000..96b36f1 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardDesignerUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardViewerUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardViewerUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DashboardViewerUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Dashboard_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Dashboard_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Dashboard_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ExcelUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ExcelUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ExcelUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FileDataProcess_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FileDataProcess_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FileDataProcess_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FolderUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FolderUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.FolderUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.G2anttUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.G2anttUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.G2anttUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GIROInfo_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GIROInfo_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GIROInfo_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLAccountsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLAccountsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLBaseVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLBaseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLBaseVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportCashflowVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportCashflowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportCashflowVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportRowsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLReportRowsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLResetVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLResetVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GLResetVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GanttChartUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GanttChartUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.GanttChartUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.HRPersonEventVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.HRPersonEventVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.HRPersonEventVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.IEUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.IEUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.IEUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImmovablesVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm2.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm2.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ImportsForm2.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InsertGridToRTF_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InsertGridToRTF_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InsertGridToRTF_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InventoryVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InventoryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InventoryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.InvoiceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ListViewModelManagerVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ListViewModelManagerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ListViewModelManagerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.MobileListDashboardsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.MobileListDashboardsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.MobileListDashboardsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutHeaderVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutHeaderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutHeaderVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OfferOutVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OffersOutPrintVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OffersOutPrintVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OffersOutPrintVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OrderVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OrderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OrderVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OutlookEmailVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OutlookEmailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.OutlookEmailVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsDetailUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsDetailUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsDetailUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsGant_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsGant_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProductsGant_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanForm.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectPlanVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ProjectVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RRFCQueryVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RRFCQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RRFCQueryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFCopy_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFCopy_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFCopy_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Resources.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.Resources.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichEditUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichEditUserControl.resources new file mode 100644 index 0000000..3c08506 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichEditUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichTextViewVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichTextViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.RichTextViewVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SQLImportsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SQLImportsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SQLImportsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SendMailVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SendMailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SendMailVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadImportVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadSimpleUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadSimpleUserControl.resources new file mode 100644 index 0000000..c40dfca Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadSimpleUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadUserControl.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadUserControl.resources new file mode 100644 index 0000000..20d1cfa Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.SpreadUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageOperation_VC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageOperation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageOperation_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageTransactionsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageTransactionsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.StorageTransactionsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TreeListVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TreeListVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TreeListVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TrialBalanceVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TrialBalanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.TrialBalanceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VATReportVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VATReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VATReportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VivaldiVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VivaldiVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.VivaldiVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.WaitForm.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.WaitForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.WaitForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSExportImportVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSExportImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSExportImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSImportsVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSImportsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.XLSImportsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ZIPHUVC.resources b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ZIPHUVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.ZIPHUVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.dll b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.dll new file mode 100644 index 0000000..319b4a8 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.dll differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.pdb b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.pdb new file mode 100644 index 0000000..af384a1 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.pdb differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..ba37508 --- /dev/null +++ b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt @@ -0,0 +1,504 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\SISBusiness.Module.Win.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Reporting.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraWizard.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Reporting.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\SISBusiness.Module.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Reporting.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraWizard.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\DevExpress.XtraScheduler.v15.2.Reporting.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\de\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\es\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.C3CTelecomVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CRMEstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.InsertGridToRTF_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SendMailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ImmovablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.InvoiceRowsPivotVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.OfferOutHeaderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.OfferOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.OffersOutPrintVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.OrderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CRM_LeadsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CRM_OpportunitiesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ContractRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ProductsGant_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ProjectVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.InventoryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GLBaseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GIROInfo_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.BallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GLReportCashflowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GLReportRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.VATReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ContactsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ContractTemplate_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.Dashboard_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.HRPersonEventVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DBCExportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ImportsForm2.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SpreadImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.XLSExportImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.AnonymVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CentralListViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.FileDataProcess_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ListViewModelManagerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RTFCopy_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ZIPHUVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DashboardDesignerUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.DashboardViewerUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GanttChartUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.G2anttUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ProductsDetailUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.IEUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ExcelUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.FolderUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.BankImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.BankVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.BookEntryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.TrialBalanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RRFCQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CustomRoleEditorVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ImportsForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ProjectPlanForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ProjectPlanVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.OutlookEmailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SQLImportsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.StorageOperation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.XLSImportsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RichTextViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SpreadSimpleUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SpreadUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.WaitForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.MobileListDashboardsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.CornerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.VivaldiVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.TreeListVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.InvoiceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.ContractsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.RichEditUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GLResetVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.StorageTransactionsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Debug\SISBusiness.Module.Win.pdb diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.GenerateResource.Cache b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..d6ccef6 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..61f1bfa Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module.Win/obj/Debug/en/SISBusiness.Module.Win.resources.dll b/SISBusiness.Module.Win/obj/Debug/en/SISBusiness.Module.Win.resources.dll new file mode 100644 index 0000000..b0a5a80 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/en/SISBusiness.Module.Win.resources.dll differ diff --git a/SISBusiness.Module.Win/obj/Debug/hu/SISBusiness.Module.Win.resources.dll b/SISBusiness.Module.Win/obj/Debug/hu/SISBusiness.Module.Win.resources.dll new file mode 100644 index 0000000..df88ad9 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/hu/SISBusiness.Module.Win.resources.dll differ diff --git a/SISBusiness.Module.Win/obj/Debug/sisbusiness.module.win.dll.licenses b/SISBusiness.Module.Win/obj/Debug/sisbusiness.module.win.dll.licenses new file mode 100644 index 0000000..ce75b96 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Debug/sisbusiness.module.win.dll.licenses differ diff --git a/SISBusiness.Module.Win/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.Win/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..a8df2c0 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.Win/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Module.Win/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..dae531b Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Module.Win/obj/Release 64bit/build.force b/SISBusiness.Module.Win/obj/Release 64bit/build.force new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Module.Win/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module.Win/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..3be2c1b Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.AnonymVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.AnonymVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.AnonymVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BallanceVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BallanceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankImportVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BankVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BookEntryVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BookEntryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BookEntryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BusinessDirectory_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.C3CTelecomVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.C3CTelecomVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.C3CTelecomVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRMEstateVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRMEstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRMEstateVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_LeadsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_LeadsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_LeadsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CRM_OpportunitiesVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CentralListViewVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CentralListViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CentralListViewVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContactsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContactsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContactsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractRowsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractRowsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractTemplate_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractTemplate_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractTemplate_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ContractsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CornerVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CornerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CornerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CustomRoleEditorVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CustomRoleEditorVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.CustomRoleEditorVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DBCExportVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DBCExportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DBCExportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardDesignerUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardDesignerUserControl.resources new file mode 100644 index 0000000..96b36f1 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardDesignerUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardViewerUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardViewerUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DashboardViewerUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Dashboard_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Dashboard_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Dashboard_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ExcelUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ExcelUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ExcelUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FileDataProcess_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FileDataProcess_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FileDataProcess_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FolderUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FolderUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.FolderUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.G2anttUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.G2anttUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.G2anttUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GIROInfo_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GIROInfo_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GIROInfo_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLAccountsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLAccountsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLBaseVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLBaseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLBaseVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportCashflowVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportCashflowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportCashflowVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportRowsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLReportRowsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLResetVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLResetVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GLResetVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GanttChartUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GanttChartUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.GanttChartUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.HRPersonEventVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.HRPersonEventVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.HRPersonEventVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.IEUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.IEUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.IEUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImmovablesVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm2.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm2.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ImportsForm2.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InsertGridToRTF_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InsertGridToRTF_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InsertGridToRTF_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InventoryVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InventoryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InventoryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceRowsPivotVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.InvoiceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ListViewModelManagerVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ListViewModelManagerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ListViewModelManagerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.MobileListDashboardsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.MobileListDashboardsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.MobileListDashboardsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutHeaderVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutHeaderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutHeaderVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OfferOutVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OffersOutPrintVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OffersOutPrintVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OffersOutPrintVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OrderVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OrderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OrderVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OutlookEmailVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OutlookEmailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.OutlookEmailVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsDetailUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsDetailUserControl.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsDetailUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsGant_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsGant_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProductsGant_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanForm.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectPlanVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ProjectVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RRFCQueryVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RRFCQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RRFCQueryVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFCopy_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFCopy_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFCopy_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Resources.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.Resources.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichEditUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichEditUserControl.resources new file mode 100644 index 0000000..3c08506 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichEditUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichTextViewVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichTextViewVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.RichTextViewVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SQLImportsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SQLImportsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SQLImportsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SendMailVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SendMailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SendMailVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadImportVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadSimpleUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadSimpleUserControl.resources new file mode 100644 index 0000000..c40dfca Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadSimpleUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadUserControl.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadUserControl.resources new file mode 100644 index 0000000..20d1cfa Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.SpreadUserControl.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageOperation_VC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageOperation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageOperation_VC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageTransactionsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageTransactionsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.StorageTransactionsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TreeListVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TreeListVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TreeListVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TrialBalanceVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TrialBalanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.TrialBalanceVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VATReportVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VATReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VATReportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VivaldiVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VivaldiVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.VivaldiVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.WaitForm.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.WaitForm.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.WaitForm.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSExportImportVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSExportImportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSExportImportVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSImportsVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSImportsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.XLSImportsVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ZIPHUVC.resources b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ZIPHUVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.ZIPHUVC.resources differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.dll b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.dll new file mode 100644 index 0000000..6349cc2 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.dll differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..2421337 --- /dev/null +++ b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.FileListAbsolute.txt @@ -0,0 +1,501 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Reporting.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraWizard.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Reporting.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Reporting.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraWizard.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\DevExpress.XtraScheduler.v15.2.Reporting.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraWizard.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\de\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\es\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ja\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\bin\Release\ru\DevExpress.XtraScheduler.v15.2.Reporting.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.C3CTelecomVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CRMEstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.InsertGridToRTF_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SendMailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ImmovablesPriceListVCWIN.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ImmovablesCostRecordExcelVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ImmovablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.InvoiceRowsPivotVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.OfferOutHeaderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.OfferOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.OffersOutPrintVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.OrderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CRM_LeadsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CRM_OpportunitiesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ContractRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ProductsGant_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ProjectVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.InventoryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GLBaseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GIROInfo_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.BallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GLReportCashflowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GLReportRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.VATReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ContactsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ContractTemplate_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.Dashboard_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.HRPersonEventVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RTFDocumentsHandlerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DBCExportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ImportsForm2.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SpreadImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.XLSExportImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.AnonymVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CentralListViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DragAndDropBusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DragAndDropCRMOutlookCRM_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DragAndDropCRMOutlookCustomers_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DragAndDropCRMOutlookProducts_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.FileDataProcess_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ListViewModelManagerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RTFCopy_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ZIPHUVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DashboardDesignerUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.DashboardViewerUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GanttChartUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.G2anttUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ProductsDetailUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.IEUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ExcelUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.FolderUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.BankImportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.BankVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.BookEntryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.TrialBalanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RegistryRowsFinancialControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RRFCQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CustomRoleEditorVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ImportsForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ProjectPlanForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ProjectPlanVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.OutlookEmailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SQLImportsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.StorageOperation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.XLSImportsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RichTextViewVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SpreadSimpleUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SpreadUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.WaitForm.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.MobileListDashboardsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.CornerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.VivaldiVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.TreeListVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.SISBusinessWindowsFormsModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.InvoiceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.ContractsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.RichEditUserControl.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GLResetVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.StorageTransactionsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module.Win\obj\Release\SISBusiness.Module.Win.dll diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.GenerateResource.Cache b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..d6ccef6 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..e2072c8 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/SISBusiness.Module.Win.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module.Win/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Module.Win/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..0f4c178 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Module.Win/obj/Release/en/SISBusiness.Module.Win.resources.dll b/SISBusiness.Module.Win/obj/Release/en/SISBusiness.Module.Win.resources.dll new file mode 100644 index 0000000..3c1c1df Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/en/SISBusiness.Module.Win.resources.dll differ diff --git a/SISBusiness.Module.Win/obj/Release/hu/SISBusiness.Module.Win.resources.dll b/SISBusiness.Module.Win/obj/Release/hu/SISBusiness.Module.Win.resources.dll new file mode 100644 index 0000000..420b528 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/hu/SISBusiness.Module.Win.resources.dll differ diff --git a/SISBusiness.Module.Win/obj/Release/sisbusiness.module.win.dll.licenses b/SISBusiness.Module.Win/obj/Release/sisbusiness.module.win.dll.licenses new file mode 100644 index 0000000..ce75b96 Binary files /dev/null and b/SISBusiness.Module.Win/obj/Release/sisbusiness.module.win.dll.licenses differ diff --git a/SISBusiness.Module.Win/packages.config b/SISBusiness.Module.Win/packages.config new file mode 100644 index 0000000..e05d51a --- /dev/null +++ b/SISBusiness.Module.Win/packages.config @@ -0,0 +1,5 @@ + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCParameters.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCParameters.vb new file mode 100644 index 0000000..5411d50 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCParameters.vb @@ -0,0 +1,100 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCParameters 'Agricultural Production Contracts paramterek + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _ReportData As ReportData 'Termeltetsi adatlap nyomtatvny + Private _ReportDataReviewSheet As ReportData 'Betakarts eltti szemle nyomtatvny + Private _InterestValue As Double 'Kamat % 15,6 !!! + Private _NumberGenaratorSalesPolicy As NumberGenerator 'rtkestsi nyilatkozat sorszmok (APCSheetByProductsSalesPolicyH) + Private _ReportDataSalesPolicy As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportDataReviewSheet As ReportData + Get + Return _ReportDataReviewSheet + End Get + Set(value As ReportData) + SetPropertyValue("ReportDataReviewSheet", _ReportDataReviewSheet, value) + End Set + End Property + Property InterestValue As Double + Get + Return _InterestValue + End Get + Set(value As Double) + SetPropertyValue("InterestValue", _InterestValue, value) + End Set + End Property + Property NumberGenaratorSalesPolicy As NumberGenerator + Get + Return _NumberGenaratorSalesPolicy + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenaratorSalesPolicy", _NumberGenaratorSalesPolicy, value) + End Set + End Property + Property ReportDataSalesPolicy As ReportData + Get + Return _ReportDataSalesPolicy + End Get + Set(value As ReportData) + SetPropertyValue("ReportDataSalesPolicy", _ReportDataSalesPolicy, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProducts.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProducts.vb new file mode 100644 index 0000000..1a3e86a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProducts.vb @@ -0,0 +1,278 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eInsuranceState + eNothing = 0 + eByCustomers = 1 + eByCustomersFrom = 2 +End Enum + _ + _ +Public Class APCSheetByProducts 'Agricultural Production Contracts termk sorok + Inherits BaseObject + + Private _RowIndex As Long + Private _APCSheetHeader As APCSheetHeader + Private _Products As Products 'Termk + Private _InsuranceState As eInsuranceState 'Ki fizeti a biztostst + Private _ContractQuantity As Double 'Adott termkre szerzdtt terlet ha + Private _MaxContractQuantity As Double 'Max szerzdhet mennyisg hektronknt + Private _FundingHatoHUF As Double 'Egysgre jut finanszrozs /ha /tonna + Private _FundingHaHUF As Double 'Egysgre jut finanszrozs /ha + Private _FundingAmountHUF As Double 'Finanszrozs sszesen + Private _FundingAmountUsedHUF As Double 'Ebbl felhasznlva sszesen + Private _FundingAmountAvailableHUF As Double 'Mg felhasznlhat sszesen + Private _ColleteralHatoHUF As Double 'Egysgre jut fedezeti rtk /ha /tonna + Private _CollateralhaHUF As Double 'Egysgre jut fedezeti rtk /ha + Private _CollateralAmountHUF As Double 'Fedezeti rtk sszesen + Private _FundingDate As Date 'Fizetsi hatrid az elvitt termkre vonatkozlag + Private _ProductExpirationDate As Date 'Lejrati dtum + Private _Contracts As Contracts 'Szerzds + Private _ContractsSignatureDate As Date 'Szerzds alrssnak dtuma + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property InsuranceState As eInsuranceState + Get + Return _InsuranceState + End Get + Set(value As eInsuranceState) + SetPropertyValue("InsuranceState", _InsuranceState, value) + End Set + End Property + Property ContractQuantity As Double + Get + Return _ContractQuantity + End Get + Set(value As Double) + SetPropertyValue("ContractQuantity", _ContractQuantity, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + FundingAmountHUF = value * FundingHaHUF + CollateralAmountHUF = value * MaxContractQuantity * ColleteralHatoHUF + FundingAmountAvailableHUF = FundingAmountHUF - FundingAmountUsedHUF + End If + End Set + End Property + Property MaxContractQuantity As Double + Get + Return _MaxContractQuantity + End Get + Set(value As Double) + SetPropertyValue("MaxContractQuantity", _MaxContractQuantity, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + FundingHaHUF = value * FundingHatoHUF + CollateralAmountHUF = value * ContractQuantity * ColleteralHatoHUF + End If + End Set + End Property + Property FundingHatoHUF As Double + Get + Return _FundingHatoHUF + End Get + Set(value As Double) + SetPropertyValue("FundingHatoHUF", _FundingHatoHUF, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + FundingHaHUF = value * MaxContractQuantity + End If + End Set + End Property + Property FundingHaHUF As Double + Get + Return _FundingHaHUF + End Get + Set(value As Double) + SetPropertyValue("FundingHaHUF", _FundingHaHUF, value) + End Set + End Property + Property FundingAmountHUF As Double + Get + Return _FundingAmountHUF + End Get + Set(value As Double) + SetPropertyValue("FundingAmountHUF", _FundingAmountHUF, value) + End Set + End Property + Property FundingAmountUsedHUF As Double + Get + Return _FundingAmountUsedHUF + End Get + Set(value As Double) + SetPropertyValue("FundingAmountUsedHUF", _FundingAmountUsedHUF, value) + End Set + End Property + Property FundingAmountAvailableHUF As Double + Get + Return _FundingAmountAvailableHUF + End Get + Set(value As Double) + SetPropertyValue("FundingAmountAvailableHUF", _FundingAmountAvailableHUF, value) + End Set + End Property + Property ColleteralHatoHUF As Double + Get + Return _ColleteralHatoHUF + End Get + Set(value As Double) + SetPropertyValue("ColleteralHatoHUF", _ColleteralHatoHUF, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + CollateralAmountHUF = value * MaxContractQuantity * ContractQuantity + CollateralhaHUF = value * MaxContractQuantity + End If + End Set + End Property + Property CollateralhaHUF As Double + Get + Return _CollateralhaHUF + End Get + Set(value As Double) + SetPropertyValue("CollateralhaHUF", _CollateralhaHUF, value) + End Set + End Property + Property CollateralAmountHUF As Double + Get + Return _CollateralAmountHUF + End Get + Set(value As Double) + SetPropertyValue("CollateralAmountHUF", _CollateralAmountHUF, value) + End Set + End Property + Property FundingDate As Date + Get + Return _FundingDate + End Get + Set(value As Date) + SetPropertyValue("FundingDate", _FundingDate, value) + End Set + End Property + Property ProductExpirationDate As Date + Get + Return _ProductExpirationDate + End Get + Set(value As Date) + SetPropertyValue("ProductExpirationDate", _ProductExpirationDate, value) + End Set + End Property + _ + Property Contracts As Contracts + Get + Return _Contracts + End Get + Set(value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + Property ContractsSignatureDate As Date + Get + Return _ContractsSignatureDate + End Get + Set(value As Date) + SetPropertyValue("ContractsSignatureDate", _ContractsSignatureDate, value) + End Set + End Property + + ReadOnly Property DisplayName As String + Get + If APCSheetHeader IsNot Nothing Then + If _Products IsNot Nothing Then + Return Me.APCSheetHeader.DocumentNumber & ", " & Me.Products.ShortName & ", " & Format(Me.FundingAmountHUF, "#,##0") + Else + Return Me.APCSheetHeader.DocumentNumber & ", " & Format(Me.FundingAmountHUF, "#,##0") + End If + Else + Return Nothing + End If + End Get + End Property + + _ + ReadOnly Property SumContractQuantity As Double 'sszes szerzdtt mennyisg + Get + Return Math.Round(ContractQuantity * MaxContractQuantity, 2, MidpointRounding.AwayFromZero) + End Get + End Property + _ + ReadOnly Property FundingHaHUF_Text_HUF As String 'Egysgre jut finanszrozs /ha szvegesen magyarul + Get + Return GeneralFunction.GetHUNumberToText(Math.Round(FundingHaHUF, 0, MidpointRounding.AwayFromZero)) + End Get + End Property + _ + ReadOnly Property FundingAmountHUF_Text_HUF As String 'Finanszrozs sszesen szvegesen magyarul + Get + Return GeneralFunction.GetHUNumberToText(Math.Round(FundingAmountHUF, 0, MidpointRounding.AwayFromZero)) + End Get + End Property + '//XPCollection a felhasznlt ttelekrl + _ + ReadOnly Property OrderInRows As XPCollection(Of OrderInRows) + Get + Return New XPCollection(Of OrderInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, + CriteriaOperator.Parse("APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(OrderInHeader)=False", Me)) + End Get + End Property + _ + ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther) + Get + Return New XPCollection(Of OrderInRowsOther)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, + CriteriaOperator.Parse("APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(OrderInHeader)=False", Me)) + End Get + End Property + _ + ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows) + Get + Return New XPCollection(Of InvoiceRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, + CriteriaOperator.Parse("(OrderInRows.APCSheetByProducts=? or OrderInRowsOther.APCSheetByProducts=?) and IsNull(GCRecord)=True and IsNull(InvoiceHeader)=False and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''", Me, Me)) + End Get + End Property + _ + ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows) + Get + Return New XPCollection(Of DeliveryNoteOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, + CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows.APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(DeliveryNoteOutHeader)=False and DeliveryNoteOutHeader.IsEditable=False", Me)) + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, + CriteriaOperator.Parse("StorageOutRows.OrderInRows.APCSheetByProducts=? and IsNull(GCRecord)=True and IsNull(StorageOutRows.OrderInRows.OrderInHeader)=False and IsNull(StorageOutRows.StorageOutHeader)=False", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyH.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyH.vb new file mode 100644 index 0000000..8215a07 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyH.vb @@ -0,0 +1,145 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eSalesPolicyDocumentState + eDeleted = -1 + eReadyforSign = 0 + eSigned = 2 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ +Public Class APCSheetByProductsSalesPolicyH 'rtkestsi szndknyilatkozat fejlc termeltetsi szerzdshez + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _APCSheetHeader As APCSheetHeader 'Termeltetsi szerz. + Private _DocumentNumber As String 'Sorszm + Private _Customers As Customers 'Vev + Private _DateCreated As Date 'Dtum + Private _SalesPolicyDocumentState As eSalesPolicyDocumentState + Private _FileData As FileData 'Az alrt szkennelt file + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + ' Dim _APCParameters As APCParameters = Session.FindObject(Of APCParameters)(CriteriaOperator.Parse("CustomersFrom=? AND NumberGenaratorSalesPolicy<>?", CustomersFrom, Nothing)) + Dim _APCParameters As APCParameters = Me._APCSheetHeader.APCParameters + If _APCParameters IsNot Nothing Then + If _APCParameters.NumberGenaratorSalesPolicy IsNot Nothing Then + If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = _APCParameters.NumberGenaratorSalesPolicy.GetNewNumber(_APCParameters.NumberGenaratorSalesPolicy) + End If + End If + + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property SalesPolicyDocumentState As eSalesPolicyDocumentState + Get + Return _SalesPolicyDocumentState + End Get + Set(value As eSalesPolicyDocumentState) + SetPropertyValue("SalesPolicyDocumentState", _SalesPolicyDocumentState, value) + End Set + End Property + Property FileData As FileData + Get + Return _FileData + End Get + Set(value As FileData) + SetPropertyValue("FileData", _FileData, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + _ + ReadOnly Property APCSheetByProductsSalesPolicyR As XPCollection(Of APCSheetByProductsSalesPolicyR) + Get + Return GetCollection(Of APCSheetByProductsSalesPolicyR)("APCSheetByProductsSalesPolicyR") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyR.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyR.vb new file mode 100644 index 0000000..f33af52 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByProductsSalesPolicyR.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCSheetByProductsSalesPolicyR 'rtkestsi szndknyilatkozat sor termeltetsi szerzdshez + Inherits BaseObject + + Private _APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH + Private _APCSheetByProducts As APCSheetByProducts + Private _ContractQuantityForSales As Double 'Eladsi mennyisg + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH + Get + Return _APCSheetByProductsSalesPolicyH + End Get + Set(value As APCSheetByProductsSalesPolicyH) + SetPropertyValue("APCSheetByProductsSalesPolicyH", _APCSheetByProductsSalesPolicyH, value) + End Set + End Property + _ + _ + Property APCSheetByProducts As APCSheetByProducts + Get + Return _APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value) + End Set + End Property + _ + Property ContractQuantityForSales As Double + Get + Return _ContractQuantityForSales + End Get + Set(value As Double) + SetPropertyValue("ContractQuantityForSales", _ContractQuantityForSales, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByTerritorial.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByTerritorial.vb new file mode 100644 index 0000000..8b55fa7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetByTerritorial.vb @@ -0,0 +1,144 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eOwnerState + eOwner = 0 + eRenter = 1 + eCourtesyUse = 2 +End Enum + _ +Public Class APCSheetByTerritorial + Inherits BaseObject + Private _APCSheetHeader As APCSheetHeader + Private _RowIndex As Long + Private _Involved As Boolean 'Termelsbe bevont terlet ? + Private _City As String 'telepls + Private _LotNumber As String 'Helyrajzi szm + Private _BlockNumber As String 'Termterlethez tartoz blokkszm + Private _Area As Double 'termterlet mrete ha + Private _Products As Products + Private _OwnerState As eOwnerState 'Brl, tulajdonos vagy szvessgi fldhasznl + Private _DueDateRent As Date 'Brlet lejrta dtuma + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Involved = True + End Sub + + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property Involved As Boolean + Get + Return _Involved + End Get + Set(value As Boolean) + SetPropertyValue("Involved", _Involved, value) + End Set + End Property + _ + Property City As String + Get + Return _City + End Get + Set(value As String) + SetPropertyValue("City", _City, value) + End Set + End Property + _ + Property LotNumber As String + Get + Return _LotNumber + End Get + Set(value As String) + SetPropertyValue("LotNumber", _LotNumber, value) + End Set + End Property + _ + Property BlockNumber As String + Get + Return _BlockNumber + End Get + Set(value As String) + SetPropertyValue("BlockNumber", _BlockNumber, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property OwnerState As eOwnerState + Get + Return _OwnerState + End Get + Set(value As eOwnerState) + SetPropertyValue("OwnerState", _OwnerState, value) + End Set + End Property + Property DueDateRent As Date + Get + Return _DueDateRent + End Get + Set(value As Date) + SetPropertyValue("DueDateRent", _DueDateRent, value) + End Set + End Property + _ + ReadOnly Property TerritorialProducts As XPCollection(Of Products) + Get + Dim _ProductsCoollection As XPCollection(Of Products) = Nothing + + If APCSheetHeader IsNot Nothing Then + If APCSheetHeader.APCSheetByProducts.Count > 0 Then + Dim _Filter As String = "Oid in(" + + For Each _APCSheetByProducts As APCSheetByProducts In APCSheetHeader.APCSheetByProducts + _Filter += "'" + _APCSheetByProducts.Products.Oid.ToString + "'," + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + _ProductsCoollection = New XPCollection(Of Products)(Session, CriteriaOperator.Parse(_Filter)) + End If + End If + + Return _ProductsCoollection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetContractHandlingPlace.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetContractHandlingPlace.vb new file mode 100644 index 0000000..edffd22 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetContractHandlingPlace.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetContractHandlingPlace + Inherits BaseObject + + Private _ContractHandlingPlace As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ContractHandlingPlace As String + Get + Return _ContractHandlingPlace + End Get + Set(value As String) + SetPropertyValue("ContractHandlingPlace", _ContractHandlingPlace, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationAnimalRows.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationAnimalRows.vb new file mode 100644 index 0000000..4ff9fdb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationAnimalRows.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCSheetCreditClassificationAnimalRows + Inherits BaseObject + + Private _APCSheetHeader As APCSheetHeader + Private _RowIndex As Long + Private _ShortName As String 'llat fajta megnevezse + Private _QTT As Long 'Mmennyisg + Private _EstimatedWeight As Double 'tlagos becslt slya az adott llatnak (kg) + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property QTT As Long + Get + Return _QTT + End Get + Set(value As Long) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property EstimatedWeight As Double + Get + Return _EstimatedWeight + End Get + Set(value As Double) + SetPropertyValue("EstimatedWeight", _EstimatedWeight, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationFinancialRows.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationFinancialRows.vb new file mode 100644 index 0000000..8b5e6b5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetCreditClassificationFinancialRows.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCSheetCreditClassificationFinancialRows + Inherits BaseObject + + Private _APCSheetHeader As APCSheetHeader + Private _RowIndex As Long + Private _ShortName As String + Private _AmountHUF1 As Double + Private _AmountHUF2 As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property AmountHUF1 As Double + Get + Return _AmountHUF1 + End Get + Set(value As Double) + SetPropertyValue("AmountHUF1", _AmountHUF1, value) + End Set + End Property + Property AmountHUF2 As Double + Get + Return _AmountHUF2 + End Get + Set(value As Double) + SetPropertyValue("AmountHUF2", _AmountHUF2, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetHeader.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetHeader.vb new file mode 100644 index 0000000..e360a5f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetHeader.vb @@ -0,0 +1,905 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eAPCStatus + eRegistered = 0 + eSigned = 1 + eSendToBank = 2 + eSendToInsurrance = 3 + eAccepted = 4 + eReject = 5 +End Enum +Public Enum ePaymentDiscipline + eNotSet = 0 + eGood = 1 + eDay0_15 = 2 + eDay30_60 = 3 + eDay60to = 4 +End Enum +Public Enum eIsNewContactNoWhy + eNotSet = 0 + eDidNotKnow = 1 'Nem ismert minket + eDidNotFund = 2 'Nem finanszrozott + eOther = 3 'Egyb +End Enum +Public Enum eBankPreQualificationState + eNotSet = 0 + eAccept = 1 + aReject = 2 +End Enum +Public Enum eSalespersonsProposal + eSuggest = 0 'Javaslom + eNotRecommended = 1 'Nem javaslom +End Enum +Public Enum eManagementAcceptType + eNotSet = 0 'Nincs belltva + eHRPerson = 1 'Sajt cg + eManagement = 2 'Banki engedly +End Enum +Public Enum eManagementQualificationState + eNotSet = 0 'Nincs belltva + eCreditental = 1 'Hitelezhet + eNotCreditental = 2 'Nem hitelezhet +End Enum + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + 5", AppearanceItemType.ViewItem, "APCStatus <> 5", TargetItems:="Description_Reject", visibility:=Editors.ViewItemVisibility.Hide)> _ + 1", AppearanceItemType.ViewItem, "ManagementAcceptType <> 1", TargetItems:="ManagementAcceptPerson", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ +Public Class APCSheetHeader + Inherits BaseObject + Private _DocumentNumber As String + Private _APCParameters As APCParameters + Private _HRPerson As HRPerson + Private _Customers As Customers + Private _Contacts As Contacts 'Kapcsolat + Private _ContactsWithFullRight As Contacts 'Tulajdonos / cgjegyzsre jogosult szemly + Private _CustomersFrom As CustomersFrom + Private _CropProtectionSpecialist As Contacts 'Nvnyvdelmi szakember + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + Private _APCStatus As eAPCStatus + Private _PDFOriginal As FileData + Private _PDFSigned As FileData + + Private _IsNewContact As Boolean = True + Private _IsNewContactNoWhy As eIsNewContactNoWhy 'j kontakt mirt + Private _IsNewContactNoReason As String 'j kontakt mirt egyb ok + Private _PaymentDiscipline As ePaymentDiscipline 'Fizetsi fegyelem + Private _CleanerDryerMachinetype As String 'Tisztt szrt gp tipusa + Private _CleanerDryerMachineCapacity As Double 'Kapacitsa tonna / nap + Private _ShipmentCapacityMachine As Long 'Szlltsi kapacits gp szma + Private _ShipmentCapacityAmount As Double 'Szlltsi kapacits /tonna + Private _StorageCapacitybyFlat As Double 'Sk trols /tonna + Private _StorageCapacitybySilo As Double 'Sil trols /tonna + + '------------------------------------------------ + Private _MachineryTractors As Long 'Traktorok szm + Private _MachineryTillage As Long 'Talajmvel gpek szma + Private _MachineryHarvesting As Long 'Betakart gp + Private _MachineryFighting As Long 'Nvnyvdelmi gp + Private _MachinerySeedDrill As Long 'Vetgp + Private _MachinerySpecial As Long ' Egyb specilis gp + + '------------------------------------------------ + Private _EconomyArea As Double 'Gazdasg nagysga + Private _EconomyMajorCropsGrown As String 'Termesztett fbb nvnyek + Private _EconomyAreaOwner As Double 'Sajt tulajdon ebbl + Private _EconomyAreaRent As Double 'Brelt ebbl + Private _EconomyActualYear As Long 'Gazdasg bemutatshoz akutsi v + Private _EconomyPreviousYear As Long 'Gazdasg bemutatshoz elz v + + '------------------------------------------------ + Private _MainCustomers As String 'Fbb beszlltk + Private _Description As String 'Egyb megjegyzsek + + '------------------------------------------------ + Private _TerritorialArea As Double 'zletkt ltal javasolt terlet + Private _DeferredPaymentDay As Long 'Halasztott fizets napra + Private _DeferredPaymentHUF As Double 'Halasztott fizets HUF ig + Private _SalespersonsProposal As eSalespersonsProposal 'zletkt javaslata + Private _SalesDeferredPaymentHUF As Double 'Creditmanager ltal engedlyezett fizets HUF + + '------------------------------------------------ + Private _BankPreQualificationState As eBankPreQualificationState 'Elminsts + Private _ManagementQualificationState As eManagementQualificationState 'Bank ltali jvhagys + Private _ManagementDeferredPaymentDay As Long 'Bank ltal engedlyezett halasztott fizets napra + Private _ManagementDeferredPaymentHUF As Double 'Bank ltal engedlyezett Halasztott fizets HUF ig + Private _ManagementTerritorialArea As Double 'Bank ltal engedlyezett zletkt ltal javasolt terlet + Private _ManagementAcceptDocument As FileData 'Engedlyezsi okirat + Private _SendToBankDate As Date 'Bankba klds dtuma + Private _ManagementAcceptType As eManagementAcceptType 'Ki engedlyezte Cofas vagy HRPerson + Private _ManagementAcceptPerson As HRPerson 'Ha HRPerson engedlyezte, akkor ktelez belltani s csak akkor ltszik + + Private _Activity As String 'Partner tevkenysge + Private _ActivityStartDate As Date 'Tevkenysg kezdete + Private _IsPrivateCredit As Boolean 'Van-e magnszemlyknt hiteltartozsa + Private _IsPrivateCreditAmountHUF As Double 'Hiteltartozs sszege + Private _OtherCompanyInfo As String 'Egyb vllalkozsnak tagja-e s hol ? + + Private _DateSigned As Date 'Alrs Dtuma + Private _Description_Reject As String ' Mirt lett elutastva? + Private _APCSheetAdministrator As HRPerson 'Termeltetsi szerzds gyintzje + Private _APCSheetContractHandlingPlace As APCSheetContractHandlingPlace + '------------------------------------------- + 'Reporthoz + Private _MaxExpirationDate As Date + Private _IsActive As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + APCStatus = eAPCStatus.eRegistered + IsActive = True + + If Session.IsNewObject(Me) Then + Dim _APCSheetCreditClassificationFinancialRows As APCSheetCreditClassificationFinancialRows + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 1 + _APCSheetCreditClassificationFinancialRows.ShortName = "Pnzeszkzk (sszes bevtel-sszes kiads)" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 2 + _APCSheetCreditClassificationFinancialRows.ShortName = "Trgyi eszkzk nett rtke" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 3 + _APCSheetCreditClassificationFinancialRows.ShortName = "Folyamatban lv beruhzsok rtke" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 4 + _APCSheetCreditClassificationFinancialRows.ShortName = "Forgeszkzk" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 5 + _APCSheetCreditClassificationFinancialRows.ShortName = "Kszletek leltr szerinti rtke" + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 6 + _APCSheetCreditClassificationFinancialRows.ShortName = "Vevkkel szembeni kvetelsek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 7 + _APCSheetCreditClassificationFinancialRows.ShortName = "Egyb kvetelsek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 8 + _APCSheetCreditClassificationFinancialRows.ShortName = "Hatridn tli kvetelsek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 9 + _APCSheetCreditClassificationFinancialRows.ShortName = "Hossz lejrat ktelezettsgek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 10 + _APCSheetCreditClassificationFinancialRows.ShortName = "Szlltkkal szembeni ktelezettsgek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 11 + _APCSheetCreditClassificationFinancialRows.ShortName = "Ad s TB tartozs" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 12 + _APCSheetCreditClassificationFinancialRows.ShortName = "Egyb rvid lejrat ktelezettsgek" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 13 + _APCSheetCreditClassificationFinancialRows.ShortName = "Hosszlejrat hitelek trgyidszaki trlesztse" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 14 + _APCSheetCreditClassificationFinancialRows.ShortName = "Nett rbevtel" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 15 + _APCSheetCreditClassificationFinancialRows.ShortName = "Egyb bevtel" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 16 + _APCSheetCreditClassificationFinancialRows.ShortName = "Adzs eltti eredmny" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 17 + _APCSheetCreditClassificationFinancialRows.ShortName = "Adzott eredmny" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 18 + _APCSheetCreditClassificationFinancialRows.ShortName = "Fennll sszes hitel tipus tartozs ves trleszt rszlete" + + _APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session) + _APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me + _APCSheetCreditClassificationFinancialRows.RowIndex = 19 + _APCSheetCreditClassificationFinancialRows.ShortName = "Terv szerinti CS lers" + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = APCParameters.NumberGenerator.GetNewNumber(APCParameters.NumberGenerator) + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + 'DeferredPaymentHUF = 0 + + 'For Each _APCSheetByProducts As APCSheetByProducts In APCSheetByProducts + ' DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF + 'Next + + 'SalesDeferredPaymentHUF = DeferredPaymentHUF + + 'EconomyArea = 0 + 'TerritorialArea = 0 + 'For Each _APCSheetPresentation As APCSheetPresentation In APCSheetPresentation + ' EconomyArea += _APCSheetPresentation.Area + ' TerritorialArea += _APCSheetPresentation.Area + 'Next + 'EconomyAreaOwner = 0 + 'Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", Me)) + 'If _APCSheetByTerritorialOwner_Collection.Count > 0 Then + ' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection + ' EconomyAreaOwner += _APCSheetByTerritorial.Area + ' Next + 'End If + 'EconomyAreaRent = 0 + 'Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", Me)) + 'If _APCSheetByTerritorialRent_Collection.Count > 0 Then + ' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection + ' EconomyAreaRent += _APCSheetByTerritorial.Area + ' Next + 'End If + + 'If DateSigned.Year = GetSQLTime(Session).Year Then + ' APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending)) + ' If Me.APCSheetByProducts.Count > 0 Then + ' Dim _MaxDate As Date = Me.APCSheetByProducts(0).ProductExpirationDate + ' Me.DeferredPaymentDay = CType((_MaxDate - DateSigned).Days, Long) + ' Else + ' Me.DeferredPaymentDay = 0 + ' End If + 'End If + 'ManagementDeferredPaymentDay = DeferredPaymentDay + End Sub + + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property APCParameters As APCParameters + Get + Return _APCParameters + End Get + Set(value As APCParameters) + SetPropertyValue("APCParameters", _APCParameters, value) + End Set + End Property + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + _ + _ + Property ContactsWithFullRight As Contacts + Get + Return _ContactsWithFullRight + End Get + Set(value As Contacts) + SetPropertyValue("ContactsWithFullRight", _ContactsWithFullRight, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property CropProtectionSpecialist As Contacts + Get + Return _CropProtectionSpecialist + End Get + Set(value As Contacts) + SetPropertyValue("CropProtectionSpecialist", _CropProtectionSpecialist, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property APCStatus As eAPCStatus + Get + Return _APCStatus + End Get + Set(value As eAPCStatus) + SetPropertyValue("APCStatus", _APCStatus, value) + End Set + End Property + Property PDFOriginal As FileData + Get + Return _PDFOriginal + End Get + Set(value As FileData) + SetPropertyValue("PDFOriginal", _PDFOriginal, value) + End Set + End Property + Property PDFSigned As FileData + Get + Return _PDFSigned + End Get + Set(value As FileData) + SetPropertyValue("PDFSigned", _PDFSigned, value) + End Set + End Property + + Property IsNewContact As Boolean + Get + Return _IsNewContact + End Get + Set(value As Boolean) + SetPropertyValue("IsNewContact", _IsNewContact, value) + End Set + End Property + Property IsNewContactNoWhy As eIsNewContactNoWhy + Get + Return _IsNewContactNoWhy + End Get + Set(value As eIsNewContactNoWhy) + SetPropertyValue("IsNewContactNoWhy", _IsNewContactNoWhy, value) + End Set + End Property + _ + Property IsNewContactNoReason As String + Get + Return _IsNewContactNoReason + End Get + Set(value As String) + SetPropertyValue("IsNewContactNoReason", _IsNewContactNoReason, value) + End Set + End Property + Property PaymentDiscipline As ePaymentDiscipline + Get + Return _PaymentDiscipline + End Get + Set(value As ePaymentDiscipline) + SetPropertyValue("PaymentDiscipline", _PaymentDiscipline, value) + End Set + End Property + _ + Property CleanerDryerMachinetype As String + Get + Return _CleanerDryerMachinetype + End Get + Set(value As String) + SetPropertyValue("CleanerDryerMachinetype", _CleanerDryerMachinetype, value) + End Set + End Property + Property CleanerDryerMachineCapacity As Double + Get + Return _CleanerDryerMachineCapacity + End Get + Set(value As Double) + SetPropertyValue("CleanerDryerMachineCapacity", _CleanerDryerMachineCapacity, value) + End Set + End Property + Property ShipmentCapacityMachine As Long + Get + Return _ShipmentCapacityMachine + End Get + Set(value As Long) + SetPropertyValue("ShipmentCapacityMachine", _ShipmentCapacityMachine, value) + End Set + End Property + Property ShipmentCapacityAmount As Double + Get + Return _ShipmentCapacityAmount + End Get + Set(value As Double) + SetPropertyValue("ShipmentCapacityAmount", _ShipmentCapacityAmount, value) + End Set + End Property + Property StorageCapacitybyFlat As Double + Get + Return _StorageCapacitybyFlat + End Get + Set(value As Double) + SetPropertyValue("StorageCapacitybyFlat", _StorageCapacitybyFlat, value) + End Set + End Property + Property StorageCapacitybySilo As Double + Get + Return _StorageCapacitybySilo + End Get + Set(value As Double) + SetPropertyValue("StorageCapacitybySilo", _StorageCapacitybySilo, value) + End Set + End Property + + '------------------------------------------------ + Property MachineryTractors As Long + Get + Return _MachineryTractors + End Get + Set(value As Long) + SetPropertyValue("MachineryTractors", _MachineryTractors, value) + End Set + End Property + Property MachineryTillage As Long + Get + Return _MachineryTillage + End Get + Set(value As Long) + SetPropertyValue("MachineryTillage", _MachineryTillage, value) + End Set + End Property + Property MachineryHarvesting As Long + Get + Return _MachineryHarvesting + End Get + Set(value As Long) + SetPropertyValue("MachineryHarvesting", _MachineryHarvesting, value) + End Set + End Property + Property MachineryFighting As Long + Get + Return _MachineryFighting + End Get + Set(value As Long) + SetPropertyValue("MachineryFighting", _MachineryFighting, value) + End Set + End Property + Property MachinerySeedDrill As Long + Get + Return _MachinerySeedDrill + End Get + Set(value As Long) + SetPropertyValue("MachinerySeedDrill", _MachinerySeedDrill, value) + End Set + End Property + Property MachinerySpecial As Long + Get + Return _MachinerySpecial + End Get + Set(value As Long) + SetPropertyValue("MachinerySpecial", _MachinerySpecial, value) + End Set + End Property + + '------------------------------------------------ + _ + Property EconomyArea As Double + Get + Return _EconomyArea + End Get + Set(value As Double) + SetPropertyValue("EconomyArea", _EconomyArea, value) + End Set + End Property + _ + Property EconomyMajorCropsGrown As String + Get + Return _EconomyMajorCropsGrown + End Get + Set(value As String) + SetPropertyValue("EconomyMajorCropsGrown", _EconomyMajorCropsGrown, value) + End Set + End Property + Property EconomyAreaOwner As Double + Get + Return _EconomyAreaOwner + End Get + Set(value As Double) + SetPropertyValue("EconomyAreaOwner", _EconomyAreaOwner, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.EconomyArea = Me.EconomyAreaRent + value + End If + End Set + End Property + Property EconomyAreaRent As Double + Get + Return _EconomyAreaRent + End Get + Set(value As Double) + SetPropertyValue("EconomyAreaRent", _EconomyAreaRent, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.EconomyArea = Me.EconomyAreaOwner + value + End If + End Set + End Property + Property EconomyActualYear As Long + Get + Return _EconomyActualYear + End Get + Set(value As Long) + SetPropertyValue("EconomyActualYear", _EconomyActualYear, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + EconomyPreviousYear = value - 1 + End If + End Set + End Property + Property EconomyPreviousYear As Long + Get + Return _EconomyPreviousYear + End Get + Set(value As Long) + SetPropertyValue("EconomyPreviousYear", _EconomyPreviousYear, value) + End Set + End Property + '------------------------------------------------ + _ + Property MainCustomers As String + Get + Return _MainCustomers + End Get + Set(value As String) + SetPropertyValue("MainCustomers", _MainCustomers, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + '------------------------------------------------ + Property TerritorialArea As Double + Get + Return _TerritorialArea + End Get + Set(value As Double) + SetPropertyValue("TerritorialArea", _TerritorialArea, value) + End Set + End Property + Property DeferredPaymentDay As Long + Get + Return _DeferredPaymentDay + End Get + Set(value As Long) + SetPropertyValue("DeferredPaymentDay", _DeferredPaymentDay, value) + End Set + End Property + Property DeferredPaymentHUF As Double + Get + Return _DeferredPaymentHUF + End Get + Set(value As Double) + SetPropertyValue("DeferredPaymentHUF", _DeferredPaymentHUF, value) + End Set + End Property + Public Property SalespersonsProposal() As eSalespersonsProposal + Get + Return _SalespersonsProposal + End Get + Set(ByVal value As eSalespersonsProposal) + SetPropertyValue("SalespersonsProposal", _SalespersonsProposal, value) + End Set + End Property + Property SalesDeferredPaymentHUF As Double + Get + Return _SalesDeferredPaymentHUF + End Get + Set(value As Double) + SetPropertyValue("SalesDeferredPaymentHUF", _SalesDeferredPaymentHUF, value) + End Set + End Property + + '------------------------------------------------ + Property BankPreQualificationState As eBankPreQualificationState + Get + Return _BankPreQualificationState + End Get + Set(value As eBankPreQualificationState) + SetPropertyValue("BankPreQualificationState", _BankPreQualificationState, value) + End Set + End Property + Property ManagementQualificationState As eManagementQualificationState + Get + Return _ManagementQualificationState + End Get + Set(value As eManagementQualificationState) + SetPropertyValue("ManagementQualificationState", _ManagementQualificationState, value) + End Set + End Property + Property ManagementDeferredPaymentDay As Long + Get + Return _ManagementDeferredPaymentDay + End Get + Set(value As Long) + SetPropertyValue("ManagementDeferredPaymentDay", _ManagementDeferredPaymentDay, value) + End Set + End Property + Property ManagementDeferredPaymentHUF As Double + Get + Return _ManagementDeferredPaymentHUF + End Get + Set(value As Double) + SetPropertyValue("ManagementDeferredPaymentHUF", _ManagementDeferredPaymentHUF, value) + End Set + End Property + Property ManagementTerritorialArea As Double + Get + Return _ManagementTerritorialArea + End Get + Set(value As Double) + SetPropertyValue("ManagementTerritorialArea", _ManagementTerritorialArea, value) + End Set + End Property + Property ManagementAcceptDocument As FileData + Get + Return _ManagementAcceptDocument + End Get + Set(value As FileData) + SetPropertyValue("ManagementAcceptDocument", _ManagementAcceptDocument, value) + End Set + End Property + Property SendToBankDate As Date + Get + Return _SendToBankDate + End Get + Set(value As Date) + SetPropertyValue("SendToBankDate", _SendToBankDate, value) + End Set + End Property + _ + Property ManagementAcceptType As eManagementAcceptType + Get + Return _ManagementAcceptType + End Get + Set(value As eManagementAcceptType) + SetPropertyValue("ManagementAcceptType", _ManagementAcceptType, value) + End Set + End Property + _ + Property ManagementAcceptPerson As HRPerson + Get + Return _ManagementAcceptPerson + End Get + Set(value As HRPerson) + SetPropertyValue("ManagementAcceptPerson", _ManagementAcceptPerson, value) + End Set + End Property + + Property Activity As String + Get + Return _Activity + End Get + Set(value As String) + SetPropertyValue("Activity", _Activity, value) + End Set + End Property + Property ActivityStartDate As Date + Get + Return _ActivityStartDate + End Get + Set(value As Date) + SetPropertyValue("ActivityStartDate", _ActivityStartDate, value) + End Set + End Property + Property IsPrivateCredit As Boolean + Get + Return _IsPrivateCredit + End Get + Set(value As Boolean) + SetPropertyValue("IsPrivateCredit", _IsPrivateCredit, value) + End Set + End Property + Property IsPrivateCreditAmountHUF As Double + Get + Return _IsPrivateCreditAmountHUF + End Get + Set(value As Double) + SetPropertyValue("IsPrivateCreditAmountHUF", _IsPrivateCreditAmountHUF, value) + End Set + End Property + Property OtherCompanyInfo As String + Get + Return _OtherCompanyInfo + End Get + Set(value As String) + SetPropertyValue("OtherCompanyInfo", _OtherCompanyInfo, value) + End Set + End Property + _ + _ + Property DateSigned() As Date + Get + Return _DateSigned + End Get + Set(ByVal value As Date) + SetPropertyValue("DateSigned", _DateSigned, value) + End Set + End Property + _ + Property Description_Reject As String + Get + Return _Description_Reject + End Get + Set(value As String) + SetPropertyValue("Description_Reject", _Description_Reject, value) + End Set + End Property + Property APCSheetAdministrator As HRPerson + Get + Return _APCSheetAdministrator + End Get + Set(value As HRPerson) + SetPropertyValue("APCSheetAdministrator", _APCSheetAdministrator, value) + End Set + End Property + Property APCSheetContractHandlingPlace As APCSheetContractHandlingPlace + Get + Return _APCSheetContractHandlingPlace + End Get + Set(value As APCSheetContractHandlingPlace) + SetPropertyValue("APCSheetContractHandlingPlace", _APCSheetContractHandlingPlace, value) + End Set + End Property + _ + _ + _ + Property MaxExpirationDate As Date + Get + Return _MaxExpirationDate + End Get + Set(value As Date) + SetPropertyValue("MaxExpirationDate", _MaxExpirationDate, value) + End Set + End Property + Property IsActive As Boolean + Get + Return _IsActive + End Get + Set(value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + + '-- Nonpersistent propertyk + + + '--------------ReadOnly--------------- + _ + _ + ReadOnly Property APCSheetByProducts As XPCollection(Of APCSheetByProducts) + Get + Return GetCollection(Of APCSheetByProducts)("APCSheetByProducts") + End Get + End Property + _ + ReadOnly Property APCSheetPresentation As XPCollection(Of APCSheetPresentation) + Get + Return GetCollection(Of APCSheetPresentation)("APCSheetPresentation") + End Get + End Property + _ + ReadOnly Property APCSheetByTerritorial As XPCollection(Of APCSheetByTerritorial) + Get + Return GetCollection(Of APCSheetByTerritorial)("APCSheetByTerritorial") + End Get + End Property + _ + ReadOnly Property APCSheetCreditClassificationAnimalRows As XPCollection(Of APCSheetCreditClassificationAnimalRows) + Get + Return GetCollection(Of APCSheetCreditClassificationAnimalRows)("APCSheetCreditClassificationAnimalRows") + End Get + End Property + _ + ReadOnly Property APCSheetCreditClassificationFinancialRows As XPCollection(Of APCSheetCreditClassificationFinancialRows) + Get + Return GetCollection(Of APCSheetCreditClassificationFinancialRows)("APCSheetCreditClassificationFinancialRows") + End Get + End Property + _ + Private ReadOnly Property CropProtectionSpecialistList As XPCollection(Of Contacts) + Get + Dim _CropProtectionSpecialistList_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("IsNull(CropProtectionRegistrationNumber)=False")) + + Return _CropProtectionSpecialistList_Collection + End Get + End Property + ReadOnly Property APCSheetReviewHeader As XPCollection(Of APCSheetReviewHeader) + Get + Return New XPCollection(Of APCSheetReviewHeader)(Session, CriteriaOperator.Parse("APCSheetByProducts.APCSheetHeader=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetPresentation.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetPresentation.vb new file mode 100644 index 0000000..578ebfe --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetPresentation.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCSheetPresentation + Inherits BaseObject + + Private _APCSheetHeader As APCSheetHeader + Private _RowIndex As Long + Private _Products As Products + Private _PresentationYear As Long 'v + Private _Area As Double 'Tervezett megmvelt terlet + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property PresentationYear As Long + Get + Return _PresentationYear + End Get + Set(value As Long) + SetPropertyValue("PresentationYear", _PresentationYear, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader.vb new file mode 100644 index 0000000..4bdc0e2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader.vb @@ -0,0 +1,111 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class APCSheetReviewHeader 'Betakarts eltti jegyzknyv + Inherits BaseObject + Private _APCSheetByProducts As APCSheetByProducts + Private _Description As String + Private _FileData As FileData + Private _ObjectCreated As Date + Private _UserCreated As User + Private _ReportData As ReportData + Private _ReviewDate As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + 'If Me.ReportData Is Nothing Then + ' Me.ReportData = Session.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid = '43'")) + 'End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property APCSheetByProducts As APCSheetByProducts + Get + Return _APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value) + End Set + End Property + + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property FileData As FileData + Get + Return _FileData + End Get + Set(value As FileData) + SetPropertyValue("FileData", _FileData, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReviewDate As Date + Get + Return _ReviewDate + End Get + Set(value As Date) + SetPropertyValue("ReviewDate", _ReviewDate, value) + End Set + End Property + + ReadOnly Property APCSheetReviewRows As XPCollection(Of APCSheetReviewRows) + Get + Return New XPCollection(Of APCSheetReviewRows)(Session, CriteriaOperator.Parse("APCSheetReviewHeader=?", Me)) + End Get + End Property + ReadOnly Property APCSheetReviewHeaderPhotos As XPCollection(Of APCSheetReviewHeaderPhotos) + Get + Return New XPCollection(Of APCSheetReviewHeaderPhotos)(Session, CriteriaOperator.Parse("APCSheetReviewHeader=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeaderPhotos.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeaderPhotos.vb new file mode 100644 index 0000000..efd01c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeaderPhotos.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class APCSheetReviewHeaderPhotos + Inherits BaseObject + + Private _APCSheetReviewHeader As APCSheetReviewHeader + Private _PhotoFile As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetReviewHeader As APCSheetReviewHeader + Get + Return _APCSheetReviewHeader + End Get + Set(value As APCSheetReviewHeader) + SetPropertyValue("APCSheetReviewHeader", _APCSheetReviewHeader, value) + End Set + End Property + _ + Property PhotoFile As FileData + Get + Return _PhotoFile + End Get + Set(value As FileData) + SetPropertyValue("PhotoFile", _PhotoFile, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb new file mode 100644 index 0000000..9ad0867 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class APCSheetReviewHeader_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aAPCSheetReviewHeaderPhotos_AddPhotos = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aAPCSheetReviewHeaderPhotos_AddPhotos + ' + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.Caption = "aAPCSheetReviewHeaderPhotos_AddPhotos" + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.Category = "ObjectsCreation" + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.ConfirmationMessage = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.Id = "aAPCSheetReviewHeaderPhotos_AddPhotos" + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.ImageName = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.Shortcut = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.Tag = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.TargetObjectsCriteria = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.TargetObjectType = GetType(SISBusiness.[Module].APCSheetReviewHeaderPhotos) + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.TargetViewId = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.ToolTip = Nothing + Me.aAPCSheetReviewHeaderPhotos_AddPhotos.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aAPCSheetReviewHeaderPhotos_OpenPhoto + ' + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.Caption = "aAPCSheetReviewHeaderPhotos_OpenPhoto" + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.ConfirmationMessage = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.Id = "aAPCSheetReviewHeaderPhotos_OpenPhoto" + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.ImageName = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.Shortcut = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.Tag = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.TargetObjectsCriteria = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.TargetObjectType = GetType(SISBusiness.[Module].APCSheetReviewHeaderPhotos) + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.TargetViewId = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.ToolTip = Nothing + Me.aAPCSheetReviewHeaderPhotos_OpenPhoto.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aAPCSheetReviewHeaderPhotos_AddPhotos As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetReviewHeaderPhotos_OpenPhoto As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.resx new file mode 100644 index 0000000..54920e9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 309, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb new file mode 100644 index 0000000..215b7ff --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb @@ -0,0 +1,113 @@ +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.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl +Imports System.IO + +Public Class APCSheetReviewHeader_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "APCSheetReviewHeader_APCSheetReviewHeaderPhotos_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetReviewHeader_APCSheetReviewRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + End Sub +#End Region + + Private Sub aAPCSheetReviewHeaderPhotos_AddPhotos_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeaderPhotos_AddPhotos.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetReviewHeader As APCSheetReviewHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetReviewHeader) + If _APCSheetReviewHeader IsNot Nothing Then + Try + Dim _OpenFileDialog As New System.Windows.Forms.OpenFileDialog + _OpenFileDialog.Filter = "JPG file (.jpg)|*.jpg|BMP file (.bmp)|*.bmp|GIF file (.gif)|*.gif|All Files (*.*)|*.*" + _OpenFileDialog.Multiselect = True + + If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then + RaiseEvent InitWork(1, 1, _OpenFileDialog.FileNames.Length) + For Each _FileName As String In _OpenFileDialog.FileNames + RaiseEvent DoWork() + Dim _APCSheetReviewHeaderPhotos As New APCSheetReviewHeaderPhotos(_ocur.Session) + With _APCSheetReviewHeaderPhotos + .APCSheetReviewHeader = _APCSheetReviewHeader + .PhotoFile = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + End With + Next + End If + + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End If + End Sub + Private Sub aAPCSheetReviewHeaderPhotos_OpenPhoto_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeaderPhotos_OpenPhoto.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetReviewHeaderPhotos As APCSheetReviewHeaderPhotos = TryCast(View.SelectedObjects(0), APCSheetReviewHeaderPhotos) + If _APCSheetReviewHeaderPhotos IsNot Nothing Then + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _APCSheetReviewHeaderPhotos.PhotoFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _APCSheetReviewHeaderPhotos.PhotoFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + End If + End Sub +#Region "Subs and Functions" + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + End Function +#End Region +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewRows.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewRows.vb new file mode 100644 index 0000000..ca77550 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReviewRows.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class APCSheetReviewRows 'Betakarts eltti jegyzknyv sorok + Inherits BaseObject + Private _APCSheetReviewHeader As APCSheetReviewHeader + Private _APCSheetByTerritorial As APCSheetByTerritorial + Private _EstimatedHato As Double 'Becslt terms ha /to + Private _Estimatedto As Double 'Becslt terms to + Private _EstimatedDateExecution As Date 'Vrhat betakarts dtuma + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property APCSheetReviewHeader As APCSheetReviewHeader + Get + Return _APCSheetReviewHeader + End Get + Set(value As APCSheetReviewHeader) + SetPropertyValue("APCSheetReviewHeader", _APCSheetReviewHeader, value) + End Set + End Property + Property APCSheetByTerritorial As APCSheetByTerritorial + Get + Return _APCSheetByTerritorial + End Get + Set(value As APCSheetByTerritorial) + SetPropertyValue("APCSheetByTerritorial", _APCSheetByTerritorial, value) + End Set + End Property + Property EstimatedHato As Double + Get + Return _EstimatedHato + End Get + Set(value As Double) + SetPropertyValue("EstimatedHato", _EstimatedHato, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Estimatedto = value * APCSheetByTerritorial.Area + End If + End Set + End Property + Property Estimatedto As Double + Get + Return _Estimatedto + End Get + Set(value As Double) + SetPropertyValue("Estimatedto", _Estimatedto, value) + End Set + End Property + Property EstimatedDateExecution As Date + Get + Return _EstimatedDateExecution + End Get + Set(value As Date) + SetPropertyValue("EstimatedDateExecution", _EstimatedDateExecution, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.Designer.vb new file mode 100644 index 0000000..8823b61 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class APCSheetReview_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aAPCSheetReviewHeader_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aAPCSheetReviewHeader_Print + ' + Me.aAPCSheetReviewHeader_Print.Caption = "aAPCSheetReviewHeader_Print" + Me.aAPCSheetReviewHeader_Print.ConfirmationMessage = Nothing + Me.aAPCSheetReviewHeader_Print.Id = "aAPCSheetReviewHeader_Print" + Me.aAPCSheetReviewHeader_Print.ImageName = Nothing + Me.aAPCSheetReviewHeader_Print.Shortcut = Nothing + Me.aAPCSheetReviewHeader_Print.Tag = Nothing + Me.aAPCSheetReviewHeader_Print.TargetObjectsCriteria = Nothing + Me.aAPCSheetReviewHeader_Print.TargetObjectType = GetType(SISBusiness.[Module].APCSheetReviewHeader) + Me.aAPCSheetReviewHeader_Print.TargetViewId = Nothing + Me.aAPCSheetReviewHeader_Print.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aAPCSheetReviewHeader_Print.ToolTip = Nothing + Me.aAPCSheetReviewHeader_Print.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aAPCSheetReviewHeader_Print As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.resx new file mode 100644 index 0000000..c1842b2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.vb new file mode 100644 index 0000000..c0c3074 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetReview_VC.vb @@ -0,0 +1,38 @@ +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.Persistent.BaseImpl + +Public Class APCSheetReview_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aAPCSheetReviewHeader_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetReviewHeader_Print.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetReviewHeader As APCSheetReviewHeader = TryCast(View.SelectedObjects(0), APCSheetReviewHeader) + Try + If _APCSheetReviewHeader.ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!") + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _APCSheetReviewHeader.ReportData.Oid), True) + If _APCSheetReviewHeader IsNot Nothing Then + If _APCSheetReviewHeader.ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("APCSheetReviewHeader.Oid =?", _APCSheetReviewHeader.Oid), True) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb new file mode 100644 index 0000000..b7a4089 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.Designer.vb @@ -0,0 +1,470 @@ +Partial Class APCSheetVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aAPCSheetHeaderSetAPCStatus = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloneAPCSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintAPCSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheet_GeneratePDFOriginal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetByProducts_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByTerritorial_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByProducts_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetByTerritorial_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetPresentation_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByTerritorialNo_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByTerritorialNo_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetHeaderCreate_Contracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetByTerritorial_ChangeNo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByTerritorial_Change = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetByTerritorial_InvolvedOUT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetByTerritorial_InvolvedIN = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetHeader_ReCalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetHeader_CreateReviewSheet = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAPCSheetHeader_OpenContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheet_PSPH_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheet_PSPH_GeneratePDFFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAPCSheetHeader_Clones = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aAPCSheetHeaderSetAPCStatus + ' + Me.aAPCSheetHeaderSetAPCStatus.AcceptButtonCaption = Nothing + Me.aAPCSheetHeaderSetAPCStatus.CancelButtonCaption = Nothing + Me.aAPCSheetHeaderSetAPCStatus.Caption = "aAPCSheet Header Set APCStatus" + Me.aAPCSheetHeaderSetAPCStatus.ConfirmationMessage = Nothing + Me.aAPCSheetHeaderSetAPCStatus.Id = "aAPCSheetHeaderSetAPCStatus" + Me.aAPCSheetHeaderSetAPCStatus.ImageName = Nothing + Me.aAPCSheetHeaderSetAPCStatus.Shortcut = Nothing + Me.aAPCSheetHeaderSetAPCStatus.Tag = Nothing + Me.aAPCSheetHeaderSetAPCStatus.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeaderSetAPCStatus.TargetViewId = "APCSheetHeader_DetailView" + Me.aAPCSheetHeaderSetAPCStatus.ToolTip = Nothing + Me.aAPCSheetHeaderSetAPCStatus.TypeOfView = Nothing + ' + 'aCloneAPCSheet + ' + Me.aCloneAPCSheet.Caption = "aClone APCSheet" + Me.aCloneAPCSheet.Category = "ObjectsCreation" + Me.aCloneAPCSheet.ConfirmationMessage = Nothing + Me.aCloneAPCSheet.Id = "aCloneAPCSheet" + Me.aCloneAPCSheet.ImageName = Nothing + Me.aCloneAPCSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneAPCSheet.Shortcut = Nothing + Me.aCloneAPCSheet.Tag = Nothing + Me.aCloneAPCSheet.TargetObjectsCriteria = Nothing + Me.aCloneAPCSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aCloneAPCSheet.TargetViewId = Nothing + Me.aCloneAPCSheet.ToolTip = Nothing + Me.aCloneAPCSheet.TypeOfView = Nothing + ' + 'aPrintAPCSheet + ' + Me.aPrintAPCSheet.Caption = "aPrint APCSheet" + Me.aPrintAPCSheet.Category = "View" + Me.aPrintAPCSheet.ConfirmationMessage = Nothing + Me.aPrintAPCSheet.Id = "aPrintAPCSheet" + Me.aPrintAPCSheet.ImageName = Nothing + Me.aPrintAPCSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintAPCSheet.Shortcut = Nothing + Me.aPrintAPCSheet.Tag = Nothing + Me.aPrintAPCSheet.TargetObjectsCriteria = Nothing + Me.aPrintAPCSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aPrintAPCSheet.TargetViewId = Nothing + Me.aPrintAPCSheet.ToolTip = Nothing + Me.aPrintAPCSheet.TypeOfView = Nothing + ' + 'aAPCSheet_GeneratePDFOriginal + ' + Me.aAPCSheet_GeneratePDFOriginal.Caption = "aAPCSheet_GeneratePDFOriginal" + Me.aAPCSheet_GeneratePDFOriginal.Category = "View" + Me.aAPCSheet_GeneratePDFOriginal.ConfirmationMessage = Nothing + Me.aAPCSheet_GeneratePDFOriginal.Id = "aAPCSheet_GeneratePDFOriginal" + Me.aAPCSheet_GeneratePDFOriginal.ImageName = Nothing + Me.aAPCSheet_GeneratePDFOriginal.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAPCSheet_GeneratePDFOriginal.Shortcut = Nothing + Me.aAPCSheet_GeneratePDFOriginal.Tag = Nothing + Me.aAPCSheet_GeneratePDFOriginal.TargetObjectsCriteria = Nothing + Me.aAPCSheet_GeneratePDFOriginal.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheet_GeneratePDFOriginal.TargetViewId = Nothing + Me.aAPCSheet_GeneratePDFOriginal.ToolTip = Nothing + Me.aAPCSheet_GeneratePDFOriginal.TypeOfView = Nothing + ' + 'aAPCSheetByProducts_New + ' + Me.aAPCSheetByProducts_New.AcceptButtonCaption = Nothing + Me.aAPCSheetByProducts_New.CancelButtonCaption = Nothing + Me.aAPCSheetByProducts_New.Caption = "aAPCSheetByProducts_New" + Me.aAPCSheetByProducts_New.Category = "ObjectsCreation" + Me.aAPCSheetByProducts_New.ConfirmationMessage = Nothing + Me.aAPCSheetByProducts_New.Id = "aAPCSheetByProducts_New" + Me.aAPCSheetByProducts_New.ImageName = Nothing + Me.aAPCSheetByProducts_New.Shortcut = Nothing + Me.aAPCSheetByProducts_New.Tag = Nothing + Me.aAPCSheetByProducts_New.TargetObjectsCriteria = Nothing + Me.aAPCSheetByProducts_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts) + Me.aAPCSheetByProducts_New.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView" + Me.aAPCSheetByProducts_New.ToolTip = Nothing + Me.aAPCSheetByProducts_New.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_New + ' + Me.aAPCSheetByTerritorial_New.AcceptButtonCaption = Nothing + Me.aAPCSheetByTerritorial_New.CancelButtonCaption = Nothing + Me.aAPCSheetByTerritorial_New.Caption = "aAPCSheetByTerritorial_New" + Me.aAPCSheetByTerritorial_New.Category = "ObjectsCreation" + Me.aAPCSheetByTerritorial_New.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_New.Id = "aAPCSheetByTerritorial_New" + Me.aAPCSheetByTerritorial_New.ImageName = Nothing + Me.aAPCSheetByTerritorial_New.Shortcut = Nothing + Me.aAPCSheetByTerritorial_New.Tag = Nothing + Me.aAPCSheetByTerritorial_New.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_New.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView" + Me.aAPCSheetByTerritorial_New.ToolTip = Nothing + Me.aAPCSheetByTerritorial_New.TypeOfView = Nothing + ' + 'aAPCSheetByProducts_Delete + ' + Me.aAPCSheetByProducts_Delete.Caption = "aAPCSheetByProducts_Delete" + Me.aAPCSheetByProducts_Delete.Category = "Edit" + Me.aAPCSheetByProducts_Delete.ConfirmationMessage = Nothing + Me.aAPCSheetByProducts_Delete.Id = "aAPCSheetByProducts_Delete" + Me.aAPCSheetByProducts_Delete.ImageName = Nothing + Me.aAPCSheetByProducts_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAPCSheetByProducts_Delete.Shortcut = Nothing + Me.aAPCSheetByProducts_Delete.Tag = Nothing + Me.aAPCSheetByProducts_Delete.TargetObjectsCriteria = Nothing + Me.aAPCSheetByProducts_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts) + Me.aAPCSheetByProducts_Delete.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView" + Me.aAPCSheetByProducts_Delete.ToolTip = Nothing + Me.aAPCSheetByProducts_Delete.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_Delete + ' + Me.aAPCSheetByTerritorial_Delete.Caption = "aAPCSheetByTerritorial_Delete" + Me.aAPCSheetByTerritorial_Delete.Category = "Edit" + Me.aAPCSheetByTerritorial_Delete.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_Delete.Id = "aAPCSheetByTerritorial_Delete" + Me.aAPCSheetByTerritorial_Delete.ImageName = Nothing + Me.aAPCSheetByTerritorial_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAPCSheetByTerritorial_Delete.Shortcut = Nothing + Me.aAPCSheetByTerritorial_Delete.Tag = Nothing + Me.aAPCSheetByTerritorial_Delete.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_Delete.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView" + Me.aAPCSheetByTerritorial_Delete.ToolTip = Nothing + Me.aAPCSheetByTerritorial_Delete.TypeOfView = Nothing + ' + 'aAPCSheetPresentation_New + ' + Me.aAPCSheetPresentation_New.AcceptButtonCaption = Nothing + Me.aAPCSheetPresentation_New.CancelButtonCaption = Nothing + Me.aAPCSheetPresentation_New.Caption = "aAPCSheetPresentation_New" + Me.aAPCSheetPresentation_New.Category = "ObjectsCreation" + Me.aAPCSheetPresentation_New.ConfirmationMessage = Nothing + Me.aAPCSheetPresentation_New.Id = "aAPCSheetPresentation_New" + Me.aAPCSheetPresentation_New.ImageName = Nothing + Me.aAPCSheetPresentation_New.Shortcut = Nothing + Me.aAPCSheetPresentation_New.Tag = Nothing + Me.aAPCSheetPresentation_New.TargetObjectsCriteria = Nothing + Me.aAPCSheetPresentation_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetPresentation) + Me.aAPCSheetPresentation_New.TargetViewId = "APCSheetHeader_APCSheetPresentation_ListView" + Me.aAPCSheetPresentation_New.ToolTip = Nothing + Me.aAPCSheetPresentation_New.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorialNo_New + ' + Me.aAPCSheetByTerritorialNo_New.AcceptButtonCaption = Nothing + Me.aAPCSheetByTerritorialNo_New.CancelButtonCaption = Nothing + Me.aAPCSheetByTerritorialNo_New.Caption = "aAPCSheetByTerritorialNo_New" + Me.aAPCSheetByTerritorialNo_New.Category = "ObjectsCreation" + Me.aAPCSheetByTerritorialNo_New.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorialNo_New.Id = "aAPCSheetByTerritorialNo_New" + Me.aAPCSheetByTerritorialNo_New.ImageName = Nothing + Me.aAPCSheetByTerritorialNo_New.Shortcut = Nothing + Me.aAPCSheetByTerritorialNo_New.Tag = Nothing + Me.aAPCSheetByTerritorialNo_New.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorialNo_New.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorialNo_New.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No" + Me.aAPCSheetByTerritorialNo_New.ToolTip = Nothing + Me.aAPCSheetByTerritorialNo_New.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorialNo_Delete + ' + Me.aAPCSheetByTerritorialNo_Delete.Caption = "aAPCSheetByTerritorialNo_Delete" + Me.aAPCSheetByTerritorialNo_Delete.Category = "Edit" + Me.aAPCSheetByTerritorialNo_Delete.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorialNo_Delete.Id = "aAPCSheetByTerritorialNo_Delete" + Me.aAPCSheetByTerritorialNo_Delete.ImageName = Nothing + Me.aAPCSheetByTerritorialNo_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAPCSheetByTerritorialNo_Delete.Shortcut = Nothing + Me.aAPCSheetByTerritorialNo_Delete.Tag = Nothing + Me.aAPCSheetByTerritorialNo_Delete.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorialNo_Delete.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorialNo_Delete.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No" + Me.aAPCSheetByTerritorialNo_Delete.ToolTip = Nothing + Me.aAPCSheetByTerritorialNo_Delete.TypeOfView = Nothing + ' + 'aAPCSheetHeaderCreate_Contracts + ' + Me.aAPCSheetHeaderCreate_Contracts.Caption = "aAPCSheetHeaderCreate_Contracts" + Me.aAPCSheetHeaderCreate_Contracts.ConfirmationMessage = Nothing + Me.aAPCSheetHeaderCreate_Contracts.Id = "aAPCSheetHeaderCreate_Contracts" + Me.aAPCSheetHeaderCreate_Contracts.ImageName = Nothing + Me.aAPCSheetHeaderCreate_Contracts.Shortcut = Nothing + Me.aAPCSheetHeaderCreate_Contracts.Tag = Nothing + Me.aAPCSheetHeaderCreate_Contracts.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeaderCreate_Contracts.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheetHeaderCreate_Contracts.TargetViewId = "APCSheetHeader_DetailView" + Me.aAPCSheetHeaderCreate_Contracts.ToolTip = Nothing + Me.aAPCSheetHeaderCreate_Contracts.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_ChangeNo + ' + Me.aAPCSheetByTerritorial_ChangeNo.AcceptButtonCaption = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.CancelButtonCaption = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.Caption = "aAPCSheetByTerritorial_ChangeNo" + Me.aAPCSheetByTerritorial_ChangeNo.Category = "Edit" + Me.aAPCSheetByTerritorial_ChangeNo.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.Id = "aAPCSheetByTerritorial_ChangeNo" + Me.aAPCSheetByTerritorial_ChangeNo.ImageName = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetByTerritorial_ChangeNo.Shortcut = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.Tag = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_ChangeNo.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No" + Me.aAPCSheetByTerritorial_ChangeNo.ToolTip = Nothing + Me.aAPCSheetByTerritorial_ChangeNo.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_Change + ' + Me.aAPCSheetByTerritorial_Change.AcceptButtonCaption = Nothing + Me.aAPCSheetByTerritorial_Change.CancelButtonCaption = Nothing + Me.aAPCSheetByTerritorial_Change.Caption = "aAPCSheetByTerritorial_Change" + Me.aAPCSheetByTerritorial_Change.Category = "Edit" + Me.aAPCSheetByTerritorial_Change.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_Change.Id = "aAPCSheetByTerritorial_Change" + Me.aAPCSheetByTerritorial_Change.ImageName = Nothing + Me.aAPCSheetByTerritorial_Change.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetByTerritorial_Change.Shortcut = Nothing + Me.aAPCSheetByTerritorial_Change.Tag = Nothing + Me.aAPCSheetByTerritorial_Change.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_Change.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_Change.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView" + Me.aAPCSheetByTerritorial_Change.ToolTip = Nothing + Me.aAPCSheetByTerritorial_Change.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_InvolvedOUT + ' + Me.aAPCSheetByTerritorial_InvolvedOUT.Caption = "aAPCSheetByTerritorial_InvolvedOUT" + Me.aAPCSheetByTerritorial_InvolvedOUT.Category = "Edit" + Me.aAPCSheetByTerritorial_InvolvedOUT.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.Id = "aAPCSheetByTerritorial_InvolvedOUT" + Me.aAPCSheetByTerritorial_InvolvedOUT.ImageName = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetByTerritorial_InvolvedOUT.Shortcut = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.Tag = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_InvolvedOUT.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView" + Me.aAPCSheetByTerritorial_InvolvedOUT.ToolTip = Nothing + Me.aAPCSheetByTerritorial_InvolvedOUT.TypeOfView = Nothing + ' + 'aAPCSheetByTerritorial_InvolvedIN + ' + Me.aAPCSheetByTerritorial_InvolvedIN.AcceptButtonCaption = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.CancelButtonCaption = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.Caption = "aAPCSheetByTerritorial_InvolvedIN" + Me.aAPCSheetByTerritorial_InvolvedIN.Category = "Edit" + Me.aAPCSheetByTerritorial_InvolvedIN.ConfirmationMessage = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.Id = "aAPCSheetByTerritorial_InvolvedIN" + Me.aAPCSheetByTerritorial_InvolvedIN.ImageName = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetByTerritorial_InvolvedIN.Shortcut = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.Tag = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.TargetObjectsCriteria = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByTerritorial) + Me.aAPCSheetByTerritorial_InvolvedIN.TargetViewId = "APCSheetHeader_APCSheetByTerritorial_ListView_No" + Me.aAPCSheetByTerritorial_InvolvedIN.ToolTip = Nothing + Me.aAPCSheetByTerritorial_InvolvedIN.TypeOfView = Nothing + ' + 'aAPCSheetHeader_ReCalculate + ' + Me.aAPCSheetHeader_ReCalculate.Caption = "aAPCSheetHeader_ReCalculate" + Me.aAPCSheetHeader_ReCalculate.Category = "Edit" + Me.aAPCSheetHeader_ReCalculate.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_ReCalculate.Id = "aAPCSheetHeader_ReCalculate" + Me.aAPCSheetHeader_ReCalculate.ImageName = Nothing + Me.aAPCSheetHeader_ReCalculate.Shortcut = Nothing + Me.aAPCSheetHeader_ReCalculate.Tag = Nothing + Me.aAPCSheetHeader_ReCalculate.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_ReCalculate.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheetHeader_ReCalculate.TargetViewId = "APCSheetHeader_DetailView" + Me.aAPCSheetHeader_ReCalculate.ToolTip = Nothing + Me.aAPCSheetHeader_ReCalculate.TypeOfView = Nothing + ' + 'aAPCSheetHeader_CreateReviewSheet + ' + Me.aAPCSheetHeader_CreateReviewSheet.AcceptButtonCaption = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.CancelButtonCaption = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.Caption = "aAPCSheetHeader_CreateReviewSheet" + Me.aAPCSheetHeader_CreateReviewSheet.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.Id = "aAPCSheetHeader_CreateReviewSheet" + Me.aAPCSheetHeader_CreateReviewSheet.ImageName = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.Shortcut = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.Tag = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheetHeader_CreateReviewSheet.TargetViewId = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aAPCSheetHeader_CreateReviewSheet.ToolTip = Nothing + Me.aAPCSheetHeader_CreateReviewSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aAPCSheetHeader_OpenContract + ' + Me.aAPCSheetHeader_OpenContract.Caption = "aAPCSheetHeader_OpenContract" + Me.aAPCSheetHeader_OpenContract.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_OpenContract.Id = "aAPCSheetHeader_OpenContract" + Me.aAPCSheetHeader_OpenContract.ImageName = Nothing + Me.aAPCSheetHeader_OpenContract.Shortcut = Nothing + Me.aAPCSheetHeader_OpenContract.Tag = Nothing + Me.aAPCSheetHeader_OpenContract.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_OpenContract.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheetHeader_OpenContract.TargetViewId = Nothing + Me.aAPCSheetHeader_OpenContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aAPCSheetHeader_OpenContract.ToolTip = Nothing + Me.aAPCSheetHeader_OpenContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aAPCSheetHeader_CreateAPCSheetreviewHeader + ' + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Caption = "aAPCSheetHeader_CreateAPCSheetreviewHeader" + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Category = "ObjectsCreation" + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Id = "aAPCSheetHeader_CreateAPCSheetreviewHeader" + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ImageName = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Shortcut = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.Tag = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProducts) + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TargetViewId = "APCSheetHeader_APCSheetByProducts_ListView" + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.ToolTip = Nothing + Me.aAPCSheetHeader_CreateAPCSheetreviewHeader.TypeOfView = Nothing + ' + 'aAPCSheetHeader_OpenAPCSheetReviewHeader + ' + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Caption = "aAPCSheetHeader_OpenAPCSheetReviewHeader" + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Id = "aAPCSheetHeader_OpenAPCSheetReviewHeader" + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ImageName = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Shortcut = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.Tag = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetObjectType = GetType(SISBusiness.[Module].APCSheetReviewHeader) + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TargetViewId = "APCSheetHeader_APCSheetReviewHeader_ListView" + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.ToolTip = Nothing + Me.aAPCSheetHeader_OpenAPCSheetReviewHeader.TypeOfView = Nothing + ' + 'aAPCSheet_PSPH_Print + ' + Me.aAPCSheet_PSPH_Print.Caption = "aAPCSheet_PSPH_Print" + Me.aAPCSheet_PSPH_Print.ConfirmationMessage = Nothing + Me.aAPCSheet_PSPH_Print.Id = "aAPCSheet_PSPH_Print" + Me.aAPCSheet_PSPH_Print.ImageName = Nothing + Me.aAPCSheet_PSPH_Print.Shortcut = Nothing + Me.aAPCSheet_PSPH_Print.Tag = Nothing + Me.aAPCSheet_PSPH_Print.TargetObjectsCriteria = Nothing + Me.aAPCSheet_PSPH_Print.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProductsSalesPolicyH) + Me.aAPCSheet_PSPH_Print.TargetViewId = Nothing + Me.aAPCSheet_PSPH_Print.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aAPCSheet_PSPH_Print.ToolTip = Nothing + Me.aAPCSheet_PSPH_Print.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aAPCSheet_PSPH_GeneratePDFFile + ' + Me.aAPCSheet_PSPH_GeneratePDFFile.Caption = "aAPCSheet_PSPH_GeneratePDFFile" + Me.aAPCSheet_PSPH_GeneratePDFFile.ConfirmationMessage = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.Id = "aAPCSheet_PSPH_GeneratePDFFile" + Me.aAPCSheet_PSPH_GeneratePDFFile.ImageName = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.Shortcut = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.Tag = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.TargetObjectsCriteria = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.TargetObjectType = GetType(SISBusiness.[Module].APCSheetByProductsSalesPolicyH) + Me.aAPCSheet_PSPH_GeneratePDFFile.TargetViewId = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aAPCSheet_PSPH_GeneratePDFFile.ToolTip = Nothing + Me.aAPCSheet_PSPH_GeneratePDFFile.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aAPCSheetHeader_Clones + ' + Me.aAPCSheetHeader_Clones.AcceptButtonCaption = Nothing + Me.aAPCSheetHeader_Clones.CancelButtonCaption = Nothing + Me.aAPCSheetHeader_Clones.Caption = "aAPCSheetHeader_Clones" + Me.aAPCSheetHeader_Clones.Category = "ObjectsCreation" + Me.aAPCSheetHeader_Clones.ConfirmationMessage = Nothing + Me.aAPCSheetHeader_Clones.Id = "aAPCSheetHeader_Clones" + Me.aAPCSheetHeader_Clones.ImageName = Nothing + Me.aAPCSheetHeader_Clones.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aAPCSheetHeader_Clones.Shortcut = Nothing + Me.aAPCSheetHeader_Clones.Tag = Nothing + Me.aAPCSheetHeader_Clones.TargetObjectsCriteria = Nothing + Me.aAPCSheetHeader_Clones.TargetObjectType = GetType(SISBusiness.[Module].APCSheetHeader) + Me.aAPCSheetHeader_Clones.TargetViewId = Nothing + Me.aAPCSheetHeader_Clones.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aAPCSheetHeader_Clones.ToolTip = Nothing + Me.aAPCSheetHeader_Clones.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aCloneAPCSheet As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintAPCSheet As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheet_GeneratePDFOriginal As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetByProducts_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetHeaderSetAPCStatus As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByTerritorial_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByProducts_Delete As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetByTerritorial_Delete As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetPresentation_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByTerritorialNo_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByTerritorialNo_Delete As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetHeaderCreate_Contracts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetByTerritorial_ChangeNo As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByTerritorial_Change As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetByTerritorial_InvolvedOUT As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetByTerritorial_InvolvedIN As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetHeader_ReCalculate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetHeader_CreateReviewSheet As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAPCSheetHeader_OpenContract As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetHeader_CreateAPCSheetreviewHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetHeader_OpenAPCSheetReviewHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheet_PSPH_Print As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheet_PSPH_GeneratePDFFile As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAPCSheetHeader_Clones As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.resx b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.resx new file mode 100644 index 0000000..3cc8cd4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.resx @@ -0,0 +1,195 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 173 + + + 17, 251 + + + 17, 290 + + + 17, 329 + + + 17, 446 + + + 17, 485 + + + 17, 524 + + + 17, 641 + + + 17, 680 + + + 17, 719 + + + 17, 758 + + + 17, 836 + + + 17, 875 + + + 17, 914 + + + 17, 953 + + + 17, 797 + + + 17, 602 + + + 17, 368 + + + 17, 212 + + + 17, 407 + + + 17, 563 + + + 361, 58 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb new file mode 100644 index 0000000..244d11f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/APCSheetVC.vb @@ -0,0 +1,1697 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl +Imports System.IO +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.XtraEditors + + +Public Class APCSheetVC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork() + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of APCSheetVC).aAPCSheetByProducts_New.Active.SetItemValue("", False) + Frame.GetController(Of APCSheetVC).aAPCSheetHeader_CreateReviewSheet.Active.SetItemValue("", False) + Frame.GetController(Of APCSheetVC).aCloneAPCSheet.Active.SetItemValue("", False) + If View.Id = "APCSheetHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed + End If + If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "APCSheetByProductsOrderInRows_ListView" Then + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute + End If + If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "APCSheetHeaderSetAPCParameters_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf APCSheetHeaderSetAPCParameters_PopUp_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "APCSheetHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetByProducts_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetByTerritorial_ListView_No" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetPresentation_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetCreditClassificationFinancialRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetHeader_APCSheetCreditClassificationAnimalRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetByProductsOrderInRows_ListView" Then + RemoveHandler Frame.GetController(Of RefreshController).RefreshAction.Execute, AddressOf APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute + End If + If View.Id = "APCSheetByProductsSalesPolicyH_APCSheetByProductsSalesPolicyR_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "APCSheetByProductsSalesPolicyH_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aCloneAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCloneAPCSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetHeader_NEW As New APCSheetHeader(_onew.Session) + Create_APCSheetHeader_NEW(_onew, _APCSheetHeader_NEW, _APCSheetHeader) + + If _APCSheetHeader.APCSheetByProducts.Count > 0 Then + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetHeader.APCSheetByProducts + _APCSheetHeader_NEW.APCSheetByProducts.Add(_onew.GetObjectByKey(Of APCSheetByProducts)(_APCSheetByProducts.Oid)) + Next + End If + If _APCSheetHeader.APCSheetPresentation.Count > 0 Then + For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader.APCSheetPresentation + _APCSheetHeader_NEW.APCSheetPresentation.Add(_onew.GetObjectByKey(Of APCSheetPresentation)(_APCSheetPresentation.Oid)) + Next + End If + If _APCSheetHeader.APCSheetByTerritorial.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetHeader.APCSheetByTerritorial + _APCSheetHeader_NEW.APCSheetByTerritorial.Add(_onew.GetObjectByKey(Of APCSheetByTerritorial)(_APCSheetByTerritorial.Oid)) + Next + End If + If _APCSheetHeader.APCSheetCreditClassificationAnimalRows.Count > 0 Then + For Each _APCSheetCreditClassificationAnimalRows As APCSheetCreditClassificationAnimalRows In _APCSheetHeader.APCSheetCreditClassificationAnimalRows + _APCSheetHeader_NEW.APCSheetCreditClassificationAnimalRows.Add(_onew.GetObjectByKey(Of APCSheetCreditClassificationAnimalRows)(_APCSheetCreditClassificationAnimalRows.Oid)) + Next + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "APCSheetHeader_DetailView", True, _APCSheetHeader_NEW) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aPrintAPCSheet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintAPCSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!" + vbNewLine + "A folyamat megszakadt!") + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _APCSheetHeader.Oid), True) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheet_GeneratePDFOriginal_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheet_GeneratePDFOriginal.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!" + vbNewLine + "A folyamat megszakadt!") + + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + + Dim _FilterString As String = "[Oid]='" & _APCSheetHeader.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = System.IO.Path.GetTempPath & _APCSheetHeader.DocumentNumber & " szerzds.pdf" + Dim _StreamFile As New System.IO.FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + + _APCSheetHeader.PDFOriginal = New FileData(_ocur.Session) + _APCSheetHeader.PDFOriginal.LoadFromStream(_APCSheetHeader.DocumentNumber + " szerzds.pdf", _StreamFile2) + _StreamFile2.Close() + + _ocur.CommitChanges() + + If File.Exists(_FileName) Then File.Delete(_FileName) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByProducts_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByProducts_New.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ProductsFunding_CollectionSource As New CollectionSource(_onew, GetType(ProductsFunding)) + + e.View = Application.CreateListView("ProductsFunding_ListView", _ProductsFunding_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByProducts_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByProducts_New.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem kerlt kivlasztsra egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _APCSheetHeader As APCSheetHeader = TryCast(_PropertyCollectionSource.MasterObject, APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _ProductsFunding As ProductsFunding In e.PopupWindow.View.SelectedObjects + Dim _APCSheetByProducts As New APCSheetByProducts(_onew.Session) + With (_APCSheetByProducts) + .APCSheetHeader = _onew.GetObject(_APCSheetHeader) + .Products = _onew.GetObject(_ProductsFunding.Products) + .MaxContractQuantity = _ProductsFunding.MaxContractQuantity + .FundingHatoHUF = _ProductsFunding.FundingHatoHUF + .RowIndex = _APCSheetHeader.APCSheetByProducts.Count + .ColleteralHatoHUF = _ProductsFunding.CollateralhatoHUF + Dim _ActYear As Int32 = GetSQLTime(_onew.Session).Year + Dim _ActMonth As Int32 = 0 + Select Case _ProductsFunding.ProductExpirationDate + Case eMonths.eJanuary + _ActMonth = 1 + Case eMonths.eFebruary + _ActMonth = 2 + Case eMonths.eMarch + _ActMonth = 3 + Case eMonths.eApril + _ActMonth = 4 + Case eMonths.eMay + _ActMonth = 5 + Case eMonths.eJune + _ActMonth = 6 + Case eMonths.eJuly + _ActMonth = 7 + Case eMonths.eAugust + _ActMonth = 8 + Case eMonths.eSeptember + _ActMonth = 9 + Case eMonths.eOctober + _ActMonth = 10 + Case eMonths.eNovember + _ActMonth = 11 + Case eMonths.eDecember + _ActMonth = 12 + End Select + If GetSQLTime(_onew.Session).Month < 8 Then + .ProductExpirationDate = New Date(_ActYear, _ActMonth + 1, 1).AddDays(-1) + Else + .ProductExpirationDate = New Date(_ActYear + 1, _ActMonth + 1, 1).AddDays(-1) + End If + + End With + Next + _onew.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + If parentView IsNot Nothing Then parentView.ObjectSpace.Refresh() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub Create_APCSheetHeader_NEW(onew As Xpo.XPObjectSpace, APCSheetHeader_NEW As APCSheetHeader, APCSheetHeader As APCSheetHeader) + On Error GoTo CheckError + With (APCSheetHeader_NEW) + .APCParameters = onew.GetObjectByKey(Of APCParameters)(APCSheetHeader.APCParameters.Oid) + .HRPerson = onew.GetObjectByKey(Of HRPerson)(APCSheetHeader.HRPerson.Oid) + .ContactsWithFullRight = onew.GetObjectByKey(Of Contacts)(APCSheetHeader.ContactsWithFullRight.Oid) + .CustomersFrom = onew.GetObjectByKey(Of CustomersFrom)(APCSheetHeader.CustomersFrom.Oid) + .CropProtectionSpecialist = onew.GetObjectByKey(Of Contacts)(APCSheetHeader.CropProtectionSpecialist.Oid) + .ShortName = APCSheetHeader.ShortName + .APCStatus = eAPCStatus.eRegistered + + .IsNewContact = False + .PaymentDiscipline = APCSheetHeader.PaymentDiscipline + .CleanerDryerMachinetype = APCSheetHeader.CleanerDryerMachinetype + .CleanerDryerMachineCapacity = APCSheetHeader.CleanerDryerMachineCapacity + .ShipmentCapacityMachine = APCSheetHeader.ShipmentCapacityMachine + .ShipmentCapacityAmount = APCSheetHeader.ShipmentCapacityAmount + .StorageCapacitybyFlat = APCSheetHeader.StorageCapacitybyFlat + .StorageCapacitybySilo = APCSheetHeader.StorageCapacitybySilo + + .MachineryTractors = APCSheetHeader.MachineryTractors + .MachineryTillage = APCSheetHeader.MachineryTillage + .MachineryHarvesting = APCSheetHeader.MachineryHarvesting + .MachineryFighting = APCSheetHeader.MachineryFighting + .MachinerySeedDrill = APCSheetHeader.MachinerySeedDrill + .MachinerySpecial = APCSheetHeader.MachinerySpecial + + .EconomyArea = APCSheetHeader.EconomyArea + .EconomyMajorCropsGrown = APCSheetHeader.EconomyMajorCropsGrown + .EconomyAreaOwner = APCSheetHeader.EconomyAreaOwner + .EconomyAreaRent = APCSheetHeader.EconomyAreaRent + + .MainCustomers = APCSheetHeader.MainCustomers + .Description = APCSheetHeader.Description + + .TerritorialArea = APCSheetHeader.TerritorialArea + .DeferredPaymentDay = APCSheetHeader.DeferredPaymentDay + .DeferredPaymentHUF = APCSheetHeader.DeferredPaymentHUF + + '.BankPreQualificationState + '.ManagementQualificationState + '.ManagementDeferredPaymentDay + '.ManagementDeferredPaymentHUF + '.ManagementTerritorialArea + + .Activity = APCSheetHeader.Activity + .ActivityStartDate = APCSheetHeader.ActivityStartDate + .IsPrivateCredit = APCSheetHeader.IsPrivateCredit + .IsPrivateCreditAmountHUF = APCSheetHeader.IsPrivateCreditAmountHUF + .OtherCompanyInfo = APCSheetHeader.OtherCompanyInfo + + + End With + +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub APCSheetByProductsOrderInRows_ListView_RefreshAction_Execute(sender As Object, e As SimpleActionExecuteEventArgs) + + End Sub + Private Sub aAPCSheetHeaderSetAPCStatus_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetHeaderSetAPCStatus.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeaderSetAPCStatus_PopUp As New APCSheetHeaderSetAPCStatus_PopUp(_onew.Session) + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + _APCSheetHeaderSetAPCStatus_PopUp.APCStatus = _APCSheetHeader.APCStatus + + e.View = Application.CreateDetailView(_onew, "APCSheetHeaderSetAPCStatus_PopUp_DetailView", True, _APCSheetHeaderSetAPCStatus_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeaderSetAPCStatus_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetHeaderSetAPCStatus.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetHeaderSetAPCStatus_PopUp As APCSheetHeaderSetAPCStatus_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetHeaderSetAPCStatus_PopUp)) + If _APCSheetHeaderSetAPCStatus_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Select Case _APCSheetHeaderSetAPCStatus_PopUp.APCStatus + Case eAPCStatus.eRegistered + _APCSheetHeader.APCStatus = eAPCStatus.eRegistered + Case eAPCStatus.eReject + _APCSheetHeader.APCStatus = eAPCStatus.eReject + Case eAPCStatus.eSigned + If _APCSheetHeader.APCStatus <> eAPCStatus.eRegistered Then Throw New Exception("*A termeltetsi szerzds nem iktatsi llapotban van!") + If _APCSheetHeader.PDFOriginal Is Nothing Then Throw New Exception("*Nincs becsatolva az eredeti dokumentum!") + If _APCSheetHeader.PDFSigned Is Nothing Then Throw New Exception("*Nincs becsatolva az alrt dokumentum!") + If _APCSheetHeader.SalespersonsProposal <> eSalespersonsProposal.eSuggest Then Throw New Exception("*Az zletktnek javasolnia kell a szerzdsktst!") + + Dim _APCSheetByTerritorial_Area As Double = 0 + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader)) + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + _APCSheetByTerritorial_Area += _APCSheetByTerritorial.Area + Next + + Dim _APCSheetByTerritorialNo_Area As Double = 0 + Dim _APCSheetByTerritorialNo_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader)) + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialNo_Collection + _APCSheetByTerritorialNo_Area += _APCSheetByTerritorial.Area + Next + + Dim _APCSheetPresentation_Area As Double = 0 + Dim _APCSheetPresentation_Collection As New XPCollection(Of APCSheetPresentation)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader)) + + For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetPresentation_Collection + _APCSheetPresentation_Area += _APCSheetPresentation.Area + Next + + _APCSheetByTerritorial_Area = Math.Round(_APCSheetByTerritorial_Area, 4, MidpointRounding.AwayFromZero) + _APCSheetByTerritorialNo_Area = Math.Round(_APCSheetByTerritorialNo_Area, 4, MidpointRounding.AwayFromZero) + _APCSheetPresentation_Area = Math.Round(_APCSheetPresentation_Area, 4, MidpointRounding.AwayFromZero) + If Math.Round(_APCSheetByTerritorial_Area + _APCSheetByTerritorialNo_Area, 2, MidpointRounding.AwayFromZero) <> Math.Round(_APCSheetPresentation_Area, 2, MidpointRounding.AwayFromZero) Then _ + Throw New Exception(String.Format("Nem egyezik meg a termelsbe bevont s termelsbe nem bevont terletek sszege a " + vbNewLine + _ + "bemutatkozs rovatban szerepl terletek sszegvel! Krem, ellenrizze! {0} {1}", Math.Round(_APCSheetByTerritorial_Area + _APCSheetByTerritorialNo_Area, 2, MidpointRounding.AwayFromZero), Math.Round(_APCSheetPresentation_Area, 2, MidpointRounding.AwayFromZero))) + + _APCSheetHeader.APCStatus = eAPCStatus.eSigned + Case eAPCStatus.eSendToBank + If _APCSheetHeader.APCStatus <> eAPCStatus.eSigned Then Throw New Exception("*A termeltetsi szerzds nem alrt llapotban van!") + + _APCSheetHeader.APCStatus = eAPCStatus.eSendToBank + Case eAPCStatus.eSendToInsurrance + If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToBank Then Throw New Exception("*A termeltetsi szerzds nem bankba klds llapotban van!") + If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak engedlyezett sttusz szerzds kldhet biztosthoz!") + If _APCSheetHeader.SendToBankDate.Year < GetSQLTime(_onew.Session).Year - 10 Then Throw New Exception("*Nincs belltva a banki dnts dtuma!") + + _APCSheetHeader.APCStatus = eAPCStatus.eSendToInsurrance + Case eAPCStatus.eAccepted + If _APCSheetHeader.APCStatus <> eAPCStatus.eSendToInsurrance Then Throw New Exception("*A termeltetsi szerzds nem biztosthoz klds llapotban van!") + If _APCSheetHeader.ManagementAcceptDocument Is Nothing Then Throw New Exception("*Nincs becsatolva az engedlyezsi okirat!") + If _APCSheetHeader.ManagementQualificationState <> eBankPreQualificationState.eAccept Then Throw New Exception("*Csak a bank ltal jvhagyott szerzds lehet elfogadott sttuszban!") + If _APCSheetHeader.ManagementDeferredPaymentDay = 0 Then Throw New Exception("*A halaszott fizetsi napok szma nem lehet nulla!") + If _APCSheetHeader.ManagementDeferredPaymentHUF = 0 Then Throw New Exception("*A jvhagyott sszeg rtke nem lehet nulla!") + If Math.Round(_APCSheetHeader.ManagementDeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) < Math.Round(_APCSheetHeader.DeferredPaymentHUF, 1, MidpointRounding.AwayFromZero) Then Throw New Exception("*A biztost ltal enegdlyezett sszeg kisebb, mint az zletkt ltal javasolt sszeg!") + If _APCSheetHeader.ManagementTerritorialArea = 0 Then Throw New Exception("*A jvhagyott terlet rtke nem lehet nulla!") + + _APCSheetHeader.APCStatus = eAPCStatus.eAccepted + End Select + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByTerritorial_New.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetByTerritorial_New_PopUp As New APCSheetByTerritorial_New_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "APCSheetByTerritorial_New_PopUp_DetailView", True, _APCSheetByTerritorial_New_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByTerritorial_New.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_New_PopUp As APCSheetByTerritorial_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_New_PopUp)) + If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader)) + + Dim _APCSheetByTerritorial As New APCSheetByTerritorial(_onew.Session) + With _APCSheetByTerritorial + .APCSheetHeader = _APCSheetHeader + .RowIndex = _APCSheetByTerritorial_Collection.Count + 1 + .Involved = True + .City = _APCSheetByTerritorial_New_PopUp.City + .LotNumber = _APCSheetByTerritorial_New_PopUp.LotNumber + .BlockNumber = _APCSheetByTerritorial_New_PopUp.BlockNumber + .Area = _APCSheetByTerritorial_New_PopUp.Area + .Products = _onew.GetObject(_APCSheetByTerritorial_New_PopUp.Products.Products) + .OwnerState = _APCSheetByTerritorial_New_PopUp.OwnerState + .DueDateRent = _APCSheetByTerritorial_New_PopUp.DueDateRent + End With + + Dim _APCSheetByProducts As APCSheetByProducts = _onew.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _APCSheetByTerritorial.Products)) + + If _APCSheetByProducts IsNot Nothing Then + _APCSheetByProducts.ContractQuantity += _APCSheetByTerritorial.Area + Else + _APCSheetByProducts = New APCSheetByProducts(_onew.Session) + With _APCSheetByProducts + .APCSheetHeader = _APCSheetHeader + .Products = _APCSheetByTerritorial.Products + .MaxContractQuantity = _APCSheetByTerritorial_New_PopUp.Products.MaxContractQuantity + .FundingHatoHUF = _APCSheetByTerritorial_New_PopUp.Products.FundingHatoHUF + .RowIndex = _APCSheetHeader.APCSheetByProducts.Count + .ColleteralHatoHUF = _APCSheetByTerritorial_New_PopUp.Products.CollateralhatoHUF + .ContractQuantity = _APCSheetByTerritorial_New_PopUp.Area + Dim _ActYear As Int32 = GetSQLTime(_onew.Session).Year + Dim _ActMonth As Int32 = 0 + Select Case _APCSheetByTerritorial_New_PopUp.Products.ProductExpirationDate + Case eMonths.eJanuary + _ActMonth = 1 + Case eMonths.eFebruary + _ActMonth = 2 + Case eMonths.eMarch + _ActMonth = 3 + Case eMonths.eApril + _ActMonth = 4 + Case eMonths.eMay + _ActMonth = 5 + Case eMonths.eJune + _ActMonth = 6 + Case eMonths.eJuly + _ActMonth = 7 + Case eMonths.eAugust + _ActMonth = 8 + Case eMonths.eSeptember + _ActMonth = 9 + Case eMonths.eOctober + _ActMonth = 10 + Case eMonths.eNovember + _ActMonth = 11 + Case eMonths.eDecember + _ActMonth = 12 + End Select + If GetSQLTime(_onew.Session).Month < 9 Then + .ProductExpirationDate = New Date(_ActYear, _ActMonth + 1, 1).AddDays(-1) + Else + .ProductExpirationDate = New Date(_ActYear + 1, _ActMonth + 1, 1).AddDays(-1) + End If + End With + End If + + 'Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _APCSheetByTerritorial.Products)) + 'If _APCSheetPresentation IsNot Nothing Then + ' _APCSheetPresentation.Area += _APCSheetByTerritorial_New_PopUp.Area + 'Else + ' _APCSheetPresentation = New APCSheetPresentation(_onew.Session) + ' With _APCSheetPresentation + ' .APCSheetHeader = _APCSheetHeader + ' .RowIndex = _APCSheetHeader.APCSheetPresentation.Count + ' .Products = _APCSheetByTerritorial.Products + ' .PresentationYear = _APCSheetByProducts.ProductExpirationDate.Year + ' .Area = _APCSheetByTerritorial.Area + ' End With + 'End If + + _APCSheetHeader.ManagementTerritorialArea += _APCSheetByProducts.ContractQuantity + _APCSheetHeader.TerritorialArea += _APCSheetByProducts.ContractQuantity + + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByProducts_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetByProducts_Delete.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetByProducts_DEL_Collection As New ArrayList + Dim _APCSheetPresentation_DEL_Collection As New ArrayList + Dim _APCSheetByTerritorial_DEL_Collection As New ArrayList + + For Each _APCSheetByProduct As APCSheetByProducts In View.SelectedObjects + _APCSheetByProducts_DEL_Collection.Add(_onew.GetObject(_APCSheetByProduct)) + Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _onew.GetObject(_APCSheetByProduct.Products))) + If _APCSheetPresentation IsNot Nothing Then _APCSheetPresentation_DEL_Collection.Add(_onew.GetObject(_APCSheetPresentation)) + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _onew.GetObject(_APCSheetByProduct.Products))) + If _APCSheetByTerritorial_Collection.Count > 0 Then + For Each _APCSheetByTerritorial_DEL As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + _APCSheetByTerritorial_DEL_Collection.Add(_onew.GetObject(_APCSheetByTerritorial_DEL)) + Next + End If + Next + + _onew.Delete(_APCSheetByProducts_DEL_Collection) + _onew.Delete(_APCSheetByTerritorial_DEL_Collection) + _onew.Delete(_APCSheetPresentation_DEL_Collection) + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetByTerritorial_Delete.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetPresentation_DEL_Collection As New ArrayList + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In View.SelectedObjects + _APCSheetPresentation_DEL_Collection.Add(_onew.GetObject(_APCSheetByTerritorial)) + Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _onew.GetObject(_APCSheetByTerritorial.Products))) + If _APCSheetPresentation IsNot Nothing Then + If _APCSheetPresentation.Area - _APCSheetByTerritorial.Area = 0 Then + _APCSheetPresentation_DEL_Collection.Add(_APCSheetPresentation) + Else + _APCSheetPresentation.Area -= _APCSheetByTerritorial.Area + End If + End If + + Dim _APCSheetByProducts As APCSheetByProducts = _onew.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _onew.GetObject(_APCSheetByTerritorial.Products))) + If _APCSheetByProducts IsNot Nothing Then + If _APCSheetByProducts.ContractQuantity - _APCSheetByTerritorial.Area = 0 Then + _APCSheetPresentation_DEL_Collection.Add(_APCSheetByProducts) + Else + _APCSheetByProducts.ContractQuantity -= _APCSheetByTerritorial.Area + End If + End If + Next + + _onew.Delete(_APCSheetPresentation_DEL_Collection) + + _onew.CommitChanges() + + Dim _RowNum As Long = 1 + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + If _APCSheetByTerritorial_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + _APCSheetByTerritorial.RowIndex = _RowNum + _RowNum += 1 + Next + End If + + Dim _APCSheetByProducts_Collection As New XPCollection(Of APCSheetByProducts)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _RowNum = 1 + If _APCSheetByProducts_Collection.Count > 0 Then + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetByProducts_Collection + _APCSheetByProducts.RowIndex = _RowNum + _RowNum += 1 + Next + End If + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetPresentation_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetPresentation_New.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _APCSheetPresentation_New_PopUp As New APCSheetPresentation_New_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "APCSheetPresentation_New_PopUp_DetailView", True, _APCSheetPresentation_New_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetPresentation_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetPresentation_New.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetPresentation_New_PopUp As APCSheetPresentation_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetPresentation_New_PopUp)) + If _APCSheetPresentation_New_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetPresentation As New APCSheetPresentation(_onew.Session) + With _APCSheetPresentation + .APCSheetHeader = _APCSheetHeader + .RowIndex = _APCSheetHeader.APCSheetPresentation.Count + .Products = _onew.GetObject(_APCSheetPresentation_New_PopUp.Products) + .Area = _APCSheetPresentation_New_PopUp.Area + .PresentationYear = _APCSheetPresentation_New_PopUp.PresentationYear + End With + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorialNo_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByTerritorialNo_New.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetByTerritorial_New_PopUp As New APCSheetByTerritorial_New_PopUp(_onew.Session) + _APCSheetByTerritorial_New_PopUp.NeedProducts = False + e.View = Application.CreateDetailView(_onew, "APCSheetByTerritorial_New_PopUp_DetailView", True, _APCSheetByTerritorial_New_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorialNo_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByTerritorialNo_New.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_New_PopUp As APCSheetByTerritorial_New_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_New_PopUp)) + If _APCSheetByTerritorial_New_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader)) + + Dim _APCSheetByTerritorial As New APCSheetByTerritorial(_onew.Session) + With _APCSheetByTerritorial + .APCSheetHeader = _APCSheetHeader + .RowIndex = _APCSheetByTerritorial_Collection.Count + 1 + .Involved = False + .City = _APCSheetByTerritorial_New_PopUp.City + .LotNumber = _APCSheetByTerritorial_New_PopUp.LotNumber + .BlockNumber = _APCSheetByTerritorial_New_PopUp.BlockNumber + .Area = _APCSheetByTerritorial_New_PopUp.Area + .Products = Nothing + .OwnerState = _APCSheetByTerritorial_New_PopUp.OwnerState + .DueDateRent = _APCSheetByTerritorial_New_PopUp.DueDateRent + End With + + 'Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND IsNull(Products)=True AND PresentationYear=?", _ + ' _APCSheetHeader, GetSQLTime(_onew.Session).Year + 1)) + 'If _APCSheetPresentation IsNot Nothing Then + ' _APCSheetPresentation.Area += _APCSheetByTerritorial.Area + 'Else + ' _APCSheetPresentation = New APCSheetPresentation(_onew.Session) + ' With _APCSheetPresentation + ' .APCSheetHeader = _APCSheetHeader + ' .RowIndex = _APCSheetHeader.APCSheetPresentation.Count + ' .Products = _APCSheetByTerritorial.Products + ' .PresentationYear = GetSQLTime(_onew.Session).Year + 1 + ' .Area = _APCSheetByTerritorial.Area + ' End With + 'End If + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorialNo_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetByTerritorialNo_Delete.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetPresentation_DEL_Collection As New ArrayList + ' Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND IsNull(Products)=True", _APCSheetHeader)) + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In View.SelectedObjects + _APCSheetPresentation_DEL_Collection.Add(_onew.GetObject(_APCSheetByTerritorial)) + ' If _APCSheetPresentation IsNot Nothing Then _APCSheetPresentation.Area -= _APCSheetByTerritorial.Area + Next + + 'If _APCSheetPresentation.Area = 0 Then _APCSheetPresentation_DEL_Collection.Add(_APCSheetPresentation) + + _onew.Delete(_APCSheetPresentation_DEL_Collection) + + _onew.CommitChanges() + + Dim _RowNum As Long = 1 + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader)) + If _APCSheetByTerritorial_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + _APCSheetByTerritorial.RowIndex = _RowNum + _RowNum += 1 + Next + _onew.CommitChanges() + End If + + OriginalObjectSpaceRefresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeaderCreate_Contracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetHeaderCreate_Contracts.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _APCSheetHeader.APCStatus <> eAPCStatus.eAccepted Then Throw New Exception("*Csak elfogatott sttusz adatlaprl lehet szerzdst ksztnei!") + If _APCSheetHeader.APCSheetByProducts.Count = 0 Then Throw New Exception("*Az adatlapnak nincs egyetlen olyan sora sem, melyrl szerzdst lehetne kszteni!") + Dim _APCSheetByProductsViewItem As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("APCSheetByProducts") + Dim _ContractNumber As Long = 0 + + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetByProductsViewItem.ListView.SelectedObjects + If _APCSheetByProducts.Contracts Is Nothing Then + _ContractNumber += 1 + Dim _ProductsFunding As ProductsFunding = _ocur.FindObject(Of ProductsFunding)(CriteriaOperator.Parse("Products=?", _APCSheetByProducts.Products)) + Dim _CurrencyName As CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + Dim _Contracts As New Contracts(_ocur.Session) + With _Contracts + .CustomersFrom = _APCSheetHeader.CustomersFrom + .Customers = _APCSheetHeader.Customers + .DateCreated = _APCSheetByProducts.ContractsSignatureDate + .ContractTemplate = _ProductsFunding.ContractTemplate + .CurrencyName = _CurrencyName + .CurrencyName_Invoice = _CurrencyName + .DocumentBody = .ContractTemplate.DocumentBody + .ShortName = _APCSheetHeader.ShortName + End With + + _APCSheetByProducts.Contracts = _Contracts + End If + Next + + If _ContractNumber = 0 Then Throw New Exception("*A kijellt sorok mindegyikhez tartozik szerzds!") + + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_Change_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByTerritorial_Change.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial As APCSheetByTerritorial = TryCast(View.SelectedObjects(0), APCSheetByTerritorial) + If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetByTerritorial_Change_PopUp As New APCSheetByTerritorial_Change_PopUp(_onew.Session) + With _APCSheetByTerritorial_Change_PopUp + .APCSheetHeader = _APCSheetHeader + .City = _APCSheetByTerritorial.City + .LotNumber = _APCSheetByTerritorial.LotNumber + .BlockNumber = _APCSheetByTerritorial.BlockNumber + .OwnerState = _APCSheetByTerritorial.OwnerState + .DueDateRent = _APCSheetByTerritorial.DueDateRent + End With + + e.View = Application.CreateDetailView(_onew, "APCSheetByTerritorial_Change_PopUp_DetailView", True, _APCSheetByTerritorial_Change_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_Change_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByTerritorial_Change.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial)) + If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Change_PopUp As APCSheetByTerritorial_Change_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_Change_PopUp)) + If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + With _APCSheetByTerritorial + .City = _APCSheetByTerritorial_Change_PopUp.City + .LotNumber = _APCSheetByTerritorial_Change_PopUp.LotNumber + .BlockNumber = _APCSheetByTerritorial_Change_PopUp.BlockNumber + .OwnerState = _APCSheetByTerritorial_Change_PopUp.OwnerState + .DueDateRent = _APCSheetByTerritorial_Change_PopUp.DueDateRent + End With + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_ChangeNo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByTerritorial_ChangeNo.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial As APCSheetByTerritorial = TryCast(View.SelectedObjects(0), APCSheetByTerritorial) + If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetByTerritorial_Change_PopUp As New APCSheetByTerritorial_Change_PopUp(_onew.Session) + With _APCSheetByTerritorial_Change_PopUp + .APCSheetHeader = _APCSheetHeader + .City = _APCSheetByTerritorial.City + .LotNumber = _APCSheetByTerritorial.LotNumber + .BlockNumber = _APCSheetByTerritorial.BlockNumber + .OwnerState = _APCSheetByTerritorial.OwnerState + .DueDateRent = _APCSheetByTerritorial.DueDateRent + End With + + e.View = Application.CreateDetailView(_onew, "APCSheetByTerritorial_Change_PopUp_DetailView", True, _APCSheetByTerritorial_Change_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_ChangeNo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByTerritorial_ChangeNo.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial)) + If _APCSheetByTerritorial Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Change_PopUp As APCSheetByTerritorial_Change_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_Change_PopUp)) + If _APCSheetByTerritorial_Change_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + With _APCSheetByTerritorial + .City = _APCSheetByTerritorial_Change_PopUp.City + .LotNumber = _APCSheetByTerritorial_Change_PopUp.LotNumber + .BlockNumber = _APCSheetByTerritorial_Change_PopUp.BlockNumber + .OwnerState = _APCSheetByTerritorial_Change_PopUp.OwnerState + .DueDateRent = _APCSheetByTerritorial_Change_PopUp.DueDateRent + End With + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_InvolvedOUT_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetByTerritorial_InvolvedOUT.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Orig As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial)) + If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _APCSheetByProductsReNumbering As Boolean = False + Dim _APCSheetPresentationReNumbering As Boolean = False + Dim _RowIndex As Long = 1 + + Dim _APCSheetByProducts As APCSheetByProducts = _onew.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _APCSheetByTerritorial_Orig.Products)) + If _APCSheetByProducts IsNot Nothing Then + If _APCSheetByProducts.ContractQuantity - _APCSheetByTerritorial_Orig.Area = 0 Then + _onew.Delete(_APCSheetByProducts) + _APCSheetByProductsReNumbering = True + Else + _APCSheetByProducts.ContractQuantity -= _APCSheetByTerritorial_Orig.Area + End If + End If + + Dim _APCSheetPresentationProducts As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _APCSheetByTerritorial_Orig.Products)) + If _APCSheetPresentationProducts IsNot Nothing Then + If _APCSheetPresentationProducts.Area - _APCSheetByTerritorial_Orig.Area = 0 Then + _onew.Delete(_APCSheetPresentationProducts) + _APCSheetPresentationReNumbering = True + Else + _APCSheetPresentationProducts.Area -= _APCSheetByTerritorial_Orig.Area + End If + End If + + Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND IsNull(Products)=True", _APCSheetHeader)) + If _APCSheetPresentation IsNot Nothing Then + _APCSheetPresentation.Area += _APCSheetByTerritorial_Orig.Area + Else + _APCSheetPresentation = New APCSheetPresentation(_onew.Session) + With _APCSheetPresentation + .APCSheetHeader = _APCSheetHeader + .RowIndex = _APCSheetHeader.APCSheetPresentation.Count + 1 + .Products = Nothing + .PresentationYear = GetSQLTime(_onew.Session).Year + 1 + .Area = _APCSheetByTerritorial_Orig.Area + End With + _APCSheetPresentationReNumbering = True + End If + + _APCSheetByTerritorial_Orig.Products = Nothing + _APCSheetByTerritorial_Orig.Involved = False + + _onew.CommitChanges() + + + If _APCSheetByProductsReNumbering Then + _RowIndex = 1 + Dim _APCSheetByProducts_Collection As New XPCollection(Of APCSheetByProducts)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + If _APCSheetByProducts_Collection.Count > 0 Then + For Each _APCSheetByProductsNumbering As APCSheetByProducts In _APCSheetByProducts_Collection + _APCSheetByProductsNumbering.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + End If + + If _APCSheetPresentationReNumbering Then + _RowIndex = 1 + Dim _APCSheetPresentation_Collection As New XPCollection(Of APCSheetPresentation)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + If _APCSheetPresentation_Collection.Count > 0 Then + For Each _APCSheetPresentationNumbering As APCSheetPresentation In _APCSheetPresentation_Collection + _APCSheetPresentationNumbering.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + End If + + _RowIndex = 1 + Dim _APCSheetByTerritorialInvolved_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + If _APCSheetByTerritorialInvolved_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialInvolved_Collection + _APCSheetByTerritorial.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + + _RowIndex = 1 + Dim _APCSheetByTerritorialNoInvolved_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader), New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + If _APCSheetByTerritorialNoInvolved_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialNoInvolved_Collection + _APCSheetByTerritorial.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_InvolvedIN_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetByTerritorial_InvolvedIN.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetByTerritorial_InvolvedIN_PopUp As New APCSheetByTerritorial_InvolvedIN_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "APCSheetByTerritorial_InvolvedIN_PopUp_DetailView", True, _APCSheetByTerritorial_InvolvedIN_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetByTerritorial_InvolvedIN_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetByTerritorial_InvolvedIN.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _APCSheetByTerritorial_Orig As APCSheetByTerritorial = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetByTerritorial)) + If _APCSheetByTerritorial_Orig Is Nothing Then Throw New Exception("*Nincs kijellve egyetlen sor sem!") + Dim _APCSheetByTerritorial_InvolvedIN_PopUp As APCSheetByTerritorial_InvolvedIN_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByTerritorial_InvolvedIN_PopUp)) + If _APCSheetByTerritorial_InvolvedIN_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding Is Nothing Then Throw New Exception("*Nem lett kivlasztva egyetlen termk sem a finanszrozshoz!" + _ + vbNewLine + "A folyamat megszakadt!") + + Dim _APCSheetByTerritorialInvolved_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=True", _APCSheetHeader)) + _APCSheetByTerritorial_Orig.Involved = True + _APCSheetByTerritorial_Orig.Products = _onew.GetObject(_APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.Products) + _APCSheetByTerritorial_Orig.RowIndex = _APCSheetByTerritorialInvolved_Collection.Count + 1 + + Dim _APCSheetPresentation_Products As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _onew.GetObject(_APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.Products))) + If _APCSheetPresentation_Products IsNot Nothing Then + _APCSheetPresentation_Products.Area += _APCSheetByTerritorial_Orig.Area + Else + _APCSheetPresentation_Products = New APCSheetPresentation(_onew.Session) + With _APCSheetPresentation_Products + .APCSheetHeader = _APCSheetHeader + .RowIndex = _APCSheetHeader.APCSheetPresentation.Count + .Area = _APCSheetByTerritorial_Orig.Area + .PresentationYear = GetSQLTime(_onew.Session).Year + 1 + .Products = _onew.GetObject(_APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.Products) + End With + End If + + Dim _APCSheetPresentation As APCSheetPresentation = _onew.FindObject(Of APCSheetPresentation)(CriteriaOperator.Parse("APCSheetHeader=? AND IsNull(Products)=True", _APCSheetHeader)) + If _APCSheetPresentation IsNot Nothing Then + If _APCSheetPresentation.Area - _APCSheetByTerritorial_Orig.Area = 0 Then + _onew.Delete(_APCSheetPresentation) + Else + _APCSheetPresentation.Area -= _APCSheetByTerritorial_Orig.Area + End If + End If + + Dim _APCSheetByProducts As APCSheetByProducts = _onew.FindObject(Of APCSheetByProducts)(CriteriaOperator.Parse("APCSheetHeader=? AND Products=?", _APCSheetHeader, _APCSheetByTerritorial_Orig.Products)) + If _APCSheetByProducts IsNot Nothing Then + _APCSheetByProducts.ContractQuantity += _APCSheetByTerritorial_Orig.Area + Else + _APCSheetByProducts = New APCSheetByProducts(_onew.Session) + With _APCSheetByProducts + .APCSheetHeader = _APCSheetHeader + .Products = _APCSheetByTerritorial_Orig.Products + .MaxContractQuantity = _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.MaxContractQuantity + .FundingHatoHUF = _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.FundingHatoHUF + .RowIndex = _APCSheetHeader.APCSheetByProducts.Count + .ColleteralHatoHUF = _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.CollateralhatoHUF + .ContractQuantity = _APCSheetByTerritorial_Orig.Area + Dim _ActYear As Int32 = GetSQLTime(_onew.Session).Year + Dim _ActMonth As Int32 = 0 + Select Case _APCSheetByTerritorial_InvolvedIN_PopUp.ProductsFunding.ProductExpirationDate + Case eMonths.eJanuary + _ActMonth = 1 + Case eMonths.eFebruary + _ActMonth = 2 + Case eMonths.eMarch + _ActMonth = 3 + Case eMonths.eApril + _ActMonth = 4 + Case eMonths.eMay + _ActMonth = 5 + Case eMonths.eJune + _ActMonth = 6 + Case eMonths.eJuly + _ActMonth = 7 + Case eMonths.eAugust + _ActMonth = 8 + Case eMonths.eSeptember + _ActMonth = 9 + Case eMonths.eOctober + _ActMonth = 10 + Case eMonths.eNovember + _ActMonth = 11 + Case eMonths.eDecember + _ActMonth = 12 + End Select + If GetSQLTime(_onew.Session).Month < 9 Then + .ProductExpirationDate = New Date(_ActYear, _ActMonth + 1, 1).AddDays(-1) + Else + .ProductExpirationDate = New Date(_ActYear + 1, _ActMonth + 1, 1).AddDays(-1) + End If + End With + End If + + _onew.CommitChanges() + + '<---===Kollekcik rendezse===---> + Dim _APCSheetPresentation_Collection As New XPCollection(Of APCSheetPresentation)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=?", _APCSheetHeader)) + Dim _RowIndex As Long = 1 + For Each _APCSheetPresentationCount As APCSheetPresentation In _APCSheetPresentation_Collection + _APCSheetPresentationCount.RowIndex = _RowIndex + _RowIndex += 1 + Next + + Dim _APCSheetByTerritorialNotInvolved_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Involved=False", _APCSheetHeader)) + _RowIndex = 1 + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialNotInvolved_Collection + _APCSheetByTerritorial.RowIndex = _RowIndex + _RowIndex += 1 + Next + + _onew.CommitChanges() + + OriginalObjectSpaceRefresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub OriginalObjectSpaceRefresh() + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + If parentView IsNot Nothing Then parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub APCSheetHeader_APCSheetPresentation_ListView_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + _APCSheetHeader.APCSheetPresentation.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _RowIndex As Long = 1 + For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader.APCSheetPresentation + _APCSheetPresentation.RowIndex = _RowIndex + _RowIndex += 1 + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_ReCalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetHeader_ReCalculate.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetHeader)) + If _APCSheetHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + + _APCSheetHeader.DeferredPaymentHUF = 0 + _APCSheetHeader.TerritorialArea = 0 + _APCSheetHeader.ManagementTerritorialArea = 0 + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetHeader.APCSheetByProducts + _APCSheetHeader.DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF + _APCSheetHeader.TerritorialArea += _APCSheetByProducts.ContractQuantity + _APCSheetHeader.ManagementTerritorialArea += _APCSheetByProducts.ContractQuantity + If _APCSheetByProducts.FundingDate = Date.MinValue Then + _APCSheetByProducts.FundingDate = _APCSheetByProducts.ProductExpirationDate + End If + Next + + _APCSheetHeader.SalesDeferredPaymentHUF = _APCSheetHeader.DeferredPaymentHUF + + _APCSheetHeader.EconomyArea = 0 + For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader.APCSheetPresentation + _APCSheetHeader.EconomyArea += _APCSheetPresentation.Area + Next + + _APCSheetHeader.EconomyAreaOwner = 0 + Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", _APCSheetHeader)) + If _APCSheetByTerritorialOwner_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection + _APCSheetHeader.EconomyAreaOwner += _APCSheetByTerritorial.Area + Next + End If + + _APCSheetHeader.EconomyAreaRent = 0 + Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", _APCSheetHeader)) + If _APCSheetByTerritorialRent_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection + _APCSheetHeader.EconomyAreaRent += _APCSheetByTerritorial.Area + Next + End If + + If _APCSheetHeader.DateSigned.Year > 1 Then + _APCSheetHeader.APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending)) + If _APCSheetHeader.APCSheetByProducts.Count > 0 Then + Dim _MaxDate As Date = _APCSheetHeader.APCSheetByProducts(0).ProductExpirationDate + _APCSheetHeader.DeferredPaymentDay = CType((_MaxDate - _APCSheetHeader.DateSigned).Days, Long) + Else + _APCSheetHeader.DeferredPaymentDay = 0 + End If + Else + _APCSheetHeader.DeferredPaymentDay = 0 + End If + _APCSheetHeader.ManagementDeferredPaymentDay = _APCSheetHeader.DeferredPaymentDay + If _APCSheetHeader.APCSheetByProducts.Count > 0 Then + _APCSheetHeader.MaxExpirationDate = _APCSheetHeader.APCSheetByProducts(0).ProductExpirationDate + End If + + + _onew.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_CreateReviewSheet_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetHeader_CreateReviewSheet.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + Dim _APCSheetByProducts_CollectionSource As New CollectionSource(_onew, GetType(APCSheetByProducts)) + + _APCSheetByProducts_CollectionSource.BeginUpdateCriteria() + _APCSheetByProducts_CollectionSource.Criteria.Add("Criteria", CriteriaOperator.Parse("APCSheetHeader=?", _onew.GetObject(_APCSheetHeader))) + _APCSheetByProducts_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("ProductsFunding_ListView", _APCSheetByProducts_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_CreateReviewSheet_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetHeader_CreateReviewSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + Dim _APCSheetByProducts_Select As APCSheetByProducts = TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetByProducts) + + + Dim _ReportData As ReportData = _APCSheetHeader.APCParameters.ReportDataReviewSheet + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!" + vbNewLine + "A folyamat megszakadt!") + + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Products=? AND Involved=True", _ + _APCSheetHeader, _ocur.GetObject(_APCSheetByProducts_Select.Products))) + Dim _OidArray As New ArrayList + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + _OidArray.Add(_APCSheetByTerritorial.Oid) + Next + + Dim _InOperator As New InOperator("Oid", _OidArray) + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _InOperator, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_OpenContract_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetHeader_OpenContract.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + Dim _APCSheetByProductsViewItem As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("APCSheetByProducts") + Dim _APCSheetByProducts As APCSheetByProducts = _APCSheetByProductsViewItem.ListView.SelectedObjects(0) + + If _APCSheetByProducts.Contracts IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Contracts_DetailView", True, _onew.GetObject(_APCSheetByProducts.Contracts)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_CreateAPCSheetreviewHeader_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetHeader_CreateAPCSheetreviewHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, APCSheetHeader) + Dim _APCSheetByProducts As APCSheetByProducts = TryCast(View.SelectedObjects(0), APCSheetByProducts) + If _APCSheetHeader IsNot Nothing Then + Dim _APCSheetByTerritorial_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND Products=? AND Involved=True", _APCSheetHeader, _APCSheetByProducts.Products)) + If _APCSheetByTerritorial_Collection.Count > 0 Then + Dim _APCSheetReviewHeader As New APCSheetReviewHeader(_ocur.Session) + With _APCSheetReviewHeader + .APCSheetByProducts = TryCast(View.SelectedObjects(0), APCSheetByProducts) + .Description = _APCSheetHeader.DocumentNumber + " - " + .APCSheetByProducts.Products.ShortName + End With + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorial_Collection + Dim _APCSheetReviewRows As New APCSheetReviewRows(_ocur.Session) + With _APCSheetReviewRows + .APCSheetReviewHeader = _APCSheetReviewHeader + .APCSheetByTerritorial = _APCSheetByTerritorial + End With + Next + + _ocur.CommitChanges() + End If + End If + End Sub + Private Sub aAPCSheetHeader_OpenAPCSheetReviewHeader_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheetHeader_OpenAPCSheetReviewHeader.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetReviewHeader As APCSheetReviewHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), APCSheetReviewHeader)) + + If _APCSheetReviewHeader IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "APCSheetReviewHeader_DetailView", True, _APCSheetReviewHeader) + End If + + End Sub + 'Private Sub aAPCSheetHeader_Clone_Execute(sender As Object, e As SimpleActionExecuteEventArgs) + ' Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + ' Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + ' Dim _YearString As String = Now.Year.ToString + ' RaiseEvent InitWork(1, 1, _APCSheetHeader.APCSheetByTerritorial.Count) + + ' If _APCSheetHeader IsNot Nothing Then + ' Dim _APCSheetHeader_NEW As New APCSheetHeader(_ocur.Session) + + ' With _APCSheetHeader_NEW + ' .APCParameters = Nothing '_APCSheetHeader.APCParameters Laci krse 2013.09.17 + ' .HRPerson = _APCSheetHeader.HRPerson + ' .Customers = _APCSheetHeader.Customers + ' .Contacts = _APCSheetHeader.Contacts + ' .ContactsWithFullRight = _APCSheetHeader.ContactsWithFullRight + ' .CustomersFrom = _APCSheetHeader.CustomersFrom + ' .CropProtectionSpecialist = _APCSheetHeader.CropProtectionSpecialist + ' .ShortName = _APCSheetHeader.ShortName + ' .APCStatus = eAPCStatus.eRegistered + ' .PDFOriginal = Nothing + ' .PDFSigned = Nothing + ' .IsNewContact = True + ' .PaymentDiscipline = _APCSheetHeader.PaymentDiscipline + ' .CleanerDryerMachinetype = _APCSheetHeader.CleanerDryerMachinetype + ' .CleanerDryerMachineCapacity = _APCSheetHeader.CleanerDryerMachineCapacity + ' .ShipmentCapacityMachine = _APCSheetHeader.ShipmentCapacityMachine + ' .ShipmentCapacityAmount = _APCSheetHeader.ShipmentCapacityAmount + ' .StorageCapacitybyFlat = _APCSheetHeader.StorageCapacitybyFlat + ' .StorageCapacitybySilo = _APCSheetHeader.StorageCapacitybySilo + ' .MachineryTractors = _APCSheetHeader.MachineryTractors + ' .MachineryTillage = _APCSheetHeader.MachineryTillage + ' .MachineryHarvesting = _APCSheetHeader.MachineryHarvesting + ' .MachineryFighting = _APCSheetHeader.MachineryFighting + ' .MachinerySeedDrill = _APCSheetHeader.MachinerySeedDrill + ' .MachinerySpecial = _APCSheetHeader.MachinerySpecial + ' .EconomyMajorCropsGrown = _APCSheetHeader.EconomyMajorCropsGrown + ' .MainCustomers = _APCSheetHeader.MainCustomers + ' .Description = _APCSheetHeader.Description + ' .TerritorialArea = 0 + ' .DeferredPaymentDay = 0 + ' .DeferredPaymentHUF = 0 + ' .SalespersonsProposal = eSalespersonsProposal.eNotRecommended + ' .SalesDeferredPaymentHUF = 0 + ' .BankPreQualificationState = eBankPreQualificationState.eNotSet + ' .ManagementQualificationState = eManagementQualificationState.eNotSet + ' .ManagementDeferredPaymentDay = 0 + ' .ManagementDeferredPaymentHUF = 0 + ' .ManagementTerritorialArea = 0 + ' .ManagementAcceptType = eManagementAcceptType.eNotSet + ' .ManagementAcceptDocument = Nothing + ' .ManagementAcceptPerson = Nothing + ' .Activity = _APCSheetHeader.Activity + ' .ActivityStartDate = _APCSheetHeader.ActivityStartDate + ' .IsPrivateCredit = _APCSheetHeader.IsPrivateCredit + ' .IsPrivateCreditAmountHUF = _APCSheetHeader.IsPrivateCreditAmountHUF + ' .OtherCompanyInfo = _APCSheetHeader.OtherCompanyInfo + ' .APCSheetAdministrator = _APCSheetHeader.APCSheetAdministrator + ' .APCSheetContractHandlingPlace = _APCSheetHeader.APCSheetContractHandlingPlace + + ' 'Sorszm 08.31 utn a kvetkez v ! + ' 'If GetSQLTime(_ocur.Session).Month > 8 Then + ' ' _YearString = (GetSQLTime(_ocur.Session).Year + 1).ToString + ' ' .DocumentNumber = .APCParameters.NumberGenerator.GetNewNumber(.APCParameters.NumberGenerator, _YearString) + ' 'End If + + ' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetHeader.APCSheetByTerritorial + ' Dim _APCSheetByTerritorial_NEW As New APCSheetByTerritorial(_ocur.Session) + ' With _APCSheetByTerritorial_NEW + ' .APCSheetHeader = _APCSheetHeader_NEW + ' .RowIndex = _APCSheetByTerritorial.RowIndex + ' .Involved = False + ' .City = _APCSheetByTerritorial.City + ' .LotNumber = _APCSheetByTerritorial.LotNumber + ' .BlockNumber = _APCSheetByTerritorial.BlockNumber + ' .Area = _APCSheetByTerritorial.Area + ' .Products = _APCSheetByTerritorial.Products + ' .OwnerState = _APCSheetByTerritorial.OwnerState + ' .DueDateRent = _APCSheetByTerritorial.DueDateRent + ' End With + ' RaiseEvent DoWork() + ' Next + + ' End With + + ' _ocur.CommitChanges() + + ' 'Recalculate + ' _APCSheetHeader_NEW.DeferredPaymentHUF = 0 + ' _APCSheetHeader_NEW.TerritorialArea = 0 + ' _APCSheetHeader_NEW.ManagementTerritorialArea = 0 + ' For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetHeader_NEW.APCSheetByProducts + ' _APCSheetHeader_NEW.DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF + ' _APCSheetHeader_NEW.TerritorialArea += _APCSheetByProducts.ContractQuantity + ' _APCSheetHeader_NEW.ManagementTerritorialArea += _APCSheetByProducts.ContractQuantity + ' Next + + ' _APCSheetHeader_NEW.SalesDeferredPaymentHUF = _APCSheetHeader_NEW.DeferredPaymentHUF + + ' _APCSheetHeader_NEW.EconomyArea = 0 + ' For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader_NEW.APCSheetPresentation + ' _APCSheetHeader_NEW.EconomyArea += _APCSheetPresentation.Area + ' Next + + ' _APCSheetHeader_NEW.EconomyAreaOwner = 0 + ' Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", _APCSheetHeader_NEW)) + ' If _APCSheetByTerritorialOwner_Collection.Count > 0 Then + ' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection + ' _APCSheetHeader_NEW.EconomyAreaOwner += _APCSheetByTerritorial.Area + ' Next + ' End If + + ' _APCSheetHeader_NEW.EconomyAreaRent = 0 + ' Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", _APCSheetHeader_NEW)) + ' If _APCSheetByTerritorialRent_Collection.Count > 0 Then + ' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection + ' _APCSheetHeader_NEW.EconomyAreaRent += _APCSheetByTerritorial.Area + ' Next + ' End If + + ' If _APCSheetHeader_NEW.DateSigned.Year > 1 Then + ' _APCSheetHeader_NEW.APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending)) + ' If _APCSheetHeader_NEW.APCSheetByProducts.Count > 0 Then + ' Dim _MaxDate As Date = _APCSheetHeader_NEW.APCSheetByProducts(0).ProductExpirationDate + ' _APCSheetHeader_NEW.DeferredPaymentDay = CType((_MaxDate - _APCSheetHeader_NEW.DateSigned).Days, Long) + ' Else + ' _APCSheetHeader_NEW.DeferredPaymentDay = 0 + ' End If + ' Else + ' _APCSheetHeader_NEW.DeferredPaymentDay = 0 + ' End If + ' _APCSheetHeader_NEW.ManagementDeferredPaymentDay = _APCSheetHeader_NEW.DeferredPaymentDay + ' If _APCSheetHeader.APCSheetByProducts.Count > 0 Then + ' _APCSheetHeader.MaxExpirationDate = _APCSheetHeader.APCSheetByProducts(0).ProductExpirationDate + ' End If + + ' _ocur.CommitChanges() + + ' RaiseEvent FinalWork + + ' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + ' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "APCSheetHeader_DetailView", True, _onew.GetObject(_APCSheetHeader_NEW)) + ' End If + + 'End Sub + Private Sub aAPCSheet_PSPH_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheet_PSPH_Print.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH = TryCast(View.SelectedObjects(0), APCSheetByProductsSalesPolicyH) + If _APCSheetByProductsSalesPolicyH IsNot Nothing Then + Dim _APCParameters As APCParameters = _ocur.FindObject(Of APCParameters)(CriteriaOperator.Parse("CustomersFrom=?", _APCSheetByProductsSalesPolicyH.CustomersFrom)) + If _APCParameters IsNot Nothing Then + Dim _ReportData As ReportData = _APCParameters.ReportDataSalesPolicy + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("APCSheetByProductsSalesPolicyH.Oid=?", _APCSheetByProductsSalesPolicyH.Oid), True) + End If + End If + + End If + End Sub + Private Sub aAPCSheet_PSPH_GeneratePDFFile_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAPCSheet_PSPH_GeneratePDFFile.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetByProductsSalesPolicyH As APCSheetByProductsSalesPolicyH = TryCast(View.SelectedObjects(0), APCSheetByProductsSalesPolicyH) + If _APCSheetByProductsSalesPolicyH IsNot Nothing Then + Dim _APCParameters As APCParameters = _ocur.FindObject(Of APCParameters)(CriteriaOperator.Parse("CustomersFrom=?", _APCSheetByProductsSalesPolicyH.CustomersFrom)) + If _APCParameters IsNot Nothing Then + Dim _ReportData As ReportData = _APCParameters.ReportDataSalesPolicy + If _ReportData IsNot Nothing Then + + + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + + Dim _FilterString As String = "[APCSheetByProductsSalesPolicyH.Oid]='" & _APCSheetByProductsSalesPolicyH.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = System.IO.Path.GetTempPath & _APCSheetByProductsSalesPolicyH.DocumentNumber & " nyilatkozat.pdf" + Dim _StreamFile As New System.IO.FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + Dim _StreamFile2 As New FileStream(_FileName, FileMode.Open) + + _APCSheetByProductsSalesPolicyH.FileData = New FileData(_ocur.Session) + _APCSheetByProductsSalesPolicyH.FileData.LoadFromStream(_APCSheetByProductsSalesPolicyH.DocumentNumber & " nyilatkozat.pdf", _StreamFile2) + _StreamFile2.Close() + + _ocur.CommitChanges() + + If File.Exists(_FileName) Then File.Delete(_FileName) + End If + End If + End If + End Sub + Private Sub aAPCSheetHeader_Clones_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAPCSheetHeader_Clones.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _APCSheetHeaderSetAPCParameters_PopUp As New APCSheetHeaderSetAPCParameters_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "APCSheetHeaderSetAPCParameters_PopUp_DetailView", True, _APCSheetHeaderSetAPCParameters_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aAPCSheetHeader_Clones_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAPCSheetHeader_Clones.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetHeader As APCSheetHeader = TryCast(View.SelectedObjects(0), APCSheetHeader) + Dim _YearString As String = Now.Year.ToString + Dim _APCSheetHeaderSetAPCParameters_PopUp As APCSheetHeaderSetAPCParameters_PopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), APCSheetHeaderSetAPCParameters_PopUp)) + + 'If _APCSheetHeaderSetAPCParameters_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + 'If _APCSheetHeaderSetAPCParameters_PopUp.APCParameter Is Nothing Then Throw New Exception("*Nem lett kivlasztva egyetlen paramter sem a termeltetsi adatlaphoz!" + _ + ' vbNewLine + "A folyamat megszakadt!") + + Try + RaiseEvent InitWork(1, 1, _APCSheetHeader.APCSheetByTerritorial.Count) + + If _APCSheetHeader IsNot Nothing Then + Dim _APCSheetHeader_NEW As New APCSheetHeader(_ocur.Session) + + With _APCSheetHeader_NEW + .APCParameters = _ocur.GetObject(_APCSheetHeaderSetAPCParameters_PopUp.APCParameter) '_APCSheetHeader.APCParameters Laci krse 2013.09.17 + .HRPerson = _APCSheetHeader.HRPerson + .Customers = _APCSheetHeader.Customers + .Contacts = _APCSheetHeader.Contacts + .ContactsWithFullRight = _APCSheetHeader.ContactsWithFullRight + .CustomersFrom = _APCSheetHeader.CustomersFrom + .CropProtectionSpecialist = _APCSheetHeader.CropProtectionSpecialist + .ShortName = _APCSheetHeader.ShortName + .APCStatus = eAPCStatus.eRegistered + .PDFOriginal = Nothing + .PDFSigned = Nothing + .IsNewContact = True + .PaymentDiscipline = _APCSheetHeader.PaymentDiscipline + .CleanerDryerMachinetype = _APCSheetHeader.CleanerDryerMachinetype + .CleanerDryerMachineCapacity = _APCSheetHeader.CleanerDryerMachineCapacity + .ShipmentCapacityMachine = _APCSheetHeader.ShipmentCapacityMachine + .ShipmentCapacityAmount = _APCSheetHeader.ShipmentCapacityAmount + .StorageCapacitybyFlat = _APCSheetHeader.StorageCapacitybyFlat + .StorageCapacitybySilo = _APCSheetHeader.StorageCapacitybySilo + .MachineryTractors = _APCSheetHeader.MachineryTractors + .MachineryTillage = _APCSheetHeader.MachineryTillage + .MachineryHarvesting = _APCSheetHeader.MachineryHarvesting + .MachineryFighting = _APCSheetHeader.MachineryFighting + .MachinerySeedDrill = _APCSheetHeader.MachinerySeedDrill + .MachinerySpecial = _APCSheetHeader.MachinerySpecial + .EconomyMajorCropsGrown = _APCSheetHeader.EconomyMajorCropsGrown + .MainCustomers = _APCSheetHeader.MainCustomers + .Description = _APCSheetHeader.Description + .TerritorialArea = 0 + .DeferredPaymentDay = 0 + .DeferredPaymentHUF = 0 + .SalespersonsProposal = eSalespersonsProposal.eNotRecommended + .SalesDeferredPaymentHUF = 0 + .BankPreQualificationState = eBankPreQualificationState.eNotSet + .ManagementQualificationState = eManagementQualificationState.eNotSet + .ManagementDeferredPaymentDay = 0 + .ManagementDeferredPaymentHUF = 0 + .ManagementTerritorialArea = 0 + .ManagementAcceptType = eManagementAcceptType.eNotSet + .ManagementAcceptDocument = Nothing + .ManagementAcceptPerson = Nothing + .Activity = _APCSheetHeader.Activity + .ActivityStartDate = _APCSheetHeader.ActivityStartDate + .IsPrivateCredit = _APCSheetHeader.IsPrivateCredit + .IsPrivateCreditAmountHUF = _APCSheetHeader.IsPrivateCreditAmountHUF + .OtherCompanyInfo = _APCSheetHeader.OtherCompanyInfo + .APCSheetAdministrator = _APCSheetHeader.APCSheetAdministrator + .APCSheetContractHandlingPlace = _APCSheetHeader.APCSheetContractHandlingPlace + + 'Sorszm 08.31 utn a kvetkez v ! + 'If GetSQLTime(_ocur.Session).Month > 8 Then + ' _YearString = (GetSQLTime(_ocur.Session).Year + 1).ToString + ' .DocumentNumber = .APCParameters.NumberGenerator.GetNewNumber(.APCParameters.NumberGenerator, _YearString) + 'End If + + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetHeader.APCSheetByTerritorial + Dim _APCSheetByTerritorial_NEW As New APCSheetByTerritorial(_ocur.Session) + With _APCSheetByTerritorial_NEW + .APCSheetHeader = _APCSheetHeader_NEW + .RowIndex = _APCSheetByTerritorial.RowIndex + .Involved = False + .City = _APCSheetByTerritorial.City + .LotNumber = _APCSheetByTerritorial.LotNumber + .BlockNumber = _APCSheetByTerritorial.BlockNumber + .Area = _APCSheetByTerritorial.Area + .Products = _APCSheetByTerritorial.Products + .OwnerState = _APCSheetByTerritorial.OwnerState + .DueDateRent = _APCSheetByTerritorial.DueDateRent + End With + RaiseEvent DoWork() + Next + + End With + + _ocur.CommitChanges() + + 'Recalculate + _APCSheetHeader_NEW.DeferredPaymentHUF = 0 + _APCSheetHeader_NEW.TerritorialArea = 0 + _APCSheetHeader_NEW.ManagementTerritorialArea = 0 + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetHeader_NEW.APCSheetByProducts + _APCSheetHeader_NEW.DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF + _APCSheetHeader_NEW.TerritorialArea += _APCSheetByProducts.ContractQuantity + _APCSheetHeader_NEW.ManagementTerritorialArea += _APCSheetByProducts.ContractQuantity + Next + + _APCSheetHeader_NEW.SalesDeferredPaymentHUF = _APCSheetHeader_NEW.DeferredPaymentHUF + + _APCSheetHeader_NEW.EconomyArea = 0 + For Each _APCSheetPresentation As APCSheetPresentation In _APCSheetHeader_NEW.APCSheetPresentation + _APCSheetHeader_NEW.EconomyArea += _APCSheetPresentation.Area + Next + + _APCSheetHeader_NEW.EconomyAreaOwner = 0 + Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", _APCSheetHeader_NEW)) + If _APCSheetByTerritorialOwner_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection + _APCSheetHeader_NEW.EconomyAreaOwner += _APCSheetByTerritorial.Area + Next + End If + + _APCSheetHeader_NEW.EconomyAreaRent = 0 + Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(_ocur.Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", _APCSheetHeader_NEW)) + If _APCSheetByTerritorialRent_Collection.Count > 0 Then + For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection + _APCSheetHeader_NEW.EconomyAreaRent += _APCSheetByTerritorial.Area + Next + End If + + If _APCSheetHeader_NEW.DateSigned.Year > 1 Then + _APCSheetHeader_NEW.APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending)) + If _APCSheetHeader_NEW.APCSheetByProducts.Count > 0 Then + Dim _MaxDate As Date = _APCSheetHeader_NEW.APCSheetByProducts(0).ProductExpirationDate + _APCSheetHeader_NEW.DeferredPaymentDay = CType((_MaxDate - _APCSheetHeader_NEW.DateSigned).Days, Long) + Else + _APCSheetHeader_NEW.DeferredPaymentDay = 0 + End If + Else + _APCSheetHeader_NEW.DeferredPaymentDay = 0 + End If + _APCSheetHeader_NEW.ManagementDeferredPaymentDay = _APCSheetHeader_NEW.DeferredPaymentDay + If _APCSheetHeader.APCSheetByProducts.Count > 0 Then + _APCSheetHeader.MaxExpirationDate = _APCSheetHeader.APCSheetByProducts(0).ProductExpirationDate + End If + + _ocur.CommitChanges() + + + + 'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + 'e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "APCSheetHeader_DetailView", True, _onew.GetObject(_APCSheetHeader_NEW)) + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork() + End Try + + End Sub + + Private Sub APCSheetHeaderSetAPCParameters_PopUp_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Dim _APCSheetHeaderSetAPCParameters_PopUp As APCSheetHeaderSetAPCParameters_PopUp = TryCast(View.SelectedObjects(0), APCSheetHeaderSetAPCParameters_PopUp) + If _APCSheetHeaderSetAPCParameters_PopUp.APCParameter Is Nothing Then + e.Cancel = True + MsgBox("A paramreteket ktelez megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/Agricultural.cd b/SISBusiness.Module/BusinessObjects/Business/Agricultural/Agricultural.cd new file mode 100644 index 0000000..24fd86c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/Agricultural.cd @@ -0,0 +1,136 @@ + + + + + + + + + + + + NB9AWIIIBGQuCsJCRqKERMkwBdQQKfJ2CgC4Bm3LwBI= + BusinessObjects\Business\Agricultural\APCSheetHeader.vb + + + + + + + + + + + + CACQECAgEQAAAIQAgABACAIAAgAIBCQgkAgAoYAQAAY= + BusinessObjects\Business\Agricultural\APCSheetByProducts.vb + + + + + + + + AABAAQAAAQAAEoAIAAAAgAAIAgAIBQAggAAAAyEQAAQ= + BusinessObjects\Business\Agricultural\APCSheetByTerritorial.vb + + + + + + + + AAAQAAAAAAQAAIAAAAAAAAAAAgQAAAAgAABAAQAAAAY= + BusinessObjects\Business\Agricultural\ProductsFunding.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_Change_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_Change_PopUp.vb new file mode 100644 index 0000000..5955b84 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_Change_PopUp.vb @@ -0,0 +1,106 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetByTerritorial_Change_PopUp + Inherits BaseObject + + Private _APCSheetHeader As APCSheetHeader + Private _City As String 'telepls + Private _LotNumber As String 'Helyrajzi szm + Private _BlockNumber As String 'Termterlethez tartoz blokkszm + Private _OwnerState As eOwnerState 'Brl vagy tulajdonos + Private _DueDateRent As Date 'Brlet lejrta dtuma + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property APCSheetHeader As APCSheetHeader + Get + Return _APCSheetHeader + End Get + Set(value As APCSheetHeader) + SetPropertyValue("APCSheetHeader", _APCSheetHeader, value) + End Set + End Property + _ + Property City As String + Get + Return _City + End Get + Set(value As String) + SetPropertyValue("City", _City, value) + End Set + End Property + _ + Property LotNumber As String + Get + Return _LotNumber + End Get + Set(value As String) + SetPropertyValue("LotNumber", _LotNumber, value) + End Set + End Property + _ + Property BlockNumber As String + Get + Return _BlockNumber + End Get + Set(value As String) + SetPropertyValue("BlockNumber", _BlockNumber, value) + End Set + End Property + Property OwnerState As eOwnerState + Get + Return _OwnerState + End Get + Set(value As eOwnerState) + SetPropertyValue("OwnerState", _OwnerState, value) + End Set + End Property + Property DueDateRent As Date + Get + Return _DueDateRent + End Get + Set(value As Date) + SetPropertyValue("DueDateRent", _DueDateRent, value) + End Set + End Property + _ + ReadOnly Property TerritorialProducts As XPCollection(Of Products) + Get + Dim _ProductsCoollection As XPCollection(Of Products) = Nothing + + If APCSheetHeader IsNot Nothing Then + If APCSheetHeader.APCSheetByProducts.Count > 0 Then + Dim _Filter As String = "Oid in(" + + For Each _APCSheetByProducts As APCSheetByProducts In APCSheetHeader.APCSheetByProducts + _Filter += "'" + _APCSheetByProducts.Products.Oid.ToString + "'," + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + _ProductsCoollection = New XPCollection(Of Products)(Session, CriteriaOperator.Parse(_Filter)) + End If + End If + + Return _ProductsCoollection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_InvolvedIN_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_InvolvedIN_PopUp.vb new file mode 100644 index 0000000..9f0043b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_InvolvedIN_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetByTerritorial_InvolvedIN_PopUp + Inherits BaseObject + + Private _ProductsFunding As ProductsFunding + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ProductsFunding As ProductsFunding + Get + Return _ProductsFunding + End Get + Set(value As ProductsFunding) + SetPropertyValue("ProductsFunding", _ProductsFunding, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_New_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_New_PopUp.vb new file mode 100644 index 0000000..33b28cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetByTerritorial_New_PopUp.vb @@ -0,0 +1,114 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class APCSheetByTerritorial_New_PopUp + Inherits BaseObject + + Private _City As String 'telepls + Private _LotNumber As String 'Helyrajzi szm + Private _BlockNumber As String 'Termterlethez tartoz blokkszm + Private _Area As Double 'termterlet mrete ha + Private _Products As ProductsFunding + Private _OwnerState As eOwnerState 'Brl vagy tulajdonos + Private _DueDateRent As Date 'Brlet lejrta dtuma + Private _NeedProducts As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + NeedProducts = True + End Sub + + _ + Property City As String + Get + Return _City + End Get + Set(value As String) + SetPropertyValue("City", _City, value) + End Set + End Property + _ + Property LotNumber As String + Get + Return _LotNumber + End Get + Set(value As String) + SetPropertyValue("LotNumber", _LotNumber, value) + End Set + End Property + _ + Property BlockNumber As String + Get + Return _BlockNumber + End Get + Set(value As String) + SetPropertyValue("BlockNumber", _BlockNumber, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property + _ + Property Products As ProductsFunding + Get + Return _Products + End Get + Set(value As ProductsFunding) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property OwnerState As eOwnerState + Get + Return _OwnerState + End Get + Set(value As eOwnerState) + SetPropertyValue("OwnerState", _OwnerState, value) + End Set + End Property + Property DueDateRent As Date + Get + Return _DueDateRent + End Get + Set(value As Date) + SetPropertyValue("DueDateRent", _DueDateRent, value) + End Set + End Property + _ + Property NeedProducts As Boolean + Get + Return _NeedProducts + End Get + Set(value As Boolean) + SetPropertyValue("NeedProducts", _NeedProducts, value) + End Set + End Property + _ + ReadOnly Property TerritorialProducts As XPCollection(Of ProductsFunding) + Get + Dim _ProductsCoollection As New XPCollection(Of ProductsFunding)(Session) + Return _ProductsCoollection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCParameters_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCParameters_PopUp.vb new file mode 100644 index 0000000..b913b2d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCParameters_PopUp.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetHeaderSetAPCParameters_PopUp + Inherits BaseObject + + Private _APCParameter As APCParameters + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + ' _ + Property APCParameter As APCParameters + Get + Return _APCParameter + End Get + Set(value As APCParameters) + SetPropertyValue("APCParameter", _APCParameter, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCStatus_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCStatus_PopUp.vb new file mode 100644 index 0000000..97dde9d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetHeaderSetAPCStatus_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetHeaderSetAPCStatus_PopUp + Inherits BaseObject + + Private _APCStatus As eAPCStatus + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property APCStatus As eAPCStatus + Get + Return _APCStatus + End Get + Set(value As eAPCStatus) + SetPropertyValue("APCStatus", _APCStatus, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetPresentation_New_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetPresentation_New_PopUp.vb new file mode 100644 index 0000000..9dd67c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/PopUp/APCSheetPresentation_New_PopUp.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class APCSheetPresentation_New_PopUp + Inherits BaseObject + + Private _Products As Products + Private _PresentationYear As Long 'v + Private _Area As Double 'Tervezett megmvelt terlet + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property PresentationYear As Long + Get + Return _PresentationYear + End Get + Set(value As Long) + SetPropertyValue("PresentationYear", _PresentationYear, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Agricultural/ProductsFunding.vb b/SISBusiness.Module/BusinessObjects/Business/Agricultural/ProductsFunding.vb new file mode 100644 index 0000000..1a8e6d7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Agricultural/ProductsFunding.vb @@ -0,0 +1,102 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eMonths + eJanuary = 1 + eFebruary = 2 + eMarch = 3 + eApril = 4 + eMay = 5 + eJune = 6 + eJuly = 7 + eAugust = 8 + eSeptember = 9 + eOctober = 10 + eNovember = 11 + eDecember = 12 +End Enum + + _ + _ + _ + _ +Public Class ProductsFunding + Inherits BaseObject + + Private _Products As Products 'Termk + Private _MaxContractQuantity As Double 'Max szerzdhet mennyisg hektronknt + Private _FundingHatoHUF As Double 'Egysgre jut finanszrozs /ha /tonna + Private _CollateralhatoHUF As Double 'Egysgre jut fedezeti rtk /ha + Private _ProductExpirationDate As eMonths 'Lejrati dtum + Private _ContractTemplate As ContractTemplate + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + _ + Property MaxContractQuantity As Double + Get + Return _MaxContractQuantity + End Get + Set(value As Double) + SetPropertyValue("MaxContractQuantity", _MaxContractQuantity, value) + End Set + End Property + _ + Property FundingHatoHUF As Double + Get + Return _FundingHatoHUF + End Get + Set(value As Double) + SetPropertyValue("FundingHatoHUF", _FundingHatoHUF, value) + End Set + End Property + _ + Property CollateralhatoHUF As Double + Get + Return _CollateralhatoHUF + End Get + Set(value As Double) + SetPropertyValue("CollateralhatoHUF", _CollateralhatoHUF, value) + End Set + End Property + _ + Property ProductExpirationDate As eMonths + Get + Return _ProductExpirationDate + End Get + Set(value As eMonths) + SetPropertyValue("ProductExpirationDate", _ProductExpirationDate, value) + End Set + End Property + _ + Property ContractTemplate As ContractTemplate + Get + Return _ContractTemplate + End Get + Set(value As ContractTemplate) + SetPropertyValue("ContractTemplate", _ContractTemplate, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.Designer.vb new file mode 100644 index 0000000..7d9b5b9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.Designer.vb @@ -0,0 +1,144 @@ +Partial Class CertificateOfContractVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aFinalCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintCertificateOfContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStornoCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMakeEditableCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecalculateCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aFinalCOC + ' + Me.aFinalCOC.Caption = "Final COC" + Me.aFinalCOC.Category = "ObjectsCreation" + Me.aFinalCOC.ConfirmationMessage = "Do you want to execute command ?" + Me.aFinalCOC.Id = "aFinalCOC" + Me.aFinalCOC.ImageName = "MenuBar_SaveAndClose" + Me.aFinalCOC.Shortcut = Nothing + Me.aFinalCOC.Tag = Nothing + Me.aFinalCOC.TargetObjectsCriteria = Nothing + Me.aFinalCOC.TargetViewId = Nothing + Me.aFinalCOC.ToolTip = Nothing + Me.aFinalCOC.TypeOfView = Nothing + ' + 'aPrintCertificateOfContract + ' + Me.aPrintCertificateOfContract.Caption = "aPrint Certificate Of Contract" + Me.aPrintCertificateOfContract.Category = "View" + Me.aPrintCertificateOfContract.ConfirmationMessage = "Do you want to execute command?" + Me.aPrintCertificateOfContract.Id = "aPrintCertificateOfContract" + Me.aPrintCertificateOfContract.ImageName = Nothing + Me.aPrintCertificateOfContract.Shortcut = Nothing + Me.aPrintCertificateOfContract.Tag = Nothing + Me.aPrintCertificateOfContract.TargetObjectsCriteria = Nothing + Me.aPrintCertificateOfContract.TargetViewId = "" + Me.aPrintCertificateOfContract.ToolTip = Nothing + Me.aPrintCertificateOfContract.TypeOfView = Nothing + ' + 'aStornoCOC + ' + Me.aStornoCOC.Caption = "Storno COC" + Me.aStornoCOC.ConfirmationMessage = "Do you want to execute command ?" + Me.aStornoCOC.Id = "aStornoCOC" + Me.aStornoCOC.ImageName = Nothing + Me.aStornoCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStornoCOC.Shortcut = Nothing + Me.aStornoCOC.Tag = Nothing + Me.aStornoCOC.TargetObjectsCriteria = Nothing + Me.aStornoCOC.TargetViewId = Nothing + Me.aStornoCOC.ToolTip = Nothing + Me.aStornoCOC.TypeOfView = Nothing + ' + 'aMakeEditableCOC + ' + Me.aMakeEditableCOC.Caption = "Make editable COC" + Me.aMakeEditableCOC.ConfirmationMessage = "Do you want to execute command ?" + Me.aMakeEditableCOC.Id = "aMakeEditableCOC" + Me.aMakeEditableCOC.ImageName = Nothing + Me.aMakeEditableCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditableCOC.Shortcut = Nothing + Me.aMakeEditableCOC.Tag = Nothing + Me.aMakeEditableCOC.TargetObjectsCriteria = Nothing + Me.aMakeEditableCOC.TargetViewId = Nothing + Me.aMakeEditableCOC.ToolTip = Nothing + Me.aMakeEditableCOC.TypeOfView = Nothing + ' + 'aViewRegistry_COC + ' + Me.aViewRegistry_COC.Caption = "View registry" + Me.aViewRegistry_COC.ConfirmationMessage = Nothing + Me.aViewRegistry_COC.Id = "aViewRegistry_COC" + Me.aViewRegistry_COC.ImageName = "document_pinned" + Me.aViewRegistry_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_COC.Shortcut = Nothing + Me.aViewRegistry_COC.Tag = Nothing + Me.aViewRegistry_COC.TargetObjectsCriteria = Nothing + Me.aViewRegistry_COC.TargetViewId = "" + Me.aViewRegistry_COC.ToolTip = Nothing + Me.aViewRegistry_COC.TypeOfView = Nothing + ' + 'aViewAttachments_COC + ' + Me.aViewAttachments_COC.Caption = "View attachments" + Me.aViewAttachments_COC.ConfirmationMessage = Nothing + Me.aViewAttachments_COC.Id = "aViewAttachments_COC" + Me.aViewAttachments_COC.ImageName = "printer_view" + Me.aViewAttachments_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_COC.Shortcut = Nothing + Me.aViewAttachments_COC.Tag = Nothing + Me.aViewAttachments_COC.TargetObjectsCriteria = Nothing + Me.aViewAttachments_COC.TargetViewId = "" + Me.aViewAttachments_COC.ToolTip = Nothing + Me.aViewAttachments_COC.TypeOfView = Nothing + ' + 'aRecalculateCOC + ' + Me.aRecalculateCOC.Caption = "Recalculate COC" + Me.aRecalculateCOC.Category = "ObjectsCreation" + Me.aRecalculateCOC.ConfirmationMessage = "Do you want to execute command ?" + Me.aRecalculateCOC.Id = "aRecalculateCOC" + Me.aRecalculateCOC.Shortcut = Nothing + Me.aRecalculateCOC.Tag = Nothing + Me.aRecalculateCOC.TargetObjectsCriteria = Nothing + Me.aRecalculateCOC.TargetViewId = Nothing + Me.aRecalculateCOC.ToolTip = Nothing + Me.aRecalculateCOC.TypeOfView = Nothing + + End Sub + Friend WithEvents aFinalCOC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintCertificateOfContract As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStornoCOC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditableCOC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_COC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_COC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecalculateCOC As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.resx new file mode 100644 index 0000000..5f56711 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 95 + + + 17, 251 + + + 17, 212 + + + 174, 212 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb new file mode 100644 index 0000000..4ad5fef --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb @@ -0,0 +1,227 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl + +Public Class CertificateOfContractVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + Dim _CertificateofContractHeader As CertificateofContractHeader + MyBase.OnActivated() + '-- ltalnos letilts -------------------------------------------------------------------------------------------------------------------------- + Frame.GetController(Of CertificateOfContractVC).aFinalCOC.Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", False) ' -- Teljestsi igazols nyomtatsa + Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", False) + '------------------------------------------------------------------------------------------------------------------------------------------------ + + If View.Id = "CertificateofContractHeader_ListView_NotEditable" Then + Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True) + Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True) + Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True) + End If + If View.Id = "CertificateofContractHeader_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + _CertificateofContractHeader = View.SelectedObjects(0) + If _CertificateofContractHeader IsNot Nothing Then + If _CertificateofContractHeader.IsEditable = True Then + Frame.GetController(Of CertificateOfContractVC).aFinalCOC.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) + Else + 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 + End If + End If + If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True) + Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True) + + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + _CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader) + If _CertificateofContractHeader IsNot Nothing Then + If _CertificateofContractHeader.IsEditable = False Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Else + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + End If + End If + End If + End If + If View.Id = "Contracts_LookupListView" Then + 'Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False) + End If + If View.Id = "CertificateofContractRows_DetailView" Then + Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows) + If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then + Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Else + Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + End If + Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True) + Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True) + If _CertificateofContractRows.CertificateofContractHeader IsNot Nothing Then + If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Else + 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 + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + End Sub + Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CertificateofContractHeader As CertificateofContractHeader + + Dim _ReportData As ReportData + If e.SelectedObjects.Count > 0 Then + _CertificateofContractHeader = e.SelectedObjects.Item(0) + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _CertificateofContractHeader.Contracts.ContractTemplate.COC_ReportData.Oid), True) + If _ReportData Is Nothing Or _CertificateofContractHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("CertificateofContractHeader.DocumentNumber =?", _CertificateofContractHeader.DocumentNumber), True) + End If + End If + End Sub + + Private Sub aFinalCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalCOC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader) + + If _CertificateofContractHeader IsNot Nothing Then + _CertificateofContractHeader.IsEditable = False + _CertificateofContractHeader.IsStorno = False + _ocur.CommitChanges() + View.Close() + End If + + End Sub + + Private Sub aMakeEditableCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditableCOC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader) + + If _CertificateofContractHeader IsNot Nothing Then + If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then + _CertificateofContractHeader.IsEditable = True + _ocur.CommitChanges() + View.Refresh() + End If + End If + End Sub + + Private Sub aStornoCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoCOC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader) + Dim _CertificateofContractRows As CertificateofContractRows + + + If _CertificateofContractHeader IsNot Nothing Then + If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then + For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows + _CertificateofContractRows.ContractRows = Nothing + Next + _CertificateofContractHeader.IsStorno = True + _CertificateofContractHeader.IsEditable = False + End If + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + + Private Sub aViewRegistry_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_COC.Execute + Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows) + + If _CertificateofContractRows IsNot Nothing Then + If _CertificateofContractRows.ContractRows IsNot Nothing Then + If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then + Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers + Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End If + End If + End If + + End Sub + + Private Sub aViewAttachments_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_COC.Execute + Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows) + If _CertificateofContractRows IsNot Nothing Then + If _CertificateofContractRows.ContractRows IsNot Nothing Then + If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then + Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers + Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End If + End If + End If + End Sub + + Private Sub aRecalculateCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateCOC.Execute + Dim _CertificateofContractHeader As CertificateofContractHeader + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _CertificateofContractHeader In View.SelectedObjects + RaiseEvent DoWork() + _CertificateofContractHeader.Recalculate(_uow, _CertificateofContractHeader, False) + Next + _uow.CommitChanges() + RaiseEvent FinalWork + View.Refresh() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractHeader.vb new file mode 100644 index 0000000..c94f053 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractHeader.vb @@ -0,0 +1,185 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + + _ + _ + _ +Public Class CertificateofContractHeader + Inherits BaseObject + Private _Contracts As Contracts + Private _DateExecution As Date + Private _DocumentNumber As String + Private _IsStorno As Boolean = False + Private _IsEditable As Boolean = True + Private _DateCreated As Date + Private _ReportHeader As String + Private _ReportFooter As String + Private _ObjectCreated As Date + Private _UserCreated As User + Private _AmountHUF As Double + Private _AmountDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If DocumentNumber Is Nothing Then + If _Contracts IsNot Nothing Then + If _Contracts.ContractTemplate.COC_NumberGenerator IsNot Nothing Then + _DocumentNumber = _Contracts.ContractTemplate.COC_NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.COC_NumberGenerator) + End If + End If + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + _ + Property Contracts() As Contracts + Get + Return _Contracts + + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property ReportHeader As String + Get + Return _ReportHeader + End Get + Set(ByVal value As String) + SetPropertyValue("ReportHeader", _ReportHeader, value) + End Set + End Property + _ + Property ReportFooter As String + Get + Return _ReportFooter + End Get + Set(ByVal value As String) + SetPropertyValue("ReportFooter", _ReportFooter, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + + ReadOnly Property DisplayName As String + Get + If Contracts IsNot Nothing Then + Return DocumentNumber & ", " & Contracts.DisplayName + Else + Return "<>" + End If + End Get + End Property + _ + ReadOnly Property CertificateofContractRows As XPCollection(Of CertificateofContractRows) + Get + Return GetCollection(Of CertificateofContractRows)("CertificateofContractRows") + End Get + End Property + Sub Recalculate(_uow As UnitOfWork, _CertificateofContractHeader As CertificateofContractHeader, Optional _WidthCommit As Boolean = False) + Dim _CertificateofContractRows As CertificateofContractRows + Dim _AmountHUF As Double = 0 + Dim _AmountDEV As Double = 0 + On Error GoTo CheckError + + _CertificateofContractHeader.AmountHUF = 0 + _CertificateofContractHeader.AmountDEV = 0 + For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows + _AmountHUF += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceHUF + _AmountDEV += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceDEV + Next + _CertificateofContractHeader.AmountHUF = _AmountHUF + _CertificateofContractHeader.AmountDEV = _AmountDEV + + If _WidthCommit Then _uow.CommitChanges() + Exit Sub + +CheckError: + + If Err.Number = 13 Then Resume Next + If Err.Number = 91 Then Resume Next + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractRows.vb new file mode 100644 index 0000000..2131945 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractRows.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + + _ + _ + _ +Public Class CertificateofContractRows + Inherits BaseObject + Private _CertificateofContractHeader As CertificateofContractHeader + Private _ContractRows As ContractRows + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property CertificateofContractHeader() As CertificateofContractHeader + Get + Return _CertificateofContractHeader + End Get + Set(ByVal value As CertificateofContractHeader) + SetPropertyValue("CertificateofContractHeader", _CertificateofContractHeader, value) + End Set + End Property + _ + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + + End Set + End Property + ReadOnly Property DisplayName + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return _CertificateofContractHeader.Contracts.CustomersFrom.FullName & ", " & _CertificateofContractHeader.DateExecution + Else + Return "" + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractGroup.vb new file mode 100644 index 0000000..6a9f7c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractGroup.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ContractGroup + Inherits BaseObject + + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.Designer.vb new file mode 100644 index 0000000..536da99 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ContractPayablesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.vb new file mode 100644 index 0000000..494b747 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.vb @@ -0,0 +1,33 @@ +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.ExpressApp.CloneObject +Public Class ContractPayablesVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'Hello world ! + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractProductsCredit.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractProductsCredit.vb new file mode 100644 index 0000000..651f0f8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractProductsCredit.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ContractProductsCredit + Inherits BaseObject + + Private _Contracts As Contracts + Private _ProductsCredit As ProductsCredit + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property Contract As Contracts + Get + Return _Contracts + End Get + Set(value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + Property ProductsCredit As ProductsCredit + Get + Return _ProductsCredit + End Get + Set(value As ProductsCredit) + SetPropertyValue("ProductsCredit", _ProductsCredit, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.Designer.vb new file mode 100644 index 0000000..b283617 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class ContractReceivablesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateInvoicefromContractRowsReceivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCreateInvoicefromContractRowsReceivables + ' + Me.aCreateInvoicefromContractRowsReceivables.AcceptButtonCaption = Nothing + Me.aCreateInvoicefromContractRowsReceivables.CancelButtonCaption = Nothing + Me.aCreateInvoicefromContractRowsReceivables.Caption = "Create Invoicefrom Contract Rows Receivables" + Me.aCreateInvoicefromContractRowsReceivables.ConfirmationMessage = Nothing + Me.aCreateInvoicefromContractRowsReceivables.Id = "aCreateInvoicefromContractRowsReceivables" + Me.aCreateInvoicefromContractRowsReceivables.ImageName = Nothing + Me.aCreateInvoicefromContractRowsReceivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateInvoicefromContractRowsReceivables.Shortcut = Nothing + Me.aCreateInvoicefromContractRowsReceivables.Tag = Nothing + Me.aCreateInvoicefromContractRowsReceivables.TargetObjectsCriteria = Nothing + Me.aCreateInvoicefromContractRowsReceivables.TargetViewId = Nothing + Me.aCreateInvoicefromContractRowsReceivables.ToolTip = Nothing + Me.aCreateInvoicefromContractRowsReceivables.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateInvoicefromContractRowsReceivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.resx new file mode 100644 index 0000000..42d8947 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb new file mode 100644 index 0000000..1686b37 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.vb @@ -0,0 +1,322 @@ +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.CloneObject +Imports DevExpress.Persistent.BaseImpl + +Public Class ContractReceivablesVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As ArrayList + Protected _InvoiceRowsSelection As ArrayList = New ArrayList + Protected _InvoiceHeaderCreated As ArrayList = New ArrayList + Protected _noselect As Boolean = False + Public Sub New() + MyBase.New() + + _selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False) + + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", True) + End If + + If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False) + End If + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim i As Long = 0 + Dim _ContractRows As ContractRows + + If View Is Nothing Then Exit Sub + + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then + If _noselect = False Then + _selection.Clear() + For Each _ContractRows In View.SelectedObjects + If i = 0 Then + _selection.Add(_ContractRows) + Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", True) + Else + If _ContractRows.Contracts.CurrencyName_Invoice.Oid = TryCast(_selection(0), ContractRows).Contracts.CurrencyName_Invoice.Oid Then + _selection.Add(_ContractRows) + i += 1 + Else + _selection.Clear() + Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", False) + End If + End If + Next + End If + End If + End Sub + + Private Sub aCreateInvoicefromContractRowsReceivables_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInvoicefromContractRowsReceivables.Cancel + _noselect = False + End Sub + + Private Sub aCreateInvoicefromContractRowsReceivables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoicefromContractRowsReceivables.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = _ocur.CreateObject(Of ContractsRowsToInvoice)() + Dim _ContractsRowsToInvoice_New As ContractsRowsToInvoice + + _ContractsRowsToInvoice.Description = "" + _ContractsRowsToInvoice.CurrencyRate = 1 + _ContractsRowsToInvoice.DateExecution = GetSQLTime(_ocur.Session) + _ContractsRowsToInvoice.BankInformation = Nothing + _ContractsRowsToInvoice.ContractRows = _selection(0) + + _noselect = True + _ContractsRowsToInvoice.Save() + _ocur.CommitChanges() + + _ContractsRowsToInvoice_New = _onew.GetObject(_ContractsRowsToInvoice) + + e.View = Application.CreateDetailView(_onew, "ContractsRowsToInvoice_DetailView_Receivables", False, _ContractsRowsToInvoice_New) + End Sub + Private Sub aCreateInvoicefromContractRowsReceivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoicefromContractRowsReceivables.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRowsCollection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("1=2")) + + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice) + + Dim _ContractRows As ContractRows + Dim _ContractRows_Selection As ContractRows + Dim _InvoiceRows_new As InvoiceRows + Dim _InvoiceRows_Array As New ArrayList() + + Dim i As Long = 0 + Dim _IsHeaderCreated As Boolean = False + Dim _IsNextWhile As Boolean = True + Dim _NG As NumberGenerator + + On Error GoTo CheckError + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol + _InvoiceHeaderCreated.Clear() + + For Each _ContractRows_Selection In _selection + _ContractRows = _ocur.GetObject(_ContractRows_Selection) + _ContractRowsCollection.Add(_ContractRows) + Next + _InvoiceRows_Array.Clear() + + _noselect = False + ' -- rendezési feltételeket adunk a létrehozott kollekciónak + Dim sortCollection As SortingCollection = New SortingCollection() + sortCollection.Add(New SortProperty("Contracts.CustomersFrom.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("Contracts.Customers.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("Contracts.BankInformation", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("Contracts.CurrencyName_Invoice.ShortName", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("PaymentOption.ShortName", DB.SortingDirection.Ascending)) + + _ContractRowsCollection.Sorting = sortCollection + + Do While _IsNextWhile + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader)) + + _InvoiceHeader.PaymentOption = _ContractRowsCollection(i).PaymentOption + _InvoiceHeader.ShipmentOption = _ContractRowsCollection(i).ShipmentOption + + 'Ha a sor típusa előleg akkor az előleg számla típusát kell vennünk a szerz.sablonnak egyébként a rendeset + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eAdvance Then + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeAdvanced + Else + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceType + End If + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + + _InvoiceHeader.IsProforma = _ContractsRowsToInvoice.IsProforma + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _ContractRowsCollection(i).Contracts.CustomersFrom + _InvoiceHeader.Customers = _ContractRowsCollection(i).Contracts.Customers + _InvoiceHeader.Description = _ocur.GetObject(_ContractsRowsToInvoice.Description) + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice + _InvoiceHeader.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate + _InvoiceHeader.BankInformation = _ContractRowsCollection(i).Contracts.BankInformation + + '-- Próbaszámla miatt el kell menteni a tényleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _ContractRowsCollection(i).Contracts.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _ContractRowsCollection(i).Contracts.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRowsCollection(i).Contracts.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _ContractRowsCollection(i).Contracts.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _ContractRowsCollection(i).Contracts.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRowsCollection(i).Contracts.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _ContractRowsCollection(i).Contracts.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRowsCollection(i).Contracts.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRowsCollection(i).Contracts.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + '------------------------------------------------------------------------------------------------------------------ + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eMileStone Then + _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution + Else + _InvoiceHeader.DateExecution = _ContractRowsCollection(i).DateExecution + End If + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice + + If _InvoiceHeader.IsProforma = False Then + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator) + End If + + _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo + _InvoiceHeader.DateCreated = GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + + ' -- Ha folyamatos teljesítésű számla akkor a fizetési határidő megegyezik a teljesítés dátumával + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + ' -- Egyébként számolja ki a fizetési opcióból, hogy hány nap van a kiállítás dátuma és a fizetési határidő között + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + + '-- A következő sorok vizsgálata és hozzáadása a fenti fejléchez amíg az ezt engedélyezo feltételek teljesülnek + Do + _InvoiceRows_new = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows_new.InvoiceHeader = _InvoiceHeader + _InvoiceHeader.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod + _InvoiceRows_new.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod + + _InvoiceRows_new.CustomsTariffs = _ContractRowsCollection(i).CustomsTariffs + _InvoiceRows_new.Description = _ContractRowsCollection(i).Description + _InvoiceRows_new.QTT = _ContractRowsCollection(i).QTT + _InvoiceRows_new.QualityOption = _ContractRowsCollection(i).QualityOption + _InvoiceRows_new.VAT = _ContractRowsCollection(i).VAT + _InvoiceRows_new.Units = _ContractRowsCollection(i).Units + _InvoiceRows_new.ShortName = _ContractRowsCollection(i).ShortName + + If _ContractRowsCollection(i).Contracts.CurrencyName.ShortName <> "HUF" Then + _InvoiceRows_new.ListPriceHUF = Math.Round(_ContractRowsCollection(i).NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero) + Else + _InvoiceRows_new.ListPriceHUF = _ContractRowsCollection(i).NettoPriceHUF + End If + _InvoiceRows_new.ListPriceDEV = _ContractRowsCollection(i).NettoPriceDEV + _InvoiceRows_new.ContractRows = _ContractRowsCollection(i) + + _InvoiceRows_new.Save() + _InvoiceRows_Array.Add(_InvoiceRows_new) + If i = _ContractRowsCollection.Count - 1 Then + _IsNextWhile = False + Exit Do + End If + i += 1 + Loop While _ContractRowsCollection(i - 1).Contracts.CustomersFrom Is _ContractRowsCollection(i).Contracts.CustomersFrom And _ + _ContractRowsCollection(i - 1).Contracts.Customers Is _ContractRowsCollection(i).Contracts.Customers And _ + _ContractRowsCollection(i - 1).Contracts.BankInformation Is _ContractRowsCollection(i).Contracts.BankInformation And _ + _ContractRowsCollection(i - 1).DateExecution = _ContractRowsCollection(i).DateExecution And _ + _ContractRowsCollection(i - 1).CurrencyName Is _ContractRowsCollection(i).CurrencyName And _ + _ContractRowsCollection(i - 1).PaymentOption Is _ContractRowsCollection(i).PaymentOption + + _InvoiceHeader.Save() + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + _InvoiceHeaderCreated.Add(_InvoiceHeader) + Loop + + For Each _InvoiceRows_new In _InvoiceRows_Array + _ContractRows = _InvoiceRows_new.ContractRows + _ContractRows.InvoiceRows = _InvoiceRows_new + If _ContractRows.Contracts.CurrencyName.ShortName <> "HUF" Then + _ContractRows.NettoPriceHUF = Math.Round(_ContractRows.NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _ContractRows.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate + End If + + _ContractRows.Save() + Next + _ocur.CommitChanges() + _noselect = False + + Me.PrintSelectedInvoices() + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + End Sub + + Sub PrintSelectedInvoices() + 'Meg kell állapítani, hogy a vevő belföldi vagy külföldi. + + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _InvoiceHeader As InvoiceHeader + Dim _CurrencyName As CurrencyName + If _InvoiceHeaderCreated.Count > 0 Then + _InvoiceHeader = TryCast(_InvoiceHeaderCreated(0), InvoiceHeader) + + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + Dim _inoperator As New InOperator("InvoiceHeader", _InvoiceHeaderCreated) + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _inoperator, True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, _inoperator, True) + End If + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb new file mode 100644 index 0000000..bf30820 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb @@ -0,0 +1,542 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +' _ +' _ +'1", "MileStone", EditorState.Hidden, "ContractRowsType<>1", ViewType.DetailView)> _ +' _ + + _ + _ + _ +1", TargetItems:="MileStone", Criteria:="ContractRowsType<>1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class ContractRows 'Szerzdsi sorok + Inherits BaseObject + Private _Contracts As Contracts '-- Szerzds fejlc + Private _MileStone As ContractMileStone '-- Mrfldk + Private _DateExecution As Date '-- Teljestsi dtum + Private _ShortName As String '-- Megnevezs + Private _Description As String '-- Lers + Private _QTT As Double '-- Mennyisg + Private _Units As Units '-- Mennyisgi egysg + Private _NettoPriceHUF As Double '-- Nett egysgr (HUF) + Private _NettoPriceDEV As Double '-- Nett egysgr (DEV) + + Private _SumNettoPriceHUF As Double '-- Nett sorrtk (HUF) + Private _SumNettoPriceDEV As Double '-- Nett sorrtk (DEV) + Private _SumBruttoPriceHUF As Double '-- Nett sorrtk (HUF) + Private _SumBruttoPriceDEV As Double '-- Nett sorrtk (DEV) + + Private _CurrencyName As CurrencyName '-- Deviza + Private _CurrencyRate As Double = 1 '-- rfolyam + Private _PaymentOption As PaymentOption '--Fizetsi opci + Private _ShipmentOption As ShipmentOption '-- Szlltsi opci + Private _QualityOption As QualityOption '-- Minsgi opci + Private _VAT As VAT 'FA kd + Private _InvoiceRows As InvoiceRows '-- Milyen soron lett kiszmlzva _ + Private _InvoiceRowsAdvance As InvoiceRows ' --Ez a szerzds sor, ha ki van lltva szmln akkor milyen szmln lett visszaminuszolva. _ + Private _ContractRowsType As eContractRowsType ' -- A szerzds sornak a tpusa + '-- Jell adatok ------------------------------------------------------------------------------- + Private _Controlling As Controlling '-- Controlling szm + Private _CostHolder As CostHolder ' -- Kltsgvisel + Private _CostPlace As CostPlace '-- Kltsghely + Private _JobNumberObjects As JobNumberObjects '-- Projekt amihez a sor tartozik + Private _UniqueObjects As UniqueObjects ' -- Egyedi azonost + '------------------------------------------------------------------------------------------------ + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling ' -- Iktatsi teljestsre bonts sora (le van e teljestsi igazolva a sor) _ + Private _RowGroup1 As String + Private _RowGroup2 As String + Private _CustomsTariffs As CustomsTariffs + Private _InvoicePeriod As String 'Szmlzsi idszak + Private _CertificateofContractRows As CertificateofContractRows ' _ + Private _eContractRowsInvoiceState As eContractRowsInvoiceState 'Ki van-e szmlzva az aktulis sor? _ + Private _eContractRowsCOCState As eContractRowsCOCState 'Le van-e teljestsi igazolva az aktulis sor? _ + Private _eContractRowsRRFCState As eContractRowsRRFCState 'Le van-e szmla igazolva az aktulis sor? _ + Private _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents + + Private _Apartments As Apartments '-- Laks + Private _Garages As Garages '-- Garzs + Private _Container As Container '-- Trol + Private _Offices As Offices '-- zletek + Private _XLSGuid As String ' XLS sorban lv sajt guid + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Units = Session.FindObject(Of Units)(1, CriteriaOperator.Parse("ShortName='DB'")) + QTT = 1 + CurrencyName = Session.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, Session.ParseCriteria("ShortName='HUF'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If VAT Is Nothing Then + SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero) + SumBruttoPriceHUF = SumNettoPriceHUF + SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero) + SumBruttoPriceDEV = SumNettoPriceDEV + Else + SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero) + SumBruttoPriceHUF = Math.Round(SumNettoPriceHUF * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero) + SumBruttoPriceDEV = Math.Round(SumNettoPriceDEV * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + End Sub + _ + Property Contracts() As Contracts + Get + Return _Contracts + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + Property MileStone As ContractMileStone + Get + Return _MileStone + End Get + Set(ByVal value As ContractMileStone) + SetPropertyValue("MileStone", _MileStone, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + ' _ + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property Units() As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property NettoPriceHUF() As Double + Get + Return _NettoPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value) + End Set + End Property + _ + Property NettoPriceDEV() As Double + Get + Return _NettoPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If CurrencyName IsNot Nothing Then + If CurrencyName.ShortName <> "HUF" Then + NettoPriceHUF = Math.Round(CurrencyRate * value, 0, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + Property SumNettoPriceHUF As Double + Get + Return _SumNettoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumNettoPriceHUF", _SumNettoPriceHUF, value) + End Set + End Property + _ + Property SumNettoPriceDEV As Double + Get + Return _SumNettoPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumNettoPriceDEV", _SumNettoPriceDEV, value) + End Set + End Property + _ + Property SumBruttoPriceHUF As Double + Get + Return _SumBruttoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumBruttoPriceHUF", _SumBruttoPriceHUF, value) + End Set + End Property + _ + Property SumBruttoPriceDEV As Double + Get + Return _SumBruttoPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumBruttoPriceDEV", _SumBruttoPriceDEV, value) + End Set + End Property + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + '1", DefaultContexts.Save, ValueComparisonType.NotEquals, 1, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _ + _ + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If CurrencyName IsNot Nothing Then + If CurrencyName.ShortName <> "HUF" Then + NettoPriceHUF = Math.Round(NettoPriceDEV * value, 0, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(ByVal value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + _ + Property InvoiceRowsAdvance As InvoiceRows + Get + Return _InvoiceRowsAdvance + End Get + Set(ByVal value As InvoiceRows) + SetPropertyValue("InvoiceRowsAdvance", _InvoiceRowsAdvance, value) + End Set + End Property + _ + Property ContractRowsType As eContractRowsType + Get + Return _ContractRowsType + End Get + Set(ByVal value As eContractRowsType) + SetPropertyValue("ContractRowsType", _ContractRowsType, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + _ + Property ImmovablesCostRecordEvents As ImmovablesCostRecordEvents + Get + Return _ImmovablesCostRecordEvents + End Get + Set(value As ImmovablesCostRecordEvents) + SetPropertyValue("ImmovablesCostRecordEvents", _ImmovablesCostRecordEvents, value) + End Set + End Property + + 'Rule5DMatrix ! --------------------------------- + _ + Property Controlling() As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then + If Me.RegistryRowsFinancialControlling.Controlling IsNot value Then + _RegistryRowsFinancialControlling.Controlling = value + _RegistryRowsFinancialControlling.Save() + End If + End If + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then + If Me.RegistryRowsFinancialControlling.CostHolder IsNot value Then + Me.RegistryRowsFinancialControlling.CostHolder = value + Me.RegistryRowsFinancialControlling.Save() + End If + End If + End Set + End Property + _ + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then + If Me.RegistryRowsFinancialControlling.JobNumberObjects IsNot value Then + Me.RegistryRowsFinancialControlling.JobNumberObjects = value + Me.RegistryRowsFinancialControlling.Save() + End If + End If + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then + If Me.RegistryRowsFinancialControlling.UniqueObjects IsNot value Then + _RegistryRowsFinancialControlling.UniqueObjects = value + _RegistryRowsFinancialControlling.Save() + End If + End If + End Set + End Property + + _ + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(ByVal value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + _ + Property CertificateofContractRows As CertificateofContractRows + Get + Return _CertificateofContractRows + End Get + Set(value As CertificateofContractRows) + SetPropertyValue("CertificateofContractRows", _CertificateofContractRows, value) + End Set + End Property + 'Readonly + ReadOnly Property DisplayName() As String + Get + If Me.Contracts Is Nothing Then + Return ShortName & ", " & DateExecution + ElseIf Me.Contracts.Customers Is Nothing Then + Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution + Else + Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution & ", " & Contracts.Customers.FullName + End If + End Get + End Property + ReadOnly Property eContractRowsCOCState As eContractRowsCOCState + Get + If Me.CertificateofContractRows IsNot Nothing Then + Return [Module].eContractRowsCOCState.eCertificated + Else + Return [Module].eContractRowsCOCState.eNotCertificated + End If + End Get + End Property + ReadOnly Property eContractRowsInvoiceState As eContractRowsInvoiceState + Get + If Me.InvoiceRows IsNot Nothing Or Me.InvoiceRowsAdvance IsNot Nothing Then + Return [Module].eContractRowsInvoiceState.eInvoiced + Else + Return [Module].eContractRowsInvoiceState.eNotInvoiced + End If + End Get + End Property + ReadOnly Property eContractRowsRRFCState As eContractRowsRRFCState + Get + If Me.RegistryRowsFinancialControlling IsNot Nothing Then + Return [Module].eContractRowsRRFCState.eControlled + Else + Return [Module].eContractRowsRRFCState.eNotControlled + End If + End Get + End Property + + _ + Property Apartments As Apartments + Get + Return _Apartments + End Get + Set(value As Apartments) + SetPropertyValue("Apartments", _Apartments, value) + End Set + End Property + _ + Property Garages As Garages + Get + Return _Garages + End Get + Set(value As Garages) + SetPropertyValue("Garages", _Garages, value) + End Set + End Property + _ + Property Container As Container + Get + Return _Container + End Get + Set(value As Container) + SetPropertyValue("Container", _Container, value) + End Set + End Property + _ + Property Offices As Offices + Get + Return _Offices + End Get + Set(value As Offices) + SetPropertyValue("Offices", _Offices, value) + End Set + End Property + _ + Property XLSGuid As String + Get + Return _XLSGuid + End Get + Set(value As String) + SetPropertyValue("XLSGuid", _XLSGuid, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.Designer.vb new file mode 100644 index 0000000..b19872f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.Designer.vb @@ -0,0 +1,106 @@ +Partial Class ContractRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDescriptionChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aShortNameChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aModifyContractRowsData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aConnectContractRowToInvoiceRow = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aDescriptionChanger_ContractRows + ' + Me.aDescriptionChanger_ContractRows.AcceptButtonCaption = Nothing + Me.aDescriptionChanger_ContractRows.CancelButtonCaption = Nothing + Me.aDescriptionChanger_ContractRows.Caption = "Description Changer" + Me.aDescriptionChanger_ContractRows.Category = "aDescriptionChanger_ContractRows" + Me.aDescriptionChanger_ContractRows.ConfirmationMessage = Nothing + Me.aDescriptionChanger_ContractRows.Id = "aDescriptionChanger_ContractRows" + Me.aDescriptionChanger_ContractRows.ImageName = Nothing + Me.aDescriptionChanger_ContractRows.Shortcut = Nothing + Me.aDescriptionChanger_ContractRows.Tag = Nothing + Me.aDescriptionChanger_ContractRows.TargetObjectsCriteria = Nothing + Me.aDescriptionChanger_ContractRows.TargetViewId = "" + Me.aDescriptionChanger_ContractRows.ToolTip = Nothing + Me.aDescriptionChanger_ContractRows.TypeOfView = Nothing + ' + 'aShortNameChanger_ContractRows + ' + Me.aShortNameChanger_ContractRows.AcceptButtonCaption = Nothing + Me.aShortNameChanger_ContractRows.CancelButtonCaption = Nothing + Me.aShortNameChanger_ContractRows.Caption = "Description Changer" + Me.aShortNameChanger_ContractRows.Category = "aShortNameChanger_ContractRows" + Me.aShortNameChanger_ContractRows.ConfirmationMessage = Nothing + Me.aShortNameChanger_ContractRows.Id = "aShortNameChanger_ContractRows" + Me.aShortNameChanger_ContractRows.ImageName = Nothing + Me.aShortNameChanger_ContractRows.Shortcut = Nothing + Me.aShortNameChanger_ContractRows.Tag = Nothing + Me.aShortNameChanger_ContractRows.TargetObjectsCriteria = Nothing + Me.aShortNameChanger_ContractRows.TargetViewId = "" + Me.aShortNameChanger_ContractRows.ToolTip = Nothing + Me.aShortNameChanger_ContractRows.TypeOfView = Nothing + ' + 'aModifyContractRowsData + ' + Me.aModifyContractRowsData.AcceptButtonCaption = Nothing + Me.aModifyContractRowsData.CancelButtonCaption = Nothing + Me.aModifyContractRowsData.Caption = "aModify Contract Rows Data" + Me.aModifyContractRowsData.ConfirmationMessage = Nothing + Me.aModifyContractRowsData.Id = "aModifyContractRowsData" + Me.aModifyContractRowsData.ImageName = Nothing + Me.aModifyContractRowsData.Shortcut = Nothing + Me.aModifyContractRowsData.Tag = Nothing + Me.aModifyContractRowsData.TargetObjectsCriteria = Nothing + Me.aModifyContractRowsData.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.aModifyContractRowsData.TargetViewId = Nothing + Me.aModifyContractRowsData.ToolTip = Nothing + Me.aModifyContractRowsData.TypeOfView = Nothing + ' + 'aConnectContractRowToInvoiceRow + ' + Me.aConnectContractRowToInvoiceRow.AcceptButtonCaption = Nothing + Me.aConnectContractRowToInvoiceRow.CancelButtonCaption = Nothing + Me.aConnectContractRowToInvoiceRow.Caption = "aConnect Contract Row To Invoice Row" + Me.aConnectContractRowToInvoiceRow.ConfirmationMessage = Nothing + Me.aConnectContractRowToInvoiceRow.Id = "aConnectContractRowToInvoiceRow" + Me.aConnectContractRowToInvoiceRow.ImageName = Nothing + Me.aConnectContractRowToInvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aConnectContractRowToInvoiceRow.Shortcut = Nothing + Me.aConnectContractRowToInvoiceRow.Tag = Nothing + Me.aConnectContractRowToInvoiceRow.TargetObjectsCriteria = Nothing + Me.aConnectContractRowToInvoiceRow.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.aConnectContractRowToInvoiceRow.TargetViewId = "" + Me.aConnectContractRowToInvoiceRow.ToolTip = Nothing + Me.aConnectContractRowToInvoiceRow.TypeOfView = Nothing + + End Sub + Friend WithEvents aDescriptionChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aShortNameChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aModifyContractRowsData As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aConnectContractRowToInvoiceRow As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.resx new file mode 100644 index 0000000..d87aeaf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 173 + + + 17, 56 + + + 17, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb new file mode 100644 index 0000000..69b8cbf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb @@ -0,0 +1,250 @@ +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 System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils + +Public Class ContractRowsVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + 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 ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False) + Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", False) + If View.Id = "ContractRows_DetailView" Then + Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", True) + End If + + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or _ + View.Id = "ContractRows_ListView_Invoice_MileStone" Or _ + View.Id = "ContractRows_ListView_Invoice_CustomRate" Or _ + View.Id = "ContractRows_ListView_Invoice_Advance" Then + Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", True) + Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False) + End Sub + + Private Sub aDescriptionChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescriptionChanger_ContractRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp + Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp)) + + Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session) + Dim query = From _ContractRows In _ContractRows_xpquery _ + Where _ContractRows.Description IsNot Nothing _ + Group _ContractRows By _ContractRows.Description Into g = Group _ + Select New With {Key .Description = Description} + For Each item In query + _ContractRows_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)() + _ContractRows_DescriptionChanger_PopUp.Description = item.Description + _CS_Description.Add(_ContractRows_DescriptionChanger_PopUp) + Next + e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False) + End Sub + Private Sub aDescriptionChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescriptionChanger_ContractRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + For Each _Description In e.PopupWindow.View.SelectedObjects + If _ContractRows.Description Is Nothing Then + _ContractRows.Description = TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description + Else + _ContractRows.Description += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description + End If + Next + End Sub + + Private Sub aShortNameChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aShortNameChanger_ContractRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows_ShortNameChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp + Dim _CS_ShortName As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp)) + + Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session) + Dim query = From _ContractRows In _ContractRows_xpquery _ + Where _ContractRows.Description IsNot Nothing _ + Group _ContractRows By _ContractRows.ShortName Into g = Group _ + Select New With {Key .ShortName = ShortName} + For Each item In query + _ContractRows_ShortNameChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)() + _ContractRows_ShortNameChanger_PopUp.Description = item.ShortName + _CS_ShortName.Add(_ContractRows_ShortNameChanger_PopUp) + Next + e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_ShortName, False) + End Sub + Private Sub aShortNameChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aShortNameChanger_ContractRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + For Each _ShortName In e.PopupWindow.View.SelectedObjects + If _ContractRows.ShortName Is Nothing Then + _ContractRows.ShortName = TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description + Else + _ContractRows.ShortName += " " & TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description + End If + Next + End Sub + + Private Sub aModifyContractRowsData_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyContractRowsData.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ContractRowsModifyData As ContractRowsModifyData = _onew.CreateObject(Of ContractRowsModifyData)() + + e.View = Application.CreateDetailView(_onew, "ContractRowsModifyData_DetailView", False, _ContractRowsModifyData) + End Sub + Private Sub aModifyContractRowsData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyContractRowsData.Execute + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRowsModifyData As ContractRowsModifyData = e.PopupWindow.View.SelectedObjects(0) + Dim _ArrayList As ArrayList = New ArrayList() + Dim _uow_lock As New UnitOfWork(_ocur.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _ocur.GetObject(TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + Try + Dim _ContractRows As ContractRows + For Each _ContractRows In e.SelectedObjects + If Not LockingModule.LockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User) Then + Dim _LockingObject As LockingObject = _ocur.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(ContractRows).Name + "-" + _ContractRows.Oid.ToString())) + _ArrayList.Add(_ContractRows) + End If + Next + + If _ArrayList.Count = 0 Then + For Each _ContractRows In e.SelectedObjects + If _ContractRowsModifyData.IsDateExecution Then _ContractRows.DateExecution = _ContractRowsModifyData.DateExecution + If _ContractRowsModifyData.IsPaymentOption Then _ContractRows.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ContractRowsModifyData.PaymentOption.Oid) + If _ContractRowsModifyData.IsNettoPriceHUF Then _ContractRows.NettoPriceHUF = _ContractRowsModifyData.NettoPriceHUF + If _ContractRowsModifyData.IsNettoPriceDEV Then _ContractRows.NettoPriceDEV = _ContractRowsModifyData.NettoPriceDEV + If _ContractRowsModifyData.IsDescription Then _ContractRows.Description = _ContractRowsModifyData.Description + If _ContractRowsModifyData.IsShortName Then _ContractRows.ShortName = _ContractRowsModifyData.ShortName + If _ContractRowsModifyData.IsInvoicePeriod Then _ContractRows.InvoicePeriod = _ContractRowsModifyData.InvoicePeriod + If _ContractRowsModifyData.IsVAT = True Then _ContractRows.VAT = _ocur.GetObjectByKey(Of VAT)(_ContractRowsModifyData.VAT.Oid) + If _ContractRowsModifyData.IsJobNumberObjects Then _ContractRows.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ContractRowsModifyData.JobNumberObjects.Oid) + If _ContractRowsModifyData.IsUniqueObjects Then _ContractRows.UniqueObjects = _ocur.GetObjectByKey(Of UniqueObjects)(_ContractRowsModifyData.UniqueObjects.Oid) + If _ContractRowsModifyData.IsControlling Then _ContractRows.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ContractRowsModifyData.Controlling.Oid) + If _ContractRowsModifyData.IsCostHolder Then _ContractRows.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ContractRowsModifyData.CostHolder.Oid) + Next + _ocur.CommitChanges() + End If + + If Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute() + End If + ' View.Refresh() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + If _ArrayList.Count > 0 Then + Dim ModifyError As String = "Objektum(ok) zrolva van(nak) :" + vbNewLine + vbNewLine + + For Each item As ContractRows In _ArrayList + ModifyError += item.Contracts.DocumentNumber.ToString() + " " + item.ShortName.ToString() + vbNewLine + Next + ModifyError += vbNewLine + "Ezrt a csoportos mdosts nem lett vgrehajtva!" + + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain") + MsgBox(String.Format(ModifyError), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + End If + For Each _ContractRows In e.SelectedObjects + LockingModule.UnLockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User) + Next + End Try + End Sub + + Private Sub aConnectContractRowToInvoiceRow_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aConnectContractRowToInvoiceRow.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("isnull(ContractRows)=True and InvoiceHeader.CustomersFrom.Oid=? and InvoiceHeader.Customers.Oid=? and InvoiceHeader.IsEditable=False and InvoiceHeader.IsStorno=False and InvoiceHeader.IsProforma=False", _ + _ContractRows.Contracts.CustomersFrom.Oid, _ContractRows.Contracts.Customers.Oid)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("InvoiceRows_ListView_ContractRows", _CS, False) + + End Sub + Private Sub aConnectContractRowToInvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aConnectContractRowToInvoiceRow.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows)) + + If _InvoiceRows IsNot Nothing Then + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + _InvoiceRows.ContractRows = _ContractRows + _ContractRows.InvoiceRows = _InvoiceRows + _ocur.CommitChanges() + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aSyncImmovables_Execute(sender As Object, e As SimpleActionExecuteEventArgs) + 'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + 'Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("isnull(UniqueObjects)=False")) + 'Dim _ContractRows As ContractRows + + 'Dim _Apartments As Apartments + 'Dim _Garages As Garages + 'Dim _Offices As Offices + 'Dim _Container As Container + + 'RaiseEvent InitWork(1, 1, _ContractRows_Collection.Count) + + 'For Each _ContractRows In _ContractRows_Collection + ' RaiseEvent DoWork() + ' _Apartments = _onew.FindObject(Of Apartments)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects)) + ' If _Apartments IsNot Nothing Then + ' _ContractRows.Apartments = _Apartments + ' End If + + ' _Garages = _onew.FindObject(Of Garages)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects)) + ' If _Garages IsNot Nothing Then + ' _ContractRows.Garages = _Garages + ' End If + + ' _Offices = _onew.FindObject(Of Offices)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects)) + ' If _Offices IsNot Nothing Then + ' _ContractRows.Offices = _Offices + ' End If + + ' _Container = _onew.FindObject(Of Container)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects)) + ' If _Container IsNot Nothing Then + ' _ContractRows.Container = _Container + ' End If + ' _onew.CommitChanges() + 'Next + 'RaiseEvent FinalWork + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate.vb new file mode 100644 index 0000000..661cec2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate.vb @@ -0,0 +1,280 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +' _ +' _ +' _ + + _ + _ + _ + _ +-1", AppearanceItemType.ViewItem, "PartnerType<>-1", TargetItems:="PartnerType", Enabled:=False)> _ + _ + _ + _ +Public Class ContractTemplate 'Szerzõdési sablonok + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String 'Megnevezés + Private _CreatedBy As User ' Ki csinálta a szerzõdési sablont + Private _PartnerType As ePartnerType = -1 'Szállítói vagy vevõi a szerzõdés + Private _DocumentBody As String 'Dokumentum törzs + Private _NumberGenerator As NumberGenerator 'Sorszám generálása + Private _COC_ReportHeader As String 'Teljesítési igazolás fejléc sablon + Private _COC_ReportFooter As String 'Teljesítési igazolás lábléc sablon + Private _COC_ReportData As ReportData 'Teljesítési igazolás nyomtatvány + Private _COC_NumberGenerator As NumberGenerator 'Teljesítési igazolás szigorú sorszáma + Private _InvoiceType As InvoiceType 'Ha vevõi a szerzõdés akkor milyen a kimenõ számla tipusa + Private _InvoiceTypeAdvanced As InvoiceType 'Ha vevõi a szerzõdés akkor milyen az elõleg vagy foglaló számla tipusa + Private _InvoiceTypeCustomRate As InvoiceType 'Egyéb bekérõ dijakhoz számla szerû dolgok + Private _IsTechnical As Boolean = False 'Technikai szerződés + Private _IsCRM As Boolean = False 'CRM tipusú szerződés + Private _IsProducts As Boolean = False 'Termékes FIFO szerződési sor + Private _IsImmovables As Boolean = False 'Ingatlanos szerződési tipus + Private _IsAPCSheet As Boolean 'Mezőgazdasági termeltéshez kapcsolódó sablon + Private _Rule5DMatrix As Rule5DMatrix + Private _Controlling As Controlling + Private _ContractsProperties As String + Private _APCSheetByProductsProperties As String + Private _ReportData As ReportData 'Szerződés nyomtatvány, amit ki lehet nyomtatni. + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Not SecuritySystem.CurrentUser Is Nothing Then + Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + _CreatedBy = currentUser + End If + IsCRM = False + IsProducts = False + IsTechnical = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Not IsDeleted Then + If Me.IsTechnical = True Then + Dim _ContractTemplate As ContractTemplate = Session.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("IsTechnical=? AND CustomersFrom=?", True, Me.CustomersFrom)) + + If _ContractTemplate.Oid.ToString() <> Me.Oid.ToString() Then + '---------------------------TESZT MIATT---------------------------------------->>> + Throw New Exception("*Adott saját céghez csak egy technikai szerzõdés sablon tartozhat!") + '---------------------------TESZT MIATT----------------------------------------<<< + End If + End If + End If + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Public Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + Public Property CreatedBy() As User + Get + Return _CreatedBy + End Get + Set(ByVal value As User) + SetPropertyValue("CreatedBy", _CreatedBy, value) + End Set + End Property + _ + -1", DefaultContexts.Save, ValueComparisonType.NotEquals, ePartnerType.eNotSet)> _ + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + _ + Property DocumentBody() As String + Get + Return _DocumentBody + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property COC_ReportHeader As String + Get + Return _COC_ReportHeader + End Get + Set(ByVal value As String) + SetPropertyValue("COC_ReportHeader", _COC_ReportHeader, value) + End Set + End Property + _ + Property COC_ReportFooter As String + Get + Return _COC_ReportFooter + End Get + Set(ByVal value As String) + SetPropertyValue("COC_ReportFooter", _COC_ReportFooter, value) + End Set + End Property + Property COC_ReportData As ReportData + Get + Return _COC_ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("COC_ReportData", _COC_ReportData, value) + End Set + End Property + Property COC_NumberGenerator As NumberGenerator + Get + Return _COC_NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("COC_NumberGenerator", _COC_NumberGenerator, value) + End Set + End Property + _ + Property InvoiceType As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + Property InvoiceTypeAdvanced As InvoiceType + Get + Return _InvoiceTypeAdvanced + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceTypeAdvanced", _InvoiceTypeAdvanced, value) + End Set + End Property + Property InvoiceTypeCustomRate As InvoiceType + Get + Return _InvoiceTypeCustomRate + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceTypeCustomRate", _InvoiceTypeCustomRate, value) + End Set + End Property + Property IsTechnical As Boolean + Get + Return _IsTechnical + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsTechnical", _IsTechnical, value) + End Set + End Property + Property IsCRM As Boolean + Get + Return _IsCRM + End Get + Set(value As Boolean) + SetPropertyValue("IsCRM", _IsCRM, value) + End Set + End Property + Property IsImmovables As Boolean + Get + Return _IsImmovables + End Get + Set(value As Boolean) + SetPropertyValue("IsImmovables", _IsImmovables, value) + End Set + End Property + Property IsAPCSheet As Boolean + Get + Return _IsAPCSheet + End Get + Set(value As Boolean) + SetPropertyValue("IsAPCSheet", _IsAPCSheet, value) + End Set + End Property + Property Rule5DMatrix As Rule5DMatrix + Get + Return _Rule5DMatrix + End Get + Set(value As Rule5DMatrix) + SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value) + End Set + End Property + Property IsProducts As Boolean + Get + Return _IsProducts + End Get + Set(value As Boolean) + SetPropertyValue("IsProducts", _IsProducts, value) + End Set + End Property + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + _ + _ + _ + Property ContractsProperties As String + Get + Return _ContractsProperties + End Get + Set(value As String) + SetPropertyValue("ContractsProperties", _ContractsProperties, value) + End Set + End Property + _ + _ + _ + Property APCSheetByProductsProperties As String + Get + Return _APCSheetByProductsProperties + End Get + Set(value As String) + SetPropertyValue("APCSheetByProductsProperties", _APCSheetByProductsProperties, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.Designer.vb new file mode 100644 index 0000000..01d1181 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ContractTemplate_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.vb new file mode 100644 index 0000000..33ef5f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.vb @@ -0,0 +1,20 @@ +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 ContractTemplate_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb new file mode 100644 index 0000000..2ba86f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb @@ -0,0 +1,519 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +Public Enum State + Preparation = 0 'Előkészítés alatt + Ready = 1 'Aláírásra kész + Signed = 2 'Aláírt + Terminating = 3 'Felmondás alatt + Closed = 4 'Lezárt szerződés + Waiting = 5 'Felfüggesztett, várakozik valamire +End Enum +Public Enum eDayOfWeek + eMonday = 1 + eTuesday = 2 + eWednesday = 3 + eThursday = 4 + eFriday = 5 + eSaturday = 6 + eSunday = 7 +End Enum +Public Enum eDayOfMonth + eLastDay = -1 + e1 = 1 + e2 = 2 + e3 = 3 + e4 = 4 + e5 = 5 + e6 = 6 + e7 = 7 + e8 = 8 + e9 = 9 + e10 = 10 + e11 = 11 + e12 = 12 + e13 = 13 + e14 = 14 + e15 = 15 + e16 = 16 + e17 = 17 + e18 = 18 + e19 = 19 + e20 = 20 + e21 = 21 + e22 = 22 + e23 = 23 + e24 = 24 + e25 = 25 + e26 = 26 + e27 = 27 + e28 = 28 + e29 = 29 + e30 = 30 + e31 = 31 +End Enum +Public Enum eActionFrequency + eDaily = 0 'Minden nap + eWeekly = 1 '-- Minden héten + eTwoWeekly = 5 '-- Minen második héten + eMonthly = 2 ' -- Minden hónapban + eQuarter = 3 '-- Minden negyedévben + eYear = 4 '-- Minden évben +End Enum +Public Enum eContractRowsType + eFix = 0 'Fix számlázandó sor + eMileStone = 1 'Fix számlázandó, de meg kell adni számlázáskor a teljesítés dátumát + eVariable = 2 ' Változó érték, a számlázás előtt meg kell adni és lehet kézileg módosítani + eAdvance = 3 ' Előleg sortípus, előleg számla kiállításához + eCustomRate = 4 'Dijbekérő !!! +End Enum +Public Enum eDefinite + eFixedTerm = 0 'Határozott időtartamú + eIndefinite = 1 'Határozatlan időtartamú +End Enum + +' _ +' _ +' _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +0", AppearanceItemType.ViewItem, "State<>0", TargetItems:="CustomersFrom;Customers;DateCreated;" & _ + "DatePreContractSigned;DateClosed;DateWaiting;DateExecution;DateExpectClose;ContractTemplate;State;DocumentNumber;ObjectCreated;" & _ + "UserCreated;CurrencyName;CurrencyName_Invoice;BankInformation;JobNumberObjects;UniqueObjects;ShortName;HRResponsible;CRMEstate_Opportunity_Immovables;" & _ + "CRM_Opportunities;OfferInHeader;OrderInAcknowledgementHeader;Definite;TerminateDay", Enabled:=False)> _ +0 and State<>1", AppearanceItemType.ViewItem, "State<>0 AND State<>1", TargetItems:="File", Enabled:=False)> _ +Public Class Contracts 'Szerződések + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Partner + Private _ContractGroup As ContractGroup + Private _DateCreated As Date 'Aláírás dátuma + Private _DatePreContractSigned As Date 'Előszerződés aláírásának dátuma + Private _DateClosed As Date 'Szerződés lezárás dátuma + Private _DateWaiting As Date 'Felfüggesztés dátuma + Private _DateTerminating As Date 'Felmondás dátuma + Private _DateExecution As Date 'Hatálybalépés dátuma + Private _DateExpectClose As Date 'Várható lezárás dátuma + Private _ContractTemplate As ContractTemplate 'Szerződési sablon + Private _File As FileData ' Csatolt fájl + Private _State As State = State.Preparation + Private _DocumentNumber As String + Private _ObjectCreated As Date + Private _UserCreated As User + Private _CurrencyName As CurrencyName 'A szerződés deviza neme + Private _CurrencyName_Invoice As CurrencyName 'A vevői szerződéshez kapcsolódó számla deviza nem + Private _BankInformation As BankInformation 'A vevői szerződéshez kapcsolódó számlára felkerülő bankszámlaszám SAJÁT CÉG!!! + Private _CustomerBankAccounts As CustomerBankAccounts 'ÜGYFÉL bankszámla + Private _DocumentBody As String + Private _JobNumberObjects As JobNumberObjects 'Munkaszám, project + Private _UniqueObjects As UniqueObjects 'Egyedi azonosító + Private _ShortName As String ' A szerződés tárgya + Private _HRResponsible As HRPerson 'A szerződés felelőse + Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables 'Milyen ingatlanértékesítéshez tartozik + Private _CRM_Opportunities As CRM_Opportunities 'Milyen CRM ügyhöz tartozik a szerződés + Private _OfferInHeader As OfferInHeader 'Bejövő ajánlat + Private _OfferOutHeader As OfferOutHeader + Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader 'Kimenő rendelés visszaigazolása + + Private _Definite As eDefinite 'Határozott vagy határozatlan időtartamú + Private _TerminateDay As Long 'Felmondási nap, ha határozatlan + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + If ContractTemplate IsNot Nothing Then + If ContractTemplate.NumberGenerator IsNot Nothing Then + _DocumentNumber = ContractTemplate.NumberGenerator.GetNewNumber(ContractTemplate.NumberGenerator) + End If + End If + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CurrencyName = Session.FindObject(Of CurrencyName)(1, CriteriaOperator.Parse("ShortName='HUF'")) + End Sub + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + + Property ContractGroup As ContractGroup + Get + Return _ContractGroup + End Get + Set(value As ContractGroup) + SetPropertyValue("ContractGroup", _ContractGroup, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + ReadOnly Property DateCreated_ShortDate As String + Get + Return String.Format(DateCreated, "Short Date") + End Get + End Property + Property DatePreContractSigned As Date + Get + Return _DatePreContractSigned + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePreContractSigned", _DatePreContractSigned, value) + End Set + End Property + Property DateClosed As Date + Get + Return _DateClosed + End Get + Set(ByVal value As Date) + SetPropertyValue("DateClosed", _DateClosed, value) + End Set + End Property + Property DateWaiting As Date + Get + Return _DateWaiting + End Get + Set(ByVal value As Date) + SetPropertyValue("DateWaiting", _DateWaiting, value) + End Set + End Property + Property DateTerminating As Date + Get + Return _DateTerminating + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTerminating", _DateTerminating, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateExpectClose As Date + Get + Return _DateExpectClose + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExpectClose", _DateExpectClose, value) + End Set + End Property + _ + _ + _ + Property ContractTemplate() As ContractTemplate + Get + Return _ContractTemplate + End Get + Set(ByVal value As ContractTemplate) + SetPropertyValue("ContractTemplate", _ContractTemplate, value) + End Set + End Property + _ + + Property File() As FileData + Get + Return _File + End Get + Set(ByVal value As FileData) + SetPropertyValue("File", _File, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property CurrencyName_Invoice As CurrencyName + Get + Return _CurrencyName_Invoice + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Invoice", _CurrencyName_Invoice, value) + End Set + End Property + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + _ + Property CustomerBankAccounts As CustomerBankAccounts + Get + Return _CustomerBankAccounts + End Get + Set(value As CustomerBankAccounts) + SetPropertyValue("CustomerBankAccounts", _CustomerBankAccounts, value) + End Set + End Property + Property State() As State + Get + Return _State + End Get + Set(ByVal value As State) + SetPropertyValue("State", _State, value) + End Set + End Property + _ + _ + Property DocumentBody() As String + Get + If Session.IsNewObject(Me) = True Then + If Not _ContractTemplate Is Nothing Then + _DocumentBody = _ContractTemplate.DocumentBody + End If + End If + Return _DocumentBody + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + Property JobNumberObjects() As JobNumberObjects + Get + + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property HRResponsible As HRPerson + Get + Return _HRResponsible + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRResponsible", _HRResponsible, value) + End Set + End Property + Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Get + Return _CRMEstate_Opportunity_Immovables + End Get + Set(value As CRMEstate_Opportunity_Immovables) + SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value) + End Set + End Property + _ + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Property OfferInHeader As OfferInHeader + Get + Return _OfferInHeader + End Get + Set(value As OfferInHeader) + SetPropertyValue("OfferInHeader", _OfferInHeader, value) + End Set + End Property + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Get + Return _OrderInAcknowledgementHeader + End Get + Set(value As OrderInAcknowledgementHeader) + SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value) + End Set + End Property + + Property Definite As eDefinite + Get + Return _Definite + End Get + Set(value As eDefinite) + SetPropertyValue("Definite", _Definite, value) + End Set + End Property + + Property TerminateDay As Long + Get + Return _TerminateDay + End Get + Set(value As Long) + SetPropertyValue("TerminateDay", _TerminateDay, value) + End Set + End Property + ReadOnly Property DateEstimatedTermination As Date + Get + Return DateAdd(DateInterval.Day, TerminateDay, Now) + End Get + End Property + 'Readonly + ReadOnly Property DisplayName() As String + Get + If Customers Is Nothing Then + Return DocumentNumber & ", " & ShortName + Else + Return DocumentNumber & ", " & Customers.FullName & ", " & ShortName + End If + End Get + End Property + _ + ReadOnly Property DocumentFile() As XPCollection(Of DocumentFileData) + Get + Return GetCollection(Of DocumentFileData)("DocumentFile") + End Get + End Property + _ + ReadOnly Property AuditTrail() As XPCollection(Of AuditDataItemPersistent) + Get + Return AuditedObjectWeakReference.GetAuditTrail(Session, Me) + End Get + End Property + _ + ReadOnly Property ContractRows() As XPCollection(Of ContractRows) + Get + Return GetCollection(Of ContractRows)("ContractRows") + End Get + End Property + ReadOnly Property ContractsBankInformation As XPCollection(Of BankInformation) + Get + If Me.CustomersFrom IsNot Nothing Then + Dim _BankInformation_Collection As New XPCollection(Of BankInformation)(Session, CriteriaOperator.Parse("1=2")) + + Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("CustomerFrom=? AND LiquidAssetsType=1", Me.CustomersFrom)) + + For Each _LiquidAssets As LiquidAssets In _LiquidAssets_Collection + Dim _BankInformation As BankInformation = Session.FindObject(Of BankInformation)(CriteriaOperator.Parse("LiquidAssests=?", _LiquidAssets)) + If _BankInformation IsNot Nothing Then + _BankInformation_Collection.Add(_BankInformation) + End If + Next + + Return _BankInformation_Collection + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property ContractProductsCredit As XPCollection(Of ContractProductsCredit) + Get + Return GetCollection(Of ContractProductsCredit)("ContractProductsCredit") + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsRTF.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsRTF.vb new file mode 100644 index 0000000..b18e208 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsRTF.vb @@ -0,0 +1,20 @@ +Public Class ContractsRTF + + Property [Sajátcég_Teljesnév] As String + Property [Sajátcég_Irányítószám] As String + Property [Sajátcég_Város] As String + Property [Sajátcég_Utca] As String + Property [Sajátcég_Ország] As String + Property [Sajátcég_Adószám] As String + Property [Sajátcég_Adószám_EU] As String + + Property [Partner_Teljesnév] As String + Property [Partner_Irányítószám] As String + Property [Partner_Város] As String + Property [Partner_Utca] As String + Property [Partner_Ország] As String + Property [Partner_Adószám] As String + Property [Partner_Adószám_EU] As String + + Property [Szerződés_Dokumentum_Sorszám] As String +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.Designer.vb new file mode 100644 index 0000000..92944e1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.Designer.vb @@ -0,0 +1,416 @@ +Partial Class ContractsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCloneContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateInvoicefromContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloneSelectedContracts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateInvoicefromContractsRowsCustomRate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMarkAsReady = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSendBackToEdit = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMarkAsSigned = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMarkAsClosed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMarkAsWaiting = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMarkAsTerminating_Old = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateFinalInvoiceFromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMergeContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aNewContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDivideContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOpenCOCFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenRegistryInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToEditableSignedContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aModifyContractData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDescriptionSelect = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMarkAsTerminating = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCloneContractsRows + ' + Me.aCloneContractsRows.AcceptButtonCaption = Nothing + Me.aCloneContractsRows.CancelButtonCaption = Nothing + Me.aCloneContractsRows.Caption = "aClone Contracts Rows" + Me.aCloneContractsRows.Category = "ObjectsCreation" + Me.aCloneContractsRows.ConfirmationMessage = Nothing + Me.aCloneContractsRows.Id = "aCloneContractsRows" + Me.aCloneContractsRows.ImageName = Nothing + Me.aCloneContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCloneContractsRows.Shortcut = Nothing + Me.aCloneContractsRows.Tag = Nothing + Me.aCloneContractsRows.TargetObjectsCriteria = Nothing + Me.aCloneContractsRows.TargetViewId = "" + Me.aCloneContractsRows.ToolTip = Nothing + Me.aCloneContractsRows.TypeOfView = Nothing + ' + 'aGenerateInvoicefromContractsRows + ' + Me.aGenerateInvoicefromContractsRows.AcceptButtonCaption = Nothing + Me.aGenerateInvoicefromContractsRows.CancelButtonCaption = Nothing + Me.aGenerateInvoicefromContractsRows.Caption = "Make invoices" + Me.aGenerateInvoicefromContractsRows.Category = "ObjectsCreation" + Me.aGenerateInvoicefromContractsRows.ConfirmationMessage = Nothing + Me.aGenerateInvoicefromContractsRows.Id = "aGenerateInvoicefromContractsRows" + Me.aGenerateInvoicefromContractsRows.ImageName = Nothing + Me.aGenerateInvoicefromContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateInvoicefromContractsRows.Shortcut = Nothing + Me.aGenerateInvoicefromContractsRows.Tag = Nothing + Me.aGenerateInvoicefromContractsRows.TargetObjectsCriteria = Nothing + Me.aGenerateInvoicefromContractsRows.TargetViewId = "" + Me.aGenerateInvoicefromContractsRows.ToolTip = Nothing + Me.aGenerateInvoicefromContractsRows.TypeOfView = Nothing + ' + 'aCloneSelectedContracts + ' + Me.aCloneSelectedContracts.AcceptButtonCaption = Nothing + Me.aCloneSelectedContracts.CancelButtonCaption = Nothing + Me.aCloneSelectedContracts.Caption = "aClone Selected Contracts" + Me.aCloneSelectedContracts.Category = "ObjectsCreation" + Me.aCloneSelectedContracts.ConfirmationMessage = Nothing + Me.aCloneSelectedContracts.Id = "aCloneSelectedContracts" + Me.aCloneSelectedContracts.ImageName = "Images.paragraph_clone" + Me.aCloneSelectedContracts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneSelectedContracts.Shortcut = Nothing + Me.aCloneSelectedContracts.Tag = Nothing + Me.aCloneSelectedContracts.TargetObjectsCriteria = Nothing + Me.aCloneSelectedContracts.TargetViewId = Nothing + Me.aCloneSelectedContracts.ToolTip = Nothing + Me.aCloneSelectedContracts.TypeOfView = Nothing + ' + 'aGenerateInvoicefromContractsRowsCustomRate + ' + Me.aGenerateInvoicefromContractsRowsCustomRate.AcceptButtonCaption = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.CancelButtonCaption = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.Caption = "Make custom rate" + Me.aGenerateInvoicefromContractsRowsCustomRate.Category = "ObjectsCreation" + Me.aGenerateInvoicefromContractsRowsCustomRate.ConfirmationMessage = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.Id = "aGenerateInvoicefromContractsRowsCustomRate" + Me.aGenerateInvoicefromContractsRowsCustomRate.ImageName = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateInvoicefromContractsRowsCustomRate.Shortcut = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.Tag = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.TargetObjectsCriteria = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.TargetViewId = "" + Me.aGenerateInvoicefromContractsRowsCustomRate.ToolTip = Nothing + Me.aGenerateInvoicefromContractsRowsCustomRate.TypeOfView = Nothing + ' + 'aMarkAsReady + ' + Me.aMarkAsReady.Caption = "Mark As Ready" + Me.aMarkAsReady.Category = "RecordEdit" + Me.aMarkAsReady.ConfirmationMessage = "Do you really mark as ready this contract?" + Me.aMarkAsReady.Id = "aMarks as ready" + Me.aMarkAsReady.ImageName = Nothing + Me.aMarkAsReady.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMarkAsReady.Shortcut = Nothing + Me.aMarkAsReady.Tag = Nothing + Me.aMarkAsReady.TargetObjectsCriteria = Nothing + Me.aMarkAsReady.TargetViewId = "Contracts_DetailView" + Me.aMarkAsReady.ToolTip = Nothing + Me.aMarkAsReady.TypeOfView = Nothing + ' + 'aSendBackToEdit + ' + Me.aSendBackToEdit.Caption = "aSend Back To Edit" + Me.aSendBackToEdit.Category = "RecordEdit" + Me.aSendBackToEdit.ConfirmationMessage = "Do you really send back to edit this contract?" + Me.aSendBackToEdit.Id = "aSendBackToEdit" + Me.aSendBackToEdit.ImageName = Nothing + Me.aSendBackToEdit.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSendBackToEdit.Shortcut = Nothing + Me.aSendBackToEdit.Tag = Nothing + Me.aSendBackToEdit.TargetObjectsCriteria = Nothing + Me.aSendBackToEdit.TargetViewId = "Contracts_DetailView" + Me.aSendBackToEdit.ToolTip = Nothing + Me.aSendBackToEdit.TypeOfView = Nothing + ' + 'aMarkAsSigned + ' + Me.aMarkAsSigned.Caption = "aMark As Signed" + Me.aMarkAsSigned.Category = "RecordEdit" + Me.aMarkAsSigned.ConfirmationMessage = "Do you really mark as signed this contract?" + Me.aMarkAsSigned.Id = "aMarkAsSigned" + Me.aMarkAsSigned.ImageName = Nothing + Me.aMarkAsSigned.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMarkAsSigned.Shortcut = Nothing + Me.aMarkAsSigned.Tag = Nothing + Me.aMarkAsSigned.TargetObjectsCriteria = Nothing + Me.aMarkAsSigned.TargetViewId = "Contracts_DetailView" + Me.aMarkAsSigned.ToolTip = Nothing + Me.aMarkAsSigned.TypeOfView = Nothing + ' + 'aMarkAsClosed + ' + Me.aMarkAsClosed.Caption = "aMark As Closed" + Me.aMarkAsClosed.Category = "RecordEdit" + Me.aMarkAsClosed.ConfirmationMessage = "Do you really mark as closed this contract?" + Me.aMarkAsClosed.Id = "aMarkAsClosed" + Me.aMarkAsClosed.ImageName = Nothing + Me.aMarkAsClosed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMarkAsClosed.Shortcut = Nothing + Me.aMarkAsClosed.Tag = Nothing + Me.aMarkAsClosed.TargetObjectsCriteria = Nothing + Me.aMarkAsClosed.TargetViewId = "Contracts_DetailView" + Me.aMarkAsClosed.ToolTip = Nothing + Me.aMarkAsClosed.TypeOfView = Nothing + ' + 'aMarkAsWaiting + ' + Me.aMarkAsWaiting.Caption = "aMark As Waiting" + Me.aMarkAsWaiting.Category = "RecordEdit" + Me.aMarkAsWaiting.ConfirmationMessage = "Do you really mark as waiting this contract?" + Me.aMarkAsWaiting.Id = "aMarkAsWaiting" + Me.aMarkAsWaiting.ImageName = Nothing + Me.aMarkAsWaiting.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMarkAsWaiting.Shortcut = Nothing + Me.aMarkAsWaiting.Tag = Nothing + Me.aMarkAsWaiting.TargetObjectsCriteria = Nothing + Me.aMarkAsWaiting.TargetViewId = "Contracts_DetailView" + Me.aMarkAsWaiting.ToolTip = Nothing + Me.aMarkAsWaiting.TypeOfView = Nothing + ' + 'aMarkAsTerminating_Old + ' + Me.aMarkAsTerminating_Old.Caption = "aMarkAsTerminating_Old" + Me.aMarkAsTerminating_Old.Category = "RecordEdit" + Me.aMarkAsTerminating_Old.ConfirmationMessage = "Do you really terminating this contract?" + Me.aMarkAsTerminating_Old.Id = "aMarkAsTerminating_Old" + Me.aMarkAsTerminating_Old.ImageName = Nothing + Me.aMarkAsTerminating_Old.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMarkAsTerminating_Old.Shortcut = Nothing + Me.aMarkAsTerminating_Old.Tag = Nothing + Me.aMarkAsTerminating_Old.TargetObjectsCriteria = Nothing + Me.aMarkAsTerminating_Old.TargetViewId = "Contracts_DetailView" + Me.aMarkAsTerminating_Old.ToolTip = Nothing + Me.aMarkAsTerminating_Old.TypeOfView = Nothing + ' + 'aCreateFinalInvoiceFromContract + ' + Me.aCreateFinalInvoiceFromContract.AcceptButtonCaption = Nothing + Me.aCreateFinalInvoiceFromContract.CancelButtonCaption = Nothing + Me.aCreateFinalInvoiceFromContract.Caption = "aCreateFinalInvoice" + Me.aCreateFinalInvoiceFromContract.Category = "ObjectsCreation" + Me.aCreateFinalInvoiceFromContract.ConfirmationMessage = Nothing + Me.aCreateFinalInvoiceFromContract.Id = "aCreateFinalInvoiceFromContract" + Me.aCreateFinalInvoiceFromContract.ImageName = Nothing + Me.aCreateFinalInvoiceFromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateFinalInvoiceFromContract.Shortcut = Nothing + Me.aCreateFinalInvoiceFromContract.Tag = Nothing + Me.aCreateFinalInvoiceFromContract.TargetObjectsCriteria = Nothing + Me.aCreateFinalInvoiceFromContract.TargetViewId = Nothing + Me.aCreateFinalInvoiceFromContract.ToolTip = Nothing + Me.aCreateFinalInvoiceFromContract.TypeOfView = Nothing + ' + 'aMergeContractRows + ' + Me.aMergeContractRows.Caption = "Merge Contract Rows" + Me.aMergeContractRows.Category = "ObjectsCreation" + Me.aMergeContractRows.ConfirmationMessage = Nothing + Me.aMergeContractRows.Id = "aMergeContractRows" + Me.aMergeContractRows.ImageName = Nothing + Me.aMergeContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMergeContractRows.Shortcut = Nothing + Me.aMergeContractRows.Tag = Nothing + Me.aMergeContractRows.TargetObjectsCriteria = Nothing + Me.aMergeContractRows.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aMergeContractRows.TargetViewId = Nothing + Me.aMergeContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMergeContractRows.ToolTip = Nothing + Me.aMergeContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aNewContractRows + ' + Me.aNewContractRows.Caption = "aNewContractRows" + Me.aNewContractRows.Category = "ObjectsCreation" + Me.aNewContractRows.ConfirmationMessage = Nothing + Me.aNewContractRows.Id = "aNewContractRows" + Me.aNewContractRows.ImageName = Nothing + Me.aNewContractRows.Shortcut = Nothing + Me.aNewContractRows.Tag = Nothing + Me.aNewContractRows.TargetObjectsCriteria = Nothing + Me.aNewContractRows.TargetViewId = "" + Me.aNewContractRows.ToolTip = Nothing + Me.aNewContractRows.TypeOfView = Nothing + ' + 'aDivideContractRows + ' + Me.aDivideContractRows.AcceptButtonCaption = Nothing + Me.aDivideContractRows.CancelButtonCaption = Nothing + Me.aDivideContractRows.Caption = "Divide Contract Rows" + Me.aDivideContractRows.Category = "ObjectsCreation" + Me.aDivideContractRows.ConfirmationMessage = Nothing + Me.aDivideContractRows.Id = "aDivideContractRows" + Me.aDivideContractRows.ImageName = Nothing + Me.aDivideContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDivideContractRows.Shortcut = Nothing + Me.aDivideContractRows.Tag = Nothing + Me.aDivideContractRows.TargetObjectsCriteria = Nothing + Me.aDivideContractRows.TargetViewId = Nothing + Me.aDivideContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aDivideContractRows.ToolTip = Nothing + Me.aDivideContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aOpenCOCFromContractRows + ' + Me.aOpenCOCFromContractRows.Caption = "Open COCFrom Contract Rows" + Me.aOpenCOCFromContractRows.Category = "View" + Me.aOpenCOCFromContractRows.ConfirmationMessage = Nothing + Me.aOpenCOCFromContractRows.Id = "aOpenCOCFromContractRows" + Me.aOpenCOCFromContractRows.ImageName = Nothing + Me.aOpenCOCFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenCOCFromContractRows.Shortcut = Nothing + Me.aOpenCOCFromContractRows.Tag = Nothing + Me.aOpenCOCFromContractRows.TargetObjectsCriteria = Nothing + Me.aOpenCOCFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.aOpenCOCFromContractRows.TargetViewId = Nothing + Me.aOpenCOCFromContractRows.ToolTip = Nothing + Me.aOpenCOCFromContractRows.TypeOfView = Nothing + ' + 'aOpenInvoiceFromContractRows + ' + Me.aOpenInvoiceFromContractRows.Caption = "Open Invoice From Contract Rows" + Me.aOpenInvoiceFromContractRows.Category = "View" + Me.aOpenInvoiceFromContractRows.ConfirmationMessage = Nothing + Me.aOpenInvoiceFromContractRows.Id = "aOpenInvoiceFromContractRows" + Me.aOpenInvoiceFromContractRows.ImageName = Nothing + Me.aOpenInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenInvoiceFromContractRows.Shortcut = Nothing + Me.aOpenInvoiceFromContractRows.Tag = Nothing + Me.aOpenInvoiceFromContractRows.TargetObjectsCriteria = Nothing + Me.aOpenInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.aOpenInvoiceFromContractRows.TargetViewId = Nothing + Me.aOpenInvoiceFromContractRows.ToolTip = Nothing + Me.aOpenInvoiceFromContractRows.TypeOfView = Nothing + ' + 'aOpenRegistryInvoiceFromContractRows + ' + Me.aOpenRegistryInvoiceFromContractRows.Caption = "Open Registry Invoice From Contract Rows" + Me.aOpenRegistryInvoiceFromContractRows.Category = "View" + Me.aOpenRegistryInvoiceFromContractRows.ConfirmationMessage = Nothing + Me.aOpenRegistryInvoiceFromContractRows.Id = "aOpenRegistryInvoiceFromContractRows" + Me.aOpenRegistryInvoiceFromContractRows.ImageName = Nothing + Me.aOpenRegistryInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenRegistryInvoiceFromContractRows.Shortcut = Nothing + Me.aOpenRegistryInvoiceFromContractRows.Tag = Nothing + Me.aOpenRegistryInvoiceFromContractRows.TargetObjectsCriteria = Nothing + Me.aOpenRegistryInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows) + Me.aOpenRegistryInvoiceFromContractRows.TargetViewId = Nothing + Me.aOpenRegistryInvoiceFromContractRows.ToolTip = Nothing + Me.aOpenRegistryInvoiceFromContractRows.TypeOfView = Nothing + ' + 'aBackToEditableSignedContract + ' + Me.aBackToEditableSignedContract.Caption = "aBackToEditableSignedContract" + Me.aBackToEditableSignedContract.Category = "RecordEdit" + Me.aBackToEditableSignedContract.ConfirmationMessage = Nothing + Me.aBackToEditableSignedContract.Id = "aBackToEditableSignedContract" + Me.aBackToEditableSignedContract.ImageName = Nothing + Me.aBackToEditableSignedContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEditableSignedContract.Shortcut = Nothing + Me.aBackToEditableSignedContract.Tag = Nothing + Me.aBackToEditableSignedContract.TargetObjectsCriteria = Nothing + Me.aBackToEditableSignedContract.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aBackToEditableSignedContract.TargetViewId = "" + Me.aBackToEditableSignedContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aBackToEditableSignedContract.ToolTip = Nothing + Me.aBackToEditableSignedContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aModifyContractData + ' + Me.aModifyContractData.AcceptButtonCaption = Nothing + Me.aModifyContractData.CancelButtonCaption = Nothing + Me.aModifyContractData.Caption = "aModify Contract Data" + Me.aModifyContractData.ConfirmationMessage = Nothing + Me.aModifyContractData.Id = "aModifyContractData" + Me.aModifyContractData.ImageName = Nothing + Me.aModifyContractData.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aModifyContractData.Shortcut = Nothing + Me.aModifyContractData.Tag = Nothing + Me.aModifyContractData.TargetObjectsCriteria = Nothing + Me.aModifyContractData.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aModifyContractData.TargetViewId = Nothing + Me.aModifyContractData.ToolTip = Nothing + Me.aModifyContractData.TypeOfView = Nothing + ' + 'aDescriptionSelect + ' + Me.aDescriptionSelect.AcceptButtonCaption = Nothing + Me.aDescriptionSelect.CancelButtonCaption = Nothing + Me.aDescriptionSelect.Caption = "aDescription Select" + Me.aDescriptionSelect.Category = "aDescriptionSelect" + Me.aDescriptionSelect.ConfirmationMessage = Nothing + Me.aDescriptionSelect.Id = "aDescriptionSelect" + Me.aDescriptionSelect.ImageName = Nothing + Me.aDescriptionSelect.Shortcut = Nothing + Me.aDescriptionSelect.Tag = Nothing + Me.aDescriptionSelect.TargetObjectsCriteria = Nothing + Me.aDescriptionSelect.TargetObjectType = GetType(SISBusiness.[Module].ContractsRowsToInvoice) + Me.aDescriptionSelect.TargetViewId = Nothing + Me.aDescriptionSelect.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aDescriptionSelect.ToolTip = Nothing + Me.aDescriptionSelect.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aMarkAsTerminating + ' + Me.aMarkAsTerminating.AcceptButtonCaption = Nothing + Me.aMarkAsTerminating.CancelButtonCaption = Nothing + Me.aMarkAsTerminating.Caption = "aMark As Terminating" + Me.aMarkAsTerminating.ConfirmationMessage = Nothing + Me.aMarkAsTerminating.Id = "aMarkAsTerminating" + Me.aMarkAsTerminating.ImageName = Nothing + Me.aMarkAsTerminating.Shortcut = Nothing + Me.aMarkAsTerminating.Tag = Nothing + Me.aMarkAsTerminating.TargetObjectsCriteria = Nothing + Me.aMarkAsTerminating.TargetObjectType = GetType(SISBusiness.[Module].Contracts) + Me.aMarkAsTerminating.TargetViewId = Nothing + Me.aMarkAsTerminating.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aMarkAsTerminating.ToolTip = Nothing + Me.aMarkAsTerminating.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aCloneContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateInvoicefromContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloneSelectedContracts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateInvoicefromContractsRowsCustomRate As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMarkAsReady As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSendBackToEdit As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMarkAsSigned As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMarkAsClosed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMarkAsWaiting As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMarkAsTerminating_Old As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateFinalInvoiceFromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDivideContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMergeContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenCOCFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenRegistryInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aNewContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToEditableSignedContract As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aModifyContractData As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDescriptionSelect As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMarkAsTerminating As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.resx new file mode 100644 index 0000000..6e91f93 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.resx @@ -0,0 +1,186 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 758 + + + 17, 719 + + + 17, 680 + + + 17, 134 + + + 17, 641 + + + 17, 251 + + + 17, 602 + + + 17, 563 + + + 17, 524 + + + 17, 485 + + + 17, 329 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 290 + + + 17, 212 + + + 17, 173 + + + 17, 56 + + + 17, 95 + + + 665, 17 + + + 187, 758 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb new file mode 100644 index 0000000..f2f7fd9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.vb @@ -0,0 +1,1491 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports System.Linq +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + +Public Class ContractsVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As ArrayList + Dim _InvoiceRowsSelection As ArrayList = New ArrayList + Protected _noselect As Boolean = False + + Public Sub New() + MyBase.New() + _selection = New ArrayList() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False) ' -- Megjells Ksz-nek + Frame.GetController(Of ContractsVC).aSendBackToEdit.Active.SetItemValue("", False) ' -- Visszaklds szerkeszthetnek + Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False) ' -- Megjells alrtnak + Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", False) ' -- Megjells lezrtnak + Frame.GetController(Of ContractsVC).aMarkAsTerminating_Old.Active.SetItemValue("", False) ' -- Megjells megszaktottnak + Frame.GetController(Of ContractsVC).aMarkAsWaiting.Active.SetItemValue("", False) ' -- Megjells vrakoznak + Frame.GetController(Of ContractsVC).aCloneContractsRows.Active.SetItemValue("", False) ' -- Kijellt szerzodsi sorok klnozsa + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) ' -- Szmla ksztse szerzods sorokbl + Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False) ' -- Kijellt szerzodsek klnozsa + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False) ' -- Kijellt szerzodsi sorokbl Djbekrot kszt + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) + + If View.Id Like "Contracts_ListView*" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "ContractRows_ListView_Invoice_Advance" Then + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ContractRows_ListView_Invoice_Advance_DeleteAction_Executing + End If + + If View.Id Like "Contracts_ListView_*" Then + Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged2 + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = _ + "isnull(CertificateofContractRows)=True and isnull(RegistryRowsFinancialControlling)=True and isnull(InvoiceRows)=True and Contracts.State = 0" + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.SelectionDependencyType = SelectionDependencyType.RequireMultipleObjects + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll + End If + If View.Id Like "*ContractRows_ListView*" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf DeleteAction_Executing + End If + + '-------------------- LISTVIEW ------------------------------------------------------------------------------------------------------------------------- + If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ContractRows_ListView_Invoice_Advance" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + 'Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False) + + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) 'Ez is itt volt... + End If + If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) + End If + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or View.Id = "ContractRows_ListView_Invoice_MileStone" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True) + End If + + If View.Id = "ContractRows_ListView_Invoiced" Then + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + End If + If View.Id = "ContractRows_ListView_Invoice_IsProforma" Then + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + End If + If View.Id = "ContractRows_ListView_Invoice_Finalized" Then + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + End If + + If View.Id = "Contracts_ListView_Signed" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Contracts_ContractRows_ListView" Then + Frame.GetController(Of ContractsVC)().aNewContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aCloneContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + Dim _Contracts As Contracts = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Contracts) + + If _Contracts IsNot Nothing Then + + If _Contracts.ContractTemplate IsNot Nothing Then + If _Contracts.ContractTemplate.IsTechnical = True Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + End If + End If + + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + AddHandler View.SelectionChanged, AddressOf ContractRowsListView_selection_changed + End If + If View.Id = "ContractProductRows_ListView_Invoice" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + End If + If View.Id = "Contracts_ListView_Technical" Then + Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False) + End If + + If View.Id = "InvoiceHeader_DescriptionChanger_PopUp_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "Contracts_ListView_Subcontractor" Then + Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aModifyContractData.Active.SetItemValue("", False) + End If + + If View.Id = "Contracts_ListView_Support" Then + Frame.GetController(Of ContractsVC).aCloneSelectedContracts.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aModifyContractData.Active.SetItemValue("", False) + End If + '-------------------- DETAILVIEW ----------------------------------------------------------------------------------------------------------------------- + If View.Id = "ContractRows_DetailView" Then + If TryCast(View.SelectedObjects(0), ContractRows).InvoiceRows IsNot Nothing Then + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + End If + End If + If View.Id = "Contracts_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + + Dim _Contracts = TryCast(View.SelectedObjects(0), Contracts) + If _Contracts IsNot Nothing Then + If _Contracts.State = State.Ready Or _Contracts.State = State.Signed Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + If _Contracts.State = State.Preparation Then + Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aSendBackToEdit.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False) + End If + If _Contracts.State = State.Ready Then + Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aSendBackToEdit.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False) + End If + If _Contracts.State = State.Signed Then + Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aSendBackToEdit.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aMarkAsTerminating_Old.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aMarkAsWaiting.Active.SetItemValue("", True) + End If + + If _Contracts IsNot Nothing Then + If _Contracts.ContractTemplate IsNot Nothing Then + + If _Contracts.ContractTemplate.IsTechnical = True Then '! Technikai szerzds esetn !!! + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsClosed.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsReady.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsSigned.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsTerminating_Old.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aMarkAsWaiting.Active.SetItemValue("", False) + End If + End If + End If + End If + If View.Id = "ContractRowsToFinalInvoice_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ContractRowsToFinalInvoice_AcceptAction_Executing + End If + + + '-------------------- LookupListView ----------------------------------------------------------------------------------------------------------------------- + If View.Id = "ContractRows_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + 'A csoportos szmlzs kijellsvltozs figyelse, hogy csak azonos vllalattal rendelkezo sorokat lehessen kivlasztani + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + 'Ha ltezik proforma vagy vglegestett szmla sor a szerzodshez akkor ne lehessen trlni + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + If View.Id = "ContractRows_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Contracts_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ContractRows_ListView_Invoice_Advance" Then + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", False) + + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True) + + + Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aCreateFinalInvoiceFromContract.Active.SetItemValue("", True) + End If + If View.Id = "ContractRows_ListView_Invoice_CustomRate" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aGenerateInvoicefromContractsRowsCustomRate.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aDivideContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC).aMergeContractRows.Active.SetItemValue("", True) + End If + If View.Id = "ContractRowsToFinalInvoice_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ContractRowsToFinalInvoice_AcceptAction_Executing + End If + If View.Id = "ContractRows_ListView_Invoice_Advance" Then + RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ContractRows_ListView_Invoice_Advance_DeleteAction_Executing + End If + + + End Sub + Sub ContractRowsToFinalInvoice_AcceptAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + _noselect = True + End Sub + Sub ContractRowsListView_selection_changed(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _ContractRows As ContractRows + For Each _ContractRows In View.SelectedObjects + If _ContractRows.InvoiceRows IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + Next + End Sub + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _Contracts As Contracts = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, Contracts) + If _Contracts Is Nothing Then Exit Sub + If _Contracts.State = State.Signed Or _Contracts.State = State.Ready Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + End If + End Sub + Sub DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows As ContractRows = TryCast(View.CurrentObject, ContractRows) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancialControlling_Collection As XPCollection(Of RegistryRowsFinancialControlling) + + If _ContractRows IsNot Nothing Then + + If _ContractRows.Contracts.ContractTemplate.PartnerType = ePartnerType.ePayabels Then + If _ContractRows.CertificateofContractRows IsNot Nothing Then + e.Cancel = True + Throw New Exception("*Ehhez a szerzdsi sorhoz aktv teljestsi igazols van rendelve !") + Exit Sub + End If + If _ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then + e.Cancel = True + Throw New Exception("*Ehhez a szerzdsi sorhoz aktv szmla igazols van rendelve !") + Exit Sub + End If + ElseIf _ContractRows.Contracts.ContractTemplate.PartnerType = ePartnerType.eReceivables Then + If _ContractRows.InvoiceRows IsNot Nothing Then + e.Cancel = True + Throw New Exception("*Ehhez a szerzdsi sorhoz aktv szmla van rendelve !") + Exit Sub + End If + If _ContractRows.InvoiceRowsAdvance IsNot Nothing Then + e.Cancel = True + Throw New Exception("*Ehhez a szerzdsi sorhoz aktv szmla van rendelve !") + Exit Sub + End If + _RegistryRowsFinancialControlling_Collection = New XPCollection(Of RegistryRowsFinancialControlling) _ + (_ocur.Session, CriteriaOperator.Parse("ReInvoice_ContractRows.Oid=?", _ContractRows.Oid)) + For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + _RegistryRowsFinancialControlling.ReInvoice_ContractRows = Nothing + Next + End If + + End If + End Sub + + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or _ + View.Id = "ContractRows_ListView_Invoice_MileStone" Or _ + View.Id = "ContractRows_ListView_Invoice_Advance" Or _ + View.Id = "ContractRows_ListView_Invoice_CustomRate" Or _ + View.Id = "ContractProductRows_ListView_Invoice" Then + + Dim _ContractRows As ContractRows + If _noselect = False Then + _selection.Clear() + For Each _ContractRows In View.SelectedObjects + _selection.Add(_ContractRows) + Next + End If + + 'If View.SelectedObjects.Count > 0 Then + ' Dim _FirstContractRowSelected As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + ' Dim _LastContractRowSelected As ContractRows = TryCast(View.SelectedObjects(View.SelectedObjects.Count - 1), ContractRows) + + ' If _FirstContractRowSelected.Contracts.CustomersFrom IsNot _LastContractRowSelected.Contracts.CustomersFrom Then + ' Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + ' Else + ' Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + ' End If + 'End If + End If + + If View.Id Like "Contracts_ListView_*" Then + Dim _Contracts As Contracts + If _noselect = False Then + _selection.Clear() + For Each _Contracts In View.SelectedObjects + _selection.Add(_Contracts) + Next + End If + End If + If View.Id = "ContractRowsToFinalInvoice_InvoiceRows_ListView" Then + Dim _InvoiceRows As InvoiceRows + If _noselect = False Then + _selection.Clear() + For Each _InvoiceRows In View.SelectedObjects + _selection.Add(_InvoiceRows) + Next + End If + End If + + End Sub + Private Sub view_SelectionChanged2(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _Contracts As Contracts + If View.Id Like "Contracts_ListView_*" And _noselect = False Then + _selection.Clear() + For Each _Contracts In View.SelectedObjects + _selection.Add(_Contracts) + Next + End If + End Sub + + Private Sub aCloneContractsRows_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCloneContractsRows.Cancel + _noselect = False + End Sub + Private Sub aCloneContractsRows_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloneContractsRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractRowsCloneView As ContractRowsCloneView = _onew.CreateObject(Of ContractRowsCloneView)() + + _ContractRowsCloneView.DayOfExecution = eDayOfMonth.e1 + _ContractRowsCloneView.ActionFrequency = eActionFrequency.eMonthly + _ContractRowsCloneView.DayOfExecutionInWeek = eDayOfWeek.eMonday + _ContractRowsCloneView.ActionCount = 1 + + e.View = Application.CreateDetailView(_onew, "ContractRowsCloneView_DetailView", False, _ContractRowsCloneView) + End Sub + Private Sub aCloneContractsRows_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneContractsRows.Execute + '--- Az els kijellt szerzdsi sor alapjn klnoz sorokat-------------------------------- + Dim _ocur_original As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur_original.Session.DataLayer) + + Dim _ContractRows As ContractRows + Dim _ContractRows_New As ContractRows + Dim _ContractRows_Selected As ContractRows + Dim _ContractRowsCloneView As ContractRowsCloneView = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractRowsCloneView) + + Dim _DateStart As Date + Dim _DateCur As Date + Dim _DiffDay As Long + + For Each _ContractRows_Selected In e.SelectedObjects + _ContractRows = _uow.GetObjectByKey(Of ContractRows)(_ContractRows_Selected.Oid) + For i = 1 To _ContractRowsCloneView.ActionCount + _ContractRows_New = New ContractRows(_uow) + If i = 1 Then _DateStart = _ContractRows.DateExecution + _ContractRows_New.Contracts = _ContractRows.Contracts + _ContractRows_New.Controlling = _ContractRows.Controlling + _ContractRows_New.CurrencyName = _ContractRows.CurrencyName + _ContractRows_New.CurrencyRate = _ContractRows.CurrencyRate + _ContractRows_New.Description = _ContractRows.Description + _ContractRows_New.NettoPriceDEV = _ContractRows.NettoPriceDEV + _ContractRows_New.NettoPriceHUF = _ContractRows.NettoPriceHUF + _ContractRows_New.PaymentOption = _ContractRows.PaymentOption + _ContractRows_New.QTT = _ContractRows.QTT + _ContractRows_New.QualityOption = _ContractRows.QualityOption + _ContractRows_New.ShipmentOption = _ContractRows.ShipmentOption + _ContractRows_New.ShortName = _ContractRows.ShortName + _ContractRows_New.Units = _ContractRows.Units + _ContractRows_New.ContractRowsType = _ContractRows.ContractRowsType + _ContractRows_New.DateExecution = _ContractRows.DateExecution + _ContractRows_New.MileStone = _ContractRows.MileStone + _ContractRows_New.VAT = _ContractRows.VAT + _ContractRows_New.UniqueObjects = _ContractRows.UniqueObjects + _ContractRows_New.CostHolder = _ContractRows.CostHolder + _ContractRows_New.CostPlace = _ContractRows.CostPlace + _ContractRows_New.JobNumberObjects = _ContractRows.JobNumberObjects + + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eDaily Then + _DateCur = DateAdd(DateInterval.Day, i, _DateStart) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eMonthly Then + If _ContractRowsCloneView.DayOfExecution = eDayOfMonth.eLastDay Then + _DateCur = DateAdd(DateInterval.Month, i + 1, _DateStart) + _DateCur = DateAdd(DateInterval.Day, -1, CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/01")) + Else + _DateCur = DateAdd(DateInterval.Month, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eWeekly Then + _DiffDay = _ContractRowsCloneView.DayOfExecutionInWeek - DatePart(DateInterval.Weekday, _DateStart) + _DiffDay += 1 + _DateCur = DateAdd(DateInterval.WeekOfYear, i, _DateStart) + _DateCur = DateAdd(DateInterval.Day, _DiffDay, _DateCur) + + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eTwoWeekly Then + _DiffDay = _ContractRowsCloneView.DayOfExecutionInWeek - DatePart(DateInterval.Weekday, _DateStart) + _DiffDay += 1 + _DateCur = DateAdd(DateInterval.WeekOfYear, i * 2, _DateStart) + _DateCur = DateAdd(DateInterval.Day, _DiffDay, _DateCur) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eQuarter Then + _DateCur = DateAdd(DateInterval.Quarter, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eYear Then + _DateCur = DateAdd(DateInterval.Year, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + _ContractRows_New.DateExecution = _DateCur + Next + Next + _uow.CommitChanges() + + '-- NESTED FRAME REFRESH ----------------------------------------------------------------------------------------------------------------------- + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + + + Private Sub aGenerateInvoicefromContractsRows_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aGenerateInvoicefromContractsRows.Cancel + _noselect = False + End Sub + Private Sub aGenerateInvoicefromContractsRows_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateInvoicefromContractsRows.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = _ocur.CreateObject(Of ContractsRowsToInvoice)() + Dim _ContractsRowsToInvoice_New As ContractsRowsToInvoice + + _ContractsRowsToInvoice.Description = "" + _ContractsRowsToInvoice.CurrencyRate = 1 + _ContractsRowsToInvoice.DateExecution = GetSQLTime(_ocur.Session) + _ContractsRowsToInvoice.BankInformation = Nothing + _ContractsRowsToInvoice.ContractRows = _selection(0) + + _noselect = True + _ContractsRowsToInvoice.Save() + _ocur.CommitChanges() + + _ContractsRowsToInvoice_New = _onew.GetObject(_ContractsRowsToInvoice) + + e.View = Application.CreateDetailView(_onew, "ContractsRowsToInvoice_DetailView", False, _ContractsRowsToInvoice_New) + + End Sub + Private Sub aGenerateInvoicefromContractsRows_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromContractsRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRowsCollection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("1=2")) + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice) + Dim _ContractRows As ContractRows + Dim _ContractRows_Selection As ContractRows + Dim _InvoiceRows_new As InvoiceRows + Dim _InvoiceRows_Array As New ArrayList() + + On Error GoTo CheckError + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + ' -- ltrehozunk egy kollekcit a kivlasztott elemek tmbjbol + For Each _ContractRows_Selection In _selection + _ContractRows = _ocur.GetObject(_ContractRows_Selection) + _ContractRowsCollection.Add(_ContractRows) + Next + _InvoiceRows_Array.Clear() + + _noselect = False + ' -- rendezsi feltteleket adunk a ltrehozott kollekcinak + Dim sortCollection As SortingCollection = New SortingCollection() + sortCollection.Add(New SortProperty("Contracts.CustomersFrom.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("Contracts.Customers.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("CurrencyName.ShortName", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("PaymentOption.ShortName", DB.SortingDirection.Ascending)) + _ContractRowsCollection.Sorting = sortCollection + Dim i As Long = 0 + Dim _IsHeaderCreated As Boolean = False + Dim _IsNextWhile As Boolean = True + Dim _NG As NumberGenerator + Do While _IsNextWhile + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader)) + _InvoiceHeader.PaymentOption = _ContractRowsCollection(i).PaymentOption + _InvoiceHeader.ShipmentOption = _ContractRowsCollection(i).ShipmentOption + + 'Ha a sor tpusa elleg akkor az elleg szmla tpust kell vennnk a szerz.sablonnak egybknt a rendeset + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eAdvance Then + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeAdvanced + Else + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceType + End If + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _ContractRowsCollection(i).Contracts.CustomersFrom + _InvoiceHeader.Customers = _ContractRowsCollection(i).Contracts.Customers + _InvoiceHeader.Description = _ocur.GetObject(_ContractsRowsToInvoice.Description) + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).CurrencyName + _InvoiceHeader.CurrencyRate = _ocur.GetObject(_ContractsRowsToInvoice.CurrencyRate) + _InvoiceHeader.BankInformation = _ocur.GetObject(_ContractsRowsToInvoice.BankInformation) + + '-- Prbaszmla miatt el kell menteni a tnyleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _ContractRowsCollection(i).Contracts.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _ContractRowsCollection(i).Contracts.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRowsCollection(i).Contracts.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _ContractRowsCollection(i).Contracts.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _ContractRowsCollection(i).Contracts.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRowsCollection(i).Contracts.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _ContractRowsCollection(i).Contracts.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRowsCollection(i).Contracts.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRowsCollection(i).Contracts.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + '------------------------------------------------------------------------------------------------------------------ + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eMileStone Then + _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution + Else + _InvoiceHeader.DateExecution = _ContractRowsCollection(i).DateExecution + End If + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + End If + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).CurrencyName + '-- A kvetkezo sorok vizsglata s hozzadsa a fenti fejlchez amg az ezt engedlyezo felttelek teljeslnek + Do + _InvoiceRows_new = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows_new.Description = _ContractRowsCollection(i).Description + _InvoiceRows_new.QTT = _ContractRowsCollection(i).QTT + _InvoiceRows_new.QualityOption = _ContractRowsCollection(i).QualityOption + _InvoiceRows_new.VAT = _ContractRowsCollection(i).VAT + _InvoiceRows_new.Units = _ContractRowsCollection(i).Units + _InvoiceRows_new.ShortName = _ContractRowsCollection(i).ShortName + + If Not _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows_new.ListPriceHUF = Math.Round(_ContractRowsCollection(i).NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + _InvoiceRows_new.ListPriceHUF = _ContractRowsCollection(i).NettoPriceHUF + End If + _InvoiceRows_new.ListPriceDEV = _ContractRowsCollection(i).NettoPriceDEV + _InvoiceRows_new.ContractRows = _ContractRowsCollection(i) + _InvoiceRows_new.InvoiceHeader = _InvoiceHeader + _InvoiceRows_new.Save() + _InvoiceRows_Array.Add(_InvoiceRows_new) + If i = _ContractRowsCollection.Count - 1 Then + _IsNextWhile = False + Exit Do + End If + i += 1 + Loop While _ContractRowsCollection(i - 1).Contracts.CustomersFrom Is _ContractRowsCollection(i).Contracts.CustomersFrom And _ + _ContractRowsCollection(i - 1).Contracts.Customers Is _ContractRowsCollection(i).Contracts.Customers And _ + _ContractRowsCollection(i - 1).DateExecution.Date = _ContractRowsCollection(i).DateExecution.Date And _ + _ContractRowsCollection(i - 1).CurrencyName Is _ContractRowsCollection(i).CurrencyName And _ + _ContractRowsCollection(i - 1).PaymentOption Is _ContractRowsCollection(i).PaymentOption + + + _InvoiceHeader.Save() + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + Loop + + For Each _InvoiceRows_new In _InvoiceRows_Array + _ContractRows = _InvoiceRows_new.ContractRows + _ContractRows.InvoiceRows = _InvoiceRows_new + _ContractRows.Save() + Next + _ocur.CommitChanges() + _noselect = False + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + End Sub + + Private Sub aCloneSelectedContracts_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCloneSelectedContracts.Cancel + _noselect = False + End Sub + Private Sub aCloneSelectedContracts_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloneSelectedContracts.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractsCloneView As ContractsCloneView = _ocur.CreateObject(Of ContractsCloneView)() + Dim _ContractsCloneView_New As ContractsCloneView + + _noselect = True + If _selection.Count > 1 Then + _ContractsCloneView.IsMultipleSelection = True + Else + _ContractsCloneView.IsMultipleSelection = False + End If + _ContractsCloneView.Save() + _ocur.CommitChanges() + + _ContractsCloneView_New = _onew.GetObject(_ContractsCloneView) + + e.View = Application.CreateDetailView(_onew, "ContractsCloneView_DetailView", False, _ContractsCloneView_New) + + End Sub + Private Sub aCloneSelectedContracts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneSelectedContracts.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre. + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractsCloneView As ContractsCloneView = e.PopupWindow.View.SelectedObjects(0) + Dim _Contracts As Contracts + Dim _ContractRows As ContractRows + + If _ContractsCloneView.ContractTemplate IsNot Nothing Then + For I = 0 To _selection.Count - 1 + _Contracts = _ocur.GetObjectByKey(Of Contracts)((TryCast(_selection(I), Contracts)).Oid) + Dim _Contracts_New As Contracts = _ocur.CreateObject(Of Contracts)() + + _Contracts_New.CustomersFrom = _ocur.GetObject(_ContractsCloneView.CustomersFrom) + _Contracts_New.ContractTemplate = _ocur.GetObject(_ContractsCloneView.ContractTemplate) + + If _ContractsCloneView.Customers IsNot Nothing Then + _Contracts_New.Customers = _ocur.GetObject(_ContractsCloneView.Customers) + Else + _Contracts_New.Customers = _ocur.GetObject(_Contracts.Customers) + End If + _Contracts_New.DateClosed = _ocur.GetObject(_Contracts.DateClosed) + _Contracts_New.DateCreated = _ocur.GetObject(_Contracts.DateCreated) + _Contracts_New.DateExecution = _ocur.GetObject(_Contracts.DateExecution) + _Contracts_New.DateExpectClose = _ocur.GetObject(_Contracts.DateExpectClose) + _Contracts_New.DatePreContractSigned = _ocur.GetObject(_Contracts.DatePreContractSigned) + _Contracts_New.DateTerminating = _ocur.GetObject(_Contracts.DateTerminating) + _Contracts_New.DateWaiting = _ocur.GetObject(_Contracts.DateWaiting) + _Contracts_New.DocumentBody = _ocur.GetObject(_Contracts.DocumentBody) + _Contracts_New.BankInformation = _ocur.GetObject(_Contracts.BankInformation) + _Contracts_New.CurrencyName = _ocur.GetObject(_Contracts.CurrencyName) + _Contracts_New.CurrencyName_Invoice = _ocur.GetObject(_Contracts.CurrencyName_Invoice) + + _Contracts_New.HRResponsible = _ocur.GetObject(_Contracts.HRResponsible) + _Contracts_New.JobNumberObjects = _ocur.GetObject(_Contracts.JobNumberObjects) + _Contracts_New.ShortName = _ocur.GetObject(_Contracts.ShortName) + _Contracts_New.State = State.Preparation '_ocur.GetObject(_Contracts.State) + _Contracts_New.DocumentNumber = _Contracts_New.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + + If _ContractsCloneView.AreContractRowsClone = True Then + Dim _ContractRowsCollection As XPCollection = _ocur.CreateCollection(GetType(ContractRows), CriteriaOperator.Parse("Contracts=?", _Contracts)) + For Each _ContractRows In _ContractRowsCollection + 'Csak a ki nem szmlzott sorok tadsa! + ' If _ContractRows.InvoiceRows Is Nothing And _ContractRows.InvoiceRowsAdvance Is Nothing Then + Dim _ContractRows_New As ContractRows = _ocur.CreateObject(Of ContractRows)() + + _ContractRows_New.Contracts = _ocur.GetObject(_Contracts_New) + _ContractRows_New.ContractRowsType = _ocur.GetObject(_ContractRows.ContractRowsType) + _ContractRows_New.Controlling = _ocur.GetObject(_ContractRows.Controlling) + _ContractRows_New.CostHolder = _ocur.GetObject(_ContractRows.CostHolder) + _ContractRows_New.CostPlace = _ocur.GetObject(_ContractRows.CostPlace) + _ContractRows_New.CurrencyName = _ocur.GetObject(_ContractRows.CurrencyName) + _ContractRows_New.CurrencyRate = _ocur.GetObject(_ContractRows.CurrencyRate) + _ContractRows_New.DateExecution = _ocur.GetObject(_ContractRows.DateExecution) + _ContractRows_New.Description = _ocur.GetObject(_ContractRows.Description) + _ContractRows_New.MileStone = _ocur.GetObject(_ContractRows.MileStone) + _ContractRows_New.NettoPriceDEV = _ocur.GetObject(_ContractRows.NettoPriceDEV) + _ContractRows_New.NettoPriceHUF = _ocur.GetObject(_ContractRows.NettoPriceHUF) + _ContractRows_New.PaymentOption = _ocur.GetObject(_ContractRows.PaymentOption) + _ContractRows_New.QTT = _ocur.GetObject(_ContractRows.QTT) + _ContractRows_New.QualityOption = _ocur.GetObject(_ContractRows.QualityOption) + _ContractRows_New.ShipmentOption = _ocur.GetObject(_ContractRows.ShipmentOption) + _ContractRows_New.ShortName = _ocur.GetObject(_ContractRows.ShortName) + _ContractRows_New.UniqueObjects = _ocur.GetObject(_ContractRows.UniqueObjects) + _ContractRows_New.Units = _ocur.GetObject(_ContractRows.Units) + _ContractRows_New.VAT = _ocur.GetObject(_ContractRows.VAT) + _ContractRows_New.JobNumberObjects = _ocur.GetObject(_ContractRows.JobNumberObjects) + _ContractRows_New.InvoicePeriod = _ocur.GetObject(_ContractRows.InvoicePeriod) + 'End If + Next + End If + Next I + _ocur.CommitChanges() + Else + _ocur.Rollback() + Throw New Exception("*Nincs megadva szerzds sablon!") + End If + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub aGenerateInvoicefromContractsRowsCustomRate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRowsCollection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("1=2")) + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice) + Dim _ContractRows As ContractRows + Dim _ContractRows_Selection As ContractRows + Dim _InvoiceRows_new As InvoiceRows + Dim _InvoiceRows_Array As New ArrayList() + + On Error GoTo CheckError + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + ' -- ltrehozunk egy kollekcit a kivlasztott elemek tmbjbol + For Each _ContractRows_Selection In _selection + _ContractRows = _ocur.GetObject(_ContractRows_Selection) + _ContractRowsCollection.Add(_ContractRows) + Next + _InvoiceRows_Array.Clear() + + _noselect = False + ' -- rendezsi feltteleket adunk a ltrehozott kollekcinak + Dim sortCollection As SortingCollection = New SortingCollection() + sortCollection.Add(New SortProperty("Contracts.CustomersFrom.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("Contracts.Customers.Name", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("CurrencyName.ShortName", DB.SortingDirection.Ascending)) + sortCollection.Add(New SortProperty("PaymentOption.ShortName", DB.SortingDirection.Ascending)) + _ContractRowsCollection.Sorting = sortCollection + Dim i As Long = 0 + Dim _IsHeaderCreated As Boolean = False + Dim _IsNextWhile As Boolean = True + Dim _NG As NumberGenerator + Do While _IsNextWhile + Dim _InvoiceHeader As InvoiceHeader + ' Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader)) + _InvoiceHeader.PaymentOption = _ContractRowsCollection(i).PaymentOption + _InvoiceHeader.ShipmentOption = _ContractRowsCollection(i).ShipmentOption + + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eAdvance Then + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeAdvanced + Else + _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeCustomRate + End If + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _ContractRowsCollection(i).Contracts.CustomersFrom + _InvoiceHeader.Customers = _ContractRowsCollection(i).Contracts.Customers + _InvoiceHeader.Description = _ocur.GetObject(_ContractsRowsToInvoice.Description) + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).CurrencyName + _InvoiceHeader.CurrencyRate = _ocur.GetObject(_ContractsRowsToInvoice.CurrencyRate) + _InvoiceHeader.BankInformation = _ocur.GetObject(_ContractsRowsToInvoice.BankInformation) + + '-- Prbaszmla miatt el kell menteni a tnyleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _ContractRowsCollection(i).Contracts.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _ContractRowsCollection(i).Contracts.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRowsCollection(i).Contracts.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _ContractRowsCollection(i).Contracts.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _ContractRowsCollection(i).Contracts.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRowsCollection(i).Contracts.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _ContractRowsCollection(i).Contracts.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRowsCollection(i).Contracts.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRowsCollection(i).Contracts.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + '------------------------------------------------------------------------------------------------------------------ + If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eMileStone Then + _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution + Else + _InvoiceHeader.DateExecution = _ContractRowsCollection(i).DateExecution + End If + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + + End If + _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).CurrencyName + '-- A kvetkezo sorok vizsglata s hozzadsa a fenti fejlchez amg az ezt engedlyez felttelek teljeslnek + Do + _InvoiceRows_new = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows_new.Description = _ContractRowsCollection(i).Description + _InvoiceRows_new.QTT = _ContractRowsCollection(i).QTT + _InvoiceRows_new.QualityOption = _ContractRowsCollection(i).QualityOption + _InvoiceRows_new.VAT = _ContractRowsCollection(i).VAT + _InvoiceRows_new.Units = _ContractRowsCollection(i).Units + _InvoiceRows_new.ShortName = _ContractRowsCollection(i).ShortName + + If Not _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows_new.ListPriceHUF = Math.Round(_ContractRowsCollection(i).NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + _InvoiceRows_new.ListPriceHUF = _ContractRowsCollection(i).NettoPriceHUF + End If + _InvoiceRows_new.ListPriceDEV = _ContractRowsCollection(i).NettoPriceDEV + _InvoiceRows_new.ContractRows = _ContractRowsCollection(i) + _InvoiceRows_new.InvoiceHeader = _InvoiceHeader + _InvoiceRows_new.CostHolder = _ocur.GetObject(_ContractRowsCollection(i).CostHolder) + _InvoiceRows_new.Controlling = _ocur.GetObject(_ContractRowsCollection(i).Controlling) + _InvoiceRows_new.CostPlace = _ocur.GetObject(_ContractRowsCollection(i).CostPlace) + _InvoiceRows_new.JobNumberObjects = _ocur.GetObject(_ContractRowsCollection(i).JobNumberObjects) + _InvoiceRows_new.UniqueObjects = _ocur.GetObject(_ContractRowsCollection(i).UniqueObjects) + + _InvoiceRows_Array.Add(_InvoiceRows_new) + If i = _ContractRowsCollection.Count - 1 Then + _IsNextWhile = False + Exit Do + End If + i += 1 + Loop While _ContractRowsCollection(i - 1).Contracts.CustomersFrom Is _ContractRowsCollection(i).Contracts.CustomersFrom And _ + _ContractRowsCollection(i - 1).Contracts.Customers Is _ContractRowsCollection(i).Contracts.Customers And _ + _ContractRowsCollection(i - 1).DateExecution.Date = _ContractRowsCollection(i).DateExecution.Date And _ + _ContractRowsCollection(i - 1).CurrencyName Is _ContractRowsCollection(i).CurrencyName And _ + _ContractRowsCollection(i - 1).PaymentOption Is _ContractRowsCollection(i).PaymentOption + + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + Loop + + For Each _InvoiceRows_new In _InvoiceRows_Array + _ContractRows = _InvoiceRows_new.ContractRows + _ContractRows.InvoiceRows = _InvoiceRows_new + Next + _ocur.CommitChanges() + _noselect = False + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + End Sub + Private Sub aGenerateInvoicefromContractsRowsCustomRate_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ContractsRowsToInvoice_New As ContractsRowsToInvoice = _onew.CreateObject(Of ContractsRowsToInvoice)() + + _ContractsRowsToInvoice_New.Description = "" + _ContractsRowsToInvoice_New.CurrencyRate = 1 + _ContractsRowsToInvoice_New.DateExecution = GetSQLTime(_onew.Session) + _ContractsRowsToInvoice_New.BankInformation = Nothing + _ContractsRowsToInvoice_New.ContractRows = _onew.GetObject(_selection(0)) + + e.View = Application.CreateDetailView(_onew, "ContractsRowsToInvoice_DetailView", False, _ContractsRowsToInvoice_New) + End Sub + Private Sub aGenerateInvoicefromContractsRowsCustomRate_Cancel(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aGenerateInvoicefromContractsRowsCustomRate.Cancel + _noselect = False + End Sub + Private Sub aSendBackToEdit_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEdit.Execute + Dim _Contracts As Contracts = TryCast(View.CurrentObject, Contracts) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Preparation + _ocur.CommitChanges() + View.Close() + End Sub + Private Sub aMarkAsReady_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMarkAsReady.Execute + Dim _Contracts As Contracts = TryCast(View.CurrentObject, Contracts) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Ready + If _Contracts.DocumentNumber = "" Then + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + End If + _ocur.CommitChanges() + View.Close() + End Sub + Private Sub aMarkAsSigned_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMarkAsSigned.Execute + Dim _Contracts As Contracts = TryCast(View.CurrentObject, Contracts) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Signed + If _Contracts.DocumentNumber = "" Then + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + End If + _ocur.CommitChanges() + View.Close() + End Sub + Private Sub aMarkAsClosed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMarkAsClosed.Execute + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Closed + _Contracts.DateClosed = Now + _ocur.CommitChanges() + View.Close() + End Sub + Private Sub aMarkAsWaiting_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMarkAsWaiting.Execute + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Waiting + _Contracts.DateWaiting = Now + _ocur.CommitChanges() + View.Close() + End Sub + + + Private Sub aCreateFinalInvoiceFromContract_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateFinalInvoiceFromContract.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + Dim _ContractRowsToFinalInvoice As ContractRowsToFinalInvoice = e.PopupWindow.View.SelectedObjects(0) + Dim _ListView As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("InvoiceRows") + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows_New As InvoiceRows + Dim _NG As NumberGenerator + _noselect = True + + On Error GoTo CheckError + _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader)) + _InvoiceHeader.PaymentOption = _ContractRows.PaymentOption + _InvoiceHeader.ShipmentOption = _ContractRows.ShipmentOption + + 'Ha a sor tpusa elleg akkor az elleg szmla tpust kell vennnk a szerz.sablonnak egybknt a rendeset + If _ContractRows.ContractRowsType = eContractRowsType.eAdvance Then + _InvoiceHeader.InvoiceType = _ContractRows.Contracts.ContractTemplate.InvoiceTypeAdvanced + Else + _InvoiceHeader.InvoiceType = _ContractRows.Contracts.ContractTemplate.InvoiceType + End If + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _ContractRows.Contracts.CustomersFrom + _InvoiceHeader.Customers = _ContractRows.Contracts.Customers + _InvoiceHeader.Description = _ocur.GetObject(_ContractRowsToFinalInvoice.Description) + _InvoiceHeader.CurrencyName = _ContractRows.CurrencyName + _InvoiceHeader.CurrencyRate = _ocur.GetObject(_ContractRowsToFinalInvoice.CurrencyRate) + _InvoiceHeader.BankInformation = _ocur.GetObject(_ContractRowsToFinalInvoice.BankInformation) + + '-- Prbaszmla miatt el kell menteni a tnyleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _ContractRows.Contracts.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _ContractRows.Contracts.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRows.Contracts.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _ContractRows.Contracts.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _ContractRows.Contracts.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRows.Contracts.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _ContractRows.Contracts.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRows.Contracts.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRows.Contracts.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRows.Contracts.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRows.Contracts.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRows.Contracts.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRows.Contracts.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRows.Contracts.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRows.Contracts.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + '------------------------------------------------------------------------------------------------------------------ + If _ContractRows.ContractRowsType = eContractRowsType.eMileStone Then + _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution + Else + _InvoiceHeader.DateExecution = _ContractRows.DateExecution + End If + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + End If + _InvoiceHeader.CurrencyName = _ContractRows.CurrencyName + + _InvoiceRows_New = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows_New.Description = _ContractRows.Description + _InvoiceRows_New.QTT = _ContractRows.QTT + _InvoiceRows_New.QualityOption = _ContractRows.QualityOption + _InvoiceRows_New.VAT = _ContractRows.VAT + _InvoiceRows_New.Units = _ContractRows.Units + _InvoiceRows_New.ShortName = _ContractRows.ShortName + + If Not _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows_New.ListPriceHUF = Math.Round(_ContractRows.NettoPriceDEV * _ContractRowsToFinalInvoice.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + _InvoiceRows_New.ListPriceHUF = _ContractRows.NettoPriceHUF + End If + _InvoiceRows_New.ListPriceDEV = _ContractRows.NettoPriceDEV + _InvoiceRows_New.ContractRows = _ContractRows + _InvoiceRows_New.InvoiceHeader = _InvoiceHeader + + '-- Jell adatok + _InvoiceRows_New.CostHolder = _ContractRows.CostHolder + _InvoiceRows_New.CostPlace = _ContractRows.CostPlace + _InvoiceRows_New.JobNumberObjects = _ContractRows.JobNumberObjects + _InvoiceRows_New.UniqueObjects = _ContractRows.UniqueObjects + _InvoiceRows_New.Controlling = _ContractRows.Controlling + + _ContractRows.InvoiceRows = _InvoiceRows_New + + For Each _InvoiceRows In _ListView.ListView.SelectedObjects + _InvoiceRows_New = _ocur.CreateObject(Of InvoiceRows)() + + _InvoiceRows_New.InvoiceHeader = _InvoiceHeader + _InvoiceRows_New.QTT = _InvoiceRows.QTT * -1 + _InvoiceRows_New.InvoiceRowsAdvance = _ocur.GetObject(_InvoiceRows) + _InvoiceRows_New.ContractRows = _ocur.GetObject(_InvoiceRows.ContractRows) + _InvoiceRows_New.CustomsTariffs = _ocur.GetObject(_InvoiceRows.CustomsTariffs) + _InvoiceRows_New.Description = _InvoiceRows.InvoiceHeader.DocumentNumber & " " & Format(_ocur.GetObject(_InvoiceRows.Description), "") + _InvoiceRows_New.DiscountPriceDEV = _ocur.GetObject(_InvoiceRows.DiscountPriceDEV) + _InvoiceRows_New.DiscountPriceHUF = _ocur.GetObject(_InvoiceRows.DiscountPriceHUF) + _InvoiceRows_New.InvoiceRowtype = _ocur.GetObject(_InvoiceRows.InvoiceRowtype) + _InvoiceRows_New.ListPriceDEV = _ocur.GetObject(_InvoiceRows.ListPriceDEV) + _InvoiceRows_New.ListPriceHUF = _ocur.GetObject(_InvoiceRows.ListPriceHUF) + _InvoiceRows_New.QualityOption = _ocur.GetObject(_InvoiceRows.QualityOption) + _InvoiceRows_New.ShortName = _ocur.GetObject(_InvoiceRows.ShortName) + _InvoiceRows_New.Units = _ocur.GetObject(_InvoiceRows.Units) + _InvoiceRows_New.VAT = _ocur.GetObject(_InvoiceRows.VAT) + + '-- Jell adatok + _InvoiceRows_New.Controlling = _ocur.GetObject(_InvoiceRows.Controlling) + _InvoiceRows_New.CostHolder = _ocur.GetObject(_InvoiceRows.CostHolder) + _InvoiceRows_New.CostPlace = _ocur.GetObject(_InvoiceRows.CostPlace) + _InvoiceRows_New.JobNumberObjects = _ocur.GetObject(_InvoiceRows.JobNumberObjects) + _InvoiceRows_New.UniqueObjects = _ocur.GetObject(_InvoiceRows.UniqueObjects) + Next + _ocur.CommitChanges() + _InvoiceRows_New.InvoiceHeader.RecalculateInvoice(_InvoiceRows_New.InvoiceHeader, _ocur) + _ocur.CommitChanges() + View.Close() + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + MsgBox(Err.Description) + End Sub + Private Sub aCreateFinalInvoiceFromContract_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateFinalInvoiceFromContract.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractRowsToFinalInvoice_New As ContractRowsToFinalInvoice = _onew.CreateObject(Of ContractRowsToFinalInvoice)() + + _ContractRowsToFinalInvoice_New.ContractRows = _onew.GetObject(TryCast(View.SelectedObjects(0), ContractRows)) + _ContractRowsToFinalInvoice_New.DateExecution = GetSQLTime(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ContractRowsToFinalInvoice_DetailView", False, _ContractRowsToFinalInvoice_New) + End Sub + Private Sub aDivideContractRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDivideContractRows.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractRows As ContractRows = View.SelectedObjects(0) + + Dim _ContractRowsDividePopup As ContractRowsDividePopup = _onew.CreateObject(Of ContractRowsDividePopup)() + _ContractRowsDividePopup.ContractRows = _onew.GetObject(_ContractRows) + + _onew.CommitChanges() + + e.View = Application.CreateDetailView(_onew, _ContractRowsDividePopup) + + End Sub + Private Sub aDivideContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDivideContractRows.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractRowsDividePopup As ContractRowsDividePopup = e.PopupWindow.View.SelectedObjects(0) + Dim _ContractRows As ContractRows = _ocur.GetObjectByKey(Of ContractRows)(_ocur.GetObject(_ContractRowsDividePopup.ContractRows.Oid)) + Dim _ContractRows_New As ContractRows + + '-- j szerzdsi sor ltrehozsa s adatok tadsa + + _ContractRows_New = _ocur.CreateObject(Of ContractRows)() + _ContractRows_New.Contracts = _ContractRows.Contracts + + 'rtkek szmtsa + + '-- ha szzalkos arny lett megadva: + If _ContractRowsDividePopup.Percent > 0 Then + _ContractRows_New.NettoPriceHUF = Math.Round((_ContractRows.NettoPriceHUF * (_ContractRowsDividePopup.Percent / 100)), 0, MidpointRounding.AwayFromZero) + If Not _ContractRows.CurrencyName.ShortName = "HUF" Then + _ContractRows_New.NettoPriceDEV = Math.Round(_ContractRows.NettoPriceDEV * (_ContractRowsDividePopup.Percent / 100), 0, MidpointRounding.AwayFromZero) + _ContractRows_New.NettoPriceHUF = Math.Round((_ContractRows.NettoPriceDEV * _ContractRows.CurrencyRate), 0, MidpointRounding.AwayFromZero) + End If + End If + + '-- ha konkrt sszeg lett megadva: + + 'forint sszeg + If _ContractRowsDividePopup.AmountHUF > 0 Then + _ContractRows_New.NettoPriceHUF = _ContractRowsDividePopup.AmountHUF + End If + + 'deviza sszeg + If _ContractRowsDividePopup.AmountDEV > 0 Then + If Not _ContractRows.CurrencyName.ShortName = "HUF" Then + _ContractRows_New.NettoPriceDEV = _ContractRowsDividePopup.AmountDEV + _ContractRows_New.NettoPriceHUF = _ContractRows_New.NettoPriceDEV * _ContractRows.CurrencyRate + End If + End If + '-- + + _ContractRows_New.ContractRowsType = _ContractRows.ContractRowsType + _ContractRows_New.Controlling = _ContractRows.Controlling + _ContractRows_New.CostHolder = _ContractRows.CostHolder + _ContractRows_New.CostPlace = _ContractRows.CostPlace + _ContractRows_New.CurrencyName = _ContractRows.CurrencyName + _ContractRows_New.CurrencyRate = _ContractRows.CurrencyRate + _ContractRows_New.DateExecution = _ContractRows.DateExecution + _ContractRows_New.Description = _ContractRows.Description + _ContractRows_New.JobNumberObjects = _ContractRows.JobNumberObjects + _ContractRows_New.MileStone = _ContractRows.MileStone + _ContractRows_New.PaymentOption = _ContractRows.PaymentOption + _ContractRows_New.QTT = _ContractRows.QTT + _ContractRows_New.QualityOption = _ContractRows.QualityOption + _ContractRows_New.RowGroup1 = _ContractRows.RowGroup1 + _ContractRows_New.RowGroup2 = _ContractRows.RowGroup2 + _ContractRows_New.ShipmentOption = _ContractRows.ShipmentOption + _ContractRows_New.ShortName = _ContractRows.ShortName + _ContractRows_New.UniqueObjects = _ContractRows.UniqueObjects + _ContractRows_New.Units = _ContractRows.Units + _ContractRows_New.VAT = _ContractRows.VAT + + '-- eredeti sor mdostsa (sszegek cskkentse az j sor rtkvel) + If _ContractRows.CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF -= _ContractRows_New.NettoPriceHUF + Else + _ContractRows.NettoPriceDEV -= _ContractRows_New.NettoPriceDEV + ' -- jelenleg nincs kalkulltatva a szerzds sorban a deviza forintostott sszege gy nem szmoltatom vele mert jelenleg minden szerzdsi sor rfolyama 1 (2011.08.02.) + '_ContractRows.NettoPriceHUF = _ContractRows_New.NettoPriceDEV * _ContractRows.CurrencyRate + End If + + _ocur.CommitChanges() + End Sub + Private Sub aMergeContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMergeContractRows.Execute + Dim _ContractRows As ContractRows + Dim _ContractRows_New As ContractRows + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FirstSelectedContractRows As ContractRows + Dim _SumAmountHUF As Double = 0 + Dim _SumAmountDEV As Double = 0 + Dim _RowsCanBeMerged As Boolean = True + + If View.SelectedObjects.Count > 0 Then + _FirstSelectedContractRows = TryCast(View.SelectedObjects(0), ContractRows) + + '-- Ellenrzs, hogy sszevonhatak-e a sorok (sszes hasonltsa az elsvel) + For Each _ContractRows In View.SelectedObjects + If Not View.SelectedObjects(0) Is _ContractRows Then 'nmagval ne vizsgljon (az action multiple selected required selectin dependency -re van lltva teht legalbb kt elem lesz a tmbben) + If Not (_ContractRows.Contracts Is _FirstSelectedContractRows.Contracts And _ + _ContractRows.Controlling Is _FirstSelectedContractRows.Controlling And _ + _ContractRows.UniqueObjects Is _FirstSelectedContractRows.UniqueObjects And _ + _ContractRows.CostPlace Is _FirstSelectedContractRows.CostPlace And _ + _ContractRows.CostHolder Is _FirstSelectedContractRows.CostHolder And _ + _ContractRows.JobNumberObjects Is _FirstSelectedContractRows.JobNumberObjects And _ + _ContractRows.PaymentOption Is _FirstSelectedContractRows.PaymentOption And _ + _ContractRows.VAT Is _FirstSelectedContractRows.VAT And _ + _ContractRows.DateExecution = _FirstSelectedContractRows.DateExecution And _ + _ContractRows.CurrencyName Is _FirstSelectedContractRows.CurrencyName) Then + + _RowsCanBeMerged = False + + End If + End If + Next + '-- Amennyiben sszevonhatak tadjuk az els adatait s a kijellt sorok sszegt egy j sornak majd a kivlaszottakat trljk + + ' Tovbbi megfejtend talnyok: + '- mi lesz a keletkezett sor lersa? (jelenleg az els kivlasztott elemnek tulajdonsgait kapja meg) + '- a fenti kritrik elgsgesek-e? + + If _RowsCanBeMerged Then + For Each _ContractRows In View.SelectedObjects + _SumAmountDEV += _ContractRows.NettoPriceDEV + _SumAmountHUF += _ContractRows.NettoPriceHUF + Next + _ContractRows_New = _ocur.CreateObject(Of ContractRows)() + _ContractRows_New.Contracts = _FirstSelectedContractRows.Contracts + _ContractRows_New.NettoPriceDEV = _SumAmountDEV + _ContractRows_New.NettoPriceHUF = _SumAmountHUF + _ContractRows_New.ContractRowsType = _FirstSelectedContractRows.ContractRowsType + _ContractRows_New.Controlling = _FirstSelectedContractRows.Controlling + _ContractRows_New.CostHolder = _FirstSelectedContractRows.CostHolder + _ContractRows_New.CostPlace = _FirstSelectedContractRows.CostPlace + _ContractRows_New.CurrencyName = _FirstSelectedContractRows.CurrencyName + _ContractRows_New.CurrencyRate = _FirstSelectedContractRows.CurrencyRate + _ContractRows_New.DateExecution = _FirstSelectedContractRows.DateExecution + _ContractRows_New.Description = _FirstSelectedContractRows.Description + _ContractRows_New.JobNumberObjects = _FirstSelectedContractRows.JobNumberObjects + _ContractRows_New.MileStone = _FirstSelectedContractRows.MileStone + _ContractRows_New.PaymentOption = _FirstSelectedContractRows.PaymentOption + _ContractRows_New.QTT = _FirstSelectedContractRows.QTT + _ContractRows_New.QualityOption = _FirstSelectedContractRows.QualityOption + _ContractRows_New.RowGroup1 = _FirstSelectedContractRows.RowGroup1 + _ContractRows_New.RowGroup2 = _FirstSelectedContractRows.RowGroup2 + _ContractRows_New.ShipmentOption = _FirstSelectedContractRows.ShipmentOption + _ContractRows_New.ShortName = _FirstSelectedContractRows.ShortName + _ContractRows_New.UniqueObjects = _FirstSelectedContractRows.UniqueObjects + _ContractRows_New.Units = _FirstSelectedContractRows.Units + _ContractRows_New.VAT = _FirstSelectedContractRows.VAT + + _ocur.Delete(View.SelectedObjects) + Else + _ocur.Rollback() + Throw New Exception("*Nem lehet sszevonni a kivlasztott sorokat!") + End If + End If + _ocur.CommitChanges() + End Sub + Private Sub aOpenRegistryInvoiceFromContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenRegistryInvoiceFromContractRows.Execute + On Error Resume Next + + Dim _Contractrows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + + Dim _CustomersFrom As CustomersFrom = _Contractrows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _Contractrows.RegistryRowsFinancialControlling.RegistryHeader.Customers + Dim _DocumentNumber As String = _Contractrows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + Private Sub aOpenInvoiceFromContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenInvoiceFromContractRows.Execute + On Error Resume Next + + Dim _Contractrows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + + Dim _CustomersFrom As CustomersFrom = _Contractrows.InvoiceRows.InvoiceHeader.CustomersFrom + Dim _Customers As Customers = _Contractrows.InvoiceRows.InvoiceHeader.Customers + Dim _DocumentNumber As String = _Contractrows.InvoiceRows.InvoiceHeader.DocumentNumber + Dim _DocumentNumberProforma As String = _Contractrows.InvoiceRows.InvoiceHeader.DocumentNumberProforma + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, _DocumentNumberProforma) + End Sub + Private Sub aOpenCOCFromContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenCOCFromContractRows.Execute + On Error Resume Next + + Dim _Contractrows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CertificateofContractHeader As CertificateofContractHeader + + Dim _ReportData As ReportData + _CertificateofContractHeader = _Contractrows.CertificateofContractRows.CertificateofContractHeader + + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _CertificateofContractHeader.Contracts.ContractTemplate.COC_ReportData.Oid), True) + If _ReportData Is Nothing Or _CertificateofContractHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("CertificateofContractHeader.DocumentNumber =?", _ + _CertificateofContractHeader.DocumentNumber), True) + End If + + + End Sub + + Private Sub aNewContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aNewContractRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contracts As Contracts = _ocur.GetObjectByKey(Of Contracts)(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject.Oid) + + Dim _ContractRows As ContractRows = _onew.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _onew.GetObject(_Contracts) + If _Contracts.CurrencyName IsNot Nothing Then + _ContractRows.CurrencyName = _onew.GetObject(_Contracts.CurrencyName) + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "ContractRows_DetailView", True, _ContractRows) + End Sub + + Private Sub aBackToEditableSignedContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEditableSignedContract.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + + If _Contracts Is Nothing Then Throw New Exception("*Nics kivlasztott szerzds!") + If _Contracts.State <> State.Signed Then Throw New Exception("*A kivlasztott szerzds nem alrt llapotban van!") + + _Contracts.State = State.Preparation + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aModifyContractData_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyContractData.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractModifyData As ContractModifyData = _onew.CreateObject(Of ContractModifyData)() + + e.View = Application.CreateDetailView(_onew, "ContractModifyData_DetailView", False, _ContractModifyData) + End Sub + Private Sub aModifyContractData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyContractData.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractModifyData As ContractModifyData = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractModifyData) + Dim _Contracts As Contracts = Nothing + + + For Each _Contracts In _selection + + If _ContractModifyData.IsContractGroup = True Then + _Contracts.ContractGroup = _ocur.GetObject(_ContractModifyData.ContractGroup) + End If + + If _ContractModifyData.IsCurrencyName_Invoice = True Then + _Contracts.CurrencyName_Invoice = _ocur.GetObject(_ContractModifyData.CurrencyName_Invoice) + End If + + If _ContractModifyData.IsCurrencyName = True Then + _Contracts.CurrencyName = _ocur.GetObject(_ContractModifyData.CurrencyName) + End If + + If _ContractModifyData.IsDateClosed = True Then + _Contracts.DateClosed = _ContractModifyData.DateClosed + End If + + If _ContractModifyData.IsDateCreated = True Then + _ContractModifyData.DateCreated = _ContractModifyData.DateCreated + End If + + If _ContractModifyData.IsHRResponsible = True Then + _Contracts.HRResponsible = _ocur.GetObject(_ContractModifyData.HRResponsible) + End If + + If _ContractModifyData.IsJobNumberObjects = True Then + _Contracts.JobNumberObjects = _ocur.GetObject(_ContractModifyData.JobNumberObjects) + End If + + If _ContractModifyData.IsUniqueObjects = True Then + _Contracts.UniqueObjects = _ocur.GetObject(_ContractModifyData.UniqueObjects) + End If + + If _ContractModifyData.IsState = True Then + _Contracts.State = _ContractModifyData.State + End If + + If _ContractModifyData.IsDefinite Then + _Contracts.Definite = _ContractModifyData.Definite + End If + If _ContractModifyData.IsTerminateDay Then + _Contracts.TerminateDay = _ContractModifyData.TerminateDay + End If + Next + _ocur.CommitChanges() + + End Sub + + Private Sub ContractRows_ListView_Invoice_Advance_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows) + + If _ContractRows.Contracts.ContractRows.Count = 1 Then + _ocur.Delete(_ContractRows.Contracts) + End If + Dim _CRMEstate_Opportunity_AdvanceMoney As CRMEstate_Opportunity_AdvanceMoney = _ + _ocur.FindObject(Of CRMEstate_Opportunity_AdvanceMoney)(CriteriaOperator.Parse("ContractRows=?", _ContractRows)) + _ocur.Delete(_CRMEstate_Opportunity_AdvanceMoney) + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aDescriptionSelect_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDescriptionSelect.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp + Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp)) + + Dim _InvoiceHeader_xpquery = New XPQuery(Of InvoiceHeader)(_ocur.Session) + Dim query = From _InvoiceHeader In _InvoiceHeader_xpquery _ + Where _InvoiceHeader.Description IsNot Nothing _ + Group _InvoiceHeader By _InvoiceHeader.Description Into g = Group _ + Select New With {Key .Description = Description} + For Each item In query + _InvoiceHeader_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)() + _InvoiceHeader_DescriptionChanger_PopUp.Description = item.Description + _CS_Description.Add(_InvoiceHeader_DescriptionChanger_PopUp) + Next + e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False) + End Sub + + Private Sub aDescriptionSelect_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDescriptionSelect.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(View.SelectedObjects(0), ContractsRowsToInvoice) + For Each _Description In e.PopupWindow.View.SelectedObjects + _ContractsRowsToInvoice.Description += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description + Next + End Sub + + Private Sub aMarkAsTerminating_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aMarkAsTerminating.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractDatePopup As ContractDatePopup = _onew.CreateObject(Of ContractDatePopup)() + + e.View = Application.CreateDetailView(_onew, "ContractDatePopup_DetailView", True, _ContractDatePopup) + + End Sub + Private Sub aMarkAsTerminating_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMarkAsTerminating.Execute + Dim _Contracts As Contracts = TryCast(View.SelectedObjects(0), Contracts) + Dim _ContractDatePopup As ContractDatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractDatePopup) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _Contracts.State = State.Terminating + _Contracts.DateTerminating = _ContractDatePopup.DateTerminating + _ocur.CommitChanges() + View.Close() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/DocumentFileData.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/DocumentFileData.vb new file mode 100644 index 0000000..b126695 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/DocumentFileData.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + + _ + _ +Public Class DocumentFileData + Inherits FileAttachmentBase + Protected _Contracts As Contracts + Private _DocumentFileData As DocumentFileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Public Property Contracts() As Contracts + Get + Return _Contracts + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsCOCState.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsCOCState.vb new file mode 100644 index 0000000..5bbaa71 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsCOCState.vb @@ -0,0 +1,17 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eContractRowsCOCState + _ + eNotCertificated = 0 'Nem teljestsi igazolt sor + _ + eCertificated = 1 'Teljestsi igazolt sor +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsInvoiceState.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsInvoiceState.vb new file mode 100644 index 0000000..99b7866 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsInvoiceState.vb @@ -0,0 +1,18 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + +Public Enum eContractRowsInvoiceState + _ + eNotInvoiced = 0 'Mg ki nem szmlzott sor + _ + eInvoiced = 1 'Kiszmlzott sor +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsRRFCState.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsRRFCState.vb new file mode 100644 index 0000000..c071db4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsRRFCState.vb @@ -0,0 +1,17 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eContractRowsRRFCState + _ + eNotControlled = 0 'Nincs szmla bontshoz rendelve + _ + eControlled = 1 'Szmla bontshoz rendelve +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractCloneView.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractCloneView.vb new file mode 100644 index 0000000..6b0d337 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractCloneView.vb @@ -0,0 +1,72 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + + _ + _ +Public Class ContractsCloneView + Inherits BaseObject + Private _CustomersFrom As CustomersFrom ' Saját cég + Private _Customers As Customers ' Ügyfél + Private _ContractTemplate As ContractTemplate ' Szerződés sablon + Private _AreContractRowsClone As Boolean = False ' + Private _IsMultipleSelection As Boolean = False + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property ContractTemplate As ContractTemplate + Get + Return _ContractTemplate + End Get + Set(ByVal value As ContractTemplate) + SetPropertyValue("ContractTemplate", _ContractTemplate, value) + End Set + End Property + Property AreContractRowsClone As Boolean + Get + Return _AreContractRowsClone + End Get + Set(ByVal value As Boolean) + SetPropertyValue("AreContractRowsClone", _AreContractRowsClone, value) + End Set + End Property + Property IsMultipleSelection As Boolean + Get + Return _IsMultipleSelection + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsMultipleSelection", _IsMultipleSelection, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractDatePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractDatePopup.vb new file mode 100644 index 0000000..5873c25 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractDatePopup.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ContractDatePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateTerminating As Date +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractMileStone.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractMileStone.vb new file mode 100644 index 0000000..48353ae --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractMileStone.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + + _ +Public Class ContractMileStone + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb new file mode 100644 index 0000000..e3ddb69 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ContractModifyData + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property IsContractGroup As Boolean = False + Property ContractGroup As ContractGroup + + Property IsDateCreated As Boolean = False + Property DateCreated As Date + + Property IsDateClosed As Boolean = False + Property DateClosed As Date + + Property IsState As Boolean = False + Property State As State + + Property IsCurrencyName As Boolean = False + Property CurrencyName As CurrencyName + + Property IsCurrencyName_Invoice As Boolean = False + Property CurrencyName_Invoice As CurrencyName + + Property IsJobNumberObjects As Boolean = False + Property JobNumberObjects As JobNumberObjects + + Property IsUniqueObjects As Boolean = False + Property UniqueObjects As UniqueObjects + + Property IsHRResponsible As Boolean = False + Property HRResponsible As HRPerson + + Property IsDefinite As Boolean + Property Definite As eDefinite + + Property IsTerminateDay As Boolean + Property TerminateDay As Long +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsCloneView.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsCloneView.vb new file mode 100644 index 0000000..29e8f98 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsCloneView.vb @@ -0,0 +1,65 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +' _ +' _ + + _ + _ + _ +Public Class ContractRowsCloneView + Inherits BaseObject + Private _DayOfExecutionInWeek As eDayOfWeek ' A hét valamelyik napja (1..7) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma + Private _DayOfExecution As eDayOfMonth ' A hónap valamelyik napja (1..31) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma + Private _ActionCount As Long ' Hányszor csinálja meg + Private _ActionFrequency As eActionFrequency ' A forduló időpontok intervalluma + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property DayOfExecutionInWeek As eDayOfWeek + Get + Return _DayOfExecutionInWeek + End Get + Set(ByVal value As eDayOfWeek) + SetPropertyValue("DayOfExecutionInWeek", _DayOfExecutionInWeek, value) + End Set + End Property + Property DayOfExecution As eDayOfMonth + Get + Return _DayOfExecution + End Get + Set(ByVal value As eDayOfMonth) + SetPropertyValue("DayOfExecution", _DayOfExecution, value) + End Set + End Property + Property ActionCount As Long + Get + Return _ActionCount + End Get + Set(ByVal value As Long) + SetPropertyValue("ActionCount", _ActionCount, value) + End Set + End Property + _ + Property ActionFrequency As eActionFrequency + Get + Return _ActionFrequency + End Get + Set(ByVal value As eActionFrequency) + SetPropertyValue("ActionFrequency", _ActionFrequency, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsDividePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsDividePopup.vb new file mode 100644 index 0000000..d5b1d2c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsDividePopup.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class ContractRowsDividePopup + Inherits BaseObject + Private _Percent As Double + Private _AmountHUF As Double + Private _AmountDEV As Double + Private _ContractRows As ContractRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Percent As Double + Get + Return _Percent + End Get + Set(value As Double) + SetPropertyValue("Percent", _Percent, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + _ + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb new file mode 100644 index 0000000..327ca59 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb @@ -0,0 +1,239 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ContractRowsModifyData + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Private _DateExecution As Date + Private _IsDateExecution As Boolean = False + Private _PaymentOption As PaymentOption + Private _IsPaymentOption As Boolean = False + Private _NettoPriceHUF As Double + Private _IsNettoPriceHUF As Boolean = False + Private _NettoPriceDEV As Double + Private _IsNettoPriceDEV As Boolean = False + Private _InvoicePeriod As String + Private _IsInvoicePeriod As Boolean = False + Private _Description As String + Private _IsDescription As Boolean = False + Private _ShortName As String + Private _IsShortName As Boolean = False + Private _VAT As VAT + Private _IsVAT As Boolean = False + Private _JobNumberObjects As JobNumberObjects + Private _IsJobNumberObjects As Boolean = False + Private _UniqueObjects As UniqueObjects + Private _IsUniqueObjects As Boolean = False + Private _Controlling As Controlling + Private _IsControlling As Boolean = False + Private _CostHolder As CostHolder + Private _IsCostHolder As Boolean = False + + + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property IsDateExecution As Boolean + Get + Return _IsDateExecution + End Get + Set(value As Boolean) + SetPropertyValue("IsDateExecution", _IsDateExecution, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property IsPaymentOption As Boolean + Get + Return _IsPaymentOption + End Get + Set(value As Boolean) + SetPropertyValue("IsPaymentOption", _IsPaymentOption, value) + End Set + End Property + Property NettoPriceHUF As Double + Get + Return _NettoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value) + End Set + End Property + Property IsNettoPriceHUF As Boolean + Get + Return _IsNettoPriceHUF + End Get + Set(value As Boolean) + SetPropertyValue("IsNettoPriceHUF", _IsNettoPriceHUF, value) + End Set + End Property + Property NettoPriceDEV As Double + Get + Return _NettoPriceDEV + End Get + Set(value As Double) + SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value) + End Set + End Property + Property IsNettoPriceDEV As Boolean + Get + Return _IsNettoPriceDEV + End Get + Set(value As Boolean) + SetPropertyValue("IsNettoPriceDEV", _IsNettoPriceDEV, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + Property IsInvoicePeriod As Boolean + Get + Return _IsInvoicePeriod + End Get + Set(value As Boolean) + SetPropertyValue("IsInvoicePeriod", _IsInvoicePeriod, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property IsDescription As Boolean + Get + Return _IsDescription + End Get + Set(value As Boolean) + SetPropertyValue("IsDescription", _IsDescription, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IsShortName As Boolean + Get + Return _IsShortName + End Get + Set(value As Boolean) + SetPropertyValue("IsShortName", _IsShortName, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property IsVAT As Boolean + Get + Return _IsVAT + End Get + Set(value As Boolean) + SetPropertyValue("IsVAT", _IsVAT, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property IsJobNumberObjects As Boolean + Get + Return _IsJobNumberObjects + End Get + Set(value As Boolean) + SetPropertyValue("IsJobNumberObjects", _IsJobNumberObjects, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property IsUniqueObjects As Boolean + Get + Return _IsUniqueObjects + End Get + Set(value As Boolean) + SetPropertyValue("IsUniqueObjects", _IsUniqueObjects, value) + End Set + End Property + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property IsControlling As Boolean + Get + Return _IsControlling + End Get + Set(value As Boolean) + SetPropertyValue("IsControlling", _IsControlling, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property IsCostHolder As Boolean + Get + Return _IsCostHolder + End Get + Set(value As Boolean) + SetPropertyValue("IsCostHolder", _IsCostHolder, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsToInvoice.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsToInvoice.vb new file mode 100644 index 0000000..fa8439f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsToInvoice.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +' _ +' _ +' _ + + _ + _ + _ + _ +Public Class ContractsRowsToInvoice + Inherits BaseObject + Private _DateCreated As Date = Now ' A számla kiállításának dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _Description As String ' Megjegyzés + Private _CurrencyRate As Double = 1 ' Árfolyam + Private _ContractRows As ContractRows ' A Deviza típusához kell + Private _BankInformation As BankInformation + Private _IsProforma As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + ReadOnly Property DateCreated As Date + Get + Return _DateCreated + End Get + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property + _ + Property BankInformation As BankInformation + Get + Return (_BankInformation) + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + Property IsProforma As Boolean + Get + Return _IsProforma + End Get + Set(value As Boolean) + SetPropertyValue("IsProforma", _IsProforma, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractToFinalInvoice.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractToFinalInvoice.vb new file mode 100644 index 0000000..28ad51a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractToFinalInvoice.vb @@ -0,0 +1,94 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Filtering + +' _ +' _ +' _ + + _ + _ + _ + _ +Public Class ContractRowsToFinalInvoice + Inherits BaseObject + Private _DateCreated As Date = Now ' A számla kiállításának dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _Description As String ' Megjegyzés + Private _CurrencyRate As Double = 1 ' Árfolyam + Private _ContractRows As ContractRows ' A Deviza típusához kell + Private _BankInformation As BankInformation + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + ReadOnly Property DateCreated As Date + Get + Return _DateCreated + End Get + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property + _ + Property BankInformation As BankInformation + Get + Return (_BankInformation) + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + _ + ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows) + Get + Dim _InvoiceRowsCollection As XPCollection(Of InvoiceRows) = New XPCollection(Of InvoiceRows) _ + (Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? And InvoiceHeader.CustomersFrom=? And InvoiceHeader.InvoiceType.InvoiceTypeBase in (0,1) " & _ + "And IsNull(InvoiceRowsAdvance)=True And InvoiceHeader.IsEditable=False And InvoiceHeader.IsStorno=False And InvoiceHeader.IsProforma=False AND ContractRows.Contracts=?", Me.ContractRows.Contracts.Customers, Me.ContractRows.Contracts.CustomersFrom, Me.ContractRows.Contracts)) + + Return _InvoiceRowsCollection + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductHeader.vb new file mode 100644 index 0000000..848cb0d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductHeader.vb @@ -0,0 +1,240 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + +' _ +' _ +' _ + + _ + _ + _ + _ + _ + 'HUF'", TargetItems:="row_NettoPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class ContractProductHeader + Inherits Contracts + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.HRResponsible = Session.FindObject(Of HRPerson) _ + (CriteriaOperator.Parse("User=?", Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)))) + End Sub + Private _CustomersStoreHouse As Customers 'Trol tulajdonosa ha contract product-rl van sz + Private _AddressStoreHouse As Address 'Trolsi cm ! + Private _Customers2 As Customers 'Az adsvtel vevje, ha szllt, eladja ha vev + '---------------NonPersistent Propertys----------------- + Private _row_Products As Products + Private _row_ContractProductRows As ContractProductRows + Private _row_QTT As Double + Private _row_NettoPriceHUF As Double '-- Nett egysgr (HUF) + Private _row_NettoPriceDEV As Double '-- Nett egysgr (DEV) + Private _row_VAT As VAT 'FA kd + Private _row_Units As Units '-- Mennyisgi egysg + Private _row_RowGroup1 As String 'Csoportost sor1 + Private _row_RowGroup2 As String 'Csoportost sor2 + Private _row_PaymentOption As PaymentOption + Private _row_APCSheetByProducts As APCSheetByProducts 'Termeltetsi szerzds + _ + Property CustomersStoreHouse As Customers + Get + Return _CustomersStoreHouse + End Get + Set(value As Customers) + SetPropertyValue("CustomersStoreHouse", _CustomersStoreHouse, value) + End Set + End Property + _ + Property Customers2 As Customers + Get + Return _Customers2 + End Get + Set(value As Customers) + SetPropertyValue("Customers2", _Customers2, value) + End Set + End Property + _ + Property AddressStoreHouse As Address + Get + Return _AddressStoreHouse + End Get + Set(value As Address) + SetPropertyValue("AddressStoreHouse", _AddressStoreHouse, value) + End Set + End Property + _ + _ + ReadOnly Property ContractProductRows() As XPCollection(Of ContractProductRows) + Get + Return GetCollection(Of ContractProductRows)("ContractProductRows") + End Get + End Property + + '---------------NonPersistent Propertys----------------- + _ + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(value As Products) + SetPropertyValue("row_Products", _row_Products, value) + If value IsNot Nothing Then + Me.row_Units = value.Units + Me.row_VAT = value.VAT + End If + End Set + End Property + _ + _ + _ + 0 AND ContractProductHeader.ContractTemplate.PartnerType=1")> _ + Property row_ContractProductRows As ContractProductRows + Get + Return _row_ContractProductRows + End Get + Set(value As ContractProductRows) + SetPropertyValue("row_ContractProductRows", _row_ContractProductRows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + Me.row_Units = value.Units + Me.row_VAT = value.VAT + End If + End If + End Set + End Property + _ + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + _ + _ + _ + Property row_NettoPriceHUF As Double + Get + Return _row_NettoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_NettoPriceHUF", _row_NettoPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_NettoPriceDEV As Double + Get + Return _row_NettoPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_NettoPriceDEV", _row_NettoPriceDEV, value) + End Set + End Property + ' _ + _ + _ + _ + Property row_VAT As VAT + Get + Return _row_VAT + End Get + Set(value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + _ + _ + Property row_Units As Units + Get + Return _row_Units + End Get + Set(value As Units) + SetPropertyValue("row_Units", _row_Units, value) + End Set + End Property + _ + _ + _ + Property row_RowGroup1 As String + Get + Return _row_RowGroup1 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup1", _row_RowGroup1, value) + End Set + End Property + _ + _ + _ + Property row_RowGroup2 As String + Get + Return _row_RowGroup2 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup2", _row_RowGroup2, value) + End Set + End Property + _ + _ + _ + Property row_PaymentOption As PaymentOption + Get + Return _row_PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("row_PaymentOption", _row_PaymentOption, value) + End Set + End Property + ' _ + _ + _ + Property row_APCSheetByProducts As APCSheetByProducts + Get + Return _row_APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("row_APCSheetByProducts", _row_APCSheetByProducts, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value.Products IsNot Nothing Then + row_Products = value.Products + row_QTT = value.SumContractQuantity + row_Units = value.Products.Units + End If + End If + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductLINQ.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductLINQ.vb new file mode 100644 index 0000000..263ed88 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductLINQ.vb @@ -0,0 +1,59 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports System.Linq +Imports SISBusiness.Module.Dennis.Linq + + _ + _ +Public Class ContractProductLINQ + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Public Shared Function ContractProductsRowsGroup(ByVal s As Session) As IQueryable + Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s) + Dim query = _ + From e In _ContractProductsRowsGroup _ + Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _ + Group e By e.Products.Oid, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _ + Select New With {Key .ProductNumber = ProductNumber, _ + Key .ShortName = ShortName, _ + Key .Unit = UnitShortName, _ + Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)} + Return query + End Function + _ + Public Shared Function ContractProductsRowsCustomersGroup(ByVal s As Session) As IQueryable + Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s) + Dim query = _ + From e In _ContractProductsRowsGroup _ + Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _ + Group e By e.ContractProductHeader.Customers.FullName, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _ + Select New With {Key .FullName = FullName, _ + Key .ProductNumber = ProductNumber, _ + Key .ShortName = ShortName, _ + Key .Unit = UnitShortName, _ + Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)} + Return query + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRows.vb new file mode 100644 index 0000000..f42263f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRows.vb @@ -0,0 +1,119 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports System.Linq + + _ + _ +Public Class ContractProductRows + Inherits ContractRows + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _Products As Products + Private _QTT_Out As Double + Private _ContractProductHeader As ContractProductHeader + Private _RowIndex As Long 'Sor index (mozgathatnak kell lennie !) + Private _APCSheetByProducts As APCSheetByProducts 'Termeltetsi szerzdsi sor + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT_Out As Double + Get + Return _QTT_Out + End Get + Set(value As Double) + SetPropertyValue("QTT_Out", _QTT_Out, value) + End Set + End Property + _ + Property ContractProductHeader() As ContractProductHeader + Get + Return _ContractProductHeader + End Get + Set(ByVal value As ContractProductHeader) + SetPropertyValue("ContractProductHeader", _ContractProductHeader, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property APCSheetByProducts As APCSheetByProducts + Get + Return _APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value) + End Set + End Property + + + Public Sub AddRows(ByVal _p_ContractProductHeader As ContractProductHeader) + ' Sor hozzadsa + Me.ContractProductHeader = _p_ContractProductHeader + If _p_ContractProductHeader.row_Products IsNot Nothing Then + Me.Products = _p_ContractProductHeader.row_Products + Else + Me.Products = _p_ContractProductHeader.row_ContractProductRows.Products + End If + Me.QTT = _p_ContractProductHeader.row_QTT + Me.Units = _p_ContractProductHeader.row_Units + Me.VAT = _p_ContractProductHeader.row_VAT + Me.RowGroup1 = _p_ContractProductHeader.row_RowGroup1 + Me.RowGroup2 = _p_ContractProductHeader.row_RowGroup2 + Me.NettoPriceDEV = _p_ContractProductHeader.row_NettoPriceDEV + Me.NettoPriceHUF = _p_ContractProductHeader.row_NettoPriceHUF + Me.DateExecution = _p_ContractProductHeader.DateExecution + Me.ContractRowsType = eContractRowsType.eFix + Me.Controlling = _ContractProductHeader.ContractTemplate.Controlling + + Dim _PaymentOption As PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + Me.Contracts = TryCast(_p_ContractProductHeader, Contracts) + If _p_ContractProductHeader.row_PaymentOption IsNot Nothing Then + Me.PaymentOption = _p_ContractProductHeader.row_PaymentOption + Else + If _PaymentOption IsNot Nothing Then + Me.PaymentOption = _PaymentOption + End If + End If + 'Me.Controlling = _p_ContractProductHeader.row_Controlling + If _p_ContractProductHeader.row_Products IsNot Nothing Then + Me.ShortName = _p_ContractProductHeader.row_Products.ShortName + Else + Me.ShortName = _p_ContractProductHeader.row_ContractProductRows.ShortName + End If + ' Indexels + If _p_ContractProductHeader.ContractProductRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_ContractProductHeader.ContractProductRows.Count - 1 + End If + Me.APCSheetByProducts = _p_ContractProductHeader.row_APCSheetByProducts + Me.Contracts.ContractRows.Add(TryCast(Me, ContractRows)) + End Sub + Public Sub RemoveRows() + Me.Delete() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsEvent.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsEvent.vb new file mode 100644 index 0000000..840d86d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsEvent.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ContractProductRowsEvent + Inherits BaseObject + + Private _ContractProductRowsIn As ContractProductRows + Private _ContractProductRowsOut As ContractProductRows + Private _DateExecution As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _QTT_Out As Double + Private _QTT_In As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property ContractProductRowsIn As ContractProductRows + Get + Return _ContractProductRowsIn + End Get + Set(value As ContractProductRows) + SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value) + End Set + End Property + Property ContractProductRowsOut As ContractProductRows + Get + Return _ContractProductRowsOut + End Get + Set(value As ContractProductRows) + SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property QTT_Out As Double + Get + Return _QTT_Out + End Get + Set(value As Double) + SetPropertyValue("QTT_Out", _QTT_Out, value) + End Set + End Property + Property QTT_In As Double + Get + Return _QTT_In + End Get + Set(value As Double) + SetPropertyValue("QTT_In", _QTT_In, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsInOut.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsInOut.vb new file mode 100644 index 0000000..c9fa0a2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsInOut.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ContractProductRowsInOut + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _QTT As Double + Private _ContractProductRowsIn As ContractProductRows + Private _ContractProductRowsOut As ContractProductRows + + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property ContractProductRowsIn As ContractProductRows + Get + Return _ContractProductRowsIn + End Get + Set(value As ContractProductRows) + SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value) + End Set + End Property + Property ContractProductRowsOut As ContractProductRows + Get + Return _ContractProductRowsOut + End Get + Set(value As ContractProductRows) + SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value) + End Set + End Property + Public Sub RemoveRows() + Me.Delete() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.Designer.vb new file mode 100644 index 0000000..3ab7757 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.Designer.vb @@ -0,0 +1,238 @@ +Partial Class ContractProduct_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTotable_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotable_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotableD_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aNewContractProductHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinalizeContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSendBackToEditContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotableD_ConProd_Receivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPrintContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aTotable_ConProd_Receivables + ' + Me.aTotable_ConProd_Receivables.Caption = "Add row" + Me.aTotable_ConProd_Receivables.Category = "aTotable_ConProd_Receivables" + Me.aTotable_ConProd_Receivables.ConfirmationMessage = Nothing + Me.aTotable_ConProd_Receivables.Id = "aTotable_ConProd_Receivables" + Me.aTotable_ConProd_Receivables.ImageName = "table_add" + Me.aTotable_ConProd_Receivables.Shortcut = Nothing + Me.aTotable_ConProd_Receivables.Tag = Nothing + Me.aTotable_ConProd_Receivables.TargetObjectsCriteria = Nothing + Me.aTotable_ConProd_Receivables.TargetViewId = "" + Me.aTotable_ConProd_Receivables.ToolTip = Nothing + Me.aTotable_ConProd_Receivables.TypeOfView = Nothing + ' + 'aTotable_ConProd_Payabels + ' + Me.aTotable_ConProd_Payabels.Caption = "Add row" + Me.aTotable_ConProd_Payabels.Category = "aTotable_ConProd_Payabels" + Me.aTotable_ConProd_Payabels.ConfirmationMessage = Nothing + Me.aTotable_ConProd_Payabels.Id = "aTotable_ConProd_Payabels" + Me.aTotable_ConProd_Payabels.ImageName = "table_add" + Me.aTotable_ConProd_Payabels.Shortcut = Nothing + Me.aTotable_ConProd_Payabels.Tag = Nothing + Me.aTotable_ConProd_Payabels.TargetObjectsCriteria = Nothing + Me.aTotable_ConProd_Payabels.TargetViewId = "" + Me.aTotable_ConProd_Payabels.ToolTip = Nothing + Me.aTotable_ConProd_Payabels.TypeOfView = Nothing + ' + 'aBackToRowEdit_ConProd_Receivables + ' + Me.aBackToRowEdit_ConProd_Receivables.Caption = "Edit row" + Me.aBackToRowEdit_ConProd_Receivables.Category = "aBackToRowEdit_ConProd_Receivables" + Me.aBackToRowEdit_ConProd_Receivables.ConfirmationMessage = Nothing + Me.aBackToRowEdit_ConProd_Receivables.Id = "aBackToRowEdit_ConProd_Receivables" + Me.aBackToRowEdit_ConProd_Receivables.ImageName = "table_refresh" + Me.aBackToRowEdit_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_ConProd_Receivables.Shortcut = Nothing + Me.aBackToRowEdit_ConProd_Receivables.Tag = Nothing + Me.aBackToRowEdit_ConProd_Receivables.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_ConProd_Receivables.TargetViewId = "" + Me.aBackToRowEdit_ConProd_Receivables.ToolTip = Nothing + Me.aBackToRowEdit_ConProd_Receivables.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aBackToRowEdit_ConProd_Payabels + ' + Me.aBackToRowEdit_ConProd_Payabels.Caption = "Edit row" + Me.aBackToRowEdit_ConProd_Payabels.Category = "aBackToRowEdit_ConProd_Payabels" + Me.aBackToRowEdit_ConProd_Payabels.ConfirmationMessage = Nothing + Me.aBackToRowEdit_ConProd_Payabels.Id = "aBackToRowEdit_ConProd_Payabels" + Me.aBackToRowEdit_ConProd_Payabels.ImageName = "table_refresh" + Me.aBackToRowEdit_ConProd_Payabels.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_ConProd_Payabels.Shortcut = Nothing + Me.aBackToRowEdit_ConProd_Payabels.Tag = Nothing + Me.aBackToRowEdit_ConProd_Payabels.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_ConProd_Payabels.TargetViewId = "" + Me.aBackToRowEdit_ConProd_Payabels.ToolTip = Nothing + Me.aBackToRowEdit_ConProd_Payabels.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aTotableD_ConProd_Payabels + ' + Me.aTotableD_ConProd_Payabels.Caption = "Delete row" + Me.aTotableD_ConProd_Payabels.Category = "aTotableD_ConProd_Payabels" + Me.aTotableD_ConProd_Payabels.ConfirmationMessage = Nothing + Me.aTotableD_ConProd_Payabels.Id = "aTotableD_ConProd_Payabels" + Me.aTotableD_ConProd_Payabels.ImageName = "table_delete" + Me.aTotableD_ConProd_Payabels.Shortcut = Nothing + Me.aTotableD_ConProd_Payabels.Tag = Nothing + Me.aTotableD_ConProd_Payabels.TargetObjectsCriteria = Nothing + Me.aTotableD_ConProd_Payabels.TargetViewId = "" + Me.aTotableD_ConProd_Payabels.ToolTip = Nothing + Me.aTotableD_ConProd_Payabels.TypeOfView = Nothing + ' + 'aDown_ContractProductRows + ' + Me.aDown_ContractProductRows.Caption = "Down" + Me.aDown_ContractProductRows.Category = "RecordsNavigation" + Me.aDown_ContractProductRows.ConfirmationMessage = Nothing + Me.aDown_ContractProductRows.Id = "aDown_ContractProductRows" + Me.aDown_ContractProductRows.ImageName = "arrow_down_green" + Me.aDown_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_ContractProductRows.Shortcut = Nothing + Me.aDown_ContractProductRows.Tag = Nothing + Me.aDown_ContractProductRows.TargetObjectsCriteria = Nothing + Me.aDown_ContractProductRows.TargetViewId = Nothing + Me.aDown_ContractProductRows.ToolTip = Nothing + Me.aDown_ContractProductRows.TypeOfView = Nothing + ' + 'aUp_ContractProductRows + ' + Me.aUp_ContractProductRows.Caption = "Up" + Me.aUp_ContractProductRows.Category = "RecordsNavigation" + Me.aUp_ContractProductRows.ConfirmationMessage = Nothing + Me.aUp_ContractProductRows.Id = "aUp_ContractProductRows" + Me.aUp_ContractProductRows.ImageName = "arrow_up_green" + Me.aUp_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_ContractProductRows.Shortcut = Nothing + Me.aUp_ContractProductRows.Tag = Nothing + Me.aUp_ContractProductRows.TargetObjectsCriteria = Nothing + Me.aUp_ContractProductRows.TargetViewId = Nothing + Me.aUp_ContractProductRows.ToolTip = Nothing + Me.aUp_ContractProductRows.TypeOfView = Nothing + ' + 'aNewContractProductHeader + ' + Me.aNewContractProductHeader.AcceptButtonCaption = Nothing + Me.aNewContractProductHeader.CancelButtonCaption = Nothing + Me.aNewContractProductHeader.Caption = "New Contract Product Header" + Me.aNewContractProductHeader.Category = "ObjectsCreation" + Me.aNewContractProductHeader.ConfirmationMessage = Nothing + Me.aNewContractProductHeader.Id = "aNewContractProductHeader" + Me.aNewContractProductHeader.ImageName = Nothing + Me.aNewContractProductHeader.Shortcut = Nothing + Me.aNewContractProductHeader.Tag = Nothing + Me.aNewContractProductHeader.TargetObjectsCriteria = Nothing + Me.aNewContractProductHeader.TargetViewId = Nothing + Me.aNewContractProductHeader.ToolTip = Nothing + Me.aNewContractProductHeader.TypeOfView = Nothing + ' + 'aFinalizeContractProduct + ' + Me.aFinalizeContractProduct.Caption = "Finalize Contract Product" + Me.aFinalizeContractProduct.Category = "Edit" + Me.aFinalizeContractProduct.ConfirmationMessage = Nothing + Me.aFinalizeContractProduct.Id = "aFinalizeContractProduct" + Me.aFinalizeContractProduct.ImageName = Nothing + Me.aFinalizeContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalizeContractProduct.Shortcut = Nothing + Me.aFinalizeContractProduct.Tag = Nothing + Me.aFinalizeContractProduct.TargetObjectsCriteria = "State in (0)" + Me.aFinalizeContractProduct.TargetViewId = Nothing + Me.aFinalizeContractProduct.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalizeContractProduct.ToolTip = Nothing + Me.aFinalizeContractProduct.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSendBackToEditContractProduct + ' + Me.aSendBackToEditContractProduct.Caption = "SendBackToEditContractProduct" + Me.aSendBackToEditContractProduct.Category = "Edit" + Me.aSendBackToEditContractProduct.ConfirmationMessage = Nothing + Me.aSendBackToEditContractProduct.Id = "aSendBackToEditContractProduct" + Me.aSendBackToEditContractProduct.ImageName = Nothing + Me.aSendBackToEditContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSendBackToEditContractProduct.Shortcut = Nothing + Me.aSendBackToEditContractProduct.Tag = Nothing + Me.aSendBackToEditContractProduct.TargetObjectsCriteria = "State in (1)" + Me.aSendBackToEditContractProduct.TargetViewId = Nothing + Me.aSendBackToEditContractProduct.ToolTip = Nothing + Me.aSendBackToEditContractProduct.TypeOfView = Nothing + ' + 'aTotableD_ConProd_Receivables + ' + Me.aTotableD_ConProd_Receivables.AcceptButtonCaption = Nothing + Me.aTotableD_ConProd_Receivables.CancelButtonCaption = Nothing + Me.aTotableD_ConProd_Receivables.Caption = "aTotableD_ConProd_Receivables" + Me.aTotableD_ConProd_Receivables.Category = "aTotableD_ConProd_Receivables" + Me.aTotableD_ConProd_Receivables.ConfirmationMessage = Nothing + Me.aTotableD_ConProd_Receivables.Id = "aTotableD_ConProd_Receivables" + Me.aTotableD_ConProd_Receivables.ImageName = "table_delete" + Me.aTotableD_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aTotableD_ConProd_Receivables.Shortcut = Nothing + Me.aTotableD_ConProd_Receivables.Tag = Nothing + Me.aTotableD_ConProd_Receivables.TargetObjectsCriteria = Nothing + Me.aTotableD_ConProd_Receivables.TargetViewId = Nothing + Me.aTotableD_ConProd_Receivables.ToolTip = Nothing + Me.aTotableD_ConProd_Receivables.TypeOfView = Nothing + ' + 'aPrintContractProduct + ' + Me.aPrintContractProduct.Caption = "aPrint Contract Product" + Me.aPrintContractProduct.ConfirmationMessage = Nothing + Me.aPrintContractProduct.Id = "aPrintContractProduct" + Me.aPrintContractProduct.ImageName = Nothing + Me.aPrintContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintContractProduct.Shortcut = Nothing + Me.aPrintContractProduct.Tag = Nothing + Me.aPrintContractProduct.TargetObjectsCriteria = Nothing + Me.aPrintContractProduct.TargetObjectType = GetType(SISBusiness.[Module].ContractProductHeader) + Me.aPrintContractProduct.TargetViewId = Nothing + Me.aPrintContractProduct.ToolTip = Nothing + Me.aPrintContractProduct.TypeOfView = Nothing + + End Sub + Friend WithEvents aTotable_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotable_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotableD_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aNewContractProductHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFinalizeContractProduct As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSendBackToEditContractProduct As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotableD_ConProd_Receivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPrintContractProduct As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.resx new file mode 100644 index 0000000..5b13a43 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 446 + + + 17, 251 + + + 17, 407 + + + 17, 368 + + + 17, 329 + + + 17, 290 + + + 17, 212 + + + 17, 134 + + + 17, 173 + + + 221, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb new file mode 100644 index 0000000..6035c8d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb @@ -0,0 +1,591 @@ +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.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Xpo + +Public Class ContractProduct_VC + Inherits DevExpress.ExpressApp.ViewController + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) + + If View.Id Like "ContractProductHeader_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)" + Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True) + End If + + If View.Id Like "ContractProductHeader_DetailView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True) + End If + + If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "ContractTemplate_ListView_PopUp" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "ContractProductRowsInOut_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "ContractProductRows_ListView_Invoice" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) + End If + If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktats betekintse + Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id Like "ContractProductHeader_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False) + Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) + End If + + If View.Id Like "ContractProductHeader_DetailView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False) + End If + If View.Id = "ContractTemplate_ListView_PopUp" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "ContractProductRowsInOut_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "ContractProductRows_ListView_Invoice" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True) + End If + If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then + Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktats betekintse + Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False) + Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True) + Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True) + End If + End Sub + Private Sub aContractProductHeaderNew_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DetailViewName As String = "" + Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)() + _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True)) + If View.Id = "ContractProductHeader_ListView_Receivables" Then + _DetailViewName = "ContractProductHeader_DetailView_Receivables" + _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.eReceivables)) + End If + If View.Id = "ContractProductHeader_ListView_Payabels" Then + _DetailViewName = "ContractProductHeader_DetailView_Payables" + _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.ePayabels)) + End If + If _DetailViewName <> "" Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader) + Else + _onew.Rollback() + '--------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Az eladni kvnt mennyisg meghaladja maximlisan eladhat mennyisget!") + '--------------------------------- TESZT MIATT -------------------------------<< + End If + End Sub + Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader) + Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)() + Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)() + + _ContractProductRows.ContractProductHeader = _ContractProductHeader + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + + _ContractProductRows.AddRows(_ContractProductHeader) + + _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows + _ContractProductRowsEvent.QTT_In = _ContractProductHeader.row_QTT + _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution + + + _ocur.CommitChanges() + + _ContractProductHeader.row_ContractProductRows = Nothing + _ContractProductHeader.row_NettoPriceDEV = 0 + _ContractProductHeader.row_NettoPriceHUF = 0 + _ContractProductHeader.row_Products = Nothing + _ContractProductHeader.row_QTT = 0 + _ContractProductHeader.row_RowGroup1 = "" + _ContractProductHeader.row_RowGroup2 = "" + _ContractProductHeader.row_Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + _ContractProductHeader.row_VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) + Dim _ContractProductHeader_ListEditor As ListPropertyEditor + + + _ContractProductHeader_ListEditor = TryCast(View, DetailView).FindItem("ContractProductRows") + For Each _ContractProductRows As ContractProductRows In _ContractProductHeader_ListEditor.ListView.SelectedObjects + Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)() + _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows + _ContractProductRowsEvent.QTT_In = _ContractProductRows.QTT * (-1) + _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution + + _ContractProductRows.RemoveRows() + Next + + _ocur.CommitChanges() + View.Refresh() + End Sub + Private Sub aBackToRowEdit_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Payabels.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijellt elem fejlcnek betltse + + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok sszeszedse + If _ListView.ListView.SelectedObjects.Count > 0 Then + + Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0) 'Rgi sor vltozba tltse + + _ContractProductHeader.row_Products = _ContractProductRows.Products + _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV + _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF + _ContractProductHeader.row_QTT = _ContractProductRows.QTT + _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1 + _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2 + _ContractProductHeader.row_Units = _ContractProductRows.Units + _ContractProductHeader.row_VAT = _ContractProductRows.VAT + _ContractProductHeader.row_APCSheetByProducts = _ContractProductRows.APCSheetByProducts + + End If + End Sub + Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute + ' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader) + Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid)) + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok sszeszedse + Dim _ContractProductRowsCollection As XPCollection = _ListView.ListView.ObjectSpace.CreateCollection(GetType(ContractProductRows), CriteriaOperator.Parse("ContractProductHeader=?", _ContractProductHeader)) + Dim _ContractProductRows As ContractProductRows + Dim _MatchLine As Boolean = False + + If _ContractProductHeader.row_QTT <= (_ContractProductRows_IN.QTT - _ContractProductRows_IN.QTT_Out) Then + For Each _ContractProductRows_List As ContractProductRows In _ContractProductRowsCollection + If _ContractProductRows_List.Products.Oid = _ContractProductHeader.row_ContractProductRows.Products.Oid Then + If _ContractProductHeader.CurrencyName.ShortName = "HUF" Then + If _ContractProductRows_List.NettoPriceHUF = _ContractProductHeader.row_NettoPriceHUF Then + _MatchLine = True + End If + Else + If _ContractProductRows_List.NettoPriceDEV = _ContractProductHeader.row_NettoPriceDEV Then + _MatchLine = True + End If + End If + End If + Next + If _MatchLine Then + _ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("ContractProductHeader=? AND Products=? AND NettoPriceHUF=? AND NettoPriceDEV=?", _ + _ContractProductHeader, _ContractProductHeader.row_ContractProductRows.Products, _ContractProductHeader.row_NettoPriceHUF, _ContractProductHeader.row_NettoPriceDEV)) + _ContractProductRows.QTT += _ContractProductHeader.row_QTT + _ContractProductRows_IN.QTT_Out += _ContractProductHeader.row_QTT + Else + _ContractProductRows = _ocur.CreateObject(Of ContractProductRows)() + + _ContractProductRows.ContractProductHeader = _ContractProductHeader + _ContractProductRows.AddRows(_ContractProductHeader) + _ContractProductRows_IN.QTT_Out += _ContractProductRows.QTT + + End If + + Dim _ContractProductRowsInOut As ContractProductRowsInOut = _ocur.CreateObject(Of ContractProductRowsInOut)() + Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)() + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + If ItemControl IsNot Nothing Then + ItemControl.Focus() + End If + End If + + + _ContractProductRowsInOut.QTT = _ContractProductHeader.row_QTT + _ContractProductRowsInOut.ContractProductRowsIn = _ContractProductRows_IN + _ContractProductRowsInOut.ContractProductRowsOut = _ContractProductRows + + _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows + _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductHeader.row_ContractProductRows + _ContractProductRowsEvent.QTT_Out = _ContractProductHeader.row_QTT + _ContractProductRowsEvent.QTT_In = 0 + _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution + + _ContractProductHeader.row_ContractProductRows = Nothing + _ContractProductHeader.row_NettoPriceDEV = 0 + _ContractProductHeader.row_NettoPriceHUF = 0 + _ContractProductHeader.row_Products = Nothing + _ContractProductHeader.row_QTT = 0 + _ContractProductHeader.row_RowGroup1 = "" + _ContractProductHeader.row_RowGroup2 = "" + _ContractProductHeader.row_Units = Nothing + _ContractProductHeader.row_VAT = Nothing + + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Else + _ContractProductHeader.row_QTT = _ContractProductHeader.row_ContractProductRows.QTT - _ContractProductHeader.row_ContractProductRows.QTT_Out + '--------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Az eladni kvnt mennyisg meghaladja maximlisan eladhat mennyisget!") + '--------------------------------- TESZT MIATT -------------------------------<< + End If + + ' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijellt elem fejlcnek betltse + + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok sszeszedse + If _ListView.ListView.SelectedObjects.Count > 0 Then + + Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0) 'Rgi sor vltozba tltse + + _ContractProductHeader.row_Products = _ContractProductRows.Products + _ContractProductHeader.row_ContractProductRows = TryCast(_ocur.FindObject(Of ContractProductRowsInOut)(CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)), ContractProductRowsInOut).ContractProductRowsIn + _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV + _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF + _ContractProductHeader.row_QTT = _ContractProductRows.QTT + _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1 + _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2 + _ContractProductHeader.row_Units = _ContractProductRows.Units + _ContractProductHeader.row_VAT = _ContractProductRows.VAT + + View.Refresh() + End If + End Sub + Private Sub aDown_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_ContractProductRows.Execute + ' A kivlaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.CurrentObject, ContractProductRows).ContractProductHeader + Dim _ContractProductRowsSelected As ContractProductRows = Nothing + Dim _ContractProductRowsPlus As ContractProductRows = Nothing + Dim _ContractProductRows As ContractProductRows = Nothing + + Try + _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijellt sorok kzl az elst + Catch + '--------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + '--------------------------------- TESZT MIATT -------------------------------<< + End Try + + If _ContractProductRowsSelected.RowIndex < _ContractProductHeader.ContractProductRows.Count - 1 Then + For Each _ContractProductRows In _ContractProductHeader.ContractProductRows + If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex + 1 Then + _ContractProductRowsPlus = _ContractProductRows + Exit For + End If + Next + + If _ContractProductRowsPlus IsNot Nothing Then + _ContractProductRowsSelected.RowIndex += 1 + _ContractProductRowsPlus.RowIndex -= 1 + End If + + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aUp_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_ContractProductRows.Execute + ' A kivlaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductRows).ContractProductHeader + Dim _ContractProductRowsSelected As ContractProductRows = Nothing + Dim _ContractProductRowsMinus As ContractProductRows = Nothing + Dim _ContractProductRows As ContractProductRows = Nothing + + Try + _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijellt sorok kzl az elst + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + End Try + + If _ContractProductRowsSelected.RowIndex > 0 Then + For Each _ContractProductRows In _ContractProductHeader.ContractProductRows + If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex - 1 Then + _ContractProductRowsMinus = _ContractProductRows + Exit For + End If + Next + + If _ContractProductRowsMinus IsNot Nothing Then + _ContractProductRowsSelected.RowIndex -= 1 + _ContractProductRowsMinus.RowIndex += 1 + End If + + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aNewContractProductHeader_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aNewContractProductHeader.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(ContractTemplate)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("IsProducts=True") + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("ContractTemplate_ListView_PopUp", _CS, False) + + End Sub + Private Sub aNewContractProductHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aNewContractProductHeader.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + Dim _ContractTemplate As ContractTemplate = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate) + + Dim _DetailViewName As String = "" + + If _ContractTemplate IsNot Nothing Or e.PopupWindow.View.SelectedObjects.Count = 1 Then + Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)() + _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True)) + _ContractProductHeader.ContractTemplate = _onew.GetObjectByKey(Of ContractTemplate)(_ContractTemplate.Oid) + + If _ContractTemplate.PartnerType = ePartnerType.eReceivables Then + _DetailViewName = "ContractProductHeader_DetailView_Receivables" + End If + If _ContractTemplate.PartnerType = ePartnerType.ePayabels Then + _DetailViewName = "ContractProductHeader_DetailView_Payables" + End If + If _DetailViewName <> "" Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader) + e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Else + _onew.Rollback() + ' --------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Vratlan hiba trtnt! A mvelet megszakadt! " & vbNewLine & _ + "Valsznleg hibsan kerlt be a rendszerbe egy vagy tbb szerzdsi sablon!" & vbNewLine & _ + "Krem ellenrizze a szerzdsi sablonokat!") + ' --------------------------------- TESZT MIATT -------------------------------<< + End If + Else + _onew.Rollback() + ' --------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Egynl tbb sor van kivlasztva!") + ' --------------------------------- TESZT MIATT -------------------------------<< + End If + Else + _onew.Rollback() + ' --------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Nincs sor kivlasztva!") + ' --------------------------------- TESZT MIATT -------------------------------<< + End If + End Sub + Private Sub aFinalizeContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeContractProduct.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader) + If _ContractProductHeader IsNot Nothing Then + Dim _CustomersNGCollection As CustomersNGCollection = Nothing + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then + _CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _ + _ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate)) + End If + + _ContractProductHeader.State = State.Ready + + If _ContractProductHeader.DocumentNumber = "" Then + If _CustomersNGCollection IsNot Nothing Then + _ContractProductHeader.DocumentNumber = _CustomersNGCollection.NumberGenerator.GetNewNumber(_CustomersNGCollection.NumberGenerator) + Else + _ContractProductHeader.DocumentNumber = _ContractProductHeader.ContractTemplate.NumberGenerator.GetNewNumber(_ContractProductHeader.ContractTemplate.NumberGenerator) + End If + End If + + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader) + If _ContractProductHeader IsNot Nothing Then + _ContractProductHeader.State = State.Preparation + _ocur.CommitChanges() + End If + End Sub + Private Sub aTotableD_ConProd_Receivables_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aTotableD_ConProd_Receivables.CustomizePopupWindowParams + Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") + If _ContractProductHeader_ListEditor.ListView.SelectedObjects.Count > 0 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(ContractProductRowsInOut)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("1=2") 'CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows) + _CS.EndUpdateCriteria() + + Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0) + Dim _ContractProductRowsInOut_List As XPCollection = _onew.CreateCollection(GetType(ContractProductRowsInOut), CriteriaOperator.Parse("ContractProductRowsOut=?", _onew.GetObject(_ContractProductRows))) + + For Each _ContractProductRowsInOut As ContractProductRowsInOut In _ContractProductRowsInOut_List + + _CS.Add(_ContractProductRowsInOut) + Next + + e.View = Application.CreateListView("ContractProductRowsInOut_ListView", _CS, False) + Else + '--------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Nincs kivlasztva egy sor sem!") + '--------------------------------- TESZT MIATT -------------------------------<< + End If + End Sub + Private Sub aTotableD_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aTotableD_ConProd_Receivables.Execute + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader) + Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") + Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0) + + For Each _ContractProductRowsInOut In e.PopupWindow.View.SelectedObjects + Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)() + Dim _ContractProductRowsInOut_Ocur As ContractProductRowsInOut = _ocur.GetObjectByKey(Of ContractProductRowsInOut)(TryCast(_ContractProductRowsInOut, ContractProductRowsInOut).Oid) + _ContractProductRowsInOut_Ocur.ContractProductRowsIn.QTT_Out -= _ContractProductRowsInOut_Ocur.QTT + _ContractProductRows.QTT -= _ContractProductRowsInOut_Ocur.QTT + + _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRowsInOut_Ocur.ContractProductRowsIn + _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows + _ContractProductRowsEvent.QTT_In = 0 + _ContractProductRowsEvent.QTT_Out = _ContractProductRows.QTT + + _ContractProductRowsInOut_Ocur.RemoveRows() + If _ContractProductRows.QTT = 0 Then + _ContractProductRows.RemoveRows() + End If + Next + + _ocur.CommitChanges() + Else + '--------------------------------- TESZT MIATT ------------------------------->> + Throw New Exception("*Nincs kivlasztva egy sor sem! A trls nem hajtaht vgre!") + '--------------------------------- TESZT MIATT -------------------------------<< + End If + View.Refresh() + End Sub + + Private Sub aPrintContractProduct_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintContractProduct.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader) + Try + If _ContractProductHeader IsNot Nothing Then + Dim _ReportData As DevExpress.Persistent.BaseImpl.ReportData = _ContractProductHeader.ContractTemplate.ReportData + + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!") + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ContractProductHeader.Oid=?", _ContractProductHeader.Oid), True) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNote.cd b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNote.cd new file mode 100644 index 0000000..9c0380a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNote.cd @@ -0,0 +1,139 @@ + + + + + + + + mAFQAAhGCEAEAJIIJCKYIAkABAQIQVCADQgEkCECiTA= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInHeader.vb + + + + + + + + AAggAgEAMQAAYAAAwAAjJABAGgAAAABAkAAGIAAAgAU= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInRows.vb + + + + + + + + AQAAAAAgAAAgAEAAAAAAAAAAAQAAEIIEAAAAAAACAAA= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInType.vb + + + + + + + + GQFAAA1GAEAEAIIIICCYIIAABCQIAACBCAAMECEAgDA= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutHeader.vb + + + + + + + + AAAAAAAAAQAAQAAAAAAQAAAAABAAAEAAgAgAAAEggAA= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutRows.vb + + + + + + + + AQAAAAAgAAAgAEAACAAAAgAAAQAAAIAEAAAAAAACAAA= + BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutType.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInHeader.vb new file mode 100644 index 0000000..beddfca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInHeader.vb @@ -0,0 +1,531 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eWeightMode + eTotalWeightperQuantity = 0 'Össz súly + eUnitWeightperQuantity = 1 'Egység súly +End Enum + _ + _ + _ + _ + _ + _ + _ + _ +'HUF' And IsNull(CurrencyName)=False) Or IsNull(DeliveryNoteInType)=True", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class DeliveryNoteInHeader 'Bejövő szállítólevél fejléc + Inherits BaseObject + Private _DeliveryNoteInType As DeliveryNoteInType 'Bejövő szállítólevél tipusa + Private _DocumentNumber As String 'Bizonylat száma + Private _DocumentNumberIn As String 'Belső sorszám (véglegesítéskor kapja) + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Beszállító + Private _DateCreated As Date 'Kiáll. dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _DatePayment As Date 'Fizetési határidő + Private _PaymentOption As PaymentOption 'Fizetési opció + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + Private _CurrencyName As CurrencyName 'Deviza + Private _CurrencyRate As Double 'Deviza árfolyam + Private _Note As String 'Fejléc megjegyzés + Private _IsEditable As Boolean = True 'Szerkeszthető + Private _IsStorno As Boolean = False 'Végleges + Private _ObjectCreated As Date 'Objektum keletkezésének dátuma + Private _UserCreated As User + Private _IsControlled As Boolean 'Akkor lesz True, ha a szállítólevélen lévő összes sor össze van pontozva számlával + Private _IsStoraged As Boolean 'Akkor lesz True, ha minden tétele be lett vételezve + Private _DocumentFile As FileData 'A beszkennelt szállítólevél + '-- Non persistent + Private _row_OrderOutRows As OrderOutRows 'Kimenő megrendelési sorok + Private _row_Products As Products 'Termék, ami a szállítólevelen van + Private _row_QTT As Double 'Termék szállított mennyisége + Private _row_ListPriceHUF As Double 'Termék listaára HUF + Private _row_ListPriceDEV As Double 'Termék listaára DEV + Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban + Private _row_NoteRows As String 'Sor megjegyzés + Private _row_PacketNumber As String 'Kötegszám, Fémzárszám + Private _row_Weight As Double + Private _row_WeightMode As eWeightMode + Private _row_CountryFrom As Country 'Származási ország ! + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + IsEditable = True + IsStorno = False + IsControlled = False + IsStoraged = False + CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If _DocumentNumber = "" Then + _DocumentNumber = DeliveryNoteInType.NumberGenerator.GetNewNumber(DeliveryNoteInType.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + _ + Property DeliveryNoteInType As DeliveryNoteInType + Get + Return _DeliveryNoteInType + End Get + Set(value As DeliveryNoteInType) + SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + Property DocumentNumberIn() As String + Get + Return _DocumentNumberIn + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumberIn", _DocumentNumberIn, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If Me.PaymentOption IsNot Nothing Then + Me.DatePayment = Nothing + If PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + Else + Me.DatePayment = value.AddDays(PaymentOption.PayDay) + End If + End If + End If + End Set + End Property + _ + Property DatePayment() As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If Me.DateExecution <> Nothing And value IsNot Nothing Then + Me.DatePayment = Nothing + Me.DatePayment = DateExecution.AddDays(value.PayDay) + End If + End If + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsControlled As Boolean + Get + Return _IsControlled + End Get + Set(value As Boolean) + SetPropertyValue("IsControlled", _IsControlled, value) + End Set + End Property + Property IsStoraged As Boolean + Get + Return _IsStoraged + End Get + Set(value As Boolean) + SetPropertyValue("IsStoraged", _IsStoraged, value) + End Set + End Property + _ + Property DocumentFile() As FileData + Get + Return _DocumentFile + End Get + Set(ByVal value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + + '-- NON persistent propertyk------------------------------- + _ + _ + _ + _ + Property row_OrderOutRows As OrderOutRows + Get + Return _row_OrderOutRows + End Get + Set(value As OrderOutRows) + SetPropertyValue("row_OrderOutRows", _row_OrderOutRows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + Me.row_Products = value.Products + Me.row_QTT = value.QTT - value.QTT_DeliveryNoteIn + Me.row_ListPriceHUF = value.ListPriceHUF + Me.row_ListPriceDEV = value.ListPriceDEV + Me.row_DiscountPercent = value.DiscountPercent + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(ByVal value As Products) + SetPropertyValue("row_Products", _row_Products, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_Products IsNot Nothing Then + Me.row_ListPriceHUF = Me.row_Products.ListPriceInHUF + Me.row_ListPriceDEV = Me.row_Products.ListPriceInDEV + End If + End If + End Set + End Property + _ + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + + _ + _ + Property row_ListPriceHUF As Double + Get + Return _row_ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceDEV As Double + Get + Return _row_ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value) + End Set + End Property + _ + _ + _ + Property row_DiscountPercent As Double + Get + Return _row_DiscountPercent + End Get + Set(ByVal value As Double) + 'If value < 0 Or value > 99 Then + ' Throw New Exception("*A kedvemény mértékének 1 és 99 között kell lennie.") + 'End If + SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value) + End Set + End Property + _ + _ + Property row_NoteRows As String + Get + Return _row_NoteRows + End Get + Set(value As String) + SetPropertyValue("row_NoteRows", _row_NoteRows, value) + End Set + End Property + _ + _ + Property row_PacketNumber As String + Get + Return _row_PacketNumber + End Get + Set(value As String) + SetPropertyValue("row_PacketNumber", _row_PacketNumber, value) + End Set + End Property + _ + _ + Property row_Weight As Double + Get + Return _row_Weight + End Get + Set(value As Double) + SetPropertyValue("row_Weight", _row_Weight, value) + End Set + End Property + + Property row_WeightMode As eWeightMode + Get + Return _row_WeightMode + End Get + Set(value As eWeightMode) + SetPropertyValue("row_WeightMode", _row_WeightMode, value) + End Set + End Property + _ + _ + Property row_CountryFrom As Country + Get + Return _row_CountryFrom + End Get + Set(value As Country) + SetPropertyValue("row_CountryFrom", _row_CountryFrom, value) + End Set + End Property + + + _ + _ + Private ReadOnly Property OrderOutRows As XPCollection(Of OrderOutRows) + Get + 'Dim _OrderOutRows As OrderOutRows + Dim _OrderOutRows_Collection As XPCollection(Of OrderOutRows) + Dim _Criteria As String + + + _Criteria = "OrderOutHeader.IsEditable = False and OrderOutHeader.IsStorno = False and OrderOutHeader.CustomersFrom.Oid=? " + _Criteria += " and OrderOutHeader.CustomersOrder.Oid=? and QTT_DeliveryNoteIn _ + ReadOnly Property DeliveryNoteInrows As XPCollection(Of DeliveryNoteInRows) + Get + Return GetCollection(Of DeliveryNoteInRows)("DeliveryNoteInrows") + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows.DeliveryNoteInRows.DeliveryNoteInHeader=?", Me)) + End Get + End Property + _ + ReadOnly Property StorageInRows As XPCollection(Of StorageInRows) + Get + Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me)) + End Get + End Property + + _ + ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC) + Get + Return New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me)) + End Get + End Property + + _ + _ + _ + ReadOnly Property DisplayName As String + Get + Return Me.DocumentNumber & ", " & Me.DocumentNumberIn & ", " & Me.DateExecution + End Get + End Property + _ + ReadOnly Property OrderInTo As XPCollection(Of OrderInTo) + Get + Dim _OrderInTo_Collection As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("1=2")) + Dim _OrderInTo As OrderInTo + Dim _DeliveryNoteInRows As DeliveryNoteInRows + + For Each _DeliveryNoteInRows In Me.DeliveryNoteInrows + If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then + Dim _OrderInTo_Collection_1 As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderOutRows=?", _DeliveryNoteInRows.OrderOutRows)) + For Each _OrderInTo In _OrderInTo_Collection_1 + _OrderInTo_Collection.Add(_OrderInTo) + Next + End If + Next + Return _OrderInTo_Collection + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRRFC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRRFC.vb new file mode 100644 index 0000000..a6b30a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRRFC.vb @@ -0,0 +1,86 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DeliveryNoteInRRFC 'Szllti szmla igazolsi sora s bejv szlltlevl sora kapcsolat + Inherits BaseObject + + Private _DeliveryNoteInRows As DeliveryNoteInRows 'Szlltlevl sor + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling 'Szmla igazolsi sor + Private _QTT_Controlled As Double 'Leigazolt mennyisg adott sorra vonatkozlag + Private _BonusHUF As Double ' Bnusz erre a sorra vonatkozlag ! Ez cskkenti, vagy nveli a beszerzsi rtket ! + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + Dim _DeliveryNoteInRRFC_Collection As New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", DeliveryNoteInRows)) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + Dim _QTT_Controlled As Double = 0 + For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection + _QTT_Controlled += _DeliveryNoteInRRFC._QTT_Controlled + Next + DeliveryNoteInRows.QTT_Controlled = _QTT_Controlled + DeliveryNoteInRows.Save() + DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = True + For Each _DeliveryNoteInRows As DeliveryNoteInRows In DeliveryNoteInRows.DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows.QTT <> _DeliveryNoteInRows.QTT_Controlled Then + DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = False + Exit For + End If + Next + DeliveryNoteInRows.DeliveryNoteInHeader.Save() + Session.CommitTransaction() + End Sub + + Property DeliveryNoteInRows As DeliveryNoteInRows + Get + Return _DeliveryNoteInRows + End Get + Set(value As DeliveryNoteInRows) + SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value) + End Set + End Property + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property + Property QTT_Controlled As Double + Get + Return _QTT_Controlled + End Get + Set(value As Double) + SetPropertyValue("QTT_Controlled", _QTT_Controlled, value) + End Set + End Property + Property BonusHUF As Double + Get + Return _BonusHUF + End Get + Set(value As Double) + SetPropertyValue("BonusHUF", _BonusHUF, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRows.vb new file mode 100644 index 0000000..25bd1c9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRows.vb @@ -0,0 +1,355 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class DeliveryNoteInRows 'Bejövő szállítólevél sorok + Inherits BaseObject + Private _DeliveryNoteInHeader As DeliveryNoteInHeader + Private _RowIndex As Long = 0 'Sor index + Private _Products As Products 'Termék vagy szolgáltatás + Private _Installation As Installation 'Gyártmány + Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !) + Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !) + Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF + Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV + Private _QTT As Double = 0 'Mennyiség + Private _QTT_Process As Double 'Mennyiségi szándék, kézzel beírható + Private _QTT_Controlled As Double 'Erre a sorra vonatkozólag ? lett leigazolva szállítói számlán + Private _QTT_Returned As Double ' Visszárúzott mennyiség + Private _Units As Units ' Mennyiségi egység + Private _VAT As VAT 'ÁFA + Private _OrderOutRows As OrderOutRows 'Kimenő rendelési sor + Private _OfferInRows As OfferInRows + Private _NoteRows As String 'Sor megjegyzés + Private _PacketNumber As String 'Kötegszám + Private _Weight As Double 'Súly (összes mennyiség súlya) + Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly + Private _Area As Double 'Négyzetméter + Private _ITransactionNumber As String 'INRASTAT tranzakciós azonosító + Private _ShipingCode As String 'INTRASTAT szállítási azonosító + + Private _row_ListPrice As Double + Private _row_DiscountPercent As Double + Private _row_SumPrice As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + QTT = 0 + QTT_Controlled = 0 + QTT_Process = 0 + QTT_Returned = 0 + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + End Sub + _ + Property DeliveryNoteInHeader As DeliveryNoteInHeader + Get + Return _DeliveryNoteInHeader + End Get + Set(ByVal value As DeliveryNoteInHeader) + SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property Installation As Installation + Get + Return _Installation + End Get + Set(value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + ReadOnly Property SumPriceHUF() As Double + Get + Return Math.Round(_QTT * (_ListPriceHUF - _DiscountPriceHUF), 0, MidpointRounding.AwayFromZero) + End Get + End Property + ReadOnly Property SumPriceDEV() As Double + Get + Return Math.Round(_QTT * (_ListPriceDEV - _DiscountPriceDEV), 2, MidpointRounding.AwayFromZero) + End Get + End Property + ReadOnly Property SumPriceVATHUF As Double + Get + If VAT Is Nothing Then + Return 0 + Else + Return Math.Round(SumPriceHUF * VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + End If + + End Get + End Property + ReadOnly Property SumPriceVATDEV As Double + Get + If VAT Is Nothing Then + Return 0 + Else + Return Math.Round(SumPriceDEV * VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + End If + + End Get + End Property + ReadOnly Property SumPriceBruttoHUF As Double + Get + Return SumPriceHUF + SumPriceVATHUF + End Get + End Property + ReadOnly Property SumPriceBruttoDEV As Double + Get + Return SumPriceDEV + SumPriceVATDEV + End Get + End Property + Property ListPriceHUF() As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV() As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property DiscountPriceHUF() As Double + Get + Return _DiscountPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + End Set + End Property + Property DiscountPriceDEV() As Double + Get + Return _DiscountPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + End Set + End Property + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + controlled_SumPrice = SetRowSumPrice(value, controlled_ListPrice, controlled_DiscountPercent) + End If + End Set + End Property + Property QTT_Controlled As Double + Get + Return _QTT_Controlled + End Get + Set(value As Double) + SetPropertyValue("QTT_Controlled", _QTT_Controlled, value) + End Set + End Property + Property QTT_Returned As Double + Get + Return _QTT_Returned + End Get + Set(value As Double) + SetPropertyValue("QTT_Returned", _QTT_Returned, value) + End Set + End Property + _ + Property Units() As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property VAT() As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property OrderOutRows As OrderOutRows + Get + Return _OrderOutRows + End Get + Set(value As OrderOutRows) + SetPropertyValue("OrderOutRows", _OrderOutRows, value) + End Set + End Property + Property OfferInRows As OfferInRows + Get + Return _OfferInRows + End Get + Set(value As OfferInRows) + SetPropertyValue("OfferInRows", _OfferInRows, value) + End Set + End Property + Property NoteRows As String + Get + Return _NoteRows + End Get + Set(value As String) + SetPropertyValue("NoteRows", _NoteRows, value) + End Set + End Property + Property PacketNumber As String + Get + Return _PacketNumber + End Get + Set(value As String) + SetPropertyValue("PacketNumber", _PacketNumber, value) + End Set + End Property + Property Weight As Double + Get + Return _Weight + End Get + Set(value As Double) + SetPropertyValue("Weight", _Weight, value) + End Set + End Property + Property WeightMode As eWeightMode + Get + Return _WeightMode + End Get + Set(value As eWeightMode) + SetPropertyValue("WeightMode", _WeightMode, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property + Property ITransactionNumber As String + Get + Return _ITransactionNumber + End Get + Set(value As String) + SetPropertyValue("ITransactionNumber", _ITransactionNumber, value) + End Set + End Property + Property ShipingCode As String + Get + Return _ShipingCode + End Get + Set(value As String) + SetPropertyValue("ShipingCode", _ShipingCode, value) + End Set + End Property + '-----------Nonpersistent------------ + + Property controlled_ListPrice As Double + Get + Return _row_ListPrice + End Get + Set(value As Double) + SetPropertyValue("controlled_ListPrice", _row_ListPrice, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + controlled_SumPrice = SetRowSumPrice(QTT_Process, value, controlled_DiscountPercent) + End If + End Set + End Property + + Property controlled_DiscountPercent As Double + Get + Return _row_DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("controlled_DiscountPercent", _row_DiscountPercent, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + controlled_SumPrice = SetRowSumPrice(QTT_Process, controlled_ListPrice, value) + End If + End Set + End Property + + Property controlled_SumPrice As Double + Get + Return _row_SumPrice + End Get + Set(value As Double) + SetPropertyValue("controlled_SumPrice", _row_SumPrice, value) + End Set + End Property + + '----------Sub---------------- + Public Sub AddRows(ByVal _p_DeliveryNoteInHeader As DeliveryNoteInHeader) + ' Sor hozzáadása + Me.DeliveryNoteInHeader = _p_DeliveryNoteInHeader + Me.Products = _p_DeliveryNoteInHeader.row_Products + Me.Units = _p_DeliveryNoteInHeader.row_Products.Units + Me.VAT = _p_DeliveryNoteInHeader.row_Products.VAT + Me.QTT = _p_DeliveryNoteInHeader.row_QTT + Me.ListPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF + Me.ListPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV + Me.DiscountPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100) + Me.DiscountPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100) + Me.OrderOutRows = _p_DeliveryNoteInHeader.row_OrderOutRows + Me.RowIndex = _p_DeliveryNoteInHeader.DeliveryNoteInrows.Count + Me.PacketNumber = _p_DeliveryNoteInHeader.row_PacketNumber + Me.Weight = _p_DeliveryNoteInHeader.row_Weight + Me.WeightMode = _p_DeliveryNoteInHeader.row_WeightMode + End Sub + Private Function SetRowSumPrice(pQTT_Process As Double, prow_ListPrice As Double, prow_DiscountPercent As Double) As Double + Return (pQTT_Process * prow_ListPrice) - (pQTT_Process * prow_ListPrice * (prow_DiscountPercent / 100)) + End Function + + '//XPCollections + _ + ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC) + Get + Return New XPCollection(Of DeliveryNoteInRRFC)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", Me)) + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInType.vb new file mode 100644 index 0000000..04e2f4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInType.vb @@ -0,0 +1,155 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eImportMode + eInternalwithVAT = 0 'Belföldi ÁFÁ-s + eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s + eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs + eExternalOther = 3 ' EU-n kívüli nem ÁFÁS +End Enum + _ + _ + _ +Public Class DeliveryNoteInType 'Bejövő szállítólevél tipusok + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _ImportMode As eImportMode ' + Private _IsPrice As Boolean = True 'Van-e ár + Private _IsOrderOut As Boolean = False 'Van-e rendeléssel ütköztetés + Private _ShortName As String 'Megnevezés + Private _Description As String 'Leírás + Private _NumberGenerator As NumberGenerator 'Sorszám generátor + Private _ReportData As ReportData + Private _RegistryType As RegistryType 'Iktatás tipus kiválasztása számlás bevételezés esetán !!! + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ImportMode = eImportMode.eInternalwithVAT + IsPrice = True + IsOrderOut = True + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ImportMode As eImportMode + Get + Return _ImportMode + End Get + Set(value As eImportMode) + SetPropertyValue("ImportMode", _ImportMode, value) + End Set + End Property + _ + _ + Property IsPrice As Boolean + Get + Return _IsPrice + End Get + Set(value As Boolean) + SetPropertyValue("IsPrice", _IsPrice, value) + End Set + End Property + Property IsOrderOut As Boolean + Get + Return _IsOrderOut + End Get + Set(value As Boolean) + SetPropertyValue("IsOrderOut", _IsOrderOut, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + _ + _ + Property RegistryType As RegistryType + Get + Return _RegistryType + End Get + Set(value As RegistryType) + SetPropertyValue("RegistryType", _RegistryType, value) + End Set + End Property + _ + ReadOnly Property RegistryTypeCollection As XPCollection(Of RegistryType) + Get + Dim _RegistryTypeReturnCollection As XPCollection(Of RegistryType) = Nothing + Dim _RegistryType_Collection As New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse("RegistryMainType=0 and CustomersFrom=?", CustomersFrom)) + Dim Ok As Boolean = False + If _RegistryType_Collection.Count > 0 Then + Dim _Filter As String = "Oid in(" + + For Each _RegistryType As RegistryType In _RegistryType_Collection + For Each _WorkflowSystemSteps As WorkflowSystemSteps In _RegistryType.WorkflowSystem.WorkflowSystemSteps + If _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Or _ + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Then + _Filter += "'" + _RegistryType.Oid.ToString + "'," + Ok = True + Exit For + End If + Next + + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + If Ok Then + _RegistryTypeReturnCollection = New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse(_Filter)) + Else + + End If + End If + + Return _RegistryTypeReturnCollection + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.Designer.vb new file mode 100644 index 0000000..484cb5b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.Designer.vb @@ -0,0 +1,186 @@ +Partial Class DeliveryNoteInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTotable_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotableD_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalize_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorno_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageIn_From_DeliveryNoteInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinalize_And_Storage_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRecalculateDeliveryNoteInRowsSumPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aTotable_DeliveryNoteIn + ' + Me.aTotable_DeliveryNoteIn.Caption = "Add row" + Me.aTotable_DeliveryNoteIn.Category = "aTotable_DeliveryNoteIn" + Me.aTotable_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aTotable_DeliveryNoteIn.Id = "aTotable_DeliveryNoteIn" + Me.aTotable_DeliveryNoteIn.ImageName = "table_add" + Me.aTotable_DeliveryNoteIn.Shortcut = Nothing + Me.aTotable_DeliveryNoteIn.Tag = Nothing + Me.aTotable_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aTotable_DeliveryNoteIn.TargetViewId = "" + Me.aTotable_DeliveryNoteIn.ToolTip = Nothing + Me.aTotable_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aTotableD_DeliveryNoteIn + ' + Me.aTotableD_DeliveryNoteIn.Caption = "Delete row" + Me.aTotableD_DeliveryNoteIn.Category = "aTotableD_DeliveryNoteIn" + Me.aTotableD_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aTotableD_DeliveryNoteIn.Id = "aTotableD_DeliveryNoteIn" + Me.aTotableD_DeliveryNoteIn.ImageName = "table_delete" + Me.aTotableD_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aTotableD_DeliveryNoteIn.Shortcut = Nothing + Me.aTotableD_DeliveryNoteIn.Tag = Nothing + Me.aTotableD_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aTotableD_DeliveryNoteIn.TargetViewId = "" + Me.aTotableD_DeliveryNoteIn.ToolTip = Nothing + Me.aTotableD_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aDown_DeliveryNoteIn + ' + Me.aDown_DeliveryNoteIn.Caption = "Down" + Me.aDown_DeliveryNoteIn.Category = "RecordsNavigation" + Me.aDown_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aDown_DeliveryNoteIn.Id = "aDown_DeliveryNoteIn" + Me.aDown_DeliveryNoteIn.ImageName = "arrow_down_green" + Me.aDown_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_DeliveryNoteIn.Shortcut = Nothing + Me.aDown_DeliveryNoteIn.Tag = Nothing + Me.aDown_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aDown_DeliveryNoteIn.TargetViewId = Nothing + Me.aDown_DeliveryNoteIn.ToolTip = Nothing + Me.aDown_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aUp_DeliveryNoteIn + ' + Me.aUp_DeliveryNoteIn.Caption = "Up" + Me.aUp_DeliveryNoteIn.Category = "RecordsNavigation" + Me.aUp_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aUp_DeliveryNoteIn.Id = "aUp_DeliveryNoteIn" + Me.aUp_DeliveryNoteIn.ImageName = "arrow_up_green" + Me.aUp_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_DeliveryNoteIn.Shortcut = Nothing + Me.aUp_DeliveryNoteIn.Tag = Nothing + Me.aUp_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aUp_DeliveryNoteIn.TargetViewId = Nothing + Me.aUp_DeliveryNoteIn.ToolTip = Nothing + Me.aUp_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aFinalize_DeliveryNoteIn + ' + Me.aFinalize_DeliveryNoteIn.Caption = "aFinalize_DeliveryNoteIn" + Me.aFinalize_DeliveryNoteIn.Category = "Save" + Me.aFinalize_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aFinalize_DeliveryNoteIn.Id = "aFinalize_DeliveryNoteIn" + Me.aFinalize_DeliveryNoteIn.ImageName = Nothing + Me.aFinalize_DeliveryNoteIn.Shortcut = Nothing + Me.aFinalize_DeliveryNoteIn.Tag = Nothing + Me.aFinalize_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aFinalize_DeliveryNoteIn.TargetViewId = "" + Me.aFinalize_DeliveryNoteIn.ToolTip = Nothing + Me.aFinalize_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aStorno_DeliveryNoteIn + ' + Me.aStorno_DeliveryNoteIn.Caption = "aStorno_DeliveryNoteIn" + Me.aStorno_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aStorno_DeliveryNoteIn.Id = "aStorno_DeliveryNoteIn" + Me.aStorno_DeliveryNoteIn.ImageName = Nothing + Me.aStorno_DeliveryNoteIn.Shortcut = Nothing + Me.aStorno_DeliveryNoteIn.Tag = Nothing + Me.aStorno_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aStorno_DeliveryNoteIn.TargetViewId = "" + Me.aStorno_DeliveryNoteIn.ToolTip = Nothing + Me.aStorno_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aGenerateStorageIn_From_DeliveryNoteInRows + ' + Me.aGenerateStorageIn_From_DeliveryNoteInRows.AcceptButtonCaption = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.CancelButtonCaption = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.Caption = "Create document" + Me.aGenerateStorageIn_From_DeliveryNoteInRows.Category = "ObjectsCreation" + Me.aGenerateStorageIn_From_DeliveryNoteInRows.ConfirmationMessage = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.Id = "aGenerateStorageIn_From_DeliveryNoteInRows" + Me.aGenerateStorageIn_From_DeliveryNoteInRows.ImageName = "document_into" + Me.aGenerateStorageIn_From_DeliveryNoteInRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateStorageIn_From_DeliveryNoteInRows.Shortcut = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.Tag = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetObjectsCriteria = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetViewId = "" + Me.aGenerateStorageIn_From_DeliveryNoteInRows.ToolTip = Nothing + Me.aGenerateStorageIn_From_DeliveryNoteInRows.TypeOfView = Nothing + ' + 'aFinalize_And_Storage_DeliveryNoteIn + ' + Me.aFinalize_And_Storage_DeliveryNoteIn.AcceptButtonCaption = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.CancelButtonCaption = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.Caption = "aFinalize_And_Storage_DeliveryNoteIn" + Me.aFinalize_And_Storage_DeliveryNoteIn.Category = "Save" + Me.aFinalize_And_Storage_DeliveryNoteIn.ConfirmationMessage = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.Id = "aFinalize_And_Storage_DeliveryNoteIn" + Me.aFinalize_And_Storage_DeliveryNoteIn.ImageName = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.Shortcut = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.Tag = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.TargetViewId = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.ToolTip = Nothing + Me.aFinalize_And_Storage_DeliveryNoteIn.TypeOfView = Nothing + ' + 'aRecalculateDeliveryNoteInRowsSumPrice + ' + Me.aRecalculateDeliveryNoteInRowsSumPrice.Caption = "aRecalculate Delivery Note In Rows Sum Price" + Me.aRecalculateDeliveryNoteInRowsSumPrice.ConfirmationMessage = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.Id = "aRecalculateDeliveryNoteInRowsSumPrice" + Me.aRecalculateDeliveryNoteInRowsSumPrice.ImageName = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRecalculateDeliveryNoteInRowsSumPrice.Shortcut = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.Tag = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectsCriteria = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRRFC) + Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewId = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aRecalculateDeliveryNoteInRowsSumPrice.ToolTip = Nothing + Me.aRecalculateDeliveryNoteInRowsSumPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aTotable_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotableD_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalize_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateStorageIn_From_DeliveryNoteInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFinalize_And_Storage_DeliveryNoteIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRecalculateDeliveryNoteInRowsSumPrice As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.resx new file mode 100644 index 0000000..a02821d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 276, 17 + + + 741, 17 + + + 935, 17 + + + 1111, 17 + + + 326, 56 + + + 510, 56 + + + 17, 56 + + + 17, 17 + + + 461, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb new file mode 100644 index 0000000..df21d4e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb @@ -0,0 +1,707 @@ +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.Xpo +Imports DevExpress.Data.Filtering +Imports System.Linq +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class DeliveryNoteInVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor hozzáadása (DeliveryNoteInHeader_DeliveryNoteInRows_ListView) + Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor törlése (DeliveryNoteInHeader_DeliveryNoteInRows_ListView) + Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor fel + Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor le + Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", False) ' véglegesítés letiltása + Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", False) ' sztorno letiltása + Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", False) ' Betárolás bejövő szállítólevél sorokból + Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", False) + '------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- + + If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True) + End If + If View.Id = "DeliveryNoteInHeader_ListView" Then + Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True) + End If + If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ + If View.Id = "DeliveryNoteInHeader_DetailView" Then + Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", True) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader) + If _DeliveryNoteInHeader IsNot Nothing Then + Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", True) + End If + End If + If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then ' Előleg bekérő készítő view + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "DeliveryNoteInHeader_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + '------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ + If View.Id = "DeliveryNoteInHeader_DeatilView" Then + Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False) + End If + If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub aTotable_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteIn.Execute + ' hozzáad egy új sort a fejléchez ------------------------ + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = CType(e.SelectedObjects(0), DeliveryNoteInHeader) + Dim _DeliveryNoteInRows As DeliveryNoteInRows = New DeliveryNoteInRows(_ocur.Session) + Dim _OrderOutRows As OrderOutRows = _ocur.GetObject(_DeliveryNoteInHeader.row_OrderOutRows) + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + Try + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + If _OrderOutRows IsNot Nothing Then + If _DeliveryNoteInHeader.row_QTT + _OrderOutRows.QTT_DeliveryNoteIn > _OrderOutRows.QTT Then + Throw New Exception("*Nem volt ennyi megrendelve ebből a tételből !") + Else + _OrderOutRows.QTT_DeliveryNoteIn += _DeliveryNoteInHeader.row_QTT + End If + End If + + _DeliveryNoteInRows.AddRows(_DeliveryNoteInHeader) + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + _DeliveryNoteInHeader.row_Products = Nothing + _DeliveryNoteInHeader.row_QTT = 0 + _DeliveryNoteInHeader.row_ListPriceHUF = 0 + _DeliveryNoteInHeader.row_ListPriceDEV = 0 + _DeliveryNoteInHeader.row_DiscountPercent = 0 + _DeliveryNoteInHeader.row_OrderOutRows = Nothing + _DeliveryNoteInHeader.row_PacketNumber = "" + _DeliveryNoteInHeader.row_Weight = 0 + _DeliveryNoteInHeader.row_CountryFrom = Nothing + + View.Refresh() + End Try + End Sub + Private Sub aTotableD_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteIn.Execute + ' a kiválasztott sorokat törli ----------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(e.SelectedObjects(0), DeliveryNoteInHeader) + Dim _DeliveryNoteInRows_Collection As ArrayList = New ArrayList + Dim _DeliveryNoteInRows_ListEditor As ListPropertyEditor + + _DeliveryNoteInRows_ListEditor = TryCast(View, DetailView).FindItem("DeliveryNoteInrows") + For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects + Dim _DelivNoteInRows As DeliveryNoteInRows = _DeliveryNoteInRows + For Each _DeliveryNoteInRows2 As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows2.RowIndex > _DelivNoteInRows.RowIndex Then + _DeliveryNoteInRows2.RowIndex -= 1 + End If + Next + Next + + For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects + If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then + _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT + _DeliveryNoteInRows.OrderOutRows.Save() + End If + _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows) + Next + + _ocur.Delete(_DeliveryNoteInRows_Collection) + _ocur.CommitChanges() + View.Refresh() + End Sub + Private Sub aUp_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteIn.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader + Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows = Nothing + Dim _DeliveryNoteInRowsMinus As DeliveryNoteInRows = Nothing + Dim _DeliveryNoteInRows As DeliveryNoteInRows = Nothing + + Try + _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Az editor egy listview, kiveszi az első kijelölt sorát + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _DeliveryNoteInRowsSelected.RowIndex > 0 Then + For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex - 1 Then + _DeliveryNoteInRowsMinus = _DeliveryNoteInRows + Exit For + End If + Next + + If _DeliveryNoteInRowsMinus IsNot Nothing Then + _DeliveryNoteInRowsSelected.RowIndex -= 1 + _DeliveryNoteInRowsMinus.RowIndex += 1 + End If + _DeliveryNoteInRowsMinus.Save() + _DeliveryNoteInRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteIn.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader + Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows + Dim _DeliveryNoteInRowsPlus As DeliveryNoteInRows = Nothing + Dim _DeliveryNoteInRows As DeliveryNoteInRows + + Try + _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _DeliveryNoteInRowsSelected.RowIndex < _DeliveryNoteInHeader.DeliveryNoteInrows.Count - 1 Then + For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex + 1 Then + _DeliveryNoteInRowsPlus = _DeliveryNoteInRows + Exit For + End If + Next + + If _DeliveryNoteInRowsPlus IsNot Nothing Then + _DeliveryNoteInRowsSelected.RowIndex += 1 + _DeliveryNoteInRowsPlus.RowIndex -= 1 + End If + _DeliveryNoteInRowsPlus.Save() + _DeliveryNoteInRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aFinalizeDeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteIn.Execute + '---Az akció véglegesít egy bejövõ szállítólevelet------------------------------------------------ + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader) + + If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then + Throw New Exception("*Nincs mit betárolni !") + End If + + _DeliveryNoteInHeader.IsEditable = False + + If _DeliveryNoteInHeader.DocumentNumber = "" Then + _DeliveryNoteInHeader.DocumentNumber = _DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator.GetNewNumber(_DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator) + End If + + _DeliveryNoteInHeader.Save() + _ocur.CommitChanges() + View.Close() + End Sub + Private Sub aStorno_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteIn.Execute + '---Az akció sztornóz egy bejövõ szállítólevelet------------------------------------------------ + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader) + Dim _IsFound As Boolean = False + + Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_ocur.Session) + Dim query = From _SIR In _StorageInRows_XPQuery + Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader + Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _ + Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows, + Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + + For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT + _DeliveryNoteInRows.OrderOutRows = Nothing + + + For Each item In query + If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid And item.QTT_Sum <> 0 Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor kiszállunk + _IsFound = True + Exit For + End If + Next + Next + + If _IsFound = False Then + + _DeliveryNoteInHeader.IsStorno = True + + _DeliveryNoteInHeader.Save() + _ocur.CommitChanges() + View.Close() + Else + ThrowNewException("Erről a széllítólevélről már készült betárolás.") 'Teszt + End If + End Sub + Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.CustomizePopupWindowParams + ' Egy kiválaszott végleges szállítólevél azon sorait hozza fel egy listában, ahol a mennyiség még több mint a már erről a betárolt össz mennyiség + Dim _NOStorageInRows As New ArrayList + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _DeliveryNoteInRows As DeliveryNoteInRows + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)) + Dim _StorageInfromDeliveryNoteInRowsHeader As New StorageInfromDeliveryNoteInRowsHeader(_onew.Session) + Dim _QTT_Sum As Double = 0 + + + _StorageInfromDeliveryNoteInRowsHeader.DeliveryNoteInHeader = _DeliveryNoteInHeader + _StorageInfromDeliveryNoteInRowsHeader.DateCreation = GetSQLTime(_onew.Session) + + ' Az összes olyan betárolási sor keresése adott termékre, ami szállítólevéllről jött + Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_onew.Session) + Dim query = From _SIR In _StorageInRows_XPQuery + Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader + Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _ + Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows, + Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + _QTT_Sum = 0 + For Each item In query + If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor számolja hogy összesen mennyi van betárolva + _QTT_Sum = item.QTT_Sum + End If + Next + If _DeliveryNoteInRows.QTT > _QTT_Sum Then ' Csak azokat a sorokat hozza fel a ListView-ba amikre még lehet betárolást csinálni + Dim _StorageInfromDeliveryNoteInRowsRows As New StorageInfromDeliveryNoteInRowsRows(_onew.Session) + + _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows = _DeliveryNoteInRows + _StorageInfromDeliveryNoteInRowsRows.StorageInfromDeliveryNoteInRowsHeader = _StorageInfromDeliveryNoteInRowsHeader + _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _DeliveryNoteInRows.QTT - _QTT_Sum + _StorageInfromDeliveryNoteInRowsRows.QTT_Max = _StorageInfromDeliveryNoteInRowsRows.QTT_Process + If _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then + If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then + _NOStorageInRows.Add(_DeliveryNoteInRows.Products) + End If + End If + End If + Next + + _onew.CommitChanges() + + e.View = Application.CreateDetailView(_onew, _StorageInfromDeliveryNoteInRowsHeader, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + If _NOStorageInRows.Count > 0 Then + Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sorok nem tárolhatóak be :" + vbNewLine + + For Each _NOSIR As Products In _NOStorageInRows + _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + " / " + _NOSIR.ShortName + vbNewLine + Next + + _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!" + 'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Throw New UserFriendlyException(_ErrorMessage) + View.Close() + End If + End Try + End Sub + Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.Execute + ' A popup-on kiválasztott bej. szállítólevél sorokból a kézzel megadott szándékkal végleges bet. bizonylatot hoz létre (Sorokkal) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Try + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)) + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader = _onew.GetObjectByKey(Of StorageInfromDeliveryNoteInRowsHeader)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Oid) + _StorageInfromDeliveryNoteInRowsHeader.Storage = _onew.GetObjectByKey(Of Storage)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage.Oid) + Dim _StorageInfromDeliveryNoteInRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("StorageInfromDeliveryNoteInRowsRows") ' Bekeresi az összes bejövõ megrendelési sort + Dim _StorageInfromDeliveryNoteInRowsRows As StorageInfromDeliveryNoteInRowsRows + Dim _MSGBoxNeed As Boolean = False + + For Each _StorageInfromDeliveryNoteInRowsRows In _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects + If _StorageInfromDeliveryNoteInRowsRows.QTT_Process > _StorageInfromDeliveryNoteInRowsRows.QTT_Max Then + _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _StorageInfromDeliveryNoteInRowsRows.QTT_Max + _MSGBoxNeed = True + Exit For + End If + Next + + If _MSGBoxNeed = True Then Throw New Exception("*Volt olyan szándék megadva ami több mint amit be lehet tárolni, így az értéke visszaállítódott a maximális értékre!") + + ' --- Létrehozzuk a bet. fejlécet ---- + Dim _StorageInHeader_New As New StorageInHeader(_onew.Session) + With _StorageInHeader_New + .IsEditable = False + .Storage = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage) + .ObjectCreated = GetSQLTime(_onew.Session) + .StorageMoveType = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).StorageMoveType) + .DocumentNumber = _StorageInHeader_New.Storage.NumberGeneratorIn.GetNewNumber(_StorageInHeader_New.Storage.NumberGeneratorIn) + End With + + ' Létrehozzuk a bet. sorokat, minden kiválasztott bejövő szállítólevél sorokhoz ---------------------------------------------------------------------------------------------- + For i = 0 To _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 ' A kiválasztott sorokon végigmegyünk és létrehozzuk a bet. sorokat. + Dim _StorageComputed As StorageComputed = _onew.Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products), _onew.GetObject(_StorageInfromDeliveryNoteInRowsHeader.Storage))) + Dim _QTT_Process As Double = 0 + _QTT_Process = TryCast(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i), StorageInfromDeliveryNoteInRowsRows).QTT_Process ' Kinyerjük az adott sorhoz tartozó szándékot + + If _StorageComputed Is Nothing Then + _StorageComputed = _onew.CreateObject(Of StorageComputed)() + With _StorageComputed + .Storage = _StorageInfromDeliveryNoteInRowsHeader.Storage + .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products) + End With + End If + + ' Új betárolási sorok létrehozása -------------------------------------------- + Dim _StorageInRows_New As StorageInRows = _onew.CreateObject(Of StorageInRows)() + With _StorageInRows_New + .DeliveryNoteInRows = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows) + .StorageInHeader = _StorageInHeader_New + .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products) + .QTT_Will = _QTT_Process + .RowIndex = i + 1 ' Sorindexelés + End With + _StorageComputed.QTTReservedIn += _QTT_Process + Next + '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + For Each _StorageInRows In _StorageInHeader_New.StorageInRows + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader_New.Storage)) + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _StorageInRows + _StorageMoveEvents.QTT = _StorageInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + Next + + _StorageInHeader_New.IsEditable = False + _StorageInHeader_New.IsFinalized = True + _DeliveryNoteInHeader.IsEditable = False + _onew.CommitChanges() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aFinalize_And_Storage_DeliveryNoteIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.CustomizePopupWindowParams + '---Létrehoz egy ListView-t ahol a raktárat kell kiválasztani a rendelésből kitárolási akcióhoz + Dim _NOStorageInRows As New ArrayList + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = _onew.CreateObject(Of DeliveryNoteInToStorageInHeader)() + + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)) + For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then + If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then + _NOStorageInRows.Add(_DeliveryNoteInRows.Products) + End If + End If + Next + + + e.View = Application.CreateDetailView(_onew, "DeliveryNoteInToStorageInHeader_DetailView", False, _DeliveryNoteInToStorageInHeader) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + If _NOStorageInRows.Count > 0 Then + Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sor(ok) nem tárolhatóak be :" + vbNewLine + + For Each _NOSIR As Products In _NOStorageInRows + _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + " / " + _NOSIR.ShortName + vbNewLine + Next + + _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!" + 'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Throw New UserFriendlyException(_ErrorMessage) + View.Close() + End If + End Try + End Sub + Private Sub aFinalize_And_Storage_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.Execute + '---Az akció véglegesít egy bejövő szállítólevelet------------------------------------------------ + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader) + Dim _StorageInHeader As StorageInHeader + Try + Dim _DeliveryNoteInRows As DeliveryNoteInRows + Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInToStorageInHeader) + + Dim _StorageInRows As StorageInRows + + If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen sora sem!") + Dim _DeliveryNoteInRows_Collection As New ArrayList + For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows + If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then + If _DeliveryNoteInRows.QTT > 0 And _DeliveryNoteInRows.QTT <= _DeliveryNoteInRows.OrderOutRows.QTT Then + _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows) + End If + Else + _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows) + End If + Next + + If _DeliveryNoteInRows_Collection.Count = 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen olyan sora sem, melyet be lehetne tárolni!") + + 'zárolás + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + + _StorageInHeader = _ocur.CreateObject(Of StorageInHeader)() + _StorageInHeader.Active = True + _StorageInHeader.CreateDate = GetSQLTime(_ocur.Session) + _StorageInHeader.Storage = _ocur.GetObjectByKey(Of Storage)(_DeliveryNoteInToStorageInHeader.Storage.Oid) + _StorageInHeader.StorageMoveType = _ocur.GetObjectByKey(Of StorageMoveType)(_DeliveryNoteInToStorageInHeader.StorageMoveType.Oid) + + For Each _DeliveryNoteInRows In _DeliveryNoteInRows_Collection + _StorageInRows = _ocur.CreateObject(Of StorageInRows)() + With _StorageInRows + .Active = True + .DeliveryNoteInRows = _DeliveryNoteInRows + .PacketNumber = _DeliveryNoteInRows.PacketNumber + .Products = _DeliveryNoteInRows.Products + .QTT_Will = _DeliveryNoteInRows.QTT + .RowIndex = _StorageInHeader.StorageInRows.Count + 1 + .SerialNumber = "" + .StorageInHeader = _StorageInHeader + .Storage = _StorageInHeader.Storage + .Weight = _DeliveryNoteInRows.Weight + .WeightMode = _DeliveryNoteInRows.WeightMode + + End With + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageInRows.Products, _StorageInHeader.Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = _ocur.CreateObject(Of StorageComputed)() + With _StorageComputed + .Storage = _StorageInHeader.Storage + .Products = _DeliveryNoteInRows.Products + .QTTReservedIn = _DeliveryNoteInRows.QTT + End With + Else + _StorageComputed.QTTReservedIn += _DeliveryNoteInRows.QTT + End If + Next + + '--------- Véglegesítjük a betárolást ! + For Each _StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader.Storage)) + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _StorageInRows + _StorageMoveEvents.QTT = _StorageInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + + _StorageInRows.QTT_Will = 0 + End If + Next + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + _DeliveryNoteInHeader.IsEditable = False + _ocur.CommitChanges() + + If _DeliveryNoteInToStorageInHeader.IsRegistry Then + Dim _RegistryHeader As New RegistryHeader(_ocur.Session) + With _RegistryHeader + .CustomersFrom = _DeliveryNoteInHeader.CustomersFrom + .Customers = _DeliveryNoteInHeader.Customers + .RegistryType = _DeliveryNoteInHeader.DeliveryNoteInType.RegistryType + + + + End With + + Dim _orenew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, "RegistryHeader_DetailView", True, _orenew.GetObject(_RegistryHeader)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, _RegistryHeader) + End If + + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + View.Close() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.ReleaseAllLocking(_uow_lock, _User) + End Try + End Sub + + Private Sub aRecalculateDeliveryNoteInRowsSumPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalculateDeliveryNoteInRowsSumPrice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + Dim _StorageComputed As StorageComputed + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _DeliveryNoteInRRFC In View.SelectedObjects + RaiseEvent DoWork() + If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then + _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero) + _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = 0 + _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0 + _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0 + End If + Else + If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then + If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then + _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero) + _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = Math.Round(_DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF / _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0 + _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0 + End If + End If + End If + + Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_ocur.Session, CriteriaOperator.Parse("Products=?", _DeliveryNoteInRRFC.DeliveryNoteInRows.Products)) + For Each _StorageComputed In _StorageComputed_Collection + _StorageComputed.RecalculateAveragePrice() + _StorageComputed.RecalculateMinimumPrice() + Next + + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader.vb new file mode 100644 index 0000000..384cf32 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class IntrastatHeader + Inherits BaseObject + + Private _IntrastatParameters As IntrastatParameters + Private _UserCreated As User + Private _ObjectCreated As Date + Private _DateExecution As Date 'Idszak v, hnap + Private _DocumentNumber As String + Private _DocumentFile As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = IntrastatParameters.NumberGenerator.GetNewNumber(IntrastatParameters.NumberGenerator) + End Sub + + _ + Property IntrastatParameters As IntrastatParameters + Get + Return _IntrastatParameters + End Get + Set(value As IntrastatParameters) + SetPropertyValue("IntrastatParameters", _IntrastatParameters, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DocumentFile As FileData + Get + Return _DocumentFile + End Get + Set(value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + + '-------ReadONLY------- + _ + ReadOnly Property IntrastatRows As XPCollection(Of IntrastatRows) + Get + Return GetCollection(Of IntrastatRows)("IntrastatRows") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.Designer.vb new file mode 100644 index 0000000..3bdb56d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.Designer.vb @@ -0,0 +1,102 @@ +Partial Class IntrastatHeader_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aIntrastatHeader_GenerateIntrastatRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aIntrastatCheckPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aIntrastatCheckWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintIntrastat = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aIntrastatHeader_GenerateIntrastatRows + ' + Me.aIntrastatHeader_GenerateIntrastatRows.Caption = "aIntrastatHeader_GenerateIntrastatRows" + Me.aIntrastatHeader_GenerateIntrastatRows.Category = "RecordEdit" + Me.aIntrastatHeader_GenerateIntrastatRows.ConfirmationMessage = "Are you sure ? All data will lost !" + Me.aIntrastatHeader_GenerateIntrastatRows.Id = "aIntrastatHeader_GenerateIntrastatRows" + Me.aIntrastatHeader_GenerateIntrastatRows.ImageName = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.Shortcut = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.Tag = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectsCriteria = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader) + Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewId = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aIntrastatHeader_GenerateIntrastatRows.ToolTip = Nothing + Me.aIntrastatHeader_GenerateIntrastatRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aIntrastatCheckPrice + ' + Me.aIntrastatCheckPrice.Caption = "aIntrastat Check Price" + Me.aIntrastatCheckPrice.ConfirmationMessage = Nothing + Me.aIntrastatCheckPrice.Id = "aIntrastatCheckPrice" + Me.aIntrastatCheckPrice.ImageName = Nothing + Me.aIntrastatCheckPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aIntrastatCheckPrice.Shortcut = Nothing + Me.aIntrastatCheckPrice.Tag = Nothing + Me.aIntrastatCheckPrice.TargetObjectsCriteria = Nothing + Me.aIntrastatCheckPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows) + Me.aIntrastatCheckPrice.TargetViewId = "DeliveryNoteInRows_ListView_INTRASTAT" + Me.aIntrastatCheckPrice.ToolTip = Nothing + Me.aIntrastatCheckPrice.TypeOfView = Nothing + ' + 'aIntrastatCheckWeight + ' + Me.aIntrastatCheckWeight.Caption = "aIntrastat Check Weight" + Me.aIntrastatCheckWeight.ConfirmationMessage = Nothing + Me.aIntrastatCheckWeight.Id = "aIntrastatCheckWeight" + Me.aIntrastatCheckWeight.ImageName = Nothing + Me.aIntrastatCheckWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aIntrastatCheckWeight.Shortcut = Nothing + Me.aIntrastatCheckWeight.Tag = Nothing + Me.aIntrastatCheckWeight.TargetObjectsCriteria = Nothing + Me.aIntrastatCheckWeight.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows) + Me.aIntrastatCheckWeight.TargetViewId = Nothing + Me.aIntrastatCheckWeight.ToolTip = Nothing + Me.aIntrastatCheckWeight.TypeOfView = Nothing + ' + 'aPrintIntrastat + ' + Me.aPrintIntrastat.Caption = "aPrint Intrastat" + Me.aPrintIntrastat.ConfirmationMessage = Nothing + Me.aPrintIntrastat.Id = "aPrintIntrastat" + Me.aPrintIntrastat.ImageName = "Action_Printing_Print" + Me.aPrintIntrastat.Shortcut = Nothing + Me.aPrintIntrastat.Tag = Nothing + Me.aPrintIntrastat.TargetObjectsCriteria = Nothing + Me.aPrintIntrastat.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader) + Me.aPrintIntrastat.TargetViewId = Nothing + Me.aPrintIntrastat.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aPrintIntrastat.ToolTip = Nothing + Me.aPrintIntrastat.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aIntrastatHeader_GenerateIntrastatRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aIntrastatCheckPrice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aIntrastatCheckWeight As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintIntrastat As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.resx new file mode 100644 index 0000000..2ecc94b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 288, 56 + + + 288, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.vb new file mode 100644 index 0000000..3dee8aa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.vb @@ -0,0 +1,187 @@ +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 System.Linq +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Utils + +Public Class IntrastatHeader_VC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aIntrastatHeader_GenerateIntrastatRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatHeader_GenerateIntrastatRows.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader) + Dim _IntrastatRows_DELCollection As New XPCollection(Of IntrastatRows)(_ocur.Session, DevExpress.Data.Filtering.CriteriaOperator.Parse("IntrastatHeader=?", _IntrastatHeader)) + + + '// Nulls slyok termktrzsbl update + + + + + _ocur.Delete(_IntrastatRows_DELCollection) + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _DeliveryNoteInRows_XPQuery = New XPQuery(Of DeliveryNoteInRows)(_onew.Session) + Dim query = From _DeliveryNoteInRows In _DeliveryNoteInRows_XPQuery _ + Where _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Year = _IntrastatHeader.DateExecution.Year And + _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Month = _IntrastatHeader.DateExecution.Month + Group _DeliveryNoteInRows By _DeliveryNoteInRows.DeliveryNoteInHeader.ShipmentOption, + _DeliveryNoteInRows.Products.CustomsTariff, + _DeliveryNoteInRows.DeliveryNoteInHeader.Customers.Address1.Country, + _DeliveryNoteInRows.Products.CountryFrom, + _DeliveryNoteInRows.ShipingCode, + _DeliveryNoteInRows.ITransactionNumber, + _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution Into g = Group _ + Select New With {Key .ShipmentOption = ShipmentOption, _ + Key .CustomTariffs = CustomsTariff, _ + Key .ITransactionNumber = ITransactionNumber, _ + Key .CountryFrom = CountryFrom, _ + Key .ShipingCode = ShipingCode, _ + Key .CountrySender = Country, _ + Key .DateExecution = DateExecution, _ + Key .AmountHUF_Sum = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + Key .Area_Sum = g.Sum(Function(inv) inv.Area), _ + Key .Weight_Sum = g.Sum(Function(inv) inv.Weight)} + + + Dim _RowIndex As Long = 1 + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + If GLOBAL_EUMemberStates.Contains(item.CountrySender.GetMemberValue("ShortName")) Then + Dim _IntrastatRows As New IntrastatRows(_onew.Session) + With _IntrastatRows + .IntrastatHeader = _onew.GetObject(_IntrastatHeader) + .RowIndex = _RowIndex + .ITransactionNumber = item.ITransactionNumber + .ShipmentOption = item.ShipmentOption + .CustomsTariffs = item.CustomTariffs + .CountrySender = item.CountrySender + .ShipingCode = item.ShipingCode + .CountryFrom = item.CountryFrom + .AmountHUF = item.AmountHUF_Sum + .Area = item.Area_Sum + .Weight = item.Weight_Sum + End With + _RowIndex += 1 + End If + Next + + _onew.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + RaiseEvent FinalWork + End Try + End Sub + + Private Sub aIntrastatCheckPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckPrice.Execute + '// szmlaigazolsbl rak ellenrzse + Dim _DeliveryNoteInRows As DeliveryNoteInRows + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _DeliveryNoteInRows In View.SelectedObjects + RaiseEvent DoWork() + If _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyName.ShortName <> "HUF" Then + If _DeliveryNoteInRows.DeliveryNoteInRRFC.Count > 0 Then + _DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRows.ListPriceDEV * _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + If _DeliveryNoteInRows.Weight <= 0 Then + _DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity + If _DeliveryNoteInRows.Products.NettoWeight <> 0 Then + _DeliveryNoteInRows.Weight = Math.Round(_DeliveryNoteInRows.QTT * _DeliveryNoteInRows.Products.NettoWeight, 4, 0) + End If + End If + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + + Private Sub SimpleAction1_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckWeight.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInRows As DeliveryNoteInRows + + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _DeliveryNoteInRows In View.SelectedObjects + RaiseEvent DoWork() + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, + CriteriaOperator.Parse("DeliveryNoteInRows=?", _DeliveryNoteInRows)) + Dim _StorageInRows As StorageInRows + + For Each _StorageInRows In _StorageInRows_Collection + If _StorageInRows.DeliveryNoteInRows IsNot Nothing Then + If _StorageInRows.DeliveryNoteInRows.Weight <> 0 Then + If _StorageInRows.DeliveryNoteInRows.QTT <> 0 Then + _StorageInRows.Weight = Math.Round((_StorageInRows.DeliveryNoteInRows.Weight / _StorageInRows.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + If _StorageInRows.StorageInRowsFrom IsNot Nothing Then + If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows IsNot Nothing Then + _StorageInRows.DeliveryNoteInRows = _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows + If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight <> 0 Then + If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT <> 0 Then + _StorageInRows.Weight = Math.Round((_StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight / _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + End If + + Dim _StorageInRows_From_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("StorageInRowsFrom=?", _StorageInRows)) + Dim _StorageInRows_From As StorageInRows + + For Each _StorageInRows_From In _StorageInRows_From_Collection + _StorageInRows_From.DeliveryNoteInRows = _StorageInRows.DeliveryNoteInRows + _StorageInRows_From.Weight = (_StorageInRows.Weight / _StorageInRows.QTT) * _StorageInRows_From.QTT + Next + _ocur.CommitChanges() + Next + Next + RaiseEvent FinalWork + End Sub + + Private Sub aPrintIntrastat_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintIntrastat.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader) + If _IntrastatHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _ReportData As ReportData = _IntrastatHeader.IntrastatParameters.Report + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!" + vbNewLine + "A folyamat megszakadt!") + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("IntrastatHeader.Oid=?", _IntrastatHeader.Oid), True) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatParameters.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatParameters.vb new file mode 100644 index 0000000..07ccbce --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatParameters.vb @@ -0,0 +1,58 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class IntrastatParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _NumberGenerator As NumberGenerator + Private _Report As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + + Public Property Report() As ReportData + Get + Return _Report + End Get + Set(value As ReportData) + SetPropertyValue("Report", _Report, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatRows.vb new file mode 100644 index 0000000..d231413 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatRows.vb @@ -0,0 +1,126 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class IntrastatRows + Inherits BaseObject + + Private _IntrastatHeader As IntrastatHeader + Private _RowIndex As Long + Private _CustomsTariffs As CustomsTariffs + Private _ITransactionNumber As String + Private _ShipmentOption As ShipmentOption + Private _ShipingCode As String + Private _CountrySender As Country 'Szlltllevl sorhoz tartoz orszg + Private _CountryFrom As Country 'Termkhez tartoz szrmazsi orszg + Private _Weight As Double + Private _Area As Double + Private _AmountHUF As Double 'SUMPrice HUF-os a szlltlevl sorbl + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property IntrastatHeader As IntrastatHeader + Get + Return _IntrastatHeader + End Get + Set(value As IntrastatHeader) + SetPropertyValue("IntrastatHeader", _IntrastatHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + Property ITransactionNumber As String + Get + Return _ITransactionNumber + End Get + Set(value As String) + SetPropertyValue("ITransactionNumber", _ITransactionNumber, value) + End Set + End Property + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property ShipingCode As String + Get + Return _ShipingCode + End Get + Set(value As String) + SetPropertyValue("ShipingCode", _ShipingCode, value) + End Set + End Property + Property CountrySender As Country + Get + Return _CountrySender + End Get + Set(value As Country) + SetPropertyValue("CountrySender", _CountrySender, value) + End Set + End Property + Property CountryFrom As Country + Get + Return _CountryFrom + End Get + Set(value As Country) + SetPropertyValue("CountryFrom", _CountryFrom, value) + End Set + End Property + Property Weight As Double + Get + Return _Weight + End Get + Set(value As Double) + SetPropertyValue("Weight", _Weight, value) + End Set + End Property + Property Area As Double + Get + Return _Area + End Get + Set(value As Double) + SetPropertyValue("Area", _Area, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsHeader.vb new file mode 100644 index 0000000..8815f09 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsHeader.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class DeliveryNoteInFromOffersInRowsHeader + Inherits BaseObject + + Private _OfferInHeader As OfferInHeader + Private _DeliveryNoteInType As DeliveryNoteInType + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property OfferInHeader As OfferInHeader + Get + Return _OfferInHeader + End Get + Set(value As OfferInHeader) + SetPropertyValue("OfferInHeader", _OfferInHeader, value) + End Set + End Property + _ + Property DeliveryNoteInType As DeliveryNoteInType + Get + Return _DeliveryNoteInType + End Get + Set(value As DeliveryNoteInType) + SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value) + End Set + End Property + + _ + ReadOnly Property DeliveryNoteInFromOffersInRowsRows As XPCollection(Of DeliveryNoteInFromOffersInRowsRows) + Get + Return GetCollection(Of DeliveryNoteInFromOffersInRowsRows)("DeliveryNoteInFromOffersInRowsRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsRows.vb new file mode 100644 index 0000000..fb8d138 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsRows.vb @@ -0,0 +1,69 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq + + _ +Public Class DeliveryNoteInFromOffersInRowsRows + Inherits BaseObject + + Private _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader + Private _OfferInRows As OfferInRows + Private _QTT_Process As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOffersInRowsHeader + Get + Return _DeliveryNoteInFromOffersInRowsHeader + End Get + Set(value As DeliveryNoteInFromOffersInRowsHeader) + SetPropertyValue("DeliveryNoteInFromOffersInRowsHeader", _DeliveryNoteInFromOffersInRowsHeader, value) + End Set + End Property + Property OfferInRows As OfferInRows + Get + Return _OfferInRows + End Get + Set(value As OfferInRows) + SetPropertyValue("OfferInRows", _OfferInRows, value) + End Set + End Property + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + ReadOnly Property QTT_DeliveryNoteIn As Double + Get + Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session) + Dim _QTT_Sum As Double = 0 + Dim query = From _DNIR In _DeliveryNoteInRows + Where _DNIR.OfferInRows Is OfferInRows + Group _DNIR By _DNIR.OfferInRows Into g = Group _ + Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each item In query + _QTT_Sum = item.QTT_Sum + Next + + Return _QTT_Sum + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsHeader.vb new file mode 100644 index 0000000..15540d4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsHeader.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class DeliveryNoteInFromOrderOutRowsHeader + Inherits BaseObject + Private _OrderOutHeader As OrderOutHeader ' Kimenő megrendelés fejléc + Private _DeliveryNoteInType As DeliveryNoteInType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + ReadOnly Property DeliveryNoteInFromOrderOutRowsRows As XPCollection(Of DeliveryNoteInFromOrderOutRowsRows) + Get + Return GetCollection(Of DeliveryNoteInFromOrderOutRowsRows)("DeliveryNoteInFromOrderOutRowsRows") + End Get + End Property + Property OrderOutHeader As OrderOutHeader + Get + Return _OrderOutHeader + End Get + Set(value As OrderOutHeader) + SetPropertyValue("OrderOutHeader", _OrderOutHeader, value) + End Set + End Property + _ + Property DeliveryNoteInType As DeliveryNoteInType + Get + Return _DeliveryNoteInType + End Get + Set(value As DeliveryNoteInType) + SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsRows.vb new file mode 100644 index 0000000..a37bab3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsRows.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq + + _ + _ +Public Class DeliveryNoteInFromOrderOutRowsRows + Inherits BaseObject + Private _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader + Private _OrderOutRows As OrderOutRows + Private _QTT_Process As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader + Get + Return _DeliveryNoteInFromOrderOutRowsHeader + End Get + Set(value As DeliveryNoteInFromOrderOutRowsHeader) + SetPropertyValue("DeliveryNoteInFromOrderOutRowsHeader", _DeliveryNoteInFromOrderOutRowsHeader, value) + End Set + End Property + Property OrderOutRows As OrderOutRows + Get + Return _OrderOutRows + End Get + Set(value As OrderOutRows) + SetPropertyValue("OrderOutRows", _OrderOutRows, value) + End Set + End Property + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + ReadOnly Property QTT_DeliveryNoteIn As Double + Get + Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session) + Dim _QTT_Sum As Double = 0 + Dim query = From _DNIR In _DeliveryNoteInRows + Where _DNIR.OrderOutRows Is OrderOutRows + Group _DNIR By _DNIR.OrderOutRows Into g = Group _ + Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each item In query + _QTT_Sum = item.QTT_Sum + Next + + Return _QTT_Sum + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInRRFC_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInRRFC_Popup.vb new file mode 100644 index 0000000..e68b640 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInRRFC_Popup.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DeliveryNoteInRRFC_Popup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property BonusHUF As Double +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToRegistry.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToRegistry.vb new file mode 100644 index 0000000..5fed640 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToRegistry.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class DeliveryNoteInToRegistry + Inherits BaseObject + + Private _RegistryType As RegistryType 'Iktats tpusa + Private _F_CustomerBankAccounts As CustomerBankAccounts + Private _RegistryNumber As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property RegistryType As RegistryType + Get + Return _RegistryType + End Get + Set(value As RegistryType) + SetPropertyValue("RegistryType", _RegistryType, value) + End Set + End Property + Property F_CustomerBankAccounts As CustomerBankAccounts + Get + Return _F_CustomerBankAccounts + End Get + Set(value As CustomerBankAccounts) + SetPropertyValue("F_CustomerBankAccounts", _F_CustomerBankAccounts, value) + End Set + End Property + Property RegistryNumber As String + Get + Return _RegistryNumber + End Get + Set(value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb new file mode 100644 index 0000000..d80571a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class DeliveryNoteInToStorageInHeader + Inherits BaseObject + Private _Storage As Storage + Private _StorageMoveType As StorageMoveType + Private _IsRegistry As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsRegistry = False + End Sub + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + Property IsRegistry As Boolean + Get + Return _IsRegistry + End Get + Set(value As Boolean) + SetPropertyValue("IsRegistry", _IsRegistry, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutHeader.vb new file mode 100644 index 0000000..f57db00 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutHeader.vb @@ -0,0 +1,259 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class DeliveryNoteOutHeader 'Kimenő szállítólevél fejléc + Inherits BaseObject + Private _DeliveryNoteOutType As DeliveryNoteOutType + Private _DocumentNumber As String ' Sorszám + Private _CustomersFrom As CustomersFrom ' Sajátcég + Private _Customers As Customers ' Ügyfél + Private _DateCreated As Date ' Létrehozás dátuma + Private _DateExecution As Date ' Végrehajtás dátuma + Private _ShipmentOption As ShipmentOption ' Szállítási opció + Private _QualityOption As QualityOption ' Minőségi opció + Private _CurrencyName As CurrencyName ' Deviza + Private _Note As String ' Megjegyzés + Private _TransportAddress As Address ' -- Szállítási cím + Private _IsEditable As Boolean = True 'Szerkeszthető + Private _IsStorno As Boolean = False 'Végleges + Private _ObjectCreated As Date 'Objektum keletkezésének dátuma + Private _UserCreated As User + Private _ConnectInfo As String + + '--Nonpersistent propertyk + Private _row_StorageOutRowsInRows As StorageOutRowsInRows + Private _row_QTT As Double + Private _row_NoteRows As String 'Sor megjegyzés + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then _ + _DocumentNumber = DeliveryNoteOutType.NumberGenerator.GetNewNumber(DeliveryNoteOutType.NumberGenerator) + If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property DeliveryNoteOutType As DeliveryNoteOutType + Get + Return _DeliveryNoteOutType + End Get + Set(value As DeliveryNoteOutType) + SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + _ + Property TransportAddress As Address + Get + Return _TransportAddress + End Get + Set(value As Address) + SetPropertyValue("TransportAddress", _TransportAddress, value) + End Set + End Property + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + + '------ReadOnly-------- + _ + ReadOnly Property DeliveryNoteOutRows() As XPCollection(Of DeliveryNoteOutRows) + Get + Return GetCollection(Of DeliveryNoteOutRows)("DeliveryNoteOutRows") + End Get + End Property + + '--Nonpersistent propertyk + _ + _ + Property row_StorageOutRowsInRows As StorageOutRowsInRows + Get + Return _row_StorageOutRowsInRows + End Get + Set(value As StorageOutRowsInRows) + SetPropertyValue("row_StorageOutRowsInRows", _row_StorageOutRowsInRows, value) + End Set + End Property + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + _ + Property row_NoteRows As String + Get + Return _row_NoteRows + End Get + Set(value As String) + SetPropertyValue("row_NoteRows", _row_NoteRows, value) + End Set + End Property + + _ + _ + Private ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + + Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Dim _Criteria As String + + _Criteria = "(QTT_To_DeliveryOut + QTT_Will) < QTT" + + _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse(_Criteria)) + Return _StorageOutRowsInRows_Collection + End Get + End Property +End Class + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb new file mode 100644 index 0000000..045c53c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb @@ -0,0 +1,126 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +'--- Kimenő szállítólevelek + _ + _ +Public Class DeliveryNoteOutRows 'Szállítólevél sorok + Inherits BaseObject + Private _RowIndex As Long + Private _DeliveryNoteOutHeader As DeliveryNoteOutHeader + Private _StorageOutRowsInRows As StorageOutRowsInRows + Private _QTT As Double + Private _QTT_Invoiced As Double + Private _QTT_Will As Double + Private _Note As String + Private _ADRNumber As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + '// ADR számolás !!! + If StorageOutRowsInRows IsNot Nothing Then + Dim _ADRFactor As Long = 0 + If StorageOutRowsInRows.StorageOutRows IsNot Nothing Then + If StorageOutRowsInRows.StorageOutRows.Products IsNot Nothing Then + Select Case StorageOutRowsInRows.StorageOutRows.Products.ADRPackingUnit + Case eADRPackingUnit.eNotSet + _ADRFactor = 0 + Case eADRPackingUnit.eUnit_I + _ADRFactor = 50 + Case eADRPackingUnit.eUnit_II + _ADRFactor = 3 + Case eADRPackingUnit.eUnit_III + _ADRFactor = 1 + End Select + If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Then + ADRNumber = _ADRFactor * QTT * 1000 + Else + ADRNumber = _ADRFactor * QTT + End If + + ' ADRNumber = _ADRFactor * QTT + End If + End If + End If + End Sub + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property DeliveryNoteOutHeader() As DeliveryNoteOutHeader + Get + Return _DeliveryNoteOutHeader + End Get + Set(ByVal value As DeliveryNoteOutHeader) + SetPropertyValue("DeliveryNoteOutHeader", _DeliveryNoteOutHeader, value) + End Set + End Property + 0")> _ + Property StorageOutRowsInRows() As StorageOutRowsInRows + Get + Return _StorageOutRowsInRows + End Get + Set(ByVal value As StorageOutRowsInRows) + SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, value) + End Set + End Property + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Invoiced As Double + Get + Return _QTT_Invoiced + End Get + Set(value As Double) + SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value) + End Set + End Property + Property QTT_Will As Double + Get + Return _QTT_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Will", _QTT_Will, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property ADRNumber As Double + Get + Return _ADRNumber + End Get + Set(value As Double) + SetPropertyValue("ADRNumber", _ADRNumber, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutType.vb new file mode 100644 index 0000000..81abb93 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutType.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eExportMode + eInternalwithVAT = 0 'Belfldi F-s + eExternalEUwithVAT = 1 'EU-bl F-s + eExternalEUNoVAT = 2 'EU-bl nem Fs + eExternalOther = 3 ' EU-n kvli nem FS + eInversVAT = 4 'Fordtott adzs +End Enum + _ + _ +Public Class DeliveryNoteOutType 'Kimen szlltlevl tipusok + Inherits BaseObject + Private _ExportMode As eExportMode ' + Private _IsPrice As Boolean = True 'Van-e r + Private _ShortName As String 'Megnevezs + Private _Description As String 'Lers + Private _NumberGenerator As NumberGenerator 'Sorszm genertor + Private _ReportData As ReportData + Private _CurrencyName As CurrencyName + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ExportMode As eExportMode + Get + Return _ExportMode + End Get + Set(value As eExportMode) + SetPropertyValue("ExportMode", _ExportMode, value) + End Set + End Property + _ + Property IsPrice As Boolean + Get + Return _IsPrice + End Get + Set(value As Boolean) + SetPropertyValue("IsPrice", _IsPrice, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.Designer.vb new file mode 100644 index 0000000..04812bb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.Designer.vb @@ -0,0 +1,259 @@ +Partial Class DeliveryNoteOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTotable_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotableD_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalize_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorno_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDeliveryNoteOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToEdit_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeAndNew_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreate_DeliveryNoteOutFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreate_InvoiceFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDeliveryNoteOutRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCheckDeliveryNoteOutWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aTotable_DeliveryNoteOut + ' + Me.aTotable_DeliveryNoteOut.Caption = "Add row" + Me.aTotable_DeliveryNoteOut.Category = "aTotable_DeliveryNoteOut" + Me.aTotable_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aTotable_DeliveryNoteOut.Id = "aTotable_DeliveryNoteOut" + Me.aTotable_DeliveryNoteOut.ImageName = "table_add" + Me.aTotable_DeliveryNoteOut.Shortcut = Nothing + Me.aTotable_DeliveryNoteOut.Tag = Nothing + Me.aTotable_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aTotable_DeliveryNoteOut.TargetViewId = "" + Me.aTotable_DeliveryNoteOut.ToolTip = Nothing + Me.aTotable_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aTotableD_DeliveryNoteOut + ' + Me.aTotableD_DeliveryNoteOut.Caption = "Delete row" + Me.aTotableD_DeliveryNoteOut.Category = "aTotableD_DeliveryNoteOut" + Me.aTotableD_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aTotableD_DeliveryNoteOut.Id = "aTotableD_DeliveryNoteOut" + Me.aTotableD_DeliveryNoteOut.ImageName = "table_delete" + Me.aTotableD_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aTotableD_DeliveryNoteOut.Shortcut = Nothing + Me.aTotableD_DeliveryNoteOut.Tag = Nothing + Me.aTotableD_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aTotableD_DeliveryNoteOut.TargetViewId = "" + Me.aTotableD_DeliveryNoteOut.ToolTip = Nothing + Me.aTotableD_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aDown_DeliveryNoteOut + ' + Me.aDown_DeliveryNoteOut.Caption = "Down" + Me.aDown_DeliveryNoteOut.Category = "RecordsNavigation" + Me.aDown_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aDown_DeliveryNoteOut.Id = "aDown_DeliveryNoteOut" + Me.aDown_DeliveryNoteOut.ImageName = "arrow_down_green" + Me.aDown_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_DeliveryNoteOut.Shortcut = Nothing + Me.aDown_DeliveryNoteOut.Tag = Nothing + Me.aDown_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aDown_DeliveryNoteOut.TargetViewId = Nothing + Me.aDown_DeliveryNoteOut.ToolTip = Nothing + Me.aDown_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aUp_DeliveryNoteOut + ' + Me.aUp_DeliveryNoteOut.Caption = "Up" + Me.aUp_DeliveryNoteOut.Category = "RecordsNavigation" + Me.aUp_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aUp_DeliveryNoteOut.Id = "aUp_DeliveryNoteOut" + Me.aUp_DeliveryNoteOut.ImageName = "arrow_up_green" + Me.aUp_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_DeliveryNoteOut.Shortcut = Nothing + Me.aUp_DeliveryNoteOut.Tag = Nothing + Me.aUp_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aUp_DeliveryNoteOut.TargetViewId = Nothing + Me.aUp_DeliveryNoteOut.ToolTip = Nothing + Me.aUp_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aFinalize_DeliveryNoteOut + ' + Me.aFinalize_DeliveryNoteOut.Caption = "aFinalize_DeliveryNoteOut" + Me.aFinalize_DeliveryNoteOut.Category = "ObjectsCreation" + Me.aFinalize_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aFinalize_DeliveryNoteOut.Id = "aFinalize_DeliveryNoteOut" + Me.aFinalize_DeliveryNoteOut.ImageName = Nothing + Me.aFinalize_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalize_DeliveryNoteOut.Shortcut = Nothing + Me.aFinalize_DeliveryNoteOut.Tag = Nothing + Me.aFinalize_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aFinalize_DeliveryNoteOut.TargetViewId = "" + Me.aFinalize_DeliveryNoteOut.ToolTip = Nothing + Me.aFinalize_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aStorno_DeliveryNoteOut + ' + Me.aStorno_DeliveryNoteOut.Caption = "aStorno_DeliveryNoteOut" + Me.aStorno_DeliveryNoteOut.Category = "aStorno_DeliveryNoteOut" + Me.aStorno_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aStorno_DeliveryNoteOut.Id = "aStorno_DeliveryNoteOut" + Me.aStorno_DeliveryNoteOut.ImageName = Nothing + Me.aStorno_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorno_DeliveryNoteOut.Shortcut = Nothing + Me.aStorno_DeliveryNoteOut.Tag = Nothing + Me.aStorno_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aStorno_DeliveryNoteOut.TargetViewId = "" + Me.aStorno_DeliveryNoteOut.ToolTip = Nothing + Me.aStorno_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aDeliveryNoteOutPrint + ' + Me.aDeliveryNoteOutPrint.Caption = "aDeliveryNoteOutPrint" + Me.aDeliveryNoteOutPrint.Category = "View" + Me.aDeliveryNoteOutPrint.ConfirmationMessage = Nothing + Me.aDeliveryNoteOutPrint.Id = "aDeliveryNoteOutPrint" + Me.aDeliveryNoteOutPrint.ImageName = Nothing + Me.aDeliveryNoteOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDeliveryNoteOutPrint.Shortcut = Nothing + Me.aDeliveryNoteOutPrint.Tag = Nothing + Me.aDeliveryNoteOutPrint.TargetObjectsCriteria = Nothing + Me.aDeliveryNoteOutPrint.TargetViewId = Nothing + Me.aDeliveryNoteOutPrint.ToolTip = Nothing + Me.aDeliveryNoteOutPrint.TypeOfView = Nothing + ' + 'aBackToEdit_DeliveryNoteOut + ' + Me.aBackToEdit_DeliveryNoteOut.Caption = "aBackToEdit_DeliveryNoteOut" + Me.aBackToEdit_DeliveryNoteOut.Category = "Edit" + Me.aBackToEdit_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aBackToEdit_DeliveryNoteOut.Id = "aBackToEdit_DeliveryNoteOut" + Me.aBackToEdit_DeliveryNoteOut.ImageName = Nothing + Me.aBackToEdit_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEdit_DeliveryNoteOut.Shortcut = Nothing + Me.aBackToEdit_DeliveryNoteOut.Tag = Nothing + Me.aBackToEdit_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aBackToEdit_DeliveryNoteOut.TargetViewId = "" + Me.aBackToEdit_DeliveryNoteOut.ToolTip = Nothing + Me.aBackToEdit_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aFinalizeAndNew_DeliveryNoteOut + ' + Me.aFinalizeAndNew_DeliveryNoteOut.Caption = "aFinalizeAndNew_DeliveryNoteOut" + Me.aFinalizeAndNew_DeliveryNoteOut.Category = "ObjectsCreation" + Me.aFinalizeAndNew_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.Id = "aFinalizeAndNew_DeliveryNoteOut" + Me.aFinalizeAndNew_DeliveryNoteOut.ImageName = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalizeAndNew_DeliveryNoteOut.Shortcut = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.Tag = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.TargetObjectsCriteria = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.TargetViewId = "" + Me.aFinalizeAndNew_DeliveryNoteOut.ToolTip = Nothing + Me.aFinalizeAndNew_DeliveryNoteOut.TypeOfView = Nothing + ' + 'aCreate_DeliveryNoteOutFromStorageORIR + ' + Me.aCreate_DeliveryNoteOutFromStorageORIR.AcceptButtonCaption = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.CancelButtonCaption = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.Caption = "aCreate_DeliveryNoteOutFromStorageORIR" + Me.aCreate_DeliveryNoteOutFromStorageORIR.Category = "ObjectsCreation" + Me.aCreate_DeliveryNoteOutFromStorageORIR.ConfirmationMessage = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.Id = "aCreate_DeliveryNoteOutFromStorageORIR" + Me.aCreate_DeliveryNoteOutFromStorageORIR.ImageName = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreate_DeliveryNoteOutFromStorageORIR.Shortcut = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.Tag = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetObjectsCriteria = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetViewId = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.ToolTip = Nothing + Me.aCreate_DeliveryNoteOutFromStorageORIR.TypeOfView = Nothing + ' + 'aCreate_InvoiceFromStorageORIR + ' + Me.aCreate_InvoiceFromStorageORIR.AcceptButtonCaption = Nothing + Me.aCreate_InvoiceFromStorageORIR.CancelButtonCaption = Nothing + Me.aCreate_InvoiceFromStorageORIR.Caption = "aCreate_InvoiceFromStorageORIR" + Me.aCreate_InvoiceFromStorageORIR.Category = "ObjectsCreation" + Me.aCreate_InvoiceFromStorageORIR.ConfirmationMessage = Nothing + Me.aCreate_InvoiceFromStorageORIR.Id = "aCreate_InvoiceFromStorageORIR" + Me.aCreate_InvoiceFromStorageORIR.ImageName = Nothing + Me.aCreate_InvoiceFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreate_InvoiceFromStorageORIR.Shortcut = Nothing + Me.aCreate_InvoiceFromStorageORIR.Tag = Nothing + Me.aCreate_InvoiceFromStorageORIR.TargetObjectsCriteria = Nothing + Me.aCreate_InvoiceFromStorageORIR.TargetViewId = Nothing + Me.aCreate_InvoiceFromStorageORIR.ToolTip = Nothing + Me.aCreate_InvoiceFromStorageORIR.TypeOfView = Nothing + ' + 'aDeliveryNoteOutRowsPrint + ' + Me.aDeliveryNoteOutRowsPrint.Caption = "aDeliveryNoteOutRowsPrint" + Me.aDeliveryNoteOutRowsPrint.Category = "Print" + Me.aDeliveryNoteOutRowsPrint.ConfirmationMessage = Nothing + Me.aDeliveryNoteOutRowsPrint.Id = "aDeliveryNoteOutRowsPrint" + Me.aDeliveryNoteOutRowsPrint.ImageName = Nothing + Me.aDeliveryNoteOutRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDeliveryNoteOutRowsPrint.Shortcut = Nothing + Me.aDeliveryNoteOutRowsPrint.Tag = Nothing + Me.aDeliveryNoteOutRowsPrint.TargetObjectsCriteria = Nothing + Me.aDeliveryNoteOutRowsPrint.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteOutRows) + Me.aDeliveryNoteOutRowsPrint.TargetViewId = Nothing + Me.aDeliveryNoteOutRowsPrint.ToolTip = Nothing + Me.aDeliveryNoteOutRowsPrint.TypeOfView = Nothing + ' + 'aCheckDeliveryNoteOutWeight + ' + Me.aCheckDeliveryNoteOutWeight.Caption = "aCheck Delivery Note Out Weight" + Me.aCheckDeliveryNoteOutWeight.ConfirmationMessage = "Are you sure ?" + Me.aCheckDeliveryNoteOutWeight.Id = "aCheckDeliveryNoteOutWeight" + Me.aCheckDeliveryNoteOutWeight.ImageName = Nothing + Me.aCheckDeliveryNoteOutWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCheckDeliveryNoteOutWeight.Shortcut = Nothing + Me.aCheckDeliveryNoteOutWeight.Tag = Nothing + Me.aCheckDeliveryNoteOutWeight.TargetObjectsCriteria = Nothing + Me.aCheckDeliveryNoteOutWeight.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteOutHeader) + Me.aCheckDeliveryNoteOutWeight.TargetViewId = Nothing + Me.aCheckDeliveryNoteOutWeight.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCheckDeliveryNoteOutWeight.ToolTip = Nothing + Me.aCheckDeliveryNoteOutWeight.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aTotable_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotableD_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalize_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDeliveryNoteOutPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToEdit_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeAndNew_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreate_DeliveryNoteOutFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreate_InvoiceFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDeliveryNoteOutRowsPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCheckDeliveryNoteOutWeight As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.resx new file mode 100644 index 0000000..abbe55c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 485 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 290 + + + 17, 329 + + + 17, 212 + + + 17, 251 + + + 17, 95 + + + 17, 173 + + + 17, 134 + + + 17, 56 + + + 20, 540 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb new file mode 100644 index 0000000..9fcdac6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb @@ -0,0 +1,688 @@ +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.Persistent.Validation +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + + +Public Class DeliveryNoteOutVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) ' kivlasztott sor fel + Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) ' kivlasztott sor le + + Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aDeliveryNoteOutPrint.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", False) + + If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then + Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False) + End If + + If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged + End If + + If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged + End If + + If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged + End If + + If View.Id = "StorageOutRowsInRows_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + + If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True) + End If + '------------------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True) + End If + + '------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "DeliveryNoteView_DetailView" Then + + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "DeliveryNoteOutHeader_DetailView" Then + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader IsNot Nothing Then + If _DeliveryNoteOutHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False) + Else + Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", True) + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then + Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False) + End If + + If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False) + + RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged + End If + + If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True) + + RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged + End If + + If View.Id = "StorageOutRowsInRows_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + + If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False) + End If + '------------------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) + End If + + '------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "DeliveryNoteView_DetailView" Then + + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "DeliveryNoteOutHeader_DetailView" Then + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader IsNot Nothing Then + If _DeliveryNoteOutHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True) + Else + Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False) + Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False) + End If + End If + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub aUp_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteOut.Execute + If View.SelectedObjects(0) IsNot Nothing Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid) + _DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows) + Dim _DeliveryNoteOutRows_Previous As DeliveryNoteOutRows = Nothing + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + Dim _Valid_RowIndex = False + + For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then + If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(0).Oid Then + _DeliveryNoteOutRows.RowIndex -= 1 + _Valid_RowIndex = True + Exit For + End If + End If + _DeliveryNoteOutRows_Previous = _DeliveryNoteOutRows + Next + + If _DeliveryNoteOutRows_Previous IsNot Nothing And _Valid_RowIndex = True Then + _DeliveryNoteOutRows_Previous.RowIndex += 1 + End If + + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + Else + '----------------------------TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("***Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + End If + + End Sub + Private Sub aDown_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteOut.Execute + If View.SelectedObjects(0) IsNot Nothing Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid) + _DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows) + Dim _DeliveryNoteOutRows_Next As DeliveryNoteOutRows = Nothing + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + Dim _Valid_RowIndex = False + + For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then + If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(_DeliveryNoteOutHeader.DeliveryNoteOutRows.Count - 1).Oid Then + _DeliveryNoteOutRows_Next = _ocur.FindObject(Of DeliveryNoteOutRows)(CriteriaOperator.Parse("RowIndex=?", _DeliveryNoteOutRows.RowIndex + 1)) + _DeliveryNoteOutRows.RowIndex += 1 + _Valid_RowIndex = True + Exit For + End If + End If + Next + + If _DeliveryNoteOutRows_Next IsNot Nothing And _Valid_RowIndex = True Then + _DeliveryNoteOutRows_Next.RowIndex -= 1 + End If + + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + Else + '----------------------------TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + End If + + End Sub + Private Sub aDeliveryNoteOutPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutPrint.Execute + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader IsNot Nothing Then + Dim _ReportData As ReportData = _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber = ?", _DeliveryNoteOutHeader.DocumentNumber), True) + Else + '-----------------TESZT MAITT---------------------------- + Throw New Exception("*Nincs belltva nyomtatvny!") + End If + End If + End Sub + Private Sub aTotable_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid) + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + If _DeliveryNoteOutHeader IsNot Nothing Then + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_StorageOutRowsInRows.Oid) + Dim _row_QTT As Double = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_QTT + Dim _row_NoteRows As String = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_NoteRows + + If _row_QTT <= _StorageOutRowsInRows.QTT - _StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut Then + For Each _DeliveryNoteOutRows_Exist As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows_Exist.StorageOutRowsInRows.Oid = _StorageOutRowsInRows.Oid Then + _DeliveryNoteOutRows = _DeliveryNoteOutRows_Exist + Exit For + End If + Next + If _DeliveryNoteOutRows Is Nothing Then + _DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session) + _DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader + _DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows + _DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + End If + + _DeliveryNoteOutRows.QTT += _row_QTT + _DeliveryNoteOutRows.Note = _row_NoteRows + _DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut += _row_QTT + + + + _StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut += _row_QTT + + _ocur.CommitChanges() + Else + '-----------------TESZT MAITT---------------------------- + Throw New Exception("*A kiszlltani kvnt mennyisg meghaladja kitrolt mennyisget!" & vbNewLine & vbNewLine & _ + "Krem ellenrizze a bert mennyisget!") + End If + _DeliveryNoteOutHeader.row_NoteRows = "" + _DeliveryNoteOutHeader.row_QTT = 0 + _DeliveryNoteOutHeader.row_StorageOutRowsInRows = Nothing + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aTotableD_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid) + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + Dim _DeliveryNoteOutRows_Del_Collection As New ArrayList + Dim _DeliveryNoteOutRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("DeliveryNoteOutRows") + If _DeliveryNoteOutRows_ListEditor IsNot Nothing Then + For Each _DeliveryNoteOutRows_Ocur As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects + _DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_Ocur.Oid) + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT + _DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT + + _DeliveryNoteOutRows_Del_Collection.Add(_DeliveryNoteOutRows) + Next + _ocur.Delete(_DeliveryNoteOutRows_Del_Collection) + + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End Sub + Private Sub aFinalize_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteOut.Execute, aFinalizeAndNew_DeliveryNoteOut.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData IsNot Nothing And _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count > 0 Then + _DeliveryNoteOutHeader.IsEditable = False + + _ocur.CommitChanges() + + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData.Oid), True) + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True) + + If e.Action.Id = "aFinalizeAndNew_DeliveryNoteOut" Then + Frame.GetController(Of NewObjectViewController)().NewObjectAction.DoExecute(Frame.GetController(Of NewObjectViewController)().NewObjectAction.Items(0)) + End If + Else + '-----------------TESZT MAITT---------------------------- + Throw New Exception("*Nincs belltva nyomtatvny vagy nincs egy sora sem a kimen szlltlevlnek!") + End If + End Sub + Private Sub aStorno_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteOut.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem!") + If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*A szlltlevl mr stornzva lett!") + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT + Next + + _DeliveryNoteOutHeader.IsEditable = False + _DeliveryNoteOutHeader.IsStorno = True + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aBackToEdit_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_DeliveryNoteOut.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader) + If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem!") + If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*Stornzott szlltlevelet nem lehet jra szerkeszteni!") + _DeliveryNoteOutHeader.IsEditable = True + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCreate_DeliveryNoteOutFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Cancel + + + End Sub + Private Sub aCreate_DeliveryNoteOutFromStorageORIR_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), StorageOutRowsInRows).Oid) + Dim _DeliveryNoteOutfromStorageOutrowsInRowsPopup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = _onew.CreateObject(Of DeliveryNoteOutfromStorageOutrowsInRowsPopup)() + Dim _DeliveryNoteOutType_Collection As New XPCollection(Of DeliveryNoteOutType)(_onew.Session) + + If _DeliveryNoteOutType_Collection.Count = 1 Then + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteOutType_Collection(0)) + End If + + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.Customers = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption IsNot Nothing Then + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption) + Else + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.ShipmentOption) + End If + If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption IsNot Nothing Then + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption) + Else + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.QualityOption) + End If + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2 IsNot Nothing Then + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.TransportAddress = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2) + End If + + e.View = Application.CreateDetailView(_onew, "DeliveryNoteOutfromStorageOutrowsInRowsPopup_DetailView", False, _DeliveryNoteOutfromStorageOutrowsInRowsPopup) + End Sub + Private Sub aCreate_DeliveryNoteOutFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNOutFStorageORIR_Popup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteOutfromStorageOutrowsInRowsPopup) + Try + Dim _DeliveryNoteOutType As DeliveryNoteOutType = _ocur.GetObjectByKey(Of DeliveryNoteOutType)(_DeliveryNOutFStorageORIR_Popup.DeliveryNoteOutType.Oid) + Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_DeliveryNOutFStorageORIR_Popup.Customers.Oid) + Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_DeliveryNOutFStorageORIR_Popup.CustomersFrom.Oid) + Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_DeliveryNOutFStorageORIR_Popup.ShipmentOption.Oid) + Dim _QualityOption As QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_DeliveryNOutFStorageORIR_Popup.QualityOption.Oid) + Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_DeliveryNOutFStorageORIR_Popup.CurrencyName.Oid) + Dim _TransportAddress As Address = _ocur.GetObjectByKey(Of Address)(_DeliveryNOutFStorageORIR_Popup.TransportAddress.Oid) + Dim _Note As String = _DeliveryNOutFStorageORIR_Popup.Note + Dim _StorageOutRowsInRows As StorageOutRowsInRows = Nothing + Dim _StorageOutRowsInRows_OrigView As StorageOutRowsInRows = Nothing + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + + Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_ocur.Session) + _DeliveryNoteOutHeader.DeliveryNoteOutType = _DeliveryNoteOutType + _DeliveryNoteOutHeader.Customers = _Customers + _DeliveryNoteOutHeader.CustomersFrom = _CustomersFrom + _DeliveryNoteOutHeader.ShipmentOption = _ShipmentOption + _DeliveryNoteOutHeader.QualityOption = _QualityOption + _DeliveryNoteOutHeader.CurrencyName = _CurrencyName + _DeliveryNoteOutHeader.TransportAddress = _TransportAddress + _DeliveryNoteOutHeader.Note = _Note + _DeliveryNoteOutHeader.IsEditable = False + _DeliveryNoteOutHeader.DateCreated = GetSQLTime(_ocur.Session) + _DeliveryNoteOutHeader.DateExecution = GetSQLTime(_ocur.Session) + + + For Each _StorageOutRowsInRows_OrigView In View.SelectedObjects + _StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(_StorageOutRowsInRows_OrigView.Oid) + If _StorageOutRowsInRows_OrigView.QTT_Will > 0 And _StorageOutRowsInRows_OrigView.QTT_Will <= _StorageOutRowsInRows_OrigView.QTT - _StorageOutRowsInRows_OrigView.QTT_To_DeliveryOut Then + _DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session) + If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_DeliveryNoted += _StorageOutRowsInRows_OrigView.QTT_Will + End If + + _DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader + _DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows + _DeliveryNoteOutRows.QTT = _StorageOutRowsInRows_OrigView.QTT_Will + _DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + + _StorageOutRowsInRows.QTT_To_DeliveryOut += _StorageOutRowsInRows_OrigView.QTT_Will + _StorageOutRowsInRows_OrigView.QTT_Will = 0 + End If + Next + If _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count = 0 Then Throw New Exception("*Nincs egy olyan sor sem, amin lenne legalbb 1db kiszlltand mennyisg!" & vbNewLine & vbNewLine & _ + "res szlltlevl nem hozhat ltre!") + + _ocur.CommitChanges() + + If _DeliveryNoteOutType.ReportData IsNot Nothing Then + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _DeliveryNoteOutType.ReportData.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("_DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True) + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + Catch exp As Exception + MsgBox(exp.Message, MsgBoxStyle.OkOnly, "Hiba!") + End Try + End Sub + Private Sub aCreate_InvoiceFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_InvoiceFromStorageORIR.Cancel + + End Sub + Private Sub aCreate_InvoiceFromStorageORIR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_InvoiceFromStorageORIR.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.CreateObject(Of ORI_Invoice_Popup)() + + Dim _InvoiceType_Collection As New XPCollection(Of InvoiceType)(_onew.Session, CriteriaOperator.Parse("CustomersFrom=? AND InvoiceTypeBase=2", _ + _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom))) + If _InvoiceType_Collection.Count = 1 Then + _ORI_Invoice_Popup.InvoiceType = _onew.GetObject(_InvoiceType_Collection(0)) + End If + + _ORI_Invoice_Popup.CustomersFrom = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom) + _ORI_Invoice_Popup.Customers = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers) + _ORI_Invoice_Popup.CurrencyName = _onew.GetObject(_DeliveryNoteOutRows.DeliveryNoteOutHeader.CurrencyName) + _ORI_Invoice_Popup.ShipmentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.ShipmentOption) + _ORI_Invoice_Popup.PaymentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.PaymentOption) + _ORI_Invoice_Popup.DateExecution = GetSQLTime(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ORI_Invoice_Popup_DetailView", False, _ORI_Invoice_Popup) + End Sub + Private Sub aCreate_InvoiceFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_InvoiceFromStorageORIR.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup) + Try + Dim _InvoiceType As InvoiceType = _ocur.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid) + Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid) + Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid) + Dim _DateCreated As Date = _ORI_Invoice_Popup.DateCreated + Dim _DateExecution As Date = _ORI_Invoice_Popup.DateExecution + Dim _DatePayment As Date = _ORI_Invoice_Popup.DatePayment + Dim _PaymentOption As PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid) + Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_ORI_Invoice_Popup.ShipmentOption.Oid) + Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid) + Dim _BankInformation As BankInformation = _ocur.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid) + Dim _Description As String = _ORI_Invoice_Popup.Description + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing + Dim _NG As NumberGenerator + + Dim _InvoiceHeader As New InvoiceHeader(_ocur.Session) + _InvoiceHeader.InvoiceType = _InvoiceType + _InvoiceHeader.CustomersFrom = _CustomersFrom + _InvoiceHeader.Customers = _Customers + _InvoiceHeader.DateCreated = _DateCreated + _InvoiceHeader.DateExecution = _DateExecution + _InvoiceHeader.DatePayment = _DatePayment + _InvoiceHeader.PaymentOption = _PaymentOption + _InvoiceHeader.ShipmentOption = _ShipmentOption + _InvoiceHeader.CurrencyName = _CurrencyName + _InvoiceHeader.BankInformation = _BankInformation + _InvoiceHeader.Description = _Description + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsStorno = False + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + End If + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + For Each _DeliveryNoteOutRows_OrigView As DeliveryNoteOutRows In View.SelectedObjects + _DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_OrigView.Oid) + + Dim _InvoiceRows As New InvoiceRows(_ocur.Session) + + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRows = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF + _InvoiceRows.ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV + _InvoiceRows.ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF + _InvoiceRows.QTT = _DeliveryNoteOutRows.QTT_Will + _InvoiceRows.QualityOption = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption + _InvoiceRows.RowIndex = _InvoiceHeader.InvoiceRows.Count + _InvoiceRows.ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber & vbNewLine & _ + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName + _InvoiceRows.Units = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units + _InvoiceRows.VAT = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.VAT + _InvoiceRows.Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description + _InvoiceRows.CustomsTariffs = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff + Next + + _ocur.CommitChanges() + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + End Sub + '----------------------View.SelectionChanged Z ---------------------------------------------------- + Private Sub StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged(sender As Object, e As EventArgs) + If View.SelectedObjects.Count = 0 Then Exit Sub + Dim _ActionEnabled As Boolean = True + If View.SelectedObjects.Count = 1 Then + If TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT < TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT_Will Then + _ActionEnabled = False + End If + Else + Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader.CustomersFrom + If _Act_CustomersFrom IsNot Nothing Then + For Each _StorageOutRowsInRows As StorageOutRowsInRows In View.SelectedObjects + If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _ + _StorageOutRowsInRows.QTT < _StorageOutRowsInRows.QTT_Will Then + _ActionEnabled = False + Exit For + End If + Next + End If + End If + + Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled) + + End Sub + Private Sub DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged(sender As Object, e As EventArgs) + If View.SelectedObjects.Count = 0 Then Exit Sub + Dim _ActionEnabled As Boolean = True + If View.SelectedObjects.Count = 1 Then + If TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT < TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT_Will Then + _ActionEnabled = False + End If + Else + Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.CustomersFrom + If _Act_CustomersFrom IsNot Nothing Then + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In View.SelectedObjects + If _DeliveryNoteOutRows.DeliveryNoteOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _ + _DeliveryNoteOutRows.QTT < _DeliveryNoteOutRows.QTT_Will Then + _ActionEnabled = False + Exit For + End If + Next + End If + End If + + Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled) + End Sub + Private Sub aDeliveryNoteOutRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutRowsPrint.Execute + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem!") + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader + If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt a folyamat megszakadt!") + Dim _ReportData As ReportData = _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!") + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aCheckDeliveryNoteOutWeight_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCheckDeliveryNoteOutWeight.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows + + For Each _DeliveryNoteOutHeader In View.SelectedObjects + For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Weight = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Weight + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.WeightMode = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.WeightMode + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Save() + End If + Next + Next + _ocur.CommitChanges() + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/Popup/DeliveryNoteOutfromStorageOutrowsInRowsPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/Popup/DeliveryNoteOutfromStorageOutrowsInRowsPopup.vb new file mode 100644 index 0000000..97dbf08 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/Popup/DeliveryNoteOutfromStorageOutrowsInRowsPopup.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class DeliveryNoteOutfromStorageOutrowsInRowsPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _DeliveryNoteOutType As DeliveryNoteOutType + Private _CustomersFrom As CustomersFrom ' Sajtcg + Private _Customers As Customers ' gyfl + Private _ShipmentOption As ShipmentOption ' Szlltsi opci + Private _QualityOption As QualityOption ' Minsgi opci + Private _CurrencyName As CurrencyName ' Deviza + Private _Note As String ' Megjegyzs + Private _TransportAddress As Address ' -- Szlltsi cm + + Property DeliveryNoteOutType As DeliveryNoteOutType + Get + Return _DeliveryNoteOutType + End Get + Set(value As DeliveryNoteOutType) + SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + CurrencyName = value.CurrencyName + End If + End If + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property TransportAddress As Address + Get + Return _TransportAddress + End Get + Set(value As Address) + SetPropertyValue("TransportAddress", _TransportAddress, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb new file mode 100644 index 0000000..e283c52 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb @@ -0,0 +1,161 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ +Public Class DeliveryNoteView ' -- szállítólevél készítéséhez a popup-hoz view + Inherits BaseObject + + Private _TransportAddress As Address ' -- Szállítási cím + Private _CustomersFrom As CustomersFrom ' Sajátcég + Private _Customers As Customers ' Ügyfél + Private _DateExecution As Date ' Végrehajtás dátuma + Private _ShipmentOption As ShipmentOption ' Szállítási opció + Private _QualityOption As QualityOption ' Minőségi opció + Private _CurrencyName As CurrencyName ' Deviza + Private _Note As String ' Megjegyzés + Private _Storage As Storage 'Raktár a Kitárolás+szállítólevél action-hoz + Private _StorageMoveType As StorageMoveType + Private _DeliveryNoteOutType As DeliveryNoteOutType + Private _StorageNeed As Boolean 'Raktár megjelenítése + Private _DeliveryNoteOutTypeNeed As Boolean 'Deliveryhez + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + StorageNeed = False + DeliveryNoteOutTypeNeed = False + End Sub + _ + Property TransportAddress As Address + Get + Return _TransportAddress + End Get + Set(value As Address) + SetPropertyValue("TransportAddress", _TransportAddress, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + Storage = value.Storage 'MoveType + End If + End If + End Set + End Property + Property StorageNeed As Boolean + Get + Return _StorageNeed + End Get + Set(value As Boolean) + SetPropertyValue("StorageNeed", _StorageNeed, value) + End Set + End Property + Property DeliveryNoteOutType As DeliveryNoteOutType + Get + Return _DeliveryNoteOutType + End Get + Set(value As DeliveryNoteOutType) + SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value) + End Set + End Property + Property DeliveryNoteOutTypeNeed As Boolean + Get + Return _DeliveryNoteOutTypeNeed + End Get + Set(value As Boolean) + SetPropertyValue("DeliveryNoteOutTypeNeed", _DeliveryNoteOutTypeNeed, value) + End Set + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatistics.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatistics.vb new file mode 100644 index 0000000..bf8666a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatistics.vb @@ -0,0 +1,67 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CRMEstateStatistics + Inherits BaseObject + + Private _Immovables As Immovables + Private _QTT_Sold As Long 'Eladott darabszm + Private _AreaNettoForSale_Sold As Double 'Eladott m2 + Private _NettoPriceHUF As Double 'rtk + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Immovables As Immovables + Get + Return _Immovables + End Get + Set(value As Immovables) + SetPropertyValue("Immovables", _Immovables, value) + End Set + End Property + Property QTT_Sold As Long + Get + Return _QTT_Sold + End Get + Set(value As Long) + SetPropertyValue("QTT_Sold", _QTT_Sold, value) + End Set + End Property + Property AreaNettoForSale_Sold As Double + Get + Return _AreaNettoForSale_Sold + End Get + Set(value As Double) + SetPropertyValue("AreaNettoForSale_Sold", _AreaNettoForSale_Sold, value) + End Set + End Property + Property NettoPriceHUF As Double + Get + Return _NettoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb new file mode 100644 index 0000000..4c4d544 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class CRMEstateStatisticsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCRMEstateStatisticsCreate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCRMEstateStatisticsCreate + ' + Me.aCRMEstateStatisticsCreate.Caption = "aCRMEstate Statistics Create" + Me.aCRMEstateStatisticsCreate.ConfirmationMessage = Nothing + Me.aCRMEstateStatisticsCreate.Id = "aCRMEstateStatisticsCreate" + Me.aCRMEstateStatisticsCreate.ImageName = Nothing + Me.aCRMEstateStatisticsCreate.Shortcut = Nothing + Me.aCRMEstateStatisticsCreate.Tag = Nothing + Me.aCRMEstateStatisticsCreate.TargetObjectsCriteria = Nothing + Me.aCRMEstateStatisticsCreate.TargetObjectType = GetType(SISBusiness.[Module].CRMEstateStatistics) + Me.aCRMEstateStatisticsCreate.TargetViewId = Nothing + Me.aCRMEstateStatisticsCreate.ToolTip = Nothing + Me.aCRMEstateStatisticsCreate.TypeOfView = Nothing + + End Sub + Friend WithEvents aCRMEstateStatisticsCreate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.resx new file mode 100644 index 0000000..ab7ba03 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb new file mode 100644 index 0000000..ceeab5e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb @@ -0,0 +1,197 @@ +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 + +Public Class CRMEstateStatisticsVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 = "ContractRows_ListView_Apartments" Or _ + View.Id = "ContractRows_ListView_Offices" Or _ + View.Id = "ContractRows_ListView_Garages" Or _ + View.Id = "ContractRows_ListView_Containers" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _Controlling_Collections As New XPCollection(Of Controlling)(_ocur.Session, CriteriaOperator.Parse("IsEstateStatistics=True")) + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria("") = New InOperator("Controlling", _Controlling_Collections) + _ListView.CollectionSource.EndUpdateCriteria() + + End If + End Sub + + Private Sub aCRMEstateStatisticsCreate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRMEstateStatisticsCreate.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRMEstateStatistics As CRMEstateStatistics + Dim _Immovables As Immovables + + '// Laksok + Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session) + Dim _Apartments As Apartments + + + RaiseEvent InitWork(1, 1, _Apartments_Collection.Count) + For Each _Apartments In _Apartments_Collection + RaiseEvent DoWork() + _Immovables = TryCast(_Apartments, Immovables) + + _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables)) + If _CRMEstateStatistics Is Nothing Then + _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)() + End If + _CRMEstateStatistics.QTT_Sold = 1 + _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects) + If _CRMEstateStatistics.NettoPriceHUF = 0 Then + _CRMEstateStatistics.NettoPriceHUF = _Apartments.PriceNettoHUF + Else + If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then + _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold + End If + End If + _CRMEstateStatistics.Immovables = _Immovables + _CRMEstateStatistics.AreaNettoForSale_Sold = _Apartments.AreaNettoForSale + + + _onew.CommitChanges() + + Next + _onew.CommitChanges() + RaiseEvent FinalWork + + '// Garzsok + Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session) + Dim _Garages As Garages + + + RaiseEvent InitWork(1, 1, _Garages_Collection.Count) + For Each _Garages In _Garages_Collection + RaiseEvent DoWork() + _Immovables = TryCast(_Garages, Immovables) + + _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables)) + If _CRMEstateStatistics Is Nothing Then + _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)() + End If + _CRMEstateStatistics.QTT_Sold = 1 + _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects) + If _CRMEstateStatistics.NettoPriceHUF = 0 Then + _CRMEstateStatistics.NettoPriceHUF = _Garages.PriceNettoHUF + Else + If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then + _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold + End If + End If + + _CRMEstateStatistics.Immovables = _Immovables + _CRMEstateStatistics.AreaNettoForSale_Sold = _Garages.AreaNetto + + _onew.CommitChanges() + + Next + _onew.CommitChanges() + RaiseEvent FinalWork + + '// zletek, irodk + Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session) + Dim _Offices As Offices + + + RaiseEvent InitWork(1, 1, _Offices_Collection.Count) + For Each _Offices In _Offices_Collection + RaiseEvent DoWork() + _Immovables = TryCast(_Offices, Immovables) + + _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables)) + If _CRMEstateStatistics Is Nothing Then + _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)() + End If + _CRMEstateStatistics.QTT_Sold = 1 + _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects) + If _CRMEstateStatistics.NettoPriceHUF = 0 Then + _CRMEstateStatistics.NettoPriceHUF = _Offices.PriceNettoHUF + Else + If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then + _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold + End If + End If + _CRMEstateStatistics.Immovables = _Immovables + _CRMEstateStatistics.AreaNettoForSale_Sold = _Offices.AreaNettoForSale + + _onew.CommitChanges() + + Next + _onew.CommitChanges() + RaiseEvent FinalWork + + '// Trolk + Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session) + Dim _Container As Container + + + RaiseEvent InitWork(1, 1, _Container_Collection.Count) + For Each _Container In _Container_Collection + RaiseEvent DoWork() + _Immovables = TryCast(_Container, Immovables) + + _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables)) + If _CRMEstateStatistics Is Nothing Then + _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)() + Else + If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then + _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold + End If + End If + _CRMEstateStatistics.QTT_Sold = 1 + _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects) + If _CRMEstateStatistics.NettoPriceHUF = 0 Then + _CRMEstateStatistics.NettoPriceHUF = _Container.PriceNettoHUF + End If + _CRMEstateStatistics.Immovables = _Immovables + _CRMEstateStatistics.AreaNettoForSale_Sold = _Container.AreaNetto + + _onew.CommitChanges() + + Next + _onew.CommitChanges() + RaiseEvent FinalWork + + End Sub + + Private Function GetNettoPriceHUF(_onew As Xpo.XPObjectSpace, _UniqueObjects As UniqueObjects) As Double + Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("UniqueObjects=?", _UniqueObjects)) + Dim _ContractRows As ContractRows + Dim _NettoPriceHUF As Double = 0 + Dim _Controlling_Collection As New XPCollection(Of Controlling)(_onew.Session, CriteriaOperator.Parse("IsEstateStatistics=True")) + + + + _ContractRows_Collection.Filter = New InOperator("Controlling", _Controlling_Collection) + + For Each _ContractRows In _ContractRows_Collection + _NettoPriceHUF += Math.Round(_ContractRows.QTT * _ContractRows.NettoPriceHUF, 0, MidpointRounding.AwayFromZero) + Next + + Return _NettoPriceHUF + + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb new file mode 100644 index 0000000..9451587 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb @@ -0,0 +1,265 @@ +Partial Class CRMEstateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSelectImmovables_Apartments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateContacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateImmovablesReservation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateOpportunityRent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectImmovables_Offices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectImmovables_Garages = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectImmovables_Container = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateOpportunitySold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateContractRent = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateContractSold = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSelectImmovables_Apartments + ' + Me.aSelectImmovables_Apartments.Caption = "Select immovables" + Me.aSelectImmovables_Apartments.ConfirmationMessage = Nothing + Me.aSelectImmovables_Apartments.Id = "aSelectImmovables_Apartments" + Me.aSelectImmovables_Apartments.ImageName = "BO_Address" + Me.aSelectImmovables_Apartments.Shortcut = Nothing + Me.aSelectImmovables_Apartments.Tag = Nothing + Me.aSelectImmovables_Apartments.TargetObjectsCriteria = Nothing + Me.aSelectImmovables_Apartments.TargetViewId = "CRMEstate_Leads_Apartments_ListView" + Me.aSelectImmovables_Apartments.ToolTip = Nothing + Me.aSelectImmovables_Apartments.TypeOfView = Nothing + ' + 'aCreateContacts + ' + Me.aCreateContacts.Caption = "Create contact" + Me.aCreateContacts.Category = "aCreateContacts" + Me.aCreateContacts.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateContacts.Id = "aCreateContacts" + Me.aCreateContacts.ImageName = "BO_Person" + Me.aCreateContacts.Shortcut = Nothing + Me.aCreateContacts.Tag = Nothing + Me.aCreateContacts.TargetObjectsCriteria = Nothing + Me.aCreateContacts.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aCreateContacts.ToolTip = Nothing + Me.aCreateContacts.TypeOfView = Nothing + ' + 'aCreateImmovablesReservation + ' + Me.aCreateImmovablesReservation.AcceptButtonCaption = Nothing + Me.aCreateImmovablesReservation.CancelButtonCaption = Nothing + Me.aCreateImmovablesReservation.Caption = "Create reservation" + Me.aCreateImmovablesReservation.Category = "aCreateImmovablesReservation" + Me.aCreateImmovablesReservation.ConfirmationMessage = Nothing + Me.aCreateImmovablesReservation.Id = "aCreateImmovablesReservation" + Me.aCreateImmovablesReservation.ImageName = "alarmclock" + Me.aCreateImmovablesReservation.Shortcut = Nothing + Me.aCreateImmovablesReservation.Tag = Nothing + Me.aCreateImmovablesReservation.TargetObjectsCriteria = Nothing + Me.aCreateImmovablesReservation.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aCreateImmovablesReservation.ToolTip = Nothing + Me.aCreateImmovablesReservation.TypeOfView = Nothing + ' + 'aCreateOpportunityRent + ' + Me.aCreateOpportunityRent.Caption = "Create opportunity rent" + Me.aCreateOpportunityRent.Category = "aCreateOpportunityRent" + Me.aCreateOpportunityRent.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateOpportunityRent.Id = "aCreateOpportunityRent" + Me.aCreateOpportunityRent.ImageName = "BO_Opportunity" + Me.aCreateOpportunityRent.Shortcut = Nothing + Me.aCreateOpportunityRent.Tag = Nothing + Me.aCreateOpportunityRent.TargetObjectsCriteria = Nothing + Me.aCreateOpportunityRent.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aCreateOpportunityRent.ToolTip = Nothing + Me.aCreateOpportunityRent.TypeOfView = Nothing + ' + 'aCreateNewCRMEstate_Opportunity_AdvanceMoney + ' + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Caption = "New" + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Category = "ObjectsCreation" + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Id = "aCreateNewCRMEstate_Opportunity_AdvanceMoney" + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing + Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing + ' + 'aFinalCRMEstate_Opportunity_AdvanceMoney + ' + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Caption = "Final" + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Category = "Save" + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Id = "aFinalCRMEstate_Opportunity_AdvanceMoney" + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_AdvanceMoney_DetailView" + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing + Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing + ' + 'aSelectImmovables_Offices + ' + Me.aSelectImmovables_Offices.Caption = "Select immovables" + Me.aSelectImmovables_Offices.ConfirmationMessage = Nothing + Me.aSelectImmovables_Offices.Id = "aSelectImmovables_Offices" + Me.aSelectImmovables_Offices.ImageName = "BO_Address" + Me.aSelectImmovables_Offices.Shortcut = Nothing + Me.aSelectImmovables_Offices.Tag = Nothing + Me.aSelectImmovables_Offices.TargetObjectsCriteria = Nothing + Me.aSelectImmovables_Offices.TargetViewId = "CRMEstate_Leads_Offices_ListView" + Me.aSelectImmovables_Offices.ToolTip = Nothing + Me.aSelectImmovables_Offices.TypeOfView = Nothing + ' + 'aSelectImmovables_Garages + ' + Me.aSelectImmovables_Garages.Caption = "Select immovables" + Me.aSelectImmovables_Garages.ConfirmationMessage = Nothing + Me.aSelectImmovables_Garages.Id = "aSelectImmovables_Garages" + Me.aSelectImmovables_Garages.ImageName = "BO_Address" + Me.aSelectImmovables_Garages.Shortcut = Nothing + Me.aSelectImmovables_Garages.Tag = Nothing + Me.aSelectImmovables_Garages.TargetObjectsCriteria = Nothing + Me.aSelectImmovables_Garages.TargetViewId = "CRMEstate_Leads_Garages_ListView" + Me.aSelectImmovables_Garages.ToolTip = Nothing + Me.aSelectImmovables_Garages.TypeOfView = Nothing + ' + 'aSelectImmovables_Container + ' + Me.aSelectImmovables_Container.Caption = "Select immovables" + Me.aSelectImmovables_Container.ConfirmationMessage = Nothing + Me.aSelectImmovables_Container.Id = "aSelectImmovables_Container" + Me.aSelectImmovables_Container.ImageName = "BO_Address" + Me.aSelectImmovables_Container.Shortcut = Nothing + Me.aSelectImmovables_Container.Tag = Nothing + Me.aSelectImmovables_Container.TargetObjectsCriteria = Nothing + Me.aSelectImmovables_Container.TargetViewId = "CRMEstate_Leads_Container_ListView" + Me.aSelectImmovables_Container.ToolTip = Nothing + Me.aSelectImmovables_Container.TypeOfView = Nothing + ' + 'aCreateOpportunitySold + ' + Me.aCreateOpportunitySold.Caption = "Create opportunity sold" + Me.aCreateOpportunitySold.Category = "aCreateOpportunitySold" + Me.aCreateOpportunitySold.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateOpportunitySold.Id = "aCreateOpportunitySold" + Me.aCreateOpportunitySold.ImageName = "BO_Opportunity" + Me.aCreateOpportunitySold.Shortcut = Nothing + Me.aCreateOpportunitySold.Tag = Nothing + Me.aCreateOpportunitySold.TargetObjectsCriteria = Nothing + Me.aCreateOpportunitySold.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads) + Me.aCreateOpportunitySold.TargetViewId = "CRMEstate_Leads_DetailView" + Me.aCreateOpportunitySold.ToolTip = Nothing + Me.aCreateOpportunitySold.TypeOfView = Nothing + ' + 'aDeleteCRMEstate_Opportunity_AdvanceMoney + ' + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Caption = "Delete" + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Category = "Edit" + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Id = "aDeleteCRMEstate_Opportunity_AdvanceMoney" + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_AdvanceMoney) + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetViewId = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing + Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing + ' + 'aCreateNewCRMEstate_Opportunity_Payment_Forecast + ' + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Caption = "aCreateNewCRMEstate_Opportunity_Payment_Forecast" + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Category = "ObjectsCreation" + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ConfirmationMessage = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Id = "aCreateNewCRMEstate_Opportunity_Payment_Forecast" + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ImageName = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Shortcut = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Tag = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectsCriteria = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_Payment_Forecast) + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ToolTip = Nothing + Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TypeOfView = Nothing + ' + 'aCreateContractRent + ' + Me.aCreateContractRent.AcceptButtonCaption = Nothing + Me.aCreateContractRent.CancelButtonCaption = Nothing + Me.aCreateContractRent.Caption = "aCreateContractRent" + Me.aCreateContractRent.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateContractRent.Id = "aCreateContractRent" + Me.aCreateContractRent.ImageName = "paragraph" + Me.aCreateContractRent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateContractRent.Shortcut = Nothing + Me.aCreateContractRent.Tag = Nothing + Me.aCreateContractRent.TargetObjectsCriteria = Nothing + Me.aCreateContractRent.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity) + Me.aCreateContractRent.TargetViewId = Nothing + Me.aCreateContractRent.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCreateContractRent.ToolTip = Nothing + Me.aCreateContractRent.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aCreateContractSold + ' + Me.aCreateContractSold.AcceptButtonCaption = Nothing + Me.aCreateContractSold.CancelButtonCaption = Nothing + Me.aCreateContractSold.Caption = "aCreate Contract Sold" + Me.aCreateContractSold.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateContractSold.Id = "aCreateContractSold" + Me.aCreateContractSold.ImageName = "paragraph" + Me.aCreateContractSold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateContractSold.Shortcut = Nothing + Me.aCreateContractSold.Tag = Nothing + Me.aCreateContractSold.TargetObjectsCriteria = Nothing + Me.aCreateContractSold.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity) + Me.aCreateContractSold.TargetViewId = "CRMEstate_Opportunity_DetailView" + Me.aCreateContractSold.ToolTip = Nothing + Me.aCreateContractSold.TypeOfView = Nothing + + End Sub + Friend WithEvents aSelectImmovables_Apartments As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateOpportunitySold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateContacts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateImmovablesReservation As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateOpportunityRent As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateNewCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDeleteCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectImmovables_Offices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectImmovables_Garages As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectImmovables_Container As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateNewCRMEstate_Opportunity_Payment_Forecast As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateContractRent As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateContractSold As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx new file mode 100644 index 0000000..6f4984a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 17, 212 + + + 17, 290 + + + 17, 329 + + + 17, 368 + + + 17, 485 + + + 17, 524 + + + 17, 251 + + + 17, 446 + + + 17, 173 + + + 17, 563 + + + 756, 175 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb new file mode 100644 index 0000000..704ee42 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.vb @@ -0,0 +1,1174 @@ +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.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Utils + +Public Class CRMEstateVC + Inherits DevExpress.ExpressApp.ViewController + Public Event CreateReservationReminder(ByVal _CRMEstate_Leads_Immovables_Reservation As CRMEstate_Leads_Immovables_Reservation) + 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 = "CRMEstate_Leads_Offices_ListView" Or _ + View.Id = "CRMEstate_Leads_Garages_ListView" Or _ + View.Id = "CRMEstate_Leads_Container_ListView" Or _ + View.Id = "CRMEstate_Leads_StudentHostel_ListView" Or _ + View.Id = "CRMEstate_Opportunity_ListView" Or _ + View.Id = "CRMEstate_Leads_Apartments_ListView" Or _ + View.Id = "CRMEstate_Opportunity_InvoiceHeader_ListView" Or _ + View.Id = "CRMEstate_Opportunity_Contracts_ListView" Or _ + View.Id = "CRMEstate_Opportunity_PCIGroup_ListView" Or _ + View.Id = "CRMEstate_Leads_Selected_Apartments_ListView" Or _ + View.Id = "CRMEstate_Leads_Selected_Container_ListView" Or _ + View.Id = "CRMEstate_Leads_Selected_Garages_ListView" Or _ + View.Id = "CRMEstate_Leads_Selected_Offices_ListView" Or _ + View.Id = "CRMEstate_Leads_Selected_StudentHostel_ListView" Or _ + View.Id = "CRMEstate_Opportunity_Immovables_ListView_Navigation" Then + + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + End If + If View.Id = "CRMEstate_Opportunity_DetailView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + + + If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _ + View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_CRMEstate_Opportunity_ListView_DeleteAction_Executing + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Or _ + View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Customers_ListView" Or _ + View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Or _ + View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Rent_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView + End If + If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + End If + If View.Id = "CRMEstate_Leads_DetailView" Or _ + View.Id = "CRMEstate_Leads_ListView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing + End If + If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _ + AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "CRMEstate_Leads_Immovables_Reservation_Popup_CollectionOfReservation_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "CRMEstate_Opportunity_DetailView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + + If View.Id Like "CRMEstate_Leads_CRMEstate_Leads_Immovables_ListView*" Or _ + View.Id Like "CRMEstate_Leads_CRMEstate_Opportunity_ListView*" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "CRMEstate_Opportunity_AdvanceMoney_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + End If + If View.Id = "CRMEstate_Leads_DetailView" Or _ + View.Id = "CRMEstate_Leads_ListView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf CRMEstate_Leads_DetailView_DeleteAction_Executing + End If + + If View.Id = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, _ + AddressOf CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing + End If + End Sub + + Private Sub Selectionchanged_CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView() + '--Ebben a nézetben csak egy példány lehet tehát ha már van egy akkor letiljuk az új létrehozására szolgáló action-t + If View.SelectedObjects.Count > 0 Then + Frame.GetController(Of CRMEstateVC).aCreateNewCRMEstate_Opportunity_AdvanceMoney.Active.SetItemValue("", False) + Else + Frame.GetController(Of CRMEstateVC).aCreateNewCRMEstate_Opportunity_AdvanceMoney.Active.SetItemValue("", True) + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub aCreateOpportunitySold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateOpportunitySold.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = Nothing + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _IsExists As Boolean = False + Dim _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Dim _DocumentNumber As String = "" + Dim _CRMEstate_Leads_Immovables_ListEditor As ListPropertyEditor + + _CRMEstate_Leads_Immovables_ListEditor = TryCast(View, DetailView).FindItem("CRMEstate_Leads_Immovables") + + If _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects.Count < 0 Then Throw New Exception("*Nincs kiválasztva ingatlan !") + + _CRMEstate_Leads_Immovables_ListEditor.ListView.CollectionSource.Sorting.Add(New SortProperty("Immovables.CustomersOwner.FullName", DB.SortingDirection.Descending)) + + Dim _CRMEstate_Leads_Immovables_Prew As CRMEstate_Leads_Immovables = Nothing + + For Each _CRMEstate_Leads_Immovables In _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects + If _CRMEstate_Leads_Immovables_Prew Is Nothing Then + _CRMEstate_Opportunity = _ocur.CreateObject(Of CRMEstate_Opportunity)() + _CRMEstate_Opportunity.OpportunityType = eOpportunityType.eSold + + '_CRMEstate_Opportunity.DocumentNumber = _DocumentNumber + + _CRMEstate_Opportunity.CRMEstate_Leads = _CRMEstate_Leads + _CRMEstate_Opportunity.HRPerson = _CRMEstate_Leads.HRPerson + _CRMEstate_Opportunity.ObjectCreated = GetSQLTime(_ocur.Session) + + _CRMEstate_Leads_Immovables_Prew = _CRMEstate_Leads_Immovables + ElseIf _CRMEstate_Leads_Immovables_Prew.Oid <> _CRMEstate_Leads_Immovables.Oid Then + _CRMEstate_Opportunity = _ocur.CreateObject(Of CRMEstate_Opportunity)() + _CRMEstate_Opportunity.OpportunityType = eOpportunityType.eSold + + '_CRMEstate_Opportunity.DocumentNumber = _DocumentNumber + + _CRMEstate_Opportunity.CRMEstate_Leads = _CRMEstate_Leads + _CRMEstate_Opportunity.HRPerson = _CRMEstate_Leads.HRPerson + _CRMEstate_Opportunity.ObjectCreated = GetSQLTime(_ocur.Session) + + _CRMEstate_Leads_Immovables_Prew = _CRMEstate_Leads_Immovables + End If + + _CRMEstate_Opportunity_Immovables = _ocur.CreateObject(Of CRMEstate_Opportunity_Immovables)() + _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity = _CRMEstate_Opportunity + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables = _CRMEstate_Leads_Immovables + + Next + + _ocur.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCreateContacts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateContacts.Execute + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + 'Dim _Contacts As Contacts + 'Dim _PhoneNumber As PhoneNumber + '_Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("FirstName=? and LastName=? and (EMail=? OR Mobile=?)", _ + ' _CRMEstate_Leads.FirstName, _CRMEstate_Leads.LastName, _CRMEstate_Leads.EMail, _CRMEstate_Leads.Mobile)) + + 'If _Contacts IsNot Nothing Then + ' _CRMEstate_Leads.Contacts = _Contacts + 'Else + ' _Contacts = _ocur.CreateObject(Of Contacts)() + ' _Contacts.FirstName = _CRMEstate_Leads.FirstName + ' _Contacts.LastName = _CRMEstate_Leads.LastName + ' _Contacts.Email = _CRMEstate_Leads.EMail + ' If _CRMEstate_Leads.Mobile <> "" Then + ' _PhoneNumber = _ocur.CreateObject(Of PhoneNumber)() + ' _PhoneNumber.Number = _CRMEstate_Leads.Mobile + ' _PhoneNumber.Save() + ' _Contacts.PhoneNumbers.Add(_PhoneNumber) + ' End If + ' _Contacts.Save() + ' _ocur.CommitChanges() + 'End If + End Sub + 'Private Sub aCreateContractRent_old_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + ' Try + + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.OkOnly) + ' End Try + 'End Sub + 'Private Sub aCreateContractSold_OLD_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + ' Beep() + ' 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + ' 'Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + ' 'Dim _Contracts As Contracts + ' 'Dim _ContractRows As ContractRows + ' 'Dim _CRMEstate_Offer_Template As CRMEstate_Offer_Template = _ocur.FindObject(Of CRMEstate_Offer_Template)(CriteriaOperator.Parse("Oid=Oid")) + ' 'Dim _CRMEstate_Opportunity_Immovables_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("CRMEstate_Opportunity_Immovables") + ' 'Dim _CRMEstate_Offer_Template_CustomersFrom As CRMEstate_Offer_Template_CustomersFrom + + ' ''Ellenőrzések + ' 'For Each _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity_Immovables_ListEditor.ListView.SelectedObjects + + ' ' ' -- Szándéknyilatkozat ellenőrzése + ' ' If _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_AdvanceMoney.Count = 0 Then + ' ' Throw New Exception("*Nincs kitötltött szándéknyilatkozat a(z) (" & _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") ingatlanra! Kérjük ellenőrizze!") + ' ' End If + ' ' ' -- + + ' ' ' -- Tulajdoni hányadok ellenőrzése + ' ' Dim _RigthQuota As Int32 = 0 + ' ' For Each _CRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Customers + ' ' _RigthQuota += _CRMEstate_Opportunity_Customers.RightQuota + ' ' Next + ' ' If Not _RigthQuota = 100 Then + ' ' Throw New Exception("*A tulajdoni hányadok nem adják ki a 100%-ot kérjük ellenőrizze!") + ' ' End If + ' ' ' -- + + ' ' ' -- Meglévő szerződések ellenőrzése + + ' ' Dim _ExistingContractsCollection As xpcollection = _ocur.CreateCollection(GetType(Contracts), CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables=?", _CRMEstate_Opportunity_Immovables)) + + ' ' If _ExistingContractsCollection.Count > 1 Then 'Ha a szándéknyilatkozat szerződésén kívül létezik szerződés az adott ügyhöz akkor azok az adásvételi szerződések! + ' ' Throw New Exception("*A kiválasztott ingatlanhoz már elkészültek az adásvételi szerződések! Újak generálásához törölje a jelenlegieket!") + ' ' End If + + ' ' ' -- + + ' ' ' -- Fizetési ütemezés ellenőrzése + + ' ' Dim _ForeCastSUM As Int32 = 0 + + ' ' For Each _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Payment_Forecast + ' ' _ForeCastSUM += _CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF + ' ' Next + ' ' If TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Apartments) IsNot Nothing Then + ' ' If Not _ForeCastSUM = Math.Round((TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Apartments).AreaNettoForSale * _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.AreaPriceNettoHUF), 0, MidpointRounding.AwayFromZero) Then + ' ' Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + ' ' End If + ' ' End If + ' ' If TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Offices) IsNot Nothing Then + ' ' If Not _ForeCastSUM = Math.Round((TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Offices).AreaNettoForSale * _CRMEstate_Opportunity_Immovables.AreaPriceNettoHUF), 0, MidpointRounding.AwayFromZero) Then + ' ' Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + ' ' End If + ' ' End If + ' ' If TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Garages) IsNot Nothing Then + ' ' If Not _ForeCastSUM = TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Garages).PriceNettoHUF Then + ' ' Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + ' ' End If + ' ' End If + ' ' If TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Container) IsNot Nothing Then + ' ' If Not _ForeCastSUM = TryCast(_CRMEstate_Opportunity_Immovables.Immovables, Container).PriceNettoHUF Then + ' ' Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + ' ' End If + ' ' End If + + ' ' ' -- + ' 'Next + ' ''-- + + ' ''Szerződések elkészítése + ' 'For Each _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity_Immovables_ListEditor.ListView.SelectedObjects + + ' ' _CRMEstate_Offer_Template_CustomersFrom = _ocur.FindObject(Of CRMEstate_Offer_Template_CustomersFrom)(CriteriaOperator.Parse("CustomersFrom=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_AdvanceMoney(0).CustomersFrom)) + + ' ' For Each _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Payment_Forecast + + ' ' For Each _CRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Customers + + ' ' _Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables=? AND Customers=?", _CRMEstate_Opportunity_Immovables, _CRMEstate_Opportunity_Customers.Customers)) + ' ' If _Contracts Is Nothing Then + ' ' _Contracts = _ocur.CreateObject(Of Contracts)() + ' ' _Contracts.ContractTemplate = _CRMEstate_Offer_Template_CustomersFrom.ContractTemplate_Final + ' ' _Contracts.State = State.Ready + ' ' _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + ' ' _Contracts.CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity_Immovables + ' ' _Contracts.ContractTemplate = _CRMEstate_Offer_Template_CustomersFrom.ContractTemplate_Final + ' ' 'csak egy szándéknyilatkozat szabad legyen és annak kiállítása megelőzi a szerződések elkészítését így nyugodtan vehetjük a tömb első elemét + ' ' _Contracts.CustomersFrom = _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_AdvanceMoney(0).CustomersFrom + ' ' _Contracts.Customers = _CRMEstate_Opportunity_Customers.Customers + ' ' _Contracts.ShortName = _CRMEstate_Opportunity_Immovables.Immovables.UniqueObjects.Name & " adásvételi szerződés" + ' ' _Contracts.Save() + ' ' End If + + ' ' _ContractRows = _ocur.CreateObject(Of ContractRows)() + ' ' _ContractRows.Contracts = _Contracts + ' ' _ContractRows.JobNumberObjects = _CRMEstate_Opportunity_Immovables.Immovables.ImmovableGroups.JobNumberObjects + ' ' _ContractRows.DateExecution = GetSQLTime(_ocur.Session) + ' ' _ContractRows.ContractRowsType = eContractRowsType.eAdvance + ' ' _ContractRows.Controlling = _CRMEstate_Offer_Template.Controlling_Final + ' ' _ContractRows.CostHolder = _CRMEstate_Offer_Template.CostHolder + ' ' _ContractRows.CostPlace = _CRMEstate_Offer_Template.CostPlace + ' ' _ContractRows.NettoPriceHUF = Math.Round((_CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF * (_CRMEstate_Opportunity_Customers.RightQuota / 100)), 0, MidpointRounding.AwayFromZero) + ' ' _ContractRows.VAT = _CRMEstate_Offer_Template.VAT + ' ' _ContractRows.UniqueObjects = _CRMEstate_Opportunity_Immovables.Immovables.UniqueObjects + ' ' _ContractRows.PaymentOption = _CRMEstate_Offer_Template.PaymentOption + ' ' _ContractRows.ShortName = _CRMEstate_Opportunity_Immovables.Immovables.UniqueObjects.Name & " előleg" + ' ' _ContractRows.Save() + + ' ' Next + ' ' Next + ' 'Next + ' ''-- + + ' '_ocur.CommitChanges() + ' 'View.Refresh() + + 'End Sub + Private Sub aCreateImmovablesReservation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateImmovablesReservation.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Leads_Immovables_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("CRMEstate_Leads_Immovables") + If _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*A foglaláshoz ki kell választani ingatlant!") + + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables = _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects(0) + + Dim _CRMEstate_Leads_Immovables_Reservation_Popup As CRMEstate_Leads_Immovables_Reservation_Popup = _onew.CreateObject(Of CRMEstate_Leads_Immovables_Reservation_Popup)() + Dim _CollectionOfReservation As XPCollection = _onew.CreateCollection(GetType(CRMEstate_Leads_Immovables_Reservation), CriteriaOperator.Parse("CRMEstate_Leads_Immovables.Immovables=?", _onew.GetObject(_CRMEstate_Leads_Immovables.Immovables))) + Dim _CRMEstate_Leads_Immovables_Reservation As CRMEstate_Leads_Immovables_Reservation + + _CRMEstate_Leads_Immovables_Reservation_Popup.CRMEstate_Leads_Immovables = _onew.GetObject(_CRMEstate_Leads_Immovables) + + If _CollectionOfReservation.Count > 0 Then + Dim sortCollection As SortingCollection = New SortingCollection() + sortCollection.Add(New SortProperty("DateFrom", DB.SortingDirection.Ascending)) + _CollectionOfReservation.Sorting = sortCollection + + For Each _CRMEstate_Leads_Immovables_Reservation In _CollectionOfReservation + _CRMEstate_Leads_Immovables_Reservation_Popup.CollectionOfReservation.Add(_CRMEstate_Leads_Immovables_Reservation) + Next + + Dim _LastReservation As CRMEstate_Leads_Immovables_Reservation = _CollectionOfReservation(_CollectionOfReservation.Count - 1) + + _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom = _LastReservation.DateTo + _CRMEstate_Leads_Immovables_Reservation_Popup.DateTo = _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom.AddHours(72) + Else + _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom = GetSQLTime(_onew.Session) + _CRMEstate_Leads_Immovables_Reservation_Popup.DateTo = _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom.AddHours(72) + End If + + e.View = Application.CreateDetailView(_onew, "CRMEstate_Leads_Immovables_Reservation_Popup_DetailView", False, _CRMEstate_Leads_Immovables_Reservation_Popup) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCreateImmovablesReservation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateImmovablesReservation.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Leads_Immovables_Reservation_Popup As CRMEstate_Leads_Immovables_Reservation_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), CRMEstate_Leads_Immovables_Reservation_Popup) + Dim _CRMEstate_Leads_Immovables_Reservation_New As CRMEstate_Leads_Immovables_Reservation = _ocur.CreateObject(Of CRMEstate_Leads_Immovables_Reservation)() + Dim _CRMEstate_Leads_Immovables_Reservation As CRMEstate_Leads_Immovables_Reservation + Dim _DateTo As Date = _CRMEstate_Leads_Immovables_Reservation_Popup.DateTo + Dim _DateFrom As Date = _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables = _CRMEstate_Leads_Immovables_Reservation_Popup.CRMEstate_Leads_Immovables + Dim _DateTo_New As New Date(_DateTo.Year, _DateTo.Month, _DateTo.Day, 12, 0, 0) + Dim _DateFrom_New As New Date(_DateFrom.Year, _DateFrom.Month, _DateFrom.Day, 12, 0, 0) + Dim _CheckDate As Boolean = True + + If _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation.Count > 0 Then + Dim _LastReservation As CRMEstate_Leads_Immovables_Reservation = _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation(_CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation.Count - 1) + + _CRMEstate_Leads_Immovables_Reservation_New.DateFrom = _DateFrom_New + _CRMEstate_Leads_Immovables_Reservation_New.DateTo = _DateTo_New + _CRMEstate_Leads_Immovables_Reservation_New.CRMEstate_Leads_Immovables = _ocur.GetObject(_CRMEstate_Leads_Immovables) + _CRMEstate_Leads_Immovables_Reservation_New.ObjectCreated = GetSQLTime(_ocur.Session) + _CRMEstate_Leads_Immovables_Reservation_New.UserCreated = _ocur.GetObject(SecuritySystem.CurrentUser) + + For Each _CRMEstate_Leads_Immovables_Reservation In _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation + If _CRMEstate_Leads_Immovables_Reservation_New.DateFrom < _CRMEstate_Leads_Immovables_Reservation.DateTo And _CRMEstate_Leads_Immovables_Reservation_New.DateTo > _CRMEstate_Leads_Immovables_Reservation.DateFrom Then + _CheckDate = False + End If + Next + If _CheckDate = False Then + ' -------- TESZT MIATT -------------------------------------------------------------------------------------------- + Throw New Exception("*Hibás foglalási időtartamot adott meg, valószínű van már foglalás erre az intervallumra!") + End If + + _CRMEstate_Leads_Immovables_Reservation_New.Save() + _ocur.CommitChanges() + RaiseEvent CreateReservationReminder(_CRMEstate_Leads_Immovables_Reservation_New) + Else + _CRMEstate_Leads_Immovables_Reservation_New.DateFrom = _DateFrom_New + _CRMEstate_Leads_Immovables_Reservation_New.DateTo = _DateTo_New + _CRMEstate_Leads_Immovables_Reservation_New.CRMEstate_Leads_Immovables = _ocur.GetObject(_CRMEstate_Leads_Immovables) + _CRMEstate_Leads_Immovables_Reservation_New.ObjectCreated = GetSQLTime(_ocur.Session) + _CRMEstate_Leads_Immovables_Reservation_New.UserCreated = _ocur.GetObject(SecuritySystem.CurrentUser) + + _CRMEstate_Leads_Immovables_Reservation_New.Save() + _ocur.CommitChanges() + RaiseEvent CreateReservationReminder(_CRMEstate_Leads_Immovables_Reservation_New) + End If + Dim _HRPersonTasks As New HRPersonTasks(_ocur.Session) + With (_HRPersonTasks) + .AlertPeriod = _ocur.GetObject(_CRMEstate_Leads_Immovables_Reservation_Popup.AlertPeriod) + .HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _ocur.GetObject(TryCast(SecuritySystem.CurrentUser, User)))) + .Subject = _CRMEstate_Leads_Immovables.Immovables.DisplayName + .StartDate = _CRMEstate_Leads_Immovables_Reservation_Popup.DateFrom + .DueDate = _CRMEstate_Leads_Immovables_Reservation_Popup.DateTo + End With + _ocur.CommitChanges() + End Sub + Private Sub aCreateOpportunityRent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateOpportunityRent.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _IsExists As Boolean = False + Dim _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + + Dim _DocumentNumber As String = "" + Dim _CRMEstate_Leads_Immovables_ListEditor As ListPropertyEditor + + _CRMEstate_Leads_Immovables_ListEditor = TryCast(View, DetailView).FindItem("CRMEstate_Leads_Immovables") + + For Each _CRMEstate_Leads_Immovables In _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects + 'If _CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.NumberGenerator_Opportunity IsNot Nothing Then + ' _NumberGenerator_Opportunity = _CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.NumberGenerator_Opportunity + ' _DocumentNumber = _NumberGenerator_Opportunity.GetNewNumber(_NumberGenerator_Opportunity) + 'Else + ' Throw New UserFriendlyException("Nincs beállítva az ügy sorszám generálása !") + 'End If + + _IsExists = True + Exit For + Next + + If _IsExists Then + _CRMEstate_Opportunity = _ocur.CreateObject(Of CRMEstate_Opportunity)() + _CRMEstate_Opportunity.OpportunityType = eOpportunityType.eRent + '_CRMEstate_Opportunity.DocumentNumber = _DocumentNumber + _CRMEstate_Opportunity.CRMEstate_Leads = _CRMEstate_Leads + _CRMEstate_Opportunity.HRPerson = _CRMEstate_Leads.HRPerson + _CRMEstate_Opportunity.ObjectCreated = GetSQLTime(_ocur.Session) + _CRMEstate_Opportunity.Save() + For Each _CRMEstate_Leads_Immovables In _CRMEstate_Leads_Immovables_ListEditor.ListView.SelectedObjects + _CRMEstate_Opportunity_Immovables = _ocur.CreateObject(Of CRMEstate_Opportunity_Immovables)() + _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity = _CRMEstate_Opportunity + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables = _CRMEstate_Leads_Immovables + _CRMEstate_Opportunity_Immovables.Save() + Next + + _ocur.CommitChanges() + View.Refresh() + Else + Throw New UserFriendlyException("Nincs kiválasztva ingatlan !") + End If + End Sub + Private Sub aCreateNewCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateNewCRMEstate_Opportunity_AdvanceMoney.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Opportunity_Immovables) + Dim _CRMEstate_Opportunity_AdvanceMoney As CRMEstate_Opportunity_AdvanceMoney = _onew.CreateObject(Of CRMEstate_Opportunity_AdvanceMoney)() + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _onew.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _ + _onew.GetObjectByKey(Of ImmovablesGroups)(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.Oid))) + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs ingatlan csoport paraméter a " + _ + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.ShortName + " céghez!") + + If _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = False Then _ + Throw New Exception("*A kijelölt ingatlan (" & _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") már nincs eladható státuszban!") + + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables = TryCast(_onew.GetObject(_CRMEstate_Opportunity_Immovables), CRMEstate_Opportunity_Immovables) + _CRMEstate_Opportunity_AdvanceMoney.DateCreated = GetSQLTime(_ocur.Session) + _CRMEstate_Opportunity_AdvanceMoney.PaymentOption = _ImmovablesGroupsParameters.PaymentOption + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _CRMEstate_Opportunity_AdvanceMoney, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aFinalCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalCRMEstate_Opportunity_AdvanceMoney.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Contracts As Contracts + Dim _ContractRows As ContractRows + Dim _ContractTemplate_AdvanceMoney = Nothing + + Dim _CRMEstate_Opportunity_AdvanceMoney As CRMEstate_Opportunity_AdvanceMoney = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity_AdvanceMoney) + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups)) + + If _ImmovablesGroupsParameters IsNot Nothing Then + 'If _ImmovablesGroupsParameters.ContractTemplate_AdvanceMoney IsNot Nothing Then + ' _ContractTemplate_AdvanceMoney = _ImmovablesGroupsParameters.ContractTemplate_AdvanceMoney + 'Else + ' Throw New Exception("*A(z) " & _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom.Name & " céghez nincs megfelelő szándéknyilatkozat sablon az ajánlati sablonban! Kérjük ellenőrizze!") + 'End If + Else + Throw New Exception("*A(z) " & _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom.Name & " céghez nincs megfelelő sablon az ajánlati sablonban! Kérjük ellenőrizze!") + End If + + 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False) + '-- A tárgyban forgó ingatlanról levesszük az eladható státuszt + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = False + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save() + + 'Létrehozzuk a szerződést a foglalószámlához és a foglaló sort + + 'Szerződés fejléc létrehozása + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.ContractTemplate = _ContractTemplate_AdvanceMoney + _Contracts.State = State.Ready + _Contracts.CustomersFrom = _CRMEstate_Opportunity_AdvanceMoney.CustomersFrom + _Contracts.Customers = _CRMEstate_Opportunity_AdvanceMoney.Customers + _Contracts.DateCreated = GetSQLTime(_ocur.Session) + _Contracts.CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables + _Contracts.HRResponsible = _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity.HRPerson + _Contracts.ShortName = _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity.Description + _Contracts.JobNumberObjects = _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.JobNumberObjects + _Contracts.ShortName = "Ingatlan értékesítés" + _Contracts.Save() + + 'Szerződési sor hozzáadása + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.Controlling = _ImmovablesGroupsParameters.Controlling_AdvanceMoney + _ContractRows.CostHolder = _ImmovablesGroupsParameters.CostHolder + _ContractRows.CostPlace = _ImmovablesGroupsParameters.CostPlace + _ContractRows.JobNumberObjects = _Contracts.JobNumberObjects + _ContractRows.DateExecution = _CRMEstate_Opportunity_AdvanceMoney.DateCreated + _ContractRows.PaymentOption = _CRMEstate_Opportunity_AdvanceMoney.PaymentOption + _ContractRows.ContractRowsType = eContractRowsType.eAdvance + _ContractRows.CurrencyName = _CRMEstate_Opportunity_AdvanceMoney.CurrencyName + _ContractRows.CurrencyRate = 1 + _ContractRows.ShortName = "Foglaló" + _ContractRows.UniqueObjects = _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName = 'DB'")) + _ContractRows.VAT = _ImmovablesGroupsParameters.VAT + _ContractRows.QTT = 1 + + _ContractRows.NettoPriceHUF = _CRMEstate_Opportunity_AdvanceMoney.AmountHUF - (_CRMEstate_Opportunity_AdvanceMoney.AmountHUF / (100 + _ImmovablesGroupsParameters.VAT.KeyValuePercent) _ + * _ImmovablesGroupsParameters.VAT.KeyValuePercent) + _ContractRows.NettoPriceDEV = _CRMEstate_Opportunity_AdvanceMoney.AmountDEV - (_CRMEstate_Opportunity_AdvanceMoney.AmountDEV / (100 + _ImmovablesGroupsParameters.VAT.KeyValuePercent) _ + * _ImmovablesGroupsParameters.VAT.KeyValuePercent) + '_ContractRows.NettoPriceHUF = _CRMEstate_Opportunity_AdvanceMoney.AmountHUF + '_ContractRows.NettoPriceDEV = _CRMEstate_Opportunity_AdvanceMoney.AmountDEV + _ContractRows.Save() + + _CRMEstate_Opportunity_AdvanceMoney.ContractRows = _ContractRows + _CRMEstate_Opportunity_AdvanceMoney.Save() + + + _ocur.CommitChanges() + 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True) + View.Close() + End Sub + Private Sub aDeleteCRMEstate_Opportunity_AdvanceMoney_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteCRMEstate_Opportunity_AdvanceMoney.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Opportunity_AdvanceMoney As CRMEstate_Opportunity_AdvanceMoney = TryCast(e.SelectedObjects(0), CRMEstate_Opportunity_AdvanceMoney) + Dim _ContractsCollection As XPCollection = _ocur.CreateCollection(GetType(Contracts), CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables=?", _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables)) + Dim _ContractRowsCollection As xpcollection + Dim _InOperator As New InOperator + + ' -- Szerződésekről kiállított számlák ellenőrzése + For Each _Contracts As Contracts In _ContractsCollection + For Each _ContractRows As ContractRows In _Contracts.ContractRows + If _ContractRows.InvoiceRows IsNot Nothing Then + Throw New Exception("*Az értékesítési szerződésről már készült számla (" & _ContractRows.InvoiceRows.InvoiceHeader.DocumentNumber & ")! A szándéknyilatkozat törléséhez ezt stornózni kell!") + End If + Next + Next + + ' -- A szándéknyilatkozatról kiállított számla ellenőrzése + If _CRMEstate_Opportunity_AdvanceMoney.ContractRows IsNot Nothing Then + 'Ha számlázva lett akkor előbb le kell stornózni addig nem törölhető! + If _CRMEstate_Opportunity_AdvanceMoney.ContractRows.InvoiceRows IsNot Nothing Then + Throw New Exception("*A nyilatkozat alapján már ki lett állítva egy számla (" & _CRMEstate_Opportunity_AdvanceMoney.ContractRows.InvoiceRows.InvoiceHeader.DocumentNumber & ") kérjük stornózza a számlát mielőtt törli a nyilatkozatot!") + Else + _CRMEstate_Opportunity_AdvanceMoney.ContractRows.Contracts.Delete() + _CRMEstate_Opportunity_AdvanceMoney.ContractRows.Delete() + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = True + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save() + _CRMEstate_Opportunity_AdvanceMoney.Delete() + End If + Else + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.CanForSale = True + _CRMEstate_Opportunity_AdvanceMoney.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.Save() + _CRMEstate_Opportunity_AdvanceMoney.Delete() + End If + + ' -- Szerződési sorok összegyűjtése, ha nem volt ex akkor ezeket is törölni kell + + _ContractRowsCollection = _ocur.CreateCollection(GetType(ContractRows), New InOperator("Contracts", _ContractsCollection)) + + '-- + + _ocur.Delete(_ContractRowsCollection) ' -- sorok törlése + _ocur.Delete(_ContractsCollection) ' -- szerződések törlése + _ocur.CommitChanges() + + If TryCast(View, DetailView) IsNot Nothing Then + View.Close(False) + Else + View.Refresh() + End If + End Sub + Private Sub aSelectImmovables_Apartments_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSelectImmovables_Apartments.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRMEstate_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA + Dim _ExistingCRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'segédváltozó aminek akkor van értéke ha már létezik ingatlan lehetőség az aktuális ingatlanra + + For Each _ImmovablesPriceListRowsA In View.SelectedObjects + _ExistingCRMEstate_Leads_Immovables = _ocur.FindObject(Of CRMEstate_Leads_Immovables)(CriteriaOperator.Parse("Immovables=? AND CRMEstate_Leads=?", TryCast(_ImmovablesPriceListRowsA.Apartments, Immovables), _CRMEstate_Leads)) + If _ExistingCRMEstate_Leads_Immovables Is Nothing Then + _CRMEstate_Leads_Immovables = _ocur.CreateObject(Of CRMEstate_Leads_Immovables)() + _CRMEstate_Leads_Immovables.CRMEstate_Leads = _CRMEstate_Leads + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters) _ + (CriteriaOperator.Parse("ImmovablesGroups=? AND CustomersFrom.Oid=?" _ + , _ImmovablesPriceListRowsA.Apartments.ImmovableGroups, _ImmovablesPriceListRowsA.Apartments.CustomersOwner.Oid)) + If _ImmovablesGroupsParameters IsNot Nothing Then + _CRMEstate_Leads_Immovables.VAT = _ImmovablesGroupsParameters.VAT + Else + _CRMEstate_Leads_Immovables.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End If + + _CRMEstate_Leads_Immovables.Immovables = TryCast(_ImmovablesPriceListRowsA.Apartments, Immovables) + _CRMEstate_Leads_Immovables.AreaPriceDivide = 30 + + _CRMEstate_Leads_Immovables.AreaListPriceBruttoDEV = _ImmovablesPriceListRowsA.AreaListPriceBruttoDEV + _CRMEstate_Leads_Immovables.AreaListPriceBruttoDEVRent = _ImmovablesPriceListRowsA.AreaListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.AreaListPriceBruttoHUF = _ImmovablesPriceListRowsA.AreaListPriceBruttoHUF + _CRMEstate_Leads_Immovables.AreaListPriceBruttoHUFRent = _ImmovablesPriceListRowsA.AreaListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.AreaListPriceNettoDEV = _ImmovablesPriceListRowsA.AreaListPriceNettoDEV + _CRMEstate_Leads_Immovables.AreaListPriceNettoDEVRent = _ImmovablesPriceListRowsA.AreaListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.AreaListPriceNettoHUF = _ImmovablesPriceListRowsA.AreaListPriceNettoHUF + _CRMEstate_Leads_Immovables.AreaListPriceNettoHUFRent = _ImmovablesPriceListRowsA.AreaListPriceNettoHUFRent + + _CRMEstate_Leads_Immovables.ListPriceBruttoDEV = _ImmovablesPriceListRowsA.ListPriceBruttoDEV + _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent = _ImmovablesPriceListRowsA.ListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.ListPriceBruttoHUF = _ImmovablesPriceListRowsA.ListPriceBruttoHUF + _CRMEstate_Leads_Immovables.ListPriceBruttoHUFRent = _ImmovablesPriceListRowsA.ListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.ListPriceNettoDEV = _ImmovablesPriceListRowsA.ListPriceNettoDEV + _CRMEstate_Leads_Immovables.ListPriceNettoDEVRent = _ImmovablesPriceListRowsA.ListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.ListPriceNettoHUF = _ImmovablesPriceListRowsA.ListPriceNettoHUF + _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent = _ImmovablesPriceListRowsA.ListPriceNettoHUFRent + + If _CRMEstate_Leads_Immovables.Immovables IsNot Nothing Then + If TryCast(_CRMEstate_Leads_Immovables.Immovables, Apartments) IsNot Nothing Then + _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF = Math.Round((Math.Round((TryCast(_CRMEstate_Leads_Immovables.Immovables, Apartments).AreaPriceNettoHUF * TryCast(_CRMEstate_Leads_Immovables.Immovables, Apartments).AreaNettoForSale), 0, MidpointRounding.AwayFromZero) * (_CRMEstate_Leads_Immovables.AreaPriceDivide / 100)), 0, MidpointRounding.AwayFromZero) + _CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF = (TryCast(_CRMEstate_Leads_Immovables.Immovables, Apartments).AreaPriceNettoHUF * TryCast(_CRMEstate_Leads_Immovables.Immovables, Apartments).AreaNettoForSale) - _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF + End If + If TryCast(_CRMEstate_Leads_Immovables.Immovables, Offices) IsNot Nothing Then + _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF = Math.Round((Math.Round((TryCast(_CRMEstate_Leads_Immovables.Immovables, Offices).AreaPriceNettoHUF * TryCast(_CRMEstate_Leads_Immovables.Immovables, Offices).AreaNettoForSale), 0, MidpointRounding.AwayFromZero) * (_CRMEstate_Leads_Immovables.AreaPriceDivide / 100)), 0, MidpointRounding.AwayFromZero) + _CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF = (TryCast(_CRMEstate_Leads_Immovables.Immovables, Offices).AreaPriceNettoHUF * TryCast(_CRMEstate_Leads_Immovables.Immovables, Offices).AreaNettoForSale) - _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF + End If + If TryCast(_CRMEstate_Leads_Immovables.Immovables, Container) IsNot Nothing Then + _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF = Math.Round(((TryCast(_CRMEstate_Leads_Immovables.Immovables, Container).PriceNettoHUF) * (_CRMEstate_Leads_Immovables.AreaPriceDivide / 100)), 0, MidpointRounding.AwayFromZero) + _CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF = TryCast(_CRMEstate_Leads_Immovables.Immovables, Container).PriceNettoHUF - _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF + End If + If TryCast(_CRMEstate_Leads_Immovables.Immovables, Garages) IsNot Nothing Then + _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF = Math.Round(((TryCast(_CRMEstate_Leads_Immovables.Immovables, Garages).PriceNettoHUF) * (_CRMEstate_Leads_Immovables.AreaPriceDivide / 100)), 0, MidpointRounding.AwayFromZero) + _CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF = TryCast(_CRMEstate_Leads_Immovables.Immovables, Garages).PriceNettoHUF - _CRMEstate_Leads_Immovables.ParcelPriceNettoHUF + End If + End If + + _CRMEstate_Leads_Immovables.Save() + End If + Next + + _ocur.CommitChanges() + View.Refresh() + End Sub + Private Sub aSelectImmovables_Offices_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSelectImmovables_Offices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRMEstate_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO + Dim _ExistingCRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'segédváltozó aminek akkor van értéke ha már létezik ingatlan lehetőség az aktuális ingatlanra + + For Each _ImmovablesPriceListRowsO In View.SelectedObjects + _ExistingCRMEstate_Leads_Immovables = _ocur.FindObject(Of CRMEstate_Leads_Immovables)(CriteriaOperator.Parse("Immovables=? AND CRMEstate_Leads=?", TryCast(_ImmovablesPriceListRowsO.Offices, Immovables), _CRMEstate_Leads)) + If _ExistingCRMEstate_Leads_Immovables Is Nothing Then + _CRMEstate_Leads_Immovables = _ocur.CreateObject(Of CRMEstate_Leads_Immovables)() + _CRMEstate_Leads_Immovables.CRMEstate_Leads = _CRMEstate_Leads + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters) _ + (CriteriaOperator.Parse("ImmovablesGroups=? AND CustomersFrom.Oid=?" _ + , _ImmovablesPriceListRowsO.Offices.ImmovableGroups, _ImmovablesPriceListRowsO.Offices.CustomersOwner.Oid)) + If _ImmovablesGroupsParameters IsNot Nothing Then + _CRMEstate_Leads_Immovables.VAT = _ImmovablesGroupsParameters.VAT + Else + _CRMEstate_Leads_Immovables.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End If + _CRMEstate_Leads_Immovables.Immovables = TryCast(_ImmovablesPriceListRowsO.Offices, Immovables) + + _CRMEstate_Leads_Immovables.AreaListPriceBruttoDEV = _ImmovablesPriceListRowsO.AreaListPriceBruttoDEV + _CRMEstate_Leads_Immovables.AreaListPriceBruttoDEVRent = _ImmovablesPriceListRowsO.AreaListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.AreaListPriceBruttoHUF = _ImmovablesPriceListRowsO.AreaListPriceBruttoHUF + _CRMEstate_Leads_Immovables.AreaListPriceBruttoHUFRent = _ImmovablesPriceListRowsO.AreaListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.AreaListPriceNettoDEV = _ImmovablesPriceListRowsO.AreaListPriceNettoDEV + _CRMEstate_Leads_Immovables.AreaListPriceNettoDEVRent = _ImmovablesPriceListRowsO.AreaListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.AreaListPriceNettoHUF = _ImmovablesPriceListRowsO.AreaListPriceNettoHUF + _CRMEstate_Leads_Immovables.AreaListPriceNettoHUFRent = _ImmovablesPriceListRowsO.AreaListPriceNettoHUFRent + + _CRMEstate_Leads_Immovables.ListPriceBruttoDEV = _ImmovablesPriceListRowsO.ListPriceBruttoDEV + _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent = _ImmovablesPriceListRowsO.ListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.ListPriceBruttoHUF = _ImmovablesPriceListRowsO.ListPriceBruttoHUF + _CRMEstate_Leads_Immovables.ListPriceBruttoHUFRent = _ImmovablesPriceListRowsO.ListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.ListPriceNettoDEV = _ImmovablesPriceListRowsO.ListPriceNettoDEV + _CRMEstate_Leads_Immovables.ListPriceNettoDEVRent = _ImmovablesPriceListRowsO.ListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.ListPriceNettoHUF = _ImmovablesPriceListRowsO.ListPriceNettoHUF + _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent = _ImmovablesPriceListRowsO.ListPriceNettoHUFRent + + _CRMEstate_Leads_Immovables.Save() + End If + Next + + _ocur.CommitChanges() + View.Refresh() + + End Sub + Private Sub aSelectImmovables_Garages_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSelectImmovables_Garages.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRMEstate_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG + Dim _ExistingCRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'segédváltozó aminek akkor van értéke ha már létezik ingatlan lehetőség az aktuális ingatlanra + + For Each _ImmovablesPriceListRowsG In View.SelectedObjects + _ExistingCRMEstate_Leads_Immovables = _ocur.FindObject(Of CRMEstate_Leads_Immovables)(CriteriaOperator.Parse("Immovables=? AND CRMEstate_Leads=?", TryCast(_ImmovablesPriceListRowsG.Garages, Immovables), _CRMEstate_Leads)) + If _ExistingCRMEstate_Leads_Immovables Is Nothing Then + _CRMEstate_Leads_Immovables = _ocur.CreateObject(Of CRMEstate_Leads_Immovables)() + _CRMEstate_Leads_Immovables.CRMEstate_Leads = _CRMEstate_Leads + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters) _ + (CriteriaOperator.Parse("ImmovablesGroups=? AND CustomersFrom.Oid=?" _ + , _ImmovablesPriceListRowsG.Garages.ImmovableGroups, _ImmovablesPriceListRowsG.Garages.CustomersOwner.Oid)) + If _ImmovablesGroupsParameters IsNot Nothing Then + _CRMEstate_Leads_Immovables.VAT = _ImmovablesGroupsParameters.VAT + Else + _CRMEstate_Leads_Immovables.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End If + + _CRMEstate_Leads_Immovables.Immovables = TryCast(_ImmovablesPriceListRowsG.Garages, Immovables) + + _CRMEstate_Leads_Immovables.AreaPriceDivide = 30 + + _CRMEstate_Leads_Immovables.ListPriceBruttoDEV = _ImmovablesPriceListRowsG.ListPriceBruttoDEV + _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent = _ImmovablesPriceListRowsG.ListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.ListPriceBruttoHUF = _ImmovablesPriceListRowsG.ListPriceBruttoHUF + _CRMEstate_Leads_Immovables.ListPriceBruttoHUFRent = _ImmovablesPriceListRowsG.ListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.ListPriceNettoDEV = _ImmovablesPriceListRowsG.ListPriceNettoDEV + _CRMEstate_Leads_Immovables.ListPriceNettoDEVRent = _ImmovablesPriceListRowsG.ListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.ListPriceNettoHUF = _ImmovablesPriceListRowsG.ListPriceNettoHUF + _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent = _ImmovablesPriceListRowsG.ListPriceNettoHUFRent + + _CRMEstate_Leads_Immovables.Save() + End If + Next + + _ocur.CommitChanges() + View.Refresh() + + End Sub + Private Sub aSelectImmovables_Container_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSelectImmovables_Container.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRMEstate_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRMEstate_Leads) + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC + Dim _ExistingCRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'segédváltozó aminek akkor van értéke ha már létezik ingatlan lehetőség az aktuális ingatlanra + + For Each _ImmovablesPriceListRowsC In View.SelectedObjects + _ExistingCRMEstate_Leads_Immovables = _ocur.FindObject(Of CRMEstate_Leads_Immovables)(CriteriaOperator.Parse("Immovables=? AND CRMEstate_Leads=?", TryCast(_ImmovablesPriceListRowsC.Container, Immovables), _CRMEstate_Leads)) + If _ExistingCRMEstate_Leads_Immovables Is Nothing Then + _CRMEstate_Leads_Immovables = _ocur.CreateObject(Of CRMEstate_Leads_Immovables)() + _CRMEstate_Leads_Immovables.CRMEstate_Leads = _CRMEstate_Leads + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters) _ + (CriteriaOperator.Parse("ImmovablesGroups=? AND CustomersFrom.Oid=?" _ + , _ImmovablesPriceListRowsC.Container.ImmovableGroups, _ImmovablesPriceListRowsC.Container.CustomersOwner.Oid)) + If _ImmovablesGroupsParameters IsNot Nothing Then + _CRMEstate_Leads_Immovables.VAT = _ImmovablesGroupsParameters.VAT + Else + _CRMEstate_Leads_Immovables.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End If + + _CRMEstate_Leads_Immovables.Immovables = TryCast(_ImmovablesPriceListRowsC.Container, Immovables) + + _CRMEstate_Leads_Immovables.AreaPriceDivide = 30 + + _CRMEstate_Leads_Immovables.ListPriceBruttoDEV = _ImmovablesPriceListRowsC.ListPriceBruttoDEV + _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent = _ImmovablesPriceListRowsC.ListPriceBruttoDEVRent + _CRMEstate_Leads_Immovables.ListPriceBruttoHUF = _ImmovablesPriceListRowsC.ListPriceBruttoHUF + _CRMEstate_Leads_Immovables.ListPriceBruttoHUFRent = _ImmovablesPriceListRowsC.ListPriceBruttoHUFRent + _CRMEstate_Leads_Immovables.ListPriceNettoDEV = _ImmovablesPriceListRowsC.ListPriceNettoDEV + _CRMEstate_Leads_Immovables.ListPriceNettoDEVRent = _ImmovablesPriceListRowsC.ListPriceNettoDEVRent + _CRMEstate_Leads_Immovables.ListPriceNettoHUF = _ImmovablesPriceListRowsC.ListPriceNettoHUF + _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent = _ImmovablesPriceListRowsC.ListPriceNettoHUFRent + + _CRMEstate_Leads_Immovables.Save() + End If + Next + + _ocur.CommitChanges() + View.Refresh() + + End Sub + Private Sub CRMEstate_Leads_DetailView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CRMEstate_Leads As CRMEstate_Leads = TryCast(View.SelectedObjects(0), CRMEstate_Leads) + If _CRMEstate_Leads.CRMEstate_Opportunity.Count > 0 Then Throw New Exception("*Nem lehet törölni a kiválasztott potenciális ügyfelet, mert tartozik hozzá CRM ügy!" & _ + vbNewLine & "Előbb törölnie kell a meglévő CRM ügyet!") + Catch ex As Exception + e.Cancel = True + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub CRMEstate_Leads_CRMEstate_Opportunity_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + For Each _CRMEstate_Opportunity As CRMEstate_Opportunity In View.SelectedObjects + If _CRMEstate_Opportunity.Contracts.Count > 0 Then Throw New Exception("*Nem lehet törölni egy vagy több CRM ügyet, készült(ek) szerződés(ek)!" & _ + vbNewLine & "Előbb a szerződéseket kell törölnie!") + Next + Catch ex As Exception + e.Cancel = True + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCreateNewCRMEstate_Opportunity_Payment_Forecast_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateNewCRMEstate_Opportunity_Payment_Forecast.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + If _CRMEstate_Opportunity_Immovables Is Nothing Then Throw New Exception("*Nincs kiválasztva ingatlan!") + Dim _CRMEstate_Opportunity_Payment_Forecast_Collection As New XPCollection(Of CRMEstate_Opportunity_Payment_Forecast)(_onew.Session, _ + CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables=?", _onew.GetObjectByKey(Of CRMEstate_Opportunity_Immovables)(_CRMEstate_Opportunity_Immovables.Oid))) + + Dim _SumPricePercent As Double + For Each _CRMEstateOPF As CRMEstate_Opportunity_Payment_Forecast In _CRMEstate_Opportunity_Payment_Forecast_Collection + _SumPricePercent += _CRMEstateOPF.SumPricePercent + Next + + If _SumPricePercent >= 100 Then Throw New Exception("*Nem lehet újabb fizetési ütemezést felvinni mert a teljes összegre készült már ütemezés!") + + Dim _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast = _onew.CreateObject(Of CRMEstate_Opportunity_Payment_Forecast)() + + _CRMEstate_Opportunity_Payment_Forecast.CRMEstate_Opportunity_Immovables = _onew.GetObjectByKey(Of CRMEstate_Opportunity_Immovables)(_CRMEstate_Opportunity_Immovables.Oid) + _CRMEstate_Opportunity_Payment_Forecast.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _onew.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _ + _onew.GetObjectByKey(Of ImmovablesGroups)(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.Oid))) + If _ImmovablesGroupsParameters IsNot Nothing Then + _CRMEstate_Opportunity_Payment_Forecast.CustomersFrom = _ImmovablesGroupsParameters.CustomersFrom + End If + + _CRMEstate_Opportunity_Payment_Forecast.DateExecution = GetSQLTime(_onew.Session) + + + _CRMEstate_Opportunity_Payment_Forecast.RowIndex = _CRMEstate_Opportunity_Payment_Forecast_Collection.Count + 1 + _CRMEstate_Opportunity_Payment_Forecast.SumPriceBruttoHUF = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.ListPriceBruttoHUF + _CRMEstate_Opportunity_Payment_Forecast.SumPricePercent = 100 - _SumPricePercent + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRMEstate_Opportunity_Payment_Forecast_DetailView", True, _CRMEstate_Opportunity_Payment_Forecast) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + For Each _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast In View.SelectedObjects + + If _CRMEstate_Opportunity_Payment_Forecast.ContractRows IsNot Nothing Then + e.Cancel = True + Throw New Exception("*A kiválasztott sorok közt van olyan amiről készült már szerződési sor!" + vbNewLine + "Törlés előtt a szerződést kell stornózni!") + End If + Next + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateContractRent_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractRent.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ContractTemplate)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("IsImmovables='True'")) + _CS.EndUpdateCriteria() + + If _CS.List.Count = 0 Then Throw New Exception("*Nincs egyetlen olyan szerződés sablon sem, amely használható lenne!") + + e.View = Application.CreateListView("ContractTemplate_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateContractRent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractRent.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + Dim _ContractTemplateRent As ContractTemplate = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate) + Dim _ContractRows As ContractRows + Dim _Contracts As Contracts + Dim _CRMEstate_Opportunity_Immovables_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("CRMEstate_Opportunity_Immovables") + + Dim _NumberOfMonths As Long + + For Each _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity_Immovables_ListEditor.ListView.SelectedObjects + + For Each _CRMEstate_Opportunity_Rent As CRMEstate_Opportunity_Rent In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Rent + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups)) + + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs beállítva paraméter a(z) " + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.ShortName + _ + " ingatlancsoporthoz!" + vbNewLine + "Kérem ellenőrizze!") + + For Each _CRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Customers + + _Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("Customers=? AND CRMEstate_Opportunity_Immovables=?", _CRMEstate_Opportunity_Customers.Customers, _CRMEstate_Opportunity_Immovables)) + + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.State = State.Ready + _Contracts.DocumentNumber = _ContractTemplateRent.NumberGenerator.GetNewNumber(_ContractTemplateRent.NumberGenerator) + _Contracts.CustomersFrom = _CRMEstate_Opportunity_Rent.CustomersFrom + _Contracts.Customers = _CRMEstate_Opportunity_Customers.Customers + _Contracts.DateCreated = GetSQLTime(_ocur.Session) + _Contracts.ShortName = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & " Bérleti szerződés" + _Contracts.CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity_Immovables + _Contracts.UniqueObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects + _Contracts.DateExecution = _CRMEstate_Opportunity_Rent.DateStart + _Contracts.DateExpectClose = _CRMEstate_Opportunity_Rent.DateStop + _Contracts.ContractTemplate = _ocur.GetObjectByKey(Of ContractTemplate)(_ContractTemplateRent.Oid) + _Contracts.HRResponsible = _CRMEstate_Opportunity.HRPerson + _Contracts.CurrencyName = _CRMEstate_Opportunity_Rent.CurrencyName + _Contracts.CurrencyName_Invoice = _CRMEstate_Opportunity_Rent.CurrencyName + _Contracts.JobNumberObjects = _ImmovablesGroupsParameters.ImmovablesGroups.JobNumberObjects + _NumberOfMonths = DateDiff(DateInterval.Month, _CRMEstate_Opportunity_Rent.DateStart, _CRMEstate_Opportunity_Rent.DateStop) + End If + + For i = 1 To _NumberOfMonths + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.DateExecution = CDate(_CRMEstate_Opportunity_Rent.DateStart.AddMonths(i).Year & "/" & _CRMEstate_Opportunity_Rent.DateStart.AddMonths(i).Month & "/" & _CRMEstate_Opportunity_Rent.DayOfExecution) + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.Controlling = _ImmovablesGroupsParameters.Controlling_Rent + _ContractRows.CostHolder = _ImmovablesGroupsParameters.CostHolder + _ContractRows.CostPlace = _ImmovablesGroupsParameters.CostPlace + _ContractRows.CurrencyName = _CRMEstate_Opportunity_Rent.CurrencyName + _ContractRows.ShortName = "Bértleti díj " & _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name + _ContractRows.UniqueObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects + _ContractRows.JobNumberObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.JobNumberObjects + _ContractRows.NettoPriceDEV = _CRMEstate_Opportunity_Rent.AmountNettoDEV + _ContractRows.NettoPriceHUF = _CRMEstate_Opportunity_Rent.AmountNettoHUF + _ContractRows.PaymentOption = _ImmovablesGroupsParameters.PaymentOption + _ContractRows.QTT = 1 + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName LIKE '%DB%'")) + _ContractRows.VAT = _ImmovablesGroupsParameters.VAT + _ContractRows.UniqueObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects + _CRMEstate_Opportunity_Rent.Contracts = _Contracts + Next + Next + Next + Next + + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateContractSold_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractSold.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ContractTemplate)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("IsImmovables='True'")) + _CS.EndUpdateCriteria() + + If _CS.List.Count = 0 Then Throw New Exception("*Nincs egyetlen olyan szerződés sablon sem, amely használható lenne!") + + e.View = Application.CreateListView("ContractTemplate_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateContractSold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractSold.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + Dim _Contracts As Contracts + Dim _ContractRows As ContractRows + Dim _CRMEstate_Opportunity_Immovables_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("CRMEstate_Opportunity_Immovables") + Dim _ContractTemplateSold As ContractTemplate = _ocur.GetObjectByKey(Of ContractTemplate)(TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate).Oid) + + 'Ellenőrzések + For Each _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity_Immovables_ListEditor.ListView.SelectedObjects + 'Szándéknyilatkozat + If _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_AdvanceMoney.Count = 0 Then _ + Throw New Exception("*Nincs kitötltött szándéknyilatkozat a(z) (" & _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") ingatlanra! Kérjük ellenőrizze!") + + ' -- Tulajdoni hányadok ellenőrzése + Dim _RigthQuota As Int32 = 0 + For Each _CRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Customers + _RigthQuota += _CRMEstate_Opportunity_Customers.RightQuota + Next + If Not _RigthQuota = 100 Then Throw New Exception("*A tulajdoni hányadok nem adják ki a 100%-ot kérjük ellenőrizze!") + + ' -- Fizetési ütemezés ellenőrzése + + Dim _ForeCastSUM As Int32 = 0 + Dim _ForeCastSUM_Calc As Int32 = 0 + For Each _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Payment_Forecast + _ForeCastSUM += _CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF + Next + + If TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Apartments) IsNot Nothing Then + _ForeCastSUM_Calc = Math.Round((TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Apartments).AreaNettoForSale * _ + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.AreaListPriceNettoHUF), 0, MidpointRounding.AwayFromZero) + + If _ForeCastSUM < _ForeCastSUM_Calc - 100 Or _ForeCastSUM > _ForeCastSUM_Calc + 100 Then _ + Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + End If + + If TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Offices) IsNot Nothing Then + _ForeCastSUM_Calc = Math.Round((TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Offices).AreaNettoForSale * _ + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.AreaListPriceNettoHUF), 0, MidpointRounding.AwayFromZero) + + If _ForeCastSUM < _ForeCastSUM_Calc - 100 Or _ForeCastSUM > _ForeCastSUM_Calc + 100 Then _ + Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + End If + + If TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Garages) IsNot Nothing Then + If Not _ForeCastSUM = TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Garages).PriceNettoHUF Then _ + Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + End If + + If TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Container) IsNot Nothing Then + If Not _ForeCastSUM = TryCast(_CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables, Container).PriceNettoHUF Then _ + Throw New Exception("*A fizetési ütemezés nem fedi a teljes vételárat! Kérjük ellenőrizze!") + End If + Next + + 'Szerződések elkészítése + For Each _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity_Immovables_ListEditor.ListView.SelectedObjects + For Each _CRMEstate_Opportunity_Payment_Forecast As CRMEstate_Opportunity_Payment_Forecast In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Payment_Forecast + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups)) + + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs beállítva paraméter a(z) " + _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.ShortName + _ + " ingatlancsoporthoz!" + vbNewLine + "Kérem ellenőrizze!") + For Each _CRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers In _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_Customers + + _Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables=? AND Customers=?", _CRMEstate_Opportunity_Immovables, _CRMEstate_Opportunity_Customers.Customers)) + + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.ContractTemplate = _ContractTemplateSold + _Contracts.State = State.Ready + _Contracts.DocumentNumber = _ContractTemplateSold.NumberGenerator.GetNewNumber(_ContractTemplateSold.NumberGenerator) + _Contracts.CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity_Immovables + _Contracts.CustomersFrom = _CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity_AdvanceMoney(0).CustomersFrom + _Contracts.Customers = _CRMEstate_Opportunity_Customers.Customers + _Contracts.ShortName = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & " adásvételi szerződés" + _Contracts.CurrencyName = _CRMEstate_Opportunity_Payment_Forecast.CurrencyName + _Contracts.CurrencyName_Invoice = _CRMEstate_Opportunity_Payment_Forecast.CurrencyName + _Contracts.CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity_Immovables + + End If + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.JobNumberObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups.JobNumberObjects + _ContractRows.DateExecution = GetSQLTime(_ocur.Session) + _ContractRows.ContractRowsType = eContractRowsType.eAdvance + _ContractRows.Controlling = _ImmovablesGroupsParameters.Controlling_Final + _ContractRows.CostHolder = _ImmovablesGroupsParameters.CostHolder + _ContractRows.CostPlace = _ImmovablesGroupsParameters.CostPlace + _ContractRows.NettoPriceHUF = Math.Round((_CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF * (_CRMEstate_Opportunity_Customers.RightQuota / 100)), 0, MidpointRounding.AwayFromZero) + _ContractRows.VAT = _ImmovablesGroupsParameters.VAT + _ContractRows.UniqueObjects = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects + _ContractRows.PaymentOption = _ImmovablesGroupsParameters.PaymentOption + _ContractRows.ShortName = _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & " előleg" + Next + Next + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_FirstMeet.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_FirstMeet.vb new file mode 100644 index 0000000..a4f1e60 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_FirstMeet.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + + _ + _ + _ +Public Class CRMEstate_FirstMeet 'Hol tallkozott velnk elszr + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property Shortname As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads.vb new file mode 100644 index 0000000..0c0b4e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads.vb @@ -0,0 +1,394 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ +' _ +' +' _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ +Public Class CRMEstate_Leads + Inherits BaseObject + Private _FirstName As String 'Keresztnv + Private _LastName As String 'Vezetknv + Private _EMail As String 'e-mail cm + Private _Mobile As String 'mobil telefon + Private _Contacts As Contacts 'Kapcsolat + Private _CRMEstate_FirstMeet As CRMEstate_FirstMeet 'Hol tallkozott elszr + Private _LeadSource As eLeadSource + Private _PreferredContactMethod As ePreferredContactMethod + Private _LeadStatus As eLeadStatus + Private _ImmovablesTypes As eImmovablesTypes + Private _HRPerson As HRPerson + Private _ObjectCreated As Date + Private _UserCreated As User + Private _DocumentBody As String + Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Not SecuritySystem.CurrentUser Is Nothing Then + Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser)) + End If + FirstName = "" + LastName = "" + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ImmovablesPriceListHeader As ImmovablesPriceListHeader + Get + Return _ImmovablesPriceListHeader + End Get + Set(value As ImmovablesPriceListHeader) + SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + _ + Property FirstName As String + Get + Return _FirstName + End Get + Set(ByVal value As String) + SetPropertyValue("FirstName", _FirstName, value) + End Set + End Property + _ + Property LastName As String + Get + Return _LastName + End Get + Set(ByVal value As String) + SetPropertyValue("LastName", _LastName, value) + End Set + End Property + Property EMail As String + Get + Return _EMail + End Get + Set(value As String) + SetPropertyValue("EMail", _EMail, value) + End Set + End Property + Property Mobile As String + Get + Return _Mobile + End Get + Set(value As String) + SetPropertyValue("Mobile", _Mobile, value) + End Set + End Property + Property CRMEstate_FirstMeet As CRMEstate_FirstMeet + Get + Return _CRMEstate_FirstMeet + End Get + Set(ByVal value As CRMEstate_FirstMeet) + SetPropertyValue("CRMEstate_FirstMeet", _CRMEstate_FirstMeet, value) + End Set + End Property + Property LeadSource As eLeadSource + Get + Return _LeadSource + End Get + Set(ByVal value As eLeadSource) + SetPropertyValue("LeadSource", _LeadSource, value) + End Set + End Property + Property PreferredContactMethod As ePreferredContactMethod + Get + Return _PreferredContactMethod + End Get + Set(ByVal value As ePreferredContactMethod) + SetPropertyValue("PreferredContactMethod", _PreferredContactMethod, value) + End Set + End Property + Property LeadStatus As eLeadStatus + Get + Return _LeadStatus + End Get + Set(ByVal value As eLeadStatus) + SetPropertyValue("LeadStatus", _LeadStatus, value) + End Set + End Property + _ + Property ImmovablesTypes As eImmovablesTypes + Get + Return _ImmovablesTypes + End Get + Set(ByVal value As eImmovablesTypes) + SetPropertyValue("ImmovablesTypes", _ImmovablesTypes, value) + End Set + End Property + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + + '---------ReadOnly---------------- + _ + ReadOnly Property CRMEstate_Opportunity As XPCollection(Of CRMEstate_Opportunity) + Get + Return New XPCollection(Of CRMEstate_Opportunity)(Session, CriteriaOperator.Parse("CRMEstate_Leads=?", Me)) + End Get + End Property + _ + ReadOnly Property Apartments As XPCollection(Of ImmovablesPriceListRowsA) + Get + Return New XPCollection(Of ImmovablesPriceListRowsA)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", Me.ImmovablesPriceListHeader)) + End Get + End Property + _ + ReadOnly Property Offices As XPCollection(Of ImmovablesPriceListRowsO) + Get + Return New XPCollection(Of ImmovablesPriceListRowsO)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader)) + End Get + End Property + _ + ReadOnly Property Garages As XPCollection(Of ImmovablesPriceListRowsG) + Get + Return New XPCollection(Of ImmovablesPriceListRowsG)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader)) + End Get + End Property + _ + ReadOnly Property Container As XPCollection(Of ImmovablesPriceListRowsC) + Get + Return New XPCollection(Of ImmovablesPriceListRowsC)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader)) + End Get + End Property + _ + ReadOnly Property StudentHostel As XPCollection(Of StudentHostel) + Get + Return New XPCollection(Of StudentHostel)(Session, CriteriaOperator.Parse("CanForSale=True")) + End Get + End Property + _ + ReadOnly Property CRMEstate_Leads_Immovables As XPCollection(Of CRMEstate_Leads_Immovables) + Get + Return GetCollection(Of CRMEstate_Leads_Immovables)("CRMEstate_Leads_Immovables") + End Get + End Property + _ + ReadOnly Property Selected_Apartments As XPCollection(Of Apartments) + Get + Dim _Criteria As String = "" + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + + If Me.CRMEstate_Leads_Immovables.Count > 0 Then + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _Criteria = "" Then + _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + Else + _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + End If + Next + _Criteria += ")" + Else + _Criteria += "1=2" + End If + + Dim _Apartments_Collection As New XPCollection(Of Apartments)(Session, CriteriaOperator.Parse(_Criteria)) + Dim _Apartments As Apartments + + For Each _Apartments In _Apartments_Collection + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Apartments.Oid.ToString Then + _Apartments.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF + _Apartments.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent + _Apartments.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF + _Apartments.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent + End If + Next + Next + + Return _Apartments_Collection + End Get + End Property + _ + ReadOnly Property Selected_Garages As XPCollection(Of Garages) + Get + Dim _Criteria As String = "" + + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + + If Me.CRMEstate_Leads_Immovables.Count > 0 Then + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _Criteria = "" Then + _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + Else + _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + End If + Next + _Criteria += ")" + Else + _Criteria += "1=2" + End If + + Dim _Garages_Collection As New XPCollection(Of Garages)(Session, CriteriaOperator.Parse(_Criteria)) + + Dim _Garages As Garages + + For Each _Garages In _Garages_Collection + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Garages.Oid.ToString Then + _Garages.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF + _Garages.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent + _Garages.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF + _Garages.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent + End If + Next + Next + + Return _Garages_Collection + End Get + End Property + _ + ReadOnly Property Selected_Container As XPCollection(Of Container) + Get + Dim _Criteria As String = "" + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + + If Me.CRMEstate_Leads_Immovables.Count > 0 Then + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _Criteria = "" Then + _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + Else + _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + End If + + Next + _Criteria += ")" + Else + _Criteria += "1=2" + End If + Dim _Container_Collection As New XPCollection(Of Container)(Session, CriteriaOperator.Parse(_Criteria)) + + Dim _Container As Container + For Each _Container In _Container_Collection + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Container.Oid.ToString Then + _Container.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF + _Container.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent + _Container.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF + _Container.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent + End If + Next + Next + Return _Container_Collection + End Get + End Property + _ + ReadOnly Property Selected_Offices As XPCollection(Of Offices) + Get + Dim _Criteria As String = "" + Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + If Me.CRMEstate_Leads_Immovables.Count > 0 Then + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _Criteria = "" Then + _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + Else + _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'" + End If + + Next + _Criteria += ")" + Else + _Criteria += "1=2" + End If + Dim _Offices_Collection As New XPCollection(Of Offices)(Session, CriteriaOperator.Parse(_Criteria)) + + Dim _Offices As Offices + For Each _Offices In _Offices_Collection + For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables + If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Offices.Oid.ToString Then + _Offices.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF + _Offices.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent + _Offices.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF + _Offices.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent + End If + Next + Next + Return _Offices_Collection + End Get + End Property + _ + ReadOnly Property CRMEstate_Leads_Activity As XPCollection(Of CRMEstate_Leads_Activity) + Get + Return GetCollection(Of CRMEstate_Leads_Activity)("CRMEstate_Leads_Activity") + End Get + End Property + ReadOnly Property DisplayName As String + Get + Return LastName & " " & FirstName & ", m: " & Mobile & ", e: " & EMail + End Get + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Activity.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Activity.vb new file mode 100644 index 0000000..3224124 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Activity.vb @@ -0,0 +1,94 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + +'-- Paramterek, enumok + + _ +Public Class CRMEstate_Leads_Activity + Inherits MySchedule + Private _CRMEstate_Leads As CRMEstate_Leads + Private _HRPersonEvent As HRPersonEvent + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + 'HRPersonEvents ksztse is ! Meg rtelemszeren mdostsa is ! + If Me.EventType = eEventType.eMeeting Then + If HRPersonEvent Is Nothing Then + _HRPersonEvent = New HRPersonEvent(Session) + Dim _HRPerson As HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", SecuritySystem.CurrentUser.oid)) + _HRPersonEvent.Resources.Add(_HRPerson) + End If + _HRPersonEvent.Subject = Me.Subject + _HRPersonEvent.StartOn = Me.StartOn + _HRPersonEvent.EndOn = Me.EndOn + _HRPersonEvent.Status = Me.Status + _HRPersonEvent.Type = Me.Type + _HRPersonEvent.Save() + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + If Me.HRPersonEvent IsNot Nothing Then + Session.Delete(Me.HRPersonEvent) + End If + End Sub + _ + Property CRMEstate_Leads As CRMEstate_Leads + Get + Return _CRMEstate_Leads + End Get + Set(value As CRMEstate_Leads) + SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value) + End Set + End Property + _ + Property HRPersonEvent As HRPersonEvent + Get + Return _HRPersonEvent + End Get + Set(value As HRPersonEvent) + SetPropertyValue("HRPersonEvent", _HRPersonEvent, value) + End Set + End Property + + _ + ReadOnly Property ImageType As Image + Get + Select Case Me.EventType + Case eEventType.eAlert + Return ImageLoader.Instance.GetImageInfo("bell").Image + Case eEventType.eEMailIn + Return ImageLoader.Instance.GetImageInfo("mail_into").Image + Case eEventType.eEmailOut + Return ImageLoader.Instance.GetImageInfo("mail_out").Image + Case eEventType.eMeeting + Return ImageLoader.Instance.GetImageInfo("calendar").Image + Case eEventType.ePhoneConversation + Return ImageLoader.Instance.GetImageInfo("mobilephone1").Image + Case Else + Return Nothing + End Select + End Get + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables.vb new file mode 100644 index 0000000..123e6c8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables.vb @@ -0,0 +1,322 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Paramterek, enumok + + _ + _ + _ +Public Class CRMEstate_Leads_Immovables + Inherits BaseObject + Private _CRMEstate_Leads As CRMEstate_Leads + Private _Immovables As Immovables + + Private _VAT As VAT + Private _AreaPriceDivide As Double '%-ban a telek s felptmny r + Private _ParcelPriceNettoHUF As Double 'Telek netto r + Private _SuperstructurePriceNettoHUF As Double 'Felptmny r + Private _ParcelPriceNettoDEV As Double 'Telek netto r + Private _SuperstructurePriceNettoDEV As Double 'Felptmny r + + 'rtkestsi rak + Private _ListPriceBruttoDEV As Double + Private _ListPriceBruttoHUF As Double + Private _ListPriceNettoDEV As Double + Private _ListPriceNettoHUF As Double + '-- + + 'Brlsi rak + Private _ListPriceBruttoDEVRent As Double + Private _ListPriceBruttoHUFRent As Double + Private _ListPriceNettoDEVRent As Double + Private _ListPriceNettoHUFRent As Double + '-- + + ' rtkestsi nm rak + Private _AreaListPriceBruttoDEV As Double + Private _AreaListPriceBruttoHUF As Double + Private _AreaListPriceNettoDEV As Double + Private _AreaListPriceNettoHUF As Double + '-- + + 'Brleti nm rak + Private _AreaListPriceBruttoDEVRent As Double + Private _AreaListPriceBruttoHUFRent As Double + Private _AreaListPriceNettoDEVRent As Double + Private _AreaListPriceNettoHUFRent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.AreaPriceDivide = 30 + + End Sub + _ + Property CRMEstate_Leads As CRMEstate_Leads + Get + Return _CRMEstate_Leads + End Get + Set(value As CRMEstate_Leads) + SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value) + End Set + End Property + Property Immovables As Immovables + Get + Return _Immovables + End Get + Set(value As Immovables) + SetPropertyValue("Immovables", _Immovables, value) + End Set + End Property + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.ListPriceBruttoHUF = Math.Round((1 + value.KeyValue) * ListPriceNettoHUF, 0, MidpointRounding.AwayFromZero) + Me.ListPriceBruttoHUFRent = Math.Round((1 + value.KeyValue) * ListPriceNettoHUFRent, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + _ + Property AreaPriceDivide As Double + Get + Return _AreaPriceDivide + End Get + Set(value As Double) + SetPropertyValue("AreaPriceDivide", _AreaPriceDivide, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.ParcelPriceNettoHUF = Math.Round((Me.ListPriceNettoHUF * (value / 100)), 0, MidpointRounding.AwayFromZero) + Me.SuperstructurePriceNettoHUF = Me.ListPriceNettoHUF - Me.ParcelPriceNettoHUF + End If + End Set + End Property + Property ParcelPriceNettoHUF As Double + Get + Return _ParcelPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("ParcelPriceNettoHUF", _ParcelPriceNettoHUF, value) + End Set + End Property + Property SuperstructurePriceNettoHUF As Double + Get + Return _SuperstructurePriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("SuperstructurePriceNettoHUF", _SuperstructurePriceNettoHUF, value) + End Set + End Property + Property ParcelPriceNettoDEV As Double + Get + Return _ParcelPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("ParcelPriceNettoDEV", _ParcelPriceNettoDEV, value) + End Set + End Property + Property SuperstructurePriceNettoDEV As Double + Get + Return _SuperstructurePriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("SuperstructurePriceNettoDEV", _SuperstructurePriceNettoDEV, value) + End Set + End Property + + + 'rtkestsi rak + Property ListPriceBruttoDEV As Double + Get + Return _ListPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value) + End Set + End Property + Property ListPriceBruttoHUF As Double + Get + Return _ListPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value) + End Set + End Property + Property ListPriceNettoDEV As Double + Get + Return _ListPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value) + End Set + End Property + Property ListPriceNettoHUF As Double + Get + Return _ListPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.ListPriceBruttoHUF = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Me.ParcelPriceNettoHUF = Math.Round(value * (AreaPriceDivide / 100), 0, MidpointRounding.AwayFromZero) + Me.SuperstructurePriceNettoHUF = Math.Round(value - Me.ParcelPriceNettoHUF, 0, MidpointRounding.AwayFromZero) + If TryCast(Me.Immovables, Apartments) IsNot Nothing Then + Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Apartments).AreaNettoForSale, 0, MidpointRounding.AwayFromZero) + Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + If TryCast(Me.Immovables, Offices) IsNot Nothing Then + Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Offices).AreaNettoForSale, 0, MidpointRounding.AwayFromZero) + Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + If TryCast(Me.Immovables, Container) IsNot Nothing Then + Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Container).AreaNetto, 0, MidpointRounding.AwayFromZero) + Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + If TryCast(Me.Immovables, Garages) IsNot Nothing Then + Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Garages).AreaNetto, 0, MidpointRounding.AwayFromZero) + Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + End If + End Set + End Property + '-- + + 'Brlsi rak + Property ListPriceBruttoDEVRent As Double + Get + Return _ListPriceBruttoDEVRent + End Get + Set(value As Double) + SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value) + End Set + End Property + Property ListPriceBruttoHUFRent As Double + Get + Return _ListPriceBruttoHUFRent + End Get + Set(value As Double) + SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value) + End Set + End Property + Property ListPriceNettoDEVRent As Double + Get + Return _ListPriceNettoDEVRent + End Get + Set(value As Double) + SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value) + End Set + End Property + Property ListPriceNettoHUFRent As Double + Get + Return _ListPriceNettoHUFRent + End Get + Set(value As Double) + SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceBruttoHUFRent = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + '-- + + ' rtkestsi nm rak + Property AreaListPriceBruttoDEV As Double + Get + Return _AreaListPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value) + End Set + End Property + Property AreaListPriceBruttoHUF As Double + Get + Return _AreaListPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value) + End Set + End Property + Property AreaListPriceNettoDEV As Double + Get + Return _AreaListPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value) + End Set + End Property + Property AreaListPriceNettoHUF As Double + Get + Return _AreaListPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value) + End Set + End Property + '-- + + 'Brleti nm rak + Property AreaListPriceBruttoDEVRent As Double + Get + Return _AreaListPriceBruttoDEVRent + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value) + End Set + End Property + Property AreaListPriceBruttoHUFRent As Double + Get + Return _AreaListPriceBruttoHUFRent + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value) + End Set + End Property + Property AreaListPriceNettoDEVRent As Double + Get + Return _AreaListPriceNettoDEVRent + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value) + End Set + End Property + Property AreaListPriceNettoHUFRent As Double + Get + Return _AreaListPriceNettoHUFRent + End Get + Set(value As Double) + SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value) + End Set + End Property + + '---------ReadOnly properties-------------------- + _ + _ + ReadOnly Property CRMEstate_Leads_Immovables_Reservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation) + Get + Return GetCollection(Of CRMEstate_Leads_Immovables_Reservation)("CRMEstate_Leads_Immovables_Reservation") + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables_Reservation.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables_Reservation.vb new file mode 100644 index 0000000..d84c023 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables_Reservation.vb @@ -0,0 +1,81 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMEstate_Leads_Immovables_Reservation 'Opcis foglals ingatlanra, ami automatikusan lejr + Inherits BaseObject + Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'Milyen kivlasztott inatlanra + Private _DateFrom As Date 'Mettl + Private _DateTo As Date 'Meddig + Private _ObjectCreated As Date 'Mikor + Private _UserCreated As User 'Ki csinlta a rekordot + Private _Task_EntryID As String 'Outlook task EntryID + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Get + Return _CRMEstate_Leads_Immovables + End Get + Set(value As CRMEstate_Leads_Immovables) + SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property Task_EntryID As String + Get + Return _Task_EntryID + End Get + Set(value As String) + SetPropertyValue("Task_EntryID", _Task_EntryID, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template.vb new file mode 100644 index 0000000..39cddb6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template.vb @@ -0,0 +1,143 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMEstate_Offer_Template + Inherits BaseObject + Private _DocumentBody As String 'Dokumentum trzs az rajnlatnak + Private _DocumentBodyPriceList As String 'Dokumentum trzs az rlisthoz + Private _ShortName As String 'Megnevezs + Private _ReportData As Reports.ReportData 'rajnlati nyomtatvny + Private _ReportData_Contract_Temp As Reports.ReportData 'Szerzdsi nyomtatvny az gyvdnek + Private _VAT As VAT 'Az ajnlathoz kszl szerzdsek sorainak Fja + Private _Controlling_AdvanceMoney As Controlling 'Az ajnlathoz kszl elleg szerzdsi sorok CM-je + Private _Controlling_Final As Controlling + Private _Controlling_Rent As Controlling + Private _PaymentOption As PaymentOption + Private _CostHolder As CostHolder 'Az ajnlathoz kszl szerzdsi sorok kltsgviselje + Private _CostPlace As CostPlace 'Az ajnlathoz kszl szerzdsi sorok kltsghelye + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property DocumentBody() As String + Get + Return _DocumentBody + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + _ + Property DocumentBodyPriceList As String + Get + Return _DocumentBodyPriceList + End Get + Set(value As String) + SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property ReportData As Reports.ReportData + Get + Return _ReportData + End Get + Set(value As Reports.ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportData_Contract_Temp As Reports.ReportData + Get + Return _ReportData_Contract_Temp + End Get + Set(value As Reports.ReportData) + SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + Property Controlling_AdvanceMoney As Controlling + Get + Return _Controlling_AdvanceMoney + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value) + End Set + End Property + _ + Property Controlling_Final As Controlling + Get + Return _Controlling_Final + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling_Final", _Controlling_Final, value) + End Set + End Property + _ + Property Controlling_Rent As Controlling + Get + Return _Controlling_Rent + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling_Rent", _Controlling_Rent, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + _ + ReadOnly Property CRMEstate_Offer_Template_CustomersFrom As XPCollection(Of CRMEstate_Offer_Template_CustomersFrom) + Get + Return GetCollection(Of CRMEstate_Offer_Template_CustomersFrom)("CRMEstate_Offer_Template_CustomersFrom") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template_CustomersFrom.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template_CustomersFrom.vb new file mode 100644 index 0000000..e2318ac --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template_CustomersFrom.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMEstate_Offer_Template_CustomersFrom + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ContractTemplate_AdvanceMoney As ContractTemplate 'Szerzdsi sablon az elszerzdshez + Private _ContractTemplate_Final As ContractTemplate 'Szerzdsi sablon az rtkestsi vgszerzdshez + Private _ContractTemplate_Rent As ContractTemplate 'Szerzdsi sablon a brleti szerzdshez + Private _CRMEstate_Offer_Template As CRMEstate_Offer_Template 'ltalnos ajnlati paramterek + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Public Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ContractTemplate_AdvanceMoney As ContractTemplate + Get + Return _ContractTemplate_AdvanceMoney + End Get + Set(ByVal value As ContractTemplate) + SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, value) + End Set + End Property + _ + Property ContractTemplate_Final As ContractTemplate + Get + Return _ContractTemplate_Final + End Get + Set(ByVal value As ContractTemplate) + SetPropertyValue("ContractTemplate_Final", _ContractTemplate_Final, value) + End Set + End Property + _ + Property ContractTemplate_Rent As ContractTemplate + Get + Return _ContractTemplate_Rent + End Get + Set(ByVal value As ContractTemplate) + SetPropertyValue("ContractTemplate_Rent", _ContractTemplate_Rent, value) + End Set + End Property + _ + Property CRMEstate_Offer_Template As CRMEstate_Offer_Template + Get + Return _CRMEstate_Offer_Template + End Get + Set(ByVal value As CRMEstate_Offer_Template) + SetPropertyValue("CRMEstate_Offer_Template", _CRMEstate_Offer_Template, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity.vb new file mode 100644 index 0000000..a62139b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity.vb @@ -0,0 +1,119 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + + _ + _ + _ + _ + _ +Public Class CRMEstate_Opportunity + Inherits BaseObject + Private _CRMEstate_Leads As CRMEstate_Leads + Private _OpportunityType As eOpportunityType + Private _DocumentNumber As String 'gy azonost + Private _Description As String 'Lers + Private _ObjectCreated As Date 'Ltrehozva + Private _HRPerson As HRPerson 'Felels + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property CRMEstate_Leads As CRMEstate_Leads + Get + Return _CRMEstate_Leads + End Get + Set(ByVal value As CRMEstate_Leads) + SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value) + End Set + End Property + Property OpportunityType As eOpportunityType + Get + Return _OpportunityType + End Get + Set(value As eOpportunityType) + SetPropertyValue("OpportunityType", _OpportunityType, value) + End Set + End Property + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + _ + ReadOnly Property CRMEstate_Opportunity_Immovables As XPCollection(Of CRMEstate_Opportunity_Immovables) + Get + Return GetCollection(Of CRMEstate_Opportunity_Immovables)("CRMEstate_Opportunity_Immovables") + End Get + End Property + _ + ReadOnly Property Contracts As XPCollection(Of Contracts) + Get + Return New XPCollection(Of Contracts)(Session, CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity=?", Me)) + End Get + End Property + _ + ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader) + Get + Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Oid<>Oid")) + End Get + End Property + _ + ReadOnly Property PCIGroup As XPCollection(Of PCIGroup) + Get + Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse("Oid<>Oid")) + End Get + End Property + ReadOnly Property DisplayName + Get + Return DocumentNumber & ", " & CRMEstate_Leads.LastName & " " & CRMEstate_Leads.FirstName & ", " & ObjectCreated + End Get + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.Designer.vb new file mode 100644 index 0000000..ed69709 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class CRMEstate_OpportunityVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aPrintContractTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aPrintContractTemplate + ' + Me.aPrintContractTemplate.Caption = "Print template" + Me.aPrintContractTemplate.ConfirmationMessage = Nothing + Me.aPrintContractTemplate.Id = "aPrintContractTemplate" + Me.aPrintContractTemplate.ImageName = "Action_Printing_Print" + Me.aPrintContractTemplate.Shortcut = Nothing + Me.aPrintContractTemplate.Tag = Nothing + Me.aPrintContractTemplate.TargetObjectsCriteria = Nothing + Me.aPrintContractTemplate.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity) + Me.aPrintContractTemplate.TargetViewId = "CRMEstate_Opportunity_DetailView" + Me.aPrintContractTemplate.ToolTip = Nothing + Me.aPrintContractTemplate.TypeOfView = Nothing + + End Sub + Friend WithEvents aPrintContractTemplate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.resx new file mode 100644 index 0000000..89c967a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.vb new file mode 100644 index 0000000..97ad39d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.vb @@ -0,0 +1,45 @@ +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.ExpressApp.Utils + +Public Class CRMEstate_OpportunityVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Private Sub aPrintContractTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintContractTemplate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity) + Dim _e As CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables(0) + Dim _InOperator As InOperator + Dim _OidArray As New ArrayList + + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _ + _CRMEstate_Opportunity.CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups)) + If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs belltva ingatlancsoport paramter!") + + For Each _CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables + _OidArray.Add(_CRMEstate_Opportunity_Immovables.Oid) + Next + + _InOperator = New InOperator("Oid", _OidArray) + + If _ImmovablesGroupsParameters.ReportData_Contract_Temp Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ImmovablesGroupsParameters.ReportData_Contract_Temp, _InOperator, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_AdvanceMoney.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_AdvanceMoney.vb new file mode 100644 index 0000000..87ee07d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_AdvanceMoney.vb @@ -0,0 +1,154 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class CRMEstate_Opportunity_AdvanceMoney + Inherits BaseObject + Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _DocumentNumber As String 'Dokumentum sorszma (nyomtatshoz kell) + Private _DateCreated As Date 'Kll. dtuma + Private _DateExpiration As Date 'Lejrat dtuma + Private _AmountHUF As Double 'sszeg (HUF) + Private _AmountDEV As Double 'sszeg (DEV) + Private _CurrencyName As CurrencyName 'Deviza + Private _Active As Boolean = False + Private _ContractRows As ContractRows 'Szmla fejlc (ha kszlt rla) + Private _PaymentOption As PaymentOption 'A killtand szmla fizetsi opcija + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Me.PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=0")) + End Sub + _ + Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Get + Return _CRMEstate_Opportunity_Immovables + End Get + Set(value As CRMEstate_Opportunity_Immovables) + SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + Me.CustomersFrom = TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom) + End If + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("CustomersFrom", _Customers, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.DateExpiration = value.AddDays(14) + End If + End Set + End Property + _ + Property DateExpiration As Date + Get + Return _DateExpiration + End Get + Set(value As Date) + SetPropertyValue("DateExpiration", _DateExpiration, value) + End Set + End Property + _ + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + _ + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + _ + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("InvoiceHeader", _ContractRows, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Customers.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Customers.vb new file mode 100644 index 0000000..6a3a1c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Customers.vb @@ -0,0 +1,178 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class CRMEstate_Opportunity_Customers + Inherits BaseObject + Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Private _Customers As Customers + Private _BirthDay As Date + Private _PlaceOfBirth As String + Private _SocialNumberLastFourDigit As String 'Szemlyi szm + Private _SocialNumber As String 'Szemly igazolvny szm + Private _MotherName As String + Private _AddressNotice As Address 'rtestsi cm + Private _AddressInvoice As Address 'Szmlzsi cm + Private _RightQuota As Double + Private _RightState As eRightState + Private _KSHNumber As String + Private _CorporateNumber As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Get + Return _CRMEstate_Opportunity_Immovables + End Get + Set(value As CRMEstate_Opportunity_Immovables) + SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value) + End Set + End Property + + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value IsNot Nothing Then + Dim _ExistingCRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers = Session.FindObject(Of CRMEstate_Opportunity_Customers)(CriteriaOperator.Parse("Customers=?", value)) + If _ExistingCRMEstate_Opportunity_Customers IsNot Nothing Then + Me.AddressInvoice = _ExistingCRMEstate_Opportunity_Customers.AddressInvoice + Me.AddressNotice = _ExistingCRMEstate_Opportunity_Customers.AddressNotice + Me.BirthDay = _ExistingCRMEstate_Opportunity_Customers.BirthDay + Me.MotherName = _ExistingCRMEstate_Opportunity_Customers.MotherName + Me.PlaceOfBirth = _ExistingCRMEstate_Opportunity_Customers.PlaceOfBirth + Me.SocialNumber = _ExistingCRMEstate_Opportunity_Customers.SocialNumber + Me.SocialNumberLastFourDigit = _ExistingCRMEstate_Opportunity_Customers.SocialNumberLastFourDigit + End If + End If + End Set + End Property + _ + Property BirthDay As Date + Get + Return _BirthDay + End Get + Set(value As Date) + SetPropertyValue("BirthDay", _BirthDay, value) + End Set + End Property + _ + Property PlaceOfBirth As String + Get + Return _PlaceOfBirth + End Get + Set(ByVal value As String) + SetPropertyValue("PlaceOfBirth", _PlaceOfBirth, value) + End Set + End Property + _ + Property SocialNumberLastFourDigit As String + Get + Return _SocialNumberLastFourDigit + End Get + Set(value As String) + SetPropertyValue("SocialNumberLastFourDigit", _SocialNumberLastFourDigit, value) + End Set + End Property + _ + Property SocialNumber As String + Get + Return _SocialNumber + End Get + Set(value As String) + SetPropertyValue("SocialNumber", _SocialNumber, value) + End Set + End Property + _ + Property MotherName As String + Get + Return _MotherName + End Get + Set(ByVal value As String) + SetPropertyValue("MotherName", _MotherName, value) + End Set + End Property + _ + Property AddressNotice As Address + Get + Return _AddressNotice + End Get + Set(value As Address) + SetPropertyValue("AddressNotice", _AddressNotice, value) + End Set + End Property + _ + Property AddressInvoice As Address + Get + Return _AddressInvoice + End Get + Set(value As Address) + SetPropertyValue("AddressInvoice", _AddressInvoice, value) + End Set + End Property + _ + Property RightQuota As Double + Get + Return _RightQuota + End Get + Set(value As Double) + SetPropertyValue("RightQuota", _RightQuota, value) + End Set + End Property + _ + Property RightState As eRightState + Get + Return _RightState + End Get + Set(value As eRightState) + SetPropertyValue("RightState", _RightState, value) + End Set + End Property + Property KSHNumber As String + Get + Return _KSHNumber + End Get + Set(value As String) + SetPropertyValue("KSHNumber", _KSHNumber, value) + End Set + End Property + Property CorporateNumber As String + Get + Return _CorporateNumber + End Get + Set(value As String) + SetPropertyValue("CorporateNumber", _CorporateNumber, value) + End Set + End Property +End Class + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Immovables.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Immovables.vb new file mode 100644 index 0000000..6f5382b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Immovables.vb @@ -0,0 +1,96 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Paramterek, enumok + _ + _ + _ + _ +Public Class CRMEstate_Opportunity_Immovables + Inherits BaseObject + + Private _CRMEstate_Opportunity As CRMEstate_Opportunity + Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CRMEstate_Opportunity As CRMEstate_Opportunity + Get + Return _CRMEstate_Opportunity + End Get + Set(value As CRMEstate_Opportunity) + SetPropertyValue("CRMEstate_Opportunity", _CRMEstate_Opportunity, value) + End Set + End Property + Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Get + Return _CRMEstate_Leads_Immovables + End Get + Set(value As CRMEstate_Leads_Immovables) + SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value) + End Set + End Property + + _ + _ + ReadOnly Property CRMEstate_Opportunity_Customers As XPCollection(Of CRMEstate_Opportunity_Customers) + Get + Return GetCollection(Of CRMEstate_Opportunity_Customers)("CRMEstate_Opportunity_Customers") + End Get + End Property + _ + _ + ReadOnly Property CRMEstate_Opportunity_Payment_Forecast As XPCollection(Of CRMEstate_Opportunity_Payment_Forecast) + Get + Return GetCollection(Of CRMEstate_Opportunity_Payment_Forecast)("CRMEstate_Opportunity_Payment_Forecast") + End Get + End Property + _ + _ + ReadOnly Property CRMEstate_Opportunity_Rent As XPCollection(Of CRMEstate_Opportunity_Rent) + Get + Return GetCollection(Of CRMEstate_Opportunity_Rent)("CRMEstate_Opportunity_Rent") + + End Get + End Property + _ + _ + ReadOnly Property CRMEstate_Opportunity_AdvanceMoney As XPCollection(Of CRMEstate_Opportunity_AdvanceMoney) + Get + Return GetCollection(Of CRMEstate_Opportunity_AdvanceMoney)("CRMEstate_Opportunity_AdvanceMoney") + End Get + End Property + + _ + ReadOnly Property Immovables_Oid As String + Get + Dim _Immovables_Oid As String = "" + If Me.CRMEstate_Leads_Immovables IsNot Nothing Then + If Me.CRMEstate_Leads_Immovables.Immovables IsNot Nothing Then + _Immovables_Oid = Me.CRMEstate_Leads_Immovables.Immovables.Oid.ToString + End If + End If + Return _Immovables_Oid + End Get + End Property + +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Payment_Forecast.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Payment_Forecast.vb new file mode 100644 index 0000000..9b6a3f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Payment_Forecast.vb @@ -0,0 +1,223 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class CRMEstate_Opportunity_Payment_Forecast + Inherits BaseObject + Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _RowIndex As Long 'Sor index + Private _MileStonePayment As eMileStonePayment 'Mrfldk + Private _InvoiceTypeBase As eInvoiceTypeBase 'Szmla bzis tipusa + Private _CurrencyName As CurrencyName 'Deviza + Private _DateExecution As Date 'A pnzgyi teljesls dtuma + Private _Description As String + Private _SumPriceNettoHUF As Double 'Netto HUF + Private _SumPriceVATHUF As Double 'FA HUF + Private _SumPriceBruttoHUF As Double 'Brutt HUF + Private _SumPriceNettoDEV As Double 'Netto DEV + Private _SumPriceVATDEV As Double 'FA DEV + Private _SumPriceBruttoDEV As Double 'Brutto DEV + Private _SumPricePercent As Double 'Vtelr %-os + Private _ContractRows As ContractRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.SumPricePercent = 100 + End Sub + _ + Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Get + Return _CRMEstate_Opportunity_Immovables + End Get + Set(value As CRMEstate_Opportunity_Immovables) + SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property MileStonePayment As eMileStonePayment + Get + Return _MileStonePayment + End Get + Set(value As eMileStonePayment) + SetPropertyValue("MileStonePayment", _MileStonePayment, value) + End Set + End Property + + Property InvoiceTypeBase As eInvoiceTypeBase + Get + Return _InvoiceTypeBase + End Get + Set(value As eInvoiceTypeBase) + SetPropertyValue("InvoiceTypeBase", _InvoiceTypeBase, value) + End Set + End Property + _ + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + _ + Property SumPriceNettoHUF As Double + Get + Return _SumPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value) + + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If Not Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF Then + Me.SumPriceVATHUF = Math.Round((value * (Me.ImmovablesGroupsParameters.VAT.KeyValuePercent / 100)), 0, MidpointRounding.AwayFromZero) + Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF + + End If + End If + End Set + End Property + _ + Property SumPriceVATHUF As Double + Get + Return _SumPriceVATHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value) + End Set + End Property + _ + _ + Property SumPriceBruttoHUF As Double + Get + Return _SumPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If Not Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF Then + Me.SumPriceVATHUF = Math.Round((value / (100 + Me.ImmovablesGroupsParameters.VAT.KeyValuePercent) * Me.ImmovablesGroupsParameters.VAT.KeyValuePercent), 0, MidpointRounding.AwayFromZero) + Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF + End If + End If + End Set + End Property + _ + Property SumPriceNettoDEV As Double + Get + Return _SumPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value) + End Set + End Property + _ + Property SumPriceVATDEV As Double + Get + Return _SumPriceVATDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value) + End Set + End Property + _ + Property SumPriceBruttoDEV As Double + Get + Return _SumPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value) + End Set + End Property + Property SumPricePercent As Double + Get + Return _SumPricePercent + End Get + Set(value As Double) + SetPropertyValue("SumPricePercent", _SumPricePercent, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.SumPriceBruttoHUF = Me.SumPriceBruttoHUF * (value / 100) + End If + End Set + End Property + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property + + '----------ReadOnly-------------------- + _ + ReadOnly Property ImmovablesGroupsParameters As ImmovablesGroupsParameters + Get + If Me.CRMEstate_Opportunity_Immovables IsNot Nothing Then + Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = Session.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups)) + Return _ImmovablesGroupsParameters + Else + Return Nothing + End If + End Get + End Property + +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb new file mode 100644 index 0000000..e57bb1d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb @@ -0,0 +1,220 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Paraméterek, enumok + _ + _ + _ + _ +Public Class CRMEstate_Opportunity_Rent + Inherits BaseObject + Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Private _CustomersFrom As CustomersFrom + Private _Contracts As Contracts 'Bérleti szerzõdés + Private _DateCreated As Date 'Szerzõdés kelte + Private _DateStart As Date 'Szerzõdés -tól + Private _DateStop As Date 'Szerzõdés -ig + Private _DayOfExecution As eDayOfMonth 'Forduló nap + Private _AmountNettoHUF As Double 'Havi bérleti dij + Private _AmountNettoDEV As Double 'Havi bérleti dij devizában + Private _CurrencyName As CurrencyName 'Deviza + Private _Description As String 'Egyéb megjegyzések + 'Bérleti szerződés paraméterek + Private _Controlling As Controlling + Private _PaymentOption As PaymentOption '--Fizetési opció + Private _CostHolder As CostHolder ' -- Költségviselõ + Private _CostPlace As CostPlace '-- Költséghely + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DateCreated = GetSQLTime(Session) + Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + CheckImmovableForRent(Me) + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + + End Sub + _ + Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables + Get + Return _CRMEstate_Opportunity_Immovables + End Get + Set(value As CRMEstate_Opportunity_Immovables) + SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + If TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom) IsNot Nothing Then + Me.CustomersFrom = value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner + End If + Me.AmountNettoHUF = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoHUFRent + Me.AmountNettoDEV = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoDEVRent + End If + End Set + End Property + Property Contracts As Contracts + Get + Return _Contracts + End Get + Set(value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + Property DateStart As Date + Get + Return _DateStart + End Get + Set(value As Date) + SetPropertyValue("DateStart", _DateStart, value) + End Set + End Property + _ + Property DateStop As Date + Get + Return _DateStop + End Get + Set(value As Date) + SetPropertyValue("DateStop", _DateStop, value) + End Set + End Property + Property DayOfExecution As eDayOfMonth + Get + Return _DayOfExecution + End Get + Set(value As eDayOfMonth) + SetPropertyValue("DayOfExecution", _DayOfExecution, value) + End Set + End Property + _ + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + _ + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + _ + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + _ + Property Controlling() As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + _ + Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Public Function CheckImmovableForRent(p_CRMEstate_Opportunity_Rent As CRMEstate_Opportunity_Rent) As Boolean + + 'Ellenőrzi a bérlési foglalásokat + + Dim _IsReservationOK As Boolean = False + Dim _ExistingReservation As CRMEstate_Opportunity_Rent = Session.FindObject(Of CRMEstate_Opportunity_Rent)(CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables =? AND ((DateStart>=? AND DateStart<=?) OR (DateStop<=? AND DateStop>=?))", _ + p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables, p_CRMEstate_Opportunity_Rent.DateStart, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStart)) + + If _ExistingReservation IsNot Nothing And _ExistingReservation IsNot p_CRMEstate_Opportunity_Rent Then + Throw New Exception("*A kiválasztott ingatlanra (" & p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") vonatkozó foglalás ütközik egy foglalással a következő időintervallumra: " & _ExistingReservation.DateStart.ToString & " - " & _ExistingReservation.DateStop.ToString & "!") + Else + _IsReservationOK = True + End If + + Return _IsReservationOK + + End Function +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Enums.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Enums.vb new file mode 100644 index 0000000..10d5f14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Enums.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Paramterek, enumok +Public Enum eRightState + ePossessor = 0 'Tulajdonos + eUsufructuary = 1 'Haszonlvezeti jog +End Enum +Public Enum eMileStonePayment + eSigned = 0 + eEnterIntoPossession = 1 + eOther = 2 +End Enum +Public Enum eOpportunityType + eRent = 0 + eSold = 1 +End Enum + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Popup/CRMEstate_Leads_Immovables_Reservation_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Popup/CRMEstate_Leads_Immovables_Reservation_Popup.vb new file mode 100644 index 0000000..fd9bb69 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Popup/CRMEstate_Leads_Immovables_Reservation_Popup.vb @@ -0,0 +1,76 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class CRMEstate_Leads_Immovables_Reservation_Popup + Inherits BaseObject + Private _DateTo As Date ' Meddig + Private _DateFrom As Date ' Mettől + Private _AlertPeriod As AlertPeriod + Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables ' A kiválasztott ingatlan + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + _ + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.DateTo = Me.DateFrom.AddHours(72) + End If + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables + Get + Return _CRMEstate_Leads_Immovables + End Get + Set(value As CRMEstate_Leads_Immovables) + SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value) + End Set + End Property + + '------------ReadOnly------------------- + _ + ReadOnly Property CollectionOfReservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation) + Get + Return _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/Enums/ImmovablesPriceListRowsType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/Enums/ImmovablesPriceListRowsType.vb new file mode 100644 index 0000000..fa93bd8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/Enums/ImmovablesPriceListRowsType.vb @@ -0,0 +1,17 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum ImmovablesPriceListRowsType + Apartments = 0 + Offices = 1 + Garages = 2 + Containers = 3 +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListHeader.vb new file mode 100644 index 0000000..86ed3e0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListHeader.vb @@ -0,0 +1,151 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class ImmovablesPriceListHeader + Inherits BaseObject + + Private _ImmovablesGroups As ImmovablesGroups + Private _UserCreated As User + Private _DateCreated As Date + Private _DueDate As Date 'Ajnlat rvnyessge + Private _DocumentBody As String ' RichText + Private _IsActive As Boolean ' + Private _ShortName As String ' + Private _Description As String ' + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If DueDate = "#12:00:00 AM#" Then + DueDate = GetSQLTime(Session) + DueDate = DueDate.AddDays(30) + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + DateCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ImmovablesGroups As ImmovablesGroups + Get + Return _ImmovablesGroups + End Get + Set(value As ImmovablesGroups) + SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + + End If + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(ByVal value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DueDate As Date + Get + Return _DueDate + End Get + Set(ByVal value As Date) + SetPropertyValue("DueDate", _DueDate, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + Property IsActive As Boolean + Get + Return _IsActive + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Desctiption As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + _ + ReadOnly Property ImmovablesPriceListRowsA As XPCollection(Of ImmovablesPriceListRowsA) + Get + Return GetCollection(Of ImmovablesPriceListRowsA)("ImmovablesPriceListRowsA") + End Get + End Property + _ + _ + ReadOnly Property ImmovablesPriceListRowsO As XPCollection(Of ImmovablesPriceListRowsO) + Get + Return GetCollection(Of ImmovablesPriceListRowsO)("ImmovablesPriceListRowsO") + End Get + End Property + _ + _ + ReadOnly Property ImmovablesPriceListRowsC As XPCollection(Of ImmovablesPriceListRowsC) + Get + Return GetCollection(Of ImmovablesPriceListRowsC)("ImmovablesPriceListRowsC") + End Get + End Property + _ + _ + ReadOnly Property ImmovablesPriceListRowsG As XPCollection(Of ImmovablesPriceListRowsG) + Get + Return GetCollection(Of ImmovablesPriceListRowsG)("ImmovablesPriceListRowsG") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsA.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsA.vb new file mode 100644 index 0000000..3c9986d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsA.vb @@ -0,0 +1,254 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ImmovablesPriceListRowsA + Inherits BaseObject + Private _Apartments As Apartments + Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader + Private _RowType As ImmovablesPriceListRowsType + + 'rtkestsi rak + Private _ListPriceBruttoDEV As Double 'InLine edit + Private _ListPriceBruttoHUF As Double 'InLine edit + Private _ListPriceNettoDEV As Double ' math.round(ListBriceBruttoDEV/1.25,2,wawyfromzero) + Private _ListPriceNettoHUF As Double ' math.round(ListBriceBruttoHUF/1.25,0,wawyfromzero) + '-- + + 'Brlsi rak + Private _ListPriceBruttoDEVRent As Double 'InLine edit + Private _ListPriceBruttoHUFRent As Double 'InLine edit + Private _ListPriceNettoDEVRent As Double + Private _ListPriceNettoHUFRent As Double + '-- + + ' rtkestsi nm rak + Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell hasznlni az osztshoz ! + Private _AreaListPriceBruttoHUF As Double + Private _AreaListPriceNettoDEV As Double + Private _AreaListPriceNettoHUF As Double + '-- + + 'Brleti nm rak + Private _AreaListPriceBruttoDEVRent As Double + Private _AreaListPriceBruttoHUFRent As Double + Private _AreaListPriceNettoDEVRent As Double + Private _AreaListPriceNettoHUFRent As Double + '-- + Private _NoteRow As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Apartments As Apartments + Get + Return _Apartments + End Get + Set(value As Apartments) + SetPropertyValue("Apartments", _Apartments, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + 'Me.AreaListPriceBruttoDEV = value.a + Me.AreaListPriceBruttoDEVRent = value.PriceAreaBruttoDEVRent + 'Me.AreaListPriceBruttoHUF = value.PriceAreaBruttoHUFRent + Me.AreaListPriceBruttoHUFRent = value.PriceAreaBruttoHUFRent + Me.AreaListPriceNettoDEV = value.AreaPriceNettoDEV + Me.AreaListPriceNettoDEVRent = value.PriceAreaNettoDEVRent + Me.AreaListPriceNettoHUF = value.AreaPriceNettoHUF + Me.AreaListPriceNettoHUFRent = value.PriceAreaNettoHUFRent + Me.ListPriceBruttoDEV = value.PriceBruttoDEV + Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent + Me.ListPriceBruttoHUF = value.PriceBruttoHUF + Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent + Me.ListPriceNettoDEV = value.PriceNettoDEV + Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent + Me.ListPriceNettoHUF = value.PriceNettoHUF + Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent + End If + End Set + End Property + _ + Property ImmovablesPriceListHeader As ImmovablesPriceListHeader + Get + Return _ImmovablesPriceListHeader + End Get + Set(ByVal value As ImmovablesPriceListHeader) + SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value) + End Set + End Property + Property ListPriceBruttoDEV As Double + Get + Return _ListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + AreaListPriceBruttoDEV = Math.Round((value / Me.Apartments.AreaNettoForSale), 2, MidpointRounding.AwayFromZero) + AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUF As Double + Get + Return _ListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + AreaListPriceBruttoHUF = Math.Round((value / Me.Apartments.AreaNettoForSale), 0, MidpointRounding.AwayFromZero) + AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEV As Double + Get + Return _ListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value) + End Set + End Property + Property ListPriceNettoHUF As Double + Get + Return _ListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value) + End Set + End Property + Property ListPriceBruttoDEVRent As Double + Get + Return _ListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + AreaListPriceBruttoDEVRent = Math.Round((value / Me.Apartments.AreaNettoForSale), 2, MidpointRounding.AwayFromZero) + AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / Me.Apartments.AreaNettoForSale, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUFRent As Double + Get + Return _ListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + AreaListPriceBruttoHUFRent = Math.Round((value / Me.Apartments.AreaNettoForSale), 0, MidpointRounding.AwayFromZero) + AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEVRent As Double + Get + Return _ListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value) + End Set + End Property + Property ListPriceNettoHUFRent As Double + Get + Return _ListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value) + End Set + End Property + Property AreaListPriceBruttoDEV As Double + Get + Return _AreaListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value) + End Set + End Property + Property AreaListPriceBruttoHUF As Double + Get + Return _AreaListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value) + End Set + End Property + Property AreaListPriceNettoDEV As Double + Get + Return _AreaListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value) + End Set + End Property + Property AreaListPriceNettoHUF As Double + Get + Return _AreaListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value) + End Set + End Property + Property AreaListPriceBruttoDEVRent As Double + Get + Return _AreaListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value) + End Set + End Property + Property AreaListPriceBruttoHUFRent As Double + Get + Return _AreaListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value) + End Set + End Property + Property AreaListPriceNettoDEVRent As Double + Get + Return _AreaListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value) + End Set + End Property + Property AreaListPriceNettoHUFRent As Double + Get + Return _AreaListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value) + End Set + End Property + + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsC.vb new file mode 100644 index 0000000..508ab7a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsC.vb @@ -0,0 +1,244 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ImmovablesPriceListRowsC + Inherits BaseObject + Private _Container As Container + Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader + Private _RowType As ImmovablesPriceListRowsType + + 'rtkestsi rak + Private _ListPriceBruttoDEV As Double + Private _ListPriceBruttoHUF As Double + Private _ListPriceNettoDEV As Double + Private _ListPriceNettoHUF As Double + '-- + + 'Brlsi rak + Private _ListPriceBruttoDEVRent As Double + Private _ListPriceBruttoHUFRent As Double + Private _ListPriceNettoDEVRent As Double + Private _ListPriceNettoHUFRent As Double + '-- + ' rtkestsi nm rak + Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell hasznlni az osztshoz ! + Private _AreaListPriceBruttoHUF As Double + Private _AreaListPriceNettoDEV As Double + Private _AreaListPriceNettoHUF As Double + '-- + + 'Brleti nm rak + Private _AreaListPriceBruttoDEVRent As Double + Private _AreaListPriceBruttoHUFRent As Double + Private _AreaListPriceNettoDEVRent As Double + Private _AreaListPriceNettoHUFRent As Double + '-- + Private _NoteRow As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Container As Container + Get + Return _Container + End Get + Set(value As Container) + SetPropertyValue("Container", _Container, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + Me.ListPriceBruttoDEV = value.PriceBruttoDEV + Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent + Me.ListPriceBruttoHUF = value.PriceBruttoHUF + Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent + Me.ListPriceNettoDEV = value.PriceNettoDEV + Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent + Me.ListPriceNettoHUF = value.PriceNettoHUF + Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent + End If + End Set + End Property + _ + Property ImmovablesPriceListHeader As ImmovablesPriceListHeader + Get + Return _ImmovablesPriceListHeader + End Get + Set(ByVal value As ImmovablesPriceListHeader) + SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value) + End Set + End Property + Property ListPriceBruttoDEV As Double + Get + Return _ListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoDEV = Math.Round((value / Me.Container.AreaNetto), 2, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUF As Double + Get + Return _ListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoHUF = Math.Round((value / Me.Container.AreaNetto), 0, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEV As Double + Get + Return _ListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value) + End Set + End Property + Property ListPriceNettoHUF As Double + Get + Return _ListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value) + End Set + End Property + Property ListPriceBruttoDEVRent As Double + Get + Return _ListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoDEVRent = Math.Round((value / Me.Container.AreaNetto), 2, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUFRent As Double + Get + Return _ListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoHUFRent = Math.Round((value / Me.Container.AreaNetto), 0, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEVRent As Double + Get + Return _ListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value) + End Set + End Property + Property ListPriceNettoHUFRent As Double + Get + Return _ListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value) + End Set + End Property + Property AreaListPriceBruttoDEV As Double + Get + Return _AreaListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value) + End Set + End Property + Property AreaListPriceBruttoHUF As Double + Get + Return _AreaListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value) + End Set + End Property + Property AreaListPriceNettoDEV As Double + Get + Return _AreaListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value) + End Set + End Property + Property AreaListPriceNettoHUF As Double + Get + Return _AreaListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value) + End Set + End Property + Property AreaListPriceBruttoDEVRent As Double + Get + Return _AreaListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value) + End Set + End Property + Property AreaListPriceBruttoHUFRent As Double + Get + Return _AreaListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value) + End Set + End Property + Property AreaListPriceNettoDEVRent As Double + Get + Return _AreaListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value) + End Set + End Property + Property AreaListPriceNettoHUFRent As Double + Get + Return _AreaListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value) + End Set + End Property + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsG.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsG.vb new file mode 100644 index 0000000..8788bff --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsG.vb @@ -0,0 +1,244 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ImmovablesPriceListRowsG + Inherits BaseObject + Private _Garages As Garages + Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader + Private _RowType As ImmovablesPriceListRowsType + + 'rtkestsi rak + Private _ListPriceBruttoDEV As Double + Private _ListPriceBruttoHUF As Double + Private _ListPriceNettoDEV As Double + Private _ListPriceNettoHUF As Double + '-- + + 'Brlsi rak + Private _ListPriceBruttoDEVRent As Double + Private _ListPriceBruttoHUFRent As Double + Private _ListPriceNettoDEVRent As Double + Private _ListPriceNettoHUFRent As Double + '-- + ' rtkestsi nm rak + Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell hasznlni az osztshoz ! + Private _AreaListPriceBruttoHUF As Double + Private _AreaListPriceNettoDEV As Double + Private _AreaListPriceNettoHUF As Double + '-- + + 'Brleti nm rak + Private _AreaListPriceBruttoDEVRent As Double + Private _AreaListPriceBruttoHUFRent As Double + Private _AreaListPriceNettoDEVRent As Double + Private _AreaListPriceNettoHUFRent As Double + + Private _NoteRow As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Garages As Garages + Get + Return _Garages + End Get + Set(value As Garages) + SetPropertyValue("Garages", _Garages, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value IsNot Nothing Then + Me.ListPriceBruttoDEV = value.PriceBruttoDEV + Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent + Me.ListPriceBruttoHUF = value.PriceBruttoHUF + Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent + Me.ListPriceNettoDEV = value.PriceNettoDEV + Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent + Me.ListPriceNettoHUF = value.PriceNettoHUF + Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent + End If + End Set + End Property + _ + Property ImmovablesPriceListHeader As ImmovablesPriceListHeader + Get + Return _ImmovablesPriceListHeader + End Get + Set(ByVal value As ImmovablesPriceListHeader) + SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value) + End Set + End Property + Property ListPriceBruttoDEV As Double + Get + Return _ListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoDEV = Math.Round((value / Me.Garages.AreaNetto), 2, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUF As Double + Get + Return _ListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoHUF = Math.Round((value / Me.Garages.AreaNetto), 0, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEV As Double + Get + Return _ListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value) + End Set + End Property + Property ListPriceNettoHUF As Double + Get + Return _ListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value) + End Set + End Property + Property ListPriceBruttoDEVRent As Double + Get + Return _ListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoDEVRent = Math.Round((value / Me.Garages.AreaNetto), 2, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUFRent As Double + Get + Return _ListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + 'AreaListPriceBruttoHUFRent = Math.Round((value / Me.Garages.AreaNetto), 0, MidpointRounding.AwayFromZero) + 'AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEVRent As Double + Get + Return _ListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value) + End Set + End Property + Property ListPriceNettoHUFRent As Double + Get + Return _ListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value) + End Set + End Property + Property AreaListPriceBruttoDEV As Double + Get + Return _AreaListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value) + End Set + End Property + Property AreaListPriceBruttoHUF As Double + Get + Return _AreaListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value) + End Set + End Property + Property AreaListPriceNettoDEV As Double + Get + Return _AreaListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value) + End Set + End Property + Property AreaListPriceNettoHUF As Double + Get + Return _AreaListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value) + End Set + End Property + Property AreaListPriceBruttoDEVRent As Double + Get + Return _AreaListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value) + End Set + End Property + Property AreaListPriceBruttoHUFRent As Double + Get + Return _AreaListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value) + End Set + End Property + Property AreaListPriceNettoDEVRent As Double + Get + Return _AreaListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value) + End Set + End Property + Property AreaListPriceNettoHUFRent As Double + Get + Return _AreaListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value) + End Set + End Property + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsO.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsO.vb new file mode 100644 index 0000000..61594c0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListRowsO.vb @@ -0,0 +1,254 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ImmovablesPriceListRowsO + Inherits BaseObject + Private _Offices As Offices + Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader + Private _RowType As ImmovablesPriceListRowsType + + 'rtkestsi rak + Private _ListPriceBruttoDEV As Double + Private _ListPriceBruttoHUF As Double + Private _ListPriceNettoDEV As Double + Private _ListPriceNettoHUF As Double + '-- + + 'Brlsi rak + Private _ListPriceBruttoDEVRent As Double + Private _ListPriceBruttoHUFRent As Double + Private _ListPriceNettoDEVRent As Double + Private _ListPriceNettoHUFRent As Double + '-- + + ' rtkestsi nm rak + Private _AreaListPriceBruttoDEV As Double + Private _AreaListPriceBruttoHUF As Double + Private _AreaListPriceNettoDEV As Double + Private _AreaListPriceNettoHUF As Double + '-- + + 'Brleti nm rak + Private _AreaListPriceBruttoDEVRent As Double + Private _AreaListPriceBruttoHUFRent As Double + Private _AreaListPriceNettoDEVRent As Double + Private _AreaListPriceNettoHUFRent As Double + '-- + Private _NoteRow As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Offices As Offices + Get + Return _Offices + End Get + Set(value As Offices) + SetPropertyValue("Offices", _Offices, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + 'Me.AreaListPriceBruttoDEV = value.AreaPriceNettoDEV + Me.AreaListPriceBruttoDEVRent = value.PriceAreaBruttoDEVRent + 'Me.AreaListPriceBruttoHUF = value.PriceAreaBruttoHUFRent + Me.AreaListPriceBruttoHUFRent = value.PriceAreaBruttoHUFRent + Me.AreaListPriceNettoDEV = value.AreaPriceNettoDEV + Me.AreaListPriceNettoDEVRent = value.PriceAreaNettoDEVRent + Me.AreaListPriceNettoHUF = value.AreaPriceNettoHUF + Me.AreaListPriceNettoHUFRent = value.PriceAreaNettoHUFRent + Me.ListPriceBruttoDEV = value.PriceBruttoDEV + Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent + Me.ListPriceBruttoHUF = value.PriceBruttoHUF + Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent + Me.ListPriceNettoDEV = value.PriceNettoDEV + Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent + Me.ListPriceNettoHUF = value.PriceNettoHUF + Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent + End If + End Set + End Property + _ + Property ImmovablesPriceListHeader As ImmovablesPriceListHeader + Get + Return _ImmovablesPriceListHeader + End Get + Set(ByVal value As ImmovablesPriceListHeader) + SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value) + End Set + End Property + Property ListPriceBruttoDEV As Double + Get + Return _ListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + AreaListPriceBruttoDEV = Math.Round((value / Me.Offices.AreaNettoForSale), 2, MidpointRounding.AwayFromZero) + AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUF As Double + Get + Return _ListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + AreaListPriceBruttoHUF = Math.Round((value / Me.Offices.AreaNettoForSale), 0, MidpointRounding.AwayFromZero) + AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEV As Double + Get + Return _ListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value) + End Set + End Property + Property ListPriceNettoHUF As Double + Get + Return _ListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value) + End Set + End Property + Property ListPriceBruttoDEVRent As Double + Get + Return _ListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + AreaListPriceBruttoDEVRent = Math.Round((value / Me.Offices.AreaNettoForSale), 2, MidpointRounding.AwayFromZero) + AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceBruttoHUFRent As Double + Get + Return _ListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + AreaListPriceBruttoHUFRent = Math.Round((value / Me.Offices.AreaNettoForSale), 0, MidpointRounding.AwayFromZero) + AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property ListPriceNettoDEVRent As Double + Get + Return _ListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value) + End Set + End Property + Property ListPriceNettoHUFRent As Double + Get + Return _ListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value) + End Set + End Property + Property AreaListPriceBruttoDEV As Double + Get + Return _AreaListPriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value) + End Set + End Property + Property AreaListPriceBruttoHUF As Double + Get + Return _AreaListPriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value) + End Set + End Property + Property AreaListPriceNettoDEV As Double + Get + Return _AreaListPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value) + End Set + End Property + Property AreaListPriceNettoHUF As Double + Get + Return _AreaListPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value) + End Set + End Property + Property AreaListPriceBruttoDEVRent As Double + Get + Return _AreaListPriceBruttoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value) + End Set + End Property + Property AreaListPriceBruttoHUFRent As Double + Get + Return _AreaListPriceBruttoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value) + End Set + End Property + Property AreaListPriceNettoDEVRent As Double + Get + Return _AreaListPriceNettoDEVRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value) + End Set + End Property + Property AreaListPriceNettoHUFRent As Double + Get + Return _AreaListPriceNettoHUFRent + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value) + End Set + End Property + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.Designer.vb new file mode 100644 index 0000000..0874b25 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class ImmovablesPriceListVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateIPriceList = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateIPriceList + ' + Me.aGenerateIPriceList.Caption = "Run query" + Me.aGenerateIPriceList.Category = "View" + Me.aGenerateIPriceList.ConfirmationMessage = Nothing + Me.aGenerateIPriceList.Id = "aGenerateIPriceList" + Me.aGenerateIPriceList.ImageName = "stopwatch_run" + Me.aGenerateIPriceList.Shortcut = Nothing + Me.aGenerateIPriceList.Tag = Nothing + Me.aGenerateIPriceList.TargetObjectsCriteria = Nothing + Me.aGenerateIPriceList.TargetViewId = "ImmovablesPriceListHeader_DetailView" + Me.aGenerateIPriceList.ToolTip = Nothing + Me.aGenerateIPriceList.TypeOfView = Nothing + + End Sub + Friend WithEvents aGenerateIPriceList As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.resx new file mode 100644 index 0000000..54a2a79 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb new file mode 100644 index 0000000..e853a94 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/PriceList/ImmovablesPriceListVC.vb @@ -0,0 +1,141 @@ +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.Xpo +Imports DevExpress.ExpressApp.Filtering +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.CloneObject + +Public Class ImmovablesPriceListVC + 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 = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _ImmovablesPriceListHeader = _uow.GetObjectByKey(Of ImmovablesPriceListHeader)(TryCast(View.SelectedObjects(0), ImmovablesPriceListHeader).Oid) + + Dim _ApartmentsCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsA), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader)) + Dim _OfficesCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsO), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader)) + Dim _GaragesCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsG), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader)) + Dim _ContainerCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsC), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader)) + + _uow.Delete(_ApartmentsCollection_DEL) + _uow.Delete(_OfficesCollection_DEL) + _uow.Delete(_GaragesCollection_DEL) + _uow.Delete(_ContainerCollection_DEL) + _uow.CommitChanges() + + Dim _ApartmentsCollection As New XPCollection(_uow, GetType(Apartments), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups)) + Dim _OfficesCollection As New XPCollection(_uow, GetType(Offices), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups)) + Dim _GaragesCollection As New XPCollection(_uow, GetType(Garages), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups)) + Dim _ContainerCollection As New XPCollection(_uow, GetType(Container), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups)) + + Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA + Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO + Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG + Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC + + For Each _Apartments As Apartments In _ApartmentsCollection + _ImmovablesPriceListRowsA = New ImmovablesPriceListRowsA(_uow) + _ImmovablesPriceListRowsA.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsA.Apartments = _Apartments + _ImmovablesPriceListRowsA.Save() + Next + + For Each _Offices As Offices In _OfficesCollection + _ImmovablesPriceListRowsO = New ImmovablesPriceListRowsO(_uow) + _ImmovablesPriceListRowsO.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsO.Offices = _Offices + _ImmovablesPriceListRowsO.Save() + Next + + For Each _Garages As Garages In _GaragesCollection + _ImmovablesPriceListRowsG = New ImmovablesPriceListRowsG(_uow) + _ImmovablesPriceListRowsG.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsG.Garages = _Garages + _ImmovablesPriceListRowsG.Save() + Next + + For Each _Container As Container In _ContainerCollection + _ImmovablesPriceListRowsC = New ImmovablesPriceListRowsC(_uow) + _ImmovablesPriceListRowsC.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsC.Container = _Container + _ImmovablesPriceListRowsC.Save() + Next + _uow.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Apartments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Apartments.vb new file mode 100644 index 0000000..3937159 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Apartments.vb @@ -0,0 +1,346 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Apartments + Inherits Immovables + Private _Floor As Floors 'Emelet + Private _Stairway As Stairways 'Lépcsőház + Private _RoomString As String 'Szoba szövegesen + Private _WindowDirection As eWindowDirection 'Ablak tájolás + Private _AreaPriceNettoHUF As Double 'Netto négyzetméter ár (HUF) + Private _AreaPriceNettoDEV As Double ' + Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF) + Private _PriceNettoHUF As Double 'Nettó vételár (HUF) + Private _PriceBruttoDEV As Double + Private _PriceNettoDEV As Double 'Nettó vételár + Private _AreaNetto As Double = 0 'Nettó négyzetméter + Private _AreaNettoUnder190 As Double = 0 'Nettó négyzetméter 1.90 alatt + Private _AreaNettoForSale As Double = 0 'Nettó eladható négyzetméter + Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter + Private _Direction As eIDirection 'Tájolás + Private _IsTerrace As Boolean 'Terasz van-e hozzá + Private _AreaTerrace As Double = 0 ' Összes terasz négyzetmétere + Private _Note As String 'Megjegyzés + Private _UniqueTag As String 'Egyedi tag + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + If UniqueTag <> "*" Then Me.MakeUniqueObjects_Apartments() + End If + + MyBase.OnSaving() + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ImmovablesTypes = eImmovablesTypes.eApartment + End Sub + Protected Sub RecalculatePrice() + PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero) + PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero) + End Sub + Protected Sub RecalculatePriceBrutto() + PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero) + PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero) + End Sub + Protected Sub RecalculateAreaNettoForSale() + AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero) + End Sub + _ + Property Floor() As Floors + Get + Return _Floor + End Get + Set(ByVal value As Floors) + SetPropertyValue("Floor", _Floor, value) + End Set + End Property + _ + Property Stairway() As Stairways + Get + Return _Stairway + End Get + Set(ByVal value As Stairways) + SetPropertyValue("Stairway", _Stairway, value) + End Set + End Property + + _ + _ + Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists) + Get + Return GetCollection(Of LocalityLists)("LocalityLists") + End Get + End Property + + Property WindowDirection() As eWindowDirection + Get + Return _WindowDirection + End Get + Set(ByVal value As eWindowDirection) + SetPropertyValue("WindowDirection", _WindowDirection, value) + End Set + End Property + _ + Property AreaPriceNettoHUF() As Double + Get + Return _AreaPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculatePrice() + End If + End Set + End Property + Property AreaPriceNettoDEV() As Double + Get + Return _AreaPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value) + End Set + End Property + Property Direction() As eIDirection + Get + Return _Direction + End Get + Set(ByVal value As eIDirection) + SetPropertyValue("Direction", _Direction, value) + End Set + End Property + Property PriceBruttoHUF() As Double + Get + Return _PriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value) + End Set + End Property + _ + Property PriceNettoHUF As Double + Get + Return _PriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculatePriceBrutto() + End If + End Set + End Property + Property PriceBruttoDEV() As Double + Get + Return _PriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value) + End Set + End Property + _ + Property PriceNettoDEV As Double + Get + Return _PriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + RecalculatePriceBrutto() + End If + End Set + End Property + _ + _ + Property AreaNetto() As Double + Get + Return _AreaNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNetto", _AreaNetto, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + _ + Property AreaNettoUnder190() As Double + Get + Return _AreaNettoUnder190 + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + _ + Property AreaNettoForSale As Double + Get + Return _AreaNettoForSale + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculatePrice() + MyBase.RecalculatePriceRent() + End If + End Set + End Property + Property AreaNettoForCostRecord As Double + Get + Return _AreaNettoForCostRecord + End Get + Set(value As Double) + SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value) + End Set + End Property + Property IsTerrace() As Boolean + Get + Return _IsTerrace + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsTerrace", _IsTerrace, value) + End Set + End Property + _ + Property AreaTerrace As Double + Get + Return _AreaTerrace + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaTerrace", _AreaTerrace, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property RoomString() As String + Get + Return _RoomString + End Get + Set(ByVal value As String) + SetPropertyValue("RoomString", _RoomString, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + + Public Sub MakeUniqueObjects_Apartments() + Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects + Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects + Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects + Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects + Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects + Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects + Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects + + + _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag + _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X" + + _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups)) + If _UniqueObjects_ImmovablesGroups Is Nothing Then + _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups + _UniqueObjects_ImmovablesGroups.Save() + End If + _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X)) + If _UniqueObjects_ImmovablesGroups_X Is Nothing Then + _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X + _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_ImmovablesGroups_X.Save() + End If + + _Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag + _Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X" + + _UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway)) + If _UniqueObjects_Stairway Is Nothing Then + _UniqueObjects_Stairway = New UniqueObjects(Session) + _UniqueObjects_Stairway.Name = _Name_Stairway + _UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_Stairway.Save() + End If + _UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X)) + If _UniqueObjects_Stairway_X Is Nothing Then + _UniqueObjects_Stairway_X = New UniqueObjects(Session) + _UniqueObjects_Stairway_X.Name = _Name_Stairway_X + _UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway + _UniqueObjects_Stairway_X.Save() + End If + + _Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag + _Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X" + + _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor)) + If _UniqueObjects_Floor Is Nothing Then + _UniqueObjects_Floor = New UniqueObjects(Session) + _UniqueObjects_Floor.Name = _Name_Floor + _UniqueObjects_Floor.Parent = _UniqueObjects_Stairway + _UniqueObjects_Floor.Save() + End If + _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X)) + If _UniqueObjects_Floor_X Is Nothing Then + _UniqueObjects_Floor_X = New UniqueObjects(Session) + _UniqueObjects_Floor_X.Name = _Name_Floor_X + _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor + _UniqueObjects_Floor_X.Save() + End If + + _Name_Apartments = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag + + _UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments)) + If _UniqueObjects_Apartments Is Nothing Then + _UniqueObjects_Apartments = New UniqueObjects(Session) + _UniqueObjects_Apartments.Name = _Name_Apartments + _UniqueObjects_Apartments.Parent = _UniqueObjects_Floor + _UniqueObjects_Apartments.Save() + Me.UniqueObjects = _UniqueObjects_Apartments + End If + End Sub + + _ + ReadOnly Property Immovables_Oid As String + Get + Return Me.Oid.ToString + End Get + End Property + '-----NonPersistes----- + _ + Property OfferListPriceNettoHUF As Double = 0 + _ + Property OfferListPriceNettoHUFRent As Double = 0 + _ + Property OfferListPriceBruttoHUF As Double = 0 + _ + Property OfferListPriceBruttoHUFRent As Double = 0 +End Class ' Lakások diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Container.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Container.vb new file mode 100644 index 0000000..13a8f4b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Container.vb @@ -0,0 +1,199 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Container + Inherits Immovables + Private _Garages As Garages + Private _Floor As Floors + Private _AreaNetto As Double + Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter + Private _PriceBruttoHUF As Double + Private _PriceNettoHUF As Double + Private _PriceBruttoDEV As Double + Private _PriceNettoDEV As Double + Private _Note As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ImmovablesTypes = eImmovablesTypes.eContainer + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + If UniqueTag <> "*" Then Me.MakeUniqueObjects_Container() + End If + MyBase.OnSaving() + End Sub + Protected Sub RecalculatePriceBrutto() + PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero) + PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero) + End Sub + _ + Property Garages() As Garages + Get + Return _Garages + End Get + Set(ByVal value As Garages) + SetPropertyValue("Garages", _Garages, value) + End Set + End Property + Property Floor() As Floors + Get + Return _Floor + End Get + Set(ByVal value As Floors) + SetPropertyValue("Floor", _Floor, value) + End Set + End Property + Property AreaNetto() As Double + Get + Return _AreaNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNetto", _AreaNetto, value) + End Set + End Property + Property AreaNettoForCostRecord As Double + Get + Return _AreaNettoForCostRecord + End Get + Set(value As Double) + SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value) + End Set + End Property + _ + Property PriceBruttoHUF() As Double + Get + Return _PriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value) + End Set + End Property + _ + Property PriceNettoHUF As Double + Get + Return _PriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculatePriceBrutto() + End If + End Set + End Property + _ + Property PriceBruttoDEV() As Double + Get + Return _PriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value) + End Set + End Property + _ + Property PriceNettoDEV As Double + Get + Return _PriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + RecalculatePriceBrutto() + End If + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + Public Sub MakeUniqueObjects_Container() + Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects + Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects + Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects + Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects + Dim _Name_Container As String : Dim _UniqueObjects_Container As UniqueObjects + + _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag + _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X" + + _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups)) + If _UniqueObjects_ImmovablesGroups Is Nothing Then + _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups + _UniqueObjects_ImmovablesGroups.Save() + End If + _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X)) + If _UniqueObjects_ImmovablesGroups_X Is Nothing Then + _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X + _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_ImmovablesGroups_X.Save() + End If + + _Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag + _Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X" + + _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor)) + If _UniqueObjects_Floor Is Nothing Then + _UniqueObjects_Floor = New UniqueObjects(Session) + _UniqueObjects_Floor.Name = _Name_Floor + _UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_Floor.Save() + End If + _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X)) + If _UniqueObjects_Floor_X Is Nothing Then + _UniqueObjects_Floor_X = New UniqueObjects(Session) + _UniqueObjects_Floor_X.Name = _Name_Floor_X + _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor + _UniqueObjects_Floor_X.Save() + End If + + _Name_Container = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag + + _UniqueObjects_Container = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Container)) + If _UniqueObjects_Container Is Nothing Then + _UniqueObjects_Container = New UniqueObjects(Session) + _UniqueObjects_Container.Name = _Name_Container + _UniqueObjects_Container.Parent = _UniqueObjects_Floor + _UniqueObjects_Container.Save() + Me.UniqueObjects = _UniqueObjects_Container + End If + End Sub + + '-----NonPersistes----- + _ + Property OfferListPriceNettoHUF As Double = 0 + _ + Property OfferListPriceNettoHUFRent As Double = 0 + _ + Property OfferListPriceBruttoHUF As Double = 0 + _ + Property OfferListPriceBruttoHUFRent As Double = 0 +End Class 'Tárolók diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecord.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecord.vb new file mode 100644 index 0000000..9b8c6a1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecord.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eSIDChild + SID_NONE = 0 + SID_WH = 1 + SID_QM1 = 2 + SID_QM2 = 3 + SID_ARAM = 4 +End Enum + _ + _ +Public Class ImmovablesCostRecord + Inherits BaseObject + Private _Immovables As Immovables 'Melyik ingatlanhoz tartozik + Private _ShortName As String 'Megnevezs + Private _SID As String 'Egyedi azonostja a mrrnak + Private _SIDChild As eSIDChild + Private _ImmovablesCostRecordGroup As ImmovablesCostRecordGroup + Private _Description_ContactRows As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Immovables As Immovables + Get + Return _Immovables + End Get + Set(value As Immovables) + SetPropertyValue("Immovables", _Immovables, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property SID As String + Get + Return _SID + End Get + Set(value As String) + SetPropertyValue("SID", _SID, value) + End Set + End Property + Property SIDChild As eSIDChild + Get + Return _SIDChild + End Get + Set(value As eSIDChild) + SetPropertyValue("SIDChild", _SIDChild, value) + End Set + End Property + _ + Property Description_ContactRows As String + Get + Return _Description_ContactRows + End Get + Set(value As String) + SetPropertyValue("Description_ContactRows", _Description_ContactRows, value) + End Set + End Property + + Property ImmovablesCostRecordGroup As ImmovablesCostRecordGroup + Get + Return _ImmovablesCostRecordGroup + End Get + Set(value As ImmovablesCostRecordGroup) + SetPropertyValue("ImmovablesCostRecordGroup", _ImmovablesCostRecordGroup, value) + End Set + End Property + _ + _ + ReadOnly Property ImmovablesCostRecordEvents As XPCollection(Of ImmovablesCostRecordEvents) + Get + Return GetCollection(Of ImmovablesCostRecordEvents)("ImmovablesCostRecordEvents") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb new file mode 100644 index 0000000..4f67aab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesCostRecordContactRow + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + ReadOnly Property Contracts As XPCollection(Of Contracts) + Get + If UniqueObjects IsNot Nothing Then + Return New XPCollection(Of Contracts)(Session, Session.ParseCriteria("State in ('Ready','Signed') and UniqueObjects=?", UniqueObjects)) + Else + Return Nothing + End If + End Get + End Property + Property UniqueObjects As UniqueObjects + Property Controlling As Controlling + Property CostHolder As CostHolder + Property CostPlace As CostPlace + Property JobNumberObjects As JobNumberObjects + Property ShortName As String + Property DateExecution As Date + Property PaymentOption As PaymentOption + Property InvoicePeriod As String + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordDescriptionPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordDescriptionPopup.vb new file mode 100644 index 0000000..161cd44 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordDescriptionPopup.vb @@ -0,0 +1,29 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesCostRecordDescriptionPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Description As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordEvents.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordEvents.vb new file mode 100644 index 0000000..9d08124 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordEvents.vb @@ -0,0 +1,229 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eReadState + eSimpleRead = 0 'Morml leolvass + eTransferOutRead = 1 'tadsi leolvass + eTransferInRead = 2 'tvteli leolvass +End Enum + _ + _ + _ +Public Class ImmovablesCostRecordEvents + Inherits BaseObject + Private _ImmovablesCostRecord As ImmovablesCostRecord + Private _ReadedValue As Double + Private _ReadState As eReadState + Private _ReadDate As Date 'Mikor trtnt a leolvass + + Private _ReadIndex As Long 'Hnyadik leolvass ? + Private _UserCreated As User + Private _DateCreated As Date + Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + Private _ReadedValuePrev As Double 'Elz esemny rtke EVENT llsa + Private _ReadedValueDiff As Double + Private _ReadedValuePrice As Double + Private _ReadedValueSumPrice As Double + + Private _ContractRows As ContractRows + Private _InvoicePeriod As String + Private _IsReader As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + If Not SecuritySystem.CurrentUser Is Nothing Then + Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + UserCreated = currentUser + End If + DateCreated = GetSQLTime(Session) + End If + End Sub + _ + _ + Property ImmovablesCostRecord As ImmovablesCostRecord + Get + Return _ImmovablesCostRecord + End Get + Set(value As ImmovablesCostRecord) + SetPropertyValue("ImmovablesCostRecord", _ImmovablesCostRecord, value) + End Set + End Property + Property ReadedValue As Double + Get + Return _ReadedValue + End Get + Set(value As Double) + SetPropertyValue("ReadedValue", _ReadedValue, value) + End Set + End Property + Property ReadState As eReadState + Get + Return _ReadState + End Get + Set(value As eReadState) + + End Set + End Property + _ + Property ReadDate As Date + Get + Return _ReadDate + End Get + Set(value As Date) + SetPropertyValue("ReadDate", _ReadDate, value) + OnChanged(ReadDateYear) + OnChanged(ReadDateMonth) + OnChanged(ReadDateQuarter) + End Set + End Property + Property ReadDateYear As String + Get + Return AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4) + End Get + Set(value As String) + SetPropertyValue("ReadDateYear", AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4), value) + End Set + End Property + Property ReadDateQuarter As String + Get + Return AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2) + End Get + Set(value As String) + SetPropertyValue("ReadDateQuarter", AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2), value) + End Set + End Property + Property ReadDateMonth As String + Get + Return AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2) + End Get + Set(value As String) + SetPropertyValue("ReadDateMonth", AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2), value) + End Set + End Property + + Property ReadIndex As Long + Get + Return _ReadIndex + End Get + Set(value As Long) + SetPropertyValue("ReadIndex", _ReadIndex, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + Get + Return _ImmovablesCostRecordExcel + End Get + Set(value As ImmovablesCostRecordExcel) + SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value) + End Set + End Property + Property ReadedValuePrev As Double + Get + Return Math.Round(_ReadedValuePrev, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("_ReadedValuePrev", _ReadedValuePrev, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property ReadedValueDiff As Double + Get + Return Math.Round(_ReadedValueDiff, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("ReadedValueDiff", _ReadedValueDiff, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property ReadedValuePrice As Double + Get + Return Math.Round(_ReadedValuePrice, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("ReadedValuePrice", _ReadedValuePrice, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property ReadedValueSumPrice As Double + Get + Return _ReadedValueSumPrice + End Get + Set(value As Double) + SetPropertyValue("ReadedValueSumPrice", _ReadedValueSumPrice, value) + End Set + End Property + + _ + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + Property IsReader As Boolean + Get + Return _IsReader + End Get + Set(value As Boolean) + SetPropertyValue("IsReader", _IsReader, value) + End Set + End Property + + ReadOnly Property Description_ContractRows As String + Get + If ImmovablesCostRecord IsNot Nothing Then + If ImmovablesCostRecord.Description_ContactRows Is Nothing Then + Return "" + Else + Return String.Format(ImmovablesCostRecord.Description_ContactRows, Math.Round(ReadedValuePrev, 4, MidpointRounding.AwayFromZero), _ + Math.Round(ReadedValue, 4, MidpointRounding.AwayFromZero), _ + Math.Round(ReadedValueDiff, 4, MidpointRounding.AwayFromZero)) + End If + Else + Return "" + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcel.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcel.vb new file mode 100644 index 0000000..36df54e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcel.vb @@ -0,0 +1,143 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ImmovablesCostRecordExcel + Inherits BaseObject + Private _ShortName As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _ExcelProperty As String + Private _ExcelFile As FileData + Private _ImportExcelFile As FileData + Private _DateExecution As Date + Private _IsEditable As Boolean = True + Private _IsStorno As Boolean = False + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Dim _ImmovablesCostRecordMainGroup_Collection As New XPCollection(Of ImmovablesCostRecordMainGroup)(Session, CriteriaOperator.Parse("1=1")) + + For Each _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup In _ImmovablesCostRecordMainGroup_Collection + Dim _ImmovablesCostRecordExcelMainGroup As New ImmovablesCostRecordExcelMainGroup(Session) + _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordExcel = Me + _ImmovablesCostRecordExcelMainGroup.IsUseInExcel = True + _ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup = _ImmovablesCostRecordMainGroup + Next + Me.DateExecution = GetSQLTime(Session) + End Sub + + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + _ + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + _ + Property ImportExcelFile As FileData + Get + Return _ImportExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ImportExcelFile", _ImportExcelFile, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution.Date + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value.Date) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + + '-------------------------ReadOnly ---------------- + _ + ReadOnly Property ImmovablesCostRecordExcelMainGroup As XPCollection(Of ImmovablesCostRecordExcelMainGroup) + Get + Return GetCollection(Of ImmovablesCostRecordExcelMainGroup)("ImmovablesCostRecordExcelMainGroup") + End Get + End Property + _ + ReadOnly Property ImmovablesCostRecordExcelImmovables As XPCollection(Of ImmovablesCostRecordExcelImmovables) + Get + Return GetCollection(Of ImmovablesCostRecordExcelImmovables)("ImmovablesCostRecordExcelImmovables") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelImmovables.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelImmovables.vb new file mode 100644 index 0000000..dbc1e23 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelImmovables.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesCostRecordExcelImmovables + Inherits BaseObject + + Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + Private _Immovables As Immovables + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + Get + Return _ImmovablesCostRecordExcel + End Get + Set(value As ImmovablesCostRecordExcel) + SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value) + End Set + End Property + Property Immovables As Immovables + Get + Return _Immovables + End Get + Set(value As Immovables) + SetPropertyValue("Immovables", _Immovables, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelMainGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelMainGroup.vb new file mode 100644 index 0000000..f9a3c0b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelMainGroup.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesCostRecordExcelMainGroup + Inherits BaseObject + + Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup + Private _IsUseInExcel As Boolean + Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsUseInExcel = True + End Sub + + _ + Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel + Get + Return _ImmovablesCostRecordExcel + End Get + Set(value As ImmovablesCostRecordExcel) + SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value) + End Set + End Property + Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup + Get + Return _ImmovablesCostRecordMainGroup + End Get + Set(value As ImmovablesCostRecordMainGroup) + SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value) + End Set + End Property + Property IsUseInExcel As Boolean + Get + Return _IsUseInExcel + End Get + Set(value As Boolean) + SetPropertyValue("IsUseInExcel", _IsUseInExcel, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.Designer.vb new file mode 100644 index 0000000..459d909 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.Designer.vb @@ -0,0 +1,105 @@ +Partial Class ImmovablesCostRecordExcelVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRemoveContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportImmovables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateContractRows_Costs_FromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCreateContractRows_Costs + ' + Me.aCreateContractRows_Costs.Caption = "aCreateContractRows_Costs" + Me.aCreateContractRows_Costs.ConfirmationMessage = Nothing + Me.aCreateContractRows_Costs.Id = "aCreateContractRows_Costs" + Me.aCreateContractRows_Costs.ImageName = Nothing + Me.aCreateContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateContractRows_Costs.Shortcut = Nothing + Me.aCreateContractRows_Costs.Tag = Nothing + Me.aCreateContractRows_Costs.TargetObjectsCriteria = Nothing + Me.aCreateContractRows_Costs.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents) + Me.aCreateContractRows_Costs.TargetViewId = "" + Me.aCreateContractRows_Costs.ToolTip = Nothing + Me.aCreateContractRows_Costs.TypeOfView = Nothing + ' + 'aRemoveContractRows_Costs + ' + Me.aRemoveContractRows_Costs.Caption = "aRemoveContractRows_Costs" + Me.aRemoveContractRows_Costs.ConfirmationMessage = Nothing + Me.aRemoveContractRows_Costs.Id = "aRemoveContractRows_Costs" + Me.aRemoveContractRows_Costs.ImageName = Nothing + Me.aRemoveContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRemoveContractRows_Costs.Shortcut = Nothing + Me.aRemoveContractRows_Costs.Tag = Nothing + Me.aRemoveContractRows_Costs.TargetObjectsCriteria = Nothing + Me.aRemoveContractRows_Costs.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents) + Me.aRemoveContractRows_Costs.TargetViewId = "" + Me.aRemoveContractRows_Costs.ToolTip = Nothing + Me.aRemoveContractRows_Costs.TypeOfView = Nothing + ' + 'aImportImmovables + ' + Me.aImportImmovables.AcceptButtonCaption = Nothing + Me.aImportImmovables.CancelButtonCaption = Nothing + Me.aImportImmovables.Caption = "aImport Immovables" + Me.aImportImmovables.ConfirmationMessage = Nothing + Me.aImportImmovables.Id = "aImportImmovables" + Me.aImportImmovables.ImageName = Nothing + Me.aImportImmovables.Shortcut = Nothing + Me.aImportImmovables.Tag = Nothing + Me.aImportImmovables.TargetObjectsCriteria = Nothing + Me.aImportImmovables.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordExcelImmovables) + Me.aImportImmovables.TargetViewId = Nothing + Me.aImportImmovables.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aImportImmovables.ToolTip = Nothing + Me.aImportImmovables.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCreateContractRows_Costs_FromContract + ' + Me.aCreateContractRows_Costs_FromContract.AcceptButtonCaption = Nothing + Me.aCreateContractRows_Costs_FromContract.CancelButtonCaption = Nothing + Me.aCreateContractRows_Costs_FromContract.Caption = "aCreateContractRows_Costs_FromContract" + Me.aCreateContractRows_Costs_FromContract.ConfirmationMessage = Nothing + Me.aCreateContractRows_Costs_FromContract.Id = "aCreateContractRows_Costs_FromContract" + Me.aCreateContractRows_Costs_FromContract.ImageName = Nothing + Me.aCreateContractRows_Costs_FromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateContractRows_Costs_FromContract.Shortcut = Nothing + Me.aCreateContractRows_Costs_FromContract.Tag = Nothing + Me.aCreateContractRows_Costs_FromContract.TargetObjectsCriteria = Nothing + Me.aCreateContractRows_Costs_FromContract.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecordEvents) + Me.aCreateContractRows_Costs_FromContract.TargetViewId = Nothing + Me.aCreateContractRows_Costs_FromContract.ToolTip = Nothing + Me.aCreateContractRows_Costs_FromContract.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRemoveContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportImmovables As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateContractRows_Costs_FromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.resx new file mode 100644 index 0000000..39e9c89 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 432, 56 + + + 434, 93 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb new file mode 100644 index 0000000..a94be95 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordExcelVC.vb @@ -0,0 +1,375 @@ +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.CloneObject +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors + +Public Class ImmovablesCostRecordExcelVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", False) + Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", False) + + If View.Id = "ImmovablesCostRecordEvents_ListView" Then + Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", True) + Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", True) + End If + + If View.Id = "ImmovablesCostRecordExcel_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + + If View.Id = "ImmovablesCostRecordExcel_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ImmovablesCostRecordExcel_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + + If View.Id = "ImmovablesCostRecordExcel_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + + If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + + End Sub + + Private Sub aCreateContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateContractRows_Costs.Execute + '// Szerzdsi sor ImmovablesCostRecordEvents-bl + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents + Dim _ContractRows_Collection As XPCollection(Of ContractRows) + Dim _ContractRows_New As ContractRows + + For Each _ImmovablesCostRecordEvents In View.SelectedObjects + If _ImmovablesCostRecordEvents.ContractRows Is Nothing Then + + _ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, _ + CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and Contracts.State in ('Ready','Signed')", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _ + _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects)) + _ContractRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + + 'Dim _ContractRows As ContractRows = _ocur.FindObject(Of ContractRows)(CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and CostHolder=?", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _ + ' _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects, _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder)) + If _ContractRows_Collection.Count > 0 Then + + + _ContractRows_New = _ocur.CreateObject(Of ContractRows)() + _ContractRows_New.Contracts = _ContractRows_Collection(0).Contracts + _ContractRows_New.ContractRowsType = _ContractRows_Collection(0).ContractRowsType + _ContractRows_New.Controlling = _ContractRows_Collection(0).Controlling + _ContractRows_New.CostHolder = _ContractRows_Collection(0).CostHolder + _ContractRows_New.CostPlace = _ContractRows_Collection(0).CostPlace + _ContractRows_New.CurrencyName = _ContractRows_Collection(0).CurrencyName + _ContractRows_New.CurrencyRate = _ContractRows_Collection(0).CurrencyRate + _ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate + _ContractRows_New.Description = _ImmovablesCostRecordEvents.Description_ContractRows + _ContractRows_New.MileStone = _ContractRows_Collection(0).MileStone + _ContractRows_New.NettoPriceDEV = 0 + _ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice + _ContractRows_New.PaymentOption = _ContractRows_Collection(0).PaymentOption + _ContractRows_New.QTT = _ContractRows_Collection(0).QTT + _ContractRows_New.QualityOption = _ContractRows_Collection(0).QualityOption + _ContractRows_New.ShipmentOption = _ContractRows_Collection(0).ShipmentOption + _ContractRows_New.ShortName = _ContractRows_Collection(0).ShortName + _ContractRows_New.UniqueObjects = _ContractRows_Collection(0).UniqueObjects + _ContractRows_New.Units = _ContractRows_Collection(0).Units + _ContractRows_New.VAT = _ContractRows_Collection(0).VAT + _ContractRows_New.JobNumberObjects = _ContractRows_Collection(0).JobNumberObjects + _ContractRows_New.InvoicePeriod = _ImmovablesCostRecordEvents.InvoicePeriod + + _ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents + + _ImmovablesCostRecordEvents.ContractRows = _ContractRows_New + _ImmovablesCostRecordEvents.Save() + _ocur.CommitChanges() + End If + + + End If + + Next + + View.Refresh() + + End Sub + + Private Sub aRemoveContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveContractRows_Costs.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents + + For Each _ImmovablesCostRecordEvents In View.SelectedObjects + If _ImmovablesCostRecordEvents.ContractRows IsNot Nothing Then + If _ImmovablesCostRecordEvents.ContractRows.InvoiceRows Is Nothing Then + _ImmovablesCostRecordEvents.ContractRows.ImmovablesCostRecordEvents = Nothing + _ImmovablesCostRecordEvents.ContractRows.Save() + _ImmovablesCostRecordEvents.ContractRows = Nothing + _ImmovablesCostRecordEvents.Save() + _ocur.CommitChanges() + End If + End If + Next + End Sub + + Private Sub aImportImmovables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportImmovables.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ImmovablesPriceListHeader As ImmovablesPriceListHeader + Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA + Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG + Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO + Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC + + + Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session) + Dim _Apartments As Apartments + + Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session) + Dim _Garages As Garages + + Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session) + Dim _Container As Container + + Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session) + Dim _Offices As Offices + + _ImmovablesPriceListHeader = _onew.CreateObject(Of ImmovablesPriceListHeader)() + For Each _Apartments In _Apartments_Collection + _ImmovablesPriceListRowsA = _onew.CreateObject(Of ImmovablesPriceListRowsA)() + _ImmovablesPriceListRowsA.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsA.Apartments = _Apartments + _ImmovablesPriceListHeader.ImmovablesPriceListRowsA.Add(_ImmovablesPriceListRowsA) + Next + + For Each _Garages In _Garages_Collection + _ImmovablesPriceListRowsG = _onew.CreateObject(Of ImmovablesPriceListRowsG)() + _ImmovablesPriceListRowsG.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsG.Garages = _Garages + _ImmovablesPriceListHeader.ImmovablesPriceListRowsG.Add(_ImmovablesPriceListRowsG) + Next + + For Each _Offices In _Offices_Collection + _ImmovablesPriceListRowsO = _onew.CreateObject(Of ImmovablesPriceListRowsO)() + _ImmovablesPriceListRowsO.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsO.Offices = _Offices + _ImmovablesPriceListHeader.ImmovablesPriceListRowsO.Add(_ImmovablesPriceListRowsO) + Next + + For Each _Container In _Container_Collection + _ImmovablesPriceListRowsC = _onew.CreateObject(Of ImmovablesPriceListRowsC)() + _ImmovablesPriceListRowsC.ImmovablesPriceListHeader = _ImmovablesPriceListHeader + _ImmovablesPriceListRowsC.Container = _Container + _ImmovablesPriceListHeader.ImmovablesPriceListRowsC.Add(_ImmovablesPriceListRowsC) + Next + + + e.View = Application.CreateDetailView(_onew, "ImmovablesPriceListHeader_DetailView_Finder", False, _ImmovablesPriceListHeader) + End Sub + + Private Sub aImportImmovables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportImmovables.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ImmovablesCostRecordExcel) + Dim _ImmovablesCostRecordExcelImmovables As ImmovablesCostRecordExcelImmovables + Dim _DetailView As DetailView = TryCast(e.PopupWindow.View, DetailView) + Dim _ListView As ListView = Nothing + Dim _ListPropertyEditor As ListPropertyEditor + + Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA + Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG + Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO + Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC + + If _ImmovablesCostRecordExcel IsNot Nothing Then + If _DetailView IsNot Nothing Then + _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsA") + If _ListPropertyEditor IsNot Nothing Then + _ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + For Each _ImmovablesPriceListRowsA In _ListView.SelectedObjects + _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)() + _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel + _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsA.Apartments.Oid), Immovables) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables) + Next + End If + End If + + _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsG") + If _ListPropertyEditor IsNot Nothing Then + _ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + For Each _ImmovablesPriceListRowsG In _ListView.SelectedObjects + _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)() + _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel + _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsG.Garages.Oid), Immovables) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables) + Next + End If + End If + + _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsO") + If _ListPropertyEditor IsNot Nothing Then + _ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + For Each _ImmovablesPriceListRowsO In _ListView.SelectedObjects + _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)() + _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel + _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsO.Offices.Oid), Immovables) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables) + Next + End If + End If + _ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsC") + If _ListPropertyEditor IsNot Nothing Then + _ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + For Each _ImmovablesPriceListRowsC In _ListView.SelectedObjects + _ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)() + _ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel + _ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsC.Container.Oid), Immovables) + _ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables) + Next + End If + End If + End If + End If + e.PopupWindow.View.ObjectSpace.Rollback() + + _ocur.CommitChanges() + + End Sub + + Private Sub aCreateContractRows_Costs_FromContract_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractRows_Costs_FromContract.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow + Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = TryCast(View.SelectedObjects(0), ImmovablesCostRecordEvents) + + If _ImmovablesCostRecordEvents IsNot Nothing Then + If _ImmovablesCostRecordEvents.ImmovablesCostRecord IsNot Nothing Then + If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup IsNot Nothing Then + + _ImmovablesCostRecordContactRow = _onew.CreateObject(Of ImmovablesCostRecordContactRow)() + + If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling IsNot Nothing Then + _ImmovablesCostRecordContactRow.Controlling = _onew.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling.Oid) + End If + If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder IsNot Nothing Then + _ImmovablesCostRecordContactRow.CostHolder = _onew.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder.Oid) + End If + If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace IsNot Nothing Then + _ImmovablesCostRecordContactRow.CostPlace = _onew.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace.Oid) + End If + + If _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects IsNot Nothing Then + _ImmovablesCostRecordContactRow.UniqueObjects = _onew.GetObjectByKey(Of UniqueObjects)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects.Oid) + End If + + e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordContactRow_DetailView", True, _ImmovablesCostRecordContactRow) + + End If + End If + End If + End Sub + + Private Sub aCreateContractRows_Costs_FromContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractRows_Costs_FromContract.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow = TryCast(e.PopupWindow.View.CurrentObject, ImmovablesCostRecordContactRow) + Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = View.SelectedObjects(0) + Dim _ContractRows_New As ContractRows + Dim _CurrencyName As CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Dim _Units As Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + Dim _VAT As VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + + Dim _Contracts_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("Contracts") + If _Contracts_ListEditor.ListView.SelectedObjects.Count > 0 Then + If _Contracts_ListEditor.ListView.SelectedObjects(0) IsNot Nothing Then + Dim _Contracts As Contracts = _ocur.GetObjectByKey(Of Contracts)(TryCast(_Contracts_ListEditor.ListView.SelectedObjects(0), Contracts).Oid) + + _ContractRows_New = _ocur.CreateObject(Of ContractRows)() + _ContractRows_New.Contracts = _Contracts + _ContractRows_New.ContractRowsType = eContractRowsType.eFix + If _ImmovablesCostRecordContactRow.Controlling IsNot Nothing Then + _ContractRows_New.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordContactRow.Controlling.Oid) + End If + If _ImmovablesCostRecordContactRow.CostHolder IsNot Nothing Then + _ContractRows_New.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordContactRow.CostHolder.Oid) + End If + If _ImmovablesCostRecordContactRow.CostPlace IsNot Nothing Then + _ContractRows_New.CostPlace = _ocur.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordContactRow.CostPlace.Oid) + End If + If _ImmovablesCostRecordContactRow.JobNumberObjects IsNot Nothing Then + _ContractRows_New.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ImmovablesCostRecordContactRow.JobNumberObjects.Oid) + End If + If _ImmovablesCostRecordContactRow.PaymentOption IsNot Nothing Then + _ContractRows_New.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ImmovablesCostRecordContactRow.PaymentOption.Oid) + End If + _ContractRows_New.CurrencyName = _CurrencyName + _ContractRows_New.CurrencyRate = 1 + _ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate + _ContractRows_New.NettoPriceDEV = 0 + _ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice + _ContractRows_New.QTT = 1 + _ContractRows_New.ShortName = _ImmovablesCostRecordContactRow.ShortName + _ContractRows_New.UniqueObjects = _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects + _ContractRows_New.Units = _Units + _ContractRows_New.VAT = _VAT + _ContractRows_New.InvoicePeriod = _ImmovablesCostRecordContactRow.InvoicePeriod + + _ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents + + _ImmovablesCostRecordEvents.ContractRows = _ContractRows_New + _ImmovablesCostRecordEvents.Save() + _ocur.CommitChanges() + + End If + End If + + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb new file mode 100644 index 0000000..13174da --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb @@ -0,0 +1,147 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eCostRecordMode + eNormal = 0 'Mrs alapjn (elz s aktulsi) + eQuarter = 1 'lland szm m2 alapon +End Enum +Public Enum eCostRecordBaseMode + eFix = 0 'Fix djas + eCosuption = 1 'Fogyaszts +End Enum + + _ + _ + _ +Public Class ImmovablesCostRecordGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup + Private _ShortName As String + Private _Description As String + Private _eCostRecordMode As eCostRecordMode + Private _CostRecordBaseMode As eCostRecordBaseMode + + Private _CostPlace As CostPlace + Private _CostHolder As CostHolder + Private _Controlling As Controlling + + Private _ObjectCreated As Date + Private _UserCreated As User + Private _DecimalPlace As Integer = 2 + + _ + Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup + Get + Return _ImmovablesCostRecordMainGroup + End Get + Set(value As ImmovablesCostRecordMainGroup) + SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property eCostRecordMode As eCostRecordMode + Get + Return _eCostRecordMode + End Get + Set(value As eCostRecordMode) + SetPropertyValue("eCostRecordMode", _eCostRecordMode, value) + End Set + End Property + Property CostRecordBaseMode As eCostRecordBaseMode + Get + Return _CostRecordBaseMode + End Get + Set(value As eCostRecordBaseMode) + SetPropertyValue("CostRecordBaseMode", _CostRecordBaseMode, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property DecimalPlace As Integer + Get + Return _DecimalPlace + End Get + Set(value As Integer) + SetPropertyValue("DecimalPlace", _DecimalPlace, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordMainGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordMainGroup.vb new file mode 100644 index 0000000..b2f10db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordMainGroup.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesCostRecordMainGroup + Inherits BaseObject + + Private _GroupName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property GroupName As String + Get + Return _GroupName + End Get + Set(value As String) + SetPropertyValue("GroupName", _GroupName, value) + End Set + End Property + + '------------------ReadOnly----------------------- + _ + _ + ReadOnly Property ImmovablesCostRecordGroup As XPCollection(Of ImmovablesCostRecordGroup) + Get + Return GetCollection(Of ImmovablesCostRecordGroup)("ImmovablesCostRecordGroup") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.Designer.vb new file mode 100644 index 0000000..ae32118 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.Designer.vb @@ -0,0 +1,56 @@ +Partial Class ImmovablesCostRecordVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDescription_Change_ImmovablesCostRecord = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aDescription_Change_ImmovablesCostRecord + ' + Me.aDescription_Change_ImmovablesCostRecord.AcceptButtonCaption = Nothing + Me.aDescription_Change_ImmovablesCostRecord.CancelButtonCaption = Nothing + Me.aDescription_Change_ImmovablesCostRecord.Caption = "aDescription_Change_ImmovablesCostRecord" + Me.aDescription_Change_ImmovablesCostRecord.ConfirmationMessage = Nothing + Me.aDescription_Change_ImmovablesCostRecord.Id = "aDescription_Change_ImmovablesCostRecord" + Me.aDescription_Change_ImmovablesCostRecord.ImageName = Nothing + Me.aDescription_Change_ImmovablesCostRecord.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aDescription_Change_ImmovablesCostRecord.Shortcut = Nothing + Me.aDescription_Change_ImmovablesCostRecord.Tag = Nothing + Me.aDescription_Change_ImmovablesCostRecord.TargetObjectsCriteria = Nothing + Me.aDescription_Change_ImmovablesCostRecord.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecord) + Me.aDescription_Change_ImmovablesCostRecord.TargetViewId = Nothing + Me.aDescription_Change_ImmovablesCostRecord.ToolTip = Nothing + Me.aDescription_Change_ImmovablesCostRecord.TypeOfView = Nothing + ' + 'ImmovablesCostRecordVC + ' + Me.TargetObjectType = GetType(SISBusiness.[Module].ImmovablesCostRecord) + + End Sub + Friend WithEvents aDescription_Change_ImmovablesCostRecord As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.resx new file mode 100644 index 0000000..b3172f6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.vb new file mode 100644 index 0000000..6a27afe --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordVC.vb @@ -0,0 +1,70 @@ +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 + +Public Class ImmovablesCostRecordVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + selection = New ArrayList() + Me.TargetObjectType = GetType(SISBusiness.Module.ImmovablesCostRecord) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + + End Sub + Private Sub aDescription_Change_ImmovablesCostRecord_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescription_Change_ImmovablesCostRecord.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ImmovablesCostRecord As ImmovablesCostRecord = TryCast(View.SelectedObjects(0), ImmovablesCostRecord) + Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = _onew.CreateObject(Of ImmovablesCostRecordDescriptionPopup)() + + _ImmovablesCostRecordDescriptionPopup.Description = _ImmovablesCostRecord.Description_ContactRows + + e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordDescriptionPopup_DetailView", False, _ImmovablesCostRecordDescriptionPopup) + + + End Sub + + Private Sub aDescription_Change_ImmovablesCostRecord_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescription_Change_ImmovablesCostRecord.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), ImmovablesCostRecordDescriptionPopup) + Dim _ImmovablesCostRecord As ImmovablesCostRecord + + For Each _ImmovablesCostRecord In selection + _ImmovablesCostRecord.Description_ContactRows = _ImmovablesCostRecordDescriptionPopup.Description + Next + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + + Private Sub view_SelectionChanged(sender As Object, e As EventArgs) + Dim _ImmovablesCostRecord As ImmovablesCostRecord + If View Is Nothing Then Exit Sub + If noselect = False Then + selection.Clear() + For Each _ImmovablesCostRecord In View.SelectedObjects + selection.Add(_ImmovablesCostRecord) + Next + End If + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachments.vb new file mode 100644 index 0000000..ea55838 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachments.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class DocumentAttachments + Inherits FileAttachmentBase + Private _DocumentAttachmentsType As DocumentAttachmentsType + Private _Immovables As Immovables + Private _ImmovablesGroups As ImmovablesGroups + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property DocumentAttachementType() As DocumentAttachmentsType + Get + Return _DocumentAttachmentsType + End Get + Set(ByVal value As DocumentAttachmentsType) + SetPropertyValue("DocumentAttachmentsType", _DocumentAttachmentsType, value) + End Set + End Property + _ + Property Immovables() As Immovables + Get + Return _Immovables + End Get + Set(ByVal value As Immovables) + SetPropertyValue("Immovables", _Immovables, value) + End Set + End Property + _ + Property ImmovablesGroups() As ImmovablesGroups + Get + Return _ImmovablesGroups + End Get + Set(ByVal value As ImmovablesGroups) + SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value) + End Set + End Property +End Class ' Csatolt dokumentumok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachmentsType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachmentsType.vb new file mode 100644 index 0000000..ff6a792 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/DocumentAttachmentsType.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class DocumentAttachmentsType + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class ' Csatolt dokumentum tipusok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Enums.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Enums.vb new file mode 100644 index 0000000..a7de26c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Enums.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing +Public Enum eWindowDirection + NotSet = -1 + ToStreet = 0 + ToCourtyard = 1 +End Enum +Public Enum eIDirection + NotSet = -1 + North = 0 + East = 1 + South = 2 + West = 3 + NorthEast = 4 + SouthEast = 5 + SouthWest = 6 + NorthWest = 7 +End Enum +Public Enum eRoomCount + eNone = 0 + eHalf = 1 + eNormal = 2 +End Enum +Public Enum eImmovablesTypes + eApartment = 0 + eOffice = 1 + eContainer = 2 + eGarage = 3 + eStudentHostel = 4 +End Enum +Public Enum eImmovableSoldState + eFree = 0 'Szabad + eAdvanceMoney = 1 'Opciós foglalás + eMemorandum = 2 'Szándéknyilatkozat + ePreliminary = 3 'Előszerződés + eSold = 4 ' Eladva, végszerződés aláírva + ePossession = 5 'Birtokbaadva + eOutOfOrder = 6 'Nem értékesíthető +End Enum +Public Enum eImmovablesRentState + eFree = 0 'Szabad bérelhető + eAdvancedMoney = 1 'Opciós foglalva + eLease = 2 'Bérleti szerződés alatt + eRentPassing = 3 'Bérbeadva + eLeaseBack = 4 'Bérbeadásból visszavonás alatt + eOutOfOrder = 5 'Nem adható bérbe +End Enum + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.Designer.vb new file mode 100644 index 0000000..d140bf7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.Designer.vb @@ -0,0 +1,90 @@ +Partial Class EstateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aImmovables_ContractRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aImmovables_InvoiceRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aImmovables_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aImmovables_ContractRows_Info + ' + Me.aImmovables_ContractRows_Info.AcceptButtonCaption = Nothing + Me.aImmovables_ContractRows_Info.CancelButtonCaption = Nothing + Me.aImmovables_ContractRows_Info.Caption = "aImmovables_ContractRows_Info" + Me.aImmovables_ContractRows_Info.ConfirmationMessage = Nothing + Me.aImmovables_ContractRows_Info.Id = "aImmovables_ContractRows_Info" + Me.aImmovables_ContractRows_Info.ImageName = Nothing + Me.aImmovables_ContractRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aImmovables_ContractRows_Info.Shortcut = Nothing + Me.aImmovables_ContractRows_Info.Tag = Nothing + Me.aImmovables_ContractRows_Info.TargetObjectsCriteria = Nothing + Me.aImmovables_ContractRows_Info.TargetObjectType = GetType(SISBusiness.[Module].Immovables) + Me.aImmovables_ContractRows_Info.TargetViewId = Nothing + Me.aImmovables_ContractRows_Info.ToolTip = Nothing + Me.aImmovables_ContractRows_Info.TypeOfView = Nothing + ' + 'aImmovables_InvoiceRows_Info + ' + Me.aImmovables_InvoiceRows_Info.AcceptButtonCaption = Nothing + Me.aImmovables_InvoiceRows_Info.CancelButtonCaption = Nothing + Me.aImmovables_InvoiceRows_Info.Caption = "aImmovables_InvoiceRows_Info" + Me.aImmovables_InvoiceRows_Info.ConfirmationMessage = Nothing + Me.aImmovables_InvoiceRows_Info.Id = "aImmovables_InvoiceRows_Info" + Me.aImmovables_InvoiceRows_Info.ImageName = Nothing + Me.aImmovables_InvoiceRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aImmovables_InvoiceRows_Info.Shortcut = Nothing + Me.aImmovables_InvoiceRows_Info.Tag = Nothing + Me.aImmovables_InvoiceRows_Info.TargetObjectsCriteria = Nothing + Me.aImmovables_InvoiceRows_Info.TargetObjectType = GetType(SISBusiness.[Module].Immovables) + Me.aImmovables_InvoiceRows_Info.TargetViewId = Nothing + Me.aImmovables_InvoiceRows_Info.ToolTip = Nothing + Me.aImmovables_InvoiceRows_Info.TypeOfView = Nothing + ' + 'aImmovables_ChangeGroup + ' + Me.aImmovables_ChangeGroup.AcceptButtonCaption = Nothing + Me.aImmovables_ChangeGroup.CancelButtonCaption = Nothing + Me.aImmovables_ChangeGroup.Caption = "aImmovables_ChangeGroup" + Me.aImmovables_ChangeGroup.ConfirmationMessage = Nothing + Me.aImmovables_ChangeGroup.Id = "aImmovables_ChangeGroup" + Me.aImmovables_ChangeGroup.ImageName = Nothing + Me.aImmovables_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aImmovables_ChangeGroup.Shortcut = Nothing + Me.aImmovables_ChangeGroup.Tag = Nothing + Me.aImmovables_ChangeGroup.TargetObjectsCriteria = Nothing + Me.aImmovables_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].Immovables) + Me.aImmovables_ChangeGroup.TargetViewId = Nothing + Me.aImmovables_ChangeGroup.ToolTip = Nothing + Me.aImmovables_ChangeGroup.TypeOfView = Nothing + + End Sub + Friend WithEvents aImmovables_ContractRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aImmovables_InvoiceRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aImmovables_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.resx new file mode 100644 index 0000000..aa0d468 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 473, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb new file mode 100644 index 0000000..38886c8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/EstateVC.vb @@ -0,0 +1,152 @@ +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 + +Public Class EstateVC + 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 = "Immovables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Immovables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing + End If + End Sub + + Private Sub aImmovables_ContractRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ContractRows_Info.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables) + If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(ContractRows)) + + _CollectionSource.BeginUpdateCriteria() + + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid) + + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("ContractRows_ListView_Immovables", _CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImmovables_ContractRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ContractRows_Info.Execute + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImmovables_InvoiceRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_InvoiceRows_Info.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables) + If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows)) + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=? OR ContractRows.UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid, _Immovables.UniqueObjects.Oid) + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("InvoiceRows_ListView_Immovables", _CollectionSource, True) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImmovables_InvoiceRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_InvoiceRows_Info.Execute + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImmovables_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ChangeGroup.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _onew.CreateObject(Of Immovables_ChangeGroup_PopUp)() + + e.View = Application.CreateDetailView(_onew, "Immovables_ChangeGroup_PopUp_DetailView", True, _Immovables_ChangeGroup_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImmovables_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ChangeGroup.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Immovables_ChangeGroup_PopUp)) + + If _Immovables_ChangeGroup_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + For Each _Immovables As Immovables In View.SelectedObjects + If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then + _Immovables.CanForRent = _Immovables_ChangeGroup_PopUp.CanForRent + End If + If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then + _Immovables.CanForSale = _Immovables_ChangeGroup_PopUp.CanForSale + End If + If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then + _Immovables.CustomersLessor = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersLessor.Oid) + End If + If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then + _Immovables.CustomersOwner = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersOwner.Oid) + End If + If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then + _Immovables.ImmovableSoldState = _Immovables_ChangeGroup_PopUp.ImmovableSoldState + End If + If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then + _Immovables.ImmovablesRentState = _Immovables_ChangeGroup_PopUp.ImmovablesRentState + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = TryCast(View.SelectedObjects(0), Immovables_ChangeGroup_PopUp) + + If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then Exit Sub + If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then Exit Sub + If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then Exit Sub + If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then Exit Sub + If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then Exit Sub + If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then Exit Sub + + Throw New Exception("*Nincs beállítva egyetlen változtatás sem!") + Catch ex As Exception + e.Cancel = True + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Floors.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Floors.vb new file mode 100644 index 0000000..05aba1c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Floors.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Floors + Inherits BaseObject + Private _ImmovablesGroups As ImmovablesGroups + Private _ShortName As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + _ + Property ImmovablesGroups() As ImmovablesGroups + Get + Return _ImmovablesGroups + End Get + Set(ByVal value As ImmovablesGroups) + SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value) + End Set + End Property +End Class ' Emeletek diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Garages.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Garages.vb new file mode 100644 index 0000000..6aaba96 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Garages.vb @@ -0,0 +1,203 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Garages + Inherits Immovables + Private _Floor As Floors + Private _GarageType As String + Private _AreaNetto As Double + Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter + Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF) + Private _PriceNettoHUF As Double 'Nettó vételár (HUF) + Private _PriceBruttoDEV As Double + Private _PriceNettoDEV As Double 'Nettó vételár + Private _Note As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ImmovablesTypes = eImmovablesTypes.eGarage + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + If UniqueTag <> "*" Then Me.MakeUniqueObjects_Garages() + End If + MyBase.OnSaving() + End Sub + Protected Sub RecalculatePriceBrutto() + PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero) + PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero) + End Sub + Property Floor() As Floors + Get + Return _Floor + End Get + Set(ByVal value As Floors) + SetPropertyValue("Floor", _Floor, value) + End Set + End Property + Property GarageType() As String + Get + Return _GarageType + End Get + Set(ByVal value As String) + SetPropertyValue("GarageType", _GarageType, value) + End Set + End Property + Property AreaNetto() As Double + Get + Return _AreaNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNetto", _AreaNetto, value) + End Set + End Property + Property AreaNettoForCostRecord As Double + Get + Return _AreaNettoForCostRecord + End Get + Set(value As Double) + SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value) + End Set + End Property + Property PriceBruttoHUF() As Double + Get + Return _PriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value) + End Set + End Property + _ + Property PriceNettoHUF As Double + Get + Return _PriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculatePriceBrutto() + End If + End Set + End Property + Property PriceBruttoDEV() As Double + Get + Return _PriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value) + End Set + End Property + _ + Property PriceNettoDEV As Double + Get + Return _PriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + RecalculatePriceBrutto() + End If + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + _ + _ + ReadOnly Property Container() As XPCollection(Of Container) + Get + Return GetCollection(Of Container)("Container") + End Get + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + Public Sub MakeUniqueObjects_Garages() + Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects + Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects + Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects + Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects + Dim _Name_Garages As String : Dim _UniqueObjects_Garages As UniqueObjects + + _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag + _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X" + + _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups)) + If _UniqueObjects_ImmovablesGroups Is Nothing Then + _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups + _UniqueObjects_ImmovablesGroups.Save() + End If + _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X)) + If _UniqueObjects_ImmovablesGroups_X Is Nothing Then + _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X + _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_ImmovablesGroups_X.Save() + End If + + _Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag + _Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X" + + _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor)) + If _UniqueObjects_Floor Is Nothing Then + _UniqueObjects_Floor = New UniqueObjects(Session) + _UniqueObjects_Floor.Name = _Name_Floor + _UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_Floor.Save() + End If + _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X)) + If _UniqueObjects_Floor_X Is Nothing Then + _UniqueObjects_Floor_X = New UniqueObjects(Session) + _UniqueObjects_Floor_X.Name = _Name_Floor_X + _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor + _UniqueObjects_Floor_X.Save() + End If + + _Name_Garages = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & UniqueTag + + _UniqueObjects_Garages = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Garages)) + If _UniqueObjects_Garages Is Nothing Then + _UniqueObjects_Garages = New UniqueObjects(Session) + _UniqueObjects_Garages.Name = _Name_Garages + _UniqueObjects_Garages.Parent = _UniqueObjects_Floor + _UniqueObjects_Garages.Save() + Me.UniqueObjects = _UniqueObjects_Garages + End If + End Sub + + '-----NonPersistes----- + _ + Property OfferListPriceNettoHUF As Double = 0 + _ + Property OfferListPriceNettoHUFRent As Double = 0 + _ + Property OfferListPriceBruttoHUF As Double = 0 + _ + Property OfferListPriceBruttoHUFRent As Double = 0 +End Class 'Garázsok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovableStatus.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovableStatus.vb new file mode 100644 index 0000000..9a9d2f7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovableStatus.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class ImmovableStatus + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class 'Ingatlan státuszok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb new file mode 100644 index 0000000..625ec6c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb @@ -0,0 +1,313 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ + _ +Public Class Immovables + Inherits BaseObject + Private _ImmovableGroups As ImmovablesGroups 'Ingatlan csoport + Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladható státusz + Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan bérelhető státusz + Private _ImmovableTypes As eImmovablesTypes 'Ingatlan tipus + Private _LotNumber As String 'Helyrajzi szám + Private _Address As Address 'Cím + Private _ImagePicture1 As Image '1. kép + Private _ImagePicture2 As Image '2. kép + Private _ImagePicture3 As Image '3. kép + Private _CustomersOwner As Customers 'Tulajdonos. + Private _CustomersLessor As Customers 'Bérbeadó + Private _CanforSale As Boolean 'Eladható + Private _CanForRent As Boolean 'Bérelhető + Private _UniqueObjects As UniqueObjects 'Egyedi azonosító + Private _PriceNettoHUFRent As Double 'Ingatlan bérleti dija / hó bruttó + Private _PriceBruttoHUFRent As Double 'Ingatlan bérleti dija / hó nettó + Private _PriceNettoDEVRent As Double 'Ingatlan bérleti dija / hó bruttó + Private _PriceBruttoDEVRent As Double 'Ingatlan bérleti dija / hó nettó + Private _PriceAreaNettoHUFRent As Double 'Netto négyzetméter /hó + Private _PriceAreaBruttoHUFRent As Double 'Brutto négyzetméter /hó + Private _PriceAreaNettoDEVRent As Double 'Netto bérleti négyzetméter ár + Private _PriceAreaBruttoDEVRent As Double 'Brutto bérleti négyzetméter ár + + Private _Ownership1 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000 + Private _Ownership2 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000 + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Sub RecalculatePriceRent() + + 'Lakások esetében + If TryCast(Me, Apartments) IsNot Nothing Then + Dim _Immo As Apartments = TryCast(Me, Apartments) + _Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero) + _Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero) + End If + + 'Irodák esetében + If TryCast(Me, Offices) IsNot Nothing Then + Dim _Immo As Offices = TryCast(Me, Offices) + _Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero) + _Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero) + End If + + Me.PriceAreaBruttoHUFRent = Math.Round(PriceAreaNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero) + Me.PriceAreaBruttoDEVRent = Math.Round(PriceAreaNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero) + + End Sub + Private Sub RecalculatePriceBruttoRent() + PriceBruttoHUFRent = Math.Round(PriceNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero) + PriceBruttoDEVRent = Math.Round(PriceNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero) + End Sub + _ + _ + ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments) + Get + Return GetCollection(Of DocumentAttachments)("DocumentAttachments") + End Get + End Property + _ + Property ImmovableGroups() As ImmovablesGroups + Get + Return _ImmovableGroups + End Get + Set(ByVal value As ImmovablesGroups) + SetPropertyValue("ImmovableGroups", _ImmovableGroups, value) + End Set + End Property + Property ImmovableSoldState As eImmovableSoldState + Get + Return _ImmovableSoldState + End Get + Set(value As eImmovableSoldState) + SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value) + End Set + End Property + Property ImmovablesRentState As eImmovablesRentState + Get + Return _ImmovablesRentState + End Get + Set(value As eImmovablesRentState) + SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value) + End Set + End Property + Property ImmovablesTypes() As eImmovablesTypes + Get + Return _ImmovableTypes + End Get + Set(ByVal value As eImmovablesTypes) + SetPropertyValue("ImmovablesTypes", _ImmovableTypes, value) + End Set + End Property + Property LotNumber() As String + Get + Return _LotNumber + End Get + Set(ByVal value As String) + SetPropertyValue("LotNumber", _LotNumber, value) + End Set + End Property + Property Address() As Address + Get + Return _Address + End Get + Set(ByVal value As Address) + SetPropertyValue("Address", _Address, value) + End Set + End Property + _ + _ + Property ImagePicture1() As Image + Get + Return _ImagePicture1 + End Get + Set(ByVal Value As System.Drawing.Image) + If Value Is _ImagePicture1 Then Exit Property + _ImagePicture1 = Value + End Set + End Property + _ + _ + Property ImagePicture2() As Image + Get + Return _ImagePicture2 + End Get + Set(ByVal Value As System.Drawing.Image) + If Value Is _ImagePicture2 Then Exit Property + _ImagePicture2 = Value + End Set + End Property + _ + _ + Property ImagePicture3() As Image + Get + Return _ImagePicture3 + End Get + Set(ByVal Value As System.Drawing.Image) + If Value Is _ImagePicture3 Then Exit Property + _ImagePicture3 = Value + End Set + End Property + Property CustomersOwner() As Customers + Get + Return _CustomersOwner + End Get + Set(ByVal value As Customers) + SetPropertyValue("CustomersOwner", _CustomersOwner, value) + End Set + End Property + Property CustomersLessor() As Customers + Get + Return _CustomersLessor + End Get + Set(ByVal value As Customers) + SetPropertyValue("CustomersLessor", _CustomersLessor, value) + End Set + End Property + _ + Property UniqueObjects() As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property CanForSale As Boolean + Get + Return _CanforSale + End Get + Set(ByVal value As Boolean) + SetPropertyValue("CanForSale", _CanforSale, value) + End Set + End Property + _ + Property CanForRent As Boolean + Get + Return _CanForRent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("CanForRent", _CanForRent, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + If _UniqueObjects IsNot Nothing Then + Return _UniqueObjects.Name + Else + Return "" + End If + End Get + End Property + Property PriceNettoHUFRent As Double + Get + Return _PriceNettoHUFRent + End Get + Set(value As Double) + SetPropertyValue("PriceNettoHUFRent", _PriceNettoHUFRent, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + RecalculatePriceBruttoRent() + End If + End Set + End Property + Property PriceBruttoHUFRent As Double + Get + Return _PriceBruttoHUFRent + End Get + Set(value As Double) + SetPropertyValue("PriceBruttoHUFRent", _PriceBruttoHUFRent, value) + End Set + End Property + Property PriceNettoDEVRent As Double + Get + Return _PriceNettoDEVRent + End Get + Set(value As Double) + SetPropertyValue("PriceNettoDEVRent", _PriceNettoDEVRent, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + RecalculatePriceBruttoRent() + End If + End Set + End Property + Property PriceBruttoDEVRent As Double + Get + Return _PriceBruttoDEVRent + End Get + Set(value As Double) + SetPropertyValue("PriceBruttoDEVRent", _PriceBruttoDEVRent, value) + End Set + End Property + Property PriceAreaNettoHUFRent As Double + Get + Return _PriceAreaNettoHUFRent + End Get + Set(value As Double) + SetPropertyValue("PriceAreaNettoHUFRent", _PriceAreaNettoHUFRent, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Not value = 0 Then + RecalculatePriceRent() + End If + End Set + End Property + Property PriceAreaBruttoHUFRent As Double + Get + Return _PriceAreaBruttoHUFRent + End Get + Set(value As Double) + SetPropertyValue("PriceAreaBruttoHUFRent", _PriceAreaBruttoHUFRent, value) + End Set + End Property + Property PriceAreaBruttoDEVRent As Double + Get + Return _PriceAreaBruttoDEVRent + End Get + Set(value As Double) + SetPropertyValue("PriceAreaBruttoDEVRent", _PriceAreaBruttoDEVRent, value) + End Set + End Property + Property PriceAreaNettoDEVRent As Double + Get + Return _PriceAreaNettoDEVRent + End Get + Set(value As Double) + SetPropertyValue("PriceAreaNettoDEVRent", _PriceAreaNettoDEVRent, value) + End Set + End Property + + Property Ownership1 As String + Get + Return _Ownership1 + End Get + Set(value As String) + SetPropertyValue("Ownership1", _Ownership1, value) + End Set + End Property + Property Ownership2 As String + Get + Return _Ownership2 + End Get + Set(value As String) + SetPropertyValue("Ownership2", _Ownership2, value) + End Set + End Property + + + '// Bérleti lekérdezési információk + Private _Last_ContractsRows As ContractRows + Property Last_ContractsRows As ContractRows + Get + Return _Last_ContractsRows + End Get + Set(value As ContractRows) + SetPropertyValue("Last_ContractsRows", _Last_ContractsRows, value) + End Set + End Property + +End Class ' Ingatlanok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroups.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroups.vb new file mode 100644 index 0000000..decf963 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroups.vb @@ -0,0 +1,79 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class ImmovablesGroups + Inherits BaseObject + Private _ShortName As String 'Megnevezés + Private _Address As Address 'Cím + Private _UniqueTag As String 'Egyedi tag + Private _JobNumberObjects As JobNumberObjects 'Project, munkaszám + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Address() As Address + Get + Return _Address + End Get + Set(ByVal value As Address) + SetPropertyValue("Address", _Address, value) + End Set + End Property + Property JobNumberObjects() As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + '-------------ReadOnly------------- + _ + _ + ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments) + Get + Return GetCollection(Of DocumentAttachments)("DocumentAttachments") + End Get + End Property + _ + _ + ReadOnly Property Stairways() As XPCollection(Of Stairways) + Get + Return GetCollection(Of Stairways)("Stairways") + End Get + End Property + _ + _ + ReadOnly Property Floors() As XPCollection(Of Floors) + Get + Return GetCollection(Of Floors)("Floors") + End Get + End Property +End Class ' Ingatlan csoportok diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb new file mode 100644 index 0000000..ff4f025 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb @@ -0,0 +1,161 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ImmovablesGroupsParameters + Inherits BaseObject + + Private _ImmovablesGroups As ImmovablesGroups + Private _CustomersFrom As CustomersFrom + 'Private _ContractTemplateSold As ContractTemplate 'rtkestsi szerzds template + 'Private _ContractTemplateRent As ContractTemplate 'Brleti szerzds template (majd ezek tartalmazzk a szmla dolgokat is !) + 'Private _ContractTemplate_AdvanceMoney As ContractTemplate 'rtkestsi szerzds foglal template + Private _VAT As VAT + Private _DocumentBody As String 'Dokumentum trzs az rajnlatnak + Private _DocumentBodyPriceList As String 'Dokumentum trzs az rlisthoz + Private _ReportData_Contract_Temp As ReportData 'Szerzdsi nyomtatvny az gyvdnek + Private _Controlling_AdvanceMoney As Controlling 'Az ajnlathoz kszl elleg szerzdsi sorok CM-je + Private _Controlling_Final As Controlling 'Ingatlan rtkests kontollja + Private _Controlling_Rent As Controlling 'Ingatlan brlks kontrollja + Private _PaymentOption As PaymentOption 'Ingatlan brls alaprtelmezett fizetsi opcija + Private _CostHolder As CostHolder 'Az ajnlathoz kszl szerzdsi sorok kltsgviselje + Private _CostPlace As CostPlace 'Az ajnlathoz kszl szerzdsi sorok kltsghelye + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property ImmovablesGroups As ImmovablesGroups + Get + Return _ImmovablesGroups + End Get + Set(value As ImmovablesGroups) + SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + 'Property ContractTemplateSold As ContractTemplate + ' Get + ' Return _ContractTemplateSold + ' End Get + ' Set(value As ContractTemplate) + ' SetPropertyValue("ContractTemplateSold", _ContractTemplateSold, value) + ' End Set + 'End Property + 'Property ContractTemplateRent As ContractTemplate + ' Get + ' Return _ContractTemplateRent + ' End Get + ' Set(value As ContractTemplate) + ' SetPropertyValue("ContractTemplateRent", _ContractTemplateRent, value) + ' End Set + 'End Property + 'Property ContractTemplate_AdvanceMoney As ContractTemplate + ' Get + ' Return _ContractTemplate_AdvanceMoney + ' End Get + ' Set(value As ContractTemplate) + ' SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, value) + ' End Set + 'End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + _ + Property DocumentBodyPriceList As String + Get + Return _DocumentBodyPriceList + End Get + Set(value As String) + SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, value) + End Set + End Property + Property ReportData_Contract_Temp As ReportData + Get + Return _ReportData_Contract_Temp + End Get + Set(value As ReportData) + SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, value) + End Set + End Property + Property Controlling_AdvanceMoney As Controlling + Get + Return _Controlling_AdvanceMoney + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value) + End Set + End Property + Property Controlling_Final As Controlling + Get + Return _Controlling_Final + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Final", _Controlling_Final, value) + End Set + End Property + Property Controlling_Rent As Controlling + Get + Return _Controlling_Rent + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Rent", _Controlling_Rent, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb new file mode 100644 index 0000000..cfd1556 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class ImmovablesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aIRentGetContracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aIRentGetContracts + ' + Me.aIRentGetContracts.Caption = "aIRent Get Contracts" + Me.aIRentGetContracts.ConfirmationMessage = Nothing + Me.aIRentGetContracts.Id = "aIRentGetContracts" + Me.aIRentGetContracts.ImageName = Nothing + Me.aIRentGetContracts.Shortcut = Nothing + Me.aIRentGetContracts.Tag = Nothing + Me.aIRentGetContracts.TargetObjectsCriteria = Nothing + Me.aIRentGetContracts.TargetViewId = "Immovables_ListView_Rent_Query" + Me.aIRentGetContracts.ToolTip = Nothing + Me.aIRentGetContracts.TypeOfView = Nothing + + End Sub + Friend WithEvents aIRentGetContracts As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx new file mode 100644 index 0000000..bcd422d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb new file mode 100644 index 0000000..d1db190 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesVC.vb @@ -0,0 +1,57 @@ +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 + +Public Class ImmovablesVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Immovables As Immovables + + Dim _ContractRows As ContractRows + Dim _ContractRows_Collection As XPCollection(Of ContractRows) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count) + For Each _Immovables In TryCast(View, ListView).CollectionSource.List + RaiseEvent DoWork() + _Immovables.Last_ContractsRows = Nothing + _ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("Contracts.State='Signed' and UniqueObjects=? " & _ + " and Contracts.ContractTemplate.PartnerType='eReceivables'", + _Immovables.UniqueObjects)) + _ContractRows_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + For Each _ContractRows In _ContractRows_Collection + _Immovables.Last_ContractsRows = _ContractRows + Exit For + Next + Next + RaiseEvent FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityLists.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityLists.vb new file mode 100644 index 0000000..28683d0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityLists.vb @@ -0,0 +1,114 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class LocalityLists + Inherits BaseObject + Private _Apartments As Apartments + Private _Offices As Offices + Private _ShortName As String + Private _Level As String + Private _Dimensions As String + Private _DimensionsUnder190 As String + Private _AreaNetto As Double = 0 + Private _AreaUnder190 As Double = 0 + Private _LocalityType As LocalityType + Private _PriceCounter As Double = 1 + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + End Sub + _ + Property Apartments() As Apartments + Get + Return _Apartments + End Get + Set(ByVal value As Apartments) + SetPropertyValue("Apartments", _Apartments, value) + End Set + End Property + _ + Property Offices() As Offices + Get + Return _Offices + End Get + Set(ByVal value As Offices) + SetPropertyValue("Offices", _Offices, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Level() As String + Get + Return _Level + End Get + Set(ByVal value As String) + SetPropertyValue("Level", _Level, value) + End Set + End Property + Property Dimensions() As String + Get + Return _Dimensions + End Get + Set(ByVal value As String) + SetPropertyValue("Dimensions", _Dimensions, value) + End Set + End Property + Property DimensionsUnder190() As String + Get + Return _DimensionsUnder190 + End Get + Set(ByVal value As String) + SetPropertyValue("DimensionsUnder190", _DimensionsUnder190, value) + End Set + End Property + Property AreaNetto() As Double + Get + Return _AreaNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNetto", _AreaNetto, value) + End Set + End Property + Property AreaUnder190() As Double + Get + Return _AreaUnder190 + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaUnder190", _AreaUnder190, value) + End Set + End Property + Property LocalityType() As LocalityType + Get + Return _LocalityType + End Get + Set(ByVal value As LocalityType) + SetPropertyValue("LocalityType", _LocalityType, value) + End Set + End Property + Property PriceCounter() As Double + Get + Return _PriceCounter + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceCounter", _PriceCounter, value) + End Set + End Property +End Class ' Helység lista diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityType.vb new file mode 100644 index 0000000..8f5dfd2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/LocalityType.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class LocalityType + Inherits BaseObject + Private _ShortName As String + Private _RoomCount As eRoomCount + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property RoomCount() As eRoomCount + Get + Return _RoomCount + End Get + Set(ByVal value As eRoomCount) + SetPropertyValue("RoomCount", _RoomCount, value) + End Set + End Property +End Class 'Helység tipus diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Offices.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Offices.vb new file mode 100644 index 0000000..e8a9ff0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Offices.vb @@ -0,0 +1,329 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Offices + Inherits Immovables + Private _Floor As Floors + Private _Stairway As Stairways + Private _RoomString As String + Private _WindowDirection As eWindowDirection = eWindowDirection.NotSet + Private _AreaPriceNettoHUF As Double + Private _AreaPriceNettoDEV As Double + Private _PriceBruttoHUF As Double + Private _PriceBruttoDEV As Double + Private _PriceNettoHUF As Double 'Nettó vételár (HUF) + Private _PriceNettoDEV As Double + Private _AreaNetto As Double = 0 + Private _AreaNettoUnder190 As Double = 0 + Private _AreaNettoForSale As Double = 0 + Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter + Private _Direction As eIDirection = eIDirection.NotSet + Private _IsTerrace As Boolean + Private _AreaTerrace As Double = 0 + Private _Note As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + _AreaNetto = 0 + _AreaNettoUnder190 = 0 + _PriceBruttoHUF = 0 + Dim _LL As LocalityLists + For Each _LL In LocalityLists + _AreaNetto += _LL.AreaNetto + _AreaNettoUnder190 += _LL.AreaUnder190 + _PriceBruttoHUF += PriceBruttoHUF + (_LL.AreaNetto * _AreaPriceNettoHUF) + Next + If Session.IsNewObject(Me) Then + If UniqueTag <> "*" Then Me.MakeUniqueObjects_Offices() + End If + MyBase.OnSaving() + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ImmovablesTypes = eImmovablesTypes.eOffice + End Sub + Protected Sub RecalculatePrice() + PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero) + PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero) + End Sub + Protected Sub RecalculatePriceBrutto() + PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero) + PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero) + End Sub + Protected Sub RecalculateAreaNettoForSale() + AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero) + End Sub + _ + Property Floor() As Floors + Get + Return _Floor + End Get + Set(ByVal value As Floors) + SetPropertyValue("Floor", _Floor, value) + End Set + End Property + _ + Property Stairway() As Stairways + Get + Return _Stairway + End Get + Set(ByVal value As Stairways) + SetPropertyValue("Stairway", _Stairway, value) + End Set + End Property + _ + _ + Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists) + Get + Return GetCollection(Of LocalityLists)("LocalityLists") + End Get + End Property + Property WindowDirection() As eWindowDirection + Get + Return _WindowDirection + End Get + Set(ByVal value As eWindowDirection) + SetPropertyValue("WindowDirection", _WindowDirection, value) + End Set + End Property + Property AreaPriceNettoHUF() As Double + Get + Return _AreaPriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value) + End Set + End Property + Property AreaPriceNettoDEV() As Double + Get + Return _AreaPriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value) + End Set + End Property + Property Direction() As eIDirection + Get + Return _Direction + End Get + Set(ByVal value As eIDirection) + SetPropertyValue("Direction", _Direction, value) + End Set + End Property + Property PriceBruttoHUF() As Double + Get + Return _PriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value) + End Set + End Property + Property PriceBruttoDEV() As Double + Get + Return _PriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value) + End Set + End Property + _ + Property PriceNettoDEV As Double + Get + Return _PriceNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + RecalculatePriceBrutto() + End If + End Set + End Property + _ + Property PriceNettoHUF As Double + Get + Return _PriceNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculatePriceBrutto() + End If + End Set + End Property + Property AreaNetto() As Double + Get + Return _AreaNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNetto", _AreaNetto, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + Property AreaNettoUnder190() As Double + Get + Return _AreaNettoUnder190 + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + _ + Property AreaNettoForSale As Double + Get + Return _AreaNettoForSale + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + MyBase.RecalculatePriceRent() + RecalculatePrice() + End If + End Set + End Property + Property AreaNettoForCostRecord As Double + Get + Return _AreaNettoForCostRecord + End Get + Set(value As Double) + SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value) + End Set + End Property + Property IsTerrace() As Boolean + Get + Return _IsTerrace + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsTerrace", _IsTerrace, value) + End Set + End Property + Property AreaTerrace As Double + Get + Return _AreaTerrace + End Get + Set(ByVal value As Double) + SetPropertyValue("AreaTerrace", _AreaTerrace, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RecalculateAreaNettoForSale() + End If + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + Public Sub MakeUniqueObjects_Offices() + Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects + Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects + Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects + Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects + Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects + Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects + Dim _Name_Offices As String : Dim _UniqueObjects_Offices As UniqueObjects + + + _Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag + _Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X" + + _UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups)) + If _UniqueObjects_ImmovablesGroups Is Nothing Then + _UniqueObjects_ImmovablesGroups = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups + _UniqueObjects_ImmovablesGroups.Save() + End If + _UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X)) + If _UniqueObjects_ImmovablesGroups_X Is Nothing Then + _UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session) + _UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X + _UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_ImmovablesGroups_X.Save() + End If + + _Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag + _Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X" + + _UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway)) + If _UniqueObjects_Stairway Is Nothing Then + _UniqueObjects_Stairway = New UniqueObjects(Session) + _UniqueObjects_Stairway.Name = _Name_Stairway + _UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups + _UniqueObjects_Stairway.Save() + End If + _UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X)) + If _UniqueObjects_Stairway_X Is Nothing Then + _UniqueObjects_Stairway_X = New UniqueObjects(Session) + _UniqueObjects_Stairway_X.Name = _Name_Stairway_X + _UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway + _UniqueObjects_Stairway_X.Save() + End If + + _Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag + _Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X" + + _UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor)) + If _UniqueObjects_Floor Is Nothing Then + _UniqueObjects_Floor = New UniqueObjects(Session) + _UniqueObjects_Floor.Name = _Name_Floor + _UniqueObjects_Floor.Parent = _UniqueObjects_Stairway + _UniqueObjects_Floor.Save() + End If + _UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X)) + If _UniqueObjects_Floor_X Is Nothing Then + _UniqueObjects_Floor_X = New UniqueObjects(Session) + _UniqueObjects_Floor_X.Name = _Name_Floor_X + _UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor + _UniqueObjects_Floor_X.Save() + End If + + _Name_Offices = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag + + _UniqueObjects_Offices = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Offices)) + If _UniqueObjects_Offices Is Nothing Then + _UniqueObjects_Offices = New UniqueObjects(Session) + _UniqueObjects_Offices.Name = _Name_Offices + _UniqueObjects_Offices.Parent = _UniqueObjects_Floor + _UniqueObjects_Offices.Save() + Me.UniqueObjects = _UniqueObjects_Offices + End If + End Sub + + '-----NonPersistes----- + _ + Property OfferListPriceNettoHUF As Double = 0 + _ + Property OfferListPriceNettoHUFRent As Double = 0 + _ + Property OfferListPriceBruttoHUF As Double = 0 + _ + Property OfferListPriceBruttoHUFRent As Double = 0 +End Class ' Irodák, üzletek diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/Immovables_ChangeGroup_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/Immovables_ChangeGroup_PopUp.vb new file mode 100644 index 0000000..d335176 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/PopUp/Immovables_ChangeGroup_PopUp.vb @@ -0,0 +1,135 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Immovables_ChangeGroup_PopUp + Inherits BaseObject + + Private _IsChange_CanforSale As Boolean + Private _CanforSale As Boolean 'Eladhat + Private _IsChange_CanForRent As Boolean + Private _CanForRent As Boolean 'Brelhet + Private _IsChange_CustomersOwner As Boolean + Private _CustomersOwner As Customers 'Tulajdonos. + Private _IsChange_CustomersLessor As Boolean + Private _CustomersLessor As Customers 'Brbead + Private _IsChange_ImmovableSoldState As Boolean + Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladhat sttusz + Private _IsChange_ImmovablesRentState As Boolean + Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan brelhet sttusz + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property IsChange_CanforSale As Boolean + Get + Return _IsChange_CanforSale + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_CanforSale", _IsChange_CanforSale, value) + End Set + End Property + Property CanForSale As Boolean + Get + Return _CanforSale + End Get + Set(ByVal value As Boolean) + SetPropertyValue("CanForSale", _CanforSale, value) + End Set + End Property + Property IsChange_CanForRent As Boolean + Get + Return _IsChange_CanForRent + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_CanForRent", _IsChange_CanForRent, value) + End Set + End Property + Property CanForRent As Boolean + Get + Return _CanForRent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("CanForRent", _CanForRent, value) + End Set + End Property + Property IsChange_CustomersOwner As Boolean + Get + Return _IsChange_CustomersOwner + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_CustomersOwner", _IsChange_CustomersOwner, value) + End Set + End Property + Property CustomersOwner() As Customers + Get + Return _CustomersOwner + End Get + Set(ByVal value As Customers) + SetPropertyValue("CustomersOwner", _CustomersOwner, value) + End Set + End Property + Property IsChange_CustomersLessor As Boolean + Get + Return _IsChange_CustomersLessor + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_CustomersLessor", _IsChange_CustomersLessor, value) + End Set + End Property + Property CustomersLessor() As Customers + Get + Return _CustomersLessor + End Get + Set(ByVal value As Customers) + SetPropertyValue("CustomersLessor", _CustomersLessor, value) + End Set + End Property + Property IsChange_ImmovableSoldState As Boolean + Get + Return _IsChange_ImmovableSoldState + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_ImmovableSoldState", _IsChange_ImmovableSoldState, value) + End Set + End Property + Property ImmovableSoldState As eImmovableSoldState + Get + Return _ImmovableSoldState + End Get + Set(value As eImmovableSoldState) + SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value) + End Set + End Property + Property IsChange_ImmovablesRentState As Boolean + Get + Return _IsChange_ImmovablesRentState + End Get + Set(value As Boolean) + SetPropertyValue("IsChange_ImmovablesRentState", _IsChange_ImmovablesRentState, value) + End Set + End Property + Property ImmovablesRentState As eImmovablesRentState + Get + Return _ImmovablesRentState + End Get + Set(value As eImmovablesRentState) + SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Stairways.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Stairways.vb new file mode 100644 index 0000000..1abbc4b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Stairways.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class Stairways + Inherits BaseObject + Private _ImmovablesGroups As ImmovablesGroups + Private _ShortName As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + _ + Property ImmovablesGroups() As ImmovablesGroups + Get + Return _ImmovablesGroups + End Get + Set(ByVal value As ImmovablesGroups) + SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value) + End Set + End Property +End Class 'Lépcsőházak diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/StudentHostel.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/StudentHostel.vb new file mode 100644 index 0000000..f59f1e1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/StudentHostel.vb @@ -0,0 +1,114 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.Metadata +Imports System.Drawing + _ + _ +Public Class StudentHostel + Inherits Immovables + Private _Apartments As Apartments + Private _PriceBruttoHUF As Double + Private _PriceNettoHUF As Double 'Nettó vételár (HUF) + Private _PriceBruttoDEV As Double + Private _PriceNettoDEV As Double 'Nettó vételár + Private _Note As String + Private _UniqueTag As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ImmovablesTypes = eImmovablesTypes.eStudentHostel + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + If UniqueTag <> "*" Then Me.MakeUniqueObjects_StudentHostel() + End If + MyBase.OnSaving() + End Sub + Property Apartments() As Apartments + Get + Return _Apartments + End Get + Set(ByVal value As Apartments) + SetPropertyValue("Apartments", _Apartments, value) + End Set + End Property + Property PriceBruttoHUF() As Double + Get + Return _PriceBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value) + End Set + End Property + + Property PriceBruttoDEV() As Double + Get + Return _PriceBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + _ + Property UniqueTag() As String + Get + Return _UniqueTag + End Get + Set(ByVal value As String) + SetPropertyValue("UniqueTag", _UniqueTag, value) + End Set + End Property + Public Sub MakeUniqueObjects_StudentHostel() + Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects + Dim _Name_Apartments_X As String : Dim _UniqueObjects_Apartments_X As UniqueObjects + Dim _Name_StudentHostel As String : Dim _UniqueObjects_StudentHostel As UniqueObjects + 'Dim _Name_StudentHostel_X As String : Dim _UniqueObjects_StudentHostel_X As UniqueObjects + + _Name_Apartments = Me._Apartments.UniqueObjects.ToString + _Name_Apartments_X = Me.Apartments.UniqueObjects.ToString & "-X" + + _UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments)) + If _UniqueObjects_Apartments Is Nothing Then + _UniqueObjects_Apartments = New UniqueObjects(Session) + _UniqueObjects_Apartments.Name = _Name_Apartments + _UniqueObjects_Apartments.Save() + End If + _UniqueObjects_Apartments_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments_X)) + If _UniqueObjects_Apartments_X Is Nothing Then + _UniqueObjects_Apartments_X = New UniqueObjects(Session) + _UniqueObjects_Apartments_X.Name = _Name_Apartments_X + _UniqueObjects_Apartments_X.Parent = _UniqueObjects_Apartments + _UniqueObjects_Apartments_X.Save() + End If + + _Name_StudentHostel = Me._Apartments.UniqueObjects.ToString & "-" & _UniqueTag + + _UniqueObjects_StudentHostel = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_StudentHostel)) + If _UniqueObjects_StudentHostel Is Nothing Then + _UniqueObjects_StudentHostel = New UniqueObjects(Session) + _UniqueObjects_StudentHostel.Name = _Name_StudentHostel + _UniqueObjects_StudentHostel.Parent = _UniqueObjects_Apartments + _UniqueObjects_StudentHostel.Save() + Me.UniqueObjects = _UniqueObjects_StudentHostel + End If + + End Sub +End Class 'Bérlemények (kollégiumi férőhelyek diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringBank.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringBank.vb new file mode 100644 index 0000000..6be2002 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringBank.vb @@ -0,0 +1,83 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringBank + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _Factoring_Send_Number As String 'Bankba klds sorszma + Private _FileData As FileData 'Csatolt dokumentum + Private _Factoring_Send_Date As Date 'Beklds dtuma + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Factoring_Send_Number As String + Get + Return _Factoring_Send_Number + End Get + Set(value As String) + SetPropertyValue("Factoring_Send_Number", _Factoring_Send_Number, value) + End Set + End Property + Property Factoring_Send_Date As Date + Get + Return _Factoring_Send_Date + End Get + Set(value As Date) + SetPropertyValue("Factoring_Send_Date", _Factoring_Send_Date, value) + End Set + End Property + Property FileData As FileData + Get + Return _FileData + End Get + Set(value As FileData) + SetPropertyValue("FileData", _FileData, value) + End Set + End Property + + ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader) + Get + Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("InvoiceFactoringBank=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringHeader.vb new file mode 100644 index 0000000..aff3457 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringHeader.vb @@ -0,0 +1,105 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringHeader 'Faktorlsi engedmnyezsi szerzds + Inherits BaseObject + + Private _DocumentNumber As String 'A bank ltal jvhagyott sorszm + Private _ContractFile As FileData 'A bank ltal visszakldtt engedmnyezsi szerzds + Private _Description As String 'Egyb megjegyzs + Private _DateExecution As Date 'Dtum + Private _InterestPercent As Double ' faktor kamat + + Private _SpreadXML As String + Private _SpreadFile As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property ContractFile As FileData + Get + Return _ContractFile + End Get + Set(value As FileData) + SetPropertyValue("ContractFile", _ContractFile, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property InterestPercent As Double + Get + Return _InterestPercent + End Get + Set(value As Double) + SetPropertyValue("InterestPercent", _InterestPercent, value) + End Set + End Property + + _ + Property SpreadXML As String + Get + Return _SpreadXML + End Get + Set(value As String) + SetPropertyValue("SpreadXML", _SpreadXML, value) + End Set + End Property + Property SpreadFile As FileData + Get + Return _SpreadFile + End Get + Set(value As FileData) + SetPropertyValue("SpreadFile", _SpreadFile, value) + End Set + End Property + + + _ + ReadOnly Property InvoiceFactoringRows As XPCollection(Of InvoiceFactoringRows) + Get + Return GetCollection(Of InvoiceFactoringRows)("InvoiceFactoringRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringParameter.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringParameter.vb new file mode 100644 index 0000000..89253c0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringParameter.vb @@ -0,0 +1,123 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringParameter + Inherits BaseObject + + Private _LiquidAssets As LiquidAssets 'Melyik pnzeszkz + Private _NumberGenerator As NumberGenerator 'Bankba kldsi csomag sorszma (ezt lehet majd nyomtatni !!!) + Private _InterestPercent As Double ' Faktor kamat ves ! + Private _InterestPercentMonth As Double 'Havi faktordj plusz ! + Private _RiskPercent As Double ' Kockzati sszeg ! + Private _GracePeriod As Long ' Trelmi id (nap) + Private _Controlling_Interest As Controlling 'Banki rgztsnl hova pontozdjon (kamat) + Private _Controlling_Risk As Controlling 'Banki rgzts hova pontozdjon (kockzat) + Private _Controlling_Fee As Controlling 'Banki rgzts hova pontozdjon (faktordj) + Private _ReportData_Question As ReportData 'Krelem nyomtatvny + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property InterestPercent As Double + Get + Return _InterestPercent + End Get + Set(value As Double) + SetPropertyValue("InterestPercent", _InterestPercent, value) + End Set + End Property + Property InterestPercentMonth As Double + Get + Return _InterestPercentMonth + End Get + Set(value As Double) + SetPropertyValue("InterestPercentMonth", _InterestPercentMonth, value) + End Set + End Property + Property RiskPercent As Double + Get + Return _RiskPercent + End Get + Set(value As Double) + SetPropertyValue("RiskPercent", _RiskPercent, value) + End Set + End Property + Property GracePeriod As Long + Get + Return _GracePeriod + End Get + Set(value As Long) + SetPropertyValue("GracePeriod", _GracePeriod, value) + End Set + End Property + + Property Controlling_Interest As Controlling + Get + Return _Controlling_Interest + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Interest", _Controlling_Interest, value) + End Set + End Property + Property Controlling_Risk As Controlling + Get + Return _Controlling_Risk + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Risk", _Controlling_Risk, value) + End Set + End Property + Property Controlling_Fee As Controlling + Get + Return _Controlling_Fee + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Fee", _Controlling_Fee, value) + End Set + End Property + + Property ReportData_Question As ReportData + Get + Return _ReportData_Question + End Get + Set(value As ReportData) + SetPropertyValue("ReportData_Question", _ReportData_Question, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringRows.vb new file mode 100644 index 0000000..3f32efe --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoringRows.vb @@ -0,0 +1,125 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringRows + Inherits BaseObject + + Private _InvoiceFactoringHeader As InvoiceFactoringHeader + Private _InvoiceHeader As InvoiceHeader + Private _InterestValueHUF As Double ' Faktor kamat sszege + Private _CapitalValueHUF As Double ' "TKE" sszege + Private _RiskValueHUF As Double ' Kockzat sszege + + Private _FeeValueHUF As Double ' Faktor dj sszege + Private _DiscountInterestPercent As Double 'Diszkont kamat !!! + Private _InterestDay As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + InterestValueHUF = 0 + CapitalValueHUF = 0 + RiskValueHUF = 0 + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + If IsDeleted = False Then + RecalculateValues() + End If + + End Sub + + _ + Property InvoiceFactoringHeader As InvoiceFactoringHeader + Get + Return _InvoiceFactoringHeader + End Get + Set(value As InvoiceFactoringHeader) + SetPropertyValue("InvoiceFactoringHeader", _InvoiceFactoringHeader, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + + Property InterestValueHUF As Double + Get + Return _InterestValueHUF + End Get + Set(value As Double) + SetPropertyValue("InterestValueHUF", _InterestValueHUF, value) + End Set + End Property + Property CapitalValueHUF As Double + Get + Return _CapitalValueHUF + End Get + Set(value As Double) + SetPropertyValue("CapitalValueHUF", _CapitalValueHUF, value) + End Set + End Property + Property RiskValueHUF As Double + Get + Return _RiskValueHUF + End Get + Set(value As Double) + SetPropertyValue("RiskValueHUF", _RiskValueHUF, value) + End Set + End Property + Property FeeValueHUF As Double + Get + Return _FeeValueHUF + End Get + Set(value As Double) + SetPropertyValue("FeeValueHUF", _FeeValueHUF, value) + End Set + End Property + + Private Sub RecalculateValues() + Dim _InterestPercent As Double = 0 + + If InvoiceFactoringHeader.InterestPercent > 0 Then + _InterestPercent = InvoiceFactoringHeader.InterestPercent + Else + _InterestPercent = InvoiceHeader.InvoiceFactoringParameter.InterestPercent + End If + + If InvoiceHeader IsNot Nothing Then + If InvoiceHeader.InvoiceFactoringParameter IsNot Nothing Then + _InterestDay = DateDiff(DateInterval.Day, InvoiceFactoringHeader.DateExecution, _InvoiceHeader.DatePayment) + _InvoiceHeader.InvoiceFactoringParameter.GracePeriod + _DiscountInterestPercent = (360 * _InterestPercent / 100) / + (360 + (_InterestPercent / 100) * _InterestDay) + + FeeValueHUF = Math.Round(((_InterestDay \ 30) + 1) * (InvoiceHeader.InvoiceFactoringParameter.InterestPercentMonth / 100) * InvoiceHeader.TotalBruttoHUF, 0, MidpointRounding.AwayFromZero) + RiskValueHUF = Math.Round(InvoiceHeader.TotalBruttoHUF * InvoiceHeader.InvoiceFactoringParameter.RiskPercent / 100, 0, MidpointRounding.AwayFromZero) + InterestValueHUF = Math.Round(((InvoiceHeader.TotalBruttoHUF - RiskValueHUF) * _InterestDay * _DiscountInterestPercent) / 360, 0, MidpointRounding.AwayFromZero) + CapitalValueHUF = Math.Round(InvoiceHeader.TotalBruttoHUF - InterestValueHUF - RiskValueHUF - FeeValueHUF, 0, MidpointRounding.AwayFromZero) + + + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.Designer.vb new file mode 100644 index 0000000..bd16cd3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.Designer.vb @@ -0,0 +1,110 @@ +Partial Class InvoiceFactoring_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aFactoringSet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFactoringSendToBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFactoringBackFromBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFactoringCreate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFactoringDestroy = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFactoringSendToBankPrintPreview = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aFactoringSet + ' + Me.aFactoringSet.Caption = "aFactoring Set" + Me.aFactoringSet.Category = "RecordEdit" + Me.aFactoringSet.ConfirmationMessage = Nothing + Me.aFactoringSet.Id = "aFactoringSet" + Me.aFactoringSet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFactoringSet.TargetViewId = "InvoiceHeader_ListView" + Me.aFactoringSet.ToolTip = Nothing + ' + 'aFactoringSendToBank + ' + Me.aFactoringSendToBank.AcceptButtonCaption = Nothing + Me.aFactoringSendToBank.CancelButtonCaption = Nothing + Me.aFactoringSendToBank.Caption = "aFactoring Send To Bank" + Me.aFactoringSendToBank.Category = "RecordEdit" + Me.aFactoringSendToBank.ConfirmationMessage = Nothing + Me.aFactoringSendToBank.Id = "aFactoringSendToBank" + Me.aFactoringSendToBank.TargetViewId = "InvoiceHeader_ListView_Factoring_Not_Send" + Me.aFactoringSendToBank.ToolTip = Nothing + ' + 'aFactoringBackFromBank + ' + Me.aFactoringBackFromBank.Caption = "aFactoring Back From Bank" + Me.aFactoringBackFromBank.Category = "RecordEdit" + Me.aFactoringBackFromBank.ConfirmationMessage = Nothing + Me.aFactoringBackFromBank.Id = "aFactoringBackFromBank" + Me.aFactoringBackFromBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFactoringBackFromBank.TargetViewId = "InvoiceFactoringBank_ListView" + Me.aFactoringBackFromBank.ToolTip = Nothing + ' + 'aFactoringCreate + ' + Me.aFactoringCreate.AcceptButtonCaption = Nothing + Me.aFactoringCreate.CancelButtonCaption = Nothing + Me.aFactoringCreate.Caption = "aFactoring Create" + Me.aFactoringCreate.Category = "ObjectsCreation" + Me.aFactoringCreate.ConfirmationMessage = Nothing + Me.aFactoringCreate.Id = "aFactoringCreate" + Me.aFactoringCreate.TargetViewId = "InvoiceHeader_ListView_Factoring_Sended" + Me.aFactoringCreate.ToolTip = Nothing + ' + 'aFactoringDestroy + ' + Me.aFactoringDestroy.Caption = "aFactoring Destroy" + Me.aFactoringDestroy.Category = "ObjectsCreation" + Me.aFactoringDestroy.ConfirmationMessage = Nothing + Me.aFactoringDestroy.Id = "aFactoringDestroy" + Me.aFactoringDestroy.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFactoringDestroy.TargetViewId = "InvoiceFactoringHeader_ListView" + Me.aFactoringDestroy.ToolTip = Nothing + ' + 'aFactoringSendToBankPrintPreview + ' + Me.aFactoringSendToBankPrintPreview.Caption = "aFactoring Send To Bank Print Preview" + Me.aFactoringSendToBankPrintPreview.Category = "View" + Me.aFactoringSendToBankPrintPreview.ConfirmationMessage = Nothing + Me.aFactoringSendToBankPrintPreview.Id = "aFactoringSendToBankPrintPreview" + Me.aFactoringSendToBankPrintPreview.ImageName = "Action_Printing_Print" + Me.aFactoringSendToBankPrintPreview.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFactoringSendToBankPrintPreview.TargetObjectType = GetType(SISBusiness.[Module].InvoiceFactoringBank) + Me.aFactoringSendToBankPrintPreview.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aFactoringSendToBankPrintPreview.ToolTip = Nothing + Me.aFactoringSendToBankPrintPreview.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aFactoringSet As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFactoringSendToBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFactoringBackFromBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFactoringCreate As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFactoringDestroy As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFactoringSendToBankPrintPreview As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.resx new file mode 100644 index 0000000..a119f65 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 173 + + + 17, 212 + + + 17, 95 + + + 17, 56 + + + -4, 257 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb new file mode 100644 index 0000000..076b4f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Factoring/InvoiceFactoring_VC.vb @@ -0,0 +1,257 @@ +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 System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils + +Public Class InvoiceFactoring_VC + 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 = "InvoiceHeader_ListView_Factoring_Sended" Then + '// Bankba elkldtt faktorland szmlk + Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False) + + End If + If View.Id = "InvoiceHeader_ListView_Factoring_Contracted" Then + '// Elfogadott engedmnyezett szlk + Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False) + + End If + If View.Id = "InvoiceHeader_ListView_Factoring_Not_Send" Then + '// Elkszts alatti faktorland szmlk + Frame.GetController(Of InvoiceVC).aRecalculateHUF.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aViewInvoiceHold.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aCreateInvoiceCreditNote.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_ListView" Then + '// Vgleges szmlk + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + Private Sub aFactoringSet_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSet.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + For Each _InvoiceHeader In View.SelectedObjects + If _InvoiceHeader.IsFactoring = False Then + _InvoiceHeader.IsFactoring = True + ElseIf _InvoiceHeader.IsFactoring = True And _InvoiceHeader.Factoring_Send = False Then + _InvoiceHeader.IsFactoring = False + End If + Next + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + Private Sub aFactoringSendToBank_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringSendToBank.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = _onew.CreateObject(Of InvoiceFactoringPopup)() + + _InvoiceFactoringPopup.Factoring_Send_Date = Now + + Dim _InvoiceFactoringParameter As InvoiceFactoringParameter + + Dim _InvoiceFactoringParameter_Collection As New XPCollection(Of InvoiceFactoringParameter)(_onew.Session) + If _InvoiceFactoringParameter_Collection.Count = 1 Then + For Each _InvoiceFactoringParameter In _InvoiceFactoringParameter_Collection + _InvoiceFactoringPopup.InvoiceFactoringParameter = _InvoiceFactoringParameter + Exit For + Next + End If + + e.View = Application.CreateDetailView(_onew, "InvoiceFactoringPopup_DetailView", True, _InvoiceFactoringPopup) + + + End Sub + + Private Sub aFactoringSendToBank_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFactoringSendToBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceFactoringPopup As InvoiceFactoringPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringPopup) + Dim _Factoring_Send_Number As String = "" + Dim _InvoiceFactoringBank As InvoiceFactoringBank + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + For Each _InvoiceHeader In View.SelectedObjects + If _InvoiceHeader.IsFactoring = True Then + If _Factoring_Send_Number = "" Then + _Factoring_Send_Number = _InvoiceFactoringPopup.InvoiceFactoringParameter.NumberGenerator.GetNewNumber(_InvoiceFactoringPopup.InvoiceFactoringParameter.NumberGenerator) + End If + _InvoiceHeader.Factoring_Send = True + _InvoiceHeader.Factoring_Send_Date = _InvoiceFactoringPopup.Factoring_Send_Date + _InvoiceHeader.Factoring_Send_Number = _Factoring_Send_Number + _InvoiceHeader.InvoiceFactoringParameter = _ocur.GetObject(_InvoiceFactoringPopup.InvoiceFactoringParameter) + End If + Next + + _InvoiceFactoringBank = _ocur.CreateObject(Of InvoiceFactoringBank)() + _InvoiceFactoringBank.Factoring_Send_Date = _InvoiceFactoringPopup.Factoring_Send_Date + _InvoiceFactoringBank.Factoring_Send_Number = _Factoring_Send_Number + _InvoiceFactoringBank.CustomersFrom = _InvoiceHeader.CustomersFrom + _InvoiceFactoringBank.Customers = _InvoiceHeader.Customers + + For Each _InvoiceHeader In View.SelectedObjects + _InvoiceHeader.InvoiceFactoringBank = _InvoiceFactoringBank + Next + + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + '// Most kell a krelmet kinyomtatni !!!! + + Dim _ReportData As ReportData = _ocur.GetObject(_InvoiceFactoringPopup.InvoiceFactoringParameter.ReportData_Question) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Factoring_Send_Number=?", _Factoring_Send_Number), True) + End If + + + End Sub + + Private Sub aFactoringBackFromBank_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringBackFromBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceFactoringBank As InvoiceFactoringBank + Dim _InvoiceHeader As InvoiceHeader + Dim _ReadyForDelete As Boolean = False + Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse("1=2")) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + For Each _InvoiceFactoringBank In View.SelectedObjects + _ReadyForDelete = False + For Each _InvoiceHeader In _InvoiceFactoringBank.InvoiceHeader + If _InvoiceHeader.Factoring_Send = True And _InvoiceHeader.InvoiceFactoringRows Is Nothing Then + _ReadyForDelete = True + _InvoiceHeader.Factoring_Send = False + _InvoiceHeader.Factoring_Send_Date = Nothing + _InvoiceHeader.Factoring_Send_Number = "" + _InvoiceHeader.InvoiceFactoringBank = Nothing + End If + Next + If _ReadyForDelete Then + _InvoiceFactoringBank_Collection.Add(_InvoiceFactoringBank) + End If + Next + _ocur.Delete(_InvoiceFactoringBank_Collection) + _ocur.CommitChanges() + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + Private Sub aFactoringCreate_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFactoringCreate.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceFactoringHeaderPopup As InvoiceFactoringHeaderPopup = _onew.CreateObject(Of InvoiceFactoringHeaderPopup)() + + e.View = Application.CreateDetailView(_onew, "InvoiceFactoringHeaderPopup_DetailView", True, _InvoiceFactoringHeaderPopup) + + End Sub + + Private Sub aFactoringCreate_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFactoringCreate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceFactoringHeaderPopup As InvoiceFactoringHeaderPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceFactoringHeaderPopup) + + Dim _InvoiceFactoringHeader As InvoiceFactoringHeader = _ocur.CreateObject(Of InvoiceFactoringHeader)() + _InvoiceFactoringHeader.DocumentNumber = _InvoiceFactoringHeaderPopup.DocumentNumber + _InvoiceFactoringHeader.Description = _InvoiceFactoringHeaderPopup.Description + _InvoiceFactoringHeader.DateExecution = _InvoiceFactoringHeaderPopup.DateExecution + _InvoiceFactoringHeader.InterestPercent = _InvoiceFactoringHeaderPopup.InterestPercent + + '// FILEDATA thozsa msik objectspace-rl !!!! + If _InvoiceFactoringHeaderPopup.ContractFile IsNot Nothing Then + Dim _MemoryStream As New MemoryStream + _InvoiceFactoringHeaderPopup.ContractFile.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + Dim _FileData As FileData = _ocur.CreateObject(Of FileData)() + _FileData.LoadFromStream(_InvoiceFactoringHeaderPopup.ContractFile.FileName, _MemoryStream) + _InvoiceFactoringHeader.ContractFile = _FileData + End If + '// EXCEL TBLZAT MENTSE + + If _InvoiceFactoringHeaderPopup.SpreadFile IsNot Nothing Then + Dim _MemoryStreamXML As New MemoryStream + _InvoiceFactoringHeaderPopup.ContractFile.SaveToStream(_MemoryStreamXML) + _MemoryStreamXML.Seek(0, System.IO.SeekOrigin.Begin) + Dim _SpreadFile As FileData = _ocur.CreateObject(Of FileData)() + _SpreadFile.LoadFromStream(_InvoiceFactoringHeaderPopup.SpreadFile.FileName, _MemoryStreamXML) + _InvoiceFactoringHeader.SpreadFile = _SpreadFile + End If + + Dim _InvoiceFactoringRows As InvoiceFactoringRows + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + For Each _InvoiceHeader In View.SelectedObjects + _InvoiceFactoringRows = _ocur.CreateObject(Of InvoiceFactoringRows)() + _InvoiceFactoringRows.InvoiceFactoringHeader = _InvoiceFactoringHeader + _InvoiceFactoringRows.InvoiceHeader = _InvoiceHeader + _InvoiceHeader.InvoiceFactoringRows = _InvoiceFactoringRows + Next + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + Private Sub aFactoringDestroy_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringDestroy.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceFactoringHeader As InvoiceFactoringHeader + Dim _InvoiceFactoringRows As InvoiceFactoringRows + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + For Each _InvoiceFactoringHeader In View.SelectedObjects + For Each _InvoiceFactoringRows In _InvoiceFactoringHeader.InvoiceFactoringRows + _InvoiceFactoringRows.InvoiceHeader.InvoiceFactoringRows = Nothing + _InvoiceFactoringRows.InvoiceHeader = Nothing + Next + _ocur.Delete(_InvoiceFactoringHeader.InvoiceFactoringRows) + _ocur.Delete(_InvoiceFactoringHeader) + Next + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + + Private Sub aFactoringSendToBankPrintPreview_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFactoringSendToBankPrintPreview.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceFactoringBank As InvoiceFactoringBank = View.SelectedObjects(0) + + If _InvoiceFactoringBank IsNot Nothing Then + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, CriteriaOperator.Parse("InvoiceFactoringBank =?", _InvoiceFactoringBank)) + + If _InvoiceHeader_Collection.Count > 0 Then + Dim _ReportData As ReportData = _ocur.GetObject(_InvoiceHeader_Collection(0).InvoiceFactoringParameter.ReportData_Question) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Factoring_Send_Number=?", _InvoiceFactoringBank.Factoring_Send_Number), True) + End If + Else + MsgBox("Az sszelltott krelemhez nem tartozik faktorizlt szmla(k)!", MsgBoxStyle.OkOnly, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb new file mode 100644 index 0000000..94b0430 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb @@ -0,0 +1,148 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +'CreditNoteRows + _ + _ + _ + _ + _ + _ + _ + _ +Public Class InvoiceCreditNoteHeader + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _Storage As Storage + Private _StorageMoveType As StorageMoveType + Private _DateExecution As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _PaymentOption As PaymentOption + Private _DatePayment As Date + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateExecution = GetSQLTime(Session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + _ + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + '--==ReadOnly==-- + _ + _ + ReadOnly Property InvoiceCreditNoteRows As XPCollection(Of InvoiceCreditNoteRows) + Get + Return GetCollection(Of InvoiceCreditNoteRows)("InvoiceCreditNoteRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteRows.vb new file mode 100644 index 0000000..4dff52c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteRows.vb @@ -0,0 +1,154 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class InvoiceCreditNoteRows + Inherits BaseObject + + Private _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader + Private _QTT As Double 'Jvrt mennyisg + Private _PriceHUF As Double 'Jvrs ra + Private _PriceDEV As Double + Private _SumPriceHUF As Double 'Netto sor sszesen + Private _SumPriceDEV As Double + Private _SumPriceVATHUF As Double 'FA sor sszesen + Private _SumPriceVATDEV As Double + Private _SumPriceBruttoHUF As Double 'Brutto sor sszesen + Private _SumPriceBruttoDEV As Double + Private _Description As String + Private _StorageInRows As StorageInRows 'Viszart betrolsi sor + Private _FromInvoiceRows As InvoiceRows + Private _ToInvoiceRows As InvoiceRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property InvoiceCreditNoteHeader As InvoiceCreditNoteHeader + Get + Return _InvoiceCreditNoteHeader + End Get + Set(value As InvoiceCreditNoteHeader) + SetPropertyValue("InvoiceCreditNoteHeader", _InvoiceCreditNoteHeader, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property PriceHUF As Double + Get + Return _PriceHUF + End Get + Set(value As Double) + SetPropertyValue("PriceHUF", _PriceHUF, value) + End Set + End Property + Property PriceDEV As Double + Get + Return _PriceDEV + End Get + Set(value As Double) + SetPropertyValue("PriceDEV", _PriceDEV, value) + End Set + End Property + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + Property SumPriceVATHUF As Double + Get + Return _SumPriceVATHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value) + End Set + End Property + Property SumPriceVATDEV As Double + Get + Return _SumPriceVATDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value) + End Set + End Property + Property SumPriceBruttoHUF As Double + Get + Return _SumPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value) + End Set + End Property + Property SumPriceBruttoDEV As Double + Get + Return _SumPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property FromInvoiceRows As InvoiceRows + Get + Return _FromInvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("FromInvoiceRows", _FromInvoiceRows, value) + End Set + End Property + Property ToInvoiceRows As InvoiceRows + Get + Return _ToInvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("ToInvoiceRows", _ToInvoiceRows, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.Designer.vb new file mode 100644 index 0000000..6e40398 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.Designer.vb @@ -0,0 +1,70 @@ +Partial Class InvoiceCreditNote_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInvoiceCreditNoteHeader_AddRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInvoiceCreditNoteHeader_Finalize = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInvoiceCreditNoteHeader_AddRows + ' + Me.aInvoiceCreditNoteHeader_AddRows.AcceptButtonCaption = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.CancelButtonCaption = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.Caption = "aInvoiceCreditNoteHeader_AddRows" + Me.aInvoiceCreditNoteHeader_AddRows.Category = "ObjectsCreation" + Me.aInvoiceCreditNoteHeader_AddRows.ConfirmationMessage = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.Id = "aInvoiceCreditNoteHeader_AddRows" + Me.aInvoiceCreditNoteHeader_AddRows.ImageName = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.Shortcut = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.Tag = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.TargetObjectsCriteria = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.TargetObjectType = GetType(SISBusiness.[Module].InvoiceCreditNoteRows) + Me.aInvoiceCreditNoteHeader_AddRows.TargetViewId = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" + Me.aInvoiceCreditNoteHeader_AddRows.ToolTip = Nothing + Me.aInvoiceCreditNoteHeader_AddRows.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aInvoiceCreditNoteHeader_Finalize + ' + Me.aInvoiceCreditNoteHeader_Finalize.Caption = "aInvoiceCreditNoteHeader_Finalize" + Me.aInvoiceCreditNoteHeader_Finalize.Category = "ObjectsCreation" + Me.aInvoiceCreditNoteHeader_Finalize.ConfirmationMessage = "Are you sure ?" + Me.aInvoiceCreditNoteHeader_Finalize.Id = "aInvoiceCreditNoteHeader_Finalize" + Me.aInvoiceCreditNoteHeader_Finalize.ImageName = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.Shortcut = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.Tag = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.TargetObjectsCriteria = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.TargetObjectType = GetType(SISBusiness.[Module].InvoiceCreditNoteHeader) + Me.aInvoiceCreditNoteHeader_Finalize.TargetViewId = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aInvoiceCreditNoteHeader_Finalize.ToolTip = Nothing + Me.aInvoiceCreditNoteHeader_Finalize.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aInvoiceCreditNoteHeader_AddRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInvoiceCreditNoteHeader_Finalize As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.resx new file mode 100644 index 0000000..0f696e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 269, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb new file mode 100644 index 0000000..67557b3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNote_VC.vb @@ -0,0 +1,405 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class InvoiceCreditNote_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "InvoiceCreditNoteHeader_DetailView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "InvoiceRows_ListView_CreditNote" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf InvoiceRows_ListView_CreditNote_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "InvoiceCreditNoteHeader_DetailView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "InvoiceCreditNoteHeader_InvoiceCreditNoteRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + + Private Sub aInvoiceCreditNoteHeader_AddRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aInvoiceCreditNoteHeader_AddRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomersFrom As CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader).CustomersFrom.Oid) + Dim _Customers As Customers = _onew.GetObjectByKey(Of Customers)(TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader).Customers.Oid) + Dim _InvoiceRows_CollectionSource As New CollectionSource(_onew, GetType(InvoiceRows)) + + _InvoiceRows_CollectionSource.BeginUpdateCriteria() + _InvoiceRows_CollectionSource.Criteria.Clear() + _InvoiceRows_CollectionSource.Criteria.Add("First", CriteriaOperator.Parse("InvoiceHeader.IsStorno=False AND InvoiceHeader.IsEditable=False AND IsNull(InvoiceHeader.GCRecord)=True AND InvoiceHeader.DocumentNumber<>'' AND IsNull(InvoiceHeader)=False AND InvoiceHeader.CustomersFrom=? AND InvoiceHeader.Customers=? AND IsNull(OrderInRows)=False", _ + _CustomersFrom, _Customers)) + _InvoiceRows_CollectionSource.EndUpdateCriteria() + + + e.View = Application.CreateListView("InvoiceRows_ListView_CreditNote", _InvoiceRows_CollectionSource, True) + End Sub + Private Sub aInvoiceCreditNoteHeader_AddRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aInvoiceCreditNoteHeader_AddRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, InvoiceCreditNoteHeader) + + If _InvoiceCreditNoteHeader IsNot Nothing Then + For Each _InvoiceRows As InvoiceRows In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection + If _InvoiceRows.QTT_Will > 0 Then + Dim _InvoiceCreditNoteRows As InvoiceCreditNoteRows = _ocur.FindObject(Of InvoiceCreditNoteRows)(CriteriaOperator.Parse("InvoiceCreditNoteHeader=? AND FromInvoiceRows=?", _ + _InvoiceCreditNoteHeader, _ocur.GetObject(_InvoiceRows))) + If _InvoiceCreditNoteRows Is Nothing Then + _InvoiceCreditNoteRows = New InvoiceCreditNoteRows(_ocur.Session) + With _InvoiceCreditNoteRows + .InvoiceCreditNoteHeader = _InvoiceCreditNoteHeader + .QTT = _InvoiceRows.QTT_Will + .PriceHUF = _InvoiceRows.PriceHUF + .PriceDEV = _InvoiceRows.PriceDEV + .SumPriceHUF = Math.Round(.QTT * .PriceHUF, 0, MidpointRounding.AwayFromZero) + .SumPriceDEV = Math.Round(.QTT * .PriceDEV, 2, MidpointRounding.AwayFromZero) + .SumPriceVATHUF = Math.Round(.SumPriceHUF * _InvoiceRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + .SumPriceVATDEV = Math.Round(.SumPriceDEV * _InvoiceRows.VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + .SumPriceBruttoHUF = .SumPriceHUF + .SumPriceVATHUF + .SumPriceBruttoDEV = .SumPriceDEV + .SumPriceVATDEV + .Description = _InvoiceRows.Description + .FromInvoiceRows = _ocur.GetObject(_InvoiceRows) + End With + Else + With _InvoiceCreditNoteRows + .QTT += _InvoiceRows.QTT_Will + .SumPriceHUF = Math.Round(.QTT * .PriceHUF, 0, MidpointRounding.AwayFromZero) + .SumPriceDEV = Math.Round(.QTT * .PriceDEV, 2, MidpointRounding.AwayFromZero) + .SumPriceVATHUF = Math.Round(.SumPriceHUF * _InvoiceRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + .SumPriceVATDEV = Math.Round(.SumPriceDEV * _InvoiceRows.VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + .SumPriceBruttoHUF = .SumPriceHUF + .SumPriceVATHUF + .SumPriceBruttoDEV = .SumPriceDEV + .SumPriceVATDEV + End With + End If + End If + Next + + _ocur.CommitChanges() + End If + + End Sub + Private Sub aInvoiceCreditNoteHeader_Finalize_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInvoiceCreditNoteHeader_Finalize.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceCreditNoteHeader As InvoiceCreditNoteHeader = TryCast(View.SelectedObjects(0), InvoiceCreditNoteHeader) + + If _InvoiceCreditNoteHeader IsNot Nothing And _InvoiceCreditNoteHeader.InvoiceCreditNoteRows.Count > 0 Then + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + 'j szmlk darabszmnak meghatrozsa OrderInParameters alapjn + Dim _OrderInParameters_Array As New ArrayList + Dim _InvoiceHeader_Credited_Collection As New ArrayList + + For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteHeader.InvoiceCreditNoteRows + If _OrderInParameters_Array.Count = 0 Then + _OrderInParameters_Array.Add(_InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters) + Else + Dim _Need As Boolean = True + + For Each _OrderInParameters As OrderInParameters In _OrderInParameters_Array + If _OrderInParameters.Oid = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters.Oid Then + _Need = False + Exit For + End If + Next + + If _Need Then + _OrderInParameters_Array.Add(_InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters) + End If + End If + Next + + If _OrderInParameters_Array.Count > 0 Then + For Each _OrderInParameters As OrderInParameters In _OrderInParameters_Array + + Dim _InvoiceHeader_Credited As New InvoiceHeader(_ocur.Session) + With _InvoiceHeader_Credited + .InvoiceType = _OrderInParameters.InvoiceType + .CustomersFrom = _InvoiceCreditNoteHeader.CustomersFrom + .Customers = _InvoiceCreditNoteHeader.Customers + .DateCreated = GetSQLTime(_ocur.Session) + .DateExecution = _InvoiceCreditNoteHeader.DateExecution + .DatePayment = _InvoiceCreditNoteHeader.DatePayment + .PaymentOption = _InvoiceCreditNoteHeader.PaymentOption + .ShipmentOption = _OrderInParameters.ShipmentOption + .CurrencyName = _OrderInParameters.CurrencyName + If .PaymentOption.PayMode <> ePayMode.InCash Then + .BankInformation = _OrderInParameters.BankInformation + End If + .Description = _InvoiceCreditNoteHeader.Description + + InvoiceHeaderSavedSettings(_InvoiceHeader_Credited) + + If .PaymentOption.PayMode = ePayMode.InContinuous Then + .DatePayment = .DateExecution + Else + If .PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + .DatePayment = .DateCreated.AddDays(.PaymentOption.PayDay) + Else + .DatePayment = .DateExecution.AddDays(.PaymentOption.PayDay) + End If + End If + If .InvoiceType.NumberGeneratorProforma IsNot Nothing Then + .DocumentNumberProforma = .InvoiceType.NumberGeneratorProforma.GetNewNumber(.InvoiceType.NumberGeneratorProforma) + End If + + 'Vglegests + .IsCreditNote = True + .IsEditable = False + .IsProforma = False + .IsStorno = False + + '.ConnectInfo = .InvoiceType.NumberGenerator.GetNewNumber(.InvoiceType.NumberGenerator) + .DocumentNumber = .InvoiceType.NumberGenerator.GetNewNumber(.InvoiceType.NumberGenerator) '.ConnectInfo + End With + + + _InvoiceHeader_Credited_Collection.Add(_InvoiceHeader_Credited) + + 'Szmlasorok beszrsa + Dim _InvoiceCreditNoteRows_Collection As New XPCollection(Of InvoiceCreditNoteRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceCreditNoteHeader=? AND FromInvoiceRows.OrderInRows.OrderInHeader.OrderInParameters=?", _ + _InvoiceCreditNoteHeader, _OrderInParameters)) + + If _InvoiceCreditNoteRows_Collection.Count > 0 Then + For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteRows_Collection + Dim _InvoiceRows As New InvoiceRows(_ocur.Session) + With _InvoiceRows + .InvoiceHeader = _InvoiceHeader_Credited + .RowIndex = _InvoiceHeader_Credited.InvoiceRows.Count + .OrderInRows = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows + .InvoiceRowtype = eInvoiceRowType.FromOrder + .DiscountPriceDEV = 0 + .DiscountPriceHUF = 0 + .ListPriceDEV = _InvoiceCreditNoteRows.PriceDEV + .ListPriceHUF = _InvoiceCreditNoteRows.PriceHUF + .QTT = _InvoiceCreditNoteRows.QTT * (-1) + .QualityOption = _InvoiceCreditNoteRows.FromInvoiceRows.QualityOption + .ShortName = _InvoiceCreditNoteRows.FromInvoiceRows.ShortName + .Units = _InvoiceCreditNoteRows.FromInvoiceRows.Units + .VAT = _InvoiceCreditNoteRows.FromInvoiceRows.VAT + .Description = _InvoiceCreditNoteRows.Description + .CustomsTariffs = _InvoiceCreditNoteRows.FromInvoiceRows.CustomsTariffs + .Controlling = _InvoiceCreditNoteRows.FromInvoiceRows.Controlling + .InvoiceRows = _InvoiceCreditNoteRows.FromInvoiceRows + End With + _InvoiceCreditNoteRows.ToInvoiceRows = _InvoiceRows + If String.IsNullOrEmpty(_InvoiceHeader_Credited.ConnectInfo) Then + _InvoiceHeader_Credited.ConnectInfo = _InvoiceCreditNoteRows.FromInvoiceRows.InvoiceHeader.DocumentNumber + End If + Next + End If + Next + + + 'Betrols + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _InvoiceCreditNoteHeader.Storage + .StorageMoveType = _InvoiceCreditNoteHeader.StorageMoveType + .CreateDate = _InvoiceCreditNoteHeader.DateExecution + End With + + If _InvoiceCreditNoteHeader.InvoiceCreditNoteRows.Count > 0 Then + For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteHeader.InvoiceCreditNoteRows + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .RowIndex = _StorageInHeader.StorageInRows.Count + .Products = _InvoiceCreditNoteRows.FromInvoiceRows.OrderInRows.Products + .QTT_Will = _InvoiceCreditNoteRows.QTT + .AveragePriceInHUF = (_InvoiceCreditNoteRows.ToInvoiceRows.SumAveragePriceHUF / _InvoiceCreditNoteRows.ToInvoiceRows.QTT) + + If _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows IsNot Nothing Then + .PacketNumber = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.PacketNumber + .SerialNumber = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.SerialNumber + .Weight = Math.Round(_InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Weight / _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.QTT * _InvoiceCreditNoteRows.QTT, 4, MidpointRounding.AwayFromZero) + .WeightMode = _InvoiceCreditNoteRows.FromInvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.WeightMode + End If + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + .Products, _StorageInHeader.Storage)) + + If _StorageComputed Is Nothing Then + _StorageComputed = _ocur.CreateObject(Of StorageComputed)() + _StorageComputed.Storage = .Storage + _StorageComputed.Products = .Products + _StorageComputed.QTTReservedIn = .QTT_Will + Else + _StorageComputed.QTTReservedIn += .QTT_Will + End If + + End With + Next + End If + + 'Betrols vglegestse + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _onew.GetObject(_StorageInRows.Products), _onew.GetObject(_StorageInHeader.Storage))) + + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + With _StorageMoveEvents + .StorageInRows = _onew.GetObject(_StorageInRows) + .QTT = _StorageInRows.QTT_Will + .QTT_Free_After = _StorageComputed.QTTFree + .QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + .MoveEventsType = eMoveEventsType.StorageInFinal + .ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + End With + + _StorageInRows.QTT_Will = 0 + End If + Next + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + + _ocur.CommitChanges() + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Credited_Collection + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + Next + _ocur.CommitChanges() + + Dim _ReportData_Storage As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData_Storage Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_Storage, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Credited_Collection + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _CurrencyName As CurrencyName + + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + End If + End If + End If + Next + End If + End If + End If + View.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub InvoiceRows_ListView_CreditNote_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _onew As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + For Each _InvoiceRows As InvoiceRows In TryCast(View, ListView).CollectionSource.Collection + If _InvoiceRows.QTT_Will > 0 Then + If (_InvoiceRows.QTT_CreditNote + _InvoiceRows.QTT_Will) > _InvoiceRows.QTT Then + e.Cancel = True + Throw New Exception(String.Format("A {0} rendelsen lv {1} sorban az eladott mennyisg kisebb, mint a visszavenni kvnt mennyisg!", _ + _InvoiceRows.InvoiceHeader.DocumentNumber, _InvoiceRows.OrderInRows.Products.ShortName)) + End If + End If + Next + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub InvoiceHeaderSavedSettings(ByVal _InvoiceHeader As InvoiceHeader) + On Error GoTo CheckError + With _InvoiceHeader + .Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString + .Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString + .Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString + .Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString + .Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString + .Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString + .Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString + .Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString + + .Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString + .Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + .Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString + .Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString + .Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + .Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString + .Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + .Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + .Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + .Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + .Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + End With + +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb new file mode 100644 index 0000000..700161d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb @@ -0,0 +1,1769 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.Reports +Imports System.IO + +Public Enum eDatePaymentMode + eDateCreated = 0 + eDateExecution = 1 +End Enum +' _ +' _ +' _ +' _ +' _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class InvoiceHeader + Inherits BaseObject + Private _InvoiceType As InvoiceType + Private _DocumentNumber As String 'Számla száma + Private _DocumentNumberProforma As String 'Számla száma proforma ! + Private _ConnectInfo As String 'A kapcsolt számla száma (stornó esetén a stornózott számla száma) + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Ügyfél + Private _DateCreated As Date 'Kiállítás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _VATAvowalType As eVATAvowalType 'ÁFA bevallás módja + '// PIVOT miatt -------------------------------------------------------------- + Private _DateExecutionYear As String + Private _DateExecutionMonth As String + Private _DateExecutionQuarter As String + Private _DateExecutionWeek As String + '---------------------------------------------------------------------------- + Private _DatePayment As Date 'Fizetési határidő + Private _DatePaymentMode As eDatePaymentMode + Private _InvoicePeriod As String 'Számlázási időszak string + Private _Description As String 'Számlán szereplő megjegyzés + Private _DescriptionHeader As String 'Számlán szereplő fejléc megjegyzés + Private _PaymentOption As PaymentOption 'Fizetési opció (ebből automatikusan DatePayment és Date Execution) + Private _ShipmentOption As ShipmentOption 'Szállítási kondíció + Private _QualityOption As QualityOption ' Minőségbiztosítási kondíció + Private _CurrencyName As CurrencyName 'Deviza + Private _CurrencyRate As Double = 0 'Árfolyam, ha a deviza nem HUF egyébként 1 + Private _IsEditable As Boolean = True 'Szerkeszthető, végleges + Private _IsStorno As Boolean = False 'Stornó + Private _IsProforma As Boolean = False 'Próbaszámla állapot + Private _IsCorrigendum As Boolean = False 'Helyesbítő számla + Private _IsCreditNote As Boolean = False 'Jóváíró számla + Private _HUNumberToText As String = "" 'Ez tárolja az azaz kettőezer-kettőszáthuszonkilenc szöveget + Private _TotalNettoHUF As Double = 0 + Private _TotalVATHUF As Double = 0 + Private _TotalBruttoHUF As Double = 0 + Private _BankInformation As BankInformation ' A fejlécben megjelenő számlaszám + Private _TotalNettoDEV As Double = 0 + Private _TotalVATDEV As Double = 0 + Private _TotalBruttoDEV As Double = 0 + Private _PCIGroup As PCIGroup + Private _IsImported As Boolean = False 'Főkönyvbe be lett e már rögzítve + Private _GLAccounts As GLAccounts 'Főkönyvbe rögzített feladott számla + Private _BookEntryErrorString As String = "" 'Főkönyvi feladás során hiba + Private _ReadyforBookEntry As Boolean = False + Private _InvoiceHeader As InvoiceHeader 'Helyesbített számla esetén az eredeti számla, amit helyesbít + Private _LateChargesCountMode As LateChargesCountMode 'A késedelmi kamat számításának módszere + + Private _IsAssetsHandling As Boolean = True 'Lesz e kinnlévőség kezelése + Private _AssetsHandling_Note As String 'Kinnlévőség megjegyzés + Private _AssetsHandlingStatus As AssetsHandlingStatus + Private _AssetsHandling_GLMixed As GLMixed 'Ha van késedelmi kamatértesítő, akkor ebbe kerül be + Private _IsLateCharge As Boolean = True 'Kell-e erre a számlára vonatkozólag késedelmi kamat ? + + Private _UserCreated As User + Private _NotNeedFinancial As Boolean = False 'Pénzügyi rendezést nem igényel + Private _LateChargesBalanceHUF As Double 'Késedelmi kamat összege forintban + + '-- a számla kiállításakor el kell menteni bizonyos adatokat + + Private _Saved_Customers_Name As String + Private _Saved_Customers_Address_Country As String + Private _Saved_Customers_Address_ZipPostal As String + Private _Saved_Customers_Address_Street As String + Private _Saved_Customers_Address_City As String + Private _Saved_Customers_Address_StateProvince As String + Private _Saved_Customers_VATNumber As String + Private _Saved_Customers_VATNumberEU As String + + Private _Saved_CustomersFrom_Name As String + Private _Saved_CustomersFrom_Address_Country As String + Private _Saved_CustomersFrom_Address_ZipPostal As String + Private _Saved_CustomersFrom_Address_Street As String + Private _Saved_CustomersFrom_Address_City As String + Private _Saved_CustomersFrom_Address_StateProvince As String + Private _Saved_CustomersFrom_VATNumber As String + Private _Saved_CustomersFrom_VATNumberEU As String + + Private _Saved_CustomersFrom_Bank_ShortName As String + Private _Saved_CustomersFrom_Bank_IBAN As String + Private _Saved_CustomersFrom_Bank_SWIFT As String + Private _Saved_CustomersFrom_Bank_AccountNumber As String + + + + '-- PDF !!! + Private _PDF_Original As FileData ' + Private _PDF_Copy As FileData + Private _PrintCopy As Long = 0 + + + '-- Faktor információk !!! + Private _IsFactoring As Boolean = False 'Faktorálás van-e ? + Private _Factoring_PDF_Signed As FileData 'Az ügyfél által aláírt szkennelt számla ! + Private _Factoring_Send As Boolean = False 'El lett-e küldve a bank felé + Private _Factoring_Send_Date As Date 'Mikor lett elküldve + Private _Factoring_Send_Number As String 'Milyen sorszámon, ez a beküldési reporthoz kell. + Private _InvoiceFactoringRows As InvoiceFactoringRows 'Milyen engedményezési szerződésen igazolták vissza + Private _InvoiceFactoringParameter As InvoiceFactoringParameter ' Faktorálási paraméter !!! + Private _InvoiceFactoringBank As InvoiceFactoringBank 'Bankba küldési csomag ! + + '-- Nonpersistent objektumok a számla sor rögzítéséhez + Private _row_CustomsTariffs As CustomsTariffs 'ITJ, SZJ, Vámtarifaszám stb. + Private _row_ShortName As String 'Megnevezés + Private _row_Description As String 'Leírás + Private _row_ListPriceHUF As Double = 0 ' Egységár HUF (nettó !) + Private _row_ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !) + Private _row_DiscountPercent As Double 'Kedvezmény mértéke %-ban + Private _row_QTT As Double = 0 'Mennyiség + Private _row_Units As Units ' Mennyiségi egység + Private _row_VAT As VAT 'ÁFA + Private _row_QualityOption As QualityOption 'Minőségi kondíció + Private _row_Controlling As Controlling '-- Controlling szám + Private _row_UniqueObjects As UniqueObjects ' -- Egyedi azonosító + Private _row_CostHolder As CostHolder ' -- Költség viselő + Private _row_CostPlace As CostPlace ' -- Költség viselő + Private _row_JobNumberObjects As JobNumberObjects ' -- Project + Private _row_InvoicePeriod As String 'Számlázási időszak + Private _row_Products As Products 'Termék a terméktörzsből + Private _row_Services As Services 'Szolgáltatás a szolgáltatástörzsből + + Structure sVAT + Dim VAT As VAT + Dim AmountNettoHUF As Double + Dim AmountVATHUF As Double + Dim AmountBruttoHUF As Double + Dim AmountNettoDEV As Double + Dim AmountVATDEV As Double + Dim AmountBruttoDEV As Double + End Structure + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DateCreated = GetSQLTime(Session) + Me.DateExecution = GetSQLTime(Session) + Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName = 'HUF'")) + Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.row_QTT = 1 + Me.IsAssetsHandling = True + Me.VATAvowalType = eVATAvowalType.eGeneral + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + '// Az árfolyammal újra kell számolni a sorokat ! (DEV -> HUF !!) + If Me.CurrencyName.ShortName <> "HUF" Then + + End If + If UserCreated Is Nothing Then + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If String.IsNullOrEmpty(DateExecutionYear) Then DateExecutionYear = DateExecution.Year.ToString + If String.IsNullOrEmpty(DateExecutionMonth) Then DateExecutionMonth = DateExecution.Month.ToString + If String.IsNullOrEmpty(DateExecutionQuarter) Then DateExecutionQuarter = DatePart(DateInterval.Quarter, DateExecution).ToString + If String.IsNullOrEmpty(DateExecutionWeek) Then DateExecutionWeek = DatePart(DateInterval.WeekOfYear, DateExecution).ToString + + End Sub + + ' --- XPCollections + _ + _ + Public ReadOnly Property InvoiceRows() As XPCollection(Of InvoiceRows) + Get + Return GetCollection(Of InvoiceRows)("InvoiceRows") + End Get + End Property + _ + _ + Public ReadOnly Property InvoiceVATRows() As XPCollection(Of InvoiceVATRows) + Get + Return GetCollection(Of InvoiceVATRows)("InvoiceVATRows") + End Get + End Property + _ + ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold) + Get + Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me)) + End Get + End Property + + _ + _ + Property InvoiceType() As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property DocumentNumberProforma As String + Get + Return _DocumentNumberProforma + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumberProforma", _DocumentNumberProforma, value) + End Set + End Property + _ + Property ConnectInfo() As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If value IsNot Nothing Then + If value.PaymentOption IsNot Nothing And Me.PaymentOption Is Nothing Then + Me.PaymentOption = value.PaymentOption + End If + If value.ShipmentOption IsNot Nothing And Me.ShipmentOption Is Nothing Then + Me.ShipmentOption = value.ShipmentOption + End If + If value.QualityOption IsNot Nothing And Me.QualityOption Is Nothing Then + Me.QualityOption = value.QualityOption + End If + End If + End If + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.PaymentOption IsNot Nothing Then + Select Case Me.DatePaymentMode + Case eDatePaymentMode.eDateCreated + Case eDatePaymentMode.eDateExecution + Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay) + End Select + + End If + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.DateExecution = Nothing Then + Me.DatePayment = Nothing + End If + End Set + End Property + Property VATAvowalType As eVATAvowalType + Get + Return _VATAvowalType + End Get + Set(value As eVATAvowalType) + SetPropertyValue("VATAvowalType", _VATAvowalType, value) + End Set + End Property + _ + Property DateExecutionYear As String + Get + Return _DateExecutionYear + End Get + Set(value As String) + SetPropertyValue("DateExecutionYear", _DateExecutionYear, value) + End Set + End Property + _ + Property DateExecutionMonth As String + Get + Return _DateExecutionMonth + End Get + Set(value As String) + SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value) + End Set + End Property + _ + Property DateExecutionQuarter As String + Get + Return _DateExecutionQuarter + End Get + Set(value As String) + SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value) + End Set + End Property + _ + Property DateExecutionWeek As String + Get + Return _DateExecutionWeek + End Get + Set(value As String) + SetPropertyValue("DateExecutionWeek", _DateExecutionWeek, value) + End Set + End Property + Property DatePayment() As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property DatePaymentMode As eDatePaymentMode + Get + Return _DatePaymentMode + End Get + Set(value As eDatePaymentMode) + SetPropertyValue("DatePaymentMode", _DatePaymentMode, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DescriptionHeader As String + Get + Return _DescriptionHeader + End Get + Set(ByVal value As String) + SetPropertyValue("DescriptionHeader", _DescriptionHeader, value) + End Set + End Property + _ + _ + _ + Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And IsStorno = False Then + If Me.DateExecution > #1/1/1900# And Me.PaymentOption IsNot Nothing Then + Select Case Me.DatePaymentMode + Case eDatePaymentMode.eDateExecution + Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay) + Case eDatePaymentMode.eDateCreated + Me.DatePayment = Me.DateCreated.AddDays(Me.PaymentOption.PayDay) + End Select + + End If + If value.PayMode = ePayMode.InCash Then + Me.DateExecution = GetSQLTime(Session) + Me.DatePayment = GetSQLTime(Session) + End If + End If + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + _ + Property CurrencyRate() As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + + End Set + End Property + _ + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property IsProforma As Boolean + Get + Return _IsProforma + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsProforma", _IsProforma, value) + End Set + End Property + _ + Property IsCorrigendum As Boolean + Get + Return _IsCorrigendum + End Get + Set(value As Boolean) + SetPropertyValue("IsCorrigendum", _IsCorrigendum, value) + End Set + End Property + _ + Property IsCreditNote As Boolean + Get + Return _IsCreditNote + End Get + Set(value As Boolean) + SetPropertyValue("IsCreditNote", _IsCreditNote, value) + End Set + End Property + _ + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + _ + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property LateChargesCountMode As LateChargesCountMode + Get + Return _LateChargesCountMode + End Get + Set(value As LateChargesCountMode) + SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value) + End Set + End Property + _ + Property IsAssetsHandling As Boolean + Get + Return _IsAssetsHandling + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value) + End Set + End Property + _ + Property AssetsHandling_Note As String + Get + Return _AssetsHandling_Note + End Get + Set(value As String) + SetPropertyValue("AssetsHandling_Note", _AssetsHandling_Note, value) + End Set + End Property + Property AssetsHandlingStatus As AssetsHandlingStatus + Get + Return _AssetsHandlingStatus + End Get + Set(value As AssetsHandlingStatus) + SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value) + End Set + End Property + _ + Property AssetsHandling_GLMixed As GLMixed + Get + Return _AssetsHandling_GLMixed + End Get + Set(value As GLMixed) + SetPropertyValue("AssetsHandling_GLMixed", _AssetsHandling_GLMixed, value) + End Set + End Property + _ + Property IsLateCharge As Boolean + Get + Return _IsLateCharge + End Get + Set(value As Boolean) + SetPropertyValue("IsLateCharge", _IsLateCharge, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property NotNeedFinancial As Boolean + Get + Return _NotNeedFinancial + End Get + Set(value As Boolean) + SetPropertyValue("NotNeedFinancial", _NotNeedFinancial, value) + End Set + End Property + + Property LateChargesBalanceHUF As Double + Get + Return _LateChargesBalanceHUF + End Get + Set(value As Double) + SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value) + End Set + End Property + + '-- a számla kiállításakor el kell menteni bizonyos adatokat + _ + Property Saved_Customers_Name As String + Get + Return _Saved_Customers_Name + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Name", _Saved_Customers_Name, value) + End Set + End Property + _ + Property Saved_Customers_Address_Country As String + Get + Return _Saved_Customers_Address_Country + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Address_Country", _Saved_Customers_Address_Country, value) + End Set + End Property + _ + Property Saved_Customers_Address_ZipPostal As String + Get + Return _Saved_Customers_Address_ZipPostal + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Address_ZipPostal", _Saved_Customers_Address_ZipPostal, value) + End Set + End Property + _ + Property Saved_Customers_Address_Street As String + Get + Return _Saved_Customers_Address_Street + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Address_Street", _Saved_Customers_Address_Street, value) + End Set + End Property + _ + Property Saved_Customers_Address_City As String + Get + Return _Saved_Customers_Address_City + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Address_City", _Saved_Customers_Address_City, value) + End Set + End Property + _ + Property Saved_Customers_Address_StateProvince As String + Get + Return _Saved_Customers_Address_StateProvince + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_Address_StateProvince", _Saved_Customers_Address_StateProvince, value) + End Set + End Property + _ + Property Saved_Customers_VATNumber As String + Get + Return _Saved_Customers_VATNumber + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_VATNumber", _Saved_Customers_VATNumber, value) + End Set + End Property + _ + Property Saved_Customers_VATNumberEU As String + Get + Return _Saved_Customers_VATNumberEU + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_Customers_VATNumberEU ", _Saved_Customers_VATNumberEU, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Name As String + Get + Return _Saved_CustomersFrom_Name + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Name", _Saved_CustomersFrom_Name, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Address_Country As String + Get + Return _Saved_CustomersFrom_Address_Country + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Address_Country", _Saved_CustomersFrom_Address_Country, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Address_ZipPostal As String + Get + Return _Saved_CustomersFrom_Address_ZipPostal + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Address_ZipPostal", _Saved_CustomersFrom_Address_ZipPostal, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Address_Street As String + Get + Return _Saved_CustomersFrom_Address_Street + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Address_Street", _Saved_CustomersFrom_Address_Street, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Address_City As String + Get + Return _Saved_CustomersFrom_Address_City + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Address_City", _Saved_CustomersFrom_Address_City, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Address_StateProvince As String + Get + Return _Saved_CustomersFrom_Address_StateProvince + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Address_StateProvince", _Saved_CustomersFrom_Address_StateProvince, value) + End Set + End Property + _ + Property Saved_CustomersFrom_VATNumber As String + Get + Return _Saved_CustomersFrom_VATNumber + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_VATNumber", _Saved_CustomersFrom_VATNumber, value) + End Set + End Property + _ + Property Saved_CustomersFrom_VATNumberEU As String + Get + Return _Saved_CustomersFrom_VATNumberEU + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_VATNumberEU", _Saved_CustomersFrom_VATNumberEU, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Bank_ShortName As String + Get + Return _Saved_CustomersFrom_Bank_ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Bank_ShortName", _Saved_CustomersFrom_Bank_ShortName, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Bank_IBAN As String + Get + Return _Saved_CustomersFrom_Bank_IBAN + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Bank_IBAN", _Saved_CustomersFrom_Bank_IBAN, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Bank_SWIFT As String + Get + Return _Saved_CustomersFrom_Bank_SWIFT + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Bank_SWIFT", _Saved_CustomersFrom_Bank_SWIFT, value) + End Set + End Property + _ + Property Saved_CustomersFrom_Bank_AccountNumber As String + Get + Return _Saved_CustomersFrom_Bank_AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("Saved_CustomersFrom_Bank_AccountNumber", _Saved_CustomersFrom_Bank_AccountNumber, value) + End Set + End Property + + ReadOnly Property Saved_Customers_FullAddress As String + Get + Return Saved_Customers_Address_ZipPostal & " " & Saved_Customers_Address_City & " " & vbCrLf & _ + Saved_Customers_Address_Street & vbCrLf & Saved_Customers_Address_Country + End Get + End Property + ReadOnly Property Saved_CustomersFrom_FullAddress As String + Get + Return Saved_CustomersFrom_Address_ZipPostal & " " & Saved_CustomersFrom_Address_City & " " & vbCrLf & _ + Saved_CustomersFrom_Address_Street & vbCrLf & Saved_CustomersFrom_Address_Country + End Get + End Property + + _ + Property TotalBruttoHUF As Double + Get + Return _TotalBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalBruttoHUF", _TotalBruttoHUF, value) + End Set + End Property + Property TotalNettoHUF As Double + Get + Return _TotalNettoHUF + End Get + Set(value As Double) + SetPropertyValue("TotalNettoHUF", _TotalNettoHUF, value) + End Set + End Property + Property TotalVATHUF As Double + Get + Return _TotalVATHUF + End Get + Set(value As Double) + SetPropertyValue("TotalVATHUF", _TotalVATHUF, value) + End Set + End Property + + _ + Property TotalBruttoDEV As Double + Get + Return _TotalBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalBruttoDEV", _TotalBruttoDEV, value) + End Set + End Property + Property TotalNettoDEV As Double + Get + Return _TotalNettoDEV + End Get + Set(value As Double) + SetPropertyValue("TotalNettoDEV", _TotalNettoDEV, value) + End Set + End Property + Property TotalVATDEV As Double + Get + Return _TotalVATDEV + End Get + Set(value As Double) + SetPropertyValue("TotalVATDEV", _TotalVATDEV, value) + End Set + End Property + + Property PCIGroup As PCIGroup + Get + Return _PCIGroup + End Get + Set(value As PCIGroup) + SetPropertyValue("PCIGroup", _PCIGroup, value) + End Set + End Property + + _ + _ + Property HUNumberToText As String + Get + Return _HUNumberToText + End Get + Set(ByVal value As String) + SetPropertyValue("HUNumberToText", _HUNumberToText, value) + End Set + End Property + _ + Property IsImported As Boolean + Get + Return _IsImported + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsImported", _IsImported, value) + End Set + End Property + _ + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(ByVal value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + _ + _ + Property BookEntryErrorString As String + Get + Return _BookEntryErrorString + End Get + Set(ByVal value As String) + SetPropertyValue("BookEntryErrorString", _BookEntryErrorString, value) + End Set + End Property + _ + Property ReadyforBookEntry As Boolean + Get + Return _ReadyforBookEntry + End Get + Set(ByVal value As Boolean) + SetPropertyValue("ReadyforBookEntry", _ReadyforBookEntry, value) + End Set + End Property + + Property PDF_Original As FileData + Get + Return _PDF_Original + End Get + Set(value As FileData) + SetPropertyValue("PDF_Original", _PDF_Original, value) + End Set + End Property + Property PDF_Copy As FileData + Get + Return _PDF_Copy + End Get + Set(value As FileData) + SetPropertyValue("PDF_Copy", _PDF_Copy, value) + End Set + End Property + Property PrintCopy As Long + Get + Return _PrintCopy + End Get + Set(value As Long) + SetPropertyValue("PrintCopy", _PrintCopy, value) + End Set + End Property + + ReadOnly Property IsBookEntry As Boolean + Get + If _GLAccounts IsNot Nothing Then + Return True + Else + Return False + End If + End Get + End Property + _ + ReadOnly Property DisplayName() As String + Get + If Me.CurrencyName IsNot Nothing Then + Return Me.DocumentNumber & "," & Me.CurrencyName.ShortName + Else + Return Me.DocumentNumber + End If + End Get + End Property + _ + ReadOnly Property Contact_string() As String + Get + Dim _Contact As String = "" + If OrderInHeader_Collection.Count > 0 Then + _Contact = OrderInHeader_Collection(0).Contacts.DisplayNamePostal.ToString + End If + Return _Contact + End Get + End Property + _ + ReadOnly Property CustomersRefNumber_string() As String + Get + Dim _CustomersRefNumber As String = "" + If OrderInHeader_Collection.Count > 0 Then + If OrderInHeader_Collection(0).CustomersRefNumber <> Nothing Then + _CustomersRefNumber = OrderInHeader_Collection(0).CustomersRefNumber.ToString + End If + End If + Return _CustomersRefNumber + End Get + End Property + + 'Faktorálás miatt + Property IsFactoring As Boolean + Get + Return _IsFactoring + End Get + Set(value As Boolean) + SetPropertyValue("IsFactoring", _IsFactoring, value) + End Set + End Property + Property Factoring_PDF_Signed As FileData + Get + Return _Factoring_PDF_Signed + End Get + Set(value As FileData) + SetPropertyValue("Factoring_PDF_Signed", _Factoring_PDF_Signed, value) + End Set + End Property + Property Factoring_Send As Boolean + Get + Return _Factoring_Send + End Get + Set(value As Boolean) + SetPropertyValue("Factoring_Send", _Factoring_Send, value) + End Set + End Property + Property Factoring_Send_Date As Date + Get + Return _Factoring_Send_Date + End Get + Set(value As Date) + SetPropertyValue("Factoring_Send_Date", _Factoring_Send_Date, value) + End Set + End Property + Property Factoring_Send_Number As String + Get + Return _Factoring_Send_Number + End Get + Set(value As String) + SetPropertyValue("Factoring_Send_Number", _Factoring_Send_Number, value) + End Set + End Property + Property InvoiceFactoringRows As InvoiceFactoringRows + Get + Return _InvoiceFactoringRows + End Get + Set(value As InvoiceFactoringRows) + SetPropertyValue("InvoiceFactoringRows", _InvoiceFactoringRows, value) + End Set + End Property + Property InvoiceFactoringParameter As InvoiceFactoringParameter + Get + Return _InvoiceFactoringParameter + End Get + Set(value As InvoiceFactoringParameter) + SetPropertyValue("InvoiceFactoringParameter", _InvoiceFactoringParameter, value) + End Set + End Property + Property InvoiceFactoringBank As InvoiceFactoringBank + Get + Return _InvoiceFactoringBank + End Get + Set(value As InvoiceFactoringBank) + SetPropertyValue("InvoiceFactoringBank", _InvoiceFactoringBank, value) + End Set + End Property + '-- Nonpersistent property-k a számla sor rögzítéséhez + _ + _ + Property row_CustomsTariffs As CustomsTariffs + Get + Return _row_CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("row_CustomsTariffs", _row_CustomsTariffs, value) + End Set + End Property + _ + _ + _ + Property row_ShortName() As String 'Megnevezés + Get + Return _row_ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("row_ShortName", _row_ShortName, value) + End Set + End Property + _ + _ + _ + Property row_Description() As String 'Leírás + Get + Return _row_Description + End Get + Set(ByVal value As String) + SetPropertyValue("row_Description", _row_Description, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceHUF() As Double ' Egységár HUF (nettó !) + Get + Return _row_ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceDEV() As Double ' Egységár DEV (Nettó !) + Get + Return _row_ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + row_ListPriceHUF = Math.Round(Me.CurrencyRate, 2, MidpointRounding.AwayFromZero) * value + End If + End Set + End Property + _ + _ + _ + Property row_DiscountPercent() As Double 'Kedvezmény mértéke %-ban + Get + Return _row_DiscountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value) + End Set + End Property + ' _ + ' _ + _ + _ + _ + Property row_QTT() As Double 'Mennyiség + Get + Return _row_QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + _ + _ + _ + Property row_Units() As Units ' Mennyiségi egység + Get + Return _row_Units + End Get + Set(ByVal value As Units) + SetPropertyValue("row_Units", _row_Units, value) + End Set + End Property + _ + _ + _ + Property row_VAT() As VAT 'ÁFA + Get + Return _row_VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + _ + Property row_QualityOption() As QualityOption 'Minőségi kondíció + Get + Return _row_QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("row_QualityOption", _row_QualityOption, value) + End Set + End Property + _ + _ + _ + Property row_InvoicePeriod As String + Get + Return _row_InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("row_InvoicePeriod", _row_InvoicePeriod, value) + End Set + End Property + _ + _ + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(value As Products) + SetPropertyValue("row_Products", _row_Products, value) + End Set + End Property + _ + _ + _ + _ + Property row_Services As Services + Get + Return _row_Services + End Get + Set(value As Services) + SetPropertyValue("row_Services", _row_Services, value) + End Set + End Property + 'Rule5DMatrix ... + _ + _ + _ + _ + Property row_Controlling() As Controlling '-- Controlling szám + Get + Return _row_Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("row_Controlling", _row_Controlling, value) + End Set + End Property + _ + _ + _ + Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító + Get + Return _row_UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value) + End Set + End Property + _ + _ + _ + Property row_CostHolder() As CostHolder ' -- Költség viselő + Get + Return _row_CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("row_CostHolder", _row_CostHolder, value) + End Set + End Property + _ + _ + _ + Property row_CostPlace() As CostPlace ' -- Költség viselő + Get + Return _row_CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("row_CostPlace", _row_CostPlace, value) + End Set + End Property + _ + _ + _ + Property row_JobNumberObjects() As JobNumberObjects ' -- Project + Get + Return _row_JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value) + End Set + End Property + '-- Függvények egyéb eljárások + Sub RecalculateInvoice(ByVal _InvoiceHeader As InvoiceHeader, ByVal _ocur As Xpo.XPObjectSpace) + '-- A rutin újragenerálja a pénzügyi sorokat + Dim _InvoiceVATRows As InvoiceVATRows + Dim i As Long = 1 + Dim j As Long = 1 + Dim _Exists As Boolean = False + + _ocur.Delete(_InvoiceHeader.InvoiceVATRows) + Dim invoices = New XPQuery(Of InvoiceRows)(_ocur.Session) + Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid _ + Group invoice By invoice.VAT Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _ + Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _ + Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} + For Each item In query + _InvoiceVATRows = _ocur.CreateObject(Of InvoiceVATRows)() + _InvoiceVATRows.InvoiceHeader = _InvoiceHeader + _InvoiceVATRows.VAT = item.VAT + _InvoiceVATRows.AmountNettoHUF = item.AmountNettoHUF + _InvoiceVATRows.AmountVATHUF = 0 + If item.VAT IsNot Nothing Then + _InvoiceVATRows.AmountVATHUF = Math.Round(item.VAT.KeyValue * _InvoiceVATRows.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + End If + _InvoiceVATRows.AmountBruttoHUF = Math.Round(_InvoiceVATRows.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _InvoiceVATRows.AmountVATHUF + _InvoiceVATRows.AmountNettoHUF = Math.Round(_InvoiceVATRows.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _InvoiceVATRows.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + _InvoiceVATRows.AmountVATDEV = 0 + If item.VAT IsNot Nothing Then + _InvoiceVATRows.AmountVATDEV = Math.Round(item.VAT.KeyValue * _InvoiceVATRows.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + End If + _InvoiceVATRows.AmountBruttoDEV = _InvoiceVATRows.AmountNettoDEV + _InvoiceVATRows.AmountVATDEV + + + _InvoiceHeader.InvoiceVATRows.Add(_InvoiceVATRows) + Next + TotalBruttoDEV = 0 + TotalBruttoHUF = 0 + TotalNettoHUF = 0 + TotalVATHUF = 0 + TotalNettoDEV = 0 + TotalVATDEV = 0 + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + TotalBruttoHUF += _InvoiceVATRows.AmountBruttoHUF + TotalBruttoDEV += _InvoiceVATRows.AmountBruttoDEV + + TotalNettoHUF += _InvoiceVATRows.AmountNettoHUF + TotalNettoDEV += _InvoiceVATRows.AmountNettoDEV + + TotalVATHUF += _InvoiceVATRows.AmountVATHUF + TotalVATDEV += _InvoiceVATRows.AmountVATDEV + Next + + 'If CurrencyName.ShortName <> "HUF" Then + ' If TotalBruttoDEV <> 0 Then + ' CurrencyRate = Math.Round(TotalBruttoHUF / TotalBruttoDEV, 2, MidpointRounding.AwayFromZero) + ' Else + ' CurrencyRate = 1 + ' End If + 'Else + ' CurrencyRate = 1 + 'End If + + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceHeader.HUNumberToText = GetHUNumberToText(TotalBruttoHUF) + Else + _InvoiceHeader.HUNumberToText = GetHUNumberToText(TotalBruttoDEV) + End If + _ocur.CommitChanges() + + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + End Sub + Sub BookEntryRemove(ByVal _p_InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False) + 'Az eljárás visszavon egy feladást a főkönyvből + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + + Dim _InvoiceHeader As InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_p_InvoiceHeader.Oid) + + Dim _ChartOfAccountsYear As ChartOfAccountsYear = _uow.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _InvoiceHeader.DateExecution.Year)) + + If _ChartOfAccountsYear Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs megnyitva a {0} főkönyvi év !", _InvoiceHeader.DateExecution.Year.ToString) + _InvoiceHeader.Save() + If _WithCommit Then _uow.CommitTransaction() + Exit Sub + End If + + If _ChartOfAccountsYear.IsClosed Then + _InvoiceHeader.BookEntryErrorString = String.Format("Zárolt főkönyvi év ! {0}", _InvoiceHeader.DateExecution.Year.ToString) + _InvoiceHeader.Save() + If _WithCommit Then _uow.CommitTransaction() + Exit Sub + End If + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _InvoiceHeader.GLAccounts.Oid)) + _uow.Delete(_GLRows_Collection) + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("Oid=?", _InvoiceHeader.GLAccounts.Oid)) + _uow.Delete(_GLAccounts_Collection) + _InvoiceHeader.GLAccounts = Nothing + _InvoiceHeader.ReadyforBookEntry = False + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.ReadyforBookEntryRows = False + Next + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _InvoiceVATRows.ReadyforBookEntryRows = False + Next + + If _WithCommit Then _uow.CommitChanges() + End Sub + Sub BookEntry(ByVal _p_BookEntryMode As Long, ByVal _p_InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False) + + '//ÁFA miatt !!! + Dim _SQL As String = "" + Select Case GLOBAL_SQLType + Case eSQLType.MySQL + _SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON" + _SQL += " t1.InvoiceHeader = t2.Oid" + _SQL += " SET t1.DateVAT = t2.DateExecution" + _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL" + Case eSQLType.MSSQL + _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution" + _SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON" + _SQL += " t1.InvoiceHeader = t2.Oid" + _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL" + Case eSQLType.PostgreSQL + _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution""" + _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON" + _SQL += " t1.""InvoiceHeader""=t2.""Oid""" + _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL" + End Select + + _uow.ExecuteNonQuery(_SQL) + _uow.CommitChanges() + + + + ' Az eljárás feladást készít erről a számláról + ' BookentryMode=0 akkor tételes fealás + ' BookentryMode=1 akkor jelölőadatokra csoportosított feladás + If _p_InvoiceHeader Is Nothing Then Exit Sub + 'If _p_InvoiceHeader.InvoiceType.InvoiceTypeBase = eInvoiceTypeBase.eCustomRate Then Exit Sub 'Az előleg bekérőt nem könyveljük !!! + + Dim _InvoiceHeader As InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_p_InvoiceHeader.Oid) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + Dim _GLAccounts As GLAccounts + Dim _GLRows As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = _InvoiceHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, eVATMode.eOut) + + + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _Controlling As Controlling + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _JobNumberObjects As JobNumberObjects + Dim _UniqueObjects As UniqueObjects + + Dim _GUID As Guid = Guid.NewGuid + Dim _NettoNotRounded As Double = 0 + Dim _NettoRounded As Double = 0 + ' Megnézi, hogy történt-e már feladás + If _InvoiceHeader.GLAccounts IsNot Nothing Then + BookEntryRemove(_InvoiceHeader, _uow, False) + End If + If BookEntryCheck(_p_BookEntryMode, _InvoiceHeader, _uow, _WithCommit) = False Then + + Exit Sub + End If + If _p_BookEntryMode = 0 Then 'Tételes feladás a főkönyvbe + _GLAccounts = New GLAccounts(_uow) + _GLAccounts.AmountDEVBrutto = _InvoiceHeader.TotalBruttoDEV + _GLAccounts.AmountHUFBrutto = _InvoiceHeader.TotalBruttoHUF + _GLAccounts.ImportedInvoice = _InvoiceHeader + _GLAccounts.Customers = _InvoiceHeader.Customers + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLAccounts.PaymentOption = _InvoiceHeader.PaymentOption + _GLAccounts.CurrencyName = _InvoiceHeader.CurrencyName + _GLAccounts.CurrencyRate = _InvoiceHeader.CurrencyRate + _GLAccounts.CustomersFrom = _InvoiceHeader.CustomersFrom + _GLAccounts.DateCreated = _InvoiceHeader.DateCreated.Date + _GLAccounts.DateExecution = _InvoiceHeader.DateExecution.Date + _GLAccounts.DatePayment = _InvoiceHeader.DatePayment.Date + _GLAccounts.DocumentNumber = _InvoiceHeader.DocumentNumber + _GLAccounts.ConnectInfo = _InvoiceHeader.ConnectInfo + _GLAccounts.IsEditable = False + _GLAccounts.IsStorno = False + _GLAccounts.NoteHeader = _InvoiceHeader.Description + _GLAccounts.RegistryNumber = _InvoiceHeader.DocumentNumber + + + _InvoiceHeader.GLAccounts = _GLAccounts + + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + '-- Netto sor + + _GLRows = New GLRows(_uow) + If _InvoiceRows.DateExecution = Nothing Then + _GLRows.DateExecution = _InvoiceHeader.DateExecution + Else + _GLRows.DateExecution = _InvoiceRows.DateExecution + End If + + If _InvoiceRows.ContractRows IsNot Nothing Then + If _InvoiceRows.ChartOfAccounts Is Nothing Then + _CreditChartOfAccounts = _InvoiceRows.ContractRows.Controlling.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, False) + Else + _CreditChartOfAccounts = _InvoiceRows.ChartOfAccounts + End If + _Controlling = _InvoiceRows.ContractRows.Controlling + _CostHolder = _InvoiceRows.ContractRows.CostHolder + _CostPlace = _InvoiceRows.ContractRows.CostPlace + _JobNumberObjects = _InvoiceRows.ContractRows.JobNumberObjects + _UniqueObjects = _InvoiceRows.ContractRows.UniqueObjects + Else + If _InvoiceRows.ChartOfAccounts Is Nothing Then + _CreditChartOfAccounts = _InvoiceRows.Controlling.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, False) + Else + _CreditChartOfAccounts = _InvoiceRows.ChartOfAccounts + End If + _Controlling = _InvoiceRows.Controlling + _CostHolder = _InvoiceRows.CostHolder + _CostPlace = _InvoiceRows.CostPlace + _JobNumberObjects = _InvoiceRows.JobNumberObjects + _UniqueObjects = _InvoiceRows.UniqueObjects + End If + _GLRows.InvoiceRows = _InvoiceRows + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _InvoiceRows.SumPriceDEV, _ + _InvoiceRows.SumPriceHUF, Nothing, _InvoiceHeader.Customers, _InvoiceHeader.DateExecution.Date, _InvoiceRows.VAT, _ + _InvoiceRows.Description, _UniqueObjects, _Controlling, _JobNumberObjects, _ + _CostPlace, _CostHolder, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables) + _NettoNotRounded += _InvoiceRows.SumPriceHUF + Next + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _GLRows = New GLRows(_uow) + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _InvoiceVATRows.VAT.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, eVATMode.eOut), _InvoiceVATRows.AmountVATDEV, _ + _InvoiceVATRows.AmountVATHUF, Nothing, _InvoiceHeader.Customers, _InvoiceVATRows.DateVAT.Date, _InvoiceVATRows.VAT, _ + "", Nothing, Nothing, Nothing, _ + Nothing, Nothing, _InvoiceHeader.ConnectInfo, eGLRowsTypeVAT.eVATRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.eReceivables) + + _NettoRounded += _InvoiceVATRows.AmountBruttoHUF - _InvoiceVATRows.AmountVATHUF + Next + + '-- Most a kerekítésből adódó sort rátesszük a legnagyobb netto sorra + If Math.Round(_NettoRounded - _NettoNotRounded, 2, MidpointRounding.AwayFromZero) <> 0 Then + _GLAccounts.GLRows.Sorting.Add(New SortProperty("AmountHUF", DB.SortingDirection.Descending)) + For Each _GLRows In _GLAccounts.GLRows + _GLRows.AmountHUF += Math.Round(_NettoRounded - _NettoNotRounded, 2, MidpointRounding.AwayFromZero) + Exit For + Next + End If + + + + ElseIf _p_BookEntryMode = 1 Then '-- Összevont feladás + + End If + + If _WithCommit Then _uow.CommitChanges() + End Sub + Function BookEntryCheck(ByVal _BookEntryMode As Long, ByVal _InvoiceHeader As InvoiceHeader, ByVal _uow As UnitOfWork, Optional ByVal WithCommit As Boolean = False) + 'Feladás előtti ellenőrzés + 'Mit kell ellenőrizni ? + 'Főkönyvi számlák, Debit,Credit + 'ÁFA főkönyvi számlája + Dim _InvoiceRows As InvoiceRows + 'If _InvoiceHeader.InvoiceType.InvoiceTypeBase = eInvoiceTypeBase.eCustomRate Then + ' Return True + ' Exit Function + 'End If + + Dim _ChartOfAccountsYear As ChartOfAccountsYear = _uow.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _InvoiceHeader.DateExecution.Year)) + + If _ChartOfAccountsYear Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs megnyitva a {0} főkönyvi év !", _InvoiceHeader.DateExecution.Year.ToString) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + + If _ChartOfAccountsYear.IsClosed Then + _InvoiceHeader.BookEntryErrorString = String.Format("Zárolt főkönyvi év ! {0}", _InvoiceHeader.DateExecution.Year.ToString) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + + If _InvoiceHeader.GLAccounts IsNot Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Könyvelve {0}") + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.ContractRows IsNot Nothing Then + If _InvoiceRows.ContractRows.Controlling Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs kontrollszám: {0}", _InvoiceRows.ShortName) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + Else + If _InvoiceRows.ContractRows.Controlling.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, False) Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs FK. szám: {0}", _InvoiceRows.ContractRows.Controlling.Name) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + End If + Else + If _InvoiceRows.Controlling Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs kontrollszám: {0}", _InvoiceRows.ShortName) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + Else + If _InvoiceRows.Controlling.GetChartOfAccounts(_InvoiceHeader.DateExecution.Year, False) Is Nothing Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nincs FK. szám: {0}", _InvoiceRows.Controlling.Name) + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + End If + End If + If _InvoiceRows.ReadyforBookEntryRows = False Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nem könyvelhető minden nettó sor !") + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + Next + + Dim _InvoiceVATRows As InvoiceVATRows + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + If _InvoiceVATRows.ReadyforBookEntryRows = False Then + _InvoiceHeader.BookEntryErrorString = String.Format("Nem könyvelhető minden ÁFA sor !") + _InvoiceHeader.Save() + _uow.CommitTransaction() + Return False + End If + Next + Return True + + End Function + Function GeneratePDFs(_ocur As Xpo.XPObjectSpace, _InvoiceHeader As InvoiceHeader, Optional _DeletePDF As Boolean = True, Optional _ReportData As ReportData = Nothing) As String + If _ReportData Is Nothing Then + 'Dim _ReportData As ReportData + + Select Case _InvoiceHeader.CurrencyName.ShortName + Case "HUF" : _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData.Oid), True) + Case "EUR" : _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData_DEV_EU.Oid), True) + Case Else : _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData_DEV.Oid), True) + End Select + End If + + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FilterString As String = "[InvoiceHeader.Oid]='" & _InvoiceHeader.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & CorrectFileName(_InvoiceHeader.DocumentNumber) & ".pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + _StreamFile = New FileStream(_FileName, FileMode.Open, FileAccess.Read) + Dim _StreamReader As New StreamReader(_StreamFile) + _StreamFile.Seek(0, SeekOrigin.Begin) + + If _InvoiceHeader.PrintCopy = 1 Then + _InvoiceHeader.PDF_Original = New FileData(_ocur.Session) + _InvoiceHeader.PDF_Original.LoadFromStream(CorrectFileName(_InvoiceHeader.DocumentNumber) & "_ORIGINAL.pdf", _StreamFile) + _InvoiceHeader.PDF_Original.FileName = CorrectFileName(_InvoiceHeader.DocumentNumber) & "_ORIGINAL.pdf" + Else + _InvoiceHeader._PDF_Copy = New FileData(_ocur.Session) + _InvoiceHeader._PDF_Copy.LoadFromStream(CorrectFileName(_InvoiceHeader.DocumentNumber) & "_COPY.pdf", _StreamFile) + _InvoiceHeader._PDF_Copy.FileName = CorrectFileName(_InvoiceHeader.DocumentNumber) & "_COPY.pdf" + End If + + _StreamReader.Close() + _StreamFile.Close() + + If _DeletePDF Then + File.Delete(_FileName) + Return "" + Else + Return _FileName + End If + Else + Return "" + End If + End Function + + '-- Számla információk (XPCollection) + '// Kapcsolódó bejövő megrendelések + _ + ReadOnly Property OrderInHeader_Collection As XPCollection(Of OrderInHeader) + Get + Dim _OrderInHeader_Collection As XPCollection(Of OrderInHeader) + Dim _InvoiceRows As InvoiceRows + Dim _CriteriaString As String = "" + For Each _InvoiceRows In Me.InvoiceRows + If _InvoiceRows.OrderInRows IsNot Nothing Then + If _CriteriaString = "" Then + _CriteriaString = " Oid in ('" & _InvoiceRows.OrderInRows.OrderInHeader.Oid.ToString & "'" + Else + _CriteriaString += ", '" & _InvoiceRows.OrderInRows.OrderInHeader.Oid.ToString & "'" + End If + End If + If _InvoiceRows.OrderInRowsOther IsNot Nothing Then + If _CriteriaString = "" Then + _CriteriaString = " Oid in ('" & _InvoiceRows.OrderInRowsOther.OrderInHeader.Oid.ToString & "'" + Else + _CriteriaString += ", '" & _InvoiceRows.OrderInRowsOther.OrderInHeader.Oid.ToString & "'" + End If + End If + Next + If _CriteriaString <> "" Then + _CriteriaString += ")" + End If + If _CriteriaString = "" Then + _OrderInHeader_Collection = New XPCollection(Of OrderInHeader)(Session, CriteriaOperator.Parse("1=2")) + Else + _OrderInHeader_Collection = New XPCollection(Of OrderInHeader)(Session, CriteriaOperator.Parse(_CriteriaString)) + End If + + Return _OrderInHeader_Collection + End Get + End Property + '// Kapcsolódó munkalapok + _ + ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header) + Get + Dim _WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header) + Dim _InvoiceRows As InvoiceRows + Dim _CriteriaString As String = "" + For Each _InvoiceRows In Me.InvoiceRows + If _InvoiceRows.Worksheet_CostRows IsNot Nothing Then + If _CriteriaString = "" Then + _CriteriaString = " Oid in ('" & _InvoiceRows.Worksheet_CostRows.WorkSheet_Header.Oid.ToString & "'" + Else + _CriteriaString += ", '" & _InvoiceRows.Worksheet_CostRows.WorkSheet_Header.Oid.ToString & "'" + End If + End If + Next + If _CriteriaString <> "" Then + _CriteriaString += ")" + End If + If _CriteriaString = "" Then + _WorkSheet_Header_Collection = New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("1=2")) + Else + _WorkSheet_Header_Collection = New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse(_CriteriaString)) + End If + + Return _WorkSheet_Header_Collection + End Get + End Property + '// Kapcsolódó szerződések + _ + ReadOnly Property Contracts_Collection As XPCollection(Of Contracts) + Get + Dim _Contracts_Collection As XPCollection(Of Contracts) + Dim _InvoiceRows As InvoiceRows + Dim _CriteriaString As String = "" + For Each _InvoiceRows In Me.InvoiceRows + If _InvoiceRows.ContractRows IsNot Nothing Then + If _CriteriaString = "" Then + _CriteriaString = " Oid in ('" & _InvoiceRows.ContractRows.Contracts.Oid.ToString & "'" + Else + _CriteriaString += ", '" & _InvoiceRows.ContractRows.Contracts.Oid.ToString & "'" + End If + End If + Next + If _CriteriaString <> "" Then + _CriteriaString += ")" + End If + If _CriteriaString = "" Then + _Contracts_Collection = New XPCollection(Of Contracts)(Session, CriteriaOperator.Parse("1=2")) + Else + _Contracts_Collection = New XPCollection(Of Contracts)(Session, CriteriaOperator.Parse(_CriteriaString)) + End If + + Return _Contracts_Collection + End Get + End Property + + _ + ReadOnly Property IsVATClosed As Boolean + Get + Dim _Closed As Boolean = False + If Me.CustomersFrom IsNot Nothing Then + If Me.IsEditable = False Then + Dim _VATReport As VATReport = Session.FindObject(Of VATReport) _ + (CriteriaOperator.Parse("GetDate(DateFrom)<=? and GetDate(DateTo)>=? and CustomersFrom=? and Closed=True", _ + Me.DateExecution.Date, Me.DateExecution.Date, Me.CustomersFrom)) + If _VATReport IsNot Nothing Then + _Closed = _VATReport.Closed + End If + End If + End If + Return _Closed + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHold.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHold.vb new file mode 100644 index 0000000..0b533f3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHold.vb @@ -0,0 +1,115 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eHoldRowType + Normal = 0 + Hold = 1 +End Enum + _ +Public Class InvoiceHold + Inherits BaseObject + + Private _InvoiceHeader As InvoiceHeader 'Szmla fejlc + Private _RowIndex As Long = 0 'Sor index + Private _RowType As eHoldRowType + Private _DatePayment As Date 'Fizetsi hatrid + Private _ShortName As String 'Visszatarts oka (szveg) + Private _AmountHUF As Double 'Visszatarts sszege HUF + Private _AmountDEV As Double 'Visszatarts sszege DEV + Private _BallanceDEV As Double 'Egyenleg (DEV) + Private _BallanceHUF As Double 'Egyenleg (HUF) + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property RowType As eHoldRowType + Get + Return _RowType + End Get + Set(value As eHoldRowType) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment.Date + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value.Date) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.Designer.vb new file mode 100644 index 0000000..88bb72b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.Designer.vb @@ -0,0 +1,214 @@ +Partial Class InvoiceRowVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTableD_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_InvoiceRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_InvoiceRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintInvoiceByRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aChangeInvoiceByRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInvoiceRowPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aChoiceProducts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aChoiceService = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aToTableD_Invoice + ' + Me.aToTableD_Invoice.Caption = "Delete row" + Me.aToTableD_Invoice.Category = "aToTableD_Invoice" + Me.aToTableD_Invoice.ConfirmationMessage = Nothing + Me.aToTableD_Invoice.Id = "aToTableD_Invoice" + Me.aToTableD_Invoice.ImageName = "row_delete" + Me.aToTableD_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_Invoice.Shortcut = Nothing + Me.aToTableD_Invoice.Tag = Nothing + Me.aToTableD_Invoice.TargetObjectsCriteria = Nothing + Me.aToTableD_Invoice.TargetViewId = "" + Me.aToTableD_Invoice.ToolTip = Nothing + Me.aToTableD_Invoice.TypeOfView = Nothing + ' + 'aToTable_Invoice + ' + Me.aToTable_Invoice.Caption = "aToTable" + Me.aToTable_Invoice.Category = "aToTable_Invoice" + Me.aToTable_Invoice.ConfirmationMessage = Nothing + Me.aToTable_Invoice.Id = "aToTable_Invoice" + Me.aToTable_Invoice.ImageName = "row_add_after" + Me.aToTable_Invoice.Shortcut = Nothing + Me.aToTable_Invoice.Tag = Nothing + Me.aToTable_Invoice.TargetObjectsCriteria = "row_QTT<>0" + Me.aToTable_Invoice.TargetViewId = "" + Me.aToTable_Invoice.ToolTip = Nothing + Me.aToTable_Invoice.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aBackToRowEdit_Invoice + ' + Me.aBackToRowEdit_Invoice.Caption = "Edit row" + Me.aBackToRowEdit_Invoice.Category = "aBackToRowEdit_Invoice" + Me.aBackToRowEdit_Invoice.ConfirmationMessage = Nothing + Me.aBackToRowEdit_Invoice.Id = "aBackToRowEdit_Invoice" + Me.aBackToRowEdit_Invoice.ImageName = "table_refresh" + Me.aBackToRowEdit_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_Invoice.Shortcut = Nothing + Me.aBackToRowEdit_Invoice.Tag = Nothing + Me.aBackToRowEdit_Invoice.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_Invoice.TargetViewId = "" + Me.aBackToRowEdit_Invoice.ToolTip = Nothing + Me.aBackToRowEdit_Invoice.TypeOfView = Nothing + ' + 'aUp_InvoiceRow + ' + Me.aUp_InvoiceRow.Caption = "Up" + Me.aUp_InvoiceRow.Category = "RecordsNavigation" + Me.aUp_InvoiceRow.ConfirmationMessage = Nothing + Me.aUp_InvoiceRow.Id = "aUp_InvoiceRow" + Me.aUp_InvoiceRow.ImageName = "arrow_up_green" + Me.aUp_InvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_InvoiceRow.Shortcut = Nothing + Me.aUp_InvoiceRow.Tag = Nothing + Me.aUp_InvoiceRow.TargetObjectsCriteria = Nothing + Me.aUp_InvoiceRow.TargetViewId = "InvoiceHeader_InvoiceRows_ListView" + Me.aUp_InvoiceRow.ToolTip = Nothing + Me.aUp_InvoiceRow.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aDown_InvoiceRow + ' + Me.aDown_InvoiceRow.Caption = "Down" + Me.aDown_InvoiceRow.Category = "RecordsNavigation" + Me.aDown_InvoiceRow.ConfirmationMessage = Nothing + Me.aDown_InvoiceRow.Id = "aDown_InvoiceRow" + Me.aDown_InvoiceRow.ImageName = "arrow_down_green" + Me.aDown_InvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_InvoiceRow.Shortcut = Nothing + Me.aDown_InvoiceRow.Tag = Nothing + Me.aDown_InvoiceRow.TargetObjectsCriteria = Nothing + Me.aDown_InvoiceRow.TargetViewId = "InvoiceHeader_InvoiceRows_ListView" + Me.aDown_InvoiceRow.ToolTip = Nothing + Me.aDown_InvoiceRow.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aPrintInvoiceByRows + ' + Me.aPrintInvoiceByRows.Caption = "aPrint Invoice By Rows" + Me.aPrintInvoiceByRows.Category = "View" + Me.aPrintInvoiceByRows.ConfirmationMessage = Nothing + Me.aPrintInvoiceByRows.Id = "aPrintInvoiceByRows" + Me.aPrintInvoiceByRows.ImageName = Nothing + Me.aPrintInvoiceByRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintInvoiceByRows.Shortcut = Nothing + Me.aPrintInvoiceByRows.Tag = Nothing + Me.aPrintInvoiceByRows.TargetObjectsCriteria = Nothing + Me.aPrintInvoiceByRows.TargetObjectType = GetType(SISBusiness.[Module].InvoiceRows) + Me.aPrintInvoiceByRows.TargetViewId = Nothing + Me.aPrintInvoiceByRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPrintInvoiceByRows.ToolTip = Nothing + Me.aPrintInvoiceByRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aChangeInvoiceByRows + ' + Me.aChangeInvoiceByRows.AcceptButtonCaption = Nothing + Me.aChangeInvoiceByRows.CancelButtonCaption = Nothing + Me.aChangeInvoiceByRows.Caption = "aChange Invoice By Rows" + Me.aChangeInvoiceByRows.ConfirmationMessage = Nothing + Me.aChangeInvoiceByRows.Id = "aChangeInvoiceByRows" + Me.aChangeInvoiceByRows.ImageName = Nothing + Me.aChangeInvoiceByRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aChangeInvoiceByRows.Shortcut = Nothing + Me.aChangeInvoiceByRows.Tag = Nothing + Me.aChangeInvoiceByRows.TargetObjectsCriteria = Nothing + Me.aChangeInvoiceByRows.TargetObjectType = GetType(SISBusiness.[Module].InvoiceRows) + Me.aChangeInvoiceByRows.TargetViewId = Nothing + Me.aChangeInvoiceByRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aChangeInvoiceByRows.ToolTip = Nothing + Me.aChangeInvoiceByRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aInvoiceRowPrint + ' + Me.aInvoiceRowPrint.Caption = "aInvoiceRowPrint" + Me.aInvoiceRowPrint.Category = "Print" + Me.aInvoiceRowPrint.ConfirmationMessage = Nothing + Me.aInvoiceRowPrint.Id = "aInvoiceRowPrint" + Me.aInvoiceRowPrint.ImageName = Nothing + Me.aInvoiceRowPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aInvoiceRowPrint.Shortcut = Nothing + Me.aInvoiceRowPrint.Tag = Nothing + Me.aInvoiceRowPrint.TargetObjectsCriteria = Nothing + Me.aInvoiceRowPrint.TargetObjectType = GetType(SISBusiness.[Module].InvoiceRows) + Me.aInvoiceRowPrint.TargetViewId = "" + Me.aInvoiceRowPrint.ToolTip = Nothing + Me.aInvoiceRowPrint.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aChoiceProducts + ' + Me.aChoiceProducts.AcceptButtonCaption = Nothing + Me.aChoiceProducts.CancelButtonCaption = Nothing + Me.aChoiceProducts.Caption = "aChoice Products" + Me.aChoiceProducts.Category = "aChoiceProducts" + Me.aChoiceProducts.ConfirmationMessage = Nothing + Me.aChoiceProducts.Id = "aChoiceProducts" + Me.aChoiceProducts.ImageName = Nothing + Me.aChoiceProducts.Shortcut = Nothing + Me.aChoiceProducts.Tag = Nothing + Me.aChoiceProducts.TargetObjectsCriteria = Nothing + Me.aChoiceProducts.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aChoiceProducts.TargetViewId = Nothing + Me.aChoiceProducts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aChoiceProducts.ToolTip = Nothing + Me.aChoiceProducts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aChoiceService + ' + Me.aChoiceService.AcceptButtonCaption = Nothing + Me.aChoiceService.CancelButtonCaption = Nothing + Me.aChoiceService.Caption = "aChoice Service" + Me.aChoiceService.Category = "aChoiceService" + Me.aChoiceService.ConfirmationMessage = Nothing + Me.aChoiceService.Id = "aChoiceService" + Me.aChoiceService.ImageName = Nothing + Me.aChoiceService.Shortcut = Nothing + Me.aChoiceService.Tag = Nothing + Me.aChoiceService.TargetObjectsCriteria = Nothing + Me.aChoiceService.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aChoiceService.TargetViewId = Nothing + Me.aChoiceService.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aChoiceService.ToolTip = Nothing + Me.aChoiceService.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aToTableD_Invoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_Invoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_Invoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_InvoiceRow As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_InvoiceRow As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintInvoiceByRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aChangeInvoiceByRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInvoiceRowPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aChoiceProducts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aChoiceService As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.resx new file mode 100644 index 0000000..08ab546 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 173 + + + 17, 212 + + + 17, 290 + + + 17, 56 + + + 17, 329 + + + 17, 368 + + + 17, 134 + + + 17, 251 + + + 689, 212 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb new file mode 100644 index 0000000..77c27f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowVC.vb @@ -0,0 +1,467 @@ +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.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + +Public Class InvoiceRowVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Protected _noselect As Boolean = False + Protected _selection As ArrayList + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + _selection = New ArrayList() + End Sub + Private _InvoiceRows_Corr As InvoiceRows + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aChoiceProducts.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aChoiceService.Active.SetItemValue("", False) + + If View.Id = "InvoiceHeader_DetailView" Then + Dim _InvoiceHeader As InvoiceHeader = Nothing + If View.SelectedObjects.Count > 0 Then + _InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + End If + If _InvoiceHeader IsNot Nothing Then + If _InvoiceHeader.IsEditable = True Then + Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aChoiceProducts.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aChoiceService.Active.SetItemValue("", True) + End If + End If + End If + + If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "InvoiceRows_ListView_Table" Then + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "OrderInHeader_InvoiceRows_ListView" Or View.Id = "InvoiceHeader_InvoiceRows_ListView" Then + Frame.GetController(Of InvoiceRowVC).aInvoiceRowPrint.Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", True) ' Kijelölt sor törlése + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + + If View.Id = "InvoiceHeader_InvoiceVATRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "InvoiceRows_ListView_Table" Then + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "OrderInHeader_InvoiceRows_ListView" Or View.Id = "InvoiceHeader_InvoiceRows_ListView" Then + Frame.GetController(Of InvoiceRowVC).aInvoiceRowPrint.Active.SetItemValue("", True) + End If + End Sub + Private Sub aToTable_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_Invoice.Execute + Dim _InvoiceHeader As InvoiceHeader = CType(e.SelectedObjects(0), InvoiceHeader) + + If _InvoiceHeader.IsCorrigendum Then + Dim _ItemInvoiceRows As ListPropertyEditor = TryCast(View, DetailView).FindItem("@InvoiceHeader.InvoiceRows") + If _ItemInvoiceRows IsNot Nothing Then + _InvoiceRows_Corr = TryCast(_ItemInvoiceRows.ListView.SelectedObjects(0), InvoiceRows) + End If + End If + + If _InvoiceRows_Corr IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + End If + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + + Dim _InvoiceRows_Originalminus As InvoiceRows = Nothing + If _InvoiceRows_Corr IsNot Nothing Then + _InvoiceRows_Originalminus = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=1 AND InvoiceRows.Oid=?", _InvoiceRows_Corr.Oid)) + End If + + If _InvoiceRows_Originalminus Is Nothing Then + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.AddRows(_InvoiceHeader, _InvoiceRows_Corr, _ocur) + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + If ItemControl IsNot Nothing Then 'A Control ha ures lépjen tovább + ItemControl.Focus() + End If + End If + + _ocur.CommitChanges() + _InvoiceRows_Corr = Nothing + If _InvoiceRows_Corr IsNot Nothing Then + _InvoiceHeader.row_QTT = 0 + Else + _InvoiceHeader.row_QTT = 1 + End If + _InvoiceHeader.row_ShortName = "" + _InvoiceHeader.row_Description = "" + _InvoiceHeader.row_ListPriceHUF = 0 + _InvoiceHeader.row_ListPriceDEV = 0 + _InvoiceHeader.row_DiscountPercent = 0 + _InvoiceHeader.row_QualityOption = Nothing + _InvoiceHeader.row_Controlling = Nothing + _InvoiceHeader.row_UniqueObjects = Nothing + _InvoiceHeader.row_CostHolder = Nothing + _InvoiceHeader.row_CostPlace = Nothing + _InvoiceHeader.row_JobNumberObjects = Nothing + + + + If _InvoiceRows_Corr IsNot Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End If + Else + '_ocur.Rollback() + Throw New Exception("*Ez a sor már módosítva lett!") + End If + View.Refresh() + End Sub + Private Sub aToTableD_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_Invoice.Execute + Dim _InvoiceRows As InvoiceRows + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceRows_ListEditor As ListPropertyEditor + + _InvoiceRows_ListEditor = TryCast(View, DetailView).FindItem("InvoiceRows") + For Each _InvoiceRows In _InvoiceRows_ListEditor.ListView.SelectedObjects + If _InvoiceRows.InvoiceRowCorrigendumType <> eInvoiceRowCorrigendumType.eNormal Then + Dim _InvoiceRows_Link As InvoiceRows = Nothing + If _InvoiceRows.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNew Then + _InvoiceRows_Link = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=1 AND InvoiceRows.Oid=?", _InvoiceRows.InvoiceRows.Oid)) + End If + If _InvoiceRows.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eOriginalMinus Then + _InvoiceRows_Link = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=2 AND InvoiceRows.Oid=?", _InvoiceRows.InvoiceRows.Oid)) + End If + _InvoiceRows_Link.Delete() + + End If + _InvoiceRows.RemoveRows(_InvoiceHeader) + Next + _InvoiceHeader.Save() + + View.Refresh() + End Sub + Private Sub aBackToRowEdit_Invoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_Invoice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése + Dim _ListView As ListPropertyEditor + If _InvoiceHeader.IsCorrigendum = True Then + _ListView = TryCast(View, DetailView).FindItem("@InvoiceHeader.InvoiceRows") 'Sorok összeszedése + Else + _ListView = TryCast(View, DetailView).FindItem("InvoiceRows") 'Sorok összeszedése + End If + If _ListView.ListView.SelectedObjects.Count > 0 Then + + Dim _InvoiceRows As InvoiceRows = _ListView.ListView.SelectedObjects(0) 'Régi sor változóba töltése + _InvoiceHeader.row_Controlling = _InvoiceRows.Controlling + _InvoiceHeader.row_CostHolder = _InvoiceRows.CostHolder + _InvoiceHeader.row_CostPlace = _InvoiceRows.CostPlace + _InvoiceHeader.row_Description = _InvoiceRows.Description + _InvoiceHeader.row_DiscountPercent = _InvoiceRows.DiscountPercent + _InvoiceHeader.row_JobNumberObjects = _InvoiceRows.JobNumberObjects + _InvoiceHeader.row_ListPriceDEV = _InvoiceRows.ListPriceDEV + _InvoiceHeader.row_ListPriceHUF = _InvoiceRows.ListPriceHUF + _InvoiceHeader.row_QTT = _InvoiceRows.QTT + _InvoiceHeader.row_QualityOption = _InvoiceRows.QualityOption + _InvoiceHeader.row_ShortName = _InvoiceRows.ShortName + _InvoiceHeader.row_UniqueObjects = _InvoiceRows.UniqueObjects + _InvoiceHeader.row_Units = _InvoiceRows.Units + _InvoiceHeader.row_VAT = _InvoiceRows.VAT + _InvoiceHeader.row_InvoicePeriod = _InvoiceRows.InvoicePeriod + _InvoiceHeader.row_CustomsTariffs = _InvoiceRows.CustomsTariffs + If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then + _InvoiceRows_Corr = _InvoiceRows + End If + End If + End Sub + Private Sub aUp_InvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_InvoiceRow.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceRows).InvoiceHeader + Dim _InvoiceRowsSelected As InvoiceRows + Dim _InvoiceRowsMinus As InvoiceRows = Nothing + Dim _InvoiceRows As InvoiceRows + + Try + _InvoiceRowsSelected = TryCast(View.SelectedObjects(0), InvoiceRows) ' Az editor egy listview, kiveszi az első kijelölt sorát + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _InvoiceRowsSelected.RowIndex > 0 Then + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.RowIndex = _InvoiceRowsSelected.RowIndex - 1 Then + _InvoiceRowsMinus = _InvoiceRows + Exit For + End If + Next + + If _InvoiceRowsMinus IsNot Nothing Then + _InvoiceRowsSelected.RowIndex -= 1 + _InvoiceRowsMinus.RowIndex += 1 + End If + _InvoiceRowsMinus.Save() + _InvoiceRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_InvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_InvoiceRow.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.CurrentObject, InvoiceRows).InvoiceHeader + Dim _InvoiceRowsSelected As InvoiceRows + Dim _InvoiceRowsPlus As InvoiceRows = Nothing + Dim _InvoiceRows As InvoiceRows + + Try + _InvoiceRowsSelected = TryCast(View.SelectedObjects(0), InvoiceRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _InvoiceRowsSelected.RowIndex < _InvoiceHeader.InvoiceRows.Count - 1 Then + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.RowIndex = _InvoiceRowsSelected.RowIndex + 1 Then + _InvoiceRowsPlus = _InvoiceRows + Exit For + End If + Next + + If _InvoiceRowsPlus IsNot Nothing Then + _InvoiceRowsSelected.RowIndex += 1 + _InvoiceRowsPlus.RowIndex -= 1 + End If + _InvoiceRowsPlus.Save() + _InvoiceRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + + Private Sub aPrintInvoiceByRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintInvoiceByRows.Execute + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _InvoiceHeader As InvoiceHeader + Dim _CurrencyName As CurrencyName + If e.SelectedObjects.Count > 0 Then + _InvoiceHeader = TryCast(e.SelectedObjects.Item(0), InvoiceRows).InvoiceHeader + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + End If + End If + End If + End If + End Sub + + Private Sub aChangeInvoiceByRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChangeInvoiceByRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceRows_Changer_Popup As InvoiceRows_Changer_Popup = _onew.CreateObject(Of InvoiceRows_Changer_Popup)() + _noselect = True + e.View = Application.CreateDetailView(_onew, "InvoiceRows_Changer_Popup_DetailView", False, _InvoiceRows_Changer_Popup) + End Sub + + Private Sub aChangeInvoiceByRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChangeInvoiceByRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_Selected As InvoiceRows + Dim _InvoiceRows_Changer_Popup As InvoiceRows_Changer_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows_Changer_Popup) + Dim _GLRows As GLRows = Nothing + RaiseEvent InitWork(1, 1, _selection.Count) + For Each _InvoiceRows_Selected In _selection + RaiseEvent DoWork() + _InvoiceRows = _ocur.GetObject(_InvoiceRows_Selected) + _InvoiceRows.DateExecution = _InvoiceRows_Changer_Popup.DateExecution + + If _InvoiceRows.InvoiceHeader.GLAccounts IsNot Nothing Then + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("InvoiceRows=?", _InvoiceRows)) + If _GLRows IsNot Nothing Then + _GLRows.DateExecution = _InvoiceRows.DateExecution + End If + End If + If _InvoiceRows_Changer_Popup.Controlling IsNot Nothing Then + _InvoiceRows.Controlling = _ocur.GetObject(_InvoiceRows_Changer_Popup.Controlling) + If _GLRows IsNot Nothing Then + _GLRows.Controlling = _ocur.GetObject(_InvoiceRows_Changer_Popup.Controlling) + End If + End If + + If _InvoiceRows_Changer_Popup.CostHolder IsNot Nothing Then + _InvoiceRows.CostHolder = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostHolder) + If _GLRows IsNot Nothing Then + _GLRows.CostHolder = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostHolder) + End If + End If + + If _InvoiceRows_Changer_Popup.CostPlace IsNot Nothing Then + _InvoiceRows.CostPlace = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostPlace) + If _GLRows IsNot Nothing Then + _GLRows.CostPlace = _ocur.GetObject(_InvoiceRows_Changer_Popup.CostPlace) + End If + End If + + If _InvoiceRows_Changer_Popup.UniqueObjects IsNot Nothing Then + _InvoiceRows.UniqueObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.UniqueObjects) + If _GLRows IsNot Nothing Then + _GLRows.UniqueObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.UniqueObjects) + End If + End If + + If _InvoiceRows_Changer_Popup.JobNumberObjects IsNot Nothing Then + _InvoiceRows.JobNumberObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.JobNumberObjects) + If _GLRows IsNot Nothing Then + _GLRows.JobNumberObjects = _ocur.GetObject(_InvoiceRows_Changer_Popup.JobNumberObjects) + End If + End If + _ocur.CommitChanges() + Next + RaiseEvent FinalWork + _noselect = False + End Sub + + Private Sub view_SelectionChanged(sender As Object, e As EventArgs) + Dim i As Long = 0 + Dim _InvoiceRows As InvoiceRows + + If View Is Nothing Then Exit Sub + + If View.Id = "InvoiceRows_ListView_Table" Then + If _noselect = False Then + _selection.Clear() + For Each _InvoiceRows In View.SelectedObjects + _selection.Add(_InvoiceRows) + Next + End If + End If + End Sub + + Private Sub aInvoiceRowPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInvoiceRowPrint.Execute + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + Dim _InvoiceRows As InvoiceRows = TryCast(View.SelectedObjects(0), InvoiceRows) + If _InvoiceRows Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + Dim _ReportData As ReportData = _InvoiceRows.InvoiceHeader.InvoiceType.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!") + If _InvoiceRows.InvoiceHeader.IsEditable = False Then Throw New Exception("*Szerkeszthető számlát nem lehet nyomtatni!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.DocumentNumber =?", _InvoiceRows.InvoiceHeader.DocumentNumber), True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aChoiceProducts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChoiceProducts.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Products_CollectionSource As New CollectionSource(_onew, GetType(Products)) + + e.View = Application.CreateListView("Products_ListView_Choice", _Products_CollectionSource, False) + End Sub + + Private Sub aChoiceProducts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChoiceProducts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _Products As Products = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Products)) + + If _InvoiceHeader IsNot Nothing Then + If _Products IsNot Nothing Then + _InvoiceHeader.row_ShortName = _Products.ShortName + _InvoiceHeader.row_CustomsTariffs = _Products.CustomsTariff + _InvoiceHeader.row_Description = _Products.Description + _InvoiceHeader.row_ListPriceHUF = _Products.ListPriceOutHUF + '_InvoiceHeader.row_ListPriceDEV = _Products.ListPriceOutDEV + _InvoiceHeader.row_VAT = _Products.VAT + _InvoiceHeader.row_Units = _Products.Units + _InvoiceHeader.row_Products = _Products + End If + End If + + + End Sub + + Private Sub aChoiceService_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChoiceService.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Services_CollectionSource As New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Choice", _Services_CollectionSource, False) + End Sub + + Private Sub aChoiceService_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChoiceService.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _Services As Services = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Services)) + + If _InvoiceHeader IsNot Nothing Then + If _Services IsNot Nothing Then + _InvoiceHeader.row_ShortName = _Services.ShortName + _InvoiceHeader.row_CustomsTariffs = _Services.CustomsTariffs + _InvoiceHeader.row_Description = _Services.Description + _InvoiceHeader.row_ListPriceHUF = _Services.ListPriceHUF + '_InvoiceHeader.row_ListPriceDEV = _Services.ListPriceDEV + _InvoiceHeader.row_VAT = _Services.VAT + _InvoiceHeader.row_Units = _Services.Units + _InvoiceHeader.row_Services = _Services + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb new file mode 100644 index 0000000..1e13bed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb @@ -0,0 +1,871 @@ +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Linq + + _ + _ + _ + _ + _ +Public Class InvoiceRows + Inherits BaseObject + Private _InvoiceHeader As InvoiceHeader 'Számla fejléce + Private _InvoiceRowtype As eInvoiceRowType 'Számla sor tipusa + Private _InvoicePeriod As String 'Számlázási időszak string + Private _DateExecution As Date 'Elszámolás dátuma + Private _RowIndex As Long = 0 'Számla sorindex + Private _CustomsTariffs As CustomsTariffs 'Vámtarifaszám + Private _ShortName As String 'Megnevezés + Private _Description As String 'Leírás + Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !) + Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !) + Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF + Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV + Private _QTT As Double = 0 'Mennyiség + Private _Units As Units ' Mennyiségi egység + Private _VAT As VAT 'ÁFA + Private _QualityOption As QualityOption 'Minőségi kondíció + Private _ContractRows As ContractRows ' -- Szerződés sor + Private _Controlling As Controlling '-- Controlling szám + Private _ChartOfAccounts As ChartOfAccounts '-- Ezt a könyvelő állítja be, ha akarja. + Private _UniqueObjects As UniqueObjects ' -- Egyedi azonosító + Private _CostHolder As CostHolder ' -- Költség viselő + Private _CostPlace As CostPlace ' -- Költség viselő + Private _JobNumberObjects As JobNumberObjects ' -- Project + Private _InvoiceRowsAdvance As InvoiceRows ' Ez egy előleg vissza sor és mutat az előleg sorra + Private _ReadyforBookEntryRows As Boolean '= False 'Könyvelhető-e a sor. Ha nem, akkor feladás előtti ellenőrzés nem engedi át + Private _InvoiceRows As InvoiceRows 'Helyesbített sor + Private _OrderInRows As OrderInRows ' A számla melyik rendelési sorról készült + Private _OrderInRowsOther As OrderInRowsOther ' A számla melyik rendelési egyéb sorról készült + Private _WorkflowSystemSteps As WorkflowSystemSteps + Private _InvoiceRowCorrigendumType As eInvoiceRowCorrigendumType + Private _Worksheet_CostRows As Worksheet_CostRows 'A kapcsolódó munkalap elszámolási sora + Private _DeliveryNoteOutRows As DeliveryNoteOutRows 'A kapcsolódó kimenő szállítólevél sora + Private _Products As Products 'Terméktörzsből + Private _Services As Services 'Szolgáltatás törzsből + + Private _SumPriceHUF As Double 'Netto sor összesen HUF + Private _SumPriceDEV As Double 'Netto sor összesen DEV + Private _SumPriceVATHUF As Double 'ÁFA sor összesen HUF + Private _SumPriceVATDEV As Double 'ÁFA sor összesen DEV + Private _SumPriceBruttoHUF As Double 'Brutto sor összesen HUF + Private _SumPriceBruttoDEV As Double 'Brutto sor összesen DEV + + Private _SumAveragePriceHUF As Double 'Átlag beszerzési ár HUF + Private _SumAveragePriceDEV As Double 'Átlag beszerzési ár DEV + + Private _SumGrossMarginHUF As Double 'Árréstömeg + Private _SumGrossMarginDEV As Double 'Árréstömeg + + Private _SumBallanceHUF As Double 'Mai napig kiegyenlített rész + Private _SumBallanceDEV As Double 'Mai napig kiegyenlített rész (deviza) + + + Private _PricefromPricingHUF As Double 'Árképzésből ár HUF + Private _PricefromPricingDEV As Double 'Árképzésből ár DEV + Private _LastPriceInDEV As Double 'Az utolsó beszerzési ár DEV + Private _LastPriceInHUF As Double 'Az utolsó beszerzési ár HUF + + + Private _Weight_NAV As Double 'ÁFA bevallás miatt a súly + + 'NonPersistent + Private _QTT_Will As Double 'NonPersistent jóváírandó mennyiség + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Me.InvoiceHeader IsNot Nothing Then + If Me.InvoiceHeader.DateExecution = Nothing Then + Else + Me.DateExecution = Me.InvoiceHeader.DateExecution + End If + End If + ReadyforBookEntryRows = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Me.InvoiceHeader IsNot Nothing Then + If Me.InvoiceHeader.DateExecution = Nothing Then + Me.DateExecution = Me.InvoiceHeader.DateExecution + End If + End If + Me.CalculateSum() + + '// FIFO sorok újragenerálása + If Me.OrderInRows IsNot Nothing Then + If Me.InvoiceHeader IsNot Nothing Then + If Me.InvoiceHeader.IsEditable = False And Me.InvoiceHeader.IsStorno = False Then + Dim _InvoiceRowsFIFO_Collection As New XPCollection(Of InvoiceRowsFIFO)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("InvoiceRows=?", Me)) + Session.Delete(_InvoiceRowsFIFO_Collection) + Dim _InvoiceRowsFIFO As InvoiceRowsFIFO + Dim _StorageOutRowsInRows As StorageOutRowsInRows + For Each _StorageOutRowsInRows In OrderInRows.StorageOutRowsInRows_Collection + _InvoiceRowsFIFO = New InvoiceRowsFIFO(Session) + _InvoiceRowsFIFO.InvoiceRows = Me + _InvoiceRowsFIFO.StorageInRows = _StorageOutRowsInRows.StorageInRows + _InvoiceRowsFIFO.QTT = _StorageOutRowsInRows.QTT + _InvoiceRowsFIFO.Save() + Next + End If + End If + If Me.Controlling Is Nothing Then + '// Kontrollszám nélküli tételek ellenőrzése !!! + If UCase(Me.ShortName) Like "*ELŐLEG*" Then + If Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default IsNot Nothing Then + Me.Controlling = Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default + End If + Else + If Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + Me.Controlling = Me.OrderInRows.OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + End If + If Me.OrderInRowsOther IsNot Nothing Then + If Me.Controlling Is Nothing Then + If Me.OrderInRowsOther.OrderInHeader.OrderInParameters.Controlling_OtherRows_Default IsNot Nothing Then + Me.Controlling = Me.OrderInRowsOther.OrderInHeader.OrderInParameters.Controlling_OtherRows_Default + End If + End If + End If + End If + End Sub + Public Sub AddRows(ByVal _p_InvoiceHeader As InvoiceHeader, Optional _p_InvoiceRows As InvoiceRows = Nothing, Optional _p_ObjectSpace As Xpo.XPObjectSpace = Nothing) + ' Sor hozzáadása a fejléchez, valamint árkalkuláció a sor termékére + If _p_InvoiceRows IsNot Nothing Then 'Számla sorainak módosítása + Dim _InvoiceRows_Corr_New As InvoiceRows = _p_ObjectSpace.CreateObject(Of InvoiceRows)() + + Me.InvoiceHeader = _p_InvoiceHeader + Me.InvoiceRows = _p_InvoiceRows + Me.ShortName = _p_InvoiceRows.ShortName + Me.Description = _p_InvoiceRows.Description + Me.ListPriceHUF = _p_InvoiceRows.ListPriceHUF + Me.ListPriceDEV = _p_InvoiceRows.ListPriceDEV + 'Me.DiscountPercent = _p_InvoiceHeader.row_DiscountPercent + Me.DiscountPriceHUF = Me.ListPriceHUF * (_p_InvoiceRows.DiscountPercent / 100) + Me.DiscountPriceDEV = Me.ListPriceDEV * (_p_InvoiceRows.DiscountPercent / 100) + Me.QTT = _p_InvoiceRows.QTT * (-1) + Me.Units = _p_InvoiceRows.Units + Me.VAT = _p_InvoiceRows.VAT + Me.QualityOption = _p_InvoiceRows.QualityOption + Me.Controlling = _p_InvoiceRows.Controlling + Me.UniqueObjects = _p_InvoiceRows.UniqueObjects + Me.CostHolder = _p_InvoiceRows.CostHolder + Me.CostPlace = _p_InvoiceRows.CostPlace + Me.JobNumberObjects = _p_InvoiceRows.JobNumberObjects + Me.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eOriginalMinus + Me.InvoicePeriod = _p_InvoiceRows.InvoicePeriod + Me.CustomsTariffs = _p_InvoiceRows.CustomsTariffs + + Me.ContractRows = _p_InvoiceRows.ContractRows + Me.OrderInRows = _p_InvoiceRows.OrderInRows + Me.OrderInRowsOther = _p_InvoiceRows.OrderInRowsOther + + If _p_InvoiceHeader.row_Products IsNot Nothing Then Me.Products = _p_InvoiceHeader.row_Products + If _p_InvoiceHeader.row_Services IsNot Nothing Then Me.Services = _p_InvoiceHeader.row_Services + + If _p_InvoiceHeader.InvoiceRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1 + End If + + Me.Save() + _InvoiceRows_Corr_New.InvoiceHeader = _p_InvoiceHeader + _InvoiceRows_Corr_New.InvoiceRows = _p_InvoiceRows + _InvoiceRows_Corr_New.ShortName = _p_InvoiceRows.ShortName + _InvoiceRows_Corr_New.Description = _p_InvoiceRows.Description + _InvoiceRows_Corr_New.ListPriceHUF = _p_InvoiceHeader.row_ListPriceHUF + _InvoiceRows_Corr_New.ListPriceDEV = _p_InvoiceHeader.row_ListPriceDEV + _InvoiceRows_Corr_New.DiscountPriceHUF = _InvoiceRows_Corr_New.ListPriceHUF * (_p_InvoiceRows.DiscountPercent / 100) + _InvoiceRows_Corr_New.DiscountPriceDEV = _InvoiceRows_Corr_New.ListPriceDEV * (_p_InvoiceRows.DiscountPercent / 100) + _InvoiceRows_Corr_New.QTT = _p_InvoiceHeader.row_QTT + _InvoiceRows_Corr_New.Units = _p_InvoiceRows.Units + _InvoiceRows_Corr_New.VAT = _p_InvoiceHeader.row_VAT + _InvoiceRows_Corr_New.QualityOption = _p_InvoiceRows.QualityOption + _InvoiceRows_Corr_New.Controlling = _p_InvoiceRows.Controlling + _InvoiceRows_Corr_New.UniqueObjects = _p_InvoiceRows.UniqueObjects + _InvoiceRows_Corr_New.CostHolder = _p_InvoiceRows.CostHolder + _InvoiceRows_Corr_New.CostPlace = _p_InvoiceRows.CostPlace + _InvoiceRows_Corr_New.JobNumberObjects = _p_InvoiceRows.JobNumberObjects + _InvoiceRows_Corr_New.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNew + _InvoiceRows_Corr_New.InvoicePeriod = _p_InvoiceRows.InvoicePeriod + _InvoiceRows_Corr_New.CustomsTariffs = _p_InvoiceRows.CustomsTariffs + + _InvoiceRows_Corr_New.ContractRows = _p_InvoiceRows.ContractRows + _InvoiceRows_Corr_New.OrderInRows = _p_InvoiceRows.OrderInRows + _InvoiceRows_Corr_New.OrderInRowsOther = _p_InvoiceRows.OrderInRowsOther + + If _p_InvoiceHeader.InvoiceRows.Count = 0 Then + _InvoiceRows_Corr_New.RowIndex = 0 + Else + _InvoiceRows_Corr_New.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1 + End If + _InvoiceRows_Corr_New.Save() + Else 'Normál menetrend, gyalogos számla rögzítsé + Me.InvoiceHeader = _p_InvoiceHeader + Me.InvoiceRows = _p_InvoiceRows + Me.ShortName = _p_InvoiceHeader.row_ShortName + Me.Description = _p_InvoiceHeader.row_Description + Me.ListPriceHUF = _p_InvoiceHeader.row_ListPriceHUF + Me.ListPriceDEV = _p_InvoiceHeader.row_ListPriceDEV + 'Me.DiscountPercent = _p_InvoiceHeader.row_DiscountPercent + Me.DiscountPriceHUF = Me.ListPriceHUF * (_p_InvoiceHeader.row_DiscountPercent / 100) + Me.DiscountPriceDEV = Me.ListPriceDEV * (_p_InvoiceHeader.row_DiscountPercent / 100) + Me.QTT = _p_InvoiceHeader.row_QTT + Me.Units = _p_InvoiceHeader.row_Units + Me.VAT = _p_InvoiceHeader.row_VAT + Me.QualityOption = _p_InvoiceHeader.row_QualityOption + Me.Controlling = _p_InvoiceHeader.row_Controlling + Me.UniqueObjects = _p_InvoiceHeader.row_UniqueObjects + Me.CostHolder = _p_InvoiceHeader.row_CostHolder + Me.CostPlace = _p_InvoiceHeader.row_CostPlace + Me.JobNumberObjects = _p_InvoiceHeader.row_JobNumberObjects + Me.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNormal + Me.InvoicePeriod = _p_InvoiceHeader.row_InvoicePeriod + Me.CustomsTariffs = _p_InvoiceHeader.row_CustomsTariffs + Me.Products = _p_InvoiceHeader.row_Products + Me.Services = _p_InvoiceHeader.row_Services + + If _p_InvoiceHeader.InvoiceRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_InvoiceHeader.InvoiceRows.Count - 1 + End If + Me.Save() + End If + + + End Sub + Public Sub RemoveRows(ByVal _p_InvoiceHeader As InvoiceHeader) + For Each _InvoiceRows As InvoiceRows In _p_InvoiceHeader.InvoiceRows + If _InvoiceRows.RowIndex > Me.RowIndex Then + _InvoiceRows.RowIndex -= 1 + End If + Next + Me.Delete() + Me.Save() + Session.CommitTransaction() + End Sub + + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + + _ + Property InvoiceHeader() As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + If _InvoiceHeader IsNot Nothing Then + ' Sor indexelés mikor hozzáad a fejléchez sorokat, az első sor rögtön 0 indexről indul + If Session.IsNewObject(Me) And Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Session.IsObjectMarkedDeleted(Me) = False Then + Dim i As Integer = 1 + If i = _InvoiceHeader.InvoiceRows.Count Then + Me.RowIndex = 1 ' A második sor indexét 1 re állítja + End If + If _InvoiceHeader.InvoiceRows.Count > 1 Then + Me.RowIndex = _InvoiceHeader.InvoiceRows.Count ' a harmadik sortól növeli az indexeket + End If + End If + End If + End Set + End Property + Property InvoiceRowtype() As eInvoiceRowType + Get + Return _InvoiceRowtype + End Get + Set(ByVal value As eInvoiceRowType) + SetPropertyValue("InvoiceRowtype", _InvoiceRowtype, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property CustomsTariffs() As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(ByVal value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + _ + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ListPriceHUF() As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + CalculateSum() + End If + End Set + End Property + Property ListPriceDEV() As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + CalculateSum() + End If + End Set + End Property + Property DiscountPriceHUF() As Double + Get + Return _DiscountPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + CalculateSum() + End If + End Set + End Property + Property DiscountPriceDEV() As Double + Get + Return _DiscountPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + CalculateSum() + End If + End Set + End Property + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + CalculateSum() + End If + End Set + End Property + Property DeliveryNoteOutRows As DeliveryNoteOutRows + Get + Return _DeliveryNoteOutRows + End Get + Set(value As DeliveryNoteOutRows) + SetPropertyValue("DeliveryNoteOutRows", _DeliveryNoteOutRows, value) + End Set + End Property + + + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + + Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + End Set + End Property + + _ + Property SumPriceHUF() As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + _ + Property SumPriceDEV() As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + _ + Property SumPriceVATHUF As Double + Get + Return _SumPriceVATHUF + + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value) + End Set + End Property + _ + Property SumPriceVATDEV As Double + Get + Return _SumPriceVATDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value) + End Set + End Property + _ + Property SumPriceBruttoHUF As Double + Get + Return _SumPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value) + End Set + End Property + _ + Property SumPriceBruttoDEV As Double + Get + Return _SumPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value) + End Set + End Property + + Property Weight_NAV As Double + Get + Return _Weight_NAV + End Get + Set(value As Double) + SetPropertyValue("Weight_NAV", _Weight_NAV, value) + End Set + End Property + + _ + Property SumAveragePriceHUF As Double + Get + Return _SumAveragePriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, value) + End Set + End Property + _ + Property SumAveragePriceDEV As Double + Get + Return _SumAveragePriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceDEV", _SumAveragePriceDEV, value) + End Set + End Property + _ + Property SumGrossMarginHUF As Double + Get + Return _SumGrossMarginHUF + End Get + Set(value As Double) + SetPropertyValue("SumGrossMarginHUF", _SumGrossMarginHUF, value) + End Set + End Property + _ + Property SumGrossMarginDEV As Double + Get + Return _SumGrossMarginDEV + End Get + Set(value As Double) + SetPropertyValue("SumGrossMarginDEV", _SumGrossMarginDEV, value) + End Set + End Property + + Property SumBallanceHUF As Double + Get + Return _SumBallanceHUF + End Get + Set(value As Double) + SetPropertyValue("SumBallanceHUF", _SumBallanceHUF, value) + End Set + End Property + Property SumBallanceDEV As Double + Get + Return _SumBallanceDEV + End Get + Set(value As Double) + SetPropertyValue("SumBallanceDEV", _SumBallanceDEV, value) + End Set + End Property + + Property PricefromPricingHUF As Double + Get + Return _PricefromPricingHUF + End Get + Set(value As Double) + SetPropertyValue("PricefromPricingHUF", _PricefromPricingHUF, value) + End Set + End Property + Property PricefromPricingDEV As Double + Get + Return _PricefromPricingDEV + End Get + Set(value As Double) + SetPropertyValue("PricefromPricingDEV", _PricefromPricingDEV, value) + End Set + End Property + + Property LastPriceInDEV As Double + Get + Return _LastPriceInDEV + End Get + Set(value As Double) + SetPropertyValue("LastPriceInDEV", _LastPriceInDEV, value) + End Set + End Property + Property LastPriceInHUF As Double + Get + Return _LastPriceInHUF + End Get + Set(value As Double) + SetPropertyValue("LastPriceInHUF", _LastPriceInHUF, value) + End Set + End Property + + _ + Property Units() As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property VAT() As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + 'If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + ' If value.InversState = True Then + ' If Me.InvoiceHeader IsNot Nothing Then + ' If String.IsNullOrEmpty(Me.InvoiceHeader.Description) Then + ' Me.InvoiceHeader.Description = value.Description + ' Else + ' If Not (Me.InvoiceHeader.Description.Contains(value.Description)) Then + ' Me.InvoiceHeader.Description = Me.InvoiceHeader.Description + vbNewLine + value.Description + ' End If + ' End If + ' End If + ' End If + 'End If + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + End Set + End Property + 'Rule5DMatrix ... + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property Worksheet_CostRows As Worksheet_CostRows + Get + Return _Worksheet_CostRows + End Get + Set(value As Worksheet_CostRows) + SetPropertyValue("Worksheet_CostRows", _Worksheet_CostRows, value) + End Set + End Property + + Property InvoiceRowsAdvance As InvoiceRows + Get + Return _InvoiceRowsAdvance + End Get + Set(ByVal value As InvoiceRows) + SetPropertyValue("InvoiceRowsAdvance", _InvoiceRowsAdvance, value) + End Set + End Property + Property ReadyforBookEntryRows As Boolean + Get + Return _ReadyforBookEntryRows + End Get + Set(value As Boolean) + SetPropertyValue("ReadyforBookEntryRows", _ReadyforBookEntryRows, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property OrderInRows As OrderInRows + Get + Return _OrderInRows + End Get + Set(value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + Property OrderInRowsOther As OrderInRowsOther + Get + Return _OrderInRowsOther + End Get + Set(value As OrderInRowsOther) + SetPropertyValue("OrderInRowsOther", _OrderInRowsOther, value) + End Set + End Property + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + End Set + End Property + Property InvoiceRowCorrigendumType As eInvoiceRowCorrigendumType + Get + Return _InvoiceRowCorrigendumType + End Get + Set(value As eInvoiceRowCorrigendumType) + SetPropertyValue("InvoiceRowCorrigendumType", _InvoiceRowCorrigendumType, value) + End Set + End Property + + _ + Property QTT_Will As Double + Get + Return _QTT_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Will", _QTT_Will, value) + End Set + End Property + + '// Readonly properties + + ReadOnly Property SumPriceOriginalHUF As Double + Get + If OrderInRows IsNot Nothing Then + If OrderInRows.ListPriceOriginalHUF <> 0 Then + Return OrderInRows.ListPriceOriginalHUF * QTT + Else + Return SumPriceHUF + End If + Else + Return SumPriceHUF + End If + End Get + End Property + ReadOnly Property SumGrossMarginOriginalHUF As Double + Get + Return SumPriceOriginalHUF - SumAveragePriceHUF + End Get + End Property + ReadOnly Property InvoiceRowMainType As eInvoiceRowMainType + Get + If Me.OrderInRows IsNot Nothing Then + Return eInvoiceRowMainType.TurnOverMaterial + ElseIf UCase(ShortName) Like "*ELŐLEG*" Then + Return eInvoiceRowMainType.Advance + ElseIf Me.OrderInRowsOther IsNot Nothing Then + Return eInvoiceRowMainType.TurnOverServices + ElseIf Me.Worksheet_CostRows IsNot Nothing Then + Return eInvoiceRowMainType.TurnOverServices + Else + Return eInvoiceRowMainType.TurnOverServices + End If + End Get + End Property + ReadOnly Property DiscountPercent() As Double + Get + Return 0 + End Get + End Property + ReadOnly Property PriceHUF As Double + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return ListPriceHUF - DiscountPriceHUF + Else + Return 0 + End If + End Get + End Property + ReadOnly Property PriceDEV As Double + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return ListPriceDEV - DiscountPriceDEV + Else + Return 0 + End If + End Get + End Property + + + '//XPCollections + _ + ReadOnly Property InvoiceRowsFIFO As XPCollection(Of InvoiceRowsFIFO) + Get + If Me IsNot Nothing Then + Return New XPCollection(Of InvoiceRowsFIFO)(Session, CriteriaOperator.Parse("InvoiceRows=? and isnull(InvoiceRows)=False", Me)) + Else + Return New XPCollection(Of InvoiceRowsFIFO)(Session, CriteriaOperator.Parse("1=2")) + End If + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + If OrderInRows IsNot Nothing Then + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows=?", OrderInRows)) + Else + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("1=2")) + End If + End Get + End Property + _ + ReadOnly Property QTT_CreditNote As Double + Get + Dim _QTT_CreditNote As Double = 0 + + Dim _InvoiceCreditNoteRows_Collection As New XPCollection(Of InvoiceCreditNoteRows)(Session, CriteriaOperator.Parse("FromInvoiceRows=?", Me)) + If _InvoiceCreditNoteRows_Collection.Count > 0 Then + For Each _InvoiceCreditNoteRows As InvoiceCreditNoteRows In _InvoiceCreditNoteRows_Collection + _QTT_CreditNote += _InvoiceCreditNoteRows.QTT + Next + End If + + Return _QTT_CreditNote + End Get + End Property + + + '//Public functions + '-- Számolt értékek beállítása + Public Sub CalculateSum() + SumPriceHUF = Math.Round(_QTT * (ListPriceHUF - DiscountPriceHUF), 2, MidpointRounding.AwayFromZero) + SumPriceDEV = Math.Round(_QTT * (ListPriceDEV - DiscountPriceDEV), 2, MidpointRounding.AwayFromZero) + If VAT Is Nothing Then + SumPriceVATHUF = 0 + Else + SumPriceVATHUF = Math.Round(SumPriceHUF * VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + End If + If VAT Is Nothing Then + SumPriceVATDEV = 0 + Else + SumPriceVATDEV = Math.Round(SumPriceDEV * VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + End If + SumPriceBruttoHUF = SumPriceHUF + SumPriceVATHUF + SumPriceBruttoDEV = SumPriceDEV + SumPriceVATDEV + End Sub + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsAverageArray.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsAverageArray.vb new file mode 100644 index 0000000..6255fb7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsAverageArray.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceRowsAverageArray '// tlagr szmtshoz segd tbla + Inherits BaseObject + + Private _DeliveryNoteInRRFC As DeliveryNoteInRRFC + Private _InvoiceRows As InvoiceRows + Private _DateExecution As Date + Private _RowType As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property DeliveryNoteInRRFC As DeliveryNoteInRRFC + Get + Return _DeliveryNoteInRRFC + End Get + Set(value As DeliveryNoteInRRFC) + SetPropertyValue("DeliveryNoteInRRFC", _DeliveryNoteInRRFC, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property RowType As Long + Get + Return _RowType + End Get + Set(value As Long) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsFIFO.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsFIFO.vb new file mode 100644 index 0000000..5152951 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsFIFO.vb @@ -0,0 +1,95 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InvoiceRowsFIFO + Inherits BaseObject + Private _InvoiceRows As InvoiceRows 'Melyik szmla sorhoz tartozik + Private _StorageInRows As StorageInRows 'Melyik bevteli bhoz tartozik + Private _QTT As Double + Private _NettoPriceHUF As Double 'FIFO szerinti beszerzsi rtk !!! Ezt kell osztani a QTT-vel, gy kapod meg az egysgnyit !!! + Private _NettoPriceDEV As Double + + Private _NettoPriceAverageHUF As Double 'tlagr szerinti beszerzsi rtk !!! Ezt kell osztani a QTT-vel, gy kapod meg az egysgnyit !!! + Private _NettoPriceAverageDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property NettoPriceHUF As Double + Get + Return _NettoPriceHUF + End Get + Set(value As Double) + SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value) + End Set + End Property + Property NettoPriceDEV As Double + Get + Return _NettoPriceDEV + End Get + Set(value As Double) + SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value) + End Set + End Property + + Property NettoPriceAverageHUF As Double + Get + Return _NettoPriceAverageHUF + End Get + Set(value As Double) + SetPropertyValue("NettoPriceAverageHUF", _NettoPriceAverageHUF, value) + End Set + End Property + Property NettoPriceAverageDEV As Double + Get + Return _NettoPriceAverageDEV + End Get + Set(value As Double) + SetPropertyValue("NettoPriceAverageDEV", _NettoPriceAverageDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivot.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivot.vb new file mode 100644 index 0000000..641abe1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivot.vb @@ -0,0 +1,166 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.ConditionalAppearance + +'User.Oid = CurrentUserId() + +Public Enum eViewMode + eTableView = 0 + ePivotView = 1 + eBothView = 2 +End Enum + _ + _ + _ + _ +Public Class InvoiceRowsPivot + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _Criteria As String 'Kritria szrshez ! + Private _ViewMode As eViewMode + Private _InvoiceRows As InvoiceRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Me.UserCreated Is Nothing Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Criteria As String + Get + Return _Criteria + End Get + Set(value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + _ + Public Property ObjectType() As Type + Get + Return GetType(InvoiceRows) + End Get + Set(ByVal value As Type) + + End Set + End Property + Property ViewMode As eViewMode + Get + Return _ViewMode + End Get + Set(value As eViewMode) + SetPropertyValue("ViewMode", _ViewMode, value) + End Set + End Property + ReadOnly Property InvoiceRows_Table As XPCollection(Of InvoiceRows) + Get + Dim _InvoiceRows_Collection As XPCollection(Of InvoiceRows) + Dim _FullCriteria As String = "isnull(InvoiceHeader.GCRecord)=True and InvoiceHeader.CustomersFrom=? and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''" + + If String.IsNullOrEmpty(Criteria) = False Then + _FullCriteria = "(" & _FullCriteria & ") and (" & Criteria & ")" + End If + + _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(Session, CriteriaOperator.Parse(_FullCriteria, CustomersFrom)) + + Return _InvoiceRows_Collection + End Get + End Property + ReadOnly Property InvoiceRows_Pivot As XPCollection(Of InvoiceRows) + Get + Dim _InvoiceRows_Collection As XPCollection(Of InvoiceRows) + Dim _FullCriteria As String = "isnull(InvoiceHeader.GCRecord)=True and InvoiceHeader.CustomersFrom=? and InvoiceHeader.IsEditable=False and InvoiceHeader.DocumentNumber !=''" + + If String.IsNullOrEmpty(Criteria) = False Then + _FullCriteria = "(" & _FullCriteria & ") and (" & Criteria & ")" + End If + + _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(Session, CriteriaOperator.Parse(_FullCriteria, CustomersFrom)) + + Return _InvoiceRows_Collection + End Get + End Property + + _ + ReadOnly Property InvoiceRowsPivotUser As XPCollection(Of InvoiceRowsPivotUser) + Get + Return GetCollection(Of InvoiceRowsPivotUser)("InvoiceRowsPivotUser") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotUser.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotUser.vb new file mode 100644 index 0000000..1e46ddf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotUser.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceRowsPivotUser + Inherits BaseObject + Private _InvoiceRowsPivot As InvoiceRowsPivot + Private _User As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property InvoiceRowsPivot As InvoiceRowsPivot + Get + Return _InvoiceRowsPivot + End Get + Set(value As InvoiceRowsPivot) + SetPropertyValue("InvoiceRowsPivot", _InvoiceRowsPivot, value) + End Set + End Property + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.Designer.vb new file mode 100644 index 0000000..e494284 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class InvoiceRowsPivotVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecalculateBallanceInvoiceRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectUsers_InvoiceRowsPivot = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRecalculateBallanceInvoiceRows + ' + Me.aRecalculateBallanceInvoiceRows.Caption = "aRecalculate Ballance Invoice Rows" + Me.aRecalculateBallanceInvoiceRows.ConfirmationMessage = Nothing + Me.aRecalculateBallanceInvoiceRows.Id = "aRecalculateBallanceInvoiceRows" + Me.aRecalculateBallanceInvoiceRows.ImageName = Nothing + Me.aRecalculateBallanceInvoiceRows.Shortcut = Nothing + Me.aRecalculateBallanceInvoiceRows.Tag = Nothing + Me.aRecalculateBallanceInvoiceRows.TargetObjectsCriteria = Nothing + Me.aRecalculateBallanceInvoiceRows.TargetObjectType = GetType(SISBusiness.[Module].InvoiceRowsPivot) + Me.aRecalculateBallanceInvoiceRows.TargetViewId = Nothing + Me.aRecalculateBallanceInvoiceRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aRecalculateBallanceInvoiceRows.ToolTip = Nothing + Me.aRecalculateBallanceInvoiceRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSelectUsers_InvoiceRowsPivot + ' + Me.aSelectUsers_InvoiceRowsPivot.AcceptButtonCaption = Nothing + Me.aSelectUsers_InvoiceRowsPivot.CancelButtonCaption = Nothing + Me.aSelectUsers_InvoiceRowsPivot.Caption = "aSelectUsers_InvoiceRowsPivot" + Me.aSelectUsers_InvoiceRowsPivot.ConfirmationMessage = Nothing + Me.aSelectUsers_InvoiceRowsPivot.Id = "aSelectUsers_InvoiceRowsPivot" + Me.aSelectUsers_InvoiceRowsPivot.ImageName = Nothing + Me.aSelectUsers_InvoiceRowsPivot.Shortcut = Nothing + Me.aSelectUsers_InvoiceRowsPivot.Tag = Nothing + Me.aSelectUsers_InvoiceRowsPivot.TargetObjectsCriteria = Nothing + Me.aSelectUsers_InvoiceRowsPivot.TargetObjectType = GetType(SISBusiness.[Module].InvoiceRowsPivotUser) + Me.aSelectUsers_InvoiceRowsPivot.TargetViewId = Nothing + Me.aSelectUsers_InvoiceRowsPivot.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSelectUsers_InvoiceRowsPivot.ToolTip = Nothing + Me.aSelectUsers_InvoiceRowsPivot.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aRecalculateBallanceInvoiceRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectUsers_InvoiceRowsPivot As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.resx new file mode 100644 index 0000000..c84a69f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 221, 173 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.vb new file mode 100644 index 0000000..674b515 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRowsPivotVC.vb @@ -0,0 +1,207 @@ +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 System.Linq +Imports DevExpress.Persistent.BaseImpl +Imports System.Globalization + +Public Class InvoiceRowsPivotVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event InitWork2(ByVal _Minimum2 As Long, ByVal _Step2 As Long, ByVal _Maximum2 As Long) + Public Event DoWork() + Public Event DoWork2() + Public Event FinalWork + 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If View.Id = "InvoiceRowsPivot_ListView_UserEnable" Then + Dim _ListView As ListView = TryCast(View, ListView) + + If _ListView IsNot Nothing Then + Dim _InvoiceRowsPivot As InvoiceRowsPivot + Dim _Criteria As String = "" + For Each _InvoiceRowsPivot In _ListView.CollectionSource.List + Dim _InvoiceRowsPivotUser As InvoiceRowsPivotUser + For Each _InvoiceRowsPivotUser In _InvoiceRowsPivot.InvoiceRowsPivotUser + If _InvoiceRowsPivotUser.User.Oid.ToString = _User.Oid.ToString Then + If _Criteria = "" Then + _Criteria = "Oid in ('" & _InvoiceRowsPivot.Oid.ToString & "'" + Else + _Criteria += ", '" & _InvoiceRowsPivot.Oid.ToString & "'" + End If + Exit For + End If + Next + Next + If _Criteria = "" Then + _Criteria = "1=2" + Else + _Criteria += ")" + End If + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria("ByEnabled") = CriteriaOperator.Parse(_Criteria) + _ListView.CollectionSource.EndUpdateCriteria() + End If + End If + + If View.Id = "InvoiceRowsPivot_ListView_UserCreated" Then + Dim _ListView As ListView = TryCast(View, ListView) + + If _ListView IsNot Nothing Then + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("UserCreated=? ", _User) + _ListView.CollectionSource.EndUpdateCriteria() + End If + End If + + + End Sub + + Private Sub aRecalculateBallanceInvoiceRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalculateBallanceInvoiceRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRowsPivot As InvoiceRowsPivot = TryCast(View.SelectedObjects(0), InvoiceRowsPivot) + Dim _Rate As Double = 0 + Dim _SumBallanceHUF As Double = 0 + Dim _SumBallanceDEV As Double = 0 + Dim _SQL As String = "" + + '// Mieltt brmi trtnne !!!!! + + _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV WHERE OrderInRowsOther Is Not NULL" + + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV WHERE OrderInRowsOther Is Not NULL" + _uow.ExecuteNonQuery(_SQL) + + _SQL = " UPDATE InvoiceRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid " + _SQL += " SET t1.SumAveragePriceDEV=t1.SumAveragePriceHUF/t2.CurrencyRate," + _SQL += " t1.SumGrossMarginDEV = t1.SumGrossMarginHUF / t2.CurrencyRate" + _SQL += " WHERE t2.CurrencyRate > 0" + _uow.ExecuteNonQuery(_SQL) + Case eSQLType.MySQL + _SQL = "UPDATE InvoiceRows SET SumGrossMarginHUF=SumPriceHUF,SumGrossMarginDEV=SumPriceDEV WHERE OrderInRowsOther Is Not NULL" + _uow.ExecuteNonQuery(_SQL) + + _SQL = " UPDATE InvoiceRows t1 JOIN InvoiceHeader t2 ON t1.InvoiceHeader = t2.Oid " + _SQL += " SET t1.SumAveragePriceDEV=t1.SumAveragePriceHUF/t2.CurrencyRate," + _SQL += " t1.SumGrossMarginDEV = t1.SumGrossMarginHUF / t2.CurrencyRate" + _SQL += " WHERE t2.CurrencyRate > 0" + _uow.ExecuteNonQuery(_SQL) + + Case eSQLType.PostgreSQL + _SQL = "UPDATE ""InvoiceRows"" SET ""SumGrossMarginHUF""=""SumPriceHUF"",""SumGrossMarginDEV""=""SumPriceDEV"" WHERE ""OrderInRowsOther"" Is Not NULL" + _uow.ExecuteNonQuery(_SQL) + + _SQL = " UPDATE ""InvoiceRows"" t1 JOIN ""InvoiceHeader"" t2 ON ""t1"".""InvoiceHeader"" = ""t2"".""Oid"" " + _SQL += " SET ""t1"".""SumAveragePriceDEV""=""t1"".""SumAveragePriceHUF""/""t2"".""CurrencyRate""," + _SQL += " ""t1"".""SumGrossMarginDEV"" = ""t1"".""SumGrossMarginHUF"" / ""t2"".""CurrencyRate""" + _SQL += " WHERE ""t2"".""CurrencyRate"" > 0" + _uow.ExecuteNonQuery(_SQL) + End Select + + + RaiseEvent InitWork(1, 1, _InvoiceRowsPivot.InvoiceRows_Table.Count) + For Each _InvoiceRows In _InvoiceRowsPivot.InvoiceRows_Table + RaiseEvent DoWork() + _Rate = 0 + _SumBallanceHUF = 0 + _SumBallanceDEV = 0 + + Dim cultures() As CultureInfo = {New CultureInfo("en-US"), _ + New CultureInfo("fr-FR"), _ + New CultureInfo("it-IT"), _ + New CultureInfo("de-DE")} + + Dim _PCIGroup As PCIGroup = _ocur.FindObject(Of PCIGroup)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=0 and ConnectInfo=?", _ + _InvoiceRows.InvoiceHeader.CustomersFrom, _InvoiceRows.InvoiceHeader.Customers, _InvoiceRows.InvoiceHeader.ConnectInfo)) + If _PCIGroup IsNot Nothing Then + If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then + If _PCIGroup.AmountHUF_Account <> 0 Then + _Rate = _PCIGroup.BallanceHUF / _PCIGroup.AmountHUF_Account + End If + Else + If _PCIGroup.AmountDEV_Account <> 0 Then + _Rate = _PCIGroup.BallanceDEV / _PCIGroup.AmountDEV_Account + End If + End If + _SumBallanceHUF = Math.Round((_Rate) * _InvoiceRows.SumPriceHUF, 0, MidpointRounding.AwayFromZero) + _SumBallanceDEV = Math.Round((_Rate) * _InvoiceRows.SumPriceDEV, 2, MidpointRounding.AwayFromZero) + _SQL = "" + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + _SQL = "update InvoiceRows set SumBallanceHUF=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",SumBallanceDEV=" & _SumBallanceDEV.ToString(New CultureInfo("en-US")) + _SQL += " Where Oid='" & _InvoiceRows.Oid.ToString & "'" + Case eSQLType.MySQL + _SQL = "update InvoiceRows set SumBallanceHUF=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",SumBallanceDEV=" & _SumBallanceDEV.ToString(New CultureInfo("en-US")) + _SQL += " Where Oid='" & _InvoiceRows.Oid.ToString & "'" + Case eSQLType.PostgreSQL + _SQL = "update ""InvoiceRows"" set ""SumBallanceHUF""=" & _SumBallanceHUF.ToString(New CultureInfo("en-US")) & ",""SumBallanceDEV""=" & _SumBallanceDEV.ToString(New CultureInfo("en-US")) + _SQL += " Where ""Oid""='" & _InvoiceRows.Oid.ToString & "'" + End Select + _uow.ExecuteNonQuery(_SQL) + End If + Next + RaiseEvent FinalWork + View.Refresh() + End Sub + + Private Sub aSelectUsers_InvoiceRowsPivot_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSelectUsers_InvoiceRowsPivot.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(User)) + + e.View = Application.CreateListView("User_ListView_Find", _CS, False) + End Sub + + Private Sub aSelectUsers_InvoiceRowsPivot_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSelectUsers_InvoiceRowsPivot.Execute + Dim _InvoiceRowsPivot As InvoiceRowsPivot = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _User As User + Dim _InvoiceRowsPivotUser As InvoiceRowsPivotUser + + If _InvoiceRowsPivot Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _User In e.PopupWindow.View.SelectedObjects + _InvoiceRowsPivotUser = New InvoiceRowsPivotUser(_uow) + _InvoiceRowsPivotUser.InvoiceRowsPivot = _uow.GetObjectByKey(Of InvoiceRowsPivot)(_InvoiceRowsPivot.Oid) + _InvoiceRowsPivotUser.User = _uow.GetObjectByKey(Of User)(_User.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceType.vb new file mode 100644 index 0000000..369be68 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceType.vb @@ -0,0 +1,156 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.ConditionalAppearance + +Imports System.Linq +Imports System.Linq.Expressions + +Public Enum eInvoiceTypeBase + eEarnestofTender = 0 'Foglaló számla + eAdvancePayment = 1 'Előleg számla + eNormalInvoice = 2 'Normál számla + eFinalInvoice = 3 'Végszámla, ami tartalmaz vagy előleg, vagy foglaló sorokat + eCustomRate = 4 'Egyéb számla szerű de nem számviteli számla (dijbekérők, illeték bekérők stb.) +End Enum + _ + _ +Public Class InvoiceType + Inherits BaseObject + Private _InvoiceTypeBase As eInvoiceTypeBase 'Számla bázis tipus + Private _CustomersFrom As CustomersFrom '-- Saját cég + Private _CustomerBankAccounts As CustomerBankAccounts '--Számlán szereplő alapértelmezett bankszámlaszám + Private _ShortName As String '-- Megnevezés + Private _Description As String '-- Rövid leírás + Private _NumberGenerator As NumberGenerator '-- Számla sorszám formátuma + Private _NumberGeneratorProforma As NumberGenerator '-- Számla sorszám formátuma proforma esetén + Private _ReportData As ReportData '-- Számla nyomtatványa belföldi HUF + Private _ReportData_DEV As ReportData '-- Belföldi EU + Private _ReportData_DEV_EU As ReportData '-- Számla nyomtatványa EU devizás + Private _ReportData_HUF_DEV As ReportData '-- Számla nyomtatványa DEv és HUF devizás + Private _WorkflowSystem As WorkflowSystem + Private _Rule5DMatrix As Rule5DMatrix + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property InvoiceTypeBase As eInvoiceTypeBase + Get + Return _InvoiceTypeBase + End Get + Set(ByVal value As eInvoiceTypeBase) + SetPropertyValue("InvoiceTypeBase", _InvoiceTypeBase, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property CustomerBankAccounts As CustomerBankAccounts + Get + Return _CustomerBankAccounts + End Get + Set(ByVal value As CustomerBankAccounts) + SetPropertyValue("CustomerBankAccount", _CustomerBankAccounts, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator() As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property NumberGeneratorProforma As NumberGenerator + Get + Return _NumberGeneratorProforma + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGeneratorProforma", _NumberGeneratorProforma, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + _ + Property ReportData_DEV As ReportData + Get + Return _ReportData_DEV + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData_DEV", _ReportData_DEV, value) + End Set + End Property + _ + Property ReportData_DEV_EU As ReportData + Get + Return _ReportData_DEV_EU + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData_DEV_EU", _ReportData_DEV_EU, value) + End Set + End Property + Property ReportData_HUF_DEV As ReportData + Get + Return _ReportData_HUF_DEV + End Get + Set(value As ReportData) + SetPropertyValue("ReportData_HUF_DEV", _ReportData_HUF_DEV, value) + End Set + End Property + _ + _ + Property WorkflowSystem As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property + Property Rule5DMatrix As Rule5DMatrix + Get + Return _Rule5DMatrix + End Get + Set(value As Rule5DMatrix) + SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVATRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVATRows.vb new file mode 100644 index 0000000..6edfa45 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVATRows.vb @@ -0,0 +1,121 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.ConditionalAppearance + +Imports System.Linq +Imports System.Linq.Expressions + + _ + _ +Public Class InvoiceVATRows + Inherits BaseObject + Private _InvoiceHeader As InvoiceHeader + Private _VAT As VAT + Private _DateVAT As Date 'ÁFA bevallás dátuma !! + Private _AmountNettoHUF As Double + Private _AmountVATHUF As Double + Private _AmountBruttoHUF As Double + Private _AmountNettoDEV As Double + Private _AmountVATDEV As Double + Private _AmountBruttoDEV As Double + Private _ReadyforBookEntryRows As Boolean = True 'Könyvelhető-e a sor. Ha nem, akkor feladás előtti ellenőrzés nem engedi át + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Me.InvoiceHeader IsNot Nothing And (DateVAT = Date.MinValue) Then + DateVAT = InvoiceHeader.DateExecution + End If + End Sub + _ + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + Property AmountVATHUF As Double + Get + Return _AmountVATHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATHUF", _AmountVATHUF, value) + End Set + End Property + Property AmountBruttoHUF As Double + Get + Return _AmountBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value) + End Set + End Property + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + Property AmountVATDEV As Double + Get + Return _AmountVATDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATDEV", _AmountVATDEV, value) + End Set + End Property + Property AmountBruttoDEV As Double + Get + Return _AmountBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value) + End Set + End Property + Property ReadyforBookEntryRows As Boolean + Get + Return _ReadyforBookEntryRows + End Get + Set(value As Boolean) + SetPropertyValue("ReadyforBookEntryRows", _ReadyforBookEntryRows, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.Designer.vb new file mode 100644 index 0000000..e0ee281 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.Designer.vb @@ -0,0 +1,399 @@ +Partial Class InvoiceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Me.aFinalizeInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStornoInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInvoiceFromContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateProforma = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateInvoice_Advance_Proforma = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMakeEditableProforma = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateInvoice_Final_Proforma = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDeleteSelectedInvoiceRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeInvoiceAdvance = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCorrInvoiceHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDescriptionChanger = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInvoiceRowCloner = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInvoiceHeaderClone = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateInvoiceToPdfFiles = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloneFullInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDescriptionChangerHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPCICheckInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeInvoicewithPopup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPrintSelectedInvoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenInvoicePdf = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components) + Me.aViewInvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecalculateHUF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateInvoiceCreditNote = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInvoiceHeader_GenereateEmailSendQueue = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBookEntryInvoiceHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGeneratePDFandSendDefaultMailClient_Invoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aFinalizeInvoice + ' + Me.aFinalizeInvoice.Caption = "aFinalize Invoice" + Me.aFinalizeInvoice.Category = "ObjectsCreation" + Me.aFinalizeInvoice.ConfirmationMessage = "Do you want to execute a command?" + Me.aFinalizeInvoice.Id = "aFinalizeInvoice" + Me.aFinalizeInvoice.TargetViewId = "" + Me.aFinalizeInvoice.ToolTip = Nothing + Me.aFinalizeInvoice.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aStornoInvoice + ' + Me.aStornoInvoice.Caption = "aStorno Invoice" + Me.aStornoInvoice.Category = "ObjectsCreation" + Me.aStornoInvoice.ConfirmationMessage = "Do you want to execute command ?" + Me.aStornoInvoice.Id = "aStornoInvoice" + Me.aStornoInvoice.TargetViewId = "" + Me.aStornoInvoice.ToolTip = Nothing + Me.aStornoInvoice.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aInvoiceFromContractsRows + ' + Me.aInvoiceFromContractsRows.AcceptButtonCaption = Nothing + Me.aInvoiceFromContractsRows.CancelButtonCaption = Nothing + Me.aInvoiceFromContractsRows.Caption = "aInvoice From Contracts Rows" + Me.aInvoiceFromContractsRows.Category = "ObjectsCreation" + Me.aInvoiceFromContractsRows.ConfirmationMessage = Nothing + Me.aInvoiceFromContractsRows.Id = "aInvoiceFromContractsRows" + Me.aInvoiceFromContractsRows.TargetViewId = "InvoiceHeader_DetailView" + Me.aInvoiceFromContractsRows.ToolTip = Nothing + ' + 'aCreateProforma + ' + Me.aCreateProforma.Caption = "Make me proforma" + Me.aCreateProforma.Category = "ObjectsCreation" + Me.aCreateProforma.ConfirmationMessage = Nothing + Me.aCreateProforma.Id = "aCreateProforma" + Me.aCreateProforma.TargetViewId = "" + Me.aCreateProforma.ToolTip = Nothing + ' + 'aCreateInvoice_Advance_Proforma + ' + Me.aCreateInvoice_Advance_Proforma.AcceptButtonCaption = Nothing + Me.aCreateInvoice_Advance_Proforma.CancelButtonCaption = Nothing + Me.aCreateInvoice_Advance_Proforma.Caption = "aCreateInvoice_Advance_Proforma" + Me.aCreateInvoice_Advance_Proforma.Category = "ObjectsCreation" + Me.aCreateInvoice_Advance_Proforma.ConfirmationMessage = Nothing + Me.aCreateInvoice_Advance_Proforma.Id = "aCreateInvoice_Advance_Proforma" + Me.aCreateInvoice_Advance_Proforma.TargetViewId = "InvoiceHeader_ListView_Proforma_Advanced" + Me.aCreateInvoice_Advance_Proforma.ToolTip = Nothing + ' + 'aMakeEditableProforma + ' + Me.aMakeEditableProforma.Caption = "aMake Editable Proforma" + Me.aMakeEditableProforma.Category = "ObjectsCreation" + Me.aMakeEditableProforma.ConfirmationMessage = Nothing + Me.aMakeEditableProforma.Id = "aMakeEditableProforma" + Me.aMakeEditableProforma.ToolTip = Nothing + ' + 'aCreateInvoice_Final_Proforma + ' + Me.aCreateInvoice_Final_Proforma.AcceptButtonCaption = Nothing + Me.aCreateInvoice_Final_Proforma.CancelButtonCaption = Nothing + Me.aCreateInvoice_Final_Proforma.Caption = "Create final invoice" + Me.aCreateInvoice_Final_Proforma.Category = "ObjectsCreation" + Me.aCreateInvoice_Final_Proforma.ConfirmationMessage = Nothing + Me.aCreateInvoice_Final_Proforma.Id = "aCreateInvoice_Final_Proforma" + Me.aCreateInvoice_Final_Proforma.ImageName = "document_lock" + Me.aCreateInvoice_Final_Proforma.ToolTip = Nothing + ' + 'aDeleteSelectedInvoiceRows + ' + Me.aDeleteSelectedInvoiceRows.Caption = "Delete" + Me.aDeleteSelectedInvoiceRows.Category = "RecordEdit" + Me.aDeleteSelectedInvoiceRows.ConfirmationMessage = Nothing + Me.aDeleteSelectedInvoiceRows.Id = "aDeleteSelectedInvoiceRows" + Me.aDeleteSelectedInvoiceRows.TargetViewId = "" + Me.aDeleteSelectedInvoiceRows.ToolTip = Nothing + Me.aDeleteSelectedInvoiceRows.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFinalizeInvoiceAdvance + ' + Me.aFinalizeInvoiceAdvance.AcceptButtonCaption = Nothing + Me.aFinalizeInvoiceAdvance.CancelButtonCaption = Nothing + Me.aFinalizeInvoiceAdvance.Caption = "aFinalize Invoice Advance" + Me.aFinalizeInvoiceAdvance.Category = "ObjectsCreation" + Me.aFinalizeInvoiceAdvance.ConfirmationMessage = Nothing + Me.aFinalizeInvoiceAdvance.Id = "aFinalizeInvoiceAdvance" + Me.aFinalizeInvoiceAdvance.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFinalizeInvoiceAdvance.TargetViewId = "InvoiceHeader_ListView_Proforma_Advanced" + Me.aFinalizeInvoiceAdvance.ToolTip = Nothing + ' + 'aViewGLAccounts + ' + Me.aViewGLAccounts.Caption = "View GLAccounts" + Me.aViewGLAccounts.Category = "View" + Me.aViewGLAccounts.ConfirmationMessage = Nothing + Me.aViewGLAccounts.Id = "aViewGLAccounts" + Me.aViewGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewGLAccounts.TargetObjectsCriteria = "IsBookEntry=True" + Me.aViewGLAccounts.TargetViewId = "" + Me.aViewGLAccounts.ToolTip = Nothing + Me.aViewGLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aCorrInvoiceHeader + ' + Me.aCorrInvoiceHeader.Caption = "Invoice corr" + Me.aCorrInvoiceHeader.Category = "ObjectsCreation" + Me.aCorrInvoiceHeader.ConfirmationMessage = Nothing + Me.aCorrInvoiceHeader.Id = "aCorrInvoiceHeader" + Me.aCorrInvoiceHeader.ImageName = "Action_Clear" + Me.aCorrInvoiceHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCorrInvoiceHeader.TargetViewId = "InvoiceHeader_ListView" + Me.aCorrInvoiceHeader.ToolTip = Nothing + ' + 'aDescriptionChanger + ' + Me.aDescriptionChanger.AcceptButtonCaption = Nothing + Me.aDescriptionChanger.CancelButtonCaption = Nothing + Me.aDescriptionChanger.Caption = "Description Changer" + Me.aDescriptionChanger.Category = "aDescriptionChanger" + Me.aDescriptionChanger.ConfirmationMessage = Nothing + Me.aDescriptionChanger.Id = "aDescriptionChanger" + Me.aDescriptionChanger.TargetViewId = "" + Me.aDescriptionChanger.ToolTip = Nothing + ' + 'aInvoiceRowCloner + ' + Me.aInvoiceRowCloner.AcceptButtonCaption = Nothing + Me.aInvoiceRowCloner.CancelButtonCaption = Nothing + Me.aInvoiceRowCloner.Caption = "Invoice Row Cloner" + Me.aInvoiceRowCloner.Category = "aInvoiceRowCloner" + Me.aInvoiceRowCloner.ConfirmationMessage = Nothing + Me.aInvoiceRowCloner.Id = "aInvoiceRowCloner" + Me.aInvoiceRowCloner.TargetViewId = "" + Me.aInvoiceRowCloner.ToolTip = Nothing + ' + 'aInvoiceHeaderClone + ' + Me.aInvoiceHeaderClone.Caption = "InvoiceHeader Clone" + Me.aInvoiceHeaderClone.Category = "ObjectsCreation" + Me.aInvoiceHeaderClone.ConfirmationMessage = Nothing + Me.aInvoiceHeaderClone.Id = "aInvoiceHeaderClone" + Me.aInvoiceHeaderClone.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aInvoiceHeaderClone.TargetViewId = "" + Me.aInvoiceHeaderClone.ToolTip = Nothing + Me.aInvoiceHeaderClone.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aGenerateInvoiceToPdfFiles + ' + Me.aGenerateInvoiceToPdfFiles.Caption = "aGenerateInvoiceToPdfFiles" + Me.aGenerateInvoiceToPdfFiles.Category = "RecordEdit" + Me.aGenerateInvoiceToPdfFiles.ConfirmationMessage = Nothing + Me.aGenerateInvoiceToPdfFiles.Id = "aGenerateInvoiceToPdfFiles" + Me.aGenerateInvoiceToPdfFiles.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateInvoiceToPdfFiles.ToolTip = Nothing + ' + 'aCloneFullInvoice + ' + Me.aCloneFullInvoice.Caption = "aCloneFullInvoice" + Me.aCloneFullInvoice.Category = "ObjectsCreation" + Me.aCloneFullInvoice.ConfirmationMessage = Nothing + Me.aCloneFullInvoice.Id = "aCloneFullInvoice" + Me.aCloneFullInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCloneFullInvoice.ToolTip = Nothing + ' + 'aDescriptionChangerHeader + ' + Me.aDescriptionChangerHeader.AcceptButtonCaption = Nothing + Me.aDescriptionChangerHeader.CancelButtonCaption = Nothing + Me.aDescriptionChangerHeader.Caption = "Description Changer" + Me.aDescriptionChangerHeader.Category = "aDescriptionChangerHeader" + Me.aDescriptionChangerHeader.ConfirmationMessage = Nothing + Me.aDescriptionChangerHeader.Id = "aDescriptionChangerHeader" + Me.aDescriptionChangerHeader.TargetViewId = "" + Me.aDescriptionChangerHeader.ToolTip = Nothing + ' + 'aPCICheckInvoice + ' + Me.aPCICheckInvoice.Caption = "aPCICheck Invoice" + Me.aPCICheckInvoice.Category = "RecordEdit" + Me.aPCICheckInvoice.ConfirmationMessage = Nothing + Me.aPCICheckInvoice.Id = "aPCICheckInvoice" + Me.aPCICheckInvoice.ToolTip = Nothing + ' + 'aViewPCIDInvoice + ' + Me.aViewPCIDInvoice.Caption = "aViewPCIDGroup" + Me.aViewPCIDInvoice.Category = "View" + Me.aViewPCIDInvoice.ConfirmationMessage = Nothing + Me.aViewPCIDInvoice.Id = "aViewPCIDInvoice" + Me.aViewPCIDInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDInvoice.TargetViewId = "" + Me.aViewPCIDInvoice.ToolTip = Nothing + ' + 'aFinalizeInvoicewithPopup + ' + Me.aFinalizeInvoicewithPopup.AcceptButtonCaption = Nothing + Me.aFinalizeInvoicewithPopup.CancelButtonCaption = Nothing + Me.aFinalizeInvoicewithPopup.Caption = "aFinalize Invoicewith Popup" + Me.aFinalizeInvoicewithPopup.Category = "ObjectsCreation" + Me.aFinalizeInvoicewithPopup.ConfirmationMessage = Nothing + Me.aFinalizeInvoicewithPopup.Id = "aFinalizeInvoicewithPopup" + Me.aFinalizeInvoicewithPopup.ToolTip = Nothing + ' + 'aPrintSelectedInvoices + ' + Me.aPrintSelectedInvoices.Caption = "aPrint Selected Invoices" + Me.aPrintSelectedInvoices.Category = "View" + Me.aPrintSelectedInvoices.ConfirmationMessage = Nothing + Me.aPrintSelectedInvoices.Id = "aPrintSelectedInvoices" + Me.aPrintSelectedInvoices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPrintSelectedInvoices.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aPrintSelectedInvoices.TargetViewId = "" + Me.aPrintSelectedInvoices.ToolTip = Nothing + ' + 'aOpenInvoicePdf + ' + Me.aOpenInvoicePdf.Caption = "aOpenInvoicePdf" + Me.aOpenInvoicePdf.ConfirmationMessage = Nothing + Me.aOpenInvoicePdf.Id = "aOpenInvoicePdf" + ChoiceActionItem1.Caption = "Original" + ChoiceActionItem1.ImageName = Nothing + ChoiceActionItem1.Shortcut = Nothing + ChoiceActionItem1.ToolTip = Nothing + ChoiceActionItem2.Caption = "Copy" + ChoiceActionItem2.ImageName = Nothing + ChoiceActionItem2.Shortcut = Nothing + ChoiceActionItem2.ToolTip = Nothing + Me.aOpenInvoicePdf.Items.Add(ChoiceActionItem1) + Me.aOpenInvoicePdf.Items.Add(ChoiceActionItem2) + Me.aOpenInvoicePdf.ItemType = DevExpress.ExpressApp.Actions.SingleChoiceActionItemType.ItemIsOperation + Me.aOpenInvoicePdf.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenInvoicePdf.ShowItemsOnClick = True + Me.aOpenInvoicePdf.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aOpenInvoicePdf.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aOpenInvoicePdf.ToolTip = Nothing + ' + 'aViewInvoiceHold + ' + Me.aViewInvoiceHold.Caption = "aView Invoice Hold" + Me.aViewInvoiceHold.ConfirmationMessage = Nothing + Me.aViewInvoiceHold.Id = "aViewInvoiceHold" + Me.aViewInvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewInvoiceHold.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aViewInvoiceHold.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewInvoiceHold.ToolTip = Nothing + Me.aViewInvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aRecalculateHUF + ' + Me.aRecalculateHUF.Caption = "aRecalculate HUF" + Me.aRecalculateHUF.Category = "RecordEdit" + Me.aRecalculateHUF.ConfirmationMessage = "Do you want to execute program ?" + Me.aRecalculateHUF.Id = "aRecalculateHUF" + Me.aRecalculateHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRecalculateHUF.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aRecalculateHUF.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aRecalculateHUF.ToolTip = Nothing + ' + 'aCreateInvoiceCreditNote + ' + Me.aCreateInvoiceCreditNote.Caption = "aCreate Invoice Credit Note" + Me.aCreateInvoiceCreditNote.ConfirmationMessage = Nothing + Me.aCreateInvoiceCreditNote.Id = "aCreateInvoiceCreditNote" + Me.aCreateInvoiceCreditNote.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateInvoiceCreditNote.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aCreateInvoiceCreditNote.ToolTip = Nothing + ' + 'aInvoiceHeader_GenereateEmailSendQueue + ' + Me.aInvoiceHeader_GenereateEmailSendQueue.AcceptButtonCaption = Nothing + Me.aInvoiceHeader_GenereateEmailSendQueue.CancelButtonCaption = Nothing + Me.aInvoiceHeader_GenereateEmailSendQueue.Caption = "aInvoiceHeader_GenereateEmailSendQueue" + Me.aInvoiceHeader_GenereateEmailSendQueue.ConfirmationMessage = Nothing + Me.aInvoiceHeader_GenereateEmailSendQueue.Id = "aInvoiceHeader_GenereateEmailSendQueue" + Me.aInvoiceHeader_GenereateEmailSendQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aInvoiceHeader_GenereateEmailSendQueue.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aInvoiceHeader_GenereateEmailSendQueue.TargetViewId = "InvoiceHeader_ListView" + Me.aInvoiceHeader_GenereateEmailSendQueue.ToolTip = Nothing + ' + 'aBookEntryInvoiceHeader + ' + Me.aBookEntryInvoiceHeader.Caption = "aBook Entry Invoice Header" + Me.aBookEntryInvoiceHeader.Category = "RecordEdit" + Me.aBookEntryInvoiceHeader.ConfirmationMessage = "Do you want to execute a command?" + Me.aBookEntryInvoiceHeader.Id = "aBookEntryInvoiceHeader" + Me.aBookEntryInvoiceHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBookEntryInvoiceHeader.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aBookEntryInvoiceHeader.TargetViewId = "InvoiceHeader_ListView" + Me.aBookEntryInvoiceHeader.ToolTip = Nothing + Me.aBookEntryInvoiceHeader.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aGeneratePDFandSendDefaultMailClient_Invoice + ' + Me.aGeneratePDFandSendDefaultMailClient_Invoice.Caption = "aGeneratePDFandSendDefaultMailClient_Invoice" + Me.aGeneratePDFandSendDefaultMailClient_Invoice.ConfirmationMessage = Nothing + Me.aGeneratePDFandSendDefaultMailClient_Invoice.Id = "aGeneratePDFandSendDefaultMailClient_Invoice" + Me.aGeneratePDFandSendDefaultMailClient_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGeneratePDFandSendDefaultMailClient_Invoice.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHeader) + Me.aGeneratePDFandSendDefaultMailClient_Invoice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGeneratePDFandSendDefaultMailClient_Invoice.ToolTip = Nothing + Me.aGeneratePDFandSendDefaultMailClient_Invoice.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'InvoiceVC + ' + Me.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aFinalizeInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStornoInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInvoiceFromContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPrintSelectedInvoices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateProforma As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateInvoice_Advance_Proforma As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMakeEditableProforma As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateInvoice_Final_Proforma As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDeleteSelectedInvoiceRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeInvoiceAdvance As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCorrInvoiceHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDescriptionChanger As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInvoiceRowCloner As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInvoiceHeaderClone As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateInvoiceToPdfFiles As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloneFullInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenInvoicePdf As DevExpress.ExpressApp.Actions.SingleChoiceAction + Friend WithEvents aDescriptionChangerHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPCICheckInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewInvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecalculateHUF As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeInvoicewithPopup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateInvoiceCreditNote As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInvoiceHeader_GenereateEmailSendQueue As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBookEntryInvoiceHeader As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aGeneratePDFandSendDefaultMailClient_Invoice As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.resx new file mode 100644 index 0000000..c44372d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.resx @@ -0,0 +1,207 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 209, 17 + + + 636, 17 + + + 769, 17 + + + 208, 56 + + + 352, 56 + + + 591, 56 + + + 17, 95 + + + 378, 95 + + + 585, 95 + + + 768, 95 + + + 916, 95 + + + 362, 134 + + + 528, 134 + + + 684, 134 + + + 851, 134 + + + 161, 173 + + + 308, 173 + + + 513, 173 + + + 660, 173 + + + 17, 134 + + + 809, 173 + + + 17, 173 + + + 213, 134 + + + 235, 95 + + + 17, 17 + + + 346, 17 + + + 17, 56 + + + 773, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb new file mode 100644 index 0000000..a3dc8d7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceVC.vb @@ -0,0 +1,1919 @@ +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.ExpressApp.Editors +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils +Imports System.Net.Mail + +Public Class InvoiceVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + Dim _InvoiceHeader As InvoiceHeader + MyBase.OnActivated() + Frame.GetController(Of InvoiceVC)().aInvoiceFromContractsRows.Active.SetItemValue("", False) + + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) '-- Végleges számla készítése + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False) '-- Véglegesítés popuppal + Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", False) '-- Proforma számla készítése + Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása + Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False) ' -- Proforma számla szerkeszthetővé tétele + Frame.GetController(Of InvoiceVC)().aCreateInvoice_Final_Proforma.Active.SetItemValue("", False) ' -- Végszámla készítése + Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése + Frame.GetController(Of InvoiceVC)().aViewGLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aDescriptionChanger.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aDescriptionChangerHeader.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceRowCloner.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aOpenInvoicePdf.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", False) + '------------- LISTVIEW ---------------------------------------------------------------------------------------------------------------------------- + If View.Id = "InvoiceHeader_ListView_Proforma" Then '-- Proforma lista nézet + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) + + Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then ' Számla sorok amik egy fejléchez tartoznak + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + Dim _ListView As ListView = CType(View, ListView) + Dim _Cs As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + + If TryCast(_Cs.MasterObject, InvoiceHeader) IsNot Nothing Then + If TryCast(_Cs.MasterObject, InvoiceHeader).IsEditable = False Then ' Amennyiben szerkeszthető a fejléc csak akkor lehessen sort törölni, és ne lehessen új sort hozzáadni + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + End If + If View.Id = "InvoiceHeader_ListView" Then ' Számlák lista nézet + Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", True) '-- Végleges számla stornírozása + ' Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aOpenInvoicePdf.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True) + End If + If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing + + Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aFinalizeInvoicewithPopup.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceRows_ListView_Advanced" Then ' Előleg tipusú számla sorok lista nézet + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aPCICheckInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC).aViewPCIDInvoice.Active.SetItemValue("", True) + + Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_ListView_Proforma_Advanced" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) + + Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) + 'Frame.GetController(Of InvoiceVC)().a.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "GLAccounts_DetailView_InvoiceHeader" Then + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + End If + If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) '-- Számla nyomtatása + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", True) + + Frame.GetController(Of InvoiceVC)().aCreateInvoiceCreditNote.Active.SetItemValue("", False) + + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing + End If + '------------- DETAILVIEW -------------------------------------------------------------------------------------------------------------------------- + If View.Id = "InvoiceHeader_DetailView" Then ' Számla szerkesztő nézete, többek közt :) + + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + + If View.SelectedObjects.Count > 0 Then + _InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + If _InvoiceHeader.IsEditable Or _InvoiceHeader.IsProforma Then + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) + End If + If _InvoiceHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", True) + End If + If _InvoiceHeader.IsEditable = True Then + Frame.GetController(Of InvoiceVC)().aCreateInvoice_Final_Proforma.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aDescriptionChanger.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aDescriptionChangerHeader.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aInvoiceRowCloner.Active.SetItemValue("", True) + End If + Else + Frame.GetController(Of InvoiceVC)().aCreateInvoice_Final_Proforma.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aDescriptionChanger.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aDescriptionChangerHeader.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aInvoiceRowCloner.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) + End If + End If + + + If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then + Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "InvoiceAdvancePopup_DetailView" Then ' Előleg bekérő készítő view + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of InvoiceVC)().aInvoiceFromContractsRows.Active.SetItemValue("", False) + + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) '-- Végleges számla készítése + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aCreateProforma.Active.SetItemValue("", False) '-- Proforma számla készítése + Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása + Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False) ' -- Proforma számla szerkeszthetővé tétele + Frame.GetController(Of InvoiceVC)().aCreateInvoice_Final_Proforma.Active.SetItemValue("", False) ' -- Végszámla készítése + Frame.GetController(Of InvoiceVC)().aDeleteSelectedInvoiceRows.Active.SetItemValue("", False) ' Kijelölt sor törlése + Frame.GetController(Of InvoiceVC)().aViewGLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aDescriptionChanger.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceRowCloner.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aGenerateInvoiceToPdfFiles.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", False) + + If View.Id = "InvoiceHeader_ListView" Then + Frame.GetController(Of InvoiceVC)().aStornoInvoice.Active.SetItemValue("", False) '-- Végleges számla stornírozása + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceAdvancePopup_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "InvoiceHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndNewAction.Executing, AddressOf InvoiceHeader_DetailView_SaveActionExecuting + End If + If View.Id = "InvoiceRows_ListView_Advanced" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "InvoiceHeader_ListView_Editable" Then ' Szerkeszthető számlák + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aCloneFullInvoice.Active.SetItemValue("", False) + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Editable_DeleteAction_Executing + End If + If View.Id = "InvoiceHeader_InvoiceRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "InvoiceHeader_DetailView_Corrigendum" Then + Frame.GetController(Of InvoiceRowVC).aToTable_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aBackToRowEdit_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceRowVC).aToTableD_Invoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC).aFinalizeInvoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "InvoiceHeader_InvoiceRows_ListView_Corrigendum" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + End If + If View.Id = "InvoiceHeader_ListView_Proforma" Then '-- Proforma lista nézet + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_DeleteAction_Executing + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoicewithPopup.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aMakeEditableProforma.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aInvoiceHeaderClone.Active.SetItemValue("", False) + End If + If View.Id = "InvoiceHeader_ListView_Proforma_CustomRate" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) '-- Számla nyomtatása + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Executing, AddressOf InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing + End If + If View.Id = "EMailSendQueueParameters_ListView_PopUp" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing + End If + End Sub + Private Sub aFinalizeInvoice_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeInvoice.Execute + '--Az eljárás egy kimenő számlát véglegesít------------------------------------------- + Dim _InvoiceHeader As InvoiceHeader + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + If Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Enabled Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.DoExecute() + End If + + For Each _InvoiceHeader In View.SelectedObjects + FinalizeInvoice(_InvoiceHeader, View, _ocur) + + 'Email küldés + If GLOBAL_SQLServer Like "192.168.6.9*" Then 'CSAK A MOLCONTROL MIATT ! + Try + Dim _WebParameters As WebParameters = _onew.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + If _InvoiceHeader.Customers.Contacts.Count > 0 Then + For Each _Contacts As Contacts In _InvoiceHeader.Customers.Contacts + If Not String.IsNullOrEmpty(_Contacts.Email) Then _MailMessage.To.Add(_Contacts.Email) + Next + ElseIf Not String.IsNullOrEmpty(_InvoiceHeader.Customers.Email) Then + _MailMessage.To.Add(_InvoiceHeader.Customers.Email) + Else + Throw New Exception("*Nincs email cím beállítva!") + End If + + _MailMessage.Subject = "Új számla készült" + _MailMessage.IsBodyHtml = True + _MailMessage.Body = String.Format("{0} számmal új számla készült az Ön(ök) részére.", _InvoiceHeader.DocumentNumber) + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + If _InvoiceHeader.UserCreated IsNot Nothing Then + If Not String.IsNullOrEmpty(_InvoiceHeader.UserCreated.Email) Then + _MailMessage.To.Clear() + _MailMessage.To.Add(_InvoiceHeader.UserCreated.Email) + _MailMessage.Body = String.Format("Ön {0} számmal új számlát véglegesített a(z) {1} ügyfél részére.", _ + _InvoiceHeader.DocumentNumber, _InvoiceHeader.Customers.FullName) + + _SmtpClient.Send(_MailMessage) + End If + End If + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ErrorLog As New ErrorLog(_uow) + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), System.Reflection.MethodBase).Name + _uow.CommitTransaction() + End Try + End If + Next + aPrintSelectedInvoices_Execute(sender, e) + If TryCast(View, DetailView) IsNot Nothing Then + View.Close(False) + Else + View.Refresh() + End If + + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Dim _InvoiceAdvancePopup As InvoiceAdvancePopup = TryCast(View.SelectedObjects(0), InvoiceAdvancePopup) + If _InvoiceAdvancePopup IsNot Nothing Then + If _InvoiceAdvancePopup.CurrencyName.ShortName = "HUF" Then + If _InvoiceAdvancePopup.AmountHUF = 0 Then + Throw New Exception("*Nincs megadva összeg !") + e.Cancel = True + End If + Else + If _InvoiceAdvancePopup.AmountDEV = 0 Then + + Throw New Exception("*Nincs megadva deviza összeg !") + e.Cancel = True + End If + End If + End If + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub InvoiceHeader_ListView_Proforma_DeleteAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("IsNull(InvoiceRows)=false")) + Dim _Worksheet_CostRows_Collection As New XPCollection(Of Worksheet_CostRows)(_ocur.Session, CriteriaOperator.Parse("IsNull(InvoiceRows)=false")) + + + Dim _selection As ArrayList + Dim _selection_WorkSheet As ArrayList + Dim _ContractRows As ContractRows + _selection = New ArrayList() + _selection_WorkSheet = New ArrayList() + + For Each _InvoiceHeader In View.SelectedObjects + Dim _inoperator As New InOperator("InvoiceRows", _InvoiceHeader.InvoiceRows) + _ContractRows_Collection.Filter = _inoperator + For Each _ContractRows In _ContractRows_Collection + _selection.Add(_ContractRows) + Next + + Dim _inoperatorCostRows As New InOperator("InvoiceRows", _InvoiceHeader.InvoiceRows) + _Worksheet_CostRows_Collection.Filter = _inoperatorCostRows + For Each _Worksheet_CostRows In _Worksheet_CostRows_Collection + _selection_WorkSheet.Add(_Worksheet_CostRows) + Next + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.OrderInRows IsNot Nothing Then + _InvoiceRows.OrderInRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.OrderInRowsOther IsNot Nothing Then + _InvoiceRows.OrderInRowsOther.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then + _InvoiceRows.DeliveryNoteOutRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + Next + Next + + For Each _ContractRows In _selection + _ContractRows.InvoiceRows = Nothing + Next + For Each _Worksheet_CostRows As Worksheet_CostRows In _selection_WorkSheet + _Worksheet_CostRows.InvoiceRows = Nothing + Next + _ocur.CommitChanges() + + End Sub + Private Sub aStornoInvoice_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoInvoice.Execute + '--Az eljárás egy kimenő számlát sztornóz---------------------------------------------- + Dim _InvoiceHeader As InvoiceHeader + For Each _InvoiceHeader In View.SelectedObjects + StornoInvoice(_InvoiceHeader) + Next + End Sub + Private Sub InvoiceVC_Deactivating(ByVal sender As System.Object, ByVal e As System.EventArgs) + If View.Id Like "InvoiceHeader_ListView" Then + If View.SelectedObjects.Count > 0 Then + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + 'If _InvoiceHeader.IsEditable = True Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + 'End If + End If + End If + End Sub + Private Sub aInvoiceFromContractsRows_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInvoiceFromContractsRows.CustomizePopupWindowParams + '--- Létrehoz egy Szűrt ListView-t ahol a számla sorokat lehet importálni + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + CType(View.SelectedObjects(0), InvoiceHeader).Save() + View.ObjectSpace.CommitChanges() + Dim _InvoiceHeader As InvoiceHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), InvoiceHeader)) + Dim _CS As New CollectionSource(_onew, GetType(ContractRows)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("Contracts.ContractTemplate.PartnerType=0 AND Contracts.CustomersFrom=? AND Contracts.Customers=? AND DateExecution=? and InvoiceRows=?", _ + _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _ + _InvoiceHeader.DateExecution, Nothing) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("ContractRows_ListView_Invoice", _CS, False) + End Sub + Private Sub aInvoiceFromContractsRows_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInvoiceFromContractsRows.Execute + '--- Az akció átadja a kiválasztott szerződési sorokat a számla soraihoz----------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _ContractRows As ContractRows + Dim _i As Integer = 0 ' segéd változó, hogy csak az első kijelölt sor fizetési és szállítási opcióját rakja be a fejlécbe + + For Each _ContractRows In e.PopupWindow.View.SelectedObjects + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + If _i = 0 Then + _InvoiceRows.InvoiceHeader.PaymentOption = _ocur.GetObject(_ContractRows.PaymentOption) + _InvoiceRows.InvoiceHeader.ShipmentOption = _ocur.GetObject(_ContractRows.ShipmentOption) + End If + _InvoiceRows.Description = _ocur.GetObject(_ContractRows.Description) + _InvoiceRows.QTT = _ocur.GetObject(_ContractRows.QTT) + _InvoiceRows.QualityOption = _ocur.GetObject(_ContractRows.QualityOption) + _InvoiceRows.VAT = _ocur.GetObject(_ContractRows.VAT) + _InvoiceRows.Units = _ocur.GetObject(_ContractRows.Units) + _InvoiceRows.ShortName = _ocur.GetObject(_ContractRows.ShortName) + _InvoiceRows.ContractRows = _ocur.GetObject(_ContractRows) + _InvoiceRows.Save() + Next + _ocur.CommitChanges() + End Sub + Private Sub aPrintSelectedInvoices_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintSelectedInvoices.Execute + 'Meg kell állapítani, hogy a vevő belföldi vagy külföldi. + + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _InvoiceHeader As InvoiceHeader + Dim _CurrencyName As CurrencyName + If e.SelectedObjects.Count > 0 Then + _InvoiceHeader = TryCast(e.SelectedObjects.Item(0), InvoiceHeader) + '_InvoiceHeader.RecalculateInvoice() + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + Dim _inoperator As New InOperator("InvoiceHeader", e.SelectedObjects) + If _CurrencyName.ShortName = "HUF" Then + Dim _ReportServiceController As Reports.ReportServiceController = Frame.GetController(Of Reports.ReportServiceController)() + + _ReportServiceController.ShowPreview(_ReportData, _inoperator, True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, _inoperator, True) + End If + End If + End If + End If + End Sub + Sub StornoInvoice(ByVal _p_InvoiceHeader As InvoiceHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_New As InvoiceRows + Dim _InvoiceHeader_New As InvoiceHeader + Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("IsNull(InvoiceRows)=false")) + Dim _selection As ArrayList + Dim _ContractRows As ContractRows + + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + _InvoiceHeader_New = _ocur.CreateObject(Of InvoiceHeader)() + _InvoiceHeader_New.IsStorno = True : _p_InvoiceHeader.IsStorno = True + _InvoiceHeader_New.BankInformation = _p_InvoiceHeader.BankInformation + _InvoiceHeader_New.ConnectInfo = _p_InvoiceHeader.DocumentNumber + _InvoiceHeader_New.CurrencyName = _p_InvoiceHeader.CurrencyName + _InvoiceHeader_New.CurrencyRate = _p_InvoiceHeader.CurrencyRate + _InvoiceHeader_New.Customers = _p_InvoiceHeader.Customers + _InvoiceHeader_New.CustomersFrom = _p_InvoiceHeader.CustomersFrom + _InvoiceHeader_New.DateCreated = GetSQLTime(_ocur.Session) + _InvoiceHeader_New.PaymentOption = _p_InvoiceHeader.PaymentOption + _InvoiceHeader_New.DateExecution = _p_InvoiceHeader.DateExecution + _InvoiceHeader_New.DatePayment = _p_InvoiceHeader.DatePayment + _InvoiceHeader_New.DocumentNumber = _p_InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_p_InvoiceHeader.InvoiceType.NumberGenerator) + _InvoiceHeader_New.HUNumberToText = _p_InvoiceHeader.HUNumberToText + _InvoiceHeader_New.InvoiceType = _p_InvoiceHeader.InvoiceType + _InvoiceHeader_New.IsEditable = False + _InvoiceHeader_New.IsProforma = False + _InvoiceHeader_New.QualityOption = _p_InvoiceHeader.QualityOption + _InvoiceHeader_New.Saved_Customers_Address_City = _p_InvoiceHeader.Saved_Customers_Address_City + _InvoiceHeader_New.Saved_Customers_Address_Country = _p_InvoiceHeader.Saved_Customers_Address_Country + _InvoiceHeader_New.Saved_Customers_Address_StateProvince = _p_InvoiceHeader.Saved_Customers_Address_StateProvince + _InvoiceHeader_New.Saved_Customers_Address_Street = _p_InvoiceHeader.Saved_Customers_Address_Street + _InvoiceHeader_New.Saved_Customers_Address_ZipPostal = _p_InvoiceHeader.Saved_Customers_Address_ZipPostal + _InvoiceHeader_New.Saved_Customers_Name = _p_InvoiceHeader.Saved_Customers_Name + _InvoiceHeader_New.Saved_Customers_VATNumber = _p_InvoiceHeader.Saved_Customers_VATNumber + _InvoiceHeader_New.Saved_Customers_VATNumberEU = _p_InvoiceHeader.Saved_Customers_VATNumberEU + _InvoiceHeader_New.Saved_CustomersFrom_Address_City = _p_InvoiceHeader.Saved_CustomersFrom_Address_City + _InvoiceHeader_New.Saved_CustomersFrom_Address_Country = _p_InvoiceHeader.Saved_CustomersFrom_Address_Country + _InvoiceHeader_New.Saved_CustomersFrom_Address_StateProvince = _p_InvoiceHeader.Saved_CustomersFrom_Address_StateProvince + _InvoiceHeader_New.Saved_CustomersFrom_Address_Street = _p_InvoiceHeader.Saved_CustomersFrom_Address_Street + _InvoiceHeader_New.Saved_CustomersFrom_Address_ZipPostal = _p_InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal + _InvoiceHeader_New.Saved_CustomersFrom_Bank_AccountNumber = _p_InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber + _InvoiceHeader_New.Saved_CustomersFrom_Bank_IBAN = _p_InvoiceHeader.Saved_CustomersFrom_Bank_IBAN + _InvoiceHeader_New.Saved_CustomersFrom_Bank_ShortName = _p_InvoiceHeader.Saved_CustomersFrom_Bank_ShortName + _InvoiceHeader_New.Saved_CustomersFrom_Bank_SWIFT = _p_InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT + + _InvoiceHeader_New.Saved_CustomersFrom_Name = _p_InvoiceHeader.Saved_CustomersFrom_Name + _InvoiceHeader_New.Saved_CustomersFrom_VATNumber = _p_InvoiceHeader.Saved_CustomersFrom_VATNumber + _InvoiceHeader_New.Saved_CustomersFrom_VATNumberEU = _p_InvoiceHeader.Saved_CustomersFrom_VATNumberEU + + _InvoiceHeader_New.ShipmentOption = _p_InvoiceHeader.ShipmentOption + + _p_InvoiceHeader.Save() + _InvoiceHeader_New.Save() + + For Each _InvoiceRows In _p_InvoiceHeader.InvoiceRows + _InvoiceRows_New = New InvoiceRows(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + _InvoiceRows_New.Controlling = _InvoiceRows.Controlling + _InvoiceRows_New.CostHolder = _InvoiceRows.CostHolder + _InvoiceRows_New.CostPlace = _InvoiceRows.CostPlace + _InvoiceRows_New.CustomsTariffs = _InvoiceRows.CustomsTariffs + _InvoiceRows_New.Description = _InvoiceRows.Description + _InvoiceRows_New.DiscountPriceDEV = _InvoiceRows.DiscountPriceDEV + _InvoiceRows_New.DiscountPriceHUF = _InvoiceRows.DiscountPriceHUF + _InvoiceRows_New.InvoiceRowtype = _InvoiceRows.InvoiceRowtype + _InvoiceRows_New.JobNumberObjects = _InvoiceRows.JobNumberObjects + _InvoiceRows_New.ListPriceDEV = _InvoiceRows.ListPriceDEV + _InvoiceRows_New.ListPriceHUF = _InvoiceRows.ListPriceHUF + _InvoiceRows_New.QTT = _InvoiceRows.QTT * (-1) + _InvoiceRows_New.QualityOption = _InvoiceRows.QualityOption + _InvoiceRows_New.RowIndex = _InvoiceRows.RowIndex + _InvoiceRows_New.ShortName = _InvoiceRows.ShortName + _InvoiceRows_New.UniqueObjects = _InvoiceRows.UniqueObjects + _InvoiceRows_New.Units = _InvoiceRows.Units + _InvoiceRows_New.VAT = _InvoiceRows.VAT + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows_New.ContractRows = _InvoiceRows.ContractRows + End If + If _InvoiceRows.OrderInRows IsNot Nothing Then + _InvoiceRows_New.OrderInRows = _InvoiceRows.OrderInRows + _InvoiceRows.OrderInRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.OrderInRowsOther IsNot Nothing Then + _InvoiceRows_New.OrderInRowsOther = _InvoiceRows.OrderInRowsOther + _InvoiceRows.OrderInRowsOther.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then + _InvoiceRows_New.DeliveryNoteOutRows = _InvoiceRows.DeliveryNoteOutRows + _InvoiceRows.DeliveryNoteOutRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + _InvoiceRows_New.InvoiceHeader = _InvoiceHeader_New + '------- Ezek hiányoztak 2011.06.20 ---------------------------- + _InvoiceRows_New.ChartOfAccounts = _InvoiceRows.ChartOfAccounts + _InvoiceRows_New.InvoiceRows = _InvoiceRows.InvoiceRows + _InvoiceRows_New.InvoiceRowsAdvance = _InvoiceRows.InvoiceRowsAdvance + _InvoiceRows_New.OrderInRowsOther = _InvoiceRows.OrderInRowsOther + '-------------------------------------------------------------------------- + _InvoiceRows_New.Save() + Next + _ocur.CommitChanges() + _InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur) + _ocur.CommitChanges() + '-- Szerződési sorokról visszavonni, hogy számlázva vannak ! ------------------------------------------------------------------------------ + _selection = New ArrayList() + + + Dim _inoperator As New InOperator("InvoiceRows", _p_InvoiceHeader.InvoiceRows) + _ContractRows_Collection.Filter = _inoperator + For Each _ContractRows In _ContractRows_Collection + _selection.Add(_ContractRows) + Next + + For Each _ContractRows In _selection + _ContractRows.InvoiceRows = Nothing + _ContractRows.Save() + Next + _ocur.CommitChanges() + '------------------------------------------------------------------------------------------------------------------------------------------ + Me.PrintInvoice(_InvoiceHeader_New) + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + If TryCast(View, DetailView) IsNot Nothing Then + View.Close(False) + Else + View.Refresh() + End If + + End Sub + Sub FinalizeInvoice(ByVal _p_InvoiceHeader As InvoiceHeader, _View As DevExpress.ExpressApp.View, _ocur As Xpo.XPObjectSpace) + On Error GoTo CheckError + If _View.Id = "InvoiceHeader_DetailView_Corrigendum" Then + Dim _ActTotalNetto As Double = 0 + For Each _InvoiceRows As InvoiceRows In _p_InvoiceHeader.InvoiceRows + If _p_InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _ActTotalNetto += _InvoiceRows.PriceHUF * _InvoiceRows.QTT + Else + _ActTotalNetto += _InvoiceRows.PriceDEV * _InvoiceRows.QTT + End If + Next + If _ActTotalNetto > 0 Then + _p_InvoiceHeader.DateExecution = _p_InvoiceHeader.InvoiceHeader.DateExecution + ElseIf _ActTotalNetto < 0 Then + Else + End If + End If + + If _p_InvoiceHeader.InvoiceRows Is Nothing Then + _ocur.Rollback() + Exit Sub + End If + + If _p_InvoiceHeader.InvoiceRows.Count <= 0 Then + _ocur.Rollback() + Exit Sub + End If + + _p_InvoiceHeader.IsEditable = False + _p_InvoiceHeader.IsProforma = False + _p_InvoiceHeader.ConnectInfo = _p_InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_p_InvoiceHeader.InvoiceType.NumberGenerator) + _p_InvoiceHeader.DocumentNumber = _p_InvoiceHeader.ConnectInfo + + '// Ha a számla helyesbítő, akkor a helyesbített számla száma lesz a pontozási azonosító + If _p_InvoiceHeader.IsCorrigendum Then + _p_InvoiceHeader.ConnectInfo = _p_InvoiceHeader.InvoiceHeader.DocumentNumber + End If + _p_InvoiceHeader.DateCreated = GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + + ' -- Ha folyamatos teljesítésű számla akkor a fizetési határidő megegyezik a teljesítés dátumával + If _p_InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _p_InvoiceHeader.DatePayment = _p_InvoiceHeader.DateExecution + Else + ' -- Egyébként számolja ki a fizetési opcióból, hogy hány nap van a kiállítás dátuma és a fizetési határidő között + If _p_InvoiceHeader.PaymentOption.PayDay = 0 Then + Else + Select Case _p_InvoiceHeader.DatePaymentMode + Case eDatePaymentMode.eDateCreated + _p_InvoiceHeader.DatePayment = _p_InvoiceHeader.DateCreated.AddDays(_p_InvoiceHeader.PaymentOption.PayDay) + Case eDatePaymentMode.eDateExecution + _p_InvoiceHeader.DatePayment = _p_InvoiceHeader.DateExecution.AddDays(_p_InvoiceHeader.PaymentOption.PayDay) + End Select + End If + End If + + ' -- Ha előleg típusú számla akkor a teljesítés és a fizetési határidő is megegyezik + If _p_InvoiceHeader.InvoiceType.InvoiceTypeBase = eInvoiceTypeBase.eAdvancePayment Then + _p_InvoiceHeader.DatePayment = _p_InvoiceHeader.DateExecution + End If + + If _p_InvoiceHeader.Customers.Name = "" Then + _p_InvoiceHeader.Customers.Name = _p_InvoiceHeader.Customers.FullName + End If + + _p_InvoiceHeader.Saved_Customers_Name = _p_InvoiceHeader.Customers.Name.ToString + _p_InvoiceHeader.Saved_Customers_Address_Country = _p_InvoiceHeader.Customers.Address1.Country.ToString + _p_InvoiceHeader.Saved_Customers_Address_ZipPostal = _p_InvoiceHeader.Customers.Address1.ZipPostal.ToString + _p_InvoiceHeader.Saved_Customers_Address_Street = _p_InvoiceHeader.Customers.Address1.Street.ToString + _p_InvoiceHeader.Saved_Customers_Address_City = _p_InvoiceHeader.Customers.Address1.City.ToString + _p_InvoiceHeader.Saved_Customers_Address_StateProvince = _p_InvoiceHeader.Customers.Address1.StateProvince.ToString + _p_InvoiceHeader.Saved_Customers_VATNumber = _p_InvoiceHeader.Customers.VATNumber.ToString + _p_InvoiceHeader.Saved_Customers_VATNumberEU = _p_InvoiceHeader.Customers.VATNumberEU.ToString + + _p_InvoiceHeader.Saved_CustomersFrom_Name = _p_InvoiceHeader.CustomersFrom.Name.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Address_Country = _p_InvoiceHeader.CustomersFrom.Address1.Country.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _p_InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Address_Street = _p_InvoiceHeader.CustomersFrom.Address1.Street.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Address_City = _p_InvoiceHeader.CustomersFrom.Address1.City.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _p_InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + _p_InvoiceHeader.Saved_CustomersFrom_VATNumber = _p_InvoiceHeader.CustomersFrom.VATNumber.ToString + _p_InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _p_InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + _p_InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _p_InvoiceHeader.BankInformation.FullBankAccount.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _p_InvoiceHeader.BankInformation.IBAN.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _p_InvoiceHeader.BankInformation.SWIFT.ToString + _p_InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _p_InvoiceHeader.BankInformation.AccountNumber.ToString + + _ocur.CommitChanges() + _p_InvoiceHeader.RecalculateInvoice(_p_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _p_InvoiceHeader.CustomersFrom, _p_InvoiceHeader.Customers, 0, _p_InvoiceHeader.ConnectInfo) + + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + + End Sub + Private Sub aCreateProforma_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateProforma.Execute + Dim _InvoiceHeader As InvoiceHeader + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _NG As NumberGenerator + + If Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.Enabled Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAction.DoExecute() + End If + + On Error GoTo CheckError + + For Each _InvoiceHeader In e.SelectedObjects + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + If _InvoiceHeader.PaymentOption.PayDay = 0 Then + Else + Select Case _InvoiceHeader.DatePaymentMode + Case eDatePaymentMode.eDateExecution + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Case eDatePaymentMode.eDateCreated + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End Select + End If + End If + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + + _InvoiceHeader.Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + Next + _ocur.CommitChanges() + + If e.SelectedObjects.Count = 1 Then + _InvoiceHeader = TryCast(e.SelectedObjects(0), InvoiceHeader) + Me.PrintInvoice(_InvoiceHeader) + If TryCast(View, DetailView) IsNot Nothing Then + View.Close() + End If + End If + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub aCheckConnectInfo_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Dim _GLRows As GLRows = View.ObjectSpace.CreateObject(Of GLRows)() + Dim _InvoiceHeader As InvoiceHeader = Nothing + + + End Sub + Sub PrintInvoice(ByVal _InvoiceHeader As InvoiceHeader) + '-- Kinyomtat egy számlát + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _CurrencyName As CurrencyName + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + End If + + End If + End If + End Sub + Private Sub aCreateInvoice_Advance_Proforma_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoice_Advance_Proforma.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceAdvancePopup As InvoiceAdvancePopup = _onew.CreateObject(Of InvoiceAdvancePopup)() + + e.View = Application.CreateDetailView(_onew, "InvoiceAdvancePopup_DetailView", False, _InvoiceAdvancePopup) + End Sub + Private Sub aCreateInvoice_Advance_Proforma_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoice_Advance_Proforma.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InvoiceAdvancePopup As InvoiceAdvancePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceAdvancePopup) + Dim _InvoiceHeader_New As InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + Dim _NG As NumberGenerator + + On Error GoTo CheckError + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + _InvoiceHeader_New.IsProforma = True + _InvoiceHeader_New.IsEditable = False + _InvoiceHeader_New.CurrencyName = _ocur.GetObject(_InvoiceAdvancePopup.CurrencyName) + + _InvoiceHeader_New.CurrencyRate = _ocur.GetObject(_InvoiceAdvancePopup.CurrencyRate) + _InvoiceHeader_New.Customers = _ocur.GetObject(_InvoiceAdvancePopup.Customers) + _InvoiceHeader_New.CustomersFrom = _ocur.GetObject(_InvoiceAdvancePopup.CustomersFrom) + _InvoiceHeader_New.DateExecution = _ocur.GetObject(_InvoiceAdvancePopup.DateExecution) + _InvoiceHeader_New.DatePayment = _ocur.GetObject(_InvoiceAdvancePopup.DatePayment) + _InvoiceHeader_New.PaymentOption = _ocur.GetObject(_InvoiceAdvancePopup.PaymentOption) + _InvoiceHeader_New.Description = _InvoiceAdvancePopup.Description + + If _InvoiceHeader_New.PaymentOption.PayMode = ePayMode.InTransfer Then + _InvoiceHeader_New.BankInformation = _ocur.GetObject(_InvoiceAdvancePopup.BankInformation) + End If + _InvoiceHeader_New.InvoiceType = _ocur.GetObject(_InvoiceAdvancePopup.InvoiceType) + If _InvoiceHeader_New.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader_New.InvoiceType.NumberGeneratorProforma + _InvoiceHeader_New.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + If _InvoiceHeader_New.CurrencyName.ShortName = "HUF" Then + _InvoiceHeader_New.TotalBruttoHUF = _ocur.GetObject(_InvoiceAdvancePopup.AmountHUF) + Else + _InvoiceHeader_New.TotalBruttoDEV = _InvoiceAdvancePopup.AmountDEV + _InvoiceHeader_New.TotalBruttoHUF = _InvoiceAdvancePopup.AmountHUF + End If + + _InvoiceHeader_New.Saved_Customers_Name = _InvoiceHeader_New.Customers.Name.ToString + _InvoiceHeader_New.Saved_Customers_Address_Country = _InvoiceHeader_New.Customers.Address1.Country.ToString + _InvoiceHeader_New.Saved_Customers_Address_ZipPostal = _InvoiceHeader_New.Customers.Address1.ZipPostal.ToString + _InvoiceHeader_New.Saved_Customers_Address_Street = _InvoiceHeader_New.Customers.Address1.Street.ToString + _InvoiceHeader_New.Saved_Customers_Address_City = _InvoiceHeader_New.Customers.Address1.City.ToString + _InvoiceHeader_New.Saved_Customers_Address_StateProvince = _InvoiceHeader_New.Customers.Address1.StateProvince.ToString + _InvoiceHeader_New.Saved_Customers_VATNumber = _InvoiceHeader_New.Customers.VATNumber.ToString + _InvoiceHeader_New.Saved_Customers_VATNumberEU = _InvoiceHeader_New.Customers.VATNumberEU.ToString + + _InvoiceHeader_New.Saved_CustomersFrom_Name = _InvoiceHeader_New.CustomersFrom.Name.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader_New.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Address_Street = _InvoiceHeader_New.CustomersFrom.Address1.Street.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Address_City = _InvoiceHeader_New.CustomersFrom.Address1.City.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader_New.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader_New.Saved_CustomersFrom_VATNumber = _InvoiceHeader_New.CustomersFrom.VATNumber.ToString + _InvoiceHeader_New.Saved_CustomersFrom_VATNumberEU = _InvoiceHeader_New.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader_New.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader_New.BankInformation.FullBankAccount.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader_New.BankInformation.IBAN.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader_New.BankInformation.SWIFT.ToString + _InvoiceHeader_New.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader_New.BankInformation.AccountNumber.ToString + + + _InvoiceRows.InvoiceHeader = _ocur.GetObject(_InvoiceHeader_New) + _InvoiceRows.QTT = 1 + + _InvoiceRows.VAT = _ocur.GetObject(_InvoiceAdvancePopup.VAT) + _InvoiceRows.ShortName = "Előleg" + + If _InvoiceHeader_New.CurrencyName.ShortName = "HUF" Then + If _InvoiceRows.VAT IsNot Nothing Then + _InvoiceRows.ListPriceHUF = Math.Round(_InvoiceAdvancePopup.AmountHUF / (100 + _InvoiceRows.VAT.KeyValuePercent) * 100, 0, MidpointRounding.AwayFromZero) + Else + _InvoiceRows.ListPriceHUF = _InvoiceAdvancePopup.AmountHUF + End If + Else + If _InvoiceRows.VAT IsNot Nothing Then + _InvoiceRows.ListPriceDEV = Math.Round(_InvoiceAdvancePopup.AmountDEV / (100 + _InvoiceRows.VAT.KeyValuePercent) * 100, 0, MidpointRounding.AwayFromZero) + _InvoiceRows.ListPriceHUF = _InvoiceRows.ListPriceDEV * _InvoiceAdvancePopup.CurrencyRate + Else + _InvoiceRows.ListPriceDEV = _InvoiceAdvancePopup.AmountDEV + _InvoiceRows.ListPriceHUF = _InvoiceAdvancePopup.AmountHUF + End If + End If + _InvoiceRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName = 'DB'")) + + If _InvoiceRows.Units Is Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Units As Units = _onew.CreateObject(Of Units)() + _Units.ShortName = "DB" + _InvoiceRows.Units = _Units + End If + _InvoiceRows.Description = _InvoiceAdvancePopup.Description + _InvoiceRows.Controlling = _ocur.GetObject(_InvoiceAdvancePopup.Controlling) + _InvoiceRows.CostHolder = _ocur.GetObject(_InvoiceAdvancePopup.CostHolder) + _InvoiceRows.CostPlace = _ocur.GetObject(_InvoiceAdvancePopup.CostPlace) + _InvoiceRows.UniqueObjects = _ocur.GetObject(_InvoiceAdvancePopup.UniqueObjects) + _InvoiceRows.JobNumberObjects = _ocur.GetObject(_InvoiceAdvancePopup.JobNumberObjects) + + _ocur.CommitChanges() + _InvoiceHeader_New.RecalculateInvoice(_InvoiceHeader_New, _ocur) + _ocur.CommitChanges() + Me.PrintInvoice(_InvoiceHeader_New) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + View.Close() + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub aMakeEditableProforma_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditableProforma.Execute + ' -- Az akció egy kiválasztott proforma számlát állít vissza szerkeszthetőre, ha az nem szerződésből származik ----------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _IsFromContracts As Boolean = False + Dim _InvoiceRows As InvoiceRows + Dim _selection As ArrayList = New ArrayList() + If _InvoiceHeader Is Nothing Then Exit Sub + + _selection.Clear() + + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.ContractRows IsNot Nothing Then + _IsFromContracts = True + End If + Next + + If _IsFromContracts = False Then + _InvoiceHeader.IsEditable = True + _InvoiceHeader.IsProforma = False + + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.InvoiceRowsAdvance IsNot Nothing Then + _InvoiceRows.InvoiceRowsAdvance.InvoiceRowsAdvance = Nothing + _selection.Add(_InvoiceRows) + _InvoiceRows.Save() + End If + Next + _InvoiceHeader.Save() + _ocur.CommitChanges() + + _ocur.Delete(_selection) + _ocur.CommitChanges() + End If + End Sub + Private Sub aCreateInvoice_Final_Proforma_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoice_Final_Proforma.CustomizePopupWindowParams + ' Létrehoz egy szűrt ListView-t ahol a számlához tartozó előlegsorokat lehet kijelölni + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _CS As New CollectionSource(_onew, GetType(InvoiceRows)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("InvoiceHeader.Customers=? And InvoiceHeader.CustomersFrom=? And InvoiceHeader.InvoiceType.InvoiceTypeBase in (0,1) And IsNull(InvoiceRowsAdvance)=True And InvoiceHeader.IsEditable=False And InvoiceHeader.IsStorno=False And InvoiceHeader.IsProforma=False And InvoiceHeader.CurrencyName.ShortName=?" _ + , _onew.GetObject(_InvoiceHeader.Customers), _onew.GetObject(_InvoiceHeader.CustomersFrom), _onew.GetObject(_InvoiceHeader.CurrencyName.ShortName)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("InvoiceRows_ListView_Advanced", _CS, False) + End Sub + Private Sub aCreateInvoice_Final_Proforma_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoice_Final_Proforma.Execute + ' Az akció egy szerkeszthető kimenő számlából, egy proforma számlát készít, amihez ha van, akkor hozzáadja a kiválasztott előleg sorokat. + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_New As InvoiceRows + Dim _NG As NumberGenerator + Dim _ReportData As ReportData + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + + On Error GoTo CheckError + _InvoiceHeader.Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + + + For Each _InvoiceRows In e.PopupWindow.View.SelectedObjects ' A popup-on kiválasztott előleg sorok hozzáadása + _InvoiceRows_New = _ocur.CreateObject(Of InvoiceRows)() + + _InvoiceRows_New.InvoiceHeader = _InvoiceHeader + _InvoiceRows_New.QTT = _InvoiceRows.QTT * -1 + _InvoiceRows_New.InvoiceRowsAdvance = _ocur.GetObject(_InvoiceRows) + _InvoiceRows_New.ContractRows = _ocur.GetObject(_InvoiceRows.ContractRows) + _InvoiceRows_New.Controlling = _ocur.GetObject(_InvoiceRows.Controlling) + _InvoiceRows_New.CostHolder = _ocur.GetObject(_InvoiceRows.CostHolder) + _InvoiceRows_New.CostPlace = _ocur.GetObject(_InvoiceRows.CostPlace) + _InvoiceRows_New.CustomsTariffs = _ocur.GetObject(_InvoiceRows.CustomsTariffs) + _InvoiceRows_New.Description = _ocur.GetObject(_InvoiceRows.Description) + _InvoiceRows_New.DiscountPriceDEV = _ocur.GetObject(_InvoiceRows.DiscountPriceDEV) + _InvoiceRows_New.DiscountPriceHUF = _ocur.GetObject(_InvoiceRows.DiscountPriceHUF) + _InvoiceRows_New.InvoiceRowtype = _ocur.GetObject(_InvoiceRows.InvoiceRowtype) + _InvoiceRows_New.JobNumberObjects = _ocur.GetObject(_InvoiceRows.JobNumberObjects) + _InvoiceRows_New.ListPriceDEV = _ocur.GetObject(_InvoiceRows.ListPriceDEV) + _InvoiceRows_New.ListPriceHUF = _ocur.GetObject(_InvoiceRows.ListPriceHUF) + _InvoiceRows_New.QualityOption = _ocur.GetObject(_InvoiceRows.QualityOption) + _InvoiceRows_New.ShortName = _ocur.GetObject(_InvoiceRows.ShortName) + _InvoiceRows_New.UniqueObjects = _ocur.GetObject(_InvoiceRows.UniqueObjects) + _InvoiceRows_New.Units = _ocur.GetObject(_InvoiceRows.Units) + _InvoiceRows_New.VAT = _ocur.GetObject(_InvoiceRows.VAT) + + Next + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) ' A sorok összegeinek újraszámolása + _ocur.CommitChanges() + + Me.PrintInvoice(_InvoiceHeader) + + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub aUp_InvoiceRow_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.CurrentObject, InvoiceHeader) + Dim _InvoiceRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") ' Bekeresi az összes bejövő megrendelési sort + Dim _InvoiceRowsSelected As InvoiceRows + Dim _InvoiceRowsMinus As InvoiceRows = Nothing + Dim _Invoicerows As InvoiceRows + + Try + _InvoiceRowsSelected = TryCast(_InvoiceRows_ListEditor.ListView.SelectedObjects(0), InvoiceRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _InvoiceRowsSelected.RowIndex > 0 Then + For Each _Invoicerows In _InvoiceHeader.InvoiceRows + If _Invoicerows.RowIndex = _InvoiceRowsSelected.RowIndex - 1 Then + _InvoiceRowsMinus = _Invoicerows + Exit For + End If + Next + + If _InvoiceRowsMinus IsNot Nothing Then + _InvoiceRowsSelected.RowIndex -= 1 + _InvoiceRowsMinus.RowIndex += 1 + End If + _InvoiceRowsMinus.Save() + _InvoiceRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_InvoiceRow_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.CurrentObject, InvoiceHeader) + Dim _InvoiceRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") ' Bekeresi az összes bejövő megrendelési sort + Dim _InvoiceRowsSelected As InvoiceRows + Dim _InvoiceRowPlus As InvoiceRows = Nothing + Dim _InvoiceRows As InvoiceRows + + Try + _InvoiceRowsSelected = TryCast(_InvoiceRows_ListEditor.ListView.SelectedObjects(0), InvoiceRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _InvoiceRowsSelected.RowIndex < _InvoiceHeader.InvoiceRows.Count - 1 Then + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.RowIndex = _InvoiceRowsSelected.RowIndex + 1 Then + _InvoiceRowPlus = _InvoiceRows + Exit For + End If + Next + + If _InvoiceRowPlus IsNot Nothing Then + _InvoiceRowsSelected.RowIndex += 1 + _InvoiceRowPlus.RowIndex -= 1 + End If + _InvoiceRowPlus.Save() + _InvoiceRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDeleteSelectedInvoiceRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteSelectedInvoiceRows.Execute + ' Az akció a számla kiválasztott sorait törli -------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = e.SelectedObjects(0).InvoiceHeader + Dim _InvoiceRows_Collection As ArrayList = New ArrayList + + For Each _InvoiceRows As InvoiceRows In e.SelectedObjects ' Végigmegy a fejléchez tartozó összes soron amit nem törlünk, és sorrendbe állítja a sorszámokat + Dim _InvRows As InvoiceRows = _InvoiceRows + For Each _InvoiceRows2 As InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows2.RowIndex > _InvRows.RowIndex Then + _InvoiceRows2.RowIndex -= 1 + End If + Next + Next + + For Each _InvoiceRows As InvoiceRows In e.SelectedObjects + _InvoiceRows_Collection.Add(_InvoiceRows) + Next + + _ocur.Delete(_InvoiceRows_Collection) + View.Refresh() + End Sub + Private Sub aFinalizeInvoiceAdvance_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFinalizeInvoiceAdvance.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceAdvancePopup As InvoiceAdvancePopup + + _InvoiceAdvancePopup = _onew.CreateObject(Of InvoiceAdvancePopup)() + _InvoiceAdvancePopup.IsEditable = False + _InvoiceAdvancePopup.CustomersFrom = _onew.GetObject(_InvoiceHeader.CustomersFrom) + _InvoiceAdvancePopup.Customers = _onew.GetObject(_InvoiceHeader.Customers) + _InvoiceAdvancePopup.InvoiceType = _onew.GetObject(_InvoiceHeader.InvoiceType) + _InvoiceAdvancePopup.CurrencyName = _onew.GetObject(_InvoiceHeader.CurrencyName) + _InvoiceAdvancePopup.CurrencyRate = _InvoiceHeader.CurrencyRate + _InvoiceAdvancePopup.AmountHUF = _InvoiceHeader.TotalBruttoHUF + _InvoiceAdvancePopup.AmountDEV = _InvoiceHeader.TotalBruttoDEV + _InvoiceAdvancePopup.PaymentOption = _onew.GetObject(_InvoiceHeader.PaymentOption) + _InvoiceAdvancePopup.Description = _InvoiceHeader.Description + _InvoiceAdvancePopup.BankInformation = _onew.GetObject(_InvoiceHeader.BankInformation) + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceAdvancePopup.Controlling = _onew.GetObject(_InvoiceRows.Controlling) + _InvoiceAdvancePopup.CostHolder = _onew.GetObject(_InvoiceRows.CostHolder) + _InvoiceAdvancePopup.CostPlace = _onew.GetObject(_InvoiceRows.CostPlace) + _InvoiceAdvancePopup.JobNumberObjects = _onew.GetObject(_InvoiceRows.JobNumberObjects) + _InvoiceAdvancePopup.UniqueObjects = _onew.GetObject(_InvoiceRows.UniqueObjects) + _InvoiceAdvancePopup.VAT = _onew.GetObject(_InvoiceRows.VAT) + Next + e.View = Application.CreateDetailView(_onew, "InvoiceAdvancePopup_DetailView", False, _InvoiceAdvancePopup) + End Sub + Private Sub aFinalizeInvoiceAdvance_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFinalizeInvoiceAdvance.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceAdvancePopup As InvoiceAdvancePopup = TryCast(_ocur.GetObject(e.PopupWindow.View.SelectedObjects(0)), InvoiceAdvancePopup) + + If _InvoiceAdvancePopup IsNot Nothing Then + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.Controlling = _ocur.GetObject(_InvoiceAdvancePopup.Controlling) + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + If _InvoiceRows.VAT IsNot Nothing Then + _InvoiceRows.ListPriceHUF = Math.Round(_InvoiceAdvancePopup.AmountHUF / (100 + _InvoiceRows.VAT.KeyValuePercent) * 100, 0, MidpointRounding.AwayFromZero) + Else + _InvoiceRows.ListPriceHUF = _ocur.GetObject(_InvoiceAdvancePopup.AmountHUF) + End If + Else + If _InvoiceRows.VAT IsNot Nothing Then + _InvoiceRows.ListPriceDEV = Math.Round(_InvoiceAdvancePopup.AmountDEV / (100 + _InvoiceRows.VAT.KeyValuePercent) * 100, 0, MidpointRounding.AwayFromZero) + Else + _InvoiceRows.ListPriceDEV = _ocur.GetObject(_InvoiceAdvancePopup.AmountDEV) + End If + End If + Next + _InvoiceHeader.Description = _InvoiceAdvancePopup.Description + _InvoiceHeader.DateExecution = _InvoiceAdvancePopup.DateExecution + _InvoiceHeader.PaymentOption = _ocur.GetObject(_InvoiceAdvancePopup.PaymentOption) + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + + Me.FinalizeInvoice(_InvoiceHeader, View, _ocur) + Me.PrintInvoice(_InvoiceHeader) + If TryCast(View, DetailView) IsNot Nothing Then + View.Close(False) + Else + View.Refresh() + End If + End If + End Sub + Private Sub aViewGLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLAccounts.Execute + If View.SelectedObjects.Count > 0 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + If _InvoiceHeader IsNot Nothing Then + Dim _GLAccounts As GLAccounts = _InvoiceHeader.GLAccounts + If _GLAccounts IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLAccounts_DetailView_InvoiceHeader", False, _onew.GetObject(_GLAccounts)) + Else + Throw New Exception("*Nincs lekönyvelve a számla!") + End If + End If + End If + End Sub + Private Sub aCorrInvoiceHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCorrInvoiceHeader.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceHeader_New As InvoiceHeader = _onew.CreateObject(Of InvoiceHeader)() + + _InvoiceHeader_New.BankInformation = _onew.GetObject(_InvoiceHeader.BankInformation) + _InvoiceHeader_New.Customers = _onew.GetObject(_InvoiceHeader.Customers) + _InvoiceHeader_New.CustomersFrom = _onew.GetObject(_InvoiceHeader.CustomersFrom) + _InvoiceHeader_New.InvoiceType = _onew.GetObject(_InvoiceHeader.InvoiceType) + _InvoiceHeader_New.IsCorrigendum = True + _InvoiceHeader_New.IsEditable = True + _InvoiceHeader_New.IsProforma = False + _InvoiceHeader_New.IsStorno = False + _InvoiceHeader_New.InvoiceHeader = _onew.GetObject(_InvoiceHeader) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "InvoiceHeader_DetailView_Corrigendum", True, _InvoiceHeader_New) + End Sub + Private Sub aDescriptionChanger_Cancel(sender As Object, e As System.EventArgs) Handles aDescriptionChanger.Cancel + End Sub + Private Sub aDescriptionChanger_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescriptionChanger.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp + Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp)) + + Dim _InvoiceHeader_xpquery = New XPQuery(Of InvoiceHeader)(_ocur.Session) + Dim query = From _InvoiceHeader In _InvoiceHeader_xpquery _ + Where _InvoiceHeader.Description IsNot Nothing _ + Group _InvoiceHeader By _InvoiceHeader.Description Into g = Group _ + Select New With {Key .Description = Description} + For Each item In query + _InvoiceHeader_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)() + _InvoiceHeader_DescriptionChanger_PopUp.Description = item.Description + _CS_Description.Add(_InvoiceHeader_DescriptionChanger_PopUp) + Next + e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False) + End Sub + Private Sub aDescriptionChanger_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescriptionChanger.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + For Each _Description In e.PopupWindow.View.SelectedObjects + _InvoiceHeader.Description += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description + Next + End Sub + Private Sub aInvoiceRowCloner_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInvoiceRowCloner.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(InvoiceRows)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("RowType") = CriteriaOperator.Parse("InvoiceRowCorrigendumType=0") 'Csak a normál sorok felkínálása + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("InvoiceRows_ListView", _CS, False) + End Sub + Private Sub aInvoiceRowCloner_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInvoiceRowCloner.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceRowsPopUp As InvoiceRows = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows) + If e.PopupWindow.View.SelectedObjects.Count = 1 Then + If _InvoiceRowsPopUp.Controlling IsNot Nothing Then + _InvoiceHeader.row_Controlling = _ocur.GetObjectByKey(Of Controlling)(_InvoiceRowsPopUp.Controlling.Oid) + End If + If _InvoiceRowsPopUp.CostHolder IsNot Nothing Then + _InvoiceHeader.row_CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_InvoiceRowsPopUp.CostHolder.Oid) + End If + If _InvoiceRowsPopUp.CostPlace IsNot Nothing Then + _InvoiceHeader.row_CostPlace = _ocur.GetObjectByKey(Of CostPlace)(_InvoiceRowsPopUp.CostPlace.Oid) + End If + _InvoiceHeader.row_Description = _InvoiceRowsPopUp.Description + _InvoiceHeader.row_DiscountPercent = _InvoiceRowsPopUp.DiscountPercent + If _InvoiceRowsPopUp.JobNumberObjects IsNot Nothing Then + _InvoiceHeader.row_JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_InvoiceRowsPopUp.JobNumberObjects.Oid) + End If + _InvoiceHeader.row_ListPriceDEV = _InvoiceRowsPopUp.ListPriceDEV + _InvoiceHeader.row_ListPriceHUF = _InvoiceRowsPopUp.ListPriceHUF + _InvoiceHeader.row_QTT = _InvoiceRowsPopUp.QTT + If _InvoiceRowsPopUp.QualityOption IsNot Nothing Then + _InvoiceHeader.row_QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_InvoiceRowsPopUp.QualityOption.Oid) + End If + _InvoiceHeader.row_ShortName = _InvoiceRowsPopUp.ShortName + If _InvoiceRowsPopUp.UniqueObjects IsNot Nothing Then + _InvoiceHeader.row_UniqueObjects = _ocur.GetObjectByKey(Of UniqueObjects)(_InvoiceRowsPopUp.UniqueObjects.Oid) + End If + If _InvoiceRowsPopUp.Units IsNot Nothing Then + _InvoiceHeader.row_Units = _ocur.GetObjectByKey(Of Units)(_InvoiceRowsPopUp.Units.Oid) + End If + If _InvoiceRowsPopUp.VAT IsNot Nothing Then + _InvoiceHeader.row_VAT = _ocur.GetObjectByKey(Of VAT)(_InvoiceRowsPopUp.VAT.Oid) + End If + Else + _ocur.Rollback() + '----------------------------------TESZT MIATT------------------------------------->> + Throw New Exception("*Nincs kiválasztva egy sor sem, vagy több sor került együtesesen kiválasztásra, így a műveletet nem lehet végrahajtani!") + '----------------------------------TESZT MIATT-------------------------------------<< + End If + End Sub + Private Sub aInvoiceHeaderClone_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aInvoiceHeaderClone.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceHeaderNEW As InvoiceHeader + If _InvoiceHeader IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + _InvoiceHeaderNEW = _onew.CreateObject(Of InvoiceHeader)() + + _InvoiceHeaderNEW.CustomersFrom = _onew.GetObject(_InvoiceHeader.CustomersFrom) + _InvoiceHeaderNEW.DateExecution = _InvoiceHeader.DateExecution + _InvoiceHeaderNEW.DatePayment = _InvoiceHeader.DatePayment + _InvoiceHeaderNEW.Description = _InvoiceHeader.Description + _InvoiceHeaderNEW.PaymentOption = _onew.GetObject(_InvoiceHeader.PaymentOption) + _InvoiceHeaderNEW.ShipmentOption = _onew.GetObject(_InvoiceHeader.ShipmentOption) + _InvoiceHeaderNEW.QualityOption = _onew.GetObject(_InvoiceHeader.QualityOption) + _InvoiceHeaderNEW.CurrencyName = _onew.GetObject(_InvoiceHeader.CurrencyName) + _InvoiceHeaderNEW.CurrencyRate = _InvoiceHeader.CurrencyRate + _InvoiceHeaderNEW.IsEditable = True + _InvoiceHeaderNEW.IsProforma = False + _InvoiceHeaderNEW.IsStorno = False + _InvoiceHeaderNEW.IsCorrigendum = False + + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + Dim _InvoiceRowsNEW As InvoiceRows = _onew.CreateObject(Of InvoiceRows)() + + _InvoiceRowsNEW.InvoiceHeader = _InvoiceHeaderNEW + _InvoiceRowsNEW.InvoiceRowtype = _InvoiceRows.InvoiceRowtype + _InvoiceRowsNEW.RowIndex = _InvoiceRows.RowIndex + _InvoiceRowsNEW.CustomsTariffs = _onew.GetObject(_InvoiceRows.CustomsTariffs) + _InvoiceRowsNEW.ShortName = _InvoiceRows.ShortName + _InvoiceRowsNEW.Description = _InvoiceRows.Description + _InvoiceRowsNEW.ListPriceHUF = _InvoiceRows.ListPriceHUF + _InvoiceRowsNEW.ListPriceDEV = _InvoiceRows.ListPriceDEV + _InvoiceRowsNEW.DiscountPriceHUF = _InvoiceRows.DiscountPriceHUF + _InvoiceRowsNEW.DiscountPriceDEV = _InvoiceRows.DiscountPriceDEV + _InvoiceRowsNEW.QTT = _InvoiceRows.QTT + _InvoiceRowsNEW.Units = _onew.GetObject(_InvoiceRows.Units) + _InvoiceRowsNEW.VAT = _onew.GetObject(_InvoiceRows.VAT) + _InvoiceRowsNEW.Controlling = _onew.GetObject(_InvoiceRows.Controlling) + _InvoiceRowsNEW.UniqueObjects = _onew.GetObject(_InvoiceRows.UniqueObjects) + _InvoiceRowsNEW.CostHolder = _onew.GetObject(_InvoiceRows.CostHolder) + _InvoiceRowsNEW.CostPlace = _onew.GetObject(_InvoiceRows.CostPlace) + _InvoiceRowsNEW.JobNumberObjects = _onew.GetObject(_InvoiceRows.JobNumberObjects) + Next + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "InvoiceHeader_DetailView", True, _onew.GetObject(_InvoiceHeaderNEW)) + Else + _ocur.Rollback() + End If + End Sub + Private Sub InvoiceHeader_ListView_Proforma_CustomRate_DeleteAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + For Each _InvoiceHeader As InvoiceHeader In View.SelectedObjects + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows IsNot Nothing Then + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.InvoiceRows = Nothing + _InvoiceRows.ContractRows = Nothing + End If + End If + Next + Next + _ocur.CommitChanges() + End Sub + Private Sub aGenerateInvoiceToPdfFiles_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateInvoiceToPdfFiles.Execute + If View.SelectedObjects.Count > 0 Then + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + RaiseEvent InitWork(0, 1, View.SelectedObjects.Count) + Dim _InvoiceHeader As InvoiceHeader + For Each _InvoiceHeader In View.SelectedObjects + RaiseEvent DoWork() + If _InvoiceHeader.CurrencyName IsNot Nothing Then + If _InvoiceHeader.PrintCopy = 0 And _InvoiceHeader.PDF_Original Is Nothing Then + _InvoiceHeader.PrintCopy = 1 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + _InvoiceHeader.PrintCopy = 2 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + ElseIf TryCast(SecuritySystem.CurrentUser, User).UserName = "SysAdmin" Then + _InvoiceHeader.PrintCopy = 1 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + _InvoiceHeader.PrintCopy = 2 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + Else + Throw New Exception("*Nincs egy kijelölt sor sem!") + End If + End Sub + Private Sub aCloneFullInvoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneFullInvoice.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egy számla sem!") + + Dim _InvoiceHeader_OnlyOne As InvoiceHeader = Nothing 'Ha csak 1 van, akkor benyitjuk a detailview-ját + + For Each _InvoiceHeader_Selected As InvoiceHeader In View.SelectedObjects + Dim _InvoiceHeader_OLD As InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(TryCast(_InvoiceHeader_Selected, InvoiceHeader).Oid) + + If _InvoiceHeader_OLD IsNot Nothing Then + Dim _InvoiceHeader As New InvoiceHeader(_uow) + + _InvoiceHeader.CustomersFrom = _InvoiceHeader_OLD.CustomersFrom + _InvoiceHeader.InvoiceType = _InvoiceHeader_OLD.InvoiceType + _InvoiceHeader.Customers = _InvoiceHeader_OLD.Customers + _InvoiceHeader.InvoicePeriod = _InvoiceHeader_OLD.InvoicePeriod + _InvoiceHeader.Description = _InvoiceHeader_OLD.Description + _InvoiceHeader.PaymentOption = _InvoiceHeader_OLD.PaymentOption + _InvoiceHeader.ShipmentOption = _InvoiceHeader_OLD.ShipmentOption + _InvoiceHeader.QualityOption = _InvoiceHeader_OLD.QualityOption + _InvoiceHeader.CurrencyName = _InvoiceHeader_OLD.CurrencyName + _InvoiceHeader.BankInformation = _InvoiceHeader_OLD.BankInformation + + If _InvoiceHeader_OLD.InvoiceRows.Count > 0 Then + For Each _InvoiceRows_OLD As InvoiceRows In _InvoiceHeader_OLD.InvoiceRows + Dim _InvoiceRows As New InvoiceRows(_uow) + + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.InvoiceRowtype = _InvoiceRows_OLD.InvoiceRowtype + _InvoiceRows.InvoicePeriod = _InvoiceHeader_OLD.InvoicePeriod + _InvoiceRows.RowIndex = _InvoiceRows_OLD.RowIndex + _InvoiceRows.CustomsTariffs = _InvoiceRows.CustomsTariffs + _InvoiceRows.ShortName = _InvoiceRows_OLD.ShortName + _InvoiceRows.Description = _InvoiceRows_OLD.Description + _InvoiceRows.ListPriceHUF = _InvoiceRows_OLD.ListPriceHUF + _InvoiceRows.ListPriceDEV = _InvoiceRows_OLD.ListPriceDEV + _InvoiceRows.DiscountPriceHUF = _InvoiceRows_OLD.DiscountPriceHUF + _InvoiceRows.DiscountPriceDEV = _InvoiceRows_OLD.DiscountPriceDEV + _InvoiceRows.QTT = _InvoiceRows_OLD.QTT + _InvoiceRows.Units = _InvoiceRows_OLD.Units + _InvoiceRows.VAT = _InvoiceRows_OLD.VAT + _InvoiceRows.QualityOption = _InvoiceRows_OLD.QualityOption + + _InvoiceRows.Controlling = _InvoiceRows_OLD.Controlling + _InvoiceRows.UniqueObjects = _InvoiceRows_OLD.UniqueObjects + _InvoiceRows.CostHolder = _InvoiceRows_OLD.CostHolder + _InvoiceRows.CostPlace = _InvoiceRows_OLD.CostPlace + _InvoiceRows.JobNumberObjects = _InvoiceRows_OLD.JobNumberObjects + Next + End If + + If View.SelectedObjects.Count = 1 Then + _InvoiceHeader_OnlyOne = _InvoiceHeader + End If + End If + Next + _uow.CommitChanges() + If View.SelectedObjects.Count = 1 Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "InvoiceHeader_DetailView", True, _onew.GetObject(_InvoiceHeader_OnlyOne)) + End If + If Frame.GetController(Of RefreshController).RefreshAction.Active Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ext As Exception + MsgBox(ext.Message) + _uow.RollbackTransaction() + End Try + End Sub + Private Sub aOpenInvoicePdf_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SingleChoiceActionExecuteEventArgs) Handles aOpenInvoicePdf.Execute + If View.SelectedObjects.Count > 0 Then + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + + If _InvoiceHeader.PDF_Original Is Nothing Or _InvoiceHeader.PDF_Copy Is Nothing Then Throw New Exception("*Nincs generált PDF számla!") + + Dim _FileData As FileData = _ocur.CreateObject(Of FileData)() + Select Case e.SelectedChoiceActionItem.Id + Case "Original" + _FileData = _InvoiceHeader.PDF_Original + Case "Copy" + _FileData = _InvoiceHeader.PDF_Copy + Case Else + End Select + Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _FileData.FileName) + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + Process.Start(_FileName) + Catch ex As Exception + MsgBox(ex.Message) + End Try + Else + Throw New Exception("*Nincs egy kijelölt sor sem!") + End If + End Sub + Private Sub InvoiceHeader_DetailView_SaveActionExecuting(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + If _InvoiceHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _InvoiceHeader.InvoiceRows.Count > 0 And _InvoiceHeader.CurrencyName.ShortName <> "HUF" Then + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.ListPriceHUF = _InvoiceRows.ListPriceDEV * _InvoiceHeader.CurrencyRate + Next + End If + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aDescriptionChangerHeader_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescriptionChangerHeader.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp + Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp)) + + Dim _InvoiceHeader_xpquery = New XPQuery(Of InvoiceHeader)(_ocur.Session) + Dim query = From _InvoiceHeader In _InvoiceHeader_xpquery _ + Where _InvoiceHeader.DescriptionHeader IsNot Nothing _ + Group _InvoiceHeader By _InvoiceHeader.DescriptionHeader Into g = Group _ + Select New With {Key .DescriptionHeader = DescriptionHeader} + For Each item In query + _InvoiceHeader_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)() + _InvoiceHeader_DescriptionChanger_PopUp.Description = item.DescriptionHeader + _CS_Description.Add(_InvoiceHeader_DescriptionChanger_PopUp) + Next + e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False) + End Sub + Private Sub aDescriptionChangerHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescriptionChangerHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + For Each _Description In e.PopupWindow.View.SelectedObjects + _InvoiceHeader.DescriptionHeader += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description + Next + End Sub + + Private Sub aPCICheckInvoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckInvoice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _InvoiceHeader As InvoiceHeader + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _InvoiceHeader In View.SelectedObjects + RaiseEvent DoWork() + If _InvoiceHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + End If + Next + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aViewPCIDInvoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDInvoice.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _InvoiceHeader.CustomersFrom, _ + _InvoiceHeader.Customers, ePartnerType.eReceivables, _ + _InvoiceHeader.ConnectInfo) + End Sub + + Private Sub aViewInvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewInvoiceHold.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceHoldPopup As InvoiceHoldPopup = Nothing + + If _InvoiceHeader IsNot Nothing Then + _InvoiceHoldPopup = _onew.CreateObject(Of InvoiceHoldPopup)() + _InvoiceHoldPopup.InvoiceHeader = _onew.GetObject(_InvoiceHeader) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "InvoiceHoldPopup_DetailView", False, _InvoiceHoldPopup) + End If + End Sub + + Private Sub aRecalculateHUF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateHUF.Execute + '// Az eljárás beállítja a jó HUF összegeket a DEV alapján + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _InvoiceHeader_ocur As InvoiceHeader + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceVATRows As InvoiceVATRows + Try + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _InvoiceHeader_ocur In View.SelectedObjects + RaiseEvent DoWork() + If _InvoiceHeader_ocur.CurrencyName.ShortName <> "HUF" Then + _InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_InvoiceHeader_ocur.Oid) + If _InvoiceHeader IsNot Nothing Then + Dim _InvoiceRows As InvoiceRows + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.DiscountPriceHUF = _InvoiceRows.DiscountPriceDEV * _InvoiceHeader.CurrencyRate + _InvoiceRows.ListPriceHUF = _InvoiceRows.ListPriceDEV * _InvoiceHeader.CurrencyRate + Next + _uow.CommitChanges() + + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _InvoiceVATRows.AmountBruttoHUF = Math.Round(_InvoiceVATRows.AmountBruttoDEV * _InvoiceHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _InvoiceVATRows.AmountNettoHUF = Math.Round(_InvoiceVATRows.AmountNettoDEV * _InvoiceHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _InvoiceVATRows.AmountVATHUF = Math.Round(_InvoiceVATRows.AmountVATDEV * _InvoiceHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + Next + _InvoiceHeader.TotalBruttoHUF = Math.Round(_InvoiceHeader.TotalBruttoDEV * _InvoiceHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + End If + End If + _InvoiceHeader_ocur.RecalculateInvoice(_InvoiceHeader_ocur, _ocur) + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub + Private Sub InvoiceHeader_ListView_Editable_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + For Each _InvoiceHeader As InvoiceHeader In View.SelectedObjects + If _InvoiceHeader.InvoiceRows.Count > 0 Then + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.OrderInRows IsNot Nothing Then + _InvoiceRows.OrderInRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then + _InvoiceRows.DeliveryNoteOutRows.QTT_Invoiced -= _InvoiceRows.QTT + End If + If _InvoiceRows.InvoiceRows IsNot Nothing Then + Dim _OrigInvoiceRows As InvoiceRows = _ocur.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceRowCorrigendumType=1 AND InvoiceRows.Oid=?", _InvoiceRows.InvoiceRows.Oid)) + If _OrigInvoiceRows IsNot Nothing Then + _OrigInvoiceRows.InvoiceRowCorrigendumType = eInvoiceRowCorrigendumType.eNormal + End If + End If + Next + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub aFinalizeInvoicewithPopup_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFinalizeInvoicewithPopup.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + + Dim _InvoiceHeaderWithPopup As InvoiceHeaderWithPopup = _onew.CreateObject(Of InvoiceHeaderWithPopup)() + + _InvoiceHeaderWithPopup.Description = _InvoiceHeader.Description + _InvoiceHeaderWithPopup.DescriptionHeader = _InvoiceHeader.DescriptionHeader + + e.View = Application.CreateDetailView(_onew, "InvoiceHeaderWithPopup_DetailView", True, _InvoiceHeaderWithPopup) + End Sub + + Private Sub aFinalizeInvoicewithPopup_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFinalizeInvoicewithPopup.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceHeaderWithPopup As InvoiceHeaderWithPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceHeaderWithPopup) + + If _InvoiceHeader IsNot Nothing Then + _InvoiceHeader.Description = _InvoiceHeaderWithPopup.Description + _InvoiceHeader.DescriptionHeader = _InvoiceHeaderWithPopup.DescriptionHeader + _InvoiceHeader.NotNeedFinancial = _InvoiceHeaderWithPopup.NotNeedFinancial + Me.FinalizeInvoice(_InvoiceHeader, View, _ocur) + End If + + End Sub + Private Sub aCreateInvoiceCreditNote_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCreateInvoiceCreditNote.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), InvoiceHeader) + Dim _InvoiceCreditNoteHeader As New InvoiceCreditNoteHeader(_onew.Session) + With _InvoiceCreditNoteHeader + .CustomersFrom = _onew.GetObject(_InvoiceHeader.CustomersFrom) + .Customers = _onew.GetObject(_InvoiceHeader.Customers) + .PaymentOption = _onew.GetObject(_InvoiceHeader.PaymentOption) + .Description = _onew.GetObject(_InvoiceHeader.DescriptionHeader) + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "InvoiceCreditNoteHeader_DetailView", True, _InvoiceCreditNoteHeader) + End Sub + Private Sub aInvoiceHeader_GenereateEmailSendQueue_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aInvoiceHeader_GenereateEmailSendQueue.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _EMailSendQueueParameters_CollectionSource As New CollectionSource(_onew, GetType(EMailSendQueueParameters)) + + e.View = Application.CreateListView("EMailSendQueueParameters_ListView_PopUp", _EMailSendQueueParameters_CollectionSource, True) + End Sub + Private Sub aInvoiceHeader_GenereateEmailSendQueue_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aInvoiceHeader_GenereateEmailSendQueue.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _NOEmail As New ArrayList + Try + Dim _SelectObject As New ArrayList + _SelectObject.AddRange(View.SelectedObjects) + + Dim _EMailSendQueueHeader As New EMailSendQueueHeader(_ocur.Session) + With _EMailSendQueueHeader + .EmailSendQueueParameters = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), EMailSendQueueParameters)) + .ShortName = "Elektronikus számla" + End With + _ocur.CommitChanges() + + RaiseEvent InitWork(1, 1, _SelectObject.Count) + For Each _InvoiceHeader As InvoiceHeader In _SelectObject + Dim _EMailTo As String = "" + + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Customers=? AND IsInvoiceResponsible=True", _InvoiceHeader.Customers), True) + If _Contacts IsNot Nothing Then + _EMailTo = _Contacts.Email + Else + _EMailTo = _InvoiceHeader.Customers.Email + End If + If Not String.IsNullOrEmpty(_EMailTo) Then + If _InvoiceHeader.PDF_Original Is Nothing Then + If _InvoiceHeader.CurrencyName IsNot Nothing Then + If _InvoiceHeader.PrintCopy = 0 And _InvoiceHeader.PDF_Original Is Nothing Then + _InvoiceHeader.PrintCopy = 1 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + _InvoiceHeader.PrintCopy = 2 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + ElseIf TryCast(SecuritySystem.CurrentUser, User).UserName = "SysAdmin" Then + _InvoiceHeader.PrintCopy = 1 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + _InvoiceHeader.PrintCopy = 2 + _InvoiceHeader.GeneratePDFs(_ocur, _InvoiceHeader, True) + End If + End If + End If + Dim _EMailSendQueueRows As EMailSendQueueRows = _ocur.FindObject(Of EMailSendQueueRows)(CriteriaOperator.Parse("EMailSendQueueHeader=? AND EMailTo=?", _EMailSendQueueHeader, _EMailTo), True) + + If _EMailSendQueueRows Is Nothing Then + _EMailSendQueueRows = New EMailSendQueueRows(_ocur.Session) + With _EMailSendQueueRows + .EMailSendQueueHeader = _EMailSendQueueHeader + If _Contacts IsNot Nothing Then + .HTMLBody = String.Format(_EMailSendQueueHeader.EmailSendQueueParameters.HTMLBody, _Contacts.Customers.FullName) + Else + .HTMLBody = String.Format(_EMailSendQueueHeader.EmailSendQueueParameters.HTMLBody, _InvoiceHeader.Customers.FullName) + End If + + .EMailTo = _EMailTo + .EMailFrom = _EMailSendQueueHeader.EmailSendQueueParameters.EMailFrom + .Subject = _EMailSendQueueHeader.EmailSendQueueParameters.Subject + + Dim _EMailSendQueueRows_FileAttachment As New EMailSendQueueRows_FileAttachment(_ocur.Session) + With _EMailSendQueueRows_FileAttachment + Dim _FileName As String = IO.Path.GetTempPath + _InvoiceHeader.PDF_Original.FileName + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _InvoiceHeader.PDF_Original.SaveToStream(_StreamFile) + _StreamFile.Close() + .EMailSendQueueRows = _EMailSendQueueRows + .FileAttachments = New FileData(_ocur.Session) + + Dim _StreamFile2 As New System.IO.FileStream(_FileName, System.IO.FileMode.Open) + + .FileAttachments.LoadFromStream(_InvoiceHeader.PDF_Original.FileName, _StreamFile2) + _StreamFile2.Close() + .FileAttachments.FileName = System.IO.Path.GetFileName(_FileName) + + System.IO.File.Delete(_FileName) + End With + + .EMailSendQueueRows_FileAttachment.Add(_EMailSendQueueRows_FileAttachment) + End With + Else + With _EMailSendQueueRows + Dim _EMailSendQueueRows_FileAttachment As New EMailSendQueueRows_FileAttachment(_ocur.Session) + With _EMailSendQueueRows_FileAttachment + Dim _FileName As String = IO.Path.GetTempPath + _InvoiceHeader.PDF_Original.FileName + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _InvoiceHeader.PDF_Original.SaveToStream(_StreamFile) + _StreamFile.Close() + .EMailSendQueueRows = _EMailSendQueueRows + .FileAttachments = New FileData(_ocur.Session) + + Dim _StreamFile2 As New System.IO.FileStream(_FileName, System.IO.FileMode.Open) + + .FileAttachments.LoadFromStream(_InvoiceHeader.PDF_Original.FileName, _StreamFile2) + _StreamFile2.Close() + .FileAttachments.FileName = System.IO.Path.GetFileName(_FileName) + + System.IO.File.Delete(_FileName) + End With + + .EMailSendQueueRows_FileAttachment.Add(_EMailSendQueueRows_FileAttachment) + End With + End If + Else + _NOEmail.Add(_InvoiceHeader.DocumentNumber) + End If + RaiseEvent DoWork() + Next + If _EMailSendQueueHeader.EMailSendQueueRows.Count > 0 Then + _ocur.CommitChanges() + Else + _ocur.Delete(_EMailSendQueueHeader) + _ocur.CommitChanges() + End If + + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + If _NOEmail.Count > 0 Then + Dim _ErrorMessage As String = "A következő számlák küldése nem lehetséges:" + vbNewLine + + For Each _Email As String In _NOEmail + _ErrorMessage += _Email + vbNewLine + Next + + _ErrorMessage += "Nincs beállítva sem az ügyfélhez sem a kapcsothoz e-mail cím!" + MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + End Try + End Sub + Private Sub EMailSendQueueParameters_ListView_PopUp_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen paraméter sem!") + If View.SelectedObjects.Count > 1 Then Throw New Exception("*Egy e-mail csomaghoz csak egy paraméter választható ki!") + End Sub + + Private Sub aBookEntryInvoiceHeader_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBookEntryInvoiceHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _InvoiceHeader In View.SelectedObjects + RaiseEvent DoWork() + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.ReadyforBookEntryRows = True + Next + _InvoiceHeader.ReadyforBookEntry = True + _InvoiceHeader.BookEntry(0, _InvoiceHeader, _uow, False) + Next + _uow.CommitChanges() + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + + + Private Sub aGeneratePDFandSendDefaultMailClient_Invoice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePDFandSendDefaultMailClient_Invoice.Execute + + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb new file mode 100644 index 0000000..119cfd6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb @@ -0,0 +1,260 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.ConditionalAppearance + +Imports System.Linq +Imports System.Linq.Expressions + +'-- POPUP-HOZ osztályok------------------------------------------------------------- + _ + _ + _ + _ + _ + _ +Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceHeader és InvoiceRows-t + Inherits BaseObject + Private _CustomersFrom As CustomersFrom ' -- Saját cég + Private _Customers As Customers ' -- Ügyfél + Private _CurrencyRate As Double ' -- Árfolyam + Private _CurrencyName As CurrencyName ' -- Deviza + Private _Description As String ' -- Leírás + Private _DateExecution As Date ' -- Teljesítés dátuma + Private _DatePayment As Date ' -- Fizetési határidő + Private _PaymentOption As PaymentOption ' -- Fizetési opció + Private _AmountHUF As Double ' -- Összeg HUF (Bruttó!!!) + Private _AmountDEV As Double ' -- Összeg DEV (Bruttó!!!) + + Private _Controlling As Controlling ' -- Kontroll szám + Private _CostHolder As CostHolder ' -- Költségviselő + Private _CostPlace As CostPlace ' -- Költséghely + Private _UniqueObjects As UniqueObjects + Private _JobNumberObjects As JobNumberObjects + + + Private _VAT As VAT ' -- ÁFA kód + Private _BankInformation As BankInformation ' -- Bankszámlaszám + Private _InvoiceType As InvoiceType ' -- Számla típusa + Private _IsEditable As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + CurrencyRate = 1 + IsEditable = True + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + _ + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.DatePayment = value + End If + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value.PayMode = ePayMode.InCash Then + Me.DateExecution = GetSQLTime(Session) + End If + End If + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If CurrencyName.ShortName <> "HUF" Then AmountHUF = Math.Round(AmountDEV * CurrencyRate, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + + '-- Rule5DMatrix ------------------------------------ + _ + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + _ + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + + + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("BankInformation", _BankInformation, value) + End Set + End Property + _ + _ + Property InvoiceType As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + _ + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property +End Class + +#Region "Cool Codes" +' _ +'Public Shared Function OrdersLinq(ByVal s As Session) As IQueryable +' Dim orders As New XPQuery(Of Order)(s) +' Dim queryOrders = _ +' From o In orders _ +' Order By o.Employee.FirstName Ascending _ +' Group o By GroupKey = o.Employee.FirstName & " " & o.Employee.LastName Into oo = Group _ +' Where oo.Sum(Function(o) o.Freight) > 10000 _ +' Select New With {Key .OrderID = oo.Sum(Function(o) o.OrderID), Key .Employee_Linq = GroupKey, Key .Orders_Sum_Linq = oo.Sum(Function(o) o.Freight)} +' Return queryOrders +'End Function +#End Region + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringHeaderPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringHeaderPopup.vb new file mode 100644 index 0000000..8c26565 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringHeaderPopup.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringHeaderPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DocumentNumber As String 'A bank ltal jvhagyott sorszm + Property ContractFile As FileData 'A bank ltal visszakldtt engedmnyezsi szerzds + Property Description As String 'Egyb megjegyzs + Property DateExecution As Date 'Dtum + Property InterestPercent As Double '3 havi BUBOR + mars!!! + Property SpreadFile As FileData +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringPopup.vb new file mode 100644 index 0000000..5a438f3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceFactoringPopup.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceFactoringPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Factoring_Send_Date As Date 'Mikor lett elkldve + Property Factoring_Send_Number As String 'Milyen sorszmon ! + Property InvoiceFactoringParameter As InvoiceFactoringParameter 'Milyen paramterrel ! +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeaderWithPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeaderWithPopup.vb new file mode 100644 index 0000000..7df6e13 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeaderWithPopup.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceHeaderWithPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Description As String + Property DescriptionHeader As String + Property NotNeedFinancial As Boolean = False + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeader_DescriptionChanger_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeader_DescriptionChanger_PopUp.vb new file mode 100644 index 0000000..44942f1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHeader_DescriptionChanger_PopUp.vb @@ -0,0 +1,34 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class InvoiceHeader_DescriptionChanger_PopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _Description As String 'Szmln szerepl megjegyzs + + Overloads Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopup.vb new file mode 100644 index 0000000..4de5a43 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopup.vb @@ -0,0 +1,118 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class InvoiceHoldPopup + Inherits BaseObject + + Private _InvoiceHeader As InvoiceHeader + + Private _row_DatePayment As Date + Private _row_ShortName As String + Private _row_AmountHUF As Double + Private _row_AmountDEV As Double + Private _row_Percent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + 'row_Percent = 5 + End Sub + + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + + _ + _ + Property row_DatePayment As Date + Get + Return _row_DatePayment + End Get + Set(value As Date) + SetPropertyValue("row_DatePayment", _row_DatePayment, value) + End Set + End Property + _ + Property row_ShortName As String + Get + Return _row_ShortName + End Get + Set(value As String) + SetPropertyValue("row_ShortName", _row_ShortName, value) + End Set + End Property + _ + _ + Property row_AmountHUF As Double + Get + Return _row_AmountHUF + End Get + Set(value As Double) + SetPropertyValue("row_AmountHUF", _row_AmountHUF, value) + End Set + End Property + _ + _ + Property row_AmountDEV As Double + Get + Return _row_AmountDEV + End Get + Set(value As Double) + SetPropertyValue("row_AmountDEV", _row_AmountDEV, value) + End Set + End Property + _ + _ + Property row_Percent As Double + Get + Return _row_Percent + End Get + Set(value As Double) + SetPropertyValue("row_Percent", _row_Percent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + row_AmountHUF = Math.Round(InvoiceHeader.TotalBruttoHUF * (value / 100), 0, MidpointRounding.AwayFromZero) + row_AmountDEV = Math.Round(InvoiceHeader.TotalBruttoDEV * (value / 100), 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + + + _ + ReadOnly Property InvoiceHold As XPCollection(Of InvoiceHold) + Get + Return New XPCollection(Of InvoiceHold)(Session, CriteriaOperator.Parse("InvoiceHeader=?", Me.InvoiceHeader)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.Designer.vb new file mode 100644 index 0000000..b3d291b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.Designer.vb @@ -0,0 +1,119 @@ +Partial Class InvoiceHoldPopupVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBackToRowEdit_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_InvoiceHold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBackToRowEdit_InvoiceHold + ' + Me.aBackToRowEdit_InvoiceHold.Caption = "Edit row" + Me.aBackToRowEdit_InvoiceHold.Category = "aBackToRowEdit_Invoice" + Me.aBackToRowEdit_InvoiceHold.ConfirmationMessage = Nothing + Me.aBackToRowEdit_InvoiceHold.Id = "aBackToRowEdit_InvoiceHold" + Me.aBackToRowEdit_InvoiceHold.ImageName = "table_refresh" + Me.aBackToRowEdit_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_InvoiceHold.Shortcut = Nothing + Me.aBackToRowEdit_InvoiceHold.Tag = Nothing + Me.aBackToRowEdit_InvoiceHold.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView" + Me.aBackToRowEdit_InvoiceHold.ToolTip = Nothing + Me.aBackToRowEdit_InvoiceHold.TypeOfView = Nothing + ' + 'aToTable_InvoiceHold + ' + Me.aToTable_InvoiceHold.Caption = "aToTable" + Me.aToTable_InvoiceHold.Category = "aToTable_Invoice" + Me.aToTable_InvoiceHold.ConfirmationMessage = Nothing + Me.aToTable_InvoiceHold.Id = "aToTable_InvoiceHold" + Me.aToTable_InvoiceHold.ImageName = "row_add_after" + Me.aToTable_InvoiceHold.Shortcut = Nothing + Me.aToTable_InvoiceHold.Tag = Nothing + Me.aToTable_InvoiceHold.TargetObjectsCriteria = Nothing + Me.aToTable_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView" + Me.aToTable_InvoiceHold.ToolTip = Nothing + Me.aToTable_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aToTableD_InvoiceHold + ' + Me.aToTableD_InvoiceHold.Caption = "Delete row" + Me.aToTableD_InvoiceHold.Category = "aToTableD_InvoiceHold" + Me.aToTableD_InvoiceHold.ConfirmationMessage = Nothing + Me.aToTableD_InvoiceHold.Id = "aToTableD_InvoiceHold" + Me.aToTableD_InvoiceHold.ImageName = "row_delete" + Me.aToTableD_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_InvoiceHold.Shortcut = Nothing + Me.aToTableD_InvoiceHold.Tag = Nothing + Me.aToTableD_InvoiceHold.TargetObjectsCriteria = Nothing + Me.aToTableD_InvoiceHold.TargetViewId = "InvoiceHoldPopup_DetailView" + Me.aToTableD_InvoiceHold.ToolTip = Nothing + Me.aToTableD_InvoiceHold.TypeOfView = Nothing + ' + 'aDown_InvoiceHold + ' + Me.aDown_InvoiceHold.Caption = "Down" + Me.aDown_InvoiceHold.Category = "RecordsNavigation" + Me.aDown_InvoiceHold.ConfirmationMessage = Nothing + Me.aDown_InvoiceHold.Id = "aDown_InvoiceHold" + Me.aDown_InvoiceHold.ImageName = "arrow_down_green" + Me.aDown_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_InvoiceHold.Shortcut = Nothing + Me.aDown_InvoiceHold.Tag = Nothing + Me.aDown_InvoiceHold.TargetObjectsCriteria = Nothing + Me.aDown_InvoiceHold.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHold) + Me.aDown_InvoiceHold.TargetViewId = "" + Me.aDown_InvoiceHold.ToolTip = Nothing + Me.aDown_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aUp_InvoiceHold + ' + Me.aUp_InvoiceHold.Caption = "Up" + Me.aUp_InvoiceHold.Category = "RecordsNavigation" + Me.aUp_InvoiceHold.ConfirmationMessage = Nothing + Me.aUp_InvoiceHold.Id = "aUp_InvoiceHold" + Me.aUp_InvoiceHold.ImageName = "arrow_up_green" + Me.aUp_InvoiceHold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_InvoiceHold.Shortcut = Nothing + Me.aUp_InvoiceHold.Tag = Nothing + Me.aUp_InvoiceHold.TargetObjectsCriteria = Nothing + Me.aUp_InvoiceHold.TargetObjectType = GetType(SISBusiness.[Module].InvoiceHold) + Me.aUp_InvoiceHold.TargetViewId = "" + Me.aUp_InvoiceHold.ToolTip = Nothing + Me.aUp_InvoiceHold.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aDown_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_InvoiceHold As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.resx new file mode 100644 index 0000000..2c7c56c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 95 + + + 17, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.vb new file mode 100644 index 0000000..46dc0c1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceHoldPopupVC.vb @@ -0,0 +1,167 @@ +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.Data.Filtering +Imports DevExpress.Xpo + +Public Class InvoiceHoldPopupVC + 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() + + End Sub + + Private Sub aToTable_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_InvoiceHold.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup) + Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold) + Dim _InvoiceHold As InvoiceHold + Dim _AmountRemainingHUF As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoHUF + Dim _AmountRemainingDEV As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoDEV + + + _InvoiceHold = _ocur.FindObject(Of InvoiceHold)(CriteriaOperator.Parse("RowType='Normal' and InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid), PersistentCriteriaEvaluationBehavior.InTransaction) + + If _InvoiceHold IsNot Nothing Then + _ocur.Delete(_InvoiceHold) + End If + + _ocur.CommitChanges() + + _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)() + _InvoiceHold.RowType = eHoldRowType.Hold + _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader + _InvoiceHold.ShortName = _InvoiceHoldPopup.row_ShortName + _InvoiceHold.AmountHUF = _InvoiceHoldPopup.row_AmountHUF + _InvoiceHold.AmountDEV = _InvoiceHoldPopup.row_AmountDEV + _InvoiceHold.DatePayment = _InvoiceHoldPopup.row_DatePayment + + _ocur.CommitChanges() + + _InvoiceHold_Collection = New XPCollection(Of InvoiceHold)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid)) + For Each _InvoiceHold In _InvoiceHold_Collection + _AmountRemainingHUF -= _InvoiceHold.AmountHUF + _AmountRemainingDEV -= _InvoiceHold.AmountDEV + Next + + _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)() + _InvoiceHold.RowType = eHoldRowType.Normal + _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader + _InvoiceHold.ShortName = "" + _InvoiceHold.AmountHUF = _AmountRemainingHUF + _InvoiceHold.AmountDEV = _AmountRemainingDEV + _InvoiceHold.DatePayment = _InvoiceHoldPopup.InvoiceHeader.DatePayment + + _ocur.CommitChanges() + + + Dim _DetailView As DetailView = TryCast(View, DetailView) + If _DetailView IsNot Nothing Then + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold") + + If _ListPropertyEditor IsNot Nothing Then + TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload() + End If + + End If + + + + End Sub + + Private Sub aToTableD_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_InvoiceHold.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup) + Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold) = Nothing + Dim _InvoiceHold As InvoiceHold = Nothing + Dim _AmountRemainingHUF As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoHUF + Dim _AmountRemainingDEV As Double = _InvoiceHoldPopup.InvoiceHeader.TotalBruttoDEV + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold") + Dim _IsNormal = False + + If _ListPropertyEditor IsNot Nothing Then + + + Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView) + + For Each _InvoiceHold In _ListView.SelectedObjects + If _InvoiceHold.RowType = eHoldRowType.Hold Then + _ocur.Delete(_InvoiceHold) + End If + Next + _ocur.CommitChanges() + + _InvoiceHold = _ocur.FindObject(Of InvoiceHold)(CriteriaOperator.Parse("RowType='Normal' and InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid), PersistentCriteriaEvaluationBehavior.InTransaction) + If _InvoiceHold IsNot Nothing Then + _ocur.Delete(_InvoiceHold) + End If + _ocur.CommitChanges() + + _InvoiceHold_Collection = New XPCollection(Of InvoiceHold)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHoldPopup.InvoiceHeader.Oid)) + For Each _InvoiceHold In _InvoiceHold_Collection + _AmountRemainingHUF -= _InvoiceHold.AmountHUF + _AmountRemainingDEV -= _InvoiceHold.AmountDEV + _IsNormal = True + Next + + If _IsNormal Then + _InvoiceHold = _ocur.CreateObject(Of InvoiceHold)() + _InvoiceHold.RowType = eHoldRowType.Normal + _InvoiceHold.InvoiceHeader = _InvoiceHoldPopup.InvoiceHeader + _InvoiceHold.ShortName = "" + _InvoiceHold.AmountHUF = _AmountRemainingHUF + _InvoiceHold.AmountDEV = _AmountRemainingDEV + _InvoiceHold.DatePayment = _InvoiceHoldPopup.InvoiceHeader.DatePayment + + _ocur.CommitChanges() + End If + + + _ListView.CollectionSource.Reload() + End If + + End Sub + + Private Sub aBackToRowEdit_InvoiceHold_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_InvoiceHold.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHoldPopup As InvoiceHoldPopup = TryCast(View.SelectedObjects(0), InvoiceHoldPopup) + Dim _InvoiceHold_Collection As XPCollection(Of InvoiceHold) = Nothing + Dim _InvoiceHold As InvoiceHold = Nothing + + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("InvoiceHold") + Dim _IsNormal = False + + If _ListPropertyEditor IsNot Nothing Then + Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + _InvoiceHold = TryCast(_ListView.SelectedObjects(0), InvoiceHold) + If _InvoiceHold IsNot Nothing Then + _InvoiceHoldPopup.row_AmountHUF = _InvoiceHold.AmountHUF + _InvoiceHoldPopup.row_AmountDEV = _InvoiceHold.AmountDEV + _InvoiceHoldPopup.row_DatePayment = _InvoiceHold.DatePayment + _InvoiceHoldPopup.row_ShortName = _InvoiceHold.ShortName + End If + + + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb new file mode 100644 index 0000000..f9c5f1e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class InvoiceRows_Changer_Popup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateExecution As Date + Property Controlling As Controlling + Property CostPlace As CostPlace + Property CostHolder As CostHolder + Property UniqueObjects As UniqueObjects + Property JobNumberObjects As JobNumberObjects + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowCorrigendumType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowCorrigendumType.vb new file mode 100644 index 0000000..092a91d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowCorrigendumType.vb @@ -0,0 +1,7 @@ +Imports System.Linq + +Public Enum eInvoiceRowCorrigendumType + eNormal = 0 + eOriginalMinus = 1 + eNew = 2 +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowMainType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowMainType.vb new file mode 100644 index 0000000..4a2f476 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowMainType.vb @@ -0,0 +1,18 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Data.SqlClient +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Linq +Imports System.Linq.Expressions + +Public Enum eInvoiceRowMainType + TurnOverMaterial = 0 'rbevtel anyag + TurnOverServices = 1 'rbevtel szolgltats + Advance = 2 'Elleg +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowType.vb new file mode 100644 index 0000000..5250f02 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Invoice/eInvoiceRowType.vb @@ -0,0 +1,7 @@ +Imports System.Linq +Public Enum eInvoiceRowType + FromOrder = 0 'Bejv megrendelsbl termk + FromManual = 1 'Kzzel belltva + FromWorkSheet = 2 'Munkalap sorrl + FromContract = 3 'Szerzdsi sorbl +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OfferInHeaderFileAttachement.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OfferInHeaderFileAttachement.vb new file mode 100644 index 0000000..38bdc21 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OfferInHeaderFileAttachement.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OfferInheaderFileAttachment + Inherits FileAttachmentBase + Private _FileType As String + Private _OfferInHeader As OfferInHeader + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + _ + Property OfferInHeader As OfferInHeader + Get + Return _OfferInHeader + End Get + Set(value As OfferInHeader) + SetPropertyValue("OfferInHeader", _OfferInHeader, value) + End Set + End Property + Property FileType As String + Get + Return _FileType + End Get + Set(value As String) + SetPropertyValue("FileType", _FileType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInHeader.vb new file mode 100644 index 0000000..5ceff96 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInHeader.vb @@ -0,0 +1,528 @@ + +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + +' _ + + _ + _ + _ + NotSet OR OfferInState <> ClosedLost THEN Save (IN)", DefaultContexts.Save, "OfferLOSTReason != 0 OR OfferInState !=2", "", SkipNullOrEmptyValues:=False)> _ + 2 (IN)", AppearanceItemType.ViewItem, "OfferInState <> 2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _ + 7 (IN)", AppearanceItemType.ViewItem, "OfferLOSTReason <> 7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +'HUF'", TargetItems:="row_FinalPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ +Public Class OfferInHeader + Inherits BaseObject + Private _OfferInParameters As OfferInParameters 'Árajánlat paramétere, ami a sorszámot és egyéb tul. meghat. + Private _OfferInState As eOfferInState 'Ajánlat státusz, hol tart jelenleg + Private _OfferLOSTReason As eOfferInLOSTReason 'Ha nem fogadjuk el, miért ? + Private _OfferLOSTReasonDescription As String ' Ha nem fogadjuk el és eOther akkor szövegesen beírni ! + Private _DocumentNumber As String 'Árajánlat száma (generálódik) + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Partner, akitől az árajánlatot kapjuk szól (ez nem kötelező, de a contactból ismerje fel !) + Private _Contact As Contacts 'Kapcsolat, akitől az árajánlatot kapjuk (ez a fő !!! kötelező) + Private _DateCreated As Date 'Kiállítás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _DatePayment As Date 'Fiz. hat + Private _DateDue As Date 'Érvényesség dátuma + + Private _DateAcknowledgement As Date 'Rendelés visszaigazolás dátuma + + Private _Description As String 'Leírás (fejlécen) + Private _PaymentOption As PaymentOption 'Fizetési opció + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + Private _CurrencyName As CurrencyName 'Deviza + Private _ObjectCreated As Date 'Maga az objektum mikor készült el + Private _UserCreated As User 'Ki készítette + Private _IsEditable As Boolean = True 'Szerkeszthető vagy végleges ajánlat + Private _IsStorno As Boolean = True 'Stornírozott ajánlat + + 'Excel, Word dokumentum + Private _DocumentBody As String 'RichText dokumentum test + Private _ExcelProperty As String 'Excel !!! + Private _ExcelFile As FileData + + '--- Sorok rögzítéséhez nonpersistent propertyk + Private _row_RowType As eRowType 'Sor tipus + Private _row_Products As Products + Private _row_Installation As Installation + Private _row_ShortName As String 'Megnevezés + Private _row_Description As String 'Leírás + Private _row_QTT As Double 'Mennyiség + Private _row_Units As Units 'Mennyiségi egység + Private _row_VAT As VAT 'ÁFA kód + Private _row_FinalPriceHUF As Double 'Termék listaára HUF + Private _row_FinalPriceDEV As Double 'Termék listaára DEV + Private _row_RowGroup1 As String 'Csoportosító sor1 + Private _row_RowGroup2 As String 'Csoportosító sor2 + + Private _CRM_Opportunities As CRM_Opportunities + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If OfferInParameters Is Nothing Then + Else + ObjectCreated = Now + If DocumentNumber = "" Then + DocumentNumber = OfferInParameters.NumberGenerator.GetNewNumber(OfferInParameters.NumberGenerator) + End If + End If + End If + MyBase.Save() + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.IsEditable = True + Me.IsStorno = False + CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", "HUF")) + Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End Sub + + + _ + _ + Property OfferInParameters As OfferInParameters + Get + Return _OfferInParameters + End Get + Set(ByVal value As OfferInParameters) + SetPropertyValue("OfferInParameters", _OfferInParameters, value) + End Set + End Property + _ + _ + Property OfferInState As eOfferInState + Get + Return _OfferInState + End Get + Set(ByVal value As eOfferInState) + SetPropertyValue("OfferInState", _OfferInState, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case OfferInState + Case eOfferInState.eClosedWON + OfferLOSTReason = eOfferInLOSTReason.eNotSet + Case eOfferInState.eInProgress + OfferLOSTReason = eOfferInLOSTReason.eNotSet + Case eOfferInState.eInThinkingOf + OfferLOSTReason = eOfferInLOSTReason.eNotSet + End Select + End If + End Set + End Property + _ + _ + Property OfferLOSTReason As eOfferInLOSTReason + Get + Return _OfferLOSTReason + End Get + Set(ByVal value As eOfferInLOSTReason) + SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case OfferLOSTReason + Case eOfferInLOSTReason.eNotSet + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eTooExpensive + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eTooLate + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eChooseConcurrency + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eQualityProblem + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eNoAnswer + OfferLOSTReasonDescription = "" + Case eOfferInLOSTReason.eWINOther + OfferLOSTReasonDescription = "" + End Select + End If + End Set + End Property + _ + _ + _ + Property OfferLOSTReasonDescription As String + Get + Return _OfferLOSTReasonDescription + End Get + Set(ByVal value As String) + SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value) + End Set + End Property + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + _ + Property Contact As Contacts + Get + Return _Contact + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contact", _Contact, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then + Me.Customers = value.Customers + End If + End Set + End Property + + _ + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property DateDue As Date + Get + Return _DateDue + End Get + Set(ByVal value As Date) + SetPropertyValue("DateDue", _DateDue, value) + End Set + End Property + Property DateAcknowledgement As Date + Get + Return _DateAcknowledgement + End Get + Set(value As Date) + SetPropertyValue("DateAcknowledgement", _DateAcknowledgement, value) + End Set + End Property + + + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + _ + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + _ + Property QualityOption As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + Public ReadOnly Property OfferInRows() As XPCollection(Of OfferInRows) + Get + Return GetCollection(Of OfferInRows)("OfferInRows") + End Get + End Property + _ + _ + Public ReadOnly Property OfferInheaderFileAttachment As XPCollection(Of OfferInheaderFileAttachment) + Get + Return GetCollection(Of OfferInheaderFileAttachment)("OfferInheaderFileAttachment") + End Get + End Property + ' --- Excel, Word dokumentum + _ + Property DocumentBody() As String + Get + Return _DocumentBody + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + _ + Public Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(ByVal value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + + '--- Sorok rögzítéséhez nonpersistent propertyk + _ + _ + _ + Property row_RowType As eRowType + Get + Return _row_RowType + End Get + Set(value As eRowType) + SetPropertyValue("row_RowType", _row_RowType, value) + End Set + End Property + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(value As Products) + SetPropertyValue("row_Products", _row_Products, value) + End Set + End Property + _ + _ + Property row_Installation As Installation + Get + Return _row_Installation + End Get + Set(value As Installation) + SetPropertyValue("row_Installation", _row_Installation, value) + End Set + End Property + _ + _ + Property row_ShortName As String + Get + Return _row_ShortName + End Get + Set(value As String) + SetPropertyValue("row_ShortName", _row_ShortName, value) + End Set + End Property + _ + _ + Property row_Description As String + Get + Return _row_Description + End Get + Set(value As String) + SetPropertyValue("row_Description", _row_Description, value) + End Set + End Property + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + _ + _ + Property row_Units As Units + Get + Return _row_Units + End Get + Set(value As Units) + SetPropertyValue("row_Units", _row_Units, value) + End Set + End Property + _ + _ + Property row_VAT As VAT + Get + Return _row_VAT + End Get + Set(value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + _ + Property row_FinalPriceHUF As Double + Get + Return _row_FinalPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_FinalPriceHUF", _row_FinalPriceHUF, value) + End Set + End Property + _ + _ + Property row_FinalPriceDEV As Double + Get + Return _row_FinalPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_FinalPriceDEV", _row_FinalPriceDEV, value) + End Set + End Property + _ + _ + Property row_RowGroup1 As String + Get + Return _row_RowGroup1 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup1", _row_RowGroup1, value) + End Set + End Property + _ + _ + Property row_RowGroup2 As String + Get + Return _row_RowGroup2 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup2", _row_RowGroup2, value) + End Set + End Property + + '--- CRM ügy + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False And Me.CRM_Opportunities IsNot Nothing And Session.IsNewObject(Me) = True Then + Me.CustomersFrom = Me.CRM_Opportunities.CustomersFrom + End If + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInParameters.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInParameters.vb new file mode 100644 index 0000000..54952c2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInParameters.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + + +Public Enum eOfferInState + eInProgress = 0 'Még dolgoznak rajta + eClosedWON = 1 'Elfogadjuk + eClosedLOST = 2 'Elutasítjuk + eInThinkingOf = 3 'Még gondolkodunk, hogy mi legyen vele ! + eOrderOut = 4 'Megrendeltük + eOrderOutAcknowledgement = 5 'Megrendeltük, és visszaigazolták +End Enum +Public Enum eOfferInLOSTReason + eNotSet = 0 'Nincs beállitva + eTooExpensive = 1 'Túl drága + eTooLate = 2 'Határidő nem megfelelő + eChooseConcurrency = 3 'Konkurenciát választottuk + eQualityProblem = 4 'Nem megfelelő minőségű + eNoAnswer = 5 ' Nem mondjuk meg miért + eWINOther = 6 ' Másik árajánlatukat fogadjuk el + eOther = 7 'Egyéb +End Enum + _ + _ +Public Class OfferInParameters + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _OfferInMainType As eOfferOutMainType 'Fő tipus 1 + Private _OfferInMainType2 As eOfferOutMainType2 'Fő tipus 2 + Private _ShortName As String 'Rövid megnevezés + Private _Description As String 'Leírás + Private _NumberGenerator As NumberGenerator 'Sorszám generátor + Private _ReportData As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property OfferInMainType As eOfferOutMainType + Get + Return _OfferInMainType + End Get + Set(ByVal value As eOfferOutMainType) + SetPropertyValue("OfferOutMainType", _OfferInMainType, value) + End Set + End Property + Property OfferInMainType2 As eOfferOutMainType2 + Get + Return _OfferInMainType2 + End Get + Set(ByVal value As eOfferOutMainType2) + SetPropertyValue("OfferOutMainType2", _OfferInMainType2, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInRows.vb new file mode 100644 index 0000000..8bc73aa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInRows.vb @@ -0,0 +1,281 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + + + _ + _ + _ +Public Class OfferInRows + Inherits BaseObject + Private _OfferInHeader As OfferInHeader 'Árajánlat fejléce + Private _RowType As eRowType 'Sor miről szól ? + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _Product As Products 'Termék + Private _Installation As Installation 'Gyártmány + Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !) + Private _ShortName As String 'Megnevezés -> Ez megy majd rá később a számlára is ! + Private _Description As String 'Leírás -> ez is rá fog menni a számlára ! + Private _DescriptionPrivate As String 'Na ez csak látszódjon, de nem menjen föl semmilyen doksira !!! + Private _QTT As Double = 0 'Mennyiség. A Mennyiségi egység vagy a Products-ból, vag Installationnál DB + Private _QualityOption As QualityOption 'Minőségi opció + Private _Units As Units + Private _VAT As VAT + Private _DateAcknowledgement As Date 'Visszaigazolás dátuma + 'Árak !!!! + Private _SumPriceHUF As Double + Private _SumPriceDEV As Double + Private _FinalPriceDEV As Double + Private _FinalPriceHUF As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property OfferInHeader() As OfferInHeader + Get + Return _OfferInHeader + End Get + Set(ByVal value As OfferInHeader) + SetPropertyValue("OfferInHeader", _OfferInHeader, value) + End Set + End Property + Property RowType() As eRowType + Get + Return _RowType + End Get + Set(ByVal value As eRowType) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + _ + Property Product() As Products + Get + Return _Product + End Get + Set(ByVal value As Products) + SetPropertyValue("Product", _Product, value) + End Set + End Property + Property Installation As Installation + Get + Return _Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DescriptionPrivate As String + Get + Return _DescriptionPrivate + End Get + Set(ByVal value As String) + SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value) + End Set + End Property + _ + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + SumPriceDEV = QTT * FinalPriceDEV + SumPriceHUF = QTT * FinalPriceHUF + End If + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property DateAcknowledgement As Date + Get + Return _DateAcknowledgement + End Get + Set(value As Date) + SetPropertyValue("DateAcknowledgement", _DateAcknowledgement, value) + End Set + End Property + + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + Property FinalPriceDEV As Double + Get + Return _FinalPriceDEV + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV", _FinalPriceDEV, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + SumPriceDEV = QTT * FinalPriceDEV + End If + End Set + End Property + Property FinalPriceHUF As Double + Get + Return _FinalPriceHUF + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF", _FinalPriceHUF, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + SumPriceHUF = QTT * FinalPriceHUF + End If + End Set + End Property + + Public Sub AddRows(ByVal _p_OfferInHeader As OfferInHeader) + ' Sor hozzáadása + Me.OfferInHeader = _p_OfferInHeader + + If _p_OfferInHeader.row_RowType = eRowType.IsInstallation Then ' Sor hozzáadása ha gyártmány típusú a sor + Me.Installation = _p_OfferInHeader.row_Installation + Me.RowType = _p_OfferInHeader.row_RowType + Me.QTT = _p_OfferInHeader.row_QTT + Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'")) + Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2 + Me.VAT = _p_OfferInHeader.row_VAT + + + FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV + FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF + SumPriceDEV = FinalPriceDEV * QTT + SumPriceHUF = FinalPriceHUF * QTT + End If + + If _p_OfferInHeader.row_RowType = eRowType.IsOther Then ' Sor hozzáadása ha egyéb típusú a sor + Me.ShortName = _p_OfferInHeader.row_ShortName + Me.RowType = _p_OfferInHeader.row_RowType + Me.QTT = _p_OfferInHeader.row_QTT + Me.Units = _p_OfferInHeader.row_Units + Me.Description = _p_OfferInHeader.row_Description + Me.VAT = _p_OfferInHeader.row_VAT + Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2 + + + FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV + FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF + SumPriceDEV = FinalPriceDEV * QTT + SumPriceHUF = FinalPriceHUF * QTT + End If + + If _p_OfferInHeader.row_RowType = eRowType.IsProduct Then ' Sor hozzáadása ha termék típusú a sor + Me.Product = _p_OfferInHeader.row_Products + Me.RowType = _p_OfferInHeader.row_RowType + Me.QTT = _p_OfferInHeader.row_QTT + Me.Units = _p_OfferInHeader.row_Units + Me.VAT = _p_OfferInHeader.row_Products.VAT + Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2 + + FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV + FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF + SumPriceDEV = FinalPriceDEV * QTT + SumPriceHUF = FinalPriceHUF * QTT + End If + + ' Indexelés + If _p_OfferInHeader.OfferInRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_OfferInHeader.OfferInRows.Count - 1 + End If + End Sub + Public Sub RemoveRows() + Me.Delete() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.Designer.vb new file mode 100644 index 0000000..c501c17 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.Designer.vb @@ -0,0 +1,282 @@ +Partial Class OffersInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTotableD_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotable_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOffersInFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOffersIn_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsertServicesToOfferIN = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBackToRowEdit_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOfferIn_ChangeState = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloneOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOfferIn_CreateDeliveryNoteIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferIn_RegenerateDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferInHeader_AddOfferOutHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aTotableD_OfferIn + ' + Me.aTotableD_OfferIn.Caption = "Delete row" + Me.aTotableD_OfferIn.Category = "aTotableD_OfferIn" + Me.aTotableD_OfferIn.ConfirmationMessage = Nothing + Me.aTotableD_OfferIn.Id = "aTotableD_OfferIn" + Me.aTotableD_OfferIn.ImageName = "table_delete" + Me.aTotableD_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aTotableD_OfferIn.Shortcut = Nothing + Me.aTotableD_OfferIn.Tag = Nothing + Me.aTotableD_OfferIn.TargetObjectsCriteria = Nothing + Me.aTotableD_OfferIn.TargetViewId = "" + Me.aTotableD_OfferIn.ToolTip = Nothing + Me.aTotableD_OfferIn.TypeOfView = Nothing + ' + 'aTotable_OfferIn + ' + Me.aTotable_OfferIn.Caption = "Add row" + Me.aTotable_OfferIn.Category = "aTotable_OfferIn" + Me.aTotable_OfferIn.ConfirmationMessage = Nothing + Me.aTotable_OfferIn.Id = "aTotable_OfferIn" + Me.aTotable_OfferIn.ImageName = "table_add" + Me.aTotable_OfferIn.Shortcut = Nothing + Me.aTotable_OfferIn.Tag = Nothing + Me.aTotable_OfferIn.TargetObjectsCriteria = Nothing + Me.aTotable_OfferIn.TargetViewId = "" + Me.aTotable_OfferIn.ToolTip = Nothing + Me.aTotable_OfferIn.TypeOfView = Nothing + ' + 'aUp_OfferIn + ' + Me.aUp_OfferIn.Caption = "Up" + Me.aUp_OfferIn.Category = "RecordsNavigation" + Me.aUp_OfferIn.ConfirmationMessage = Nothing + Me.aUp_OfferIn.Id = "aUp_OfferIn" + Me.aUp_OfferIn.ImageName = "arrow_up_green" + Me.aUp_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_OfferIn.Shortcut = Nothing + Me.aUp_OfferIn.Tag = Nothing + Me.aUp_OfferIn.TargetObjectsCriteria = Nothing + Me.aUp_OfferIn.TargetViewId = Nothing + Me.aUp_OfferIn.ToolTip = Nothing + Me.aUp_OfferIn.TypeOfView = Nothing + ' + 'aDown_OfferIn + ' + Me.aDown_OfferIn.Caption = "Down" + Me.aDown_OfferIn.Category = "RecordsNavigation" + Me.aDown_OfferIn.ConfirmationMessage = Nothing + Me.aDown_OfferIn.Id = "aDown_OfferIn" + Me.aDown_OfferIn.ImageName = "arrow_down_green" + Me.aDown_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_OfferIn.Shortcut = Nothing + Me.aDown_OfferIn.Tag = Nothing + Me.aDown_OfferIn.TargetObjectsCriteria = Nothing + Me.aDown_OfferIn.TargetViewId = Nothing + Me.aDown_OfferIn.ToolTip = Nothing + Me.aDown_OfferIn.TypeOfView = Nothing + ' + 'aOffersInFinal + ' + Me.aOffersInFinal.Caption = "aOffersInFinal" + Me.aOffersInFinal.Category = "RecordEdit" + Me.aOffersInFinal.ConfirmationMessage = Nothing + Me.aOffersInFinal.Id = "aOffersInFinal" + Me.aOffersInFinal.ImageName = "MenuBar_SaveAndClose" + Me.aOffersInFinal.Shortcut = Nothing + Me.aOffersInFinal.Tag = Nothing + Me.aOffersInFinal.TargetObjectsCriteria = Nothing + Me.aOffersInFinal.TargetViewId = Nothing + Me.aOffersInFinal.ToolTip = Nothing + Me.aOffersInFinal.TypeOfView = Nothing + ' + 'aOffersIn_ChangeRows + ' + Me.aOffersIn_ChangeRows.AcceptButtonCaption = Nothing + Me.aOffersIn_ChangeRows.CancelButtonCaption = Nothing + Me.aOffersIn_ChangeRows.Caption = "Change data in selected rows" + Me.aOffersIn_ChangeRows.ConfirmationMessage = Nothing + Me.aOffersIn_ChangeRows.Id = "aOffersIn_ChangeRows" + Me.aOffersIn_ChangeRows.ImageName = "Action_EditModel" + Me.aOffersIn_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOffersIn_ChangeRows.Shortcut = Nothing + Me.aOffersIn_ChangeRows.Tag = Nothing + Me.aOffersIn_ChangeRows.TargetObjectsCriteria = Nothing + Me.aOffersIn_ChangeRows.TargetViewId = Nothing + Me.aOffersIn_ChangeRows.ToolTip = Nothing + Me.aOffersIn_ChangeRows.TypeOfView = Nothing + ' + 'aInsertServicesToOfferIN + ' + Me.aInsertServicesToOfferIN.AcceptButtonCaption = Nothing + Me.aInsertServicesToOfferIN.CancelButtonCaption = Nothing + Me.aInsertServicesToOfferIN.Caption = "aInsert Services To Offer IN" + Me.aInsertServicesToOfferIN.ConfirmationMessage = Nothing + Me.aInsertServicesToOfferIN.Id = "aInsertServicesToOfferIN" + Me.aInsertServicesToOfferIN.ImageName = Nothing + Me.aInsertServicesToOfferIN.Shortcut = Nothing + Me.aInsertServicesToOfferIN.Tag = Nothing + Me.aInsertServicesToOfferIN.TargetObjectsCriteria = Nothing + Me.aInsertServicesToOfferIN.TargetViewId = "" + Me.aInsertServicesToOfferIN.ToolTip = Nothing + Me.aInsertServicesToOfferIN.TypeOfView = Nothing + ' + 'aBackToRowEdit_OfferIn + ' + Me.aBackToRowEdit_OfferIn.Caption = "Edit row" + Me.aBackToRowEdit_OfferIn.Category = "aBackToRowEdit_OfferIn" + Me.aBackToRowEdit_OfferIn.ConfirmationMessage = Nothing + Me.aBackToRowEdit_OfferIn.Id = "aBackToRowEdit_OfferIn" + Me.aBackToRowEdit_OfferIn.ImageName = Nothing + Me.aBackToRowEdit_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_OfferIn.Shortcut = Nothing + Me.aBackToRowEdit_OfferIn.Tag = Nothing + Me.aBackToRowEdit_OfferIn.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_OfferIn.TargetViewId = "" + Me.aBackToRowEdit_OfferIn.ToolTip = Nothing + Me.aBackToRowEdit_OfferIn.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aOfferIn_ChangeState + ' + Me.aOfferIn_ChangeState.AcceptButtonCaption = Nothing + Me.aOfferIn_ChangeState.CancelButtonCaption = Nothing + Me.aOfferIn_ChangeState.Caption = "OfferIn Change State" + Me.aOfferIn_ChangeState.ConfirmationMessage = Nothing + Me.aOfferIn_ChangeState.Id = "aOfferIn_ChangeState" + Me.aOfferIn_ChangeState.ImageName = Nothing + Me.aOfferIn_ChangeState.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOfferIn_ChangeState.Shortcut = Nothing + Me.aOfferIn_ChangeState.Tag = Nothing + Me.aOfferIn_ChangeState.TargetObjectsCriteria = Nothing + Me.aOfferIn_ChangeState.TargetViewId = "" + Me.aOfferIn_ChangeState.ToolTip = Nothing + Me.aOfferIn_ChangeState.TypeOfView = Nothing + ' + 'aCloneOfferIn + ' + Me.aCloneOfferIn.Caption = "aClone Offer In" + Me.aCloneOfferIn.Category = "ObjectsCreation" + Me.aCloneOfferIn.ConfirmationMessage = Nothing + Me.aCloneOfferIn.Id = "aCloneOfferIn" + Me.aCloneOfferIn.ImageName = Nothing + Me.aCloneOfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneOfferIn.Shortcut = Nothing + Me.aCloneOfferIn.Tag = Nothing + Me.aCloneOfferIn.TargetObjectsCriteria = Nothing + Me.aCloneOfferIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aCloneOfferIn.TargetViewId = Nothing + Me.aCloneOfferIn.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCloneOfferIn.ToolTip = Nothing + Me.aCloneOfferIn.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aPrintOfferIn + ' + Me.aPrintOfferIn.Caption = "aPrint Offer In" + Me.aPrintOfferIn.Category = "View" + Me.aPrintOfferIn.ConfirmationMessage = Nothing + Me.aPrintOfferIn.Id = "aPrintOfferIn" + Me.aPrintOfferIn.ImageName = Nothing + Me.aPrintOfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintOfferIn.Shortcut = Nothing + Me.aPrintOfferIn.Tag = Nothing + Me.aPrintOfferIn.TargetObjectsCriteria = Nothing + Me.aPrintOfferIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aPrintOfferIn.TargetViewId = Nothing + Me.aPrintOfferIn.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPrintOfferIn.ToolTip = Nothing + Me.aPrintOfferIn.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aOfferIn_CreateDeliveryNoteIn + ' + Me.aOfferIn_CreateDeliveryNoteIn.AcceptButtonCaption = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.CancelButtonCaption = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.Caption = "aOfferIn_CreateDeliveryNoteIn" + Me.aOfferIn_CreateDeliveryNoteIn.Category = "ObjectsCreation" + Me.aOfferIn_CreateDeliveryNoteIn.ConfirmationMessage = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.Id = "aOfferIn_CreateDeliveryNoteIn" + Me.aOfferIn_CreateDeliveryNoteIn.ImageName = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOfferIn_CreateDeliveryNoteIn.Shortcut = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.Tag = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.TargetObjectsCriteria = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aOfferIn_CreateDeliveryNoteIn.TargetViewId = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.ToolTip = Nothing + Me.aOfferIn_CreateDeliveryNoteIn.TypeOfView = Nothing + ' + 'aOfferIn_RegenerateDEV + ' + Me.aOfferIn_RegenerateDEV.AcceptButtonCaption = Nothing + Me.aOfferIn_RegenerateDEV.CancelButtonCaption = Nothing + Me.aOfferIn_RegenerateDEV.Caption = "aOfferIn_RegenerateDEV" + Me.aOfferIn_RegenerateDEV.ConfirmationMessage = Nothing + Me.aOfferIn_RegenerateDEV.Id = "aOfferIn_RegenerateDEV" + Me.aOfferIn_RegenerateDEV.ImageName = Nothing + Me.aOfferIn_RegenerateDEV.Shortcut = Nothing + Me.aOfferIn_RegenerateDEV.Tag = Nothing + Me.aOfferIn_RegenerateDEV.TargetObjectsCriteria = Nothing + Me.aOfferIn_RegenerateDEV.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aOfferIn_RegenerateDEV.TargetViewId = Nothing + Me.aOfferIn_RegenerateDEV.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOfferIn_RegenerateDEV.ToolTip = Nothing + Me.aOfferIn_RegenerateDEV.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOfferInHeader_AddOfferOutHeader + ' + Me.aOfferInHeader_AddOfferOutHeader.AcceptButtonCaption = Nothing + Me.aOfferInHeader_AddOfferOutHeader.CancelButtonCaption = Nothing + Me.aOfferInHeader_AddOfferOutHeader.Caption = "aOfferInHeader_AddOfferOutHeader" + Me.aOfferInHeader_AddOfferOutHeader.ConfirmationMessage = Nothing + Me.aOfferInHeader_AddOfferOutHeader.Id = "aOfferInHeader_AddOfferOutHeader" + Me.aOfferInHeader_AddOfferOutHeader.ImageName = Nothing + Me.aOfferInHeader_AddOfferOutHeader.Shortcut = Nothing + Me.aOfferInHeader_AddOfferOutHeader.Tag = Nothing + Me.aOfferInHeader_AddOfferOutHeader.TargetObjectsCriteria = Nothing + Me.aOfferInHeader_AddOfferOutHeader.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aOfferInHeader_AddOfferOutHeader.TargetViewId = Nothing + Me.aOfferInHeader_AddOfferOutHeader.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOfferInHeader_AddOfferOutHeader.ToolTip = Nothing + Me.aOfferInHeader_AddOfferOutHeader.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aTotableD_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotable_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOffersInFinal As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOffersIn_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsertServicesToOfferIN As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackToRowEdit_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOfferIn_ChangeState As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloneOfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintOfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOfferIn_CreateDeliveryNoteIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferIn_RegenerateDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferInHeader_AddOfferOutHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.resx new file mode 100644 index 0000000..28563ab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 212 + + + 17, 290 + + + 17, 524 + + + 17, 485 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 329 + + + 17, 134 + + + 17, 251 + + + 17, 173 + + + 17, 95 + + + 392, 284 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb new file mode 100644 index 0000000..5d5c1c1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersIn/OffersInVC.vb @@ -0,0 +1,751 @@ +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.ExpressApp.Editors +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Reports +Imports System.Linq +Imports DevExpress.Persistent.BaseImpl + +Public Class OffersInVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + 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 OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aInsertServicesToOfferIN.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False) + + If View.Id = "OfferInHeader_ListView_Editable" Then + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", True) + End If + If View.Id = "OfferInHeader_ListView_NotEditable" Or _ + View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged + End If + + If View.Id = "OfferInHeader_OfferInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aInsertServicesToOfferIN.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged + End If + If View.Id = "OfferInHeader_DetailView" Then + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + If _OfferInHeader IsNot Nothing Then + If _OfferInHeader.IsEditable = False Then + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", False) + Else + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", True) + End If + End If + + End If + If View.Id = "OfferInHeader_ListView_Subcontractor" Then + Frame.GetController(Of OffersInVC)().aPrintOfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC)().aCloneOfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", False) + End If + If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferInHeader_ListView_Editable" Then + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False) + End If + If View.Id = "OfferInHeader_ListView" Then + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged + End If + If View.Id = "OfferInHeader_OfferInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged + + End If + If View.Id = "OfferInHeader_DetailView" Then + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + If _OfferInHeader IsNot Nothing Then + If _OfferInHeader.IsEditable = True Then + Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "OfferInHeader_ListView_Subcontractor" Then + Frame.GetController(Of OffersInVC)().aPrintOfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC)().aCloneOfferIn.Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", True) + End If + If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If _noselect = False Then + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _OfferOutRows In View.SelectedObjects + _selection.Add(_OfferOutRows) + Next + End If + End If + End Sub + Private Sub aTotable_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_OfferIn.Execute + 'hozzáadás fejléchez + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = CType(View.SelectedObjects(0), OfferInHeader) + Dim _OfferInRows As OfferInRows + + + _OfferInRows = _ocur.CreateObject(Of OfferInRows)() + _OfferInRows.OfferInHeader = _OfferInHeader + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + _OfferInRows.AddRows(_OfferInHeader) + _ocur.CommitChanges() + + _OfferInHeader.row_Installation = Nothing + _OfferInHeader.row_Products = Nothing + _OfferInHeader.row_Units = Nothing + _OfferInHeader.row_VAT = Nothing + _OfferInHeader.row_ShortName = "" + _OfferInHeader.row_QTT = 0 + _OfferInHeader.row_Description = "" + _OfferInHeader.row_FinalPriceDEV = 0 + _OfferInHeader.row_FinalPriceHUF = 0 + _OfferInHeader.row_RowGroup1 = "" + _OfferInHeader.row_RowGroup2 = "" + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aTotableD_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_OfferIn.Execute + 'sor törlése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = TryCast(e.SelectedObjects(0), OfferInHeader) + Dim _OfferInRows_Collection As ArrayList = New ArrayList + Dim _OfferInRows_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OfferInRows") + + For Each _OfferInRows In _OfferInRows_ListPropertyEditor.ListView.SelectedObjects + Dim _OfferInRows_Act As OfferInRows = _OfferInRows + For Each _OfferInRows_ActHeader As OfferInRows In _OfferInHeader.OfferInRows + If _OfferInRows_ActHeader.RowIndex > _OfferInRows_Act.RowIndex Then + _OfferInRows_ActHeader.RowIndex -= 1 + End If + Next + Next + + For Each _OfferInRows As OfferInRows In _OfferInRows_ListPropertyEditor.ListView.SelectedObjects + _OfferInRows_Collection.Add(_OfferInRows) + Next + + _ocur.Delete(_OfferInRows_Collection) + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aUp_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OfferIn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader + Dim _OfferInRowsSelected As OfferInRows + Dim _OfferInRowsMinus As OfferInRows + Dim _OfferInRows As OfferInRows + + Try + _OfferInRowsSelected = TryCast(View.SelectedObjects(0), OfferInRows) ' Kiveszi a kijelölt sorok közül az elsõt + _OfferInHeader = _OfferInRowsSelected.OfferInHeader + Catch + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OfferInRowsSelected.RowIndex > 0 Then + For Each _OfferInRows In _OfferInHeader.OfferInRows + If _OfferInRows.RowIndex = _OfferInRowsSelected.RowIndex - 1 Then + _OfferInRowsMinus = _OfferInRows + Exit For + End If + Next + + If _OfferInRowsMinus IsNot Nothing Then + _OfferInRowsSelected.RowIndex -= 1 + _OfferInRowsMinus.RowIndex += 1 + End If + _OfferInRowsMinus.Save() + _OfferInRowsSelected.Save() + _ocur.CommitChanges() + 'If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + ' Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + 'End If + End If + End Sub + Private Sub aDown_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OfferIn.Execute + 'kiválasztott sort lejebb rendzei + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader + Dim _OfferInRowsSelected As OfferInRows + Dim _OfferInRowsMinus As OfferInRows + Dim _OfferInRows As OfferInRows + + Try + _OfferInRowsSelected = TryCast(View.SelectedObjects(0), OfferInRows) ' Kiveszi a kijelölt sorok közül az elsõt + _OfferInHeader = _OfferInRowsSelected.OfferInHeader + Catch + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OfferInRowsSelected.RowIndex < _OfferInHeader.OfferInRows.Count - 1 Then + For Each _OfferInRows In _OfferInHeader.OfferInRows + If _OfferInRows.RowIndex = _OfferInRowsSelected.RowIndex + 1 Then + _OfferInRowsMinus = _OfferInRows + Exit For + End If + Next + + If _OfferInRowsMinus IsNot Nothing Then + _OfferInRowsSelected.RowIndex += 1 + _OfferInRowsMinus.RowIndex -= 1 + End If + _OfferInRowsMinus.Save() + _OfferInRowsSelected.Save() + _ocur.CommitChanges() + 'If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + ' Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + 'End If + End If + + End Sub + 'Private Sub aCloneOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneOfferIn.Execute + ' 'kivélasztott bejövõ megrendelés klónozása sorokkal... + ' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + ' Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(e.SelectedObjects(0), OfferInHeader)) + ' Dim _OfferInHeader_NEW As OfferInHeader = _onew.CreateObject(Of OfferInHeader)() + ' Dim _OfferInRows As OfferInRows + + ' 'Fejlés + + ' _OfferInHeader_NEW.Contact = _OfferInHeader.Contact + ' _OfferInHeader_NEW.CRM_Opportunities = _OfferInHeader.CRM_Opportunities + ' _OfferInHeader_NEW.CurrencyName = _OfferInHeader.CurrencyName + ' _OfferInHeader_NEW.Customers = _OfferInHeader.Customers + ' _OfferInHeader_NEW.CustomersFrom = _OfferInHeader.CustomersFrom + ' _OfferInHeader_NEW.DateCreated = _OfferInHeader.DateCreated + ' _OfferInHeader_NEW.DateExecution = _OfferInHeader.DateExecution + ' _OfferInHeader_NEW.DatePayment = _OfferInHeader.DatePayment + ' _OfferInHeader_NEW.Description = _OfferInHeader.Description + ' _OfferInHeader_NEW.DocumentBody = _OfferInHeader.DocumentBody + ' _OfferInHeader_NEW.OfferLOSTReasonDescription = _OfferInHeader.OfferLOSTReasonDescription + ' _OfferInHeader_NEW.PaymentOption = _OfferInHeader.PaymentOption + ' _OfferInHeader_NEW.QualityOption = _OfferInHeader.QualityOption + ' _OfferInHeader_NEW.DocumentNumber = "" + ' _OfferInHeader_NEW.IsEditable = True + ' _OfferInHeader_NEW.IsStorno = False + + ' _OfferInHeader_NEW.Save() + + ' 'sorok átpakolása + ' For Each _OfferInRows In _OfferInHeader.OfferInRows + ' Dim _OfferInRows_NEW As OfferInRows = _onew.CreateObject(Of OfferInRows)() + + ' _OfferInRows_NEW.OfferInHeader = _OfferInHeader_NEW + ' _OfferInRows_NEW.Description = _OfferInRows.Description + ' _OfferInRows_NEW.DescriptionPrivate = _OfferInRows.DescriptionPrivate + ' _OfferInRows_NEW.FinalPriceDEV = _OfferInRows.FinalPriceDEV + ' _OfferInRows_NEW.FinalPriceHUF = _OfferInRows.FinalPriceHUF + ' _OfferInRows_NEW.Installation = _OfferInRows.Installation + ' _OfferInRows_NEW.Product = _OfferInRows.Product + ' _OfferInRows_NEW.QTT = _OfferInRows.QTT + ' _OfferInRows_NEW.QualityOption = _OfferInRows.QualityOption + ' _OfferInRows_NEW.RowIndex = _OfferInRows.RowIndex + ' _OfferInRows_NEW.RowType = _OfferInRows.RowType + ' _OfferInRows_NEW.ShortName = _OfferInRows.ShortName + ' _OfferInRows_NEW.SumPriceDEV = _OfferInRows.SumPriceDEV + ' _OfferInRows_NEW.SumPriceHUF = _OfferInRows.SumPriceHUF + + ' _OfferInRows_NEW.Save() + ' Next + + ' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _OfferInHeader_NEW) + 'End Sub 'Egykori CLONE action - R.IP + Private Sub aOffersInFinal_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersInFinal.Execute + 'Véglegesítés + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + + If _OfferInHeader IsNot Nothing Then + If _OfferInHeader.DocumentNumber = "" Then + _OfferInHeader.DocumentNumber = _OfferInHeader.OfferInParameters.NumberGenerator.GetNewNumber(_OfferInHeader.OfferInParameters.NumberGenerator) + End If + + _OfferInHeader.IsEditable = False + _OfferInHeader.Save() + _ocur.CommitChanges() + Else + Throw New UserFriendlyException("Nincs kiválasztott sor!") + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aOffersIn_ChangeRows_Cancel(sender As Object, e As System.EventArgs) Handles aOffersIn_ChangeRows.Cancel + _noselect = False + End Sub + Private Sub aOffersIn_ChangeRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOffersIn_ChangeRows.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferInRows_ChangeGroup As OfferInRows_ChangeGroup = _onew.CreateObject(Of OfferInRows_ChangeGroup)() + If View.SelectedObjects.Count > 0 Then + Dim _OfferInRows As OfferInRows = TryCast(View.SelectedObjects(0), OfferInRows) + _OfferInRows_ChangeGroup.ShortName = _onew.GetObject(_OfferInRows.ShortName) + _OfferInRows_ChangeGroup.Description = _onew.GetObject(_OfferInRows.Description) + _OfferInRows_ChangeGroup.DescriptionPrivate = _onew.GetObject(_OfferInRows.DescriptionPrivate) + _OfferInRows_ChangeGroup.QualityOption = _onew.GetObject(_OfferInRows.QualityOption) + _OfferInRows_ChangeGroup.Units = _onew.GetObject(_OfferInRows.Units) + _OfferInRows_ChangeGroup.VAT = _onew.GetObject(_OfferInRows.VAT) + + e.View = Application.CreateDetailView(_onew, "OfferInRows_ChangeGroup_DetailView", False, _OfferInRows_ChangeGroup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aOffersIn_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOffersIn_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInRows_ChangeGroup As OfferInRows_ChangeGroup = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferInRows_ChangeGroup) + + For Each _OfferInRows As OfferInRows In _selection + If _OfferInRows_ChangeGroup.Change_Description Then + _OfferInRows.Description = _OfferInRows_ChangeGroup.Description + End If + If _OfferInRows_ChangeGroup.Change_DescriptionPrivate Then + _OfferInRows.DescriptionPrivate = _OfferInRows_ChangeGroup.DescriptionPrivate + End If + If _OfferInRows_ChangeGroup.Change_QualityOption Then + _OfferInRows.QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_OfferInRows_ChangeGroup.QualityOption.Oid) + End If + If _OfferInRows_ChangeGroup.Change_ShortName Then + _OfferInRows.ShortName = _OfferInRows_ChangeGroup.ShortName + End If + If _OfferInRows_ChangeGroup.Change_Units Then + _OfferInRows.Units = _ocur.GetObjectByKey(Of Units)(_OfferInRows_ChangeGroup.Units.Oid) + End If + If _OfferInRows_ChangeGroup.Change_VAT Then + _OfferInRows.VAT = _ocur.GetObjectByKey(Of VAT)(_OfferInRows_ChangeGroup.VAT.Oid) + End If + If _OfferInRows_ChangeGroup.Change_RowGroup1 Then + _OfferInRows.RowGroup1 = _OfferInRows_ChangeGroup.RowGroup1 + End If + If _OfferInRows_ChangeGroup.Change_RowGroup2 Then + _OfferInRows.RowGroup2 = _OfferInRows_ChangeGroup.RowGroup2 + End If + Next + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub aInsertServicesToOfferIN_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToOfferIN.CustomizePopupWindowParams + Dim _OfferInHeader As OfferInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferInHeader) + + If _OfferInHeader.IsEditable Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False) + Else + '----------TESZT MIATT----------------------------------------- + Throw New Exception("*A bejövő árajánlat végleges vagy stornó!") + End If + End Sub + Private Sub aInsertServicesToOfferIN_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToOfferIN.Execute + 'A popup-on kiválasztott szolgáltatásokból létrehoz bejövő árajánlati sorokat + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferInHeader) + Dim _Services As Services + Dim _OfferInRows_New As OfferInRows + + For Each _Services In e.PopupWindow.View.SelectedObjects + _OfferInRows_New = _ocur.CreateObject(Of OfferInRows)() + + _OfferInRows_New.RowType = eRowType.IsOther + _OfferInRows_New.OfferInHeader = _OfferInHeader + _OfferInRows_New.ShortName = _Services.ShortName + _OfferInRows_New.Description = _Services.Description + _OfferInRows_New.Units = _ocur.GetObject(_Services.Units) + _OfferInRows_New.FinalPriceDEV = _Services.ListPriceDEV + _OfferInRows_New.FinalPriceHUF = _Services.ListPriceHUF + _OfferInRows_New.SumPriceDEV = _Services.ListPriceDEV + _OfferInRows_New.SumPriceHUF = _Services.ListPriceHUF + _OfferInRows_New.VAT = _ocur.GetObject(_Services.VAT) + _OfferInRows_New.QTT = 1 + + 'Indexelés + If _OfferInHeader.OfferInRows.Count = 0 Then + _OfferInRows_New.RowIndex = 0 + Else + _OfferInRows_New.RowIndex = _OfferInHeader.OfferInRows.Count - 1 + End If + + ' _OfferInRows_New.Save() + Next + _ocur.CommitChanges() + End Sub + Private Sub aBackToRowEdit_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_OfferIn.Execute + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("OfferInRows") 'Sorok összeszedése + If _ListView IsNot Nothing Then + If _ListView.ListView.SelectedObjects.Count > 0 Then + Dim _OfferInRows As OfferInRows = _ListView.ListView.SelectedObjects(0) + + _OfferInHeader.row_Description = _OfferInRows.Description + _OfferInHeader.row_FinalPriceDEV = _OfferInRows.FinalPriceDEV + _OfferInHeader.row_FinalPriceHUF = _OfferInRows.FinalPriceHUF + _OfferInHeader.row_Installation = _OfferInRows.Installation + _OfferInHeader.row_Products = _OfferInRows.Product + _OfferInHeader.row_QTT = _OfferInRows.QTT + _OfferInHeader.row_RowGroup1 = _OfferInRows.RowGroup1 + _OfferInHeader.row_RowGroup2 = _OfferInRows.RowGroup2 + _OfferInHeader.row_RowType = _OfferInRows.RowType + _OfferInHeader.row_ShortName = _OfferInRows.ShortName + _OfferInHeader.row_Units = _OfferInRows.Units + _OfferInHeader.row_VAT = _OfferInRows.VAT + + View.Refresh() + Else + Throw New Exception("*Nincs kiválasztott sor!") + End If + End If + End Sub + Private Sub aOfferIn_ChangeState_Cancel(sender As Object, e As System.EventArgs) Handles aOfferIn_ChangeState.Cancel + _noselect = False + End Sub + Private Sub aOfferIn_ChangeState_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_ChangeState.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferIn_ChangeState_PopUp As OfferIn_ChangeState_PopUp = _onew.CreateObject(Of OfferIn_ChangeState_PopUp)() + + e.View = Application.CreateDetailView(_onew, "OfferIn_ChangeState_PopUp_DetailView", False, _OfferIn_ChangeState_PopUp) + End Sub + Private Sub aOfferIn_ChangeState_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_ChangeState.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferIn_ChangeState_PopUp As OfferIn_ChangeState_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferIn_ChangeState_PopUp) + For Each _OfferInHeader As OfferInHeader In _selection + _OfferInHeader.OfferInState = _ocur.GetObject(_OfferIn_ChangeState_PopUp.OfferInState) + If _OfferIn_ChangeState_PopUp.OfferInState = eOfferInState.eClosedLOST Then + _OfferInHeader.OfferLOSTReasonDescription = _OfferIn_ChangeState_PopUp.OfferLOSTReasonDescription + _OfferInHeader.OfferLOSTReason = _ocur.GetObject(_OfferIn_ChangeState_PopUp.OfferLOSTReason) + End If + Next + _ocur.CommitChanges() + _noselect = False + End Sub + + Private Sub aCloneOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneOfferIn.Execute + '//Bejövő ajánlat klónozása a soraival együtt + DetailView benyitása mentés nélkül _onew-en + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferInHeader_Base As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + Dim _OfferInHeader As OfferInHeader + Dim _OfferInRows As OfferInRows + Dim _OfferInRows_Base As OfferInRows + + If _OfferInHeader_Base IsNot Nothing Then + + '//Fejléc klónozása + _OfferInHeader = _onew.CreateObject(Of OfferInHeader)() + _OfferInHeader.Contact = _onew.GetObject(_OfferInHeader_Base.Contact) + _OfferInHeader.CRM_Opportunities = _onew.GetObject(_OfferInHeader_Base.CRM_Opportunities) + _OfferInHeader.CurrencyName = _onew.GetObject(_OfferInHeader_Base.CurrencyName) + _OfferInHeader.Customers = _onew.GetObject(_OfferInHeader_Base.Customers) + _OfferInHeader.CustomersFrom = _onew.GetObject(_OfferInHeader_Base.CustomersFrom) + + _OfferInHeader.DateDue = _OfferInHeader_Base.DateDue + _OfferInHeader.DateExecution = _OfferInHeader_Base.DateExecution + _OfferInHeader.DatePayment = _OfferInHeader_Base.DatePayment + _OfferInHeader.Description = _OfferInHeader_Base.Description + _OfferInHeader.IsEditable = True + _OfferInHeader.IsStorno = False + + _OfferInHeader.OfferInParameters = _onew.GetObject(_OfferInHeader_Base.OfferInParameters) + _OfferInHeader.OfferInState = eOfferInState.eInProgress + _OfferInHeader.PaymentOption = _onew.GetObject(_OfferInHeader_Base.PaymentOption) + + For Each _OfferInRows_Base In _OfferInHeader_Base.OfferInRows + _OfferInRows = _onew.CreateObject(Of OfferInRows)() + _OfferInRows.Description = _OfferInRows_Base.Description + _OfferInRows.DescriptionPrivate = _OfferInRows_Base.DescriptionPrivate + _OfferInRows.FinalPriceDEV = _OfferInRows_Base.FinalPriceDEV + _OfferInRows.FinalPriceHUF = _OfferInRows_Base.FinalPriceHUF + _OfferInRows.Installation = _onew.GetObject(_OfferInRows_Base.Installation) + _OfferInRows.OfferInHeader = _OfferInHeader + _OfferInRows.Product = _onew.GetObject(_OfferInRows_Base.Product) + _OfferInRows.QTT = _OfferInRows_Base.QTT + _OfferInRows.QualityOption = _onew.GetObject(_OfferInRows_Base.QualityOption) + _OfferInRows.RowGroup1 = _OfferInRows_Base.RowGroup1 + _OfferInRows.RowGroup2 = _OfferInRows_Base.RowGroup2 + _OfferInRows.RowIndex = _OfferInRows_Base.RowIndex + _OfferInRows.RowType = _OfferInRows_Base.RowType + _OfferInRows.ShortName = _OfferInRows_Base.ShortName + _OfferInRows.Units = _onew.GetObject(_OfferInRows_Base.Units) + _OfferInRows.VAT = _onew.GetObject(_OfferInRows_Base.VAT) + Next + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferInHeader_DetailView", True, _OfferInHeader) + End If + End Sub + + Private Sub aPrintOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintOfferIn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader + Dim _ReportData As ReportData + + If e.SelectedObjects.Count > 0 Then + _OfferInHeader = TryCast(e.SelectedObjects(0), OfferInHeader) + + If _OfferInHeader IsNot Nothing Then + _ReportData = _OfferInHeader.OfferInParameters.ReportData + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferInHeader=?", _OfferInHeader), True) + Else + Throw New Exception("*Nincs nyomtatvány beállítva !") + End If + End If + End If + End Sub + + Private Sub aOfferIn_CreateDeliveryNoteIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_CreateDeliveryNoteIn.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _OfferInRows As OfferInRows + Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader)) + Dim _DeliveryNoteInFromOffersInRowsHeader As New DeliveryNoteInFromOffersInRowsHeader(_onew.Session) + Dim _QTT_Sum As Double = 0 + + _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader = _OfferInHeader + _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.DateCreated = GetSQLTime(_onew.Session) + + Dim _OfferInRows_XPQuery As New XPQuery(Of DeliveryNoteInRows)(_onew.Session) + Dim query = From _DNIR In _OfferInRows_XPQuery + Where _DNIR.OfferInRows.OfferInHeader Is _OfferInHeader + Group _DNIR By _DNIR.OfferInRows Into g = Group _ + Select New With {Key .OfferInRows = OfferInRows, + Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each _OfferInRows In _OfferInHeader.OfferInRows + _QTT_Sum = 0 + For Each item In query + If item.OfferInRows.Oid = _OfferInRows.Oid Then + _QTT_Sum = item.QTT_Sum + End If + Next + + If _OfferInRows.QTT > _QTT_Sum Then + Dim _DeliveryNoteInFromOffersInRowsRows As New DeliveryNoteInFromOffersInRowsRows(_onew.Session) + + _DeliveryNoteInFromOffersInRowsRows.OfferInRows = _OfferInRows + _DeliveryNoteInFromOffersInRowsRows.DeliveryNoteInFromOrderOutRowsHeader = _DeliveryNoteInFromOffersInRowsHeader + _DeliveryNoteInFromOffersInRowsRows.QTT_Process = _OfferInRows.QTT - _QTT_Sum + _DeliveryNoteInFromOffersInRowsRows.Save() + End If + Next + + _DeliveryNoteInFromOffersInRowsHeader.Save() + _onew.CommitChanges() + + e.View = Application.CreateDetailView(_onew, _DeliveryNoteInFromOffersInRowsHeader, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aOfferIn_CreateDeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_CreateDeliveryNoteIn.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader As New DeliveryNoteInHeader(_ocur.Session) + Dim _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOffersInRowsHeader)) + Dim _DeliveryNoteInFromOffersInRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("DeliveryNoteInFromOffersInRowsRows") + Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.GetObjectByKey(Of DeliveryNoteInType)(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOffersInRowsHeader).DeliveryNoteInType.Oid) + + _DeliveryNoteInHeader.CurrencyName = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.CurrencyName + _DeliveryNoteInHeader.CustomersFrom = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.CustomersFrom + _DeliveryNoteInHeader.PaymentOption = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.PaymentOption + _DeliveryNoteInHeader.QualityOption = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.QualityOption + _DeliveryNoteInHeader.Customers = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.Customers + _DeliveryNoteInHeader.DeliveryNoteInType = _DeliveryNoteInType + + + For _ik = 0 To _DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 + Dim _DeliveryNoteInRows As DeliveryNoteInRows = _ocur.CreateObject(Of DeliveryNoteInRows)() + Dim _QTT_Process As Double = 0 + Dim _DeliveryNoteInFromOffersInRowsRows As DeliveryNoteInFromOffersInRowsRows = _ocur.GetObject(TryCast(_DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects(_ik), DeliveryNoteInFromOffersInRowsRows)) + _QTT_Process = TryCast(_DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects(_ik), DeliveryNoteInFromOffersInRowsRows).QTT_Process 'szándék + + _DeliveryNoteInRows.DeliveryNoteInHeader = _DeliveryNoteInHeader + _DeliveryNoteInRows.OfferInRows = _DeliveryNoteInFromOffersInRowsRows.OfferInRows + _DeliveryNoteInRows.Products = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product + _DeliveryNoteInRows.QTT = _QTT_Process + + _DeliveryNoteInRows.VAT = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product.VAT + _DeliveryNoteInRows.Units = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product.Units + + + _DeliveryNoteInRows.ListPriceHUF = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.FinalPriceHUF + _DeliveryNoteInRows.ListPriceDEV = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.FinalPriceDEV + + _DeliveryNoteInRows.DiscountPriceHUF = 0 + _DeliveryNoteInRows.DiscountPriceDEV = 0 + + _DeliveryNoteInRows.RowIndex = _ik + 1 + + '_DeliveryNoteInRows.Save() + Next + '_DeliveryNoteInHeader.Save() + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "DeliveryNoteInHeader_DetailView", False, _onew.GetObject(_DeliveryNoteInHeader)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub aOfferIn_RegenerateDEV_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_RegenerateDEV.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferIn_RegenerateDEV_Popup As OfferIn_RegenerateDEV_Popup = _onew.CreateObject(Of OfferIn_RegenerateDEV_Popup)() + Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader)) + + Dim _CurrencyRate_Collection As New XPCollection(Of CurrencyRate)(_onew.Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True", _OfferInHeader.CurrencyName)) + Dim _CurrencyRate As CurrencyRate + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + + _OfferIn_RegenerateDEV_Popup.CurrencyName = _OfferInHeader.CurrencyName + _OfferIn_RegenerateDEV_Popup.PriceMode = ePriceMode.eDEVToHUF + + For Each _CurrencyRate In _CurrencyRate_Collection + _OfferIn_RegenerateDEV_Popup.CurrencyRate = _CurrencyRate.RateAverage + _OfferIn_RegenerateDEV_Popup.DateExecution = _CurrencyRate.DateValid + Exit For + Next + + e.View = Application.CreateDetailView(_onew, "OfferIn_RegenerateDEV_Popup_DetailView", False, _OfferIn_RegenerateDEV_Popup) + + End Sub + + Private Sub aOfferIn_RegenerateDEV_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_RegenerateDEV.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = _ocur.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader)) + Dim _OfferIn_RegenerateDEV_Popup As OfferIn_RegenerateDEV_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferIn_RegenerateDEV_Popup) + Dim _OfferInRows As OfferInRows + + For Each _OfferInRows In _OfferInHeader.OfferInRows + If _OfferIn_RegenerateDEV_Popup.PriceMode = ePriceMode.eDEVToHUF Then + _OfferInRows.FinalPriceHUF = Math.Round(_OfferInRows.FinalPriceDEV * _OfferIn_RegenerateDEV_Popup.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + If _OfferIn_RegenerateDEV_Popup.CurrencyRate <> 0 Then + _OfferInRows.FinalPriceDEV = Math.Round(_OfferInRows.FinalPriceHUF / _OfferIn_RegenerateDEV_Popup.CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + _ocur.CommitChanges() + End Sub + Private Sub aOfferInHeader_AddOfferOutHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOfferInHeader_AddOfferOutHeader.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + + Dim _OfferOutHeader_CollectionSource As New CollectionSource(_onew, GetType(OfferOutHeader)) + + _OfferOutHeader_CollectionSource.BeginUpdateCriteria() + _OfferOutHeader_CollectionSource.Criteria.Add("CRM", CriteriaOperator.Parse("CRM_Opportunities=?", _onew.GetObject(_OfferInHeader.CRM_Opportunities))) + _OfferOutHeader_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("OfferOutHeader_ListView_OfferOutHeaderInHeader", _OfferOutHeader_CollectionSource, False) + End Sub + Private Sub aOfferInHeader_AddOfferOutHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOfferInHeader_AddOfferOutHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader) + + For Each _OfferOutHeader As OfferOutHeader In e.PopupWindow.View.SelectedObjects + Dim _OfferOutHeaderInHeader As New OfferOutHeaderInHeader(_ocur.Session) + With _OfferOutHeaderInHeader + .OfferInHeader = _OfferInHeader + .OfferOutHeader = _ocur.GetObject(_OfferOutHeader) + End With + Next + + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutCostRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutCostRows.vb new file mode 100644 index 0000000..4c35614 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutCostRows.vb @@ -0,0 +1,216 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OfferOutCostRows 'Az ajnlat egyes sorai mennyibe kerlnek ? + Inherits BaseObject + Private _OfferOutHeader As OfferOutHeader + Private _OfferOutRows As OfferOutRows + + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _RowIndex As Long 'Sor index (mozgathatnak kell lennie !) + + Private _ShortName As String + Private _Description As String + Private _QTT As Double + Private _Units As Units + + Private _FinalPriceHUF_Out As Double + Private _FinalPriceDEV_Out As Double + Private _SumPriceHUF_Out As Double + Private _SumPriceDEV_Out As Double + + Private _FinalPriceHUF_In As Double + Private _FinalPriceDEV_In As Double + Private _SumPriceHUF_In As Double + Private _SumPriceDEV_In As Double + + Private _DifferentPercent As Double + Private _DifferentHUF As Double + Private _DifferentDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + Property OfferOutRows As OfferOutRows + Get + Return _OfferOutRows + End Get + Set(value As OfferOutRows) + SetPropertyValue("OfferOutRows", _OfferOutRows, value) + End Set + End Property + + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + + Property FinalPriceHUF_Out As Double + Get + Return _FinalPriceHUF_Out + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF_Out", _FinalPriceHUF_Out, value) + End Set + End Property + Property FinalPriceDEV_Out As Double + Get + Return _FinalPriceDEV_Out + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV_Out", _FinalPriceDEV_Out, value) + End Set + End Property + Property SumPriceHUF_Out As Double + Get + Return _SumPriceHUF_Out + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF_Out", _SumPriceHUF_Out, value) + End Set + End Property + Property SumPriceDEV_Out As Double + Get + Return _SumPriceDEV_Out + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV_Out", _SumPriceDEV_Out, value) + End Set + End Property + + Property FinalPriceHUF_In As Double + Get + Return _FinalPriceHUF_In + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF_In", _FinalPriceHUF_In, value) + End Set + End Property + Property FinalPriceDEV_In As Double + Get + Return _FinalPriceDEV_In + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV_In", _FinalPriceDEV_In, value) + End Set + End Property + Property SumPriceHUF_In As Double + Get + Return _SumPriceHUF_In + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF_In", _SumPriceHUF_In, value) + End Set + End Property + Property SumPriceDEV_In As Double + Get + Return _SumPriceDEV_In + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV_In", _SumPriceDEV_In, value) + End Set + End Property + + Property DifferentPercent As Double + Get + Return _DifferentPercent + End Get + Set(value As Double) + SetPropertyValue("DifferentPercent", _DifferentPercent, value) + End Set + End Property + Property DifferentHUF As Double + Get + Return _DifferentHUF + End Get + Set(value As Double) + SetPropertyValue("DifferentHUF", _DifferentHUF, value) + End Set + End Property + Property DifferentDEV As Double + Get + Return _DifferentDEV + End Get + Set(value As Double) + SetPropertyValue("DifferentDEV", _DifferentDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeader.vb new file mode 100644 index 0000000..453c0e3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeader.vb @@ -0,0 +1,870 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Imports System.Linq +Imports System.Linq.Expressions + +'-- Kimenő árajánlatok -- + +' _ + + _ + 2", AppearanceItemType.ViewItem, "OfferOutState <> 2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _ + 7", AppearanceItemType.ViewItem, "OfferLOSTReason <> 7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +'HUF'", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class OfferOutHeader + Inherits BaseObject + Private _OfferOutParameters As OfferOutParameters 'Árajánlat paramétere, ami a sorszámot és egyéb tul. meghat. + Private _OfferOutState As eOfferOutState 'Ajánlat státusz, hol tart jelenleg + Private _OfferLOSTReason As eOfferOutLOSTReason 'Ha nem fogadták el, miért ? + Private _OfferLOSTReasonDescription As String ' Ha nem fogadták el és eOther akkor szövegesen beírni ! + Private _DocumentNumber As String 'Árajánlat száma (generálódik) + Private _DocumentOutNumber As String 'Árajánlat változati szám + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Partner, akire az árajánlat szól (ez nem kötelező, de a contactból ismerje fel !) + Private _Contact As Contacts 'Kapcsolat, akire az árajánlat szól (ez a fő !!! kötelező) + Private _DateCreated As Date 'Kiállítás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _DatePayment As Date 'Fiz. hat + Private _DateDue As Date 'Érvényesség dátuma + Private _Description As String 'Leírás (fejlécen) + Private _PaymentOption As PaymentOption 'Fizetési opció + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + Private _CurrencyName As CurrencyName 'Deviza + Private _SumPriceHUF As Double = 0 'Árajánlat összesített értéke HUF + Private _SumPriceDEV As Double = 0 'Árajánlat összesített értéke DEV + Private _ObjectCreated As Date 'Maga az objektum mikor készült el + Private _UserCreated As User 'Ki csinálta az ajánlatot + Private _IsEditable As Boolean = True 'Szerkeszthető vagy végleges ajánlat + Private _IsStorno As Boolean = False 'Stornírozott ajánlat + Private _DocumentBody As String 'RichText dokumentum test + Private _ExcelProperty As String 'Excel !!! + Private _ExcelFile As FileData + Private _PDF_Original As FileData + Private _WorkflowSystemSteps As WorkflowSystemSteps + Private _MasterBusinessDirectory As BusinessDirectory + Private _DocumentPath As String 'Windows Explorer path + + '--- Sorok rögzítéséhez nonpersistent propertyk + Private _row_RowType As eRowType 'Sor tipus + Private _row_Products As Products 'Termék + Private _row_Installation As Installation 'Gyártmány + Private _row_ShortName As String 'Megnevezés + Private _row_Description As String 'Leírás + Private _row_QTT As Double 'Mennyiség + Private _row_Units As Units 'Mennyiségi egység + Private _row_VAT As VAT 'ÁFA kód + Private _row_ListPriceHUF As Double 'Termék listaára HUF + Private _row_ListPriceDEV As Double 'Termék listaára DEV + Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban + Private _row_RowGroup1 As String 'Csoportosító sor1 + Private _row_RowGroup2 As String 'Csoportosító sor2 + '--- CRM miatt ---------------------------------------------- + Private _CRM_Opportunities As CRM_Opportunities + Private _OtherCostPercent As Double 'egyéb sorokra vonatkozó általánios bekrülési % + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + Me.DateExecution = GetSQLTime(Session) + Me.DateCreated = GetSQLTime(Session) + Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName = 'HUF'")) + Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = Me.OfferOutParameters.NumberGenerator.GetNewNumber(Me.OfferOutParameters.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If Me.OfferOutParameters IsNot Nothing Then + If Me.OfferOutParameters.MasterBusinessDirectory IsNot Nothing Then + Dim _BusinessDirectory As New BusinessDirectory(Session) + _BusinessDirectory.ShortName = DocumentNumber + _BusinessDirectory.BusinessDirectory_Parent = Me.OfferOutParameters.MasterBusinessDirectory + _BusinessDirectory.IsDashBoard = False + _BusinessDirectory.Save() + End If + End If + End If + End Sub + Function CalculatePriceNettoHUF() As Double + Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza + + For Each _PricingFix As PricingFix In Me.Customers.Pricing.PricingFix '1. Fix árat megnézni + If _PricingFix.Products Is row_Products Then + Return _PricingFix.PriceNetto + End If + Next + For Each _PricingFixStaged As PricingFixStaged In Me.Customers.Pricing.PricingFixStaged '2. Fix lépcsõs árat megnézni + If _PricingFixStaged.Products Is Me.row_Products Then + If Me.row_QTT >= _PricingFixStaged.VolumeFrom And Me.row_QTT <= _PricingFixStaged.VolumeTo Then + Return _PricingFixStaged.PriceNetto + Else + _i = _i + 1 + End If + If _i >= Me.Customers.Pricing.PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár + Return Me.row_Products.ListPriceOutHUF + End If + End If + Next + For Each _PricingProductsGroups As PricingProductsGroups In Me.Customers.Pricing.PricingProductsGroups '3. Termékcsoport árat megnézni + If _PricingProductsGroups.ProductsGroups Is Me.row_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény + Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent + Return Me.row_Products.ListPriceOutHUF - ((_PricingProductsGroups.DiscountPercent / 100) * Me.row_Products.ListPriceOutHUF) + Else + Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent + Return RecurziveProductsGroupsHUF(Me.row_Products, _PricingProductsGroups, Me.row_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás + End If + Next + End Function + Function CalculatePriceNettoDEV() As Double + Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza + + For Each _PricingFix As PricingFix In Me.Customers.Pricing.PricingFix '1. Fix árat megnézni + If _PricingFix.Products Is row_Products Then + Return _PricingFix.PriceNetto + End If + Next + For Each _PricingFixStaged As PricingFixStaged In Me.Customers.Pricing.PricingFixStaged '2. Fix lépcsõs árat megnézni + If _PricingFixStaged.Products Is Me.row_Products Then + If Me.row_QTT >= _PricingFixStaged.VolumeFrom And Me.row_QTT <= _PricingFixStaged.VolumeTo Then + Return _PricingFixStaged.PriceNetto + Else + _i = _i + 1 + End If + If _i >= Me.Customers.Pricing.PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár + Return Me.row_Products.ListPriceOutDEV + End If + End If + Next + For Each _PricingProductsGroups As PricingProductsGroups In Me.Customers.Pricing.PricingProductsGroups '3. Termékcsoport árat megnézni + If _PricingProductsGroups.ProductsGroups Is Me.row_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény + Return Me.row_Products.ListPriceOutDEV - ((_PricingProductsGroups.DiscountPercent / 100) * Me.row_Products.ListPriceOutDEV) + Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent + Else + Return RecurziveProductsGroupsDEV(Me.row_Products, _PricingProductsGroups, Me.row_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás + Me.row_DiscountPercent = _PricingProductsGroups.DiscountPercent + End If + Next + End Function + Function RecurziveProductsGroupsHUF(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) As Double + 'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza + If _p_ProductsGroups.Parent IsNot Nothing Then + If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then + Return _p_Products.ListPriceOutHUF - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral. + End If + RecurziveProductsGroupsHUF(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen + End If + Return _p_Products.ListPriceOutHUF ' Visszatérés az eredeti listaárral + End Function + Function RecurziveProductsGroupsDEV(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) As Double + 'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza + If _p_ProductsGroups.Parent IsNot Nothing Then + If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then + Return _p_Products.ListPriceOutDEV - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral. + End If + RecurziveProductsGroupsDEV(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen + End If + Return _p_Products.ListPriceOutDEV ' Visszatérés az eredeti listaárral + End Function + + _ + _ + Property OfferOutParameters As OfferOutParameters + Get + Return _OfferOutParameters + End Get + Set(ByVal value As OfferOutParameters) + SetPropertyValue("OfferOutParameters", _OfferOutParameters, value) + End Set + End Property + _ + Property OfferOutState As eOfferOutState + Get + Return _OfferOutState + End Get + Set(ByVal value As eOfferOutState) + SetPropertyValue("OfferOutState", _OfferOutState, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case OfferOutState + Case eOfferOutState.eClosedWON + OfferLOSTReason = eOfferOutLOSTReason.eNotSet + Case eOfferOutState.eInProgress + OfferLOSTReason = eOfferOutLOSTReason.eNotSet + Case eOfferOutState.eInThinkingOf + OfferLOSTReason = eOfferOutLOSTReason.eNotSet + End Select + End If + End Set + End Property + _ + _ + Property OfferLOSTReason As eOfferOutLOSTReason + Get + Return _OfferLOSTReason + End Get + Set(ByVal value As eOfferOutLOSTReason) + SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case OfferLOSTReason + Case eOfferOutLOSTReason.eNotSet + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eTooExpensive + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eTooLate + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eChooseConcurrency + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eQualityProblem + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eNoAnswer + OfferLOSTReasonDescription = "" + Case eOfferOutLOSTReason.eWINOther + OfferLOSTReasonDescription = "" + End Select + End If + End Set + End Property + _ + _ + _ + Property OfferLOSTReasonDescription As String + Get + Return _OfferLOSTReasonDescription + End Get + Set(ByVal value As String) + SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DocumentOutNumber As String + Get + Return _DocumentOutNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentOutNumber", _DocumentOutNumber, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If value IsNot Nothing Then + If value.PaymentOption IsNot Nothing And Me.PaymentOption Is Nothing Then + Me.PaymentOption = value.PaymentOption + End If + If value.ShipmentOption IsNot Nothing And Me.ShipmentOption Is Nothing Then + Me.ShipmentOption = value.ShipmentOption + End If + If value.QualityOption IsNot Nothing And Me.QualityOption Is Nothing Then + Me.QualityOption = value.QualityOption + End If + End If + End If + End Set + End Property + _ + _ + _ + Property Contact As Contacts + Get + Return _Contact + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contact", _Contact, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then + Me.Customers = Me.Contact.Customers + End If + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property DateDue As Date + Get + Return _DateDue + End Get + Set(ByVal value As Date) + SetPropertyValue("DateDue", _DateDue, value) + End Set + End Property + + + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay) + End If + End Set + End Property + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + Property PDF_Original As FileData + Get + Return _PDF_Original + End Get + Set(value As FileData) + SetPropertyValue("PDF_Original", _PDF_Original, value) + End Set + End Property + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + End Set + End Property + + _ + ReadOnly Property SumPriceHUF As Double + Get + '// Át kell nézni, mert nem jó ! + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + _SumPriceHUF = 0 + For Each detail As OfferOutRows In OfferOutRows + _SumPriceHUF += detail.SumPriceHUF + Next + Return _SumPriceHUF + End If + End Get + End Property + _ + ReadOnly Property SumPriceDEV As Double + Get + '// Át kell nézni, mert nem jó ! + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + _SumPriceDEV = 0 + For Each detail As OfferOutRows In Me.OfferOutRows + _SumPriceDEV += detail.SumPriceDEV + Next + Return _SumPriceDEV + End If + End Get + End Property + + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + Public ReadOnly Property OfferOutRows() As XPCollection(Of OfferOutRows) + Get + Return GetCollection(Of OfferOutRows)("OfferOutRows") + End Get + End Property + _ + _ + Public ReadOnly Property OfferOutCostRows() As XPCollection + Get + Return GetCollection("OfferOutCostRows") + End Get + End Property + _ + _ + Public ReadOnly Property OfferOutVATRows() As XPCollection + Get + Return GetCollection("OfferOutVATRows") + End Get + End Property + Public ReadOnly Property OfferInHeader As XPCollection(Of OfferInHeader) + Get + Dim _OfferInHeader_Collection As New XPCollection(Of OfferInHeader)(Session, CriteriaOperator.Parse("1=2")) + Dim _OfferOutHeaderInHeader_Collection As New XPCollection(Of OfferOutHeaderInHeader)(Session, CriteriaOperator.Parse("OfferOutHeader=?", Me)) + + For Each _OfferOutHeaderInHeader As OfferOutHeaderInHeader In _OfferOutHeaderInHeader_Collection + _OfferInHeader_Collection.Add(_OfferOutHeaderInHeader.OfferInHeader) + Next + + Return _OfferInHeader_Collection + End Get + End Property + + '--Nonpersistent propertyk + _ + _ + _ + Property row_RowType As eRowType + Get + Return _row_RowType + End Get + Set(value As eRowType) + SetPropertyValue("row_RowType", _row_RowType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.row_RowType = eRowType.IsOther Then + Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'")) + + Dim _DefaultVAT As VAT = Nothing + Dim _VAT_Collection As New XPCollection(Of VAT)(Session) + + For Each _VAT As VAT In _VAT_Collection + If _VAT.DefaultForBusinnes = True Then + _DefaultVAT = _VAT + Exit For + End If + Next + + If _DefaultVAT IsNot Nothing Then + Me.row_VAT = _DefaultVAT + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(ByVal value As Products) + SetPropertyValue("row_Products", _row_Products, value) + + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then + If Me.Customers.Pricing IsNot Nothing And Me.OfferOutParameters.OfferOutMainType = eOfferOutMainType.eFromProducts And Me.row_QTT > 0 Then + If Me.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF + Me.row_ListPriceHUF = CalculatePriceNettoHUF() + Else ' Ha a deviza nem HUF + Me.row_ListPriceDEV = CalculatePriceNettoDEV() ' A kedvezményt tartalmazó listaár DEV-ben + End If + End If + If Me.Customers.Pricing Is Nothing Then + If Me.CurrencyName.ShortName = "HUF" Then ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék + Me.row_ListPriceHUF = Me.row_Products.ListPriceOutHUF + End If + If Me.CurrencyName.ShortName <> "HUF" Then + Me.row_ListPriceDEV = Me.row_Products.ListPriceOutDEV + End If + End If + End If + + End Set + End Property + _ + _ + _ + _ + Property row_Installation As Installation + Get + Return _row_Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("row_Installation", _row_Installation, value) + End Set + End Property + _ + _ + _ + _ + Property row_ShortName As String + Get + Return _row_ShortName + End Get + Set(value As String) + SetPropertyValue("row_ShortName", _row_ShortName, value) + End Set + End Property + _ + _ + _ + _ + Property row_Description As String + Get + Return _row_Description + End Get + Set(value As String) + SetPropertyValue("row_Description", _row_Description, value) + End Set + End Property + _ + _ + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value > 0 Then + If Me.Customers.Pricing IsNot Nothing And Me.OfferOutParameters.OfferOutMainType = eOfferOutMainType.eFromProducts And Me.row_Products IsNot Nothing Then + If Me.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF + Me.row_ListPriceHUF = CalculatePriceNettoHUF() + Else ' Ha a deviza nem HUF + Me.row_ListPriceDEV = CalculatePriceNettoDEV() ' A kedvezményt tartalmazó listaár DEV-ben + End If + End If + If Me.Customers.Pricing Is Nothing Then + If Me.row_ListPriceHUF = 0 And Me.CurrencyName.ShortName = "HUF" Then ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék + Me.row_ListPriceHUF = Me.row_Products.ListPriceOutHUF + End If + If Me.row_ListPriceDEV = 0 And Me.CurrencyName.ShortName <> "HUF" Then + Me.row_ListPriceDEV = Me.row_Products.ListPriceOutDEV + End If + End If + End If + + End Set + End Property + _ + _ + _ + _ + Property row_Units As Units + Get + Return _row_Units + End Get + Set(value As Units) + SetPropertyValue("row_Units", _row_Units, value) + End Set + End Property + _ + _ + _ + Property row_VAT As VAT + Get + Return _row_VAT + End Get + Set(value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceHUF As Double + Get + Return _row_ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceDEV As Double + Get + Return _row_ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value) + End Set + End Property + _ + _ + _ + Property row_DiscountPercent As Double + Get + Return _row_DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value) + End Set + End Property + _ + _ + Property row_RowGroup1 As String + Get + Return _row_RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _row_RowGroup1, value) + End Set + End Property + _ + _ + Property row_RowGroup2 As String + Get + Return _row_RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _row_RowGroup2, value) + End Set + End Property + '-- CRM miatt + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(ByVal value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Property OtherCostPercent As Double + Get + Return _OtherCostPercent + End Get + Set(value As Double) + SetPropertyValue("OtherCostPercent", _OtherCostPercent, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + _ + Property DocumentPath As String + Get + Return _DocumentPath + End Get + Set(value As String) + SetPropertyValue("DocumentPath", _DocumentPath, value) + End Set + End Property + + _ + Public ReadOnly Property OfferOutHeader_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + Return _BusinessDirectory_Collection + End Get + End Property + +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region + Sub RecalculateOfferOut(ByVal _OfferOutHeader As OfferOutHeader, ByVal _ocur As Xpo.XPObjectSpace) + '-- A rutin újragenerálja a pénzügyi sorokat + Dim _OfferOutVATRows As OfferOutVATRows + Dim i As Long = 1 + Dim j As Long = 1 + Dim _Exists As Boolean = False + + Session.Delete(_OfferOutHeader.OfferOutVATRows) + Dim OfferRows = New XPQuery(Of OfferOutRows)(_ocur.Session) + Dim query = From OfferRow In OfferRows Where OfferRow.OfferOutHeader.Oid = _OfferOutHeader.Oid _ + Group OfferRow By OfferRow.VAT Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.FinalPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.FinalPriceDEV) * inv.QTT), _ + Key .S2 = g.Sum(Function(inv) inv.FinalPriceDEV), _ + Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} + 'Select New With {Key .VAT = VAT, _ + ' Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + ' Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _ + ' Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _ + ' Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} + For Each item In query + _OfferOutVATRows = _ocur.CreateObject(Of OfferOutVATRows)() + _OfferOutVATRows.OfferOutHeader = _OfferOutHeader + _OfferOutVATRows.VAT = item.VAT + _OfferOutVATRows.AmountNettoHUF = Math.Round(item.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _OfferOutVATRows.AmountVATHUF = 0 + If item.VAT IsNot Nothing Then + _OfferOutVATRows.AmountVATHUF = Math.Round(item.VAT.KeyValue * _OfferOutVATRows.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + End If + _OfferOutVATRows.AmountBruttoHUF = _OfferOutVATRows.AmountNettoHUF + _OfferOutVATRows.AmountVATHUF + + _OfferOutVATRows.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + _OfferOutVATRows.AmountVATDEV = 0 + If item.VAT IsNot Nothing Then + _OfferOutVATRows.AmountVATDEV = Math.Round(item.VAT.KeyValue * _OfferOutVATRows.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + End If + _OfferOutVATRows.AmountBruttoDEV = _OfferOutVATRows.AmountNettoDEV + _OfferOutVATRows.AmountVATDEV + + _OfferOutVATRows.Save() + _OfferOutHeader.OfferOutVATRows.Add(_OfferOutVATRows) + Next + + _OfferOutHeader.Save() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeaderInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeaderInHeader.vb new file mode 100644 index 0000000..a17dbd6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutHeaderInHeader.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OfferOutHeaderInHeader + Inherits BaseObject + + Private _OfferInHeader As OfferInHeader + Private _OfferOutHeader As OfferOutHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property OfferInHeader As OfferInHeader + Get + Return _OfferInHeader + End Get + Set(value As OfferInHeader) + SetPropertyValue("OfferInHeader", _OfferInHeader, value) + End Set + End Property + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutRTF.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutRTF.vb new file mode 100644 index 0000000..6db8ddb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutRTF.vb @@ -0,0 +1,24 @@ +Public Class OfferOutRTF + + Property [Sajátcég_Teljesnév] As String + Property [Sajátcég_Irányítószám] As String + Property [Sajátcég_Város] As String + Property [Sajátcég_Utca] As String + Property [Sajátcég_Ország] As String + Property [Sajátcég_Adószám] As String + Property [Sajátcég_Adószám_EU] As String + + Property [Partner_Teljesnév] As String + Property [Partner_Irányítószám] As String + Property [Partner_Város] As String + Property [Partner_Utca] As String + Property [Partner_Ország] As String + Property [Partner_Adószám] As String + Property [Partner_Adószám_EU] As String + + Property [Kapcsolat_Teljesnév] As String + Property [Kapcsolat_Email] As String + Property [Kapcsolat_Mobil] As String + + Property [Ajánlat_Dokumentum_Sorszám] As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutVATRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutVATRows.vb new file mode 100644 index 0000000..20787c7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OfferOutVATRows.vb @@ -0,0 +1,98 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OfferOutVATRows + Inherits BaseObject + Private _OfferOutHeader As OfferOutHeader + Private _VAT As VAT + Private _AmountNettoHUF As Double + Private _AmountVATHUF As Double + Private _AmountBruttoHUF As Double + Private _AmountNettoDEV As Double + Private _AmountVATDEV As Double + Private _AmountBruttoDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + Property AmountVATHUF As Double + Get + Return _AmountVATHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATHUF", _AmountVATHUF, value) + End Set + End Property + Property AmountBruttoHUF As Double + Get + Return _AmountBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value) + End Set + End Property + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + Property AmountVATDEV As Double + Get + Return _AmountVATDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATDEV", _AmountVATDEV, value) + End Set + End Property + Property AmountBruttoDEV As Double + Get + Return _AmountBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutParameters.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutParameters.vb new file mode 100644 index 0000000..02a9763 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutParameters.vb @@ -0,0 +1,158 @@ + +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OfferOutParameters + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _OfferOutMainType As eOfferOutMainType 'Fő tipus 1 + Private _OfferOutMainType2 As eOfferOutMainType2 'Fő tipus 2 + Private _ShortName As String 'Rövid megnevezés + Private _Description As String 'Leírás + Private _NumberGenerator As NumberGenerator 'Sorszám generátor + Private _IsGenerateNumber_First As Boolean = False 'Generáljon e azonnal sorszámot a kimenő árajánlatnak + Private _ReportData As ReportData ' Kimenő árajánlat 0. nyomtatvány + Private _ReportData1 As ReportData 'Kimenő árajánlat 1. nyomtatvány + Private _ReportData2 As ReportData 'Kimenő árajánlat 2. nyomtatvány + Private _ReportData3 As ReportData 'Kimenő árajánlat 3. nyomtatvány + Private _AlertPeriod As AlertPeriod 'Figyelmeztetési paraméter + Private _DocumentBody As String 'RTF template + Private _WorkflowSystem As WorkflowSystem + Private _MasterBusinessDirectory As BusinessDirectory 'Mi alatt hozza létre a dokumentumtárat. + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property OfferOutMainType As eOfferOutMainType + Get + Return _OfferOutMainType + End Get + Set(ByVal value As eOfferOutMainType) + SetPropertyValue("OfferOutMainType", _OfferOutMainType, value) + End Set + End Property + Property OfferOutMainType2 As eOfferOutMainType2 + Get + Return _OfferOutMainType2 + End Get + Set(ByVal value As eOfferOutMainType2) + SetPropertyValue("OfferOutMainType2", _OfferOutMainType2, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property IsGenerateNumber_First As Boolean + Get + Return _IsGenerateNumber_First + End Get + Set(value As Boolean) + SetPropertyValue("IsGenerateNumber_First", _IsGenerateNumber_First, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportData1 As ReportData + Get + Return _ReportData1 + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData1", _ReportData1, value) + End Set + End Property + Property ReportData2 As ReportData + Get + Return _ReportData2 + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData2", _ReportData2, value) + End Set + End Property + Property ReportData3 As ReportData + Get + Return _ReportData3 + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData3", _ReportData3, value) + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + Property WorkflowSystem As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.Designer.vb new file mode 100644 index 0000000..48fcb9f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.Designer.vb @@ -0,0 +1,115 @@ +Partial Class OffersOutPrintVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Me.aOffersOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOfferOutPrintChoice = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components) + Me.aOffersOutPrintPDF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOffersOutPrintPDF2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOffersOutPrint + ' + Me.aOffersOutPrint.Caption = "Print document" + Me.aOffersOutPrint.Category = "View" + Me.aOffersOutPrint.ConfirmationMessage = Nothing + Me.aOffersOutPrint.Id = "aOffersOutPrint" + Me.aOffersOutPrint.ImageName = "Action_Printing_Print" + Me.aOffersOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOffersOutPrint.Shortcut = Nothing + Me.aOffersOutPrint.Tag = Nothing + Me.aOffersOutPrint.TargetObjectsCriteria = Nothing + Me.aOffersOutPrint.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aOffersOutPrint.TargetViewId = Nothing + Me.aOffersOutPrint.ToolTip = Nothing + Me.aOffersOutPrint.TypeOfView = Nothing + ' + 'aOfferOutPrintChoice + ' + Me.aOfferOutPrintChoice.Caption = "Print document" + Me.aOfferOutPrintChoice.ConfirmationMessage = Nothing + Me.aOfferOutPrintChoice.Id = "aOfferOutPrintChoice" + Me.aOfferOutPrintChoice.ImageName = "Action_Printing_Print" + ChoiceActionItem1.Caption = "Standard" + ChoiceActionItem1.Data = "0" + ChoiceActionItem1.ImageName = Nothing + ChoiceActionItem1.Shortcut = Nothing + ChoiceActionItem2.Caption = "Contract" + ChoiceActionItem2.Data = "1" + ChoiceActionItem2.ImageName = Nothing + ChoiceActionItem2.Shortcut = Nothing + Me.aOfferOutPrintChoice.Items.Add(ChoiceActionItem1) + Me.aOfferOutPrintChoice.Items.Add(ChoiceActionItem2) + Me.aOfferOutPrintChoice.Shortcut = Nothing + Me.aOfferOutPrintChoice.Tag = Nothing + Me.aOfferOutPrintChoice.TargetObjectsCriteria = Nothing + Me.aOfferOutPrintChoice.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aOfferOutPrintChoice.TargetViewId = Nothing + Me.aOfferOutPrintChoice.ToolTip = Nothing + Me.aOfferOutPrintChoice.TypeOfView = Nothing + ' + 'aOffersOutPrintPDF + ' + Me.aOffersOutPrintPDF.Caption = "Print document PDF" + Me.aOffersOutPrintPDF.Category = "View" + Me.aOffersOutPrintPDF.ConfirmationMessage = Nothing + Me.aOffersOutPrintPDF.Id = "aOffersOutPrintPDF" + Me.aOffersOutPrintPDF.ImageName = "Action_Printing_Print" + Me.aOffersOutPrintPDF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOffersOutPrintPDF.Shortcut = Nothing + Me.aOffersOutPrintPDF.Tag = Nothing + Me.aOffersOutPrintPDF.TargetObjectsCriteria = Nothing + Me.aOffersOutPrintPDF.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aOffersOutPrintPDF.TargetViewId = Nothing + Me.aOffersOutPrintPDF.ToolTip = Nothing + Me.aOffersOutPrintPDF.TypeOfView = Nothing + ' + 'aOffersOutPrintPDF2 + ' + Me.aOffersOutPrintPDF2.Caption = "Print document PDF" + Me.aOffersOutPrintPDF2.Category = "View" + Me.aOffersOutPrintPDF2.ConfirmationMessage = Nothing + Me.aOffersOutPrintPDF2.Id = "aOffersOutPrintPDF2" + Me.aOffersOutPrintPDF2.ImageName = "Action_Printing_Print" + Me.aOffersOutPrintPDF2.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOffersOutPrintPDF2.Shortcut = Nothing + Me.aOffersOutPrintPDF2.Tag = Nothing + Me.aOffersOutPrintPDF2.TargetObjectsCriteria = Nothing + Me.aOffersOutPrintPDF2.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aOffersOutPrintPDF2.TargetViewId = Nothing + Me.aOffersOutPrintPDF2.ToolTip = Nothing + Me.aOffersOutPrintPDF2.TypeOfView = Nothing + + End Sub + Public WithEvents aOffersOutPrint As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aOfferOutPrintChoice As DevExpress.ExpressApp.Actions.SingleChoiceAction + Public WithEvents aOffersOutPrintPDF As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aOffersOutPrintPDF2 As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.resx new file mode 100644 index 0000000..aedf573 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 171, 146 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.vb new file mode 100644 index 0000000..0d71d58 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutPrintVC.vb @@ -0,0 +1,158 @@ +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.XtraReports.UI +Imports DevExpress.XtraReports.Parameters +Imports DevExpress.ExpressApp.Reports +Imports DevExpress.Persistent.BaseImpl +Imports System.IO + +Public Class OffersOutPrintVC + Inherits DevExpress.ExpressApp.ViewController + Private _ReportServiceController As ReportServiceController + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "OfferOutHeader_DetailView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF2.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF.Active.SetItemValue("", False) + End If + If View.Id = "OfferOutHeader_ListView_Subcontractor" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF2.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrintPDF.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferOutHeader_DetailView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutPrintVC).aOffersOutPrint.Active.SetItemValue("", False) + End If + End Sub + Public Sub aOffersOutPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutPrint.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader + Dim _ReportData As ReportData + + If e.SelectedObjects.Count > 0 Then + _OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + + If _OfferOutHeader IsNot Nothing Then + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem IsNot Nothing Then + If _OfferOutHeader.IsEditable = True Then + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + _ocur.CommitChanges() + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "0" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader), True) + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "1" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader), True) + End If + Else + Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + End If + End If + End If + End Sub + Public Sub aOfferOutPrintChoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SingleChoiceActionExecuteEventArgs) Handles aOfferOutPrintChoice.Execute + If e.SelectedObjects.Count > 0 Then + Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + Dim _ReportData As ReportData = Nothing + + If _OfferOutHeader IsNot Nothing Then + Select Case e.SelectedChoiceActionItem.Data + Case 0 'Standard + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + Case 1 'Contract + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + Case 2 'Other + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData2 + End Select + 'If _ReportData IsNot Nothing Then + ' Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader),true) + 'End If + End If + End If + End Sub + + Private Sub aOffersOutPrintPDF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutPrintPDF.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _ReportData As ReportData = Nothing + + If _OfferOutHeader IsNot Nothing Then + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem IsNot Nothing Then + If _OfferOutHeader.IsEditable = True Then + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + _ocur.CommitChanges() + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "0" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData + End If + If Frame.GetController(Of OffersOutPrintVC).aOfferOutPrintChoice.SelectedItem.Data = "1" Then + _ReportData = _OfferOutHeader.OfferOutParameters.ReportData1 + End If + Else + Throw New Exception("*Nincs nyomtatvány típus kiválasztva!") + End If + + If _ReportData IsNot Nothing Then + Dim _XafReport As XafReport = _ReportData.LoadReport(_ocur) + Dim _FilterString As String = "[OfferOutHeader.Oid]='" & _OfferOutHeader.Oid.ToString & "'" + _XafReport.FilterString = _FilterString + Dim _FileName As String = Path.GetTempPath & CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + _StreamFile = New FileStream(_FileName, FileMode.Open, FileAccess.Read) + Dim _StreamReader As New StreamReader(_StreamFile) + _StreamFile.Seek(0, SeekOrigin.Begin) + _OfferOutHeader.PDF_Original = New FileData(_ocur.Session) + _OfferOutHeader.PDF_Original.LoadFromStream(_FileName, _StreamFile) + _OfferOutHeader.PDF_Original.FileName = CorrectFileName(_OfferOutHeader.DocumentNumber) & ".pdf" + + _StreamReader.Close() + _StreamFile.Close() + + _ocur.CommitChanges() + + If File.Exists(_FileName) Then File.Delete(_FileName) + End If + End If + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutRows.vb new file mode 100644 index 0000000..f5d148e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutRows.vb @@ -0,0 +1,386 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + + _ + _ + _ +Public Class OfferOutRows + Inherits BaseObject + Private _OfferOutHeader As OfferOutHeader 'Árajánlat fejléce + Private _RowType As eRowType 'Sor miről szól ? + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _Product As Products 'Termék + Private _Installation As Installation 'Gyártmány + Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !) + Private _CustomsTariffs As CustomsTariffs 'Vámtarifaszám, vagy szj szám vagy még ami lesz + Private _ShortName As String 'Megnevezés -> Ez megy majd rá később a számlára is ! + Private _Description As String 'Leírás -> ez is rá fog menni a számlára ! + Private _DescriptionPrivate As String 'Na ez csak látszódjon, de nem menjen föl semmilyen doksira !!! + Private _ListPriceHUF As Double = 0 'Listaár HUF + Private _ListPriceDEV As Double = 0 ' Listaár DEV + Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF + Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV + Private _DiscountPercent As Double = 0 'Kedvezmény %-ban (56 az 56% !!!) + Private _QTT As Double = 0 'Mennyiség. A Mennyiségi egység vagy a Products-ból, vag Installationnál DB + Private _Units As Units 'Mennyiségi egység + Private _QualityOption As QualityOption 'Minőségi opció + Private _VAT As VAT 'ÁFA kód + Private _SumPriceHUF As Double + Private _SumPriceDEV As Double + Private _FinalPriceDEV As Double + Private _FinalPriceHUF As Double + Private _OfferInRows As OfferInRows 'Bejövő ajánlat sora !!! (Alvállalkozó!!!) + Private _Recipe As Recipe 'Milyen receptből van ez a sor + + Private _CanChangeProperty As Boolean = True + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property OfferOutHeader() As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(ByVal value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + Property RowType() As eRowType + Get + Return _RowType + End Get + Set(ByVal value As eRowType) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property + _ + Property Product() As Products + Get + Return _Product + End Get + Set(ByVal value As Products) + SetPropertyValue("Product", _Product, value) + + If value Is Nothing Then + Else + _ShortName = value.ShortName + _ListPriceHUF = value.ListPriceOutHUF + OnChanged("ShortName") + OnChanged("ListPriceHUF") + End If + + End Set + End Property + Property Installation As Installation + Get + Return _Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property CustomsTariffs() As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(ByVal value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DescriptionPrivate As String + Get + Return _DescriptionPrivate + End Get + Set(ByVal value As String) + SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value) + End Set + End Property + Property ListPriceHUF() As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + + End Set + End Property + Property ListPriceDEV() As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + + End Set + End Property + _ + Property DiscountPercent() As Double + Get + Return _DiscountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPercent", _DiscountPercent, value) + + End Set + End Property + _ + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + RecalculateRow() + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property VAT() As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property FinalPriceDEV() As Double + Get + Return _FinalPriceDEV + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV", _FinalPriceDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If ListPriceDEV = 0 Then ListPriceDEV = value + If CanChangeProperty Then + RecalculateRow2() + RecalculateRow() + End If + End If + End Set + End Property + Property FinalPriceHUF() As Double + Get + Return _FinalPriceHUF + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF", _FinalPriceHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If ListPriceHUF = 0 Then ListPriceHUF = value + If CanChangeProperty Then + RecalculateRow2() + RecalculateRow() + End If + End If + End Set + End Property + Property SumPriceHUF() As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV() As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + _ + Property DiscountPriceHUF() As Double + Get + Return _DiscountPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + End Set + End Property + _ + Property DiscountPriceDEV() As Double + Get + Return _DiscountPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + End Set + End Property + Property OfferInRows As OfferInRows + Get + Return _OfferInRows + End Get + Set(value As OfferInRows) + SetPropertyValue("OfferInRows", _OfferInRows, value) + End Set + End Property + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + _ + Property CanChangeProperty As Boolean + Get + Return _CanChangeProperty + End Get + Set(value As Boolean) + SetPropertyValue("CanChangeProperty", _CanChangeProperty, value) + End Set + End Property + Public Sub RecalculateRow() + DiscountPriceDEV = ListPriceDEV * (DiscountPercent / 100) + DiscountPriceHUF = ListPriceHUF * (DiscountPercent / 100) + SumPriceDEV = (ListPriceDEV - DiscountPriceDEV) * QTT + SumPriceHUF = (ListPriceHUF - DiscountPriceHUF) * QTT + End Sub + Public Sub RecalculateRow2() + If Me.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + If ListPriceHUF <> 0 Then + DiscountPercent = 100 - (FinalPriceHUF / ListPriceHUF * 100) + End If + Else + If ListPriceDEV <> 0 Then + DiscountPercent = 100 - (FinalPriceDEV / ListPriceDEV * 100) + End If + End If + End Sub + Public Sub AddRows(ByVal _p_OfferOutHeader As OfferOutHeader) + ' Sor hozzáadása + CanChangeProperty = False + Me.OfferOutHeader = _p_OfferOutHeader + + If _p_OfferOutHeader.row_RowType = eRowType.IsInstallation Then ' Sor hozzáadása ha gyártmány típusú a sor + Me.Installation = _p_OfferOutHeader.row_Installation + Me.RowType = _p_OfferOutHeader.row_RowType + Me.QTT = _p_OfferOutHeader.row_QTT + Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'")) + Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF + Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV + Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent + Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2 + Me.VAT = _p_OfferOutHeader.row_VAT + + RecalculateRow() + FinalPriceDEV = ListPriceDEV - DiscountPriceDEV + FinalPriceHUF = ListPriceHUF - DiscountPriceHUF + End If + + If _p_OfferOutHeader.row_RowType = eRowType.IsOther Then ' Sor hozzáadása ha egyéb típusú a sor + Me.ShortName = _p_OfferOutHeader.row_ShortName + Me.RowType = _p_OfferOutHeader.row_RowType + Me.QTT = _p_OfferOutHeader.row_QTT + Me.Units = _p_OfferOutHeader.row_Units + Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF + Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV + Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent + Me.Description = _p_OfferOutHeader.row_Description + Me.VAT = _p_OfferOutHeader.row_VAT + Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2 + + RecalculateRow() + FinalPriceDEV = ListPriceDEV - DiscountPriceDEV + FinalPriceHUF = ListPriceHUF - DiscountPriceHUF + End If + + If _p_OfferOutHeader.row_RowType = eRowType.IsProduct Then ' Sor hozzáadása ha termék típusú a sor + Me.Product = _p_OfferOutHeader.row_Products + Me.RowType = _p_OfferOutHeader.row_RowType + Me.QTT = _p_OfferOutHeader.row_QTT + Me.Units = _p_OfferOutHeader.row_Products.Units + Me.ListPriceHUF = _p_OfferOutHeader.row_ListPriceHUF + Me.ListPriceDEV = _p_OfferOutHeader.row_ListPriceDEV + Me.DiscountPercent = _p_OfferOutHeader.row_DiscountPercent + Me.VAT = _p_OfferOutHeader.row_Products.VAT + Me.RowGroup1 = _p_OfferOutHeader.row_RowGroup1 + Me.RowGroup2 = _p_OfferOutHeader.row_RowGroup2 + RecalculateRow() + FinalPriceDEV = ListPriceDEV - DiscountPriceDEV + FinalPriceHUF = ListPriceHUF - DiscountPriceHUF + End If + + ' Indexelés + If _p_OfferOutHeader.OfferOutRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_OfferOutHeader.OfferOutRows.Count - 1 + End If + CanChangeProperty = True + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.Designer.vb new file mode 100644 index 0000000..ccf6ef5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.Designer.vb @@ -0,0 +1,363 @@ +Partial Class OffersOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOffersOutFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOrderOfferedRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotableD_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTotable_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloneOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateOrderIn_From_OfferOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloneOfferOut_CRM = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOffersOut_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOffersOutFinalWidthVersion = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateOfferOutCost = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportRecipe = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsert_Discount_RowOther = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsertServicesToOfferOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBackToRowEdit_OfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOfferOut_ChangeState = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGeneratePDFandSendDefaultMailClient = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToEditOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductVariableFinder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aImportOrderInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferOut_RecalculateDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferOutHeader_AddOfferInHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferOutHeader_ImportOfferInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aOffersOutFinal + ' + Me.aOffersOutFinal.Caption = "Offers Out Final" + Me.aOffersOutFinal.Category = "RecordEdit" + Me.aOffersOutFinal.ConfirmationMessage = Nothing + Me.aOffersOutFinal.Id = "aOffersOutFinal" + Me.aOffersOutFinal.ImageName = "MenuBar_SaveAndClose" + Me.aOffersOutFinal.ToolTip = Nothing + ' + 'aOrderOfferedRows + ' + Me.aOrderOfferedRows.Caption = "OrderOfferedRows" + Me.aOrderOfferedRows.Category = "RecordEdit" + Me.aOrderOfferedRows.ConfirmationMessage = Nothing + Me.aOrderOfferedRows.Id = "aOrderOfferedRows" + Me.aOrderOfferedRows.ToolTip = Nothing + ' + 'aTotableD_OfferOut + ' + Me.aTotableD_OfferOut.Caption = "Delete row" + Me.aTotableD_OfferOut.Category = "aTotableD_OfferOut" + Me.aTotableD_OfferOut.ConfirmationMessage = Nothing + Me.aTotableD_OfferOut.Id = "aTotableD_OfferOut" + Me.aTotableD_OfferOut.ImageName = "table_delete" + Me.aTotableD_OfferOut.TargetViewId = "" + Me.aTotableD_OfferOut.ToolTip = Nothing + ' + 'aTotable_OfferOut + ' + Me.aTotable_OfferOut.Caption = "Add row" + Me.aTotable_OfferOut.Category = "aTotable_OfferOut" + Me.aTotable_OfferOut.ConfirmationMessage = Nothing + Me.aTotable_OfferOut.Id = "aTotable_OfferOut" + Me.aTotable_OfferOut.ImageName = "table_add" + Me.aTotable_OfferOut.TargetViewId = "" + Me.aTotable_OfferOut.ToolTip = Nothing + ' + 'aUp_OfferOut + ' + Me.aUp_OfferOut.Caption = "Up" + Me.aUp_OfferOut.Category = "RecordsNavigation" + Me.aUp_OfferOut.ConfirmationMessage = Nothing + Me.aUp_OfferOut.Id = "aUp_OfferOut" + Me.aUp_OfferOut.ImageName = "arrow_up_green" + Me.aUp_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_OfferOut.ToolTip = Nothing + ' + 'aDown_OfferOut + ' + Me.aDown_OfferOut.Caption = "Down" + Me.aDown_OfferOut.Category = "RecordsNavigation" + Me.aDown_OfferOut.ConfirmationMessage = Nothing + Me.aDown_OfferOut.Id = "aDown_OfferOut" + Me.aDown_OfferOut.ImageName = "arrow_down_green" + Me.aDown_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_OfferOut.ToolTip = Nothing + ' + 'aCloneOfferOut + ' + Me.aCloneOfferOut.Caption = "Clone selected OfferOut" + Me.aCloneOfferOut.Category = "ObjectsCreation" + Me.aCloneOfferOut.ConfirmationMessage = Nothing + Me.aCloneOfferOut.Id = "aCloneOfferOut" + Me.aCloneOfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneOfferOut.ToolTip = Nothing + ' + 'aCreateOrderIn_From_OfferOut + ' + Me.aCreateOrderIn_From_OfferOut.AcceptButtonCaption = Nothing + Me.aCreateOrderIn_From_OfferOut.CancelButtonCaption = Nothing + Me.aCreateOrderIn_From_OfferOut.Caption = "Create OrderIn" + Me.aCreateOrderIn_From_OfferOut.Category = "ObjectsCreation" + Me.aCreateOrderIn_From_OfferOut.ConfirmationMessage = Nothing + Me.aCreateOrderIn_From_OfferOut.Id = "aCreateOrderIn_From_OfferOut" + Me.aCreateOrderIn_From_OfferOut.ImageName = "document_down" + Me.aCreateOrderIn_From_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateOrderIn_From_OfferOut.TargetViewId = "" + Me.aCreateOrderIn_From_OfferOut.ToolTip = Nothing + ' + 'aCloneOfferOut_CRM + ' + Me.aCloneOfferOut_CRM.AcceptButtonCaption = Nothing + Me.aCloneOfferOut_CRM.CancelButtonCaption = Nothing + Me.aCloneOfferOut_CRM.Caption = "CloneOfferOut CRM" + Me.aCloneOfferOut_CRM.Category = "ObjectsCreation" + Me.aCloneOfferOut_CRM.ConfirmationMessage = Nothing + Me.aCloneOfferOut_CRM.Id = "aCloneOfferOut_CRM" + Me.aCloneOfferOut_CRM.ImageName = "Action_CloneMerge_Clone_Object" + Me.aCloneOfferOut_CRM.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneOfferOut_CRM.ToolTip = Nothing + ' + 'aOffersOut_ChangeRows + ' + Me.aOffersOut_ChangeRows.AcceptButtonCaption = Nothing + Me.aOffersOut_ChangeRows.CancelButtonCaption = Nothing + Me.aOffersOut_ChangeRows.Caption = "Change data in selected rows" + Me.aOffersOut_ChangeRows.ConfirmationMessage = Nothing + Me.aOffersOut_ChangeRows.Id = "aOffersOut_ChangeRows" + Me.aOffersOut_ChangeRows.ImageName = "Action_EditModel" + Me.aOffersOut_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOffersOut_ChangeRows.ToolTip = Nothing + ' + 'aOffersOutFinalWidthVersion + ' + Me.aOffersOutFinalWidthVersion.AcceptButtonCaption = Nothing + Me.aOffersOutFinalWidthVersion.CancelButtonCaption = Nothing + Me.aOffersOutFinalWidthVersion.Caption = "Offers Out Final Width Version" + Me.aOffersOutFinalWidthVersion.Category = "RecordEdit" + Me.aOffersOutFinalWidthVersion.ConfirmationMessage = Nothing + Me.aOffersOutFinalWidthVersion.Id = "aOffersOutFinalWidthVersion" + Me.aOffersOutFinalWidthVersion.ImageName = "MenuBar_SaveAndClose" + Me.aOffersOutFinalWidthVersion.ToolTip = Nothing + ' + 'aGenerateOfferOutCost + ' + Me.aGenerateOfferOutCost.Caption = "Generate Offer Out Cost" + Me.aGenerateOfferOutCost.Category = "ObjectsCreation" + Me.aGenerateOfferOutCost.ConfirmationMessage = Nothing + Me.aGenerateOfferOutCost.Id = "aGenerateOfferOutCost" + Me.aGenerateOfferOutCost.ImageName = "stopwatch_run" + Me.aGenerateOfferOutCost.TargetViewId = "OfferOutHeader_OfferOutCostRows_ListView" + Me.aGenerateOfferOutCost.ToolTip = Nothing + ' + 'aImportRecipe + ' + Me.aImportRecipe.AcceptButtonCaption = Nothing + Me.aImportRecipe.CancelButtonCaption = Nothing + Me.aImportRecipe.Caption = "Import Recipe" + Me.aImportRecipe.ConfirmationMessage = Nothing + Me.aImportRecipe.Id = "aImportRecipe" + Me.aImportRecipe.ToolTip = Nothing + ' + 'aInsert_Discount_RowOther + ' + Me.aInsert_Discount_RowOther.AcceptButtonCaption = Nothing + Me.aInsert_Discount_RowOther.CancelButtonCaption = Nothing + Me.aInsert_Discount_RowOther.Caption = "Insert discount row" + Me.aInsert_Discount_RowOther.Category = "aInsert_Discount_RowOther" + Me.aInsert_Discount_RowOther.ConfirmationMessage = Nothing + Me.aInsert_Discount_RowOther.Id = "aInsert_Discount_RowOther" + Me.aInsert_Discount_RowOther.TargetViewId = "" + Me.aInsert_Discount_RowOther.ToolTip = Nothing + ' + 'aInsertServicesToOfferOut + ' + Me.aInsertServicesToOfferOut.AcceptButtonCaption = Nothing + Me.aInsertServicesToOfferOut.CancelButtonCaption = Nothing + Me.aInsertServicesToOfferOut.Caption = "aInsert Services To Offer Out" + Me.aInsertServicesToOfferOut.ConfirmationMessage = Nothing + Me.aInsertServicesToOfferOut.Id = "aInsertServicesToOfferOut" + Me.aInsertServicesToOfferOut.TargetViewId = "" + Me.aInsertServicesToOfferOut.ToolTip = Nothing + ' + 'aBackToRowEdit_OfferOut + ' + Me.aBackToRowEdit_OfferOut.Caption = "Edit row" + Me.aBackToRowEdit_OfferOut.Category = "aBackToRowEdit_OfferOut" + Me.aBackToRowEdit_OfferOut.ConfirmationMessage = Nothing + Me.aBackToRowEdit_OfferOut.Id = "aBackToRowEdit_OfferOut" + Me.aBackToRowEdit_OfferOut.ImageName = "table_refresh" + Me.aBackToRowEdit_OfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_OfferOut.TargetViewId = "" + Me.aBackToRowEdit_OfferOut.ToolTip = Nothing + Me.aBackToRowEdit_OfferOut.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aOfferOut_ChangeState + ' + Me.aOfferOut_ChangeState.AcceptButtonCaption = Nothing + Me.aOfferOut_ChangeState.CancelButtonCaption = Nothing + Me.aOfferOut_ChangeState.Caption = "OfferOut Change State" + Me.aOfferOut_ChangeState.ConfirmationMessage = Nothing + Me.aOfferOut_ChangeState.Id = "aOfferOut_ChangeState" + Me.aOfferOut_ChangeState.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOfferOut_ChangeState.TargetViewId = "" + Me.aOfferOut_ChangeState.ToolTip = Nothing + ' + 'aGeneratePDFandSendDefaultMailClient + ' + Me.aGeneratePDFandSendDefaultMailClient.Caption = "aGenerate PDFand Send Default Mail Client" + Me.aGeneratePDFandSendDefaultMailClient.ConfirmationMessage = Nothing + Me.aGeneratePDFandSendDefaultMailClient.Id = "aGeneratePDFandSendDefaultMailClient" + Me.aGeneratePDFandSendDefaultMailClient.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGeneratePDFandSendDefaultMailClient.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aGeneratePDFandSendDefaultMailClient.ToolTip = Nothing + ' + 'aBackToEditOfferOut + ' + Me.aBackToEditOfferOut.Caption = "aBackToEditOfferOut" + Me.aBackToEditOfferOut.Category = "Edit" + Me.aBackToEditOfferOut.ConfirmationMessage = Nothing + Me.aBackToEditOfferOut.Id = "aBackToEditOfferOut" + Me.aBackToEditOfferOut.ImageName = "table_refresh" + Me.aBackToEditOfferOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEditOfferOut.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aBackToEditOfferOut.TargetViewId = "" + Me.aBackToEditOfferOut.ToolTip = Nothing + Me.aBackToEditOfferOut.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aProductVariableFinder + ' + Me.aProductVariableFinder.AcceptButtonCaption = Nothing + Me.aProductVariableFinder.CancelButtonCaption = Nothing + Me.aProductVariableFinder.Caption = "aProductVariableFinder" + Me.aProductVariableFinder.ConfirmationMessage = Nothing + Me.aProductVariableFinder.Id = "aProductVariableFinder" + Me.aProductVariableFinder.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows) + Me.aProductVariableFinder.TargetViewId = "" + Me.aProductVariableFinder.ToolTip = Nothing + ' + 'aImportOrderInRows + ' + Me.aImportOrderInRows.AcceptButtonCaption = Nothing + Me.aImportOrderInRows.CancelButtonCaption = Nothing + Me.aImportOrderInRows.Caption = "Import Order In Rows" + Me.aImportOrderInRows.ConfirmationMessage = Nothing + Me.aImportOrderInRows.Id = "aImportOrderInRows" + Me.aImportOrderInRows.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows) + Me.aImportOrderInRows.TargetViewId = "OfferOutHeader_OfferOutRows_ListView" + Me.aImportOrderInRows.ToolTip = Nothing + ' + 'aOfferOut_RecalculateDEV + ' + Me.aOfferOut_RecalculateDEV.AcceptButtonCaption = Nothing + Me.aOfferOut_RecalculateDEV.CancelButtonCaption = Nothing + Me.aOfferOut_RecalculateDEV.Caption = "aOfferOut_RecalculateDEV" + Me.aOfferOut_RecalculateDEV.ConfirmationMessage = Nothing + Me.aOfferOut_RecalculateDEV.Id = "aOfferOut_RecalculateDEV" + Me.aOfferOut_RecalculateDEV.TargetObjectType = GetType(SISBusiness.[Module].OfferOutHeader) + Me.aOfferOut_RecalculateDEV.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOfferOut_RecalculateDEV.ToolTip = Nothing + Me.aOfferOut_RecalculateDEV.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOfferOutHeader_AddOfferInHeader + ' + Me.aOfferOutHeader_AddOfferInHeader.AcceptButtonCaption = Nothing + Me.aOfferOutHeader_AddOfferInHeader.CancelButtonCaption = Nothing + Me.aOfferOutHeader_AddOfferInHeader.Caption = "aOfferOutHeader_AddOfferInHeader" + Me.aOfferOutHeader_AddOfferInHeader.Category = "ObjectsCreation" + Me.aOfferOutHeader_AddOfferInHeader.ConfirmationMessage = Nothing + Me.aOfferOutHeader_AddOfferInHeader.Id = "aOfferOutHeader_AddOfferInHeader" + Me.aOfferOutHeader_AddOfferInHeader.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader) + Me.aOfferOutHeader_AddOfferInHeader.TargetViewId = "" + Me.aOfferOutHeader_AddOfferInHeader.ToolTip = Nothing + ' + 'aOfferOutHeader_ImportOfferInRows + ' + Me.aOfferOutHeader_ImportOfferInRows.AcceptButtonCaption = Nothing + Me.aOfferOutHeader_ImportOfferInRows.CancelButtonCaption = Nothing + Me.aOfferOutHeader_ImportOfferInRows.Caption = "aOfferOutHeader_ImportOfferInRows" + Me.aOfferOutHeader_ImportOfferInRows.ConfirmationMessage = Nothing + Me.aOfferOutHeader_ImportOfferInRows.Id = "aOfferOutHeader_ImportOfferInRows" + Me.aOfferOutHeader_ImportOfferInRows.TargetObjectType = GetType(SISBusiness.[Module].OfferOutRows) + Me.aOfferOutHeader_ImportOfferInRows.TargetViewId = "OfferOutHeader_OfferOutRows_ListView" + Me.aOfferOutHeader_ImportOfferInRows.ToolTip = Nothing + ' + 'OffersOutVC + ' + Me.Actions.Add(Me.aOffersOutFinal) + Me.Actions.Add(Me.aOrderOfferedRows) + Me.Actions.Add(Me.aTotableD_OfferOut) + Me.Actions.Add(Me.aTotable_OfferOut) + Me.Actions.Add(Me.aUp_OfferOut) + Me.Actions.Add(Me.aDown_OfferOut) + Me.Actions.Add(Me.aCloneOfferOut) + Me.Actions.Add(Me.aCreateOrderIn_From_OfferOut) + Me.Actions.Add(Me.aCloneOfferOut_CRM) + Me.Actions.Add(Me.aOffersOut_ChangeRows) + Me.Actions.Add(Me.aOffersOutFinalWidthVersion) + Me.Actions.Add(Me.aGenerateOfferOutCost) + Me.Actions.Add(Me.aImportRecipe) + Me.Actions.Add(Me.aInsert_Discount_RowOther) + Me.Actions.Add(Me.aInsertServicesToOfferOut) + Me.Actions.Add(Me.aBackToRowEdit_OfferOut) + Me.Actions.Add(Me.aOfferOut_ChangeState) + Me.Actions.Add(Me.aGeneratePDFandSendDefaultMailClient) + Me.Actions.Add(Me.aBackToEditOfferOut) + Me.Actions.Add(Me.aProductVariableFinder) + Me.Actions.Add(Me.aImportOrderInRows) + Me.Actions.Add(Me.aOfferOut_RecalculateDEV) + Me.Actions.Add(Me.aOfferOutHeader_AddOfferInHeader) + Me.Actions.Add(Me.aOfferOutHeader_ImportOfferInRows) + + End Sub + Friend WithEvents aOffersOutFinal As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOrderOfferedRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotableD_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTotable_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloneOfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateOrderIn_From_OfferOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloneOfferOut_CRM As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOffersOut_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOffersOutFinalWidthVersion As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateOfferOutCost As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportRecipe As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsert_Discount_RowOther As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsertServicesToOfferOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackToRowEdit_OfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOfferOut_ChangeState As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackToEditOfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductVariableFinder As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aImportOrderInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferOut_RecalculateDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferOutHeader_AddOfferInHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferOutHeader_ImportOfferInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Protected WithEvents aGeneratePDFandSendDefaultMailClient As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.resx new file mode 100644 index 0000000..4b05ec8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.resx @@ -0,0 +1,195 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 523, 17 + + + 660, 17 + + + 1323, 17 + + + 196, 56 + + + 694, 56 + + + 1015, 17 + + + 1092, 56 + + + 17, 95 + + + 433, 95 + + + 796, 95 + + + 1184, 95 + + + 348, 56 + + + 1395, 95 + + + 983, 95 + + + 602, 95 + + + 239, 95 + + + 1229, 56 + + + 821, 56 + + + 528, 56 + + + 17, 56 + + + 1158, 17 + + + 820, 17 + + + 272, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb new file mode 100644 index 0000000..4fe992d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/OffersOutVC.vb @@ -0,0 +1,1553 @@ +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.Xpo +Imports System.Net.Mail + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Public Class OffersOutVC + Inherits ViewController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", False) 'Véglegesítés verziószámmal + Frame.GetController(Of OffersOutVC).aOffersOut_ChangeRows.Active.SetItemValue("", False) '--Sorok modosítása + Frame.GetController(Of OffersOutVC).aOffersOutFinal.Active.SetItemValue("", False) ' -- Véglegesítés (OfferOutHeader_DetailView) + Frame.GetController(Of OffersOutVC).aTotable_OfferOut.Active.SetItemValue("", False) ' -- Sor hozzáadása (OfferOutHeader_OfferOutRows_ListView) + Frame.GetController(Of OffersOutVC).aTotableD_OfferOut.Active.SetItemValue("", False) ' -- Sor törlése (OfferOutHeader_OfferOutRows_ListView) + Frame.GetController(Of OffersOutVC).aOrderOfferedRows.Active.SetItemValue("", False) ' -- Ajánlat megrendelése (NINCS KIDOLGOZVA) + Frame.GetController(Of OffersOutVC).aUp_OfferOut.Active.SetItemValue("", False) ' kiválasztott sor fel + Frame.GetController(Of OffersOutVC).aDown_OfferOut.Active.SetItemValue("", False) ' kiválasztott sor le + Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", False) ' Kiválasztott Kimenő ajánlat klónozása + Frame.GetController(Of OffersOutVC).aCreateOrderIn_From_OfferOut.Active.SetItemValue("", False) ' A kiválasztott kimenő árajánlatokból bejövő megrendeléseket készít + Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", False) 'A kiválasztott kimenő ajánlatot klónozza le egy másik CRM_Op.ra + Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", False) 'Recept import + Frame.GetController(Of OffersOutVC).aInsert_Discount_RowOther.Active.SetItemValue("", False) 'Egyedi kedvezmény sor beszúrása + Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", False) 'Szolgáltatás hozzáadása sorként + Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False) + '------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + + If View.Id = "OfferOutHeader_ListView_Editable" Then + Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OfferOutHeader_ListView_NotEditable" Or _ + View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aCreateOrderIn_From_OfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged + End If + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then + Frame.GetController(Of OffersOutVC).aOffersOut_ChangeRows.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of OffersOutVC).aCloneOfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aCloneOfferOut_CRM.Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then ' -- A beágyazott ListView feletti toolbar + Frame.GetController(Of OffersOutVC).aUp_OfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aDown_OfferOut.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", True) 'Recept import + Frame.GetController(Of OffersOutVC).aInsertServicesToOfferOut.Active.SetItemValue("", True) + End If + If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + + If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", False) + 'Frame.GetController(Of OffersOutVC).a() + End If + If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ + If View.Id = "OfferOutHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True) + + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + If _OfferOutHeader IsNot Nothing Then + If _OfferOutHeader.IsEditable = False Then ' -- Az ajánlat véglegesített vagy szerkeszthetõ + Frame.GetController(Of OffersOutVC).aOffersOutFinal.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", False) + Else + Frame.GetController(Of OffersOutVC).aOffersOutFinal.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aTotable_OfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aTotableD_OfferOut.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aInsert_Discount_RowOther.Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", True) + End If + End If + End If + If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "ProductFinderVariable_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + + If View.Id = "OfferOutHeader_ListView_Support" Then 'WEB Supportnál ajánlatok listázása + 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("ByCustomers") = CriteriaOperator.Parse("Customers = ?", _Contacts.Customers) + Else + TryCast(View, ListView).CollectionSource.Criteria("ByCustomers") = CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("ByCustomers") = CriteriaOperator.Parse("1=2") + End If + End If + If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + '------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OfferOutHeader_OfferOutCostRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + + If View.Id = "OfferOutHeader_ListView_Editable" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_ListView_NotEditable" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OffersOutVC).aOfferOut_ChangeState.Active.SetItemValue("", False) + + RemoveHandler View.SelectionChanged, AddressOf OfferOutHeader_OfferOutRows_ListView_SelectionChanged + End If + If View.Id = "OfferOutHeader_OfferOutRows_ListView" Then + Frame.GetController(Of OffersOutVC).aOffersOut_ChangeRows.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aImportRecipe.Active.SetItemValue("", False) 'Recept import + End If + If View.Id Like "OrderInHeaderFromOfferOutRowsHeader_OrderInHeaderFromOfferOutRowsRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "ProductFinderVariable_ProductSelectOriginal_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "ProductFinderVariable_ProductSelectVariables_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of OffersOutVC).aBackToEditOfferOut.Active.SetItemValue("", True) + End If + If View.Id = "OfferOutHeader_OfferInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ + If View.Id = "OfferOutHeader_DeatilView" Then + Frame.GetController(Of OffersOutVC).aOffersOutFinal.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aTotable_OfferOut.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aTotableD_OfferOut.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aBackToRowEdit_OfferOut.Active.SetItemValue("", False) + Frame.GetController(Of OffersOutVC).aOffersOutFinalWidthVersion.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderInHeaderFromOfferOutRowsHeader_DetailView" Or View.Id = "OffersOutCloneForCRM_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "OfferInHeader_ListView_OfferOutHeaderInHeader" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub OfferOutHeader_OfferOutRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _OfferOutRows In View.SelectedObjects + _selection.Add(_OfferOutRows) + Next + End If + End Sub + Private Sub aOffersOutFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersOutFinal.Execute + ' Kimenő Árajánlat véglegesítése ------------------------------------------------------------------ + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + + If _OfferOutHeader.OfferOutRows.Count > 0 Then + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + If _OfferOutHeader.DocumentNumber = "" Then + _OfferOutHeader.DocumentNumber = _OfferOutHeader.OfferOutParameters.NumberGenerator.GetNewNumber(_OfferOutHeader.OfferOutParameters.NumberGenerator) + End If + _OfferOutHeader.IsEditable = False + _OfferOutHeader.Save() + + '// Speciális Task beadása, hogy az árajánlat kiadásáról Task keletkezzen AlertPeriod-dal + + If _OfferOutHeader.CRM_Opportunities IsNot Nothing Then + + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task + Dim _CRM_Leads_Activity As CRM_Leads_Activity + + '// Minden korábban kiadott árajánlathoz tartozó figyelmeztetés visszaállítása + + Dim _CRM_Leads_Activity_Collection As New XPCollection(Of CRM_Leads_Activity)(_ocur.Session, _ + CriteriaOperator.Parse("Subject='Érdeklődés a kiadott ajánlatról' and CRM_Leads=? and CRM_Opportunities=?", _ + _OfferOutHeader.CRM_Opportunities.CRM_Leads, _OfferOutHeader.CRM_Opportunities)) + + For Each _CRM_Leads_Activity In _CRM_Leads_Activity_Collection + For Each _CRM_Leads_Activity_Task In _CRM_Leads_Activity.CRM_Leads_Activity_Task + _CRM_Leads_Activity_Task.Status = General.TaskStatus.Deferred + _CRM_Leads_Activity_Task.Results = "Új ajánlat kiadva" + Next + Next + + _CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + _CRM_Leads_Activity.CRM_Leads = _OfferOutHeader.CRM_Opportunities.CRM_Leads + _CRM_Leads_Activity.CRM_Opportunities = _OfferOutHeader.CRM_Opportunities + _CRM_Leads_Activity.EventType = eEventType.eAlert + _CRM_Leads_Activity.HRPerson = _OfferOutHeader.CRM_Opportunities.HRPerson + _CRM_Leads_Activity.StartOn = DateAdd(DateInterval.Day, 3, GetSQLTime(_ocur.Session)) + _CRM_Leads_Activity.EndOn = DateAdd(DateInterval.Hour, 1, _CRM_Leads_Activity.StartOn) + _CRM_Leads_Activity.Subject = "Érdeklődés a kiadott ajánlatról" + + + _CRM_Leads_Activity_Task = _ocur.CreateObject(Of CRM_Leads_Activity_Task)() + _CRM_Leads_Activity_Task.CRM_Leads_Activity = _CRM_Leads_Activity + _CRM_Leads_Activity_Task.HRPerson = _OfferOutHeader.CRM_Opportunities.HRPerson + _CRM_Leads_Activity_Task.DueDate = DateAdd(DateInterval.Day, 3, GetSQLTime(_ocur.Session)) + _CRM_Leads_Activity_Task.Status = General.TaskStatus.NotStarted + _CRM_Leads_Activity_Task.Subject = "Érdeklődés a kiadott ajánlatról" + _CRM_Leads_Activity_Task.Description = "-" + _CRM_Leads_Activity_Task.AlertPeriod = _OfferOutHeader.OfferOutParameters.AlertPeriod + + + + End If + + + 'Email küldés + + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _WebParameters As WebParameters = _onew.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + If Not String.IsNullOrEmpty(_OfferOutHeader.Contact.Email) Then + _MailMessage.To.Add(_OfferOutHeader.Contact.Email) + ElseIf Not String.IsNullOrEmpty(_OfferOutHeader.Customers.Email) Then + _MailMessage.To.Add(_OfferOutHeader.Customers.Email) + Else + Throw New Exception("*Nincs email cím beállítva!") + End If + + _MailMessage.Subject = "Új ajánlat érkezett" + _MailMessage.IsBodyHtml = True + _MailMessage.Body = String.Format("{0} számmal új ajánlat készült az Ön(ök) részére.", _OfferOutHeader.DocumentNumber) + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + If _OfferOutHeader.UserCreated IsNot Nothing Then + If Not String.IsNullOrEmpty(_OfferOutHeader.UserCreated.Email) Then + _MailMessage.To.Clear() + _MailMessage.To.Add(_OfferOutHeader.UserCreated.Email) + _MailMessage.Body = String.Format("Ön {0} számmal új ajánlatot véglegesített a(z) {1} ügyfél részére {2} kapcsolattartónak.", _ + _OfferOutHeader.DocumentNumber, _OfferOutHeader.Customers.FullName, _OfferOutHeader.Contact.FullName) + + _SmtpClient.Send(_MailMessage) + End If + End If + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ErrorLog As New ErrorLog(_uow) + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), System.Reflection.MethodBase).Name + _uow.CommitTransaction() + End Try + + _ocur.CommitChanges() + View.Close() + + Else + '-------------Teszt miatt------------------------------ + Throw New Exception("*Nincs egy sora sem a kimenő ajánlatnak, így nem lehet véglegesíteni!") + End If + End Sub + Private Sub aTotable_OfferOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_OfferOut.Execute + ' hozzáad egy új sort a fejléchez ------------------------ + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = CType(e.SelectedObjects(0), OfferOutHeader) + Dim _OfferOutRows As OfferOutRows = New OfferOutRows(_ocur.Session) + _OfferOutRows.OfferOutHeader = _OfferOutHeader + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + _OfferOutRows.AddRows(_OfferOutHeader) + _ocur.CommitChanges() + + _OfferOutHeader.row_Installation = Nothing + _OfferOutHeader.row_Products = Nothing + _OfferOutHeader.row_ShortName = "" + _OfferOutHeader.row_QTT = 0 + _OfferOutHeader.row_ListPriceHUF = 0 + _OfferOutHeader.row_ListPriceDEV = 0 + _OfferOutHeader.row_DiscountPercent = 0 + + + View.Refresh() + End Sub + Private Sub aTotableD_OfferOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_OfferOut.Execute + ' a kiválasztott sorokat törli ----------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + Dim _OfferOutRows_Collection As ArrayList = New ArrayList + Dim _OfferOutRows_ListEditor As ListPropertyEditor + + _OfferOutRows_ListEditor = TryCast(View, DetailView).FindItem("OfferOutRows") + For Each _OfferOutRows As OfferOutRows In _OfferOutRows_ListEditor.ListView.SelectedObjects + Dim _OffOutRows As OfferOutRows = _OfferOutRows + For Each _OfferOutRows2 As OfferOutRows In _OfferOutHeader.OfferOutRows + If _OfferOutRows2.RowIndex > _OffOutRows.RowIndex Then + _OfferOutRows2.RowIndex -= 1 + End If + Next + Next + + For Each _OfferOutRows As OfferOutRows In _OfferOutRows_ListEditor.ListView.SelectedObjects + _OfferOutRows_Collection.Add(_OfferOutRows) + Next + + _ocur.Delete(_OfferOutRows_Collection) + _ocur.CommitChanges() + View.Refresh() + End Sub + Private Sub aOrderOfferedRows_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOrderOfferedRows.Execute + + + End Sub + Private Sub aUp_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OfferOut.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutRows).OfferOutHeader + Dim _OfferOutRowsSelected As OfferOutRows + Dim _OfferOutRowsMinus As OfferOutRows + Dim _OfferOutRows As OfferOutRows + + Try + _OfferOutRowsSelected = TryCast(View.SelectedObjects(0), OfferOutRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OfferOutRowsSelected.RowIndex > 0 Then + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + If _OfferOutRows.RowIndex = _OfferOutRowsSelected.RowIndex - 1 Then + _OfferOutRowsMinus = _OfferOutRows + Exit For + End If + Next + + If _OfferOutRowsMinus IsNot Nothing Then + _OfferOutRowsSelected.RowIndex -= 1 + _OfferOutRowsMinus.RowIndex += 1 + End If + _OfferOutRowsMinus.Save() + _OfferOutRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OfferOut.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.CurrentObject, OfferOutRows).OfferOutHeader + Dim _OfferOutRowsSelected As OfferOutRows + Dim _OfferOutRowsPlus As OfferOutRows + Dim _OfferOutRows As OfferOutRows + + Try + _OfferOutRowsSelected = TryCast(View.SelectedObjects(0), OfferOutRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OfferOutRowsSelected.RowIndex < _OfferOutHeader.OfferOutRows.Count - 1 Then + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + If _OfferOutRows.RowIndex = _OfferOutRowsSelected.RowIndex + 1 Then + _OfferOutRowsPlus = _OfferOutRows + Exit For + End If + Next + + If _OfferOutRowsPlus IsNot Nothing Then + _OfferOutRowsSelected.RowIndex += 1 + _OfferOutRowsPlus.RowIndex -= 1 + End If + _OfferOutRowsPlus.Save() + _OfferOutRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aCloneOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneOfferOut.Execute + ' Az akció egy kiválasztott kimenő ajánlatot klónoz,a hozzá tartozó sorokkal, de lehet benne módosítani ------------------------------------------- + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = _onew.GetObject(TryCast(e.SelectedObjects(0), OfferOutHeader)) + Dim _OfferOutHeader_New As OfferOutHeader = _onew.CreateObject(Of OfferOutHeader)() + Dim _OfferOutRows As OfferOutRows + Dim _criteria As String + If _OfferOutHeader.DocumentNumber.Contains(" -> ") Then + _criteria = _OfferOutHeader.DocumentNumber.Remove(InStr(_OfferOutHeader.DocumentNumber, "->") - 2, _OfferOutHeader.DocumentNumber.Length - InStr(_OfferOutHeader.DocumentNumber, "->") + 2) + Else + _criteria = _OfferOutHeader.DocumentNumber + End If + Dim _OfferOutHeader_Collection As New XPCollection(Of OfferOutHeader)(_onew.Session, CriteriaOperator.Parse("DocumentNumber like '" & _criteria & "%'")) + + ' -------------------- Fejléc adatok átadása ---------------------------------------- + _OfferOutHeader_New.Contact = _OfferOutHeader.Contact + _OfferOutHeader_New.CRM_Opportunities = _OfferOutHeader.CRM_Opportunities + _OfferOutHeader_New.CurrencyName = _OfferOutHeader.CurrencyName + _OfferOutHeader_New.Customers = _OfferOutHeader.Customers + _OfferOutHeader_New.CustomersFrom = _OfferOutHeader.CustomersFrom + _OfferOutHeader_New.DateCreated = _OfferOutHeader.DateCreated + _OfferOutHeader_New.DateExecution = _OfferOutHeader.DateExecution + _OfferOutHeader_New.DatePayment = _OfferOutHeader.DatePayment + _OfferOutHeader_New.Description = _OfferOutHeader.Description + _OfferOutHeader_New.DateDue = _OfferOutHeader.DateDue + _OfferOutHeader_New.ObjectCreated = _OfferOutHeader.ObjectCreated + _OfferOutHeader_New.OfferLOSTReason = _OfferOutHeader.OfferLOSTReason + _OfferOutHeader_New.OfferLOSTReasonDescription = _OfferOutHeader.OfferLOSTReasonDescription + _OfferOutHeader_New.OfferOutParameters = _OfferOutHeader.OfferOutParameters + _OfferOutHeader_New.OfferOutState = _OfferOutHeader.OfferOutState + _OfferOutHeader_New.PaymentOption = _OfferOutHeader.PaymentOption + _OfferOutHeader_New.QualityOption = _OfferOutHeader.QualityOption + _OfferOutHeader_New.ShipmentOption = _OfferOutHeader.ShipmentOption + + If _OfferOutHeader_Collection.Count > 0 Then + If _OfferOutHeader_Collection.Count = 1 Then + _OfferOutHeader_New.DocumentNumber = _OfferOutHeader.DocumentNumber + " -> " + _OfferOutHeader_Collection.Count.ToString + Else + _OfferOutHeader_New.DocumentNumber = _criteria + " -> " + _OfferOutHeader_Collection.Count.ToString + End If + End If + + _OfferOutHeader_New.IsEditable = True + _OfferOutHeader_New.IsStorno = False + _OfferOutHeader_New.DocumentBody = _OfferOutHeader.DocumentBody + _OfferOutHeader_New.ExcelFile = _OfferOutHeader.ExcelFile + _OfferOutHeader_New.ExcelProperty = _OfferOutHeader.ExcelProperty + _OfferOutHeader_New.OtherCostPercent = _OfferOutHeader.OtherCostPercent + + _OfferOutHeader_New.Save() + ' -------------------- Sor(ok) átadása----------------------------------------------- + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + Dim _OfferOutRows_New As OfferOutRows = _onew.CreateObject(Of OfferOutRows)() + _OfferOutRows_New.OfferOutHeader = _OfferOutHeader_New + _OfferOutRows_New.CustomsTariffs = _OfferOutRows.CustomsTariffs + _OfferOutRows_New.Description = _OfferOutRows.Description + _OfferOutRows_New.DescriptionPrivate = _OfferOutRows.DescriptionPrivate + _OfferOutRows_New.DiscountPercent = _OfferOutRows.DiscountPercent + _OfferOutRows_New.Installation = _OfferOutRows.Installation + _OfferOutRows_New.ListPriceDEV = _OfferOutRows.ListPriceDEV + _OfferOutRows_New.ListPriceHUF = _OfferOutRows.ListPriceHUF + _OfferOutRows_New.FinalPriceDEV = _OfferOutRows.FinalPriceDEV + _OfferOutRows_New.FinalPriceHUF = _OfferOutRows.FinalPriceHUF + _OfferOutRows_New.Product = _OfferOutRows.Product + _OfferOutRows_New.QTT = _OfferOutRows.QTT + _OfferOutRows_New.QualityOption = _OfferOutRows.QualityOption + _OfferOutRows_New.RowIndex = _OfferOutRows.RowIndex + _OfferOutRows_New.RowType = _OfferOutRows.RowType + _OfferOutRows_New.ShortName = _OfferOutRows.ShortName + _OfferOutRows_New.VAT = _OfferOutRows.VAT + _OfferOutRows_New.RowGroup1 = _OfferOutRows.RowGroup1 + _OfferOutRows_New.RowGroup2 = _OfferOutRows.RowGroup2 + _OfferOutRows_New.CanChangeProperty = _OfferOutRows.CanChangeProperty + _OfferOutRows_New.DiscountPriceDEV = _OfferOutRows.DiscountPriceDEV + _OfferOutRows_New.DiscountPriceHUF = _OfferOutRows.DiscountPriceHUF + _OfferOutRows_New.OfferInRows = _OfferOutRows.OfferInRows + _OfferOutRows_New.Recipe = _OfferOutRows.Recipe + _OfferOutRows_New.SumPriceDEV = _OfferOutRows.SumPriceDEV + _OfferOutRows_New.SumPriceHUF = _OfferOutRows.SumPriceHUF + _OfferOutRows_New.Units = _OfferOutRows.Units + + _OfferOutRows_New.Save() + Next + ' ----------- Az új adatokkal megjeleníteni az új objektumot ---------------------------------- + _onew.CommitChanges() + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _OfferOutHeader_New) + End Sub + Private Sub aCreateOrderIn_From_OfferOut_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateOrderIn_From_OfferOut.CustomizePopupWindowParams + ' Az akció egy detailview hoz létre a kiválasztott kimenő megrendelésből, és megjeleníti az összes sorát + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader = _onew.CreateObject(Of OrderInHeaderFromOfferOutRowsHeader)() + Dim _OrderInHeaderFromOfferOutRowsRows As OrderInHeaderFromOfferOutRowsRows + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _OfferOutRows As OfferOutRows + + _OrderInHeaderFromOfferOutRowsHeader.CustomersFrom = _onew.GetObject(_OfferOutHeader.CustomersFrom) + _OrderInHeaderFromOfferOutRowsHeader.CurrencyName = _onew.GetObject(_OfferOutHeader.CurrencyName) + + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + _OrderInHeaderFromOfferOutRowsRows = _onew.CreateObject(Of OrderInHeaderFromOfferOutRowsRows)() + _OrderInHeaderFromOfferOutRowsRows.OrderInHeaderFromOfferOutRowsHeader = _OrderInHeaderFromOfferOutRowsHeader + _OrderInHeaderFromOfferOutRowsRows.OfferOutRows = _onew.GetObject(_OfferOutRows) + _OrderInHeaderFromOfferOutRowsRows.QTT_Process = _OfferOutRows.QTT + Next + + e.View = Application.CreateDetailView(_onew, "OrderInHeaderFromOfferOutRowsHeader_DetailView", False, _OrderInHeaderFromOfferOutRowsHeader) + End Sub + Private Sub aCreateOrderIn_From_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateOrderIn_From_OfferOut.Execute + ' Az akció a popup-on kiválasztott sorokból és a hozzá kézzel megadott mennyiségi szándékokból egy bejövő megrendelést hoz létre + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = _ocur.GetObject(TryCast(e.SelectedObjects(0), OfferOutHeader)) + + Dim _OfferOutRows As OfferOutRows + Dim _OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInHeaderFromOfferOutRowsHeader)) + Dim _OrderInHeaderFromOfferOutRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("OrderInHeaderFromOfferOutRowsRows") + Dim _OrderInRows_New As OrderInRows + Dim _OrderInRowsOther_New As OrderInRowsOther + Dim _QTT_Process As Double = 0 + + ' Bejövő megrendelés fejlécének a létrehozása és adatokkal feltöltése + Dim _OrderInHeader_New As OrderInHeader = _ocur.CreateObject(Of OrderInHeader)() + With _OrderInHeader_New + .Contacts = _OfferOutHeader.Contact + .CRM_Opportunities = _OfferOutHeader.CRM_Opportunities + .Customers = _OfferOutHeader.Customers + .CustomersFrom = _OfferOutHeader.CustomersFrom + .DateCreated = GetSQLTime(_ocur.Session) + .DateExecution = _OfferOutHeader.DateExecution + .ObjectCreated = GetSQLTime(_ocur.Session) + .OrderInParameters = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInHeaderFromOfferOutRowsHeader).OrderInParameters) + .ShipmentOption = _OfferOutHeader.ShipmentOption + .PaymentOption = _OfferOutHeader.PaymentOption + .OfferOutHeader = _OfferOutHeader + + End With + + '------------------------------ A Sorok létrehozása típusok szerint ---------------------------------------------------------------------------------- + For i = 0 To _OrderInHeaderFromOfferOutRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 + _OfferOutRows = _ocur.GetObject(TryCast(_OrderInHeaderFromOfferOutRowsRows_ListEditor.ListView.SelectedObjects(i), OrderInHeaderFromOfferOutRowsRows).OfferOutRows) + _QTT_Process = TryCast(_OrderInHeaderFromOfferOutRowsRows_ListEditor.ListView.SelectedObjects(i), OrderInHeaderFromOfferOutRowsRows).QTT_Process + + If _OfferOutRows.RowType = eRowType.IsProduct Then + _OrderInRows_New = _ocur.CreateObject(Of OrderInRows)() + With _OrderInRows_New + .OrderInHeader = _OrderInHeader_New + .Products = _OfferOutRows.Product + .ListPriceDEV = _OfferOutRows.ListPriceDEV + .ListPriceHUF = _OfferOutRows.ListPriceHUF + .RowGroup1 = _OfferOutRows.RowGroup1 + .RowGroup2 = _OfferOutRows.RowGroup2 + .Description = _OfferOutRows.Description + .DescriptionPrivate = _OfferOutRows.DescriptionPrivate + .OfferOutRows = _OfferOutRows + .VAT = _OfferOutRows.VAT + + If _QTT_Process <= _OfferOutRows.QTT And _QTT_Process > 0 Then + .QTT = _QTT_Process + Else + ' TESZT MIATT!!!!!! -------------------------------------------------------------------------------------------------------- + Throw New Exception("*Az egyik megadott mennyiségi szándék értéke nagyobb mint az eredeti mennyiség, vagy kevesebb mint 0!") + End If + + .DiscountPriceDEV = _OfferOutRows.DiscountPriceDEV + .DiscountPriceHUF = _OfferOutRows.DiscountPriceHUF + .RowIndex = _OrderInHeader_New.OrderInRows.Count + + End With + + End If + + If _OfferOutRows.RowType = eRowType.IsOther Then + _OrderInRowsOther_New = _ocur.CreateObject(Of OrderInRowsOther)() + With _OrderInRowsOther_New + .OrderInHeader = _OrderInHeader_New + .OfferOutRows = _OfferOutRows + .Description = _OfferOutRows.Description + + If _QTT_Process <= _OfferOutRows.QTT And _QTT_Process > 0 Then + .QTT = _QTT_Process + Else + ' TESZT MIATT!!!!!! -------------------------------------------------------------------------------------------------------- + Throw New Exception("*Az egyik megadott mennyiségi szándék értéke nagyobb mint az eredeti mennyiség, vagy kevesebb mint 0!") + End If + + .ShortName = _OfferOutRows.ShortName + .Units = _OfferOutRows.Units + .VAT = _OfferOutRows.VAT + .Description = _OfferOutRows.Description + .DiscountPriceDEV = _OfferOutRows.DiscountPriceDEV + .DiscountPriceHUF = _OfferOutRows.DiscountPriceHUF + .ListPriceDEV = _OfferOutRows.ListPriceDEV + .ListPriceHUF = _OfferOutRows.ListPriceHUF + .QualityOption = _OfferOutRows.QualityOption + .RowGroup1 = _OfferOutRows.RowGroup1 + .RowGroup2 = _OfferOutRows.RowGroup2 + .RowIndex = _OfferOutRows.RowIndex + .OfferOutRows = _OfferOutRows + End With + End If + Next + + _ocur.CommitChanges() + Dim _SortCollection As New SortingCollection + _SortCollection.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("OrderInHeader.Oid=?", _OrderInHeader_New.Oid)) + _OrderInRows_Collection.Sorting = _SortCollection + + Dim _OrderInRowsOther_Collection As New XPCollection(Of OrderInRowsOther)(_ocur.Session, CriteriaOperator.Parse("OrderInHeader.Oid=?", _OrderInHeader_New.Oid)) + _OrderInRowsOther_Collection.Sorting = _SortCollection + + Dim _Index As Long = 1 + For Each _OrderInRows In _OrderInRows_Collection + _OrderInRows.RowIndex = _Index + _Index += 1 + Next + + Dim _Index2 As Long = 1 + For Each _OrderInRowsOther In _OrderInRowsOther_Collection + _OrderInRowsOther.RowIndex = _Index2 + _Index2 += 1 + _OrderInRowsOther.Save() + Next + + _ocur.CommitChanges() + End Sub + Private Sub aCloneOfferOut_CRM_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloneOfferOut_CRM.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferOutHeader)) + Dim _OffersOutCloneForCRM As OffersOutCloneForCRM = _onew.CreateObject(Of OffersOutCloneForCRM)() + + _OffersOutCloneForCRM.OfferOutHeader = _OfferOutHeader + + e.View = Application.CreateDetailView(_onew, "OffersOutCloneForCRM_DetailView", False, _OffersOutCloneForCRM) + End Sub + Private Sub aCloneOfferOut_CRM_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneOfferOut_CRM.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OffersOutCloneForCRM).OfferOutHeader) + Dim _OfferOutHeader_New As OfferOutHeader = _onew.CreateObject(Of OfferOutHeader)() + Dim _OfferOutRows As OfferOutRows + + ' -------------------- Fejléc adatok átadása ---------------------------------------- + _OfferOutHeader_New.CRM_Opportunities = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OffersOutCloneForCRM).CRM_Opportunities) + _OfferOutHeader_New.CurrencyName = _OfferOutHeader.CurrencyName + _OfferOutHeader_New.DatePayment = _OfferOutHeader.DatePayment + _OfferOutHeader_New.DateDue = _OfferOutHeader.DateDue + _OfferOutHeader_New.Description = _OfferOutHeader.Description + _OfferOutHeader_New.OfferOutState = _OfferOutHeader.OfferOutState + _OfferOutHeader_New.PaymentOption = _OfferOutHeader.PaymentOption + _OfferOutHeader_New.QualityOption = _OfferOutHeader.QualityOption + _OfferOutHeader_New.ShipmentOption = _OfferOutHeader.ShipmentOption + _OfferOutHeader_New.IsEditable = True + _OfferOutHeader_New.IsStorno = False + _OfferOutHeader_New.DocumentBody = _OfferOutHeader.DocumentBody + _OfferOutHeader_New.ExcelFile = _OfferOutHeader.ExcelFile + _OfferOutHeader_New.ExcelProperty = _OfferOutHeader.ExcelProperty + _OfferOutHeader_New.OtherCostPercent = _OfferOutHeader.OtherCostPercent + + ' -------------------- Sor(ok) átadása----------------------------------------------- + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + Dim _OfferOutRows_New As OfferOutRows = _onew.CreateObject(Of OfferOutRows)() + _OfferOutRows_New.OfferOutHeader = _OfferOutHeader_New + _OfferOutRows_New.CustomsTariffs = _OfferOutRows.CustomsTariffs + _OfferOutRows_New.Description = _OfferOutRows.Description + _OfferOutRows_New.DescriptionPrivate = _OfferOutRows.DescriptionPrivate + _OfferOutRows_New.DiscountPercent = _OfferOutRows.DiscountPercent + _OfferOutRows_New.Installation = _OfferOutRows.Installation + _OfferOutRows_New.FinalPriceDEV = _OfferOutRows.FinalPriceDEV + _OfferOutRows_New.FinalPriceHUF = _OfferOutRows.FinalPriceHUF + _OfferOutRows_New.QTT = _OfferOutRows.QTT + _OfferOutRows_New.ListPriceDEV = _OfferOutRows.ListPriceDEV + _OfferOutRows_New.ListPriceHUF = _OfferOutRows.ListPriceHUF + _OfferOutRows_New.Product = _OfferOutRows.Product + + _OfferOutRows_New.QualityOption = _OfferOutRows.QualityOption + _OfferOutRows_New.RowIndex = _OfferOutRows.RowIndex + _OfferOutRows_New.RowType = _OfferOutRows.RowType + _OfferOutRows_New.ShortName = _OfferOutRows.ShortName + _OfferOutRows_New.VAT = _OfferOutRows.VAT + _OfferOutRows_New.RowGroup1 = _OfferOutRows.RowGroup1 + _OfferOutRows_New.RowGroup2 = _OfferOutRows.RowGroup2 + _OfferOutRows_New.CanChangeProperty = _OfferOutRows.CanChangeProperty + _OfferOutRows_New.DiscountPriceDEV = _OfferOutRows.DiscountPriceDEV + _OfferOutRows_New.DiscountPriceHUF = _OfferOutRows.DiscountPriceHUF + _OfferOutRows_New.OfferInRows = _OfferOutRows.OfferInRows + _OfferOutRows_New.Recipe = _OfferOutRows.Recipe + _OfferOutRows_New.SumPriceDEV = _OfferOutRows.SumPriceDEV + _OfferOutRows_New.SumPriceHUF = _OfferOutRows.SumPriceHUF + _OfferOutRows_New.Units = _OfferOutRows.Units + Next + ' ----------- Az új adatokkal megjeleníteni az új objektumot ---------------------------------- + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferOutHeader_DetailView", True, _OfferOutHeader_New) + e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + + End Sub + Private Sub aOffersOut_ChangeRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOffersOut_ChangeRows.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutRows_ChangeGroup As OfferOutRows_ChangeGroup = _onew.CreateObject(Of OfferOutRows_ChangeGroup)() + If View.SelectedObjects.Count > 0 Then + Dim _OfferOutRows As OfferOutRows = TryCast(View.SelectedObjects(0), OfferOutRows) + _OfferOutRows_ChangeGroup.VAT = _onew.GetObject(_OfferOutRows.VAT) + _OfferOutRows_ChangeGroup.Units = _onew.GetObject(_OfferOutRows.Units) + _OfferOutRows_ChangeGroup.RowGroup1 = _onew.GetObject(_OfferOutRows.RowGroup1) + _OfferOutRows_ChangeGroup.RowGroup2 = _onew.GetObject(_OfferOutRows.RowGroup2) + _OfferOutRows_ChangeGroup.QualityOption = _onew.GetObject(_OfferOutRows.QualityOption) + _OfferOutRows_ChangeGroup.FinalPricePercent = 0 + _OfferOutRows_ChangeGroup.ShortName = _onew.GetObject(_OfferOutRows.ShortName) + _OfferOutRows_ChangeGroup.Description = _onew.GetObject(_OfferOutRows.Description) + + e.View = Application.CreateDetailView(_onew, "OfferOutRows_ChangeGroup_DetailView", False, _OfferOutRows_ChangeGroup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aOffersOut_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOffersOut_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutRows_ChangeGroup As OfferOutRows_ChangeGroup = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferOutRows_ChangeGroup) + + Dim _OfferOutRows As OfferOutRows '= TryCast(View.SelectedObjects(0), OfferOutRows) + 'If _OfferOutRows IsNot Nothing Then + + If _OfferOutRows_ChangeGroup.Change_Description Then + For Each _OfferOutRows In _selection + _OfferOutRows.Description = _OfferOutRows_ChangeGroup.Description + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_FinalPricePercent Then + For Each _OfferOutRows In _selection + '_OfferOutRows.FinalPriceHUF = _OfferOutRows.FinalPriceHUF - (_OfferOutRows.FinalPriceHUF * (_OfferOutRows_ChangeGroup.FinalPricePercent / 100)) + _OfferOutRows.DiscountPercent = _OfferOutRows_ChangeGroup.FinalPricePercent + _OfferOutRows.RecalculateRow() + _OfferOutRows.CanChangeProperty = False + + If _OfferOutRows.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + _OfferOutRows.FinalPriceHUF = _OfferOutRows.ListPriceHUF - _OfferOutRows.DiscountPriceHUF + Else + _OfferOutRows.FinalPriceDEV = _OfferOutRows.ListPriceDEV - _OfferOutRows.FinalPriceDEV + End If + + _OfferOutRows.CanChangeProperty = True + + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_QualityOption Then + For Each _OfferOutRows In _selection + _OfferOutRows.QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_OfferOutRows.QualityOption.Oid) + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_RowGroup1 Then + For Each _OfferOutRows In _selection + _OfferOutRows.RowGroup1 = _OfferOutRows_ChangeGroup.RowGroup1 + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_RowGroup2 Then + For Each _OfferOutRows In _selection + _OfferOutRows.RowGroup2 = _OfferOutRows_ChangeGroup.RowGroup2 + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_ShortName Then + For Each _OfferOutRows In _selection + _OfferOutRows.ShortName = _OfferOutRows_ChangeGroup.ShortName + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_Units Then + For Each _OfferOutRows In _selection + _OfferOutRows.Units = _ocur.GetObjectByKey(Of Units)(_OfferOutRows_ChangeGroup.Units.Oid) + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_VAT Then + For Each _OfferOutRows In _selection + _OfferOutRows.VAT = _ocur.GetObjectByKey(Of VAT)(_OfferOutRows_ChangeGroup.VAT.Oid) + _OfferOutRows.Save() + Next + End If + If _OfferOutRows_ChangeGroup.Change_OfferInRows Then + For Each _OfferOutRows In _selection + _OfferOutRows.OfferInRows = _ocur.GetObjectByKey(Of OfferInRows)(_OfferOutRows_ChangeGroup.OfferInRows.Oid) + _OfferOutRows.Save() + Next + End If + 'End If + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub aOffersOutFinalWidthVersion_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOffersOutFinalWidthVersion.CustomizePopupWindowParams + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(OfferOutHeader)) + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("CRM_Opportunities.Oid=?", _OfferOutHeader.CRM_Opportunities.Oid) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("IsEditable=?", _OfferOutHeader.IsEditable = False) + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("OfferOutHeader_ListView_Clone_CRM", _CollectionSource, True) + End Sub + Private Sub aOffersOutFinalWidthVersion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOffersOutFinalWidthVersion.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader_Popup As OfferOutHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OfferOutHeader)) + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _DocumentNumber As String + Dim _DocumentNumber_POPUP As String + + If InStr(_OfferOutHeader_Popup.DocumentNumber, "->") = 0 Then + _DocumentNumber_POPUP = _OfferOutHeader_Popup.DocumentNumber + Else + _DocumentNumber_POPUP = _OfferOutHeader_Popup.DocumentNumber.Remove(InStr(_OfferOutHeader_Popup.DocumentNumber, "->") - 1, _ + _OfferOutHeader_Popup.DocumentNumber.Length - InStr(_OfferOutHeader_Popup.DocumentNumber, "->") + 1) + End If + + Dim _OfferOutHeader_Collection As New XPCollection(Of OfferOutHeader)(_ocur.Session, CriteriaOperator.Parse("DocumentNumber like '" & _DocumentNumber_POPUP & "%'")) + + If _OfferOutHeader_Collection.Count = 1 Then + _DocumentNumber = _DocumentNumber_POPUP & "->1" + Else + _DocumentNumber = _DocumentNumber_POPUP + "->" + (_OfferOutHeader_Collection.Count).ToString() + End If + + If _OfferOutHeader.OfferOutRows.Count > 0 Then + _OfferOutHeader.DocumentNumber = _DocumentNumber + + _OfferOutHeader.IsEditable = False + _ocur.CommitChanges() + _OfferOutHeader.RecalculateOfferOut(_OfferOutHeader, _ocur) + _ocur.CommitChanges() + View.Refresh() + Else + '-------------Teszt miatt------------------------------ + _ocur.Rollback() + Throw New Exception("*Nincs egy sora sem a kimenő ajánlatnak, így nem lehet véglegesíteni!") + End If + End Sub + Private Sub aGenerateOfferOutCost_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateOfferOutCost.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _OfferOutRows As OfferOutRows + Dim _OfferOutCostRows As OfferOutCostRows + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + If _ocur.Session.IsNewObject(_PropertyCollectionSource.MasterObject) Then ' Amennyiben ha a fejléc új objektum, rámentünk, hogy létre tudjuk hozmni hozzá a költség sorokat + _ocur.CommitChanges() + End If + Dim _OfferOutHeader As OfferOutHeader = _uow.GetObjectByKey(Of OfferOutHeader)(TryCast(_PropertyCollectionSource.MasterObject, OfferOutHeader).Oid) + Dim _CustomersOrderPriority As CustomersOrderPriority + Dim _PricingIn As Pricing = Nothing + Dim _OfferOutCostRows_Collection As New XPCollection(Of OfferOutCostRows)(_uow, CriteriaOperator.Parse("OfferOutHeader=?", _OfferOutHeader)) + + _uow.Delete(_OfferOutCostRows_Collection) + + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + _OfferOutCostRows = New OfferOutCostRows(_uow) + _OfferOutCostRows.OfferOutHeader = _OfferOutHeader + _OfferOutCostRows.RowGroup1 = _OfferOutRows.RowGroup1 + _OfferOutCostRows.RowGroup2 = _OfferOutRows.RowGroup2 + _PricingIn = Nothing + If _OfferOutRows.RowType = eRowType.IsProduct Then + If _OfferOutRows.Product IsNot Nothing Then + For Each _CustomersOrderPriority In _OfferOutRows.Product.CustomersOrderPriority + If _CustomersOrderPriority.RowIndex = 1 Then + If _CustomersOrderPriority.CustomersOrder.PricingIn IsNot Nothing Then + _PricingIn = _CustomersOrderPriority.CustomersOrder.PricingIn + Exit For + End If + End If + Next + If _PricingIn IsNot Nothing Then + _OfferOutCostRows.FinalPriceHUF_In = _PricingIn.GetCurrentPriceNettoHUF(_OfferOutRows.Product, _OfferOutRows.QTT, _OfferOutCostRows.OfferOutHeader.CRM_Opportunities) + _OfferOutCostRows.FinalPriceDEV_In = _PricingIn.GetCurrentPriceNettoDEV(_OfferOutRows.Product, _OfferOutRows.QTT, _OfferOutCostRows.OfferOutHeader.CRM_Opportunities) + Else + 'If _OfferOutRows.Product.ListPriceInHUF > 1 Then + ' _OfferOutCostRows.FinalPriceHUF_In = _OfferOutRows.Product.ListPriceInHUF '0 + 'Else + _OfferOutCostRows.FinalPriceHUF_In = _OfferOutRows.Product.ListPriceInHUF + 'End If + 'If _OfferOutRows.Product.ListPriceInDEV > 0 Then + ' _OfferOutCostRows.FinalPriceDEV_In = _OfferOutRows.Product.ListPriceInDEV '0 + 'Else + _OfferOutCostRows.FinalPriceDEV_In = _OfferOutRows.Product.ListPriceInDEV + 'End If + End If + End If + ElseIf _OfferOutRows.RowType = eRowType.IsOther Then + + If _OfferOutRows.FinalPriceHUF > 0 Or _OfferOutRows.FinalPriceDEV > 0 Then + If _OfferOutRows.OfferInRows IsNot Nothing Then + _OfferOutCostRows.FinalPriceHUF_In = _OfferOutRows.OfferInRows.FinalPriceHUF + _OfferOutCostRows.FinalPriceDEV_In = _OfferOutRows.OfferInRows.FinalPriceDEV + Else + If _OfferOutHeader.OtherCostPercent <> 0 Then + _OfferOutCostRows.FinalPriceDEV_In = _OfferOutRows.FinalPriceDEV * (_OfferOutHeader.OtherCostPercent / 100) + _OfferOutCostRows.FinalPriceHUF_In = _OfferOutRows.FinalPriceHUF * (_OfferOutHeader.OtherCostPercent / 100) + Else + _OfferOutCostRows.FinalPriceDEV_In = 0 + _OfferOutCostRows.FinalPriceHUF_In = 0 + End If + End If + Else + 'IDE KELL MEGÍRNI HOGY MI LEGYEN A KEDVEZMÉNY SOROKKAL...... + End If + ElseIf _OfferOutRows.RowType = eRowType.IsInstallation Then + _OfferOutCostRows.FinalPriceDEV_In = 0 + _OfferOutCostRows.FinalPriceHUF_In = 0 + End If + + _OfferOutCostRows.SumPriceDEV_In = _OfferOutCostRows.FinalPriceDEV_In * _OfferOutRows.QTT + _OfferOutCostRows.SumPriceHUF_In = _OfferOutCostRows.FinalPriceHUF_In * _OfferOutRows.QTT + + _OfferOutCostRows.FinalPriceDEV_Out = _OfferOutRows.FinalPriceDEV + _OfferOutCostRows.SumPriceDEV_Out = _OfferOutRows.FinalPriceDEV * _OfferOutRows.QTT + + _OfferOutCostRows.FinalPriceHUF_Out = _OfferOutRows.FinalPriceHUF + _OfferOutCostRows.SumPriceHUF_Out = _OfferOutRows.FinalPriceHUF * _OfferOutRows.QTT + + If _OfferOutCostRows.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + _OfferOutCostRows.DifferentHUF = (_OfferOutCostRows.FinalPriceHUF_Out - _OfferOutCostRows.FinalPriceHUF_In) * _OfferOutRows.QTT + Else + _OfferOutCostRows.DifferentDEV = (_OfferOutCostRows.FinalPriceDEV_Out - _OfferOutCostRows.FinalPriceDEV_In) * _OfferOutRows.QTT + End If + + If _OfferOutCostRows.FinalPriceHUF_Out <> 0 Then + _OfferOutCostRows.DifferentPercent = Math.Round((1 - (_OfferOutCostRows.FinalPriceHUF_In / _OfferOutCostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _OfferOutCostRows.DifferentPercent = 0 + End If + + _OfferOutCostRows.Description = _OfferOutRows.Description + _OfferOutCostRows.ShortName = _OfferOutRows.ShortName + _OfferOutCostRows.QTT = _OfferOutRows.QTT + _OfferOutCostRows.Units = _OfferOutRows.Units + + _OfferOutCostRows.OfferOutHeader = _OfferOutHeader 'Fejléc + _OfferOutCostRows.OfferOutRows = _OfferOutRows 'Sor + + _OfferOutCostRows.Save() + Next + _uow.CommitChanges() + + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + Private Sub aImportRecipe_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportRecipe.CustomizePopupWindowParams + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + + If _OfferOutHeader.IsEditable Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ImportRecipePopUp As ImportRecipePopUp = _onew.CreateObject(Of ImportRecipePopUp)() + e.View = Application.CreateDetailView(_onew, "ImportRecipePopUp_DetailView", False, _ImportRecipePopUp) + Else + '----------TESZT MIATT----------------------------------------- + Throw New Exception("*A kimenő ajánlat végleges vagy stornó!") + End If + End Sub + Private Sub aImportRecipe_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportRecipe.Execute + Try + Dim _ImportRecipePopUp As ImportRecipePopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ImportRecipePopUp) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _OfferOutHeader As OfferOutHeader = TryCast(_PropertyCollectionSource.MasterObject, OfferOutHeader) + Dim _Recipe As Recipe = _ocur.GetObjectByKey(Of Recipe)(_ImportRecipePopUp.Recipe.Oid) + + If _OfferOutHeader IsNot Nothing And _Recipe IsNot Nothing Then + For Each _RecipeFrom As RecipeFrom In _Recipe.RecipeFrom + Dim _OfferOutRows As OfferOutRows = _ocur.CreateObject(Of OfferOutRows)() + _OfferOutRows.OfferOutHeader = _OfferOutHeader + _OfferOutRows.CanChangeProperty = False + _OfferOutRows.RowType = eRowType.IsProduct + _OfferOutRows.RowGroup1 = _RecipeFrom.RowGroup1 + _OfferOutRows.RowGroup2 = _RecipeFrom.RowGroup2 + _OfferOutRows.Product = _RecipeFrom.Products + _OfferOutRows.QTT = _RecipeFrom.QTT + _OfferOutRows.Units = _RecipeFrom.Products.Units + _OfferOutRows.FinalPriceDEV = _RecipeFrom.QTT * _RecipeFrom.ListPriceDEV + _OfferOutRows.FinalPriceHUF = _RecipeFrom.QTT * _RecipeFrom.ListPriceHUF + _OfferOutRows.VAT = _RecipeFrom.Products.VAT + + If _OfferOutHeader.OfferOutRows.Count = 0 Then + _OfferOutRows.RowIndex = 0 + Else + _OfferOutRows.RowIndex = _OfferOutHeader.OfferOutRows.Count - 1 + End If + Next + + For Each _RecipeFromOther As RecipeFromOther In _Recipe.RecipeFromOther + Dim _OfferOutRows As OfferOutRows = _ocur.CreateObject(Of OfferOutRows)() + _OfferOutRows.OfferOutHeader = _OfferOutHeader + _OfferOutRows.CanChangeProperty = False + _OfferOutRows.RowType = eRowType.IsOther + _OfferOutRows.RowGroup1 = _RecipeFromOther.RowGroup1 + _OfferOutRows.RowGroup2 = _RecipeFromOther.RowGroup2 + _OfferOutRows.ShortName = _RecipeFromOther.ShortName + _OfferOutRows.Description = _RecipeFromOther.Description + _OfferOutRows.QTT = _RecipeFromOther.QTT + _OfferOutRows.Units = _RecipeFromOther.Units + _OfferOutRows.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + _OfferOutRows.ListPriceHUF = _RecipeFromOther.ListPriceHUF + _OfferOutRows.ListPriceDEV = _RecipeFromOther.ListPriceDEV + _OfferOutRows.FinalPriceHUF = _RecipeFromOther.QTT * _RecipeFromOther.ListPriceHUF + _OfferOutRows.FinalPriceDEV = _RecipeFromOther.QTT * _RecipeFromOther.ListPriceDEV + If _OfferOutHeader.OfferOutRows.Count = 0 Then + _OfferOutRows.RowIndex = 0 + Else + _OfferOutRows.RowIndex = _OfferOutHeader.OfferOutRows.Count - 1 + End If + Next + End If + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aInsert_Discount_RowOther_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsert_Discount_RowOther.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InsertDiscountRowPopup As InsertDiscountRowPopup = _onew.CreateObject(Of InsertDiscountRowPopup)() + Dim _OfferOutHeader As OfferOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferOutHeader)) + + _InsertDiscountRowPopup.OfferOutHeader = _OfferOutHeader + + If _InsertDiscountRowPopup.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + For Each _OfferOutRows As OfferOutRows In _InsertDiscountRowPopup.OfferOutHeader.OfferOutRows + _InsertDiscountRowPopup.SUMFinalPrice += _OfferOutRows.SumPriceHUF + Next + Else + For Each _OfferOutRows As OfferOutRows In _InsertDiscountRowPopup.OfferOutHeader.OfferOutRows + _InsertDiscountRowPopup.SUMFinalPrice += _OfferOutRows.SumPriceDEV + Next + End If + + e.View = Application.CreateDetailView(_onew, "InsertDiscountRowPopup_DetailView", False, _InsertDiscountRowPopup) + End Sub + Private Sub aInsert_Discount_RowOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsert_Discount_RowOther.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InsertDiscountRowPopup As InsertDiscountRowPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), InsertDiscountRowPopup) + Dim _OfferOutRows_New As OfferOutRows = _ocur.CreateObject(Of OfferOutRows)() + + If _InsertDiscountRowPopup.DiscountPriceHUF < 0 Or _InsertDiscountRowPopup.DiscountPriceDEV < 0 Then + '------ TESZT MIATT!!! ---------------------------------------------- + Throw New Exception("*A fix kedvezmény értéke nem lehet negatív szám!") + End If + + If _InsertDiscountRowPopup.DiscountPercent >= 0 And _InsertDiscountRowPopup.DiscountPercent <= 99 And _InsertDiscountRowPopup.ShortName <> "" Then + If _InsertDiscountRowPopup.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + If _InsertDiscountRowPopup.DiscountPercent > 0 Then + _InsertDiscountRowPopup.DiscountPriceHUF = Math.Round((_InsertDiscountRowPopup.SUMFinalPrice * (_InsertDiscountRowPopup.DiscountPercent / 100)), 0, MidpointRounding.AwayFromZero) + End If + Else + If _InsertDiscountRowPopup.DiscountPercent > 0 Then + _InsertDiscountRowPopup.DiscountPriceDEV = Math.Round((_InsertDiscountRowPopup.SUMFinalPrice * (_InsertDiscountRowPopup.DiscountPercent / 100)), 2, MidpointRounding.AwayFromZero) + End If + End If + + '------------ Új sor létrehozása --------------------------------------------------------------- + Dim _DefaultVAT As VAT + Dim _VAT_Collection As New XPCollection(Of VAT)(_ocur.Session) + + For Each _VAT As VAT In _VAT_Collection + If _VAT.DefaultForBusinnes = True Then + _DefaultVAT = _VAT + Exit For + End If + Next + + If _DefaultVAT IsNot Nothing Then + _OfferOutRows_New.VAT = _DefaultVAT + End If + _OfferOutRows_New.CanChangeProperty = False + _OfferOutRows_New.OfferOutHeader = _ocur.GetObjectByKey(Of OfferOutHeader)(_InsertDiscountRowPopup.OfferOutHeader.Oid) + _OfferOutRows_New.RowType = eRowType.IsOther + _OfferOutRows_New.QTT = 1 + _OfferOutRows_New.Description = _InsertDiscountRowPopup.Description + _OfferOutRows_New.RowGroup1 = _InsertDiscountRowPopup.Row_Group1 + _OfferOutRows_New.RowGroup2 = _InsertDiscountRowPopup.Row_Group2 + _OfferOutRows_New.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'")) + _OfferOutRows_New.RowIndex = _InsertDiscountRowPopup.OfferOutHeader.OfferOutRows.Count + _OfferOutRows_New.SumPriceHUF -= _InsertDiscountRowPopup.DiscountPriceHUF + _OfferOutRows_New.SumPriceDEV -= _InsertDiscountRowPopup.DiscountPriceDEV + _OfferOutRows_New.ListPriceHUF = _OfferOutRows_New.SumPriceHUF + _OfferOutRows_New.ListPriceDEV = _OfferOutRows_New.SumPriceDEV + _OfferOutRows_New.FinalPriceHUF = _OfferOutRows_New.SumPriceHUF + _OfferOutRows_New.FinalPriceDEV = _OfferOutRows_New.SumPriceDEV + If _InsertDiscountRowPopup.DiscountPercent > 0 Then + _OfferOutRows_New.ShortName = _InsertDiscountRowPopup.ShortName & " " & _InsertDiscountRowPopup.DiscountPercent.ToString & "%" + Else + _OfferOutRows_New.ShortName = _InsertDiscountRowPopup.ShortName + End If + _OfferOutRows_New.Save() + _ocur.CommitChanges() + Else + '--------------------TESZT MIATT--------------------------------------------------------------------------------' + Throw New UserFriendlyException("A kedvezmény % értéke nem lehet kisebb mint 0 (nulla), vagy nagyobb mint 99 és a megnevezés mező kitöltés kötelező!") + End If + End Sub + Private Sub aInsertServicesToOfferOut_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToOfferOut.CustomizePopupWindowParams + ' Az akció a szolgáltatások listview-ját hozza fel. + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + + If _OfferOutHeader.IsEditable Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False) + Else + '----------TESZT MIATT----------------------------------------- + Throw New Exception("*A kimenő ajánlat végleges vagy stornó!") + End If + End Sub + Private Sub aInsertServicesToOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToOfferOut.Execute + 'A popup-on kiválasztott szolgáltatásokból létrehoz kimenő árajánlati sorokat + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + Dim _Services As Services + Dim _OfferOutRows_New As OfferOutRows + + For Each _Services In e.PopupWindow.View.SelectedObjects + _OfferOutRows_New = _ocur.CreateObject(Of OfferOutRows)() + + _OfferOutRows_New.RowType = eRowType.IsOther + _OfferOutRows_New.OfferOutHeader = _OfferOutHeader + _OfferOutRows_New.ShortName = _Services.ShortName + _OfferOutRows_New.CustomsTariffs = _ocur.GetObject(_Services.CustomsTariffs) + _OfferOutRows_New.Description = _Services.Description + _OfferOutRows_New.ListPriceDEV = _Services.ListPriceDEV + _OfferOutRows_New.ListPriceHUF = _Services.ListPriceHUF + _OfferOutRows_New.Units = _ocur.GetObject(_Services.Units) + _OfferOutRows_New.FinalPriceDEV = _Services.ListPriceDEV + _OfferOutRows_New.FinalPriceHUF = _Services.ListPriceHUF + _OfferOutRows_New.VAT = _ocur.GetObject(_Services.VAT) + _OfferOutRows_New.Recipe = _ocur.GetObject(_Services.Recipe) + _OfferOutRows_New.QTT = 1 + _OfferOutRows_New.RowGroup1 = _Services.RowGroup1 + _OfferOutRows_New.RowGroup2 = _Services.RowGroup2 + + 'Indexelés + If _OfferOutHeader.OfferOutRows.Count = 0 Then + _OfferOutRows_New.RowIndex = 0 + Else + _OfferOutRows_New.RowIndex = _OfferOutHeader.OfferOutRows.Count - 1 + End If + + _OfferOutRows_New.Save() + Next + _ocur.CommitChanges() + End Sub + Private Sub aOfferOut_ChangeState_Cancel(sender As Object, e As System.EventArgs) + _noselect = False + End Sub + Private Sub aOfferOut_ChangeState_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferOut_ChangeState.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOut_ChangeState_PopUp As OfferOut_ChangeState_PopUp = _onew.CreateObject(Of OfferOut_ChangeState_PopUp)() + + e.View = Application.CreateDetailView(_onew, "OfferOut_ChangeState_PopUp_DetailView", False, _OfferOut_ChangeState_PopUp) + End Sub + Private Sub aOfferOut_ChangeState_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferOut_ChangeState.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOut_ChangeState_PopUp As OfferOut_ChangeState_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferOut_ChangeState_PopUp) + For Each _OfferOutHeader As OfferOutHeader In _selection + _OfferOutHeader.OfferOutState = _ocur.GetObject(_OfferOut_ChangeState_PopUp.OfferOutState) + If _OfferOut_ChangeState_PopUp.OfferOutState = eOfferOutState.eClosedLOST Then + _OfferOutHeader.OfferLOSTReason = _ocur.GetObject(_OfferOut_ChangeState_PopUp.OfferLOSTReason) + _OfferOutHeader.OfferLOSTReasonDescription = _OfferOut_ChangeState_PopUp.OfferLOSTReasonDescription + End If + Next + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub aBackToEditOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEditOfferOut.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + If _OfferOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _OfferOutHeader.IsEditable = True Then Throw New Exception("*Az ajánlat már szerkeszthető státuszban van!") + + _OfferOutHeader.IsEditable = True + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + Private Sub aProductVariableFinder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aProductVariableFinder.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferOutRows As OfferOutRows = TryCast(View.SelectedObjects(0), OfferOutRows) + If _OfferOutRows.RowType <> eRowType.IsProduct Then Throw New Exception("*A kiválsztott sor nem tartalmaz terméket!") + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProductFinderVariable As ProductFinderVariable = _onew.CreateObject(Of ProductFinderVariable)() + + _ProductFinderVariable.Products = _onew.GetObject(_OfferOutRows.Product) + _ProductFinderVariable.MasterKey = Guid.NewGuid + + e.View = Application.CreateDetailView(_onew, "ProductFinderVariable_DetailView", False, _ProductFinderVariable) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + Private Sub aProductVariableFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aProductVariableFinder.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ProductFinderVariable As ProductFinderVariable = TryCast(e.PopupWindow.View.SelectedObjects(0), ProductFinderVariable) + Dim _ProductFinderVariable_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("ProductSelectVariables") + Dim _NewProducts As Products = TryCast(_ProductFinderVariable_ListEditor.ListView.SelectedObjects(0), ProductSelect).Products + + If _NewProducts Is Nothing Then Throw New Exception("*Nincs kiválasztva az alternatíva!") + + Dim _OfferOutRows As OfferOutRows = TryCast(View.SelectedObjects(0), OfferOutRows) + + _OfferOutRows.Product = _ocur.GetObject(_NewProducts) + _OfferOutRows.ListPriceHUF = _NewProducts.ListPriceOutHUF + _OfferOutRows.ListPriceDEV = _NewProducts.ListPriceOutDEV + _OfferOutRows.FinalPriceHUF = _NewProducts.ListPriceOutHUF + _OfferOutRows.FinalPriceDEV = _NewProducts.ListPriceOutDEV + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub aBackToRowEdit_OfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_OfferOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(e.SelectedObjects(0), OfferOutHeader) + Dim _OfferOutRows As OfferOutRows + Dim _OfferOutRows_ListEditor As ListPropertyEditor + + + _OfferOutRows_ListEditor = TryCast(View, DetailView).FindItem("OfferOutRows") + If _OfferOutRows_ListEditor IsNot Nothing Then + _OfferOutRows = _OfferOutRows_ListEditor.ListView.SelectedObjects(0) + If _OfferOutRows IsNot Nothing Then + _OfferOutHeader.row_RowGroup1 = _OfferOutRows.RowGroup1 + _OfferOutHeader.row_RowGroup2 = _OfferOutRows.RowGroup2 + _OfferOutHeader.row_DiscountPercent = 0 + _OfferOutHeader.row_Installation = Nothing + _OfferOutHeader.row_ListPriceDEV = _OfferOutRows.ListPriceDEV + _OfferOutHeader.row_ListPriceHUF = _OfferOutRows.ListPriceHUF + _OfferOutHeader.row_QTT = _OfferOutRows.QTT + _OfferOutHeader.row_RowType = _OfferOutRows.RowType + _OfferOutHeader.row_ShortName = _OfferOutRows.ShortName + _OfferOutHeader.row_Units = _OfferOutRows.Units + _OfferOutHeader.row_VAT = _OfferOutRows.VAT + _OfferOutHeader.row_Description = _OfferOutRows.Description + _OfferOutHeader.row_Installation = _OfferOutRows.Installation + _OfferOutHeader.row_Products = _OfferOutRows.Product + + End If + End If + + End Sub + + Private Sub aImportOrderInRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportOrderInRows.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ImportOrderInRowsPopUp As ImportOrderInRowsPopUp = _onew.CreateObject(Of ImportOrderInRowsPopUp)() + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + _ImportOrderInRowsPopUp.CRM_Opportunities = _onew.GetObject(_OfferOutHeader.CRM_Opportunities) + + e.View = Application.CreateDetailView(_onew, "ImportOrderInRowsPopUp_DetailView", False, _ImportOrderInRowsPopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aImportOrderInRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportOrderInRows.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + Dim _ImportOrderInRowsPopUp As ImportOrderInRowsPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ImportOrderInRowsPopUp) + Dim _OrderInHeader_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("OrderInHeader") + Dim _OrderInHeader As OrderInHeader = TryCast(_OrderInHeader_ListEditor.ListView.SelectedObjects(0), OrderInHeader) + If _OrderInHeader Is Nothing Then Throw New Exception("*Nincs kiválasztott bejövő megrendelés!") + If _OrderInHeader.OrderInRows.Count = 0 And _OrderInHeader.OrderInRowsOther.Count = 0 Then Throw New Exception("*A kiválasztott megrendelésnek nincsenek sorai!") + + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + Dim _OfferOutRows As OfferOutRows = _ocur.CreateObject(Of OfferOutRows)() + + _OfferOutRows.OfferOutHeader = _OfferOutHeader + _OfferOutRows.RowType = eRowType.IsProduct + _OfferOutRows.RowGroup1 = _OrderInRows.RowGroup1 + _OfferOutRows.RowGroup2 = _OrderInRows.RowGroup2 + _OfferOutRows.Product = _ocur.GetObject(_OrderInRows.Products) + _OfferOutRows.ShortName = _ocur.GetObject(_OrderInRows.Products).ShortName + _OfferOutRows.Description = _OrderInRows.Description + _OfferOutRows.DescriptionPrivate = _OrderInRows.DescriptionPrivate + _OfferOutRows.ListPriceHUF = _OfferOutRows.ListPriceHUF + _OfferOutRows.ListPriceDEV = _OfferOutRows.ListPriceDEV + _OfferOutRows.DiscountPriceHUF = _OrderInRows.DiscountPriceHUF + _OfferOutRows.DiscountPriceDEV = _OrderInRows.DiscountPriceDEV + _OfferOutRows.QTT = _OrderInRows.QTT + _OfferOutRows.Units = _ocur.GetObject(_OrderInRows.Products.Units) + _OfferOutRows.QualityOption = _OrderInRows.QualityOption + _OfferOutRows.VAT = _ocur.GetObject(_OrderInRows.Products.VAT) + _OfferOutRows.FinalPriceHUF = _OrderInRows.FinalPriceHUF + _OfferOutRows.FinalPriceDEV = _OrderInRows.FinalPriceDEV + + Next + + For Each _OrderInRowsOther As OrderInRowsOther In _OrderInHeader.OrderInRowsOther + Dim _OfferOutRows As OfferOutRows = _ocur.CreateObject(Of OfferOutRows)() + + _OfferOutRows.OfferOutHeader = _OfferOutHeader + _OfferOutRows.RowType = eRowType.IsOther + _OfferOutRows.RowGroup1 = _OrderInRowsOther.RowGroup1 + _OfferOutRows.RowGroup2 = _OrderInRowsOther.RowGroup2 + _OfferOutRows.ShortName = _OrderInRowsOther.ShortName + _OfferOutRows.Description = _OrderInRowsOther.Description + _OfferOutRows.ListPriceHUF = _OrderInRowsOther.ListPriceHUF + _OfferOutRows.ListPriceDEV = _OrderInRowsOther.ListPriceDEV + _OfferOutRows.DiscountPriceHUF = _OrderInRowsOther.DiscountPriceHUF + _OfferOutRows.DiscountPriceDEV = _OrderInRowsOther.DiscountPriceDEV + _OfferOutRows.QTT = _OrderInRowsOther.QTT + _OfferOutRows.Units = _ocur.GetObject(_OrderInRowsOther.Units) + _OfferOutRows.QualityOption = _ocur.GetObject(_OrderInRowsOther.QualityOption) + _OfferOutRows.VAT = _ocur.GetObject(_OrderInRowsOther.VAT) + + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub aOfferOut_RecalculateDEV_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOfferOut_RecalculateDEV.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _RecalcDEV As RecalcDEV = _onew.CreateObject(Of RecalcDEV)() + + '// MNB árfolyam lekérése + Dim _CurrencyRate_Collection = New XPCollection(Of CurrencyRate) _ + (_onew.Session, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _OfferOutHeader.CurrencyName.ShortName, Now.Date)) + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_Collection.Count > 0 Then + For Each _CurrencyRate In _CurrencyRate_Collection + If _CurrencyRate.DateValid.Date = Now.Date Then + _RecalcDEV.CurrencyRate = _CurrencyRate.RateAverage + Exit For + End If + Exit For + Next + End If + + e.View = Application.CreateDetailView(_onew, "RecalcDEV_DetailView", True, _RecalcDEV) + End Sub + + Private Sub aOfferOut_RecalculateDEV_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOfferOut_RecalculateDEV.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _OfferOutHeader As OfferOutHeader = TryCast(View.SelectedObjects(0), OfferOutHeader) + Dim _RecalcDEV As RecalcDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), RecalcDEV) + Dim _OfferOutRows As OfferOutRows + + For Each _OfferOutRows In _OfferOutHeader.OfferOutRows + If _RecalcDEV.PriceMode = ePriceMode.eHUFToDEV Then + _OfferOutRows.ListPriceDEV = Math.Round(_OfferOutRows.ListPriceHUF / _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + _OfferOutRows.DiscountPriceDEV = Math.Round(_OfferOutRows.ListPriceDEV * (_OfferOutRows.DiscountPercent / 100), 2, MidpointRounding.AwayFromZero) + _OfferOutRows.FinalPriceDEV = _OfferOutRows.ListPriceDEV - _OfferOutRows.DiscountPriceDEV + _OfferOutRows.RecalculateRow() + _OfferOutRows.RecalculateRow2() + End If + If _RecalcDEV.PriceMode = ePriceMode.eDEVToHUF Then + _OfferOutRows.ListPriceHUF = Math.Round(_OfferOutRows.ListPriceDEV * _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + _OfferOutRows.DiscountPriceHUF = Math.Round(_OfferOutRows.ListPriceHUF * (_OfferOutRows.DiscountPercent / 100), 2, MidpointRounding.AwayFromZero) + _OfferOutRows.FinalPriceHUF = _OfferOutRows.ListPriceHUF - _OfferOutRows.DiscountPriceHUF + _OfferOutRows.RecalculateRow() + _OfferOutRows.RecalculateRow2() + End If + Next + _ocur.CommitChanges() + + End Sub + + Private Sub aOfferOutHeader_AddOfferInHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOfferOutHeader_AddOfferInHeader.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + + Dim _OfferOutHeader_CollectionSource As New CollectionSource(_onew, GetType(OfferInHeader)) + + _OfferOutHeader_CollectionSource.BeginUpdateCriteria() + _OfferOutHeader_CollectionSource.Criteria.Add("CRM", CriteriaOperator.Parse("CRM_Opportunities=?", _onew.GetObject(_OfferOutHeader.CRM_Opportunities))) + _OfferOutHeader_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("OfferInHeader_ListView_OfferOutHeaderInHeader", _OfferOutHeader_CollectionSource, False) + End Sub + Private Sub aOfferOutHeader_AddOfferInHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOfferOutHeader_AddOfferInHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + + For Each _OfferInHeader As OfferInHeader In e.PopupWindow.View.SelectedObjects + Dim _OfferOutHeaderInHeader As New OfferOutHeaderInHeader(_ocur.Session) + With _OfferOutHeaderInHeader + .OfferInHeader = _ocur.GetObject(_OfferInHeader) + .OfferOutHeader = _OfferOutHeader + End With + Next + + _ocur.CommitChanges() + End Sub + + Private Sub aOfferOutHeader_ImportOfferInRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOfferOutHeader_ImportOfferInRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferInRows_CollectionSource As New CollectionSource(_onew, GetType(OfferInRows)) + + e.View = Application.CreateListView("OfferInRows_ListView", _OfferInRows_CollectionSource, False) + End Sub + Private Sub aOfferOutHeader_ImportOfferInRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOfferOutHeader_ImportOfferInRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OfferOutHeader As OfferOutHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferOutHeader) + If _OfferOutHeader IsNot Nothing Then + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + For Each _OfferInRows As OfferInRows In e.PopupWindow.View.SelectedObjects + Dim _OfferOutRows As New OfferOutRows(_ocur.Session) + With _OfferOutRows + .OfferOutHeader = _OfferOutHeader + .RowType = _OfferInRows.RowType + .RowGroup1 = _OfferInRows.RowGroup1 + .RowGroup2 = _OfferInRows.RowGroup2 + .Product = _ocur.GetObject(_OfferInRows.Product) + .Installation = _ocur.GetObject(_OfferInRows.Installation) + .ShortName = _OfferInRows.ShortName + .Description = _OfferInRows.Description + .DescriptionPrivate = _OfferInRows.DescriptionPrivate + .QTT = _OfferInRows.QTT + .QualityOption = _ocur.GetObject(_OfferInRows.QualityOption) + .Units = _ocur.GetObject(_OfferInRows.Units) + .VAT = _ocur.GetObject(_OfferInRows.VAT) + .SumPriceHUF = _OfferInRows.SumPriceHUF + .SumPriceDEV = _OfferInRows.SumPriceDEV + .FinalPriceHUF = _OfferInRows.FinalPriceHUF + .FinalPriceDEV = _OfferInRows.FinalPriceDEV + End With + Next + + End If + _ocur.CommitChanges() + End If + + End Sub + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutLOSTReason.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutLOSTReason.vb new file mode 100644 index 0000000..f18a572 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutLOSTReason.vb @@ -0,0 +1,11 @@ + +Public Enum eOfferOutLOSTReason + eNotSet = 0 'Nincs bellitva + eTooExpensive = 1 'Tl drga + eTooLate = 2 'Hatrid nem megfelel + eChooseConcurrency = 3 'Konkurencit vlasztottk + eQualityProblem = 4 'Nem megfelel minsg + eNoAnswer = 5 ' Nem mondjk meg mirt + eWINOther = 6 ' Ms ajnlatunkat fogadtk el + eOther = 7 'Egyb +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType.vb new file mode 100644 index 0000000..083078c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType.vb @@ -0,0 +1,5 @@ + +Public Enum eOfferOutMainType + eFromProducts = 0 'Termkrl adjuk + eFromInstallation = 1 'Gyrtmnyrl adjuk (Gyrtmny hierarchia !) +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType2.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType2.vb new file mode 100644 index 0000000..6ae7f12 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutMainType2.vb @@ -0,0 +1,6 @@ + +Public Enum eOfferOutMainType2 + eOfferDetail = 0 'Tteles ajnlat s sszests van a vgn + eOfferDetailNoSum = 1 'Tteles, de nem sszesthet ! + eOfferUnique = 2 'Abszolute egyedi s sok sok dokumentum +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutState.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutState.vb new file mode 100644 index 0000000..2fdbbee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eOfferOutState.vb @@ -0,0 +1,7 @@ + +Public Enum eOfferOutState + eInProgress = 0 'Mg dolgozunk rajta + eClosedWON = 1 'Elfogadtk + eClosedLOST = 2 'Nem fogadtk el + eInThinkingOf = 3 'Mg gondolkodnak, hogy mi legyen vele ! +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eRowType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eRowType.vb new file mode 100644 index 0000000..67b2f31 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/OffersOut/eRowType.vb @@ -0,0 +1,9 @@ + + + + +Public Enum eRowType + IsProduct = 0 'Termkrl + IsOther = 1 'Egyb + IsInstallation = 2 'Gyrtmnyrl +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerIn.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerIn.vb new file mode 100644 index 0000000..9201ada --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerIn.vb @@ -0,0 +1,154 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eOfferAnswerInState + eReject = 0 'Elutasts + eNotSet = -1 'Nincs belltva + eAccept = 2 'Elfogadom +End Enum + _ +Public Class OfferAnswerIn 'Bejv ajnlat fejlc + Inherits BaseObject + + Private _RegistryHeader As RegistryHeader + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _Contacts As Contacts + Private _JobNumberObjects As JobNumberObjects + Private _DocumentNumber As String + + Private _DateValid As Date + Private _OfferAnswerInState As eOfferAnswerInState + + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _OfferAskOut As OfferAskOut + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + + Property DateValid As Date + Get + Return _DateValid + End Get + Set(value As Date) + SetPropertyValue("DateValid", _DateValid, value.Date) + End Set + End Property + Property OfferAnswerInState As eOfferAnswerInState + Get + Return _OfferAnswerInState + End Get + Set(value As eOfferAnswerInState) + SetPropertyValue("OfferAnswerInState", _OfferAnswerInState, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property OfferAskOut As OfferAskOut + Get + Return _OfferAskOut + End Get + Set(value As OfferAskOut) + SetPropertyValue("OfferAskOut", _OfferAskOut, value) + End Set + End Property + '//XPCollections + _ + ReadOnly Property OfferAnswerInRows As XPCollection(Of OfferAnswerInRows) + Get + Return GetCollection(Of OfferAnswerInRows)("OfferAnswerInRows") + End Get + End Property + _ + ReadOnly Property OfferAnswerInDocuments As XPCollection(Of OfferAnswerInDocuments) + Get + Return GetCollection(Of OfferAnswerInDocuments)("OfferAnswerInDocuments") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInDocuments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInDocuments.vb new file mode 100644 index 0000000..bcf20ee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInDocuments.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAnswerInDocuments + Inherits FileAttachmentBase + + Private _OfferAnswerIn As OfferAnswerIn + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAnswerIn As OfferAnswerIn + Get + Return _OfferAnswerIn + End Get + Set(value As OfferAnswerIn) + SetPropertyValue("OfferAnswerIn", _OfferAnswerIn, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInRows.vb new file mode 100644 index 0000000..3bf6e32 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerInRows.vb @@ -0,0 +1,79 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAnswerInRows 'Bejv ajnlat sor + Inherits BaseObject + + Private _OfferAnswerIn As OfferAnswerIn + Private _Operations As Operations + Private _AmountHUF As Double = 0 + Private _AmountDEV As Double = 0 + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAnswerIn As OfferAnswerIn + Get + Return _OfferAnswerIn + End Get + Set(value As OfferAnswerIn) + SetPropertyValue("OfferAnswerIn", _OfferAnswerIn, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOut.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOut.vb new file mode 100644 index 0000000..e23eb65 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOut.vb @@ -0,0 +1,164 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eOfferAnswerOutState + eInProgress = 0 'Mg dolgozunk rajta + eClosedWON = 1 'Elfogadtk + eClosedLOST = 2 'Nem fogadtk el + eInThinkingOf = 3 'Mg gondolkodnak, hogy mi legyen vele ! +End Enum + _ +Public Class OfferAnswerOut + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _Contacts As Contacts + Private _DateExecution As Date + Private _DateValid As Date + Private _JobNumberObjects As JobNumberObjects + Private _OfferAnswerOutState As eOfferAnswerOutState + + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _HRPerson_Responsible As HRPerson + Private _OfferAnswerOut As OfferAnswerOut + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property OfferAnswerOutState As eOfferAnswerOutState + Get + Return _OfferAnswerOutState + End Get + Set(value As eOfferAnswerOutState) + SetPropertyValue("OfferAnswerOutState", _OfferAnswerOutState, value) + End Set + End Property + + + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateValid As Date + Get + Return _DateValid + End Get + Set(value As Date) + SetPropertyValue("DateValid", _DateValid, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property HRPerson_Responsible As HRPerson + Get + Return _HRPerson_Responsible + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson_Responsible", _HRPerson_Responsible, value) + End Set + End Property + Property OfferAnswerOut As OfferAnswerOut + Get + Return _OfferAnswerOut + End Get + Set(value As OfferAnswerOut) + SetPropertyValue("OfferAnswerOut", _OfferAnswerOut, value) + End Set + End Property + '//XPCollections + _ + ReadOnly Property OfferAnswerOutRows As XPCollection(Of OfferAnswerOutRows) + Get + Return GetCollection(Of OfferAnswerOutRows)("OfferAnswerOutRows") + End Get + End Property + _ + ReadOnly Property OfferAnswerOutDocuments As XPCollection(Of OfferAnswerOutDocuments) + Get + Return GetCollection(Of OfferAnswerOutDocuments)("OfferAnswerOutDocuments") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutDocuments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutDocuments.vb new file mode 100644 index 0000000..ac0a0a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutDocuments.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAnswerOutDocuments + Inherits FileAttachmentBase + + Private _OfferAnswerOut As OfferAnswerOut + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAnswerOut As OfferAnswerOut + Get + Return _OfferAnswerOut + End Get + Set(value As OfferAnswerOut) + SetPropertyValue("OfferAnswerOut", _OfferAnswerOut, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutRows.vb new file mode 100644 index 0000000..5cd2b50 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAnswerOutRows.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAnswerOutRows 'Kimen ajnlat sorok + Inherits BaseObject + + Private _OfferAnswerOut As OfferAnswerOut + Private _Operations As Operations + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + + _ + Property OfferAnswerOut As OfferAnswerOut + Get + Return _OfferAnswerOut + End Get + Set(value As OfferAnswerOut) + SetPropertyValue("OfferAnswerOut", _OfferAnswerOut, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn.vb new file mode 100644 index 0000000..92b810d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn.vb @@ -0,0 +1,232 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eOfferAskInState + eNotSet = -1 + eInProgress = 0 'Folyamatban + eWin = 1 'Megnyert + eLost = 2 'Elvesztett + eNextStep = 3 'Kvetkez krs + eWait = 4 'Visszajelzsre vr + eWaitDecisions = 5 + eRejected = 6 'Lemondott, nem adunk ajnlatot +End Enum + _ + _ + _ + _ + _ +Public Class OfferAskIn 'Bejv ajnlatkrs + Inherits BaseObject + + Private _RegistryHeader As RegistryHeader 'Iktats + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Partner + Private _Contacts As Contacts 'Kapcsolat + Private _JobNumberObjects As JobNumberObjects 'Project + + Private _DocumentNumber As String 'Dokumentum sorszma + Private _OfferAskInState As eOfferAskInState 'Sttusz + + Private _DateExecution As Date 'Dtum + Private _DateValid As Date 'Hatrid + + Private _ObjectCreated As Date 'Ltrehozva + Private _UserCreated As User 'Ltrehozta + + Private _HRPerson_Responsible As HRPerson + + Private _IsQualified As Boolean = False + + Private _CustomersName As String + Private _ContactsName As String + Private _ContactsPhone As String + Private _ContactsEMail As String + Private _JobNumberName As String 'Ha nincs minstve, akkor a munka megnevezse + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property OfferAskInState As eOfferAskInState + Get + Return _OfferAskInState + End Get + Set(value As eOfferAskInState) + SetPropertyValue("OfferAskInState", _OfferAskInState, value) + End Set + End Property + + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateValid As Date + Get + Return _DateValid + End Get + Set(value As Date) + SetPropertyValue("DateValid", _DateValid, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property HRPerson_Responsible As HRPerson + Get + Return _HRPerson_Responsible + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson_Responsible", _HRPerson_Responsible, value) + End Set + End Property + Property IsQualified As Boolean + Get + Return _IsQualified + End Get + Set(value As Boolean) + SetPropertyValue("IsQualified", _IsQualified, value) + End Set + End Property + + Property CustomersName As String + Get + Return _CustomersName + End Get + Set(value As String) + SetPropertyValue("CustomersName", _CustomersName, value) + End Set + End Property + Property ContactsName As String + Get + Return _ContactsName + End Get + Set(value As String) + SetPropertyValue("ContactsName", _ContactsName, value) + End Set + End Property + Property ContactsPhone As String + Get + Return _ContactsPhone + End Get + Set(value As String) + SetPropertyValue("ContactsPhone", _ContactsPhone, value) + End Set + End Property + Property ContactsEMail As String + Get + Return _ContactsEMail + End Get + Set(value As String) + SetPropertyValue("ContactsEMail", _ContactsEMail, value) + End Set + End Property + Property JobNumberName As String + Get + Return _JobNumberName + End Get + Set(value As String) + SetPropertyValue("JobNumberName", _JobNumberName, value) + End Set + End Property + '//XPCollection + _ + ReadOnly Property OfferAskInRows As XPCollection(Of OfferAskInRows) + Get + Return GetCollection(Of OfferAskInRows)("OfferAskInRows") + End Get + End Property + _ + ReadOnly Property OfferAskInDocuments As XPCollection(Of OfferAskInDocuments) + Get + Return GetCollection(Of OfferAskInDocuments)("OfferAskInDocuments") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInDocuments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInDocuments.vb new file mode 100644 index 0000000..987d48d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInDocuments.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAskInDocuments + Inherits FileAttachmentBase + + Private _OfferAskIn As OfferAskIn + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAskIn As OfferAskIn + Get + Return _OfferAskIn + End Get + Set(value As OfferAskIn) + SetPropertyValue("OfferAskIn", _OfferAskIn, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInRows.vb new file mode 100644 index 0000000..a9aaa80 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskInRows.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAskInRows + Inherits BaseObject + + Private _OfferAskIn As OfferAskIn + Private _Operations As Operations + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property OfferAskIn As OfferAskIn + Get + Return _OfferAskIn + End Get + Set(value As OfferAskIn) + SetPropertyValue("OfferAskIn", _OfferAskIn, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.Designer.vb new file mode 100644 index 0000000..241f592 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.Designer.vb @@ -0,0 +1,70 @@ +Partial Class OfferAskIn_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOfferAskInRowsAddOperations = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOfferAskInCreateOfferAskOutFromCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aOfferAskInRowsAddOperations + ' + Me.aOfferAskInRowsAddOperations.AcceptButtonCaption = Nothing + Me.aOfferAskInRowsAddOperations.CancelButtonCaption = Nothing + Me.aOfferAskInRowsAddOperations.Caption = "aOfferAskInRowsAddOperations" + Me.aOfferAskInRowsAddOperations.ConfirmationMessage = Nothing + Me.aOfferAskInRowsAddOperations.Id = "aOfferAskInRowsAddOperations" + Me.aOfferAskInRowsAddOperations.ImageName = Nothing + Me.aOfferAskInRowsAddOperations.Shortcut = Nothing + Me.aOfferAskInRowsAddOperations.Tag = Nothing + Me.aOfferAskInRowsAddOperations.TargetObjectsCriteria = Nothing + Me.aOfferAskInRowsAddOperations.TargetObjectType = GetType(SISBusiness.[Module].OfferAskInRows) + Me.aOfferAskInRowsAddOperations.TargetViewId = "" + Me.aOfferAskInRowsAddOperations.ToolTip = Nothing + Me.aOfferAskInRowsAddOperations.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aOfferAskInCreateOfferAskOutFromCustomers + ' + Me.aOfferAskInCreateOfferAskOutFromCustomers.AcceptButtonCaption = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.CancelButtonCaption = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.Caption = "aOfferAskInCreateOfferAskOutFromCustomers" + Me.aOfferAskInCreateOfferAskOutFromCustomers.ConfirmationMessage = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.Id = "aOfferAskInCreateOfferAskOutFromCustomers" + Me.aOfferAskInCreateOfferAskOutFromCustomers.ImageName = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOfferAskInCreateOfferAskOutFromCustomers.Shortcut = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.Tag = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.TargetObjectsCriteria = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.TargetObjectType = GetType(SISBusiness.[Module].OfferAskInRows) + Me.aOfferAskInCreateOfferAskOutFromCustomers.TargetViewId = "OfferAskIn_OfferAskInRows_ListView" + Me.aOfferAskInCreateOfferAskOutFromCustomers.ToolTip = Nothing + Me.aOfferAskInCreateOfferAskOutFromCustomers.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aOfferAskInRowsAddOperations As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOfferAskInCreateOfferAskOutFromCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.resx new file mode 100644 index 0000000..dda62fb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 318, 144 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb new file mode 100644 index 0000000..13cba1a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskIn_VC.vb @@ -0,0 +1,129 @@ +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.ExpressApp.Editors + +Public Class OfferAskIn_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferAskInCreateOfferAskOutFromCustomersPopUp_CustomersQualification_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aOfferAskInRowsAddOperations_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInRowsAddOperations.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + e.View = Application.CreateListView(_onew, GetType(Operations), False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aOfferAskInRowsAddOperations_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferAskInRowsAddOperations.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferAskIn As OfferAskIn = Nothing + If TryCast(View, ListView) IsNot Nothing Then + _OfferAskIn = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferAskIn) + If _OfferAskIn Is Nothing Then + _OfferAskIn = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferAskInRows).OfferAskIn + End If + ElseIf TryCast(View, DetailView) IsNot Nothing Then + _OfferAskIn = TryCast(View.SelectedObjects(0), OfferAskInRows).OfferAskIn + End If + + If _OfferAskIn Is Nothing Then Throw New Exception("*Nincs bejv ajnlat fejlc!") + + For Each _Operations As Operations In e.PopupWindow.View.SelectedObjects + Dim _OfferAskInRows As OfferAskInRows + _OfferAskInRows = _ocur.FindObject(Of OfferAskInRows)(CriteriaOperator.Parse("OfferAskIn=? AND Operations=?", _ocur.GetObjectByKey(Of OfferAskIn)(_OfferAskIn.Oid), _ + _ocur.GetObjectByKey(Of Operations)(_Operations.Oid))) + If _OfferAskInRows Is Nothing Then + _OfferAskInRows = _ocur.CreateObject(Of OfferAskInRows)() + _OfferAskInRows.OfferAskIn = _ocur.GetObjectByKey(Of OfferAskIn)(_OfferAskIn.Oid) + _OfferAskInRows.Operations = _ocur.GetObjectByKey(Of Operations)(_Operations.Oid) + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub aOfferAskInCreateOfferAskOutFromCustomers_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferAskInCreateOfferAskOutFromCustomers.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferAskInCreateOfferAskOutFromCustomersPopUp As OfferAskInCreateOfferAskOutFromCustomersPopUp = _onew.CreateObject(Of OfferAskInCreateOfferAskOutFromCustomersPopUp)() + Dim _OfferAskInRows As OfferAskInRows = TryCast(View.SelectedObjects(0), OfferAskInRows) + + If _OfferAskInRows Is Nothing Then Throw New Exception("*Nincs kivlasztott mvelet!") + + _OfferAskInCreateOfferAskOutFromCustomersPopUp.Operations = _onew.GetObject(_OfferAskInRows.Operations) + + e.View = Application.CreateDetailView(_onew, "OfferAskInCreateOfferAskOutFromCustomersPopUp_DetailView", False, _OfferAskInCreateOfferAskOutFromCustomersPopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aOfferAskInCreateOfferAskOutFromCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferAskInCreateOfferAskOutFromCustomers.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OfferAskInRows As OfferAskInRows = TryCast(View.SelectedObjects(0), OfferAskInRows) + Dim _OfferAskInCreateOfferAskOutFromCustomersPopUp As OfferAskInCreateOfferAskOutFromCustomersPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferAskInCreateOfferAskOutFromCustomersPopUp) + + Dim _OfferAskInRows_ListPropertyEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("CustomersQualification") + + For Each _CustomersQualification As CustomersQualification In _OfferAskInRows_ListPropertyEditor.ListView.SelectedObjects + Dim _OfferAskOut As OfferAskOut + _OfferAskOut = _ocur.FindObject(Of OfferAskOut)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND OfferAskOutState='eInProgress'", _ + _ocur.GetObject(_OfferAskInRows.OfferAskIn.CustomersFrom), _ocur.GetObject(_CustomersQualification.Customers))) + If _OfferAskOut Is Nothing Then + _OfferAskOut = _ocur.CreateObject(Of OfferAskOut)() + _OfferAskOut.CustomersFrom = _ocur.GetObject(_OfferAskInRows.OfferAskIn.CustomersFrom) + _OfferAskOut.Customers = _ocur.GetObject(_CustomersQualification.Customers) + _OfferAskOut.OfferAskOutState = eOfferAskOutState.eInProgress + _OfferAskOut.JobNumberObjects = _ocur.GetObject(_OfferAskInRows.OfferAskIn.JobNumberObjects) + End If + + _OfferAskOut.DateValid = _OfferAskInCreateOfferAskOutFromCustomersPopUp.DateValid + + Dim _OfferAskOutRows As OfferAskOutRows = _ocur.CreateObject(Of OfferAskOutRows)() + _OfferAskOutRows.OfferAskOut = _ocur.GetObject(_OfferAskOut) + _OfferAskOutRows.Operations = _ocur.GetObjectByKey(Of Operations)(_OfferAskInCreateOfferAskOutFromCustomersPopUp.Operations.Oid) + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOut.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOut.vb new file mode 100644 index 0000000..2b944cf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOut.vb @@ -0,0 +1,155 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eOfferAskOutState + eInProgress = 0 'Mg dolgozunk rajta + eSent = 1 'Elkldk +End Enum + _ +Public Class OfferAskOut 'Kimen ajnlatkrs fejlc + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _Contacts As Contacts + Private _JobNumberObjects As JobNumberObjects + Private _DocumentNumber As String + Private _OfferAskOutState As eOfferAskOutState + + Private _DateExecution As Date + Private _DateValid As Date + + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _OfferAskIn As OfferAskIn + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property OfferAskOutState As eOfferAskOutState + Get + Return _OfferAskOutState + End Get + Set(value As eOfferAskOutState) + SetPropertyValue("OfferAskOutState", _OfferAskOutState, value) + End Set + End Property + + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateValid As Date + Get + Return _DateValid + End Get + Set(value As Date) + SetPropertyValue("DateValid", _DateValid, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property OfferAskIn As OfferAskIn + Get + Return _OfferAskIn + End Get + Set(value As OfferAskIn) + SetPropertyValue("OfferAskIn", _OfferAskIn, value) + End Set + End Property + '//XPCollections + + _ + ReadOnly Property OfferAskOutRows As XPCollection(Of OfferAskOutRows) + Get + Return GetCollection(Of OfferAskOutRows)("OfferAskOutRows") + End Get + End Property + _ + ReadOnly Property OfferAskOutDocuments As XPCollection(Of OfferAskOutDocuments) + Get + Return GetCollection(Of OfferAskOutDocuments)("OfferAskOutDocuments") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutDocuments.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutDocuments.vb new file mode 100644 index 0000000..7055639 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutDocuments.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAskOutDocuments + Inherits FileAttachmentBase + + Private _OfferAskOut As OfferAskOut + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAskOut As OfferAskOut + Get + Return _OfferAskOut + End Get + Set(value As OfferAskOut) + SetPropertyValue("OfferAskOut", _OfferAskOut, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutRows.vb new file mode 100644 index 0000000..e7808d2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferAskOutRows.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferAskOutRows + Inherits BaseObject + + Private _OfferAskOut As OfferAskOut 'Kimen rajnlat krs fejlc + Private _Operations As Operations 'Mvelet + Private _Description As String 'Megjegyzs + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OfferAskOut As OfferAskOut + Get + Return _OfferAskOut + End Get + Set(value As OfferAskOut) + SetPropertyValue("OfferAskOut", _OfferAskOut, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserHeader.vb new file mode 100644 index 0000000..144bf60 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserHeader.vb @@ -0,0 +1,69 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferBrowserHeader + Inherits BaseObject + + Private _CustomersFrom As Customers + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserRows.vb new file mode 100644 index 0000000..876aa8a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferBrowserRows.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferBrowserRows + Inherits BaseObject + + Private _JobNumberObjects As JobNumberObjects + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferEvents.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferEvents.vb new file mode 100644 index 0000000..765c152 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OfferEvents.vb @@ -0,0 +1,110 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eOfferEventsType + eOfferAskIn = 0 + eOfferAskOut = 1 + eOfferAnswerIn = 2 + eOfferAnswerOut = 3 +End Enum + _ +Public Class OfferEvents + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _OfferEventsType As eOfferEventsType + Private _JobNumberObjects As JobNumberObjects + Private _Operations As Operations + + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property OfferEventsType As eOfferEventsType + Get + Return _OfferEventsType + End Get + Set(value As eOfferEventsType) + SetPropertyValue("OfferEventsType", _OfferEventsType, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OperationGroups.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OperationGroups.vb new file mode 100644 index 0000000..ad47d4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/OperationGroups.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OperationGroups + Inherits BaseObject + + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.Designer.vb new file mode 100644 index 0000000..a889471 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.Designer.vb @@ -0,0 +1,73 @@ +Partial Class Operation_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCustomersQualitificationFromOperation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCustomersQualitificationFromCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCustomersQualitificationFromOperation + ' + Me.aCustomersQualitificationFromOperation.AcceptButtonCaption = Nothing + Me.aCustomersQualitificationFromOperation.CancelButtonCaption = Nothing + Me.aCustomersQualitificationFromOperation.Caption = "aCustomersQualitificationFromOperation" + Me.aCustomersQualitificationFromOperation.ConfirmationMessage = Nothing + Me.aCustomersQualitificationFromOperation.Id = "aCustomersQualitificationFromOperation" + Me.aCustomersQualitificationFromOperation.ImageName = Nothing + Me.aCustomersQualitificationFromOperation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomersQualitificationFromOperation.Shortcut = Nothing + Me.aCustomersQualitificationFromOperation.Tag = Nothing + Me.aCustomersQualitificationFromOperation.TargetObjectsCriteria = Nothing + Me.aCustomersQualitificationFromOperation.TargetObjectType = GetType(SISBusiness.[Module].Operations) + Me.aCustomersQualitificationFromOperation.TargetViewId = "" + Me.aCustomersQualitificationFromOperation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCustomersQualitificationFromOperation.ToolTip = Nothing + Me.aCustomersQualitificationFromOperation.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCustomersQualitificationFromCustomers + ' + Me.aCustomersQualitificationFromCustomers.AcceptButtonCaption = Nothing + Me.aCustomersQualitificationFromCustomers.CancelButtonCaption = Nothing + Me.aCustomersQualitificationFromCustomers.Caption = "aCustomersQualitificationFromCustomers" + Me.aCustomersQualitificationFromCustomers.ConfirmationMessage = Nothing + Me.aCustomersQualitificationFromCustomers.Id = "aCustomersQualitificationFromCustomers" + Me.aCustomersQualitificationFromCustomers.ImageName = Nothing + Me.aCustomersQualitificationFromCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomersQualitificationFromCustomers.Shortcut = Nothing + Me.aCustomersQualitificationFromCustomers.Tag = Nothing + Me.aCustomersQualitificationFromCustomers.TargetObjectsCriteria = Nothing + Me.aCustomersQualitificationFromCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomersQualitificationFromCustomers.TargetViewId = "Customers_ListView_Qualification" + Me.aCustomersQualitificationFromCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCustomersQualitificationFromCustomers.ToolTip = Nothing + Me.aCustomersQualitificationFromCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aCustomersQualitificationFromOperation As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCustomersQualitificationFromCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.resx new file mode 100644 index 0000000..bf164c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 292, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.vb new file mode 100644 index 0000000..3750071 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operation_VC.vb @@ -0,0 +1,124 @@ +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 + +Public Class Operation_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aCustomersQualitificationFromOperation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersQualitificationFromOperation.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = _onew.CreateObject(Of CustomersQualificationPopUp)() + _CustomersQualificationPopUp.FromOperations = True + + e.View = Application.CreateDetailView(_onew, "CustomersQualificationPopUp_DetailView", False, _CustomersQualificationPopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCustomersQualitificationFromOperation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersQualitificationFromOperation.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomersQualificationPopUp) + Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_CustomersQualificationPopUp.Customers.Oid) + If _Customers Is Nothing Then Throw New Exception("*Nincs kivlasztva minstend gyfl!") + + For Each _Operations As Operations In View.SelectedObjects + Dim _CustomersQualification As CustomersQualification = _ocur.FindObject(Of CustomersQualification)(CriteriaOperator.Parse("Customers=? AND Operations=?", _Customers, _Operations)) + + If _CustomersQualification Is Nothing Then + _CustomersQualification = _ocur.CreateObject(Of CustomersQualification)() + _CustomersQualification.Customers = _Customers + _CustomersQualification.Operations = _Operations + End If + + If _CustomersQualificationPopUp.Change_Price Then + _CustomersQualification.Price = _CustomersQualificationPopUp.Price + End If + If _CustomersQualificationPopUp.Change_Quality Then + _CustomersQualification.Quality = _CustomersQualificationPopUp.Quality + End If + If _CustomersQualificationPopUp.Change_Speed Then + _CustomersQualification.Speed = _CustomersQualificationPopUp.Speed + End If + If _CustomersQualificationPopUp.Change_Other1 Then + _CustomersQualification.Other1 = _CustomersQualificationPopUp.Other1 + End If + If _CustomersQualificationPopUp.Change_Other2 Then + _CustomersQualification.Other2 = _CustomersQualificationPopUp.Other2 + End If + If _CustomersQualificationPopUp.Change_Other3 Then + _CustomersQualification.Other3 = _CustomersQualificationPopUp.Other3 + End If + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCustomersQualitificationFromCustomersQualitification_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersQualitificationFromCustomers.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = _onew.CreateObject(Of CustomersQualificationPopUp)() + _CustomersQualificationPopUp.FromCustomers = True + + e.View = Application.CreateDetailView(_onew, "CustomersQualificationPopUp_DetailView", False, _CustomersQualificationPopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCustomersQualitificationFromCustomersQualitification_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersQualitificationFromCustomers.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CustomersQualificationPopUp As CustomersQualificationPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CustomersQualificationPopUp) + Dim _Operations As Operations = _ocur.GetObjectByKey(Of Operations)(_CustomersQualificationPopUp.Operations.Oid) + If _Operations Is Nothing Then Throw New Exception("*Nincs kivlasztott mvelet!") + + For Each _Customers As Customers In View.SelectedObjects + Dim _CustomersQualification As CustomersQualification = _ocur.FindObject(Of CustomersQualification)(CriteriaOperator.Parse("Customers=? AND Operations=?", _Customers, _Operations)) + + If _CustomersQualification Is Nothing Then + _CustomersQualification = _ocur.CreateObject(Of CustomersQualification)() + _CustomersQualification.Customers = _Customers + _CustomersQualification.Operations = _Operations + End If + + If _CustomersQualificationPopUp.Change_Price Then + _CustomersQualification.Price = _CustomersQualificationPopUp.Price + End If + If _CustomersQualificationPopUp.Change_Quality Then + _CustomersQualification.Quality = _CustomersQualificationPopUp.Quality + End If + If _CustomersQualificationPopUp.Change_Speed Then + _CustomersQualification.Speed = _CustomersQualificationPopUp.Speed + End If + If _CustomersQualificationPopUp.Change_Other1 Then + _CustomersQualification.Other1 = _CustomersQualificationPopUp.Other1 + End If + If _CustomersQualificationPopUp.Change_Other2 Then + _CustomersQualification.Other2 = _CustomersQualificationPopUp.Other2 + End If + If _CustomersQualificationPopUp.Change_Other3 Then + _CustomersQualification.Other3 = _CustomersQualificationPopUp.Other3 + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operations.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operations.vb new file mode 100644 index 0000000..2facc38 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Operations.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class Operations 'Mveletek + Inherits BaseObject + + Private _OperationGroups As OperationGroups + Private _ShortName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property OperationGroups As OperationGroups + Get + Return _OperationGroups + End Get + Set(value As OperationGroups) + SetPropertyValue("OperationGroups", _OperationGroups, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/CustomersQualificationPopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/CustomersQualificationPopUp.vb new file mode 100644 index 0000000..35a35c5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/CustomersQualificationPopUp.vb @@ -0,0 +1,189 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ +Public Class CustomersQualificationPopUp + Inherits BaseObject + + Dim _FromCustomers As Boolean + Dim _FromOperations As Boolean + Dim _Customers As Customers + Dim _Operations As Operations + Dim _Change_Price As Boolean + Dim _Price As Long + Dim _Change_Speed As Boolean + Dim _Speed As Long + Dim _Change_Quality As Boolean + Dim _Quality As Long + Dim _Change_Other1 As Boolean + Dim _Other1 As Long + Dim _Change_Other2 As Boolean + Dim _Other2 As Long + Dim _Change_Other3 As Boolean + Dim _Other3 As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Change_Price = False + Change_Speed = False + Change_Quality = False + Change_Other1 = False + Change_Other2 = False + Change_Other3 = False + FromCustomers = False + FromOperations = False + End Sub + + _ + _ + _ + Property FromCustomers As Boolean + Get + Return _FromCustomers + End Get + Set(value As Boolean) + SetPropertyValue("FromCustomers", _FromCustomers, value) + End Set + End Property + _ + _ + _ + Property FromOperations As Boolean + Get + Return _FromOperations + End Get + Set(value As Boolean) + SetPropertyValue("FromOperations", _FromOperations, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + Property Change_Price As Boolean + Get + Return _Change_Price + End Get + Set(value As Boolean) + SetPropertyValue("Change_Price", _Change_Price, value) + End Set + End Property + Property Price As Long + Get + Return _Price + End Get + Set(value As Long) + SetPropertyValue("Price", _Price, value) + End Set + End Property + Property Change_Speed As Boolean + Get + Return _Change_Speed + End Get + Set(value As Boolean) + SetPropertyValue("Change_Speed", _Change_Speed, value) + End Set + End Property + Property Speed As Long + Get + Return _Speed + End Get + Set(value As Long) + SetPropertyValue("Speed", _Speed, value) + End Set + End Property + Property Change_Quality As Boolean + Get + Return _Change_Quality + End Get + Set(value As Boolean) + SetPropertyValue("Change_Quality", _Change_Quality, value) + End Set + End Property + Property Quality As Long + Get + Return _Quality + End Get + Set(value As Long) + SetPropertyValue("Quality", _Quality, value) + End Set + End Property + Property Change_Other1 As Boolean + Get + Return _Change_Other1 + End Get + Set(value As Boolean) + SetPropertyValue("Change_Other1", _Change_Other1, value) + End Set + End Property + Property Other1 As Long + Get + Return _Other1 + End Get + Set(value As Long) + SetPropertyValue("Other1", _Other1, value) + End Set + End Property + Property Change_Other2 As Boolean + Get + Return _Change_Other2 + End Get + Set(value As Boolean) + SetPropertyValue("Change_Other2", _Change_Other2, value) + End Set + End Property + Property Other2 As Long + Get + Return _Other2 + End Get + Set(value As Long) + SetPropertyValue("Other2", _Other2, value) + End Set + End Property + Property Change_Other3 As Boolean + Get + Return _Change_Other3 + End Get + Set(value As Boolean) + SetPropertyValue("Change_Other3", _Change_Other3, value) + End Set + End Property + Property Other3 As Long + Get + Return _Other3 + End Get + Set(value As Long) + SetPropertyValue("Other3", _Other3, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/OfferAskInCreateOfferAskOutFromCustomersPopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/OfferAskInCreateOfferAskOutFromCustomersPopUp.vb new file mode 100644 index 0000000..30b155e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/PopUp/OfferAskInCreateOfferAskOutFromCustomersPopUp.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class OfferAskInCreateOfferAskOutFromCustomersPopUp + Inherits BaseObject + + Private _DateValid As Date + Private _Operations As Operations + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property DateValid As Date + Get + Return _DateValid + End Get + Set(value As Date) + SetPropertyValue("DateValid", _DateValid, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + + '------------ReadOnly------------ + ReadOnly Property CustomersQualification As XPCollection(Of CustomersQualification) + Get + Return New XPCollection(Of CustomersQualification)(Session, CriteriaOperator.Parse("Operations=?", Me.Operations)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipeExecutionSimplePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipeExecutionSimplePopup.vb new file mode 100644 index 0000000..5b40f94 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipeExecutionSimplePopup.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RecipeExecutionSimplePopupFrom + Inherits BaseObject + Property RecipeFrom As RecipeFrom + Property StorageComputed As StorageComputed + Property QTTNeed As Double + Property QTTDifferent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class + _ + _ + _ +Public Class RecipeExecutionSimplePopupTo + Inherits BaseObject + Property RecipeTo As RecipeTo + Property StorageComputed As StorageComputed + Property QTTNeed As Double + Property QTTDifferent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipePopup.vb new file mode 100644 index 0000000..8960354 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Popoup/RecipePopup.vb @@ -0,0 +1,28 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RecipePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Property Change_RowGroup2 As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Recipe.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Recipe.vb new file mode 100644 index 0000000..e054a09 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/Recipe.vb @@ -0,0 +1,137 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class Recipe 'Gygrtsi receptek + Inherits BaseObject + Private _RecipeType As RecipeType + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _DocumentNumber As String 'Recept sorszma + Private _ShortName As String 'Recept megnevezse + Private _Description As String 'Recept lersa + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then + If RecipeType IsNot Nothing Then + If RecipeType.NumberGenerator IsNot Nothing Then + DocumentNumber = RecipeType.NumberGenerator.GetNewNumber(RecipeType.NumberGenerator) + End If + End If + End If + End Sub + _ + _ + Property RecipeType As RecipeType + Get + Return _RecipeType + End Get + Set(value As RecipeType) + SetPropertyValue("RecipeType", _RecipeType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + ReadOnly Property RecipeFrom As XPCollection(Of RecipeFrom) + Get + Return GetCollection(Of RecipeFrom)("RecipeFrom") + End Get + End Property + _ + _ + ReadOnly Property RecipeFromOther As XPCollection(Of RecipeFromOther) + Get + Return GetCollection(Of RecipeFromOther)("RecipeFromOther") + End Get + End Property + _ + _ + ReadOnly Property RecipeTo As XPCollection(Of RecipeTo) + Get + Return GetCollection(Of RecipeTo)("RecipeTo") + End Get + End Property + _ + _ + ReadOnly Property RecipeToOther As XPCollection(Of RecipeToOther) + Get + Return GetCollection(Of RecipeToOther)("RecipeToOther") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimple.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimple.vb new file mode 100644 index 0000000..7723567 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimple.vb @@ -0,0 +1,219 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class RecipeExecutionSimple + Inherits BaseObject + Private _RecipeExecutionSimpleType As RecipeExecutionSimpleType + Private _CustomersFrom As CustomersFrom + Private _DocumentNumber As String + Private _ShortName As String + Private _Recipe As Recipe + Private _QTT As Double + Private _IsEditable As Boolean = True + Private _IsStorno As Boolean = False + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(Me.DocumentNumber) Then + DocumentNumber = RecipeExecutionSimpleType.NumberGenerator.GetNewNumber(RecipeExecutionSimpleType.NumberGenerator) + End If + End Sub + Property RecipeExecutionSimpleType As RecipeExecutionSimpleType + Get + Return _RecipeExecutionSimpleType + End Get + Set(value As RecipeExecutionSimpleType) + SetPropertyValue("RecipeExecutionSimpleType", _RecipeExecutionSimpleType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + ListPriceControls(value) + End If + End If + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + Private Sub ListPriceControls(ByVal _Recipe As Recipe) + Dim _RecipeFrom As RecipeFrom + Dim _RecipeTo As RecipeTo + Dim _RecipeFrom_other As RecipeFromOther + Dim _RecipeTo_other As RecipeToOther + + Dim _check_From_HUF As Double = 0 + Dim _check_To_HUF As Double = 0 + Dim _check_From_DEV As Double = 0 + Dim _check_To_DEV As Double = 0 + + Dim _check_From_HUF_other As Double = 0 + Dim _check_To_HUF_other As Double = 0 + Dim _check_From_DEV_other As Double = 0 + Dim _check_To_DEV_other As Double = 0 + + Dim _i As Integer = 0 + + Dim Products_from As Products + Dim Products_to As Products + '-------- Norml gyrts -------------- + For Each _RecipeFrom In _Recipe.RecipeFrom + If _RecipeFrom IsNot Nothing Then + Products_from = TryCast(_RecipeFrom.Products, Products) + _i += 1 + _check_From_HUF += _RecipeFrom.QTT * _RecipeFrom.ListPriceHUF + _check_From_DEV += _RecipeFrom.QTT * _RecipeFrom.ListPriceDEV + End If + Next + For Each _RecipeTo In _Recipe.RecipeTo + If _RecipeTo IsNot Nothing Then + Products_to = TryCast(_RecipeTo.Products, Products) + _check_To_HUF += _RecipeTo.QTT * _RecipeTo.ListPriceHUF + _check_To_DEV += _RecipeTo.QTT * _RecipeTo.ListPriceDEV + End If + Next + If Not _check_From_HUF < _check_To_HUF And Not _check_From_HUF = _check_To_HUF Then + MsgBox("Az sszestett listar 'HUF' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + If Not _check_From_DEV < _check_To_DEV And Not _check_From_DEV = _check_To_DEV Then + MsgBox("Az sszestett listar 'DEV' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + + + '-------- Egyb gyrts -------------- + + For Each _RecipeFrom_other In _Recipe.RecipeFromOther + If _RecipeFrom_other IsNot Nothing Then + _check_From_HUF_other += _RecipeFrom_other.QTT * _RecipeFrom_other.ListPriceHUF + _check_From_DEV_other += _RecipeFrom_other.QTT * _RecipeFrom_other.ListPriceDEV + End If + Next + For Each _RecipeTo_other In _Recipe.RecipeToOther + If _RecipeTo_other IsNot Nothing Then + _check_To_HUF_other += _RecipeTo_other.QTT * _RecipeTo_other.ListPriceHUF + _check_To_DEV_other += _RecipeTo_other.QTT * _RecipeTo_other.ListPriceDEV + End If + Next + If Not _check_From_HUF_other < _check_To_HUF_other And Not _check_From_HUF_other = _check_To_HUF_other Then + MsgBox("Az 'Egyb temkek' sszestett listar 'HUF' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + If Not _check_From_DEV_other < _check_To_DEV_other And Not _check_From_DEV_other = _check_To_DEV_other Then + MsgBox("Az 'Egyb temkek' sszestett listar 'DEV' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + + + _check_From_HUF = 0 + _check_To_HUF = 0 + _check_From_DEV = 0 + _check_To_DEV = 0 + '------------------ + _check_From_HUF_other = 0 + _check_To_HUF_other = 0 + _check_From_DEV_other = 0 + _check_To_DEV_other = 0 + + End Sub + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleType.vb new file mode 100644 index 0000000..5707511 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleType.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeExecutionSimpleType + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _Description As String + Private _NumberGenerator As NumberGenerator + Private _StorageMoveType As StorageMoveType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.Designer.vb new file mode 100644 index 0000000..01cb74a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.Designer.vb @@ -0,0 +1,57 @@ +Partial Class RecipeExecutionSimpleVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecipeExecutionFrom = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRecipeExecutionTo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRecipeExecutionFrom + ' + Me.aRecipeExecutionFrom.AcceptButtonCaption = Nothing + Me.aRecipeExecutionFrom.CancelButtonCaption = Nothing + Me.aRecipeExecutionFrom.Caption = "Recipe Execution From" + Me.aRecipeExecutionFrom.Category = "ObjectsCreation" + Me.aRecipeExecutionFrom.Id = "aRecipeExecutionFrom" + Me.aRecipeExecutionFrom.TargetViewId = "RecipeExecutionSimple_DetailView" + Me.aRecipeExecutionFrom.ToolTip = Nothing + ' + 'aRecipeExecutionTo + ' + Me.aRecipeExecutionTo.AcceptButtonCaption = Nothing + Me.aRecipeExecutionTo.CancelButtonCaption = Nothing + Me.aRecipeExecutionTo.Caption = "aRecipeExecutionTo" + Me.aRecipeExecutionTo.Category = "ObjectsCreation" + Me.aRecipeExecutionTo.Id = "aRecipeExecutionTo" + Me.aRecipeExecutionTo.TargetViewId = "RecipeExecutionSimple_DetailView" + Me.aRecipeExecutionTo.ToolTip = Nothing + + End Sub + Friend WithEvents aRecipeExecutionFrom As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRecipeExecutionTo As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.resx new file mode 100644 index 0000000..45975f3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 221, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.vb new file mode 100644 index 0000000..2bedf18 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeExecutionSimpleVC.vb @@ -0,0 +1,703 @@ +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.Utils +Imports DevExpress.Persistent.BaseImpl + + + +Public Class RecipeExecutionSimpleVC + Inherits DevExpress.ExpressApp.ViewController + + Dim _RecipeExecutionFrom_Collection As New ArrayList + Dim _RecipeExecutionTo_Collection As New ArrayList + Dim _VaildData As Boolean = True + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "RecipeTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RecipeFrom_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "RecipeTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RecipeFrom_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + + Private Sub aRecipeExecutionFrom_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRecipeExecutionFrom.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(RecipeExecutionSimplePopupFrom)) + _RecipeExecutionFrom_Collection.Clear() + Dim _RecipeExecutionSimplePopupFrom As RecipeExecutionSimplePopupFrom + + For Each _RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + _RecipeExecutionSimplePopupFrom = _onew.CreateObject(Of RecipeExecutionSimplePopupFrom)() + + _RecipeExecutionSimplePopupFrom.RecipeFrom = _onew.GetObject(_RecipeFrom) + _RecipeExecutionSimplePopupFrom.StorageComputed = _onew.FindObject(Of StorageComputed) _ + (CriteriaOperator.Parse("Products=? And Storage=?", _onew.GetObject(_RecipeFrom.Products), _onew.GetObject(_RecipeFrom.Storage))) + + If _RecipeExecutionSimplePopupFrom.StorageComputed Is Nothing Then + _VaildData = False + Else + _RecipeExecutionSimplePopupFrom.QTTNeed = _RecipeExecutionSimple.QTT * _RecipeFrom.QTT + _RecipeExecutionSimplePopupFrom.QTTDifferent = _RecipeExecutionSimplePopupFrom.StorageComputed.QTTFree - _RecipeExecutionSimplePopupFrom.QTTNeed + If _RecipeExecutionSimplePopupFrom.QTTDifferent < 0 Then + _VaildData = False + End If + _RecipeExecutionFrom_Collection.Add(_RecipeExecutionSimplePopupFrom) + _CS.Add(_RecipeExecutionSimplePopupFrom) + End If + Next + + e.View = Application.CreateListView("RecipeExecutionSimplePopupFrom_ListView", _CS, False) + End Sub + Private Sub aRecipeExecutionFrom_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRecipeExecutionFrom.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Try + + If _VaildData = False Then Throw New UserFriendlyException("Nem kivitelezhet a gyrts, mert egy vagy tbb alapanyag nem ll rendelkezsre!") + + '--==Zrols==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + '---------------------------------------------------------- + 'Raktrak feltrkpezse, kitrolsi fejlc(ek) sszeraksa + '---------------------------------------------------------- + Dim _StorageOutHeader_Collection As New ArrayList '<== Kitrolso fejlcEK kollekcija, annyi kitrolsi fejlc, AHNY KLNBZ raktr van!!! + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _StorageOutHeader_Collection.Count = 0 Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers).Oid) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + Else + For Each _StorageOutHeaderExist As StorageOutHeader In _StorageOutHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageOutHeaderExist.Storage.Oid <> _RecipeFrom.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .Customers = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers)) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + End If + Exit For + Next + End If + Next + + '---------------------------------------------------------- + 'Kitrolsi sorok kitrolsi fejlcekzeh rendelse, StorageComputed toszingls + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _RecipeFrom.Storage.Oid = _StorageOutHeader.Storage.Oid Then + Dim _StorageOutRows As New StorageOutRows(_ocur.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .RowIndex = _StorageOutHeader.StorageOutRows.Count + .Products = _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid) + End With + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + Dim _QTT_Mod As Double = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _QTT_Free As Double = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid)), True) + Dim _QTT_ReservedOut As Double = _StorageComputed.QTTReservedOut + Dim _QTT_Will_Out As Double = 0 + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + End If + Next + Next + + '---------------------------------------------------------- + 'Kitrols(ok) vglegestse, mozgstbla, StorageComputed baszogats + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + Next + + + '---------------------------------------------------------- + 'Betrols raktr(ak)ba + '---------------------------------------------------------- + Dim _StorageInHeader_Collection As New ArrayList + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _StorageInHeader_Collection.Count = 0 Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Else + For Each _StorageInHeaderExist As StorageInHeader In _StorageInHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageInHeaderExist.Storage.Oid <> _RecipeTo.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _onew.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Exit For + End If + Next + End If + Next + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + If _RecipeTo.Storage.Oid = _StorageInHeader.Storage.Oid Then + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _RecipeTo.Products + .QTT_Will = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + .RowIndex = _StorageInHeader.StorageInRows.Count + .AveragePriceInHUF = _RecipeTo.ListPriceHUF + End With + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _RecipeTo.Products, _StorageInHeader.Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = New StorageComputed(_ocur.Session) + With _StorageComputed + .Storage = _StorageInHeader.Storage + .Products = _RecipeTo.Products + .QTTReservedIn = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + End With + Else + _StorageComputed.QTTReservedIn += _RecipeTo.QTT * _RecipeExecutionSimple.QTT + End If + End If + Next + Next + + '---------------------------------------------------------- + 'Betrols(ok) vglegetse + '---------------------------------------------------------- + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _ocur.GetObject(_StorageInRows) + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + Next + Next + + _ocur.CommitChanges() + + '---------------------------------------------------------- + 'Nyomtatvnyok + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageOutHeader.Storage.ReportOut.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber=?", _StorageOutHeader.DocumentNumber), True) + End If + Next + + + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aRecipeExecutionTo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRecipeExecutionTo.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(RecipeExecutionSimplePopupTo)) + _RecipeExecutionTo_Collection.Clear() + Dim _RecipeExecutionSimplePopupTo As RecipeExecutionSimplePopupTo + + For Each _RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + _RecipeExecutionSimplePopupTo = _onew.CreateObject(Of RecipeExecutionSimplePopupTo)() + + _RecipeExecutionSimplePopupTo.RecipeTo = _onew.GetObject(_RecipeTo) + _RecipeExecutionSimplePopupTo.StorageComputed = _onew.FindObject(Of StorageComputed) _ + (CriteriaOperator.Parse("Products=? And Storage=?", _onew.GetObject(_RecipeTo.Products), _onew.GetObject(_RecipeTo.Storage))) + _RecipeExecutionSimplePopupTo.QTTNeed = _RecipeExecutionSimple.QTT * _RecipeTo.QTT + _RecipeExecutionSimplePopupTo.QTTDifferent = _RecipeExecutionSimplePopupTo.StorageComputed.QTTFree - _RecipeExecutionSimplePopupTo.QTTNeed + If _RecipeExecutionSimplePopupTo.QTTDifferent < 0 Then + _VaildData = False + End If + _RecipeExecutionTo_Collection.Add(_RecipeExecutionSimplePopupTo) + _CS.Add(_RecipeExecutionSimplePopupTo) + Next + + e.View = Application.CreateListView("RecipeExecutionSimplePopupTo_ListView", _CS, False) + End Sub + Private Sub aRecipeExecutionTo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRecipeExecutionTo.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Try + + If _VaildData = False Then Throw New UserFriendlyException("Nem kivitelezhet a gyrts, mert egy vagy tbb alapanyag nem ll rendelkezsre!") + + '--==Zrols==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + '---------------------------------------------------------- + 'Raktrak feltrkpezse, kitrolsi fejlc(ek) sszeraksa + '---------------------------------------------------------- + Dim _StorageOutHeader_Collection As New ArrayList '<== Kitrolso fejlcEK kollekcija, annyi kitrolsi fejlc, AHNY KLNBZ raktr van!!! + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _StorageOutHeader_Collection.Count = 0 Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers).Oid) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + Else + For Each _StorageOutHeaderExist As StorageOutHeader In _StorageOutHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageOutHeaderExist.Storage.Oid <> _RecipeTo.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .Customers = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers)) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + End If + Exit For + Next + End If + Next + + '---------------------------------------------------------- + 'Kitrolsi sorok kitrolsi fejlcekzeh rendelse, StorageComputed toszingls + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _RecipeTo.Storage.Oid = _StorageOutHeader.Storage.Oid Then + Dim _StorageOutRows As New StorageOutRows(_ocur.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .RowIndex = _StorageOutHeader.StorageOutRows.Count + .Products = _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid) + End With + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + Dim _QTT_Mod As Double = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _QTT_Free As Double = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid)), True) + Dim _QTT_ReservedOut As Double = _StorageComputed.QTTReservedOut + Dim _QTT_Will_Out As Double = 0 + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + End If + Next + Next + + '---------------------------------------------------------- + 'Kitrols(ok) vglegestse, mozgstbla, StorageComputed baszogats + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + Next + + + '---------------------------------------------------------- + 'Betrols raktr(ak)ba + '---------------------------------------------------------- + Dim _StorageInHeader_Collection As New ArrayList + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _StorageInHeader_Collection.Count = 0 Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Else + For Each _StorageInHeaderExist As StorageInHeader In _StorageInHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageInHeaderExist.Storage.Oid <> _RecipeFrom.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _onew.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Exit For + End If + Next + End If + Next + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + If _RecipeFrom.Storage.Oid = _StorageInHeader.Storage.Oid Then + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _RecipeFrom.Products + .QTT_Will = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + .RowIndex = _StorageInHeader.StorageInRows.Count + .AveragePriceInHUF = _RecipeFrom.ListPriceHUF + End With + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _RecipeFrom.Products, _StorageInHeader.Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = New StorageComputed(_ocur.Session) + With _StorageComputed + .Storage = _StorageInHeader.Storage + .Products = _RecipeFrom.Products + .QTTReservedIn = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + End With + Else + _StorageComputed.QTTReservedIn += _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + End If + End If + Next + Next + + '---------------------------------------------------------- + 'Betrols(ok) vglegetse + '---------------------------------------------------------- + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _ocur.GetObject(_StorageInRows) + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + Next + Next + + _ocur.CommitChanges() + + '---------------------------------------------------------- + 'Nyomtatvnyok + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageOutHeader.Storage.ReportOut.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber=?", _StorageOutHeader.DocumentNumber), True) + End If + Next + + + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFrom.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFrom.vb new file mode 100644 index 0000000..df0d73b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFrom.vb @@ -0,0 +1,110 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeFrom + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Products As Products 'Termk + Private _Storage As Storage 'Raktr + Private _QTT As Double 'Mennyisg + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + If Me.ListPriceHUF = 0 Then + Me.ListPriceHUF = value.ListPriceOutHUF + End If + If Me.ListPriceDEV = 0 Then + Me.ListPriceDEV = value.ListPriceOutDEV + End If + End If + End If + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + _ + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFromOther.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFromOther.vb new file mode 100644 index 0000000..fe4d222 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeFromOther.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeFromOther + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double 'Mennyisg + Private _Units As Units + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeTo.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeTo.vb new file mode 100644 index 0000000..d5ab7c0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeTo.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeTo + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Products As Products 'Termk + Private _Storage As Storage 'Raktr + Private _QTT As Double 'Mennyisg + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + If Me.ListPriceHUF = 0 Then + Me.ListPriceHUF = value.ListPriceOutHUF + End If + If Me.ListPriceDEV = 0 Then + Me.ListPriceDEV = value.ListPriceOutDEV + End If + End If + End If + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + _ + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeToOther.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeToOther.vb new file mode 100644 index 0000000..6498e4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeToOther.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeToOther + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double 'Mennyisg + Private _Units As Units + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeType.vb new file mode 100644 index 0000000..f2b5965 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeType.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeType + Inherits BaseObject + Private _Group1 As String + Private _Group2 As String + Private _ShortName As String 'Recept megnevezse + Private _Description As String 'Recept lersa + Private _NumberGenerator As NumberGenerator + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property Group1 As String + Get + Return _Group1 + End Get + Set(value As String) + SetPropertyValue("Group1", _Group1, value) + End Set + End Property + Property Group2 As String + Get + Return _Group2 + End Get + Set(value As String) + SetPropertyValue("Group2", _Group2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.Designer.vb new file mode 100644 index 0000000..45e2027 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.Designer.vb @@ -0,0 +1,67 @@ +Partial Class RecipeVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecipe_ChangeRowGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsertServicesToRecipe = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRecipe_ChangeRowGroups + ' + Me.aRecipe_ChangeRowGroups.AcceptButtonCaption = Nothing + Me.aRecipe_ChangeRowGroups.CancelButtonCaption = Nothing + Me.aRecipe_ChangeRowGroups.Caption = "Recipe Change RowGroups" + Me.aRecipe_ChangeRowGroups.ConfirmationMessage = Nothing + Me.aRecipe_ChangeRowGroups.Id = "aRecipe_ChangeRowGroups" + Me.aRecipe_ChangeRowGroups.ImageName = Nothing + Me.aRecipe_ChangeRowGroups.Shortcut = Nothing + Me.aRecipe_ChangeRowGroups.Tag = Nothing + Me.aRecipe_ChangeRowGroups.TargetObjectsCriteria = Nothing + Me.aRecipe_ChangeRowGroups.TargetViewId = Nothing + Me.aRecipe_ChangeRowGroups.ToolTip = Nothing + Me.aRecipe_ChangeRowGroups.TypeOfView = Nothing + ' + 'aInsertServicesToRecipe + ' + Me.aInsertServicesToRecipe.AcceptButtonCaption = Nothing + Me.aInsertServicesToRecipe.CancelButtonCaption = Nothing + Me.aInsertServicesToRecipe.Caption = "Insert Services To Recipe" + Me.aInsertServicesToRecipe.ConfirmationMessage = Nothing + Me.aInsertServicesToRecipe.Id = "aInsertServicesToRecipe" + Me.aInsertServicesToRecipe.ImageName = Nothing + Me.aInsertServicesToRecipe.Shortcut = Nothing + Me.aInsertServicesToRecipe.Tag = Nothing + Me.aInsertServicesToRecipe.TargetObjectsCriteria = Nothing + Me.aInsertServicesToRecipe.TargetViewId = Nothing + Me.aInsertServicesToRecipe.ToolTip = Nothing + Me.aInsertServicesToRecipe.TypeOfView = Nothing + + End Sub + Friend WithEvents aRecipe_ChangeRowGroups As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsertServicesToRecipe As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.resx new file mode 100644 index 0000000..0c01197 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 221, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.vb new file mode 100644 index 0000000..1a75822 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Operation/Production/RecipeVC.vb @@ -0,0 +1,172 @@ +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 RecipeVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + Frame.GetController(Of RecipeVC).aInsertServicesToRecipe.Active.SetItemValue("", False) + + If View.Id = "Recipe_RecipeTo_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Frame.GetController(Of RecipeVC).aInsertServicesToRecipe.Active.SetItemValue("", True) + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFrom_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Recipe_RecipeTo_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFrom_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + End Sub + Private Sub RecipeLines_SelectionChange(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + If _noselect = False Then + _selection.Clear() + For Each _SelectedLines In View.SelectedObjects + _selection.Add(_SelectedLines) + Next + End If + End If + End Sub + + Private Sub aRecipe_ChangeRowGroups_Cancel(sender As Object, e As System.EventArgs) Handles aRecipe_ChangeRowGroups.Cancel + _noselect = False + End Sub + Private Sub aRecipe_ChangeRowGroups_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRecipe_ChangeRowGroups.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipePopup As RecipePopup = _onew.CreateObject(Of RecipePopup)() + If View.SelectedObjects.Count > 0 Then + e.View = Application.CreateDetailView(_onew, "RecipePopup_DetailView", False, _RecipePopup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aRecipe_ChangeRowGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRecipe_ChangeRowGroups.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RecipePopup As RecipePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RecipePopup) + If View.Id = "Recipe_RecipeFrom_ListView" Then + Dim _RecipeFrom As RecipeFrom + For Each _RecipeFrom In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeFrom.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeFrom.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeFrom.Save() + Next + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Dim _RecipeFromOther As RecipeFromOther + For Each _RecipeFromOther In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeFromOther.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeFromOther.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeFromOther.Save() + Next + End If + If View.Id = "Recipe_RecipeTo_ListView" Then + Dim _RecipeTo As RecipeTo + For Each _RecipeTo In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeTo.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeTo.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeTo.Save() + Next + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Dim _RecipeToOther As RecipeToOther + For Each _RecipeToOther In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeToOther.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeToOther.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeToOther.Save() + Next + End If + _ocur.CommitChanges() + _noselect = False + End Sub + + Private Sub aInsertServicesToRecipe_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToRecipe.CustomizePopupWindowParams + ' Az akció a szolgáltatások listview-ját hozza fel. + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False) + End Sub + Private Sub aInsertServicesToRecipe_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToRecipe.Execute + 'A popup-on kiválasztott szolgáltatásokból létrehoz a receptre szolgáltatás sorokat + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Recipe As Recipe = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Recipe) + Dim _Services As Services + Dim _RecipeToOther_New As RecipeToOther + + For Each _Services In e.PopupWindow.View.SelectedObjects + _RecipeToOther_New = _ocur.CreateObject(Of RecipeToOther)() + + _RecipeToOther_New.Recipe = _ocur.GetObject(_Recipe) + _RecipeToOther_New.ShortName = _Services.ShortName + _RecipeToOther_New.Description = _Services.Description + _RecipeToOther_New.Units = _ocur.GetObject(_Services.Units) + _RecipeToOther_New.QTT = 1 + _RecipeToOther_New.RowGroup1 = _Services.RowGroup1 + _RecipeToOther_New.RowGroup2 = _Services.RowGroup2 + + _RecipeToOther_New.Save() + Next + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportOrderInRowsPopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportOrderInRowsPopUp.vb new file mode 100644 index 0000000..e91f501 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportOrderInRowsPopUp.vb @@ -0,0 +1,47 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ImportOrderInRowsPopUp + Inherits BaseObject + Private _CRM_Opportunities As CRM_Opportunities + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + _ + _ + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + + '--------------ReadOnly------------------------ + _ + ReadOnly Property OrderInHeader As XPCollection(Of OrderInHeader) + Get + Return New XPCollection(Of OrderInHeader)(Session, Session.ParseCriteria("CRM_Opportunities=?", Me.CRM_Opportunities)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportRecipePopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportRecipePopUp.vb new file mode 100644 index 0000000..e8a17fc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/ImportRecipePopUp.vb @@ -0,0 +1,24 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ImportRecipePopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property Recipe As Recipe +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/InsertDiscountRowPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/InsertDiscountRowPopup.vb new file mode 100644 index 0000000..984d95e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/InsertDiscountRowPopup.vb @@ -0,0 +1,140 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +0", TargetItems:="DiscountPriceHUF;DiscountPriceDEV", Enabled:=False)> _ + 0 Or DiscountPriceDEV > 0", TargetItems:="DiscountPercent", Enabled:=False)> _ + _ +'HUF'", TargetItems:="DiscountPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ +Public Class InsertDiscountRowPopup + Inherits BaseObject + Private _Row_Group1 As String + Private _Row_Group2 As String + Private _ShortName As String = "Kedvezmny" + Private _Description As String + Private _DiscountPriceHUF As Double + Private _DiscountPriceDEV As Double + Private _Units As Units + Private _DiscountPercent As Double + Private _QTT As Double + Private _OfferOutHeader As OfferOutHeader + Private _SUMFinalPrice As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.QTT = 1 + Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'")) + End Sub + Property Row_Group1 As String + Get + Return _Row_Group1 + End Get + Set(value As String) + SetPropertyValue("Row_Group1", _Row_Group1, value) + End Set + End Property + Property Row_Group2 As String + Get + Return _Row_Group2 + End Get + Set(value As String) + SetPropertyValue("Row_Group2", _Row_Group2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DiscountPriceHUF As Double + Get + Return _DiscountPriceHUF + End Get + Set(value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + End Set + End Property + _ + Property DiscountPriceDEV As Double + Get + Return _DiscountPriceDEV + End Get + Set(value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + End Set + End Property + _ + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property DiscountPercent As Double + Get + Return _DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("DiscountPercent", _DiscountPercent, value) + End Set + End Property + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + _ + Property SUMFinalPrice As Double + Get + Return _SUMFinalPrice + End Get + Set(value As Double) + SetPropertyValue("SUMFinalPrice", _SUMFinalPrice, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferInRows_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferInRows_ChangeGroup.vb new file mode 100644 index 0000000..d759c4a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferInRows_ChangeGroup.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OfferInRows_ChangeGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ShortName As String + Property Change_ShortName As Boolean = False + Property Description As String + Property Change_Description As Boolean = False + Property DescriptionPrivate As String + Property Change_DescriptionPrivate As Boolean = False + Property QualityOption As QualityOption + Property Change_QualityOption As Boolean = False + Property Units As Units + Property Change_Units As Boolean = False + Property VAT As VAT + Property Change_VAT As Boolean = False + Property RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Property Change_RowGroup2 As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_ChangeState_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_ChangeState_PopUp.vb new file mode 100644 index 0000000..ce74478 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_ChangeState_PopUp.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +2", AppearanceItemType.ViewItem, "OfferInState<>2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _ +7", AppearanceItemType.ViewItem, "OfferLOSTReason<>7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _ +Public Class OfferIn_ChangeState_PopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _OfferInState As eOfferInState + Private _OfferLOSTReasonDescription As String + Private _OfferLOSTReason As eOfferInLOSTReason + + _ + Property OfferInState As eOfferInState + Get + Return _OfferInState + End Get + Set(value As eOfferInState) + SetPropertyValue("OfferInState", _OfferInState, value) + End Set + End Property + Property OfferLOSTReasonDescription As String + Get + Return _OfferLOSTReasonDescription + End Get + Set(value As String) + SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value) + End Set + End Property + _ + Property OfferLOSTReason As eOfferInLOSTReason + Get + Return _OfferLOSTReason + End Get + Set(value As eOfferInLOSTReason) + SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_RegenerateDEV_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_RegenerateDEV_Popup.vb new file mode 100644 index 0000000..1fa5adb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferIn_RegenerateDEV_Popup.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OfferIn_RegenerateDEV_Popup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CurrencyName As CurrencyName + Property CurrencyRate As Double + Property DateExecution As Date + Property PriceMode As ePriceMode +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOutRows_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOutRows_ChangeGroup.vb new file mode 100644 index 0000000..bfce7e0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOutRows_ChangeGroup.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OfferOutRows_ChangeGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property VAT As VAT + Property Change_VAT As Boolean = False + Property Units As Units + Property Change_Units As Boolean = False + Property RowGroup1 As String + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String + Property Change_RowGroup2 As Boolean = False + Property QualityOption As QualityOption + Property Change_QualityOption As Boolean = False + Property FinalPricePercent As Double '%-osan a meglv rtket nveli (+ s - lehet !!!) + Property Change_FinalPricePercent As Boolean = False + Property ShortName As String + Property Change_ShortName As Boolean = False + Property Description As String + Property Change_Description As Boolean = False + _ + Property OfferInRows As OfferInRows + Property Change_OfferInRows As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOut_ChangeState_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOut_ChangeState_PopUp.vb new file mode 100644 index 0000000..f6bec09 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OfferOut_ChangeState_PopUp.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +2", AppearanceItemType.ViewItem, "OfferOutState<>2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _ +7 OfferOut", AppearanceItemType.ViewItem, "OfferLOSTReason<>7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _ +Public Class OfferOut_ChangeState_PopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Private _OfferOutState As eOfferOutState + Private _OfferLOSTReason As eOfferOutLOSTReason + Private _OfferLOSTReasonDescription As String + + _ + Property OfferOutState As eOfferOutState + Get + Return _OfferOutState + End Get + Set(value As eOfferOutState) + SetPropertyValue("OfferOutState", _OfferOutState, value) + End Set + End Property + _ + Property OfferLOSTReason As eOfferOutLOSTReason + Get + Return _OfferLOSTReason + End Get + Set(value As eOfferOutLOSTReason) + SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value) + End Set + End Property + Property OfferLOSTReasonDescription As String + Get + Return _OfferLOSTReasonDescription + End Get + Set(value As String) + SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OffersOutCloneForCRM.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OffersOutCloneForCRM.vb new file mode 100644 index 0000000..76e556a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/OffersOutCloneForCRM.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class OffersOutCloneForCRM + Inherits BaseObject + Private _OfferOutHeader As OfferOutHeader + Private _CRM_Opportunities As CRM_Opportunities + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/RecalcDEV.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/RecalcDEV.vb new file mode 100644 index 0000000..504e20d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Offers/Popup/RecalcDEV.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RecalcDEV + Inherits BaseObject + Private _PriceMode As ePriceMode + Private _CurrencyRate As Double + Private _CurrencyName As CurrencyName + Private _DateExecution As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property PriceMode As ePriceMode + Get + Return _PriceMode + End Get + Set(value As ePriceMode) + SetPropertyValue("PriceMode", _PriceMode, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + DateExecution = DateExecution + End If + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + DateExecution = DateExecution + End If + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + '// MNB rfolyam lekrse + If CurrencyName IsNot Nothing Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (Session, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + CurrencyName.ShortName, DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = value.Date Then 'Now + CurrencyRate = _CurrencyRate_MNB.RateAverage + Exit For + Else + CurrencyRate = 0 + End If + Exit For + Next + End If + End If + End If + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.Designer.vb new file mode 100644 index 0000000..e030f16 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.Designer.vb @@ -0,0 +1,66 @@ +Partial Class OrderInHeader_PermissionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOrderInHeader_Permission_Refresh = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOrderInHeader_SetToApproval = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOrderInHeader_Permission_Refresh + ' + Me.aOrderInHeader_Permission_Refresh.Caption = "aOrderInHeader_Permission_Refresh" + Me.aOrderInHeader_Permission_Refresh.ConfirmationMessage = Nothing + Me.aOrderInHeader_Permission_Refresh.Id = "aOrderInHeader_Permission_Refresh" + Me.aOrderInHeader_Permission_Refresh.ImageName = Nothing + Me.aOrderInHeader_Permission_Refresh.Shortcut = Nothing + Me.aOrderInHeader_Permission_Refresh.Tag = Nothing + Me.aOrderInHeader_Permission_Refresh.TargetObjectsCriteria = Nothing + Me.aOrderInHeader_Permission_Refresh.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInHeader_Permission_Refresh.TargetViewId = "OrderInHeader_ListView_Permission" + Me.aOrderInHeader_Permission_Refresh.ToolTip = Nothing + Me.aOrderInHeader_Permission_Refresh.TypeOfView = Nothing + ' + 'aOrderInHeader_SetToApproval + ' + Me.aOrderInHeader_SetToApproval.Caption = "aOrderInHeader_SetToApproval" + Me.aOrderInHeader_SetToApproval.ConfirmationMessage = Nothing + Me.aOrderInHeader_SetToApproval.Id = "aOrderInHeader_SetToApproval" + Me.aOrderInHeader_SetToApproval.ImageName = Nothing + Me.aOrderInHeader_SetToApproval.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOrderInHeader_SetToApproval.Shortcut = Nothing + Me.aOrderInHeader_SetToApproval.Tag = Nothing + Me.aOrderInHeader_SetToApproval.TargetObjectsCriteria = Nothing + Me.aOrderInHeader_SetToApproval.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInHeader_SetToApproval.TargetViewId = "OrderInHeader_ListView_Permission" + Me.aOrderInHeader_SetToApproval.ToolTip = Nothing + Me.aOrderInHeader_SetToApproval.TypeOfView = Nothing + + End Sub + Friend WithEvents aOrderInHeader_Permission_Refresh As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOrderInHeader_SetToApproval As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.resx new file mode 100644 index 0000000..d6f88cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 137, 149 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb new file mode 100644 index 0000000..3067a45 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrderInHeader_PermissionVC.vb @@ -0,0 +1,104 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Xpo +Imports System.Linq +Imports DevExpress.Persistent.BaseImpl + +Public Class OrderInHeader_PermissionVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "OrderInHeader_ListView_Permission" Then + + Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + + Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("Default") = CriteriaOperator.Parse("1=2") + _CollectionSource.EndUpdateCriteria() + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OrderInHeader_ListView_Permission" Then + Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aOrderInHeader_Permission_Refresh_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_Permission_Refresh.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource + + Dim _OrderInHeader_Collection As New XPCollection(Of OrderInHeader)(_ocur.Session, CriteriaOperator.Parse("IsEditable=True AND OrderInParameters.NeedPermission=True")) + + Dim _Filter As String = "Oid in(" + + For Each _OrderInHeader As OrderInHeader In _OrderInHeader_Collection + If _OrderInHeader.SubjectToApproval(_OrderInHeader, _ocur) Then + + _Filter += "'" + _OrderInHeader.Oid.ToString + "'," + End If + Next + + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria.Remove("Default") + _CollectionSource.Criteria.Remove("Filter") + If _Filter.Length > 8 Then + _CollectionSource.Criteria.Add("Filter", CriteriaOperator.Parse(_Filter)) + Else + _CollectionSource.Criteria.Add("Filter", CriteriaOperator.Parse("1=2")) + End If + _CollectionSource.EndUpdateCriteria() + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aOrderInHeader_SetToApproval_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOrderInHeader_SetToApproval.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _User As User = TryCast(SecuritySystem.CurrentUser, User) + If _OrderInHeader.OrderInParameters.NeedPermissionHRPerson IsNot Nothing Then + If _OrderInHeader.OrderInParameters.NeedPermissionHRPerson.User.Oid = _User.Oid Then + _OrderInHeader.PermissionAllowed = Not _OrderInHeader.PermissionAllowed + + _ocur.CommitChanges() + Else + Throw New Exception(String.Format("n nem jogosult az ellenrzsre a(z) {0} megrendelsnl!", _OrderInHeader.DocumentNumber)) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/!Documents/OrderInVC.txt b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/!Documents/OrderInVC.txt new file mode 100644 index 0000000..9766d20 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/!Documents/OrderInVC.txt @@ -0,0 +1,21 @@ +DetailViewen lv action +------------------ +aOrderInStorageOutDeliveryNoteOut (Kitrols + Szlltlevl egyben) +aOrderInStorageOutDeliveryNoteOutInvoice (Szlltlevl + Szmla) +aGenerateInvoicefromOrderIn (Szmlzs) + +Kitrolsok fl +--------------- +aORI_Storno_StorageOut (Kitrols storn) +aORI_Create_Delivery (Szlltlevl ksztse) +aORI_Create_DeliveryInvoice (Szlltlevl + szmla) + +Kiszlltsok fl +----------------- +aORI_Storno_DeliveryNoteOut (Szlltlevl storn) +aORI_Create_Invoice (Szmla ksztse) + +Kimen szmla sorok +--------------------------- +aORI_Storno_Invoice (Szmla stornrozsa) +aOrderIn_InvoiceRowFinalize (Szmlasorok vglegestse) \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementHeader.vb new file mode 100644 index 0000000..3a9fbe8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementHeader.vb @@ -0,0 +1,155 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + + _ + _ +Public Class OrderInAcknowledgementHeader + Inherits BaseObject + Private _OrderInHeader As OrderInHeader + Private _DateCreated As Date + Private _DocumentNumber As String + Private _ShipmentOption As ShipmentOption + Private _PaymentOption As PaymentOption + Private _NoteHeader As String + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End Sub + _ + Property OrderInHeader As OrderInHeader + Get + Return _OrderInHeader + End Get + Set(value As OrderInHeader) + SetPropertyValue("OrderInHeader", _OrderInHeader, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + _ + Property NoteHeader As String + Get + Return _NoteHeader + End Get + Set(value As String) + SetPropertyValue("NoteHeader", _NoteHeader, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + ReadOnly Property OrderInAcknowledgementRows As XPCollection(Of OrderInAcknowledgementRows) + Get + Return GetCollection(Of OrderInAcknowledgementRows)("OrderInAcknowledgementRows") + End Get + End Property + _ + _ + ReadOnly Property OrderInAcknowledgementVAT As XPCollection(Of OrderInAcknowledgementVAT) + Get + Return GetCollection(Of OrderInAcknowledgementVAT)("OrderInAcknowledgementVAT") + End Get + End Property + Sub RecalculateOrderInAcknowledgement(ByVal _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader, ByVal _ocur As Xpo.XPObjectSpace) + '-- A rutin jragenerlja a pnzgyi sorokat + Dim _OrderInAcknowledgementVAT As OrderInAcknowledgementVAT + Dim i As Long = 1 + Dim j As Long = 1 + Dim _Exists As Boolean = False + + Session.Delete(_OrderInAcknowledgementHeader.OrderInAcknowledgementVAT) + Dim OIAR = New XPQuery(Of OrderInAcknowledgementRows)(_ocur.Session) + Dim query = From invoice In OIAR + Where invoice.OrderInAcknowledgementHeader.Oid = _OrderInAcknowledgementHeader.Oid _ + Group invoice By invoice.VAT Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.FinalPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.FinalPriceDEV) * inv.QTT)} + For Each item In query + _OrderInAcknowledgementVAT = _ocur.CreateObject(Of OrderInAcknowledgementVAT)() + _OrderInAcknowledgementVAT.OrderInAcknowledgementHeader = _OrderInAcknowledgementHeader + _OrderInAcknowledgementVAT.VAT = item.VAT + _OrderInAcknowledgementVAT.AmountNettoHUF = Math.Round(item.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _OrderInAcknowledgementVAT.AmountVATHUF = 0 + If item.VAT IsNot Nothing Then + _OrderInAcknowledgementVAT.AmountVATHUF = Math.Round(item.VAT.KeyValue * _OrderInAcknowledgementVAT.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + End If + _OrderInAcknowledgementVAT.AmountBruttoHUF = _OrderInAcknowledgementVAT.AmountNettoHUF + _OrderInAcknowledgementVAT.AmountVATHUF + + _OrderInAcknowledgementVAT.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + _OrderInAcknowledgementVAT.AmountVATDEV = 0 + If item.VAT IsNot Nothing Then + _OrderInAcknowledgementVAT.AmountVATDEV = Math.Round(item.VAT.KeyValue * _OrderInAcknowledgementVAT.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + End If + _OrderInAcknowledgementVAT.AmountBruttoDEV = _OrderInAcknowledgementVAT.AmountNettoDEV + _OrderInAcknowledgementVAT.AmountVATDEV + + _OrderInAcknowledgementVAT.Save() + _OrderInAcknowledgementHeader.OrderInAcknowledgementVAT.Add(_OrderInAcknowledgementVAT) + Next + _OrderInAcknowledgementHeader.Save() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementRows.vb new file mode 100644 index 0000000..67bff0f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementRows.vb @@ -0,0 +1,180 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInAcknowledgementRows + Inherits BaseObject + Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Private _RowIndex As Long + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double + Private _Units As Units 'Mennyisgi egysg + Private _QualityOption As QualityOption 'Minsgi opci + Private _VAT As VAT 'FA kd + Private _SumPriceHUF As Double + Private _SumPriceDEV As Double + Private _FinalPriceDEV As Double + Private _FinalPriceHUF As Double + Private _DateExecution As Date + Private _OrderInRows As OrderInRows + Private _OrderInRowsOther As OrderInRowsOther + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Get + Return _OrderInAcknowledgementHeader + End Get + Set(value As OrderInAcknowledgementHeader) + SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property QualityOption As QualityOption + Get + Return _QualityOption + End Get + Set(value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + Property FinalPriceDEV As Double + Get + Return _FinalPriceDEV + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV", _FinalPriceDEV, value) + End Set + End Property + Property FinalPriceHUF As Double + Get + Return _FinalPriceHUF + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF", _FinalPriceHUF, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + + Property OrderInRows As OrderInRows + Get + Return _OrderInRows + End Get + Set(value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + Property OrderInRowsOther As OrderInRowsOther + Get + Return _OrderInRowsOther + End Get + Set(value As OrderInRowsOther) + SetPropertyValue("OrderInRowsOther", _OrderInRowsOther, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVAT.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVAT.vb new file mode 100644 index 0000000..55d7766 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVAT.vb @@ -0,0 +1,103 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInAcknowledgementVAT + Inherits BaseObject + Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Private _VAT As VAT + Private _AmountNettoHUF As Double + Private _AmountVATHUF As Double + Private _AmountBruttoHUF As Double + Private _AmountNettoDEV As Double + Private _AmountVATDEV As Double + Private _AmountBruttoDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Get + Return _OrderInAcknowledgementHeader + End Get + Set(value As OrderInAcknowledgementHeader) + SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + Property AmountVATHUF As Double + Get + Return _AmountVATHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATHUF", _AmountVATHUF, value) + End Set + End Property + Property AmountBruttoHUF As Double + Get + Return _AmountBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value) + End Set + End Property + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + Property AmountVATDEV As Double + Get + Return _AmountVATDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATDEV", _AmountVATDEV, value) + End Set + End Property + Property AmountBruttoDEV As Double + Get + Return _AmountBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.Designer.vb new file mode 100644 index 0000000..59c3e90 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.Designer.vb @@ -0,0 +1,103 @@ +Partial Class OrderInAcknowledgementVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateAcknowledgementFromOrderIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateContractsFromAcknowledgement = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aAcknowledgementRows_Up = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAcknowledgementRows_Down = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateAcknowledgementFromOrderIn + ' + Me.aCreateAcknowledgementFromOrderIn.AcceptButtonCaption = Nothing + Me.aCreateAcknowledgementFromOrderIn.CancelButtonCaption = Nothing + Me.aCreateAcknowledgementFromOrderIn.Caption = "Create Acknowledgement From Order In" + Me.aCreateAcknowledgementFromOrderIn.Category = "aCreateAcknowledgementFromOrderIn" + Me.aCreateAcknowledgementFromOrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aCreateAcknowledgementFromOrderIn.Id = "aCreateAcknowledgementFromOrderIn" + Me.aCreateAcknowledgementFromOrderIn.ImageName = "document_check" + Me.aCreateAcknowledgementFromOrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateAcknowledgementFromOrderIn.Shortcut = Nothing + Me.aCreateAcknowledgementFromOrderIn.Tag = Nothing + Me.aCreateAcknowledgementFromOrderIn.TargetObjectsCriteria = Nothing + Me.aCreateAcknowledgementFromOrderIn.TargetViewId = "OrderInHeader_DetailView" + Me.aCreateAcknowledgementFromOrderIn.ToolTip = Nothing + Me.aCreateAcknowledgementFromOrderIn.TypeOfView = Nothing + ' + 'aCreateContractsFromAcknowledgement + ' + Me.aCreateContractsFromAcknowledgement.AcceptButtonCaption = Nothing + Me.aCreateContractsFromAcknowledgement.CancelButtonCaption = Nothing + Me.aCreateContractsFromAcknowledgement.Caption = "Create Contracts From Acknowledgement" + Me.aCreateContractsFromAcknowledgement.Category = "aCreateContractsFromAcknowledgement" + Me.aCreateContractsFromAcknowledgement.ConfirmationMessage = "Do you want to execute?" + Me.aCreateContractsFromAcknowledgement.Id = "aCreateContractsFromAcknowledgement" + Me.aCreateContractsFromAcknowledgement.ImageName = Nothing + Me.aCreateContractsFromAcknowledgement.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateContractsFromAcknowledgement.Shortcut = Nothing + Me.aCreateContractsFromAcknowledgement.Tag = Nothing + Me.aCreateContractsFromAcknowledgement.TargetObjectsCriteria = Nothing + Me.aCreateContractsFromAcknowledgement.TargetViewId = "OrderInHeader_OrderInAcknowledgementHeader_ListView" + Me.aCreateContractsFromAcknowledgement.ToolTip = Nothing + Me.aCreateContractsFromAcknowledgement.TypeOfView = Nothing + ' + 'aAcknowledgementRows_Up + ' + Me.aAcknowledgementRows_Up.Caption = "aAcknowledgementRows_Up" + Me.aAcknowledgementRows_Up.ConfirmationMessage = Nothing + Me.aAcknowledgementRows_Up.Id = "aAcknowledgementRows_Up" + Me.aAcknowledgementRows_Up.ImageName = Nothing + Me.aAcknowledgementRows_Up.Shortcut = Nothing + Me.aAcknowledgementRows_Up.Tag = Nothing + Me.aAcknowledgementRows_Up.TargetObjectsCriteria = Nothing + Me.aAcknowledgementRows_Up.TargetObjectType = GetType(SISBusiness.[Module].OrderInAcknowledgementRows) + Me.aAcknowledgementRows_Up.TargetViewId = Nothing + Me.aAcknowledgementRows_Up.ToolTip = Nothing + Me.aAcknowledgementRows_Up.TypeOfView = Nothing + ' + 'aAcknowledgementRows_Down + ' + Me.aAcknowledgementRows_Down.Caption = "aAcknowledgementRows_Down" + Me.aAcknowledgementRows_Down.ConfirmationMessage = Nothing + Me.aAcknowledgementRows_Down.Id = "aAcknowledgementRows_Down" + Me.aAcknowledgementRows_Down.ImageName = Nothing + Me.aAcknowledgementRows_Down.Shortcut = Nothing + Me.aAcknowledgementRows_Down.Tag = Nothing + Me.aAcknowledgementRows_Down.TargetObjectsCriteria = Nothing + Me.aAcknowledgementRows_Down.TargetObjectType = GetType(SISBusiness.[Module].OrderInAcknowledgementRows) + Me.aAcknowledgementRows_Down.TargetViewId = Nothing + Me.aAcknowledgementRows_Down.ToolTip = Nothing + Me.aAcknowledgementRows_Down.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateAcknowledgementFromOrderIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateContractsFromAcknowledgement As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aAcknowledgementRows_Up As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAcknowledgementRows_Down As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.resx new file mode 100644 index 0000000..f2e85c9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 46, 103 + + + 321, 103 + + + 530, 103 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb new file mode 100644 index 0000000..ac1273e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/OrderInAcknowledgementVC.vb @@ -0,0 +1,276 @@ +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 + +Public Class OrderInAcknowledgementVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OrderInHeader_OrderInAcknowledgementHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderInAcknowledgementHeader_OrderInAcknowledgementRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aCreateAcknowledgementFromOrderIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateAcknowledgementFromOrderIn.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + Dim _OrderInAcknowledgementPopup As OrderInAcknowledgementPopup = _onew.CreateObject(Of OrderInAcknowledgementPopup)() + + e.View = Application.CreateDetailView(_onew, "OrderInAcknowledgementPopup_DetailView", False, _OrderInAcknowledgementPopup) + End Sub + Private Sub aCreateAcknowledgementFromOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateAcknowledgementFromOrderIn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInAcknowledgementHeader_New As OrderInAcknowledgementHeader = _ocur.CreateObject(Of OrderInAcknowledgementHeader)() + Dim _OrderInHeader As OrderInHeader = _ocur.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + Dim _OrderInAcknowledgementRows_New As OrderInAcknowledgementRows + Dim _OrderInRows As OrderInRows + Dim _OrderInRowsOther As OrderInRowsOther + Dim i As Integer = 0 + + '----- FEJLÉC ADATOK ÁTADÁSA -------------------------------------------------------------------------- + _OrderInAcknowledgementHeader_New.OrderInHeader = _OrderInHeader + _OrderInAcknowledgementHeader_New.DateCreated = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInAcknowledgementPopup).DateCreated) + _OrderInAcknowledgementHeader_New.DocumentNumber = _OrderInHeader.OrderInParameters.NumberGeneratorAcknowledgement.GetNewNumber(_OrderInHeader.OrderInParameters.NumberGeneratorAcknowledgement) + _OrderInAcknowledgementHeader_New.NoteHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInAcknowledgementPopup).NoteHeader) + _OrderInAcknowledgementHeader_New.PaymentOption = _OrderInHeader.PaymentOption + _OrderInAcknowledgementHeader_New.ShipmentOption = _OrderInHeader.ShipmentOption + + _OrderInAcknowledgementHeader_New.Save() + _OrderInHeader.OrderInRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + '----- SOROK ÁTADÁSA ---------------------------------------------------------------------------------- + For i = 0 To _OrderInHeader.OrderInRows.Count - 1 + _OrderInRows = _ocur.GetObject(_OrderInHeader.OrderInRows(i)) + _OrderInAcknowledgementRows_New = _ocur.CreateObject(Of OrderInAcknowledgementRows)() + + _OrderInAcknowledgementRows_New.OrderInAcknowledgementHeader = _OrderInAcknowledgementHeader_New + _OrderInAcknowledgementRows_New.FinalPriceDEV = _OrderInRows.FinalPriceDEV + _OrderInAcknowledgementRows_New.FinalPriceHUF = _OrderInRows.FinalPriceHUF + _OrderInAcknowledgementRows_New.Description = _OrderInRows.Description + _OrderInAcknowledgementRows_New.QTT = _OrderInRows.QTT + _OrderInAcknowledgementRows_New.QualityOption = _OrderInRows.QualityOption + _OrderInAcknowledgementRows_New.RowGroup1 = _OrderInRows.RowGroup1 + _OrderInAcknowledgementRows_New.RowGroup2 = _OrderInRows.RowGroup2 + _OrderInAcknowledgementRows_New.Units = _OrderInRows.Products.Units + _OrderInAcknowledgementRows_New.VAT = _OrderInRows.VAT + _OrderInAcknowledgementRows_New.SumPriceHUF = _OrderInRows.FinalPriceHUF * _OrderInRows.QTT + _OrderInAcknowledgementRows_New.SumPriceDEV = _OrderInRows.FinalPriceDEV * _OrderInRows.QTT + _OrderInAcknowledgementRows_New.ShortName = _OrderInRows.Products.ShortName + _OrderInAcknowledgementRows_New.RowIndex = i + _OrderInAcknowledgementRows_New.OrderInRows = _OrderInRows + + _OrderInAcknowledgementRows_New.Save() + Next + + For y = 0 To _OrderInHeader.OrderInRowsOther.Count - 1 + _OrderInRowsOther = _ocur.GetObject(_OrderInHeader.OrderInRowsOther(y)) + _OrderInAcknowledgementRows_New = _ocur.CreateObject(Of OrderInAcknowledgementRows)() + + _OrderInAcknowledgementRows_New.OrderInAcknowledgementHeader = _OrderInAcknowledgementHeader_New + _OrderInAcknowledgementRows_New.FinalPriceDEV = _OrderInRowsOther.ListPriceDEV - _OrderInRowsOther.DiscountPriceDEV + _OrderInAcknowledgementRows_New.FinalPriceHUF = _OrderInRowsOther.ListPriceHUF - _OrderInRowsOther.DiscountPriceHUF + _OrderInAcknowledgementRows_New.Description = _OrderInRowsOther.Description + _OrderInAcknowledgementRows_New.QTT = _OrderInRowsOther.QTT + _OrderInAcknowledgementRows_New.QualityOption = _OrderInRowsOther.QualityOption + _OrderInAcknowledgementRows_New.RowGroup1 = _OrderInRowsOther.RowGroup1 + _OrderInAcknowledgementRows_New.RowGroup2 = _OrderInRowsOther.RowGroup2 + _OrderInAcknowledgementRows_New.Units = _OrderInRowsOther.Units + _OrderInAcknowledgementRows_New.VAT = _OrderInRowsOther.VAT + _OrderInAcknowledgementRows_New.SumPriceHUF = (_OrderInRowsOther.ListPriceHUF - _OrderInRowsOther.DiscountPriceHUF) * _OrderInRowsOther.QTT + _OrderInAcknowledgementRows_New.SumPriceDEV = (_OrderInRowsOther.ListPriceDEV - _OrderInRowsOther.DiscountPriceDEV) * _OrderInRowsOther.QTT + _OrderInAcknowledgementRows_New.OrderInRowsOther = _OrderInRowsOther + If i = 0 Then + _OrderInAcknowledgementRows_New.RowIndex = y + Else + _OrderInAcknowledgementRows_New.RowIndex = y + i + 1 + End If + _OrderInAcknowledgementRows_New.ShortName = _OrderInRowsOther.ShortName + + _OrderInAcknowledgementRows_New.Save() + Next + + _OrderInAcknowledgementHeader_New.RecalculateOrderInAcknowledgement(_OrderInAcknowledgementHeader_New, _ocur) + + _ocur.CommitChanges() + End Sub + Private Sub aCreateContractsFromAcknowledgement_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractsFromAcknowledgement.CustomizePopupWindowParams + Dim _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader = TryCast(View.SelectedObjects(0), OrderInAcknowledgementHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractsFromAcknowledgement_PopUp As ContractsFromAcknowledgement_PopUp = _onew.CreateObject(Of ContractsFromAcknowledgement_PopUp)() + + _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader = _OrderInAcknowledgementHeader + _ContractsFromAcknowledgement_PopUp.CustomersFrom = _onew.GetObject(_OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom) + _ContractsFromAcknowledgement_PopUp.Save() + + e.View = Application.CreateDetailView(_onew, _ContractsFromAcknowledgement_PopUp, True) + + End Sub + Private Sub aCreateContractsFromAcknowledgement_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractsFromAcknowledgement.Execute + + 'A szerződés sor jelölő adatai itt nem fontosak így a függvény élettartamára kikapcsoljuk a validálást + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ContractsFromAcknowledgement_PopUp As ContractsFromAcknowledgement_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsFromAcknowledgement_PopUp) + Dim _Contracts As Contracts + Dim _ContractRows As ContractRows + Dim _ContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("Oid=?", _ContractsFromAcknowledgement_PopUp.ContractTemplate.Oid)) + + + + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.ContractTemplate = _ContractTemplate + _Contracts.State = State.Ready + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.CustomersFrom = _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom + _Contracts.Customers = _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.OrderInHeader.Customers + _Contracts.DateCreated = GetSQLTime(_ocur.Session) + _Contracts.CRM_Opportunities = _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.OrderInHeader.CRM_Opportunities + _Contracts.ShortName = _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.DocumentNumber & " számú rendelés visszaigazolás szerződése" + + + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.ShortName = _OrderInAcknowledgementRows.ShortName + _ContractRows.DateExecution = _OrderInAcknowledgementRows.DateExecution + _ContractRows.Units = _OrderInAcknowledgementRows.Units + _ContractRows.VAT = _OrderInAcknowledgementRows.VAT + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.CurrencyName = _ContractsFromAcknowledgement_PopUp.OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName + _ContractRows.NettoPriceHUF = _OrderInAcknowledgementRows.FinalPriceHUF + _ContractRows.NettoPriceDEV = _OrderInAcknowledgementRows.FinalPriceDEV + _ContractRows.RowGroup1 = _OrderInAcknowledgementRows.RowGroup1 + _ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2 + Next + _ocur.CommitChanges() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + End Sub + Private Sub aAcknowledgementRows_Up_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Up.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInAcknowledgementRowsSelected As OrderInAcknowledgementRows = TryCast(View.SelectedObjects(0), OrderInAcknowledgementRows) + If _OrderInAcknowledgementRowsSelected Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + If _OrderInAcknowledgementRowsSelected.RowIndex = 0 Then + _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _RowIndex As Long = 1 + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + _OrderInAcknowledgementRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + Dim _HaveZeroIndex As Boolean = False + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + If _OrderInAcknowledgementRows.RowIndex = 0 Then + _HaveZeroIndex = True + Exit For + End If + Next + If _HaveZeroIndex Then + Dim _RowIndex As Long = 1 + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + _OrderInAcknowledgementRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + If _OrderInAcknowledgementRowsSelected.RowIndex = 1 Then Throw New Exception("*A kiválasztott sor a legelső a listában!") + Dim _OrderInAcknowledgementRowsPrev As OrderInAcknowledgementRows = _ocur.FindObject(Of OrderInAcknowledgementRows) _ + (CriteriaOperator.Parse("OrderInAcknowledgementHeader=? AND RowIndex=?", _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader, _OrderInAcknowledgementRowsSelected.RowIndex - 1)) + If _OrderInAcknowledgementRowsPrev IsNot Nothing Then + _OrderInAcknowledgementRowsSelected.RowIndex -= 1 + _OrderInAcknowledgementRowsPrev.RowIndex += 1 + End If + End If + End If + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aAcknowledgementRows_Down_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAcknowledgementRows_Down.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInAcknowledgementRowsSelected As OrderInAcknowledgementRows = TryCast(View.SelectedObjects(0), OrderInAcknowledgementRows) + If _OrderInAcknowledgementRowsSelected Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + If _OrderInAcknowledgementRowsSelected.RowIndex = 0 Then + _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _RowIndex As Long = 1 + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + _OrderInAcknowledgementRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + Dim _HaveZeroIndex As Boolean = False + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + If _OrderInAcknowledgementRows.RowIndex = 0 Then + _HaveZeroIndex = True + Exit For + End If + Next + If _HaveZeroIndex Then + Dim _RowIndex As Long = 1 + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + _OrderInAcknowledgementRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + If _OrderInAcknowledgementRowsSelected.RowIndex = _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader.OrderInAcknowledgementRows.Count Then Throw New Exception("*A kiválasztott sor a legutolsó a listában!") + Dim _OrderInAcknowledgementRowsNext As OrderInAcknowledgementRows = _ocur.FindObject(Of OrderInAcknowledgementRows) _ + (CriteriaOperator.Parse("OrderInAcknowledgementHeader=? AND RowIndex=?", _OrderInAcknowledgementRowsSelected.OrderInAcknowledgementHeader, _OrderInAcknowledgementRowsSelected.RowIndex + 1)) + If _OrderInAcknowledgementRowsNext IsNot Nothing Then + _OrderInAcknowledgementRowsSelected.RowIndex += 1 + _OrderInAcknowledgementRowsNext.RowIndex -= 1 + End If + End If + End If + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/ContractsFromAcknowledgement_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/ContractsFromAcknowledgement_PopUp.vb new file mode 100644 index 0000000..8b38650 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/ContractsFromAcknowledgement_PopUp.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ContractsFromAcknowledgement_PopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Property ContractTemplate As ContractTemplate + Property CustomersFrom As CustomersFrom +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/OrderInAcknowledgementPopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/OrderInAcknowledgementPopup.vb new file mode 100644 index 0000000..6bbedf8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Acknowledgement/Popup/OrderInAcknowledgementPopup.vb @@ -0,0 +1,29 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class OrderInAcknowledgementPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DateCreated = GetSQLTime(Session) + End Sub + Property DateCreated As Date + _ + Property NoteHeader As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeader.vb new file mode 100644 index 0000000..b1a022f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeader.vb @@ -0,0 +1,783 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + +'-- Bejövő megrendelés --------------------------------------------------------------------------------------------------- + +' _ +' _ +' _ +' _ +' _ +' _ +' _ +' _ + +' _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +True", targetitems:="row_APCSheetByProducts", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ +Public Class OrderInHeader + Inherits BaseObject + Private _OrderInParameters As OrderInParameters 'Bejövő megrendelés paraméterei + Private _OfferOutHeader As OfferOutHeader 'Kimenő árajánlat kapcsolata + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Ügyfél + Private _CustomersRefNumber As String 'partner megrendelési referencia száma + Private _DocumentNumber As String 'Sorszám + Private _Contacts As Contacts 'Kapcsolat + Private _DateCreated As Date 'Létrehozás dátuma + Private _DateExecution As Date 'Végrehajtás dátuma + Private _ObjectCreated As Date 'Az objektum létrejöttének időpontja + Private _UserCreated As User + Private _IsEditable As Boolean = True 'Végleges e? + Private _IsStorno As Boolean = False 'Stornó e? + Private _TotalBruttoHUF As Double = 0 'Teljes összeg bruttó HUF + Private _TotalBruttoDEV As Double = 0 ' Teljes összeg bruttó DEV + Private _PaymentOption As PaymentOption 'Fizetési opció + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + + Private _PermissionAllowed As Boolean 'Engedélyzve, vagy sem. + Private _WorkflowSystemSteps As WorkflowSystemSteps 'Folyamatlépések + + '-- CRM miatt + Private _CRM_Opportunities As CRM_Opportunities + '-- Non persistent + Private _row_Products As ProductSelect 'Termék, ami meg lett rendelve + Private _row_QTT As Double 'Termék rendelt mennyisége + Private _row_DiscountPercent As Double 'Kedvezmény %-ban ! + Private _row_APCSheetByProducts As APCSheetByProducts 'Termeltetési szerződés + Private _row_ListPriceHUF As Double 'Értékesítési listaár + Private _row_ListPriceDEV As Double 'Értékesítési listaár DEVIZA + + '-- Non persistent for other rows + Private _row_o_APCSheetByProducts As APCSheetByProducts 'Termeltetési szerződés + Private _row_o_CustomsTariffs As CustomsTariffs 'SZJ szám + Private _row_o_ShortName As String 'Megnevezés + Private _row_o_Description As String 'Leírás + Private _row_o_QTT As Double 'Mennyiség + Private _row_o_Units As Units 'Mennyiségi egység + Private _row_o_VAT As VAT 'ÁFA kód + Private _row_o_ListPriceHUF As Double 'Termék listaára HUF + Private _row_o_ListPriceDEV As Double 'Termék listaára DEV + Private _row_o_DiscountPercent As Double 'Termék ár kedvezmény %-ban + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + DateCreated = GetSQLTime(Session) + DateExecution = GetSQLTime(Session) + ObjectCreated = GetSQLTime(Session) + Me.row_o_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + Me.row_o_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If IsDeleted = False Then + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = OrderInParameters.NumberGenerator.GetNewNumber(OrderInParameters.NumberGenerator) + End If + + RecalculateHeaderTotalBrutto() + + If Me.OrderInParameters IsNot Nothing Then + If Me.ShipmentOption Is Nothing And Me.OrderInParameters.ShipmentOption IsNot Nothing Then + Me.ShipmentOption = Me.OrderInParameters.ShipmentOption + End If + If Me.QualityOption Is Nothing And Me.OrderInParameters.QualityOption IsNot Nothing Then + Me.QualityOption = Me.OrderInParameters.QualityOption + End If + End If + End If + End Sub + _ + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + _ + _ + _ + Property OrderInParameters() As OrderInParameters + Get + Return _OrderInParameters + End Get + Set(ByVal value As OrderInParameters) + SetPropertyValue("OrderInParameters", _OrderInParameters, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If value IsNot Nothing Then + If value.PaymentOption IsNot Nothing And Me.PaymentOption Is Nothing Then + Me.PaymentOption = value.PaymentOption + End If + If value.ShipmentOption IsNot Nothing And Me.ShipmentOption Is Nothing Then + Me.ShipmentOption = value.ShipmentOption + End If + If value.QualityOption IsNot Nothing And Me.QualityOption Is Nothing Then + Me.QualityOption = value.QualityOption + End If + End If + End If + End Set + End Property + Property CustomersRefNumber As String + Get + Return _CustomersRefNumber + End Get + Set(value As String) + SetPropertyValue("CustomersRefNumber", _CustomersRefNumber, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + Property Contacts() As Contacts + Get + Return _Contacts + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + _ + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property ObjectCreated() As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property TotalBruttoHUF As Double + Get + Return _TotalBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalBruttoHUF", _TotalBruttoHUF, value) + End Set + End Property + Property TotalBruttoDEV As Double + Get + Return _TotalBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalBruttoDEV", _TotalBruttoDEV, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + + Property PermissionAllowed As Boolean + Get + Return _PermissionAllowed + End Get + Set(value As Boolean) + SetPropertyValue("PermissionAllowed", _PermissionAllowed, value) + End Set + End Property + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + End Set + End Property + '-- CRM miatt + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(ByVal value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + '-- Non persistent + _ + _ + _ + Property row_Products As ProductSelect + Get + Return _row_Products + End Get + Set(ByVal value As ProductSelect) + SetPropertyValue("row_Products", _row_Products, value) + End Set + End Property + _ + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + + Property row_DiscountPercent As Double + Get + Return _row_DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value) + End Set + End Property + _ + _ + _ + Property row_APCSheetByProducts As APCSheetByProducts + Get + Return _row_APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("row_APCSheetByProducts", _row_APCSheetByProducts, value) + End Set + End Property + _ + Property row_ListPriceHUF As Double + Get + Return _row_ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) + End Set + End Property + _ + Property row_ListPriceDEV As Double + Get + Return _row_ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value) + End Set + End Property + '-- Non persistent for other rows + _ + _ + _ + Property row_o_APCSheetByProducts As APCSheetByProducts + Get + Return _row_o_APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("row_o_APCSheetByProducts", _row_o_APCSheetByProducts, value) + End Set + End Property + _ + _ + _ + Property row_o_CustomsTariffs As CustomsTariffs + Get + Return _row_o_CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("row_o_CustomsTariffs", _row_o_CustomsTariffs, value) + End Set + End Property + _ + _ + _ + Property row_o_ShortName As String + Get + Return _row_o_ShortName + End Get + Set(value As String) + SetPropertyValue("row_o_ShortName", _row_o_ShortName, value) + End Set + End Property + _ + _ + _ + Property row_o_Description As String + Get + Return _row_o_Description + End Get + Set(value As String) + SetPropertyValue("row_o_Description", _row_o_Description, value) + End Set + End Property + _ + _ + _ + Property row_o_QTT As Double + Get + Return _row_o_QTT + End Get + Set(value As Double) + SetPropertyValue("row_o_QTT", _row_o_QTT, value) + End Set + End Property + _ + _ + _ + Property row_o_Units As Units + Get + Return _row_o_Units + End Get + Set(value As Units) + SetPropertyValue("row_o_Units", _row_o_Units, value) + End Set + End Property + _ + _ + _ + Property row_o_VAT As VAT + Get + Return _row_o_VAT + End Get + Set(value As VAT) + SetPropertyValue("row_o_VAT", _row_o_VAT, value) + End Set + End Property + _ + _ + _ + Property row_o_ListPriceHUF As Double + Get + Return _row_o_ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_o_ListPriceHUF", _row_o_ListPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_o_ListPriceDEV As Double + Get + Return _row_o_ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_o_ListPriceDEV", _row_o_ListPriceDEV, value) + End Set + End Property + _ + _ + _ + Property row_o_DiscountPercent As Double + Get + Return _row_o_DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("row_o_DiscountPercent", _row_o_DiscountPercent, value) + End Set + End Property + + '-- XPCollections + _ + _ + ReadOnly Property OrderInHeaderVAT As XPCollection(Of OrderInHeaderVAT) + Get + Return GetCollection(Of OrderInHeaderVAT)("OrderInHeaderVAT") + End Get + End Property + _ + _ + ReadOnly Property OrderInAcknowledgementHeader As XPCollection(Of OrderInAcknowledgementHeader) + Get + Return GetCollection(Of OrderInAcknowledgementHeader)("OrderInAcknowledgementHeader") + End Get + End Property + _ + ReadOnly Property OrderInTo As XPCollection(Of OrderInTo) + Get + Return New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderInRows.OrderInHeader.Oid=?", Me.Oid)) + End Get + End Property + _ + _ + ReadOnly Property OrderInRows() As XPCollection + Get + Return GetCollection("OrderInRows") + End Get + End Property + _ + _ + ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther) + Get + Return GetCollection(Of OrderInRowsOther)("OrderInRowsOther") + End Get + End Property + _ + ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows) + Get + Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader=?", Me)) + End Get + End Property + _ + ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows) + Get + Return New XPCollection(Of InvoiceRows)(Session, CriteriaOperator.Parse("(OrderInRows.OrderInHeader=? or OrderInRowsOther.OrderInHeader=?) and IsNull(InvoiceHeader.GCRecord)=True and IsNull(InvoiceHeader)=False", Me, Me)) + End Get + End Property + _ + ReadOnly Property InvoiceAdvance As XPCollection(Of InvoiceHeader) + Get + Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("IsEditable=False and DocumentNumber !='' and InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment') and Customers=? and CustomersFrom=? and IsNull(GCRecord)=True", Customers, Me.CustomersFrom)) + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.OrderInHeader=? and StorageOutRows.QTT<>0", Me)) + End Get + End Property + _ + ReadOnly Property StorageMoveEvents As XPCollection(Of StorageMoveEvents) + Get + Return New XPCollection(Of StorageMoveEvents)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.OrderInHeader=?", Me)) + End Get + End Property + _ + ReadOnly Property OrderInHeaderFileAttachment As XPCollection(Of OrderInHeaderFileAttachment) + Get + Return GetCollection(Of OrderInHeaderFileAttachment)("OrderInHeaderFileAttachment") + End Get + End Property + _ + ReadOnly Property PCIDetail As XPCollection(Of PCIDetail) + Get + '// Partnerhez tartozó nyitott pénzügyi teljesítések előleghez ! + Dim _PCIDetail_Collection_Return As New XPCollection(Of PCIDetail)(Session, CriteriaOperator.Parse("1=2")) + Dim _PCIGroup_Collection As XPCollection(Of PCIGroup) + If Me.OrderInParameters IsNot Nothing Then + If Me.OrderInParameters.CurrencyName_Invoice.ShortName = "HUF" Then + _PCIGroup_Collection = New XPCollection(Of PCIGroup)(Session, _ + CriteriaOperator.Parse(" CustomersFrom=? and Customers=? " + _ + " and PartnerType=0 and CurrencyName=?" + _ + " and BallanceHUF<0", _ + Me.CustomersFrom, Me.Customers, Me.OrderInParameters.CurrencyName_Invoice)) + Else + _PCIGroup_Collection = New XPCollection(Of PCIGroup)(Session, _ + CriteriaOperator.Parse(" CustomersFrom=? and Customers=? " + _ + " and PartnerType=0 and CurrencyName=?" + _ + " and BallanceDEV<0", _ + Me.CustomersFrom, Me.Customers, Me.OrderInParameters.CurrencyName_Invoice)) + End If + Dim _PCIGroup As PCIGroup + Dim _PCIDetail As PCIDetail + For Each _PCIGroup In _PCIGroup_Collection + Dim _PCIDetail_Collection As New XPCollection(Of PCIDetail)(Session, CriteriaOperator.Parse("PCIGroup=?", _PCIGroup)) + For Each _PCIDetail In _PCIDetail_Collection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank" + _PCIDetail_Collection_Return.Add(_PCIDetail) + End Select + + Next + Next + End If + Return _PCIDetail_Collection_Return + End Get + End Property + Sub RecalculateOrder(ByVal _OrderInHeader As OrderInHeader, ByVal _ocur As Xpo.XPObjectSpace) + '-- A rutin újragenerálja a pénzügyi sorokat + Dim _OrderInHeaderVAT As OrderInHeaderVAT + + Dim i As Long = 1 + Dim j As Long = 1 + Dim _Exists As Boolean = False + + _ocur.Delete(_OrderInHeader.OrderInHeaderVAT) + Dim orderinrows = New XPQuery(Of OrderInRows)(_ocur.Session) + Dim query = From orderinrow In orderinrows Where orderinrow.OrderInHeader.Oid = _OrderInHeader.Oid _ + Group orderinrow By orderinrow.Products.VAT Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _ + Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _ + Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} + For Each item In query + _OrderInHeaderVAT = _ocur.CreateObject(Of OrderInHeaderVAT)() + _OrderInHeaderVAT.OrderInHeader = _OrderInHeader + _OrderInHeaderVAT.AmountNettoHUF = Math.Round(item.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _OrderInHeaderVAT.AmountVATHUF = 0 + _OrderInHeaderVAT.VAT = item.VAT + If item.VAT IsNot Nothing Then + _OrderInHeaderVAT.AmountVATHUF = Math.Round(item.VAT.KeyValue * _OrderInHeaderVAT.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + End If + _OrderInHeaderVAT.AmountBruttoHUF = _OrderInHeaderVAT.AmountNettoHUF + _OrderInHeaderVAT.AmountVATHUF + + _OrderInHeaderVAT.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + _OrderInHeaderVAT.AmountVATDEV = 0 + If item.VAT IsNot Nothing Then + _OrderInHeaderVAT.AmountVATDEV = Math.Round(item.VAT.KeyValue * _OrderInHeaderVAT.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + End If + _OrderInHeaderVAT.AmountBruttoDEV = _OrderInHeaderVAT.AmountNettoDEV + _OrderInHeaderVAT.AmountVATDEV + + _OrderInHeaderVAT.Save() + _OrderInHeader.OrderInHeaderVAT.Add(_OrderInHeaderVAT) + Next + + Dim orderinrowsother = New XPQuery(Of OrderInRowsOther)(_ocur.Session) + Dim query1 = From orderinrowo In orderinrowsother Where orderinrowo.OrderInHeader.Oid = _OrderInHeader.Oid _ + Group orderinrowo By orderinrowo.VAT Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT), _ + Key .S2 = g.Sum(Function(inv) inv.ListPriceDEV), _ + Key .M1 = g.Max(Function(inv) inv.DiscountPriceHUF * inv.QTT)} + For Each item In query1 + _OrderInHeaderVAT = _ocur.CreateObject(Of OrderInHeaderVAT)() + _OrderInHeaderVAT.OrderInHeader = _OrderInHeader + _OrderInHeaderVAT.AmountNettoHUF = Math.Round(item.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + _OrderInHeaderVAT.AmountVATHUF = 0 + _OrderInHeaderVAT.VAT = item.VAT + If item.VAT IsNot Nothing Then + _OrderInHeaderVAT.AmountVATHUF = Math.Round(item.VAT.KeyValue * _OrderInHeaderVAT.AmountNettoHUF, 0, MidpointRounding.AwayFromZero) + End If + _OrderInHeaderVAT.AmountBruttoHUF = _OrderInHeaderVAT.AmountNettoHUF + _OrderInHeaderVAT.AmountVATHUF + + _OrderInHeaderVAT.AmountNettoDEV = Math.Round(item.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + _OrderInHeaderVAT.AmountVATDEV = 0 + If item.VAT IsNot Nothing Then + _OrderInHeaderVAT.AmountVATDEV = Math.Round(item.VAT.KeyValue * _OrderInHeaderVAT.AmountNettoDEV, 2, MidpointRounding.AwayFromZero) + End If + _OrderInHeaderVAT.AmountBruttoDEV = _OrderInHeaderVAT.AmountNettoDEV + _OrderInHeaderVAT.AmountVATDEV + + _OrderInHeaderVAT.Save() + _OrderInHeader.OrderInHeaderVAT.Add(_OrderInHeaderVAT) + Next + + + Dim _TotalBruttoDEV As Double = 0 + Dim _TotalBruttoHUF As Double = 0 + + For Each _OrderInHeaderVAT In _OrderInHeader.OrderInHeaderVAT + _TotalBruttoHUF += _OrderInHeaderVAT.AmountBruttoHUF + _TotalBruttoDEV += _OrderInHeaderVAT.AmountBruttoDEV + Next + _OrderInHeader.TotalBruttoHUF = _TotalBruttoHUF + _OrderInHeader.TotalBruttoDEV = _TotalBruttoDEV + _OrderInHeader.Save() + End Sub + Function SubjectToApproval(_OrderInHeader As OrderInHeader, _ocur As Xpo.XPObjectSpace) As Boolean + Dim _Approval As Boolean = False + If _OrderInHeader.OrderInParameters.NeedPermission Then 'V-REND-0009-13 + Dim _PermissionDay As Long = _OrderInHeader.OrderInParameters.NeedPersmissionPaymentDay + If _OrderInHeader.PaymentOption IsNot Nothing Then + If _PaymentOption.PayMode <> ePayMode.InCash Then + If _PaymentOption.PayDay > _PermissionDay Then _Approval = True + + If Not _Approval Then + Dim _VolumeByCustomersHUF As Double = _OrderInHeader.OrderInParameters.NeedPermissionVolumeByCustomersHUF + Dim _CustomersHUF As Double = 0 + + Dim _OrderInHeader_Collection As New XPCollection(Of OrderInHeader)(_ocur.Session, CriteriaOperator.Parse("Customers.Oid=? AND IsEditable=True", _OrderInHeader.Customers.Oid)) + + For Each _OrderInHeaderAct As OrderInHeader In _OrderInHeader_Collection + _OrderInHeaderAct.RecalculateOrder(_OrderInHeader, _ocur) + _CustomersHUF += _OrderInHeader.TotalBruttoHUF + Next + + If _CustomersHUF > _VolumeByCustomersHUF Then _Approval = True + End If + End If + End If + End If + + Return _Approval + End Function + + Public Sub RecalculateHeaderTotalBrutto() + Dim _OrderInRows As OrderInRows + Dim _VAT_DefaultForExternalEUNoVAT As VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForExternalEUNoVAT=True")) + Dim _VAT_DefaultForBusinnes As VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + Dim _VAT_DefaultForExternalOther As VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForExternalOther=True")) + Dim _VAT_DefaultForInversVAT As VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForInversVAT=True")) + + TotalBruttoDEV = 0 + TotalBruttoHUF = 0 + + For Each _OrderInRows In Me.OrderInRows + + If Me.OrderInParameters IsNot Nothing Then + Select Case Me.OrderInParameters.ExportMode + Case eExportMode.eExternalEUNoVAT + _OrderInRows.VAT = _VAT_DefaultForExternalEUNoVAT + Case eExportMode.eExternalEUwithVAT + _OrderInRows.VAT = _OrderInRows.Products.VAT + Case eExportMode.eExternalOther + _OrderInRows.VAT = _VAT_DefaultForExternalOther + Case eExportMode.eInternalwithVAT + _OrderInRows.VAT = _OrderInRows.Products.VAT + Case eExportMode.eInversVAT + _OrderInRows.VAT = _VAT_DefaultForInversVAT + End Select + _OrderInRows.RecalculateRows() + _OrderInRows.Save() + End If + + If _OrderInRows.APCSheetByProducts IsNot Nothing Then + _OrderInRows.RecalculateRows() + _OrderInRows.Save() + End If + TotalBruttoDEV += _OrderInRows.SumPriceBruttoDEV + TotalBruttoHUF += _OrderInRows.SumPriceBruttoHUF + Next + Dim _OrderInRowsOther As OrderInRowsOther + For Each _OrderInRowsOther In Me.OrderInRowsOther + + If Me.OrderInParameters IsNot Nothing Then + Select Case Me.OrderInParameters.ExportMode + Case eExportMode.eExternalEUNoVAT + _OrderInRowsOther.VAT = _VAT_DefaultForExternalEUNoVAT + Case eExportMode.eExternalEUwithVAT + _OrderInRowsOther.VAT = _VAT_DefaultForBusinnes + Case eExportMode.eExternalOther + _OrderInRowsOther.VAT = _VAT_DefaultForExternalOther + Case eExportMode.eInversVAT + _OrderInRowsOther.VAT = _VAT_DefaultForInversVAT + End Select + _OrderInRowsOther.RecalculateRows() + _OrderInRowsOther.Save() + End If + TotalBruttoDEV += _OrderInRowsOther.SumPriceBruttoDEV + TotalBruttoHUF += _OrderInRowsOther.SumPriceBruttoHUF + Next + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderFileAttachement.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderFileAttachement.vb new file mode 100644 index 0000000..f90753e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderFileAttachement.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInHeaderFileAttachment + Inherits FileAttachmentBase + Private _FileType As String + Private _OrderInHeader As OrderInHeader + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + _ + Property OrderInHeader As OrderInHeader + Get + Return _OrderInHeader + End Get + Set(value As OrderInHeader) + SetPropertyValue("OrderInHeader", _OrderInHeader, value) + End Set + End Property + Property FileType As String + Get + Return _FileType + End Get + Set(value As String) + SetPropertyValue("FileType", _FileType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderVAT.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderVAT.vb new file mode 100644 index 0000000..3ad33e5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeaderVAT.vb @@ -0,0 +1,96 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + +'-- Bejövő megrendelés --------------------------------------------------------------------------------------------------- + _ + _ +Public Class OrderInHeaderVAT + Inherits BaseObject + Private _OrderInHeader As OrderInHeader + Private _VAT As VAT + Private _AmountNettoHUF As Double + Private _AmountVATHUF As Double + Private _AmountBruttoHUF As Double + Private _AmountNettoDEV As Double + Private _AmountVATDEV As Double + Private _AmountBruttoDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property OrderInHeader As OrderInHeader + Get + Return _OrderInHeader + End Get + Set(ByVal value As OrderInHeader) + SetPropertyValue("OrderInHeader", _OrderInHeader, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + Property AmountVATHUF As Double + Get + Return _AmountVATHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATHUF", _AmountVATHUF, value) + End Set + End Property + Property AmountBruttoHUF As Double + Get + Return _AmountBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoHUF", _AmountBruttoHUF, value) + End Set + End Property + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + Property AmountVATDEV As Double + Get + Return _AmountVATDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATDEV", _AmountVATDEV, value) + End Set + End Property + Property AmountBruttoDEV As Double + Get + Return _AmountBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountBruttoDEV", _AmountBruttoDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInParameters.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInParameters.vb new file mode 100644 index 0000000..4bbe646 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInParameters.vb @@ -0,0 +1,279 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + +'---------------------- Bejövő megrendelés ---------------------- + _ + _ +Public Class OrderInParameters + Inherits BaseObject + Private _CustomersFrom As CustomersFrom ' -- Saját cég + Private _ShortName As String ' -- Megnevezés + Private _Description As String ' -- Leírás + Private _NumberGenerator As NumberGenerator ' -- Sorszámgenerátor + Private _NumberGeneratorAcknowledgement As NumberGenerator + Private _ReportData As ReportData + Private _ReportDataAcknowledgement As ReportData + Private _CurrencyName As CurrencyName ' -- Elszámolás devizája + Private _CurrencyName_Invoice As CurrencyName ' -- Számla devizája deviza + Private _InvoiceType As InvoiceType 'Ha vevõi a szerzõdés akkor milyen a kimenõ számla tipusa + Private _InvoiceTypeAdvanced As InvoiceType 'Ha vevõi a szerződés akkor milyen az előleg vagy foglaló számla tipusa + Private _StorageMoveType As StorageMoveType + Private _IsAPCSheet As Boolean = False 'Termeltetési szerződéssel kapcsolni kell ? + Private _ExportMode As eExportMode 'Belföldi, küldöldi, EU belfüldi ÁFA stb. + Private _QualityOption As QualityOption + Private _ShipmentOption As ShipmentOption + Private _PaymentOption As PaymentOption + Private _BankInformation As BankInformation + + Private _NeedPermission As Boolean 'Engedélyköteles-e a megrendelés + Private _NeedPermissionToDeliveryNote As Boolean 'Kiszállításhoz kell-e engedély + Private _NeedPermissionVolumeByCustomersHUF As Double 'Mennyi az ügyfél össz netto HUF rendelési állománya, ami felett engedély kell! + Private _NeedPersmissionPaymentDay As Long 'Mennyi a max fizetési határidő + Private _NeedPermissionHRPerson As HRPerson 'Ki engedélyezheti + + Private _Controlling_Rows_Default As Controlling 'Bejövő megrendelési sorok alapértelmezett kontrolling száma, ha nem előleg ! + Private _Controlling_RowsOther_Default As Controlling 'Bejövő megrendelési egyéb sorok alapértelmezett kontrolling száma, ha nem előleg ! + Private _Controlling_InvoiceAdvance_Default As Controlling 'Bejövő megrendelési egyéb sorok alapértelmezett kontrolling száma, ha előleg ! + + Private _WorkflowSystem As WorkflowSystem + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator() As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property NumberGeneratorAcknowledgement As NumberGenerator + Get + Return _NumberGeneratorAcknowledgement + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGeneratorAcknowledgement", _NumberGeneratorAcknowledgement, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportDataAcknowledgement As ReportData + Get + Return _ReportDataAcknowledgement + End Get + Set(value As ReportData) + SetPropertyValue("ReportDataAcknowledgement", _ReportDataAcknowledgement, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property CurrencyName_Invoice As CurrencyName + Get + Return _CurrencyName_Invoice + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Invoice", _CurrencyName_Invoice, value) + End Set + End Property + Property InvoiceType As InvoiceType + Get + Return _InvoiceType + End Get + Set(value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + Property InvoiceTypeAdvanced As InvoiceType + Get + Return _InvoiceTypeAdvanced + End Get + Set(value As InvoiceType) + SetPropertyValue("InvoiceTypeAdvanced", _InvoiceTypeAdvanced, value) + End Set + End Property + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + Property IsAPCSheet As Boolean + Get + Return _IsAPCSheet + End Get + Set(value As Boolean) + SetPropertyValue("IsAPCSheet", _IsAPCSheet, value) + End Set + End Property + Property ExportMode As eExportMode + Get + Return _ExportMode + End Get + Set(value As eExportMode) + SetPropertyValue("ExportMode", _ExportMode, value) + End Set + End Property + Property QualityOption As QualityOption + Get + Return _QualityOption + End Get + Set(value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property ShipmentOption As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(value As BankInformation) + SetPropertyValue("BankInformation", _BankInformation, value) + End Set + End Property + + Property NeedPermission As Boolean + Get + Return _NeedPermission + End Get + Set(value As Boolean) + SetPropertyValue("NeedPermission", _NeedPermission, value) + End Set + End Property + Property NeedPermissionToDeliveryNote As Boolean + Get + Return _NeedPermissionToDeliveryNote + End Get + Set(value As Boolean) + SetPropertyValue("NeedPermissionToDeliveryNote", _NeedPermissionToDeliveryNote, value) + End Set + End Property + Property NeedPermissionVolumeByCustomersHUF As Double + Get + Return _NeedPermissionVolumeByCustomersHUF + End Get + Set(value As Double) + SetPropertyValue("NeedPermissionVolumeByCustomersHUF", _NeedPermissionVolumeByCustomersHUF, value) + End Set + End Property + Property NeedPersmissionPaymentDay As Long + Get + Return _NeedPersmissionPaymentDay + End Get + Set(value As Long) + SetPropertyValue("NeedPersmissionPaymentDay", _NeedPersmissionPaymentDay, value) + End Set + End Property + Property NeedPermissionHRPerson As HRPerson + Get + Return _NeedPermissionHRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("NeedPermissionHRPerson", _NeedPermissionHRPerson, value) + End Set + End Property + + Property Controlling_Rows_Default As Controlling + Get + Return _Controlling_Rows_Default + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Rows_Default", _Controlling_Rows_Default, value) + End Set + End Property + Property Controlling_OtherRows_Default As Controlling + Get + Return _Controlling_RowsOther_Default + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_RowsOther_Default", _Controlling_RowsOther_Default, value) + End Set + End Property + Property Controlling_InvoiceAdvance_Default As Controlling + Get + Return _Controlling_InvoiceAdvance_Default + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_InvoiceAdvance_Default", _Controlling_InvoiceAdvance_Default, value) + End Set + End Property + + Property WorkflowSystem As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.Designer.vb new file mode 100644 index 0000000..b18b60a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.Designer.vb @@ -0,0 +1,50 @@ +Partial Class OrderInPrint + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOrderInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOrderInPrint + ' + Me.aOrderInPrint.Caption = "aOrder Print" + Me.aOrderInPrint.Category = "RecordsNavigation" + Me.aOrderInPrint.ConfirmationMessage = Nothing + Me.aOrderInPrint.Id = "aOrderPrint" + Me.aOrderInPrint.ImageName = Nothing + Me.aOrderInPrint.Shortcut = Nothing + Me.aOrderInPrint.Tag = Nothing + Me.aOrderInPrint.TargetObjectsCriteria = Nothing + Me.aOrderInPrint.TargetObjectType = GetType(SISBusiness.[Module].OrderInAcknowledgementHeader) + Me.aOrderInPrint.TargetViewId = "OrderInHeader_OrderInAcknowledgementHeader_ListView" + Me.aOrderInPrint.ToolTip = Nothing + Me.aOrderInPrint.TypeOfView = Nothing + + End Sub + Friend WithEvents aOrderInPrint As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.resx new file mode 100644 index 0000000..fafbcb6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.vb new file mode 100644 index 0000000..85dffdc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInPrint.vb @@ -0,0 +1,38 @@ +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.Persistent.BaseImpl + +Public Class OrderInPrint + Inherits DevExpress.ExpressApp.ViewController + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Private Sub aOrderInPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOrderInPrint.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader = TryCast(View.SelectedObjects(0), OrderInAcknowledgementHeader) + + If _OrderInAcknowledgementHeader IsNot Nothing Then + _ReportData = _OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.ReportDataAcknowledgement + If _ReportData IsNot Nothing Then + _OrderInAcknowledgementHeader.RecalculateOrderInAcknowledgement(_OrderInAcknowledgementHeader, _ocur) + _ocur.CommitChanges() + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OrderInAcknowledgementHeader.Oid=?", _OrderInAcknowledgementHeader.Oid), True) + Else + '------------TESZT MIATT!!!! ----------------------------- + Throw New Exception("*Nincs nyomtatvány beállítva!") + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRows.vb new file mode 100644 index 0000000..9a22bae --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRows.vb @@ -0,0 +1,498 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + +'-- Bejövő megrendelés --------------------------------------------------------------------------------------------------- + _ + _ + _ + _ +Public Class OrderInRows + Inherits BaseObject + Private _OrderInHeader As OrderInHeader ' -- Bejövő megrendelés fejléc + Private _OfferOutRows As OfferOutRows ' Kiemnő árajánlat sora + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _RowIndex As Long ' -- Számla sorindex + Private _Products As Products ' -- Termék + Private _QTT As Double '-- Megrendelt mennyiség (amit tőlünk rendelt a vevő) + Private _QTT_To As Double '-- Továbbrendelt mennyiség + Private _QTT_Storaged_Will As Double '-- Kitárolásra foglalt mennyiség + Private _QTT_Storaged As Double '-- Kiadott mennyiség + Private _QTT_DeliveryNoted As Double '-- Kiszállítózott mennyiség + Private _QTT_Invoiced As Double '-- Kiszámlázott mennyiség + Private _QTT_Process As Double '-- Kézzel beírható mennyiség a végrehajtáshoz (pld. mennyi legyen kitárolva ...) + + Private _ListPriceOriginalHUF As Double = 0 + + Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !) + Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !) + Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF + Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV + Private _FinalPriceHUF As Double + Private _FinalPriceDEV As Double + Private _Description As String + Private _DescriptionPrivate As String + Private _QualityOption As QualityOption + + Private _VAT As VAT 'ÁFA kód + + Private _SumPriceNettoHUF As Double 'Netto sorösszess HUF + Private _SumPriceNettoDEV As Double 'Netto sorösszes DEV + Private _SumPriceVATHUF As Double 'ÁFA sorösszess HUF + Private _SumPriceVATDEV As Double 'ÁFA sorösszes DEV + Private _SumPriceBruttoHUF As Double 'Bruttó sorösszess HUF + Private _SumPriceBruttoDEV As Double 'Bruttó sorösszes DEV + + + '// Termeltetési szerződés összekapcsolása a bejövő megrendeléssel + Private _APCSheetByProducts As APCSheetByProducts 'Termékfinanszírozás !!! + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + Me.RecalculateRows() + QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero) + QTT_DeliveryNoted = Math.Round(QTT_DeliveryNoted, 4, MidpointRounding.AwayFromZero) + QTT_Invoiced = Math.Round(QTT_Invoiced, 4, MidpointRounding.AwayFromZero) + QTT_Process = Math.Round(QTT_Process, 4, MidpointRounding.AwayFromZero) + QTT_Storaged = Math.Round(QTT_Storaged, 4, MidpointRounding.AwayFromZero) + QTT_Storaged_Will = Math.Round(QTT_Storaged_Will, 4, MidpointRounding.AwayFromZero) + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + '//Termeltetési szerződési sor kalkulálása !!! + If APCSheetByProducts IsNot Nothing Then + APCSheetByProducts.FundingAmountUsedHUF = 0 + Dim _OrderInRows As OrderInRows + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts)) + For Each _OrderInRows In _OrderInRows_Collection + APCSheetByProducts.FundingAmountUsedHUF += _OrderInRows.SumPriceBruttoHUF + Next + Dim _OrderInRowsOther As OrderInRowsOther + Dim _OrderInRowsOther_Collection As New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts)) + For Each _OrderInRowsOther In _OrderInRowsOther_Collection + APCSheetByProducts.FundingAmountUsedHUF += _OrderInRowsOther.SumPriceBruttoHUF + Next + APCSheetByProducts.FundingAmountAvailableHUF = APCSheetByProducts.FundingAmountHUF - APCSheetByProducts.FundingAmountUsedHUF + + APCSheetByProducts.Save() + Session.CommitTransaction() + End If + End Sub + Protected Overrides Sub OnDeleted() + MyBase.OnDeleted() + + End Sub + Public Sub AddRows(ByVal _p_OrderInHeader As OrderInHeader) + ' Sor hozzáadása a fejléchez, valamint árkalkuláció a sor termékére + Me.OrderInHeader = _p_OrderInHeader + Me.Products = _p_OrderInHeader.row_Products.Products + Me.QTT = _p_OrderInHeader.row_QTT + Me.QTT_Process = _p_OrderInHeader.row_QTT + Me.APCSheetByProducts = _p_OrderInHeader.row_APCSheetByProducts + Me.VAT = Me.Products.VAT + If _p_OrderInHeader.OrderInRows.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_OrderInHeader.OrderInRows.Count - 1 + End If + + + ' Vizsgáljuk. hogy van e árkalkulációja az ügyfélnek, ha van kalkulálunk ha nincs akkor a normál listaáron marad a termék + If Me.OrderInHeader.Customers.Pricing IsNot Nothing Then + If _p_OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF + Me.ListPriceHUF = Me.OrderInHeader.Customers.Pricing.GetCurrentPriceNettoHUF(_p_OrderInHeader.row_Products.Products, _p_OrderInHeader.row_QTT) ' A kedvezményt tartalmazó listaár HUF-ban + Me.DiscountPriceHUF = 0 '_p_OrderInHeader.row_Products.Products.ListPriceOutHUF - Me.ListPriceHUF ' A kedvezmény összege HUF-ban + Else ' Ha a deviza nem HUF + Me.ListPriceDEV = Me.OrderInHeader.Customers.Pricing.GetCurrentPriceNettoDEV(_p_OrderInHeader.row_Products.Products, _p_OrderInHeader.row_QTT) ' A kedvezményt tartalmazó listaár DEV-ben + Me.DiscountPriceDEV = 0 '_p_OrderInHeader.row_Products.Products.ListPriceOutDEV - Me.ListPriceDEV ' A kedvezmény összege DEV-ben + End If + Else ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék + If _p_OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then + Me.ListPriceHUF = Me.Products.ListPriceOutHUF + Else + Me.ListPriceDEV = Me.Products.ListPriceOutDEV + End If + End If + If _p_OrderInHeader.row_o_ListPriceHUF > 0 Then + Me.ListPriceHUF = _p_OrderInHeader.row_o_ListPriceHUF + End If + If _p_OrderInHeader.row_o_ListPriceDEV > 0 Then + Me.ListPriceDEV = _p_OrderInHeader.row_o_ListPriceDEV + End If + + If _p_OrderInHeader.row_DiscountPercent > 0 Then + Me.DiscountPriceHUF = Math.Round(Me.ListPriceHUF * ((_p_OrderInHeader.row_DiscountPercent / 100)), 0, MidpointRounding.AwayFromZero) + Me.DiscountPriceDEV = Math.Round(Me.ListPriceDEV * ((_p_OrderInHeader.row_DiscountPercent / 100)), 0, MidpointRounding.AwayFromZero) + End If + Session.CommitTransaction() + End Sub + Public Sub RemoveRows(ByVal _p_OrderInHeader As OrderInHeader, ByVal _p_ocur As Xpo.XPObjectSpace) + For Each _OrderInRows As OrderInRows In _p_OrderInHeader.OrderInRows + If _OrderInRows.RowIndex > Me.RowIndex Then + _OrderInRows.RowIndex -= 1 + End If + Next + End Sub + + _ + Property OrderInHeader() As OrderInHeader + Get + Return _OrderInHeader + End Get + Set(ByVal value As OrderInHeader) + SetPropertyValue("OrderInHeader", _OrderInHeader, value) + End Set + End Property + Property OfferOutRows As OfferOutRows + Get + Return _OfferOutRows + End Get + Set(value As OfferOutRows) + SetPropertyValue("OfferOutRows", _OfferOutRows, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_To() As Double + Get + Return _QTT_To + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_To", _QTT_To, value) + End Set + End Property + Property QTT_Storaged_Will As Double + Get + Return _QTT_Storaged_Will + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Storaged_Will", _QTT_Storaged_Will, value) + End Set + End Property + Property QTT_Storaged() As Double + Get + Return _QTT_Storaged + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Storaged", _QTT_Storaged, value) + End Set + End Property + Property QTT_DeliveryNoted() As Double + Get + Return _QTT_DeliveryNoted + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_DeliveryNoted", _QTT_DeliveryNoted, value) + End Set + End Property + Property QTT_Invoiced() As Double + Get + Return _QTT_Invoiced + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value) + End Set + End Property + _ + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property DiscountPriceHUF() As Double + Get + Return _DiscountPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + End Set + End Property + Property DiscountPriceDEV() As Double + Get + Return _DiscountPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + End Set + End Property + ReadOnly Property FinalPriceDEV() As Double + Get + Return ListPriceDEV - DiscountPriceDEV + End Get + End Property + ReadOnly Property FinalPriceHUF() As Double + Get + Return ListPriceHUF - DiscountPriceHUF + End Get + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DescriptionPrivate As String + Get + Return _DescriptionPrivate + End Get + Set(ByVal value As String) + SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value) + End Set + End Property + Property QualityOption As QualityOption + Get + Return _QualityOption + End Get + Set(value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property SumPriceNettoHUF As Double + Get + Return _SumPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value) + End Set + End Property + Property SumPriceNettoDEV As Double + Get + Return _SumPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value) + End Set + End Property + Property SumPriceVATHUF As Double + Get + Return _SumPriceVATHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value) + End Set + End Property + Property SumPriceVATDEV As Double + Get + Return _SumPriceVATDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value) + End Set + End Property + Property SumPriceBruttoHUF As Double + Get + Return _SumPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value) + End Set + End Property + Property SumPriceBruttoDEV As Double + Get + Return _SumPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value) + End Set + End Property + + Property ListPriceOriginalHUF As Double + Get + Return _ListPriceOriginalHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceOriginalHUF", _ListPriceOriginalHUF, value) + End Set + End Property + + _ + _ + _ + ReadOnly Property DisplayName As String + Get + Dim _DisplayName As String = "" + If Me.Products IsNot Nothing Then + _DisplayName = Me.Products.ProductNumber.ToString & ", " & Me.Products.ShortName.ToString + If OrderInHeader IsNot Nothing Then + _DisplayName += ", " & OrderInHeader.DocumentNumber + End If + End If + Return _DisplayName + End Get + End Property + ReadOnly Property DiscountPercent As Double + Get + Dim _DiscountPercent As Double = 0 + If ListPriceHUF <> 0 Then + _DiscountPercent = (DiscountPriceHUF / ListPriceHUF) * 100 + End If + Return Math.Round(_DiscountPercent, 2, MidpointRounding.AwayFromZero) + End Get + End Property + '// Termeltetési szerződés miatt + Property APCSheetByProducts As APCSheetByProducts + Get + Return _APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value) + End Set + End Property + '--XPCollections + _ + ReadOnly Property StorageComputed_Collection As XPCollection(Of StorageComputed) + Get + Dim _StorageComputed As XPCollection(Of StorageComputed) + _StorageComputed = New XPCollection(Of StorageComputed)(Session, CriteriaOperator.Parse("Products=? AND QTTFree>0 and Storage.CustomersFrom=?", Products, Me.OrderInHeader.CustomersFrom)) + Return _StorageComputed + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.Oid=?", Me.Oid)) + End Get + End Property + _ + ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows) + Get + Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows=?", Me)) + End Get + End Property + + Sub RecalculateRows() + If Me.OrderInHeader Is Nothing Then Exit Sub + Dim _VATValue As Double = 0 + If VAT IsNot Nothing Then + _VATValue = VAT.KeyValue + End If + If Me.APCSheetByProducts IsNot Nothing Then + Dim _InterestValue As Double = 0 + Dim _DifferentDay As Double = 0 + + _InterestValue = Me.APCSheetByProducts.APCSheetHeader.APCParameters.InterestValue + _DifferentDay = DateDiff(DateInterval.Day, Me.OrderInHeader.DateExecution, Me.APCSheetByProducts.FundingDate) + If _DifferentDay > 0 And _InterestValue > 0 Then + If ListPriceOriginalHUF = 0 Then + ListPriceOriginalHUF = ListPriceHUF + End If + ListPriceHUF = ListPriceOriginalHUF + Math.Round(_DifferentDay / 36000 * _InterestValue * ListPriceOriginalHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + + Me.SumPriceNettoHUF = Math.Round(FinalPriceHUF * QTT, 0, MidpointRounding.AwayFromZero) + Me.SumPriceNettoDEV = Math.Round(FinalPriceDEV * QTT, 2, MidpointRounding.AwayFromZero) + + Me.SumPriceVATHUF = Math.Round(Me.SumPriceNettoHUF * (_VATValue), 0, MidpointRounding.AwayFromZero) + Me.SumPriceVATDEV = Math.Round(Me.SumPriceNettoDEV * (_VATValue), 2, MidpointRounding.AwayFromZero) + + Me.SumPriceBruttoHUF = Me.SumPriceNettoHUF + Me.SumPriceVATHUF + Me.SumPriceBruttoDEV = Me.SumPriceNettoDEV + Me.SumPriceVATDEV + End Sub + _ + Public Function RuleHUFMethod() As Boolean + If Me.OrderInHeader Is Nothing Then + Return False + Else + If Me.OrderInHeader.OrderInParameters Is Nothing Then + Return False + Else + If Me.OrderInHeader.OrderInParameters.CurrencyName Is Nothing Then + Else + If Me.OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then + Return True + Else + Return False + End If + End If + End If + End If + + End Function +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsAdvanceBallanceInfo.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsAdvanceBallanceInfo.vb new file mode 100644 index 0000000..ca8f647 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsAdvanceBallanceInfo.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OrderInRowsAdvanceBallanceInfo 'Ez tartalmazza a nyitott ellegegyenleggel rendelkez vevk nyitott rendelseit + Inherits XPObject + Private Shared myOid As Integer = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + myOid += 1 + Oid = myOid + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Customers As Customers + Property OrderInRows As OrderInRows 'Bejv megrendelsi sor + Property BallanceHUF_Advance As Double 'Ellegegyenleg + + ReadOnly Property DifferentHUF As Double + Get + Dim _Different As Double = 0 + If OrderInRows IsNot Nothing Then + _Different = BallanceHUF_Advance - OrderInRows.SumPriceBruttoHUF + Else + _Different = BallanceHUF_Advance + End If + Return _Different + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOther.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOther.vb new file mode 100644 index 0000000..99ef8b2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOther.vb @@ -0,0 +1,457 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInRowsOther 'Egyéb sorok + Inherits BaseObject + Private _OrderInHeader As OrderInHeader + Private _OfferOutRows As OfferOutRows + Private _RowIndex As Long = 0 'Számla sorindex + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _ShortName As String 'Megnevezés + Private _Description As String 'Leírás + Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !) + Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !) + Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF + Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV + Private _QTT As Double = 0 'Mennyiség + Private _QTT_Invoiced As Double = 0 '-- Kiszámlázott mennyiség + Private _QTT_Process As Double = 0 '-- Kézzel beírható mennyiség a végrehajtáshoz (pld. mennyi legyen kitárolva ...) + Private _Units As Units ' Mennyiségi egység + Private _VAT As VAT 'ÁFA + Private _QualityOption As QualityOption 'Minőségi kondíció + Private _UniqueObjects As UniqueObjects ' -- Egyedi azonosító + Private _CostHolder As CostHolder ' -- Költség viselő + Private _CostPlace As CostPlace ' -- Költség viselő + Private _JobNumberObjects As JobNumberObjects ' -- Project + Private _CustomsTariffs As CustomsTariffs 'SZJ szám + '//Összesítések miatt + + Private _ListPriceOriginalHUF As Double = 0 + + Private _SumPriceNettoHUF As Double 'Netto sorösszess HUF + Private _SumPriceNettoDEV As Double 'Netto sorösszes DEV + Private _SumPriceVATHUF As Double 'ÁFA sorösszess HUF + Private _SumPriceVATDEV As Double 'ÁFA sorösszes DEV + Private _SumPriceBruttoHUF As Double 'Bruttó sorösszess HUF + Private _SumPriceBruttoDEV As Double 'Bruttó sorösszes DEV + '// Termeltetési szerződés összekapcsolása a bejövő megrendeléssel + Private _APCSheetByProducts As APCSheetByProducts 'Termékfinanszírozás !!! + + '// Munka !! + Private _WorkState As WorkState 'Munkafolyamatokat tartalmazó szabad bázis + Private _WorkStateGroup As String 'Sorrendiséget, csoportosítást meghatározó mező + Private _WorkStateExpiration As Date 'Határidő + Private _WorkStateStatus As DevExpress.Persistent.Base.General.TaskStatus + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + Me.RecalculateRows() + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + If APCSheetByProducts IsNot Nothing Then + APCSheetByProducts.FundingAmountUsedHUF = 0 + Dim _OrderInRows As OrderInRows + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts)) + For Each _OrderInRows In _OrderInRows_Collection + APCSheetByProducts.FundingAmountUsedHUF += _OrderInRows.SumPriceBruttoHUF + Next + Dim _OrderInRowsOther As OrderInRowsOther + Dim _OrderInRowsOther_Collection As New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts)) + For Each _OrderInRowsOther In _OrderInRowsOther_Collection + APCSheetByProducts.FundingAmountUsedHUF += _OrderInRowsOther.SumPriceBruttoHUF + Next + APCSheetByProducts.FundingAmountAvailableHUF = APCSheetByProducts.FundingAmountHUF - APCSheetByProducts.FundingAmountUsedHUF + APCSheetByProducts.Save() + Session.CommitTransaction() + End If + End Sub + + + _ + Property OrderInHeader As OrderInHeader + Get + Return _OrderInHeader + End Get + Set(value As OrderInHeader) + SetPropertyValue("OrderInHeader", _OrderInHeader, value) + End Set + End Property + Property OfferOutRows As OfferOutRows + Get + Return _OfferOutRows + End Get + Set(value As OfferOutRows) + SetPropertyValue("OfferOutRows", _OfferOutRows, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ListPriceHUF() As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV() As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property DiscountPriceHUF() As Double + Get + Return _DiscountPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value) + End Set + End Property + Property DiscountPriceDEV() As Double + Get + Return _DiscountPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value) + End Set + End Property + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + Property QTT_Invoiced() As Double + Get + Return _QTT_Invoiced + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value) + End Set + End Property + _ + Property Units() As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property VAT() As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + + Property SumPriceNettoHUF As Double + Get + Return _SumPriceNettoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value) + End Set + End Property + Property SumPriceNettoDEV As Double + Get + Return _SumPriceNettoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value) + End Set + End Property + Property SumPriceVATHUF As Double + Get + Return _SumPriceVATHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value) + End Set + End Property + Property SumPriceVATDEV As Double + Get + Return _SumPriceVATDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value) + End Set + End Property + Property SumPriceBruttoHUF As Double + Get + Return _SumPriceBruttoHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value) + End Set + End Property + Property SumPriceBruttoDEV As Double + Get + Return _SumPriceBruttoDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value) + End Set + End Property + + Property ListPriceOriginalHUF As Double + Get + Return _ListPriceOriginalHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceOriginalHUF", _ListPriceOriginalHUF, value) + End Set + End Property + ReadOnly Property FinalPriceDEV() As Double + Get + Return ListPriceDEV - DiscountPriceDEV + End Get + End Property + ReadOnly Property FinalPriceHUF() As Double + Get + Return ListPriceHUF - DiscountPriceHUF + End Get + End Property + + '// Munkafolyamat miatt + Property WorkState As WorkState + Get + Return _WorkState + End Get + Set(value As WorkState) + SetPropertyValue("WorkState", _WorkState, value) + End Set + End Property + Property WorkStateGroup As String + Get + Return _WorkStateGroup + End Get + Set(value As String) + SetPropertyValue("WorkStateGroup", _WorkStateGroup, value) + End Set + End Property + Property WorkStateExpiration As Date + Get + Return _WorkStateExpiration + End Get + Set(value As Date) + SetPropertyValue("WorkStateExpiration", _WorkStateExpiration, value) + End Set + End Property + Property WorkStateStatus As DevExpress.Persistent.Base.General.TaskStatus + Get + Return _WorkStateStatus + End Get + Set(value As DevExpress.Persistent.Base.General.TaskStatus) + SetPropertyValue("WorkStateStatus", _WorkStateStatus, value) + End Set + End Property + + '// Termeltetési szerződés miatt + Property APCSheetByProducts As APCSheetByProducts + Get + Return _APCSheetByProducts + End Get + Set(value As APCSheetByProducts) + SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value) + End Set + End Property + + + Public Sub AddRows(ByVal _p_OrderInHeader As OrderInHeader) + ' Sor hozzáadása a fejléchez + + Me.OrderInHeader = _p_OrderInHeader + Me.CustomsTariffs = _p_OrderInHeader.row_o_CustomsTariffs + Me.ShortName = _p_OrderInHeader.row_o_ShortName + Me.QTT = _p_OrderInHeader.row_o_QTT + Me.Description = _p_OrderInHeader.row_o_Description + Me.ListPriceDEV = _p_OrderInHeader.row_o_ListPriceDEV + Me.ListPriceHUF = _p_OrderInHeader.row_o_ListPriceHUF + Me.Units = _p_OrderInHeader.row_o_Units + Me.VAT = _p_OrderInHeader.row_o_VAT + Me.DiscountPriceDEV = Math.Round(((_p_OrderInHeader.row_o_DiscountPercent / 100) * Me.ListPriceDEV), 2, MidpointRounding.AwayFromZero) + Me.DiscountPriceHUF = Math.Round(((_p_OrderInHeader.row_o_DiscountPercent / 100) * Me.ListPriceHUF), 2, MidpointRounding.AwayFromZero) + Me.APCSheetByProducts = _p_OrderInHeader.row_o_APCSheetByProducts + + If _p_OrderInHeader.OrderInRowsOther.Count = 0 Then + Me.RowIndex = 0 + Else + Me.RowIndex = _p_OrderInHeader.OrderInRowsOther.Count - 1 + End If + + Me.Save() + End Sub + Public Sub RemoveRows(ByVal _p_OrderInHeader As OrderInHeader) + If _p_OrderInHeader.IsEditable = True Then + + For Each _OrderInRowsOther As OrderInRowsOther In _p_OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.RowIndex > Me.RowIndex Then + _OrderInRowsOther.RowIndex -= 1 + End If + Next + + ' Me.Delete() + End If + End Sub + + Sub RecalculateRows() + If Me.OrderInHeader Is Nothing Then Exit Sub + Dim _VATValue As Double = 0 + If VAT IsNot Nothing Then + _VATValue = VAT.KeyValue + End If + If Me.APCSheetByProducts IsNot Nothing Then + Dim _InterestValue As Double = 0 + Dim _DifferentDay As Double = 0 + + _InterestValue = Me.APCSheetByProducts.APCSheetHeader.APCParameters.InterestValue + _DifferentDay = DateDiff(DateInterval.Day, Me.OrderInHeader.DateExecution, Me.APCSheetByProducts.FundingDate) + If _DifferentDay > 0 And _InterestValue > 0 Then + If ListPriceOriginalHUF = 0 Then + ListPriceOriginalHUF = ListPriceHUF + End If + ListPriceHUF = ListPriceOriginalHUF + Math.Round(_DifferentDay / 36000 * _InterestValue * ListPriceOriginalHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + + Me.SumPriceNettoHUF = Math.Round(FinalPriceHUF * QTT, 0, MidpointRounding.AwayFromZero) + Me.SumPriceNettoDEV = Math.Round(FinalPriceDEV * QTT, 2, MidpointRounding.AwayFromZero) + + Me.SumPriceVATHUF = Math.Round(Me.SumPriceNettoHUF * (_VATValue), 0, MidpointRounding.AwayFromZero) + Me.SumPriceVATDEV = Math.Round(Me.SumPriceNettoDEV * (_VATValue), 2, MidpointRounding.AwayFromZero) + + Me.SumPriceBruttoHUF = Me.SumPriceNettoHUF + Me.SumPriceVATHUF + Me.SumPriceBruttoDEV = Me.SumPriceNettoDEV + Me.SumPriceVATDEV + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb new file mode 100644 index 0000000..de62bab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.Designer.vb @@ -0,0 +1,119 @@ +Partial Class OrderInRowsOtherVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_OrderInOther = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_OrderInOther = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_OrderInOther = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_OrderInOther = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInsertServicesToOrderIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aToTable_OrderInOther + ' + Me.aToTable_OrderInOther.Caption = "Add row" + Me.aToTable_OrderInOther.Category = "aToTable_OrderInOther" + Me.aToTable_OrderInOther.ConfirmationMessage = Nothing + Me.aToTable_OrderInOther.Id = "aToTable_OrderInOther" + Me.aToTable_OrderInOther.ImageName = "table_add" + Me.aToTable_OrderInOther.Shortcut = Nothing + Me.aToTable_OrderInOther.Tag = Nothing + Me.aToTable_OrderInOther.TargetObjectsCriteria = Nothing + Me.aToTable_OrderInOther.TargetViewId = "OrderInHeader_DetailView" + Me.aToTable_OrderInOther.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_OrderInOther.ToolTip = Nothing + Me.aToTable_OrderInOther.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_OrderInOther + ' + Me.aToTableD_OrderInOther.Caption = "Delete row" + Me.aToTableD_OrderInOther.Category = "aToTableD_OrderInOther" + Me.aToTableD_OrderInOther.ConfirmationMessage = Nothing + Me.aToTableD_OrderInOther.Id = "aToTableD_OrderInOther" + Me.aToTableD_OrderInOther.ImageName = "table_delete" + Me.aToTableD_OrderInOther.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_OrderInOther.Shortcut = Nothing + Me.aToTableD_OrderInOther.Tag = Nothing + Me.aToTableD_OrderInOther.TargetObjectsCriteria = Nothing + Me.aToTableD_OrderInOther.TargetViewId = "OrderInHeader_DetailView" + Me.aToTableD_OrderInOther.ToolTip = Nothing + Me.aToTableD_OrderInOther.TypeOfView = Nothing + ' + 'aDown_OrderInOther + ' + Me.aDown_OrderInOther.Caption = "Down" + Me.aDown_OrderInOther.Category = "RecordsNavigation" + Me.aDown_OrderInOther.ConfirmationMessage = Nothing + Me.aDown_OrderInOther.Id = "aDown_OrderInOther" + Me.aDown_OrderInOther.ImageName = "arrow_down_green" + Me.aDown_OrderInOther.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_OrderInOther.Shortcut = Nothing + Me.aDown_OrderInOther.Tag = Nothing + Me.aDown_OrderInOther.TargetObjectsCriteria = Nothing + Me.aDown_OrderInOther.TargetViewId = "OrderInHeader_OrderInRowsOther_ListView" + Me.aDown_OrderInOther.ToolTip = Nothing + Me.aDown_OrderInOther.TypeOfView = Nothing + ' + 'aUp_OrderInOther + ' + Me.aUp_OrderInOther.Caption = "Up" + Me.aUp_OrderInOther.Category = "RecordsNavigation" + Me.aUp_OrderInOther.ConfirmationMessage = Nothing + Me.aUp_OrderInOther.Id = "aUp_OrderInOther" + Me.aUp_OrderInOther.ImageName = "arrow_up_green" + Me.aUp_OrderInOther.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_OrderInOther.Shortcut = Nothing + Me.aUp_OrderInOther.Tag = Nothing + Me.aUp_OrderInOther.TargetObjectsCriteria = Nothing + Me.aUp_OrderInOther.TargetViewId = "OrderInHeader_OrderInRowsOther_ListView" + Me.aUp_OrderInOther.ToolTip = Nothing + Me.aUp_OrderInOther.TypeOfView = Nothing + ' + 'aInsertServicesToOrderIn + ' + Me.aInsertServicesToOrderIn.AcceptButtonCaption = Nothing + Me.aInsertServicesToOrderIn.CancelButtonCaption = Nothing + Me.aInsertServicesToOrderIn.Caption = "aInsert Services To Order In" + Me.aInsertServicesToOrderIn.ConfirmationMessage = Nothing + Me.aInsertServicesToOrderIn.Id = "aInsertServicesToOrderIn" + Me.aInsertServicesToOrderIn.ImageName = Nothing + Me.aInsertServicesToOrderIn.Shortcut = Nothing + Me.aInsertServicesToOrderIn.Tag = Nothing + Me.aInsertServicesToOrderIn.TargetObjectsCriteria = Nothing + Me.aInsertServicesToOrderIn.TargetObjectType = GetType(SISBusiness.[Module].OrderInRowsOther) + Me.aInsertServicesToOrderIn.TargetViewId = "" + Me.aInsertServicesToOrderIn.ToolTip = Nothing + Me.aInsertServicesToOrderIn.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aToTable_OrderInOther As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_OrderInOther As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_OrderInOther As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_OrderInOther As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInsertServicesToOrderIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.resx new file mode 100644 index 0000000..93405f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 173 + + + 17, 95 + + + 17, 56 + + + 211, 290 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb new file mode 100644 index 0000000..72135e8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOtherVC.vb @@ -0,0 +1,195 @@ +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 OrderInRowsOtherVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aToTable_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderInOther.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = CType(View.SelectedObjects(0), OrderInHeader) + + If _OrderInHeader IsNot Nothing Then + + Dim _OrderInRowsOther As OrderInRowsOther = New OrderInRowsOther(_ocur.Session) + _OrderInRowsOther.AddRows(_OrderInHeader) + ' _OrderInHeader.Save() + _ocur.CommitChanges() + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_o_ShortName") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + _OrderInHeader.row_o_Description = "" + _OrderInHeader.row_o_DiscountPercent = 0 + _OrderInHeader.row_o_ListPriceDEV = 0 + _OrderInHeader.row_o_ListPriceHUF = 0 + _OrderInHeader.row_o_QTT = 0 + _OrderInHeader.row_o_ShortName = "" + _OrderInHeader.row_o_Units = Nothing + _OrderInHeader.row_o_VAT = Nothing + + View.Refresh() + End If + End Sub + Private Sub aToTableD_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_OrderInOther.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInRowsOther As OrderInRowsOther + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _OrderInRowsOther_Del_Collection As New ArrayList 'Sz + Dim _OrderInRowsOther_ListEditor As ListPropertyEditor + + _OrderInRowsOther_ListEditor = TryCast(View, DetailView).FindItem("OrderInRowsOther") + For Each _OrderInRowsOther In _OrderInRowsOther_ListEditor.ListView.SelectedObjects + If _OrderInRowsOther.QTT_Invoiced = 0 Then + _OrderInRowsOther.RemoveRows(_OrderInHeader) + _OrderInRowsOther_Del_Collection.Add(_OrderInRowsOther) + + End If + Next + _ocur.Delete(_OrderInRowsOther_Del_Collection) + _OrderInHeader.Save() + _ocur.CommitChanges() + View.Refresh() + End Sub + + Private Sub aUp_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OrderInOther.Execute + ' A kivlaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(e.SelectedObjects(0), OrderInRowsOther).OrderInHeader + Dim _OrderInRowsOther_Selected As OrderInRowsOther = TryCast(e.SelectedObjects(0), OrderInRowsOther) + Dim _OrderInRowsOther_Minus As OrderInRowsOther + Dim _OrderInRowsOther As OrderInRowsOther + + If _OrderInRowsOther_Selected.RowIndex > 0 Then + For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.RowIndex = _OrderInRowsOther_Selected.RowIndex - 1 Then + _OrderInRowsOther_Minus = _OrderInRowsOther + Exit For + End If + Next + + If _OrderInRowsOther_Minus IsNot Nothing Then + _OrderInRowsOther_Selected.RowIndex -= 1 + _OrderInRowsOther_Minus.RowIndex += 1 + End If + _OrderInRowsOther_Minus.Save() + _OrderInRowsOther_Selected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_OrderInOther_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OrderInOther.Execute + ' A kivlaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(e.SelectedObjects(0), OrderInRowsOther).OrderInHeader + Dim _OrderInRowsOther_Selected As OrderInRowsOther = TryCast(e.SelectedObjects(0), OrderInRowsOther) + Dim _OrderInRowsOther_Plus As OrderInRowsOther + Dim _OrderInrowsOther As OrderInRowsOther + + If _OrderInRowsOther_Selected.RowIndex < _OrderInHeader.OrderInRowsOther.Count - 1 Then + For Each _OrderInrowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInrowsOther.RowIndex = _OrderInRowsOther_Selected.RowIndex + 1 Then + _OrderInRowsOther_Plus = _OrderInrowsOther + Exit For + End If + Next + + If _OrderInRowsOther_Plus IsNot Nothing Then + _OrderInRowsOther_Selected.RowIndex += 1 + _OrderInRowsOther_Plus.RowIndex -= 1 + End If + _OrderInRowsOther_Plus.Save() + _OrderInRowsOther_Selected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + + Private Sub aInsertServicesToOrderIn_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToOrderIn.CustomizePopupWindowParams + ' Az akci a szolgltatsok listview-jt hozza fel. + Dim _OrderInHeader As OrderInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OrderInHeader) + + If _OrderInHeader.IsEditable Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False) + Else + '----------TESZT MIATT----------------------------------------- + Throw New Exception("*A kimen ajnlat vgleges vagy storn!") + End If + End Sub + + Private Sub aInsertServicesToOrderIn_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToOrderIn.Execute + 'A popup-on kivlasztott szolgltatsokbl ltrehoz kimen rajnlati sorokat + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OrderInHeader) + Dim _Services As Services + Dim _OrderInRowsOther_New As OrderInRowsOther + + For Each _Services In e.PopupWindow.View.SelectedObjects + _OrderInRowsOther_New = _ocur.CreateObject(Of OrderInRowsOther)() + + _OrderInRowsOther_New.OrderInHeader = _OrderInHeader + _OrderInRowsOther_New.ShortName = _Services.ShortName + _OrderInRowsOther_New.CustomsTariffs = _ocur.GetObject(_Services.CustomsTariffs) + _OrderInRowsOther_New.Description = _Services.Description + _OrderInRowsOther_New.ListPriceDEV = _Services.ListPriceDEV + _OrderInRowsOther_New.ListPriceHUF = _Services.ListPriceHUF + _OrderInRowsOther_New.Units = _ocur.GetObject(_Services.Units) + _OrderInRowsOther_New.VAT = _ocur.GetObject(_Services.VAT) + _OrderInRowsOther_New.QTT = 1 + _OrderInRowsOther_New.RowGroup1 = _Services.RowGroup1 + _OrderInRowsOther_New.RowGroup2 = _Services.RowGroup2 + + 'Indexels + If _OrderInHeader.OrderInRowsOther.Count = 0 Then + _OrderInRowsOther_New.RowIndex = 0 + Else + _OrderInRowsOther_New.RowIndex = _OrderInHeader.OrderInRowsOther.Count - 1 + End If + + _OrderInRowsOther_New.Save() + Next + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb new file mode 100644 index 0000000..56b3794 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.Designer.vb @@ -0,0 +1,91 @@ +Partial Class OrderInRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMoveOrderInRowsToOtherOrderInHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMoveOrderInRowsOtherToOtherOrderInHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_ChangeQTT = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aMoveOrderInRowsToOtherOrderInHeader + ' + Me.aMoveOrderInRowsToOtherOrderInHeader.AcceptButtonCaption = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.CancelButtonCaption = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.Caption = "aMove Order In Rows To Other Order In Header" + Me.aMoveOrderInRowsToOtherOrderInHeader.ConfirmationMessage = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.Id = "aMoveOrderInRowsToOtherOrderInHeader" + Me.aMoveOrderInRowsToOtherOrderInHeader.ImageName = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMoveOrderInRowsToOtherOrderInHeader.Shortcut = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.Tag = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.TargetObjectsCriteria = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.TargetObjectType = GetType(SISBusiness.[Module].OrderInRows) + Me.aMoveOrderInRowsToOtherOrderInHeader.TargetViewId = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.ToolTip = Nothing + Me.aMoveOrderInRowsToOtherOrderInHeader.TypeOfView = Nothing + ' + 'aMoveOrderInRowsOtherToOtherOrderInHeader + ' + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.AcceptButtonCaption = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.CancelButtonCaption = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.Caption = "aMove Order In Rows Other To Other Order In Header" + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.ConfirmationMessage = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.Id = "aMoveOrderInRowsOtherToOtherOrderInHeader" + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.ImageName = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.Shortcut = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.Tag = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.TargetObjectsCriteria = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.TargetObjectType = GetType(SISBusiness.[Module].OrderInRowsOther) + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.TargetViewId = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.ToolTip = Nothing + Me.aMoveOrderInRowsOtherToOtherOrderInHeader.TypeOfView = Nothing + ' + 'aORI_ChangeQTT + ' + Me.aORI_ChangeQTT.AcceptButtonCaption = Nothing + Me.aORI_ChangeQTT.CancelButtonCaption = Nothing + Me.aORI_ChangeQTT.Caption = "aORI_ChangeQTT" + Me.aORI_ChangeQTT.ConfirmationMessage = Nothing + Me.aORI_ChangeQTT.Id = "aORI_ChangeQTT" + Me.aORI_ChangeQTT.ImageName = Nothing + Me.aORI_ChangeQTT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_ChangeQTT.Shortcut = Nothing + Me.aORI_ChangeQTT.Tag = Nothing + Me.aORI_ChangeQTT.TargetObjectsCriteria = "QTT_Storaged_Will=0" + Me.aORI_ChangeQTT.TargetObjectType = GetType(SISBusiness.[Module].OrderInRows) + Me.aORI_ChangeQTT.TargetViewId = "OrderInHeader_OrderInRows_ListView" + Me.aORI_ChangeQTT.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aORI_ChangeQTT.ToolTip = Nothing + Me.aORI_ChangeQTT.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aMoveOrderInRowsToOtherOrderInHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMoveOrderInRowsOtherToOtherOrderInHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_ChangeQTT As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.resx new file mode 100644 index 0000000..0ba3367 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 59, 166 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb new file mode 100644 index 0000000..8e00493 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsVC.vb @@ -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.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Xpo + +Public Class OrderInRowsVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 = "ORI_ChangeQTT_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ORI_ChangeQTT_PopUp_DetailView_AcceptAction_Executing + End If + + If View.Id = "OrderInRowsAdvanceBallanceInfo_ListView" Then + + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf OrderInRowsAdvanceBallanceInfo_ListView_RefreshAction_Executed + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ORI_ChangeQTT_PopUp_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ORI_ChangeQTT_PopUp_DetailView_AcceptAction_Executing + End If + End Sub + Private Sub aMoveOrderInRowsToOtherOrderInHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aMoveOrderInRowsToOtherOrderInHeader.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRows As OrderInRows = TryCast(View.SelectedObjects(0), OrderInRows) + Dim _OrderInHeader_Collectionsource As New CollectionSource(_onew, GetType(OrderInHeader)) + + _OrderInHeader_Collectionsource.BeginUpdateCriteria() + _OrderInHeader_Collectionsource.Criteria.Add("Criteria", CriteriaOperator.Parse("Customers=? AND IsEditable=True AND IsStorno=False", _onew.GetObject(_OrderInRows.OrderInHeader.Customers))) + _OrderInHeader_Collectionsource.EndUpdateCriteria() + + e.View = Application.CreateListView("OrderInHeader_ListView_Select", _OrderInHeader_Collectionsource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aMoveOrderInRowsToOtherOrderInHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMoveOrderInRowsToOtherOrderInHeader.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader_New As OrderInHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader_New Is Nothing Then Throw New Exception("*Nem lett kivlasztva az j bejv megrendels!") + For Each _OrderInRows As OrderInRows In View.SelectedObjects + _OrderInRows.OrderInHeader = _OrderInHeader_New + _OrderInRows.RowIndex = _OrderInHeader_New.OrderInRows.Count + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aMoveOrderInRowsOtherToOtherOrderInHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aMoveOrderInRowsOtherToOtherOrderInHeader.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRowsOther As OrderInRowsOther = TryCast(View.SelectedObjects(0), OrderInRowsOther) + Dim _OrderInHeader_Collectionsource As New CollectionSource(_onew, GetType(OrderInHeader)) + + _OrderInHeader_Collectionsource.BeginUpdateCriteria() + _OrderInHeader_Collectionsource.Criteria.Add("Criteria", CriteriaOperator.Parse("Customers=? AND IsEditable=True AND IsStorno=False", _onew.GetObject(_OrderInRowsOther.OrderInHeader.Customers))) + _OrderInHeader_Collectionsource.EndUpdateCriteria() + + e.View = Application.CreateListView("OrderInHeader_ListView_Select", _OrderInHeader_Collectionsource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aMoveOrderInRowsOtherToOtherOrderInHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMoveOrderInRowsOtherToOtherOrderInHeader.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader_New As OrderInHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader_New Is Nothing Then Throw New Exception("*Nem lett kivlasztva az j bejv megrendels!") + For Each _OrderInRowsOther As OrderInRowsOther In View.SelectedObjects + _OrderInRowsOther.OrderInHeader = _OrderInHeader_New + _OrderInRowsOther.RowIndex = _OrderInHeader_New.OrderInRowsOther.Count + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + + Private Sub aORI_ChangeQTT_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_ChangeQTT.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRows As OrderInRows = TryCast(View.SelectedObjects(0), OrderInRows) + Dim _ORI_ChangeQTT_PopUp As New ORI_ChangeQTT_PopUp(_onew.Session) + + With _ORI_ChangeQTT_PopUp + .QTT = _OrderInRows.QTT + .QTT_Storaged = _OrderInRows.QTT_Storaged + .QTT_Storaged_Will = _OrderInRows.QTT_Storaged_Will + .OrderInRows = _onew.GetObject(_OrderInRows) + End With + + e.View = Application.CreateDetailView(_onew, "ORI_ChangeQTT_PopUp_DetailView", False, _ORI_ChangeQTT_PopUp) + End Sub + Private Sub aORI_ChangeQTT_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_ChangeQTT.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ORI_ChangeQTT_PopUp As ORI_ChangeQTT_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_ChangeQTT_PopUp) + Dim _OrderInRows As OrderInRows = TryCast(View.SelectedObjects(0), OrderInRows) + _OrderInRows.QTT = _ORI_ChangeQTT_PopUp.QTT + _ocur.CommitChanges() + End Sub + Private Sub ORI_ChangeQTT_PopUp_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _ORI_ChangeQTT_PopUp As ORI_ChangeQTT_PopUp = TryCast(View.SelectedObjects(0), ORI_ChangeQTT_PopUp) + If _ORI_ChangeQTT_PopUp IsNot Nothing Then + If _ORI_ChangeQTT_PopUp.QTT < _ORI_ChangeQTT_PopUp.QTT_Storaged Then + e.Cancel = True + Throw New Exception("*A rendelt mennyisg kisebb, mint a mr kitrolt mennyisg!") + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + + Private Sub OrderInRowsAdvanceBallanceInfo_ListView_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInRowsAdvanceBallanceInfo As OrderInRowsAdvanceBallanceInfo + Dim _InvoiceRows_XPQuery As New XPQuery(Of InvoiceRows)(_ocur.Session) + + Dim query1 = From _InvoiceRows In _InvoiceRows_XPQuery + Where String.IsNullOrEmpty(_InvoiceRows.InvoiceHeader.DocumentNumber) = False And + _InvoiceRows.InvoiceHeader.IsEditable = False And + _InvoiceRows.ShortName.ToUpper.Contains("ELLEG") And + _InvoiceRows.InvoiceHeader IsNot Nothing + Group _InvoiceRows By _InvoiceRows.InvoiceHeader.Customers Into g = Group + Select New With {.Customers = Customers, + .BallanceHUF_Advance = g.Sum(Function(inv) inv.SumPriceBruttoHUF)} + + + RaiseEvent InitWork(1, 1, query1.Count) + For Each item In query1 + RaiseEvent DoWork() + If Math.Abs(Math.Round(item.BallanceHUF_Advance, 0, MidpointRounding.AwayFromZero)) > 100 Then + _OrderInRowsAdvanceBallanceInfo = _ocur.CreateObject(Of OrderInRowsAdvanceBallanceInfo)() + _OrderInRowsAdvanceBallanceInfo.Customers = item.Customers + _OrderInRowsAdvanceBallanceInfo.BallanceHUF_Advance = item.BallanceHUF_Advance + TryCast(View, ListView).CollectionSource.Add(_OrderInRowsAdvanceBallanceInfo) + + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("IsNull(OrderInHeader.GCRecord)=True and IsNull(GCRecord)=True and OrderInHeader.Customers=? and OrderInHeader.IsEditable=True and IsNull(OrderInHeader)=False", item.Customers)) + Dim _OrderInRows As OrderInRows + + For Each _OrderInRows In _OrderInRows_Collection + _OrderInRowsAdvanceBallanceInfo = _ocur.CreateObject(Of OrderInRowsAdvanceBallanceInfo)() + _OrderInRowsAdvanceBallanceInfo.Customers = item.Customers + _OrderInRowsAdvanceBallanceInfo.BallanceHUF_Advance = 0 + _OrderInRowsAdvanceBallanceInfo.OrderInRows = _OrderInRows + TryCast(View, ListView).CollectionSource.Add(_OrderInRowsAdvanceBallanceInfo) + Next + End If + Next + RaiseEvent FinalWork + + + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb new file mode 100644 index 0000000..91dd4d7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.Designer.vb @@ -0,0 +1,515 @@ +Partial Class OrderInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aFinalizeOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStornoOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageOutFromOrderIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateInvoicefromOrderIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aReCalculatePricing_OrderInRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecalculateOrder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateOrderOutTempFromOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageOutFromOrderInFIFO = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBackToEdit_OrderInHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductFinder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Storno_Invoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Storno_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Storno_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aORI_Create_DeliveryInvoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Create_Delivery = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Create_Invoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateStorageOutFromOrderInBack = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderIn_InvoiceRowFinalize = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Invoice_Popup_Description = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_Invoice_Popup_DescriptionHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_OrderToSetCustomerOrder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_OrderToIncoming = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderIn_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderInOther_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderInStorageOutDeliveryNoteOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderInStorageOutDeliveryNoteOutInvoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderIn_RecalculateDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderInInvoiceAdvanceAsk = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderInInvoiceAdvance = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_DeleteInvoiceProforma = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateInvoiceFromOrderInFinal = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_RegenerateValues = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aORI_RecalculateTotalBrutto = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aFinalizeOrderIn + ' + Me.aFinalizeOrderIn.Caption = "aFinalize Order In" + Me.aFinalizeOrderIn.Category = "ObjectsCreation" + Me.aFinalizeOrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aFinalizeOrderIn.Id = "aFinalizeOrderIn" + Me.aFinalizeOrderIn.TargetViewId = "" + Me.aFinalizeOrderIn.ToolTip = Nothing + ' + 'aStornoOrderIn + ' + Me.aStornoOrderIn.Caption = "aStorno Order In" + Me.aStornoOrderIn.Category = "Edit" + Me.aStornoOrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aStornoOrderIn.Id = "aStornoOrderIn" + Me.aStornoOrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStornoOrderIn.TargetViewId = "" + Me.aStornoOrderIn.ToolTip = Nothing + ' + 'aToTable_OrderIn + ' + Me.aToTable_OrderIn.Caption = "Add row" + Me.aToTable_OrderIn.Category = "aToTable_OrderIn" + Me.aToTable_OrderIn.ConfirmationMessage = Nothing + Me.aToTable_OrderIn.Id = "aToTable_OrderIn" + Me.aToTable_OrderIn.TargetViewId = "" + Me.aToTable_OrderIn.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_OrderIn.ToolTip = Nothing + Me.aToTable_OrderIn.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_OrderIn + ' + Me.aToTableD_OrderIn.Caption = "Delete row" + Me.aToTableD_OrderIn.Category = "aToTableD_OrderIn" + Me.aToTableD_OrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aToTableD_OrderIn.Id = "aToTableD_OrderIn" + Me.aToTableD_OrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_OrderIn.TargetViewId = "" + Me.aToTableD_OrderIn.ToolTip = Nothing + ' + 'aUp_OrderIn + ' + Me.aUp_OrderIn.Caption = "Up" + Me.aUp_OrderIn.Category = "RecordsNavigation" + Me.aUp_OrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aUp_OrderIn.Id = "aUp_OrderIn" + Me.aUp_OrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_OrderIn.ToolTip = Nothing + ' + 'aDown_OrderIn + ' + Me.aDown_OrderIn.Caption = "Down" + Me.aDown_OrderIn.Category = "RecordsNavigation" + Me.aDown_OrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aDown_OrderIn.Id = "aDown_OrderIn" + Me.aDown_OrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_OrderIn.ToolTip = Nothing + ' + 'aGenerateStorageOutFromOrderIn + ' + Me.aGenerateStorageOutFromOrderIn.AcceptButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderIn.CancelButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderIn.Caption = "Create Storage Out Header From Selected Rows" + Me.aGenerateStorageOutFromOrderIn.Category = "aGenerateStorageOutFromOrderIn" + Me.aGenerateStorageOutFromOrderIn.ConfirmationMessage = Nothing + Me.aGenerateStorageOutFromOrderIn.Id = "aGenerateStorageOutFromOrderIn" + Me.aGenerateStorageOutFromOrderIn.TargetViewId = "" + Me.aGenerateStorageOutFromOrderIn.ToolTip = Nothing + ' + 'aGenerateInvoicefromOrderIn + ' + Me.aGenerateInvoicefromOrderIn.AcceptButtonCaption = Nothing + Me.aGenerateInvoicefromOrderIn.CancelButtonCaption = Nothing + Me.aGenerateInvoicefromOrderIn.Caption = "Create invoices" + Me.aGenerateInvoicefromOrderIn.Category = "ObjectsCreation" + Me.aGenerateInvoicefromOrderIn.ConfirmationMessage = Nothing + Me.aGenerateInvoicefromOrderIn.Id = "aGenerateInvoicefromOrderIn" + Me.aGenerateInvoicefromOrderIn.ImageName = "document_lock" + Me.aGenerateInvoicefromOrderIn.TargetViewId = "OrderInHeader_DetailView" + Me.aGenerateInvoicefromOrderIn.ToolTip = Nothing + ' + 'aReCalculatePricing_OrderInRows + ' + Me.aReCalculatePricing_OrderInRows.Caption = "Recalculate pricing" + Me.aReCalculatePricing_OrderInRows.Category = "RecordEdit" + Me.aReCalculatePricing_OrderInRows.ConfirmationMessage = "Do you want to execute?" + Me.aReCalculatePricing_OrderInRows.Id = "aReCalculatePricing_OrderInRows" + Me.aReCalculatePricing_OrderInRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aReCalculatePricing_OrderInRows.TargetViewId = "OrderInHeader_OrderInRows_ListView" + Me.aReCalculatePricing_OrderInRows.ToolTip = Nothing + ' + 'aRecalculateOrder + ' + Me.aRecalculateOrder.Caption = "Recalculate Order" + Me.aRecalculateOrder.Category = "aRecalculateOrder" + Me.aRecalculateOrder.ConfirmationMessage = "Do you want to execute?" + Me.aRecalculateOrder.Id = "aRecalculateOrder" + Me.aRecalculateOrder.ImageName = "Action_refresh" + Me.aRecalculateOrder.TargetViewId = "OrderInHeader_DetailView" + Me.aRecalculateOrder.ToolTip = Nothing + ' + 'aGenerateOrderOutTempFromOrderIn + ' + Me.aGenerateOrderOutTempFromOrderIn.Caption = "Generate order out" + Me.aGenerateOrderOutTempFromOrderIn.Category = "aGenerateOrderOutTempFromOrderIn" + Me.aGenerateOrderOutTempFromOrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aGenerateOrderOutTempFromOrderIn.Id = "aGenerateOrderOutTempFromOrderIn" + Me.aGenerateOrderOutTempFromOrderIn.TargetViewId = "OrderInHeader_DetailView" + Me.aGenerateOrderOutTempFromOrderIn.ToolTip = Nothing + ' + 'aGenerateStorageOutFromOrderInFIFO + ' + Me.aGenerateStorageOutFromOrderInFIFO.AcceptButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderInFIFO.CancelButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderInFIFO.Caption = "Create Storage Out" + Me.aGenerateStorageOutFromOrderInFIFO.Category = "aGenerateStorageOutFromOrderInFIFO" + Me.aGenerateStorageOutFromOrderInFIFO.ConfirmationMessage = Nothing + Me.aGenerateStorageOutFromOrderInFIFO.Id = "aGenerateStorageOutFromOrderInFIFO" + Me.aGenerateStorageOutFromOrderInFIFO.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateStorageOutFromOrderInFIFO.TargetViewId = "" + Me.aGenerateStorageOutFromOrderInFIFO.ToolTip = Nothing + ' + 'aBackToEdit_OrderInHeader + ' + Me.aBackToEdit_OrderInHeader.Caption = "Back to edit OrderInHeader" + Me.aBackToEdit_OrderInHeader.Category = "Edit" + Me.aBackToEdit_OrderInHeader.ConfirmationMessage = "Do you want to execute?" + Me.aBackToEdit_OrderInHeader.Id = "aBackToEdit_OrderInHeader" + Me.aBackToEdit_OrderInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEdit_OrderInHeader.TargetViewId = "" + Me.aBackToEdit_OrderInHeader.ToolTip = Nothing + ' + 'aProductFinder + ' + Me.aProductFinder.AcceptButtonCaption = Nothing + Me.aProductFinder.CancelButtonCaption = Nothing + Me.aProductFinder.Caption = "aProduct Finder" + Me.aProductFinder.Category = "aProductFinder" + Me.aProductFinder.ConfirmationMessage = Nothing + Me.aProductFinder.Id = "aProductFinder" + Me.aProductFinder.ToolTip = Nothing + ' + 'aORI_Storno_Invoice + ' + Me.aORI_Storno_Invoice.AcceptButtonCaption = Nothing + Me.aORI_Storno_Invoice.CancelButtonCaption = Nothing + Me.aORI_Storno_Invoice.Caption = "aORI_Storno_Invoice" + Me.aORI_Storno_Invoice.Category = "aORI_Storno_Invoice" + Me.aORI_Storno_Invoice.ConfirmationMessage = Nothing + Me.aORI_Storno_Invoice.Id = "aORI_Storno_Invoice" + Me.aORI_Storno_Invoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_Storno_Invoice.ToolTip = Nothing + ' + 'aORI_Storno_DeliveryNoteOut + ' + Me.aORI_Storno_DeliveryNoteOut.AcceptButtonCaption = Nothing + Me.aORI_Storno_DeliveryNoteOut.CancelButtonCaption = Nothing + Me.aORI_Storno_DeliveryNoteOut.Caption = "aORI_Storno_DeliveryNoteOut" + Me.aORI_Storno_DeliveryNoteOut.Category = "aORI_Storno_DeliveryNoteOut" + Me.aORI_Storno_DeliveryNoteOut.ConfirmationMessage = Nothing + Me.aORI_Storno_DeliveryNoteOut.Id = "aORI_Storno_DeliveryNoteOut" + Me.aORI_Storno_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_Storno_DeliveryNoteOut.ToolTip = Nothing + ' + 'aORI_Storno_StorageOut + ' + Me.aORI_Storno_StorageOut.Caption = "aORI_Storno_StorageOut" + Me.aORI_Storno_StorageOut.Category = "aORI_Storno_StorageOut" + Me.aORI_Storno_StorageOut.ConfirmationMessage = Nothing + Me.aORI_Storno_StorageOut.Id = "aORI_Storno_StorageOut" + Me.aORI_Storno_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_Storno_StorageOut.ToolTip = Nothing + ' + 'aORI_Create_DeliveryInvoice + ' + Me.aORI_Create_DeliveryInvoice.AcceptButtonCaption = Nothing + Me.aORI_Create_DeliveryInvoice.CancelButtonCaption = Nothing + Me.aORI_Create_DeliveryInvoice.Caption = "aORI_Create_DeliveryInvoice" + Me.aORI_Create_DeliveryInvoice.Category = "aORI_Create_DeliveryInvoice" + Me.aORI_Create_DeliveryInvoice.ConfirmationMessage = Nothing + Me.aORI_Create_DeliveryInvoice.Id = "aORI_Create_DeliveryInvoice" + Me.aORI_Create_DeliveryInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_Create_DeliveryInvoice.ToolTip = Nothing + ' + 'aORI_Create_Delivery + ' + Me.aORI_Create_Delivery.AcceptButtonCaption = Nothing + Me.aORI_Create_Delivery.CancelButtonCaption = Nothing + Me.aORI_Create_Delivery.Caption = "aORI_Create_Delivery" + Me.aORI_Create_Delivery.Category = "aORI_Create_Delivery" + Me.aORI_Create_Delivery.ConfirmationMessage = Nothing + Me.aORI_Create_Delivery.Id = "aORI_Create_Delivery" + Me.aORI_Create_Delivery.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_Create_Delivery.ToolTip = Nothing + ' + 'aORI_Create_Invoice + ' + Me.aORI_Create_Invoice.AcceptButtonCaption = Nothing + Me.aORI_Create_Invoice.CancelButtonCaption = Nothing + Me.aORI_Create_Invoice.Caption = "aORI_Create_Invoice" + Me.aORI_Create_Invoice.Category = "aORI_Create_Invoice" + Me.aORI_Create_Invoice.ConfirmationMessage = Nothing + Me.aORI_Create_Invoice.Id = "aORI_Create_Invoice" + Me.aORI_Create_Invoice.ToolTip = Nothing + ' + 'aGenerateStorageOutFromOrderInBack + ' + Me.aGenerateStorageOutFromOrderInBack.AcceptButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderInBack.CancelButtonCaption = Nothing + Me.aGenerateStorageOutFromOrderInBack.Caption = "aGenerate Storage Out From Order In Back" + Me.aGenerateStorageOutFromOrderInBack.Category = "aGenerateStorageOutFromOrderInBack" + Me.aGenerateStorageOutFromOrderInBack.ConfirmationMessage = Nothing + Me.aGenerateStorageOutFromOrderInBack.Id = "aGenerateStorageOutFromOrderInBack" + Me.aGenerateStorageOutFromOrderInBack.ToolTip = Nothing + ' + 'aOrderIn_InvoiceRowFinalize + ' + Me.aOrderIn_InvoiceRowFinalize.AcceptButtonCaption = Nothing + Me.aOrderIn_InvoiceRowFinalize.CancelButtonCaption = Nothing + Me.aOrderIn_InvoiceRowFinalize.Caption = "aOrderIn_InvoiceRowFinalize" + Me.aOrderIn_InvoiceRowFinalize.Category = "aOrderIn_InvoiceRowFinalize" + Me.aOrderIn_InvoiceRowFinalize.ConfirmationMessage = Nothing + Me.aOrderIn_InvoiceRowFinalize.Id = "aOrderIn_InvoiceRowFinalize" + Me.aOrderIn_InvoiceRowFinalize.ToolTip = Nothing + ' + 'aORI_Invoice_Popup_Description + ' + Me.aORI_Invoice_Popup_Description.AcceptButtonCaption = Nothing + Me.aORI_Invoice_Popup_Description.CancelButtonCaption = Nothing + Me.aORI_Invoice_Popup_Description.Caption = "aORI_Invoice_Popup_Description" + Me.aORI_Invoice_Popup_Description.Category = "aORI_Invoice_Popup_Description" + Me.aORI_Invoice_Popup_Description.ConfirmationMessage = Nothing + Me.aORI_Invoice_Popup_Description.Id = "aORI_Invoice_Popup_Description" + Me.aORI_Invoice_Popup_Description.ToolTip = Nothing + ' + 'aORI_Invoice_Popup_DescriptionHeader + ' + Me.aORI_Invoice_Popup_DescriptionHeader.AcceptButtonCaption = Nothing + Me.aORI_Invoice_Popup_DescriptionHeader.CancelButtonCaption = Nothing + Me.aORI_Invoice_Popup_DescriptionHeader.Caption = "aORI_Invoice_Popup_DescriptionHeader" + Me.aORI_Invoice_Popup_DescriptionHeader.Category = "aORI_Invoice_Popup_DescriptionHeader" + Me.aORI_Invoice_Popup_DescriptionHeader.ConfirmationMessage = Nothing + Me.aORI_Invoice_Popup_DescriptionHeader.Id = "aORI_Invoice_Popup_DescriptionHeader" + Me.aORI_Invoice_Popup_DescriptionHeader.ToolTip = Nothing + ' + 'aORI_OrderToSetCustomerOrder + ' + Me.aORI_OrderToSetCustomerOrder.AcceptButtonCaption = Nothing + Me.aORI_OrderToSetCustomerOrder.CancelButtonCaption = Nothing + Me.aORI_OrderToSetCustomerOrder.Caption = "aORI_OrderToSetCustomerOrder" + Me.aORI_OrderToSetCustomerOrder.Category = "aORI_OrderToSetCustomerOrder" + Me.aORI_OrderToSetCustomerOrder.ConfirmationMessage = Nothing + Me.aORI_OrderToSetCustomerOrder.Id = "aORI_OrderToSetCustomerOrder" + Me.aORI_OrderToSetCustomerOrder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aORI_OrderToSetCustomerOrder.TargetViewId = "" + Me.aORI_OrderToSetCustomerOrder.ToolTip = Nothing + ' + 'aORI_OrderToIncoming + ' + Me.aORI_OrderToIncoming.AcceptButtonCaption = Nothing + Me.aORI_OrderToIncoming.CancelButtonCaption = Nothing + Me.aORI_OrderToIncoming.Caption = "aORI_OrderToIncoming" + Me.aORI_OrderToIncoming.Category = "aORI_OrderToIncoming" + Me.aORI_OrderToIncoming.ConfirmationMessage = Nothing + Me.aORI_OrderToIncoming.Id = "aORI_OrderToIncoming" + Me.aORI_OrderToIncoming.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aORI_OrderToIncoming.TargetViewId = "" + Me.aORI_OrderToIncoming.ToolTip = Nothing + ' + 'aOrderIn_ChangeRows + ' + Me.aOrderIn_ChangeRows.AcceptButtonCaption = Nothing + Me.aOrderIn_ChangeRows.CancelButtonCaption = Nothing + Me.aOrderIn_ChangeRows.Caption = "Change data in selected rows" + Me.aOrderIn_ChangeRows.ConfirmationMessage = Nothing + Me.aOrderIn_ChangeRows.Id = "aOrderIn_ChangeRows" + Me.aOrderIn_ChangeRows.ImageName = "Action_EditModel" + Me.aOrderIn_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOrderIn_ChangeRows.TargetObjectType = GetType(SISBusiness.[Module].OrderInRows) + Me.aOrderIn_ChangeRows.ToolTip = Nothing + ' + 'aOrderInOther_ChangeRows + ' + Me.aOrderInOther_ChangeRows.AcceptButtonCaption = Nothing + Me.aOrderInOther_ChangeRows.CancelButtonCaption = Nothing + Me.aOrderInOther_ChangeRows.Caption = "Change data in selected rows" + Me.aOrderInOther_ChangeRows.ConfirmationMessage = Nothing + Me.aOrderInOther_ChangeRows.Id = "aOrderInOther_ChangeRows" + Me.aOrderInOther_ChangeRows.ImageName = "Action_EditModel" + Me.aOrderInOther_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOrderInOther_ChangeRows.TargetObjectType = GetType(SISBusiness.[Module].OrderInRowsOther) + Me.aOrderInOther_ChangeRows.ToolTip = Nothing + ' + 'aOrderInStorageOutDeliveryNoteOut + ' + Me.aOrderInStorageOutDeliveryNoteOut.AcceptButtonCaption = Nothing + Me.aOrderInStorageOutDeliveryNoteOut.CancelButtonCaption = Nothing + Me.aOrderInStorageOutDeliveryNoteOut.Caption = "aOrderInStorageOutDeliveryNoteOut" + Me.aOrderInStorageOutDeliveryNoteOut.Category = "ObjectsCreation" + Me.aOrderInStorageOutDeliveryNoteOut.ConfirmationMessage = Nothing + Me.aOrderInStorageOutDeliveryNoteOut.Id = "aOrderInStorageOutDeliveryNoteOut" + Me.aOrderInStorageOutDeliveryNoteOut.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInStorageOutDeliveryNoteOut.TargetViewId = "" + Me.aOrderInStorageOutDeliveryNoteOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOrderInStorageOutDeliveryNoteOut.ToolTip = Nothing + Me.aOrderInStorageOutDeliveryNoteOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOrderInStorageOutDeliveryNoteOutInvoice + ' + Me.aOrderInStorageOutDeliveryNoteOutInvoice.AcceptButtonCaption = Nothing + Me.aOrderInStorageOutDeliveryNoteOutInvoice.CancelButtonCaption = Nothing + Me.aOrderInStorageOutDeliveryNoteOutInvoice.Caption = "aOrderInStorageOutDeliveryNoteOutInvoice" + Me.aOrderInStorageOutDeliveryNoteOutInvoice.Category = "ObjectsCreation" + Me.aOrderInStorageOutDeliveryNoteOutInvoice.ConfirmationMessage = Nothing + Me.aOrderInStorageOutDeliveryNoteOutInvoice.Id = "aOrderInStorageOutDeliveryNoteOutInvoice" + Me.aOrderInStorageOutDeliveryNoteOutInvoice.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInStorageOutDeliveryNoteOutInvoice.TargetViewId = "" + Me.aOrderInStorageOutDeliveryNoteOutInvoice.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOrderInStorageOutDeliveryNoteOutInvoice.ToolTip = Nothing + Me.aOrderInStorageOutDeliveryNoteOutInvoice.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOrderIn_RecalculateDEV + ' + Me.aOrderIn_RecalculateDEV.AcceptButtonCaption = Nothing + Me.aOrderIn_RecalculateDEV.CancelButtonCaption = Nothing + Me.aOrderIn_RecalculateDEV.Caption = "aOrderIn_RecalculateDEV" + Me.aOrderIn_RecalculateDEV.ConfirmationMessage = Nothing + Me.aOrderIn_RecalculateDEV.Id = "aOrderIn_RecalculateDEV" + Me.aOrderIn_RecalculateDEV.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderIn_RecalculateDEV.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOrderIn_RecalculateDEV.ToolTip = Nothing + Me.aOrderIn_RecalculateDEV.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOrderInInvoiceAdvanceAsk + ' + Me.aOrderInInvoiceAdvanceAsk.AcceptButtonCaption = Nothing + Me.aOrderInInvoiceAdvanceAsk.CancelButtonCaption = Nothing + Me.aOrderInInvoiceAdvanceAsk.Caption = "aOrder In Invoice Advance Ask" + Me.aOrderInInvoiceAdvanceAsk.Category = "ObjectsCreation" + Me.aOrderInInvoiceAdvanceAsk.ConfirmationMessage = Nothing + Me.aOrderInInvoiceAdvanceAsk.Id = "aOrderInInvoiceAdvanceAsk" + Me.aOrderInInvoiceAdvanceAsk.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInInvoiceAdvanceAsk.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOrderInInvoiceAdvanceAsk.ToolTip = Nothing + Me.aOrderInInvoiceAdvanceAsk.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOrderInInvoiceAdvance + ' + Me.aOrderInInvoiceAdvance.AcceptButtonCaption = Nothing + Me.aOrderInInvoiceAdvance.CancelButtonCaption = Nothing + Me.aOrderInInvoiceAdvance.Caption = "aOrder In Invoice Advance" + Me.aOrderInInvoiceAdvance.Category = "aOrderInInvoiceAdvance" + Me.aOrderInInvoiceAdvance.ConfirmationMessage = Nothing + Me.aOrderInInvoiceAdvance.Id = "aOrderInInvoiceAdvance" + Me.aOrderInInvoiceAdvance.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aOrderInInvoiceAdvance.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOrderInInvoiceAdvance.ToolTip = Nothing + Me.aOrderInInvoiceAdvance.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aORI_DeleteInvoiceProforma + ' + Me.aORI_DeleteInvoiceProforma.Caption = "aORI_DeleteInvoiceProforma" + Me.aORI_DeleteInvoiceProforma.Category = "aORI_DeleteInvoiceProforma" + Me.aORI_DeleteInvoiceProforma.ConfirmationMessage = "Do you want to execute ?" + Me.aORI_DeleteInvoiceProforma.Id = "aORI_DeleteInvoiceProforma" + Me.aORI_DeleteInvoiceProforma.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aORI_DeleteInvoiceProforma.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aORI_DeleteInvoiceProforma.ToolTip = Nothing + Me.aORI_DeleteInvoiceProforma.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateInvoiceFromOrderInFinal + ' + Me.aGenerateInvoiceFromOrderInFinal.AcceptButtonCaption = Nothing + Me.aGenerateInvoiceFromOrderInFinal.CancelButtonCaption = Nothing + Me.aGenerateInvoiceFromOrderInFinal.Caption = "Create final invoice" + Me.aGenerateInvoiceFromOrderInFinal.Category = "aGenerateInvoiceFromOrderInFinal" + Me.aGenerateInvoiceFromOrderInFinal.ConfirmationMessage = Nothing + Me.aGenerateInvoiceFromOrderInFinal.Id = "aGenerateInvoiceFromOrderInFinal" + Me.aGenerateInvoiceFromOrderInFinal.ImageName = "document_lock" + Me.aGenerateInvoiceFromOrderInFinal.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aGenerateInvoiceFromOrderInFinal.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateInvoiceFromOrderInFinal.ToolTip = Nothing + Me.aGenerateInvoiceFromOrderInFinal.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aORI_RegenerateValues + ' + Me.aORI_RegenerateValues.AcceptButtonCaption = Nothing + Me.aORI_RegenerateValues.CancelButtonCaption = Nothing + Me.aORI_RegenerateValues.Caption = "aORI_RegenerateValues" + Me.aORI_RegenerateValues.Category = "RecordEdit" + Me.aORI_RegenerateValues.ConfirmationMessage = Nothing + Me.aORI_RegenerateValues.Id = "aORI_RegenerateValues" + Me.aORI_RegenerateValues.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aORI_RegenerateValues.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aORI_RegenerateValues.ToolTip = Nothing + Me.aORI_RegenerateValues.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aORI_RecalculateTotalBrutto + ' + Me.aORI_RecalculateTotalBrutto.Caption = "aORI_RecalculateTotalBrutto" + Me.aORI_RecalculateTotalBrutto.Category = "aORI_RecalculateTotalBrutto" + Me.aORI_RecalculateTotalBrutto.ConfirmationMessage = Nothing + Me.aORI_RecalculateTotalBrutto.Id = "aORI_RecalculateTotalBrutto" + Me.aORI_RecalculateTotalBrutto.TargetObjectType = GetType(SISBusiness.[Module].OrderInHeader) + Me.aORI_RecalculateTotalBrutto.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aORI_RecalculateTotalBrutto.ToolTip = Nothing + Me.aORI_RecalculateTotalBrutto.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aFinalizeOrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStornoOrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateStorageOutFromOrderIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateInvoicefromOrderIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aReCalculatePricing_OrderInRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecalculateOrder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateOrderOutTempFromOrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateStorageOutFromOrderInFIFO As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackToEdit_OrderInHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductFinder As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderIn_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderInOther_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderInStorageOutDeliveryNoteOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderInStorageOutDeliveryNoteOutInvoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Storno_Invoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Storno_DeliveryNoteOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Storno_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aORI_Create_DeliveryInvoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Create_Delivery As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Create_Invoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateStorageOutFromOrderInBack As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderIn_RecalculateDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderIn_InvoiceRowFinalize As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Invoice_Popup_Description As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_Invoice_Popup_DescriptionHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_OrderToSetCustomerOrder As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_OrderToIncoming As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderInInvoiceAdvanceAsk As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderInInvoiceAdvance As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_DeleteInvoiceProforma As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateInvoiceFromOrderInFinal As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_RegenerateValues As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aORI_RecalculateTotalBrutto As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.resx new file mode 100644 index 0000000..a00f334 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.resx @@ -0,0 +1,234 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 310, 290 + + + 174, 290 + + + 17, 56 + + + 17, 290 + + + 956, 251 + + + 165, 56 + + + 716, 251 + + + 695, 56 + + + 482, 251 + + + 17, 134 + + + 221, 251 + + + 343, 134 + + + 17, 251 + + + 867, 212 + + + 608, 134 + + + 651, 212 + + + 286, 173 + + + 445, 212 + + + 910, 173 + + + 283, 212 + + + 17, 212 + + + 703, 173 + + + 473, 173 + + + 17, 173 + + + 771, 134 + + + 310, 95 + + + 168, 134 + + + 743, 95 + + + 489, 95 + + + 17, 95 + + + 506, 56 + + + 302, 56 + + + 645, 17 + + + 830, 17 + + + 404, 17 + + + 17, 17 + + + 198, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb new file mode 100644 index 0000000..bd036a0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInVC.vb @@ -0,0 +1,4496 @@ +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.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class OrderInVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + Private _getAlertFromOrderIn As String + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + Private Enum eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows + eDeliveryNoteOutRows = 0 + eOrderInRows = 1 + End Enum +#Region "Overrides" + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + ' Frame.GetController(Of OrderInVC).aORI_RegenerateValues.Active.SetItemValue("", False) + + + Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", False) ' -- Véglegesít egy bejövõ megrendelést + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) ' -- Stornírozz egy bejövõ megrendelést + Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", False) ' -- Bejövõ megrendelés sorainak a row indexét csökkentjük + Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", False) ' -- Bejövõ megrendelés sorainak a row indexét növeljük + Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", False) ' -- Létrehoz egy kitárolást egy rendelésbõl betárolás soraiból + Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC).aORI_RegenerateValues.Active.SetItemValue("", False) + + Frame.GetController(Of OrderInVC).aProductFinder.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", False) + + '--------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aUp_OrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aDown_OrderIn.Active.SetItemValue("", True) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + + 'Dim _OrderInHeader As OrderInHeader = TryCast(cs.MasterObject, OrderInHeader) + 'If _OrderInHeader IsNot Nothing Then + ' If _OrderInHeader.OrderInParameters.CurrencyName.ShortName <> "HUF" Then + ' Dim _ModelListView As IModelListView + ' _ModelListView = TryCast(View.Model.Application.Views.Item(View.Id), IModelListView) + ' _ModelListView.Columns.Item("ListPriceDEV").Index = -1 + ' _ModelListView.Columns.Item("DiscountPriceDEV").Index = -1 + ' _ModelListView.Columns.Item("FinalPriceDEV").Index = -1 + ' End If + 'End If + + End If + If View.Id = "OrderInHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", True) + End If + If View.Id = "OrderInHeader_ListView_Editable" Then + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf OrderInHeader_ListView_Editable_DeleteAction_Executing + End If + + If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + + If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "OrderInHeader_OrderInTo_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderInHeader_OrderInRows_ListView" Then + Frame.GetController(Of OrderInVC).aOrderIn_ChangeRows.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRows_ListView_SelectionChanged + 'AddHandler Frame.GetController(Of DialogController)().PropertyChangedEventArgs, AddressOf OrderInHeader_OrderInRows_ListView_PropertyChangedEventArgs + End If + If View.Id = "OrderInHeader_OrderInRowsOther_ListView" Then + Frame.GetController(Of OrderInVC).aOrderInOther_ChangeRows.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged + End If + If View.Id = "OrderInRowsOther_ListView" Then + AddHandler View.SelectionChanged, AddressOf OrderInHeader_OrderInRowsOther_ListView_SelectionChanged + End If + If View.Id = "OrderInRows_StorageOutRowsInRows_Collection_ListView" Then + 'Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + '--------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OrderInHeader_DetailView" Then '---Véglegesíteni és Sztornózni csak a megfelelõ elemeket lehessen + Frame.GetController(Of OrderInVC)().aRecalculateOrder.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC).aProductFinder.Active.SetItemValue("", True) + If View.SelectedObjects.Count <> 0 Then + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + If _OrderInHeader.IsEditable = True And _OrderInHeader.IsStorno = False Then + Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) + End If + If _OrderInHeader.IsEditable = False Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.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 + End If + + End If + If View.Id = "ORI_Invoice_Popup_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "StorageOutFromOrderInFIFO_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf StorageOutFromOrderInFIFO_PopUp_DetailView_AcceptActionExecuting + End If + If View.Id = "ORI_Invoice_Popup_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf ORI_Invoice_Popup_DetailView_AcceptActionExecuting + End If + If View.Id = "OrderInHeader_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "OrderInHeader_OrderInRows_ListView" Then '--- Bejövõ megrendelések sorai + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + End If + If View.Id = "OrderInRows_StorageComputed_Collection_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "ORI_Invoice_Popup_DetailView" Then + RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + If View.Id = "OrderInHeader_OrderInHeaderVAT_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderInHeader_OrderInTo_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderInHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aBackToEdit_OrderInHeader.Active.SetItemValue("", False) + End If + If View.Id = "OrderInHeader_ListView_Editable" Then + RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf OrderInHeader_ListView_Editable_DeleteAction_Executing + End If + '--------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OrderInHeader_DetailView" Then '---Véglegesíteni és Sztornózni csak a megfelelõ elemeket lehessen + Frame.GetController(Of OrderInVC)().aRecalculateOrder.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aToTable_OrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aToTableD_OrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC).aGenerateStorageOutFromOrderInFIFO.Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + If View.SelectedObjects.Count <> 0 Then + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + If _OrderInHeader.IsEditable = True And _OrderInHeader.IsStorno = False Then + Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", False) + End If + If _OrderInHeader.IsEditable = False Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + If _OrderInHeader.IsEditable = False Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderInVC)().aFinalizeOrderIn.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 + End If + If _OrderInHeader.IsStorno = False AndAlso _OrderInHeader.IsEditable = False Then + Frame.GetController(Of OrderInVC)().aStornoOrderIn.Active.SetItemValue("", True) + End If + If _OrderInHeader.DocumentNumber IsNot Nothing And _OrderInHeader.IsEditable = False Then + Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", False) + End If + End If + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + End Sub +#End Region + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _OrderInHeader As OrderInHeader = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, OrderInHeader) + If _OrderInHeader Is Nothing Then Exit Sub + If _OrderInHeader.DocumentNumber IsNot Nothing And _OrderInHeader.IsEditable = False Then + Frame.GetController(Of OrderInVC)().aGenerateStorageOutFromOrderIn.Active.SetItemValue("", True) + End If + End Sub + Private Sub aFinalizeOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeOrderIn.Execute + '---Az akció véglegesít egy bejövõ megrendelést------------------------------------------------ + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + _OrderInHeader.IsEditable = False + + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aStornoOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoOrderIn.Execute + '---Az akció sztornóz egy véglegesített bejövő megrendelést---------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _OrderInRows As OrderInRows + Dim _False As Boolean = False + '--Ellenőrzés, hogy létezik-e olyan véglegesített kitárolási sor amelynek rendelési sora ehhez a fejléchez tartozik + Dim _FinalizedStorageOutRowsFromOrder As StorageOutRows = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).FindObject(Of StorageOutRows)(CriteriaOperator.Parse("OrderInRows.OrderInHeader=? And StorageOutHeader.IsEditable=?", _OrderInHeader, _False)) + + If _FinalizedStorageOutRowsFromOrder Is Nothing Then + For Each _OrderInRows In _OrderInHeader.OrderInRows + Dim _StorageOutRowsCollection As xpcollection = New xpcollection(_ocur.Session, GetType(StorageOutRows), CriteriaOperator.Parse("OrderInRows=?", _OrderInRows)) + If _StorageOutRowsCollection.Count > 0 Then + '-- Nem véglegesístet kitárolási sorok elviekben töröltehõek + _ocur.Session.Delete(_StorageOutRowsCollection) + End If + Next + Else + '--Teszt Exception dobás ha létezik olyan sora a rendelésnek ami egy lezárt kitároslási sorhoz tartozik + Throw New Exception("*Nem stornózható! A rendeléshez már tartozik véglegesített kitárolás!") + End If + _OrderInHeader.IsStorno = True + _OrderInHeader.Save() + _ocur.CommitChanges() + End Sub + Private Sub aUp_OrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OrderIn.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader + Dim _OrderInRowsSelected As OrderInRows + Dim _OrderInRowsMinus As OrderInRows + Dim _OrderInrows As OrderInRows + + Try + _OrderInRowsSelected = TryCast(View.SelectedObjects(0), OrderInRows) ' Kiveszi a kijelölt sorok közül az elsőt + _OrderInHeader = _OrderInRowsSelected.OrderInHeader + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OrderInRowsSelected.RowIndex > 0 Then + For Each _OrderInrows In _OrderInHeader.OrderInRows + If _OrderInrows.RowIndex = _OrderInRowsSelected.RowIndex - 1 Then + _OrderInRowsMinus = _OrderInrows + Exit For + End If + Next + + If _OrderInRowsMinus IsNot Nothing Then + _OrderInRowsSelected.RowIndex -= 1 + _OrderInRowsMinus.RowIndex += 1 + End If + _OrderInRowsMinus.Save() + _OrderInRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_OrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OrderIn.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader + Dim _OrderInRowsSelected As OrderInRows + Dim _OrderInRowsPlus As OrderInRows + Dim _OrderInrows As OrderInRows + + Try + _OrderInRowsSelected = TryCast(View.SelectedObjects(0), OrderInRows) ' Kiveszi a kijelölt sorok közül az elsőt + _OrderInHeader = _OrderInRowsSelected.OrderInHeader + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _OrderInRowsSelected.RowIndex < _OrderInHeader.OrderInRows.Count - 1 Then + For Each _OrderInrows In _OrderInHeader.OrderInRows + If _OrderInrows.RowIndex = _OrderInRowsSelected.RowIndex + 1 Then + _OrderInRowsPlus = _OrderInrows + Exit For + End If + Next + + If _OrderInRowsPlus IsNot Nothing Then + _OrderInRowsSelected.RowIndex += 1 + _OrderInRowsPlus.RowIndex -= 1 + End If + _OrderInRowsPlus.Save() + _OrderInRowsSelected.Save() + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aGenerateStorageOutFromOrder_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageOutFromOrderIn.CustomizePopupWindowParams + '---Létrehoz egy ListView-t ahol a raktárat kell kiválasztani a rendelésből kitárolási akcióhoz + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInRows") + Dim _OrderInRows As OrderInRows + Try + _OrderInRows = _OrderInRows_ListEditor.ListView.SelectedObjects(0) + Catch + ' --------------- TESZT MIATT ------------------------ + Throw New Exception("*Legalább egy sort ki kell választani!") + End Try + + Dim Keys As New Collection + Dim _In_StorageComputed As New XPCollection(Of StorageComputed)(_onew.Session, CriteriaOperator.Parse("Products=? AND QTTFree>0 AND Storage.CustomersFrom.Oid=?", _onew.GetObject(_OrderInRows.Products), _OrderInRows.OrderInHeader.CustomersFrom.Oid)) + Dim _StorageComputed As StorageComputed + + Keys.Clear() + + For Each _StorageComputed In _In_StorageComputed + Keys.Add(_StorageComputed.Storage.Oid) + Next + + Dim _InOperator As InOperator = New InOperator("Oid", Keys) + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Storage)) + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = _InOperator + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("Storage_ListView_OrderIn", _CollectionSource, True) + End Sub + Private Sub aReCalculatePricing_OrderInRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCalculatePricing_OrderInRows.Execute + ' Vizsgáljuk. hogy van e árkalkulációja az ügyfélnek, ha van kalkulálunk + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInRows).OrderInHeader + Dim _OrderInRows As OrderInRows + If _OrderInHeader.Customers.Pricing IsNot Nothing Then + + For Each _OrderInRows In _OrderInHeader.OrderInRows + If _OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF + _OrderInRows.ListPriceHUF = _OrderInHeader.Customers.Pricing.GetCurrentPriceNettoHUF(_OrderInRows.Products, _OrderInRows.QTT) ' A kedvezményt tartalmazó listaár HUF-ban + _OrderInRows.DiscountPriceHUF = 0 '_OrderInRows.Products.ListPriceOutHUF - _OrderInRows.ListPriceHUF ' A kedvezmény összege HUF-ban + Else ' Ha a deviza nem HUF + _OrderInRows.ListPriceDEV = _OrderInHeader.Customers.Pricing.GetCurrentPriceNettoDEV(_OrderInRows.Products, _OrderInRows.QTT) ' A kedvezményt tartalmazó listaár DEV-ben + _OrderInRows.DiscountPriceDEV = 0 '_OrderInRows.Products.ListPriceOutDEV - _OrderInRows.ListPriceDEV ' A kedvezmény összege DEV-ben + End If + _OrderInRows.Save() + Next + View.Refresh() + End If + End Sub + Private Sub aRecalculateOrder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateOrder.Execute + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + _OrderInHeader.RecalculateOrder(_OrderInHeader, _ocur) + + _ocur.CommitChanges() + End Sub + Private Sub aGenerateOrderOutTempFromOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateOrderOutTempFromOrderIn.Execute + '// Az eljárás továbbrendeli a kiválasztott tételt + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInRows") + Dim _OrderInRows As OrderInRows + Dim _OrderInTo As OrderInTo + Dim _OrderInTo_Collection As XPCollection(Of OrderInTo) + Dim _QTT_To As Double = 0 + + For i = 0 To _ListPropertyEditor.ListView.SelectedObjects.Count - 1 + _OrderInRows = TryCast(_ListPropertyEditor.ListView.SelectedObjects(i), OrderInRows) + If _OrderInRows.QTT_Process <> 0 Then + _OrderInTo = _ocur.FindObject(Of OrderInTo)(CriteriaOperator.Parse("OrderInRows=? and OrderOutRows is NULL", _OrderInRows), True) + If _OrderInTo Is Nothing Then + _OrderInTo = _ocur.CreateObject(Of OrderInTo)() + _OrderInTo.QTT_To = _OrderInRows.QTT_Process + _OrderInTo.OrderInRows = _OrderInRows + Else + _OrderInTo.QTT_To += _OrderInRows.QTT_Process + End If + _ocur.CommitChanges() + _OrderInTo_Collection = New XPCollection(Of OrderInTo)(_ocur.Session, CriteriaOperator.Parse("OrderInRows=?", _OrderInRows)) + _QTT_To = 0 + For Each _OrderInTo In _OrderInTo_Collection + _QTT_To += _OrderInTo.QTT_To + Next + _OrderInRows.QTT_To = _QTT_To + + End If + + Next i + _ocur.CommitChanges() + End Sub + Private Sub aGenerateStorageOutFromOrderInFIFO_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageOutFromOrderInFIFO.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInRows") + Dim _OrderInRows As OrderInRows = TryCast(_OrderInHeader_ListEditor.ListView.SelectedObjects(0), OrderInRows) + + If _OrderInRows Is Nothing Then Throw New Exception("*Nincs kiválsztva egy sor sem a bejövő megrendelésen!") + + Dim _StorageOutFromOrderInFIFO_PopUp As StorageOutFromOrderInFIFO_PopUp = _onew.CreateObject(Of StorageOutFromOrderInFIFO_PopUp)() + _StorageOutFromOrderInFIFO_PopUp.Products = _onew.GetObject(_OrderInRows.Products) + _StorageOutFromOrderInFIFO_PopUp.QTT_Full = _OrderInRows.QTT + + e.View = Application.CreateDetailView(_onew, "StorageOutFromOrderInFIFO_PopUp_DetailView", True, _StorageOutFromOrderInFIFO_PopUp) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aGenerateStorageOutFromOrderInFIFO_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageOutFromOrderInFIFO.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then _ + Throw New Exception("*Nincs kiválsztva egy betárolási bizonylati sor sem!") + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _OrderInHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInRows") + Dim _OrderInRows As OrderInRows = TryCast(_OrderInHeader_ListEditor.ListView.SelectedObjects(0), OrderInRows) + + Dim _onew As Xpo.XPObjectSpace = e.PopupWindow.View.ObjectSpace + Dim _StorageOutFromOrderInFIFO_PopUp As StorageOutFromOrderInFIFO_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageOutFromOrderInFIFO_PopUp) + Dim _StorageInRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("StorageInRows") + + + For Each _StorageInRows_PopUp As StorageInRows In _StorageInRows_ListEditor.ListView.CollectionSource.Collection + If _StorageInRows_PopUp.QTT_Will > _OrderInRows.QTT Then _ + Throw New Exception(String.Format("A {0} termék esetében a rendelet mennyiség {1} volt, így ennél többet nem lehet kitárolni!", _OrderInRows.Products.ShortName, _OrderInRows.QTT) + vbNewLine + _ + String.Format("A kitárolásszándék: {0}", _StorageInRows_PopUp.QTT_Will) + vbNewLine + _ + String.Format("Maximálisan kitárolható: {0}", _OrderInRows.QTT)) + Next + + + Dim _StorageOutHeader As StorageOutHeader = _ocur.FindObject(Of StorageOutHeader)(CriteriaOperator.Parse("Customers=? AND CustomersFrom=? AND StorageMoveType=? AND IsEditable=?", _ + _OrderInHeader.Customers, _OrderInHeader.CustomersFrom, _OrderInHeader.OrderInParameters.StorageMoveType, True)) + + If _StorageOutHeader Is Nothing Then + _StorageOutHeader = _ocur.CreateObject(Of StorageOutHeader)() + _StorageOutHeader.Customers = _OrderInHeader.Customers + _StorageOutHeader.CustomersFrom = _OrderInHeader.CustomersFrom + _StorageOutHeader.StorageMoveType = _OrderInHeader.OrderInParameters.StorageMoveType + End If + + + For Each _StorageInRows_PopUp As StorageInRows In _StorageInRows_ListEditor.ListView.CollectionSource.Collection + If _StorageOutHeader.Storage Is Nothing Then + _StorageOutHeader.Storage = _ocur.GetObjectByKey(Of Storage)(_StorageInRows_PopUp.StorageInHeader.Storage.Oid) + End If + Dim _StorageOutRows As StorageOutRows = _ocur.FindObject(Of StorageOutRows) _ + (CriteriaOperator.Parse("OrderInRows=? and StorageOutHeader.IsEditable=True and StorageOutHeader.IsStorno=False and Products=?", _ + _OrderInRows, _OrderInRows.Products), True) + + If _StorageInRows_PopUp.QTT_Will > 0 Then + + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.CreateObject(Of StorageOutRowsInRows)() + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObjectByKey(Of Products)(_StorageInRows_PopUp.Products.Oid), _ + _ocur.GetObjectByKey(Of Storage)(_StorageInRows_PopUp.StorageInHeader.Storage.Oid))) + + _StorageComputed.QTTFree -= _StorageInRows_PopUp.QTT_Will + _StorageComputed.QTTReservedOut += _StorageInRows_PopUp.QTT_Will + + If _StorageOutRows Is Nothing Then + _StorageOutRows = _ocur.CreateObject(Of StorageOutRows)() + _StorageOutRows.StorageOutHeader = _StorageOutHeader + _StorageOutRows.RowIndex = _StorageOutHeader.StorageOutRows.Count + _StorageOutRows.StorageComputed = _StorageComputed + _StorageOutRows.OrderInRows = _OrderInRows + _StorageOutRows.QTT = _StorageInRows_PopUp.QTT_Will + _StorageOutRows.Products = _ocur.GetObject(_StorageInRows_PopUp.Products) + Else + _StorageOutRows.QTT += _StorageInRows_PopUp.QTT_Will + End If + + + + _StorageOutRowsInRows.QTT = _StorageInRows_PopUp.QTT_Will + _StorageOutRowsInRows.StorageInRows = _ocur.GetObjectByKey(Of StorageInRows)(_StorageInRows_PopUp.Oid) + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.RowIndex = 0 'Itt irreleváns, majd később lehet állítani + + _OrderInRows.QTT_Storaged_Will += _StorageInRows_PopUp.QTT_Will + _OrderInRows.QTT_Process -= _StorageInRows_PopUp.QTT_Will + _StorageInRows_PopUp.QTT_Out_Will += _StorageInRows_PopUp.QTT_Will + _StorageInRows_PopUp.QTT_Will = 0 + Else + MsgBox(String.Format("A {0} termék sorában a szándék mező nulla volt!", _StorageInRows_PopUp.Products.ShortName), MsgBoxStyle.OkOnly, "Figyelem!") + End If + Next + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aGenerateStorageOutFromOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageOutFromOrderIn.Execute + Dim _ocur_original As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.GetObject(Of DevExpress.Persistent.BaseImpl.User)(TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + Dim _OrderInHeader As OrderInHeader = _onew.GetObjectByKey(Of OrderInHeader)(TryCast(View.SelectedObjects(0), OrderInHeader).Oid) + + + Dim _OrderInRows As OrderInRows + Dim _OrderInRows_Exists As OrderInRows + Dim _OrderInRows_Collection As XPCollection(Of OrderInRows) + Dim _StorageInRows As StorageInRows + Dim _StorageInRows_Collection As XPCollection(Of StorageInRows) + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRows_Collection As XPCollection(Of StorageOutRows) = Nothing + + Dim _StorageOutRows_R As StorageOutRows + Dim _StorageOutRows_Collection_R As XPCollection(Of StorageOutRows) + + Dim _StorageOutRows_Exists As StorageOutRows + Dim _StorageOutHeader As StorageOutHeader = Nothing + Dim _Storage As Storage = _onew.GetObjectByKey(Of Storage)(TryCast(e.PopupWindow.View.SelectedObjects(0), Storage).Oid) + Dim _QTT_Mod As Double = 0 + Dim _QTT_Free As Double = 0 + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _ExistsStorageOutHeader As Boolean = False + Dim _StorageComputed As StorageComputed + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Will_Out As Double = 0 + If _Storage Is Nothing Then Exit Sub + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process > 0 Then + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _Storage, _OrderInRows.Products), True) + If _StorageComputed IsNot Nothing Then + If _StorageComputed.QTTFree >= _OrderInRows.QTT_Process Then + _StorageInRows_Collection = New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _Storage, _OrderInRows.Products)) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + _StorageOutRows = _onew.FindObject(Of StorageOutRows) _ + (CriteriaOperator.Parse("OrderInRows=? and StorageOutHeader.IsEditable=True and StorageOutHeader.IsStorno=False and Products=?", _ + _OrderInRows, _OrderInRows.Products), True) + + If _StorageOutRows Is Nothing Then + '--- Új kitárolási sor !!!! + _StorageOutRows = _onew.CreateObject(Of StorageOutRows)() + _StorageOutRows.OrderInRows = _OrderInRows + _StorageOutRows.Products = _OrderInRows.Products + + _OrderInRows_Collection = New XPCollection(Of OrderInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("OrderInHeader.Oid=?", _OrderInRows.OrderInHeader.Oid)) + For Each _OrderInRows_Exists In _OrderInRows_Collection + _StorageOutRows_Exists = _onew.FindObject(Of StorageOutRows) _ + (CriteriaOperator.Parse("OrderInRows=? and StorageOutHeader.IsEditable=True and StorageOutHeader.IsStorno=False", _ + _OrderInRows_Exists), True) + If _StorageOutRows_Exists IsNot Nothing Then + _StorageOutHeader = _StorageOutRows_Exists.StorageOutHeader + _ExistsStorageOutHeader = True + Exit For + End If + Next + If _ExistsStorageOutHeader = False Then + ' Új kitárolási fejléc !!! + _StorageOutHeader = _onew.CreateObject(Of StorageOutHeader)() + _StorageOutHeader.StorageMoveType = _OrderInRows.OrderInHeader.OrderInParameters.StorageMoveType + _StorageOutHeader.Storage = _Storage + _StorageOutHeader.CustomersFrom = _Storage.CustomersFrom + _StorageOutHeader.Customers = _OrderInRows.OrderInHeader.Customers + + End If + _StorageOutRows.StorageOutHeader = _StorageOutHeader + End If + + '--- FIFO FOGLALÁS ------------------------------------------------------------------------------------------------------------------------------- + _QTT_Mod = _OrderInRows.QTT_Process + For Each _StorageInRows In _StorageInRows_Collection + _QTT_Free = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + + If _QTT_Free <= _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = _onew.CreateObject(Of StorageOutRowsInRows)() + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = _onew.CreateObject(Of StorageOutRowsInRows)() + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + Next + + '-------------------------------------------------------------------------------------------------------------------------------------------------- + _OrderInRows.QTT_Storaged_Will += _OrderInRows.QTT_Process + _OrderInRows.QTT_Process = 0 + + '--- StorageComputed újraszámolása + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _Storage, _OrderInRows.Products), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + _StorageOutRows_Collection_R = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _Storage, _OrderInRows.Products)) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut += _QTT_Will_Out + + End If + End If + End If + Next + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + Throw New Exception(ex.Message) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aBackToEdit_OrderInHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_OrderInHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + If _OrderInHeader IsNot Nothing Then + _OrderInHeader.IsEditable = True + _ocur.CommitChanges() + View.Refresh() + End If + + End Sub + Private Sub OrderInHeader_ListView_Editable_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + ' Throw New NotImplementedException + 'nem lehet olyan sora ami ki van tárolva orderinrow or orderinrowother van akkor nem lehet törölni. + End Sub + Private Sub aProductFinder_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aProductFinder.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProductFinder As ProductFinder = _onew.CreateObject(Of ProductFinder)() + + _ProductFinder.MasterKey = View.SelectedObjects(0).Oid + + e.View = Application.CreateDetailView(_onew, "ProductFinder_DetailView", False, _ProductFinder) + End Sub + Private Sub aProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aProductFinder.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _ProductSelected_Collection As New XPCollection(Of ProductSelected)(_ocur.Session, CriteriaOperator.Parse("MasterKey=?", _OrderInHeader.Oid)) + Dim _ProductSelected As ProductSelected + + If _ProductSelected_Collection.Count <= 0 Then Exit Sub + + For Each _ProductSelected In _ProductSelected_Collection + _OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + _OrderInHeader.row_Products = _ocur.FindObject(Of ProductSelect)(CriteriaOperator.Parse("Products.Oid=?", _ProductSelected.Products.Oid)) + _OrderInHeader.row_QTT = _ProductSelected.QTT + Frame.GetController(Of OrderInVC).aToTable_OrderIn.DoExecute() + Next + + _ProductSelected_Collection = New XPCollection(Of ProductSelected)(_ocur.Session, CriteriaOperator.Parse("MasterKey=?", _OrderInHeader.Oid)) + _ocur.Delete(_ProductSelected_Collection) + _ocur.CommitChanges() + End Sub + Private Sub aOrderIn_ChangeRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOrderIn_ChangeRows.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRows_ChangeGroup As OrderInRows_ChangeGroup = _onew.CreateObject(Of OrderInRows_ChangeGroup)() + If View.SelectedObjects.Count > 0 Then + Dim _OrderInRows As OrderInRows = TryCast(View.SelectedObjects(0), OrderInRows) + _OrderInRows_ChangeGroup.RowGroup1 = _onew.GetObject(_OrderInRows.RowGroup1) + _OrderInRows_ChangeGroup.RowGroup2 = _onew.GetObject(_OrderInRows.RowGroup2) + _OrderInRows_ChangeGroup.QualityOption = _onew.GetObject(_OrderInRows.QualityOption) + _OrderInRows_ChangeGroup.FinalPricePercent = 0 + _OrderInRows_ChangeGroup.Description = _onew.GetObject(_OrderInRows.Description) + + e.View = Application.CreateDetailView(_onew, "OrderInRows_ChangeGroup_DetailView", False, _OrderInRows_ChangeGroup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aOrderIn_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOrderIn_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInRows_ChangeGroup As OrderInRows_ChangeGroup = TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInRows_ChangeGroup) + + Dim _OrderInRows As OrderInRows '= TryCast(View.SelectedObjects(0), OrderInRows) + 'If _OrderInRows IsNot Nothing Then + + If _OrderInRows_ChangeGroup.Change_Description Then + For Each _OrderInRows In _selection + _OrderInRows.Description = _OrderInRows_ChangeGroup.Description + _OrderInRows.Save() + Next + End If + If _OrderInRows_ChangeGroup.Change_FinalPricePercent Then + For Each _OrderInRows In _selection + '_OrderInRows.FinalPriceHUF = _OrderInRows.FinalPriceHUF - (_OrderInRows.FinalPriceHUF * (_OrderInRows_ChangeGroup.FinalPricePercent / 100)) + '_OrderInRows.DiscountPercent = _OrderInRows_ChangeGroup.FinalPricePercent + '_OrderInRows.RecalculateRow() + '_OrderInRows.CanChangeProperty = False + + 'If _OrderInRows.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + ' _OrderInRows.FinalPriceHUF = _OrderInRows.ListPriceHUF - _OrderInRows.DiscountPriceHUF + 'Else + ' _OrderInRows.FinalPriceDEV = _OrderInRows.ListPriceDEV - _OrderInRows.FinalPriceDEV + 'End If + + '_OrderInRows.CanChangeProperty = True + + '_OrderInRows.Save() + Next + End If + If _OrderInRows_ChangeGroup.Change_QualityOption Then + For Each _OrderInRows In _selection + _OrderInRows.QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_OrderInRows.QualityOption.Oid) + _OrderInRows.Save() + Next + End If + If _OrderInRows_ChangeGroup.Change_RowGroup1 Then + For Each _OrderInRows In _selection + _OrderInRows.RowGroup1 = _OrderInRows_ChangeGroup.RowGroup1 + _OrderInRows.Save() + Next + End If + If _OrderInRows_ChangeGroup.Change_RowGroup2 Then + For Each _OrderInRows In _selection + _OrderInRows.RowGroup2 = _OrderInRows_ChangeGroup.RowGroup2 + _OrderInRows.Save() + Next + End If + If _OrderInRows_ChangeGroup.Change_DiscountPercent Then + For Each _OrderInRows In _selection + _OrderInRows.DiscountPriceHUF = _OrderInRows.ListPriceHUF * (_OrderInRows_ChangeGroup.DiscountPercent / 100) + _OrderInRows.DiscountPriceDEV = _OrderInRows.ListPriceDEV * (_OrderInRows_ChangeGroup.DiscountPercent / 100) + + Next + End If + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub OrderInHeader_OrderInRows_ListView_SelectionChanged(sender As Object, e As EventArgs) + Dim _OrderInRows As OrderInRows + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _OrderInRows In View.SelectedObjects + _selection.Add(_OrderInRows) + Next + End If + End Sub + Private Sub OrderInHeader_OrderInRowsOther_ListView_SelectionChanged(sender As Object, e As EventArgs) + Dim _OrderInRowsOther As OrderInRowsOther + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _OrderInRowsOther In View.SelectedObjects + _selection.Add(_OrderInRowsOther) + Next + End If + End Sub + Private Sub aOrderInOther_ChangeRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOrderInOther_ChangeRows.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRowsOther_ChangeGroup As OrderInRowsOther_ChangeGroup = _onew.CreateObject(Of OrderInRowsOther_ChangeGroup)() + If View.SelectedObjects.Count > 0 Then + Dim _OrderInRowsOther As OrderInRowsOther = TryCast(View.SelectedObjects(0), OrderInRowsOther) + _OrderInRowsOther_ChangeGroup.VAT = _onew.GetObject(_OrderInRowsOther.VAT) + _OrderInRowsOther_ChangeGroup.Units = _onew.GetObject(_OrderInRowsOther.Units) + _OrderInRowsOther_ChangeGroup.RowGroup1 = _onew.GetObject(_OrderInRowsOther.RowGroup1) + _OrderInRowsOther_ChangeGroup.RowGroup2 = _onew.GetObject(_OrderInRowsOther.RowGroup2) + _OrderInRowsOther_ChangeGroup.QualityOption = _onew.GetObject(_OrderInRowsOther.QualityOption) + _OrderInRowsOther_ChangeGroup.FinalPricePercent = 0 + _OrderInRowsOther_ChangeGroup.ShortName = _onew.GetObject(_OrderInRowsOther.ShortName) + _OrderInRowsOther_ChangeGroup.Description = _onew.GetObject(_OrderInRowsOther.Description) + + e.View = Application.CreateDetailView(_onew, "OrderInRowsOther_ChangeGroup_DetailView", False, _OrderInRowsOther_ChangeGroup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aOrderInOther_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOrderInOther_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInRowsOther_ChangeGroup As OrderInRowsOther_ChangeGroup = TryCast(e.PopupWindow.View.SelectedObjects(0), OrderInRowsOther_ChangeGroup) + + Dim _OrderInRowsOther As OrderInRowsOther '= TryCast(View.SelectedObjects(0), OrderInRowsOther) + 'If _OrderInRowsOther IsNot Nothing Then + + If _OrderInRowsOther_ChangeGroup.Change_Description Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.Description = _OrderInRowsOther_ChangeGroup.Description + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_FinalPricePercent Then + For Each _OrderInRowsOther In _selection + '_OrderInRowsOther.FinalPriceHUF = _OrderInRowsOther.FinalPriceHUF - (_OrderInRowsOther.FinalPriceHUF * (_OrderInRowsOther_ChangeGroup.FinalPricePercent / 100)) + '_OrderInRowsOther.DiscountPercent = _OrderInRowsOther_ChangeGroup.FinalPricePercent + '_OrderInRowsOther.RecalculateRow() + '_OrderInRowsOther.CanChangeProperty = False + + 'If _OrderInRowsOther.OfferOutHeader.CurrencyName.ShortName = "HUF" Then + ' _OrderInRowsOther.FinalPriceHUF = _OrderInRowsOther.ListPriceHUF - _OrderInRowsOther.DiscountPriceHUF + 'Else + ' _OrderInRowsOther.FinalPriceDEV = _OrderInRowsOther.ListPriceDEV - _OrderInRowsOther.FinalPriceDEV + 'End If + + '_OrderInRowsOther.CanChangeProperty = True + + '_OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_QualityOption Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_OrderInRowsOther.QualityOption.Oid) + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_RowGroup1 Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.RowGroup1 = _OrderInRowsOther_ChangeGroup.RowGroup1 + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_RowGroup2 Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.RowGroup2 = _OrderInRowsOther_ChangeGroup.RowGroup2 + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_ShortName Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.ShortName = _OrderInRowsOther_ChangeGroup.ShortName + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_Units Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.Units = _ocur.GetObjectByKey(Of Units)(_OrderInRowsOther_ChangeGroup.Units.Oid) + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_VAT Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.VAT = _ocur.GetObjectByKey(Of VAT)(_OrderInRowsOther_ChangeGroup.VAT.Oid) + _OrderInRowsOther.Save() + Next + End If + + If _OrderInRowsOther_ChangeGroup.Change_WorkState Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.WorkState = _ocur.GetObjectByKey(Of WorkState)(_OrderInRowsOther_ChangeGroup.WorkState.Oid) + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_WorkStateGroup Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.WorkStateGroup = _OrderInRowsOther_ChangeGroup.WorkStateGroup + _OrderInRowsOther.Save() + Next + End If + If _OrderInRowsOther_ChangeGroup.Change_WorkStateExpiration Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.WorkStateExpiration = _OrderInRowsOther_ChangeGroup.WorkStateExpiration + _OrderInRowsOther.Save() + Next + End If + + If _OrderInRowsOther_ChangeGroup.Change_WorkStateStatus Then + For Each _OrderInRowsOther In _selection + _OrderInRowsOther.WorkStateStatus = _OrderInRowsOther_ChangeGroup.WorkStateStatus + _OrderInRowsOther.Save() + Next + End If + + 'End If + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub StorageOutFromOrderInFIFO_PopUp_DetailView_AcceptActionExecuting(sender As Object, e As CancelEventArgs) + Dim _ActQTT = 0 + + Dim _StorageOutFromOrderInFIFO_PopUp As StorageOutFromOrderInFIFO_PopUp = View.SelectedObjects(0) + For Each _StorageInRows As StorageInRows In _StorageOutFromOrderInFIFO_PopUp.StorageInRows + _ActQTT += _StorageInRows.QTT_Will + If _StorageInRows.QTT < _StorageInRows.QTT_Will Then Throw New Exception("*Egy vagy több sorban a foglalni kívánt mennyiség meghaladja a szabad készlet mennyiségét!" _ + + vbNewLine + vbNewLine + "Kérem, ellenőrizze!") + If _StorageInRows.QTT_Will < 0 Then Throw New Exception("*Egy vagy több sorban negatív értékű foglalási szándék szerepel!" _ + + vbNewLine + vbNewLine + "Kérem, ellenőrizze!") + Next + + If _ActQTT <> _StorageOutFromOrderInFIFO_PopUp.QTT_Full Then Throw New Exception("*Nem végezhető el a foglalás, mert a foglalási szándék és a foglalás(ok) értéke nem egyezik meg!" _ + + vbNewLine + vbNewLine + "Kérem, ellenőrizze!") + End Sub + Private Sub InvoiceHeaderSavedSettings(ByVal _InvoiceHeader As InvoiceHeader) + On Error GoTo CheckError + With _InvoiceHeader + .Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString + .Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString + .Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString + .Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString + .Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString + .Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString + .Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString + .Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString + + .Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString + .Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + .Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString + .Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString + .Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + .Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString + .Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + .Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + .Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + .Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + .Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + End With + +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub StornoInvoice(_onew As Xpo.XPObjectSpace, _InvoiceHeaderNew_Collection As ArrayList, _InvoiceRows_Collection As ArrayList) + ' Stornózandó fejlécek meghatározása + '_______________________________________________________ + Dim _InvoiceHeaderOrig_Collection As New ArrayList + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + Dim _InvoiceHeader As InvoiceHeader = _onew.GetObject(_InvoiceRows.InvoiceHeader) + If _InvoiceHeaderOrig_Collection.Count = 0 Then + _InvoiceHeaderOrig_Collection.Add(_InvoiceHeader) + Else + Dim _IsNeed As Boolean = True + For Each _InvoiceHeaderInCollection As InvoiceHeader In _InvoiceHeaderOrig_Collection + If _InvoiceHeaderInCollection.Oid = _InvoiceRows.InvoiceHeader.Oid Then _IsNeed = False + Next + If _IsNeed Then _InvoiceHeaderOrig_Collection.Add(_InvoiceHeader) + End If + Next + + If _InvoiceHeaderOrig_Collection.Count = 0 Then Return + + For Each _InvoiceHeaderOrig As InvoiceHeader In _InvoiceHeaderOrig_Collection + _InvoiceHeaderOrig = _onew.GetObjectByKey(Of InvoiceHeader)(_InvoiceHeaderOrig.Oid) + _InvoiceHeaderOrig.IsStorno = True + + Dim _InvoiceHeaderNew As New InvoiceHeader(_onew.Session) + With _InvoiceHeaderNew + .IsStorno = True + .BankInformation = _InvoiceHeaderOrig.BankInformation + .ConnectInfo = _InvoiceHeaderOrig.DocumentNumber + .CurrencyName = _InvoiceHeaderOrig.CurrencyName + .CurrencyRate = _InvoiceHeaderOrig.CurrencyRate + .Customers = _InvoiceHeaderOrig.Customers + .CustomersFrom = _InvoiceHeaderOrig.CustomersFrom + .DateCreated = GetSQLTime(_onew.Session) + .PaymentOption = _InvoiceHeaderOrig.PaymentOption + .DateExecution = _InvoiceHeaderOrig.DateExecution + .DatePayment = _InvoiceHeaderOrig.DatePayment + .DocumentNumber = _InvoiceHeaderOrig.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeaderOrig.InvoiceType.NumberGenerator) + .HUNumberToText = _InvoiceHeaderOrig.HUNumberToText + .InvoiceType = _InvoiceHeaderOrig.InvoiceType + .IsEditable = False + .IsProforma = False + .QualityOption = _InvoiceHeaderOrig.QualityOption + .Saved_Customers_Address_City = _InvoiceHeaderOrig.Saved_Customers_Address_City + .Saved_Customers_Address_Country = _InvoiceHeaderOrig.Saved_Customers_Address_Country + .Saved_Customers_Address_StateProvince = _InvoiceHeaderOrig.Saved_Customers_Address_StateProvince + .Saved_Customers_Address_Street = _InvoiceHeaderOrig.Saved_Customers_Address_Street + .Saved_Customers_Address_ZipPostal = _InvoiceHeaderOrig.Saved_Customers_Address_ZipPostal + .Saved_Customers_Name = _InvoiceHeaderOrig.Saved_Customers_Name + .Saved_Customers_VATNumber = _InvoiceHeaderOrig.Saved_Customers_VATNumber + .Saved_Customers_VATNumberEU = _InvoiceHeaderOrig.Saved_Customers_VATNumberEU + .Saved_CustomersFrom_Address_City = _InvoiceHeaderOrig.Saved_CustomersFrom_Address_City + .Saved_CustomersFrom_Address_Country = _InvoiceHeaderOrig.Saved_CustomersFrom_Address_Country + .Saved_CustomersFrom_Address_StateProvince = _InvoiceHeaderOrig.Saved_CustomersFrom_Address_StateProvince + .Saved_CustomersFrom_Address_Street = _InvoiceHeaderOrig.Saved_CustomersFrom_Address_Street + .Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeaderOrig.Saved_CustomersFrom_Address_ZipPostal + .Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeaderOrig.Saved_CustomersFrom_Bank_AccountNumber + .Saved_CustomersFrom_Bank_IBAN = _InvoiceHeaderOrig.Saved_CustomersFrom_Bank_IBAN + .Saved_CustomersFrom_Bank_ShortName = _InvoiceHeaderOrig.Saved_CustomersFrom_Bank_ShortName + .Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeaderOrig.Saved_CustomersFrom_Bank_SWIFT + + .Saved_CustomersFrom_Name = _InvoiceHeaderOrig.Saved_CustomersFrom_Name + .Saved_CustomersFrom_VATNumber = _InvoiceHeaderOrig.Saved_CustomersFrom_VATNumber + .Saved_CustomersFrom_VATNumberEU = _InvoiceHeaderOrig.Saved_CustomersFrom_VATNumberEU + + .ShipmentOption = _InvoiceHeaderOrig.ShipmentOption + End With + + For Each _InvoiceRowsOrig As InvoiceRows In _InvoiceHeaderOrig.InvoiceRows + Dim _InvoiceRowsNew As New InvoiceRows(_onew.Session) + With _InvoiceRowsNew + .InvoiceHeader = _InvoiceHeaderNew + .Controlling = _InvoiceRowsOrig.Controlling + .CostHolder = _InvoiceRowsOrig.CostHolder + .CostPlace = _InvoiceRowsOrig.CostPlace + .CustomsTariffs = _InvoiceRowsOrig.CustomsTariffs + .Description = _InvoiceRowsOrig.Description + .DiscountPriceDEV = _InvoiceRowsOrig.DiscountPriceDEV + .DiscountPriceHUF = _InvoiceRowsOrig.DiscountPriceHUF + .InvoiceRowtype = _InvoiceRowsOrig.InvoiceRowtype + .JobNumberObjects = _InvoiceRowsOrig.JobNumberObjects + .ListPriceDEV = _InvoiceRowsOrig.ListPriceDEV + .ListPriceHUF = _InvoiceRowsOrig.ListPriceHUF + .QTT = _InvoiceRowsOrig.QTT * (-1) + .QualityOption = _InvoiceRowsOrig.QualityOption + .RowIndex = _InvoiceRowsOrig.RowIndex + .ShortName = _InvoiceRowsOrig.ShortName + .UniqueObjects = _InvoiceRowsOrig.UniqueObjects + .Units = _InvoiceRowsOrig.Units + .VAT = _InvoiceRowsOrig.VAT + If _InvoiceRowsOrig.ContractRows IsNot Nothing Then + .ContractRows = _InvoiceRowsOrig.ContractRows + End If + If _InvoiceRowsOrig.OrderInRows IsNot Nothing Then + .OrderInRows = _InvoiceRowsOrig.OrderInRows + _InvoiceRowsOrig.OrderInRows.QTT_Invoiced -= _InvoiceRowsOrig.QTT + End If + If _InvoiceRowsOrig.DeliveryNoteOutRows IsNot Nothing Then + .DeliveryNoteOutRows = _InvoiceRowsOrig.DeliveryNoteOutRows + _InvoiceRowsOrig.DeliveryNoteOutRows.QTT_Invoiced -= _InvoiceRowsOrig.QTT + _InvoiceRowsOrig.DeliveryNoteOutRows.QTT_Will += _InvoiceRowsOrig.QTT + End If + + .ChartOfAccounts = _InvoiceRowsOrig.ChartOfAccounts + .InvoiceRows = _InvoiceRowsOrig.InvoiceRows + .InvoiceRowsAdvance = _InvoiceRowsOrig.InvoiceRowsAdvance + .OrderInRows = _InvoiceRowsOrig.OrderInRows + .DeliveryNoteOutRows = _InvoiceRowsOrig.DeliveryNoteOutRows + .OrderInRowsOther = _InvoiceRowsOrig.OrderInRowsOther + End With + Next + _InvoiceHeaderNew_Collection.Add(_InvoiceHeaderNew) + Next + End Sub + Private Sub StornoDeliveryNoteOut(_onew As Xpo.XPObjectSpace, _DeliveryNoteOutHeader_Collection As ArrayList, _DeliveryNoteOutHeaderNew_Collection As ArrayList) + For Each _DeliveryNoteOutHeader As DeliveryNoteOutHeader In _DeliveryNoteOutHeader_Collection + _DeliveryNoteOutHeader.IsEditable = False + _DeliveryNoteOutHeader.IsStorno = True + + Dim _DeliveryNoteOutHeaderNew As New DeliveryNoteOutHeader(_onew.Session) + With _DeliveryNoteOutHeaderNew + .ConnectInfo = _DeliveryNoteOutHeader.DocumentNumber + .CurrencyName = _onew.GetObject(_DeliveryNoteOutHeader.CurrencyName) + .Customers = _onew.GetObject(_DeliveryNoteOutHeader.Customers) + .CustomersFrom = _onew.GetObject(_DeliveryNoteOutHeader.CustomersFrom) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _onew.GetObject(_DeliveryNoteOutHeader.DateExecution) + .Note = _onew.GetObject(_DeliveryNoteOutHeader.Note) + .QualityOption = _onew.GetObject(_DeliveryNoteOutHeader.QualityOption) + .ShipmentOption = _onew.GetObject(_DeliveryNoteOutHeader.ShipmentOption) + .TransportAddress = _onew.GetObject(_DeliveryNoteOutHeader.TransportAddress) + .DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteOutHeader.DeliveryNoteOutType) + .IsStorno = True + .IsEditable = False + End With + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + Dim _DeliveryNoteOutRowsNew As New DeliveryNoteOutRows(_onew.Session) + With _DeliveryNoteOutRowsNew + .DeliveryNoteOutHeader = _DeliveryNoteOutHeaderNew + .RowIndex = _DeliveryNoteOutHeaderNew.DeliveryNoteOutRows.Count + .QTT = _DeliveryNoteOutRows.QTT * (-1) + .QTT_Will = 0 + .StorageOutRowsInRows = _DeliveryNoteOutRows.StorageOutRowsInRows + End With + _DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_DeliveryNoted -= _DeliveryNoteOutRows.QTT + Next + _DeliveryNoteOutHeaderNew_Collection.Add(_DeliveryNoteOutHeaderNew) + Next + End Sub + Private Sub StornoDeliveryNoteOutStorageOut(_onew As Xpo.XPObjectSpace, _DeliveryNoteOutHeader_Collection As ArrayList, _StorageOutHeader_Collection As ArrayList, _DeliveryNoteOutHeaderNew_Collection As ArrayList, _StorageOutHeaderNew_Collection As ArrayList) + StornoDeliveryNoteOut(_onew, _DeliveryNoteOutHeader_Collection, _DeliveryNoteOutHeaderNew_Collection) + + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + If _StorageOutHeader_Collection.Count = 0 Then Return + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _StorageOutHeaderNew As New StorageOutHeader(_onew.Session) + With _StorageOutHeaderNew + .ConnectInfo = _StorageOutHeader.DocumentNumber + .Storage = _onew.GetObject(_StorageOutHeader.Storage) + .StorageMoveType = _onew.GetObject(_StorageOutHeader.StorageMoveType) + .CustomersFrom = _onew.GetObject(_StorageOutHeader.CustomersFrom) + .Customers = _onew.GetObject(_StorageOutHeader.Customers) + .Active = False + .IsStorno = True + .IsEditable = False + End With + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsStorno = True + _StorageOutHeader.Active = False + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsNew As New StorageOutRows(_onew.Session) + With _StorageOutRowsNew + .RowIndex = _StorageOutRows.RowIndex + .StorageOutHeader = _StorageOutHeaderNew + .StorageComputed = _onew.GetObject(_StorageOutRows.StorageComputed) + .OrderInRows = _onew.GetObject(_StorageOutRows.OrderInRows) + .QTT = _StorageOutRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .Products = _onew.GetObject(_StorageOutRows.Products) + .OnStorno = True + End With + '----Vissza raktárba + mozgástábla + '____________________________________________________ + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _onew.GetObject(_StorageOutRows))) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_StorageOutRows.Products))) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows=?", _ + _onew.GetObject(_StorageOutRowsInRows.StorageInRows), _onew.GetObject(_StorageOutRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageComputed.QTTFree += _StorageOutRowsInRows.QTT + + Dim _StorageOutRowsInRowsNew As New StorageOutRowsInRows(_onew.Session) + With _StorageOutRowsInRowsNew + .StorageInRows = _StorageOutRowsInRows.StorageInRows + .StorageOutRows = _StorageOutRowsInRows.StorageOutRows + .QTT = _StorageOutRowsInRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .StorageInRows.QTT_Out -= _StorageOutRowsInRows.QTT + End With + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged -= _StorageOutRowsInRows.QTT + End If + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.QTT = _StorageOutRowsInRows.QTT + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageOutRowsInRows.StorageInRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutStorno + _StorageMoveEvents.ExecutionDate = GetSQLTime(_onew.Session) + + _StorageOutRows.QTT = 0 + Next + Next + _StorageOutHeaderNew_Collection.Add(_StorageOutHeaderNew) + Next + End If + End Sub + Private Sub StornoDelivery(_onew As Xpo.XPObjectSpace, _DeliveryHeaderNew_Collection As ArrayList, _InvoiceRows_Collection As ArrayList) + ' Stornózandó fejlécek meghatározása + '_______________________________________________________ + Dim _DeliveryOutHeaderOrig_Collection As New ArrayList + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + If _DeliveryOutHeaderOrig_Collection.Count = 0 Then + _DeliveryOutHeaderOrig_Collection.Add(_onew.GetObject(_InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader)) + Else + Dim _IsNeed As Boolean = True + For Each _DeliveryNoteOutHeader As DeliveryNoteOutHeader In _DeliveryOutHeaderOrig_Collection + If _DeliveryNoteOutHeader.Oid = _InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader.Oid Then _IsNeed = False + Next + If _IsNeed Then _DeliveryOutHeaderOrig_Collection.Add(_onew.GetObject(_InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader)) + End If + Next + + If _DeliveryOutHeaderOrig_Collection.Count = 0 Then Return + + StornoDeliveryNoteOut(_onew, _DeliveryOutHeaderOrig_Collection, _DeliveryHeaderNew_Collection) + End Sub + Private Sub StornoStorage(_onew As Xpo.XPObjectSpace, _StorageOutHeaderNew_Collection As ArrayList, _InvoiceRows_Collection As ArrayList) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageOutHeaderOrig_Collection As New ArrayList + + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + If _StorageOutHeaderOrig_Collection.Count = 0 Then + _StorageOutHeaderOrig_Collection.Add(_onew.GetObject(_InvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader)) + Else + Dim _IsNeed As Boolean = True + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeaderOrig_Collection + If _StorageOutHeader.Oid = _InvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Oid Then _IsNeed = False + Next + If _IsNeed Then _StorageOutHeaderOrig_Collection.Add(_onew.GetObject(_InvoiceRows.DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader)) + End If + Next + + If _StorageOutHeaderOrig_Collection.Count = 0 Then Return + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeaderOrig_Collection + Dim _StorageOutHeaderNew As New StorageOutHeader(_onew.Session) + With _StorageOutHeaderNew + .ConnectInfo = _StorageOutHeader.DocumentNumber + .Storage = _onew.GetObject(_StorageOutHeader.Storage) + .StorageMoveType = _onew.GetObject(_StorageOutHeader.StorageMoveType) + .CustomersFrom = _onew.GetObject(_StorageOutHeader.CustomersFrom) + .Customers = _onew.GetObject(_StorageOutHeader.Customers) + .Active = False + .IsStorno = True + .IsEditable = False + End With + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsStorno = True + _StorageOutHeader.Active = False + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsNew As New StorageOutRows(_onew.Session) + With _StorageOutRowsNew + .RowIndex = _StorageOutRows.RowIndex + .StorageOutHeader = _StorageOutHeaderNew + .StorageComputed = _onew.GetObject(_StorageOutRows.StorageComputed) + .OrderInRows = _onew.GetObject(_StorageOutRows.OrderInRows) + .QTT = _StorageOutRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .Products = _onew.GetObject(_StorageOutRows.Products) + .OnStorno = True + End With + '----Vissza raktárba + mozgástábla + '____________________________________________________ + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _onew.GetObject(_StorageOutRows))) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_StorageOutRows.Products))) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows=?", _ + _onew.GetObject(_StorageOutRowsInRows.StorageInRows), _onew.GetObject(_StorageOutRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageComputed.QTTFree += _StorageOutRowsInRows.QTT + + Dim _StorageOutRowsInRowsNew As New StorageOutRowsInRows(_onew.Session) + With _StorageOutRowsInRowsNew + .StorageInRows = _StorageOutRowsInRows.StorageInRows + .StorageOutRows = _StorageOutRowsInRows.StorageOutRows + .QTT = _StorageOutRowsInRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .StorageInRows.QTT_Out -= _StorageOutRowsInRows.QTT + End With + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged -= _StorageOutRowsInRows.QTT + End If + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.QTT = _StorageOutRowsInRows.QTT + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageOutRowsInRows.StorageInRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutStorno + _StorageMoveEvents.ExecutionDate = GetSQLTime(_onew.Session) + + _StorageOutRows.QTT = 0 + Next + Next + _StorageOutHeaderNew_Collection.Add(_StorageOutHeaderNew) + Next + End If + End Sub + Private Sub aGenerateStorageOutFromOrderInBack_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageOutFromOrderInBack.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + Dim _StorageOutRowsInRows_CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(StorageOutRowsInRows)) + _StorageOutRowsInRows_CollectionSource.BeginUpdateCriteria() + _StorageOutRowsInRows_CollectionSource.Criteria("1") = CriteriaOperator.Parse("StorageOutRows.OrderInRows.OrderInHeader=? AND StorageOutRows.StorageOutHeader.IsEditable=True AND QTT_To_DeliveryOut=0 AND QTT>0", _ + _onew.GetObject(_OrderInHeader)) + _StorageOutRowsInRows_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("StorageOutRowsInRows_ListView", _StorageOutRowsInRows_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aGenerateStorageOutFromOrderInBack_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageOutFromOrderInBack.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + Dim _OrderInHeader As OrderInHeader = _onew.GetObjectByKey(Of OrderInHeader)(TryCast(View.SelectedObjects(0), OrderInHeader).Oid) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _StorageOutRowsInRows_Collection As ArrayList = e.PopupWindow.View.SelectedObjects + If _StorageOutRowsInRows_Collection.Count = 0 Then Throw New Exception("*Nem lett kijelölve egy sor sem!") + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + _StorageOutRowsInRows = _onew.GetObject(_StorageOutRowsInRows) + Dim _QTTMod As Double = _StorageOutRowsInRows.QTT + Dim _StorageOutRowsInRowsC As New XPCollection(Of StorageOutRowsInRows)(_onew.Session, CriteriaOperator.Parse("")) + + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged_Will -= _QTTMod + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _QTTMod + _StorageOutRowsInRows.QTT -= _QTTMod + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Storage, _ + _StorageOutRowsInRows.StorageInRows.Products)) + _StorageComputed.QTTReservedOut -= _QTTMod + _StorageComputed.QTTFree += _QTTMod + End If + Next + + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aOrderIn_RecalculateDEV_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOrderIn_RecalculateDEV.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _RecalcDEV As RecalcDEV = _onew.CreateObject(Of RecalcDEV)() + + _RecalcDEV.CurrencyName = _onew.GetObject(_OrderInHeader.OrderInParameters.CurrencyName) + _RecalcDEV.DateExecution = GetSQLTime(_onew.Session) + + + e.View = Application.CreateDetailView(_onew, "RecalcDEV_DetailView", True, _RecalcDEV) + End Sub + Private Sub aOrderIn_RecalculateDEV_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderIn_RecalculateDEV.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RecalcDEV As RecalcDEV = TryCast(e.PopupWindow.View.SelectedObjects(0), RecalcDEV) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + 'Dim _OrderInRows As OrderInRows + 'Dim _OrderInRowsOther As OrderInRowsOther + + RecalculateDEV(_RecalcDEV, _OrderInHeader) + _ocur.CommitChanges() + 'If _OrderInHeader IsNot Nothing Then + ' If _OrderInHeader.OrderInParameters.CurrencyName.ShortName <> "HUF" Then + ' For Each _OrderInRows In _OrderInHeader.OrderInRows + ' If _RecalcDEV.PriceMode = ePriceMode.eDEVToHUF Then + ' _OrderInRows.ListPriceHUF = Math.Round(_OrderInRows.ListPriceDEV * _RecalcDEV.CurrencyRate, 0, MidpointRounding.AwayFromZero) + ' _OrderInRows.DiscountPriceHUF = Math.Round(_OrderInRows.DiscountPriceDEV * _RecalcDEV.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + ' Else + ' If _RecalcDEV.CurrencyRate <> 0 Then + ' _OrderInRows.ListPriceDEV = Math.Round(_OrderInRows.ListPriceHUF / _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + ' _OrderInRows.DiscountPriceDEV = Math.Round(_OrderInRows.DiscountPriceHUF / _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + ' End If + ' End If + ' _OrderInRows.RecalculateRows() + ' Next + + ' For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + ' If _RecalcDEV.PriceMode = ePriceMode.eDEVToHUF Then + ' _OrderInRowsOther.ListPriceHUF = Math.Round(_OrderInRowsOther.ListPriceDEV * _RecalcDEV.CurrencyRate, 0, MidpointRounding.AwayFromZero) + ' _OrderInRowsOther.DiscountPriceHUF = Math.Round(_OrderInRowsOther.DiscountPriceDEV * _RecalcDEV.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + ' Else + ' If _RecalcDEV.CurrencyRate <> 0 Then + ' _OrderInRowsOther.ListPriceDEV = Math.Round(_OrderInRowsOther.ListPriceHUF / _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + ' _OrderInRowsOther.DiscountPriceDEV = Math.Round(_OrderInRowsOther.DiscountPriceHUF / _RecalcDEV.CurrencyRate, 2, MidpointRounding.AwayFromZero) + ' End If + ' End If + ' _OrderInRowsOther.RecalculateRows() + ' Next + + ' _ocur.CommitChanges() + ' End If + 'End If + + End Sub + Private Sub ORI_Invoice_Popup_DetailView_AcceptActionExecuting(sender As Object, e As CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + Private Sub aORI_RegenerateValues_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_RegenerateValues.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _OrderInRegenerator_PopUp_Collection As New ArrayList + + Dim _ProductsList As New ArrayList + + 'Összes Products a rendelésen + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _ProductsList.Count = 0 Then + _ProductsList.Add(_OrderInRows.Products) + Else + Dim _Need As Boolean = True + For Each _Products As Products In _ProductsList + If _Products.Oid = _OrderInRows.Products.Oid Then _Need = False + Exit For + Next + If _Need Then + _ProductsList.Add(_OrderInRows.Products) + End If + End If + Next + If _ProductsList.Count > 0 Then + For Each _Products As Products In _ProductsList + Dim _OrderInRows As OrderInRows = _onew.FindObject(Of OrderInRows)(CriteriaOperator.Parse("OrderInHeader=? AND Products=?", _onew.GetObject(_OrderInHeader), _onew.GetObject(_Products))) + 'Kitárolás + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_onew.Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows=?", _OrderInRows)) + Dim _StoragedOut_QTT As Double = 0 + Dim _StorageOutHeader_Collection As New ArrayList + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StoragedOut_QTT += _StorageOutRowsInRows.QTT + If _StorageOutHeader_Collection.Count = 0 Then + _StorageOutHeader_Collection.Add(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader) + Else + Dim _Need As Boolean = True + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + If _StorageOutHeader.Oid = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Oid Then _Need = False + Exit For + Next + If _Need Then + _StorageOutHeader_Collection.Add(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader) + End If + End If + Next + + If _StoragedOut_QTT <> _OrderInRows.QTT_Storaged Then + 'Kitárolás probléma... + Dim _OrderInRegenerator_PopUp As New OrderInRegenerator_PopUp(_onew.Session) + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + .RegeneratorErrorType = eRegeneratorErrorType.eStorageError + End With + _OrderInRegenerator_PopUp_Collection.Add(_OrderInRegenerator_PopUp) + End If + + 'Szállítólevél + Dim _StorageOutRowsInRows_Filter As String = "" + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StorageOutRowsInRows_Filter += "StorageOutRowsInRows.Oid='" + _StorageOutRowsInRows.Oid.ToString + "' OR " + Next + _StorageOutRowsInRows_Filter = _StorageOutRowsInRows_Filter.Remove(_StorageOutRowsInRows_Filter.Length - 4, 4) + If _StorageOutRowsInRows_Filter.Length < 8 Then _StorageOutRowsInRows_Filter = "1=2" 'Biztonsági False criteria :) + + Dim _DeliveryNoteOutRows_Collection As New XPCollection(Of DeliveryNoteOutRows)(_onew.Session, CriteriaOperator.Parse(_StorageOutRowsInRows_Filter)) + + Dim _DeliveredOut_QTT As Double = 0 + Dim _DeliveryNoteOutHeader_Collection As New ArrayList + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutRows_Collection + _DeliveredOut_QTT += _DeliveryNoteOutRows.QTT + If _DeliveryNoteOutHeader_Collection.Count = 0 Then + _DeliveryNoteOutHeader_Collection.Add(_DeliveryNoteOutRows.DeliveryNoteOutHeader) + Else + Dim _Need As Boolean = True + For Each _DeliveryNoteOutHeader As DeliveryNoteOutHeader In _DeliveryNoteOutHeader_Collection + If _DeliveryNoteOutHeader.Oid = _DeliveryNoteOutRows.DeliveryNoteOutHeader.Oid Then _Need = False + Exit For + Next + If _Need Then + _DeliveryNoteOutHeader_Collection.Add(_DeliveryNoteOutRows.DeliveryNoteOutHeader) + End If + End If + + Next + + If _DeliveredOut_QTT <> _OrderInRows.QTT_DeliveryNoted Then + 'Kiszállítás probléma + Dim _OrderInRegenerator_PopUp As New OrderInRegenerator_PopUp(_onew.Session) + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + .RegeneratorErrorType = eRegeneratorErrorType.eDeliveryError + End With + + _OrderInRegenerator_PopUp_Collection.Add(_OrderInRegenerator_PopUp) + End If + + 'Számla + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_onew.Session, CriteriaOperator.Parse("OrderInRows=?", _OrderInRows)) + Dim _Invoiced_QTT As Double = 0 + Dim _InvoiceHeader_Collection As New ArrayList + + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + _Invoiced_QTT += _InvoiceRows.QTT + If _InvoiceHeader_Collection.Count = 0 Then + _InvoiceHeader_Collection.Add(_InvoiceRows.InvoiceHeader) + Else + Dim _Need As Boolean = True + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Collection + If _InvoiceHeader.Oid = _InvoiceRows.InvoiceHeader.Oid Then _Need = False + Exit For + Next + If _Need Then + _InvoiceHeader_Collection.Add(_InvoiceRows.InvoiceHeader) + End If + End If + + Next + + If _Invoiced_QTT <> _OrderInRows.QTT_Invoiced Then + 'Számla probléma + Dim _OrderInRegenerator_PopUp As New OrderInRegenerator_PopUp(_onew.Session) + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + " megrendelés sorban mennyiségi probléma van." + .RegeneratorErrorType = eRegeneratorErrorType.eInvoiceError + End With + + _OrderInRegenerator_PopUp_Collection.Add(_OrderInRegenerator_PopUp) + End If + '----------------------------------- + If _StoragedOut_QTT < _DeliveredOut_QTT Then + 'Kitárolás-szállítólevél probléma + Dim _OrderInRegenerator_PopUp As New OrderInRegenerator_PopUp(_onew.Session) + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + " megrendelés sorban van olyan kiszállítás, melyhez nem tartozik kitárolás." + .RegeneratorErrorType = eRegeneratorErrorType.eDeliveryError + End With + _OrderInRegenerator_PopUp_Collection.Add(_OrderInRegenerator_PopUp) + + If _StoragedOut_QTT = 0 And _OrderInHeader.StorageOutRowsInRows.Count > 0 Then + + _OrderInRegenerator_PopUp = New OrderInRegenerator_PopUp(_onew.Session) + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + " megrendelés sorban stornózott kitároláshoz tartozik kiszállítás." + .RegeneratorErrorType = eRegeneratorErrorType.eDeliveryError + End With + _OrderInRegenerator_PopUp = New OrderInRegenerator_PopUp(_onew.Session) + + With _OrderInRegenerator_PopUp + .RowIndex = _OrderInRows.RowIndex + .ResultString = _OrderInRows.Products.ShortName + " megrendelés sorban stornózott kitároláshoz tartozik számla." + .RegeneratorErrorType = eRegeneratorErrorType.eInvoiceError + End With + _OrderInRegenerator_PopUp_Collection.Add(_OrderInRegenerator_PopUp) + End If + End If + + Next + + + Dim _OrderInRegenerator_PopUp_CollectionSource As New CollectionSource(_onew, GetType(OrderInRegenerator_PopUp)) + For Each _OrderInRegenerator_PopUp As OrderInRegenerator_PopUp In _OrderInRegenerator_PopUp_Collection + _OrderInRegenerator_PopUp_CollectionSource.Add(_OrderInRegenerator_PopUp) + Next + + e.View = Application.CreateListView("OrderInRegenerator_PopUp_ListView", _OrderInRegenerator_PopUp_CollectionSource, True) + End If + End Sub + Private Sub aORI_RegenerateValues_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_RegenerateValues.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + + + End Sub + + Private Function GetAlertFromOrderIn(_OrderInHeader As OrderInHeader, _onew As Xpo.XPObjectSpace) As String + Dim _AlertMessage As String = "" + Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process <> 0 Then + If _OrderInRows.ListPriceHUF <= 1 Then + _AlertMessage += Chr(13) & Chr(10) & " Nullánál kisebb eladási ár a " & Format(_OrderInRows.RowIndex, "#,##0") & ". sorban !" + End If + + Dim _StorageComputed As StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products.Oid=?", _OrderInRows.Products.Oid)) + If _StorageComputed IsNot Nothing Then + If _OrderInRows.ListPriceHUF < _StorageComputed.MimumumPriceOutHUF Then + _AlertMessage += Chr(13) & Chr(10) & " Minimum ár alatti eladás a " & Format(_OrderInRows.RowIndex, "#,##0") & ". sorban !" + End If + End If + End If + Next + + '//Termeltetési szerződés átnézése + Dim _FundingAmountHUF_Sum As Double = 0 + + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.APCSheetByProducts IsNot Nothing Then + + Dim _APCSheetByProducts_Collection As New XPCollection(Of APCSheetByProducts)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND GetDate(ProductExpirationDate)=?", _ + _onew.GetObject(_OrderInRows.APCSheetByProducts.APCSheetHeader), _OrderInRows.APCSheetByProducts.ProductExpirationDate.Date)) + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_onew.Session, CriteriaOperator.Parse("OrderInRows=?", _onew.GetObject(_OrderInRows))) + + For Each _APCSheetByProducts As APCSheetByProducts In _APCSheetByProducts_Collection + _FundingAmountHUF_Sum += Math.Round(_APCSheetByProducts.FundingAmountHUF, 0, MidpointRounding.AwayFromZero) + + If _APCSheetByProducts.Contracts IsNot Nothing Then + Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("Contracts=?", _APCSheetByProducts.Contracts)) + + + + End If + + Next + + End If + Next + + For Each _OrderInRowsOther As OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.APCSheetByProducts IsNot Nothing Then + Dim _APCSheetByProducts_Collection As New XPCollection(Of APCSheetByProducts)(_onew.Session, CriteriaOperator.Parse("APCSheetHeader=? AND GetDate(ProductExpirationDate)=?", _ + _onew.GetObject(_OrderInRowsOther.APCSheetByProducts.APCSheetHeader), _OrderInRowsOther.APCSheetByProducts.ProductExpirationDate.Date)) + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_onew.Session, CriteriaOperator.Parse("OrderInRowsOther=?", _onew.GetObject(_OrderInRowsOther))) + + + + + End If + Next + + Return _AlertMessage + End Function +#Region "Invoice_Popup" + Private Sub aORI_Invoice_Popup_Description_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_Invoice_Popup_Description.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_onew.Session) + Dim _ORI_Invoice_Description_PopUp_CollectionSource As New CollectionSource(_onew, GetType(ORI_Invoice_Description_PopUp)) + If _InvoiceHeader_Collection.Count > 0 Then + Dim _Description_Array As New ArrayList + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Collection + If Not String.IsNullOrEmpty(_InvoiceHeader.Description) Then + If _Description_Array.Count = 0 Then + _Description_Array.Add(_InvoiceHeader.Description) + Else + If Not _Description_Array.Contains(_InvoiceHeader.Description) Then _Description_Array.Add(_InvoiceHeader.Description) + End If + End If + Next + + For Each _Description As String In _Description_Array + Dim _ORI_Invoice_Description_PopUp As New ORI_Invoice_Description_PopUp(_onew.Session) + With _ORI_Invoice_Description_PopUp + .Description = _Description + End With + _ORI_Invoice_Description_PopUp_CollectionSource.Add(_ORI_Invoice_Description_PopUp) + Next + End If + + e.View = Application.CreateListView("ORI_Invoice_Description_PopUp_ListView", _ORI_Invoice_Description_PopUp_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_Invoice_Popup_Description_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Invoice_Popup_Description.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(View.SelectedObjects(0), ORI_Invoice_Popup) + If _ORI_Invoice_Popup Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + If String.IsNullOrEmpty(_ORI_Invoice_Popup.Description) Then + _ORI_Invoice_Popup.Description = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Description_PopUp).Description + Else + _ORI_Invoice_Popup.Description += vbNewLine + _ORI_Invoice_Popup.Description += TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Description_PopUp).Description + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_Invoice_Popup_DescriptionHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_Invoice_Popup_DescriptionHeader.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_onew.Session) + Dim _ORI_Invoice_Description_PopUp_CollectionSource As New CollectionSource(_onew, GetType(ORI_Invoice_Description_PopUp)) + If _InvoiceHeader_Collection.Count > 0 Then + Dim _Description_Array As New ArrayList + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Collection + If Not String.IsNullOrEmpty(_InvoiceHeader.DescriptionHeader) Then + If _Description_Array.Count = 0 Then + _Description_Array.Add(_InvoiceHeader.DescriptionHeader) + Else + If Not _Description_Array.Contains(_InvoiceHeader.DescriptionHeader) Then _Description_Array.Add(_InvoiceHeader.DescriptionHeader) + End If + End If + Next + + For Each _Description As String In _Description_Array + Dim _ORI_Invoice_Description_PopUp As New ORI_Invoice_Description_PopUp(_onew.Session) + With _ORI_Invoice_Description_PopUp + .Description = _Description + End With + _ORI_Invoice_Description_PopUp_CollectionSource.Add(_ORI_Invoice_Description_PopUp) + Next + End If + + e.View = Application.CreateListView("ORI_Invoice_Description_PopUp_ListView", _ORI_Invoice_Description_PopUp_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_Invoice_Popup_DescriptionHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Invoice_Popup_DescriptionHeader.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(View.SelectedObjects(0), ORI_Invoice_Popup) + If _ORI_Invoice_Popup Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + If String.IsNullOrEmpty(_ORI_Invoice_Popup.Description_Header) Then + _ORI_Invoice_Popup.Description_Header = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Description_PopUp).Description + Else + _ORI_Invoice_Popup.Description_Header += vbNewLine + _ORI_Invoice_Popup.Description_Header += TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Description_PopUp).Description + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + +#End Region +#Region "Sorok" + Private Sub aToTable_OrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderIn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = CType(View.SelectedObjects(0), OrderInHeader) + If _OrderInHeader IsNot Nothing Then + + '// Termeltetési szerződés ellenőrzés lejárati időre csoportosítva és a szabad mennyiséget szummolva nincs elég keret !!!! + 'If _OrderInHeader.row_APCSheetByProducts IsNot Nothing Then + ' If _OrderInHeader.row_APCSheetByProducts.FundingAmountAvailableHUF - (_OrderInHeader.row_Products.Products.ListPriceOutHUF * _OrderInHeader.row_QTT) < 0 Then + ' MsgBox("Nincs ennyi termeltetési keret !", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly) + ' Exit Sub + ' End If + 'End If + + '/// -------------------------------------------------------------------- + + Dim _OrderInRows As OrderInRows = New OrderInRows(_ocur.Session) + _OrderInRows.AddRows(_OrderInHeader) + _ocur.CommitChanges() + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + _OrderInHeader.row_Products = Nothing + _OrderInHeader.row_QTT = 0 + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End Sub + Private Sub aToTableD_OrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_OrderIn.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _OrderInRows_Del_Collection As New ArrayList + Dim _OrderInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInRows") + + For Each _OrderInRows As OrderInRows In _OrderInRows_ListEditor.ListView.SelectedObjects + If _OrderInRows.QTT_To = 0 And _OrderInRows.QTT_DeliveryNoted = 0 And _ + _OrderInRows.QTT_Invoiced = 0 And _OrderInRows.QTT_Storaged = 0 And _ + _OrderInRows.QTT_Storaged_Will = 0 Then + _OrderInRows.RemoveRows(_OrderInHeader, _ocur) + _OrderInRows_Del_Collection.Add(_OrderInRows) + End If + Next + + _ocur.Delete(_OrderInRows_Del_Collection) + _OrderInHeader.Save() + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + +#End Region +#Region "Egyéb sorok" + +#End Region +#Region "Továbbrendelt tételek" + Private Sub aORI_OrderToIncoming_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_OrderToIncoming.CustomizePopupWindowParams + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_OrderToIncoming_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_OrderToIncoming.Execute + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aORI_OrderToSetCustomerOrder_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_OrderToSetCustomerOrder.CustomizePopupWindowParams + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_OrderToSetCustomerOrder_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_OrderToSetCustomerOrder.Execute + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + +#End Region +#Region "Transactions" + '// Invoice customization + Private Sub InvoiceCustomization(sender As Object, e As CustomizePopupWindowParamsEventArgs) _ + Handles aORI_Create_DeliveryInvoice.CustomizePopupWindowParams, _ + aOrderInStorageOutDeliveryNoteOutInvoice.CustomizePopupWindowParams, _ + aORI_Create_Invoice.CustomizePopupWindowParams, _ + aGenerateInvoicefromOrderIn.CustomizePopupWindowParams, _ + aOrderInInvoiceAdvanceAsk.CustomizePopupWindowParams, _ + aOrderInInvoiceAdvance.CustomizePopupWindowParams, _ + aGenerateInvoiceFromOrderInFinal.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _ORI_Invoice_Popup As New ORI_Invoice_Popup(_onew.Session) + + '// APCSheet ---------------------------------------------------------------------------------- + Dim _IsAPCSheet As Boolean = False + Dim _DatePayment As Date + Dim _PaymentOption As PaymentOption + + If _OrderInHeader.OrderInRows.Count > 0 Then + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.APCSheetByProducts IsNot Nothing Then + _IsAPCSheet = True + _DatePayment = _OrderInRows.APCSheetByProducts.FundingDate + Exit For + End If + Next + End If + + If _OrderInHeader.OrderInRowsOther.Count > 0 And Not (_IsAPCSheet) Then + For Each _OrderInRowsOther As OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.APCSheetByProducts IsNot Nothing Then + _IsAPCSheet = True + _DatePayment = _OrderInRowsOther.APCSheetByProducts.FundingDate + Exit For + End If + Next + End If + + + If _IsAPCSheet Then + _PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=1 AND PayDay=0 and ShortName like 'Átutalás%'")) + If _PaymentOption Is Nothing Then + Dim _onew_paymentoption = Application.CreateObjectSpace + _PaymentOption = _onew_paymentoption.CreateObject(Of PaymentOption)() + With _PaymentOption + .PayMode = ePayMode.InTransfer + .PayDay = 0 + .ShortName = "Átutalás, 0 nap" + End With + _onew_paymentoption.CommitChanges() + End If + End If + '--------------------------------------------------------------------------------------------------------------------------- + + With _ORI_Invoice_Popup + .AlertMessage = GetAlertFromOrderIn(_OrderInHeader, _onew) + .InvoiceType = _onew.GetObject(_OrderInHeader.OrderInParameters.InvoiceType) + .StorageMoveType = _onew.GetObject(_OrderInHeader.OrderInParameters.StorageMoveType) + .IsAPCSheet = _IsAPCSheet + .CustomersFrom = _onew.GetObject(_OrderInHeader.CustomersFrom) + .Customers = _onew.GetObject(_OrderInHeader.Customers) + .DateExecution = GetSQLTime(_onew.Session) + .CurrencyName = _onew.GetObjectByKey(Of CurrencyName)(_OrderInHeader.OrderInParameters.CurrencyName_Invoice.Oid) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _OrderInHeader.DateExecution + .DatePayment = _DatePayment + .QualityOption = _onew.GetObject(_OrderInHeader.QualityOption) + If _IsAPCSheet Then + .PaymentOption = _onew.GetObject(_PaymentOption) + Else + .PaymentOption = _onew.GetObject(_OrderInHeader.PaymentOption) + End If + Select Case sender.id + Case "aORI_Create_DeliveryInvoice" + .InvoiceStrategy = eInvoiceStrategy.eDeliveryNoteOutAndInvoice + Case "aOrderInStorageOutDeliveryNoteOutInvoice" + .InvoiceStrategy = eInvoiceStrategy.eStorageOutAndDeliveryNoteOutAndInvoice + Case "aORI_Create_Invoice" + .InvoiceStrategy = eInvoiceStrategy.eInvoice + Case "aGenerateInvoicefromOrderIn" + .InvoiceStrategy = eInvoiceStrategy.eInvoice + Case "aOrderInInvoiceAdvanceAsk" + .InvoiceStrategy = eInvoiceStrategy.eInvoiceAdvanceAsk + .InvoiceType = _onew.GetObject(_OrderInHeader.OrderInParameters.InvoiceTypeAdvanced) + Case "aGenerateInvoiceFromOrderInFinal" + .InvoiceStrategy = eInvoiceStrategy.eInvoiceFinal + Case "aOrderInInvoiceAdvance" + .InvoiceStrategy = eInvoiceStrategy.eInvoiceAdvance + .InvoiceType = _onew.GetObject(_OrderInHeader.OrderInParameters.InvoiceTypeAdvanced) + Dim _PCIDetail_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("PCIDetail") + Dim _PCIDetail As PCIDetail = TryCast(_PCIDetail_ListEditor.ListView.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + Select Case _PCIDetail.MainType + Case "03-Cassa" + If _PCIDetail.DateExecution.Date = GetSQLTime(_onew.Session).Date Then + .DateCreated = _PCIDetail.DateExecution + .DatePayment = _PCIDetail.DateExecution + .DateExecution = _PCIDetail.DateExecution + .PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=0")) + Else + .DateExecution = _PCIDetail.DateExecution + .PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=1 AND PayDay=0 and ShortName like 'Átutalás%'")) + .DatePayment = _PCIDetail.DateExecution + End If + Case "02-Bank" + .DateExecution = _PCIDetail.DateExecution + .PaymentOption = _onew.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=1 AND PayDay=0 and ShortName like 'Átutalás%'")) + .DatePayment = _PCIDetail.DateExecution + If TryCast(_PCIDetail.GLRows.GLHeader, GLBank) IsNot Nothing Then + .BankInformation = _onew.FindObject(Of BankInformation)(CriteriaOperator.Parse("LiquidAssests.Oid = ?", TryCast(_PCIDetail.GLRows.GLHeader, GLBank).LiquidAssets_Main.Oid)) + End If + End Select + End If + End Select + + + + .ShipmentOption = _onew.GetObject(_OrderInHeader.ShipmentOption) + .QualityOption = _onew.GetObject(_OrderInHeader.QualityOption) + + If .Customers IsNot Nothing Then + If .Customers.ShipmentOption IsNot Nothing And _OrderInHeader.ShipmentOption Is Nothing Then .ShipmentOption = _onew.GetObjectByKey(Of ShipmentOption)(.Customers.ShipmentOption.Oid) + If .Customers.Address1 IsNot Nothing Then .TransportAddress = _onew.GetObjectByKey(Of Address)(.Customers.Address1.Oid) + End If + + + End With + + e.View = Application.CreateDetailView(_onew, "ORI_Invoice_Popup_DetailView", False, _ORI_Invoice_Popup) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + '// DeliveryNoteOut customization + Private Sub DeliveryNoteOutCustomization(sender As Object, e As CustomizePopupWindowParamsEventArgs) _ + Handles aOrderInStorageOutDeliveryNoteOut.CustomizePopupWindowParams, _ + aORI_Create_Delivery.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _DeliveryNoteView As DeliveryNoteView = _onew.CreateObject(Of DeliveryNoteView)() + With _DeliveryNoteView + Select Case sender.id + Case "aOrderInStorageOutDeliveryNoteOut" + .StorageNeed = True + Case "aORI_Create_Delivery" + End Select + .DeliveryNoteOutTypeNeed = True + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_OrderInHeader.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_OrderInHeader.Customers.Oid) + .DateExecution = GetSQLTime(_onew.Session) + .CurrencyName = _onew.GetObjectByKey(Of CurrencyName)(_OrderInHeader.OrderInParameters.CurrencyName.Oid) + .ShipmentOption = _onew.GetObject(Of ShipmentOption)(_OrderInHeader.ShipmentOption) + .QualityOption = _onew.GetObject(Of QualityOption)(_OrderInHeader.QualityOption) + .StorageMoveType = _onew.GetObject(_OrderInHeader.OrderInParameters.StorageMoveType) + If .Customers IsNot Nothing Then + If .Customers.Address1 IsNot Nothing Then .TransportAddress = _onew.GetObjectByKey(Of Address)(.Customers.Address1.Oid) + If .Customers.Address2 IsNot Nothing Then .TransportAddress = _onew.GetObjectByKey(Of Address)(.Customers.Address2.Oid) + If .Customers.ShipmentOption IsNot Nothing And _OrderInHeader.ShipmentOption Is Nothing Then .ShipmentOption = _onew.GetObjectByKey(Of ShipmentOption)(.Customers.ShipmentOption.Oid) + If .Customers.QualityOption IsNot Nothing And _OrderInHeader.QualityOption Is Nothing Then .QualityOption = _onew.GetObjectByKey(Of QualityOption)(.Customers.QualityOption.Oid) + End If + End With + + e.View = Application.CreateDetailView(_onew, "DeliveryNoteView_DetailView", False, _DeliveryNoteView) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + +#Region "DetailView" + Private Sub aOrderInInvoiceAdvanceAsk_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInInvoiceAdvanceAsk.Execute + '//Előlegbekérő készítése bejövő megrendelés alapján + aGenerateInvoicefromOrderIn_Execute(sender, e) + End Sub + + Private Sub aOrderInStorageOutDeliveryNoteOut_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInStorageOutDeliveryNoteOut.Execute + '//Kitárolás és kiszállítás egyben + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageComputed As StorageComputed + Try + '--==Ellenőrzések==-- + '____________________________________________________________________________________________________________________ + Dim _OrderInHeader As OrderInHeader = _onew.GetObjectByKey(Of OrderInHeader)(TryCast(View.SelectedObjects(0), OrderInHeader).Oid) + Dim _DeliveryNoteView As DeliveryNoteView = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteView)) + If _OrderInHeader.OrderInRows.Count <= 0 Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "NoRowsInOrder"), _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))) + End If + Dim _OrderInRows_Collection As New ArrayList + + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process > 0 Then + + If _OrderInRows.QTT_Process + _OrderInRows.QTT_Storaged + _OrderInRows.QTT_Storaged_Will > _OrderInRows.QTT Then + '// Ha meghaladja a kitárolás a rendelteket + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _OrderInRows.RowIndex.ToString + _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))) + End If + If _OrderInRows.QTT_Process + _OrderInRows.QTT_DeliveryNoted > _OrderInRows.QTT Then + '// Ha meghaladja a kiszállítás a rendelteket + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _OrderInRows.RowIndex.ToString + _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))) + End If + '// Szabad készlet ellenőrzése + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage.Oid=? AND Products.Oid=?", _ + _DeliveryNoteView.Storage.Oid, _OrderInRows.Products.Oid)) + If _StorageComputed Is Nothing Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "NoProductsInStorage"), _ + _OrderInRows.RowIndex, _OrderInRows.Products.ShortName, _DeliveryNoteView.Storage.ShortName) + vbNewLine + + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + If (_StorageComputed.QTTFree < _OrderInRows.QTT_Process) Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "NoProductsInStorage"), _ + _OrderInRows.RowIndex, _OrderInRows.Products.ShortName, _DeliveryNoteView.Storage.ShortName) + vbNewLine + + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + If _StorageComputed IsNot Nothing Then + '// Mimimum ár ellenőrzés + If TryCast(Application.Model.Options, IModelOptionsExtender).RequreMinimumPriceCheck Then + If _StorageComputed.MimumumPriceOutHUF < _OrderInRows.FinalPriceHUF Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "BadMinimumPrice"), _ + _OrderInRows.RowIndex, _OrderInRows.Products.ShortName, _StorageComputed.MimumumPriceOutHUF, _OrderInRows.FinalPriceHUF) + vbNewLine + + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End If + End If + End If + + _OrderInRows_Collection.Add(_onew.GetObjectByKey(Of OrderInRows)(_OrderInRows.Oid)) + End If + Next + + If _OrderInRows_Collection.Count = 0 Then Throw New Exception(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", _ + "NoSelectionforStorageOutandDeliveryNoteOut") + vbNewLine + _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + + '--==Zárolás==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + '--==Kitárolás==-- + '____________________________________________________________________________________________________________________ + Dim _StorageOutHeader As New StorageOutHeader(_onew.Session) + With _StorageOutHeader + .Active = True + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_OrderInHeader.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_OrderInHeader.Customers.Oid) + .StorageMoveType = _onew.GetObjectByKey(Of StorageMoveType)(_DeliveryNoteView.StorageMoveType.Oid) + .Storage = _onew.GetObjectByKey(Of Storage)(_DeliveryNoteView.Storage.Oid) + End With + + For Each _OrderInRows As OrderInRows In _OrderInRows_Collection + Dim _QTT_Mod As Double = 0 + Dim _QTT_Free As Double = 0 + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Will_Out As Double = 0 + + Dim _StorageOutRows As New StorageOutRows(_onew.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .Products = _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid) + .OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_OrderInRows.Oid) + End With + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + _QTT_Mod = _OrderInRows.QTT_Process + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _QTT_Free = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszúrása + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszúrása + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + _StorageOutRows.RowIndex = _StorageOutHeader.StorageOutRows.Count + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid)), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + Next + + '--Kitárolás véglegesítése-- + '____________________________________________________________________________________________________________________ + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + If _StorageOutRows.OrderInRows IsNot Nothing Then + Dim _QTT_WillOrug As Double = _StorageOutRows.QTT_Will + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_Storaged += _StorageOutRows.QTT_Will + _OrderInRows.QTT_Process = 0 + End If + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + + '--==Szállítólevél==-- + '____________________________________________________________________________________________________________________ + + Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_onew.Session) + With _DeliveryNoteOutHeader + .CurrencyName = _onew.GetObject(_DeliveryNoteView.CurrencyName) + .Customers = _onew.GetObject(_DeliveryNoteView.Customers) + .CustomersFrom = _onew.GetObject(_DeliveryNoteView.CustomersFrom) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _onew.GetObject(_DeliveryNoteView.DateExecution) + .Note = _onew.GetObject(_DeliveryNoteView.Note) + .QualityOption = _onew.GetObject(_DeliveryNoteView.QualityOption) + .ShipmentOption = _onew.GetObject(_DeliveryNoteView.ShipmentOption) + .TransportAddress = _onew.GetObject(_DeliveryNoteView.TransportAddress) + .DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteView.DeliveryNoteOutType) + .IsEditable = False + End With + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _DeliveryNoteOutRows As New DeliveryNoteOutRows(_onew.Session) + With _DeliveryNoteOutRows + .DeliveryNoteOutHeader = _DeliveryNoteOutHeader + .RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + .QTT = _StorageOutRowsInRows.QTT + .StorageOutRowsInRows = _StorageOutRowsInRows + End With + Dim _QTT_Will_Orig = _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.QTT_To_DeliveryOut += _QTT_Will_Orig + _StorageOutRowsInRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRowsInRows.StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_DeliveryNoted += _QTT_Will_Orig + Next + + Next + + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError")) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + + Private Sub aOrderInStorageOutDeliveryNoteOutInvoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInStorageOutDeliveryNoteOutInvoice.Execute + '// Kitárolás + kiszállítás + számla egyben + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageComputed As StorageComputed + Try + '--==Ellenőrzések==-- + '____________________________________________________________________________________________________________________ + Dim _OrderInHeader As OrderInHeader = _onew.GetObjectByKey(Of OrderInHeader)(TryCast(View.SelectedObjects(0), OrderInHeader).Oid) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup)) + If _OrderInHeader.OrderInRows.Count <= 0 Then Throw New Exception("*A megrendelésnek nincs egyetlen sora sem!") + Dim _OrderInRows_Collection As New ArrayList + + For Each _OrderInRows As OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process > 0 Then + If _OrderInRows.QTT_Process + _OrderInRows.QTT_Storaged + _OrderInRows.QTT_Storaged_Will > _OrderInRows.QTT Then + '// Ha meghaladja a kitárolás a rendelteket + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.QTT_Process + _OrderInRows.QTT_Storaged + _OrderInRows.QTT_Storaged_Will, _ + _OrderInRows.QTT), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + If _OrderInRows.QTT_Process + _OrderInRows.QTT_DeliveryNoted > _OrderInRows.QTT Then + '// Ha meghaladja a kiszállítás a rendelteket + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.QTT_Process + _OrderInRows.QTT_DeliveryNoted, _ + _OrderInRows.QTT), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + If _OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced > _OrderInRows.QTT Then + '// Ha meghaladja a számlázás a rendelteket + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced, _ + _OrderInRows.QTT), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + '// Szabad készlet ellenőrzése + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _ + _onew.GetObjectByKey(Of Storage)(_ORI_Invoice_Popup.Storage.Oid), _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid))) + If _StorageComputed Is Nothing Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "NoProductsInStorage"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.Products.ShortName, _ + _ORI_Invoice_Popup.Storage.ShortName), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + If (_StorageComputed.QTTFree < _OrderInRows.QTT_Process) Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "NoProductsInStorage"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.Products.ShortName, _ + _ORI_Invoice_Popup.Storage.ShortName), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + If _StorageComputed IsNot Nothing Then + '// Mimimum ár ellenőrzés + If TryCast(Application.Model.Options, IModelOptionsExtender).RequreMinimumPriceCheck Then + If _StorageComputed.MimumumPriceOutHUF < _OrderInRows.FinalPriceHUF Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "BadMinimumPrice"), _ + _OrderInRows.RowIndex, _ + _OrderInRows.Products.ShortName, _ + _StorageComputed.MimumumPriceOutHUF, _ + _OrderInRows.FinalPriceHUF), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + End If + + _OrderInRows_Collection.Add(_onew.GetObjectByKey(Of OrderInRows)(_OrderInRows.Oid)) + End If + Next + + If _OrderInRows_Collection.Count = 0 Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "NoSelectionforStorageOutandDeliveryNoteOut")), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + '--==Zárolás==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageOutByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + + ' RecalculateDEV(_ORI_Invoice_Popup, _OrderInHeader) + + '--==Kitárolás==-- + '____________________________________________________________________________________________________________________ + Dim _StorageOutHeader As New StorageOutHeader(_onew.Session) + With _StorageOutHeader + .Active = True + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_OrderInHeader.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_OrderInHeader.Customers.Oid) + .StorageMoveType = _onew.GetObjectByKey(Of StorageMoveType)(_ORI_Invoice_Popup.StorageMoveType.Oid) + .Storage = _onew.GetObjectByKey(Of Storage)(_ORI_Invoice_Popup.StorageMoveType.Storage.Oid) + End With + + For Each _OrderInRows As OrderInRows In _OrderInRows_Collection + Dim _QTT_Mod As Double = 0 + Dim _QTT_Free As Double = 0 + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Will_Out As Double = 0 + + Dim _StorageOutRows As New StorageOutRows(_onew.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .Products = _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid) + .OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_OrderInRows.Oid) + End With + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + _QTT_Mod = _OrderInRows.QTT_Process + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _QTT_Free = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _StorageInRows.Save() + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszúrása + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszúrása + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + _StorageOutRows.RowIndex = _StorageOutHeader.StorageOutRows.Count + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid)), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _onew.GetObjectByKey(Of Products)(_OrderInRows.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + Next + + '--Kitárolás véglegesítése-- + '____________________________________________________________________________________________________________________ + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + If _StorageOutRows.OrderInRows IsNot Nothing Then + Dim _QTT_WillOrug As Double = _StorageOutRows.QTT_Will + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_Storaged += _StorageOutRows.QTT_Will + _OrderInRows.QTT_Process = 0 + End If + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + + '--==Szállítólevél==-- + '____________________________________________________________________________________________________________________ + + Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_onew.Session) + With _DeliveryNoteOutHeader + .CurrencyName = _onew.GetObject(_ORI_Invoice_Popup.CurrencyName) + .Customers = _onew.GetObject(_ORI_Invoice_Popup.Customers) + .CustomersFrom = _onew.GetObject(_ORI_Invoice_Popup.CustomersFrom) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _onew.GetObject(_ORI_Invoice_Popup.DateExecution) + .Note = _onew.GetObject(_ORI_Invoice_Popup.Description) + .QualityOption = _onew.GetObject(_ORI_Invoice_Popup.QualityOption) + .ShipmentOption = _onew.GetObject(_ORI_Invoice_Popup.ShipmentOption) + .TransportAddress = _onew.GetObject(_ORI_Invoice_Popup.TransportAddress) + .DeliveryNoteOutType = _onew.GetObject(_ORI_Invoice_Popup.DeliveryNoteOutType) + End With + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _DeliveryNoteOutRows As New DeliveryNoteOutRows(_onew.Session) + With _DeliveryNoteOutRows + .DeliveryNoteOutHeader = _DeliveryNoteOutHeader + .RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + .QTT = _StorageOutRowsInRows.QTT + .StorageOutRowsInRows = _StorageOutRowsInRows + End With + Dim _QTT_Will_Orig = _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.QTT_To_DeliveryOut += _QTT_Will_Orig + _StorageOutRowsInRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRowsInRows.StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_DeliveryNoted += _QTT_Will_Orig + Next + + Next + '--==Szállítólevél véglegesítés==-- + '____________________________________________________________________________________________________________________ + 'For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + ' _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_DeliveryNoted += _DeliveryNoteOutRows.QTT + 'Next + _DeliveryNoteOutHeader.IsEditable = False + + '--==Számla==-- + '____________________________________________________________________________________________________________________ + Dim _InvoiceHeader As New InvoiceHeader(_onew.Session) + With _InvoiceHeader + .InvoiceType = _onew.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid) + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid) + .DateCreated = _ORI_Invoice_Popup.DateCreated + .DateExecution = _ORI_Invoice_Popup.DateExecution + .PaymentOption = _onew.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid) + .DatePaymentMode = .PaymentOption.DatePaymentMode 'Javítva lett + .ShipmentOption = _onew.GetObjectByKey(Of ShipmentOption)(_ORI_Invoice_Popup.ShipmentOption.Oid) + .CurrencyName = _onew.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid) + If .PaymentOption.PayMode = ePayMode.InCash Then + Else + .BankInformation = _onew.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid) + End If + + .Description = _ORI_Invoice_Popup.Description + + InvoiceHeaderSavedSettings(_InvoiceHeader) + + If .PaymentOption.PayMode = ePayMode.InContinuous Then + .DatePayment = _InvoiceHeader.DateExecution + Else + If _ORI_Invoice_Popup.IsAPCSheet Then + .DatePayment = _ORI_Invoice_Popup.DatePayment + Else + If .PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + .DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + .DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + End If + End If + If .InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _InvoiceHeader.DocumentNumberProforma = _InvoiceHeader.InvoiceType.NumberGeneratorProforma.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGeneratorProforma) + End If + + If .CurrencyName.ShortName <> "HUF" Then + .CurrencyRate = _ORI_Invoice_Popup.CurrencyRate + End If + End With + + '--==Végszámla / Proforma számal ==-- + '____________________________________________________________________________________________________________________ + If _ORI_Invoice_Popup.IsFinalInvoice Then + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = False + _InvoiceHeader.IsStorno = False + + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator) + _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo + + If _ORI_Invoice_Popup.PaymentOption.PayMode = ePayMode.InCash Then + If _ORI_Invoice_Popup.IsLiquidAssets Then + + End If + End If + Else + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsStorno = False + + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGeneratorProforma.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGeneratorProforma) + End If + + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + Dim _InvoiceRows As New InvoiceRows(_onew.Session) + With _InvoiceRows + .InvoiceHeader = _InvoiceHeader + .RowIndex = _InvoiceHeader.InvoiceRows.Count + .OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + .InvoiceRowtype = eInvoiceRowType.FromOrder + .DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV + .DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF + .ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV + .ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF + .QTT = _DeliveryNoteOutRows.QTT + .QualityOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption) + .ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName + '_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber(+vbNewLine + _ + ' _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName) + .Units = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units) + .VAT = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.VAT) + .Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description + .CustomsTariffs = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff) + .DeliveryNoteOutRows = _onew.GetObject(_DeliveryNoteOutRows) + End With + + Dim _QTT_Will_Orig As Double = _DeliveryNoteOutRows.QTT + _DeliveryNoteOutRows = _DeliveryNoteOutRows + _DeliveryNoteOutRows.QTT_Invoiced += _QTT_Will_Orig + _DeliveryNoteOutRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + _OrderInRows.QTT_Invoiced += _QTT_Will_Orig + Next + + If _OrderInHeader.OrderInRowsOther.Count > 0 Then + For Each _OrderInRowsOther As OrderInRowsOther In _OrderInHeader.OrderInRowsOther + Dim _InvoiceRows As New InvoiceRows(_onew.Session) + With _InvoiceRows + + .InvoiceHeader = _InvoiceHeader + .OrderInRowsOther = _OrderInRowsOther + .QTT = _OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced += _OrderInRowsOther.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + .DiscountPriceHUF = _OrderInRowsOther.DiscountPriceHUF + .ListPriceHUF = _OrderInRowsOther.ListPriceHUF + Else + .DiscountPriceDEV = _OrderInRowsOther.DiscountPriceDEV + .DiscountPriceHUF = _OrderInRowsOther.DiscountPriceDEV * _ORI_Invoice_Popup.CurrencyRate + .ListPriceDEV = _OrderInRowsOther.ListPriceDEV + .ListPriceHUF = _OrderInRowsOther.ListPriceDEV * _ORI_Invoice_Popup.CurrencyRate + End If + + .InvoiceRowtype = eInvoiceRowType.FromOrder + .VAT = _OrderInRowsOther.VAT + .Units = _OrderInRowsOther.Units + .UniqueObjects = _OrderInRowsOther.UniqueObjects + .CostHolder = _OrderInRowsOther.CostHolder + .CostPlace = _OrderInRowsOther.CostPlace + .QualityOption = _OrderInRowsOther.QualityOption + .Description = _OrderInRowsOther.Description + .ShortName = _OrderInRowsOther.ShortName + .CustomsTariffs = _OrderInRowsOther.CustomsTariffs + .RowIndex = _InvoiceHeader.InvoiceRows.Count + End With + Next + End If + + _onew.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + '--==Nyomtatványok==-- + '____________________________________________________________________________________________________________________ + + If _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData IsNot Nothing Then + Dim _DeliveryNoteOutReports As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData.Oid), True) + If _DeliveryNoteOutReports IsNot Nothing Then _ + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_DeliveryNoteOutReports, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True) + End If + Dim _InvoiceHeaderReports As ReportData + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceHeaderReports = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData.Oid), True) + Else + _InvoiceHeaderReports = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData_DEV.Oid), True) + End If + + If _InvoiceHeaderReports IsNot Nothing Then _ + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_InvoiceHeaderReports, CriteriaOperator.Parse("InvoiceHeader.Oid = ?", _InvoiceHeader.Oid), True) + + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + + Private Sub aGenerateInvoicefromOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoicefromOrderIn.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + Dim _OrderInHeader As OrderInHeader = _ocur.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + Dim _CurrencyRate As Double = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + Dim _NG As NumberGenerator + + On Error GoTo CheckError + + ' --- Ellenőrzés, hogy kell-e engedély ! -------------------------------------------------------------------------------------------------- + If _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption).PayMode <> ePayMode.InCash Then + If _OrderInHeader.SubjectToApproval(_OrderInHeader, _ocur) And _OrderInHeader.PermissionAllowed = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "PermissionNotAllowedToCreateInvoice")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + + + ' ---- FEJLÉC ADATOK MEGADÁSA ------------------------------------------------------------------------------------------------------------- + + + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _OrderInHeader.CustomersFrom + _InvoiceHeader.Customers = _OrderInHeader.Customers + _InvoiceHeader.InvoiceType = _OrderInHeader.OrderInParameters.InvoiceType + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + _InvoiceHeader.DateCreated = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateCreated) + _InvoiceHeader.DateExecution = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateExecution) + _InvoiceHeader.Description = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).Description) + _InvoiceHeader.DescriptionHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).Description_Header) + _InvoiceHeader.BankInformation = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).BankInformation) + + + _InvoiceHeader.CurrencyName = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyName) + _InvoiceHeader.CurrencyRate = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + + _InvoiceHeader.PaymentOption = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption) + _InvoiceHeader.DatePaymentMode = _InvoiceHeader.PaymentOption.DatePaymentMode 'Javítva lett + If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + + If _OrderInHeader.OrderInParameters.IsAPCSheet Then _InvoiceHeader.DatePayment = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DatePayment) + + '-- Próbaszámla miatt el kell menteni a tényleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _OrderInHeader.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _OrderInHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _OrderInHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _OrderInHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _OrderInHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _OrderInHeader.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _OrderInHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _OrderInHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _OrderInHeader.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _OrderInHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _OrderInHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _OrderInHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _OrderInHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _OrderInHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _OrderInHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + + _InvoiceHeader.Save() + ' ---- FEJLÉC ADATOK MEGADÁSÁNAK VÉGE ---------------------------------------------------------------------------------------------------- + + '------ A fejléchez tartozó sorok (termék és egyéb típusok) rendezése sorindex alapján --------------- + _OrderInHeader.OrderInRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _OrderInHeader.OrderInRowsOther.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + '----------------------------------------------------------------------------------------------------- + + ' A fejléchez tartozó sorok átadása ----------------------------------------------------------------- + Dim _InvoiceRows As InvoiceRows + Dim _OrderInRows As OrderInRows + Dim _OrderInRowsOther As OrderInRowsOther + Dim i As Int16 = 0 + + '----------------------------- Átadjuk az összes termék típusú sort -------------------------------------- + For Each _OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process > 0 Then + If _OrderInRows.QTT - (_OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced) >= 0 Then + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRows = _OrderInRows + _InvoiceRows.QTT = _OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced += _OrderInRows.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = _OrderInRows.DiscountPriceHUF + _InvoiceRows.ListPriceHUF = _OrderInRows.ListPriceHUF + Else + _InvoiceRows.DiscountPriceDEV = _OrderInRows.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _OrderInRows.DiscountPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + _InvoiceRows.ListPriceDEV = _OrderInRows.ListPriceDEV + _InvoiceRows.ListPriceHUF = _OrderInRows.ListPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _OrderInRows.VAT + _InvoiceRows.Units = _OrderInRows.Products.Units + _InvoiceRows.ShortName = _OrderInRows.Products.ShortName + _InvoiceRows.Description = _OrderInRows.Products.Description + _InvoiceRows.CustomsTariffs = _OrderInRows.Products.CustomsTariff + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + _InvoiceRows.RowIndex = i + i += 1 + End If + End If + Next + '----------------------------- Átadjuk az összes egyéb típusú sort -------------------------------------- + For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.QTT_Process <> 0 Then + If _OrderInRowsOther.QTT - (_OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced) >= 0 Then + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRowsOther = _OrderInRowsOther + _InvoiceRows.QTT = _OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced += _OrderInRowsOther.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = _OrderInRowsOther.DiscountPriceHUF + _InvoiceRows.ListPriceHUF = _OrderInRowsOther.ListPriceHUF + Else + _InvoiceRows.DiscountPriceDEV = _OrderInRowsOther.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _OrderInRowsOther.DiscountPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + _InvoiceRows.ListPriceDEV = _OrderInRowsOther.ListPriceDEV + _InvoiceRows.ListPriceHUF = _OrderInRowsOther.ListPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _OrderInRowsOther.VAT + _InvoiceRows.Units = _OrderInRowsOther.Units + _InvoiceRows.UniqueObjects = _OrderInRowsOther.UniqueObjects + _InvoiceRows.CostHolder = _OrderInRowsOther.CostHolder + _InvoiceRows.CostPlace = _OrderInRowsOther.CostPlace + _InvoiceRows.QualityOption = _OrderInRowsOther.QualityOption + _InvoiceRows.Description = _OrderInRowsOther.Description + _InvoiceRows.ShortName = _OrderInRowsOther.ShortName + _InvoiceRows.CustomsTariffs = _OrderInRowsOther.CustomsTariffs + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_OtherRows_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_OtherRows_Default + End If + End If + _InvoiceRows.RowIndex = i + + i += 1 + End If + End If + Next + + If _OrderInHeader.OrderInRows.Count = 0 And _OrderInHeader.OrderInRowsOther.Count = 0 Then + ' --------------------- TESZT MIATT!!! ------------------------------------------------------------------------------------ + Throw New UserFriendlyException("Nincs egy sor sem a kiválasztott bejövő megrendelés fejlécén, így nem készül el a számla!") + End If + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + If Err.Number = 5 Then Throw New UserFriendlyException(Err.Description) + + End Sub +#End Region +#Region "Kitárolások fül" + Private Sub aORI_Storno_StorageOut_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aORI_Storno_StorageOut.Execute + '// Kitárolás stornó + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + ' Ellenőrzések + '__________________________________________________________________________ + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _StorageOutRowsInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StorageOutRowsInRows") + If _StorageOutRowsInRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _StorageOutRowsInRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*nincs kijelölve egyetlen kitárolási sor sem!") + + Dim _StorageOutRowsInRowsError As New ArrayList + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_ListEditor.ListView.SelectedObjects + If _StorageOutRowsInRows.QTT_To_DeliveryOut > 0 Then _StorageOutRowsInRowsError.Add(_StorageOutRowsInRows) + If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsStorno = True Then _StorageOutRowsInRowsError.Add(_StorageOutRowsInRows) + Next + + If _StorageOutRowsInRowsError.Count > 0 Then + Dim _ErrorMessage As String = "Probléma merült fel a következő kitárolásokkal:" + vbNewLine + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRowsError + _ErrorMessage += _StorageOutRowsInRows.StorageOutRows.RowIndex.ToString + " " + _StorageOutRowsInRows.StorageOutRows.Products.ShortName _ + + " " + _StorageOutRowsInRows.StorageOutRows.QTT.ToString + vbNewLine + Next + _ErrorMessage += "Kérem, ellenőrizze!" + + Throw New Exception(_ErrorMessage) + End If + + ' Kitárolás fejléc kollekció + '__________________________________________________________________________ + Dim _StorageOutHeader_Collection As New ArrayList + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_ListEditor.ListView.SelectedObjects + If _StorageOutHeader_Collection.Count = 0 Then + _StorageOutHeader_Collection.Add(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader) + Else + Dim _IsNeed As Boolean = True + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + If _StorageOutHeader.Oid = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Oid Then _IsNeed = False + Next + + If _IsNeed Then _StorageOutHeader_Collection.Add(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader) + End If + Next + + ' Kitárolás(ok) stornózása + '__________________________________________________________________________ + If _StorageOutHeader_Collection.Count > 0 Then + ' StorageComputed zárolás + '__________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _StorageOutHeaderNew As New StorageOutHeader(_onew.Session) + With _StorageOutHeaderNew + .ConnectInfo = _StorageOutHeader.DocumentNumber + .Storage = _onew.GetObject(_StorageOutHeader.Storage) + .StorageMoveType = _onew.GetObject(_StorageOutHeader.StorageMoveType) + .CustomersFrom = _onew.GetObject(_StorageOutHeader.CustomersFrom) + .Customers = _onew.GetObject(_StorageOutHeader.Customers) + .Active = False + .IsStorno = True + .IsEditable = False + End With + + _StorageOutHeader = _onew.GetObject(_StorageOutHeader) + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsStorno = True + _StorageOutHeader.Active = False + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsNew As New StorageOutRows(_onew.Session) + With _StorageOutRowsNew + .RowIndex = _StorageOutRows.RowIndex + .StorageOutHeader = _StorageOutHeaderNew + .StorageComputed = _onew.GetObject(_StorageOutRows.StorageComputed) + .OrderInRows = _onew.GetObject(_StorageOutRows.OrderInRows) + .QTT = _StorageOutRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .Products = _onew.GetObject(_StorageOutRows.Products) + .OnStorno = True + End With + '----Vissza raktárba + mozgástábla + '____________________________________________________ + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _onew.GetObject(_StorageOutRows))) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_StorageOutRows.Products))) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows=?", _ + _onew.GetObject(_StorageOutRowsInRows.StorageInRows), _onew.GetObject(_StorageOutRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageComputed.QTTFree += _StorageOutRowsInRows.QTT + + Dim _StorageOutRowsInRowsNew As New StorageOutRowsInRows(_onew.Session) + With _StorageOutRowsInRowsNew + .StorageInRows = _StorageOutRowsInRows.StorageInRows + .StorageOutRows = _StorageOutRowsNew + .QTT = _StorageOutRowsInRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .StorageInRows.QTT_Out -= _StorageOutRowsInRows.QTT + End With + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged -= _StorageOutRowsInRows.QTT + End If + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.QTT = _StorageOutRowsInRows.QTT + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageOutRowsInRows.StorageInRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutStorno + _StorageMoveEvents.ExecutionDate = GetSQLTime(_onew.Session) + + _StorageOutRows.QTT = 0 + Next + Next + Next + End If + End If + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + + Private Sub aORI_Create_Delivery_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Create_Delivery.Execute + '// Kitárolásról szállítólevél készítése + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _DeliveryNoteView As DeliveryNoteView = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteView) + If _DeliveryNoteView Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _StorageOutRowsInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StorageOutRowsInRows") + If _StorageOutRowsInRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + + Dim _StorageOutRowsInRows_Collection As New ArrayList + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _OrderInHeader.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsStorno = False Then + If _StorageOutRowsInRows.QTT_Will > 0 Then + If _StorageOutRowsInRows_Collection.Count = 0 Then + _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows) + Else + Dim _IsNeed As Boolean = True + For Each _StorageOutRowsInRowsInCollection As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.Oid = _StorageOutRowsInRowsInCollection.Oid Then _IsNeed = False + Next + If _IsNeed Then _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows) + End If + End If + End If + Next + + If _StorageOutRowsInRows_Collection.Count = 0 Then Throw New Exception("*Nincs egyetlen olyan kitárolás sem kijelölve, amelyről kiszállítást lehetne készíteni" + vbNewLine + _ + "Ez abban az esetben fordulhat elő, ha a kiszállítási szándék érétke nulla." + vbNewLine + "Kérem, ellenőrizze!") + + '--==Zárolás==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_onew.Session) + With _DeliveryNoteOutHeader + .CurrencyName = _onew.GetObject(_DeliveryNoteView.CurrencyName) + .Customers = _onew.GetObject(_DeliveryNoteView.Customers) + .CustomersFrom = _onew.GetObject(_DeliveryNoteView.CustomersFrom) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _onew.GetObject(_DeliveryNoteView.DateExecution) + .Note = _onew.GetObject(_DeliveryNoteView.Note) + .QualityOption = _onew.GetObject(_DeliveryNoteView.QualityOption) + .ShipmentOption = _onew.GetObject(_DeliveryNoteView.ShipmentOption) + .TransportAddress = _onew.GetObject(_DeliveryNoteView.TransportAddress) + .DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteView.DeliveryNoteOutType) + .IsEditable = False + End With + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _OrderInHeader.StorageOutRowsInRows + If _StorageOutRowsInRows.QTT_Will > 0 Then + Dim _DeliveryNoteOutRows As New DeliveryNoteOutRows(_onew.Session) + With _DeliveryNoteOutRows + .DeliveryNoteOutHeader = _DeliveryNoteOutHeader + .RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + .QTT = _StorageOutRowsInRows.QTT_Will + .StorageOutRowsInRows = _onew.GetObject(_StorageOutRowsInRows) + End With + Dim _QTT_Will_Orig As Double = _StorageOutRowsInRows.QTT_Will + _StorageOutRowsInRows = _onew.GetObjectByKey(Of StorageOutRowsInRows)(_StorageOutRowsInRows.Oid) + _StorageOutRowsInRows.QTT_To_DeliveryOut += _QTT_Will_Orig + _StorageOutRowsInRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRowsInRows.StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_DeliveryNoted += _QTT_Will_Orig + End If + Next + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + + Private Sub aORI_Create_DeliveryInvoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Create_DeliveryInvoice.Execute + '// Kitárolt tételekről szállítólevél és számla + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + '--==Ellenőrzések==-- + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _StorageOutRowsInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StorageOutRowsInRows") + If _StorageOutRowsInRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _StorageOutRowsInRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*nincs kijelölve egyetlen kitárolási sor sem!") + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup)) + + + ' --- Ellenőrzés, hogy kell-e engedély ! -------------------------------------------------------------------------------------------------- + If _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption).PayMode <> ePayMode.InCash Then + If _OrderInHeader.SubjectToApproval(_OrderInHeader, _onew) And _OrderInHeader.PermissionAllowed = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "PermissionNotAllowedToCreateInvoice")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + + Dim _StorageOutRowsInRows_Collection As New ArrayList + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _OrderInHeader.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsStorno = False Then + If _StorageOutRowsInRows.QTT_Will > 0 Then + If _StorageOutRowsInRows_Collection.Count = 0 Then + _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows) + Else + Dim _IsNeed As Boolean = True + For Each _StorageOutRowsInRowsInCollection As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.Oid = _StorageOutRowsInRowsInCollection.Oid Then _IsNeed = False + Next + If _IsNeed Then _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows) + End If + End If + End If + Next + + If _StorageOutRowsInRows_Collection.Count = 0 Then Throw New Exception("*Nincs egyetlen olyan kitárolás sem kijelölve, amelyről kiszállítást lehetne készíteni" + vbNewLine + _ + "Ez abban az esetben fordulhat elő, ha a kiszállítási szándék érétke nulla." + vbNewLine + "Kérem, ellenőrizze!") + + + '--==Szállítólevél==-- + '____________________________________________________________________________________________________________________ + Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_onew.Session) + With _DeliveryNoteOutHeader + .CurrencyName = _onew.GetObject(_ORI_Invoice_Popup.CurrencyName) + .Customers = _onew.GetObject(_ORI_Invoice_Popup.Customers) + .CustomersFrom = _onew.GetObject(_ORI_Invoice_Popup.CustomersFrom) + .DateCreated = GetSQLTime(_onew.Session) + .DateExecution = _onew.GetObject(_ORI_Invoice_Popup.DateExecution) + .Note = _onew.GetObject(_ORI_Invoice_Popup.Description) + .QualityOption = _onew.GetObject(_ORI_Invoice_Popup.QualityOption) + .ShipmentOption = _onew.GetObject(_ORI_Invoice_Popup.ShipmentOption) + .TransportAddress = _onew.GetObject(_ORI_Invoice_Popup.TransportAddress) + .DeliveryNoteOutType = _onew.GetObject(_ORI_Invoice_Popup.DeliveryNoteOutType) + End With + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _OrderInHeader.StorageOutRowsInRows + If _StorageOutRowsInRows.QTT_Will > 0 Then + Dim _DeliveryNoteOutRows As New DeliveryNoteOutRows(_onew.Session) + With _DeliveryNoteOutRows + .DeliveryNoteOutHeader = _DeliveryNoteOutHeader + .RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count + .QTT = _StorageOutRowsInRows.QTT_Will + .StorageOutRowsInRows = _onew.GetObject(_StorageOutRowsInRows) + End With + Dim _QTT_Will_Orig = _StorageOutRowsInRows.QTT_Will + _StorageOutRowsInRows.QTT_To_DeliveryOut += _QTT_Will_Orig + _StorageOutRowsInRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRowsInRows.StorageOutRows.OrderInRows.Oid) + _OrderInRows.QTT_DeliveryNoted += _QTT_Will_Orig + End If + Next + + '--==Szállítólevél véglegesítés==-- + '____________________________________________________________________________________________________________________ + _DeliveryNoteOutHeader.IsEditable = False + + '--==Számla==-- + '____________________________________________________________________________________________________________________ + Dim _InvoiceHeader As New InvoiceHeader(_onew.Session) + With _InvoiceHeader + .InvoiceType = _onew.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid) + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid) + .DateCreated = _ORI_Invoice_Popup.DateCreated + .DateExecution = _ORI_Invoice_Popup.DateExecution + .DatePayment = _ORI_Invoice_Popup.DatePayment + .PaymentOption = _onew.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid) + .DatePaymentMode = .PaymentOption.DatePaymentMode + .ShipmentOption = _onew.GetObjectByKey(Of ShipmentOption)(_ORI_Invoice_Popup.ShipmentOption.Oid) + .CurrencyName = _onew.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid) + If .PaymentOption.PayMode = ePayMode.InCash Then + Else + .BankInformation = _onew.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid) + End If + .Description = _ORI_Invoice_Popup.Description + + InvoiceHeaderSavedSettings(_InvoiceHeader) + + If .PaymentOption.PayMode = ePayMode.InContinuous Then + .DatePayment = _InvoiceHeader.DateExecution + Else + If _ORI_Invoice_Popup.IsAPCSheet Then + Else + If .PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + .DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + .DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + + End If + End If + If .InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _InvoiceHeader.DocumentNumberProforma = _InvoiceHeader.InvoiceType.NumberGeneratorProforma.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGeneratorProforma) + End If + End With + + '--==Végszámla / Proforma számal ==-- + '____________________________________________________________________________________________________________________ + If _ORI_Invoice_Popup.IsFinalInvoice Then + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = False + _InvoiceHeader.IsStorno = False + + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator) + _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo + + If _ORI_Invoice_Popup.PaymentOption.PayMode = ePayMode.InCash Then + If _ORI_Invoice_Popup.IsLiquidAssets Then + + End If + End If + Else + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsStorno = False + + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGeneratorProforma.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGeneratorProforma) + End If + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows + Dim _InvoiceRows As New InvoiceRows(_onew.Session) + With _InvoiceRows + .InvoiceHeader = _InvoiceHeader + .RowIndex = _InvoiceHeader.InvoiceRows.Count + .OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + .InvoiceRowtype = eInvoiceRowType.FromOrder + .DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV + .DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF + .ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV + .ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF + .QTT = _DeliveryNoteOutRows.QTT + .QualityOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption) + .ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber + vbNewLine + _ + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName + .Units = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units) + .VAT = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.VAT) + .Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description + .CustomsTariffs = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff) + .DeliveryNoteOutRows = _onew.GetObject(_DeliveryNoteOutRows) + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + .Controlling = _OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + End With + + Dim _QTT_Will_Orig As Double = _DeliveryNoteOutRows.QTT + _DeliveryNoteOutRows = _DeliveryNoteOutRows + _DeliveryNoteOutRows.QTT_Invoiced += _QTT_Will_Orig + _DeliveryNoteOutRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + _OrderInRows.QTT_Invoiced += _QTT_Will_Orig + Next + + If _OrderInHeader.OrderInRowsOther.Count > 0 Then + For Each _OrderInRowsOther As OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.QTT_Process > 0 Then + Dim _InvoiceRows As New InvoiceRows(_onew.Session) + With _InvoiceRows + + .InvoiceHeader = _InvoiceHeader + .OrderInRowsOther = _OrderInRowsOther + .QTT = _OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced += _OrderInRowsOther.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + .DiscountPriceHUF = _OrderInRowsOther.DiscountPriceHUF + .ListPriceHUF = _OrderInRowsOther.ListPriceHUF + Else + .DiscountPriceDEV = _OrderInRowsOther.DiscountPriceDEV + .DiscountPriceHUF = _OrderInRowsOther.DiscountPriceDEV * _ORI_Invoice_Popup.CurrencyRate + .ListPriceDEV = _OrderInRowsOther.ListPriceDEV + .ListPriceHUF = _OrderInRowsOther.ListPriceDEV * _ORI_Invoice_Popup.CurrencyRate + End If + + .InvoiceRowtype = eInvoiceRowType.FromOrder + .VAT = _OrderInRowsOther.VAT + .Units = _OrderInRowsOther.Units + .UniqueObjects = _OrderInRowsOther.UniqueObjects + .CostHolder = _OrderInRowsOther.CostHolder + .CostPlace = _OrderInRowsOther.CostPlace + .QualityOption = _OrderInRowsOther.QualityOption + .Description = _OrderInRowsOther.Description + .ShortName = _OrderInRowsOther.ShortName + .CustomsTariffs = _OrderInRowsOther.CustomsTariffs + .RowIndex = _InvoiceHeader.InvoiceRows.Count + End With + End If + Next + End If + + _onew.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +#End Region +#Region "Kiszállítások fül" + Private Sub aORI_Storno_DeliveryNoteOut_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_Storno_DeliveryNoteOut.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ORI_Storno_DeliveryNoteOut_PopUp As New ORI_Storno_DeliveryNoteOut_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ORI_Storno_DeliveryNoteOut_PopUp_DetailView", False, _ORI_Storno_DeliveryNoteOut_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_Storno_DeliveryNoteOut_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Storno_DeliveryNoteOut.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _ORI_Storno_DeliveryNoteOut_PopUp As ORI_Storno_DeliveryNoteOut_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Storno_DeliveryNoteOut_PopUp) + If _ORI_Storno_DeliveryNoteOut_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _DeliveryNoteOutRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("DeliveryNoteOutRows") + If _DeliveryNoteOutRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kijelölve egyetlen kitárolási sor sem!") + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects + If _DeliveryNoteOutRows.QTT_Invoiced > 0 Then Throw New Exception("*A kiválaszott kiszállítási sorok közt szerepel olyan, melyről készült számal!" _ + + vbNewLine + "Számlázott kiszállítás stornózása nem lehetséges!" + vbNewLine + vbNewLine + "Kérem, ellenőrizze!") + If _DeliveryNoteOutRows.DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*A kiválaszott kiszállítási sor már stornózva lett!" + vbNewLine + "Kérem, ellenőrizze!") + Next + + Dim _DeliveryNoteOutHeader_Collection As New ArrayList + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects + If _DeliveryNoteOutHeader_Collection.Count = 0 Then + _DeliveryNoteOutHeader_Collection.Add(_onew.GetObjectByKey(Of DeliveryNoteOutHeader)(_DeliveryNoteOutRows.DeliveryNoteOutHeader.Oid)) + Else + Dim _IsNeed As Boolean = True + For Each _DeliveryNoteOutHeader As DeliveryNoteOutHeader In _DeliveryNoteOutHeader_Collection + If _DeliveryNoteOutRows.DeliveryNoteOutHeader.Oid = _DeliveryNoteOutHeader.Oid Then _IsNeed = False + Next + + If _IsNeed Then _DeliveryNoteOutHeader_Collection.Add(_onew.GetObjectByKey(Of DeliveryNoteOutHeader)(_DeliveryNoteOutRows.DeliveryNoteOutHeader.Oid)) + End If + Next + + Dim _StorageOutHeader_Collection As New ArrayList + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects + If _StorageOutHeader_Collection.Count = 0 Then + _StorageOutHeader_Collection.Add(_onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader)) + Else + Dim _IsNeed As Boolean = True + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + If _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Oid = _StorageOutHeader.Oid Then _IsNeed = False + Next + If _IsNeed Then _StorageOutHeader_Collection.Add(_onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Oid)) + End If + Next + + + If _DeliveryNoteOutHeader_Collection.Count = 0 Then Throw New Exception("*A kiválaszott kiszállítási sorok közt nem szerepel olyan, melyet stornózni lehetne!" _ + + vbNewLine + vbNewLine + "Kérem, ellenőrizze!") + + Dim _DeliveryNoteOutHeaderNew_Collection As New ArrayList + Dim _StorageOutHeaderNew_Collection As New ArrayList + + Select Case _ORI_Storno_DeliveryNoteOut_PopUp.ORIStornoDeliveryNoteOutType + Case eORIStornoDeliveryNoteOutType.eStornoDeliveryNoteOut + StornoDeliveryNoteOut(_onew, _DeliveryNoteOutHeader_Collection, _DeliveryNoteOutHeaderNew_Collection) + If _DeliveryNoteOutHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Case eORIStornoDeliveryNoteOutType.eStornoDeliveryNoteOutStorageOut + StornoDeliveryNoteOutStorageOut(_onew, _DeliveryNoteOutHeader_Collection, _StorageOutHeader_Collection, _DeliveryNoteOutHeaderNew_Collection, _StorageOutHeaderNew_Collection) + If _DeliveryNoteOutHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _StorageOutHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + End Select + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aORI_Create_Invoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Create_Invoice.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup) + + ' --- Ellenőrzés, hogy kell-e engedély ! -------------------------------------------------------------------------------------------------- + If _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption).PayMode <> ePayMode.InCash Then + If _OrderInHeader.SubjectToApproval(_OrderInHeader, _onew) And _OrderInHeader.PermissionAllowed = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "PermissionNotAllowedToCreateInvoice")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + + + Dim _DeliveryNoteOutRows_Error As New ArrayList + + _OrderInHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _OrderInHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.QTT_Will > 0 Then + If (_DeliveryNoteOutRows.QTT < (_DeliveryNoteOutRows.QTT_Will + _DeliveryNoteOutRows.QTT_Invoiced)) Then _ + _DeliveryNoteOutRows_Error.Add(_DeliveryNoteOutRows) + End If + Next + + If _DeliveryNoteOutRows_Error.Count > 0 Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "TooMutchQuantityInOrderIn"), _ + _DeliveryNoteOutRows_Error(0).RowIndex, _ + _DeliveryNoteOutRows_Error(0).QTT_Will + _DeliveryNoteOutRows_Error(0).QTT_Invoiced, _ + _DeliveryNoteOutRows_Error(0).QTT), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + Dim _DeliveryNoteOutRows_Collection As New ArrayList + + _OrderInHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _OrderInHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.QTT_Will > 0 Then + If _DeliveryNoteOutRows_Collection.Count = 0 Then + _DeliveryNoteOutRows_Collection.Add(_DeliveryNoteOutRows) + Else + Dim _IsNeed As Boolean = True + For Each _DeliveryNoteOutRowsInCollection As DeliveryNoteOutRows In _DeliveryNoteOutRows_Collection + If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsInCollection.Oid Then _IsNeed = False + Next + If _IsNeed Then _DeliveryNoteOutRows_Collection.Add(_DeliveryNoteOutRows) + End If + End If + Next + + If _DeliveryNoteOutRows_Collection.Count = 0 Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInRows", "NoSelectionforInvoice")), _ + MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + Dim _InvoiceHeader As New InvoiceHeader(_onew.Session) + With _InvoiceHeader + .InvoiceType = _onew.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid) + .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid) + .Customers = _onew.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid) + .DateCreated = _ORI_Invoice_Popup.DateCreated + .DateExecution = _ORI_Invoice_Popup.DateExecution + .PaymentOption = _onew.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid) + .DatePaymentMode = .PaymentOption.DatePaymentMode 'Javítva lett + .ShipmentOption = _onew.GetObjectByKey(Of ShipmentOption)(_OrderInHeader.ShipmentOption.Oid) + .CurrencyName = _onew.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid) + If .PaymentOption.PayMode = ePayMode.InCash Then + Else + .BankInformation = _onew.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid) + End If + .Description = _ORI_Invoice_Popup.Description + + InvoiceHeaderSavedSettings(_InvoiceHeader) + + If .PaymentOption.PayMode = ePayMode.InContinuous Then + .DatePayment = _InvoiceHeader.DateExecution + Else + If _ORI_Invoice_Popup.IsAPCSheet Then + .DatePayment = _ORI_Invoice_Popup.DatePayment + Else + If .PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then + .DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Else + .DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End If + End If + End If + + End With + + If _ORI_Invoice_Popup.IsFinalInvoice Then + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = False + _InvoiceHeader.IsStorno = False + + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator) + _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo + + If _ORI_Invoice_Popup.PaymentOption.PayMode = ePayMode.InCash Then + If _ORI_Invoice_Popup.IsLiquidAssets Then + 'Dim _GLCassa As New GLCassa(_onew.Session) + 'With _GLCassa + ' .CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid) + ' .LiquidAssets_Cassa = _onew.GetObjectByKey(Of LiquidAssets)(_ORI_Invoice_Popup.LiquidAssets.Oid) + ' .CashMoveType = eCashMoveType.eIn + ' .CashHandler = _ORI_Invoice_Popup.Customers.FullName.ToString() + ' .DateExecution = _onew.GetObjectByKey(Of Date)(_ORI_Invoice_Popup.DateExecution) + ' .DateCreated = _onew.GetObjectByKey(Of Date)(_ORI_Invoice_Popup.DateCreated) + ' .NoteHeader = "SZLA.BEFIZ" + ' _GLCassa.Save() + 'End With + + 'Dim _GLRows As New GLRows(_onew.Session) + 'With _GLRows + ' .GLHeader = _onew.GetObjectByKey(Of GLCassa)(_GLCassa.Oid) + 'End With + End If + End If + Else + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsStorno = False + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _InvoiceHeader.DocumentNumberProforma = _InvoiceHeader.InvoiceType.NumberGeneratorProforma.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGeneratorProforma) + End If + End If + + + For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutRows_Collection + Dim _InvoiceRows As New InvoiceRows(_onew.Session) + With _InvoiceRows + .InvoiceHeader = _InvoiceHeader + .RowIndex = _InvoiceHeader.InvoiceRows.Count + .OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + .InvoiceRowtype = eInvoiceRowType.FromOrder + .DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV + .DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF + .ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV + .ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF + .QTT = _DeliveryNoteOutRows.QTT_Will + .QualityOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption) + .ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber + vbNewLine + _ + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName + .Units = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units) + .VAT = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.VAT) + .Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description + .CustomsTariffs = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff) + .DeliveryNoteOutRows = _onew.GetObject(_DeliveryNoteOutRows) + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + .Controlling = _OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + End With + + Dim _QTT_Will_Orig = _DeliveryNoteOutRows.QTT_Will + _DeliveryNoteOutRows = _onew.GetObject(_DeliveryNoteOutRows) + _DeliveryNoteOutRows.QTT_Invoiced += _QTT_Will_Orig + _DeliveryNoteOutRows.QTT_Will = 0 + Dim _OrderInRows As OrderInRows = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows) + _OrderInRows.QTT_Invoiced += _QTT_Will_Orig + Next + _onew.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) + _onew.CommitChanges() + + If _InvoiceHeader IsNot Nothing Then + Dim _ReportData As ReportData = _InvoiceHeader.InvoiceType.ReportData + Dim _ReportData_DEV As ReportData = _InvoiceHeader.InvoiceType.ReportData_DEV + Dim _ReportData_DEV_EU As ReportData = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + End If + End If + End If + + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +#End Region +#Region "Kimenő számla sorok" + Private Sub aORI_Storno_Invoice_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aORI_Storno_Invoice.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ORI_Storno_Invoice_PopUp As New ORI_Storno_Invoice_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ORI_Storno_Invoice_PopUp_DetailView", False, _ORI_Storno_Invoice_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aORI_Storno_Invoice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aORI_Storno_Invoice.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _ORI_Storno_Invoice_PopUp As ORI_Storno_Invoice_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Storno_Invoice_PopUp) + If _ORI_Storno_Invoice_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _InvoiceRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") + If _InvoiceRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _InvoiceRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kijelölve egyetlen kitárolási sor sem!") + + Dim _InvoiceRows_Collection As New ArrayList + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_ListEditor.ListView.SelectedObjects + If _InvoiceRows.InvoiceHeader.IsStorno = False And + _InvoiceRows.InvoiceHeader.IsEditable = False And + _InvoiceRows.InvoiceHeader.IsProforma = False And _ + String.IsNullOrEmpty(_InvoiceRows.InvoiceHeader.DocumentNumber) = False Then _ + _InvoiceRows_Collection.Add(_InvoiceRows) + Next + If _InvoiceRows_Collection.Count = 0 Then Throw New Exception("*A kiválasztott számlasorok közt nincs egyetlen olyan sem, melyet stornozni lehetne!" _ + + vbNewLine + "Kérem, ellenőrize!") + + Dim _InvoiceHeaderNew_Collection As New ArrayList + Dim _DeliveryHeaderNew_Collection As New ArrayList + Dim _StorageOutHeaderNew_Collection As New ArrayList + + Select Case _ORI_Storno_Invoice_PopUp.ORIStornoInvoiceType + Case eORIStornoInvoiceType.eStornoInvoice + StornoInvoice(_onew, _InvoiceHeaderNew_Collection, _InvoiceRows_Collection) + If _InvoiceHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Case eORIStornoInvoiceType.eStornoInvoiceDelivery + StornoInvoice(_onew, _InvoiceHeaderNew_Collection, _InvoiceRows_Collection) + StornoDelivery(_onew, _DeliveryHeaderNew_Collection, _InvoiceRows_Collection) + If _InvoiceHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _DeliveryHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Case eORIStornoInvoiceType.eStornoInvoiceDeliveryStorageOut + StornoInvoice(_onew, _InvoiceHeaderNew_Collection, _InvoiceRows_Collection) + StornoDelivery(_onew, _DeliveryHeaderNew_Collection, _InvoiceRows_Collection) + StornoStorage(_onew, _StorageOutHeaderNew_Collection, _InvoiceRows_Collection) + If _InvoiceHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _DeliveryHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _StorageOutHeaderNew_Collection.Count = 0 Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + End Select + + _onew.CommitChanges() + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeaderNew_Collection + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) + _onew.CommitChanges() + Next + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aOrderIn_InvoiceRowFinalize_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOrderIn_InvoiceRowFinalize.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + If _OrderInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _OrderInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") + If _OrderInRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _OrderInRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen számla sor sem!") + Dim _InvoiceHeader As InvoiceHeader = _onew.GetObject(TryCast(TryCast(_OrderInRows_ListEditor.ListView.SelectedObjects(0), InvoiceRows).InvoiceHeader, InvoiceHeader)) + If _InvoiceHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If String.IsNullOrEmpty(_InvoiceHeader.DocumentNumberProforma) Then Throw New Exception("*A véglegesíteni kívánt számla nem proforma száma!") + If Not String.IsNullOrEmpty(_InvoiceHeader.DocumentNumber) Then Throw New Exception("*A véglegesíteni kívánt számla már rendelkezik sorszámmal!") + + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.CreateObject(Of ORI_Invoice_Popup)() + + _ORI_Invoice_Popup.CurrencyName = _InvoiceHeader.CurrencyName + _ORI_Invoice_Popup.CustomersFrom = _InvoiceHeader.CustomersFrom + _ORI_Invoice_Popup.DateCreated = GetSQLTime(_onew.Session) + _ORI_Invoice_Popup.DateExecution = _InvoiceHeader.DateExecution + _ORI_Invoice_Popup.PaymentOption = _InvoiceHeader.PaymentOption + _ORI_Invoice_Popup.DatePayment = _InvoiceHeader.DatePayment + _ORI_Invoice_Popup.BankInformation = _InvoiceHeader.BankInformation + _ORI_Invoice_Popup.Description = _InvoiceHeader.Description + _ORI_Invoice_Popup.Description_Header = _InvoiceHeader.DescriptionHeader + _ORI_Invoice_Popup.Customers = _InvoiceHeader.Customers + _ORI_Invoice_Popup.InvoiceType = _InvoiceHeader.InvoiceType + _ORI_Invoice_Popup.IsAPCSheet = _OrderInHeader.OrderInParameters.IsAPCSheet + _ORI_Invoice_Popup.QualityOption = _InvoiceHeader.QualityOption + + e.View = Application.CreateDetailView(_onew, "ORI_Invoice_Popup_DetailView", False, _ORI_Invoice_Popup) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aOrderIn_InvoiceRowFinalize_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderIn_InvoiceRowFinalize.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") + If _OrderInRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _OrderInRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen számla sor sem!") + Dim _InvoiceHeader As InvoiceHeader = _onew.GetObject(TryCast(TryCast(_OrderInRows_ListEditor.ListView.SelectedObjects(0), InvoiceRows).InvoiceHeader, InvoiceHeader)) + If _InvoiceHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup) + + _InvoiceHeader.IsEditable = False + _InvoiceHeader.IsProforma = False + _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator) + _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo + _InvoiceHeader.DateCreated = _ORI_Invoice_Popup.DateCreated + _InvoiceHeader.DateExecution = _ORI_Invoice_Popup.DateExecution + _InvoiceHeader.PaymentOption = _onew.GetObject(_ORI_Invoice_Popup.PaymentOption) + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InCash Then + Else + _InvoiceHeader.BankInformation = _onew.GetObject(_ORI_Invoice_Popup.BankInformation) + End If + _InvoiceHeader.Description = _ORI_Invoice_Popup.Description + _InvoiceHeader.DescriptionHeader = _ORI_Invoice_Popup.Description_Header + _InvoiceHeader.CurrencyRate = _ORI_Invoice_Popup.CurrencyRate + _InvoiceHeader.CurrencyName = _onew.GetObject(_ORI_Invoice_Popup.CurrencyName) + + If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + Else + ' -- Egyébként számolja ki a fizetési opcióból, hogy hány nap van a kiállítás dátuma és a fizetési határidő között + If _InvoiceHeader.PaymentOption.PayDay = 0 Then + Else + + Select Case _InvoiceHeader.DatePaymentMode + Case eDatePaymentMode.eDateCreated + _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay) + Case eDatePaymentMode.eDateExecution + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay) + End Select + End If + If _ORI_Invoice_Popup.IsAPCSheet Then + _InvoiceHeader.DatePayment = _ORI_Invoice_Popup.DatePayment + End If + End If + + ' -- Ha előleg típusú számla akkor a teljesítés és a fizetési határidő is megegyezik + If _InvoiceHeader.InvoiceType.InvoiceTypeBase = eInvoiceTypeBase.eAdvancePayment Then + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + End If + + If String.IsNullOrEmpty(_InvoiceHeader.Customers.Name) Then + _InvoiceHeader.Customers.Name = _InvoiceHeader.Customers.FullName + End If + + _onew.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _onew) + _onew.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_onew.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aORI_DeleteInvoiceProforma_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aORI_DeleteInvoiceProforma.Execute + '// proforma számla törlése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, CriteriaOperator.Parse("1=2")) + + If _OrderInHeader IsNot Nothing Then + Dim _InvoiceRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("InvoiceRows") + If _InvoiceRows_ListEditor IsNot Nothing Then + + Dim _InvoiceHeaderExist_Collection As New ArrayList + + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_ListEditor.ListView.SelectedObjects + If _InvoiceHeaderExist_Collection.Count = 0 Then + _InvoiceHeaderExist_Collection.Add(_InvoiceRows.InvoiceHeader) + Else + Dim _Need As Boolean = True + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeaderExist_Collection + If _InvoiceRows.InvoiceHeader.Oid = _InvoiceHeader.Oid Then + _Need = False + Exit For + End If + Next + + If _Need Then _InvoiceHeaderExist_Collection.Add(_InvoiceRows.InvoiceHeader) + End If + Next + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeaderExist_Collection + If _InvoiceHeader.IsProforma And String.IsNullOrEmpty(_InvoiceHeader.DocumentNumber) Then + _InvoiceHeader_Collection.Add(_InvoiceHeader) + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + If _InvoiceRows.OrderInRows IsNot Nothing Then + _InvoiceRows.OrderInRows.QTT_Invoiced -= _InvoiceRows.QTT + _InvoiceRows.OrderInRows.Save() + End If + If _InvoiceRows.OrderInRowsOther IsNot Nothing Then + _InvoiceRows.OrderInRowsOther.QTT_Invoiced -= _InvoiceRows.QTT + _InvoiceRows.OrderInRowsOther.Save() + End If + If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then + _InvoiceRows.DeliveryNoteOutRows.QTT_Invoiced -= _InvoiceRows.QTT + _InvoiceRows.DeliveryNoteOutRows.Save() + End If + Next + End If + Next + + _ocur.Delete(_InvoiceHeader_Collection) + End If + _ocur.CommitChanges() + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aOrderInInvoiceAdvance_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOrderInInvoiceAdvance.Execute + '//Előlegszámla készítése előlegbekérő és p.ü. teljesítés alapján + On Error GoTo CheckError + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader) + Dim _InvoiceHeader As InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + Dim _InvoiceRows As InvoiceRows + Dim _CurrencyRate As Double = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + Dim _NG As NumberGenerator + Dim _VAT As VAT + Dim _ConnectInfo_Old As String = "" + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup) + If _OrderInHeader IsNot Nothing Then + Dim _PCIDetail_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("PCIDetail") + Dim _PCIDetail As PCIDetail = TryCast(_PCIDetail_ListEditor.ListView.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank" + '// Megvan a nyitott p.ü teljesítés, lehet kiállítani az előleg számlát + _InvoiceHeader.IsProforma = False + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _OrderInHeader.CustomersFrom + _InvoiceHeader.Customers = _OrderInHeader.Customers + _InvoiceHeader.InvoiceType = _OrderInHeader.OrderInParameters.InvoiceTypeAdvanced + + If _InvoiceHeader.InvoiceType.NumberGenerator IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGenerator + _InvoiceHeader.DocumentNumber = _NG.GetNewNumber(_NG) + _InvoiceHeader.ConnectInfo = _InvoiceHeader.DocumentNumber + _PCIDetail.GLRows.ConnectInfo = _InvoiceHeader.DocumentNumber + _PCIDetail.GLRows.Save() + _ocur.Delete(_PCIDetail) + End If + + _InvoiceHeader.DateCreated = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateCreated) + _InvoiceHeader.DateExecution = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateExecution) + _InvoiceHeader.Description = _ORI_Invoice_Popup.Description + _InvoiceHeader.DescriptionHeader = _ORI_Invoice_Popup.Description_Header + _InvoiceHeader.BankInformation = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).BankInformation) + + + _InvoiceHeader.CurrencyName = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyName) + _InvoiceHeader.CurrencyRate = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + + _InvoiceHeader.PaymentOption = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption) + _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution + + '-- Próbaszámla miatt el kell menteni a tényleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _OrderInHeader.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _OrderInHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _OrderInHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _OrderInHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _OrderInHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _OrderInHeader.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _OrderInHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _OrderInHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _OrderInHeader.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _OrderInHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _OrderInHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _OrderInHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _OrderInHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _OrderInHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _OrderInHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + + ' ---- FEJLÉC ADATOK MEGADÁSÁNAK VÉGE ---------------------------------------------------------------------------------------------------- + + '------ Egy darab sor az átvett előleg alapján ---------------------------------------------------------------------------- --------------- + _OrderInHeader.OrderInRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _OrderInHeader.OrderInRowsOther.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + '----------------------------------------------------------------------------------------------------- + + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.QTT = 1 + + Select Case _OrderInHeader.OrderInParameters.ExportMode + Case eExportMode.eInversVAT + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForInversVAT")) + Case eExportMode.eExternalEUwithVAT + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes")) + Case eExportMode.eExternalEUNoVAT + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForExternalEUNoVAT")) + Case eExportMode.eExternalOther + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForExternalOther")) + Case eExportMode.eInternalwithVAT + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes")) + Case Else + _VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes")) + End Select + + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = 0 + _InvoiceRows.ListPriceHUF = Math.Round(Math.Abs(_PCIDetail.BallanceHUF) / (1 + _VAT.KeyValue), 2) + Else + _InvoiceRows.DiscountPriceDEV = 0 + _InvoiceRows.DiscountPriceHUF = 0 + _InvoiceRows.ListPriceDEV = Math.Round(Math.Abs(_PCIDetail.BallanceDEV) / (1 + _VAT.KeyValue), 2) + _InvoiceRows.ListPriceHUF = Math.Round(Math.Abs(_PCIDetail.BallanceHUF) / (1 + _VAT.KeyValue), 2) + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromManual + _InvoiceRows.VAT = _VAT + _InvoiceRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + _InvoiceRows.ShortName = "ELŐLEG" + _InvoiceRows.Description = "ELŐLEG ÁTVÉTELE RENDELÉS ALAPJÁN. RENDELÉSI SZÁM : " & _OrderInHeader.DocumentNumber + + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default + End If + End If + _InvoiceRows.RowIndex = 1 + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + + '// Előlegszámla nyomtatása + + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _CurrencyName As CurrencyName + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + End If + End If + End If + End Select + End If + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Exit Sub +CheckError: + Select Case Err.Number + Case 91, 13 + Resume Next + Case Else + Throw New UserFriendlyException(Err.Description) + End Select + End Sub + Private Sub aGenerateInvoiceFromOrderInFinal_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateInvoiceFromOrderInFinal.Execute + '// Végszámla készítése előlegek beszámításával + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + Dim _OrderInHeader As OrderInHeader = _ocur.GetObject(TryCast(View.SelectedObjects(0), OrderInHeader)) + Dim _CurrencyRate As Double = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + Dim _NG As NumberGenerator + Dim _InvoiceRows As InvoiceRows + Dim _OrderInRows As OrderInRows + Dim _OrderInRowsOther As OrderInRowsOther + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows + + Dim _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows As eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eOrderInRows + + + On Error GoTo CheckError + + ' --- Ellenőrzés, hogy kell-e engedély ! -------------------------------------------------------------------------------------------------- + If _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption).PayMode <> ePayMode.InCash Then + If _OrderInHeader.SubjectToApproval(_OrderInHeader, _ocur) And _OrderInHeader.PermissionAllowed = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "PermissionNotAllowedToCreateInvoice")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + + '// Meg kell nézni, hogy van-e mindenütt szándék ! + Dim _ReadyForFinalInvoice As Boolean = False + + '// Ha van kiállítva szállítólevél, akkor abból lesz a számla ! + If _OrderInHeader.DeliveryNoteOutRows IsNot Nothing Then + If _OrderInHeader.DeliveryNoteOutRows.Count > 0 Then + _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eDeliveryNoteOutRows + Else + _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eOrderInRows + End If + Else + _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eOrderInRows + End If + + + If _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eDeliveryNoteOutRows Then + For Each _DeliveryNoteOutRows In _OrderInHeader.DeliveryNoteOutRows + If Math.Round(_DeliveryNoteOutRows.QTT_Will, 4, MidpointRounding.AwayFromZero) > 0 Then + _ReadyForFinalInvoice = True + Exit For + End If + Next + Else + For Each _OrderInRows In _OrderInHeader.OrderInRows + If Math.Round(_OrderInRows.QTT_Process, 4, MidpointRounding.AwayFromZero) > 0 Then + _ReadyForFinalInvoice = True + Exit For + End If + Next + End If + + For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If Math.Round(_OrderInRowsOther.QTT_Process, 4, MidpointRounding.AwayFromZero) > 0 Then + _ReadyForFinalInvoice = True + Exit For + End If + Next + + If _ReadyForFinalInvoice = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "NoSelectionforFinalInvoice")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + '// Ha van proforma állapot akkor NE engedjen számlázni + _ReadyForFinalInvoice = True + For Each _InvoiceRows In _OrderInHeader.InvoiceRows + If _InvoiceRows.InvoiceHeader.IsProforma And String.IsNullOrEmpty(_InvoiceRows.InvoiceHeader.DocumentNumber) Then + _ReadyForFinalInvoice = False + Exit For + End If + Next + If _ReadyForFinalInvoice = False Then + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\OrderInHeader", "YesProformaInOrderInHeader")), _ + MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + ' ---- FEJLÉC ADATOK MEGADÁSA ------------------------------------------------------------------------------------------------------------- + + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + _InvoiceHeader.CustomersFrom = _OrderInHeader.CustomersFrom + _InvoiceHeader.Customers = _OrderInHeader.Customers + _InvoiceHeader.InvoiceType = _OrderInHeader.OrderInParameters.InvoiceType + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + + _InvoiceHeader.DateCreated = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateCreated) + _InvoiceHeader.DateExecution = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DateExecution) + _InvoiceHeader.Description = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).Description) + _InvoiceHeader.DescriptionHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).Description_Header) + _InvoiceHeader.BankInformation = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).BankInformation) + + + _InvoiceHeader.CurrencyName = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyName) + _InvoiceHeader.CurrencyRate = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).CurrencyRate) + + _InvoiceHeader.PaymentOption = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).PaymentOption) + _InvoiceHeader.DatePayment = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup).DatePayment) + + '-- Próbaszámla miatt el kell menteni a tényleges adatokat -------------------------------------------------------- + _InvoiceHeader.Saved_Customers_Name = _OrderInHeader.Customers.Name.ToString + _InvoiceHeader.Saved_Customers_Address_Country = _OrderInHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _OrderInHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _OrderInHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _OrderInHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _OrderInHeader.Customers.Address1.StateProvince.ToString + _InvoiceHeader.Saved_Customers_VATNumber = _OrderInHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _OrderInHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _OrderInHeader.CustomersFrom.Name.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _OrderInHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _OrderInHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _OrderInHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _OrderInHeader.CustomersFrom.Address1.StateProvince.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _OrderInHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _OrderInHeader.CustomersFrom.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + + _InvoiceHeader.Save() + ' ---- FEJLÉC ADATOK MEGADÁSÁNAK VÉGE ---------------------------------------------------------------------------------------------------- + + '------ A fejléchez tartozó sorok (termék és egyéb típusok) rendezése sorindex alapján --------------- + _OrderInHeader.OrderInRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _OrderInHeader.OrderInRowsOther.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _OrderInHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + '----------------------------------------------------------------------------------------------------- + + ' A fejléchez tartozó sorok átadása ----------------------------------------------------------------- + + Dim i As Int16 = 0 + + '----------------------------- Átadjuk az összes termék típusú sort -------------------------------------- + If _InvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows = eInvoiceRows_Mode_DeliveryNoteOutRows_Or_OrderInRows.eOrderInRows Then + For Each _OrderInRows In _OrderInHeader.OrderInRows + If _OrderInRows.QTT_Process > 0 Then + If _OrderInRows.QTT - (_OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced) >= 0 Then + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRows = _OrderInRows + _InvoiceRows.QTT = _OrderInRows.QTT_Process + _OrderInRows.QTT_Invoiced += _OrderInRows.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = _OrderInRows.DiscountPriceHUF + _InvoiceRows.ListPriceHUF = _OrderInRows.ListPriceHUF + Else + _InvoiceRows.DiscountPriceDEV = _OrderInRows.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _OrderInRows.DiscountPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + _InvoiceRows.ListPriceDEV = _OrderInRows.ListPriceDEV + _InvoiceRows.ListPriceHUF = _OrderInRows.ListPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _OrderInRows.VAT + _InvoiceRows.Units = _OrderInRows.Products.Units + _InvoiceRows.ShortName = _OrderInRows.Products.ShortName + _InvoiceRows.Description = _OrderInRows.Products.Description + _InvoiceRows.CustomsTariffs = _OrderInRows.Products.CustomsTariff + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + _InvoiceRows.RowIndex = i + i += 1 + End If + End If + Next + Else + For Each _DeliveryNoteOutRows In _OrderInHeader.DeliveryNoteOutRows + If _DeliveryNoteOutRows.QTT_Will > 0 Then + If Math.Round(_DeliveryNoteOutRows.QTT, 4, MidpointRounding.AwayFromZero) - Math.Round((_DeliveryNoteOutRows.QTT_Will + _DeliveryNoteOutRows.QTT_Invoiced), 4, MidpointRounding.AwayFromZero) >= 0 Then + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRows = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows + _InvoiceRows.QTT = _DeliveryNoteOutRows.QTT_Will + _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Invoiced += _DeliveryNoteOutRows.QTT_Will + _DeliveryNoteOutRows.QTT_Invoiced += _DeliveryNoteOutRows.QTT_Invoiced + _DeliveryNoteOutRows.QTT_Will + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF + _InvoiceRows.ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF + Else + _InvoiceRows.DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + _InvoiceRows.ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV + _InvoiceRows.ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.VAT + _InvoiceRows.Units = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units + _InvoiceRows.ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName + _InvoiceRows.Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Description + _InvoiceRows.CustomsTariffs = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff + _InvoiceRows.DeliveryNoteOutRows = _DeliveryNoteOutRows + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_Rows_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_Rows_Default + End If + End If + _InvoiceRows.RowIndex = i + i += 1 + End If + End If + Next + End If + '----------------------------- Átadjuk az összes egyéb típusú sort -------------------------------------- + For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _OrderInRowsOther.QTT_Process > 0 Then + If _OrderInRowsOther.QTT - (_OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced) >= 0 Then + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.OrderInRowsOther = _OrderInRowsOther + _InvoiceRows.QTT = _OrderInRowsOther.QTT_Process + _OrderInRowsOther.QTT_Invoiced += _OrderInRowsOther.QTT_Process + If _InvoiceHeader.CurrencyName.ShortName = "HUF" Then + _InvoiceRows.DiscountPriceHUF = _OrderInRowsOther.DiscountPriceHUF + _InvoiceRows.ListPriceHUF = _OrderInRowsOther.ListPriceHUF + Else + _InvoiceRows.DiscountPriceDEV = _OrderInRowsOther.DiscountPriceDEV + _InvoiceRows.DiscountPriceHUF = _OrderInRowsOther.DiscountPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + _InvoiceRows.ListPriceDEV = _OrderInRowsOther.ListPriceDEV + _InvoiceRows.ListPriceHUF = _OrderInRowsOther.ListPriceDEV * _CurrencyRate ' A kerekítést még meg kell beszélni + End If + + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _OrderInRowsOther.VAT + _InvoiceRows.Units = _OrderInRowsOther.Units + _InvoiceRows.UniqueObjects = _OrderInRowsOther.UniqueObjects + _InvoiceRows.CostHolder = _OrderInRowsOther.CostHolder + _InvoiceRows.CostPlace = _OrderInRowsOther.CostPlace + _InvoiceRows.QualityOption = _OrderInRowsOther.QualityOption + _InvoiceRows.Description = _OrderInRowsOther.Description + _InvoiceRows.ShortName = _OrderInRowsOther.ShortName + _InvoiceRows.CustomsTariffs = _OrderInRowsOther.CustomsTariffs + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_OtherRows_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_OtherRows_Default + End If + End If + _InvoiceRows.RowIndex = i + + i += 1 + End If + End If + Next + + '// Most mínusszal a beszámított előkegek + Dim _ListView As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("InvoiceAdvance") + If _ListView IsNot Nothing Then + For Each _InvoiceHeader_Advance As InvoiceHeader In _ListView.ListView.SelectedObjects + For Each _InvoiceRows_Advance As InvoiceRows In _InvoiceHeader_Advance.InvoiceRows + _InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.InvoiceRowsAdvance = _ocur.GetObject(_InvoiceRows_Advance) + _InvoiceRows.QTT = -1 + _InvoiceRows.DiscountPriceDEV = 0 + _InvoiceRows.DiscountPriceHUF = 0 + _InvoiceRows.ListPriceDEV = _ocur.GetObject(_InvoiceRows_Advance.ListPriceDEV) + _InvoiceRows.ListPriceHUF = _ocur.GetObject(_InvoiceRows_Advance.ListPriceHUF) + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder + _InvoiceRows.VAT = _ocur.GetObject(_InvoiceRows_Advance.VAT) + _InvoiceRows.Units = _ocur.GetObject(_InvoiceRows_Advance.Units) + _InvoiceRows.UniqueObjects = _ocur.GetObject(_InvoiceRows_Advance.UniqueObjects) + _InvoiceRows.CostHolder = _ocur.GetObject(_InvoiceRows_Advance.CostHolder) + _InvoiceRows.CostPlace = _ocur.GetObject(_InvoiceRows_Advance.CostPlace) + _InvoiceRows.QualityOption = _ocur.GetObject(_InvoiceRows_Advance.QualityOption) + _InvoiceRows.Description = String.Format("ELŐLEG BESZÁMÍTÁSA A {0} SZÁMLA ALAPJÁN", _InvoiceRows_Advance.InvoiceHeader.DocumentNumber) + _InvoiceRows.ShortName = "ELŐLEG BESZÁMÍTÁSA" + _InvoiceRows.CustomsTariffs = _ocur.GetObject(_InvoiceRows_Advance.CustomsTariffs) + If _OrderInHeader.OrderInParameters IsNot Nothing Then + If _OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default IsNot Nothing Then + _InvoiceRows.Controlling = _OrderInHeader.OrderInParameters.Controlling_InvoiceAdvance_Default + End If + End If + _InvoiceRows.RowIndex = i + Next + Next + End If + + _ocur.CommitChanges() + _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur) + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + Exit Sub +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + If Err.Number = 5 Then Throw New UserFriendlyException(Err.Description) + + End Sub + +#End Region +#End Region + + Private Sub RecalculateDEV(_Object As Object, _OrderInHeader As OrderInHeader) + Try + Dim _OrderInRows As OrderInRows + Dim _OrderInRowsOther As OrderInRowsOther + If _OrderInHeader IsNot Nothing Then + If _OrderInHeader.OrderInParameters.CurrencyName.ShortName <> "HUF" Then + For Each _OrderInRows In _OrderInHeader.OrderInRows + If _Object.PriceMode = ePriceMode.eDEVToHUF Then + _OrderInRows.ListPriceHUF = Math.Round(_OrderInRows.ListPriceDEV * _Object.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _OrderInRows.DiscountPriceHUF = Math.Round(_OrderInRows.DiscountPriceDEV * _Object.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + Else + If _Object.CurrencyRate <> 0 Then + _OrderInRows.ListPriceDEV = Math.Round(_OrderInRows.ListPriceHUF / _Object.CurrencyRate, 2, MidpointRounding.AwayFromZero) + _OrderInRows.DiscountPriceDEV = Math.Round(_OrderInRows.DiscountPriceHUF / _Object.CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + _OrderInRows.RecalculateRows() + Next + + For Each _OrderInRowsOther In _OrderInHeader.OrderInRowsOther + If _Object.PriceMode = ePriceMode.eDEVToHUF Then + _OrderInRowsOther.ListPriceHUF = Math.Round(_OrderInRowsOther.ListPriceDEV * _Object.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _OrderInRowsOther.DiscountPriceHUF = Math.Round(_OrderInRowsOther.DiscountPriceDEV * _Object.CurrencyRate, 0, MidpointRounding.AwayFromZero) + + Else + If _Object.CurrencyRate <> 0 Then + _OrderInRowsOther.ListPriceDEV = Math.Round(_OrderInRowsOther.ListPriceHUF / _Object.CurrencyRate, 2, MidpointRounding.AwayFromZero) + _OrderInRowsOther.DiscountPriceDEV = Math.Round(_OrderInRowsOther.DiscountPriceHUF / _Object.CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + _OrderInRowsOther.RecalculateRows() + Next + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aORI_RecalculateTotalBrutto_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aORI_RecalculateTotalBrutto.Execute + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + 'For Each _OrderInHeader As OrderInHeader In View.SelectedObjects + + ' _OrderInHeader.RecalculateHeaderTotalBrutto() + + 'Next + '_ocur.CommitChanges() + 'If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + ' Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + 'End If + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_ChangeQTT_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_ChangeQTT_PopUp.vb new file mode 100644 index 0000000..7df01e8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_ChangeQTT_PopUp.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class ORI_ChangeQTT_PopUp + Inherits BaseObject + + Private _QTT As Double + Private _QTT_Storaged_Will As Double '-- Kitrolsra foglalt mennyisg + Private _QTT_Storaged As Double '-- Kiadott mennyisg + Private _OrderInRows As OrderInRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Storaged_Will As Double + Get + Return _QTT_Storaged_Will + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Storaged_Will", _QTT_Storaged_Will, value) + End Set + End Property + Property OrderInRows As OrderInRows + Get + Return _OrderInRows + End Get + Set(value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + Property QTT_Storaged() As Double + Get + Return _QTT_Storaged + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Storaged", _QTT_Storaged, value) + End Set + End Property + ReadOnly Property AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent) + Get + If OrderInRows IsNot Nothing Then + Dim _AuditDataItemPersistent_Return_Collection As XPCollection(Of AuditDataItemPersistent) + _AuditDataItemPersistent_Return_Collection = AuditedObjectWeakReference.GetAuditTrail(Session, OrderInRows) + + Return _AuditDataItemPersistent_Return_Collection + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Description_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Description_PopUp.vb new file mode 100644 index 0000000..ce4495a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Description_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ORI_Invoice_Description_PopUp + Inherits BaseObject + + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Popup.vb new file mode 100644 index 0000000..a865203 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Popup.vb @@ -0,0 +1,439 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors + +Public Enum eInvoiceStrategy + eInvoiceAdvanceAsk = 0 'Elleg bekr + eInvoiceAdvance = 2 'Ellegszmla + eInvoice = 3 'Prbaszmla vagy szmla + eDeliveryNoteOutAndInvoice = 4 'Kiszllts + szmla + eStorageOutAndDeliveryNoteOutAndInvoice = 5 'Kitrols + kiszllts + szmla + eDeliveryNoteOut = 6 'Kiszllts + eStorageOutAndDeliveryNoteOut = 7 'Kitrols + kiszllts + eInvoiceFinal = 8 'Csak vgszmla ksztse +End Enum + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class ORI_Invoice_Popup + Inherits BaseObject + + Private _InvoiceStrategy As eInvoiceStrategy + Private _InvoiceType As InvoiceType + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'gyfl + Private _DateCreated As Date 'Killts dtuma + Private _DateExecution As Date 'Teljests dtuma + Private _DatePayment As Date 'Fizetsi hatrid + Private _Description As String 'Szmln, szlltlevelen szerepl megjegyzs + Private _Description_Header As String 'Szmln, szlltlevelen szerepl fejlc megjegyzs + Private _PaymentOption As PaymentOption 'Fizetsi opci (ebbl automatikusan DatePayment s Date Execution) + Private _ShipmentOption As ShipmentOption 'Szlltsi kondci + Private _CurrencyName As CurrencyName 'Deviza + Private _CurrencyRate As Double = 0 'rfolyam, ha a deviza nem HUF egybknt 1 + Private _BankInformation As BankInformation ' A fejlcben megjelen szmlaszm + Private _Storage As Storage 'Raktr a Kitrols+szlltlevl action-hoz + Private _StorageMoveType As StorageMoveType + Private _DeliveryNoteOutType As DeliveryNoteOutType + Private _QualityOption As QualityOption ' Minsgi opci + Private _TransportAddress As Address ' -- Szlltsi cm + Private _LiquidAssets As LiquidAssets 'Ha kp, akkor ebbe a pnztrba generlja le abevteli pnztrbizonylatot. + Private _IsLiquidAssets As Boolean 'Kszl-e pnztrbizonylat? + Private _IsFinalInvoice As Boolean 'Egybl vgszmla legyen-e? ha igen akkor lehet csak pnztrbizonylatot csinlni s ekkor kell GLCassa is! + Private _PriceMode As ePriceMode 'DEV HUF regenerls mdja + Private _IsAPCSheet As Boolean 'Termeltetsi szerzdssel kapcsolatos-e + Private _AlertMessage As String 'Figyelmeztet szveg, ha valami nem j + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsFinalInvoice = False + IsLiquidAssets = False + IsAPCSheet = False + CurrencyRate = 1 + AlertMessage = "" + End Sub + + Property InvoiceStrategy As eInvoiceStrategy + Get + Return _InvoiceStrategy + End Get + Set(value As eInvoiceStrategy) + SetPropertyValue("InvoiceStrategy", _InvoiceStrategy, value) + End Set + End Property + _ + _ + Property InvoiceType() As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.PaymentOption IsNot Nothing Then + If Me.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateExecution Then + Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay) + End If + End If + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.DateExecution = Nothing Then + Me.DatePayment = Nothing + End If + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If CurrencyName IsNot Nothing Then + If CurrencyName.ShortName <> "HUF" Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?", _ + CurrencyName, value.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _DateExecution.Date Then + CurrencyRate = _CurrencyRate_MNB.RateAverage + Exit For + End If + Exit For + Next + End If + End If + End If + End If + End Set + End Property + _ + Property DatePayment() As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property Description_Header As String + Get + Return _Description_Header + End Get + Set(ByVal value As String) + SetPropertyValue("Description_Header", _Description_Header, value) + End Set + End Property + _ + _ + Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.DateExecution > #1/1/1900# And Me.PaymentOption IsNot Nothing Then + If IsAPCSheet = False Then + If value.DatePaymentMode = eDatePaymentMode.eDateCreated Then + Me.DatePayment = Me.DateCreated.AddDays(Me.PaymentOption.PayDay) + Else + Me.DatePayment = Me.DateExecution.AddDays(Me.PaymentOption.PayDay) + End If + End If + End If + If value IsNot Nothing Then + If value.PayMode = ePayMode.InCash Then + Me.DateExecution = GetSQLTime(Session) + Me.DatePayment = GetSQLTime(Session) + End If + End If + End If + End Set + End Property + _ + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property CurrencyRate() As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + _ + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + _ + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + Storage = value.Storage 'MoveType + End If + End If + End Set + End Property + _ + Property DeliveryNoteOutType As DeliveryNoteOutType + Get + Return _DeliveryNoteOutType + End Get + Set(value As DeliveryNoteOutType) + SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Property TransportAddress As Address + Get + Return _TransportAddress + End Get + Set(value As Address) + SetPropertyValue("TransportAddress", _TransportAddress, value) + End Set + End Property + _ + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + _ + Property IsLiquidAssets As Boolean + Get + Return _IsLiquidAssets + End Get + Set(value As Boolean) + SetPropertyValue("IsLiquidAssets", _IsLiquidAssets, value) + End Set + End Property + _ + Property IsFinalInvoice As Boolean + Get + Return _IsFinalInvoice + End Get + Set(value As Boolean) + SetPropertyValue("IsFinalInvoice", _IsFinalInvoice, value) + End Set + End Property + Property PriceMode As ePriceMode + Get + Return _PriceMode + End Get + Set(value As ePriceMode) + SetPropertyValue("PriceMode", _PriceMode, value) + End Set + End Property + Property IsAPCSheet As Boolean + Get + Return _IsAPCSheet + End Get + Set(value As Boolean) + SetPropertyValue("IsAPCSheet", _IsAPCSheet, value) + End Set + End Property + _ + Property AlertMessage As String + Get + Return _AlertMessage + End Get + Set(value As String) + SetPropertyValue("AlertMessage", _AlertMessage, value) + End Set + End Property + _ + ReadOnly Property InvoiceAdvance As XPCollection(Of InvoiceHeader) + Get + Dim _InvoiceHeader_Collection_Return As New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("1=2")) + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("IsEditable=False and DocumentNumber !='' and InvoiceType.InvoiceTypeBase in ('eEarnestofTender','eAdvancePayment') and Customers=? and CustomersFrom=?", Customers, Me.CustomersFrom)) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows_Advance As InvoiceRows + Dim _InvoiceRows As InvoiceRows + Dim _Need As Boolean = False + For Each _InvoiceHeader In _InvoiceHeader_Collection + _Need = True + + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows_Advance = Session.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceHeader.IsStorno=False and InvoiceRowsAdvance.Oid=? and isnull(InvoiceHeader.GCRecord)=True and IsNull(GCRecord)=True and InvoiceHeader.DocumentNumber !='' and InvoiceHeader.IsEditable=False", _InvoiceRows.Oid)) + If _InvoiceRows_Advance IsNot Nothing Then + If _InvoiceRows_Advance.IsDeleted = False Then + _Need = False + Exit For + End If + End If + Next + + If _Need Then + _InvoiceHeader_Collection_Return.Add(_InvoiceHeader) + End If + Next + + Return _InvoiceHeader_Collection_Return + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_DeliveryNoteOut_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_DeliveryNoteOut_PopUp.vb new file mode 100644 index 0000000..ad6a9ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_DeliveryNoteOut_PopUp.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eORIStornoDeliveryNoteOutType + eStornoDeliveryNoteOut = 0 + eStornoDeliveryNoteOutStorageOut = 1 +End Enum + + _ + _ + _ + _ +Public Class ORI_Storno_DeliveryNoteOut_PopUp + Inherits BaseObject + + Private _ORIStornoDeliveryNoteOutType As eORIStornoDeliveryNoteOutType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ORIStornoDeliveryNoteOutType As eORIStornoDeliveryNoteOutType + Get + Return _ORIStornoDeliveryNoteOutType + End Get + Set(value As eORIStornoDeliveryNoteOutType) + SetPropertyValue("ORIStornoDeliveryNoteOutType", _ORIStornoDeliveryNoteOutType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_Invoice_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_Invoice_PopUp.vb new file mode 100644 index 0000000..0cf554a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Storno_Invoice_PopUp.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eORIStornoInvoiceType + eStornoInvoice = 0 + eStornoInvoiceDelivery = 1 + eStornoInvoiceDeliveryStorageOut = 2 +End Enum + + _ + _ + _ + _ +Public Class ORI_Storno_Invoice_PopUp + Inherits BaseObject + + Private _ORIStornoInvoiceType As eORIStornoInvoiceType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ORIStornoInvoiceType As eORIStornoInvoiceType + Get + Return _ORIStornoInvoiceType + End Get + Set(value As eORIStornoInvoiceType) + SetPropertyValue("ORIStornoInvoiceType", _ORIStornoInvoiceType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsHeader.vb new file mode 100644 index 0000000..030263f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsHeader.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class OrderInHeaderFromOfferOutRowsHeader + Inherits BaseObject + Private _OrderInParameters As OrderInParameters ' Bejövő megrendelési paraméter + Private _CurrencyName As CurrencyName ' Deviza (a popup-on nem látszik, háttérben kell) + Private _CustomersFrom As CustomersFrom ' Saját cég (a popup-on nem látszik, háttérben kell) + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + _ + Property OrderInParameters As OrderInParameters + Get + Return _OrderInParameters + End Get + Set(value As OrderInParameters) + SetPropertyValue("OrderInParameters", _OrderInParameters, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + ReadOnly Property OrderInHeaderFromOfferOutRowsRows As XPCollection(Of OrderInHeaderFromOfferOutRowsRows) + Get + Return GetCollection(Of OrderInHeaderFromOfferOutRowsRows)("OrderInHeaderFromOfferOutRowsRows") + + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsRows.vb new file mode 100644 index 0000000..79545f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInHeaderFromOfferOutRowsRows.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInHeaderFromOfferOutRowsRows + Inherits BaseObject + + Private _QTT_Process As Double '-- Kézzel beírható mennyiség a végrehajtáshoz (pld. mennyi legyen kitárolva ...) + Private _OfferOutRows As OfferOutRows ' Kimenő ajánlati sor + Private _OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader ' Átmeneti objektum a bejövő megrendelés létrehozásához + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + Property OfferOutRows As OfferOutRows + Get + Return _OfferOutRows + End Get + Set(value As OfferOutRows) + SetPropertyValue("OfferOutRows", _OfferOutRows, value) + End Set + End Property + _ + Property OrderInHeaderFromOfferOutRowsHeader As OrderInHeaderFromOfferOutRowsHeader + Get + Return _OrderInHeaderFromOfferOutRowsHeader + End Get + Set(value As OrderInHeaderFromOfferOutRowsHeader) + SetPropertyValue("OrderInHeaderFromOfferOutRowsHeader", _OrderInHeaderFromOfferOutRowsHeader, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRegenerator_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRegenerator_PopUp.vb new file mode 100644 index 0000000..d7110a4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRegenerator_PopUp.vb @@ -0,0 +1,63 @@ + +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eRegeneratorErrorType + eNotSet = 0 + eInvoiceError = 1 + eDeliveryError = 2 + eStorageError = 3 +End Enum + _ + _ + _ + _ +Public Class OrderInRegenerator_PopUp + Inherits BaseObject + + Private _ResultString As String + Private _RowIndex As Long + Private _RegeneratorErrorType As eRegeneratorErrorType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + RegeneratorErrorType = 0 + End Sub + + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property ResultString As String + Get + Return _ResultString + End Get + Set(value As String) + SetPropertyValue("ResultString", _ResultString, value) + End Set + End Property + Property RegeneratorErrorType As eRegeneratorErrorType + Get + Return _RegeneratorErrorType + End Get + Set(value As eRegeneratorErrorType) + SetPropertyValue("RegeneratorErrorType", _RegeneratorErrorType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRowsOther_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRowsOther_ChangeGroup.vb new file mode 100644 index 0000000..3dff8f8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRowsOther_ChangeGroup.vb @@ -0,0 +1,56 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General + + _ + _ + _ +Public Class OrderInRowsOther_ChangeGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property VAT As VAT + Property Change_VAT As Boolean = False + Property Units As Units + Property Change_Units As Boolean = False + Property RowGroup1 As String + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String + Property Change_RowGroup2 As Boolean = False + Property QualityOption As QualityOption + Property Change_QualityOption As Boolean = False + Property FinalPricePercent As Double '%-osan a meglv rtket nveli (+ s - lehet !!!) + Property Change_FinalPricePercent As Boolean = False + Property ShortName As String + Property Change_ShortName As Boolean = False + Property Description As String + Property Change_Description As Boolean = False + + Property WorkState As WorkState + Property Change_WorkState As Boolean = False + Property WorkStateGroup As String + Property Change_WorkStateGroup As Boolean = False + Property WorkStateExpiration As Date + Property Change_WorkStateExpiration As Boolean = False + Property WorkStateStatus As TaskStatus + Property Change_WorkStateStatus As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRows_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRows_ChangeGroup.vb new file mode 100644 index 0000000..50ea63d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/OrderInRows_ChangeGroup.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OrderInRows_ChangeGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property RowGroup1 As String + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String + Property Change_RowGroup2 As Boolean = False + Property QualityOption As QualityOption + Property Change_QualityOption As Boolean = False + Property FinalPricePercent As Double '%-osan a meglv rtket nveli (+ s - lehet !!!) + Property Change_FinalPricePercent As Boolean = False + Property Description As String + Property Change_Description As Boolean = False + Property DiscountPercent As Double + Property Change_DiscountPercent As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/StorageOutFromOrderInFIFO_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/StorageOutFromOrderInFIFO_PopUp.vb new file mode 100644 index 0000000..4bef1c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/StorageOutFromOrderInFIFO_PopUp.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class StorageOutFromOrderInFIFO_PopUp + Inherits BaseObject + + Private _Products As Products + Private _QTT_Full As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT_Full As Double + Get + Return _QTT_Full + End Get + Set(value As Double) + SetPropertyValue("QTT_Full", _QTT_Full, value) + End Set + End Property + + '--------Readonly-------------- + ReadOnly Property StorageInRows As XPCollection(Of StorageInRows) + Get + If Products IsNot Nothing Then + Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("Products=?", Products)) + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInTo.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInTo.vb new file mode 100644 index 0000000..aa18fcf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInTo.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class OrderInTo 'Továbbrendelt tételek + Inherits BaseObject + Private _OrderInRows As OrderInRows 'Bejövő megrendelési sor + Private _OrderOutRows As OrderOutRows 'Kimenő megrendelési sor + Private _QTT_To As Double 'Mennyiség ami tovább van rendelve + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property OrderInRows As OrderInRows + Get + Return _OrderInRows + End Get + Set(value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + _ + Property OrderOutRows As OrderOutRows + Get + Return _OrderOutRows + End Get + Set(value As OrderOutRows) + SetPropertyValue("OrderOutRows", _OrderOutRows, value) + End Set + End Property + Property QTT_To As Double + Get + Return _QTT_To + End Get + Set(value As Double) + SetPropertyValue("QTT_To", _QTT_To, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDispose.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDispose.vb new file mode 100644 index 0000000..7ea42fd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDispose.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class OrderInToDispose + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) = True Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + ReadOnly Property OrderInTo As XPCollection(Of OrderInTo) + Get + If Me.CustomersFrom IsNot Nothing Then + Return New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderInRows.OrderInHeader.CustomersFrom.Oid=?", Me.CustomersFrom.Oid)) + Else + Return Nothing + End If + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.Designer.vb new file mode 100644 index 0000000..e01a0cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class OrderInToDisposeVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOrderToSetCustomerOrder = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOrderToIncoming = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aOrderToSetCustomerOrder + ' + Me.aOrderToSetCustomerOrder.AcceptButtonCaption = Nothing + Me.aOrderToSetCustomerOrder.CancelButtonCaption = Nothing + Me.aOrderToSetCustomerOrder.Caption = "aOrder To Set Customer Order" + Me.aOrderToSetCustomerOrder.ConfirmationMessage = Nothing + Me.aOrderToSetCustomerOrder.Id = "aOrderToSetCustomerOrder" + Me.aOrderToSetCustomerOrder.ImageName = Nothing + Me.aOrderToSetCustomerOrder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOrderToSetCustomerOrder.Shortcut = Nothing + Me.aOrderToSetCustomerOrder.Tag = Nothing + Me.aOrderToSetCustomerOrder.TargetObjectsCriteria = Nothing + Me.aOrderToSetCustomerOrder.TargetViewId = "OrderInToDispose_DetailView" + Me.aOrderToSetCustomerOrder.ToolTip = Nothing + Me.aOrderToSetCustomerOrder.TypeOfView = Nothing + ' + 'aOrderToIncoming + ' + Me.aOrderToIncoming.AcceptButtonCaption = Nothing + Me.aOrderToIncoming.CancelButtonCaption = Nothing + Me.aOrderToIncoming.Caption = "aOrder To Incoming" + Me.aOrderToIncoming.ConfirmationMessage = Nothing + Me.aOrderToIncoming.Id = "aOrderToIncoming" + Me.aOrderToIncoming.ImageName = Nothing + Me.aOrderToIncoming.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOrderToIncoming.Shortcut = Nothing + Me.aOrderToIncoming.Tag = Nothing + Me.aOrderToIncoming.TargetObjectsCriteria = Nothing + Me.aOrderToIncoming.TargetViewId = "OrderInToDispose_DetailView" + Me.aOrderToIncoming.ToolTip = Nothing + Me.aOrderToIncoming.TypeOfView = Nothing + + End Sub + Friend WithEvents aOrderToSetCustomerOrder As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOrderToIncoming As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.resx new file mode 100644 index 0000000..e35effc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 222, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb new file mode 100644 index 0000000..6fedc65 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersInTo/OrderInToDisposeVC.vb @@ -0,0 +1,143 @@ +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.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject + +Public Class OrderInToDisposeVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "OrderInToDispose_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderInToDispose_OrderInTo_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "OrderInToDispose_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderInToDispose_OrderInTo_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + + Private Sub aOrderToSetCustomerOrder_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOrderToSetCustomerOrder.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInToDispose As OrderInToDispose = TryCast(View.SelectedObjects(0), OrderInToDispose) + Dim _OrderInTo_ListEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInTo") + If _OrderInTo_ListEditor.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem, gy nem lehet rendelshez rendelni!") + + Dim _CS As New CollectionSource(_onew, GetType(OrderOutHeader)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("IsEditable=True and CustomersFrom=?", _onew.GetObject(_OrderInToDispose.CustomersFrom)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("OrderOutHeader_ListView_Select", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aOrderToSetCustomerOrder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOrderToSetCustomerOrder.Execute + '// A kijellt tteleket hozzrendeli egy l vagy egy j rendelshez + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutHeader As OrderOutHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), OrderOutHeader) + Dim _OrderInTo_ListEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInTo") + Dim _OrderOutRows As OrderOutRows = Nothing + Dim _OrderInTo As OrderInTo + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + If _OrderOutHeader IsNot Nothing Then + For Each _OrderInTo In _OrderInTo_ListEditor.ListView.SelectedObjects + If _OrderInTo.OrderOutRows Is Nothing Then + _OrderOutRows = _ocur.CreateObject(Of OrderOutRows)() + _OrderOutRows.OrderOutHeader = _ocur.GetObjectByKey(Of OrderOutHeader)(_OrderOutHeader.Oid) + _OrderOutRows.DiscountPercent = 0 + _OrderOutRows.ListPriceDEV = _OrderInTo.OrderInRows.Products.ListPriceInDEV + _OrderOutRows.ListPriceHUF = _OrderInTo.OrderInRows.Products.ListPriceInDEV + _OrderOutRows.NoteRows = "" + _OrderOutRows.NoteRowsPrivate = "" + _OrderOutRows.Products = _OrderInTo.OrderInRows.Products + _OrderOutRows.QTT = _OrderInTo.QTT_To + _OrderOutRows.QualityOption = _OrderInTo.OrderInRows.QualityOption + _OrderOutRows.RowIndex = _OrderOutRows.OrderOutHeader.OrderOutRows.Count 'Kicsit zavarosnak tnhet... :) + '_OrderOutRows.ShipmentOption=_OrderOutRows + _OrderOutRows.SumPriceDEV = Math.Round(_OrderOutRows.ListPriceDEV * _OrderOutRows.QTT, 2, MidpointRounding.AwayFromZero) + _OrderOutRows.SumPriceHUF = Math.Round(_OrderOutRows.ListPriceHUF * _OrderOutRows.QTT, 2, MidpointRounding.AwayFromZero) + '_OrderOutRows.UrgentOption + _OrderInTo.OrderOutRows = _OrderOutRows + End If + Next + _ocur.CommitChanges() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + Finally + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub + + Private Sub aOrderToIncoming_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOrderToIncoming.CustomizePopupWindowParams + + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInToDispose As OrderInToDispose = TryCast(View.SelectedObjects(0), OrderInToDispose) + Dim _OrderInTo_ListEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(View, DetailView).FindItem("OrderInTo") + If _OrderInTo_ListEditor.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem, gy nem lehet rendelshez rendelni!") + + Dim _CS As New CollectionSource(_onew, GetType(OrderOutHeader)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("IsEditable=True AND CustomersOrder=?", _ + TryCast(_OrderInTo_ListEditor.View.SelectedObjects(0), OrderInTo).OrderOutRows.OrderOutHeader.CustomersOrder) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("OrderOutHeader_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aOrderToIncoming_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOrderToIncoming.Execute + '// A kijellt tteleket hozzrendeli egy olyan lezrt rendelshez ami mg nem jtt meg s abbol lesz foglalva a ttel + Try + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutHeader.vb new file mode 100644 index 0000000..220d9ad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutHeader.vb @@ -0,0 +1,358 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions +Public Enum eOrderOutState + InProgress = 0 + Started = 1 + Closed = 2 +End Enum +'-- Kimenő megrendelés --------------------------------------------------------------------------------------------------- +Public Enum eOrderOutMainType + eFromProducts = 0 'Terméket rendelünk meg + eFromInstallation = 1 'Gyártmányt rendelünk meg + eFromServices = 2 'Szolgáltatást rendelünk meg +End Enum + +' _ +' _ +' _ +' _ +' _ +' _ + +' _ +' _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class OrderOutHeader + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _CustomersOrder As CustomersOrder 'Beszállító + Private _CustomersOrderDocuments As CustomersOrderDocuments + Private _Contacts As Contacts 'Beszállító kapcsolata + Private _DocumentNumber As String 'Rendelési szám + Private _DateCreated As Date 'kiállítás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _ObjectCreated As Date 'Objektum keletkezésének dátuma + Private _UserCreated As User + Private _PaymentOption As PaymentOption 'Fizetési opció + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + Private _CurrencyName As CurrencyName 'Deviza + Private _IsEditable As Boolean = True 'Szerkeszthető vagy végleges + Private _IsStorno As Boolean = False 'Stornózott + Private _OrderOutHeader As OrderOutHeader 'Melyik rendelés helyesbítése + Private _TotalNettoHUF As Double = 0 + Private _TotalNettoDEV As Double = 0 + Private _Note As String ' Megjegyzés + + '-- Non persistent objektumok + Private _row_Products As Products 'Termék, ami a szállítólevelen van + Private _row_QTT As Double 'Termék szállított mennyisége + Private _row_ListPriceHUF As Double 'Termék listaára HUF + Private _row_ListPriceDEV As Double 'Termék listaára DEV + Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateCreated = GetSQLTime(Session) + DateExecution = GetSQLTime(Session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = CustomersOrderDocuments.NumberGenerator.GetNewNumber(CustomersOrderDocuments.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + _ + Public ReadOnly Property OrderOutRows() As XPCollection(Of OrderOutRows) + Get + Return GetCollection(Of OrderOutRows)("OrderOutRows") + End Get + End Property + + + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property CustomersOrder() As CustomersOrder + Get + Return _CustomersOrder + End Get + Set(ByVal value As CustomersOrder) + SetPropertyValue("CustomersOrder", _CustomersOrder, value) + End Set + End Property + _ + _ + _ + Property CustomersOrderDocuments As CustomersOrderDocuments + Get + Return _CustomersOrderDocuments + End Get + Set(ByVal value As CustomersOrderDocuments) + SetPropertyValue("CustomersOrderDocuments", _CustomersOrderDocuments, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + Me.CurrencyName = value.CurrencyName + Else + CurrencyName = Nothing + + End If + End If + End Set + End Property + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + Property Contacts() As Contacts + Get + Return _Contacts + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + 'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + ' If value IsNot Nothing Then + ' Me.CustomersOrder = value.Customers + ' End If + 'End If + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property ObjectCreated() As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Public Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Public Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Public Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + _ + Public Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property OrderOutHeader As OrderOutHeader + Get + Return _OrderOutHeader + End Get + Set(value As OrderOutHeader) + SetPropertyValue("OrderOutHeader", _OrderOutHeader, value) + End Set + End Property + Public Property TotalNettoHUF() As Double + Get + Return _TotalNettoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalNettoHUF", _TotalNettoHUF, value) + End Set + End Property + Public Property TotalNettoDEV() As Double + Get + Return _TotalNettoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalNettoDEV", _TotalNettoDEV, value) + End Set + End Property + _ + Property Note() As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + + ' NonPersistent propertys ------------------------------- + _ + _ + _ + _ + Property row_Products() As Products + Get + Return _row_Products + End Get + Set(ByVal value As Products) + SetPropertyValue("row_Products", _row_Products, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + Me.row_ListPriceHUF = value.ListPriceInHUF + Me.row_ListPriceDEV = value.ListPriceInDEV + End If + End If + End Set + End Property + _ + _ + _ + Property row_QTT As Double + Get + Return _row_QTT + End Get + Set(value As Double) + SetPropertyValue("row_QTT", _row_QTT, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceHUF As Double + Get + Return _row_ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value) + End Set + End Property + _ + _ + _ + Property row_ListPriceDEV As Double + Get + Return _row_ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value) + End Set + End Property + _ + _ + _ + Property row_DiscountPercent As Double + Get + Return _row_DiscountPercent + End Get + Set(value As Double) + SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value) + End Set + End Property + _ + ReadOnly Property OrderInTo As XPCollection(Of OrderInTo) + Get + Return New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderOutRows is NULL")) + End Get + End Property + _ + ReadOnly Property DeliveryNoteInRows As XPCollection(Of DeliveryNoteInRows) + Get + Return New XPCollection(Of DeliveryNoteInRows)(Session, CriteriaOperator.Parse("OrderOutRows.OrderOutHeader=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutRows.vb new file mode 100644 index 0000000..57aeedc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutRows.vb @@ -0,0 +1,257 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ +Public Class OrderOutRows + Inherits BaseObject + Private _RowIndex As Long 'Sor index + Private _OrderOutHeader As OrderOutHeader 'Rendelés fejléc + Private _ShipmentOption As ShipmentOption 'Szállítási opció + Private _QualityOption As QualityOption 'Minőségi opció + Private _UrgentOption As UrgentOption ' Sürgősségi opció + Private _Products As Products 'Termék + Private _QTT As Double 'Rendelt mennyiség + Private _QTT_DeliveryNoteIn As Double = 0 'Eddig betárolt mennyiség + Private _ListPriceHUF As Double 'Termék listaára HUF + Private _ListPriceDEV As Double 'Termék listaára DEV + Private _SumPriceHUF As Double = 0 + Private _SumPriceDEV As Double = 0 + Private _DiscountPercent As Double 'Termék ár kedvezmény %-ban + Private _NoteRows As String 'Sor megjegyzés ami felkerül a rendelésre + Private _NoteRowsPrivate As String 'Belső megjegyzés, ami nem kerül fel a nyomtatványra + Private _OrderOutRows As OrderOutRows 'Eredeti rendelési sor (csak helyesbítésnél érdekes) + Private _IsCorrigendum As Boolean = False 'Helyesbített a sor ? + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + RecalculateSum() + If OrderOutRows IsNot Nothing Then + OrderOutRows.IsCorrigendum = True + End If + End Sub + Private Sub RecalculateSum() + SumPriceHUF = QTT * ListPriceHUF + SumPriceDEV = QTT * ListPriceDEV + If Me.DiscountPercent <> 0 Then + Me.SumPriceHUF = Me.SumPriceHUF - (Me.SumPriceHUF * Me.DiscountPercent / 100) + Me.SumPriceDEV = Me.SumPriceDEV - (Me.SumPriceDEV * Me.DiscountPercent / 100) + End If + End Sub + Public Sub AddRows(ByVal _p_OrderOutHeader As OrderOutHeader, Optional _p_OrderOutRows As OrderOutRows = Nothing) + ' Sor hozzáadása a fejléchez, valamint árkalkuláció a sor termékére + Me.OrderOutHeader = _p_OrderOutHeader + Me.OrderOutRows = _p_OrderOutRows + Me.Products = _p_OrderOutHeader.row_Products + Me.ListPriceDEV = _p_OrderOutHeader.row_ListPriceDEV + Me.ListPriceHUF = _p_OrderOutHeader.row_ListPriceHUF + Me.DiscountPercent = _p_OrderOutHeader.row_DiscountPercent + Me.QTT = _p_OrderOutHeader.row_QTT + If _p_OrderOutHeader.OrderOutRows.Count = 0 Then + Me.RowIndex = 1 + Else + Me.RowIndex = _p_OrderOutHeader.OrderOutRows.Count + End If + End Sub + Public Sub RemoveRows(ByVal _p_OrderOutHeader As OrderOutHeader) + If Me.OrderOutHeader.IsEditable = True Then + For Each _OrderOutRows As OrderOutRows In _p_OrderOutHeader.OrderOutRows + If _OrderOutRows.RowIndex > Me.RowIndex Then + _OrderOutRows.RowIndex -= 1 + End If + Next + Me.Delete() + Me.Save() + Session.CommitTransaction() + End If + End Sub + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property OrderOutHeader As OrderOutHeader + Get + Return _OrderOutHeader + End Get + Set(ByVal value As OrderOutHeader) + SetPropertyValue("OrderOutHeader", _OrderOutHeader, value) + End Set + End Property + Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property UrgentOption() As UrgentOption + Get + Return _UrgentOption + End Get + Set(ByVal value As UrgentOption) + SetPropertyValue("UrgentOption", _UrgentOption, value) + End Set + End Property + _ + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.SumPriceHUF = value * Me.ListPriceHUF + Me.SumPriceDEV = value * Me.ListPriceDEV + If Me.DiscountPercent <> 0 Then + Me.SumPriceHUF = Me.SumPriceHUF - (Me.SumPriceHUF * Me.DiscountPercent / 100) + Me.SumPriceDEV = Me.SumPriceDEV - (Me.SumPriceDEV * Me.DiscountPercent / 100) + End If + End If + End Set + End Property + Property QTT_DeliveryNoteIn As Double + Get + Return _QTT_DeliveryNoteIn + End Get + Set(value As Double) + SetPropertyValue("QTT_DeliveryNoteIn", _QTT_DeliveryNoteIn, value) + End Set + End Property + _ + Property ListPriceHUF() As Double + Get + Return _ListPriceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + + End Set + End Property + _ + Property ListPriceDEV() As Double + Get + Return _ListPriceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + ' _ + Property DiscountPercent() As Double + Get + Return _DiscountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPercent", _DiscountPercent, value) + End Set + End Property + Property NoteRows() As String + Get + Return _NoteRows + End Get + Set(ByVal value As String) + SetPropertyValue("NoteRows", _NoteRows, value) + End Set + End Property + Property NoteRowsPrivate() As String + Get + Return _NoteRowsPrivate + End Get + Set(ByVal value As String) + SetPropertyValue("NoteRowsPrivate", _NoteRowsPrivate, value) + End Set + End Property + Property OrderOutRows As OrderOutRows + Get + Return _OrderOutRows + End Get + Set(value As OrderOutRows) + SetPropertyValue("OrderOutRows", _OrderOutRows, value) + End Set + End Property + Property IsCorrigendum As Boolean + Get + Return _IsCorrigendum + End Get + Set(value As Boolean) + SetPropertyValue("IsCorrigendum", _IsCorrigendum, value) + End Set + End Property + + ReadOnly Property QTT_Original As Double + Get + If OrderOutRows IsNot Nothing Then + Return OrderOutRows.QTT + Else + Return 0 + End If + End Get + End Property + _ + _ + _ + ReadOnly Property DisplayName As String + Get + Dim _DisplayName As String = "" + If Me.Products IsNot Nothing Then + _DisplayName = Me.Products.ProductNumber.ToString & ", " & Me.Products.ShortName.ToString + If OrderOutHeader IsNot Nothing Then + _DisplayName += ", " & OrderOutHeader.DocumentNumber + End If + End If + Return _DisplayName + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockHeader.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockHeader.vb new file mode 100644 index 0000000..be01a48 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockHeader.vb @@ -0,0 +1,128 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eOrderOutStockQueryType + eNotSet = 0 + eProduct = 1 'Teljes terméktörzs + eStorageComputed = 2 'Valaha raktáron lévő tételek + eInMinimum = 3 'Minimumkészleten, vagy az alatt +End Enum + _ + _ + _ +Public Class OrderOutStockHeader 'Raktárfeltöltő rendelés elemző rész + Inherits BaseObject + + Private _OrderOutStockQueryType As eOrderOutStockQueryType + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _Criterion As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + Me.OrderOutStockQueryType = eOrderOutStockQueryType.eNotSet + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property OrderOutStockQueryType As eOrderOutStockQueryType + Get + Return _OrderOutStockQueryType + End Get + Set(value As eOrderOutStockQueryType) + SetPropertyValue("OrderOutStockQueryType", _OrderOutStockQueryType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Private ReadOnly Property ObjectType() As Type + Get + Select Case Me.OrderOutStockQueryType + Case eOrderOutStockQueryType.eInMinimum + Return GetType(StorageComputed) + Case eOrderOutStockQueryType.eProduct + Return GetType(Products) + Case eOrderOutStockQueryType.eStorageComputed + Return GetType(StorageComputed) + Case Else + Return GetType(Products) + End Select + + End Get + End Property + _ + Public Property Criterion() As String + Get + Return _Criterion + End Get + Set(ByVal value As String) + SetPropertyValue("Criterion", _Criterion, value) + End Set + End Property + + + _ + ReadOnly Property OrderOutStockRows As XPCollection(Of OrderOutStockRows) + Get + Return GetCollection(Of OrderOutStockRows)("OrderOutStockRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockRows.vb new file mode 100644 index 0000000..5fac5f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockRows.vb @@ -0,0 +1,169 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class OrderOutStockRows + Inherits BaseObject + + Private _OrderOutStockHeader As OrderOutStockHeader + Private _Products As Products + Private _StorageComputed As StorageComputed + Private _StorageOutCirculation_PrevYear As StorageOutCirculation 'Fogyási mátrix előző év + Private _StorageOutCirculation_CurrentYear As StorageOutCirculation 'Fogyási mátrix aktuális év + Private _QTT_Minimum As Double 'Minimum mennyiség + Private _QTT_Maximum As Double 'Feltöltés erre a mennyiségre + Private _QTT_Arrived As Double 'Érkező tétel + Private _QTT_OrderOut As Double 'Le nem zárt rendelési tétel + Private _QTT_Offer As Double 'Ajánlott rendelési mennyiség + Private _QTT_Process As Double 'Ezzel a mennyiséggel készíti majd el a rendelést + Private _QTT_Offer_Minimum As Double 'Minimum mennyiség ajánlása + Private _QTT_Offer_Maximum As Double 'Feltöltés erre a mennyiségre ajánlása + Private _CustomersOrderPriority1 As CustomersOrderPriority 'Elsődleges beszállító + Private _CustomersOrderPriority2 As CustomersOrderPriority 'Másodlagos beszállító + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property OrderOutStockHeader As OrderOutStockHeader + Get + Return _OrderOutStockHeader + End Get + Set(value As OrderOutStockHeader) + SetPropertyValue("OrderOutStockHeader", _OrderOutStockHeader, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property StorageComputed As StorageComputed + Get + Return _StorageComputed + End Get + Set(value As StorageComputed) + SetPropertyValue("StorageComputed", _StorageComputed, value) + End Set + End Property + Property StorageOutCirculation_PrevYear As StorageOutCirculation + Get + Return _StorageOutCirculation_PrevYear + End Get + Set(value As StorageOutCirculation) + SetPropertyValue("StorageOutCirculation_PrevYear", _StorageOutCirculation_PrevYear, value) + End Set + End Property + Property StorageOutCirculation_CurrentYear As StorageOutCirculation + Get + Return _StorageOutCirculation_CurrentYear + End Get + Set(value As StorageOutCirculation) + SetPropertyValue("StorageOutCirculation_CurrentYear", _StorageOutCirculation_CurrentYear, value) + End Set + End Property + Property QTT_Minimum As Double + Get + Return _QTT_Minimum + End Get + Set(value As Double) + SetPropertyValue("QTT_Minimum", _QTT_Minimum, value) + End Set + End Property + Property QTT_Maximum As Double + Get + Return _QTT_Maximum + End Get + Set(value As Double) + SetPropertyValue("QTT_Maximum", _QTT_Maximum, value) + End Set + End Property + Property QTT_Arrived As Double + Get + Return _QTT_Arrived + End Get + Set(value As Double) + SetPropertyValue("QTT_Arrived", _QTT_Arrived, value) + End Set + End Property + Property QTT_OrderOut As Double + Get + Return _QTT_OrderOut + End Get + Set(value As Double) + SetPropertyValue("QTT_OrderOut", _QTT_OrderOut, value) + End Set + End Property + Property QTT_Offer As Double + Get + Return _QTT_Offer + End Get + Set(value As Double) + SetPropertyValue("QTT_Offer", _QTT_Offer, value) + End Set + End Property + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + Property QTT_Offer_Minimum As Double + Get + Return _QTT_Offer_Minimum + End Get + Set(value As Double) + SetPropertyValue("QTT_Offer_Minimum", _QTT_Offer_Minimum, value) + End Set + End Property + Property QTT_Offer_Maximum As Double + Get + Return _QTT_Offer_Maximum + End Get + Set(value As Double) + SetPropertyValue("QTT_Offer_Maximum", _QTT_Offer_Maximum, value) + End Set + End Property + Property CustomersOrderPriority1 As CustomersOrderPriority + Get + Return _CustomersOrderPriority1 + End Get + Set(value As CustomersOrderPriority) + SetPropertyValue("CustomersOrderPriority1", _CustomersOrderPriority1, value) + End Set + End Property + Property CustomersOrderPriority2 As CustomersOrderPriority + Get + Return _CustomersOrderPriority2 + End Get + Set(value As CustomersOrderPriority) + SetPropertyValue("CustomersOrderPriority2", _CustomersOrderPriority2, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb new file mode 100644 index 0000000..9b64cea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.Designer.vb @@ -0,0 +1,85 @@ +Partial Class OrderOutStockVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateOrderOutStock = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateOrderfromOrderOutStock = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewStorageMoveInfo_OrderOutStockRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateOrderOutStock + ' + Me.aGenerateOrderOutStock.Caption = "aGenerate Order Out Stock" + Me.aGenerateOrderOutStock.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateOrderOutStock.Id = "aGenerateOrderOutStock" + Me.aGenerateOrderOutStock.ImageName = Nothing + Me.aGenerateOrderOutStock.Shortcut = Nothing + Me.aGenerateOrderOutStock.Tag = Nothing + Me.aGenerateOrderOutStock.TargetObjectsCriteria = Nothing + Me.aGenerateOrderOutStock.TargetObjectType = GetType(SISBusiness.[Module].OrderOutStockHeader) + Me.aGenerateOrderOutStock.TargetViewId = Nothing + Me.aGenerateOrderOutStock.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateOrderOutStock.ToolTip = Nothing + Me.aGenerateOrderOutStock.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aCreateOrderfromOrderOutStock + ' + Me.aCreateOrderfromOrderOutStock.Caption = "aCreate Orderfrom Order Out Stock" + Me.aCreateOrderfromOrderOutStock.ConfirmationMessage = Nothing + Me.aCreateOrderfromOrderOutStock.Id = "aCreateOrderfromOrderOutStock" + Me.aCreateOrderfromOrderOutStock.ImageName = Nothing + Me.aCreateOrderfromOrderOutStock.Shortcut = Nothing + Me.aCreateOrderfromOrderOutStock.Tag = Nothing + Me.aCreateOrderfromOrderOutStock.TargetObjectsCriteria = Nothing + Me.aCreateOrderfromOrderOutStock.TargetObjectType = GetType(SISBusiness.[Module].OrderOutStockHeader) + Me.aCreateOrderfromOrderOutStock.TargetViewId = Nothing + Me.aCreateOrderfromOrderOutStock.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCreateOrderfromOrderOutStock.ToolTip = Nothing + Me.aCreateOrderfromOrderOutStock.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aViewStorageMoveInfo_OrderOutStockRows + ' + Me.aViewStorageMoveInfo_OrderOutStockRows.Caption = "aViewStorageMoveInfo_OrderOutStockRows" + Me.aViewStorageMoveInfo_OrderOutStockRows.ConfirmationMessage = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.Id = "aViewStorageMoveInfo_OrderOutStockRows" + Me.aViewStorageMoveInfo_OrderOutStockRows.ImageName = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewStorageMoveInfo_OrderOutStockRows.Shortcut = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.Tag = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.TargetObjectsCriteria = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.TargetObjectType = GetType(SISBusiness.[Module].OrderOutStockRows) + Me.aViewStorageMoveInfo_OrderOutStockRows.TargetViewId = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewStorageMoveInfo_OrderOutStockRows.ToolTip = Nothing + Me.aViewStorageMoveInfo_OrderOutStockRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGenerateOrderOutStock As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateOrderfromOrderOutStock As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewStorageMoveInfo_OrderOutStockRows As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.resx new file mode 100644 index 0000000..b1c2ed4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 56 + + + 439, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb new file mode 100644 index 0000000..a89f3ab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutStockVC.vb @@ -0,0 +1,111 @@ +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 + +Public Class OrderOutStockVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aGenerateOrderOutStock_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateOrderOutStock.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _OrderOutStockHeader As OrderOutStockHeader = _uow.GetObjectByKey(Of OrderOutStockHeader)(TryCast(View.SelectedObjects(0), OrderOutStockHeader).Oid) + Dim _OrderOutStockRows As OrderOutStockRows + Dim I As Long = 0 + _uow.Delete(_OrderOutStockHeader.OrderOutStockRows) + + If _OrderOutStockHeader.OrderOutStockQueryType = eOrderOutStockQueryType.eProduct Then + Dim _Products_Collection As New XPCollection(Of Products)(_uow, CriteriaOperator.Parse("1=1")) + Dim _Products As Products + _Products_Collection.Criteria = _uow.ParseCriteria(_OrderOutStockHeader.Criterion) + + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products In _Products_Collection + RaiseEvent DoWork() + _OrderOutStockRows = New OrderOutStockRows(_uow) + _OrderOutStockRows.OrderOutStockHeader = _OrderOutStockHeader + _OrderOutStockRows.Products = _Products + For Each _COP In _OrderOutStockRows.Products.CustomersOrderPriority + If _COP.RowIndex = 1 Then + _OrderOutStockRows.CustomersOrderPriority1 = _COP + End If + If _COP.RowIndex = 2 Then + _OrderOutStockRows.CustomersOrderPriority2 = _COP + End If + Next + I += 1 + If I Mod 1000 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + End If + + If _OrderOutStockHeader.OrderOutStockQueryType = eOrderOutStockQueryType.eStorageComputed Then + Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_uow, CriteriaOperator.Parse("1=1")) + Dim _StorageComputed As StorageComputed + + _StorageComputed_Collection.Criteria = _uow.ParseCriteria(_OrderOutStockHeader.Criterion) + + RaiseEvent InitWork(1, 1, _StorageComputed_Collection.Count) + For Each _StorageComputed In _StorageComputed_Collection + RaiseEvent DoWork() + _OrderOutStockRows = New OrderOutStockRows(_uow) + _OrderOutStockRows.OrderOutStockHeader = _OrderOutStockHeader + _OrderOutStockRows.Products = _StorageComputed.Products + _OrderOutStockRows.StorageComputed = _StorageComputed + _OrderOutStockRows.StorageOutCirculation_CurrentYear = _uow.FindObject(Of StorageOutCirculation)(_uow.ParseCriteria("Products=? and YearExecution=?", _StorageComputed.Products, Year(GetSQLTime(_uow)))) + _OrderOutStockRows.StorageOutCirculation_CurrentYear = _uow.FindObject(Of StorageOutCirculation)(_uow.ParseCriteria("Products=? and YearExecution=?", _StorageComputed.Products, Year(GetSQLTime(_uow)) - 1)) + For Each _COP In _OrderOutStockRows.Products.CustomersOrderPriority + If _COP.RowIndex = 0 Then + _OrderOutStockRows.CustomersOrderPriority1 = _COP + End If + If _COP.RowIndex = 1 Then + _OrderOutStockRows.CustomersOrderPriority2 = _COP + End If + Next + I += 1 + If I Mod 1000 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + End If + + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + + Private Sub aCreateOrderfromOrderOutStock_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateOrderfromOrderOutStock.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + End Sub + + Private Sub aViewStorageMoveInfo_OrderOutStockRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_OrderOutStockRows.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderOutStockRows As OrderOutStockRows = TryCast(View.SelectedObjects(0), OrderOutStockRows) + Dim _StorageMoveInfo As StorageMoveInfo + If _OrderOutStockRows IsNot Nothing Then + _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)() + _StorageMoveInfo.Products = _onew.GetObject(_OrderOutStockRows.Products) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb new file mode 100644 index 0000000..02eadae --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.Designer.vb @@ -0,0 +1,254 @@ +Partial Class OrderOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStornoOrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeOrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCorrOrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOrderOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateDeliveryNoteIn_From_OrderOut = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloneOrderOutNEW = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBackToRowEdit_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCheckOrderOutRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aToTable_OrderOut + ' + Me.aToTable_OrderOut.Caption = "Add row" + Me.aToTable_OrderOut.Category = "aToTable_OrderOut" + Me.aToTable_OrderOut.ConfirmationMessage = Nothing + Me.aToTable_OrderOut.Id = "aToTable_OrderOut" + Me.aToTable_OrderOut.ImageName = "table_add" + Me.aToTable_OrderOut.Shortcut = Nothing + Me.aToTable_OrderOut.Tag = Nothing + Me.aToTable_OrderOut.TargetObjectsCriteria = Nothing + Me.aToTable_OrderOut.TargetViewId = "" + Me.aToTable_OrderOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_OrderOut.ToolTip = Nothing + Me.aToTable_OrderOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_OrderOut + ' + Me.aToTableD_OrderOut.Caption = "Delete row" + Me.aToTableD_OrderOut.Category = "aToTableD_OrderOut" + Me.aToTableD_OrderOut.ConfirmationMessage = Nothing + Me.aToTableD_OrderOut.Id = "aToTableD_OrderOut" + Me.aToTableD_OrderOut.ImageName = "table_delete" + Me.aToTableD_OrderOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_OrderOut.Shortcut = Nothing + Me.aToTableD_OrderOut.Tag = Nothing + Me.aToTableD_OrderOut.TargetObjectsCriteria = Nothing + Me.aToTableD_OrderOut.TargetViewId = "" + Me.aToTableD_OrderOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_OrderOut.ToolTip = Nothing + Me.aToTableD_OrderOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aUp_OrderOut + ' + Me.aUp_OrderOut.Caption = "Up" + Me.aUp_OrderOut.Category = "RecordsNavigation" + Me.aUp_OrderOut.ConfirmationMessage = Nothing + Me.aUp_OrderOut.Id = "aUp_OrderOut" + Me.aUp_OrderOut.ImageName = "arrow_up_green" + Me.aUp_OrderOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_OrderOut.Shortcut = Nothing + Me.aUp_OrderOut.Tag = Nothing + Me.aUp_OrderOut.TargetObjectsCriteria = Nothing + Me.aUp_OrderOut.TargetViewId = Nothing + Me.aUp_OrderOut.ToolTip = Nothing + Me.aUp_OrderOut.TypeOfView = Nothing + ' + 'aDown_OrderOut + ' + Me.aDown_OrderOut.Caption = "Down" + Me.aDown_OrderOut.Category = "RecordsNavigation" + Me.aDown_OrderOut.ConfirmationMessage = Nothing + Me.aDown_OrderOut.Id = "aDown_OrderOut" + Me.aDown_OrderOut.ImageName = "arrow_down_green" + Me.aDown_OrderOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_OrderOut.Shortcut = Nothing + Me.aDown_OrderOut.Tag = Nothing + Me.aDown_OrderOut.TargetObjectsCriteria = Nothing + Me.aDown_OrderOut.TargetViewId = Nothing + Me.aDown_OrderOut.ToolTip = Nothing + Me.aDown_OrderOut.TypeOfView = Nothing + ' + 'aStornoOrderOut + ' + Me.aStornoOrderOut.Caption = "aStorno Order Out" + Me.aStornoOrderOut.ConfirmationMessage = Nothing + Me.aStornoOrderOut.Id = "aStornoOrderOut" + Me.aStornoOrderOut.ImageName = "document_delete" + Me.aStornoOrderOut.Shortcut = Nothing + Me.aStornoOrderOut.Tag = Nothing + Me.aStornoOrderOut.TargetObjectsCriteria = Nothing + Me.aStornoOrderOut.TargetViewId = "" + Me.aStornoOrderOut.ToolTip = Nothing + Me.aStornoOrderOut.TypeOfView = Nothing + ' + 'aFinalizeOrderOut + ' + Me.aFinalizeOrderOut.Caption = "aFinalize Order Out" + Me.aFinalizeOrderOut.ConfirmationMessage = Nothing + Me.aFinalizeOrderOut.Id = "aFinalizeOrderOut" + Me.aFinalizeOrderOut.ImageName = Nothing + Me.aFinalizeOrderOut.Shortcut = Nothing + Me.aFinalizeOrderOut.Tag = Nothing + Me.aFinalizeOrderOut.TargetObjectsCriteria = Nothing + Me.aFinalizeOrderOut.TargetViewId = "" + Me.aFinalizeOrderOut.ToolTip = Nothing + Me.aFinalizeOrderOut.TypeOfView = Nothing + ' + 'aCorrOrderOut + ' + Me.aCorrOrderOut.Caption = "Order corr" + Me.aCorrOrderOut.ConfirmationMessage = Nothing + Me.aCorrOrderOut.Id = "aCorrOrderOut" + Me.aCorrOrderOut.ImageName = "Action_Clear" + Me.aCorrOrderOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCorrOrderOut.Shortcut = Nothing + Me.aCorrOrderOut.Tag = Nothing + Me.aCorrOrderOut.TargetObjectsCriteria = Nothing + Me.aCorrOrderOut.TargetViewId = "OrderOutHeader_ListView" + Me.aCorrOrderOut.ToolTip = Nothing + Me.aCorrOrderOut.TypeOfView = Nothing + ' + 'aOrderOutPrint + ' + Me.aOrderOutPrint.Caption = "Print document" + Me.aOrderOutPrint.Category = "View" + Me.aOrderOutPrint.ConfirmationMessage = Nothing + Me.aOrderOutPrint.Id = "aOrderOutPrint" + Me.aOrderOutPrint.ImageName = "Action_Printing_Print" + Me.aOrderOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOrderOutPrint.Shortcut = Nothing + Me.aOrderOutPrint.Tag = Nothing + Me.aOrderOutPrint.TargetObjectsCriteria = Nothing + Me.aOrderOutPrint.TargetViewId = "OrderOutHeader_ListView" + Me.aOrderOutPrint.ToolTip = Nothing + Me.aOrderOutPrint.TypeOfView = Nothing + ' + 'aGenerateDeliveryNoteIn_From_OrderOut + ' + Me.aGenerateDeliveryNoteIn_From_OrderOut.AcceptButtonCaption = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.CancelButtonCaption = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.Caption = "Create DeliveryNoteIn" + Me.aGenerateDeliveryNoteIn_From_OrderOut.Category = "ObjectsCreation" + Me.aGenerateDeliveryNoteIn_From_OrderOut.ConfirmationMessage = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.Id = "aGenerateDeliveryNoteIn_From_OrderOut" + Me.aGenerateDeliveryNoteIn_From_OrderOut.ImageName = "box_into" + Me.aGenerateDeliveryNoteIn_From_OrderOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateDeliveryNoteIn_From_OrderOut.Shortcut = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.Tag = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.TargetObjectsCriteria = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.TargetViewId = "" + Me.aGenerateDeliveryNoteIn_From_OrderOut.ToolTip = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOut.TypeOfView = Nothing + ' + 'aCloneOrderOutNEW + ' + Me.aCloneOrderOutNEW.AcceptButtonCaption = "Klnozs" + Me.aCloneOrderOutNEW.CancelButtonCaption = Nothing + Me.aCloneOrderOutNEW.Caption = "Clone selected OrderOut" + Me.aCloneOrderOutNEW.Category = "RecordEdit" + Me.aCloneOrderOutNEW.ConfirmationMessage = Nothing + Me.aCloneOrderOutNEW.Id = "aCloneOrderOut" + Me.aCloneOrderOutNEW.ImageName = Nothing + Me.aCloneOrderOutNEW.Shortcut = Nothing + Me.aCloneOrderOutNEW.Tag = Nothing + Me.aCloneOrderOutNEW.TargetObjectsCriteria = Nothing + Me.aCloneOrderOutNEW.TargetViewId = "OrderOutHeader_ListView" + Me.aCloneOrderOutNEW.ToolTip = "A kivlasztott rendels klnozsa" + Me.aCloneOrderOutNEW.TypeOfView = Nothing + ' + 'aBackToRowEdit_OrderOut + ' + Me.aBackToRowEdit_OrderOut.Caption = "Edit row" + Me.aBackToRowEdit_OrderOut.Category = "aBackToRowEdit_OrderOut" + Me.aBackToRowEdit_OrderOut.ConfirmationMessage = Nothing + Me.aBackToRowEdit_OrderOut.Id = "aBackToRowEdit_OrderOut" + Me.aBackToRowEdit_OrderOut.ImageName = Nothing + Me.aBackToRowEdit_OrderOut.Shortcut = Nothing + Me.aBackToRowEdit_OrderOut.Tag = Nothing + Me.aBackToRowEdit_OrderOut.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_OrderOut.TargetViewId = "" + Me.aBackToRowEdit_OrderOut.ToolTip = Nothing + Me.aBackToRowEdit_OrderOut.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aCheckOrderOutRows + ' + Me.aCheckOrderOutRows.Caption = "aCheck Order Out Rows" + Me.aCheckOrderOutRows.ConfirmationMessage = Nothing + Me.aCheckOrderOutRows.Id = "aCheckOrderOutRows" + Me.aCheckOrderOutRows.ImageName = Nothing + Me.aCheckOrderOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCheckOrderOutRows.Shortcut = Nothing + Me.aCheckOrderOutRows.Tag = Nothing + Me.aCheckOrderOutRows.TargetObjectsCriteria = Nothing + Me.aCheckOrderOutRows.TargetObjectType = GetType(SISBusiness.[Module].OrderOutRows) + Me.aCheckOrderOutRows.TargetViewId = Nothing + Me.aCheckOrderOutRows.ToolTip = Nothing + Me.aCheckOrderOutRows.TypeOfView = Nothing + ' + 'aGenerateDeliveryNoteIn_From_OrderOutForControlListView + ' + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.AcceptButtonCaption = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.CancelButtonCaption = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Caption = "Create DeliveryNoteIn" + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Category = "ObjectsCreation" + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.ConfirmationMessage = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Id = "aGenerateDeliveryNoteIn_From_OrderOutForControlListView" + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.ImageName = "box_into" + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Shortcut = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Tag = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.TargetObjectsCriteria = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.TargetViewId = "" + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.ToolTip = Nothing + Me.aGenerateDeliveryNoteIn_From_OrderOutForControlListView.TypeOfView = Nothing + + End Sub + Friend WithEvents aToTable_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStornoOrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeOrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCorrOrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOrderOutPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateDeliveryNoteIn_From_OrderOut As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloneOrderOutNEW As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBackToRowEdit_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCheckOrderOutRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateDeliveryNoteIn_From_OrderOutForControlListView As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.resx new file mode 100644 index 0000000..a798898 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 446 + + + 17, 173 + + + 17, 407 + + + 17, 290 + + + 17, 368 + + + 17, 329 + + + 17, 251 + + + 17, 212 + + + 17, 134 + + + 17, 56 + + + 175, 56 + + + 685, 272 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb new file mode 100644 index 0000000..e7a05e5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/OrderOutVC.vb @@ -0,0 +1,803 @@ +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.Data.Filtering +Imports DevExpress.Xpo +Imports System.Linq +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.SystemModule + +Public Class OrderOutVC + Inherits DevExpress.ExpressApp.ViewController + Private _OrderOutRows_Corr As OrderOutRows + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of OrderOutVC)().aUp_OrderOut.Active.SetItemValue("", False) ' -- Kimenõ megrendelés sorainak a row indexét csökkentjük + Frame.GetController(Of OrderOutVC)().aDown_OrderOut.Active.SetItemValue("", False) ' -- Kimenõ megrendelés sorainak a row indexét növeljük + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False) ' -- Véglegesít egy bejövõ megrendelést + Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False) ' -- Stornírozz egy bejövõ megrendelést + Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False) ' -- Sor hozzáadása + Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False) ' -- Sor törlése + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", False) ' -- Létrehoz egy bejövő szállítólevelet kimenő megrendelésből + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False) + '--------- LISTVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aUp_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét csökkentjük + Frame.GetController(Of OrderOutVC)().aDown_OrderOut.Active.SetItemValue("", True) ' -- Kimenõ megrendelés sorainak a row indexét növeljük + End If + If View.Id = "OrderOutHeader_ListView_Editable" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderOutHeader_ListView" Then + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderOutRows_ListView_Table" Then + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", True) + End If + If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderOutHeader_OrderInTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + + '--------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "OrderOutHeader_DetailView" Then + Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", True) ' -- Sor hozzáadása + Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", True) ' -- Sor törlése + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + + If _OrderOutHeader.IsEditable = True And _OrderOutHeader.IsStorno = False Then + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", True) + Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", False) + End If + If _OrderOutHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False) + End If + If _OrderOutHeader.IsStorno = False AndAlso _OrderOutHeader.IsEditable = False Then + Frame.GetController(Of OrderOutVC)().aStornoOrderOut.Active.SetItemValue("", True) + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False) + End If + End If + + If View.Id = "OrderOutHeader_DetailView_Corrigendum" Then + Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", True) + Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", True) + Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", True) + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", True) + + End If + If View.Id = "OrderOutHeader_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + If View.Id = "OrderOutRows_ListView_Control" Then + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + If View.Id = "OrderOutHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + + End If + + If View.Id = "OrderOutHeader_OrderOutRows_ListView" Then '--- Kimenõ megrendelések sorai + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + + If View.Id = "OrderOutHeader_ListView" Then + Frame.GetController(Of OrderOutVC)().aGenerateDeliveryNoteIn_From_OrderOut.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then + ' RemoveHandler View.SelectionChanged, AddressOf OrderOutHeader_OrderOutRows_ListView_Corrigendum_SelectionChanged + End If + + If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then + Frame.GetController(Of OrderOutVC)().aToTable_OrderOut.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aToTableD_OrderOut.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aBackToRowEdit_OrderOut.Active.SetItemValue("", False) + Frame.GetController(Of OrderOutVC)().aFinalizeOrderOut.Active.SetItemValue("", False) + End If + If View.Id = "OrderOutHeader_OrderOutRows_ListView_Corrigendum" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderOutHeader_ListView_Editable" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "OrderOutHeader_OrderInTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + End Sub + '--------- Kimenõ megrendelések akciói --------------------------------------------------------------------------------------------------------------------------------------- + Private Sub aToTableD_OrderOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_OrderOut.Execute + Dim _OrderOutRows As OrderOutRows + Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + Dim _OrderOutRows_ListEditor As ListPropertyEditor + + _OrderOutRows_ListEditor = TryCast(View, DetailView).FindItem("OrderOutRows") + For Each _OrderOutRows In _OrderOutRows_ListEditor.ListView.SelectedObjects + _OrderOutRows.RemoveRows(_OrderOutHeader) + Next + _OrderOutHeader.Save() + + View.Refresh() + End Sub + Private Sub aToTable_OrderOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_OrderOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutHeader As OrderOutHeader = CType(e.SelectedObjects(0), OrderOutHeader) + Dim _OrderOutRows As OrderOutRows = _ocur.CreateObject(Of OrderOutRows)() + Dim _OrderOutRows_Item As ViewItem = TryCast(View, DetailView).FindItem("@OrderOutHeader.OrderOutRows") + + If View.Id = "OrderOutHeader_DetailView_Corrigendum" Then + If _OrderOutRows_Item IsNot Nothing Then + If TryCast(_OrderOutRows_Item, ListPropertyEditor) IsNot Nothing Then + If TryCast(_OrderOutRows_Item, ListPropertyEditor).ListView.SelectedObjects.Count > 0 Then + _OrderOutRows_Corr = TryCast(_OrderOutRows_Item, ListPropertyEditor).ListView.SelectedObjects(0) + End If + End If + End If + If _OrderOutRows_Corr Is Nothing Then + ThrowNewException("Nincs kiválasztva a helyesbítendő sor !") + Exit Sub + End If + End If + _OrderOutRows.AddRows(_OrderOutHeader, _OrderOutRows_Corr) + If _OrderOutRows.OrderOutRows Is Nothing And _OrderOutHeader.row_QTT <= 0 Then + ThrowNewException("A mennyiség értéke nem lehet nulla!") + Else + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + + + _ocur.CommitChanges() + _OrderOutRows_Corr = Nothing + + _OrderOutHeader.row_DiscountPercent = 0 + _OrderOutHeader.row_ListPriceDEV = 0 + _OrderOutHeader.row_ListPriceHUF = 0 + _OrderOutHeader.row_Products = Nothing + _OrderOutHeader.row_QTT = 0 + + End If + + View.Refresh() + End Sub + Private Sub aDown_OrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OrderOut.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutRowsSelected As OrderOutRows = TryCast(View.SelectedObjects(0), OrderOutRows) + If _OrderOutRowsSelected Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen sor sem!") + Dim _OrderOutHeader As OrderOutHeader = _OrderOutRowsSelected.OrderOutHeader + If _OrderOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + If _OrderOutRowsSelected.RowIndex = 0 Then + Dim _AllIndexIsZero As Boolean = True + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + If _OrderOutRows.RowIndex <> 0 Then + _AllIndexIsZero = False + Exit For + End If + Next + + If _AllIndexIsZero Then + Dim _RowIndex As Long = 1 + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + _OrderOutRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + _OrderOutHeader.OrderOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _RowIndex As Long = 1 + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + _OrderOutRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + Else + If _OrderOutRowsSelected.RowIndex <> _OrderOutHeader.OrderOutRows.Count Then + Dim _OrderOutRowsNext As OrderOutRows = _ocur.FindObject(Of OrderOutRows)(CriteriaOperator.Parse("OrderOutHeader=? AND RowIndex=?", _OrderOutHeader, _OrderOutRowsSelected.RowIndex + 1)) + If _OrderOutRowsNext IsNot Nothing Then + _OrderOutRowsSelected.RowIndex += 1 + _OrderOutRowsNext.RowIndex -= 1 + End If + Else + Throw New Exception("*A kiválasztott sor a legutolsó helyen van!") + End If + + End If + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aUp_OrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OrderOut.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutRowsSelected As OrderOutRows = TryCast(View.SelectedObjects(0), OrderOutRows) + If _OrderOutRowsSelected Is Nothing Then Throw New Exception("*Nem lett kiválasztva egyetlen sor sem!") + Dim _OrderOutHeader As OrderOutHeader = _OrderOutRowsSelected.OrderOutHeader + If _OrderOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + If _OrderOutRowsSelected.RowIndex = 0 Then + Dim _AllIndexIsZero As Boolean = True + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + If _OrderOutRows.RowIndex <> 0 Then + _AllIndexIsZero = False + Exit For + End If + Next + + If _AllIndexIsZero Then + Dim _RowIndex As Long = 1 + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + _OrderOutRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + Else + _OrderOutHeader.OrderOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Dim _RowIndex As Long = 1 + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + _OrderOutRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + Else + If _OrderOutRowsSelected.RowIndex <> 1 Then + Dim _OrderOutRowsPrew As OrderOutRows = _ocur.FindObject(Of OrderOutRows)(CriteriaOperator.Parse("OrderOutHeader=? AND RowIndex=?", _OrderOutHeader, _OrderOutRowsSelected.RowIndex - 1)) + If _OrderOutRowsPrew IsNot Nothing Then + _OrderOutRowsSelected.RowIndex -= 1 + _OrderOutRowsPrew.RowIndex += 1 + End If + Else + Throw New Exception("*A kiválasztott sor a legelső helyen van!") + End If + + End If + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aFinalizeOrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeOrderOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + + _OrderOutHeader.IsEditable = False + + If _OrderOutHeader.DocumentNumber = "" Then + _OrderOutHeader.DocumentNumber = _OrderOutHeader.CustomersOrderDocuments.NumberGenerator.GetNewNumber(_OrderOutHeader.CustomersOrderDocuments.NumberGenerator) + End If + + If _OrderOutHeader.CurrencyName.ShortName = "HUF" Then + _OrderOutHeader.TotalNettoHUF = 0 + For Each _actOrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + Dim _actPrice As Double = 0 + ' -- mennyiség X egységár + _actPrice = _actOrderOutRows.ListPriceHUF * _actOrderOutRows.QTT + ' -- Kedvezmény mértéke érvényesítése + If _actOrderOutRows.DiscountPercent > 0 Then + _actPrice = _actPrice - _actPrice * (_actOrderOutRows.DiscountPercent / 100) + End If + ' -- Totál Netto HUF számítás + _OrderOutHeader.TotalNettoHUF += _actPrice + Next + Else + _OrderOutHeader.TotalNettoDEV = 0 + For Each _actOrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + Dim _actPrice As Double = 0 + ' -- mennyiség X egységár + _actPrice = _actOrderOutRows.ListPriceDEV * _actOrderOutRows.QTT + ' -- Kedvezmény mértéke érvényesítése + If _actOrderOutRows.DiscountPercent > 0 Then + _actPrice = _actPrice - _actPrice * (_actOrderOutRows.DiscountPercent / 100) + End If + ' -- Tolál Netto DEV számítás + _OrderOutHeader.TotalNettoDEV += _actPrice + Next + End If + + _OrderOutHeader.Save() + _ocur.CommitChanges() + View.Refresh() + View.Close() + End Sub + Private Sub aStornoOrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoOrderOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderInHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + + _OrderInHeader.IsStorno = True + + _ocur.CommitChanges() + View.Refresh() + End Sub + Private Sub aCorrOrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCorrOrderOut.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderOutHeader_New As OrderOutHeader + + Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + + If _OrderOutHeader IsNot Nothing Then + _OrderOutHeader_New = _onew.CreateObject(Of OrderOutHeader)() + _OrderOutHeader_New.OrderOutHeader = _onew.GetObject(_OrderOutHeader) + 'Új OrderOutheader feltöltése + _OrderOutHeader_New.CustomersFrom = _onew.GetObject(_OrderOutHeader.CustomersFrom) + _OrderOutHeader_New.CustomersOrder = _onew.GetObject(_OrderOutHeader.CustomersOrder) + _OrderOutHeader_New.CustomersOrderDocuments = _onew.GetObject(_OrderOutHeader.CustomersOrderDocuments) + _OrderOutHeader_New.Contacts = _onew.GetObject(_OrderOutHeader.Contacts) + + 'Új bizonylatazám... + If _OrderOutHeader.OrderOutHeader IsNot Nothing Then + Dim _actNum As Int32 = Convert.ToInt32(_OrderOutHeader.DocumentNumber.Remove(0, InStr(_OrderOutHeader.DocumentNumber, "->") + 1)) + _OrderOutHeader_New.DocumentNumber = _OrderOutHeader.DocumentNumber.Remove(InStr(_OrderOutHeader.DocumentNumber, "->"), _OrderOutHeader.DocumentNumber.Length - InStr(_OrderOutHeader.DocumentNumber, "->")) + ">" + (_actNum + 1).ToString() + Else 'Még nem volt módoítva + _OrderOutHeader_New.DocumentNumber = _OrderOutHeader.DocumentNumber + "->1" + End If + + 'Új View... + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OrderOutHeader_DetailView_Corrigendum", True, _OrderOutHeader_New) + ' e.ShowViewParameters.TargetWindow = TargetWindow.Default + End If + End Sub + Private Sub aOrderOutPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOrderOutPrint.Execute + Dim _ReportData As ReportData + Dim _OrderOutHeader As OrderOutHeader + If e.SelectedObjects.Count > 0 Then + _OrderOutHeader = TryCast(e.SelectedObjects.Item(0), OrderOutHeader) + If _OrderOutHeader IsNot Nothing Then + _ReportData = _OrderOutHeader.CustomersOrderDocuments.ReportData + + If _ReportData IsNot Nothing Or _OrderOutHeader Is Nothing Then + Dim _inoperator As New InOperator("OrderOutHeader", e.SelectedObjects) + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OrderOutHeader=?", _OrderOutHeader), True) + Else + ThrowNewException("Nincs meg a nyomtatvány!") + End If + End If + End If + End Sub + Private Sub aGenerateDeliveryNoteIn_From_OrderOut_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateDeliveryNoteIn_From_OrderOut.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _OrderOutRows As OrderOutRows + Dim _OrderOutHeader As OrderOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderOutHeader)) + If _OrderOutHeader Is Nothing Then _ + _OrderOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderOutRows).OrderOutHeader) + If _OrderOutHeader Is Nothing Then Throw New Exception("*Nem lehet azonosítani a kimenő megrendelés fejlécet!") + Dim _DeliveryNoteInFromOrderOutRowsHeader As New DeliveryNoteInFromOrderOutRowsHeader(_onew.Session) + Dim _QTT_Sum As Double = 0 + + _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader = _OrderOutHeader + _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.DateCreated = GetSQLTime(_onew.Session) + + Dim _OrderOutRows_XPQuery As New XPQuery(Of DeliveryNoteInRows)(_onew.Session) + Dim query = From _DNIR In _OrderOutRows_XPQuery + Where _DNIR.OrderOutRows.OrderOutHeader Is _OrderOutHeader + Group _DNIR By _DNIR.OrderOutRows Into g = Group _ + Select New With {Key .OrderOutRows = OrderOutRows, + Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each _OrderOutRows In _OrderOutHeader.OrderOutRows + _QTT_Sum = 0 + For Each item In query + If item.OrderOutRows.Oid = _OrderOutRows.Oid Then + _QTT_Sum = item.QTT_Sum + End If + Next + If _OrderOutRows.QTT > _QTT_Sum Then + Dim _DeliveryNoteInFromOrderOutRowsRows As New DeliveryNoteInFromOrderOutRowsRows(_onew.Session) + + _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows = _OrderOutRows + _DeliveryNoteInFromOrderOutRowsRows.DeliveryNoteInFromOrderOutRowsHeader = _DeliveryNoteInFromOrderOutRowsHeader + _DeliveryNoteInFromOrderOutRowsRows.QTT_Process = _OrderOutRows.QTT - _QTT_Sum + _DeliveryNoteInFromOrderOutRowsRows.Save() + End If + Next + + _DeliveryNoteInFromOrderOutRowsHeader.Save() + _onew.CommitChanges() + + e.View = Application.CreateDetailView(_onew, _DeliveryNoteInFromOrderOutRowsHeader, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aGenerateDeliveryNoteIn_From_OrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateDeliveryNoteIn_From_OrderOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader_New As New DeliveryNoteInHeader(_ocur.Session) + Dim _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOrderOutRowsHeader)) + Dim _DeliveryNoteInFromOrderOutRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("DeliveryNoteInFromOrderOutRowsRows") + Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.GetObjectByKey(Of DeliveryNoteInType)(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOrderOutRowsHeader).DeliveryNoteInType.Oid) + + ' --- Létrehozzuk a bej. szállítólevél fejlécet ---------------------------------------------------------------------------------------------------------------- + _DeliveryNoteInHeader_New.CurrencyName = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CurrencyName + _DeliveryNoteInHeader_New.CustomersFrom = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CustomersFrom + _DeliveryNoteInHeader_New.PaymentOption = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.PaymentOption + _DeliveryNoteInHeader_New.QualityOption = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.QualityOption + _DeliveryNoteInHeader_New.Customers = TryCast(_DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CustomersOrder, Customers) + _DeliveryNoteInHeader_New.DeliveryNoteInType = _DeliveryNoteInType + '------------------------------------------------------------------------------------------------------------------------------------------------- + Try + ' Létrehozzuk a bej. szállítólevél sorait, minden kiválasztott kimenő megrenedlési sorhoz ---------------------------------------------------------------------------------------------- + For i = 0 To _DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 ' A kiválasztott sorokon végigmegyünk és létrehozzuk a bej. szállítólevél sorokat. + Dim _DeliveryNoteInRows_New As DeliveryNoteInRows = _ocur.CreateObject(Of DeliveryNoteInRows)() + Dim _QTT_Process As Double = 0 + Dim _DeliveryNoteInFromOrderOutRowsRows As DeliveryNoteInFromOrderOutRowsRows = _ocur.GetObject(TryCast(_DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects(i), DeliveryNoteInFromOrderOutRowsRows)) + _QTT_Process = TryCast(_DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects(i), DeliveryNoteInFromOrderOutRowsRows).QTT_Process ' Kinyerjük az adott sorhoz tartozó szándékot + + _DeliveryNoteInRows_New.DeliveryNoteInHeader = _DeliveryNoteInHeader_New + _DeliveryNoteInRows_New.OrderOutRows = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows + _DeliveryNoteInRows_New.Products = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products + If _QTT_Process > _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.QTT - _DeliveryNoteInFromOrderOutRowsRows.QTT_DeliveryNoteIn Then + Throw New Exception("*Nem volt ennyi megrendelve a tételből !") + Else + _DeliveryNoteInRows_New.QTT = _QTT_Process + _DeliveryNoteInRows_New.OrderOutRows.QTT_DeliveryNoteIn += _QTT_Process + End If + _DeliveryNoteInRows_New.controlled_DiscountPercent = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent + _DeliveryNoteInRows_New.NoteRows = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.NoteRows + _DeliveryNoteInRows_New.VAT = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products.VAT + _DeliveryNoteInRows_New.Units = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products.Units + _DeliveryNoteInRows_New.ListPriceHUF = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF + _DeliveryNoteInRows_New.ListPriceDEV = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV + _DeliveryNoteInRows_New.DiscountPriceHUF = Math.Round((_DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent / 100) * _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF, 4, MidpointRounding.AwayFromZero) + _DeliveryNoteInRows_New.DiscountPriceDEV = Math.Round((_DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent / 100) * _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV, 4, MidpointRounding.AwayFromZero) + + _DeliveryNoteInRows_New.RowIndex = i + + If _DeliveryNoteInHeader_New.DeliveryNoteInType.IsPrice = True Then + _DeliveryNoteInRows_New.ListPriceHUF = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF - _DeliveryNoteInRows_New.DiscountPriceHUF + _DeliveryNoteInRows_New.ListPriceDEV = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV - _DeliveryNoteInRows_New.ListPriceDEV + End If + + _DeliveryNoteInRows_New.Save() + Next + '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + _DeliveryNoteInHeader_New.Save() + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "DeliveryNoteInHeader_DetailView", True, _onew.GetObject(_DeliveryNoteInHeader_New)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + Private Sub aCloneOrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + ' Az akció egy kiválasztott kimenő renderlést klónoz,a hozzá tartozó sorokkal, módosíthatóan + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderOutHeader As OrderOutHeader = _onew.GetObject(TryCast(e.SelectedObjects(0), OrderOutHeader)) + Dim _OrderOutHeader_New As OrderOutHeader = _onew.CreateObject(Of OrderOutHeader)() + Dim _OrderOutRows As OrderOutRows + + 'Fejléc adatokból csak a Saját cég kell, a többi nem! + _OrderOutHeader_New.CustomersFrom = _OrderOutHeader.CustomersFrom + _OrderOutHeader_New.IsEditable = True + _OrderOutHeader_New.IsStorno = False + _OrderOutHeader_New.Save() + + 'Sorok átvétele + For Each _OrderOutRows In _OrderOutHeader.OrderOutRows + Dim _OrderOutRows_New As OrderOutRows = _onew.CreateObject(Of OrderOutRows)() + _OrderOutRows_New.OrderOutHeader = _OrderOutHeader_New + _OrderOutRows_New.RowIndex = _OrderOutRows.RowIndex + _OrderOutRows_New.ShipmentOption = _OrderOutRows.ShipmentOption + _OrderOutRows_New.QualityOption = _OrderOutRows.QualityOption + _OrderOutRows_New.UrgentOption = _OrderOutRows.UrgentOption + _OrderOutRows_New.Products = _OrderOutRows.Products + _OrderOutRows_New.QTT = _OrderOutRows.QTT + _OrderOutRows_New.ListPriceHUF = _OrderOutRows.ListPriceHUF + _OrderOutRows_New.ListPriceDEV = _OrderOutRows.ListPriceDEV + _OrderOutRows_New.DiscountPercent = _OrderOutRows.DiscountPercent + _OrderOutRows_New.NoteRows = _OrderOutRows.NoteRows + _OrderOutRows_New.NoteRowsPrivate = _OrderOutRows.NoteRowsPrivate + _OrderOutRows_New.OrderOutRows = _OrderOutRows.OrderOutRows + + _OrderOutRows_New.Save() + Next + ' muti-muti mit csináltam! + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _OrderOutHeader_New) + End Sub + Private Sub aCloneOrderOutNEW_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloneOrderOutNEW.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderOutHeader As OrderOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderOutHeader)) + Dim _OrderOutHeader_Clone_View As OrderOutHeader_Clone_View = _onew.CreateObject(Of OrderOutHeader_Clone_View)() + + _OrderOutHeader_Clone_View.CustomersFrom = _OrderOutHeader.CustomersFrom + _OrderOutHeader_Clone_View.CustomersOrder = Nothing + _OrderOutHeader_Clone_View.CustomersOrderDocuments = Nothing + _OrderOutHeader_Clone_View.Contacts = Nothing + + e.View = Application.CreateDetailView(_onew, "OrderOutHeader_Clone_View_DetailView", False, _OrderOutHeader_Clone_View) + End Sub + Private Sub aCloneOrderOutNEW_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneOrderOutNEW.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutHeader As OrderOutHeader = TryCast(View.SelectedObjects(0), OrderOutHeader) + Dim _OrderOutHeader_Clone_View As OrderOutHeader_Clone_View = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), OrderOutHeader_Clone_View)) + + If _OrderOutHeader_Clone_View.CustomersOrderDocuments.CurrencyName.ShortName = _OrderOutHeader.CustomersOrderDocuments.CurrencyName.ShortName Then + Dim _OrderOutHeader_New As OrderOutHeader = _ocur.CreateObject(Of OrderOutHeader)() + 'Fejléc adatok átvétele + _OrderOutHeader_New.CustomersFrom = _ocur.GetObject(_OrderOutHeader_Clone_View.CustomersFrom) + _OrderOutHeader_New.CustomersOrder = _ocur.GetObject(_OrderOutHeader_Clone_View.CustomersOrder) + _OrderOutHeader_New.CustomersOrderDocuments = _ocur.GetObject(_OrderOutHeader_Clone_View.CustomersOrderDocuments) + _OrderOutHeader_New.Contacts = _ocur.GetObject(_OrderOutHeader_Clone_View.Contacts) + _OrderOutHeader_New.CurrencyName = _ocur.GetObject(_OrderOutHeader.CurrencyName) + 'Sorok átvétele + For Each _OrderOutRows As OrderOutRows In _OrderOutHeader.OrderOutRows + Dim _OrderOutRows_New As OrderOutRows = _ocur.CreateObject(Of OrderOutRows)() + _OrderOutRows_New.OrderOutHeader = _OrderOutHeader_New + _OrderOutRows_New.RowIndex = _OrderOutRows.RowIndex + _OrderOutRows_New.ShipmentOption = _OrderOutRows.ShipmentOption + _OrderOutRows_New.QualityOption = _OrderOutRows.QualityOption + _OrderOutRows_New.UrgentOption = _OrderOutRows.UrgentOption + _OrderOutRows_New.Products = _OrderOutRows.Products + _OrderOutRows_New.QTT = _OrderOutRows.QTT + _OrderOutRows_New.ListPriceHUF = _OrderOutRows.ListPriceHUF + _OrderOutRows_New.ListPriceDEV = _OrderOutRows.ListPriceDEV + _OrderOutRows_New.DiscountPercent = _OrderOutRows.DiscountPercent + _OrderOutRows_New.NoteRows = _OrderOutRows.NoteRows + _OrderOutRows_New.NoteRowsPrivate = _OrderOutRows.NoteRowsPrivate + '_OrderOutRows_New.OrderOutRows = _OrderOutRows.OrderOutRows + + _OrderOutRows_New.Save() + Next + _OrderOutHeader_New.Save() + 'e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OrderOutHeader_DetailView", False, _OrderOutHeader_New) + _ocur.CommitChanges() + + Else + ThrowNewException("Nem azonosak a valuta nemek, nem klónozható a kiválasztott sor a jelenlegi beállításokkal!") + Return + End If + End Sub + Private Sub aBackToRowEdit_OrderOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_OrderOut.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _OrderOutHeader As OrderOutHeader = _ocur.CreateObject(Of OrderOutHeader)() + Dim _OrderOutHeader As OrderOutHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése + + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("@OrderOutHeader.OrderOutRows") 'Sorok összeszedése + If _ListView.ListView.SelectedObjects.Count > 0 Then + + Dim _OrderOutRows As OrderOutRows = _ListView.ListView.SelectedObjects(0) 'Régi sor változóba töltése + + _OrderOutHeader.row_Products = _OrderOutRows.Products + _OrderOutHeader.row_DiscountPercent = _OrderOutRows.DiscountPercent + _OrderOutHeader.row_ListPriceDEV = _OrderOutRows.ListPriceDEV + _OrderOutHeader.row_ListPriceHUF = _OrderOutRows.ListPriceHUF + _OrderOutHeader.row_QTT = _OrderOutRows.QTT + + _OrderOutRows_Corr = _OrderOutRows + End If + End Sub + Private Sub aCheckOrderOutRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCheckOrderOutRows.Execute + '// Ellenőrzi a megjött tételeket + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _OrderOutRows As OrderOutRows + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + Dim _OrderOutRows_Collection_Total As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("1=1")) + + Dim _OrderOutRows_Collection_IsCorrigendum As New XPCollection(Of OrderOutRows)(_ocur.Session, New InOperator("OrderOutRows", _OrderOutRows_Collection_Total)) + RaiseEvent InitWork(1, 1, _OrderOutRows_Collection_IsCorrigendum.Count) + For Each _OrderOutRows In _OrderOutRows_Collection_IsCorrigendum + RaiseEvent DoWork() + If _OrderOutRows.IsCorrigendum = False Then + _OrderOutRows.IsCorrigendum = True + End If + Next + RaiseEvent FinalWork + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _OrderOutRows In View.SelectedObjects + RaiseEvent DoWork() + Dim _DeliveryNoteInRows_Collection As New XPCollection(Of DeliveryNoteInRows)(_ocur.Session, CriteriaOperator.Parse("OrderOutRows=?", _OrderOutRows)) + Dim _DeliveryNoteInRows As DeliveryNoteInRows + _OrderOutRows.QTT_DeliveryNoteIn = 0 + For Each _DeliveryNoteInRows In _DeliveryNoteInRows_Collection + _OrderOutRows.QTT_DeliveryNoteIn += _DeliveryNoteInRows.QTT + Next + + If _OrderOutRows.OrderOutRows IsNot Nothing Then + _OrderOutRows.QTT_DeliveryNoteIn += _OrderOutRows.OrderOutRows.QTT_DeliveryNoteIn + End If + + _ocur.CommitChanges() + + Next + RaiseEvent FinalWork + + + End Sub + Private Sub aGenerateDeliveryNoteIn_From_OrderOutForControlListView_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateDeliveryNoteIn_From_OrderOutForControlListView.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _OrderOutRows As OrderOutRows + Dim _OrderOutHeader As OrderOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderOutHeader)) + If _OrderOutHeader Is Nothing Then _ + _OrderOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OrderOutRows).OrderOutHeader) + If _OrderOutHeader Is Nothing Then Throw New Exception("*Nem lehet azonosítani a kimenő megrendelés fejlécet!") + Dim _DeliveryNoteInFromOrderOutRowsHeader As New DeliveryNoteInFromOrderOutRowsHeader(_onew.Session) + Dim _QTT_Sum As Double = 0 + + _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader = _OrderOutHeader + _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.DateCreated = GetSQLTime(_onew.Session) + + Dim _OrderOutRows_XPQuery As New XPQuery(Of DeliveryNoteInRows)(_onew.Session) + Dim query = From _DNIR In _OrderOutRows_XPQuery + Where _DNIR.OrderOutRows.OrderOutHeader Is _OrderOutHeader + Group _DNIR By _DNIR.OrderOutRows Into g = Group _ + Select New With {Key .OrderOutRows = OrderOutRows, + Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each _OrderOutRows In _OrderOutHeader.OrderOutRows + _QTT_Sum = 0 + For Each item In query + If item.OrderOutRows.Oid = _OrderOutRows.Oid Then + _QTT_Sum = item.QTT_Sum + End If + Next + If _OrderOutRows.QTT > _QTT_Sum Then + Dim _DeliveryNoteInFromOrderOutRowsRows As New DeliveryNoteInFromOrderOutRowsRows(_onew.Session) + + _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows = _OrderOutRows + _DeliveryNoteInFromOrderOutRowsRows.DeliveryNoteInFromOrderOutRowsHeader = _DeliveryNoteInFromOrderOutRowsHeader + _DeliveryNoteInFromOrderOutRowsRows.QTT_Process = _OrderOutRows.QTT - _QTT_Sum + _DeliveryNoteInFromOrderOutRowsRows.Save() + End If + Next + + _DeliveryNoteInFromOrderOutRowsHeader.Save() + _onew.CommitChanges() + + e.View = Application.CreateDetailView(_onew, _DeliveryNoteInFromOrderOutRowsHeader, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aGenerateDeliveryNoteIn_From_OrderOutForControlListView_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateDeliveryNoteIn_From_OrderOutForControlListView.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInHeader_New As New DeliveryNoteInHeader(_ocur.Session) + Dim _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOrderOutRowsHeader)) + Dim _DeliveryNoteInFromOrderOutRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("DeliveryNoteInFromOrderOutRowsRows") + Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.GetObjectByKey(Of DeliveryNoteInType)(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOrderOutRowsHeader).DeliveryNoteInType.Oid) + + ' --- Létrehozzuk a bej. szállítólevél fejlécet ---------------------------------------------------------------------------------------------------------------- + _DeliveryNoteInHeader_New.CurrencyName = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CurrencyName + _DeliveryNoteInHeader_New.CustomersFrom = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CustomersFrom + _DeliveryNoteInHeader_New.PaymentOption = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.PaymentOption + _DeliveryNoteInHeader_New.QualityOption = _DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.QualityOption + _DeliveryNoteInHeader_New.Customers = TryCast(_DeliveryNoteInFromOrderOutRowsHeader.OrderOutHeader.CustomersOrder, Customers) + _DeliveryNoteInHeader_New.DeliveryNoteInType = _DeliveryNoteInType + '------------------------------------------------------------------------------------------------------------------------------------------------- + Try + ' Létrehozzuk a bej. szállítólevél sorait, minden kiválasztott kimenő megrenedlési sorhoz ---------------------------------------------------------------------------------------------- + For i = 0 To _DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 ' A kiválasztott sorokon végigmegyünk és létrehozzuk a bej. szállítólevél sorokat. + Dim _DeliveryNoteInRows_New As DeliveryNoteInRows = _ocur.CreateObject(Of DeliveryNoteInRows)() + Dim _QTT_Process As Double = 0 + Dim _DeliveryNoteInFromOrderOutRowsRows As DeliveryNoteInFromOrderOutRowsRows = _ocur.GetObject(TryCast(_DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects(i), DeliveryNoteInFromOrderOutRowsRows)) + _QTT_Process = TryCast(_DeliveryNoteInFromOrderOutRowsRows_ListEditor.ListView.SelectedObjects(i), DeliveryNoteInFromOrderOutRowsRows).QTT_Process ' Kinyerjük az adott sorhoz tartozó szándékot + + _DeliveryNoteInRows_New.DeliveryNoteInHeader = _DeliveryNoteInHeader_New + _DeliveryNoteInRows_New.OrderOutRows = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows + _DeliveryNoteInRows_New.Products = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products + If _QTT_Process > _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.QTT - _DeliveryNoteInFromOrderOutRowsRows.QTT_DeliveryNoteIn Then + Throw New Exception("*Nem volt ennyi megrendelve a tételből !") + Else + _DeliveryNoteInRows_New.QTT = _QTT_Process + _DeliveryNoteInRows_New.OrderOutRows.QTT_DeliveryNoteIn += _QTT_Process + End If + _DeliveryNoteInRows_New.controlled_DiscountPercent = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent + _DeliveryNoteInRows_New.NoteRows = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.NoteRows + _DeliveryNoteInRows_New.VAT = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products.VAT + _DeliveryNoteInRows_New.Units = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.Products.Units + _DeliveryNoteInRows_New.ListPriceHUF = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF + _DeliveryNoteInRows_New.ListPriceDEV = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV + _DeliveryNoteInRows_New.DiscountPriceHUF = Math.Round((_DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent / 100) * _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF, 4, MidpointRounding.AwayFromZero) + _DeliveryNoteInRows_New.DiscountPriceDEV = Math.Round((_DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.DiscountPercent / 100) * _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV, 4, MidpointRounding.AwayFromZero) + + _DeliveryNoteInRows_New.RowIndex = i + + If _DeliveryNoteInHeader_New.DeliveryNoteInType.IsPrice = True Then + _DeliveryNoteInRows_New.ListPriceHUF = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceHUF - _DeliveryNoteInRows_New.DiscountPriceHUF + _DeliveryNoteInRows_New.ListPriceDEV = _DeliveryNoteInFromOrderOutRowsRows.OrderOutRows.ListPriceDEV - _DeliveryNoteInRows_New.ListPriceDEV + End If + + _DeliveryNoteInRows_New.Save() + Next + '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + _DeliveryNoteInHeader_New.Save() + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "DeliveryNoteInHeader_DetailView", True, _onew.GetObject(_DeliveryNoteInHeader_New)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/Popup/OrderOutHeader_Clone_View.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/Popup/OrderOutHeader_Clone_View.vb new file mode 100644 index 0000000..ca2521d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersOut/Popup/OrderOutHeader_Clone_View.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OrderOutHeader_Clone_View + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _CustomersOrder As CustomersOrder + Private _CustomersOrderDocuments As CustomersOrderDocuments + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property CustomersOrder() As CustomersOrder + Get + Return _CustomersOrder + End Get + Set(ByVal value As CustomersOrder) + SetPropertyValue("CustomersOrder", _CustomersOrder, value) + End Set + End Property + _ + Property CustomersOrderDocuments As CustomersOrderDocuments + Get + Return _CustomersOrderDocuments + End Get + Set(value As CustomersOrderDocuments) + SetPropertyValue("CustomersOrderDocuments", _CustomersOrderDocuments, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipeExecutionSimplePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipeExecutionSimplePopup.vb new file mode 100644 index 0000000..5b40f94 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipeExecutionSimplePopup.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RecipeExecutionSimplePopupFrom + Inherits BaseObject + Property RecipeFrom As RecipeFrom + Property StorageComputed As StorageComputed + Property QTTNeed As Double + Property QTTDifferent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class + _ + _ + _ +Public Class RecipeExecutionSimplePopupTo + Inherits BaseObject + Property RecipeTo As RecipeTo + Property StorageComputed As StorageComputed + Property QTTNeed As Double + Property QTTDifferent As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipePopup.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipePopup.vb new file mode 100644 index 0000000..8960354 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Popoup/RecipePopup.vb @@ -0,0 +1,28 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RecipePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Property Change_RowGroup1 As Boolean = False + Property RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Property Change_RowGroup2 As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Recipe.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Recipe.vb new file mode 100644 index 0000000..e054a09 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/Recipe.vb @@ -0,0 +1,137 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class Recipe 'Gygrtsi receptek + Inherits BaseObject + Private _RecipeType As RecipeType + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _DocumentNumber As String 'Recept sorszma + Private _ShortName As String 'Recept megnevezse + Private _Description As String 'Recept lersa + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then + If RecipeType IsNot Nothing Then + If RecipeType.NumberGenerator IsNot Nothing Then + DocumentNumber = RecipeType.NumberGenerator.GetNewNumber(RecipeType.NumberGenerator) + End If + End If + End If + End Sub + _ + _ + Property RecipeType As RecipeType + Get + Return _RecipeType + End Get + Set(value As RecipeType) + SetPropertyValue("RecipeType", _RecipeType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + ReadOnly Property RecipeFrom As XPCollection(Of RecipeFrom) + Get + Return GetCollection(Of RecipeFrom)("RecipeFrom") + End Get + End Property + _ + _ + ReadOnly Property RecipeFromOther As XPCollection(Of RecipeFromOther) + Get + Return GetCollection(Of RecipeFromOther)("RecipeFromOther") + End Get + End Property + _ + _ + ReadOnly Property RecipeTo As XPCollection(Of RecipeTo) + Get + Return GetCollection(Of RecipeTo)("RecipeTo") + End Get + End Property + _ + _ + ReadOnly Property RecipeToOther As XPCollection(Of RecipeToOther) + Get + Return GetCollection(Of RecipeToOther)("RecipeToOther") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimple.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimple.vb new file mode 100644 index 0000000..7723567 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimple.vb @@ -0,0 +1,219 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class RecipeExecutionSimple + Inherits BaseObject + Private _RecipeExecutionSimpleType As RecipeExecutionSimpleType + Private _CustomersFrom As CustomersFrom + Private _DocumentNumber As String + Private _ShortName As String + Private _Recipe As Recipe + Private _QTT As Double + Private _IsEditable As Boolean = True + Private _IsStorno As Boolean = False + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(Me.DocumentNumber) Then + DocumentNumber = RecipeExecutionSimpleType.NumberGenerator.GetNewNumber(RecipeExecutionSimpleType.NumberGenerator) + End If + End Sub + Property RecipeExecutionSimpleType As RecipeExecutionSimpleType + Get + Return _RecipeExecutionSimpleType + End Get + Set(value As RecipeExecutionSimpleType) + SetPropertyValue("RecipeExecutionSimpleType", _RecipeExecutionSimpleType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + ListPriceControls(value) + End If + End If + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + Private Sub ListPriceControls(ByVal _Recipe As Recipe) + Dim _RecipeFrom As RecipeFrom + Dim _RecipeTo As RecipeTo + Dim _RecipeFrom_other As RecipeFromOther + Dim _RecipeTo_other As RecipeToOther + + Dim _check_From_HUF As Double = 0 + Dim _check_To_HUF As Double = 0 + Dim _check_From_DEV As Double = 0 + Dim _check_To_DEV As Double = 0 + + Dim _check_From_HUF_other As Double = 0 + Dim _check_To_HUF_other As Double = 0 + Dim _check_From_DEV_other As Double = 0 + Dim _check_To_DEV_other As Double = 0 + + Dim _i As Integer = 0 + + Dim Products_from As Products + Dim Products_to As Products + '-------- Norml gyrts -------------- + For Each _RecipeFrom In _Recipe.RecipeFrom + If _RecipeFrom IsNot Nothing Then + Products_from = TryCast(_RecipeFrom.Products, Products) + _i += 1 + _check_From_HUF += _RecipeFrom.QTT * _RecipeFrom.ListPriceHUF + _check_From_DEV += _RecipeFrom.QTT * _RecipeFrom.ListPriceDEV + End If + Next + For Each _RecipeTo In _Recipe.RecipeTo + If _RecipeTo IsNot Nothing Then + Products_to = TryCast(_RecipeTo.Products, Products) + _check_To_HUF += _RecipeTo.QTT * _RecipeTo.ListPriceHUF + _check_To_DEV += _RecipeTo.QTT * _RecipeTo.ListPriceDEV + End If + Next + If Not _check_From_HUF < _check_To_HUF And Not _check_From_HUF = _check_To_HUF Then + MsgBox("Az sszestett listar 'HUF' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + If Not _check_From_DEV < _check_To_DEV And Not _check_From_DEV = _check_To_DEV Then + MsgBox("Az sszestett listar 'DEV' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + + + '-------- Egyb gyrts -------------- + + For Each _RecipeFrom_other In _Recipe.RecipeFromOther + If _RecipeFrom_other IsNot Nothing Then + _check_From_HUF_other += _RecipeFrom_other.QTT * _RecipeFrom_other.ListPriceHUF + _check_From_DEV_other += _RecipeFrom_other.QTT * _RecipeFrom_other.ListPriceDEV + End If + Next + For Each _RecipeTo_other In _Recipe.RecipeToOther + If _RecipeTo_other IsNot Nothing Then + _check_To_HUF_other += _RecipeTo_other.QTT * _RecipeTo_other.ListPriceHUF + _check_To_DEV_other += _RecipeTo_other.QTT * _RecipeTo_other.ListPriceDEV + End If + Next + If Not _check_From_HUF_other < _check_To_HUF_other And Not _check_From_HUF_other = _check_To_HUF_other Then + MsgBox("Az 'Egyb temkek' sszestett listar 'HUF' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + If Not _check_From_DEV_other < _check_To_DEV_other And Not _check_From_DEV_other = _check_To_DEV_other Then + MsgBox("Az 'Egyb temkek' sszestett listar 'DEV' rtkek nem egyeznek!", MsgBoxStyle.OkOnly, "Figyelem, ellenrzs!") + End If + + + _check_From_HUF = 0 + _check_To_HUF = 0 + _check_From_DEV = 0 + _check_To_DEV = 0 + '------------------ + _check_From_HUF_other = 0 + _check_To_HUF_other = 0 + _check_From_DEV_other = 0 + _check_To_DEV_other = 0 + + End Sub + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleType.vb new file mode 100644 index 0000000..5707511 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleType.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeExecutionSimpleType + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _Description As String + Private _NumberGenerator As NumberGenerator + Private _StorageMoveType As StorageMoveType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.Designer.vb new file mode 100644 index 0000000..01cb74a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.Designer.vb @@ -0,0 +1,57 @@ +Partial Class RecipeExecutionSimpleVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecipeExecutionFrom = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRecipeExecutionTo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRecipeExecutionFrom + ' + Me.aRecipeExecutionFrom.AcceptButtonCaption = Nothing + Me.aRecipeExecutionFrom.CancelButtonCaption = Nothing + Me.aRecipeExecutionFrom.Caption = "Recipe Execution From" + Me.aRecipeExecutionFrom.Category = "ObjectsCreation" + Me.aRecipeExecutionFrom.Id = "aRecipeExecutionFrom" + Me.aRecipeExecutionFrom.TargetViewId = "RecipeExecutionSimple_DetailView" + Me.aRecipeExecutionFrom.ToolTip = Nothing + ' + 'aRecipeExecutionTo + ' + Me.aRecipeExecutionTo.AcceptButtonCaption = Nothing + Me.aRecipeExecutionTo.CancelButtonCaption = Nothing + Me.aRecipeExecutionTo.Caption = "aRecipeExecutionTo" + Me.aRecipeExecutionTo.Category = "ObjectsCreation" + Me.aRecipeExecutionTo.Id = "aRecipeExecutionTo" + Me.aRecipeExecutionTo.TargetViewId = "RecipeExecutionSimple_DetailView" + Me.aRecipeExecutionTo.ToolTip = Nothing + + End Sub + Friend WithEvents aRecipeExecutionFrom As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRecipeExecutionTo As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.resx new file mode 100644 index 0000000..45975f3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 221, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb new file mode 100644 index 0000000..2bedf18 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeExecutionSimpleVC.vb @@ -0,0 +1,703 @@ +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.Utils +Imports DevExpress.Persistent.BaseImpl + + + +Public Class RecipeExecutionSimpleVC + Inherits DevExpress.ExpressApp.ViewController + + Dim _RecipeExecutionFrom_Collection As New ArrayList + Dim _RecipeExecutionTo_Collection As New ArrayList + Dim _VaildData As Boolean = True + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "RecipeTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RecipeFrom_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "RecipeTo_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RecipeFrom_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + + Private Sub aRecipeExecutionFrom_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRecipeExecutionFrom.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(RecipeExecutionSimplePopupFrom)) + _RecipeExecutionFrom_Collection.Clear() + Dim _RecipeExecutionSimplePopupFrom As RecipeExecutionSimplePopupFrom + + For Each _RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + _RecipeExecutionSimplePopupFrom = _onew.CreateObject(Of RecipeExecutionSimplePopupFrom)() + + _RecipeExecutionSimplePopupFrom.RecipeFrom = _onew.GetObject(_RecipeFrom) + _RecipeExecutionSimplePopupFrom.StorageComputed = _onew.FindObject(Of StorageComputed) _ + (CriteriaOperator.Parse("Products=? And Storage=?", _onew.GetObject(_RecipeFrom.Products), _onew.GetObject(_RecipeFrom.Storage))) + + If _RecipeExecutionSimplePopupFrom.StorageComputed Is Nothing Then + _VaildData = False + Else + _RecipeExecutionSimplePopupFrom.QTTNeed = _RecipeExecutionSimple.QTT * _RecipeFrom.QTT + _RecipeExecutionSimplePopupFrom.QTTDifferent = _RecipeExecutionSimplePopupFrom.StorageComputed.QTTFree - _RecipeExecutionSimplePopupFrom.QTTNeed + If _RecipeExecutionSimplePopupFrom.QTTDifferent < 0 Then + _VaildData = False + End If + _RecipeExecutionFrom_Collection.Add(_RecipeExecutionSimplePopupFrom) + _CS.Add(_RecipeExecutionSimplePopupFrom) + End If + Next + + e.View = Application.CreateListView("RecipeExecutionSimplePopupFrom_ListView", _CS, False) + End Sub + Private Sub aRecipeExecutionFrom_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRecipeExecutionFrom.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Try + + If _VaildData = False Then Throw New UserFriendlyException("Nem kivitelezhet a gyrts, mert egy vagy tbb alapanyag nem ll rendelkezsre!") + + '--==Zrols==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + '---------------------------------------------------------- + 'Raktrak feltrkpezse, kitrolsi fejlc(ek) sszeraksa + '---------------------------------------------------------- + Dim _StorageOutHeader_Collection As New ArrayList '<== Kitrolso fejlcEK kollekcija, annyi kitrolsi fejlc, AHNY KLNBZ raktr van!!! + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _StorageOutHeader_Collection.Count = 0 Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers).Oid) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + Else + For Each _StorageOutHeaderExist As StorageOutHeader In _StorageOutHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageOutHeaderExist.Storage.Oid <> _RecipeFrom.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .Customers = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers)) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + End If + Exit For + Next + End If + Next + + '---------------------------------------------------------- + 'Kitrolsi sorok kitrolsi fejlcekzeh rendelse, StorageComputed toszingls + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _RecipeFrom.Storage.Oid = _StorageOutHeader.Storage.Oid Then + Dim _StorageOutRows As New StorageOutRows(_ocur.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .RowIndex = _StorageOutHeader.StorageOutRows.Count + .Products = _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid) + End With + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + Dim _QTT_Mod As Double = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _QTT_Free As Double = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid)), True) + Dim _QTT_ReservedOut As Double = _StorageComputed.QTTReservedOut + Dim _QTT_Will_Out As Double = 0 + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeFrom.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + End If + Next + Next + + '---------------------------------------------------------- + 'Kitrols(ok) vglegestse, mozgstbla, StorageComputed baszogats + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + Next + + + '---------------------------------------------------------- + 'Betrols raktr(ak)ba + '---------------------------------------------------------- + Dim _StorageInHeader_Collection As New ArrayList + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _StorageInHeader_Collection.Count = 0 Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Else + For Each _StorageInHeaderExist As StorageInHeader In _StorageInHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageInHeaderExist.Storage.Oid <> _RecipeTo.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _onew.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Exit For + End If + Next + End If + Next + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + If _RecipeTo.Storage.Oid = _StorageInHeader.Storage.Oid Then + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _RecipeTo.Products + .QTT_Will = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + .RowIndex = _StorageInHeader.StorageInRows.Count + .AveragePriceInHUF = _RecipeTo.ListPriceHUF + End With + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _RecipeTo.Products, _StorageInHeader.Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = New StorageComputed(_ocur.Session) + With _StorageComputed + .Storage = _StorageInHeader.Storage + .Products = _RecipeTo.Products + .QTTReservedIn = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + End With + Else + _StorageComputed.QTTReservedIn += _RecipeTo.QTT * _RecipeExecutionSimple.QTT + End If + End If + Next + Next + + '---------------------------------------------------------- + 'Betrols(ok) vglegetse + '---------------------------------------------------------- + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _ocur.GetObject(_StorageInRows) + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + Next + Next + + _ocur.CommitChanges() + + '---------------------------------------------------------- + 'Nyomtatvnyok + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageOutHeader.Storage.ReportOut.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber=?", _StorageOutHeader.DocumentNumber), True) + End If + Next + + + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aRecipeExecutionTo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRecipeExecutionTo.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(RecipeExecutionSimplePopupTo)) + _RecipeExecutionTo_Collection.Clear() + Dim _RecipeExecutionSimplePopupTo As RecipeExecutionSimplePopupTo + + For Each _RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + _RecipeExecutionSimplePopupTo = _onew.CreateObject(Of RecipeExecutionSimplePopupTo)() + + _RecipeExecutionSimplePopupTo.RecipeTo = _onew.GetObject(_RecipeTo) + _RecipeExecutionSimplePopupTo.StorageComputed = _onew.FindObject(Of StorageComputed) _ + (CriteriaOperator.Parse("Products=? And Storage=?", _onew.GetObject(_RecipeTo.Products), _onew.GetObject(_RecipeTo.Storage))) + _RecipeExecutionSimplePopupTo.QTTNeed = _RecipeExecutionSimple.QTT * _RecipeTo.QTT + _RecipeExecutionSimplePopupTo.QTTDifferent = _RecipeExecutionSimplePopupTo.StorageComputed.QTTFree - _RecipeExecutionSimplePopupTo.QTTNeed + If _RecipeExecutionSimplePopupTo.QTTDifferent < 0 Then + _VaildData = False + End If + _RecipeExecutionTo_Collection.Add(_RecipeExecutionSimplePopupTo) + _CS.Add(_RecipeExecutionSimplePopupTo) + Next + + e.View = Application.CreateListView("RecipeExecutionSimplePopupTo_ListView", _CS, False) + End Sub + Private Sub aRecipeExecutionTo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRecipeExecutionTo.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Try + + If _VaildData = False Then Throw New UserFriendlyException("Nem kivitelezhet a gyrts, mert egy vagy tbb alapanyag nem ll rendelkezsre!") + + '--==Zrols==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _RecipeExecutionSimple As RecipeExecutionSimple = TryCast(View.SelectedObjects(0), RecipeExecutionSimple) + '---------------------------------------------------------- + 'Raktrak feltrkpezse, kitrolsi fejlc(ek) sszeraksa + '---------------------------------------------------------- + Dim _StorageOutHeader_Collection As New ArrayList '<== Kitrolso fejlcEK kollekcija, annyi kitrolsi fejlc, AHNY KLNBZ raktr van!!! + + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _StorageOutHeader_Collection.Count = 0 Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers).Oid) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + Else + For Each _StorageOutHeaderExist As StorageOutHeader In _StorageOutHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageOutHeaderExist.Storage.Oid <> _RecipeTo.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageOutHeader As New StorageOutHeader(_ocur.Session) + With _StorageOutHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeTo.Storage.Oid) + .Customers = _ocur.GetObjectByKey(Of CustomersFrom)(_RecipeExecutionSimple.CustomersFrom.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .Customers = _ocur.GetObjectByKey(Of Customers)(TryCast(.Storage.CustomersFrom, Customers)) + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageOutHeader_Collection.Add(_StorageOutHeader) + End If + Exit For + Next + End If + Next + + '---------------------------------------------------------- + 'Kitrolsi sorok kitrolsi fejlcekzeh rendelse, StorageComputed toszingls + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + For Each _RecipeTo As RecipeTo In _RecipeExecutionSimple.Recipe.RecipeTo + If _RecipeTo.Storage.Oid = _StorageOutHeader.Storage.Oid Then + Dim _StorageOutRows As New StorageOutRows(_ocur.Session) + With _StorageOutRows + .StorageOutHeader = _StorageOutHeader + .RowIndex = _StorageOutHeader.StorageOutRows.Count + .Products = _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid) + End With + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + Dim _QTT_Mod As Double = _RecipeTo.QTT * _RecipeExecutionSimple.QTT + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _QTT_Free As Double = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszrsa + Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _StorageInRows, _StorageOutRows), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_ocur.Session) + _StorageOutRowsInRows.StorageInRows = _StorageInRows + _StorageOutRowsInRows.StorageOutRows = _StorageOutRows + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid)), True) + Dim _QTT_ReservedOut As Double = _StorageComputed.QTTReservedOut + Dim _QTT_Will_Out As Double = 0 + Dim _StorageOutRows_Collection_R As New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _StorageOutHeader.Storage, _ocur.GetObjectByKey(Of Products)(_RecipeTo.Products.Oid))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + End If + Next + Next + + '---------------------------------------------------------- + 'Kitrols(ok) vglegestse, mozgstbla, StorageComputed baszogats + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + Next + + + '---------------------------------------------------------- + 'Betrols raktr(ak)ba + '---------------------------------------------------------- + Dim _StorageInHeader_Collection As New ArrayList + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + If _StorageInHeader_Collection.Count = 0 Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _ocur.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Else + For Each _StorageInHeaderExist As StorageInHeader In _StorageInHeader_Collection + Dim _NewStorage As Boolean = False + If _StorageInHeaderExist.Storage.Oid <> _RecipeFrom.Storage.Oid Then + _NewStorage = True + End If + If _NewStorage Then + Dim _StorageInHeader As New StorageInHeader(_ocur.Session) + With _StorageInHeader + .Storage = _onew.GetObjectByKey(Of Storage)(_RecipeFrom.Storage.Oid) + .RecipeExecutionSimple = _RecipeExecutionSimple + .IsEditable = False + .StorageMoveType = _ocur.GetObject(_RecipeExecutionSimple.RecipeExecutionSimpleType.StorageMoveType) + End With + _StorageInHeader_Collection.Add(_StorageInHeader) + Exit For + End If + Next + End If + Next + + For Each _RecipeFrom As RecipeFrom In _RecipeExecutionSimple.Recipe.RecipeFrom + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + If _RecipeFrom.Storage.Oid = _StorageInHeader.Storage.Oid Then + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _RecipeFrom.Products + .QTT_Will = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + .RowIndex = _StorageInHeader.StorageInRows.Count + .AveragePriceInHUF = _RecipeFrom.ListPriceHUF + End With + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _RecipeFrom.Products, _StorageInHeader.Storage)) + If _StorageComputed Is Nothing Then + _StorageComputed = New StorageComputed(_ocur.Session) + With _StorageComputed + .Storage = _StorageInHeader.Storage + .Products = _RecipeFrom.Products + .QTTReservedIn = _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + End With + Else + _StorageComputed.QTTReservedIn += _RecipeFrom.QTT * _RecipeExecutionSimple.QTT + End If + End If + Next + Next + + '---------------------------------------------------------- + 'Betrols(ok) vglegetse + '---------------------------------------------------------- + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _ocur.GetObject(_StorageInRows) + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + Next + Next + + _ocur.CommitChanges() + + '---------------------------------------------------------- + 'Nyomtatvnyok + '---------------------------------------------------------- + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageOutHeader.Storage.ReportOut.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber=?", _StorageOutHeader.DocumentNumber), True) + End If + Next + + + For Each _StorageInHeader As StorageInHeader In _StorageInHeader_Collection + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFrom.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFrom.vb new file mode 100644 index 0000000..df0d73b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFrom.vb @@ -0,0 +1,110 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeFrom + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Products As Products 'Termk + Private _Storage As Storage 'Raktr + Private _QTT As Double 'Mennyisg + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + If Me.ListPriceHUF = 0 Then + Me.ListPriceHUF = value.ListPriceOutHUF + End If + If Me.ListPriceDEV = 0 Then + Me.ListPriceDEV = value.ListPriceOutDEV + End If + End If + End If + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + _ + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFromOther.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFromOther.vb new file mode 100644 index 0000000..fe4d222 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFromOther.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeFromOther + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double 'Mennyisg + Private _Units As Units + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeTo.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeTo.vb new file mode 100644 index 0000000..d5ab7c0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeTo.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeTo + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Products As Products 'Termk + Private _Storage As Storage 'Raktr + Private _QTT As Double 'Mennyisg + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value IsNot Nothing Then + If Me.ListPriceHUF = 0 Then + Me.ListPriceHUF = value.ListPriceOutHUF + End If + If Me.ListPriceDEV = 0 Then + Me.ListPriceDEV = value.ListPriceOutDEV + End If + End If + End If + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + _ + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeToOther.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeToOther.vb new file mode 100644 index 0000000..6498e4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeToOther.vb @@ -0,0 +1,104 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeToOther + Inherits BaseObject + Private _Recipe As Recipe 'Recept + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double 'Mennyisg + Private _Units As Units + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeType.vb new file mode 100644 index 0000000..f2b5965 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeType.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RecipeType + Inherits BaseObject + Private _Group1 As String + Private _Group2 As String + Private _ShortName As String 'Recept megnevezse + Private _Description As String 'Recept lersa + Private _NumberGenerator As NumberGenerator + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property Group1 As String + Get + Return _Group1 + End Get + Set(value As String) + SetPropertyValue("Group1", _Group1, value) + End Set + End Property + Property Group2 As String + Get + Return _Group2 + End Get + Set(value As String) + SetPropertyValue("Group2", _Group2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.Designer.vb new file mode 100644 index 0000000..45e2027 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.Designer.vb @@ -0,0 +1,67 @@ +Partial Class RecipeVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecipe_ChangeRowGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInsertServicesToRecipe = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRecipe_ChangeRowGroups + ' + Me.aRecipe_ChangeRowGroups.AcceptButtonCaption = Nothing + Me.aRecipe_ChangeRowGroups.CancelButtonCaption = Nothing + Me.aRecipe_ChangeRowGroups.Caption = "Recipe Change RowGroups" + Me.aRecipe_ChangeRowGroups.ConfirmationMessage = Nothing + Me.aRecipe_ChangeRowGroups.Id = "aRecipe_ChangeRowGroups" + Me.aRecipe_ChangeRowGroups.ImageName = Nothing + Me.aRecipe_ChangeRowGroups.Shortcut = Nothing + Me.aRecipe_ChangeRowGroups.Tag = Nothing + Me.aRecipe_ChangeRowGroups.TargetObjectsCriteria = Nothing + Me.aRecipe_ChangeRowGroups.TargetViewId = Nothing + Me.aRecipe_ChangeRowGroups.ToolTip = Nothing + Me.aRecipe_ChangeRowGroups.TypeOfView = Nothing + ' + 'aInsertServicesToRecipe + ' + Me.aInsertServicesToRecipe.AcceptButtonCaption = Nothing + Me.aInsertServicesToRecipe.CancelButtonCaption = Nothing + Me.aInsertServicesToRecipe.Caption = "Insert Services To Recipe" + Me.aInsertServicesToRecipe.ConfirmationMessage = Nothing + Me.aInsertServicesToRecipe.Id = "aInsertServicesToRecipe" + Me.aInsertServicesToRecipe.ImageName = Nothing + Me.aInsertServicesToRecipe.Shortcut = Nothing + Me.aInsertServicesToRecipe.Tag = Nothing + Me.aInsertServicesToRecipe.TargetObjectsCriteria = Nothing + Me.aInsertServicesToRecipe.TargetViewId = Nothing + Me.aInsertServicesToRecipe.ToolTip = Nothing + Me.aInsertServicesToRecipe.TypeOfView = Nothing + + End Sub + Friend WithEvents aRecipe_ChangeRowGroups As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInsertServicesToRecipe As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.resx new file mode 100644 index 0000000..0c01197 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 221, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.vb new file mode 100644 index 0000000..1a75822 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeVC.vb @@ -0,0 +1,172 @@ +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 RecipeVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + Frame.GetController(Of RecipeVC).aInsertServicesToRecipe.Active.SetItemValue("", False) + + If View.Id = "Recipe_RecipeTo_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Frame.GetController(Of RecipeVC).aInsertServicesToRecipe.Active.SetItemValue("", True) + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFrom_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", True) + AddHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Recipe_RecipeTo_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFrom_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Frame.GetController(Of RecipeVC).aRecipe_ChangeRowGroups.Active.SetItemValue("", False) + RemoveHandler View.SelectionChanged, AddressOf RecipeLines_SelectionChange + End If + End Sub + Private Sub RecipeLines_SelectionChange(ByVal sender As Object, ByVal e As System.EventArgs) + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + If _noselect = False Then + _selection.Clear() + For Each _SelectedLines In View.SelectedObjects + _selection.Add(_SelectedLines) + Next + End If + End If + End Sub + + Private Sub aRecipe_ChangeRowGroups_Cancel(sender As Object, e As System.EventArgs) Handles aRecipe_ChangeRowGroups.Cancel + _noselect = False + End Sub + Private Sub aRecipe_ChangeRowGroups_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRecipe_ChangeRowGroups.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RecipePopup As RecipePopup = _onew.CreateObject(Of RecipePopup)() + If View.SelectedObjects.Count > 0 Then + e.View = Application.CreateDetailView(_onew, "RecipePopup_DetailView", False, _RecipePopup) + Else + Throw New UserFriendlyException("Nincs kijelölt elem!") + End If + End Sub + Private Sub aRecipe_ChangeRowGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRecipe_ChangeRowGroups.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RecipePopup As RecipePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RecipePopup) + If View.Id = "Recipe_RecipeFrom_ListView" Then + Dim _RecipeFrom As RecipeFrom + For Each _RecipeFrom In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeFrom.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeFrom.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeFrom.Save() + Next + End If + If View.Id = "Recipe_RecipeFromOther_ListView" Then + Dim _RecipeFromOther As RecipeFromOther + For Each _RecipeFromOther In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeFromOther.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeFromOther.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeFromOther.Save() + Next + End If + If View.Id = "Recipe_RecipeTo_ListView" Then + Dim _RecipeTo As RecipeTo + For Each _RecipeTo In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeTo.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeTo.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeTo.Save() + Next + End If + If View.Id = "Recipe_RecipeToOther_ListView" Then + Dim _RecipeToOther As RecipeToOther + For Each _RecipeToOther In _selection + If _RecipePopup.Change_RowGroup1 Then + _RecipeToOther.RowGroup1 = _RecipePopup.RowGroup1 + End If + If _RecipePopup.Change_RowGroup2 Then + _RecipeToOther.RowGroup2 = _RecipePopup.RowGroup2 + End If + _RecipeToOther.Save() + Next + End If + _ocur.CommitChanges() + _noselect = False + End Sub + + Private Sub aInsertServicesToRecipe_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToRecipe.CustomizePopupWindowParams + ' Az akció a szolgáltatások listview-ját hozza fel. + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False) + End Sub + Private Sub aInsertServicesToRecipe_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToRecipe.Execute + 'A popup-on kiválasztott szolgáltatásokból létrehoz a receptre szolgáltatás sorokat + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Recipe As Recipe = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Recipe) + Dim _Services As Services + Dim _RecipeToOther_New As RecipeToOther + + For Each _Services In e.PopupWindow.View.SelectedObjects + _RecipeToOther_New = _ocur.CreateObject(Of RecipeToOther)() + + _RecipeToOther_New.Recipe = _ocur.GetObject(_Recipe) + _RecipeToOther_New.ShortName = _Services.ShortName + _RecipeToOther_New.Description = _Services.Description + _RecipeToOther_New.Units = _ocur.GetObject(_Services.Units) + _RecipeToOther_New.QTT = 1 + _RecipeToOther_New.RowGroup1 = _Services.RowGroup1 + _RecipeToOther_New.RowGroup2 = _Services.RowGroup2 + + _RecipeToOther_New.Save() + Next + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.Designer.vb new file mode 100644 index 0000000..add167e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.Designer.vb @@ -0,0 +1,142 @@ +Partial Class TakeOverProtocolVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalize_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorno_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrint_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBakToEdit_TPR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aToTable_TPR + ' + Me.aToTable_TPR.Caption = "aToTable_TPR" + Me.aToTable_TPR.Category = "aToTable_TPR" + Me.aToTable_TPR.ConfirmationMessage = Nothing + Me.aToTable_TPR.Id = "aToTable_TPR" + Me.aToTable_TPR.ImageName = Nothing + Me.aToTable_TPR.Shortcut = Nothing + Me.aToTable_TPR.Tag = Nothing + Me.aToTable_TPR.TargetObjectsCriteria = Nothing + Me.aToTable_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aToTable_TPR.TargetViewId = "" + Me.aToTable_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_TPR.ToolTip = Nothing + Me.aToTable_TPR.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_TPR + ' + Me.aToTableD_TPR.Caption = "aToTableD_TPR" + Me.aToTableD_TPR.Category = "aToTableD_TPR" + Me.aToTableD_TPR.ConfirmationMessage = Nothing + Me.aToTableD_TPR.Id = "aToTableD_TPR" + Me.aToTableD_TPR.ImageName = Nothing + Me.aToTableD_TPR.Shortcut = Nothing + Me.aToTableD_TPR.Tag = Nothing + Me.aToTableD_TPR.TargetObjectsCriteria = Nothing + Me.aToTableD_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aToTableD_TPR.TargetViewId = "" + Me.aToTableD_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_TPR.ToolTip = Nothing + Me.aToTableD_TPR.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinalize_TPR + ' + Me.aFinalize_TPR.Caption = "aFinalize_TPR" + Me.aFinalize_TPR.Category = "ObjectsCreation" + Me.aFinalize_TPR.ConfirmationMessage = "Do you want to execute command?" + Me.aFinalize_TPR.Id = "aFinalize_TPR" + Me.aFinalize_TPR.ImageName = Nothing + Me.aFinalize_TPR.Shortcut = Nothing + Me.aFinalize_TPR.Tag = Nothing + Me.aFinalize_TPR.TargetObjectsCriteria = Nothing + Me.aFinalize_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aFinalize_TPR.TargetViewId = "" + Me.aFinalize_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalize_TPR.ToolTip = Nothing + Me.aFinalize_TPR.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aStorno_TPR + ' + Me.aStorno_TPR.Caption = "aStorno_TPR" + Me.aStorno_TPR.Category = "" + Me.aStorno_TPR.ConfirmationMessage = "Do you want to execute command?" + Me.aStorno_TPR.Id = "aStorno_TPR" + Me.aStorno_TPR.ImageName = Nothing + Me.aStorno_TPR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorno_TPR.Shortcut = Nothing + Me.aStorno_TPR.Tag = Nothing + Me.aStorno_TPR.TargetObjectsCriteria = "IsEditable=False AND IsStorno=False" + Me.aStorno_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aStorno_TPR.TargetViewId = "" + Me.aStorno_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aStorno_TPR.ToolTip = Nothing + Me.aStorno_TPR.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aPrint_TPR + ' + Me.aPrint_TPR.Caption = "aPrint_TPR" + Me.aPrint_TPR.Category = "" + Me.aPrint_TPR.ConfirmationMessage = Nothing + Me.aPrint_TPR.Id = "aPrint_TPR" + Me.aPrint_TPR.ImageName = Nothing + Me.aPrint_TPR.Shortcut = Nothing + Me.aPrint_TPR.Tag = Nothing + Me.aPrint_TPR.TargetObjectsCriteria = Nothing + Me.aPrint_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aPrint_TPR.TargetViewId = Nothing + Me.aPrint_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPrint_TPR.ToolTip = Nothing + Me.aPrint_TPR.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aBakToEdit_TPR + ' + Me.aBakToEdit_TPR.Caption = "aBakToEdit_TPR" + Me.aBakToEdit_TPR.Category = "ObjectsCreation" + Me.aBakToEdit_TPR.ConfirmationMessage = "Do you want to execute command?" + Me.aBakToEdit_TPR.Id = "aBakToEdit_TPR" + Me.aBakToEdit_TPR.ImageName = Nothing + Me.aBakToEdit_TPR.Shortcut = Nothing + Me.aBakToEdit_TPR.Tag = Nothing + Me.aBakToEdit_TPR.TargetObjectsCriteria = Nothing + Me.aBakToEdit_TPR.TargetObjectType = GetType(SISBusiness.[Module].TakeoverProtocolHeader) + Me.aBakToEdit_TPR.TargetViewId = Nothing + Me.aBakToEdit_TPR.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aBakToEdit_TPR.ToolTip = Nothing + Me.aBakToEdit_TPR.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aToTable_TPR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_TPR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalize_TPR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno_TPR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrint_TPR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBakToEdit_TPR As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.resx b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.resx new file mode 100644 index 0000000..3bef46c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 212 + + + 17, 95 + + + 17, 173 + + + 141, 173 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb new file mode 100644 index 0000000..e1acfba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeOverProtocolVC.vb @@ -0,0 +1,213 @@ +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.CloneObject +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + + +Public Class TakeOverProtocolVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "TakeoverProtocolHeader_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing + End If + '--------------------DetailView----------------------- + If View.Id = "TakeoverProtocolHeader_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "TakeoverProtocolHeader_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "TakeoverProtocolHeader_TakeOverProtocolRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + + If View.Id = "TakeoverProtocolRows_ListView_Finalized" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).ProcessCurrentObjectAction.Executing, AddressOf TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing + End If + '--------------------DetailView----------------------- + If View.Id = "TakeoverProtocolHeader_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aToTable_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _TakeoverProtocolRows As TakeoverProtocolRows = _ocur.CreateObject(Of TakeoverProtocolRows)() + + _TakeoverProtocolRows.TakeoverProtocolHeader = _TakeoverProtocolHeader + _TakeoverProtocolRows.Installation = _TakeoverProtocolHeader.row_Installation + _TakeoverProtocolRows.UniqueObjects = _TakeoverProtocolHeader.row_UniqueObjects + + _TakeoverProtocolHeader.row_Installation.TakeoverProtocolRows = _TakeoverProtocolRows + + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + _TakeoverProtocolHeader.row_Installation = Nothing + _TakeoverProtocolHeader.row_UniqueObjects = Nothing + + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Installation") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End Try + End Sub + Private Sub aToTableD_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + Dim _TakeoverProtocolRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("TakeOverProtocolRows") + If _TakeoverProtocolRows_ListEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egy sor sem!") + + Dim _TakeoverProtocolRows_DelList As New ArrayList + For Each _TakeoverProtocolRows As TakeoverProtocolRows In _TakeoverProtocolRows_ListEditor.ListView.SelectedObjects + _TakeoverProtocolRows.Installation.TakeoverProtocolRows = Nothing + _TakeoverProtocolRows_DelList.Add(_TakeoverProtocolRows) + Next + _ocur.Delete(_TakeoverProtocolRows_DelList) + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Try + End Sub + Private Sub aFinalize_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _TakeoverProtocolHeader.TakeOverProtocolRows.Count = 0 Then Throw New Exception("*Legalább egy sornak lennie kell, üres átadást nem lehet véglegesíteni!") + _TakeoverProtocolHeader.IsEditable = False + + _ocur.CommitChanges() + If _TakeoverProtocolHeader.TakeoverProtocolType.ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "Nem lehet bizonylatot nyomtatni. Kérem, ellenőrizze!") + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _TakeoverProtocolHeader.TakeoverProtocolType.ReportData.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TakeoverProtocolHeader.DocumentNumber=?", _TakeoverProtocolHeader.DocumentNumber), True) + End If + View.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aStorno_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _TakeoverProtocolHeader.IsEditable = True Then Throw New Exception("*Csak végleges átadást lehet sztornírozni!") + _TakeoverProtocolHeader.IsStorno = True + + For Each _TakeoverProtocolRows As TakeoverProtocolRows In _TakeoverProtocolHeader.TakeOverProtocolRows + _TakeoverProtocolRows.Installation.TakeoverProtocolRows = Nothing + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aPrint_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrint_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _TakeoverProtocolHeader.TakeoverProtocolType.ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "Nem lehet bizonylatot nyomtatni. Kérem, ellenőrizze!") + + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _TakeoverProtocolHeader.TakeoverProtocolType.ReportData.Oid), True) + If _ReportData IsNot Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TakeoverProtocolHeader.DocumentNumber=?", _TakeoverProtocolHeader.DocumentNumber), True) + View.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aBakToEdit_TPR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBakToEdit_TPR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolHeader) + If _TakeoverProtocolHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + _TakeoverProtocolHeader.IsEditable = True + + _ocur.CommitChanges() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "TakeoverProtocolHeader_DetailView", False, _onew.GetObject(_TakeoverProtocolHeader)) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub TakeoverProtocolRows_ListView_Finalized_ProcessCurrentObjectAction_Executing(sender As Object, e As CancelEventArgs) + e.Cancel = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _TakeoverProtocolHeader As TakeoverProtocolHeader = TryCast(View.SelectedObjects(0), TakeoverProtocolRows).TakeoverProtocolHeader + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "TakeoverProtocolHeader_DetailView", False, _onew.GetObject(_TakeoverProtocolHeader)) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocol.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocol.vb new file mode 100644 index 0000000..af9a66e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocol.vb @@ -0,0 +1,182 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class TakeoverProtocolHeader + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _DocumentNumber As String + Private _TakeoverProtocolType As TakeoverProtocolType + Private _DateExecution As Date + Private _Customers As Customers + Private _ObjectCreated As Date 'Objektum keletkezésének dátuma + Private _UserCreated As User + Private _IsEditable As Boolean = True + Private _IsStorno As Boolean = False + '--------------NonPersistent-------------- + Private _row_Installation As Installation + Private _row_UniqueObjects As UniqueObjects + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsEditable = True + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = TakeoverProtocolType.NumberGenerator.GetNewNumber(TakeoverProtocolType.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + Property TakeoverProtocolType As TakeoverProtocolType + Get + Return _TakeoverProtocolType + End Get + Set(value As TakeoverProtocolType) + SetPropertyValue("TakeoverProtocolType", _TakeoverProtocolType, value) + End Set + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + + '--------------NonPersistent-------------- + _ + _ + _ + Property row_Installation() As Installation + Get + Return _row_Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("row_Installation", _row_Installation, value) + End Set + End Property + _ + _ + Property row_UniqueObjects() As UniqueObjects + Get + Return _row_UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value) + End Set + End Property + + '----------ReadOnly-------------------- + _ + _ + Public ReadOnly Property TakeOverProtocolRows() As XPCollection(Of TakeoverProtocolRows) + Get + Return GetCollection(Of TakeoverProtocolRows)("TakeOverProtocolRows") + End Get + End Property + _ + _ + Private ReadOnly Property RowInstallationCollection As XPCollection(Of Installation) + Get + Dim _RowInstallationCollection_Collection As XPCollection(Of Installation) + _RowInstallationCollection_Collection = New XPCollection(Of Installation)(Session, CriteriaOperator.Parse("isnull(TakeoverProtocolRows)=True or (InstallationType.IsVirtual=True)")) + Return _RowInstallationCollection_Collection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolRows.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolRows.vb new file mode 100644 index 0000000..045ce5a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolRows.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class TakeoverProtocolRows + Inherits BaseObject + + Private _Installation As Installation + Private _UniqueObjects As UniqueObjects + Private _TakeOverProtocolHeader As TakeoverProtocolHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property Installation() As Installation + Get + Return _Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + Property UniqueObjects() As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property TakeoverProtocolHeader() As TakeoverProtocolHeader + Get + Return _TakeOverProtocolHeader + End Get + Set(ByVal value As TakeoverProtocolHeader) + SetPropertyValue("TakeoverProtocolHeader", _TakeOverProtocolHeader, value) + End Set + End Property + + Public Sub AddRows(ByVal _TakeoverProtocolHeader As TakeoverProtocolHeader) + TakeoverProtocolHeader = _TakeoverProtocolHeader + Installation = TakeoverProtocolHeader.Row_Installation + UniqueObjects = TakeoverProtocolHeader.Row_UniqueObjects + Save() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolType.vb b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolType.vb new file mode 100644 index 0000000..c55785a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolType.vb @@ -0,0 +1,88 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class TakeoverProtocolType + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _UserCreated As User + Private _ObjectCreated As Date + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _ReportData As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRMCommon.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRMCommon.vb new file mode 100644 index 0000000..770686e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRMCommon.vb @@ -0,0 +1,109 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eLeadSource + ColdCall = 0 + ExistingCustomer = 1 + SelfGenerated = 2 + EmployeeReferral = 3 + Partner = 4 + PublicRelations = 5 + Seminar = 6 + TradeShow = 7 + Web = 8 + WordOfMouth = 9 + Advertisement = 10 + Other = 11 +End Enum +Public Enum ePreferredContactMethod + Any = 0 + Email = 1 + Phone = 2 + Fax = 3 + Mail = 4 +End Enum +Public Enum eLeadStatus + None = 0 + Lost = 1 + CannotContact = 2 + NoLongerInterested = 3 + Canceled = 4 + Qualified = 5 +End Enum + +Public Enum eOpportunityStatus + None = 0 + Won = 1 + Canceled = 2 + OutSold = 3 +End Enum +Public Enum eOpportunityRating + Hot = 0 + Warm = 1 + Cold = 2 +End Enum + + _ + _ +Public Class CRMNote + Inherits BaseObject + Private _CRM_Leads As CRM_Leads + Private _Title As String + Private _Description As String + Private _Attachment As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(ByVal value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + _ + Property Title As String + Get + Return _Title + End Get + Set(ByVal value As String) + SetPropertyValue("Title", _Title, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property Attachment As FileData + Get + Return _Attachment + End Get + Set(ByVal value As FileData) + SetPropertyValue("Attachment", _Attachment, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_FirstMeet.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_FirstMeet.vb new file mode 100644 index 0000000..ae7d632 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_FirstMeet.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ + _ +Public Class CRM_FirstMeet 'Hol tallkozott velnk elszr + Inherits BaseObject + Private _ShortName As String + Private _Active As Boolean = True + Private _DefaultforBusiness As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + Property DefaultforBusiness As Boolean + Get + Return _DefaultforBusiness + End Get + Set(value As Boolean) + SetPropertyValue("DefaultforBusiness", _DefaultforBusiness, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads.vb new file mode 100644 index 0000000..c2bceab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads.vb @@ -0,0 +1,436 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ +' _ +' _ +' _ +' _ +' _ + + _ + _ + _ +eLeadStatus.Qualified", AppearanceItemType.ViewItem, "LeadStatus<>5", _ + TargetItems:="CRM_Opportunity", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ +Public Class CRM_Leads + Inherits BaseObject + '-- Szemlyes adatok + Private _Topic As String ' Megjelensi nv + Private _FirstName As String ' Keresztnv + Private _LastName As String ' Vezetknv + Private _CRM_FirstMeet As CRM_FirstMeet ' Hol tallkozott elszr + Private _CompanyName As String ' Cg neve + Private _JobTitle As String ' Beoszts + Private _OfficePhone As String ' Munkahelyi telefon + Private _Fax As String ' Fax + Private _MobilePhone As String ' Mobil szm + Private _HomePhone As String ' Otthoni szm + Private _OtherPhone As String ' Egyb telefonszm + Private _WEB As String 'WEB szjt + Private _EMail As String ' Emil + '-- Rszletes adatok + Private _AnnualRevenue As Double 'Forgalom + Private _NumberOfEmployees As Long 'Dolgozk szma + Private _LeadSource As eLeadSource ' Lead forrs + '-- Elsdleges cm adatok + Private _Street1 As String 'Utca, hzszm + Private _Street2 As String 'Utca hzszm + Private _City As String 'Vros + Private _Country As Country 'Orszg + Private _State As String 'Megye, llam stb. + Private _ZIP As String 'Postai irnytszm + '-- Adminisztrcis adatok + Private _PreferredContactMethod As ePreferredContactMethod ' Kapcsolattarts mdja + Private _LeadStatus As eLeadStatus ' Lead sttusza + Private _HRPerson As HRPerson 'A felels szemly, aki ezzel a LEAD-dal foglalkozik + + Private _ObjectCreated As Date 'Ltrehozva + Private _UserCreated As User 'Ltrehoz + + '-- Egyb bels vltozk + Private _InProcess As Boolean = False + Private _Customers As Customers + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Sub CreateTopic() + If _InProcess Then + Else + _InProcess = True + If CompanyName <> "" Then + Topic = CompanyName + End If + If FirstName <> "" And LastName <> "" Then + Topic = LastName & " " & FirstName + End If + _InProcess = False + End If + End Sub + Property Topic As String + Get + Return _Topic + End Get + Set(ByVal value As String) + SetPropertyValue("Topic", _Topic, value) + End Set + End Property + _ + Property FirstName As String + Get + Return _FirstName + End Get + Set(ByVal value As String) + SetPropertyValue("FirstName", _FirstName, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + CreateTopic() + End If + End Set + End Property + _ + Property LastName As String + Get + Return _LastName + End Get + Set(ByVal value As String) + SetPropertyValue("LastName", _LastName, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + CreateTopic() + End If + End Set + End Property + _ + _ + Property CRM_FirstMeet As CRM_FirstMeet + Get + Return _CRM_FirstMeet + End Get + Set(ByVal value As CRM_FirstMeet) + SetPropertyValue("CRM_FirstMeet", _CRM_FirstMeet, value) + End Set + End Property + _ + Property CompanyName As String + Get + Return _CompanyName + End Get + Set(ByVal value As String) + SetPropertyValue("CompanyName", _CompanyName, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + CreateTopic() + End If + End Set + End Property + Property JobTitle As String + Get + Return _JobTitle + End Get + Set(ByVal value As String) + SetPropertyValue("JobTitle", _JobTitle, value) + End Set + End Property + Property OfficePhone As String + Get + Return _OfficePhone + End Get + Set(ByVal value As String) + SetPropertyValue("OfficePhone", _OfficePhone, value) + End Set + End Property + Property Fax As String + Get + Return _Fax + End Get + Set(ByVal value As String) + SetPropertyValue("Fax", _Fax, value) + End Set + End Property + _ + Property MobilePhone As String + Get + Return _MobilePhone + End Get + Set(ByVal value As String) + SetPropertyValue("MobilePhone", _MobilePhone, value) + End Set + End Property + Property HomePhone As String + Get + Return _HomePhone + End Get + Set(ByVal value As String) + SetPropertyValue("HomePhone", _HomePhone, value) + End Set + End Property + Property OtherPhone As String + Get + Return _OtherPhone + End Get + Set(ByVal value As String) + SetPropertyValue("OtherPhone", _OtherPhone, value) + End Set + End Property + Property WEB As String + Get + Return _WEB + End Get + Set(ByVal value As String) + SetPropertyValue("WEB", _WEB, value) + End Set + End Property + _ + Property EMail As String + Get + Return _EMail + End Get + Set(ByVal value As String) + SetPropertyValue("EMail", _EMail, value) + End Set + End Property + Property AnnualRevenue As Double + Get + Return _AnnualRevenue + End Get + Set(ByVal value As Double) + SetPropertyValue("AnnualRevenue", _AnnualRevenue, value) + End Set + End Property + Property NumberOfEmployees As Long + Get + Return _NumberOfEmployees + End Get + Set(ByVal value As Long) + SetPropertyValue("NumberOfEmployees", _NumberOfEmployees, value) + End Set + End Property + Property LeadSource As eLeadSource + Get + Return _LeadSource + End Get + Set(ByVal value As eLeadSource) + SetPropertyValue("LeadSource", _LeadSource, value) + End Set + End Property + _ + Property Street1 As String + Get + Return _Street1 + End Get + Set(ByVal value As String) + SetPropertyValue("Street1", _Street1, value) + End Set + End Property + Property Street2 As String + Get + Return _Street2 + End Get + Set(ByVal value As String) + SetPropertyValue("Street2", _Street2, value) + End Set + End Property + _ + Property City As String + Get + Return _City + End Get + Set(ByVal value As String) + SetPropertyValue("City", _City, value) + End Set + End Property + _ + Property Country As Country + Get + Return _Country + End Get + Set(ByVal value As Country) + SetPropertyValue("Country", _Country, value) + End Set + End Property + Property State As String + Get + Return _State + End Get + Set(ByVal value As String) + SetPropertyValue("State", _State, value) + End Set + End Property + _ + Property ZIP As String + Get + Return _ZIP + End Get + Set(ByVal value As String) + SetPropertyValue("ZIP", _ZIP, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Dim _ZIPHU As ZIPHU = Session.FindObject(Of ZIPHU)(CriteriaOperator.Parse("Zip=?", Me.ZIP)) + If _ZIPHU IsNot Nothing Then + Me.Country = TryCast(Session.FindObject(Of CountryExtend)(CriteriaOperator.Parse("ShortName=?", "Magyarorszg")), Country) + Me.City = _ZIPHU.City + Me.State = _ZIPHU.County + Else + Me.Country = Nothing + Me.City = "Nem magyarorszgi irnytszm" + Me.State = "Nem magyarorszgi irnytszm" + End If + End If + End Set + End Property + + Property PreferredContactMethod As ePreferredContactMethod + Get + Return _PreferredContactMethod + End Get + Set(ByVal value As ePreferredContactMethod) + SetPropertyValue("PreferredContactMethod", _PreferredContactMethod, value) + End Set + End Property + Property LeadStatus As eLeadStatus + Get + Return _LeadStatus + End Get + Set(ByVal value As eLeadStatus) + SetPropertyValue("LeadStatus", _LeadStatus, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Customers IsNot Nothing Then + CompanyName = Customers.FullName + WEB = Customers.WebSite + If Customers.Address1 IsNot Nothing Then + Street1 = Customers.Address1.Street + ' Street2 = Customers.Address2.Street + City = Customers.Address1.City + Country = Customers.Address1.Country + State = Customers.Address1.StateProvince + ZIP = Customers.Address1.ZipPostal + 'Contacts = Nothing + End If + End If + End Set + End Property + _ + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Contacts IsNot Nothing Then + LastName = Contacts.LastName + FirstName = Contacts.FirstName + Dim _PhoneNumber As PhoneNumber + For Each _PhoneNumber In Contacts.PhoneNumbers + If _PhoneNumber.PhoneType = "OfficePhone" Then + OfficePhone = _PhoneNumber.Number + End If + If _PhoneNumber.PhoneType = "Fax" Then + Fax = _PhoneNumber.Number + End If + If _PhoneNumber.PhoneType = "MobilePhone" Then + MobilePhone = _PhoneNumber.Number + End If + If _PhoneNumber.PhoneType = "HomePhone" Then + HomePhone = _PhoneNumber.Number + End If + If _PhoneNumber.PhoneType = "OtherPhone" Then + OtherPhone = _PhoneNumber.Number + End If + Next + EMail = Contacts.Email + If Contacts.Customers IsNot Nothing And Customers Is Nothing Then + Customers = Contacts.Customers + End If + End If + End Set + End Property + '-- Activities + _ + _ + ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity) + Get + Return GetCollection(Of CRM_Leads_Activity)("CRM_Leads_Activity") + End Get + End Property + _ + ReadOnly Property CRM_Opportunity As XPCollection(Of CRM_Opportunities) + Get + Return New XPCollection(Of CRM_Opportunities)(Session, CriteriaOperator.Parse("CRM_Leads.Oid=?", Me.Oid)) + End Get + End Property + '-- Megjegyzsek + _ + _ + ReadOnly Property CRMNote As XPCollection(Of CRMNote) + Get + Return GetCollection(Of CRMNote)("CRMNote") + End Get + End Property + '------------ReadOnly----------------- + _ + ReadOnly Property CRM_LeadsDocumentation As XPCollection(Of CRM_LeadsDocumentation) + Get + Return GetCollection(Of CRM_LeadsDocumentation)("CRM_LeadsDocumentation") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsDocumentation.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsDocumentation.vb new file mode 100644 index 0000000..f9b34b7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsDocumentation.vb @@ -0,0 +1,146 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports System.IO +Imports DevExpress.ExpressApp.Utils + + _ +Public Class CRM_LeadsDocumentation + Inherits FileAttachmentBase + + Private _CRM_Leads As CRM_Leads + Private _Status As eProductsDocumentationStatus + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _FileCreated As Date + Private _FileModified As Date + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + Public Property Status() As eProductsDocumentationStatus + Get + Return _Status + End Get + Set(ByVal value As eProductsDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Public Property RowGroup1() As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Public Property RowGroup2() As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property FileCreated As Date + Get + Return _FileCreated + End Get + Set(value As Date) + SetPropertyValue("FileCreated", _FileCreated, value) + End Set + End Property + Property FileModified As Date + Get + Return _FileModified + End Get + Set(value As Date) + SetPropertyValue("FileModified", _FileModified, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '--------ReadOnly--------- + _ + ReadOnly Property ImageType As Image + Get + Select Case Path.GetExtension(File.FileName) + Case ".xls", ".xlsx" + Return ImageLoader.Instance.GetImageInfo("XLS").Image + Case ".doc", ".docx" + Return ImageLoader.Instance.GetImageInfo("DOC").Image + Case ".pdf" + Return ImageLoader.Instance.GetImageInfo("PDF").Image + Case ".txt" + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Case Else + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Return Nothing + End Select + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb new file mode 100644 index 0000000..b76a1ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.Designer.vb @@ -0,0 +1,226 @@ +Partial Class CRM_LeadsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aQualifiedLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDisQualifiedLeads = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreate_CRM_Leads_Activity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreate_CRM_Leads_Activity_Task = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRMTaskCompleted = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRMCreateTaskwithActivity = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aEdit_CRM_Leads_Activity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenCRM_Opportunities = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_LeadsDocumentation_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRM_LeadsDocumentation_Remove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aQualifiedLeads + ' + Me.aQualifiedLeads.AcceptButtonCaption = Nothing + Me.aQualifiedLeads.CancelButtonCaption = Nothing + Me.aQualifiedLeads.Caption = "Qualify lead" + Me.aQualifiedLeads.Category = "RecordEdit" + Me.aQualifiedLeads.ConfirmationMessage = Nothing + Me.aQualifiedLeads.Id = "aQualifiedLeads" + Me.aQualifiedLeads.ImageName = "bookmark" + Me.aQualifiedLeads.Shortcut = Nothing + Me.aQualifiedLeads.Tag = Nothing + Me.aQualifiedLeads.TargetObjectsCriteria = Nothing + Me.aQualifiedLeads.TargetViewId = "CRM_Leads_DetailView" + Me.aQualifiedLeads.ToolTip = Nothing + Me.aQualifiedLeads.TypeOfView = Nothing + ' + 'aDisQualifiedLeads + ' + Me.aDisQualifiedLeads.AcceptButtonCaption = Nothing + Me.aDisQualifiedLeads.CancelButtonCaption = Nothing + Me.aDisQualifiedLeads.Caption = "aDisQualifiedLeads" + Me.aDisQualifiedLeads.Category = "RecordEdit" + Me.aDisQualifiedLeads.ConfirmationMessage = Nothing + Me.aDisQualifiedLeads.Id = "aDisQualifiedLeads" + Me.aDisQualifiedLeads.ImageName = "bookmark" + Me.aDisQualifiedLeads.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDisQualifiedLeads.Shortcut = Nothing + Me.aDisQualifiedLeads.Tag = Nothing + Me.aDisQualifiedLeads.TargetObjectsCriteria = Nothing + Me.aDisQualifiedLeads.TargetViewId = "CRM_Leads_DetailView" + Me.aDisQualifiedLeads.ToolTip = Nothing + Me.aDisQualifiedLeads.TypeOfView = Nothing + ' + 'aCreate_CRM_Leads_Activity + ' + Me.aCreate_CRM_Leads_Activity.Caption = "Create activity" + Me.aCreate_CRM_Leads_Activity.Category = "ObjectsCreation" + Me.aCreate_CRM_Leads_Activity.ConfirmationMessage = Nothing + Me.aCreate_CRM_Leads_Activity.Id = "aCreate_CRM_Leads_Activity" + Me.aCreate_CRM_Leads_Activity.ImageName = "Action_New" + Me.aCreate_CRM_Leads_Activity.Shortcut = Nothing + Me.aCreate_CRM_Leads_Activity.Tag = Nothing + Me.aCreate_CRM_Leads_Activity.TargetObjectsCriteria = Nothing + Me.aCreate_CRM_Leads_Activity.TargetViewId = "CRM_Leads_CRM_Leads_Activity_ListView" + Me.aCreate_CRM_Leads_Activity.ToolTip = Nothing + Me.aCreate_CRM_Leads_Activity.TypeOfView = Nothing + ' + 'aCreate_CRM_Leads_Activity_Task + ' + Me.aCreate_CRM_Leads_Activity_Task.Caption = "Create Task" + Me.aCreate_CRM_Leads_Activity_Task.Category = "ObjectsCreation" + Me.aCreate_CRM_Leads_Activity_Task.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreate_CRM_Leads_Activity_Task.Id = "aCreate_CRM_Leads_Activity_Task" + Me.aCreate_CRM_Leads_Activity_Task.ImageName = "Action_New" + Me.aCreate_CRM_Leads_Activity_Task.Shortcut = Nothing + Me.aCreate_CRM_Leads_Activity_Task.Tag = Nothing + Me.aCreate_CRM_Leads_Activity_Task.TargetObjectsCriteria = Nothing + Me.aCreate_CRM_Leads_Activity_Task.TargetViewId = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" + Me.aCreate_CRM_Leads_Activity_Task.ToolTip = Nothing + Me.aCreate_CRM_Leads_Activity_Task.TypeOfView = Nothing + ' + 'aCRMTaskCompleted + ' + Me.aCRMTaskCompleted.AcceptButtonCaption = Nothing + Me.aCRMTaskCompleted.CancelButtonCaption = Nothing + Me.aCRMTaskCompleted.Caption = "CRM Task Completed" + Me.aCRMTaskCompleted.Category = "RecordEdit" + Me.aCRMTaskCompleted.ConfirmationMessage = Nothing + Me.aCRMTaskCompleted.Id = "aCRMTaskCompleted" + Me.aCRMTaskCompleted.ImageName = Nothing + Me.aCRMTaskCompleted.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCRMTaskCompleted.Shortcut = Nothing + Me.aCRMTaskCompleted.Tag = Nothing + Me.aCRMTaskCompleted.TargetObjectsCriteria = "Status<>4" + Me.aCRMTaskCompleted.TargetViewId = Nothing + Me.aCRMTaskCompleted.ToolTip = Nothing + Me.aCRMTaskCompleted.TypeOfView = Nothing + ' + 'aCRMCreateTaskwithActivity + ' + Me.aCRMCreateTaskwithActivity.AcceptButtonCaption = Nothing + Me.aCRMCreateTaskwithActivity.CancelButtonCaption = Nothing + Me.aCRMCreateTaskwithActivity.Caption = "Create task with activity" + Me.aCRMCreateTaskwithActivity.Category = "ObjectsCreation" + Me.aCRMCreateTaskwithActivity.ConfirmationMessage = Nothing + Me.aCRMCreateTaskwithActivity.Id = "aCRMCreateTaskwithActivity" + Me.aCRMCreateTaskwithActivity.ImageName = Nothing + Me.aCRMCreateTaskwithActivity.Shortcut = Nothing + Me.aCRMCreateTaskwithActivity.Tag = Nothing + Me.aCRMCreateTaskwithActivity.TargetObjectsCriteria = Nothing + Me.aCRMCreateTaskwithActivity.TargetViewId = Nothing + Me.aCRMCreateTaskwithActivity.ToolTip = Nothing + Me.aCRMCreateTaskwithActivity.TypeOfView = Nothing + ' + 'aEdit_CRM_Leads_Activity + ' + Me.aEdit_CRM_Leads_Activity.Caption = "Edit CRM Activity" + Me.aEdit_CRM_Leads_Activity.Category = "RecordEdit" + Me.aEdit_CRM_Leads_Activity.ConfirmationMessage = Nothing + Me.aEdit_CRM_Leads_Activity.Id = "aEdit_CRM_Leads_Activity" + Me.aEdit_CRM_Leads_Activity.ImageName = Nothing + Me.aEdit_CRM_Leads_Activity.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aEdit_CRM_Leads_Activity.Shortcut = Nothing + Me.aEdit_CRM_Leads_Activity.Tag = Nothing + Me.aEdit_CRM_Leads_Activity.TargetObjectsCriteria = Nothing + Me.aEdit_CRM_Leads_Activity.TargetViewId = "" + Me.aEdit_CRM_Leads_Activity.ToolTip = Nothing + Me.aEdit_CRM_Leads_Activity.TypeOfView = Nothing + ' + 'aOpenCRM_Opportunities + ' + Me.aOpenCRM_Opportunities.Caption = "Open CRM Opportunities or Lead" + Me.aOpenCRM_Opportunities.Category = "RecordEdit" + Me.aOpenCRM_Opportunities.ConfirmationMessage = Nothing + Me.aOpenCRM_Opportunities.Id = "aOpenCRM_Opportunities" + Me.aOpenCRM_Opportunities.ImageName = Nothing + Me.aOpenCRM_Opportunities.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenCRM_Opportunities.Shortcut = Nothing + Me.aOpenCRM_Opportunities.Tag = Nothing + Me.aOpenCRM_Opportunities.TargetObjectsCriteria = Nothing + Me.aOpenCRM_Opportunities.TargetViewId = Nothing + Me.aOpenCRM_Opportunities.ToolTip = Nothing + Me.aOpenCRM_Opportunities.TypeOfView = Nothing + ' + 'aCRM_LeadsDocumentation_ChangeGroup + ' + Me.aCRM_LeadsDocumentation_ChangeGroup.AcceptButtonCaption = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.CancelButtonCaption = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.Caption = "aCRM_LeadsDocumentation_ChangeGroup" + Me.aCRM_LeadsDocumentation_ChangeGroup.ConfirmationMessage = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.Id = "aCRM_LeadsDocumentation_ChangeGroup" + Me.aCRM_LeadsDocumentation_ChangeGroup.ImageName = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCRM_LeadsDocumentation_ChangeGroup.Shortcut = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.Tag = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.TargetObjectsCriteria = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].CRM_LeadsDocumentation) + Me.aCRM_LeadsDocumentation_ChangeGroup.TargetViewId = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.ToolTip = Nothing + Me.aCRM_LeadsDocumentation_ChangeGroup.TypeOfView = Nothing + ' + 'aCRM_LeadsDocumentation_Remove + ' + Me.aCRM_LeadsDocumentation_Remove.Caption = "aCRM_LeadsDocumentation_Remove" + Me.aCRM_LeadsDocumentation_Remove.Category = "Edit" + Me.aCRM_LeadsDocumentation_Remove.ConfirmationMessage = "Biztosan trld a kijellt fjlokat?" + Me.aCRM_LeadsDocumentation_Remove.Id = "aCRM_LeadsDocumentation_Remove" + Me.aCRM_LeadsDocumentation_Remove.ImageName = "Action_Delete" + Me.aCRM_LeadsDocumentation_Remove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCRM_LeadsDocumentation_Remove.Shortcut = Nothing + Me.aCRM_LeadsDocumentation_Remove.Tag = Nothing + Me.aCRM_LeadsDocumentation_Remove.TargetObjectsCriteria = Nothing + Me.aCRM_LeadsDocumentation_Remove.TargetObjectType = GetType(SISBusiness.[Module].CRM_LeadsDocumentation) + Me.aCRM_LeadsDocumentation_Remove.TargetViewId = Nothing + Me.aCRM_LeadsDocumentation_Remove.ToolTip = Nothing + Me.aCRM_LeadsDocumentation_Remove.TypeOfView = Nothing + ' + 'aCRM_Leads_Activity_Task_OpenBusinessDirectory + ' + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Caption = "aCRM_Leads_Activity_Task_OpenBusinessDirectory" + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ConfirmationMessage = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Id = "aCRM_Leads_Activity_Task_OpenBusinessDirectory" + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ImageName = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Shortcut = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.Tag = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].CRM_Leads_Activity_Task) + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TargetViewId = "CRM_Leads_Activity_Task_ListView" + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.ToolTip = Nothing + Me.aCRM_Leads_Activity_Task_OpenBusinessDirectory.TypeOfView = Nothing + + End Sub + Friend WithEvents aQualifiedLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDisQualifiedLeads As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreate_CRM_Leads_Activity As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreate_CRM_Leads_Activity_Task As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRMTaskCompleted As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRMCreateTaskwithActivity As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aEdit_CRM_Leads_Activity As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenCRM_Opportunities As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_LeadsDocumentation_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRM_LeadsDocumentation_Remove As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_Leads_Activity_Task_OpenBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx new file mode 100644 index 0000000..c97feb8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.resx @@ -0,0 +1,156 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 596, 95 + + + 303, 134 + + + 509, 134 + + + 744, 134 + + + 17, 173 + + + 223, 173 + + + 17, 95 + + + 17, 134 + + + 342, 95 + + + 371, 339 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb new file mode 100644 index 0000000..315417f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_LeadsVC.vb @@ -0,0 +1,536 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class CRM_LeadsVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False) + + If View.Id = "CRM_Leads_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Leads_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_DetailView" Then + '--------Ha egy saját cég van, akkor az automatikusan beáll (mint a gerely)--------------->>> + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CustomersFrom As XPCollection = _ocur.CreateCollection(GetType(CustomersFrom), CriteriaOperator.Parse("1=1")) + + If _CustomersFrom.Count = 1 Then + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities) + _CRM_Opportunities.CustomersFrom = _CustomersFrom(0) + End If + '-----------------------------------------------------------------------------------------<<< + End If + If View.Id = "CRM_Leads_Activity_Task_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True) + Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then + Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True) + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + + End If + If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + + End If + If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_CRMNote_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CRM_Leads_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_CRM_Leads_Activity_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_CRM_Opportunity_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_Activity_CRM_Leads_Activity_Task_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Leads_Activity_Task_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", True) + Frame.GetController(Of CRM_LeadsVC)().aCRMTaskCompleted.Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aOpenCRM_Opportunities.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Leads_CRMNote_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Leads_CRM_LeadsDocumentation_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub aQualifiedLeads_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aQualifiedLeads.CustomizePopupWindowParams + Dim _onew = Application.CreateObjectSpace + Dim _CRM_Leads_Qualification As CRM_Leads_Qualification + _CRM_Leads_Qualification = _onew.CreateObject(Of CRM_Leads_Qualification)() + e.View = Application.CreateDetailView(_onew, "CRM_Leads_Qualification_DetailView", False, _CRM_Leads_Qualification) + End Sub + Private Sub aQualifiedLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aQualifiedLeads.Execute + Dim _CRM_Leads_Qualification As CRM_Leads_Qualification = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Qualification) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads) + Dim _CustomersGLParameters As CustomersGLParameters = _ocur.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True")) + Dim _CRM_Opportunities As CRM_Opportunities + Dim _Customers As Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("Address1.ZipPostal=? AND Address1.City=? AND Address1.Street=?", _CRM_Leads.ZIP, _CRM_Leads.City, _CRM_Leads.Street1)) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Email=?", _CRM_Leads.EMail)) + Dim _Address1 As Address + Dim _CRM_Opportunities_Probability As CRM_Opportunities_Probability = _ocur.FindObject(Of CRM_Opportunities_Probability)(CriteriaOperator.Parse("Probability<=30 and Probability>0")) + + If _CustomersGLParameters Is Nothing Then + _ocur.Rollback() + Throw New Exception("*Nincs beállítva főkönyvi kategória !") + Exit Sub + End If + If _CRM_Opportunities_Probability Is Nothing Then + _ocur.Rollback() + Throw New Exception("*Nincs beállítva CRM valószínűség törzs !") + Exit Sub + End If + + + If _CRM_Leads_Qualification.Customers Then + If _Customers Is Nothing Then + _Customers = _ocur.CreateObject(Of Customers)() + _Address1 = _ocur.CreateObject(Of Address)() + + _Address1.ZipPostal = _CRM_Leads.ZIP + _Address1.Country = _CRM_Leads.Country + _Address1.City = _CRM_Leads.City + _Address1.Street = _CRM_Leads.Street1 + + _Customers.Address1 = _Address1 + Else + _Customers.Address1.ZipPostal = _CRM_Leads.ZIP + _Customers.Address1.Country = _CRM_Leads.Country + _Customers.Address1.City = _CRM_Leads.City + _Customers.Address1.Street = _CRM_Leads.Street1 + End If + + _Customers.Name = _CRM_Leads.CompanyName + _Customers.FullName = _CRM_Leads.CompanyName + _Customers.CustomersGLParameters = _CustomersGLParameters + _Customers.CRM_Leads = _CRM_Leads + _CRM_Leads.LeadStatus = eLeadStatus.Qualified + If _CRM_Leads_Qualification.CreateOpportunities Then + _CRM_Opportunities = _ocur.CreateObject(Of CRM_Opportunities)() + _CRM_Opportunities.Customers = _Customers + _CRM_Opportunities.CRM_Leads = _CRM_Leads + _CRM_Opportunities.CRM_Opportunities_Probability = _CRM_Opportunities_Probability + _CRM_Opportunities.Probability = _CRM_Opportunities_Probability.Probability + + End If + End If + + If _CRM_Leads_Qualification.Contact Then + If _Contacts Is Nothing Then + _Contacts = _ocur.CreateObject(Of Contacts)() + End If + _Contacts.FirstName = _CRM_Leads.FirstName + _Contacts.LastName = _CRM_Leads.LastName + _Contacts.Email = _CRM_Leads.EMail + + If _CRM_Leads.OfficePhone <> "" Then 'Telefonszámok + Dim _OfficePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)() + _OfficePhone.PhoneType = "OfficePhone" + _OfficePhone.Number = _CRM_Leads.OfficePhone + _Contacts.PhoneNumbers.Add(_OfficePhone) + End If + + If _CRM_Leads.Fax <> "" Then + Dim _Fax As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)() + _Fax.PhoneType = "Fax" + _Fax.Number = _CRM_Leads.Fax + _Contacts.PhoneNumbers.Add(_Fax) + End If + If _CRM_Leads.MobilePhone <> "" Then + Dim _MobilePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)() + _MobilePhone.PhoneType = "MobilePhone" + _MobilePhone.Number = _CRM_Leads.MobilePhone + _Contacts.PhoneNumbers.Add(_MobilePhone) + End If + If _CRM_Leads.HomePhone <> "" Then + Dim _HomePhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)() + _HomePhone.PhoneType = "HomePhone" + _HomePhone.Number = _CRM_Leads.HomePhone + _Contacts.PhoneNumbers.Add(_HomePhone) + End If + If _CRM_Leads.OtherPhone <> "" Then + Dim _OtherPhone As DevExpress.Persistent.BaseImpl.PhoneNumber = _ocur.CreateObject(Of DevExpress.Persistent.BaseImpl.PhoneNumber)() + _OtherPhone.PhoneType = "OtherPhone" + _OtherPhone.Number = _CRM_Leads.OtherPhone + _Contacts.PhoneNumbers.Add(_OtherPhone) + End If + _Contacts.CRM_Leads = _CRM_Leads + _CRM_Leads.LeadStatus = eLeadStatus.Qualified + + If _CRM_Opportunities IsNot Nothing Then + _CRM_Opportunities.Contacts = _Contacts + End If + End If + _ocur.CommitChanges() + If _CRM_Leads_Qualification.CreateOpportunities Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Opportunities)) + 'e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + End If + View.Close() + End Sub + '-- Subs -- + Private Sub aDisQualifiedLeads_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDisQualifiedLeads.CustomizePopupWindowParams + Try + Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads) + If _CRM_Leads.CRM_Opportunity.Count = 0 Then Throw New UserFriendlyException("Nem lehet visszaminõsíteni a regisztrációt, mert létezik CRM ügye!") + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Leads_DisQualification As CRM_Leads_DisQualification + _CRM_Leads_DisQualification = _onew.CreateObject(Of CRM_Leads_DisQualification)() + e.View = Application.CreateDetailView(_onew, "CRM_Leads_DisQualification_DetailView", False, _CRM_Leads_DisQualification) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDisQualifiedLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDisQualifiedLeads.Execute + Dim _CRM_Leads_DisQualification As CRM_Leads_DisQualification = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_DisQualification) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads) + _CRM_Leads.LeadStatus = _CRM_Leads_DisQualification.DisQualificationLeadStatus + End Sub + Private Sub aCreate_CRM_Leads_Activity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreate_CRM_Leads_Activity.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + Dim _CRM_Leads As CRM_Leads = TryCast(_PropertyCollectionSource.MasterObject, CRM_Leads) + + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)() + + If _CRM_Leads IsNot Nothing Then + _CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Leads) + _CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson) + + ElseIf _CRM_Opportunities IsNot Nothing Then + _CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Opportunities.CRM_Leads) + _CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Opportunities.HRPerson) + _CRM_Leads_Activity.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities) + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCreate_CRM_Leads_Activity_Task_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreate_CRM_Leads_Activity_Task.Execute + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(_PropertyCollectionSource.MasterObject, CRM_Leads_Activity) + + If _CRM_Leads_Activity IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _onew.CreateObject(Of CRM_Leads_Activity_Task)() + + _CRM_Leads_Activity_Task.CRM_Leads_Activity = _onew.GetObject(_CRM_Leads_Activity) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_Task_DetailView", True, _CRM_Leads_Activity_Task) + Else + Throw New Exception("*Nincs kiválasztott aktivitás !") + End If + End Sub + Private Sub aCRMTaskCompleted_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRMTaskCompleted.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View.SelectedObjects.Count > 0 Then + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task) + + If _CRM_Leads_Activity_Task IsNot Nothing Then + If _CRM_Leads_Activity_Task.Status <> General.TaskStatus.Completed Then + Dim _CRM_Leads_Actvity_Completed_Popup As CRM_Leads_Actvity_Completed_Popup = _onew.CreateObject(Of CRM_Leads_Actvity_Completed_Popup)() + + e.View = Application.CreateDetailView(_onew, "CRM_Leads_Actvity_Completed_Popup_DetailView", False, _CRM_Leads_Actvity_Completed_Popup) + Else + _onew.Rollback() + Throw New Exception("*A feladat már befejezett státuszban van!") + End If + End If + Else + _onew.Rollback() + Throw New Exception("*Nincs kiválasztott sor!") + End If + End Sub + Private Sub aCRMTaskCompleted_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRMTaskCompleted.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Leads_Actvity_Completed_Popup As CRM_Leads_Actvity_Completed_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Actvity_Completed_Popup) + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task) + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + + If _CRM_Leads_Activity_Task.CRM_Leads_Activity IsNot Nothing Then + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities + _CRM_Leads_Activity.Description = _CRM_Leads_Actvity_Completed_Popup.Description & vbNewLine & _CRM_Leads_Activity_Task.CRM_Leads_Activity.Description + _CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task.CRM_Leads_Activity.EventType + _CRM_Leads_Activity.Status = _CRM_Leads_Activity_Task.CRM_Leads_Activity.Status + _CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task.CRM_Leads_Activity.Subject + Else + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads_Activity_Task.CRM_Opportunities.CRM_Leads + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Leads_Activity_Task.CRM_Opportunities + _CRM_Leads_Activity.Description = _CRM_Leads_Actvity_Completed_Popup.Description & vbNewLine & _CRM_Leads_Activity_Task.CRM_Leads_Activity.Description + _CRM_Leads_Activity.EventType = eEventType.eBusinessDirectory + _CRM_Leads_Activity.Status = _CRM_Leads_Activity_Task.Status + _CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task.Subject + End If + + _CRM_Leads_Activity.UserCreated = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser)) + + _CRM_Leads_Activity_Task.Results = _CRM_Leads_Actvity_Completed_Popup.Description + _CRM_Leads_Activity_Task.Status = General.TaskStatus.Completed + + _ocur.CommitChanges() + + View.Refresh() + End Sub + Private Sub aCRMCreateTaskwithActivity_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRMCreateTaskwithActivity.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _CRM_Leads_Activity_Task_Popup As CRM_Leads_Activity_Task_Popup = _onew.CreateObject(Of CRM_Leads_Activity_Task_Popup)() + + e.View = Application.CreateDetailView(_onew, "CRM_Leads_Activity_Task_Popup_DetailView", False, _CRM_Leads_Activity_Task_Popup) + End Sub + Private Sub aCRMCreateTaskwithActivity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRMCreateTaskwithActivity.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Leads_Activity_Task_Popup As CRM_Leads_Activity_Task_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_Leads_Activity_Task_Popup) + Dim _CRM_Leads As CRM_Leads = TryCast(View.SelectedObjects(0), CRM_Leads) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities) + + If _CRM_Leads IsNot Nothing Then + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _ocur.CreateObject(Of CRM_Leads_Activity_Task)() + + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities + _CRM_Leads_Activity.CRM_Leads_Activity_Task.Add(_CRM_Leads_Activity_Task) + _CRM_Leads_Activity.Description = _CRM_Leads_Activity_Task_Popup.Description + _CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task_Popup.EventType + _CRM_Leads_Activity.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid)) + _CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task_Popup.Subject + + _CRM_Leads_Activity_Task.CRM_Leads_Activity = _CRM_Leads_Activity + _CRM_Leads_Activity_Task.Description = _CRM_Leads_Activity_Task_Popup.Description + _CRM_Leads_Activity_Task.DueDate = _CRM_Leads_Activity_Task_Popup.DueDate + _CRM_Leads_Activity_Task.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid)) + _CRM_Leads_Activity_Task.Subject = _CRM_Leads_Activity_Task_Popup.Subject + _CRM_Leads_Activity_Task.StartDate = GetSQLTime(_ocur.Session) + + _ocur.CommitChanges() + ElseIf _CRM_Opportunities IsNot Nothing Then + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _ocur.CreateObject(Of CRM_Leads_Activity)() + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = _ocur.CreateObject(Of CRM_Leads_Activity_Task)() + + If _CRM_Opportunities.CRM_Leads Is Nothing Then + Dim _CRM_Leads_New As CRM_Leads = _ocur.CreateObject(Of CRM_Leads)() + + _CRM_Leads_New.LeadStatus = eLeadStatus.Qualified + _CRM_Leads_New.Customers = _ocur.GetObject(_CRM_Opportunities.Customers) + _CRM_Opportunities.Customers.CRM_Leads = _CRM_Leads_New + _CRM_Leads_New.CompanyName = _CRM_Leads_New.Customers.FullName + _CRM_Leads_New.Topic = _CRM_Leads_New.Customers.FullName + _CRM_Leads_New.EMail = "-" + _CRM_Leads_New.MobilePhone = "-" + _CRM_Leads_New.LastName = "-" + _CRM_Leads_New.FirstName = "-" + _CRM_Leads_New.CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True")) + + _CRM_Leads_Activity.CRM_Leads = _CRM_Leads_New + _CRM_Opportunities.CRM_Leads = _CRM_Leads_New + Else + _CRM_Leads_Activity.CRM_Leads = _CRM_Opportunities.CRM_Leads + End If + _CRM_Leads_Activity.CRM_Opportunities = _CRM_Opportunities + _CRM_Leads_Activity.Description = _CRM_Leads_Activity_Task_Popup.Description + _CRM_Leads_Activity.EventType = _CRM_Leads_Activity_Task_Popup.EventType + _CRM_Leads_Activity.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid)) + _CRM_Leads_Activity.Subject = _CRM_Leads_Activity_Task_Popup.Subject + + _CRM_Leads_Activity.CRM_Leads_Activity_Task.Add(_CRM_Leads_Activity_Task) + + _CRM_Leads_Activity_Task.CRM_Leads_Activity = _CRM_Leads_Activity + _CRM_Leads_Activity_Task.Description = _CRM_Leads_Activity_Task_Popup.Description + _CRM_Leads_Activity_Task.DueDate = _CRM_Leads_Activity_Task_Popup.DueDate + _CRM_Leads_Activity_Task.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task_Popup.HRPerson.Oid)) + _CRM_Leads_Activity_Task.Subject = _CRM_Leads_Activity_Task_Popup.Subject + _CRM_Leads_Activity_Task.StartDate = GetSQLTime(_ocur.Session) + + _ocur.CommitChanges() + End If + View.Refresh() + End Sub + Private Sub aEdit_CRM_Leads_Activity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aEdit_CRM_Leads_Activity.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Leads_Activity As CRM_Leads_Activity = TryCast(View.SelectedObjects(0), CRM_Leads_Activity) + If _CRM_Leads_Activity IsNot Nothing Then + If _CRM_Leads_Activity.EventType <> eEventType.eEMailIn And _CRM_Leads_Activity.EventType <> eEventType.eEmailOut Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _onew.GetObject(_CRM_Leads_Activity)) + Else + Throw New Exception("*Email-el kapcsolatos aktivitást nem lehet szerkeszteni!") + End If + End If + End Sub + Private Sub aOpenCRM_Opportunities_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenCRM_Opportunities.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task) + + If _CRM_Leads_Activity_Task IsNot Nothing Then + If _CRM_Leads_Activity_Task.CRM_Leads_Activity IsNot Nothing Then + If _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Opportunities)) + ' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + ElseIf _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads IsNot Nothing Then + If _CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads.LeadStatus <> eLeadStatus.Qualified Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Leads_Activity.CRM_Leads)) + ' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + End If + End If + Else + If _CRM_Leads_Activity_Task.CRM_Opportunities IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Leads_Activity_Task.CRM_Opportunities)) + End If + End If + End If + End Sub + + Public Sub aCRM_LeadsDocumentation_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRM_LeadsDocumentation_ChangeGroup.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = e.Action.Id + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + Public Sub aCRM_LeadsDocumentation_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRM_LeadsDocumentation_ChangeGroup.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + For Each _CRM_LeadsDocumentation As CRM_LeadsDocumentation In View.SelectedObjects + If _ChangeFileAttachment_PopUp.ChangeStatus = True Then + _CRM_LeadsDocumentation.Status = _ChangeFileAttachment_PopUp.Status + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then + _CRM_LeadsDocumentation.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then + _CRM_LeadsDocumentation.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + Private Sub aCRM_LeadsDocumentation_Remove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_LeadsDocumentation_Remove.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + + For Each _CRM_LeadsDocumentation As CRM_LeadsDocumentation In e.SelectedObjects + If _CRM_Opportunities IsNot Nothing Then + _CRM_Opportunities.CRM_Leads.CRM_LeadsDocumentation.Remove(_CRM_LeadsDocumentation) + End If + Next + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCRM_Leads_Activity_Task_OpenBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_Leads_Activity_Task_OpenBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Leads_Activity_Task As CRM_Leads_Activity_Task = TryCast(View.SelectedObjects(0), CRM_Leads_Activity_Task) + Dim _BusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("Oid=?", _CRM_Leads_Activity_Task.MasterKey)) + + If _BusinessDirectory IsNot Nothing Then + If Not _BusinessDirectory.IsFolder 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) + + _BusinessDirectory.FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + Process.Start(_FileName) + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity.vb new file mode 100644 index 0000000..e2f255b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.CloneObject + +'-- Paramterek, enumok + _ + _ +Public Class CRM_Leads_Activity + Inherits MySchedule + Private _CRM_Leads As CRM_Leads + Private _CRM_Opportunities As CRM_Opportunities + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + Public Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + _ + ReadOnly Property CRM_Leads_Activity_Task As XPCollection(Of CRM_Leads_Activity_Task) + Get + Return GetCollection(Of CRM_Leads_Activity_Task)("CRM_Leads_Activity_Task") + End Get + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity_Task.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity_Task.vb new file mode 100644 index 0000000..ad675b2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Leads_Activity_Task.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ +General.TaskStatus.Completed", AppearanceItemType.ViewItem, "Status<>4", TargetItems:="Results", visibility:=Editors.ViewItemVisibility.Hide)> _ +Public Class CRM_Leads_Activity_Task + Inherits Task + Private _CRM_Leads_Activity As CRM_Leads_Activity + Private _ObjectCreated As Date 'Ltrehozva + Private _UserCreated As User 'Ltrehoz + Private _HRPerson As HRPerson + Private _Results As String = "" ' Mi lett a taszk eredmnye (szveges) csak akkor ltszdjon, ha van eredmny (Completed) + Private _AlertPeriod As AlertPeriod 'Figyelmeztets + Private _MasterKey As Guid ' Hordozott objektum + Private _CRM_Opportunities As CRM_Opportunities 'CRM gy + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property CRM_Leads_Activity As CRM_Leads_Activity + Get + Return _CRM_Leads_Activity + End Get + Set(value As CRM_Leads_Activity) + SetPropertyValue("CRM_Leads_Activity", _CRM_Leads_Activity, value) + End Set + End Property + _ + Property Results As String + Get + Return _Results + End Get + Set(value As String) + SetPropertyValue("Results", _Results, value) + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities.vb new file mode 100644 index 0000000..5e8230b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities.vb @@ -0,0 +1,452 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ + _ +Public Class CRM_Opportunities + Inherits BaseObject + + Private _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters + Private _CustomersFrom As CustomersFrom + Private _CloseDate As Date + + '--General + Private _ShortName As String + Private _DocumentNumber As String + Private _Customers As Customers + Private _Contacts As Contacts + Private _EstimatedRevenue As Double + Private _EstimatedCurrencyName As CurrencyName + Private _EstimatedRevenueHUF As Double + Private _EstimatedCloseDate As Date + Private _Probability As Long + Private _OpportunityRating As eOpportunityRating + Private _CRM_Opportunities_Probability As CRM_Opportunities_Probability + Private _JobNumberObjects As JobNumberObjects + Private _WorkPlace As WorkPlace + Private _MasterBusinessDirectory As BusinessDirectory + + '-- Administration + Private _CRM_Leads As CRM_Leads + Private _OpportunityStatus As eOpportunityStatus + Private _HRPerson As HRPerson + Private _WorkflowSystemSteps As WorkflowSystemSteps + + Private _UserCreated As User 'Ltrehoz + Private _ObjectCreated As Date 'Ltrehozva + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If IsDeleted = False Then + ' CRM gyhz dokumentum trhely belltsa + If MasterBusinessDirectory Is Nothing Then + Dim _CRMBusinessDirectory As BusinessDirectory = Session.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("")) + End If + If Me.CRM_Opportunities_Parameters Is Nothing Then + If Me.CustomersFrom IsNot Nothing Then + Dim _CRM_Opportunities_Parameters As CRM_Opportunities_Parameters = Session.FindObject(Of CRM_Opportunities_Parameters)(CriteriaOperator.Parse("IsDefault=True and CustomersFrom=?", Me.CustomersFrom)) + If _CRM_Opportunities_Parameters IsNot Nothing Then + Me.CRM_Opportunities_Parameters = _CRM_Opportunities_Parameters + End If + End If + End If + If Me.CRM_Opportunities_Parameters IsNot Nothing Then + If Me.CRM_Opportunities_Parameters.WorkflowSystem IsNot Nothing Then + If Me.WorkflowSystemSteps Is Nothing Then + Dim _WorkflowSystemSteps As WorkflowSystemSteps = Session.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem=? and StepIndex=1", Me.CRM_Opportunities_Parameters.WorkflowSystem)) + If _WorkflowSystemSteps IsNot Nothing Then + Me.WorkflowSystemSteps = _WorkflowSystemSteps + End If + End If + End If + If Me.DocumentNumber = "" Then Me.DocumentNumber = Me.CRM_Opportunities_Parameters.NumberGenerator.GetNewNumber(Me.CRM_Opportunities_Parameters.NumberGenerator) + End If + End If + End Sub + + Property CRM_Opportunities_Parameters As CRM_Opportunities_Parameters + Get + Return _CRM_Opportunities_Parameters + End Get + Set(value As CRM_Opportunities_Parameters) + SetPropertyValue("CRM_Opportunities_Parameters", _CRM_Opportunities_Parameters, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property CloseDate As Date + Get + Return _CloseDate + End Get + Set(ByVal value As Date) + SetPropertyValue("CloseDate", _CloseDate, value) + End Set + End Property + + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property EstimatedRevenue As Double + Get + Return _EstimatedRevenue + End Get + Set(ByVal value As Double) + SetPropertyValue("EstimatedRevenue", _EstimatedRevenue, value) + End Set + End Property + Property EstimatedCurrencyName As CurrencyName + Get + Return _EstimatedCurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("EstimatedCurrencyName", _EstimatedCurrencyName, value) + End Set + End Property + Property EstimatedRevenueHUF As Double + Get + Return _EstimatedRevenueHUF + End Get + Set(value As Double) + SetPropertyValue("EstimatedRevenueHUF", _EstimatedRevenueHUF, value) + End Set + End Property + Property EstimatedCloseDate As Date + Get + Return _EstimatedCloseDate + End Get + Set(ByVal value As Date) + SetPropertyValue("EstimatedCloseDate", _EstimatedCloseDate, value) + End Set + End Property + _ + Property Probability As Long + Get + Return _Probability + End Get + Set(ByVal value As Long) + SetPropertyValue("Probability", _Probability, value) + End Set + End Property + _ + Property CRM_Opportunities_Probability As CRM_Opportunities_Probability + Get + Return _CRM_Opportunities_Probability + End Get + Set(value As CRM_Opportunities_Probability) + SetPropertyValue("CRM_Opportunities_Probability", _CRM_Opportunities_Probability, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + Probability = value.Probability + End If + End Set + End Property + Property OpportunityRating As eOpportunityRating + Get + Return _OpportunityRating + End Get + Set(ByVal value As eOpportunityRating) + SetPropertyValue("OpportunityRating", _OpportunityRating, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(ByVal value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + Property OpportunityStatus As eOpportunityStatus + Get + Return _OpportunityStatus + End Get + Set(ByVal value As eOpportunityStatus) + SetPropertyValue("OpportunityStatus", _OpportunityStatus, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + End Set + End Property + + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '-----------ReadOnly------------ + _ + _ + ReadOnly Property OfferOutHeader As XPCollection(Of OfferOutHeader) + Get + Return GetCollection(Of OfferOutHeader)("OfferOutHeader") + End Get + End Property + _ + _ + ReadOnly Property OfferInHeader As XPCollection(Of OfferInHeader) + Get + Return GetCollection(Of OfferInHeader)("OfferInHeader") + End Get + End Property + _ + _ + ReadOnly Property OrderInHeader As XPCollection(Of OrderInHeader) + Get + Return GetCollection(Of OrderInHeader)("OrderInHeader") + End Get + End Property + _ + _ + ReadOnly Property Contracts As XPCollection(Of Contracts) + Get + Return GetCollection(Of Contracts)("Contracts") + End Get + End Property + _ + ReadOnly Property DeliveryNoteOutHeader As XPCollection(Of DeliveryNoteOutHeader) + Get + Return New XPCollection(Of DeliveryNoteOutHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom)) + End Get + End Property + _ + ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader) + Get + Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom)) + End Get + End Property 'Szmlk + _ + ReadOnly Property PCIDetail As XPCollection(Of PCIDetail) + Get + Return New XPCollection(Of PCIDetail)(Session, CriteriaOperator.Parse("PartnerType=0 and Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom)) + End Get + End Property + _ + ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity) + Get + Return New XPCollection(Of CRM_Leads_Activity)(Session, CriteriaOperator.Parse("CRM_Leads=?", Me.CRM_Leads)) + End Get + End Property + _ + _ + ReadOnly Property CRM_Opportunities_Contacts_Roles As XPCollection(Of CRM_Opportunities_Contacts_Roles) + Get + Return GetCollection(Of CRM_Opportunities_Contacts_Roles)("CRM_Opportunities_Contacts_Roles") + End Get + End Property + _ + ReadOnly Property CRM_Leads_Activity_Task As XPCollection(Of CRM_Leads_Activity_Task) + Get + Return New XPCollection(Of CRM_Leads_Activity_Task)(Session, CriteriaOperator.Parse("CRM_Leads_Activity.CRM_Leads=? or CRM_Opportunities=?", Me.CRM_Leads, Me)) + End Get + End Property + _ + ReadOnly Property RegistryTask As XPCollection(Of RegistryTasks) + Get + If Me.CustomersFrom IsNot Nothing Then + Return New XPCollection(Of RegistryTasks)(Session, _ + CriteriaOperator.Parse("RegistryHeader.CustomersFrom=? and Status<>4 and RegistryHeader.RegistryType.RegistryMainType=5", Me.CustomersFrom)) + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property WorkSheet_Header As XPCollection(Of WorkSheet_Header) + Get + Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Customers=? and CustomersFrom=?", Me.Customers, Me.CustomersFrom)) + End Get + End Property + + ReadOnly Property CRM_Opportunities_Products As XPCollection(Of CRM_Opportunities_Products) + Get + Return GetCollection(Of CRM_Opportunities_Products)("CRM_Opportunities_Products") + End Get + End Property + + ReadOnly Property CRM_Opportunities_Services As XPCollection(Of CRM_Opportunities_Services) + Get + Return GetCollection(Of CRM_Opportunities_Services)("CRM_Opportunities_Services") + End Get + End Property + _ + ReadOnly Property CRM_Opportunities_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + Return _BusinessDirectory_Collection + End Get + End Property + _ + ReadOnly Property MasterBusinessDirectoryCollection As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectoryReturn_Collection As XPCollection(Of BusinessDirectory) = Nothing + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session) + If _BusinessDirectory_Collection.Count > 0 Then + Dim _Filter As String = "Oid in(" + + For Each _BusinessDirectory As BusinessDirectory In _BusinessDirectory_Collection + If _BusinessDirectory.IsFolder Then _Filter += "'" + _BusinessDirectory.Oid.ToString + "'," + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + If _Filter.Length > 8 Then + _BusinessDirectoryReturn_Collection = New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse(_Filter)) + _BusinessDirectory_Collection.Filter = CriteriaOperator.Parse("IsFolder=True") + Else + _Filter = "1=2" + End If + End If + + Return _BusinessDirectoryReturn_Collection + End Get + End Property + _ + _ + ReadOnly Property CRM_Opportunities_Customers As XPCollection(Of CRM_Opportunities_Customers) + Get + Return New XPCollection(Of CRM_Opportunities_Customers)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me)) + End Get + End Property + _ + _ + ReadOnly Property CRM_Opportunities_CustomersContacts As XPCollection(Of CRM_Opportunities_CustomersContacts) + Get + Return New XPCollection(Of CRM_Opportunities_CustomersContacts)(Session, CriteriaOperator.Parse("CRM_Opportunities=?", Me)) + End Get + End Property + + _ + ReadOnly Property OrderInRowsOther As XPCollection(Of OrderInRowsOther) + Get + Return New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("OrderInHeader.CRM_Opportunities=?", Me)) + End Get + End Property + + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub + + +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb new file mode 100644 index 0000000..64a30a6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.Designer.vb @@ -0,0 +1,202 @@ +Partial Class CRM_OpportunitiesVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCRM_O_CreateOfferOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CreateOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_ViewLeads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CreateActivity = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CreateOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CreateContracts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRM_O_Set_Registry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_UnSet_Registry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_RecalculateEstimatedRevenue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CreateBusinessDirectoryTask = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRM_O_CRM_O_Customers_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRM_O_CRM_O_CustomersContacts_New = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCRM_O_CRM_O_CustomersContacts_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCRM_O_CRM_O_Customers_Delete = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCRM_O_CreateOfferOut + ' + Me.aCRM_O_CreateOfferOut.Caption = "Create offer out" + Me.aCRM_O_CreateOfferOut.Category = "ObjectsCreation" + Me.aCRM_O_CreateOfferOut.ConfirmationMessage = Nothing + Me.aCRM_O_CreateOfferOut.Id = "aCRM_O_CreateOfferOut" + Me.aCRM_O_CreateOfferOut.ImageName = "document_edit" + Me.aCRM_O_CreateOfferOut.TargetViewId = "CRM_Opportunities_OfferOutHeader_ListView" + Me.aCRM_O_CreateOfferOut.ToolTip = Nothing + ' + 'aCRM_O_CreateOrderIn + ' + Me.aCRM_O_CreateOrderIn.Caption = "Create order in" + Me.aCRM_O_CreateOrderIn.Category = "ObjectsCreation" + Me.aCRM_O_CreateOrderIn.ConfirmationMessage = Nothing + Me.aCRM_O_CreateOrderIn.Id = "aCRM_O_CreateOrderIn" + Me.aCRM_O_CreateOrderIn.ImageName = "document_down" + Me.aCRM_O_CreateOrderIn.TargetViewId = "CRM_Opportunities_OrderInHeader_ListView" + Me.aCRM_O_CreateOrderIn.ToolTip = Nothing + ' + 'aCRM_O_ViewLeads + ' + Me.aCRM_O_ViewLeads.Caption = "View leads" + Me.aCRM_O_ViewLeads.Category = "OpenObject" + Me.aCRM_O_ViewLeads.ConfirmationMessage = Nothing + Me.aCRM_O_ViewLeads.Id = "aCRM_O_ViewLeads" + Me.aCRM_O_ViewLeads.ImageName = "BO_Lead" + Me.aCRM_O_ViewLeads.TargetViewId = "CRM_Opportunities_DetailView" + Me.aCRM_O_ViewLeads.ToolTip = Nothing + ' + 'aCRM_O_CreateActivity + ' + Me.aCRM_O_CreateActivity.Caption = "Create Activity" + Me.aCRM_O_CreateActivity.ConfirmationMessage = Nothing + Me.aCRM_O_CreateActivity.Id = "aCRM_O_CreateActivity" + Me.aCRM_O_CreateActivity.ImageName = "Action_New" + Me.aCRM_O_CreateActivity.TargetViewId = "CRM_Opportunities_CRM_Leads_Activity_ListView" + Me.aCRM_O_CreateActivity.ToolTip = Nothing + ' + 'aCRM_O_CreateOfferIn + ' + Me.aCRM_O_CreateOfferIn.Caption = "Create offer in" + Me.aCRM_O_CreateOfferIn.Category = "ObjectsCreation" + Me.aCRM_O_CreateOfferIn.ConfirmationMessage = Nothing + Me.aCRM_O_CreateOfferIn.Id = "aCRM_O_CreateOfferIn" + Me.aCRM_O_CreateOfferIn.TargetViewId = "CRM_Opportunities_OfferInHeader_ListView" + Me.aCRM_O_CreateOfferIn.ToolTip = Nothing + ' + 'aCRM_O_CreateContracts + ' + Me.aCRM_O_CreateContracts.AcceptButtonCaption = Nothing + Me.aCRM_O_CreateContracts.CancelButtonCaption = Nothing + Me.aCRM_O_CreateContracts.Caption = "Create Contracts" + Me.aCRM_O_CreateContracts.Category = "ObjectsCreation" + Me.aCRM_O_CreateContracts.ConfirmationMessage = Nothing + Me.aCRM_O_CreateContracts.Id = "aCRM_O_CreateContracts" + Me.aCRM_O_CreateContracts.TargetViewId = "CRM_Opportunities_Contracts_ListView" + Me.aCRM_O_CreateContracts.ToolTip = Nothing + ' + 'aCRM_O_Set_Registry + ' + Me.aCRM_O_Set_Registry.Caption = "CRM O Set Registry" + Me.aCRM_O_Set_Registry.Category = "ObjectsCreation" + Me.aCRM_O_Set_Registry.ConfirmationMessage = Nothing + Me.aCRM_O_Set_Registry.Id = "aCRM_O_Set_Registry" + Me.aCRM_O_Set_Registry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCRM_O_Set_Registry.TargetViewId = "" + Me.aCRM_O_Set_Registry.ToolTip = Nothing + ' + 'aCRM_O_UnSet_Registry + ' + Me.aCRM_O_UnSet_Registry.Caption = "CRM O UnSet Registry" + Me.aCRM_O_UnSet_Registry.Category = "ObjectsCreation" + Me.aCRM_O_UnSet_Registry.ConfirmationMessage = Nothing + Me.aCRM_O_UnSet_Registry.Id = "aCRM_O_UnSet_Registry" + Me.aCRM_O_UnSet_Registry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCRM_O_UnSet_Registry.TargetViewId = "" + Me.aCRM_O_UnSet_Registry.ToolTip = Nothing + ' + 'aCRM_O_RecalculateEstimatedRevenue + ' + Me.aCRM_O_RecalculateEstimatedRevenue.Caption = "aCRM_O_RecalculateEstimatedRevenue" + Me.aCRM_O_RecalculateEstimatedRevenue.Category = "RecordEdit" + Me.aCRM_O_RecalculateEstimatedRevenue.ConfirmationMessage = Nothing + Me.aCRM_O_RecalculateEstimatedRevenue.Id = "aCRM_O_RecalculateEstimatedRevenue" + Me.aCRM_O_RecalculateEstimatedRevenue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCRM_O_RecalculateEstimatedRevenue.TargetObjectType = GetType(SISBusiness.[Module].CRM_Opportunities) + Me.aCRM_O_RecalculateEstimatedRevenue.ToolTip = Nothing + ' + 'aCRM_O_CreateBusinessDirectoryTask + ' + Me.aCRM_O_CreateBusinessDirectoryTask.AcceptButtonCaption = Nothing + Me.aCRM_O_CreateBusinessDirectoryTask.CancelButtonCaption = Nothing + Me.aCRM_O_CreateBusinessDirectoryTask.Caption = "aCRM_O_CreateBusinessDirectoryTask" + Me.aCRM_O_CreateBusinessDirectoryTask.ConfirmationMessage = Nothing + Me.aCRM_O_CreateBusinessDirectoryTask.Id = "aCRM_O_CreateBusinessDirectoryTask" + Me.aCRM_O_CreateBusinessDirectoryTask.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCRM_O_CreateBusinessDirectoryTask.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aCRM_O_CreateBusinessDirectoryTask.TargetViewId = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" + Me.aCRM_O_CreateBusinessDirectoryTask.ToolTip = Nothing + ' + 'aCRM_O_CRM_O_Customers_New + ' + Me.aCRM_O_CRM_O_Customers_New.AcceptButtonCaption = Nothing + Me.aCRM_O_CRM_O_Customers_New.CancelButtonCaption = Nothing + Me.aCRM_O_CRM_O_Customers_New.Caption = "aCRM_O_CRM_O_Customers_New" + Me.aCRM_O_CRM_O_Customers_New.Category = "ObjectsCreation" + Me.aCRM_O_CRM_O_Customers_New.ConfirmationMessage = Nothing + Me.aCRM_O_CRM_O_Customers_New.Id = "aCRM_O_CRM_O_Customers_New" + Me.aCRM_O_CRM_O_Customers_New.TargetObjectType = GetType(SISBusiness.[Module].CRM_Opportunities_Customers) + Me.aCRM_O_CRM_O_Customers_New.ToolTip = Nothing + ' + 'aCRM_O_CRM_O_CustomersContacts_New + ' + Me.aCRM_O_CRM_O_CustomersContacts_New.AcceptButtonCaption = Nothing + Me.aCRM_O_CRM_O_CustomersContacts_New.CancelButtonCaption = Nothing + Me.aCRM_O_CRM_O_CustomersContacts_New.Caption = "aCRM_O_CRM_O_CustomersContacts_New" + Me.aCRM_O_CRM_O_CustomersContacts_New.Category = "ObjectsCreation" + Me.aCRM_O_CRM_O_CustomersContacts_New.ConfirmationMessage = Nothing + Me.aCRM_O_CRM_O_CustomersContacts_New.Id = "aCRM_O_CRM_O_CustomersContacts_New" + Me.aCRM_O_CRM_O_CustomersContacts_New.TargetObjectType = GetType(SISBusiness.[Module].CRM_Opportunities_CustomersContacts) + Me.aCRM_O_CRM_O_CustomersContacts_New.ToolTip = Nothing + ' + 'aCRM_O_CRM_O_CustomersContacts_Delete + ' + Me.aCRM_O_CRM_O_CustomersContacts_Delete.Caption = "aCRM_O_CRM_O_CustomersContacts_Delete" + Me.aCRM_O_CRM_O_CustomersContacts_Delete.Category = "Edit" + Me.aCRM_O_CRM_O_CustomersContacts_Delete.ConfirmationMessage = Nothing + Me.aCRM_O_CRM_O_CustomersContacts_Delete.Id = "aCRM_O_CRM_O_CustomersContacts_Delete" + Me.aCRM_O_CRM_O_CustomersContacts_Delete.TargetObjectType = GetType(SISBusiness.[Module].CRM_Opportunities_CustomersContacts) + Me.aCRM_O_CRM_O_CustomersContacts_Delete.ToolTip = Nothing + ' + 'aCRM_O_CRM_O_Customers_Delete + ' + Me.aCRM_O_CRM_O_Customers_Delete.Caption = "aCRM_O_CRM_O_Customers_Delete" + Me.aCRM_O_CRM_O_Customers_Delete.ConfirmationMessage = Nothing + Me.aCRM_O_CRM_O_Customers_Delete.Id = "aCRM_O_CRM_O_Customers_Delete" + Me.aCRM_O_CRM_O_Customers_Delete.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCRM_O_CRM_O_Customers_Delete.TargetObjectType = GetType(SISBusiness.[Module].CRM_Opportunities_Customers) + Me.aCRM_O_CRM_O_Customers_Delete.ToolTip = Nothing + + End Sub + Friend WithEvents aCRM_O_CreateOfferOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CreateOrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_ViewLeads As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CreateActivity As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CreateOfferIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CreateContracts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRM_O_Set_Registry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_UnSet_Registry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_RecalculateEstimatedRevenue As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CreateBusinessDirectoryTask As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRM_O_CRM_O_Customers_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRM_O_CRM_O_CustomersContacts_New As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCRM_O_CRM_O_CustomersContacts_Delete As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCRM_O_CRM_O_Customers_Delete As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx new file mode 100644 index 0000000..7d86fc3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 290 + + + 17, 329 + + + 17, 368 + + + 17, 563 + + + 17, 524 + + + 17, 485 + + + 17, 446 + + + 17, 407 + + + 17, 56 + + + 17, 212 + + + 17, 251 + + + 17, 173 + + + 17, 95 + + + 17, 134 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb new file mode 100644 index 0000000..37da989 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_OpportunitiesVC.vb @@ -0,0 +1,604 @@ +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.Data.Filtering + +Public Class CRM_OpportunitiesVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", False) + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False) + + If View.Id = "CRM_Opportunities_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_Contracts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True) + + End If + If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then + Frame.GetController(Of CRM_LeadsVC)().aEdit_CRM_Leads_Activity.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Leads_Activity_Task_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + _ListView.CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("HRPerson.User.UserName=?", SecuritySystem.CurrentUserName) + End If + If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + '// Csak az aktulis CRM gyhz tartoz ttelek kellenek + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria("Current") = CriteriaOperator.Parse("RegistryHeader.CRM_Opportunities.Oid=?", _CRM_Opportunities.Oid) + _ListView.CollectionSource.EndUpdateCriteria() + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_Customers_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersContacts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + If View.Id = "CRM_Opportunities_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CRM_LeadsVC)().aCRMCreateTaskwithActivity.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_DeliveryNoteOutHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_Contacts_Roles_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_InvoiceHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of InvoiceVC)().aPrintSelectedInvoices.Active.SetItemValue("", False) + Frame.GetController(Of InvoiceVC)().aFinalizeInvoice.Active.SetItemValue("", False) + End If + + If View.Id = "CRM_Opportunities_PCIDetail_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_OfferOutHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_OrderInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_CRM_Leads_Activity_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_RegistryTask_ListView_NotSet" Then + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_Set_Registry.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + End If + If View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Then + Frame.GetController(Of CRM_OpportunitiesVC)().aCRM_O_UnSet_Registry.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_BusinessDirectory_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrder_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CRM_Opportunities_CRM_Opportunities_CustomersOrderContacts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aCRM_O_CreateOfferOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferOut.Execute + Dim _ListView As ListView = CType(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = CType(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + + If _CRM_Opportunities.CustomersFrom IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OfferOutHeader As OfferOutHeader = _onew.CreateObject(Of OfferOutHeader)() + + _OfferOutHeader.CustomersFrom = _onew.GetObject(_CRM_Opportunities.CustomersFrom) + _OfferOutHeader.Contact = _onew.GetObject(_CRM_Opportunities.Contacts) + _OfferOutHeader.Customers = _onew.GetObject(_CRM_Opportunities.Customers) + _OfferOutHeader.IsEditable = True + _OfferOutHeader.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferOutHeader_DetailView", True, _OfferOutHeader) + ' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + 'e.ShowViewParameters.Context = TemplateContext.ApplicationWindow + 'e.ShowViewParameters.CreateAllControllers = True + Else + Throw New UserFriendlyException("Nincs belltva sajt cg!") + End If + View.Refresh() + End Sub + Private Sub aCRM_O_CreateOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOrderIn.Execute + Dim _ListView As ListView = CType(View, ListView) + + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _OrderInHeader As OrderInHeader = _onew.CreateObject(Of OrderInHeader)() + + If _CRM_Opportunities.CustomersFrom IsNot Nothing Then + _OrderInHeader.Contacts = _onew.GetObject(_CRM_Opportunities.Contacts) + _OrderInHeader.Customers = _onew.GetObjectByKey(Of Customers)(_CRM_Opportunities.Customers.Oid) + _OrderInHeader.CustomersFrom = _onew.GetObject(_CRM_Opportunities.CustomersFrom) + _OrderInHeader.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OrderInHeader_DetailView", True, _OrderInHeader) + ' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_ocur, "OrderInHeader_DetailView", False, _OrderInHeader) + 'e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + Else + Throw New UserFriendlyException("Nincs belltva sajt cg!") + End If + + View.Refresh() + End Sub + Private Sub aCRM_O_ViewLeads_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_ViewLeads.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(View.SelectedObjects(0), CRM_Opportunities) + Dim _CRM_Leads As CRM_Leads = _CRM_Opportunities.CRM_Leads + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_DetailView", True, _onew.GetObject(_CRM_Leads)) + End Sub + Private Sub aCRM_O_CreateActivity_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateActivity.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)() + + _CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Opportunities.CRM_Leads) + _CRM_Leads_Activity.CRM_Opportunities = _onew.GetObject(_CRM_Opportunities) + _CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Opportunities.HRPerson) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity) + ' e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + End Sub + Private Sub aCRM_O_CreateOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_CreateOfferIn.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + If _CRM_Opportunities IsNot Nothing Then + Dim _OfferInHeader As OfferInHeader = _onew.CreateObject(Of OfferInHeader)() + _OfferInHeader.CRM_Opportunities = _onew.GetObjectByKey(Of CRM_Opportunities)(_CRM_Opportunities.Oid) + _OfferInHeader.CustomersFrom = _onew.GetObjectByKey(Of CustomersFrom)(_CRM_Opportunities.CustomersFrom.Oid) + '_OfferInHeader.Customers = _onew.GetObjectByKey(Of Customers)(_CRM_Opportunities.Customers.Oid) + '_OfferInHeader.Contact = _onew.GetObjectByKey(Of Contacts)(_CRM_Opportunities.Contacts.Oid) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferInHeader_DetailView", True, _OfferInHeader) + 'e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + 'e.ShowViewParameters.Context = TemplateContext.View + 'e.ShowViewParameters.CreateAllControllers = True + End If + End Sub + Private Sub aCRM_O_CreateContracts_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CreateContracts.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(_PropertyCollectionSource.MasterObject, CRM_Opportunities) + If _CRM_Opportunities IsNot Nothing Then + Dim _CreateContracts_CustomizePupUp As CreateContracts_CustomizePupUp = _onew.CreateObject(Of CreateContracts_CustomizePupUp)() + _CreateContracts_CustomizePupUp.CRM_Opportunities = _onew.GetObjectByKey(Of CRM_Opportunities)(_CRM_Opportunities.Oid) + + e.View = Application.CreateDetailView(_onew, "CreateContracts_CustomizePupUp_DetailView", False, _CreateContracts_CustomizePupUp) + Else + Throw New Exception("*Nincs CRM gy!") + End If + End Sub + Private Sub aCRM_O_CreateContracts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CreateContracts.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CreateContracts_CustomizePupUp As CreateContracts_CustomizePupUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp)) + Dim _ContractTemplate As ContractTemplate = _ocur.GetObjectByKey(Of ContractTemplate)(_CreateContracts_CustomizePupUp.ContractTemplate.Oid) + + If _ContractTemplate Is Nothing Then Throw New Exception("*Nem lett belltva szerzds sablon, a folyamat megszakadt!") + If _CreateContracts_CustomizePupUp.Controlling Is Nothing Then Throw New Exception("*Nem lett belltva contollszm, a folyamat megszakadt!") + + Dim _Contracts As Contracts = _onew.CreateObject(Of Contracts)() + + _Contracts.CRM_Opportunities = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities) + _Contracts.ContractTemplate = _onew.GetObject(_ContractTemplate) + _Contracts.CustomersFrom = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities.CustomersFrom) + _Contracts.Customers = _onew.GetObject(_CreateContracts_CustomizePupUp.CRM_Opportunities.Customers) + _Contracts.DateCreated = GetSQLTime(_ocur.Session) + _Contracts.State = State.Preparation + + Select Case _CreateContracts_CustomizePupUp.CreateContractsFrom + Case eCreateContractsFrom.eOrderInAcknowledgement + _Contracts.OrderInAcknowledgementHeader = _ocur.GetObject(TryCast(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp).OrderInAcknowledgementHeader, OrderInAcknowledgementHeader)) + _Contracts.CurrencyName = _Contracts.OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName + If _CreateContracts_CustomizePupUp.WithOfferInRows Then + For Each _OrderInAcknowledgementRows As OrderInAcknowledgementRows In _Contracts.OrderInAcknowledgementHeader.OrderInAcknowledgementRows + Dim _ContractRows As ContractRows = _onew.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.CurrencyName = _onew.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName) + _ContractRows.Description = _OrderInAcknowledgementRows.Description + _ContractRows.NettoPriceDEV = _OrderInAcknowledgementRows.SumPriceDEV + _ContractRows.NettoPriceHUF = _OrderInAcknowledgementRows.SumPriceHUF + _ContractRows.PaymentOption = _ocur.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.PaymentOption) + _ContractRows.QTT = _OrderInAcknowledgementRows.QTT + _ContractRows.QualityOption = _onew.GetObject(_OrderInAcknowledgementRows.QualityOption) + _ContractRows.RowGroup1 = _OrderInAcknowledgementRows.RowGroup1 + _ContractRows.RowGroup2 = _OrderInAcknowledgementRows.RowGroup2 + _ContractRows.ShipmentOption = _onew.GetObject(_OrderInAcknowledgementRows.OrderInAcknowledgementHeader.ShipmentOption) + _ContractRows.Units = _onew.GetObject(_OrderInAcknowledgementRows.Units) + _ContractRows.VAT = _onew.GetObject(_OrderInAcknowledgementRows.VAT) + _ContractRows.ShortName = _OrderInAcknowledgementRows.ShortName + _ContractRows.Controlling = _onew.GetObject(_CreateContracts_CustomizePupUp.Controlling) + _ContractRows.DateExecution = _OrderInAcknowledgementRows.DateExecution + Next + End If + Case eCreateContractsFrom.eOfferOutHeader + _Contracts.OfferOutHeader = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), CreateContracts_CustomizePupUp).OfferOutHeader) + _Contracts.CurrencyName = _onew.GetObject(_Contracts.OfferOutHeader.CurrencyName) + + If _CreateContracts_CustomizePupUp.WithOfferInRows Then + For Each _OfferOutRows As OfferOutRows In _Contracts.OfferOutHeader.OfferOutRows + Dim _ContractRows As ContractRows = _onew.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.CurrencyName = _onew.GetObject(_Contracts.CurrencyName) + _ContractRows.Description = _OfferOutRows.Description + _ContractRows.NettoPriceDEV = _OfferOutRows.SumPriceDEV + _ContractRows.NettoPriceHUF = _OfferOutRows.SumPriceHUF + _ContractRows.PaymentOption = _onew.GetObject(_OfferOutRows.OfferOutHeader.PaymentOption) + _ContractRows.QTT = _OfferOutRows.QTT + _ContractRows.QualityOption = _onew.GetObject(_OfferOutRows.QualityOption) + _ContractRows.RowGroup1 = _OfferOutRows.RowGroup1 + _ContractRows.RowGroup2 = _OfferOutRows.RowGroup2 + _ContractRows.ShipmentOption = _onew.GetObject(_OfferOutRows.OfferOutHeader.ShipmentOption) + _ContractRows.Units = _onew.GetObject(_OfferOutRows.Units) + _ContractRows.VAT = _onew.GetObject(_OfferOutRows.VAT) + _ContractRows.ShortName = _OfferOutRows.ShortName + _ContractRows.Controlling = _onew.GetObject(_CreateContracts_CustomizePupUp.Controlling) + _ContractRows.DateExecution = _OfferOutRows.OfferOutHeader.DateExecution + Next + End If + + End Select + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Contracts_DetailView", True, _Contracts) + e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Informci") + End Try + End Sub + Private Sub aCRM_O_Set_Registry_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_Set_Registry.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + If _RegistryTasks IsNot Nothing Then + If _RegistryTasks.RegistryHeader.CRM_Opportunities Is Nothing Then + _RegistryTasks.RegistryHeader.CRM_Opportunities = _CRM_Opportunities + End If + End If + _ocur.CommitChanges() + End Sub + Private Sub aCRM_O_UnSet_Registry_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_UnSet_Registry.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + If _RegistryTasks IsNot Nothing Then + If _RegistryTasks.RegistryHeader.CRM_Opportunities IsNot Nothing Then + _RegistryTasks.RegistryHeader.CRM_Opportunities = Nothing + End If + End If + _ocur.CommitChanges() + End Sub + Private Sub aCRM_O_RecalculateEstimatedRevenue_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCRM_O_RecalculateEstimatedRevenue.Execute + '// A kimen ajnlatok alapjn jraszmolja a becslt bevtel nagysgt + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Opportunities As CRM_Opportunities + Dim _OfferOutHeader As OfferOutHeader + + + For Each _CRM_Opportunities In View.SelectedObjects + + If _CRM_Opportunities.OfferOutHeader.Count > 0 Then + _CRM_Opportunities.EstimatedRevenueHUF = 0 + _CRM_Opportunities.EstimatedRevenue = 0 + For Each _OfferOutHeader In _CRM_Opportunities.OfferOutHeader + If _OfferOutHeader.OfferOutState = eOfferOutState.eInProgress Or _OfferOutHeader.OfferOutState = eOfferOutState.eInThinkingOf Then + _CRM_Opportunities.EstimatedRevenueHUF += _OfferOutHeader.SumPriceHUF + + If _OfferOutHeader.CurrencyName Is _CRM_Opportunities.EstimatedCurrencyName Then + _CRM_Opportunities.EstimatedRevenue += _OfferOutHeader.SumPriceDEV + End If + End If + + Next + End If + Next + _ocur.CommitChanges() + End Sub + Private Sub aCRM_O_CreateBusinessDirectoryTask_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CreateBusinessDirectoryTask.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + Dim _CRM_O_CreateBusinessDirectoryTask_PopUp As New CRM_O_CreateBusinessDirectoryTask_PopUp(_onew.Session) + With _CRM_O_CreateBusinessDirectoryTask_PopUp + .StartDate = GetSQLTime(_onew.Session) + .Status = General.TaskStatus.NotStarted + .Subject = _BusinessDirectory.ShortName + .Description = _BusinessDirectory.TaskDescription + End With + + e.View = Application.CreateDetailView(_onew, "CRM_O_CreateBusinessDirectoryTask_PopUp_DetailView", True, _CRM_O_CreateBusinessDirectoryTask_PopUp) + End Sub + Private Sub aCRM_O_CreateBusinessDirectoryTask_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CreateBusinessDirectoryTask.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + + If _CRM_Opportunities Is Nothing Then Exit Sub + + Dim _CRM_O_CreateBusinessDirectoryTask_PopUp As CRM_O_CreateBusinessDirectoryTask_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CRM_O_CreateBusinessDirectoryTask_PopUp) + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + + Dim _CRM_Leads_Activity_Task As New CRM_Leads_Activity_Task(_ocur.Session) + With _CRM_Leads_Activity_Task + .CRM_Opportunities = _CRM_Opportunities + .MasterKey = _BusinessDirectory.Oid + .Description = _CRM_O_CreateBusinessDirectoryTask_PopUp.Description + .StartDate = _CRM_O_CreateBusinessDirectoryTask_PopUp.StartDate + .DueDate = _CRM_O_CreateBusinessDirectoryTask_PopUp.DueDate + .Subject = _CRM_O_CreateBusinessDirectoryTask_PopUp.Subject + .Status = _CRM_O_CreateBusinessDirectoryTask_PopUp.Status + .HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_CRM_O_CreateBusinessDirectoryTask_PopUp.HRPerson.Oid) + .AlertPeriod = _ocur.GetObjectByKey(Of AlertPeriod)(_CRM_O_CreateBusinessDirectoryTask_PopUp.AlertPeriod.Oid) + End With + + _ocur.CommitChanges() + End Sub + + Private Sub aCRM_O_CRM_O_Customers_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CRM_O_Customers_New.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers_CollectionSource As New CollectionSource(_onew, GetType(Customers)) + + e.View = Application.CreateListView("Customers_ListView", _Customers_CollectionSource, True) + End Sub + Private Sub aCRM_O_CRM_O_Customers_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CRM_O_Customers_New.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + If _CRM_Opportunities IsNot Nothing Then + For Each _Customers As Customers In e.PopupWindow.View.SelectedObjects + Dim _CRM_Opportunities_Customers As New CRM_Opportunities_Customers(_ocur.Session) + With _CRM_Opportunities_Customers + .CRM_Opportunities = _CRM_Opportunities + .Customers = _ocur.GetObject(_Customers) + End With + Next + _ocur.CommitChanges() + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + If parentView IsNot Nothing Then parentView.ObjectSpace.Refresh() + End If + + End If + End Sub + Private Sub aCRM_O_CRM_O_CustomersContacts_New_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_New.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + + Dim _Contacts_CollectionSource As New CollectionSource(_onew, GetType(Contacts)) + + Dim _Filter As String = "Oid in(" + + For Each _CRM_Opportunities_Customers As CRM_Opportunities_Customers In _CRM_Opportunities.CRM_Opportunities_Customers + For Each _Contacts As Contacts In _CRM_Opportunities_Customers.Customers.Contacts + _Filter += "'" + _Contacts.Oid.ToString + "', " + Next + Next + + If _Filter.Length > 7 Then + _Filter = _Filter.Remove(_Filter.Length - 2, 2) + _Filter += ")" + Else + _Filter = "1=2" + End If + + _Contacts_CollectionSource.BeginUpdateCriteria() + _Contacts_CollectionSource.Criteria.Add("First", CriteriaOperator.Parse(_Filter)) + _Contacts_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("Contacts_ListView", _Contacts_CollectionSource, True) + End Sub + Private Sub aCRM_O_CRM_O_CustomersContacts_New_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_New.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + If _CRM_Opportunities IsNot Nothing Then + For Each _Contacts As Contacts In e.PopupWindow.View.SelectedObjects + Dim _CRM_Opportunities_CustomersContacts As New CRM_Opportunities_CustomersContacts(_ocur.Session) + With _CRM_Opportunities_CustomersContacts + .CRM_Opportunities = _CRM_Opportunities + .Contacts = _ocur.GetObject(_Contacts) + End With + Next + _ocur.CommitChanges() + End If + End Sub + Private Sub aCRM_O_CRM_O_CustomersContacts_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_O_CRM_O_CustomersContacts_Delete.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _ocur.Delete(View.SelectedObjects) + + _ocur.CommitChanges() + + End Sub + Private Sub aCRM_O_CRM_O_Customers_Delete_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRM_O_CRM_O_Customers_Delete.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CRM_Opportunities As CRM_Opportunities = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CRM_Opportunities) + + For Each _CRM_Opportunities_Customers As CRM_Opportunities_Customers In View.SelectedObjects + Dim _CRM_Opportunities_CustomersContacts_Collection As New DevExpress.Xpo.XPCollection(Of CRM_Opportunities_CustomersContacts) _ + (_ocur.Session, CriteriaOperator.Parse("CRM_Opportunities=? AND Contacts.Customers=?", _CRM_Opportunities, _CRM_Opportunities_Customers.Customers)) + + If _CRM_Opportunities_CustomersContacts_Collection.Count > 0 Then _ocur.Delete(_CRM_Opportunities_CustomersContacts_Collection) + + _ocur.Delete(_CRM_Opportunities_Customers) + Next + + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Contacts_Roles.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Contacts_Roles.vb new file mode 100644 index 0000000..c7345fd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Contacts_Roles.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eContactsRoles + eDecisionMakingProject = 0 ' Project dntshoz + eAdministrator = 1 ' Adminisztrcis munkatrs + eDecisionMakingFinancial = 2 'Pnzgyi dntshoz +End Enum + _ + _ +Public Class CRM_Opportunities_Contacts_Roles + Inherits BaseObject + Private _CRM_Opportunities As CRM_Opportunities + Private _Contacts As Contacts + Private _ContactsRoles As eContactsRoles + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + ' _ + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property ContactsRoles As eContactsRoles + Get + Return _ContactsRoles + End Get + Set(value As eContactsRoles) + SetPropertyValue("ContactsRoles", _ContactsRoles, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Customers.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Customers.vb new file mode 100644 index 0000000..7f5cb61 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Customers.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + Public Class CRM_Opportunities_Customers + Inherits BaseObject + + Private _CRM_Opportunities As CRM_Opportunities + Private _Customers As Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_CustomersContacts.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_CustomersContacts.vb new file mode 100644 index 0000000..60e2fdb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_CustomersContacts.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + Public Class CRM_Opportunities_CustomersContacts + Inherits BaseObject + + Private _CRM_Opportunities As CRM_Opportunities + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Parameters.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Parameters.vb new file mode 100644 index 0000000..383d35c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Parameters.vb @@ -0,0 +1,96 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class CRM_Opportunities_Parameters ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String 'Paramter megnevezse + Private _WorkflowSystem As WorkflowSystem 'Folyamatrendszer + Private _NumberGenerator As NumberGenerator 'Sorszm genertor + Private _IsDefault As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property WorkflowSystem As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property IsDefault As Boolean + Get + Return _IsDefault + End Get + Set(value As Boolean) + SetPropertyValue("IsDefault", _IsDefault, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Probability.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Probability.vb new file mode 100644 index 0000000..3e6db52 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Probability.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRM_Opportunities_Probability + Inherits BaseObject + Private _ShortName As String + Private _Probability As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Probability As Long + Get + Return _Probability + End Get + Set(value As Long) + SetPropertyValue("Probability", _Probability, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Products.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Products.vb new file mode 100644 index 0000000..89c1160 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Products.vb @@ -0,0 +1,67 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CRM_Opportunities_Products 'CRM-hez rendelt termkek + Inherits BaseObject + Private _CRM_Opportunities As CRM_Opportunities + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Products As Products + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Public Property RowGroup1() As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Public Property RowGroup2() As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Public Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Services.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Services.vb new file mode 100644 index 0000000..16e8c68 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/CRM_Opportunities_Services.vb @@ -0,0 +1,67 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CRM_Opportunities_Services 'CRM-hez rendelt termkek + Inherits BaseObject + Private _CRM_Opportunities As CRM_Opportunities + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Services As Services + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Public Property RowGroup1() As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Public Property RowGroup2() As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Public Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Class Diagrams/ActivityTask.cd b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Class Diagrams/ActivityTask.cd new file mode 100644 index 0000000..3ad88f9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Class Diagrams/ActivityTask.cd @@ -0,0 +1,11 @@ + + + + + + AAAAAAAAAAAAAMAAAAAAAAAAAAKAAAAAACAAAAAAAAA= + BusinessObjects\CRM\Classical\CRM_Leads_Activity.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Activity_Task_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Activity_Task_Popup.vb new file mode 100644 index 0000000..7041e65 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Activity_Task_Popup.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CRM_Leads_Activity_Task_Popup + Inherits BaseObject + + Property HRPerson As HRPerson 'Felels + Property EventType As eEventType 'Aktivits tipusa + Property Subject As String 'Trgy + Property DueDate As Date 'Hatrid + Property Description As String 'Lers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Actvity_Completed_Popup.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Actvity_Completed_Popup.vb new file mode 100644 index 0000000..887e5af --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Actvity_Completed_Popup.vb @@ -0,0 +1,24 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CRM_Leads_Actvity_Completed_Popup + Inherits BaseObject + Property Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_DisQualification.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_DisQualification.vb new file mode 100644 index 0000000..989cff9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_DisQualification.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CRM_Leads_DisQualification + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Private _DisQualificationLeadStatus As eDisQualificationLeadStatus + + Property DisQualificationLeadStatus As eDisQualificationLeadStatus + Get + Return _DisQualificationLeadStatus + End Get + Set(value As eDisQualificationLeadStatus) + SetPropertyValue("DisQualificationLeadStatus", _DisQualificationLeadStatus, value) + End Set + End Property +End Class + +Public Enum eDisQualificationLeadStatus + Lost = 1 + CannotContact = 2 + NoLongerInterested = 3 + Canceled = 4 +End Enum \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Qualification.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Qualification.vb new file mode 100644 index 0000000..63499f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Leads_Qualification.vb @@ -0,0 +1,25 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRM_Leads_Qualification + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property Contact As Boolean = True + Property Customers As Boolean = True + Property CreateOpportunities As Boolean = False +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_O_CreateBusinessDirectoryTask_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_O_CreateBusinessDirectoryTask_PopUp.vb new file mode 100644 index 0000000..bd4c69e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_O_CreateBusinessDirectoryTask_PopUp.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CRM_O_CreateBusinessDirectoryTask_PopUp + Inherits BaseObject + + Private _HRPerson As HRPerson + Private _AlertPeriod As AlertPeriod 'Figyelmeztets + Private _Status As General.TaskStatus + Private _StartDate As Date + Private _DueDate As Date + Private _Subject As String + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property Status As General.TaskStatus + Get + Return _Status + End Get + Set(value As General.TaskStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Property StartDate As Date + Get + Return _StartDate + End Get + Set(value As Date) + SetPropertyValue("StartDate", _StartDate, value) + End Set + End Property + Property DueDate As Date + Get + Return _DueDate + End Get + Set(value As Date) + SetPropertyValue("DueDate", _DueDate, value) + End Set + End Property + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Opportunities_Change_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Opportunities_Change_PopUp.vb new file mode 100644 index 0000000..89c941c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CRM_Opportunities_Change_PopUp.vb @@ -0,0 +1,27 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class CRM_Opportunities_Change_PopUp + Inherits BaseObject + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CreateContracts_CustomizePupUp.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CreateContracts_CustomizePupUp.vb new file mode 100644 index 0000000..a6ee1fa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Classical/Popup/CreateContracts_CustomizePupUp.vb @@ -0,0 +1,103 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class CreateContracts_CustomizePupUp + Inherits BaseObject + + Private _CRM_Opportunities As CRM_Opportunities + Private _ContractTemplate As ContractTemplate + Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Private _OfferOutHeader As OfferOutHeader + Private _WithOfferInRows As Boolean + Private _CreateContractsFrom As eCreateContractsFrom + Private _Controlling As Controlling + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + WithOfferInRows = False + End Sub + + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + _ + Property ContractTemplate As ContractTemplate + Get + Return _ContractTemplate + End Get + Set(value As ContractTemplate) + SetPropertyValue("ContractTemplate", _ContractTemplate, value) + End Set + End Property + _ + Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader + Get + Return _OrderInAcknowledgementHeader + End Get + Set(value As OrderInAcknowledgementHeader) + SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value) + End Set + End Property + _ + Property OfferOutHeader As OfferOutHeader + Get + Return _OfferOutHeader + End Get + Set(value As OfferOutHeader) + SetPropertyValue("OfferOutHeader", _OfferOutHeader, value) + End Set + End Property + Property WithOfferInRows As Boolean + Get + Return _WithOfferInRows + End Get + Set(value As Boolean) + SetPropertyValue("WithOfferInRows", _WithOfferInRows, value) + End Set + End Property + _ + Property CreateContractsFrom As eCreateContractsFrom + Get + Return _CreateContractsFrom + End Get + Set(value As eCreateContractsFrom) + SetPropertyValue("CreateContractsFrom", _CreateContractsFrom, value) + End Set + End Property + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property +End Class +Public Enum eCreateContractsFrom + eOrderInAcknowledgement = 0 + eOfferOutHeader = 1 +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResults.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResults.vb new file mode 100644 index 0000000..b7327dc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResults.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMResults 'CRM eredmények, amelyek egy adott feladathoz kapcsolódnak + Inherits BaseObject + Private _CRMTask As CRMTask + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CRMTask() As CRMTask + Get + Return _CRMTask + End Get + Set(ByVal value As CRMTask) + SetPropertyValue("CRMTask", _CRMTask, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResultsType.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResultsType.vb new file mode 100644 index 0000000..2e0e0b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMResultsType.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMResultsType 'CRM Eredmény tipusok + Inherits BaseObject + Private _ShortName As String '-- Megnevezés + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTarget.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTarget.vb new file mode 100644 index 0000000..ef00f93 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTarget.vb @@ -0,0 +1,66 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMTarget 'CRM cél, amit el akarunk érni + Inherits BaseObject + Private _Contacts As Contacts + Private _ShortName As String '--Megnevezés + Private _Description As String '-- Leírás + Private _CRMTargetStage As eCRMTargetStage '-- Állapot + Private _CRMTargetType As eCRMTargetType '-- Új vagy létező üzlet + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property Contacts() As Contacts + Get + Return _Contacts + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property CRMTargetStage() As eCRMTargetStage + Get + Return _CRMTargetStage + End Get + Set(ByVal value As eCRMTargetStage) + SetPropertyValue("CRMTargetStage", _CRMTargetStage, value) + End Set + End Property + Property CRMTargetType() As eCRMTargetType + Get + Return _CRMTargetType + End Get + Set(ByVal value As eCRMTargetType) + SetPropertyValue("CRMTargetType", _CRMTargetType, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTask.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTask.vb new file mode 100644 index 0000000..4c423ed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTask.vb @@ -0,0 +1,63 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eCRMTaskType + ePhone = 0 ' Telefonálás + eMeeting = 1 'Találkozó + eDoIt = 2 ' Feladat +End Enum +Public Enum eCRMTargetStage + eClosedWON = 0 + eClosedLOST = 1 + eProspecting = 2 + eQualification = 3 + eProposal = 4 +End Enum +Public Enum eCRMTargetType + eNewBusiness = 0 + eExistingBusiness = 1 +End Enum + _ + _ +Public Class CRMTask + Inherits Task + Private _CRMTaskType As CRMTaskType + Private _CRMTarget As CRMTarget + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CRMTaskType() As CRMTaskType + Get + Return _CRMTaskType + End Get + Set(ByVal value As CRMTaskType) + SetPropertyValue("CRMTaskType", _CRMTaskType, value) + End Set + End Property + Property CRMTarget() As CRMTarget + Get + Return _CRMTarget + End Get + Set(ByVal value As CRMTarget) + SetPropertyValue("CRMTarget", _CRMTarget, value) + End Set + End Property + _ + ReadOnly Property CRMResults() As XPCollection + Get + Dim _CRMTask_Collection As XPCollection = New XPCollection(Session, GetType(CRMResults), _ + CriteriaOperator.Parse("CRMTask=?", Me)) + Return _CRMTask_Collection + End Get + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTaskType.vb b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTaskType.vb new file mode 100644 index 0000000..1405365 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/CRM/Hafner/CRMTaskType.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CRMTaskType '-- Feladat tipus + Inherits BaseObject + Private _CRMTaskType As eCRMTaskType + Private _ShortName As String '-- Megnevezés + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CRMTaskType() As eCRMTaskType + Get + Return _CRMTaskType + End Get + Set(ByVal value As eCRMTaskType) + SetPropertyValue("CRMTaskType", _CRMTaskType, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Business/DashBoard/DashBoard.vb b/SISBusiness.Module/BusinessObjects/Business/DashBoard/DashBoard.vb new file mode 100644 index 0000000..13f843e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/DashBoard/DashBoard.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +'-- DashBoard query + + _ + _ + _ +Public Class SIS_Top10_Customers + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _DateExecution As Date + Private _AmountHUF As Double + Private _AmountDEV As Double + Private _CurrencyName As CurrencyName + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa.vb b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa.vb new file mode 100644 index 0000000..38c4a6d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa.vb @@ -0,0 +1,120 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class OnlineCassa ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _CustomersFrom As CustomersFrom + Private _APNumber As String 'Blokkon lv cassa azonost szm + Private _Active As Boolean 'Hasznlatban van -e? + + 'Rabbit MQ infk + Private _QueueForSend As String + Private _QueueForReceive As String + Private _DirectExchange As String + Private _DirectBindingKey As String + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + Me.Active = True + End Sub + + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property APNumber As String + Get + Return _APNumber + End Get + Set(value As String) + SetPropertyValue("_APNumber", _APNumber, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + Property QueueForSend As String + Get + Return _QueueForSend + End Get + Set(value As String) + SetPropertyValue("QueueForSend", _QueueForSend, value) + End Set + End Property + Property QueueForReceive As String + Get + + Return _QueueForReceive + End Get + Set(value As String) + SetPropertyValue("QueueForReceive", _QueueForReceive, value) + End Set + End Property + Property DirectExchange As String + Get + Return _DirectExchange + End Get + Set(value As String) + SetPropertyValue("DirectExchange", _DirectExchange, value) + End Set + End Property + Property DirectBindingKey As String + Get + Return _DirectBindingKey + End Get + Set(value As String) + SetPropertyValue("DirectBindingKey", _DirectBindingKey, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.Designer.vb new file mode 100644 index 0000000..2801808 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class OnlineCassa_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.vb b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.vb new file mode 100644 index 0000000..9a83f49 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/OnlineCassa/OnlineCassa_VC.vb @@ -0,0 +1,38 @@ +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 OnlineCassa_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 +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingActionRowsSet_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingActionRowsSet_PopUp.vb new file mode 100644 index 0000000..7a5969a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingActionRowsSet_PopUp.vb @@ -0,0 +1,65 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class PricingActionRowsSet_PopUp + Inherits BaseObject + + Private _ListPriceHUFPercent As Double 'r %-os mdostsa, itt az a % os rtk kell, ami majd levondik a termk rbl!! + Private _ListPriceHUFPercent_Change As Boolean + Private _IsAdditionalDiscount As Boolean + Private _IsAdditionalDiscount_Change As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ListPriceHUFPercent_Change = False + IsAdditionalDiscount_Change = False + End Sub + + Property ListPriceHUFPercent As Double + Get + Return _ListPriceHUFPercent + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUFPercent", _ListPriceHUFPercent, value) + End Set + End Property + Property ListPriceHUFPercent_Change As Boolean + Get + Return _ListPriceHUFPercent_Change + End Get + Set(value As Boolean) + SetPropertyValue("ListPriceHUFPercent_Change", _ListPriceHUFPercent_Change, value) + End Set + End Property + Property IsAdditionalDiscount As Boolean + Get + Return _IsAdditionalDiscount + End Get + Set(value As Boolean) + SetPropertyValue("IsAdditionalDiscount", _IsAdditionalDiscount, value) + End Set + End Property + Property IsAdditionalDiscount_Change As Boolean + Get + Return _IsAdditionalDiscount_Change + End Get + Set(value As Boolean) + SetPropertyValue("IsAdditionalDiscount_Change", _IsAdditionalDiscount_Change, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingProductsBarcodeCustomersPopup.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingProductsBarcodeCustomersPopup.vb new file mode 100644 index 0000000..98ced41 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PopUp/PricingProductsBarcodeCustomersPopup.vb @@ -0,0 +1,61 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class PricingProductsBarcodeCustomersPopup ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + ReadOnly Property Customers As XPCollection(Of Customers) + Get + Return New XPCollection(Of Customers)(Session) + End Get + End Property + ReadOnly Property Products As XPCollection(Of Products) + Get + Return New XPCollection(Of Products)(Session) + End Get + End Property + Property ExpirationDate As Date + Property ActualDate As Date + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/Pricing.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/Pricing.vb new file mode 100644 index 0000000..1c6c01c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/Pricing.vb @@ -0,0 +1,237 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class Pricing ' -- Árképzés + Inherits BaseObject + Private _ShortName As String 'Árképzés megnevezése + Private _PartnerType As ePartnerType 'Vevő vagy szállító + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + _ + _ + ReadOnly Property PricingFix As XPCollection(Of PricingFix) + Get + Return GetCollection(Of PricingFix)("PricingFix") + End Get + End Property + _ + _ + ReadOnly Property PricingFixStaged As XPCollection(Of PricingFixStaged) + Get + Return GetCollection(Of PricingFixStaged)("PricingFixStaged") + End Get + End Property + _ + _ + ReadOnly Property PricingProductsGroups As XPCollection(Of PricingProductsGroups) + Get + Return GetCollection(Of PricingProductsGroups)("PricingProductsGroups") + End Get + End Property + _ + _ + ReadOnly Property PricingCRM As XPCollection(Of PricingCRM) + Get + Return GetCollection(Of PricingCRM)("PricingCRM") + End Get + End Property + Function GetCurrentPriceNettoHUF(ByVal _p_Products As Products, ByVal _p_QTT As Double, Optional _p_CRM_Opportunities As CRM_Opportunities = Nothing) As Double + 'A függvény visszatér erre az árképzésre vonatkozólag, hogy a paraméterben megadott terméknek mennyi az ára HUF-ban + Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza + Dim _PricingCRM As PricingCRM + + If _p_CRM_Opportunities IsNot Nothing Then + For Each _PricingCRM In Me.PricingCRM + If _p_CRM_Opportunities Is _PricingCRM.CRM_Opportunities And _PricingCRM.ProductsGroups Is Nothing Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInHUF - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceInHUF) + Else + Return _p_Products.ListPriceOutHUF - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) + End If + Exit For + ElseIf _p_CRM_Opportunities Is _PricingCRM.CRM_Opportunities And _p_Products.ProductGroups Is _PricingCRM.ProductsGroups Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInHUF - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceInHUF) + Else + Return _p_Products.ListPriceOutHUF - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) + End If + + Exit For + End If + Next + End If + '// Akciós ÁR alapján ! + + For Each _PricingFix As PricingFix In PricingFix '1. Fix árat megnézni + If _PricingFix.Products Is _p_Products Then + If _PricingFix.CurrencyName.ShortName = "HUF" Then + Return _PricingFix.PriceNetto + End If + End If + Next + For Each _PricingFixStaged As PricingFixStaged In PricingFixStaged '2. Fix lépcsõs árat megnézni + If _PricingFixStaged.Products Is _p_Products Then + If _p_QTT >= _PricingFixStaged.VolumeFrom And _p_QTT <= _PricingFixStaged.VolumeTo Then + If _PricingFixStaged.CurrencyName.ShortName = "HUF" Then + Return _PricingFixStaged.PriceNetto + End If + Else + _i = _i + 1 + End If + If _i >= PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár + Return _p_Products.ListPriceOutHUF + End If + End If + Next + For Each _PricingProductsGroups As PricingProductsGroups In PricingProductsGroups '3. Termékcsoport árat megnézni + + If _PricingProductsGroups.ProductsGroups Is Nothing Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInHUF - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceInHUF) + Else + Return _p_Products.ListPriceOutHUF - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) + End If + Exit For + Else + If _PricingProductsGroups.ProductsGroups Is _p_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInHUF - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceInHUF) + Else + Return _p_Products.ListPriceOutHUF - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) + End If + Else + Return RecurziveProductsGroupsHUF(_p_Products, _PricingProductsGroups, _p_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás + End If + End If + Next + End Function + Function RecurziveProductsGroupsHUF(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) + 'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza + If _p_ProductsGroups.Parent IsNot Nothing Then + If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then + Return _p_Products.ListPriceOutHUF - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutHUF) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral. + End If + RecurziveProductsGroupsHUF(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen + End If + Return _p_Products.ListPriceOutHUF ' Visszatérés az eredeti listaárral + End Function + Function GetCurrentPriceNettoDEV(ByVal _p_Products As Products, ByVal _p_QTT As Double, Optional _p_CRM_Opportunities As CRM_Opportunities = Nothing) As Double + 'A függvény visszatér erre az árképzésre vonatkozólag, hogy a paraméterben megadott terméknek mennyi az ára adott DEV-ben + Dim _i As Integer = 0 ' segédváltozó, hogy ha nincs a megadott intervallumokban a mennyiség akkor a normál listaárral térünk vissza + Dim _PricingCRM As PricingCRM + + If _p_CRM_Opportunities IsNot Nothing Then + For Each _PricingCRM In Me.PricingCRM + If _p_CRM_Opportunities Is _PricingCRM.CRM_Opportunities And _PricingCRM.ProductsGroups Is Nothing Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInDEV - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceInDEV) + Else + Return _p_Products.ListPriceOutDEV - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) + End If + Exit For + ElseIf _p_CRM_Opportunities Is _PricingCRM.CRM_Opportunities And _p_Products.ProductGroups Is _PricingCRM.ProductsGroups Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInDEV - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceInDEV) + Else + Return _p_Products.ListPriceOutDEV - ((_PricingCRM.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) + End If + + Exit For + End If + Next + End If + + For Each _PricingFix As PricingFix In PricingFix '1. Fix árat megnézni + If _PricingFix.Products Is _p_Products Then + If _PricingFix.CurrencyName.ShortName <> "HUF" Then + Return _PricingFix.PriceNetto + End If + End If + Next + For Each _PricingFixStaged As PricingFixStaged In PricingFixStaged '2. Fix lépcsõs árat megnézni + If _PricingFixStaged.Products Is _p_Products Then + If _p_QTT >= _PricingFixStaged.VolumeFrom And _p_QTT <= _PricingFixStaged.VolumeTo Then + If _PricingFixStaged.CurrencyName.ShortName <> "HUF" Then + Return _PricingFixStaged.PriceNetto + End If + Else + _i = _i + 1 + End If + If _i >= PricingFixStaged.Count Then ' Amennyiben a megadott intervallumokon kívül van a megadott mennyiség, akkor normál listaár + Return _p_Products.ListPriceOutDEV + End If + End If + Next + For Each _PricingProductsGroups As PricingProductsGroups In PricingProductsGroups '3. Termékcsoport árat megnézni + + If _PricingProductsGroups.ProductsGroups Is Nothing Then + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInDEV - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceInDEV) + Else + Return _p_Products.ListPriceOutDEV - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) + End If + Exit For + Else + If _PricingProductsGroups.ProductsGroups Is _p_Products.ProductGroups Then ' Ha a levélelemnek meg van adva a kedvezmény + If PartnerType = ePartnerType.ePayabels Then + Return _p_Products.ListPriceInDEV - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceInDEV) + Else + Return _p_Products.ListPriceOutDEV - ((_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) + End If + Else + Return RecurziveProductsGroupsDEV(_p_Products, _PricingProductsGroups, _p_Products.ProductGroups) ' A levélelemnek nincs megadva a kedvezmény akkor rekurzív bejárás + End If + End If + Next + End Function + Function RecurziveProductsGroupsDEV(ByVal _p_Products As Products, ByVal _p_PricingProductsGroups As PricingProductsGroups, ByVal _p_ProductsGroups As ProductsGroups) + 'A treelist bejárása rekurzívan, mindaddig amíg van szülő, és keressük van e termékcsoport kedvezmény, ha van visszatérünk vele, ha nincs akkor az eredeti listaárral térünk vissza + If _p_ProductsGroups.Parent IsNot Nothing Then + If _p_ProductsGroups.Parent Is _p_PricingProductsGroups.ProductsGroups Then + Return _p_Products.ListPriceOutDEV - ((_p_PricingProductsGroups.DiscountPercent / 100) * _p_Products.ListPriceOutDEV) ' Visszatérés a levélelemhez legközelebbi termékcsoport kedvezményes árral. + End If + RecurziveProductsGroupsDEV(_p_Products, _p_PricingProductsGroups, _p_ProductsGroups.Parent) ' Rekurzív hívás, hogy minden elemen keressen + End If + Return _p_Products.ListPriceOutDEV ' Visszatérés az eredeti listaárral + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionHeader.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionHeader.vb new file mode 100644 index 0000000..c3bee20 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionHeader.vb @@ -0,0 +1,144 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Editors + + _ +Public Class PricingActionHeader + Inherits BaseObject + + Private _CustomersFrom As Customers + Private _ShortName As String + Private _DateFrom As Date + Private _DateTo As Date + Private _DocumentNumber As String + Private _CurrencyName As CurrencyName + Private _Criterion As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _IsActive As Boolean = False + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Private ReadOnly Property ObjectType() As Type + Get + Return GetType(Products) + End Get + End Property + _ + Public Property Criterion() As String + Get + Return _Criterion + End Get + Set(ByVal value As String) + SetPropertyValue("Criterion", _Criterion, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property IsActive As Boolean + Get + Return _IsActive + End Get + Set(value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + '//XPCollection + _ + ReadOnly Property PricingActionRows As XPCollection(Of PricingActionRows) + Get + Return GetCollection(Of PricingActionRows)("PricingActionRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionRows.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionRows.vb new file mode 100644 index 0000000..f531505 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionRows.vb @@ -0,0 +1,88 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PricingActionRows + Inherits BaseObject + + Private _PricingActionHeader As PricingActionHeader + Private _Products As Products + Private _ListPriceHUF As Double + Private _ListPriceDEV As Double + Private _QTT_From As Double 'Mennyiségtől + Private _QTT_To As Double 'Mennyiségig + Private _IsAdditionalDiscount As Boolean = False 'Van-e további kedvezmény erre az árra ? + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property PricingActionHeader As PricingActionHeader + Get + Return _PricingActionHeader + End Get + Set(value As PricingActionHeader) + SetPropertyValue("PricingActionHeader", _PricingActionHeader, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property QTT_From As Double + Get + Return _QTT_From + End Get + Set(value As Double) + SetPropertyValue("QTT_From", -QTT_From, value) + End Set + End Property + Property QTT_To As Double + Get + Return _QTT_To + End Get + Set(value As Double) + SetPropertyValue("QTT_To", _QTT_To, value) + End Set + End Property + Property IsAdditionalDiscount As Boolean + Get + Return _IsAdditionalDiscount + End Get + Set(value As Boolean) + SetPropertyValue("IsAdditionalDiscount", _IsAdditionalDiscount, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb new file mode 100644 index 0000000..331f04e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.Designer.vb @@ -0,0 +1,87 @@ +Partial Class PricingActionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGeneratePricingAction = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSetPricingActionGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewStorageMoveInfo_PricingActionRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGeneratePricingAction + ' + Me.aGeneratePricingAction.Caption = "aGenerate Pricing Action" + Me.aGeneratePricingAction.ConfirmationMessage = Nothing + Me.aGeneratePricingAction.Id = "aGeneratePricingAction" + Me.aGeneratePricingAction.ImageName = Nothing + Me.aGeneratePricingAction.Shortcut = Nothing + Me.aGeneratePricingAction.Tag = Nothing + Me.aGeneratePricingAction.TargetObjectsCriteria = Nothing + Me.aGeneratePricingAction.TargetObjectType = GetType(SISBusiness.[Module].PricingActionHeader) + Me.aGeneratePricingAction.TargetViewId = Nothing + Me.aGeneratePricingAction.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGeneratePricingAction.ToolTip = Nothing + Me.aGeneratePricingAction.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSetPricingActionGroups + ' + Me.aSetPricingActionGroups.AcceptButtonCaption = Nothing + Me.aSetPricingActionGroups.CancelButtonCaption = Nothing + Me.aSetPricingActionGroups.Caption = "aSetPricingActionGroups" + Me.aSetPricingActionGroups.Category = "Edit" + Me.aSetPricingActionGroups.ConfirmationMessage = Nothing + Me.aSetPricingActionGroups.Id = "aSetPricingActionGroups" + Me.aSetPricingActionGroups.ImageName = Nothing + Me.aSetPricingActionGroups.Shortcut = Nothing + Me.aSetPricingActionGroups.Tag = Nothing + Me.aSetPricingActionGroups.TargetObjectsCriteria = Nothing + Me.aSetPricingActionGroups.TargetObjectType = GetType(SISBusiness.[Module].PricingActionRows) + Me.aSetPricingActionGroups.TargetViewId = Nothing + Me.aSetPricingActionGroups.ToolTip = Nothing + Me.aSetPricingActionGroups.TypeOfView = Nothing + ' + 'aViewStorageMoveInfo_PricingActionRows + ' + Me.aViewStorageMoveInfo_PricingActionRows.Caption = "aViewStorageMoveInfo_PricingActionRows" + Me.aViewStorageMoveInfo_PricingActionRows.ConfirmationMessage = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.Id = "aViewStorageMoveInfo_PricingActionRows" + Me.aViewStorageMoveInfo_PricingActionRows.ImageName = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewStorageMoveInfo_PricingActionRows.Shortcut = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.Tag = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.TargetObjectsCriteria = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.TargetObjectType = GetType(SISBusiness.[Module].PricingActionRows) + Me.aViewStorageMoveInfo_PricingActionRows.TargetViewId = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewStorageMoveInfo_PricingActionRows.ToolTip = Nothing + Me.aViewStorageMoveInfo_PricingActionRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGeneratePricingAction As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSetPricingActionGroups As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewStorageMoveInfo_PricingActionRows As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.resx b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.resx new file mode 100644 index 0000000..ace2a35 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 197, 17 + + + 384, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.vb new file mode 100644 index 0000000..e22454a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingActionVC.vb @@ -0,0 +1,117 @@ +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.ExpressApp.SystemModule + +Public Class PricingActionVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub + Private Sub aGeneratePricingAction_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGeneratePricingAction.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PricingActionHeader As PricingActionHeader = _uow.GetObjectByKey(Of PricingActionHeader)(TryCast(View.SelectedObjects(0), PricingActionHeader).Oid) + Dim _PricingActionRows As PricingActionRows + Dim I As Long = 0 + _uow.Delete(_PricingActionHeader.PricingActionRows) + + Dim _Products_Collection As New XPCollection(Of Products)(_uow) + + _Products_Collection.Criteria = _uow.ParseCriteria(_PricingActionHeader.Criterion) + + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products In _Products_Collection + RaiseEvent DoWork() + _PricingActionRows = New PricingActionRows(_uow) + _PricingActionRows.PricingActionHeader = _PricingActionHeader + _PricingActionRows.Products = _Products + _PricingActionRows.QTT_From = 1 + _PricingActionRows.QTT_To = 999999 + _PricingActionRows.IsAdditionalDiscount = False + _PricingActionRows.ListPriceHUF = _Products.ListPriceOutHUF + _PricingActionRows.ListPriceDEV = _Products.ListPriceOutDEV + I += 1 + If I Mod 1000 = 0 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aSetPricingActionGroups_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetPricingActionGroups.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PricingActionRowsSet_PopUp As PricingActionRowsSet_PopUp = _onew.CreateObject(Of PricingActionRowsSet_PopUp)() + + e.View = Application.CreateDetailView(_onew, "PricingActionRowsSet_PopUp_DetailView", False, _PricingActionRowsSet_PopUp) + End Sub + Private Sub aSetPricingActionGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetPricingActionGroups.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _PricingActionRowsSet_PopUp As PricingActionRowsSet_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), PricingActionRowsSet_PopUp) + + If _PricingActionRowsSet_PopUp Is Nothing Then Throw New Exception("*Nem vrt hiba trtnt, a folyamat megszakadt!") + + Dim _ListPriceHUFPercent As Double = _PricingActionRowsSet_PopUp.ListPriceHUFPercent + Dim _ListPriceHUFPercent_Change As Boolean = _PricingActionRowsSet_PopUp.ListPriceHUFPercent_Change + Dim _IsAdditionalDiscount As Boolean = _PricingActionRowsSet_PopUp.IsAdditionalDiscount + Dim _IsAdditionalDiscount_Change As Boolean = _PricingActionRowsSet_PopUp.IsAdditionalDiscount_Change + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _PricingActionRows As PricingActionRows In View.SelectedObjects + If _ListPriceHUFPercent_Change Then + If _ListPriceHUFPercent = 0 Then + _PricingActionRows.ListPriceHUF = _PricingActionRows.Products.ListPriceOutHUF + Else + _PricingActionRows.ListPriceHUF = _PricingActionRows.Products.ListPriceOutHUF - (_PricingActionRows.Products.ListPriceOutHUF * (_ListPriceHUFPercent / 100)) + _PricingActionRows.ListPriceDEV = _PricingActionRows.Products.ListPriceOutDEV - (_PricingActionRows.Products.ListPriceOutDEV * (_ListPriceHUFPercent / 100)) + End If + End If + If _IsAdditionalDiscount_Change Then + _PricingActionRows.IsAdditionalDiscount = _IsAdditionalDiscount + End If + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + Private Sub aViewStorageMoveInfo_PricingActionRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_PricingActionRows.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PricingActionRows As PricingActionRows = TryCast(View.SelectedObjects(0), PricingActionRows) + Dim _StorageMoveInfo As StorageMoveInfo + If _PricingActionRows IsNot Nothing Then + _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)() + _StorageMoveInfo.Products = _onew.GetObject(_PricingActionRows.Products) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingCRM.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingCRM.vb new file mode 100644 index 0000000..751dff6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingCRM.vb @@ -0,0 +1,69 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class PricingCRM + Inherits BaseObject + Private _Pricing As Pricing + Private _CRM_Opportunities As CRM_Opportunities + Private _ProductsGroups As ProductsGroups ' -- Termk csoport + Private _DiscountPercent As Double ' -- Kedvezmny szzalk + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + Property ProductsGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(ByVal value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + _ + Property DiscountPercent As Double + Get + Return _DiscountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPercent", _DiscountPercent, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFix.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFix.vb new file mode 100644 index 0000000..61a1119 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFix.vb @@ -0,0 +1,60 @@ + +Imports DevExpress.Xpo + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class PricingFix ' Fix árképzés + Inherits BaseObject + Private _Pricing As Pricing 'Árképzés fejléc + Private _Products As Products 'Termék (amire az ár vonatkozik) + Private _CurrencyName As CurrencyName ' Deviza + Private _PriceNetto As Double 'Nettó ár (devizának megfelelõen) + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property PriceNetto As Double + Get + Return _PriceNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNetto", _PriceNetto, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFixStaged.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFixStaged.vb new file mode 100644 index 0000000..63f4f27 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingFixStaged.vb @@ -0,0 +1,84 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class PricingFixStaged ' -- Lépcsős fix árképzés + Inherits BaseObject + Private _Pricing As Pricing 'Árképzés fejléc + Private _VolumeFrom As Double 'Mennyiségtõl + Private _VolumeTo As Double ' Mennyiségig + Private _Products As Products 'Termék (amire az ár vonatkozik) + Private _CurrencyName As CurrencyName ' Deviza + Private _PriceNetto As Double 'Nettó ár (devizának megfelelõen) + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + _ + Property VolumeFrom As Double + Get + Return _VolumeFrom + End Get + Set(ByVal value As Double) + SetPropertyValue("VolumeFrom", _VolumeFrom, value) + End Set + End Property + _ + Property VolumeTo As Double + Get + Return _VolumeTo + End Get + Set(ByVal value As Double) + SetPropertyValue("VolumeTo", _VolumeTo, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property PriceNetto As Double + Get + Return _PriceNetto + End Get + Set(ByVal value As Double) + SetPropertyValue("PriceNetto", _PriceNetto, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingMinimum.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingMinimum.vb new file mode 100644 index 0000000..341e99c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingMinimum.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PricingMinimum 'tlagrbl generlja a minimum eladsi rat + Inherits BaseObject + + Private _ShortName As String 'Megnevezs + Private _Description As String 'Lers + Private _PricePercent As Double ' ? szzalkkal nvelje az tlagrbl a minimum rat ? + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property PricePercent As Double + Get + Return _PricePercent + End Get + Set(value As Double) + SetPropertyValue("PricePercent", _PricePercent, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingProductsGroups.vb b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingProductsGroups.vb new file mode 100644 index 0000000..52c84ec --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Pricing/PricingProductsGroups.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class PricingProductsGroups ' -- Termékcsoportra vonatkozó árképzés + Inherits BaseObject + Private _Pricing As Pricing ' -- Árképzés fejléc + Private _ProductsGroups As ProductsGroups ' -- Termék csoport + Private _DiscountPercent As Double ' -- Kedvezmény százalék + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + Property ProductsGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(ByVal value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + _ + Property DiscountPercent As Double + Get + Return _DiscountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("DiscountPercent", _DiscountPercent, value) + End Set + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/CustomersOrderPriority.vb b/SISBusiness.Module/BusinessObjects/Business/Products/CustomersOrderPriority.vb new file mode 100644 index 0000000..e6e97e8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/CustomersOrderPriority.vb @@ -0,0 +1,109 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +'-- Termék, termék beszállítók + _ + _ +Public Class CustomersOrderPriority 'Termék beszállítók !!! Egy termékhez lehet több is !!! + Inherits BaseObject + + Private _CustomersOrder As CustomersOrder + Private _RowIndex As Long ' Sorrend !!! Kitől rendelünk elsődlegesen. + Private _Products As Products 'Termék + Private _DeadlineDay As Long 'Mennyi idő mulva tudja szállítani (átlagosan) napban + Private _DeadlineWeek As Long 'Mennyi idő mulva tudja szállítani (átlagosan) hétben, ez kerekített a napi értékből + Private _MinOrderQTT As Double 'Minimális rendelési mennyiség ! + Private _MinOrderUnit As Units 'Ehhez tartozó rendelési mennyiség + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property CustomersOrder As CustomersOrder + Get + Return _CustomersOrder + End Get + Set(value As CustomersOrder) + SetPropertyValue("CustomersOrder", _CustomersOrder, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property DeadlineDay As Long + Get + Return _DeadlineDay + End Get + Set(ByVal value As Long) + SetPropertyValue("DeadlineDay", _DeadlineDay, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value Mod 7 = 0 Then + DeadlineWeek = CType(value / 7, Long) + Else + DeadlineWeek = CType(value / 7, Long) + 1 + End If + End If + End Set + End Property + Property DeadlineWeek As Long + Get + Return _DeadlineWeek + End Get + Set(value As Long) + SetPropertyValue("DeadlineWeek", _DeadlineWeek, value) + End Set + End Property + Property MinOrderQTT As Double + Get + Return _MinOrderQTT + + End Get + Set(ByVal value As Double) + SetPropertyValue("MinOrderQTT", _MinOrderQTT, value) + End Set + End Property + Property MinOrderUnit As Units + Get + Return _MinOrderUnit + End Get + Set(ByVal value As Units) + SetPropertyValue("MinOrderUnit", _MinOrderUnit, value) + End Set + End Property + + ReadOnly Property DisplayName As String + Get + If CustomersOrder IsNot Nothing Then + Return CustomersOrder.FullName + Else + Return "" + End If + End Get + End Property +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/Installation.vb b/SISBusiness.Module/BusinessObjects/Business/Products/Installation.vb new file mode 100644 index 0000000..8e05e2b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/Installation.vb @@ -0,0 +1,128 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Termék, termék beszállítók + _ + _ + _ + _ +Public Class Installation + Inherits HCategory + Private _DocumentNumber As String + Private _InstallationType As InstallationType + Private _Description As String 'Leírás + Private _IsParent As Boolean = True 'Szülő-e ? + Private _UserCreated As User + Private _ObjectCreated As Date + Private _TakeoverProtocolRows As TakeoverProtocolRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = _InstallationType.NumberGenerator.GetNewNumber(_InstallationType.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property IsParent() As Boolean + Get + Return _IsParent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsParent", _IsParent, value) + End Set + End Property + Property InstallationType As InstallationType + Get + Return _InstallationType + End Get + Set(value As InstallationType) + SetPropertyValue("InstallationType", _InstallationType, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + _ + Property TakeoverProtocolRows As TakeoverProtocolRows + Get + Return _TakeoverProtocolRows + End Get + Set(value As TakeoverProtocolRows) + SetPropertyValue("TakeoverProtocolRows", _TakeoverProtocolRows, value) + End Set + End Property + + '-------------ReadOnly----------- + _ + _ + Public ReadOnly Property InstallationDocumentations() As XPCollection(Of InstallationDocumentations) + Get + Return GetCollection(Of InstallationDocumentations)("InstallationDocumentations") + End Get + End Property + _ + _ + ReadOnly Property InstallationProductsVariable As XPCollection(Of InstallationProductsVariable) + Get + Return GetCollection(Of InstallationProductsVariable)("InstallationProductsVariable") + End Get + End Property +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationDocumentations.vb b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationDocumentations.vb new file mode 100644 index 0000000..21a6077 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationDocumentations.vb @@ -0,0 +1,139 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eInstallationDocumentationStatus + ePublic = 0 '-- Bárki láthatja + ePrivat = 1 '-- Csak belső használatra + eCustomers = 2 '-- Az ügyfél akinek a gyártmány átadása történt láthatja +End Enum + _ + _ + _ +Public Class InstallationDocumentations + Inherits FileAttachmentBase + Private _Installation As Installation + Private _Status As eInstallationDocumentationStatus + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _IsDashboard As Boolean 'Műszerfal-e + Private _XML_ServerName As String + Private _XML_UserName As String + Private _XML_DatabaseName As String + Private _XML_Password As String + Private _XML_SqlType As eSQLType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.Status = eInstallationDocumentationStatus.eCustomers + End Sub + + _ + Property Installation() As Installation + Get + Return _Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + Property Status As eInstallationDocumentationStatus + Get + Return _Status + End Get + Set(value As eInstallationDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + + _ + Property IsDashboard As Boolean + Get + Return _IsDashboard + End Get + Set(value As Boolean) + SetPropertyValue("IsDashboard", _IsDashboard, value) + End Set + End Property + _ + Property XML_ServerName As String + Get + Return _XML_ServerName + End Get + Set(value As String) + SetPropertyValue("XML_ServerName", _XML_ServerName, value) + End Set + End Property + _ + Property XML_UserName As String + Get + Return _XML_UserName + End Get + Set(value As String) + SetPropertyValue("XML_UserName", _XML_UserName, value) + End Set + End Property + _ + Property XML_DatabaseName As String + Get + Return _XML_DatabaseName + End Get + Set(value As String) + SetPropertyValue("XML_DatabaseName", _XML_DatabaseName, value) + End Set + End Property + _ + _ + _ + Property XML_Password As String + Get + Return _XML_Password + End Get + Set(value As String) + SetPropertyValue("XML_Password", _XML_Password, value) + End Set + End Property + _ + Property XML_SqlType As eSQLType + Get + Return _XML_SqlType + End Get + Set(value As eSQLType) + SetPropertyValue("XML_SqlType", _XML_SqlType, value) + End Set + End Property + +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationProductsVariable.vb b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationProductsVariable.vb new file mode 100644 index 0000000..8d2d887 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationProductsVariable.vb @@ -0,0 +1,51 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InstallationProductsVariable ' A gyártmány hierarchia legalsó (nem szülő !) része milyen Products-ból áll + Inherits BaseObject + Private _Installation As Installation + Private _Products As Products 'Termék + Private _QTT As Double 'Mennyiség + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property Installation As Installation + Get + Return _Installation + End Get + Set(ByVal value As Installation) + SetPropertyValue("Installation", _Installation, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property +End Class + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationType.vb b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationType.vb new file mode 100644 index 0000000..167f361 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationType.vb @@ -0,0 +1,89 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class InstallationType + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _UserCreated As User + Private _ObjectCreated As Date + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _IsVirtual As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property IsVirtual As Boolean + Get + Return _IsVirtual + End Get + Set(value As Boolean) + SetPropertyValue("IsVirtual", _IsVirtual, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.Designer.vb new file mode 100644 index 0000000..3208fb5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class InstallationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInstallation_ChangeGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aInstallation_ChangeGroups + ' + Me.aInstallation_ChangeGroups.AcceptButtonCaption = Nothing + Me.aInstallation_ChangeGroups.CancelButtonCaption = Nothing + Me.aInstallation_ChangeGroups.Caption = "aInstallation_ChangeGroups" + Me.aInstallation_ChangeGroups.ConfirmationMessage = Nothing + Me.aInstallation_ChangeGroups.Id = "aInstallation_ChangeGroups" + Me.aInstallation_ChangeGroups.ImageName = Nothing + Me.aInstallation_ChangeGroups.Shortcut = Nothing + Me.aInstallation_ChangeGroups.Tag = Nothing + Me.aInstallation_ChangeGroups.TargetObjectsCriteria = Nothing + Me.aInstallation_ChangeGroups.TargetObjectType = GetType(SISBusiness.[Module].InstallationDocumentations) + Me.aInstallation_ChangeGroups.TargetViewId = "" + Me.aInstallation_ChangeGroups.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aInstallation_ChangeGroups.ToolTip = Nothing + Me.aInstallation_ChangeGroups.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aInstallation_ChangeGroups As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.resx new file mode 100644 index 0000000..e41e12f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 16, 21 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.vb new file mode 100644 index 0000000..5a6eaaf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/InstallationVC.vb @@ -0,0 +1,80 @@ + +Imports DevExpress.ExpressApp + +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering + +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 = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).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("Installation.TakeoverProtocolRows.TakeoverProtocolHeader.Customers.Oid = ? and Installation.TakeoverProtocolRows.TakeoverProtocolHeader.IsEditable=False ", _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 + Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", False) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True) + End If + End Sub + + Private Sub aInstallation_ChangeGroups_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInstallation_ChangeGroups.CustomizePopupWindowParams + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem!") + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = _onew.CreateObject(Of Installation_ChangeGroups_PopUp)() + + _Installation_ChangeGroups_PopUp.RowGroup1 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup1 + _Installation_ChangeGroups_PopUp.RowGroup2 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup2 + + e.View = Application.CreateDetailView(_onew, "Installation_ChangeGroups_PopUp_DetailView", False, _Installation_ChangeGroups_PopUp) + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aInstallation_ChangeGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInstallation_ChangeGroups.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), Installation_ChangeGroups_PopUp) + If _Installation_ChangeGroups_PopUp Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _InstallationDocumentations As InstallationDocumentations In View.SelectedObjects + If _Installation_ChangeGroups_PopUp.Change_RowGroup1 Then + _InstallationDocumentations.RowGroup1 = _Installation_ChangeGroups_PopUp.RowGroup1 + End If + If _Installation_ChangeGroups_PopUp.Change_RowGroup2 Then + _InstallationDocumentations.RowGroup2 = _Installation_ChangeGroups_PopUp.RowGroup2 + End If + Next + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/Installation_ChangeGroups_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/Installation_ChangeGroups_PopUp.vb new file mode 100644 index 0000000..f07e346 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/Installation_ChangeGroups_PopUp.vb @@ -0,0 +1,65 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Installation_ChangeGroups_PopUp + Inherits BaseObject + + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _Change_RowGroup1 As Boolean + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Change_RowGroup2 As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Change_RowGroup1 = True + Change_RowGroup2 = True + End Sub + + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property Change_RowGroup1 As Boolean + Get + Return _Change_RowGroup1 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value) + End Set + End Property + Property Change_RowGroup2 As Boolean + Get + Return _Change_RowGroup2 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb new file mode 100644 index 0000000..ca76f1f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ModifyProductsParameters.vb @@ -0,0 +1,121 @@ +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl + _ + _ +Public Class ModifyProductsParameters + Inherits BaseObject + + Private _CurrencyRate As Double + Private _CurrencyName As CurrencyName + Private _ProductType As eProductType + Private _IsProductType As Boolean = False + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CurrencyName = Session.FindObject(Of CurrencyName)(Session.ParseCriteria("ShortName='HUF'")) + End Sub + + Property Parameter_01 As String + Property Parameter_02 As String + Property Parameter_03 As String + Property Parameter_04 As String + Property Parameter_05 As String + Property Parameter_06 As String + Property Parameter_07 As String + Property Parameter_08 As String + Property Parameter_09 As String + Property Parameter_10 As String + Property IsParameter_01 As Boolean = False + Property IsParameter_02 As Boolean = False + Property IsParameter_03 As Boolean = False + Property IsParameter_04 As Boolean = False + Property IsParameter_05 As Boolean = False + Property IsParameter_06 As Boolean = False + Property IsParameter_07 As Boolean = False + Property IsParameter_08 As Boolean = False + Property IsParameter_09 As Boolean = False + Property IsParameter_10 As Boolean = False + Property IsCurrencyName As Boolean = False + Property IsCustomsTariffs As Boolean = False + Property IsCountryFrom As Boolean = False + Property IsCustomersOrder1 As Boolean = False + Property IsCustomersOrder2 As Boolean = False + Property IsCustomersOrder3 As Boolean = False + Property ProductsGroups As ProductsGroups + Property IsUnits As Boolean = False + Property IsVAT As Boolean = False + Property CustomersOrder1 As CustomersOrder + Property CustomersOrder2 As CustomersOrder + Property CustomersOrder3 As CustomersOrder + Property Units As Units + Property VAT As VAT + Property CustomsTariffs As CustomsTariffs + Property CountryFrom As Country + Property IsListPriceHUF As Boolean = False 'Listar mdosuljon ? + Property IsListPriceDEV As Boolean = False 'Listar mdosuljon ? + Property ListPricePercent As Double = 0 'Listar %-kal mdosul ? termkr vltozs + Property IsListPriceRegenerate As Boolean = False 'Listar jraszmoldjon ? valuta vlts + Property PriceMode As ePriceMode = ePriceMode.eDEVToHUF + Property IsProducer As Boolean = False + Property Producer As Customers + Property IsDecimalIn As Boolean + Property IsDecimalOut As Boolean + Property DecimalIn As Double + Property DecimalOut As Double + + + + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value.ShortName <> "HUF" Then + Dim _CurrencyRate As CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=? AND CurrencyName=?", True, GetSQLTime(Session).Date, value)) + If _CurrencyRate Is Nothing Then + _CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=?", True, GetSQLTime(Session).Date.AddDays(-1))) + If _CurrencyRate IsNot Nothing Then + CurrencyRate = _CurrencyRate.RateAverage + End If + Else + If _CurrencyRate IsNot Nothing Then + CurrencyRate = _CurrencyRate.RateAverage + End If + End If + End If + End Set + End Property + + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + + Property ProductType As eProductType + Get + Return _ProductType + End Get + Set(value As eProductType) + SetPropertyValue("ProductType", _ProductType, value) + End Set + End Property + _ + Property IsProductType As Boolean + Get + Return _IsProductType + End Get + Set(value As Boolean) + SetPropertyValue("IsProductType", _IsProductType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinder.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinder.vb new file mode 100644 index 0000000..3eb917f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinder.vb @@ -0,0 +1,84 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + + _ + _ +Public Class ProductFinder + Inherits BaseObject + Private _MasterKey As Guid + Private _Products As Products + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + Dim c As XPCollection(Of ProductFinderInfo) + c = Me.ProductFinderInfo + End If + End Set + End Property + _ + ReadOnly Property ProductSelect As XPCollection(Of ProductSelect) + Get + Return New XPCollection(Of ProductSelect)(Session) + End Get + End Property + _ + ReadOnly Property ProductSelected As XPCollection(Of ProductSelected) + Get + Return New XPCollection(Of ProductSelected)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey)) + End Get + End Property + _ + ReadOnly Property StorageOutCirculation As XPCollection(Of StorageOutCirculation) + Get + Return New XPCollection(Of StorageOutCirculation)(Session, CriteriaOperator.Parse("1=2")) + End Get + End Property + ReadOnly Property StorageComputedInfo As XPCollection(Of StorageComputedInfo) + Get + Return New XPCollection(Of StorageComputedInfo)(Session, CriteriaOperator.Parse("1=2")) + End Get + End Property + _ + ReadOnly Property ProductFinderInfo As XPCollection(Of ProductFinderInfo) + Get + Return New XPCollection(Of ProductFinderInfo)(Session, CriteriaOperator.Parse("1=2")) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderFIFO.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderFIFO.vb new file mode 100644 index 0000000..0e0b38e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderFIFO.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + + _ + _ +Public Class ProductFinderFIFO + Inherits BaseObject + Private _MasterKey As Guid + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + + ReadOnly Property StorageInRows As XPCollection(Of StorageInRows) + Get + Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("")) + End Get + End Property + ReadOnly Property ProductSelectedFIFO As XPCollection(Of ProductSelectedFIFO) + Get + Return New XPCollection(Of ProductSelectedFIFO)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderInfo.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderInfo.vb new file mode 100644 index 0000000..5738083 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderInfo.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class ProductFinderInfo + Inherits BaseObject + Private _PropertyName As String + Private _InfoString As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property PropertyName As String + Get + Return _PropertyName + End Get + Set(value As String) + SetPropertyValue("PropertyName", _PropertyName, value) + End Set + End Property + _ + Property InfoString As String + Get + Return _InfoString + End Get + Set(value As String) + SetPropertyValue("InfoString", _InfoString, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.Designer.vb new file mode 100644 index 0000000..5f7bc18 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.Designer.vb @@ -0,0 +1,67 @@ +Partial Class ProductFinderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTableProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_ProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aToTableProductFinder + ' + Me.aToTableProductFinder.Caption = "aTo Table Product Finder" + Me.aToTableProductFinder.Category = "aToTableProductFinder" + Me.aToTableProductFinder.ConfirmationMessage = Nothing + Me.aToTableProductFinder.Id = "aToTableProductFinder" + Me.aToTableProductFinder.ImageName = Nothing + Me.aToTableProductFinder.Shortcut = "Add" + Me.aToTableProductFinder.Tag = Nothing + Me.aToTableProductFinder.TargetObjectsCriteria = Nothing + Me.aToTableProductFinder.TargetObjectType = GetType(SISBusiness.[Module].ProductFinder) + Me.aToTableProductFinder.TargetViewId = Nothing + Me.aToTableProductFinder.ToolTip = Nothing + Me.aToTableProductFinder.TypeOfView = Nothing + ' + 'aToTableD_ProductFinder + ' + Me.aToTableD_ProductFinder.Caption = "aToTableD_ProductFinder" + Me.aToTableD_ProductFinder.Category = "aToTableD_ProductFinder" + Me.aToTableD_ProductFinder.ConfirmationMessage = "Do you want to execute command ?" + Me.aToTableD_ProductFinder.Id = "aToTableD_ProductFinder" + Me.aToTableD_ProductFinder.ImageName = Nothing + Me.aToTableD_ProductFinder.Shortcut = "Subtract" + Me.aToTableD_ProductFinder.Tag = Nothing + Me.aToTableD_ProductFinder.TargetObjectsCriteria = Nothing + Me.aToTableD_ProductFinder.TargetObjectType = GetType(SISBusiness.[Module].ProductFinder) + Me.aToTableD_ProductFinder.TargetViewId = Nothing + Me.aToTableD_ProductFinder.ToolTip = Nothing + Me.aToTableD_ProductFinder.TypeOfView = Nothing + + End Sub + Friend WithEvents aToTableProductFinder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_ProductFinder As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.resx new file mode 100644 index 0000000..6d881ef --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 195, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb new file mode 100644 index 0000000..1872cb5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVC.vb @@ -0,0 +1,126 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering + +Public Class ProductFinderVC + 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 ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", False) + + If View.Id = "ProductFinder_DetailView" Then + Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + + End If + If View.Id = "ProductFinder_ProductSelect_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + If View.Id = "ProductFinder_ProductSelected_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + End If + If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub + + Private Sub aToTableProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableProductFinder.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _ProductSelect_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelect") + Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected") + + Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder) + Dim _ProductSelect As ProductSelect + Dim _ProductSelected As ProductSelected + + Dim _IsExists As Boolean = False + + If _ProductSelect_ListPropertyEditor IsNot Nothing Then + For Each _ProductSelect In _ProductSelect_ListPropertyEditor.ListView.SelectedObjects + If _ProductSelected_ListPropertyEditor IsNot Nothing Then + _IsExists = False + For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.CollectionSource.List + If _ProductSelected.Products Is _ProductSelect.Products Then + _IsExists = True + Exit For + End If + Next + + If _IsExists Then + _ProductSelected.QTT += 1 + Else + _ProductSelected = _ocur.CreateObject(Of ProductSelected)() + _ProductSelected.MasterKey = _ProductFinder.MasterKey + _ProductSelected.Products = _ProductSelect.Products + _ProductSelected.QTT = 1 + _ProductSelected_ListPropertyEditor.ListView.CollectionSource.Add(_ProductSelected) + End If + _ocur.CommitChanges() + End If + Next + End If + + End Sub + Private Sub aToTableD_ProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_ProductFinder.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected") + Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder) + Dim _ProductSelected_Collection As New XPCollection(Of ProductSelected)(_onew.Session, CriteriaOperator.Parse("1=2")) + Dim _ProductSelected As ProductSelected + If _ProductSelected_ListPropertyEditor IsNot Nothing Then + For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.SelectedObjects + _ProductSelected_Collection.Add(_onew.GetObject(_ProductSelected)) + Next + _onew.Delete(_ProductSelected_Collection) + _onew.CommitChanges() + _ProductSelected_ListPropertyEditor.ListView.CollectionSource.Reload() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVariable.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVariable.vb new file mode 100644 index 0000000..2e4b0cf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductFinderVariable.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductFinderVariable + Inherits BaseObject + Private _MasterKey As Guid + Private _Products As Products + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + + _ + ReadOnly Property ProductSelectOriginal As XPCollection(Of ProductSelect) + Get + If Me.Products IsNot Nothing Then + Return New XPCollection(Of ProductSelect)(Session, CriteriaOperator.Parse("Products=?", Me.Products)) + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property ProductSelectVariables As XPCollection(Of ProductSelect) + Get + Return New XPCollection(Of ProductSelect)(Session) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelected.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelected.vb new file mode 100644 index 0000000..a850ef9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelected.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ProductSelected + Inherits BaseObject + Private _MasterKey As Guid 'PopUP master key + Private _Products As Products + Private _QTT As Double + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelectedFIFO.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelectedFIFO.vb new file mode 100644 index 0000000..a34a272 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductSelectedFIFO.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ProductSelectedFIFO + Inherits BaseObject + Private _MasterKey As Guid + Private _StorageInRows As StorageInRows + Private _QTT As Double + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_CreateCustomersReport_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_CreateCustomersReport_PopUp.vb new file mode 100644 index 0000000..9f1a628 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_CreateCustomersReport_PopUp.vb @@ -0,0 +1,127 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Utils + + _ + + _ + _ +Public Class ProductsGant_CreateCustomersReport_PopUp + Inherits BaseObject + + Private _Customers As Customers + Private _CustomersFrom As CustomersFrom + Private _Products As Products + Private _ProductsGantRows As ProductsGantRows + Private _DateExecution As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property ProductsGantRows As ProductsGantRows + Get + Return _ProductsGantRows + End Get + Set(value As ProductsGantRows) + SetPropertyValue("ProductsGantRows", _ProductsGantRows, value) + End Set + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + ' ProductsGantCustomersReport.Reload() + End If + End Set + End Property + + ReadOnly Property ProductsGantCustomersReport As XPCollection(Of ProductsGantCustomersReport) + Get + Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(Session, CriteriaOperator.Parse("1=2")) + + Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(Session) + Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ + Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And + _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And + _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And + _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = CustomersFrom.Oid And + _InvoiceRowsXPQ.InvoiceHeader.Customers.Oid = Customers.Oid + Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _ + Select New With {Key .Products = Products} + + + If IRXPQ.Count > 0 Then + For Each _IRXPQ_Item In IRXPQ + Dim _ProductsGantCustomersReport As New ProductsGantCustomersReport(Session) + With _ProductsGantCustomersReport + .Customers = Customers + .Products = _IRXPQ_Item.Products + .DateExecution = DateExecution.Date + End With + + _ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport) + + Next + End If + + Dim _ProductsGantCustomersReport_Existing_Collection As New XPCollection(Of ProductsGantCustomersReport) _ + (Session, CriteriaOperator.Parse("Customers=? AND Products=? AND GetDate(DateExecution)=?", Customers, Products, DateExecution.Date)) + + If _ProductsGantCustomersReport_Existing_Collection.Count > 0 Then + For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Existing_Collection + _ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport) + Next + End If + + Return _ProductsGantCustomersReport_Collection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_SetGantItemColumn_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_SetGantItemColumn_PopUp.vb new file mode 100644 index 0000000..a234025 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ProductsGant_SetGantItemColumn_PopUp.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ProductsGant_SetGantItemColumn_PopUp + Inherits BaseObject + + Private _ColumnCaption As String + Private _IsGroupColumn As Boolean + Private _GroupIndex As Long + Private _IsVisable As Boolean + Private _Index As Long + Private _Width As Long + Private _ColumnID As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ColumnCaption As String + Get + Return _ColumnCaption + End Get + Set(value As String) + SetPropertyValue("ColumnCaption", _ColumnCaption, value) + End Set + End Property + Property IsGroupColumn As Boolean + Get + Return _IsGroupColumn + End Get + Set(value As Boolean) + SetPropertyValue("IsGroupColumn", _IsGroupColumn, value) + End Set + End Property + Property GroupIndex As Long + Get + Return _GroupIndex + End Get + Set(value As Long) + SetPropertyValue("GroupIndex", _GroupIndex, value) + End Set + End Property + Property IsVisable As Boolean + Get + Return _IsVisable + End Get + Set(value As Boolean) + SetPropertyValue("IsVisable", _IsVisable, value) + End Set + End Property + Property Index As Long + Get + Return _Index + End Get + Set(value As Long) + SetPropertyValue("Index", _Index, value) + End Set + End Property + Property Width As Long + Get + Return _Width + End Get + Set(value As Long) + SetPropertyValue("Width", _Width, value) + End Set + End Property + Property ColumnID As String + Get + Return _ColumnID + End Get + Set(value As String) + SetPropertyValue("ColumnID", _ColumnID, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/StorageComputedInfo.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/StorageComputedInfo.vb new file mode 100644 index 0000000..16bdbfb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/StorageComputedInfo.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StorageComputedInfo + Inherits BaseObject + Private _InfoString As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property InfoString As String + Get + Return _InfoString + End Get + Set(value As String) + SetPropertyValue("InfoString", _InfoString, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ePriceMode.vb b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ePriceMode.vb new file mode 100644 index 0000000..056b0f5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/PopUp/ePriceMode.vb @@ -0,0 +1,5 @@ + +Public Enum ePriceMode + eDEVToHUF = 0 + eHUFToDEV = 1 +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductSelect.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductSelect.vb new file mode 100644 index 0000000..bb80947 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductSelect.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ + _ +Public Class ProductSelect + Inherits XPLiteObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Oid As Guid + Public Products As Products + Public StorageComputed As StorageComputed + Public QTT_Will As Double + ReadOnly Property DisplayName As String + Get + Return Products.ProductNumber & ", " & Products.ShortName + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/Products.vb b/SISBusiness.Module/BusinessObjects/Business/Products/Products.vb new file mode 100644 index 0000000..69a753d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/Products.vb @@ -0,0 +1,834 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Drawing + +Public Enum eProductType + eNormal = 0 + eSerialNumber = 1 + ePacketNumber = 2 +End Enum +Public Enum eADRPackingUnit + eNotSet = 0 + eUnit_I = 1 + eUnit_II = 2 + eUnit_III = 3 +End Enum +Public Enum eDangerClass + eNotSet = 0 + eClassI = 1 + eClassII = 2 + eClassIII = 3 +End Enum +'-- Termék, termék beszállítók + _ + _ + _ +Public Class Products + Inherits BaseObject + Private _ProductType As eProductType = eProductType.eNormal + Private _ProductsGroups As ProductsGroups 'Termék csoport + Private _ProductNumber As String 'Termék cikkszáma, egyedi ! Nem lehet két egyforma !!!!!! + Private _ProductCode As String 'Termék kód + Private _ProductStrategyCode As String 'Stratégiai kód, az automatikus rendelést fogja befojásolni + Private _ShortName As String 'Megnevezés + Private _ShortName_Hu As String 'Megnevezés magyarul + Private _ShortName_Gb As String 'Megnevezés angolul + Private _ShortName_De As String 'Megnevezés németül + Private _Description As String 'Leírás + Private _Description_Hu As String 'Leírás magyarul + Private _Description_Gb As String 'Leírás angolul + Private _Description_De As String 'Leírás németül + Private _Description_Private As String 'Belső megjegyzés a termékre vonatkozóan + Private _VAT As VAT 'ÁFA kód + Private _Units As Units 'Mennyiségi egység + Private _CustomsTariff As CustomsTariffs 'Vámtarifa szj, stb + Private _NettoWeight As Double 'Nettó súly + Private _GrossWeight As Double 'Bruttó súly (csomagolva a nettó) + Private _PacketUnitOut As Double 'Eladási csomagolási egység + Private _PacketUnitIn As Double 'Beszerzési csomagolási egység + Private _ListPriceOutHUF As Double 'Listaár HUF eladási !!! + Private _ListPriceOutDEV As Double 'Listaár DEV eladási + Private _ListPriceInHUF As Double 'Listaár HUF vételi !!! + Private _ListPriceInDEV As Double 'Listaár DEV vételi + Private _CurrencyName As CurrencyName 'Deviza ( ez az alapértelmezett devizája !) + Private _CountryFrom As Country 'Származási ország ! + Private _DecimalIn As Long ' Bejövő bizonylatoknál ? tizedesre + Private _DecimalOut As Long 'Kimenő bizonylatoknál ? tizedesre + Private _ObjectCreated As Date 'Létrehozás dátuma + Private _UserCreated As User 'Létrehozó + Private _Barcode As String 'Vonalkód + Private _MasterBusinessDirectory As BusinessDirectory + Private _IsStoragEverUsed As Boolean + + Private _Parameter_01 As String = "" + Private _Parameter_02 As String = "" + Private _Parameter_03 As String = "" + Private _Parameter_04 As String = "" + Private _Parameter_05 As String = "" + Private _Parameter_06 As String = "" + Private _Parameter_07 As String = "" + Private _Parameter_08 As String = "" + Private _Parameter_09 As String = "" + Private _Parameter_10 As String = "" + Private _HRPersonResponsible As HRPerson 'Termék felelős + Private _HRPersonSpecialist As HRPerson 'Termék specialista + + '//WEB ShoppingCart megjelenéshez + Private _Picture_110x110 As Image + Private _Picture_240x220 As Image + Private _Picture_FullSize As Image + Private _ProductsGroupsWEB As ProductsGroupsWEB + + Private _Producer As Customers 'Gyártó + Private _ADRPackingUnit As eADRPackingUnit + Private _UNNumber As String 'UN szám (mezőgazdasági veszélyességhez) + Private _UNNumberDescription As String 'UN szám szöveges megjelenítése + Private _Agent As String 'Hatóanyag + Private _DangerLabel As Double 'Veszélyességi bárca + Private _DangerClass As eDangerClass + Private _PGNumber As String 'PG szám a veszélyességhez + + + Private _FastCode As String 'Termék gyorskód + Private _PLUCode As String 'Pult kód mérlegelt termékekhez + Private _Empties As Products 'Göngyöleg + Private _PriceColumnBruttoHUF01 As Double '1. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF02 As Double '2. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF03 As Double '3. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF04 As Double '4. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF05 As Double '5. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF06 As Double '6. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF07 As Double '7. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF08 As Double '8. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF09 As Double '9. ároszlop forintos bruttó ára + Private _PriceColumnBruttoHUF10 As Double '10. ároszlop forintos bruttó ára + + Private _CustomersOrder01 As CustomersOrder '1. beszállító + Private _CustomersOrder02 As CustomersOrder '2. beszállító + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + IsStoragEverUsed = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If IsDeleted = False Then + If CustomersOrder01 Is Nothing Then + If Me.CustomersOrderPriority.Count > 0 Then + Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Me.CustomersOrder01 = Me.CustomersOrderPriority(0).CustomersOrder + End If + End If + If CustomersOrder02 Is Nothing Then + If Me.CustomersOrderPriority.Count > 1 Then + Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + Me.CustomersOrder02 = Me.CustomersOrderPriority(1).CustomersOrder + End If + End If + End If + End Sub + Property ProductType As eProductType + Get + Return _ProductType + End Get + Set(value As eProductType) + SetPropertyValue("ProductType", _ProductType, value) + End Set + End Property + Property ProductGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(ByVal value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + _ + _ + _ + Property ProductNumber() As String + Get + Return _ProductNumber + End Get + Set(ByVal value As String) + SetPropertyValue("ProductNumber", _ProductNumber, value) + End Set + End Property + Property ProductCode As String + Get + Return _ProductCode + End Get + Set(value As String) + SetPropertyValue("ProductCode", _ProductCode, value) + End Set + End Property + Property ProductStrategyCode As String + Get + Return _ProductStrategyCode + End Get + Set(value As String) + SetPropertyValue("ProductStrategyCode", _ProductStrategyCode, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ShortName_Hu As String + Get + Return _ShortName_Hu + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName_Hu", _ShortName_Hu, value) + End Set + End Property + _ + Property ShortName_Gb As String + Get + Return _ShortName_Gb + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName_gb", _ShortName_Gb, value) + End Set + End Property + _ + Property ShortName_De As String + Get + Return _ShortName_De + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName_De", _ShortName_De, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property Description_Hu() As String + Get + Return _Description_Hu + End Get + Set(ByVal value As String) + SetPropertyValue("Description_Hu", _Description_Hu, value) + End Set + End Property + _ + Property Description_Gb() As String + Get + Return _Description_Gb + End Get + Set(ByVal value As String) + SetPropertyValue("Description_gb", _Description_Gb, value) + End Set + End Property + _ + Property Description_De() As String + Get + Return _Description_De + End Get + Set(ByVal value As String) + SetPropertyValue("Description_De", _Description_De, value) + End Set + End Property + _ + Property Description_Private As String + Get + Return _Description_Private + End Get + Set(value As String) + SetPropertyValue("Description_Private", _Description_Private, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property CustomsTariff As CustomsTariffs + Get + Return _CustomsTariff + End Get + Set(ByVal value As CustomsTariffs) + SetPropertyValue("CustomsTariff", _CustomsTariff, value) + End Set + End Property + Property NettoWeight As Double + Get + Return _NettoWeight + End Get + Set(ByVal value As Double) + SetPropertyValue("NettoWeight", _NettoWeight, value) + End Set + End Property + Property GrossWeight As Double + Get + Return _GrossWeight + End Get + Set(ByVal value As Double) + SetPropertyValue("GrossWeight", _GrossWeight, value) + End Set + End Property + Property PacketUnitOut As Double + Get + Return _PacketUnitOut + End Get + Set(value As Double) + SetPropertyValue("PacketUnitOut", _PacketUnitOut, value) + End Set + End Property + Property PacketUnitIn As Double + Get + Return _PacketUnitIn + End Get + Set(value As Double) + SetPropertyValue("PacketUnitIn", _PacketUnitIn, value) + End Set + End Property + Property ListPriceOutHUF As Double + Get + Return _ListPriceOutHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceOutHUF", _ListPriceOutHUF, value) + End Set + End Property + Property ListPriceOutDEV As Double + Get + Return _ListPriceOutDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("ListPriceOutDEV", _ListPriceOutDEV, value) + End Set + End Property + Property ListPriceInHUF As Double + Get + Return _ListPriceInHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceInHUF", _ListPriceInHUF, value) + End Set + End Property + Property ListPriceInDEV As Double + Get + Return _ListPriceInDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceInDEV", _ListPriceInDEV, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("Currencyname", _CurrencyName, value) + End Set + End Property + Property CountryFrom As Country + Get + Return _CountryFrom + End Get + Set(ByVal value As Country) + SetPropertyValue("CountryFrom", _CountryFrom, value) + End Set + End Property + Property DecimalIn As Long + Get + Return _DecimalIn + End Get + Set(ByVal value As Long) + SetPropertyValue("DecimalIn", _DecimalIn, value) + + End Set + End Property + Property DecimalOut As Long + Get + Return _DecimalOut + End Get + Set(ByVal value As Long) + SetPropertyValue("DecimalOut", _DecimalOut, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Barcode As String + Get + Return _Barcode + End Get + Set(value As String) + SetPropertyValue("Barcode", _Barcode, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + _ + _ + Property IsStoragEverUsed As Boolean + Get + Return _IsStoragEverUsed + End Get + Set(value As Boolean) + SetPropertyValue("IsStoragEverUsed", _IsStoragEverUsed, value) + End Set + End Property + + _ + Property Parameter_01 As String + Get + Return _Parameter_01 + End Get + Set(value As String) + SetPropertyValue("Parameter_01", _Parameter_01, value) + End Set + End Property + _ + Property Parameter_02 As String + Get + Return _Parameter_02 + End Get + Set(value As String) + SetPropertyValue("Parameter_02", _Parameter_02, value) + End Set + End Property + _ + Property Parameter_03 As String + Get + Return _Parameter_03 + End Get + Set(value As String) + SetPropertyValue("Parameter_03", _Parameter_03, value) + End Set + End Property + _ + Property Parameter_04 As String + Get + Return _Parameter_04 + End Get + Set(value As String) + SetPropertyValue("Parameter_04", _Parameter_04, value) + End Set + End Property + _ + Property Parameter_05 As String + Get + Return _Parameter_05 + End Get + Set(value As String) + SetPropertyValue("Parameter_05", _Parameter_05, value) + End Set + End Property + _ + Property Parameter_06 As String + Get + Return _Parameter_06 + End Get + Set(value As String) + SetPropertyValue("Parameter_06", _Parameter_06, value) + End Set + End Property + _ + Property Parameter_07 As String + Get + Return _Parameter_07 + End Get + Set(value As String) + SetPropertyValue("Parameter_07", _Parameter_07, value) + End Set + End Property + _ + Property Parameter_08 As String + Get + Return _Parameter_08 + End Get + Set(value As String) + SetPropertyValue("Parameter_08", _Parameter_08, value) + End Set + End Property + _ + Property Parameter_09 As String + Get + Return _Parameter_09 + End Get + Set(value As String) + SetPropertyValue("Parameter_09", _Parameter_09, value) + End Set + End Property + _ + Property Parameter_10 As String + Get + Return _Parameter_10 + End Get + Set(value As String) + SetPropertyValue("Parameter_10", _Parameter_10, value) + End Set + End Property + Property HRPersonResponsible As HRPerson + Get + Return _HRPersonResponsible + End Get + Set(value As HRPerson) + SetPropertyValue("HRPersonResponsible", _HRPersonResponsible, value) + End Set + End Property + Property HRPersonSpecialist As HRPerson + Get + Return _HRPersonSpecialist + End Get + Set(value As HRPerson) + SetPropertyValue("HRPersonSpecialist", _HRPersonSpecialist, value) + End Set + End Property + + '//WEB miatt + _ + Property Picture_110x110 As Image + Get + Return _Picture_110x110 + End Get + Set(value As Image) + SetPropertyValue("Picture_110x110", _Picture_110x110, value) + End Set + End Property + _ + Property Picture_240x220 As Image + Get + Return _Picture_240x220 + End Get + Set(value As Image) + SetPropertyValue("Picture_240x220", _Picture_240x220, value) + End Set + End Property + _ + Property Picture_FullSize As Image + Get + Return _Picture_FullSize + End Get + Set(value As Image) + SetPropertyValue("Picture_FullSize", _Picture_FullSize, value) + End Set + End Property + Property ProductsGroupsWEB As ProductsGroupsWEB + Get + Return _ProductsGroupsWEB + End Get + Set(value As ProductsGroupsWEB) + SetPropertyValue("ProductsGroupsWEB", _ProductsGroupsWEB, value) + End Set + End Property + + 'Veszélyesség + Property Producer As Customers + Get + Return _Producer + End Get + Set(value As Customers) + SetPropertyValue("Producer", _Producer, value) + End Set + End Property + Property ADRPackingUnit As eADRPackingUnit + Get + Return _ADRPackingUnit + End Get + Set(value As eADRPackingUnit) + SetPropertyValue("ADRPackingUnit", _ADRPackingUnit, value) + End Set + End Property + Property UNNumber As String + Get + Return _UNNumber + End Get + Set(value As String) + SetPropertyValue("UNNumber", _UNNumber, value) + End Set + End Property + _ + Property UNNumberDescription As String + Get + Return _UNNumberDescription + End Get + Set(value As String) + SetPropertyValue("UNNumberDescription", _UNNumberDescription, value) + End Set + End Property + Property Agent As String + Get + Return _Agent + End Get + Set(value As String) + SetPropertyValue("Agent", _Agent, value) + End Set + End Property + Property DangerLabel As Double + Get + Return _DangerLabel + End Get + Set(value As Double) + SetPropertyValue("DangerLabel", _DangerLabel, value) + End Set + End Property + Property DangerClass As eDangerClass + Get + Return _DangerClass + End Get + Set(value As eDangerClass) + SetPropertyValue("DangerClass", _DangerClass, value) + End Set + End Property + Property PGNumber As String + Get + Return _PGNumber + End Get + Set(value As String) + SetPropertyValue("PGNumber", _PGNumber, value) + End Set + End Property + + 'Vonalkód, pultkód + Property FastCode As String + Get + Return _FastCode + End Get + Set(value As String) + SetPropertyValue("FastCode", _FastCode, value) + End Set + End Property + Property PLUCode As String + Get + Return _PLUCode + End Get + Set(value As String) + SetPropertyValue("PLUCode", _PLUCode, value) + End Set + End Property + Property Empties As Products + Get + Return _Empties + End Get + Set(value As Products) + SetPropertyValue("Empties", _Empties, value) + End Set + End Property + + 'Ároszlop ÁRAK + Property PriceColumnBruttoHUF01 As Double + Get + Return _PriceColumnBruttoHUF01 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF01", _PriceColumnBruttoHUF01, value) + End Set + End Property + Property PriceColumnBruttoHUF02 As Double + Get + Return _PriceColumnBruttoHUF02 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF02", _PriceColumnBruttoHUF02, value) + End Set + End Property + Property PriceColumnBruttoHUF03 As Double + Get + Return _PriceColumnBruttoHUF03 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF03", _PriceColumnBruttoHUF03, value) + End Set + End Property + Property PriceColumnBruttoHUF04 As Double + Get + Return _PriceColumnBruttoHUF04 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF04", _PriceColumnBruttoHUF04, value) + End Set + End Property + Property PriceColumnBruttoHUF05 As Double + Get + Return _PriceColumnBruttoHUF05 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF05", _PriceColumnBruttoHUF05, value) + End Set + End Property + Property PriceColumnBruttoHUF06 As Double + Get + Return _PriceColumnBruttoHUF01 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF06", _PriceColumnBruttoHUF06, value) + End Set + End Property + Property PriceColumnBruttoHUF07 As Double + Get + Return _PriceColumnBruttoHUF01 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF07", _PriceColumnBruttoHUF07, value) + End Set + End Property + Property PriceColumnBruttoHUF08 As Double + Get + Return _PriceColumnBruttoHUF01 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF08", _PriceColumnBruttoHUF08, value) + End Set + End Property + Property PriceColumnBruttoHUF09 As Double + Get + Return _PriceColumnBruttoHUF09 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF09", _PriceColumnBruttoHUF09, value) + End Set + End Property + Property PriceColumnBruttoHUF10 As Double + Get + Return _PriceColumnBruttoHUF01 + End Get + Set(value As Double) + SetPropertyValue("PriceColumnBruttoHUF10", _PriceColumnBruttoHUF10, value) + End Set + End Property + + _ + Property CustomersOrder01 As CustomersOrder + Get + Return _CustomersOrder01 + End Get + Set(value As CustomersOrder) + SetPropertyValue("CustomersOrder01", _CustomersOrder01, value) + End Set + End Property + _ + Property CustomersOrder02 As CustomersOrder + Get + Return _CustomersOrder02 + End Get + Set(value As CustomersOrder) + SetPropertyValue("CustomersOrder02", _CustomersOrder02, value) + End Set + End Property + + '//XPCollections + _ + _ + Public ReadOnly Property CustomersOrderPriority As XPCollection(Of CustomersOrderPriority) + Get + Return GetCollection(Of CustomersOrderPriority)("CustomersOrderPriority") + End Get + End Property + _ + Public ReadOnly Property ProductsDocumentations() As XPCollection(Of ProductsDocumentations) + Get + Return GetCollection(Of ProductsDocumentations)("ProductsDocumentations") + End Get + End Property + Public ReadOnly Property Products_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + If ProductGroups IsNot Nothing Then + If ProductGroups.MasterBusinessDirectory IsNot Nothing Then + If ProductGroups.MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, ProductGroups.MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory) + End If + + End If + End If + + Return _BusinessDirectory_Collection + End Get + End Property + +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region + +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCredit.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCredit.vb new file mode 100644 index 0000000..8bcfd51 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCredit.vb @@ -0,0 +1,56 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductsCredit + Inherits BaseObject 'Termkcsoporthoz adott hitelkeret + Private _ShortName As String + Private _CurrencyName As CurrencyName + Private _AmountHUF As Double + Private _AmountDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + _ + _ + ReadOnly Property ProductsCreditProducts As XPCollection(Of ProductsCreditProducts) + Get + Return GetCollection(Of ProductsCreditProducts)("ProductsCreditProducts") + End Get + End Property + _ + _ + ReadOnly Property ProductsCreditGroups As XPCollection(Of ProductsCreditGroups) + Get + Return GetCollection(Of ProductsCreditGroups)("ProductsCreditGroups") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditGroups.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditGroups.vb new file mode 100644 index 0000000..5be7ad7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditGroups.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductsCreditGroups + Inherits BaseObject + Private _ProductsCredit As ProductsCredit + Private _ProductsGroups As ProductsGroups + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ProductsCredit As ProductsCredit + Get + Return _ProductsCredit + End Get + Set(value As ProductsCredit) + SetPropertyValue("ProductsCredit", _ProductsCredit, value) + End Set + End Property + Property ProductsGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditProducts.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditProducts.vb new file mode 100644 index 0000000..b6b78d9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsCreditProducts.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductsCreditProducts + Inherits BaseObject + Private _ProductsCredit As ProductsCredit + Private _Products As Products + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ProductsCredit As ProductsCredit + Get + Return _ProductsCredit + End Get + Set(value As ProductsCredit) + SetPropertyValue("ProductsCredit", _ProductsCredit, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations.vb new file mode 100644 index 0000000..bf76b4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations.vb @@ -0,0 +1,157 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports System.IO +Imports DevExpress.ExpressApp.Utils + +Public Enum eProductsDocumentationStatus + ePublic = 0 '-- Bárki láthatja + ePrivat = 1 '-- Csak belső használatra +End Enum + _ + _ +Public Class ProductsDocumentations + Inherits FileAttachmentBase + Private _Products As Products + Private _Status As eProductsDocumentationStatus + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _ShortName As String + Private _Description As String + Private _FileCreated As Date + Private _FileModified As Date + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Status = eProductsDocumentationStatus.ePublic + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property Status As eProductsDocumentationStatus + Get + Return _Status + End Get + Set(value As eProductsDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property FileCreated As Date + Get + Return _FileCreated + End Get + Set(value As Date) + SetPropertyValue("FileCreated", _FileCreated, value) + End Set + End Property + Property FileModified As Date + Get + Return _FileModified + End Get + Set(value As Date) + SetPropertyValue("FileModified", _FileModified, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '--------ReadOnly--------- + _ + ReadOnly Property ImageType As Image + Get + Select Case LCase(Path.GetExtension(File.FileName)) + Case ".xls", ".xlsx" + Return ImageLoader.Instance.GetImageInfo("XLS").Image + Case ".doc", ".docx" + Return ImageLoader.Instance.GetImageInfo("DOC").Image + Case ".pdf" + Return ImageLoader.Instance.GetImageInfo("PDF").Image + Case ".txt" + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Case Else + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Return Nothing + End Select + End Get + End Property +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.Designer.vb new file mode 100644 index 0000000..f05993f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class ProductsDocumentations_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProductsDocumentations_OpenProductGroupFolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProductsDocumentations_OpenProductGroupFolder + ' + Me.aProductsDocumentations_OpenProductGroupFolder.Caption = "aProductsDocumentations_OpenProductGroupFolder" + Me.aProductsDocumentations_OpenProductGroupFolder.ConfirmationMessage = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.Id = "aProductsDocumentations_OpenProductGroupFolder" + Me.aProductsDocumentations_OpenProductGroupFolder.ImageName = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.Shortcut = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.Tag = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectsCriteria = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations) + Me.aProductsDocumentations_OpenProductGroupFolder.TargetViewId = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.ToolTip = Nothing + Me.aProductsDocumentations_OpenProductGroupFolder.TypeOfView = Nothing + + End Sub + Friend WithEvents aProductsDocumentations_OpenProductGroupFolder As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.resx new file mode 100644 index 0000000..cf8567c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.vb new file mode 100644 index 0000000..d1599ce --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsDocumentations_VC.vb @@ -0,0 +1,36 @@ +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 ProductsDocumentations_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aProductsDocumentations_OpenProductGroupFolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_OpenProductGroupFolder.Execute + Try + Dim _DefaultFolder As String = TryCast(Application.Model.Options, IModelOptionsExtender).DefaultproductsFileFolder + Dim _Products As Products = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Products) + If _Products Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + If System.IO.Directory.Exists(_DefaultFolder + _Products.ProductGroups.ShortName) Then + Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName) + Else + System.IO.Directory.CreateDirectory(_DefaultFolder + _Products.ProductGroups.ShortName) + Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant.vb new file mode 100644 index 0000000..b053368 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class ProductsGant + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _G2antt As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property G2antt As String + Get + Return _G2antt + End Get + Set(value As String) + SetPropertyValue("G2antt", _G2antt, value) + End Set + End Property + + 'ReadOnly + _ + _ + _ + ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows) + Get + Return GetCollection(Of ProductsGantRows)("ProductsGantRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantCustomersReport.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantCustomersReport.vb new file mode 100644 index 0000000..a336f21 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantCustomersReport.vb @@ -0,0 +1,69 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ProductsGantCustomersReport + Inherits BaseObject + + Private _Customers As Customers 'Partner + Private _Products As Products 'Termk + Private _QTT As Double 'Jelentett mennyisg + Private _DateExecution As Date 'jelents idpillanata + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + 'Beep() + End Sub + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRows.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRows.vb new file mode 100644 index 0000000..c4745e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRows.vb @@ -0,0 +1,80 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductsGantRows + Inherits BaseObject + + Private _ProductsGant As ProductsGant + Private _Customers As Customers + Private _Products As Products + Private _CalculatedRotation As Double 'Kalkullt forgsi sebessg + Private _ManualRotation As Double 'Manulis forgsi sebessg + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProductsGant As ProductsGant + Get + Return _ProductsGant + End Get + Set(value As ProductsGant) + SetPropertyValue("ProductsGant", _ProductsGant, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property CalculatedRotation As Double + Get + Return _CalculatedRotation + End Get + Set(value As Double) + SetPropertyValue("CalculatedRotation", _CalculatedRotation, value) + End Set + End Property + Property ManualRotation As Double + Get + Return _ManualRotation + End Get + Set(value As Double) + SetPropertyValue("ManualRotation", _ManualRotation, value) + End Set + End Property + + 'ReadOnly + _ + _ + _ + ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar) + Get + Return GetCollection(Of ProductsGantRowsBar)("ProductsGantRowsBar") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRowsBar.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRowsBar.vb new file mode 100644 index 0000000..539df7c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGantRowsBar.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eBarType + eAccounted = 0 + eOrdered = 1 + eReported = 2 + eOrderArrive = 3 +End Enum + _ + _ + _ +Public Class ProductsGantRowsBar + Inherits BaseObject + Private _ProductsGantRows As ProductsGantRows + Private _FromDate As Date + Private _ToDate As Date + Private _BarType As eBarType + Private _Caption As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProductsGantRows As ProductsGantRows + Get + Return _ProductsGantRows + End Get + Set(value As ProductsGantRows) + SetPropertyValue("ProductsGantRows", _ProductsGantRows, value) + End Set + End Property + Property FromDate As Date + Get + Return _FromDate + End Get + Set(value As Date) + SetPropertyValue("FromDate", _FromDate, value) + End Set + End Property + Property ToDate As Date + Get + Return _ToDate + End Get + Set(value As Date) + SetPropertyValue("ToDate", _ToDate, value) + End Set + End Property + Property BarType As eBarType + Get + Return _BarType + End Get + Set(value As eBarType) + SetPropertyValue("BarType", _BarType, value) + End Set + End Property + Property Caption As String + Get + Return _Caption + End Get + Set(value As String) + SetPropertyValue("Caption", _Caption, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.Designer.vb new file mode 100644 index 0000000..1bdc5c3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class ProductsGant_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProductsGant_GerenrateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductsGant_UpdateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProductsGant_GerenrateProductsGantRows + ' + Me.aProductsGant_GerenrateProductsGantRows.Caption = "aProductsGant_GerenrateProductsGantRows" + Me.aProductsGant_GerenrateProductsGantRows.Category = "ObjectsCreation" + Me.aProductsGant_GerenrateProductsGantRows.ConfirmationMessage = "Biztos benne, hogy eldobja a Gant diagram jelenlegi tartalmt s jra felpti?" + Me.aProductsGant_GerenrateProductsGantRows.Id = "aProductsGant_GerenrateProductsGantRows" + Me.aProductsGant_GerenrateProductsGantRows.ImageName = Nothing + Me.aProductsGant_GerenrateProductsGantRows.Shortcut = Nothing + Me.aProductsGant_GerenrateProductsGantRows.Tag = Nothing + Me.aProductsGant_GerenrateProductsGantRows.TargetObjectsCriteria = Nothing + Me.aProductsGant_GerenrateProductsGantRows.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_GerenrateProductsGantRows.TargetViewId = Nothing + Me.aProductsGant_GerenrateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProductsGant_GerenrateProductsGantRows.ToolTip = Nothing + Me.aProductsGant_GerenrateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProductsGant_UpdateProductsGantRows + ' + Me.aProductsGant_UpdateProductsGantRows.Caption = "aProductsGant_UpdateProductsGantRows" + Me.aProductsGant_UpdateProductsGantRows.Category = "ObjectsCreation" + Me.aProductsGant_UpdateProductsGantRows.ConfirmationMessage = Nothing + Me.aProductsGant_UpdateProductsGantRows.Id = "aProductsGant_UpdateProductsGantRows" + Me.aProductsGant_UpdateProductsGantRows.ImageName = Nothing + Me.aProductsGant_UpdateProductsGantRows.Shortcut = Nothing + Me.aProductsGant_UpdateProductsGantRows.Tag = Nothing + Me.aProductsGant_UpdateProductsGantRows.TargetObjectsCriteria = Nothing + Me.aProductsGant_UpdateProductsGantRows.TargetObjectType = GetType(SISBusiness.[Module].ProductsGant) + Me.aProductsGant_UpdateProductsGantRows.TargetViewId = Nothing + Me.aProductsGant_UpdateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProductsGant_UpdateProductsGantRows.ToolTip = Nothing + Me.aProductsGant_UpdateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aProductsGant_GerenrateProductsGantRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductsGant_UpdateProductsGantRows As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.resx new file mode 100644 index 0000000..aa3b597 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 310, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb new file mode 100644 index 0000000..7da806c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGant_VC.vb @@ -0,0 +1,335 @@ +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 System.Linq +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class ProductsGant_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "ProductsGant_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ProductsGant_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + + Private Sub aProductsGant_GerenrateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_GerenrateProductsGantRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + + Dim _ProductsGantRows_DELCollection As New XPCollection(Of ProductsGantRows)(_uow, CriteriaOperator.Parse("ProductsGant.Oid=?", _ProductsGant.Oid)) + If _ProductsGantRows_DELCollection.Count > 0 Then + + Dim _ProductsGantRowsBar_DELCollection As New XPCollection(Of ProductsGantRowsBar)(_uow, CriteriaOperator.Parse("ProductsGantRows.ProductsGant.Oid=?", _ProductsGant.Oid)) + _uow.Delete(_ProductsGantRows_DELCollection) + _uow.Delete(_ProductsGantRowsBar_DELCollection) + + _uow.CommitChanges() + End If + + + + Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session) + Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ + Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And + _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And + _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And + String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And + _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And + _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And + _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid + Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _ + _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _ + Select New With {Key .Customers = Customers, _ + Key .Products = Products} + + ' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013# + + Try + RaiseEvent InitWork(1, 1, IRXPQ.Count) + For Each item In IRXPQ + RaiseEvent DoWork() + Dim _ProductsGantRows As New ProductsGantRows(_ocur.Session) + With _ProductsGantRows + .ProductsGant = _ProductsGant + .Customers = item.Customers + .Products = item.Products + .CalculatedRotation = 0 + .ManualRotation = 0 + End With + + 'Szmlzott mennyisgekhez ProductsGantRowsBar + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _ + "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products)) + + If _InvoiceRows_Collection.Count > 0 Then + _InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + + Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_OrderArrive + .ProductsGantRows = _ProductsGantRows + .FromDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0) + .ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59) + .BarType = eBarType.eAccounted + .Caption = _InvoiceRows.QTT + End With + Next + End If + + + 'Adott pillanatban leadott rendels rkezse - dinamikos cucc, frisstsnl ezeket update! + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products)) + + If _CustomersOrderPriority_Collection.Count > 0 Then + _CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_OrderArrive + .ProductsGantRows = _ProductsGantRows + .FromDate = GetSQLTime(_ocur.Session) + If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then + .ToDate = .FromDate.AddDays(7) + Else + .ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7) + End If + .BarType = eBarType.eOrderArrive + End With + End If + + 'Jelentett kszlet + Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products)) + + If _ProductsGantCustomersReport_Collection.Count > 0 Then + For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection + Dim _ProductsGantRowsBar_Reported As New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_Reported + .ProductsGantRows = _ProductsGantRows + .FromDate = _ProductsGantCustomersReport.DateExecution + If .ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then + .ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + .ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) + Else + .ToDate = .FromDate.AddDays(_ProductsGantCustomersReport.QTT) + End If + .Caption = _ProductsGantCustomersReport.QTT.ToString + .BarType = eBarType.eReported + End With + Next + End If + + + 'Rendelsek + Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers)) + + If _OrderInRowsCollection.Count > 0 Then + For Each _OrderInRows As OrderInRows In _OrderInRowsCollection + Dim _ProductsGantRowsBar As New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar + .ProductsGantRows = _ProductsGantRows + .FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0) + .ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59) + .BarType = eBarType.eOrdered + .Caption = String.Format("{0}", _OrderInRows.QTT) + End With + Next + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub + + Private Sub aProductsGant_UpdateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_UpdateProductsGantRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant) + + Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session) + Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ + Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And + _InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And + _InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And + String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And + _InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And + _InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And + _InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid + Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _ + _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _ + Select New With {Key .Customers = Customers, _ + Key .Products = Products} + + ' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013# + Try + RaiseEvent InitWork(1, 1, IRXPQ.Count) + For Each item In IRXPQ + RaiseEvent DoWork() + Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers=? AND Products=?", _ProductsGant, item.Customers, item.Products)) + + If _ProductsGantRows Is Nothing Then + _ProductsGantRows = New ProductsGantRows(_ocur.Session) + With _ProductsGantRows + .ProductsGant = _ProductsGant + .Customers = item.Customers + .Products = item.Products + .CalculatedRotation = 0 + .ManualRotation = 0 + End With + End If + + 'Szmlzott mennyisgekhez ProductsGantRowsBar + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _ + "InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products)) + If _InvoiceRows_Collection.Count > 0 Then + _InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection + Dim _FromDate As New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0) + Dim _ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59) + + Dim _ProductsGantRowsBar_InvoiceRows As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=0", _ + _ProductsGantRows, _FromDate, _ToDate)) + If _ProductsGantRowsBar_InvoiceRows Is Nothing Then + _ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_InvoiceRows + .ProductsGantRows = _ProductsGantRows + .FromDate = _FromDate + .ToDate = _ToDate + .BarType = eBarType.eAccounted + .Caption = _InvoiceRows.QTT + End With + End If + + Next + End If + + + 'Adott pillanatban leadott rendels rkezse - dinamikos cucc, frisstsnl ezeket update! + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products)) + + If _CustomersOrderPriority_Collection.Count > 0 Then + _CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Dim _ProductsGantRowsBar_OrderArrive As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND BarType=3", _ProductsGantRows)) + If _ProductsGantRowsBar_OrderArrive Is Nothing Then + _ProductsGantRowsBar_OrderArrive = New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_OrderArrive + .ProductsGantRows = _ProductsGantRows + .FromDate = GetSQLTime(_ocur.Session).Date + If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then + .ToDate = .FromDate.AddDays(7) + Else + .ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7) + End If + .BarType = eBarType.eOrderArrive + End With + End If + + End If + + 'Jelentett kszlet + Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products)) + + If _ProductsGantCustomersReport_Collection.Count > 0 Then + For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection + + Dim _FromDate As Date = _ProductsGantCustomersReport.DateExecution + _ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Dim _ToDate As Date + If _ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then + _ToDate = _FromDate.AddDays(_ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7) + Else + _ToDate = _FromDate.Date + End If + + + Dim _ProductsGantRowsBar_Reported As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=2", _ + _ProductsGantRows, _FromDate, _ToDate)) + If _ProductsGantRowsBar_Reported Is Nothing Then + _ProductsGantRowsBar_Reported = New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar_Reported + .ProductsGantRows = _ProductsGantRows + .FromDate = _FromDate + .ToDate = _ToDate + .Caption = _ProductsGantCustomersReport.QTT.ToString + .BarType = eBarType.eReported + End With + End If + + Next + End If + + + 'Rendelsek + Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers)) + + If _OrderInRowsCollection.Count > 0 Then + For Each _OrderInRows As OrderInRows In _OrderInRowsCollection + Dim _FromDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0) + Dim _ToDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59) + + Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=1", _ + _ProductsGantRows, _FromDate, _ToDate)) + + If _ProductsGantRowsBar Is Nothing Then + _ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session) + With _ProductsGantRowsBar + .ProductsGantRows = _ProductsGantRows + .FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0) + .ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59) + .BarType = eBarType.eOrdered + .Caption = String.Format("{0}", _OrderInRows.QTT) + End With + End If + + Next + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups.vb new file mode 100644 index 0000000..08a9f8c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups.vb @@ -0,0 +1,106 @@ +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ProductsGroups + Inherits HCategory + Private _ShortName As String + Private _Description As String + Private _ReportData As ReportData + Private _MasterBusinessDirectory As BusinessDirectory + Private _DocumentPath As String 'Windows Explorer path + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + _ + Public ReadOnly Property ProductsGroupsDocumentations() As XPCollection(Of ProductsGroupsDocumentations) + Get + Return GetCollection(Of ProductsGroupsDocumentations)("ProductsGroupsDocumentations") + End Get + End Property + _ + Public ReadOnly Property ProductsGroups_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + Return _BusinessDirectory_Collection + End Get + End Property + _ + Property DocumentPath As String + Get + Return _DocumentPath + End Get + Set(value As String) + SetPropertyValue("DocumentPath", _DocumentPath, value) + End Set + End Property + +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region + +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsDocumentations.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsDocumentations.vb new file mode 100644 index 0000000..658dfa5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsDocumentations.vb @@ -0,0 +1,152 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports System.IO +Imports DevExpress.ExpressApp.Utils + + _ + _ +Public Class ProductsGroupsDocumentations + Inherits FileAttachmentBase + Private _ProductsGroups As ProductsGroups + Private _Status As eProductsDocumentationStatus + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _ShortName As String + Private _Description As String + Private _FileCreated As Date + Private _FileModified As Date + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Status = eProductsDocumentationStatus.ePublic + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ProductsGroups() As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(ByVal value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + Property Status As eProductsDocumentationStatus + Get + Return _Status + End Get + Set(value As eProductsDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property FileCreated As Date + Get + Return _FileCreated + End Get + Set(value As Date) + SetPropertyValue("FileCreated", _FileCreated, value) + End Set + End Property + Property FileModified As Date + Get + Return _FileModified + End Get + Set(value As Date) + SetPropertyValue("FileModified", _FileModified, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '--------ReadOnly--------- + _ + ReadOnly Property ImageType As Image + Get + Select Case LCase(Path.GetExtension(File.FileName)) + Case ".xls", ".xlsx" + Return ImageLoader.Instance.GetImageInfo("XLS").Image + Case ".doc", ".docx" + Return ImageLoader.Instance.GetImageInfo("DOC").Image + Case ".pdf" + Return ImageLoader.Instance.GetImageInfo("PDF").Image + Case ".txt" + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Case Else + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Return Nothing + End Select + End Get + End Property +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsWEB.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsWEB.vb new file mode 100644 index 0000000..d4df0a1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroupsWEB.vb @@ -0,0 +1,59 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProductsGroupsWEB + Inherits BaseObject + Private _WEBMainGroupName As String 'Fcsoport a WEB megjelenshez + Private _WebGroupName As String 'Csoport a WEB megjelenshez + Private _WEBDescription As String 'WEB lers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property WEBMainGroupName As String + Get + Return _WEBMainGroupName + End Get + Set(value As String) + SetPropertyValue("WEBMainGroupName", _WEBMainGroupName, value) + End Set + End Property + Property WebGroupName As String + Get + Return _WebGroupName + End Get + Set(value As String) + SetPropertyValue("WebGroupName", _WebGroupName, value) + End Set + End Property + _ + Property WEBDescription As String + Get + Return _WEBDescription + End Get + Set(value As String) + SetPropertyValue("WEBDescription", _WEBDescription, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.Designer.vb new file mode 100644 index 0000000..712d9f2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class ProductsGroups_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProductsGroups_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProductsGroups_CreateBusinessDirectory + ' + Me.aProductsGroups_CreateBusinessDirectory.Caption = "aProductsGroups_CreateBusinessDirectory" + Me.aProductsGroups_CreateBusinessDirectory.Category = "ObjectsCreation" + Me.aProductsGroups_CreateBusinessDirectory.ConfirmationMessage = Nothing + Me.aProductsGroups_CreateBusinessDirectory.Id = "aProductsGroups_CreateBusinessDirectory" + Me.aProductsGroups_CreateBusinessDirectory.ImageName = Nothing + Me.aProductsGroups_CreateBusinessDirectory.Shortcut = Nothing + Me.aProductsGroups_CreateBusinessDirectory.Tag = Nothing + Me.aProductsGroups_CreateBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aProductsGroups_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].ProductsGroups) + Me.aProductsGroups_CreateBusinessDirectory.TargetViewId = "" + Me.aProductsGroups_CreateBusinessDirectory.ToolTip = Nothing + Me.aProductsGroups_CreateBusinessDirectory.TypeOfView = Nothing + + End Sub + Friend WithEvents aProductsGroups_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.resx new file mode 100644 index 0000000..fb991e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.vb new file mode 100644 index 0000000..1d60635 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsGroups_VC.vb @@ -0,0 +1,47 @@ +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 + +Public Class ProductsGroups_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aProductsGroups_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGroups_CreateBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProductsGroups As ProductsGroups = TryCast(View.SelectedObjects, ProductsGroups) + + If _ProductsGroups.MasterBusinessDirectory Is Nothing Then + Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termkek' AND IsNull(BusinessDirectory_Parent)=True")) + + If _ProductsBaseBusinessDirectory Is Nothing Then + _ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _ProductsBaseBusinessDirectory + .ShortName = "Termkek" + .BusinessDirectory_Parent = Nothing + End With + End If + + Dim _ProductsGroupsBusinessDirectory As New BusinessDirectory(_ocur.Session) + With _ProductsGroupsBusinessDirectory + .ShortName = _ProductsGroups.ShortName + .BusinessDirectory_Parent = _ProductsBaseBusinessDirectory + End With + _ProductsGroups.MasterBusinessDirectory = _ProductsGroupsBusinessDirectory + + _ocur.CommitChanges() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.Designer.vb new file mode 100644 index 0000000..2a2ccf9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.Designer.vb @@ -0,0 +1,189 @@ +Partial Class ProductsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aModifyProductsParameters = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPrintSelectedProductsBarcode = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewStorageMoveInfo_Products = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductsBarcodeGenerator = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProductsDocumentations_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProductsDocumentations_Remove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProducts_Open = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProducts_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProducts_GenerateNotUsedList = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aModifyProductsParameters + ' + Me.aModifyProductsParameters.AcceptButtonCaption = Nothing + Me.aModifyProductsParameters.CancelButtonCaption = Nothing + Me.aModifyProductsParameters.Caption = "Modify Products Parameters" + Me.aModifyProductsParameters.ConfirmationMessage = Nothing + Me.aModifyProductsParameters.Id = "aModifyProductsParameters" + Me.aModifyProductsParameters.ImageName = Nothing + Me.aModifyProductsParameters.Shortcut = Nothing + Me.aModifyProductsParameters.Tag = Nothing + Me.aModifyProductsParameters.TargetObjectsCriteria = Nothing + Me.aModifyProductsParameters.TargetViewId = "Products_ListView" + Me.aModifyProductsParameters.ToolTip = Nothing + Me.aModifyProductsParameters.TypeOfView = Nothing + ' + 'aPrintSelectedProductsBarcode + ' + Me.aPrintSelectedProductsBarcode.Caption = "aPrint Selected Products Barcode" + Me.aPrintSelectedProductsBarcode.Category = "View" + Me.aPrintSelectedProductsBarcode.ConfirmationMessage = "Do you want to execute?" + Me.aPrintSelectedProductsBarcode.Id = "aPrintSelectedProductsBarcode" + Me.aPrintSelectedProductsBarcode.ImageName = Nothing + Me.aPrintSelectedProductsBarcode.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPrintSelectedProductsBarcode.Shortcut = Nothing + Me.aPrintSelectedProductsBarcode.Tag = Nothing + Me.aPrintSelectedProductsBarcode.TargetObjectsCriteria = Nothing + Me.aPrintSelectedProductsBarcode.TargetObjectType = GetType(SISBusiness.[Module].Products) + Me.aPrintSelectedProductsBarcode.TargetViewId = "Products_ListView" + Me.aPrintSelectedProductsBarcode.ToolTip = Nothing + Me.aPrintSelectedProductsBarcode.TypeOfView = Nothing + ' + 'aViewStorageMoveInfo_Products + ' + Me.aViewStorageMoveInfo_Products.Caption = "aViewStorageMoveInfo_Products" + Me.aViewStorageMoveInfo_Products.ConfirmationMessage = Nothing + Me.aViewStorageMoveInfo_Products.Id = "aViewStorageMoveInfo_Products" + Me.aViewStorageMoveInfo_Products.ImageName = Nothing + Me.aViewStorageMoveInfo_Products.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewStorageMoveInfo_Products.Shortcut = Nothing + Me.aViewStorageMoveInfo_Products.Tag = Nothing + Me.aViewStorageMoveInfo_Products.TargetObjectsCriteria = Nothing + Me.aViewStorageMoveInfo_Products.TargetObjectType = GetType(SISBusiness.[Module].Products) + Me.aViewStorageMoveInfo_Products.TargetViewId = Nothing + Me.aViewStorageMoveInfo_Products.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewStorageMoveInfo_Products.ToolTip = Nothing + Me.aViewStorageMoveInfo_Products.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aProductsBarcodeGenerator + ' + Me.aProductsBarcodeGenerator.Caption = "aProductsBarcodeGenerator" + Me.aProductsBarcodeGenerator.Category = "" + Me.aProductsBarcodeGenerator.ConfirmationMessage = "Do you want to execute?" + Me.aProductsBarcodeGenerator.Id = "aProductsBarcodeGenerator" + Me.aProductsBarcodeGenerator.ImageName = Nothing + Me.aProductsBarcodeGenerator.Shortcut = Nothing + Me.aProductsBarcodeGenerator.Tag = Nothing + Me.aProductsBarcodeGenerator.TargetObjectsCriteria = Nothing + Me.aProductsBarcodeGenerator.TargetObjectType = GetType(SISBusiness.[Module].Products) + Me.aProductsBarcodeGenerator.TargetViewId = "Products_ListView" + Me.aProductsBarcodeGenerator.ToolTip = Nothing + Me.aProductsBarcodeGenerator.TypeOfView = Nothing + ' + 'aProductsDocumentations_ChangeGroup + ' + Me.aProductsDocumentations_ChangeGroup.AcceptButtonCaption = Nothing + Me.aProductsDocumentations_ChangeGroup.CancelButtonCaption = Nothing + Me.aProductsDocumentations_ChangeGroup.Caption = "aProductsDocumentations_ChangeGroup" + Me.aProductsDocumentations_ChangeGroup.ConfirmationMessage = Nothing + Me.aProductsDocumentations_ChangeGroup.Id = "aProductsDocumentations_ChangeGroup" + Me.aProductsDocumentations_ChangeGroup.ImageName = Nothing + Me.aProductsDocumentations_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aProductsDocumentations_ChangeGroup.Shortcut = Nothing + Me.aProductsDocumentations_ChangeGroup.Tag = Nothing + Me.aProductsDocumentations_ChangeGroup.TargetObjectsCriteria = Nothing + Me.aProductsDocumentations_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations) + Me.aProductsDocumentations_ChangeGroup.TargetViewId = Nothing + Me.aProductsDocumentations_ChangeGroup.ToolTip = Nothing + Me.aProductsDocumentations_ChangeGroup.TypeOfView = Nothing + ' + 'aProductsDocumentations_Remove + ' + Me.aProductsDocumentations_Remove.Caption = "aProductsDocumentations_Remove" + Me.aProductsDocumentations_Remove.Category = "Edit" + Me.aProductsDocumentations_Remove.ConfirmationMessage = "Biztosan trld a kijellt fjlokat?" + Me.aProductsDocumentations_Remove.Id = "aProductsDocumentations_Remove" + Me.aProductsDocumentations_Remove.ImageName = "Action_Delete" + Me.aProductsDocumentations_Remove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aProductsDocumentations_Remove.Shortcut = Nothing + Me.aProductsDocumentations_Remove.Tag = Nothing + Me.aProductsDocumentations_Remove.TargetObjectsCriteria = Nothing + Me.aProductsDocumentations_Remove.TargetObjectType = GetType(SISBusiness.[Module].ProductsDocumentations) + Me.aProductsDocumentations_Remove.TargetViewId = Nothing + Me.aProductsDocumentations_Remove.ToolTip = Nothing + Me.aProductsDocumentations_Remove.TypeOfView = Nothing + ' + 'aProducts_Open + ' + Me.aProducts_Open.Caption = "aProducts_Open" + Me.aProducts_Open.ConfirmationMessage = Nothing + Me.aProducts_Open.Id = "aProducts_Open" + Me.aProducts_Open.ImageName = Nothing + Me.aProducts_Open.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aProducts_Open.Shortcut = Nothing + Me.aProducts_Open.Tag = Nothing + Me.aProducts_Open.TargetObjectsCriteria = Nothing + Me.aProducts_Open.TargetViewId = "Products_ListView_CRM_Outlook" + Me.aProducts_Open.ToolTip = Nothing + Me.aProducts_Open.TypeOfView = Nothing + ' + 'aProducts_CreateBusinessDirectory + ' + Me.aProducts_CreateBusinessDirectory.Caption = "aProducts_CreateBusinessDirectory" + Me.aProducts_CreateBusinessDirectory.Category = "ObjectsCreation" + Me.aProducts_CreateBusinessDirectory.ConfirmationMessage = Nothing + Me.aProducts_CreateBusinessDirectory.Id = "aProducts_CreateBusinessDirectory" + Me.aProducts_CreateBusinessDirectory.ImageName = Nothing + Me.aProducts_CreateBusinessDirectory.Shortcut = Nothing + Me.aProducts_CreateBusinessDirectory.Tag = Nothing + Me.aProducts_CreateBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aProducts_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].Products) + Me.aProducts_CreateBusinessDirectory.TargetViewId = "" + Me.aProducts_CreateBusinessDirectory.ToolTip = Nothing + Me.aProducts_CreateBusinessDirectory.TypeOfView = Nothing + ' + 'aProducts_GenerateNotUsedList + ' + Me.aProducts_GenerateNotUsedList.Caption = "aProducts_GenerateNotUsedList" + Me.aProducts_GenerateNotUsedList.Category = "ObjectsCreation" + Me.aProducts_GenerateNotUsedList.ConfirmationMessage = Nothing + Me.aProducts_GenerateNotUsedList.Id = "aProducts_GenerateNotUsedList" + Me.aProducts_GenerateNotUsedList.ImageName = Nothing + Me.aProducts_GenerateNotUsedList.Shortcut = Nothing + Me.aProducts_GenerateNotUsedList.Tag = Nothing + Me.aProducts_GenerateNotUsedList.TargetObjectsCriteria = Nothing + Me.aProducts_GenerateNotUsedList.TargetViewId = "Products_ListView_EverUsed" + Me.aProducts_GenerateNotUsedList.ToolTip = Nothing + Me.aProducts_GenerateNotUsedList.TypeOfView = Nothing + + End Sub + Friend WithEvents aModifyProductsParameters As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPrintSelectedProductsBarcode As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewStorageMoveInfo_Products As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductsBarcodeGenerator As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProductsDocumentations_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProductsDocumentations_Remove As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProducts_Open As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProducts_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProducts_GenerateNotUsedList As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.resx b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.resx new file mode 100644 index 0000000..ddb7ac6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 212 + + + 17, 290 + + + 17, 329 + + + 17, 251 + + + 17, 134 + + + 17, 173 + + + 525, 275 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.vb b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.vb new file mode 100644 index 0000000..0ee3530 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Products/ProductsVC.vb @@ -0,0 +1,480 @@ +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.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject + +Public Class ProductsVC + Inherits DevExpress.ExpressApp.ViewController + Dim _Selection As ArrayList + Dim _NoSelect As Boolean = False + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + _Selection = New ArrayList + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "Products_ListView" Then + AddHandler View.SelectionChanged, AddressOf SelectionChanged + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing + End If + If View.Id = "Products_LookupListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "Products_Products_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "Products_ListView_EverUsed" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Products_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Products_ListView" Then + RemoveHandler View.SelectionChanged, AddressOf SelectionChanged + End If + If View.Id = "Products_LookupListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Products_Products_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub SelectionChanged(sender As Object, e As System.EventArgs) + + If _NoSelect = False Then + _Selection.Clear() + For Each _Products As Products In View.SelectedObjects + _Selection.Add(_Products) + Next + End If + End Sub + Private Sub aModifyProductsParameters_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyProductsParameters.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ModifyProductsParameters As ModifyProductsParameters = _onew.CreateObject(Of ModifyProductsParameters)() + + e.View = Application.CreateDetailView(_onew, _ModifyProductsParameters) + End Sub + Private Sub aModifyProductsParameters_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyProductsParameters.Execute + Dim _ModifyProductsParameters As ModifyProductsParameters = TryCast(e.PopupWindow.View.SelectedObjects(0), ModifyProductsParameters) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + RaiseEvent InitWork(0, 1, View.SelectedObjects.Count) + For Each _Products As Products In _Selection + RaiseEvent DoWork() + + If _ModifyProductsParameters.IsParameter_01 Then + _Products.Parameter_01 = _ModifyProductsParameters.Parameter_01 + End If + + If _ModifyProductsParameters.IsParameter_02 Then + _Products.Parameter_02 = _ModifyProductsParameters.Parameter_02 + End If + + If _ModifyProductsParameters.IsParameter_03 Then + _Products.Parameter_03 = _ModifyProductsParameters.Parameter_03 + End If + + If _ModifyProductsParameters.IsParameter_04 Then + _Products.Parameter_04 = _ModifyProductsParameters.Parameter_04 + End If + + If _ModifyProductsParameters.IsParameter_05 Then + _Products.Parameter_05 = _ModifyProductsParameters.Parameter_05 + End If + + If _ModifyProductsParameters.IsParameter_06 Then + _Products.Parameter_06 = _ModifyProductsParameters.Parameter_06 + End If + + If _ModifyProductsParameters.IsParameter_07 Then + _Products.Parameter_07 = _ModifyProductsParameters.Parameter_07 + End If + + If _ModifyProductsParameters.IsParameter_08 Then + _Products.Parameter_08 = _ModifyProductsParameters.Parameter_08 + End If + + If _ModifyProductsParameters.IsParameter_09 Then + _Products.Parameter_09 = _ModifyProductsParameters.Parameter_09 + End If + + If _ModifyProductsParameters.IsParameter_10 Then + _Products.Parameter_10 = _ModifyProductsParameters.Parameter_10 + End If + + If _ModifyProductsParameters.IsUnits Then + _Products.Units = _ocur.GetObjectByKey(Of Units)(_ModifyProductsParameters.Units.Oid) + End If + + If _ModifyProductsParameters.IsVAT Then + _Products.VAT = _ocur.GetObjectByKey(Of VAT)(_ModifyProductsParameters.VAT.Oid) + End If + + If _ModifyProductsParameters.IsCurrencyName Then + _Products.CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ModifyProductsParameters.CurrencyName.Oid) + End If + + If _ModifyProductsParameters.IsCustomsTariffs Then + _Products.CustomsTariff = _ocur.GetObjectByKey(Of CustomsTariffs)(_ModifyProductsParameters.CustomsTariffs.Oid) + End If + + If _ModifyProductsParameters.IsCountryFrom Then + _Products.CountryFrom = _ocur.GetObjectByKey(Of Country)(_ModifyProductsParameters.CountryFrom.Oid) + End If + If _ModifyProductsParameters.IsProductType Then + _Products.ProductType = _ModifyProductsParameters.ProductType + End If + + If _ModifyProductsParameters.ProductsGroups IsNot Nothing Then + Dim _ProductsGroups As ProductsGroups = _ocur.GetObjectByKey(Of ProductsGroups)(_ModifyProductsParameters.ProductsGroups.Oid) + If _ProductsGroups IsNot Nothing Then + _Products.ProductGroups = _ProductsGroups + End If + End If + + If _ModifyProductsParameters.IsCustomersOrder1 Then + Dim _RowIndex1Avilable As Boolean = False + For Each _CustomersOrderPriority In _Products.CustomersOrderPriority + If _CustomersOrderPriority.RowIndex = 1 Then + _RowIndex1Avilable = True + _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid) + Exit For + End If + Next + If _RowIndex1Avilable = False Then + Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)() + _CustomersOrderPriority_New.RowIndex = 1 + _CustomersOrderPriority_New.Products = _Products + _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid) + _CustomersOrderPriority_New.Save() + End If + End If + + If _ModifyProductsParameters.IsCustomersOrder2 Then + Dim _RowIndex2Avilable As Boolean = False + For Each _CustomersOrderPriority In _Products.CustomersOrderPriority + If _CustomersOrderPriority.RowIndex = 2 Then + _RowIndex2Avilable = True + _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid) + Exit For + End If + Next + If _RowIndex2Avilable = False Then + Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)() + _CustomersOrderPriority_New.RowIndex = 2 + _CustomersOrderPriority_New.Products = _Products + _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid) + _CustomersOrderPriority_New.Save() + End If + End If + + If _ModifyProductsParameters.IsCustomersOrder3 Then + Dim _RowIndex3Avilable As Boolean = False + For Each _CustomersOrderPriority In _Products.CustomersOrderPriority + If _CustomersOrderPriority.RowIndex = 3 Then + _RowIndex3Avilable = True + _CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid) + Exit For + End If + Next + If _RowIndex3Avilable = False Then + Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)() + _CustomersOrderPriority_New.RowIndex = 3 + _CustomersOrderPriority_New.Products = _Products + _CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid) + _CustomersOrderPriority_New.Save() + End If + End If + + If _ModifyProductsParameters.IsListPriceHUF = True Then + _Products.ListPriceOutHUF = _Products.ListPriceOutHUF + (_Products.ListPriceOutHUF * (_ModifyProductsParameters.ListPricePercent / 100)) + End If + If _ModifyProductsParameters.IsListPriceDEV = True Then + _Products.ListPriceOutDEV = _Products.ListPriceOutDEV + (_Products.ListPriceOutDEV * (_ModifyProductsParameters.ListPricePercent / 100)) + End If + + If _ModifyProductsParameters.IsListPriceRegenerate Then + Select Case _ModifyProductsParameters.PriceMode + Case ePriceMode.eDEVToHUF + _Products.ListPriceOutHUF = _Products.ListPriceOutDEV * _ModifyProductsParameters.CurrencyRate + Case (ePriceMode.eHUFToDEV) + _Products.ListPriceOutDEV = _Products.ListPriceOutHUF / _ModifyProductsParameters.CurrencyRate + End Select + End If + If _ModifyProductsParameters.IsProducer Then 'Gyártó + _Products.Producer = _ocur.GetObjectByKey(Of Customers)(_ModifyProductsParameters.Producer.Oid) + End If + + If _ModifyProductsParameters.IsDecimalIn Then _Products.DecimalIn = _ModifyProductsParameters.DecimalIn + If _ModifyProductsParameters.IsDecimalOut Then _Products.DecimalOut = _ModifyProductsParameters.DecimalOut + + _Products.Save() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + Private Sub aPrintSelectedProductsBarcode_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintSelectedProductsBarcode.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Termékek - etikett")) + If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!") + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Egy sort ki kell jelölni, hogy a raktár azonosítható legyen!") + + Dim _OidArray As New ArrayList + + For Each _Products As Products In View.SelectedObjects + _OidArray.Add(_Products.Oid) + Next + + Dim _InOperator As InOperator = New InOperator("Oid", _OidArray) + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _InOperator, True) + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aViewStorageMoveInfo_Products_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_Products.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Products As Products = TryCast(View.SelectedObjects(0), Products) + Dim _StorageMoveInfo As StorageMoveInfo + If _Products IsNot Nothing Then + _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)() + _StorageMoveInfo.Products = _onew.GetObject(_Products) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo) + End If + End Sub + Private Sub aProductsBarcodeGenerator_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProductsBarcodeGenerator.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Products_Collection As New XPCollection(Of Products)(_uow, CriteriaOperator.Parse("IsNull(Barcode)=False AND Barcode!=''")) + _Products_Collection.Sorting.Add(New SortProperty("Barcode", DB.SortingDirection.Descending)) + + RaiseEvent InitWork(0, 1, View.SelectedObjects.Count) + + Dim _StartIndex As Double + If _Products_Collection.Count = 0 Then + _StartIndex = 400000100001 + Else + _StartIndex = Convert.ToDouble(Mid(_Products_Collection(0).Barcode, 1, 12)) + 1 + End If + + For Each _Products As Products In View.SelectedObjects + RaiseEvent DoWork() + If _Products.Barcode Is Nothing Then + _Products.Barcode = EAN13Generator((_StartIndex).ToString) + _StartIndex += 1 + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + Catch ex As Exception + + End Try + End Sub + Function EAN13Generator(ByVal _Base As String) As String + If _Base.Length = 12 Then + Dim i As Long + Dim _CheckSum As Long = 0 + For i = 1 To Len(_Base) + If i Mod 2 = 0 Then + _CheckSum += Val(Mid(_Base, i, 1)) * 3 + Else + _CheckSum += Val(Mid(_Base, i, 1)) + End If + Next + _CheckSum = 10 - (_CheckSum Mod 10) + If _CheckSum = 10 Then _CheckSum = 0 + + Return _Base & LTrim(RTrim(CStr(_CheckSum))) + Else + Return "" + End If + End Function + + Private Sub aProductsDocumentations_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aProductsDocumentations_ChangeGroup.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = e.Action.Id + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + Private Sub aProductsDocumentations_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aProductsDocumentations_ChangeGroup.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + For Each _ProductsDocumentations As ProductsDocumentations In View.SelectedObjects + If _ChangeFileAttachment_PopUp.ChangeStatus = True Then + _ProductsDocumentations.Status = _ChangeFileAttachment_PopUp.Status + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then + _ProductsDocumentations.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then + _ProductsDocumentations.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + + Private Sub aProductsDocumentations_Remove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_Remove.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + Dim _Products As Products = TryCast(_PropertyCollectionSource.MasterObject, Products) + + For Each _ProductsDocumentations As ProductsDocumentations In e.SelectedObjects + If _Products IsNot Nothing Then + _Products.ProductsDocumentations.Remove(_ProductsDocumentations) + End If + Next + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProducts_Open_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_Open.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Products As Products = _onew.GetObject(TryCast(View.SelectedObjects(0), Products)) + If _Products Is Nothing Then Throw New Exception("*Nem lehet azonosítani a terméket!") + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Products_DetailView", True, _Products) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub Products_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Products As Products + 'For Each _Products In View.SelectedObjects + ' 'For Each _Object In _ocur.Session.CollectReferencingObjects(_Products) + ' ' e.Cancel = True + + ' ' '// Ide kell vaami model szöveg ... + ' 'Next + 'Next + End Sub + Private Sub aProducts_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_CreateBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + For Each _Products As Products In View.SelectedObjects + Dim _ProductsMasterBusinessDirectory As BusinessDirectory = Nothing + Dim _ProductGroupsMasterBusinessDirectory As BusinessDirectory = Nothing + + If _Products.MasterBusinessDirectory Is Nothing Then + + If _Products.ProductGroups IsNot Nothing Then + If _Products.ProductGroups.MasterBusinessDirectory IsNot Nothing Then + _ProductGroupsMasterBusinessDirectory = _Products.ProductGroups.MasterBusinessDirectory + Else + Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termékek' AND IsNull(BusinessDirectory_Parent)=True")) + + If _ProductsBaseBusinessDirectory Is Nothing Then + _ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _ProductsBaseBusinessDirectory + .ShortName = "Termékek" + .BusinessDirectory_Parent = Nothing + End With + End If + _ProductGroupsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _ProductGroupsMasterBusinessDirectory + .ShortName = _Products.ProductGroups.ShortName + .BusinessDirectory_Parent = _ProductsBaseBusinessDirectory + End With + _Products.ProductGroups.MasterBusinessDirectory = _ProductGroupsMasterBusinessDirectory + End If + _ProductsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _ProductsMasterBusinessDirectory + .ShortName = _Products.ShortName + .BusinessDirectory_Parent = _ProductGroupsMasterBusinessDirectory + End With + End If + + _Products.MasterBusinessDirectory = _ProductsMasterBusinessDirectory + + End If + Next + _ocur.CommitChanges() + End Sub + + Private Sub aProducts_GenerateNotUsedList_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_GenerateNotUsedList.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Products_Collection As New XPCollection(Of Products)(_ocur.Session) + + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products As Products In _Products_Collection + If Not _Products.IsStoragEverUsed Then + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products)) + If _StorageInRows_Collection.Count > 0 Then + _Products.IsStoragEverUsed = True + Else + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products)) + If _OrderInRows_Collection.Count > 0 Then + _Products.IsStoragEverUsed = True + Else + Dim _OrderOutRows_Collection As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products)) + If _OrderOutRows_Collection.Count > 0 Then + _Products.IsStoragEverUsed = True + Else + _Products.IsStoragEverUsed = False + End If + End If + End If + End If + RaiseEvent DoWork() + Next + + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinder.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinder.vb new file mode 100644 index 0000000..9923491 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinder.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + + _ + _ +Public Class ServiceFinder + Inherits BaseObject + Private _MasterKey As Guid + Private _Services As Services + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + + Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + Dim c As XPCollection(Of ServiceFinderInfo) + c = Me.ServiceFinderInfo + End If + End Set + End Property + _ + ReadOnly Property ServiceSelect As XPCollection(Of Services) + Get + Return New XPCollection(Of Services)(Session) + End Get + End Property + _ + ReadOnly Property ServiceSelected As XPCollection(Of ServiceSelected) + Get + Return New XPCollection(Of ServiceSelected)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey)) + End Get + End Property + _ + ReadOnly Property ServiceFinderInfo As XPCollection(Of ServiceFinderInfo) + Get + Return New XPCollection(Of ServiceFinderInfo)(Session, CriteriaOperator.Parse("1=2")) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderInfo.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderInfo.vb new file mode 100644 index 0000000..8b387b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderInfo.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ServiceFinderInfo + Inherits BaseObject + Private _InfoString As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property InfoString As String + Get + Return _InfoString + End Get + Set(value As String) + SetPropertyValue("InfoString", _InfoString, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.Designer.vb new file mode 100644 index 0000000..eb997ec --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ServiceFinderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb new file mode 100644 index 0000000..23d4d51 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceFinderVC.vb @@ -0,0 +1,56 @@ +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.ExpressApp.CloneObject +Public Class ServiceFinderVC + 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 = "ServiceFinder_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + + End If + + If View.Id = "ServiceFinder_ServiceSelect_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + + If View.Id = "ServiceFinder_ServiceSelected_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + + If View.Id = "ServiceFinder_ServiceFinderInfo_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceSelected.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceSelected.vb new file mode 100644 index 0000000..5ca7f40 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Popup/ServiceSelected.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ServiceSelected + Inherits BaseObject + Private _MasterKey As Guid 'PopUP master key + Private _Services As Services + Private _QTT As Double + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Services.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Services.vb new file mode 100644 index 0000000..b6d9817 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Services.vb @@ -0,0 +1,217 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +'-- Szolgáltatások + _ + _ + _ +Public Class Services 'Szolgáltatások törzse + Inherits BaseObject + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _ShortName As String 'Megnevezés + Private _Description As String 'Leírás + Private _CustomsTariffs As CustomsTariffs 'Vámtarifaszám, vagy szj szám vagy még ami lesz + Private _ListPriceHUF As Double = 0 'Listaár HUF + Private _ListPriceDEV As Double = 0 ' Listaár DEV + Private _CostPriceHUF As Double = 0 'Költségár HUF + Private _CostPriceDEV As Double = 0 ' Költségár DEV + Private _Units As Units 'Mennyiségi egység + Private _VAT As VAT 'ÁFA kód + Private _Recipe As Recipe 'A szolgáltatáshoz milyen recept tartozik + Private _ObjectCreated As Date 'Létrehozás dátuma + Private _UserCreated As User 'Létrehozó + Private _MasterBusinessDirectory As BusinessDirectory + Private _QTT_Will As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + Me.VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'")) + End Sub + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + _ + _ + Property ListPriceHUF As Double + Get + Return _ListPriceHUF + End Get + Set(value As Double) + SetPropertyValue("ListPriceHUF", _ListPriceHUF, value) + End Set + End Property + Property ListPriceDEV As Double + Get + Return _ListPriceDEV + End Get + Set(value As Double) + SetPropertyValue("ListPriceDEV", _ListPriceDEV, value) + End Set + End Property + Property CostPriceHUF As Double + Get + Return _CostPriceHUF + End Get + Set(value As Double) + SetPropertyValue("CostPriceHUF", _CostPriceHUF, value) + End Set + End Property + Property CostPriceDEV As Double + Get + Return _CostPriceDEV + End Get + Set(value As Double) + SetPropertyValue("CostPriceDEV", _CostPriceDEV, value) + End Set + End Property + _ + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + _ + Property QTT_Will As Double + Get + Return _QTT_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Will", _QTT_Will, value) + End Set + End Property + + ReadOnly Property Services_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + + + Return _BusinessDirectory_Collection + End Get + End Property + +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region +End Class + + + + + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.Designer.vb new file mode 100644 index 0000000..2aa1f14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class Services_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aServices_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aServices_CreateBusinessDirectory + ' + Me.aServices_CreateBusinessDirectory.Caption = "aServices_CreateBusinessDirectory" + Me.aServices_CreateBusinessDirectory.Category = "ObjectsCreation" + Me.aServices_CreateBusinessDirectory.ConfirmationMessage = Nothing + Me.aServices_CreateBusinessDirectory.Id = "aServices_CreateBusinessDirectory" + Me.aServices_CreateBusinessDirectory.ImageName = Nothing + Me.aServices_CreateBusinessDirectory.Shortcut = Nothing + Me.aServices_CreateBusinessDirectory.Tag = Nothing + Me.aServices_CreateBusinessDirectory.TargetObjectsCriteria = Nothing + Me.aServices_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].Services) + Me.aServices_CreateBusinessDirectory.TargetViewId = "Services_DetailView" + Me.aServices_CreateBusinessDirectory.ToolTip = Nothing + Me.aServices_CreateBusinessDirectory.TypeOfView = Nothing + + End Sub + Friend WithEvents aServices_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.resx new file mode 100644 index 0000000..fa7f70d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.vb new file mode 100644 index 0000000..c292710 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Services/Services_VC.vb @@ -0,0 +1,64 @@ +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.ExpressApp.CloneObject + +Public Class Services_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Services_Services_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Services_Services_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub aServices_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aServices_CreateBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Services As Services = TryCast(View.SelectedObjects(0), Services) + + If _Services.MasterBusinessDirectory Is Nothing Then + Dim _ServicesBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(DevExpress.Data.Filtering.CriteriaOperator.Parse("ShortName='Szolgltatsok' AND IsNull(BusinessDirectory_Parent)=True")) + + If _ServicesBaseBusinessDirectory Is Nothing Then + _ServicesBaseBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _ServicesBaseBusinessDirectory + .ShortName = "Szolgltatsok" + .BusinessDirectory_Parent = Nothing + End With + End If + + Dim _ServicesBusinessDirectory As New BusinessDirectory(_ocur.Session) + With _ServicesBusinessDirectory + .ShortName = _Services.ShortName + .BusinessDirectory_Parent = _ServicesBaseBusinessDirectory + End With + _Services.MasterBusinessDirectory = _ServicesBusinessDirectory + + _ocur.CommitChanges() + End If + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/ChangeGroup_StorageComputed_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/ChangeGroup_StorageComputed_PopUp.vb new file mode 100644 index 0000000..caf997b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/ChangeGroup_StorageComputed_PopUp.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ChangeGroup_StorageComputed_PopUp + Inherits BaseObject + + Private _Change_PricingMinimum As Boolean + Private _PricingMinimum As PricingMinimum + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Change_PricingMinimum = False + End Sub + + Property Change_PricingMinimum As Boolean + Get + Return _Change_PricingMinimum + End Get + Set(value As Boolean) + SetPropertyValue("Change_PricingMinimum", _Change_PricingMinimum, value) + End Set + End Property + Property PricingMinimum As PricingMinimum + Get + Return _PricingMinimum + End Get + Set(value As PricingMinimum) + SetPropertyValue("PricingMinimum", _PricingMinimum, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageInFromPDACollectionPopup.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageInFromPDACollectionPopup.vb new file mode 100644 index 0000000..b9b96df --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageInFromPDACollectionPopup.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StorageInFromPDACollectionPopup + Inherits BaseObject + + Private _Storage As Storage + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageMoveInfo.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageMoveInfo.vb new file mode 100644 index 0000000..ab4f902 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/Popup/StorageMoveInfo.vb @@ -0,0 +1,150 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Utils + + _ +Public Class StorageMoveInfo + Inherits BaseObject + + Private _Products As Products + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + + _ + ReadOnly Property ProductFinderInfo As XPCollection(Of ProductFinderInfo) + Get + Dim _ProductFinderInfo_Collection As New XPCollection(Of ProductFinderInfo)(Session, Session.ParseCriteria("1=2")) + Dim _ProductFinderInfo As ProductFinderInfo + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductGroups") + If _Products.ProductGroups IsNot Nothing Then + _ProductFinderInfo.InfoString = _Products.ProductGroups.ShortName + Else + _ProductFinderInfo.InfoString = "Nincs belltva!" + End If + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Description") + _ProductFinderInfo.InfoString = _Products.Description + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductNumber") + _ProductFinderInfo.InfoString = _Products.ProductNumber + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ShortName") + _ProductFinderInfo.InfoString = _Products.ShortName + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "PacketUnitIn") + _ProductFinderInfo.InfoString = _Products.PacketUnitIn.ToString + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ProductStrategyCode") + _ProductFinderInfo.InfoString = _Products.ProductStrategyCode + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "Units") + If _Products.Units IsNot Nothing Then + _ProductFinderInfo.InfoString = _Products.Units.ShortName + Else + _ProductFinderInfo.InfoString = "Nincs belltva!" + End If + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "CustomsTariff") + If _Products.CustomsTariff IsNot Nothing Then + _ProductFinderInfo.InfoString = _Products.CustomsTariff.CustomsTariffNumber + Else + _ProductFinderInfo.InfoString = "Nincs belltva!" + End If + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "GrossWeight") + _ProductFinderInfo.InfoString = _Products.GrossWeight + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "ListPriceOutHUF") + _ProductFinderInfo.InfoString = _Products.ListPriceOutHUF.ToString + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = CaptionHelper.GetMemberCaption(GetType(Products), "VAT") + If _Products.VAT IsNot Nothing Then + _ProductFinderInfo.InfoString = _Products.VAT.ShortName + Else + _ProductFinderInfo.InfoString = "Nincs belltva!" + End If + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + Dim _PricingActionRows As PricingActionRows = Session.FindObject(Of PricingActionRows) _ + (Session.ParseCriteria("Products=? and PricingActionHeader.IsActive=1 and PricingActionHeader.DateFrom<=Now() and PricingActionHeader.DateTo>=Now()", _Products)) + + If _PricingActionRows IsNot Nothing Then + + _ProductFinderInfo = New ProductFinderInfo(Session) + _ProductFinderInfo.PropertyName = "Akci!" + _ProductFinderInfo.InfoString = Format(_PricingActionRows.ListPriceHUF, "#,##0") & Chr(13) & Chr(10) & _ + _PricingActionRows.PricingActionHeader.ShortName & Chr(13) & Chr(10) & _PricingActionRows.PricingActionHeader.DateFrom.ToShortDateString & _ + " - " & _PricingActionRows.PricingActionHeader.DateTo.ToShortDateString + _ProductFinderInfo_Collection.Add(_ProductFinderInfo) + + End If + + Return _ProductFinderInfo_Collection + End Get + End Property + _ + ReadOnly Property StorageOutCirculation As XPCollection(Of StorageOutCirculation) + Get + Return New XPCollection(Of StorageOutCirculation)(Session, Session.ParseCriteria("Products=?", Products)) + End Get + End Property + _ + ReadOnly Property StorageMoveEvents As XPCollection(Of StorageMoveEvents) + Get + Return New XPCollection(Of StorageMoveEvents)(Session, Session.ParseCriteria("StorageInRows.Products=?", Products)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeader.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeader.vb new file mode 100644 index 0000000..8395669 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeader.vb @@ -0,0 +1,135 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eStoragePDACollectionHeaderStatus + eOpen = 0 + eClosed = 1 + eReady = 2 +End Enum +Public Enum eStoragePDACollectionType + eIsInventory = 0 + eIsLocationIn = 1 + eIsLocationOut = 2 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ +Public Class StoragePDACollectionHeader + Inherits BaseObject + Private _DocumentNumber As String + Private _StoragePDACollectionHeaderStatus As eStoragePDACollectionHeaderStatus + Private _StoragePDACollectionType As eStoragePDACollectionType + Private _StoragePDAParameters As StoragePDAParameters + Private _ObjectCreated As Date + Private _UserCreated As User + Private _StorageInHeader As StorageInHeader + Private _StorageOutHeader As StorageOutHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + Me.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + Me.DocumentNumber = Me.StoragePDAParameters.NumberGenerator.GetNewNumber(Me.StoragePDAParameters.NumberGenerator) + End If + End Sub + + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property StoragePDACollectionHeaderStatus As eStoragePDACollectionHeaderStatus + Get + Return _StoragePDACollectionHeaderStatus + End Get + Set(value As eStoragePDACollectionHeaderStatus) + SetPropertyValue("StoragePDACollectionHeaderStatus", _StoragePDACollectionHeaderStatus, value) + End Set + End Property + Property StorageCollectionType As eStoragePDACollectionType + Get + Return _StoragePDACollectionType + End Get + Set(value As eStoragePDACollectionType) + SetPropertyValue("StoragePDACollectionType", _StoragePDACollectionType, value) + End Set + End Property + _ + Property StoragePDAParameters As StoragePDAParameters + Get + Return _StoragePDAParameters + End Get + Set(value As StoragePDAParameters) + SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property StorageInHeader As StorageInHeader + Get + Return _StorageInHeader + End Get + Set(value As StorageInHeader) + SetPropertyValue("StorageInHeader", _StorageInHeader, value) + End Set + End Property + Property StorageOutHeader As StorageOutHeader + Get + Return _StorageOutHeader + End Get + Set(value As StorageOutHeader) + SetPropertyValue("StorageOutHeader", _StorageOutHeader, value) + End Set + End Property + + '--------------------ReadOnly-------------------------- + _ + _ + Public ReadOnly Property StoragePDACollectionRows() As XPCollection(Of StoragePDACollectionRows) + Get + Return GetCollection(Of StoragePDACollectionRows)("StoragePDACollectionRows") + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.Designer.vb new file mode 100644 index 0000000..13759bb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.Designer.vb @@ -0,0 +1,104 @@ +Partial Class StoragePDACollectionHeaderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aInsertStoragePDARows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDeleteStoragePDARows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aLocatePDACollectionIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aLocatePDACollectionOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aInsertStoragePDARows + ' + Me.aInsertStoragePDARows.AcceptButtonCaption = Nothing + Me.aInsertStoragePDARows.CancelButtonCaption = Nothing + Me.aInsertStoragePDARows.Caption = "aInsertStoragePDARows" + Me.aInsertStoragePDARows.Category = "aInsertStoragePDARows" + Me.aInsertStoragePDARows.ConfirmationMessage = Nothing + Me.aInsertStoragePDARows.Id = "aInsertStoragePDARows" + Me.aInsertStoragePDARows.ImageName = Nothing + Me.aInsertStoragePDARows.Shortcut = Nothing + Me.aInsertStoragePDARows.Tag = Nothing + Me.aInsertStoragePDARows.TargetObjectsCriteria = Nothing + Me.aInsertStoragePDARows.TargetViewId = Nothing + Me.aInsertStoragePDARows.ToolTip = Nothing + Me.aInsertStoragePDARows.TypeOfView = Nothing + ' + 'aDeleteStoragePDARows + ' + Me.aDeleteStoragePDARows.Caption = "aDeleteStoragePDARows" + Me.aDeleteStoragePDARows.Category = "aDeleteStoragePDARows" + Me.aDeleteStoragePDARows.ConfirmationMessage = Nothing + Me.aDeleteStoragePDARows.Id = "aDeleteStoragePDARows" + Me.aDeleteStoragePDARows.ImageName = "table_delete" + Me.aDeleteStoragePDARows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDeleteStoragePDARows.Shortcut = Nothing + Me.aDeleteStoragePDARows.Tag = Nothing + Me.aDeleteStoragePDARows.TargetObjectsCriteria = Nothing + Me.aDeleteStoragePDARows.TargetViewId = "" + Me.aDeleteStoragePDARows.ToolTip = Nothing + Me.aDeleteStoragePDARows.TypeOfView = Nothing + ' + 'aLocatePDACollectionIn + ' + Me.aLocatePDACollectionIn.Caption = "aLocatePDACollectionIn" + Me.aLocatePDACollectionIn.Category = "ObjectsCreation" + Me.aLocatePDACollectionIn.ConfirmationMessage = Nothing + Me.aLocatePDACollectionIn.Id = "aLocatePDACollectionIn" + Me.aLocatePDACollectionIn.ImageName = "PDA" + Me.aLocatePDACollectionIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aLocatePDACollectionIn.Shortcut = Nothing + Me.aLocatePDACollectionIn.Tag = Nothing + Me.aLocatePDACollectionIn.TargetObjectsCriteria = "StorageCollectionType=1 AND StoragePDACollectionHeaderStatus=2" + Me.aLocatePDACollectionIn.TargetObjectType = GetType(SISBusiness.[Module].StoragePDACollectionHeader) + Me.aLocatePDACollectionIn.TargetViewId = "" + Me.aLocatePDACollectionIn.ToolTip = Nothing + Me.aLocatePDACollectionIn.TypeOfView = Nothing + ' + 'aLocatePDACollectionOut + ' + Me.aLocatePDACollectionOut.Caption = "aLocatePDACollectionOut" + Me.aLocatePDACollectionOut.Category = "ObjectsCreation" + Me.aLocatePDACollectionOut.ConfirmationMessage = Nothing + Me.aLocatePDACollectionOut.Id = "aLocatePDACollectionOut" + Me.aLocatePDACollectionOut.ImageName = "PDA" + Me.aLocatePDACollectionOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aLocatePDACollectionOut.Shortcut = Nothing + Me.aLocatePDACollectionOut.Tag = Nothing + Me.aLocatePDACollectionOut.TargetObjectsCriteria = "StorageCollectionType=2 AND StoragePDACollectionHeaderStatus=2" + Me.aLocatePDACollectionOut.TargetObjectType = GetType(SISBusiness.[Module].StoragePDACollectionHeader) + Me.aLocatePDACollectionOut.TargetViewId = "" + Me.aLocatePDACollectionOut.ToolTip = Nothing + Me.aLocatePDACollectionOut.TypeOfView = Nothing + + End Sub + Friend WithEvents aInsertStoragePDARows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDeleteStoragePDARows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aLocatePDACollectionIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aLocatePDACollectionOut As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.resx new file mode 100644 index 0000000..7f1a443 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 56 + + + 561, 128 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.vb new file mode 100644 index 0000000..d1674c2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionHeaderVC.vb @@ -0,0 +1,196 @@ +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.Persistent.Validation +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Editors + +Public Class StoragePDACollectionHeaderVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", False) + Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", False) + + If View.Id = "StoragePDACollectionHeader_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", False) + End If + + '--------------------------DetailViewZ---------------------------------------- + If View.Id = "StoragePDACollectionHeader_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", True) + Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", True) + End If + If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "StoragePDACollectionHeader_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "StoragePDACollectionHeader_StoragePDACollectionRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC)().aGetAuditTrail.Active.SetItemValue("", True) + End If + + '--------------------------DetailViewZ---------------------------------------- + If View.Id = "StoragePDACollectionHeader_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of StoragePDACollectionHeaderVC)().aInsertStoragePDARows.Active.SetItemValue("", False) + Frame.GetController(Of StoragePDACollectionHeaderVC)().aDeleteStoragePDARows.Active.SetItemValue("", False) + End If + If View.Id = "StorageInFromPDACollectionPopup_DetailView" Then + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub + + Private Sub aInsertStoragePDARows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertStoragePDARows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _onew.CreateObject(Of StoragePDACollectionRows)() + + e.View = Application.CreateDetailView(_onew, "StoragePDACollectionRows_DetailView", False, _StoragePDACollectionRows) + End Sub + Private Sub aInsertStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertStoragePDARows.Execute + + Try + Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader) + Dim _StoragePDACollectionRows_PopUp As StoragePDACollectionRows = TryCast(e.PopupWindow.View.SelectedObjects(0), StoragePDACollectionRows) + If _StoragePDACollectionRows_PopUp Is Nothing Then Throw New Exception("*") + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)() + _StoragePDACollectionRows.StoragePDACollectionHeader = _ocur.GetObject(_StoragePDACollectionHeader) + _StoragePDACollectionRows.Products = _ocur.GetObject(_StoragePDACollectionRows_PopUp.Products) + _StoragePDACollectionRows.QTT = _StoragePDACollectionRows_PopUp.QTT + _StoragePDACollectionRows.Description = _StoragePDACollectionRows_PopUp.Description + + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + Catch ext As Exception + MsgBox(ext.Message) + End Try + + End Sub + Private Sub aDeleteStoragePDARows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteStoragePDARows.Execute + Try + Dim _StoragePDACollectionRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StoragePDACollectionRows") + If _StoragePDACollectionRows_ListEditor Is Nothing Then Throw New Exception("*Váratlan hiba történt, művelet megszakadt!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StoragePDACollectionRows_DEL_Collection As New ArrayList + For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionRows_ListEditor.ListView.SelectedObjects + _StoragePDACollectionRows_DEL_Collection.Add(_StoragePDACollectionRows) + Next + _ocur.Delete(_StoragePDACollectionRows_DEL_Collection) + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + + Private Sub aLocatePDACollectionIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionIn.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader) + If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!") + If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed Then Throw New Exception("*A kollekció már fel lett dolgozva!") + If _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen Then Throw New Exception("*A kollekció még nem lett lokalizálva!") + Dim _StorageComputedLocations As StorageComputedLocations = Nothing + + For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows + If _StoragePDACollectionRows.StorageLocation IsNot Nothing Then + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _ + (CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products)) + + If _StorageComputed Is Nothing Then Throw New Exception("*Végzetes hiba történt, a folymat megszakadt!") + + If _StoragePDACollectionRows.Products.ProductType = eProductType.ePacketNumber Or _ + _StoragePDACollectionRows.Products.ProductType = eProductType.eSerialNumber Then + + _StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)() + + _StorageComputedLocations.StorageComputed = _StorageComputed + _StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT + _StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation + + _StorageComputedLocations.SerialNumber = _StoragePDACollectionRows.SerialNumber + _StorageComputedLocations.PacketNumber = _StoragePDACollectionRows.PacketNumber + + Else + _StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageComputed=? AND StorageLocation=?", _ + _StorageComputed, _StoragePDACollectionRows.StorageLocation)) + If _StorageComputedLocations Is Nothing Then + _StorageComputedLocations = _ocur.CreateObject(Of StorageComputedLocations)() + + _StorageComputedLocations.StorageComputed = _StorageComputed + _StorageComputedLocations.QTT = _StoragePDACollectionRows.QTT + _StorageComputedLocations.StorageLocation = _StoragePDACollectionRows.StorageLocation + Else + _StorageComputedLocations.QTT += _StoragePDACollectionRows.QTT + End If + + End If + + End If + Next + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aLocatePDACollectionOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLocatePDACollectionOut.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = TryCast(View.SelectedObjects(0), StoragePDACollectionHeader) + If _StoragePDACollectionHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen PDA kollekció sem!") + + 'For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StoragePDACollectionHeader.StoragePDACollectionRows + ' Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed) _ + ' (CriteriaOperator.Parse("Storage=? AND Products=?", _StoragePDACollectionRows.StorageLocation.Storage, _StoragePDACollectionRows.Products)) + ' Dim _StorageComputedLocations As StorageComputedLocations = _ocur.FindObject(Of StorageComputedLocations)(CriteriaOperator.Parse("StorageLocation=? AND StorageComputed=?", _StoragePDACollectionRows.StorageLocation, _StorageComputed)) + + ' ' _StorageComputedLocations.QTT -= _StoragePDACollectionRows.QTT + 'Next + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eClosed + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionRows.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionRows.vb new file mode 100644 index 0000000..5d90cc2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDACollectionRows.vb @@ -0,0 +1,121 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StoragePDACollectionRows + Inherits BaseObject + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + Private _Products As Products + Private _QTT As Double + Private _QTT_Processed As Double + Private _Description As String + Private _StorageLocation As StorageLocation + Private _DateModified As Date + Private _ConnectOid As Guid + Private _PacketNumber As String 'Ktegszm + Private _SerialNumber As String 'Sorozatszm + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.QTT = 0 + End Sub + _ + _ + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Processed As Double + Get + Return _QTT_Processed + End Get + Set(value As Double) + SetPropertyValue("QTT_Processed", _QTT_Processed, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property StorageLocation As StorageLocation + Get + Return _StorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("StorageLocation", _StorageLocation, value) + End Set + End Property + Property DateModified As Date + Get + Return _DateModified + End Get + Set(value As Date) + SetPropertyValue("DateModified", _DateModified, value) + End Set + End Property + _ + Property ConnectOid As Guid + Get + Return _ConnectOid + End Get + Set(value As Guid) + SetPropertyValue("ConnectOid", _ConnectOid, value) + End Set + End Property + Property PacketNumber As String + Get + Return _PacketNumber + End Get + Set(value As String) + SetPropertyValue("PacketNumber", _PacketNumber, value) + End Set + End Property + Property SerialNumber As String + Get + Return _SerialNumber + End Get + Set(value As String) + SetPropertyValue("SerialNumber", _SerialNumber, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDAParameters.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDAParameters.vb new file mode 100644 index 0000000..90dd9e2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Computed/StoragePDAParameters.vb @@ -0,0 +1,87 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class StoragePDAParameters + Inherits BaseObject + Private _UserCreated As User + Private _ObjectCreated As Date + Private _NumberGenerator As NumberGenerator + Private _CustomersFrom As CustomersFrom + Private _ReportLocationIn As ReportData ' -- Nyomtatvny betrols + Private _ReportLocationOut As ReportData ' -- Nyomtatvny kitrols + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ObjectCreated = GetSQLTime(Session) + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End Sub + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ReportLocationIn As ReportData + Get + Return _ReportLocationIn + End Get + Set(value As ReportData) + SetPropertyValue("ReportLocationIn", _ReportLocationIn, value) + End Set + End Property + Property ReportLocationOut As ReportData + Get + Return _ReportLocationOut + End Get + Set(value As ReportData) + SetPropertyValue("ReportLocationOut", _ReportLocationOut, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/GenerateStorageInPDALocationCollection.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/GenerateStorageInPDALocationCollection.vb new file mode 100644 index 0000000..443bb25 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/GenerateStorageInPDALocationCollection.vb @@ -0,0 +1,34 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class GenerateStorageInPDALocationCollection + Inherits BaseObject + + Private _StoragePDAParameters As StoragePDAParameters + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StoragePDAParameters As StoragePDAParameters + Get + Return _StoragePDAParameters + End Get + Set(value As StoragePDAParameters) + SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRowsFromPDACollectionPopup.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRowsFromPDACollectionPopup.vb new file mode 100644 index 0000000..3c90509 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRowsFromPDACollectionPopup.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StorageInRowsFromPDACollectionPopup + Inherits BaseObject + + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property + '____________________ReadOnly______________________________________ + _ + _ + Public ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows) + Get + Return New XPCollection(Of StoragePDACollectionRows)(Session, CriteriaOperator.Parse("StoragePDACollectionHeader.Oid=?", Me.StoragePDACollectionHeader.Oid)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRows_Split_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRows_Split_PopUp.vb new file mode 100644 index 0000000..e812d38 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInRows_Split_PopUp.vb @@ -0,0 +1,47 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class StorageInRows_Split_PopUp + Inherits BaseObject + + Private _QTT_Max As Double + Private _StorageInRows As StorageInRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property QTT_Max As Double + Get + Return _QTT_Max + End Get + Set(value As Double) + SetPropertyValue("QTT_Max", _QTT_Max, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsHeader.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsHeader.vb new file mode 100644 index 0000000..cc1effd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsHeader.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class StorageInfromDeliveryNoteInRowsHeader + Inherits BaseObject + Private _DeliveryNoteInHeader As DeliveryNoteInHeader + Private _Storage As Storage + Private _StorageMoveType As StorageMoveType + Private _DateCreation As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + _ + ReadOnly Property StorageInfromDeliveryNoteInRowsRows As XPCollection(Of StorageInfromDeliveryNoteInRowsRows) + Get + Return GetCollection(Of StorageInfromDeliveryNoteInRowsRows)("StorageInfromDeliveryNoteInRowsRows") + End Get + End Property + Property DeliveryNoteInHeader As DeliveryNoteInHeader + Get + Return _DeliveryNoteInHeader + End Get + Set(value As DeliveryNoteInHeader) + SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value) + End Set + End Property + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + Property DateCreation As Date + Get + Return _DateCreation + End Get + Set(value As Date) + SetPropertyValue("DateCreation", _DateCreation, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsRows.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsRows.vb new file mode 100644 index 0000000..4dc56f2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsRows.vb @@ -0,0 +1,76 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq + _ + _ +Public Class StorageInfromDeliveryNoteInRowsRows + Inherits BaseObject + Private _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader + Private _DeliveryNoteInRows As DeliveryNoteInRows + Private _QTT_Process As Double ' a betrolni kvnt mennyisg a sorrl + Private _QTT_Max As Double ' Maximum mennyit lehet mg betrolni a sorrl + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader + Get + Return _StorageInfromDeliveryNoteInRowsHeader + End Get + Set(value As StorageInfromDeliveryNoteInRowsHeader) + SetPropertyValue("StorageInfromDeliveryNoteInRowsHeader", _StorageInfromDeliveryNoteInRowsHeader, value) + End Set + End Property + Property DeliveryNoteInRows As DeliveryNoteInRows + Get + Return _DeliveryNoteInRows + End Get + Set(value As DeliveryNoteInRows) + SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value) + End Set + End Property + Property QTT_Process As Double + Get + Return _QTT_Process + End Get + Set(value As Double) + SetPropertyValue("QTT_Process", _QTT_Process, value) + End Set + End Property + ReadOnly Property QTT_StorageIn As Double + Get + Dim _StorageInRows As New XPQuery(Of StorageInRows)(Session) + Dim _QTT_Sum As Double = 0 + Dim query = From _SIR In _StorageInRows + Where _SIR.DeliveryNoteInRows Is DeliveryNoteInRows + Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _ + Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each item In query + _QTT_Sum = item.QTT_Sum + Next + + Return _QTT_Sum + End Get + End Property + _ + Property QTT_Max As Double + Get + Return _QTT_Max + End Get + Set(value As Double) + SetPropertyValue("QTT_Max", _QTT_Max, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.Designer.vb new file mode 100644 index 0000000..9b4d73b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SorageByDateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.vb new file mode 100644 index 0000000..f49d29a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/SorageByDateVC.vb @@ -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 SorageByDateVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageByDate.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageByDate.vb new file mode 100644 index 0000000..ac16e47 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageByDate.vb @@ -0,0 +1,59 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageByDate + Inherits BaseObject + Private _DateClose As Date + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInHeader.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInHeader.vb new file mode 100644 index 0000000..009263d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInHeader.vb @@ -0,0 +1,263 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageFrom", visibility:=Editors.ViewItemVisibility.Hide)> _ +6", AppearanceItemType.Action, "StorageMoveType.MoveType<>6", TargetItems:="aStorageInHeader_InsertInventoryTransfer,aStorageInHeader_InsertInventoryTransfer_FIFO,aCheckInventoryTransfer", visibility:=Editors.ViewItemVisibility.Hide)> _ +6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType=6", TargetItems:="row_Weight;row_Products;row_QTT_WILL;row_PacketNumber;row_SerialNumber", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ +Public Class StorageInHeader + Inherits BaseObject + Private _StorageMoveType As StorageMoveType + Private _DocumentNumber As String ' Bizonylatszám + Private _ConnectInfo As String + Private _Storage As Storage ' Raktár + Private _StorageFrom As Storage ' + Private _CreateDate As Date ' Kiállítás dátuma + Private _Active As Boolean = True ' Aktív + Private _ObjectCreated As Date ' Objektum mikor készült + Private _UserCreated As User 'Ki készítette + Private _IsStorno As Boolean = False 'Storno e? + Private _IsEditable As Boolean = True 'Végleges e? + Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ? + Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. betárolás + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + '-------------------------------------------------------- + Private _row_Products As Products ' Termék + Private _row_QTT_Will As Double ' Mennyiség (szándék) + Private _row_PacketNumber As String 'Kötegszám + Private _row_SerialNumber As String ' Sorozatszám + Private _row_Weight As Double + Private _row_WeightMode As eWeightMode + '-------------------------------------------------------- + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = _Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn) + If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CreateDate = GetSQLTime(Session) + End Sub + _ + _ + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + _ + _ + Public ReadOnly Property StorageInRows() As XPCollection(Of StorageInRows) + Get + Return GetCollection(Of StorageInRows)("StorageInRows") + End Get + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(ByVal value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + _ + Property StorageFrom As Storage + Get + Return _StorageFrom + End Get + Set(value As Storage) + SetPropertyValue("StorageFrom", _StorageFrom, value) + End Set + End Property + _ + Property CreateDate As Date + Get + Return _CreateDate + End Get + Set(ByVal value As Date) + SetPropertyValue("CreateDate", _CreateDate, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property IsFinalized As Boolean + Get + Return _IsFinalized + End Get + Set(value As Boolean) + SetPropertyValue("IsFinalized", _IsFinalized, value) + End Set + End Property + Property RecipeExecutionSimple As RecipeExecutionSimple + Get + Return _RecipeExecutionSimple + End Get + Set(value As RecipeExecutionSimple) + SetPropertyValue("RecipeExecutionSimple", _RecipeExecutionSimple, value) + End Set + End Property + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property + + _ + _ + _ + _ + Property row_Products As Products + Get + Return _row_Products + End Get + Set(ByVal value As Products) + SetPropertyValue("row_Products", _row_Products, value) + End Set + End Property + _ + _ + _ + Property row_QTT_WILL As Double + Get + Return _row_QTT_Will + End Get + Set(ByVal value As Double) + SetPropertyValue("row_QTT_Will", _row_QTT_Will, value) + End Set + End Property + _ + _ + Property row_PacketNumber As String + Get + Return _row_PacketNumber + End Get + Set(value As String) + SetPropertyValue(" row_PacketNumber", _row_PacketNumber, value) + End Set + End Property + _ + _ + Property row_SerialNumber As String + Get + Return _row_SerialNumber + End Get + Set(value As String) + SetPropertyValue("row_SerialNumber", _row_SerialNumber, value) + End Set + End Property + _ + _ + Property row_Weight As Double + Get + Return _row_Weight + End Get + Set(value As Double) + SetPropertyValue("row_Weight", _row_Weight, value) + End Set + End Property + + Property row_WeightMode As eWeightMode + Get + Return _row_WeightMode + End Get + Set(value As eWeightMode) + SetPropertyValue("row_WeightMode", _row_WeightMode, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRows.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRows.vb new file mode 100644 index 0000000..d8ec8da --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRows.vb @@ -0,0 +1,282 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class StorageInRows + Inherits BaseObject + + Private _RowIndex As Long ' -- Sor szám + Private _StorageInHeader As StorageInHeader ' -- Betárolási biz. fejléc + Private _Products As Products ' -- Termék + Private _QTT As Double '-- Betárolt mennyiség + Private _QTT_Will As Double = 0 '-- Betárolási szándék + Private _QTT_Out As Double = 0 '-- Kitárolt mennyiség ebből a betárolásból (FIFO !) + Private _QTT_Out_Will As Double = 0 '--Az össze kitárolási szándék, info az aktuális készletről + Private _QTT_Overstored As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból + Private _QTT_Overstor As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva ! + Private _QTT_Overstored_Will As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból véglegesítés nélkül + Private _QTT_Overstor_Will As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva véglegesítés nélkül! + Private _Active As Boolean = True ' -- Aktív e? + Private _OnStorno As Boolean ' -- Storno e? + Private _DeliveryNoteInRows As DeliveryNoteInRows ' Melyik bejövő szállítólevél soráról van (ha van) + Private _PacketNumber As String 'Kötegszám + Private _SerialNumber As String 'Sorozatszám + Private _Weight As Double + Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly + Private _Storage As Storage + Private _StorageInRowsFrom As StorageInRows 'Raktárközi átadásnál a küldő betárolási sor + Private _AveragePriceInHUF As Double 'Átlagár forintban + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If StorageInHeader IsNot Nothing Then + Storage = StorageInHeader.Storage + End If + 'Átlagár újraszámolása + ' Ha nincs DNIR akkor a fejléc dátumig az összes raktár+termék í8ahol van DNIR db/DNIR ár + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("Storage=? and Products=? AND IsNull(GCRecord)=True", Storage, Products)) + Dim _StorageInRows As StorageInRows + Dim _StorageComputed As StorageComputed = Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", Storage, Products)) + If _StorageComputed IsNot Nothing Then + _StorageComputed.QTTFree = 0 + _StorageComputed.QTTReserved = 0 + _StorageComputed.QTTReservedIn = 0 + _StorageComputed.QTTReservedOut = 0 + Else + _StorageComputed = New StorageComputed(Session) + _StorageComputed.Storage = StorageInHeader.Storage + _StorageComputed.Products = Products + End If + For Each _StorageInRows In _StorageInRows_Collection + _StorageComputed.QTTFree += (_StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will) + _StorageComputed.QTTReservedIn += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedOut += _StorageInRows.QTT_Out_Will + Next + _StorageComputed.Save() + Session.CommitTransaction() + End Sub + Public Sub AddRows(ByVal _p_StorageInHeader As StorageInHeader) + ' --- Sor hozzáadása Betárolási bizonylathoz manuálisan, vagy Rendelésből automatikusan + If _p_StorageInHeader IsNot Nothing And _p_StorageInHeader.row_Products IsNot Nothing And _p_StorageInHeader.Active = True Then + + Me.StorageInHeader = _p_StorageInHeader + Me.Products = _p_StorageInHeader.row_Products + Me.QTT_Will = _p_StorageInHeader.row_QTT_WILL + Me.PacketNumber = _p_StorageInHeader.row_PacketNumber + Me.SerialNumber = _p_StorageInHeader.row_SerialNumber + Me.Weight = _p_StorageInHeader.row_Weight + Me.WeightMode = _p_StorageInHeader.row_WeightMode + If _p_StorageInHeader.StorageInRows.Count = 0 Then + Me.RowIndex = 1 + Else + Me.RowIndex = _p_StorageInHeader.StorageInRows.Count + End If + End If + End Sub + Public Sub RemoveRows() + For Each _StorageInRows As StorageInRows In Me.StorageInHeader.StorageInRows + If _StorageInRows.RowIndex > Me.RowIndex Then + _StorageInRows.RowIndex -= 1 + End If + Next + End Sub + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property StorageInHeader() As StorageInHeader + Get + Return _StorageInHeader + End Get + Set(ByVal value As StorageInHeader) + SetPropertyValue("StorageInHeader", _StorageInHeader, value) + End Set + End Property + _ + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Will() As Double + Get + Return _QTT_Will + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Will", _QTT_Will, value) + End Set + End Property + Property QTT_Out As Double + Get + Return _QTT_Out + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT_Out", _QTT_Out, value) + End Set + End Property + Property QTT_Out_Will As Double + Get + Return _QTT_Out_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Out_Will", _QTT_Out_Will, value) + End Set + End Property + Property QTT_Overstored As Double + Get + Return _QTT_Overstored + End Get + Set(value As Double) + SetPropertyValue("QTT_Overstored", _QTT_Overstored, value) + End Set + End Property + Property QTT_Overstor As Double + Get + Return _QTT_Overstor + End Get + Set(value As Double) + SetPropertyValue("QTT_Overstor", _QTT_Overstor, value) + End Set + End Property + Property QTT_Overstored_Will As Double + Get + Return _QTT_Overstored_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Overstored_Will", _QTT_Overstored_Will, value) + End Set + End Property + Property QTT_Overstor_Will As Double + Get + Return _QTT_Overstor_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Overstor_Will", _QTT_Overstor_Will, value) + End Set + End Property + Property Active() As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + Property OnStorno As Boolean + Get + Return _OnStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("OnStorno", _OnStorno, value) + End Set + End Property + Property DeliveryNoteInRows As DeliveryNoteInRows + Get + Return _DeliveryNoteInRows + End Get + Set(value As DeliveryNoteInRows) + SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value) + End Set + End Property + Property PacketNumber As String + Get + Return _PacketNumber + End Get + Set(value As String) + SetPropertyValue("PacketNumber", _PacketNumber, value) + End Set + End Property + Property SerialNumber As String + Get + Return _SerialNumber + End Get + Set(value As String) + SetPropertyValue("SerialNumber", _SerialNumber, value) + End Set + End Property + Property Weight As Double + Get + Return _Weight + End Get + Set(value As Double) + SetPropertyValue("Weight", _Weight, value) + End Set + End Property + Property WeightMode As eWeightMode + Get + Return _WeightMode + End Get + Set(value As eWeightMode) + SetPropertyValue("WeightMode", _WeightMode, value) + End Set + End Property + + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property StorageInRowsFrom As StorageInRows + Get + Return _StorageInRowsFrom + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRowsFrom", _StorageInRowsFrom, value) + End Set + End Property + Property AveragePriceInHUF As Double + Get + Return _AveragePriceInHUF + End Get + Set(value As Double) + SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value) + End Set + End Property + '//XPCollections + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsByDate.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsByDate.vb new file mode 100644 index 0000000..89775cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsByDate.vb @@ -0,0 +1,74 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageInRowsByDate 'Adott dtumra visszamenleg kszlet info sorai, amit action generl + Inherits BaseObject + Private _StorageInRows As StorageInRows 'Bevteli sor + Private _StorageByDate As StorageByDate 'lekrdez fejlc + Private _QTT As Double 'Mennyisg + Private _AmountHUFFIFO As Double 'Mennyisghez tartoz rtk FIFO szerint + Private _AmountHUFAverage As Double 'tlagr szerinti rtk + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property StorageByDate As StorageByDate + Get + Return _StorageByDate + End Get + Set(value As StorageByDate) + SetPropertyValue("StorageByDate", _StorageByDate, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property AmountHUFFIFO As Double + Get + Return _AmountHUFFIFO + End Get + Set(value As Double) + SetPropertyValue("AmountHUFFIFO", _AmountHUFFIFO, value) + End Set + End Property + Property AmountHUFAverage As Double + Get + Return _AmountHUFAverage + End Get + Set(value As Double) + SetPropertyValue("AmountHUFAverage", _AmountHUFAverage, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsLocation.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsLocation.vb new file mode 100644 index 0000000..661d6c4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageInRowsLocation.vb @@ -0,0 +1,51 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageInRowsLocation + Inherits BaseObject + + Private _StorageInRows As StorageInRows + Private _StorageComputedLocations As StorageComputedLocations + Private _QTT As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property StorageComputedLocations As StorageComputedLocations + Get + Return _StorageComputedLocations + End Get + Set(value As StorageComputedLocations) + SetPropertyValue("StorageComputedLocations", _StorageComputedLocations, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.Designer.vb new file mode 100644 index 0000000..a1608ee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.Designer.vb @@ -0,0 +1,67 @@ +Partial Class StorageTransactionsInPrint + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aStorageTransactionsInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aStorageTransactionsInPrint + ' + Me.aStorageTransactionsInPrint.Caption = "aStorageTransactionsInPrint" + Me.aStorageTransactionsInPrint.Category = "View" + Me.aStorageTransactionsInPrint.ConfirmationMessage = Nothing + Me.aStorageTransactionsInPrint.Id = "aStorageTransactionsInPrint" + Me.aStorageTransactionsInPrint.ImageName = Nothing + Me.aStorageTransactionsInPrint.Shortcut = Nothing + Me.aStorageTransactionsInPrint.Tag = Nothing + Me.aStorageTransactionsInPrint.TargetObjectsCriteria = Nothing + Me.aStorageTransactionsInPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aStorageTransactionsInPrint.TargetViewId = Nothing + Me.aStorageTransactionsInPrint.ToolTip = Nothing + Me.aStorageTransactionsInPrint.TypeOfView = Nothing + ' + 'aStorageInPrint + ' + Me.aStorageInPrint.Caption = "aStorage In Print" + Me.aStorageInPrint.ConfirmationMessage = Nothing + Me.aStorageInPrint.Id = "aStorageInPrint" + Me.aStorageInPrint.ImageName = "Action_Printing_Print" + Me.aStorageInPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageInPrint.Shortcut = Nothing + Me.aStorageInPrint.Tag = Nothing + Me.aStorageInPrint.TargetObjectsCriteria = Nothing + Me.aStorageInPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aStorageInPrint.TargetViewId = Nothing + Me.aStorageInPrint.ToolTip = Nothing + Me.aStorageInPrint.TypeOfView = Nothing + + End Sub + Friend WithEvents aStorageTransactionsInPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageInPrint As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.resx new file mode 100644 index 0000000..85d9a1a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 221, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.vb new file mode 100644 index 0000000..11423ab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInPrint.vb @@ -0,0 +1,46 @@ +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.Persistent.BaseImpl + +Public Class StorageTransactionsInPrint + Inherits DevExpress.ExpressApp.ViewController + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Private Sub aStorageTransactionsInPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsInPrint.Execute + Dim _ReportData As ReportData + Dim _StorageInHeader As StorageInHeader + If e.SelectedObjects.Count > 0 Then + _StorageInHeader = TryCast(e.SelectedObjects.Item(0), StorageInHeader) + If _StorageInHeader Is Nothing Then + Else + _ReportData = _StorageInHeader.Storage.ReportIn + If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + End If + End If + End Sub + + Private Sub aStorageInPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageInPrint.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.Designer.vb new file mode 100644 index 0000000..aa55fb1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.Designer.vb @@ -0,0 +1,279 @@ +Partial Class StorageTransactionsInVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aDown_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aUp_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_SIH = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeAndNew_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToEdit_StorageInHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageInStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageInFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinalize_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageInPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageInHeader_InsertInventoryTransfer = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageInRows_Split = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageInHeader_InsertInventoryTransfer_FIFO = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCheckInventoryTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aDown_StorageIn + ' + Me.aDown_StorageIn.Caption = "Down" + Me.aDown_StorageIn.Category = "RecordsNavigation" + Me.aDown_StorageIn.ConfirmationMessage = Nothing + Me.aDown_StorageIn.Id = "aDown_StorageIn" + Me.aDown_StorageIn.ImageName = "arrow_down_green" + Me.aDown_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_StorageIn.Shortcut = Nothing + Me.aDown_StorageIn.Tag = Nothing + Me.aDown_StorageIn.TargetObjectsCriteria = Nothing + Me.aDown_StorageIn.TargetViewId = Nothing + Me.aDown_StorageIn.ToolTip = Nothing + Me.aDown_StorageIn.TypeOfView = Nothing + ' + 'aUp_StorageIn + ' + Me.aUp_StorageIn.Caption = "Up" + Me.aUp_StorageIn.Category = "RecordsNavigation" + Me.aUp_StorageIn.ConfirmationMessage = Nothing + Me.aUp_StorageIn.Id = "aUp_StorageIn" + Me.aUp_StorageIn.ImageName = "arrow_up_green" + Me.aUp_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_StorageIn.Shortcut = Nothing + Me.aUp_StorageIn.Tag = Nothing + Me.aUp_StorageIn.TargetObjectsCriteria = Nothing + Me.aUp_StorageIn.TargetViewId = Nothing + Me.aUp_StorageIn.ToolTip = Nothing + Me.aUp_StorageIn.TypeOfView = Nothing + ' + 'aToTableD_SIH + ' + Me.aToTableD_SIH.Caption = "Delete row" + Me.aToTableD_SIH.Category = "aToTableD_SIH" + Me.aToTableD_SIH.ConfirmationMessage = Nothing + Me.aToTableD_SIH.Id = "aToTableD_SIH" + Me.aToTableD_SIH.ImageName = Nothing + Me.aToTableD_SIH.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_SIH.Shortcut = Nothing + Me.aToTableD_SIH.Tag = Nothing + Me.aToTableD_SIH.TargetObjectsCriteria = Nothing + Me.aToTableD_SIH.TargetViewId = "" + Me.aToTableD_SIH.ToolTip = Nothing + Me.aToTableD_SIH.TypeOfView = Nothing + ' + 'aFinalizeAndNew_StorageIn + ' + Me.aFinalizeAndNew_StorageIn.Caption = "aStorage In Final And New" + Me.aFinalizeAndNew_StorageIn.Category = "RecordEdit" + Me.aFinalizeAndNew_StorageIn.ConfirmationMessage = Nothing + Me.aFinalizeAndNew_StorageIn.Id = "aFinalizeAndNew_StorageIn" + Me.aFinalizeAndNew_StorageIn.ImageName = Nothing + Me.aFinalizeAndNew_StorageIn.Shortcut = Nothing + Me.aFinalizeAndNew_StorageIn.Tag = Nothing + Me.aFinalizeAndNew_StorageIn.TargetObjectsCriteria = Nothing + Me.aFinalizeAndNew_StorageIn.TargetViewId = Nothing + Me.aFinalizeAndNew_StorageIn.ToolTip = Nothing + Me.aFinalizeAndNew_StorageIn.TypeOfView = Nothing + ' + 'aToTable_StorageIn + ' + Me.aToTable_StorageIn.Caption = "aSIHTo Table" + Me.aToTable_StorageIn.Category = "aToTable_StorageIn" + Me.aToTable_StorageIn.ConfirmationMessage = Nothing + Me.aToTable_StorageIn.Id = "aToTable_StorageIn" + Me.aToTable_StorageIn.ImageName = Nothing + Me.aToTable_StorageIn.Shortcut = Nothing + Me.aToTable_StorageIn.Tag = Nothing + Me.aToTable_StorageIn.TargetObjectsCriteria = Nothing + Me.aToTable_StorageIn.TargetViewId = Nothing + Me.aToTable_StorageIn.ToolTip = Nothing + Me.aToTable_StorageIn.TypeOfView = Nothing + ' + 'aBackToEdit_StorageInHeader + ' + Me.aBackToEdit_StorageInHeader.Caption = "aBackToEdit_StorageInHeader" + Me.aBackToEdit_StorageInHeader.Category = "Edit" + Me.aBackToEdit_StorageInHeader.ConfirmationMessage = Nothing + Me.aBackToEdit_StorageInHeader.Id = "aBackToEdit_StorageInHeader" + Me.aBackToEdit_StorageInHeader.ImageName = Nothing + Me.aBackToEdit_StorageInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEdit_StorageInHeader.Shortcut = Nothing + Me.aBackToEdit_StorageInHeader.Tag = Nothing + Me.aBackToEdit_StorageInHeader.TargetObjectsCriteria = Nothing + Me.aBackToEdit_StorageInHeader.TargetViewId = Nothing + Me.aBackToEdit_StorageInHeader.ToolTip = Nothing + Me.aBackToEdit_StorageInHeader.TypeOfView = Nothing + ' + 'aStorageInStorno + ' + Me.aStorageInStorno.Caption = "aStorage In Storno" + Me.aStorageInStorno.Category = "Edit" + Me.aStorageInStorno.ConfirmationMessage = Nothing + Me.aStorageInStorno.Id = "aStorageInStorno" + Me.aStorageInStorno.ImageName = "document_delete" + Me.aStorageInStorno.Shortcut = Nothing + Me.aStorageInStorno.Tag = Nothing + Me.aStorageInStorno.TargetObjectsCriteria = Nothing + Me.aStorageInStorno.TargetViewId = Nothing + Me.aStorageInStorno.ToolTip = Nothing + Me.aStorageInStorno.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aStorageInFromPdaCollection + ' + Me.aStorageInFromPdaCollection.AcceptButtonCaption = Nothing + Me.aStorageInFromPdaCollection.CancelButtonCaption = Nothing + Me.aStorageInFromPdaCollection.Caption = "StorageIn From Pda Collection" + Me.aStorageInFromPdaCollection.Category = "aStorageInFromPdaCollection" + Me.aStorageInFromPdaCollection.ConfirmationMessage = Nothing + Me.aStorageInFromPdaCollection.Id = "aStorageInFromPdaCollection" + Me.aStorageInFromPdaCollection.ImageName = Nothing + Me.aStorageInFromPdaCollection.Shortcut = Nothing + Me.aStorageInFromPdaCollection.Tag = Nothing + Me.aStorageInFromPdaCollection.TargetObjectsCriteria = Nothing + Me.aStorageInFromPdaCollection.TargetViewId = Nothing + Me.aStorageInFromPdaCollection.ToolTip = Nothing + Me.aStorageInFromPdaCollection.TypeOfView = Nothing + ' + 'aFinalize_StorageIn + ' + Me.aFinalize_StorageIn.Caption = "aStorage In Final" + Me.aFinalize_StorageIn.Category = "RecordEdit" + Me.aFinalize_StorageIn.ConfirmationMessage = Nothing + Me.aFinalize_StorageIn.Id = "aFinalize_StorageIn" + Me.aFinalize_StorageIn.ImageName = Nothing + Me.aFinalize_StorageIn.Shortcut = Nothing + Me.aFinalize_StorageIn.Tag = Nothing + Me.aFinalize_StorageIn.TargetObjectsCriteria = Nothing + Me.aFinalize_StorageIn.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aFinalize_StorageIn.TargetViewId = Nothing + Me.aFinalize_StorageIn.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalize_StorageIn.ToolTip = Nothing + Me.aFinalize_StorageIn.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateStorageInPDACollection + ' + Me.aGenerateStorageInPDACollection.AcceptButtonCaption = Nothing + Me.aGenerateStorageInPDACollection.CancelButtonCaption = Nothing + Me.aGenerateStorageInPDACollection.Caption = "aGenerateStorageInPDACollection" + Me.aGenerateStorageInPDACollection.Category = "Edit" + Me.aGenerateStorageInPDACollection.ConfirmationMessage = Nothing + Me.aGenerateStorageInPDACollection.Id = "aGenerateStorageInPDACollection" + Me.aGenerateStorageInPDACollection.ImageName = Nothing + Me.aGenerateStorageInPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateStorageInPDACollection.Shortcut = Nothing + Me.aGenerateStorageInPDACollection.Tag = Nothing + Me.aGenerateStorageInPDACollection.TargetObjectsCriteria = Nothing + Me.aGenerateStorageInPDACollection.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aGenerateStorageInPDACollection.TargetViewId = Nothing + Me.aGenerateStorageInPDACollection.ToolTip = Nothing + Me.aGenerateStorageInPDACollection.TypeOfView = Nothing + ' + 'aStorageInHeader_InsertInventoryTransfer + ' + Me.aStorageInHeader_InsertInventoryTransfer.AcceptButtonCaption = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.CancelButtonCaption = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.Caption = "aStorageInHeader_InsertInventoryTransfer" + Me.aStorageInHeader_InsertInventoryTransfer.Category = "aStorageInHeader_InsertInventoryTransfer" + Me.aStorageInHeader_InsertInventoryTransfer.ConfirmationMessage = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.Id = "aStorageInHeader_InsertInventoryTransfer" + Me.aStorageInHeader_InsertInventoryTransfer.ImageName = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.Shortcut = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.Tag = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectsCriteria = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aStorageInHeader_InsertInventoryTransfer.TargetViewId = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.ToolTip = Nothing + Me.aStorageInHeader_InsertInventoryTransfer.TypeOfView = Nothing + ' + 'aStorageInRows_Split + ' + Me.aStorageInRows_Split.AcceptButtonCaption = Nothing + Me.aStorageInRows_Split.CancelButtonCaption = Nothing + Me.aStorageInRows_Split.Caption = "aStorageInRows_Split" + Me.aStorageInRows_Split.ConfirmationMessage = Nothing + Me.aStorageInRows_Split.Id = "aStorageInRows_Split" + Me.aStorageInRows_Split.ImageName = Nothing + Me.aStorageInRows_Split.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageInRows_Split.Shortcut = Nothing + Me.aStorageInRows_Split.Tag = Nothing + Me.aStorageInRows_Split.TargetObjectsCriteria = "QTT_Out_Will=0 AND QTT_Will=0" + Me.aStorageInRows_Split.TargetObjectType = GetType(SISBusiness.[Module].StorageInRows) + Me.aStorageInRows_Split.TargetViewId = Nothing + Me.aStorageInRows_Split.ToolTip = Nothing + Me.aStorageInRows_Split.TypeOfView = Nothing + ' + 'aStorageInHeader_InsertInventoryTransfer_FIFO + ' + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.AcceptButtonCaption = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.CancelButtonCaption = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Caption = "aStorageInHeader_InsertInventoryTransfer_FIFO" + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Category = "aStorageInHeader_InsertInventoryTransfer_FIFO" + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ConfirmationMessage = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Id = "aStorageInHeader_InsertInventoryTransfer_FIFO" + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ImageName = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Shortcut = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Tag = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectsCriteria = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetViewId = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ToolTip = Nothing + Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TypeOfView = Nothing + ' + 'aCheckInventoryTransfer + ' + Me.aCheckInventoryTransfer.Caption = "aCheckInventoryTransfer" + Me.aCheckInventoryTransfer.Category = "aCheckInventoryTransfer" + Me.aCheckInventoryTransfer.ConfirmationMessage = Nothing + Me.aCheckInventoryTransfer.Id = "aCheckInventoryTransfer" + Me.aCheckInventoryTransfer.ImageName = Nothing + Me.aCheckInventoryTransfer.Shortcut = Nothing + Me.aCheckInventoryTransfer.Tag = Nothing + Me.aCheckInventoryTransfer.TargetObjectsCriteria = Nothing + Me.aCheckInventoryTransfer.TargetObjectType = GetType(SISBusiness.[Module].StorageInHeader) + Me.aCheckInventoryTransfer.TargetViewId = Nothing + Me.aCheckInventoryTransfer.ToolTip = Nothing + Me.aCheckInventoryTransfer.TypeOfView = Nothing + + End Sub + Friend WithEvents aStorageInStorno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalize_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_SIH As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeAndNew_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToEdit_StorageInHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageInFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateStorageInPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aStorageInHeader_InsertInventoryTransfer As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aStorageInRows_Split As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aStorageInHeader_InsertInventoryTransfer_FIFO As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCheckInventoryTransfer As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.resx new file mode 100644 index 0000000..7508dcf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 255, 17 + + + 683, 17 + + + 17, 56 + + + 150, 56 + + + 333, 56 + + + 453, 56 + + + 185, 95 + + + 332, 95 + + + 514, 134 + + + 17, 17 + + + 402, 17 + + + 17, 95 + + + 17, 134 + + + 328, 134 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb new file mode 100644 index 0000000..337cd20 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/In/StorageTransactionsInVC.vb @@ -0,0 +1,1174 @@ +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.Session +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils +Imports System.Linq +Imports System.Linq.Expressions + + +Public Class StorageTransactionsInVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of StorageTransactionsInVC)().aToTable_StorageIn.Active.SetItemValue("", False) ' -- Betárolási biz. sor hozzáadása + Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", False) ' -- Betárolási biz. véglegesítése és új nyitása + Frame.GetController(Of StorageTransactionsInVC)().aToTableD_SIH.Active.SetItemValue("", False) ' -- Sor törlése Betárolási biz ról + Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", False) ' -- Betárolási sor lejebb + Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", False) ' -- Betárolási sor feljebb + Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", False) + 'Frame.GetController(Of StorageTransactionsInVC)().aStorageInHeader_InsertInventoryTransfer.Active.SetItemValue("", False) + + If View.Id = "StorageOutRows_ListView_Overstored" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id Like "Storage*Header_*View" Then '--Anyagmozgást ne lehessen törölni--- + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id Like "Products*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + + '------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- + If View.Id = "StorageInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True) + + + + AddHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged + End If + If View.Id = "StorageInHeader_ListView_Editable" Then + Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aUp_StorageIn.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aDown_StorageIn.Active.SetItemValue("", True) + End If + If View.Id = "StorageInRows_ListView_Order" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ + '-- Ne lehessen stornózni, ha stornózott --------- + If View.Id = "StorageInHeader_DetailView" Then + + Dim _StorageInHeader As StorageInHeader + _StorageInHeader = View.SelectedObjects(0) + If _StorageInHeader Is Nothing Then + Else + If _StorageInHeader.IsStorno = True Or _StorageInHeader.IsEditable = True Then + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False) + End If + If _StorageInHeader.IsStorno = False And _StorageInHeader.IsEditable = False Then + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", True) + End If + If _StorageInHeader.IsEditable = False Then + Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) + Else + Frame.GetController(Of StorageTransactionsInVC)().aFinalizeAndNew_StorageIn.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aFinalize_StorageIn.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aToTable_StorageIn.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aToTableD_SIH.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aStorageInFromPdaCollection.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInPrint)().aStorageTransactionsInPrint.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "StorageInRows_Split_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf StorageInRows_Split_PopUp_DetailView_AcceptAction_Executing + End If + If View.Id = "StorageOutRowsInRows_ListView_Overstored" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf StorageOutRowsInRows_ListView_Overstored_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + '------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- + If View.Id = "StorageInHeader_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + + RemoveHandler View.SelectionChanged, AddressOf StorageInHeader_ListView_View_SelectionChanged + End If + If View.Id = "StorageInHeader_StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageInHeader_ListView_Editable" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + + If View.Id = "StorageInRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageInRowsFromPDACollectionPopup_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageInRowsFromPDACollectionPopup_StoragePDACollectionRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ + If View.Id = "StorageInRows_Split_PopUp_DetailView" Then + RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf StorageInRows_Split_PopUp_DetailView_AcceptAction_Executing + End If + End Sub + Private Sub aFinalize_StorageIn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_StorageIn.Execute + '-- Betárolás véglegesítése + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageInHeader As StorageInHeader = _onew.GetObjectByKey(Of StorageInHeader)(TryCast(e.SelectedObjects(0), StorageInHeader).Oid) + Try + If _StorageInHeader.Storage IsNot Nothing And _StorageInHeader.StorageInRows.Count = 0 Then _ + Throw New Exception("*Nem lehet véglegesíteni a betárolási bizonylatot!" & vbNewLine & vbNewLine & _ + "Kérem ellenőrizze, hogy be lett-e állítva raktár, illetve" & vbNewLine & _ + "definiált-e betárolási sorokat!") + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + If _StorageInHeader.IsFinalized Then + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + + + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _onew.GetObject(_StorageInRows.Products), _onew.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=?", _onew.GetObject(_StorageInRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + If _StorageMoveEvents_Collection.Count < 0 Then + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageMoveEvents_Collection(0).StorageInRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageMoveEvents.QTT_Free_Before = 0 + End If + + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = GetSQLTime(_ocur.Session) + + _StorageInRows.QTT_Will = 0 + End If + + + Next + _StorageInHeader.IsEditable = False + + _onew.CommitChanges() + + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + View.Close() + Else + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _onew.GetObject(_StorageInRows.Products), _onew.GetObject(_StorageInHeader.Storage))) + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + If _StorageInRows.QTT_Will > 0 Then + _StorageInRows.QTT = _StorageInRows.QTT_Will + _StorageComputed.QTTFree += _StorageInRows.QTT_Will + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate + + _StorageInRows.QTT_Will = 0 + End If + + '_StorageInRows.StorageInRowsFrom.QTT_Overstored_Will -= _StorageInRows.QTT + '_StorageInRows.StorageInRowsFrom.QTT_Overstored += _StorageInRows.QTT_Overstored + '_StorageInRows.StorageInRowsFrom.QTT_Overstor_Will = _StorageInRows.QTT + + Next + + _StorageInHeader.IsEditable = False + _StorageInHeader.IsFinalized = True + _onew.CommitChanges() + + If _StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageInHeader.StorageInRows) + End If + + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True) + If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True) + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + View.Close() + End If + + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aToTable_StorageIn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_StorageIn.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _uow_lock As New UnitOfWork(_ocur.Session.DataLayer) + Dim _user_lock As User = _uow_lock.GetObjectByKey(Of User)(SecuritySystem.CurrentUserId) + Dim _StorageInHeader As StorageInHeader = TryCast(e.SelectedObjects(0), StorageInHeader) + Try + + '// Objektum zárolása adott oid-re ! + If Not LockObject(_uow_lock, GetType(StorageComputed), _StorageInHeader.row_Products.Oid.ToString, _user_lock) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)) + + Exit Sub + Else + Dim _StorageInRows As StorageInRows = _ocur.CreateObject(Of StorageInRows)() + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _StorageInHeader.row_Products, _StorageInHeader.Storage)) + + If _StorageComputed Is Nothing Then + _StorageComputed = _ocur.CreateObject(Of StorageComputed)() + _StorageComputed.Storage = _StorageInHeader.Storage + _StorageComputed.Products = _StorageInHeader.row_Products + _StorageComputed.QTTReservedIn = _StorageInHeader.row_QTT_WILL + Else + _StorageComputed.QTTReservedIn += _StorageInHeader.row_QTT_WILL + End If + + _StorageInRows.AddRows(_StorageInHeader) + + _ocur.CommitChanges() + If _StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageInHeader.StorageInRows) + End If + + _StorageInHeader.row_Products = Nothing + _StorageInHeader.row_QTT_WILL = 0 + _StorageInHeader.row_Weight = 0 + _StorageInHeader.row_PacketNumber = "" + _StorageInHeader.row_SerialNumber = "" + + View.Refresh() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + If Not ReleaseAllLocking(_uow_lock, _user_lock) Then _ + Throw New Exception("*Váratlan hiba történt a(z) " + _StorageInHeader.row_Products.ShortName + " termék zárolását nem lehet feoldani! Kérem, forduljon a rendszergazdához!") + End Try + End Sub + Private Sub aFinalizeAndNew_StorageIn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeAndNew_StorageIn.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageInHeader As StorageInHeader = TryCast(e.SelectedObjects(0), StorageInHeader) + + If _StorageInHeader.Storage IsNot Nothing And _StorageInHeader.StorageInRows.Count > 0 Then Throw New Exception("*Nem lehet véglegesíteni a betárolási bizonylatot!" & vbNewLine & vbNewLine & _ + "Kérem ellenőrizze, hogy be lett-e állítva raktár, illetve" & vbNewLine & _ + "definiált-e betárolási sorokat!") + + Frame.GetController(Of StorageTransactionsInVC).aFinalize_StorageIn.DoExecute() + + Frame.GetController(Of NewObjectViewController)().NewObjectAction.DoExecute(Frame.GetController(Of NewObjectViewController)().NewObjectAction.Items(0)) + View.Close(False) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aStorageInStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageInStorno.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + ' Ellenőrzések + '__________________________________________________________________________ + Dim _StorageInHeader As StorageInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageInHeader)) + If _StorageInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + If _StorageInHeader.IsEditable = True Or + _StorageInHeader.IsStorno = True Then Throw New Exception(String.Format("A {0} számú betárolási bizonylatot nem lehet stornírozni, mert", _StorageInHeader.DocumentNumber) + _ + vbNewLine + "még nem lett véglegesítve, vagy már stornózásra kerűlt!" + vbNewLine + "Kérem, ellenőrizze!") + + Dim _StorageInRowsError_Collection As New ArrayList + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + If _StorageInRows.QTT_Out > 0 Then _ + _StorageInRowsError_Collection.Add(_StorageInRows) + Next + + If _StorageInRowsError_Collection.Count > 0 Then + Dim _ErrorMessage As String = "Probléma merült fel a következő betárolási sorokkal:" + vbNewLine + For Each _StorageInRows As StorageInRows In _StorageInRowsError_Collection + _ErrorMessage += _StorageInRows.RowIndex + " " + _StorageInRows.Products.ShortName _ + + " " + _StorageInRows.QTT + vbNewLine + Next + _ErrorMessage += "Valószínűleg történt már kitárolás a betárolási sorról." + _ErrorMessage += "Kérem, ellenőrizze!" + + Throw New Exception(_ErrorMessage) + End If + ' StorageComputed zárolás + '__________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + ' Betárolás stornózás + '__________________________________________________________________________ + Dim _StorageInHeaderNew As New StorageInHeader(_onew.Session) + With _StorageInHeaderNew + .Storage = _StorageInHeader.Storage + .StorageMoveType = _StorageInHeader.StorageMoveType + .Active = False + .IsStorno = True + .IsEditable = False + .IsFinalized = False + .CreateDate = GetSQLTime(_onew.Session) + End With + + _StorageInHeader.IsStorno = True + _StorageInHeader.Active = False + _StorageInHeader.IsEditable = False + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageInRowsNew As New StorageInRows(_onew.Session) + With _StorageInRowsNew + .StorageInHeader = _StorageInHeaderNew + .RowIndex = _StorageInHeaderNew.StorageInRows.Count + .Products = _StorageInRows.Products + .QTT = _StorageInRows.QTT * (-1) + .QTT_Will = 0 + .QTT_Out = 0 + .QTT_Out_Will = 0 + .Active = False + .OnStorno = True + .PacketNumber = _StorageInRows.PacketNumber + .SerialNumber = _StorageInRows.SerialNumber + .Storage = _StorageInHeaderNew.Storage + .Weight = _StorageInRows.Weight + If _StorageInRows.DeliveryNoteInRows IsNot Nothing Then + .DeliveryNoteInRows = _StorageInRows.DeliveryNoteInRows + End If + End With + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _StorageInHeader.Storage, _StorageInRows.Products)) + + _StorageComputed.QTTFree -= _StorageInRows.QTT + + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=?", _StorageInRows), _ + New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + With _StorageMoveEvents + .StorageInRows = _StorageInRows + .QTT = (-1) * _StorageInRows.QTT + .QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + .QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + .MoveEventsType = eMoveEventsType.StorageInStorno + .ObjectCreated = GetSQLTime(_onew.Session) + End With + Next + End If + + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aToTableD_SIH_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_SIH.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + Dim _uow_lock As New UnitOfWork(_ocur.Session.DataLayer) + Dim _User As User = _uow_lock.GetObjectByKey(Of User)(SecuritySystem.CurrentUserId) + Dim _StorageInHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StorageInRows") + Try + + Dim _StorageInRows As StorageInRows + Dim _StorageInRows_Collection As New ArrayList + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + For Each _StorageInRows In _StorageInHeader_ListEditor.ListView.SelectedObjects + _StorageInRows.RemoveRows() + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _ + _StorageInHeader.Storage, _StorageInRows.Products)) + + If _StorageComputed Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + 'If _StorageComputed.QTTFree = 0 And _ + ' _StorageComputed.QTTReserved = 0 And _ + ' _StorageComputed.QTTReservedIn = 0 And _ + ' _StorageComputed.QTTReservedOut = 0 Then + ' _StorageComputed.Delete() + 'End If + If _StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + _StorageInRows.StorageInRowsFrom.QTT_Overstored -= _StorageInRows.QTT_Will + _StorageInRows.StorageInRowsFrom = Nothing + End If + _StorageInRows_Collection.Add(_StorageInRows) + Next + + _ocur.Delete(_StorageInRows_Collection) + _ocur.CommitChanges() + If _StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageInHeader.StorageInRows) + End If + View.Refresh() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aUp_StorageIn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_StorageIn.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInRows).StorageInHeader + Dim _StorageInRowsMinus As StorageInRows = Nothing + Dim _StorageInRowsSelected As StorageInRows = TryCast(View.SelectedObjects(0), StorageInRows) + If _StorageInRowsSelected Is Nothing Then Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + + If _StorageInRowsSelected.RowIndex > 0 Then + For Each _StorageInrows As StorageInRows In _StorageInHeader.StorageInRows + If _StorageInrows.RowIndex = _StorageInRowsSelected.RowIndex - 1 Then + _StorageInRowsMinus = _StorageInrows + Exit For + End If + Next + + If _StorageInRowsMinus IsNot Nothing Then + _StorageInRowsSelected.RowIndex -= 1 + _StorageInRowsMinus.RowIndex += 1 + End If + End If + _ocur.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDown_StorageIn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_StorageIn.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInRows).StorageInHeader + Dim _StorageInRowsPlus As StorageInRows = Nothing + Dim _StorageInRowsSelected As StorageInRows = TryCast(View.SelectedObjects(0), StorageInRows) ' Kiveszi a kijelölt sorok közül az elsőt + If _StorageInRowsSelected Is Nothing Then Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + + If _StorageInRowsSelected.RowIndex < _StorageInHeader.StorageInRows.Count - 1 Then + For Each _StorageInrows As StorageInRows In _StorageInHeader.StorageInRows + If _StorageInrows.RowIndex = _StorageInRowsSelected.RowIndex + 1 Then + _StorageInRowsPlus = _StorageInrows + Exit For + End If + Next + + If _StorageInRowsPlus IsNot Nothing Then + _StorageInRowsSelected.RowIndex += 1 + _StorageInRowsPlus.RowIndex -= 1 + End If + End If + _ocur.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + 'Private Sub sis_SIFinal(ByVal p_StorageInHeader As StorageInHeader, ByVal _p_ocur As Xpo.XPObjectSpace) + ' For Each _StorageInRows As StorageInRows In p_StorageInHeader.StorageInRows + ' Dim _StorageComputed As StorageComputed = _p_ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, p_StorageInHeader.Storage)) + ' Dim _StorageMoveEvents As StorageMoveEvents = _p_ocur.CreateObject(Of StorageMoveEvents)() + ' If _StorageInRows.QTT_Will > 0 Then + ' _StorageInRows.QTT = _StorageInRows.QTT_Will + ' _StorageComputed.QTTFree += _StorageInRows.QTT_Will + ' _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will + + ' _StorageMoveEvents.StorageInRows = _StorageInRows + ' _StorageMoveEvents.QTT = _StorageInRows.QTT_Will + ' _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree + ' _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT + ' _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal + ' _StorageMoveEvents.ExecutionDate = GetSQLTime(_p_ocur.Session) + + ' _StorageInRows.QTT_Will = 0 + ' End If + ' Next + ' p_StorageInHeader.IsEditable = False + ' p_StorageInHeader.IsFinalized = True + ' _p_ocur.CommitChanges() + 'End Sub + Private Sub aBackToEdit_StorageInHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_StorageInHeader.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageInHeader As StorageInHeader = _onew.FindObject(Of StorageInHeader)(CriteriaOperator.Parse("Oid=?", TryCast(View.SelectedObjects(0), StorageInHeader).Oid)) + + Try + If _StorageInHeader.Storage IsNot Nothing And _StorageInHeader.StorageInRows.Count = 0 Then _ + Throw New Exception("*Nem lehet véglegesíteni a betárolási bizonylatot!" & vbNewLine & vbNewLine & _ + "Kérem ellenőrizze, hogy be lett-e állítva raktár, illetve" & vbNewLine & _ + "definiált-e betárolási sorokat!") + + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + If _StorageInHeader.Active = True Then + Dim _AllowBackToEdit As Boolean = False + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + If _StorageInRows.QTT_Out = 0 Then + _AllowBackToEdit = True + Exit For + End If + Next + If _AllowBackToEdit = True Then + _StorageInHeader.IsEditable = True + + + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _ + _onew.GetObject(_StorageInRows.StorageInHeader.Storage), _onew.GetObject(_StorageInRows.Products))) + _StorageComputed.QTTFree -= _StorageInRows.QTT + _StorageComputed.QTTReservedIn += _StorageInRows.QTT + + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=?", _onew.GetObject(_StorageInRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageInRows.QTT_Will = _StorageInRows.QTT + _StorageInRows.QTT = 0 + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageMoveEvents_Collection(0).StorageInRows) + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageMoveEvents_Collection(0).StorageOutRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT = (-1) * _StorageInRows.QTT_Will + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInBackToEdit + _StorageMoveEvents.ExecutionDate = GetSQLTime(_ocur.Session) + + Next + _onew.CommitChanges() + End If + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub StorageInHeader_ListView_View_SelectionChanged(sender As Object, e As EventArgs) + If View.SelectedObjects.Count = 1 Then + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + If _StorageInHeader IsNot Nothing Then + If _StorageInHeader.IsStorno = False Then + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Enabled.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Enabled.SetItemValue("", True) + Else + Frame.GetController(Of StorageTransactionsInVC)().aStorageInStorno.Enabled.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsInVC)().aBackToEdit_StorageInHeader.Enabled.SetItemValue("", False) + End If + End If + End If + End Sub + Private Sub aStorageInFromPdaCollection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aStorageInFromPdaCollection.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StoragePDACollectionHeader_Collection As New XPCollection(Of StoragePDACollectionHeader)(_onew.Session, CriteriaOperator.Parse("StoragePDACollectionHeaderStatus=0 " _ + + "AND StoragePDACollectionRows.Count>0")) + + Dim _CS As New CollectionSource(_onew, GetType(StorageInRowsFromPDACollectionPopup)) + + For Each _StoragePDACollectionHeader As StoragePDACollectionHeader In _StoragePDACollectionHeader_Collection + Dim _StorageInRowsFromPDACollectionPopup As StorageInRowsFromPDACollectionPopup = _onew.CreateObject(Of StorageInRowsFromPDACollectionPopup)() + _StorageInRowsFromPDACollectionPopup.StoragePDACollectionHeader = _StoragePDACollectionHeader + + _CS.Add(_StorageInRowsFromPDACollectionPopup) + Next + + e.View = Application.CreateListView("StorageInRowsFromPDACollectionPopup_ListView", _CS, False) + End Sub + Private Sub aStorageInFromPdaCollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aStorageInFromPdaCollection.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen kollekció sem!" + vbNewLine _ + + "A művelet megszakadt.") + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + For Each _StorageInRowsFromPDACollectionPopup As StorageInRowsFromPDACollectionPopup In e.PopupWindow.View.SelectedObjects + If _StorageInRowsFromPDACollectionPopup.StoragePDACollectionHeader.StoragePDACollectionRows.Count > 0 Then + _StorageInRowsFromPDACollectionPopup.StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = 1 + For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StorageInRowsFromPDACollectionPopup.StoragePDACollectionHeader.StoragePDACollectionRows + _StorageInHeader.row_Products = _ocur.GetObjectByKey(Of Products)(_StoragePDACollectionRows.Products.Oid) + _StorageInHeader.row_QTT_WILL = _StoragePDACollectionRows.QTT + Frame.GetController(Of StorageTransactionsInVC).aToTable_StorageIn.DoExecute() + Next + End If + Next + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aGenerateStorageInPDACollection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageInPDACollection.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GenerateStorageInPDALocationCollection As GenerateStorageInPDALocationCollection = _onew.CreateObject(Of GenerateStorageInPDALocationCollection)() + e.View = Application.CreateDetailView(_onew, "GenerateStorageInPDALocationCollection_DetailView", False, _GenerateStorageInPDALocationCollection) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aGenerateStorageInPDACollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageInPDACollection.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + Dim _GenerateStorageInPDALocationCollection As GenerateStorageInPDALocationCollection = TryCast(e.PopupWindow.View.SelectedObjects(0), GenerateStorageInPDALocationCollection) + If _StorageInHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen véglegesített betárolás sem!") + + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _ocur.CreateObject(Of StoragePDACollectionHeader)() + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen + _StoragePDACollectionHeader.StorageCollectionType = eStoragePDACollectionType.eIsLocationIn + _StoragePDACollectionHeader.StoragePDAParameters = _ocur.GetObjectByKey(Of StoragePDAParameters)(_GenerateStorageInPDALocationCollection.StoragePDAParameters.Oid) + _StoragePDACollectionHeader.StorageInHeader = _StorageInHeader + + If _StorageInHeader.StorageInRows.Count > 0 Then + For Each _StorageInRows As StorageInRows In _StorageInHeader.StorageInRows + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)() + _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader + _StoragePDACollectionRows.Products = _StorageInRows.Products + _StoragePDACollectionRows.QTT = _StorageInRows.QTT + _StoragePDACollectionRows.DateModified = GetSQLTime(_ocur.Session) + _StoragePDACollectionRows.SerialNumber = _StorageInRows.SerialNumber + _StoragePDACollectionRows.PacketNumber = _StorageInRows.PacketNumber + Next + End If + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aStorageInHeader_InsertInventoryTransfer_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageInHeader_InsertInventoryTransfer.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + Dim _StorageInRows_InTable As StorageInRows + Dim _StorageInRowsFrom_Collection As New XPCollection(Of StorageInRows)(_onew.Session, CriteriaOperator.Parse("1=2")) + Dim _StorageOutHeader_Collection As New XPCollection(Of StorageOutHeader)(_onew.Session, CriteriaOperator.Parse("IsEditable=False AND StorageTo=? AND Storage=?", _ + _onew.GetObject(_StorageInHeader.Storage), _onew.GetObject(_StorageInHeader.StorageFrom))) + + Dim _StorageOutRows_CollectionSource As New CollectionSource(_onew, GetType(StorageOutRows)) + Dim _Filter As String = "Oid in(" + Dim _StorageOutRowsInRows As StorageOutRowsInRows + For Each _StorageOutHeader As StorageOutHeader In _StorageOutHeader_Collection + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _Need As Boolean = True + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageInRows.QTT_Overstored < _StorageOutRowsInRows.StorageInRows.QTT_Out Then + + For Each _StorageInRows_InTable In _StorageInHeader.StorageInRows + If _StorageOutRowsInRows.StorageInRows.Oid = _StorageInRows_InTable.StorageInRowsFrom.Oid Then + _Need = False + Exit For + End If + Next + Else + _Need = False + End If + Next + If _need Then + _Filter += "'" + _StorageOutRows.Oid.ToString + "'," + End If + Next + + Next + + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + _StorageOutRows_CollectionSource.BeginUpdateCriteria() + _StorageOutRows_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _StorageOutRows_CollectionSource.Criteria("Filter") = CriteriaOperator.Parse(_Filter) + Else + _StorageOutRows_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + _StorageOutRows_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("StorageOutRows_ListView_Overstored", _StorageOutRows_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aStorageInHeader_InsertInventoryTransfer_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageInHeader_InsertInventoryTransfer.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + For Each _StorageOutRows As StorageOutRows In e.PopupWindow.View.SelectedObjects + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + _StorageOutRowsInRows = _ocur.GetObject(_StorageOutRowsInRows) + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + + If _StorageComputed Is Nothing Then + _StorageComputed = _ocur.CreateObject(Of StorageComputed)() + _StorageComputed.Storage = _StorageInHeader.Storage + _StorageComputed.Products = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products) + _StorageComputed.QTTReservedIn = _StorageOutRowsInRows.QTT + Else + _StorageComputed.QTTReservedIn += _StorageOutRowsInRows.QTT + End If + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products) + .QTT_Will = _StorageOutRowsInRows.QTT + .PacketNumber = _StorageOutRowsInRows.StorageInRows.PacketNumber + .SerialNumber = _StorageOutRowsInRows.StorageInRows.SerialNumber + .WeightMode = _StorageOutRowsInRows.StorageInRows.WeightMode + .Weight = .QTT_Will * (_StorageOutRowsInRows.StorageInRows.Weight / _StorageOutRowsInRows.StorageInRows.QTT) + .RowIndex = _StorageInHeader.StorageInRows.Count + .StorageInRowsFrom = _StorageOutRowsInRows.StorageInRows + .DeliveryNoteInRows = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows) + End With + _StorageOutRowsInRows.StorageInRows.QTT_Overstored += _StorageOutRowsInRows.QTT + Next + Next + _ocur.CommitChanges() + + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aStorageInRows_Split_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageInRows_Split.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageInRows As StorageInRows = TryCast(View.SelectedObjects(0), StorageInRows) + Dim _StorageInRows_Split_PopUp As New StorageInRows_Split_PopUp(_onew.Session) + + _StorageInRows_Split_PopUp.QTT_Max = _StorageInRows.QTT - _StorageInRows.QTT_Out + _StorageInRows_Split_PopUp.StorageInRows = _onew.GetObject(_StorageInRows) + + e.View = Application.CreateDetailView(_onew, "StorageInRows_Split_PopUp_DetailView", False, _StorageInRows_Split_PopUp) + End Sub + Private Sub aStorageInRows_Split_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageInRows_Split.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageInRows As StorageInRows = TryCast(View.SelectedObjects(0), StorageInRows) + + Dim _QTT_Max As Double = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInRows_Split_PopUp).QTT_Max + + If _QTT_Max > 0 And _QTT_Max < _StorageInRows.QTT Then + Dim _StorageInRows_New As New StorageInRows(_ocur.Session) + With _StorageInRows_New + .StorageInHeader = _StorageInRows.StorageInHeader + .Products = _StorageInRows.Products + .QTT = _QTT_Max + .QTT_Will = 0 + .QTT_Out = 0 + .QTT_Out_Will = 0 + .QTT_Overstored = 0 + .Active = _StorageInRows.Active + .DeliveryNoteInRows = _StorageInRows.DeliveryNoteInRows + .PacketNumber = _StorageInRows.PacketNumber + .SerialNumber = _StorageInRows.SerialNumber + .Weight = _StorageInRows.Weight + .WeightMode = _StorageInRows.WeightMode + .Storage = _StorageInRows.Storage + .StorageInRowsFrom = _StorageInRows.StorageInRowsFrom + .AveragePriceInHUF = _StorageInRows.AveragePriceInHUF + End With + + _StorageInRows.QTT -= _QTT_Max + + Dim _StorageMoveEvents As StorageMoveEvents = _ocur.FindObject(Of StorageMoveEvents)(CriteriaOperator.Parse("StorageInRows=? AND MoveEventsType=0", _StorageInRows)) + With _StorageMoveEvents + .QTT -= _QTT_Max + .QTT_Free_After -= _QTT_Max + End With + + Dim _StorageMoveEvents_New As New StorageMoveEvents(_ocur.Session) + With _StorageMoveEvents_New + .StorageInRows = _StorageInRows_New + .QTT = _StorageInRows_New.QTT + .QTT_Free_Before = _StorageMoveEvents.QTT_Free_After + .QTT_Free_After = .QTT_Free_Before + .QTT + .ExecutionDate = _StorageMoveEvents.ExecutionDate + .MoveEventsType = eMoveEventsType.StorageInFinal + End With + + _ocur.CommitChanges() + End If + End Sub + Private Sub StorageInRows_Split_PopUp_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Try + Dim _StorageInRows_Split_PopUp As StorageInRows_Split_PopUp = TryCast(View.SelectedObjects(0), StorageInRows_Split_PopUp) + + If _StorageInRows_Split_PopUp.StorageInRows.QTT < _StorageInRows_Split_PopUp.QTT_Max Then Throw New Exception("*A beírt érték meghaladja a maximális értéket!") + If _StorageInRows_Split_PopUp.QTT_Max = 0 Then Throw New Exception("*Nulla mennyiséggel nem lehet sort bontani!") + If _StorageInRows_Split_PopUp.QTT_Max < 0 Then Throw New Exception("*Negatív mennyiséggel nem lehet sort bontani!") + If _StorageInRows_Split_PopUp.QTT_Max - _StorageInRows_Split_PopUp.StorageInRows.QTT = 0 Then Throw New Exception("*Nem maradhat nulla értékű sor a sorbontás után!") + Catch ex As Exception + e.Cancel = True + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aStorageInHeader_InsertInventoryTransfer_FIFO_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageInHeader_InsertInventoryTransfer_FIFO.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageOutRowsInRows_Collection As New CollectionSource(_onew, GetType(StorageOutRowsInRows)) + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + Dim _StorageOutRowsInRows As StorageOutRowsInRows = Nothing + + _StorageOutRowsInRows_Collection.BeginUpdateCriteria() + _StorageOutRowsInRows_Collection.Criteria("ByNotOverstored") = CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageTo.Oid=? and " _ + + "[StorageOutRows.StorageOutHeader.IsStorno] = False and [StorageOutRows.StorageOutHeader.IsEditable] = False And" _ + + "[StorageOutRows.StorageOutHeader.StorageMoveType.MoveType] = ##Enum#SISBusiness.Module.eMoveType,InventoryTransfer# And " _ + + "Round([StorageInRows.QTT_Overstor], 4) > Round([StorageInRows.QTT_Overstored], 4)", _ + _StorageInHeader.Storage.Oid) + _StorageOutRowsInRows_Collection.EndUpdateCriteria() + + + e.View = Application.CreateListView("StorageOutRowsInRows_ListView_Overstored", _StorageOutRowsInRows_Collection, False) + End Sub + Private Sub aStorageInHeader_InsertInventoryTransfer_FIFO_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageInHeader_InsertInventoryTransfer_FIFO.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader) + If _StorageInHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In e.PopupWindow.View.SelectedObjects + If _StorageOutRowsInRows.QTT_Will > 0 Then + Dim _QTT_Will As Double = _StorageOutRowsInRows.QTT_Will + _StorageOutRowsInRows = _ocur.GetObject(_StorageOutRowsInRows) + + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _ + _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products), _ocur.GetObject(_StorageInHeader.Storage))) + + If _StorageComputed Is Nothing Then + _StorageComputed = _ocur.CreateObject(Of StorageComputed)() + _StorageComputed.Storage = _StorageInHeader.Storage + _StorageComputed.Products = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products) + _StorageComputed.QTTReservedIn = _QTT_Will + Else + _StorageComputed.QTTReservedIn += _QTT_Will + End If + + Dim _StorageInRows As New StorageInRows(_ocur.Session) + With _StorageInRows + .StorageInHeader = _StorageInHeader + .Products = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.Products) + .QTT_Will = _QTT_Will + .PacketNumber = _StorageOutRowsInRows.StorageInRows.PacketNumber + .SerialNumber = _StorageOutRowsInRows.StorageInRows.SerialNumber + .WeightMode = _StorageOutRowsInRows.StorageInRows.WeightMode + .Weight = .QTT_Will * (_StorageOutRowsInRows.StorageInRows.Weight / _StorageOutRowsInRows.StorageInRows.QTT) + .RowIndex = _StorageInHeader.StorageInRows.Count + If _StorageOutRowsInRows.StorageInRows.StorageInRowsFrom Is Nothing Then + .StorageInRowsFrom = _StorageOutRowsInRows.StorageInRows + Else + .StorageInRowsFrom = _StorageOutRowsInRows.StorageInRows.StorageInRowsFrom + End If + + .DeliveryNoteInRows = _ocur.GetObject(_StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows) + + End With + + End If + Next + + _ocur.CommitChanges() + If _StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageInHeader.StorageInRows) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aCheckInventoryTransfer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCheckInventoryTransfer.Execute + CheckInventoryTransfer() + End Sub + Private Sub StorageOutRowsInRows_ListView_Overstored_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + For Each _StorageOutRowsInRows As StorageOutRowsInRows In View.SelectedObjects + If _StorageOutRowsInRows.QTT_Will > 0 Then + If _StorageOutRowsInRows.QTT < (_StorageOutRowsInRows.StorageInRows.QTT_Overstored_Will + _StorageOutRowsInRows.StorageInRows.QTT_Overstored + _StorageOutRowsInRows.QTT_Will) Then + e.Cancel = True + MsgBox("A fogadni kívánt mennyiség meghaladja a maximálisan fogadható mennyiséget!") + End If + End If + Next + End Sub + + Public Sub CheckInventoryTransfer() + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.MySQL + _onew.Session.ExecuteNonQuery("update StorageInRows set QTT_Overstor=0,QTT_Overstor_Will=0,QTT_Overstored=0,QTT_Overstored_Will=0") + + Case eSQLType.PostgreSQL + _onew.Session.ExecuteNonQuery("update ""StorageInRows"" set ""QTT_Overstor""=0,""QTT_Overstor_Will""=0,""QTT_Overstored""=0,""QTT_Overstored_Will""=0") + End Select + _onew.CommitChanges() + + Dim _StorageOutRowsInRows_XPQuery As New XPQuery(Of StorageOutRowsInRows)(_onew.Session) + + Dim query = From _StorageOutRowsInRows In _StorageOutRowsInRows_XPQuery + Where _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsEditable = False And + String.IsNullOrEmpty(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.DocumentNumber) = False And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader IsNot Nothing + Group _StorageOutRowsInRows By _StorageOutRowsInRows.StorageInRows.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + Dim _StorageInRows As StorageInRows = _onew.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstor = item.QTT_Sum + _onew.CommitChanges() + End If + Next + RaiseEvent FinalWork + + query = From _StorageOutRowsInRows In _StorageOutRowsInRows_XPQuery + Where _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsEditable = True And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader IsNot Nothing + Group _StorageOutRowsInRows By _StorageOutRowsInRows.StorageInRows.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT_Will)} + + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + Dim _StorageInRows As StorageInRows = _onew.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstor_Will = item.QTT_Sum + _onew.CommitChanges() + End If + Next + RaiseEvent FinalWork + + + '__Overstored renberakása + Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_onew.Session) + Dim query1 = From _StorageInRows In _StorageInRows_XPQuery + Where _StorageInRows.StorageInHeader IsNot Nothing And + String.IsNullOrEmpty(_StorageInRows.StorageInHeader.DocumentNumber) = False And + _StorageInRows.StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageInRows.StorageInHeader.IsEditable = False + Group _StorageInRows By _StorageInRows.StorageInRowsFrom.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + RaiseEvent InitWork(1, 1, query1.Count) + For Each item In query1 + RaiseEvent DoWork() + Dim _StorageInRows As StorageInRows = _onew.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstored = item.QTT_Sum + _onew.CommitChanges() + End If + Next + RaiseEvent FinalWork + + query1 = From _StorageInRows In _StorageInRows_XPQuery + Where _StorageInRows.StorageInHeader IsNot Nothing And + String.IsNullOrEmpty(_StorageInRows.StorageInHeader.DocumentNumber) = False And + _StorageInRows.StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageInRows.StorageInHeader.IsEditable = True + Group _StorageInRows By _StorageInRows.StorageInRowsFrom.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT_Will)} + RaiseEvent InitWork(1, 1, query1.Count) + For Each item In query1 + RaiseEvent DoWork() + Dim _StorageInRows As StorageInRows = _onew.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstored_Will = item.QTT_Sum + _onew.CommitChanges() + End If + Next + RaiseEvent FinalWork + + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryDifferent.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryDifferent.vb new file mode 100644 index 0000000..42ed0db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryDifferent.vb @@ -0,0 +1,107 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class InventoryDifferent + Inherits BaseObject + Private _InventoryHeader As InventoryHeader + Private _Products As Products + Private _QTT_SC_Free As Double + Private _QTT_SC_Found As Double + Private _QTT_PDA As Double 'Leltrozott mennyisg + Private _SumPriceHUF As Double + Private _SumPriceDEV As Double + Private _QTT_In As Double + Private _QTT_Out As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property InventoryHeader As InventoryHeader + Get + Return _InventoryHeader + End Get + Set(value As InventoryHeader) + SetPropertyValue("InventoryHeader", _InventoryHeader, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT_SC_Free As Double + Get + Return _QTT_SC_Free + End Get + Set(value As Double) + SetPropertyValue("QTT_SC_Free", _QTT_SC_Free, value) + End Set + End Property + Property QTT_SC_Found As Double + Get + Return _QTT_SC_Found + End Get + Set(value As Double) + SetPropertyValue("QTT_SC_Found", _QTT_SC_Found, value) + End Set + End Property + Property QTT_PDA As Double + Get + Return _QTT_PDA + End Get + Set(value As Double) + SetPropertyValue("QTT_PDA", _QTT_PDA, value) + End Set + End Property + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumPriceDEV As Double + Get + Return _SumPriceDEV + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV", _SumPriceDEV, value) + End Set + End Property + Property QTT_In As Double + Get + Return _QTT_In + End Get + Set(value As Double) + SetPropertyValue("QTT_In", _QTT_In, value) + End Set + End Property + Property QTT_Out As Double + Get + Return _QTT_Out + End Get + Set(value As Double) + SetPropertyValue("QTT_Out", _QTT_Out, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryHeader.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryHeader.vb new file mode 100644 index 0000000..7d71f11 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryHeader.vb @@ -0,0 +1,207 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eInventoryStatus + eOpen = 0 + eClosed = 1 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ +Public Class InventoryHeader + Inherits BaseObject + + Private _DocumentNumber As String + Private _Storage As Storage + Private _InventoryStatus As eInventoryStatus + Private _InventoryParameters As InventoryParameters + Private _DateClose As Date + Private _InventoryHeaderDateClose As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _ExcelProperty As String + Private _ExcelFile As FileData + Private _InventoryInspector As HRPerson 'Ellenr + Private _InventoryCreator As HRPerson 'Leltrt kszt/elvgz/vgrehejt + Private _InventorySignedDocument As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.InventoryStatus = eInventoryStatus.eOpen + End Sub + + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = InventoryParameters.NumberGenerator.GetNewNumber(InventoryParameters.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property InventoryStatus As eInventoryStatus + Get + Return _InventoryStatus + End Get + Set(value As eInventoryStatus) + SetPropertyValue("InventoryStatus", _InventoryStatus, value) + End Set + End Property + _ + Property InventoryParameters As InventoryParameters + Get + Return _InventoryParameters + End Get + Set(value As InventoryParameters) + SetPropertyValue("InventoryParameters", _InventoryParameters, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property InventoryHeaderDateClose As Date + Get + Return _InventoryHeaderDateClose + End Get + Set(value As Date) + SetPropertyValue("InventoryHeaderDateClose", _InventoryHeaderDateClose, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + _ + _ + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + _ + Property InventoryInspector As HRPerson + Get + Return _InventoryInspector + End Get + Set(value As HRPerson) + SetPropertyValue("InventoryInspector", _InventoryInspector, value) + End Set + End Property + _ + Property InventoryCreator As HRPerson + Get + Return _InventoryCreator + End Get + Set(value As HRPerson) + SetPropertyValue("InventoryCreator", _InventoryCreator, value) + End Set + End Property + Property InventorySignedDocument As FileData + Get + Return _InventorySignedDocument + End Get + Set(value As FileData) + SetPropertyValue("InventorySignedDocument", _InventorySignedDocument, value) + End Set + End Property + + '-------------------------ReadOnly----------------------- + _ + _ + _ + Public ReadOnly Property InventorySC() As XPCollection(Of InventorySC) + Get + Return GetCollection(Of InventorySC)("InventorySC") + End Get + End Property + _ + _ + _ + Public ReadOnly Property InventorySIR() As XPCollection(Of InventorySIR) + Get + Return GetCollection(Of InventorySIR)("InventorySIR") + End Get + End Property + _ + _ + _ + Public ReadOnly Property InventoryPDA() As XPCollection(Of InventoryPDA) + Get + Return GetCollection(Of InventoryPDA)("InventoryPDA") + End Get + End Property + _ + _ + _ + Public ReadOnly Property InventoryDifferent() As XPCollection(Of InventoryDifferent) + Get + Return GetCollection(Of InventoryDifferent)("InventoryDifferent") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryPDA.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryPDA.vb new file mode 100644 index 0000000..6157446 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryPDA.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InventoryPDA + Inherits BaseObject + Private _InventoryHeader As InventoryHeader + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property InventoryHeader As InventoryHeader + Get + Return _InventoryHeader + End Get + Set(value As InventoryHeader) + SetPropertyValue("InventoryHeader", _InventoryHeader, value) + End Set + End Property + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property + + _ + ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows) + Get + Return New XPCollection(Of StoragePDACollectionRows)(Session, Session.ParseCriteria("StoragePDACollectionHeader=?", Me.StoragePDACollectionHeader)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryParameters.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryParameters.vb new file mode 100644 index 0000000..8c0b42c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryParameters.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class InventoryParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Storage As Storage + Private _NumberGenerator As NumberGenerator + Private _ExcelProperty As String + Private _ExcelFile As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + _ + _ + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySC.vb new file mode 100644 index 0000000..f39ae3a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySC.vb @@ -0,0 +1,141 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InventorySC + Inherits BaseObject + Private _InventoryHeader As InventoryHeader + Private _Products As Products + Private _QTT As Double 'Raktron lv mennyisg GPI kszlet + Private _QTT_Found As Double 'Raktron lv TALLT mennyisg + Private _QTT_Different As Double 'Klnbsg GPI-TALLT + Private _AveragePriceHUF As Double 'Mrlegelt tlagr adott zr dtumra vonatkozlag + Private _SumAveragePriceHUF_Found As Double 'Tallt tlagr + Private _SumAveragePriceHUF As Double 'Gpi rtk + Private _SumAveragePriceHUF_Different As Double 'klnbsg rtk + Private _SumAveragePriceHUF_Surplus As Double 'sszes Tbblet + Private _SumAveragePriceHUF_Want As Double 'sszes Hiny + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property InventoryHeader As InventoryHeader + Get + Return _InventoryHeader + End Get + Set(value As InventoryHeader) + SetPropertyValue("InventoryHeader", _InventoryHeader, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTT As Double + Get + Return Math.Round(_QTT, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property QTT_Found As Double + Get + Return Math.Round(_QTT_Found, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Found", _QTT_Found, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + QTT_Different = Math.Round(value - QTT, 4, MidpointRounding.AwayFromZero) + + SumAveragePriceHUF_Found = AveragePriceHUF * value + SumAveragePriceHUF_Different = SumAveragePriceHUF_Found - SumAveragePriceHUF + + If SumAveragePriceHUF_Different > 0 Then + SumAveragePriceHUF_Surplus = SumAveragePriceHUF_Different + Else + SumAveragePriceHUF_Want = Math.Abs(SumAveragePriceHUF_Different) + End If + End If + End Set + End Property + Property QTT_Different As Double + Get + Return Math.Round(_QTT_Different, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Different", _QTT_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property AveragePriceHUF As Double + Get + Return _AveragePriceHUF + End Get + Set(value As Double) + SetPropertyValue("AveragePriceHUF", _AveragePriceHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + SumAveragePriceHUF_Found = Math.Round(AveragePriceHUF * QTT_Found, 0, MidpointRounding.AwayFromZero) + SumAveragePriceHUF = Math.Round(AveragePriceHUF * QTT, 0, MidpointRounding.AwayFromZero) + SumAveragePriceHUF_Different = Math.Round(AveragePriceHUF * QTT_Different, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property SumAveragePriceHUF_Found As Double + Get + Return _SumAveragePriceHUF_Found + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Found", _SumAveragePriceHUF_Found, value) + End Set + End Property + Property SumAveragePriceHUF As Double + Get + Return Math.Round(_SumAveragePriceHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property SumAveragePriceHUF_Different As Double + Get + Return Math.Round(_SumAveragePriceHUF_Different, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Different", _SumAveragePriceHUF_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property SumAveragePriceHUF_Surplus As Double + Get + Return _SumAveragePriceHUF_Surplus + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Surplus", _SumAveragePriceHUF_Surplus, value) + End Set + End Property + Property SumAveragePriceHUF_Want As Double + Get + Return _SumAveragePriceHUF_Want + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Want", _SumAveragePriceHUF_Want, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySIR.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySIR.vb new file mode 100644 index 0000000..78ccf74 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventorySIR.vb @@ -0,0 +1,141 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InventorySIR + Inherits BaseObject + Private _InventoryHeader As InventoryHeader + Private _StorageInRows As StorageInRows + Private _QTT As Double + Private _QTT_Found As Double + Private _QTT_Different As Double + Private _AveragePriceHUF As Double 'Mrlegelt tlagr adott zr dtumra vonatkozlag + Private _SumAveragePriceHUF_Found As Double 'Tallt tlagr + Private _SumAveragePriceHUF As Double + Private _SumAveragePriceHUF_Different As Double + Private _SumAveragePriceHUF_Surplus As Double 'Tbblet + Private _SumAveragePriceHUF_Want As Double 'Hiny + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property InventoryHeader As InventoryHeader + Get + Return _InventoryHeader + End Get + Set(value As InventoryHeader) + SetPropertyValue("InventoryHeader", _InventoryHeader, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Found As Double + Get + Return Math.Round(_QTT_Found, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Found", _QTT_Found, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + QTT_Different = Math.Round(value - QTT, 4, MidpointRounding.AwayFromZero) + + SumAveragePriceHUF_Found = AveragePriceHUF * value + SumAveragePriceHUF_Different = SumAveragePriceHUF_Found - SumAveragePriceHUF + + If SumAveragePriceHUF_Different > 0 Then + SumAveragePriceHUF_Surplus = SumAveragePriceHUF_Different + Else + SumAveragePriceHUF_Want = Math.Abs(SumAveragePriceHUF_Different) + End If + End If + End Set + End Property + Property QTT_Different As Double + Get + Return Math.Round(_QTT_Different, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Different", _QTT_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property AveragePriceHUF As Double + Get + Return _AveragePriceHUF + End Get + Set(value As Double) + SetPropertyValue("AveragePriceHUF", _AveragePriceHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + SumAveragePriceHUF_Found = Math.Round(AveragePriceHUF * QTT_Found, 0, MidpointRounding.AwayFromZero) + SumAveragePriceHUF = Math.Round(AveragePriceHUF * QTT, 0, MidpointRounding.AwayFromZero) + SumAveragePriceHUF_Different = Math.Round(AveragePriceHUF * QTT_Different, 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + Property SumAveragePriceHUF_Found As Double + Get + Return _SumAveragePriceHUF_Found + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Found", _SumAveragePriceHUF_Found, value) + End Set + End Property + Property SumAveragePriceHUF As Double + Get + Return Math.Round(_SumAveragePriceHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property SumAveragePriceHUF_Different As Double + Get + Return Math.Round(_SumAveragePriceHUF_Different, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Different", _SumAveragePriceHUF_Different, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property SumAveragePriceHUF_Surplus As Double + Get + Return _SumAveragePriceHUF_Surplus + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Surplus", _SumAveragePriceHUF_Surplus, value) + End Set + End Property + Property SumAveragePriceHUF_Want As Double + Get + Return _SumAveragePriceHUF_Want + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Want", _SumAveragePriceHUF_Want, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb new file mode 100644 index 0000000..84e2243 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.Designer.vb @@ -0,0 +1,167 @@ +Partial Class InventoryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCloseInventoryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateInventoryHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreatePDACollection = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateDifferent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInventory_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInventoryHeader_RecreateInventory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInventoryHeader_LoadSpreadFromParameters = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInventoryRecalculatePrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCloseInventoryHeader + ' + Me.aCloseInventoryHeader.Caption = "aCloseInventoryHeader" + Me.aCloseInventoryHeader.Category = "RecordEdit" + Me.aCloseInventoryHeader.ConfirmationMessage = Nothing + Me.aCloseInventoryHeader.Id = "aCloseInventoryHeader" + Me.aCloseInventoryHeader.ImageName = Nothing + Me.aCloseInventoryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloseInventoryHeader.Shortcut = Nothing + Me.aCloseInventoryHeader.Tag = Nothing + Me.aCloseInventoryHeader.TargetObjectsCriteria = Nothing + Me.aCloseInventoryHeader.TargetViewId = Nothing + Me.aCloseInventoryHeader.ToolTip = Nothing + Me.aCloseInventoryHeader.TypeOfView = Nothing + ' + 'aCreateInventoryHeader + ' + Me.aCreateInventoryHeader.AcceptButtonCaption = Nothing + Me.aCreateInventoryHeader.CancelButtonCaption = Nothing + Me.aCreateInventoryHeader.Caption = "aCreateInventoryHeader" + Me.aCreateInventoryHeader.Category = "ObjectsCreation" + Me.aCreateInventoryHeader.ConfirmationMessage = Nothing + Me.aCreateInventoryHeader.Id = "aCreateInventoryHeader" + Me.aCreateInventoryHeader.ImageName = Nothing + Me.aCreateInventoryHeader.Shortcut = Nothing + Me.aCreateInventoryHeader.Tag = Nothing + Me.aCreateInventoryHeader.TargetObjectsCriteria = Nothing + Me.aCreateInventoryHeader.TargetViewId = Nothing + Me.aCreateInventoryHeader.ToolTip = Nothing + Me.aCreateInventoryHeader.TypeOfView = Nothing + ' + 'aCreatePDACollection + ' + Me.aCreatePDACollection.Caption = "aCreatePDACollection" + Me.aCreatePDACollection.ConfirmationMessage = Nothing + Me.aCreatePDACollection.Id = "aCreatePDACollection" + Me.aCreatePDACollection.ImageName = Nothing + Me.aCreatePDACollection.Shortcut = Nothing + Me.aCreatePDACollection.Tag = Nothing + Me.aCreatePDACollection.TargetObjectsCriteria = Nothing + Me.aCreatePDACollection.TargetViewId = Nothing + Me.aCreatePDACollection.ToolTip = Nothing + Me.aCreatePDACollection.TypeOfView = Nothing + ' + 'aCreateDifferent + ' + Me.aCreateDifferent.Caption = "aCreateDifferent" + Me.aCreateDifferent.ConfirmationMessage = Nothing + Me.aCreateDifferent.Id = "aCreateDifferent" + Me.aCreateDifferent.ImageName = Nothing + Me.aCreateDifferent.Shortcut = Nothing + Me.aCreateDifferent.Tag = Nothing + Me.aCreateDifferent.TargetObjectsCriteria = Nothing + Me.aCreateDifferent.TargetViewId = Nothing + Me.aCreateDifferent.ToolTip = Nothing + Me.aCreateDifferent.TypeOfView = Nothing + ' + 'aInventory_Print + ' + Me.aInventory_Print.Caption = "aInventory_Print" + Me.aInventory_Print.ConfirmationMessage = Nothing + Me.aInventory_Print.Id = "aInventory_Print" + Me.aInventory_Print.ImageName = Nothing + Me.aInventory_Print.Shortcut = Nothing + Me.aInventory_Print.Tag = Nothing + Me.aInventory_Print.TargetObjectsCriteria = Nothing + Me.aInventory_Print.TargetObjectType = GetType(SISBusiness.[Module].InventoryHeader) + Me.aInventory_Print.TargetViewId = Nothing + Me.aInventory_Print.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aInventory_Print.ToolTip = Nothing + Me.aInventory_Print.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aInventoryHeader_RecreateInventory + ' + Me.aInventoryHeader_RecreateInventory.Caption = "aInventoryHeader_RecreateInventory" + Me.aInventoryHeader_RecreateInventory.Category = "ObjectsCreation" + Me.aInventoryHeader_RecreateInventory.ConfirmationMessage = "Are you sure ?" + Me.aInventoryHeader_RecreateInventory.Id = "aInventoryHeader_RecreateInventory" + Me.aInventoryHeader_RecreateInventory.ImageName = Nothing + Me.aInventoryHeader_RecreateInventory.Shortcut = Nothing + Me.aInventoryHeader_RecreateInventory.Tag = Nothing + Me.aInventoryHeader_RecreateInventory.TargetObjectsCriteria = Nothing + Me.aInventoryHeader_RecreateInventory.TargetObjectType = GetType(SISBusiness.[Module].InventoryHeader) + Me.aInventoryHeader_RecreateInventory.TargetViewId = Nothing + Me.aInventoryHeader_RecreateInventory.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aInventoryHeader_RecreateInventory.ToolTip = Nothing + Me.aInventoryHeader_RecreateInventory.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aInventoryHeader_LoadSpreadFromParameters + ' + Me.aInventoryHeader_LoadSpreadFromParameters.Caption = "aInventoryHeader_LoadSpreadFromParameters" + Me.aInventoryHeader_LoadSpreadFromParameters.Category = "aInventoryHeader_LoadSpreadFromParameters" + Me.aInventoryHeader_LoadSpreadFromParameters.ConfirmationMessage = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.Id = "aInventoryHeader_LoadSpreadFromParameters" + Me.aInventoryHeader_LoadSpreadFromParameters.ImageName = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.Shortcut = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.Tag = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.TargetObjectsCriteria = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.TargetObjectType = GetType(SISBusiness.[Module].InventoryHeader) + Me.aInventoryHeader_LoadSpreadFromParameters.TargetViewId = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.ToolTip = Nothing + Me.aInventoryHeader_LoadSpreadFromParameters.TypeOfView = Nothing + ' + 'aInventoryRecalculatePrice + ' + Me.aInventoryRecalculatePrice.Caption = "aInventory Recalculate Price" + Me.aInventoryRecalculatePrice.ConfirmationMessage = "Are you sure ?" + Me.aInventoryRecalculatePrice.Id = "aInventoryRecalculatePrice" + Me.aInventoryRecalculatePrice.ImageName = Nothing + Me.aInventoryRecalculatePrice.Shortcut = Nothing + Me.aInventoryRecalculatePrice.Tag = Nothing + Me.aInventoryRecalculatePrice.TargetObjectsCriteria = Nothing + Me.aInventoryRecalculatePrice.TargetObjectType = GetType(SISBusiness.[Module].InventoryHeader) + Me.aInventoryRecalculatePrice.TargetViewId = Nothing + Me.aInventoryRecalculatePrice.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aInventoryRecalculatePrice.ToolTip = Nothing + Me.aInventoryRecalculatePrice.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aCloseInventoryHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateInventoryHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreatePDACollection As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateDifferent As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInventory_Print As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInventoryHeader_RecreateInventory As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aInventoryHeader_LoadSpreadFromParameters As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInventoryRecalculatePrice As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx new file mode 100644 index 0000000..4f06a17 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.resx @@ -0,0 +1,147 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 173 + + + 17, 290 + + + 17, 251 + + + 17, 212 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 577, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb new file mode 100644 index 0000000..f4791ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryVC.vb @@ -0,0 +1,463 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils +Imports System.IO +Imports DevExpress.Persistent.BaseImpl + +Public Class InventoryVC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False) + + If View.Id = "InventoryHeader_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + ' Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) Teszt miatt ideiglenesen enedlyezett + + Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", True) + Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", True) + End If + If View.Id = "InventoryHeader_InventorySC_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", True) + End If + If View.Id = "InventoryHeader_InventorySIR_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + End If + If View.Id = "InventoryHeader_InventoryPDA_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + End If + If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", True) + End If + If View.Id = "Storage_LookupListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "InventoryParameters_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + '--------------DeatilViewZ------------- + If View.Id = "InventoryParameters_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "InventoryHeader_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + + Frame.GetController(Of InventoryVC).aCreateInventoryHeader.Active.SetItemValue("", False) + Frame.GetController(Of InventoryVC).aCloseInventoryHeader.Active.SetItemValue("", False) + End If + If View.Id = "Storage_LookupListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "InventoryHeader_InventorySC_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of InventoryVC).aCreatePDACollection.Active.SetItemValue("", False) + End If + If View.Id = "InventoryHeader_InventorySIR_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + End If + If View.Id = "InventoryHeader_InventoryPDA_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + End If + If View.Id = "InventoryHeader_InventoryDifferent_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of InventoryVC).aCreateDifferent.Active.SetItemValue("", False) + End If + If View.Id = "InventoryParameters_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + '--------------DeatilViewZ------------- + If View.Id = "InventoryHeader_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "InventoryParameters_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aCreateInventoryHeader_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInventoryHeader.Cancel + End Sub + Private Sub aCreateInventoryHeader_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInventoryHeader.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CreateInventoryHeader_PopUp As CreateInventoryHeader_PopUp = _onew.CreateObject(Of CreateInventoryHeader_PopUp)() + + e.View = Application.CreateDetailView(_onew, "CreateInventoryHeader_PopUp_DetailView", False, _CreateInventoryHeader_PopUp) + End Sub + Private Sub aCreateInventoryHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInventoryHeader.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CreateInventoryHeader_PopUp As CreateInventoryHeader_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CreateInventoryHeader_PopUp) + Dim _InventoryHeader As InventoryHeader = _ocur.CreateObject(Of InventoryHeader)() + With _InventoryHeader + .Storage = _ocur.GetObject(_CreateInventoryHeader_PopUp.Storage) + .DateClose = _CreateInventoryHeader_PopUp.DateClose + .InventoryParameters = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryParameters) + .InventoryCreator = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryCreator) + .InventoryInspector = _ocur.GetObject(_CreateInventoryHeader_PopUp.InventoryInspector) + End With + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.IsEditable=False AND " + + " StorageInHeader.Active=True AND " + + " StorageInHeader.Storage=? AND " + + " StorageInHeader.ObjectCreated<=?", _ocur.GetObject(_CreateInventoryHeader_PopUp.Storage), _CreateInventoryHeader_PopUp.DateClose)) + + RaiseEvent InitWork(1, 1, _StorageInRows_Collection.Count) + + If _StorageInRows_Collection.Count > 0 Then + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _InventorySIR As InventorySIR = _ocur.CreateObject(Of InventorySIR)() + With _InventorySIR + .InventoryHeader = _InventoryHeader + .StorageInRows = _StorageInRows + .QTT = Math.Round(_StorageInRows.QTT, 4, MidpointRounding.AwayFromZero) + + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=? and StorageOutRows.StorageOutHeader.ObjectCreated<=?", _StorageInRows, _CreateInventoryHeader_PopUp.DateClose)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + .QTT -= Math.Round(_StorageOutRowsInRows.QTT, 4, MidpointRounding.AwayFromZero) + Next + End With + If _InventorySIR.QTT > 0 Then + Dim _InventorySC As InventorySC = _ocur.FindObject(Of InventorySC)(CriteriaOperator.Parse("InventoryHeader=? AND Products=?", _ + _InventoryHeader, _InventorySIR.StorageInRows.Products)) + If _InventorySC Is Nothing Then + _InventorySC = New InventorySC(_ocur.Session) + With _InventorySC + .InventoryHeader = _InventoryHeader + .Products = _InventorySIR.StorageInRows.Products + .QTT = Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero) + End With + Else + _InventorySC.QTT += Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero) + End If + End If + RaiseEvent DoWork() + Next + End If + + _ocur.CommitChanges() + + Dim _InventorySIR_DEL_Collection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=? AND QTT=0", _InventoryHeader)) + + If _InventorySIR_DEL_Collection.Count > 0 Then _ocur.Delete(_InventorySIR_DEL_Collection) + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + GLOBAL_HAS_Audit = True + + RaiseEvent FinalWork + End Try + End Sub + Private Sub aCloseInventoryHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseInventoryHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + _InventoryHeader.InventoryStatus = eInventoryStatus.eClosed + _InventoryHeader.InventoryHeaderDateClose = GetSQLTime(_ocur.Session) + + _ocur.CommitChanges() + End Sub + Private Sub aCreatePDACollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreatePDACollection.Execute + + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InventoryHeader As InventoryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + If _InventoryHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _ocur.CreateObject(Of StoragePDACollectionHeader)() + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen + _StoragePDACollectionHeader.StoragePDAParameters = _ocur.FindObject(Of StoragePDAParameters)(CriteriaOperator.Parse("CustomersFrom=?", _InventoryHeader.Storage.CustomersFrom)) + + + Dim _InventoryPDA As InventoryPDA = _ocur.CreateObject(Of InventoryPDA)() + _InventoryPDA.InventoryHeader = _InventoryHeader + _InventoryPDA.StoragePDACollectionHeader = _StoragePDACollectionHeader + + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aCreateDifferent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateDifferent.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InventoryHeader As InventoryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + If _InventoryHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + If _InventoryHeader.InventoryDifferent.Count > 0 Then + Dim _InventoryDifferent_Collection As New XPCollection(Of InventoryDifferent)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader)) + + _ocur.Delete(_InventoryDifferent_Collection) + End If + + If _InventoryHeader.InventorySC.Count > 0 Then + For Each _InventorySC As InventorySC In _InventoryHeader.InventorySC + Dim _InventoryDifferent As InventoryDifferent = _ocur.CreateObject(Of InventoryDifferent)() + _InventoryDifferent.InventoryHeader = _InventoryHeader + '_InventoryDifferent.Products = _InventorySC.StorageComputed.Products + '_InventoryDifferent.QTT_SC_Free = _InventorySC.StorageComputed.QTTFree + _InventoryDifferent.QTT_SC_Found = _InventorySC.QTT_Found + Next + End If + + If _InventoryHeader.InventoryPDA.Count > 0 Then + For Each _InventoryPDA As InventoryPDA In _InventoryHeader.InventoryPDA + If _InventoryPDA.StoragePDACollectionHeader.StoragePDACollectionRows.Count > 0 Then + For Each _StoragePDACollectionRows As StoragePDACollectionRows In _InventoryPDA.StoragePDACollectionHeader.StoragePDACollectionRows + Dim _InventoryDifferent As InventoryDifferent = _ocur.FindObject(Of InventoryDifferent)(CriteriaOperator.Parse("Products.Oid=? AND InventoryHeader=?", _StoragePDACollectionRows.Products.Oid, _InventoryHeader), True) + If _InventoryDifferent IsNot Nothing Then + _InventoryDifferent.QTT_PDA = _StoragePDACollectionRows.QTT + End If + Next + End If + Next + End If + + If _InventoryHeader.InventorySIR.Count > 0 Then + For Each _InventorySIR As InventorySIR In _InventoryHeader.InventorySIR + Dim _InventoryDifferent As InventoryDifferent = _ocur.FindObject(Of InventoryDifferent)(CriteriaOperator.Parse("Products.Oid=? AND InventoryHeader=?", _InventorySIR.StorageInRows.Products.Oid, _InventoryHeader), True) + + Dim _StorageMoveEvents_IN_Collection As New XPCollection(Of StorageMoveEvents)(_ocur.Session, CriteriaOperator.Parse("StorageInRows.Oid=? AND StorageOutRows=?", _InventorySIR.StorageInRows.Oid, Nothing)) + _StorageMoveEvents_IN_Collection.Sorting.Add(New SortProperty("ExecutionDate", DB.SortingDirection.Ascending)) + _StorageMoveEvents_IN_Collection.Filter = CriteriaOperator.Parse("ExecutionDate>?", _InventoryHeader.ObjectCreated) + If _StorageMoveEvents_IN_Collection.Count > 0 Then + Dim _QTT_In As Double = 0 + For Each _StorageMoveEvents As StorageMoveEvents In _StorageMoveEvents_IN_Collection + _QTT_In += _StorageMoveEvents.QTT + Next + _InventoryDifferent.QTT_In = _QTT_In + End If + + Dim _StorageMoveEvents_OUT_Collection As New XPCollection(Of StorageMoveEvents)(_ocur.Session, CriteriaOperator.Parse("StorageInRows.Oid=? AND StorageOutRows=?", _InventorySIR.StorageInRows.Oid, Not Nothing)) + _StorageMoveEvents_OUT_Collection.Sorting.Add(New SortProperty("ExecutionDate", DB.SortingDirection.Ascending)) + _StorageMoveEvents_OUT_Collection.Filter = CriteriaOperator.Parse("ExecutionDate>?", _InventoryHeader.ObjectCreated) + If _StorageMoveEvents_OUT_Collection.Count > 0 Then + Dim _QTT_Out As Double = 0 + For Each _StorageMoveEvents As StorageMoveEvents In _StorageMoveEvents_OUT_Collection + _QTT_Out += _StorageMoveEvents.QTT + Next + _InventoryDifferent.QTT_Out = _QTT_Out + End If + Next + End If + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aInventory_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventory_Print.Execute + Try + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + Dim _ReportData As ReportData = _InventoryHeader.Storage.ReportInventory + If _ReportData Is Nothing Then Throw New Exception(String.Format("""{0}"" raktrhoz nincs belltva letr nyomtatvny!", _InventoryHeader.Storage.ShortName)) + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InventoryHeader.Oid=?", _InventoryHeader.Oid), True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aInventoryHeader_RecreateInventory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_RecreateInventory.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + + Dim _InventorySC_DELCollection As New XPCollection(Of InventorySC)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader)) + Dim _InventorySIR_DELCollection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=?", _InventoryHeader)) + _ocur.Delete(_InventorySC_DELCollection) + _ocur.Delete(_InventorySIR_DELCollection) + + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, _ + CriteriaOperator.Parse("StorageInHeader.IsEditable=False AND " + + " StorageInHeader.Active=True AND " + + " StorageInHeader.Storage=? AND " + + " StorageInHeader.ObjectCreated<=?", _InventoryHeader.Storage, _InventoryHeader.DateClose)) + + RaiseEvent InitWork(1, 1, _StorageInRows_Collection.Count) + + If _StorageInRows_Collection.Count > 0 Then + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + Dim _InventorySIR As InventorySIR = _ocur.CreateObject(Of InventorySIR)() + With _InventorySIR + .InventoryHeader = _InventoryHeader + .StorageInRows = _StorageInRows + .QTT = Math.Round(_StorageInRows.QTT, 4, MidpointRounding.AwayFromZero) + + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, _ + CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows.StorageOutHeader.ObjectCreated<=?", _StorageInRows, _InventoryHeader.DateClose)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + .QTT -= Math.Round(_StorageOutRowsInRows.QTT, 4, MidpointRounding.AwayFromZero) + Next + .QTT = Math.Round(.QTT, 4, MidpointRounding.AwayFromZero) + End With + If _InventorySIR.QTT > 0 Then + Dim _InventorySC As InventorySC = _ocur.FindObject(Of InventorySC)(CriteriaOperator.Parse("InventoryHeader=? AND Products=?", _ + _InventoryHeader, _InventorySIR.StorageInRows.Products)) + If _InventorySC Is Nothing Then + _InventorySC = New InventorySC(_ocur.Session) + With _InventorySC + .InventoryHeader = _InventoryHeader + .Products = _InventorySIR.StorageInRows.Products + .QTT = Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero) + End With + Else + _InventorySC.QTT += Math.Round(_InventorySIR.QTT, 4, MidpointRounding.AwayFromZero) + End If + End If + RaiseEvent DoWork() + Next + End If + + _ocur.CommitChanges() + + Dim _InventorySIR_DEL_Collection As New XPCollection(Of InventorySIR)(_ocur.Session, CriteriaOperator.Parse("InventoryHeader=? AND QTT<=0", _InventoryHeader)) + + If _InventorySIR_DEL_Collection.Count > 0 Then _ocur.Delete(_InventorySIR_DEL_Collection) + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + GLOBAL_HAS_Audit = True + + RaiseEvent FinalWork + End Try + End Sub + Protected Sub aInventoryHeader_LoadSpreadFromParameters_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryHeader_LoadSpreadFromParameters.Execute + 'WIN esben kidolgozva! + End Sub + + Private Sub aInventoryRecalculatePrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInventoryRecalculatePrice.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InventoryHeader As InventoryHeader = TryCast(View.SelectedObjects(0), InventoryHeader) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + Dim _StorageDateClearingPrice_Collection As XPCollection(Of StorageDateClearingPrice) + + RaiseEvent InitWork(1, 1, _InventoryHeader.InventorySC.Count) + For Each _InventorySC As InventorySC In _InventoryHeader.InventorySC + RaiseEvent DoWork() + _InventorySC.AveragePriceHUF = 0 + _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice)(_ocur.Session, CriteriaOperator.Parse("CustomersFrom=? and Products=? and GetDate(DateExecution)<=?", _InventoryHeader.Storage.CustomersFrom, _InventorySC.Products, _InventoryHeader.DateClose.Date)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection + _InventorySC.AveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After + _InventorySC.SumAveragePriceHUF = _InventorySC.AveragePriceHUF * _InventorySC.QTT + + _InventorySC.SumAveragePriceHUF_Found = _InventorySC.AveragePriceHUF * _InventorySC.QTT_Found + _InventorySC.SumAveragePriceHUF_Different = _InventorySC.SumAveragePriceHUF_Found - _InventorySC.SumAveragePriceHUF + + _InventorySC.SumAveragePriceHUF_Surplus = 0 + _InventorySC.SumAveragePriceHUF_Want = 0 + + If _InventorySC.SumAveragePriceHUF_Different > 0 Then + _InventorySC.SumAveragePriceHUF_Surplus = _InventorySC.SumAveragePriceHUF_Different + Else + _InventorySC.SumAveragePriceHUF_Want = Math.Abs(_InventorySC.SumAveragePriceHUF_Different) + End If + + Exit For + Next + For Each _InventorySIR As InventorySIR In _InventoryHeader.InventorySIR + If _InventorySC.Products.Oid = _InventorySIR.StorageInRows.Products.Oid Then + _InventorySIR.AveragePriceHUF = _InventorySC.AveragePriceHUF + _InventorySIR.SumAveragePriceHUF = _InventorySIR.AveragePriceHUF * _InventorySIR.QTT + + _InventorySIR.SumAveragePriceHUF_Found = _InventorySIR.AveragePriceHUF * _InventorySIR.QTT_Found + _InventorySIR.SumAveragePriceHUF_Different = _InventorySIR.SumAveragePriceHUF_Found - _InventorySIR.SumAveragePriceHUF + + _InventorySIR.SumAveragePriceHUF_Surplus = 0 + _InventorySIR.SumAveragePriceHUF_Want = 0 + + If _InventorySIR.SumAveragePriceHUF_Different > 0 Then + _InventorySIR.SumAveragePriceHUF_Surplus = _InventorySIR.SumAveragePriceHUF_Different + Else + _InventorySIR.SumAveragePriceHUF_Want = Math.Abs(_InventorySIR.SumAveragePriceHUF_Different) + End If + End If + Next + Next + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/PopUp/CreateInventoryHeader_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/PopUp/CreateInventoryHeader_PopUp.vb new file mode 100644 index 0000000..af8d42d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Inventory/PopUp/CreateInventoryHeader_PopUp.vb @@ -0,0 +1,82 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class CreateInventoryHeader_PopUp + Inherits BaseObject + + Private _InventoryParameters As InventoryParameters + Private _Storage As Storage + Private _DateClose As Date + Private _InventoryInspector As HRPerson 'Ellenr + Private _InventoryCreator As HRPerson 'Leltrt kszt/elvgz/vgrehejt + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateClose = GetSQLTime(Session) + End Sub + + _ + Property InventoryParameters As InventoryParameters + Get + Return _InventoryParameters + End Get + Set(value As InventoryParameters) + SetPropertyValue("InventoryParameters", _InventoryParameters, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Storage = value.Storage + End If + End Set + End Property + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + + Property InventoryInspector As HRPerson + Get + Return _InventoryInspector + End Get + Set(value As HRPerson) + SetPropertyValue("InventoryInspector", _InventoryInspector, value) + End Set + End Property + + Property InventoryCreator As HRPerson + Get + Return _InventoryCreator + End Get + Set(value As HRPerson) + SetPropertyValue("InventoryCreator", _InventoryCreator, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/Popup/StorageOutRowsFromPDACollectionPopup.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/Popup/StorageOutRowsFromPDACollectionPopup.vb new file mode 100644 index 0000000..e1bcacf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/Popup/StorageOutRowsFromPDACollectionPopup.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StorageOutRowsFromPDACollectionPopup + Inherits BaseObject + + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutCirculation.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutCirculation.vb new file mode 100644 index 0000000..ebad870 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutCirculation.vb @@ -0,0 +1,179 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +'------------------------ Fogyás mátrix ----------------------------------------------------------------------------------------------- +Public Enum eCirculationType + eAccaount = 0 'Kiszámlázott tételek + eMoving = 1 'Mozgási tételek +End Enum + _ + _ +Public Class StorageOutCirculation 'Fogyási mátrix + Inherits BaseObject + Private _CirculationType As eCirculationType + Private _Storage As Storage 'Raktár + Private _Products As Products 'Termék + Private _YearExecution As Long 'Év + Private _Month01 As Double 'Januárban + Private _Month02 As Double 'Februárban + Private _Month03 As Double 'Márciusban + Private _Month04 As Double 'Áprilisban + Private _Month05 As Double 'Májusban + Private _Month06 As Double 'Júniusban + Private _Month07 As Double 'Júliusban + Private _Month08 As Double 'Augusztusban + Private _Month09 As Double 'Szeptemberben + Private _Month10 As Double 'Októberben + Private _Month11 As Double 'Novemberben + Private _Month12 As Double 'Decemberben + Private _Total As Double 'Év összesen + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property CirculationType As eCirculationType + Get + Return _CirculationType + End Get + Set(value As eCirculationType) + SetPropertyValue("CirculationType", _CirculationType, value) + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(ByVal value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property YearExecution As Long + Get + Return _YearExecution + End Get + Set(ByVal value As Long) + SetPropertyValue("YearExecution", _YearExecution, value) + End Set + End Property + Property Month01 As Double + Get + Return _Month01 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month01", _Month01, value) + End Set + End Property + Property Month02 As Double + Get + Return _Month02 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month02", _Month02, value) + End Set + End Property + Property Month03 As Double + Get + Return _Month03 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month03", _Month03, value) + End Set + End Property + Property Month04 As Double + Get + Return _Month04 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month04", _Month04, value) + End Set + End Property + Property Month05 As Double + Get + Return _Month01 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month05", _Month05, value) + End Set + End Property + Property Month06 As Double + Get + Return _Month06 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month06", _Month06, value) + End Set + End Property + Property Month07 As Double + Get + Return _Month07 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month07", _Month07, value) + End Set + End Property + Property Month08 As Double + Get + Return _Month08 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month08", _Month08, value) + End Set + End Property + Property Month09 As Double + Get + Return _Month09 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month09", _Month09, value) + End Set + End Property + Property Month10 As Double + Get + Return _Month10 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month10", _Month10, value) + End Set + End Property + Property Month11 As Double + Get + Return _Month11 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month11", _Month11, value) + End Set + End Property + Property Month12 As Double + Get + Return _Month12 + End Get + Set(ByVal value As Double) + SetPropertyValue("Month12", _Month12, value) + End Set + End Property + Property Total As Double + Get + Return _Total + End Get + Set(ByVal value As Double) + SetPropertyValue("Total", _Total, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb new file mode 100644 index 0000000..cfe2a9e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb @@ -0,0 +1,339 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eOutMode + eProducts = 0 + ePacketNumber = 1 + eSerialNumber = 2 +End Enum + +' _ +' _ + + _ + _ + _ +0", AppearanceItemType.ViewItem, "row_OutMode<>0", TargetItems:="row_StorageComputed", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ +6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageTo", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ +Public Class StorageOutHeader + Inherits BaseObject + Private _StorageMoveType As StorageMoveType + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _DocumentNumber As String + Private _Storage As Storage + Private _StorageTo As Storage + Private _CreateDate As Date + Private _Active As Boolean = True + Private _ObjectCreated As Date + Private _UserCreated As User 'Ki készítette + Private _IsStorno As Boolean = False + Private _IsEditable As Boolean = True + Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ? + Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. kitárolás + Private _WorkSheet_Header As WorkSheet_Header 'Melyik munkalaphoz kapcsolódik a kitárolás + Private _StoragePDACollectionHeader As StoragePDACollectionHeader + Private _ConnectInfo As String + + '---------------------------------------------------------------------------- + Private _row_OutMode As eOutMode + Private _row_QTT As Double + Private _row_QTT_Will As Double + Private _row_StorageComputed As StorageComputed + Private _row_StorageInRows As StorageInRows + '---------------------------------------------------------------------------- + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CreateDate = GetSQLTime(Session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(DocumentNumber) Then + _DocumentNumber = _Storage.NumberGeneratorOut.GetNewNumber(_Storage.NumberGeneratorOut) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + _ + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customres", _Customers, value) + End Set + End Property + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + Property Storage() As Storage + Get + Return _Storage + End Get + Set(ByVal value As Storage) + SetPropertyValue("Storage", _Storage, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If StorageMoveType IsNot Nothing Then + If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + Customers = value.CustomersFrom + End If + End If + End If + End Set + End Property + _ + _ + _ + Property StorageTo As Storage + Get + Return _StorageTo + End Get + Set(value As Storage) + SetPropertyValue("StorageTo", _StorageTo, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + If value Is Nothing Then + Customers = Nothing + Else + Customers = value.CustomersFrom + End If + End If + End If + End Set + End Property + + Property CreateDate() As Date + Get + Return _CreateDate + End Get + Set(ByVal value As Date) + SetPropertyValue("CreateDate", _CreateDate, value) + End Set + End Property + Property Active() As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + _ + Property ObjectCreated() As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property IsFinalized As Boolean + Get + Return _IsFinalized + End Get + Set(value As Boolean) + SetPropertyValue("IsFinalized", _IsFinalized, value) + End Set + End Property + + Property RecipeExecutionSimple As RecipeExecutionSimple + Get + Return _RecipeExecutionSimple + End Get + Set(value As RecipeExecutionSimple) + SetPropertyValue("RecipeExecutionSimple", _RecipeExecutionSimple, value) + End Set + End Property + 1")> _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property StoragePDACollectionHeader As StoragePDACollectionHeader + Get + Return _StoragePDACollectionHeader + End Get + Set(value As StoragePDACollectionHeader) + SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + + 'Nonpersistent + _ + _ + Property row_OutMode As eOutMode + Get + Return _row_OutMode + End Get + Set(value As eOutMode) + SetPropertyValue("row_OutMode", _row_OutMode, value) + End Set + End Property + _ + _ + Property row_QTT() As Double + Get + Return _row_QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("Row_QTT", _row_QTT, value) + End Set + End Property + _ + _ + _ + Property row_QTT_Will() As Double + Get + Return _row_QTT_Will + End Get + Set(ByVal value As Double) + SetPropertyValue("Row_QTT_Will", _row_QTT_Will, value) + End Set + End Property + _ + _ + _ + _ + _ + Property row_StorageComputed() As StorageComputed + Get + Return _row_StorageComputed + End Get + Set(ByVal value As StorageComputed) + SetPropertyValue("Row_StorageComputed", _row_StorageComputed, value) + End Set + End Property + _ + QTT_Out")> _ + _ + _ + Property row_StorageInRows As StorageInRows + Get + Return _row_StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("row_StorageInRows", _row_StorageInRows, value) + End Set + End Property + + 'XPCollections + _ + _ + Public ReadOnly Property StorageOutRows() As XPCollection(Of StorageOutRows) + Get + Return GetCollection(Of StorageOutRows)("StorageOutRows") + End Get + End Property + _ + ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows) + Get + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("1=2")) + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + For Each _StorageOutRows In Me.StorageOutRows + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + _StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows) + Next + Next + Return _StorageOutRowsInRows_Collection + End Get + End Property + _ + ReadOnly Property StorageInRows As XPCollection(Of StorageInRows) + Get + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("1=2")) + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + For Each _StorageOutRows In Me.StorageOutRows + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + _StorageInRows_Collection.Add(_StorageOutRowsInRows.StorageInRows) + Next + Next + Return _StorageInRows_Collection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRows.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRows.vb new file mode 100644 index 0000000..2685c67 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRows.vb @@ -0,0 +1,135 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class StorageOutRows + Inherits BaseObject + + Private _RowIndex As Long + Private _StorageOutHeader As StorageOutHeader ' -- Kitárolás fejléc + Private _StorageComputed As StorageComputed ' -- Raktárkészlet + Private _OrderInRows As OrderInRows '-- Bejövő megrendelés sora + Private _QTT As Double ' -- Mennyiség + Private _QTT_Will As Double ' -- Mennyiség (Szándék) + Private _QTT_To_DeliveryOut As Double '-- Kiszállított mennyiség + Private _Products As Products ' -- Termék + Private _OnStorno As Boolean = False ' -- Stornírozás alatt van e? + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + QTT = 0 + QTT_Will = 0 + QTT_To_DeliveryOut = 0 + OnStorno = False + RowIndex = -1 + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero) + QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero) + QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero) + End Sub + + Public Sub RemoveRows() + For Each _StorageOutRows As StorageOutRows In Me.StorageOutHeader.StorageOutRows + If _StorageOutRows.RowIndex > Me.RowIndex Then + _StorageOutRows.RowIndex -= 1 + End If + Next + End Sub + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property StorageOutHeader() As StorageOutHeader + Get + Return _StorageOutHeader + End Get + Set(ByVal value As StorageOutHeader) + SetPropertyValue("StorageOutHeader", _StorageOutHeader, value) + End Set + End Property + _ + Property StorageComputed() As StorageComputed + Get + Return _StorageComputed + End Get + Set(ByVal value As StorageComputed) + SetPropertyValue("StorageComputed", _StorageComputed, value) + End Set + End Property + Property OrderInRows() As OrderInRows + Get + Return _OrderInRows + End Get + Set(ByVal value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + _ + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + _ + Property QTT_Will() As Double + Get + Return _QTT_Will + End Get + Set(ByVal value As Double) + _QTT_Will = value + End Set + End Property + Property QTT_To_DeliveryOut As Double + Get + Return _QTT_To_DeliveryOut + End Get + Set(value As Double) + SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, value) + End Set + End Property + Property Products() As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property OnStorno() As Boolean + Get + Return _OnStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("OnStorno", _OnStorno, value) + End Set + End Property + _ + _ + Public ReadOnly Property StorageOutRowsInRows() As XPCollection(Of StorageOutRowsInRows) + Get + Return GetCollection(Of StorageOutRowsInRows)("StorageOutRowsInRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsInRows.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsInRows.vb new file mode 100644 index 0000000..6207efb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsInRows.vb @@ -0,0 +1,84 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Linq +Imports System.Linq.Expressions + + _ + _ + _ +Public Class StorageOutRowsInRows + Inherits BaseObject + Private _RowIndex As Long + Private _StorageOutRows As StorageOutRows + Private _StorageInRows As StorageInRows + Private _QTT As Double 'Kitárolt mennyiség + Private _QTT_To_DeliveryOut As Double 'Kiszállított mennyiség + Private _QTT_Will As Double 'Kiszállítási szándék + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero) + QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero) + QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero) + End Sub + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property StorageOutRows() As StorageOutRows + Get + Return _StorageOutRows + End Get + Set(ByVal value As StorageOutRows) + SetPropertyValue("StorageOutRows", _StorageOutRows, value) + End Set + End Property + Property StorageInRows() As StorageInRows + Get + Return _StorageInRows + End Get + Set(ByVal value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property QTT() As Double + Get + Return _QTT + End Get + Set(ByVal value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_To_DeliveryOut As Double + Get + Return _QTT_To_DeliveryOut + End Get + Set(value As Double) + SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, value) + End Set + End Property + Property QTT_Will As Double + Get + Return _QTT_Will + End Get + Set(value As Double) + SetPropertyValue("QTT_Will", _QTT_Will, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsLocation.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsLocation.vb new file mode 100644 index 0000000..c2b08ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutRowsLocation.vb @@ -0,0 +1,51 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageOutRowsLocation + Inherits BaseObject + + Private _StorageOutRows As StorageOutRows + Private _StorageComputedLocations As StorageComputedLocations + Private _QTT As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StorageOutRows As StorageOutRows + Get + Return _StorageOutRows + End Get + Set(value As StorageOutRows) + SetPropertyValue("StorageOutRows", _StorageOutRows, value) + End Set + End Property + Property StorageComputedLocations As StorageComputedLocations + Get + Return _StorageComputedLocations + End Get + Set(value As StorageComputedLocations) + SetPropertyValue("StorageComputedLocations", _StorageComputedLocations, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.Designer.vb new file mode 100644 index 0000000..182c996 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.Designer.vb @@ -0,0 +1,68 @@ +Partial Class StorageTransactionsOutPrint + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aStorageTransactionsOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageOutRowsInRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aStorageTransactionsOutPrint + ' + Me.aStorageTransactionsOutPrint.Caption = "aStorageTransactionsOutPrint" + Me.aStorageTransactionsOutPrint.Category = "View" + Me.aStorageTransactionsOutPrint.ConfirmationMessage = Nothing + Me.aStorageTransactionsOutPrint.Id = "aStorageTransactionsOutPrint" + Me.aStorageTransactionsOutPrint.ImageName = Nothing + Me.aStorageTransactionsOutPrint.Shortcut = Nothing + Me.aStorageTransactionsOutPrint.Tag = Nothing + Me.aStorageTransactionsOutPrint.TargetObjectsCriteria = Nothing + Me.aStorageTransactionsOutPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader) + Me.aStorageTransactionsOutPrint.TargetViewId = Nothing + Me.aStorageTransactionsOutPrint.ToolTip = Nothing + Me.aStorageTransactionsOutPrint.TypeOfView = Nothing + ' + 'aStorageOutRowsInRowsPrint + ' + Me.aStorageOutRowsInRowsPrint.Caption = "aStorageOutRowsInRowsPrint" + Me.aStorageOutRowsInRowsPrint.Category = "Print" + Me.aStorageOutRowsInRowsPrint.ConfirmationMessage = Nothing + Me.aStorageOutRowsInRowsPrint.Id = "aStorageOutRowsInRowsPrint" + Me.aStorageOutRowsInRowsPrint.ImageName = Nothing + Me.aStorageOutRowsInRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageOutRowsInRowsPrint.Shortcut = Nothing + Me.aStorageOutRowsInRowsPrint.Tag = Nothing + Me.aStorageOutRowsInRowsPrint.TargetObjectsCriteria = Nothing + Me.aStorageOutRowsInRowsPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageOutRowsInRows) + Me.aStorageOutRowsInRowsPrint.TargetViewId = Nothing + Me.aStorageOutRowsInRowsPrint.ToolTip = Nothing + Me.aStorageOutRowsInRowsPrint.TypeOfView = Nothing + + End Sub + Friend WithEvents aStorageTransactionsOutPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageOutRowsInRowsPrint As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.resx new file mode 100644 index 0000000..fac411b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 344, 186 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.vb new file mode 100644 index 0000000..e41b6e2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutPrint.vb @@ -0,0 +1,51 @@ +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.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + +Public Class StorageTransactionsOutPrint + Inherits DevExpress.ExpressApp.ViewController + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Private Sub aStorageTransactionsOutPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsOutPrint.Execute + Dim _ReportData As ReportData + Dim _StorageOutHeader As StorageOutHeader + If e.SelectedObjects.Count > 0 Then + _StorageOutHeader = TryCast(e.SelectedObjects.Item(0), StorageOutHeader) + If _StorageOutHeader Is Nothing Then + Else + _ReportData = _StorageOutHeader.Storage.ReportOut + If _ReportData Is Nothing Or _StorageOutHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True) + End If + End If + End If + End Sub + Private Sub aStorageOutRowsInRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageOutRowsInRowsPrint.Execute + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader + If _StorageOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!") + Dim _ReportData As ReportData = _StorageOutHeader.Storage.ReportOut + If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!") + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.Designer.vb new file mode 100644 index 0000000..24a4f26 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.Designer.vb @@ -0,0 +1,272 @@ +Partial Class StorageTransactionsOutVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aFinalizeAndNew_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSOFinList_Order = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToEdit_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateDeliveryNote = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aUp_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToStorageOutFromOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageOutStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalize_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageOutFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreatePDACollectionFromStorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageOutPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aFinalizeAndNew_StorageOut + ' + Me.aFinalizeAndNew_StorageOut.Caption = "aStorage Out Final And New" + Me.aFinalizeAndNew_StorageOut.Category = "RecordEdit" + Me.aFinalizeAndNew_StorageOut.ConfirmationMessage = Nothing + Me.aFinalizeAndNew_StorageOut.Id = "aFinalizeAndNew_StorageOut" + Me.aFinalizeAndNew_StorageOut.ImageName = Nothing + Me.aFinalizeAndNew_StorageOut.Shortcut = Nothing + Me.aFinalizeAndNew_StorageOut.Tag = Nothing + Me.aFinalizeAndNew_StorageOut.TargetObjectsCriteria = Nothing + Me.aFinalizeAndNew_StorageOut.TargetViewId = Nothing + Me.aFinalizeAndNew_StorageOut.ToolTip = Nothing + Me.aFinalizeAndNew_StorageOut.TypeOfView = Nothing + ' + 'aToTable_StorageOut + ' + Me.aToTable_StorageOut.Caption = "aSOHTo Table" + Me.aToTable_StorageOut.Category = "aToTable_StorageOut" + Me.aToTable_StorageOut.ConfirmationMessage = Nothing + Me.aToTable_StorageOut.Id = "aToTable_StorageOut" + Me.aToTable_StorageOut.ImageName = Nothing + Me.aToTable_StorageOut.Shortcut = Nothing + Me.aToTable_StorageOut.Tag = Nothing + Me.aToTable_StorageOut.TargetObjectsCriteria = Nothing + Me.aToTable_StorageOut.TargetViewId = Nothing + Me.aToTable_StorageOut.ToolTip = Nothing + Me.aToTable_StorageOut.TypeOfView = Nothing + ' + 'aSOFinList_Order + ' + Me.aSOFinList_Order.Caption = "aSOFinList_Order" + Me.aSOFinList_Order.ConfirmationMessage = Nothing + Me.aSOFinList_Order.Id = "aSOFinList_Order" + Me.aSOFinList_Order.ImageName = Nothing + Me.aSOFinList_Order.Shortcut = Nothing + Me.aSOFinList_Order.Tag = Nothing + Me.aSOFinList_Order.TargetObjectsCriteria = Nothing + Me.aSOFinList_Order.TargetViewId = "StorageOutRows_ListView_Order" + Me.aSOFinList_Order.ToolTip = Nothing + Me.aSOFinList_Order.TypeOfView = Nothing + ' + 'aBackToEdit_StorageOut + ' + Me.aBackToEdit_StorageOut.Caption = "aBack To Edit SOH" + Me.aBackToEdit_StorageOut.Category = "Edit" + Me.aBackToEdit_StorageOut.ConfirmationMessage = Nothing + Me.aBackToEdit_StorageOut.Id = "aBackToEdit_StorageOut" + Me.aBackToEdit_StorageOut.ImageName = Nothing + Me.aBackToEdit_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToEdit_StorageOut.Shortcut = Nothing + Me.aBackToEdit_StorageOut.Tag = Nothing + Me.aBackToEdit_StorageOut.TargetObjectsCriteria = Nothing + Me.aBackToEdit_StorageOut.TargetViewId = "" + Me.aBackToEdit_StorageOut.ToolTip = Nothing + Me.aBackToEdit_StorageOut.TypeOfView = Nothing + ' + 'aToTableD_StorageOut + ' + Me.aToTableD_StorageOut.Caption = "Delete row" + Me.aToTableD_StorageOut.Category = "aToTableD_StorageOut" + Me.aToTableD_StorageOut.ConfirmationMessage = Nothing + Me.aToTableD_StorageOut.Id = "aToTableD_StorageOut" + Me.aToTableD_StorageOut.ImageName = Nothing + Me.aToTableD_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_StorageOut.Shortcut = Nothing + Me.aToTableD_StorageOut.Tag = Nothing + Me.aToTableD_StorageOut.TargetObjectsCriteria = Nothing + Me.aToTableD_StorageOut.TargetViewId = "" + Me.aToTableD_StorageOut.ToolTip = Nothing + Me.aToTableD_StorageOut.TypeOfView = Nothing + ' + 'aCreateDeliveryNote + ' + Me.aCreateDeliveryNote.AcceptButtonCaption = Nothing + Me.aCreateDeliveryNote.CancelButtonCaption = Nothing + Me.aCreateDeliveryNote.Caption = "Create Delivery Note" + Me.aCreateDeliveryNote.ConfirmationMessage = Nothing + Me.aCreateDeliveryNote.Id = "aCreateDeliveryNote" + Me.aCreateDeliveryNote.ImageName = Nothing + Me.aCreateDeliveryNote.Shortcut = Nothing + Me.aCreateDeliveryNote.Tag = Nothing + Me.aCreateDeliveryNote.TargetObjectsCriteria = Nothing + Me.aCreateDeliveryNote.TargetViewId = Nothing + Me.aCreateDeliveryNote.ToolTip = Nothing + Me.aCreateDeliveryNote.TypeOfView = Nothing + ' + 'aUp_StorageOut + ' + Me.aUp_StorageOut.Caption = "Up" + Me.aUp_StorageOut.Category = "RecordsNavigation" + Me.aUp_StorageOut.ConfirmationMessage = Nothing + Me.aUp_StorageOut.Id = "aUp_StorageOut" + Me.aUp_StorageOut.ImageName = "arrow_up_green" + Me.aUp_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_StorageOut.Shortcut = Nothing + Me.aUp_StorageOut.Tag = Nothing + Me.aUp_StorageOut.TargetObjectsCriteria = Nothing + Me.aUp_StorageOut.TargetViewId = Nothing + Me.aUp_StorageOut.ToolTip = Nothing + Me.aUp_StorageOut.TypeOfView = Nothing + ' + 'aDown_StorageOut + ' + Me.aDown_StorageOut.Caption = "Down" + Me.aDown_StorageOut.Category = "RecordsNavigation" + Me.aDown_StorageOut.ConfirmationMessage = Nothing + Me.aDown_StorageOut.Id = "aDown_StorageOut" + Me.aDown_StorageOut.ImageName = "arrow_down_green" + Me.aDown_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_StorageOut.Shortcut = Nothing + Me.aDown_StorageOut.Tag = Nothing + Me.aDown_StorageOut.TargetObjectsCriteria = Nothing + Me.aDown_StorageOut.TargetViewId = Nothing + Me.aDown_StorageOut.ToolTip = Nothing + Me.aDown_StorageOut.TypeOfView = Nothing + ' + 'aBackToStorageOutFromOrderIn + ' + Me.aBackToStorageOutFromOrderIn.Caption = "aBack To Storage Out From Order In" + Me.aBackToStorageOutFromOrderIn.Category = "View" + Me.aBackToStorageOutFromOrderIn.ConfirmationMessage = "Do you want to execute?" + Me.aBackToStorageOutFromOrderIn.Id = "aBackToStorageOutFromOrderIn" + Me.aBackToStorageOutFromOrderIn.ImageName = Nothing + Me.aBackToStorageOutFromOrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToStorageOutFromOrderIn.Shortcut = Nothing + Me.aBackToStorageOutFromOrderIn.Tag = Nothing + Me.aBackToStorageOutFromOrderIn.TargetObjectsCriteria = Nothing + Me.aBackToStorageOutFromOrderIn.TargetViewId = "" + Me.aBackToStorageOutFromOrderIn.ToolTip = Nothing + Me.aBackToStorageOutFromOrderIn.TypeOfView = Nothing + ' + 'aStorageOutStorno + ' + Me.aStorageOutStorno.Caption = "aStorage Out Storno" + Me.aStorageOutStorno.Category = "Edit" + Me.aStorageOutStorno.ConfirmationMessage = Nothing + Me.aStorageOutStorno.Id = "aStorageOutStorno" + Me.aStorageOutStorno.ImageName = "document_delete" + Me.aStorageOutStorno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageOutStorno.Shortcut = Nothing + Me.aStorageOutStorno.Tag = Nothing + Me.aStorageOutStorno.TargetObjectsCriteria = Nothing + Me.aStorageOutStorno.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader) + Me.aStorageOutStorno.TargetViewId = Nothing + Me.aStorageOutStorno.ToolTip = Nothing + Me.aStorageOutStorno.TypeOfView = Nothing + ' + 'aFinalize_StorageOut + ' + Me.aFinalize_StorageOut.Caption = "aStorage Out Final" + Me.aFinalize_StorageOut.Category = "RecordEdit" + Me.aFinalize_StorageOut.ConfirmationMessage = Nothing + Me.aFinalize_StorageOut.Id = "aFinalize_StorageOut" + Me.aFinalize_StorageOut.ImageName = Nothing + Me.aFinalize_StorageOut.Shortcut = Nothing + Me.aFinalize_StorageOut.Tag = Nothing + Me.aFinalize_StorageOut.TargetObjectsCriteria = Nothing + Me.aFinalize_StorageOut.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader) + Me.aFinalize_StorageOut.TargetViewId = Nothing + Me.aFinalize_StorageOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalize_StorageOut.ToolTip = Nothing + Me.aFinalize_StorageOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aStorageOutFromPdaCollection + ' + Me.aStorageOutFromPdaCollection.AcceptButtonCaption = Nothing + Me.aStorageOutFromPdaCollection.CancelButtonCaption = Nothing + Me.aStorageOutFromPdaCollection.Caption = "StorageOut From Pda Collection" + Me.aStorageOutFromPdaCollection.Category = "aStorageOutFromPdaCollection" + Me.aStorageOutFromPdaCollection.ConfirmationMessage = Nothing + Me.aStorageOutFromPdaCollection.Id = "aStorageOutFromPdaCollection" + Me.aStorageOutFromPdaCollection.ImageName = Nothing + Me.aStorageOutFromPdaCollection.Shortcut = Nothing + Me.aStorageOutFromPdaCollection.Tag = Nothing + Me.aStorageOutFromPdaCollection.TargetObjectsCriteria = Nothing + Me.aStorageOutFromPdaCollection.TargetViewId = Nothing + Me.aStorageOutFromPdaCollection.ToolTip = Nothing + Me.aStorageOutFromPdaCollection.TypeOfView = Nothing + ' + 'aCreatePDACollectionFromStorageOut + ' + Me.aCreatePDACollectionFromStorageOut.Caption = "aCreatePDACollectionFromStorageOut" + Me.aCreatePDACollectionFromStorageOut.Category = "aCreatePDACollectionFromStorageOut" + Me.aCreatePDACollectionFromStorageOut.ConfirmationMessage = Nothing + Me.aCreatePDACollectionFromStorageOut.Id = "aCreatePDACollectionFromStorageOut" + Me.aCreatePDACollectionFromStorageOut.ImageName = "pda" + Me.aCreatePDACollectionFromStorageOut.Shortcut = Nothing + Me.aCreatePDACollectionFromStorageOut.Tag = Nothing + Me.aCreatePDACollectionFromStorageOut.TargetObjectsCriteria = Nothing + Me.aCreatePDACollectionFromStorageOut.TargetViewId = Nothing + Me.aCreatePDACollectionFromStorageOut.ToolTip = Nothing + Me.aCreatePDACollectionFromStorageOut.TypeOfView = Nothing + ' + 'aGenerateStorageOutPDACollection + ' + Me.aGenerateStorageOutPDACollection.AcceptButtonCaption = Nothing + Me.aGenerateStorageOutPDACollection.CancelButtonCaption = Nothing + Me.aGenerateStorageOutPDACollection.Caption = "aGenerateStorageOutPDACollection" + Me.aGenerateStorageOutPDACollection.Category = "Edit" + Me.aGenerateStorageOutPDACollection.ConfirmationMessage = Nothing + Me.aGenerateStorageOutPDACollection.Id = "aGenerateStorageOutPDACollection" + Me.aGenerateStorageOutPDACollection.ImageName = Nothing + Me.aGenerateStorageOutPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateStorageOutPDACollection.Shortcut = Nothing + Me.aGenerateStorageOutPDACollection.Tag = Nothing + Me.aGenerateStorageOutPDACollection.TargetObjectsCriteria = Nothing + Me.aGenerateStorageOutPDACollection.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader) + Me.aGenerateStorageOutPDACollection.TargetViewId = Nothing + Me.aGenerateStorageOutPDACollection.ToolTip = Nothing + Me.aGenerateStorageOutPDACollection.TypeOfView = Nothing + + End Sub + Friend WithEvents aFinalizeAndNew_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSOFinList_Order As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToEdit_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateDeliveryNote As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aUp_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToStorageOutFromOrderIn As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageOutStorno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalize_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageOutFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreatePDACollectionFromStorageOut As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateStorageOutPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.resx new file mode 100644 index 0000000..9f858ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 524 + + + 17, 485 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 329 + + + 17, 290 + + + 17, 173 + + + 17, 251 + + + 17, 212 + + + 17, 56 + + + 17, 134 + + + 17, 95 + + + 908, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb new file mode 100644 index 0000000..66603eb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Out/StorageTransactionsOutVC.vb @@ -0,0 +1,1377 @@ +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.Session +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class StorageTransactionsOutVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False) ' -- Kitárolási biz. véglegesítése és új nyitása + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", False) ' -- Kitárolási biz. stornírozása + Frame.GetController(Of StorageTransactionsOutVC)().aToTable_StorageOut.Active.SetItemValue("", False) ' -- Kitárolási biz. sor hozzáadása + Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False) ' -- Véglegesített Kit. biz. szerkeszthetőre állítása + Frame.GetController(Of StorageTransactionsOutVC)().aToTableD_StorageOut.Active.SetItemValue("", False) ' -- Sor törlése kitárolási biz ról + Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False) ' -- Szállítólevél készítése a kiválasztott kit sorokból + Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False) ' -- Kitárolási sor lejebb + Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False) ' -- Kitárolási sor feljebb + Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutFromPdaCollection.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", False) + '------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- + 'If View.Id = "StorageOutHeader_ListView" Or View.Id = "StorageOutHeader_ListView_Editable" Then + ' AddHandler View.SelectionChanged, AddressOf SelectionChanged + 'End If + If View.Id = "StorageOutHeader_ListView" Then + Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", True) + End If + + If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC).aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True) + End If + If View.Id = "StorageOutHeader_ListView_Editable" Then + Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageOutHeader_ListView" Then + Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "StorageOutRows_ListView_Order" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", True) + End If + If View.Id = "StorageOutRows_ListView_DeliveryNote" Then + Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", True) + End If + If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ + If View.Id = "StorageOutHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", True) + End If + End If + + If View.Id = "StorageOutHeader_DetailView" Then + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + Dim _IsFromOrderIn As Boolean = False + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True) + + If _StorageOutHeader IsNot Nothing Then + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni + If _StorageOutRows.OrderInRows IsNot Nothing Then + _IsFromOrderIn = True + End If + Next + If (_StorageOutHeader.IsStorno = True Or _StorageOutHeader.IsEditable = True) Or _IsFromOrderIn = True Then + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", False) + End If + If _StorageOutHeader.IsStorno = False And _StorageOutHeader.IsEditable = False And _IsFromOrderIn = False Then + If _IsFromOrderIn = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", True) + End If + End If + If _StorageOutHeader.IsEditable = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aToTable_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aToTableD_StorageOut.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutFromPdaCollection.Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aCreatePDACollectionFromStorageOut.Active.SetItemValue("", True) + End If + End If + + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + '------------------------------------------ LISTVIEWS -------------------------------------------------------------------------------------------------------- + If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageOutHeader_ListView" Then + Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", False) + End If + + If View.Id = "StorageOutHeader_StorageOutRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC)().aUp_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aDown_StorageOut.Active.SetItemValue("", False) + End If + If View.Id = "StorageOutHeader_ListView_Editable" Then + Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageOutHeader_ListView" Then + Frame.GetController(Of StorageTransactionsOutPrint)().aStorageTransactionsOutPrint.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "StorageOutRows_ListView_Order" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of StorageTransactionsOutVC).aBackToStorageOutFromOrderIn.Active.SetItemValue("", False) + End If + If View.Id = "StorageOutRows_ListView_DeliveryNote" Then + Frame.GetController(Of StorageTransactionsOutVC)().aCreateDeliveryNote.Active.SetItemValue("", False) + End If + If View.Id = "StorageOutRowsFromPDACollectionPopup_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + '------------------------------------------ DETAILVIEWS ------------------------------------------------------------------------------------------------------ + If View.Id = "StorageOutHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aBackToEdit_StorageOut.Active.SetItemValue("", False) + End If + End If + + If View.Id = "StorageOutHeader_DetailView" Then + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + Dim _IsFromOrderIn As Boolean = False + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + + If _StorageOutHeader IsNot Nothing Then + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows ' Végigmegy a kit biz sorain és ha talál olyan sort ahol van hozzá megrendelési sor akkor nem engedi stornózni + If _StorageOutRows.OrderInRows IsNot Nothing Then + _IsFromOrderIn = True + End If + Next + If (_StorageOutHeader.IsStorno = True Or _StorageOutHeader.IsEditable = True) Or _IsFromOrderIn = True Then + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", True) + End If + If _StorageOutHeader.IsStorno = False And _StorageOutHeader.IsEditable = False And _IsFromOrderIn = False Then + If _IsFromOrderIn = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aStorageOutStorno.Active.SetItemValue("", False) + End If + End If + If _StorageOutHeader.IsEditable = False Then + Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of StorageTransactionsOutVC)().aFinalizeAndNew_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aFinalize_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aToTable_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aToTableD_StorageOut.Active.SetItemValue("", False) + Frame.GetController(Of StorageTransactionsOutVC)().aCreatePDACollectionFromStorageOut.Active.SetItemValue("", False) + End If + End If + End If + End Sub + Private Sub aStorageOutStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageOutStorno.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + Dim _StorageOutHeader As StorageOutHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageOutHeader)) + If _StorageOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + If _StorageOutHeader.IsStorno = True Then Throw New Exception(String.Format("A {0} bizonylat már stornózva lett!", _StorageOutHeader.DocumentNumber) _ + + vbNewLine + "Kérem, ellenőrizze!") + + Dim _StorageOutRowsDelivered As StorageOutRows = Nothing + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + If _StorageOutRows.QTT_To_DeliveryOut > 0 Then + _StorageOutRowsDelivered = _StorageOutRows + Exit For + End If + Next + If _StorageOutRowsDelivered IsNot Nothing Then Throw New Exception(String.Format("A {0} termékből a {1} sorszámú kitárolási soron {2}{3} kiszállításar került!", _ + _StorageOutRowsDelivered.Products.ShortName, _StorageOutRowsDelivered.RowIndex, _StorageOutRowsDelivered.QTT_To_DeliveryOut, _StorageOutRowsDelivered.Products.Units.ShortName) _ + + vbNewLine + "Kérem, ellenőrizze!") + + '--==Zárolás==-- + '____________________________________________________________________________________________________________________ + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageOutHeaderNew As New StorageOutHeader(_onew.Session) + With _StorageOutHeaderNew + .ConnectInfo = _StorageOutHeader.DocumentNumber + .Storage = _StorageOutHeader.Storage + .StorageMoveType = _StorageOutHeader.StorageMoveType + .CustomersFrom = _StorageOutHeader.CustomersFrom + .Customers = _StorageOutHeader.Customers + .Active = False + .IsStorno = True + .IsEditable = False + End With + _StorageOutHeader = _onew.GetObject(_StorageOutHeader) + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsStorno = True + _StorageOutHeader.Active = False + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsNew As New StorageOutRows(_onew.Session) + With _StorageOutRowsNew + .RowIndex = _StorageOutRows.RowIndex + .StorageOutHeader = _StorageOutHeaderNew + .StorageComputed = _StorageOutRows.StorageComputed + .OrderInRows = _StorageOutRows.OrderInRows + .QTT = _StorageOutRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .Products = _StorageOutRows.Products + .OnStorno = True + End With + '----Vissza raktárba + mozgástábla + '____________________________________________________ + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _StorageOutHeader.Storage, _StorageOutRows.Products)) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows=?", _ + _StorageOutRowsInRows.StorageInRows, _StorageOutRows)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageComputed.QTTFree += _StorageOutRowsInRows.QTT + + Dim _StorageOutRowsInRowsNew As New StorageOutRowsInRows(_onew.Session) + With _StorageOutRowsInRowsNew + .StorageInRows = _StorageOutRowsInRows.StorageInRows + .StorageOutRows = _StorageOutRowsNew + .QTT = _StorageOutRowsInRows.QTT * (-1) + .QTT_Will = 0 + .QTT_To_DeliveryOut = 0 + .StorageInRows.QTT_Out -= _StorageOutRowsInRows.QTT + End With + + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged -= _StorageOutRowsInRows.QTT + End If + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.QTT = _StorageOutRowsInRows.QTT + _StorageMoveEvents.StorageOutRows = _StorageOutRows + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutStorno + _StorageMoveEvents.ExecutionDate = _StorageOutRows.StorageOutHeader.CreateDate + + _StorageOutRows.QTT = 0 + Next + Next + + _onew.CommitChanges() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aToTable_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_StorageOut.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Dim _StorageOutHeader_Original As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + + '--1. Levesszük a Nonpersistent propertyket az aktuális objektumról -------------------------------------------------------------------------------------------------- + Dim _row_QTT_Will As Double = _StorageOutHeader_Original.row_QTT_Will + Dim _row_OutMode As eOutMode = _StorageOutHeader_Original.row_OutMode + Dim _row_StorageComputed_Oid As System.Guid + If _row_OutMode = eOutMode.eProducts Then + _row_StorageComputed_Oid = _StorageOutHeader_Original.row_StorageComputed.Oid + End If + + Dim _row_StorageInRows_Oid As System.Guid + If _StorageOutHeader_Original.row_OutMode <> eOutMode.eProducts Then + _row_StorageInRows_Oid = _StorageOutHeader_Original.row_StorageInRows.Oid + + End If + '--------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + Dim _StorageOutHeader As StorageOutHeader = _onew.GetObjectByKey(Of StorageOutHeader)(TryCast(View.SelectedObjects(0), StorageOutHeader).Oid) + + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _StorageOutRows As StorageOutRows + Dim _StorageComputed As StorageComputed + + Dim _row_StorageComputed As StorageComputed = _onew.GetObjectByKey(Of StorageComputed)(_row_StorageComputed_Oid) + Dim _row_StorageInRows As StorageInRows = _onew.GetObjectByKey(Of StorageInRows)(_row_StorageInRows_Oid) + Dim _StorageInRows As StorageInRows + Dim _StorageInRows_Collection As XPCollection(Of StorageInRows) + + Dim _StorageOutRows_R As StorageOutRows + Dim _StorageOutRows_Collection_R As XPCollection(Of StorageOutRows) + + Dim _QTT_Mod As Double = 0 + Dim _QTT_Free As Double = 0 + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Will_Out As Double = 0 + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + If _row_OutMode = eOutMode.eProducts Then + If _row_StorageComputed.QTTFree < _row_QTT_Will Then + Throw New Exception("*Ebből a termékből ebben a raktárban ennyi nem áll rendellkezésre!") + End If + _StorageOutRows = _onew.FindObject(Of StorageOutRows) _ + (CriteriaOperator.Parse("StorageOutHeader=? and Products=?", _ + _StorageOutHeader, _row_StorageComputed.Products), True) + If _StorageOutRows Is Nothing Then + _StorageOutRows = New StorageOutRows(_onew.Session) + _StorageOutRows.StorageOutHeader = _StorageOutHeader + _StorageOutRows.Products = _row_StorageComputed.Products + + End If + + _StorageInRows_Collection = New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInHeader.Storage=? and StorageInHeader.IsEditable=False and StorageInHeader.IsStorno=False and Products=?", _ + _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_row_StorageComputed.Products))) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + _QTT_Mod = _row_QTT_Will + For Each _StorageInRows In _StorageInRows_Collection + _QTT_Free = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + If _QTT_Free > 0 Then + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _StorageInRows.Save() + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _onew.GetObject(_StorageInRows), _onew.GetObject(_StorageOutRows))) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageOutRowsInRows.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + _StorageInRows.Save() + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _onew.GetObject(_StorageInRows), _onew.GetObject(_StorageOutRows))) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageOutRowsInRows.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + End If + Next + If _StorageOutRows.RowIndex = -1 Then + If _StorageOutHeader.StorageOutRows.Count = 0 Then + _StorageOutRows.RowIndex = 1 + Else + _StorageOutRows.RowIndex = _StorageOutHeader.StorageOutRows.Count + End If + End If + _StorageOutRows.Save() + + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_row_StorageComputed.Products))) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + _StorageOutRows_Collection_R = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_row_StorageComputed.Products))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + + _onew.CommitChanges() + Else + _StorageOutRows = _onew.FindObject(Of StorageOutRows)(CriteriaOperator.Parse("StorageOutHeader=? and Products=?", _ + _onew.GetObject(_StorageOutHeader), _onew.GetObject(_row_StorageInRows.Products)), True) + If _StorageOutRows Is Nothing Then + _StorageOutRows = New StorageOutRows(_onew.Session) + _StorageOutRows.StorageOutHeader = _onew.GetObject(_StorageOutHeader) + _StorageOutRows.Products = _onew.GetObject(_row_StorageInRows.Products) + + End If + + _StorageInRows_Collection = New XPCollection(Of StorageInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("Oid=?", _row_StorageInRows.Oid)) + _StorageInRows_Collection.Sorting.Add(New SortProperty("StorageInHeader.CreateDate", DB.SortingDirection.Ascending)) + + _QTT_Mod = _row_QTT_Will + For Each _StorageInRows In _StorageInRows_Collection + _QTT_Free = _StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will + + If _QTT_Free < _QTT_Mod Then + _StorageInRows.QTT_Out_Will += _QTT_Free + _StorageOutRows.QTT_Will += _QTT_Free + _QTT_Mod -= _QTT_Free + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _onew.GetObject(_StorageInRows), _onew.GetObject(_StorageOutRows))) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Free + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageOutRowsInRows.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageOutRowsInRows.QTT = _QTT_Free + End If + + Else + _StorageInRows.QTT_Out_Will += _QTT_Mod + _StorageOutRows.QTT_Will += _QTT_Mod + '------- FIFO sor beszúrása + _StorageOutRowsInRows = _onew.FindObject(Of StorageOutRowsInRows)(CriteriaOperator.Parse("StorageInRows=? and StorageOutRows=?", _ + _onew.GetObject(_StorageInRows), _onew.GetObject(_StorageOutRows)), True) + If _StorageOutRowsInRows IsNot Nothing Then + _StorageOutRowsInRows.QTT += _QTT_Mod + Else + _StorageOutRowsInRows = New StorageOutRowsInRows(_onew.Session) + _StorageOutRowsInRows.StorageInRows = _onew.GetObject(_StorageInRows) + _StorageOutRowsInRows.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageOutRowsInRows.QTT = _QTT_Mod + End If + + Exit For + End If + Next + If _StorageOutRows.RowIndex = -1 Then + If _StorageOutHeader.StorageOutRows.Count = 0 Then + _StorageOutRows.RowIndex = 1 + Else + _StorageOutRows.RowIndex = _StorageOutHeader.StorageOutRows.Count + End If + End If + _StorageOutRows.Save() + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _ + _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_row_StorageInRows.Products)), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + _StorageOutRows_Collection_R = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_row_StorageInRows.Products))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + + _onew.CommitChanges() + + If _StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageOutHeader.StorageInRows) + End If + + End If + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aFinalizeAndNew_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeAndNew_StorageOut.Execute, aFinalize_StorageOut.Execute + '--Az eljárás egy kitárolást véglegesít és nyit egy újat + 'Ide lett irányítva a aFinalize_StorageOut_Execute is!!!!!!!!!! Ez így jó, vagy szét kell szedni külön? + '_______________________________________________________________________________________________ + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageOutHeader As StorageOutHeader = _onew.GetObjectByKey(Of StorageOutHeader)(TryCast(View.SelectedObjects(0), StorageOutHeader).Oid) + If _StorageOutHeader.Storage Is Nothing Then Throw New Exception("*Nincs beállítva raktár!") + If _StorageOutHeader.StorageOutRows.Count = 0 Then Throw New Exception("*Nincs egyetlen kitárolási sor sem!") + + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _onew.GetObject(_StorageOutRows))) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _onew.GetObject(_StorageOutRowsInRows.StorageInRows))) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageOutRowsInRows.StorageInRows) + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows) + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + End If + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + If _StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRows.OrderInRows.QTT_Storaged += _StorageOutRows.OrderInRows.QTT_Storaged_Will + _StorageOutRows.OrderInRows.QTT_Storaged_Will = 0 + End If + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _onew.GetObject(_StorageOutRows.Products), _ + _onew.GetObject(_StorageOutRows.StorageOutHeader.Storage)), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + + + '//Ha 9-es tipusú a mozgás akkor be kell állítani bejövő szállítólevelenként a visszárúzott szumma mennyiséget !!! + + + + If _StorageOutHeader.StorageMoveType.MoveType = eMoveType.ReturnBack Then + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _StorageOutRowsInRows2 As StorageOutRowsInRows + + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.QTT_Returned = 0 + End If + Next + Next + + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_onew.Session, + CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType='ReturnBack' and " + + " StorageOutRows.StorageOutHeader.IsEditable=False and " + + " StorageInRows.DeliveryNoteInRows.Oid=?", _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Oid)) + Dim _QTT_Returned As Double = 0 + For Each _StorageOutRowsInRows2 In _StorageOutRowsInRows_Collection + _QTT_Returned += _StorageOutRowsInRows2.QTT + Next + _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.QTT_Returned += _QTT_Returned + _StorageOutRowsInRows.QTT + End If + Next + Next + End If + + _onew.CommitChanges() + If _StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageOutHeader.StorageInRows) + End If + + If sender.id = "aFinalizeAndNew_StorageOut" Then + Frame.GetController(Of NewObjectViewController)().NewObjectAction.DoExecute(Frame.GetController(Of NewObjectViewController)().NewObjectAction.Items(0)) + End If + + Dim _ReportData As ReportData = _onew.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageOutHeader.Storage.ReportOut.Oid), True) + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber=?", _StorageOutHeader.DocumentNumber), True) + Else + MsgBox("Nincs beállítva nyomtatvány!") + End If + View.Close() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aSOFinList_Order_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSOFinList_Order.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutHeader As StorageOutHeader = Nothing + Dim _IsHeaderCreated As Boolean = False + Dim _StorageOutHeader_Collection As New ArrayList + Dim _StorageOutHeader_Exists As Boolean = False + + _StorageOutHeader_Collection.Clear() + + For Each _StorageOutRows In e.SelectedObjects + _StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageOutHeader_Exists = False + For Each _StorageOutHeader In _StorageOutHeader_Collection + If _StorageOutRows.StorageOutHeader.Oid = _StorageOutHeader.Oid Then + _StorageOutHeader_Exists = True + Exit For + End If + Next + If _StorageOutHeader_Exists = False Then + _StorageOutHeader_Collection.Add(_StorageOutRows.StorageOutHeader) + End If + Next + + For Each _StorageOutHeader In _StorageOutHeader_Collection + Dim _StorageComputed As StorageComputed + Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _QTT_Free_Before As Double = 0 + Dim _QTT_Free_After As Double = 0 + + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.QTT > 0 Then + + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageInRows=?", _StorageOutRowsInRows.StorageInRows)) + + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Descending)) + + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _StorageOutRowsInRows.QTT + + Dim _StorageMoveEvents As StorageMoveEvents = _onew.CreateObject(Of StorageMoveEvents)() + _StorageMoveEvents.StorageInRows = _StorageOutRowsInRows.StorageInRows + _StorageMoveEvents.StorageOutRows = _StorageOutRowsInRows.StorageOutRows + If _StorageMoveEvents_Collection.Count > 0 Then + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + Else + _StorageMoveEvents.QTT_Free_Before = 0 + End If + _StorageMoveEvents.QTT = (-1) * _StorageOutRowsInRows.QTT + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutFinal + _StorageMoveEvents.ExecutionDate = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate + _StorageMoveEvents.Save() + End If + + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + If _StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRows.OrderInRows.QTT_Storaged += _StorageOutRows.OrderInRows.QTT_Storaged_Will + _StorageOutRows.OrderInRows.QTT_Storaged_Will = 0 + End If + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + _StorageOutHeader.IsEditable = False + _StorageOutHeader.IsFinalized = True + _StorageOutHeader.CreateDate = GetSQLTime(_onew.Session) + Next + Next + _onew.CommitChanges() 'Véglegesítjük az újonnan létrehozott fejlécet ezáltal a sorai kitárolt állapotba kerülnek + + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aBackToEdit_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_StorageOut.Execute + '-- Az akció egy véglegesített kitárolási bizonylatot állít vissza szerkeszthetőre ------------------------- + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _StorageOutHeader As StorageOutHeader = _onew.GetObjectByKey(Of StorageOutHeader)(TryCast(View.SelectedObjects(0), StorageOutHeader).Oid) + Try + If _StorageOutHeader.IsEditable = False And _StorageOutHeader.IsStorno = False And _StorageOutHeader.Active = True Then + Dim _AllowBackToEdit = False + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + If _StorageOutRows.QTT_To_DeliveryOut = 0 And _StorageOutRows.QTT_Will = 0 Then + _AllowBackToEdit = True + Exit For + End If + Next + + If _AllowBackToEdit = True Then + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + _StorageOutHeader.IsEditable = True + + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + _StorageOutRows.QTT_Will = _StorageOutRows.QTT + _StorageOutRows.Save() + + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _ + _onew.GetObject(_StorageOutHeader.Storage), _onew.GetObject(_StorageOutRows.Products))) + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_onew.Session, CriteriaOperator.Parse("StorageInRows=? AND StorageOutRows=?", _ + _onew.GetObject(_StorageOutRowsInRows.StorageInRows), _onew.GetObject(_StorageOutRows))) + + _StorageComputed.QTTReservedOut += _StorageOutRowsInRows.QTT + + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will += _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageInRows.QTT_Out -= _StorageOutRowsInRows.QTT + + If _StorageOutRowsInRows.StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged -= _StorageOutRowsInRows.QTT + _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_Storaged_Will += _StorageOutRowsInRows.QTT + End If + + Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session) + _StorageMoveEvents.QTT = _StorageOutRowsInRows.QTT + _StorageMoveEvents.StorageOutRows = _onew.GetObject(_StorageOutRows) + _StorageMoveEvents.StorageInRows = _onew.GetObject(_StorageOutRowsInRows.StorageInRows) + _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents_Collection(0).QTT_Free_After + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageOutBackToEdit + _StorageMoveEvents.ExecutionDate = _StorageOutRows.StorageOutHeader.CreateDate + + _StorageOutRows.QTT = 0 + Next + + Next + _onew.CommitChanges() + End If + End If + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aToTableD_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_StorageOut.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageOutHeader As StorageOutHeader = _onew.GetObjectByKey(Of StorageOutHeader)(TryCast(View.SelectedObjects(0), StorageOutHeader).Oid) + Dim _StorageOutHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("StorageOutRows") + + Dim _StorageOutRows As StorageOutRows + + Dim _StorageOutRows_R As StorageOutRows + Dim _StorageOutRows_Collection_R As XPCollection(Of StorageOutRows) + + Dim _StorageComputed As StorageComputed + Dim _Storage As Storage = Nothing + + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + + Dim _QTT_Process As Double = 0 + Dim _QTT_Mod As Double = 0 + + Dim _QTT_Mod_In As Double = 0 + + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Will_Out As Double = 0 + + Dim _StorageOutRows_Original As StorageOutRows + + For Each _StorageOutRows_Original In _StorageOutHeader_ListEditor.ListView.SelectedObjects + + _StorageOutRows = _onew.GetObjectByKey(Of StorageOutRows)(_StorageOutRows_Original.Oid) + + _QTT_Mod = Math.Round(_StorageOutRows.QTT_Will, 4, MidpointRounding.AwayFromZero) + _Storage = _StorageOutRows.StorageOutHeader.Storage + _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=? and QTT>0", _onew.GetObject(_StorageOutRows))) + If _QTT_Mod <= _StorageOutRows.QTT_Will Then + _StorageOutRows.QTT_Will -= _QTT_Mod + ' _StorageOutRows.Save() + _StorageOutRows.Delete() + '--- FIFO sor !!! + _QTT_Mod_In = _QTT_Mod + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _QTT_Mod_In <= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will Then + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _QTT_Mod_In + _StorageOutRowsInRows.QTT -= _QTT_Mod_In + Exit For + Else + _QTT_Mod_In -= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will + _StorageOutRowsInRows.QTT = 0 + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will = 0 + End If + Next + Else + _QTT_Mod -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + _StorageOutRows.Delete() + '--- FIFO sor + _QTT_Mod_In = _QTT_Mod + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _QTT_Mod_In <= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will Then + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _QTT_Mod_In + _StorageOutRowsInRows.QTT -= _QTT_Mod_In + Exit For + Else + _QTT_Mod_In -= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will + _StorageOutRowsInRows.QTT = 0 + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will = 0 + End If + Next + End If + '--- StorageComputed újraszámolása + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _onew.GetObject(_Storage), _onew.GetObject(_StorageOutRows.Products)), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + _StorageOutRows_Collection_R = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _onew.GetObject(_Storage), _onew.GetObject(_StorageOutRows.Products))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += Math.Round(_StorageOutRows_R.QTT_Will, 2, MidpointRounding.AwayFromZero) + Next + + _StorageComputed.QTTFree = Math.Round(_StorageComputed.QTTFree - (Math.Round(_QTT_Will_Out, 2, MidpointRounding.AwayFromZero) - Math.Round(_QTT_ReservedOut, 2, MidpointRounding.AwayFromZero)), 2, MidpointRounding.AwayFromZero) + _StorageComputed.QTTReservedOut = Math.Round(_QTT_Will_Out, 2, MidpointRounding.AwayFromZero) + Next + _onew.CommitChanges() + + If _StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer Then + CheckInventoryTransferStorageInRows(_uow, _StorageOutHeader.StorageInRows) + End If + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub aUp_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_StorageOut.Execute + ' A kiválaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutRows).StorageOutHeader + Dim _StorageOutRowsSelected As StorageOutRows + Dim _StorageOutRowsMinus As StorageOutRows = Nothing + Dim _StorageOutRows As StorageOutRows + + Try + _StorageOutRowsSelected = TryCast(View.SelectedObjects(0), StorageOutRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _StorageOutRowsSelected.RowIndex > 0 Then + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + If _StorageOutRows.RowIndex = _StorageOutRowsSelected.RowIndex - 1 Then + _StorageOutRowsMinus = _StorageOutRows + Exit For + End If + Next + + If _StorageOutRowsMinus IsNot Nothing Then + _StorageOutRowsSelected.RowIndex -= 1 + _StorageOutRowsMinus.RowIndex += 1 + End If + + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aDown_StorageOut_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_StorageOut.Execute + ' A kiválaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutRows).StorageOutHeader + Dim _StorageOutRowsSelected As StorageOutRows + Dim _StorageOutRowsPlus As StorageOutRows = Nothing + Dim _StorageOutrows As StorageOutRows + + Try + _StorageOutRowsSelected = TryCast(View.SelectedObjects(0), StorageOutRows) ' Kiveszi a kijelölt sorok közül az elsőt + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!") + End Try + + If _StorageOutRowsSelected.RowIndex < _StorageOutHeader.StorageOutRows.Count - 1 Then + For Each _StorageOutrows In _StorageOutHeader.StorageOutRows + If _StorageOutrows.RowIndex = _StorageOutRowsSelected.RowIndex + 1 Then + _StorageOutRowsPlus = _StorageOutrows + Exit For + End If + Next + + If _StorageOutRowsPlus IsNot Nothing Then + _StorageOutRowsSelected.RowIndex += 1 + _StorageOutRowsPlus.RowIndex -= 1 + End If + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aCreateDeliveryNote_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateDeliveryNote.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DeliveryNoteView As DeliveryNoteView = _onew.CreateObject(Of DeliveryNoteView)() + + e.View = Application.CreateDetailView(_onew, "DeliveryNoteView_DetailView", False, _DeliveryNoteView) + End Sub + Private Sub aCreateDeliveryNote_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateDeliveryNote.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteView As DeliveryNoteView = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteView) + Dim _DeliveryNoteOutHeader_New As DeliveryNoteOutHeader = _ocur.CreateObject(Of DeliveryNoteOutHeader)() + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim i As Integer = 0 + + _DeliveryNoteOutHeader_New.CurrencyName = _ocur.GetObject(_DeliveryNoteView.CurrencyName) + _DeliveryNoteOutHeader_New.Customers = _ocur.GetObject(_DeliveryNoteView.Customers) + _DeliveryNoteOutHeader_New.CustomersFrom = _ocur.GetObject(_DeliveryNoteView.CustomersFrom) + _DeliveryNoteOutHeader_New.DateCreated = GetSQLTime(_ocur.Session) + _DeliveryNoteOutHeader_New.DateExecution = _ocur.GetObject(_DeliveryNoteView.DateExecution) + _DeliveryNoteOutHeader_New.Note = _ocur.GetObject(_DeliveryNoteView.Note) + _DeliveryNoteOutHeader_New.QualityOption = _ocur.GetObject(_DeliveryNoteView.QualityOption) + _DeliveryNoteOutHeader_New.ShipmentOption = _ocur.GetObject(_DeliveryNoteView.ShipmentOption) + _DeliveryNoteOutHeader_New.TransportAddress = _ocur.GetObject(_DeliveryNoteView.TransportAddress) + + For Each _StorageOutRows In View.SelectedObjects + Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = _ocur.CreateObject(Of DeliveryNoteOutRows)() + + _DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader_New + _DeliveryNoteOutRows.QTT = _StorageOutRows.QTT_Will + + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + _DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows + Next + + _DeliveryNoteOutRows.RowIndex = i + i += 1 + Next + _ocur.CommitChanges() + End Sub + Private Sub aBackToStorageOutFromOrderIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToStorageOutFromOrderIn.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + + Try + If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-")) + + Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking") + Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError") + MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title) + + Exit Sub + Else + Dim _StorageOutRows As StorageOutRows = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageOutRows)) + Dim _OrderInRows As OrderInRows = _onew.GetObjectByKey(Of OrderInRows)(_StorageOutRows.OrderInRows.Oid) + Dim _StorageComputed As StorageComputed + + Dim _QTT_Mod As Double = 0 + Dim _QTT_Mod_In As Double = 0 + Dim _QTT_ReservedOut As Double = 0 + Dim _QTT_Process As Double = 0 + Dim _QTT_Will_Out As Double = 0 + + Dim _StorageOutRows_Collection As XPCollection(Of StorageOutRows) + Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Dim _StorageOutRows_Collection_R As XPCollection(Of StorageOutRows) + + Dim _Storage As Storage + + + + '-- FIFO láb alapján vissza ! + _QTT_Process = _StorageOutRows.QTT_Will + _QTT_Mod = _StorageOutRows.QTT_Will + _StorageOutRows_Collection = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("Oid=?", _StorageOutRows.Oid)) + For Each _StorageOutRows In _StorageOutRows_Collection + _Storage = _onew.GetObject(_StorageOutRows.StorageOutHeader.Storage) + _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("StorageOutRows=? and QTT>0", _onew.GetObject(_StorageOutRows))) + If _QTT_Mod <= _StorageOutRows.QTT_Will Then + _StorageOutRows.QTT_Will -= _QTT_Mod + _StorageOutRows.Save() + '--- FIFO sor !!! + _QTT_Mod_In = _QTT_Mod + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _QTT_Mod_In <= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will Then + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _QTT_Mod_In + _StorageOutRowsInRows.QTT -= _QTT_Mod_In + Exit For + Else + _QTT_Mod_In -= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will + _StorageOutRowsInRows.QTT = 0 + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will = 0 + End If + Next + Else + _QTT_Mod -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + _StorageOutRows.Save() + '--- FIFO sor + _QTT_Mod_In = _QTT_Mod + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _QTT_Mod_In <= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will Then + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will -= _QTT_Mod_In + _StorageOutRowsInRows.QTT -= _QTT_Mod_In + Exit For + Else + _QTT_Mod_In -= _StorageOutRowsInRows.StorageInRows.QTT_Out_Will + _StorageOutRowsInRows.QTT = 0 + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will = 0 + End If + Next + End If + _OrderInRows.QTT_Storaged_Will -= _QTT_Process + '--- StorageComputed újraszámolása + + _StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", _onew.GetObject(_Storage), _onew.GetObject(_OrderInRows.Products)), True) + _QTT_ReservedOut = _StorageComputed.QTTReservedOut + _StorageOutRows_Collection_R = New XPCollection(Of StorageOutRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _onew.Session, _ + CriteriaOperator.Parse("QTT_Will>0 and StorageOutHeader.Storage=? and Products=?", _onew.GetObject(_Storage), _onew.GetObject(_OrderInRows.Products))) + For Each _StorageOutRows_R In _StorageOutRows_Collection_R + _QTT_Will_Out += _StorageOutRows_R.QTT_Will + Next + + _StorageComputed.QTTFree = _StorageComputed.QTTFree - (_QTT_Will_Out - _QTT_ReservedOut) + _StorageComputed.QTTReservedOut = _QTT_Will_Out + Next + _onew.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba") + Finally + LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User) + End Try + End Sub + Private Sub sis_SOFinal(ByVal _StorageOutHeader As StorageOutHeader, ByVal _ocur As Xpo.XPObjectSpace) + Dim _StorageComputed As StorageComputed + Dim _StorageOutRows As StorageOutRows + Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Dim _StorageOutRowsInRows As StorageOutRowsInRows + Dim _QTT_Free_Before As Double = 0 + Dim _QTT_Free_After As Double = 0 + For Each _StorageOutRows In _StorageOutHeader.StorageOutRows + _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + + For Each _StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StorageOutRowsInRows.StorageInRows.QTT_Out += _StorageOutRowsInRows.StorageInRows.QTT_Out_Will + _StorageOutRowsInRows.StorageInRows.QTT_Out_Will = 0 + _StorageOutRowsInRows.StorageInRows.QTT_Will = 0 + + '--- Esemény beszúrása !!!!! + + + Next + + _StorageOutRows.QTT += _StorageOutRows.QTT_Will + + If _StorageOutRows.OrderInRows IsNot Nothing Then + _StorageOutRows.OrderInRows.QTT_Storaged += _StorageOutRows.OrderInRows.QTT_Storaged_Will + _StorageOutRows.OrderInRows.QTT_Storaged_Will = 0 + End If + _StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageOutRows.Products, _StorageOutRows.StorageOutHeader.Storage), True) + _StorageComputed.QTTReservedOut -= _StorageOutRows.QTT_Will + _StorageOutRows.QTT_Will = 0 + Next + _ocur.CommitChanges() + End Sub + Private Sub aStorageOutFromPdaCollection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aStorageOutFromPdaCollection.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StoragePDACollectionHeader_Collection As New XPCollection(Of StoragePDACollectionHeader)(_onew.Session) + + Dim _CS As New CollectionSource(_onew, GetType(StorageOutRowsFromPDACollectionPopup)) + + For Each _StoragePDACollectionHeader As StoragePDACollectionHeader In _StoragePDACollectionHeader_Collection + Dim _StorageInRowsFromPDACollectionPopup As StorageOutRowsFromPDACollectionPopup = _onew.CreateObject(Of StorageOutRowsFromPDACollectionPopup)() + _StorageInRowsFromPDACollectionPopup.StoragePDACollectionHeader = _StoragePDACollectionHeader + + _CS.Add(_StorageInRowsFromPDACollectionPopup) + Next + + e.View = Application.CreateListView("StorageOutRowsFromPDACollectionPopup_ListView", _CS, False) + End Sub + Private Sub aStorageOutFromPdaCollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aStorageOutFromPdaCollection.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen kollekció sem!" + vbNewLine _ + + "A művelet megszakadt.") + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + For Each _StorageOutRowsFromPDACollectionPopup As StorageOutRowsFromPDACollectionPopup In e.PopupWindow.View.SelectedObjects + If _StorageOutRowsFromPDACollectionPopup.StoragePDACollectionHeader.StoragePDACollectionRows.Count > 0 Then + Dim _StorageComputed As StorageComputed + For Each _StoragePDACollectionRows As StoragePDACollectionRows In _StorageOutRowsFromPDACollectionPopup.StoragePDACollectionHeader.StoragePDACollectionRows + _StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? AND Products=?", _StorageOutHeader.Storage, _ + _ocur.GetObjectByKey(Of Products)(_StoragePDACollectionRows.Products.Oid))) + + If _StorageComputed Is Nothing Then Throw New Exception("*Egy vagy több termékhez nem tartozik betárolás!" + vbNewLine + "A művelet megszakadt.") + + _StorageOutHeader.row_StorageComputed = _StorageComputed + _StorageOutHeader.row_QTT_Will = _StoragePDACollectionRows.QTT + Frame.GetController(Of StorageTransactionsOutVC).aToTable_StorageOut.DoExecute() + _StorageComputed = Nothing + Next + End If + Next + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly, "Hiba!") + End Try + End Sub + Private Sub aCreatePDACollectionFromStorageOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreatePDACollectionFromStorageOut.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + If _StorageOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a kellemetlenségért elnézést kérünk! A folyamat megszakadt.") + If _StorageOutHeader.StorageOutRows.Count = 0 Then Throw New Exception("*Nincs egy kitárolási sor sem, így nem készíthető PDA kollekció sem!") + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _ocur.CreateObject(Of StoragePDACollectionHeader)() + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen + _StoragePDACollectionHeader.StoragePDAParameters = _ocur.FindObject(Of StoragePDAParameters) _ + (CriteriaOperator.Parse("CustomersFrom=?", _StorageOutHeader.CustomersFrom)) + _StoragePDACollectionHeader.StorageCollectionType = eStoragePDACollectionType.eIsLocationOut + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + If _StorageOutRows.QTT_Will > 0 Then + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)() + _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader + _StoragePDACollectionRows.Products = _StorageOutRows.Products + _StoragePDACollectionRows.QTT = _StorageOutRows.QTT_Will + End If + Next + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly, "Hiba!") + End Try + End Sub + + Private Sub aGenerateStorageOutPDACollection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageOutPDACollection.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GenerateStorageInPDALocationCollection As GenerateStorageInPDALocationCollection = _onew.CreateObject(Of GenerateStorageInPDALocationCollection)() + e.View = Application.CreateDetailView(_onew, "GenerateStorageInPDALocationCollection_DetailView", False, _GenerateStorageInPDALocationCollection) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aGenerateStorageOutPDACollection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageOutPDACollection.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutHeader) + Dim _GenerateStorageInPDALocationCollection As GenerateStorageInPDALocationCollection = TryCast(e.PopupWindow.View.SelectedObjects(0), GenerateStorageInPDALocationCollection) + If _StorageOutHeader Is Nothing Then Throw New Exception("*Nincs kijelölve egyetlen véglegesített betárolás sem!") + Dim _StoragePDACollectionHeader As StoragePDACollectionHeader = _ocur.CreateObject(Of StoragePDACollectionHeader)() + _StoragePDACollectionHeader.StoragePDACollectionHeaderStatus = eStoragePDACollectionHeaderStatus.eOpen + _StoragePDACollectionHeader.StorageCollectionType = eStoragePDACollectionType.eIsLocationOut + _StoragePDACollectionHeader.StoragePDAParameters = _ocur.GetObjectByKey(Of StoragePDAParameters)(_GenerateStorageInPDALocationCollection.StoragePDAParameters.Oid) + If _StorageOutHeader.StorageOutRows.Count > 0 Then + For Each _StorageOutRows As StorageOutRows In _StorageOutHeader.StorageOutRows + If _StorageOutRows.Products.ProductType = eProductType.ePacketNumber Or _ + _StorageOutRows.Products.ProductType = eProductType.eSerialNumber Then + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, CriteriaOperator.Parse("StorageOutRows=?", _StorageOutRows)) + Dim _StorageComputedLocations_Collection As XPCollection(Of StorageComputedLocations) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + If _StorageOutRowsInRows.StorageInRows.SerialNumber Is Nothing Or _StorageOutRowsInRows.StorageInRows.SerialNumber = "" Then + _StorageComputedLocations_Collection = New XPCollection(Of StorageComputedLocations)(_ocur.Session, CriteriaOperator.Parse("PacketNumber=?", _StorageOutRowsInRows.StorageInRows.PacketNumber)) + End If + If _StorageOutRowsInRows.StorageInRows.PacketNumber Is Nothing Or _StorageOutRowsInRows.StorageInRows.PacketNumber = "" Then + _StorageComputedLocations_Collection = New XPCollection(Of StorageComputedLocations)(_ocur.Session, CriteriaOperator.Parse("SerialNumber=?", _StorageOutRowsInRows.StorageInRows.SerialNumber)) + End If + + If _StorageComputedLocations_Collection.Count > 0 Then Exit For + Next + + If _StorageComputedLocations_Collection.Count = 0 Then Throw New Exception("*Nincs a raktárban elhelyezve a termék!") + Dim _QTT As Double = _StorageOutRows.QTT + + For Each _StorageComputedLocations As StorageComputedLocations In _StorageComputedLocations_Collection + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)() + _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader + _StoragePDACollectionRows.Products = _StorageOutRows.Products + _StoragePDACollectionRows.StorageLocation = _StorageComputedLocations.StorageLocation + _StoragePDACollectionRows.DateModified = GetSQLTime(_ocur.Session) + _StoragePDACollectionRows.SerialNumber = _StorageComputedLocations.SerialNumber + _StoragePDACollectionRows.PacketNumber = _StorageComputedLocations.PacketNumber + _StoragePDACollectionHeader.StorageOutHeader = _StorageOutHeader + + If _StorageComputedLocations.QTT >= _QTT Then + _StoragePDACollectionRows.QTT = _QTT + _StorageComputedLocations.QTT -= _QTT + _QTT = 0 + Else + _StoragePDACollectionRows.QTT += _StorageComputedLocations.QTT + _QTT -= _StorageComputedLocations.QTT + _StorageComputedLocations.QTT = 0 + End If + If _QTT = 0 Then Exit For + Next + Else + Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? AND Storage=?", _StorageOutRows.Products, _StorageOutHeader.Storage)) + Dim _StorageComputedLocations_Collection As New XPCollection(Of StorageComputedLocations)(_ocur.Session, CriteriaOperator.Parse("StorageComputed=?", _StorageComputed)) + If _StorageComputedLocations_Collection.Count = 0 Then Throw New Exception("*Nincs elhelyezve termék!") + Dim _QTT As Double = _StorageOutRows.QTT + + For Each _StorageComputedLocations As StorageComputedLocations In _StorageComputedLocations_Collection + Dim _StoragePDACollectionRows As StoragePDACollectionRows = _ocur.CreateObject(Of StoragePDACollectionRows)() + _StoragePDACollectionRows.StoragePDACollectionHeader = _StoragePDACollectionHeader + _StoragePDACollectionRows.Products = _StorageOutRows.Products + _StoragePDACollectionRows.StorageLocation = _StorageComputedLocations.StorageLocation + _StoragePDACollectionRows.DateModified = GetSQLTime(_ocur.Session) + _StoragePDACollectionHeader.StorageOutHeader = _StorageOutHeader + + If _StorageComputedLocations.QTT >= _QTT Then + _StoragePDACollectionRows.QTT = _QTT + _StorageComputedLocations.QTT -= _QTT + _QTT = 0 + Else + _StoragePDACollectionRows.QTT += _StorageComputedLocations.QTT + _QTT -= _StorageComputedLocations.QTT + _StorageComputedLocations.QTT = 0 + End If + If _QTT = 0 Then Exit For + Next + End If + Next + End If + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveLocationOtherLocation_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveLocationOtherLocation_PopUp.vb new file mode 100644 index 0000000..aa1c221 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveLocationOtherLocation_PopUp.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class MoveLocationOtherLocation_PopUp + Inherits BaseObject + Private _StorageLocation As StorageLocation + Private _NewStorageLocation As StorageLocation + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + _ + Property StorageLocation As StorageLocation + Get + Return _StorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("StorageLocation", _StorageLocation, value) + + End Set + End Property + _ + Property NewStorageLocation As StorageLocation + Get + Return _NewStorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("NewStorageLocation", _NewStorageLocation, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveProductsOtherLocation_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveProductsOtherLocation_PopUp.vb new file mode 100644 index 0000000..fe73d24 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/MoveProductsOtherLocation_PopUp.vb @@ -0,0 +1,67 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class MoveProductsOtherLocation_PopUp + Inherits BaseObject + + Private _StorageLocation As StorageLocation + Private _NewStorageLocation As StorageLocation + Private _Criteria As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Criteria = "1=2" + End Sub + + _ + Property StorageLocation As StorageLocation + Get + Return _StorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("StorageLocation", _StorageLocation, value) + End Set + End Property + _ + Property NewStorageLocation As StorageLocation + Get + Return _NewStorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("NewStorageLocation", _NewStorageLocation, value) + End Set + End Property + Property Criteria As String + Get + Return _Criteria + End Get + Set(value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + '------------------Readonly-------------- + ReadOnly Property StorageComputedLocations As XPCollection(Of StorageComputedLocations) + Get + If Criteria <> "1=2" Then + Return New XPCollection(Of StorageComputedLocations)(Session, CriteriaOperator.Parse(Criteria)) + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/SetSIRPrice_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/SetSIRPrice_PopUp.vb new file mode 100644 index 0000000..c5a2625 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/SetSIRPrice_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class SetSIRPrice_PopUp + Inherits BaseObject + + Private _AveragePriceInHUF As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property AveragePriceInHUF As Double + Get + Return _AveragePriceInHUF + End Get + Set(value As Double) + SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/ShowStorageOutDeliveryOutRows_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/ShowStorageOutDeliveryOutRows_PopUp.vb new file mode 100644 index 0000000..b1e0ac9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/ShowStorageOutDeliveryOutRows_PopUp.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class ShowStorageOutDeliveryOutRows_PopUp + Inherits BaseObject + + Private _OrderInRows As OrderInRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property OrderInRows As OrderInRows + Get + Return _OrderInRows + End Get + Set(value As OrderInRows) + SetPropertyValue("OrderInRows", _OrderInRows, value) + End Set + End Property + + ReadOnly Property StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows) + Get + Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.Oid=?", OrderInRows)) + End Get + End Property + ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows) + Get + Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows=?", OrderInRows)) + End Get + End Property + ReadOnly Property DeliveryNoteInRows As XPCollection(Of DeliveryNoteInRows) + Get + Return New XPCollection(Of DeliveryNoteInRows)(Session, CriteriaOperator.Parse("Products=? AND QTT <> QTT_Controlled", OrderInRows.Products)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/StorageDateClearingPrice_GeneterateDate2Date_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/StorageDateClearingPrice_GeneterateDate2Date_PopUp.vb new file mode 100644 index 0000000..dab1d80 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/PopUp/StorageDateClearingPrice_GeneterateDate2Date_PopUp.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class StorageDateClearingPrice_GeneterateDate2Date_PopUp + Inherits BaseObject + + Dim _StartDate As Date + Dim _EndDate As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StartDate As Date + Get + Return _StartDate + End Get + Set(value As Date) + SetPropertyValue("StartDate", _StartDate, value) + End Set + End Property + Property EndDate As Date + Get + Return _EndDate + End Get + Set(value As Date) + SetPropertyValue("EndDate", _EndDate, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb new file mode 100644 index 0000000..b7623d6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb @@ -0,0 +1,157 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Reflection + + +'------------------------------- Raktárkezelés ----------------------------------------------------------------------------------- + _ + _ +Public Class Storage '-- Raktárak ------------ + Inherits BaseObject + Private _CustomersFrom As CustomersFrom ' -- Saját cég + Private _Address As Address ' -- Cím + Private _ShortName As String ' -- Megnevezés + Private _Description As String ' -- Leírás + Private _NumberGeneratorOut As NumberGenerator ' -- Sorszám generátor kitárolás + Private _NumberGeneratorIn As NumberGenerator ' -- Sorszám generátor betárolás + Private _NumberGeneratorOutS As NumberGenerator ' -- Sorszám generátor kitárolás storno + Private _NumberGeneratorInS As NumberGenerator ' -- Sorszám generátor betárolás storno + Private _ReportIn As ReportData ' -- Nyomtatvány betárolás + Private _ReportOut As ReportData ' -- Nyomtatvány kitárolás + Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Address As Address + Get + Return _Address + End Get + Set(ByVal value As Address) + SetPropertyValue("Address", _Address, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property NumberGeneratorOut As NumberGenerator + Get + Return _NumberGeneratorOut + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorOut", _NumberGeneratorOut, value) + End Set + End Property + _ + Property NumberGeneratorIn As NumberGenerator + Get + Return _NumberGeneratorIn + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorIn", _NumberGeneratorIn, value) + End Set + End Property + _ + Property NumberGeneratorOutS As NumberGenerator + Get + Return _NumberGeneratorOutS + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorOutS", _NumberGeneratorOutS, value) + End Set + End Property + _ + Property NumberGeneratorInS As NumberGenerator + Get + Return _NumberGeneratorInS + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorInS", _NumberGeneratorInS, value) + End Set + End Property + Property ReportIn As ReportData + Get + Return _ReportIn + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportIn", _ReportIn, value) + End Set + End Property + Property ReportOut As ReportData + Get + Return _ReportOut + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportOut", _ReportOut, value) + End Set + End Property + Property ReportInventory As ReportData + Get + Return _ReportInventory + End Get + Set(value As ReportData) + SetPropertyValue("ReportInventory", _ReportInventory, value) + End Set + End Property + + '-------------ReadOnly-------------- + _ + Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address) + Get + Dim _Address_Collection As New XPCollection(Of Address)(Session, CriteriaOperator.Parse("Oid<>Oid")) + _Address_Collection.Add(CustomersFrom.Address1) + _Address_Collection.Add(CustomersFrom.Address2) + + Dim _CustomersAddress_Collection As New XPCollection(Of CustomersAddress)(Session, CriteriaOperator.Parse("Customers.Oid=?", CustomersFrom.Oid)) + Dim _CustomersAddress As CustomersAddress + + For Each _CustomersAddress In _CustomersAddress_Collection + _Address_Collection.Add(_CustomersAddress.Address) + Next + + + Return _Address_Collection + End Get + End Property + +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb new file mode 100644 index 0000000..3008ed0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb @@ -0,0 +1,232 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + + _ + _ + _ +Public Class StorageComputed '-- Kszletinfo + Inherits BaseObject + Private _Storage As Storage ' -- Raktr + Private _Products As Products ' -- Termk + Private _QTTFree As Double = 0 ' -- Szabad kszlet + Private _QTTReserved As Double = 0 ' -- Foglals kitrolsra + Private _QTTReservedIn As Double = 0 ' -- Betrols alatt + Private _QTTReservedOut As Double = 0 ' -- Kitrols alatt + Private _QTT_Minimum As Double 'Minimum mennyisg + Private _QTT_Maximum As Double 'Feltlts erre a mennyisgre + Private _QTT_Remainder_In As Double 'Nem teljestett kimen megrendels a szllt fel + Private _QTT_Remainder_To As Double 'Nem teljestett tovbbrendelt ttel + Private _QTT_FIFO As Double 'sszes betrolt mennyisg minus a kitrolt mennyisg StorageInRows.QTT-StorageInRows-QTT_Out ez mindig >= 0 (nulla)! + Private _AveragePriceInHUF As Double 'tlagr forintban + Private _MimumumPriceOutHUF As Double 'tlagrbl szmtott minmimlis eladsi r + Private _MinimumPriceIsChecked As Boolean = False 'Az tlagrbl szmtott adat rendben van-e + Private _PricingMinimum As PricingMinimum 'Mimimum r szmt rutin + + Private _SumAveragePriceInHUFFree As Double 'sszesen tlagr szerinti kszlet rtk HUF + Private _SumFIFOPriceInHUFFree As Double 'FIFO szerinti kszletrtk HUF + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + '// Ments utn + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + '// Mentskor + Me.RecalculateAveragePrice() + Me.RecalculateMinimumPrice() + End Sub + Property Storage As Storage + Get + Return _Storage + End Get + Set(ByVal value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(ByVal value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property QTTFree As Double + Get + Return _QTTFree + End Get + Set(ByVal value As Double) + SetPropertyValue("QTTFree", _QTTFree, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property QTTReserved As Double + Get + Return _QTTReserved + End Get + Set(ByVal value As Double) + SetPropertyValue("QTTReserved", _QTTReserved, value) + End Set + End Property + Property QTTReservedIn As Double + Get + Return _QTTReservedIn + End Get + Set(ByVal value As Double) + SetPropertyValue("QTTReservedIn", _QTTReservedIn, value) + End Set + End Property + Property QTTReservedOut As Double + Get + Return _QTTReservedOut + End Get + Set(ByVal value As Double) + SetPropertyValue("QTTReservedOut", _QTTReservedOut, value) + End Set + End Property + Property QTT_Minimum As Double + Get + Return _QTT_Minimum + End Get + Set(value As Double) + SetPropertyValue("QTT_Minimum", _QTT_Minimum, value) + End Set + End Property + Property QTT_Maximum As Double + Get + Return _QTT_Maximum + End Get + Set(value As Double) + SetPropertyValue("QTT_Maximum", _QTT_Maximum, value) + End Set + End Property + + Property QTT_Remainder_In As Double + Get + Return _QTT_Remainder_In + End Get + Set(value As Double) + SetPropertyValue("QTT_Remainder_In", _QTT_Remainder_In, value) + End Set + End Property + Property QTT_Remainder_To As Double + Get + Return _QTT_Remainder_To + End Get + Set(value As Double) + SetPropertyValue("QTT_Remainder_To", _QTT_Remainder_To, value) + End Set + End Property + Property QTT_FIFO As Double + Get + Return _QTT_FIFO + End Get + Set(value As Double) + SetPropertyValue("QTT_FIFO", _QTT_FIFO, value) + End Set + End Property + + Property AveragePriceInHUF As Double + Get + Return _AveragePriceInHUF + End Get + Set(value As Double) + SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value) + End Set + End Property + Property MimumumPriceOutHUF As Double + Get + Return _MimumumPriceOutHUF + End Get + Set(value As Double) + SetPropertyValue("MimumumPriceOutHUF", _MimumumPriceOutHUF, value) + End Set + End Property + Property PricingMinimum As PricingMinimum + Get + Return _PricingMinimum + End Get + Set(value As PricingMinimum) + SetPropertyValue("PricingMinimum", _PricingMinimum, value) + End Set + End Property + Property MinimumPriceIsChecked As Boolean + Get + Return _MinimumPriceIsChecked + End Get + Set(value As Boolean) + SetPropertyValue("MinimumPriceIsChecked", _MinimumPriceIsChecked, value) + End Set + End Property + + Property SumAveragePriceInHUFFree As Double + Get + Return _SumAveragePriceInHUFFree + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceInHUFFree", _SumAveragePriceInHUFFree, value) + End Set + End Property + Property SumFIFOPriceInHUFFree As Double + Get + Return _SumFIFOPriceInHUFFree + End Get + Set(value As Double) + SetPropertyValue("SumFIFOPriceInHUFFree", _SumFIFOPriceInHUFFree, value) + End Set + End Property + '//XPCollections + _ + ReadOnly Property StorageInRows As XPCollection(Of StorageInRows) + Get + Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("StorageInHeader.Storage=? and Products=?", Me.Storage, Me.Products)) + End Get + End Property + _ + ReadOnly Property StorageMoveEvents As XPCollection(Of StorageMoveEvents) + Get + Return New XPCollection(Of StorageMoveEvents)(Session, CriteriaOperator.Parse("IsNull(StorageInRows.GCRecord)=True and IsNull(StorageInRows.StorageInHeader.GCRecord)=True and StorageInRows.Storage=? and StorageInRows.Products=?", Me.Storage, Me.Products)) + End Get + End Property + + Public Sub RecalculateAveragePrice() + If Me.Storage Is Nothing Then Exit Sub + If Me.Products Is Nothing Then Exit Sub + + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(Session, CriteriaOperator.Parse("Products=?", Me.Products)) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + + AveragePriceInHUF = 0 + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection + _AveragePriceInHUF = _StorageDateClearingPrice.AveragePriceHUF_After + Exit For + Next + Me.SumAveragePriceInHUFFree = Me.QTTFree * Me.AveragePriceInHUF + End Sub + Public Sub RecalculateMinimumPrice() + If Me.PricingMinimum IsNot Nothing Then + MimumumPriceOutHUF = Math.Round(AveragePriceInHUF * (1 + (Me.PricingMinimum.PricePercent / 100)), 0, MidpointRounding.AwayFromZero) + Else + MimumumPriceOutHUF = 0 + Me.MinimumPriceIsChecked = False + End If + End Sub + Sub RecalculateSumFIFOPriceInHUFFree() + + + End Sub + +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations.vb new file mode 100644 index 0000000..10390cb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageComputedLocations + Inherits BaseObject + + Private _StorageComputed As StorageComputed + Private _PacketNumber As String 'Ktegszm + Private _SerialNumber As String 'Sorozatszm + Private _QTT As Double + Private _StorageLocation As StorageLocation + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property StorageComputed As StorageComputed + Get + Return _StorageComputed + End Get + Set(value As StorageComputed) + SetPropertyValue("StorageComputed", _StorageComputed, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property StorageLocation As StorageLocation + Get + Return _StorageLocation + End Get + Set(value As StorageLocation) + SetPropertyValue("StorageLocation", _StorageLocation, value) + End Set + End Property + Property PacketNumber As String + Get + Return _PacketNumber + End Get + Set(value As String) + SetPropertyValue("PacketNumber", _PacketNumber, value) + End Set + End Property + Property SerialNumber As String + Get + Return _SerialNumber + End Get + Set(value As String) + SetPropertyValue("SerialNumber", _SerialNumber, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.Designer.vb new file mode 100644 index 0000000..2993a8d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.Designer.vb @@ -0,0 +1,71 @@ +Partial Class StorageComputedLocations_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMoveProductsOtherLocation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMoveLocationOtherLocation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aMoveProductsOtherLocation + ' + Me.aMoveProductsOtherLocation.AcceptButtonCaption = Nothing + Me.aMoveProductsOtherLocation.CancelButtonCaption = Nothing + Me.aMoveProductsOtherLocation.Caption = "aMoveProductsOtherLocation" + Me.aMoveProductsOtherLocation.ConfirmationMessage = Nothing + Me.aMoveProductsOtherLocation.Id = "aMoveProductsOtherLocation" + Me.aMoveProductsOtherLocation.ImageName = Nothing + Me.aMoveProductsOtherLocation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMoveProductsOtherLocation.Shortcut = Nothing + Me.aMoveProductsOtherLocation.Tag = Nothing + Me.aMoveProductsOtherLocation.TargetObjectsCriteria = Nothing + Me.aMoveProductsOtherLocation.TargetObjectType = GetType(SISBusiness.[Module].StorageComputedLocations) + Me.aMoveProductsOtherLocation.TargetViewId = Nothing + Me.aMoveProductsOtherLocation.ToolTip = Nothing + Me.aMoveProductsOtherLocation.TypeOfView = Nothing + ' + 'aMoveLocationOtherLocation + ' + Me.aMoveLocationOtherLocation.AcceptButtonCaption = Nothing + Me.aMoveLocationOtherLocation.CancelButtonCaption = Nothing + Me.aMoveLocationOtherLocation.Caption = "aMoveLocationOtherLocation" + Me.aMoveLocationOtherLocation.ConfirmationMessage = Nothing + Me.aMoveLocationOtherLocation.Id = "aMoveLocationOtherLocation" + Me.aMoveLocationOtherLocation.ImageName = Nothing + Me.aMoveLocationOtherLocation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMoveLocationOtherLocation.Shortcut = Nothing + Me.aMoveLocationOtherLocation.Tag = Nothing + Me.aMoveLocationOtherLocation.TargetObjectsCriteria = Nothing + Me.aMoveLocationOtherLocation.TargetObjectType = GetType(SISBusiness.[Module].StorageComputedLocations) + Me.aMoveLocationOtherLocation.TargetViewId = Nothing + Me.aMoveLocationOtherLocation.ToolTip = Nothing + Me.aMoveLocationOtherLocation.TypeOfView = Nothing + + End Sub + Friend WithEvents aMoveProductsOtherLocation As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMoveLocationOtherLocation As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.resx new file mode 100644 index 0000000..9e38e15 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 134, 143 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb new file mode 100644 index 0000000..31d615c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedLocations_VC.vb @@ -0,0 +1,111 @@ +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.CloneObject + +Public Class StorageComputedLocations_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "MoveProductsOtherLocation_PopUp_StorageComputedLocations_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + End Sub + + Private Sub aMoveProductsOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveProductsOtherLocation.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _MoveProductsOtherLocation_PopUp As MoveProductsOtherLocation_PopUp = _onew.CreateObject(Of MoveProductsOtherLocation_PopUp)() + Dim _StorageComputedLocations As StorageComputedLocations = TryCast(View.SelectedObjects(0), StorageComputedLocations) + _MoveProductsOtherLocation_PopUp.StorageLocation = _onew.GetObject(_StorageComputedLocations.StorageLocation) + _MoveProductsOtherLocation_PopUp.Criteria = "Oid in ('" + + For Each _StorageComputedLocations_Selected As StorageComputedLocations In View.SelectedObjects + _MoveProductsOtherLocation_PopUp.Criteria += TryCast(_StorageComputedLocations_Selected, StorageComputedLocations).Oid.ToString + "','" + Next + _MoveProductsOtherLocation_PopUp.Criteria = _MoveProductsOtherLocation_PopUp.Criteria.Remove(_MoveProductsOtherLocation_PopUp.Criteria.Length - 2, 2) + _MoveProductsOtherLocation_PopUp.Criteria += ")" + + e.View = Application.CreateDetailView(_onew, "MoveProductsOtherLocation_PopUp_DetailView", False, _MoveProductsOtherLocation_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aMoveProductsOtherLocation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aMoveProductsOtherLocation.Execute + Try + Dim _onew As Xpo.XPObjectSpace = e.PopupWindow.View.ObjectSpace + Dim _MoveProductsOtherLocation_PopUp As MoveProductsOtherLocation_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), MoveProductsOtherLocation_PopUp) + If _MoveProductsOtherLocation_PopUp.StorageComputedLocations.Count = 0 Then Throw New Exception("*Nem lett kijellve lokalizlt termk!") + + For Each _StorageComputedLocations As StorageComputedLocations In _MoveProductsOtherLocation_PopUp.StorageComputedLocations + _StorageComputedLocations.StorageLocation = _MoveProductsOtherLocation_PopUp.NewStorageLocation + Next + _onew.CommitChanges() + Catch ex As Exception + + End Try + End Sub + Private Sub aMoveLocationOtherLocation_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aMoveLocationOtherLocation.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _MoveLocationOtherLocation_PopUp As MoveLocationOtherLocation_PopUp = _onew.CreateObject(Of MoveLocationOtherLocation_PopUp)() + Dim _StorageComputedLocations As StorageComputedLocations = TryCast(View.SelectedObjects(0), StorageComputedLocations) + _MoveLocationOtherLocation_PopUp.StorageLocation = _onew.GetObject(_StorageComputedLocations.StorageLocation) + + e.View = Application.CreateDetailView(_onew, "MoveLocationOtherLocation_PopUp_DetailView", False, _MoveLocationOtherLocation_PopUp) + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aMoveLocationOtherLocation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aMoveLocationOtherLocation.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _MoveLocationOtherLocation_PopUp As MoveLocationOtherLocation_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), MoveLocationOtherLocation_PopUp) + Dim _NewStorageLocation As StorageLocation = _ocur.GetObjectByKey(Of StorageLocation)(_MoveLocationOtherLocation_PopUp.NewStorageLocation.Oid) + + Dim _StorageComputedLocations_Collection As New XPCollection(Of StorageComputedLocations)(_ocur.Session, CriteriaOperator.Parse("StorageLocation=?", TryCast(View.SelectedObjects(0), StorageComputedLocations).StorageLocation)) + + If _StorageComputedLocations_Collection.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem, gy nem lehet azonostani a mozgatsra vr lokcit!") + + For Each _StorageComputedLocations As StorageComputedLocations In _StorageComputedLocations_Collection + _StorageComputedLocations.StorageLocation = _NewStorageLocation + Next + _ocur.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.Designer.vb new file mode 100644 index 0000000..dbd8d03 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.Designer.vb @@ -0,0 +1,122 @@ +Partial Class StorageComputedVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewStorageMoveInfo_StorageComputed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewStorageMoveInfo_StorageOutCirculation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aChangeGroup_StorageComputed = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateStorageComputedPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageComputed_Generate_QTT_FIFO = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewStorageMoveInfo_StorageComputed + ' + Me.aViewStorageMoveInfo_StorageComputed.Caption = "aViewStorageMoveInfo_StorageComputed" + Me.aViewStorageMoveInfo_StorageComputed.ConfirmationMessage = Nothing + Me.aViewStorageMoveInfo_StorageComputed.Id = "aViewStorageMoveInfo_StorageComputed" + Me.aViewStorageMoveInfo_StorageComputed.ImageName = Nothing + Me.aViewStorageMoveInfo_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewStorageMoveInfo_StorageComputed.Shortcut = Nothing + Me.aViewStorageMoveInfo_StorageComputed.Tag = Nothing + Me.aViewStorageMoveInfo_StorageComputed.TargetObjectsCriteria = Nothing + Me.aViewStorageMoveInfo_StorageComputed.TargetObjectType = GetType(SISBusiness.[Module].StorageComputed) + Me.aViewStorageMoveInfo_StorageComputed.TargetViewId = Nothing + Me.aViewStorageMoveInfo_StorageComputed.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewStorageMoveInfo_StorageComputed.ToolTip = Nothing + Me.aViewStorageMoveInfo_StorageComputed.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aViewStorageMoveInfo_StorageOutCirculation + ' + Me.aViewStorageMoveInfo_StorageOutCirculation.Caption = "aViewStorageMoveInfo_StorageOutCirculation" + Me.aViewStorageMoveInfo_StorageOutCirculation.ConfirmationMessage = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.Id = "aViewStorageMoveInfo_StorageOutCirculation" + Me.aViewStorageMoveInfo_StorageOutCirculation.ImageName = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewStorageMoveInfo_StorageOutCirculation.Shortcut = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.Tag = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.TargetObjectsCriteria = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.TargetObjectType = GetType(SISBusiness.[Module].StorageOutCirculation) + Me.aViewStorageMoveInfo_StorageOutCirculation.TargetViewId = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewStorageMoveInfo_StorageOutCirculation.ToolTip = Nothing + Me.aViewStorageMoveInfo_StorageOutCirculation.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aChangeGroup_StorageComputed + ' + Me.aChangeGroup_StorageComputed.AcceptButtonCaption = Nothing + Me.aChangeGroup_StorageComputed.CancelButtonCaption = Nothing + Me.aChangeGroup_StorageComputed.Caption = "aChangeGroup_StorageComputed" + Me.aChangeGroup_StorageComputed.ConfirmationMessage = Nothing + Me.aChangeGroup_StorageComputed.Id = "aChangeGroup_StorageComputed" + Me.aChangeGroup_StorageComputed.ImageName = Nothing + Me.aChangeGroup_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aChangeGroup_StorageComputed.Shortcut = Nothing + Me.aChangeGroup_StorageComputed.Tag = Nothing + Me.aChangeGroup_StorageComputed.TargetObjectsCriteria = Nothing + Me.aChangeGroup_StorageComputed.TargetObjectType = GetType(SISBusiness.[Module].StorageComputed) + Me.aChangeGroup_StorageComputed.TargetViewId = Nothing + Me.aChangeGroup_StorageComputed.ToolTip = Nothing + Me.aChangeGroup_StorageComputed.TypeOfView = Nothing + ' + 'aGenerateStorageComputedPrice + ' + Me.aGenerateStorageComputedPrice.Caption = "aGenerate Storage Computed Price" + Me.aGenerateStorageComputedPrice.ConfirmationMessage = Nothing + Me.aGenerateStorageComputedPrice.Id = "aGenerateStorageComputedPrice" + Me.aGenerateStorageComputedPrice.ImageName = Nothing + Me.aGenerateStorageComputedPrice.Shortcut = Nothing + Me.aGenerateStorageComputedPrice.Tag = Nothing + Me.aGenerateStorageComputedPrice.TargetObjectsCriteria = Nothing + Me.aGenerateStorageComputedPrice.TargetObjectType = GetType(SISBusiness.[Module].StorageComputed) + Me.aGenerateStorageComputedPrice.TargetViewId = Nothing + Me.aGenerateStorageComputedPrice.ToolTip = Nothing + Me.aGenerateStorageComputedPrice.TypeOfView = Nothing + ' + 'aStorageComputed_Generate_QTT_FIFO + ' + Me.aStorageComputed_Generate_QTT_FIFO.Caption = "aStorageComputed_Generate_QTT_FIFO" + Me.aStorageComputed_Generate_QTT_FIFO.ConfirmationMessage = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.Id = "aStorageComputed_Generate_QTT_FIFO" + Me.aStorageComputed_Generate_QTT_FIFO.ImageName = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aStorageComputed_Generate_QTT_FIFO.Shortcut = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.Tag = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.TargetObjectsCriteria = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.TargetObjectType = GetType(SISBusiness.[Module].StorageComputed) + Me.aStorageComputed_Generate_QTT_FIFO.TargetViewId = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aStorageComputed_Generate_QTT_FIFO.ToolTip = Nothing + Me.aStorageComputed_Generate_QTT_FIFO.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aViewStorageMoveInfo_StorageComputed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewStorageMoveInfo_StorageOutCirculation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aChangeGroup_StorageComputed As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateStorageComputedPrice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageComputed_Generate_QTT_FIFO As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.resx new file mode 100644 index 0000000..dc907ad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 458, 17 + + + 979, 17 + + + 17, 17 + + + 240, 17 + + + 725, 17 + + + True + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb new file mode 100644 index 0000000..2aa9f2f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputedVC.vb @@ -0,0 +1,157 @@ +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.Session +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Utils + +Public Class StorageComputedVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + '------------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------------- + If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!! + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", False) + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + + '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------ + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + '----------------- LISTVIEWS ---------------------------------------------------------------------------------------------------------------------------- + If View.Id Like "StorageComputed_LookupListView" Then '-- StorageComputed csak programból állítható elő !!! + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True) + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + '----------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------- + + '----------------- OTHERVIEWS --------------------------------------------------------------------------------------------------------------------------- + + If View.Id Like "Storage*Header_*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().Active.SetItemValue("", True) + End If + If View.Id Like "Products*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + End Sub + + Private Sub aViewStorageMoveInfo_StorageComputed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_StorageComputed.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageComputed As StorageComputed = TryCast(View.SelectedObjects(0), StorageComputed) + Dim _StorageMoveInfo As StorageMoveInfo + If _StorageComputed IsNot Nothing Then + _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)() + _StorageMoveInfo.Products = _onew.GetObject(_StorageComputed.Products) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo) + End If + End Sub + + Private Sub aViewStorageMoveInfo_StorageOutCirculation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_StorageOutCirculation.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageOutCirculation As StorageOutCirculation = TryCast(View.SelectedObjects(0), StorageOutCirculation) + Dim _StorageMoveInfo As StorageMoveInfo + If _StorageOutCirculation IsNot Nothing Then + _StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)() + _StorageMoveInfo.Products = _onew.GetObject(_StorageOutCirculation.Products) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo) + End If + End Sub + + Private Sub aGenerateStorageComputedPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageComputedPrice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageComputed As StorageComputed + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _StorageComputed In View.SelectedObjects + RaiseEvent DoWork() + _StorageComputed.RecalculateAveragePrice() + _StorageComputed.RecalculateMinimumPrice() + _StorageComputed.RecalculateSumFIFOPriceInHUFFree() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + End Sub + Private Sub aChangeGroup_StorageComputed_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aChangeGroup_StorageComputed.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeGroup_StorageComputed_PopUp As New ChangeGroup_StorageComputed_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ChangeGroup_StorageComputed_PopUp_DetailView", True, _ChangeGroup_StorageComputed_PopUp) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aChangeGroup_StorageComputed_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aChangeGroup_StorageComputed.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ChangeGroup_StorageComputed_PopUp As ChangeGroup_StorageComputed_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeGroup_StorageComputed_PopUp) + + For Each _StorageComputed As StorageComputed In View.SelectedObjects + If _ChangeGroup_StorageComputed_PopUp.Change_PricingMinimum Then + _StorageComputed.PricingMinimum = _ocur.GetObject(_ChangeGroup_StorageComputed_PopUp.PricingMinimum) + End If + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aStorageComputed_Generate_QTT_FIFO_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageComputed_Generate_QTT_FIFO.Execute + Try + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _StorageComputed As StorageComputed In View.SelectedObjects + RaiseEvent DoWork() + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("Storage=? AND Products=? AND StorageInHeader.IsStorno=False AND StorageInHeader.IsEditable=False", _ + _StorageComputed.Storage, _StorageComputed.Products)) + ' If _StorageInRows_Collection.Count > 0 Then + Dim _SIR_QTT As Double = 0 + Dim _SIR_OTT_Out As Double = 0 + + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _SIR_QTT += _StorageInRows.QTT + _SIR_OTT_Out += _StorageInRows.QTT_Out + Next + + _StorageComputed.QTT_FIFO = _SIR_QTT - _SIR_OTT_Out + 'End If + Next + _ocur.CommitChanges() + Catch ex As NullReferenceException + MsgBox("Már megint valami NULL!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDate.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDate.vb new file mode 100644 index 0000000..99a2eee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDate.vb @@ -0,0 +1,138 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageDate + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Products As Products + Private _DateExecution As Date + Private _DateExecutionYear As String + Private _DateExecutionMonth As String + Private _DateExecutionQuarter As String + Private _DateExecutionWeek As String + + Private _QTT_Close As Double 'Zr kszlet + Private _SumAveragePriceHUF As Double 'Mrlegelt tlagr + Private _SumPriceHUF As Double 'Mrlegelt tlagrtk + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + If String.IsNullOrEmpty(DateExecutionYear) Then DateExecutionYear = DateExecution.Year.ToString + If String.IsNullOrEmpty(DateExecutionMonth) Then DateExecutionMonth = DateExecution.Month.ToString + If String.IsNullOrEmpty(DateExecutionQuarter) Then DateExecutionQuarter = DatePart(DateInterval.Quarter, DateExecution).ToString + If String.IsNullOrEmpty(DateExecutionWeek) Then DateExecutionWeek = DatePart(DateInterval.WeekOfYear, DateExecution).ToString + + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + + Property DateExecution() As Date + Get + Return _DateExecution.Date + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value.Date) + End Set + End Property + + _ + Property DateExecutionYear As String + Get + Return _DateExecutionYear + End Get + Set(value As String) + SetPropertyValue("DateExecutionYear", _DateExecutionYear, value) + End Set + End Property + _ + Property DateExecutionMonth As String + Get + Return _DateExecutionMonth + End Get + Set(value As String) + SetPropertyValue("DateExecutionMonth", _DateExecutionMonth, value) + End Set + End Property + _ + Property DateExecutionQuarter As String + Get + Return _DateExecutionQuarter + End Get + Set(value As String) + SetPropertyValue("DateExecutionQuarter", _DateExecutionQuarter, value) + End Set + End Property + _ + Property DateExecutionWeek As String + Get + Return _DateExecutionWeek + End Get + Set(value As String) + SetPropertyValue("DateExecutionWeek", _DateExecutionWeek, value) + End Set + End Property + + Property SumPriceHUF As Double + Get + Return _SumPriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF", _SumPriceHUF, value) + End Set + End Property + Property SumAveragePriceHUF As Double + Get + Return _SumAveragePriceHUF + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF", _SumAveragePriceHUF, value) + End Set + End Property + Property QTT_Close As Double + Get + Return _QTT_Close + End Get + Set(value As Double) + SetPropertyValue("QTT_Close", _QTT_Close, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateClearingPrice.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateClearingPrice.vb new file mode 100644 index 0000000..2bb424c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateClearingPrice.vb @@ -0,0 +1,209 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ +Public Class StorageDateClearingPrice + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Products As Products + Private _RowIndex As Long + Private _DateExecution As Date + Private _QTT_Before As Double + Private _QTT_In As Double + Private _QTT_Out As Double + Private _QTT_After As Double + Private _AveragePriceHUF_After As Double + Private _SumAveragePriceHUF_After As Double + Private _AveragePriceHUF_Before As Double + Private _SumAveragePriceHUF_Before As Double + + Private _MainIndex As Long + + Private _DeliveryNoteInRRFC As DeliveryNoteInRRFC 'Leigazolt szlltlevl sor + Private _InvoiceRows As InvoiceRows 'Vevi szmla sor + Private _StorageInRows As StorageInRows 'Gyrtsbl bevtel sor + Private _StorageOutRowsInRows As StorageOutRowsInRows 'Gyrtsba kiads sor + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property QTT_Before As Double + Get + Return Math.Round(_QTT_Before, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Before", _QTT_Before, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property QTT_In As Double + Get + Return Math.Round(_QTT_In, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_In", _QTT_In, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property QTT_Out As Double + Get + Return Math.Round(_QTT_Out, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_Out", _QTT_Out, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property QTT_After As Double + Get + Return Math.Round(_QTT_After, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("QTT_After", _QTT_After, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property AveragePriceHUF_After As Double + Get + Return _AveragePriceHUF_After + End Get + Set(value As Double) + SetPropertyValue("AveragePriceHUF_After", _AveragePriceHUF_After, value) + End Set + End Property + Property SumAveragePriceHUF_After As Double + Get + Return _SumAveragePriceHUF_After + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_After", _SumAveragePriceHUF_After, value) + End Set + End Property + Property AveragePriceHUF_Before As Double + Get + Return _AveragePriceHUF_Before + End Get + Set(value As Double) + SetPropertyValue("AveragePriceHUF_Before", _AveragePriceHUF_Before, value) + End Set + End Property + Property SumAveragePriceHUF_Before As Double + Get + Return _SumAveragePriceHUF_Before + End Get + Set(value As Double) + SetPropertyValue("SumAveragePriceHUF_Before", _SumAveragePriceHUF_Before, value) + End Set + End Property + Property MainIndex As Long + Get + Return _MainIndex + End Get + Set(value As Long) + SetPropertyValue("MainIndex", _MainIndex, value) + End Set + End Property + Property DeliveryNoteInRRFC As DeliveryNoteInRRFC + Get + Return _DeliveryNoteInRRFC + End Get + Set(value As DeliveryNoteInRRFC) + SetPropertyValue("DeliveryNoteInRRFC", _DeliveryNoteInRRFC, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property StorageOutRowsInRows As StorageOutRowsInRows + Get + Return _StorageOutRowsInRows + End Get + Set(value As StorageOutRowsInRows) + SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, value) + End Set + End Property + _ + ReadOnly Property Image1 As Image + Get + Select Case RowIndex + Case 0 + If DeliveryNoteInRRFC IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("arrow_down_blue").Image + ElseIf StorageInRows IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("arrow_down_gear_blue").Image + End If + Case 1 + If InvoiceRows IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("arrow_up_green").Image + ElseIf StorageOutRowsInRows IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("arrow_up_gear_green").Image + End If + Case Else + Return Nothing + End Select + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb new file mode 100644 index 0000000..1f18040 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb @@ -0,0 +1,195 @@ +Partial Class StorageDateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateStorageDate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageDateClearingPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateStorageDateClearingPrice_Products = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageDateClearingPrice_ViewAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageDateClearingPrice_DateAndValueReCalculate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageDateClearingPrice_GeneterateDate2Date = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aStorageDateClearingPrice_SetSIRPrice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSetBonusHUF = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aGenerateStorageDate + ' + Me.aGenerateStorageDate.Caption = "aGenerate Storage Date" + Me.aGenerateStorageDate.ConfirmationMessage = "Are you sure ?" + Me.aGenerateStorageDate.Id = "aGenerateStorageDate" + Me.aGenerateStorageDate.ImageName = Nothing + Me.aGenerateStorageDate.Shortcut = Nothing + Me.aGenerateStorageDate.Tag = Nothing + Me.aGenerateStorageDate.TargetObjectsCriteria = Nothing + Me.aGenerateStorageDate.TargetObjectType = GetType(SISBusiness.[Module].StorageDate) + Me.aGenerateStorageDate.TargetViewId = Nothing + Me.aGenerateStorageDate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGenerateStorageDate.ToolTip = Nothing + Me.aGenerateStorageDate.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aGenerateStorageDateClearingPrice + ' + Me.aGenerateStorageDateClearingPrice.Caption = "aGenerate Storage Date Clearing Price" + Me.aGenerateStorageDateClearingPrice.ConfirmationMessage = "Are you sure ?" + Me.aGenerateStorageDateClearingPrice.Id = "aGenerateStorageDateClearingPrice" + Me.aGenerateStorageDateClearingPrice.ImageName = Nothing + Me.aGenerateStorageDateClearingPrice.Shortcut = Nothing + Me.aGenerateStorageDateClearingPrice.Tag = Nothing + Me.aGenerateStorageDateClearingPrice.TargetObjectsCriteria = Nothing + Me.aGenerateStorageDateClearingPrice.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aGenerateStorageDateClearingPrice.TargetViewId = Nothing + Me.aGenerateStorageDateClearingPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGenerateStorageDateClearingPrice.ToolTip = Nothing + Me.aGenerateStorageDateClearingPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aGenerateStorageDateClearingPrice_Products + ' + Me.aGenerateStorageDateClearingPrice_Products.AcceptButtonCaption = Nothing + Me.aGenerateStorageDateClearingPrice_Products.CancelButtonCaption = Nothing + Me.aGenerateStorageDateClearingPrice_Products.Caption = "aGenerateStorageDateClearingPrice_Products" + Me.aGenerateStorageDateClearingPrice_Products.ConfirmationMessage = Nothing + Me.aGenerateStorageDateClearingPrice_Products.Id = "aGenerateStorageDateClearingPrice_Products" + Me.aGenerateStorageDateClearingPrice_Products.ImageName = Nothing + Me.aGenerateStorageDateClearingPrice_Products.Shortcut = Nothing + Me.aGenerateStorageDateClearingPrice_Products.Tag = Nothing + Me.aGenerateStorageDateClearingPrice_Products.TargetObjectsCriteria = Nothing + Me.aGenerateStorageDateClearingPrice_Products.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aGenerateStorageDateClearingPrice_Products.TargetViewId = Nothing + Me.aGenerateStorageDateClearingPrice_Products.ToolTip = Nothing + Me.aGenerateStorageDateClearingPrice_Products.TypeOfView = Nothing + ' + 'aStorageDateClearingPrice_ViewAttachments + ' + Me.aStorageDateClearingPrice_ViewAttachments.Caption = "aStorageDateClearingPrice_ViewAttachments" + Me.aStorageDateClearingPrice_ViewAttachments.ConfirmationMessage = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.Id = "aStorageDateClearingPrice_ViewAttachments" + Me.aStorageDateClearingPrice_ViewAttachments.ImageName = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageDateClearingPrice_ViewAttachments.Shortcut = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.Tag = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectsCriteria = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aStorageDateClearingPrice_ViewAttachments.TargetViewId = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.ToolTip = Nothing + Me.aStorageDateClearingPrice_ViewAttachments.TypeOfView = Nothing + ' + 'aStorageDateClearingPrice_DateAndValueReCalculate + ' + Me.aStorageDateClearingPrice_DateAndValueReCalculate.Caption = "aStorageDateClearingPrice_DateAndValueReCalculate" + Me.aStorageDateClearingPrice_DateAndValueReCalculate.ConfirmationMessage = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.Id = "aStorageDateClearingPrice_DateAndValueReCalculate" + Me.aStorageDateClearingPrice_DateAndValueReCalculate.ImageName = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageDateClearingPrice_DateAndValueReCalculate.Shortcut = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.Tag = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectsCriteria = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetViewId = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.ToolTip = Nothing + Me.aStorageDateClearingPrice_DateAndValueReCalculate.TypeOfView = Nothing + ' + 'aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows + ' + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.AcceptButtonCaption = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.CancelButtonCaption = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Caption = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows" + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ConfirmationMessage = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Id = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows" + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ImageName = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Shortcut = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Tag = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectsCriteria = "IsNull(InvoiceRows)=False" + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetViewId = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ToolTip = Nothing + Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TypeOfView = Nothing + ' + 'aStorageDateClearingPrice_GeneterateDate2Date + ' + Me.aStorageDateClearingPrice_GeneterateDate2Date.AcceptButtonCaption = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.CancelButtonCaption = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.Caption = "aStorageDateClearingPrice_GeneterateDate2Date" + Me.aStorageDateClearingPrice_GeneterateDate2Date.ConfirmationMessage = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.Id = "aStorageDateClearingPrice_GeneterateDate2Date" + Me.aStorageDateClearingPrice_GeneterateDate2Date.ImageName = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.Shortcut = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.Tag = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectsCriteria = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetViewId = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.ToolTip = Nothing + Me.aStorageDateClearingPrice_GeneterateDate2Date.TypeOfView = Nothing + ' + 'aStorageDateClearingPrice_SetSIRPrice + ' + Me.aStorageDateClearingPrice_SetSIRPrice.AcceptButtonCaption = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.CancelButtonCaption = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.Caption = "aStorageDateClearingPrice_SetSIRPrice" + Me.aStorageDateClearingPrice_SetSIRPrice.ConfirmationMessage = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.Id = "aStorageDateClearingPrice_SetSIRPrice" + Me.aStorageDateClearingPrice_SetSIRPrice.ImageName = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorageDateClearingPrice_SetSIRPrice.Shortcut = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.Tag = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectsCriteria = "IsNull(StorageInRows)=False" + Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectType = GetType(SISBusiness.[Module].StorageDateClearingPrice) + Me.aStorageDateClearingPrice_SetSIRPrice.TargetViewId = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.ToolTip = Nothing + Me.aStorageDateClearingPrice_SetSIRPrice.TypeOfView = Nothing + ' + 'aSetBonusHUF + ' + Me.aSetBonusHUF.AcceptButtonCaption = Nothing + Me.aSetBonusHUF.CancelButtonCaption = Nothing + Me.aSetBonusHUF.Caption = "aSet Bonus HUF" + Me.aSetBonusHUF.ConfirmationMessage = Nothing + Me.aSetBonusHUF.Id = "aSetBonusHUF" + Me.aSetBonusHUF.ImageName = Nothing + Me.aSetBonusHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aSetBonusHUF.Shortcut = Nothing + Me.aSetBonusHUF.Tag = Nothing + Me.aSetBonusHUF.TargetObjectsCriteria = Nothing + Me.aSetBonusHUF.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRRFC) + Me.aSetBonusHUF.TargetViewId = Nothing + Me.aSetBonusHUF.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSetBonusHUF.ToolTip = Nothing + Me.aSetBonusHUF.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGenerateStorageDateClearingPrice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateStorageDateClearingPrice_Products As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateStorageDate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageDateClearingPrice_ViewAttachments As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageDateClearingPrice_DateAndValueReCalculate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aStorageDateClearingPrice_GeneterateDate2Date As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aStorageDateClearingPrice_SetSIRPrice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSetBonusHUF As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx new file mode 100644 index 0000000..b76248c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 95 + + + 17, 251 + + + 17, 290 + + + 17, 173 + + + 17, 212 + + + 430, 47 + + + 361, 290 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.vb new file mode 100644 index 0000000..a5ee587 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.vb @@ -0,0 +1,736 @@ +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 System.Linq +Imports DevExpress.Xpo.DB + +Public Class StorageDateVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork() + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aGenerateStorageDateClearingPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + Dim _Products As Products + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow) + + Dim _Products_Collection As New XPCollection(Of Products)(_uow) + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products In _Products_Collection + RaiseEvent DoWork() + + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=?", _Products)) + _uow.Delete(_StorageDateClearingPrice_Collection) + _uow.CommitChanges() + + + '// Igazolt szlltlevl sorok + Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow, + CriteriaOperator.Parse("DeliveryNoteInRows.Products=?", _Products)) + + _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending)) + + For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date + _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC + _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products + _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled + _uow.CommitChanges() + Next + + 'Kimen szmla sorok + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, + CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " + + "InvoiceHeader.IsEditable=False and " + + "InvoiceHeader.IsStorno=False and " + + "InvoiceHeader.DocumentNumber !='' and " + + "OrderInRows.Products.Oid=?", _Products.Oid)) + + _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending)) + + For Each _InvoiceRows In _InvoiceRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date + _StorageDateClearingPrice.InvoiceRows = _InvoiceRows + _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products + _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT + _uow.CommitChanges() + Next + + + '// Gyrtsba kiadott ttelek kitrols ! + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _ + "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date + _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products + _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT + _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows + _uow.CommitChanges() + Next + + '// Gyrtsbl bevett ttelek + vevi jvrsbl bevtel betrols !! + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _ + "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid)) + + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date + _StorageDateClearingPrice.StorageInRows = _StorageInRows + _StorageDateClearingPrice.Products = _StorageInRows.Products + _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT + _uow.CommitChanges() + Next + + + _uow.CommitChanges() + + For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection + UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False) + Next + _uow.CommitChanges() + Next + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork() + End Try + + End Sub + Private Sub aGenerateStorageDateClearingPrice_Products_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageDateClearingPrice_Products.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(Products)) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + Dim _SQL As String = "" + + For Each _StorageDateClearingPrice In View.SelectedObjects + If _SQL = "" Then + _SQL = " Oid in ('" & _StorageDateClearingPrice.Products.Oid.ToString & "'" + Else + _SQL += ",'" & _StorageDateClearingPrice.Products.Oid.ToString & "'" + End If + Next + If _SQL <> "" Then + _SQL += ")" + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("ByProducts") = CriteriaOperator.Parse(_SQL) + _CS.EndUpdateCriteria() + End If + + e.View = Application.CreateListView("Products_ListView_Find", _CS, True) + End Sub + Private Sub aGenerateStorageDateClearingPrice_Products_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageDateClearingPrice_Products.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + Dim _Products As Products + Dim _SQL As String = "" + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow) + + RaiseEvent InitWork(1, 1, e.PopupWindow.View.SelectedObjects.Count) + For Each _Products In e.PopupWindow.View.SelectedObjects + RaiseEvent DoWork() + + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products.Oid=?", _Products.Oid)) + _uow.Delete(_StorageDateClearingPrice_Collection) + _uow.CommitChanges() + Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow, + CriteriaOperator.Parse("DeliveryNoteInRows.Products.Oid=?", _Products.Oid)) + + _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending)) + + For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date + _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC + _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products + _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled + Next + + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, + CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " + + "InvoiceHeader.IsEditable=False and " + + "InvoiceHeader.IsStorno=False and " + + "InvoiceHeader.DocumentNumber !='' and " + + "OrderInRows.Products.Oid=?", _Products.Oid)) + + _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending)) + + For Each _InvoiceRows In _InvoiceRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date + _StorageDateClearingPrice.InvoiceRows = _InvoiceRows + _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products + _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT + Next + + + '// Gyrtsba kiadott ttelek kitrols ! + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _ + "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=?", _Products.Oid)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date + _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products + _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT + _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows + Next + + '// Gyrtsbl bevett ttelek + vevi jvrsbl betrols !! + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _ + "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?", _Products.Oid)) + + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date + _StorageDateClearingPrice.StorageInRows = _StorageInRows + _StorageDateClearingPrice.Products = _StorageInRows.Products + _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT + Next + + _uow.CommitChanges() + + For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection + UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False) + Next + + Next + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork() + End Try + + End Sub + Private Sub aGenerateStorageDate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateStorageDate.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + Dim _StorageDate_Collection As New XPCollection(Of StorageDate)(_uow) + + _uow.Delete(_StorageDate_Collection) + _uow.CommitChanges() + + + Dim _Products_Collection As New XPCollection(Of Products)(_uow) + + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products In _Products_Collection + RaiseEvent DoWork() + + Dim _DateArray As ArrayList = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow)) + + For Each _Date As Date In _DateArray + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _ + (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1", + _Products.Oid, _Date)) + + Dim _StorageDateClearingPrice As StorageDateClearingPrice + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending)) + + If _StorageDateClearingPrice_Collection.Count <= 0 Then + _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _ + (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=0", + _Products.Oid, _Date)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending)) + End If + + For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection + Dim _StorageDate As New StorageDate(_uow) + _StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom + _StorageDate.DateExecution = _Date + _StorageDate.Products = _StorageDateClearingPrice.Products + _StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After + _StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After + _StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After + _uow.CommitChanges() + Exit For + Next + Next + + + _DateArray = GenerateDateCollection(New Date(2013, 1, 1), GetSQLTime(_uow), True) + + For Each _Date As Date In _DateArray + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice) _ + (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=1", + _Products.Oid, _Date)) + + Dim _StorageDateClearingPrice As StorageDateClearingPrice + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Ascending)) + + If _StorageDateClearingPrice_Collection.Count <= 0 Then + _StorageDateClearingPrice_Collection = New XPCollection(Of StorageDateClearingPrice) _ + (_uow, CriteriaOperator.Parse("Products.Oid=? and GetDate(DateExecution)<=? and RowIndex=0", + _Products.Oid, _Date)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("QTT_After", DB.SortingDirection.Descending)) + End If + + For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection + If _uow.FindObject(Of StorageDate)(CriteriaOperator.Parse("CustomersFrom=? AND Products=? AND DateExecution=?", _StorageDateClearingPrice.CustomersFrom, _StorageDateClearingPrice.Products, _Date)) Is Nothing Then + Dim _StorageDate As New StorageDate(_uow) + _StorageDate.CustomersFrom = _StorageDateClearingPrice.CustomersFrom + _StorageDate.DateExecution = _Date + _StorageDate.Products = _StorageDateClearingPrice.Products + _StorageDate.QTT_Close = _StorageDateClearingPrice.QTT_After + _StorageDate.SumAveragePriceHUF = _StorageDateClearingPrice.AveragePriceHUF_After + _StorageDate.SumPriceHUF = _StorageDate.QTT_Close * _StorageDateClearingPrice.AveragePriceHUF_After + _uow.CommitChanges() + Exit For + End If + Next + Next + Next + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork() + End Try + End Sub + Private Sub aStorageDateClearingPrice_ViewAttachments_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_ViewAttachments.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice) + + If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, _ + _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.Customers, _ + _StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber) + + End If + If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.CustomersFrom, _ + _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.Customers, _ + _StorageDateClearingPrice.InvoiceRows.InvoiceHeader.DocumentNumber) + + End If + End Sub + Private Sub aStorageDateClearingPrice_DateAndValueReCalculate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageDateClearingPrice_DateAndValueReCalculate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageDateClearingPrice_Selected As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice) + + UpdateStorageDateClearingPrice(_StorageDateClearingPrice_Selected.Products, _StorageDateClearingPrice_Selected.CustomersFrom, True) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute() + End Sub + Public Sub UpdateStorageDateClearingPrice_SQL(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True) + Dim _SelectedData As SelectedData = Nothing + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _SQL As String = "" + + + _SQL = String.Format("select [] from [StorageDateClearingPrice] Where [CustomersFrom]='{0}' and [Products]='{1}'", _CustomersFrom.Oid.ToString, _Products.Oid.ToString) + _SelectedData = _uow.ExecuteQuery(_SQL) + + For Each row As SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + 'Console.WriteLine(String.Format("{0}" & Constants.vbTab & "{1}", row.Values(0), row.Values(1))) + Next row + End Sub + Public Sub UpdateStorageDateClearingPrice(ByVal _Products As Products, _CustomersFrom As CustomersFrom, Optional _NeedLine As Boolean = True) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_update As New UnitOfWork(_onew.Session.DataLayer) + Dim _uow_xpcollection As New UnitOfWork(_onew.Session.DataLayer) + Dim _uow_nothing As New UnitOfWork(_onew.Session.DataLayer) + + Dim _StorageDateClearingPrice As StorageDateClearingPrice = Nothing + + Dim _SQL As String = "" + Dim _ItemIndex As Long = 0 + Dim _QTT_Before As Double = 0 + Dim _QTT_After As Double = 0 + Dim _AveragePriceHUF_After As Double = 0 + Dim _SumAveragePriceHUF_After As Double = 0 + + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow_xpcollection, CriteriaOperator.Parse("Products.Oid=? AND CustomersFrom.Oid=?", _ + _Products.Oid, _CustomersFrom.Oid)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + _StorageDateClearingPrice_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + ' Try + 'If _NeedLine Then RaiseEvent InitWork(1, 1, _StorageDateClearingPrice_Collection.Count) + 'If _StorageDateClearingPrice_Collection.Count > 0 Then + + For Each _StorageDateClearingPrice In _StorageDateClearingPrice_Collection + 'If _NeedLine Then RaiseEvent DoWork() + _StorageDateClearingPrice = _uow_nothing.GetObjectByKey(Of StorageDateClearingPrice)(_StorageDateClearingPrice.Oid) + + If _ItemIndex > 0 Then + _StorageDateClearingPrice.AveragePriceHUF_Before = _AveragePriceHUF_After + _StorageDateClearingPrice.QTT_Before = _QTT_After + _StorageDateClearingPrice.SumAveragePriceHUF_Before = Math.Round(_StorageDateClearingPrice.QTT_Before * _StorageDateClearingPrice.AveragePriceHUF_Before) + + + If _StorageDateClearingPrice.QTT_In <> 0 Then + _QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In + If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then + _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF) + ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then + _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_Before + (_StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT) + End If + If _QTT_After <> 0 Then + _StorageDateClearingPrice.AveragePriceHUF_After = Math.Round(_StorageDateClearingPrice.SumAveragePriceHUF_After / _QTT_After, 0, MidpointRounding.AwayFromZero) + Else + _StorageDateClearingPrice.AveragePriceHUF_After = 0 + End If + + _AveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After + _SumAveragePriceHUF_After = _StorageDateClearingPrice.SumAveragePriceHUF_After + End If + If _StorageDateClearingPrice.QTT_Out <> 0 Then + _QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out + + If _QTT_After = 0 Then + _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After + _AveragePriceHUF_After = 0 + _SumAveragePriceHUF_After = 0 + Else + _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After + End If + + _StorageDateClearingPrice.SumAveragePriceHUF_After = _StorageDateClearingPrice.AveragePriceHUF_After * _QTT_After + End If + _StorageDateClearingPrice.QTT_After = _QTT_After + Else + _StorageDateClearingPrice.QTT_Before = 0 + If _StorageDateClearingPrice.QTT_In <> 0 Then + _QTT_After = _StorageDateClearingPrice.QTT_Before + _StorageDateClearingPrice.QTT_In + End If + If _StorageDateClearingPrice.QTT_Out <> 0 Then + _QTT_After = _StorageDateClearingPrice.QTT_Before - _StorageDateClearingPrice.QTT_Out + End If + _StorageDateClearingPrice.QTT_After = _QTT_After + + _StorageDateClearingPrice.AveragePriceHUF_Before = 0 + _StorageDateClearingPrice.SumAveragePriceHUF_Before = 0 + '// Itt kell 2. + If _StorageDateClearingPrice.DeliveryNoteInRRFC IsNot Nothing Then + _SumAveragePriceHUF_After = (_StorageDateClearingPrice.DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount - _StorageDateClearingPrice.DeliveryNoteInRRFC.BonusHUF) + If _StorageDateClearingPrice.QTT_After <> 0 Then + _AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After + Else + _AveragePriceHUF_After = 0 + End If + + + _StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After + _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After + + ElseIf _StorageDateClearingPrice.StorageInRows IsNot Nothing Then + _SumAveragePriceHUF_After = _StorageDateClearingPrice.StorageInRows.AveragePriceInHUF * _StorageDateClearingPrice.StorageInRows.QTT + If _StorageDateClearingPrice.QTT_After <> 0 Then + _AveragePriceHUF_After = _SumAveragePriceHUF_After / _StorageDateClearingPrice.QTT_After + Else + _AveragePriceHUF_After = 0 + End If + + + _StorageDateClearingPrice.SumAveragePriceHUF_After = _SumAveragePriceHUF_After + _StorageDateClearingPrice.AveragePriceHUF_After = _AveragePriceHUF_After + Else + _StorageDateClearingPrice.SumAveragePriceHUF_After = 0 + _StorageDateClearingPrice.AveragePriceHUF_After = 0 + + _SumAveragePriceHUF_After = 0 + _AveragePriceHUF_After = 0 + End If + + End If + _StorageDateClearingPrice.MainIndex = _ItemIndex + + _ItemIndex += 1 + + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + _SQL = "update StorageDateClearingPrice set " + _SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString)) + _SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString)) + _SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString)) + _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid) + Case eSQLType.MySQL + _SQL = "update StorageDateClearingPrice set " + _SQL = String.Format("{0} QTT_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString)) + _SQL = String.Format("{0} QTT_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString)) + _SQL = String.Format("{0} AveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} SumAveragePriceHUF_Before={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} AveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} SumAveragePriceHUF_After={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} MainIndex={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString)) + _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.Oid) + Case eSQLType.PostgreSQL + _SQL = "update ""StorageDateClearingPrice"" set " + _SQL = String.Format("{0} ""QTT_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_Before.ToString)) + _SQL = String.Format("{0} ""QTT_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.QTT_After.ToString)) + _SQL = String.Format("{0} ""AveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} ""SumAveragePriceHUF_Before""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_Before.ToString)) + _SQL = String.Format("{0} ""AveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.AveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} ""SumAveragePriceHUF_After""={1},", _SQL, SQLNum(_StorageDateClearingPrice.SumAveragePriceHUF_After.ToString)) + _SQL = String.Format("{0} ""MainIndex""={1}", _SQL, SQLNum(_StorageDateClearingPrice.MainIndex.ToString)) + _SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.Oid) + End Select + _uow_update.ExecuteNonQuery(_SQL) + + If _StorageDateClearingPrice.InvoiceRows IsNot Nothing Then + _SQL = "" + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + _SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString)) + _SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF " + _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid) + Case eSQLType.MySQL + _SQL = String.Format("update InvoiceRows set SumAveragePriceHUF=QTT*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString)) + _SQL = _SQL & " SumGrossMarginHUF=SumPriceHUF-SumAveragePriceHUF " + _SQL += String.Format(" Where Oid='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid) + Case eSQLType.PostgreSQL + _SQL = String.Format("update ""InvoiceRows"" set ""SumAveragePriceHUF""=""QTT""*{0},", SQLNum(Math.Round(_StorageDateClearingPrice.AveragePriceHUF_After, 0, MidpointRounding.AwayFromZero).ToString)) + _SQL = _SQL & " ""SumGrossMarginHUF""=""SumPriceHUF""-""SumAveragePriceHUF"" " + _SQL += String.Format(" Where ""Oid""='{0}'", _StorageDateClearingPrice.InvoiceRows.Oid) + End Select + _uow_update.ExecuteNonQuery(_SQL) + End If + Next + 'End If + '_uow.CommitChanges() + 'Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + 'Finally + 'If _NeedLine Then RaiseEvent FinalWork + 'End Try + End Sub + Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageDateClearingPrice As StorageDateClearingPrice = _onew.GetObject(TryCast(View.SelectedObjects(0), StorageDateClearingPrice)) + + If _StorageDateClearingPrice IsNot Nothing Then + If _StorageDateClearingPrice.InvoiceRows.OrderInRows IsNot Nothing Then + Dim _ShowStorageOutDeliveryOutRows_PopUp As New ShowStorageOutDeliveryOutRows_PopUp(_onew.Session) + _ShowStorageOutDeliveryOutRows_PopUp.OrderInRows = _StorageDateClearingPrice.InvoiceRows.OrderInRows + + e.View = Application.CreateDetailView(_onew, "ShowStorageOutDeliveryOutRows_PopUp_DetailView", False, _ShowStorageOutDeliveryOutRows_PopUp) + End If + End If + End Sub + Private Sub aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Execute + End Sub + Private Sub aStorageDateClearingPrice_GeneterateDate2Date_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _StorageDateClearingPrice_GeneterateDate2Date_PopUp As New StorageDateClearingPrice_GeneterateDate2Date_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "StorageDateClearingPrice_GeneterateDate2Date_PopUp_DetailView", False, _StorageDateClearingPrice_GeneterateDate2Date_PopUp) + End Sub + Private Sub aStorageDateClearingPrice_GeneterateDate2Date_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_GeneterateDate2Date.Execute + Try + GLOBAL_HAS_Audit = False + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _StorageDateClearingPrice As StorageDateClearingPrice + Dim _Products As Products + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow) + Dim _StartDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).StartDate + Dim _EndDate As Date = TryCast(e.PopupWindow.View.SelectedObjects(0), StorageDateClearingPrice_GeneterateDate2Date_PopUp).EndDate + + Dim _Products_Collection As New XPCollection(Of Products)(_uow) + RaiseEvent InitWork(1, 1, _Products_Collection.Count) + For Each _Products In _Products_Collection + RaiseEvent DoWork() + + Dim _StorageDateClearingPrice_Collection As New XPCollection(Of StorageDateClearingPrice)(_uow, CriteriaOperator.Parse("Products=? AND DateExecution>=? AND DateExecution<=?", _ + _Products, _StartDate, _EndDate)) + _uow.Delete(_StorageDateClearingPrice_Collection) + _uow.CommitChanges() + + Dim _DeliveryNoteInRRFC_Collection As XPCollection(Of DeliveryNoteInRRFC) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + _DeliveryNoteInRRFC_Collection = New XPCollection(Of DeliveryNoteInRRFC)(_uow, + CriteriaOperator.Parse("DeliveryNoteInRows.Products=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution>=? AND RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution<=?", _ + _Products, _StartDate, _EndDate)) + + _DeliveryNoteInRRFC_Collection.Sorting.Add(New SortProperty("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution)", DB.SortingDirection.Ascending)) + + For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date + _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC + _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products + _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled + Next + + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, + CriteriaOperator.Parse("isnull(InvoiceHeader.GCRecord)=True and " + + "InvoiceHeader.IsEditable=False and " + + "InvoiceHeader.IsStorno=False and " + + "InvoiceHeader.DocumentNumber !='' and " + + "OrderInRows.Products.Oid=? AND InvoiceHeader.DateExecution>=? AND InvoiceHeader.DateExecution<=?", _Products.Oid, _StartDate, _EndDate)) + + _InvoiceRows_Collection.Sorting.Add(New SortProperty("GetDate(InvoiceHeader.DateExecution)", DB.SortingDirection.Ascending)) + + For Each _InvoiceRows In _InvoiceRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date + _StorageDateClearingPrice.InvoiceRows = _InvoiceRows + _StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products + _StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT + Next + + '// Gyrtsba kiadott ttelek kitrols ! + Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.StorageMoveType.MoveType in (5,3,4) " + _ + "AND StorageOutRows.StorageOutHeader.IsEditable = False AND StorageOutRows.StorageOutHeader.DocumentNumber !='' and StorageOutRows.Products.Oid=? " + _ + "AND StorageOutRows.StorageOutHeader.CreateDate>=? AND StorageOutRows.StorageOutHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate)) + + For Each _StorageOutRowsInRows As StorageOutRowsInRows In _StorageOutRowsInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 1 + _StorageDateClearingPrice.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CreateDate.Date + _StorageDateClearingPrice.Products = _StorageOutRowsInRows.StorageOutRows.Products + _StorageDateClearingPrice.QTT_Out = _StorageOutRowsInRows.QTT + _StorageDateClearingPrice.StorageOutRowsInRows = _StorageOutRowsInRows + Next + + '// Gyrtsbl bevett ttelek + vevi jvrsbl betrols !! + Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow, CriteriaOperator.Parse("StorageInHeader.StorageMoveType.MoveType in (5,3) " + _ + "AND StorageInHeader.IsEditable = False AND StorageInHeader.DocumentNumber !='' and Products.Oid=?" + _ + " and StorageInHeader.CreateDate>=? AND StorageInHeader.CreateDate<=?", _Products.Oid, _StartDate, _EndDate)) + + For Each _StorageInRows As StorageInRows In _StorageInRows_Collection + _StorageDateClearingPrice = New StorageDateClearingPrice(_uow) + _StorageDateClearingPrice.RowIndex = 0 + _StorageDateClearingPrice.CustomersFrom = _StorageInRows.StorageInHeader.Storage.CustomersFrom + _StorageDateClearingPrice.DateExecution = _StorageInRows.StorageInHeader.CreateDate.Date + _StorageDateClearingPrice.StorageInRows = _StorageInRows + _StorageDateClearingPrice.Products = _StorageInRows.Products + _StorageDateClearingPrice.QTT_In = _StorageInRows.QTT + Next + + _uow.CommitChanges() + + For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection + UpdateStorageDateClearingPrice(_Products, _CustomersFrom, False) + Next + Next + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork() + End Try + End Sub + + Private Sub aStorageDateClearingPrice_SetSIRPrice_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SetSIRPrice_PopUp As New SetSIRPrice_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "SetSIRPrice_PopUp_DetailView", False, _SetSIRPrice_PopUp) + End Sub + Private Sub aStorageDateClearingPrice_SetSIRPrice_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aStorageDateClearingPrice_SetSIRPrice.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _StorageDateClearingPrice As StorageDateClearingPrice = TryCast(View.SelectedObjects(0), StorageDateClearingPrice) + Dim _SetSIRPrice_PopUp As SetSIRPrice_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), SetSIRPrice_PopUp) + + If _StorageDateClearingPrice.StorageInRows IsNot Nothing Then + _StorageDateClearingPrice.StorageInRows.AveragePriceInHUF = _SetSIRPrice_PopUp.AveragePriceInHUF + End If + + _ocur.CommitChanges() + + Frame.GetController(Of StorageDateVC).aStorageDateClearingPrice_DateAndValueReCalculate.DoExecute() + End Sub + + Private Sub aSetBonusHUF_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSetBonusHUF.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = _onew.CreateObject(Of DeliveryNoteInRRFC_Popup)() + + + e.View = Application.CreateDetailView(_onew, "DeliveryNoteInRRFC_Popup_DetailView", False, _DeliveryNoteInRRFC_Popup) + End Sub + + Private Sub aSetBonusHUF_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSetBonusHUF.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DeliveryNoteInRRFC_Popup As DeliveryNoteInRRFC_Popup = e.PopupWindow.View.SelectedObjects(0) + Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC + Dim _TotalAmount As Double = 0 + + For Each _DeliveryNoteInRRFC In View.SelectedObjects + _TotalAmount += _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount + Next + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _DeliveryNoteInRRFC In View.SelectedObjects + RaiseEvent DoWork() + _DeliveryNoteInRRFC.BonusHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount * (_DeliveryNoteInRRFC_Popup.BonusHUF / _TotalAmount), 0, MidpointRounding.AwayFromZero) + _ocur.CommitChanges() + UpdateStorageDateClearingPrice(_DeliveryNoteInRRFC.DeliveryNoteInRows.Products, _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom, False) + Next + RaiseEvent FinalWork() + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb new file mode 100644 index 0000000..8d9ae22 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb @@ -0,0 +1,95 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class StorageLocation + Inherits BaseObject + + Private _ShortName As String + Private _Barcode As String 'Vonalkd + Private _Storage As Storage + Private _BarcodeEAN13Base As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Barcode As String + Get + Return _Barcode + End Get + Set(value As String) + SetPropertyValue("Barcode", _Barcode, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Storage As Storage + Get + Return _Storage + End Get + Set(value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + Property BarcodeEAN13Base As String + Get + Return _BarcodeEAN13Base + End Get + Set(value As String) + SetPropertyValue("BarcodeEAN13Base", _BarcodeEAN13Base, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If EAN13Generator(value) <> "" Then + Me.Barcode = EAN13Generator(value) + Else + + End If + + End If + End Set + End Property + + Function EAN13Generator(ByVal _Base As String) As String + If _Base = Nothing Then + Return "" + Exit Function + End If + If _Base.Length = 12 Then + Dim i As Long + Dim _CheckSum As Long = 0 + For i = 1 To Len(_Base) + If i Mod 2 = 0 Then + _CheckSum += Val(Mid(_Base, i, 1)) * 3 + Else + _CheckSum += Val(Mid(_Base, i, 1)) + End If + Next + _CheckSum = 10 - (_CheckSum Mod 10) + If _CheckSum = 10 Then _CheckSum = 0 + + Return _Base & LTrim(RTrim(CStr(_CheckSum))) + Else + Return "" + End If + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.Designer.vb new file mode 100644 index 0000000..b6b42c3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class StorageLocation_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aStorageLocationsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aStorageLocationsPrint + ' + Me.aStorageLocationsPrint.Caption = "aStorageLocationsPrint" + Me.aStorageLocationsPrint.Category = "View" + Me.aStorageLocationsPrint.ConfirmationMessage = Nothing + Me.aStorageLocationsPrint.Id = "aStorageLocationsPrint" + Me.aStorageLocationsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aStorageLocationsPrint.Shortcut = Nothing + Me.aStorageLocationsPrint.Tag = Nothing + Me.aStorageLocationsPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageLocation) + Me.aStorageLocationsPrint.TargetViewId = Nothing + Me.aStorageLocationsPrint.ToolTip = Nothing + Me.aStorageLocationsPrint.TypeOfView = Nothing + + End Sub + Friend WithEvents aStorageLocationsPrint As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.resx new file mode 100644 index 0000000..320cf16 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.vb new file mode 100644 index 0000000..3b435e4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation_VC.vb @@ -0,0 +1,42 @@ +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.Persistent.BaseImpl + +Public Class StorageLocation_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aStorageLocationsPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageLocationsPrint.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Raktri lokcik")) + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny!") + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Egy sort ki kell jellni, hogy a raktr azonosthat legyen!") + + Dim _OidArray As New ArrayList + + For Each _StorageLocation As StorageLocation In View.SelectedObjects + _OidArray.Add(_StorageLocation.Oid) + Next + + Dim _InOperator As InOperator = New InOperator("Oid", _OidArray) + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _InOperator, True) + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEvents.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEvents.vb new file mode 100644 index 0000000..f4cb2e5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEvents.vb @@ -0,0 +1,158 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + +Public Enum eMoveEventsType + StorageInFinal = 0 + StorageInBackToEdit = 1 + StorageInStorno = 2 + StorageOutFinal = 3 + StorageOutBackToEdit = 4 + StorageOutStorno = 5 +End Enum + + _ + _ + _ +Public Class StorageMoveEvents + Inherits BaseObject + + Private _StorageInRows As StorageInRows + Private _StorageOutRows As StorageOutRows + Private _QTT As Double 'A mozgatott mennyisg eljelesen + Private _QTT_Free_Before As Double 'Elz llapot + Private _QTT_Free_After As Double 'Utna llapot + Private _ExecutionDate As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _MoveEventsType As eMoveEventsType 'Esemny megnevezse + Private _FullIndex As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property StorageInRows As StorageInRows + Get + Return _StorageInRows + End Get + Set(value As StorageInRows) + SetPropertyValue("StorageInRows", _StorageInRows, value) + End Set + End Property + Property StorageOutRows As StorageOutRows + Get + Return _StorageOutRows + End Get + Set(value As StorageOutRows) + SetPropertyValue("StorageOutRows", _StorageOutRows, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property QTT_Free_Before As Double + Get + Return _QTT_Free_Before + End Get + Set(value As Double) + SetPropertyValue("QTT_Free_Before", _QTT_Free_Before, value) + End Set + End Property + Property QTT_Free_After As Double + Get + Return _QTT_Free_After + End Get + Set(value As Double) + SetPropertyValue("QTT_Free_After", _QTT_Free_After, value) + End Set + End Property + Property ExecutionDate As Date + Get + Return _ExecutionDate + End Get + Set(value As Date) + SetPropertyValue("ExecutionDate", _ExecutionDate, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property MoveEventsType As eMoveEventsType + Get + Return _MoveEventsType + End Get + Set(value As eMoveEventsType) + SetPropertyValue("MoveEventsType", _MoveEventsType, value) + End Set + End Property + Property FullIndex As Long + Get + Return _FullIndex + End Get + Set(value As Long) + SetPropertyValue("FullIndex", _FullIndex, value) + End Set + End Property + + _ + ReadOnly Property Image1 As Image + Get + Select Case MoveEventsType + Case eMoveEventsType.StorageInFinal + Return ImageLoader.Instance.GetImageInfo("arrow_down_blue").Image + Case eMoveEventsType.StorageInBackToEdit + Return ImageLoader.Instance.GetImageInfo("arrow_right_blue").Image + Case eMoveEventsType.StorageInStorno + Return ImageLoader.Instance.GetImageInfo("box_next").Image + + Case eMoveEventsType.StorageOutFinal + Return ImageLoader.Instance.GetImageInfo("arrow_up_green").Image + Case eMoveEventsType.StorageOutBackToEdit + Return ImageLoader.Instance.GetImageInfo("arrow_left_blue").Image + Case eMoveEventsType.StorageOutStorno + Return ImageLoader.Instance.GetImageInfo("box_previous").Image + + Case Else + Return Nothing + End Select + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb new file mode 100644 index 0000000..bbb8766 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.Designer.vb @@ -0,0 +1,55 @@ +Partial Class StorageMoveEventsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecalcStorageMoveEvents = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecalcStorageMoveEvents_StorageComputed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aRecalcStorageMoveEvents + ' + Me.aRecalcStorageMoveEvents.Caption = "aRecalc Storage Move Events" + Me.aRecalcStorageMoveEvents.ConfirmationMessage = Nothing + Me.aRecalcStorageMoveEvents.Id = "aRecalcStorageMoveEvents" + Me.aRecalcStorageMoveEvents.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRecalcStorageMoveEvents.TargetObjectType = GetType(SISBusiness.[Module].StorageMoveEvents) + Me.aRecalcStorageMoveEvents.ToolTip = Nothing + ' + 'aRecalcStorageMoveEvents_StorageComputed + ' + Me.aRecalcStorageMoveEvents_StorageComputed.Caption = "aRecalcStorageMoveEvents_StorageComputed" + Me.aRecalcStorageMoveEvents_StorageComputed.ConfirmationMessage = Nothing + Me.aRecalcStorageMoveEvents_StorageComputed.Id = "aRecalcStorageMoveEvents_StorageComputed" + Me.aRecalcStorageMoveEvents_StorageComputed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRecalcStorageMoveEvents_StorageComputed.TargetObjectType = GetType(SISBusiness.[Module].StorageComputed) + Me.aRecalcStorageMoveEvents_StorageComputed.ToolTip = Nothing + + End Sub + Friend WithEvents aRecalcStorageMoveEvents As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecalcStorageMoveEvents_StorageComputed As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.resx b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.resx new file mode 100644 index 0000000..e9a45d2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 228, 28 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb new file mode 100644 index 0000000..c61530a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveEventsVC.vb @@ -0,0 +1,90 @@ +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.Xpo + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Partial Public Class StorageMoveEventsVC + Inherits ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 aRecalcStorageMoveEvents_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalcStorageMoveEvents.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _StorageMoveEvents As StorageMoveEvents + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _StorageMoveEvents In View.SelectedObjects + RaiseEvent DoWork() + RecalcStorageMoveEvents(_uow, _StorageMoveEvents.StorageInRows.StorageInHeader.Storage, _StorageMoveEvents.StorageInRows.Products) + Next + RaiseEvent FinalWork + End Sub + + Private Sub RecalcStorageMoveEvents(_uow As UnitOfWork, _Storage As Storage, _Products As Products) + Dim _FullIndex As Long = 1 + Dim _Next As Double = 0 + Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_uow, CriteriaOperator.Parse("IsNull(StorageInRows.GCRecord)=True and IsNull(StorageInRows.StorageInHeader.GCRecord)=True and StorageInRows.Storage.Oid=? and StorageInRows.Products.Oid=?", _Storage.Oid, _Products.Oid)) + Dim _StorageMoveEvents As StorageMoveEvents + + + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("GetDate(ExecutionDate)", DB.SortingDirection.Ascending)) + _StorageMoveEvents_Collection.Sorting.Add(New SortProperty("StorageInRows.RowIndex", DB.SortingDirection.Ascending)) + + + For Each _StorageMoveEvents In _StorageMoveEvents_Collection + _StorageMoveEvents.QTT_Free_Before = _Next + _StorageMoveEvents.QTT_Free_After = _StorageMoveEvents.QTT_Free_Before + _StorageMoveEvents.QTT + _StorageMoveEvents.FullIndex = _FullIndex + _FullIndex += 1 + _Next = _StorageMoveEvents.QTT_Free_After + Next + _uow.CommitChanges() + + End Sub + + Private Sub aRecalcStorageMoveEvents_StorageComputed_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalcStorageMoveEvents_StorageComputed.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _StorageComputed As StorageComputed + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _StorageComputed In View.SelectedObjects + RaiseEvent DoWork() + RecalcStorageMoveEvents(_uow, _StorageComputed.Storage, _StorageComputed.Products) + Next + RaiseEvent FinalWork + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb new file mode 100644 index 0000000..f630c02 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Utils + +Public Enum eMoveType + Sales = 0 'rtkests + Uses = 1 'Felhasznls + Inventory = 3 'Leltr + Disposal = 4 'Selejtezs + Production = 5 'Gyrts + InventoryTransfer = 6 'Raktrkzi mozgs + Asset = 2 'Trgyi eszkz + NormalInput = 7 'Norml bevtelezs + CreditNote = 8 'Eladott ttel jvrsbl visszavtel + ReturnBack = 9 'Szllti visszr ! +End Enum + + _ + _ + _ +Public Class StorageMoveType '-- Mozgsi paramterek + Inherits BaseObject + Private _Storage As Storage ' -- Raktr + Private _MoveType As eMoveType ' Mozgs tipusa + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property Storage As Storage + Get + Return _Storage + End Get + Set(ByVal value As Storage) + SetPropertyValue("Storage", _Storage, value) + End Set + End Property + _ + Property MoveType As eMoveType + Get + Return _MoveType + End Get + Set(ByVal value As eMoveType) + SetPropertyValue("MoveType", _MoveType, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + If Storage Is Nothing Then + Return "" + Else + Return Storage.ShortName & " - > " & CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eMoveType", MoveType.ToString) + End If + End Get + End Property + + _ + ReadOnly Property StorageMoveTypeYear As XPCollection(Of StorageMoveTypeYear) + Get + Return GetCollection(Of StorageMoveTypeYear)("StorageMoveTypeYear") + End Get + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveTypeYear.vb b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveTypeYear.vb new file mode 100644 index 0000000..a5ac6cb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveTypeYear.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class StorageMoveTypeYear + Inherits BaseObject + Private _StorageMoveType As StorageMoveType + Private _DebitChartOfAccounts As ChartOfAccounts '-- Tartozik + Private _CreditChartOfAccounts As ChartOfAccounts '-- Kvetel + Private _ProductsGroups As ProductsGroups ' -- Termk csoport + _ + Property ProductsGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(ByVal value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property StorageMoveType As StorageMoveType + Get + Return _StorageMoveType + End Get + Set(value As StorageMoveType) + SetPropertyValue("StorageMoveType", _StorageMoveType, value) + End Set + End Property + _ + Property DebitChartOfAccounts As ChartOfAccounts + Get + Return _DebitChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("DebitChartsOfAccounts", _DebitChartOfAccounts, value) + End Set + End Property + _ + Property CreditChartOfAccounts As ChartOfAccounts + Get + Return _CreditChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("CreditChartsOfAccounts", _CreditChartOfAccounts, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor.vb new file mode 100644 index 0000000..ad125cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor.vb @@ -0,0 +1,117 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class Subcontractor + Inherits BaseObject + + Private _Customers As Customers 'Alvllalkoz + Private _ObjectCreated As Date ' Objektum mikor kszlt + Private _UserCreated As User 'Ki ksztette + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '----------------ReadOnly properties--------------------- + _ + _ + _ + Public ReadOnly Property SubcontractorCustomers As XPCollection(Of SubcontractorCustomers) + Get + Return GetCollection(Of SubcontractorCustomers)("SubcontractorCustomers") + End Get + End Property + _ + _ + _ + Public ReadOnly Property SubcontractorWorksheetType As XPCollection(Of SubcontractorWorksheetType) + Get + Return GetCollection(Of SubcontractorWorksheetType)("SubcontractorWorksheetType") + End Get + End Property + _ + _ + _ + Public ReadOnly Property SubcontractorDocuments As XPCollection(Of SubcontractorDocuments) + Get + Return GetCollection(Of SubcontractorDocuments)("SubcontractorDocuments") + End Get + End Property + Public ReadOnly Property SubcontractorUser As XPCollection(Of User) + Get + Dim _User_Collection As New XPCollection(Of User)(Session, CriteriaOperator.Parse("1=2")) + If Me.Customers IsNot Nothing Then + Dim _Contacts_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers)) + + For Each _Contacts As Contacts In _Contacts_Collection + If _Contacts.User IsNot Nothing Then + _User_Collection.Add(Session.GetObjectByKey(Of User)(_Contacts.User.Oid)) + End If + Next + + Return _User_Collection + Else + Return Nothing + End If + End Get + End Property + Public ReadOnly Property SubcontractorUserRoles As XPCollection(Of SubcontractorUserRoles) + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return New XPCollection(Of SubcontractorUserRoles)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", Me.Oid)) + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorCustomers.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorCustomers.vb new file mode 100644 index 0000000..7bb6228 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorCustomers.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SubcontractorCustomers + Inherits BaseObject + Private _Subcontractor As Subcontractor + Private _Customers As Customers + Private _Workplace As WorkPlace + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + _ + Property Workplace As WorkPlace + Get + Return _Workplace + End Get + Set(value As WorkPlace) + SetPropertyValue("Workplace", _Workplace, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorDocuments.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorDocuments.vb new file mode 100644 index 0000000..97aa443 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorDocuments.vb @@ -0,0 +1,151 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class SubcontractorDocuments + Inherits FileAttachmentBase + Private _Subcontractor As Subcontractor + Private _Group1 As String '1. csoportosts + Private _Group2 As String '2. csoportosts + Private _ObjectCreated As Date ' Objektum mikor kszlt + Private _UserCreated As User 'Ki ksztette + Private _IsDashboard As Boolean 'Mszerfal-e + Private _XML_ServerName As String + Private _XML_UserName As String + Private _XML_DatabaseName As String + Private _XML_Password As String + Private _XML_SqlType As eSQLType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsDashboard = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property Group1 As String + Get + Return _Group1 + End Get + Set(value As String) + SetPropertyValue("Group1", _Group1, value) + End Set + End Property + Property Group2 As String + Get + Return _Group2 + End Get + Set(value As String) + SetPropertyValue("Group2", _Group2, value) + End Set + End Property + _ + Property IsDashboard As Boolean + Get + Return _IsDashboard + End Get + Set(value As Boolean) + SetPropertyValue("IsDashboard", _IsDashboard, value) + End Set + End Property + _ + Property XML_ServerName As String + Get + Return _XML_ServerName + End Get + Set(value As String) + SetPropertyValue("XML_ServerName", _XML_ServerName, value) + End Set + End Property + _ + Property XML_UserName As String + Get + Return _XML_UserName + End Get + Set(value As String) + SetPropertyValue("XML_UserName", _XML_UserName, value) + End Set + End Property + _ + Property XML_DatabaseName As String + Get + Return _XML_DatabaseName + End Get + Set(value As String) + SetPropertyValue("XML_DatabaseName", _XML_DatabaseName, value) + End Set + End Property + _ + _ + _ + Property XML_Password As String + Get + Return _XML_Password + End Get + Set(value As String) + SetPropertyValue("XML_Password", _XML_Password, value) + End Set + End Property + _ + Property XML_SqlType As eSQLType + Get + Return _XML_SqlType + End Get + Set(value As eSQLType) + SetPropertyValue("XML_SqlType", _XML_SqlType, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorRoles.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorRoles.vb new file mode 100644 index 0000000..12ded5d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorRoles.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SubcontractorRoles + Inherits BaseObject + + Private _ShortName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorUserRoles.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorUserRoles.vb new file mode 100644 index 0000000..91bd471 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorUserRoles.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SubcontractorUserRoles + Inherits BaseObject + + Private _Subcontractor As Subcontractor + Private _SubcontractorRoles As SubcontractorRoles + Private _User As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property + Property SubcontractorRoles As SubcontractorRoles + Get + Return _SubcontractorRoles + End Get + Set(value As SubcontractorRoles) + SetPropertyValue("SubcontractorRoles", _SubcontractorRoles, value) + End Set + End Property + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorWorksheetType.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorWorksheetType.vb new file mode 100644 index 0000000..2603b6c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/SubcontractorWorksheetType.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SubcontractorWorksheetType + Inherits BaseObject + + Private _Subcontractor As Subcontractor + Private _WorkSheetType As WorkSheetType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property + Property WorkSheetType As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(value As WorkSheetType) + SetPropertyValue("WorkSheetType", _WorkSheetType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb new file mode 100644 index 0000000..8217bab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class Subcontractor_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSelectCustomersSubcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateSubcontractorUserRoles = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSelectCustomersSubcontractor + ' + Me.aSelectCustomersSubcontractor.AcceptButtonCaption = Nothing + Me.aSelectCustomersSubcontractor.CancelButtonCaption = Nothing + Me.aSelectCustomersSubcontractor.Caption = "aSelect Customers Subcontractor" + Me.aSelectCustomersSubcontractor.ConfirmationMessage = Nothing + Me.aSelectCustomersSubcontractor.Id = "aSelectCustomersSubcontractor" + Me.aSelectCustomersSubcontractor.ImageName = Nothing + Me.aSelectCustomersSubcontractor.Shortcut = Nothing + Me.aSelectCustomersSubcontractor.Tag = Nothing + Me.aSelectCustomersSubcontractor.TargetObjectsCriteria = Nothing + Me.aSelectCustomersSubcontractor.TargetViewId = Nothing + Me.aSelectCustomersSubcontractor.ToolTip = Nothing + Me.aSelectCustomersSubcontractor.TypeOfView = Nothing + ' + 'aCreateSubcontractorUserRoles + ' + Me.aCreateSubcontractorUserRoles.AcceptButtonCaption = Nothing + Me.aCreateSubcontractorUserRoles.CancelButtonCaption = Nothing + Me.aCreateSubcontractorUserRoles.Caption = "aCreate Subcontractor User Roles" + Me.aCreateSubcontractorUserRoles.ConfirmationMessage = Nothing + Me.aCreateSubcontractorUserRoles.Id = "aCreateSubcontractorUserRoles" + Me.aCreateSubcontractorUserRoles.ImageName = Nothing + Me.aCreateSubcontractorUserRoles.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateSubcontractorUserRoles.Shortcut = Nothing + Me.aCreateSubcontractorUserRoles.Tag = Nothing + Me.aCreateSubcontractorUserRoles.TargetObjectsCriteria = Nothing + Me.aCreateSubcontractorUserRoles.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.User) + Me.aCreateSubcontractorUserRoles.TargetViewId = "Subcontractor_SubcontractorUser_ListView" + Me.aCreateSubcontractorUserRoles.ToolTip = Nothing + Me.aCreateSubcontractorUserRoles.TypeOfView = Nothing + + End Sub + Friend WithEvents aSelectCustomersSubcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateSubcontractorUserRoles As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.resx new file mode 100644 index 0000000..5dd3d5e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 242, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb new file mode 100644 index 0000000..57f802b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Subcontractor/Subcontractor_VC.vb @@ -0,0 +1,180 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Xpo + +Public Class Subcontractor_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, XPObjectSpace) + + If View.Id = "Subcontractor_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + + Frame.GetController(Of Subcontractor_VC).aSelectCustomersSubcontractor.Active.SetItemValue("", True) + End If + If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + End If + If View.Id = "PCIGroup_ListView_Subcontractor" Then + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId)) + + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid) + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("1=2") + End If + End If + '------------------DeatailViews---------------------- + If View.Id = "Subcontractor_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Subcontractor_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Subcontractor_SubcontractorCustomers_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + End If + If View.Id = "Subcontractor_SubcontractorWorksheetType_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + End If + If View.Id = "PCIGroup_ListView_Subcontractor" Then + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + '------------------DeatailViews---------------------- + If View.Id = "Subcontractor_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aSelectCustomersSubcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersSubcontractor.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(Customers)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("Customers_ListView_Select", _CS, False) + End Sub + Private Sub aSelectCustomersSubcontractor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersSubcontractor.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Customers As Customers + Dim _Subcontractor As Subcontractor = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _SubcontractorCustomers As SubcontractorCustomers + Dim _Exists As Boolean = False + If _Subcontractor Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _Customers In e.PopupWindow.View.SelectedObjects + _Exists = False + For Each _SubcontractorCustomers In _Subcontractor.SubcontractorCustomers + If _SubcontractorCustomers.Oid = _Customers.Oid Then + _Exists = True + End If + Next + If _Exists = False Then + _SubcontractorCustomers = _ocur.CreateObject(Of SubcontractorCustomers)() + _SubcontractorCustomers.Customers = _ocur.GetObject(_Customers) + _SubcontractorCustomers.Subcontractor = _Subcontractor + End If + Next + _ocur.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aCreateSubcontractorUserRoles_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateSubcontractorUserRoles.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(SubcontractorRoles)) + + e.View = Application.CreateListView("SubcontractorRoles_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateSubcontractorUserRoles_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateSubcontractorUserRoles.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _SubcontractorRoles As SubcontractorRoles = TryCast(e.PopupWindow.View.SelectedObjects(0), SubcontractorRoles) + Dim _Subcontractor As Subcontractor = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Subcontractor) + For Each _User As DevExpress.Persistent.BaseImpl.User In View.SelectedObjects + Dim _SubcontractorUserRoles As SubcontractorUserRoles = _ocur.CreateObject(Of SubcontractorUserRoles)() + _SubcontractorUserRoles.User = _User + _SubcontractorUserRoles.SubcontractorRoles = _ocur.GetObjectByKey(Of SubcontractorRoles)(_SubcontractorRoles.Oid) + _SubcontractorUserRoles.Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_Subcontractor.Oid) + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies.vb new file mode 100644 index 0000000..b1e302e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies.vb @@ -0,0 +1,220 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class Technologies + Inherits BaseObject + + Private _MasterBusinessDirectory As BusinessDirectory + Private _DocumentNumber As String + Private _ShortName As String + Private _Description As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _TechnologiesParameters As TechnologiesParameters + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = TechnologiesParameters.NumberGenerator.GetNewNumber(TechnologiesParameters.NumberGenerator) + End If + End Sub + + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property TechnologiesParameters As TechnologiesParameters + Get + Return _TechnologiesParameters + End Get + Set(value As TechnologiesParameters) + SetPropertyValue("TechnologiesParameters", _TechnologiesParameters, value) + End Set + End Property + + '---ReadOlny properties + _ + ReadOnly Property Products As XPCollection(Of Products) + Get + Dim _Products_Collection As New XPCollection(Of Products)(Session, CriteriaOperator.Parse("1=2")) + + Dim _TechnologiesProducts_Collection As New XPCollection(Of TechnologiesProducts)(Session, CriteriaOperator.Parse("Technologies=?", Me)) + For Each _TechnologiesProducts As TechnologiesProducts In _TechnologiesProducts_Collection + _Products_Collection.Add(_TechnologiesProducts.Products) + Next + + Return _Products_Collection + End Get + End Property + _ + ReadOnly Property Services As XPCollection(Of Services) + Get + Dim _Services_Collection As New XPCollection(Of Services)(Session, CriteriaOperator.Parse("1=2")) + + Dim _TechnologiesServices_Collection As New XPCollection(Of TechnologiesServices)(Session, CriteriaOperator.Parse("Technologies=?", Me)) + For Each _TechnologiesServices As TechnologiesServices In _TechnologiesServices_Collection + _Services_Collection.Add(_TechnologiesServices.Services) + Next + + Return _Services_Collection + End Get + End Property + _ + ReadOnly Property Customers As XPCollection(Of Customers) + Get + Dim _Customers_Collection As New XPCollection(Of Customers)(Session, CriteriaOperator.Parse("1=2")) + + Dim _TechnologiesCustomers_Collection As New XPCollection(Of TechnologiesCustomers)(Session, CriteriaOperator.Parse("Technologies=?", Me)) + For Each _TechnologiesCustomers As TechnologiesCustomers In _TechnologiesCustomers_Collection + _Customers_Collection.Add(_TechnologiesCustomers.Customers) + Next + + Return _Customers_Collection + End Get + End Property + _ + ReadOnly Property Contacts As XPCollection(Of Contacts) + Get + Dim _Contacts_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("1=2")) + + Dim _TechnologiesContacts_Collection As New XPCollection(Of TechnologiesContacts)(Session, CriteriaOperator.Parse("Technologies=?", Me)) + For Each _TechnologiesContacts As TechnologiesContacts In _TechnologiesContacts_Collection + _Contacts_Collection.Add(_TechnologiesContacts.Contacts) + Next + + Return _Contacts_Collection + End Get + End Property + _ + ReadOnly Property Technologies_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + For Each _ProductsElem As Products In Products + If _ProductsElem.MasterBusinessDirectory IsNot Nothing Then + If _ProductsElem.MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(_ProductsElem.MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ProductsElem.MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(_ProductsElem.MasterBusinessDirectory) + End If + End If + If _ProductsElem.ProductGroups IsNot Nothing Then + If _ProductsElem.ProductGroups.MasterBusinessDirectory IsNot Nothing Then + If _ProductsElem.ProductGroups.MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(_ProductsElem.ProductGroups.MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ProductsElem.ProductGroups.MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(_ProductsElem.ProductGroups.MasterBusinessDirectory) + End If + + End If + End If + Next + + For Each _ServicesElem As Services In Services + If _ServicesElem.MasterBusinessDirectory IsNot Nothing Then + If _ServicesElem.MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(_ServicesElem.MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, _ServicesElem.MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(_ServicesElem.MasterBusinessDirectory) + End If + End If + Next + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + + Return _BusinessDirectory_Collection + End Get + End Property +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesContacts.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesContacts.vb new file mode 100644 index 0000000..26e2567 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesContacts.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class TechnologiesContacts + Inherits BaseObject + + Private _Technologies As Technologies + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Technologies As Technologies + Get + Return _Technologies + End Get + Set(value As Technologies) + SetPropertyValue("Technologies", _Technologies, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesCustomers.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesCustomers.vb new file mode 100644 index 0000000..c5646a9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesCustomers.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class TechnologiesCustomers + Inherits BaseObject + + Private _Technologies As Technologies + Private _Customers As Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Technologies As Technologies + Get + Return _Technologies + End Get + Set(value As Technologies) + SetPropertyValue("Technologies", _Technologies, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesParameters.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesParameters.vb new file mode 100644 index 0000000..2ef5446 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesParameters.vb @@ -0,0 +1,71 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class TechnologiesParameters + Inherits BaseObject + + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesProducts.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesProducts.vb new file mode 100644 index 0000000..687f9ab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesProducts.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class TechnologiesProducts + Inherits BaseObject + + Private _Technologies As Technologies + Private _Products As Products + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Technologies As Technologies + Get + Return _Technologies + End Get + Set(value As Technologies) + SetPropertyValue("Technologies", _Technologies, value) + End Set + End Property + _ + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesServices.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesServices.vb new file mode 100644 index 0000000..c5266d7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/TechnologiesServices.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class TechnologiesServices + Inherits BaseObject + + Private _Technologies As Technologies + Private _Services As Services + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Technologies As Technologies + Get + Return _Technologies + End Get + Set(value As Technologies) + SetPropertyValue("Technologies", _Technologies, value) + End Set + End Property + _ + Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.Designer.vb new file mode 100644 index 0000000..5cdeb87 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.Designer.vb @@ -0,0 +1,156 @@ +Partial Class Technologies_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTechnologies_AddCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aTechnologies_AddProducts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aTechnologies_AddServices = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aTechnologies_RemoveServices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTechnologies_RemoveCustomers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTechnologies_RemoveProducts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTechnologies_AddContacts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aTechnologies_AddCustomers + ' + Me.aTechnologies_AddCustomers.AcceptButtonCaption = Nothing + Me.aTechnologies_AddCustomers.CancelButtonCaption = Nothing + Me.aTechnologies_AddCustomers.Caption = "aTechnologies_AddCustomers" + Me.aTechnologies_AddCustomers.Category = "ObjectsCreation" + Me.aTechnologies_AddCustomers.ConfirmationMessage = Nothing + Me.aTechnologies_AddCustomers.Id = "aTechnologies_AddCustomers" + Me.aTechnologies_AddCustomers.ImageName = Nothing + Me.aTechnologies_AddCustomers.Shortcut = Nothing + Me.aTechnologies_AddCustomers.Tag = Nothing + Me.aTechnologies_AddCustomers.TargetObjectsCriteria = Nothing + Me.aTechnologies_AddCustomers.TargetViewId = "Technologies_Customers_ListView" + Me.aTechnologies_AddCustomers.ToolTip = Nothing + Me.aTechnologies_AddCustomers.TypeOfView = Nothing + ' + 'aTechnologies_AddProducts + ' + Me.aTechnologies_AddProducts.AcceptButtonCaption = Nothing + Me.aTechnologies_AddProducts.CancelButtonCaption = Nothing + Me.aTechnologies_AddProducts.Caption = "aTechnologies_AddProducts" + Me.aTechnologies_AddProducts.Category = "ObjectsCreation" + Me.aTechnologies_AddProducts.ConfirmationMessage = Nothing + Me.aTechnologies_AddProducts.Id = "aTechnologies_AddProducts" + Me.aTechnologies_AddProducts.ImageName = Nothing + Me.aTechnologies_AddProducts.Shortcut = Nothing + Me.aTechnologies_AddProducts.Tag = Nothing + Me.aTechnologies_AddProducts.TargetObjectsCriteria = Nothing + Me.aTechnologies_AddProducts.TargetViewId = "Technologies_Products_ListView" + Me.aTechnologies_AddProducts.ToolTip = Nothing + Me.aTechnologies_AddProducts.TypeOfView = Nothing + ' + 'aTechnologies_AddServices + ' + Me.aTechnologies_AddServices.AcceptButtonCaption = Nothing + Me.aTechnologies_AddServices.CancelButtonCaption = Nothing + Me.aTechnologies_AddServices.Caption = "aTechnologies_AddServices" + Me.aTechnologies_AddServices.Category = "ObjectsCreation" + Me.aTechnologies_AddServices.ConfirmationMessage = Nothing + Me.aTechnologies_AddServices.Id = "aTechnologies_AddServices" + Me.aTechnologies_AddServices.ImageName = Nothing + Me.aTechnologies_AddServices.Shortcut = Nothing + Me.aTechnologies_AddServices.Tag = Nothing + Me.aTechnologies_AddServices.TargetObjectsCriteria = Nothing + Me.aTechnologies_AddServices.TargetViewId = "Technologies_Services_ListView" + Me.aTechnologies_AddServices.ToolTip = Nothing + Me.aTechnologies_AddServices.TypeOfView = Nothing + ' + 'aTechnologies_RemoveServices + ' + Me.aTechnologies_RemoveServices.Caption = "aTechnologies_RemoveServices" + Me.aTechnologies_RemoveServices.Category = "RecordEdit" + Me.aTechnologies_RemoveServices.ConfirmationMessage = Nothing + Me.aTechnologies_RemoveServices.Id = "aTechnologies_RemoveServices" + Me.aTechnologies_RemoveServices.ImageName = Nothing + Me.aTechnologies_RemoveServices.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aTechnologies_RemoveServices.Shortcut = Nothing + Me.aTechnologies_RemoveServices.Tag = Nothing + Me.aTechnologies_RemoveServices.TargetObjectsCriteria = Nothing + Me.aTechnologies_RemoveServices.TargetViewId = "Technologies_Services_ListView" + Me.aTechnologies_RemoveServices.ToolTip = Nothing + Me.aTechnologies_RemoveServices.TypeOfView = Nothing + ' + 'aTechnologies_RemoveCustomers + ' + Me.aTechnologies_RemoveCustomers.Caption = "aTechnologies_RemoveCustomers" + Me.aTechnologies_RemoveCustomers.Category = "RecordEdit" + Me.aTechnologies_RemoveCustomers.ConfirmationMessage = Nothing + Me.aTechnologies_RemoveCustomers.Id = "aTechnologies_RemoveCustomers" + Me.aTechnologies_RemoveCustomers.ImageName = Nothing + Me.aTechnologies_RemoveCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aTechnologies_RemoveCustomers.Shortcut = Nothing + Me.aTechnologies_RemoveCustomers.Tag = Nothing + Me.aTechnologies_RemoveCustomers.TargetObjectsCriteria = Nothing + Me.aTechnologies_RemoveCustomers.TargetViewId = "Technologies_Customers_ListView" + Me.aTechnologies_RemoveCustomers.ToolTip = Nothing + Me.aTechnologies_RemoveCustomers.TypeOfView = Nothing + ' + 'aTechnologies_RemoveProducts + ' + Me.aTechnologies_RemoveProducts.Caption = "aTechnologies_RemoveProducts" + Me.aTechnologies_RemoveProducts.Category = "RecordEdit" + Me.aTechnologies_RemoveProducts.ConfirmationMessage = Nothing + Me.aTechnologies_RemoveProducts.Id = "aTechnologies_RemoveProducts" + Me.aTechnologies_RemoveProducts.ImageName = Nothing + Me.aTechnologies_RemoveProducts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aTechnologies_RemoveProducts.Shortcut = Nothing + Me.aTechnologies_RemoveProducts.Tag = Nothing + Me.aTechnologies_RemoveProducts.TargetObjectsCriteria = Nothing + Me.aTechnologies_RemoveProducts.TargetViewId = "Technologies_Products_ListView" + Me.aTechnologies_RemoveProducts.ToolTip = Nothing + Me.aTechnologies_RemoveProducts.TypeOfView = Nothing + ' + 'aTechnologies_AddContacts + ' + Me.aTechnologies_AddContacts.AcceptButtonCaption = Nothing + Me.aTechnologies_AddContacts.CancelButtonCaption = Nothing + Me.aTechnologies_AddContacts.Caption = "aTechnologies_AddContacts" + Me.aTechnologies_AddContacts.Category = "ObjectsCreation" + Me.aTechnologies_AddContacts.ConfirmationMessage = Nothing + Me.aTechnologies_AddContacts.Id = "aTechnologies_AddContacts" + Me.aTechnologies_AddContacts.ImageName = Nothing + Me.aTechnologies_AddContacts.Shortcut = Nothing + Me.aTechnologies_AddContacts.Tag = Nothing + Me.aTechnologies_AddContacts.TargetObjectsCriteria = Nothing + Me.aTechnologies_AddContacts.TargetViewId = "Technologies_Contacts_ListView" + Me.aTechnologies_AddContacts.ToolTip = Nothing + Me.aTechnologies_AddContacts.TypeOfView = Nothing + + End Sub + Friend WithEvents aTechnologies_AddCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aTechnologies_AddProducts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aTechnologies_AddServices As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aTechnologies_RemoveServices As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTechnologies_RemoveCustomers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTechnologies_RemoveProducts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTechnologies_AddContacts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.resx new file mode 100644 index 0000000..9f41cdd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 173 + + + 17, 212 + + + 17, 134 + + + 17, 56 + + + 17, 95 + + + 301, 102 + + + 222, 212 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb new file mode 100644 index 0000000..9ae0077 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Technologies/Technologies_VC.vb @@ -0,0 +1,274 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering + +Public Class Technologies_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Technologies_Products_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Technologies_Services_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Technologies_Customers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Technologies_Contacts_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + ' Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + 'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Technologies_Products_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Technologies_Services_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Technologies_Customers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Technologies_Contacts_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "Technologies_Technologies_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + 'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + 'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub aTechnologies_AddCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTechnologies_AddCustomers.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers_CollectionSource As New CollectionSource(_onew, GetType(Customers)) + + e.View = Application.CreateListView("Customers_ListView", _Customers_CollectionSource, True) + End Sub + Private Sub aTechnologies_AddCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTechnologies_AddCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + For Each _Customers As Customers In e.PopupWindow.View.SelectedObjects + Dim _TechnologiesCustomers As New TechnologiesCustomers(_ocur.Session) + With _TechnologiesCustomers + .Customers = _ocur.GetObject(_Customers) + .Technologies = _Technologies + End With + Next + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aTechnologies_AddProducts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTechnologies_AddProducts.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Products_CollectionSource As New CollectionSource(_onew, GetType(Products)) + + e.View = Application.CreateListView("Products_ListView_Find", _Products_CollectionSource, True) + End Sub + Private Sub aTechnologies_AddProducts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTechnologies_AddProducts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + For Each _Products As Products In e.PopupWindow.View.SelectedObjects + Dim _TechnologiesProducts As New TechnologiesProducts(_ocur.Session) + With _TechnologiesProducts + .Products = _ocur.GetObject(_Products) + .Technologies = _Technologies + End With + Next + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aTechnologies_AddServices_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTechnologies_AddServices.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Services_CollectionSource As New CollectionSource(_onew, GetType(Services)) + + e.View = Application.CreateListView("Services_ListView", _Services_CollectionSource, True) + End Sub + Private Sub aTechnologies_AddServices_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTechnologies_AddServices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + For Each _Services As Services In e.PopupWindow.View.SelectedObjects + Dim _TechnologiesServices As New TechnologiesServices(_ocur.Session) + With _TechnologiesServices + .Services = _ocur.GetObject(_Services) + .Technologies = _Technologies + End With + Next + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aTechnologies_RemoveServices_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aTechnologies_RemoveServices.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + Dim _Del_Collection As New ArrayList + + For Each _Services As Services In View.SelectedObjects + Dim _TechnologiesServices As TechnologiesServices = _ocur.FindObject(Of TechnologiesServices)(CriteriaOperator.Parse("Technologies=? AND Services=?", _Technologies, _Services)) + + If _TechnologiesServices IsNot Nothing Then _Del_Collection.Add(_TechnologiesServices) + Next + + _ocur.Delete(_Del_Collection) + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aTechnologies_RemoveCustomers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aTechnologies_RemoveCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + Dim _Del_Collection As New ArrayList + + For Each _Customers As Customers In View.SelectedObjects + Dim _TechnologiesCustomers As TechnologiesCustomers = _ocur.FindObject(Of TechnologiesCustomers)(CriteriaOperator.Parse("Technologies=? AND Customers=?", _Technologies, _Customers)) + + If _TechnologiesCustomers IsNot Nothing Then _Del_Collection.Add(_TechnologiesCustomers) + + Dim _TechnologiesContacts_Collection As New DevExpress.Xpo.XPCollection(Of TechnologiesContacts)(_ocur.Session, CriteriaOperator.Parse("Technologies=? AND Contacts.Customers=?", _Technologies, _Customers)) + + If _TechnologiesContacts_Collection.Count > 0 Then _Del_Collection.AddRange(_TechnologiesContacts_Collection) + Next + + _ocur.Delete(_Del_Collection) + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + Private Sub aTechnologies_RemoveProducts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aTechnologies_RemoveProducts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + Dim _Del_Collection As New ArrayList + + For Each _Products As Products In View.SelectedObjects + Dim _TechnologiesProducts As TechnologiesProducts = _ocur.FindObject(Of TechnologiesProducts)(CriteriaOperator.Parse("Technologies=? AND Products=?", _Technologies, _Products)) + + If _TechnologiesProducts IsNot Nothing Then _Del_Collection.Add(_TechnologiesProducts) + Next + + _ocur.Delete(_Del_Collection) + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + + Private Sub aTechnologies_AddContacts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTechnologies_AddContacts.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + + If _Technologies IsNot Nothing Then + Dim _Contacts_CollectionSource As New CollectionSource(_onew, GetType(Contacts)) + + Dim _Criteria As String = "Customers.Oid in('" + + For Each _Customers As Customers In _Technologies.Customers + _Criteria += _Customers.Oid.ToString + "','" + Next + + If _Criteria.Length < 20 Then + _Criteria = "1=2" + Else + _Criteria = _Criteria.Remove(_Criteria.Length - 2, 2) + _Criteria += ")" + End If + + _Contacts_CollectionSource.BeginUpdateCriteria() + _Contacts_CollectionSource.Criteria.Add("First", CriteriaOperator.Parse(_Criteria)) + _Contacts_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("Contacts_ListView", _Contacts_CollectionSource, True) + End If + End Sub + + Private Sub aTechnologies_AddContacts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTechnologies_AddContacts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _Technologies As Technologies = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Technologies) + For Each _Contacts As Contacts In e.PopupWindow.View.SelectedObjects + Dim _TechnologiesContacts As New TechnologiesContacts(_ocur.Session) + With _TechnologiesContacts + .Contacts = _ocur.GetObject(_Contacts) + .Technologies = _Technologies + End With + Next + _ocur.CommitChanges() + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CloseWorkSheet_SubcontractorpopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CloseWorkSheet_SubcontractorpopUp.vb new file mode 100644 index 0000000..2c8ae47 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CloseWorkSheet_SubcontractorpopUp.vb @@ -0,0 +1,66 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CloseWorkSheet_SubcontractorpopUp + Inherits BaseObject + + Private _WorkSheetFile As FileData + Private _SubcontractorInvoice As FileData + Private _Description As String + Private _DateClosed As Date + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property WorkSheetFile As FileData + Get + Return _WorkSheetFile + End Get + Set(value As FileData) + SetPropertyValue("WorkSheetFile", _WorkSheetFile, value) + End Set + End Property + Property SubcontractorInvoice As FileData + Get + Return _SubcontractorInvoice + End Get + Set(value As FileData) + SetPropertyValue("SubcontractorInvoice", _SubcontractorInvoice, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property DateClosed As Date + Get + Return _DateClosed + End Get + Set(value As Date) + SetPropertyValue("DateClosed", _DateClosed, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CreateInvoiceFromWorksheetCost_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CreateInvoiceFromWorksheetCost_PopUp.vb new file mode 100644 index 0000000..7498cd8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/CreateInvoiceFromWorksheetCost_PopUp.vb @@ -0,0 +1,158 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class CreateInvoiceFromWorksheetCost_PopUp + Inherits BaseObject + + Private _Customers As Customers + Private _InvoiceType As InvoiceType + Private _InvoicePeriod As String 'Szmlzsi idszak string + Private _Description As String + Private _DescriptionHeader As String 'Szmln szerepl fejlc megjegyzs + Private _DateExecution As Date 'Teljests dtuma + Private _DatePayment As Date 'Fizetsi hatrid + Private _PaymentOption As PaymentOption + Private _CurrencyRate As Double + Private _BankInformation As BankInformation + Private _WorkSheet_Header As WorkSheet_Header + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DatePayment = GetSQLTime(Session) + End Sub + + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property InvoiceType() As InvoiceType + Get + Return _InvoiceType + End Get + Set(ByVal value As InvoiceType) + SetPropertyValue("InvoiceType", _InvoiceType, value) + End Set + End Property + Property InvoicePeriod As String + Get + Return _InvoicePeriod + End Get + Set(value As String) + SetPropertyValue("InvoicePeriod", _InvoicePeriod, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property DescriptionHeader As String + Get + Return _DescriptionHeader + End Get + Set(value As String) + SetPropertyValue("DescriptionHeader", _DescriptionHeader, value) + End Set + End Property + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment() As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value.PayMode = ePayMode.InCash Then + Me.DateExecution = GetSQLTime(Session) + Me.DatePayment = GetSQLTime(Session) + ElseIf value.PayMode = ePayMode.InContinuous Then + Me.DateExecution = Me.DatePayment + ElseIf value.PayMode = ePayMode.InTransfer Then + Me.DatePayment = DateAdd(DateInterval.Day, value.PayDay, GetSQLTime(Session)) + End If + End If + End Set + End Property + ' _ + ' _ + Property CurrencyRate() As Double + Get + Return _CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("CustomerBankAccounts", _BankInformation, value) + End Set + End Property + _ + _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + + '--------------ReadOnly------------- + 'ReadOnly Property Worksheet_CostRows As XPCollection(Of Worksheet_CostRows) + ' Get 'Dim _OrderOutRows As OrderOutRows + ' Dim _Worksheet_CostRows_Collection As XPCollection(Of Worksheet_CostRows) + + ' _Worksheet_CostRows_Collection = New XPCollection(Of Worksheet_CostRows)(Session, CriteriaOperator.Parse("WorkSheet_Header.Oid=? AND IsNull(InvoiceRows)=True", Me.WorkSheet_Header.Oid)) + ' Return _Worksheet_CostRows_Collection + ' End Get + 'End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/OpenWorkSheet_SubcontractorPopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/OpenWorkSheet_SubcontractorPopUp.vb new file mode 100644 index 0000000..78a952b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/OpenWorkSheet_SubcontractorPopUp.vb @@ -0,0 +1,231 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class OpenWorkSheet_SubcontractorPopUp + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _WorkSheetType As WorkSheetType + Private _DateCreated As Date + Private _Subcontractor As Subcontractor + Private _InvoiceState As eInvoiceState 'Szmlzsi llapot + Private _WorkState As WorkState 'Munkafolyamat + Private _Question As Question + Private _Description As String + Private _WorkPlace As WorkPlace + Private _WorkHour As Double + Private _WorkDescription As String + Private _WorkUsedMaterialDescription As String + Private _WorkDescriptionOther As String + Private _WorkTravelKm As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.WorkPlace = Nothing + End If + End Set + End Property + _ + Property WorkSheetType As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(value As WorkSheetType) + SetPropertyValue("WorkSheetType", _WorkSheetType, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + _ + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property + Property InvoiceState As eInvoiceState + Get + Return _InvoiceState + End Get + Set(value As eInvoiceState) + SetPropertyValue("InvoiceState", _InvoiceState, value) + End Set + End Property + Property WorkState As WorkState + Get + Return _WorkState + End Get + Set(value As WorkState) + SetPropertyValue("WorkState", _WorkState, value) + End Set + End Property + _ + _ + Property Question As Question + Get + Return _Question + End Get + Set(value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + End Set + End Property + Property WorkHour As Double + Get + Return _WorkHour + End Get + Set(value As Double) + SetPropertyValue("WorkHour", _WorkHour, value) + End Set + End Property + _ + Property WorkDescription As String + Get + Return _WorkDescription + End Get + Set(value As String) + SetPropertyValue("WorkDescription", _WorkDescription, value) + End Set + End Property + _ + Property WorkUsedMaterialDescription As String + Get + Return _WorkUsedMaterialDescription + End Get + Set(value As String) + SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value) + End Set + End Property + _ + Property WorkDescriptionOther As String + Get + Return _WorkDescriptionOther + End Get + Set(value As String) + SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value) + End Set + End Property + Property WorkTravelKm As Long + Get + Return _WorkTravelKm + End Get + Set(value As Long) + SetPropertyValue("WorkTravelKm", _WorkTravelKm, value) + End Set + End Property + + _ + Private ReadOnly Property WorkPlace_Collection As XPCollection(Of WorkPlace) + Get + If Me.CustomersFrom Is Nothing Then + Return Nothing + End If + Dim _WorkPlace_Collection_All As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("CustomersFrom.Oid=?", Me.CustomersFrom.Oid)) + Dim _WorkPlace_Collection As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("1=2")) + Dim _WorkPlace As WorkPlace + Dim _WorkPlace_ArrayList As New ArrayList + Dim _SubcontractorCustomers_Collection As New XPCollection(Of SubcontractorCustomers)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", Me.Subcontractor.Oid)) + Dim _SubcontractorCustomers As SubcontractorCustomers + + '_SubcontractorCustomers.Customers.Contacts + _WorkPlace_ArrayList.Clear() + For Each _WorkPlace In _WorkPlace_Collection_All + For Each _SubcontractorCustomers In _SubcontractorCustomers_Collection + If _SubcontractorCustomers.Workplace IsNot Nothing Then + If _WorkPlace.Oid = _SubcontractorCustomers.Workplace.Oid Then + If _WorkPlace_ArrayList.Contains(_WorkPlace) Then + Else + _WorkPlace_ArrayList.Add(_WorkPlace) + End If + End If + End If + Next + Next + + For Each _WorkPlace In _WorkPlace_ArrayList + _WorkPlace_Collection.Add(_WorkPlace) + Next + + Return _WorkPlace_Collection + End Get + End Property + _ + Private ReadOnly Property WorkSheetType_Collection As XPCollection(Of WorkSheetType) + Get + Dim _WorkSheetType_Collection_Back As New XPCollection(Of WorkSheetType)(Session, CriteriaOperator.Parse("Oid<>Oid")) + For Each _ActWorkSheetType As SubcontractorWorksheetType In Me.Subcontractor.SubcontractorWorksheetType + If Me.CustomersFrom IsNot Nothing Then + If _ActWorkSheetType.WorkSheetType.CustomersFrom.Oid = Me.CustomersFrom.Oid Then + _WorkSheetType_Collection_Back.Add(_ActWorkSheetType.WorkSheetType) + End If + End If + Next + Return _WorkSheetType_Collection_Back + End Get + End Property + _ + ReadOnly Property WorkSheet_Header_Collection As XPCollection(Of WorkSheet_Header) + Get + If Question IsNot Nothing AndAlso Subcontractor IsNot Nothing Then + Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Question.Oid=? AND SubcontractorCustomers.Oid=?", Question.Oid, Subcontractor.Customers.Oid)) + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/ReopenWorkSheet_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/ReopenWorkSheet_PopUp.vb new file mode 100644 index 0000000..3f00757 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/ReopenWorkSheet_PopUp.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ReopenWorkSheet_PopUp + Inherits BaseObject + + Private _WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type + Get + Return _WorkSheet_ReopenReason_Type + End Get + Set(value As WorkSheet_ReopenReason_Type) + SetPropertyValue("WorkSheet_ReopenReason_Type", _WorkSheet_ReopenReason_Type, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheet_Header_AddHRPerson_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheet_Header_AddHRPerson_PopUp.vb new file mode 100644 index 0000000..fb50e54 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheet_Header_AddHRPerson_PopUp.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class WorkSheet_Header_AddHRPerson_PopUp + Inherits BaseObject + + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheetfromQuestion_PopUp.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheetfromQuestion_PopUp.vb new file mode 100644 index 0000000..0b12c00 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/WorkSheetfromQuestion_PopUp.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class WorkSheetfromQuestion_PopUp + Inherits BaseObject + + Private _WorkSheetType As WorkSheetType 'Munkalap tipusa + Private _CustomersFrom As CustomersFrom 'Sajt cg + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + _ + Property WorkSheetType() As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(ByVal value As WorkSheetType) + SetPropertyValue("WorkSheetType", _WorkSheetType, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_CostRows_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_CostRows_ChangeGroup.vb new file mode 100644 index 0000000..1c96651 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_CostRows_ChangeGroup.vb @@ -0,0 +1,85 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Worksheet_CostRows_ChangeGroup + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Change_RowGroup1 = False + Change_RowGroup2 = False + _Change_Controlling = False + End Sub + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _Change_RowGroup1 As Boolean + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Change_RowGroup2 As Boolean + Private _Change_Controlling As Boolean + Private _Controlling As Controlling + + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property Change_RowGroup1 As Boolean + Get + Return _Change_RowGroup1 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property Change_RowGroup2 As Boolean + Get + Return _Change_RowGroup2 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value) + End Set + End Property + Property Change_Controlling As Boolean + Get + Return _Change_Controlling + End Get + Set(value As Boolean) + SetPropertyValue("Change_Controlling", _Change_Controlling, value) + End Set + End Property + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_Rows_ChangeGroup.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_Rows_ChangeGroup.vb new file mode 100644 index 0000000..c2ee0ff --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/PopUp/Worksheet_Rows_ChangeGroup.vb @@ -0,0 +1,63 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Worksheet_Rows_ChangeGroup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Change_RowGroup1 = False + Change_RowGroup2 = False + End Sub + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _Change_RowGroup1 As Boolean + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _Change_RowGroup2 As Boolean + + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property Change_RowGroup1 As Boolean + Get + Return _Change_RowGroup1 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property Change_RowGroup2 As Boolean + Get + Return _Change_RowGroup2 + End Get + Set(value As Boolean) + SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb new file mode 100644 index 0000000..9cf17ed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class WorkPlace + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Partner + Private _ShortName As String 'Munkahely megnevezse + Private _Description As String 'Munkahely lersa + Private _Address As Address 'Munkahely cme + Private _CostPlace As CostPlace + Private _OperationalLogType As eOperationalLogType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + Dim _CostPlace As CostPlace = New CostPlace(Session) + _CostPlace.Name = Me.ShortName + _CostPlace.Save() + Me.CostPlace = _CostPlace + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property Address As Address + Get + Return _Address + End Get + Set(value As Address) + SetPropertyValue("Address", _Address, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property OperationalLogType As eOperationalLogType + Get + Return _OperationalLogType + End Get + Set(value As eOperationalLogType) + SetPropertyValue("OperationalLogType", _OperationalLogType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheetTypeExcelParam.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheetTypeExcelParam.vb new file mode 100644 index 0000000..9e572ca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheetTypeExcelParam.vb @@ -0,0 +1,59 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Reflection + _ + _ +Public Class WorkSheetTypeExcelParam + Inherits BaseObject + + Private _XLSCellAdress As String + Private _PropertiesInfo As String + Private _Format As String + Private _WorkSheetType As WorkSheetType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property XLSCellAdress As String + Get + Return _XLSCellAdress + End Get + Set(value As String) + SetPropertyValue("XLSCellAdress", _XLSCellAdress, value) + End Set + End Property + Property PropertiesInfo As String + Get + Return _PropertiesInfo + End Get + Set(value As String) + SetPropertyValue("PropertiesInfo", _PropertiesInfo, value) + End Set + End Property + Property Format As String + Get + Return _Format + End Get + Set(value As String) + SetPropertyValue("Format", _Format, value) + End Set + End Property + _ + Property WorkSheetType As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(value As WorkSheetType) + SetPropertyValue("WorkSheetTypeExcelParam", _WorkSheetType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_Header_HRPerson.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_Header_HRPerson.vb new file mode 100644 index 0000000..6ce9de9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_Header_HRPerson.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class WorkSheet_Header_HRPerson + Inherits BaseObject + + Private _WorkSheet_Header As WorkSheet_Header + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason.vb new file mode 100644 index 0000000..8afc229 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason.vb @@ -0,0 +1,82 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class WorkSheet_ReopenReason + Inherits BaseObject + + Private _WorkSheet_Header As WorkSheet_Header + Private _WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type + Private _ObjectCreated As Date ' Ltrehozva + Private _UserCreated As User 'Ltrehoz + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(ByVal value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property WorkSheet_ReopenReason_Type As WorkSheet_ReopenReason_Type + Get + Return _WorkSheet_ReopenReason_Type + End Get + Set(value As WorkSheet_ReopenReason_Type) + SetPropertyValue("WorkSheet_ReopenReason_Type", _WorkSheet_ReopenReason_Type, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason_Type.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason_Type.vb new file mode 100644 index 0000000..4fbfd36 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_ReopenReason_Type.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class WorkSheet_ReopenReason_Type + Inherits BaseObject + + Private _ShortName As String + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.Designer.vb new file mode 100644 index 0000000..bd386ec --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.Designer.vb @@ -0,0 +1,346 @@ +Partial Class WorkSheet_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOpenWorkSheet_Subcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloseWorkSheet_Subcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aToTableWSR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableWSR_D = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateWorksheetCostRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRefreshWorksheetCostRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateInvoiceFromWorksheetCost = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aReOpenWorksheetHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenSubcontractorInvoice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenWorkSheetFile = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aWorkSheet_Rows_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aWorkSheet_CostRows_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloseWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReopenWorkSheet = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSetReadyToCloseWorkSheet = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAddHRPerson_WorkSheet_Header = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aWorkSheet_InsertRecipe = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOpenWorkSheet_Subcontractor + ' + Me.aOpenWorkSheet_Subcontractor.AcceptButtonCaption = Nothing + Me.aOpenWorkSheet_Subcontractor.CancelButtonCaption = Nothing + Me.aOpenWorkSheet_Subcontractor.Caption = "aOpenWorkSheet_Subcontractor" + Me.aOpenWorkSheet_Subcontractor.ConfirmationMessage = Nothing + Me.aOpenWorkSheet_Subcontractor.Id = "aOpenWorkSheet_Subcontractor" + Me.aOpenWorkSheet_Subcontractor.ImageName = Nothing + Me.aOpenWorkSheet_Subcontractor.Shortcut = Nothing + Me.aOpenWorkSheet_Subcontractor.Tag = Nothing + Me.aOpenWorkSheet_Subcontractor.TargetObjectsCriteria = Nothing + Me.aOpenWorkSheet_Subcontractor.TargetViewId = Nothing + Me.aOpenWorkSheet_Subcontractor.ToolTip = Nothing + Me.aOpenWorkSheet_Subcontractor.TypeOfView = Nothing + ' + 'aCloseWorkSheet_Subcontractor + ' + Me.aCloseWorkSheet_Subcontractor.AcceptButtonCaption = Nothing + Me.aCloseWorkSheet_Subcontractor.CancelButtonCaption = Nothing + Me.aCloseWorkSheet_Subcontractor.Caption = "aCloseWorkSheet_Subcontractor" + Me.aCloseWorkSheet_Subcontractor.ConfirmationMessage = Nothing + Me.aCloseWorkSheet_Subcontractor.Id = "aCloseWorkSheet_Subcontractor" + Me.aCloseWorkSheet_Subcontractor.ImageName = Nothing + Me.aCloseWorkSheet_Subcontractor.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloseWorkSheet_Subcontractor.Shortcut = Nothing + Me.aCloseWorkSheet_Subcontractor.Tag = Nothing + Me.aCloseWorkSheet_Subcontractor.TargetObjectsCriteria = "WorkSheetState=0" + Me.aCloseWorkSheet_Subcontractor.TargetViewId = Nothing + Me.aCloseWorkSheet_Subcontractor.ToolTip = Nothing + Me.aCloseWorkSheet_Subcontractor.TypeOfView = Nothing + ' + 'aToTableWSR + ' + Me.aToTableWSR.Caption = "aTo Table WSR" + Me.aToTableWSR.Category = "aToTableWSR" + Me.aToTableWSR.ConfirmationMessage = Nothing + Me.aToTableWSR.Id = "aToTableWSR" + Me.aToTableWSR.ImageName = Nothing + Me.aToTableWSR.Shortcut = Nothing + Me.aToTableWSR.Tag = Nothing + Me.aToTableWSR.TargetObjectsCriteria = Nothing + Me.aToTableWSR.TargetViewId = Nothing + Me.aToTableWSR.ToolTip = Nothing + Me.aToTableWSR.TypeOfView = Nothing + ' + 'aToTableWSR_D + ' + Me.aToTableWSR_D.Caption = "aToTableWSR_D" + Me.aToTableWSR_D.Category = "aToTableWSR_D" + Me.aToTableWSR_D.ConfirmationMessage = Nothing + Me.aToTableWSR_D.Id = "aToTableWSR_D" + Me.aToTableWSR_D.ImageName = Nothing + Me.aToTableWSR_D.Shortcut = Nothing + Me.aToTableWSR_D.Tag = Nothing + Me.aToTableWSR_D.TargetObjectsCriteria = Nothing + Me.aToTableWSR_D.TargetViewId = Nothing + Me.aToTableWSR_D.ToolTip = Nothing + Me.aToTableWSR_D.TypeOfView = Nothing + ' + 'aCreateWorksheetCostRows + ' + Me.aCreateWorksheetCostRows.Caption = "aCreate Worksheet Cost Rows" + Me.aCreateWorksheetCostRows.Category = "aCreateWorksheetCostRows" + Me.aCreateWorksheetCostRows.ConfirmationMessage = "Do you want to execute command?" + Me.aCreateWorksheetCostRows.Id = "aCreateWorksheetCostRows" + Me.aCreateWorksheetCostRows.ImageName = Nothing + Me.aCreateWorksheetCostRows.Shortcut = Nothing + Me.aCreateWorksheetCostRows.Tag = Nothing + Me.aCreateWorksheetCostRows.TargetObjectsCriteria = Nothing + Me.aCreateWorksheetCostRows.TargetViewId = Nothing + Me.aCreateWorksheetCostRows.ToolTip = Nothing + Me.aCreateWorksheetCostRows.TypeOfView = Nothing + ' + 'aRefreshWorksheetCostRows + ' + Me.aRefreshWorksheetCostRows.Caption = "aRefresh Worksheet Cost Rows" + Me.aRefreshWorksheetCostRows.Category = "aRefreshWorksheetCostRows" + Me.aRefreshWorksheetCostRows.ConfirmationMessage = "Do you want to execute command?" + Me.aRefreshWorksheetCostRows.Id = "aRefreshWorksheetCostRows" + Me.aRefreshWorksheetCostRows.ImageName = Nothing + Me.aRefreshWorksheetCostRows.Shortcut = Nothing + Me.aRefreshWorksheetCostRows.Tag = Nothing + Me.aRefreshWorksheetCostRows.TargetObjectsCriteria = Nothing + Me.aRefreshWorksheetCostRows.TargetViewId = Nothing + Me.aRefreshWorksheetCostRows.ToolTip = Nothing + Me.aRefreshWorksheetCostRows.TypeOfView = Nothing + ' + 'aCreateInvoiceFromWorksheetCost + ' + Me.aCreateInvoiceFromWorksheetCost.AcceptButtonCaption = Nothing + Me.aCreateInvoiceFromWorksheetCost.CancelButtonCaption = Nothing + Me.aCreateInvoiceFromWorksheetCost.Caption = "aCreate Invoice From Worksheet Cost" + Me.aCreateInvoiceFromWorksheetCost.Category = "aCreateInvoiceFromWorksheetCost" + Me.aCreateInvoiceFromWorksheetCost.ConfirmationMessage = Nothing + Me.aCreateInvoiceFromWorksheetCost.Id = "aCreateInvoiceFromWorksheetCost" + Me.aCreateInvoiceFromWorksheetCost.ImageName = Nothing + Me.aCreateInvoiceFromWorksheetCost.Shortcut = Nothing + Me.aCreateInvoiceFromWorksheetCost.Tag = Nothing + Me.aCreateInvoiceFromWorksheetCost.TargetObjectsCriteria = Nothing + Me.aCreateInvoiceFromWorksheetCost.TargetViewId = Nothing + Me.aCreateInvoiceFromWorksheetCost.ToolTip = Nothing + Me.aCreateInvoiceFromWorksheetCost.TypeOfView = Nothing + ' + 'aReOpenWorksheetHeader + ' + Me.aReOpenWorksheetHeader.Caption = "aReOpenWorksheetHeader" + Me.aReOpenWorksheetHeader.ConfirmationMessage = Nothing + Me.aReOpenWorksheetHeader.Id = "aReOpenWorksheetHeader" + Me.aReOpenWorksheetHeader.ImageName = Nothing + Me.aReOpenWorksheetHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aReOpenWorksheetHeader.Shortcut = Nothing + Me.aReOpenWorksheetHeader.Tag = Nothing + Me.aReOpenWorksheetHeader.TargetObjectsCriteria = Nothing + Me.aReOpenWorksheetHeader.TargetViewId = Nothing + Me.aReOpenWorksheetHeader.ToolTip = Nothing + Me.aReOpenWorksheetHeader.TypeOfView = Nothing + ' + 'aOpenSubcontractorInvoice + ' + Me.aOpenSubcontractorInvoice.Caption = "aOpenSubcontractorInvoice" + Me.aOpenSubcontractorInvoice.ConfirmationMessage = Nothing + Me.aOpenSubcontractorInvoice.Id = "aOpenSubcontractorInvoice" + Me.aOpenSubcontractorInvoice.ImageName = Nothing + Me.aOpenSubcontractorInvoice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenSubcontractorInvoice.Shortcut = Nothing + Me.aOpenSubcontractorInvoice.Tag = Nothing + Me.aOpenSubcontractorInvoice.TargetObjectsCriteria = Nothing + Me.aOpenSubcontractorInvoice.TargetViewId = Nothing + Me.aOpenSubcontractorInvoice.ToolTip = Nothing + Me.aOpenSubcontractorInvoice.TypeOfView = Nothing + ' + 'aOpenWorkSheetFile + ' + Me.aOpenWorkSheetFile.Caption = "aOpenWorkSheetFile" + Me.aOpenWorkSheetFile.ConfirmationMessage = Nothing + Me.aOpenWorkSheetFile.Id = "aOpenWorkSheetFile" + Me.aOpenWorkSheetFile.ImageName = Nothing + Me.aOpenWorkSheetFile.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenWorkSheetFile.Shortcut = Nothing + Me.aOpenWorkSheetFile.Tag = Nothing + Me.aOpenWorkSheetFile.TargetObjectsCriteria = Nothing + Me.aOpenWorkSheetFile.TargetViewId = Nothing + Me.aOpenWorkSheetFile.ToolTip = Nothing + Me.aOpenWorkSheetFile.TypeOfView = Nothing + ' + 'aPrintWorkSheet + ' + Me.aPrintWorkSheet.Caption = "Print Work Sheet" + Me.aPrintWorkSheet.Category = "" + Me.aPrintWorkSheet.ConfirmationMessage = Nothing + Me.aPrintWorkSheet.Id = "aPrintWorkSheet" + Me.aPrintWorkSheet.ImageName = Nothing + Me.aPrintWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintWorkSheet.Shortcut = Nothing + Me.aPrintWorkSheet.Tag = Nothing + Me.aPrintWorkSheet.TargetObjectsCriteria = Nothing + Me.aPrintWorkSheet.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Header) + Me.aPrintWorkSheet.TargetViewId = Nothing + Me.aPrintWorkSheet.ToolTip = Nothing + Me.aPrintWorkSheet.TypeOfView = Nothing + ' + 'aWorkSheet_Rows_ChangeRows + ' + Me.aWorkSheet_Rows_ChangeRows.AcceptButtonCaption = Nothing + Me.aWorkSheet_Rows_ChangeRows.CancelButtonCaption = Nothing + Me.aWorkSheet_Rows_ChangeRows.Caption = "Change data in selected rows" + Me.aWorkSheet_Rows_ChangeRows.ConfirmationMessage = Nothing + Me.aWorkSheet_Rows_ChangeRows.Id = "aWorkSheet_Rows_ChangeRows" + Me.aWorkSheet_Rows_ChangeRows.ImageName = "Action_EditModel" + Me.aWorkSheet_Rows_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aWorkSheet_Rows_ChangeRows.Shortcut = Nothing + Me.aWorkSheet_Rows_ChangeRows.Tag = Nothing + Me.aWorkSheet_Rows_ChangeRows.TargetObjectsCriteria = Nothing + Me.aWorkSheet_Rows_ChangeRows.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Rows) + Me.aWorkSheet_Rows_ChangeRows.TargetViewId = Nothing + Me.aWorkSheet_Rows_ChangeRows.ToolTip = Nothing + Me.aWorkSheet_Rows_ChangeRows.TypeOfView = Nothing + ' + 'aWorkSheet_CostRows_ChangeRows + ' + Me.aWorkSheet_CostRows_ChangeRows.AcceptButtonCaption = Nothing + Me.aWorkSheet_CostRows_ChangeRows.CancelButtonCaption = Nothing + Me.aWorkSheet_CostRows_ChangeRows.Caption = "Change data in selected rows" + Me.aWorkSheet_CostRows_ChangeRows.ConfirmationMessage = Nothing + Me.aWorkSheet_CostRows_ChangeRows.Id = "aWorkSheet_CostRows_ChangeRows" + Me.aWorkSheet_CostRows_ChangeRows.ImageName = "Action_EditModel" + Me.aWorkSheet_CostRows_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aWorkSheet_CostRows_ChangeRows.Shortcut = Nothing + Me.aWorkSheet_CostRows_ChangeRows.Tag = Nothing + Me.aWorkSheet_CostRows_ChangeRows.TargetObjectsCriteria = Nothing + Me.aWorkSheet_CostRows_ChangeRows.TargetObjectType = GetType(SISBusiness.[Module].Worksheet_CostRows) + Me.aWorkSheet_CostRows_ChangeRows.TargetViewId = Nothing + Me.aWorkSheet_CostRows_ChangeRows.ToolTip = Nothing + Me.aWorkSheet_CostRows_ChangeRows.TypeOfView = Nothing + ' + 'aCloseWorkSheet + ' + Me.aCloseWorkSheet.Caption = "Close Work Sheet" + Me.aCloseWorkSheet.Category = "aCloseWorkSheet" + Me.aCloseWorkSheet.ConfirmationMessage = Nothing + Me.aCloseWorkSheet.Id = "aCloseWorkSheet" + Me.aCloseWorkSheet.ImageName = Nothing + Me.aCloseWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloseWorkSheet.Shortcut = Nothing + Me.aCloseWorkSheet.Tag = Nothing + Me.aCloseWorkSheet.TargetObjectsCriteria = Nothing + Me.aCloseWorkSheet.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Header) + Me.aCloseWorkSheet.TargetViewId = Nothing + Me.aCloseWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCloseWorkSheet.ToolTip = Nothing + Me.aCloseWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aReopenWorkSheet + ' + Me.aReopenWorkSheet.AcceptButtonCaption = Nothing + Me.aReopenWorkSheet.CancelButtonCaption = Nothing + Me.aReopenWorkSheet.Caption = "Reopen Work Sheet" + Me.aReopenWorkSheet.ConfirmationMessage = Nothing + Me.aReopenWorkSheet.Id = "aReopenWorkSheet" + Me.aReopenWorkSheet.ImageName = Nothing + Me.aReopenWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aReopenWorkSheet.Shortcut = Nothing + Me.aReopenWorkSheet.Tag = Nothing + Me.aReopenWorkSheet.TargetObjectsCriteria = Nothing + Me.aReopenWorkSheet.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Header) + Me.aReopenWorkSheet.TargetViewId = Nothing + Me.aReopenWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aReopenWorkSheet.ToolTip = Nothing + Me.aReopenWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSetReadyToCloseWorkSheet + ' + Me.aSetReadyToCloseWorkSheet.Caption = "Set Ready To Close Work Sheet" + Me.aSetReadyToCloseWorkSheet.ConfirmationMessage = Nothing + Me.aSetReadyToCloseWorkSheet.Id = "aSetReadyToCloseWorkSheet" + Me.aSetReadyToCloseWorkSheet.ImageName = Nothing + Me.aSetReadyToCloseWorkSheet.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aSetReadyToCloseWorkSheet.Shortcut = Nothing + Me.aSetReadyToCloseWorkSheet.Tag = Nothing + Me.aSetReadyToCloseWorkSheet.TargetObjectsCriteria = Nothing + Me.aSetReadyToCloseWorkSheet.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Header) + Me.aSetReadyToCloseWorkSheet.TargetViewId = Nothing + Me.aSetReadyToCloseWorkSheet.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSetReadyToCloseWorkSheet.ToolTip = Nothing + Me.aSetReadyToCloseWorkSheet.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aAddHRPerson_WorkSheet_Header + ' + Me.aAddHRPerson_WorkSheet_Header.AcceptButtonCaption = Nothing + Me.aAddHRPerson_WorkSheet_Header.CancelButtonCaption = Nothing + Me.aAddHRPerson_WorkSheet_Header.Caption = "aAddHRPerson_WorkSheet_Header" + Me.aAddHRPerson_WorkSheet_Header.Category = "ObjectsCreation" + Me.aAddHRPerson_WorkSheet_Header.ConfirmationMessage = Nothing + Me.aAddHRPerson_WorkSheet_Header.Id = "aAddHRPerson_WorkSheet_Header" + Me.aAddHRPerson_WorkSheet_Header.ImageName = Nothing + Me.aAddHRPerson_WorkSheet_Header.Shortcut = Nothing + Me.aAddHRPerson_WorkSheet_Header.Tag = Nothing + Me.aAddHRPerson_WorkSheet_Header.TargetObjectsCriteria = Nothing + Me.aAddHRPerson_WorkSheet_Header.TargetViewId = Nothing + Me.aAddHRPerson_WorkSheet_Header.ToolTip = Nothing + Me.aAddHRPerson_WorkSheet_Header.TypeOfView = Nothing + ' + 'aWorkSheet_InsertRecipe + ' + Me.aWorkSheet_InsertRecipe.Caption = "aWorkSheet_InsertRecipe" + Me.aWorkSheet_InsertRecipe.Category = "" + Me.aWorkSheet_InsertRecipe.ConfirmationMessage = Nothing + Me.aWorkSheet_InsertRecipe.Id = "aWorkSheet_InsertRecipe" + Me.aWorkSheet_InsertRecipe.ImageName = Nothing + Me.aWorkSheet_InsertRecipe.Shortcut = Nothing + Me.aWorkSheet_InsertRecipe.Tag = Nothing + Me.aWorkSheet_InsertRecipe.TargetObjectsCriteria = Nothing + Me.aWorkSheet_InsertRecipe.TargetObjectType = GetType(SISBusiness.[Module].WorkSheet_Rows) + Me.aWorkSheet_InsertRecipe.TargetViewId = Nothing + Me.aWorkSheet_InsertRecipe.ToolTip = Nothing + Me.aWorkSheet_InsertRecipe.TypeOfView = Nothing + + End Sub + Protected WithEvents aOpenWorkSheet_Subcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Protected WithEvents aCloseWorkSheet_Subcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aToTableWSR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableWSR_D As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateWorksheetCostRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRefreshWorksheetCostRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateInvoiceFromWorksheetCost As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aReOpenWorksheetHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenSubcontractorInvoice As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenWorkSheetFile As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aWorkSheet_Rows_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aWorkSheet_CostRows_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloseWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReopenWorkSheet As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSetReadyToCloseWorkSheet As DevExpress.ExpressApp.Actions.SimpleAction + Private WithEvents aAddHRPerson_WorkSheet_Header As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aWorkSheet_InsertRecipe As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.resx b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.resx new file mode 100644 index 0000000..be31d55 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.resx @@ -0,0 +1,177 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 173 + + + 17, 446 + + + 17, 251 + + + 17, 641 + + + 17, 602 + + + 17, 563 + + + 17, 524 + + + 17, 485 + + + 17, 368 + + + 17, 407 + + + 17, 329 + + + 17, 290 + + + 17, 134 + + + 17, 212 + + + 1041, 17 + + + 478, 199 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb new file mode 100644 index 0000000..61cf809 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkSheet_VC.vb @@ -0,0 +1,1194 @@ +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.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports System.IO +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + +Public Class WorkSheet_VC + Inherits DevExpress.ExpressApp.ViewController + Private _selection As ArrayList + Private _noselect As Boolean = False + Private _eWorkRowType_ACT As eWorkRowType + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + _selection = New ArrayList + 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) + Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aRefreshWorksheetCostRows.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aCreateInvoiceFromWorksheetCost.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheetFile.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then + 'Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + + Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.TargetObjectsCriteria = "WorkSheetState = 'eClosed'" + + Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.TargetObjectsCriteria = "SubcontractorInvoice is Not Null" + + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheetFile.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheetFile.TargetObjectsCriteria = "WorkSheetFile is Not Null" + 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 NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + If _Contacts IsNot Nothing Then + Dim _Contacts_Collection As New XPCollection(Of Contacts)(_ocur.Session, CriteriaOperator.Parse("Customers=? and IsNull(User)=False", _Contacts.Customers)) + Dim _CS As CollectionSource = TryCast(View, ListView).CollectionSource + + Dim _Criteria1 As String = "" + Dim _Criteria2 As String = "" + + If _Contacts_Collection.Count > 0 Then + For ik = 0 To _Contacts_Collection.Count - 1 + If ik < _Contacts_Collection.Count - 1 Then + _Criteria1 += "UserCreated.Oid = " + "'" + _Contacts_Collection(ik).User.Oid.ToString + "'" + " Or " + Else + _Criteria1 += "UserCreated.Oid = " + "'" + _Contacts_Collection(ik).User.Oid.ToString + "'" + End If + Next + Else + _Criteria1 = "1=2" + End If + 'If Not _Criteria1.Contains("1=2") Then + ' Dim _WorkSheet_Header_HRPerson_Collection As New XPCollection(Of WorkSheet_Header_HRPerson)(_ocur.Session, _ + ' CriteriaOperator.Parse("HRPerson.User=?", _ocur.GetObject(SecuritySystem.CurrentUser))) + ' For Each _WorkSheet_Header As WorkSheet_Header In _CS.Collection + ' Dim _WorkSheet_Header_Find As WorkSheet_Header= + + + ' Next + 'End If + _CS.BeginUpdateCriteria() + _CS.Criteria("FilteR") = CriteriaOperator.Parse(_Criteria1) + _CS.EndUpdateCriteria() + End If + End If + If View.Id = "WorkSheet_Header_ListView_Support" Then + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + Dim _CS As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _Criteria1 As String = "1=2" + Dim _Criteria2 As String = "" + + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + _Criteria1 = "Customers.Oid='" & _Contacts.Customers.Oid.ToString & "'" + End If + End If + _CS.BeginUpdateCriteria() + _CS.Criteria("FilteR") = CriteriaOperator.Parse(_Criteria1) + _CS.EndUpdateCriteria() + End If + If View.Id = "WorkSheet_Header_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged + End If + If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged + End If + If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + If View.Id = "CRM_Opportunities_WorkSheet_Header_ListView" Then + Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + '----------------DeatilViewZ---------------------------------- + + If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aRefreshWorksheetCostRows.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aCreateInvoiceFromWorksheetCost.Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "WorkSheet_Header_ListView_Subcontractor_Manage" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + + Frame.GetController(Of WorkSheet_VC).aReOpenWorksheetHeader.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenSubcontractorInvoice.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheetFile.Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_ListView_Subcontractor" Or _ + View.Id = "WorkSheet_Header_ListView_Subcontractor_Closed" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aCloseWorkSheet_Subcontractor.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aOpenWorkSheet_Subcontractor.Active.SetItemValue("", False) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + + If View.Id = "WorkSheet_Header_WorkSheet_Rows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged + End If + If View.Id = "WorkSheet_Header_StorageOutRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_Worksheet_CostRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged + End If + If View.Id = "WorkSheet_Header_WorkSheet_ReopenReason_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_Worksheet_Documets_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "CreateInvoiceFromWorksheetCost_PopUp_Worksheet_CostRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_WorkSheet_Header_HRPerson_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aAddHRPerson_WorkSheet_Header.Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_AddHRPerson_PopUp_ListView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "OpenWorkSheet_SubcontractorPopUp_WorkSheet_Header_Collection_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + '---------------------DetailViewZ---------------- + If View.Id = "OpenWorkSheet_SubcontractorPopUp_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "CloseWorkSheet_SubcontractorpopUp_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "WorkSheet_Header_DetailView_Subcontractor" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "WorkSheet_Header_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of WorkSheet_VC).aToTableWSR.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aToTableWSR_D.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aCreateWorksheetCostRows.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aRefreshWorksheetCostRows.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aCreateInvoiceFromWorksheetCost.Active.SetItemValue("", False) + Frame.GetController(Of WorkSheet_VC).aPrintWorkSheet.Active.SetItemValue("", False) + End If + + End Sub + Protected Overridable Sub aOpenWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOpenWorkSheet_Subcontractor.CustomizePopupWindowParams + End Sub + Protected Overridable Sub aOpenWorkSheet_Subcontractor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOpenWorkSheet_Subcontractor.Execute + End Sub + Protected Overridable Sub aCloseWorkSheet_Subcontractor_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloseWorkSheet_Subcontractor.CustomizePopupWindowParams + End Sub + Protected Overridable Sub aCloseWorkSheet_Subcontractor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloseWorkSheet_Subcontractor.Execute + End Sub + '----------------WorksheetRows actions--------------------- + Private Sub aToTableWSR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableWSR.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.row_Services Is Nothing Then + If _WorkSheet_Header.row_Units Is Nothing Then Throw New Exception("*A mennyisgi egysget ktelezen meg kell adni!") + If _WorkSheet_Header.row_Quantity = 0 Then Throw New Exception("*A mennyisget ktelezen meg kell adni!") + If _WorkSheet_Header.row_Description = "" Then Throw New Exception("*A lerst ktelezen meg kell adni!") + End If + + Dim _WorkSheet_Rows As WorkSheet_Rows = _ocur.CreateObject(Of WorkSheet_Rows)() + + _WorkSheet_Rows.WorkSheet_Header = _WorkSheet_Header + + If _WorkSheet_Header.row_Services IsNot Nothing Then + _WorkSheet_Rows.RowGroup1 = _WorkSheet_Header.row_Services.RowGroup1 + _WorkSheet_Rows.RowGroup2 = _WorkSheet_Header.row_Services.RowGroup2 + _WorkSheet_Rows.Units = _WorkSheet_Header.row_Services.Units + _WorkSheet_Rows.WorkRowType = _WorkSheet_Header.row_WorkRowType + _WorkSheet_Rows.WorkType = _WorkSheet_Header.row_WorkType + _WorkSheet_Rows.ShortName = _WorkSheet_Header.row_Services.ShortName + _WorkSheet_Rows.Description = _WorkSheet_Header.row_Services.Description + _WorkSheet_Rows.Quantity = _WorkSheet_Header.row_Quantity + _WorkSheet_Rows.Services = _WorkSheet_Header.row_Services + _WorkSheet_Rows.RowIndex = _WorkSheet_Header.WorkSheet_Rows.Count + Else + _WorkSheet_Rows.RowGroup1 = _WorkSheet_Header.row_RowGroup1 + _WorkSheet_Rows.RowGroup2 = _WorkSheet_Header.row_RowGroup2 + _WorkSheet_Rows.Units = _WorkSheet_Header.row_Units + _WorkSheet_Rows.WorkRowType = _WorkSheet_Header.row_WorkRowType + _WorkSheet_Rows.WorkType = _WorkSheet_Header.row_WorkType + _WorkSheet_Rows.ShortName = _WorkSheet_Header.row_ShortName + _WorkSheet_Rows.Description = _WorkSheet_Header.row_Description + _WorkSheet_Rows.Quantity = _WorkSheet_Header.row_Quantity + _WorkSheet_Rows.RowIndex = _WorkSheet_Header.WorkSheet_Rows.Count + End If + + _ocur.CommitChanges() + + _WorkSheet_Header.row_RowGroup1 = "" + _WorkSheet_Header.row_RowGroup2 = "" + _WorkSheet_Header.row_Units = Nothing + _eWorkRowType_ACT = _WorkSheet_Header.row_WorkRowType + _WorkSheet_Header.row_WorkType = eWorkType.eGuarantee + _WorkSheet_Header.row_ShortName = "" + _WorkSheet_Header.row_Description = "" + _WorkSheet_Header.row_Quantity = 0 + _WorkSheet_Header.row_Services = Nothing + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ext As Exception + MsgBox(ext.Message) + Finally + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + _WorkSheet_Header.row_WorkRowType = _eWorkRowType_ACT + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_RowGroup1") + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End Try + End Sub + Private Sub aToTableWSR_D_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableWSR_D.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _WorkSheet_Rows_Collection As ArrayList = New ArrayList + Dim _WorkSheet_Rows_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("WorkSheet_Rows") + If _WorkSheet_Rows_ListPropertyEditor Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Rows_ListPropertyEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kijellve egyetlen sor sem!") + + For Each _WorkSheet_Rows In _WorkSheet_Rows_ListPropertyEditor.ListView.SelectedObjects + Dim _WorkSheet_Rows_Act As WorkSheet_Rows = _WorkSheet_Rows + For Each _WorkSheet_Rows_ActHeader As WorkSheet_Rows In _WorkSheet_Header.WorkSheet_Rows + If _WorkSheet_Rows_ActHeader.RowIndex > _WorkSheet_Rows_Act.RowIndex Then + _WorkSheet_Rows_ActHeader.RowIndex -= 1 + End If + Next + _WorkSheet_Rows_Collection.Add(_WorkSheet_Rows) + Next + + _ocur.Delete(_WorkSheet_Rows_Collection) + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + '------------WorksheetCostRows actions---------------------- + Private Sub aCreateWorksheetCostRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateWorksheetCostRows.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a mvelet megszakadt!") + If _WorkSheet_Header.CurrencyName Is Nothing Then Throw New Exception("*Nincs belltva pnznem!") + Dim _Worksheet_CostRows_Del_Collection As ArrayList + + If _WorkSheet_Header.Worksheet_CostRows.Count > 0 Then + _Worksheet_CostRows_Del_Collection = New ArrayList + For Each _Worksheet_CostRows As Worksheet_CostRows In _WorkSheet_Header.Worksheet_CostRows + _Worksheet_CostRows_Del_Collection.Add(_Worksheet_CostRows) + Next + _ocur.Delete(_Worksheet_CostRows_Del_Collection) + End If + + If _WorkSheet_Header.StorageOutRows.Count > 0 Then + For Each _StorageOutRows As StorageOutRows In _WorkSheet_Header.StorageOutRows + Dim _Worksheet_CostRows As Worksheet_CostRows = _ocur.CreateObject(Of Worksheet_CostRows)() + _Worksheet_CostRows.RowIndex = _WorkSheet_Header.Worksheet_CostRows.Count + _Worksheet_CostRows.WorkSheet_Header = _WorkSheet_Header + _Worksheet_CostRows.StorageOutRows = _StorageOutRows + + _Worksheet_CostRows.ShortName = _StorageOutRows.Products.ShortName + _Worksheet_CostRows.Description = _StorageOutRows.Products.Description + _Worksheet_CostRows.QTT = _StorageOutRows.QTT + _Worksheet_CostRows.Units = _StorageOutRows.Products.Units + + _Worksheet_CostRows.FinalPriceHUF_Out = _StorageOutRows.Products.ListPriceOutHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _StorageOutRows.Products.ListPriceOutDEV + _Worksheet_CostRows.SumPriceHUF_Out = _StorageOutRows.Products.ListPriceOutHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _StorageOutRows.Products.ListPriceOutDEV * _Worksheet_CostRows.QTT + + + Dim _DeliveryNoteInRows As DeliveryNoteInRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + _Worksheet_CostRows.SumPriceHUF_In = 0 + _Worksheet_CostRows.SumPriceDEV_In = 0 + + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + _DeliveryNoteInRows = _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows + _Worksheet_CostRows.SumPriceHUF_In += (_DeliveryNoteInRows.ListPriceHUF - _DeliveryNoteInRows.DiscountPriceHUF) * _StorageOutRowsInRows.QTT + _Worksheet_CostRows.SumPriceDEV_In += (_DeliveryNoteInRows.ListPriceDEV - _DeliveryNoteInRows.DiscountPriceDEV) * _StorageOutRowsInRows.QTT + Else + _Worksheet_CostRows.SumPriceHUF_In += _StorageOutRows.Products.ListPriceInHUF * _StorageOutRowsInRows.QTT + _Worksheet_CostRows.SumPriceDEV_In += _StorageOutRows.Products.ListPriceInDEV * _StorageOutRowsInRows.QTT + End If + Next + _Worksheet_CostRows.FinalPriceHUF_In = _Worksheet_CostRows.SumPriceHUF_In / _Worksheet_CostRows.QTT + _Worksheet_CostRows.FinalPriceDEV_In = _Worksheet_CostRows.SumPriceDEV_In / _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + Next + End If + + If _WorkSheet_Header.WorkSheet_Rows.Count > 0 Then + For Each _WorkSheet_Rows As WorkSheet_Rows In _WorkSheet_Header.WorkSheet_Rows + Dim _Worksheet_CostRows As Worksheet_CostRows = _ocur.CreateObject(Of Worksheet_CostRows)() + _Worksheet_CostRows.RowIndex = _WorkSheet_Header.Worksheet_CostRows.Count + 1 + _Worksheet_CostRows.WorkSheet_Header = _WorkSheet_Header + _Worksheet_CostRows.WorkSheet_Rows = _WorkSheet_Rows + + _Worksheet_CostRows.ShortName = _WorkSheet_Rows.ShortName + _Worksheet_CostRows.Description = _WorkSheet_Rows.Description + _Worksheet_CostRows.QTT = _WorkSheet_Rows.Quantity + _Worksheet_CostRows.Units = _WorkSheet_Rows.Units + + If _WorkSheet_Rows.Services IsNot Nothing Then + _Worksheet_CostRows.FinalPriceHUF_Out = _WorkSheet_Rows.Services.ListPriceHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _WorkSheet_Rows.Services.ListPriceDEV + _Worksheet_CostRows.SumPriceHUF_Out = _WorkSheet_Rows.Services.ListPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _WorkSheet_Rows.Services.ListPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.FinalPriceHUF_In = _WorkSheet_Rows.Services.CostPriceHUF + _Worksheet_CostRows.FinalPriceDEV_In = _WorkSheet_Rows.Services.CostPriceDEV + _Worksheet_CostRows.SumPriceHUF_In = _WorkSheet_Rows.Services.CostPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_In = _WorkSheet_Rows.Services.CostPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + ElseIf _WorkSheet_Rows.RecipeFromOther IsNot Nothing Then + _Worksheet_CostRows.FinalPriceHUF_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceDEV + _Worksheet_CostRows.SumPriceHUF_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.FinalPriceHUF_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceHUF + _Worksheet_CostRows.FinalPriceDEV_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceDEV + _Worksheet_CostRows.SumPriceHUF_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + Else + _Worksheet_CostRows.FinalPriceHUF_Out = 0 + _Worksheet_CostRows.FinalPriceDEV_Out = 0 + _Worksheet_CostRows.SumPriceHUF_Out = 0 + _Worksheet_CostRows.SumPriceDEV_Out = 0 + + _Worksheet_CostRows.FinalPriceHUF_In = 0 + _Worksheet_CostRows.FinalPriceDEV_In = 0 + _Worksheet_CostRows.SumPriceHUF_In = 0 + _Worksheet_CostRows.SumPriceDEV_In = 0 + + _Worksheet_CostRows.DifferentPercent = 0 + _Worksheet_CostRows.DifferentHUF = 0 + _Worksheet_CostRows.DifferentDEV = 0 + End If + + Next + End If + + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aRefreshWorksheetCostRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRefreshWorksheetCostRows.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.Worksheet_CostRows.Count = 0 Then Throw New Exception("*Nincsenek elszmolsi sorok, nem lehet frissteni!") + + If _WorkSheet_Header.WorkSheet_Rows.Count > 0 Then + For Each _WorkSheet_Rows As WorkSheet_Rows In _WorkSheet_Header.WorkSheet_Rows + Dim _Worksheet_CostRows As Worksheet_CostRows = _ocur.FindObject(Of Worksheet_CostRows)(CriteriaOperator.Parse("WorkSheet_Rows=? AND WorkSheet_Header=?", _WorkSheet_Rows, _WorkSheet_Header)) + + If _Worksheet_CostRows Is Nothing Then + _Worksheet_CostRows = _ocur.CreateObject(Of Worksheet_CostRows)() + _Worksheet_CostRows.WorkSheet_Header = _WorkSheet_Header + _Worksheet_CostRows.WorkSheet_Rows = _WorkSheet_Rows + + _Worksheet_CostRows.ShortName = _WorkSheet_Rows.ShortName + _Worksheet_CostRows.Description = _WorkSheet_Rows.Description + _Worksheet_CostRows.QTT = _WorkSheet_Rows.Quantity + _Worksheet_CostRows.Units = _WorkSheet_Rows.Units + + If _WorkSheet_Rows.Services IsNot Nothing Then + _Worksheet_CostRows.FinalPriceHUF_Out = _WorkSheet_Rows.Services.ListPriceHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _WorkSheet_Rows.Services.ListPriceDEV + _Worksheet_CostRows.SumPriceHUF_Out = _WorkSheet_Rows.Services.ListPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _WorkSheet_Rows.Services.ListPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.FinalPriceHUF_In = _WorkSheet_Rows.Services.CostPriceHUF + _Worksheet_CostRows.FinalPriceDEV_In = _WorkSheet_Rows.Services.CostPriceDEV + _Worksheet_CostRows.SumPriceHUF_In = _WorkSheet_Rows.Services.CostPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_In = _WorkSheet_Rows.Services.CostPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + ElseIf _WorkSheet_Rows.RecipeFromOther IsNot Nothing Then + _Worksheet_CostRows.FinalPriceHUF_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceDEV + _Worksheet_CostRows.SumPriceHUF_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _WorkSheet_Rows.RecipeFromOther.ListPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.FinalPriceHUF_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceHUF + _Worksheet_CostRows.FinalPriceDEV_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceDEV + _Worksheet_CostRows.SumPriceHUF_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_In = 0 '_WorkSheet_Rows.RecipeFromOther.CostPriceDEV * _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + Else + _Worksheet_CostRows.FinalPriceHUF_Out = 0 + _Worksheet_CostRows.FinalPriceDEV_Out = 0 + _Worksheet_CostRows.SumPriceHUF_Out = 0 + _Worksheet_CostRows.SumPriceDEV_Out = 0 + + _Worksheet_CostRows.FinalPriceHUF_In = 0 + _Worksheet_CostRows.FinalPriceDEV_In = 0 + _Worksheet_CostRows.SumPriceHUF_In = 0 + _Worksheet_CostRows.SumPriceDEV_In = 0 + + _Worksheet_CostRows.DifferentPercent = 0 + _Worksheet_CostRows.DifferentHUF = 0 + _Worksheet_CostRows.DifferentDEV = 0 + End If + Else + _Worksheet_CostRows.ShortName = _WorkSheet_Rows.ShortName + _Worksheet_CostRows.Description = _WorkSheet_Rows.Description + _Worksheet_CostRows.QTT = _WorkSheet_Rows.Quantity + _Worksheet_CostRows.Units = _WorkSheet_Rows.Units + End If + Next + End If + If _WorkSheet_Header.StorageOutRows.Count > 0 Then + For Each _StorageOutRows As StorageOutRows In _WorkSheet_Header.StorageOutRows + Dim _Worksheet_CostRows As Worksheet_CostRows = _ocur.FindObject(Of Worksheet_CostRows)(CriteriaOperator.Parse("StorageOutRows=? AND WorkSheet_Header=?", _StorageOutRows, _WorkSheet_Header)) + If _Worksheet_CostRows Is Nothing Then + _Worksheet_CostRows = _ocur.CreateObject(Of Worksheet_CostRows)() + _Worksheet_CostRows.WorkSheet_Header = _WorkSheet_Header + _Worksheet_CostRows.StorageOutRows = _StorageOutRows + + _Worksheet_CostRows.ShortName = _StorageOutRows.Products.ShortName + _Worksheet_CostRows.Description = _StorageOutRows.Products.Description + _Worksheet_CostRows.QTT = _StorageOutRows.QTT + _Worksheet_CostRows.Units = _StorageOutRows.Products.Units + + _Worksheet_CostRows.FinalPriceHUF_Out = _StorageOutRows.Products.ListPriceOutHUF + _Worksheet_CostRows.FinalPriceDEV_Out = _StorageOutRows.Products.ListPriceOutDEV + _Worksheet_CostRows.SumPriceHUF_Out = _StorageOutRows.Products.ListPriceOutHUF * _Worksheet_CostRows.QTT + _Worksheet_CostRows.SumPriceDEV_Out = _StorageOutRows.Products.ListPriceOutDEV * _Worksheet_CostRows.QTT + + + Dim _DeliveryNoteInRows As DeliveryNoteInRows + Dim _StorageOutRowsInRows As StorageOutRowsInRows + _Worksheet_CostRows.SumPriceHUF_In = 0 + _Worksheet_CostRows.SumPriceDEV_In = 0 + + For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows + If _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + _DeliveryNoteInRows = _StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows + _Worksheet_CostRows.SumPriceHUF_In += (_DeliveryNoteInRows.ListPriceHUF - _DeliveryNoteInRows.DiscountPriceHUF) * _StorageOutRowsInRows.QTT + _Worksheet_CostRows.SumPriceDEV_In += (_DeliveryNoteInRows.ListPriceDEV - _DeliveryNoteInRows.DiscountPriceDEV) * _StorageOutRowsInRows.QTT + Else + _Worksheet_CostRows.SumPriceHUF_In += _StorageOutRows.Products.ListPriceInHUF * _StorageOutRowsInRows.QTT + _Worksheet_CostRows.SumPriceDEV_In += _StorageOutRows.Products.ListPriceInDEV * _StorageOutRowsInRows.QTT + End If + Next + _Worksheet_CostRows.FinalPriceHUF_In = _Worksheet_CostRows.SumPriceHUF_In / _Worksheet_CostRows.QTT + _Worksheet_CostRows.FinalPriceDEV_In = _Worksheet_CostRows.SumPriceDEV_In / _Worksheet_CostRows.QTT + + _Worksheet_CostRows.DifferentHUF = (_Worksheet_CostRows.FinalPriceHUF_Out - _Worksheet_CostRows.FinalPriceHUF_In) * _Worksheet_CostRows.QTT + _Worksheet_CostRows.DifferentDEV = (_Worksheet_CostRows.FinalPriceDEV_Out - _Worksheet_CostRows.FinalPriceDEV_In) * _Worksheet_CostRows.QTT + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceDEV_In / _Worksheet_CostRows.FinalPriceDEV_Out)) * 100, 2, MidpointRounding.AwayFromZero) + Else + _Worksheet_CostRows.DifferentPercent = Math.Round((1 - (_Worksheet_CostRows.FinalPriceHUF_In / _Worksheet_CostRows.FinalPriceHUF_Out)) * 100, 2, MidpointRounding.AwayFromZero) + End If + Else + _Worksheet_CostRows.ShortName = _StorageOutRows.Products.ShortName + _Worksheet_CostRows.Description = _StorageOutRows.Products.Description + _Worksheet_CostRows.QTT = _StorageOutRows.QTT + _Worksheet_CostRows.Units = _StorageOutRows.Products.Units + End If + Next + End If + + '------============ Worksheet_CostRows collection ============--------- + + If _WorkSheet_Header.Worksheet_CostRows.Count > 0 Then + Dim _Worksheet_CostRows_DEL_Collection As New ArrayList + For Each _Worksheet_CostRows As Worksheet_CostRows In _WorkSheet_Header.Worksheet_CostRows + Dim _WorkSheet_Rows As WorkSheet_Rows = Nothing + Dim _StorageOutRows As StorageOutRows = Nothing + + If _Worksheet_CostRows.StorageOutRows IsNot Nothing Then + _StorageOutRows = _ocur.FindObject(Of StorageOutRows)(CriteriaOperator.Parse("StorageOutHeader.WorkSheet_Header=?", _WorkSheet_Header)) + If _StorageOutRows Is Nothing Then + _Worksheet_CostRows_DEL_Collection.Add(_StorageOutRows) + Else + _Worksheet_CostRows.ShortName = _StorageOutRows.Products.ShortName + _Worksheet_CostRows.Description = _StorageOutRows.Products.Description + _Worksheet_CostRows.QTT = _StorageOutRows.QTT + _Worksheet_CostRows.Units = _StorageOutRows.Products.Units + End If + End If + + If _Worksheet_CostRows.WorkSheet_Rows IsNot Nothing Then + _WorkSheet_Rows = _ocur.FindObject(Of WorkSheet_Rows)(CriteriaOperator.Parse("Oid=?", _Worksheet_CostRows.WorkSheet_Rows.Oid)) + + If _WorkSheet_Rows Is Nothing Then + _Worksheet_CostRows_DEL_Collection.Add(_Worksheet_CostRows) + Else + If _Worksheet_CostRows.WorkSheet_Rows IsNot Nothing Then + + _Worksheet_CostRows.ShortName = _WorkSheet_Rows.ShortName + _Worksheet_CostRows.Description = _WorkSheet_Rows.Description + _Worksheet_CostRows.QTT = _WorkSheet_Rows.Quantity + _Worksheet_CostRows.Units = _WorkSheet_Rows.Units + End If + End If + End If + + _WorkSheet_Rows = Nothing + _StorageOutRows = Nothing + Next + _ocur.Delete(_Worksheet_CostRows_DEL_Collection) + _ocur.CommitChanges() + End If + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aCreateInvoiceFromWorksheetCost_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInvoiceFromWorksheetCost.Cancel + _noselect = False + End Sub + Private Sub aCreateInvoiceFromWorksheetCost_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoiceFromWorksheetCost.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CreateInvoiceFromWorksheetCost_PopUp As CreateInvoiceFromWorksheetCost_PopUp = _onew.CreateObject(Of CreateInvoiceFromWorksheetCost_PopUp)() + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + + _CreateInvoiceFromWorksheetCost_PopUp.Customers = _onew.GetObjectByKey(Of Customers)(_WorkSheet_Header.Customers.Oid) + _CreateInvoiceFromWorksheetCost_PopUp.WorkSheet_Header = _onew.GetObject(_WorkSheet_Header) + + e.View = Application.CreateDetailView(_onew, "CreateInvoiceFromWorksheetCost_PopUp_DetailView", False, _CreateInvoiceFromWorksheetCost_PopUp) + End Sub + Private Sub aCreateInvoiceFromWorksheetCost_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoiceFromWorksheetCost.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Try + Dim _CreateInvoiceFromWorksheetCost_PopUp As CreateInvoiceFromWorksheetCost_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), CreateInvoiceFromWorksheetCost_PopUp) + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.Worksheet_CostRows.Count = 0 Then Throw New Exception("*Nincsenek elszmolsi sorok, nem lehet szmlzni!") + + If _WorkSheet_Header.Worksheet_CostRows.Count > 0 Then + Dim _CreateInvoice As Boolean = False + For Each _Worksheet_CostRows As Worksheet_CostRows In _WorkSheet_Header.Worksheet_CostRows + If _Worksheet_CostRows.InvoiceRows Is Nothing Then + _CreateInvoice = True + Exit For + End If + Next + + If _CreateInvoice = False Then Throw New Exception("*Nincs olyan kltsgsor, amelyrl nem kszlt volna szmla!") + + Dim _WorkSheet_Rows_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("Worksheet_CostRows") + If _WorkSheet_Rows_ListPropertyEditor Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Rows_ListPropertyEditor.ListView.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kijellve egyetlen sor sem!") + + Frame.GetController(Of WorkSheet_VC).aRefreshWorksheetCostRows.DoExecute() + + Dim _InvoiceHeader As InvoiceHeader = _ocur.CreateObject(Of InvoiceHeader)() + _InvoiceHeader.CustomersFrom = _WorkSheet_Header.CustomersFrom + _InvoiceHeader.Customers = _ocur.GetObjectByKey(Of Customers)(_CreateInvoiceFromWorksheetCost_PopUp.Customers.Oid) + _InvoiceHeader.InvoiceType = _ocur.GetObjectByKey(Of InvoiceType)(_CreateInvoiceFromWorksheetCost_PopUp.InvoiceType.Oid) + _InvoiceHeader.DateExecution = _CreateInvoiceFromWorksheetCost_PopUp.DateExecution + _InvoiceHeader.DatePayment = _CreateInvoiceFromWorksheetCost_PopUp.DatePayment + _InvoiceHeader.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_CreateInvoiceFromWorksheetCost_PopUp.PaymentOption.Oid) + _InvoiceHeader.BankInformation = _ocur.GetObjectByKey(Of BankInformation)(_CreateInvoiceFromWorksheetCost_PopUp.BankInformation.Oid) + _InvoiceHeader.Description = _CreateInvoiceFromWorksheetCost_PopUp.Description + _InvoiceHeader.DescriptionHeader = _CreateInvoiceFromWorksheetCost_PopUp.DescriptionHeader + _InvoiceHeader.InvoicePeriod = _CreateInvoiceFromWorksheetCost_PopUp.InvoicePeriod + _InvoiceHeader.CurrencyRate = _CreateInvoiceFromWorksheetCost_PopUp.CurrencyRate + _InvoiceHeader.IsProforma = True + _InvoiceHeader.IsEditable = False + + If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then + Dim _NG As NumberGenerator = _InvoiceHeader.InvoiceType.NumberGeneratorProforma + _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG) + End If + SetInvoiceSaveProperties(_InvoiceHeader) + + For Each _Worksheet_CostRows As Worksheet_CostRows In _WorkSheet_Rows_ListPropertyEditor.ListView.SelectedObjects + Dim _Worksheet_CostRows_ACT = _ocur.FindObject(Of Worksheet_CostRows)(CriteriaOperator.Parse("Oid=?", _Worksheet_CostRows.Oid)) + If _Worksheet_CostRows_ACT.InvoiceRows Is Nothing Then + Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)() + _InvoiceRows.InvoiceHeader = _InvoiceHeader + _InvoiceRows.JobNumberObjects = _WorkSheet_Header.JobNumberObjects + _InvoiceRows.UniqueObjects = _WorkSheet_Header.UniqueObjects + _InvoiceRows.CostPlace = _WorkSheet_Header.CostPlace + _InvoiceRows.CostHolder = _WorkSheet_Header.CostHolder + _InvoiceRows.Controlling = _Worksheet_CostRows_ACT.Controlling + _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromWorkSheet + _InvoiceRows.Worksheet_CostRows = _Worksheet_CostRows_ACT + _InvoiceRows.RowIndex = _Worksheet_CostRows_ACT.RowIndex + If _Worksheet_CostRows_ACT.StorageOutRows IsNot Nothing Then + _InvoiceRows.CustomsTariffs = _Worksheet_CostRows_ACT.StorageOutRows.Products.CustomsTariff + Else + _InvoiceRows.CustomsTariffs = Nothing ' Kitrolsi sornl kell + End If + + _InvoiceRows.ShortName = _Worksheet_CostRows_ACT.ShortName + _InvoiceRows.Description = _Worksheet_CostRows_ACT.Description + _InvoiceRows.ListPriceHUF = _Worksheet_CostRows_ACT.FinalPriceHUF_Out + _InvoiceRows.ListPriceDEV = _Worksheet_CostRows_ACT.FinalPriceDEV_Out + _InvoiceRows.DiscountPriceHUF = 0 'Kedvezmny sszege HUF + _InvoiceRows.DiscountPriceDEV = 0 'Kedvezmny sszege DEV + _InvoiceRows.QTT = _Worksheet_CostRows_ACT.QTT + _InvoiceRows.Units = _Worksheet_CostRows_ACT.Units + If _Worksheet_CostRows_ACT.StorageOutRows IsNot Nothing Then + _InvoiceRows.VAT = _Worksheet_CostRows_ACT.StorageOutRows.Products.VAT + ElseIf _Worksheet_CostRows_ACT.WorkSheet_Rows.Services IsNot Nothing Then + _InvoiceRows.VAT = _Worksheet_CostRows_ACT.WorkSheet_Rows.Services.VAT + Else + _InvoiceRows.VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + End If + + _Worksheet_CostRows_ACT.InvoiceRows = _InvoiceRows + End If + Next + + _ocur.CommitChanges() + + Dim _ReportData As ReportData + If _WorkSheet_Header.CurrencyName.ShortName = "HUF" Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData.Oid), True) + End If + + If _WorkSheet_Header.CurrencyName.ShortName <> "HUF" Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _InvoiceHeader.InvoiceType.ReportData_DEV.Oid), True) + End If + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid), True) + End If + End If + + Catch ext As NullReferenceException + MsgBox("Nri Ferenc!" + vbNewLine + ext.Message) + _ocur.Rollback() + + Catch ext As Exception + MsgBox(ext.Message) + + End Try + _noselect = False + + + End Sub + Private Sub aReOpenWorksheetHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReOpenWorksheetHeader.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened + + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aOpenWorkSheetFile_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenWorkSheetFile.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.WorkSheetFile Is Nothing Then Throw New Exception("*Nincs csatolt munkalap!") + + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _WorkSheet_Header.WorkSheetFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _WorkSheet_Header.WorkSheetFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aOpenSubcontractorInvoice_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenSubcontractorInvoice.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.SubcontractorInvoice Is Nothing Then Throw New Exception("*Nincs csatolt alvllalkozi szmla!") + + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _WorkSheet_Header.SubcontractorInvoice.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _WorkSheet_Header.SubcontractorInvoice.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + + Private Sub aPrintWorkSheet_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintWorkSheet.Execute + Try + Dim _ReportData As ReportData + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _WorkSheet_Header.WorkSheetType Is Nothing Then Throw New Exception("*Nincs belltva munkalap tpus!") + _ReportData = _WorkSheet_Header.WorkSheetType.ReportData + + If _ReportData IsNot Nothing Or _WorkSheet_Header Is Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _WorkSheet_Header.Oid), True) + End If + Catch ext As NullReferenceException + MsgBox(ext.Message, MsgBoxStyle.Information) + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.Information) + End Try + End Sub + + Private Sub aWorkSheet_Rows_ChangeRows_Cancel(sender As Object, e As System.EventArgs) Handles aWorkSheet_Rows_ChangeRows.Cancel + _noselect = False + End Sub + Private Sub aWorkSheet_Rows_ChangeRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aWorkSheet_Rows_ChangeRows.CustomizePopupWindowParams + _noselect = True + Try + If _selection.Count = 0 Then Throw New Exception("*Nincs kivlasztott sor!") + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Worksheet_Rows_ChangeGroup As Worksheet_Rows_ChangeGroup = _onew.CreateObject(Of Worksheet_Rows_ChangeGroup)() + + e.View = Application.CreateDetailView(_onew, "Worksheet_Rows_ChangeGroup_DetailView", False, _Worksheet_Rows_ChangeGroup) + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aWorkSheet_Rows_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aWorkSheet_Rows_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Worksheet_Rows_ChangeGroup As Worksheet_Rows_ChangeGroup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Worksheet_Rows_ChangeGroup)) + + If _Worksheet_Rows_ChangeGroup.Change_RowGroup1 Then + For Each _Worksheet_Rows As WorkSheet_Rows In _selection + _Worksheet_Rows.RowGroup1 = _Worksheet_Rows_ChangeGroup.RowGroup1 + Next + End If + If _Worksheet_Rows_ChangeGroup.Change_RowGroup2 Then + For Each _Worksheet_Rows As WorkSheet_Rows In _selection + _Worksheet_Rows.RowGroup2 = _Worksheet_Rows_ChangeGroup.RowGroup2 + Next + End If + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub WorkSheet_Header_Worksheet_CostRows_ListView_SelectionChanged(sender As Object, e As EventArgs) + Dim _WorkSheet_CostRows As Worksheet_CostRows + If View Is Nothing Then Exit Sub + + If _noselect = True Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + + For Each _WorkSheet_CostRows In View.SelectedObjects + _selection.Add(_WorkSheet_CostRows) + Next + End If + End Sub + Private Sub WorkSheet_Header_WorkSheet_Rows_ListView_SelectionChanged(sender As Object, e As EventArgs) + If View Is Nothing Then Exit Sub + If _noselect = True Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _WorkSheet_Rows In View.SelectedObjects + _selection.Add(_WorkSheet_Rows) + Next + End If + End Sub + Private Sub aWorkSheet_CostRows_ChangeRows_Cancel(sender As Object, e As System.EventArgs) Handles aWorkSheet_CostRows_ChangeRows.Cancel + _noselect = False + End Sub + Private Sub aWorkSheet_CostRows_ChangeRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aWorkSheet_CostRows_ChangeRows.CustomizePopupWindowParams + _noselect = True + Try + If _selection.Count = 0 Then Throw New Exception("*Nincs kivlasztott sor!") + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Worksheet_CostRows_ChangeGroup As Worksheet_CostRows_ChangeGroup = _onew.CreateObject(Of Worksheet_CostRows_ChangeGroup)() + + e.View = Application.CreateDetailView(_onew, "Worksheet_CostRows_ChangeGroup_DetailView", False, _Worksheet_CostRows_ChangeGroup) + Catch ext As Exception + MsgBox(ext.Message) + End Try + End Sub + Private Sub aWorkSheet_CostRows_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aWorkSheet_CostRows_ChangeRows.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Worksheet_CostRows_ChangeGroup As Worksheet_CostRows_ChangeGroup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Worksheet_CostRows_ChangeGroup)) + + If _Worksheet_CostRows_ChangeGroup.Change_RowGroup1 Then + For Each _WorkSheet_CostRows As Worksheet_CostRows In _selection + _WorkSheet_CostRows.RowGroup1 = _Worksheet_CostRows_ChangeGroup.RowGroup1 + Next + End If + If _Worksheet_CostRows_ChangeGroup.Change_RowGroup2 Then + For Each _WorkSheet_CostRows As Worksheet_CostRows In _selection + _WorkSheet_CostRows.RowGroup2 = _Worksheet_CostRows_ChangeGroup.RowGroup2 + Next + End If + If _Worksheet_CostRows_ChangeGroup.Change_Controlling Then + For Each _WorkSheet_CostRows As Worksheet_CostRows In _selection + _WorkSheet_CostRows.Controlling = _ocur.GetObjectByKey(Of Controlling)(_Worksheet_CostRows_ChangeGroup.Controlling.Oid) + Next + End If + _ocur.CommitChanges() + _noselect = False + End Sub + Private Sub aCloseWorkSheet_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseWorkSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eClosed + _WorkSheet_Header.DateClosed = GetSQLTime(_ocur.Session) + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.Information) + End Try + End Sub + Private Sub aSetReadyToCloseWorkSheet_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSetReadyToCloseWorkSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eReadyforClose + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.Information) + End Try + End Sub + Private Sub aReopenWorkSheet_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aReopenWorkSheet.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ReopenWorkSheet_PopUp As ReopenWorkSheet_PopUp = _onew.CreateObject(Of ReopenWorkSheet_PopUp)() + e.View = Application.CreateDetailView(_onew, "ReopenWorkSheet_PopUp_DetailView", False, _ReopenWorkSheet_PopUp) + End Sub + Private Sub aReopenWorkSheet_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aReopenWorkSheet.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ReopenWorkSheet_PopUp As ReopenWorkSheet_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ReopenWorkSheet_PopUp) + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(View.SelectedObjects(0), WorkSheet_Header) + + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _ReopenWorkSheet_PopUp.WorkSheet_ReopenReason_Type Is Nothing Then Throw New Exception("*Az jranyits tpst ktelez megadni!") + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eReopened + + Dim _WorkSheet_ReopenReason As WorkSheet_ReopenReason = _ocur.CreateObject(Of WorkSheet_ReopenReason)() + _WorkSheet_ReopenReason.WorkSheet_Header = _WorkSheet_Header + _WorkSheet_ReopenReason.WorkSheet_ReopenReason_Type = _ocur.GetObjectByKey(Of WorkSheet_ReopenReason_Type)(_ReopenWorkSheet_PopUp.WorkSheet_ReopenReason_Type.Oid) + _WorkSheet_ReopenReason.Description = _ReopenWorkSheet_PopUp.Description + + _ocur.CommitChanges() + Catch ext As Exception + MsgBox(ext.Message, MsgBoxStyle.Information) + End Try + End Sub + Private Sub aAddHRPerson_WorkSheet_Header_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aAddHRPerson_WorkSheet_Header.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _CS_WorkSheet_Header_AddHRPerson As New CollectionSource(_onew, GetType(WorkSheet_Header_AddHRPerson_PopUp)) + Dim _HRPerson_Collection As New XPCollection(Of HRPerson)(_onew.Session) + + For Each _HRPerson As HRPerson In _HRPerson_Collection + Dim _WorkSheet_Header_AddHRPerson_PopUp As WorkSheet_Header_AddHRPerson_PopUp = _onew.CreateObject(Of WorkSheet_Header_AddHRPerson_PopUp)() + _WorkSheet_Header_AddHRPerson_PopUp.HRPerson = _HRPerson + _CS_WorkSheet_Header_AddHRPerson.Add(_WorkSheet_Header_AddHRPerson_PopUp) + Next + e.View = Application.CreateListView("WorkSheet_Header_AddHRPerson_PopUp_ListView", _CS_WorkSheet_Header_AddHRPerson, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + Private Sub aAddHRPerson_WorkSheet_Header_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aAddHRPerson_WorkSheet_Header.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, WorkSheet_Header) + + For Each _WorkSheet_Header_AddHRPerson_PopUp As WorkSheet_Header_AddHRPerson_PopUp In e.PopupWindow.View.SelectedObjects + Dim _WorkSheet_Header_HRPerson As WorkSheet_Header_HRPerson = _ocur.FindObject(Of WorkSheet_Header_HRPerson) _ + (CriteriaOperator.Parse("WorkSheet_Header=? AND HRPerson=?", _WorkSheet_Header, _ocur.GetObject(_WorkSheet_Header_AddHRPerson_PopUp.HRPerson))) + If _WorkSheet_Header_HRPerson Is Nothing Then + _WorkSheet_Header_HRPerson = New WorkSheet_Header_HRPerson(_ocur.Session) + _WorkSheet_Header_HRPerson.WorkSheet_Header = _WorkSheet_Header + _WorkSheet_Header_HRPerson.HRPerson = _ocur.GetObject(_WorkSheet_Header_AddHRPerson_PopUp.HRPerson) + End If + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub SetInvoiceSaveProperties(_InvoiceHeader As InvoiceHeader) + On Error GoTo CheckError + _InvoiceHeader.Saved_Customers_Name = _InvoiceHeader.Customers.Name.ToString + + _InvoiceHeader.Saved_Customers_Address_Country = _InvoiceHeader.Customers.Address1.Country.ToString + _InvoiceHeader.Saved_Customers_Address_ZipPostal = _InvoiceHeader.Customers.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_Customers_Address_Street = _InvoiceHeader.Customers.Address1.Street.ToString + _InvoiceHeader.Saved_Customers_Address_City = _InvoiceHeader.Customers.Address1.City.ToString + _InvoiceHeader.Saved_Customers_Address_StateProvince = _InvoiceHeader.Customers.Address1.StateProvince.ToString + + _InvoiceHeader.Saved_Customers_VATNumber = _InvoiceHeader.Customers.VATNumber.ToString + _InvoiceHeader.Saved_Customers_VATNumberEU = _InvoiceHeader.Customers.VATNumberEU.ToString + + _InvoiceHeader.Saved_CustomersFrom_Name = _InvoiceHeader.CustomersFrom.Name.ToString + + _InvoiceHeader.Saved_CustomersFrom_Address_Country = _InvoiceHeader.CustomersFrom.Address1.Country.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _InvoiceHeader.CustomersFrom.Address1.ZipPostal.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_Street = _InvoiceHeader.CustomersFrom.Address1.Street.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_City = _InvoiceHeader.CustomersFrom.Address1.City.ToString + _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _InvoiceHeader.CustomersFrom.Address1.StateProvince.ToString + + _InvoiceHeader.Saved_CustomersFrom_VATNumber = _InvoiceHeader.CustomersFrom.VATNumber.ToString + _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _InvoiceHeader.CustomersFrom.VATNumberEU.ToString + + + _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString + _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString + +CheckError: + If Err.Number = 91 Then Resume Next + If Err.Number = 13 Then Resume Next + End Sub + Private Sub aWorkSheet_InsertRecipe_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aWorkSheet_InsertRecipe.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WorkSheet_Header As WorkSheet_Header = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, WorkSheet_Header) + If _WorkSheet_Header Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + If _WorkSheet_Header.Recipe Is Nothing Then Throw New Exception("*Nincs kivlasztva egyetlen recept se a munkalap fejlcn!" + vbNewLine + _ + "Krem ellenrizze!") + If _WorkSheet_Header.Recipe.RecipeFromOther.Count = 0 Then _ + Throw New Exception("*A kivlasztott receptnek nincs egyetlen beilleszthet sora sem!" + vbNewLine + _ + "Krem ellenrizze!") + If _WorkSheet_Header.Recipe.RecipeFromOther.Count > 0 Then + For Each _RecipeFromOther As RecipeFromOther In _WorkSheet_Header.Recipe.RecipeFromOther + Dim _WorkSheet_Rows As WorkSheet_Rows = _ocur.FindObject(Of WorkSheet_Rows)(CriteriaOperator.Parse("RecipeFromOther=? AND WorkSheet_Header=?", _RecipeFromOther, _WorkSheet_Header)) + + If _WorkSheet_Rows Is Nothing Then + _WorkSheet_Rows = _ocur.CreateObject(Of WorkSheet_Rows)() + _WorkSheet_Rows.WorkSheet_Header = _WorkSheet_Header + _WorkSheet_Rows.RowGroup1 = _RecipeFromOther.RowGroup1 + _WorkSheet_Rows.RowGroup2 = _RecipeFromOther.RowGroup2 + _WorkSheet_Rows.WorkType = eWorkType.ePayable + _WorkSheet_Rows.WorkRowType = eWorkRowType.eManual + _WorkSheet_Rows.Description = _RecipeFromOther.Description + _WorkSheet_Rows.ShortName = _RecipeFromOther.ShortName + _WorkSheet_Rows.Units = _RecipeFromOther.Units + _WorkSheet_Rows.Quantity = _RecipeFromOther.QTT + _WorkSheet_Rows.RecipeFromOther = _RecipeFromOther + _WorkSheet_Rows.RowIndex = _WorkSheet_Header.WorkSheet_Rows.Count + End If + Next + End If + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkState.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkState.vb new file mode 100644 index 0000000..2e61da3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorkState.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class WorkState 'Munkafolyamatokat tartalmaz szabad bzis + Inherits BaseObject + Private _ShortName As String 'Megnevezs + Private _Description As String 'Lers + Private _IsOperationalLog As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsOperationalLog = False + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property IsOperationalLog As Boolean + Get + Return _IsOperationalLog + End Get + Set(value As Boolean) + SetPropertyValue("IsOperationalLog", _IsOperationalLog, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorksheetType.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorksheetType.vb new file mode 100644 index 0000000..185dde7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/WorksheetType.vb @@ -0,0 +1,150 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eWorkType + eGuarantee = 0 'Garanciális + ePayable = 1 'Fizetős + eMixed = 2 ' Vegyes +End Enum +Public Enum eWorkRowType + eServices = 0 'Szolgáltatástörzsből bevitt adat + eManual = 1 'Kézzel felvitt tétel +End Enum +Public Enum eWorkSheetState + eOpened = 0 'Nyitott + eClosed = 1 'Lezárt + eReopened = 2 'Újranyitott + eReadyforClose = 3 'Lezárásra kész, munka elvégezve +End Enum + _ + _ +Public Class WorkSheetType + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _Description As String + Private _NumberGenerator As NumberGenerator + Private _ExcelProperty As String + Private _ExcelFile As FileData + Private _ReportData As ReportData + Private _Rule5DMatrix As Rule5DMatrix 'Jelölő kitöltés kötelezősítés + Private _RegistryType As RegistryType + Private _IsOperationalLog As Boolean + Private _OperationalLogDescription As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsOperationalLog = False + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property NumberGenerator() As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property Rule5DMatrix As Rule5DMatrix + Get + Return _Rule5DMatrix + End Get + Set(value As Rule5DMatrix) + SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value) + End Set + End Property + _ + Property RegistryType As RegistryType + Get + Return _RegistryType + End Get + Set(value As RegistryType) + SetPropertyValue("RegistryType", _RegistryType, value) + End Set + End Property + Property IsOperationalLog As Boolean + Get + Return _IsOperationalLog + End Get + Set(value As Boolean) + SetPropertyValue("IsOperationalLog", _IsOperationalLog, value) + End Set + End Property + _ + Property OperationalLogDescription As String + Get + Return _OperationalLogDescription + End Get + Set(value As String) + SetPropertyValue("OperationalLogDescription", _OperationalLogDescription, value) + End Set + End Property + '-------ReadOnly------------ + _ + _ + ReadOnly Property WorkSheetTypeExcelParam As XPCollection(Of WorkSheetTypeExcelParam) + Get + Return GetCollection(Of WorkSheetTypeExcelParam)("WorkSheetTypeExcelParam") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_CostRows.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_CostRows.vb new file mode 100644 index 0000000..093162c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_CostRows.vb @@ -0,0 +1,242 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class Worksheet_CostRows + Inherits BaseObject + Private _WorkSheet_Header As WorkSheet_Header + Private _WorkSheet_Rows As WorkSheet_Rows + Private _StorageOutRows As StorageOutRows + Private _InvoiceRows As InvoiceRows + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _QTT As Double + Private _Units As Units + Private _RowIndex As Long + + Private _FinalPriceHUF_Out As Double '1 egysgre vonatkoz kedvezmnnyel cskkentett eladsi r + Private _FinalPriceDEV_Out As Double + Private _SumPriceHUF_Out As Double 'Mennyisggel felszrozott egysgre vonatkoz kedvezmnnyel cskkentett eladsi r + Private _SumPriceDEV_Out As Double + + Private _FinalPriceHUF_In As Double '1 egysgre vonatkoz kedvezmnnyel cskkentett bekerlsi r + Private _FinalPriceDEV_In As Double + Private _SumPriceHUF_In As Double + Private _SumPriceDEV_In As Double + + Private _DifferentPercent As Double 'rrs ?% a az eladsi rnak - haszonkulcs + Private _DifferentHUF As Double 'SumPriceHUF_Out-SumPriceHUF_In + Private _DifferentDEV As Double + + '----------Jell adat--------- + Private _Controlling As Controlling + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property WorkSheet_Rows As WorkSheet_Rows + Get + Return _WorkSheet_Rows + End Get + Set(value As WorkSheet_Rows) + SetPropertyValue("WorkSheet_Rows", _WorkSheet_Rows, value) + End Set + End Property + Property StorageOutRows As StorageOutRows + Get + Return _StorageOutRows + End Get + Set(value As StorageOutRows) + SetPropertyValue("StorageOutRows", _StorageOutRows, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property QTT As Double + Get + Return _QTT + End Get + Set(value As Double) + SetPropertyValue("QTT", _QTT, value) + End Set + End Property + Property Units As Units + Get + Return _Units + End Get + Set(value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + + Property FinalPriceHUF_Out As Double + Get + Return _FinalPriceHUF_Out + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF_Out", _FinalPriceHUF_Out, value) + End Set + End Property + Property FinalPriceDEV_Out As Double + Get + Return _FinalPriceDEV_Out + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV_Out", _FinalPriceDEV_Out, value) + End Set + End Property + Property SumPriceHUF_Out As Double + Get + Return _SumPriceHUF_Out + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF_Out", _SumPriceHUF_Out, value) + End Set + End Property + Property SumPriceDEV_Out As Double + Get + Return _SumPriceDEV_Out + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV_Out", _SumPriceDEV_Out, value) + End Set + End Property + + Property FinalPriceHUF_In As Double + Get + Return _FinalPriceHUF_In + End Get + Set(value As Double) + SetPropertyValue("FinalPriceHUF_In", _FinalPriceHUF_In, value) + End Set + End Property + Property FinalPriceDEV_In As Double + Get + Return _FinalPriceDEV_In + End Get + Set(value As Double) + SetPropertyValue("FinalPriceDEV_In", _FinalPriceDEV_In, value) + End Set + End Property + Property SumPriceHUF_In As Double + Get + Return _SumPriceHUF_In + End Get + Set(value As Double) + SetPropertyValue("SumPriceHUF_In", _SumPriceHUF_In, value) + End Set + End Property + Property SumPriceDEV_In As Double + Get + Return _SumPriceDEV_In + End Get + Set(value As Double) + SetPropertyValue("SumPriceDEV_In", _SumPriceDEV_In, value) + End Set + End Property + + Property DifferentPercent As Double + Get + Return _DifferentPercent + End Get + Set(value As Double) + SetPropertyValue("DifferentPercent", _DifferentPercent, value) + End Set + End Property + Property DifferentHUF As Double + Get + Return _DifferentHUF + End Get + Set(value As Double) + SetPropertyValue("DifferentHUF", _DifferentHUF, value) + End Set + End Property + Property DifferentDEV As Double + Get + Return _DifferentDEV + End Get + Set(value As Double) + SetPropertyValue("DifferentDEV", _DifferentDEV, value) + End Set + End Property + + '----------Jell adat--------- + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Documets.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Documets.vb new file mode 100644 index 0000000..2c4cf47 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Documets.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class Worksheet_Documets + Inherits BaseObject + Private _WorkSheet_Header As WorkSheet_Header + Private _DocumentFileData As DocumentFileData + Private _ObjectCreated As Date ' Ltrehozva + Private _UserCreated As User 'Ltrehoz + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property WorkSheet_Header As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property DocumentFileData As DocumentFileData + Get + Return _DocumentFileData + End Get + Set(value As DocumentFileData) + SetPropertyValue("DocumentFileData", _DocumentFileData, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb new file mode 100644 index 0000000..d26c316 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb @@ -0,0 +1,638 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Net.Mail + +Public Enum eInvoiceState + eNoState = 0 + eInvoiceReadyState = 1 'Számlázható + eNOInvoiceState = 2 ' NEM számlázható +End Enum + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +1 ", AppearanceItemType.ViewItem, " WorkSheetState<>'eClosed'", TargetItems:="DateClosed", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ +Public Class WorkSheet_Header + Inherits BaseObject + Private _WorkSheetType As WorkSheetType 'Munkalap tipusa + Private _WorkSheetState As eWorkSheetState ' munkalap állapota + Private _WorkPlace As WorkPlace 'Munkahely + Private _WorkState As WorkState 'Munkafolyamat + Private _InvoiceState As eInvoiceState 'Számlázási állapot + Private _Question As Question ' Internetes hibabejelentés + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers ' Partner, akire a munkalapot nyitották + Private _Contacts As Contacts 'Kapcsolattartó + Private _CurrencyName As CurrencyName 'Pénznem + Private _DocumentNumber As String 'Munkalap száma + Private _DateCreated As Date 'Létrehozás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _ExcelProperty As String ' Excel + Private _ExcelFile As FileData 'Excel file + Private _ObjectCreated As Date ' Létrehozva + Private _UserCreated As User 'Létrehozó + Private _Recipe As Recipe 'Milyen recept alapján kell gyártani + Private _WorkSheetFile_Original As FileData 'Generált pdf, amit letölt az alvállalkozó + Private _WorkSheetFile As FileData 'Csatolt alvállalkozói munkalap + Private _SubcontractorInvoice As FileData 'Csatolt alvállalkozói számla + Private _IsSubcontractor As Boolean 'Alvállalkozóhoz tartozik-e? + Private _SubcontractorCustomers As Customers 'Alvállalkozó aki nyitotta + Private _Description As String 'Belső megjeygszés alvállalkozói lezáráshoz + Private _DateClosed As Date 'Lezárás dátuma + + Private _WorkHour As Double 'Munkaóra amit megadhat, nem kötelező (WEB) + Private _WorkDescription As String 'Elvégzett munka leírása (nem kötelező WEB) + Private _WorkUsedMaterialDescription As String 'Felhasznált anyag leírása (nem kötelező WEB) + Private _WorkDescriptionOther As String 'Egyéb az alvállalkozó által megadott megjegyzés (nem kötelező WEB) + Private _WorkTravelKm As Long 'Mennyit utaztak (nem kötelező WEB) + Private _RegistryHeader As RegistryHeader 'Iktatáshoz kapcsolódó munkalap + + '-- Jelölő adatok !!! + Private _JobNumberObjects As JobNumberObjects + Private _UniqueObjects As UniqueObjects + Private _CostPlace As CostPlace + Private _CostHolder As CostHolder + + '-- Nonpersistent propertyk !!! + Private _row_RowGroup1 As String 'Csoportosító sor1 + Private _row_RowGroup2 As String 'Csoportosító sor2 + Private _row_ShortName As String 'Megnevezés + Private _row_Description As String 'Leírás + Private _row_Quantity As Double 'Mennyiség + Private _row_Units As Units 'Mennyiségi egység + Private _row_WorkType As eWorkType 'A sor milyen (Fizetős, garancia vagy vegyes) + Private _row_WorkRowType As eWorkRowType 'Az adott sor mit tartalmaz + Private _row_Services As Services 'Szolgáltatás törzsből + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.WorkSheetState = eWorkSheetState.eOpened + Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If DocumentNumber = "" Then + DocumentNumber = Me.WorkSheetType.NumberGenerator.GetNewNumber(Me.WorkSheetType.NumberGenerator) + End If + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + + Try + Dim _WebParameters As WebParameters = Session.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paraméterek beállítva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server beállítva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasználói név beállítva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port beállítva!") + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + If Customers.Contacts.Count > 0 Then + For Each _Contacts As Contacts In Customers.Contacts + If Not String.IsNullOrEmpty(_Contacts.Email) Then _MailMessage.To.Add(_Contacts.Email) + Next + ElseIf Not String.IsNullOrEmpty(Customers.Email) Then + _MailMessage.To.Add(Customers.Email) + Else + 'Throw New Exception("*Nincs email cím beállítva!") + End If + + _MailMessage.Subject = "Új munkalap készült" + _MailMessage.IsBodyHtml = True + _MailMessage.Body = String.Format("{0} számmal új munkalap készült az Ön(ök) részére.", DocumentNumber) + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + If UserCreated IsNot Nothing Then + If Not String.IsNullOrEmpty(UserCreated.Email) Then + _MailMessage.To.Clear() + _MailMessage.To.Add(UserCreated.Email) + _MailMessage.Body = String.Format("Ön {0} számmal új munkalapot hozott létre a(z) {1} ügyfél részére.", DocumentNumber, Customers.FullName) + + _SmtpClient.Send(_MailMessage) + End If + End If + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _uow As New UnitOfWork(Session.DataLayer) + Dim _ErrorLog As New ErrorLog(_uow) + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), System.Reflection.MethodBase).Name + _uow.CommitTransaction() + End Try + + '-------------IsOperationalLog------------- + If WorkSheetType.IsOperationalLog Then + Dim _OperationalLogParameters As OperationalLogParameters = Session.FindObject(Of OperationalLogParameters)(CriteriaOperator.Parse("WorkPlace=? AND CustomersFrom=?", WorkPlace, CustomersFrom)) + If _OperationalLogParameters IsNot Nothing Then + Dim _OperationalLog As New OperationalLog(Session) + With _OperationalLog + .CustomersFrom = CustomersFrom + .Customers = Customers + .OperationalLogParameters = _OperationalLogParameters + .WorkState = WorkState + .WorkPlace = WorkPlace + .Description = String.Format(WorkSheetType.OperationalLogDescription, DocumentNumber, ObjectCreated.ToString, UserCreated.UserName) + End With + + _OperationalLog.Save() + ' Session.CommitTransaction() + End If + End If + End If + End Sub + Property WorkSheetState() As eWorkSheetState + Get + Return _WorkSheetState + End Get + Set(ByVal value As eWorkSheetState) + SetPropertyValue("WorkSheetState", _WorkSheetState, value) + End Set + End Property + _ + _ + _ + Property WorkSheetType() As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(ByVal value As WorkSheetType) + SetPropertyValue("WorkSheetType", _WorkSheetType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Session.IsNewObject(Me) = True Then + Me.ExcelProperty = value.ExcelProperty + Me.ExcelFile = value.ExcelFile + End If + End If + End Set + End Property + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + End Set + End Property + Property WorkState As WorkState + Get + Return _WorkState + End Get + Set(value As WorkState) + SetPropertyValue("WorkState", _WorkState, value) + End Set + End Property + Property InvoiceState As eInvoiceState + Get + Return _InvoiceState + End Get + Set(value As eInvoiceState) + SetPropertyValue("InvoiceState", _InvoiceState, value) + End Set + End Property + Property Question() As Question + Get + Return _Question + End Get + Set(ByVal value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property + _ + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + _ + Property ExcelProperty As String + Get + Return _ExcelProperty + End Get + Set(value As String) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property + _ + Property ExcelFile As FileData + Get + Return _ExcelFile + End Get + Set(value As FileData) + SetPropertyValue("ExcelFile", _ExcelFile, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property Recipe As Recipe + Get + Return _Recipe + End Get + Set(value As Recipe) + SetPropertyValue("Recipe", _Recipe, value) + End Set + End Property + Property WorkSheetFile_Original As FileData + Get + Return _WorkSheetFile_Original + End Get + Set(value As FileData) + SetPropertyValue("WorkSheetFile_Original", _WorkSheetFile_Original, value) + End Set + End Property + Property WorkSheetFile As FileData + Get + Return _WorkSheetFile + End Get + Set(value As FileData) + SetPropertyValue("WorkSheetFile", _WorkSheetFile, value) + End Set + End Property + Property SubcontractorInvoice As FileData + Get + Return _SubcontractorInvoice + End Get + Set(value As FileData) + SetPropertyValue("SubcontractorInvoice", _SubcontractorInvoice, value) + End Set + End Property + Property IsSubcontractor As Boolean + Get + Return _IsSubcontractor + End Get + Set(value As Boolean) + SetPropertyValue("IsSubcontractor", _IsSubcontractor, value) + End Set + End Property + Property SubcontractorCustomers As Customers + Get + Return _SubcontractorCustomers + End Get + Set(value As Customers) + SetPropertyValue("SubcontractorCustomers", _SubcontractorCustomers, value) + End Set + End Property + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property DateClosed As Date + Get + Return _DateClosed + End Get + Set(value As Date) + SetPropertyValue("DateClosed", _DateClosed, value) + End Set + End Property + + Property WorkHour As Double + Get + Return _WorkHour + End Get + Set(value As Double) + SetPropertyValue("WorkHour", _WorkHour, value) + End Set + End Property + _ + Property WorkDescription As String + Get + Return _WorkDescription + End Get + Set(value As String) + SetPropertyValue("WorkDescription", _WorkDescription, value) + End Set + End Property + _ + Property WorkUsedMaterialDescription As String + Get + Return _WorkUsedMaterialDescription + End Get + Set(value As String) + SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value) + End Set + End Property + _ + Property WorkDescriptionOther As String + Get + Return _WorkDescriptionOther + End Get + Set(value As String) + SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value) + End Set + End Property + Property WorkTravelKm As Long + Get + Return _WorkTravelKm + End Get + Set(value As Long) + SetPropertyValue("WorkTravelKm", _WorkTravelKm, value) + End Set + End Property + _ + _ + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.Customers = value.Customers + Me.Description = value.ShortName + End If + End Set + End Property + + '-- Jelölő adatok !!! + _ + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + + '----------Nonpersistent propertyk !!! + _ + _ + Property row_RowGroup1 As String + Get + Return _row_RowGroup1 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup1", _row_RowGroup1, value) + End Set + End Property + _ + _ + Property row_RowGroup2 As String + Get + Return _row_RowGroup2 + End Get + Set(value As String) + SetPropertyValue("row_RowGroup2", _row_RowGroup2, value) + End Set + End Property + _ + _ + Property row_ShortName As String + Get + Return _row_ShortName + End Get + Set(value As String) + SetPropertyValue("row_ShortName", _row_ShortName, value) + End Set + End Property + _ + _ + Property row_Description As String + Get + Return _row_Description + End Get + Set(value As String) + SetPropertyValue("row_Description", _row_Description, value) + End Set + End Property + _ + _ + Property row_Quantity As Double + Get + Return _row_Quantity + End Get + Set(value As Double) + SetPropertyValue("row_Quantity", _row_Quantity, value) + End Set + End Property + _ + _ + Property row_Units As Units + Get + Return _row_Units + End Get + Set(value As Units) + SetPropertyValue("row_Units", _row_Units, value) + End Set + End Property + _ + _ + _ + Property row_WorkType() As eWorkType + Get + Return _row_WorkType + End Get + Set(ByVal value As eWorkType) + SetPropertyValue("row_WorkType", _row_WorkType, value) + End Set + End Property + _ + _ + _ + Property row_WorkRowType As eWorkRowType + Get + Return _row_WorkRowType + End Get + Set(value As eWorkRowType) + SetPropertyValue("row_WorkRowType", _row_WorkRowType, value) + End Set + End Property + _ + _ + _ + Property row_Services As Services + Get + Return _row_Services + End Get + Set(value As Services) + SetPropertyValue("row_Services", _row_Services, value) + End Set + End Property + + '--------------------ReadOnly-------------------- + _ + _ + ReadOnly Property WorkSheet_Rows() As XPCollection(Of WorkSheet_Rows) + Get + Return GetCollection(Of WorkSheet_Rows)("WorkSheet_Rows") + End Get + End Property + _ + _ + ReadOnly Property Worksheet_Documets As XPCollection(Of Worksheet_Documets) + Get + Return GetCollection(Of Worksheet_Documets)("Worksheet_Documets") + End Get + End Property + _ + ReadOnly Property StorageOutRows As XPCollection(Of StorageOutRows) + Get + Return New XPCollection(Of StorageOutRows)(Session, CriteriaOperator.Parse("StorageOutHeader.WorkSheet_Header=?", Me)) + End Get + End Property + _ + ReadOnly Property Worksheet_CostRows As XPCollection(Of Worksheet_CostRows) + Get + Return GetCollection(Of Worksheet_CostRows)("Worksheet_CostRows") + End Get + End Property + _ + ReadOnly Property WorkSheet_ReopenReason As XPCollection(Of WorkSheet_ReopenReason) + Get + Return GetCollection(Of WorkSheet_ReopenReason)("WorkSheet_ReopenReason") + End Get + End Property + _ + _ + _ + ReadOnly Property WorkSheet_Header_HRPerson As XPCollection(Of WorkSheet_Header_HRPerson) + Get + Return GetCollection(Of WorkSheet_Header_HRPerson)("WorkSheet_Header_HRPerson") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Rows.vb b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Rows.vb new file mode 100644 index 0000000..a419b71 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Business/Worksheet/Worksheet_Rows.vb @@ -0,0 +1,131 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ +Public Class WorkSheet_Rows 'Elvégzett munkák + Inherits BaseObject + Private _WorkSheet_Header As WorkSheet_Header 'Fejléc + Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !) + Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező) + Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező) + Private _ShortName As String 'Megnevezés + Private _Description As String 'Leírás + Private _Quantity As Double 'Mennyiség + Private _Units As Units 'Mennyiségi egység + Private _WorkType As eWorkType 'A sor milyen (Fizetős, garancia vagy vegyes) + Private _WorkRowType As eWorkRowType 'Az adott sor mit tartalmaz + + '---- Beemelések szolgáltatás és receptből + Private _Services As Services ' A szolgáltatás törzsből az adott szolgáltatás + Private _RecipeFromOther As RecipeFromOther 'Receprt miből egyéb sor + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property WorkSheet_Header() As WorkSheet_Header + Get + Return _WorkSheet_Header + End Get + Set(ByVal value As WorkSheet_Header) + SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value) + End Set + End Property + Property RowIndex() As Long + Get + Return _RowIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property RowGroup1 As String + Get + Return _RowGroup1 + End Get + Set(value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Property RowGroup2 As String + Get + Return _RowGroup2 + End Get + Set(value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property Quantity() As Double + Get + Return _Quantity + End Get + Set(ByVal value As Double) + SetPropertyValue("Quantity", _Quantity, value) + End Set + End Property + Property Units() As Units + Get + Return _Units + End Get + Set(ByVal value As Units) + SetPropertyValue("Units", _Units, value) + End Set + End Property + Property WorkType() As eWorkType + Get + Return _WorkType + End Get + Set(ByVal value As eWorkType) + SetPropertyValue("WorkType", _WorkType, value) + End Set + End Property + Property WorkRowType As eWorkRowType + Get + Return _WorkRowType + End Get + Set(value As eWorkRowType) + SetPropertyValue("WorkRowType", _WorkRowType, value) + End Set + End Property + Property Services As Services + Get + Return _Services + End Get + Set(value As Services) + SetPropertyValue("Services", _Services, value) + End Set + End Property + Property RecipeFromOther As RecipeFromOther + Get + Return _RecipeFromOther + End Get + Set(value As RecipeFromOther) + SetPropertyValue("RecipeFromOther", _RecipeFromOther, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/EmailSender.vb b/SISBusiness.Module/BusinessObjects/EmailSender/EmailSender.vb new file mode 100644 index 0000000..ed99aa8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/EmailSender.vb @@ -0,0 +1,56 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.IO +Imports System.Net.Mail +Imports System.Drawing +Imports System.Collections +Imports DevExpress.XtraReports.UI + _ +Public Class EmailSender + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Sub Sendmail() '---- Nem működ még csak próba adatokkal lett megcsinálva + Try + ' Create a new report. + Dim Report As New XtraReport1() + ' Create a new memory stream and export the report into it as PDF. + Dim Mem As New MemoryStream() + Report.ExportToPdf(Mem) + ' Create a new attachment and put the PDF report into it. + Mem.Seek(0, System.IO.SeekOrigin.Begin) + Dim Att = New Attachment(Mem, "TestReport.pdf", "application/pdf") + ' Create a new message and attach the PDF report to it. + Dim Mail As New MailMessage() + Mail.Attachments.Add(Att) + ' Specify sender and recipient options for the e-mail message. + Mail.From = New MailAddress("totyota@gmail.com", "Someone") + Mail.To.Add(New MailAddress("totyota@gmail.com", "Someone")) + ' Specify other e-mail options. + Mail.Subject = "Próba" + Mail.Body = "This is a test e-mail message sent by an application." + ' Send the e-mail message via the specified SMTP server. + Dim Smtp = New SmtpClient("smtp.gmail.com") + Smtp.Send(Mail) + ' Close the memory stream. + Mem.Close() + Mem.Flush() + Catch ex As Exception + 'MessageBox.Show(Me, "Error sending a report.\n" + ex.ToString()) + End Try + End Sub +End Class +Partial Public Class XtraReport1 + Inherits DevExpress.XtraReports.UI.XtraReport + Public Sub New() + 'InitializeComponent() + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailGetContacts.vb b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailGetContacts.vb new file mode 100644 index 0000000..774a141 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailGetContacts.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class HTMLMailGetContacts + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ContactsProperties As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplate.vb b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplate.vb new file mode 100644 index 0000000..84df9c2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplate.vb @@ -0,0 +1,99 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eHTMLMailTemplateState + eInProgress = 0 + eReady = 1 + eDisposed = 2 +End Enum + _ +Public Class HTMLMailTemplate + Inherits BaseObject + + Private _HTMLMailTemplateState As eHTMLMailTemplateState + Private _ShortName As String + Private _HTMLBody As String + Private _ObjectCreated As Date + Private _UserCreated As User + Private _ContactsProperties As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property HTMLMailTemplateState As eHTMLMailTemplateState + Get + Return _HTMLMailTemplateState + End Get + Set(value As eHTMLMailTemplateState) + SetPropertyValue("HTMLMailTemplateState", _HTMLMailTemplateState, value) + End Set + End Property + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property HTMLBody As String + Get + Return _HTMLBody + End Get + Set(value As String) + SetPropertyValue("HTMLBody", _HTMLBody, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + Property ContactsProperties As String + Get + Return _ContactsProperties + End Get + Set(value As String) + SetPropertyValue("ContactsProperties", _ContactsProperties, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.Designer.vb new file mode 100644 index 0000000..b3f32ed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class HTMLMailTemplateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCopyProperty = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCopyProperty + ' + Me.aCopyProperty.Caption = "aCopy Property" + Me.aCopyProperty.ConfirmationMessage = Nothing + Me.aCopyProperty.Id = "aCopyProperty" + Me.aCopyProperty.ImageName = "copy" + Me.aCopyProperty.Shortcut = Nothing + Me.aCopyProperty.Tag = Nothing + Me.aCopyProperty.TargetObjectsCriteria = Nothing + Me.aCopyProperty.TargetObjectType = GetType(SISBusiness.[Module].HTMLMailTemplate) + Me.aCopyProperty.TargetViewId = Nothing + Me.aCopyProperty.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCopyProperty.ToolTip = "A kapcsolat tulajdonsgati msolja. A Ctrl+V vagy a beilleszts gombra kattintva " & _ + "helyezhet el a HTML testben." + Me.aCopyProperty.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aCopyProperty As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.resx b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.resx new file mode 100644 index 0000000..d61914e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 110, 52 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.vb b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.vb new file mode 100644 index 0000000..613823c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/HTMLMailTemplateVC.vb @@ -0,0 +1,45 @@ +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 System.Windows.Forms +Imports DevExpress.ExpressApp.Utils + +Public Class HTMLMailTemplateVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aCopyProperty_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCopyProperty.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DetailView As DetailView = TryCast(View, DetailView) + Dim _HTMLMailTemplate As HTMLMailTemplate = TryCast(_DetailView.CurrentObject, HTMLMailTemplate) + If _HTMLMailTemplate.ContactsProperties IsNot Nothing Then + Dim _copy As String = String.Empty + _copy = "{" + _HTMLMailTemplate.ContactsProperties.ToString + "}" + Clipboard.Clear() + ' Clipboard.SetText(_copy) + Clipboard.SetData(DataFormats.Text, CType(_copy, String)) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/MailSender.vb b/SISBusiness.Module/BusinessObjects/EmailSender/MailSender.vb new file mode 100644 index 0000000..3d52883 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/MailSender.vb @@ -0,0 +1,26 @@ +Imports System.Net.Mail +Imports DevExpress.ExpressApp + +Module MailSender + + Sub SendSMTPMail(_ocur As Xpo.XPObjectSpace, _HRPerson As HRPerson, _ToAddress As String, _Subject As String, _Body As String) + Dim _SMTPServer As New SmtpClient + Dim _Mail As New MailMessage + + Try + _SMTPServer.Credentials = New Net.NetworkCredential(_HRPerson.SMTPUserName, _HRPerson.SMTPPassword) + _SMTPServer.Port = _HRPerson.SMTPPort + _SMTPServer.Host = _HRPerson.SMTPHost + + _Mail.From = New MailAddress(_HRPerson.Email) + _Mail.To.Add(_ToAddress) + _Mail.Subject = _Subject + _Mail.Body = _Body + + _SMTPServer.Send(_Mail) + + Catch ex As Exception + MsgBox(ex.ToString) + End Try + End Sub +End Module diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters.vb b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters.vb new file mode 100644 index 0000000..0d5ced0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters.vb @@ -0,0 +1,109 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ + _ +Public Class WebParameters + Inherits BaseObject + + Private _SMTPHost As String + Private _SMTPPort As Long = 25 + Private _SMTPUserName As String + Private _SMTPPassword As String + Private _EnableSsl As Boolean + Private _Email_SupportAdmin As String + Private _HTMLMailTemplate_QuestionUpdate As HTMLMailTemplate + Private _HTMLMailTemplate_QuestionStatusUpdate As HTMLMailTemplate + Private _HTMLMailTemplate_AnswerUpdate As HTMLMailTemplate + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + EnableSsl = True + End Sub + + Property SMTPHost As String + Get + Return _SMTPHost + End Get + Set(value As String) + SetPropertyValue("SMTPHost", _SMTPHost, value) + End Set + End Property + Property SMTPPort As Long + Get + Return _SMTPPort + End Get + Set(value As Long) + SetPropertyValue("SMTPPort", _SMTPPort, value) + End Set + End Property + Property SMTPUserName As String + Get + Return _SMTPUserName + End Get + Set(value As String) + SetPropertyValue("SMTPUserName", _SMTPUserName, value) + End Set + End Property + _ + Property SMTPPassword As String + Get + Return _SMTPPassword + End Get + Set(value As String) + SetPropertyValue("SMTPPassword", _SMTPPassword, value) + End Set + End Property + Property EnableSsl As Boolean + Get + Return _EnableSsl + End Get + Set(value As Boolean) + SetPropertyValue("EnableSsl", _EnableSsl, value) + End Set + End Property + Property Email_SupportAdmin As String + Get + Return _Email_SupportAdmin + End Get + Set(value As String) + SetPropertyValue("Email_SupportAdmin", _Email_SupportAdmin, value) + End Set + End Property + Property HTMLMailTemplate_QuestionUpdate As HTMLMailTemplate + Get + Return _HTMLMailTemplate_QuestionUpdate + End Get + Set(value As HTMLMailTemplate) + SetPropertyValue("HTMLMailTemplate_QuestionUpdate", _HTMLMailTemplate_QuestionUpdate, value) + End Set + End Property + Property HTMLMailTemplate_QuestionStatusUpdate As HTMLMailTemplate + Get + Return _HTMLMailTemplate_QuestionStatusUpdate + End Get + Set(value As HTMLMailTemplate) + SetPropertyValue("HTMLMailTemplate_QuestionStatusUpdate", _HTMLMailTemplate_QuestionStatusUpdate, value) + End Set + End Property + Property HTMLMailTemplate_AnswerUpdate As HTMLMailTemplate + Get + Return _HTMLMailTemplate_AnswerUpdate + End Get + Set(value As HTMLMailTemplate) + SetPropertyValue("HTMLMailTemplate_AnswerUpdate", _HTMLMailTemplate_AnswerUpdate, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.Designer.vb new file mode 100644 index 0000000..844f5e9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class WebParameters_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSMTPTest = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSMTPTest + ' + Me.aSMTPTest.Caption = "aSMTPTest" + Me.aSMTPTest.Category = "" + Me.aSMTPTest.ConfirmationMessage = Nothing + Me.aSMTPTest.Id = "aSMTPTest" + Me.aSMTPTest.ImageName = Nothing + Me.aSMTPTest.Shortcut = Nothing + Me.aSMTPTest.Tag = Nothing + Me.aSMTPTest.TargetObjectsCriteria = Nothing + Me.aSMTPTest.TargetObjectType = GetType(SISBusiness.[Module].WebParameters) + Me.aSMTPTest.TargetViewId = Nothing + Me.aSMTPTest.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSMTPTest.ToolTip = Nothing + Me.aSMTPTest.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aSMTPTest As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.resx b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.resx new file mode 100644 index 0000000..13933a1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.vb b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.vb new file mode 100644 index 0000000..7e117db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/EmailSender/WebParameters_VC.vb @@ -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 + +Public Class WebParameters_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aSMTPTest_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSMTPTest.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _WebParameters As WebParameters = TryCast(View.SelectedObjects(0), WebParameters) + If _WebParameters Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + If String.IsNullOrEmpty(_WebParameters.SMTPHost) Then Throw New Exception("*Nincs megadva SMTP szerver!") + If _WebParameters.SMTPPort < 1 Then Throw New Exception("*rvnytelen SMTP Port!") + If String.IsNullOrEmpty(_WebParameters.SMTPUserName) Then Throw New Exception("*Nincs megadva SMTP Felhasznli nv!") + If String.IsNullOrEmpty(_WebParameters.SMTPPassword) Then Throw New Exception("*Nincs megadva SMTP jelsz!") + If String.IsNullOrEmpty(_WebParameters.Email_SupportAdmin) Then Throw New Exception("*Nincs megadva Support Admin e-mail cm!") + If _WebParameters.HTMLMailTemplate_QuestionUpdate Is Nothing Then Throw New Exception("*Nincs belltva Krds e-mail sablon!") + If _WebParameters.HTMLMailTemplate_QuestionUpdate Is Nothing Then Throw New Exception("*Nincs belltva Sttusz e-mail sablon!") + If _WebParameters.HTMLMailTemplate_AnswerUpdate Is Nothing Then Throw New Exception("*Nincs belltva Vlasz e-mail sablon!") + + Dim _MailMessage As New System.Net.Mail.MailMessage + Dim _SmtpClient As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New System.Net.Mail.MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_WebParameters.Email_SupportAdmin) + _MailMessage.Subject = "Sis Business SMTP belltsok - T E S Z T E M A I L" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = "" + _EmailBody += String.Format("SMTP szerver: {0}
SMTP Port: {1}
SMTP Felhasznl: {2}
SMTP jelsz: {3}

", _ + _WebParameters.SMTPHost, _WebParameters.SMTPPort, _WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + + _EmailBody += "

Krds sablon:



" + _EmailBody += _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody += "

Sttusz sablon:



" + _EmailBody += _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody += "

Vlasz sablon:



" + _EmailBody += _WebParameters.HTMLMailTemplate_AnswerUpdate.HTMLBody + + _MailMessage.Body = _EmailBody + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + Throw New Exception("*A teszt sikeres!" + vbNewLine + "Krem ellenrizze az e-mail-t!" + vbNewLine + _ + String.Format("A cmzett: {0}", _WebParameters.Email_SupportAdmin)) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "SMTP teszt") + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountMixedPCI.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountMixedPCI.vb new file mode 100644 index 0000000..f35f296 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountMixedPCI.vb @@ -0,0 +1,38 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLAccountMixedPCI + Inherits BaseObject + Private _ChartOfAccounts As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.cd b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.cd new file mode 100644 index 0000000..91139b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.cd @@ -0,0 +1,132 @@ + + + + + + + + oAFAAAAQQAEIAIAAAAAAAIEBAAAAAAAAAAIAABAgADA= + FinancialObjects\FinancialTransactions\Accounts\GLAccounts.vb + + + + + + + + mBkBAKdgJECEANAJoICIOkEQAASIQQGgAEhEv5IDqHg= + FinancialObjects\FinancialTransactions\Base\GLHeader.vb + + + + + + + + FAWBioEBRATDJBEQCgEBFSAAIQAgCQFREFRigSBgkGo= + FinancialObjects\FinancialTransactions\Base\GLRows.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.vb new file mode 100644 index 0000000..a8663fc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccounts.vb @@ -0,0 +1,445 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + +' _ +' 'HUF'", ViewType.DetailView)> _ +' _ +' _ +' _ + +'-- Vevő szállító + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLAccounts + Inherits GLHeader + Private _PartnerType As ePartnerType + Private _ChartOfAccounts As ChartOfAccounts + Private _PaymentOption As PaymentOption + Private _CurrencyRateVAT As Double + Private _AmountHUFBrutto As Double + Private _AmountDEVBrutto As Double + Private _Customers As Customers + Private _CustomerBankAccounts As CustomerBankAccounts + Private _HeaderInfo As String + Private _DocumentFile As FileData + Private _IsRegistry As Boolean = False 'Ha szállítói bizonylat, van-e iktatás + Private _ConnectInfo As String + Private _IsControlling_InCash As Boolean 'Készpénzes rögzítés esetén csináljon-e + Private _Controlling_InCash As Controlling 'Készpénz esetén GLAccounts rögzítéskor a kifizetés mire menjen (automatikus sor beszúrás) ! + Private _GLMixed_InCash As GLMixed 'A pénzügyi teljesítés vegyes bizonylata, ami ehhez kapcsolódik + Private _VATAvowalType As eVATAvowalType 'ÁFA bevallás módja + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Me.RegistryNumber IsNot Nothing Then + Dim _RegistryHeader As RegistryHeader = Session.FindObject(Of RegistryHeader)(1, CriteriaOperator.Parse("RegistryNumber=?", Me.RegistryNumber)) + If _RegistryHeader IsNot Nothing Then + _RegistryHeader.F_IsImported = True + _RegistryHeader.Save() + End If + End If + If IsDeleted = False Then + Dim _GLRows As GLRows + For Each _GLRows In Me.GLRows + _GLRows.ConnectInfo = Me.row_ConnectInfo + Next + Me.ConnectInfo = Me.row_ConnectInfo + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then Me.GLDocumentType = eGLDocumentType.eGLAccount + IsRegistry = False + HeaderInfo = "" + IsControlling_InCash = False + VATAvowalType = eVATAvowalType.eGeneral + PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode='InTransfer' and DefaultForBusinnes=True")) + + End Sub + + _ + _ + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + _ + _ + _ + _ + Property row_ChartOfAccounts() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + _ + Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Not Me.DateCreated = Nothing Then + If value IsNot Nothing Then + If value.PayMode = ePayMode.InCash Then + Me.DatePayment = Me.DateCreated + Me.DateExecution = Me.DateCreated + Me.row_DateVAT = Me.DateCreated + Else + Me.DatePayment = Me.DateCreated.AddDays(value.PayDay) + End If + End If + End If + If value IsNot Nothing Then + If value.PayMode = ePayMode.InCash Then + IsControlling_InCash = value.IsControlling_InCash + If IsControlling_InCash = True Then + If value.Controlling_InCash IsNot Nothing Then + Controlling_InCash = value.Controlling_InCash + End If + End If + End If + End If + End If + End Set + End Property + _ + Property CurrencyRateVAT() As Double + Get + Return _CurrencyRateVAT + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRateVAT", _CurrencyRateVAT, value) + End Set + End Property + Property AmountHUFBrutto() As Double + Get + Return _AmountHUFBrutto + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value) + End Set + End Property + Property AmountDEVBrutto() As Double + Get + Return _AmountDEVBrutto + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEVBrutto", _AmountDEVBrutto, value) + End Set + End Property + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + row_Customer = value + End If + End Set + End Property + Property HeaderInfo As String + Get + Return _HeaderInfo + End Get + Set(ByVal value As String) + SetPropertyValue("HeaderInfo", _HeaderInfo, value) + End Set + End Property + _ + Property IsRegistry As Boolean + Get + Return _IsRegistry + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsRegistry", _IsRegistry, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.IsRegistryGLAccounts = value + End If + End Set + End Property + _ + _ + _ + + Property DocumentFile As FileData + Get + Return _DocumentFile + End Get + Set(ByVal value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + _ + _ + Property CustomerBankAccounts As CustomerBankAccounts + Get + Return _CustomerBankAccounts + End Get + Set(ByVal value As CustomerBankAccounts) + SetPropertyValue("CustomerBankAccounts", _CustomerBankAccounts, value) + End Set + End Property + _ + ReadOnly Property Image1 As Image + Get + If PartnerType = ePartnerType.eReceivables Then + If ImportedInvoice IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("row_delete").Image + Else + Return ImageLoader.Instance.GetImageInfo("edit").Image + + End If + End If + If PartnerType = ePartnerType.ePayabels Then + If IsRegistry Then + Return ImageLoader.Instance.GetImageInfo("edit").Image + ElseIf ImportedRegistryHeader IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("row_delete").Image + Else + Return ImageLoader.Instance.GetImageInfo("edit").Image + End If + End If + + End Get + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.row_ConnectInfo = value + End If + End Set + End Property + Property Controlling_InCash As Controlling + Get + Return _Controlling_InCash + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_InCash", _Controlling_InCash, value) + End Set + End Property + Property IsControlling_InCash As Boolean + Get + Return _IsControlling_InCash + End Get + Set(value As Boolean) + SetPropertyValue("IsControlling_InCash", _IsControlling_InCash, value) + End Set + End Property + Property GLMixed_InCash As GLMixed + Get + Return _GLMixed_InCash + End Get + Set(value As GLMixed) + SetPropertyValue("GLMixed_InCash", _GLMixed_InCash, value) + End Set + End Property + Property VATAvowalType As eVATAvowalType + Get + Return _VATAvowalType + End Get + Set(value As eVATAvowalType) + SetPropertyValue("VATAvowalType", _VATAvowalType, value) + End Set + End Property + + + ReadOnly Property DisplayName As String + Get + If Me.Customers IsNot Nothing Then + If Me.CurrencyName IsNot Nothing Then + Return String.Format("{0} {1} {2}", Me.CurrencyName.ShortName, Me.DocumentNumber, Me.Customers.FullName) + Else + Return String.Format("{0}", Me.DocumentNumber) + End If + Else + Return String.Format("{0}", Me.DocumentNumber) + End If + End Get + End Property + Public Overrides Property DocumentNumber As String + Get + Return MyBase.DocumentNumber + End Get + Set(ByVal value As String) + MyBase.DocumentNumber = value + If Session.IsObjectsSaving = False And Session.IsObjectsSaving = False Then + If ConnectInfo <> value Then + ConnectInfo = value + End If + End If + End Set + End Property + + Public Overrides Property row_Controlling As Controlling + Get + Return MyBase.row_Controlling + End Get + Set(value As Controlling) + MyBase.row_Controlling = value + If Session.IsObjectsSaving = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False) + End If + End If + End Set + End Property + Sub RecalculateTotal(Optional ByVal WithCurrencyRate As Boolean = False) + Dim _GLRows As GLRows + + AmountHUFBrutto = 0 + AmountDEVBrutto = 0 + For Each _GLRows In Me.GLRows + If _PartnerType = ePartnerType.eReceivables Then + If _GLRows.DebitChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) Or _GLRows.CreditChartOfAccounts Is _ + _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut) Then + AmountHUFBrutto += _GLRows.AmountHUF + AmountDEVBrutto += _GLRows.AmountDEV + End If + Else + If _GLRows.DebitChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) Or _ + _GLRows.CreditChartOfAccounts Is _Customers.CustomersGLParameters.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn) Then + AmountHUFBrutto += _GLRows.AmountHUF + AmountDEVBrutto += _GLRows.AmountDEV + End If + End If + Next + + If WithCurrencyRate Then + If Me.CurrencyName IsNot Nothing Then + If Me.CurrencyName.ShortName <> "HUF" Then + If AmountDEVBrutto <> 0 Then + Me.CurrencyRate = Math.Round(AmountHUFBrutto / AmountDEVBrutto, 4, MidpointRounding.AwayFromZero) + End If + End If + End If + End If + End Sub + + Function ReturnTotal() + Dim _GLRows As GLRows + Dim _Total As Double + For Each _GLRows In Me.GLRows + _Total = _Total + _GLRows.AmountHUF + _GLRows.AmountDEV + Next + Return _Total + End Function + Function CreateRegistry(ByVal _ocur As Xpo.XPObjectSpace, ByVal _RegistryHeader As RegistryHeader) As RegistryHeader + Dim _RegistryType As RegistryType + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _RegistryBankTransfer_Collection As XPCollection(Of RegistryBankTransfer) + Dim _WorkflowSystemSteps As WorkflowSystemSteps + If Me.CustomersFrom Is Nothing Then + Return Nothing + Exit Function + End If + + If Me.PartnerType = ePartnerType.ePayabels Then + If Me.IsRegistry Then + If _RegistryHeader Is Nothing Then + _RegistryType = _ocur.FindObject(Of RegistryType)(CriteriaOperator.Parse("CustomersFrom.Oid=? and RegistryMainType=0 and RegistryGLAccount=True", Me.CustomersFrom.Oid)) + If _RegistryType IsNot Nothing Then + _RegistryHeader = _ocur.CreateObject(Of RegistryHeader)() + _RegistryHeader.CustomersFrom = CustomersFrom + _RegistryHeader.Customers = Me.Customers + _RegistryHeader.RegistryType = _RegistryType + For Each _WorkflowSystemSteps In _RegistryType.WorkflowSystem.WorkflowSystemSteps + If _WorkflowSystemSteps.IsLastStep Then + _RegistryHeader.CurrentWorkflowSystemSteps = _WorkflowSystemSteps + End If + Next + Else + _ocur.Rollback() + Return Nothing + Exit Function + End If + Else + _RegistryBankTransfer_Collection = New XPCollection(Of RegistryBankTransfer)(_ocur.Session, CriteriaOperator.Parse("RegistryHeader.Oid=?", _RegistryHeader.Oid)) + _ocur.Delete(_RegistryBankTransfer_Collection) + End If + + _RegistryHeader.CustomersFrom = CustomersFrom + _RegistryHeader.Customers = Me.Customers + + _RegistryHeader.F_CurrencyName = Me.CurrencyName + _RegistryHeader.F_CurrencyRate = Me.CurrencyRate + _RegistryHeader.F_DateCreated = Me.DateCreated + _RegistryHeader.F_DateExecution = Me.DateExecution + _RegistryHeader.F_DatePayment = Me.DatePayment + _RegistryHeader.F_DateVAT = Me.DateExecution + _RegistryHeader.F_PayMode = Me.PaymentOption.PayMode + _RegistryHeader.F_AmountBruttoDEV = Me.AmountDEVBrutto + _RegistryHeader.F_AmountBruttoHUF = Me.AmountHUFBrutto + _RegistryHeader.F_CustomerBankAccounts = Me.CustomerBankAccounts + _RegistryHeader.F_ReadyforBookEntry = True + _RegistryHeader.DocumentFile = Me.DocumentFile + _RegistryHeader.DateCreated = GetSQLTime(Session) + _RegistryHeader.DeliveryType = eDeliveryType.eOther + _RegistryHeader.DocumentNumber = Me.DocumentNumber + _RegistryHeader.IsEditable = False + + + + If Me.PaymentOption.PayMode = ePayMode.InTransfer Or Me.PaymentOption.PayMode = ePayMode.InContinuous Then + _RegistryBankTransfer = New RegistryBankTransfer(Session) + _RegistryBankTransfer.DatePayment = Me.DatePayment + _RegistryBankTransfer.RegistryHeader = _RegistryHeader + _RegistryBankTransfer.AmountDEV = Me.AmountDEVBrutto + _RegistryBankTransfer.AmountHUF = Me.AmountHUFBrutto + + End If + + Return _RegistryHeader + End If + End If + End Function + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsOpenClosePCIPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsOpenClosePCIPopup.vb new file mode 100644 index 0000000..82f4851 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsOpenClosePCIPopup.vb @@ -0,0 +1,75 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ +Public Enum eGLRowsTypeSelect + eOpen = 0 + eClose = 1 + eBoth = 2 +End Enum + _ +Public Class GLAccountsOpenClosePCIPopup ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + YearClose = Now.Year + GLRowsTypeSelect = eGLRowsTypeSelect.eBoth + + End Sub + + Private _YearClose As Long + Private _GLRowsTypeSelect As eGLRowsTypeSelect + Property YearClose As Long + Get + Return _YearClose + End Get + Set(value As Long) + SetPropertyValue("YearClose", _YearClose, value) + End Set + End Property + Property GLRowsTypeSelect As eGLRowsTypeSelect + Get + Return _GLRowsTypeSelect + End Get + Set(value As eGLRowsTypeSelect) + SetPropertyValue("GLRowsTypeSelect", _GLRowsTypeSelect, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsRevaluations.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsRevaluations.vb new file mode 100644 index 0000000..397689e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsRevaluations.vb @@ -0,0 +1,65 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLAccountsRevaluations + Inherits BaseObject + Private _GLAccounts As GLAccounts + Private _GLRows As GLRows + Private _CurrencyRate As Double + Private _CurrencyRate_Revaluation As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(ByVal value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + Property GLRows As GLRows + Get + Return _GLRows + End Get + Set(ByVal value As GLRows) + SetPropertyValue("GLRows", _GLRows, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property CurrencyRate_Revaluation As Double + Get + Return _CurrencyRate_Revaluation + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate_Revaluation", _CurrencyRate_Revaluation, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb new file mode 100644 index 0000000..4ca4742 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.Designer.vb @@ -0,0 +1,250 @@ +Partial Class GLAccountsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBackToRowEdit_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportReceivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGetRegistryNumber_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloneGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMakeEditable_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinal_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalAndNew_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDW_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenAccountsPdf = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheckGLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateMixedPCI_GLAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aToTable_GLAccounts_Telephone = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateOpenClosePCIRecord = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateOpenClosePCIRecord_Storno = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRestoreDeletedRecord_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBackToRowEdit_GLAccounts + ' + Me.aBackToRowEdit_GLAccounts.Caption = "Edit row" + Me.aBackToRowEdit_GLAccounts.Category = "aBackToRowEdit_GLAccounts" + Me.aBackToRowEdit_GLAccounts.ConfirmationMessage = Nothing + Me.aBackToRowEdit_GLAccounts.Id = "aBackToRowEdit_GLAccounts" + Me.aBackToRowEdit_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_GLAccounts.Shortcut = "F8" + Me.aBackToRowEdit_GLAccounts.TargetViewId = "GLAccounts_DetailView" + Me.aBackToRowEdit_GLAccounts.ToolTip = Nothing + ' + 'aImportReceivables + ' + Me.aImportReceivables.Caption = "Import Receivables" + Me.aImportReceivables.Category = "ObjectsCreation" + Me.aImportReceivables.ConfirmationMessage = "Do you want to execute command" + Me.aImportReceivables.Id = "aImportReceivables" + Me.aImportReceivables.TargetViewId = "InvoiceHeader_ListView_GLAccount" + Me.aImportReceivables.ToolTip = Nothing + ' + 'aGetRegistryNumber_GLAccounts + ' + Me.aGetRegistryNumber_GLAccounts.Caption = "aGetRegistryNumber_GLAccounts" + Me.aGetRegistryNumber_GLAccounts.Category = "aGetRegistryNumber_GLAccounts" + Me.aGetRegistryNumber_GLAccounts.ConfirmationMessage = Nothing + Me.aGetRegistryNumber_GLAccounts.Id = "aGetRegistryNumber_GLAccounts" + Me.aGetRegistryNumber_GLAccounts.ToolTip = Nothing + ' + 'aCloneGLAccounts + ' + Me.aCloneGLAccounts.Caption = "Clone GLAccounts" + Me.aCloneGLAccounts.Category = "ObjectsCreation" + Me.aCloneGLAccounts.ConfirmationMessage = Nothing + Me.aCloneGLAccounts.Id = "aCloneGLAccounts" + Me.aCloneGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneGLAccounts.ToolTip = Nothing + ' + 'aToTable_GLAccounts + ' + Me.aToTable_GLAccounts.Caption = "aToTable" + Me.aToTable_GLAccounts.Category = "aToTable_GLAccounts" + Me.aToTable_GLAccounts.ConfirmationMessage = Nothing + Me.aToTable_GLAccounts.Id = "aToTable_GLAccounts" + Me.aToTable_GLAccounts.Shortcut = "F6" + Me.aToTable_GLAccounts.Tag = "row_AmountHUF" + Me.aToTable_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aToTable_GLAccounts.TargetViewId = "GLAccounts_DetailView" + Me.aToTable_GLAccounts.ToolTip = Nothing + ' + 'aMakeEditable_GLAccounts + ' + Me.aMakeEditable_GLAccounts.Caption = "aMakeEditable_GLAccounts" + Me.aMakeEditable_GLAccounts.Category = "ObjectsCreation" + Me.aMakeEditable_GLAccounts.ConfirmationMessage = Nothing + Me.aMakeEditable_GLAccounts.Id = "aMakeEditable_GLAccounts" + Me.aMakeEditable_GLAccounts.ImageName = "replace2.png" + Me.aMakeEditable_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditable_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aMakeEditable_GLAccounts.ToolTip = Nothing + ' + 'aFinal_GLAccounts + ' + Me.aFinal_GLAccounts.Caption = "aFinal_GLAccounts" + Me.aFinal_GLAccounts.Category = "ObjectsCreation" + Me.aFinal_GLAccounts.ConfirmationMessage = Nothing + Me.aFinal_GLAccounts.Id = "aFinal_GLAccounts" + Me.aFinal_GLAccounts.ImageName = "MenuBar_SaveAndClose" + Me.aFinal_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aFinal_GLAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinal_GLAccounts.ToolTip = Nothing + Me.aFinal_GLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinalAndNew_GLAccounts + ' + Me.aFinalAndNew_GLAccounts.Caption = "aFinalAndNew_GLAccounts" + Me.aFinalAndNew_GLAccounts.Category = "ObjectsCreation" + Me.aFinalAndNew_GLAccounts.ConfirmationMessage = Nothing + Me.aFinalAndNew_GLAccounts.Id = "aFinalAndNew_GLAccounts" + Me.aFinalAndNew_GLAccounts.ImageName = "MenuBar_SaveAndNew" + Me.aFinalAndNew_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aFinalAndNew_GLAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalAndNew_GLAccounts.ToolTip = Nothing + Me.aFinalAndNew_GLAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_GLAccounts + ' + Me.aToTableD_GLAccounts.Caption = "Delete row" + Me.aToTableD_GLAccounts.Category = "aToTableD_GLAccounts" + Me.aToTableD_GLAccounts.ConfirmationMessage = Nothing + Me.aToTableD_GLAccounts.Id = "aToTableD_GLAccounts" + Me.aToTableD_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_GLAccounts.Shortcut = "F7" + Me.aToTableD_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aToTableD_GLAccounts.TargetViewId = "GLAccounts_DetailView" + Me.aToTableD_GLAccounts.ToolTip = Nothing + ' + 'aViewPCIDW_GLAccounts + ' + Me.aViewPCIDW_GLAccounts.Caption = "View detail" + Me.aViewPCIDW_GLAccounts.ConfirmationMessage = Nothing + Me.aViewPCIDW_GLAccounts.Id = "aViewPCIDW_GLAccounts" + Me.aViewPCIDW_GLAccounts.ImageName = "document_pinned" + Me.aViewPCIDW_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDW_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aViewPCIDW_GLAccounts.TargetViewId = "" + Me.aViewPCIDW_GLAccounts.ToolTip = Nothing + ' + 'aOpenAccountsPdf + ' + Me.aOpenAccountsPdf.Caption = "aOpen Accounts Pdf" + Me.aOpenAccountsPdf.ConfirmationMessage = Nothing + Me.aOpenAccountsPdf.Id = "aOpenAccountsPdf" + Me.aOpenAccountsPdf.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aOpenAccountsPdf.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aOpenAccountsPdf.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aOpenAccountsPdf.ToolTip = Nothing + Me.aOpenAccountsPdf.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aPCICheckGLAccounts + ' + Me.aPCICheckGLAccounts.Caption = "aPCICheck GLAccounts" + Me.aPCICheckGLAccounts.Category = "RecordEdit" + Me.aPCICheckGLAccounts.ConfirmationMessage = Nothing + Me.aPCICheckGLAccounts.Id = "aPCICheckGLAccounts" + Me.aPCICheckGLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheckGLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aPCICheckGLAccounts.ToolTip = Nothing + ' + 'aCreateMixedPCI_GLAccount + ' + Me.aCreateMixedPCI_GLAccount.AcceptButtonCaption = Nothing + Me.aCreateMixedPCI_GLAccount.CancelButtonCaption = Nothing + Me.aCreateMixedPCI_GLAccount.Caption = "aCreateMixedPCI_GLAccount" + Me.aCreateMixedPCI_GLAccount.ConfirmationMessage = Nothing + Me.aCreateMixedPCI_GLAccount.Id = "aCreateMixedPCI_GLAccount" + Me.aCreateMixedPCI_GLAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateMixedPCI_GLAccount.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aCreateMixedPCI_GLAccount.ToolTip = Nothing + ' + 'aToTable_GLAccounts_Telephone + ' + Me.aToTable_GLAccounts_Telephone.AcceptButtonCaption = Nothing + Me.aToTable_GLAccounts_Telephone.CancelButtonCaption = Nothing + Me.aToTable_GLAccounts_Telephone.Caption = "aToTable_GLAccounts_Telephone" + Me.aToTable_GLAccounts_Telephone.ConfirmationMessage = Nothing + Me.aToTable_GLAccounts_Telephone.Id = "aToTable_GLAccounts_Telephone" + Me.aToTable_GLAccounts_Telephone.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aToTable_GLAccounts_Telephone.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_GLAccounts_Telephone.ToolTip = Nothing + Me.aToTable_GLAccounts_Telephone.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateOpenClosePCIRecord + ' + Me.aGenerateOpenClosePCIRecord.AcceptButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord.CancelButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord.Caption = "aGenerate Open Close PCIRecord" + Me.aGenerateOpenClosePCIRecord.ConfirmationMessage = Nothing + Me.aGenerateOpenClosePCIRecord.Id = "aGenerateOpenClosePCIRecord" + Me.aGenerateOpenClosePCIRecord.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateOpenClosePCIRecord.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aGenerateOpenClosePCIRecord.ToolTip = Nothing + ' + 'aGenerateOpenClosePCIRecord_Storno + ' + Me.aGenerateOpenClosePCIRecord_Storno.AcceptButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_Storno.CancelButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_Storno.Caption = "aGenerateOpenClosePCIRecord_Storno" + Me.aGenerateOpenClosePCIRecord_Storno.ConfirmationMessage = Nothing + Me.aGenerateOpenClosePCIRecord_Storno.Id = "aGenerateOpenClosePCIRecord_Storno" + Me.aGenerateOpenClosePCIRecord_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateOpenClosePCIRecord_Storno.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aGenerateOpenClosePCIRecord_Storno.ToolTip = Nothing + ' + 'aRestoreDeletedRecord_GLAccounts + ' + Me.aRestoreDeletedRecord_GLAccounts.Caption = "aRestoreDeletedRecord_GLAccounts" + Me.aRestoreDeletedRecord_GLAccounts.ConfirmationMessage = "Are you sure ?" + Me.aRestoreDeletedRecord_GLAccounts.Id = "aRestoreDeletedRecord_GLAccounts" + Me.aRestoreDeletedRecord_GLAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRestoreDeletedRecord_GLAccounts.TargetObjectType = GetType(SISBusiness.[Module].GLAccounts) + Me.aRestoreDeletedRecord_GLAccounts.TargetViewId = "GLAccounts_ListView_Deleted" + Me.aRestoreDeletedRecord_GLAccounts.ToolTip = Nothing + + End Sub + Friend WithEvents aToTable_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinal_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditable_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalAndNew_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportReceivables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDW_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGetRegistryNumber_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenAccountsPdf As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheckGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloneGLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateMixedPCI_GLAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aToTable_GLAccounts_Telephone As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateOpenClosePCIRecord As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateOpenClosePCIRecord_Storno As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRestoreDeletedRecord_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx new file mode 100644 index 0000000..fee27a3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.resx @@ -0,0 +1,174 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 173 + + + 17, 290 + + + 17, 641 + + + 17, 602 + + + 17, 329 + + + 17, 563 + + + 17, 485 + + + 17, 524 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 56 + + + 17, 251 + + + 17, 134 + + + 17, 95 + + + 17, 212 + + + 190, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb new file mode 100644 index 0000000..c15cdb9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Accounts/GLAccountsVC.vb @@ -0,0 +1,1268 @@ +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 System.Data.SqlClient +Imports System.Configuration +Imports DevExpress.ExpressApp.Editors +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Utils + + +Public Class GLAccountsVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Sub DisableAll() + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of GLAccountsVC).aGetRegistryNumber_GLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aPCICheckGLAccounts.Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", False) + If View.Id = "GLAccounts_DetailView" Then + DisableAll() + Dim _GLRows As GLRows + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + AddHandler _GLAccounts.Changed, AddressOf GLAccounts_Changed + For Each _GLRows In _GLAccounts.GLRows + _GLAccounts.row_ConnectInfo = _GLRows.ConnectInfo + _GLAccounts.row_Customer = _GLRows.Customer + _GLAccounts.row_DateVAT = _GLRows.DateVAT + Exit For + Next + If _GLAccounts Is Nothing Then + Else + If _GLAccounts.IsEditable = True And _GLAccounts.IsStorno = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", True) + If _GLAccounts.RegistryNumber = "" Then + Frame.GetController(Of GLAccountsVC).aGetRegistryNumber_GLAccounts.Active.SetItemValue("", True) + End If + ElseIf _GLAccounts.IsEditable = False And _GLAccounts.IsStorno = False Then + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aGetRegistryNumber_GLAccounts.Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "GLAccounts_ListView_Editable" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) 'Akkor sem klónozható a gyári cloneactionnal, ha még szerkeszthető? + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) + End If + If View.Id = "Vivaldi_GLAccounts_ListView" Or View.Id = "Corner_GLAccounts_ListView" Then + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) + + End If + If View.Id = "GLAccounts_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of GLAccountsVC).aViewPCIDW_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aPCICheckGLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", True) + End If + '------------------- LISTVIEW ----------------------------------------------------------------------------------------------------- + If View.Id Like "GLHeader_GLRows_ListView_Accounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "GLAccounts_ListView_Deleted" Then + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", False) + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of GLAccountsVC).aMakeEditable_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aToTable_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aToTableD_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aBackToRowEdit_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aFinal_GLAccounts.Active.SetItemValue("", True) + Frame.GetController(Of GLAccountsVC).aFinalAndNew_GLAccounts.Active.SetItemValue("", True) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + + Frame.GetController(Of GLAccountsVC).aCloneGLAccounts.Active.SetItemValue("", False) + If View.Id = "GLAccounts_DetailView" Then + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + RemoveHandler _GLAccounts.Changed, AddressOf GLAccounts_Changed + End If + + End Sub + Sub GLAccounts_Changed(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs) + + If e.PropertyName = "CurrencyRate" Then + Dim _GLAccounts As GLAccounts = TryCast(sender, GLAccounts) + _GLAccounts.CurrencyRateVAT = e.NewValue + End If + + End Sub + Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLAccounts.Execute + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader) + Dim _GLRows As GLRows + Dim _NettoHUF As Double = 0 + Dim _NettoDEV As Double = 0 + Dim _BruttoHUF As Double = 0 + Dim _VATHUF As Double = 0 + Dim _VATDEV As Double = 0 + Dim _BruttoDEV As Double + Dim _GUID As Guid = Guid.NewGuid + + If _GLAccounts IsNot Nothing Then + ' -- PartnerType vizsgálata majd ez alapján a főkönyvi tartozik/kövezel beállítása ------------------------ + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLHeader.row_CreditChartOfAccounts = _GLAccounts.row_ChartOfAccounts + _GLHeader.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLAccounts.PartnerType = ePartnerType.ePayabels + _GLHeader.row_CreditChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + _GLHeader.row_DebitChartOfAccounts = _GLAccounts.row_ChartOfAccounts + End If + + ' -- Deviza vizsgálat, ha nem Forint akkor átváltja --------------------------------------------------------- + If _GLHeader.CurrencyName.ShortName = "HUF" Then + _BruttoHUF = _GLHeader.row_AmountHUF + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.row_VAT.InversState = True Then + _VATHUF = Math.Round(_BruttoHUF * _GLHeader.row_VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF + _BruttoHUF = _NettoHUF + _VATHUF + Else + _VATHUF = Math.Round(_BruttoHUF / (1 + _GLHeader.row_VAT.KeyValue) * _GLHeader.row_VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + End If + Else + _VATHUF = 0 + _NettoHUF = _BruttoHUF - _VATHUF + End If + Else + _BruttoDEV = _GLHeader.row_AmountDEV + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.row_VAT.InversState = True Then + _VATDEV = Math.Round(_BruttoDEV * _GLHeader.row_VAT.InversKeyValue, 2, MidpointRounding.AwayFromZero) + _NettoDEV = _BruttoDEV + _BruttoDEV = _NettoDEV + _VATDEV + Else + _VATDEV = Math.Round(_BruttoDEV / (1 + _GLHeader.row_VAT.KeyValue) * _GLHeader.row_VAT.KeyValue, 2, MidpointRounding.AwayFromZero) + _NettoDEV = _BruttoDEV - _VATDEV + End If + Else + _VATDEV = 0 + _NettoDEV = _BruttoDEV - _VATDEV + End If + + _VATHUF = Math.Round(_VATDEV * _GLAccounts.CurrencyRateVAT, 0, MidpointRounding.AwayFromZero) + _NettoHUF = Math.Round(_NettoDEV * _GLHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero) + _BruttoHUF = _NettoHUF + _VATHUF + + End If + + ' -- ÁFA vizsgálata -------------------------------------------------------------------------------------------- + ' -- Létrehoz egy sort a nettó összegre ------------------------------------------------------------------------------------------ + + _GLRows = _ocur.CreateObject(Of GLRows)() + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _NettoHUF + _GLRows.DebitAmountDEV = _NettoDEV + Else + _GLRows.CreditAmountHUF = _NettoHUF + _GLRows.CreditAmountDEV = _NettoDEV + End If + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _NettoDEV, _NettoHUF, _GLHeader.row_LiquidAssets, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _ + _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + '-- Létrehoz egy sort az ÁFÁ-ra --------------------------------------------------------------------------------------------------- + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _GLHeader.row_CreditChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLHeader.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLHeader.row_CreditChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + _GLHeader.row_DebitChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + End If + End If + If _GLAccounts.row_VAT.InversState = True Then + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + Else + _GLHeader.row_CreditChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLHeader.row_DebitChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + End If + End If + _GLRows = _ocur.CreateObject(Of GLRows)() + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _VATHUF + _GLRows.DebitAmountDEV = _VATDEV + Else + _GLRows.CreditAmountHUF = _VATHUF + _GLRows.CreditAmountDEV = _VATDEV + End If + + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _VATDEV, _VATHUF, _GLHeader.row_LiquidAssets, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _GLHeader.row_NoteRows, _ + _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _GLHeader.row_JobNumberObjects, _ + _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, _ + eGLRowsTypeVAT.eVATRow, _GUID, eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + _ocur.CommitChanges() + + '// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!---------------------------------------------------------------- + Dim _Action As IModelAction + Dim _IModelActionExtender As IModelActionExtender + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Id = e.Action.Id Then + _IModelActionExtender = TryCast(_Action, IModelActionExtender) + If _IModelActionExtender IsNot Nothing Then + If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem) + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End If + End If + Exit For + End If + Next + '-------------------------------------------------------------------------------------------------------- + View.Refresh() + End If + + End Sub + Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLAccounts.Execute + GLAccounts_Final(e) + View.Close(False) + End Sub + Private Sub aMakeEditable_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Van As Boolean = False + Dim _GLAccounts As GLAccounts = View.SelectedObjects(0) + + If _GLAccounts IsNot Nothing Then + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + If _GLAccounts.ImportedInvoice Is Nothing Then + _GLAccounts.IsEditable = True + End If + End If + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + If _GLAccounts.ImportedRegistryHeader IsNot Nothing And _GLAccounts.IsRegistry = False Then + + Else + _GLAccounts.IsEditable = True + End If + + End If + _ocur.CommitChanges() + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLAccounts_DetailView", True, _onew.GetObject(_GLAccounts)) + End If + End Sub + Private Sub aFinalAndNew_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLAccounts.Execute + GLAccounts_Final(e) + + Dim _GLAccounts_Old As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccounts As GLAccounts = _onew.CreateObject(Of GLAccounts)() + + If _GLAccounts_Old IsNot Nothing Then + _GLAccounts.PartnerType = _GLAccounts_Old.PartnerType + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLAccounts) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + End Sub +#Region "SIS" + Private Sub GLAccounts_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RegistryHeader As RegistryHeader = Nothing + Dim _GLRows As GLRows + + If View.SelectedObjects.Count > 0 Then + Dim _GLAccounts As GLAccounts = TryCast(e.SelectedObjects(0), GLAccounts) + For Each _GLAccounts In e.SelectedObjects + + If _GLAccounts.CurrencyName.ShortName <> "HUF" Then + If _GLAccounts.CurrencyRate <= 1 Then + Throw New Exception("*Nincs megadva az árfolyam !") + End If + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + If _GLAccounts.CurrencyRateVAT <= 1 Then + Throw New Exception("*Nincs megadva az ÁFA árfolyam !") + End If + End If + End If + If _GLAccounts.GLRows.Count <= 0 Then + Throw New Exception("*Nincs rögzített sor !") + End If + _GLAccounts.IsEditable = False + For Each _GLRows In _GLAccounts.GLRows + _GLRows.ConnectInfo = _GLAccounts.row_ConnectInfo + _GLRows.DateVAT = _GLAccounts.row_DateVAT + If _GLRows.GLHeader.CurrencyName.ShortName <> "HUF" Then + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + If _GLRows.GLRowsTypeVAT <> eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRateVAT, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + Else + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + End If + Next + _GLAccounts.RecalculateTotal() + If _GLAccounts.IsRegistry Then + If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + _RegistryHeader = _GLAccounts.ImportedRegistryHeader + End If + _RegistryHeader = _GLAccounts.CreateRegistry(_ocur, _RegistryHeader) + If _RegistryHeader IsNot Nothing Then + _GLAccounts.RegistryNumber = _RegistryHeader.RegistryNumber + _GLAccounts.ImportedRegistryHeader = _RegistryHeader + _RegistryHeader.F_GLAccounts = _GLAccounts + End If + End If + + If _GLAccounts.IsControlling_InCash Then + '// Vegyes könyveléssel egy pénzügyi sor könyvelése ! + Update_InCash_Mixed(_ocur, _GLAccounts) + End If + + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + Next + _ocur.CommitChanges() + End If + End Sub + Private Sub Update_InCash_Mixed(_ocur As Xpo.XPObjectSpace, _GLAccounts As GLAccounts) + 'Beállítja a kp. számláknál a pénztári fizetést is egy vegyes bizonylattal + Dim _GLMixed As GLMixed = _ocur.CreateObject(Of GLMixed)() + Dim _GLRows As GLRows = Nothing + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + + If _GLAccounts.GLMixed_InCash IsNot Nothing Then + _ocur.Delete(_GLAccounts.GLMixed_InCash.GLRows) + _ocur.Delete(_GLAccounts.GLMixed_InCash) + End If + + _GLMixed.DateCreated = _GLAccounts.DateCreated + _GLMixed.CustomersFrom = _GLAccounts.CustomersFrom + _GLMixed.DateExecution = _GLAccounts.DateExecution + _GLMixed.DocumentNumber = _GLAccounts.DocumentNumber & "#PAY" + _GLMixed.IsEditable = False + _GLMixed.DatePayment = _GLAccounts.DatePayment + + _GLRows = _ocur.CreateObject(Of GLRows)() + _GLRows.GLHeader = TryCast(_GLMixed, GLHeader) + + _GLRows.AmountHUF = _GLAccounts.AmountHUFBrutto + _GLRows.AmountDEV = _GLAccounts.AmountDEVBrutto + _GLRows.Customer = _GLAccounts.Customers + _GLRows.ConnectInfo = _GLAccounts.ConnectInfo + _GLRows.PartnerType = _GLAccounts.PartnerType + + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _CreditChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _DebitChartOfAccounts = _GLAccounts.Controlling_InCash.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + _GLRows.InAmountHUF = _GLRows.AmountHUF + _GLRows.InAmountDEV = _GLRows.AmountDEV + ElseIf _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _GLAccounts.Controlling_InCash.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + _GLRows.OutAmountHUF = _GLRows.AmountHUF + _GLRows.OutAmountDEV = _GLRows.AmountDEV + End If + _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts + _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts + _GLAccounts.GLMixed_InCash = _GLMixed + End Sub + +#End Region + Private Sub aToTableD_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLAccounts.Execute + 'Törli a táblázatban lévő sort + Dim _GUID As Guid + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim i As Long + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + If _GLRows IsNot Nothing Then + _GUID = _GLRows.GLRowsGUID + selection.Clear() + For Each _GLRows In _GLAccounts.GLRows + If _GLRows.GLRowsGUID = _GUID Then + selection.Add(_GLRows) + End If + Next + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + _GLRows.Delete() + Next + _ocur.CommitChanges() + View.Refresh() + End If + End Sub + Private Sub aImportReceivables_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aImportReceivables.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceVATRows As InvoiceVATRows + Dim _GLRows As GLRows + Dim _GLAccounts As GLAccounts + + For Each _InvoiceHeader In View.SelectedObjects + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customers=? and GLHeader.DocumentNumber=? and PartnerType=0", _ + _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber), True) + If _GLRows Is Nothing Then + _GLAccounts = _ocur.CreateObject(Of GLAccounts)() + '-- ÁFA sorok könyvelése + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + + Next + + '-- Nettó sorok könyvleése LINQ-kel !!! + Dim invoices = New XPQuery(Of InvoiceRows)(_ocur.Session) + Dim query = From invoice In invoices Where invoice.InvoiceHeader.Oid = _InvoiceHeader.Oid _ + Group invoice By invoice.Controlling, invoice.CostHolder, invoice.UniqueObjects, _ + invoice.JobNumberObjects, invoice.Controlling.ChartOfAccounts Into g = Group _ + Select New With {Key .Controlling = Controlling, + Key .CostHolder = CostHolder, + Key .UniqueObjects = UniqueObjects, + Key .JobNumberObjects = JobNumberObjects, + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _ + Key .AmountNettoDEV = g.Sum(Function(inv) (inv.ListPriceDEV - inv.DiscountPriceDEV) * inv.QTT)} + For Each item In query + + Next + + End If + + + + Next + + End Sub + Private Sub aBackToRowEdit_GLAccounts_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim _GUID As Guid + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + _GUID = _GLRows.GLRowsGUID + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + + If _GLRows IsNot Nothing Then + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GUID)) + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Then + _GLAccounts.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts + Else + _GLAccounts.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts + End If + _GLAccounts.row_UniqueObjects = _GLRows.UniqueObjects + _GLAccounts.row_CostHolder = _GLRows.CostHolder + _GLAccounts.row_CostPlace = _GLRows.CostPlace + _GLAccounts.row_Controlling = _GLRows.Controlling + _GLAccounts.row_NoteRows = _GLRows.NoteRows + _GLAccounts.row_VAT = _GLRows.VAT + _GLAccounts.row_ConnectInfo = _GLAccounts.ConnectInfo + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GUID)) + _GLAccounts.row_AmountDEV = 0 + _GLAccounts.row_AmountHUF = 0 + For Each _GLRows In _GLRows_Collection + _GLAccounts.row_AmountDEV += _GLRows.AmountDEV + Next + For Each _GLRows In _GLRows_Collection + _GLAccounts.row_AmountHUF += _GLRows.AmountHUF + Next + View.Refresh() + End If + End If + End Sub + + Private Sub aViewPCIDW_GLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDW_GLAccounts.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + + If _GLAccounts IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLAccounts.CustomersFrom, _ + _GLAccounts.Customers, _GLAccounts.PartnerType, _ + _GLAccounts.DocumentNumber) + End If + End Sub + + Private Sub aGetRegistryNumber_GLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetRegistryNumber_GLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _RegistryHeader As RegistryHeader + + If _GLAccounts IsNot Nothing Then + If _GLAccounts.RegistryNumber = "" Then + _GLAccounts.RecalculateTotal() + If _GLAccounts.AmountHUFBrutto <> 0 Then + _RegistryHeader = _GLAccounts.CreateRegistry(_ocur, _RegistryHeader) + If _RegistryHeader IsNot Nothing Then + _GLAccounts.RegistryNumber = _RegistryHeader.RegistryNumber + _GLAccounts.ImportedRegistryHeader = _RegistryHeader + _RegistryHeader.F_GLAccounts = _GLAccounts + End If + End If + _ocur.CommitChanges() + Else + Throw New Exception("*0 összeggel nem lehet iktatni !") + End If + End If + End Sub + + Private Sub aOpenAccountsPdf_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenAccountsPdf.Execute + If View.SelectedObjects.Count > 0 Then + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + + If _GLAccounts.DocumentFile Is Nothing Then + If _GLAccounts.ImportedInvoice IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _GLAccounts.ImportedInvoice.CustomersFrom, _GLAccounts.ImportedInvoice.Customers, _GLAccounts.ImportedInvoice.DocumentNumber, "") + ElseIf _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _GLAccounts.ImportedRegistryHeader.CustomersFrom, _GLAccounts.ImportedRegistryHeader.Customers, _GLAccounts.ImportedRegistryHeader.DocumentNumber, "") + Else + Throw New Exception("*Nincs dokumentum !") + End If + Else + Dim _FileData As FileData = _ocur.CreateObject(Of FileData)() + + _FileData = _GLAccounts.DocumentFile + + Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _FileData.FileName) + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + Process.Start(_FileName) + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + Else + Throw New Exception("*Nincs egy kijelölt sor sem!") + End If + End Sub + + Private Sub aPCICheckGLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckGLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _GLAccounts As GLAccounts + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLAccounts In View.SelectedObjects + RaiseEvent DoWork() + If _GLAccounts IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + End If + Next + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aCloneGLAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneGLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccounts As GLAccounts = _onew.GetObject(TryCast(View.SelectedObjects(0), GLAccounts)) + Dim _OldGuid As Guid + Dim _GUID As Guid = Guid.NewGuid + + If _GLAccounts Is Nothing Then + Throw New Exception("*Nincs kiválasztott elem!") + End If + + Dim _GLAccounts_New As GLAccounts = _onew.CreateObject(Of GLAccounts)() + + _GLAccounts_New.GLDocumentType = eGLDocumentType.eGLAccount + _GLAccounts_New.CustomersFrom = _GLAccounts.CustomersFrom + _GLAccounts_New.CurrencyName = _GLAccounts.CurrencyName + _GLAccounts_New.CurrencyRate = _GLAccounts.CurrencyRate + _GLAccounts_New.DateCreated = _GLAccounts.DateCreated + _GLAccounts_New.DateExecution = _GLAccounts.DateExecution + _GLAccounts_New.DatePayment = _GLAccounts.DatePayment + _GLAccounts_New.NoteHeader = _GLAccounts.NoteHeader + _GLAccounts_New.IsEditable = True + _GLAccounts_New.IsStorno = False + _GLAccounts_New.PartnerType = _GLAccounts.PartnerType + _GLAccounts_New.PaymentOption = _GLAccounts.PaymentOption + _GLAccounts_New.CurrencyRateVAT = _GLAccounts.CurrencyRateVAT + _GLAccounts_New.Customers = _GLAccounts.Customers + _GLAccounts_New.CustomerBankAccounts = _GLAccounts.CustomerBankAccounts + _GLAccounts_New.HeaderInfo = _GLAccounts.HeaderInfo + _GLAccounts_New.ConnectInfo = _GLAccounts.ConnectInfo + + If _GLAccounts.GLRows.Count > 0 Then + _GLAccounts.GLRows.Sorting().Add(New SortProperty("GLRowsGUID", DB.SortingDirection.Ascending)) + + For Each _GLRows As GLRows In _GLAccounts.GLRows + Dim _GLRows_New As GLRows = _onew.CreateObject(Of GLRows)() + + _GLRows_New.GLHeader = _GLAccounts_New + _GLRows_New.DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLRows_New.CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLRows_New.AmountHUF = _GLRows.AmountHUF + _GLRows_New.AmountDEV = _GLRows.AmountDEV + _GLRows_New.Customer = _GLRows.Customer + _GLRows_New.DateVAT = _GLRows.DateVAT + _GLRows_New.VAT = _GLRows.VAT + _GLRows_New.NoteRows = _GLRows.NoteRows + _GLRows_New.UniqueObjects = _GLRows.UniqueObjects + _GLRows_New.Controlling = _GLRows.Controlling + _GLRows_New.JobNumberObjects = _GLRows.JobNumberObjects + _GLRows_New.CostPlace = _GLRows.CostPlace + _GLRows_New.CostHolder = _GLRows.CostHolder + _GLRows_New.ConnectInfo = _GLRows.ConnectInfo + _GLRows_New.PartnerType = _GLRows.PartnerType + _GLRows_New.GLRowsTypeVAT = _GLRows.GLRowsTypeVAT + + If _OldGuid <> _GLRows.GLRowsGUID Then + _GUID = Guid.NewGuid + End If + _GLRows_New.GLRowsGUID = _GUID + _OldGuid = _GLRows.GLRowsGUID + + Next + End If + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLAccounts_DetailView", True, _GLAccounts_New) + + End Sub + + Private Sub aCreateMixedPCI_GLAccount_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCreateMixedPCI_GLAccount.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _GLAccountMixedPCI As GLAccountMixedPCI = _onew.CreateObject(Of GLAccountMixedPCI)() + + e.View = Application.CreateDetailView(_onew, "GLAccountMixedPCI_DetailView", True, _GLAccountMixedPCI) + End Sub + + Private Sub aCreateMixedPCI_GLAccount_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCreateMixedPCI_GLAccount.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + + Dim _GLAccountMixedPCI As GLAccountMixedPCI = e.PopupWindow.View.SelectedObjects(0) + Dim _GLAccounts As GLAccounts = Nothing + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _GLRows As GLRows = Nothing + Dim _PCIGroup As PCIGroup = Nothing + Dim _GLMixed As GLMixed = Nothing + Dim _GLMixedRows As GLRows = Nothing + Dim _GLHeader As GLHeader + Dim _GUID As Guid = Nothing + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLAccounts In View.SelectedObjects + RaiseEvent DoWork() + _GLAccounts = _onew.GetObjectByKey(Of GLAccounts)(_GLAccounts.Oid) + If _GLAccounts.PartnerType = ePartnerType.eReceivables And _ + _GLAccounts.PaymentOption.PayMode = ePayMode.InCash And _ + _GLAccountMixedPCI.ChartOfAccounts.Children.Count = 0 Then + + _PCIGroup = _onew.FindObject(Of PCIGroup)(CriteriaOperator.Parse("PartnerType=? and CustomersFrom=? and Customers=? and ConnectInfo=?", _GLAccounts.PartnerType, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.ConnectInfo)) + If _PCIGroup IsNot Nothing And _PCIGroup.BallanceHUF <> 0 Then + For Each _GLRows In _GLAccounts.GLRows + + _GLMixed = _onew.CreateObject(Of GLMixed)() + _GLMixed.DateCreated = _GLAccounts.DateExecution + _GLMixed.DateExecution = _GLAccounts.DateExecution + _GLMixed.CustomersFrom = _GLAccounts.CustomersFrom + _GLMixed.DatePayment = _GLAccounts.DateExecution + _GLMixed.CurrencyName = _GLAccounts.CurrencyName + _GLMixed.CurrencyRate = _GLAccounts.CurrencyRate + _GLMixed.IsEditable = False + _GLMixed.DocumentNumber = _GLAccounts.ConnectInfo & " -> technikai pontozása" + _GLMixed.IsStorno = False + _GLMixed.NoteHeader = "Technikai pontozás " + + _GLHeader = TryCast(_GLMixed, GLHeader) + _GLMixedRows = _onew.CreateObject(Of GLRows)() + _GLMixedRows.InAmountHUF = _GLAccounts.AmountHUFBrutto + _GLMixedRows.InAmountDEV = _GLAccounts.AmountDEVBrutto + _GUID = Guid.NewGuid + _GLMixedRows.AddGLRows(_GLHeader, _onew.GetObject(_GLAccountMixedPCI.ChartOfAccounts), _GLRows.DebitChartOfAccounts, _ + _GLAccounts.AmountDEVBrutto, _GLAccounts.AmountHUFBrutto, Nothing, _ + _GLAccounts.Customers, _GLAccounts.DateExecution, Nothing, _ + "", Nothing, Nothing, Nothing, Nothing, Nothing, _ + _GLAccounts.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, eTransactionType.ePartnerCredit, eCashType.eNormal, ePartnerType.eReceivables) + _onew.CommitChanges() + + '// Pontozás újra !!! + + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, ePartnerType.eReceivables, _GLAccounts.ConnectInfo) + + Exit For + + Next + End If + End If + Next + _onew.CommitChanges() + RaiseEvent FinalWork + End Sub + + Private Sub aToTable_GLAccounts_Telephone_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aToTable_GLAccounts_Telephone.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccounts As GLAccounts = _onew.GetObject(TryCast(View.SelectedObjects(0), GLAccounts)) + If _GLAccounts Is Nothing Then Exit Sub + + + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(RegistryTelephone)) + Dim _RegistryTelephone As RegistryTelephone + Dim _Phones_Collection As New XPCollection(Of Phones)(_onew.Session, CriteriaOperator.Parse("")) + + Dim _Phones As Phones + Dim _RegistryTelephoneParameters As RegistryTelephoneParameters = _onew.FindObject(Of RegistryTelephoneParameters)(CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLAccounts.CustomersFrom.Oid)) + + + + For Each _Phones In _Phones_Collection + _RegistryTelephone = _onew.FindObject(Of RegistryTelephone)(CriteriaOperator.Parse("GLAccounts=? and UniqueObjects=?", _GLAccounts, _Phones.UniqueObjects)) + If _RegistryTelephone Is Nothing Then + _RegistryTelephone = _onew.CreateObject(Of RegistryTelephone)() + End If + _RegistryTelephone.UniqueObjects = _Phones.UniqueObjects + _RegistryTelephone.RegistryTelephoneParameters = _RegistryTelephoneParameters + _RegistryTelephone.GLAccounts = _GLAccounts + _CollectionSource.Add(_RegistryTelephone) + Next + _onew.CommitChanges() 'ezt át kell nézni!!!!!! + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("ByTelephone") = CriteriaOperator.Parse("GLAccounts.Oid=?", _GLAccounts.Oid) 'PersistentCriteriaEvaluationBehavior.InTransaction + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("RegistryTelephone_ListView", _CollectionSource, False) + End Sub + + Private Sub aToTable_GLAccounts_Telephone_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aToTable_GLAccounts_Telephone.Execute + '//Telefonszámla rögzítése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) + Dim _RegistryTelephone As RegistryTelephone + + Dim _ListView As ListView = TryCast(e.PopupWindow.View, ListView) + + '// Ellenőrzések + If _GLAccounts Is Nothing Then Exit Sub + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then Exit Sub + + + Dim _GLHeader As GLHeader = TryCast(_GLAccounts, GLHeader) + Dim _GLRows As GLRows + Dim _CreditChartOfAccounts As ChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + + Dim _NettoHUF As Double = 0 + Dim _BruttoHUF As Double = 0 + Dim _VATHUF As Double = 0 + Dim _VAT As VAT + Dim _GUID As Guid + Dim _UniqueObjects As UniqueObjects + Dim _Controlling As Controlling + + If _ListView IsNot Nothing Then + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + + For Each _RegistryTelephone In _ListView.CollectionSource.List + ''//Először az ÁFÁ-s tételek rögzítése + If _RegistryTelephone.Amount_Brutto_INTERNET > 0 Then + _GUID = New Guid + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT) + + _BruttoHUF = _RegistryTelephone.Amount_Brutto_INTERNET + _VATHUF = Math.Round(_BruttoHUF / (1 + _VAT.KeyValue) * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_INTERNET) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + '//ÁFA sor + _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn) + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, Nothing, _ + Nothing, Nothing, Nothing, _ + Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + If _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT > 0 Then + _GUID = New Guid + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT) + + _BruttoHUF = _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT + _VATHUF = Math.Round(_BruttoHUF / (1 + _VAT.KeyValue) * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_DEFAULTVAT) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + '//ÁFA sor + _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn) + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, Nothing, _ + Nothing, Nothing, Nothing, _ + Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + If _RegistryTelephone.Amount_Brutto_OTHER_NOVAT > 0 Then + _GUID = New Guid + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT) + + _BruttoHUF = _RegistryTelephone.Amount_Brutto_OTHER_NOVAT + _VATHUF = Math.Round(_BruttoHUF / (1 + _VAT.KeyValue) * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_NOVAT) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + '//ÁFA sor + _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn) + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, Nothing, _ + Nothing, Nothing, Nothing, _ + Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + If _RegistryTelephone.Amount_Brutto_PARKING > 0 Then + _GUID = New Guid + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT) + + _BruttoHUF = _RegistryTelephone.Amount_Brutto_PARKING + _VATHUF = Math.Round(_BruttoHUF / (1 + _VAT.KeyValue) * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_PARKING) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + '//ÁFA sor + _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn) + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, Nothing, _ + Nothing, Nothing, Nothing, _ + Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + If _RegistryTelephone.Amount_Brutto_TELEPHON > 0 Then + _GUID = New Guid + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT) + + _BruttoHUF = Math.Round(_RegistryTelephone.Amount_Brutto_TELEPHON * 0.7, 0, MidpointRounding.AwayFromZero) + _VATHUF = Math.Round(_BruttoHUF / (1 + _VAT.KeyValue) * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _DebitChartOfAccounts = _VAT.GetChartOfAccounts(_GLAccounts.row_DateVAT.Year, eVATMode.eIn) + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _VATHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, Nothing, _ + Nothing, Nothing, Nothing, _ + Nothing, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eVATRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT) + _NettoHUF = _RegistryTelephone.AmountNetto_TELEPHON_80 + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_80) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + + _GLRows = _ocur.CreateObject(Of GLRows)() + _VAT = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT) + _NettoHUF = _RegistryTelephone.AmountNetto_TELEPHON_20 + + _UniqueObjects = _ocur.GetObject(_RegistryTelephone.UniqueObjects) + _Controlling = _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_20) + _DebitChartOfAccounts = _Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + '// Nettó sor + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLHeader.row_DateVAT, _VAT, _ + _GLHeader.row_NoteRows, _UniqueObjects, _ + _Controlling, _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _ + _GLHeader.row_CostHolder, _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + End If + Next + End If + + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + View.Refresh() + End Sub + + Private Sub aGenerateOpenClosePCIRecord_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)() + + e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup) + + End Sub + + Private Sub aGenerateOpenClosePCIRecord_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord.Execute + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLAccounts As GLAccounts + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _GLAccounts In View.SelectedObjects + RaiseEvent DoWork() + MakeOpenClosePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose, _GLAccountsOpenClosePCIPopup.GLRowsTypeSelect) + Next + RaiseEvent FinalWork + End Sub + + Public Sub MakeOpenClosePCI(_uow As UnitOfWork, _CustomersFrom As CustomersFrom, _Customers As Customers, _PartnerType As ePartnerType, _ConnectInfo As String, _YearClose As Long, _GLRowsTypeSelect As eGLRowsTypeSelect) + '// Az eljárás elkészít egy záró és egy nyitó tételt az adott pontozásra vonatkozóan 491 -> Partner illetve 492->partner szinten + '// ConnectInfo +"-" + záróév +" ZÁRÁS" + '// ConnectInfo +"-" + záróév +" NYITÁS" + '// Az adatokat a kartonból veszi !!! + + Dim _AccountNumber_Partner As String + Dim _GLMixed_Close As GLMixed = Nothing + Dim _GLMixed_Open As GLMixed = Nothing + + Dim _DebitChartOfAccounts_Open As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts_Open As ChartOfAccounts = Nothing + + Dim _DebitChartOfAccounts_Close As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts_Close As ChartOfAccounts = Nothing + + Dim _DebitAmountHUF As Double = 0 + Dim _CreditAmountHUF As Double = 0 + Dim _BallanceHUF As Double = 0 + + Dim _GLRows_Open As GLRows = Nothing + Dim _GLRows_Close As GLRows = Nothing + + _CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + + + '// Ellenőrzés. Ha már van, ne csináljon semmit. + _GLRows_Close = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customer=? and GLRowsType=2 and ConnectInfo=? and PartnerType=? and GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _CustomersFrom, _Customers, _ConnectInfo, _PartnerType, _YearClose)) + If _GLRows_Close IsNot Nothing Then + Exit Sub + End If + + + If _PartnerType = ePartnerType.ePayabels Then 'Szállító + _AccountNumber_Partner = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eIn).AccountNumber + _CreditChartOfAccounts_Close = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='492' and AccountYear=?", _YearClose)) + _DebitChartOfAccounts_Close = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eIn) + _DebitChartOfAccounts_Open = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491' and AccountYear=?", _YearClose + 1)) + _CreditChartOfAccounts_Open = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eIn) + Else 'Vevő + _AccountNumber_Partner = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eOut).AccountNumber + _DebitChartOfAccounts_Close = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='492' and AccountYear=?", _YearClose)) + _CreditChartOfAccounts_Close = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eOut) + _CreditChartOfAccounts_Open = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491' and AccountYear=?", _YearClose + 1)) + _DebitChartOfAccounts_Open = _Customers.CustomersGLParameters.GetChartOfAccounts(_YearClose, eVATMode.eOut) + End If + + Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_uow) + + Dim query = From _GLRows In _GLRows_xpquery + Where _GLRows.GLHeader.CustomersFrom.Oid = _CustomersFrom.Oid And + _GLRows.Customer.Oid = _Customers.Oid And + _GLRows.ConnectInfo = _ConnectInfo And + _GLRows.PartnerType = _PartnerType And + _GLRows.GLHeader.DateExecution.Year = _YearClose And + _GLRows.GLHeader.IsEditable = False And + _GLRows.GLRowsType <> eGLRowsType.eClose And + _GLRows.GLHeader IsNot Nothing And + (_GLRows.DebitChartOfAccounts.AccountNumber = _AccountNumber_Partner Or + _GLRows.CreditChartOfAccounts.AccountNumber = _AccountNumber_Partner) + Select New With { + Key .Customers = _GLRows.Customer, + Key .PartnerType = _GLRows.PartnerType, + Key .ConnectInfo = _GLRows.ConnectInfo, + Key .DebitChartOfAccount = _GLRows.DebitChartOfAccounts, + Key .CreditChartOfAccount = _GLRows.CreditChartOfAccounts, + Key .AmountHUF = _GLRows.AmountHUF} + + For Each item In query + If item.DebitChartOfAccount.AccountNumber = _AccountNumber_Partner Then + _DebitAmountHUF += item.AmountHUF + End If + If item.CreditChartOfAccount.AccountNumber = _AccountNumber_Partner Then + _CreditAmountHUF += item.AmountHUF + End If + Next + _BallanceHUF = _DebitAmountHUF - _CreditAmountHUF + + If Math.Round(_BallanceHUF) <> 0 Then + '// ZÁRÓ TÉTEL beszúrása + If _GLRowsTypeSelect = eGLRowsTypeSelect.eBoth Or _GLRowsTypeSelect = eGLRowsTypeSelect.eClose Then + _GLRows_Close = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customer=? and GLRowsType=2 and ConnectInfo=? and PartnerType=? and GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _CustomersFrom, _Customers, _ConnectInfo, _PartnerType, _YearClose)) + If _GLRows_Close IsNot Nothing Then + _GLMixed_Close = _GLRows_Close.GLHeader + Else + _GLMixed_Close = New GLMixed(_uow) + _GLMixed_Close.DateExecution = New Date(_YearClose, 12, 31) + _GLMixed_Close.GLDocumentType = eGLDocumentType.eGLMixed + _GLMixed_Close.DateCreated = _GLMixed_Close.DateExecution + _GLMixed_Close.CustomersFrom = _CustomersFrom + _GLMixed_Close.IsEditable = False + End If + If _GLRows_Close Is Nothing Then _GLRows_Close = New GLRows(_uow) + _GLMixed_Close.DocumentNumber = _AccountNumber_Partner & " karton zárása " & _YearClose.ToString + _GLMixed_Close.NoteHeader = _Customers.FullName & " partner " & _AccountNumber_Partner & " főkönyvi karton zárása a " & _YearClose.ToString & " évre." + + _GLRows_Close.NoteRows = _GLMixed_Close.NoteHeader + _GLRows_Close.GLHeader = _GLMixed_Close + _GLRows_Close.GLRowsType = eGLRowsType.eClose + _GLRows_Close.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + + Select Case _PartnerType + Case ePartnerType.ePayabels + _GLRows_Close.AmountHUF = _BallanceHUF * -1 + Case ePartnerType.eReceivables + _GLRows_Close.AmountHUF = _BallanceHUF + End Select + + _GLRows_Close.DebitChartOfAccounts = _DebitChartOfAccounts_Close + _GLRows_Close.CreditChartOfAccounts = _CreditChartOfAccounts_Close + _GLRows_Close.Customer = _Customers + _GLRows_Close.PartnerType = _PartnerType + _GLRows_Close.ConnectInfo = _ConnectInfo + End If + + '//Nyitó tétel beszúrása + If _GLRowsTypeSelect = eGLRowsTypeSelect.eBoth Or _GLRowsTypeSelect = eGLRowsTypeSelect.eOpen Then + _GLRows_Open = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customer=? and GLRowsType=1 and ConnectInfo=? and PartnerType=? and GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _CustomersFrom, _Customers, _ConnectInfo, _PartnerType, _YearClose + 1)) + If _GLRows_Open IsNot Nothing Then + _GLMixed_Open = _GLRows_Open.GLHeader + Else + _GLMixed_Open = New GLMixed(_uow) + _GLMixed_Open.DateExecution = New Date(_YearClose + 1, 1, 1) + _GLMixed_Open.GLDocumentType = eGLDocumentType.eGLMixed + _GLMixed_Open.DateCreated = _GLMixed_Open.DateExecution + _GLMixed_Open.CustomersFrom = _CustomersFrom + _GLMixed_Open.IsEditable = False + + End If + If _GLRows_Open Is Nothing Then _GLRows_Open = New GLRows(_uow) + _GLMixed_Open.DocumentNumber = _AccountNumber_Partner & " karton nyitása " & (_YearClose + 1).ToString + _GLMixed_Open.NoteHeader = _Customers.FullName & " partner " & _AccountNumber_Partner & " főkönyvi karton nyitása a " & (_YearClose + 1).ToString & " évre." + + _GLRows_Open.NoteRows = _GLMixed_Open.NoteHeader + _GLRows_Open.GLHeader = _GLMixed_Open + _GLRows_Open.GLRowsType = eGLRowsType.eOpen + _GLRows_Open.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + + Select Case _PartnerType + Case ePartnerType.ePayabels + _GLRows_Open.AmountHUF = _BallanceHUF * -1 + Case ePartnerType.eReceivables + _GLRows_Open.AmountHUF = _BallanceHUF + End Select + + _GLRows_Open.DebitChartOfAccounts = _DebitChartOfAccounts_Open + _GLRows_Open.CreditChartOfAccounts = _CreditChartOfAccounts_Open + _GLRows_Open.Customer = _Customers + _GLRows_Open.PartnerType = _PartnerType + _GLRows_Open.ConnectInfo = _ConnectInfo + End If + _uow.CommitChanges() + End If + + End Sub + Public Sub RemoveOpenClosePCI(_uow As UnitOfWork, _CustomersFrom As Customers, _Customers As Customers, _PartnerType As ePartnerType, _ConnectInfo As String, _YearClose As Long) + '// Az eljárás megkeresi és törli a nyitó-záró tételt az adott évre + Dim _GLMixed_Close As GLMixed = Nothing + Dim _GLMixed_Open As GLMixed = Nothing + + Dim _GLRows_Open As GLRows = Nothing + Dim _GLRows_Close As GLRows = Nothing + + _CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + + _GLRows_Close = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customer=? and GLRowsType=2 and ConnectInfo=? and PartnerType=? and GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _CustomersFrom, _Customers, _ConnectInfo, _PartnerType, _YearClose)) + If _GLRows_Close IsNot Nothing Then + _GLMixed_Close = _GLRows_Close.GLHeader + End If + _GLRows_Open = _uow.FindObject(Of GLRows)(CriteriaOperator.Parse("GLHeader.CustomersFrom=? and Customer=? and GLRowsType=1 and ConnectInfo=? and PartnerType=? and GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _CustomersFrom, _Customers, _ConnectInfo, _PartnerType, _YearClose + 1)) + If _GLRows_Open IsNot Nothing Then + _GLMixed_Open = _GLRows_Open.GLHeader + End If + + If _GLMixed_Open IsNot Nothing Then + _uow.Delete(_GLMixed_Open.GLRows) + _uow.Delete(_GLMixed_Open) + End If + If _GLMixed_Close IsNot Nothing Then + _uow.Delete(_GLMixed_Close.GLRows) + _uow.Delete(_GLMixed_Close) + End If + _uow.CommitChanges() + End Sub + + Private Sub aGenerateOpenClosePCIRecord_Storno_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord_Storno.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)() + + e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup) + End Sub + + Private Sub aGenerateOpenClosePCIRecord_Storno_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord_Storno.Execute + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLAccounts As GLAccounts + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _GLAccounts In View.SelectedObjects + RaiseEvent DoWork() + RemoveOpenClosePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose) + Next + RaiseEvent FinalWork + End Sub + + Private Sub aRestoreDeletedRecord_GLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRestoreDeletedRecord_GLAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts As GLAccounts + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLAccounts In View.SelectedObjects + RaiseEvent DoWork() + + _GLAccounts.SetMemberValue("GCRecord", Nothing) + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandling.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandling.vb new file mode 100644 index 0000000..95e9526 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandling.vb @@ -0,0 +1,243 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class AssetsHandling 'Kintlvsg kezels + Inherits BaseObject + Private _QueueIndex As Long = 0 'Hanyadik a sorban + Private _InvoiceHeader As InvoiceHeader 'Bzis objektum, amihez kapcsoldik + Private _DateClose As Date 'Zr dtum + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Vev + Private _DocumentNumber As String 'Szmlaszm + Private _AmountDEV_Account As Double 'Szmla eredeti brutt vgsszege (DEV) + Private _AmountHUF_Account As Double 'Szmla eredeti brutt vgsszege (HUF) + Private _BalanceHUF As Double 'Egyenleg (nyitott sszeg) HUF + Private _BalanceDEV As Double 'Egyenleg (nyitott sszeg) DEV + Private _DateCreated As Date 'Szmla kill. dtuma + Private _DatePayment As Date 'Szmla fiz. hat. + Private _DateExecution As Date 'A fizetsi felszlts dtuma + Private _DelayedDay As Long 'Ksett nap + Private _Note As String 'Megjegyzs + Private _IsActive As Boolean = False + Private _ObjectCreated As Date 'Keletkezs dtuma + Private _UserCreated As User 'Ltrehoz felhasznl + Private _EMailSendQueueRows As EMailSendQueueRows + + Private _LateChargesBalanceHUF As Double 'Ksedelmi kamat sszege forintban + + Private _CountLateCharges As Boolean = True 'Szmolunk-e ksedelmi kamatot + Private _NoAssetsHandling As Boolean = False 'Nem kell fizetsi felszlts erre a szmlra vonatkozlag + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + If Not SecuritySystem.CurrentUser Is Nothing Then + _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + Property QueueIndex As Long + Get + Return _QueueIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("QueueIndex", _QueueIndex, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property AmountDEV_Account As Double + Get + Return _AmountDEV_Account + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value) + End Set + End Property + Property AmountHUF_Account As Double + Get + Return _AmountHUF_Account + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value) + End Set + End Property + Property BalanceHUF As Double + Get + Return _BalanceHUF + End Get + Set(value As Double) + SetPropertyValue("BalanceHUF", _BalanceHUF, value) + End Set + End Property + Property BalanceDEV As Double + Get + Return _BalanceDEV + End Get + Set(value As Double) + SetPropertyValue("BalanceDEV", _BalanceDEV, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property IsActive As Boolean + Get + Return _IsActive + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property EMailSendQueueRows As EMailSendQueueRows + Get + Return _EMailSendQueueRows + End Get + Set(value As EMailSendQueueRows) + SetPropertyValue("EMailSendQueueRows", _EMailSendQueueRows, value) + End Set + End Property + + Property CountLateCharges As Boolean + Get + Return _CountLateCharges + End Get + Set(value As Boolean) + SetPropertyValue("CountLateCharges", _CountLateCharges, value) + End Set + End Property + Property NoAssetsHandling As Boolean + Get + Return _NoAssetsHandling + End Get + Set(value As Boolean) + SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value) + End Set + End Property + + Property LateChargesBalanceHUF As Double + Get + Return _LateChargesBalanceHUF + End Get + Set(value As Double) + SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value) + End Set + End Property + + _ + ReadOnly Property AssetsHandlingPCI As XPCollection(Of AssetsHandlingPCI) + Get + Return GetCollection(Of AssetsHandlingPCI)("AssetsHandlingPCI") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingActivity.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingActivity.vb new file mode 100644 index 0000000..6ef3de8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingActivity.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class AssetsHandlingActivity + Inherits BaseObject + Private _AssetsHandling As AssetsHandling 'Fejlc objektum + Private _ObjectCreated As Date 'Objektum ltrehozs dtum id + Private _UserCreated As User ' Ki csinlta a bejegyzst + Private _Note As String 'Megjegyzs + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + If Not SecuritySystem.CurrentUser Is Nothing Then + _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + Property AssetsHandling As AssetsHandling + Get + Return _AssetsHandling + End Get + Set(ByVal value As AssetsHandling) + SetPropertyValue("AssetsHandling", _AssetsHandling, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPB.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPB.vb new file mode 100644 index 0000000..e0f72ee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPB.vb @@ -0,0 +1,116 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AssetsHandlingCPB + Inherits BaseObject + Private _Customers As Customers + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.row_ConversationType = eConversationType.eNotset + Me.row_DateDeadline = GetSQLTime(Session) + End Sub + Public Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + + Private _row_NoteCustomers As String + Private _row_NotePrivate As String + Private _row_DateDeadline As Date 'Hatrid + Private _row_Amount As Double = 0 ' sszeget fizet hatridig + Private _row_AmountPercent As Double '%-ot fizet hatridig + Private _row_ConversationType As eConversationType + + _ + Property row_NoteCustomers As String + Get + Return _row_NoteCustomers + End Get + Set(value As String) + SetPropertyValue("row_NoteCustomers", _row_NoteCustomers, value) + End Set + End Property + + Property row_NotePrivate As String + Get + Return _row_NotePrivate + End Get + Set(value As String) + SetPropertyValue("row_NotePrivate", _row_NotePrivate, value) + End Set + End Property + Property row_DateDeadline As Date + Get + Return _row_DateDeadline + End Get + Set(value As Date) + SetPropertyValue("row_DateDeadline", _row_DateDeadline, value) + End Set + End Property + Property row_Amount As Double + Get + Return _row_Amount + End Get + Set(value As Double) + SetPropertyValue("row_Amount", _row_Amount, value) + End Set + End Property + Property row_AmountPercent As Double + Get + Return _row_AmountPercent + End Get + Set(value As Double) + SetPropertyValue("row_AmountPercent", _row_AmountPercent, value) + End Set + End Property + Property row_ConversationType As eConversationType + Get + Return _row_ConversationType + End Get + Set(value As eConversationType) + SetPropertyValue("row_ConversationType", _row_ConversationType, value) + End Set + End Property + + _ + ReadOnly Property AssetsHandlingCPBActivity As XPCollection(Of AssetsHandlingCPBActivity) + Get + Return New XPCollection(Of AssetsHandlingCPBActivity)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers)) + End Get + End Property + _ + ReadOnly Property PCIGroup As XPCollection(Of PCIGroup) + Get + Dim _Criteria As String = " IsNull(InvoiceHeader)=False And PartnerType = 0 And InvoiceHeader.PaymentOption.PayMode in ('InTransfer','InContinuous') And " + + "GetDate(InvoiceHeader.DatePayment) < GetDate(?) and (GetDate(InvoiceHeader.DatePayment) < GetDate(DateLastConnected) OR " + + "IsNull(DateLastConnected)=True) and AmountHUF_Account>1000 And InvoiceHeader.IsStorno=False and Customers=?" + Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse(_Criteria, Now, Me.Customers)) + End Get + End Property + ReadOnly Property AssetsHandling As XPCollection(Of AssetsHandling) + Get + Return New XPCollection(Of AssetsHandling)(Session, CriteriaOperator.Parse("Customers=?", Me.Customers)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBActivity.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBActivity.vb new file mode 100644 index 0000000..0edecc0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBActivity.vb @@ -0,0 +1,130 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eConversationType + eNotset = -1 + ePhone = 0 + ePersonal = 1 + eMail = 2 +End Enum + _ +Public Class AssetsHandlingCPBActivity + Inherits BaseObject + + Private _Customers As Customers + Private _NoteCustomers As String + Private _NotePrivate As String + Private _DateDeadline As Date 'Hatrid + Private _Amount As Double = 0 ' sszeget fizet hatridig + Private _AmountPercent As Double '%-ot fizet hatridig + Private _ConversationType As eConversationType + Private _ObjectCreated As Date 'Keletkezs dtuma + Private _UserCreated As User 'Ltrehoz felhasznl + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + If Session.IsNewObject(Me) Then + Me.ConversationType = eConversationType.eNotset + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + Me.ObjectCreated = GetSQLTime(Session) + If SecuritySystem.CurrentUser IsNot Nothing Then + Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + _ + Public Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Public Property NoteCustomers As String + Get + Return _NoteCustomers + End Get + Set(value As String) + SetPropertyValue("NoteCustomers", _NoteCustomers, value) + End Set + End Property + _ + Public Property NotePrivate As String + Get + Return _NotePrivate + End Get + Set(value As String) + SetPropertyValue("NotePrivate", _NotePrivate, value) + End Set + End Property + Public Property DateDeadline As Date + Get + Return _DateDeadline + End Get + Set(value As Date) + SetPropertyValue("DateDeadline", _DateDeadline, value) + End Set + End Property + Public Property Amount As Double + Get + Return _Amount + End Get + Set(value As Double) + SetPropertyValue("Amount", _Amount, value) + End Set + End Property + Public Property AmountPercent As Double + Get + Return _AmountPercent + End Get + Set(value As Double) + SetPropertyValue("AmountPercent", _AmountPercent, value) + End Set + End Property + _ + Public Property ConversationType As eConversationType + Get + Return _ConversationType + End Get + Set(value As eConversationType) + SetPropertyValue("ConversationType", _ConversationType, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.Designer.vb new file mode 100644 index 0000000..e2b885d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.Designer.vb @@ -0,0 +1,104 @@ +Partial Class AssetsHandlingCPBVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAtachments_AHCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aToTable_AHCPB + ' + Me.aToTable_AHCPB.Caption = "aToTable" + Me.aToTable_AHCPB.Category = "aToTable_AHCPB" + Me.aToTable_AHCPB.ConfirmationMessage = Nothing + Me.aToTable_AHCPB.Id = "aToTable_AHCPB" + Me.aToTable_AHCPB.ImageName = Nothing + Me.aToTable_AHCPB.Shortcut = Nothing + Me.aToTable_AHCPB.Tag = Nothing + Me.aToTable_AHCPB.TargetObjectsCriteria = Nothing + Me.aToTable_AHCPB.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandlingCPB) + Me.aToTable_AHCPB.TargetViewId = "" + Me.aToTable_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_AHCPB.ToolTip = Nothing + Me.aToTable_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_AHCPB + ' + Me.aToTableD_AHCPB.Caption = "Delete row" + Me.aToTableD_AHCPB.Category = "aToTableD_AHCPB" + Me.aToTableD_AHCPB.ConfirmationMessage = Nothing + Me.aToTableD_AHCPB.Id = "aToTableD_AHCPB" + Me.aToTableD_AHCPB.ImageName = Nothing + Me.aToTableD_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_AHCPB.Shortcut = Nothing + Me.aToTableD_AHCPB.Tag = Nothing + Me.aToTableD_AHCPB.TargetObjectsCriteria = Nothing + Me.aToTableD_AHCPB.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandlingCPB) + Me.aToTableD_AHCPB.TargetViewId = "" + Me.aToTableD_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_AHCPB.ToolTip = Nothing + Me.aToTableD_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aBackToRowEdit_AHCPB + ' + Me.aBackToRowEdit_AHCPB.Caption = "Edit row" + Me.aBackToRowEdit_AHCPB.Category = "aBackToRowEdit_AHCPB" + Me.aBackToRowEdit_AHCPB.ConfirmationMessage = Nothing + Me.aBackToRowEdit_AHCPB.Id = "aBackToRowEdit_AHCPB" + Me.aBackToRowEdit_AHCPB.ImageName = Nothing + Me.aBackToRowEdit_AHCPB.Shortcut = Nothing + Me.aBackToRowEdit_AHCPB.Tag = Nothing + Me.aBackToRowEdit_AHCPB.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_AHCPB.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandlingCPB) + Me.aBackToRowEdit_AHCPB.TargetViewId = "" + Me.aBackToRowEdit_AHCPB.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aBackToRowEdit_AHCPB.ToolTip = Nothing + Me.aBackToRowEdit_AHCPB.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aViewAtachments_AHCPB + ' + Me.aViewAtachments_AHCPB.Caption = "aViewAtachments_AHCPB" + Me.aViewAtachments_AHCPB.ConfirmationMessage = Nothing + Me.aViewAtachments_AHCPB.Id = "aViewAtachments_AHCPB" + Me.aViewAtachments_AHCPB.ImageName = Nothing + Me.aViewAtachments_AHCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAtachments_AHCPB.Shortcut = Nothing + Me.aViewAtachments_AHCPB.Tag = Nothing + Me.aViewAtachments_AHCPB.TargetObjectsCriteria = Nothing + Me.aViewAtachments_AHCPB.TargetViewId = "AssetsHandlingCPB_PCIGroup_ListView" + Me.aViewAtachments_AHCPB.ToolTip = Nothing + Me.aViewAtachments_AHCPB.TypeOfView = Nothing + + End Sub + Friend WithEvents aToTable_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAtachments_AHCPB As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.resx new file mode 100644 index 0000000..9f52702 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.vb new file mode 100644 index 0000000..bb0dea5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingCPBVC.vb @@ -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.Editors + +Public Class AssetsHandlingCPBVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aToTable_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_AHCPB.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingCPBA As AssetsHandlingCPB = TryCast(View.SelectedObjects(0), AssetsHandlingCPB) + Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity + + If _AssetsHandlingCPBA IsNot Nothing Then + + _AssetsHandlingCPBActivity = _onew.CreateObject(Of AssetsHandlingCPBActivity)() + _AssetsHandlingCPBActivity.Customers = _onew.GetObject(_AssetsHandlingCPBA.Customers) + _AssetsHandlingCPBActivity.Amount = _AssetsHandlingCPBA.row_Amount + _AssetsHandlingCPBActivity.AmountPercent = _AssetsHandlingCPBA.row_AmountPercent + _AssetsHandlingCPBActivity.ConversationType = _AssetsHandlingCPBA.row_ConversationType + _AssetsHandlingCPBActivity.DateDeadline = _AssetsHandlingCPBA.row_DateDeadline + _AssetsHandlingCPBActivity.NoteCustomers = _AssetsHandlingCPBA.row_NoteCustomers + _AssetsHandlingCPBActivity.NotePrivate = _AssetsHandlingCPBA.row_NotePrivate + _AssetsHandlingCPBActivity.Customers.AssetsHandling_Note = _AssetsHandlingCPBA.row_NoteCustomers + _onew.CommitChanges() + + Dim _DetailView As DetailView = TryCast(View, DetailView) + If _DetailView IsNot Nothing Then + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity") + If _ListPropertyEditor IsNot Nothing Then + TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload() + End If + End If + End If + End Sub + + Private Sub aToTableD_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_AHCPB.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingCPBActivity_Collection As New List(Of AssetsHandlingCPBActivity) + Dim _AssetsHandlingCPBActivity As AssetsHandlingCPBActivity + Dim _DetailView As DetailView = TryCast(View, DetailView) + If _DetailView IsNot Nothing Then + Dim _ListPropertyEditor As ListPropertyEditor = _DetailView.FindItem("AssetsHandlingCPBActivity") + If _ListPropertyEditor IsNot Nothing Then + Dim _ListView As ListView = TryCast(_ListPropertyEditor.ListView, ListView) + If _ListView IsNot Nothing Then + For Each _AssetsHandlingCPBActivity In _ListView.SelectedObjects + _AssetsHandlingCPBActivity_Collection.Add(_onew.GetObject(_AssetsHandlingCPBActivity)) + Next + _onew.Delete(_AssetsHandlingCPBActivity_Collection) + _onew.CommitChanges() + End If + TryCast(_ListPropertyEditor.ListView, ListView).CollectionSource.Reload() + End If + End If + End Sub + + Private Sub aViewAtachments_AHCPB_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAtachments_AHCPB.Execute + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + Dim _CustomersFrom As CustomersFrom = _PCIGroup.CustomersFrom + Dim _Customers As Customers = _PCIGroup.Customers + Dim _DocumentNumber As String = _PCIGroup.ConnectInfo + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingGroupChange.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingGroupChange.vb new file mode 100644 index 0000000..0061650 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingGroupChange.vb @@ -0,0 +1,145 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AssetsHandlingGroupChange + Inherits BaseObject + Private _QueueIndex As Long + Private _AssetsHandlingStatus As AssetsHandlingStatus + Private _IsQueueIndex As Boolean + Private _AssetsHandling_Note_Customers As String + Private _IsAssetsHandling_Note_Customers As Boolean + Private _AssetsHandling_Note_Invoice As String + Private _IsAssetsHandling_Note_Invoice As Boolean + Private _NoAssetsHandlingModifies As Boolean 'Nincs felsz. mdostod? + Private _NoAssetsHandling As Boolean + Private _AktivModifies As Boolean 'Aktv sttuszt mdostod? + Private _IsActive As Boolean + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property QueueIndex As Long + Get + Return _QueueIndex + End Get + Set(value As Long) + SetPropertyValue("QueueIndex", _QueueIndex, value) + End Set + End Property + Property AssetsHandlingStatus As AssetsHandlingStatus + Get + Return _AssetsHandlingStatus + End Get + Set(value As AssetsHandlingStatus) + SetPropertyValue("AssetsHandlingStatus", _AssetsHandlingStatus, value) + If value IsNot Nothing Then + QueueIndex = value.QueueIndex + End If + End Set + End Property + Property IsQueueIndex As Boolean + Get + Return _IsQueueIndex + End Get + Set(value As Boolean) + SetPropertyValue("IsQueueIndex", _IsQueueIndex, value) + End Set + End Property + + _ + Property AssetsHandling_Note_Customers As String + Get + Return _AssetsHandling_Note_Customers + End Get + Set(value As String) + SetPropertyValue("AssetsHandling_Note_Customers", _AssetsHandling_Note_Customers, value) + End Set + End Property + Property IsAssetsHandling_Note_Customers As Boolean + Get + Return _IsAssetsHandling_Note_Customers + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandling_Note_Customers", _IsAssetsHandling_Note_Customers, value) + End Set + End Property + + _ + Property AssetsHandling_Note_Invoice As String + Get + Return _AssetsHandling_Note_Invoice + End Get + Set(value As String) + SetPropertyValue("AssetsHandling_Note_Invoice", _AssetsHandling_Note_Invoice, value) + End Set + End Property + Property IsAssetsHandling_Note_Invoice As Boolean + Get + Return _IsAssetsHandling_Note_Invoice + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandling_Note_Invoice", _IsAssetsHandling_Note_Invoice, value) + End Set + End Property + + Public Property NoAssetsHandlingModifies() As Boolean + Get + Return _NoAssetsHandlingModifies + End Get + Set(ByVal value As Boolean) + SetPropertyValue("NoAssetsHandlingModifies", _NoAssetsHandlingModifies, value) + End Set + End Property 'Nem kell fizetsi felszlts mdosuljon + Public Property NoAssetsHandling() As Boolean + Get + Return _NoAssetsHandling + End Get + Set(ByVal value As Boolean) + SetPropertyValue("NoAssetsHandling", _NoAssetsHandling, value) + End Set + End Property 'Nem kell fizetsi felszlts / Legyen + + Public Property AktivModifies() As Boolean + Get + Return _AktivModifies + End Get + Set(ByVal value As Boolean) + SetPropertyValue("AktivModifies", _AktivModifies, value) + End Set + End Property + Public Property IsActive() As Boolean + Get + Return _IsActive + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + + Property IsAssetsHandling_InvoiceHeader As Boolean + Property IsAssetsHandling_InvoiceHeader_Modifies As Boolean + + Property IsLateChargeModifies As Boolean 'A ksedelmi kamatszml mdosuljon ? + Property IsLateCharge As Boolean +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingPCI.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingPCI.vb new file mode 100644 index 0000000..0981c95 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingPCI.vb @@ -0,0 +1,94 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class AssetsHandlingPCI + Inherits BaseObject + Private _AssetsHandling As AssetsHandling 'Fejlc objektum + Private _MainType As String 'Tipus (Szmla, pnztr, bank stb) + Private _DateExecution As Date 'Teljests dtuma + Private _BallanceHUF As Double 'Egyenleg HUF + Private _BallanceDEV As Double 'Egyenleg DEV + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property AssetsHandling As AssetsHandling + Get + Return _AssetsHandling + End Get + Set(ByVal value As AssetsHandling) + SetPropertyValue("AssetsHandling", _AssetsHandling, value) + End Set + End Property + Property MainType As String + Get + Return _MainType + End Get + Set(ByVal value As String) + SetPropertyValue("MainType", _MainType, value) + End Set + End Property + Property DateExectution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingParameter.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingParameter.vb new file mode 100644 index 0000000..2a1521b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingParameter.vb @@ -0,0 +1,259 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports System.Drawing + + _ + _ + _ +Public Class AssetsHandlingParameter + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ReportData As ReportData '1 fizetsi felszlts + Private _ReportData2 As ReportData '2 fizetsi felszlts + Private _ReportData3 As ReportData '3 rendkivli felmonds + + Private _ReportData_LateChargesDocument As ReportData 'Ksedelmi kamatlevl + + Private _ReportDataEN As ReportData '1 fizetsi felszlts (angol nyelven) + Private _ReportData2EN As ReportData '2 fizetsi felszlts (angol nyelven) + Private _ReportData3EN As ReportData '3 rendkivli felmonds (angol nyelven) + + Private _TolerationDay1 As Long 'Trelmi nap 1. felszltshoz + Private _TolerationDay2 As Long 'Trelmi nap 2. felszltshoz + Private _TolerationDay3 As Long 'Trelmi nap 3. felmondshoz + Private _Cost1HUF As Double ' 1. felszlts kltsge + Private _Cost2HUF As Double ' 2. felszlts kltsge + Private _Cost3HUF As Double ' 3. felszlts kltsge + Private _EMailSendQueueParameters As EMailSendQueueParameters + + Private _ForeColor0 As Int32 = -1 '0 sorszm szne + Private _ForeColor1 As Int32 = -1 '1 sorszm szne + Private _ForeColor2 As Int32 = -1 '0 sorszm szne + Private _ForeColor3 As Int32 = -1 '1 sorszm szne + + Private _BackColor0 As Int32 = -1 '0 sorszm szne + Private _BackColor1 As Int32 = -1 '1 sorszm szne + Private _BackColor2 As Int32 = -1 '0 sorszm szne + Private _BackColor3 As Int32 = -1 '1 sorszm szne + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportData2 As ReportData + Get + Return _ReportData2 + End Get + Set(value As ReportData) + SetPropertyValue("ReportData2", _ReportData2, value) + End Set + End Property + Property ReportData3 As ReportData + Get + Return _ReportData3 + End Get + Set(value As ReportData) + SetPropertyValue("ReportData3", _ReportData3, value) + End Set + End Property + Property ReportDataEN As ReportData + Get + Return _ReportDataEN + End Get + Set(value As ReportData) + SetPropertyValue("ReportDataEN", _ReportDataEN, value) + End Set + End Property + Property ReportData2EN As ReportData + Get + Return _ReportData2EN + End Get + Set(value As ReportData) + SetPropertyValue("ReportData2EN", _ReportData2EN, value) + End Set + End Property + Property ReportData3EN As ReportData + Get + Return _ReportData3EN + End Get + Set(value As ReportData) + SetPropertyValue("ReportData3EN", _ReportData3EN, value) + End Set + End Property + + Property ReportData_LateChargesDocument As ReportData + Get + Return _ReportData_LateChargesDocument + End Get + Set(value As ReportData) + SetPropertyValue("ReportData_LateChargesDocument", _ReportData_LateChargesDocument, value) + End Set + End Property + + Property TolerationDay1 As Long + Get + Return _TolerationDay1 + End Get + Set(value As Long) + SetPropertyValue("TolerationDay1", _TolerationDay1, value) + End Set + End Property + Property TolerationDay2 As Long + Get + Return _TolerationDay2 + End Get + Set(value As Long) + SetPropertyValue("TolerationDay2", _TolerationDay2, value) + End Set + End Property + Property TolerationDay3 As Long + Get + Return _TolerationDay3 + End Get + Set(value As Long) + SetPropertyValue("TolerationDay3", _TolerationDay3, value) + End Set + End Property + Property Cost1HUF As Double + Get + Return _Cost1HUF + End Get + Set(value As Double) + SetPropertyValue("Cost1HUF", _Cost1HUF, value) + End Set + End Property + Property Cost2HUF As Double + Get + Return _Cost2HUF + End Get + Set(value As Double) + SetPropertyValue("Cost2HUF", _Cost2HUF, value) + End Set + End Property + Property Cost3HUF As Double + Get + Return _Cost3HUF + End Get + Set(value As Double) + SetPropertyValue("Cost3HUF", _Cost3HUF, value) + End Set + End Property + Property EMailSendQueueParameters As EMailSendQueueParameters + Get + Return _EMailSendQueueParameters + End Get + Set(value As EMailSendQueueParameters) + SetPropertyValue("EMailSendQueueParameters", _EMailSendQueueParameters, value) + End Set + End Property + + _ + Public Property ForeColor0() As Color + Get + Return Color.FromArgb(_ForeColor0) + End Get + Set(ByVal value As Color) + _ForeColor0 = value.ToArgb() + OnChanged("ForeColor0") + End Set + End Property + _ + Public Property ForeColor1() As Color + Get + Return Color.FromArgb(_ForeColor1) + End Get + Set(ByVal value As Color) + _ForeColor1 = value.ToArgb() + OnChanged("ForeColor1") + End Set + End Property + _ + Public Property ForeColor2() As Color + Get + Return Color.FromArgb(_ForeColor2) + End Get + Set(ByVal value As Color) + _ForeColor2 = value.ToArgb() + OnChanged("ForeColor2") + End Set + End Property + _ + Public Property ForeColor3() As Color + Get + Return Color.FromArgb(_ForeColor3) + End Get + Set(ByVal value As Color) + _ForeColor3 = value.ToArgb() + OnChanged("ForeColor3") + End Set + End Property + + _ + Public Property BackColor0() As Color + Get + Return Color.FromArgb(_BackColor0) + End Get + Set(ByVal value As Color) + _BackColor0 = value.ToArgb() + OnChanged("BackColor0") + End Set + End Property + _ + Public Property BackColor1() As Color + Get + Return Color.FromArgb(_BackColor1) + End Get + Set(ByVal value As Color) + _BackColor1 = value.ToArgb() + OnChanged("BackColor1") + End Set + End Property + _ + Public Property BackColor2() As Color + Get + Return Color.FromArgb(_BackColor2) + End Get + Set(ByVal value As Color) + _BackColor2 = value.ToArgb() + OnChanged("BackColor2") + End Set + End Property + _ + Public Property BackColor3() As Color + Get + Return Color.FromArgb(_BackColor3) + End Get + Set(ByVal value As Color) + _BackColor3 = value.ToArgb() + OnChanged("BackColor3") + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingStatus.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingStatus.vb new file mode 100644 index 0000000..661fbb6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsHandlingStatus.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AssetsHandlingStatus + Inherits BaseObject + Private _QueueIndex As Long + Private _ShortName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property QueueIndex As Long + Get + Return _QueueIndex + End Get + Set(value As Long) + SetPropertyValue("QueueIndex", _QueueIndex, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCICustomersFrom.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCICustomersFrom.vb new file mode 100644 index 0000000..7524548 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCICustomersFrom.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AssetsPCICustomersFrom + Inherits BaseObject + Private _AssetsPCIHeader As AssetsPCIHeader + Private _CustomersFrom As CustomersFrom + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property AssetsPCIHeader As AssetsPCIHeader + Get + Return _AssetsPCIHeader + End Get + Set(value As AssetsPCIHeader) + SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIHeader.vb new file mode 100644 index 0000000..635f378 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIHeader.vb @@ -0,0 +1,124 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class AssetsPCIHeader + Inherits BaseObject + Private _DateClose As Date 'Utols banki nap dtuma (csak az ezt megelz ttelek vagy u.a. dtum ttelek) + Private _DateExecution As Date 'A fizetsi felszlts rvnyessgi dtuma + Private _ShortName As String + Private _QueryCustomersFrom As Boolean = False 'Lekrdezze e a sajt cget is ? + Private _ObjectCreated As Date 'Keletkezs dtuma + Private _UserCreated As User 'Ltrehoz felhasznl + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DateClose = Now + Me.DateExecution = Now + + Dim _AssetsPCICustomersFrom As AssetsPCICustomersFrom + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session) + Dim _CustomersFrom As CustomersFrom + + For Each _CustomersFrom In _CustomersFrom_Collection + _AssetsPCICustomersFrom = New AssetsPCICustomersFrom(Session) + _AssetsPCICustomersFrom.AssetsPCIHeader = Me + _AssetsPCICustomersFrom.CustomersFrom = _CustomersFrom + Next + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + If Not SecuritySystem.CurrentUser Is Nothing Then + _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + + Property DateClose As Date + Get + Return _DateClose + End Get + Set(ByVal value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property QueryCustomersFrom As Boolean + Get + Return _QueryCustomersFrom + End Get + Set(value As Boolean) + SetPropertyValue("QueryCustomersFrom", _QueryCustomersFrom, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + ReadOnly Property AssetsPCIRows As XPCollection(Of AssetsPCIRows) + Get + Return GetCollection(Of AssetsPCIRows)("AssetsPCIRows") + End Get + End Property + + _ + _ + ReadOnly Property AssetsPCICustomersFrom As XPCollection(Of AssetsPCICustomersFrom) + Get + Return GetCollection(Of AssetsPCICustomersFrom)("AssetsPCICustomersFrom") + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIRows.vb new file mode 100644 index 0000000..f14874e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIRows.vb @@ -0,0 +1,153 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class AssetsPCIRows + Inherits BaseObject + Private _AssetsPCIHeader As AssetsPCIHeader 'Kapcsold fejlc + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Partner + Private _PartnerType As ePartnerType 'Partner tipusa, mindig 0 + Private _ConnectInfo As String 'Pontozsi info + Private _CurrencyName As CurrencyName 'Devizanem + Private _DateExecution As Date 'Teljests dtuma + Private _DateCreated As Date 'Kill. dtuma + Private _DatePayment As Date 'Fizetsi hatrid + Private _DelayedDay As Long 'Ksett nap + Private _AmountHUF_Account As Double 'Szmla eredeti brutt sszege + Private _AmountDEV_Account As Double 'Szmla eredeti brutt sszege + Private _BallanceHUF As Double 'Egyenleg HUF + Private _BallanceDEV As Double 'Egyenleg DEV + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property AssetsPCIHeader As AssetsPCIHeader + Get + Return _AssetsPCIHeader + End Get + Set(ByVal value As AssetsPCIHeader) + SetPropertyValue("AssetsPCIHeader", _AssetsPCIHeader, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo() As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property DelayedDay As Long + Get + Return _DelayedDay + End Get + Set(ByVal value As Long) + SetPropertyValue("DelayedDay", _DelayedDay, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceTotal", _BallanceDEV, value) + End Set + End Property + Property AmountHUF_Account As Double + Get + Return _AmountHUF_Account + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value) + End Set + End Property + Property AmountDEV_Account As Double + Get + Return _AmountDEV_Account + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb new file mode 100644 index 0000000..c58f61e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.Designer.vb @@ -0,0 +1,404 @@ +Partial Class AssetsPCIVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateAssetsReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintAssetsHandling2 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewLateCharges = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCountLateCharges = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aNoAssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintAssetsHandling3 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewCPBAssetsPCIRows_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewCPBAssetsHandling_ListView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDW_AssetsPCIRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCIGenerate_AssetsHandling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAssetsHandling_CreateSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAssetsHandling_RemoveSendEmailQueue = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aAssetsHandling_GroupChange = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewLateCharges_AssetsHandling = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSelectCustomersFromAssetsHandlingPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateLateChargesDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRemoveLateChargesDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateAssetsReport + ' + Me.aGenerateAssetsReport.Caption = "Generate report" + Me.aGenerateAssetsReport.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateAssetsReport.Id = "aGenerateAssetsReport" + Me.aGenerateAssetsReport.ImageName = "stopwatch_run" + Me.aGenerateAssetsReport.Shortcut = Nothing + Me.aGenerateAssetsReport.Tag = Nothing + Me.aGenerateAssetsReport.TargetObjectsCriteria = Nothing + Me.aGenerateAssetsReport.TargetViewId = "AssetsPCIHeader_DetailView" + Me.aGenerateAssetsReport.ToolTip = Nothing + Me.aGenerateAssetsReport.TypeOfView = Nothing + ' + 'aCreateAssetsHandling + ' + Me.aCreateAssetsHandling.Caption = "aCreate Assets Handling" + Me.aCreateAssetsHandling.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateAssetsHandling.Id = "aCreateAssetsHandling" + Me.aCreateAssetsHandling.ImageName = "cube_green_new" + Me.aCreateAssetsHandling.Shortcut = Nothing + Me.aCreateAssetsHandling.Tag = Nothing + Me.aCreateAssetsHandling.TargetObjectsCriteria = Nothing + Me.aCreateAssetsHandling.TargetViewId = "AssetsPCIHeader_DetailView" + Me.aCreateAssetsHandling.ToolTip = Nothing + Me.aCreateAssetsHandling.TypeOfView = Nothing + ' + 'aViewAttachments_AssetsHandling + ' + Me.aViewAttachments_AssetsHandling.Caption = "View attachments" + Me.aViewAttachments_AssetsHandling.ConfirmationMessage = Nothing + Me.aViewAttachments_AssetsHandling.Id = "aViewAttachments_AssetsHandling" + Me.aViewAttachments_AssetsHandling.ImageName = "printer_view" + Me.aViewAttachments_AssetsHandling.Shortcut = Nothing + Me.aViewAttachments_AssetsHandling.Tag = Nothing + Me.aViewAttachments_AssetsHandling.TargetObjectsCriteria = Nothing + Me.aViewAttachments_AssetsHandling.TargetViewId = "AssetsPCIHeader_AssetsPCIRows_ListView" + Me.aViewAttachments_AssetsHandling.ToolTip = Nothing + Me.aViewAttachments_AssetsHandling.TypeOfView = Nothing + ' + 'aPrintAssetsHandling + ' + Me.aPrintAssetsHandling.Caption = "Print I." + Me.aPrintAssetsHandling.ConfirmationMessage = "Do you want to print ?" + Me.aPrintAssetsHandling.Id = "aPrintAssetsHandling" + Me.aPrintAssetsHandling.ImageName = "Action_Printing_Print" + Me.aPrintAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPrintAssetsHandling.Shortcut = Nothing + Me.aPrintAssetsHandling.Tag = Nothing + Me.aPrintAssetsHandling.TargetObjectsCriteria = Nothing + Me.aPrintAssetsHandling.TargetViewId = "" + Me.aPrintAssetsHandling.ToolTip = Nothing + Me.aPrintAssetsHandling.TypeOfView = Nothing + ' + 'aPrintAssetsHandling2 + ' + Me.aPrintAssetsHandling2.Caption = "Print II." + Me.aPrintAssetsHandling2.ConfirmationMessage = "Do you want to print ?" + Me.aPrintAssetsHandling2.Id = "aPrintAssetsHandling2" + Me.aPrintAssetsHandling2.ImageName = "Action_Printing_Print" + Me.aPrintAssetsHandling2.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPrintAssetsHandling2.Shortcut = Nothing + Me.aPrintAssetsHandling2.Tag = Nothing + Me.aPrintAssetsHandling2.TargetObjectsCriteria = Nothing + Me.aPrintAssetsHandling2.TargetViewId = "" + Me.aPrintAssetsHandling2.ToolTip = Nothing + Me.aPrintAssetsHandling2.TypeOfView = Nothing + ' + 'aViewLateCharges + ' + Me.aViewLateCharges.AcceptButtonCaption = Nothing + Me.aViewLateCharges.CancelButtonCaption = Nothing + Me.aViewLateCharges.Caption = "View Late Charges" + Me.aViewLateCharges.ConfirmationMessage = Nothing + Me.aViewLateCharges.Id = "aViewLateCharges" + Me.aViewLateCharges.ImageName = Nothing + Me.aViewLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewLateCharges.Shortcut = Nothing + Me.aViewLateCharges.Tag = Nothing + Me.aViewLateCharges.TargetObjectsCriteria = Nothing + Me.aViewLateCharges.TargetViewId = "" + Me.aViewLateCharges.ToolTip = Nothing + Me.aViewLateCharges.TypeOfView = Nothing + ' + 'aCreateLateCharges + ' + Me.aCreateLateCharges.Caption = "aCreate Late Charges" + Me.aCreateLateCharges.Category = "ObjectsCreation" + Me.aCreateLateCharges.ConfirmationMessage = Nothing + Me.aCreateLateCharges.Id = "aCreateLateCharges" + Me.aCreateLateCharges.ImageName = Nothing + Me.aCreateLateCharges.Shortcut = Nothing + Me.aCreateLateCharges.Tag = Nothing + Me.aCreateLateCharges.TargetObjectsCriteria = Nothing + Me.aCreateLateCharges.TargetViewId = "" + Me.aCreateLateCharges.ToolTip = Nothing + Me.aCreateLateCharges.TypeOfView = Nothing + ' + 'aCountLateCharges + ' + Me.aCountLateCharges.Caption = "aCount Late Charges" + Me.aCountLateCharges.Category = "ObjectsCreation" + Me.aCountLateCharges.ConfirmationMessage = "Do you want to execute command ?" + Me.aCountLateCharges.Id = "aCountLateCharges" + Me.aCountLateCharges.ImageName = Nothing + Me.aCountLateCharges.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCountLateCharges.Shortcut = Nothing + Me.aCountLateCharges.Tag = Nothing + Me.aCountLateCharges.TargetObjectsCriteria = Nothing + Me.aCountLateCharges.TargetViewId = "" + Me.aCountLateCharges.ToolTip = Nothing + Me.aCountLateCharges.TypeOfView = Nothing + ' + 'aNoAssetsHandling + ' + Me.aNoAssetsHandling.Caption = "aNo Assets Handling" + Me.aNoAssetsHandling.ConfirmationMessage = "Do you want to execute command ?" + Me.aNoAssetsHandling.Id = "aNoAssetsHandling" + Me.aNoAssetsHandling.ImageName = Nothing + Me.aNoAssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aNoAssetsHandling.Shortcut = Nothing + Me.aNoAssetsHandling.Tag = Nothing + Me.aNoAssetsHandling.TargetObjectsCriteria = Nothing + Me.aNoAssetsHandling.TargetViewId = "" + Me.aNoAssetsHandling.ToolTip = Nothing + Me.aNoAssetsHandling.TypeOfView = Nothing + ' + 'aPrintAssetsHandling3 + ' + Me.aPrintAssetsHandling3.Caption = "Print III." + Me.aPrintAssetsHandling3.ConfirmationMessage = "Do you want to print ?" + Me.aPrintAssetsHandling3.Id = "aPrintAssetsHandling3" + Me.aPrintAssetsHandling3.ImageName = "Action_Printing_Print" + Me.aPrintAssetsHandling3.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPrintAssetsHandling3.Shortcut = Nothing + Me.aPrintAssetsHandling3.Tag = Nothing + Me.aPrintAssetsHandling3.TargetObjectsCriteria = Nothing + Me.aPrintAssetsHandling3.TargetViewId = Nothing + Me.aPrintAssetsHandling3.ToolTip = Nothing + Me.aPrintAssetsHandling3.TypeOfView = Nothing + ' + 'aPrintLateChargesDocument + ' + Me.aPrintLateChargesDocument.Caption = "aPrint Late Charges Document" + Me.aPrintLateChargesDocument.ConfirmationMessage = Nothing + Me.aPrintLateChargesDocument.Id = "aPrintLateChargesDocument" + Me.aPrintLateChargesDocument.ImageName = Nothing + Me.aPrintLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintLateChargesDocument.Shortcut = Nothing + Me.aPrintLateChargesDocument.Tag = Nothing + Me.aPrintLateChargesDocument.TargetObjectsCriteria = Nothing + Me.aPrintLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay" + Me.aPrintLateChargesDocument.ToolTip = Nothing + Me.aPrintLateChargesDocument.TypeOfView = Nothing + ' + 'aViewCPBAssetsPCIRows_ListView + ' + Me.aViewCPBAssetsPCIRows_ListView.Caption = "aViewCPBAssetsPCIRows_ListView" + Me.aViewCPBAssetsPCIRows_ListView.ConfirmationMessage = Nothing + Me.aViewCPBAssetsPCIRows_ListView.Id = "aViewCPBAssetsPCIRows_ListView" + Me.aViewCPBAssetsPCIRows_ListView.ImageName = Nothing + Me.aViewCPBAssetsPCIRows_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewCPBAssetsPCIRows_ListView.Shortcut = Nothing + Me.aViewCPBAssetsPCIRows_ListView.Tag = Nothing + Me.aViewCPBAssetsPCIRows_ListView.TargetObjectsCriteria = Nothing + Me.aViewCPBAssetsPCIRows_ListView.TargetObjectType = GetType(SISBusiness.[Module].AssetsPCIRows) + Me.aViewCPBAssetsPCIRows_ListView.TargetViewId = "" + Me.aViewCPBAssetsPCIRows_ListView.ToolTip = Nothing + Me.aViewCPBAssetsPCIRows_ListView.TypeOfView = Nothing + ' + 'aViewCPBAssetsHandling_ListView + ' + Me.aViewCPBAssetsHandling_ListView.Caption = "aViewCPBAssetsHandling_ListView" + Me.aViewCPBAssetsHandling_ListView.ConfirmationMessage = Nothing + Me.aViewCPBAssetsHandling_ListView.Id = "aViewCPBAssetsHandling_ListView" + Me.aViewCPBAssetsHandling_ListView.ImageName = Nothing + Me.aViewCPBAssetsHandling_ListView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewCPBAssetsHandling_ListView.Shortcut = Nothing + Me.aViewCPBAssetsHandling_ListView.Tag = Nothing + Me.aViewCPBAssetsHandling_ListView.TargetObjectsCriteria = Nothing + Me.aViewCPBAssetsHandling_ListView.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandling) + Me.aViewCPBAssetsHandling_ListView.TargetViewId = "" + Me.aViewCPBAssetsHandling_ListView.ToolTip = Nothing + Me.aViewCPBAssetsHandling_ListView.TypeOfView = Nothing + ' + 'aViewPCIDW_AssetsPCIRows + ' + Me.aViewPCIDW_AssetsPCIRows.Caption = "aViewPCIDW_AssetsPCIRows" + Me.aViewPCIDW_AssetsPCIRows.ConfirmationMessage = Nothing + Me.aViewPCIDW_AssetsPCIRows.Id = "aViewPCIDW_AssetsPCIRows" + Me.aViewPCIDW_AssetsPCIRows.ImageName = Nothing + Me.aViewPCIDW_AssetsPCIRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDW_AssetsPCIRows.Shortcut = Nothing + Me.aViewPCIDW_AssetsPCIRows.Tag = Nothing + Me.aViewPCIDW_AssetsPCIRows.TargetObjectsCriteria = Nothing + Me.aViewPCIDW_AssetsPCIRows.TargetObjectType = GetType(SISBusiness.[Module].AssetsPCIRows) + Me.aViewPCIDW_AssetsPCIRows.TargetViewId = Nothing + Me.aViewPCIDW_AssetsPCIRows.ToolTip = Nothing + Me.aViewPCIDW_AssetsPCIRows.TypeOfView = Nothing + ' + 'aPCIGenerate_AssetsHandling + ' + Me.aPCIGenerate_AssetsHandling.Caption = "aPCIGenerate_AssetsHandling" + Me.aPCIGenerate_AssetsHandling.Category = "ObjectsCreation" + Me.aPCIGenerate_AssetsHandling.ConfirmationMessage = "Are you sure ?" + Me.aPCIGenerate_AssetsHandling.Id = "aPCIGenerate_AssetsHandling" + Me.aPCIGenerate_AssetsHandling.ImageName = Nothing + Me.aPCIGenerate_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCIGenerate_AssetsHandling.Shortcut = Nothing + Me.aPCIGenerate_AssetsHandling.Tag = Nothing + Me.aPCIGenerate_AssetsHandling.TargetObjectsCriteria = Nothing + Me.aPCIGenerate_AssetsHandling.TargetObjectType = GetType(SISBusiness.[Module].AssetsPCIRows) + Me.aPCIGenerate_AssetsHandling.TargetViewId = Nothing + Me.aPCIGenerate_AssetsHandling.ToolTip = Nothing + Me.aPCIGenerate_AssetsHandling.TypeOfView = Nothing + ' + 'aAssetsHandling_CreateSendEmailQueue + ' + Me.aAssetsHandling_CreateSendEmailQueue.Caption = "aAssetsHandling_CreateSendEmailQueue" + Me.aAssetsHandling_CreateSendEmailQueue.ConfirmationMessage = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.Id = "aAssetsHandling_CreateSendEmailQueue" + Me.aAssetsHandling_CreateSendEmailQueue.ImageName = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.Shortcut = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.Tag = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectsCriteria = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandling) + Me.aAssetsHandling_CreateSendEmailQueue.TargetViewId = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.ToolTip = Nothing + Me.aAssetsHandling_CreateSendEmailQueue.TypeOfView = Nothing + ' + 'aAssetsHandling_RemoveSendEmailQueue + ' + Me.aAssetsHandling_RemoveSendEmailQueue.Caption = "aAssetsHandling_RemoveSendEmailQueue" + Me.aAssetsHandling_RemoveSendEmailQueue.ConfirmationMessage = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.Id = "aAssetsHandling_RemoveSendEmailQueue" + Me.aAssetsHandling_RemoveSendEmailQueue.ImageName = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAssetsHandling_RemoveSendEmailQueue.Shortcut = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.Tag = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectsCriteria = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandling) + Me.aAssetsHandling_RemoveSendEmailQueue.TargetViewId = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.ToolTip = Nothing + Me.aAssetsHandling_RemoveSendEmailQueue.TypeOfView = Nothing + ' + 'aAssetsHandling_GroupChange + ' + Me.aAssetsHandling_GroupChange.AcceptButtonCaption = Nothing + Me.aAssetsHandling_GroupChange.CancelButtonCaption = Nothing + Me.aAssetsHandling_GroupChange.Caption = "aAssetsHandling_GroupChange" + Me.aAssetsHandling_GroupChange.ConfirmationMessage = Nothing + Me.aAssetsHandling_GroupChange.Id = "aAssetsHandling_GroupChange" + Me.aAssetsHandling_GroupChange.ImageName = Nothing + Me.aAssetsHandling_GroupChange.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aAssetsHandling_GroupChange.Shortcut = Nothing + Me.aAssetsHandling_GroupChange.Tag = Nothing + Me.aAssetsHandling_GroupChange.TargetObjectsCriteria = Nothing + Me.aAssetsHandling_GroupChange.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandling) + Me.aAssetsHandling_GroupChange.TargetViewId = Nothing + Me.aAssetsHandling_GroupChange.ToolTip = Nothing + Me.aAssetsHandling_GroupChange.TypeOfView = Nothing + ' + 'aViewLateCharges_AssetsHandling + ' + Me.aViewLateCharges_AssetsHandling.AcceptButtonCaption = Nothing + Me.aViewLateCharges_AssetsHandling.CancelButtonCaption = Nothing + Me.aViewLateCharges_AssetsHandling.Caption = "View Late Charges" + Me.aViewLateCharges_AssetsHandling.ConfirmationMessage = Nothing + Me.aViewLateCharges_AssetsHandling.Id = "aViewLateCharges_AssetsHandling" + Me.aViewLateCharges_AssetsHandling.ImageName = Nothing + Me.aViewLateCharges_AssetsHandling.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewLateCharges_AssetsHandling.Shortcut = Nothing + Me.aViewLateCharges_AssetsHandling.Tag = Nothing + Me.aViewLateCharges_AssetsHandling.TargetObjectsCriteria = Nothing + Me.aViewLateCharges_AssetsHandling.TargetObjectType = GetType(SISBusiness.[Module].AssetsHandling) + Me.aViewLateCharges_AssetsHandling.TargetViewId = "" + Me.aViewLateCharges_AssetsHandling.ToolTip = Nothing + Me.aViewLateCharges_AssetsHandling.TypeOfView = Nothing + ' + 'aSelectCustomersFromAssetsHandlingPCI + ' + Me.aSelectCustomersFromAssetsHandlingPCI.AcceptButtonCaption = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.CancelButtonCaption = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.Caption = "Select CustomersFrom" + Me.aSelectCustomersFromAssetsHandlingPCI.ConfirmationMessage = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.Id = "aSelectCustomersFromAssetsHandlingPCI" + Me.aSelectCustomersFromAssetsHandlingPCI.ImageName = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.Shortcut = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.Tag = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectsCriteria = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.TargetObjectType = GetType(SISBusiness.[Module].AssetsPCICustomersFrom) + Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewId = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSelectCustomersFromAssetsHandlingPCI.ToolTip = Nothing + Me.aSelectCustomersFromAssetsHandlingPCI.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCreateLateChargesDocument + ' + Me.aCreateLateChargesDocument.AcceptButtonCaption = Nothing + Me.aCreateLateChargesDocument.CancelButtonCaption = Nothing + Me.aCreateLateChargesDocument.Caption = "aCreate Late Charges Document" + Me.aCreateLateChargesDocument.ConfirmationMessage = Nothing + Me.aCreateLateChargesDocument.Id = "aCreateLateChargesDocument" + Me.aCreateLateChargesDocument.ImageName = Nothing + Me.aCreateLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateLateChargesDocument.Shortcut = Nothing + Me.aCreateLateChargesDocument.Tag = Nothing + Me.aCreateLateChargesDocument.TargetObjectsCriteria = Nothing + Me.aCreateLateChargesDocument.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aCreateLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay" + Me.aCreateLateChargesDocument.ToolTip = Nothing + Me.aCreateLateChargesDocument.TypeOfView = Nothing + ' + 'aRemoveLateChargesDocument + ' + Me.aRemoveLateChargesDocument.Caption = "aRemove Late Charges Document" + Me.aRemoveLateChargesDocument.ConfirmationMessage = "Do you want to execute ?" + Me.aRemoveLateChargesDocument.Id = "aRemoveLateChargesDocument" + Me.aRemoveLateChargesDocument.ImageName = Nothing + Me.aRemoveLateChargesDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRemoveLateChargesDocument.Shortcut = Nothing + Me.aRemoveLateChargesDocument.Tag = Nothing + Me.aRemoveLateChargesDocument.TargetObjectsCriteria = Nothing + Me.aRemoveLateChargesDocument.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aRemoveLateChargesDocument.TargetViewId = "PCIGroup_ListView_DelayedPay" + Me.aRemoveLateChargesDocument.ToolTip = Nothing + Me.aRemoveLateChargesDocument.TypeOfView = Nothing + + End Sub + Friend WithEvents aGenerateAssetsReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintAssetsHandling2 As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewLateCharges As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateLateCharges As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCountLateCharges As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aNoAssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewCPBAssetsPCIRows_ListView As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewCPBAssetsHandling_ListView As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDW_AssetsPCIRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCIGenerate_AssetsHandling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAssetsHandling_CreateSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAssetsHandling_RemoveSendEmailQueue As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aAssetsHandling_GroupChange As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewLateCharges_AssetsHandling As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSelectCustomersFromAssetsHandlingPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPrintAssetsHandling3 As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateLateChargesDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRemoveLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintLateChargesDocument As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.resx new file mode 100644 index 0000000..a5403d9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.resx @@ -0,0 +1,189 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 194, 173 + + + 17, 173 + + + 834, 134 + + + 460, 17 + + + 660, 134 + + + 509, 134 + + + 349, 134 + + + 959, 95 + + + 191, 134 + + + 17, 134 + + + 905, 17 + + + 723, 95 + + + 257, 56 + + + 515, 95 + + + 301, 95 + + + 719, 56 + + + 17, 95 + + + 496, 56 + + + 17, 56 + + + 627, 17 + + + 243, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb new file mode 100644 index 0000000..33a8324 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/AssetsPCIVC.vb @@ -0,0 +1,1440 @@ + + +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 System.Linq +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class AssetsPCIVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public selection As ArrayList + Private _ActiveForm As Boolean + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + selection = New ArrayList + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aCountLateCharges.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aNoAssetsHandling.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", False) + + If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True) + End If + If View.Id = "PCIGroup_ListView_DelayedPay" Then + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aViewLateCharges.Active.SetItemValue("", True) + End If + If View.Id = "AssetsHandling_ListView_Active" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Enabled.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aCountLateCharges.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aNoAssetsHandling.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "AssetsHandling_ListView_All" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + If TryCast(SecuritySystem.CurrentUser, User).UserName <> "SysAdmin" Then Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aCountLateCharges.Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aNoAssetsHandling.Active.SetItemValue("", True) + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Active.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aCreateLateCharges.Active.SetItemValue("", False) + + If View.Id Like "AssetsPCIHeader_AssetsPCIRows_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + + If View.Id = "AssetsHandling_ListView_Active" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + + If View.Id = "AssetsHandling_ListView_All" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _AssetsHandling As AssetsHandling = Nothing + + If View.SelectedObjects.Count > 0 Then + _AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + Else + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Enabled.SetItemValue("", False) + End If + + If _AssetsHandling IsNot Nothing Then + If _AssetsHandling.IsActive = True Then + If _AssetsHandling.QueueIndex = 0 Then + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Enabled.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Enabled.SetItemValue("", False) + End If + If _AssetsHandling.QueueIndex = 1 Then + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Enabled.SetItemValue("", True) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Enabled.SetItemValue("", False) + End If + If _AssetsHandling.QueueIndex = 2 Then + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Enabled.SetItemValue("", True) + End If + Else + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling2.Enabled.SetItemValue("", False) + Frame.GetController(Of AssetsPCIVC).aPrintAssetsHandling3.Enabled.SetItemValue("", False) + End If + End If + End Sub + Private Sub aPrintAssetsHandling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintAssetsHandling.Execute + '-- Ez egy begets !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _AssetsHandlingParameter As AssetsHandlingParameter + Dim _AssetsHandling As AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + + If _AssetsHandling Is Nothing Then Exit Sub + _AssetsHandlingParameter = _ocur.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _AssetsHandling.CustomersFrom)) + If _AssetsHandlingParameter IsNot Nothing Then + _ReportData = _AssetsHandlingParameter.ReportData + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("QueueIndex=0 and IsActive=True and NoAssetsHandling=False and CustomersFrom=?", _AssetsHandling.CustomersFrom), True) + Else + Throw New UserFriendlyException("Nincs belltva a fizetsi felszltsi nyomtatvny.") + End If + End If + End Sub + Private Sub aPrintAssetsHandling2_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintAssetsHandling2.Execute + '-- Ez egy begets !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _AssetsHandlingParameter As AssetsHandlingParameter + Dim _AssetsHandling As AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + + If _AssetsHandling Is Nothing Then Exit Sub + _AssetsHandlingParameter = _ocur.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _AssetsHandling.CustomersFrom)) + If _AssetsHandlingParameter IsNot Nothing Then + _ReportData = _AssetsHandlingParameter.ReportData2 + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("QueueIndex=1 and IsActive=True and NoAssetsHandling=False and CustomersFrom=?", _AssetsHandling.CustomersFrom), True) + Else + Throw New UserFriendlyException("Nincs belltva a fizetsi felszltsi nyomtatvny.") + End If + End If + End Sub + Private Sub aPrintAssetsHandling3_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintAssetsHandling3.Execute + '-- Ez egy begets !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _AssetsHandlingParameter As AssetsHandlingParameter + Dim _AssetsHandling As AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + + If _AssetsHandling Is Nothing Then Exit Sub + _AssetsHandlingParameter = _ocur.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _AssetsHandling.CustomersFrom)) + If _AssetsHandlingParameter IsNot Nothing Then + _ReportData = _AssetsHandlingParameter.ReportData3 + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("QueueIndex=2 and IsActive=True and NoAssetsHandling=False and CustomersFrom=?", _AssetsHandling.CustomersFrom), True) + Else + Throw New UserFriendlyException("Nincs belltva a fizetsi felszltsi nyomtatvny.") + End If + End If + End Sub + + Private Sub aGenerateAssetsReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateAssetsReport.Execute + '-- Az adott zrdtumra vonatkoz partner connection infot adja meg + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + Dim _AssetsPCIRows As AssetsPCIRows + + Dim _AssetsPCIHeader As AssetsPCIHeader = _uow.GetObjectByKey(Of AssetsPCIHeader) _ + (TryCast(View.SelectedObjects(0), AssetsPCIHeader).Oid) + + If _AssetsPCIHeader Is Nothing Then Exit Sub + + _AssetsPCIHeader.Save() + + + Dim _AssetsPCIRows_Collection As New XPCollection(Of AssetsPCIRows) _ + (_uow, CriteriaOperator.Parse("AssetsPCIHeader=?", _AssetsPCIHeader)) + _uow.Delete(_AssetsPCIRows_Collection) + _uow.CommitChanges() + Try + '-- Lekrdezs, adott teljestsi dtumig trtn lekrdezs LINQ paranccsal + '_PCI.Customers.IsAssetsHandling = True And + Dim _AssetsPCICustomersFrom_XPQuery As New XPQuery(Of AssetsPCICustomersFrom)(_uow) + Dim cquery = From _AssetsPCICustomersFrom_LINQ In _AssetsPCICustomersFrom_XPQuery + Where _AssetsPCICustomersFrom_LINQ.AssetsPCIHeader.Oid = _AssetsPCIHeader.Oid + Select _AssetsPCICustomersFrom_LINQ.CustomersFrom.Oid + + + Dim PCI As New XPQuery(Of PCIDetail)(_uow, True) + Dim query = From _PCI In PCI + Where _PCI.DateExecution.Date <= _AssetsPCIHeader.DateClose.Date And + _PCI.Customers IsNot Nothing And + String.IsNullOrEmpty(_PCI.ConnectInfo) = False And + _PCI.PartnerType = ePartnerType.eReceivables And + _PCI.Customers.IsAssetsHandling = True And + cquery.Contains(_PCI.CustomersFrom.Oid) And + _PCI.DatePayment_Account.Date <= _AssetsPCIHeader.DateClose.Date And + String.IsNullOrEmpty(_PCI.DateExecution_Account) = False + Group _PCI By _PCI.CustomersFrom, _ + _PCI.Customers, _ + _PCI.PartnerType, _ + _PCI.CurrencyName_Account, _ + _PCI.ConnectInfo Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, _ + Key .ConnectInfo = ConnectInfo, _ + Key .CurrencyName_Account = CurrencyName_Account, + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _ + Key .AmountHUF_Account = g.Sum(Function(inv) inv.AmountHUF_Account), _ + Key .AmountDEV_Account = g.Sum(Function(inv) inv.AmountDEV_Account), _ + Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _ + Key .DelayedDay = g.Max(Function(inv) inv.DelayedDay), _ + Key .DateExecution = g.Max(Function(inv) inv.DateExecution), _ + Key .DateCreated = g.Max(Function(inv) inv.DateCreated)} + + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + If item.CurrencyName_Account IsNot Nothing Then + If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) > 0 And item.CurrencyName_Account.ShortName = "HUF" Then + If _AssetsPCIHeader.QueryCustomersFrom = True Then + _AssetsPCIRows = New AssetsPCIRows(_uow) + _AssetsPCIRows.AssetsPCIHeader = _AssetsPCIHeader + _AssetsPCIRows.CustomersFrom = item.CustomersFrom + _AssetsPCIRows.Customers = item.Customers + _AssetsPCIRows.DateExecution = item.DateExecution + _AssetsPCIRows.DateCreated = item.DateCreated + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.BallanceDEV = item.BallanceDEV + _AssetsPCIRows.BallanceHUF = item.BallanceHUF + _AssetsPCIRows.ConnectInfo = item.ConnectInfo + _AssetsPCIRows.CurrencyName = item.CurrencyName_Account + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.DelayedDay = item.DelayedDay + _AssetsPCIRows.PartnerType = item.PartnerType + _AssetsPCIRows.AmountDEV_Account = item.AmountDEV_Account + _AssetsPCIRows.AmountHUF_Account = item.AmountHUF_Account + Else + If TryCast(item.Customers, CustomersFrom) Is Nothing Then + _AssetsPCIRows = New AssetsPCIRows(_uow) + _AssetsPCIRows.AssetsPCIHeader = _AssetsPCIHeader + _AssetsPCIRows.CustomersFrom = item.CustomersFrom + _AssetsPCIRows.Customers = item.Customers + _AssetsPCIRows.DateExecution = item.DateExecution + _AssetsPCIRows.DateCreated = item.DateCreated + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.BallanceDEV = item.BallanceDEV + _AssetsPCIRows.BallanceHUF = item.BallanceHUF + _AssetsPCIRows.ConnectInfo = item.ConnectInfo + _AssetsPCIRows.CurrencyName = item.CurrencyName_Account + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.DelayedDay = item.DelayedDay + _AssetsPCIRows.PartnerType = item.PartnerType + _AssetsPCIRows.AmountDEV_Account = item.AmountDEV_Account + _AssetsPCIRows.AmountHUF_Account = item.AmountHUF_Account + End If + + End If + End If + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) > 0 And item.CurrencyName_Account.ShortName <> "HUF" Then + If TryCast(item.Customers, CustomersFrom) Is Nothing Then + _AssetsPCIRows = New AssetsPCIRows(_uow) + _AssetsPCIRows.AssetsPCIHeader = _AssetsPCIHeader + _AssetsPCIRows.CustomersFrom = item.CustomersFrom + _AssetsPCIRows.Customers = item.Customers + _AssetsPCIRows.DateExecution = item.DateExecution + _AssetsPCIRows.DateCreated = item.DateCreated + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.BallanceDEV = item.BallanceDEV + _AssetsPCIRows.BallanceHUF = item.BallanceHUF + _AssetsPCIRows.ConnectInfo = item.ConnectInfo + _AssetsPCIRows.CurrencyName = item.CurrencyName_Account + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.DelayedDay = item.DelayedDay + _AssetsPCIRows.PartnerType = item.PartnerType + _AssetsPCIRows.AmountDEV_Account = item.AmountDEV_Account + _AssetsPCIRows.AmountHUF_Account = item.AmountHUF_Account + Else + If TryCast(item.Customers, CustomersFrom) IsNot Nothing Then + _AssetsPCIRows = New AssetsPCIRows(_uow) + _AssetsPCIRows.AssetsPCIHeader = _AssetsPCIHeader + _AssetsPCIRows.CustomersFrom = item.CustomersFrom + _AssetsPCIRows.Customers = item.Customers + _AssetsPCIRows.DateExecution = item.DateExecution + _AssetsPCIRows.DateCreated = item.DateCreated + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.BallanceDEV = item.BallanceDEV + _AssetsPCIRows.BallanceHUF = item.BallanceHUF + _AssetsPCIRows.ConnectInfo = item.ConnectInfo + _AssetsPCIRows.CurrencyName = item.CurrencyName_Account + _AssetsPCIRows.DatePayment = item.DatePayment + _AssetsPCIRows.DelayedDay = item.DelayedDay + _AssetsPCIRows.PartnerType = item.PartnerType + _AssetsPCIRows.AmountDEV_Account = item.AmountDEV_Account + _AssetsPCIRows.AmountHUF_Account = item.AmountHUF_Account + End If + End If + End If + End If + RaiseEvent DoWork() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + Catch ex As Exception + RaiseEvent FinalWork + MsgBox(ex.Message) + End Try + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aViewAttachments_AssetsHandling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_AssetsHandling.Execute + Dim _AssetsPCIRows As AssetsPCIRows + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _DocumentNumber As String + + If View.SelectedObjects.Count > 0 Then + _AssetsPCIRows = TryCast(View.SelectedObjects(0), AssetsPCIRows) + _CustomersFrom = _AssetsPCIRows.CustomersFrom + _Customers = _AssetsPCIRows.Customers + _DocumentNumber = _AssetsPCIRows.ConnectInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + Else + Throw New UserFriendlyException("Nincs kivlasztott elem.") + End If + End Sub + Private Sub aCreateAssetsHandling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateAssetsHandling.Execute + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _AssetsPCIHeader As AssetsPCIHeader = TryCast(View.SelectedObjects(0), AssetsPCIHeader) + Dim _AssetsPCIRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("AssetsPCIRows") + + Dim _AssetsPCIRows As AssetsPCIRows + + Dim _AssetsHandling As AssetsHandling + Dim _AssetsHandling_Last As AssetsHandling + Dim _AssetsHandling_Last_Collection As XPCollection(Of AssetsHandling) + Dim _AssetsHandlingParameter As AssetsHandlingParameter + Dim _InvoiceHeader As InvoiceHeader + Dim I As Long = 0 + Dim _QueueIndex As Long = 1 + Dim _SysDate As Date = GetSQLTime(_ocur.Session).Date + + Dim _Customers As Customers + Dim _CustomersFrom As CustomersFrom + + 'Dim _AssetsHandling_IsActiveCollection As New XPCollection(Of AssetsHandling)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid=? And IsActive=True ", _AssetsPCIHeader.CustomersFrom.Oid)) + ' + 'RaiseEvent InitWork(1, 1, _AssetsHandling_IsActiveCollection.Count) + 'For Each _AssetsHandling In _AssetsHandling_IsActiveCollection + ' I += 1 + ' _AssetsHandling.IsActive = False + ' RaiseEvent DoWork() + ' If I Mod 1000 = 0 Then _uow.CommitChanges() + 'Next + '_uow.CommitChanges() + 'RaiseEvent FinalWork + + RaiseEvent InitWork(1, 1, _AssetsPCIRows_ListEditor.ListView.CollectionSource.List.Count) + For Each _AssetsPCIRows In _AssetsPCIRows_ListEditor.ListView.CollectionSource.List + I += 1 + _QueueIndex = 0 + + _Customers = _uow.GetObjectByKey(Of Customers)(_AssetsPCIRows.Customers.Oid) + _CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_AssetsPCIRows.CustomersFrom.Oid) + + _AssetsHandling_Last_Collection = New XPCollection(Of AssetsHandling)(_uow, CriteriaOperator.Parse("Customers=? And CustomersFrom=? And DocumentNumber=?", _ + _Customers, _CustomersFrom, _AssetsPCIRows.ConnectInfo)) + + _AssetsHandling_Last_Collection.Sorting().Add(New SortProperty("QueueIndex", DB.SortingDirection.Descending)) + '_QueueIndex = _AssetsHandling_Last_Collection(0).QueueIndex + 1 + + For Each _AssetsHandling_Last In _AssetsHandling_Last_Collection + _QueueIndex = _AssetsHandling_Last.QueueIndex + Exit For + Next + + _AssetsHandlingParameter = _uow.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _CustomersFrom)) + + RaiseEvent DoWork() + If _AssetsHandlingParameter IsNot Nothing Then + + + + If (_QueueIndex = 0 And _SysDate >= _AssetsPCIRows.DatePayment.Date.AddDays(_AssetsHandlingParameter.TolerationDay1)) Or _ + (_QueueIndex = 1 And _SysDate >= _AssetsPCIRows.DatePayment.Date.AddDays(_AssetsHandlingParameter.TolerationDay2)) Then + + For Each _AssetsHandling_Last In _AssetsHandling_Last_Collection + _AssetsHandling_Last.IsActive = False 'Az elz rekordok nem lehetnek aktvak. + Next + + _AssetsHandling = New AssetsHandling(_uow) + + _AssetsHandling.QueueIndex = _QueueIndex + + _AssetsHandling.AmountDEV_Account = _AssetsPCIRows.AmountDEV_Account + _AssetsHandling.AmountHUF_Account = _AssetsPCIRows.AmountHUF_Account + _AssetsHandling.BalanceDEV = _AssetsPCIRows.BallanceDEV + _AssetsHandling.BalanceHUF = _AssetsPCIRows.BallanceHUF + _AssetsHandling.CustomersFrom = _CustomersFrom + _AssetsHandling.Customers = _Customers + _AssetsHandling.DateClose = _AssetsPCIRows.AssetsPCIHeader.DateClose + _AssetsHandling.DatePayment = _AssetsPCIRows.DatePayment + _AssetsHandling.DateExecution = _AssetsPCIHeader.DateExecution + _AssetsHandling.DocumentNumber = _AssetsPCIRows.ConnectInfo + _AssetsHandling.DateCreated = _AssetsPCIRows.DateCreated + _AssetsHandling.IsActive = True + If _AssetsPCIRows.Customers.IsAssetsHandling Then + Else + _AssetsHandling.NoAssetsHandling = True + End If + _InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", _CustomersFrom, _Customers, _AssetsHandling.DocumentNumber)) + _AssetsHandling.InvoiceHeader = _InvoiceHeader + If _AssetsHandling.InvoiceHeader IsNot Nothing Then + If _AssetsHandling.InvoiceHeader.AssetsHandlingStatus IsNot Nothing Then + If _AssetsHandling.InvoiceHeader.AssetsHandlingStatus.QueueIndex > 0 Then + _AssetsHandling.QueueIndex = _AssetsHandling.InvoiceHeader.AssetsHandlingStatus.QueueIndex + End If + End If + End If + End If + End If + If I Mod 1000 = 0 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aViewLateCharges_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aViewLateCharges.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CS As New CollectionSource(_onew, GetType(LateCharges)) + If View.Id = "PCIGroup_ListView_DelayedPay" Then + Dim _PCIGroup As PCIGroup + Dim _InvoiceHeader As InvoiceHeader + _PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + If _PCIGroup IsNot Nothing Then + _invoiceheader = _PCIGroup.InvoiceHeader + If _InvoiceHeader IsNot Nothing Then + + CreateLateCharges(_ocur.Session, _InvoiceHeader, Now, True, True) + + _ocur.CommitChanges() + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid) + _CS.EndUpdateCriteria() + + _CS.Sorting.Clear() + _CS.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + + e.View = Application.CreateListView("LateCharges_ListView_Info", _CS, False) + End If + End If + Else + If View.SelectedObjects.Count > 0 Then + Dim _AssetsPCIRows As AssetsPCIRows = TryCast(View.SelectedObjects(0), AssetsPCIRows) + Dim _CustomersFrom As CustomersFrom = _AssetsPCIRows.CustomersFrom + Dim _Customers As Customers = _AssetsPCIRows.Customers + Dim _DocumentNumber As String = _AssetsPCIRows.ConnectInfo + Dim _DateClose As Date = _AssetsPCIRows.AssetsPCIHeader.DateClose + + Dim _InvoiceHeader As InvoiceHeader = _ocur.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", + _CustomersFrom, _Customers, _DocumentNumber)) + + If _InvoiceHeader IsNot Nothing Then + + CreateLateCharges(_ocur.Session, _InvoiceHeader, _DateClose, True, True) + + _ocur.CommitChanges() + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid) + _CS.EndUpdateCriteria() + + _CS.Sorting.Clear() + _CS.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + + e.View = Application.CreateListView("LateCharges_ListView_Info", _CS, False) + End If + Else + Throw New UserFriendlyException("Nincs kivlasztott elem.") + End If + End If + + + End Sub + Private Sub aViewLateCharges_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aViewLateCharges.Execute + End Sub + Sub CreateLateCharges(_Session As Session, _pInvoiceHeader As InvoiceHeader, _pDateClose As Date, Optional _WithTransaction As Boolean = False, Optional _StatusBar As Boolean = False) + Dim _uow As New UnitOfWork(_Session.DataLayer) + Dim _EmptyDate As Date = New Date + Dim _InvoiceHeader As InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_pInvoiceHeader.Oid) + Dim _MaxCount As Long = Math.Abs(DateDiff(DateInterval.Day, _InvoiceHeader.DatePayment.Date, _pDateClose)) + Dim _I As Long = 0 + Dim _TotalBruttoPayedBefore As Double = 0 + Dim _MoneyRate As MoneyRate = Nothing + Dim _MoneyRate_Collection As New XPCollection(Of MoneyRate)(_uow) 'Alapkamat rekordok sszegyjtse + _MoneyRate_Collection.Sorting.Add(New SortProperty("DateFrom", DB.SortingDirection.Ascending)) + Dim _LateChargesCountMode As LateChargesCountMode = Nothing + Dim _LateCharges As LateCharges = Nothing + Dim _LateCharges_Collection As New XPCollection(Of LateCharges)(_uow, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader.Oid)) + _uow.Delete(_LateCharges_Collection) + + 'Az sszes a lejratot megelz fizetssel a kollekcit nvelni kell + Dim _PCID_Before As PCIDetail = Nothing + Dim _PCID_Before_Collection As New XPCollection(Of PCIDetail) _ + (_uow, CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=0 and ConnectInfo=? and MainType <>'01-Account' and MainType<>'06-Latecharge' and GetDate(DateExecution)<=?", _ + _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber, _InvoiceHeader.DatePayment.Date)) + For Each _PCID_Before In _PCID_Before_Collection + _TotalBruttoPayedBefore += _PCID_Before.BallanceHUF + Next + + For _I = 0 To _MaxCount + _LateCharges = New LateCharges(_uow) + _LateCharges.InvoiceHeader = _InvoiceHeader + _LateCharges.DateExecution = DateAdd(DateInterval.Day, _I, _InvoiceHeader.DatePayment.Date) + If _I = 0 Then + _LateCharges.DebitHUF = _InvoiceHeader.TotalBruttoHUF + _TotalBruttoPayedBefore + Else + '// Napi ksedelmi kamat kikeresse ------------ + 'Elszr a szerzdsben keressk, mi a ksedelemi kamat. + If _InvoiceHeader.Customers.LateChargesCountMode IsNot Nothing Then + _LateChargesCountMode = _InvoiceHeader.Customers.LateChargesCountMode + End If + + 'Msodszor a szerzdsben keressk, mi a ksedelemi kamat. Ez akkor fellbrlja a szerzds adatait. + If _InvoiceHeader.LateChargesCountMode IsNot Nothing Then + _LateChargesCountMode = _InvoiceHeader.LateChargesCountMode + End If + + For Each _MoneyRate In _MoneyRate_Collection ' A MoneyRate objektum egy pldnynak gy kell tartalmaznia az aktulis kamatot, hogy az rvnyessg els s utols napja szerepeljen benne. + If _LateCharges.DateExecution.Date >= _MoneyRate.DateFrom.Date And (_MoneyRate.DateTo.Date = _EmptyDate.Date Or _LateCharges.DateExecution.Date <= _MoneyRate.DateTo.Date) Then + Exit For + End If + _MoneyRate = Nothing + Next + + If _LateChargesCountMode IsNot Nothing Then + If _LateChargesCountMode.LCCountMode = eLCCountMode.eFix Then 'Ha fix rtket tartalmaz a kamatszmts-rekord, akkor azt vesszk figyelembe. + _LateCharges.CurrentLateChargesPercent = _LateChargesCountMode.LCValue / 100 + Else + If _MoneyRate IsNot Nothing Then 'Ellenkez esetben a kamattblzatbl kikeresett rtket hasznljuk, a s szorozzuk a kamatszmts-rekord rtkvel. + _LateCharges.CurrentLateChargesPercent = (_MoneyRate.KeyValue / 100) * _LateChargesCountMode.LCValue + End If + End If + Else + If _MoneyRate IsNot Nothing Then + _LateCharges.CurrentLateChargesPercent = (_MoneyRate.KeyValue / 100) * 2 + End If + End If + + If _MoneyRate Is Nothing Then 'Ha nem sikerlt beazonostani a ksedelmi kamat mrtkt. + _LateCharges.CurrentLateChargesPercent = 0 + End If + + '//--------------------------------------------- + End If + _LateCharges_Collection.Add(_LateCharges) + Next + + + + _LateCharges_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + + Dim _PCID As PCIDetail = Nothing + Dim _PCID_Collection As New XPCollection(Of PCIDetail) _ + (_uow, CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=0 and ConnectInfo=? and MainType <>'01-Account' and MainType<>'06-Latecharge' and GetDate(DateExecution)>?", _ + _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber, _InvoiceHeader.DatePayment.Date)) + _PCID_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + + For Each _PCID In _PCID_Collection + For Each _LateCharges In _LateCharges_Collection + If _LateCharges.DateExecution.Date = _PCID.DateExecution.Date Then + If _PCID.BallanceHUF > 0 Then + _LateCharges.DebitHUF = _PCID.BallanceHUF + Else + _LateCharges.CreditHUF = _PCID.BallanceHUF + End If + + Exit For + End If + Next + Next + '// TKE vltozsa ------------------------------------------------------------------------------------------------------------- + _I = 0 + Dim _CapitalBalanceHUF As Double = 0 + Dim _LateChargesBalanceHUF As Double = 0 + Dim _LateChargesHUF As Double = 0 + For Each _LateCharges In _LateCharges_Collection + If _I = 0 Then + _LateCharges.CapitalBalanceHUF = _LateCharges.DebitHUF + _LateCharges.CreditHUF + _CapitalBalanceHUF = _LateCharges.CapitalBalanceHUF + Else + If _LateCharges.CreditHUF <> 0 Then + _CapitalBalanceHUF += _LateCharges.CreditHUF + End If + + _LateCharges.CapitalBalanceHUF = _CapitalBalanceHUF + End If + _I += 1 + Next + + '// Kamat szmtsa ------------------------------------------------------------------------------------------------------------------------ + _I = 0 + For Each _LateCharges In _LateCharges_Collection + If _I = 0 Then + + Else + _LateChargesHUF = ((_LateCharges.CapitalBalanceHUF * _LateCharges.CurrentLateChargesPercent) / 365) + _LateChargesBalanceHUF += _LateChargesHUF + _LateCharges.LateChargesBalanceHUF = _LateChargesBalanceHUF + _LateCharges.DebitHUF = _LateChargesHUF + End If + _I += 1 + Next + + If _WithTransaction Then + _uow.CommitChanges() + End If + + + + End Sub + Sub CreateLateCharges_BAD(_Session As Session, _pInvoiceHeader As InvoiceHeader, _pDateClose As Date, Optional _WithTransaction As Boolean = False, Optional _StatusBar As Boolean = False) + Dim _uow As New UnitOfWork(_Session.DataLayer) + + Dim _LateCharges As LateCharges = Nothing + Dim _Previous_LateCharges As LateCharges = Nothing + 'Dim _Deletable_LateCharge As LateCharges + Dim _EmptyDate As Date = New Date + If _pInvoiceHeader Is Nothing Then Exit Sub + Dim _InvoiceHeader As InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_pInvoiceHeader.Oid) + + Dim _LateCharges_Collection As New XPCollection(Of LateCharges)(_uow, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader.Oid)) + + '-- A pnzgyi teljestsek kollekcija + Dim _PCID As PCIDetail + Dim _PCID_Collection As New XPCollection(Of PCIDetail) _ + (_uow, CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=0 and ConnectInfo=? and MainType <>'01-Account'", _ + _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber)) + _PCID_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Ascending)) + Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(_uow, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader)) + + If _pDateClose.Date > GetSQLTime(_Session).Date Then + _pDateClose = GetSQLTime(_Session).Date + End If + + Dim _AssetsHandlingParameter As AssetsHandlingParameter = _uow.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _InvoiceHeader.CustomersFrom)) + + 'Eddigi ksedelmi kamatrekordok sszegyjtse. + 'If _LateCharges_Collection IsNot Nothing Then + ' _LateCharges_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + ' If _LateCharges_Collection.Count > 0 Then + ' _Previous_LateCharges = New LateCharges(_uow) + ' _Deletable_LateCharge = _Previous_LateCharges 'Ezt a vgn trlni fogjuk. + ' _Previous_LateCharges = _LateCharges_Collection(0) + ' End If + 'End If + + If _LateCharges_Collection IsNot Nothing Then 'Kitrljk az elzmnyeket. + _uow.Delete(_LateCharges_Collection) + End If + + If _Previous_LateCharges Is Nothing Then 'Ha nincsenek elzmnyek, akkor tiszta lappal indulunk. + _Previous_LateCharges = New LateCharges(_uow) + _Previous_LateCharges.InvoiceHeader = _InvoiceHeader + _Previous_LateCharges.DateExecution = _InvoiceHeader.DatePayment.Date + _Previous_LateCharges.CapitalBalanceHUF = _InvoiceHeader.TotalBruttoHUF + _Previous_LateCharges.CapitalBalanceDEV = _InvoiceHeader.TotalBruttoDEV + _Previous_LateCharges.LateChargesBalanceHUF = 0 + _Previous_LateCharges.LateChargesBalanceDEV = 0 + _Previous_LateCharges.CostBalanceHUF = 0 + _Previous_LateCharges.CostBalanceHUF = 0 + _Previous_LateCharges.DebitHUF = _InvoiceHeader.TotalBruttoHUF + _Previous_LateCharges.DebitDEV = _InvoiceHeader.TotalBruttoDEV + _Previous_LateCharges.CreditHUF = 0 + _Previous_LateCharges.CreditDEV = 0 + _Previous_LateCharges.CostNote = "" + _Previous_LateCharges.CurrentLateChargesPercent = 0 + + '_Deletable_LateCharge = _Previous_LateCharges 'Ezt a vgn trlni fogjuk? + End If + + + Dim _MoneyRate As MoneyRate = Nothing + Dim _LateChargesCountMode As LateChargesCountMode = Nothing + Dim _MoneyRate_Collection As New XPCollection(Of MoneyRate)(_uow) 'Alapkamat rekordok sszegyjtse + + If _MoneyRate_Collection IsNot Nothing Then + _MoneyRate_Collection.Sorting.Add(New SortProperty("DateFrom", DB.SortingDirection.Ascending)) + End If + + If _StatusBar Then + RaiseEvent InitWork(1, 1, DateDiff(DateInterval.Day, _Previous_LateCharges.DateExecution, _pDateClose.Date)) + End If + + Do While _Previous_LateCharges.DateExecution.Date < _pDateClose.Date 'A Szmla fizetsi hatridjtl vagy az utols ksedelmi kamatsortl indulunk, s a zrdtumig haladunk. + If _StatusBar Then + RaiseEvent DoWork() + End If + + 'Elszr a szerzdsben keressk, mi a ksedelemi kamat. + If _InvoiceHeader.Customers.LateChargesCountMode IsNot Nothing Then + _LateChargesCountMode = _InvoiceHeader.Customers.LateChargesCountMode + End If + + 'Msodszor a szerzdsben keressk, mi a ksedelemi kamat. Ez akkor fellbrlja a szerzds adatait. + If _InvoiceHeader.LateChargesCountMode IsNot Nothing Then + _LateChargesCountMode = _InvoiceHeader.LateChargesCountMode + End If + + ''Ha nem talltunk idig bejegyzst, akkor az aktulis alapkamat ktszerese lesz. + 'If _LateChargesCountMode Is Nothing Then 'Ez gy nem lesz j, ezt nem szeretnnk ltrehozni! + ' _LateChargesCountMode = New LateChargesCountMode(_uow) + ' _LateChargesCountMode.LCCountMode = eLCCountMode.eFix + ' _LateChargesCountMode.LCValue = 2 + 'End If + '_LateChargesCountMode.dispose() 'Ez most mirt nem? + + _LateCharges = New LateCharges(_uow) + _LateCharges.InvoiceHeader = _Previous_LateCharges.InvoiceHeader + _LateCharges.DateExecution = DateAdd(DateInterval.Day, 1, _Previous_LateCharges.DateExecution.Date) 'Naponta egy rekord. + + For Each _MoneyRate In _MoneyRate_Collection ' A MoneyRate objektum egy pldnynak gy kell tartalmaznia az aktulis kamatot, hogy az rvnyessg els s utols napja szerepeljen benne. + If _LateCharges.DateExecution.Date >= _MoneyRate.DateFrom.Date And (_MoneyRate.DateTo.Date = _EmptyDate.Date Or _LateCharges.DateExecution.Date <= _MoneyRate.DateTo.Date) Then + Exit For + End If + _MoneyRate = Nothing + Next + + If _LateChargesCountMode IsNot Nothing Then + If _LateChargesCountMode.LCCountMode = eLCCountMode.eFix Then 'Ha fix rtket tartalmaz a kamatszmts-rekord, akkor azt vesszk figyelembe. + _LateCharges.CurrentLateChargesPercent = _LateChargesCountMode.LCValue / 100 + Else + If _MoneyRate IsNot Nothing Then 'Ellenkez esetben a kamattblzatbl kikeresett rtket hasznljuk, a s szorozzuk a kamatszmts-rekord rtkvel. + _LateCharges.CurrentLateChargesPercent = (_MoneyRate.KeyValue / 100) * _LateChargesCountMode.LCValue + End If + End If + Else + If _MoneyRate IsNot Nothing Then + _LateCharges.CurrentLateChargesPercent = (_MoneyRate.KeyValue / 100) * 2 + End If + End If + + If _MoneyRate Is Nothing Then 'Ha nem sikerlt beazonostani a ksedelmi kamat mrtkt. + _LateCharges.CurrentLateChargesPercent = 0 + End If + + _LateCharges.CapitalBalanceHUF = _Previous_LateCharges.CapitalBalanceHUF + _LateCharges.CapitalBalanceDEV = _Previous_LateCharges.CapitalBalanceDEV + _LateCharges.DebitHUF = ((_LateCharges.CapitalBalanceHUF * _LateCharges.CurrentLateChargesPercent) / 365) + _LateCharges.DebitDEV = ((_LateCharges.CapitalBalanceDEV * _LateCharges.CurrentLateChargesPercent) / 365) 'Ez gy j? 365 nappal szmolunk? + _LateCharges.LateChargesBalanceHUF = _Previous_LateCharges.LateChargesBalanceHUF + _LateCharges.DebitHUF + _LateCharges.LateChargesBalanceDEV = _Previous_LateCharges.LateChargesBalanceDEV + _LateCharges.DebitDEV + _LateCharges.CostBalanceHUF = _Previous_LateCharges.CostBalanceHUF + _LateCharges.CostBalanceDEV = _Previous_LateCharges.CostBalanceDEV + _LateCharges.CreditHUF = 0 + _LateCharges.CreditDEV = 0 + _LateCharges.CostNote = "" + + If _AssetsHandlingParameter IsNot Nothing Then + For Each _AssetsHandling In _AssetsHandling_Collection + If _AssetsHandling.DateExecution.Date = _LateCharges.DateExecution.Date Then + Select Case _AssetsHandling.QueueIndex + Case 0 + _LateCharges.CostBalanceHUF = _LateCharges.CostBalanceHUF + _AssetsHandlingParameter.Cost1HUF + Case 1 + _LateCharges.CostBalanceHUF = _LateCharges.CostBalanceHUF + _AssetsHandlingParameter.Cost2HUF + End Select + + End If + Next + End If + + For Each _PCID In _PCID_Collection + + If _PCID.DateExecution.Date = _LateCharges.DateExecution.Date Then + + If _PCID.BallanceDEV <> 0 Then 'Ha van devizs befolyt sszeg, + + _LateCharges.LateChargesBalanceDEV = _LateCharges.LateChargesBalanceDEV + _PCID.BallanceDEV 'akkor letudjuk belle a kamatot. + If _LateCharges.LateChargesBalanceDEV < 0 Then 'Ha nagyobb volt az befolyt sszeg, mint a ksedelmi kamat, + _PCID.BallanceDEV = _LateCharges.LateChargesBalanceDEV 'akkor a maradk sszeget megtartjuk, + _LateCharges.LateChargesBalanceDEV = 0 'a ksedelmi kamat sszegt pedig nullra lltjuk. + End If + + If _PCID.BallanceDEV < 0 Then 'Ha mg mindig maradt pnz, + _LateCharges.CapitalBalanceDEV = _LateCharges.CapitalBalanceDEV + _PCID.BallanceDEV 'levonjuk a tke rszbl. + If _LateCharges.CapitalBalanceDEV < 0 Then 'Ha nagyobb volt az sszeg a tknl is, akkor nullra lltjuk be a tkt. + _LateCharges.CapitalBalanceDEV = 0 + End If + End If + + End If + + If _PCID.BallanceHUF <> 0 Then 'A devizs esetre ugyan ezt kell alkalmazni tesztels utn! + + If _PCID.BallanceHUF < 0 Then + _LateCharges.CostBalanceHUF = _LateCharges.CostBalanceHUF + _PCID.BallanceHUF + If _LateCharges.CostBalanceHUF < 0 Then + _PCID.BallanceHUF = _LateCharges.CostBalanceHUF + _LateCharges.CostBalanceHUF = 0 + Else + _PCID.BallanceHUF = 0 + End If + End If + + If _PCID.BallanceHUF < 0 Then + _LateCharges.LateChargesBalanceHUF = _LateCharges.LateChargesBalanceHUF + _PCID.BallanceHUF + If _LateCharges.LateChargesBalanceHUF < 0 Then + _PCID.BallanceHUF = _LateCharges.LateChargesBalanceHUF + _LateCharges.LateChargesBalanceHUF = 0 + Else + _PCID.BallanceHUF = 0 + End If + End If + + If _PCID.BallanceHUF < 0 Then + _LateCharges.CapitalBalanceHUF = _LateCharges.CapitalBalanceHUF + _PCID.BallanceHUF + If _LateCharges.CapitalBalanceHUF < 0 Then + _LateCharges.CapitalBalanceHUF = 0 + End If + End If + + End If + + End If + Next + + If _Previous_LateCharges.LateChargesBalanceDEV + _LateCharges.DebitDEV > _LateCharges.LateChargesBalanceDEV Then + _LateCharges.CreditDEV = (_LateCharges.LateChargesBalanceDEV - _Previous_LateCharges.LateChargesBalanceDEV) + (_LateCharges.DebitDEV * -1) + End If + If _Previous_LateCharges.CapitalBalanceDEV > _LateCharges.CapitalBalanceDEV Then + _LateCharges.CreditDEV = _LateCharges.CreditDEV + (_LateCharges.CapitalBalanceDEV - _Previous_LateCharges.CapitalBalanceDEV) + End If + + If _Previous_LateCharges.LateChargesBalanceHUF + _LateCharges.DebitHUF > _LateCharges.LateChargesBalanceHUF Then + _LateCharges.CreditHUF = (_LateCharges.LateChargesBalanceHUF - _Previous_LateCharges.LateChargesBalanceHUF) + (_LateCharges.DebitHUF * -1) + End If + If _Previous_LateCharges.CapitalBalanceHUF > _LateCharges.CapitalBalanceHUF Then + _LateCharges.CreditHUF = _LateCharges.CreditHUF + (_LateCharges.CapitalBalanceHUF - _Previous_LateCharges.CapitalBalanceHUF) + End If + + _Previous_LateCharges = _LateCharges + Loop + 'If _Deletable_LateCharge IsNot Nothing Then + ' _Deletable_LateCharge.Delete() 'Erre nincs szksg. + 'End If + If _StatusBar Then + RaiseEvent FinalWork + End If + If _WithTransaction Then + _uow.CommitChanges() + End If + + End Sub + Private Sub aCreateLateCharges_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateLateCharges.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If View.Id = "PCIGroup_ListView_DelayedPay" Then + Dim _InvoiceHeader As InvoiceHeader + Dim _PCIGroup As PCIGroup + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", False) + RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count) + For Each _PCIGroup In TryCast(View, ListView).CollectionSource.List + RaiseEvent DoWork() + If _PCIGroup.InvoiceHeader IsNot Nothing Then + _InvoiceHeader = _uow.GetObjectByKey(Of InvoiceHeader)(_PCIGroup.InvoiceHeader.Oid) + + CreateLateCharges(_uow, _InvoiceHeader, Now, True) + Dim _LateCharges_Collection As New XPCollection(Of LateCharges)(_uow, _ + CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader)) + _LateCharges_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + For Each _LateCharges In _LateCharges_Collection + _InvoiceHeader.LateChargesBalanceHUF = Math.Round(_LateCharges.LateChargesBalanceHUF, 0, MidpointRounding.AwayFromZero) + _uow.CommitChanges() + Exit For + Next + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController).Active.SetItemValue("", True) + Else + Dim _AssetsHandling As AssetsHandling + Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(_ocur.Session, CriteriaOperator.Parse("NoAssetsHandling = False and IsActive=True")) + Dim _LateCharges As LateCharges + + + + RaiseEvent InitWork(1, 1, _AssetsHandling_Collection.Count) + For Each _AssetsHandling In _AssetsHandling_Collection + RaiseEvent DoWork() + _AssetsHandling.LateChargesBalanceHUF = 0 + + _ocur.CommitChanges() + If _AssetsHandling.NoAssetsHandling = False Then 'And _AssetsHandling.QueueIndex = 1 Then + CreateLateCharges(_ocur.Session, _AssetsHandling.InvoiceHeader, _AssetsHandling.DateClose, True) + End If + Dim _LateCharges_Collection As New XPCollection(Of LateCharges)(_ocur.Session, _ + CriteriaOperator.Parse("InvoiceHeader=?", _AssetsHandling.InvoiceHeader)) + _LateCharges_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + For Each _LateCharges In _LateCharges_Collection + _AssetsHandling.LateChargesBalanceHUF = Math.Round(_LateCharges.LateChargesBalanceHUF, 0, MidpointRounding.AwayFromZero) + _ocur.CommitChanges() + Exit For + Next + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + + + End Sub + Private Sub aNoAssetsHandling_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aNoAssetsHandling.Execute + Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + + Dim _AssetsHandling As AssetsHandling + + If View.SelectedObjects.Count > 0 Then + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _AssetsHandling In View.SelectedObjects + RaiseEvent DoWork() + If _AssetsHandling.NoAssetsHandling Then + _AssetsHandling.NoAssetsHandling = False + Else + _AssetsHandling.NoAssetsHandling = True + End If + Next + RaiseEvent FinalWork + _uow.CommitChanges() + Else + Throw New UserFriendlyException("Nincs kivlasztott elem.") + End If + End Sub + Private Sub aCountLateCharges_Execute(sender As Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCountLateCharges.Execute + Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + + If View.SelectedObjects.Count > 0 Then + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _AssetsHandling In View.SelectedObjects + RaiseEvent DoWork() + _AssetsHandling.CountLateCharges = Not _AssetsHandling.CountLateCharges + Next + RaiseEvent FinalWork + _uow.CommitChanges() + Else + Throw New UserFriendlyException("Nincs kivlasztott elem.") + End If + End Sub + Private Sub aViewCustomerPaymentBehaviour_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewCPBAssetsPCIRows_ListView.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingCPB As AssetsHandlingCPB + Dim _AssetsPCIRows As AssetsPCIRows = TryCast(View.SelectedObjects(0), AssetsPCIRows) + + If _AssetsPCIRows IsNot Nothing Then + _AssetsHandlingCPB = _onew.CreateObject(Of AssetsHandlingCPB)() + _AssetsHandlingCPB.Customers = _onew.GetObject(_AssetsPCIRows.Customers) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "AssetsHandlingCPB_DetailView", True, _AssetsHandlingCPB) + End If + + End Sub + Private Sub aViewCPBAssetsHandling_ListView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewCPBAssetsHandling_ListView.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingCPB As AssetsHandlingCPB + Dim _AssetsHandling As AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + + If _AssetsHandling IsNot Nothing Then + _AssetsHandlingCPB = _onew.CreateObject(Of AssetsHandlingCPB)() + _AssetsHandlingCPB.Customers = _onew.GetObject(_AssetsHandling.Customers) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "AssetsHandlingCPB_DetailView", True, _AssetsHandlingCPB) + End If + + End Sub + Private Sub aViewPCIDW_AssetsPCIRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDW_AssetsPCIRows.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _AssetsPCIRows As AssetsPCIRows = TryCast(View.SelectedObjects(0), AssetsPCIRows) + + If _AssetsPCIRows IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _AssetsPCIRows.CustomersFrom, _AssetsPCIRows.Customers, _AssetsPCIRows.PartnerType, _AssetsPCIRows.ConnectInfo) + End If + End Sub + Private Sub aPCIGenerate_AssetsHandling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCIGenerate_AssetsHandling.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _AssetsPCIRows As AssetsPCIRows + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _AssetsPCIRows In View.SelectedObjects + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _AssetsPCIRows.CustomersFrom, _AssetsPCIRows.Customers, ePartnerType.eReceivables, _AssetsPCIRows.ConnectInfo) + Next + RaiseEvent FinalWork + + End Sub + Private Sub aAssetsHandling_CreateSendEmailQueue_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAssetsHandling_CreateSendEmailQueue.Execute + Try + _ActiveForm = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _AssetsHandling_Collection As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _AssetsHandlingParameter_Collection As New XPCollection(Of AssetsHandlingParameter)(_ocur.Session) + Dim _BalanceHUF As Double = 0 + If _AssetsHandlingParameter_Collection.Count > 0 Then + If _AssetsHandlingParameter_Collection(0).EMailSendQueueParameters Is Nothing Then Throw New Exception("*Nincs belltva E-mail csomag paramter!") + If _AssetsHandlingParameter_Collection(0).ReportData Is Nothing Then Throw New Exception("*Nincs belltva nyomtatvny a kintlvsg kezels paramterben!") + Else + Throw New Exception("*Nincs belltva kintlvsg kezels paramter!") + End If + + _AssetsHandling_Collection.BeginUpdateCriteria() + _AssetsHandling_Collection.Criteria.Clear() + _AssetsHandling_Collection.Criteria("First") = CriteriaOperator.Parse("QueueIndex=0 AND NoAssetsHandling<>True AND IsActive=True") + _AssetsHandling_Collection.EndUpdateCriteria() + + _AssetsHandling_Collection.Sorting.Clear() + _AssetsHandling_Collection.Sorting.Add(New SortProperty("Customers", DB.SortingDirection.Descending)) + + Dim _EMailSendQueueHeader As New EMailSendQueueHeader(_ocur.Session) + _EMailSendQueueHeader.EmailSendQueueParameters = _AssetsHandlingParameter_Collection(0).EMailSendQueueParameters + _EMailSendQueueHeader.ShortName = "Kinnlvsg kezels automatikius e-mail" + _ocur.CommitChanges() + + RaiseEvent InitWork(1, 1, TryCast(_AssetsHandling_Collection.List, IList).Count) + _ActiveForm = True + Dim _ActCustomersOid As String = "" '= TryCast(TryCast(_AssetsHandling_Collection.List, IList)(0), AssetsHandling).Oid.ToString + Dim _ActCustomersFromOid As String = "" + For _ik As Long = 0 To TryCast(_AssetsHandling_Collection.List, IList).Count - 1 + Dim _AssetsHandling As AssetsHandling = TryCast(TryCast(_AssetsHandling_Collection.List, IList)(_ik), AssetsHandling) + + Dim _AssetsHandlingStatus As AssetsHandlingStatus = _ocur.FindObject(Of AssetsHandlingStatus)(CriteriaOperator.Parse("QueueIndex=1")) + If _AssetsHandling.InvoiceHeader IsNot Nothing Then + _AssetsHandling.InvoiceHeader.AssetsHandlingStatus = _AssetsHandlingStatus + End If + + If _AssetsHandling.Customers.Oid.ToString <> _ActCustomersOid Or _AssetsHandling.CustomersFrom.Oid.ToString <> _ActCustomersFromOid Then + Dim _ReportData As ReportData = _AssetsHandlingParameter_Collection(0).ReportData + Dim _XafReport As Reports.XafReport = _ReportData.LoadReport(_ocur) + Dim _FilterString As String = String.Format("QueueIndex=0 and IsActive=True and NoAssetsHandling=False and Customers.Oid='{0}' and CustomersFrom.Oid = '{1}'", _ + _AssetsHandling.Customers.Oid.ToString, _AssetsHandling.CustomersFrom.Oid.ToString) + _XafReport.FilterString = _FilterString + Dim _FileName As String = System.IO.Path.GetTempPath & _AssetsHandling.Customers.FullName + ".pdf" + Dim _StreamFile As New System.IO.FileStream(_FileName, System.IO.FileMode.Create) + + _XafReport.ExportToPdf(_StreamFile) + _StreamFile.Close() + + + + If System.IO.File.Exists(_FileName) Then + Dim _EMailSendQueueRows As New EMailSendQueueRows(_ocur.Session) + _EMailSendQueueRows.EMailSendQueueHeader = _EMailSendQueueHeader + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("Customers=? AND IsAssetsHandlingResponsible=True", _AssetsHandling.Customers)) + If _Contacts IsNot Nothing Then + _EMailSendQueueRows.EMailTo = _Contacts.Email + Else + _EMailSendQueueRows.EMailTo = _AssetsHandling.Customers.Email + End If + + _EMailSendQueueRows.EMailFrom = _EMailSendQueueHeader.EmailSendQueueParameters.EMailFrom + + _EMailSendQueueRows.Subject = _EMailSendQueueHeader.EmailSendQueueParameters.Subject + + _BalanceHUF = 0 + For _BB As Long = 0 To TryCast(_AssetsHandling_Collection.List, IList).Count - 1 + Dim _AssetsHandling2 As AssetsHandling = TryCast(TryCast(_AssetsHandling_Collection.List, IList)(_BB), AssetsHandling) + If _AssetsHandling2.Customers.Oid = _AssetsHandling.Customers.Oid And _AssetsHandling2.CustomersFrom.Oid = _AssetsHandling.CustomersFrom.Oid Then + _BalanceHUF += _AssetsHandling2.BalanceHUF + End If + Next + + _EMailSendQueueRows.HTMLBody = String.Format(_EMailSendQueueHeader.EmailSendQueueParameters.HTMLBody, _AssetsHandling.Customers.FullName, _EMailSendQueueHeader.ObjectCreated, _BalanceHUF) + _BalanceHUF = 0 + + _EMailSendQueueRows.FileAttachments1 = New FileData(_ocur.Session) + _EMailSendQueueRows.FileAttachments1.FileName = System.IO.Path.GetFileName(_FileName) + + _StreamFile = New System.IO.FileStream(_FileName, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _EMailSendQueueRows.FileAttachments1.LoadFromStream(_EMailSendQueueRows.FileAttachments1.FileName, _StreamFile) + _StreamReader.Close() + _StreamFile.Close() + + System.IO.File.Delete(_FileName) + _AssetsHandling.EMailSendQueueRows = _EMailSendQueueRows + + RaiseEvent DoWork() + End If + Else + _AssetsHandling.EMailSendQueueRows = _EMailSendQueueHeader.EMailSendQueueRows(_EMailSendQueueHeader.EMailSendQueueRows.Count - 1) + RaiseEvent DoWork() + End If + _ActCustomersOid = _AssetsHandling.Customers.Oid.ToString + _ActCustomersFromOid = _AssetsHandling.CustomersFrom.Oid.ToString + _AssetsHandling.QueueIndex = 1 + + Next + _ocur.CommitChanges() + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "EMailSendQueueHeader_DetailView", False, _onew.GetObject(_EMailSendQueueHeader)) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + If _ActiveForm Then RaiseEvent FinalWork + End Try + End Sub + + Private Sub aAssetsHandling_RemoveSendEmailQueue_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aAssetsHandling_RemoveSendEmailQueue.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _AssetsHandling As AssetsHandling + Dim _AssetsHandling_Collection As XPCollection(Of AssetsHandling) + Dim _AssetsHandling2 As AssetsHandling + For Each _AssetsHandling In View.SelectedObjects + If _AssetsHandling.EMailSendQueueRows IsNot Nothing Then + _AssetsHandling_Collection = New XPCollection(Of AssetsHandling)(_ocur.Session, _ + CriteriaOperator.Parse("EMailSendQueueRows=?", _ + _AssetsHandling.EMailSendQueueRows)) + _AssetsHandling.EMailSendQueueRows.Delete() + For Each _AssetsHandling2 In _AssetsHandling_Collection + _AssetsHandling2.EMailSendQueueRows = Nothing + _AssetsHandling2.QueueIndex = 0 + Dim _AssetsHandlingStatus As AssetsHandlingStatus = _ocur.FindObject(Of AssetsHandlingStatus)(CriteriaOperator.Parse("QueueIndex=0")) + If _AssetsHandling2.InvoiceHeader IsNot Nothing Then + _AssetsHandling2.InvoiceHeader.AssetsHandlingStatus = _AssetsHandlingStatus + End If + Next + End If + Next + + _ocur.CommitChanges() + End Sub + + Private Sub aAssetsHandling_GroupChange_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aAssetsHandling_GroupChange.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = _onew.CreateObject(Of AssetsHandlingGroupChange)() + _AssetsHandlingGroupChange.QueueIndex = 0 + e.View = Application.CreateDetailView(_onew, "AssetsHandlingGroupChange_DetailView", False, _AssetsHandlingGroupChange) + End Sub + + Private Sub aAssetsHandling_GroupChange_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aAssetsHandling_GroupChange.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _AssetsHandling As AssetsHandling + Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = TryCast(e.PopupWindow.View.SelectedObjects(0), AssetsHandlingGroupChange) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + For Each _AssetsHandling In View.SelectedObjects + RaiseEvent DoWork() + If _AssetsHandlingGroupChange.IsQueueIndex Then + _AssetsHandling.QueueIndex = _AssetsHandlingGroupChange.QueueIndex + If _AssetsHandling.InvoiceHeader IsNot Nothing Then + _AssetsHandling.InvoiceHeader.AssetsHandlingStatus = _ocur.GetObject(_AssetsHandlingGroupChange.AssetsHandlingStatus) + End If + End If + + If _AssetsHandlingGroupChange.IsAssetsHandling_Note_Customers Then _AssetsHandling.Customers.AssetsHandling_Note = _AssetsHandlingGroupChange.AssetsHandling_Note_Customers + If _AssetsHandlingGroupChange.IsAssetsHandling_Note_Invoice Then _AssetsHandling.InvoiceHeader.AssetsHandling_Note = _AssetsHandlingGroupChange.AssetsHandling_Note_Invoice + If _AssetsHandlingGroupChange.AktivModifies Then _AssetsHandling.IsActive = _AssetsHandlingGroupChange.IsActive + If _AssetsHandlingGroupChange.NoAssetsHandlingModifies Then _AssetsHandling.NoAssetsHandling = _AssetsHandlingGroupChange.NoAssetsHandling + If _AssetsHandlingGroupChange.IsAssetsHandling_InvoiceHeader_Modifies Then _AssetsHandling.InvoiceHeader.IsAssetsHandling = _AssetsHandlingGroupChange.IsAssetsHandling_InvoiceHeader + If _AssetsHandlingGroupChange.NoAssetsHandlingModifies Then _AssetsHandling.Customers.IsAssetsHandling = _AssetsHandlingGroupChange.NoAssetsHandling + If _AssetsHandlingGroupChange.AktivModifies Then _AssetsHandling.IsActive = _AssetsHandlingGroupChange.IsActive + + If _AssetsHandlingGroupChange.IsLateChargeModifies Then _AssetsHandling.InvoiceHeader.IsLateCharge = _AssetsHandlingGroupChange.IsLateCharge + + Next + RaiseEvent FinalWork + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub + + Private Sub aViewLateCharges_AssetsHandling_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aViewLateCharges_AssetsHandling.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If View.SelectedObjects.Count > 0 Then + Dim _AssetsHandling As AssetsHandling = TryCast(View.SelectedObjects(0), AssetsHandling) + Dim _CustomersFrom As CustomersFrom = _AssetsHandling.CustomersFrom + Dim _Customers As Customers = _AssetsHandling.Customers + Dim _DocumentNumber As String = _AssetsHandling.DocumentNumber + Dim _DateClose As Date = _AssetsHandling.DateClose + Dim _CS As New CollectionSource(_onew, GetType(LateCharges)) + Dim _InvoiceHeader As InvoiceHeader = _ocur.FindObject(Of InvoiceHeader) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", _ + _CustomersFrom, _Customers, _DocumentNumber)) + + If _InvoiceHeader IsNot Nothing Then + + CreateLateCharges(_ocur.Session, _InvoiceHeader, _DateClose, True, True) + + _ocur.CommitChanges() + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("InvoiceHeader.Oid=?", _InvoiceHeader.Oid) + _CS.EndUpdateCriteria() + + _CS.Sorting.Clear() + _CS.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + + e.View = Application.CreateListView("LateCharges_ListView_Info", _CS, False) + End If + Else + Throw New UserFriendlyException("Nincs kivlasztott elem.") + End If + End Sub + + Private Sub aViewLateCharges_AssetsHandling_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aViewLateCharges_AssetsHandling.Execute + + End Sub + + Private Sub aSelectCustomersFromAssetsHandlingPCI_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFromAssetsHandlingPCI.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False) + End Sub + + Private Sub aSelectCustomersFromAssetsHandlingPCI_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFromAssetsHandlingPCI.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Customersfrom As CustomersFrom + Dim _AssetsPCIHeader As AssetsPCIHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _AssetsPCICustomersFrom As AssetsPCICustomersFrom + + If _AssetsPCIHeader Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _Customersfrom In e.PopupWindow.View.SelectedObjects + _AssetsPCICustomersFrom = New AssetsPCICustomersFrom(_uow) + _AssetsPCICustomersFrom.AssetsPCIHeader = _uow.GetObjectByKey(Of AssetsPCIHeader)(_AssetsPCIHeader.Oid) + _AssetsPCICustomersFrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_Customersfrom.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + + Private Sub aCreateLateChargesDocument_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCreateLateChargesDocument.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _LateChargesPopup As LateChargesPopup = _onew.CreateObject(Of LateChargesPopup)() + + e.View = Application.CreateDetailView(_onew, "LateChargesPopup_DetailView", True, _LateChargesPopup) + End Sub + + Private Sub aCreateLateChargesDocument_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCreateLateChargesDocument.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _LateChargesPopup As LateChargesPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), LateChargesPopup) + Dim _PCIGroup As PCIGroup + Dim _GLMixed As GLMixed + Dim _GLRows As GLRows + Dim _GLMixedNG As GLMixedNG + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _PCIGroup In View.SelectedObjects + RaiseEvent DoWork() + _PCIGroup = _onew.GetObject(_PCIGroup) + + If _PCIGroup.InvoiceHeader IsNot Nothing And _PCIGroup.InvoiceHeader.AssetsHandling_GLMixed Is Nothing Then + If _PCIGroup.InvoiceHeader.LateChargesBalanceHUF > 0 And _PCIGroup.InvoiceHeader.IsLateCharge Then + _GLMixedNG = _onew.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom.Oid=?", _PCIGroup.CustomersFrom.Oid)) + If _GLMixedNG IsNot Nothing Then + _GLMixed = _onew.CreateObject(Of GLMixed)() + + _GLMixed.CustomersFrom = _PCIGroup.CustomersFrom + _GLMixed.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLMixed.DocumentNumber = _GLMixedNG.NumberGenerator_LateCharges.GetNewNumber(_GLMixedNG.NumberGenerator_LateCharges) + _GLMixed.DateCreated = _LateChargesPopup.DateCreated + _GLMixed.DateExecution = _LateChargesPopup.DateCreated + _GLMixed.DatePayment = _LateChargesPopup.DateCreated + _GLMixed.CurrencyRate = 1 + _GLMixed.ImportedInvoice = _PCIGroup.InvoiceHeader + _GLMixed.GLDocumentType = eGLDocumentType.eLateCharge + + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = TryCast(_GLMixed, GLHeader) + _GLRows.PartnerType = ePartnerType.eReceivables + _GLRows.ConnectInfo = _PCIGroup.ConnectInfo + _GLRows.Customer = _PCIGroup.Customers + _GLRows.AmountHUF = _PCIGroup.InvoiceHeader.LateChargesBalanceHUF + _GLRows.OutAmountHUF = _PCIGroup.InvoiceHeader.LateChargesBalanceHUF + _GLRows.CreditChartOfAccounts = _GLMixedNG.CreditControlling_LateCharges.GetChartOfAccounts(_LateChargesPopup.DateCreated.Year, False) + _GLRows.DebitChartOfAccounts = _GLMixedNG.DebitControlling_LateCharges.GetChartOfAccounts(_LateChargesPopup.DateCreated.Year, False) + + _PCIGroup.InvoiceHeader.AssetsHandling_GLMixed = _GLMixed + _onew.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _PCIGroup.CustomersFrom, _PCIGroup.Customers, ePartnerType.eReceivables, _PCIGroup.ConnectInfo) + + End If + End If + End If + Next + + RaiseEvent FinalWork + + End Sub + + Private Sub aRemoveLateChargesDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRemoveLateChargesDocument.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PCIGroup As PCIGroup + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PCIGroup In View.SelectedObjects + RaiseEvent DoWork() + + _PCIGroup = _onew.GetObject(_PCIGroup) + + + If _PCIGroup.InvoiceHeader.AssetsHandling_GLMixed IsNot Nothing Then + + _onew.Delete(_PCIGroup.InvoiceHeader.AssetsHandling_GLMixed.GLRows) + _onew.Delete(_PCIGroup.InvoiceHeader.AssetsHandling_GLMixed) + _PCIGroup.InvoiceHeader.AssetsHandling_GLMixed = Nothing + _onew.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _PCIGroup.CustomersFrom, _PCIGroup.Customers, ePartnerType.eReceivables, _PCIGroup.ConnectInfo) + End If + Next + + RaiseEvent FinalWork + End Sub + + Private Sub aPrintLateChargesDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintLateChargesDocument.Execute + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _AssetsHandlingParameter As AssetsHandlingParameter + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + _AssetsHandlingParameter = _ocur.FindObject(Of AssetsHandlingParameter)(CriteriaOperator.Parse("CustomersFrom=?", _PCIGroup.CustomersFrom)) + + If _AssetsHandlingParameter IsNot Nothing Then + _ReportData = _AssetsHandlingParameter.ReportData_LateChargesDocument + If _ReportData IsNot Nothing Then + + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLHeader.GLDocumentType='eLateCharge' and GLHeader.ImportedInvoice.IsLateCharge=True"), True) + Else + Throw New UserFriendlyException("Nincs belltva a ksedelmi kamatlevl nyomtatvny !") + End If + End If + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/InstallmentPayment.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/InstallmentPayment.vb new file mode 100644 index 0000000..8ffdb67 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/InstallmentPayment.vb @@ -0,0 +1,114 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class InstallmentPayment 'Rszletfizetsi megllapods + Inherits BaseObject + Private _InvoiceHeader As InvoiceHeader + Private _DatePayment As Date + Private _AmountHUF As Double + Private _AmountDEV As Double + Private _NoteRow As String + Private _Active As Boolean + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + If Not SecuritySystem.CurrentUser Is Nothing Then + _UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + _ + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateCharges.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateCharges.vb new file mode 100644 index 0000000..d477b40 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateCharges.vb @@ -0,0 +1,151 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Xpo.DB + + _ + _ + _ +Public Class LateCharges + Inherits BaseObject + Private _InvoiceHeader As InvoiceHeader 'Aktulis szmla + Private _DateExecution As Date 'Dtum + Private _CapitalBalanceHUF As Double 'Tke egyenleg HUF + Private _CapitalBalanceDEV As Double 'Tke egyenleg DEV + Private _LateChargesBalanceHUF As Double ' Ksedelmi kamat egyenleg HUF + Private _LateChargesBalanceDEV As Double ' Ksedelmi kamat egyenleg DEV + Private _CostBalanceHUF As Double ' Egyb kltsg + Private _CostBalanceDEV As Double + Private _DebitHUF As Double + Private _DebitDEV As Double + Private _CreditHUF As Double + Private _CreditDEV As Double + Private _CostNote As String + Private _CurrentLateChargesPercent As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property CapitalBalanceHUF As Double + Get + Return _CapitalBalanceHUF + End Get + Set(value As Double) + SetPropertyValue("CapitalBalanceHUF", _CapitalBalanceHUF, value) + End Set + End Property + Property CapitalBalanceDEV As Double + Get + Return _CapitalBalanceDEV + End Get + Set(value As Double) + SetPropertyValue("CapitalBalanceDEV", _CapitalBalanceDEV, value) + End Set + End Property + Property LateChargesBalanceHUF As Double + Get + Return _LateChargesBalanceHUF + End Get + Set(value As Double) + SetPropertyValue("LateChargesBalanceHUF", _LateChargesBalanceHUF, value) + End Set + End Property + Property LateChargesBalanceDEV As Double + Get + Return _LateChargesBalanceDEV + End Get + Set(value As Double) + SetPropertyValue("LateChargesBalanceDEV", _LateChargesBalanceDEV, value) + End Set + End Property + Property CostBalanceHUF As Double + Get + Return _CostBalanceHUF + End Get + Set(value As Double) + SetPropertyValue("CostBalanceHUF", _CostBalanceHUF, value) + End Set + End Property + Property CostBalanceDEV As Double + Get + Return _CostBalanceDEV + End Get + Set(value As Double) + SetPropertyValue("CostBalanceDEV", _CostBalanceDEV, value) + End Set + End Property + Property DebitHUF As Double + Get + Return _DebitHUF + End Get + Set(value As Double) + SetPropertyValue("DebitHUF", _DebitHUF, value) + End Set + End Property + Property DebitDEV As Double + Get + Return _DebitDEV + End Get + Set(value As Double) + SetPropertyValue("DebitDEV", _DebitDEV, value) + End Set + End Property + Property CreditHUF As Double + Get + Return _CreditHUF + End Get + Set(value As Double) + SetPropertyValue("CreditHUF", _CreditHUF, value) + End Set + End Property + Property CreditDEV As Double + Get + Return _CreditDEV + End Get + Set(value As Double) + SetPropertyValue("CreditDEV", _CreditDEV, value) + End Set + End Property + Property CostNote As String + Get + Return _CostNote + End Get + Set(value As String) + SetPropertyValue("CostNote", _CostNote, value) + End Set + End Property + Property CurrentLateChargesPercent As Double + Get + Return _CurrentLateChargesPercent + End Get + Set(value As Double) + SetPropertyValue("CurrentLateChargesPercent", _CurrentLateChargesPercent, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateChargesCountMode.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateChargesCountMode.vb new file mode 100644 index 0000000..fc197d8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/LateChargesCountMode.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eLCCountMode + eFix = 0 + eVariable = 1 +End Enum + _ + _ + _ +Public Class LateChargesCountMode + Inherits BaseObject + Private _LCCountMode As eLCCountMode 'Szmts mdja + Private _LCValue As Double ' rtk. Ha LCCountMode=0 akkor a ksedelmi kamat %-os mrtke pld 6%, ha 1 akkor ? szorosa a kamattrzsnek pld 2 + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property LCCountMode As eLCCountMode + Get + Return _LCCountMode + End Get + Set(value As eLCCountMode) + SetPropertyValue("LCCountMode", _LCCountMode, value) + End Set + End Property + Property LCValue As Double + Get + Return _LCValue + End Get + Set(value As Double) + SetPropertyValue("LCValue", _LCValue, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/Popup/LateChargesPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/Popup/LateChargesPopup.vb new file mode 100644 index 0000000..d742a86 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/AssetsHandling/Popup/LateChargesPopup.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class LateChargesPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateCreated As Date +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeader.vb new file mode 100644 index 0000000..e2068f1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeader.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class BankImportHeader 'Banki kivonat betlt fejlc + Inherits BaseObject + Private _ShortName As String 'Banki elektronikus kivonat megnevezse + Private _FileData As FileData 'Elektronikus kivonat file. + Private _ObjectCreated As Date 'Ltrehozva + Private _UserCreated As User 'Ltrehozta + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property FileData As FileData + Get + Return _FileData + End Get + Set(value As FileData) + SetPropertyValue("FileData", _FileData, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + ReadOnly Property BankImportHeaderSum As XPCollection(Of BankImportHeaderSum) + Get + Return GetCollection(Of BankImportHeaderSum)("BankImportHeaderSum") + End Get + End Property + +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSum.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSum.vb new file mode 100644 index 0000000..f762c45 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSum.vb @@ -0,0 +1,137 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class BankImportHeaderSum + Inherits BaseObject + Private _BankImportHeader As BankImportHeader + Private _DateOpen As Date 'Nyit dtumn + Private _DateClose As Date 'Zr dtum + Private _AccountNumber As String 'Bankszmlaszm amire a kivonat szl (sajt szmlink egyike) + Private _CurrencyName As CurrencyName 'Deviza + Private _AmountOpen As Double 'Nyit sszeg + Private _AmountClose As Double 'Zr sszeg + Private _DocumentNumber As String 'Kionat szma + Private _LiquidAssets As LiquidAssets ' Sajt pnzeszkznk !!! + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property BankImportHeader As BankImportHeader + Get + Return _BankImportHeader + End Get + Set(value As BankImportHeader) + SetPropertyValue("BankImportHeader", _BankImportHeader, value) + End Set + End Property + Property DateOpen As Date + Get + Return _DateOpen + End Get + Set(value As Date) + SetPropertyValue("DateOpen", _DateOpen, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property AmountOpen As Double + Get + Return _AmountOpen + End Get + Set(value As Double) + SetPropertyValue("AmountOpen", _AmountOpen, value) + End Set + End Property + Property AmountClose As Double + Get + Return _AmountClose + End Get + Set(value As Double) + SetPropertyValue("AmountClose", _AmountClose, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + _ + _ + ReadOnly Property BankImportHeaderSumDetail As XPCollection(Of BankImportHeaderSumDetail) + Get + Return GetCollection(Of BankImportHeaderSumDetail)("BankImportHeaderSumDetail") + End Get + End Property + ReadOnly Property GLBank As GLBank + Get + Dim _GLBank As GLBank + _GLBank = Session.FindObject(Of GLBank)(CriteriaOperator.Parse("BankImportHeaderSum.Oid=?", Me.Oid)) + Return _GLBank + End Get + End Property + _ + ReadOnly Property GLRows As XPCollection(Of GLRows) + Get + If GLBank Is Nothing Then + Return Nothing + Else + Return New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("GLHeader.Oid=?", GLBank.Oid)) + End If + + End Get + End Property + _ + ReadOnly Property BankImportNameParameters As XPCollection(Of BankImportNameParameters) + Get + Return New XPCollection(Of BankImportNameParameters)(Session) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSumDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSumDetail.vb new file mode 100644 index 0000000..74ce87a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportHeaderSumDetail.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ 'Foreign key miatt ez nem j. + _ + _ +Public Class BankImportHeaderSumDetail + Inherits BaseObject + Private _BankImportHeader As BankImportHeader + Private _BankImportHeaderSum As BankImportHeaderSum + Private _NoteRow As String 'Sorhoz tartoz kzlemny + Private _AccountNumber As String 'Bankszmla + Private _PartnerString As String 'Partner azonostsa + Private _DebitAmount As Double + Private _CreditAmount As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property BankImportHeader As BankImportHeader + Get + Return _BankImportHeader + + End Get + Set(value As BankImportHeader) + SetPropertyValue("BankImportHeader", _BankImportHeader, value) + End Set + End Property + _ + Property BankImportHeaderSum As BankImportHeaderSum + Get + Return _BankImportHeaderSum + End Get + Set(value As BankImportHeaderSum) + SetPropertyValue("BankImportHeaderSum", _BankImportHeaderSum, value) + End Set + End Property + _ + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + _ + Property PartnerString As String + Get + Return _PartnerString + End Get + Set(value As String) + SetPropertyValue("PartnerString", _PartnerString, value) + End Set + End Property + Property DebitAmount As Double + Get + Return _DebitAmount + End Get + Set(value As Double) + SetPropertyValue("DebitAmount", _DebitAmount, value) + End Set + End Property + Property CreditAmount As Double + Get + Return _CreditAmount + End Get + Set(value As Double) + SetPropertyValue("CreditAmount", _CreditAmount, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportNameParameters.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportNameParameters.vb new file mode 100644 index 0000000..fffc695 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/BankImportNameParameters.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class BankImportNameParameters + Inherits BaseObject + Private _NoteRow As String 'Sorhoz tartoz kzlemny + Private _ChartOfAccounts As ChartOfAccounts + Private _Controlling As Controlling + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property NoteRow As String + Get + Return _NoteRow + End Get + Set(value As String) + SetPropertyValue("NoteRow", _NoteRow, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBank.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBank.vb new file mode 100644 index 0000000..9721637 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBank.vb @@ -0,0 +1,522 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +' _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLBank + Inherits GLHeader + Private _PartnerType As ePartnerType + Private _TransactionType As eTransactionType + + Private _ChartOfAccounts As ChartOfAccounts + Private _TotalInAmountHUF As Double = 0 + Private _TotalOutAmountHUF As Double = 0 + Private _TotalInAmountDEV As Double = 0 + Private _TotalOutAmountDEV As Double = 0 + Private _LiquidAssets As LiquidAssets + Private _BallanceHUF As Double + Private _BallanceDEV As Double + Private _PCIGroup As PCIGroup + Private _GLHeader_RateDiff As GLHeader 'Kapcsold rf. kl. elszmolsi vegyes bizonylat + + '-- A msodlagos + Private _row_CurrencyRate As Double + Private _row_AmountDEV2 As Double = 0 + Private _row_CurrencyRate2 As Double = 0 + Private _row_CurrencyName2 As CurrencyName + Private _BankImportHeaderSum As BankImportHeaderSum + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + Me.GLDocumentType = eGLDocumentType.eGLBank + Me.DateExecution = Now + Me.row_PartnerType = ePartnerType.eNotSet + Me.row_TransactionType = eTransactionType.eNotSet + End If + End Sub + + _ + _ + _ + Property row_PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("row_PartnerType", _PartnerType, value) + End Set + End Property + _ + _ + _ + _ + Property row_TransactionType() As eTransactionType + Get + Return _TransactionType + End Get + Set(ByVal value As eTransactionType) + SetPropertyValue("row_TransactionType", _TransactionType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If LiquidAssets_Main IsNot Nothing Then + Select Case row_TransactionType + Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet, eTransactionType.eCorrectionCreditHUF, eTransactionType.eCorrectionDebitHUF + row_PartnerType = ePartnerType.eNotSet + row_CurrencyName2 = LiquidAssets_Main.CurrencyName + Case eTransactionType.ePartnerCredit + row_PartnerType = ePartnerType.eReceivables + Case eTransactionType.ePartnerDebit + row_PartnerType = ePartnerType.ePayabels + End Select + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_ChartOfAccounts() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + Property row_PCIGroup() As PCIGroup + Get + Return _PCIGroup + End Get + Set(ByVal value As PCIGroup) + SetPropertyValue("row_PCIGroup", _PCIGroup, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + row_ConnectInfo = value.ConnectInfo + row_Customer = value.Customers + row_PartnerType = value.PartnerType + If value.CurrencyName_Account Is Nothing Then + If Me.CurrencyName.ShortName = "HUF" Then + Me.row_AmountHUF = Math.Abs(value.BallanceHUF) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + End If + Else + If value.CurrencyName_Account.ShortName = "HUF" Then + If Me.CurrencyName.ShortName = "HUF" Then + Me.row_AmountHUF = Math.Abs(value.BallanceHUF) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + End If + Else + If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then + Me.row_AmountDEV = Math.Abs(value.BallanceDEV) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + End If + End If + End If + + End If + End If + End Set + End Property + _ + _ + _ + _ + _ + Property LiquidAssets_Main() As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets_Main", _LiquidAssets, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + row_LiquidAssets = value + row_CurrencyName2 = value.CurrencyName + If value IsNot Nothing Then + + Me.CurrencyName = value.CurrencyName + Me.row_CurrencyName2 = CurrencyName + + If Me.DateExecution > Now.AddYears(-1) Then + BallanceHUF = GetBallanceHUF(value, Me.DateExecution) + BallanceDEV = GetBallanceDEV(value, Me.DateExecution) + End If + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_CurrencyRate As Double + Get + Return _row_CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("row_CurrencyRate", _row_CurrencyRate, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName + + If LiquidAssets_Main.CurrencyName.ShortName = "HUF" And row_CurrencyName2.ShortName <> "HUF" Then + If row_CurrencyRate <> 0 Then row_AmountDEV2 = Math.Round(row_AmountHUF / row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName = "HUF" Then + row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + row_AmountDEV2 = row_AmountHUF + End If + If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName <> "HUF" Then + row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + + End If + End If + End Set + End Property + _ + _ + _ + Property row_AmountDEV2 As Double + Get + Return _row_AmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName + If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" And _ + row_CurrencyName2.ShortName <> "HUF" And _ + LiquidAssets_Main.CurrencyName.ShortName <> row_CurrencyName2.ShortName Then + If row_AmountDEV <> 0 Then + row_CurrencyRate2 = Math.Round(row_AmountDEV2 / row_AmountDEV, 4, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_CurrencyRate2 As Double + Get + Return _row_CurrencyRate2 + End Get + Set(ByVal value As Double) + SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value) + End Set + End Property + _ + _ + _ + Property row_CurrencyName2 As CurrencyName + Get + Return _row_CurrencyName2 + End Get + Set(value As CurrencyName) + SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + row_AmountDEV2 = 0 + row_CurrencyRate2 = 0 + End If + End Set + End Property + + Property TotalInAmountHUF As Double + Get + Return _TotalInAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value) + End Set + End Property + Property TotalOutAmountHUF As Double + Get + Return _TotalOutAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value) + End Set + End Property + Property TotalInAmountDEV As Double + Get + Return _TotalInAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value) + End Set + End Property + Property TotalOutAmountDEV As Double + Get + Return _TotalOutAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property BankImportHeaderSum As BankImportHeaderSum + Get + Return _BankImportHeaderSum + End Get + Set(value As BankImportHeaderSum) + SetPropertyValue("BankImportHeaderSum", _BankImportHeaderSum, value) + End Set + End Property + Property GLHeader_RateDiff As GLHeader + Get + Return _GLHeader_RateDiff + End Get + Set(value As GLHeader) + SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value) + End Set + End Property + + Sub RecalculateTotal() + Dim _GLRows As GLRows + TotalInAmountHUF = 0 + TotalOutAmountHUF = 0 + TotalInAmountDEV = 0 + TotalOutAmountDEV = 0 + For Each _GLRows In Me.GLRows + Me.TotalInAmountHUF += _GLRows.InAmountHUF + Me.TotalOutAmountHUF += _GLRows.OutAmountHUF + Me.TotalInAmountDEV += _GLRows.InAmountDEV + Me.TotalOutAmountDEV += _GLRows.OutAmountDEV + Next + Me.Save() + End Sub + Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLBank_Collection As New XPCollection(Of GLBank)(Session, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + For Each _GLBank In _GLBank_Collection + For Each _GLRows In _GLBank.GLRows + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountHUF += _GLRows.OutAmountHUF + Next + Next + Return _InAmountHUF - _OutAmountHUF + End Function + Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLBank_Collection As New XPCollection(Of GLBank)(Session, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and GetDate(DateExecution)<=? and IsEditable=False", _LiquidAssets, _ToDate.Date)) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + For Each _GLBank In _GLBank_Collection + For Each _GLRows In _GLBank.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _OutAmountDEV += _GLRows.OutAmountDEV + Next + Next + Return _InAmountDEV - _OutAmountDEV + End Function + + ReadOnly Property CloseHUF As Double + Get + Return BallanceHUF + TotalInAmountHUF - TotalOutAmountHUF + End Get + End Property + ReadOnly Property CloseDEV As Double + Get + Return BallanceDEV + TotalInAmountDEV - TotalOutAmountDEV + End Get + End Property + ReadOnly Property DisplayName As String + Get + If Me.LiquidAssets_Main IsNot Nothing Then + Return Me.LiquidAssets_Main.ShortName + Else + Return Nothing + End If + End Get + End Property + + _ + Overrides Property row_AmountDEV As Double + Get + Return MyBase.row_AmountDEV + End Get + Set(value As Double) + MyBase.row_AmountDEV = value + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName + If Me.row_CurrencyRate > 0 Then + Me.row_AmountHUF = value * Me.row_CurrencyRate + End If + If LiquidAssets_Main.CurrencyName.ShortName <> "HUF" Then + If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then + Else + row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + _ + Overrides Property row_Customer As Customers + Get + Return MyBase.row_Customer + End Get + Set(value As Customers) + MyBase.row_Customer = value + End Set + End Property + Overrides Property row_Controlling As Controlling + Get + Return MyBase.row_Controlling + End Get + Set(value As Controlling) + MyBase.row_Controlling = value + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value.ChartOfAccounts IsNot Nothing Then + + row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False) + End If + End If + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankParameterDEV.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankParameterDEV.vb new file mode 100644 index 0000000..338790a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankParameterDEV.vb @@ -0,0 +1,136 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ +Public Class BankParameterDEV + Inherits BaseObject + Private _CustomersFrom As CustomersFrom '-- Sajt cg + Private _BankCost As eBankCost '-- Ki fizeti az utalst + Private _CurrencyName As CurrencyName '-- A teljests milyen devizban legyen + Private _Ref As String '-- Referencia string + Private _Urgent As Boolean = False '-- Srgs vagy nem + Private _DateExecution As Date '-- Teljests dtuma + Private _BankInformation As BankInformation '-- Milyen szmlaszmrl menjen az utals + Private _FolderName As String + Private _TransferCount As Long '? db szmlt akar utalni + Private _TransferTotalHUF As Double '? az utalni kvnt ttelek sszege + Private _TransferTotalDEV As Double '? az utalni mkvnt ttelek sszege devizban + Private _CustomFileName As String 'Opcis, ha meg van adva, akkor ez lesz a letltskori file neve + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CustomFileName = "" + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + + End Set + End Property + Property BankCost As eBankCost + Get + Return _BankCost + End Get + Set(ByVal value As eBankCost) + SetPropertyValue("BankCost", _BankCost, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property Urgent As Boolean + Get + Return _Urgent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Urgent", _Urgent, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + _ + Property BankInformation As BankInformation + Get + Return _BankInformation + End Get + Set(ByVal value As BankInformation) + SetPropertyValue("BankInformation", _BankInformation, value) + End Set + End Property + _ + Property FolderName As String + Get + Return _FolderName + End Get + Set(ByVal value As String) + SetPropertyValue("FolderName", _FolderName, value) + End Set + End Property + Property TransferCount As Long + Get + Return _TransferCount + End Get + Set(ByVal value As Long) + SetPropertyValue("TransferCount", _TransferCount, value) + End Set + End Property + Property TransferTotalHUF As Double + Get + Return _TransferTotalHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TransferTotalHUF", _TransferTotalHUF, value) + End Set + End Property + Property TransferTotalDEV As Double + Get + Return _TransferTotalDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TransferTotalDEV", _TransferTotalDEV, value) + End Set + End Property + Property CustomFileName As String + Get + Return _CustomFileName + End Get + Set(value As String) + SetPropertyValue("CustomFileName", _CustomFileName, value) + End Set + End Property + Public ReadOnly Property PCIGroup As XPCollection(Of PCIGroup) + Get + Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse("PartnerType=1 and BallanceHUF<0")) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb new file mode 100644 index 0000000..e918617 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.Designer.vb @@ -0,0 +1,262 @@ +Partial Class GLBankVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRecalculateBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalAndNew_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportSavedBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinal_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateGLBankRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLBankDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aToTableD_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMakeEditable_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportPCIGroupBank = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPCICheckBankTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGetCurrencyRateBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aRecalculateBallance + ' + Me.aRecalculateBallance.Caption = "Recalculate ballance" + Me.aRecalculateBallance.ConfirmationMessage = Nothing + Me.aRecalculateBallance.Id = "aRecalculateBallance" + Me.aRecalculateBallance.ImageName = Nothing + Me.aRecalculateBallance.Shortcut = Nothing + Me.aRecalculateBallance.Tag = Nothing + Me.aRecalculateBallance.TargetObjectsCriteria = Nothing + Me.aRecalculateBallance.TargetObjectType = GetType(SISBusiness.[Module].GLBank) + Me.aRecalculateBallance.TargetViewId = Nothing + Me.aRecalculateBallance.ToolTip = Nothing + Me.aRecalculateBallance.TypeOfView = Nothing + ' + 'aFinalAndNew_GLBank + ' + Me.aFinalAndNew_GLBank.Caption = "aFinalAndNew_GLBank" + Me.aFinalAndNew_GLBank.Category = "ObjectsCreation" + Me.aFinalAndNew_GLBank.ConfirmationMessage = Nothing + Me.aFinalAndNew_GLBank.Id = "aFinalAndNew_GLBank" + Me.aFinalAndNew_GLBank.ImageName = "MenuBar_SaveAndNew" + Me.aFinalAndNew_GLBank.Shortcut = Nothing + Me.aFinalAndNew_GLBank.Tag = Nothing + Me.aFinalAndNew_GLBank.TargetObjectsCriteria = Nothing + Me.aFinalAndNew_GLBank.TargetObjectType = GetType(SISBusiness.[Module].GLBank) + Me.aFinalAndNew_GLBank.TargetViewId = Nothing + Me.aFinalAndNew_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalAndNew_GLBank.ToolTip = Nothing + Me.aFinalAndNew_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aImportSavedBank + ' + Me.aImportSavedBank.AcceptButtonCaption = Nothing + Me.aImportSavedBank.CancelButtonCaption = Nothing + Me.aImportSavedBank.Caption = "Get exported " + Me.aImportSavedBank.Category = "aImportSavedBank" + Me.aImportSavedBank.ConfirmationMessage = Nothing + Me.aImportSavedBank.Id = "aImportSavedBank" + Me.aImportSavedBank.ImageName = Nothing + Me.aImportSavedBank.Shortcut = Nothing + Me.aImportSavedBank.Tag = Nothing + Me.aImportSavedBank.TargetObjectsCriteria = Nothing + Me.aImportSavedBank.TargetViewId = "GLBank_DetailView" + Me.aImportSavedBank.ToolTip = Nothing + Me.aImportSavedBank.TypeOfView = Nothing + ' + 'aFinal_GLBank + ' + Me.aFinal_GLBank.Caption = "aFinal_GLBank" + Me.aFinal_GLBank.Category = "ObjectsCreation" + Me.aFinal_GLBank.ConfirmationMessage = Nothing + Me.aFinal_GLBank.Id = "aFinal_GLBank" + Me.aFinal_GLBank.ImageName = "MenuBar_SaveAndClose" + Me.aFinal_GLBank.Shortcut = Nothing + Me.aFinal_GLBank.Tag = Nothing + Me.aFinal_GLBank.TargetObjectsCriteria = Nothing + Me.aFinal_GLBank.TargetObjectType = GetType(SISBusiness.[Module].GLBank) + Me.aFinal_GLBank.TargetViewId = Nothing + Me.aFinal_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinal_GLBank.ToolTip = Nothing + Me.aFinal_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_GLBank + ' + Me.aToTable_GLBank.Caption = "aToTable" + Me.aToTable_GLBank.Category = "aToTable_GLBank" + Me.aToTable_GLBank.ConfirmationMessage = Nothing + Me.aToTable_GLBank.Id = "aToTable_GLBank" + Me.aToTable_GLBank.ImageName = Nothing + Me.aToTable_GLBank.Shortcut = Nothing + Me.aToTable_GLBank.Tag = Nothing + Me.aToTable_GLBank.TargetObjectsCriteria = Nothing + Me.aToTable_GLBank.TargetObjectType = GetType(SISBusiness.[Module].GLBank) + Me.aToTable_GLBank.TargetViewId = "" + Me.aToTable_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_GLBank.ToolTip = Nothing + Me.aToTable_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateGLBankRateDiff + ' + Me.aGenerateGLBankRateDiff.Caption = "Generate rate diff" + Me.aGenerateGLBankRateDiff.Category = "ObjectsCreation" + Me.aGenerateGLBankRateDiff.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateGLBankRateDiff.Id = "aGenerateGLBankRateDiff" + Me.aGenerateGLBankRateDiff.ImageName = "money" + Me.aGenerateGLBankRateDiff.Shortcut = Nothing + Me.aGenerateGLBankRateDiff.Tag = Nothing + Me.aGenerateGLBankRateDiff.TargetObjectsCriteria = Nothing + Me.aGenerateGLBankRateDiff.TargetViewId = "GLBank_ListView" + Me.aGenerateGLBankRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateGLBankRateDiff.ToolTip = Nothing + Me.aGenerateGLBankRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGLBankDivideRows + ' + Me.aGLBankDivideRows.AcceptButtonCaption = Nothing + Me.aGLBankDivideRows.CancelButtonCaption = Nothing + Me.aGLBankDivideRows.Caption = "Divide rows" + Me.aGLBankDivideRows.ConfirmationMessage = Nothing + Me.aGLBankDivideRows.Id = "aGLBankDivideRows" + Me.aGLBankDivideRows.ImageName = "row_add_after" + Me.aGLBankDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBankDivideRows.Shortcut = Nothing + Me.aGLBankDivideRows.Tag = Nothing + Me.aGLBankDivideRows.TargetObjectsCriteria = Nothing + Me.aGLBankDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Bank" + Me.aGLBankDivideRows.ToolTip = Nothing + Me.aGLBankDivideRows.TypeOfView = Nothing + ' + 'aToTableD_GLBank + ' + Me.aToTableD_GLBank.Caption = "Delete row" + Me.aToTableD_GLBank.Category = "aToTableD_GLBank" + Me.aToTableD_GLBank.ConfirmationMessage = Nothing + Me.aToTableD_GLBank.Id = "aToTableD_GLBank" + Me.aToTableD_GLBank.ImageName = Nothing + Me.aToTableD_GLBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_GLBank.Shortcut = Nothing + Me.aToTableD_GLBank.Tag = Nothing + Me.aToTableD_GLBank.TargetObjectsCriteria = Nothing + Me.aToTableD_GLBank.TargetViewId = "GLBank_DetailView" + Me.aToTableD_GLBank.ToolTip = Nothing + Me.aToTableD_GLBank.TypeOfView = Nothing + ' + 'aBackToRowEdit_GLBank + ' + Me.aBackToRowEdit_GLBank.Caption = "Edit row" + Me.aBackToRowEdit_GLBank.Category = "aBackToRowEdit_GLBank" + Me.aBackToRowEdit_GLBank.ConfirmationMessage = Nothing + Me.aBackToRowEdit_GLBank.Id = "aBackToRowEdit_GLBank" + Me.aBackToRowEdit_GLBank.ImageName = Nothing + Me.aBackToRowEdit_GLBank.Shortcut = Nothing + Me.aBackToRowEdit_GLBank.Tag = Nothing + Me.aBackToRowEdit_GLBank.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_GLBank.TargetViewId = "GLBank_DetailView" + Me.aBackToRowEdit_GLBank.ToolTip = Nothing + Me.aBackToRowEdit_GLBank.TypeOfView = Nothing + ' + 'aMakeEditable_GLBank + ' + Me.aMakeEditable_GLBank.Caption = "aMakeEditable_GLBank" + Me.aMakeEditable_GLBank.Category = "ObjectsCreation" + Me.aMakeEditable_GLBank.ConfirmationMessage = Nothing + Me.aMakeEditable_GLBank.Id = "aMakeEditable_GLBank" + Me.aMakeEditable_GLBank.ImageName = "Images.replace2.png" + Me.aMakeEditable_GLBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditable_GLBank.Shortcut = Nothing + Me.aMakeEditable_GLBank.Tag = Nothing + Me.aMakeEditable_GLBank.TargetObjectsCriteria = Nothing + Me.aMakeEditable_GLBank.TargetViewId = Nothing + Me.aMakeEditable_GLBank.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMakeEditable_GLBank.ToolTip = Nothing + Me.aMakeEditable_GLBank.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aImportPCIGroupBank + ' + Me.aImportPCIGroupBank.AcceptButtonCaption = Nothing + Me.aImportPCIGroupBank.CancelButtonCaption = Nothing + Me.aImportPCIGroupBank.Caption = "Get exported " + Me.aImportPCIGroupBank.Category = "aImportPCIGroupBank" + Me.aImportPCIGroupBank.ConfirmationMessage = Nothing + Me.aImportPCIGroupBank.Id = "aImportPCIGroupBank" + Me.aImportPCIGroupBank.ImageName = Nothing + Me.aImportPCIGroupBank.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aImportPCIGroupBank.Shortcut = Nothing + Me.aImportPCIGroupBank.Tag = Nothing + Me.aImportPCIGroupBank.TargetObjectsCriteria = Nothing + Me.aImportPCIGroupBank.TargetViewId = "GLBank_DetailView" + Me.aImportPCIGroupBank.ToolTip = Nothing + Me.aImportPCIGroupBank.TypeOfView = Nothing + ' + 'aPCICheckBankTransfer + ' + Me.aPCICheckBankTransfer.Caption = "aPCICheck Bank Transfer" + Me.aPCICheckBankTransfer.Category = "RecordEdit" + Me.aPCICheckBankTransfer.ConfirmationMessage = Nothing + Me.aPCICheckBankTransfer.Id = "aPCICheckBankTransfer" + Me.aPCICheckBankTransfer.ImageName = Nothing + Me.aPCICheckBankTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheckBankTransfer.Shortcut = Nothing + Me.aPCICheckBankTransfer.Tag = Nothing + Me.aPCICheckBankTransfer.TargetObjectsCriteria = Nothing + Me.aPCICheckBankTransfer.TargetObjectType = GetType(SISBusiness.[Module].RegistryBankTransferView) + Me.aPCICheckBankTransfer.TargetViewId = Nothing + Me.aPCICheckBankTransfer.ToolTip = Nothing + Me.aPCICheckBankTransfer.TypeOfView = Nothing + ' + 'aGetCurrencyRateBank + ' + Me.aGetCurrencyRateBank.Caption = "aGet Currency Rate Bank" + Me.aGetCurrencyRateBank.Category = "aGetCurrencyRateBank" + Me.aGetCurrencyRateBank.ConfirmationMessage = Nothing + Me.aGetCurrencyRateBank.Id = "aGetCurrencyRateBank" + Me.aGetCurrencyRateBank.ImageName = Nothing + Me.aGetCurrencyRateBank.Shortcut = Nothing + Me.aGetCurrencyRateBank.Tag = Nothing + Me.aGetCurrencyRateBank.TargetObjectsCriteria = Nothing + Me.aGetCurrencyRateBank.TargetObjectType = GetType(SISBusiness.[Module].GLBank) + Me.aGetCurrencyRateBank.TargetViewId = Nothing + Me.aGetCurrencyRateBank.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGetCurrencyRateBank.ToolTip = Nothing + Me.aGetCurrencyRateBank.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aRecalculateBallance As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalAndNew_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportSavedBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFinal_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateGLBankRateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLBankDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aToTableD_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditable_GLBank As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportPCIGroupBank As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPCICheckBankTransfer As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGetCurrencyRateBank As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.resx new file mode 100644 index 0000000..4bc38d3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 181, 17 + + + 357, 17 + + + 690, 17 + + + 992, 17 + + + 1139, 17 + + + 17, 56 + + + 179, 56 + + + 335, 56 + + + 522, 56 + + + 819, 17 + + + 511, 17 + + + 699, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb new file mode 100644 index 0000000..8830931 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb @@ -0,0 +1,911 @@ +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.SystemModule +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Model + +Public Class GLBankVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + MyBase.OnActivated() + Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", False) + + If View.Id Like "GLHeader_GLRows_ListView_Bank" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + End If + If View.Id = "GLBank_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Dim _GLBank As GLBank = TryCast(View.CurrentObject, GLBank) + If _GLBank Is Nothing Then + Else + + If _GLBank.IsEditable = False Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + + Frame.GetController(Of GLBankVC).aFinal_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aFinalAndNew_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aToTable_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aToTableD_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aBackToRowEdit_GLBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aImportSavedBank.Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aImportPCIGroupBank.Active.SetItemValue("", False) + + Else + If _ocur.Session.IsNewObject(_GLBank) = False Then + + _GLBank.BallanceHUF = _GLBank.GetBallanceHUF(_GLBank.LiquidAssets_Main, _GLBank.DateExecution) + _GLBank.BallanceDEV = _GLBank.GetBallanceDEV(_GLBank.LiquidAssets_Main, _GLBank.DateExecution) + _GLBank.RecalculateTotal() + + End If + End If + If _GLBank.IsStorno = True Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "GLBank_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of GLBankVC).aMakeEditable_GLBank.Active.SetItemValue("", True) + Frame.GetController(Of GLBankVC).aRecalculateBallance.Active.SetItemValue("", True) + End If + If View.Id = "GLBank_ListView_Editable" Then + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLBank_DeleteAction_Executed + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "PCIGroup_ListView_HUF" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + + 'If View.Id = "PCIGroup_ListView_Find" Then + ' Dim ListView As ListView = TryCast(View, ListView) + ' ListView.CollectionSource.Criteria.Clear() + 'End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLBank_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id Like "GLHeader_GLRows_ListView_Bank" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + RemoveHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + End If + If View.Id = "PCIGroup_ListView_HUF" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + + End Sub + + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + + If View Is Nothing Then Exit Sub + If View.Id = "GLBankPrepareName_GLBankPrepareNameGroup_ListView" Then + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + Dim _GLBankPrepareName As GLBankPrepareName + Dim _GLBankPrepareNameGroup As GLBankPrepareNameGroup + _GLBankPrepareName = TryCast(cs.MasterObject, GLBankPrepareName) + + If _GLBankPrepareName IsNot Nothing Then + If View.SelectedObjects.Count > 0 Then + _GLBankPrepareNameGroup = TryCast(View.SelectedObjects(0), GLBankPrepareNameGroup) + If _GLBankPrepareNameGroup IsNot Nothing Then + _GLBankPrepareName.BankPrepareName = _GLBankPrepareNameGroup.BankPrepareName + End If + End If + End If + End If + End Sub + + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _GLBank As GLBank = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLBank) + If _GLBank.IsEditable = False Then + Frame.GetController(Of GLBankVC).aToTable_GLBank.Active.SetItemValue("", False) + End If + End Sub + Private Sub aMakeEditable_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + If _GLBank IsNot Nothing Then + + _GLBank.IsEditable = True + _ocur.CommitChanges() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLBank_DetailView", True, _onew.GetObject(_GLBank)) + End If + End Sub + Private Sub aFinalAndNew_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLBank.Execute + GLBank_Final(e) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLBank_Finalized = _onew.GetObject(TryCast(e.SelectedObjects(0), GLBank)) + Dim _GLBank As GLBank = _onew.CreateObject(Of GLBank)() + + _GLBank.CustomersFrom = _GLBank_Finalized.CustomersFrom + _GLBank.LiquidAssets_Main = _GLBank_Finalized.LiquidAssets_Main + _GLBank.DateExecution = _GLBank_Finalized.DateExecution + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLBank) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + + End Sub + Private Sub aToTable_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _GLHeader As GLHeader = TryCast(_GLBank, GLHeader) + Dim _GLRows As GLRows + Dim _GUID As Guid = Guid.NewGuid() + Dim _CashType As eCashType + + If _GLBank Is Nothing Then Exit Sub + + _GLRows = _ocur.CreateObject(Of GLRows)() + + If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Or _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then + _CashType = eCashType.ePartner + If _GLBank.row_PartnerType = ePartnerType.eReceivables Then + If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Then + _GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut) + ElseIf _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then + _GLHeader.row_DebitChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut) + _GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + End If + Else + If _GLBank.row_TransactionType = eTransactionType.ePartnerCredit Then + _GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn) + ElseIf _GLBank.row_TransactionType = eTransactionType.ePartnerDebit Then + _GLHeader.row_DebitChartOfAccounts = _GLBank.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn) + _GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + End If + End If + Else + _CashType = eCashType.eNormal + If _GLBank.row_TransactionType = eTransactionType.eNormalCredit Or _GLBank.row_TransactionType = eTransactionType.eCorrectionCreditHUF Then + _GLHeader.row_DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLBank.row_ChartOfAccounts + Else + _GLHeader.row_DebitChartOfAccounts = _GLBank.row_ChartOfAccounts + _GLHeader.row_CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + End If + + End If + Select Case _GLBank.row_TransactionType + Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit, eTransactionType.eCorrectionCreditHUF + _GLRows.CreditAmountHUF = _GLHeader.row_AmountHUF + _GLRows.CreditAmountDEV = _GLHeader.row_AmountDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + _GLRows.InAmountHUF = _GLHeader.row_AmountHUF + _GLRows.InAmountDEV = _GLHeader.row_AmountDEV + _GLRows.InAmountDEV2 = _GLBank.row_AmountDEV2 + _GLRows.CurrencyRate2 = _GLBank.row_CurrencyRate2 + Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit, eTransactionType.eCorrectionDebitHUF + _GLRows.DebitAmountHUF = _GLHeader.row_AmountHUF + _GLRows.DebitAmountDEV = _GLHeader.row_AmountDEV + _GLRows.CreditAmountDEV = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.OutAmountHUF = _GLHeader.row_AmountHUF + _GLRows.OutAmountDEV = _GLHeader.row_AmountDEV + _GLRows.OutAmountDEV2 = _GLBank.row_AmountDEV2 + _GLRows.CurrencyRate2 = _GLBank.row_CurrencyRate2 + End Select + _GLRows.PartnerType = _GLBank.row_PartnerType + + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLBank.LiquidAssets_Main, _ + _GLHeader.row_Customer, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + _GLBank.row_TransactionType, _CashType, _GLBank.row_PartnerType) + _GLBank.RecalculateTotal() + _GLBank.GetBallanceDEV(_GLBank.row_LiquidAssets, _GLBank.DateExecution) + _GLBank.GetBallanceHUF(_GLBank.row_LiquidAssets, _GLBank.DateExecution) + + _ocur.CommitChanges() + + '--- Pontozás ellenőrzése !!!! ---------------------------------------------------------------------------------------------------------------- + Select Case _GLBank.row_TransactionType + Case eTransactionType.ePartnerCredit, eTransactionType.ePartnerDebit + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End Select + + '---------------------------------------------------------------------------------------------------------------------------------------------- + + _GLBank.row_NoteRows = "" + _GLBank.row_AmountDEV = 0 + _GLBank.row_AmountHUF = 0 + _GLBank.row_PCIGroup = Nothing + _GLBank.row_Customer = Nothing + _GLBank.row_ConnectInfo = "" + _GLBank.row_ChartOfAccounts = Nothing + _GLBank.row_AmountDEV2 = 0 + _GLBank.row_CurrencyRate2 = 0 + + '// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!---------------------------------------------------------------- + + Dim _Action As IModelAction + Dim _IModelActionExtender As IModelActionExtender + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Id = e.Action.Id Then + _IModelActionExtender = TryCast(_Action, IModelActionExtender) + If _IModelActionExtender IsNot Nothing Then + If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem) + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End If + End If + Exit For + End If + Next + '-------------------------------------------------------------------------------------------------------- + + View.Refresh() + + End Sub + Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLBank.Execute + GLBank_Final(e) + View.Close(False) + End Sub + +#Region "SIS" + Public Sub GLBank_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + If View.SelectedObjects.Count > 0 Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank As GLBank = TryCast(e.SelectedObjects(0), GLBank) + Dim _GLRows As GLRows + For Each _GLBank In e.SelectedObjects + If _GLBank.GLRows.Count <= 0 Then + Throw New Exception("*Nincs rögzített sor !") + End If + For Each _GLRows In _GLBank.GLRows + _GLRows.LiquidAssets = _GLBank.LiquidAssets_Main + Next + + _GLBank.GetBallanceHUF(_GLBank.LiquidAssets_Main, _GLBank.DateExecution) + _GLBank.GetBallanceDEV(_GLBank.LiquidAssets_Main, _GLBank.DateExecution) + _GLBank.IsEditable = False + + _ocur.CommitChanges() + + '// Az összes sorra vonatkozó pontozás újragenerálása, mert változhat a dátum ! + For Each _GLRows In _GLBank.GLRows + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + + If _GLBank.CurrencyName.ShortName <> "HUF" Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GenerateCurrencyRateAverageStart(_uow, _GLBank.DateExecution.Year, _GLBank) + End If + End If + End Sub + + Private Sub GenerateCurrencyRateAverageStart(_uow As UnitOfWork, _Year As Long, _GLBank As GLBank) + + + Dim _GLRows_Collection As New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _GLBank.LiquidAssets_Main.Oid, New Date(_Year, 1, 1))) + + Dim _GLRows As GLRows + Dim _SumAmountDEV As Double = 0 + Dim _SumAmountHUF As Double = 0 + Dim _LiquidAssetsRate As LiquidAssetsRate = _uow.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("LiquidAssets.oid=? and GetYear(DateExecution)=?", _ + _GLBank.LiquidAssets_Main.Oid, _ + _Year)) + If _LiquidAssetsRate IsNot Nothing Then + _SumAmountDEV = _LiquidAssetsRate.AmountDEV + _SumAmountHUF = _LiquidAssetsRate.AmountHUF + Else + '// HA NINCS BEÁLLÍTVA AKKOR NEM FUT LE !" + Exit Sub + End If + + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + '// A deviza a fix és az MNB árfolyammal újra kell számolni mindent + RaiseEvent DoWork() + If _GLRows.InAmountDEV > 0 Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.InAmountHUF + Exit For + End If + Next + End If + End If + Next + RaiseEvent FinalWork + _uow.CommitChanges() + + _GLRows_Collection = New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _GLBank.LiquidAssets_Main.Oid, New Date(_Year, 1, 1))) + + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending)) + _GLRows_Collection.Sorting.Add(New SortProperty("OutAmountDEV", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + + '// Árfolyamok helyrerakása + If _GLRows.OutAmountDEV > 0 Then + If _SumAmountDEV <> 0 Then + _GLRows.OutAmountHUF = Math.Round(_GLRows.OutAmountDEV * (_SumAmountHUF / _SumAmountDEV), 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Else + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.OutAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Exit For + End If + Next + End If + End If + + _SumAmountDEV -= Math.Round(_GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF -= Math.Round(_GLRows.OutAmountHUF, 2, MidpointRounding.AwayFromZero) + + If _SumAmountDEV < 0 Then _SumAmountDEV = 0 + If _SumAmountHUF < 0 Then _SumAmountHUF = 0 + Else + _SumAmountDEV += Math.Round(_GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF += Math.Round(_GLRows.InAmountHUF, 2, MidpointRounding.AwayFromZero) + End If + Next + _uow.CommitChanges() + + RaiseEvent FinalWork + End Sub +#End Region + Private Sub aToTableD_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLBank.Execute + 'Törli a táblázatban lévő sort + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GUID As Guid + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim i As Long + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + If _GLRows IsNot Nothing Then + _GUID = _GLRows.GLRowsGUID + selection.Clear() + For Each _GLRows In _GLBank.GLRows + If _GLRows.GLRowsGUID = _GUID Then + selection.Add(_GLRows) + End If + Next + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLBank.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + _GLBank.RecalculateTotal() + _ocur.CommitChanges() + + View.Refresh() + End If + End Sub + Private Sub aBackToRowEdit_GLBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLBank.Execute + 'Visszatölti a sort editáláshoz + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim _PCIGroup As PCIGroup + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows IsNot Nothing Then + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + _GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLBank.CurrencyName.ShortName)) + _PCIGroup = _ocur.FindObject(Of PCIGroup) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? ", _GLRows.GLHeader.CustomersFrom, _ + _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True) + If _PCIGroup IsNot Nothing Then + _GLBank.row_PCIGroup = _PCIGroup + If _PCIGroup.CurrencyName_Account Is Nothing Then + _GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName.ShortName)) + Else + _GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName_Account.ShortName)) + End If + + If _GLBank.row_CurrencyName2 Is Nothing Then + _GLBank.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLBank.CurrencyName.ShortName)) + End If + End If + + _GLBank.row_TransactionType = _GLRows.TransactionType + _GLBank.row_PartnerType = _GLRows.PartnerType + _GLBank.row_Customer = _GLRows.Customer + _GLBank.row_ConnectInfo = _GLRows.ConnectInfo + + _GLBank.row_NoteRows = _GLRows.NoteRows + _GLBank.row_CurrencyRate = _GLRows.CurrencyRate + _GLBank.row_CurrencyRate2 = _GLRows.CurrencyRate2 + + If _GLRows.InAmountHUF > 0 Then + _GLBank.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLBank.row_AmountDEV2 = _GLRows.InAmountDEV2 + Else + _GLBank.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLBank.row_AmountDEV2 = _GLRows.OutAmountDEV2 + End If + + selection.Clear() + Dim _GLRows_GUID_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRows.GLRowsGUID)) + Dim _AmountDEV As Double = 0 + Dim _AmountHUF As Double = 0 + For Each _GLRows In _GLRows_GUID_Collection + _AmountDEV += _GLRows.AmountDEV + _AmountHUF += _GLRows.AmountHUF + selection.Add(_GLRows) + Next + _GLBank.row_AmountDEV = _AmountDEV + _GLBank.row_AmountHUF = _AmountHUF + + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLBank.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + + End If + + View.Refresh() + End Sub + Private Sub aImportSavedBank_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportSavedBank.CustomizePopupWindowParams + Dim _GLBank As GLBank = View.SelectedObjects(0) + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(RegistryBankTransferView)) + Dim _RegistryBankTransferviewCollection As XPCollection = _onew.CreateCollection(GetType(RegistryBankTransferView), _ + CriteriaOperator.Parse("BankSavedFileName !='' and RegistryHeader.CustomersFrom=? and (BallanceHUF <> 0 Or BallanceDEV <> 0)", _onew.GetObject(_GLBank.CustomersFrom))) + Dim _KeyCollection As Collection = New Collection() + Dim _RegistryBankTransferView As RegistryBankTransferView + For Each _RegistryBankTransferView In _RegistryBankTransferviewCollection + _KeyCollection.Add(_RegistryBankTransferView.Oid) + Next + Dim _InOperator As New InOperator("Oid", _KeyCollection) + _CS.BeginUpdateCriteria() + + _CS.Criteria.Clear() + _CS.Criteria("First") = _InOperator + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("RegistryBankTransfer_ListView_Import", _CS, False) + e.View.Refresh() + End Sub + Private Sub aImportSavedBank_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportSavedBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLRows As GLRows + Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader) + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _RegistryBankTransfer_view_onew As RegistryBankTransferView + Dim _RegistryBankTransfer_view As RegistryBankTransferView + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _GUID As Guid + For Each _RegistryBankTransfer_view_onew In e.PopupWindow.View.SelectedObjects + _RegistryBankTransfer_view = _ocur.GetObject(_RegistryBankTransfer_view_onew) + _RegistryBankTransfer = _ocur.FindObject(Of RegistryBankTransfer)(CriteriaOperator.Parse("Oid=?", _RegistryBankTransfer_view.Oid)) + _GLRows = _ocur.CreateObject(Of GLRows)() + _GUID = Guid.NewGuid + _DebitChartOfAccounts = _RegistryBankTransfer.RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryBankTransfer.RegistryHeader.F_DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_RegistryBankTransfer.RegistryHeader.F_DateExecution.Year, 0) + _GLRows.DebitAmountHUF = _RegistryBankTransfer.AmountHUF + _GLRows.DebitAmountDEV = _RegistryBankTransfer.AmountDEV + _GLRows.OutAmountHUF = _RegistryBankTransfer.AmountHUF + _GLRows.OutAmountDEV = _RegistryBankTransfer.AmountDEV + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _ + _RegistryBankTransfer.AmountDEV, _RegistryBankTransfer.AmountHUF, _GLHeader.row_LiquidAssets, _ + _RegistryBankTransfer.RegistryHeader.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _RegistryBankTransfer.RegistryHeader.DocumentNumber, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.ePartnerDebit, eCashType.ePartner, ePartnerType.ePayabels) + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _GLBank.CustomersFrom, _RegistryBankTransfer.RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryBankTransfer.RegistryHeader.DocumentNumber) + + Next + _GLBank.RecalculateTotal() + View.Refresh() + + + End Sub + + Private Sub aRecalculateBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateBallance.Execute + Dim _LiquidAssets As LiquidAssets = TryCast(e.SelectedObjects(0), GLBank).LiquidAssets_Main + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank_Collection As New XPCollection(Of GLBank)(_ocur.Session, CriteriaOperator.Parse("LiquidAssets_Main=? and IsEditable=False ", _LiquidAssets)) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + Dim I As Long = 0 + + Dim _InAmountHUF_Open As Double = 0 + Dim _OutAmountHUF_Open As Double = 0 + Dim _InAmountDEV_Open As Double = 0 + Dim _OutAmountDEV_Open As Double = 0 + + Dim _InAmountHUF_Close As Double = 0 + Dim _OutAmountHUF_Close As Double = 0 + Dim _InAmountDEV_Close As Double = 0 + Dim _OutAmountDEV_Close As Double = 0 + + Try + GLOBAL_HAS_Audit = False + If _LiquidAssets IsNot Nothing Then + _GLBank_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + _GLBank_Collection.Sorting.Add(New SortProperty("DocumentNumber", DB.SortingDirection.Ascending)) + _InAmountHUF = 0 + _InAmountDEV = 0 + _OutAmountHUF = 0 + _OutAmountDEV = 0 + + + RaiseEvent InitWork(1, 1, _GLBank_Collection.Count) + For Each _GLBank In _GLBank_Collection + _GLBank.BallanceHUF = 0 + _GLBank.BallanceDEV = 0 + RaiseEvent DoWork() + I += 1 + If I > 1 Then + _GLBank.BallanceHUF = _InAmountHUF - _OutAmountHUF + _GLBank.BallanceDEV = _InAmountDEV - _OutAmountDEV + _ocur.CommitChanges() + End If + + + For Each _GLRows In _GLBank.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountDEV += _GLRows.OutAmountDEV + _OutAmountHUF += _GLRows.OutAmountHUF + Next + + _GLBank.RecalculateTotal() + Next + End If + _ocur.CommitChanges() + View.Refresh() + Catch ex As Exception + MsgBox(ex.Message) + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + + End Sub + + Private Sub aGLBankDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBankDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + End If + End Sub + Private Sub aGLBankDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBankDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + End If + End Sub + + Private Sub aGenerateGLBankRateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLBankRateDiff.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank As GLBank = TryCast(e.SelectedObjects(0), GLBank) + + For Each _GLBank In e.SelectedObjects + If Not _GLBank.CurrencyName.ShortName = "HUF" Then + _GLBank.Reconfigure_RateDiff(_ocur, _GLBank) + End If + Next + _ocur.CommitChanges() + View.Refresh() + End Sub + + Private Sub aImportPCIGroupBank_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportPCIGroupBank.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup)) + + Dim _P As PCIGroup + If _GLBank IsNot Nothing Then + + _CollectionSource.Criteria.Clear() + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("CurrencyName_Account.ShortName=?", _GLBank.LiquidAssets_Main.CurrencyName.ShortName) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLBank.row_PartnerType) + _CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLBank.CustomersFrom.Oid) + If _GLBank.LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceHUF>0") + Else + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceDEV>0") + End If + + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True) + + End If + End Sub + + Private Sub aImportPCIGroupBank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportPCIGroupBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup + Dim _PCIGroup_P As PCIGroup + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + Dim _GLHeader As GLHeader = TryCast(_GLBank, GLHeader) + Dim _GLRows As GLRows + Dim _GUID As Guid + Dim _CashType As eCashType + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _TransactionType As eTransactionType + If _GLBank Is Nothing Then Exit Sub + + + For Each _PCIGroup_P In e.PopupWindow.View.SelectedObjects + _PCIGroup = _ocur.GetObject(_PCIGroup_P) + _GLRows = _ocur.CreateObject(Of GLRows)() + _GUID = Guid.NewGuid() + _CashType = eCashType.ePartner + If _PCIGroup.PartnerType = ePartnerType.eReceivables Then + _DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut) + _TransactionType = eTransactionType.ePartnerCredit + Else + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn) + _CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerDebit + End If + + Select Case _PCIGroup.PartnerType + Case ePartnerType.eReceivables + + _GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF + _GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + _GLRows.InAmountHUF = _PCIGroup.BallanceHUF + _GLRows.InAmountDEV = _PCIGroup.BallanceDEV + + Case ePartnerType.ePayabels + _GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF + _GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV + _GLRows.CreditAmountDEV = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.OutAmountHUF = _PCIGroup.BallanceHUF + _GLRows.OutAmountDEV = _PCIGroup.BallanceDEV + + End Select + _GLRows.PartnerType = _PCIGroup.PartnerType + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _ + _PCIGroup.BallanceDEV, _PCIGroup.BallanceHUF, _GLBank.LiquidAssets_Main, _ + _PCIGroup.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _PCIGroup.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + _TransactionType, _CashType, _PCIGroup.PartnerType) + _GLBank.RecalculateTotal() + _GLBank.GetBallanceDEV(_GLBank.row_LiquidAssets, _GLBank.DateExecution) + _GLBank.GetBallanceHUF(_GLBank.row_LiquidAssets, _GLBank.DateExecution) + + _ocur.CommitChanges() + + '--- Pontozás ellenőrzése !!!! ---------------------------------------------------------------------------------------------------------------- + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + + Next + End Sub + + Private Sub GLBank_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _GLRows_Collection As XPCollection(Of GLRows) + + + For Each _GLBank In TryCast(e, SimpleActionExecuteEventArgs).SelectedObjects + '// Pontozás erre a bankra vonatkozólag törölni ! + + _GLRows_Collection = New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("PartnerType<>'eNotSet' and GLHeader.Oid=?", _GLBank.Oid), True) + For Each _GLRows In _GLRows_Collection + GLFunctions.ReconfigurePCI(_uow, _GLBank.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + End Sub + + Private Sub aPCICheckBankTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckBankTransfer.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _RegistryBankTransferView As RegistryBankTransferView + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryBankTransferView In View.SelectedObjects + RaiseEvent DoWork() + If _RegistryBankTransferView IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _RegistryBankTransferView.RegistryHeader.CustomersFrom, _RegistryBankTransferView.RegistryHeader.Customers, 1, _RegistryBankTransferView.RegistryHeader.F_ConnectInfo) + End If + Next + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aGetCurrencyRateBank_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetCurrencyRateBank.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBank As GLBank = TryCast(View.SelectedObjects(0), GLBank) + + If _GLBank IsNot Nothing Then + _GLBank.row_CurrencyRate = _GLBank.LiquidAssets_Main.GetCurrencyRateDate(_ocur, _GLBank.row_TransactionType, _GLBank.LiquidAssets_Main, _GLBank.DateExecution) + End If + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/BankImportPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/BankImportPopup.vb new file mode 100644 index 0000000..9fb1aa6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/BankImportPopup.vb @@ -0,0 +1,128 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class BankImportPopup + Inherits BaseObject + Private _TransactionType As eTransactionType + Private _ChartOfAccounts As ChartOfAccounts + Private _Controlling As Controlling + Private _Customers As Customers + Private _ConnectInfo As String + Private _AmountHUF As Double = 0 + Private _AmountDEV As Double = 0 + Private _AmountDEV2 As Double = 0 + Private _CurrencyName2 As CurrencyName + Private _PCIGroup As PCIGroup + Private _NoteRows As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property TransactionType As eTransactionType + Get + Return _TransactionType + End Get + Set(value As eTransactionType) + SetPropertyValue("TransactionType", _TransactionType, value) + End Set + End Property + _ + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + Property AmountDEV2 As Double + Get + Return _AmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("AmountDEV2", _AmountDEV2, value) + End Set + End Property + Property CurrencyName2 As CurrencyName + Get + Return _CurrencyName2 + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName2", _CurrencyName2, value) + End Set + End Property + Property PCIGroup As PCIGroup + Get + Return _PCIGroup + End Get + Set(value As PCIGroup) + SetPropertyValue("PCIGroup", _PCIGroup, value) + End Set + End Property + _ + Property NoteRows As String + Get + Return _NoteRows + End Get + Set(value As String) + SetPropertyValue("NoteRows", _NoteRows, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/GLBankPrepareName.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/GLBankPrepareName.vb new file mode 100644 index 0000000..0ca11ec --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/Popup/GLBankPrepareName.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + +Public Class GLBankPrepareName + Inherits BaseObject + Private _BankPrepareName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property BankPrepareName As String + Get + Return _BankPrepareName + End Get + Set(value As String) + SetPropertyValue("BankPrepareName", _BankPrepareName, value) + End Set + End Property + _ + ReadOnly Property GLBankPrepareNameGroup As XPCollection(Of GLBankPrepareNameGroup) + Get + Return New XPCollection(Of GLBankPrepareNameGroup)(Session) + End Get + End Property +End Class + _ + _ +Public Class GLBankPrepareNameGroup + Inherits XPLiteObject + Property Oid As String + Property BankPrepareName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb new file mode 100644 index 0000000..6490716 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.Designer.vb @@ -0,0 +1,213 @@ +Partial Class GLBaseVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGLBaseOpenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLRowsRepairYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRepairNoDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDown_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLBaseDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLBaseOpenAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewGLDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReconfigureGLDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDeleteGLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLRowsNormalToPartner = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aUp_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLBaseViewPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGLBaseOpenDocument + ' + Me.aGLBaseOpenDocument.Caption = "View document" + Me.aGLBaseOpenDocument.Category = "View" + Me.aGLBaseOpenDocument.ConfirmationMessage = Nothing + Me.aGLBaseOpenDocument.Id = "aGLBaseOpenDocument" + Me.aGLBaseOpenDocument.ImageName = "Action_Open" + Me.aGLBaseOpenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBaseOpenDocument.TargetViewId = "" + Me.aGLBaseOpenDocument.ToolTip = Nothing + ' + 'aGLRowsRepairYear + ' + Me.aGLRowsRepairYear.Caption = "aGLRows Repair Year" + Me.aGLRowsRepairYear.ConfirmationMessage = Nothing + Me.aGLRowsRepairYear.Id = "aGLRowsRepairYear" + Me.aGLRowsRepairYear.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLRowsRepairYear.TargetViewId = "GLRows_ListView_Error" + Me.aGLRowsRepairYear.ToolTip = Nothing + ' + 'aRepairNoDetails + ' + Me.aRepairNoDetails.Caption = "aRepair No Details" + Me.aRepairNoDetails.ConfirmationMessage = Nothing + Me.aRepairNoDetails.Id = "aRepairNoDetails" + Me.aRepairNoDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRepairNoDetails.TargetViewId = "GLRows_ListView_Error_NoDetails" + Me.aRepairNoDetails.ToolTip = Nothing + ' + 'aDown_GLRows + ' + Me.aDown_GLRows.Caption = "Down" + Me.aDown_GLRows.Category = "RecordsNavigation" + Me.aDown_GLRows.ConfirmationMessage = Nothing + Me.aDown_GLRows.Id = "aDown_GLRows" + Me.aDown_GLRows.ImageName = "arrow_down_green" + Me.aDown_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aDown_GLRows.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aDown_GLRows.TargetViewId = "" + Me.aDown_GLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Nested + Me.aDown_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aDown_GLRows.ToolTip = Nothing + Me.aDown_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aGLBaseDivideRows + ' + Me.aGLBaseDivideRows.AcceptButtonCaption = Nothing + Me.aGLBaseDivideRows.CancelButtonCaption = Nothing + Me.aGLBaseDivideRows.Caption = "Divide rows" + Me.aGLBaseDivideRows.Category = "Edit" + Me.aGLBaseDivideRows.ConfirmationMessage = Nothing + Me.aGLBaseDivideRows.Id = "aGLBaseDivideRows" + Me.aGLBaseDivideRows.ImageName = "row_add_after" + Me.aGLBaseDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBaseDivideRows.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGLBaseDivideRows.TargetViewId = "" + Me.aGLBaseDivideRows.ToolTip = Nothing + ' + 'aGLBaseOpenAttachments + ' + Me.aGLBaseOpenAttachments.Caption = "View document" + Me.aGLBaseOpenAttachments.Category = "View" + Me.aGLBaseOpenAttachments.ConfirmationMessage = Nothing + Me.aGLBaseOpenAttachments.Id = "aGLBaseOpenAttachments" + Me.aGLBaseOpenAttachments.ImageName = "Action_Open" + Me.aGLBaseOpenAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBaseOpenAttachments.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGLBaseOpenAttachments.TargetViewId = "" + Me.aGLBaseOpenAttachments.ToolTip = Nothing + ' + 'aPCICheck_GLRows + ' + Me.aPCICheck_GLRows.Caption = "aPCICheck_GLRows" + Me.aPCICheck_GLRows.ConfirmationMessage = "Do you want to execute ?" + Me.aPCICheck_GLRows.Id = "aPCICheck_GLRows" + Me.aPCICheck_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_GLRows.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aPCICheck_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPCICheck_GLRows.ToolTip = Nothing + Me.aPCICheck_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aViewGLDetail + ' + Me.aViewGLDetail.Caption = "aView GLDetail" + Me.aViewGLDetail.ConfirmationMessage = Nothing + Me.aViewGLDetail.Id = "aViewGLDetail" + Me.aViewGLDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewGLDetail.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aViewGLDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewGLDetail.ToolTip = Nothing + Me.aViewGLDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aReconfigureGLDetail + ' + Me.aReconfigureGLDetail.Caption = "aReconfigure GLDetail" + Me.aReconfigureGLDetail.ConfirmationMessage = "Are you sure ?" + Me.aReconfigureGLDetail.Id = "aReconfigureGLDetail" + Me.aReconfigureGLDetail.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aReconfigureGLDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aReconfigureGLDetail.ToolTip = Nothing + Me.aReconfigureGLDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aDeleteGLRows + ' + Me.aDeleteGLRows.Caption = "aDelete GLRows" + Me.aDeleteGLRows.ConfirmationMessage = "Are you sure ?" + Me.aDeleteGLRows.Id = "aDeleteGLRows" + Me.aDeleteGLRows.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aDeleteGLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aDeleteGLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aDeleteGLRows.ToolTip = Nothing + Me.aDeleteGLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aGLRowsNormalToPartner + ' + Me.aGLRowsNormalToPartner.AcceptButtonCaption = Nothing + Me.aGLRowsNormalToPartner.CancelButtonCaption = Nothing + Me.aGLRowsNormalToPartner.Caption = "aGLRows Normal To Partner" + Me.aGLRowsNormalToPartner.ConfirmationMessage = Nothing + Me.aGLRowsNormalToPartner.Id = "aGLRowsNormalToPartner" + Me.aGLRowsNormalToPartner.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLRowsNormalToPartner.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGLRowsNormalToPartner.ToolTip = Nothing + ' + 'aUp_GLRows + ' + Me.aUp_GLRows.Caption = "Up" + Me.aUp_GLRows.Category = "RecordsNavigation" + Me.aUp_GLRows.ConfirmationMessage = Nothing + Me.aUp_GLRows.Id = "aUp_GLRows" + Me.aUp_GLRows.ImageName = "arrow_up_green" + Me.aUp_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aUp_GLRows.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aUp_GLRows.TargetViewId = "" + Me.aUp_GLRows.TargetViewNesting = DevExpress.ExpressApp.Nesting.Nested + Me.aUp_GLRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aUp_GLRows.ToolTip = Nothing + Me.aUp_GLRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aGLBaseViewPCIDetail + ' + Me.aGLBaseViewPCIDetail.Caption = "aGLBaseViewPCIDetail" + Me.aGLBaseViewPCIDetail.Category = "View" + Me.aGLBaseViewPCIDetail.ConfirmationMessage = Nothing + Me.aGLBaseViewPCIDetail.Id = "aGLBaseViewPCIDetail" + Me.aGLBaseViewPCIDetail.ImageName = "" + Me.aGLBaseViewPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLBaseViewPCIDetail.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGLBaseViewPCIDetail.TargetViewId = "" + Me.aGLBaseViewPCIDetail.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aGLBaseViewPCIDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGLBaseViewPCIDetail.ToolTip = Nothing + Me.aGLBaseViewPCIDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGLBaseDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLBaseOpenDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLBaseOpenAttachments As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck_GLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewGLDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReconfigureGLDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDeleteGLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLRowsNormalToPartner As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLRowsRepairYear As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRepairNoDetails As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aUp_GLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDown_GLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLBaseViewPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx new file mode 100644 index 0000000..8e6e98b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 212 + + + 17, 134 + + + 17, 251 + + + 17, 290 + + + 17, 329 + + + 17, 368 + + + 17, 446 + + + 17, 407 + + + 17, 56 + + + 17, 173 + + + 302, 373 + + + 147, 446 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb new file mode 100644 index 0000000..c6f5612 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLBaseVC.vb @@ -0,0 +1,632 @@ +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 System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo.DB + +Public Class GLBaseVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + '-- Sor mdost letiltsa + Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.Active.SetItemValue("", False) + Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", False) + Frame.GetController(Of GLBaseVC).aGLBaseViewPCIDetail.Active.SetItemValue("", False) + Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.TargetObjectType = GetType(SISBusiness.Module.GLRows) + Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.TargetObjectsCriteria = "GLHeader.GLDocumentType='eGLBank' or GLHeader.GLDocumentType='eGLCassa' or GLHeader.GLDocumentType='eGLCompensation' or GLHeader.GLDocumentType='eGLMixed'" + + Frame.GetController(Of GLBaseVC).aGLBaseOpenAttachments.Active.SetItemValue("", False) + + + + If View.Id = "GLRows_ListView_Bank" Or _ + View.Id = "GLRows_ListView_Cassa" Or _ + View.Id = "GLRows_ListView_Mixed" Or _ + View.Id = "GLRows_ListView_All" Or _ + View.Id = "GLRows_ListView_Compensation" Then + Frame.GetController(Of GLBaseVC).aGLBaseDivideRows.Active.SetItemValue("", True) + Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True) + Frame.GetController(Of GLBaseVC).aGLBaseOpenAttachments.Active.SetItemValue("", True) + Frame.GetController(Of GLBaseVC).aGLBaseViewPCIDetail.Active.SetItemValue("", True) + End If + If View.Id Like "GLRows_ListView_*" Then + Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + 'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "GLRows_ListView_Error_NoDetails" Then + Dim _ListView As ListView = TryCast(View, ListView) + + _ListView.CollectionSource.BeginUpdateCriteria() + + _ListView.CollectionSource.Criteria("First") = CriteriaOperator.Parse(GetFilterforNoDetails()) + _ListView.CollectionSource.EndUpdateCriteria() + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "GLRows_ListView_*" Then + Frame.GetController(Of GLBaseVC).aGLBaseOpenDocument.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aGLBaseDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLBaseDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_PartnerType = ePartnerType.eNotSet + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + + End If + End Sub + Private Sub aGLBaseDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLBaseDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + + If _GLRows IsNot Nothing Then + + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + + End If + End Sub + Private Sub aGLBaseOpenDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLBaseOpenDocument.Execute + '-- Karton sorhoz tartoz eredeti dokumentum megnyitsa + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + If _GLRows IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_GLRows.GLHeader)) + End If + End Sub + + Private Sub aGLBaseOpenAttachments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLBaseOpenAttachments.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + + If _GLRows IsNot Nothing Then + If _GLRows.GLHeader IsNot Nothing Then + Select Case _GLRows.GLHeader.GLDocumentType + Case eGLDocumentType.eGLAccount + Dim _GLAccounts As GLAccounts = _ocur.GetObjectByKey(Of GLAccounts)(_GLRows.GLHeader.Oid) + If _GLAccounts IsNot Nothing Then + If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + Dim _RegistryHeader As RegistryHeader = _ocur.GetObjectByKey(Of RegistryHeader)(_GLAccounts.ImportedRegistryHeader.Oid) + If _RegistryHeader IsNot Nothing Then + If _RegistryHeader.DocumentFile IsNot Nothing Then + ProcessDocument(_RegistryHeader.DocumentFile) + End If + End If + End If + If _GLAccounts.ImportedInvoice IsNot Nothing Then + Dim _InvoiceHeader As InvoiceHeader = _ocur.GetObjectByKey(Of InvoiceHeader)(_GLAccounts.ImportedInvoice.Oid) + If _InvoiceHeader IsNot Nothing Then + If _InvoiceHeader.PDF_Copy IsNot Nothing Then + ProcessDocument(_InvoiceHeader.PDF_Copy) + End If + If _InvoiceHeader.PDF_Copy Is Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, _InvoiceHeader.DocumentNumber, "") + End If + End If + End If + End If + Case eGLDocumentType.eGLBank + Dim _GLBank As GLBank = _ocur.GetObjectByKey(Of GLBank)(_GLRows.GLHeader.Oid) + Case eGLDocumentType.eGLCassa + Dim _GLCassa As GLCassa = _ocur.GetObjectByKey(Of GLCassa)(_GLRows.GLHeader.Oid) + _GLCassa.PrintCassaDocument(_GLCassa, _ocur, Frame) + Case (eGLDocumentType.eGLCompensation) + Dim _GLCompensation As GLCompensation = _ocur.GetObjectByKey(Of GLCompensation)(_GLRows.GLHeader.Oid) + + Case eGLDocumentType.eGLMixed + Dim _GLMixed As GLMixed = _ocur.GetObjectByKey(Of GLMixed)(_GLRows.GLHeader.Oid) + If _GLMixed IsNot Nothing Then + If _GLMixed.DocumentFile IsNot Nothing Then + ProcessDocument(_GLMixed.DocumentFile) + End If + End If + End Select + End If + End If + + End Sub + Private Sub ProcessDocument(_DocumentFile As FileData) + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _DocumentFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _DocumentFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + End Sub + + Private Sub aPCICheck_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_GLRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _GLRows As GLRows + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLRows In View.SelectedObjects + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + RaiseEvent DoWork() + ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + Next + RaiseEvent FinalWork + End Sub + + Private Sub aViewGLDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + If _GLRows IsNot Nothing Then + Dim _CS As New CollectionSource(_onew, GetType(GLDetails)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid) + _CS.EndUpdateCriteria() + e.ShowViewParameters.CreatedView = Application.CreateListView("GLDetails_ListView", _CS, False) + End If + End Sub + + Private Sub aReconfigureGLDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReconfigureGLDetail.Execute + '// Csak SysAdmin hasznlhatja + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _CurrentUser As User = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser)) + If _CurrentUser.UserName <> "SysAdmin" Then + Exit Sub + End If + + + + Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(_uow) + _uow.Delete(_GLDetail_Collection) + + Dim _GLDetail As GLDetails + Dim _GLRows As GLRows + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow) + + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + _GLDetail = New GLDetails(_uow) + _GLDetail.GLRows = _GLRows + _GLDetail.AmountDEV = _GLRows.AmountDEV + _GLDetail.AmountHUF = _GLRows.AmountHUF + _GLDetail.Side = "T" + _GLDetail.ChartOfAccounts = _GLRows.DebitChartOfAccounts + + _GLDetail = New GLDetails(_uow) + _GLDetail.GLRows = _GLRows + _GLDetail.AmountDEV = _GLRows.AmountDEV + _GLDetail.AmountHUF = _GLRows.AmountHUF + _GLDetail.Side = "K" + _GLDetail.ChartOfAccounts = _GLRows.CreditChartOfAccounts + _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + End Sub + + Private Sub aReconfigureRowsDateExecution_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + 'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + + 'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + 'Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False and isnull(DateExecution)=True")) + 'Dim _InvoiceRows As InvoiceRows + + 'RaiseEvent InitWork(1, 1, _InvoiceRows_Collection.Count) + 'For Each _InvoiceRows In _InvoiceRows_Collection + ' RaiseEvent DoWork() + ' _InvoiceRows.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution + 'Next + 'RaiseEvent FinalWork + '_uow.CommitChanges() + + 'Dim _RegistryRowsFinancialControlling_Collection As New XPCollection(Of RegistryRowsFinancialControlling)(_uow, CriteriaOperator.Parse("isnull(DateExecution)=True and isnull(RegistryHeader)=False and RegistryHeader.IsEditable=False and RegistryHeader.RegistryType.RegistryMainType in ('eAccount')")) + 'Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + 'For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + ' RaiseEvent DoWork() + ' _RegistryRowsFinancialControlling.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution + + 'Next + 'RaiseEvent FinalWork + '_uow.CommitChanges() + + 'Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("isnull(GLHeader)=False and isnull(DateExecution)=True")) + 'Dim _GLRows As GLRows + + 'RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + 'For Each _GLRows In _GLRows_Collection + ' RaiseEvent DoWork() + ' _GLRows.DateExecution = _GLRows.GLHeader.DateExecution + 'Next + 'RaiseEvent FinalWork + '_uow.CommitChanges() + + + + 'Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub + + Private Sub aDeleteGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeleteGLRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLRows As GLRows + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + Dim _GLAccountsRevaluations As GLAccountsRevaluations + + For Each _GLRows In View.SelectedObjects + + + _CustomersFrom = _GLRows.GLHeader.CustomersFrom + _Customers = _GLRows.Customer + _PartnerType = _GLRows.PartnerType + _ConnectInfo = _GLRows.ConnectInfo + + _GLAccountsRevaluations = _ocur.FindObject(Of GLAccountsRevaluations)(CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid) + ) + If _GLAccountsRevaluations IsNot Nothing Then + _ocur.Delete(_GLAccountsRevaluations) + End If + + _ocur.Delete(_GLRows) + _ocur.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + _uow.CommitChanges() + Next + End Sub + + Private Sub aGLRowsNormalToPartner_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGLRowsNormalToPartner.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsNormalToPartnerPopup As GLRowsNormalToPartnerPopup + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + _GLRowsNormalToPartnerPopup = _onew.CreateObject(Of GLRowsNormalToPartnerPopup)() + _GLRowsNormalToPartnerPopup.PartnerType = ePartnerType.eNotSet + _GLRowsNormalToPartnerPopup.Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsNormalToPartnerPopup.ConnectInfo = _GLRows.ConnectInfo + + e.View = Application.CreateDetailView(_onew, "GLRowsNormalToPartnerPopup_DetailView", True, _GLRowsNormalToPartnerPopup) + + End If + + End Sub + + Private Sub aGLRowsNormalToPartner_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGLRowsNormalToPartner.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsNormalToPartnerPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsNormalToPartnerPopup) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + Dim _GLBank As GLBank = TryCast(_GLRows.GLHeader, GLBank) + Dim _GLCassa As GLCassa = TryCast(_GLRows.GLHeader, GLCassa) + Dim _GLCompensation As GLCompensation = TryCast(_GLRows.GLHeader, GLCompensation) + + If _GLRows IsNot Nothing Then + + _GLRows.PartnerType = _GLRowsNormalToPartnerPopup.PartnerType + _GLRows.Customer = _ocur.GetObject(_GLRowsNormalToPartnerPopup.Customers) + _GLRows.ConnectInfo = _GLRowsNormalToPartnerPopup.ConnectInfo + _GLRows.TransactionType = _GLRowsNormalToPartnerPopup.TransactionType + + If _GLBank IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.eReceivables Then + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + End If + Else + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLBank.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLBank.DateExecution.Year, 0) + End If + End If + End If + + If _GLCassa IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.eReceivables Then + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + End If + Else + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _GLBank.LiquidAssets_Main.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + End If + End If + End If + + If _GLCompensation IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.eReceivables Then + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + _GLRows.CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + End If + Else + If _GLRows.TransactionType = eTransactionType.ePartnerCredit Then + _GLRows.DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _GLRows.CreditChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn) + ElseIf _GLRows.TransactionType = eTransactionType.ePartnerDebit Then + _GLRows.DebitChartOfAccounts = _GLRows.Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn) + _GLRows.CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + End If + End If + End If + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + End Sub + + Private Sub aGLRowsRepairYear_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLRowsRepairYear.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRows As GLRows + Dim _ChartOfAccounts As ChartOfAccounts + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + For Each _GLRows In View.SelectedObjects + RaiseEvent DoWork() + _GLRows = _onew.GetObject(_GLRows) + + If _GLRows.GLHeader IsNot Nothing Then + If _GLRows.GLHeader.DateExecution.Year <> _GLRows.DebitChartOfAccounts.AccountYear Then + _ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows.DebitChartOfAccounts.AccountNumber, _GLRows.GLHeader.DateExecution.Year)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts + End If + End If + If _GLRows.GLHeader.DateExecution.Year <> _GLRows.CreditChartOfAccounts.AccountYear Then + _ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows.CreditChartOfAccounts.AccountNumber, _GLRows.GLHeader.DateExecution.Year)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.CreditChartOfAccounts = _ChartOfAccounts + End If + End If + End If + Next + _onew.CommitChanges() + RaiseEvent FinalWork + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub + + Private Function GetFilterforNoDetails() As String + Dim _SQL As String = "" + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _return As String = "" + Select Case GLOBAL_SQLType + Case eSQLType.MySQL, eSQLType.MSSQL + _SQL = " SELECT t1.Oid,COUNT(t2.Oid)" + _SQL += " FROM GLRows t1 LEFT JOIN GLDetails t2 ON" + _SQL += " t1.Oid=t2.GLRows JOIN GLHeader t3 ON" + _SQL += " t1.GLHeader = t3.Oid" + _SQL += " WHERE t3.IsEditable = 0" + _SQL += " GROUP BY t1.Oid" + _SQL += " HAVING COUNT(t2.Oid) <> 2" + Case eSQLType.PostgreSQL + _SQL = " SELECT t1.""Oid"",COUNT(t2.""Oid"")" + _SQL += " FROM ""GLRows"" t1 LEFT JOIN ""GLDetails"" t2 ON" + _SQL += " t1.""Oid""=t2.""GLRows"" JOIN ""GLHeader"" t3 ON" + _SQL += " t1.""GLHeader"" = t3.""Oid""" + _SQL += " WHERE t3.""IsEditable"" = 0" + _SQL += " GROUP BY t1.""Oid""" + _SQL += " HAVING COUNT(t2.""Oid"") <> 2" + End Select + _SelectedData = _uow.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + + If _return = "" Then + _return = "'" & _SelectStatementResultRow.Values(0).ToString & "'" + Else + _return += ",'" & _SelectStatementResultRow.Values(0).ToString & "'" + End If + Next + End If + Return "Oid in (" & _return & ")" + + End Function + + Private Sub aRepairNoDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRepairNoDetails.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _GLRows As GLRows + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLRows In View.SelectedObjects + RaiseEvent DoWork() + Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(_uow, CriteriaOperator.Parse("GLRows.Oid=?", _GLRows.Oid.ToString)) + _uow.Delete(_GLDetail_Collection) + + Dim _GLDetail As GLDetails + _GLDetail = New GLDetails(_uow) + _GLDetail.GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRows.Oid) + _GLDetail.AmountDEV = _GLRows.AmountDEV + _GLDetail.AmountHUF = _GLRows.AmountHUF + _GLDetail.Side = "T" + _GLDetail.ChartOfAccounts = _uow.GetObjectByKey(Of ChartOfAccounts)(_GLRows.DebitChartOfAccounts.Oid) + + _GLDetail = New GLDetails(_uow) + _GLDetail.GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRows.Oid) + _GLDetail.AmountDEV = _GLRows.AmountDEV + _GLDetail.AmountHUF = _GLRows.AmountHUF + _GLDetail.Side = "K" + _GLDetail.ChartOfAccounts = _uow.GetObjectByKey(Of ChartOfAccounts)(_GLRows.CreditChartOfAccounts.Oid) + + _uow.CommitChanges() + Next + RaiseEvent FinalWork + End Sub + +#Region "ROW INDEX" + Private Sub aDown_GLRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDown_GLRows.Execute + ' A kivlaszott sort egy sorral lejebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLHeader As GLHeader = TryCast(View.CurrentObject, GLRows).GLHeader + Dim _GLRowsSelected As GLRows + Dim _GLRowsPlus As GLRows = Nothing + Dim _GLRows As GLRows + + Me.ReorderRows(_ocur, _GLHeader) + + Try + _GLRowsSelected = TryCast(View.SelectedObjects(0), GLRows) ' Kiveszi a kijellt sorok kzl az elst + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + End Try + + If _GLRowsSelected.RowIndex < _GLHeader.GLRows.Count - 1 Then + For Each _GLRows In _GLHeader.GLRows + If _GLRows.RowIndex = _GLRowsSelected.RowIndex + 1 Then + _GLRowsPlus = _GLRows + Exit For + End If + Next + + If _GLRowsPlus IsNot Nothing Then + _GLRowsSelected.RowIndex += 1 + _GLRowsPlus.RowIndex -= 1 + End If + _ocur.CommitChanges() + TryCast(View, ListView).CollectionSource.Reload() + End If + End Sub + Private Sub aUp_GLRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aUp_GLRows.Execute + ' A kivlaszott sort egy sorral feljebb helyezi + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLRows).GLHeader + Dim _GLRowsSelected As GLRows + Dim _GLRowsMinus As GLRows = Nothing + Dim _GLRows As GLRows + + Me.ReorderRows(_ocur, _GLHeader) + + Try + _GLRowsSelected = TryCast(View.SelectedObjects(0), GLRows) ' Az editor egy listview, kiveszi az els kijellt sort + Catch + ' TESZT MIATT!!!! ---------------------------------------------------------------- + Throw New Exception("*Nincs sor kivlasztva, vagy nem a sor kijellse az aktv!") + End Try + + If _GLRowsSelected.RowIndex > 0 Then + For Each _GLRows In _GLHeader.GLRows + If _GLRows.RowIndex = _GLRowsSelected.RowIndex - 1 Then + _GLRowsMinus = _GLRows + Exit For + End If + Next + + If _GLRowsMinus IsNot Nothing Then + _GLRowsSelected.RowIndex -= 1 + _GLRowsMinus.RowIndex += 1 + End If + _ocur.CommitChanges() + TryCast(View, ListView).CollectionSource.Reload() + End If + End Sub + Private Sub ReorderRows(_ocur As Xpo.XPObjectSpace, _GLHeader As GLHeader) + Dim _NoOrder As Boolean = False + Dim _RowIndex As Long = 0 + Dim _GLRows As GLRows + + '//------------------------------------------------------------------------------------------ + _GLHeader.GLRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Descending)) + For Each _GLRows In _GLHeader.GLRows + If _GLRows.RowIndex <= 0 Then + _NoOrder = True + Exit For + End If + Exit For + Next + _GLHeader.GLRows.Sorting.RemoveAt(_GLHeader.GLRows.Sorting.Count - 1) + If _NoOrder Then + For Each _GLRows In _GLHeader.GLRows + _GLRows.RowIndex = _RowIndex + _RowIndex += 1 + Next + End If + _ocur.CommitChanges() + '---------------------------------------------------------------------------------------------- + End Sub +#End Region + + Private Sub aGLBaseViewPCIDetail_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLBaseViewPCIDetail.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLRows.GLHeader.CustomersFrom, _ + _GLRows.Customer, _GLRows.PartnerType, _ + _GLRows.ConnectInfo) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLDetail.vb new file mode 100644 index 0000000..4800b97 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLDetail.vb @@ -0,0 +1,124 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ +Public Class GLDetails + Inherits BaseObject + Private _GLRows As GLRows + Private _Side As String + Private _AmountHUF As Double + Private _AmountDEV As Double + Private _ChartOfAccounts As ChartOfAccounts + Private _AmountHUF_Rolling As Double ' Gngylt egyenleg ! + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property GLRows As GLRows + Get + Return _GLRows + End Get + Set(ByVal value As GLRows) + SetPropertyValue("GLRows", _GLRows, value) + End Set + End Property + Property Side As String + Get + Return _Side + End Get + Set(ByVal value As String) + SetPropertyValue("Side", _Side, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + + ReadOnly Property ChartsOfAccounts_Contra As ChartOfAccounts + Get + If Side = "T" Then + Return GLRows.CreditChartOfAccounts + Else + Return GLRows.DebitChartOfAccounts + End If + End Get + End Property + ReadOnly Property AmountHUFSign As Double + Get + Select Case Side + Case "T" + Return AmountHUF + Case "K" + Return AmountHUF * -1 + Case Else + End Select + End Get + End Property + ReadOnly Property AmountHUF_Debit As Double + Get + If Side = "T" Then + Return AmountHUF + Else + Return 0 + End If + End Get + End Property + ReadOnly Property AmountHUF_Credit As Double + Get + If Side = "K" Then + Return AmountHUF + Else + Return 0 + End If + End Get + End Property + ReadOnly Property AmountHUF_Ballance As Double + Get + Return AmountHUF_Debit - AmountHUF_Credit + End Get + End Property + + + Property AmountHUF_Rolling As Double + Get + Return _AmountHUF_Rolling + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Rolling", _AmountHUF_Rolling, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLFileData.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLFileData.vb new file mode 100644 index 0000000..011a37d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLFileData.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLFileData + Inherits FileAttachmentBase + Private _GLHeader As GLHeader + Private _DocumentType As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property GLHeader As GLHeader + Get + Return _GLHeader + End Get + Set(value As GLHeader) + SetPropertyValue("GLHeader", _GLHeader, value) + End Set + End Property + Property DocumentType As String + Get + Return _DocumentType + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentType", _DocumentType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLHeader.vb new file mode 100644 index 0000000..de2cff6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLHeader.vb @@ -0,0 +1,810 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLHeader + Inherits BaseObject + Private _GLDocumentType As eGLDocumentType 'Bizonylat tipusa + Private _CustomersFrom As CustomersFrom 'Saját c g + Private _CurrencyName As CurrencyName ' devizanem + Private _CurrencyRate As Double = 1 'Deviza árfolyam + Private _DocumentNumber As String 'Bizonylatszám, számlaszám + Private _RegistryNumber As String 'Iktatószám + Private _DateCreated As Date 'Kiállítás dátuma + Private _DateExecution As Date 'Teljesítés dátuma + Private _DatePayment As Date 'Fizetési határidő + Private _NoteHeader As String 'Fejléc megjegyzés + Private _IsEditable As Boolean = True 'Szerkeszthető + Private _IsStorno As Boolean = False 'Stornó bizonylat + Private _ImportedInvoice As InvoiceHeader 'melyik vevõi számlából készült + Private _ImportedRegistryHeader As RegistryHeader 'Melyik szállítói iktatásból jött + Private _ImportedOther As Guid 'Egyéb importált azonosító + Private _HUNumberToText As String ' Azaz string !!! + Private _CashHandler As String ' Pénztárnál befizető vagy átvevő + + Private _GLOpenCloseHeader As GLOpenCloseHeader 'Melyik év végi záráshoz tartozik ! + + ' Beviteli mezők + + Private _row_GLHeader As GLHeader + Private _row_DebitChartOfAccounts As ChartOfAccounts 'Tartozik számlaszám + Private _row_CreditChartOfAccounts As ChartOfAccounts ' Követel számlaszám + Private _row_AmountHUF As Double ' összeg forintban + Private _row_AmountDEV As Double ' összeg devizában + Private _row_LiquidAssets As LiquidAssets ' pénzeszköz + Private _row_Customer As Customers ' partner + Private _row_DateVAT As Date 'sor dátum + Private _row_VAT As VAT + Private _row_NoteRows As String + + Private _row_UniqueObjects As UniqueObjects 'Egyedi azonosító + Private _row_Controlling As Controlling 'Kontrolling szám + Private _row_JobNumberObjects As JobNumberObjects 'Munkaszám + Private _row_CostPlace As CostPlace 'Költséghely + Private _row_CostHolder As CostHolder 'Költségviselõ + Private _row_ConnectInfo As String 'Folyószámla analitika kötési szám + + Private _IsRegistryGLAccounts As Boolean 'Rögzítés után van automatikus iktatás + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", "HUF")) + If Session.IsNewObject(Me) Then + Me.GLDocumentType = eGLDocumentType.eGLMixed + IsEditable = True + IsStorno = False + End If + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + If Session.IsObjectToDelete(Me) = False Then + If Me.GLRows.Count > 0 Then + ReorderRows() + End If + End If + End Sub + Private Sub ReorderRows() + Dim _GLRows As GLRows + Dim _GLRows_New As GLRows = Nothing + Dim _RowIndex As Long = 0 + Dim _GLRows_Array As New ArrayList + '//------------------------------------------------------------------------------------------ + Me.GLRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + For Each _GLRows In Me.GLRows + If Session.IsNewObject(_GLRows) Then + _GLRows_New = _GLRows + Else + _GLRows_Array.Add(_GLRows) + End If + Next + + If _GLRows_New IsNot Nothing Then + _GLRows_Array.Add(_GLRows_New) + End If + + For Each _GLRows In _GLRows_Array + If _GLRows.RowIndex <> _RowIndex Then + _GLRows.RowIndex = _RowIndex + _GLRows.Save() + End If + _RowIndex += 1 + Next + End Sub + Private Sub RecalculateAmountHUF() + If Me.row_AmountDEV <> 0 Then + If GLDocumentType = 0 Or GLDocumentType = 1 Or GLDocumentType = 3 Or GLDocumentType = 4 Or GLDocumentType = 5 Then + Me.row_AmountHUF = Math.Round(Me.row_AmountDEV * CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + Else + Me.row_AmountHUF = 0 + End If + End Sub + _ + _ + ReadOnly Property GLFileData As XPCollection(Of GLFileData) + Get + Return GetCollection(Of GLFileData)("GLFileData") + End Get + End Property + ' _ + ReadOnly Property GLRowsCount() As Long + Get + Return GLRows.Count + End Get + End Property + Property GLDocumentType() As eGLDocumentType + Get + Return _GLDocumentType + End Get + Set(ByVal value As eGLDocumentType) + SetPropertyValue("GLDocumentType", _GLDocumentType, value) + End Set + End Property + _ + _ + _ + _ + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + _ + _ + _ + Overridable Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.GLDocumentType = eGLDocumentType.eGLAccount Then + row_ConnectInfo = DocumentNumber + End If + End If + End Set + End Property + _ + Property RegistryNumber() As String + Get + Return _RegistryNumber + End Get + Set(ByVal value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property + _ + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + _ + _ + _ + _ + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + If row_DateVAT = Nothing Then + row_DateVAT = value + End If + If TryCast(Me, GLBank) IsNot Nothing Then + If Me.row_LiquidAssets IsNot Nothing Then + TryCast(Me, GLBank).BallanceHUF = TryCast(Me, GLBank).GetBallanceHUF(Me.row_LiquidAssets, value) + TryCast(Me, GLBank).BallanceDEV = TryCast(Me, GLBank).GetBallanceDEV(Me.row_LiquidAssets, value) + End If + End If + End Set + End Property + ReadOnly Property DateExecutionYear As String + Get + Return DateExecution.Date.Year.ToString + End Get + End Property + ReadOnly Property DateExecutionQuarter As String + Get + Return AlignStr(DatePart(DateInterval.Quarter, DateExecution).ToString, eDirection.Left, " ", 2) & ". NÉ." + End Get + End Property + ReadOnly Property DateExecutionMonth As String + Get + Return String.Format("{0}. {1}", AlignStr(DateExecution.Date.Month.ToString, eDirection.Left, " ", 2), Format(DateExecution, "MMMM")) + End Get + End Property + ReadOnly Property DateExecutionWeekOfYear As String + Get + Return AlignStr(DatePart(DateInterval.WeekOfYear, DateExecution), eDirection.Left, " ", 2) & ". hét" + End Get + End Property + ReadOnly Property DateExecutionString As Date + Get + Return DateExecution.Date.ToString("d") + End Get + End Property + _ + Property DatePayment() As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property NoteHeader() As String + Get + Return _NoteHeader + End Get + Set(ByVal value As String) + SetPropertyValue("NoteHeader", _NoteHeader, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If String.IsNullOrEmpty(value) And String.IsNullOrEmpty(row_NoteRows) = True Then + row_NoteRows = value + End If + End If + End Set + End Property + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + _ + Property CurrencyRate() As Double + Get + 'If CurrencyName.ShortName = "HUF" Then + 'Return 1 + 'Else + Return _CurrencyRate + 'End If + End Get + Set(ByVal value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculateAmountHUF() + End If + End Set + End Property + _ + _ + Property IsEditable() As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property IsStorno() As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property HUNumberToText As String + Get + Return _HUNumberToText + End Get + Set(ByVal value As String) + SetPropertyValue("HUNumberToText", _HUNumberToText, value) + End Set + End Property + _ + _ + _ + Property CashHandler As String + Get + Return _CashHandler + End Get + Set(ByVal value As String) + SetPropertyValue("CashHandler", _CashHandler, value) + End Set + End Property + Property ImportedInvoice As InvoiceHeader + Get + Return _ImportedInvoice + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("ImportedInvoice", _ImportedInvoice, value) + End Set + End Property + Property ImportedRegistryHeader As RegistryHeader + Get + Return _ImportedRegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("ImportedRegistryHeader", _ImportedRegistryHeader, value) + End Set + End Property + _ + Property ImportedOther As Guid + Get + Return _ImportedOther + End Get + Set(ByVal value As Guid) + SetPropertyValue("ImportedOther", _ImportedOther, value) + End Set + End Property + _ + Property GLOpenCloseHeader As GLOpenCloseHeader + Get + Return _GLOpenCloseHeader + End Get + Set(value As GLOpenCloseHeader) + SetPropertyValue("GLOpenCloseHeader", _GLOpenCloseHeader, value) + End Set + End Property + + 'Nonpersistent tulajdonságok a sorok rögzítéséhez + _ + _ + _ + _ + Property row_DebitChartOfAccounts() As ChartOfAccounts + Get + Return _row_DebitChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_DebitChartOfAccounts", _row_DebitChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + Property row_CreditChartOfAccounts() As ChartOfAccounts + Get + Return _row_CreditChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_CreditChartOfAccounts", _row_CreditChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + _ + _ + _ + Overridable Property row_AmountHUF() As Double + Get + Return _row_AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("row_AmountHUF", _row_AmountHUF, value) + End Set + End Property + _ + _ + _ + _ + _ + Overridable Property row_AmountDEV() As Double + Get + Return _row_AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("row_AmountDEV", _row_AmountDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.RecalculateAmountHUF() + End If + End Set + End Property + ' _ + _ + _ + Property row_LiquidAssets() As LiquidAssets + Get + Return _row_LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("row_LiquidAssets", _row_LiquidAssets, value) + End Set + End Property + _ + _ + _ + Overridable Property row_Customer() As Customers + Get + Return _row_Customer + End Get + Set(ByVal value As Customers) + SetPropertyValue("row_Customer", _row_Customer, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value IsNot Nothing Then + If CashHandler = "" Then CashHandler = value.Name + End If + End If + End Set + End Property + _ + _ + _ + Property row_DateVAT() As Date + Get + Return _row_DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("row_DateVAT", _row_DateVAT, value) + End Set + End Property + _ + _ + _ + Property row_VAT() As VAT + Get + Return _row_VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + _ + _ + Property row_NoteRows() As String + Get + Return _row_NoteRows + End Get + Set(ByVal value As String) + SetPropertyValue("row_NoteRows", _row_NoteRows, value) + End Set + End Property + 'Rule5DMatrix ... + _ + _ + _ + Overridable Property row_Controlling() As Controlling + Get + Return _row_Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("row_Controlling", _row_Controlling, value) + End Set + End Property + _ + _ + _ + Property row_CostPlace() As CostPlace + Get + Return _row_CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("row_CostPlace", _row_CostPlace, value) + End Set + End Property + _ + _ + _ + Property row_CostHolder() As CostHolder + Get + Return _row_CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("_row_CostHolder", _row_CostHolder, value) + End Set + End Property + _ + _ + _ + Property row_UniqueObjects() As UniqueObjects + Get + Return _row_UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value) + End Set + End Property + _ + _ + _ + Property row_JobNumberObjects() As JobNumberObjects + Get + Return _row_JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value) + End Set + End Property + _ + ReadOnly Property Rule5DMatrix As Rule5DMatrix + Get + Dim _Rule5DforGL As Rule5DforGL = Session.FindObject(Of Rule5DforGL)(CriteriaOperator.Parse("GLDocumentType=?", GLDocumentType)) + If _Rule5DforGL IsNot Nothing Then + Return _Rule5DforGL.Rule5DMatrix + Else + Return Nothing + End If + End Get + End Property + + + Property IsRegistryGLAccounts As Boolean + Get + Return _IsRegistryGLAccounts + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsRegistryGLAccounts", _IsRegistryGLAccounts, value) + End Set + End Property + _ + _ + _ + _ + _ + Overridable Property row_ConnectInfo() As String + Get + Return _row_ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("row_ConnectInfo", _row_ConnectInfo, value) + End Set + End Property + + _ + _ + Public ReadOnly Property GLRows() As XPCollection(Of GLRows) + Get + Return GetCollection(Of GLRows)("GLRows") + End Get + End Property + + + Sub Reconfigure_GLDetail() + '-- Az eljárás újragenerálja a GLDetail sorokat a késõbbi DTR elemzéshez + + End Sub + + _ + ReadOnly Property ChartOfAccountsYearState As Boolean + Get + Dim _ChartOfAccountsYear As ChartOfAccountsYear = Session.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", Me.DateExecution.Year)) + If _ChartOfAccountsYear Is Nothing Then + Return False + Else + Return _ChartOfAccountsYear.IsClosed + End If + End Get + End Property + '-- Árfolyam veszteség, nyereség elszámolása + Sub Reconfigure_RateDiff(ByVal _p_ocur As Xpo.XPObjectSpace, ByVal _p_GLHeader As GLHeader) + Dim _GLHeader_Ratediff As GLMixed = Nothing + Dim _GLCassa As GLCassa + Dim _GLBank As GLBank + Dim _GLCompensation As GLCompensation + Dim _GLRows As GLRows + Dim _GLRows_RateDiff As GLRows + Dim _PCIDetail As PCIDetail + Dim _CurrencyRate_Account As Double + Dim _AmountHUF_RatedIff As Double + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _Controlling As Controlling + Dim _GLMixedNG As GLMixedNG + Dim _GLHeader_RateDiffParameter = _p_ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + + If _GLHeader_RateDiffParameter Is Nothing Then Exit Sub + + + Dim _ChartOfAccounts_RateDiff_Win As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_p_GLHeader.DateExecution.Year, eWinLoss.eRateDiffWin) + Dim _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_p_GLHeader.DateExecution.Year, eWinLoss.eRateDiffLoss) + Dim _Controlling_RateDiff_Win As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Win + Dim _Controlling_RateDiff_Loss As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Loss + + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Select Case _p_GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank + _GLHeader_Ratediff = TryCast(_p_GLHeader, GLBank).GLHeader_RateDiff + TryCast(_p_GLHeader, GLBank).GLHeader_RateDiff = Nothing + TryCast(_p_GLHeader, GLBank).Save() + Case eGLDocumentType.eGLCassa + _GLHeader_Ratediff = TryCast(_p_GLHeader, GLCassa).GLHeader_RateDiff + TryCast(_p_GLHeader, GLCassa).GLHeader_RateDiff = Nothing + TryCast(_p_GLHeader, GLCassa).Save() + Case eGLDocumentType.eGLCompensation + _GLHeader_Ratediff = TryCast(_p_GLHeader, GLCompensation).GLHeader_RateDiff + TryCast(_p_GLHeader, GLCompensation).GLHeader_RateDiff = Nothing + TryCast(_p_GLHeader, GLCompensation).Save() + End Select + + If _GLHeader_Ratediff IsNot Nothing Then + _p_ocur.Delete(_GLHeader_Ratediff.GLRows) + _p_ocur.Delete(_GLHeader_Ratediff) + End If + + + For Each _GLRows In _p_GLHeader.GLRows + If _GLRows.CashType = eCashType.ePartner And _GLRows.Customer IsNot Nothing Then + _PCIDetail = _p_ocur.FindObject(Of PCIDetail) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? and MainType='01-Account' and CurrencyName.ShortName<>'HUF'", _ + _p_GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True) + If _PCIDetail IsNot Nothing Then + If _PCIDetail.AmountDEV_Account <> 0 Then + _CurrencyRate_Account = Math.Round(_PCIDetail.AmountHUF_Account / _PCIDetail.AmountDEV_Account, 4, MidpointRounding.AwayFromZero) + If _GLRows.AmountDEV <> 0 Then + _AmountHUF_RatedIff = 0 + _AmountHUF_RatedIff = (_GLRows.AmountDEV * _CurrencyRate_Account) - _GLRows.AmountHUF + Select Case _GLRows.PartnerType + Case ePartnerType.ePayabels + If _GLRows.OutAmountDEV > 0 Then 'Terhelés + If _AmountHUF_RatedIff < 0 Then 'Veszteség szállítóval szemben + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _GLRows.DebitChartOfAccounts + _InAmountHUF = Math.Abs(_AmountHUF_RatedIff) + _OutAmountHUF = 0 + Else 'Nyereség szállítóval szemben + _DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _InAmountHUF = 0 + _OutAmountHUF = Math.Abs(_AmountHUF_RatedIff) + End If + + ElseIf _GLRows.InAmountDEV > 0 Then 'Jóváírás + If _AmountHUF_RatedIff < 0 Then 'Veszteség szállítóval szemben + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _InAmountHUF = Math.Abs(_AmountHUF_RatedIff) + _OutAmountHUF = 0 + Else 'Nyereség szállítóval szemben + _DebitChartOfAccounts = _GLRows.CreditChartOfAccounts + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _InAmountHUF = 0 + _OutAmountHUF = Math.Abs(_AmountHUF_RatedIff) + End If + End If + Case ePartnerType.eReceivables + If _GLRows.OutAmountDEV > 0 Then 'Terhelés + If _AmountHUF_RatedIff > 0 Then 'Veszteség vevővel szemben + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _GLRows.DebitChartOfAccounts + _InAmountHUF = Math.Abs(_AmountHUF_RatedIff) + _OutAmountHUF = 0 + Else 'Nyereség vevővel szemben + _DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _InAmountHUF = 0 + _OutAmountHUF = Math.Abs(_AmountHUF_RatedIff) + End If + + ElseIf _GLRows.InAmountDEV > 0 Then 'Jóváírás + If _AmountHUF_RatedIff > 0 Then 'Veszteség vevővel szemben + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _InAmountHUF = Math.Abs(_AmountHUF_RatedIff) + _OutAmountHUF = 0 + Else 'Nyereség vevő szemben + _DebitChartOfAccounts = _GLRows.CreditChartOfAccounts + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _InAmountHUF = 0 + _OutAmountHUF = Math.Abs(_AmountHUF_RatedIff) + End If + End If + End Select + + If _AmountHUF_RatedIff <> 0 Then + + If _GLHeader_Ratediff Is Nothing Then + _GLHeader_Ratediff = _p_ocur.CreateObject(Of GLMixed)() + End If + _GLHeader_Ratediff.CustomersFrom = _p_GLHeader.CustomersFrom + _GLMixedNG = _p_ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Ratediff.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Ratediff.DocumentNumber = "" Then + _GLHeader_Ratediff.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator) + End If + End If + _GLHeader_Ratediff.DateExecution = _p_GLHeader.DateExecution + _GLHeader_Ratediff.DateCreated = _p_GLHeader.DateCreated + _GLHeader_Ratediff.CurrencyRate = 1 + + _GLHeader_Ratediff.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Ratediff.IsEditable = False + _GLHeader_Ratediff.IsStorno = False + _GLHeader_Ratediff.CurrencyName = _p_ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLHeader_Ratediff.Save() + + _GLRows_RateDiff = _p_ocur.CreateObject(Of GLRows)() + _GLRows_RateDiff.InAmountHUF = _InAmountHUF + _GLRows_RateDiff.OutAmountHUF = _OutAmountHUF + _GLRows_RateDiff.GLHeader = _GLHeader_Ratediff + _GLRows_RateDiff.AddGLRows(_GLHeader_Ratediff, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_AmountHUF_RatedIff), Nothing, _ + _GLRows.Customer, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _GLRows.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, _GLRows.TransactionType, eCashType.ePartner, _GLRows.PartnerType) + _GLRows_RateDiff.Save() + End If + End If + End If + End If + End If + Next + If _GLHeader_Ratediff IsNot Nothing Then + Select Case _p_GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank + _GLBank = TryCast(_p_GLHeader, GLBank) + _GLBank.GLHeader_RateDiff = _GLHeader_Ratediff + _GLBank.Save() + Case eGLDocumentType.eGLCassa + _GLCassa = TryCast(_p_GLHeader, GLCassa) + _GLCassa.GLHeader_RateDiff = _GLHeader_Ratediff + _GLCassa.Save() + Case eGLDocumentType.eGLCompensation + _GLCompensation = TryCast(_p_GLHeader, GLCompensation) + _GLCompensation.GLHeader_RateDiff = _GLHeader_Ratediff + _GLCompensation.Save() + End Select + Else + Select Case _p_GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank + _GLBank = TryCast(_p_GLHeader, GLBank) + _GLBank.GLHeader_RateDiff = Nothing + _GLBank.Save() + Case eGLDocumentType.eGLCassa + _GLCassa = TryCast(_p_GLHeader, GLCassa) + _GLCassa.GLHeader_RateDiff = Nothing + _GLCassa.Save() + Case eGLDocumentType.eGLCompensation + _GLCompensation = TryCast(_p_GLHeader, GLCompensation) + _GLCompensation.GLHeader_RateDiff = Nothing + _GLCompensation.Save() + End Select + End If + _p_ocur.CommitChanges() + End Sub + + + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRateDiffParam.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRateDiffParam.vb new file mode 100644 index 0000000..ed9f6ca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRateDiffParam.vb @@ -0,0 +1,304 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eWinLoss + eRateDiffWin = 0 + eRateDiffLoss = 1 + eRoundingWin = 2 + eRoundingLoss = 3 + eRevaluationWin = 4 + eRevaluationLoss = 5 +End Enum + _ + _ +Public Class GLHeader_RateDiffParameter + Inherits BaseObject + Private _ChartOfAccounts_RateDiff_Win As ChartOfAccounts '(deb) + Private _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts '(deb) + Private _Controlling_RateDiff_Win As Controlling + Private _Controlling_RateDiff_Loss As Controlling + + Private _ChartOfAccounts_Rounding_Win As ChartOfAccounts '(deb) + Private _ChartOfAccounts_Rounding_Loss As ChartOfAccounts '(deb) + + Private _Controlling_Rounding_Win As Controlling + Private _Controlling_Rounding_Loss As Controlling + + Private _Controlling_Revaluation_Win As Controlling + Private _Controlling_Revaluation_Loss As Controlling + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property ChartOfAccounts_RateDiff_Win As ChartOfAccounts + Get + Return _ChartOfAccounts_RateDiff_Win + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_RateDiff_Win", _ChartOfAccounts_RateDiff_Win, value) + End Set + End Property + _ + Property ChartOfAccounts_RateDiff_Loss As ChartOfAccounts + Get + Return _ChartOfAccounts_RateDiff_Loss + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_RateDiff_Loss", _ChartOfAccounts_RateDiff_Loss, value) + End Set + End Property + + _ + _ + Property Controlling_RateDiff_Win As Controlling + Get + Return _Controlling_RateDiff_Win + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_RateDiff_Win", _Controlling_RateDiff_Win, value) + End Set + End Property + _ + _ + Property Controlling_RateDiff_Loss As Controlling + Get + Return _Controlling_RateDiff_Loss + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling_RateDiff_Loss", _Controlling_RateDiff_Loss, value) + End Set + End Property + + _ + Property ChartOfAccounts_Rounding_Win As ChartOfAccounts + Get + Return _ChartOfAccounts_Rounding_Win + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Rounding_Win", _ChartOfAccounts_Rounding_Win, value) + End Set + End Property + _ + Property ChartOfAccounts_Rounding_Loss As ChartOfAccounts + Get + Return _ChartOfAccounts_Rounding_Loss + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Rounding_Loss", _ChartOfAccounts_Rounding_Loss, value) + End Set + End Property + + _ + _ + Property Controlling_Rounding_Win As Controlling + Get + Return _Controlling_Rounding_Win + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Rounding_Win", _Controlling_Rounding_Win, value) + End Set + End Property + _ + _ + Property Controlling_Rounding_Loss As Controlling + Get + Return _Controlling_Rounding_Loss + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling_Rounding_Loss", _Controlling_Rounding_Loss, value) + End Set + End Property + + Property Controlling_Revaluation_Win As Controlling + Get + Return _Controlling_Revaluation_Win + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Revaluation_Win", _Controlling_Revaluation_Win, value) + End Set + End Property + Property Controlling_Revaluation_Loss As Controlling + Get + Return _Controlling_Revaluation_Loss + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_Revaluation_Loss", _Controlling_Revaluation_Loss, value) + End Set + End Property + + _ + ReadOnly Property GLHeader_RateDiffParameterYear As XPCollection(Of GLHeader_RateDiffParameterYear) + Get + Return GetCollection(Of GLHeader_RateDiffParameterYear)("GLHeader_RateDiffParameterYear") + End Get + End Property + + Public Function GetChartOfAccounts(_AccountYear As Long, _WinLoss As eWinLoss) As ChartOfAccounts + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _GLHeader_RateDiffParameterYear As GLHeader_RateDiffParameterYear + Select Case _WinLoss + Case eWinLoss.eRateDiffLoss + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Loss + Exit For + End If + Next + Case eWinLoss.eRateDiffWin + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Win + Exit For + End If + Next + Case eWinLoss.eRoundingLoss + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Loss + Exit For + End If + Next + Case eWinLoss.eRoundingWin + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Win + Exit For + End If + Next + Case eWinLoss.eRevaluationWin + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Revaluation_Win + Exit For + End If + Next + Case eWinLoss.eRevaluationLoss + For Each _GLHeader_RateDiffParameterYear In Me.GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _GLHeader_RateDiffParameterYear.ChartOfAccounts_Revaluation_Loss + Exit For + End If + Next + + End Select + Return _ChartOfAccounts + End Function +End Class + + _ + _ + _ + _ + _ + _ +Public Class GLHeader_RateDiffParameterYear + Inherits BaseObject + Private _GLHeader_RateDiffParameter As GLHeader_RateDiffParameter + Private _AccountYear As Long + + Private _ChartOfAccounts_RateDiff_Win As ChartOfAccounts 'rfolyam nyeresg + Private _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts 'rfolyam vesztesg + + Private _ChartOfAccounts_Rounding_Win As ChartOfAccounts 'Elengedsi nyeresg + Private _ChartOfAccounts_Rounding_Loss As ChartOfAccounts 'Elengedsi vesztesg + + Private _ChartOfAccounts_Revaluation_Win As ChartOfAccounts 'trtkelsi nyeresg + Private _ChartOfAccounts_Revaluation_Loss As ChartOfAccounts 'trtkelsi vesztesg + + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property GLHeader_RateDiffParameter As GLHeader_RateDiffParameter + Get + Return _GLHeader_RateDiffParameter + End Get + Set(value As GLHeader_RateDiffParameter) + SetPropertyValue("GLHeader_RateDiffParameter", _GLHeader_RateDiffParameter, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + _ + Property ChartOfAccounts_RateDiff_Win As ChartOfAccounts + Get + Return _ChartOfAccounts_RateDiff_Win + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_RateDiff_Win", _ChartOfAccounts_RateDiff_Win, value) + End Set + End Property + _ + _ + Property ChartOfAccounts_RateDiff_Loss As ChartOfAccounts + Get + Return _ChartOfAccounts_RateDiff_Loss + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_RateDiff_Loss", _ChartOfAccounts_RateDiff_Loss, value) + End Set + End Property + + _ + _ + Property ChartOfAccounts_Rounding_Win As ChartOfAccounts + Get + Return _ChartOfAccounts_Rounding_Win + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Rounding_Win", _ChartOfAccounts_Rounding_Win, value) + End Set + End Property + _ + Property ChartOfAccounts_Rounding_Loss As ChartOfAccounts + Get + Return _ChartOfAccounts_Rounding_Loss + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Rounding_Loss", _ChartOfAccounts_Rounding_Loss, value) + End Set + End Property + _ + _ + Property ChartOfAccounts_Revaluation_Win As ChartOfAccounts + Get + Return _ChartOfAccounts_Revaluation_Win + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Revaluation_Win", _ChartOfAccounts_Revaluation_Win, value) + End Set + End Property + _ + _ + Property ChartOfAccounts_Revaluation_Loss As ChartOfAccounts + Get + Return _ChartOfAccounts_Revaluation_Loss + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Revaluation_Loss", _ChartOfAccounts_Revaluation_Loss, value) + End Set + End Property + + +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRows.vb new file mode 100644 index 0000000..0528e1b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRows.vb @@ -0,0 +1,706 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ +Public Class GLRows + Inherits BaseObject + Private _GLHeader As GLHeader + Private _GLAccounts As GLAccounts + Private _DebitChartOfAccounts As ChartOfAccounts 'Tartozik számlaszám + Private _CreditChartOfAccounts As ChartOfAccounts ' Követel számlaszám + Private _AmountHUF As Double ' könyvelt összeg forintban + Private _AmountDEV As Double ' könyvelt összeg devizában + Private _AmountDEVFIFO As Double = 0 'FIFO értékeléshez felhasznált deviza összege + Private _LiquidAssets As LiquidAssets ' pénzeszköz + Private _Customer As Customers ' partner + Private _DateVAT As Date 'ÁFA idõszak + Private _DateExecution As Date 'Teljesítési idõszak + Private _VAT As VAT 'ÁFA kód + Private _NoteRows As String 'Sor megjegyzés + + + Private _Controlling As Controlling 'Kontrolling szám + Private _CostPlace As CostPlace 'Költséghely + Private _CostHolder As CostHolder 'Költségviselõ + Private _JobNumberObjects As JobNumberObjects 'Munkaszám + Private _UniqueObjects As UniqueObjects 'Egyedi azonosító + + + Private _ConnectInfo As String = "" 'Analitikus kötési szám folyószámlához + Private _PartnerType As ePartnerType + Private _DebitAmountHUF As Double = 0 + Private _CreditAmountHUF As Double = 0 + Private _DebitAmountDEV As Double = 0 + Private _CreditAmountDEV As Double = 0 + Private _GLRowsGUID As Guid + Private _GLRowsTypeVAT As eGLRowsTypeVAT + Private _InAmountHUF As Double = 0 'Pénztár miatt befizetés + Private _OutAmountHUF As Double = 0 'Pénztár miatt kifizetés + Private _InAmountDEV As Double = 0 'Pénztár miatt befizetés + Private _OutAmountDEV As Double = 0 'Pénztár miatt kifizetés + Private _ImportID As String = "" 'Külsõ rendszerbõl importált sor + Private _CashType As eCashType + Private _TransactionType As eTransactionType + Private _CurrencyRate2 As Double = 1 + Private _InAmountDEV2 As Double = 0 'Másodlagos deviza ! + Private _OutAmountDEV2 As Double = 0 'Másodlagos deviza + Private _CurrencyName2 As CurrencyName 'Másodlagos devizanem + Private _BankImportHeaderSumDetail As BankImportHeaderSumDetail + Private _GLRowsRateDiff As GLRows + + Private _InvoiceRows As InvoiceRows + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Private _GLRowsType As eGLRowsType '0 normál 1 Nyitó, 2 Záró + + Private _RowIndex As Long 'Sorrend + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Me.GLHeader IsNot Nothing Then + If Me.GLHeader.DateExecution = Nothing Then + Else + Me.DateExecution = Me.GLHeader.DateExecution + End If + End If + End Sub + + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Me.ConnectInfo Is Nothing Then + Me.ConnectInfo = "" + End If + + Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(Session, CriteriaOperator.Parse("GLRows.Oid=?", Me.Oid)) + Session.Delete(_GLDetail_Collection) + Dim _GLDetail As GLDetails + + If Session.IsObjectToDelete(Me) = False Then + _GLDetail = New GLDetails(Session) + _GLDetail.GLRows = Me + _GLDetail.AmountDEV = Me.AmountDEV + _GLDetail.AmountHUF = Me.AmountHUF + _GLDetail.Side = "T" + _GLDetail.ChartOfAccounts = Me.DebitChartOfAccounts + + + + _GLDetail = New GLDetails(Session) + _GLDetail.GLRows = Me + _GLDetail.AmountDEV = Me.AmountDEV + _GLDetail.AmountHUF = Me.AmountHUF + _GLDetail.Side = "K" + _GLDetail.ChartOfAccounts = Me.CreditChartOfAccounts + + GLRowsType = eGLRowsType.eNormal + If CreditChartOfAccounts IsNot Nothing AndAlso DebitChartOfAccounts IsNot Nothing Then + + If CreditChartOfAccounts.AccountNumber Like "491*" Or DebitChartOfAccounts.AccountNumber Like "491*" Then + GLRowsType = eGLRowsType.eOpen + End If + If CreditChartOfAccounts.AccountNumber Like "492*" Or DebitChartOfAccounts.AccountNumber Like "492*" Then + GLRowsType = eGLRowsType.eClose + End If + End If + If Me.DateExecution = Nothing Then + If Me.GLHeader IsNot Nothing Then + Me.DateExecution = Me.GLHeader.DateExecution + End If + End If + + ' '// Sorrend beállítása + ' If Session.IsNewObject(Me) Then + ' Me.RowIndex = Me.GLHeader.GLRows.Count + ' End If + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + + Dim _GLDetail_Collection As New XPCollection(Of GLDetails)(Session, CriteriaOperator.Parse("GLRows.Oid=?", Me.Oid)) + Session.Delete(_GLDetail_Collection) + Dim _GLDetail As GLDetails + + + Dim _GLRowsRateDiff_Collection As New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("GLRowsRateDiff=?", Me)) + For Each _GLRows As GLRows In _GLRowsRateDiff_Collection + _GLRows.GLRowsRateDiff = Nothing + _GLRows.Save() + Next + + End Sub + Protected Overrides Sub OnDeleted() + MyBase.OnDeleted() + + '// PARASZTLENGŐS ÚJRAPONTOZÁS TÖRLÉS ESETÉN !!!! + On Error Resume Next + + If Me.PartnerType <> ePartnerType.eNotSet Then + 'Dim _uow As New UnitOfWork(Session.DataLayer) + 'Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow) + + 'For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection + ' GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, Me.Customer, Me.PartnerType, Me.ConnectInfo) + ' _uow.CommitChanges() + 'Next + End If + + '// Sorrend újraépítése !!! + End Sub + + + _ + Property GLHeader() As GLHeader + Get + Return _GLHeader + End Get + Set(ByVal value As GLHeader) + SetPropertyValue("GLHeader", _GLHeader, value) + End Set + End Property + _ + _ + Property DebitChartOfAccounts() As ChartOfAccounts + Get + Return _DebitChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value) + End Set + End Property + _ + Property CreditChartOfAccounts() As ChartOfAccounts + Get + Return _CreditChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value) + End Set + End Property + + _ + Property AmountHUF() As Double + Get + Return Math.Round(_AmountHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property AmountDEV() As Double + Get + Return Math.Round(_AmountDEV, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + _ + Property AmountDEVFIFO As Double + Get + Return Math.Round(_AmountDEVFIFO, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("AmountDEVFIFO", _AmountDEVFIFO, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property LiquidAssets() As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property Customer() As Customers + Get + Return _Customer + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customer", _Customer, value) + End Set + End Property + Property DateVAT() As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateVAT, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property VAT() As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + Property NoteRows() As String + Get + Return _NoteRows + End Get + Set(ByVal value As String) + SetPropertyValue("NoteRows", _NoteRows, value) + End Set + End Property + + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + 'Rule5DMatrix ... + _ + _ + _ + Property Controlling() As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + + End If + End Set + End Property + _ + Property JobNumberObjects() As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property UniqueObjects() As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property CostPlace() As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property CostHolder() As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + + _ + ReadOnly Property Rule5DMatrix As Rule5DMatrix + Get + If GLHeader Is Nothing Then + Return Nothing + Else + Dim _Rule5DforGL As Rule5DforGL = Session.FindObject(Of Rule5DforGL)(CriteriaOperator.Parse("GLDocumentType=?", GLHeader.GLDocumentType)) + If _Rule5DforGL IsNot Nothing Then + Return _Rule5DforGL.Rule5DMatrix + Else + Return Nothing + End If + End If + End Get + End Property + _ + ReadOnly Property Require5DValidation As Boolean + Get + Dim _Require5DValidation As Boolean = True + If _Require5DValidation Then + Select Case Me.CreditChartOfAccounts.AccountNumber + Case "599", "491", "492", "493" + _Require5DValidation = False + Case Else + _Require5DValidation = True + End Select + End If + If _Require5DValidation Then + Select Case Me.DebitChartOfAccounts.AccountNumber + Case "599", "491", "492", "493" + _Require5DValidation = False + Case Else + _Require5DValidation = True + End Select + End If + Return _Require5DValidation + End Get + End Property + Property ConnectInfo() As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, LTrim(RTrim(value))) + End Set + End Property + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property DebitAmountHUF() As Double + Get + Return Math.Round(_DebitAmountHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property CreditAmountHUF() As Double + Get + Return Math.Round(_CreditAmountHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property DebitAmountDEV() As Double + Get + Return _DebitAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value) + End Set + End Property + Property CreditAmountDEV() As Double + Get + Return _CreditAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value) + End Set + End Property + Property GLRowsTypeVAT As eGLRowsTypeVAT + Get + Return _GLRowsTypeVAT + End Get + Set(ByVal value As eGLRowsTypeVAT) + SetPropertyValue("GLRowsTypeVAT", _GLRowsTypeVAT, value) + End Set + End Property + Property GLRowsGUID As Guid + Get + Return _GLRowsGUID + End Get + Set(ByVal value As Guid) + SetPropertyValue("GLRowsGUID", _GLRowsGUID, value) + End Set + End Property + '-- Összegek !!! + Property InAmountHUF As Double + Get + Return Math.Round(_InAmountHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("InAmountHUF", _InAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property OutAmountHUF As Double + Get + Return Math.Round(_OutAmountHUF, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("OutAmountHUF", _OutAmountHUF, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property InAmountDEV As Double + Get + Return Math.Round(_InAmountDEV, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("InAmountDEV", _InAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property OutAmountDEV As Double + Get + Return Math.Round(_OutAmountDEV, 4, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("OutAmountDEV", _OutAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property ImportID As String + Get + Return _ImportID + End Get + Set(ByVal value As String) + SetPropertyValue("ImportID", _ImportID, value) + End Set + End Property + Property CashType As eCashType + Get + Return _CashType + End Get + Set(ByVal value As eCashType) + SetPropertyValue("CashType", _CashType, value) + End Set + End Property + Property TransactionType As eTransactionType + Get + Return _TransactionType + End Get + Set(ByVal value As eTransactionType) + SetPropertyValue("TransactionType", _TransactionType, value) + End Set + End Property + Property CurrencyRate2 As Double + Get + Return _CurrencyRate2 + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate2", _CurrencyRate2, value) + End Set + End Property + Property InAmountDEV2 As Double + Get + Return Math.Round(_InAmountDEV2, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("InAmountDEV2", _InAmountDEV2, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property OutAmountDEV2 As Double + Get + Return Math.Round(_OutAmountDEV2, 4, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("OutAmountDEV2", _OutAmountDEV2, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property GLRowsType As eGLRowsType + Get + Return _GLRowsType + End Get + Set(value As eGLRowsType) + SetPropertyValue("GLRowsType", _GLRowsType, value) + End Set + End Property + _ + _ + _ + Property GLRowsRateDiff As GLRows + Get + Return _GLRowsRateDiff + End Get + Set(value As GLRows) + SetPropertyValue("GLRowsRateDiff", _GLRowsRateDiff, value) + End Set + End Property + _ + _ + _ + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + _ + _ + _ + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property + Property BankImportHeaderSumDetail As BankImportHeaderSumDetail + Get + Return _BankImportHeaderSumDetail + End Get + Set(value As BankImportHeaderSumDetail) + SetPropertyValue("BankImportHeaderSumDetail", _BankImportHeaderSumDetail, value) + End Set + End Property + ReadOnly Property CurrencyRate As Double + Get + If AmountDEV <> 0 Then + Return AmountHUF / AmountDEV + Else + Return 1 + End If + End Get + End Property + Public Sub AddGLRows(ByVal p_GLHeader As GLHeader, ByVal p_DebitChartOfAccounts As ChartOfAccounts, ByVal p_CreditChartOfAccounts As ChartOfAccounts, _ + ByVal p_AmountDEV As Double, ByVal p_AmountHUF As Double, ByVal p_LiquidAssets As LiquidAssets, _ + ByVal p_Customer As Customers, ByVal p_DateVAT As Date, _ + ByVal p_VAT As VAT, ByVal p_NoteRows As String, ByVal p_UniqueObjects As UniqueObjects, _ + ByVal p_Controlling As Controlling, ByVal p_JobNumberOBjects As JobNumberObjects, _ + ByVal p_CostPlace As CostPlace, ByVal p_CostHolder As CostHolder, ByVal p_ConnectInfo As String, _ + ByVal p_GLRowsTypeVAT As eGLRowsTypeVAT, ByVal p_GLRowsGUID As Guid, Optional ByVal p_TransactionType As eTransactionType = eTransactionType.eNotSet, _ + Optional ByVal p_CashType As eCashType = eCashType.eNormal, Optional ByVal p_PartnerType As ePartnerType = ePartnerType.eNotSet) + TransactionType = p_TransactionType + GLHeader = p_GLHeader + DebitChartOfAccounts = p_DebitChartOfAccounts + CreditChartOfAccounts = p_CreditChartOfAccounts + AmountDEV = p_AmountDEV + AmountHUF = p_AmountHUF + LiquidAssets = p_LiquidAssets + Customer = p_Customer + DateVAT = p_DateVAT + VAT = p_VAT + NoteRows = p_NoteRows + UniqueObjects = p_UniqueObjects + Controlling = p_Controlling + JobNumberObjects = p_JobNumberOBjects + CostPlace = p_CostPlace + CostHolder = p_CostHolder + ConnectInfo = p_ConnectInfo + GLRowsTypeVAT = p_GLRowsTypeVAT + GLRowsGUID = p_GLRowsGUID + CashType = p_CashType + PartnerType = p_PartnerType + + End Sub + Public Sub DivideRows(_ocur As Xpo.XPObjectSpace, p_GLRowsBase As GLRows, p_GLRowsDivideH As GLRowsDivideH, Optional p_WithCommit As Boolean = False) + '-- Az eljárás megcsinálja a megfelelõ fõkönyvi sor sorbontását + Dim _GLRowsDivideR As GLRowsDivideR + Dim _GLHeader As GLHeader + Dim _GLBank As GLBank + Dim _GLCassa As GLCassa + Dim _GLCompensation As GLCompensation + Dim _GLRows As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + Dim _LiquidAssets As LiquidAssets = Nothing + + Dim _CustomersFrom_Base As CustomersFrom = Nothing + Dim _Customers_Base As Customers = Nothing + Dim _ConnectInfo_Base As String = "" + Dim _PartnerType_Base As ePartnerType = ePartnerType.eNotSet + + If p_GLRowsBase IsNot Nothing Then + _GLHeader = p_GLRowsBase.GLHeader + If p_GLRowsBase.PartnerType = ePartnerType.ePayabels Or p_GLRowsBase.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom_Base = p_GLRowsBase.GLHeader.CustomersFrom + _Customers_Base = p_GLRowsBase.Customer + _PartnerType_Base = p_GLRowsBase.PartnerType + _ConnectInfo_Base = p_GLRowsBase.ConnectInfo + End If + If p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLBank Or _ + p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLCassa Or _ + p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLCompensation Or _ + p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then ' Bank esetén mi a helyzet ! + + Select Case p_GLRowsBase.GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank + _GLBank = _ocur.FindObject(Of GLBank)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True) + _LiquidAssets = _GLBank.LiquidAssets_Main + Case eGLDocumentType.eGLCassa + _GLCassa = _ocur.FindObject(Of GLCassa)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True) + _LiquidAssets = _GLCassa.LiquidAssets_Cassa + Case eGLDocumentType.eGLCompensation + _GLCompensation = _ocur.FindObject(Of GLCompensation)(CriteriaOperator.Parse("Oid=?", p_GLRowsBase.GLHeader.Oid), True) + _LiquidAssets = _GLCompensation.LiquidAssets_Main + End Select + + For Each _GLRowsDivideR In p_GLRowsDivideH.GLRowsDivideR + _GLRows = _ocur.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLHeader + If p_GLRowsBase.GLHeader.GLDocumentType <> eGLDocumentType.eGLMixed Then + If _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0).AccountNumber = p_GLRowsBase.DebitChartOfAccounts.AccountNumber Then + '-- Bankba jóváírás érkezett + _DebitChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + If _GLRowsDivideR.ChartOfAccounts IsNot Nothing Then + _CreditChartOfAccounts = _GLRowsDivideR.ChartOfAccounts + Else + _CreditChartOfAccounts = p_GLRowsDivideH.GLRowsBase.CreditChartOfAccounts + End If + _GLRows.InAmountDEV = _GLRowsDivideR.AmountDEV + _GLRows.InAmountHUF = _GLRowsDivideR.AmountHUF + ElseIf _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0).AccountNumber = p_GLRowsBase.CreditChartOfAccounts.AccountNumber Then + '-- Banki terhelés + _CreditChartOfAccounts = _LiquidAssets.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, 0) + If _GLRowsDivideR.ChartOfAccounts IsNot Nothing Then + _DebitChartOfAccounts = _GLRowsDivideR.ChartOfAccounts + Else + _DebitChartOfAccounts = p_GLRowsDivideH.GLRowsBase.DebitChartOfAccounts + End If + _GLRows.OutAmountDEV = _GLRowsDivideR.AmountDEV + _GLRows.OutAmountHUF = _GLRowsDivideR.AmountHUF + + End If + End If + If p_GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then + _DebitChartOfAccounts = _GLRowsDivideR.DebitChartOfAccounts + _CreditChartOfAccounts = _GLRowsDivideR.CreditChartOfAccounts + _GLRows.OutAmountDEV = _GLRowsDivideR.AmountDEV + _GLRows.OutAmountHUF = _GLRowsDivideR.AmountHUF + _LiquidAssets = Nothing + End If + _GLRows.AddGLRows(_GLHeader, _ocur.GetObject(_DebitChartOfAccounts), _ocur.GetObject(CreditChartOfAccounts), _GLRowsDivideR.AmountDEV, _GLRowsDivideR.AmountHUF, _ + _LiquidAssets, _ocur.GetObject(_GLRowsDivideR.Customers), _GLHeader.DateExecution, Nothing, _ocur.GetObject(_GLRowsDivideR.NoteRows), _ + _ocur.GetObject(_GLRowsDivideR.UniqueObjects), _ocur.GetObject(_GLRowsDivideR.Controlling), _ocur.GetObject(_GLRowsDivideR.JobNumberObjects), _ocur.GetObject(_GLRowsDivideR.CostPlace), _ + _ocur.GetObject(_GLRowsDivideR.CostHolder), _GLRowsDivideR.ConnectInfo, eGLRowsTypeVAT.eNettoRow, p_GLRowsBase.GLRowsGUID, _ + p_GLRowsBase.TransactionType, p_GLRowsBase.CashType, p_GLRowsBase.PartnerType) + If p_WithCommit Then + _ocur.CommitChanges() + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + End If + Next + _ocur.Delete(p_GLRowsBase) + End If + If p_WithCommit Then + _ocur.CommitChanges() + If _PartnerType_Base = ePartnerType.ePayabels Or _PartnerType_Base = ePartnerType.eReceivables Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _CustomersFrom_Base, _Customers_Base, _PartnerType_Base, _ConnectInfo_Base) + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsFIFO.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsFIFO.vb new file mode 100644 index 0000000..658e5f5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsFIFO.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class GLRowsFIFO + Inherits BaseObject + Private _GLRowsIn As GLRows + Private _GLRowsOut As GLRows + Private _InAmountDEV As Double = 0 + Private _OutAmountDEV As Double = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property GLRowsIn As GLRows + Get + Return _GLRowsIn + End Get + Set(value As GLRows) + SetPropertyValue("GLRowsIn", _GLRowsIn, value) + End Set + End Property + Property GLRowsOut As GLRows + Get + Return _GLRowsOut + End Get + Set(value As GLRows) + SetPropertyValue("GLRowsOut", _GLRowsOut, value) + End Set + End Property + Property InAmountDEV As Double + Get + Return _InAmountDEV + End Get + Set(value As Double) + SetPropertyValue("InAmountDEV", _InAmountDEV, value) + End Set + End Property + Property OutAmountDEV As Double + Get + Return _OutAmountDEV + End Get + Set(value As Double) + SetPropertyValue("OutAmountDEV", _OutAmountDEV, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsStatistics.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsStatistics.vb new file mode 100644 index 0000000..66c6874 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRowsStatistics.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLRowsStatistics + Inherits BaseObject + + Private _MasterKey As Guid + Private _RegistryHeader As RegistryHeader + Private _InvoiceHeader As InvoiceHeader + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLBaseMainCheck.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLBaseMainCheck.vb new file mode 100644 index 0000000..d2f413c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLBaseMainCheck.vb @@ -0,0 +1,51 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class GLBaseMainCheck ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + Property AlertString As String + Property AlartCount As Long = 0 + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideH.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideH.vb new file mode 100644 index 0000000..ec43fa7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideH.vb @@ -0,0 +1,365 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLRowsDivideH + Inherits BaseObject + Private _GLRows_Oid As Guid + Private _row_CashType As eCashType + Private _row_PartnerType As ePartnerType + Private _row_Customers As Customers + Private _row_ConnectInfo As String + Private _row_ChartOfAccounts As ChartOfAccounts + Private _row_DebitChartOfAccounts As ChartOfAccounts + Private _row_CreditChartOfAccounts As ChartOfAccounts + + Private _row_Controlling As Controlling + Private _row_CostHolder As CostHolder + Private _row_CostPlace As CostPlace + Private _row_JobNumberObjects As JobNumberObjects + Private _row_UniqueObjects As UniqueObjects + Private _row_Cars As Cars 'Jrm + Private _row_HRPerson As HRPerson 'Ember + Private _row_Phones As Phones 'Telefon + + Private _row_AmountHUF As Double + Private _row_AmountDEV As Double + Private _row_NoteRow As String + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + ReadOnly Property GLRowsBase As GLRows + Get + Dim _GLRows As GLRows + _GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid)) + Return _GLRows + End Get + End Property + _ + ReadOnly Property AmountDiffHUF As Double + Get + Dim _AmountHUF As Double = 0 + Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid)) + Dim _GLRowsDivideR As GLRowsDivideR + For Each _GLRowsDivideR In Me.GLRowsDivideR + _AmountHUF += _GLRowsDivideR.AmountHUF + Next + If _GLRows IsNot Nothing Then + Return _GLRows.AmountHUF - _AmountHUF + Else + Return -_AmountHUF + End If + End Get + End Property + _ + ReadOnly Property AmountDiffDEV As Double + Get + Dim _AmountDEV As Double = 0 + Dim _GLRows As GLRows = Session.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", GLRows_Oid)) + Dim _GLRowsDivideR As GLRowsDivideR + For Each _GLRowsDivideR In Me.GLRowsDivideR + _AmountDEV += _GLRowsDivideR.AmountDEV + Next + If _GLRows IsNot Nothing Then + Return _GLRows.AmountDEV - _AmountDEV + Else + Return -_AmountDEV + End If + GLRowsBase.GLHeader.CurrencyName.ShortName = "HUF" + End Get + End Property + Property GLRows_Oid As Guid + Get + Return _GLRows_Oid + End Get + Set(ByVal value As Guid) + SetPropertyValue("GLRows_Oid", _GLRows_Oid, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If GLRowsBase IsNot Nothing Then + row_Controlling = GLRowsBase.Controlling + row_CostHolder = GLRowsBase.CostHolder + row_CostPlace = GLRowsBase.CostPlace + row_UniqueObjects = GLRowsBase.UniqueObjects + row_JobNumberObjects = GLRowsBase.JobNumberObjects + row_NoteRow = GLRowsBase.NoteRows + row_AmountDEV = GLRowsBase.AmountDEV + row_AmountHUF = GLRowsBase.AmountHUF + + If GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then + row_DebitChartOfAccounts = GLRowsBase.DebitChartOfAccounts + row_CreditChartOfAccounts = GLRowsBase.CreditChartOfAccounts + If GLRowsBase.PartnerType = ePartnerType.eNotSet Then + row_CashType = eCashType.eNormal + row_PartnerType = ePartnerType.eNotSet + Else + row_CashType = eCashType.ePartner + row_PartnerType = GLRowsBase.PartnerType + End If + End If + End If + End If + End Set + End Property + '--Nonpersistent propertyk + _ + _ + _ + Property row_CashType As eCashType + Get + Return _row_CashType + End Get + Set(ByVal value As eCashType) + SetPropertyValue("row_CashType", _row_CashType, value) + End Set + End Property + _ + _ + _ + Property row_PartnerType As ePartnerType + Get + Return _row_PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("row_PartnerType", _row_PartnerType, value) + End Set + End Property + _ + _ + _ + _ + Property row_Customers As Customers + Get + Return _row_Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("row_Customers", _row_Customers, value) + End Set + End Property + _ + _ + _ + _ + Property row_ConnectInfo As String + Get + Return _row_ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("row_ConnectInfo", _row_ConnectInfo, value) + End Set + End Property + _ + _ + _ + _ + _ + Property row_ChartOfAccounts As ChartOfAccounts + Get + Return _row_ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_ChartOfAccounts", _row_ChartOfAccounts, value) + End Set + End Property + _ + _ + _ + Property row_DebitChartOfAccounts As ChartOfAccounts + Get + Return _row_DebitChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("row_DebitChartOfAccounts", _row_DebitChartOfAccounts, value) + End Set + End Property + + _ + _ + Property row_CreditChartOfAccounts As ChartOfAccounts + Get + Return _row_CreditChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("row_CreditChartOfAccounts", _row_CreditChartOfAccounts, value) + End Set + End Property + + _ + _ + _ + Property row_Controlling As Controlling + Get + Return _row_Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("row_Controlling", _row_Controlling, value) + End Set + End Property + _ + _ + _ + Property row_CostHolder As CostHolder + Get + Return _row_CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("row_CostHolder", _row_CostHolder, value) + End Set + End Property + _ + _ + _ + Property row_CostPlace As CostPlace + Get + Return _row_CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("row_CostPlace", _row_CostPlace, value) + End Set + End Property + _ + _ + _ + Property row_JobNumberObjects As JobNumberObjects + Get + Return _row_JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value) + End Set + End Property + _ + _ + _ + Property row_UniqueObjects As UniqueObjects + Get + Return _row_UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("row_UniqueObjects", _row_UniqueObjects, value) + End Set + End Property + _ + _ + _ + Property row_Cars As Cars + Get + Return _row_Cars + End Get + Set(value As Cars) + SetPropertyValue("row_Cars", _row_Cars, value) + End Set + End Property + _ + _ + _ + Property row_HRPerson As HRPerson + Get + Return _row_HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("row_HRPerson", _row_HRPerson, value) + End Set + End Property + _ + _ + _ + Property row_Phones As Phones + Get + Return _row_Phones + End Get + Set(value As Phones) + SetPropertyValue("row_Phones", _row_Phones, value) + End Set + End Property + + + _ + _ + _ + _ + Property row_AmountHUF As Double + Get + Return _row_AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("row_AmountHUF", _row_AmountHUF, value) + End Set + End Property + _ + _ + _ + _ + Property row_AmountDEV As Double + Get + Return _row_AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("row_AmountDEV", _row_AmountDEV, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If Me.GLRowsBase.CurrencyRate <> 0 And GLRowsBase.GLHeader.CurrencyName.ShortName <> "HUF" Then + row_AmountHUF = value * Me.GLRowsBase.CurrencyRate + End If + End If + End Set + End Property + _ + _ + _ + Property row_NoteRow As String + Get + Return _row_NoteRow + End Get + Set(ByVal value As String) + SetPropertyValue("row_NoteRow", _row_NoteRow, value) + End Set + End Property + + _ + _ + ReadOnly Property GLRowsDivideR As XPCollection(Of GLRowsDivideR) + Get + Return GetCollection(Of GLRowsDivideR)("GLRowsDivideR") + End Get + End Property + _ + ReadOnly Property GLRows As XPCollection(Of GLRows) + Get + Return New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("Oid=?", Me.GLRows_Oid)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideR.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideR.vb new file mode 100644 index 0000000..80c6344 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideR.vb @@ -0,0 +1,176 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLRowsDivideR + Inherits BaseObject + + Private _GLRowsDivideH As GLRowsDivideH + Private _ChartOfAccounts As ChartOfAccounts + Private _CreditChartOfAccounts As ChartOfAccounts + Private _DebitChartOfAccounts As ChartOfAccounts + Private _CashType As eCashType + Private _PartnerType As ePartnerType + Private _Customers As Customers + Private _ConnectInfo As String + + 'Jell adatok ... + Private _Controlling As Controlling + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _UniqueObjects As UniqueObjects + Private _JobNumberObjects As JobNumberObjects + + Private _NoteRows As String + Private _AmountHUF As Double + Private _AmountDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property GLRowsDivideH As GLRowsDivideH + Get + Return _GLRowsDivideH + End Get + Set(value As GLRowsDivideH) + SetPropertyValue("GLRowsDivideH", _GLRowsDivideH, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + Property CreditChartOfAccounts As ChartOfAccounts + Get + Return _CreditChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value) + End Set + End Property + Property DebitChartOfAccounts As ChartOfAccounts + Get + Return _DebitChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value) + End Set + End Property + Property CashType As eCashType + Get + Return _CashType + End Get + Set(value As eCashType) + SetPropertyValue("CashType", _CashType, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + + _ + Property NoteRows As String + Get + Return _NoteRows + End Get + Set(value As String) + SetPropertyValue("NoteRows", _NoteRows, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.Designer.vb new file mode 100644 index 0000000..32e85ee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.Designer.vb @@ -0,0 +1,82 @@ +Partial Class GLRowsDivideVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_GLRowsDivide = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFindPCI = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aToTable_GLRowsDivide + ' + Me.aToTable_GLRowsDivide.Caption = "Add row" + Me.aToTable_GLRowsDivide.Category = "aToTable_GLRowsDivide" + Me.aToTable_GLRowsDivide.ConfirmationMessage = Nothing + Me.aToTable_GLRowsDivide.Id = "aToTable_GLRowsDivide" + Me.aToTable_GLRowsDivide.ImageName = "table_add" + Me.aToTable_GLRowsDivide.Shortcut = Nothing + Me.aToTable_GLRowsDivide.Tag = Nothing + Me.aToTable_GLRowsDivide.TargetObjectsCriteria = Nothing + Me.aToTable_GLRowsDivide.TargetViewId = "" + Me.aToTable_GLRowsDivide.ToolTip = Nothing + Me.aToTable_GLRowsDivide.TypeOfView = Nothing + ' + 'aToTableD_GLRowsDivide + ' + Me.aToTableD_GLRowsDivide.Caption = "Delete row" + Me.aToTableD_GLRowsDivide.Category = "aToTableD_GLRowsDivide" + Me.aToTableD_GLRowsDivide.ConfirmationMessage = Nothing + Me.aToTableD_GLRowsDivide.Id = "aToTableD_GLRowsDivide" + Me.aToTableD_GLRowsDivide.ImageName = "table_delete" + Me.aToTableD_GLRowsDivide.Shortcut = Nothing + Me.aToTableD_GLRowsDivide.Tag = Nothing + Me.aToTableD_GLRowsDivide.TargetObjectsCriteria = Nothing + Me.aToTableD_GLRowsDivide.TargetViewId = "" + Me.aToTableD_GLRowsDivide.ToolTip = Nothing + Me.aToTableD_GLRowsDivide.TypeOfView = Nothing + ' + 'aFindPCI + ' + Me.aFindPCI.AcceptButtonCaption = Nothing + Me.aFindPCI.CancelButtonCaption = Nothing + Me.aFindPCI.Caption = "aFind PCI" + Me.aFindPCI.ConfirmationMessage = Nothing + Me.aFindPCI.Id = "aFindPCI" + Me.aFindPCI.ImageName = Nothing + Me.aFindPCI.Shortcut = Nothing + Me.aFindPCI.Tag = Nothing + Me.aFindPCI.TargetObjectsCriteria = Nothing + Me.aFindPCI.TargetViewId = "" + Me.aFindPCI.ToolTip = Nothing + Me.aFindPCI.TypeOfView = Nothing + + End Sub + Friend WithEvents aToTable_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_GLRowsDivide As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFindPCI As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.resx new file mode 100644 index 0000000..35973e5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 393, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb new file mode 100644 index 0000000..f15cd2a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideVC.vb @@ -0,0 +1,227 @@ +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.ExpressApp.Filtering +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule +Public Class GLRowsDivideVC + 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 GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False) + Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False) + Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", False) + If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id Like "GLRowsDivideH_DetailView*" Then + Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", True) + Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", True) + Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True) + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing + End If + If View.Id = "GLRowsDivideH_GLRows_ListView_ConnectionDivide" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "GLRowsDivideH_GLRowsDivideR_ListView_ConnectionDivide" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + End Sub + Sub GLRowsDivideH_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts") + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "GLRowsDivideH_GLRows_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id Like "GLRowsDivideH_GLRowsDivideR_ListView*" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id Like "GLRowsDivideH_DetailView*" Then + Frame.GetController(Of GLRowsDivideVC).aFindPCI.Active.SetItemValue("", False) + Frame.GetController(Of GLRowsDivideVC).aToTable_GLRowsDivide.Active.SetItemValue("", False) + Frame.GetController(Of GLRowsDivideVC).aToTableD_GLRowsDivide.Active.SetItemValue("", True) + RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf GLRowsDivideH_DetailView_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnViewControlsCreated() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + MyBase.OnViewControlsCreated() + If View.Id = "GLRowsDivideH_DetailView" Then + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH) + If _GLRowsDivideH.GLRowsBase IsNot Nothing Then + If _GLRowsDivideH.GLRowsBase.Customer IsNot Nothing Then + _GLRowsDivideH.row_Customers = _ocur.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _GLRowsDivideH.GLRowsBase.Customer.Oid)) + _GLRowsDivideH.row_CashType = _GLRowsDivideH.GLRowsBase.CashType + _GLRowsDivideH.row_PartnerType = _GLRowsDivideH.GLRowsBase.PartnerType + _GLRowsDivideH.row_ConnectInfo = _GLRowsDivideH.GLRowsBase.ConnectInfo + _GLRowsDivideH.row_Controlling = _GLRowsDivideH.GLRowsBase.Controlling + _GLRowsDivideH.row_CostHolder = _GLRowsDivideH.GLRowsBase.CostHolder + _GLRowsDivideH.row_CostPlace = _GLRowsDivideH.GLRowsBase.CostPlace + _GLRowsDivideH.row_UniqueObjects = _GLRowsDivideH.GLRowsBase.UniqueObjects + _GLRowsDivideH.row_JobNumberObjects = _GLRowsDivideH.GLRowsBase.JobNumberObjects + _GLRowsDivideH.row_NoteRow = _GLRowsDivideH.GLRowsBase.NoteRows + + End If + End If + + End If + End Sub + Private Sub aFindPCI_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFindPCI.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH) + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup)) + + + + If _GLRowsDivideH IsNot Nothing Then + If _GLRowsDivideH.row_Customers IsNot Nothing Then + _CollectionSource.Criteria.Clear() + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("Customers.Oid=?", _GLRowsDivideH.row_Customers.Oid) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType) + _CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid) + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("(BallanceHUF<>0 or BallanceDEV<>0)") + _CollectionSource.Criteria("5") = CriteriaOperator.Parse("(CurrencyName_Account.ShortName=? or CurrencyName_Account.ShortName='HUF')", _GLRowsDivideH.GLRowsBase.LiquidAssets.CurrencyName.ShortName) + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True) + Else + _CollectionSource.Criteria.Clear() + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("PartnerType=?", _GLRowsDivideH.row_PartnerType) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLRowsDivideH.GLRowsBase.GLHeader.CustomersFrom.Oid) + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True) + End If + Else + 'Ez - elmletileg - nem fordulhat el. + End If + End Sub + + Private Sub aFindPCI_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFindPCI.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRowsDivideR As GLRowsDivideR + For Each _PCIGroup In e.PopupWindow.View.SelectedObjects + _GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)() + _GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH + _GLRowsDivideR.CashType = eCashType.ePartner + _GLRowsDivideR.ChartOfAccounts = Nothing + _GLRowsDivideR.Customers = _ocur.GetObject(_PCIGroup.Customers) + _GLRowsDivideR.ConnectInfo = _PCIGroup.ConnectInfo + _GLRowsDivideR.AmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + _GLRowsDivideR.AmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + _GLRowsDivideR.Save() + + Next + _ocur.CommitChanges() + View.Refresh() + End Sub + + Private Sub aToTable_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLRowsDivide.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRowsDivideR As GLRowsDivideR + If _GLRowsDivideH IsNot Nothing Then + + If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then + If _GLRowsDivideH.row_CreditChartOfAccounts Is _GLRowsDivideH.row_DebitChartOfAccounts Then + Throw New Exception("*Nem lehet ugyan az a tartozik s a kvetel fknyvi szm !") + End If + End If + + + _GLRowsDivideR = _ocur.CreateObject(Of GLRowsDivideR)() + _GLRowsDivideR.GLRowsDivideH = _GLRowsDivideH + _GLRowsDivideR.CashType = _GLRowsDivideH.row_CashType + If _GLRowsDivideH.row_CashType = eCashType.eNormal Then + _GLRowsDivideR.ChartOfAccounts = _GLRowsDivideH.row_ChartOfAccounts + Else + _GLRowsDivideR.ChartOfAccounts = Nothing + End If + If _GLRowsDivideH.GLRowsBase.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed Then + _GLRowsDivideR.DebitChartOfAccounts = _GLRowsDivideH.row_DebitChartOfAccounts + _GLRowsDivideR.CreditChartOfAccounts = _GLRowsDivideH.row_CreditChartOfAccounts + End If + + _GLRowsDivideR.AmountHUF = _GLRowsDivideH.row_AmountHUF + _GLRowsDivideR.AmountDEV = _GLRowsDivideH.row_AmountDEV + _GLRowsDivideR.ConnectInfo = _GLRowsDivideH.row_ConnectInfo + _GLRowsDivideR.Customers = _GLRowsDivideH.row_Customers + _GLRowsDivideR.NoteRows = _GLRowsDivideH.row_NoteRow + + '-- Jell adatok + _GLRowsDivideR.Controlling = _GLRowsDivideH.row_Controlling + _GLRowsDivideR.CostHolder = _GLRowsDivideH.row_CostHolder + _GLRowsDivideR.CostPlace = _GLRowsDivideH.row_CostPlace + _GLRowsDivideR.JobNumberObjects = _GLRowsDivideH.row_JobNumberObjects + _GLRowsDivideR.UniqueObjects = _GLRowsDivideH.row_UniqueObjects + + '-- + _GLRowsDivideR.Save() + + View.Refresh() + + _GLRowsDivideH.row_AmountDEV = _GLRowsDivideH.AmountDiffDEV + _GLRowsDivideH.row_AmountHUF = _GLRowsDivideH.AmountDiffHUF + End If + + End Sub + + Private Sub aToTableD_GLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLRowsDivide.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(View.SelectedObjects(0), GLRowsDivideH) + 'Trli a tblzatban lv sort + Dim _GLRowsDivideR_ListEditor As ListPropertyEditor + Dim _GLRowsDivideR As GLRowsDivideR + Dim i As Long + _GLRowsDivideR_ListEditor = TryCast(View, DetailView).FindItem("GLRowsDivideR") + + _GLRowsDivideR = TryCast(_GLRowsDivideR_ListEditor.ListView.CurrentObject, GLRowsDivideR) + If _GLRowsDivideR IsNot Nothing Then + _GLRowsDivideR.Delete() + View.Refresh() + End If + + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsNormalToPartnerPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsNormalToPartnerPopup.vb new file mode 100644 index 0000000..fe745a0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsNormalToPartnerPopup.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLRowsNormalToPartnerPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property PartnerType As ePartnerType + Property Customers As Customers + Property ConnectInfo As String + Property TransactionType As eTransactionType + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryCheck.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryCheck.vb new file mode 100644 index 0000000..0825cb3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryCheck.vb @@ -0,0 +1,34 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class BookEntryCheck 'Popup a csoportos mdostshoz, s knyvelhetsg belltshoz + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Property ChartOfAccountsYear As ChartOfAccountsYear + Public Property ChartOfAccounts As ChartOfAccounts + Public Property JobNumberObjects As JobNumberObjects + Public Property CostHolder As CostHolder + Public Property CostPlace As CostPlace + Public Property UniqueObjects As UniqueObjects + Public Property Controlling As Controlling + Public Property IsManagerCheck As Boolean = False + Public Property IsDateExecution As Boolean = False + Public Property DateExecution As Date +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb new file mode 100644 index 0000000..3157eab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.Designer.vb @@ -0,0 +1,294 @@ +Partial Class BookEntryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBookEntryPayables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBookEntryReceiveables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLRowsCheck = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLRowsDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBookEntryRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLAccountsforBookEntryCheck = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLAccountsforBookEntryRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBookEntryCheckGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewAttachments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_BEP = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_BEP = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_BEC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLAccountsReadyforBookEntry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aVATMerge = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBookEntryPayables + ' + Me.aBookEntryPayables.Caption = "Book Entry" + Me.aBookEntryPayables.Category = "ObjectsCreation" + Me.aBookEntryPayables.ConfirmationMessage = "Do you want to execute command ?" + Me.aBookEntryPayables.Id = "aBookEntryPayables" + Me.aBookEntryPayables.ImageName = "import2" + Me.aBookEntryPayables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBookEntryPayables.Shortcut = Nothing + Me.aBookEntryPayables.Tag = Nothing + Me.aBookEntryPayables.TargetObjectsCriteria = Nothing + Me.aBookEntryPayables.TargetViewId = "RegistryHeader_ListView_GLAccounts" + Me.aBookEntryPayables.ToolTip = Nothing + Me.aBookEntryPayables.TypeOfView = Nothing + ' + 'aBookEntryReceiveables + ' + Me.aBookEntryReceiveables.Caption = "Book Entry" + Me.aBookEntryReceiveables.Category = "ObjectsCreation" + Me.aBookEntryReceiveables.ConfirmationMessage = "Do you want to execute command ?" + Me.aBookEntryReceiveables.Id = "aBookEntryReceiveables" + Me.aBookEntryReceiveables.ImageName = "import1" + Me.aBookEntryReceiveables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBookEntryReceiveables.Shortcut = Nothing + Me.aBookEntryReceiveables.Tag = Nothing + Me.aBookEntryReceiveables.TargetObjectsCriteria = Nothing + Me.aBookEntryReceiveables.TargetViewId = "InvoiceHeader_ListView_GLAccounts" + Me.aBookEntryReceiveables.ToolTip = Nothing + Me.aBookEntryReceiveables.TypeOfView = Nothing + ' + 'aGLRowsCheck + ' + Me.aGLRowsCheck.AcceptButtonCaption = Nothing + Me.aGLRowsCheck.CancelButtonCaption = Nothing + Me.aGLRowsCheck.Caption = "Check rows" + Me.aGLRowsCheck.Category = "RecordEdit" + Me.aGLRowsCheck.ConfirmationMessage = Nothing + Me.aGLRowsCheck.Id = "aGLRowsCheck" + Me.aGLRowsCheck.ImageName = "index_preferences" + Me.aGLRowsCheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLRowsCheck.Shortcut = Nothing + Me.aGLRowsCheck.Tag = Nothing + Me.aGLRowsCheck.TargetObjectsCriteria = Nothing + Me.aGLRowsCheck.TargetViewId = Nothing + Me.aGLRowsCheck.ToolTip = Nothing + Me.aGLRowsCheck.TypeOfView = Nothing + ' + 'aGLRowsDivide + ' + Me.aGLRowsDivide.AcceptButtonCaption = Nothing + Me.aGLRowsDivide.CancelButtonCaption = Nothing + Me.aGLRowsDivide.Caption = "Divide rows" + Me.aGLRowsDivide.Category = "RecordEdit" + Me.aGLRowsDivide.ConfirmationMessage = Nothing + Me.aGLRowsDivide.Id = "aGLRowsDivide" + Me.aGLRowsDivide.ImageName = "row_add_after" + Me.aGLRowsDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLRowsDivide.Shortcut = Nothing + Me.aGLRowsDivide.Tag = Nothing + Me.aGLRowsDivide.TargetObjectsCriteria = Nothing + Me.aGLRowsDivide.TargetViewId = Nothing + Me.aGLRowsDivide.ToolTip = Nothing + Me.aGLRowsDivide.TypeOfView = Nothing + ' + 'aBookEntryRemove + ' + Me.aBookEntryRemove.Caption = "Remove book entry" + Me.aBookEntryRemove.Category = "ObjectsCreation" + Me.aBookEntryRemove.ConfirmationMessage = "Do you want to execute command ?" + Me.aBookEntryRemove.Id = "aBookEntryRemove" + Me.aBookEntryRemove.ImageName = "row_delete" + Me.aBookEntryRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBookEntryRemove.Shortcut = Nothing + Me.aBookEntryRemove.Tag = Nothing + Me.aBookEntryRemove.TargetObjectsCriteria = Nothing + Me.aBookEntryRemove.TargetViewId = "GLAccounts_ListView" + Me.aBookEntryRemove.ToolTip = Nothing + Me.aBookEntryRemove.TypeOfView = Nothing + ' + 'aGLAccountsforBookEntryCheck + ' + Me.aGLAccountsforBookEntryCheck.AcceptButtonCaption = Nothing + Me.aGLAccountsforBookEntryCheck.CancelButtonCaption = Nothing + Me.aGLAccountsforBookEntryCheck.Caption = "Check rows" + Me.aGLAccountsforBookEntryCheck.Category = "RecordEdit" + Me.aGLAccountsforBookEntryCheck.ConfirmationMessage = Nothing + Me.aGLAccountsforBookEntryCheck.Id = "aGLAccountsforBookEntryCheck" + Me.aGLAccountsforBookEntryCheck.ImageName = "index_preferences" + Me.aGLAccountsforBookEntryCheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLAccountsforBookEntryCheck.Shortcut = Nothing + Me.aGLAccountsforBookEntryCheck.Tag = Nothing + Me.aGLAccountsforBookEntryCheck.TargetObjectsCriteria = Nothing + Me.aGLAccountsforBookEntryCheck.TargetViewId = "" + Me.aGLAccountsforBookEntryCheck.ToolTip = Nothing + Me.aGLAccountsforBookEntryCheck.TypeOfView = Nothing + ' + 'aGLAccountsforBookEntryRemove + ' + Me.aGLAccountsforBookEntryRemove.Caption = "Remove book entry check" + Me.aGLAccountsforBookEntryRemove.Category = "ObjectsCreation" + Me.aGLAccountsforBookEntryRemove.ConfirmationMessage = "Do you want to execute command ?" + Me.aGLAccountsforBookEntryRemove.Id = "aGLAccountsforBookEntryRemove" + Me.aGLAccountsforBookEntryRemove.ImageName = "row_delete" + Me.aGLAccountsforBookEntryRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLAccountsforBookEntryRemove.Shortcut = Nothing + Me.aGLAccountsforBookEntryRemove.Tag = Nothing + Me.aGLAccountsforBookEntryRemove.TargetObjectsCriteria = Nothing + Me.aGLAccountsforBookEntryRemove.TargetViewId = "" + Me.aGLAccountsforBookEntryRemove.ToolTip = Nothing + Me.aGLAccountsforBookEntryRemove.TypeOfView = Nothing + ' + 'aBookEntryCheckGotoNextStep + ' + Me.aBookEntryCheckGotoNextStep.AcceptButtonCaption = Nothing + Me.aBookEntryCheckGotoNextStep.CancelButtonCaption = Nothing + Me.aBookEntryCheckGotoNextStep.Caption = "Next step" + Me.aBookEntryCheckGotoNextStep.Category = "RecordsNavigation" + Me.aBookEntryCheckGotoNextStep.ConfirmationMessage = Nothing + Me.aBookEntryCheckGotoNextStep.Id = "aBookEntryCheckGotoNextStep" + Me.aBookEntryCheckGotoNextStep.ImageName = "step" + Me.aBookEntryCheckGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBookEntryCheckGotoNextStep.Shortcut = Nothing + Me.aBookEntryCheckGotoNextStep.Tag = Nothing + Me.aBookEntryCheckGotoNextStep.TargetObjectsCriteria = Nothing + Me.aBookEntryCheckGotoNextStep.TargetViewId = "" + Me.aBookEntryCheckGotoNextStep.ToolTip = Nothing + Me.aBookEntryCheckGotoNextStep.TypeOfView = Nothing + ' + 'aViewAttachments + ' + Me.aViewAttachments.Caption = "View attachments" + Me.aViewAttachments.ConfirmationMessage = Nothing + Me.aViewAttachments.Id = "aViewAttachments" + Me.aViewAttachments.ImageName = "printer_view" + Me.aViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments.Shortcut = Nothing + Me.aViewAttachments.Tag = Nothing + Me.aViewAttachments.TargetObjectsCriteria = Nothing + Me.aViewAttachments.TargetViewId = "" + Me.aViewAttachments.ToolTip = Nothing + Me.aViewAttachments.TypeOfView = Nothing + ' + 'aViewAttachments_BEP + ' + Me.aViewAttachments_BEP.Caption = "View attachments" + Me.aViewAttachments_BEP.ConfirmationMessage = Nothing + Me.aViewAttachments_BEP.Id = "aViewAttachments_BEP" + Me.aViewAttachments_BEP.ImageName = "printer_view" + Me.aViewAttachments_BEP.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_BEP.Shortcut = Nothing + Me.aViewAttachments_BEP.Tag = Nothing + Me.aViewAttachments_BEP.TargetObjectsCriteria = Nothing + Me.aViewAttachments_BEP.TargetViewId = "RegistryHeader_ListView_GLAccounts" + Me.aViewAttachments_BEP.ToolTip = Nothing + Me.aViewAttachments_BEP.TypeOfView = Nothing + ' + 'aViewRegistry_BEP + ' + Me.aViewRegistry_BEP.Caption = "View registry" + Me.aViewRegistry_BEP.ConfirmationMessage = Nothing + Me.aViewRegistry_BEP.Id = "aViewRegistry_BEP" + Me.aViewRegistry_BEP.ImageName = "document_pinned" + Me.aViewRegistry_BEP.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_BEP.Shortcut = Nothing + Me.aViewRegistry_BEP.Tag = Nothing + Me.aViewRegistry_BEP.TargetObjectsCriteria = Nothing + Me.aViewRegistry_BEP.TargetViewId = "RegistryHeader_ListView_GLAccounts" + Me.aViewRegistry_BEP.ToolTip = Nothing + Me.aViewRegistry_BEP.TypeOfView = Nothing + ' + 'aViewRegistry_BEC + ' + Me.aViewRegistry_BEC.Caption = "View registry" + Me.aViewRegistry_BEC.ConfirmationMessage = Nothing + Me.aViewRegistry_BEC.Id = "aViewRegistry_BEC" + Me.aViewRegistry_BEC.ImageName = "document_pinned" + Me.aViewRegistry_BEC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_BEC.Shortcut = Nothing + Me.aViewRegistry_BEC.Tag = Nothing + Me.aViewRegistry_BEC.TargetObjectsCriteria = Nothing + Me.aViewRegistry_BEC.TargetViewId = "" + Me.aViewRegistry_BEC.ToolTip = Nothing + Me.aViewRegistry_BEC.TypeOfView = Nothing + ' + 'aGLAccountsReadyforBookEntry + ' + Me.aGLAccountsReadyforBookEntry.Caption = "Readyfor Book Entry" + Me.aGLAccountsReadyforBookEntry.ConfirmationMessage = Nothing + Me.aGLAccountsReadyforBookEntry.Id = "aGLAccountsReadyforBookEntry" + Me.aGLAccountsReadyforBookEntry.ImageName = Nothing + Me.aGLAccountsReadyforBookEntry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGLAccountsReadyforBookEntry.Shortcut = Nothing + Me.aGLAccountsReadyforBookEntry.Tag = Nothing + Me.aGLAccountsReadyforBookEntry.TargetObjectsCriteria = Nothing + Me.aGLAccountsReadyforBookEntry.TargetViewId = Nothing + Me.aGLAccountsReadyforBookEntry.ToolTip = Nothing + Me.aGLAccountsReadyforBookEntry.TypeOfView = Nothing + ' + 'aVATDivide + ' + Me.aVATDivide.AcceptButtonCaption = Nothing + Me.aVATDivide.CancelButtonCaption = Nothing + Me.aVATDivide.Caption = "Divide VAT row" + Me.aVATDivide.Category = "RecordEdit" + Me.aVATDivide.ConfirmationMessage = Nothing + Me.aVATDivide.Id = "aVATDivide" + Me.aVATDivide.ImageName = "row_add_after" + Me.aVATDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aVATDivide.Shortcut = Nothing + Me.aVATDivide.Tag = Nothing + Me.aVATDivide.TargetObjectsCriteria = Nothing + Me.aVATDivide.TargetViewId = Nothing + Me.aVATDivide.ToolTip = Nothing + Me.aVATDivide.TypeOfView = Nothing + ' + 'aVATMerge + ' + Me.aVATMerge.Caption = "aVATMerge" + Me.aVATMerge.Category = "RecordEdit" + Me.aVATMerge.ConfirmationMessage = "Do you want to execute command ?" + Me.aVATMerge.Id = "aVATMerge" + Me.aVATMerge.ImageName = Nothing + Me.aVATMerge.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aVATMerge.Shortcut = Nothing + Me.aVATMerge.Tag = Nothing + Me.aVATMerge.TargetObjectsCriteria = Nothing + Me.aVATMerge.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aVATMerge.TargetViewId = Nothing + Me.aVATMerge.ToolTip = Nothing + Me.aVATMerge.TypeOfView = Nothing + + End Sub + Friend WithEvents aBookEntryPayables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBookEntryReceiveables As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLRowsCheck As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLRowsDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBookEntryRemove As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLAccountsforBookEntryCheck As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLAccountsforBookEntryRemove As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBookEntryCheckGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewAttachments As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_BEP As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_BEP As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_BEC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLAccountsReadyforBookEntry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aVATMerge As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx new file mode 100644 index 0000000..5b6516f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.resx @@ -0,0 +1,168 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 170, 56 + + + 309, 95 + + + 492, 95 + + + 174, 95 + + + 17, 95 + + + 791, 56 + + + 554, 56 + + + 331, 56 + + + 17, 56 + + + 780, 17 + + + 627, 17 + + + 473, 17 + + + 247, 17 + + + 133, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb new file mode 100644 index 0000000..d5cd525 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryVC.vb @@ -0,0 +1,1462 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Filtering +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports SISBusiness.Module.RegistryVC +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Class BookEntryVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", False) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", False) + + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False) + + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aGLAccountsReadyforBookEntry.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aVATDivide.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aVATMerge.Active.SetItemValue("", False) + If View.Id = "GLAccountRowsforBookEntry_ListView_ManagerCheck" Then + Dim _GLAccountRowsforBookEntry_ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CurrentUser As User = _ocur.Session.GetObjectByKey(Of User)(_ocur.Session.GetKeyValue(SecuritySystem.CurrentUser)) + If _CurrentUser.UserName <> "SysAdmin" Then + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Remove("Criteria1") + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Add("Criteria1", _ + CriteriaOperator.Parse("WorkflowSystemSteps.StepFinancialType=4 and WorkflowSystemSteps.HRResponsible.User.Oid=?", _CurrentUser.Oid)) + Else + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Remove("Criteria1") + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Add("Criteria1", _ + CriteriaOperator.Parse("WorkflowSystemSteps.StepFinancialType=4")) + End If + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "GLAccountRowsforBookEntry_ListView" Then + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aGLAccountsReadyforBookEntry.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aVATDivide.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aVATMerge.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GenerateInvoiceWorkflowStep(_uow) + + + Dim _GLAccountRowsforBookEntry_ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView) + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Remove("Criteria1") + _GLAccountRowsforBookEntry_ListView.CollectionSource.Criteria.Add("Criteria1", CriteriaOperator.Parse("WorkflowSystemSteps.IsReadyForImport=True")) + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + + End If + + If View.Id = "InvoiceHeader_ListView_GLAccounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_ListView_GLAccounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True) + End If + If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_All" Or View.Id = "GLRows_ListView_Bank" Or _ + View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id Like "GLRows_ListView_Error*" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True) + End If + If View.Id = "GLRows_ListView_Bank" Or _ + View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True) + End If + + If View.Id = "GLRows_ListView_Ratediff" Or _ + View.Id = "GLRows_ListView_Mixed" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True) + End If + + If View.Id Like "GLAccountRowsforBookEntry*" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "OrderInHeader_PCIDetail_ListView" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True) + End If + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", True) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", True) + + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", True) + + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", True) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", True) + If View.Id = "GLAccountRowsforBookEntry_ListView_ManagerCheck" Then + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + End If + If View.Id = "GLAccountRowsforBookEntry_ListView" Then + Frame.GetController(Of BookEntryVC).aBookEntryCheckGotoNextStep.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aGLAccountsforBookEntryCheck.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aViewRegistry_BEC.Active.SetItemValue("", False) + Frame.GetController(Of BookEntryVC).aViewAttachments.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + + End If + + If View.Id = "InvoiceHeader_ListView_GLAccounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_ListView_GLAccounts" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLAccountsforBookEntryRemove.Active.SetItemValue("", False) + End If + If View.Id = "GLRows_ListView_Account" Or View.Id = "GLRows_ListView_Bank" Or _ + View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsCheck.Active.SetItemValue("", False) + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "GLRows_ListView_Bank" Or _ + View.Id = "GLRows_ListView_Cassa" Or View.Id = "GLRows_ListView_Compensation" Then + Frame.GetController(Of SISBusiness.Module.BookEntryVC).aGLRowsDivide.Active.SetItemValue("", False) + End If + + If View.Id Like "GLAccountRowsforBookEntry*" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _GLRows As GLRows + Dim _GLAccounts As GLAccounts + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry + If View Is Nothing Then Exit Sub + If noselect Then Exit Sub + If View.Id Like "GLRows_ListView*" And noselect = False Then + selection.Clear() + For Each _GLRows In View.SelectedObjects + selection.Add(_GLRows) + Next + End If + If View.Id = "GLAccounts_ListView" Then + selection.Clear() + For Each _GLAccounts In View.SelectedObjects + selection.Add(_GLAccounts) + Next + End If + If View.Id = "GLAccountRowsforBookEntry_ListView" And noselect = False Then + selection.Clear() + For Each _GLAccountRowsforBookEntry In View.SelectedObjects + selection.Add(_GLAccountRowsforBookEntry) + Next + If selection.Count = 1 Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.GetObjectByKey(Of RegistryRowsFinancial)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancial IsNot Nothing Then + Frame.GetController(Of BookEntryVC)().aVATDivide.Enabled.SetItemValue("", True) + Else + Frame.GetController(Of BookEntryVC)().aVATDivide.Enabled.SetItemValue("", False) + End If + End If + End If + If View.Id = "GLAccountRowsforBookEntry_ListView_ManagerCheck" And noselect = False Then + selection.Clear() + For Each _GLAccountRowsforBookEntry In View.SelectedObjects + selection.Add(_GLAccountRowsforBookEntry) + Next + End If + End Sub + + Private Sub aBookEntryPayables_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBookEntryPayables.Execute + '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + '/ + '/ Szállítói számlák iktatásból feladása + '/ + '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _RegistryHeader As RegistryHeader + Dim I As Long + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryHeader In View.SelectedObjects + I += 1 + _RegistryHeader.BookEntry(0, _RegistryHeader, _uow, False) + If I Mod 100 = 0 Then _uow.CommitChanges() + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + End Sub + Private Sub aBookEntryReceiveables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBookEntryReceiveables.Execute + '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + '/ + '/ Vevői számlák feladása + '/ + '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _InvoiceHeader As InvoiceHeader + Dim I As Long = 0 + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _InvoiceHeader In View.SelectedObjects + I += 1 + _InvoiceHeader.BookEntry(0, _InvoiceHeader, _uow, False) + RaiseEvent DoWork() + If I Mod 100 = 0 Then _uow.CommitChanges() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aGLRowsCheck_Cancel(sender As Object, e As System.EventArgs) Handles aGLRowsCheck.Cancel + noselect = False + End Sub + Private Sub aGLRowsCheck_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLRowsCheck.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + If _GLRows IsNot Nothing Then + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLRows.GLHeader.DateExecution.Year)) + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + + e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck) + End Sub + Private Sub aGLRowsCheck_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLRowsCheck.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck) + Dim _GLRows As GLRows + Dim I As Long = 0 + Dim _Controlling As Controlling + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _UniqueObjects As UniqueObjects + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + If _GLRowsCheck.Controlling IsNot Nothing Then + _Controlling = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True) + If _Controlling.Children.Count > 0 Then + Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name)) + Exit Sub + End If + Else + _Controlling = Nothing + End If + If _GLRowsCheck.JobNumberObjects IsNot Nothing Then + _JobNumberObjects = _onew.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True) + Else + _JobNumberObjects = Nothing + End If + If _GLRowsCheck.CostHolder IsNot Nothing Then + _CostHolder = _onew.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True) + Else + _CostHolder = Nothing + End If + If _GLRowsCheck.CostPlace IsNot Nothing Then + _CostPlace = _onew.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True) + Else + _CostPlace = Nothing + End If + If _GLRowsCheck.UniqueObjects IsNot Nothing Then + _UniqueObjects = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True) + Else + _UniqueObjects = Nothing + End If + + If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then + _DebitChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True) + If _DebitChartOfAccounts.Children.Count > 0 Then + Throw New Exception("*A tartozik számlaszám NEM lehet szülő !") + Exit Sub + End If + Else + _DebitChartOfAccounts = Nothing + End If + If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then + _CreditChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True) + If _CreditChartOfAccounts.Children.Count > 0 Then + Throw New Exception("*A követel számlaszám NEM lehet szülő !") + Exit Sub + End If + Else + _CreditChartOfAccounts = Nothing + End If + + If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then + If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then + Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !") + Exit Sub + End If + End If + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLRows In View.SelectedObjects + _GLRows = _onew.GetObject(_GLRows) + I += 1 + RaiseEvent DoWork() + If _Controlling IsNot Nothing Then + _GLRows.Controlling = _Controlling + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.Controlling = _Controlling + End If + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.Controlling = _Controlling + End If + End If + + If _JobNumberObjects IsNot Nothing Then + _GLRows.JobNumberObjects = _JobNumberObjects + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.JobNumberObjects = _JobNumberObjects + End If + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects + End If + End If + + If _CostHolder IsNot Nothing Then + _GLRows.CostHolder = _CostHolder + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.CostHolder = _CostHolder + End If + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.CostHolder = _CostHolder + End If + End If + + If _CostPlace IsNot Nothing Then + _GLRows.CostPlace = _CostPlace + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.CostPlace = _CostPlace + End If + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.CostPlace = _CostPlace + End If + End If + + If _UniqueObjects IsNot Nothing Then + _GLRows.UniqueObjects = _UniqueObjects + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.UniqueObjects = _UniqueObjects + End If + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects + End If + End If + + If _DebitChartOfAccounts IsNot Nothing Then + If _GLRows.GLHeader.DateExecution.Year = _GLRowsCheck.ChartOfAccountsYear.AccountYear Then + _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts + End If + End If + + If _CreditChartOfAccounts IsNot Nothing Then + If _GLRows.GLHeader.DateExecution.Year = _GLRowsCheck.ChartOfAccountsYear.AccountYear Then + _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts + End If + End If + + If _GLRowsCheck.IsDateExecution = True Then + _GLRows.DateExecution = _GLRowsCheck.DateExecution + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.DateExecution = _GLRowsCheck.DateExecution + End If + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.DateExecution = _GLRowsCheck.DateExecution + End If + End If + If _GLRows.GLRowsType <> _GLRowsCheck.GLRowsType Then + _GLRows.GLRowsType = _GLRowsCheck.GLRowsType + End If + If I Mod 100 = 0 Then _onew.CommitChanges() + Next + _onew.CommitChanges() + RaiseEvent FinalWork + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aGLRowsDivide_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLRowsDivide.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivide As GLRowsDivide = _onew.CreateObject(Of GLRowsDivide)() + e.View = Application.CreateDetailView(_onew, "GLRowsDivide_DetailView", False, _GLRowsDivide) + End Sub + Private Sub aGLRowsDivide_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLRowsDivide.Execute + '-- Sor bontása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivide As GLRowsDivide = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivide) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _GLRows_New As GLRows = Nothing + Dim _Rate As Double + Dim _AmountHUF As Double + Dim _AmountDEV As Double + + If _GLRows Is Nothing Then + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + If _PCIDetail Is Nothing Then + Exit Sub + Else + _GLRows = _PCIDetail.GLRows + End If + + End If + + + If _GLRows.AmountDEV <> 0 Then _Rate = _GLRows.AmountHUF / _GLRows.AmountHUF + + If _GLRowsDivide.AmountPercent > 0 Then + '-- GLRowsNew + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.AmountDEV = Math.Round(_GLRows.AmountDEV * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.AmountHUF = Math.Round(_GLRows.AmountHUF * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.CashType = _GLRows.CashType + _GLRows_New.ConnectInfo = _GLRows.ConnectInfo + _GLRows_New.Controlling = _GLRows.Controlling + _GLRows_New.CostHolder = _GLRows.CostHolder + _GLRows_New.CostPlace = _GLRows.CostPlace + + _GLRows_New.CreditAmountDEV = Math.Round(_GLRows.CreditAmountDEV * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.CreditAmountHUF = Math.Round(_GLRows.CreditAmountHUF * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + + _GLRows_New.CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLRows_New.Customer = _GLRows.Customer + _GLRows_New.DateVAT = _GLRows.DateVAT + + _GLRows_New.DebitAmountDEV = Math.Round(_GLRows.DebitAmountDEV * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.DebitAmountHUF = Math.Round(_GLRows.DebitAmountHUF * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + + _GLRows_New.DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLRows_New.GLHeader = _GLRows.GLHeader + _GLRows_New.GLRowsGUID = _GLRows.GLRowsGUID + _GLRows_New.GLRowsTypeVAT = _GLRows.GLRowsTypeVAT + _GLRows_New.ImportID = _GLRows.ImportID + + _GLRows_New.InAmountDEV = Math.Round(_GLRows.InAmountDEV * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.InAmountHUF = Math.Round(_GLRows.InAmountHUF * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + + _GLRows_New.JobNumberObjects = _GLRows.JobNumberObjects + _GLRows_New.LiquidAssets = _GLRows.LiquidAssets + _GLRows_New.NoteRows = _GLRows.NoteRows + + _GLRows_New.OutAmountDEV = Math.Round(_GLRows.OutAmountDEV * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _GLRows_New.OutAmountHUF = Math.Round(_GLRows.OutAmountHUF * (_GLRowsDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + + _GLRows_New.PartnerType = _GLRows.PartnerType + _GLRows_New.TransactionType = _GLRows.TransactionType + _GLRows_New.UniqueObjects = _GLRows.UniqueObjects + _GLRows_New.VAT = _GLRows.VAT + _GLRows_New.Save() + + '-- GLRows + + _GLRows.AmountDEV = Math.Round(_GLRows.AmountDEV * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = Math.Round(_GLRows.AmountHUF * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.CreditAmountDEV = Math.Round(_GLRows.CreditAmountDEV * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.CreditAmountHUF = Math.Round(_GLRows.CreditAmountHUF * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.DebitAmountDEV = Math.Round(_GLRows.DebitAmountDEV * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.DebitAmountHUF = Math.Round(_GLRows.DebitAmountHUF * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.InAmountDEV = Math.Round(_GLRows.InAmountDEV * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.InAmountHUF = Math.Round(_GLRows.InAmountHUF * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.OutAmountDEV = Math.Round(_GLRows.OutAmountDEV * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + _GLRows.OutAmountHUF = Math.Round(_GLRows.OutAmountHUF * (1 - (_GLRowsDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + + _GLRows.Save() + ElseIf _GLRowsDivide.AmountHUF > 0 And _GLRows.GLHeader.CurrencyName.ShortName = "HUF" Then + If Math.Abs(_GLRowsDivide.AmountHUF) < Math.Abs(_GLRows.AmountHUF) Then + '-- GLRowsNew + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.AmountHUF = _GLRowsDivide.AmountHUF + _GLRows_New.CashType = _GLRows.CashType + _GLRows_New.ConnectInfo = _GLRows.ConnectInfo + _GLRows_New.Controlling = _GLRows.Controlling + _GLRows_New.CostHolder = _GLRows.CostHolder + _GLRows_New.CostPlace = _GLRows.CostPlace + If _GLRows.CreditAmountHUF <> 0 Then + _GLRows_New.CreditAmountHUF = _GLRowsDivide.AmountHUF + End If + _GLRows_New.CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLRows_New.Customer = _GLRows.Customer + _GLRows_New.DateVAT = _GLRows.DateVAT + If _GLRows.DebitAmountHUF <> 0 Then + _GLRows_New.DebitAmountHUF = _GLRowsDivide.AmountHUF + End If + _GLRows_New.DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLRows_New.GLHeader = _GLRows.GLHeader + _GLRows_New.GLRowsGUID = _GLRows.GLRowsGUID + _GLRows_New.GLRowsTypeVAT = _GLRows.GLRowsTypeVAT + _GLRows_New.ImportID = _GLRows.ImportID + If _GLRows.InAmountHUF <> 0 Then + _GLRows_New.InAmountHUF = _GLRowsDivide.AmountHUF + End If + _GLRows_New.JobNumberObjects = _GLRows.JobNumberObjects + _GLRows_New.LiquidAssets = _GLRows.LiquidAssets + _GLRows_New.NoteRows = _GLRows.NoteRows + If _GLRows.OutAmountHUF <> 0 Then + _GLRows_New.OutAmountHUF = _GLRowsDivide.AmountHUF + End If + _GLRows_New.PartnerType = _GLRows.PartnerType + _GLRows_New.TransactionType = _GLRows.TransactionType + _GLRows_New.UniqueObjects = _GLRows.UniqueObjects + _GLRows_New.VAT = _GLRows.VAT + _GLRows_New.Save() + + '-- GLRows + _AmountHUF = _GLRows.AmountHUF - _GLRowsDivide.AmountHUF + _GLRows.AmountHUF = _AmountHUF + If _GLRows.CreditAmountHUF <> 0 Then _GLRows.CreditAmountHUF = _AmountHUF + If _GLRows.DebitAmountHUF <> 0 Then _GLRows.DebitAmountHUF = _AmountHUF + If _GLRows.InAmountHUF <> 0 Then _GLRows.InAmountHUF = _AmountHUF + If _GLRows.OutAmountHUF <> 0 Then _GLRows.OutAmountHUF = _AmountHUF + + _GLRows.Save() + End If + ElseIf _GLRowsDivide.AmountDEV > 0 Then + If Math.Abs(_GLRowsDivide.AmountDEV) < Math.Abs(_GLRows.AmountDEV) Then + '-- GLRowsNew + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.AmountDEV = _GLRowsDivide.AmountDEV + _GLRows_New.AmountHUF = Math.Round(_GLRowsDivide.AmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRows_New.CashType = _GLRows.CashType + _GLRows_New.ConnectInfo = _GLRows.ConnectInfo + _GLRows_New.Controlling = _GLRows.Controlling + _GLRows_New.CostHolder = _GLRows.CostHolder + _GLRows_New.CostPlace = _GLRows.CostPlace + If _GLRows.CreditAmountDEV <> 0 Then + _GLRows_New.CreditAmountDEV = _GLRowsDivide.AmountDEV + _GLRows_New.CreditAmountHUF = _GLRows_New.AmountHUF + End If + _GLRows_New.CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLRows_New.Customer = _GLRows.Customer + _GLRows_New.DateVAT = _GLRows.DateVAT + If _GLRows.DebitAmountDEV <> 0 Then + _GLRows_New.DebitAmountDEV = _GLRowsDivide.AmountDEV + _GLRows_New.DebitAmountHUF = _GLRows_New.AmountHUF + End If + _GLRows_New.DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLRows_New.GLHeader = _GLRows.GLHeader + _GLRows_New.GLRowsGUID = _GLRows.GLRowsGUID + _GLRows_New.GLRowsTypeVAT = _GLRows.GLRowsTypeVAT + _GLRows_New.ImportID = _GLRows.ImportID + If _GLRows.InAmountDEV <> 0 Then + _GLRows_New.InAmountDEV = _GLRowsDivide.AmountDEV + _GLRows_New.InAmountHUF = _GLRows_New.AmountHUF + End If + _GLRows_New.JobNumberObjects = _GLRows.JobNumberObjects + _GLRows_New.LiquidAssets = _GLRows.LiquidAssets + _GLRows_New.NoteRows = _GLRows.NoteRows + If _GLRows.OutAmountDEV <> 0 Then + _GLRows_New.OutAmountDEV = _GLRowsDivide.AmountDEV + _GLRows_New.OutAmountHUF = _GLRows_New.AmountHUF + End If + _GLRows_New.PartnerType = _GLRows.PartnerType + _GLRows_New.TransactionType = _GLRows.TransactionType + _GLRows_New.UniqueObjects = _GLRows.UniqueObjects + _GLRows_New.VAT = _GLRows.VAT + _GLRows_New.Save() + + '-- GLRows + _AmountDEV = _GLRows.AmountDEV - _GLRowsDivide.AmountDEV + _AmountHUF = Math.Round(_GLRowsDivide.AmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountDEV = _AmountDEV + _GLRows.AmountHUF = _AmountHUF + If _GLRows.CreditAmountDEV <> 0 Then + _GLRows.CreditAmountDEV = _AmountDEV + _GLRows.CreditAmountHUF = _AmountHUF + End If + If _GLRows.DebitAmountDEV <> 0 Then + _GLRows.DebitAmountDEV = _AmountDEV + _GLRows.DebitAmountHUF = _AmountHUF + End If + If _GLRows.InAmountDEV <> 0 Then + _GLRows.InAmountDEV = _AmountDEV + _GLRows.InAmountHUF = _AmountHUF + End If + If _GLRows.OutAmountDEV <> 0 Then + _GLRows.OutAmountDEV = _AmountDEV + _GLRows.OutAmountHUF = _AmountHUF + End If + _GLRows.Save() + End If + End If + _ocur.CommitChanges() + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + GLFunctions.ReconfigurePCI(_uow, _GLRows_New.GLHeader.CustomersFrom, _GLRows_New.Customer, _GLRows_New.PartnerType, _GLRows_New.ConnectInfo) + If TryCast(Frame, NestedFrame) IsNot Nothing Then + TryCast(Frame, NestedFrame).ViewItem.View.ObjectSpace.Refresh() + Else + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End Sub + Private Sub aBookEntryRemove_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBookEntryRemove.Execute + noselect = True + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLAccounts As GLAccounts + Dim _InvoiceHeader As InvoiceHeader + Dim _RegistryHeader As RegistryHeader + + Dim _InvoiceHeader_Collection As New ArrayList + Dim _RegistryHeader_Collection As New ArrayList + Dim I As Long + RaiseEvent InitWork(1, 1, selection.Count) + For Each _GLAccounts In selection + If _GLAccounts.ImportedInvoice IsNot Nothing Then + _InvoiceHeader_Collection.Add(_GLAccounts.ImportedInvoice) + End If + + If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + If _GLAccounts.IsRegistry = False Then + _RegistryHeader_Collection.Add(_GLAccounts.ImportedRegistryHeader) + End If + End If + + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + + RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count + _RegistryHeader_Collection.Count) + For Each _InvoiceHeader In _InvoiceHeader_Collection + I += 1 + _InvoiceHeader.BookEntryRemove(_InvoiceHeader, _uow, False) + RaiseEvent DoWork() + If I Mod 100 = 0 Then _uow.CommitChanges() + Next + For Each _RegistryHeader In _RegistryHeader_Collection + I += 1 + _RegistryHeader.BookEntryRemove(_RegistryHeader, _uow, False) + RaiseEvent DoWork() + If I Mod 100 = 0 Then _uow.CommitChanges() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + noselect = False + End Sub + + Private Sub aGLAccountsforBookEntryCheck_Cancel(sender As Object, e As System.EventArgs) Handles aGLAccountsforBookEntryCheck.Cancel + noselect = False + End Sub + Private Sub aGLAccountsforBookEntryCheck_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLAccountsforBookEntryCheck.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BookEntryCheck As BookEntryCheck = _onew.CreateObject(Of BookEntryCheck)() + _BookEntryCheck.IsManagerCheck = False + _BookEntryCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + If View.Id = "GLAccountRowsforBookEntry_ListView_ManagerCheck" Then _BookEntryCheck.IsManagerCheck = True + e.View = Application.CreateDetailView(_onew, "BookEntryCheck_DetailView", False, _BookEntryCheck) + End Sub + Private Sub aGLAccountsforBookEntryCheck_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLAccountsforBookEntryCheck.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + Dim _BookEntryCheck As BookEntryCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), BookEntryCheck) + + Dim _BookEntryCheck_ChartOfAccounts As ChartOfAccounts + Dim _BookEntryCheck_JobNumberObjects As JobNumberObjects + Dim _BookEntryCheck_UniqueObjects As UniqueObjects + Dim _BookEntryCheck_CostHolder As CostHolder + Dim _BookEntryCheck_CostPlace As CostPlace + Dim _BookEntryCheck_Controlling As Controlling + + Dim i As Long = 0 + If e.PopupWindow.View.SelectedObjects(0).ChartOfAccounts Is Nothing Then + _BookEntryCheck_ChartOfAccounts = Nothing + Else + _BookEntryCheck_ChartOfAccounts = _uow.GetObjectByKey(Of ChartOfAccounts)(e.PopupWindow.View.SelectedObjects(0).ChartOfAccounts.Oid) + End If + If e.PopupWindow.View.SelectedObjects(0).JobNumberObjects Is Nothing Then + _BookEntryCheck_JobNumberObjects = Nothing + Else + _BookEntryCheck_JobNumberObjects = _uow.GetObjectByKey(Of JobNumberObjects)(e.PopupWindow.View.SelectedObjects(0).JobNumberObjects.Oid) + End If + If e.PopupWindow.View.SelectedObjects(0).UniqueObjects Is Nothing Then + _BookEntryCheck_UniqueObjects = Nothing + Else + _BookEntryCheck_UniqueObjects = _uow.GetObjectByKey(Of UniqueObjects)(e.PopupWindow.View.SelectedObjects(0).UniqueObjects.Oid) + End If + If e.PopupWindow.View.SelectedObjects(0).CostHolder Is Nothing Then + _BookEntryCheck_CostHolder = Nothing + Else + _BookEntryCheck_CostHolder = _uow.GetObjectByKey(Of CostHolder)(e.PopupWindow.View.SelectedObjects(0).CostHolder.Oid) + End If + If e.PopupWindow.View.SelectedObjects(0).CostPlace Is Nothing Then + _BookEntryCheck_CostPlace = Nothing + Else + _BookEntryCheck_CostPlace = _uow.GetObjectByKey(Of CostPlace)(e.PopupWindow.View.SelectedObjects(0).CostPlace.Oid) + End If + If e.PopupWindow.View.SelectedObjects(0).Controlling Is Nothing Then + _BookEntryCheck_Controlling = Nothing + Else + _BookEntryCheck_Controlling = _uow.GetObjectByKey(Of Controlling)(e.PopupWindow.View.SelectedObjects(0).Controlling.Oid) + If _BookEntryCheck_Controlling.Children.Count > 0 Then + Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _BookEntryCheck_Controlling.Name)) + Exit Sub + End If + End If + e.PopupWindow.Close(False) + + Dim _InvoiceRows As InvoiceRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry + + + RaiseEvent InitWork(1, 1, selection.Count) + For Each _GLAccountRowsforBookEntry In selection + i += 1 + RaiseEvent DoWork() + If _GLAccountRowsforBookEntry.PartnerType = ePartnerType.eReceivables Then + _InvoiceRows = _uow.GetObjectByKey(Of InvoiceRows)(_GLAccountRowsforBookEntry.Oid) + If _InvoiceRows IsNot Nothing Then + + If _BookEntryCheck_ChartOfAccounts IsNot Nothing Then _InvoiceRows.ChartOfAccounts = _BookEntryCheck_ChartOfAccounts + If _BookEntryCheck_CostHolder IsNot Nothing Then + _InvoiceRows.CostHolder = _BookEntryCheck_CostHolder + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.CostHolder = _BookEntryCheck_CostHolder + End If + End If + + If _BookEntryCheck_CostPlace IsNot Nothing Then + _InvoiceRows.CostPlace = _BookEntryCheck_CostPlace + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.CostPlace = _BookEntryCheck_CostPlace + End If + End If + + If _BookEntryCheck_UniqueObjects IsNot Nothing Then + _InvoiceRows.UniqueObjects = _BookEntryCheck_UniqueObjects + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.UniqueObjects = _BookEntryCheck_UniqueObjects + End If + End If + + If _BookEntryCheck_JobNumberObjects IsNot Nothing Then + _InvoiceRows.JobNumberObjects = _BookEntryCheck_JobNumberObjects + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.JobNumberObjects = _BookEntryCheck_JobNumberObjects + End If + End If + + If _BookEntryCheck_Controlling IsNot Nothing Then + _InvoiceRows.Controlling = _BookEntryCheck_Controlling + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.Controlling = _BookEntryCheck_Controlling + End If + End If + If _BookEntryCheck.IsDateExecution = True Then + _InvoiceRows.DateExecution = _BookEntryCheck.DateExecution + If _InvoiceRows.ContractRows IsNot Nothing Then + _InvoiceRows.ContractRows.DateExecution = _BookEntryCheck.DateExecution + End If + End If + + End If + End If + If _GLAccountRowsforBookEntry.PartnerType = ePartnerType.ePayabels Then + _RegistryRowsFinancialControlling = _uow.GetObjectByKey(Of RegistryRowsFinancialControlling)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancialControlling IsNot Nothing Then + If _BookEntryCheck_ChartOfAccounts IsNot Nothing Then _RegistryRowsFinancialControlling.ChartOfAccounts = _BookEntryCheck_ChartOfAccounts + If _BookEntryCheck_CostHolder IsNot Nothing Then _RegistryRowsFinancialControlling.CostHolder = _BookEntryCheck_CostHolder + If _BookEntryCheck_CostPlace IsNot Nothing Then _RegistryRowsFinancialControlling.CostPlace = _BookEntryCheck_CostPlace + If _BookEntryCheck_UniqueObjects IsNot Nothing Then _RegistryRowsFinancialControlling.UniqueObjects = _BookEntryCheck_UniqueObjects + If _BookEntryCheck_JobNumberObjects IsNot Nothing Then _RegistryRowsFinancialControlling.JobNumberObjects = _BookEntryCheck_JobNumberObjects + If _BookEntryCheck_Controlling IsNot Nothing Then _RegistryRowsFinancialControlling.Controlling = _BookEntryCheck_Controlling + If _BookEntryCheck.IsDateExecution = True Then _RegistryRowsFinancialControlling.DateExecution = _BookEntryCheck.DateExecution + End If + End If + If i Mod 100 = 0 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aGLAccountsforBookEntryRemove_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLAccountsforBookEntryRemove.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim I As Long = 0 + + If View.Id = "InvoiceHeader_ListView_GLAccounts" Then + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _InvoiceHeader In View.SelectedObjects + I += 1 + If _InvoiceHeader.GLAccounts Is Nothing Then + _InvoiceHeader.ReadyforBookEntry = False + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _InvoiceRows.ReadyforBookEntryRows = False + Next + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _InvoiceVATRows.ReadyforBookEntryRows = False + + Next + End If + If I Mod 100 = 0 Then _ocur.CommitChanges() + RaiseEvent DoWork() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + ElseIf View.Id = "RegistryHeader_ListView_GLAccounts" Then + Dim _RegistryHeader As RegistryHeader + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancial As RegistryRowsFinancial + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryHeader In View.SelectedObjects + I += 1 + If _RegistryHeader.F_GLAccounts Is Nothing Then + _RegistryHeader.F_ReadyforBookEntry = False + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = False + Next + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _RegistryRowsFinancial.F_ReadyforBookEntryRows = False + Next + End If + If I Mod 100 = 0 Then _ocur.CommitChanges() + RaiseEvent DoWork() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + End If + End Sub + + Private Sub aBookEntryCheckGotoNextStep_Cancel(sender As Object, e As System.EventArgs) Handles aBookEntryCheckGotoNextStep.Cancel + noselect = False + End Sub + + Private Sub aBookEntryCheckGotoNextStep_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBookEntryCheckGotoNextStep.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep + Dim _InvoiceChoiceNextStep As InvoiceChoiceNextStep + Dim _WorkflowSystemSteps As WorkflowSystemSteps + Dim _WorkflowSystem As WorkflowSystem + Dim _Step As Long + Dim _IsGroup As Boolean = False + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry + Dim _InvoiceHeader As InvoiceHeader + + If View.SelectedObjects.Count = 0 Then Exit Sub + + + If View.Id = "GLAccountRowsforBookEntry_ListView" Or View.Id = "GLAccountRowsforBookEntry_ListView_ManagerCheck" Then + _GLAccountRowsforBookEntry = TryCast(View.SelectedObjects(0), GLAccountRowsforBookEntry) + If _GLAccountRowsforBookEntry.InvoiceHeader IsNot Nothing Then + _InvoiceChoiceNextStep = _onew.CreateObject(Of InvoiceChoiceNextStep)() + + _WorkflowSystem = _onew.GetObjectByKey(Of WorkflowSystem)(_GLAccountRowsforBookEntry.InvoiceHeader.InvoiceType.WorkflowSystem.Oid) + _WorkflowSystemSteps = _onew.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem.Oid=?", _WorkflowSystem.Oid), True) + _InvoiceChoiceNextStep.InvoiceHeader = _onew.GetObject(_GLAccountRowsforBookEntry.InvoiceHeader) + _InvoiceChoiceNextStep.HRPerson = _WorkflowSystemSteps.HRResponsible + _InvoiceChoiceNextStep.WorkflowSystemSteps = _WorkflowSystemSteps + + noselect = True + + e.View = Application.CreateDetailView(_onew, "InvoiceChoiceNextStep_DetailView", False, _InvoiceChoiceNextStep) + Else + _RegistryChoiceNextStep = _onew.CreateObject(Of RegistryChoiceNextStep)() + _RegistryChoiceNextStep.RegistryHeader = _onew.GetObject(_GLAccountRowsforBookEntry.RegistryHeader) + _WorkflowSystem = _RegistryChoiceNextStep.RegistryHeader.CurrentWorkflowSystemSteps.WorkflowSystem + _Step = _RegistryChoiceNextStep.RegistryHeader.CurrentWorkflowSystemSteps.StepIndex + 1 + _WorkflowSystemSteps = _onew.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem.Oid=? and StepIndex=?", _WorkflowSystem.Oid, _Step), True) + _RegistryChoiceNextStep.HRPerson = _RegistryChoiceNextStep.RegistryHeader.HRResponsible + _RegistryChoiceNextStep.WorkflowSystemSteps = _WorkflowSystemSteps + + noselect = True + + e.View = Application.CreateDetailView(_onew, "RegistryChoiceNextStep_DetailView", False, _RegistryChoiceNextStep) + End If + End If + End Sub + Private Sub aBookEntryCheckGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBookEntryCheckGotoNextStep.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RegistryHeader As RegistryHeader + Dim _CurrentWorkflowSystemStepsFirstShortName As String + Dim _RegistryTask As RegistryTasks + Dim _RegistryTask_New As RegistryTasks + + Dim _Faild As Boolean = False + Dim _OK_NewRegistryTask As Boolean = False + Dim _NewVC As New SISBusiness.Module.RegistryVC 'A CheckNextStep public function meghívása miatt szükséges egy példány ebből a viewcontrollerből + + Dim _RegistryHeaderCollection As New ArrayList + Dim _InvoiceHeaderCollection As New ArrayList + + Dim _InvoiceHeader As InvoiceHeader = Nothing + Dim _InvoiceRows As InvoiceRows = Nothing + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry = Nothing + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep = Nothing + Dim _InvoiceChoiceNextStep As InvoiceChoiceNextStep = Nothing + Dim _GLAccountRowsforBookEntry_First As GLAccountRowsforBookEntry = Nothing + + Dim _InvoiceOrRegistry As Long = 0 + + _InvoiceHeaderCollection.Clear() + _RegistryHeaderCollection.Clear() + Dim i As Long = 0 + For Each _GLAccountRowsforBookEntry In selection + If i = 0 Then + _GLAccountRowsforBookEntry_First = _GLAccountRowsforBookEntry + If _GLAccountRowsforBookEntry.RegistryHeader IsNot Nothing Then + _InvoiceOrRegistry = -1 + _RegistryHeader = _uow.GetObjectByKey(Of RegistryHeader)(_GLAccountRowsforBookEntry.RegistryHeader.Oid) + _CurrentWorkflowSystemStepsFirstShortName = TryCast(_RegistryHeader.CurrentWorkflowSystemSteps, WorkflowSystemSteps).ShortName + Else + _InvoiceOrRegistry = 1 + _InvoiceRows = _uow.GetObjectByKey(Of InvoiceRows)(_GLAccountRowsforBookEntry.Oid) + _CurrentWorkflowSystemStepsFirstShortName = TryCast(_InvoiceRows.WorkflowSystemSteps, WorkflowSystemSteps).ShortName + End If + i += 1 + End If + + + If _GLAccountRowsforBookEntry.RegistryHeader IsNot Nothing And _InvoiceOrRegistry = 1 Then + Throw New Exception("*Van kijelölt szállítói sor is !") + Exit Sub + End If + If _GLAccountRowsforBookEntry.InvoiceHeader IsNot Nothing And _InvoiceOrRegistry = -1 Then + Throw New Exception("*Van kijelölt vevői számla sor is !") + Exit Sub + End If + + + If _GLAccountRowsforBookEntry.RegistryHeader IsNot Nothing Then + + If _GLAccountRowsforBookEntry.RegistryHeader.CurrentWorkflowSystemSteps.ShortName <> _CurrentWorkflowSystemStepsFirstShortName Then + Throw New Exception("*Minden kijelölt sornak azonos lépésen kell állnia !") + Exit Sub + End If + + _RegistryChoiceNextStep = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryChoiceNextStep) + If _RegistryHeaderCollection.Contains(_uow.GetObjectByKey(Of RegistryHeader)(_GLAccountRowsforBookEntry.RegistryHeader.Oid)) = False Then + _RegistryHeaderCollection.Add(_uow.GetObjectByKey(Of RegistryHeader)(_GLAccountRowsforBookEntry.RegistryHeader.Oid)) + End If + + End If + If _GLAccountRowsforBookEntry.InvoiceHeader IsNot Nothing Then + For Each _InvoiceRows In _GLAccountRowsforBookEntry.InvoiceHeader.InvoiceRows + If _InvoiceRows.WorkflowSystemSteps.ShortName <> _CurrentWorkflowSystemStepsFirstShortName Then + Throw New Exception("*Minden kijelölt sornak azonos lépésen kell állnia !") + Exit Sub + End If + Next + _InvoiceChoiceNextStep = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceChoiceNextStep) + If _InvoiceHeaderCollection.Contains(_uow.GetObjectByKey(Of InvoiceHeader)(_GLAccountRowsforBookEntry.InvoiceHeader.Oid)) = False Then + _InvoiceHeaderCollection.Add(_uow.GetObjectByKey(Of InvoiceHeader)(_GLAccountRowsforBookEntry.InvoiceHeader.Oid)) + End If + End If + Next + + + If _RegistryChoiceNextStep IsNot Nothing Then + If _RegistryHeaderCollection.Count > 0 Then + RaiseEvent InitWork(1, 1, _RegistryHeaderCollection.Count) + For Each _RegistryHeader In _RegistryHeaderCollection + RaiseEvent DoWork() + If CheckNextStep(_uow, _RegistryHeader, _RegistryChoiceNextStep.WorkflowSystemSteps) Then + _OK_NewRegistryTask = True + Else + _OK_NewRegistryTask = False + End If + + _RegistryHeader.CurrentWorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_RegistryChoiceNextStep.WorkflowSystemSteps.Oid) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then + _RegistryHeader.IsEditable = True + End If + _RegistryTask = _uow.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("RegistryHeader.Oid=? AND Status=?", _RegistryHeader.Oid, 0)) + + If _RegistryTask IsNot Nothing Then + _RegistryTask.Status = General.TaskStatus.Completed + End If + + If _RegistryChoiceNextStep.WorkflowSystemSteps.IsLastStep = False Then + If _OK_NewRegistryTask = True Then + _RegistryTask_New = New RegistryTasks(_uow) '--- Egy új feladat példányosítása + _RegistryTask_New.RegistryHeader = _RegistryHeader '--- Az új feladatnak az iktatás fejlécét átadjuk + _RegistryTask_New.CurrentWorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_RegistryHeader.CurrentWorkflowSystemSteps.Oid) + _RegistryTask_New.StartDate = GetSQLTime(_ocur.Session) + _RegistryTask_New.Status = General.TaskStatus.NotStarted + _RegistryTask_New.HRPerson = _uow.GetObjectByKey(Of HRPerson)(_RegistryChoiceNextStep.HRPerson.Oid) + _RegistryTask_New.Description = _RegistryChoiceNextStep.Description + _RegistryTask_New.Subject = _RegistryHeader.ShortName + _RegistryTask_New.DueDate = DateAdd(DateInterval.Day, _RegistryChoiceNextStep.WorkflowSystemSteps.ExpirationDayofFailure, Now) + End If + Else + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.WorkflowMessage = _RegistryChoiceNextStep.Description + Next + End If + Next + RaiseEvent FinalWork + End If + End If + + If _InvoiceChoiceNextStep IsNot Nothing Then + If _InvoiceHeaderCollection.Count > 0 Then + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + RaiseEvent InitWork(1, 1, _InvoiceHeaderCollection.Count) + For Each _InvoiceHeader In _InvoiceHeaderCollection + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + RaiseEvent DoWork() + _InvoiceRows.WorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_InvoiceChoiceNextStep.WorkflowSystemSteps.Oid) + Next + Next + RaiseEvent FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End If + End If + + _uow.CommitChanges() + noselect = False + + If _Faild = True Then + '---- Teszt Miatt------------------- + e.PopupWindow.Close() + noselect = False + Throw New Exception("*A kijelölt elemek között volt nem megfelelő lépésen álló feladat, ami nem került léptetésre!") + _OK_NewRegistryTask = False + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aViewAttachments_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments.Execute + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry = TryCast(View.SelectedObjects(0), GLAccountRowsforBookEntry) + If _GLAccountRowsforBookEntry.RegistryHeader IsNot Nothing Then + + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _GLAccountRowsforBookEntry.RegistryHeader.DocumentFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _GLAccountRowsforBookEntry.RegistryHeader.DocumentFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + ElseIf _GLAccountRowsforBookEntry.InvoiceHeader IsNot Nothing Then + Dim _InvoiceHeader As InvoiceHeader = TryCast(View.SelectedObjects(0), GLAccountRowsforBookEntry).InvoiceHeader + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _CurrencyName As CurrencyName + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + End If + + End If + End If + End If + End Sub + Private Sub aViewAttachments_BEP_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_BEP.Execute + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _CustomersFrom As CustomersFrom = _RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RegistryHeader.Customers + Dim _DocumentNumber As String = _RegistryHeader.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + + End Sub + Private Sub aViewRegistry_BEP_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_BEP.Execute + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _CustomersFrom As CustomersFrom = _RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RegistryHeader.Customers + Dim _DocumentNumber As String = _RegistryHeader.DocumentNumber + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Public Function CheckNextStep(ByVal p_uow As UnitOfWork, ByVal p_RegistryHeader As RegistryHeader, ByVal p_StepToJump As WorkflowSystemSteps) + 'Ha ezt módosítod akkor a bookentryVC-ben is módosíts! + Dim _WorkflowSystem As WorkflowSystem = p_uow.FindObject(Of WorkflowSystem)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", p_RegistryHeader.RegistryType.WorkflowSystem.ShortName)) + Dim _CurrentStepIndex As Long = p_RegistryHeader.CurrentWorkflowSystemSteps.StepIndex - 1 + Dim _StepToJumpIndex As Long = p_StepToJump.StepIndex - 2 + + Dim _sortCollection As SortingCollection = New SortingCollection() + _sortCollection.Add(New SortProperty("StepIndex", DB.SortingDirection.Ascending)) + _WorkflowSystem.WorkflowSystemSteps.Sorting = _sortCollection + + For i = _CurrentStepIndex To _StepToJumpIndex + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckVAT Then + If p_RegistryHeader.BruttoAmountRemaining <> 0 Then + '---- TESZT MIATT----------------------------- + Throw New Exception("*Nincs Áfára teljesen lebontva, nem lehet tovább léptetni") + End If + End If + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckControlling Then + Dim _ParentControllings As String = "" 'Azon kontrollszámok nevét tartalmazó string amelyek focsoportok + If p_RegistryHeader.NettoAmountRemaining <> 0 Then + '--- TESZT MIATT--------------------- + Throw New Exception("*Nincs a számla teljesen leigazolva, nem lehet tovább léptetni") + End If + If p_RegistryHeader.BruttoAmountRemainingBank <> 0 Then + Throw New Exception("*Nincs a teljes összeg lebontva a banki csomagokra") + End If + 'Az iktatás összes számlaigazolási sorának vizsgálata, hogy van e bennük hivatkozás focsoport cm-re + For Each _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling In p_RegistryHeader.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.Controlling.IsParent = True Then + _ParentControllings += _RegistryRowsFinancialControlling.Controlling.Name & ", " + End If + Next + If Not _ParentControllings = "" Then + + Throw New Exception("*Figyelem a felhasznált CM számok focsoportok: " & _ParentControllings & "! Kérem válasszon egy nem főcsoport CM számot") + End If + End If + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckCOCScanned Then + 'Aktu�lis iktat�shoz rendelt teljes�t�sre bont�s sorokat ellenoriz. A teljes leigazoland� nett� �sszegre vonatkoz�an a CM sz�moknak be�ll�tott hat�r�rt�ket vizsg�l + 'miszerint k�teles visszacsatolt al��rt teles�t�si igazol�s nyomtatv�nyt visszacsatolni + + '�sszegyujti az iktat�shoz tartoz� teljes�t�sre bont�s sorokat + Dim _RegistryRowsFinancialControllingCollection As XPCollection(Of RegistryRowsFinancialControlling) = New XPCollection(Of RegistryRowsFinancialControlling)(PersistentCriteriaEvaluationBehavior.InTransaction, p_uow, CriteriaOperator.Parse("RegistryHeader=?", p_RegistryHeader)) + Dim sortCollection As SortingCollection = New SortingCollection() + Dim j As Long = 0 + Dim _WhileNextStep As Boolean = True + Dim _AmountonCM As Double + + 'Sorba rendezi a kollekci�t cm sz�m alapj�n + sortCollection.Add(New SortProperty("Controlling.Name", DB.SortingDirection.Ascending)) + _RegistryRowsFinancialControllingCollection.Sorting = sortCollection + + Do While _WhileNextStep + ' Az aktu�lis CM sz�m egyenlege null�r�l indul + _AmountonCM = 0 + Do + 'A CM egyenleg�t n�velj�k addig am�g az aktu�lis soron r� hivatkoznak + _AmountonCM += _RegistryRowsFinancialControllingCollection(j).Amount + + 'Ha a CM -nek be van �ll�tva, hogy k�telesek vagyunk elv�gezni a vizsg�latot + '�s a CM aktu�lis egyenlege meghaladja a megengedett �sszeget �s nincs f�jl visszacsatolva + 'akkor nem lehet tov�bbengedni a folyamatot. + If _RegistryRowsFinancialControllingCollection(j).Controlling.IsCOCRequired And _ + _AmountonCM > _RegistryRowsFinancialControllingCollection(j).Controlling.COCAboveAmount And _ + _RegistryRowsFinancialControllingCollection(j).File Is Nothing Then + '--- TESZT MIATT--------------------- + Throw New Exception("*Nincs feltöltve a beszkennelt aláírt teljesítési igazolás!") + End If + + If j = _RegistryRowsFinancialControllingCollection.Count - 1 Then + _WhileNextStep = False + Exit Do + End If + + j += 1 + 'Ez a kitétel azért kell, hogy addig gyujtse egy adott CM egyenleg�t am�g az aktu�lis �s a k�vetkezo sor ugyanarra a CM-re hivatkozik + Loop While _RegistryRowsFinancialControllingCollection(j - 1).Controlling.Name = _RegistryRowsFinancialControllingCollection(j).Controlling.Name + Loop + End If + Next + Return True + End Function + Private Sub aViewRegistry_BEC_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_BEC.Execute + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry = TryCast(View.SelectedObjects(0), GLAccountRowsforBookEntry) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + If _GLAccountRowsforBookEntry IsNot Nothing Then + If _GLAccountRowsforBookEntry.RegistryHeader IsNot Nothing Then + Dim _CustomersFrom As CustomersFrom = _GLAccountRowsforBookEntry.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _GLAccountRowsforBookEntry.RegistryHeader.Customers + Dim _DocumentNumber As String = _GLAccountRowsforBookEntry.RegistryHeader.DocumentNumber + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End If + End If + + End Sub + + Public Sub GenerateInvoiceWorkflowStep(ByVal _uow As UnitOfWork) + Dim _InvoiceType_Collection As New XPCollection(Of InvoiceType)(_uow, CriteriaOperator.Parse("isnull(WorkflowSystem)=False")) + Dim _InvoiceType As InvoiceType + + Dim _InvoiceRows_Collection As XPCollection(Of InvoiceRows) + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + Dim _InvoiceVATRows_Collection As XPCollection(Of InvoiceVATRows) + + Dim _WorkflowSystemSteps As WorkflowSystemSteps + Dim _IsCheckManager As Boolean + For Each _InvoiceType In _InvoiceType_Collection + _IsCheckManager = False + For Each _WorkflowSystemSteps In _InvoiceType.WorkflowSystem.WorkflowSystemSteps + If _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckManager Then + _IsCheckManager = True + _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("InvoiceHeader.InvoiceType.Oid=? and isnull(WorkflowSystemSteps)=True", _InvoiceType.Oid)) + For Each _InvoiceRows In _InvoiceRows_Collection + _InvoiceRows.WorkflowSystemSteps = _WorkflowSystemSteps + Next + End If + If _IsCheckManager = False And _WorkflowSystemSteps.IsLastStep = True Then + _InvoiceRows_Collection = New XPCollection(Of InvoiceRows)(_uow, CriteriaOperator.Parse("InvoiceHeader.InvoiceType.Oid=? and isnull(WorkflowSystemSteps)=True", _InvoiceType.Oid)) + For Each _InvoiceRows In _InvoiceRows_Collection + _InvoiceRows.WorkflowSystemSteps = _WorkflowSystemSteps + Next + End If + Next + Next + _InvoiceVATRows_Collection = New XPCollection(Of InvoiceVATRows)(_uow, CriteriaOperator.Parse("ReadyforBookEntryRows=False")) + For Each _InvoiceVATRows In _InvoiceVATRows_Collection + _InvoiceVATRows.ReadyforBookEntryRows = True + Next + _uow.CommitChanges() + End Sub + Private Sub aVATDivide_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aVATDivide.Cancel + + End Sub + Private Sub aVATDivide_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aVATDivide.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccountRowsforBookEntry = TryCast(View.SelectedObjects(0), GLAccountRowsforBookEntry) + Dim _DivideVAT As DivideVAT + Dim _RegistryRowsFinancial As RegistryRowsFinancial + + _RegistryRowsFinancial = _ocur.GetObjectByKey(Of RegistryRowsFinancial)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancial IsNot Nothing Then + _DivideVAT = _onew.CreateObject(Of DivideVAT)() + _DivideVAT.RegistryRowsFinancial = _onew.GetObjectByKey(Of RegistryRowsFinancial)(_RegistryRowsFinancial.Oid) + _DivideVAT.DateVAT = _RegistryRowsFinancial.DateVAT + _DivideVAT.VAT = _onew.GetObjectByKey(Of VAT)(_RegistryRowsFinancial.VAT.Oid) + e.View = Application.CreateDetailView(_onew, "DivideVAT_DetailView", True, _DivideVAT) + End If + + End Sub + Private Sub aVATDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aVATDivide.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _DivideVAT = TryCast(e.PopupWindow.View.SelectedObjects(0), DivideVAT) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.GetObjectByKey(Of RegistryRowsFinancial)(_DivideVAT.RegistryRowsFinancial.Oid) + + Try + If _DivideVAT.BruttoAmount = 0 Then + _RegistryRowsFinancial.DateVAT = _DivideVAT.DateVAT + If _RegistryRowsFinancial.VAT.Oid <> _DivideVAT.VAT.Oid Then + _RegistryRowsFinancial.VAT = _ocur.GetObjectByKey(Of VAT)(_DivideVAT.VAT.Oid) + End If + _ocur.CommitChanges() + _RegistryRowsFinancial.RegistryHeader.RecalculateVAT(_ocur, _RegistryRowsFinancial.RegistryHeader) + _ocur.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Else + Dim _RegistryRowsFinancial_NEW As RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)() + _RegistryRowsFinancial_NEW.BruttoAmount = _RegistryRowsFinancial.BruttoAmount - _DivideVAT.BruttoAmount + _RegistryRowsFinancial_NEW.DateVAT = _DivideVAT.DateVAT + _RegistryRowsFinancial_NEW.Note = _DivideVAT.Note + _RegistryRowsFinancial_NEW.RegistryHeader = _ocur.GetObjectByKey(Of RegistryHeader)(_RegistryRowsFinancial.RegistryHeader.Oid) + _RegistryRowsFinancial_NEW.VAT = _ocur.GetObjectByKey(Of VAT)(_DivideVAT.VAT.Oid) + + _RegistryRowsFinancial.BruttoAmount -= _RegistryRowsFinancial_NEW.BruttoAmount + _RegistryRowsFinancial.DateVAT = _DivideVAT.DateVAT + _RegistryRowsFinancial.Note = _DivideVAT.Note + _RegistryRowsFinancial.VAT = _ocur.GetObjectByKey(Of VAT)(_DivideVAT.VAT.Oid) + + + _ocur.CommitChanges() + _RegistryRowsFinancial.RegistryHeader.RecalculateVAT(_ocur, _RegistryRowsFinancial.RegistryHeader) + _ocur.CommitChanges() + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + + + Catch + _ocur.Rollback() + '------------------------------------TESZT MIATT ----------------------------------------->> + Throw New Exception("*Hiba történt az ÁFA bontás során, a művelet nem hajtódott végre. A kellemetlenségért elnézést kérünk!") + '------------------------------------TESZT MIATT -----------------------------------------<< + End Try + End Sub + + Private Sub aGLAccountsReadyforBookEntry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLAccountsReadyforBookEntry.Execute + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim i As Long = 0 + + RaiseEvent InitWork(1, 1, e.SelectedObjects.Count) + For Each _GLAccountRowsforBookEntry In e.SelectedObjects + RaiseEvent DoWork() + _InvoiceRows = _uow.GetObjectByKey(Of InvoiceRows)(_GLAccountRowsforBookEntry.Oid) + If _InvoiceRows IsNot Nothing Then + _InvoiceRows.ReadyforBookEntryRows = True + _InvoiceRows.InvoiceHeader.ReadyforBookEntry = True + End If + _InvoiceVATRows = _uow.GetObjectByKey(Of InvoiceVATRows)(_GLAccountRowsforBookEntry.Oid) + If _InvoiceVATRows IsNot Nothing Then + _InvoiceVATRows.ReadyforBookEntryRows = True + _InvoiceVATRows.InvoiceHeader.ReadyforBookEntry = True + End If + _RegistryRowsFinancial = _uow.GetObjectByKey(Of RegistryRowsFinancial)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancial IsNot Nothing Then + _RegistryRowsFinancial.F_ReadyforBookEntryRows = True + _RegistryRowsFinancial.RegistryHeader.F_ReadyforBookEntry = True + End If + _RegistryRowsFinancialControlling = _uow.GetObjectByKey(Of RegistryRowsFinancialControlling)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancialControlling IsNot Nothing Then + _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = True + _RegistryRowsFinancialControlling.RegistryHeader.F_ReadyforBookEntry = True + End If + If i Mod 100 = 0 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + + End Sub + + Private Sub aVATMerge_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aVATMerge.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccountRowsforBookEntry As GLAccountRowsforBookEntry + + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = Nothing + Dim _RegistryRowsFinancial_Base As RegistryRowsFinancial = Nothing + Dim i As Long = 0 + + + Dim _RegistryRowsFinancial_Collection As New ArrayList + + For Each _GLAccountRowsforBookEntry In View.SelectedObjects + _RegistryRowsFinancial = _uow.GetObjectByKey(Of RegistryRowsFinancial)(_GLAccountRowsforBookEntry.Oid) + If _RegistryRowsFinancial IsNot Nothing Then + If i = 0 Then + _RegistryRowsFinancial_Base = _RegistryRowsFinancial + i += 1 + Else + If _RegistryRowsFinancial.RegistryHeader.Oid = _RegistryRowsFinancial_Base.RegistryHeader.Oid And _ + _RegistryRowsFinancial.VAT.Oid = _RegistryRowsFinancial_Base.VAT.Oid Then + _RegistryRowsFinancial_Collection.Add(_RegistryRowsFinancial) + End If + End If + End If + Next + + For Each _RegistryRowsFinancial In _RegistryRowsFinancial_Collection + _RegistryRowsFinancial_Base.BruttoAmount += _RegistryRowsFinancial.BruttoAmount + Next + For Each _RegistryRowsFinancial In _RegistryRowsFinancial_Collection + _uow.Delete(_RegistryRowsFinancial) + Next + + _uow.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/GLAccountRowsforBookEntry.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/GLAccountRowsforBookEntry.vb new file mode 100644 index 0000000..74c8946 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/GLAccountRowsforBookEntry.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class GLAccountRowsforBookEntry 'Fknyvi feladshoz lista, ami alaplyn a knyvel tud ellenrizni + Inherits XPLiteObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Oid As Guid + Public PartnerType As ePartnerType + Public GLRowsTypeVAT As eGLRowsTypeVAT + Public CustomersFrom As CustomersFrom + Public Customers As Customers + Public DateExecution As Date + Public DocumentNumber As String + Public RegistryNumber As String + Public DebitChartOfAccounts As ChartOfAccounts + Public CreditChartOfAccounts As ChartOfAccounts + Public Controlling As Controlling + Public JobNumberObjects As JobNumberObjects + Public UniqueObjects As UniqueObjects + Public CostPlace As CostPlace + Public CostHolder As CostHolder + Public CurrencyRate As Double + Public AmountHUF As Double + Public AmountDEV As Double + Public Note1 As String + Public Note2 As String + Public VAT As VAT + Public ChartOfAccounts2 As ChartOfAccounts + Public IsReinvoice As String + Public ContractRows As ContractRows + Public RegistryHeader As RegistryHeader + Public InvoiceHeader As InvoiceHeader + Public WorkflowSystemSteps As WorkflowSystemSteps + Public WorkflowMessage As String + + Public Sub findrows() + Dim _RegistryTasks_coll As New XPCollection(GetType(RegistryTasks), CriteriaOperator.Parse("CurrentWorkflowSystemSteps.StepFinancialType=4 AND Status=0")) + Dim _RegistryHeader_Oid_array As New ArrayList + For Each _RegistryTask As RegistryTasks In _RegistryTasks_coll + _RegistryHeader_Oid_array.Add(_RegistryTask.RegistryHeader.Oid) + Next + Dim _RegistryHeader_coll As New XPCollection(GetType(RegistryHeader), New InOperator("Oid", _RegistryTasks_coll)) + Dim _RegistryRowsFinancialControlling As New XPCollection(GetType(RegistryRowsFinancialControlling), New InOperator("RegistryHeader", _RegistryHeader_coll)) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassa.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassa.vb new file mode 100644 index 0000000..d8a29f9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassa.vb @@ -0,0 +1,716 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + +' _ +' _ +' _ +' _ +' _ +' _ +' _ +'HUF", "row_AmountHUF", EditorState.Disabled, "CurrencyName.ShortName<>'HUF'", ViewType.DetailView)> _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +HUF", + AppearanceItemType:="ViewItem", + TargetItems:="row_AmountHUF", + Criteria:="CurrencyName.ShortName<>'HUF' and row_CashType !=2", + Enabled:=False, Context:="DetailView")> _ + _ + _ + _ + _ +Public Class GLCassa + Inherits GLHeader + Private _CashMoveType As eCashMoveType = eCashMoveType.eNotSet + Private _CashType As eCashType + Private _ChartOfAccounts As ChartOfAccounts + Private _PCIGroup As PCIGroup + Private _PartnerType As ePartnerType + Private _TotalInAmountHUF As Double = 0 + Private _TotalOutAmountHUF As Double = 0 + Private _TotalInAmountDEV As Double = 0 + Private _TotalOutAmountDEV As Double = 0 + Private _LiquidAssets As LiquidAssets + Private _BallanceHUF As Double + Private _BallanceDEV As Double + Private _GLHeader_RateDiff As GLHeader 'Kapcsold rf. kl. elszmolsi vegyes bizonylat + Private _GLClosingTime As GLClosingTime + '-- A msodlagos + Private _row_CurrencyRate As Double + Private _row_AmountDEV2 As Double = 0 + Private _row_CurrencyRate2 As Double = 0 + Private _row_CurrencyName2 As CurrencyName + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + Me.GLDocumentType = eGLDocumentType.eGLCassa + Me.DateExecution = GetSQLTime(Session) + Me.DocumentNumber = "" + Me.IsEditable = False + Me.IsStorno = False + Me.DocumentNumber = "" + Me.row_CashType = eCashType.eNormal + End If + End Sub + _ + _ + _ + Property CashMoveType() As eCashMoveType + Get + Return _CashMoveType + End Get + Set(ByVal value As eCashMoveType) + SetPropertyValue("CashMoveType", _CashMoveType, value) + End Set + End Property + _ + _ + _ + _ + Property row_CashType() As eCashType + Get + Return _CashType + End Get + Set(ByVal value As eCashType) + SetPropertyValue("row_CashType", _CashType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value = eCashType.eNormal Or value = eCashType.eCorrectionHUF Then + If LiquidAssets_Cassa IsNot Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName + row_PartnerType = ePartnerType.eNotSet + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_ChartOfAccounts() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + Property row_PCIGroup() As PCIGroup + Get + Return _PCIGroup + End Get + Set(ByVal value As PCIGroup) + SetPropertyValue("row_PCIGroup", _PCIGroup, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value IsNot Nothing Then + row_ConnectInfo = value.ConnectInfo + row_Customer = value.Customers + row_PartnerType = value.PartnerType + If value.CurrencyName_Account IsNot Nothing Then + If value.CurrencyName_Account.ShortName = "HUF" Then + If Me.CurrencyName.ShortName = "HUF" Then + Me.row_AmountHUF = Math.Abs(value.BallanceHUF) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + End If + Else + If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then + Me.row_AmountDEV = Math.Abs(value.BallanceDEV) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + End If + End If + End If + End If + End If + End Set + End Property + _ + _ + _ + Property row_PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("row_PartnerType", _PartnerType, value) + End Set + End Property + _ + _ + _ + _ + _ + Property LiquidAssets_Cassa As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets_Cassa", _LiquidAssets, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + BallanceHUF = Me.GetBallanceHUF(value, Now) + BallanceDEV = Me.GetBallanceDEV(value, Now) + CurrencyName = value.CurrencyName + row_CurrencyName2 = value.CurrencyName + End If + End Set + End Property + _ + _ + _ + _ + Property row_CurrencyRate As Double + Get + Return _row_CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("row_CurrencyRate", _row_CurrencyRate, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName + If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" And row_CurrencyName2.ShortName <> "HUF" Then + If row_CurrencyRate <> 0 Then row_AmountDEV2 = Math.Round(row_AmountHUF / row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName = "HUF" Then + row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + row_AmountDEV2 = row_AmountHUF + End If + If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And row_CurrencyName2.ShortName <> "HUF" Then + row_AmountHUF = row_AmountDEV * Math.Round(row_CurrencyRate, 2, MidpointRounding.AwayFromZero) + + End If + End If + End Set + End Property + _ + _ + _ + Property row_AmountDEV2 As Double + Get + Return _row_AmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName + If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" And _ + row_CurrencyName2.ShortName <> "HUF" And _ + LiquidAssets_Cassa.CurrencyName.ShortName <> row_CurrencyName2.ShortName Then + If row_AmountDEV <> 0 Then + row_CurrencyRate2 = Math.Round(row_AmountDEV2 / row_AmountDEV, 4, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + _ + _ + _ + Property row_CurrencyRate2 As Double + Get + Return _row_CurrencyRate2 + End Get + Set(value As Double) + SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value) + End Set + End Property + _ + _ + _ + Property row_CurrencyName2 As CurrencyName + Get + Return _row_CurrencyName2 + End Get + Set(value As CurrencyName) + SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value) + End Set + End Property + Property TotalInAmountHUF As Double + Get + Return _TotalInAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value) + End Set + End Property + Property TotalOutAmountHUF As Double + Get + Return _TotalOutAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value) + End Set + End Property + Property TotalInAmountDEV As Double + Get + Return _TotalInAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value) + End Set + End Property + Property TotalOutAmountDEV As Double + Get + Return _TotalOutAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value) + End Set + End Property + + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + _ + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property GLHeader_RateDiff As GLHeader + Get + Return _GLHeader_RateDiff + End Get + Set(value As GLHeader) + SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value) + End Set + End Property + _ + Property GLClosingTime As GLClosingTime + Get + Return _GLClosingTime + End Get + Set(value As GLClosingTime) + SetPropertyValue("GLClosingTime", _GLClosingTime, value) + End Set + End Property + Sub RecalculateTotal(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace, ByVal _WidthCommit As Boolean) + Dim _GLRows As GLRows + _GLCassa.TotalInAmountHUF = 0 + _GLCassa.TotalOutAmountHUF = 0 + _GLCassa.TotalInAmountDEV = 0 + _GLCassa.TotalOutAmountDEV = 0 + For Each _GLRows In _GLCassa.GLRows + _GLCassa.TotalInAmountHUF += _GLRows.InAmountHUF + _GLCassa.TotalOutAmountHUF += _GLRows.OutAmountHUF + _GLCassa.TotalInAmountDEV += _GLRows.InAmountDEV + _GLCassa.TotalOutAmountDEV += _GLRows.OutAmountDEV + Next + If _GLCassa.TotalInAmountDEV > 0 Or _GLCassa.TotalInAmountHUF > 0 Then + If _GLCassa.CurrencyName.ShortName = "HUF" Then + _GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalInAmountHUF) + Else + _GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalInAmountDEV) + End If + Else + If _GLCassa.CurrencyName.ShortName = "HUF" Then + _GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalOutAmountHUF) + Else + _GLCassa.HUNumberToText = GetHUNumberToText(_GLCassa.TotalOutAmountDEV) + End If + End If + If _WidthCommit = True Then _ocur.CommitChanges() + End Sub + Sub CreateRoundingRow(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace) + Dim _GLRows As GLRows + Dim _GLRows_New As GLRows + Dim _GLHeader As GLHeader = TryCast(_GLCassa, GLHeader) + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + + If _GLCassa IsNot Nothing Then + For Each _GLRows In _GLCassa.GLRows + If _GLRows.LiquidAssets.IsRounding = True Then + '-- Trlni kell a kerektsi sort ! ------------------------------------------------------------------------------------------------------- + + '------------------------------------------------------------------------------------------------------------------------------------------- + Dim _GUID As Guid = Guid.NewGuid + If _GLCassa.TotalInAmountHUF > 0 Then 'Befizets + _InAmountHUF = _GLCassa.TotalInAmountHUF Mod 5 + Select Case _InAmountHUF + Case 1, 2 'Lefele kerekts + _CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 1) + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.InAmountHUF = _InAmountHUF * -1 + _GLRows_New.CreditAmountHUF = _InAmountHUF + _GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _InAmountHUF, _ + _GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerektsi klnbzet", Nothing, Nothing, _ + Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalDebit, eCashType.eNormal, _ + ePartnerType.eNotSet) + _ocur.CommitChanges() + Case 3, 4 'flfele kerekts + _CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 2) + _DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.InAmountHUF = 5 - _InAmountHUF + _GLRows_New.DebitAmountHUF = 5 - _InAmountHUF + _GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, 5 - _InAmountHUF, _ + _GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerektsi klnbzet", Nothing, Nothing, _ + Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalDebit, eCashType.eNormal, _ + ePartnerType.eNotSet) + _ocur.CommitChanges() + End Select + Else 'Kifizets + _OutAmountHUF = _GLCassa.TotalOutAmountHUF Mod 5 + Select Case _OutAmountHUF + Case 1, 2 'Lefele kerekts + _CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 2) + _DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.OutAmountHUF = _OutAmountHUF * -1 + _GLRows_New.DebitAmountHUF = _OutAmountHUF + _GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _OutAmountHUF, _ + _GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerektsi klnbzet", Nothing, Nothing, _ + Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalCredit, eCashType.eNormal, _ + ePartnerType.eNotSet) + _ocur.CommitChanges() + Case 3, 4 'flfele kerekts + _CreditChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _DebitChartOfAccounts = _GLRows.LiquidAssets.GetChartOfAccounts(_GLCassa.DateExecution.Year, 1) + _GLRows_New = _ocur.CreateObject(Of GLRows)() + _GLRows_New.OutAmountHUF = (5 - _OutAmountHUF) + _GLRows_New.CreditAmountHUF = 5 - _OutAmountHUF + _GLRows_New.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, (5 - _OutAmountHUF), _ + _GLRows.LiquidAssets, Nothing, _GLCassa.DateExecution, Nothing, "Kerektsi klnbzet", Nothing, Nothing, _ + Nothing, Nothing, Nothing, "", eGLRowsTypeVAT.eRoundingRow, _GUID, eTransactionType.eNormalCredit, eCashType.eNormal, _ + ePartnerType.eNotSet) + _ocur.CommitChanges() + End Select + End If + End If + Exit For + Next + End If + End Sub + + Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, _ + CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountHUF += _GLRows.OutAmountHUF + Next + Next + Return _InAmountHUF - _OutAmountHUF + End Function + Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, _ + CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _OutAmountDEV += _GLRows.OutAmountDEV + Next + Next + Return _InAmountDEV - _OutAmountDEV + End Function + + Function CheckIsNegative(ByVal _ocur As Xpo.XPObjectSpace, ByVal _p_LiquidAssets As LiquidAssets, ByVal _p_GLCassa As GLCassa) As Date + Dim _TotalHUF As Double = 0 + Dim _TotalDEV As Double = 0 + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _IsNegative As Boolean = False + Dim _IsNegativeDate As Date = Nothing + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("(LiquidAssets_Cassa=? and IsStorno=False and DocumentNumber<>'') or Oid=?", _p_LiquidAssets, _p_GLCassa.Oid)) + + _GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + + _IsNegativeDate = #1/1/1980# + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _TotalHUF += _GLRows.InAmountHUF - _GLRows.OutAmountHUF + _TotalDEV += _GLRows.InAmountDEV - _GLRows.OutAmountDEV + Next + If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then + If _TotalHUF < 0 Then + _IsNegative = True + _IsNegativeDate = _GLCassa.DateExecution + Exit For + End If + Else + If _TotalDEV < 0 Then + _IsNegative = True + _IsNegativeDate = _GLCassa.DateExecution + Exit For + End If + End If + Next + + Return _IsNegativeDate + End Function + Function CheckIsNegativeifStorno(ByVal _ocur As Xpo.XPObjectSpace, ByVal _GLCassaifStorno As GLCassa) As Date + Dim _TotalHUF As Double = 0 + Dim _TotalDEV As Double = 0 + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _IsNegative As Boolean = False + Dim _IsNegativeDate As Date = Nothing + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, _ + CriteriaOperator.Parse("LiquidAssets_Cassa=? and IsStorno=False and Oid<>?", _GLCassaifStorno.LiquidAssets_Cassa, _GLCassaifStorno.Oid)) + + _GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + _IsNegativeDate = #1/1/1980# + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _TotalHUF += _GLRows.InAmountHUF - _GLRows.OutAmountHUF + _TotalDEV += _GLRows.InAmountDEV - _GLRows.OutAmountDEV + Next + If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then + If _TotalHUF < 0 Then + _IsNegative = True + _IsNegativeDate = _GLCassa.DateExecution + Exit For + End If + Else + If _TotalDEV < 0 Then + _IsNegative = True + _IsNegativeDate = _GLCassa.DateExecution + Exit For + End If + End If + Next + + Return _IsNegativeDate + End Function + Public Sub PrintCassaDocument(ByVal _GLCassa As GLCassa, ByVal _ocur As Xpo.XPObjectSpace, ByVal _Frame As Frame) + Dim _ReportData As ReportData + Dim _GLHeader As GLHeader + If _GLCassa IsNot Nothing Then + _GLHeader = TryCast(_GLCassa, GLHeader) + _ReportData = _GLCassa.LiquidAssets_Cassa.ReportData + If _ReportData IsNot Nothing Or _GLCassa Is Nothing Then + _Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLHeader=?", _GLHeader), True) + End If + End If + End Sub + + Function CheckIfPartnerCashFlowsInMonthGreaterThan1500000(ByVal _ocur As Xpo.XPObjectSpace, ByVal _p_GLCassa As GLCassa, _ + ByVal _p_Customers As Customers, ByVal _p_DateExecution As Date, _ + _p_CurrentInAmountHUF As Double, _p_CurrentOutAmountHUF As Double) As Boolean + Dim _Valid As Boolean = True + Dim _SumInAmountHUF As Double = _p_CurrentInAmountHUF + Dim _SumOutAmountHUF As Double = _p_CurrentOutAmountHUF + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("GetYear(GLHeader.DateExecution)=? and GetMonth(GLHeader.DateExecution)=? and GLHeader.IsEditable=False", _ + _p_GLCassa.DateExecution.Year, _p_GLCassa.DateExecution.Month)) + Dim _GLRows As GLRows + For Each _GLRows In _GLRows_Collection + If TryCast(_GLRows.GLHeader, GLCassa) Is _p_GLCassa Then + _SumInAmountHUF += _GLRows.InAmountHUF + _SumOutAmountHUF = _GLRows.OutAmountHUF + End If + + Next + + If _SumInAmountHUF >= 1500000 Or _SumOutAmountHUF > 1500000 Then + _Valid = False + End If + Return _Valid + + End Function + _ + ReadOnly Property Image1 As Image + Get + If Me.GLClosingTime IsNot Nothing Then + Return ImageLoader.Instance.GetImageInfo("lock_warning").Image + Else + If IsStorno Then + Return ImageLoader.Instance.GetImageInfo("document_delete").Image + Else + Return ImageLoader.Instance.GetImageInfo("edit").Image + End If + + End If + + End Get + End Property + '-- Overrides property + _ + Overrides Property row_AmountDEV As Double + Get + Return MyBase.row_AmountDEV + End Get + Set(value As Double) + MyBase.row_AmountDEV = value + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName + If Me.row_CurrencyRate > 0 Then + Me.row_AmountHUF = value * Me.row_CurrencyRate + End If + If LiquidAssets_Cassa.CurrencyName.ShortName <> "HUF" Then + If LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName Then + Else + row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + Overrides Property row_AmountHUF As Double + Get + Return MyBase.row_AmountHUF + End Get + Set(value As Double) + MyBase.row_AmountHUF = value + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Cassa.CurrencyName + If LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then + If LiquidAssets_Cassa.CurrencyName.ShortName = row_CurrencyName2.ShortName Then + Else + row_AmountDEV2 = row_AmountHUF * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + Overrides Property row_Controlling As Controlling + Get + Return MyBase.row_Controlling + End Get + Set(value As Controlling) + MyBase.row_Controlling = value + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value IsNot Nothing Then + row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False) + End If + End If + End Set + End Property + _ + Public Overrides Property row_Customer As Customers + Get + Return MyBase.row_Customer + End Get + Set(value As Customers) + MyBase.row_Customer = value + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb new file mode 100644 index 0000000..4f75356 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.Designer.vb @@ -0,0 +1,215 @@ +Partial Class GLCassaVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMakeEditable_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintCassaDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRecalculateSelectedGLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCassaDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateGLCassRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportPCIGroupCassa = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFinal_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorno_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalAndNew_GLCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGetCurrencyRateCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCassaGenerateDocumentNumber = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aMakeEditable_GLCassa + ' + Me.aMakeEditable_GLCassa.Caption = "aMakeEditable_GLCassa" + Me.aMakeEditable_GLCassa.Category = "ObjectsCreation" + Me.aMakeEditable_GLCassa.ConfirmationMessage = Nothing + Me.aMakeEditable_GLCassa.Id = "aMakeEditable_GLCassa" + Me.aMakeEditable_GLCassa.ImageName = "edit" + Me.aMakeEditable_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditable_GLCassa.TargetObjectsCriteria = "IsEditable=False and IsStorno=False and isnull(GLClosingTime)=True" + Me.aMakeEditable_GLCassa.ToolTip = Nothing + ' + 'aPrintCassaDocument + ' + Me.aPrintCassaDocument.Caption = "Print document" + Me.aPrintCassaDocument.Category = "View" + Me.aPrintCassaDocument.ConfirmationMessage = Nothing + Me.aPrintCassaDocument.Id = "aPrintCassaDocument" + Me.aPrintCassaDocument.ToolTip = Nothing + ' + 'aRecalculateSelectedGLCassa + ' + Me.aRecalculateSelectedGLCassa.Caption = "aRecalculate Selected GLCassa" + Me.aRecalculateSelectedGLCassa.Category = "ObjectsCreation" + Me.aRecalculateSelectedGLCassa.ConfirmationMessage = Nothing + Me.aRecalculateSelectedGLCassa.Id = "aRecalculateSelectedGLCassa" + Me.aRecalculateSelectedGLCassa.TargetObjectsCriteria = "isnull(GLClosingTime)=True" + Me.aRecalculateSelectedGLCassa.ToolTip = Nothing + ' + 'aToTable_GLCassa + ' + Me.aToTable_GLCassa.Caption = "Add row" + Me.aToTable_GLCassa.Category = "aToTable_GLCassa" + Me.aToTable_GLCassa.ConfirmationMessage = Nothing + Me.aToTable_GLCassa.Id = "aToTable_GLCassa" + Me.aToTable_GLCassa.TargetViewId = "GLCassa_DetailView" + Me.aToTable_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_GLCassa.ToolTip = Nothing + Me.aToTable_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aBackToRowEdit_GLCassa + ' + Me.aBackToRowEdit_GLCassa.Caption = "Edit row" + Me.aBackToRowEdit_GLCassa.Category = "aBackToRowEdit_GLCassa" + Me.aBackToRowEdit_GLCassa.ConfirmationMessage = Nothing + Me.aBackToRowEdit_GLCassa.Id = "aBackToRowEdit_GLCassa" + Me.aBackToRowEdit_GLCassa.TargetViewId = "GLCassa_DetailView" + Me.aBackToRowEdit_GLCassa.ToolTip = Nothing + ' + 'aToTableD_GLCassa + ' + Me.aToTableD_GLCassa.Caption = "Delete row" + Me.aToTableD_GLCassa.Category = "aToTableD_GLCassa" + Me.aToTableD_GLCassa.ConfirmationMessage = Nothing + Me.aToTableD_GLCassa.Id = "aToTableD_GLCassa" + Me.aToTableD_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_GLCassa.TargetViewId = "GLCassa_DetailView" + Me.aToTableD_GLCassa.ToolTip = Nothing + ' + 'aGLCassaDivideRows + ' + Me.aGLCassaDivideRows.AcceptButtonCaption = Nothing + Me.aGLCassaDivideRows.CancelButtonCaption = Nothing + Me.aGLCassaDivideRows.Caption = "Divide rows" + Me.aGLCassaDivideRows.ConfirmationMessage = Nothing + Me.aGLCassaDivideRows.Id = "aGLCassaDivideRows" + Me.aGLCassaDivideRows.ImageName = "row_add_after" + Me.aGLCassaDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCassaDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Cassa" + Me.aGLCassaDivideRows.ToolTip = Nothing + ' + 'aGenerateGLCassRateDiff + ' + Me.aGenerateGLCassRateDiff.Caption = "Generate rate diff" + Me.aGenerateGLCassRateDiff.Category = "ObjectsCreation" + Me.aGenerateGLCassRateDiff.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateGLCassRateDiff.Id = "aGenerateGLCassaRateDiff" + Me.aGenerateGLCassRateDiff.ImageName = "money" + Me.aGenerateGLCassRateDiff.TargetViewId = "GLCassa_ListView" + Me.aGenerateGLCassRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateGLCassRateDiff.ToolTip = Nothing + Me.aGenerateGLCassRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aImportPCIGroupCassa + ' + Me.aImportPCIGroupCassa.AcceptButtonCaption = Nothing + Me.aImportPCIGroupCassa.CancelButtonCaption = Nothing + Me.aImportPCIGroupCassa.Caption = "Get exported " + Me.aImportPCIGroupCassa.Category = "aImportPCIGroupCassa" + Me.aImportPCIGroupCassa.ConfirmationMessage = Nothing + Me.aImportPCIGroupCassa.Id = "aImportPCIGroupCassa" + Me.aImportPCIGroupCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aImportPCIGroupCassa.TargetViewId = "GLCassa_DetailView" + Me.aImportPCIGroupCassa.ToolTip = Nothing + ' + 'aFinal_GLCassa + ' + Me.aFinal_GLCassa.Caption = "aFinal_GLCassa" + Me.aFinal_GLCassa.Category = "ObjectsCreation" + Me.aFinal_GLCassa.ConfirmationMessage = Nothing + Me.aFinal_GLCassa.Id = "aFinal_GLCassa" + Me.aFinal_GLCassa.ImageName = "MenuBar_SaveAndClose" + Me.aFinal_GLCassa.TargetObjectsCriteria = "isnull(GLClosingTime)=True" + Me.aFinal_GLCassa.TargetObjectType = GetType(SISBusiness.[Module].GLCassa) + Me.aFinal_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinal_GLCassa.ToolTip = Nothing + Me.aFinal_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aStorno_GLCassa + ' + Me.aStorno_GLCassa.Caption = "aStorno_GLCassa" + Me.aStorno_GLCassa.Category = "ObjectsCreation" + Me.aStorno_GLCassa.ConfirmationMessage = "Do you want to execute command ?" + Me.aStorno_GLCassa.Id = "aStorno_GLCassa" + Me.aStorno_GLCassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorno_GLCassa.TargetObjectsCriteria = "IsStorno=False and IsEditable=False and isnull(GLClosingTime)=True" + Me.aStorno_GLCassa.TargetObjectType = GetType(SISBusiness.[Module].GLCassa) + Me.aStorno_GLCassa.TargetViewId = "" + Me.aStorno_GLCassa.ToolTip = Nothing + Me.aStorno_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFinalAndNew_GLCassa + ' + Me.aFinalAndNew_GLCassa.Caption = "aFinalAndNew_GLCassa" + Me.aFinalAndNew_GLCassa.Category = "ObjectsCreation" + Me.aFinalAndNew_GLCassa.ConfirmationMessage = Nothing + Me.aFinalAndNew_GLCassa.Id = "aFinalAndNew_GLCassa" + Me.aFinalAndNew_GLCassa.ImageName = "MenuBar_SaveAndNew" + Me.aFinalAndNew_GLCassa.TargetObjectType = GetType(SISBusiness.[Module].GLCassa) + Me.aFinalAndNew_GLCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalAndNew_GLCassa.ToolTip = Nothing + Me.aFinalAndNew_GLCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGetCurrencyRateCassa + ' + Me.aGetCurrencyRateCassa.Caption = "aGet Currency Rate Cassa" + Me.aGetCurrencyRateCassa.Category = "aGetCurrencyRateCassa" + Me.aGetCurrencyRateCassa.ConfirmationMessage = Nothing + Me.aGetCurrencyRateCassa.Id = "aGetCurrencyRateCassa" + Me.aGetCurrencyRateCassa.TargetObjectType = GetType(SISBusiness.[Module].GLCassa) + Me.aGetCurrencyRateCassa.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGetCurrencyRateCassa.ToolTip = Nothing + Me.aGetCurrencyRateCassa.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGLCassaGenerateDocumentNumber + ' + Me.aGLCassaGenerateDocumentNumber.Caption = "aGLCassa Generate Document Number" + Me.aGLCassaGenerateDocumentNumber.ConfirmationMessage = Nothing + Me.aGLCassaGenerateDocumentNumber.Id = "aGLCassaGenerateDocumentNumber" + Me.aGLCassaGenerateDocumentNumber.TargetObjectsCriteria = "" + Me.aGLCassaGenerateDocumentNumber.TargetObjectType = GetType(SISBusiness.[Module].GLCassa) + Me.aGLCassaGenerateDocumentNumber.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGLCassaGenerateDocumentNumber.ToolTip = Nothing + Me.aGLCassaGenerateDocumentNumber.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aToTable_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinal_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalAndNew_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditable_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintCassaDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecalculateSelectedGLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_GLCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCassaDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateGLCassRateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportPCIGroupCassa As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGetCurrencyRateCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCassaGenerateDocumentNumber As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.resx new file mode 100644 index 0000000..15fb510 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 251 + + + 1188, 212 + + + 978, 212 + + + 827, 212 + + + 636, 212 + + + 17, 173 + + + 470, 212 + + + 280, 212 + + + 17, 56 + + + 17, 212 + + + 17, 134 + + + 17, 95 + + + 476, 56 + + + 427, 115 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb new file mode 100644 index 0000000..2dc8ad4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb @@ -0,0 +1,1022 @@ +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.Data.Filtering +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.Model + +Public Class GLCassaVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aRecalculateSelectedGLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False) + If View.Id = "GLCassa_ListView" Then '-- Lista nézete ----------------------------------------------------------------------------------- + Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + End If '--------------------------------------------------------------------------------------------------------------------------------- + + If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete ----------------------------------------------------------------------------------- + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCassa_DeleteAction_Executed + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "DocumentNumber=''" + End If + + If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + + 'Dim nv As ListView = CType(View, ListView) + 'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + 'AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + End If + + If View.Id = "GLCassa_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa) + If _GLCassa Is Nothing Then + Else + If _GLCassa.IsEditable = False Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Else + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False) + If _GLCassa.DocumentNumber IsNot Nothing Then + If _GLCassa.DocumentNumber <> "" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + End If + If _GLCassa.IsStorno = True Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False) + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLCassa_ListView" Then '-- Lista nézete ----------------------------------------------------------------------------------- + Frame.GetController(Of GLCassaVC).aPrintCassaDocument.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aRecalculateSelectedGLCassa.Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If '--------------------------------------------------------------------------------------------------------------------------------- + + If View.Id = "GLCassa_ListView_Editable" Then '-- Lista nézete ----------------------------------------------------------------------------------- + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + + End If + + If View.Id Like "GLHeader_GLRows_ListView_Cassa" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + + 'Dim nv As ListView = CType(View, ListView) + 'Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + 'AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + End If + + If View.Id = "GLCassa_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Dim _GLCassa As GLCassa = TryCast(View.CurrentObject, GLCassa) + If _GLCassa Is Nothing Then + Else + If _GLCassa.IsEditable = False Then + Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aFinal_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aFinalAndNew_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aBackToRowEdit_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aToTableD_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Else + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True) + If _GLCassa.DocumentNumber IsNot Nothing Then + If _GLCassa.DocumentNumber <> "" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End If + End If + If _GLCassa.IsStorno = True Then + Frame.GetController(Of GLCassaVC).aMakeEditable_GLCassa.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLCassaVC).aStorno_GLCassa.Active.SetItemValue("", True) + End If + End If + End If + End Sub + + Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader) + Dim _GLRows As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _GLRowsTypeVAT As eGLRowsTypeVAT + Dim _GLRowsGUID As Guid = Guid.NewGuid() + Dim _AmountBruttoHUF As Double = 0 + Dim _AmountNettoHUF As Double = 0 + Dim _AmountVATHUF As Double = 0 + Dim _AmountBruttoDEV As Double = 0 + Dim _AmountNettoDEV As Double = 0 + Dim _AmountVATDEV As Double = 0 + Dim _CashType As eCashType + Dim _TransactionType As eTransactionType + Dim _PartnerType As ePartnerType + + + If _GLCassa.row_PartnerType <> ePartnerType.eNotSet Then + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + If _GLCassa.CheckIfPartnerCashFlowsInMonthGreaterThan1500000(_ocur, _GLCassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _GLCassa.row_AmountHUF, 0) = False Then + If MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "PartnerCashFlowsInMonthGreaterThan1500000")), _ + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "") <> MsgBoxResult.Yes Then Exit Sub + End If + Else + If _GLCassa.CheckIfPartnerCashFlowsInMonthGreaterThan1500000(_ocur, _GLCassa, _GLCassa.row_Customer, _GLCassa.DateExecution, 0, _GLCassa.row_AmountHUF) = False Then + If MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "PartnerCashFlowsInMonthGreaterThan1500000")), _ + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, "") <> MsgBoxResult.Yes Then Exit Sub + End If + End If + End If + + _GLRows = _ocur.CreateObject(Of GLRows)() + + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _GLRows.InAmountHUF = _GLCassa.row_AmountHUF + _GLRows.InAmountDEV = _GLCassa.row_AmountDEV + _GLRows.InAmountDEV2 = _GLCassa.row_AmountDEV2 + _GLRows.CurrencyRate2 = _GLCassa.row_CurrencyRate2 + _DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerCredit + _GLRows.CreditAmountHUF = _GLCassa.row_AmountHUF + _GLRows.CreditAmountDEV = _GLCassa.row_AmountDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + If _GLCassa.row_CashType = 0 Then 'Partner + If _GLCassa.row_ConnectInfo <> "" Then + If _GLCassa.row_PartnerType = 0 Then + _PartnerType = _GLCassa.row_PartnerType + _CreditChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + Else + _PartnerType = _GLCassa.row_PartnerType + _CreditChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + End If + Else + _CreditChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + End If + Else + _TransactionType = eTransactionType.eNormalCredit + _PartnerType = ePartnerType.eNotSet + _CreditChartOfAccounts = _GLCassa.row_ChartOfAccounts + End If + Else + _GLRows.OutAmountHUF = _GLCassa.row_AmountHUF + _GLRows.OutAmountDEV = _GLCassa.row_AmountDEV + _GLRows.OutAmountDEV2 = _GLCassa.row_AmountDEV2 + _GLRows.CurrencyRate2 = _GLCassa.row_CurrencyRate2 + _DebitChartOfAccounts = Nothing + _CreditChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerDebit + _GLRows.CreditAmountHUF = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.DebitAmountHUF = _GLCassa.row_AmountHUF + _GLRows.DebitAmountDEV = _GLCassa.row_AmountDEV + If _GLCassa.row_CashType = 0 Then 'Partner + If _GLCassa.row_ConnectInfo <> "" Then + If _GLCassa.row_PartnerType = 0 Then + _PartnerType = _GLCassa.row_PartnerType + _DebitChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + Else + _PartnerType = _GLCassa.row_PartnerType + _DebitChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + End If + Else + _DebitChartOfAccounts = _GLCassa.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + End If + Else + _TransactionType = eTransactionType.eNormalDebit + _PartnerType = ePartnerType.eNotSet + _DebitChartOfAccounts = _GLCassa.row_ChartOfAccounts + End If + End If + + _GLRowsGUID = Guid.NewGuid + + If _GLCassa.row_CashType = eCashType.ePartner Then + _CashType = eCashType.ePartner + _GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _GLCassa.row_AmountDEV, _ + _GLHeader.row_AmountHUF, _GLCassa.LiquidAssets_Cassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _ + Nothing, _GLHeader.row_NoteRows, Nothing, Nothing, _ + Nothing, Nothing, Nothing, _GLCassa.row_ConnectInfo, Nothing, _ + _GLRowsGUID, _TransactionType, _CashType, _ + _GLCassa.row_PartnerType) + ElseIf _GLCassa.row_CashType = eCashType.eNormal Or _GLCassa.row_CashType = eCashType.eCorrectionHUF Then + _CashType = eCashType.eNormal + If _GLCassa.row_VAT Is Nothing Then '--Nincs ÁFA sor + _GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _GLCassa.row_AmountDEV, _ + _GLHeader.row_AmountHUF, _GLCassa.LiquidAssets_Cassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _ + _GLHeader.row_VAT, _GLHeader.row_NoteRows, _GLCassa.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLCassa.row_CostHolder, _ + _GLCassa.row_ConnectInfo, _GLRowsTypeVAT, _GLRowsGUID, _TransactionType, _CashType, _PartnerType) + Else + If _GLCassa.row_VAT.KeyValue = 0 Then '-- Nincs ÁFA sor + _GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _GLCassa.row_AmountDEV, _ + _GLHeader.row_AmountHUF, _GLCassa.LiquidAssets_Cassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _ + _GLHeader.row_VAT, _GLHeader.row_NoteRows, _GLCassa.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLCassa.row_CostHolder, _ + _GLCassa.row_ConnectInfo, _GLRowsTypeVAT, _GLRowsGUID, _TransactionType, _CashType, _PartnerType) + Else '-- Van ÁFA sor !!! + '--1. Először a nettó sort kell megadni ----------------------------------------------------------------------- + + _AmountBruttoDEV = _GLCassa.row_AmountDEV + _AmountBruttoHUF = _GLCassa.row_AmountHUF + + _AmountVATHUF = Math.Round((_AmountBruttoHUF / (_GLCassa.row_VAT.KeyValuePercent + 100)) * _GLCassa.row_VAT.KeyValuePercent, 0, MidpointRounding.AwayFromZero) + _AmountVATDEV = Math.Round((_AmountBruttoDEV / (_GLCassa.row_VAT.KeyValuePercent + 100)) * _GLCassa.row_VAT.KeyValuePercent, 0, MidpointRounding.AwayFromZero) + + _AmountNettoDEV = _AmountBruttoDEV - _AmountVATDEV + _AmountNettoHUF = _AmountBruttoHUF - _AmountVATHUF + + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _GLRows.InAmountHUF = _AmountNettoHUF + _GLRows.InAmountDEV = _AmountNettoDEV + + Else + _GLRows.OutAmountHUF = _AmountNettoHUF + _GLRows.OutAmountDEV = _AmountNettoDEV + End If + + _GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _AmountNettoDEV, _ + _AmountNettoHUF, _GLCassa.LiquidAssets_Cassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _ + _GLHeader.row_VAT, _GLHeader.row_NoteRows, _GLCassa.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLCassa.row_CostHolder, _ + _GLCassa.row_ConnectInfo, _GLRowsTypeVAT, _GLRowsGUID, _TransactionType, _CashType, _PartnerType) + '--2. Most az ÁFA sort ---------------------------------------------------------------------------------------- + '-- Kell egy új sor ! + _GLRows = _ocur.CreateObject(Of GLRows)() + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _GLRows.InAmountHUF = _AmountVATHUF + _GLRows.InAmountDEV = _AmountVATDEV + Else + _GLRows.OutAmountHUF = _AmountVATHUF + _GLRows.OutAmountDEV = _AmountVATDEV + End If + _GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow + If _GLCassa.row_VAT IsNot Nothing Then + + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _CreditChartOfAccounts = _GLCassa.row_VAT.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + _DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + Else + _CreditChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _DebitChartOfAccounts = _GLCassa.row_VAT.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + End If + End If + If _GLCassa.row_VAT.InversState = True Then + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + Else + _CreditChartOfAccounts = _GLCassa.row_VAT.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + _DebitChartOfAccounts = _GLCassa.row_VAT.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eIn) + End If + End If + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _AmountVATDEV, _ + _AmountVATHUF, _GLCassa.LiquidAssets_Cassa, _GLCassa.row_Customer, _GLCassa.DateExecution, _ + _GLHeader.row_VAT, _GLHeader.row_NoteRows, _GLCassa.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLCassa.row_CostHolder, _ + _GLCassa.row_ConnectInfo, _GLRowsTypeVAT, _GLRowsGUID, _TransactionType, _CashType, _PartnerType) + End If + End If + End If + + _ocur.CommitChanges() + + '-- Pontozás ellenőrzése GUID alapján ! ---------------------------------------------------------------------------------------------------------------------------------------- + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRowsGUID)) + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + For Each _GLRows In _GLRows_Collection + GLFunctions.ReconfigurePCI(_uow_pci, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + '_GLCassa.row_NoteRows = "" + _GLCassa.row_AmountDEV = 0 + _GLCassa.row_AmountHUF = 0 + _GLCassa.row_PCIGroup = Nothing + _GLCassa.row_Customer = Nothing + _GLCassa.row_ConnectInfo = "" + '_GLCassa.row_ChartOfAccounts = Nothing + _GLCassa.row_AmountDEV2 = 0 + _GLCassa.row_CurrencyRate2 = 0 + + '// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!---------------------------------------------------------------- + + Dim _Action As IModelAction + Dim _IModelActionExtender As IModelActionExtender + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Id = e.Action.Id Then + _IModelActionExtender = TryCast(_Action, IModelActionExtender) + If _IModelActionExtender IsNot Nothing Then + If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem) + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End If + End If + Exit For + End If + Next + '-------------------------------------------------------------------------------------------------------- + + View.Refresh() + End Sub + Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLCassa.Execute + GLCassa_Final(e) + View.Close(False) + End Sub + Private Sub aStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_GLCassa.Execute + '-- Pénztári bizonylat stornírozása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _GLRows As GLRows + If _GLCassa IsNot Nothing Then + + For Each _GLRows In _GLCassa.GLRows + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + _GLRows.LiquidAssets = _GLCassa.LiquidAssets_Cassa + Next + + + If _GLCassa.IsStorno = False And _GLCassa.IsEditable = False Then + Dim _IsNegativeDate As Date = _GLCassa.CheckIsNegativeifStorno(_ocur, _GLCassa) + + If _IsNegativeDate > #1/1/1980# Then + _ocur.Rollback() + Throw New Exception("*Ezzel a tranzakcióval a pénztár mínuszba menne a következő napon: " & Format(_IsNegativeDate, "yyyy.MM.dd")) + Exit Sub + End If + _GLCassa.IsStorno = True + _GLCassa.TotalInAmountDEV = 0 + _GLCassa.TotalInAmountHUF = 0 + _GLCassa.TotalOutAmountDEV = 0 + _GLCassa.TotalOutAmountHUF = 0 + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLHeader.Oid=?", _GLCassa.Oid)) + _ocur.Delete(_GLRows_Collection) + _ocur.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End If + End Sub + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _GLCassa As GLCassa = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLCassa) + If _GLCassa.IsEditable = False Then + Frame.GetController(Of GLCassaVC).aToTable_GLCassa.Active.SetItemValue("", False) + End If + + End Sub + Private Sub aMakeEditable_GLCassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLCassa_IsEditable As GLCassa + If _GLCassa IsNot Nothing Then + _GLCassa_IsEditable = _ocur.FindObject(Of GLCassa)(CriteriaOperator.Parse("IsEditable=True and DocumentNumber<>'' and LiquidAssets_Cassa=?", _GLCassa.LiquidAssets_Cassa), True) + If _GLCassa_IsEditable IsNot Nothing Then + Throw New Exception("*Nem lehet szerkesztésre beállítani, mert van már szerkeszthetésre vissza állított, korábban véglegesített bizonylat. Előbb ezt kell véglegesíteni !") + End If + + _GLCassa.IsEditable = True + _ocur.CommitChanges() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCassa_DetailView", True, _onew.GetObject(_GLCassa)) + End If + End Sub + Private Sub aFinalAndNew_GLCassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLCassa.Execute + GLCassa_Final(e) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLCassa_Finalized = _onew.GetObject(TryCast(e.SelectedObjects(0), GLCassa)) + Dim _GLCassa As GLCassa = _onew.CreateObject(Of GLCassa)() + + _GLCassa.CustomersFrom = _GLCassa_Finalized.CustomersFrom + _GLCassa.LiquidAssets_Cassa = _GLCassa_Finalized.LiquidAssets_Cassa + _GLCassa.CashHandler = _GLCassa_Finalized.CashHandler + _GLCassa.DateExecution = _GLCassa_Finalized.DateExecution + _GLCassa.DateCreated = _GLCassa_Finalized.DateExecution + _GLCassa.DatePayment = _GLCassa_Finalized.DateExecution + + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLCassa) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + + + End Sub +#Region "SIS" + Private Sub GLCassa_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + If View.SelectedObjects.Count > 0 Then + Dim _GLCassa As GLCassa = TryCast(e.SelectedObjects(0), GLCassa) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _A As AuditedObjectWeakReference + Dim AuditTrail As XPCollection(Of AuditDataItemPersistent) + Dim _GLRows As GLRows + AuditTrail = AuditedObjectWeakReference.GetAuditTrail(_ocur.Session, _GLCassa) + + + + If _GLCassa Is Nothing Then Exit Sub + If _GLCassa.GLRows.Count <= 0 Then + 'Throw New Exception("*Nincs rögzített sor !") + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "NoGLRows"))) + End If + If _GLCassa.DocumentNumber Is Nothing Then _GLCassa.DocumentNumber = "" + If _GLCassa.LiquidAssets_Cassa.NoTimeCheck <> True Then + If _GLCassa.DocumentNumber = "" Then + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("LiquidAssets_Cassa=? and CashMoveType=? and DateExecution > ? and IsEditable=False and GetYear(DateExecution)=?", _ + _GLCassa.LiquidAssets_Cassa, _GLCassa.CashMoveType, DateAdd(DateInterval.Minute, 1439, _GLCassa.DateExecution.Date), _GLCassa.DateExecution.Date.Year)) + If _GLCassa_Collection.Count > 0 Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "DateIsOlderThanLastDate"))) + End If + + If _GLCassa.DateExecution.Date > GetSQLTime(_ocur.Session).Date Then + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "DateIsNewerThanNow"))) + End If + End If + + '--Ellenőrzés, hogy nem megy e mínuszba ! + Dim _IsNegativeDate As Date = _GLCassa.CheckIsNegative(_ocur, _GLCassa.LiquidAssets_Cassa, _GLCassa) + + + If _IsNegativeDate > #1/1/1980# Then + Throw New Exception("*Nem mehet a pénztár mínuszba ! Dátum : " & Format(_IsNegativeDate, "yyyy.MM.dd")) + Throw New Exception(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\GLCassa", "CassaAmountGoToNegative"), _IsNegativeDate)) + End If + End If + + If _GLCassa.DocumentNumber = "" And _GLCassa.LiquidAssets_Cassa.NoDocumentNumber <> True Then + Dim _YearString As String = _GLCassa.DateExecution.Year.ToString + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _GLCassa.DocumentNumber = _GLCassa.LiquidAssets_Cassa.NumberGeneratorIn.GetNewNumber(_GLCassa.LiquidAssets_Cassa.NumberGeneratorIn, _YearString) + Else + _GLCassa.DocumentNumber = _GLCassa.LiquidAssets_Cassa.NumberGeneratorOut.GetNewNumber(_GLCassa.LiquidAssets_Cassa.NumberGeneratorOut, _YearString) + End If + End If + _GLCassa.IsEditable = False + For Each _GLRows In _GLCassa.GLRows + _GLRows.DateVAT = _GLCassa.DateExecution + Next + _ocur.CommitChanges() + + '// Az összes sorra vonatkozó pontozás újragenerálása, mert változhat a dátum ! + For Each _GLRows In _GLCassa.GLRows + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + + If _GLCassa.CurrencyName.ShortName <> "HUF" Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GenerateCurrencyRateAverageStart(_uow, _GLCassa.DateExecution.Year, _GLCassa) + End If + + '-- Bizonylat nyomtatása -------------------------------------------------------------------------------------- + _GLCassa.RecalculateTotal(_GLCassa, _ocur, True) + _GLCassa.CreateRoundingRow(_GLCassa, _ocur) + _GLCassa.RecalculateTotal(_GLCassa, _ocur, True) + If _GLCassa.LiquidAssets_Cassa.NoPrint = False Then + _GLCassa.PrintCassaDocument(_GLCassa, _ocur, Frame) + End If + '-------------------------------------------------------------------------------------------------------------- + Else + '--- !!!!TESZT MIATT!!!! ------------------------------- + Throw New Exception("*A kifizetni kívánt összeg meghaladja a kasszában lévőt!!") + End If + End Sub +#End Region + Private Sub aPrintCassaDocument_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCassaDocument.Execute + Dim _GLCassa As GLCassa + Try + If e.SelectedObjects.Count > 0 Then + _GLCassa = TryCast(e.SelectedObjects.Item(0), GLCassa) + _GLCassa.PrintCassaDocument(_GLCassa, TryCast(View.ObjectSpace, Xpo.XPObjectSpace), Frame) + End If + Catch + + End Try + End Sub + Private Sub aRecalculateSelectedGLCassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateSelectedGLCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLCassa As GLCassa + For Each _GLCassa In e.SelectedObjects + _GLCassa.RecalculateTotal(_GLCassa, _ocur, True) + Next + End Sub + Private Sub aBackToRowEdit_GLCassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLCassa.Execute + 'Visszatölti a sort editáláshoz + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim _PCIGroup As PCIGroup + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows IsNot Nothing Then + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + _GLCassa.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCassa.CurrencyName.ShortName)) + If _GLRows.CashType = eCashType.eNormal Then + _GLCassa.row_CashType = eCashType.eNormal + If _GLRows.InAmountHUF > 0 Then + _GLCassa.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts + Else + _GLCassa.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts + End If + Else + _GLCassa.row_CashType = eCashType.ePartner + _PCIGroup = _ocur.FindObject(Of PCIGroup) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=?", _ + _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _ + _GLRows.PartnerType, _GLRows.ConnectInfo), True) + _GLCassa.row_PCIGroup = _PCIGroup + If _PCIGroup.CurrencyName_Account IsNot Nothing Then + _GLCassa.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName_Account.ShortName)) + If _GLCassa.row_CurrencyName2 Is Nothing Then + _GLCassa.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCassa.CurrencyName.ShortName)) + End If + End If + End If + _GLCassa.row_Customer = _GLRows.Customer + _GLCassa.row_ConnectInfo = _GLRows.ConnectInfo + If _GLRows.PartnerType = ePartnerType.eReceivables Then 'Vevő + ElseIf _GLRows.PartnerType = ePartnerType.ePayabels Then 'Szállító + ElseIf _GLRows.PartnerType = ePartnerType.eNotSet Then 'Normál + + End If + + _GLCassa.row_VAT = _GLRows.VAT + If _GLRows.VAT IsNot Nothing Then + If _GLRows.VAT.KeyValue > 0 Then + + End If + End If + _GLCassa.row_Controlling = _GLRows.Controlling + _GLCassa.row_CostHolder = _GLRows.CostHolder + _GLCassa.row_CostPlace = _GLRows.CostPlace + _GLCassa.row_JobNumberObjects = _GLRows.JobNumberObjects + _GLCassa.row_UniqueObjects = _GLRows.UniqueObjects + _GLCassa.row_NoteRows = _GLRows.NoteRows + + Dim _GLRows_GUID_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRows.GLRowsGUID)) + Dim _AmountDEV As Double = 0 + Dim _AmountHUF As Double = 0 + For Each _GLRows In _GLRows_GUID_Collection + _AmountDEV += _GLRows.AmountDEV + _AmountHUF += _GLRows.AmountHUF + selection.Add(_GLRows) + Next + _GLCassa.row_AmountDEV = _AmountDEV + _GLCassa.row_AmountHUF = _AmountHUF + + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLCassa.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + + View.Refresh() + End If + End Sub + Private Sub aToTableD_GLCassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLCassa.Execute + 'Törli a táblázatban lévő sort + Dim _GUID As Guid + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim i As Long + + Dim _CustomersFrom As CustomersFrom = Nothing + Dim _Customers As Customers = Nothing + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String = "" + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + If _GLRows IsNot Nothing Then + _GUID = _GLRows.GLRowsGUID + selection.Clear() + For Each _GLRows In _GLCassa.GLRows + If _GLRows.GLRowsGUID = _GUID Then + selection.Add(_GLRows) + End If + Next + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLCassa.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + View.Refresh() + End If + End Sub + + Private Sub aGLCassaDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCassaDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + End If + + End Sub + + Private Sub aGLCassaDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCassaDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + End If + End Sub + + Private Sub aGenerateGLCassRateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLCassRateDiff.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa As GLCassa = TryCast(e.SelectedObjects(0), GLCassa) + + For Each _GLCass In e.SelectedObjects + If Not _GLCassa.CurrencyName.ShortName = "HUF" Then + _GLCassa.Reconfigure_RateDiff(_ocur, _GLCassa) + End If + Next + _ocur.CommitChanges() + View.Refresh() + End Sub + + Private Sub GLCassa_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _GLRows_Collection As XPCollection(Of GLRows) + + For Each _GLCassa In TryCast(e, SimpleActionExecuteEventArgs).SelectedObjects + + _GLRows_Collection = New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("PartnerType<>'eNotSet' and GLHeader.Oid=?", _GLCassa.Oid), True) + For Each _GLRows In _GLRows_Collection + GLFunctions.ReconfigurePCI(_uow, _GLCassa.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + End Sub + + Private Sub aImportPCIGroupCassa_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportPCIGroupCassa.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup)) + + + Dim _P As PCIGroup = Nothing + If _GLCassa IsNot Nothing Then + + _CollectionSource.Criteria.Clear() + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("CurrencyName_Account.ShortName=?", _GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLCassa.row_PartnerType) + _CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLCassa.CustomersFrom.Oid) + If _GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName = "HUF" Then + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceHUF>0") + Else + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceDEV>0") + End If + + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True) + + End If + End Sub + + Private Sub aImportPCIGroupCassa_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportPCIGroupCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup + Dim _PCIGroup_P As PCIGroup + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _GLHeader As GLHeader = TryCast(_GLCassa, GLHeader) + Dim _GLRows As GLRows + Dim _GUID As Guid + Dim _CashType As eCashType + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _TransactionType As eTransactionType + If _GLCassa Is Nothing Then Exit Sub + + For Each _PCIGroup_P In e.PopupWindow.View.SelectedObjects + _PCIGroup = _ocur.GetObject(_PCIGroup_P) + _GLRows = _ocur.CreateObject(Of GLRows)() + _GUID = Guid.NewGuid() + _CashType = eCashType.ePartner + If _PCIGroup.PartnerType = ePartnerType.eReceivables Then + _DebitChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLCassa.DateExecution.Year, eVATMode.eOut) + _TransactionType = eTransactionType.ePartnerCredit + Else + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn) + _CreditChartOfAccounts = _GLCassa.LiquidAssets_Cassa.GetChartOfAccounts(_GLCassa.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerDebit + End If + + Select Case _PCIGroup.PartnerType + Case ePartnerType.eReceivables + + _GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF + _GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + _GLRows.InAmountHUF = _PCIGroup.BallanceHUF + _GLRows.InAmountDEV = _PCIGroup.BallanceDEV + + Case ePartnerType.ePayabels + _GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF + _GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV + _GLRows.CreditAmountDEV = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.OutAmountHUF = _PCIGroup.BallanceHUF + _GLRows.OutAmountDEV = _PCIGroup.BallanceDEV + + End Select + _GLRows.PartnerType = _PCIGroup.PartnerType + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _ + _PCIGroup.BallanceDEV, _PCIGroup.BallanceHUF, _GLCassa.LiquidAssets_Cassa, _ + _PCIGroup.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _PCIGroup.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + _TransactionType, _CashType, _PCIGroup.PartnerType) + + _GLCassa.GetBallanceDEV(_GLCassa.row_LiquidAssets, _GLCassa.DateExecution) + _GLCassa.GetBallanceHUF(_GLCassa.row_LiquidAssets, _GLCassa.DateExecution) + + _ocur.CommitChanges() + + '--- Pontozás ellenőrzése !!!! ---------------------------------------------------------------------------------------------------------------- + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _GLCassa.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + + Next + End Sub + + Private Sub aGetCurrencyRateCassa_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetCurrencyRateCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa As GLCassa = TryCast(View.SelectedObjects(0), GLCassa) + Dim _TransactionType As eTransactionType + If _GLCassa IsNot Nothing Then + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _TransactionType = eTransactionType.eNormalCredit + ElseIf _GLCassa.CashMoveType = eCashMoveType.eOut Then + _TransactionType = eTransactionType.eNormalDebit + Else + _TransactionType = eTransactionType.eNotSet + End If + _GLCassa.row_CurrencyRate = _GLCassa.LiquidAssets_Cassa.GetCurrencyRateDate(_ocur, _TransactionType, _GLCassa.LiquidAssets_Cassa, _GLCassa.DateExecution) + End If + End Sub + + Private Sub GenerateCurrencyRateAverageStart(_uow As UnitOfWork, _Year As Long, _GLCassa As GLCassa) + + + Dim _GLRows_Collection As New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _GLCassa.LiquidAssets_Cassa.Oid, New Date(_Year, 1, 1))) + + Dim _GLRows As GLRows + Dim _SumAmountDEV As Double = 0 + Dim _SumAmountHUF As Double = 0 + Dim _LiquidAssetsRate As LiquidAssetsRate = _uow.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("LiquidAssets.oid=? and GetYear(DateExecution)=?", _ + _GLCassa.LiquidAssets_Cassa.Oid, _ + _Year)) + If _LiquidAssetsRate IsNot Nothing Then + _SumAmountDEV = _LiquidAssetsRate.AmountDEV + _SumAmountHUF = _LiquidAssetsRate.AmountHUF + Else + '// HA NINCS BEÁLLÍTVA AKKOR NEM FUT LE !" + Exit Sub + End If + + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + '// A deviza a fix és az MNB árfolyammal újra kell számolni mindent + RaiseEvent DoWork() + If _GLRows.InAmountDEV > 0 Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.InAmountHUF + Exit For + End If + Next + End If + End If + Next + RaiseEvent FinalWork + _uow.CommitChanges() + + _GLRows_Collection = New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _GLCassa.LiquidAssets_Cassa.Oid, New Date(_Year, 1, 1))) + + _GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DateExecution", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + + '// Árfolyamok helyrerakása + If _GLRows.OutAmountDEV > 0 Then + If _SumAmountDEV <> 0 Then + _GLRows.OutAmountHUF = Math.Round(_GLRows.OutAmountDEV * (_SumAmountHUF / _SumAmountDEV), 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Else + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.OutAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Exit For + End If + Next + End If + End If + + _SumAmountDEV -= Math.Round(_GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF -= Math.Round(_GLRows.OutAmountHUF, 2, MidpointRounding.AwayFromZero) + + If _SumAmountDEV < 0 Then _SumAmountDEV = 0 + If _SumAmountHUF < 0 Then _SumAmountHUF = 0 + Else + _SumAmountDEV += Math.Round(_GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF += Math.Round(_GLRows.InAmountHUF, 2, MidpointRounding.AwayFromZero) + End If + Next + _uow.CommitChanges() + + RaiseEvent FinalWork + End Sub + + Private Sub aGLCassaGenerateDocumentNumber_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLCassaGenerateDocumentNumber.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(_ocur.Session, CriteriaOperator.Parse("IsEditable=False AND (DocumentNumber='' OR isnull(DocumentNumber)=true)")) + If _GLCassa_Collection.Count > 0 Then + _GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLCassa_Collection.Count) + For Each _GLCassa As GLCassa In _GLCassa_Collection + Dim _YearString As String = _GLCassa.DateExecution.Year.ToString + RaiseEvent DoWork() + If _GLCassa.CashMoveType = eCashMoveType.eIn Then + _GLCassa.DocumentNumber = _GLCassa.LiquidAssets_Cassa.NumberGeneratorIn.GetNewNumber(_GLCassa.LiquidAssets_Cassa.NumberGeneratorIn, _YearString) + Else + _GLCassa.DocumentNumber = _GLCassa.LiquidAssets_Cassa.NumberGeneratorOut.GetNewNumber(_GLCassa.LiquidAssets_Cassa.NumberGeneratorOut, _YearString) + End If + Next + + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + End Sub +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/Popup/GLCassaOpenClose.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/Popup/GLCassaOpenClose.vb new file mode 100644 index 0000000..4f2e57b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/Popup/GLCassaOpenClose.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLCassaOpenClose + Inherits BaseObject + + Private _LiquidAssets As LiquidAssets + Private _DateFrom As Date + Private _DateTo As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingRecord.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingRecord.vb new file mode 100644 index 0000000..a283321 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingRecord.vb @@ -0,0 +1,58 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLClosingRecord + Inherits BaseObject + Private _ObjectCreated As Date 'Maga az objektum mikor kszlt el + Private _UserCreated As User 'Ki ksztette + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingTime.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingTime.vb new file mode 100644 index 0000000..07ab0a3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingTime.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eGLClosingType + eCassa = 0 ' Pénztár zárása + eVAT = 1 ' ÁFA zárása + eBase = 2 'Főkönyv zárása ! + eRegistry = 3 'Iktatás zárása +End Enum + _ + _ +Public Class GLClosingTime + Inherits BaseObject + Private _GLClosingType As eGLClosingType + Private _DateFrom As Date + Private _DateTo As Date + Private _ObjectCreated As Date 'Maga az objektum mikor készült el + Private _UserCreated As User 'Ki készítette + Private _DocumentFile As FileData + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property GLClosingType As eGLClosingType + Get + Return _GLClosingType + End Get + Set(value As eGLClosingType) + SetPropertyValue("GLClosingType", _GLClosingType, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property DocumentFile As FileData + Get + Return _DocumentFile + End Get + Set(value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.Designer.vb new file mode 100644 index 0000000..92774ea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GLClosingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.vb new file mode 100644 index 0000000..81a4979 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Closing/GLClosingVC.vb @@ -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 GLClosingVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensation.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensation.vb new file mode 100644 index 0000000..9fde189 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensation.vb @@ -0,0 +1,354 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ +' _ +' _ +' _ +' _ +' _ +' _ +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLCompensation + Inherits GLHeader + Private _PartnerType As ePartnerType + Private _TransactionType As eTransactionType + Private _ChartOfAccounts As ChartOfAccounts + Private _TotalInAmountHUF As Double = 0 + Private _TotalOutAmountHUF As Double = 0 + Private _TotalInAmountDEV As Double = 0 + Private _TotalOutAmountDEV As Double = 0 + Private _LiquidAssets As LiquidAssets + Private _BallanceHUF As Double + Private _BallanceDEV As Double + Private _PCIGroup As PCIGroup + Private _GLHeader_RateDiff As GLHeader 'Kapcsold rf. kl. elszmolsi vegyes bizonylat + + '-- A msodlagos + Private _row_AmountDEV2 As Double = 0 + Private _row_CurrencyRate2 As Double = 1 + Private _row_CurrencyName2 As CurrencyName + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then Me.GLDocumentType = eGLDocumentType.eGLCompensation + End Sub + _ + _ + Property row_PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("row_PartnerType", _PartnerType, value) + End Set + End Property + _ + _ + _ + Property row_TransactionType() As eTransactionType + Get + Return _TransactionType + End Get + Set(ByVal value As eTransactionType) + SetPropertyValue("row_TransactionType", _TransactionType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case value + Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet + row_CurrencyName2 = LiquidAssets_Main.CurrencyName + End Select + Select Case value + Case eTransactionType.eNormalCredit, eTransactionType.eNormalDebit, eTransactionType.eNotSet + Me.row_PartnerType = ePartnerType.eNotSet + End Select + End If + End Set + End Property + _ + _ + _ + _ + Property row_ChartOfAccounts() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("row_ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + Property row_PCIGroup() As PCIGroup + Get + Return _PCIGroup + End Get + Set(ByVal value As PCIGroup) + SetPropertyValue("row_PCIGroup", _PCIGroup, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + row_ConnectInfo = value.ConnectInfo + row_Customer = value.Customers + row_PartnerType = value.PartnerType + If value.CurrencyName_Account.ShortName = "HUF" Then + If Me.CurrencyName.ShortName = "HUF" Then + Me.row_AmountHUF = Math.Abs(value.BallanceHUF) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + End If + Else + If Me.CurrencyName.ShortName = value.CurrencyName_Account.ShortName Then + Me.row_AmountDEV = Math.Abs(value.BallanceDEV) + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + Else + row_CurrencyName2 = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", value.CurrencyName_Account.ShortName)) + End If + End If + End If + End If + End Set + End Property + _ + _ + _ + _ + _ + Property LiquidAssets_Main() As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets_Main", _LiquidAssets, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + row_LiquidAssets = value + If value IsNot Nothing Then + CurrencyName = value.CurrencyName + Me.row_CurrencyName2 = CurrencyName + BallanceHUF = GetBallanceHUF(value, Now) + BallanceDEV = GetBallanceDEV(value, Now) + If Me.CustomersFrom IsNot Nothing Then + If Me.DocumentNumber Is Nothing Then + If value.NumberGeneratorIn IsNot Nothing Then + Me.DocumentNumber = value.NumberGeneratorIn.GetNewNumber(value.NumberGeneratorIn) + Me.Save() + Session.CommitTransaction() + End If + End If + End If + End If + End If + End Set + End Property + _ + _ + _ + Property row_AmountDEV2 As Double + Get + Return _row_AmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("row_AmountDEV2", _row_AmountDEV2, value) + End Set + End Property + _ + _ + _ + _ + Property row_CurrencyRate2 As Double + Get + Return _row_CurrencyRate2 + End Get + Set(ByVal value As Double) + SetPropertyValue("row_CurrencyRate2", _row_CurrencyRate2, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If row_CurrencyName2 Is Nothing Then row_CurrencyName2 = LiquidAssets_Main.CurrencyName + If LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then + If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then + Else + row_AmountDEV2 = row_AmountHUF * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero) + End If + Else + If LiquidAssets_Main.CurrencyName.ShortName = row_CurrencyName2.ShortName Then + Else + row_AmountDEV2 = row_AmountDEV * Math.Round(row_CurrencyRate2, 2, MidpointRounding.AwayFromZero) + End If + End If + End If + End Set + End Property + _ + _ + _ + Property row_CurrencyName2 As SISBusiness.Module.CurrencyName + Get + Return _row_CurrencyName2 + End Get + Set(value As SISBusiness.Module.CurrencyName) + SetPropertyValue("row_CurrencyName2", _row_CurrencyName2, value) + End Set + End Property + Property TotalInAmountHUF As Double + Get + Return _TotalInAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountHUF", _TotalInAmountHUF, value) + End Set + End Property + Property TotalOutAmountHUF As Double + Get + Return _TotalOutAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountHUF", _TotalOutAmountHUF, value) + End Set + End Property + Property TotalInAmountDEV As Double + Get + Return _TotalInAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalInAmountDEV", _TotalInAmountDEV, value) + End Set + End Property + Property TotalOutAmountDEV As Double + Get + Return _TotalOutAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalOutAmountDEV", _TotalOutAmountDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property GLHeader_RateDiff As GLHeader + Get + Return _GLHeader_RateDiff + End Get + Set(value As GLHeader) + SetPropertyValue("GLHeader_RateDiff", _GLHeader_RateDiff, value) + End Set + End Property + Sub RecalculateTotal() + Dim _GLRows As GLRows + TotalInAmountHUF = 0 + TotalOutAmountHUF = 0 + TotalInAmountDEV = 0 + TotalOutAmountDEV = 0 + For Each _GLRows In Me.GLRows + TotalInAmountHUF += _GLRows.InAmountHUF + TotalOutAmountHUF += _GLRows.OutAmountHUF + TotalInAmountDEV += _GLRows.InAmountDEV + TotalOutAmountDEV += _GLRows.OutAmountDEV + Next + BallanceHUF = TotalInAmountHUF - TotalOutAmountHUF + BallanceDEV = TotalInAmountDEV - _TotalOutAmountDEV + End Sub + Function GetBallanceHUF(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(Session, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, _ToDate)) + Dim _GLCompensation As GLCompensation + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + For Each _GLCompensation In _GLCompensation_Collection + For Each _GLRows In _GLCompensation.GLRows + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountHUF += _GLRows.OutAmountHUF + Next + Next + Return _InAmountHUF - _OutAmountHUF + End Function + Function GetBallanceDEV(ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCompensation_Collection As New XPCollection(Of GLCompensation)(Session, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, _ToDate)) + Dim _GLBank As GLCompensation + Dim _GLRows As GLRows + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + For Each _GLBank In _GLCompensation_Collection + For Each _GLRows In _GLBank.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _OutAmountDEV += _GLRows.OutAmountDEV + Next + Next + Return _InAmountDEV - _OutAmountDEV + End Function + _ + ReadOnly Property CloseHUF As Double + Get + Return Math.Round(TotalInAmountHUF, 2, MidpointRounding.AwayFromZero) - Math.Round(TotalOutAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + End Property + _ + ReadOnly Property CloseDEV As Double + Get + Return Math.Round(TotalInAmountDEV, 2, MidpointRounding.AwayFromZero) - Math.Round(TotalOutAmountDEV, 2, MidpointRounding.AwayFromZero) + End Get + End Property + + Overrides Property row_Controlling As Controlling + Get + Return MyBase.row_Controlling + End Get + Set(value As Controlling) + MyBase.row_Controlling = value + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value.ChartOfAccounts IsNot Nothing Then + row_ChartOfAccounts = value.GetChartOfAccounts(Me.DateExecution.Year, False) + End If + End If + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb new file mode 100644 index 0000000..8248e93 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.Designer.vb @@ -0,0 +1,208 @@ +Partial Class GLCompensationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMakeEditable_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinal_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalAndNew_GLCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCompensationDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateGLCompensationRateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportPCIGroupCompensation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aMakeEditable_GLCompensation + ' + Me.aMakeEditable_GLCompensation.Caption = "aMakeEditable_GLCompensation" + Me.aMakeEditable_GLCompensation.Category = "RecordEdit" + Me.aMakeEditable_GLCompensation.ConfirmationMessage = Nothing + Me.aMakeEditable_GLCompensation.Id = "aMakeEditable_GLCompensation" + Me.aMakeEditable_GLCompensation.ImageName = "Images.replace2.png" + Me.aMakeEditable_GLCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditable_GLCompensation.Shortcut = Nothing + Me.aMakeEditable_GLCompensation.Tag = Nothing + Me.aMakeEditable_GLCompensation.TargetObjectsCriteria = "IsEditable=False and IsStorno=False" + Me.aMakeEditable_GLCompensation.TargetViewId = Nothing + Me.aMakeEditable_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMakeEditable_GLCompensation.ToolTip = Nothing + Me.aMakeEditable_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aToTableD_GLCompensation + ' + Me.aToTableD_GLCompensation.Caption = "Delete row" + Me.aToTableD_GLCompensation.Category = "" + Me.aToTableD_GLCompensation.ConfirmationMessage = Nothing + Me.aToTableD_GLCompensation.Id = "aToTableD_GLCompensation" + Me.aToTableD_GLCompensation.ImageName = Nothing + Me.aToTableD_GLCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_GLCompensation.Shortcut = Nothing + Me.aToTableD_GLCompensation.Tag = Nothing + Me.aToTableD_GLCompensation.TargetObjectsCriteria = Nothing + Me.aToTableD_GLCompensation.TargetViewId = "GLCompensation_DetailView" + Me.aToTableD_GLCompensation.ToolTip = Nothing + Me.aToTableD_GLCompensation.TypeOfView = Nothing + ' + 'aBackToRowEdit_GLCompensation + ' + Me.aBackToRowEdit_GLCompensation.Caption = "Edit row" + Me.aBackToRowEdit_GLCompensation.Category = "" + Me.aBackToRowEdit_GLCompensation.ConfirmationMessage = Nothing + Me.aBackToRowEdit_GLCompensation.Id = "aBackToRowEdit_GLCompensation" + Me.aBackToRowEdit_GLCompensation.ImageName = Nothing + Me.aBackToRowEdit_GLCompensation.Shortcut = Nothing + Me.aBackToRowEdit_GLCompensation.Tag = Nothing + Me.aBackToRowEdit_GLCompensation.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_GLCompensation.TargetViewId = "GLCompensation_DetailView" + Me.aBackToRowEdit_GLCompensation.ToolTip = Nothing + Me.aBackToRowEdit_GLCompensation.TypeOfView = Nothing + ' + 'aToTable_GLCompensation + ' + Me.aToTable_GLCompensation.Caption = "aToTable" + Me.aToTable_GLCompensation.Category = "" + Me.aToTable_GLCompensation.ConfirmationMessage = Nothing + Me.aToTable_GLCompensation.Id = "aToTable_GLCompensation" + Me.aToTable_GLCompensation.ImageName = Nothing + Me.aToTable_GLCompensation.Shortcut = Nothing + Me.aToTable_GLCompensation.Tag = Nothing + Me.aToTable_GLCompensation.TargetObjectsCriteria = Nothing + Me.aToTable_GLCompensation.TargetObjectType = GetType(SISBusiness.[Module].GLCompensation) + Me.aToTable_GLCompensation.TargetViewId = "" + Me.aToTable_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_GLCompensation.ToolTip = Nothing + Me.aToTable_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinal_GLCompensation + ' + Me.aFinal_GLCompensation.Caption = "aFinal_GLCompensation" + Me.aFinal_GLCompensation.Category = "ObjectsCreation" + Me.aFinal_GLCompensation.ConfirmationMessage = Nothing + Me.aFinal_GLCompensation.Id = "aFinal_GLCompensation" + Me.aFinal_GLCompensation.ImageName = "MenuBar_SaveAndClose" + Me.aFinal_GLCompensation.Shortcut = Nothing + Me.aFinal_GLCompensation.Tag = Nothing + Me.aFinal_GLCompensation.TargetObjectsCriteria = Nothing + Me.aFinal_GLCompensation.TargetObjectType = GetType(SISBusiness.[Module].GLCompensation) + Me.aFinal_GLCompensation.TargetViewId = Nothing + Me.aFinal_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinal_GLCompensation.ToolTip = Nothing + Me.aFinal_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinalAndNew_GLCompensation + ' + Me.aFinalAndNew_GLCompensation.Caption = "aFinalAndNew_GLCompensation" + Me.aFinalAndNew_GLCompensation.Category = "ObjectsCreation" + Me.aFinalAndNew_GLCompensation.ConfirmationMessage = Nothing + Me.aFinalAndNew_GLCompensation.Id = "aFinalAndNew_GLCompensation" + Me.aFinalAndNew_GLCompensation.ImageName = "MenuBar_SaveAndNew" + Me.aFinalAndNew_GLCompensation.Shortcut = Nothing + Me.aFinalAndNew_GLCompensation.Tag = Nothing + Me.aFinalAndNew_GLCompensation.TargetObjectsCriteria = Nothing + Me.aFinalAndNew_GLCompensation.TargetObjectType = GetType(SISBusiness.[Module].GLCompensation) + Me.aFinalAndNew_GLCompensation.TargetViewId = Nothing + Me.aFinalAndNew_GLCompensation.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalAndNew_GLCompensation.ToolTip = Nothing + Me.aFinalAndNew_GLCompensation.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aPrintCompensation + ' + Me.aPrintCompensation.Caption = "Print document" + Me.aPrintCompensation.Category = "View" + Me.aPrintCompensation.ConfirmationMessage = Nothing + Me.aPrintCompensation.Id = "aPrintCompensation" + Me.aPrintCompensation.ImageName = "Action_Printing_Print" + Me.aPrintCompensation.Shortcut = Nothing + Me.aPrintCompensation.Tag = Nothing + Me.aPrintCompensation.TargetObjectsCriteria = Nothing + Me.aPrintCompensation.TargetViewId = "GLCompensation_ListView" + Me.aPrintCompensation.ToolTip = Nothing + Me.aPrintCompensation.TypeOfView = Nothing + ' + 'aGLCompensationDivideRows + ' + Me.aGLCompensationDivideRows.AcceptButtonCaption = Nothing + Me.aGLCompensationDivideRows.CancelButtonCaption = Nothing + Me.aGLCompensationDivideRows.Caption = "Divide rows" + Me.aGLCompensationDivideRows.ConfirmationMessage = Nothing + Me.aGLCompensationDivideRows.Id = "aGLCompensationDivideRows" + Me.aGLCompensationDivideRows.ImageName = "row_add_after" + Me.aGLCompensationDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCompensationDivideRows.Shortcut = Nothing + Me.aGLCompensationDivideRows.Tag = Nothing + Me.aGLCompensationDivideRows.TargetObjectsCriteria = Nothing + Me.aGLCompensationDivideRows.TargetViewId = "GLHeader_GLRows_ListView_Compensation" + Me.aGLCompensationDivideRows.ToolTip = Nothing + Me.aGLCompensationDivideRows.TypeOfView = Nothing + ' + 'aGenerateGLCompensationRateDiff + ' + Me.aGenerateGLCompensationRateDiff.Caption = "Generate rate diff" + Me.aGenerateGLCompensationRateDiff.Category = "ObjectsCreation" + Me.aGenerateGLCompensationRateDiff.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateGLCompensationRateDiff.Id = "aGenerateGLCompensationRateDiff" + Me.aGenerateGLCompensationRateDiff.ImageName = "money" + Me.aGenerateGLCompensationRateDiff.Shortcut = Nothing + Me.aGenerateGLCompensationRateDiff.Tag = Nothing + Me.aGenerateGLCompensationRateDiff.TargetObjectsCriteria = Nothing + Me.aGenerateGLCompensationRateDiff.TargetViewId = "GLCompensation_ListView" + Me.aGenerateGLCompensationRateDiff.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateGLCompensationRateDiff.ToolTip = Nothing + Me.aGenerateGLCompensationRateDiff.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aImportPCIGroupCompensation + ' + Me.aImportPCIGroupCompensation.AcceptButtonCaption = Nothing + Me.aImportPCIGroupCompensation.CancelButtonCaption = Nothing + Me.aImportPCIGroupCompensation.Caption = "Get exported " + Me.aImportPCIGroupCompensation.Category = "aImportPCIGroupCompensation" + Me.aImportPCIGroupCompensation.ConfirmationMessage = Nothing + Me.aImportPCIGroupCompensation.Id = "aImportPCIGroupCompensation" + Me.aImportPCIGroupCompensation.ImageName = Nothing + Me.aImportPCIGroupCompensation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aImportPCIGroupCompensation.Shortcut = Nothing + Me.aImportPCIGroupCompensation.Tag = Nothing + Me.aImportPCIGroupCompensation.TargetObjectsCriteria = Nothing + Me.aImportPCIGroupCompensation.TargetViewId = "GLCompensation_DetailView" + Me.aImportPCIGroupCompensation.ToolTip = Nothing + Me.aImportPCIGroupCompensation.TypeOfView = Nothing + + End Sub + Friend WithEvents aToTable_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditable_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinal_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalAndNew_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_GLCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintCompensation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCompensationDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateGLCompensationRateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportPCIGroupCompensation As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.resx new file mode 100644 index 0000000..1569f85 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 173 + + + 17, 212 + + + 17, 251 + + + 17, 290 + + + 17, 134 + + + 17, 329 + + + 10, 367 + + + 255, 367 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb new file mode 100644 index 0000000..2077ed9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Compensation/GLCompensationVC.vb @@ -0,0 +1,589 @@ +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.ExpressApp.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Model + +Public Class GLCompensationVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False) + + If View.Id = "GLCompensation_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Dim _GLCompensation As GLCompensation = TryCast(View.CurrentObject, GLCompensation) + If _GLCompensation Is Nothing Then + Else + If _GLCompensation.IsEditable = False Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aFinal_GLCompensation.Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aBackToRowEdit_GLCompensation.Active.SetItemValue("", False) + End If + If _GLCompensation.IsStorno = True Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", False) + End If + If _GLCompensation.IsEditable = True And _GLCompensation.IsStorno = False Then + + End If + End If + End If + + If View.Id = "GLCompensation_ListView" Then + Frame.GetController(Of GLCompensationVC).aMakeEditable_GLCompensation.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "GLCompensation_ListView_Editable" Then + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf GLCompensation_DeleteAction_Executed + End If + + If View.Id Like "GLHeader_GLRows_ListView_Compensation" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLCompensation_DetailView" Then + Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True) + Frame.GetController(Of GLCompensationVC).aFinalAndNew_GLCompensation.Active.SetItemValue("", True) + Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", True) + Frame.GetController(Of GLCompensationVC).aToTableD_GLCompensation.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLCompensation.Execute + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _GLHeader As GLHeader = TryCast(_GLCompensation, GLHeader) + Dim _GLRows As GLRows + Dim _GUID As Guid = Guid.NewGuid() + Dim _CashType As eCashType + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + _GLRows = _ocur.CreateObject(Of GLRows)() + + If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Or _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then + _CashType = eCashType.ePartner + If _GLCompensation.row_PartnerType = ePartnerType.eReceivables Then + If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Then + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + ElseIf _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + End If + Else + If _GLCompensation.row_TransactionType = eTransactionType.ePartnerCredit Then + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn) + ElseIf _GLCompensation.row_TransactionType = eTransactionType.ePartnerDebit Then + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_Customer.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eIn) + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + End If + End If + Else + _CashType = eCashType.eNormal + If _GLCompensation.row_TransactionType = eTransactionType.eNormalCredit Then + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.row_ChartOfAccounts + Else + _GLHeader.row_DebitChartOfAccounts = _GLCompensation.row_ChartOfAccounts + _GLHeader.row_CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + End If + + End If + Select Case _GLCompensation.row_TransactionType + Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit + _GLRows.CreditAmountHUF = _GLHeader.row_AmountHUF + _GLRows.CreditAmountDEV = _GLHeader.row_AmountDEV + _GLRows.InAmountHUF = _GLHeader.row_AmountHUF + _GLRows.InAmountDEV = _GLHeader.row_AmountDEV + Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit + _GLRows.DebitAmountHUF = _GLHeader.row_AmountHUF + _GLRows.DebitAmountDEV = _GLHeader.row_AmountDEV + _GLRows.OutAmountHUF = _GLHeader.row_AmountHUF + _GLRows.OutAmountDEV = _GLHeader.row_AmountDEV + End Select + _GLRows.PartnerType = _GLCompensation.row_PartnerType + + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLCompensation.LiquidAssets_Main, _ + _GLHeader.row_Customer, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + _GLCompensation.row_TransactionType, _CashType, _GLCompensation.row_PartnerType) + _GLCompensation.RecalculateTotal() + _ocur.CommitChanges() + + '--- Pontozás ellenőrzése !!!! ---------------------------------------------------------------------------------------------------------------- + Select Case _GLCompensation.row_TransactionType + Case eTransactionType.ePartnerCredit, eTransactionType.ePartnerDebit + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End Select + + '---------------------------------------------------------------------------------------------------------------------------------------------- + + _GLCompensation.row_NoteRows = "" + _GLCompensation.row_AmountDEV = 0 + _GLCompensation.row_AmountHUF = 0 + _GLCompensation.row_PCIGroup = Nothing + _GLCompensation.row_Customer = Nothing + _GLCompensation.row_ConnectInfo = "" + _GLCompensation.row_ChartOfAccounts = Nothing + + '// Fókusz beállítása !!!!!!!!!!!!!!!!!!!!!!---------------------------------------------------------------- + + Dim _Action As IModelAction + Dim _IModelActionExtender As IModelActionExtender + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Id = e.Action.Id Then + _IModelActionExtender = TryCast(_Action, IModelActionExtender) + If _IModelActionExtender IsNot Nothing Then + If String.IsNullOrEmpty(_IModelActionExtender.FocusItem) = False Then + Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem(_IModelActionExtender.FocusItem) + If ItemToFocus IsNot Nothing Then + Dim ItemControl As Object + ItemControl = ItemToFocus.Control + ItemControl.Focus() + End If + End If + End If + Exit For + End If + Next + + '-------------------------------------------------------------------------------------------------------- + View.Refresh() + + + End Sub + Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLCompensation.Execute + GLCompensation_Final(e) + View.Close(False) + End Sub + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _GLCompensation As GLCompensation = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLCompensation) + If _GLCompensation.IsEditable = False Then + Frame.GetController(Of GLCompensationVC).aToTable_GLCompensation.Active.SetItemValue("", False) + End If + End Sub + Private Sub aMakeEditable_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLCompensation.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + If _GLCompensation IsNot Nothing Then + + _GLCompensation.IsEditable = True + _ocur.CommitChanges() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCompensation_DetailView", True, _onew.GetObject(_GLCompensation)) + End If + End Sub + Private Sub aFinalAndNew_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLCompensation.Execute + GLCompensation_Final(e) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLCompensation As GLCompensation = _onew.CreateObject(Of GLCompensation)() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLCompensation) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + End Sub +#Region "SIS" + Private Sub GLCompensation_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows + If View.SelectedObjects.Count > 0 Then + Dim _GLCompensation As GLCompensation = TryCast(e.SelectedObjects(0), GLCompensation) + For Each _GLCompensation In e.SelectedObjects + If _GLCompensation.GLRows.Count <= 0 Then + _ocur.Rollback() + Throw New Exception("*Nincs rögzített sor !") + End If + For Each _GLRows In _GLCompensation.GLRows + _GLRows.LiquidAssets = _GLCompensation.LiquidAssets_Main + Next + _GLCompensation.IsEditable = False + If _GLCompensation.DocumentNumber Is Nothing Or _GLCompensation.DocumentNumber = "" Then + Dim _NumberGenerator As NumberGenerator = TryCast(_GLCompensation.LiquidAssets_Main.NumberGeneratorIn, NumberGenerator) + _GLCompensation.DocumentNumber = _NumberGenerator.GetNewNumber(_NumberGenerator).ToString + End If + _GLCompensation.Save() + _ocur.CommitChanges() + + '// Az összes sorra vonatkozó pontozás újragenerálása, mert változhat a dátum ! + For Each _GLRows In _GLCompensation.GLRows + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + End If + End Sub +#End Region + Private Sub aToTableD_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLCompensation.Execute + 'Törli a táblázatban lévő sort + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GUID As Guid + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim i As Long + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + If _GLRows IsNot Nothing Then + _GUID = _GLRows.GLRowsGUID + selection.Clear() + For Each _GLRows In _GLCompensation.GLRows + If _GLRows.GLRowsGUID = _GUID Then + selection.Add(_GLRows) + End If + Next + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLCompensation.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + _GLCompensation.RecalculateTotal() + View.Refresh() + End If + End Sub + Private Sub aBackToRowEdit_GLCompensation_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLCompensation.Execute + 'Visszatölti a sort editáláshoz + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim _PCIGroup As PCIGroup + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows IsNot Nothing Then + + If _GLRows.GLRowsRateDiff IsNot Nothing Then + Throw New Exception("*Nem lehet a sort törölni mert van árfolyam elszámolás !") + Exit Sub + End If + + _GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCompensation.CurrencyName.ShortName)) + _PCIGroup = _ocur.FindObject(Of PCIGroup) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=? ", _GLRows.GLHeader.CustomersFrom, _ + _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo), True) + If _PCIGroup IsNot Nothing Then + _GLCompensation.row_PCIGroup = _PCIGroup + _GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _PCIGroup.CurrencyName_Account.ShortName)) + If _GLCompensation.row_CurrencyName2 Is Nothing Then + _GLCompensation.row_CurrencyName2 = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", _GLCompensation.CurrencyName.ShortName)) + End If + End If + _GLCompensation.row_Customer = _GLRows.Customer + _GLCompensation.row_ConnectInfo = _GLRows.ConnectInfo + _GLCompensation.CurrencyName = _GLRows.GLHeader.CurrencyName + _GLCompensation.CurrencyRate = _GLRows.GLHeader.CurrencyRate + + _GLCompensation.row_NoteRows = _GLRows.NoteRows + _GLCompensation.CurrencyRate = _GLRows.GLHeader.CurrencyRate + _GLCompensation.row_PartnerType = _GLRows.PartnerType + _GLCompensation.row_TransactionType = _GLRows.TransactionType + _GLCompensation.row_CurrencyRate2 = _GLRows.CurrencyRate2 + If _GLRows.InAmountHUF > 0 Then + _GLCompensation.row_ChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLCompensation.row_AmountDEV2 = _GLRows.InAmountDEV2 + Else + _GLCompensation.row_ChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLCompensation.row_AmountDEV2 = _GLRows.OutAmountDEV2 + End If + + Dim _GLRows_GUID_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("GLRowsGUID=?", _GLRows.GLRowsGUID)) + Dim _AmountDEV As Double = 0 + Dim _AmountHUF As Double = 0 + For Each _GLRows In _GLRows_GUID_Collection + _AmountDEV += _GLRows.AmountDEV + _AmountHUF += _GLRows.AmountHUF + selection.Add(_GLRows) + Next + _GLCompensation.row_AmountDEV = _AmountDEV + _GLCompensation.row_AmountHUF = _AmountHUF + + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLCompensation.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + + Next + End If + + View.Refresh() + End Sub + + Private Sub aPrintCompensation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCompensation.Execute + Dim _GLCompensation As GLCompensation + Try + If e.SelectedObjects.Count > 0 Then + _GLCompensation = TryCast(e.SelectedObjects.Item(0), GLCompensation) + PrintCompensationDocument(_GLCompensation, TryCast(View.ObjectSpace, Xpo.XPObjectSpace)) + End If + Catch + + End Try + End Sub + Sub PrintCompensationDocument(ByVal _GLCompensation As GLCompensation, ByVal _ocur As Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _GLHeader As GLHeader + If _GLCompensation IsNot Nothing Then + _GLHeader = TryCast(_GLCompensation, GLHeader) + _ReportData = _GLCompensation.LiquidAssets_Main.ReportData + If _ReportData IsNot Nothing Or _GLCompensation Is Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLHeader=?", _GLHeader), True) + End If + End If + End Sub + + Private Sub aGLCompensationDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCompensationDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLRows.Oid + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + End If + End Sub + + Private Sub aGLCompensationDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCompensationDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + End If + End Sub + + Private Sub aGenerateGLCompensationRateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLCompensationRateDiff.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCompensation As GLCompensation = TryCast(e.SelectedObjects(0), GLCompensation) + + For Each _GLCompensation In e.SelectedObjects + If Not _GLCompensation.CurrencyName.ShortName = "HUF" Then + _GLCompensation.Reconfigure_RateDiff(_ocur, _GLCompensation) + End If + Next + _ocur.CommitChanges() + View.Refresh() + End Sub + + Private Sub GLCompensation_DeleteAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCompensation As GLCompensation + Dim _GLRows As GLRows + Dim _GLRows_Collection As XPCollection(Of GLRows) + + For Each _GLCompensation In TryCast(e, SimpleActionExecuteEventArgs).SelectedObjects + + _GLRows_Collection = New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ocur.Session, CriteriaOperator.Parse("PartnerType<>'eNotSet' and GLHeader.Oid=?", _GLCompensation.Oid), True) + For Each _GLRows In _GLRows_Collection + GLFunctions.ReconfigurePCI(_uow, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + End Sub + + Private Sub aImportPCIGroupCompensation_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aImportPCIGroupCompensation.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(PCIGroup)) + + + Dim _P As PCIGroup + If _GLCompensation IsNot Nothing Then + + _CollectionSource.Criteria.Clear() + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("CurrencyName_Account.ShortName=?", _GLCompensation.LiquidAssets_Main.CurrencyName.ShortName) + _CollectionSource.Criteria("2") = CriteriaOperator.Parse("PartnerType=?", _GLCompensation.row_PartnerType) + _CollectionSource.Criteria("3") = CriteriaOperator.Parse("CustomersFrom.Oid=?", _GLCompensation.CustomersFrom.Oid) + If _GLCompensation.LiquidAssets_Main.CurrencyName.ShortName = "HUF" Then + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceHUF<>0") + Else + _CollectionSource.Criteria("4") = CriteriaOperator.Parse("BallanceDEV<>0") + End If + + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("PCIGroup_ListView_Find", _CollectionSource, True) + + End If + End Sub + + Private Sub aImportPCIGroupCompensation_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aImportPCIGroupCompensation.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup + Dim _PCIGroup_P As PCIGroup + Dim _GLCompensation As GLCompensation = TryCast(View.SelectedObjects(0), GLCompensation) + Dim _GLHeader As GLHeader = TryCast(_GLCompensation, GLHeader) + Dim _GLRows As GLRows + Dim _GUID As Guid + Dim _CashType As eCashType + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _TransactionType As eTransactionType + If _GLCompensation Is Nothing Then Exit Sub + + + For Each _PCIGroup_P In e.PopupWindow.View.SelectedObjects + _PCIGroup = _ocur.GetObject(_PCIGroup_P) + _GLRows = _ocur.CreateObject(Of GLRows)() + _GUID = Guid.NewGuid() + _CashType = eCashType.ePartner + If _PCIGroup.PartnerType = ePartnerType.eReceivables Then + If _PCIGroup.BallanceHUF > 0 Or _PCIGroup.BallanceDEV > 0 Then + _DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + _TransactionType = eTransactionType.ePartnerCredit + _GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF + _GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + _GLRows.InAmountHUF = _PCIGroup.BallanceHUF + _GLRows.InAmountDEV = _PCIGroup.BallanceDEV + + Else + _CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLCompensation.DateExecution.Year, eVATMode.eOut) + _TransactionType = eTransactionType.ePartnerDebit + + _GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF + _GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV + _GLRows.CreditAmountHUF = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + _GLRows.OutAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + End If + Else + If _PCIGroup.BallanceHUF > 0 Or _PCIGroup.BallanceDEV > 0 Then + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn) + _CreditChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerDebit + _GLRows.DebitAmountHUF = _PCIGroup.BallanceHUF + _GLRows.DebitAmountDEV = _PCIGroup.BallanceDEV + _GLRows.CreditAmountDEV = 0 + _GLRows.CreditAmountDEV = 0 + _GLRows.OutAmountHUF = _PCIGroup.BallanceHUF + _GLRows.OutAmountDEV = _PCIGroup.BallanceDEV + Else + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_PCIGroup.DateExecution_Account.Year, eVATMode.eIn) + _DebitChartOfAccounts = _GLCompensation.LiquidAssets_Main.GetChartOfAccounts(_GLCompensation.DateExecution.Year, 0) + _TransactionType = eTransactionType.ePartnerCredit + + _GLRows.CreditAmountHUF = _PCIGroup.BallanceHUF + _GLRows.CreditAmountDEV = _PCIGroup.BallanceDEV + _GLRows.DebitAmountHUF = 0 + _GLRows.DebitAmountDEV = 0 + _GLRows.InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + _GLRows.InAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + End If + + End If + + _GLRows.PartnerType = _PCIGroup.PartnerType + _GLRows.AddGLRows(_GLHeader, _DebitChartOfAccounts, _CreditChartOfAccounts, _ + Math.Abs(_PCIGroup.BallanceDEV), Math.Abs(_PCIGroup.BallanceHUF), _GLCompensation.LiquidAssets_Main, _ + _PCIGroup.Customers, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _PCIGroup.ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + _TransactionType, _CashType, _PCIGroup.PartnerType) + _GLCompensation.RecalculateTotal() + _GLCompensation.GetBallanceDEV(_GLCompensation.row_LiquidAssets, _GLCompensation.DateExecution) + _GLCompensation.GetBallanceHUF(_GLCompensation.row_LiquidAssets, _GLCompensation.DateExecution) + + _ocur.CommitChanges() + + '--- Pontozás ellenőrzése !!!! ---------------------------------------------------------------------------------------------------------------- + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _GLCompensation.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssets.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssets.vb new file mode 100644 index 0000000..dc4ece0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssets.vb @@ -0,0 +1,186 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eFixedAssetsState + eWaitForActivate = 0 ' Aktivlsra vr + eReadyForUse = 1 ' Hasznlhat, de nincs kiadva + eInUse = 2 ' Hasznlatban van valakinl + eWaitForOther = 3 ' Egyb ok miatt a hasznlat felfggesztve + eTerminated = 4 'Kivezetve +End Enum + _ + _ + _ + _ +Public Class FixedAssets + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _UniqueObjects As UniqueObjects + Private _FixedAssetsGroup1 As FixedAssetsGroup1 + Private _ShortName As String + Private _Description As String + + Private _DatePurchase As Date ' Vsrls dtuma + Private _DateTerminal As Date ' Kivezets dtuma + Private _FixedAssetsState As eFixedAssetsState + + Private _HRPerson_Using As HRPerson + Private _Customers_Using As Customers + Private _CostHolder_Using As CostHolder + Private _CostPlace_Using As CostPlace + + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + ' _ + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value.Cars IsNot Nothing Then + Me.ShortName = value.Cars.LicensePlateNumber & ", " & value.Cars.CarMarks.ShortName & " " & value.Cars.CarTypes.ShortName + Me.DatePurchase = value.Cars.DateFirstOnRoad.Date + End If + End If + End Set + End Property + _ + Property FixedAssetsGroup1 As FixedAssetsGroup1 + Get + Return _FixedAssetsGroup1 + End Get + Set(value As FixedAssetsGroup1) + SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + Property DatePurchase As Date + Get + Return _DatePurchase + End Get + Set(value As Date) + SetPropertyValue("DatePurchase", _DatePurchase, value) + End Set + End Property + Property DateTerminal As Date + Get + Return _DateTerminal + End Get + Set(value As Date) + SetPropertyValue("DateTerminal", _DateTerminal, value) + End Set + End Property + + Property FixedAssetsState As eFixedAssetsState + Get + Return _FixedAssetsState + End Get + Set(value As eFixedAssetsState) + SetPropertyValue("FixedAssetsState", _FixedAssetsState, value) + End Set + End Property + + Property HRPerson_Using As HRPerson + Get + Return _HRPerson_Using + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson_Using", _HRPerson_Using, value) + End Set + End Property + Property Customers_Using As Customers + Get + Return _Customers_Using + End Get + Set(value As Customers) + SetPropertyValue("Customers_Using", _Customers_Using, value) + End Set + End Property + Property CostHolder_Using As CostHolder + Get + Return _CostHolder_Using + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder_Using", _CostHolder_Using, value) + End Set + End Property + Property CostPlace_Using As CostPlace + Get + Return _CostPlace_Using + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace_Using", _CostPlace_Using, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCard.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCard.vb new file mode 100644 index 0000000..713719b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCard.vb @@ -0,0 +1,286 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eFixedAssetsTerminalReason + eNone = 0 + eSold = 1 + eInventoryShortage = 2 + eDisposal = 3 +End Enum + _ + _ + _ + _ + _ +Public Class FixedAssetsCard + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _FixedAssetsGroup1 As FixedAssetsGroup1 + + Private _ShortName As String + Private _Description As String + Private _UniqueObjects As UniqueObjects + + Private _DateFabrication As Date 'Gyrtsi v + Private _DateAcquisition As Date 'Beszerzs dtuma + Private _DateActivation As Date 'Aktivls dtuma + Private _DateTerminal As Date 'Kivezets dtuma + Private _DateOpen As Date 'CS Nyit dtuma + Private _IsActivated As Boolean = False + Private _AmountHUFBrutto As Double 'Brutt rtk + Private _AmountHUFOpen As Double 'Nyit rtk + Private _AmountHUFDevelopmentReserve As Double 'Fejlesztsi tartalk + Private _IsNew As Boolean = True 'j, vagy msik rendszerbl tvett + Private _IsTerminal As Boolean = False 'Kivezetve ? + Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason + + Private _DCPAccounting As FixedAssetsDecrepationParameter 'Szmvitel szrinti CS paramter + Private _AmountHUFSalvage As Double 'Maradvnyrtk + Private _DCPTax As FixedAssetsDecrepationParameter 'TA szerinti CS paramter + + Private _IsEditable As Boolean = True + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If UniqueObjects Is Nothing Then + Dim _UniqueObject_Name As String + Dim _UniqueObjects As UniqueObjects + + _UniqueObject_Name = Me.FixedAssetsGroup1.NumberGenerator.GetNewNumber(Me.FixedAssetsGroup1.NumberGenerator, Me.DateAcquisition.Year.ToString) + If _UniqueObject_Name <> "" Then + _UniqueObjects = New UniqueObjects(Session) + _UniqueObjects.Name = _UniqueObject_Name + Me.UniqueObjects = _UniqueObjects + End If + End If + End Sub + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property FixedAssetsGroup1 As FixedAssetsGroup1 + Get + Return _FixedAssetsGroup1 + End Get + Set(value As FixedAssetsGroup1) + SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property DateFabrication As Date + Get + Return _DateFabrication + End Get + Set(value As Date) + SetPropertyValue("DateFabrication", _DateFabrication, value) + End Set + End Property + Property DateAcquisition As Date + Get + Return _DateAcquisition + End Get + Set(value As Date) + SetPropertyValue("DateAcquisition", _DateAcquisition, value) + End Set + End Property + Property DateActivation As Date + Get + Return _DateActivation + End Get + Set(value As Date) + SetPropertyValue("DateActivation", _DateActivation, value) + End Set + End Property + Property DateTerminal As Date + Get + Return _DateTerminal + End Get + Set(value As Date) + SetPropertyValue("DateTerminal", _DateTerminal, value) + End Set + End Property + Property DateOpen As Date + Get + Return _DateOpen + End Get + Set(value As Date) + SetPropertyValue("DateOpen", _DateOpen, value) + End Set + End Property + _ + Property IsActivated As Boolean + Get + Return _IsActivated + End Get + Set(value As Boolean) + SetPropertyValue("IsActivated", _IsActivated, value) + End Set + End Property + Property AmountHUFBrutto As Double + Get + Return _AmountHUFBrutto + End Get + Set(value As Double) + SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value) + End Set + End Property + Property AmountHUFOpen As Double + Get + Return _AmountHUFOpen + End Get + Set(value As Double) + SetPropertyValue("AmountHUFOpen", _AmountHUFOpen, value) + End Set + End Property + Property AmountHUFDevelopmentReserve As Double + Get + Return _AmountHUFDevelopmentReserve + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value) + End Set + End Property + _ + _ + Property IsNew As Boolean + Get + Return _IsNew + End Get + Set(value As Boolean) + SetPropertyValue("IsNew", _IsNew, value) + End Set + End Property + _ + Property IsTerminal As Boolean + Get + Return _IsTerminal + End Get + Set(value As Boolean) + SetPropertyValue("IsTerminal", _IsTerminal, value) + End Set + End Property + Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason + Get + Return _FixedAssetsTerminalReason + End Get + Set(value As eFixedAssetsTerminalReason) + SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value) + End Set + End Property + + _ + Property DCPAccounting As FixedAssetsDecrepationParameter + Get + Return _DCPAccounting + End Get + Set(value As FixedAssetsDecrepationParameter) + SetPropertyValue("DCPAccounting", _DCPAccounting, value) + End Set + End Property + Property AmountHUFSalvage As Double + Get + Return _AmountHUFSalvage + End Get + Set(value As Double) + SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value) + End Set + End Property + _ + Property DCPTax As FixedAssetsDecrepationParameter + Get + Return _DCPTax + End Get + Set(value As FixedAssetsDecrepationParameter) + SetPropertyValue("DCPTax", _DCPTax, value) + End Set + End Property + _ + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '//XPCollection + _ + ReadOnly Property FixedAssetsCardPlanRows As XPCollection(Of FixedAssetsCardPlanRows) + Get + Return GetCollection(Of FixedAssetsCardPlanRows)("FixedAssetsCardPlanRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCardPlanRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCardPlanRows.vb new file mode 100644 index 0000000..3cbc534 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCardPlanRows.vb @@ -0,0 +1,255 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eFixedAssetsCardPlanRowsType + eActivated = 0 + eNormal = 1 + eKeyChange = 2 + eExtraDecrepation = 3 + eExtraActivated = 4 + eTerminate = 5 +End Enum + _ +Public Class FixedAssetsCardPlanRows ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _FixedAssetsCard As FixedAssetsCard + Private _RowIndex As Long 'Sorindex + Private _FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType + Private _FixedAssetsTerminalReason As eFixedAssetsTerminalReason + Private _DatedFrom As Date + Private _DateTo As Date + Private _DateExecution As Date ' Telj. dtuma + Private _DayCountACC As Long 'Napok szma ACC + Private _DayCountTAX As Long 'Napok szma ACC + Private _KeyTax As Double 'Lersi kulcs TA + Private _KeyACC As Double 'Lersi kulcs SZV + Private _DayDecrepationTAX As Double 'Napi CS TA + Private _DayDecrepationACC As Double 'Napi CS SZV + Private _SalvageHUF As Double 'Maradvny rtk + Private _SalvageHUFBallance As Double 'Maradvnyrtk vltozs + Private _BruttoHUF As Double 'Brutt rt. V. + Private _BruttoHUFBallance As Double 'Brutt rt. + Private _DecrepationHUFACC As Double 'CS vltozs SZV + Private _NettoHUFBallanceACC As Double 'Nett rtk SZ + Private _DecrepationHUFTAX As Double 'CS vltozs TA + Private _NettoHUFBallanceTAX As Double 'Nett rtk TA + Private _BruttoHUFTerminal As Double 'Br. Kivezets + Private _NettoHUFTerminalACC As Double 'Ne SZ kivezets + Private _IsModified As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsModified = False + End Sub + + _ + Property FixedAssetsCard As FixedAssetsCard + Get + Return _FixedAssetsCard + End Get + Set(value As FixedAssetsCard) + SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property FixedAssetsCardPlanRowsType As eFixedAssetsCardPlanRowsType + Get + Return _FixedAssetsCardPlanRowsType + End Get + Set(value As eFixedAssetsCardPlanRowsType) + SetPropertyValue("FixedAssetsCardPlanRowsType ", _FixedAssetsCardPlanRowsType, value) + End Set + End Property + Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason + Get + Return _FixedAssetsTerminalReason + End Get + Set(value As eFixedAssetsTerminalReason) + SetPropertyValue("FixedAssetsTerminalReason", _FixedAssetsTerminalReason, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DatedFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DatedFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DayCountACC As Long + Get + Return _DayCountACC + End Get + Set(value As Long) + SetPropertyValue("DayCountACC", _DayCountACC, value) + End Set + End Property + Property DayCountTAX As Long + Get + Return _DayCountTAX + End Get + Set(value As Long) + SetPropertyValue("DayCountTAX", _DayCountTAX, value) + End Set + End Property + Property KeyTax As Double + Get + Return _KeyTax + End Get + Set(value As Double) + SetPropertyValue("KeyTax", _KeyTax, value) + End Set + End Property + Property KeyACC As Double + Get + Return _KeyACC + End Get + Set(value As Double) + SetPropertyValue("KeyACC", _KeyACC, value) + End Set + End Property + Property DayDecrepationTAX As Double + Get + Return _DayDecrepationTAX + End Get + Set(value As Double) + SetPropertyValue("DayDecrepationTAX", _DayDecrepationTAX, value) + End Set + End Property + Property DayDecrepationACC As Double + Get + Return _DayDecrepationACC + End Get + Set(value As Double) + SetPropertyValue("DayDecrepationACC", _DayDecrepationACC, value) + End Set + End Property + Property SalvageHUF As Double + Get + Return _SalvageHUF + End Get + Set(value As Double) + SetPropertyValue("SalvageHUF", _SalvageHUF, value) + End Set + End Property + Property SalvageHUFBallance As Double + Get + Return _SalvageHUFBallance + End Get + Set(value As Double) + SetPropertyValue("SalvageHUFBallance", _SalvageHUFBallance, value) + End Set + End Property + Property BruttoHUF As Double + Get + Return _BruttoHUF + End Get + Set(value As Double) + SetPropertyValue("BruttoHUF", _BruttoHUF, value) + End Set + End Property + Property BruttoHUFBallance As Double + Get + Return _BruttoHUFBallance + End Get + Set(value As Double) + SetPropertyValue("BruttoHUFBallance", _BruttoHUFBallance, value) + End Set + End Property + Property DecrepationHUFACC As Double + Get + Return _DecrepationHUFACC + End Get + Set(value As Double) + SetPropertyValue("DecrepationHUFACC", _DecrepationHUFACC, value) + End Set + End Property + Property NettoHUFBallanceACC As Double + Get + Return _NettoHUFBallanceACC + End Get + Set(value As Double) + SetPropertyValue("NettoHUFBallanceACC", _NettoHUFBallanceACC, value) + End Set + End Property + Property DecrepationHUFTAX As Double + Get + Return _DecrepationHUFTAX + End Get + Set(value As Double) + SetPropertyValue("DecrepationHUFTAX", _DecrepationHUFTAX, value) + End Set + End Property + Property NettoHUFBallanceTAX As Double + Get + Return _NettoHUFBallanceTAX + End Get + Set(value As Double) + SetPropertyValue("NettoHUFBallanceTAX", _NettoHUFBallanceTAX, value) + End Set + End Property + Property BruttoHUFTerminal As Double + Get + Return _BruttoHUFTerminal + End Get + Set(value As Double) + SetPropertyValue("BruttoHUFTerminal", _BruttoHUFTerminal, value) + End Set + End Property + Property NettoHUFTerminalACC As Double + Get + Return _NettoHUFTerminalACC + End Get + Set(value As Double) + SetPropertyValue("NettoHUFTerminalACC", _NettoHUFTerminalACC, value) + End Set + End Property + Property IsModified As Boolean + Get + Return _IsModified + End Get + Set(value As Boolean) + SetPropertyValue("IsModified", _IsModified, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsDecrepationParameter.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsDecrepationParameter.vb new file mode 100644 index 0000000..2345649 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsDecrepationParameter.vb @@ -0,0 +1,85 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eFixedAssetsPeriod + eYear = 0 + eMonth = 1 + eQuarter = 2 +End Enum +Public Enum eFixedAssetsSpecies + eFixedAssets = 0 'Trgyi eszkzk + eIntangibleAssets = 1 'Immaterilis javak + eSmallValueOfFixedAssets = 2 'Kisrtk trgyi eszkz +End Enum + _ +Public Class FixedAssetsDecrepationParameter + Inherits BaseObject + + Private _ShortName As String 'Megnevezs + Private _Description As String 'Lers + Private _DecrepationPercent As Double 'CS % + Private _FixedAssetsPeriod As eFixedAssetsPeriod 'ves, havi + Private _FixedAssetsSpecies As eFixedAssetsSpecies 'Fajta + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property DecrepationPercent As Double + Get + Return _DecrepationPercent + End Get + Set(value As Double) + SetPropertyValue("DecrepationPercent", _DecrepationPercent, value) + End Set + End Property + Property FixedAssetsPeriod As eFixedAssetsPeriod + Get + Return _FixedAssetsPeriod + End Get + Set(value As eFixedAssetsPeriod) + SetPropertyValue("FixedAssetsPeriod", _FixedAssetsPeriod, value) + End Set + End Property + Property FixedAssetsSpecies As eFixedAssetsSpecies + Get + Return _FixedAssetsSpecies + End Get + Set(value As eFixedAssetsSpecies) + SetPropertyValue("FixedAssetsSpecies", _FixedAssetsSpecies, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGLParameters.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGLParameters.vb new file mode 100644 index 0000000..044f260 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGLParameters.vb @@ -0,0 +1,125 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eFixedAssetsMoveType + eActivation = 0 'Aktivls + eExtraActivation = 1 'Raktivls + eDisposalBrutto = 2 'Selejtezs brutto + eDisposalDepreciation = 3 'Selejtezs CS + eDepreciation = 4 'CS + eInvestment = 5 'Beruhzs + eInventoryShortageBrutto = 6 'Leltrhiny brutto + eInventoryShortageDepreciation = 7 'Leltrhiny CS + eSoldBrutto = 8 'rtkests brutto + eSoldDepreciation = 9 'rtkests CS + eExtraDepreciation = 10 'Rendkvli CS +End Enum + _ +Public Class FixedAssetsGLParameters + Inherits BaseObject + + Private _FixedAssetsGroup1 As FixedAssetsGroup1 + Private _FixedAssetsMoveType As eFixedAssetsMoveType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property FixedAssetsGroup1 As FixedAssetsGroup1 + Get + Return _FixedAssetsGroup1 + End Get + Set(value As FixedAssetsGroup1) + SetPropertyValue("FixedAssetsGroup1", _FixedAssetsGroup1, value) + End Set + End Property + Property FixedAssetsMoveType As eFixedAssetsMoveType + Get + Return _FixedAssetsMoveType + End Get + Set(value As eFixedAssetsMoveType) + SetPropertyValue("FixedAssetsMoveType", _FixedAssetsMoveType, value) + End Set + End Property + + _ + ReadOnly Property FixedAssetsGLParametersYear As XPCollection(Of FixedAssetsGLParametersYear) + Get + Return GetCollection(Of FixedAssetsGLParametersYear)("FixedAssetsGLParametersYear") + End Get + End Property +End Class + _ +Public Class FixedAssetsGLParametersYear + Inherits BaseObject + Private _FixedAssetsGLParameters As FixedAssetsGLParameters + Private _AccountYear As Long + Private _DebitChartOfAccounts As ChartOfAccounts + Private _CreditChartOfAccounts As ChartOfAccounts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property FixedAssetsGLParameters As FixedAssetsGLParameters + Get + Return _FixedAssetsGLParameters + End Get + Set(value As FixedAssetsGLParameters) + SetPropertyValue("FixedAssetsGLParameters", _FixedAssetsGLParameters, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + Property DebitChartOfAccounts As ChartOfAccounts + Get + Return _DebitChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("DebitChartOfAccounts", _DebitChartOfAccounts, value) + End Set + End Property + Property CreditChartOfAccounts As ChartOfAccounts + Get + Return _CreditChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("CreditChartOfAccounts", _CreditChartOfAccounts, value) + End Set + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGroup1.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGroup1.vb new file mode 100644 index 0000000..c803489 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsGroup1.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class FixedAssetsGroup1 + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _ReportData As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + + _ + _ + ReadOnly Property FixedAssetsGLParameters As XPCollection(Of FixedAssetsGLParameters) + Get + Return GetCollection(Of FixedAssetsGLParameters)("FixedAssetsGLParameters") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsNGParameters.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsNGParameters.vb new file mode 100644 index 0000000..fe557d5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsNGParameters.vb @@ -0,0 +1,95 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsNGParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + + Private _NumberGenerator_UniqueObjects As NumberGenerator + Private _NumberGenerator_Activation As NumberGenerator + Private _NumberGenerator_Decrepation As NumberGenerator + Private _NumberGenerator_Sold As NumberGenerator + Private _NumberGenerator_InventoryShortage As NumberGenerator + Private _NumberGenerator_Disposal As NumberGenerator + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property NumberGenerator_UniqueObjects As NumberGenerator + Get + Return _NumberGenerator_UniqueObjects + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_UniqueObjects", _NumberGenerator_UniqueObjects, value) + End Set + End Property + Property NumberGenerator_Activation As NumberGenerator + Get + Return _NumberGenerator_Activation + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Activation", _NumberGenerator_Activation, value) + End Set + End Property + Property NumberGenerator_Decrepation As NumberGenerator + Get + Return _NumberGenerator_Decrepation + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Decrepation", _NumberGenerator_Decrepation, value) + End Set + End Property + Property NumberGenerator_Sold As NumberGenerator + Get + Return _NumberGenerator_Sold + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Sold", _NumberGenerator_Sold, value) + End Set + End Property + Property NumberGenerator_InventoryShortage As NumberGenerator + Get + Return _NumberGenerator_InventoryShortage + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_InventoryShortage", _NumberGenerator_InventoryShortage, value) + End Set + End Property + Property NumberGenerator_Disposal As NumberGenerator + Get + Return _NumberGenerator_Disposal + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Disposal", _NumberGenerator_Disposal, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryHeader.vb new file mode 100644 index 0000000..36fa6e1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryHeader.vb @@ -0,0 +1,84 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsQueryHeader + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _DateClose As Date + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '//XPCollection + _ + ReadOnly Property FixedAssetsQueryRows As XPCollection(Of FixedAssetsQueryRows) + Get + Return GetCollection(Of FixedAssetsQueryRows)("FixedAssetsQueryRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryRows.vb new file mode 100644 index 0000000..e0aefed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryRows.vb @@ -0,0 +1,132 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsQueryRows + Inherits BaseObject + + + Private _FixedAssetsQueryHeader As FixedAssetsQueryHeader + Private _FixedAssetsCard As FixedAssetsCard + Private _AmountHUFBrutto As Double + Private _AmountHUFBruttoTerminal As Double + Private _AmountHUFDecrepationA As Double + Private _AmountHUFDecrepationTerminalA As Double + Private _AmountHUFNettoA As Double + Private _AmountHUFDecrepationT As Double + Private _AmountHUFDecrepationTerminalT As Double + Private _AmountHUFNettoT As Double + Private _AmountHUFDevelopmentReserve As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property FixedAssetsQueryHeader As FixedAssetsQueryHeader + Get + Return _FixedAssetsQueryHeader + End Get + Set(value As FixedAssetsQueryHeader) + SetPropertyValue("FixedAssetsQueryHeader", _FixedAssetsQueryHeader, value) + End Set + End Property + Property FixedAssetsCard As FixedAssetsCard + Get + Return _FixedAssetsCard + End Get + Set(value As FixedAssetsCard) + SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value) + End Set + End Property + Property AmountHUFBrutto As Double + Get + Return _AmountHUFBrutto + End Get + Set(value As Double) + SetPropertyValue("AmountHUFBrutto", _AmountHUFBrutto, value) + End Set + End Property + Property AmountHUFBruttoTerminal As Double + Get + Return _AmountHUFBruttoTerminal + End Get + Set(value As Double) + SetPropertyValue("AmountHUFBruttoTerminal", _AmountHUFBruttoTerminal, value) + End Set + End Property + Property AmountHUFDecrepationA As Double + Get + Return _AmountHUFDecrepationA + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDecrepationA", _AmountHUFDecrepationA, value) + End Set + End Property + Property AmountHUFDecrepationTerminalA As Double + Get + Return _AmountHUFDecrepationTerminalA + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDecrepationTerminalA", _AmountHUFDecrepationTerminalA, value) + End Set + End Property + Property AmountHUFNettoA As Double + Get + Return _AmountHUFNettoA + End Get + Set(value As Double) + SetPropertyValue("AmountHUFNettoA", _AmountHUFNettoA, value) + End Set + End Property + Property AmountHUFDecrepationT As Double + Get + Return _AmountHUFDecrepationT + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDecrepationT", _AmountHUFDecrepationT, value) + End Set + End Property + Property AmountHUFDecrepationTerminalT As Double + Get + Return _AmountHUFDecrepationTerminalT + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDecrepationTerminalT", _AmountHUFDecrepationTerminalT, value) + End Set + End Property + Property AmountHUFNettoT As Double + Get + Return _AmountHUFNettoT + End Get + Set(value As Double) + SetPropertyValue("AmountHUFNettoT", _AmountHUFNettoT, value) + End Set + End Property + Property AmountHUFDevelopmentReserve As Double + Get + Return _AmountHUFDevelopmentReserve + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.Designer.vb new file mode 100644 index 0000000..ebe3c6a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class FixedAssetsQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateFixedAssetsQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateFixedAssetsQuery + ' + Me.aGenerateFixedAssetsQuery.Caption = "aGenerate Fixed Assets Query" + Me.aGenerateFixedAssetsQuery.ConfirmationMessage = Nothing + Me.aGenerateFixedAssetsQuery.Id = "aGenerateFixedAssetsQuery" + Me.aGenerateFixedAssetsQuery.ImageName = Nothing + Me.aGenerateFixedAssetsQuery.Shortcut = Nothing + Me.aGenerateFixedAssetsQuery.Tag = Nothing + Me.aGenerateFixedAssetsQuery.TargetObjectsCriteria = Nothing + Me.aGenerateFixedAssetsQuery.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsQueryHeader) + Me.aGenerateFixedAssetsQuery.TargetViewId = Nothing + Me.aGenerateFixedAssetsQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateFixedAssetsQuery.ToolTip = Nothing + Me.aGenerateFixedAssetsQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aGenerateFixedAssetsQuery As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.resx new file mode 100644 index 0000000..d229e2e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.vb new file mode 100644 index 0000000..b12bb5e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsQueryVC.vb @@ -0,0 +1,70 @@ +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 + +Public Class FixedAssetsQueryVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aGenerateFixedAssetsQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateFixedAssetsQuery.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsQueryHeader As FixedAssetsQueryHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), FixedAssetsQueryHeader)) + Dim _FixedAssetsCard_Collection As XPCollection(Of FixedAssetsCard) + Dim _FixedAssetsCard As FixedAssetsCard = Nothing + Dim _FixedAssetsQueryRows As FixedAssetsQueryRows = Nothing + + _onew.Delete(_FixedAssetsQueryHeader.FixedAssetsQueryRows) + + _FixedAssetsCard_Collection = New XPCollection(Of FixedAssetsCard)(_onew.Session, CriteriaOperator.Parse("IsEditable=False and IsActivated=True and CustomersFrom=?", _FixedAssetsQueryHeader.CustomersFrom)) + + For Each _FixedAssetsCard In _FixedAssetsCard_Collection + _FixedAssetsQueryRows = _onew.CreateObject(Of FixedAssetsQueryRows)() + _FixedAssetsQueryRows.FixedAssetsQueryHeader = _FixedAssetsQueryHeader + _FixedAssetsQueryRows.FixedAssetsCard = _FixedAssetsCard + + '// CS + Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_onew.Session, CriteriaOperator.Parse("FixedAssetsCard=? and FixedAssetsCardPlanRowsType in (1,3) and DateTo _ + _ + _ +Public Class FixedAssetsTransactions + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _FixedAssetsCard As FixedAssetsCard + Private _RowIndex As Long = 0 + Private _FixedAssets As FixedAssets + Private _DateExecution As Date + Private _DateOpen As Date + Private _FixedAssestsTransactionType As eFixedAssestsTransactionType + Private _AmountHUF As Double = 0 'sszeg + Private _AmountHUFSalvage As Double = 0 'Maradvnyrtk + Private _AmountHUFDevelopmentReserve As Double = 0 'Fejlesztsi tartalk + Private _Description As String 'Megjegyzs + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property FixedAssetsCard As FixedAssetsCard + Get + Return _FixedAssetsCard + End Get + Set(value As FixedAssetsCard) + SetPropertyValue("FixedAssetsCard", _FixedAssetsCard, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property FixedAssets As FixedAssets + Get + Return _FixedAssets + End Get + Set(value As FixedAssets) + SetPropertyValue("FixedAssets", _FixedAssets, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateOpen As Date + Get + Return _DateOpen + End Get + Set(value As Date) + SetPropertyValue("DateOpen", _DateOpen, value) + End Set + End Property + Property FixedAssestsTransactionType As eFixedAssestsTransactionType + Get + Return _FixedAssestsTransactionType + End Get + Set(value As eFixedAssestsTransactionType) + SetPropertyValue("FixedAssestsTransactionType", _FixedAssestsTransactionType, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountHUFSalvage As Double + Get + Return _AmountHUFSalvage + End Get + Set(value As Double) + SetPropertyValue("AmountHUFSalvage", _AmountHUFSalvage, value) + End Set + End Property + Property AmountHUFDevelopmentReserve As Double + Get + Return _AmountHUFDevelopmentReserve + End Get + Set(value As Double) + SetPropertyValue("AmountHUFDevelopmentReserve", _AmountHUFDevelopmentReserve, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingHeader.vb new file mode 100644 index 0000000..7c90094 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingHeader.vb @@ -0,0 +1,168 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eFixedAssetsUsingMoveType + eIn = 0 + eOut = 1 +End Enum +Public Enum eFixedAssetsUsingType + eCustomers = 0 + eHRPerson = 1 + eCostHolder = 2 +End Enum + _ + _ + _ +Public Class FixedAssetsUsingHeader + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _FixedAssetsUsingParameters As FixedAssetsUsingParameters + Private _FixedAssetsUsingType As eFixedAssetsUsingType + Private _HRPerson As HRPerson + Private _Customers As Customers + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _DocumentNumber As String + Private _DateExecution As Date + Private _FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + DocumentNumber = Me.FixedAssetsUsingParameters.NumberGenerator.GetNewNumber(Me.FixedAssetsUsingParameters.NumberGenerator, Year(DateExecution).ToString) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property FixedAssetsUsingParameters As FixedAssetsUsingParameters + Get + Return _FixedAssetsUsingParameters + End Get + Set(value As FixedAssetsUsingParameters) + SetPropertyValue("FixedAssetsUsingParameters", _FixedAssetsUsingParameters, value) + End Set + End Property + Property FixedAssetsUsingType As eFixedAssetsUsingType + Get + Return _FixedAssetsUsingType + End Get + Set(value As eFixedAssetsUsingType) + SetPropertyValue("FixedAssetsUsingType", _FixedAssetsUsingType, value) + End Set + End Property + Property HRperson As HRPerson + Get + Return _HRperson + End Get + Set(value As HRPerson) + SetPropertyValue("HRperson", _HRperson, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPalce As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPalce", _CostPlace, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType + Get + Return _FixedAssetsUsingMoveType + End Get + Set(value As eFixedAssetsUsingMoveType) + SetPropertyValue("FixedAssetsUsingMoveType", _FixedAssetsUsingMoveType, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '-- XPCollection --------------------------------------------------------------------------------- + _ + _ + ReadOnly Property FixedAssetsUsingRows As XPCollection(Of FixedAssetsUsingRows) + Get + Return GetCollection(Of FixedAssetsUsingRows)("FixedAssetsUsingRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingParameters.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingParameters.vb new file mode 100644 index 0000000..be55e76 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingParameters.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsUsingParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _ReportData As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingRows.vb new file mode 100644 index 0000000..d24861b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingRows.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class FixedAssetsUsingRows + Inherits BaseObject + Private _FixedAssetsUsingHeader As FixedAssetsUsingHeader + Private _FixedAssets As FixedAssets + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property FixedAssetsUsingHeader As FixedAssetsUsingHeader + Get + Return _FixedAssetsUsingHeader + End Get + Set(value As FixedAssetsUsingHeader) + SetPropertyValue("FixedAssetsUsingHeader", _FixedAssetsUsingHeader, value) + End Set + End Property + Property FixedAssets As FixedAssets + Get + Return _FixedAssets + End Get + Set(value As FixedAssets) + SetPropertyValue("FixedAssets", _FixedAssets, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.Designer.vb new file mode 100644 index 0000000..fdb3ebc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.Designer.vb @@ -0,0 +1,92 @@ +Partial Class FixedAssetsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToDocuments_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aToDocumentsD_FixAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPrintFixedAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aToDocuments_FixAssets + ' + Me.aToDocuments_FixAssets.AcceptButtonCaption = Nothing + Me.aToDocuments_FixAssets.CancelButtonCaption = Nothing + Me.aToDocuments_FixAssets.Caption = "aToDocuments_FixAssets" + Me.aToDocuments_FixAssets.ConfirmationMessage = Nothing + Me.aToDocuments_FixAssets.Id = "aToDocuments_FixAssets" + Me.aToDocuments_FixAssets.ImageName = Nothing + Me.aToDocuments_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aToDocuments_FixAssets.Shortcut = Nothing + Me.aToDocuments_FixAssets.Tag = Nothing + Me.aToDocuments_FixAssets.TargetObjectsCriteria = Nothing + Me.aToDocuments_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aToDocuments_FixAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssets) + Me.aToDocuments_FixAssets.TargetViewId = Nothing + Me.aToDocuments_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aToDocuments_FixAssets.ToolTip = Nothing + Me.aToDocuments_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aToDocumentsD_FixAssets + ' + Me.aToDocumentsD_FixAssets.AcceptButtonCaption = Nothing + Me.aToDocumentsD_FixAssets.CancelButtonCaption = Nothing + Me.aToDocumentsD_FixAssets.Caption = "aToDocumentsD_FixAssets" + Me.aToDocumentsD_FixAssets.ConfirmationMessage = Nothing + Me.aToDocumentsD_FixAssets.Id = "aToDocumentsD_FixAssets" + Me.aToDocumentsD_FixAssets.ImageName = Nothing + Me.aToDocumentsD_FixAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aToDocumentsD_FixAssets.Shortcut = Nothing + Me.aToDocumentsD_FixAssets.Tag = Nothing + Me.aToDocumentsD_FixAssets.TargetObjectsCriteria = Nothing + Me.aToDocumentsD_FixAssets.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aToDocumentsD_FixAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssets) + Me.aToDocumentsD_FixAssets.TargetViewId = Nothing + Me.aToDocumentsD_FixAssets.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aToDocumentsD_FixAssets.ToolTip = Nothing + Me.aToDocumentsD_FixAssets.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aPrintFixedAssets + ' + Me.aPrintFixedAssets.Caption = "aPrintFixedAssets" + Me.aPrintFixedAssets.ConfirmationMessage = Nothing + Me.aPrintFixedAssets.Id = "aPrintFixedAssets" + Me.aPrintFixedAssets.ImageName = Nothing + Me.aPrintFixedAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintFixedAssets.Shortcut = Nothing + Me.aPrintFixedAssets.Tag = Nothing + Me.aPrintFixedAssets.TargetObjectsCriteria = Nothing + Me.aPrintFixedAssets.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsUsingHeader) + Me.aPrintFixedAssets.TargetViewId = Nothing + Me.aPrintFixedAssets.ToolTip = Nothing + Me.aPrintFixedAssets.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aToDocuments_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aToDocumentsD_FixAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPrintFixedAssets As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.resx new file mode 100644 index 0000000..5cf8060 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 205, 17 + + + 210, 54 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.vb new file mode 100644 index 0000000..01fb5db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsVC.vb @@ -0,0 +1,234 @@ +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.Persistent.Validation +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.Persistent.BaseImpl + +Public Class FixedAssetsVC + Inherits DevExpress.ExpressApp.ViewController + Protected _selection As ArrayList + Private _noselect As Boolean = False + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + _selection = New ArrayList() + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id Like "FixedAssets_ListView*" Then + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End If + If View.Id = "FixedAssetsUsingPopup_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf FixedAssetsUsingPopup_DetailViewAcceptAction_Executing + End If + End Sub + + Private Sub aToDocuments_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocuments_FixAssets.Cancel + _noselect = False + End Sub + Private Sub aToDocuments_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocuments_FixAssets.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)() + _FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut + e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup) + End Sub + Private Sub aToDocuments_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocuments_FixAssets.Execute + '// Trgyieszkz kiadsa + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup) + Dim _FixedAssets As FixedAssets + Dim I As Long = 0 + Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing + Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing + + For Each _FixedAssets In _selection + If I = 0 Then + '--Fejlc ... + _FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)() + _FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom) + _FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eOut + _FixedAssetsUsingHeader.FixedAssetsUsingType = _FixedAssetsUsingPopup.FixedAssetsUsingType + _FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters) + _FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution + Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType + Case eFixedAssetsUsingType.eCostHolder + _FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder) + Case eFixedAssetsUsingType.eCustomers + _FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssetsUsingPopup.Customers) + Case eFixedAssetsUsingType.eHRPerson + _FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson) + End Select + I += 1 + End If + + '-- Sorok + _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)() + _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader + _FixedAssetsUsingRows.FixedAssets = _FixedAssets + + _FixedAssets.CostHolder_Using = Nothing + _FixedAssets.HRPerson_Using = Nothing + _FixedAssets.Customers_Using = Nothing + + Select Case _FixedAssetsUsingPopup.FixedAssetsUsingType + Case eFixedAssetsUsingType.eCostHolder + _FixedAssets.CostHolder_Using = _ocur.GetObject(_FixedAssetsUsingPopup.CostHolder) + Case eFixedAssetsUsingType.eCustomers + _FixedAssets.Customers_Using = _ocur.GetObject(_FixedAssetsUsingPopup.Customers) + Case eFixedAssetsUsingType.eHRPerson + _FixedAssets.HRPerson_Using = _ocur.GetObject(_FixedAssetsUsingPopup.HRPerson) + End Select + Next + _ocur.CommitChanges() + View.Refresh() + + _noselect = False + + Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva riport!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True) + End Sub + + Private Sub view_SelectionChanged(sender As Object, e As EventArgs) + Dim i As Long = 0 + Dim _FixedAssets As FixedAssets + + If View Is Nothing Then Exit Sub + + If View.Id Like "FixedAssets_ListView*" Then + If _noselect = False Then + _selection.Clear() + For Each _FixedAssets In View.SelectedObjects + _selection.Add(_FixedAssets) + Next + End If + End If + End Sub + + Private Sub aToDocumentsD_FixAssets_Cancel(sender As Object, e As System.EventArgs) Handles aToDocumentsD_FixAssets.Cancel + _noselect = False + End Sub + Private Sub aToDocumentsD_FixAssets_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToDocumentsD_FixAssets.CustomizePopupWindowParams + _noselect = True + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = _onew.CreateObject(Of FixedAssetsUsingPopup)() + _FixedAssetsUsingPopup.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn + e.View = Application.CreateDetailView(_onew, "FixedAssetsUsingPopup_DetailView", True, _FixedAssetsUsingPopup) + End Sub + Private Sub aToDocumentsD_FixAssets_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToDocumentsD_FixAssets.Execute + '// Trgyieszkz visszavtele + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsUsingPopup As FixedAssetsUsingPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsUsingPopup) + Dim _FixedAssets As FixedAssets = Nothing + Dim _FixedAssets_Base As FixedAssets = Nothing + Dim I As Long = 0 + Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = Nothing + Dim _FixedAssetsUsingRows As FixedAssetsUsingRows = Nothing + + For Each _FixedAssets In _selection + If I = 0 Then + '--Fejlc ... + _FixedAssets_Base = _FixedAssets + _FixedAssetsUsingHeader = _ocur.CreateObject(Of FixedAssetsUsingHeader)() + _FixedAssetsUsingHeader.CustomersFrom = _ocur.GetObject(_FixedAssets.CustomersFrom) + _FixedAssetsUsingHeader.FixedAssetsUsingMoveType = eFixedAssetsUsingMoveType.eIn + + _FixedAssetsUsingHeader.FixedAssetsUsingParameters = _ocur.GetObject(_FixedAssetsUsingPopup.FixedAssetsUsingParameters) + _FixedAssetsUsingHeader.DateExecution = _FixedAssetsUsingPopup.DateExecution + If _FixedAssets.Customers_Using IsNot Nothing Then + _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCustomers + _FixedAssetsUsingHeader.Customers = _ocur.GetObject(_FixedAssets.Customers_Using) + End If + If _FixedAssets.HRPerson_Using IsNot Nothing Then + _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eHRPerson + _FixedAssetsUsingHeader.HRperson = _ocur.GetObject(_FixedAssets.HRPerson_Using) + End If + If _FixedAssets.CostHolder_Using IsNot Nothing Then + _FixedAssetsUsingHeader.FixedAssetsUsingType = eFixedAssetsUsingType.eCostHolder + _FixedAssetsUsingHeader.CostHolder = _ocur.GetObject(_FixedAssets.CostHolder_Using) + End If + + + End If + If I = 0 Then + '-- Sorok + _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)() + _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader + _FixedAssetsUsingRows.FixedAssets = _FixedAssets + + _FixedAssets.CostHolder_Using = Nothing + _FixedAssets.HRPerson_Using = Nothing + _FixedAssets.Customers_Using = Nothing + Else + If _FixedAssets.CostHolder_Using Is _FixedAssets_Base.CostHolder_Using And _FixedAssets.CostHolder_Using IsNot Nothing Then + '-- Sorok + _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)() + _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader + _FixedAssetsUsingRows.FixedAssets = _FixedAssets + + _FixedAssets.CostHolder_Using = Nothing + _FixedAssets.HRPerson_Using = Nothing + _FixedAssets.Customers_Using = Nothing + ElseIf _FixedAssets.Customers_Using Is _FixedAssets_Base.Customers_Using And _FixedAssets.Customers_Using IsNot Nothing Then + '-- Sorok + _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)() + _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader + _FixedAssetsUsingRows.FixedAssets = _FixedAssets + + _FixedAssets.CostHolder_Using = Nothing + _FixedAssets.HRPerson_Using = Nothing + _FixedAssets.Customers_Using = Nothing + ElseIf _FixedAssets.HRPerson_Using Is _FixedAssets_Base.HRPerson_Using And _FixedAssets.HRPerson_Using IsNot Nothing Then + '-- Sorok + _FixedAssetsUsingRows = _ocur.CreateObject(Of FixedAssetsUsingRows)() + _FixedAssetsUsingRows.FixedAssetsUsingHeader = _FixedAssetsUsingHeader + _FixedAssetsUsingRows.FixedAssets = _FixedAssets + + _FixedAssets.CostHolder_Using = Nothing + _FixedAssets.HRPerson_Using = Nothing + _FixedAssets.Customers_Using = Nothing + End If + + End If + + + I = 1 + Next + _ocur.CommitChanges() + View.Refresh() + + Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva riport!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True) + End Sub + + Private Sub FixedAssetsUsingPopup_DetailViewAcceptAction_Executing(sender As Object, e As CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts") + End Sub + + Private Sub aPrintFixedAssets_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintFixedAssets.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsUsingHeader As FixedAssetsUsingHeader = TryCast(View.SelectedObjects(0), FixedAssetsUsingHeader) + If _FixedAssetsUsingHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _ReportData As ReportData = _FixedAssetsUsingHeader.FixedAssetsUsingParameters.ReportData + If _ReportData Is Nothing Then Throw New Exception("*Nincs belltva riport!") + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, DevExpress.Data.Filtering.CriteriaOperator.Parse("FixedAssetsUsingHeader.DocumentNumber =?", _FixedAssetsUsingHeader.DocumentNumber), True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.Designer.vb new file mode 100644 index 0000000..16a03a8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.Designer.vb @@ -0,0 +1,123 @@ +Partial Class FixedassetsCardVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aFinalize_FixedAssetsCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFixedAssetsCard_Terminate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFixedAssetsCard_ReActivate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aFixedAssetsCard_Activate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFixedAssetsCard_Terminate_Storno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFixedAssetsCard_Activate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFixedAssetsCard_OpenYear = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aFinalize_FixedAssetsCard + ' + Me.aFinalize_FixedAssetsCard.Caption = "aFinalize_FixedAssetsCard" + Me.aFinalize_FixedAssetsCard.ConfirmationMessage = Nothing + Me.aFinalize_FixedAssetsCard.Id = "aFinalize_FixedAssetsCard" + Me.aFinalize_FixedAssetsCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFinalize_FixedAssetsCard.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFinalize_FixedAssetsCard.ToolTip = Nothing + Me.aFinalize_FixedAssetsCard.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFixedAssetsCard_Terminate + ' + Me.aFixedAssetsCard_Terminate.AcceptButtonCaption = Nothing + Me.aFixedAssetsCard_Terminate.CancelButtonCaption = Nothing + Me.aFixedAssetsCard_Terminate.Caption = "aFixedAssetsCard_Terminate" + Me.aFixedAssetsCard_Terminate.ConfirmationMessage = Nothing + Me.aFixedAssetsCard_Terminate.Id = "aFixedAssetsCard_Terminate" + Me.aFixedAssetsCard_Terminate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFixedAssetsCard_Terminate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_Terminate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aFixedAssetsCard_Terminate.ToolTip = Nothing + Me.aFixedAssetsCard_Terminate.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aFixedAssetsCard_ReActivate + ' + Me.aFixedAssetsCard_ReActivate.AcceptButtonCaption = Nothing + Me.aFixedAssetsCard_ReActivate.CancelButtonCaption = Nothing + Me.aFixedAssetsCard_ReActivate.Caption = "aFixedAssetsCard_ReActivate" + Me.aFixedAssetsCard_ReActivate.ConfirmationMessage = Nothing + Me.aFixedAssetsCard_ReActivate.Id = "aFixedAssetsCard_ReActivate" + Me.aFixedAssetsCard_ReActivate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aFixedAssetsCard_ReActivate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_ReActivate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aFixedAssetsCard_ReActivate.ToolTip = Nothing + Me.aFixedAssetsCard_ReActivate.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aFixedAssetsCard_Activate_Storno + ' + Me.aFixedAssetsCard_Activate_Storno.Caption = "aFixedAssetsCard_Activate_Storno" + Me.aFixedAssetsCard_Activate_Storno.ConfirmationMessage = "Are you sure ?" + Me.aFixedAssetsCard_Activate_Storno.Id = "aFixedAssetsCard_Activate_Storno" + Me.aFixedAssetsCard_Activate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFixedAssetsCard_Activate_Storno.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_Activate_Storno.ToolTip = Nothing + Me.aFixedAssetsCard_Activate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFixedAssetsCard_Terminate_Storno + ' + Me.aFixedAssetsCard_Terminate_Storno.Caption = "aFixedAssetsCard_Terminate_Storno" + Me.aFixedAssetsCard_Terminate_Storno.ConfirmationMessage = "Are you sure ?" + Me.aFixedAssetsCard_Terminate_Storno.Id = "aFixedAssetsCard_Terminate_Storno" + Me.aFixedAssetsCard_Terminate_Storno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFixedAssetsCard_Terminate_Storno.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_Terminate_Storno.ToolTip = Nothing + Me.aFixedAssetsCard_Terminate_Storno.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFixedAssetsCard_Activate + ' + Me.aFixedAssetsCard_Activate.Caption = "aFixedAssetsCard_Activate" + Me.aFixedAssetsCard_Activate.ConfirmationMessage = "Are you sure ?" + Me.aFixedAssetsCard_Activate.Id = "aFixedAssetsCard_Activate" + Me.aFixedAssetsCard_Activate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aFixedAssetsCard_Activate.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_Activate.ToolTip = Nothing + Me.aFixedAssetsCard_Activate.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aFixedAssetsCard_OpenYear + ' + Me.aFixedAssetsCard_OpenYear.AcceptButtonCaption = Nothing + Me.aFixedAssetsCard_OpenYear.CancelButtonCaption = Nothing + Me.aFixedAssetsCard_OpenYear.Caption = "aFixedAssetsCard_OpenYear" + Me.aFixedAssetsCard_OpenYear.ConfirmationMessage = Nothing + Me.aFixedAssetsCard_OpenYear.Id = "aFixedAssetsCard_OpenYear" + Me.aFixedAssetsCard_OpenYear.TargetObjectType = GetType(SISBusiness.[Module].FixedAssetsCard) + Me.aFixedAssetsCard_OpenYear.ToolTip = Nothing + + End Sub + Friend WithEvents aFinalize_FixedAssetsCard As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFixedAssetsCard_Terminate As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFixedAssetsCard_ReActivate As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aFixedAssetsCard_Activate_Storno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFixedAssetsCard_Terminate_Storno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFixedAssetsCard_Activate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFixedAssetsCard_OpenYear As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.resx new file mode 100644 index 0000000..89b46f4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 56 + + + 17, 251 + + + 17, 212 + + + 17, 173 + + + 250, 251 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.vb new file mode 100644 index 0000000..ee1f285 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedassetsCardVC.vb @@ -0,0 +1,1406 @@ +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 System.Linq +Imports DevExpress.ExpressApp.Model + + +Public Class FixedassetsCardVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + 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 = "FixedAssetsCard_OpenYear_PopUp_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf FixedAssetsCard_OpenYear_PopUp_AcceptAction_Executing + End If + End Sub + Private Sub aFinalize_FixedAssetsCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_FixedAssetsCard.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard As FixedAssetsCard + For Each _FixedAssetsCard In View.SelectedObjects + If _FixedAssetsCard.IsActivated = True Then + Activate_FixedAssets(_ocur, _FixedAssetsCard) + End If + Next + + If TryCast(View, DetailView) IsNot Nothing Then + View.Close() + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba!") + End Try + + End Sub + Private Sub aFixedAssetsCard_ReActivate_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFixedAssetsCard_ReActivate.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsReactivationPopup As FixedAssetsReactivationPopup = _onew.CreateObject(Of FixedAssetsReactivationPopup)() + _FixedAssetsReactivationPopup.DateExecution = GetSQLTime(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "FixedAssetsReactivationPopup_DetailView", False, _FixedAssetsReactivationPopup) + End Sub + Private Sub aFixedAssetsCard_ReActivate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFixedAssetsCard_ReActivate.Execute + + End Sub + Private Sub aFixedAssetsCard_Terminate_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFixedAssetsCard_Terminate.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsTerminatePopup As FixedAssetsTerminatePopup = _onew.CreateObject(Of FixedAssetsTerminatePopup)() + _FixedAssetsTerminatePopup.DateExecution = GetSQLTime(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "FixedAssetsTerminatePopup_DetailView", False, _FixedAssetsTerminatePopup) + End Sub + Private Sub aFixedAssetsCard_Terminate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFixedAssetsCard_Terminate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard As FixedAssetsCard = TryCast(View.SelectedObjects(0), FixedAssetsCard) + Dim _FixedAssetsTerminatePopup As FixedAssetsTerminatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsTerminatePopup) + If _FixedAssetsCard IsNot Nothing Then + If _FixedAssetsCard.IsTerminal = False And _FixedAssetsCard.IsActivated = True And _FixedAssetsCard.IsEditable = False Then + Terminate_FixedAssets(_ocur, _FixedAssetsCard, _FixedAssetsTerminatePopup) + End If + End If + End Sub + Private Sub aFixedAssetsCard_Terminate_Storno_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFixedAssetsCard_Terminate_Storno.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard As FixedAssetsCard = TryCast(View.SelectedObjects(0), FixedAssetsCard) + If _FixedAssetsCard IsNot Nothing Then + If _FixedAssetsCard.IsTerminal = True Then + Terminate_Storno_FixedAssets(_ocur, _FixedAssetsCard) + End If + End If + End Sub + Private Sub aFixedAssetsCard_Activate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFixedAssetsCard_Activate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard As FixedAssetsCard + For Each _FixedAssetsCard In View.SelectedObjects + If _FixedAssetsCard.IsActivated = False Then + Activate_FixedAssets(_ocur, _FixedAssetsCard) + If Not _FixedAssetsCard.IsNew Then + RegenerateReceivedFromAnotherSystem(_ocur, _FixedAssetsCard) + End If + End If + Next + End Sub + Private Sub aFixedAssetsCard_Activate_Storno_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aFixedAssetsCard_Activate_Storno.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard As FixedAssetsCard + For Each _FixedAssetsCard In View.SelectedObjects + If _FixedAssetsCard.IsActivated = True Then + Activate_Storno_FixedAssets(_ocur, _FixedAssetsCard) + End If + Next + End Sub + Private Sub aFixedAssetsCard_OpenYear_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aFixedAssetsCard_OpenYear.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _FixedAssetsCard_OpenYear_PopUp As New FixedAssetsCard_OpenYear_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "FixedAssetsCard_OpenYear_PopUp_DetailView", False, _FixedAssetsCard_OpenYear_PopUp) + End Sub + Private Sub aFixedAssetsCard_OpenYear_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aFixedAssetsCard_OpenYear.Execute + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _FixedAssetsCard_Collection As New XPCollection(Of FixedAssetsCard)(_ocur.Session, CriteriaOperator.Parse("IsTerminal=False AND IsActivated=True AND IsEditable=False")) + Dim _NewYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), FixedAssetsCard_OpenYear_PopUp).TargetYear + + If _FixedAssetsCard_Collection.Count > 0 Then + For Each _FixedAssetsCard As FixedAssetsCard In _FixedAssetsCard_Collection + Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_ocur.Session, CriteriaOperator.Parse("FixedAssetsCard=?", _FixedAssetsCard)) + + If _FixedAssetsCardPlanRows_Collection.Count > 0 Then + Dim _FixedAssetsCardPlanRows_Collection_NEW As New ArrayList + _FixedAssetsCardPlanRows_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Dim _FixedAssetsCardPlanRows_Activated As FixedAssetsCardPlanRows = _FixedAssetsCardPlanRows_Collection(_FixedAssetsCardPlanRows_Collection.Count - 1) + 'CS + Dim _DecrepationPeriodAmountACC As Double = 0 + Dim _DecrepationPeriodAmountTAX As Double = 0 + + Dim _StartDate As Date = _FixedAssetsCardPlanRows_Activated.DateTo.AddDays(1) + Dim _EndDate As New Date(_NewYear, 12, 31) + Dim _FullDayCount As Long = DateDiff(DateInterval.Day, _StartDate, _EndDate) + Dim _RowIndex As Long = _FixedAssetsCardPlanRows_Collection(_FixedAssetsCardPlanRows_Collection.Count - 1).RowIndex + 1 + Select Case _FixedAssetsCard.DCPAccounting.FixedAssetsPeriod + Case eFixedAssetsPeriod.eMonth + '_DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 / 12 + '_DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 / 12 + + 'Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + 'Dim _DateFrom As Date = _StartDate + 'Dim _DateTo As Date = New Date(_ActYear.Year, _ActYear.Month + 1, 1).AddDays(-1) + 'Do + ' Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + ' With _FixedAssetsCardPlanRows + ' .FixedAssetsCard = _FixedAssetsCard + ' .RowIndex = _RowIndex + ' .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + ' .DateFrom = _DateFrom + ' .DateTo = _DateTo + ' .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + ' .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + ' .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + ' .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + ' .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + ' End With + + ' _RowIndex += 1 + ' _ActYear = _DateTo + ' _DateFrom = _DateTo.AddDays(1) + ' _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(1)).AddDays(-1) + ' _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + 'Loop While New Date(Now.Year, Now.Month + 1, 1).AddDays(-1) >= _ActYear + + 'Dim _NettoHUFBallanceACC As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceACC + 'Dim _NettoHUFBallanceTAX As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceTAX + 'Dim _BruttoHUFBallance As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).BruttoHUFBallance + 'For ik = 1 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + ' Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + ' With _FixedAssetsCardPlanRows + ' Dim _ActMounthDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, .DateFrom.Month, 1), .DateTo) + 1 + ' .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + ' .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + ' .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + ' .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + ' If _NettoHUFBallanceACC <> 0 Then + ' If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + ' .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + ' .NettoHUFBallanceACC = .SalvageHUF + ' _NettoHUFBallanceACC = 0 + ' .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + ' Else + ' .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + ' End If + ' Else + ' .NettoHUFBallanceACC = .SalvageHUF + ' .DayDecrepationACC = 0 + ' .DecrepationHUFACC = 0 + ' .DayCountACC = 0 + ' End If + ' If _NettoHUFBallanceTAX <> 0 Then + ' If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + ' .DecrepationHUFTAX = _NettoHUFBallanceTAX + ' .NettoHUFBallanceTAX = 0 + ' _NettoHUFBallanceTAX = 0 + ' .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + ' Else + ' .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + ' End If + ' Else + ' .NettoHUFBallanceTAX = 0 + ' .DayDecrepationTAX = 0 + ' .DecrepationHUFTAX = 0 + ' .DayCountTAX = 0 + ' End If + ' .BruttoHUF = 0 + ' .BruttoHUFBallance = _BruttoHUFBallance + + ' End With + ' If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + ' _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + ' End If + ' If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + ' _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + ' End If + ' _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + 'Next + Case eFixedAssetsPeriod.eQuarter + '_DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Collection(0).BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 / 4 + '_DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Collection(0).BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 / 4 + + 'Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + + 'Dim _DateFrom As Date = _StartDate + 'Dim _DateTo As Date + 'If _StartDate >= New Date(_StartDate.Year, 1, 1) And _StartDate <= New Date(_StartDate.Year, 3, 31) Then + ' _DateTo = New Date(_StartDate.Year, 3, 31) + 'End If + 'If _StartDate >= New Date(_StartDate.Year, 4, 1) And _StartDate <= New Date(_StartDate.Year, 6, 30) Then + ' _DateTo = New Date(_StartDate.Year, 6, 30) + 'End If + 'If _StartDate >= New Date(_StartDate.Year, 7, 1) And _StartDate <= New Date(_StartDate.Year, 9, 30) Then + ' _DateTo = New Date(_StartDate.Year, 9, 30) + 'End If + 'If _StartDate >= New Date(_StartDate.Year, 10, 1) And _StartDate <= New Date(_StartDate.Year, 12, 31) Then + ' _DateTo = New Date(_StartDate.Year, 12, 31) + 'End If + + 'Do + ' Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + ' With _FixedAssetsCardPlanRows + ' .FixedAssetsCard = _FixedAssetsCard + ' .RowIndex = _RowIndex + ' .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + ' .DateFrom = _DateFrom + ' .DateTo = _DateTo + ' .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + ' .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + ' .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + ' .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + ' .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + ' End With + + ' _RowIndex += 1 + ' _ActYear = _DateTo + ' _DateFrom = _DateTo.AddDays(1) + ' _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(3)).AddDays(-1) + ' _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + 'Loop While _EndDate >= _ActYear + + 'Dim _NettoHUFBallanceACC As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceACC + 'Dim _NettoHUFBallanceTAX As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceTAX + 'Dim _BruttoHUFBallance As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).BruttoHUFBallance + 'For ik = 1 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + ' Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + ' With _FixedAssetsCardPlanRows + ' Dim _ActQuarterDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + ' .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + ' .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + ' .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + ' .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + ' If _NettoHUFBallanceACC <> 0 Then + ' If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + ' .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + ' .NettoHUFBallanceACC = .SalvageHUF + ' _NettoHUFBallanceACC = 0 + ' .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + ' Else + ' .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + ' End If + ' Else + ' .NettoHUFBallanceACC = .SalvageHUF + ' .DayDecrepationACC = 0 + ' .DecrepationHUFACC = 0 + ' .DayCountACC = 0 + ' End If + ' If _NettoHUFBallanceTAX <> 0 Then + ' If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + ' .DecrepationHUFTAX = _NettoHUFBallanceTAX + ' .NettoHUFBallanceTAX = 0 + ' _NettoHUFBallanceTAX = 0 + ' .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + ' Else + ' .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + ' End If + ' Else + ' .NettoHUFBallanceTAX = 0 + ' .DayDecrepationTAX = 0 + ' .DecrepationHUFTAX = 0 + ' .DayCountTAX = 0 + ' End If + ' .BruttoHUF = 0 + ' .BruttoHUFBallance = _BruttoHUFBallance + + ' End With + ' If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + ' _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + ' End If + ' If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + ' _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + ' End If + ' _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + 'Next + Case eFixedAssetsPeriod.eYear + _DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Collection(0).BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 + _DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Collection(0).BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 + + Dim _ActYear As Long = _StartDate.Year + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = New Date(_ActYear + 1, 1, 1).AddDays(-1) + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + End With + + _RowIndex += 1 + _ActYear += 1 + _DateFrom = _DateTo.AddDays(1) + _DateTo = New Date(_DateFrom.Year + 1, 1, 1).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While _NewYear >= _ActYear + + Dim _NettoHUFBallanceACC As Double = _FixedAssetsCardPlanRows_Activated.NettoHUFBallanceACC + Dim _NettoHUFBallanceTAX As Double = _FixedAssetsCardPlanRows_Activated.NettoHUFBallanceTAX + Dim _BruttoHUFBallance As Double = _FixedAssetsCardPlanRows_Activated.BruttoHUFBallance + For ik = 0 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActYearDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, 1, 1), .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + Next + End Select + End If + + _FixedAssetsCard.IsEditable = False + _FixedAssetsCard.IsActivated = True + _ocur.CommitChanges() + + + + + Next + + End If + + End Sub +#Region "FIXED ASSETS TRANSACTIONS" + Private Sub Activate_FixedAssets(_ocur As Xpo.XPObjectSpace, _FixedAssetsCard As FixedAssetsCard) + + Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_ocur.Session, CriteriaOperator.Parse("FixedAssetsCard=?", _FixedAssetsCard)) + If _FixedAssetsCardPlanRows_Collection.Count > 0 Then Throw New Exception(String.Format("A(z) {0} trgyieszkz mr aktivlva lett!", _FixedAssetsCard.UniqueObjects.Name)) + + + + Dim _FixedAssetsCardPlanRows_Collection_NEW As New ArrayList + + Dim _FixedAssetsCardPlanRows_Activated As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_Activated + .FixedAssetsCard = _FixedAssetsCard + .DateFrom = _FixedAssetsCard.DateActivation + .DateTo = _FixedAssetsCard.DateActivation + .RowIndex = 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eActivated + .DateExecution = _FixedAssetsCard.DateActivation + .DayCountACC = 0 + .DayCountTAX = 0 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .BruttoHUF = _FixedAssetsCard.AmountHUFBrutto + .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + .SalvageHUFBallance = .SalvageHUF + .DayDecrepationTAX = 0 + .DayDecrepationACC = 0 + .BruttoHUFBallance = .BruttoHUF + .DecrepationHUFACC = 0 + .NettoHUFBallanceACC = .BruttoHUFBallance - .DecrepationHUFACC + .DecrepationHUFTAX = 0 + .NettoHUFBallanceTAX = .BruttoHUFBallance - .DecrepationHUFTAX + .BruttoHUFTerminal = 0 + .NettoHUFTerminalACC = 0 + End With + + If _FixedAssetsCard.DCPAccounting.FixedAssetsSpecies = eFixedAssetsSpecies.eSmallValueOfFixedAssets Then + '// Kisrtk esetn !!! + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = 2 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _FixedAssetsCard.DateActivation + .DateTo = _FixedAssetsCard.DateActivation + .DayCountACC = 1 + .DayCountTAX = 1 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .SalvageHUF = 0 + .BruttoHUFBallance = _FixedAssetsCard.AmountHUFBrutto + .DecrepationHUFACC = _FixedAssetsCard.AmountHUFBrutto + .NettoHUFBallanceACC = 0 + .DecrepationHUFTAX = _FixedAssetsCard.AmountHUFBrutto + .NettoHUFBallanceTAX = 0 + End With + Else + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows_Activated) + + 'CS + Dim _DecrepationPeriodAmountACC As Double = 0 + Dim _DecrepationPeriodAmountTAX As Double = 0 + + Dim _StartDate As Date = _FixedAssetsCard.DateActivation + Dim _EndDate As New Date(Now.Year, 12, 31) + Dim _FullDayCount As Long = DateDiff(DateInterval.Day, _StartDate, _EndDate) + Dim _RowIndex As Long = 2 + Select Case _FixedAssetsCard.DCPAccounting.FixedAssetsPeriod + Case eFixedAssetsPeriod.eMonth + _DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 / 12 + _DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 / 12 + + Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = New Date(_ActYear.Year, _ActYear.Month + 1, 1).AddDays(-1) + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + End With + + _RowIndex += 1 + _ActYear = _DateTo + _DateFrom = _DateTo.AddDays(1) + _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(1)).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While New Date(Now.Year, Now.Month + 1, 1).AddDays(-1) >= _ActYear + + Dim _NettoHUFBallanceACC As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceACC + Dim _NettoHUFBallanceTAX As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceTAX + Dim _BruttoHUFBallance As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).BruttoHUFBallance + For ik = 1 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActMounthDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, .DateFrom.Month, 1), .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + Next + Case eFixedAssetsPeriod.eQuarter + _DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 / 4 + _DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 / 4 + + Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date + If _StartDate >= New Date(_StartDate.Year, 1, 1) And _StartDate <= New Date(_StartDate.Year, 3, 31) Then + _DateTo = New Date(_StartDate.Year, 3, 31) + End If + If _StartDate >= New Date(_StartDate.Year, 4, 1) And _StartDate <= New Date(_StartDate.Year, 6, 30) Then + _DateTo = New Date(_StartDate.Year, 6, 30) + End If + If _StartDate >= New Date(_StartDate.Year, 7, 1) And _StartDate <= New Date(_StartDate.Year, 9, 30) Then + _DateTo = New Date(_StartDate.Year, 9, 30) + End If + If _StartDate >= New Date(_StartDate.Year, 10, 1) And _StartDate <= New Date(_StartDate.Year, 12, 31) Then + _DateTo = New Date(_StartDate.Year, 12, 31) + End If + + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + End With + + _RowIndex += 1 + _ActYear = _DateTo + _DateFrom = _DateTo.AddDays(1) + _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(3)).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While _EndDate >= _ActYear + + Dim _NettoHUFBallanceACC As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceACC + Dim _NettoHUFBallanceTAX As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceTAX + Dim _BruttoHUFBallance As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).BruttoHUFBallance + For ik = 1 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActQuarterDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + Next + Case eFixedAssetsPeriod.eYear + _DecrepationPeriodAmountACC = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyACC / 100 + _DecrepationPeriodAmountTAX = _FixedAssetsCardPlanRows_Activated.BruttoHUF * _FixedAssetsCardPlanRows_Activated.KeyTax / 100 + + Dim _ActYear As Long = _StartDate.Year + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = New Date(_ActYear + 1, 1, 1).AddDays(-1) + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCard.DCPAccounting.DecrepationPercent + .KeyTax = _FixedAssetsCard.DCPTax.DecrepationPercent + .SalvageHUF = _FixedAssetsCard.AmountHUFSalvage + End With + + _RowIndex += 1 + _ActYear += 1 + _DateFrom = _DateTo.AddDays(1) + _DateTo = New Date(_DateFrom.Year + 1, 1, 1).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While Now.Year >= _ActYear + + Dim _NettoHUFBallanceACC As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceACC + Dim _NettoHUFBallanceTAX As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).NettoHUFBallanceTAX + Dim _BruttoHUFBallance As Double = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(0), FixedAssetsCardPlanRows).BruttoHUFBallance + For ik = 1 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActYearDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, 1, 1), .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + Next + End Select + End If + + _FixedAssetsCard.IsEditable = False + _FixedAssetsCard.IsActivated = True + _ocur.CommitChanges() + + End Sub + Private Sub Activate_Storno_FixedAssets(_ocur As Xpo.XPObjectSpace, _FixedAssetsCard As FixedAssetsCard) + If _FixedAssetsCard.IsActivated Then + Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_ocur.Session, CriteriaOperator.Parse("FixedAssetsCard=?", _FixedAssetsCard)) + If _FixedAssetsCardPlanRows_Collection.Count > 0 Then + _ocur.Delete(_FixedAssetsCardPlanRows_Collection) + End If + _FixedAssetsCard.IsActivated = False + _ocur.CommitChanges() + End If + End Sub + Private Sub Terminate_FixedAssets(_ocur As Xpo.XPObjectSpace, _FixedAssetsCard As FixedAssetsCard, _FixedAssetsTerminatePopup As FixedAssetsTerminatePopup) + Dim _FixedAssetsCardPlanRows_Collection_DEL As New ArrayList + + If _FixedAssetsTerminatePopup IsNot Nothing Then + Select Case _FixedAssetsCard.DCPAccounting.FixedAssetsPeriod + Case eFixedAssetsPeriod.eMonth + Dim _TerminalStart As Date = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, _FixedAssetsTerminatePopup.DateExecution.Month, 1) + Dim _TerminalEnd As Date = (New Date(_FixedAssetsTerminatePopup.DateExecution.Year, _FixedAssetsTerminatePopup.DateExecution.Month, 1).AddMonths(1)).AddDays(-1) + + Dim _LastRowIndex = 0 + + _FixedAssetsCard.FixedAssetsCardPlanRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + For Each _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows In _FixedAssetsCard.FixedAssetsCardPlanRows + If _FixedAssetsCardPlanRows.DateFrom = _TerminalStart And _FixedAssetsCardPlanRows.DateTo = _TerminalEnd Then + _LastRowIndex = _FixedAssetsCardPlanRows.RowIndex - 1 + End If + If _LastRowIndex <> 0 Then + _FixedAssetsCardPlanRows_Collection_DEL.Add(_FixedAssetsCardPlanRows) + End If + Next + + Dim _FixedAssetsCardPlanRows_LastAvilable As FixedAssetsCardPlanRows = _ocur.FindObject(Of FixedAssetsCardPlanRows)(CriteriaOperator.Parse("FixedAssetsCard=? AND RowIndex=?", _FixedAssetsCard, _LastRowIndex)) + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyACC / 100 / 12 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyTax / 100 / 12 + + Dim _FixedAssetsCardPlanRows_NEW As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_NEW + .DateFrom = _FixedAssetsCardPlanRows_LastAvilable.DateTo.AddDays(1) + .DateTo = _FixedAssetsTerminatePopup.DateExecution.AddDays(-1) + Dim _ActMonthDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, (.DateFrom.AddMonths(1)).AddDays(-1)) + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActMonthDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActMonthDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _LastRowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .FixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone + .SalvageHUF = _FixedAssetsCardPlanRows_LastAvilable.SalvageHUF + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC + End If + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + + .BruttoHUF = 0 + .BruttoHUFBallance = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance + End With + Dim _FixedAssetsCardPlanRows_Terminal As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_Terminal + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _FixedAssetsCardPlanRows_NEW.RowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eTerminate + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .DateExecution = _FixedAssetsTerminatePopup.DateExecution + .DayCountTAX = 0 + .KeyTax = 0 + .KeyACC = 0 + ' .BruttoHUF = 0 + .BruttoHUFBallance = 0 + .SalvageHUF = 0 + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .NettoHUFBallanceACC = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .NettoHUFBallanceTAX = 0 + .BruttoHUFTerminal = _FixedAssetsCardPlanRows_NEW.BruttoHUFBallance '.BruttoHUF + .NettoHUFTerminalACC = _FixedAssetsCardPlanRows_NEW.NettoHUFBallanceACC + End With + + Case eFixedAssetsPeriod.eQuarter + Dim _TerminalStart As Date + Dim _TerminalEnd As Date + + If _FixedAssetsTerminatePopup.DateExecution >= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 1, 1) And _FixedAssetsTerminatePopup.DateExecution <= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 3, 31) Then + _TerminalStart = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 1, 1) + _TerminalEnd = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 3, 31) + End If + If _FixedAssetsTerminatePopup.DateExecution >= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 4, 1) And _FixedAssetsTerminatePopup.DateExecution <= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 6, 30) Then + _TerminalStart = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 4, 1) + _TerminalEnd = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 6, 30) + End If + If _FixedAssetsTerminatePopup.DateExecution >= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 7, 1) And _FixedAssetsTerminatePopup.DateExecution <= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 9, 30) Then + _TerminalStart = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 7, 1) + _TerminalEnd = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 9, 30) + End If + If _FixedAssetsTerminatePopup.DateExecution >= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 10, 1) And _FixedAssetsTerminatePopup.DateExecution <= New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 12, 31) Then + _TerminalStart = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 10, 1) + _TerminalEnd = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 12, 31) + End If + Dim _LastRowIndex = 0 + _FixedAssetsCard.FixedAssetsCardPlanRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + For Each _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows In _FixedAssetsCard.FixedAssetsCardPlanRows + If _FixedAssetsCardPlanRows.DateFrom = _TerminalStart And _FixedAssetsCardPlanRows.DateTo = _TerminalEnd Then + _LastRowIndex = _FixedAssetsCardPlanRows.RowIndex - 1 + End If + If _LastRowIndex <> 0 Then + _FixedAssetsCardPlanRows_Collection_DEL.Add(_FixedAssetsCardPlanRows) + End If + Next + + Dim _FixedAssetsCardPlanRows_LastAvilable As FixedAssetsCardPlanRows = _ocur.FindObject(Of FixedAssetsCardPlanRows)(CriteriaOperator.Parse("FixedAssetsCard=? AND RowIndex=?", _FixedAssetsCard, _LastRowIndex)) + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyACC / 100 / 4 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyTax / 100 / 4 + + Dim _FixedAssetsCardPlanRows_NEW As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_NEW + .DateFrom = _FixedAssetsCardPlanRows_LastAvilable.DateTo.AddDays(1) + .DateTo = _FixedAssetsTerminatePopup.DateExecution.AddDays(-1) + Dim _ActQuarterDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, (.DateFrom.AddMonths(3)).AddDays(-1)) + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _LastRowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .FixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone + .SalvageHUF = _FixedAssetsCardPlanRows_LastAvilable.SalvageHUF + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC + End If + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + + .BruttoHUF = 0 + .BruttoHUFBallance = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance + End With + Dim _FixedAssetsCardPlanRows_Terminal As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_Terminal + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _FixedAssetsCardPlanRows_NEW.RowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eTerminate + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .DateExecution = _FixedAssetsTerminatePopup.DateExecution + .DayCountACC = 0 + .DayCountTAX = 0 + .KeyTax = 0 + .KeyACC = 0 + ' .BruttoHUF = 0 + .BruttoHUFBallance = 0 + .SalvageHUF = 0 + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .NettoHUFBallanceACC = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .NettoHUFBallanceTAX = 0 + .BruttoHUFTerminal = _FixedAssetsCardPlanRows_NEW.BruttoHUFBallance '.BruttoHUF + .NettoHUFTerminalACC = _FixedAssetsCardPlanRows_NEW.NettoHUFBallanceACC + End With + Case eFixedAssetsPeriod.eYear + Dim _TerminalStart As Date = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 1, 1) + Dim _TerminalEnd As Date = New Date(_FixedAssetsTerminatePopup.DateExecution.Year, 12, 31) + + Dim _LastRowIndex = 0 + _FixedAssetsCard.FixedAssetsCardPlanRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + For Each _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows In _FixedAssetsCard.FixedAssetsCardPlanRows + If _FixedAssetsCardPlanRows.DateFrom = _TerminalStart And _FixedAssetsCardPlanRows.DateTo = _TerminalEnd Then + _LastRowIndex = _FixedAssetsCardPlanRows.RowIndex - 1 + End If + If _LastRowIndex <> 0 Then + _FixedAssetsCardPlanRows_Collection_DEL.Add(_FixedAssetsCardPlanRows) + End If + Next + + Dim _FixedAssetsCardPlanRows_LastAvilable As FixedAssetsCardPlanRows = _ocur.FindObject(Of FixedAssetsCardPlanRows)(CriteriaOperator.Parse("FixedAssetsCard=? AND RowIndex=?", _FixedAssetsCard, _LastRowIndex)) + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyACC / 100 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance * _FixedAssetsCardPlanRows_LastAvilable.KeyTax / 100 + + Dim _FixedAssetsCardPlanRows_NEW As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_NEW + .DateFrom = _FixedAssetsCardPlanRows_LastAvilable.DateTo.AddDays(1) + .DateTo = _FixedAssetsTerminatePopup.DateExecution.AddDays(-1) + Dim _ActYearDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, 1, 1), New Date(.DateFrom.Year, 12, 31)) + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _LastRowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .FixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone + .SalvageHUF = _FixedAssetsCardPlanRows_LastAvilable.SalvageHUF + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceACC - .DecrepationHUFACC + End If + If _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _FixedAssetsCardPlanRows_LastAvilable.NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + + .BruttoHUF = 0 + .BruttoHUFBallance = _FixedAssetsCardPlanRows_LastAvilable.BruttoHUFBallance + End With + Dim _FixedAssetsCardPlanRows_Terminal As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows_Terminal + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _FixedAssetsCardPlanRows_NEW.RowIndex + 1 + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eTerminate + .FixedAssetsTerminalReason = _FixedAssetsTerminatePopup.FixedAssetsTerminalReason + .DateExecution = _FixedAssetsTerminatePopup.DateExecution + .DayCountACC = 0 + .DayCountTAX = 0 + .KeyTax = 0 + .KeyACC = 0 + ' .BruttoHUF = 0 + .BruttoHUFBallance = 0 + .SalvageHUF = 0 + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .NettoHUFBallanceACC = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .NettoHUFBallanceTAX = 0 + .BruttoHUFTerminal = _FixedAssetsCardPlanRows_NEW.BruttoHUFBallance '.BruttoHUF + .NettoHUFTerminalACC = _FixedAssetsCardPlanRows_NEW.NettoHUFBallanceACC + End With + End Select + End If + + _ocur.Delete(_FixedAssetsCardPlanRows_Collection_DEL) + _ocur.CommitChanges() + End Sub + Private Sub Terminate_Storno_FixedAssets(_ocur As Xpo.XPObjectSpace, _FixedAssetsCard As FixedAssetsCard) + Dim _FixedAssetsCardPlanRows_Collection_DEL As New ArrayList + + _FixedAssetsCard.FixedAssetsCardPlanRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + + Select Case _FixedAssetsCard.DCPAccounting.FixedAssetsPeriod + Case eFixedAssetsPeriod.eMonth + Dim _FixedAssetsCardPlanRows_Last As FixedAssetsCardPlanRows = _FixedAssetsCard.FixedAssetsCardPlanRows(_FixedAssetsCard.FixedAssetsCardPlanRows.Count - 2) + Dim _FixedAssetsCardPlanRows_Collection_NEW As New ArrayList + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyACC / 100 / 12 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyTax / 100 / 12 + Dim _StartDate As Date = _FixedAssetsCardPlanRows_Last.DateFrom + Dim _EndDate As New Date(Now.Year, 12, 31) + Dim _RowIndex As Long = _FixedAssetsCardPlanRows_Last.RowIndex + + Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = New Date(_ActYear.Year, _ActYear.Month + 1, 1).AddDays(-1) + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCardPlanRows_Last.KeyACC + .KeyTax = _FixedAssetsCardPlanRows_Last.KeyTax + .SalvageHUF = _FixedAssetsCardPlanRows_Last.SalvageHUF + End With + + _RowIndex += 1 + _ActYear = _DateTo + _DateFrom = _DateTo.AddDays(1) + _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(1)).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While _EndDate >= _ActYear + + Dim _NettoHUFBallanceACC As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceACC + _FixedAssetsCardPlanRows_Last.DecrepationHUFACC + Dim _NettoHUFBallanceTAX As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceTAX + _FixedAssetsCardPlanRows_Last.DecrepationHUFTAX + Dim _BruttoHUFBallance As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance + For ik = 0 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActMounthDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActMounthDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + Next + Case eFixedAssetsPeriod.eQuarter + Dim _FixedAssetsCardPlanRows_Last As FixedAssetsCardPlanRows = _FixedAssetsCard.FixedAssetsCardPlanRows(_FixedAssetsCard.FixedAssetsCardPlanRows.Count - 2) + Dim _FixedAssetsCardPlanRows_Collection_NEW As New ArrayList + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyACC / 100 / 4 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyTax / 100 / 4 + Dim _StartDate As Date = _FixedAssetsCardPlanRows_Last.DateFrom + Dim _EndDate As New Date(Now.Year, 12, 31) + Dim _RowIndex As Long = _FixedAssetsCardPlanRows_Last.RowIndex + + Dim _ActYear As Date = New Date(_StartDate.Year, _StartDate.Month, 1) + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = (New Date(_ActYear.Year, _ActYear.Month, 1).AddMonths(3)).AddDays(-1) + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCardPlanRows_Last.KeyACC + .KeyTax = _FixedAssetsCardPlanRows_Last.KeyTax + .SalvageHUF = _FixedAssetsCardPlanRows_Last.SalvageHUF + End With + + _RowIndex += 1 + _ActYear = _DateTo + _DateFrom = _DateTo.AddDays(1) + _DateTo = (New Date(_DateFrom.Year, _DateFrom.Month, 1).AddMonths(3)).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While _EndDate >= _ActYear + + Dim _NettoHUFBallanceACC As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceACC + _FixedAssetsCardPlanRows_Last.DecrepationHUFACC + Dim _NettoHUFBallanceTAX As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceTAX + _FixedAssetsCardPlanRows_Last.DecrepationHUFTAX + Dim _BruttoHUFBallance As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance + For ik = 0 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActQuarterDayCount As Long = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActQuarterDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + Next + Case eFixedAssetsPeriod.eYear + Dim _FixedAssetsCardPlanRows_Last As FixedAssetsCardPlanRows = _FixedAssetsCard.FixedAssetsCardPlanRows(_FixedAssetsCard.FixedAssetsCardPlanRows.Count - 2) + + Dim _StartDate As Date = _FixedAssetsCardPlanRows_Last.DateFrom + Dim _EndDate As New Date(Now.Year, 12, 31) + Dim _FullDayCount As Long = DateDiff(DateInterval.Day, _StartDate, _EndDate) + Dim _RowIndex As Long = _FixedAssetsCardPlanRows_Last.RowIndex + + Dim _DecrepationPeriodAmountACC As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyACC / 100 + Dim _DecrepationPeriodAmountTAX As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance * _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyTax / 100 + + Dim _ActYear As Long = _StartDate.Year + Dim _DateFrom As Date = _StartDate + Dim _DateTo As Date = New Date(_ActYear + 1, 1, 1).AddDays(-1) + Dim _FixedAssetsCardPlanRows_Collection_NEW As New ArrayList + Do + Dim _FixedAssetsCardPlanRows As New FixedAssetsCardPlanRows(_ocur.Session) + With _FixedAssetsCardPlanRows + .FixedAssetsCard = _FixedAssetsCard + .RowIndex = _RowIndex + .FixedAssetsCardPlanRowsType = eFixedAssetsCardPlanRowsType.eNormal + .DateFrom = _DateFrom + .DateTo = _DateTo + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + 1 + .KeyACC = _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyACC + .KeyTax = _FixedAssetsCard.FixedAssetsCardPlanRows(0).KeyTax + .SalvageHUF = _FixedAssetsCardPlanRows_Last.SalvageHUF + End With + + _RowIndex += 1 + _ActYear += 1 + _DateFrom = _DateTo.AddDays(1) + _DateTo = New Date(_DateFrom.Year + 1, 1, 1).AddDays(-1) + _FixedAssetsCardPlanRows_Collection_NEW.Add(_FixedAssetsCardPlanRows) + Loop While Now.Year >= _ActYear + + Dim _NettoHUFBallanceACC As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceACC + _FixedAssetsCardPlanRows_Last.DecrepationHUFACC + Dim _NettoHUFBallanceTAX As Double = _FixedAssetsCardPlanRows_Last.NettoHUFBallanceTAX + _FixedAssetsCardPlanRows_Last.DecrepationHUFTAX + Dim _BruttoHUFBallance As Double = _FixedAssetsCardPlanRows_Last.BruttoHUFBallance + For ik = 0 To _FixedAssetsCardPlanRows_Collection_NEW.Count - 1 + Dim _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_Collection_NEW(ik), FixedAssetsCardPlanRows) + With _FixedAssetsCardPlanRows + Dim _ActYearDayCount As Long = DateDiff(DateInterval.Day, New Date(.DateFrom.Year, 1, 1), New Date(.DateFrom.Year, 12, 31)) + .DecrepationHUFACC = Math.Round(_DecrepationPeriodAmountACC * .DayCountACC / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DecrepationHUFTAX = Math.Round(_DecrepationPeriodAmountTAX * .DayCountTAX / _ActYearDayCount, 0, MidpointRounding.AwayFromZero) + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.NettoHUFBallanceACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.NettoHUFBallanceACC / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + .BruttoHUF = 0 + .BruttoHUFBallance = _BruttoHUFBallance + + End With + If _FixedAssetsCardPlanRows.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows.NettoHUFBallanceTAX + End If + _BruttoHUFBallance = _FixedAssetsCardPlanRows.BruttoHUFBallance + + Next + End Select + _FixedAssetsCardPlanRows_Collection_DEL.Add(_FixedAssetsCard.FixedAssetsCardPlanRows(_FixedAssetsCard.FixedAssetsCardPlanRows.Count - 1)) + _FixedAssetsCardPlanRows_Collection_DEL.Add(_FixedAssetsCard.FixedAssetsCardPlanRows(_FixedAssetsCard.FixedAssetsCardPlanRows.Count - 2)) + _ocur.Delete(_FixedAssetsCardPlanRows_Collection_DEL) + + _ocur.CommitChanges() + End Sub + Private Sub RegenerateReceivedFromAnotherSystem(_ocur As Xpo.XPObjectSpace, _FixedAssetsCard As FixedAssetsCard) + Dim _FixedAssetsCardPlanRows_Collection As New XPCollection(Of FixedAssetsCardPlanRows)(_ocur.Session, CriteriaOperator.Parse("FixedAssetsCard=?", _FixedAssetsCard)) + _FixedAssetsCardPlanRows_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending)) + _FixedAssetsCardPlanRows_Collection(0).IsModified = True + + Dim _FixedAssetsCardPlanRows_DEL_Collection As New ArrayList + Dim _FixedAssetsCardPlanRows_NEW_Collection As New ArrayList + Dim _LastDate As Date = _FixedAssetsCard.DateOpen.AddDays(-1) + + For Each _FixedAssetsCardPlanRows As FixedAssetsCardPlanRows In _FixedAssetsCardPlanRows_Collection + If _FixedAssetsCardPlanRows.FixedAssetsCardPlanRowsType <> eFixedAssetsCardPlanRowsType.eActivated Then + If _FixedAssetsCardPlanRows.DateTo >= _LastDate Then + _FixedAssetsCardPlanRows_NEW_Collection.Add(_FixedAssetsCardPlanRows) + Else + _FixedAssetsCardPlanRows_DEL_Collection.Add(_FixedAssetsCardPlanRows) + End If + End If + Next + + Dim _FixedAssetsCardPlanRows_First As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_NEW_Collection(0), FixedAssetsCardPlanRows) + + With _FixedAssetsCardPlanRows_First + .DateFrom = _FixedAssetsCard.DateActivation + .DayCountACC = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .DayCountTAX = DateDiff(DateInterval.Day, .DateFrom, .DateTo) + .NettoHUFBallanceACC = _FixedAssetsCard.AmountHUFOpen + .NettoHUFBallanceTAX = _FixedAssetsCard.AmountHUFOpen + .DecrepationHUFACC = _FixedAssetsCard.AmountHUFBrutto - _FixedAssetsCard.AmountHUFOpen + .DecrepationHUFTAX = _FixedAssetsCard.AmountHUFBrutto - _FixedAssetsCard.AmountHUFOpen + .DayDecrepationACC = Math.Round(.DecrepationHUFACC / .DayCountACC, 2, MidpointRounding.AwayFromZero) + .DayDecrepationTAX = Math.Round(.DecrepationHUFTAX / .DayCountTAX, 2, MidpointRounding.AwayFromZero) + .RowIndex = 2 + .IsModified = True + End With + + Dim _ActRowIndex As Long = _FixedAssetsCardPlanRows_First.RowIndex + + Dim _NettoHUFBallanceACC As Double = _FixedAssetsCardPlanRows_First.NettoHUFBallanceACC + Dim _NettoHUFBallanceTAX As Double = _FixedAssetsCardPlanRows_First.NettoHUFBallanceTAX + + For ik = 1 To _FixedAssetsCardPlanRows_NEW_Collection.Count - 1 + Dim _FixedAssetsCardPlanRows_Act As FixedAssetsCardPlanRows = TryCast(_FixedAssetsCardPlanRows_NEW_Collection(ik), FixedAssetsCardPlanRows) + + With _FixedAssetsCardPlanRows_Act + .RowIndex = ik + 2 + If _NettoHUFBallanceACC <> 0 Then + If _NettoHUFBallanceACC - .DecrepationHUFACC <= .SalvageHUF Then + .DecrepationHUFACC = _NettoHUFBallanceACC - .SalvageHUF + .NettoHUFBallanceACC = .SalvageHUF + _NettoHUFBallanceACC = 0 + .DayCountACC = Math.Round(.DecrepationHUFACC / .DayDecrepationACC, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceACC = _NettoHUFBallanceACC - .DecrepationHUFACC + End If + Else + .NettoHUFBallanceACC = .SalvageHUF + .DayDecrepationACC = 0 + .DecrepationHUFACC = 0 + .DayCountACC = 0 + End If + If _NettoHUFBallanceTAX <> 0 Then + If _NettoHUFBallanceTAX - .DecrepationHUFTAX <= 0 Then + .DecrepationHUFTAX = _NettoHUFBallanceTAX + .NettoHUFBallanceTAX = 0 + _NettoHUFBallanceTAX = 0 + .DayCountTAX = Math.Round(.DecrepationHUFTAX / .DayDecrepationTAX, 0, MidpointRounding.AwayFromZero) + Else + .NettoHUFBallanceTAX = _NettoHUFBallanceTAX - .DecrepationHUFTAX + End If + Else + .NettoHUFBallanceTAX = 0 + .DayDecrepationTAX = 0 + .DecrepationHUFTAX = 0 + .DayCountTAX = 0 + End If + End With + If _FixedAssetsCardPlanRows_Act.NettoHUFBallanceACC <> 0 And _NettoHUFBallanceACC <> 0 Then + _NettoHUFBallanceACC = _FixedAssetsCardPlanRows_Act.NettoHUFBallanceACC + End If + If _FixedAssetsCardPlanRows_Act.NettoHUFBallanceTAX <> 0 Then + _NettoHUFBallanceTAX = _FixedAssetsCardPlanRows_Act.NettoHUFBallanceTAX + End If + Next + + _ocur.Delete(_FixedAssetsCardPlanRows_DEL_Collection) + _ocur.CommitChanges() + End Sub + Private Sub FixedAssetsCard_OpenYear_PopUp_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Dim _ActYear As Long = GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session).Year + Dim _FixedAssetsCard_OpenYear_PopUp As FixedAssetsCard_OpenYear_PopUp = TryCast(View.SelectedObjects(0), FixedAssetsCard_OpenYear_PopUp) + If _FixedAssetsCard_OpenYear_PopUp IsNot Nothing Then + If _FixedAssetsCard_OpenYear_PopUp.TargetYear <= _ActYear Then e.Cancel = True + End If + End Sub +#End Region + + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsCard_OpenYear_PopUp.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsCard_OpenYear_PopUp.vb new file mode 100644 index 0000000..d9e6426 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsCard_OpenYear_PopUp.vb @@ -0,0 +1,39 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + + _ +Public Class FixedAssetsCard_OpenYear_PopUp + Inherits BaseObject + + Private _TargetYear As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + TargetYear = GetSQLTime(Session).Year + 1 + End Sub + + Property TargetYear As Long + Get + Return _TargetYear + End Get + Set(value As Long) + SetPropertyValue("TargetYear", _TargetYear, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsReactivationPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsReactivationPopup.vb new file mode 100644 index 0000000..50cf092 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsReactivationPopup.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsReactivationPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateExecution As Date + Property AmountHUFBrutto As Double + Property AmountHUFDevelopmentReserve As Double + Property Description As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsTerminatePopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsTerminatePopup.vb new file mode 100644 index 0000000..66ae1b6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsTerminatePopup.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class FixedAssetsTerminatePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property DateExecution As Date + Property FixedAssetsTerminalReason As eFixedAssetsTerminalReason = eFixedAssetsTerminalReason.eNone + Property Description As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsUsingPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsUsingPopup.vb new file mode 100644 index 0000000..f331bd4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/Popup/FixedAssetsUsingPopup.vb @@ -0,0 +1,47 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class FixedAssetsUsingPopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateExecution = GetSQLTime(Session) + ' Place here your initialization code. + End Sub + _ + Property FixedAssetsUsingType As eFixedAssetsUsingType + _ + Property FixedAssetsUsingParameters As FixedAssetsUsingParameters + _ + Property HRPerson As HRPerson + _ + Property Customers As Customers + _ + Property CostHolder As CostHolder + Property DateExecution As Date + Property FixedAssetsUsingMoveType As eFixedAssetsUsingMoveType +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLEnums.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLEnums.vb new file mode 100644 index 0000000..6b55b07 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GLEnums.vb @@ -0,0 +1,75 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Public Enum eGLDocumentType + eGLMixed = 0 ' Vegyes bizonylat + eGLAccount = 1 ' Számla (folyószámla) + eGLBank = 2 'Bank + eGLCassa = 3 'Pénztár + eGLCompensation = 4 ' Kompenzáció + eGLRateDiff = 5 'Árfolyamnyereség-veszteség vegyes automata bizonylat + eLateCharge = 6 'Késedelmi kamatszámla +End Enum +Public Enum eGLRowsTypeVAT + eNettoRow = 0 + eVATRow = 1 + eRoundingRow = 2 +End Enum +Public Enum eFileType + ePDF = 0 + ePicture = 1 + eWord = 2 + eExcel = 3 +End Enum +Public Enum eRTFExportFileType + ePDF = 0 + eRTF = 1 + eWord = 2 + eWordXDoc = 3 +End Enum +Public Enum eTransactionType + ePartnerDebit = 0 + ePartnerCredit = 1 + eNormalCredit = 2 + eNormalDebit = 3 + eNotSet = 4 + eCorrectionDebitHUF = 5 + eCorrectionCreditHUF = 6 +End Enum +Public Enum eCashMoveType + eIn = 0 + eOut = 1 + eNotSet = 2 +End Enum +Public Enum eCashType + ePartner = 0 + eNormal = 1 + eCorrectionHUF = 2 +End Enum +Public Enum ePartnerType + eNotSet = -1 + ePayabels = 1 'Szállítók + eReceivables = 0 'Vevők +End Enum +Public Enum eBankCost + eBEN = 0 + eSHA = 1 + eOUR = 2 +End Enum +Public Enum eGLRowsType + eNormal = 0 + eOpen = 1 + eClose = 2 +End Enum + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.Designer.vb new file mode 100644 index 0000000..bb30f50 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.Designer.vb @@ -0,0 +1,190 @@ +Partial Class GeneralLedgerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeAll = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLToTable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLFinalAndNew = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalizeAllAndNew = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.MakeEditable = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGeneralLedgerFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aToTable + ' + Me.aToTable.Caption = "aToTable" + Me.aToTable.ConfirmationMessage = Nothing + Me.aToTable.Id = "aToTable" + Me.aToTable.ImageName = Nothing + Me.aToTable.Shortcut = Nothing + Me.aToTable.Tag = Nothing + Me.aToTable.TargetObjectsCriteria = Nothing + Me.aToTable.TargetViewId = Nothing + Me.aToTable.ToolTip = Nothing + Me.aToTable.TypeOfView = Nothing + ' + 'aFinalizeAll + ' + Me.aFinalizeAll.Caption = "aFinalize All" + Me.aFinalizeAll.ConfirmationMessage = Nothing + Me.aFinalizeAll.Id = "aFinalizeAll" + Me.aFinalizeAll.ImageName = Nothing + Me.aFinalizeAll.Shortcut = Nothing + Me.aFinalizeAll.Tag = Nothing + Me.aFinalizeAll.TargetObjectsCriteria = Nothing + Me.aFinalizeAll.TargetViewId = Nothing + Me.aFinalizeAll.ToolTip = Nothing + Me.aFinalizeAll.TypeOfView = Nothing + ' + 'aStorno + ' + Me.aStorno.Caption = "aStorno" + Me.aStorno.ConfirmationMessage = Nothing + Me.aStorno.Id = "aStorno" + Me.aStorno.ImageName = Nothing + Me.aStorno.Shortcut = Nothing + Me.aStorno.Tag = Nothing + Me.aStorno.TargetObjectsCriteria = Nothing + Me.aStorno.TargetViewId = Nothing + Me.aStorno.ToolTip = Nothing + Me.aStorno.TypeOfView = Nothing + ' + 'aGLFinal + ' + Me.aGLFinal.Caption = "aGLFinal" + Me.aGLFinal.Category = "RecordEdit" + Me.aGLFinal.ConfirmationMessage = Nothing + Me.aGLFinal.Id = "aGLFinal" + Me.aGLFinal.ImageName = Nothing + Me.aGLFinal.Shortcut = Nothing + Me.aGLFinal.Tag = Nothing + Me.aGLFinal.TargetObjectsCriteria = Nothing + Me.aGLFinal.TargetViewId = Nothing + Me.aGLFinal.ToolTip = Nothing + Me.aGLFinal.TypeOfView = Nothing + ' + 'aGLToTable + ' + Me.aGLToTable.Caption = "aGLTo Table" + Me.aGLToTable.ConfirmationMessage = Nothing + Me.aGLToTable.Id = "aGLToTable" + Me.aGLToTable.ImageName = Nothing + Me.aGLToTable.Shortcut = Nothing + Me.aGLToTable.Tag = Nothing + Me.aGLToTable.TargetObjectsCriteria = Nothing + Me.aGLToTable.TargetViewId = Nothing + Me.aGLToTable.ToolTip = Nothing + Me.aGLToTable.TypeOfView = Nothing + ' + 'aGLStorno + ' + Me.aGLStorno.Caption = "aGLStorno" + Me.aGLStorno.ConfirmationMessage = Nothing + Me.aGLStorno.Id = "aGLStorno" + Me.aGLStorno.ImageName = Nothing + Me.aGLStorno.Shortcut = Nothing + Me.aGLStorno.Tag = Nothing + Me.aGLStorno.TargetObjectsCriteria = Nothing + Me.aGLStorno.TargetViewId = Nothing + Me.aGLStorno.ToolTip = Nothing + Me.aGLStorno.TypeOfView = Nothing + ' + 'aGLFinalAndNew + ' + Me.aGLFinalAndNew.Caption = "aGLFinal And New" + Me.aGLFinalAndNew.Category = "RecordEdit" + Me.aGLFinalAndNew.ConfirmationMessage = Nothing + Me.aGLFinalAndNew.Id = "aGLFinalAndNew" + Me.aGLFinalAndNew.ImageName = "MenuBar_SaveAndNew" + Me.aGLFinalAndNew.Shortcut = Nothing + Me.aGLFinalAndNew.Tag = Nothing + Me.aGLFinalAndNew.TargetObjectsCriteria = Nothing + Me.aGLFinalAndNew.TargetViewId = Nothing + Me.aGLFinalAndNew.ToolTip = Nothing + Me.aGLFinalAndNew.TypeOfView = Nothing + ' + 'aFinalizeAllAndNew + ' + Me.aFinalizeAllAndNew.Caption = "aFinalize All And New" + Me.aFinalizeAllAndNew.ConfirmationMessage = Nothing + Me.aFinalizeAllAndNew.Id = "aFinalizeAllAndNew" + Me.aFinalizeAllAndNew.ImageName = Nothing + Me.aFinalizeAllAndNew.Shortcut = Nothing + Me.aFinalizeAllAndNew.Tag = Nothing + Me.aFinalizeAllAndNew.TargetObjectsCriteria = Nothing + Me.aFinalizeAllAndNew.TargetViewId = Nothing + Me.aFinalizeAllAndNew.ToolTip = Nothing + Me.aFinalizeAllAndNew.TypeOfView = Nothing + ' + 'MakeEditable + ' + Me.MakeEditable.Caption = "Make Editable" + Me.MakeEditable.Category = "RecordEdit" + Me.MakeEditable.ConfirmationMessage = Nothing + Me.MakeEditable.Id = "MakeEditable" + Me.MakeEditable.ImageName = Nothing + Me.MakeEditable.Shortcut = Nothing + Me.MakeEditable.Tag = Nothing + Me.MakeEditable.TargetObjectsCriteria = Nothing + Me.MakeEditable.TargetViewId = Nothing + Me.MakeEditable.ToolTip = Nothing + Me.MakeEditable.TypeOfView = Nothing + ' + 'aGeneralLedgerFinal + ' + Me.aGeneralLedgerFinal.Caption = "aGeneral Ledger Final" + Me.aGeneralLedgerFinal.Category = "Menu" + Me.aGeneralLedgerFinal.ConfirmationMessage = Nothing + Me.aGeneralLedgerFinal.Id = "aGeneralLedgerFinal" + Me.aGeneralLedgerFinal.ImageName = Nothing + Me.aGeneralLedgerFinal.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGeneralLedgerFinal.Shortcut = Nothing + Me.aGeneralLedgerFinal.Tag = Nothing + Me.aGeneralLedgerFinal.TargetObjectsCriteria = Nothing + Me.aGeneralLedgerFinal.TargetObjectType = GetType(SISBusiness.[Module].GLHeader) + Me.aGeneralLedgerFinal.TargetViewId = "" + Me.aGeneralLedgerFinal.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aGeneralLedgerFinal.ToolTip = Nothing + Me.aGeneralLedgerFinal.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGeneralLedgerFinal As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeAll As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLFinal As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLToTable As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLStorno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLFinalAndNew As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalizeAllAndNew As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents MakeEditable As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.resx new file mode 100644 index 0000000..0d2d706 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 118, 17 + + + 499, 17 + + + 593, 17 + + + 690, 17 + + + 964, 17 + + + 230, 17 + + + 805, 17 + + + 374, 17 + + + 1073, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb new file mode 100644 index 0000000..f2f1f49 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/GeneralLedgerVC.vb @@ -0,0 +1,169 @@ +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 + +Public Class GeneralLedgerVC + 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() + 'Me.Activate_GL_Accounting() + Frame.GetController(Of GeneralLedgerVC).aToTable.Active.SetItemValue("", False) 'Folyószámla táblázatba akciója + Frame.GetController(Of GeneralLedgerVC).aFinalizeAll.Active.SetItemValue("", False) 'Fólyószámla véglegesítési akciója + Frame.GetController(Of GeneralLedgerVC).aStorno.Active.SetItemValue("", False) 'Folyószámla stornó akciója + Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", False) 'Főkönyv stornó akciója + Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False) 'Főkönyv véglegesítési akciója + Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", False) 'Főkönyv táblázatba akciója + Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", False) 'Főkönyv véglegesítési és új akciója + Frame.GetController(Of GeneralLedgerVC).aFinalizeAllAndNew.Active.SetItemValue("", False) 'Folyószámla véglegesítés és új akciója + Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", False) + + If View.Id = "GLHeader_ListView" And SecuritySystemHelper.IsUserInRoleCurrentUser("GLMaintener") Then + Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", True) + End If + + 'Folyószámla - NestedListView controll-ok letiltása, asszociáció létrehozása csak az itt megjelenített akcióval + If View.Id Like "GLAccountsHeader_GLAccountsRows_ListView" Then + + Frame.GetController(Of GeneralLedgerVC).aToTable.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + End If + + 'Főkönyv - NestedListView controll-ok letiltása, asszociáció létrehozása csak az itt megjelenített akcióval + If View.Id Like "GLHeader_GLRows_ListView" Then + + Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + + Dim GLnv As ListView = CType(View, ListView) + Dim GLcs As PropertyCollectionSource = CType(GLnv.CollectionSource, PropertyCollectionSource) + AddHandler GLcs.MasterObjectChanged, AddressOf GLcs_MasterObjectChanged + + End If + + 'Folyószámla - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket + If View.Id = "GLAccountsHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of GeneralLedgerVC).aFinalizeAll.Active.SetItemValue("", True) + Frame.GetController(Of GeneralLedgerVC).aStorno.Active.SetItemValue("", True) + Frame.GetController(Of GeneralLedgerVC).aFinalizeAllAndNew.Active.SetItemValue("", True) + End If + + 'Főkönyv - egyedi akciók megjelenítése DetailView-ban, majd Editable vizsgálata alapján letiltja a szerkesztő controllereket + If View.Id = "GLHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", True) + Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", True) + Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", True) + Dim _GLHeader As GLHeader = TryCast(View.CurrentObject, GLHeader) + If _GLHeader Is Nothing Then + Else + If _GLHeader.IsEditable = False Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False) + Frame.GetController(Of GeneralLedgerVC).aGLFinalAndNew.Active.SetItemValue("", False) + + Else + Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", False) + End If + If _GLHeader.IsStorno = True Then + Frame.GetController(Of GeneralLedgerVC).aGLStorno.Active.SetItemValue("", False) + Frame.GetController(Of GeneralLedgerVC).aGLFinal.Active.SetItemValue("", False) + End If + End If + If SecuritySystemHelper.IsUserInRoleCurrentUser("GLMaintener") Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of GeneralLedgerVC).MakeEditable.Active.SetItemValue("", True) + End If + End If + + End Sub + 'Folyószámla MasterObject megkeresése a NestedListView controlljából + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + End Sub + 'Főkönyv MasterObject megkeresése a NestedListView controlljából + Private Sub GLcs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _GLHeader As GLHeader = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLHeader) + If _GLHeader.IsEditable = False Then + 'DisableActions() + Frame.GetController(Of GeneralLedgerVC).aGLToTable.Active.SetItemValue("", False) + End If + End Sub + Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable.Execute + + End Sub + Private Sub aStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno.Execute + End Sub + Private Sub aFinalizeAll_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeAll.Execute, aFinalizeAll.Execute + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + End Sub + Private Sub aGLFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLFinal.Execute + sis_aGLFinal(e) + View.Close(False) + End Sub + Private Sub aGLToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLToTable.Execute + End Sub + Private Sub aGLStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLStorno.Execute + End Sub + Private Sub aGLFinalAndNew_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLFinalAndNew.Execute + If View.Id = "GLHeader_DetailView" Then + sis_aGLFinal(e) + Dim objectSpaceInternal As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim obj As GLHeader = objectSpaceInternal.CreateObject(Of GLHeader)() + e.ShowViewParameters.CreatedView = Application.CreateDetailView(objectSpaceInternal, obj) + e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow + End If + End Sub +#Region "SIS-Rendszerhaz" + Private Sub sis_aGLFinal(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + If View Is Nothing Then Exit Sub + If TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.IsObjectsLoading = False And TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.IsObjectsSaving = False Then + Dim _GLHeader As GLHeader + + For Each _GLHeader In e.SelectedObjects + _GLHeader.IsEditable = False + _GLHeader.Save() + Next + TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.CommitTransaction() + 'View.Close(False) + End If + + End Sub +#End Region + + Private Sub MakeEditable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles MakeEditable.Execute + Dim _GLHeader As GLHeader + For Each _GLHeader In e.SelectedObjects + _GLHeader.IsEditable = True + _GLHeader.Save() + TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.CommitTransaction() + If View.Id = "GLHeader_DetailView" Then + View.Close(False) + End If + Next + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssets.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssets.vb new file mode 100644 index 0000000..c9d4d2c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssets.vb @@ -0,0 +1,614 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Text +Imports System.Data + +Imports DevExpress.Xpo +Imports DevExpress.Xpo.DB +Imports DevExpress.Xpo.Helpers +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.Xpo.Metadata +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eLiquidAssetsType + NormalCheckout = 0 + NormalBank = 1 + DepositCheckout = 2 + Compensatory = 3 + CurrencyCheckout = 4 + SpecialTransaction = 5 + TechnicalTransaction = 6 + SimpleReceipt = 7 + Virtual = 8 +End Enum + _ + _ + _ + _ + _ +Public Class LiquidAssets '-- Pénzeszközök + Inherits BaseObject + Private _ShortName As String + Private _LiquidAssetsType As eLiquidAssetsType = eLiquidAssetsType.NormalCheckout + Private _Description As String + Private _CustomerFrom As CustomersFrom + Private _NumberGeneratorOut As NumberGenerator + Private _NumberGeneratorIn As NumberGenerator + Private _Active As Boolean = True + Private _ImagePicture As Image + Private _ChartOfAccounts As ChartOfAccounts + Private _CurrencyName As CurrencyName + Private _ReportData As ReportData + Private _ReportData_Return As ReportData + Private _IsRounding As Boolean = False + Private _ChartOfAccountsPlus As ChartOfAccounts + Private _ChartOfAccountsMinus As ChartOfAccounts + Private _NoPrint As Boolean 'Nincs bizonylat nyomtatás + Private _NoDocumentNumber As Boolean 'Ne legyen sorszám automatikusa + Private _NoTimeCheck As Boolean 'Nincs dátum és sorszám ellenőrzés + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + NoPrint = False + NoDocumentNumber = False + NoTimeCheck = False + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property LiquidAssetsType As eLiquidAssetsType + Get + Return _LiquidAssetsType + End Get + Set(ByVal value As eLiquidAssetsType) + SetPropertyValue("LiquidAssetsType", _LiquidAssetsType, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property CustomerFrom As CustomersFrom + Get + Return _CustomerFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomerFrom", _CustomerFrom, value) + End Set + End Property + _ + Property NumberGeneratorOut As NumberGenerator + Get + Return _NumberGeneratorOut + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorOut", _NumberGeneratorOut, value) + End Set + End Property + _ + Property NumberGeneratorIn As NumberGenerator + Get + Return _NumberGeneratorIn + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGeneratorIn", _NumberGeneratorIn, value) + End Set + End Property + Property Active As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + _ + _ + Property ImagePicture As Image + Get + Return _ImagePicture + End Get + Set(ByVal Value As System.Drawing.Image) + If Value Is _ImagePicture Then Exit Property + _ImagePicture = Value + End Set + + End Property + + Property ChartOfAccounts() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property ReportData_Return As ReportData + Get + Return _ReportData_Return + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData_Return", _ReportData_Return, value) + End Set + End Property + _ + _ + Property IsRounding As Boolean + Get + Return _IsRounding + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsRounding", _IsRounding, value) + End Set + End Property + _ + Property ChartOfAccountsPlus As ChartOfAccounts + Get + Return _ChartOfAccountsPlus + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsPlus", _ChartOfAccountsPlus, value) + End Set + End Property + _ + Property ChartOfAccountsMinus As ChartOfAccounts + Get + Return _ChartOfAccountsMinus + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsMinus", _ChartOfAccountsMinus, value) + End Set + End Property + + Property NoPrint As Boolean + Get + Return _NoPrint + End Get + Set(value As Boolean) + SetPropertyValue("NoPrint", _NoPrint, value) + End Set + End Property + Property NoDocumentNumber As Boolean + Get + Return _NoDocumentNumber + End Get + Set(value As Boolean) + SetPropertyValue("NoDocumentNumber", _NoDocumentNumber, value) + End Set + End Property + Property NoTimeCheck As Boolean + Get + Return _NoTimeCheck + End Get + Set(value As Boolean) + SetPropertyValue("NoTimeCheck", _NoTimeCheck, value) + End Set + End Property + + Structure GLRowsToModify_AmountDEVFIFO + Dim Oid As Guid + Dim AmountDEVFIFO As Double + End Structure + + Function GetCurrencyRateFIFO(_uow As Session, _LiquidAssets As LiquidAssets, _AmountDEV As Double, _DateClose As Date, _GLRows_Out As Guid) As Double + '// Adott záródátumra kiszámolja a FIFO árfolyamot + Dim _SumAmountDev As Double = 0 + Dim _SumAmountHUF As Double = 0 + Dim _NewFifo As Double = 0 + Dim _GLRowsToModify_ArrayList As ArrayList = New ArrayList + Dim _GLRowsToModify As GLRowsToModify_AmountDEVFIFO = New GLRowsToModify_AmountDEVFIFO + Dim _GLRows As GLRows + Dim _GLRowsFIFO As GLRowsFIFO + Dim _AmountDEVTotal As Double = _AmountDEV + Dim _GLRowsFIFOOut As GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRows_Out) + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? And GLHeader.IsEditable=False And InAmountDEV>0 And InAmountDEV>AmountDEVFIFO And GetDate(GLHeader.DateExecution)= _AmountDEV Then + + '_NewFifo = _GLRows.AmountDEVFIFO + _AmountDEV + _NewFifo = _AmountDEV + + _GLRowsToModify.Oid = _GLRows.Oid + _GLRowsToModify.AmountDEVFIFO = _GLRowsToModify.AmountDEVFIFO + _NewFifo + _GLRowsToModify_ArrayList.Add(_GLRowsToModify) + + _SumAmountDev = _SumAmountDev + _AmountDEV + _SumAmountHUF = _SumAmountHUF + _AmountDEV * _GLRows.CurrencyRate + + _AmountDEV = 0 + Else + + _NewFifo = _GLRows.InAmountDEV - _GLRows.AmountDEVFIFO + + _GLRowsToModify.Oid = _GLRows.Oid + _GLRowsToModify.AmountDEVFIFO = _GLRowsToModify.AmountDEVFIFO + _NewFifo + _GLRowsToModify_ArrayList.Add(_GLRowsToModify) + + _SumAmountDev = _SumAmountDev + _NewFifo + _SumAmountHUF = _SumAmountHUF + _NewFifo * _GLRows.CurrencyRate + + _AmountDEV = _AmountDEV - _NewFifo + End If + + _GLRowsFIFO = New GLRowsFIFO(_uow) + _GLRowsFIFO.GLRowsIn = _GLRows + _GLRowsFIFO.GLRowsOut = _GLRowsFIFOOut + _GLRowsFIFO.OutAmountDEV = _AmountDEVTotal + _GLRowsFIFO.InAmountDEV = _NewFifo + _GLRowsFIFO.Save() + + If _AmountDEV = 0 Then + Exit For + End If + + Next + + For Each _GLRowsToModify In _GLRowsToModify_ArrayList + _GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRowsToModify.Oid) + _GLRows.AmountDEVFIFO = _GLRows.AmountDEVFIFO + _GLRowsToModify.AmountDEVFIFO + _GLRows.Save() + Next + + If _SumAmountDev = 0 Then + Return 0 + Else + Return _SumAmountHUF / _SumAmountDev + End If + + End Function + Function GetCurrencyRateAverage(_uow As Session, _LiquidAssets As LiquidAssets, _DateClose As Date) As Double + '// Adott záródátumra kiszámolja a Átlagár árfolyamot + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? And GLHeader.IsEditable=False And GetDate(GLHeader.DateExecution)<=? and GetDate(GLHeader.DateExecution)>=? and InAmountDEV>0", _ + _LiquidAssets.Oid, _DateClose, FirstDayOfYear(_DateClose))) + _GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DateExecution", DB.SortingDirection.Ascending)) + Dim _SumAmountDev As Double = 0 + Dim _SumAmountHUF As Double = 0 + + Dim _LiquidAssetsRate As LiquidAssetsRate = _uow.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("LiquidAssets.oid=? and GetYear(DateExecution)=?", _LiquidAssets.Oid, _DateClose.Year)) + If _LiquidAssetsRate IsNot Nothing Then + _SumAmountDev = _LiquidAssetsRate.AmountDEV + _SumAmountHUF = _LiquidAssetsRate.AmountHUF + End If + + For Each _GLRows As GLRows In _GLRows_Collection + Dim _GLRowsFIFO_Collection As New XPCollection(Of GLRowsFIFO)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("GLRowsOut.Oid=?", _GLRows.Oid)) + _uow.Delete(_GLRowsFIFO_Collection) + + If _GLRows.OutAmountDEV <> 0 Then + _SumAmountDev = _SumAmountDev + _GLRows.OutAmountDEV + _SumAmountHUF = _SumAmountHUF + _GLRows.OutAmountHUF + Else + _SumAmountDev = _SumAmountDev + _GLRows.InAmountDEV + _SumAmountHUF = _SumAmountHUF + _GLRows.InAmountHUF + End If + Next + + If _SumAmountDev = 0 Then + Return 0 + Else + Return _SumAmountHUF / _SumAmountDev + End If + + End Function + Function GetCurrencyRateDate(_ocur As Xpo.XPObjectSpace, _TransactionType As eTransactionType, _LiquidAssets As LiquidAssets, _DateExecution As Date) As Double + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Rate As Double = 0 + + Select Case _TransactionType + Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit + '// Árfolyam lekérése először a pénzeszközre + Dim _CurrencyRate_Collection As XPCollection(Of CurrencyRate) + Dim _CurrencyRate As CurrencyRate + + _CurrencyRate_Collection = New XPCollection(Of CurrencyRate) _ + (_ocur.Session, CriteriaOperator.Parse("CurrencyName=? and LiquidAssets=? and GetDate(DateValid)<=?", _ + _LiquidAssets.CurrencyName, _DateExecution.Date)) + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + + If _CurrencyRate_Collection.Count > 0 Then + For Each _CurrencyRate In _CurrencyRate_Collection + If _CurrencyRate.DateValid.Date = _DateExecution.Date Then + _Rate = _CurrencyRate.RateAverage + Exit For + End If + Exit For + Next + Else + '// MNB árfolyam lekérése + _CurrencyRate_Collection = New XPCollection(Of CurrencyRate) _ + (_ocur.Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _LiquidAssets.CurrencyName, _DateExecution.Date)) + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_Collection.Count > 0 Then + For Each _CurrencyRate In _CurrencyRate_Collection + If _CurrencyRate.DateValid.Date = _DateExecution.Date Then + _Rate = _CurrencyRate.RateAverage + Exit For + End If + Exit For + Next + Else + Throw New Exception("*Nincs beállítva sem a pénzeszköz árfolyama sem az MNB árfolyama !") + End If + End If + + Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit + _Rate = _LiquidAssets.GetCurrencyRateAverage(_uow, _LiquidAssets, _DateExecution) + End Select + + Return _Rate + End Function + '// Readonly propertyk + _ + ReadOnly Property LiquidAssetsYear As XPCollection(Of LiquidAssetsYear) + Get + Return GetCollection(Of LiquidAssetsYear)("LiquidAssetsYear") + End Get + End Property + _ + ReadOnly Property LiquidAssetsRate As XPCollection(Of LiquidAssetsRate) + Get + Return GetCollection(Of LiquidAssetsRate)("LiquidAssetsRate") + End Get + End Property + + Public Function GetChartOfAccounts(_AccountYear As Long, _Mode As Long) As ChartOfAccounts + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _LiquidAssetsYear As LiquidAssetsYear + Select Case _Mode + Case 0 + _ChartOfAccounts = Me.ChartOfAccounts + For Each _LiquidAssetsYear In Me.LiquidAssetsYear + If _LiquidAssetsYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _LiquidAssetsYear.ChartOfAccounts + Exit For + End If + Next + Case 1 + _ChartOfAccounts = Me.ChartOfAccountsMinus + For Each _LiquidAssetsYear In Me.LiquidAssetsYear + If _LiquidAssetsYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _LiquidAssetsYear.ChartOfAccountsMinus + Exit For + End If + Next + Case 2 + _ChartOfAccounts = Me.ChartOfAccountsPlus + For Each _LiquidAssetsYear In Me.LiquidAssetsYear + If _LiquidAssetsYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _LiquidAssetsYear.ChartOfAccountsPlus + Exit For + End If + Next + End Select + Return _ChartOfAccounts + End Function + +End Class + _ + _ + _ +Public Class BankInformation '-- Bankok ! + Inherits BaseObject + Private _LiquidAssets As LiquidAssets + Private _SWIFT As String + Private _IBAN As String + Private _AccountNumber As String + Private _CurrencyName As CurrencyName + Private _GIROInfo As GIROInfo + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property LiquidAssests As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssests", _LiquidAssets, value) + End Set + End Property + Property SWIFT As String + Get + Return _SWIFT + End Get + Set(ByVal value As String) + SetPropertyValue("SWIFT", _SWIFT, value) + End Set + End Property + Property IBAN As String + Get + Return _IBAN + End Get + Set(ByVal value As String) + SetPropertyValue("IBAN", _IBAN, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + + GIROInfo = Session.FindObject(Of GIROInfo)(CriteriaOperator.Parse("GIROID=?", Mid(AccountNumber, 1, 8))) + End If + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property GIROInfo As GIROInfo + Get + Return _GIROInfo + End Get + Set(value As GIROInfo) + SetPropertyValue("GIROInfo", _GIROInfo, value) + End Set + End Property + ReadOnly Property FullBankAccount As String + Get + Return "IBAN: " & _IBAN & " " & _AccountNumber & " SWIFT: " & _SWIFT + End Get + End Property +End Class + _ + _ + _ + _ +Public Class LiquidAssetsYear + Inherits BaseObject + + Private _LiquidAssets As LiquidAssets + Private _AccountYear As Long + Private _ChartOfAccounts As ChartOfAccounts + Private _ChartOfAccountsPlus As ChartOfAccounts + Private _ChartOfAccountsMinus As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + + _ + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property ChartOfAccountsPlus As ChartOfAccounts + Get + Return _ChartOfAccountsPlus + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsPlus", _ChartOfAccountsPlus, value) + End Set + End Property + _ + Property ChartOfAccountsMinus As ChartOfAccounts + Get + Return _ChartOfAccountsMinus + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsMinus", _ChartOfAccountsMinus, value) + End Set + End Property +End Class + _ + _ + _ + _ +Public Class GIROInfo + Inherits BaseObject + + Private _GIROID As String + Private _ShortName As String + Private _Address As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property GIROID As String + Get + Return _GIROID + End Get + Set(value As String) + SetPropertyValue("GIROID", _GIROID, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Address As String + Get + Return _Address + End Get + Set(value As String) + SetPropertyValue("Address", _Address, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceHeader.vb new file mode 100644 index 0000000..377b664 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceHeader.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class LiquidAssetsBallanceHeader 'Pénzeszközök egyenlege + Inherits BaseObject + Private _DateExecution As Date 'Teljesítés dátuma + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateExecution = GetSQLTime(Session) + End Sub + _ + _ + ReadOnly Property LiquidAssetsBallanceRows As XPCollection(Of LiquidAssetsBallanceRows) + Get + Return GetCollection(Of LiquidAssetsBallanceRows)("LiquidAssetsBallanceRows") + End Get + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceRows.vb new file mode 100644 index 0000000..ee1cde6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceRows.vb @@ -0,0 +1,72 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class LiquidAssetsBallanceRows 'Pénzeszközök egyenlege + Inherits BaseObject + Private _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _LiquidAssets As LiquidAssets 'Pénzeszköz + Private _BallanceHUF As Double 'Egyenleg HUF + Private _BallanceDEV As Double ' Egyenleg DEVIZA + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader + Get + Return _LiquidAssetsBallanceHeader + End Get + Set(ByVal value As LiquidAssetsBallanceHeader) + SetPropertyValue("LiquidAssetsBallanceHeader", _LiquidAssetsBallanceHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb new file mode 100644 index 0000000..21dced2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.Designer.vb @@ -0,0 +1,101 @@ +Partial Class LiquidAssetsBallanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGetBallanceCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateCurrencyRateFIFO = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateCurrencyRateAverage = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateCurrencyRateAverageStart = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aGetBallanceCassa + ' + Me.aGetBallanceCassa.Caption = "Get ballance cassa" + Me.aGetBallanceCassa.ConfirmationMessage = "Do you want to execute command ?" + Me.aGetBallanceCassa.Id = "aGetBallance_Cassa" + Me.aGetBallanceCassa.ImageName = "stopwatch_run" + Me.aGetBallanceCassa.Shortcut = Nothing + Me.aGetBallanceCassa.Tag = Nothing + Me.aGetBallanceCassa.TargetObjectsCriteria = Nothing + Me.aGetBallanceCassa.TargetViewId = "LiquidAssetsBallanceHeader_DetailView_Cassa" + Me.aGetBallanceCassa.ToolTip = Nothing + Me.aGetBallanceCassa.TypeOfView = Nothing + ' + 'aGenerateCurrencyRateFIFO + ' + Me.aGenerateCurrencyRateFIFO.Caption = "aGenerate Currency Rate FIFO" + Me.aGenerateCurrencyRateFIFO.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateCurrencyRateFIFO.Id = "aGenerateCurrencyRateFIFO" + Me.aGenerateCurrencyRateFIFO.ImageName = Nothing + Me.aGenerateCurrencyRateFIFO.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateCurrencyRateFIFO.Shortcut = Nothing + Me.aGenerateCurrencyRateFIFO.Tag = Nothing + Me.aGenerateCurrencyRateFIFO.TargetObjectsCriteria = Nothing + Me.aGenerateCurrencyRateFIFO.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGenerateCurrencyRateFIFO.TargetViewId = "GLRows_ListView_Regenerate" + Me.aGenerateCurrencyRateFIFO.ToolTip = Nothing + Me.aGenerateCurrencyRateFIFO.TypeOfView = Nothing + ' + 'aGenerateCurrencyRateAverage + ' + Me.aGenerateCurrencyRateAverage.Caption = "aGenerate Currency Rate Average" + Me.aGenerateCurrencyRateAverage.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateCurrencyRateAverage.Id = "aGenerateCurrencyRateAverage" + Me.aGenerateCurrencyRateAverage.ImageName = Nothing + Me.aGenerateCurrencyRateAverage.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateCurrencyRateAverage.Shortcut = Nothing + Me.aGenerateCurrencyRateAverage.Tag = Nothing + Me.aGenerateCurrencyRateAverage.TargetObjectsCriteria = Nothing + Me.aGenerateCurrencyRateAverage.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGenerateCurrencyRateAverage.TargetViewId = "GLRows_ListView_Regenerate" + Me.aGenerateCurrencyRateAverage.ToolTip = Nothing + Me.aGenerateCurrencyRateAverage.TypeOfView = Nothing + ' + 'aGenerateCurrencyRateAverageStart + ' + Me.aGenerateCurrencyRateAverageStart.AcceptButtonCaption = Nothing + Me.aGenerateCurrencyRateAverageStart.CancelButtonCaption = Nothing + Me.aGenerateCurrencyRateAverageStart.Caption = "aGenerate Currency Rate Average Start" + Me.aGenerateCurrencyRateAverageStart.ConfirmationMessage = Nothing + Me.aGenerateCurrencyRateAverageStart.Id = "aGenerateCurrencyRateAverageStart" + Me.aGenerateCurrencyRateAverageStart.ImageName = Nothing + Me.aGenerateCurrencyRateAverageStart.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGenerateCurrencyRateAverageStart.Shortcut = Nothing + Me.aGenerateCurrencyRateAverageStart.Tag = Nothing + Me.aGenerateCurrencyRateAverageStart.TargetObjectsCriteria = Nothing + Me.aGenerateCurrencyRateAverageStart.TargetObjectType = GetType(SISBusiness.[Module].GLRows) + Me.aGenerateCurrencyRateAverageStart.TargetViewId = "GLRows_ListView_Regenerate" + Me.aGenerateCurrencyRateAverageStart.ToolTip = Nothing + Me.aGenerateCurrencyRateAverageStart.TypeOfView = Nothing + + End Sub + Friend WithEvents aGetBallanceCassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateCurrencyRateFIFO As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateCurrencyRateAverage As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateCurrencyRateAverageStart As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.resx new file mode 100644 index 0000000..2d2a3e3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 374, 56 + + + 222, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb new file mode 100644 index 0000000..011eaa1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsBallanceVC.vb @@ -0,0 +1,335 @@ +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.Xpo + +Imports System.Linq +Imports DevExpress.Data.Filtering + +Public Class LiquidAssetsBallanceVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 LiquidAssetsBallanceVC).aGenerateCurrencyRateAverage.Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsBallanceVC).aGenerateCurrencyRateFIFO.Active.SetItemValue("", False) + + If View.Id = "LiquidAssetsBallanceHeader_LiquidAssetsBallanceRows_ListView_Cassa" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "LiquidAssetsBallanceHeader_DetailView_Cassa" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + _LiquidAssetsBallanceHeader = TryCast(View.SelectedObjects(0), LiquidAssetsBallanceHeader) + If _LiquidAssetsBallanceHeader IsNot Nothing Then + _LiquidAssetsBallanceHeader.DateExecution = GetSQLTime(_ocur.Session) + _ocur.CommitChanges() + Frame.GetController(Of LiquidAssetsBallanceVC).aGetBallanceCassa.DoExecute() + End If + End If + If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView_Cassa" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + End If + If View.Id = "GLRows_ListView_Regenerate" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + End Sub + Private Sub aGetBallance_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetBallanceCassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader + Dim _LiquidAssetsBallanceRows As LiquidAssetsBallanceRows + _LiquidAssetsBallanceHeader = TryCast(View.SelectedObjects(0), LiquidAssetsBallanceHeader) + If _LiquidAssetsBallanceHeader IsNot Nothing Then + _ocur.Delete(_LiquidAssetsBallanceHeader.LiquidAssetsBallanceRows) + + Dim _GLRows_Collection As New XPQuery(Of GLRows)(_ocur.Session) + + Dim query = From _GLRows In _GLRows_Collection _ + Where _GLRows.GLHeader.DateExecution <= DateAdd(DateInterval.Minute, 1439, _ + _LiquidAssetsBallanceHeader.DateExecution.Date) And _GLRows.LiquidAssets IsNot Nothing And _ + _GLRows.GLHeader.DocumentNumber <> "" And + _GLRows.GLHeader.IsEditable = False And + _GLRows.GLHeader IsNot Nothing + Group _GLRows By _GLRows.GLHeader.CustomersFrom, _ + _GLRows.LiquidAssets Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .LiquidAssets = LiquidAssets, _ + Key .InAmountHUF = g.Sum(Function(inv) inv.InAmountHUF), _ + Key .OutAmountHUF = g.Sum(Function(inv) inv.OutAmountHUF), _ + Key .InAmountDEV = g.Sum(Function(inv) inv.InAmountDEV), _ + Key .OutAmountDEV = g.Sum(Function(inv) inv.OutAmountDEV)} + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + If item.LiquidAssets.LiquidAssetsType = eLiquidAssetsType.NormalCheckout Or _ + item.LiquidAssets.LiquidAssetsType = eLiquidAssetsType.CurrencyCheckout Or _ + item.LiquidAssets.LiquidAssetsType = eLiquidAssetsType.DepositCheckout Then + _LiquidAssetsBallanceRows = _ocur.CreateObject(Of LiquidAssetsBallanceRows)() + _LiquidAssetsBallanceRows.LiquidAssetsBallanceHeader = _LiquidAssetsBallanceHeader + _LiquidAssetsBallanceRows.CustomersFrom = item.CustomersFrom + _LiquidAssetsBallanceRows.LiquidAssets = item.LiquidAssets + _LiquidAssetsBallanceRows.BallanceHUF = item.InAmountHUF - item.OutAmountHUF + _LiquidAssetsBallanceRows.BallanceDEV = item.InAmountDEV - item.OutAmountDEV + + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Structure GLRowsToModify_Amount + Dim Oid As Guid + Dim OutAmountHUF As Double + Dim AmountHUF As Double + Dim DebitAmountHUF As Double + End Structure + + Private Sub aGenerateCurrencyRateAverage_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateCurrencyRateAverage.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("LiquidAssets.Oid=? And OutAmountDEV>0 And GLHeader.IsEditable=False", _GLRows.LiquidAssets.Oid)) + Dim _Rate As Double + Dim _GLRowsToModify_ArrayList As ArrayList = New ArrayList + Dim _GLRowsToModify As GLRowsToModify_Amount = New GLRowsToModify_Amount + + _GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DateExecution", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows_Element As GLRows In _GLRows_Collection + RaiseEvent DoWork() + + _Rate = _GLRows_Element.LiquidAssets.GetCurrencyRateAverage(_uow, _GLRows_Element.LiquidAssets, _GLRows_Element.GLHeader.DateExecution) + + _GLRowsToModify.Oid = _GLRows_Element.Oid + _GLRowsToModify.OutAmountHUF = Math.Round(_GLRows_Element.OutAmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify.AmountHUF = Math.Round(_GLRows_Element.AmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify.DebitAmountHUF = Math.Round(_GLRows_Element.DebitAmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify_ArrayList.Add(_GLRowsToModify) + Next + + For Each _GLRowsToModify In _GLRowsToModify_ArrayList + _GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRowsToModify.Oid) + _GLRows.OutAmountHUF = _GLRowsToModify.OutAmountHUF + _GLRows.AmountHUF = _GLRowsToModify.AmountHUF + _GLRows.DebitAmountHUF = _GLRowsToModify.DebitAmountHUF + _GLRows.Save() + Next + + RaiseEvent FinalWork + + _uow.CommitChanges() + + + End Sub + + Private Sub aGenerateCurrencyRateFIFO_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateCurrencyRateFIFO.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("LiquidAssets.Oid=? And OutAmountDEV>0 And GLHeader.IsEditable=False", _GLRows.LiquidAssets.Oid)) + Dim _GLRows_CollectionToSetZero As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("LiquidAssets.Oid=? And GLHeader.IsEditable=False", _GLRows.LiquidAssets.Oid)) + Dim _Rate As Double + Dim _GLRowsToModify_ArrayList As ArrayList = New ArrayList + Dim _GLRowsToModify As GLRowsToModify_Amount = New GLRowsToModify_Amount + + For Each _GLRows_Element As GLRows In _GLRows_CollectionToSetZero + _GLRows_Element.AmountDEVFIFO = 0 + _GLRows_Element.Save() + Next + + _GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DateExecution", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows_Element As GLRows In _GLRows_Collection + RaiseEvent DoWork() + + _Rate = _GLRows.LiquidAssets.GetCurrencyRateFIFO(_uow, _GLRows_Element.LiquidAssets, _GLRows_Element.OutAmountDEV, _GLRows_Element.GLHeader.DateExecution, _GLRows_Element.Oid) + + _GLRowsToModify.Oid = _GLRows_Element.Oid + _GLRowsToModify.OutAmountHUF = Math.Round(_GLRows_Element.OutAmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify.AmountHUF = Math.Round(_GLRows_Element.AmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify.DebitAmountHUF = Math.Round(_GLRows_Element.DebitAmountDEV * _Rate, 2, MidpointRounding.AwayFromZero) + _GLRowsToModify_ArrayList.Add(_GLRowsToModify) + Next + + For Each _GLRowsToModify In _GLRowsToModify_ArrayList + _GLRows = _uow.GetObjectByKey(Of GLRows)(_GLRowsToModify.Oid) + _GLRows.OutAmountHUF = _GLRowsToModify.OutAmountHUF + _GLRows.AmountHUF = _GLRowsToModify.AmountHUF + _GLRows.DebitAmountHUF = _GLRowsToModify.DebitAmountHUF + _GLRows.Save() + Next + RaiseEvent FinalWork + + _uow.CommitChanges() + End Sub + + Private Sub aGenerateCurrencyRateAverageStart_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateCurrencyRateAverageStart.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _LiquidAssetsRegenerateCurrency As LiquidAssetsRegenerateCurrency + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + _LiquidAssetsRegenerateCurrency = _onew.CreateObject(Of LiquidAssetsRegenerateCurrency)() + _LiquidAssetsRegenerateCurrency.DateFrom = New Date(Year(Now), 1, 1) + _LiquidAssetsRegenerateCurrency.LiquidAssets = _onew.GetObject(_GLRows.LiquidAssets) + + e.View = Application.CreateDetailView(_onew, "LiquidAssetsRegenerateCurrency_DetailView", True, _LiquidAssetsRegenerateCurrency) + End Sub + + Private Sub aGenerateCurrencyRateAverageStart_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateCurrencyRateAverageStart.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _LiquidAssetsRegenerateCurrency As LiquidAssetsRegenerateCurrency = TryCast(e.PopupWindow.View.SelectedObjects(0), LiquidAssetsRegenerateCurrency) + + Dim _GLRows_Collection As New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _LiquidAssetsRegenerateCurrency.LiquidAssets.Oid, _LiquidAssetsRegenerateCurrency.DateFrom.Date)) + + Dim _GLRows As GLRows + Dim _SumAmountDEV As Double = 0 + Dim _SumAmountHUF As Double = 0 + Dim _LiquidAssetsRate As LiquidAssetsRate = _uow.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("LiquidAssets.oid=? and GetYear(DateExecution)=?", _ + _LiquidAssetsRegenerateCurrency.LiquidAssets.Oid, _ + _LiquidAssetsRegenerateCurrency.DateFrom.Date.Year)) + If _LiquidAssetsRate IsNot Nothing Then + _SumAmountDev = _LiquidAssetsRate.AmountDEV + _SumAmountHUF = _LiquidAssetsRate.AmountHUF + End If + + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + '// A deviza a fix s az MNB rfolyammal jra kell szmolni mindent + RaiseEvent DoWork() + If _GLRows.InAmountDEV > 0 Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_ocur.Session, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _LiquidAssetsRegenerateCurrency.LiquidAssets.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.InAmountHUF + Exit For + End If + Next + End If + End If + Next + RaiseEvent FinalWork + _uow.CommitChanges() + + _GLRows_Collection = New XPCollection(Of GLRows) _ + (PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets.Oid=? and GLHeader.IsEditable=False and GetDate(GLHeader.DateExecution)>=?", _ + _LiquidAssetsRegenerateCurrency.LiquidAssets.Oid, _LiquidAssetsRegenerateCurrency.DateFrom.Date)) + + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending)) + _GLRows_Collection.Sorting.Add(New SortProperty("OutAmountDEV", DB.SortingDirection.Ascending)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + + '// rfolyamok helyreraksa + If _GLRows.OutAmountDEV > 0 Then + If _SumAmountDEV <> 0 Then + _GLRows.OutAmountHUF = Math.Round(_GLRows.OutAmountDEV * (_SumAmountHUF / _SumAmountDEV), 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Else + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _ + (_ocur.Session, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _ + _LiquidAssetsRegenerateCurrency.LiquidAssets.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then + _GLRows.OutAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _GLRows.AmountHUF = _GLRows.OutAmountHUF + _GLRows.Save() + _uow.CommitChanges() + If _GLRows.PartnerType <> ePartnerType.eNotSet Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + _uow.CommitChanges() + End If + Exit For + End If + Next + End If + End If + + _SumAmountDEV -= Math.Round(_GLRows.OutAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF -= Math.Round(_GLRows.OutAmountHUF, 2, MidpointRounding.AwayFromZero) + + If _SumAmountDEV < 0 Then _SumAmountDEV = 0 + If _SumAmountHUF < 0 Then _SumAmountHUF = 0 + Else + _SumAmountDEV += Math.Round(_GLRows.InAmountDEV, 2, MidpointRounding.AwayFromZero) + _SumAmountHUF += Math.Round(_GLRows.InAmountHUF, 2, MidpointRounding.AwayFromZero) + End If + Next + _uow.CommitChanges() + + RaiseEvent FinalWork + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsRate.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsRate.vb new file mode 100644 index 0000000..86f7194 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsRate.vb @@ -0,0 +1,66 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class LiquidAssetsRate + Inherits BaseObject + Private _LiquidAssets As LiquidAssets + Private _DateExecution As Date + Private _AmountHUF As Double + Private _AmountDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnDenomination.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnDenomination.vb new file mode 100644 index 0000000..66744f5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnDenomination.vb @@ -0,0 +1,100 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class LiquidAssetsReturnDenomination + Inherits BaseObject + Private _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Private _Idx As Long + Private _Denomination As String + Private _DenominationValue As Double + Private _SumValue As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Get + Return _LiquidAssetsReturnHeader + End Get + Set(value As LiquidAssetsReturnHeader) + SetPropertyValue("LiquidAssetsReturnHeader", _LiquidAssetsReturnHeader, value) + End Set + End Property + Property Denomination As String + Get + Return _Denomination + End Get + Set(value As String) + SetPropertyValue("Denomination", _Denomination, value) + End Set + End Property + Property DenominationValue As Double + Get + Return _DenominationValue + End Get + Set(value As Double) + SetPropertyValue("DenominationValue", _DenominationValue, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + Select Case Denomination + Case "20 000" : SumValue = 20000 * DenominationValue + Case "10 000" : SumValue = 10000 * DenominationValue + Case "5 000" : SumValue = 5000 * DenominationValue + Case "2 000" : SumValue = 2000 * DenominationValue + Case "1 000" : SumValue = 1000 * DenominationValue + Case "500" : SumValue = 500 * DenominationValue + Case "200" : SumValue = 200 * DenominationValue + Case "100" : SumValue = 100 * DenominationValue + Case "50" : SumValue = 50 * DenominationValue + Case "20" : SumValue = 20 * DenominationValue + Case "10" : SumValue = 10 * DenominationValue + Case "5" : SumValue = 5 * DenominationValue + Case "2" : SumValue = 2 * DenominationValue + Case "1" : SumValue = 1 * DenominationValue + Case "50 cent" : SumValue = 0.5 * DenominationValue + Case "20 cent" : SumValue = 0.2 * DenominationValue + Case "10 cent" : SumValue = 0.1 * DenominationValue + Case "5 cent" : SumValue = 0.05 * DenominationValue + Case "2 cent" : SumValue = 0.02 * DenominationValue + Case "1 cent" : SumValue = 0.01 * DenominationValue + End Select + End If + End Set + End Property + Property SumValue As Long + Get + Return _SumValue + End Get + Set(value As Long) + SetPropertyValue("SumValue", _SumValue, value) + End Set + End Property + Property Idx As Long + Get + Return _Idx + End Get + Set(value As Long) + SetPropertyValue("Idx", _Idx, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnHeader.vb new file mode 100644 index 0000000..8ebce22 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnHeader.vb @@ -0,0 +1,467 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class LiquidAssetsReturnHeader 'Pénzeszközök egyenlege + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _LiquidAssets As LiquidAssets 'Pénzeszköz + Private _DateFrom As Date 'Dátumtól + Private _DateTo As Date 'Dátumig + Private _BallanceFromHUF As Double = 0 + Private _BallanceFromDEV As Double = 0 + Private _BallanceToHUF As Double = 0 + Private _BallanceToDEV As Double = 0 + Private _ObjectCreated As Date + Private _UserCreated As User + Private _GLClosingTime As GLClosingTime + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + _ + ReadOnly Property LiquidAssetsReturnRows As XPCollection(Of LiquidAssetsReturnRows) + Get + Return GetCollection(Of LiquidAssetsReturnRows)("LiquidAssetsReturnRows") + End Get + End Property + _ + ReadOnly Property LiquidAssetsReturnRowsGLRows As XPCollection(Of GLRows) + Get + Dim _GLRows As GLRows + Dim _LiquidAssetsReturnRowsGLRows As New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("1=2")) + Dim _LiquidAssetsReturnRows As LiquidAssetsReturnRows + For Each _LiquidAssetsReturnRows In Me.LiquidAssetsReturnRows + For Each _GLRows In _LiquidAssetsReturnRows.GLCassa.GLRows + _LiquidAssetsReturnRowsGLRows.Add(_GLRows) + Next + Next + Return _LiquidAssetsReturnRowsGLRows + End Get + End Property + _ + _ + ReadOnly Property LiquidAssetsReturnDenomination As XPCollection(Of LiquidAssetsReturnDenomination) + Get + Return GetCollection(Of LiquidAssetsReturnDenomination)("LiquidAssetsReturnDenomination") + End Get + End Property + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Session.Delete(Me.LiquidAssetsReturnDenomination) + '--- Forint címlet jegyzék + If value.CurrencyName.ShortName = "HUF" Then + If LiquidAssetsReturnDenomination.Count = 0 Then + Dim _LiquidAssetsReturnDenomination As LiquidAssetsReturnDenomination + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 0 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20 000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 1 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10 000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 2 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5 000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 3 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "2 000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 4 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "1 000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 5 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "500" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 6 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "200" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 7 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "100" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 8 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "50" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 9 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 10 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 11 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + End If + End If + If value.CurrencyName.ShortName = "EUR" Then + If LiquidAssetsReturnDenomination.Count = 0 Then + Dim _LiquidAssetsReturnDenomination As LiquidAssetsReturnDenomination + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 1 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "500" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 2 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "200" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 3 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "100" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 4 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "50" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 5 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 6 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 7 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 8 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "2" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 9 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "1" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 10 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "50 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 11 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 12 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 13 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 14 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "2 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 15 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "1 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + End If + End If + If value.CurrencyName.ShortName = "CHF" Then + If LiquidAssetsReturnDenomination.Count = 0 Then + Dim _LiquidAssetsReturnDenomination As LiquidAssetsReturnDenomination + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 0 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "1000" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 2 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "200" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 3 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "100" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 4 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "50" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 5 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 6 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 7 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 8 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "2" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 9 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "1" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 10 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "50 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 11 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "20 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 12 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "10 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + _LiquidAssetsReturnDenomination = New LiquidAssetsReturnDenomination(Session) + _LiquidAssetsReturnDenomination.Idx = 13 + _LiquidAssetsReturnDenomination.LiquidAssetsReturnHeader = Me + _LiquidAssetsReturnDenomination.Denomination = "5 cent" + _LiquidAssetsReturnDenomination.DenominationValue = 0 + + End If + End If + End If + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(ByVal value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + Property BallanceFromHUF As Double + Get + Return _BallanceFromHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceFromHUF", _BallanceFromHUF, value) + End Set + End Property + Property BallanceToHUF As Double + Get + Return _BallanceToHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceToHUF", _BallanceToHUF, value) + End Set + End Property + Property BallanceFromDEV As Double + Get + Return _BallanceFromDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceFromDEV", _BallanceFromDEV, value) + End Set + End Property + Property BallanceToDEV As Double + Get + Return _BallanceToDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceToDEV", _BallanceToDEV, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property GLClosingTime As GLClosingTime + Get + Return _GLClosingTime + End Get + Set(value As GLClosingTime) + SetPropertyValue("GLClosingTime", _GLClosingTime, value) + End Set + End Property + + Sub RecalculateBallance() + If LiquidAssets Is Nothing Then Exit Sub + If DateFrom < #1/1/2000# Then Exit Sub + BallanceFromHUF = 0 + BallanceFromDEV = 0 + BallanceToHUF = 0 + BallanceToDEV = 0 + Dim _GLRows_Collection As New XPCollection(Of GLRows)(Session, CriteriaOperator.Parse("GetDate(GLHeader.DateExecution)'' and GLHeader.IsStorno=False", DateFrom.Date)) + Dim query = From _GLRows In _GLRows_Collection _ + Where _GLRows.GLHeader.DateExecution.Date < DateFrom.Date And _GLRows.LiquidAssets Is Me.LiquidAssets And + _GLRows.GLHeader.IsEditable = False And + String.IsNullOrEmpty(_GLRows.GLHeader.DocumentNumber) = False And + _GLRows.GLHeader IsNot Nothing + Group _GLRows By _GLRows.GLHeader.CustomersFrom, _ + _GLRows.LiquidAssets Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .LiquidAssets = LiquidAssets, _ + Key .InAmountHUF = g.Sum(Function(inv) inv.InAmountHUF), _ + Key .OutAmountHUF = g.Sum(Function(inv) inv.OutAmountHUF), _ + Key .InAmountDEV = g.Sum(Function(inv) inv.InAmountDEV), _ + Key .OutAmountDEV = g.Sum(Function(inv) inv.OutAmountDEV)} + + For Each item In query + BallanceFromHUF += item.InAmountHUF - item.OutAmountHUF + BallanceFromDEV += item.InAmountDEV - item.OutAmountDEV + Next + Dim _LiquidAssetsReturnRows As LiquidAssetsReturnRows + Dim _ReturnAmountHUF As Double = 0 + Dim _ReturnAmountDEV As Double = 0 + For Each _LiquidAssetsReturnRows In LiquidAssetsReturnRows + _ReturnAmountHUF += (_LiquidAssetsReturnRows.GLCassa.TotalInAmountHUF - _LiquidAssetsReturnRows.GLCassa.TotalOutAmountHUF) + _ReturnAmountDEV += (_LiquidAssetsReturnRows.GLCassa.TotalInAmountDEV - _LiquidAssetsReturnRows.GLCassa.TotalOutAmountDEV) + Next + Me.BallanceToHUF = Me.BallanceFromHUF + _ReturnAmountHUF + Me.BallanceToDEV = Me.BallanceFromDEV + _ReturnAmountDEV + End Sub + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnRows.vb new file mode 100644 index 0000000..ce3959f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnRows.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class LiquidAssetsReturnRows + Inherits BaseObject + Private _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Private _GLCassa As GLCassa + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Get + Return _LiquidAssetsReturnHeader + End Get + Set(ByVal value As LiquidAssetsReturnHeader) + SetPropertyValue("LiquidAssetsReturnHeader", _LiquidAssetsReturnHeader, value) + End Set + End Property + Property GLCassa As GLCassa + Get + Return _GLCassa + End Get + Set(ByVal value As GLCassa) + SetPropertyValue("GLCassa", _GLCassa, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb new file mode 100644 index 0000000..c116727 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.Designer.vb @@ -0,0 +1,112 @@ +Partial Class LiquidAssetsReturnVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aPrintLiquidAssetsReturn_Cassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGetReturn_Cassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCassaClose = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCassaCloseBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCassaClosePreviewPDF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aPrintLiquidAssetsReturn_Cassa + ' + Me.aPrintLiquidAssetsReturn_Cassa.Caption = "aPrintLiquidAssetsReturn_Cassa" + Me.aPrintLiquidAssetsReturn_Cassa.ConfirmationMessage = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.Id = "aPrintLiquidAssetsReturn_Cassa" + Me.aPrintLiquidAssetsReturn_Cassa.ImageName = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aPrintLiquidAssetsReturn_Cassa.Shortcut = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.Tag = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.TargetObjectsCriteria = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.TargetViewId = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.ToolTip = Nothing + Me.aPrintLiquidAssetsReturn_Cassa.TypeOfView = Nothing + ' + 'aGetReturn_Cassa + ' + Me.aGetReturn_Cassa.Caption = "Get return cassa" + Me.aGetReturn_Cassa.ConfirmationMessage = "Do you want to execute command ?" + Me.aGetReturn_Cassa.Id = "aGetReturn_Cassa" + Me.aGetReturn_Cassa.ImageName = "stopwatch_run" + Me.aGetReturn_Cassa.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGetReturn_Cassa.Shortcut = Nothing + Me.aGetReturn_Cassa.Tag = Nothing + Me.aGetReturn_Cassa.TargetObjectsCriteria = "isnull(GLClosingTime)=True" + Me.aGetReturn_Cassa.TargetViewId = "LiquidAssetsReturnHeader_DetailView_Cassa" + Me.aGetReturn_Cassa.ToolTip = Nothing + Me.aGetReturn_Cassa.TypeOfView = Nothing + ' + 'aGLCassaClose + ' + Me.aGLCassaClose.Caption = "aGLCassa Close" + Me.aGLCassaClose.ConfirmationMessage = "Do you want to execute command ?" + Me.aGLCassaClose.Id = "aGLCassaClose" + Me.aGLCassaClose.ImageName = Nothing + Me.aGLCassaClose.Shortcut = Nothing + Me.aGLCassaClose.Tag = Nothing + Me.aGLCassaClose.TargetObjectsCriteria = "isnull(GLClosingTime)=True" + Me.aGLCassaClose.TargetViewId = Nothing + Me.aGLCassaClose.ToolTip = Nothing + Me.aGLCassaClose.TypeOfView = Nothing + ' + 'aGLCassaCloseBack + ' + Me.aGLCassaCloseBack.Caption = "aGLCassa Close Back" + Me.aGLCassaCloseBack.ConfirmationMessage = "Do you want to execute command ?" + Me.aGLCassaCloseBack.Id = "aGLCassaCloseBack" + Me.aGLCassaCloseBack.ImageName = Nothing + Me.aGLCassaCloseBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCassaCloseBack.Shortcut = Nothing + Me.aGLCassaCloseBack.Tag = Nothing + Me.aGLCassaCloseBack.TargetObjectsCriteria = "isnull(GLClosingTime)=False" + Me.aGLCassaCloseBack.TargetViewId = Nothing + Me.aGLCassaCloseBack.ToolTip = Nothing + Me.aGLCassaCloseBack.TypeOfView = Nothing + ' + 'aGLCassaClosePreviewPDF + ' + Me.aGLCassaClosePreviewPDF.Caption = "aGLCassa Close Preview PDF" + Me.aGLCassaClosePreviewPDF.ConfirmationMessage = Nothing + Me.aGLCassaClosePreviewPDF.Id = "aGLCassaClosePreviewPDF" + Me.aGLCassaClosePreviewPDF.ImageName = Nothing + Me.aGLCassaClosePreviewPDF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCassaClosePreviewPDF.Shortcut = Nothing + Me.aGLCassaClosePreviewPDF.Tag = Nothing + Me.aGLCassaClosePreviewPDF.TargetObjectsCriteria = "isnull(GLClosingTime)=False" + Me.aGLCassaClosePreviewPDF.TargetViewId = Nothing + Me.aGLCassaClosePreviewPDF.ToolTip = Nothing + Me.aGLCassaClosePreviewPDF.TypeOfView = Nothing + + End Sub + Friend WithEvents aPrintLiquidAssetsReturn_Cassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGetReturn_Cassa As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCassaClose As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCassaCloseBack As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCassaClosePreviewPDF As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.resx new file mode 100644 index 0000000..fc2ad2c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 227, 17 + + + 703, 17 + + + 370, 17 + + + 519, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb new file mode 100644 index 0000000..be8599a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/LiquidAssetsReturnVC.vb @@ -0,0 +1,317 @@ +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.XtraReports.UI +Imports System.Drawing.Printing +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Reports +Imports System.IO +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.XtraPrinting +'Imports DevExpress.XtraReports.UI +Imports DevExpress.XtraPrinting.Preview + +Public Class LiquidAssetsReturnVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaCloseBack.Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClosePreviewPDF.Active.SetItemValue("", False) + + If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True) + + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader) + If _LiquidAssetsReturnHeader IsNot Nothing Then + If _LiquidAssetsReturnHeader.GLClosingTime IsNot Nothing Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Else + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", True) + End If + End If + AddHandler Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing + AddHandler Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing + End If + + If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa_Closed" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", True) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaCloseBack.Active.SetItemValue("", True) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClosePreviewPDF.Active.SetItemValue("", True) + End If + + If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + End If + + If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False) + + If View.Id = "LiquidAssetsReturnHeader_ListView_Cassa" Then + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + + End If + + If View.Id = "LiquidAssetsReturnHeader_DetailView_Cassa" Then + Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Active.SetItemValue("", False) + Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aPrintLiquidAssetsReturn_Cassa.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing + RemoveHandler Frame.GetController(Of LiquidAssetsReturnVC).aGLCassaClose.Executing, AddressOf LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing + End If + If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnRows_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + End If + + If View.Id = "LiquidAssetsReturnHeader_LiquidAssetsReturnDenomination_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ExportController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RecordsNavigationController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aGetReturn_Cassa_LiquidAssetsReturn_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetReturn_Cassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Dim _LiquidAssetsReturnRows As LiquidAssetsReturnRows + Dim _GLCassa As GLCassa + + _LiquidAssetsReturnHeader = _uow.GetObjectByKey(Of LiquidAssetsReturnHeader)(TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader).Oid) + If _LiquidAssetsReturnHeader IsNot Nothing Then + _uow.Delete(_LiquidAssetsReturnHeader.LiquidAssetsReturnRows) + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(_uow, _ + CriteriaOperator.Parse("GetDate(DateExecution)>=? and GetDate(DateExecution)<=? and LiquidAssets_Cassa=? and DocumentNumber<>''", _ + _LiquidAssetsReturnHeader.DateFrom.Date, _LiquidAssetsReturnHeader.DateTo.Date, _LiquidAssetsReturnHeader.LiquidAssets)) + + _GLCassa_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending)) + RaiseEvent InitWork(1, 1, _GLCassa_Collection.Count) + For Each _GLCassa In _GLCassa_Collection + RaiseEvent DoWork() + _LiquidAssetsReturnRows = New LiquidAssetsReturnRows(_uow) + _LiquidAssetsReturnRows.LiquidAssetsReturnHeader = _uow.GetObjectByKey(Of LiquidAssetsReturnHeader)(_LiquidAssetsReturnHeader.Oid) + _LiquidAssetsReturnRows.GLCassa = _GLCassa + Next + _uow.CommitChanges() + _LiquidAssetsReturnHeader.RecalculateBallance() + _uow.CommitChanges() + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aPrintLiquidAssetsReturn_Cassa_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintLiquidAssetsReturn_Cassa.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader + Dim _ReportData As ReportData + + If e.SelectedObjects.Count > 0 Then + _LiquidAssetsReturnHeader = e.SelectedObjects.Item(0) + Dim _CS As New CollectionSource(_ocur, GetType(LiquidAssetsReturnRows)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria.Add("Empty", CriteriaOperator.Parse("LiquidAssetsReturnHeader.Oid =?", _LiquidAssetsReturnHeader.Oid)) + _CS.EndUpdateCriteria() + + 'If _CS.List.Count = 0 Then + ' Dim _ReportData_new As ReportData + ' _ReportData_new = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid = '37'")) + ' If _LiquidAssetsReturnHeader.LiquidAssets.ReportData_Return Is Nothing Then + ' _ocur.Rollback() + ' Throw New Exception("*Nincs megadva a pnztri forgalmi nyomtatvny !") + ' End If + ' If _ReportData_new IsNot Nothing Or _LiquidAssetsReturnHeader IsNot Nothing Then + ' Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_new, CriteriaOperator.Parse("Oid =?", _LiquidAssetsReturnHeader.Oid), True) + ' End If + 'Else + If _LiquidAssetsReturnHeader.LiquidAssets.ReportData_Return Is Nothing Then + _ocur.Rollback() + Throw New Exception("*Nincs megadva a pnztri forgalmi nyomtatvny !") + End If + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _LiquidAssetsReturnHeader.LiquidAssets.ReportData_Return.Oid), True) + If _ReportData Is Nothing Or _LiquidAssetsReturnHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("LiquidAssetsReturnHeader =?", _LiquidAssetsReturnHeader.Oid), True) + End If + 'End If + End If + End Sub + Private Sub aGLCassaClose_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCassaClose.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa_Collection As New XPCollection(Of GLCassa) + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader) + Dim _GLClosingTime As GLClosingTime + Dim _GLCassa As GLCassa + If _LiquidAssetsReturnHeader IsNot Nothing Then + _GLCassa_Collection = New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _ocur.Session, CriteriaOperator.Parse("isnull(GLClosingTime)=False and LiquidAssets_Cassa.Oid=? and DateExecution >=? and DateExecution<=?", _ + _LiquidAssetsReturnHeader.LiquidAssets.Oid, _ + _LiquidAssetsReturnHeader.DateFrom.Date, _ + DateAdd(DateInterval.Minute, 1439, _LiquidAssetsReturnHeader.DateTo.Date))) + + If _GLCassa_Collection.Count > 0 Then + Throw New Exception("*Van olyan pnztri ttel amely mr ezen idszakon bell le lett zrva !") + End If + + _GLCassa_Collection = New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _ocur.Session, CriteriaOperator.Parse("IsEditable=True and LiquidAssets_Cassa.Oid=? and DateExecution >=? and DateExecution<=?", _ + _LiquidAssetsReturnHeader.LiquidAssets.Oid, _ + _LiquidAssetsReturnHeader.DateFrom.Date, _ + DateAdd(DateInterval.Minute, 1439, _LiquidAssetsReturnHeader.DateTo.Date))) + + If _GLCassa_Collection.Count > 0 Then + Throw New Exception("*Van olyan pnztri ttel amely szerkeszthet ezen idszakon bell !") + End If + + _GLClosingTime = _ocur.CreateObject(Of GLClosingTime)() + _GLClosingTime.DateFrom = _LiquidAssetsReturnHeader.DateFrom + _GLClosingTime.DateTo = _LiquidAssetsReturnHeader.DateTo + _GLClosingTime.GLClosingType = eGLClosingType.eCassa + + _LiquidAssetsReturnHeader.GLClosingTime = _GLClosingTime + + _GLCassa_Collection = New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _ocur.Session, CriteriaOperator.Parse("LiquidAssets_Cassa.Oid=? and GetDate(DateExecution) >=? and GetDate(DateExecution) <=?", _ + _LiquidAssetsReturnHeader.LiquidAssets.Oid, _ + _LiquidAssetsReturnHeader.DateFrom.Date, _ + DateAdd(DateInterval.Minute, 1439, _LiquidAssetsReturnHeader.DateTo.Date))) + + RaiseEvent InitWork(1, 1, _GLCassa_Collection.Count) + For Each _GLCassa In _GLCassa_Collection + RaiseEvent DoWork() + _GLCassa.GLClosingTime = _GLClosingTime + Next + + '-- Most PDF-be ki kell tolni a pnztri jelentst s azt el kell menteni mint csatolt filet. ---------------------------------------------------------------- + Dim _XafReport As XafReport = _LiquidAssetsReturnHeader.LiquidAssets.ReportData_Return.LoadReport(_ocur) + _XafReport.FilterString = "[LiquidAssetsReturnHeader.Oid]='" & _LiquidAssetsReturnHeader.Oid.ToString & "'" + Dim _FileName As String = Path.GetTempPath & "Report.pdf" + Dim _StreamFile As New FileStream(_FileName, FileMode.Create) + _XafReport.ExportToPdf(_StreamFile) + + _GLClosingTime.DocumentFile = New FileData(_ocur.Session) + _GLClosingTime.DocumentFile.LoadFromStream("Report.pdf", _StreamFile) '_FileData + _GLClosingTime.DocumentFile.FileName = "Report.pdf" + '------------------------------------------------------------------------------------------------------------------------------------------------------------- + _StreamFile.Close() + + _ocur.CommitChanges() + RaiseEvent FinalWork + View.Close() + End If + End Sub + Private Sub aGLCassaCloseBack_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCassaCloseBack.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCassa_Collection As New XPCollection(Of GLCassa) + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader) + Dim _GLCassa As GLCassa + + _GLCassa_Collection = New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _ocur.Session, CriteriaOperator.Parse("LiquidAssets_Cassa.Oid=? and GLClosingTime.Oid=?", _ + _LiquidAssetsReturnHeader.LiquidAssets.Oid, _ + _LiquidAssetsReturnHeader.GLClosingTime.Oid)) + + RaiseEvent InitWork(1, 1, _GLCassa_Collection.Count) + For Each _GLCassa In _GLCassa_Collection + RaiseEvent DoWork() + _GLCassa.GLClosingTime = Nothing + Next + _LiquidAssetsReturnHeader.GLClosingTime = Nothing + _ocur.CommitChanges() + RaiseEvent FinalWork + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + Private Sub LiquidAssetsReturnHeader_ListView_Cassa_PrintLiquidAssetsReturn_Cassa_Executing(sender As Object, e As CancelEventArgs) + Dim CheckResult As Boolean = DenominationCheck() + If Not CheckResult Then + MsgBox("A pnztri pnzkszlet s a cmletjegyzkben feltntetett pnzkszlet rtke nem egyezik!") + End If + End Sub + Private Sub LiquidAssetsReturnHeader_ListView_Cassa_GLCassaClose_Executing(sender As Object, e As CancelEventArgs) + Dim CheckResult As Boolean = DenominationCheck() + If Not CheckResult Then + Throw New Exception("*A pnztri pnzkszlet s a cmletjegyzkben feltntetett pnzkszlet rtke nem egyezik!") + End If + End Sub + Private Function DenominationCheck() As Boolean + If Frame.GetController(Of ModificationsController).SaveAction.Enabled = True Then + Frame.GetController(Of ModificationsController).SaveAction.DoExecute() + End If + + Dim Valid As Boolean = False + Dim _LARHSumValue As Double = 0 + Dim _uow As New UnitOfWork(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.DataLayer) + Dim _LiquidAssetsReturnHeader As LiquidAssetsReturnHeader = _uow.GetObjectByKey(Of LiquidAssetsReturnHeader)(TryCast(View.SelectedObjects(0), LiquidAssetsReturnHeader).Oid) + For Each _LiquidAssetsReturnDenomination As LiquidAssetsReturnDenomination In _LiquidAssetsReturnHeader.LiquidAssetsReturnDenomination + _LARHSumValue += _LiquidAssetsReturnDenomination.SumValue + Next + If _LiquidAssetsReturnHeader.LiquidAssets.CurrencyName.ShortName = "HUF" Then + If _LARHSumValue = _LiquidAssetsReturnHeader.BallanceToHUF Then + Valid = True + End If + Else + If _LARHSumValue = _LiquidAssetsReturnHeader.BallanceToDEV Then + Valid = True + End If + End If + + Return Valid + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/Popup/LiquidAssetsRegenerateCurrency.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/Popup/LiquidAssetsRegenerateCurrency.vb new file mode 100644 index 0000000..16a0e63 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/LiquidAssets/Popup/LiquidAssetsRegenerateCurrency.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class LiquidAssetsRegenerateCurrency + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property LiquidAssets As LiquidAssets + Property DateFrom As Date +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixed.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixed.vb new file mode 100644 index 0000000..4c64d39 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixed.vb @@ -0,0 +1,116 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +'-- Vegyes knyvels +' _ + _ + _ + _ + _ + _ + _ +Public Class GLMixed + Inherits GLHeader + Private _DocumentFile As FileData + Private _row_PartnerType As ePartnerType = ePartnerType.eNotSet + Private _row_PCIGroup As PCIGroup + Private _row_TransactionType As eTransactionType = eTransactionType.eNotSet + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + Me.GLDocumentType = eGLDocumentType.eGLMixed + Me.DateExecution = GetSQLTime(Session) + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + Session.Delete(Me.GLRows) + End Sub + Property DocumentFile As FileData + Get + Return _DocumentFile + End Get + Set(value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + + '//Nonpersistent property + _ + _ + _ + Property row_PartnerType As ePartnerType + Get + Return _row_PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("row_PartnerType", _row_PartnerType, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + Select Case value + Case ePartnerType.eNotSet + Me.row_TransactionType = eTransactionType.eNotSet + End Select + End If + End Set + End Property + _ + _ + _ + _ + Property row_PCIGroup() As PCIGroup + Get + Return _row_PCIGroup + End Get + Set(ByVal value As PCIGroup) + SetPropertyValue("row_PCIGroup", _row_PCIGroup, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If value IsNot Nothing Then + row_ConnectInfo = value.ConnectInfo + row_Customer = value.Customers + row_PartnerType = value.PartnerType + End If + End If + End Set + End Property + _ + _ + Property row_TransactionType As eTransactionType + Get + Return _row_TransactionType + End Get + Set(value As eTransactionType) + SetPropertyValue("row_TransactionType", _row_TransactionType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedNG.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedNG.vb new file mode 100644 index 0000000..9499de9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedNG.vb @@ -0,0 +1,110 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLMixedNG + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + + Private _NumberGenerator As NumberGenerator 'Sorszm a norml vegyes ttelekhez + Private _NumberGenerator_RateDiff As NumberGenerator 'Sorszm rfolyam elszmolshoz + Private _NumberGenerator_Rounding As NumberGenerator 'Sorszm Elengedshez elszmolshoz + Private _NumberGenerator_Revaluation As NumberGenerator 'Sorszm trtkelshez elszmolshoz + Private _NumberGenerator_LateCharges As NumberGenerator 'Sorszm a kamatlevlhez ksedelmes fizets esetn + Private _DebitControlling_LateCharges As Controlling 'Tartozik fknyvi szm a kamatlevl sorhoz + Private _CreditControlling_LateCharges As Controlling 'Kvetel fk. szm a ksedelmi kamatlevl sorhoz + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property NumberGenerator_RateDiff As NumberGenerator + Get + Return _NumberGenerator_RateDiff + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_RateDiff", _NumberGenerator_RateDiff, value) + End Set + End Property + _ + Property NumberGenerator_Rounding As NumberGenerator + Get + Return _NumberGenerator_Rounding + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Rounding", _NumberGenerator_Rounding, value) + End Set + End Property + _ + Property NumberGenerator_Revaluation As NumberGenerator + Get + Return _NumberGenerator_Revaluation + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_Revaluation", _NumberGenerator_Revaluation, value) + End Set + End Property + + Property NumberGenerator_LateCharges As NumberGenerator + Get + Return _NumberGenerator_LateCharges + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator_LateCharges", _NumberGenerator_LateCharges, value) + End Set + End Property + Property DebitControlling_LateCharges As Controlling + Get + Return _DebitControlling_LateCharges + End Get + Set(value As Controlling) + SetPropertyValue("DebitControlling_LateCharges", _DebitControlling_LateCharges, value) + End Set + End Property + Property CreditControlling_LateCharges As Controlling + Get + Return _CreditControlling_LateCharges + End Get + Set(value As Controlling) + SetPropertyValue("CreditControlling_LateCharges", _CreditControlling_LateCharges, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb new file mode 100644 index 0000000..83f3271 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.Designer.vb @@ -0,0 +1,243 @@ +Partial Class GLMixedVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aStorno_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDW_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_RateDiff_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_RateDiff_GLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBackToRowEdit_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMakeEditable_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinal_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFinalAndNew_GLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloneGLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSetDateGLMixed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aStorno_GLMixed + ' + Me.aStorno_GLMixed.Caption = "aStorno_GLMixed" + Me.aStorno_GLMixed.Category = "RecordEdit" + Me.aStorno_GLMixed.ConfirmationMessage = "Do you want to execute command ?" + Me.aStorno_GLMixed.Id = "aStorno_GLMixed" + Me.aStorno_GLMixed.ImageName = Nothing + Me.aStorno_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aStorno_GLMixed.Shortcut = Nothing + Me.aStorno_GLMixed.Tag = Nothing + Me.aStorno_GLMixed.TargetObjectsCriteria = Nothing + Me.aStorno_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aStorno_GLMixed.TargetViewId = Nothing + Me.aStorno_GLMixed.ToolTip = Nothing + Me.aStorno_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aViewPCIDW_RateDiff + ' + Me.aViewPCIDW_RateDiff.Caption = "View detail" + Me.aViewPCIDW_RateDiff.Category = "View" + Me.aViewPCIDW_RateDiff.ConfirmationMessage = Nothing + Me.aViewPCIDW_RateDiff.Id = "aViewPCIDW_RateDiff" + Me.aViewPCIDW_RateDiff.ImageName = Nothing + Me.aViewPCIDW_RateDiff.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDW_RateDiff.Shortcut = Nothing + Me.aViewPCIDW_RateDiff.Tag = Nothing + Me.aViewPCIDW_RateDiff.TargetObjectsCriteria = "GLHeader.GLDocumentType=5" + Me.aViewPCIDW_RateDiff.TargetViewId = "" + Me.aViewPCIDW_RateDiff.ToolTip = Nothing + Me.aViewPCIDW_RateDiff.TypeOfView = Nothing + ' + 'aViewAttachments_RateDiff_GLRows + ' + Me.aViewAttachments_RateDiff_GLRows.Caption = "aViewAttachments_RateDiff_GLRows" + Me.aViewAttachments_RateDiff_GLRows.ConfirmationMessage = Nothing + Me.aViewAttachments_RateDiff_GLRows.Id = "aViewAttachments_RateDiff_GLRows" + Me.aViewAttachments_RateDiff_GLRows.ImageName = "printer_view" + Me.aViewAttachments_RateDiff_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_RateDiff_GLRows.Shortcut = Nothing + Me.aViewAttachments_RateDiff_GLRows.Tag = Nothing + Me.aViewAttachments_RateDiff_GLRows.TargetObjectsCriteria = "GLHeader.GLDocumentType=5" + Me.aViewAttachments_RateDiff_GLRows.TargetViewId = "" + Me.aViewAttachments_RateDiff_GLRows.ToolTip = Nothing + Me.aViewAttachments_RateDiff_GLRows.TypeOfView = Nothing + ' + 'aViewRegistry_RateDiff_GLRows + ' + Me.aViewRegistry_RateDiff_GLRows.Caption = "aViewRegistry_RateDiff_GLRows" + Me.aViewRegistry_RateDiff_GLRows.ConfirmationMessage = Nothing + Me.aViewRegistry_RateDiff_GLRows.Id = "aViewRegistry_RateDiff_GLRows" + Me.aViewRegistry_RateDiff_GLRows.ImageName = "document_pinned" + Me.aViewRegistry_RateDiff_GLRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_RateDiff_GLRows.Shortcut = Nothing + Me.aViewRegistry_RateDiff_GLRows.Tag = Nothing + Me.aViewRegistry_RateDiff_GLRows.TargetObjectsCriteria = "GLHeader.GLDocumentType=5" + Me.aViewRegistry_RateDiff_GLRows.TargetViewId = "" + Me.aViewRegistry_RateDiff_GLRows.ToolTip = Nothing + Me.aViewRegistry_RateDiff_GLRows.TypeOfView = Nothing + ' + 'aToTableD_GLMixed + ' + Me.aToTableD_GLMixed.Caption = "Delete row" + Me.aToTableD_GLMixed.Category = "aToTable_GLMixed" + Me.aToTableD_GLMixed.ConfirmationMessage = Nothing + Me.aToTableD_GLMixed.Id = "aToTableD_GLMixed" + Me.aToTableD_GLMixed.ImageName = Nothing + Me.aToTableD_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aToTableD_GLMixed.Shortcut = Nothing + Me.aToTableD_GLMixed.Tag = Nothing + Me.aToTableD_GLMixed.TargetObjectsCriteria = Nothing + Me.aToTableD_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aToTableD_GLMixed.TargetViewId = "" + Me.aToTableD_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_GLMixed.ToolTip = Nothing + Me.aToTableD_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aBackToRowEdit_GLMixed + ' + Me.aBackToRowEdit_GLMixed.Caption = "Edit row" + Me.aBackToRowEdit_GLMixed.Category = "aToTable_GLMixed" + Me.aBackToRowEdit_GLMixed.ConfirmationMessage = Nothing + Me.aBackToRowEdit_GLMixed.Id = "aBackToRowEdit_GLMixed" + Me.aBackToRowEdit_GLMixed.ImageName = Nothing + Me.aBackToRowEdit_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBackToRowEdit_GLMixed.Shortcut = Nothing + Me.aBackToRowEdit_GLMixed.Tag = Nothing + Me.aBackToRowEdit_GLMixed.TargetObjectsCriteria = Nothing + Me.aBackToRowEdit_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aBackToRowEdit_GLMixed.TargetViewId = "" + Me.aBackToRowEdit_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aBackToRowEdit_GLMixed.ToolTip = Nothing + Me.aBackToRowEdit_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aMakeEditable_GLMixed + ' + Me.aMakeEditable_GLMixed.Caption = "aMakeEditable_GLMixed" + Me.aMakeEditable_GLMixed.Category = "RecordEdit" + Me.aMakeEditable_GLMixed.ConfirmationMessage = "Do you want to execute command ?" + Me.aMakeEditable_GLMixed.Id = "aMakeEditable_GLMixed" + Me.aMakeEditable_GLMixed.ImageName = "Images.replace2.png" + Me.aMakeEditable_GLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aMakeEditable_GLMixed.Shortcut = Nothing + Me.aMakeEditable_GLMixed.Tag = Nothing + Me.aMakeEditable_GLMixed.TargetObjectsCriteria = Nothing + Me.aMakeEditable_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aMakeEditable_GLMixed.TargetViewId = Nothing + Me.aMakeEditable_GLMixed.ToolTip = Nothing + Me.aMakeEditable_GLMixed.TypeOfView = Nothing + ' + 'aToTable_GLMixed + ' + Me.aToTable_GLMixed.Caption = "aToTable" + Me.aToTable_GLMixed.Category = "aToTable_GLMixed" + Me.aToTable_GLMixed.ConfirmationMessage = Nothing + Me.aToTable_GLMixed.Id = "aToTable_GLMixed" + Me.aToTable_GLMixed.ImageName = Nothing + Me.aToTable_GLMixed.Shortcut = Nothing + Me.aToTable_GLMixed.Tag = Nothing + Me.aToTable_GLMixed.TargetObjectsCriteria = Nothing + Me.aToTable_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aToTable_GLMixed.TargetViewId = "" + Me.aToTable_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_GLMixed.ToolTip = Nothing + Me.aToTable_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinal_GLMixed + ' + Me.aFinal_GLMixed.Caption = "aFinal_GLMixed" + Me.aFinal_GLMixed.ConfirmationMessage = Nothing + Me.aFinal_GLMixed.Id = "aFinal_GLMixed" + Me.aFinal_GLMixed.ImageName = "MenuBar_SaveAndClose" + Me.aFinal_GLMixed.Shortcut = Nothing + Me.aFinal_GLMixed.Tag = Nothing + Me.aFinal_GLMixed.TargetObjectsCriteria = Nothing + Me.aFinal_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aFinal_GLMixed.TargetViewId = Nothing + Me.aFinal_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinal_GLMixed.ToolTip = Nothing + Me.aFinal_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFinalAndNew_GLMixed + ' + Me.aFinalAndNew_GLMixed.Caption = "aFinalAndNew_GLMixed" + Me.aFinalAndNew_GLMixed.ConfirmationMessage = Nothing + Me.aFinalAndNew_GLMixed.Id = "aFinalAndNew_GLMixed" + Me.aFinalAndNew_GLMixed.ImageName = "MenuBar_SaveAndNew" + Me.aFinalAndNew_GLMixed.Shortcut = Nothing + Me.aFinalAndNew_GLMixed.Tag = Nothing + Me.aFinalAndNew_GLMixed.TargetObjectsCriteria = Nothing + Me.aFinalAndNew_GLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aFinalAndNew_GLMixed.TargetViewId = Nothing + Me.aFinalAndNew_GLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFinalAndNew_GLMixed.ToolTip = Nothing + Me.aFinalAndNew_GLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aCloneGLMixed + ' + Me.aCloneGLMixed.Caption = "aCloneGLMixed" + Me.aCloneGLMixed.Category = "ObjectsCreation" + Me.aCloneGLMixed.ConfirmationMessage = Nothing + Me.aCloneGLMixed.Id = "aCloneGLMixed" + Me.aCloneGLMixed.ImageName = Nothing + Me.aCloneGLMixed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneGLMixed.Shortcut = Nothing + Me.aCloneGLMixed.Tag = Nothing + Me.aCloneGLMixed.TargetObjectsCriteria = Nothing + Me.aCloneGLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aCloneGLMixed.TargetViewId = Nothing + Me.aCloneGLMixed.ToolTip = Nothing + Me.aCloneGLMixed.TypeOfView = Nothing + ' + 'aSetDateGLMixed + ' + Me.aSetDateGLMixed.Caption = "aSet Date GLMixed" + Me.aSetDateGLMixed.ConfirmationMessage = Nothing + Me.aSetDateGLMixed.Id = "aSetDateGLMixed" + Me.aSetDateGLMixed.ImageName = Nothing + Me.aSetDateGLMixed.Shortcut = Nothing + Me.aSetDateGLMixed.Tag = Nothing + Me.aSetDateGLMixed.TargetObjectsCriteria = Nothing + Me.aSetDateGLMixed.TargetObjectType = GetType(SISBusiness.[Module].GLMixed) + Me.aSetDateGLMixed.TargetViewId = Nothing + Me.aSetDateGLMixed.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSetDateGLMixed.ToolTip = Nothing + Me.aSetDateGLMixed.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aToTable_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMakeEditable_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aStorno_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinal_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFinalAndNew_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aBackToRowEdit_GLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDW_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_RateDiff_GLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_RateDiff_GLRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloneGLMixed As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSetDateGLMixed As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.resx new file mode 100644 index 0000000..c0e8389 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 486, 17 + + + 816, 17 + + + 17, 56 + + + 421, 56 + + + 646, 56 + + + 809, 56 + + + 17, 17 + + + 267, 56 + + + 987, 17 + + + 633, 17 + + + 349, 17 + + + 201, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb new file mode 100644 index 0000000..056b0a8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Mixed/GLMixedVC.vb @@ -0,0 +1,459 @@ +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.ExpressApp.Editors +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo + +Public Class GLMixedVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected reconfigure As ArrayList + Public Sub New() + MyBase.New() + selection = New ArrayList() + reconfigure = New ArrayList + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", False) + If View.Id = "GLMixed_DetailView" Then + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + If _GLMixed.IsEditable = False Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + If SecuritySystem.CurrentUserName = "SysAdmin" Then + Else + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + If _GLMixed.IsStorno = True Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + If SecuritySystem.CurrentUserName = "SysAdmin" Then + Else + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + + If _GLMixed.GLDocumentType = eGLDocumentType.eGLRateDiff Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + + If SecuritySystem.CurrentUserName = "SysAdmin" Then + Else + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + End If + + If View.Id = "GLMixed_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True) + End If + If View.Id = "GLMixed_ListView_Editable" Then + Frame.GetController(Of GLMixedVC).aCloneGLMixed.Active.SetItemValue("", True) + End If + + If View.Id Like "GLHeader_GLRows_ListView_Mixed" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + + Dim nv As ListView = CType(View, ListView) + Dim cs As PropertyCollectionSource = CType(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf cs_MasterObjectChanged + + End If + If View.Id = "GLRows_ListView_RateDiff" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLMixedVC).aViewPCIDW_RateDiff.Active.SetItemValue("", True) + Frame.GetController(Of GLMixedVC).aViewAttachments_RateDiff_GLRows.Active.SetItemValue("", True) + Frame.GetController(Of GLMixedVC).aViewRegistry_RateDiff_GLRows.Active.SetItemValue("", True) + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed + End If + If View.Id = "GLMixed_DetailView_Dividend" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aStorno_GLMixed.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of GLMixedVC).aFinalAndNew_GLMixed.Active.SetItemValue("", False) + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + View.CurrentObject = View.ObjectSpace.GetObject(_GLOpenCloseHeader.GLMixed_AfterDividend) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + If View.Id = "GLRows_ListView_RateDiff" Then + RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Delete_Executing + RemoveHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executed, AddressOf Delete_Executed + End If + 'Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End Sub + Private Sub cs_MasterObjectChanged(ByVal sender As Object, ByVal e As EventArgs) + Dim _GLMixed As GLMixed = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, GLMixed) + If _GLMixed IsNot Nothing Then + If _GLMixed.IsEditable = False Then + Frame.GetController(Of GLMixedVC).aToTable_GLMixed.Active.SetItemValue("", False) + End If + End If + End Sub + Private Sub aMakeEditable_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditable_GLMixed.Execute + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + If _GLMixed IsNot Nothing Then + _GLMixed.IsEditable = True + _ocur.CommitChanges() + If TryCast(View, ListView) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObjectByKey(Of GLMixed)(_GLMixed.Oid)) + End If + End If + End Sub + Private Sub aFinalAndNew_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalAndNew_GLMixed.Execute + GLMixed_Final(e) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLMixed As GLMixed = _onew.CreateObject(Of GLMixed)() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, TryCast(View.Model, Model.IModelDetailView).Id, True, _GLMixed) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + End Sub +#Region "SIS" + Private Sub GLMixed_Final(ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = Nothing + If View.SelectedObjects.Count > 0 Then + Dim _GLMixed As GLMixed = TryCast(e.SelectedObjects(0), GLMixed) + Dim _GLMixedNG As GLMixedNG + For Each _GLMixed In e.SelectedObjects + If _GLMixed.GLRows.Count <= 0 Then + Throw New Exception("*Nincs rögzített sor !") + End If + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLMixed.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLMixed.DocumentNumber Is Nothing Then + _GLMixed.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator) + End If + If _GLMixed.DocumentNumber = "" Then + _GLMixed.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator) + End If + End If + _GLMixed.IsEditable = False + _ocur.CommitChanges() + + For Each _GLRows In _GLMixed.GLRows + If _GLRows.PartnerType = ePartnerType.eNotSet Then + Else + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + Next + Next + _ocur.CommitChanges() + End If + End Sub +#End Region + Private Sub aToTableD_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_GLMixed.Execute + 'Törli a táblázatban lévő sort + Dim _GUID As Guid + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + Dim i As Long + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _CustomersFrom As CustomersFrom = Nothing + Dim _Customers As Customers = Nothing + Dim _PartnerType As ePartnerType + Dim _ConnectInfo As String = "" + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + If _GLRows IsNot Nothing Then + _GUID = _GLRows.GLRowsGUID + selection.Clear() + For Each _GLRows In _GLMixed.GLRows + If _GLRows.GLRowsGUID = _GUID Then + selection.Add(_GLRows) + End If + Next + For i = 0 To selection.Count - 1 + _GLRows = TryCast(selection(i), GLRows) + If _GLRows.PartnerType = ePartnerType.ePayabels Or _GLRows.PartnerType = ePartnerType.eReceivables Then + _CustomersFrom = _GLMixed.CustomersFrom + _Customers = _GLRows.Customer + _ConnectInfo = _GLRows.ConnectInfo + _PartnerType = _GLRows.PartnerType + End If + _GLRows.Delete() + _ocur.CommitChanges() + + Dim _uow_pci As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow_pci, _CustomersFrom, _Customers, _PartnerType, _ConnectInfo) + Next + View.Refresh() + End If + End Sub + Private Sub aBackToRowEdit_GLMixed_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_GLMixed.Execute + 'Visszatölti a sort editáláshoz + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Dim _GLRows_ListEditor As ListPropertyEditor + Dim _GLRows As GLRows + + _GLRows_ListEditor = TryCast(View, DetailView).FindItem("GLRows") + _GLRows = TryCast(_GLRows_ListEditor.ListView.CurrentObject, GLRows) + + If _GLRows IsNot Nothing Then + _GLMixed.row_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLMixed.row_AmountHUF = _GLRows.AmountHUF + _GLMixed.row_AmountDEV = _GLRows.AmountDEV + _GLMixed.row_Controlling = _GLRows.Controlling + _GLMixed.row_Customer = _GLRows.Customer + _GLMixed.row_ConnectInfo = _GLRows.ConnectInfo + _GLMixed.row_JobNumberObjects = _GLRows.JobNumberObjects + _GLMixed.row_UniqueObjects = _GLRows.UniqueObjects + _GLMixed.row_CostHolder = _GLRows.CostHolder + _GLMixed.row_CostPlace = _GLRows.CostPlace + _GLMixed.row_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLMixed.row_NoteRows = _GLRows.NoteRows + _GLMixed.row_PartnerType = _GLRows.PartnerType + End If + + View.Refresh() + End Sub + Private Sub aToTable_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_GLMixed.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Dim _GLHeader As GLHeader = TryCast(View.SelectedObjects(0), GLHeader) + Dim _GLRows As GLRows + + If _GLMixed IsNot Nothing Then + + Dim _GUID As Guid = Guid.NewGuid() + + _GLRows = _ocur.CreateObject(Of GLRows)() + + Select Case _GLMixed.row_TransactionType + Case eTransactionType.eNormalCredit, eTransactionType.ePartnerCredit + _GLRows.InAmountHUF = _GLMixed.row_AmountHUF + _GLRows.InAmountDEV = _GLMixed.row_AmountDEV + Case eTransactionType.eNormalDebit, eTransactionType.ePartnerDebit + _GLRows.OutAmountHUF = _GLMixed.row_AmountHUF + _GLRows.OutAmountDEV = _GLMixed.row_AmountDEV + Case Else + _GLRows.InAmountDEV = 0 + _GLRows.InAmountDEV2 = 0 + _GLRows.InAmountHUF = 0 + _GLRows.OutAmountHUF = 0 + _GLRows.OutAmountDEV = 0 + _GLRows.OutAmountDEV2 = 0 + End Select + _GLRows.AddGLRows(_GLHeader, _GLHeader.row_DebitChartOfAccounts, _GLHeader.row_CreditChartOfAccounts, _ + _GLHeader.row_AmountDEV, _GLHeader.row_AmountHUF, _GLHeader.row_LiquidAssets, _ + _GLHeader.row_Customer, _GLHeader.row_DateVAT, _GLHeader.row_VAT, _ + _GLHeader.row_NoteRows, _GLHeader.row_UniqueObjects, _GLHeader.row_Controlling, _ + _GLHeader.row_JobNumberObjects, _GLHeader.row_CostPlace, _GLHeader.row_CostHolder, _ + _GLHeader.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _GLMixed.row_TransactionType, eCashType.eNormal, _GLMixed.row_PartnerType) + _ocur.CommitChanges() + View.Refresh() + End If + + End Sub + Private Sub aFinal_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinal_GLMixed.Execute + GLMixed_Final(e) + View.Close(False) + End Sub + Private Sub aStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_GLMixed.Execute + Dim _s_GLMixed As New GLMixed(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + Dim _GLMixed As GLMixed + Dim _GLRows As GLRows + For Each _GLMixed In e.SelectedObjects + _s_GLMixed.GLDocumentType = _GLMixed.GLDocumentType + _s_GLMixed.CustomersFrom = _GLMixed.CustomersFrom + _s_GLMixed.CurrencyName = _GLMixed.CurrencyName + _s_GLMixed.CurrencyRate = _GLMixed.CurrencyRate + _s_GLMixed.DocumentNumber = _GLMixed.DocumentNumber + _s_GLMixed.RegistryNumber = _GLMixed.RegistryNumber + _s_GLMixed.DateCreated = _GLMixed.DateCreated + _s_GLMixed.DateExecution = _GLMixed.DateExecution + _s_GLMixed.DatePayment = _GLMixed.DatePayment + _s_GLMixed.NoteHeader = _GLMixed.NoteHeader + _s_GLMixed.IsEditable = _GLMixed.IsEditable + _s_GLMixed.IsStorno = _GLMixed.IsStorno + _GLMixed.IsStorno = True + _s_GLMixed.IsStorno = True + _s_GLMixed.IsEditable = False + For Each _GLRows In _GLMixed.GLRows + _s_GLMixed.row_DebitChartOfAccounts = _GLRows.DebitChartOfAccounts + _s_GLMixed.row_CreditChartOfAccounts = _GLRows.CreditChartOfAccounts + _s_GLMixed.row_AmountHUF = _GLRows.AmountHUF * -1 + _s_GLMixed.row_AmountDEV = _GLRows.AmountDEV * -1 + _s_GLMixed.row_LiquidAssets = _GLRows.LiquidAssets + _s_GLMixed.row_Customer = _GLRows.Customer + _s_GLMixed.row_DateVAT = _GLRows.DateVAT + _s_GLMixed.row_VAT = _GLRows.VAT + _s_GLMixed.row_NoteRows = _GLRows.NoteRows + _s_GLMixed.row_UniqueObjects = _GLRows.UniqueObjects + _s_GLMixed.row_Controlling = _GLRows.Controlling + _s_GLMixed.row_JobNumberObjects = _GLRows.JobNumberObjects + _s_GLMixed.row_CostPlace = _GLRows.CostPlace + _s_GLMixed.row_CostHolder = _GLRows.CostHolder + _s_GLMixed.row_ConnectInfo = _GLRows.ConnectInfo + + Dim _s_GLRows As GLRows = New GLRows(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session) + _s_GLRows.AddGLRows(_s_GLMixed, _s_GLMixed.row_DebitChartOfAccounts, _s_GLMixed.row_CreditChartOfAccounts, _s_GLMixed.row_AmountDEV, _s_GLMixed.row_AmountHUF, _s_GLMixed.row_LiquidAssets, _s_GLMixed.row_Customer, _s_GLMixed.row_DateVAT, _s_GLMixed.row_VAT, _s_GLMixed.row_NoteRows, _s_GLMixed.row_UniqueObjects, _s_GLMixed.row_Controlling, _s_GLMixed.row_JobNumberObjects, _s_GLMixed.row_CostPlace, _s_GLMixed.row_CostHolder, _s_GLMixed.row_ConnectInfo, Nothing, Nothing) + + Next + _s_GLMixed.Save() + TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.CommitTransaction() + Next + End Sub + Private Sub aViewPCIDW_RateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDW_RateDiff.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLRows.GLHeader.CustomersFrom, _ + _GLRows.Customer, _GLRows.PartnerType, _ + _GLRows.ConnectInfo) + End Sub + Private Sub aViewAttachments_RateDiff_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_RateDiff_GLRows.Execute + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _CustomersFrom As CustomersFrom = _GLRows.GLHeader.CustomersFrom + Dim _Customers As Customers = _GLRows.Customer + Dim _DocumentNumber As String = _GLRows.ConnectInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + Private Sub aViewRegistry_RateDiff_GLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_RateDiff_GLRows.Execute + Dim _GLRows As GLRows = TryCast(View.SelectedObjects(0), GLRows) + Dim _CustomersFrom As CustomersFrom = _GLRows.GLHeader.CustomersFrom + Dim _Customers As Customers = _GLRows.Customer + Dim _DocumentNumber As String = _GLRows.ConnectInfo + + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aCloneGLMixed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneGLMixed.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _GLMixed_Base As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + + If _GLMixed_Base Is Nothing Then Throw New Exception("*Nincs kiválasztott elem!") + + Dim _GLMixed_New As GLMixed = _ocur.CreateObject(Of GLMixed)() + + _GLMixed_New.GLDocumentType = eGLDocumentType.eGLMixed + '_GLMixed_New.CustomersFrom = _GLMixed_Base.CustomersFrom + _GLMixed_New.CurrencyName = _GLMixed_Base.CurrencyName + _GLMixed_New.DateCreated = _GLMixed_Base.DateCreated + _GLMixed_New.DateExecution = _GLMixed_Base.DateExecution + _GLMixed_New.DatePayment = _GLMixed_Base.DatePayment + _GLMixed_New.NoteHeader = _GLMixed_Base.NoteHeader + _GLMixed_New.IsEditable = True + _GLMixed_New.IsStorno = False + + If _GLMixed_Base.GLRows.Count > 0 Then + For Each _GLRows_Base As GLRows In _GLMixed_Base.GLRows + Dim _GLRows As GLRows = _ocur.CreateObject(Of GLRows)() + + _GLRows.GLHeader = _GLMixed_New + _GLRows.DebitChartOfAccounts = _GLRows_Base.DebitChartOfAccounts + _GLRows.CreditChartOfAccounts = _GLRows_Base.CreditChartOfAccounts + _GLRows.AmountHUF = _GLRows_Base.AmountHUF + _GLRows.AmountDEV = _GLRows_Base.AmountDEV + _GLRows.Customer = _GLRows_Base.Customer + _GLRows.NoteRows = _GLRows_Base.NoteRows + _GLRows.UniqueObjects = _GLRows_Base.UniqueObjects + _GLRows.Controlling = _GLRows_Base.Controlling + _GLRows.JobNumberObjects = _GLRows_Base.JobNumberObjects + _GLRows.CostPlace = _GLRows_Base.CostPlace + _GLRows.CostHolder = _GLRows_Base.CostHolder + _GLRows.ConnectInfo = _GLRows_Base.ConnectInfo + _GLRows.PartnerType = _GLRows_Base.PartnerType + _GLRows.GLRowsGUID = Guid.NewGuid + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + Next + End If + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + _ocur.CommitChanges() + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObject(_GLMixed_New)) + Catch exp As Exception + MsgBox(exp.Message) + End Try + End Sub + + Private Sub Delete_Executing(sender As Object, e As CancelEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _GLRows As GLRows + Dim _GLRows_Original As GLRows + + reconfigure.Clear() + For Each _GLRows In View.SelectedObjects + reconfigure.Add(_GLRows) + _GLRows_Original = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("GLRowsRateDiff.Oid=?", _GLRows.Oid)) + + If _GLRows_Original IsNot Nothing Then + _GLRows_Original.GLRowsRateDiff = Nothing + _GLRows.GLRowsRateDiff = Nothing + End If + Next + e.Cancel = False + End Sub + Private Sub Delete_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLRows As GLRows + Dim i As Long + _ocur.CommitChanges() + For i = 0 To reconfigure.Count - 1 + _GLRows = reconfigure(i) + + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_ocur.Session) + Dim _CustomersFrom As CustomersFrom + + For Each _CustomersFrom In _CustomersFrom_Collection + GLFunctions.ReconfigurePCI(_uow, _CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + Next + _ocur.CommitChanges() + End Sub + + Private Sub aSetDateGLMixed_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSetDateGLMixed.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLMixed As GLMixed = TryCast(View.SelectedObjects(0), GLMixed) + Dim _GLRows As GLRows + + If _GLMixed IsNot Nothing Then + If _GLMixed.IsEditable = True Then + For Each _GLRows In _GLMixed.GLRows + _GLRows.DateExecution = _GLMixed.DateExecution + Next + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseHeader.vb new file mode 100644 index 0000000..f29135b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseHeader.vb @@ -0,0 +1,309 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLOpenCloseHeader + Inherits BaseObject + Private _ShortName As String + Private _CustomersFrom As CustomersFrom + Private _AccountYearClose As Long + Private _AccountYearOpen As Long + Private _ObjectCreated As Date + Private _UserCreated As User + Private _IsEditable As Boolean = True + Private _IsClosedBallance As Boolean = False 'Mrlegszmlk lezrva ? + Private _IsClosedSheetProfit As Boolean = False 'Eredmnyszmlk lezrva ? + Private _IsDividend As Boolean = False 'Osztalk elszmolva + Private _IsOpenNew As Boolean = False 'j v megnyitva + + Private _TrialBalanceHeaderBeforeClose As TrialBalanceHeader 'Zrs alapjul szolgl fknyvi kivonat + Private _TrialBalanceHeaderAfterClose_Ballance As TrialBalanceHeader 'Zrs utni fknyvi kivonat (mrlegszmlk utn) + Private _TrialBalanceHeaderAfterClose_SheetProfit As TrialBalanceHeader 'Zrs utni fknyvi kivonat (eredmnyszmlk utn) + Private _TrialBalanceHeaderAfterDividend As TrialBalanceHeader 'Osztalk elszmols utni fk. kivonat + Private _TrialBalanceHeaderAfterOpen As TrialBalanceHeader 'j v megnyitsa utni fknyvi kivonat + + Private _GLMixed_AfterClose_SheetProfit As GLMixed 'Eredmnyszmlk zrsa fk. vegyes bizonylat + Private _GLMixed_AfterClose_Ballance As GLMixed 'Mrlegszmlk zrsa vegyes bizonylat + Private _GLMixed_AfterDividend As GLMixed 'Osztalk elszmolsi fk vegyes bizonylat + Private _GLMixed_AfterOpen 'Nyitsi fk. vegyes bizonylat + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + AccountYearClose = GetSQLTime(Session).Year - 1 + AccountYearOpen = GetSQLTime(Session).Year + IsClosedBallance = False + IsClosedSheetProfit = False + IsDividend = False + IsOpenNew = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If TrialBalanceHeaderBeforeClose Is Nothing Then + TrialBalanceHeaderBeforeClose = New TrialBalanceHeader(Session) + TrialBalanceHeaderBeforeClose.CustomersFrom = Me.CustomersFrom + TrialBalanceHeaderBeforeClose.DateFrom = New Date(Me.AccountYearClose, 1, 1) + TrialBalanceHeaderBeforeClose.DateTo = New Date(Me.AccountYearClose, 12, 31) + TrialBalanceHeaderBeforeClose.GLReportDateExecutionMode = eDateExecutionMode.eHeader + TrialBalanceHeaderBeforeClose.QueryLevel = 10 + TrialBalanceHeaderBeforeClose.ShortName = Me.ShortName & " - zrs eltti fknyvi kivonat" + TrialBalanceHeaderBeforeClose.IsGLOpenClose = True + TrialBalanceHeaderBeforeClose.Save() + + TrialBalanceHeaderAfterClose_SheetProfit = New TrialBalanceHeader(Session) + TrialBalanceHeaderAfterClose_SheetProfit.CustomersFrom = Me.CustomersFrom + TrialBalanceHeaderAfterClose_SheetProfit.DateFrom = New Date(Me.AccountYearClose, 1, 1) + TrialBalanceHeaderAfterClose_SheetProfit.DateTo = New Date(Me.AccountYearClose, 12, 31) + TrialBalanceHeaderAfterClose_SheetProfit.GLReportDateExecutionMode = eDateExecutionMode.eHeader + TrialBalanceHeaderAfterClose_SheetProfit.QueryLevel = 10 + TrialBalanceHeaderAfterClose_SheetProfit.ShortName = Me.ShortName & " - eredmnyszmlk zrsa utni fknyvi kivonat" + TrialBalanceHeaderAfterClose_SheetProfit.IsGLOpenClose = True + TrialBalanceHeaderAfterClose_SheetProfit.Save() + + TrialBalanceHeaderAfterClose_Ballance = New TrialBalanceHeader(Session) + TrialBalanceHeaderAfterClose_Ballance.CustomersFrom = Me.CustomersFrom + TrialBalanceHeaderAfterClose_Ballance.DateFrom = New Date(Me.AccountYearClose, 1, 1) + TrialBalanceHeaderAfterClose_Ballance.DateTo = New Date(Me.AccountYearClose, 12, 31) + TrialBalanceHeaderAfterClose_Ballance.GLReportDateExecutionMode = eDateExecutionMode.eHeader + TrialBalanceHeaderAfterClose_Ballance.QueryLevel = 10 + TrialBalanceHeaderAfterClose_Ballance.ShortName = Me.ShortName & " - mrlegszmlk zrsa utni fknyvi kivonat" + TrialBalanceHeaderAfterClose_Ballance.IsGLOpenClose = True + TrialBalanceHeaderAfterClose_Ballance.Save() + + TrialBalanceHeaderAfterDividend = New TrialBalanceHeader(Session) + TrialBalanceHeaderAfterDividend.CustomersFrom = Me.CustomersFrom + TrialBalanceHeaderAfterDividend.DateFrom = New Date(Me.AccountYearClose, 1, 1) + TrialBalanceHeaderAfterDividend.DateTo = New Date(Me.AccountYearClose, 12, 31) + TrialBalanceHeaderAfterDividend.GLReportDateExecutionMode = eDateExecutionMode.eHeader + TrialBalanceHeaderAfterDividend.QueryLevel = 10 + TrialBalanceHeaderAfterDividend.ShortName = Me.ShortName & " - osztalk elszmols utni fknyvi kivonat" + TrialBalanceHeaderAfterDividend.IsGLOpenClose = True + TrialBalanceHeaderAfterDividend.Save() + + TrialBalanceHeaderAfterOpen = New TrialBalanceHeader(Session) + TrialBalanceHeaderAfterOpen.CustomersFrom = Me.CustomersFrom + TrialBalanceHeaderAfterOpen.DateFrom = New Date(Me.AccountYearClose, 1, 1) + TrialBalanceHeaderAfterOpen.DateTo = New Date(Me.AccountYearClose, 12, 31) + TrialBalanceHeaderAfterOpen.GLReportDateExecutionMode = eDateExecutionMode.eHeader + TrialBalanceHeaderAfterOpen.QueryLevel = 10 + TrialBalanceHeaderAfterOpen.ShortName = Me.ShortName & " - nyits utni fknyvi kivonat" + TrialBalanceHeaderAfterOpen.IsGLOpenClose = True + TrialBalanceHeaderAfterOpen.Save() + + + End If + + End If + If Me.GLMixed_AfterDividend Is Nothing Then + GLMixed_AfterDividend = New GLMixed(Session) + GLMixed_AfterDividend.CustomersFrom = Me.CustomersFrom + GLMixed_AfterDividend.DateExecution = New Date(Me.AccountYearClose, 12, 31) + GLMixed_AfterDividend.DateCreated = GLMixed_AfterDividend.DateExecution + GLMixed_AfterDividend.DatePayment = GLMixed_AfterDividend.DateExecution + GLMixed_AfterDividend.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + GLMixed_AfterDividend.Save() + End If + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property AccountYearClose As Long + Get + Return _AccountYearClose + End Get + Set(value As Long) + SetPropertyValue("AccountYearClose", _AccountYearClose, value) + End Set + End Property + Property AccountYearOpen As Long + Get + Return _AccountYearOpen + End Get + Set(value As Long) + SetPropertyValue("AccountYearOpen", _AccountYearOpen, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsClosedBallance As Boolean + Get + Return _IsClosedBallance + End Get + Set(value As Boolean) + SetPropertyValue("IsClosedBallance", _IsClosedBallance, value) + End Set + End Property + Property IsClosedSheetProfit As Boolean + Get + Return _IsClosedSheetProfit + End Get + Set(value As Boolean) + SetPropertyValue("IsClosedSheetProfit", _IsClosedSheetProfit, value) + End Set + End Property + Property IsDividend As Boolean + Get + Return _IsDividend + End Get + Set(value As Boolean) + SetPropertyValue("IsDividend", _IsDividend, value) + End Set + End Property + Property IsOpenNew As Boolean + Get + Return _IsOpenNew + End Get + Set(value As Boolean) + SetPropertyValue("IsOpenNew", _IsOpenNew, value) + End Set + End Property + + _ + Property TrialBalanceHeaderBeforeClose As TrialBalanceHeader + Get + Return _TrialBalanceHeaderBeforeClose + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderBeforeClose", _TrialBalanceHeaderBeforeClose, value) + End Set + End Property + _ + Property TrialBalanceHeaderAfterClose_Ballance As TrialBalanceHeader + Get + Return _TrialBalanceHeaderAfterClose_Ballance + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderAfterClose_Ballance", _TrialBalanceHeaderAfterClose_Ballance, value) + End Set + End Property + _ + Property TrialBalanceHeaderAfterClose_SheetProfit As TrialBalanceHeader + Get + Return _TrialBalanceHeaderAfterClose_SheetProfit + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderAfterClose_SheetProfit", _TrialBalanceHeaderAfterClose_SheetProfit, value) + End Set + End Property + _ + Property TrialBalanceHeaderAfterDividend As TrialBalanceHeader + Get + Return _TrialBalanceHeaderAfterDividend + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderAfterDividend", _TrialBalanceHeaderAfterDividend, value) + End Set + End Property + _ + Property TrialBalanceHeaderAfterOpen As TrialBalanceHeader + Get + Return _TrialBalanceHeaderAfterOpen + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderAfterOpen", _TrialBalanceHeaderAfterOpen, value) + End Set + End Property + + _ + Property GLMixed_AfterClose_SheetProfit As GLMixed + Get + Return _GLMixed_AfterClose_SheetProfit + End Get + Set(value As GLMixed) + SetPropertyValue("GLMixed_AfterClose_SheetProfit", _GLMixed_AfterClose_SheetProfit, value) + End Set + End Property + _ + Property GLMixed_AfterClose_Ballance As GLMixed + Get + Return _GLMixed_AfterClose_Ballance + End Get + Set(value As GLMixed) + SetPropertyValue("GLMixed_AfterClose_Ballance", _GLMixed_AfterClose_Ballance, value) + End Set + End Property + _ + Property GLMixed_AfterDividend As GLMixed + Get + Return _GLMixed_AfterDividend + End Get + Set(value As GLMixed) + SetPropertyValue("GLMixed_AfterDividend", _GLMixed_AfterDividend, value) + End Set + End Property + _ + Property GLMixed_AfterOpen As GLMixed + Get + Return _GLMixed_AfterOpen + End Get + Set(value As GLMixed) + SetPropertyValue("GLMixed_AfterOpen", _GLMixed_AfterOpen, value) + End Set + End Property + + '//XPCollections + ' _ + 'ReadOnly Property GLOpenCloseRows As XPCollection(Of GLOpenCloseRows) + ' Get + ' Return GetCollection(Of GLOpenCloseRows)("GLOpenCloseRows") + ' End Get + 'End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseRows.vb new file mode 100644 index 0000000..ab132e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseRows.vb @@ -0,0 +1,125 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + + _ +Public Class GLOpenCloseRows + Inherits BaseObject + Private _GLOpenCloseHeader As GLOpenCloseHeader 'Nyits fejlce + Private _ChartOfAccounts As ChartOfAccounts 'Melyik szmlt zrjuk + Private _ChartOfAccountsOpen As ChartOfAccounts 'Nyit mrleg szmla + Private _ChartOfAccountsClose As ChartOfAccounts 'Zr mrleg szmla + Private _ChartOfAccountsOpenNew As ChartOfAccounts 'Melyik szmlra nyitjuk az j vben + Private _OnlyClose As Boolean = False 'Csak zrs + Private _DebitAmountHUF As Double + Private _DebitAmountDEV As Double + Private _CreditAmountHUF As Double + Private _CreditAmountDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property GLOpenCloseHeader As GLOpenCloseHeader + Get + Return _GLOpenCloseHeader + End Get + Set(value As GLOpenCloseHeader) + SetPropertyValue("GLOpenCloseHeader", _GLOpenCloseHeader, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property ChartOfAccountsOpen As ChartOfAccounts + Get + Return _ChartOfAccountsOpen + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsOpen", _ChartOfAccountsOpen, value) + End Set + End Property + _ + Property ChartOfAccountsClose As ChartOfAccounts + Get + Return _ChartOfAccountsClose + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsClose", _ChartOfAccountsClose, value) + End Set + End Property + Property ChartOfAccountsOpenNew As ChartOfAccounts + Get + Return _ChartOfAccountsOpenNew + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsOpenNew", _ChartOfAccountsOpenNew, value) + End Set + End Property + Property OnlyClose As Boolean + Get + Return _OnlyClose + End Get + Set(value As Boolean) + SetPropertyValue("OnlyClose", _OnlyClose, value) + End Set + End Property + Property DebitAmountHUF As Double + Get + Return _DebitAmountHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value) + End Set + End Property + Property DebitAmountDEV As Double + Get + Return _DebitAmountDEV + End Get + Set(value As Double) + SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value) + End Set + End Property + Property CreditAmountHUF As Double + Get + Return _CreditAmountHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value) + End Set + End Property + Property CreditAmountDEV As Double + Get + Return _CreditAmountDEV + End Get + Set(value As Double) + SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb new file mode 100644 index 0000000..7be2be0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.Designer.vb @@ -0,0 +1,152 @@ +Partial Class GLOpenCloseVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateOpenCloseRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloseAccountYearBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReopenAccountYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloseAccountYearSheetProfit = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenNewAccountYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateTrialBalanceDividend = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRepairBadGLRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateOpenCloseRows + ' + Me.aGenerateOpenCloseRows.Caption = "aGenerate Open Close Rows" + Me.aGenerateOpenCloseRows.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateOpenCloseRows.Id = "aGenerateOpenCloseRows" + Me.aGenerateOpenCloseRows.ImageName = Nothing + Me.aGenerateOpenCloseRows.Shortcut = Nothing + Me.aGenerateOpenCloseRows.Tag = Nothing + Me.aGenerateOpenCloseRows.TargetObjectsCriteria = Nothing + Me.aGenerateOpenCloseRows.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aGenerateOpenCloseRows.TargetViewId = Nothing + Me.aGenerateOpenCloseRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateOpenCloseRows.ToolTip = Nothing + Me.aGenerateOpenCloseRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aCloseAccountYearBallance + ' + Me.aCloseAccountYearBallance.Caption = "aClose Account Year" + Me.aCloseAccountYearBallance.ConfirmationMessage = "Are you sure ?" + Me.aCloseAccountYearBallance.Id = "aCloseAccountYearBallance" + Me.aCloseAccountYearBallance.ImageName = Nothing + Me.aCloseAccountYearBallance.Shortcut = Nothing + Me.aCloseAccountYearBallance.Tag = Nothing + Me.aCloseAccountYearBallance.TargetObjectsCriteria = Nothing + Me.aCloseAccountYearBallance.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aCloseAccountYearBallance.TargetViewId = Nothing + Me.aCloseAccountYearBallance.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCloseAccountYearBallance.ToolTip = Nothing + Me.aCloseAccountYearBallance.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aReopenAccountYear + ' + Me.aReopenAccountYear.Caption = "aReopen Account Year" + Me.aReopenAccountYear.ConfirmationMessage = "Are you sure ?" + Me.aReopenAccountYear.Id = "aReopenAccountYear" + Me.aReopenAccountYear.ImageName = Nothing + Me.aReopenAccountYear.Shortcut = Nothing + Me.aReopenAccountYear.Tag = Nothing + Me.aReopenAccountYear.TargetObjectsCriteria = Nothing + Me.aReopenAccountYear.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aReopenAccountYear.TargetViewId = Nothing + Me.aReopenAccountYear.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aReopenAccountYear.ToolTip = Nothing + Me.aReopenAccountYear.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aCloseAccountYearSheetProfit + ' + Me.aCloseAccountYearSheetProfit.Caption = "aClose Account Year Sheet Profit" + Me.aCloseAccountYearSheetProfit.ConfirmationMessage = "Are you sure ?" + Me.aCloseAccountYearSheetProfit.Id = "aCloseAccountYearSheetProfit" + Me.aCloseAccountYearSheetProfit.ImageName = Nothing + Me.aCloseAccountYearSheetProfit.Shortcut = Nothing + Me.aCloseAccountYearSheetProfit.Tag = Nothing + Me.aCloseAccountYearSheetProfit.TargetObjectsCriteria = Nothing + Me.aCloseAccountYearSheetProfit.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aCloseAccountYearSheetProfit.TargetViewId = Nothing + Me.aCloseAccountYearSheetProfit.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aCloseAccountYearSheetProfit.ToolTip = Nothing + Me.aCloseAccountYearSheetProfit.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aOpenNewAccountYear + ' + Me.aOpenNewAccountYear.Caption = "aOpen New Account Year" + Me.aOpenNewAccountYear.ConfirmationMessage = "Do you want to execute command ?" + Me.aOpenNewAccountYear.Id = "aOpenNewAccountYear" + Me.aOpenNewAccountYear.ImageName = Nothing + Me.aOpenNewAccountYear.Shortcut = Nothing + Me.aOpenNewAccountYear.Tag = Nothing + Me.aOpenNewAccountYear.TargetObjectsCriteria = Nothing + Me.aOpenNewAccountYear.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aOpenNewAccountYear.TargetViewId = Nothing + Me.aOpenNewAccountYear.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aOpenNewAccountYear.ToolTip = Nothing + Me.aOpenNewAccountYear.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateTrialBalanceDividend + ' + Me.aGenerateTrialBalanceDividend.Caption = "aGenerate Trial Balance Dividend" + Me.aGenerateTrialBalanceDividend.ConfirmationMessage = "Are you sure ?" + Me.aGenerateTrialBalanceDividend.Id = "aGenerateTrialBalanceDividend" + Me.aGenerateTrialBalanceDividend.ImageName = Nothing + Me.aGenerateTrialBalanceDividend.Shortcut = Nothing + Me.aGenerateTrialBalanceDividend.Tag = Nothing + Me.aGenerateTrialBalanceDividend.TargetObjectsCriteria = Nothing + Me.aGenerateTrialBalanceDividend.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aGenerateTrialBalanceDividend.TargetViewId = Nothing + Me.aGenerateTrialBalanceDividend.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateTrialBalanceDividend.ToolTip = Nothing + Me.aGenerateTrialBalanceDividend.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aRepairBadGLRows + ' + Me.aRepairBadGLRows.Caption = "aRepair Bad GLRows" + Me.aRepairBadGLRows.ConfirmationMessage = "Do you want to execute command ?" + Me.aRepairBadGLRows.Id = "aRepairBadGLRows" + Me.aRepairBadGLRows.ImageName = Nothing + Me.aRepairBadGLRows.Shortcut = Nothing + Me.aRepairBadGLRows.Tag = Nothing + Me.aRepairBadGLRows.TargetObjectsCriteria = Nothing + Me.aRepairBadGLRows.TargetObjectType = GetType(SISBusiness.[Module].GLOpenCloseHeader) + Me.aRepairBadGLRows.TargetViewId = Nothing + Me.aRepairBadGLRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aRepairBadGLRows.ToolTip = Nothing + Me.aRepairBadGLRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aGenerateOpenCloseRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloseAccountYearBallance As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReopenAccountYear As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloseAccountYearSheetProfit As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenNewAccountYear As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateTrialBalanceDividend As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRepairBadGLRows As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.resx new file mode 100644 index 0000000..4d55a74 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 414, 17 + + + 582, 17 + + + 1019, 17 + + + 798, 17 + + + 1200, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb new file mode 100644 index 0000000..5f984db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/OpenClose/GLOpenCloseVC.vb @@ -0,0 +1,676 @@ +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 System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.SystemModule + +Public Class GLOpenCloseVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + End Sub + + Private Sub aGenerateOpenCloseRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateOpenCloseRows.Execute + Try + + GLOBAL_HAS_Audit = False + + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _uow.GetObjectByKey(Of GLOpenCloseHeader)(_onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)).Oid) + 'Dim _GLOpenCloseRows As GLOpenCloseRows + + 'Dim _GLOpenCloseRows_Collection As New XPCollection(Of GLOpenCloseRows)(_uow, CriteriaOperator.Parse("GLOpenCloseHeader.Oid=?", _GLOpenCloseHeader.Oid)) + '_uow.Delete(_GLOpenCloseRows_Collection) + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_uow, CriteriaOperator.Parse("AccountYear=? and IsParent=False", _GLOpenCloseHeader.AccountYearClose)) + + Dim _DebitAmountHUF As Double = 0 + Dim _CreditAmountHUF As Double = 0 + Dim _GLRows_Collection As New XPQuery(Of GLRows)(_uow) + + Dim _ChartOfAccounts_491 As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491' and AccountYear=?", _GLOpenCloseHeader.AccountYearOpen)) + Dim _ChartOfAccounts_599 As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='599' and AccountYear=?", _GLOpenCloseHeader.AccountYearClose)) + Dim _ChartOfAccounts_493 As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='493' and AccountYear=?", _GLOpenCloseHeader.AccountYearClose)) + Dim _ChartOfAccounts_492 As ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='492' and AccountYear=?", _GLOpenCloseHeader.AccountYearClose)) + + 'RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + 'For Each _ChartOfAccounts In _ChartOfAccounts_Collection + ' RaiseEvent DoWork() + ' _DebitAmountHUF = 0 + ' _CreditAmountHUF = 0 + + ' Dim query_d = From _GLRows In _GLRows_Collection + ' Where _GLRows.DebitChartOfAccounts.AccountNumber = _ChartOfAccounts.AccountNumber And _ + ' _GLRows.GLHeader.IsEditable = False And _ + ' _GLRows.GLHeader.DateExecution.Year >= _GLOpenCloseHeader.AccountYearClose And _ + ' _GLRows.GLHeader.CustomersFrom Is _GLOpenCloseHeader.CustomersFrom And _ + ' _GLRows.GLHeader.DateExecution.Year < _GLOpenCloseHeader.AccountYearOpen _ + ' Group _GLRows By _GLRows.DebitChartOfAccounts.AccountNumber Into gg = Group + ' Select New With {Key .DebitAmountHUF = gg.Sum(Function(inv) inv.AmountHUF)} + ' For Each item In query_d + ' _DebitAmountHUF = Math.Round(item.DebitAmountHUF, 2, MidpointRounding.AwayFromZero) + ' Next + + ' Dim query_c = From _GLRows In _GLRows_Collection + ' Where _GLRows.CreditChartOfAccounts.AccountNumber = _ChartOfAccounts.AccountNumber And _ + ' _GLRows.GLHeader.IsEditable = False And _ + ' _GLRows.GLHeader.DateExecution.Year >= _GLOpenCloseHeader.AccountYearClose And _ + ' _GLRows.GLHeader.CustomersFrom Is _GLOpenCloseHeader.CustomersFrom And _ + ' _GLRows.GLHeader.DateExecution.Year < _GLOpenCloseHeader.AccountYearOpen _ + ' Group _GLRows By _GLRows.CreditChartOfAccounts.AccountNumber Into gg = Group + ' Select New With {Key .CreditAmountHUF = gg.Sum(Function(inv) inv.AmountHUF)} + ' For Each item In query_c + ' _CreditAmountHUF = Math.Round(item.CreditAmountHUF, 2, MidpointRounding.AwayFromZero) + ' Next + + ' If _DebitAmountHUF - _CreditAmountHUF <> 0 Then + ' _GLOpenCloseRows = _uow.FindObject(Of GLOpenCloseRows)(CriteriaOperator.Parse("ChartOfAccounts.AccountNumber=? and GLOpenCloseHeader.Oid=?", _ChartOfAccounts.AccountNumber, _GLOpenCloseHeader.Oid)) + ' If _GLOpenCloseRows Is Nothing Then + ' _GLOpenCloseRows = New GLOpenCloseRows(_uow) + ' _GLOpenCloseRows.GLOpenCloseHeader = _GLOpenCloseHeader + ' End If + + ' If _DebitAmountHUF >= _CreditAmountHUF Then + ' _GLOpenCloseRows.DebitAmountHUF = _DebitAmountHUF - _CreditAmountHUF + ' Else + ' _GLOpenCloseRows.CreditAmountHUF = _CreditAmountHUF - _DebitAmountHUF + ' End If + + ' _GLOpenCloseRows.ChartOfAccounts = _ChartOfAccounts + + + ' Select Case Mid(_ChartOfAccounts.AccountNumber, 1, 1) + ' Case "5" + ' _GLOpenCloseRows.OnlyClose = True + ' _GLOpenCloseRows.ChartOfAccountsClose = _ChartOfAccounts_599 + ' Case "8", "9" + ' _GLOpenCloseRows.OnlyClose = True + ' _GLOpenCloseRows.ChartOfAccountsClose = _ChartOfAccounts_493 + ' Case Else + ' _GLOpenCloseRows.OnlyClose = False + ' _GLOpenCloseRows.ChartOfAccountsClose = _ChartOfAccounts_492 + ' _GLOpenCloseRows.ChartOfAccountsOpen = _ChartOfAccounts_491 + ' End Select + ' End If + ' _uow.CommitChanges() + 'Next + '_uow.CommitChanges() + 'RaiseEvent FinalWork + + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_onew, _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose) + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceOpenClose(_onew, _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose) + _uow.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + + End Sub + Private Sub aCloseAccountYearBallance_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseAccountYearBallance.Execute + '// Mérleg számlák lezárása csak akkor, ha már van eredményszámla lezárás + '// K1-4 T492 12.31 + '// T1-4 K491 01.01 + + + '// Nem lehet olyan tétel, ami nincs feladva erre az évre ! + '// InvoiceHeader + '// Registryheader + Try + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)) + 'Dim _GLOpenCloseRows As GLOpenCloseRows + Dim _TrialBalance As TrialBalance + Dim _LiquidAssetsYear As LiquidAssetsYear + Dim _GLBank As GLBank + Dim _GLCassa As GLCassa + + Dim _GLRows_Close As GLRows + Dim _ChartOfAccounts_492 As ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='492' and AccountYear=?", _GLOpenCloseHeader.AccountYearClose)) + + Dim IsOk As Boolean = True + Dim _ChartOfAccounts_Ok As ChartOfAccounts = Nothing + '// Ellenõrzések --------------------------------------------------------------------------- + 'RaiseEvent InitWork(1, 1, _GLOpenCloseHeader.GLOpenCloseRows.Count) + 'For Each _GLOpenCloseRows In _GLOpenCloseHeader.GLOpenCloseRows + ' RaiseEvent DoWork() + ' Select Case Mid(_GLOpenCloseRows.ChartOfAccounts.AccountNumber, 1, 1) + ' Case "1", "2", "3", "4" + ' _ChartOfAccounts_Ok = _onew.FindObject(Of ChartOfAccounts) _ + ' (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLOpenCloseRows.ChartOfAccounts.AccountNumber, _GLOpenCloseHeader.AccountYearOpen)) + ' If _ChartOfAccounts_Ok Is Nothing Then + ' RaiseEvent FinalWork + ' Throw New Exception(String.Format("Nincs megnyitva ez a főkönyvi számla: {0}", _GLOpenCloseRows.ChartOfAccounts.Name)) + ' End If + ' End Select + 'Next + 'RaiseEvent FinalWork + '// Zárási bizonylat ----------------------------------------------------------------------- + If _GLOpenCloseHeader.GLMixed_AfterClose_Ballance IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLRows) + Else + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance = _onew.CreateObject(Of GLMixed)() + End If + + + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.CurrencyRate = 1 + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.CustomersFrom = _GLOpenCloseHeader.CustomersFrom + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.DateCreated = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.DatePayment = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.DocumentNumber = _GLOpenCloseHeader.ShortName & " - mérlegszámla záró" + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLDocumentType = eGLDocumentType.eGLMixed + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLOpenCloseHeader = _GLOpenCloseHeader + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.IsEditable = False + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.IsStorno = False + _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.NoteHeader = "" + + RaiseEvent InitWork(1, 1, _GLOpenCloseHeader.TrialBalanceHeaderAfterDividend.TrialBalance.Count) + For Each _TrialBalance In _GLOpenCloseHeader.TrialBalanceHeaderAfterDividend.TrialBalance + RaiseEvent DoWork() + Select Case Mid(_TrialBalance.ChartOfAccounts.AccountNumber, 1, 1) + Case "1", "2", "3", "4" + If _TrialBalance.ChartOfAccounts.IsParent = False Then + _GLRows_Close = _onew.CreateObject(Of GLRows)() + _GLRows_Close.GLHeader = _GLOpenCloseHeader.GLMixed_AfterClose_Ballance + _GLRows_Close.GLRowsGUID = Guid.NewGuid + If (_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) > 0 Then + _GLRows_Close.DebitChartOfAccounts = _ChartOfAccounts_492 + _GLRows_Close.CreditChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows_Close.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + _LiquidAssetsYear = _onew.FindObject(Of LiquidAssetsYear) _ + (CriteriaOperator.Parse("AccountYear=? and ChartOfAccounts=? and LiquidAssets.CustomerFrom.Oid=?", _ + _GLRows_Close.GLHeader.DateExecution.Year, _GLRows_Close.CreditChartOfAccounts, _GLOpenCloseHeader.CustomersFrom.Oid)) + '// Ha pénzeszköz, akkor HUF + DEV érték lezárása is ! + If _LiquidAssetsYear IsNot Nothing Then + _GLRows_Close.LiquidAssets = _LiquidAssetsYear.LiquidAssets + + Select Case _LiquidAssetsYear.LiquidAssets.LiquidAssetsType + Case eLiquidAssetsType.NormalBank + _GLBank = _onew.FindObject(Of GLBank)(CriteriaOperator.Parse("LiquidAssets_Main=?", _LiquidAssetsYear.LiquidAssets)) + If _GLBank IsNot Nothing Then + _GLRows_Close.AmountDEV = _GLBank.GetBallanceDEV(_LiquidAssetsYear.LiquidAssets, _GLRows_Close.GLHeader.DateExecution) + End If + Case eLiquidAssetsType.DepositCheckout, eLiquidAssetsType.NormalCheckout, eLiquidAssetsType.CurrencyCheckout + _GLCassa = _onew.FindObject(Of GLCassa)(CriteriaOperator.Parse("LiquidAssets_Cassa=?", _LiquidAssetsYear.LiquidAssets)) + If _GLCassa IsNot Nothing Then + _GLRows_Close.AmountDEV = _GLCassa.GetBallanceDEV(_LiquidAssetsYear.LiquidAssets, _GLRows_Close.GLHeader.DateExecution) + End If + End Select + + End If + Else + _GLRows_Close.CreditChartOfAccounts = _ChartOfAccounts_492 + _GLRows_Close.DebitChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows_Close.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + _LiquidAssetsYear = _onew.FindObject(Of LiquidAssetsYear) _ + (CriteriaOperator.Parse("AccountYear=? and ChartOfAccounts=? and LiquidAssets.CustomerFrom.Oid=?", _ + _GLRows_Close.GLHeader.DateExecution.Year, _GLRows_Close.DebitChartOfAccounts, _GLOpenCloseHeader.CustomersFrom.Oid)) + '// Ha pénzeszköz, akkor HUF + DEV érték lezárása is ! + If _LiquidAssetsYear IsNot Nothing Then + _GLRows_Close.LiquidAssets = _LiquidAssetsYear.LiquidAssets + + Select Case _LiquidAssetsYear.LiquidAssets.LiquidAssetsType + Case eLiquidAssetsType.NormalBank + _GLBank = _onew.FindObject(Of GLBank)(CriteriaOperator.Parse("LiquidAssets_Main=?", _LiquidAssetsYear.LiquidAssets)) + If _GLBank IsNot Nothing Then + _GLRows_Close.AmountDEV = _GLBank.GetBallanceDEV(_LiquidAssetsYear.LiquidAssets, _GLRows_Close.GLHeader.DateExecution) + End If + Case eLiquidAssetsType.DepositCheckout, eLiquidAssetsType.NormalCheckout, eLiquidAssetsType.CurrencyCheckout + _GLCassa = _onew.FindObject(Of GLCassa)(CriteriaOperator.Parse("LiquidAssets_Cassa=?", _LiquidAssetsYear.LiquidAssets)) + If _GLCassa IsNot Nothing Then + _GLRows_Close.AmountDEV = _GLCassa.GetBallanceDEV(_LiquidAssetsYear.LiquidAssets, _GLRows_Close.GLHeader.DateExecution) + End If + End Select + + End If + End If + _GLRows_Close.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLRows_Close.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows_Close.NoteRows = "-> 492" + _GLRows_Close.PartnerType = ePartnerType.eNotSet + _GLRows_Close.TransactionType = eTransactionType.eNotSet + + + End If + End Select + Next + RaiseEvent FinalWork + _GLOpenCloseHeader.IsClosedSheetProfit = True + _GLOpenCloseHeader.IsClosedBallance = True + _onew.CommitChanges() + + '// Záró utáni fk. kivonat lekérdezése !!! + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance) + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceOpenClose(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance) + _onew.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + + End Sub + Private Sub aCloseAccountYearSheetProfit_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseAccountYearSheetProfit.Execute + '// Eredményszámlák zárása + '// 5 -> K599 -> T419 + Try + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)) + + Dim _GLRows As GLRows + + Dim _AmountHUF_599 As Double = 0 + + '// Ellenõrzések --------------------------------------------------------------------------- + 'Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, CriteriaOperator.Parse("GetYear(DateExecution)=? and isnull(GLAccounts)=True and InvoiceType.InvoiceTypeBase in (0,1,2,3)", _GLOpenCloseHeader.AccountYearClose)) + 'If _InvoiceHeader_Collection.Count > 0 Then + ' Throw New Exception("*Van még erre az évre olyan kimenõ számla, ami nincs lekönyvelve !") + 'End If + 'Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_ocur.Session, CriteriaOperator.Parse("GetYear(F_DateExecution)=? and isnull(F_GLAccounts)=True and RegistryType.RegistryMainType in (0,2,3,4)", _GLOpenCloseHeader.AccountYearClose)) + 'If _RegistryHeader_Collection.Count > 0 Then + ' Throw New Exception("*Van még erre az évre olyan iktatott számla, ami nincs lekönyvelve !") + 'End If + + '// Ellenõrzés, hogy van-e 599 fk. számla és az levél-e? + Dim _ChartOfAccounts_599 As ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber='599'", _GLOpenCloseHeader.AccountYearClose)) + If _ChartOfAccounts_599 IsNot Nothing Then + If _ChartOfAccounts_599.Children.Count > 0 Then + Throw New Exception("*Nem könyvelhetõ az 599 költség záró számla, mert vannak gyermekei !") + End If + Else + Throw New Exception("*Nincs 599 költség záró számla !") + End If + + '// Ellenõrzés, hogy van-e 493 fk. számla és az levél-e? + Dim _ChartOfAccounts_493 As ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber='493'", _GLOpenCloseHeader.AccountYearClose)) + If _ChartOfAccounts_493 IsNot Nothing Then + If _ChartOfAccounts_493.Children.Count > 0 Then + Throw New Exception("*Nem könyvelhetõ az 493 számla, mert vannak gyermekei !") + End If + Else + Throw New Exception("*Nincs 493 eredmény záró számla !") + End If + + '// 599 - 493 Zárási bizonylat ----------------------------------------------------------------------- + If _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.GLRows) + Else + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit = _onew.CreateObject(Of GLMixed)() + End If + + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.CurrencyRate = 1 + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.CustomersFrom = _GLOpenCloseHeader.CustomersFrom + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.DateCreated = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.DatePayment = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.DocumentNumber = _GLOpenCloseHeader.ShortName & " - eredményszámla záró" + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.GLDocumentType = eGLDocumentType.eGLMixed + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.GLOpenCloseHeader = _GLOpenCloseHeader + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.IsEditable = False + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.IsStorno = False + _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.NoteHeader = "" + + RaiseEvent InitWork(1, 1, _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose.TrialBalance.Count) + For Each _TrialBalance As TrialBalance In _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose.TrialBalance + RaiseEvent DoWork() + If _TrialBalance.ChartOfAccounts.AccountNumber Like "5*" And _TrialBalance.ChartOfAccounts.IsParent = False Then + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit + _GLRows.GLRowsGUID = Guid.NewGuid + If (_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) > 0 Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_599 + _GLRows.CreditChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + _AmountHUF_599 += _GLRows.AmountHUF + Else + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_599 + _GLRows.DebitChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + _AmountHUF_599 -= _GLRows.AmountHUF + End If + _GLRows.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.NoteRows = "-> 599" + _GLRows.PartnerType = ePartnerType.eNotSet + _GLRows.TransactionType = eTransactionType.eNotSet + End If + Next + RaiseEvent FinalWork + '// K599 +K8 + T9 -> 493-re + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit + _GLRows.GLRowsGUID = Guid.NewGuid + If _AmountHUF_599 > 0 Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_493 + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_599 + _GLRows.AmountHUF = _AmountHUF_599 + Else + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_493 + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_599 + _GLRows.AmountHUF = _AmountHUF_599 + End If + _GLRows.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.NoteRows = "599 -> 493" + _GLRows.PartnerType = ePartnerType.eNotSet + _GLRows.TransactionType = eTransactionType.eNotSet + + RaiseEvent InitWork(1, 1, _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose.TrialBalance.Count) + For Each _TrialBalance As TrialBalance In _GLOpenCloseHeader.TrialBalanceHeaderBeforeClose.TrialBalance + RaiseEvent DoWork() + If (_TrialBalance.ChartOfAccounts.AccountNumber Like "8*" Or _TrialBalance.ChartOfAccounts.AccountNumber Like "9*") And _TrialBalance.ChartOfAccounts.IsParent = False Then + _GLRows = _onew.CreateObject(Of GLRows)() + _GLRows.GLHeader = _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit + _GLRows.GLRowsGUID = Guid.NewGuid + If (_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) > 0 Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts_493 + _GLRows.CreditChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + Else + _GLRows.CreditChartOfAccounts = _ChartOfAccounts_493 + _GLRows.DebitChartOfAccounts = _TrialBalance.ChartOfAccounts + _GLRows.AmountHUF = Math.Abs(_TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF) + End If + _GLRows.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows.NoteRows = "" + _GLRows.PartnerType = ePartnerType.eNotSet + _GLRows.TransactionType = eTransactionType.eNotSet + End If + Next + + '// Beállítani, hogy megtörtént az eredményszámlák zárása + + _GLOpenCloseHeader.IsClosedSheetProfit = True + _onew.CommitChanges() + RaiseEvent FinalWork + + '// Záró utáni fk. kivonat lekérdezése !!! + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit) + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceOpenClose(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit) + _onew.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + + End Sub + Private Sub aReopenAccountYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReopenAccountYear.Execute + '// Lezárt év visszanyitása + Try + GLOBAL_HAS_Audit = False + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)) + + If _GLOpenCloseHeader IsNot Nothing Then + + + RaiseEvent InitWork(1, 1, 5) + RaiseEvent DoWork() + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_onew.Session, CriteriaOperator.Parse("GLHeader.GLOpenCloseHeader=?", _GLOpenCloseHeader)) + _onew.Delete(_GLRows_Collection) + + RaiseEvent DoWork() + Dim _GLMixed_Collection As New XPCollection(Of GLMixed)(_onew.Session, CriteriaOperator.Parse("GLOpenCloseHeader=?", _GLOpenCloseHeader)) + _onew.Delete(_GLMixed_Collection) + + _GLOpenCloseHeader.IsClosedBallance = False + _GLOpenCloseHeader.IsClosedSheetProfit = False + RaiseEvent DoWork() + + '// Itt elég sok mindent kell törölni ! + If _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance.TrialBalance) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance.TrialBalanceOpenClose) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance.TrialBalanceSum) + End If + If _GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit.TrialBalance) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit.TrialBalanceOpenClose) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit.TrialBalanceSum) + End If + If _GLOpenCloseHeader.TrialBalanceHeaderAfterDividend IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend.TrialBalance) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend.TrialBalanceOpenClose) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend.TrialBalanceSum) + End If + + If _GLOpenCloseHeader.TrialBalanceHeaderAfterOpen IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen.TrialBalance) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen.TrialBalanceOpenClose) + _onew.Delete(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen.TrialBalanceSum) + End If + RaiseEvent DoWork() + If _GLOpenCloseHeader.GLMixed_AfterClose_Ballance IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLRows) + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_Ballance) + End If + + If _GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit.GLRows) + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterClose_SheetProfit) + End If + + If _GLOpenCloseHeader.GLMixed_AfterDividend IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterDividend.GLRows) + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterDividend) + End If + + If _GLOpenCloseHeader.GLMixed_AfterOpen IsNot Nothing Then + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterOpen.GLRows) + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterOpen) + End If + RaiseEvent DoWork() + _GLOpenCloseHeader.IsClosedBallance = False + _GLOpenCloseHeader.IsClosedSheetProfit = False + _GLOpenCloseHeader.IsDividend = False + _GLOpenCloseHeader.IsOpenNew = False + _onew.CommitChanges() + + RaiseEvent FinalWork + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + End Sub + Private Sub aOpenNewAccountYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenNewAccountYear.Execute + Try + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)) + Dim _GLRows_Open As GLRows + + Dim _LiquidAssetsYear_Collection As New XPCollection(Of LiquidAssetsYear)(_onew.Session, CriteriaOperator.Parse("AccountYear=? and LiquidAssets.CustomerFrom.Oid=? and LiquidAssets.CurrencyName.ShortName<>'HUF'", _GLOpenCloseHeader.AccountYearOpen, _GLOpenCloseHeader.CustomersFrom.Oid)) + Dim _LiquidAssetsYear As LiquidAssetsYear + + Dim _ChartOfAccounts_491 As ChartOfAccounts = _onew.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber='491' and AccountYear=?", _GLOpenCloseHeader.AccountYearOpen)) + + If _GLOpenCloseHeader.GLMixed_AfterOpen Is Nothing Then + _GLOpenCloseHeader.GLMixed_AfterOpen = _onew.CreateObject(Of GLMixed)() + Else + _onew.Delete(_GLOpenCloseHeader.GLMixed_AfterOpen.GLRows) + End If + _GLOpenCloseHeader.IsOpenNew = True + _GLOpenCloseHeader.GLMixed_AfterOpen = _onew.CreateObject(Of GLMixed)() + _GLOpenCloseHeader.GLMixed_AfterOpen.CurrencyName = _onew.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLOpenCloseHeader.GLMixed_AfterOpen.CurrencyRate = 1 + _GLOpenCloseHeader.GLMixed_AfterOpen.CustomersFrom = _GLOpenCloseHeader.CustomersFrom + _GLOpenCloseHeader.GLMixed_AfterOpen.DateCreated = New Date(_GLOpenCloseHeader.AccountYearOpen, 1, 1) + _GLOpenCloseHeader.GLMixed_AfterOpen.DateExecution = New Date(_GLOpenCloseHeader.AccountYearOpen, 1, 1) + _GLOpenCloseHeader.GLMixed_AfterOpen.DatePayment = New Date(_GLOpenCloseHeader.AccountYearOpen, 1, 1) + _GLOpenCloseHeader.GLMixed_AfterOpen.DocumentNumber = _GLOpenCloseHeader.ShortName & " - mérlegszámla nyitó" + _GLOpenCloseHeader.GLMixed_AfterOpen.GLDocumentType = eGLDocumentType.eGLMixed + _GLOpenCloseHeader.GLMixed_AfterOpen.GLOpenCloseHeader = _GLOpenCloseHeader + _GLOpenCloseHeader.GLMixed_AfterOpen.IsEditable = False + _GLOpenCloseHeader.GLMixed_AfterOpen.IsStorno = False + _GLOpenCloseHeader.GLMixed_AfterOpen.NoteHeader = "" + + RaiseEvent InitWork(1, 1, _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLRows.Count) + For Each _GLRows_Close In _GLOpenCloseHeader.GLMixed_AfterClose_Ballance.GLRows + RaiseEvent DoWork() + _GLRows_Open = _onew.CreateObject(Of GLRows)() + _GLRows_Open.GLHeader = _GLOpenCloseHeader.GLMixed_AfterOpen + _GLRows_Open.GLRowsGUID = Guid.NewGuid + + _GLRows_Open.AmountHUF = _GLRows_Close.AmountHUF + _GLRows_Open.AmountDEV = _GLRows_Close.AmountDEV + + If _GLRows_Close.CreditChartOfAccounts.AccountNumber = 492 Then + _GLRows_Open.DebitChartOfAccounts = _ChartOfAccounts_491 + _GLRows_Open.CreditChartOfAccounts = _onew.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows_Close.DebitChartOfAccounts.AccountNumber, _GLOpenCloseHeader.AccountYearOpen)) + Else + _GLRows_Open.CreditChartOfAccounts = _ChartOfAccounts_491 + _GLRows_Open.DebitChartOfAccounts = _onew.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLRows_Close.CreditChartOfAccounts.AccountNumber, _GLOpenCloseHeader.AccountYearOpen)) + For Each _LiquidAssetsYear In _LiquidAssetsYear_Collection + If _GLRows_Open.DebitChartOfAccounts.AccountNumber = _LiquidAssetsYear.ChartOfAccounts.AccountNumber Then + + Dim _LiquidAssetsRate As LiquidAssetsRate = _onew.FindObject(Of LiquidAssetsRate)(CriteriaOperator.Parse("DateExecution=? and LiquidAssets.Oid=?", New Date(_GLOpenCloseHeader.AccountYearOpen, 1, 1), _LiquidAssetsYear.LiquidAssets.Oid)) + If _LiquidAssetsRate Is Nothing Then + _LiquidAssetsRate = _onew.CreateObject(Of LiquidAssetsRate)() + End If + _LiquidAssetsRate.LiquidAssets = _LiquidAssetsYear.LiquidAssets + _LiquidAssetsRate.DateExecution = New Date(_GLOpenCloseHeader.AccountYearOpen, 1, 1) + _LiquidAssetsRate.AmountHUF = _GLRows_Close.AmountHUF + _LiquidAssetsRate.AmountDEV = _GLRows_Close.AmountDEV + + End If + Next + End If + + + _GLRows_Open.DateExecution = New Date(_GLOpenCloseHeader.AccountYearClose, 12, 31) + _GLRows_Open.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow + _GLRows_Open.NoteRows = "491 ->" + _GLRows_Open.PartnerType = ePartnerType.eNotSet + _GLRows_Open.TransactionType = eTransactionType.eNotSet + + Next + RaiseEvent FinalWork + + _onew.CommitChanges() + + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterOpen) + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceOpenClose(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterOpen) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + End Try + + End Sub + Private Sub aGenerateTrialBalanceDividend_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateTrialBalanceDividend.Execute + Try + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLOpenCloseHeader As GLOpenCloseHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), GLOpenCloseHeader)) + + _GLOpenCloseHeader.IsDividend = True + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterDividend) + Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceOpenClose(_onew, _GLOpenCloseHeader.TrialBalanceHeaderAfterDividend) + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = False + End Try + + End Sub + + Private Sub aRepairBadGLRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRepairBadGLRows.Execute + Try + GLOBAL_HAS_Audit = False + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + Dim _GLOpenCloseHeader As GLOpenCloseHeader = TryCast(View.SelectedObjects(0), GLOpenCloseHeader) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("GLHeader.IsEditable=False and GetYear(GLHeader.DateExecution)=?", _GLOpenCloseHeader.AccountYearClose)) + Dim _GLRows As GLRows + Dim _ChartOfAccounts As ChartOfAccounts + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + + '// Törölt FK. számla rendberakása + If _GLRows.DebitChartOfAccounts.IsDeleted Then + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _GLRows.GLHeader.DateExecution.Year, _GLRows.DebitChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts + End If + End If + If _GLRows.CreditChartOfAccounts.IsDeleted Then + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _GLRows.GLHeader.DateExecution.Year, _GLRows.CreditChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.CreditChartOfAccounts = _ChartOfAccounts + End If + End If + + '// Nem azonos év rendberakása + + Next + _uow.CommitChanges() + RaiseEvent FinalWork + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "HIBA !") + Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT.vb new file mode 100644 index 0000000..478bc0a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT.vb @@ -0,0 +1,92 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class DivideVAT + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Me.RegistryRowsFinancial IsNot Nothing Then + VAT = Me.RegistryRowsFinancial.VAT + DateVAT = Me.RegistryRowsFinancial.DateVAT + End If + End Sub + + Private _RegistryRowsFinancial As RegistryRowsFinancial + Private _AmountPercent As Double + Private _BruttoAmount As Double + Private _VAT As VAT + Private _DateVAT As Date + Private _Note As String + + _ + Property RegistryRowsFinancial As RegistryRowsFinancial + Get + Return _RegistryRowsFinancial + End Get + Set(value As RegistryRowsFinancial) + SetPropertyValue("RegistryRowsFinancial", _RegistryRowsFinancial, value) + End Set + End Property + _ + _ + Property AmountPercent As Double + Get + Return _AmountPercent + End Get + Set(value As Double) + SetPropertyValue("AmountPercent", _AmountPercent, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Me.BruttoAmount = RegistryRowsFinancial.BruttoAmount * (value / 100) + End If + End Set + End Property + Property BruttoAmount As Double + Get + Return _BruttoAmount + End Get + Set(value As Double) + SetPropertyValue("BruttoAmount", _BruttoAmount, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.Designer.vb new file mode 100644 index 0000000..9953d7c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DivideVAT_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.vb new file mode 100644 index 0000000..9269412 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/DivideVAT_VC.vb @@ -0,0 +1,39 @@ +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.Validation + +Public Class DivideVAT_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "DivideVAT_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf DivideVAT_AcceptAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "DivideVAT_DetailView" Then + RemoveHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf DivideVAT_AcceptAction_Executing + End If + End Sub + Sub DivideVAT_AcceptAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsBankDivide.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsBankDivide.vb new file mode 100644 index 0000000..e811562 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsBankDivide.vb @@ -0,0 +1,124 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ +Public Class GLBankDivide 'Popup a Banki csomag sorbontáshoz + Inherits BaseObject + Private _AmountPercent As Double = 0 + Private _AmountDEV As Double + Private _AmountHUF As Double + Private _DatePayment As Date + Private _RegistryBankTransfer_AmountHUF As Double + Private _RegistryBankTransfer_AmountDEV As Double + Private _RegistryBankTransfer_RegistryHeader_CurrencyName As String + Private _Note As String ' -- Az utalási tétel közlemény rovata + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Public Property AmountPercent As Double + Get + Return _AmountPercent + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountPercent", _AmountPercent, value) + 'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + ' If Not Me.AmountHUF = Math.Round(((value / 100) * Me.RegistryBankTransfer.AmountHUF), 2, MidpointRounding.AwayFromZero) Then + ' Me.AmountHUF = Math.Round(((value / 100) * Me.RegistryBankTransfer.AmountHUF), 2, MidpointRounding.AwayFromZero) + ' End If + 'End If + End Set + End Property + _ + Public Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + 'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + ' If Not Me.AmountHUF = Math.Round((value * Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) Then + ' Me.AmountHUF = Math.Round((value * Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) + ' End If + 'End If + End Set + End Property + _ + Public Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + 'If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + ' If Not Me.AmountDEV = Math.Round((value / Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) Then + ' Me.AmountDEV = Math.Round((value / Me.RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) + ' End If + ' If Not Math.Round(Me.AmountPercent, 2, MidpointRounding.AwayFromZero) = (Me.AmountHUF / Me.RegistryBankTransfer.AmountHUF) * 100 Then + ' Me.AmountPercent = Math.Round(((Me.AmountHUF / Me.RegistryBankTransfer.AmountHUF) * 100), 2, MidpointRounding.AwayFromZero) + ' End If + 'End If + End Set + End Property + _ + _ + Public Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + _ + Property RegistryBankTransfer_AmountHUF As Double + Get + Return _RegistryBankTransfer_AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("RegistryBankTransfer_AmountHUF", _RegistryBankTransfer_AmountHUF, value) + End Set + End Property + _ + Property RegistryBankTransfer_AmountDEV As Double + Get + Return _RegistryBankTransfer_AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("RegistryBankTransfer_AmountDEV", _RegistryBankTransfer_AmountDEV, value) + End Set + End Property + _ + Property RegistryBankTransfer_RegistryHeader_CurrencyName As String + Get + Return _RegistryBankTransfer_RegistryHeader_CurrencyName + End Get + Set(ByVal value As String) + SetPropertyValue("RegistryBankTransfer_RegistryHeader_CurrencyName", _RegistryBankTransfer_RegistryHeader_CurrencyName, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsCheck.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsCheck.vb new file mode 100644 index 0000000..65115fa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsCheck.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ + _ + _ + _ +Public Class GLRowsCheck 'Popup a csoportos módosításhoz + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Property ChartOfAccountsYear As ChartOfAccountsYear + Public Property Controlling As Controlling + Public Property JobNumberObjects As JobNumberObjects + Public Property CostHolder As CostHolder + Public Property CostPlace As CostPlace + Public Property UniqueObjects As UniqueObjects + Public Property DebitChartOfAccounts As ChartOfAccounts + Public Property CreditChartOfAccounts As ChartOfAccounts + Public Property IsDateExecution As Boolean = False + Public Property DateExecution As Date + Public Property GLRowsType As eGLRowsType = eGLRowsType.eNormal + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsDivide.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsDivide.vb new file mode 100644 index 0000000..3b39b25 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsDivide.vb @@ -0,0 +1,28 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ +Public Class GLRowsDivide 'Popup a GLRows bontáshoz + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Property AmountPercent As Double + Public Property AmountDEV As Double + Public Property AmountHUF As Double +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.Designer.vb new file mode 100644 index 0000000..89b5b7c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.Designer.vb @@ -0,0 +1,114 @@ +Partial Class RateDiffVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateRateDiffView = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPDCI_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenObject_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_RateDiff = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateRateDiffView + ' + Me.aCreateRateDiffView.AcceptButtonCaption = Nothing + Me.aCreateRateDiffView.CancelButtonCaption = Nothing + Me.aCreateRateDiffView.Caption = "Create Rate Diff" + Me.aCreateRateDiffView.ConfirmationMessage = Nothing + Me.aCreateRateDiffView.Id = "aCreateRateDiffView" + Me.aCreateRateDiffView.ImageName = Nothing + Me.aCreateRateDiffView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateRateDiffView.Shortcut = Nothing + Me.aCreateRateDiffView.Tag = Nothing + Me.aCreateRateDiffView.TargetObjectsCriteria = Nothing + Me.aCreateRateDiffView.TargetViewId = Nothing + Me.aCreateRateDiffView.ToolTip = Nothing + Me.aCreateRateDiffView.TypeOfView = Nothing + ' + 'aViewPDCI_RateDiff + ' + Me.aViewPDCI_RateDiff.Caption = "aViewPDCI_RateDiff" + Me.aViewPDCI_RateDiff.ConfirmationMessage = Nothing + Me.aViewPDCI_RateDiff.Id = "aViewPDCI_RateDiff" + Me.aViewPDCI_RateDiff.ImageName = Nothing + Me.aViewPDCI_RateDiff.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPDCI_RateDiff.Shortcut = Nothing + Me.aViewPDCI_RateDiff.Tag = Nothing + Me.aViewPDCI_RateDiff.TargetObjectsCriteria = Nothing + Me.aViewPDCI_RateDiff.TargetViewId = Nothing + Me.aViewPDCI_RateDiff.ToolTip = Nothing + Me.aViewPDCI_RateDiff.TypeOfView = Nothing + ' + 'aOpenObject_RateDiff + ' + Me.aOpenObject_RateDiff.Caption = "aOpenObject_RateDiff" + Me.aOpenObject_RateDiff.ConfirmationMessage = Nothing + Me.aOpenObject_RateDiff.Id = "aOpenObject_RateDiff" + Me.aOpenObject_RateDiff.ImageName = Nothing + Me.aOpenObject_RateDiff.Shortcut = Nothing + Me.aOpenObject_RateDiff.Tag = Nothing + Me.aOpenObject_RateDiff.TargetObjectsCriteria = Nothing + Me.aOpenObject_RateDiff.TargetViewId = Nothing + Me.aOpenObject_RateDiff.ToolTip = Nothing + Me.aOpenObject_RateDiff.TypeOfView = Nothing + ' + 'aViewRegistry_RateDiff + ' + Me.aViewRegistry_RateDiff.Caption = "View registry" + Me.aViewRegistry_RateDiff.ConfirmationMessage = Nothing + Me.aViewRegistry_RateDiff.Id = "aViewRegistry_RateDiff" + Me.aViewRegistry_RateDiff.ImageName = "document_pinned" + Me.aViewRegistry_RateDiff.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_RateDiff.Shortcut = Nothing + Me.aViewRegistry_RateDiff.Tag = Nothing + Me.aViewRegistry_RateDiff.TargetObjectsCriteria = Nothing + Me.aViewRegistry_RateDiff.TargetViewId = "" + Me.aViewRegistry_RateDiff.ToolTip = Nothing + Me.aViewRegistry_RateDiff.TypeOfView = Nothing + ' + 'aViewAttachments_RateDiff + ' + Me.aViewAttachments_RateDiff.Caption = "View attachments" + Me.aViewAttachments_RateDiff.ConfirmationMessage = Nothing + Me.aViewAttachments_RateDiff.Id = "aViewAttachments_RateDiff" + Me.aViewAttachments_RateDiff.ImageName = "printer_view" + Me.aViewAttachments_RateDiff.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_RateDiff.Shortcut = Nothing + Me.aViewAttachments_RateDiff.Tag = Nothing + Me.aViewAttachments_RateDiff.TargetObjectsCriteria = Nothing + Me.aViewAttachments_RateDiff.TargetViewId = "" + Me.aViewAttachments_RateDiff.ToolTip = Nothing + Me.aViewAttachments_RateDiff.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateRateDiffView As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPDCI_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenObject_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_RateDiff As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.resx new file mode 100644 index 0000000..3cff097 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 190, 17 + + + 353, 17 + + + 17, 17 + + + 512, 17 + + + 689, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb new file mode 100644 index 0000000..277d6b0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffVC.vb @@ -0,0 +1,257 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering + +Public Class RateDiffVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", False) + Frame.GetController(Of RateDiffVC).aViewPDCI_RateDiff.Active.SetItemValue("", False) + Frame.GetController(Of RateDiffVC).aOpenObject_RateDiff.Active.SetItemValue("", False) + Frame.GetController(Of RateDiffVC).aViewAttachments_RateDiff.Active.SetItemValue("", False) + Frame.GetController(Of RateDiffVC).aViewRegistry_RateDiff.Active.SetItemValue("", False) + + If View.Id = "RateDiffView_ListView" Then + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", True) + Frame.GetController(Of RateDiffVC).aViewPDCI_RateDiff.Active.SetItemValue("", True) + Frame.GetController(Of RateDiffVC).aOpenObject_RateDiff.Active.SetItemValue("", True) + Frame.GetController(Of RateDiffVC).aViewAttachments_RateDiff.Active.SetItemValue("", True) + Frame.GetController(Of RateDiffVC).aViewRegistry_RateDiff.Active.SetItemValue("", True) + + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "RateDiffView_ListView" Then + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + Frame.GetController(Of RateDiffVC).aCreateRateDiffView.Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _RateDiffView As RateDiffView + + If View Is Nothing Then Exit Sub + + If View.Id Like "RateDiffView_ListView*" And noselect = False Then + selection.Clear() + For Each _RateDiffView In View.SelectedObjects + selection.Add(_RateDiffView) + Next + End If + + End Sub + Private Sub aCreateRateDiffView_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateRateDiffView.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RateDiffPopUp As RateDiffPopUp = _onew.CreateObject(Of RateDiffPopUp)() + + _RateDiffPopUp.DateExecution = Now + + e.View = Application.CreateDetailView(_onew, "RateDiffPopUp_DetailView", False, _RateDiffPopUp) + End Sub + + Private Sub aCreateRateDiffView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateRateDiffView.Execute + + '// Megcsinálja az árfolyam elszámoló vegyes bizonylatot + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RateDiffPopUp As RateDiffPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffPopUp) + Dim _RateDiffView As RateDiffView + Dim _GLHeader_Ratediff As GLMixed = Nothing + Dim _GLRows_RateDiff As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + Dim _Controlling As Controlling = Nothing + Dim _GLMixedNG As GLMixedNG + Dim _GLRows As GLRows + + Dim _GLHeader_RateDiffParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + If _GLHeader_RateDiffParameter Is Nothing Then Exit Sub + + Dim _ChartOfAccounts_RateDiff_Win As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRateDiffWin) + Dim _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRateDiffLoss) + Dim _Controlling_RateDiff_Win As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Win + Dim _Controlling_RateDiff_Loss As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Loss + + Dim _CustomersFrom As CustomersFrom = Nothing + Dim i As Long = 0 + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + If selection.Count <= 0 Then Exit Sub + + For Each _RateDiffView In selection + If i = 0 Then + _CustomersFrom = _RateDiffView.CustomersFrom + i = 1 + End If + If _RateDiffView.CustomersFrom.Oid <> _CustomersFrom.Oid Then + Throw New Exception("*Csak azonos saját cégű sorok jelölhető ki egyszerre !") + Exit For + End If + Next + + _GLHeader_Ratediff = _ocur.CreateObject(Of GLMixed)() + _GLHeader_Ratediff.CustomersFrom = _CustomersFrom + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Ratediff.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Ratediff.DocumentNumber = "" Then + _GLHeader_Ratediff.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_RateDiff) + End If + End If + _GLHeader_Ratediff.DateExecution = _RateDiffPopUp.DateExecution + _GLHeader_Ratediff.DateCreated = _RateDiffPopUp.DateExecution + _GLHeader_Ratediff.NoteHeader = _RateDiffPopUp.Description + _GLHeader_Ratediff.CurrencyRate = 1 + + _GLHeader_Ratediff.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Ratediff.IsEditable = False + _GLHeader_Ratediff.IsStorno = False + _GLHeader_Ratediff.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + For Each _RateDiffView In selection + Select Case _RateDiffView.PartnerType + Case ePartnerType.ePayabels + If _RateDiffView.RateDiffState = 1 Then + _DebitChartOfAccounts = _RateDiffView.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _Controlling = _Controlling_RateDiff_Win + _InAmountHUF = Math.Abs(_RateDiffView.OutAmountHUF_Diff) + End If + If _RateDiffView.RateDiffState = -1 Then + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _RateDiffView.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_RateDiff_Loss + _OutAmountHUF = Math.Abs(_RateDiffView.OutAmountHUF_Diff) + End If + + Case ePartnerType.eReceivables + If _RateDiffView.RateDiffState = -1 Then + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _RateDiffView.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_RateDiff_Loss + _OutAmountHUF = Math.Abs(_RateDiffView.InAmountHUF_Diff) + End If + If _RateDiffView.RateDiffState = 1 Then + _DebitChartOfAccounts = _RateDiffView.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _Controlling = _Controlling_RateDiff_Win + _InAmountHUF = Math.Abs(_RateDiffView.InAmountHUF_Diff) + End If + End Select + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _RateDiffView.Oid)) + + + _GLRows_RateDiff = _ocur.CreateObject(Of GLRows)() + _GLRows.GLRowsRateDiff = _GLRows_RateDiff + _GLRows_RateDiff.GLRowsRateDiff = _GLRows + _GLRows_RateDiff.GLHeader = _GLHeader_Ratediff + _GLRows_RateDiff.InAmountHUF = _InAmountHUF + _GLRows_RateDiff.OutAmountHUF = _OutAmountHUF + _GLRows_RateDiff.AddGLRows(_GLHeader_Ratediff, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_RateDiffView.InAmountHUF_Diff - _RateDiffView.OutAmountHUF_Diff), Nothing, _ + _RateDiffView.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _RateDiffView.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _RateDiffView.PartnerType) + Next + + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub SimpleAction1_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPDCI_RateDiff.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RateDiffView As RateDiffView = TryCast(View.SelectedObjects(0), RateDiffView) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _RateDiffView.CustomersFrom, _ + _RateDiffView.Customers, _RateDiffView.PartnerType, _ + _RateDiffView.ConnectInfo) + End Sub + + Private Sub aOpenObject_RateDiff_Execute_1(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenObject_RateDiff.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RateDiffView As RateDiffView = TryCast(View.SelectedObjects(0), RateDiffView) + Dim _GLCassa As GLCassa + Dim _GLBank As GLBank + Dim _GLCompensation As GLCompensation + Dim _DetailView As DetailView + Dim _GLRows As GLRows + + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _RateDiffView.Oid), True) + _GLCassa = _ocur.FindObject(Of GLCassa)(CriteriaOperator.Parse("Oid=?", _GLRows.GLHeader.Oid), True) + If _GLCassa IsNot Nothing Then + _DetailView = Application.CreateDetailView(_onew, _onew.GetObject(_GLCassa), True) + e.ShowViewParameters.CreatedView = _DetailView + Else + _GLBank = _ocur.FindObject(Of GLBank)(CriteriaOperator.Parse("Oid=?", _GLRows.GLHeader.Oid), True) + If _GLBank IsNot Nothing Then + _DetailView = Application.CreateDetailView(_onew, _onew.GetObject(_GLBank), True) + e.ShowViewParameters.CreatedView = _DetailView + Else + _GLCompensation = _ocur.FindObject(Of GLCompensation)(CriteriaOperator.Parse("Oid=?", _GLRows.GLHeader.Oid), True) + If _GLBank IsNot Nothing Then + _DetailView = Application.CreateDetailView(_onew, _onew.GetObject(_GLCompensation), True) + e.ShowViewParameters.CreatedView = _DetailView + End If + End If + End If + End Sub + + Private Sub aViewRegistry_RateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_RateDiff.Execute + Dim _RateDiffView As RateDiffView = TryCast(View.SelectedObjects(0), RateDiffView) + Dim _CustomersFrom As CustomersFrom = _RateDiffView.CustomersFrom + Dim _Customers As Customers = _RateDiffView.Customers + Dim _DocumentNumber As String = _RateDiffView.ConnectInfo + + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + + Private Sub aViewAttachments_RateDiff_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_RateDiff.Execute + '-- Karton sorához tartozó eredeti dokumentum megnyitása + Dim _RateDiffView As RateDiffView = TryCast(View.SelectedObjects(0), RateDiffView) + Dim _CustomersFrom As CustomersFrom = _RateDiffView.CustomersFrom + Dim _Customers As Customers = _RateDiffView.Customers + Dim _DocumentNumber As String = _RateDiffView.ConnectInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffView.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffView.vb new file mode 100644 index 0000000..0a926a9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/RateDiff/RateDiffView.vb @@ -0,0 +1,67 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ + _ + _ +Public Class RateDiffView + Inherits XPLiteObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Oid As Guid + Public CustomersFrom As CustomersFrom + Public PartnerType As ePartnerType + Public Customers As Customers + Public ConnectInfo As String + Public DateExecution_Account As Date + Public CurrencyName_Account As CurrencyName + Public AmountDEV_Account As Double + Public BallanceDEV_Account As Double + Public CurrencyRate_Account As Double + Public LiquidAssets As LiquidAssets + Public DateExecution As Date + Public InAmountDEV As Double + Public OutAmountDEV As Double + Public InAmountDEV2 As Double + Public OutAmountDEV2 As Double + Public CurrencyRate As Double + Public InAmountHUF As Double + Public OutAmountHUF As Double + Public InAmountHUF_Account As Double + Public OutAmountHUF_Account As Double + Public InAmountHUF_Diff As Double + Public OutAmountHUF_Diff As Double + Public GLRowsRatediff As Double + Public RateDiffState As Long + _ + ReadOnly Property BallanceRateDiffImage As Image + Get + If PartnerType = ePartnerType.eReceivables Then + If RateDiffState = -1 Then 'rfolyam vesztesg + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + Else 'rfolyam nyeresg + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + End If + ElseIf PartnerType = ePartnerType.ePayabels Then + If RateDiffState = 1 Then 'rfolyam nyeresg + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + Else 'rfolyam vesztesg + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + End If + Else + Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceHeader.vb new file mode 100644 index 0000000..953b3b8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceHeader.vb @@ -0,0 +1,140 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class BallanceHeader + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + + Private _TrialBalanceHeaderBefore As TrialBalanceHeader 'Megelz idszak fk. kivonata + Private _TrialBalanceHeader As TrialBalanceHeader 'Aktulis idszak fk. kivonata + + Private _DateClose As Date + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _SpreadXML As String ' A mrleg - beszmolt tartalmaz excel + Private _SpreadFileData As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateClose = GetSQLTime(Session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property TrialBalanceHeaderBefore As TrialBalanceHeader + Get + Return _TrialBalanceHeaderBefore + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeaderBefore", _TrialBalanceHeaderBefore, value) + End Set + End Property + Property TrialBalanceHeader As TrialBalanceHeader + Get + Return _TrialBalanceHeader + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value) + End Set + End Property + _ + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + Property SpreadXML As String + Get + Return _SpreadXML + End Get + Set(value As String) + SetPropertyValue("SpreadXML", _SpreadXML, value) + End Set + End Property + Property SpreadFileData As FileData + Get + Return _SpreadFileData + End Get + Set(value As FileData) + SetPropertyValue("SpreadFileData", _SpreadFileData, value) + End Set + End Property + + _ + _ + ReadOnly Property BallanceRows As XPCollection(Of BallanceRows) + Get + Return GetCollection(Of BallanceRows)("BallanceRows") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceRows.vb new file mode 100644 index 0000000..e999f14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceRows.vb @@ -0,0 +1,100 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eBallanceRowType + eCalcRows = 0 + eSumRow = 1 +End Enum + _ + _ +Public Class BallanceRows + Inherits BaseObject + Private _BallanceHeader As BallanceHeader + Private _RowIndex As Long + Private _BallanceRowType As eBallanceRowType + Private _ShortName As String + Private _CalcField As String + Private _AmountHUF As Double + Private _AmountDEV As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property BallanceHeader As BallanceHeader + Get + Return _BallanceHeader + End Get + Set(value As BallanceHeader) + SetPropertyValue("BallanceHeader", _BallanceHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property BallanceRowType As eBallanceRowType + Get + Return _BallanceRowType + End Get + Set(value As eBallanceRowType) + SetPropertyValue("BallanceRowType", _BallanceRowType, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property CalcField As String + Get + Return _CalcField + End Get + Set(value As String) + SetPropertyValue("CalcField", _CalcField, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb new file mode 100644 index 0000000..3e2e8cd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.Designer.vb @@ -0,0 +1,45 @@ +Partial Class BallanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateBallanceReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateBallanceReport + ' + Me.aGenerateBallanceReport.Caption = "aGenerate Ballance Report" + Me.aGenerateBallanceReport.ConfirmationMessage = Nothing + Me.aGenerateBallanceReport.Id = "aGenerateBallanceReport" + Me.aGenerateBallanceReport.TargetObjectType = GetType(SISBusiness.[Module].BallanceHeader) + Me.aGenerateBallanceReport.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateBallanceReport.ToolTip = Nothing + Me.aGenerateBallanceReport.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aGenerateBallanceReport As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx new file mode 100644 index 0000000..edb8b90 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 182, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb new file mode 100644 index 0000000..a17d3a1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Ballance/BallanceVC.vb @@ -0,0 +1,86 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl + +Public Class BallanceVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If View.Id = "BallanceHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'" + End If + If View.Id = "BallanceHeader_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'" + Frame.GetController(Of BallanceVC).aGenerateBallanceReport.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'" + End If + + If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Current" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader) + If _BallanceHeader IsNot Nothing Then + View.CurrentObject = _ocur.GetObject(_BallanceHeader.TrialBalanceHeader) + End If + End If + If View.Id = "TrialBalanceHeader_DetailView_BallanceHeader_Previous" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _BallanceHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), BallanceHeader) + If _BallanceHeader IsNot Nothing Then + View.CurrentObject = _ocur.GetObject(_BallanceHeader.TrialBalanceHeaderBefore) + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "BallanceHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aGenerateBallanceReport_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateBallanceReport.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BallanceHeader As BallanceHeader = TryCast(View.SelectedObjects(0), BallanceHeader) + + If _BallanceHeader IsNot Nothing Then + If _BallanceHeader.TrialBalanceHeader IsNot Nothing Then Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_ocur, _BallanceHeader.TrialBalanceHeader) + If _BallanceHeader.TrialBalanceHeaderBefore IsNot Nothing Then Frame.GetController(Of SISBusiness.Module.TrialBalanceVC).LoadTrialBalanceNew(_ocur, _BallanceHeader.TrialBalanceHeaderBefore) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb new file mode 100644 index 0000000..cb64a05 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.Designer.vb @@ -0,0 +1,255 @@ +Partial Class GLCardVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGLCardsQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCardsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_Cards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_Cards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCardsChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLCardsMakeConnection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGLCardsOpenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCardsDivideRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPCIDetail_GLCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheckDetail_GLCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCardsQueryPCI = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDGroup_GLCrads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDGroup_GLDetails_GLCards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_GLCards = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheckDetail_GLCardsRowsPCI = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLCardsQueryABRQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateOpenClosePCIRecord_GLCards = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aGenerateOpenClosePCIRecord_Storno_GLCards = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aGLCardsQuery + ' + Me.aGLCardsQuery.Caption = "aGLCards Query" + Me.aGLCardsQuery.ConfirmationMessage = Nothing + Me.aGLCardsQuery.Id = "aGLCardsQuery" + Me.aGLCardsQuery.ImageName = "stopwatch_run" + Me.aGLCardsQuery.TargetViewId = "GLCardsHeader_DetailView" + Me.aGLCardsQuery.ToolTip = Nothing + ' + 'aGLCardsPrint + ' + Me.aGLCardsPrint.Caption = "Print document" + Me.aGLCardsPrint.Category = "View" + Me.aGLCardsPrint.ConfirmationMessage = Nothing + Me.aGLCardsPrint.Id = "aGLCardsPrint" + Me.aGLCardsPrint.ImageName = "Action_Printing_Print" + Me.aGLCardsPrint.TargetViewId = "GLCardsHeader_DetailView" + Me.aGLCardsPrint.ToolTip = Nothing + ' + 'aViewRegistry_Cards + ' + Me.aViewRegistry_Cards.Caption = "View registry" + Me.aViewRegistry_Cards.ConfirmationMessage = Nothing + Me.aViewRegistry_Cards.Id = "aViewRegistry_Cards" + Me.aViewRegistry_Cards.ImageName = "document_pinned" + Me.aViewRegistry_Cards.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aViewRegistry_Cards.ToolTip = Nothing + ' + 'aViewAttachments_Cards + ' + Me.aViewAttachments_Cards.Caption = "View attachments" + Me.aViewAttachments_Cards.ConfirmationMessage = Nothing + Me.aViewAttachments_Cards.Id = "aViewAttachments_Cards" + Me.aViewAttachments_Cards.ImageName = "printer_view" + Me.aViewAttachments_Cards.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aViewAttachments_Cards.ToolTip = Nothing + ' + 'aGLCardsChangeParam + ' + Me.aGLCardsChangeParam.AcceptButtonCaption = Nothing + Me.aGLCardsChangeParam.CancelButtonCaption = Nothing + Me.aGLCardsChangeParam.Caption = "Change parameters" + Me.aGLCardsChangeParam.ConfirmationMessage = Nothing + Me.aGLCardsChangeParam.Id = "aGLCardsChangeParam" + Me.aGLCardsChangeParam.ImageName = "index_preferences" + Me.aGLCardsChangeParam.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aGLCardsChangeParam.ToolTip = Nothing + ' + 'aGLCardsMakeConnection + ' + Me.aGLCardsMakeConnection.AcceptButtonCaption = Nothing + Me.aGLCardsMakeConnection.CancelButtonCaption = Nothing + Me.aGLCardsMakeConnection.Caption = "Change parameters" + Me.aGLCardsMakeConnection.ConfirmationMessage = Nothing + Me.aGLCardsMakeConnection.Id = "aGLCardsMakeConnection" + Me.aGLCardsMakeConnection.ImageName = "document_connection" + Me.aGLCardsMakeConnection.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aGLCardsMakeConnection.ToolTip = Nothing + ' + 'aGLCardsOpenDocument + ' + Me.aGLCardsOpenDocument.Caption = "View document" + Me.aGLCardsOpenDocument.ConfirmationMessage = Nothing + Me.aGLCardsOpenDocument.Id = "aGLCardsOpenDocument" + Me.aGLCardsOpenDocument.ImageName = "Action_Open" + Me.aGLCardsOpenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCardsOpenDocument.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aGLCardsOpenDocument.ToolTip = Nothing + ' + 'aGLCardsDivideRows + ' + Me.aGLCardsDivideRows.AcceptButtonCaption = Nothing + Me.aGLCardsDivideRows.CancelButtonCaption = Nothing + Me.aGLCardsDivideRows.Caption = "Divide rows" + Me.aGLCardsDivideRows.ConfirmationMessage = Nothing + Me.aGLCardsDivideRows.Id = "aGLCardsDivideRows" + Me.aGLCardsDivideRows.ImageName = "index_preferences" + Me.aGLCardsDivideRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGLCardsDivideRows.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows) + Me.aGLCardsDivideRows.TargetViewId = "GLCardsHeader_GLCardsRows_ListView" + Me.aGLCardsDivideRows.ToolTip = Nothing + ' + 'aViewPCIDetail_GLCard + ' + Me.aViewPCIDetail_GLCard.Caption = "aViewPCIDGroup" + Me.aViewPCIDetail_GLCard.ConfirmationMessage = Nothing + Me.aViewPCIDetail_GLCard.Id = "aViewPCIDetail_GLCard" + Me.aViewPCIDetail_GLCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDetail_GLCard.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows) + Me.aViewPCIDetail_GLCard.TargetViewId = "" + Me.aViewPCIDetail_GLCard.ToolTip = Nothing + ' + 'aPCICheckDetail_GLCard + ' + Me.aPCICheckDetail_GLCard.Caption = "aPCICheckDetail_GLCard" + Me.aPCICheckDetail_GLCard.Category = "RecordEdit" + Me.aPCICheckDetail_GLCard.ConfirmationMessage = Nothing + Me.aPCICheckDetail_GLCard.Id = "aPCICheckDetail_GLCard" + Me.aPCICheckDetail_GLCard.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRows) + Me.aPCICheckDetail_GLCard.ToolTip = Nothing + ' + 'aGLCardsQueryPCI + ' + Me.aGLCardsQueryPCI.Caption = "aGLCardsQueryPCI" + Me.aGLCardsQueryPCI.Category = "aGLCardsQueryPCI" + Me.aGLCardsQueryPCI.ConfirmationMessage = Nothing + Me.aGLCardsQueryPCI.Id = "aGLCardsQueryPCI" + Me.aGLCardsQueryPCI.TargetObjectType = GetType(SISBusiness.[Module].GLCardsHeader) + Me.aGLCardsQueryPCI.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGLCardsQueryPCI.ToolTip = Nothing + Me.aGLCardsQueryPCI.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aViewPCIDGroup_GLCrads + ' + Me.aViewPCIDGroup_GLCrads.Caption = "aViewPCIDGroup_GLCrads" + Me.aViewPCIDGroup_GLCrads.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_GLCrads.Id = "aViewPCIDGroup_GLCrads" + Me.aViewPCIDGroup_GLCrads.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_GLCrads.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aViewPCIDGroup_GLCrads.TargetViewId = "" + Me.aViewPCIDGroup_GLCrads.ToolTip = Nothing + ' + 'aViewPCIDGroup_GLDetails_GLCards + ' + Me.aViewPCIDGroup_GLDetails_GLCards.Caption = "aViewPCIDGroup_GLDetails_GLCards" + Me.aViewPCIDGroup_GLDetails_GLCards.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_GLDetails_GLCards.Id = "aViewPCIDGroup_GLDetails_GLCards" + Me.aViewPCIDGroup_GLDetails_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_GLDetails_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aViewPCIDGroup_GLDetails_GLCards.TargetViewId = "" + Me.aViewPCIDGroup_GLDetails_GLCards.ToolTip = Nothing + ' + 'aViewAttachments_GLCards + ' + Me.aViewAttachments_GLCards.Caption = "aViewAttachments_GLCards" + Me.aViewAttachments_GLCards.ConfirmationMessage = Nothing + Me.aViewAttachments_GLCards.Id = "aViewAttachments_GLCards" + Me.aViewAttachments_GLCards.ImageName = "printer_view" + Me.aViewAttachments_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aViewAttachments_GLCards.TargetViewId = "" + Me.aViewAttachments_GLCards.ToolTip = Nothing + ' + 'aPCICheckDetail_GLCardsRowsPCI + ' + Me.aPCICheckDetail_GLCardsRowsPCI.Caption = "aPCICheckDetail_GLCardsRowsPCI" + Me.aPCICheckDetail_GLCardsRowsPCI.Category = "RecordEdit" + Me.aPCICheckDetail_GLCardsRowsPCI.ConfirmationMessage = Nothing + Me.aPCICheckDetail_GLCardsRowsPCI.Id = "aPCICheckDetail_GLCardsRowsPCI" + Me.aPCICheckDetail_GLCardsRowsPCI.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheckDetail_GLCardsRowsPCI.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aPCICheckDetail_GLCardsRowsPCI.ToolTip = Nothing + ' + 'aGLCardsQueryABRQuery + ' + Me.aGLCardsQueryABRQuery.Caption = "aGLCardsQueryABRQuery" + Me.aGLCardsQueryABRQuery.Category = "aGLCardsQueryABRQuery" + Me.aGLCardsQueryABRQuery.ConfirmationMessage = Nothing + Me.aGLCardsQueryABRQuery.Id = "aGLCardsQueryABRQuery" + Me.aGLCardsQueryABRQuery.TargetObjectType = GetType(SISBusiness.[Module].GLCardsHeader) + Me.aGLCardsQueryABRQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGLCardsQueryABRQuery.ToolTip = Nothing + Me.aGLCardsQueryABRQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aGenerateOpenClosePCIRecord_GLCards + ' + Me.aGenerateOpenClosePCIRecord_GLCards.AcceptButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_GLCards.CancelButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_GLCards.Caption = "aGenerateOpenClosePCIRecord_GLCards" + Me.aGenerateOpenClosePCIRecord_GLCards.ConfirmationMessage = Nothing + Me.aGenerateOpenClosePCIRecord_GLCards.Id = "aGenerateOpenClosePCIRecord_GLCards" + Me.aGenerateOpenClosePCIRecord_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateOpenClosePCIRecord_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aGenerateOpenClosePCIRecord_GLCards.ToolTip = Nothing + ' + 'aGenerateOpenClosePCIRecord_Storno_GLCards + ' + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.AcceptButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.CancelButtonCaption = Nothing + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.Caption = "aGenerateOpenClosePCIRecord_Storno_GLCards" + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.ConfirmationMessage = Nothing + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.Id = "aGenerateOpenClosePCIRecord_Storno_GLCards" + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.TargetObjectType = GetType(SISBusiness.[Module].GLCardsRowsPCI) + Me.aGenerateOpenClosePCIRecord_Storno_GLCards.ToolTip = Nothing + + End Sub + Friend WithEvents aGLCardsQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCardsPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_Cards As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_Cards As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCardsChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLCardsDivideRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLCardsMakeConnection As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGLCardsOpenDocument As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDetail_GLCard As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheckDetail_GLCard As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCardsQueryPCI As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup_GLCrads As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup_GLDetails_GLCards As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_GLCards As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheckDetail_GLCardsRowsPCI As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLCardsQueryABRQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateOpenClosePCIRecord_GLCards As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGenerateOpenClosePCIRecord_Storno_GLCards As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.resx new file mode 100644 index 0000000..d4aaa92 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.resx @@ -0,0 +1,177 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 212 + + + 17, 251 + + + 17, 329 + + + 17, 368 + + + 17, 407 + + + 17, 485 + + + 17, 524 + + + 17, 680 + + + 17, 563 + + + 17, 56 + + + 17, 446 + + + 17, 290 + + + 17, 173 + + + 17, 95 + + + 17, 602 + + + 17, 641 + + + 406, 602 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb new file mode 100644 index 0000000..2a4e765 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardVC.vb @@ -0,0 +1,899 @@ +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.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Xpo.DB + +Public Class GLCardVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Private appearanceController As AppearanceController + Public Sub New() + MyBase.New() + + selection = New ArrayList + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + 'appearanceController = Frame.GetController(Of AppearanceController)() + 'If appearanceController IsNot Nothing Then + ' AddHandler appearanceController.CustomApplyAppearance, AddressOf appearanceController_CustomApplyAppearance + ' AddHandler appearanceController.AppearanceApplied, AddressOf appearanceController_AppearanceApplied + 'End If + + MyBase.OnActivated() + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + If View.Id Like "GLCardsHeader_GLCardsRows_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + If View.Id = "GLCardsHeader_DetailView" Then + Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader) + + If _GLCardsHeader.UserCreated IsNot Nothing Then + If Not _GLCardsHeader.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", False) + End If + End If + End If + + If View.Id = "GLCardsHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'" + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If appearanceController IsNot Nothing Then + RemoveHandler appearanceController.CustomApplyAppearance, AddressOf appearanceController_CustomApplyAppearance + RemoveHandler appearanceController.AppearanceApplied, AddressOf appearanceController_AppearanceApplied + End If + + If View.Id = "GLCardsHeader_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If _GLCardsHeader.UserCreated IsNot Nothing Then + If Not _GLCardsHeader.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLCardVC).aGLCardsQuery.Active.SetItemValue("", True) + End If + End If + End If + End Sub + + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _GLCardsRows As GLCardsRows + If View Is Nothing Then Exit Sub + + If View.Id Like "GLCardsHeader_GLCardsRows_ListView" And noselect = False Then + selection.Clear() + For Each _GLCardsRows In View.SelectedObjects + selection.Add(_GLCardsRows) + Next + End If + + End Sub + + Private Sub aGLCardsQuery_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsQuery.Execute + 'Frame.GetController(Of ModificationsController).SaveAction.DoExecute() + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _COP As String + Dim _GLCardsHeader As GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(TryCast(View.SelectedObjects(0), GLCardsHeader).Oid) + Dim I As Long = 0 + Dim _DebitAmountHUF As Double + Dim _CreditAmountHUF As Double + Dim _DebitAmountDEV As Double + Dim _CreditAmountDEV As Double + Dim _DateFromCurrentYear As Date + + + + Dim _GLCardsRows_Collection As New XPCollection(_uow, GetType(GLCardsRows), _ + CriteriaOperator.Parse("GLCardsHeader=?", _GLCardsHeader)) + _uow.Delete(_GLCardsRows_Collection) + + Dim _GLCardsRows As GLCardsRows + _COP = "GLHeader.CustomersFrom=? and (GLHeader.DateExecution >=? and GLHeader.DateExecution<=?) " + _COP += " and (AmountHUF<>0) and GLHeader.IsEditable=False" + + If _GLCardsHeader.IsClose = False Then + _COP += " and (DebitChartOfAccounts.AccountNumber !='492' and CreditChartOfAccounts.AccountNumber != '492')" + End If + If _GLCardsHeader.IsOpen = False Then + _COP += " and (DebitChartOfAccounts.AccountNumber !='491' and CreditChartOfAccounts.AccountNumber != '491')" + End If + + _COP += " and (DebitChartOfAccounts.AccountNumber = ? or CreditChartOfAccounts.AccountNumber = ?)" + + Dim _GLRows_Collection As New XPCollection(_uow, GetType(GLRows), _ + CriteriaOperator.Parse(_COP, _GLCardsHeader.CustomersFrom, _GLCardsHeader.DateFrom, DateAdd(DateInterval.Minute, 1439, _GLCardsHeader.DateTo.Date), _GLCardsHeader.ChartOfAccount.AccountNumber, _GLCardsHeader.ChartOfAccount.AccountNumber)) + Dim _GLRows As GLRows + + _GLRows_Collection.Sorting.Clear() + _GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("InAmountHUF", DB.SortingDirection.Descending)) + _GLRows_Collection.Sorting.Add(New SortProperty("OutAmountHUF", DB.SortingDirection.Ascending)) + _GLRows_Collection.Sorting.Add(New SortProperty("GLHeader.DocumentNumber", DB.SortingDirection.Ascending)) + + Dim _BallanceRulliringHUF As Double = 0 + Dim _BallanceRulliringDEV As Double = 0 + Dim _RowIndex As Long = 0 + + '-- Ide kény egy nyitó sor .............................................................................. + _DateFromCurrentYear = CDate(Year(_GLCardsHeader.DateFrom) & "/01/01") + Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_ocur.Session) + + _DebitAmountHUF = 0 + _DebitAmountDEV = 0 + Dim query = From _glr In _GLRows_xpquery + Where _glr.DebitChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber And _ + _glr.GLHeader.IsEditable = False And _ + _glr.GLHeader.DateExecution.Date >= _DateFromCurrentYear And + _glr.GLHeader.DateExecution.Date < _GLCardsHeader.DateFrom.Date And + _glr.GLHeader IsNot Nothing And _ + _glr.GLHeader.CustomersFrom.Oid = _GLCardsHeader.CustomersFrom.Oid _ + Group _glr By _glr.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), _ + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + For Each item In query + _DebitAmountHUF += item.AmountHUF + _DebitAmountDEV += item.AmountDEV + Next + '2. + _CreditAmountHUF = 0 + _CreditAmountDEV = 0 + query = From _glr In _GLRows_xpquery + Where _glr.CreditChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber And _ + _glr.GLHeader.IsEditable = False And _ + _glr.GLHeader.DateExecution.Date >= _DateFromCurrentYear.Date And + _glr.GLHeader.DateExecution.Date < _GLCardsHeader.DateFrom.Date And + _glr.GLHeader.CustomersFrom.Oid = _GLCardsHeader.CustomersFrom.Oid _ + Group _glr By _glr.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), _ + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + + For Each item In query + _CreditAmountHUF += item.AmountHUF + _CreditAmountDEV += item.AmountDEV + Next + _GLCardsRows = New GLCardsRows(_uow) + _GLCardsRows.GLCardsHeader = _GLCardsHeader + _GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom + _GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name + _GLCardsRows.ShortNameTo = "NYITÓ" + _BallanceRulliringHUF += _DebitAmountHUF - _CreditAmountHUF + _BallanceRulliringDEV += _DebitAmountDEV - _CreditAmountDEV + If _DebitAmountHUF > _CreditAmountHUF Then + _GLCardsRows.DebitAmountHUF = _DebitAmountHUF - _CreditAmountHUF + Else + _GLCardsRows.CreditAmountHUF = _CreditAmountHUF - _DebitAmountHUF + End If + If _DebitAmountDEV > _CreditAmountDEV Then + _GLCardsRows.DebitAmountDEV = _DebitAmountDEV - _CreditAmountDEV + Else + _GLCardsRows.CreditAmountDEV = _CreditAmountDEV - _DebitAmountDEV + End If + _GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF + _GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV + _RowIndex += 1 + _GLCardsRows.RowIndex = _RowIndex + _GLCardsRows.Note_Rows = "Nyitó : " & _DateFromCurrentYear.ToString & " - " & _GLCardsHeader.DateFrom.ToString + _GLCardsRows.Save() + '// Ha van erre a nyitó dátumra adott pénzeszköt fk. számlára LiquidAssetsrate akkor az lesz anyitó DEV ! + + '........................................................................................................ + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + I += 1 + RaiseEvent DoWork() + + If _GLRows.DebitChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber Then + _GLCardsRows = New GLCardsRows(_uow) + _GLCardsRows.GLCardsHeader = _GLCardsHeader + _GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom + _GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name + _GLCardsRows.ShortNameTo = _GLRows.CreditChartOfAccounts.Name + _GLCardsRows.DebitAmountHUF = _GLRows.AmountHUF + _GLCardsRows.DebitAmountDEV = _GLRows.AmountDEV + If _GLRows.AmountDEV = 0 Then + _GLCardsRows.CurrencyRate = 1.0 + Else + _GLCardsRows.CurrencyRate = Math.Round(_GLRows.AmountHUF / _GLRows.AmountDEV, 4, MidpointRounding.AwayFromZero) + End If + _GLCardsRows.Customers = _GLRows.Customer + _GLCardsRows.ConnectionInfo = _GLRows.ConnectInfo + _GLCardsRows.DateExecution = _GLRows.GLHeader.DateExecution + _BallanceRulliringHUF += _GLRows.AmountHUF + _BallanceRulliringDEV += _GLRows.AmountDEV + _GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF + _GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV + _GLCardsRows.DocumentNumber = _GLRows.GLHeader.DocumentNumber + + _GLCardsRows.Controlling = _GLRows.Controlling + _GLCardsRows.UniqueObjects = _GLRows.UniqueObjects + _GLCardsRows.JobNumberObjects = _GLRows.JobNumberObjects + _GLCardsRows.CostHolder = _GLRows.CostHolder + _GLCardsRows.CostPlace = _GLRows.CostPlace + + _RowIndex += 1 + _GLCardsRows.RowIndex = _RowIndex + _GLCardsRows.Note_Rows = _GLRows.NoteRows + _GLCardsRows.GLRows = _GLRows + _GLCardsRows.Save() + ElseIf _GLRows.CreditChartOfAccounts.AccountNumber = _GLCardsHeader.ChartOfAccount.AccountNumber Then + _GLCardsRows = New GLCardsRows(_uow) + _GLCardsRows.GLCardsHeader = _GLCardsHeader + _GLCardsRows.CustomersForm = _GLCardsHeader.CustomersFrom + _GLCardsRows.ShortNameFrom = _GLCardsHeader.ChartOfAccount.Name + _GLCardsRows.ShortNameTo = _GLRows.DebitChartOfAccounts.Name + _GLCardsRows.CreditAmountHUF = _GLRows.AmountHUF + _GLCardsRows.CreditAmountDEV = _GLRows.AmountDEV + If _GLRows.AmountDEV = 0 Then + _GLCardsRows.CurrencyRate = 1.0 + Else + _GLCardsRows.CurrencyRate = Math.Round(_GLRows.AmountHUF / _GLRows.AmountDEV, 4, MidpointRounding.AwayFromZero) + End If + _GLCardsRows.Customers = _GLRows.Customer + _GLCardsRows.ConnectionInfo = _GLRows.ConnectInfo + _GLCardsRows.DateExecution = _GLRows.GLHeader.DateExecution + _BallanceRulliringHUF -= _GLRows.AmountHUF + _BallanceRulliringDEV -= _GLRows.AmountDEV + _GLCardsRows.BallanceRulliringHUF = _BallanceRulliringHUF + _GLCardsRows.BallanceRulliringDEV = _BallanceRulliringDEV + _GLCardsRows.DocumentNumber = _GLRows.GLHeader.DocumentNumber + + _GLCardsRows.Controlling = _GLRows.Controlling + _GLCardsRows.UniqueObjects = _GLRows.UniqueObjects + _GLCardsRows.JobNumberObjects = _GLRows.JobNumberObjects + _GLCardsRows.CostHolder = _GLRows.CostHolder + _GLCardsRows.CostPlace = _GLRows.CostPlace + + _RowIndex += 1 + _GLCardsRows.RowIndex = _RowIndex + _GLCardsRows.Note_Rows = _GLRows.NoteRows + _GLCardsRows.GLRows = _GLRows + _GLCardsRows.Save() + If I Mod 100 = 0 Then _uow.CommitChanges() + End If + Next + _uow.CommitTransaction() + + _GLCardsHeader.CreateGLRowsStatictics(_uow, _GLCardsHeader.DateFrom, _GLCardsHeader.DateTo, _GLCardsHeader.CustomersFrom, _GLCardsHeader.Oid) + + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aGLCardsPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsPrint.Execute + '-- Ez egy beégetés !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader) + + If _GLCardsHeader IsNot Nothing Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi karton")) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("GLCardsHeader=?", _GLCardsHeader), True) + Else + Throw New UserFriendlyException("Nincs beállítva a Főkönyvi karton nyomtatvány !") + End If + End If + End Sub + Private Sub aViewAttachments_Cards_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Cards.Execute + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + Dim _CustomersFrom As CustomersFrom = _GLCardsRows.CustomersForm + Dim _Customers As Customers = _GLCardsRows.Customers + Dim _DocumentNumber As String = _GLCardsRows.ConnectionInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + + End Sub + Private Sub aViewRegistry_Cards_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_Cards.Execute + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + Dim _CustomersFrom As CustomersFrom = _GLCardsRows.CustomersForm + Dim _Customers As Customers = _GLCardsRows.Customers + Dim _DocumentNumber As String = _GLCardsRows.ConnectionInfo + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aGLCardsChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsChangeParam.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)() + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + + If _GLCardsRows IsNot Nothing Then + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLCardsRows.GLRows.GLHeader.DateExecution.Year)) + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + + e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck) + End Sub + Private Sub aGLCardsChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsChangeParam.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck) + Dim _GLRows As GLRows + Dim _GLCardsRows As GLCardsRows + Dim I As Long = 0 + Dim _Controlling As Controlling + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _UniqueObjects As UniqueObjects + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + + If _GLRowsCheck.Controlling IsNot Nothing Then + _Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True) + If _Controlling.Children.Count > 0 Then + Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name)) + Exit Sub + End If + Else + _Controlling = Nothing + End If + If _GLRowsCheck.JobNumberObjects IsNot Nothing Then + _JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True) + Else + _JobNumberObjects = Nothing + End If + If _GLRowsCheck.CostHolder IsNot Nothing Then + _CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True) + Else + _CostHolder = Nothing + End If + If _GLRowsCheck.CostPlace IsNot Nothing Then + _CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True) + Else + _CostPlace = Nothing + End If + If _GLRowsCheck.UniqueObjects IsNot Nothing Then + _UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True) + Else + _UniqueObjects = Nothing + End If + If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then + _DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True) + Else + _DebitChartOfAccounts = Nothing + End If + If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then + _CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True) + Else + _CreditChartOfAccounts = Nothing + End If + + If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then + If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then + Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !") + Exit Sub + End If + End If + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLCardsRows In View.SelectedObjects + I += 1 + RaiseEvent DoWork() + _GLRows = _GLCardsRows.GLRows + If _GLRows IsNot Nothing Then + If _Controlling IsNot Nothing Then _GLRows.Controlling = _Controlling + If _JobNumberObjects IsNot Nothing Then _GLRows.JobNumberObjects = _JobNumberObjects + If _CostHolder IsNot Nothing Then _GLRows.CostHolder = _CostHolder + If _CostPlace IsNot Nothing Then _GLRows.CostPlace = _CostPlace + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + If _DebitChartOfAccounts IsNot Nothing Then _GLRows.DebitChartOfAccounts = _DebitChartOfAccounts + If _CreditChartOfAccounts IsNot Nothing Then _GLRows.CreditChartOfAccounts = _CreditChartOfAccounts + _GLRows.Save() + End If + If I Mod 100 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + Private Sub aGLCardsDivideRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsDivideRows.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + + If _GLCardsRows.GLRows IsNot Nothing Then + If _GLCardsRows.GLRows.PartnerType = ePartnerType.ePayabels Or _GLCardsRows.GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRowsDivideH.GLRows_Oid = _GLCardsRows.GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_GLCardsRows.GLRows.Customer) + _GLRowsDivideH.row_PartnerType = _GLCardsRows.GLRows.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + Else + _GLRowsDivideH.GLRows_Oid = _GLCardsRows.GLRows.Oid + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView", False, _GLRowsDivideH) + End If + End If + End Sub + Private Sub aGLCardsDivideRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsDivideRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + Dim _GLRows As GLRows = _GLCardsRows.GLRows + + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + _GLCardsRows.IsDivided = True + _GLCardsRows.Save() + _ocur.CommitChanges() + End If + End Sub + Private Sub aGLCardsMakeConnection_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLCardsMakeConnection.CustomizePopupWindowParams + '-- POPUP ---------------------------------------------------------------------------------------------------------------- + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Dim _GLCardRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.FindObject(Of PartnerConnectionInfoCleanUp_PopupWindow)(CriteriaOperator.Parse("Oid=Oid"), True) + If _PartnerConnectionInfoCleanUp_PopupWindow Is Nothing Then + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow)() + End If + + _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo = _GLCardRows.ConnectionInfo + _PartnerConnectionInfoCleanUp_PopupWindow.Save() + _onew.CommitChanges() + + noselect = True + + e.View = Application.CreateDetailView(_onew, _PartnerConnectionInfoCleanUp_PopupWindow, True) + End Sub + Private Sub aGLCardsMakeConnection_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLCardsMakeConnection.Execute + '-- Ez a kijelölt sorokat összepontozza --------------------------------------------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRows As GLCardsRows + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), PartnerConnectionInfoCleanUp_PopupWindow) + + For Each _GLCardsRows In selection + Select Case _GLCardsRows.GLRows.GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLMixed + If _GLCardsRows.GLRows IsNot Nothing Then + _GLCardsRows.GLRows.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _GLCardsRows.GLRows.Save() + _GLCardsRows.ConnectionInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _GLCardsRows.Save() + End If + End Select + Next + _ocur.CommitChanges() + View.Refresh() + noselect = False + End Sub + Private Sub aGLCardsOpenDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGLCardsOpenDocument.Execute + '-- Karton sorához tartozó eredeti dokumentum megnyitása + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + If _GLCardsRows IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_GLCardsRows.GLRows.GLHeader)) + End If + + End Sub + + Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs) + End Sub + Private Sub appearanceController_AppearanceApplied(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) + If e.AppearanceObject.Enabled = False Then + CustomizeDisabledEditorsAppearance(e) + End If + End Sub + Private Sub appearanceController_CustomApplyAppearance(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) + Dim _GLCardsRows As GLCardsRows = TryCast(e.ContextObjects(0), GLCardsRows) + If e.ItemType = "Action" Then Exit Sub + 'If _GLCardsRows IsNot Nothing Then + ' If _GLCardsRows.IsDivided = True Then + ' CType(e.Item, IAppearanceFormat).FontStyle = Drawing.FontStyle.Bold + ' CType(e.Item, IAppearanceFormat).FontColor = Drawing.Color.Red + ' e.Handled = True + ' End If + 'End If + End Sub + + Private Sub aViewPCIDetail_GLCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDetail_GLCard.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRows As GLCardsRows = TryCast(View.SelectedObjects(0), GLCardsRows) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLCardsRows.GLRows.GLHeader.CustomersFrom, _ + _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _ + _GLCardsRows.GLRows.ConnectInfo) + End Sub + + Private Sub aPCICheckDetail_GLCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckDetail_GLCard.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCardsRows As GLCardsRows + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLCardsRows In View.SelectedObjects + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _GLCardsRows.GLRows.GLHeader.CustomersFrom, _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo) + + Next + RaiseEvent FinalWork + End Sub + + Private Sub aGLCardsQueryPCI_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLCardsQueryPCI.Execute + Dim _GLCardsHeader As GLCardsHeader = TryCast(View.SelectedObjects(0), GLCardsHeader) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _uow_2 As New UnitOfWork(_onew.Session.DataLayer) + + Dim _GLCardsRowsPCI As GLCardsRowsPCI + + If _GLCardsHeader Is Nothing Then Exit Sub + + _GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(_GLCardsHeader.Oid) + + _uow.Delete(_GLCardsHeader.GLCardsRowsPCI) + _uow.CommitChanges() + + Dim _GLCardsRows_xpquery = New XPQuery(Of GLCardsRows)(_uow) + + Dim query = From _GLCardsRows In _GLCardsRows_xpquery + Where _GLCardsRows.GLCardsHeader.Oid = _GLCardsHeader.Oid + Group _GLCardsRows By _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo Into g = Group _ + Select New With {Key .Customers = Customer, + Key .PartnerType = PartnerType, + Key .ConnectInfo = ConnectInfo, + Key .DebitAmountHUF = g.Sum(Function(inv) (inv.DebitAmountHUF)), _ + Key .CreditAmountHUF = g.Sum(Function(inv) (inv.CreditAmountHUF))} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + _GLCardsRowsPCI = New GLCardsRowsPCI(_uow) + _GLCardsRowsPCI.GLCardsHeader = _GLCardsHeader + _GLCardsRowsPCI.Customers = item.Customers + _GLCardsRowsPCI.PartnerType = item.PartnerType + _GLCardsRowsPCI.ConnectInfo = item.ConnectInfo + _GLCardsRowsPCI.BallanceHUF_Card_Debit = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) + _GLCardsRowsPCI.BallanceHUF_Card_Credit = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) + If item.PartnerType = ePartnerType.ePayabels Then + _GLCardsRowsPCI.BallanceHUF_Card = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) + Else + _GLCardsRowsPCI.BallanceHUF_Card = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) + End If + + '// Folyószámlában rákeresés !!! + _GLCardsRowsPCI.BallanceHUF_PCI = Me.GetPCIBallance(_uow_2, _GLCardsHeader.CustomersFrom, item.Customers, item.PartnerType, item.ConnectInfo, _GLCardsHeader.DateTo) + _GLCardsRowsPCI.DifferentHUF = Math.Round(_GLCardsRowsPCI.BallanceHUF_Card - _GLCardsRowsPCI.BallanceHUF_PCI, 0, MidpointRounding.AwayFromZero) + + _uow.CommitChanges() + Next + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Function GetPCIBallance(_uow As UnitOfWork, _CustomersFrom As CustomersFrom, _Customers As Customers, _PartnerType As ePartnerType, _ConnectInfo As String, _DateClose As Date) As Double + Dim _SQL As String = "" + + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + + Dim _GetPCIBallance As Double = 0 + + If _Customers Is Nothing Then Exit Function + If _CustomersFrom Is Nothing Then Exit Function + + Select Case GLOBAL_SQLType + Case eSQLType.MySQL, eSQLType.MSSQL + _SQL = " SELECT SUM(t1.BallanceHUF)" + + _SQL += " FROM PCIDetail t1" + + _SQL += " WHERE t1.PartnerType=" & _PartnerType + _SQL += String.Format(" AND t1.CustomersFrom='{0}'", _CustomersFrom.Oid) + _SQL += String.Format(" AND t1.Customers='{0}'", _Customers.Oid) + _SQL += String.Format(" AND t1.ConnectInfo='{0}'", _ConnectInfo) + _SQL += String.Format(" AND t1.DateExecution<'{0}-{1}-{2}'", _DateClose.AddDays(1).Year, _DateClose.AddDays(1).Month, _DateClose.AddDays(1).Day) + + Case eSQLType.PostgreSQL + + End Select + + _SelectedData = _uow.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + _GetPCIBallance = _SelectStatementResultRow.Values(0) + Next + End If + + Return Math.Round(_GetPCIBallance, 0, MidpointRounding.AwayFromZero) + + End Function + + Private Sub aViewPCIDGroup_GLCrads_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLCrads.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _ + _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _ + _GLCardsRowsPCI.ConnectInfo) + End Sub + + Private Sub aViewPCIDGroup_GLDetails_GLCards_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails_GLCards.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI) + + ViewPDCI.ViewGLDetails(_onew, Application, e, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _ + _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _ + _GLCardsRowsPCI.ConnectInfo) + End Sub + + Private Sub aViewAttachments_GLCards_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewAttachments_GLCards.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI) + + ViewAttachments.ViewAttachments(_ocur, Frame, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _ + _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.ConnectInfo, _ + "") + End Sub + + Private Sub aPCICheckDetail_GLCardsRowsPCI_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheckDetail_GLCardsRowsPCI.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCardsRowsPCI As GLCardsRowsPCI = TryCast(View.SelectedObjects(0), GLCardsRowsPCI) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLCardsRowsPCI In View.SelectedObjects + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo) + + Next + RaiseEvent FinalWork + End Sub + + Private Sub aGLCardsQueryABRQuery_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGLCardsQueryABRQuery.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _GLCardsHeader As GLCardsHeader = _uow.GetObjectByKey(Of GLCardsHeader)(TryCast(View.SelectedObjects(0), GLCardsHeader).Oid) + Dim _GLAccounts As GLAccounts = Nothing + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = Nothing + Dim _ABRQueryRows As ABRQueryRows = Nothing + Dim _BallanceHUF As Double = 0 + Dim _DiffDay As Long = 0 + Dim i As Long = 0 + + _uow.Delete(_GLCardsHeader.ABRQueryRowsDetail) + _uow.Delete(_GLCardsHeader.ABRQueryRows) + + Dim _GLCardsRows_xpquery = New XPQuery(Of GLCardsRows)(_uow) + + Dim query = From _GLCardsRows In _GLCardsRows_xpquery + Where _GLCardsRows.GLCardsHeader.Oid = _GLCardsHeader.Oid + Group _GLCardsRows By _GLCardsRows.GLRows.Customer, _GLCardsRows.GLRows.PartnerType, _GLCardsRows.GLRows.ConnectInfo Into g = Group _ + Select New With {Key .Customers = Customer, + Key .PartnerType = PartnerType, + Key .ConnectInfo = ConnectInfo, + Key .DebitAmountHUF = g.Sum(Function(inv) (inv.DebitAmountHUF)), _ + Key .CreditAmountHUF = g.Sum(Function(inv) (inv.CreditAmountHUF))} + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + + If item.PartnerType = ePartnerType.ePayabels Then + _BallanceHUF = Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) + Else + _BallanceHUF = Math.Round(item.DebitAmountHUF, 0, MidpointRounding.AwayFromZero) - Math.Round(item.CreditAmountHUF, 0, MidpointRounding.AwayFromZero) + End If + + If _BallanceHUF <> 0 Then + _ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow) + _ABRQueryRowsDetail.GLCardsHeader = _GLCardsHeader + _ABRQueryRowsDetail.BallanceHUF = _BallanceHUF + _ABRQueryRowsDetail.CustomersFrom = _GLCardsHeader.CustomersFrom + _ABRQueryRowsDetail.Customers = item.Customers + _ABRQueryRowsDetail.PartnerType = item.PartnerType + _ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo + + _GLAccounts = _uow.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=?", _GLCardsHeader.CustomersFrom, item.Customers, item.PartnerType, item.ConnectInfo)) + If _GLAccounts Is Nothing Then + '// Nyitott P.Ü. teljesítés !!! + _ABRQueryRowsDetail.D00_OpenLiquidHUF = _BallanceHUF + Else + _ABRQueryRowsDetail.AmountHUF = _GLAccounts.AmountHUFBrutto + _ABRQueryRowsDetail.DateExecution = _GLAccounts.DateExecution + _ABRQueryRowsDetail.DatePayment = _GLAccounts.DatePayment + + If _GLCardsHeader.DateTo.Date <= GetSQLTime(_onew.Session).Date Then + _DiffDay = DateDiff(DateInterval.Day, _GLAccounts.DatePayment.Date, _GLCardsHeader.DateTo.Date) + Else + _DiffDay = DateDiff(DateInterval.Day, _GLAccounts.DatePayment.Date, GetSQLTime(_uow).Date) + End If + + _ABRQueryRowsDetail.DelayedDay = _DiffDay + Select Case _DiffDay + Case Is <= 0 + _ABRQueryRowsDetail.D01_NotExpiredHUF = _BallanceHUF + Case 1 To 15 + _ABRQueryRowsDetail.D02_001_015HUF = _BallanceHUF + Case 16 To 30 + _ABRQueryRowsDetail.D03_016_030HUF = _BallanceHUF + Case 31 To 60 + _ABRQueryRowsDetail.D04_031_060HUF = _BallanceHUF + Case 61 To 90 + _ABRQueryRowsDetail.D05_061_090HUF = _BallanceHUF + Case 91 To 150 + _ABRQueryRowsDetail.D06_091_150HUF = _BallanceHUF + Case 151 To 365 + _ABRQueryRowsDetail.D07_151_365HUF = _BallanceHUF + Case Is > 365 + _ABRQueryRowsDetail.D08_OverOneYearHUF = _BallanceHUF + End Select + End If + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + i = 0 + Dim PCI2 As New XPQuery(Of ABRQueryRowsDetail)(_uow) + Dim query2 = From _PCI2 In PCI2 + Where _PCI2.GLCardsHeader Is _GLCardsHeader + Group _PCI2 By + _PCI2.CustomersFrom, _ + _PCI2.Customers, _ + _PCI2.PartnerType, _ + _PCI2.CurrencyName_Account Into g = Group + Order By CustomersFrom, Customers, PartnerType, CurrencyName_Account + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, + Key .CurrencyName_Account = CurrencyName_Account, + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), + Key .D00_OpenLiquidDEV = g.Sum(Function(inv) inv.D00_OpenLiquidDEV), + Key .D00_OpenLiquidHUF = g.Sum(Function(inv) inv.D00_OpenLiquidHUF), + Key .D02_001_015DEV = g.Sum(Function(inv) inv.D02_001_015DEV), + Key .D02_001_015HUF = g.Sum(Function(inv) inv.D02_001_015HUF), + Key .D03_016_030DEV = g.Sum(Function(inv) inv.D03_016_030DEV), + Key .D03_016_030HUF = g.Sum(Function(inv) inv.D03_016_030HUF), + Key .D04_031_060DEV = g.Sum(Function(inv) inv.D04_031_060DEV), + Key .D04_031_060HUF = g.Sum(Function(inv) inv.D04_031_060HUF), + Key .D05_061_090DEV = g.Sum(Function(inv) inv.D05_061_090DEV), + Key .D05_061_090HUF = g.Sum(Function(inv) inv.D05_061_090HUF), + Key .D06_091_150DEV = g.Sum(Function(inv) inv.D06_091_150DEV), + Key .D06_091_150HUF = g.Sum(Function(inv) inv.D06_091_150HUF), + Key .D07_151_365DEV = g.Sum(Function(inv) inv.D07_151_365DEV), + Key .D07_151_365HUF = g.Sum(Function(inv) inv.D07_151_365HUF), + Key .D01_NotExpiredHUF = g.Sum(Function(inv) inv.D01_NotExpiredHUF), + Key .D01_NotExpiredDEV = g.Sum(Function(inv) inv.D01_NotExpiredDEV), + Key .D08_OverOneYearHUF = g.Sum(Function(inv) inv.D08_OverOneYearHUF), + Key .D08_OverOneYearDEV = g.Sum(Function(inv) inv.D08_OverOneYearDEV)} + RaiseEvent InitWork(1, 1, query2.Count) + + For Each item In query2 + i += 1 + RaiseEvent DoWork() + _ABRQueryRows = New ABRQueryRows(_uow) + _ABRQueryRows.GLCardsHeader = _GLCardsHeader + _ABRQueryRows.BallanceHUF = item.BallanceHUF + _ABRQueryRows.CurrencyName_Account = item.CurrencyName_Account + _ABRQueryRows.Customers = item.Customers + _ABRQueryRows.CustomersFrom = item.CustomersFrom + _ABRQueryRows.PartnerType = item.PartnerType + + _ABRQueryRows.D00_OpenLiquidHUF = item.D00_OpenLiquidHUF + _ABRQueryRows.D01_NotExpiredHUF = item.D01_NotExpiredHUF + _ABRQueryRows.D02_001_015HUF = item.D02_001_015HUF + _ABRQueryRows.D03_016_030HUF = item.D03_016_030HUF + _ABRQueryRows.D04_031_060HUF = item.D04_031_060HUF + _ABRQueryRows.D05_061_090HUF = item.D05_061_090HUF + _ABRQueryRows.D06_091_150HUF = item.D06_091_150HUF + _ABRQueryRows.D07_151_365HUF = item.D07_151_365HUF + _ABRQueryRows.D08_OverOneYearHUF = item.D08_OverOneYearHUF + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + End Sub + + Private Sub aGenerateOpenClosePCIRecord_GLCards_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord_GLCards.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)() + + e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup) + End Sub + + Private Sub aGenerateOpenClosePCIRecord_GLCards_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord_GLCards.Execute + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCardsRowsPCI As GLCardsRowsPCI + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _GLCardsRowsPCI In View.SelectedObjects + RaiseEvent DoWork() + Frame.GetController(Of GLAccountsVC).MakeOpenClosePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose, _GLAccountsOpenClosePCIPopup.GLRowsTypeSelect) + Next + RaiseEvent FinalWork + End Sub + + Private Sub aGenerateOpenClosePCIRecord_Storno_GLCards_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aGenerateOpenClosePCIRecord_Storno_GLCards.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = _onew.CreateObject(Of GLAccountsOpenClosePCIPopup)() + + e.View = Application.CreateDetailView(_onew, "GLAccountsOpenClosePCIPopup_DetailView", True, _GLAccountsOpenClosePCIPopup) + End Sub + + Private Sub aGenerateOpenClosePCIRecord_Storno_GLCards_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aGenerateOpenClosePCIRecord_Storno_GLCards.Execute + Dim _GLAccountsOpenClosePCIPopup As GLAccountsOpenClosePCIPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), GLAccountsOpenClosePCIPopup) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLCardsRowsPCI As GLCardsRowsPCI + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _GLCardsRowsPCI In View.SelectedObjects + RaiseEvent DoWork() + Frame.GetController(Of GLAccountsVC).RemoveOpenClosePCI(_uow, _GLCardsRowsPCI.GLCardsHeader.CustomersFrom, _GLCardsRowsPCI.Customers, _GLCardsRowsPCI.PartnerType, _GLCardsRowsPCI.ConnectInfo, _GLAccountsOpenClosePCIPopup.YearClose) + Next + RaiseEvent FinalWork + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsHeader.vb new file mode 100644 index 0000000..ecee59c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsHeader.vb @@ -0,0 +1,238 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ + _ +Public Class GLCardsHeader + Inherits BaseObject + Private _ShortName As String 'Lekérdezés rövid megnevezése + Private _DateFrom As Date + Private _DateTo As Date + Private _CustomersFrom As CustomersFrom + Private _ChartOfAccounts As ChartOfAccounts + Private _IsOpen As Boolean = True + Private _IsClose As Boolean = False + + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + Session.Delete(Me.GLCardsRows) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateFrom = CDate(Year(Now) & "/01/01") + DateTo = Now + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property DateFrom() As Date + Get + Return _DateFrom + End Get + Set(ByVal value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + _ + Property DateTo() As Date + Get + Return _DateTo + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property ChartOfAccount() As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccount", _ChartOfAccounts, value) + End Set + End Property + Property IsOpen As Boolean + Get + Return _IsOpen + End Get + Set(value As Boolean) + SetPropertyValue("IsOpen", _IsOpen, value) + End Set + End Property + Property IsClose As Boolean + Get + Return _IsClose + End Get + Set(value As Boolean) + SetPropertyValue("IsClose", _IsClose, value) + End Set + End Property + '-- XP collections + _ + ReadOnly Property GLCardsRows() As XPCollection(Of GLCardsRows) + Get + Return GetCollection(Of GLCardsRows)("GLCardsRows") + End Get + End Property + _ + ReadOnly Property GLCardsRowsPCI() As XPCollection(Of GLCardsRowsPCI) + Get + Return GetCollection(Of GLCardsRowsPCI)("GLCardsRowsPCI") + End Get + End Property + _ + ReadOnly Property GLRowsStatictics As XPCollection(Of GLRowsStatistics) + Get + If Session.IsNewObject(Me) Then + Return Nothing + Else + Return New XPCollection(Of GLRowsStatistics)(Session, CriteriaOperator.Parse("MasterKey=?", Me.Oid)) + End If + End Get + End Property + _ + ReadOnly Property GLCardsRowsPivot As XPCollection(Of GLCardsRows) + Get + Return New XPCollection(Of GLCardsRows)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me)) + End Get + End Property + + ReadOnly Property ABRQueryRows As XPCollection(Of ABRQueryRows) + Get + Return New XPCollection(Of ABRQueryRows)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me)) + End Get + End Property + ReadOnly Property ABRQueryRowsDetail As XPCollection(Of ABRQueryRowsDetail) + Get + Return New XPCollection(Of ABRQueryRowsDetail)(Session, CriteriaOperator.Parse("GLCardsHeader=?", Me)) + End Get + End Property + + _ + ReadOnly Property IsCustomersGLParameters As Boolean + Get + If Me.ChartOfAccount Is Nothing Then + Return False + Exit Property + Else + Dim _IsC As Boolean = False + Dim _CustomersGLParametersYear_Collection As New XPCollection(Of CustomersGLParametersYear)(Session) + Dim _CustomersGLParametersYear As CustomersGLParametersYear + + For Each _CustomersGLParametersYear In _CustomersGLParametersYear_Collection + If _CustomersGLParametersYear.ChartOfAccountsIn IsNot Nothing Then + If _CustomersGLParametersYear.ChartOfAccountsIn.Oid = Me.ChartOfAccount.Oid Then + Return True + Exit Property + End If + End If + If _CustomersGLParametersYear.ChartOfAccountsOut IsNot Nothing Then + If _CustomersGLParametersYear.ChartOfAccountsOut.Oid = Me.ChartOfAccount.Oid Then + Return True + Exit Property + End If + End If + If _CustomersGLParametersYear.ChartOfAccountsNo IsNot Nothing Then + If _CustomersGLParametersYear.ChartOfAccountsNo.Oid = Me.ChartOfAccount.Oid Then + Return True + Exit Property + End If + End If + Next + End If + End Get + End Property + '-- Szűrők + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + + Public Sub CreateGLRowsStatictics(_uow As UnitOfWork, _DateFrom As Date, _DateTo As Date, _CustomersFrom As CustomersFrom, _MasterKey As Guid) + '// Előkészít egy GLRowsStatictics XPCollection azokra a tételekre, amelyek nincsenek feladva ezen időszakra ! + Dim _GLRowsStatistics As GLRowsStatistics + Dim _GLRowsStatistics_Collection As New XPCollection(Of GLRowsStatistics)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey)) + _uow.Delete(_GLRowsStatistics_Collection) + + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid = ? And GetDate(F_DateExecution) Between(?, ?) And RegistryType.RegistryMainType = 'eAccount' And F_GLAccounts Is Null And IsStorno = False", _CustomersFrom.Oid, _DateFrom.Date, _DateTo.Date)) + Dim _RegistryHeader As RegistryHeader + + For Each _RegistryHeader In _RegistryHeader_Collection + _GLRowsStatistics = New GLRowsStatistics(_uow) + _GLRowsStatistics.MasterKey = _MasterKey + _GLRowsStatistics.RegistryHeader = _RegistryHeader + Next + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase <> 'eCustomRate' And getdate(DateExecution) Between(?, ?) And CustomersFrom.Oid = ? And GLAccounts Is Null", _DateFrom.Date, _DateTo.Date, _CustomersFrom.Oid)) + Dim _InvoiceHeader As InvoiceHeader + + For Each _InvoiceHeader In _InvoiceHeader_Collection + _GLRowsStatistics = New GLRowsStatistics(_uow) + _GLRowsStatistics.MasterKey = _MasterKey + _GLRowsStatistics.InvoiceHeader = _InvoiceHeader + Next + _uow.CommitChanges() + + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRows.vb new file mode 100644 index 0000000..066e373 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRows.vb @@ -0,0 +1,340 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ + MainAppearance", Criteria:="1=1", AppearanceItemType:="ViewItem", Context:="ListView", TargetItems:="*")> _ +Public Class GLCardsRows + Inherits BaseObject + Private _GLCardsHeader + Private _CustomersFrom As CustomersFrom + Private _RowIndex As Long + Private _Customers As Customers + Private _ConnectInfo As String + Private _DocumentNumber As String + Private _DateExecution As Date + Private _Note_Rows As String + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + + Private _DebitAmountDEV As Double 'KI kell dolgozni !!! + Private _CreditAmountDEV As Double + Private _DebitAmountDEV2 As Double + Private _CreditAmountDEV2 As Double + + Private _CurrencyRate As Double + Private _CurrencyRate2 As Double + + Private _DebitRAmountHUF As Double + Private _CreditRAmountHUF As Double + Private _BallanceRulliringHUF As Double 'Göngyölt egyenleg + Private _BallanceRulliringDEV As Double 'Göngyölt egyenleg (DEV) + Private _AccountNumberFrom As String + Private _ShortNameFrom As String + Private _AccountNumberTo As String + Private _ShortNameTo As String + Private _UniqueObjects As UniqueObjects + Private _Controlling As Controlling + Private _JobNumberObjects As JobNumberObjects + Private _CostPlace As CostPlace + Private _CostHolder As CostHolder + Private _GLRows As GLRows + Private _IsDivided As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + _ + Property GLCardsHeader() As GLCardsHeader + Get + Return _GLCardsHeader + End Get + Set(ByVal value As GLCardsHeader) + SetPropertyValue("GLCardsHeader", _GLCardsHeader, value) + End Set + End Property + Property CustomersForm() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersForm", _CustomersFrom, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ConnectionInfo() As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectionInfo", _ConnectInfo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DateExecution() As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property Note_Rows() As String + Get + Return _Note_Rows + End Get + Set(ByVal value As String) + SetPropertyValue("Note_Rows", _Note_Rows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If GLRows IsNot Nothing Then + If _GLRows.NoteRows <> value Then + _GLRows.NoteRows = value + End If + End If + End If + End Set + End Property + Property DebitAmountHUF() As Double + Get + Return _DebitAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value) + End Set + End Property + Property CreditAmountHUF() As Double + Get + Return _CreditAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value) + End Set + End Property + Property DebitRAmountHUF() As Double + Get + Return _DebitRAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitRAmountHUF", _DebitRAmountHUF, value) + End Set + End Property + Property CreditRAmountHUF() As Double + Get + Return _CreditRAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditRAmountHUF", _CreditRAmountHUF, value) + End Set + End Property + Property BallanceRulliringHUF As Double + Get + Return _BallanceRulliringHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceRulliringHUF", _BallanceRulliringHUF, value) + End Set + End Property + Property BallanceRulliringDEV As Double + Get + Return _BallanceRulliringDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceRulliringDEV", _BallanceRulliringDEV, value) + End Set + End Property + Property AccountNumberFrom() As String + Get + Return _AccountNumberFrom + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumberFrom", _AccountNumberFrom, value) + End Set + End Property + _ + Property ShortNameFrom() As String + Get + Return _ShortNameFrom + End Get + Set(ByVal value As String) + SetPropertyValue("ShortNameFrom", _ShortNameFrom, value) + End Set + End Property + Property AccountNumberTo() As String + Get + Return _AccountNumberTo + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumberTo", _AccountNumberTo, value) + End Set + End Property + _ + Property ShortNameTo() As String + Get + Return _ShortNameTo + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortNameTo, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("controlling", _Controlling, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + _ + Property GLRows As GLRows + Get + Return _GLRows + End Get + Set(value As GLRows) + SetPropertyValue("GLRows", _GLRows, value) + End Set + End Property + _ + Property IsDivided As Boolean + Get + Return _IsDivided + End Get + Set(value As Boolean) + SetPropertyValue("IsDivided", _IsDivided, value) + End Set + End Property + + Property DebitAmountDEV As Double + Get + Return _DebitAmountDEV + End Get + Set(value As Double) + SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value) + End Set + End Property + Property CreditAmountDEV As Double + Get + Return _CreditAmountDEV + End Get + Set(value As Double) + SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value) + End Set + End Property + Property DebitAmountDEV2 As Double + Get + Return _DebitAmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("DebitAmountDEV2", _DebitAmountDEV2, value) + End Set + End Property + Property CreditAmountDEV2 As Double + Get + Return _CreditAmountDEV2 + End Get + Set(value As Double) + SetPropertyValue("CreditAmountDEV2", _CreditAmountDEV2, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property CurrencyRate2 As Double + Get + Return _CurrencyRate2 + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate2", _CurrencyRate2, value) + End Set + End Property + + ReadOnly Property BallanceHUF As Double + Get + Return DebitAmountHUF - CreditAmountHUF + End Get + End Property + ReadOnly Property BallanceDEV As Double + Get + Return DebitAmountDEV - CreditAmountDEV + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRowsPCI.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRowsPCI.vb new file mode 100644 index 0000000..e682fc9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRowsPCI.vb @@ -0,0 +1,132 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class GLCardsRowsPCI ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + Private _GLCardsHeader As GLCardsHeader + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _BallanceHUF_Card_Debit As Double + Private _BallanceHUF_Card_Credit As Double + Private _BallanceHUF_Card As Double + Private _BallanceHUF_PCI As Double + Private _DifferentHUF As Double + + _ + Property GLCardsHeader() As GLCardsHeader + Get + Return _GLCardsHeader + End Get + Set(ByVal value As GLCardsHeader) + SetPropertyValue("GLCardsHeader", _GLCardsHeader, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property BallanceHUF_Card_Debit As Double + Get + Return _BallanceHUF_Card_Debit + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_Card_Debit", _BallanceHUF_Card_Debit, value) + End Set + End Property + Property BallanceHUF_Card_Credit As Double + Get + Return _BallanceHUF_Card_Credit + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_Card_Credit", _BallanceHUF_Card_Credit, value) + End Set + End Property + Property BallanceHUF_Card As Double + Get + Return _BallanceHUF_Card + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_Card", _BallanceHUF_Card, value) + End Set + End Property + Property BallanceHUF_PCI As Double + Get + Return _BallanceHUF_PCI + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_PCI", _BallanceHUF_PCI, value) + End Set + End Property + Property DifferentHUF As Double + Get + Return _DifferentHUF + End Get + Set(value As Double) + SetPropertyValue("DifferentHUF", _DifferentHUF, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReport.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReport.vb new file mode 100644 index 0000000..fe0bd12 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReport.vb @@ -0,0 +1,416 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors + +'-- Fõkönyvi kivonat +'-- Fõkönyvi kimutatás részletes 2 féle nézettel (Grid, PivotGrid) +Public Enum eGLReportType + GeneralLedger = 0 + Controlling = 1 +End Enum +Public Enum eGLReportDashboardType + eNoDashboard = 0 + eDashboard1 = 1 + eDashboard2 = 2 + eDashboard3 = 3 + eDashboard4 = 4 +End Enum +Public Enum eGLReportOwner + ePublic = 0 + ePrivate = 1 +End Enum +Public Enum eGLReportState + eInProgress + eReady +End Enum +Public Enum eDateExecutionMode + eHeader = 0 + eRows = 1 +End Enum +Public Enum eGLReportCustomViewNumber + eNotSet = 0 + e01 = 1 + e02 = 2 + e03 = 3 + e04 = 4 + e05 = 5 + e06 = 6 + e07 = 7 + e08 = 8 + e09 = 9 + e10 = 10 + e11 = 11 + e12 = 12 + e13 = 13 + e14 = 14 + e15 = 15 + e16 = 16 + e17 = 17 + e18 = 18 + e19 = 19 + e20 = 20 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class GLReport + Inherits BaseObject + + Private _GLReportDashboardType As eGLReportDashboardType 'Report milyen mûszerfalra menjen fel + Private _ReportType As eGLReportType 'Report tipusa + Private _CustomersFrom As CustomersFrom 'Saját cég + + Private _GroupName1 As String 'I. csoportosítás + Private _GroupName2 As String ' II. Csoportosítás + Private _ShortName As String 'Report megnevezése + Private _FromDate As Date 'Dátumtól + Private _ToDate As Date 'Dátumig + Private _ObjectCreated As Date 'Létrehozva + Private _UserCreated As User 'Létrehozta + + Private _IsInvoice As Boolean = True + Private _IsRegistry As Boolean = True + Private _IsContract As Boolean = True + + Private _IsCustomersFrom As Boolean = False 'True akkor cégfüggetlen lekérdezés + Private _GLReportState As eGLReportState = eGLReportState.eInProgress + Private _GLReportOwner As eGLReportOwner = eGLReportOwner.ePrivate + Private _GLReportDateExecutionMode As eDateExecutionMode = eDateExecutionMode.eHeader + + Private _VariantSelectedItemID As String + Private _Criteria As String 'További kritéria + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.IsContract = True + Me.IsInvoice = True + Me.IsRegistry = True + Me.FromDate = FirstDayOfYear(GetSQLTime(Session)) + Me.ToDate = LastDayOfYear(GetSQLTime(Session)) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + Select Case GLOBAL_SQLType + + Case eSQLType.PostgreSQL + Session.ExecuteNonQuery("delete from ""GLReportRowsCostHolder"" where ""GLReport""='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from ""GLReportRows"" where ""GLReport""='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from ""GLReportCustomersFrom"" where ""GLReport""='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from ""GLReportChartOfAccounts"" where ""GLReport""='" & Me.Oid.ToString & "'") + Case Else + Session.ExecuteNonQuery("delete from GLReportRowsCostHolder where GLReport='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from GLReportRows where GLReport='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from GLReportCustomersFrom where GLReport='" & Me.Oid.ToString & "'") + Session.ExecuteNonQuery("delete from GLReportChartOfAccounts where GLReport='" & Me.Oid.ToString & "'") + End Select + End Sub + Property GLReportDashboardType As eGLReportDashboardType + Get + Return _GLReportDashboardType + End Get + Set(value As eGLReportDashboardType) + SetPropertyValue("GLReportDashboardType", _GLReportDashboardType, value) + End Set + End Property + _ + Property ReportType As eGLReportType + Get + Return _ReportType + End Get + Set(value As eGLReportType) + SetPropertyValue("ReportType", _ReportType, value) + End Set + End Property + + Property GroupName1 As String + Get + Return _GroupName1 + End Get + Set(value As String) + SetPropertyValue("GroupName1", _GroupName1, value) + End Set + End Property + Property GroupName2 As String + Get + Return _GroupName2 + End Get + Set(value As String) + SetPropertyValue("GroupName2", _GroupName2, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property FromDate As Date + Get + Return _FromDate + End Get + Set(value As Date) + SetPropertyValue("FromDate", _FromDate, value) + End Set + End Property + Property ToDate As Date + Get + Return _ToDate + End Get + Set(value As Date) + SetPropertyValue("ToDate", _ToDate, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property IsInvoice As Boolean + Get + Return _IsInvoice + End Get + Set(value As Boolean) + SetPropertyValue("IsInvoice", _IsInvoice, value) + End Set + End Property + Property IsRegistry As Boolean + Get + Return _IsRegistry + End Get + Set(value As Boolean) + SetPropertyValue("IsRegistry", _IsRegistry, value) + End Set + End Property + Property IsContract As Boolean + Get + Return _IsContract + End Get + Set(value As Boolean) + SetPropertyValue("IsContract", _IsContract, value) + End Set + End Property + _ + Property IsCustomersFrom As Boolean + Get + Return _IsCustomersFrom + End Get + Set(value As Boolean) + SetPropertyValue("IsCustomersFrom", _IsCustomersFrom, value) + End Set + End Property + + _ + Property VariantSelectedItemID As String + Get + Return _VariantSelectedItemID + End Get + Set(value As String) + SetPropertyValue("VariantSelectedItemID", _VariantSelectedItemID, value) + End Set + End Property + Property GLReportState As eGLReportState + Get + Return _GLReportState + End Get + Set(value As eGLReportState) + SetPropertyValue("GLReportState", _GLReportState, value) + End Set + End Property + Property GLReportOwner As eGLReportOwner + Get + Return _GLReportOwner + End Get + Set(value As eGLReportOwner) + SetPropertyValue("GLReportOwner", _GLReportOwner, value) + End Set + End Property + Property GLReportDateExecutionMode As eDateExecutionMode + Get + Return _GLReportDateExecutionMode + End Get + Set(value As eDateExecutionMode) + SetPropertyValue("GLReportDateExecutionMode", _GLReportDateExecutionMode, value) + End Set + End Property + + _ + Property Criteria As String + Get + Return _Criteria + End Get + Set(value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + _ + Public Property ObjectType() As Type + Get + Return GetType(GLRows) + End Get + Set(ByVal value As Type) + + End Set + End Property + _ + ReadOnly Property InPublic As Boolean + Get + If Session.IsNewObject(Me) Then + Return False + Else + Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _GLReportUsers As GLReportUsers + Dim _InPublic As Boolean = True + For Each _GLReportUsers In Me.GLReportUsers + If _GLReportUsers.User.Oid = _User.Oid Then + _InPublic = False + End If + Next + If _UserCreated.Oid = _User.Oid Then + _InPublic = False + End If + Return _InPublic + End If + End Get + End Property + + '//XPCollections + _ + ReadOnly Property GLReportRows As XPCollection(Of GLReportRows) + Get + Return GetCollection(Of GLReportRows)("GLReportRows") + End Get + End Property + _ + ReadOnly Property GLReportRowsCostHolder As XPCollection(Of GLReportRowsCostHolder) + Get + Dim _GLReportRowsCostHolder_Collection As New XPCollection(Of GLReportRowsCostHolder)(Session, CriteriaOperator.Parse("GLReport=?", Me)) + Return _GLReportRowsCostHolder_Collection + End Get + End Property + + + '//Szűrőfeltételek + _ + ReadOnly Property GLReportCustomersFrom As XPCollection(Of GLReportCustomersFrom) + Get + Return GetCollection(Of GLReportCustomersFrom)("GLReportCustomersFrom") + End Get + End Property + _ + _ + ReadOnly Property GLReportChartOfAccounts As XPCollection(Of GLReportChartOfAccounts) + Get + Return GetCollection(Of GLReportChartOfAccounts)("GLReportChartOfAccounts") + End Get + End Property + _ + ReadOnly Property QueryStatistics As XPCollection(Of QueryStatistics) + Get + Return New XPCollection(Of QueryStatistics)(Session, CriteriaOperator.Parse("ObjectName=? and ObjectKey=?", "GLReport", Me.Oid)) + End Get + End Property + _ + _ + ReadOnly Property GLReportUsers As XPCollection(Of GLReportUsers) + Get + Return GetCollection(Of GLReportUsers)("GLReportUsers") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowHeader.vb new file mode 100644 index 0000000..bcd157e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowHeader.vb @@ -0,0 +1,133 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors + + _ + _ +Public Class GLReportCashflowHeader + Inherits BaseObject + + Private _GLReportDashboardType As eGLReportDashboardType + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _FromDate As Date + Private _ToDate As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _IsCustomersFrom As Boolean = False 'True akkor cgfggetlen lekrdezs + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + Me.FromDate = FirstDayOfYear(GetSQLTime(Session)) + Me.ToDate = LastDayOfYear(GetSQLTime(Session)) + End Sub + + Property GLReportDashboardType As eGLReportDashboardType + Get + Return _GLReportDashboardType + End Get + Set(value As eGLReportDashboardType) + SetPropertyValue("GLReportDashboardType", _GLReportDashboardType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property FromDate As Date + Get + Return _FromDate + End Get + Set(value As Date) + SetPropertyValue("FromDate", _FromDate, value) + End Set + End Property + Property ToDate As Date + Get + Return _ToDate + End Get + Set(value As Date) + SetPropertyValue("ToDate", _ToDate, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property IsCustomersFrom As Boolean + Get + Return _IsCustomersFrom + End Get + Set(value As Boolean) + SetPropertyValue("IsCustomersFrom", _IsCustomersFrom, value) + End Set + End Property + + _ + ReadOnly Property GLReportCashflowRows As XPCollection(Of GLReportCashflowRows) + Get + Return GetCollection(Of GLReportCashflowRows)("GLReportCashflowRows") + End Get + End Property + _ + ReadOnly Property QueryStatistics As XPCollection(Of QueryStatistics) + Get + Return New XPCollection(Of QueryStatistics)(Session, CriteriaOperator.Parse("ObjectName=? and ObjectKey=?", "GLReportCashflowHeader", Me.Oid)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowRows.vb new file mode 100644 index 0000000..b77417e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowRows.vb @@ -0,0 +1,242 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class GLReportCashflowRows + Inherits BaseObject + Private _GLReportRowsState As eGLReportRowsState + Private _GLReportCashflowHeader As GLReportCashflowHeader + Private _ChartOfAccounts As ChartOfAccounts + Private _Controlling As Controlling + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _UniqueObjects As UniqueObjects + Private _JobNumberObjects As JobNumberObjects + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _ConnectInfo As String + Private _DateExecution_Y As String + Private _DateExecution_Q As String + Private _DateExecution_M As String + Private _DateExecution_W As String + Private _DateExecution As Date + Private _LiquidAssets As LiquidAssets + Private _AmountHUF_Open As Double + Private _AmountDEV_Open As Double + Private _InAmountHUF As Double = 0 'Pnztr miatt befizets + Private _OutAmountHUF As Double = 0 'Pnztr miatt kifizets + Private _InAmountDEV As Double = 0 'Pnztr miatt befizets + Private _OutAmountDEV As Double = 0 'Pnztr miatt kifizets + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property GLReportRowsState As eGLReportRowsState + Get + Return _GLReportRowsState + End Get + Set(value As eGLReportRowsState) + SetPropertyValue("GLReportRowsState", _GLReportRowsState, value) + End Set + End Property + _ + Property GLReportCashflowHeader As GLReportCashflowHeader + Get + Return _GLReportCashflowHeader + End Get + Set(value As GLReportCashflowHeader) + SetPropertyValue("GLReportCashflowHeader", _GLReportCashflowHeader, value) + End Set + End Property + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DateExecution_Y As String + Get + Return _DateExecution_Y + End Get + Set(value As String) + SetPropertyValue("DateExecution_Y", _DateExecution_Y, value) + End Set + End Property + Property DateExecution_Q As String + Get + Return _DateExecution_Q + End Get + Set(value As String) + SetPropertyValue("DateExecution_Q", _DateExecution_Q, value) + End Set + End Property + Property DateExecution_M As String + Get + Return _DateExecution_M + End Get + Set(value As String) + SetPropertyValue("DateExecution_M", _DateExecution_M, value) + End Set + End Property + Property DateExecution_W As String + Get + Return _DateExecution_W + End Get + Set(value As String) + SetPropertyValue("DateExecution_W", _DateExecution_W, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property AmountHUF_Open As Double + Get + Return _AmountHUF_Open + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Open", _AmountHUF_Open, value) + End Set + End Property + Property AmountDEV_Open As Double + Get + Return _AmountDEV_Open + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Open", _AmountDEV_Open, value) + End Set + End Property + Property InAmountHUF As Double + Get + Return _InAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("InAmountHUF", _InAmountHUF, value) + End Set + End Property + Property OutAmountHUF As Double + Get + Return _OutAmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("OutAmountHUF", _OutAmountHUF, value) + End Set + End Property + Property InAmountDEV As Double + Get + Return _InAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("InAmountDEV", _InAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property + Property OutAmountDEV As Double + Get + Return _OutAmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("OutAmountDEV", _OutAmountDEV, Math.Round(value, 4, MidpointRounding.AwayFromZero)) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb new file mode 100644 index 0000000..ef42049 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.Designer.vb @@ -0,0 +1,65 @@ +Partial Class GLReportCashflowVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateGLReportCashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_Cashflow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateGLReportCashflow + ' + Me.aGenerateGLReportCashflow.Caption = "aGenerateGLReportCashflow" + Me.aGenerateGLReportCashflow.Category = "View" + Me.aGenerateGLReportCashflow.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateGLReportCashflow.Id = "aGenerateGLReportCashflow" + Me.aGenerateGLReportCashflow.ImageName = "stopwatch_run" + Me.aGenerateGLReportCashflow.Shortcut = Nothing + Me.aGenerateGLReportCashflow.Tag = Nothing + Me.aGenerateGLReportCashflow.TargetObjectsCriteria = Nothing + Me.aGenerateGLReportCashflow.TargetViewId = "" + Me.aGenerateGLReportCashflow.ToolTip = Nothing + Me.aGenerateGLReportCashflow.TypeOfView = Nothing + ' + 'aViewAttachments_Cashflow + ' + Me.aViewAttachments_Cashflow.Caption = "View attachments" + Me.aViewAttachments_Cashflow.ConfirmationMessage = Nothing + Me.aViewAttachments_Cashflow.Id = "aViewAttachments_Cashflow" + Me.aViewAttachments_Cashflow.ImageName = "printer_view" + Me.aViewAttachments_Cashflow.Shortcut = Nothing + Me.aViewAttachments_Cashflow.Tag = Nothing + Me.aViewAttachments_Cashflow.TargetObjectsCriteria = Nothing + Me.aViewAttachments_Cashflow.TargetObjectType = GetType(SISBusiness.[Module].GLReportCashflowRows) + Me.aViewAttachments_Cashflow.TargetViewId = "" + Me.aViewAttachments_Cashflow.ToolTip = Nothing + Me.aViewAttachments_Cashflow.TypeOfView = Nothing + + End Sub + Friend WithEvents aGenerateGLReportCashflow As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_Cashflow As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx new file mode 100644 index 0000000..e9eac47 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb new file mode 100644 index 0000000..5bd32ff --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowVC.vb @@ -0,0 +1,355 @@ +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 + +Public Class GLReportCashflowVC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + 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 GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False) + If View.Id = "GLReportCashflowHeader_DetailView" Then + Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", True) + + End If + If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Table" Or _ + View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then + Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", True) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "GLReportCashflowHeader_DetailView" Then + Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False) + + End If + If View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Table" Or _ + View.Id = "GLReportCashflowHeader_GLReportCashflowRows_ListView_Pivot" Then + Frame.GetController(Of GLReportCashflowVC).aGenerateGLReportCashflow.Active.SetItemValue("", False) + End If + End Sub + + Private Sub aGenerateGLReportCashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLReportCashflow.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _uow_stat As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLReportCashflowHeader As GLReportCashflowHeader = Nothing + Dim _GLReportCashflowRows As GLReportCashflowRows = Nothing + Dim _PCIDetailCollection As XPCollection(Of PCIDetail) + + + If TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + If _PropertyCollectionSource IsNot Nothing Then + _GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(TryCast(_PropertyCollectionSource.MasterObject, GLReportCashflowHeader).Oid) + Else + _GLReportCashflowRows = TryCast(_ListView.CollectionSource.List(0), GLReportCashflowRows) + If _GLReportCashflowRows IsNot Nothing Then + _GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(_GLReportCashflowRows.GLReportCashflowHeader.Oid) + End If + End If + ElseIf TryCast(View, DetailView) IsNot Nothing Then + _GLReportCashflowHeader = _uow.GetObjectByKey(Of GLReportCashflowHeader)(TryCast(View.SelectedObjects(0), GLReportCashflowHeader).Oid) + End If + + If _GLReportCashflowHeader Is Nothing Then Exit Sub + + Dim _QueryStatistics As QueryStatistics = New QueryStatistics(_uow_stat) + _QueryStatistics.TimeStart = GetSQLTime(_uow_stat) + _QueryStatistics.ObjectKey = _GLReportCashflowHeader.Oid + _QueryStatistics.ObjectName = "GLReportCashflowHeader" + + Dim _GLReportCashflowRows_Collection As New XPCollection(Of GLReportCashflowRows)(_uow, CriteriaOperator.Parse("GLReportCashflowHeader.Oid=?", _GLReportCashflowHeader)) + _uow.Delete(_GLReportCashflowRows_Collection) + + '//Pnzeszkznknt fel kell vinni a nyitt ami a FromDate-t megelz idszak + + + '// --------------------------------- Most a berkezett p.. teljestsek -------------------------------------------------- + If _GLReportCashflowHeader.IsCustomersFrom Then + _PCIDetailCollection = New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("GetDate(DateExecution) between (?,?) and GLRows.GLHeader.GLDocumentType in ('eGLBank','eGLCassa','eGLCompensation')", _ + _GLReportCashflowHeader.FromDate.Date, _GLReportCashflowHeader.ToDate.Date)) + Else + _PCIDetailCollection = New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid=? and GetDate(DateExecution) between (?,?) and GLRows.GLHeader.GLDocumentType in ('eGLBank','eGLCassa','eGLCompensation')", _ + _GLReportCashflowHeader.CustomersFrom.Oid, _GLReportCashflowHeader.FromDate.Date, _GLReportCashflowHeader.ToDate.Date)) + End If + Dim _PCIDetail As PCIDetail + RaiseEvent InitWork(1, 1, _PCIDetailCollection.Count) + _QueryStatistics.RecordNumber = _PCIDetailCollection.Count + For Each _PCIDetail In _PCIDetailCollection + RaiseEvent DoWork() + If _PCIDetail.GLRows.PartnerType = ePartnerType.eNotSet Then + '// Norml ttel + _GLReportCashflowRows = New GLReportCashflowRows(_uow) + _GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal + _GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader + + _GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom + _GLReportCashflowRows.Customers = _PCIDetail.Customers + _GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo + + _GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets + _GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution + + _GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportCashflowRows.InAmountHUF = _PCIDetail.GLRows.InAmountHUF + _GLReportCashflowRows.InAmountDEV = _PCIDetail.GLRows.InAmountDEV + _GLReportCashflowRows.OutAmountHUF = _PCIDetail.GLRows.OutAmountHUF + _GLReportCashflowRows.OutAmountDEV = _PCIDetail.GLRows.OutAmountDEV + + If _PCIDetail.GLRows.DebitChartOfAccounts Is _PCIDetail.GLRows.LiquidAssets.GetChartOfAccounts(_PCIDetail.DateExecution.Year, 0) Then + _GLReportCashflowRows.ChartOfAccounts = _PCIDetail.GLRows.CreditChartOfAccounts + Else + _GLReportCashflowRows.ChartOfAccounts = _PCIDetail.GLRows.DebitChartOfAccounts + End If + _GLReportCashflowRows.Controlling = _PCIDetail.GLRows.Controlling + _GLReportCashflowRows.CostHolder = _PCIDetail.GLRows.CostHolder + _GLReportCashflowRows.CostPlace = _PCIDetail.GLRows.CostPlace + _GLReportCashflowRows.UniqueObjects = _PCIDetail.GLRows.UniqueObjects + _GLReportCashflowRows.JobNumberObjects = _PCIDetail.GLRows.JobNumberObjects + Else + '//GLAccountban keress + Dim _GLAccounts As GLAccounts = _uow.FindObject(Of GLAccounts)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=? and ConnectInfo=?", _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo)) + + If _GLAccounts IsNot Nothing Then + Dim _GLRows As GLRows + Dim _AmountHUFVAT As Double = 0 + Dim _AmountDEVVAT As Double = 0 + + + For Each _GLRows In _GLAccounts.GLRows + If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then + _AmountHUFVAT += _GLRows.AmountHUF + _AmountDEVVAT += _GLRows.AmountDEV + End If + Next + + Dim _AmountHUFNetto As Double = _GLAccounts.AmountHUFBrutto - _AmountHUFVAT + Dim _AmountDEVNetto As Double = _GLAccounts.AmountDEVBrutto - _AmountDEVVAT + + For Each _GLRows In _GLAccounts.GLRows + If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eNettoRow Then + _GLReportCashflowRows = New GLReportCashflowRows(_uow) + _GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal + _GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader + + _GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom + _GLReportCashflowRows.Customers = _PCIDetail.Customers + _GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo + + _GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets + _GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution + + _GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + + + If _AmountHUFNetto <> 0 Then + If (_GLRows.AmountHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_GLRows.AmountHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + If (_GLRows.AmountHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_GLRows.AmountHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + End If + If _AmountDEVNetto <> 0 Then + If (_GLRows.AmountDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_GLRows.AmountDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + If (_GLRows.AmountDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_GLRows.AmountDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + End If + + _GLReportCashflowRows.Controlling = _GLRows.Controlling + _GLReportCashflowRows.CostHolder = _GLRows.CostHolder + _GLReportCashflowRows.CostPlace = _GLRows.CostPlace + _GLReportCashflowRows.UniqueObjects = _GLRows.UniqueObjects + _GLReportCashflowRows.JobNumberObjects = _GLRows.JobNumberObjects + End If + Next + Else + '//InvoiceHeaderben kersess + Dim _InvoiceHeader As InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and ConnectInfo=? and isnull(GLAccounts)=True", _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.ConnectInfo)) + If _InvoiceHeader IsNot Nothing AndAlso _PCIDetail.PartnerType = ePartnerType.eReceivables Then + Dim _InvoiceRows As InvoiceRows + Dim _AmountHUFNetto As Double = 0 + Dim _AmountDEVNetto As Double = 0 + Dim _InvoiceVATRows As InvoiceVATRows + + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _AmountDEVNetto += _InvoiceVATRows.AmountNettoDEV + _AmountHUFNetto += _InvoiceVATRows.AmountNettoHUF + Next + + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + Dim _FinalPriceHUF As Double = Math.Round((_InvoiceRows.ListPriceHUF - _InvoiceRows.DiscountPriceHUF) * _InvoiceRows.QTT, 0, MidpointRounding.AwayFromZero) + Dim _FinalPriceDEV As Double = Math.Round((_InvoiceRows.ListPriceHUF - _InvoiceRows.DiscountPriceHUF) * _InvoiceRows.QTT, 2, MidpointRounding.AwayFromZero) + _GLReportCashflowRows = New GLReportCashflowRows(_uow) + _GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eInvoice + _GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader + + _GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom + _GLReportCashflowRows.Customers = _PCIDetail.Customers + _GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo + + _GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets + _GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution + + _GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + + + If _AmountHUFNetto <> 0 Then + If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + End If + If _AmountDEVNetto <> 0 Then + If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + End If + + _GLReportCashflowRows.Controlling = _InvoiceRows.Controlling + _GLReportCashflowRows.CostHolder = _InvoiceRows.CostHolder + _GLReportCashflowRows.CostPlace = _InvoiceRows.CostPlace + _GLReportCashflowRows.UniqueObjects = _InvoiceRows.UniqueObjects + _GLReportCashflowRows.JobNumberObjects = _InvoiceRows.JobNumberObjects + Next + Else + '//RegistryHeaderben keress + Dim _RegistryHeader As RegistryHeader = _uow.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and ConnectInfo=? and isnull(F_GLAccounts)=True and RegistryType.RegistryMainType in (0,2,3,4)")) + If _RegistryHeader IsNot Nothing AndAlso _PCIDetail.PartnerType = ePartnerType.ePayabels Then + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _AmountHUFNetto As Double = 0 + Dim _AmountDEVNetto As Double = 0 + Dim _AmountHUFVAT As Double = 0 + Dim _AmountDEVVAT As Double = 0 + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _AmountHUFVAT += _RegistryRowsFinancial.NettoAmount + If _RegistryHeader.F_CurrencyRate <> 0 Then + _AmountDEVVAT += Math.Round(_RegistryRowsFinancial.NettoAmount / _RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + Next + + _AmountHUFNetto = _RegistryHeader.F_AmountBruttoHUF - _AmountHUFVAT + If _RegistryHeader.F_CurrencyRate <> 0 Then + _AmountDEVNetto = _AmountHUFNetto / _RegistryHeader.F_CurrencyRate + End If + + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + Dim _FinalPriceHUF As Double = _RegistryRowsFinancialControlling.Amount + Dim _FinalPriceDEV As Double = 0 + If _RegistryHeader.F_CurrencyRate <> 0 Then + _FinalPriceDEV = _FinalPriceHUF / _RegistryHeader.F_CurrencyRate + End If + + _GLReportCashflowRows = New GLReportCashflowRows(_uow) + _GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eRegistry + _GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader + + _GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom + _GLReportCashflowRows.Customers = _PCIDetail.Customers + _GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo + + _GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets + _GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution + + _GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + + If _AmountHUFNetto <> 0 Then + If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.InAmountHUF = Math.Round(_PCIDetail.GLRows.InAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + If (_FinalPriceHUF / _AmountHUFNetto) <> 0 Then _GLReportCashflowRows.OutAmountHUF = Math.Round(_PCIDetail.GLRows.OutAmountHUF * (_FinalPriceHUF / _AmountHUFNetto), 4, MidpointRounding.AwayFromZero) + End If + If _AmountDEVNetto <> 0 Then + If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.InAmountDEV = Math.Round(_PCIDetail.GLRows.InAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + If (_FinalPriceDEV / _AmountDEVNetto) <> 0 Then _GLReportCashflowRows.OutAmountDEV = Math.Round(_PCIDetail.GLRows.OutAmountDEV * (_FinalPriceDEV / _AmountDEVNetto), 4, MidpointRounding.AwayFromZero) + End If + + _GLReportCashflowRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _GLReportCashflowRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _GLReportCashflowRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _GLReportCashflowRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + _GLReportCashflowRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + Next + Else + _GLReportCashflowRows = New GLReportCashflowRows(_uow) + + _GLReportCashflowRows.GLReportRowsState = eGLReportRowsState.eGLFinal + _GLReportCashflowRows.GLReportCashflowHeader = _GLReportCashflowHeader + + _GLReportCashflowRows.CustomersFrom = _PCIDetail.CustomersFrom + _GLReportCashflowRows.Customers = _PCIDetail.Customers + _GLReportCashflowRows.ConnectInfo = _PCIDetail.ConnectInfo + + _GLReportCashflowRows.LiquidAssets = _PCIDetail.GLRows.LiquidAssets + _GLReportCashflowRows.DateExecution = _PCIDetail.GLRows.GLHeader.DateExecution + + _GLReportCashflowRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportCashflowRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportCashflowRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportCashflowRows.DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportCashflowRows.InAmountHUF = _PCIDetail.GLRows.InAmountHUF + _GLReportCashflowRows.InAmountDEV = _PCIDetail.GLRows.InAmountDEV + _GLReportCashflowRows.OutAmountHUF = _PCIDetail.GLRows.OutAmountHUF + _GLReportCashflowRows.OutAmountDEV = _PCIDetail.GLRows.OutAmountDEV + End If + End If + End If + + End If + _uow.CommitChanges() + Next + _uow.CommitChanges() + _QueryStatistics.TimeStop = GetSQLTime(_uow_stat) + _QueryStatistics.TimeEllapsed = _QueryStatistics.TimeStop - _QueryStatistics.TimeStart + _uow_stat.CommitChanges() + RaiseEvent FinalWork + + If TryCast(View, DetailView) IsNot Nothing Then + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + ElseIf TryCast(View, ListView) IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Reload() + End If + + End Sub + + Private Sub aViewAttachments_Cashflow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_Cashflow.Execute + Dim _GLReportCashflowRows As GLReportCashflowRows = TryCast(View.SelectedObjects(0), GLReportCashflowRows) + Dim _CustomersFrom As CustomersFrom = _GLReportCashflowRows.CustomersFrom + Dim _Customers As Customers = _GLReportCashflowRows.Customers + Dim _DocumentNumber As String = _GLReportCashflowRows.ConnectInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportChartOfAccounts.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportChartOfAccounts.vb new file mode 100644 index 0000000..ef66893 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportChartOfAccounts.vb @@ -0,0 +1,59 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class GLReportChartOfAccounts + Inherits BaseObject + Private _GLReport As GLReport + Private _AccountNumber As String + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCustomersFrom.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCustomersFrom.vb new file mode 100644 index 0000000..fae116c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCustomersFrom.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class GLReportCustomersFrom + Inherits BaseObject + Private _GLReport As GLReport + Private _CustomersFrom As CustomersFrom + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRows.vb new file mode 100644 index 0000000..02d64b0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRows.vb @@ -0,0 +1,306 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eGLReportRowsType + eBallance = 0 'Eredmny + eIncoming = 1 'Mrleg +End Enum +Public Enum eGLReportRowsState + eGLFinal = 0 'Vgleges fknyvbl + eGLEditable = 3 'Szerkeszthet fknyvbl + eRegistry = 1 'Nem feladott iktats + eInvoice = 2 'Nem feladott szmla +End Enum + _ + _ + _ + _ + _ + _ +Public Class GLReportRows + Inherits BaseObject + Private _GLReport As GLReport + Private _GLReportRowsType As eGLReportRowsType + Private _GLReportRowsState As eGLReportRowsState + Private _GLRows As GLRows + Private _DebitAmount As Double + Private _CreditAmount As Double + Private _BallanceAmount As Double + Private _ChartOfAccounts As ChartOfAccounts + Private _Controlling As Controlling + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _UniqueObjects As UniqueObjects + Private _JobNumberObjects As JobNumberObjects + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _ConnectInfo As String + Private _DateExecution_Y As String + Private _DateExecution_Q As String + Private _DateExecution_M As String + Private _DateExecution_W As String + Private _DateExecution As Date + Private _RegistryHeader As RegistryHeader + Private _InvoiceHeader As InvoiceHeader + Private _InvoiceRows As InvoiceRows + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + Private _CurrencyName As CurrencyName + Private _DebitAmountDEV As Double = 0 + Private _CreditAmountDEV As Double = 0 + Private _BallanceAmountDEV As Double = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + + Property GLReportRowsType As eGLReportRowsType + Get + Return _GLReportRowsType + End Get + Set(value As eGLReportRowsType) + SetPropertyValue("GLReportRowsType", _GLReportRowsType, value) + End Set + End Property + Property GLReportRowsState As eGLReportRowsState + Get + Return _GLReportRowsState + End Get + Set(value As eGLReportRowsState) + SetPropertyValue("GLReportRowsState", _GLReportRowsState, value) + End Set + End Property + Property GLRows As GLRows + Get + Return _GLRows + End Get + Set(value As GLRows) + SetPropertyValue("GLRows", _GLRows, value) + End Set + End Property + Property DebitAmount As Double + Get + Return _DebitAmount + End Get + Set(value As Double) + SetPropertyValue("DebitAmount", _DebitAmount, value) + End Set + End Property + Property CreditAmount As Double + Get + Return _CreditAmount + End Get + Set(value As Double) + SetPropertyValue("CreditAmount", _CreditAmount, value) + End Set + End Property + Property BallanceAmount As Double + Get + Return _BallanceAmount + End Get + Set(value As Double) + SetPropertyValue("BallanceAmount", _BallanceAmount, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DateExecution_Y As String + Get + Return _DateExecution_Y + End Get + Set(value As String) + SetPropertyValue("DateExecution_Y", _DateExecution_Y, value) + End Set + End Property + Property DateExecution_Q As String + Get + Return _DateExecution_Q + End Get + Set(value As String) + SetPropertyValue("DateExecution_Q", _DateExecution_Q, value) + End Set + End Property + Property DateExecution_M As String + Get + Return _DateExecution_M + End Get + Set(value As String) + SetPropertyValue("DateExecution_M", _DateExecution_M, value) + End Set + End Property + Property DateExecution_W As String + Get + Return _DateExecution_W + End Get + Set(value As String) + SetPropertyValue("DateExecution_W", _DateExecution_W, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property + + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property DebitAmountDEV As Double + Get + Return _DebitAmountDEV + End Get + Set(value As Double) + SetPropertyValue("DebitAmountDEV", _DebitAmountDEV, value) + End Set + End Property + Property CreditAmountDEV As Double + Get + Return _CreditAmountDEV + End Get + Set(value As Double) + SetPropertyValue("CreditAmountDEV", _CreditAmountDEV, value) + End Set + End Property + Property BallanceAmountDEV As Double + Get + Return _BallanceAmountDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceAmountDEV", _BallanceAmountDEV, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsCostHolder.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsCostHolder.vb new file mode 100644 index 0000000..16a1339 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRowsCostHolder.vb @@ -0,0 +1,80 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLReportRowsCostHolder + Inherits BaseObject + + Private _GLReport As GLReport + Private _GLReportRows As GLReportRows + Private _CostHolder As CostHolder + Private _HRPerson As HRPerson + Private _FixedAssets As FixedAssets + Private _BallanceAmount As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + Property GLReportRows As GLReportRows + Get + Return _GLReportRows + End Get + Set(value As GLReportRows) + SetPropertyValue("GLReportRows", _GLReportRows, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property FixedAssets As FixedAssets + Get + Return _FixedAssets + End Get + Set(value As FixedAssets) + SetPropertyValue("FixedAssets", _FixedAssets, value) + End Set + End Property + Property BallanceAmount As Double + Get + Return _BallanceAmount + End Get + Set(value As Double) + SetPropertyValue("BallanceAmount", _BallanceAmount, value) + End Set + End Property + + '---------------------Subs---------------------- +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportUsers.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportUsers.vb new file mode 100644 index 0000000..26bb303 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportUsers.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLReportUsers + Inherits BaseObject + Private _GLReport As GLReport + Private _User As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportXML.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportXML.vb new file mode 100644 index 0000000..e733ba0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportXML.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class GLReportXML + Inherits BaseObject + + Private _GLReport As GLReport + Private _ViewID As String + Private _XMLInfo As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + End Set + End Property + _ + Property XMLInfo As String + Get + Return _XMLInfo + End Get + Set(value As String) + SetPropertyValue("XMLInfo", _XMLInfo, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.Designer.vb new file mode 100644 index 0000000..a49ae41 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.Designer.vb @@ -0,0 +1,131 @@ +Partial Class GLRowsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateGLReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_DTR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_DTR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGLDTRChangeParam = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSelectCustomersFrom_DTR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSelectChartOfAccounts_DTR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aGenerateGLReport + ' + Me.aGenerateGLReport.Caption = "Generate GL report" + Me.aGenerateGLReport.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateGLReport.Id = "aGenerateGLReport" + Me.aGenerateGLReport.ImageName = "stopwatch_run" + Me.aGenerateGLReport.Shortcut = Nothing + Me.aGenerateGLReport.Tag = Nothing + Me.aGenerateGLReport.TargetObjectsCriteria = Nothing + Me.aGenerateGLReport.TargetViewId = "" + Me.aGenerateGLReport.ToolTip = Nothing + Me.aGenerateGLReport.TypeOfView = Nothing + ' + 'aViewAttachments_DTR + ' + Me.aViewAttachments_DTR.Caption = "View attachments" + Me.aViewAttachments_DTR.ConfirmationMessage = Nothing + Me.aViewAttachments_DTR.Id = "aViewAttachments_DTR" + Me.aViewAttachments_DTR.ImageName = "printer_view" + Me.aViewAttachments_DTR.Shortcut = Nothing + Me.aViewAttachments_DTR.Tag = Nothing + Me.aViewAttachments_DTR.TargetObjectsCriteria = Nothing + Me.aViewAttachments_DTR.TargetViewId = "GLReport_GLReportRows_ListView" + Me.aViewAttachments_DTR.ToolTip = Nothing + Me.aViewAttachments_DTR.TypeOfView = Nothing + ' + 'aViewRegistry_DTR + ' + Me.aViewRegistry_DTR.Caption = "View registry" + Me.aViewRegistry_DTR.ConfirmationMessage = Nothing + Me.aViewRegistry_DTR.Id = "aViewRegistry_DTR" + Me.aViewRegistry_DTR.ImageName = "document_pinned" + Me.aViewRegistry_DTR.Shortcut = Nothing + Me.aViewRegistry_DTR.Tag = Nothing + Me.aViewRegistry_DTR.TargetObjectsCriteria = Nothing + Me.aViewRegistry_DTR.TargetViewId = "GLReport_GLReportRows_ListView" + Me.aViewRegistry_DTR.ToolTip = Nothing + Me.aViewRegistry_DTR.TypeOfView = Nothing + ' + 'aGLDTRChangeParam + ' + Me.aGLDTRChangeParam.AcceptButtonCaption = Nothing + Me.aGLDTRChangeParam.CancelButtonCaption = Nothing + Me.aGLDTRChangeParam.Caption = "Change parameters" + Me.aGLDTRChangeParam.ConfirmationMessage = Nothing + Me.aGLDTRChangeParam.Id = "aGLDTRChangeParam" + Me.aGLDTRChangeParam.ImageName = "index_preferences" + Me.aGLDTRChangeParam.Shortcut = Nothing + Me.aGLDTRChangeParam.Tag = Nothing + Me.aGLDTRChangeParam.TargetObjectsCriteria = Nothing + Me.aGLDTRChangeParam.TargetViewId = "GLReport_GLReportRows_ListView" + Me.aGLDTRChangeParam.ToolTip = Nothing + Me.aGLDTRChangeParam.TypeOfView = Nothing + ' + 'aSelectCustomersFrom_DTR + ' + Me.aSelectCustomersFrom_DTR.AcceptButtonCaption = Nothing + Me.aSelectCustomersFrom_DTR.CancelButtonCaption = Nothing + Me.aSelectCustomersFrom_DTR.Caption = "aSelectCustomersFrom_DTR" + Me.aSelectCustomersFrom_DTR.ConfirmationMessage = Nothing + Me.aSelectCustomersFrom_DTR.Id = "aSelectCustomersFrom_DTR" + Me.aSelectCustomersFrom_DTR.ImageName = Nothing + Me.aSelectCustomersFrom_DTR.Shortcut = Nothing + Me.aSelectCustomersFrom_DTR.Tag = Nothing + Me.aSelectCustomersFrom_DTR.TargetObjectsCriteria = Nothing + Me.aSelectCustomersFrom_DTR.TargetObjectType = GetType(SISBusiness.[Module].GLReportCustomersFrom) + Me.aSelectCustomersFrom_DTR.TargetViewId = Nothing + Me.aSelectCustomersFrom_DTR.ToolTip = Nothing + Me.aSelectCustomersFrom_DTR.TypeOfView = Nothing + ' + 'aSelectChartOfAccounts_DTR + ' + Me.aSelectChartOfAccounts_DTR.AcceptButtonCaption = Nothing + Me.aSelectChartOfAccounts_DTR.CancelButtonCaption = Nothing + Me.aSelectChartOfAccounts_DTR.Caption = "aSelectChartOfAccounts_DTR" + Me.aSelectChartOfAccounts_DTR.ConfirmationMessage = Nothing + Me.aSelectChartOfAccounts_DTR.Id = "aSelectChartOfAccounts_DTR" + Me.aSelectChartOfAccounts_DTR.ImageName = Nothing + Me.aSelectChartOfAccounts_DTR.Shortcut = Nothing + Me.aSelectChartOfAccounts_DTR.Tag = Nothing + Me.aSelectChartOfAccounts_DTR.TargetObjectsCriteria = Nothing + Me.aSelectChartOfAccounts_DTR.TargetObjectType = GetType(SISBusiness.[Module].GLReportChartOfAccounts) + Me.aSelectChartOfAccounts_DTR.TargetViewId = Nothing + Me.aSelectChartOfAccounts_DTR.ToolTip = Nothing + Me.aSelectChartOfAccounts_DTR.TypeOfView = Nothing + + End Sub + Friend WithEvents aGenerateGLReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_DTR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_DTR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGLDTRChangeParam As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSelectCustomersFrom_DTR As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSelectChartOfAccounts_DTR As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.resx new file mode 100644 index 0000000..ecd8f96 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 212 + + + 17, 95 + + + 17, 173 + + + 401, 134 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb new file mode 100644 index 0000000..cd16305 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLRowsVC.vb @@ -0,0 +1,1444 @@ +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.Persistent.BaseImpl +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Model + +Public Class GLRowsVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False) + MyBase.OnActivated() + If View.Id Like "GLReport_GLReportRows_ListView*" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ExportController).Active.SetItemValue("", True) + + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True) + + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then + Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False) + End If + End If + End If + End If + End If + If View.Id Like "GLReport_GLReportRowsCostHolder_ListView*" Then + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True) + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource) IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport) IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, GLReport).InPublic Then + Frame.GetController(Of ViewVariantsModule.ChangeVariantController).Active.SetItemValue("", False) + End If + End If + End If + End If + End If + + If View.Id Like "GLReport_DetailView*" Then + Dim _GLReport As GLReport = TryCast(View.SelectedObjects(0), GLReport) + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True) + + If _GLReport.UserCreated IsNot Nothing Then + If Not _GLReport.UserCreated.Equals(_User) Then + 'Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", False) + End If + End If + End If + + If View.Id Like "GLReport_ListView*" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "' or 'SysAdmin'='" & SecuritySystem.CurrentUserName & "'" + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll + End If + + If View.Id = "GLReport_ListView_Public" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "GLReport_ListView_Private" Then + If SecuritySystem.CurrentUserName = "SysAdmin" Then + Else + CType(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("UserCreated=? ", _User) + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + 'Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + If View.Id Like "GLReport_DetailView*" Then + + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of GLRowsVC).aGenerateGLReport.Active.SetItemValue("", True) + End If + + End Sub + + Private Sub aGenerateGLReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateGLReport.Execute + '-- Főkönyvi kimutatást készíti + 'Try + GLOBAL_HAS_Audit = False + Dim _GLReport As GLReport = Nothing + Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _uow_stat As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLReportRows As GLReportRows + Dim _GLReportRowsCostHolder As GLReportRowsCostHolder + Dim _DateExecution As Date = Nothing + + If TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + If _PropertyCollectionSource IsNot Nothing Then + _GLReport = _uow.GetObjectByKey(Of GLReport)(TryCast(_PropertyCollectionSource.MasterObject, GLReport).Oid) + Else + _GLReportRows = TryCast(_ListView.CollectionSource.List(0), GLReportRows) + If _GLReportRows IsNot Nothing Then + _GLReport = _uow.GetObjectByKey(Of GLReport)(_GLReportRows.GLReport.Oid) + Else + _GLReportRowsCostHolder = TryCast(_ListView.CollectionSource.List(0), GLReportRowsCostHolder) + If _GLReportRowsCostHolder IsNot Nothing Then + _GLReport = _uow.GetObjectByKey(Of GLReport)(_GLReportRowsCostHolder.GLReport.Oid) + End If + End If + End If + ElseIf TryCast(View, DetailView) IsNot Nothing Then + _GLReport = _uow.GetObjectByKey(Of GLReport)(TryCast(View.SelectedObjects(0), GLReport).Oid) + End If + + If _GLReport Is Nothing Then Exit Sub + + Dim _GLRows As GLRows + + + Dim I As Long = 0 + Dim _cs As String + + Dim _QueryStatistics As QueryStatistics = New QueryStatistics(_uow_stat) + _QueryStatistics.TimeStart = GetSQLTime(_uow_stat) + _QueryStatistics.ObjectKey = _GLReport.Oid + _QueryStatistics.ObjectName = "GLReport" + _QueryStatistics.RecordNumber = 0 + Dim _GLRows_Collection As XPCollection(Of GLRows) + + 'Dim _GLReportRows_Collection As New XPCollection(Of GLReportRows)(_uow, CriteriaOperator.Parse("GLReport=?", _GLReport)) + '_uow.Delete(_GLReportRows_Collection) + + 'Dim _GLReportRowsCostHolder_Collection As New XPCollection(Of GLReportRowsCostHolder)(_uow, CriteriaOperator.Parse("GLReport=?", _GLReport)) + '_uow.Delete(_GLReportRowsCostHolder_Collection) + + Select Case GLOBAL_SQLType + + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery("delete from ""GLReportRowsCostHolder"" where ""GLReport""='" & _GLReport.Oid.ToString & "'") + _uow.ExecuteNonQuery("delete from ""GLReportRows"" where ""GLReport""='" & _GLReport.Oid.ToString & "'") + Case Else + _uow.ExecuteNonQuery("delete from GLReportRowsCostHolder where GLReport='" & _GLReport.Oid.ToString & "'") + _uow.ExecuteNonQuery("delete from GLReportRows where GLReport='" & _GLReport.Oid.ToString & "'") + End Select + + + + '-- Először a főkönyvi sorok ! ------------------------------------------ + If _GLReport.ReportType = eGLReportType.GeneralLedger Then + If _GLReport.IsCustomersFrom = True Then + + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _cs = " GLHeader.DateExecution>=? and GLHeader.DateExecution<=? and GLHeader.IsEditable=False" + Else + _cs = " DateExecution>=? and DateExecution<=? and GLHeader.IsEditable=False" + End If + + If _GLReport.GLReportCustomersFrom.Count > 0 Then + Dim _cs_1 As String = "" + Dim _cs_1_i As Long = 0 + Dim _GLReportCustomersFrom As GLReportCustomersFrom + + For Each _GLReportCustomersFrom In _GLReport.GLReportCustomersFrom + If _cs_1_i = 0 Then + _cs_1 = " GLHeader.CustomersFrom.Oid='" & _GLReportCustomersFrom.CustomersFrom.Oid.ToString & "'" + _cs_1_i += 1 + Else + _cs_1 &= " OR GLHeader.CustomersFrom.Oid='" & _GLReportCustomersFrom.CustomersFrom.Oid.ToString & "'" + End If + Next + If _cs_1 <> "" Then _cs &= " and (" & _cs_1 & ") " + End If + + If _GLReport.GLReportChartOfAccounts.Count > 0 Then + Dim _cs_1 As String = "" + Dim _cs_1_i As Long = 0 + Dim _GLReportChartOfAccounts As GLReportChartOfAccounts + + For Each _GLReportChartOfAccounts In _GLReport.GLReportChartOfAccounts + If _cs_1_i = 0 Then + _cs_1 = " DebitChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%' or CreditChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%'" + _cs_1_i += 1 + Else + _cs_1 &= " OR DebitChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%' or CreditChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%'" + End If + Next + If _cs_1 <> "" Then _cs &= " and (" & _cs_1 & ") " + End If + If _GLReport IsNot Nothing Then + If _GLReport.Criteria <> "" Then + If _cs <> "" Then + _cs = "(" & _cs & ") and " & CriteriaOperator.Parse(_GLReport.Criteria).ToString + Else + _cs = CriteriaOperator.Parse(_GLReport.Criteria).ToString + End If + End If + End If + _GLRows_Collection = New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse(_cs, _GLReport.FromDate, DateAdd(DateInterval.Minute, 1439, _GLReport.ToDate.Date))) + + Else + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _cs = " GLHeader.DateExecution>=? and GLHeader.DateExecution<=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?" + Else + _cs = " DateExecution>=? and DateExecution<=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?" + End If + If _GLReport.GLReportChartOfAccounts.Count > 0 Then + Dim _cs_1 As String = "" + Dim _cs_1_i As Long = 0 + Dim _GLReportChartOfAccounts As GLReportChartOfAccounts + + For Each _GLReportChartOfAccounts In _GLReport.GLReportChartOfAccounts + If _cs_1_i = 0 Then + _cs_1 = " DebitChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%' or CreditChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%'" + _cs_1_i += 1 + Else + _cs_1 &= " OR DebitChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%' or CreditChartOfAccounts.AccountNumber like '" & _GLReportChartOfAccounts.AccountNumber & "%'" + End If + Next + If _cs_1 <> "" Then _cs &= " and (" & _cs_1 & ") " + End If + If _GLReport IsNot Nothing Then + If _GLReport.Criteria <> "" Then + If _cs <> "" Then + _cs = "(" & _cs & ") and " & CriteriaOperator.Parse(_GLReport.Criteria).ToString + Else + _cs = CriteriaOperator.Parse(_GLReport.Criteria).ToString + End If + End If + End If + _GLRows_Collection = New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse(_cs, _GLReport.FromDate, DateAdd(DateInterval.Minute, 1439, _GLReport.ToDate.Date), _GLReport.CustomersFrom)) + End If + Else + If _GLReport.IsCustomersFrom = True Then + + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _cs = " GLRowsTypeVAT <> 1 and GLHeader.DateExecution>=? and GLHeader.DateExecution<=? and GLHeader.IsEditable=False" + _cs += " and isnull(Controlling)=False " + Else + _cs = " GLRowsTypeVAT <> 1 and DateExecution>=? and DateExecution<=? and GLHeader.IsEditable=False" + _cs += " and isnull(Controlling)=False " + End If + + If _GLReport.GLReportCustomersFrom.Count > 0 Then + Dim _cs_1 As String = "" + Dim _cs_1_i As Long = 0 + Dim _GLReportCustomersFrom As GLReportCustomersFrom + + For Each _GLReportCustomersFrom In _GLReport.GLReportCustomersFrom + If _cs_1_i = 0 Then + _cs_1 = " GLHeader.CustomersFrom.Oid='" & _GLReportCustomersFrom.CustomersFrom.Oid.ToString & "'" + _cs_1_i += 1 + Else + _cs_1 &= " OR GLHeader.CustomersFrom.Oid='" & _GLReportCustomersFrom.CustomersFrom.Oid.ToString & "'" + End If + Next + If _cs_1 <> "" Then _cs &= " and (" & _cs_1 & ") " + End If + If _GLReport IsNot Nothing Then + If _GLReport.Criteria <> "" Then + If _cs <> "" Then + _cs = "(" & _cs & ") and " & CriteriaOperator.Parse(_GLReport.Criteria).ToString + Else + _cs = CriteriaOperator.Parse(_GLReport.Criteria).ToString + End If + End If + End If + _GLRows_Collection = New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse(_cs, _GLReport.FromDate, DateAdd(DateInterval.Minute, 1439, _GLReport.ToDate.Date))) + Else + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _cs = " GLRowsTypeVAT <> 1 and GLHeader.DateExecution>=? and GLHeader.DateExecution<=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?" + _cs += " and isnull(Controlling)=False " + Else + _cs = " GLRowsTypeVAT <> 1 and DateExecution>=? and DateExecution<=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?" + _cs += " and isnull(Controlling)=False " + End If + If _GLReport IsNot Nothing Then + If _GLReport.Criteria <> "" Then + If _cs <> "" Then + _cs = "(" & _cs & ") and " & CriteriaOperator.Parse(_GLReport.Criteria).ToString + Else + _cs = CriteriaOperator.Parse(_GLReport.Criteria).ToString + End If + End If + End If + _GLRows_Collection = New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse(_cs, _GLReport.FromDate, DateAdd(DateInterval.Minute, 1439, _GLReport.ToDate.Date), _GLReport.CustomersFrom)) + End If + End If + + + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + _QueryStatistics.RecordNumber += _GLRows_Collection.Count + For Each _GLRows In _GLRows_Collection + I += 1 + RaiseEvent DoWork() + _GLReportRows = New GLReportRows(_uow) + _GLReportRows.GLRows = _GLRows + _GLReportRows.CurrencyName = _GLRows.GLHeader.CurrencyName + Select Case Mid(_GLRows.DebitChartOfAccounts.AccountNumber, 1, 1) + Case "5", "8", "9" + _GLReportRows.GLReportRowsType = eGLReportRowsType.eIncoming + Case Else + _GLReportRows.GLReportRowsType = eGLReportRowsType.eBallance + End Select + + _GLReportRows.GLReportRowsState = eGLReportRowsState.eGLFinal + _GLReportRows.GLReport = _GLReport + _GLReportRows.ChartOfAccounts = _GLRows.DebitChartOfAccounts + _GLReportRows.DebitAmount = _GLRows.AmountHUF + _GLReportRows.DebitAmountDEV = _GLRows.AmountDEV + _GLReportRows.CreditAmount = 0 + _GLReportRows.CustomersFrom = _GLRows.GLHeader.CustomersFrom + _GLReportRows.Customers = _GLRows.Customer + _GLReportRows.ConnectInfo = _GLRows.ConnectInfo + _GLReportRows.Controlling = _GLRows.Controlling + _GLReportRows.CostHolder = _GLRows.CostHolder + _GLReportRows.CostPlace = _GLRows.CostPlace + _GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects + _GLReportRows.UniqueObjects = _GLRows.UniqueObjects + + If _GLReport.ReportType = eGLReportType.Controlling Then + If _GLRows.Controlling Is Nothing Then + Select Case _GLRows.GLHeader.GLDocumentType + Case eGLDocumentType.eGLBank, eGLDocumentType.eGLCassa, eGLDocumentType.eGLCompensation, eGLDocumentType.eGLRateDiff + Select Case _GLRows.PartnerType + Case ePartnerType.ePayabels + Case ePartnerType.eReceivables + Case ePartnerType.eNotSet + If _GLRows.InAmountHUF <> 0 Then + _GLReportRows.BallanceAmount = _GLRows.AmountHUF + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV + ElseIf _GLRows.OutAmountHUF <> 0 Then + _GLReportRows.BallanceAmount = _GLRows.AmountHUF * -1 + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV * -1 + Else + _GLReportRows.BallanceAmount = _GLRows.AmountHUF + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV + End If + End Select + Case Else + _GLReportRows.BallanceAmount = _GLRows.AmountHUF + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV + End Select + Else + If _GLRows.Controlling.Controllingdirection = eControllingDirection.eIn Then + _GLReportRows.BallanceAmount = _GLRows.AmountHUF + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV + ElseIf _GLRows.Controlling.Controllingdirection = eControllingDirection.eOut Then + _GLReportRows.BallanceAmount = _GLRows.AmountHUF * -1 + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV * -1 + End If + End If + Else + _GLReportRows.BallanceAmount = _GLRows.AmountHUF + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV + End If + + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _DateExecution = _GLRows.GLHeader.DateExecution + Else + _DateExecution = _GLRows.DateExecution + End If + _GLReportRows.DateExecution = _DateExecution + + _GLReportRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportRows.RegistryHeader = _GLRows.GLHeader.ImportedRegistryHeader + _GLReportRows.InvoiceHeader = _GLRows.GLHeader.ImportedInvoice + '_GLReportRows.Save() + + If _GLReport.ReportType = eGLReportType.GeneralLedger Then + _GLReportRows = New GLReportRows(_uow) + _GLReportRows.GLRows = _GLRows + Select Case Mid(_GLRows.CreditChartOfAccounts.AccountNumber, 1, 1) + Case "5", "8", "9" + _GLReportRows.GLReportRowsType = eGLReportRowsType.eIncoming + Case Else + _GLReportRows.GLReportRowsType = eGLReportRowsType.eBallance + End Select + _GLReportRows.GLReportRowsState = eGLReportRowsState.eGLFinal + _GLReportRows.GLReport = _GLReport + _GLReportRows.ChartOfAccounts = _GLRows.CreditChartOfAccounts + _GLReportRows.DebitAmount = 0 + _GLReportRows.CreditAmount = _GLRows.AmountHUF + _GLReportRows.CreditAmountDEV = _GLRows.AmountDEV + _GLReportRows.BallanceAmount = _GLRows.AmountHUF * -1 + _GLReportRows.BallanceAmountDEV = _GLRows.AmountDEV * -1 + _GLReportRows.CustomersFrom = _GLRows.GLHeader.CustomersFrom + _GLReportRows.Customers = _GLRows.Customer + _GLReportRows.ConnectInfo = _GLRows.ConnectInfo + _GLReportRows.Controlling = _GLRows.Controlling + _GLReportRows.CostHolder = _GLRows.CostHolder + _GLReportRows.CostPlace = _GLRows.CostPlace + _GLReportRows.JobNumberObjects = _GLRows.JobNumberObjects + _GLReportRows.UniqueObjects = _GLRows.UniqueObjects + + If _GLReport.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + _DateExecution = _GLRows.GLHeader.DateExecution + Else + _DateExecution = _GLRows.DateExecution + End If + _GLReportRows.DateExecution = _DateExecution + + _GLReportRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _GLReportRows.DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportRows.RegistryHeader = _GLRows.GLHeader.ImportedRegistryHeader + _GLReportRows.InvoiceHeader = _GLRows.GLHeader.ImportedInvoice + + '_GLReportRows.Save() + End If + _uow.CommitChanges() + Next + RaiseEvent FinalWork + + '// Most ki kéne venni azokat, amelyek nem passzolnak főkönyvileg ! + + + _uow.CommitChanges() + + '-- Be kéne tenni azokat az iktatásokat, amelyek még nincsenek lekönyvelve + If _GLReport.ReportType = eGLReportType.Controlling Then + If _GLReport.IsRegistry = True Then + Dim _RegistryHeader_Collection As XPCollection(Of RegistryHeader) + If _GLReport.IsCustomersFrom = True Then + _RegistryHeader_Collection = New XPCollection(Of RegistryHeader) _ + (_uow, CriteriaOperator.Parse("RegistryType.RegistryMainType=0 and RegistryAcceptState=0 and IsEditable=False and isnull(F_GLAccounts)=True and GetDate(F_DateExecution)>=? and GetDate(F_DateExecution) <=?", _ + _GLReport.FromDate.Date, _GLReport.ToDate.Date)) + Else + _RegistryHeader_Collection = New XPCollection(Of RegistryHeader) _ + (_uow, CriteriaOperator.Parse("RegistryType.RegistryMainType=0 and RegistryAcceptState=0 and IsEditable=False and isnull(F_GLAccounts)=True and CustomersFrom=? and GetDate(F_DateExecution)>=? and GetDate(F_DateExecution) <=?", _ + _GLReport.CustomersFrom, _GLReport.FromDate.Date, _GLReport.ToDate.Date)) + End If + Dim _RegistryHeader As RegistryHeader + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + RaiseEvent InitWork(1, 1, _RegistryHeader_Collection.Count) + _QueryStatistics.RecordNumber += _RegistryHeader_Collection.Count + For Each _RegistryHeader In _RegistryHeader_Collection + RaiseEvent DoWork() + I += 1 + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _GLReportRows = New GLReportRows(_uow) + _GLReportRows.GLReport = _GLReport + _GLReportRows.GLReportRowsType = eGLReportRowsType.eIncoming + _GLReportRows.GLReportRowsState = eGLReportRowsState.eRegistry + + If _RegistryRowsFinancialControlling.Controlling.Controllingdirection = eControllingDirection.eIn Then + _GLReportRows.BallanceAmount = _RegistryRowsFinancialControlling.Amount + Else + _GLReportRows.BallanceAmount = _RegistryRowsFinancialControlling.Amount * -1 + End If + _GLReportRows.CustomersFrom = _RegistryHeader.CustomersFrom + _GLReportRows.Customers = _RegistryHeader.Customers + _GLReportRows.ConnectInfo = _RegistryHeader.DocumentNumber + + _GLReportRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _GLReportRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _GLReportRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _GLReportRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + _GLReportRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + + _GLReportRows.DateExecution = _RegistryHeader.F_DateExecution + + _GLReportRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _RegistryHeader.F_DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _RegistryHeader.F_DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _RegistryHeader.F_DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _RegistryHeader.F_DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportRows.RegistryHeader = _RegistryHeader + _GLReportRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + _GLReportRows.Save() + Next + If I Mod 5000 = 0 Then _uow.CommitChanges() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + End If + '-- Be kéne tenni azokat a vevői számlákat, amelyek nincsenek lekönyvelve + If _GLReport.IsInvoice = True Then + Dim _InvoiceHeader_Collection As XPCollection(Of InvoiceHeader) + If _GLReport.IsCustomersFrom = True Then + _InvoiceHeader_Collection = New XPCollection(Of InvoiceHeader) _ + (_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase in (0,1,2,3) and IsEditable=False and isnull(GLAccounts)=True and GetDate(DateExecution)>=? and GetDate(DateExecution) <=?", _ + _GLReport.FromDate.Date, _GLReport.ToDate.Date)) + Else + _InvoiceHeader_Collection = New XPCollection(Of InvoiceHeader) _ + (_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase in (0,1,2,3) and IsEditable=False and isnull(GLAccounts)=True and CustomersFrom=? and GetDate(DateExecution)>=? and GetDate(DateExecution) <=?", _ + _GLReport.CustomersFrom, _GLReport.FromDate.Date, _GLReport.ToDate.Date)) + End If + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceRows As InvoiceRows + RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count) + _QueryStatistics.RecordNumber += _InvoiceHeader_Collection.Count + For Each _InvoiceHeader In _InvoiceHeader_Collection + RaiseEvent DoWork() + I += 1 + For Each _InvoiceRows In _InvoiceHeader.InvoiceRows + _GLReportRows = New GLReportRows(_uow) + _GLReportRows.GLReport = _GLReport + _GLReportRows.GLReportRowsType = eGLReportRowsType.eIncoming + _GLReportRows.GLReportRowsState = eGLReportRowsState.eInvoice + + If _InvoiceRows.Controlling.Controllingdirection = eControllingDirection.eIn Then + _GLReportRows.BallanceAmount = _InvoiceRows.SumPriceHUF + Else + _GLReportRows.BallanceAmount = _InvoiceRows.SumPriceHUF * -1 + End If + + _GLReportRows.CustomersFrom = _InvoiceHeader.CustomersFrom + _GLReportRows.Customers = _InvoiceHeader.Customers + _GLReportRows.ConnectInfo = _InvoiceHeader.DocumentNumber + + _GLReportRows.Controlling = _InvoiceRows.Controlling + _GLReportRows.CostHolder = _InvoiceRows.CostHolder + _GLReportRows.CostPlace = _InvoiceRows.CostPlace + _GLReportRows.JobNumberObjects = _InvoiceRows.JobNumberObjects + _GLReportRows.UniqueObjects = _InvoiceRows.UniqueObjects + + _GLReportRows.DateExecution = _InvoiceHeader.DateExecution + + _GLReportRows.DateExecution_Y = AlignStr(DatePart(DateInterval.Year, _InvoiceHeader.DateExecution).ToString, eDirection.Left, "0", 4) + _GLReportRows.DateExecution_Q = AlignStr(DatePart(DateInterval.Quarter, _InvoiceHeader.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_M = AlignStr(DatePart(DateInterval.Month, _InvoiceHeader.DateExecution).ToString, eDirection.Left, "0", 2) + _GLReportRows.DateExecution_W = AlignStr(DatePart(DateInterval.WeekOfYear, _InvoiceHeader.DateExecution).ToString, eDirection.Left, "0", 2) + + _GLReportRows.InvoiceHeader = _InvoiceHeader + _GLReportRows.InvoiceRows = _InvoiceRows + _GLReportRows.Save() + Next + If I Mod 5000 = 0 Then _uow.CommitChanges() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + End If + End If + + If _GLReport.ReportType = eGLReportType.Controlling Then + I = 0 + RaiseEvent InitWork(1, 1, _GLReport.GLReportRows.Count) + For Each _GLReportRows In _GLReport.GLReportRows + RaiseEvent DoWork() + CreateCostHolderInfoRows(_uow, _GLReportRows) + I += 1 + If I Mod 5000 = 0 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + End If + _QueryStatistics.TimeStop = GetSQLTime(_uow_stat) + _QueryStatistics.TimeEllapsed = _QueryStatistics.TimeStop - _QueryStatistics.TimeStart + _uow_stat.CommitChanges() + + If TryCast(View, DetailView) IsNot Nothing Then + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + ElseIf TryCast(View, ListView) IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Reload() + End If + + 'Catch ex As Exception + 'MsgBox(ex.Message) + + 'Finally + GLOBAL_HAS_Audit = True + RaiseEvent FinalWork + 'End Try + + End Sub + Private Sub CreateCostHolderInfoRows(_uow As UnitOfWork, _GLReportRows As GLReportRows) + Dim _GLReportRowsCostHolder As GLReportRowsCostHolder + + If _GLReportRows.RegistryHeader IsNot Nothing Then + '//------------------------------------------------ + Dim _HRPersonCustomers_Collection As New XPCollection(Of HRPersonCustomers)(_uow, CriteriaOperator.Parse("Customers=?", _GLReportRows.Customers)) + If _HRPersonCustomers_Collection.Count > 0 Then + For Each _HRPersonCustomers As HRPersonCustomers In _HRPersonCustomers_Collection + If _HRPersonCustomers.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCustomers.DateTo.Date >= _GLReportRows.DateExecution.Date Then + + If _HRPersonCustomers.HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPersonCustomers.HRPerson.HRPersonCostHolder + + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPersonCustomers.HRPerson + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + Next + End If + End If + Next + + ElseIf _GLReportRows.UniqueObjects IsNot Nothing Then + Dim _FixedAssets As FixedAssets = _uow.FindObject(Of FixedAssets)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + + If _FixedAssets IsNot Nothing Then + If _FixedAssets.HRPerson_Using IsNot Nothing Then + If _FixedAssets.HRPerson_Using.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _FixedAssets.HRPerson_Using.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _FixedAssets.HRPerson_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _FixedAssets.CostHolder_Using IsNot Nothing Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _FixedAssets.CostHolder_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + If _HRPerson IsNot Nothing Then + If _HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPerson + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + '//------------------------------------------------ + ElseIf _GLReportRows.InvoiceHeader IsNot Nothing Then + '// -------------------------------------------------- + Dim _HRPersonCustomers_Collection As New XPCollection(Of HRPersonCustomers)(_uow, CriteriaOperator.Parse("Customers=?", _GLReportRows.Customers)) + If _HRPersonCustomers_Collection.Count > 0 Then + For Each _HRPersonCustomers As HRPersonCustomers In _HRPersonCustomers_Collection + If _HRPersonCustomers.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCustomers.DateTo.Date >= _GLReportRows.DateExecution.Date Then + + If _HRPersonCustomers.HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPersonCustomers.HRPerson.HRPersonCostHolder + + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPersonCustomers.HRPerson + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + Next + End If + End If + Next + + ElseIf _GLReportRows.UniqueObjects IsNot Nothing Then + Dim _FixedAssets As FixedAssets = _uow.FindObject(Of FixedAssets)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + + If _FixedAssets IsNot Nothing Then + If _FixedAssets.HRPerson_Using IsNot Nothing Then + If _FixedAssets.HRPerson_Using.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _FixedAssets.HRPerson_Using.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _FixedAssets.HRPerson_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _FixedAssets.CostHolder_Using IsNot Nothing Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _FixedAssets.CostHolder_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + If _HRPerson IsNot Nothing Then + If _HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPerson + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + '----------------------------------------------------- + ElseIf _GLReportRows.GLRows IsNot Nothing Then + If _GLReportRows.GLRows.PartnerType = ePartnerType.eReceivables Then + Dim _HRPersonCustomers_Collection As New XPCollection(Of HRPersonCustomers)(_uow, CriteriaOperator.Parse("Customers=?", _GLReportRows.Customers)) + If _HRPersonCustomers_Collection.Count > 0 Then + For Each _HRPersonCustomers As HRPersonCustomers In _HRPersonCustomers_Collection + If _HRPersonCustomers.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCustomers.DateTo.Date >= _GLReportRows.DateExecution.Date Then + + If _HRPersonCustomers.HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPersonCustomers.HRPerson.HRPersonCostHolder + + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPersonCustomers.HRPerson + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + Next + End If + End If + Next + + ElseIf _GLReportRows.UniqueObjects IsNot Nothing Then + Dim _FixedAssets As FixedAssets = _uow.FindObject(Of FixedAssets)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + + If _FixedAssets IsNot Nothing Then + If _FixedAssets.HRPerson_Using IsNot Nothing Then + If _FixedAssets.HRPerson_Using.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _FixedAssets.HRPerson_Using.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _FixedAssets.HRPerson_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _FixedAssets.CostHolder_Using IsNot Nothing Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _FixedAssets.CostHolder_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + If _HRPerson IsNot Nothing Then + If _HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPerson + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _GLReportRows.GLRows.PartnerType = ePartnerType.ePayabels Then + Dim _HRPersonCustomers_Collection As New XPCollection(Of HRPersonCustomers)(_uow, CriteriaOperator.Parse("Customers=?", _GLReportRows.Customers)) + If _HRPersonCustomers_Collection.Count > 0 Then + For Each _HRPersonCustomers As HRPersonCustomers In _HRPersonCustomers_Collection + If _HRPersonCustomers.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCustomers.DateTo.Date >= _GLReportRows.DateExecution.Date Then + + If _HRPersonCustomers.HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPersonCustomers.HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPersonCustomers.HRPerson + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + End If + End If + Next + + ElseIf _GLReportRows.UniqueObjects IsNot Nothing Then + Dim _FixedAssets As FixedAssets = _uow.FindObject(Of FixedAssets)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + + If _FixedAssets IsNot Nothing Then + If _FixedAssets.HRPerson_Using IsNot Nothing Then + If _FixedAssets.HRPerson_Using.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _FixedAssets.HRPerson_Using.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _FixedAssets.HRPerson_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _FixedAssets.CostHolder_Using IsNot Nothing Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _FixedAssets.CostHolder_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + If _HRPerson IsNot Nothing Then + If _HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPerson + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _GLReportRows.GLRows.PartnerType = ePartnerType.eNotSet Then + Dim _HRPersonCustomers_Collection As New XPCollection(Of HRPersonCustomers)(_uow, CriteriaOperator.Parse("Customers=?", _GLReportRows.Customers)) + If _HRPersonCustomers_Collection.Count > 0 Then + For Each _HRPersonCustomers As HRPersonCustomers In _HRPersonCustomers_Collection + If _HRPersonCustomers.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCustomers.DateTo.Date >= _GLReportRows.DateExecution.Date Then + + If _HRPersonCustomers.HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPersonCustomers.HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPersonCustomers.HRPerson + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + End If + End If + Next + + ElseIf _GLReportRows.UniqueObjects IsNot Nothing Then + Dim _FixedAssets As FixedAssets = _uow.FindObject(Of FixedAssets)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + + If _FixedAssets IsNot Nothing Then + If _FixedAssets.HRPerson_Using IsNot Nothing Then + If _FixedAssets.HRPerson_Using.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _FixedAssets.HRPerson_Using.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _FixedAssets.HRPerson_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + ElseIf _FixedAssets.CostHolder_Using IsNot Nothing Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _FixedAssets.CostHolder_Using + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(CriteriaOperator.Parse("UniqueObjects.Oid=?", _GLReportRows.UniqueObjects.Oid)) + If _HRPerson IsNot Nothing Then + If _HRPerson.HRPersonCostHolder.Count > 0 Then + For Each _HRPersonCostHolder As HRPersonCostHolder In _HRPerson.HRPersonCostHolder + If _HRPersonCostHolder.DateFrom.Date <= _GLReportRows.DateExecution.Date And _ + _HRPersonCostHolder.DateTo.Date >= _GLReportRows.DateExecution.Date Then + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _HRPersonCostHolder.CostHolder + _GLReportRowsCostHolder.HRPerson = _HRPerson + _GLReportRowsCostHolder.FixedAssets = _FixedAssets + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount * (_HRPersonCostHolder.WorkPercent / 100) + End If + Next + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + Else + _GLReportRowsCostHolder = New GLReportRowsCostHolder(_uow) + + _GLReportRowsCostHolder.GLReport = _GLReportRows.GLReport + _GLReportRowsCostHolder.GLReportRows = _GLReportRows + _GLReportRowsCostHolder.CostHolder = _GLReportRows.CostHolder + _GLReportRowsCostHolder.BallanceAmount = _GLReportRows.BallanceAmount + End If + End If + End If + + End Sub + + Private Sub aViewAttachments_DTR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_DTR.Execute + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + Dim _CustomersFrom As CustomersFrom = _GLReportRows.CustomersFrom + Dim _Customers As Customers = _GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRows.ConnectInfo + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + + Private Sub aViewRegistry_DTR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_DTR.Execute + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + Dim _CustomersFrom As CustomersFrom = _GLReportRows.CustomersFrom + Dim _Customers As Customers = _GLReportRows.Customers + Dim _DocumentNumber As String = _GLReportRows.ConnectInfo + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + + Private Sub aGLDTRChangeParam_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGLDTRChangeParam.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsCheck As GLRowsCheck = _onew.CreateObject(Of GLRowsCheck)() + Dim _GLReportRows As GLReportRows = TryCast(View.SelectedObjects(0), GLReportRows) + + If _GLReportRows IsNot Nothing Then + If _GLReportRows.GLRows IsNot Nothing Then + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _GLReportRows.GLRows.GLHeader.DateExecution.Year)) + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + Else + _GLRowsCheck.ChartOfAccountsYear = _onew.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_onew.Session).Year)) + End If + + e.View = Application.CreateDetailView(_onew, "GLRowsCheck_DetailView", False, _GLRowsCheck) + End Sub + Private Sub aGLDTRChangeParam_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGLDTRChangeParam.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsCheck As GLRowsCheck = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsCheck) + Dim _GLRows As GLRows + Dim _GLReportRows As GLReportRows + Dim I As Long = 0 + Dim _Controlling As Controlling + Dim _JobNumberObjects As JobNumberObjects + Dim _CostHolder As CostHolder + Dim _CostPlace As CostPlace + Dim _UniqueObjects As UniqueObjects + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + + If _GLRowsCheck.Controlling IsNot Nothing Then + _Controlling = _ocur.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.Controlling.Oid), True) + If _Controlling.Children.Count > 0 Then + Throw New Exception(String.Format("Nem gyermekobjektum. <<{0}>> Csak gyermekobjektum választható ki !", _Controlling.Name)) + Exit Sub + End If + Else + _Controlling = Nothing + End If + If _GLRowsCheck.JobNumberObjects IsNot Nothing Then + _JobNumberObjects = _ocur.FindObject(Of JobNumberObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.JobNumberObjects.Oid), True) + Else + _JobNumberObjects = Nothing + End If + If _GLRowsCheck.CostHolder IsNot Nothing Then + _CostHolder = _ocur.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostHolder.Oid), True) + Else + _CostHolder = Nothing + End If + If _GLRowsCheck.CostPlace IsNot Nothing Then + _CostPlace = _ocur.FindObject(Of CostPlace)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CostPlace.Oid), True) + Else + _CostPlace = Nothing + End If + If _GLRowsCheck.UniqueObjects IsNot Nothing Then + _UniqueObjects = _ocur.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.UniqueObjects.Oid), True) + Else + _UniqueObjects = Nothing + End If + If _GLRowsCheck.DebitChartOfAccounts IsNot Nothing Then + _DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.DebitChartOfAccounts.Oid), True) + Else + _DebitChartOfAccounts = Nothing + End If + If _GLRowsCheck.CreditChartOfAccounts IsNot Nothing Then + _CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("Oid=?", _GLRowsCheck.CreditChartOfAccounts.Oid), True) + Else + _CreditChartOfAccounts = Nothing + End If + + If _DebitChartOfAccounts IsNot Nothing And _CreditChartOfAccounts IsNot Nothing Then + If _DebitChartOfAccounts.Oid = _CreditChartOfAccounts.Oid Then + Throw New Exception("*A tartozik és a követel számlaszám NEM lehet azonos !") + Exit Sub + End If + End If + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _GLReportRows In View.SelectedObjects + I += 1 + RaiseEvent DoWork() + _GLRows = _GLReportRows.GLRows + If _GLRows IsNot Nothing Then + If _Controlling IsNot Nothing Then + _GLRows.Controlling = _Controlling + _GLReportRows.Controlling = _Controlling + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.Controlling = _Controlling + _GLRows.RegistryRowsFinancialControlling.Save() + End If + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.Controlling = _Controlling + _GLRows.InvoiceRows.Save() + End If + End If + + If _JobNumberObjects IsNot Nothing Then + _GLRows.JobNumberObjects = _JobNumberObjects + _GLReportRows.JobNumberObjects = _JobNumberObjects + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.JobNumberObjects = _JobNumberObjects + _GLRows.RegistryRowsFinancialControlling.Save() + End If + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.JobNumberObjects = _JobNumberObjects + _GLRows.InvoiceRows.Save() + End If + End If + + If _CostHolder IsNot Nothing Then + _GLRows.CostHolder = _CostHolder + _GLReportRows.CostHolder = _CostHolder + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.CostHolder = _CostHolder + _GLRows.RegistryRowsFinancialControlling.Save() + End If + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.CostHolder = _CostHolder + _GLRows.InvoiceRows.Save() + End If + End If + + If _CostPlace IsNot Nothing Then + _GLRows.CostPlace = _CostPlace + _GLReportRows.CostPlace = _CostPlace + If _GLRows.RegistryRowsFinancialControlling IsNot Nothing Then + _GLRows.RegistryRowsFinancialControlling.CostPlace = _CostPlace + _GLRows.RegistryRowsFinancialControlling.Save() + End If + If _GLRows.InvoiceRows IsNot Nothing Then + _GLRows.InvoiceRows.CostPlace = _CostPlace + _GLRows.InvoiceRows.Save() + End If + End If + + If _UniqueObjects IsNot Nothing Then _GLRows.UniqueObjects = _UniqueObjects + _GLRows.Save() + End If + If I Mod 100 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + End Sub + + Private Sub aSelectCustomersFrom_DTR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom_DTR.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False) + End Sub + + Private Sub aSelectCustomersFrom_DTR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFrom_DTR.Execute + Dim _GLReport As GLReport = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _CustomersFrom As CustomersFrom + Dim _GLReportCustomersFrom As GLReportCustomersFrom + + If _GLReport Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _CustomersFrom In e.PopupWindow.View.SelectedObjects + _GLReportCustomersFrom = New GLReportCustomersFrom(_uow) + _GLReportCustomersFrom.GLReport = _uow.GetObjectByKey(Of GLReport)(_GLReport.Oid) + _GLReportCustomersFrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + + Private Sub aSelectChartOfAccounts_DTR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectChartOfAccounts_DTR.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(ChartOfAccounts)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("AccountYear=?", Year(Now)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("ChartOfAccounts_ListView_Select", _CS, False) + End Sub + Private Sub aSelectChartOfAccounts_DTR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectChartOfAccounts_DTR.Execute + Dim _GLReport As GLReport = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ChartOfAccounts As ChartOfAccounts + Dim _GLReportChartOfAccounts As GLReportChartOfAccounts + + If _GLReport Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _ChartOfAccounts In e.PopupWindow.View.SelectedObjects + _GLReportChartOfAccounts = New GLReportChartOfAccounts(_uow) + _GLReportChartOfAccounts.GLReport = _uow.GetObjectByKey(Of GLReport)(_GLReport.Oid) + _GLReportChartOfAccounts.AccountNumber = _ChartOfAccounts.AccountNumber + _GLReportChartOfAccounts.ShortName = _ChartOfAccounts.Name + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End Sub + + + ' Private Function GetListViewModel(obj As Object) As IModelListView + ' '// Futás közben ListView készítése + ' Dim viewId As String = obj.[GetType]().Name & "_ListView_Custom" + ' Dim modelListView As IModelListView = TryCast(Application.FindModelView(viewId), IModelListView) + ' If modelListView Is Nothing Then + ' modelListView = Application.Model.Views.AddNode(Of IModelListView)(viewId) + ' modelListView.ModelClass = Application.Model.BOModel.GetClass(obj.[GetType]()) + ' End If + ' Return modelListView + ' End Function + ' Private Function GetListViewModel(viewId As String) As IModelView + ' Dim modelListView As IModelListView = TryCast(Application.FindModelView(viewId), IModelListView) + ' If modelListView Is Nothing Then + ' modelListView = Application.Model.Views.AddNode(Of IModelListView)(viewId) + ' modelListView.ModelClass = Application.Model.BOModel.GetClass(myAnalisys.TargetObjectType) + 'New DevExpress.ExpressApp.Model.NodeGenerators.ModelListViewColumnsNodesGenerator().GenerateNodes(DirectCast(modelListView.Columns, ModelNode)) + ' End If + ' Return modelListView + ' End Function + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryCustomersFrom.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryCustomersFrom.vb new file mode 100644 index 0000000..e3049bd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryCustomersFrom.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ABRQueryCustomersFrom + Inherits BaseObject + Private _ABRQueryHeader As ABRQueryHeader + Private _CustomersFrom As CustomersFrom + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property ABRQueryHeader As ABRQueryHeader + Get + Return _ABRQueryHeader + End Get + Set(value As ABRQueryHeader) + SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryHeader.vb new file mode 100644 index 0000000..ed4e2ad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryHeader.vb @@ -0,0 +1,129 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Editors + +Public Enum eABRQueryDateType + eFromDateExecution = 0 + eFromDateRegistry = 1 +End Enum + _ + _ + _ +Public Class ABRQueryHeader 'Aging Balance Report (korostott kvetelsekrl szl kimutats) + Inherits BaseObject + Private _DateClose As Date 'Zrdtum + Private _ShortName As String 'A lekrdezs megnevezse + Private _PartnerType As ePartnerType + Private _UserCreated As User + Private _ObjectCreated As Date + Private _ABRQueryDateType As eABRQueryDateType = eABRQueryDateType.eFromDateExecution + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + Dim _ABRQueryCustomersFrom As ABRQueryCustomersFrom + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session) + Dim _CustomersFrom As CustomersFrom + + For Each _CustomersFrom In _CustomersFrom_Collection + _ABRQueryCustomersFrom = New ABRQueryCustomersFrom(Session) + _ABRQueryCustomersFrom.ABRQueryHeader = Me + _ABRQueryCustomersFrom.CustomersFrom = _CustomersFrom + Next + DateClose = Now + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property ABRQueryDateType As eABRQueryDateType + Get + Return _ABRQueryDateType + End Get + Set(value As eABRQueryDateType) + SetPropertyValue("ABRQueryDateType", _ABRQueryDateType, value) + End Set + End Property + + _ + ReadOnly Property ABRQueryRows As XPCollection(Of ABRQueryRows) + Get + Return GetCollection(Of ABRQueryRows)("ABRQueryRows") + End Get + End Property + _ + ReadOnly Property ABRQueryRowsDetail As XPCollection(Of ABRQueryRowsDetail) + Get + Return GetCollection(Of ABRQueryRowsDetail)("ABRQueryRowsDetail") + End Get + End Property + _ + ReadOnly Property ABRQueryCustomersFrom As XPCollection(Of ABRQueryCustomersFrom) + Get + Return GetCollection(Of ABRQueryCustomersFrom)("ABRQueryCustomersFrom") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRows.vb new file mode 100644 index 0000000..a5ef5c8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRows.vb @@ -0,0 +1,270 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ABRQueryRows + Inherits BaseObject + Private _ABRQueryHeader As ABRQueryHeader + Private _GLCardsHeader As GLCardsHeader + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _CurrencyName_Account As CurrencyName + Private _BallanceHUF As Double + Private _BallanceDEV As Double + + + Private _D00_OpenLiquidHUF As Double = 0 + Private _D00_OpenLiquidDEV As Double = 0 + Private _D01_NotExpiredHUF As Double + Private _D01_NotExpiredDEV As Double + Private _D02_001_015HUF As Double + Private _D02_001_015DEV As Double + Private _D03_016_030HUF As Double + Private _D03_016_030DEV As Double + Private _D04_031_060HUF As Double + Private _D04_031_060DEV As Double + Private _D05_061_090HUF As Double + Private _D05_061_090DEV As Double + Private _D06_091_150HUF As Double + Private _D06_091_150DEV As Double + Private _D07_151_365HUF As Double + Private _D07_151_365DEV As Double + Private _D08_OverOneYearHUF As Double + Private _D08_OverOneYearDEV As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ABRQueryHeader As ABRQueryHeader + Get + Return _ABRQueryHeader + End Get + Set(value As ABRQueryHeader) + SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value) + End Set + End Property + _ + Property GLCardsHeader As GLCardsHeader + Get + Return _GLCardsHeader + End Get + Set(value As GLCardsHeader) + SetPropertyValue("GLCardsHeader", _GLCardsHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property CurrencyName_Account As CurrencyName + Get + Return _CurrencyName_Account + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property D00_OpenLiquidHUF As Double + Get + Return _D00_OpenLiquidHUF + End Get + Set(value As Double) + SetPropertyValue("D00_OpenLiquidHUF", _D00_OpenLiquidHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D00_OpenLiquidDEV As Double + Get + Return _D00_OpenLiquidDEV + End Get + Set(value As Double) + SetPropertyValue("D00_OpenLiquidDEV", _D00_OpenLiquidDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D01_NotExpiredHUF As Double + Get + Return _D01_NotExpiredHUF + End Get + Set(value As Double) + SetPropertyValue("D01_NotExpiredHUF", _D01_NotExpiredHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D01_NotExpiredDEV As Double + Get + Return _D01_NotExpiredDEV + End Get + Set(value As Double) + SetPropertyValue("D01_NotExpiredDEV", _D01_NotExpiredDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D02_001_015HUF As Double + Get + Return _D02_001_015HUF + End Get + Set(value As Double) + SetPropertyValue("D02_001_015HUF", _D02_001_015HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D02_001_015DEV As Double + Get + Return _D02_001_015DEV + End Get + Set(value As Double) + SetPropertyValue("D02_001_015DEV", _D02_001_015DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D03_016_030HUF As Double + Get + Return _D03_016_030HUF + End Get + Set(value As Double) + SetPropertyValue("D03_016_030HUF", _D03_016_030HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D03_016_030DEV As Double + Get + Return _D03_016_030DEV + End Get + Set(value As Double) + SetPropertyValue("D03_016_030DEV", _D03_016_030DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D04_031_060HUF As Double + Get + Return _D04_031_060HUF + End Get + Set(value As Double) + SetPropertyValue("D04_031_060HUF", _D04_031_060HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D04_031_060DEV As Double + Get + Return _D04_031_060DEV + End Get + Set(value As Double) + SetPropertyValue("D04_031_060DEV", _D04_031_060DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D05_061_090HUF As Double + Get + Return _D05_061_090HUF + End Get + Set(value As Double) + SetPropertyValue("D05_061_090HUF", _D05_061_090HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D05_061_090DEV As Double + Get + Return _D05_061_090DEV + End Get + Set(value As Double) + SetPropertyValue("D05_061_090DEV", _D05_061_090DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D06_091_150HUF As Double + Get + Return _D06_091_150HUF + End Get + Set(value As Double) + SetPropertyValue("D06_091_150HUF", _D06_091_150HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D06_091_150DEV As Double + Get + Return _D06_091_150DEV + End Get + Set(value As Double) + SetPropertyValue("D06_091_150DEV", _D06_091_150DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D07_151_365HUF As Double + Get + Return _D07_151_365HUF + End Get + Set(value As Double) + SetPropertyValue("D07_151_365HUF", _D07_151_365HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D07_151_365DEV As Double + Get + Return _D07_151_365DEV + End Get + Set(value As Double) + SetPropertyValue("D07_151_365DEV", _D07_151_365DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D08_OverOneYearHUF As Double + Get + Return _D08_OverOneYearHUF + End Get + Set(value As Double) + SetPropertyValue("D08_OverOneYearHUF", _D08_OverOneYearHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D08_OverOneYearDEV As Double + Get + Return _D08_OverOneYearDEV + End Get + Set(value As Double) + SetPropertyValue("D08_OverOneYearDEV", _D08_OverOneYearDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRowsDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRowsDetail.vb new file mode 100644 index 0000000..21de699 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryRowsDetail.vb @@ -0,0 +1,344 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ABRQueryRowsDetail + Inherits BaseObject + Private _ABRQueryHeader As ABRQueryHeader + Private _GLCardsHeader As GLCardsHeader + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Partner + Private _PartnerType As ePartnerType 'Partner tipusa + Private _ConnectInfo As String 'Pontozsi azonost + Private _DocumentNumber As String 'A szmla szma + Private _RegistryNumber As String 'A szmla iktatszma (ha vev akkor megegyezik a szmla szmval) + Private _DateExecution As Date 'A szmla teljetsi dtuma + Private _DatePayment As Date 'A szmla fizetsi hatrideje + Private _CurrencyName_Account As CurrencyName 'A szmla devizaneme + Private _AmountHUF As Double = 0 'A szmla sszege HUF + Private _AmountDEV As Double = 0 'Aszmla sszege DEV + Private _BallanceHUF As Double = 0 'A szmla egyenlege HUF + Private _BallanceDEV As Double = 0 'A szmla devizanemben lv egyenlege + + Private _D00_OpenLiquidHUF As Double = 0 + Private _D00_OpenLiquidDEV As Double = 0 + Private _D01_NotExpiredHUF As Double = 0 'Nem lejrt + Private _D01_NotExpiredDEV As Double = 0 + Private _D02_001_015HUF As Double = 0 '1-15 napon bell + Private _D02_001_015DEV As Double = 0 + Private _D03_016_030HUF As Double = 0 + Private _D03_016_030DEV As Double = 0 + Private _D04_031_060HUF As Double = 0 + Private _D04_031_060DEV As Double = 0 + Private _D05_061_090HUF As Double = 0 + Private _D05_061_090DEV As Double = 0 + Private _D06_091_150HUF As Double = 0 + Private _D06_091_150DEV As Double = 0 + Private _D07_151_365HUF As Double = 0 + Private _D07_151_365DEV As Double = 0 + Private _D08_OverOneYearHUF As Double = 0 + Private _D08_OverOneYearDEV As Double = 0 + + Private _DelayedDay As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ABRQueryHeader As ABRQueryHeader + Get + Return _ABRQueryHeader + End Get + Set(value As ABRQueryHeader) + SetPropertyValue("ABRQueryHeader", _ABRQueryHeader, value) + End Set + End Property + _ + Property GLCardsHeader As GLCardsHeader + Get + Return _GLCardsHeader + End Get + Set(value As GLCardsHeader) + SetPropertyValue("GLCardsHeader", _GLCardsHeader, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property RegistryNumber As String + Get + Return _RegistryNumber + End Get + Set(value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property CurrencyName_Account As CurrencyName + Get + Return _CurrencyName_Account + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property D00_OpenLiquidHUF As Double + Get + Return _D00_OpenLiquidHUF + End Get + Set(value As Double) + SetPropertyValue("D00_OpenLiquidHUF", _D00_OpenLiquidHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D00_OpenLiquidDEV As Double + Get + Return _D00_OpenLiquidDEV + End Get + Set(value As Double) + SetPropertyValue("D00_OpenLiquidDEV", _D00_OpenLiquidDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D01_NotExpiredHUF As Double + Get + Return _D01_NotExpiredHUF + End Get + Set(value As Double) + SetPropertyValue("D01_NotExpiredHUF", _D01_NotExpiredHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D01_NotExpiredDEV As Double + Get + Return _D01_NotExpiredDEV + End Get + Set(value As Double) + SetPropertyValue("D01_NotExpiredDEV", _D01_NotExpiredDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D02_001_015HUF As Double + Get + Return _D02_001_015HUF + End Get + Set(value As Double) + SetPropertyValue("D02_001_015HUF", _D02_001_015HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D02_001_015DEV As Double + Get + Return _D02_001_015DEV + End Get + Set(value As Double) + SetPropertyValue("D02_001_015DEV", _D02_001_015DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D03_016_030HUF As Double + Get + Return _D03_016_030HUF + End Get + Set(value As Double) + SetPropertyValue("D03_016_030HUF", _D03_016_030HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D03_016_030DEV As Double + Get + Return _D03_016_030DEV + End Get + Set(value As Double) + SetPropertyValue("D03_016_030DEV", _D03_016_030DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D04_031_060HUF As Double + Get + Return _D04_031_060HUF + End Get + Set(value As Double) + SetPropertyValue("D04_031_060HUF", _D04_031_060HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D04_031_060DEV As Double + Get + Return _D04_031_060DEV + End Get + Set(value As Double) + SetPropertyValue("D04_031_060DEV", _D04_031_060DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D05_061_090HUF As Double + Get + Return _D05_061_090HUF + End Get + Set(value As Double) + SetPropertyValue("D05_061_090HUF", _D05_061_090HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D05_061_090DEV As Double + Get + Return _D05_061_090DEV + End Get + Set(value As Double) + SetPropertyValue("D05_061_090DEV", _D05_061_090DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D06_091_150HUF As Double + Get + Return _D06_091_150HUF + End Get + Set(value As Double) + SetPropertyValue("D06_091_150HUF", _D06_091_150HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D06_091_150DEV As Double + Get + Return _D06_091_150DEV + End Get + Set(value As Double) + SetPropertyValue("D06_091_150DEV", _D06_091_150DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D07_151_365HUF As Double + Get + Return _D07_151_365HUF + End Get + Set(value As Double) + SetPropertyValue("D07_151_365HUF", _D07_151_365HUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D07_151_365DEV As Double + Get + Return _D07_151_365DEV + End Get + Set(value As Double) + SetPropertyValue("D07_151_365DEV", _D07_151_365DEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D08_OverOneYearHUF As Double + Get + Return _D08_OverOneYearHUF + End Get + Set(value As Double) + SetPropertyValue("D08_OverOneYearHUF", _D08_OverOneYearHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property D08_OverOneYearDEV As Double + Get + Return _D08_OverOneYearDEV + End Get + Set(value As Double) + SetPropertyValue("D08_OverOneYearDEV", _D08_OverOneYearDEV, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property DelayedDay As Long + Get + Return _DelayedDay + End Get + Set(ByVal value As Long) + SetPropertyValue("DelayedDay", _DelayedDay, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.Designer.vb new file mode 100644 index 0000000..60b82de --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.Designer.vb @@ -0,0 +1,121 @@ +Partial Class ABRQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateABRQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectCustomersFromABR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewAttachmentsABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistryABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDABR = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPrintABRReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_ABRReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDABR_GLDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateABRQuery + ' + Me.aGenerateABRQuery.Caption = "Generate ABRQuery" + Me.aGenerateABRQuery.ConfirmationMessage = "Do You want to execute ?" + Me.aGenerateABRQuery.Id = "aGenerateABRQuery" + Me.aGenerateABRQuery.ToolTip = Nothing + ' + 'aSelectCustomersFromABR + ' + Me.aSelectCustomersFromABR.AcceptButtonCaption = Nothing + Me.aSelectCustomersFromABR.CancelButtonCaption = Nothing + Me.aSelectCustomersFromABR.Caption = "Select CustomersFrom" + Me.aSelectCustomersFromABR.ConfirmationMessage = Nothing + Me.aSelectCustomersFromABR.Id = "aSelectCustomersFromABR" + Me.aSelectCustomersFromABR.ToolTip = Nothing + ' + 'aViewAttachmentsABR + ' + Me.aViewAttachmentsABR.Caption = "aViewAttachmentsABR" + Me.aViewAttachmentsABR.ConfirmationMessage = Nothing + Me.aViewAttachmentsABR.Id = "aViewAttachmentsABR" + Me.aViewAttachmentsABR.ImageName = "printer_view" + Me.aViewAttachmentsABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachmentsABR.TargetViewId = "" + Me.aViewAttachmentsABR.ToolTip = Nothing + ' + 'aViewRegistryABR + ' + Me.aViewRegistryABR.Caption = "aViewRegistryABR" + Me.aViewRegistryABR.ConfirmationMessage = Nothing + Me.aViewRegistryABR.Id = "aViewRegistryABR" + Me.aViewRegistryABR.ImageName = "document_pinned" + Me.aViewRegistryABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistryABR.TargetViewId = "" + Me.aViewRegistryABR.ToolTip = Nothing + ' + 'aViewPCIDABR + ' + Me.aViewPCIDABR.Caption = "aViewPCIDABR" + Me.aViewPCIDABR.ConfirmationMessage = Nothing + Me.aViewPCIDABR.Id = "aViewPCIDABR" + Me.aViewPCIDABR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDABR.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail) + Me.aViewPCIDABR.TargetViewId = "" + Me.aViewPCIDABR.ToolTip = Nothing + ' + 'aPrintABRReport + ' + Me.aPrintABRReport.Caption = "aPrint ABRReport" + Me.aPrintABRReport.ConfirmationMessage = Nothing + Me.aPrintABRReport.Id = "aPrintABRReport" + Me.aPrintABRReport.ToolTip = Nothing + ' + 'aPCICheck_ABRReport + ' + Me.aPCICheck_ABRReport.Caption = "aPCICheck_ABRReport" + Me.aPCICheck_ABRReport.ConfirmationMessage = Nothing + Me.aPCICheck_ABRReport.Id = "aPCICheck_ABRReport" + Me.aPCICheck_ABRReport.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_ABRReport.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail) + Me.aPCICheck_ABRReport.ToolTip = Nothing + ' + 'aViewPCIDABR_GLDetails + ' + Me.aViewPCIDABR_GLDetails.Caption = "aViewPCIDABR" + Me.aViewPCIDABR_GLDetails.ConfirmationMessage = Nothing + Me.aViewPCIDABR_GLDetails.Id = "aViewPCIDABR_GLDetails" + Me.aViewPCIDABR_GLDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDABR_GLDetails.TargetObjectType = GetType(SISBusiness.[Module].ABRQueryRowsDetail) + Me.aViewPCIDABR_GLDetails.TargetViewId = "" + Me.aViewPCIDABR_GLDetails.ToolTip = Nothing + + End Sub + Friend WithEvents aGenerateABRQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectCustomersFromABR As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewAttachmentsABR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistryABR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDABR As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintABRReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck_ABRReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDABR_GLDetails As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.resx new file mode 100644 index 0000000..475048b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.resx @@ -0,0 +1,147 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 212 + + + 17, 251 + + + 17, 95 + + + 21, 291 + + + 194, 291 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb new file mode 100644 index 0000000..f3e996f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Aging Balance Report/ABRQueryVC.vb @@ -0,0 +1,457 @@ +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 System.Linq +Imports DevExpress.ExpressApp.SystemModule +Imports SISBusiness.Module.SIS.Linq.Dynamic +Imports DevExpress.Persistent.BaseImpl + +Public Class ABRQueryVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 ABRQueryVC).aGenerateABRQuery.Active.SetItemValue("", False) + Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", False) + Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", False) + Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", False) + Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", False) + + If View.Id = "ABRQueryHeader_DetailView" Then + Frame.GetController(Of ABRQueryVC).aGenerateABRQuery.Active.SetItemValue("", True) + Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True) + End If + If View.Id = "ABRQueryHeader_ListView" Then + Frame.GetController(Of ABRQueryVC).aPrintABRReport.Active.SetItemValue("", True) + End If + If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of ABRQueryVC).aSelectCustomersFromABR.Active.SetItemValue("", True) + End If + If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_HUF" Then + Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", True) + Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", True) + End If + If View.Id = "ABRQueryHeader_ABRQueryRowsDetail_ListView_DEV" Then + Frame.GetController(Of ABRQueryVC).aViewAttachmentsABR.Active.SetItemValue("", True) + Frame.GetController(Of ABRQueryVC).aViewRegistryABR.Active.SetItemValue("", True) + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ABRQueryHeader_ABRQueryCustomersFrom_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aGenerateABRQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateABRQuery.Execute + '-- Az adott záródátumra vonatkozó partner connection infot adja meg + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim i As Long = 0 + Dim _DifDay As Long + Dim _ABRQueryRows As ABRQueryRows + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail + + + '// Mielőtt bármi van, le kell futtatni: + 'UPDATE GLHeader + 'DateCreated = DateExecution + 'Where(DateCreated Is NULL) + Dim _SQL As String = "" + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + _SQL = "UPDATE GLHeader Set DateCreated = DateExecution WHERE DateCreated Is NULL" + Case eSQLType.MySQL + _SQL = "UPDATE GLHeader Set DateCreated = DateExecution WHERE DateCreated Is NULL" + Case eSQLType.PostgreSQL + _SQL = "UPDATE ""GLHeader"" Set ""DateCreated"" = ""DateExecution"" WHERE ""DateCreated"" Is NULL" + End Select + _uow.ExecuteNonQuery(_SQL) + _uow.CommitChanges() + + Dim _ABRQueryHeader As ABRQueryHeader = _uow.GetObjectByKey(Of ABRQueryHeader) _ + (TryCast(View.SelectedObjects(0), ABRQueryHeader).Oid) + + If _ABRQueryHeader Is Nothing Then Exit Sub + + _ABRQueryHeader.Save() + + Dim _ABRQueryRows_Collection As New XPCollection(Of ABRQueryRows) _ + (_uow, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader)) + _uow.Delete(_ABRQueryRows_Collection) + + Dim _ABRQueryRowsDetail_Collection As New XPCollection(Of ABRQueryRowsDetail) _ + (_uow, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader)) + _uow.Delete(_ABRQueryRowsDetail_Collection) + + + '-- Lekérdezés, adott teljesítési dátumig történõ lekérdezés LINQ paranccsal + Dim CFC As New XPQuery(Of ABRQueryCustomersFrom)(_uow) + Dim cquery = From _CFC In CFC + Where _CFC.ABRQueryHeader.Oid = _ABRQueryHeader.Oid + Select _CFC.CustomersFrom.Oid + Dim PCI As New XPQuery(Of PCIDetail)(_uow) + Dim query As System.Linq.IQueryable(Of Object) + If _ABRQueryHeader.ABRQueryDateType = eABRQueryDateType.eFromDateExecution Then + query = From _PCI In PCI + Where _PCI.DateExecution.Date <= _ABRQueryHeader.DateClose.Date And + _PCI.Customers IsNot Nothing And + _PCI.ConnectInfo IsNot Nothing And + cquery.Contains(_PCI.CustomersFrom.Oid) And + _PCI.PartnerType = _ABRQueryHeader.PartnerType + Group _PCI By _PCI.CustomersFrom, _ + _PCI.Customers, _ + _PCI.PartnerType, _ + _PCI.CurrencyName_Account, _ + _PCI.ConnectInfo Into g = Group + Order By PartnerType, CurrencyName_Account, CustomersFrom, Customers, ConnectInfo + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, _ + Key .ConnectInfo = ConnectInfo, _ + Key .CurrencyName_Account = CurrencyName_Account, _ + Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _ + Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _ + Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _ + Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _ + Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _ + Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _ + } + Else + query = From _PCI In PCI + Where If(String.IsNullOrEmpty(_PCI.DateCreated.Date), _PCI.DateExecution.Date, _PCI.DateCreated.Date) <= _ABRQueryHeader.DateClose.Date And + _PCI.Customers IsNot Nothing And + _PCI.ConnectInfo IsNot Nothing And + cquery.Contains(_PCI.CustomersFrom.Oid) And + _PCI.PartnerType = _ABRQueryHeader.PartnerType + Group _PCI By _PCI.CustomersFrom, _ + _PCI.Customers, _ + _PCI.PartnerType, _ + _PCI.CurrencyName_Account, _ + _PCI.ConnectInfo Into g = Group + Order By PartnerType, CurrencyName_Account, CustomersFrom, Customers, ConnectInfo + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, _ + Key .ConnectInfo = ConnectInfo, _ + Key .CurrencyName_Account = CurrencyName_Account, _ + Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _ + Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _ + Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _ + Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _ + Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _ + Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _ + } + End If + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + Dim _CurrencyName_Account As String = "" + If item.CurrencyName_Account Is Nothing Then + _CurrencyName_Account = "" + Else + _CurrencyName_Account = item.CurrencyName_Account.ShortName + End If + i += 1 + If _CurrencyName_Account = "" Then + _ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow) + _ABRQueryRowsDetail.ABRQueryHeader = _ABRQueryHeader + _ABRQueryRowsDetail.BallanceDEV = Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) + _ABRQueryRowsDetail.BallanceHUF = Math.Round(item.BallanceHUF, 2, MidpointRounding.AwayFromZero) + _ABRQueryRowsDetail.CustomersFrom = item.CustomersFrom + _ABRQueryRowsDetail.Customers = item.Customers + _ABRQueryRowsDetail.PartnerType = item.PartnerType + _ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo + _ABRQueryRowsDetail.DocumentNumber = item.DocumentNumber + _ABRQueryRowsDetail.RegistryNumber = item.RegistryNumber + _ABRQueryRowsDetail.DateExecution = item.DateExecution.Date + _ABRQueryRowsDetail.DatePayment = item.DatePayment.Date + _ABRQueryRowsDetail.AmountHUF = Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + _ABRQueryRowsDetail.AmountDEV = item.AmountDEV + _ABRQueryRowsDetail.D00_OpenLiquidHUF = item.BallanceHUF + _ABRQueryRowsDetail.D00_OpenLiquidDEV = item.BallanceDEV + + ElseIf (_CurrencyName_Account = "HUF" And Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0) Or _ + _CurrencyName_Account <> "HUF" And Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then + + _ABRQueryRowsDetail = New ABRQueryRowsDetail(_uow) + _ABRQueryRowsDetail.ABRQueryHeader = _ABRQueryHeader + _ABRQueryRowsDetail.BallanceDEV = item.BallanceDEV + _ABRQueryRowsDetail.BallanceHUF = item.BallanceHUF + _ABRQueryRowsDetail.CustomersFrom = item.CustomersFrom + _ABRQueryRowsDetail.Customers = item.Customers + _ABRQueryRowsDetail.PartnerType = item.PartnerType + _ABRQueryRowsDetail.ConnectInfo = item.ConnectInfo + _ABRQueryRowsDetail.DocumentNumber = item.DocumentNumber + _ABRQueryRowsDetail.RegistryNumber = item.RegistryNumber + _ABRQueryRowsDetail.DateExecution = item.DateExecution.Date + _ABRQueryRowsDetail.DatePayment = item.DatePayment.Date + _ABRQueryRowsDetail.CurrencyName_Account = item.CurrencyName_Account + _ABRQueryRowsDetail.AmountHUF = item.AmountHUF + _ABRQueryRowsDetail.AmountDEV = item.AmountDEV + + If _ABRQueryHeader.DateClose.Date <= GetSQLTime(_ocur.Session).Date Then + _DifDay = DateDiff(DateInterval.Day, item.DatePayment.Date, _ABRQueryHeader.DateClose.Date) + Else + _DifDay = DateDiff(DateInterval.Day, item.DatePayment.Date, GetSQLTime(_ocur.Session).Date) + End If + + + _ABRQueryRowsDetail.DelayedDay = _DifDay + Select Case _DifDay + Case Is <= 0 + _ABRQueryRowsDetail.D01_NotExpiredHUF = item.BallanceHUF + _ABRQueryRowsDetail.D01_NotExpiredDEV = item.BallanceDEV + Case 1 To 15 + _ABRQueryRowsDetail.D02_001_015DEV = item.BallanceDEV + _ABRQueryRowsDetail.D02_001_015HUF = item.BallanceHUF + Case 16 To 30 + _ABRQueryRowsDetail.D03_016_030DEV = item.BallanceDEV + _ABRQueryRowsDetail.D03_016_030HUF = item.BallanceHUF + Case 31 To 60 + _ABRQueryRowsDetail.D04_031_060DEV = item.BallanceDEV + _ABRQueryRowsDetail.D04_031_060HUF = item.BallanceHUF + Case 61 To 90 + _ABRQueryRowsDetail.D05_061_090DEV = item.BallanceDEV + _ABRQueryRowsDetail.D05_061_090HUF = item.BallanceHUF + Case 91 To 150 + _ABRQueryRowsDetail.D06_091_150DEV = item.BallanceDEV + _ABRQueryRowsDetail.D06_091_150HUF = item.BallanceHUF + Case 151 To 365 + _ABRQueryRowsDetail.D07_151_365DEV = item.BallanceDEV + _ABRQueryRowsDetail.D07_151_365HUF = item.BallanceHUF + Case Is > 365 + _ABRQueryRowsDetail.D08_OverOneYearDEV = item.BallanceDEV + _ABRQueryRowsDetail.D08_OverOneYearHUF = item.BallanceHUF + + End Select + End If + If i Mod 1000 Then _uow.CommitChanges() + RaiseEvent DoWork() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + i = 0 + Dim PCI2 As New XPQuery(Of ABRQueryRowsDetail)(_uow) + Dim query2 = From _PCI2 In PCI2 + Where _PCI2.ABRQueryHeader Is _ABRQueryHeader + Group _PCI2 By + _PCI2.CustomersFrom, _ + _PCI2.Customers, _ + _PCI2.PartnerType, _ + _PCI2.CurrencyName_Account Into g = Group + Order By CustomersFrom, Customers, PartnerType, CurrencyName_Account + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, + Key .CurrencyName_Account = CurrencyName_Account, + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), + Key .D00_OpenLiquidDEV = g.Sum(Function(inv) inv.D00_OpenLiquidDEV), + Key .D00_OpenLiquidHUF = g.Sum(Function(inv) inv.D00_OpenLiquidHUF), + Key .D02_001_015DEV = g.Sum(Function(inv) inv.D02_001_015DEV), + Key .D02_001_015HUF = g.Sum(Function(inv) inv.D02_001_015HUF), + Key .D03_016_030DEV = g.Sum(Function(inv) inv.D03_016_030DEV), + Key .D03_016_030HUF = g.Sum(Function(inv) inv.D03_016_030HUF), + Key .D04_031_060DEV = g.Sum(Function(inv) inv.D04_031_060DEV), + Key .D04_031_060HUF = g.Sum(Function(inv) inv.D04_031_060HUF), + Key .D05_061_090DEV = g.Sum(Function(inv) inv.D05_061_090DEV), + Key .D05_061_090HUF = g.Sum(Function(inv) inv.D05_061_090HUF), + Key .D06_091_150DEV = g.Sum(Function(inv) inv.D06_091_150DEV), + Key .D06_091_150HUF = g.Sum(Function(inv) inv.D06_091_150HUF), + Key .D07_151_365DEV = g.Sum(Function(inv) inv.D07_151_365DEV), + Key .D07_151_365HUF = g.Sum(Function(inv) inv.D07_151_365HUF), + Key .D01_NotExpiredHUF = g.Sum(Function(inv) inv.D01_NotExpiredHUF), + Key .D01_NotExpiredDEV = g.Sum(Function(inv) inv.D01_NotExpiredDEV), + Key .D08_OverOneYearHUF = g.Sum(Function(inv) inv.D08_OverOneYearHUF), + Key .D08_OverOneYearDEV = g.Sum(Function(inv) inv.D08_OverOneYearDEV)} + RaiseEvent InitWork(1, 1, query2.Count) + + For Each item In query2 + i += 1 + RaiseEvent DoWork() + _ABRQueryRows = New ABRQueryRows(_uow) + _ABRQueryRows.ABRQueryHeader = _ABRQueryHeader + _ABRQueryRows.BallanceDEV = item.BallanceDEV + _ABRQueryRows.BallanceHUF = item.BallanceHUF + _ABRQueryRows.CurrencyName_Account = item.CurrencyName_Account + _ABRQueryRows.Customers = item.Customers + _ABRQueryRows.CustomersFrom = item.CustomersFrom + _ABRQueryRows.PartnerType = item.PartnerType + + _ABRQueryRows.D00_OpenLiquidDEV = item.D00_OpenLiquidDEV + _ABRQueryRows.D00_OpenLiquidHUF = item.D00_OpenLiquidHUF + + _ABRQueryRows.D01_NotExpiredDEV = item.D01_NotExpiredDEV + _ABRQueryRows.D01_NotExpiredHUF = item.D01_NotExpiredHUF + + _ABRQueryRows.D02_001_015DEV = item.D02_001_015DEV + _ABRQueryRows.D02_001_015HUF = item.D02_001_015HUF + + _ABRQueryRows.D03_016_030DEV = item.D03_016_030DEV + _ABRQueryRows.D03_016_030HUF = item.D03_016_030HUF + + _ABRQueryRows.D04_031_060DEV = item.D04_031_060DEV + _ABRQueryRows.D04_031_060HUF = item.D04_031_060HUF + + _ABRQueryRows.D05_061_090DEV = item.D05_061_090DEV + _ABRQueryRows.D05_061_090HUF = item.D05_061_090HUF + + _ABRQueryRows.D06_091_150DEV = item.D06_091_150DEV + _ABRQueryRows.D06_091_150HUF = item.D06_091_150HUF + + _ABRQueryRows.D07_151_365DEV = item.D07_151_365DEV + _ABRQueryRows.D07_151_365HUF = item.D07_151_365HUF + + _ABRQueryRows.D08_OverOneYearDEV = item.D08_OverOneYearDEV + _ABRQueryRows.D08_OverOneYearHUF = item.D08_OverOneYearHUF + + If i Mod 1000 Then _uow.CommitChanges() + Next + _uow.CommitChanges() + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Private Sub aSelectCustomersFromABR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFromABR.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False) + End Sub + + Private Sub aSelectCustomersFromABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFromABR.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Customersfrom As CustomersFrom + Dim _ABRQueryHeader As ABRQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _ABRQueryCustomersFrom As ABRQueryCustomersFrom + + If _ABRQueryHeader Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _Customersfrom In e.PopupWindow.View.SelectedObjects + _ABRQueryCustomersFrom = New ABRQueryCustomersFrom(_uow) + _ABRQueryCustomersFrom.ABRQueryHeader = _uow.GetObjectByKey(Of ABRQueryHeader)(_ABRQueryHeader.Oid) + _ABRQueryCustomersFrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_Customersfrom.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + + Private Sub aViewAttachmentsABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachmentsABR.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail) + + If _ABRQueryRowsDetail IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _ABRQueryRowsDetail.CustomersFrom, _ + _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.ConnectInfo, _ + "") + End If + End Sub + + Private Sub aViewRegistryABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryABR.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail) + + If _ABRQueryRowsDetail IsNot Nothing Then + ViewRegistry.ViewRegistry(_ocur, Application, e, _ABRQueryRowsDetail.CustomersFrom, _ + _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.ConnectInfo) + End If + End Sub + + Private Sub aViewPCIDABR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDABR.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _ABRQueryRowsDetail.CustomersFrom, _ + _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _ + _ABRQueryRowsDetail.ConnectInfo) + End Sub + + Private Sub aPrintABRReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintABRReport.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _ABRQueryHeader As ABRQueryHeader = TryCast(View.SelectedObjects(0), ABRQueryHeader) + + If _ABRQueryHeader IsNot Nothing Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Korosított kinnlévőség Riport")) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ABRQueryHeader=?", _ABRQueryHeader), True) + Else + Throw New UserFriendlyException("Nincs beállítva a Korosított kinnlévőség Riport nyomtatvány !") + End If + End If + End Sub + + Private Sub aPCICheck_ABRReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_ABRReport.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _ABRQueryRowsDetail In View.SelectedObjects + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _ABRQueryRowsDetail.CustomersFrom, _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _ABRQueryRowsDetail.ConnectInfo) + + Next + RaiseEvent FinalWork + End Sub + + Private Sub aViewPCIDABR_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDABR_GLDetails.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ABRQueryRowsDetail As ABRQueryRowsDetail = TryCast(View.SelectedObjects(0), ABRQueryRowsDetail) + + ViewPDCI.ViewGLDetails(_onew, Application, e, _ABRQueryRowsDetail.CustomersFrom, _ + _ABRQueryRowsDetail.Customers, _ABRQueryRowsDetail.PartnerType, _ + _ABRQueryRowsDetail.ConnectInfo) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.Designer.vb new file mode 100644 index 0000000..054bae1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.Designer.vb @@ -0,0 +1,81 @@ +Partial Class PCICheckerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGeneratePCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDGroup_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDGroup_GLDetails_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_PCIChecker = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGeneratePCIChecker + ' + Me.aGeneratePCIChecker.Caption = "aGenerate PCIChecker" + Me.aGeneratePCIChecker.ConfirmationMessage = Nothing + Me.aGeneratePCIChecker.Id = "aGeneratePCIChecker" + Me.aGeneratePCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGeneratePCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLChecker) + Me.aGeneratePCIChecker.ToolTip = Nothing + ' + 'aViewPCIDGroup_PCIChecker + ' + Me.aViewPCIDGroup_PCIChecker.Caption = "aViewPCIDGroup_PCIChecker" + Me.aViewPCIDGroup_PCIChecker.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_PCIChecker.Id = "aViewPCIDGroup_PCIChecker" + Me.aViewPCIDGroup_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows) + Me.aViewPCIDGroup_PCIChecker.TargetViewId = "" + Me.aViewPCIDGroup_PCIChecker.ToolTip = Nothing + ' + 'aViewPCIDGroup_GLDetails_PCIChecker + ' + Me.aViewPCIDGroup_GLDetails_PCIChecker.Caption = "aViewPCIDGroup_GLDetails_PCIChecker" + Me.aViewPCIDGroup_GLDetails_PCIChecker.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_GLDetails_PCIChecker.Id = "aViewPCIDGroup_GLDetails_PCIChecker" + Me.aViewPCIDGroup_GLDetails_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_GLDetails_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows) + Me.aViewPCIDGroup_GLDetails_PCIChecker.TargetViewId = "" + Me.aViewPCIDGroup_GLDetails_PCIChecker.ToolTip = Nothing + ' + 'aPCICheck_PCIChecker + ' + Me.aPCICheck_PCIChecker.Caption = "aPCICheck_PCIChecker" + Me.aPCICheck_PCIChecker.ConfirmationMessage = Nothing + Me.aPCICheck_PCIChecker.Id = "aPCICheck_PCIChecker" + Me.aPCICheck_PCIChecker.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_PCIChecker.TargetObjectType = GetType(SISBusiness.[Module].PCIGLCheckerRows) + Me.aPCICheck_PCIChecker.TargetViewId = "" + Me.aPCICheck_PCIChecker.ToolTip = Nothing + Me.aPCICheck_PCIChecker.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aGeneratePCIChecker As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup_GLDetails_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck_PCIChecker As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.resx new file mode 100644 index 0000000..e8e34b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 665, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.vb new file mode 100644 index 0000000..799f79c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCICheckerVC.vb @@ -0,0 +1,209 @@ +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.Xpo +Imports DevExpress.Xpo.DB + + +' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic. +Partial Public Class PCICheckerVC + Inherits ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 aGeneratePCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePCIChecker.Execute + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _PCIGLChecker As PCIGLChecker = _uow.GetObjectByKey(Of PCIGLChecker)(TryCast(View.SelectedObjects(0), PCIGLChecker).Oid) + Dim _PCIGLCheckerRows As PCIGLCheckerRows + Dim _SQL As String = "" + Dim _IN As String = "" + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _AccountNumber As String = "" + '// elszr a nem nulla egyenleg Fknyvbl + + _uow.Delete(_PCIGLChecker.PCIGLCheckerRows) + _uow.CommitChanges() + + Dim _CustomersGLParametersYear_Collection As New XPCollection(Of CustomersGLParametersYear)(_uow, CriteriaOperator.Parse("IsNull(GCRecord)=True and IsNull(CustomersGLParameters.GCRecord)=True")) + Dim _CustomersGLParametersYear As CustomersGLParametersYear + + For Each _CustomersGLParametersYear In _CustomersGLParametersYear_Collection + If _IN = "" Then + Select Case _PCIGLChecker.PartnerType + Case ePartnerType.eReceivables + _IN = "'" & _CustomersGLParametersYear.ChartOfAccountsOut.AccountNumber & "'" + Case ePartnerType.ePayabels + _IN = "'" & _CustomersGLParametersYear.ChartOfAccountsIn.AccountNumber & "'" + End Select + Else + Select Case _PCIGLChecker.PartnerType + Case ePartnerType.eReceivables + _IN += ",'" & _CustomersGLParametersYear.ChartOfAccountsOut.AccountNumber & "'" + Case ePartnerType.ePayabels + _IN += ",'" & _CustomersGLParametersYear.ChartOfAccountsIn.AccountNumber & "'" + End Select + End If + Next + _IN = " IN (" & _IN & ")" + + Select Case GLOBAL_SQLType + Case eSQLType.MySQL + _SQL = " SELECT MAX(t4.Oid) AS Customers,t2.ConnectInfo," + + If _PCIGLChecker.PartnerType = ePartnerType.eReceivables Then + _SQL += " SUM((CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)) AS BallanceHUF" + Else + _SQL += " SUM((CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)) AS BallanceHUF" + End If + + + _SQL += " FROM GLDetails t1 JOIN GLRows t2 ON" + _SQL += " t1.GLRows=t2.Oid LEFT JOIN Customers t3 ON" + _SQL += " t2.Customer=t3.Oid LEFT JOIN Organization t4 ON" + _SQL += " t3.Oid=t4.Oid LEFT JOIN GLHeader t5 ON" + _SQL += " t2.GLHeader=t5.Oid LEFT JOIN ChartOfAccounts t6 ON" + _SQL += " t1.ChartOfAccounts = t6.Oid" + + _SQL += " WHERE t2.PartnerType=" & _PCIGLChecker.PartnerType + _SQL += " AND t5.IsEditable=0 AND t6.AccountNumber " & _IN + _SQL += " and t5.GCRecord is null" + _SQL += " and t5.CustomersFrom='" & _PCIGLChecker.CustomersFrom.Oid.ToString & "'" + _SQL += " AND t5.DateExecution<'" & _PCIGLChecker.DateClose.AddDays(1).Year.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Month.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Day.ToString & "'" + + _SQL += " GROUP BY t4.FullName,t2.ConnectInfo" + _SQL += " HAVING ROUND(SUM((CASE t1.Side WHEN 'T' THEN t1.AmountHUF ELSE 0 END)-(CASE t1.Side WHEN 'K' THEN t1.AmountHUF ELSE 0 END)),0)<>0 " + Case eSQLType.PostgreSQL + + End Select + + _SelectedData = _uow.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _PCIGLCheckerRows = _uow.FindObject(Of PCIGLCheckerRows)(CriteriaOperator.Parse("Customers.Oid=? and PartnerType=? and ConnectInfo=? and PCIGLChecker.Oid=?", _SelectStatementResultRow.Values(0), _PCIGLChecker.PartnerType, _SelectStatementResultRow.Values(1), _PCIGLChecker.Oid)) + If _PCIGLCheckerRows IsNot Nothing Then + _PCIGLCheckerRows.BallanceHUF_GL = _SelectStatementResultRow.Values(2) + Else + _PCIGLCheckerRows = New PCIGLCheckerRows(_uow) + _PCIGLCheckerRows.PCIGLChecker = _PCIGLChecker + _PCIGLCheckerRows.PartnerType = _PCIGLChecker.PartnerType + _PCIGLCheckerRows.Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0).ToString)) + _PCIGLCheckerRows.ConnectInfo = _SelectStatementResultRow.Values(1) + _PCIGLCheckerRows.BallanceHUF_GL = _SelectStatementResultRow.Values(2) + End If + _uow.CommitChanges() + Next + RaiseEvent FinalWork + End If + + '// msodszor a nem nulla egyenleg a Folyszmlbl + Select Case GLOBAL_SQLType + Case eSQLType.MySQL + _SQL = " SELECT t2.Oid,t1.Connectinfo,SUM(t1.BallanceHUF)" + + _SQL += " FROM PCIDetail t1 JOIN Organization t2 ON" + _SQL += " t1.Customers = t2.Oid" + + _SQL += " WHERE t1.PartnerType=" & _PCIGLChecker.PartnerType + _SQL += " AND t1.DateExecution<'" & _PCIGLChecker.DateClose.AddDays(1).Year.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Month.ToString & "-" & _PCIGLChecker.DateClose.AddDays(1).Day.ToString & "'" + + _SQL += " GROUP BY t2.Oid,t1.ConnectInfo" + _SQL += " HAVING ROUND(SUM(t1.BallanceHUF),0) <> 0" + Case eSQLType.PostgreSQL + + End Select + + _SelectedData = _uow.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _PCIGLCheckerRows = _uow.FindObject(Of PCIGLCheckerRows)(CriteriaOperator.Parse("Customers.Oid=? and PartnerType=? and ConnectInfo=? and PCIGLChecker.Oid=?", _SelectStatementResultRow.Values(0), _PCIGLChecker.PartnerType, _SelectStatementResultRow.Values(1), _PCIGLChecker.Oid)) + If _PCIGLCheckerRows IsNot Nothing Then + _PCIGLCheckerRows.BallanceHUF_PCI = _SelectStatementResultRow.Values(2) + Else + _PCIGLCheckerRows = New PCIGLCheckerRows(_uow) + _PCIGLCheckerRows.PCIGLChecker = _PCIGLChecker + _PCIGLCheckerRows.PartnerType = _PCIGLChecker.PartnerType + _PCIGLCheckerRows.Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0).ToString)) + _PCIGLCheckerRows.ConnectInfo = _SelectStatementResultRow.Values(1) + _PCIGLCheckerRows.BallanceHUF_PCI = _SelectStatementResultRow.Values(2) + End If + _uow.CommitChanges() + Next + RaiseEvent FinalWork + End If + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + + Private Sub aPCICheck_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_PCIChecker.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows) + + + For Each _PCIGLCheckerRows In View.SelectedObjects + If _PCIGLCheckerRows IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _PCIGLCheckerRows.ConnectInfo) + End If + Next + _uow.CommitChanges() + End Sub + + Private Sub aViewPCIDGroup_GLDetails_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails_PCIChecker.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows) + + ViewPDCI.ViewGLDetails(_onew, Application, e, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _ + _PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _ + _PCIGLCheckerRows.ConnectInfo) + End Sub + + Private Sub aViewPCIDGroup_PCIChecker_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_PCIChecker.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGLCheckerRows As PCIGLCheckerRows = TryCast(View.SelectedObjects(0), PCIGLCheckerRows) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCIGLCheckerRows.PCIGLChecker.CustomersFrom, _ + _PCIGLCheckerRows.Customers, _PCIGLCheckerRows.PartnerType, _ + _PCIGLCheckerRows.ConnectInfo) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLChecker.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLChecker.vb new file mode 100644 index 0000000..2323227 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLChecker.vb @@ -0,0 +1,120 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class PCIGLChecker ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Private _CustomersFrom As CustomersFrom + Private _DateClose As Date + Private _ShortName As String + Private _PartnerType As ePartnerType + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + _ + ReadOnly Property PCIGLCheckerRows As XPCollection(Of PCIGLCheckerRows) + Get + Return GetCollection(Of PCIGLCheckerRows)("PCIGLCheckerRows") + End Get + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLCheckerRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLCheckerRows.vb new file mode 100644 index 0000000..a986ee9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Checker/PCIGLCheckerRows.vb @@ -0,0 +1,112 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class PCIGLCheckerRows ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Private _PCIGLChecker As PCIGLChecker + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _BallanceHUF_GL As Double + Private _BallanceHUF_PCI As Double + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + _ + Property PCIGLChecker As PCIGLChecker + Get + Return _PCIGLChecker + End Get + Set(value As PCIGLChecker) + SetPropertyValue("PCIGLChecker", _PCIGLChecker, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property BallanceHUF_GL As Double + Get + Return _BallanceHUF_GL + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_GL", _BallanceHUF_GL, value) + End Set + End Property + Property BallanceHUF_PCI As Double + Get + Return _BallanceHUF_PCI + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_PCI", _BallanceHUF_PCI, value) + End Set + End Property + + ReadOnly Property DifferenceHUF As Double + Get + Return BallanceHUF_GL - BallanceHUF_PCI + End Get + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQHeader.vb new file mode 100644 index 0000000..5812e39 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQHeader.vb @@ -0,0 +1,159 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eInfoType + eOpen = 0 'Nyitott ttelek a szmla devizanemre vonatkozsan + eClose = 1 'Kifutott ttelek a szmla devizanemre vonatkozan + eAll = 2 'sszes +End Enum +Public Enum ePACIQType + eFull = 0 'sszes + ePeriodicWithOpen = 1 'Adott idszakra vonatkoz nyitval + ePeriodicNoOpen = 2 'Adott idszakra vonatkoz nyit nlkl, de az + 'idszakon lelli p teljestsek amelyek az idszakon kvli szmlkkal kapcsolatosak azokat NE +End Enum + _ + _ + _ +Public Class PartnerAccountConnectionInfoQueryHeader + Inherits BaseObject + Private _DateOpen As Date 'Nyit dtum + Private _DateClose As Date 'Zr dtum + Private _ShortName As String 'A lekrdezs megnevezse + Private _InfoType As eInfoType 'A lekrdezs tipusa (nyitott ttelek, lezrt ttelek sszes ttel) + Private _PartnerType As ePartnerType 'Partner tipusa + Private _PACIQType As ePACIQType 'Lekrdezs tpusa + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + Me.DateClose = Now + Me.DateOpen = CDate(Year(Now).ToString & "/01/01") + Dim _PartnerAccountConnectionInfoQuerySelectedCustomersFrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(Session) + Dim _CustomersFrom As CustomersFrom + + For Each _CustomersFrom In _CustomersFrom_Collection + _PartnerAccountConnectionInfoQuerySelectedCustomersFrom = New PartnerAccountConnectionInfoQuerySelectedCustomersFrom(Session) + _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.PartnerAccountConnectionInfoQueryHeader = Me + _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom = _CustomersFrom + Next + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property DateOpen As Date + Get + Return _DateOpen + End Get + Set(value As Date) + SetPropertyValue("DateOpen", _DateOpen, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(ByVal value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property InfoType As eInfoType + Get + Return _InfoType + End Get + Set(value As eInfoType) + SetPropertyValue("InfoType", _InfoType, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property PACIQType As ePACIQType + Get + Return _PACIQType + End Get + Set(value As ePACIQType) + SetPropertyValue("PACIQType", _PACIQType, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + + _ + ReadOnly Property PartnerAccountConnectionInfoQueryRows As XPCollection(Of PartnerAccountConnectionInfoQueryRows) + Get + Return GetCollection(Of PartnerAccountConnectionInfoQueryRows)("PartnerAccountConnectionInfoQueryRows") + End Get + End Property + _ + ReadOnly Property PartnerAccountConnectionInfoQueryPartner As XPCollection(Of PartnerAccountConnectionInfoQueryPartner) + Get + Return GetCollection(Of PartnerAccountConnectionInfoQueryPartner)("PartnerAccountConnectionInfoQueryPartner") + End Get + End Property + _ + ReadOnly Property PartnerAccountConnectionInfoQuerySelectedCustomers As XPCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomers) + Get + Return GetCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomers)("PartnerAccountConnectionInfoQuerySelectedCustomers") + End Get + End Property + _ + ReadOnly Property PartnerAccountConnectionInfoQuerySelectedCustomersFrom As XPCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomersFrom) + Get + Return GetCollection(Of PartnerAccountConnectionInfoQuerySelectedCustomersFrom)("PartnerAccountConnectionInfoQuerySelectedCustomersFrom") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQPartner.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQPartner.vb new file mode 100644 index 0000000..bb1d501 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQPartner.vb @@ -0,0 +1,89 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class PartnerAccountConnectionInfoQueryPartner + Inherits BaseObject + Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _Customers As Customers 'Partner + Private _CurrencyName_Account As CurrencyName 'Szmla devizaneme + Private _PartnerType As ePartnerType 'Folyszmla oldal + Private _BallanceHUF As Double 'Egyenleg HUF + Private _BallanceDEV As Double 'Egyenleg DEV + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Get + Return _PartnerAccountConnectionInfoQueryHeader + End Get + Set(ByVal value As PartnerAccountConnectionInfoQueryHeader) + SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CurrencyName_Account As CurrencyName + Get + Return _CurrencyName_Account + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value) + End Set + End Property + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceTotal", _BallanceDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQRows.vb new file mode 100644 index 0000000..96ae2ba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQRows.vb @@ -0,0 +1,208 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum ePACIQRows + eOpen = 0 + eAccounts = 1 + eFinancialBefore = 2 + eFinancialNoConnect = 3 +End Enum + _ + _ + _ +Public Class PartnerAccountConnectionInfoQueryRows + Inherits BaseObject + Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Private _RowType As ePACIQRows + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _DocumentNumber As String 'Szmla szma + Private _CurrencyName As CurrencyName + Private _DateExecution As Date + Private _DatePayment As Date 'Fizetsi hatrid + Private _AmountHUF As Double 'Szmla sszege HUF brutt + Private _AmountDEV As Double 'Szmla sszege DEV brutt + Private _AmountNettoHUF As Double 'Szmla sszege HUF netto + Private _AmountNettoDEV As Double 'Szmla sszege DEV netto + Private _AmountVATHUF As Double 'Szmla sszege HUF FA + Private _AmountVATDEV As Double 'Szmla sszege DEV FA + Private _BallanceHUF As Double 'Egyenleg HUF (Szmla vagy p. telj i s! eljel helyesen !!!) + Private _BallanceDEV As Double 'Egyenleg DEV + Private _ForDelete As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ForDelete = False + End Sub + _ + Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Get + Return _PartnerAccountConnectionInfoQueryHeader + End Get + Set(ByVal value As PartnerAccountConnectionInfoQueryHeader) + SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value) + End Set + End Property + Property RowType As ePACIQRows + Get + Return _RowType + End Get + Set(value As ePACIQRows) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType() As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo() As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + End Set + End Property + Property AmountNettoHUF As Double + Get + Return _AmountNettoHUF + End Get + Set(value As Double) + SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value) + End Set + End Property + Property AmountNettoDEV As Double + Get + Return _AmountNettoDEV + End Get + Set(value As Double) + SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value) + End Set + End Property + Property AmountVATHUF As Double + Get + Return _AmountVATHUF + End Get + Set(value As Double) + SetPropertyValue("AmountVATHUF", _AmountVATHUF, value) + End Set + End Property + Property AmountVATDEV As Double + Get + Return _AmountVATDEV + End Get + Set(value As Double) + SetPropertyValue("AmountVATDEV", _AmountVATDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("BallanceTotal", _BallanceDEV, value) + End Set + End Property + _ + Property ForDelete As Boolean + Get + Return _ForDelete + End Get + Set(value As Boolean) + SetPropertyValue("ForDelete", _ForDelete, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomers.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomers.vb new file mode 100644 index 0000000..77fd0f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomers.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class PartnerAccountConnectionInfoQuerySelectedCustomers + Inherits BaseObject + Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Private _Customers As Customers 'Partner + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Get + Return _PartnerAccountConnectionInfoQueryHeader + End Get + Set(ByVal value As PartnerAccountConnectionInfoQueryHeader) + SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value) + End Set + End Property + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomersFrom.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomersFrom.vb new file mode 100644 index 0000000..8b37c89 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQSelectedCustomersFrom.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class PartnerAccountConnectionInfoQuerySelectedCustomersFrom + Inherits BaseObject + Private _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Private _CustomersFrom As CustomersFrom 'Partner + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader + Get + Return _PartnerAccountConnectionInfoQueryHeader + End Get + Set(ByVal value As PartnerAccountConnectionInfoQueryHeader) + SetPropertyValue("PartnerAccountConnectionInfoQueryHeader", _PartnerAccountConnectionInfoQueryHeader, value) + End Set + End Property + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.Designer.vb new file mode 100644 index 0000000..1060247 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.Designer.vb @@ -0,0 +1,135 @@ +Partial Class PartnerAccountConnectionInfoQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSelectCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSelectCustomersFrom = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPCID_PACIQ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_PACIQ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateRounding_PACIQ = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aGenerateReport + ' + Me.aGenerateReport.Caption = "Generate report" + Me.aGenerateReport.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateReport.Id = "aGenerateReport" + Me.aGenerateReport.ImageName = "stopwatch_run" + Me.aGenerateReport.Shortcut = Nothing + Me.aGenerateReport.Tag = Nothing + Me.aGenerateReport.TargetObjectsCriteria = Nothing + Me.aGenerateReport.TargetViewId = "PartnerAccountConnectionInfoQueryHeader_DetailView" + Me.aGenerateReport.ToolTip = Nothing + Me.aGenerateReport.TypeOfView = Nothing + ' + 'aSelectCustomers + ' + Me.aSelectCustomers.AcceptButtonCaption = Nothing + Me.aSelectCustomers.CancelButtonCaption = Nothing + Me.aSelectCustomers.Caption = "Select Customers" + Me.aSelectCustomers.ConfirmationMessage = Nothing + Me.aSelectCustomers.Id = "aSelectCustomers" + Me.aSelectCustomers.ImageName = Nothing + Me.aSelectCustomers.Shortcut = Nothing + Me.aSelectCustomers.Tag = Nothing + Me.aSelectCustomers.TargetObjectsCriteria = Nothing + Me.aSelectCustomers.TargetViewId = Nothing + Me.aSelectCustomers.ToolTip = Nothing + Me.aSelectCustomers.TypeOfView = Nothing + ' + 'aSelectCustomersFrom + ' + Me.aSelectCustomersFrom.AcceptButtonCaption = Nothing + Me.aSelectCustomersFrom.CancelButtonCaption = Nothing + Me.aSelectCustomersFrom.Caption = "Select CustomersFrom" + Me.aSelectCustomersFrom.ConfirmationMessage = Nothing + Me.aSelectCustomersFrom.Id = "aSelectCustomersFrom" + Me.aSelectCustomersFrom.ImageName = Nothing + Me.aSelectCustomersFrom.Shortcut = Nothing + Me.aSelectCustomersFrom.Tag = Nothing + Me.aSelectCustomersFrom.TargetObjectsCriteria = Nothing + Me.aSelectCustomersFrom.TargetViewId = Nothing + Me.aSelectCustomersFrom.ToolTip = Nothing + Me.aSelectCustomersFrom.TypeOfView = Nothing + ' + 'aViewPCID_PACIQ + ' + Me.aViewPCID_PACIQ.Caption = "aViewPCID_PACIQ" + Me.aViewPCID_PACIQ.ConfirmationMessage = Nothing + Me.aViewPCID_PACIQ.Id = "aViewPCID_PACIQ" + Me.aViewPCID_PACIQ.ImageName = Nothing + Me.aViewPCID_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCID_PACIQ.Shortcut = Nothing + Me.aViewPCID_PACIQ.Tag = Nothing + Me.aViewPCID_PACIQ.TargetObjectsCriteria = Nothing + Me.aViewPCID_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows) + Me.aViewPCID_PACIQ.TargetViewId = "" + Me.aViewPCID_PACIQ.ToolTip = Nothing + Me.aViewPCID_PACIQ.TypeOfView = Nothing + ' + 'aPCICheck_PACIQ + ' + Me.aPCICheck_PACIQ.Caption = "aPCICheck_PACIQ" + Me.aPCICheck_PACIQ.ConfirmationMessage = Nothing + Me.aPCICheck_PACIQ.Id = "aPCICheck_PACIQ" + Me.aPCICheck_PACIQ.ImageName = Nothing + Me.aPCICheck_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_PACIQ.Shortcut = Nothing + Me.aPCICheck_PACIQ.Tag = Nothing + Me.aPCICheck_PACIQ.TargetObjectsCriteria = Nothing + Me.aPCICheck_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows) + Me.aPCICheck_PACIQ.TargetViewId = Nothing + Me.aPCICheck_PACIQ.ToolTip = Nothing + Me.aPCICheck_PACIQ.TypeOfView = Nothing + ' + 'aCreateRounding_PACIQ + ' + Me.aCreateRounding_PACIQ.AcceptButtonCaption = Nothing + Me.aCreateRounding_PACIQ.CancelButtonCaption = Nothing + Me.aCreateRounding_PACIQ.Caption = "aCreateRateDiffPCIGroup" + Me.aCreateRounding_PACIQ.ConfirmationMessage = Nothing + Me.aCreateRounding_PACIQ.Id = "aCreateRounding_PACIQ" + Me.aCreateRounding_PACIQ.ImageName = Nothing + Me.aCreateRounding_PACIQ.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateRounding_PACIQ.Shortcut = Nothing + Me.aCreateRounding_PACIQ.Tag = Nothing + Me.aCreateRounding_PACIQ.TargetObjectsCriteria = Nothing + Me.aCreateRounding_PACIQ.TargetObjectType = GetType(SISBusiness.[Module].PartnerAccountConnectionInfoQueryRows) + Me.aCreateRounding_PACIQ.TargetViewId = Nothing + Me.aCreateRounding_PACIQ.ToolTip = Nothing + Me.aCreateRounding_PACIQ.TypeOfView = Nothing + + End Sub + Friend WithEvents aGenerateReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSelectCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSelectCustomersFrom As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPCID_PACIQ As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck_PACIQ As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateRounding_PACIQ As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.resx new file mode 100644 index 0000000..e60287c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 153, 17 + + + 293, 17 + + + 458, 17 + + + 602, 17 + + + 745, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb new file mode 100644 index 0000000..ad025fa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PACIQ/PACIQVC.vb @@ -0,0 +1,700 @@ +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.Xpo +Imports DevExpress.Data.Filtering +Imports System.Linq +Imports DevExpress.ExpressApp.Editors + +Public Class PartnerAccountConnectionInfoQueryVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", False) + Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", False) + If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomers_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomers.Active.SetItemValue("", True) + End If + If View.Id = "PartnerAccountConnectionInfoQueryHeader_PartnerAccountConnectionInfoQuerySelectedCustomersFrom_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of PartnerAccountConnectionInfoQueryVC).aSelectCustomersFrom.Active.SetItemValue("", True) + End If + If View.Id = "Customers_ListView_Select" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + + End If + If View.Id = "CustomersFrom_ListView_Select" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Private Sub aGenerateReport_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateReport.Execute + '-- Az adott záródátumra vonatkozó partner connection infot adja meg + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim i As Long = 0 + Dim _Need As Boolean = False + Dim _Crs As String = "" + Dim _Crs1 As String = "" + Dim _Cri As Long = 0 + Dim _PartnerAccountConnectionInfoQuerySelectedCustomers As PartnerAccountConnectionInfoQuerySelectedCustomers + Dim _PartnerAccountConnectionInfoQuerySelectedCustomersFrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom + Dim _PCIDetail As PCIDetail + Dim _PCIDetail_Collection As XPCollection(Of PCIDetail) + Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows + Dim _PartnerAccountConnectionInfoQueryPartner As PartnerAccountConnectionInfoQueryPartner + Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader) _ + (TryCast(View.SelectedObjects(0), PartnerAccountConnectionInfoQueryHeader).Oid) + + If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub + + If _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomersFrom.Count <= 0 Then + Throw New Exception("*Legalább egy saját céget ki kell választani !") + Exit Sub + End If + + _PartnerAccountConnectionInfoQueryHeader.Save() + + Dim _PartnerAccountConnectionInfoQueryRows_Collection As New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _ + (_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=?", _PartnerAccountConnectionInfoQueryHeader)) + _uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection) + + Dim _PartnerAccountConnectionInfoQueryPartner_Collection As New XPCollection(Of PartnerAccountConnectionInfoQueryPartner) _ + (_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=?", _PartnerAccountConnectionInfoQueryHeader)) + _uow.Delete(_PartnerAccountConnectionInfoQueryPartner_Collection) + + '-- Lekérdezés, adott teljesítési dátumig történõ lekérdezés + If _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomers.Count > 0 Then + _Crs += " (Customers.Oid in (" + For Each _PartnerAccountConnectionInfoQuerySelectedCustomers In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomers + If _Cri = 0 Then + _Crs += "'" & _PartnerAccountConnectionInfoQuerySelectedCustomers.Customers.Oid.ToString & "'" + _Cri += 1 + Else + _Crs += ",'" & _PartnerAccountConnectionInfoQuerySelectedCustomers.Customers.Oid.ToString & "'" + End If + Next + _Crs += ")) " + End If + _Cri = 0 + _Crs1 += " (CustomersFrom.Oid in (" + For Each _PartnerAccountConnectionInfoQuerySelectedCustomersFrom In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQuerySelectedCustomersFrom + If _Cri = 0 Then + _Crs1 += "'" & _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom.Oid.ToString & "'" + _Cri += 1 + Else + _Crs1 += ",'" & _PartnerAccountConnectionInfoQuerySelectedCustomersFrom.CustomersFrom.Oid.ToString & "'" + End If + Next + _Crs1 += ")) " + + If _Crs <> "" Then + _PCIDetail_Collection = New XPCollection(Of PCIDetail) _ + (_uow, CriteriaOperator.Parse(_Crs1 & " and GetDate(DateExecution) <=? and PartnerType=? and " & _Crs, _PartnerAccountConnectionInfoQueryHeader.DateClose.Date, _ + _PartnerAccountConnectionInfoQueryHeader.PartnerType)) + Else + _PCIDetail_Collection = New XPCollection(Of PCIDetail) _ + (_uow, CriteriaOperator.Parse(_Crs1 & " and GetDate(DateExecution) <=? and PartnerType=?", _PartnerAccountConnectionInfoQueryHeader.DateClose.Date, _ + _PartnerAccountConnectionInfoQueryHeader.PartnerType)) + + End If + + + RaiseEvent InitWork(1, 1, _PCIDetail_Collection.Count) + For Each _PCIDetail In _PCIDetail_Collection + RaiseEvent DoWork() + i += 1 + + _PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow) + _PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader + If _PCIDetail.DateExecution.Date < _PartnerAccountConnectionInfoQueryHeader.DateOpen.Date Then + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eOpen + _PartnerAccountConnectionInfoQueryRows.ForDelete = True + If _PCIDetail.CurrencyName_Account Is Nothing Then + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName + Else + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account + End If + Else + Select Case _PCIDetail.MainType + Case "01-Account" + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts + _PartnerAccountConnectionInfoQueryRows.ForDelete = True + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account + _PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account + _PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account + _PartnerAccountConnectionInfoQueryRows.AmountDEV = _PCIDetail.AmountDEV_Account + _PartnerAccountConnectionInfoQueryRows.AmountHUF = _PCIDetail.AmountHUF_Account + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber + Case Else + If _PCIDetail.CurrencyName_Account Is Nothing Then + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eFinancialNoConnect + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName + _PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber + Else + If _PCIDetail.DateExecution_Account.Date < _PartnerAccountConnectionInfoQueryHeader.DateOpen.Date Then + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eFinancialBefore + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account + _PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account + _PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber + Else + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts + _PartnerAccountConnectionInfoQueryRows.ForDelete = True + _PartnerAccountConnectionInfoQueryRows.CurrencyName = _PCIDetail.CurrencyName_Account + _PartnerAccountConnectionInfoQueryRows.DateExecution = _PCIDetail.DateExecution_Account + _PartnerAccountConnectionInfoQueryRows.DatePayment = _PCIDetail.DatePayment_Account + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber + End If + End If + + + End Select + End If + _PartnerAccountConnectionInfoQueryRows.CustomersFrom = _PCIDetail.CustomersFrom + _PartnerAccountConnectionInfoQueryRows.Customers = _PCIDetail.Customers + _PartnerAccountConnectionInfoQueryRows.PartnerType = _PartnerAccountConnectionInfoQueryHeader.PartnerType + _PartnerAccountConnectionInfoQueryRows.ConnectInfo = _PCIDetail.ConnectInfo + _PartnerAccountConnectionInfoQueryRows.BallanceHUF = _PCIDetail.BallanceHUF + _PartnerAccountConnectionInfoQueryRows.BallanceDEV = _PCIDetail.BallanceDEV + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = _PCIDetail.DocumentNumber + + If i Mod 1000 Then _uow.CommitChanges() + + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + '-- Most kell az XPQuery csoportosítás !!! + '-- Nyitók helyrerakása + Dim query = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows + Where _Open.RowType = ePACIQRows.eOpen And + _Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader + Group _Open By _Open.CustomersFrom, _ + _Open.Customers, _ + _Open.PartnerType, _ + _Open.CurrencyName Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .PartnerType = PartnerType, _ + Key .Customers = Customers, _ + Key .CurrencyName = CurrencyName, _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)} + + For Each item In query + _PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow) + _PartnerAccountConnectionInfoQueryRows.ForDelete = False + _PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader + _PartnerAccountConnectionInfoQueryRows.CustomersFrom = item.CustomersFrom + _PartnerAccountConnectionInfoQueryRows.Customers = item.Customers + _PartnerAccountConnectionInfoQueryRows.PartnerType = item.PartnerType + _PartnerAccountConnectionInfoQueryRows.CurrencyName = item.CurrencyName + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eOpen + _PartnerAccountConnectionInfoQueryRows.BallanceHUF = item.BallanceHUF + _PartnerAccountConnectionInfoQueryRows.BallanceDEV = item.BallanceDEV + Next + + _uow.CommitChanges() + + _PartnerAccountConnectionInfoQueryRows_Collection = New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _ + (_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=? and RowType=0 and ForDelete=True", _PartnerAccountConnectionInfoQueryHeader)) + _uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection) + + + _uow.CommitChanges() + + + '-- Számlák helyrerakása + Dim query1 = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows + Where _Open.RowType = ePACIQRows.eAccounts And + _Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader + Group _Open By _Open.CustomersFrom, _ + _Open.Customers, _ + _Open.PartnerType, _ + _Open.CurrencyName, _ + _Open.ConnectInfo Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .PartnerType = PartnerType, _ + Key .Customers = Customers, _ + Key .CurrencyName = CurrencyName, _ + Key .ConnectInfo = ConnectInfo, _ + Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _ + Key .DateExecution = g.Max(Function(inv) inv.DateExecution), _ + Key .DatePayment = g.Max(Function(inv) inv.DatePayment), _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)} + + For Each item In query1 + _Need = False + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eAll Then + _Need = True + End If + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eOpen Then + If item.CurrencyName.ShortName = "HUF" Then + If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0 Then + _Need = True + End If + Else + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then + _Need = True + End If + End If + End If + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eClose Then + If item.CurrencyName.ShortName = "HUF" Then + If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) = 0 Then + _Need = True + End If + Else + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then + _Need = True + End If + End If + End If + + If _Need Then + _PartnerAccountConnectionInfoQueryRows = New PartnerAccountConnectionInfoQueryRows(_uow) + _PartnerAccountConnectionInfoQueryRows.ForDelete = False + _PartnerAccountConnectionInfoQueryRows.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader + _PartnerAccountConnectionInfoQueryRows.CustomersFrom = item.CustomersFrom + _PartnerAccountConnectionInfoQueryRows.Customers = item.Customers + _PartnerAccountConnectionInfoQueryRows.PartnerType = item.PartnerType + _PartnerAccountConnectionInfoQueryRows.CurrencyName = item.CurrencyName + _PartnerAccountConnectionInfoQueryRows.ConnectInfo = item.ConnectInfo + _PartnerAccountConnectionInfoQueryRows.DocumentNumber = item.DocumentNumber + _PartnerAccountConnectionInfoQueryRows.RowType = ePACIQRows.eAccounts + _PartnerAccountConnectionInfoQueryRows.DatePayment = item.DatePayment + _PartnerAccountConnectionInfoQueryRows.DateExecution = item.DateExecution + _PartnerAccountConnectionInfoQueryRows.BallanceHUF = item.BallanceHUF + _PartnerAccountConnectionInfoQueryRows.BallanceDEV = item.BallanceDEV + End If + Next + + _uow.CommitChanges() + + _PartnerAccountConnectionInfoQueryRows_Collection = New XPCollection(Of PartnerAccountConnectionInfoQueryRows) _ + (_uow, CriteriaOperator.Parse("PartnerAccountConnectionInfoQueryHeader=? and RowType=1 and ForDelete=True", _PartnerAccountConnectionInfoQueryHeader)) + _uow.Delete(_PartnerAccountConnectionInfoQueryRows_Collection) + + _uow.CommitChanges() + + '-- Most kell a partner összesítés + Dim query_partner = From _Open In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows + Where _Open.PartnerAccountConnectionInfoQueryHeader Is _PartnerAccountConnectionInfoQueryHeader + Group _Open By _Open.CustomersFrom, _ + _Open.Customers, _ + _Open.PartnerType, _ + _Open.CurrencyName Into g = Group _ + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .PartnerType = PartnerType, _ + Key .Customers = Customers, _ + Key .CurrencyName = CurrencyName, _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)} + + RaiseEvent InitWork(1, 1, query_partner.Count) + For Each item In query_partner + RaiseEvent DoWork() + _Need = False + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eAll Then + _Need = True + End If + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eOpen Then + If item.CurrencyName.ShortName = "HUF" Then + If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) <> 0 Then + _Need = True + End If + Else + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then + _Need = True + End If + End If + End If + If _PartnerAccountConnectionInfoQueryHeader.InfoType = eInfoType.eClose Then + If item.CurrencyName.ShortName = "HUF" Then + If Math.Round(item.BallanceHUF, 0, MidpointRounding.AwayFromZero) = 0 Then + _Need = True + End If + Else + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then + _Need = True + End If + End If + End If + + If _Need Then + _PartnerAccountConnectionInfoQueryPartner = New PartnerAccountConnectionInfoQueryPartner(_uow) + _PartnerAccountConnectionInfoQueryPartner.PartnerAccountConnectionInfoQueryHeader = _PartnerAccountConnectionInfoQueryHeader + _PartnerAccountConnectionInfoQueryPartner.CustomersFrom = item.CustomersFrom + _PartnerAccountConnectionInfoQueryPartner.Customers = item.Customers + _PartnerAccountConnectionInfoQueryPartner.PartnerType = item.PartnerType + _PartnerAccountConnectionInfoQueryPartner.CurrencyName_Account = item.CurrencyName + _PartnerAccountConnectionInfoQueryPartner.BallanceDEV = item.BallanceDEV + _PartnerAccountConnectionInfoQueryPartner.BallanceHUF = item.BallanceHUF + End If + Next + + _uow.CommitChanges() + RaiseEvent FinalWork + + '// Egyéb infok egyenként kigenerálva ! + RaiseEvent InitWork(1, 1, _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows.Count) + For Each _PartnerAccountConnectionInfoQueryRows In _PartnerAccountConnectionInfoQueryHeader.PartnerAccountConnectionInfoQueryRows + RaiseEvent DoWork() + If _PartnerAccountConnectionInfoQueryRows.PartnerType = ePartnerType.eReceivables Then + Dim _InvoiceHeader As InvoiceHeader = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and DocumentNumber=?", _PartnerAccountConnectionInfoQueryRows.CustomersFrom.Oid, _PartnerAccountConnectionInfoQueryRows.Customers.Oid, _PartnerAccountConnectionInfoQueryRows.DocumentNumber)) + If _InvoiceHeader IsNot Nothing Then + _PartnerAccountConnectionInfoQueryRows.AmountNettoHUF = 0 + _PartnerAccountConnectionInfoQueryRows.AmountVATHUF = 0 + Dim _InvoiceVATRows As InvoiceVATRows + For Each _InvoiceVATRows In _InvoiceHeader.InvoiceVATRows + _PartnerAccountConnectionInfoQueryRows.AmountNettoHUF += _InvoiceVATRows.AmountNettoHUF + _PartnerAccountConnectionInfoQueryRows.AmountVATHUF += _InvoiceVATRows.AmountVATHUF + Next + End If + + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Function Query1() As System.Linq.IQueryable + + End Function + + Private Sub aSelectCustomers_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomers.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(Customers)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("Customers_ListView_Select", _CS, False) + + End Sub + + Private Sub aSelectCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Customers As Customers + Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _PartnerAccountConnectionInfoQuerySelectedCustomers As PartnerAccountConnectionInfoQuerySelectedCustomers + + If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _Customers In e.PopupWindow.View.SelectedObjects + _PartnerAccountConnectionInfoQuerySelectedCustomers = New PartnerAccountConnectionInfoQuerySelectedCustomers(_uow) + _PartnerAccountConnectionInfoQuerySelectedCustomers.PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader)(_PartnerAccountConnectionInfoQueryHeader.Oid) + _PartnerAccountConnectionInfoQuerySelectedCustomers.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + + Private Sub aSelectCustomersFrom_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSelectCustomersFrom.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + Dim _CS As New CollectionSource(_onew, GetType(CustomersFrom)) + + '_CS.BeginUpdateCriteria() + '_CS.Criteria.Clear() + '_CS.Criteria("First") = "" + '_CS.EndUpdateCriteria() + + e.View = Application.CreateListView("CustomersFrom_ListView_Select", _CS, False) + End Sub + + Private Sub aSelectCustomersFrom_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSelectCustomersFrom.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Customersfrom As CustomersFrom + Dim _PartnerAccountConnectionInfoQueryHeader As PartnerAccountConnectionInfoQueryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + Dim _PartnerAccountConnectionInfoQuerySelectedCustomersfrom As PartnerAccountConnectionInfoQuerySelectedCustomersFrom + + If _PartnerAccountConnectionInfoQueryHeader Is Nothing Then Exit Sub + + If e.PopupWindow.View.SelectedObjects.Count > 0 Then + + For Each _Customersfrom In e.PopupWindow.View.SelectedObjects + _PartnerAccountConnectionInfoQuerySelectedCustomersfrom = New PartnerAccountConnectionInfoQuerySelectedCustomersFrom(_uow) + _PartnerAccountConnectionInfoQuerySelectedCustomersfrom.PartnerAccountConnectionInfoQueryHeader = _uow.GetObjectByKey(Of PartnerAccountConnectionInfoQueryHeader)(_PartnerAccountConnectionInfoQueryHeader.Oid) + _PartnerAccountConnectionInfoQuerySelectedCustomersfrom.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_Customersfrom.Oid) + Next + _uow.CommitChanges() + End If + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + + End Sub + + Private Sub aViewPCID_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCID_PACIQ.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows = TryCast(View.SelectedObjects(0), PartnerAccountConnectionInfoQueryRows) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _ + _PartnerAccountConnectionInfoQueryRows.Customers, _PartnerAccountConnectionInfoQueryRows.PartnerType, _ + _PartnerAccountConnectionInfoQueryRows.ConnectInfo) + End Sub + + Private Sub aPCICheck_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_PACIQ.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PartnerAccountConnectionInfoQueryRows In View.SelectedObjects + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _ + _PartnerAccountConnectionInfoQueryRows.Customers, _ + _PartnerAccountConnectionInfoQueryRows.PartnerType, _ + _PartnerAccountConnectionInfoQueryRows.ConnectInfo) + + Next + RaiseEvent FinalWork + End Sub + + Private Sub aCreateRounding_PACIQ_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateRounding_PACIQ.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RateDiffPopUp As RateDiffPopUp = _onew.CreateObject(Of RateDiffPopUp)() + + noselect = True + _RateDiffPopUp.DateExecution = Now + e.View = Application.CreateDetailView(_onew, "RateDiffPopUp_DetailView", False, _RateDiffPopUp) + End Sub + + Private Sub aCreateRounding_PACIQ_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateRounding_PACIQ.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RateDiffPopUp As RateDiffPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffPopUp) + Dim _PartnerAccountConnectionInfoQueryRows As PartnerAccountConnectionInfoQueryRows + Dim _GLHeader_Rounding As GLMixed = Nothing + Dim _GLRows_Rounding As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + Dim _Controlling As Controlling = Nothing + Dim _GLMixedNG As GLMixedNG + Dim _Rate As Double = 1 + + + Dim _GLHeader_RoundingParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + If _GLHeader_RoundingParameter Is Nothing Then + Throw New Exception("*Nincs beállítva az elengedési paraméter !") + Exit Sub + End If + + + Dim _ChartOfAccounts_Rounding_Win As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingWin) + Dim _ChartOfAccounts_Rounding_Loss As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingLoss) + Dim _Controlling_Rounding_Win As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Win + Dim _Controlling_Rounding_Loss As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Loss + + + If _ChartOfAccounts_Rounding_Loss Is Nothing Or _ + _ChartOfAccounts_Rounding_Win Is Nothing Then + Throw New Exception("*Nincs beállítva az elengedési paraméter !") + Exit Sub + End If + + Dim _CurrencyName As CurrencyName = Nothing + Dim _CustomersFrom As CustomersFrom = Nothing + Dim i As Long = 0 + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + If selection.Count <= 0 Then Exit Sub + + For Each _PartnerAccountConnectionInfoQueryRows In selection + If i = 0 Then + _CustomersFrom = _PartnerAccountConnectionInfoQueryRows.CustomersFrom + _CurrencyName = _PartnerAccountConnectionInfoQueryRows.CurrencyName + If _PartnerAccountConnectionInfoQueryRows.AmountDEV <> 0 Then + _Rate = _PartnerAccountConnectionInfoQueryRows.AmountHUF / _PartnerAccountConnectionInfoQueryRows.AmountDEV + End If + i = 1 + End If + If _PartnerAccountConnectionInfoQueryRows.CustomersFrom.Oid <> _CustomersFrom.Oid Then + Throw New Exception("*Csak azonos saját cégű sorok jelölhető ki egyszerre !") + Exit For + End If + + If _PartnerAccountConnectionInfoQueryRows.CurrencyName.Oid <> _CurrencyName.Oid Then + Throw New Exception("*Csak azonos devizával rendelkező sorok jelölhető ki egyszerre !") + Exit For + End If + Next + + _GLHeader_Rounding = _ocur.CreateObject(Of GLMixed)() + _GLHeader_Rounding.CustomersFrom = _CustomersFrom + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Rounding.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Rounding.DocumentNumber = "" Then + _GLHeader_Rounding.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_Rounding) + End If + End If + _GLHeader_Rounding.DateExecution = _RateDiffPopUp.DateExecution + _GLHeader_Rounding.DateCreated = _RateDiffPopUp.DateExecution + _GLHeader_Rounding.NoteHeader = _RateDiffPopUp.Description + + + + _GLHeader_Rounding.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Rounding.IsEditable = False + _GLHeader_Rounding.IsStorno = False + + + For Each _PartnerAccountConnectionInfoQueryRows In selection + _GLHeader_Rounding.CurrencyName = _PartnerAccountConnectionInfoQueryRows.CurrencyName + _OutAmountDEV = 0 + _OutAmountHUF = 0 + _InAmountDEV = 0 + _InAmountHUF = 0 + If _PartnerAccountConnectionInfoQueryRows.CurrencyName.ShortName = "HUF" Then + Select Case _PartnerAccountConnectionInfoQueryRows.PartnerType + Case ePartnerType.ePayabels + If _PartnerAccountConnectionInfoQueryRows.BallanceHUF > 0 Then 'Elengedés nyereség + _DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF) + Else 'Elengedés veszteség + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_Rounding_Loss + _InAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF) + End If + Case ePartnerType.eReceivables + If _PartnerAccountConnectionInfoQueryRows.BallanceHUF > 0 Then ' Elengedés veszteség + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_Rounding_Loss + _InAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF) + Else 'Elengedés nyereség + _DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountHUF = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF) + End If + End Select + Else + Select Case _PartnerAccountConnectionInfoQueryRows.PartnerType + + Case ePartnerType.ePayabels + If _PartnerAccountConnectionInfoQueryRows.BallanceDEV > 0 Then 'Elengedés nyereség szállító + _DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) + Else 'Elengedés veszteség szállító + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_Rounding_Loss + _InAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) + End If + Case ePartnerType.eReceivables + If _PartnerAccountConnectionInfoQueryRows.BallanceDEV > 0 Then ' Elengedés veszteség vevő + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_Rounding_Loss + _InAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) + Else 'Elengedés nyereség vevő + _DebitChartOfAccounts = _PartnerAccountConnectionInfoQueryRows.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountDEV = Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) + End If + End Select + + End If + + _GLRows_Rounding = _ocur.CreateObject(Of GLRows)() + _GLRows_Rounding.GLHeader = _GLHeader_Rounding + If _PartnerAccountConnectionInfoQueryRows.CurrencyName.ShortName = "HUF" Then + _GLRows_Rounding.InAmountHUF = _InAmountHUF + _GLRows_Rounding.OutAmountHUF = _OutAmountHUF + _GLRows_Rounding.InAmountDEV = 0 + _GLRows_Rounding.OutAmountDEV = 0 + + _GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceHUF), Nothing, _ + _PartnerAccountConnectionInfoQueryRows.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PartnerAccountConnectionInfoQueryRows.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PartnerAccountConnectionInfoQueryRows.PartnerType) + Else + + _GLHeader_Rounding.CurrencyRate = _Rate + _GLRows_Rounding.InAmountHUF = Math.Round(_InAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero) + _GLRows_Rounding.OutAmountHUF = Math.Round(_OutAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero) + _GLRows_Rounding.InAmountDEV = _InAmountDEV + _GLRows_Rounding.OutAmountDEV = _OutAmountDEV + + _GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV), Math.Round(Math.Abs(_PartnerAccountConnectionInfoQueryRows.BallanceDEV) * _Rate, 0, MidpointRounding.AwayFromZero), Nothing, _ + _PartnerAccountConnectionInfoQueryRows.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PartnerAccountConnectionInfoQueryRows.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PartnerAccountConnectionInfoQueryRows.PartnerType) + + End If + _ocur.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _PartnerAccountConnectionInfoQueryRows.CustomersFrom, _PartnerAccountConnectionInfoQueryRows.Customers, _PartnerAccountConnectionInfoQueryRows.PartnerType, _PartnerAccountConnectionInfoQueryRows.ConnectInfo) + + Next + + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheck.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheck.vb new file mode 100644 index 0000000..2930aad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheck.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PCICheck + Inherits XPObject + Private Shared myOid As Integer = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + myOid += 1 + Oid = myOid + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + + Property RegistryHeader As RegistryHeader + Property InvoiceHeader As InvoiceHeader + Property GLAccounts As GLAccounts + Property GLRows As GLRows +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.Designer.vb new file mode 100644 index 0000000..f09b8c3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.Designer.vb @@ -0,0 +1,70 @@ +Partial Class PCICheckVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aPCICheck_PCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCI_PCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aPCICheck_PCICheck + ' + Me.aPCICheck_PCICheck.Caption = "aPCICheck_PCICheck" + Me.aPCICheck_PCICheck.Category = "RecordEdit" + Me.aPCICheck_PCICheck.ConfirmationMessage = Nothing + Me.aPCICheck_PCICheck.Id = "aPCICheck_PCICheck" + Me.aPCICheck_PCICheck.ImageName = Nothing + Me.aPCICheck_PCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_PCICheck.Shortcut = Nothing + Me.aPCICheck_PCICheck.Tag = Nothing + Me.aPCICheck_PCICheck.TargetObjectsCriteria = Nothing + Me.aPCICheck_PCICheck.TargetObjectType = GetType(SISBusiness.[Module].PCICheck) + Me.aPCICheck_PCICheck.TargetViewId = Nothing + Me.aPCICheck_PCICheck.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPCICheck_PCICheck.ToolTip = Nothing + Me.aPCICheck_PCICheck.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aViewPCI_PCICheck + ' + Me.aViewPCI_PCICheck.Caption = "aViewPCI_PCICheck" + Me.aViewPCI_PCICheck.ConfirmationMessage = Nothing + Me.aViewPCI_PCICheck.Id = "aViewPCI_PCICheck" + Me.aViewPCI_PCICheck.ImageName = Nothing + Me.aViewPCI_PCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCI_PCICheck.Shortcut = Nothing + Me.aViewPCI_PCICheck.Tag = Nothing + Me.aViewPCI_PCICheck.TargetObjectsCriteria = Nothing + Me.aViewPCI_PCICheck.TargetObjectType = GetType(SISBusiness.[Module].PCICheck) + Me.aViewPCI_PCICheck.TargetViewId = "" + Me.aViewPCI_PCICheck.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewPCI_PCICheck.ToolTip = Nothing + Me.aViewPCI_PCICheck.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aPCICheck_PCICheck As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCI_PCICheck As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.resx new file mode 100644 index 0000000..734958b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 34, 97 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.vb new file mode 100644 index 0000000..b9deb88 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCICheckVC.vb @@ -0,0 +1,311 @@ +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 System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo.DB + +Public Class PCICheckVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + 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 = "PCICheck_ListView_RegistryHeader" Then + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_RegistryHeader_RefreshAction_Executed + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + If View.Id = "PCICheck_ListView_InvoiceHeader" Then + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_InvoiceHeader_RefreshAction_Executed + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + If View.Id = "PCICheck_ListView_GLAccounts" Then + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_GLAccounts_RefreshAction_Executed + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + If View.Id = "PCICheck_ListView_GLRows" Then + AddHandler Frame.GetController(Of RefreshController).RefreshAction.Executed, AddressOf PCICheck_ListView_GLRows_RefreshAction_Executed + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Private Sub PCICheck_ListView_RegistryHeader_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCICheck As PCICheck + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _SQL As String = "" + Dim _RegistryHeader As RegistryHeader + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM RegistryHeader t1 LEFT JOIN PCIGroup t2 ON" + _SQL += " t1.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.F_ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=1 LEFT JOIN RegistryType t3 ON" + _SQL += " t1.RegistryType=t3.Oid LEFT JOIN Organization t4 ON" + _SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND" + _SQL += " t1.RegistryAcceptState=0 AND t3.RegistryMainType=0" + + Case eSQLType.MSSQL, eSQLType.MySQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM RegistryHeader t1 LEFT JOIN PCIGroup t2 ON" + _SQL += " t1.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.F_ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=1 LEFT JOIN RegistryType t3 ON" + _SQL += " t1.RegistryType=t3.Oid LEFT JOIN Organization t4 ON" + _SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND" + _SQL += " t1.RegistryAcceptState=0 AND t3.RegistryMainType=0 and t1.F_GLAccounts is null and t1.IsStorno=0" + End Select + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _RegistryHeader = _ocur.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0))) + If _RegistryHeader IsNot Nothing Then + _PCICheck = _ocur.CreateObject(Of PCICheck)() + _PCICheck.RegistryHeader = _RegistryHeader + TryCast(View, ListView).CollectionSource.Add(_PCICheck) + End If + Next + RaiseEvent FinalWork + End If + + + End Sub + Private Sub PCICheck_ListView_InvoiceHeader_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCICheck As PCICheck + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _SQL As String = "" + Dim _InvoiceHeader As InvoiceHeader + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM InvoiceHeader t1 LEFT JOIN PCIGroup t2 ON" + _SQL += " t1.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=0 LEFT JOIN Organization t4 ON" + _SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND" + _SQL += " t1.DocumentNumber<>''" + + Case eSQLType.MSSQL, eSQLType.MySQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM InvoiceHeader t1 LEFT JOIN PCIGroup t2 ON" + _SQL += " t1.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=0 LEFT JOIN Organization t4 ON" + _SQL += " t1.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t1.GCRecord IS NULL AND t1.IsEditable=0 AND" + _SQL += " t1.DocumentNumber<>'' and t1.GLAccounts is null" + End Select + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _InvoiceHeader = _ocur.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0))) + If _InvoiceHeader IsNot Nothing Then + _PCICheck = _ocur.CreateObject(Of PCICheck)() + _PCICheck.InvoiceHeader = _InvoiceHeader + TryCast(View, ListView).CollectionSource.Add(_PCICheck) + End If + Next + RaiseEvent FinalWork + End If + + End Sub + Private Sub PCICheck_ListView_GLAccounts_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCICheck As PCICheck + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _SQL As String = "" + Dim _GLAccounts As GLAccounts + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM GLHeader t0 join GLAccounts t1 on " + _SQL += " t0.Oid=t1.Oid LEFT JOIN PCIGroup t2 ON" + _SQL += " t0.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=t1.PartnerType LEFT JOIN Organization t4 ON" + _SQL += " t0.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND" + _SQL += " t0.DocumentNumber<>''" + + Case eSQLType.MSSQL, eSQLType.MySQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM GLHeader t0 join GLAccounts t1 on " + _SQL += " t0.Oid=t1.Oid LEFT JOIN PCIGroup t2 ON" + _SQL += " t0.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customers=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=t1.PartnerType LEFT JOIN Organization t4 ON" + _SQL += " t0.CustomersFrom=t4.oid LEFT JOIN Organization t5 ON" + _SQL += " t1.Customers = t5.Oid" + + _SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND" + _SQL += " t0.DocumentNumber<>''" + End Select + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _GLAccounts = _ocur.FindObject(Of GLAccounts)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0))) + If _GLAccounts IsNot Nothing Then + _PCICheck = _ocur.CreateObject(Of PCICheck)() + _PCICheck.GLAccounts = _GLAccounts + TryCast(View, ListView).CollectionSource.Add(_PCICheck) + End If + Next + RaiseEvent FinalWork + End If + End Sub + Private Sub PCICheck_ListView_GLRows_RefreshAction_Executed(sender As Object, e As ActionBaseEventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCICheck As PCICheck + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _SQL As String = "" + Dim _GLRows As GLRows + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM GLHeader t0 join GLRows t1 on " + _SQL += " t0.Oid=t1.GLHeader LEFT JOIN PCIDetail t2 ON" + _SQL += " t0.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customer=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=t1.PartnerType " + + _SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND" + _SQL += " t0.DocumentNumber<>'' and t1.PartnerType in (0,1) and t1.Customer is not null and t1.GCRecord is null" + _SQL += " and t0.GLDocumentType in (0,2,3,4,5)" + + Case eSQLType.MSSQL, eSQLType.MySQL + _SQL = " SELECT t1.Oid" + + _SQL += " FROM GLHeader t0 join GLRows t1 on " + _SQL += " t0.Oid=t1.GLHeader LEFT JOIN PCIDetail t2 ON" + _SQL += " t0.CustomersFrom=t2.CustomersFrom AND " + _SQL += " t1.Customer=t2.Customers AND " + _SQL += " t1.ConnectInfo=t2.ConnectInfo AND " + _SQL += " t2.PartnerType=t1.PartnerType " + + _SQL += " WHERE t2.Oid IS NULL AND t0.GCRecord IS NULL AND t0.IsEditable=0 AND" + _SQL += " t0.DocumentNumber<>'' and t1.PartnerType in (0,1) and t1.Customer is not null and t1.GCRecord is null" + _SQL += " and t0.GLDocumentType in (0,2,3,4,5)" + End Select + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + RaiseEvent InitWork(1, 1, _SelectedData.ResultSet(0).Rows.Count) + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + RaiseEvent DoWork() + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _SelectStatementResultRow.Values(0))) + If _GLRows IsNot Nothing Then + _PCICheck = _ocur.CreateObject(Of PCICheck)() + _PCICheck.GLRows = _GLRows + TryCast(View, ListView).CollectionSource.Add(_PCICheck) + End If + Next + RaiseEvent FinalWork + End If + End Sub + + Private Sub aPCICheck_PCICheck_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_PCICheck.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _PCICheck As PCICheck + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PCICheck In View.SelectedObjects + RaiseEvent DoWork() + If _PCICheck.GLAccounts IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCICheck.GLAccounts.CustomersFrom, _PCICheck.GLAccounts.Customers, _PCICheck.GLAccounts.PartnerType, _PCICheck.GLAccounts.ConnectInfo) + ElseIf _PCICheck.InvoiceHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCICheck.InvoiceHeader.CustomersFrom, _PCICheck.InvoiceHeader.Customers, 0, _PCICheck.InvoiceHeader.ConnectInfo) + ElseIf _PCICheck.RegistryHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCICheck.RegistryHeader.CustomersFrom, _PCICheck.RegistryHeader.Customers, 1, _PCICheck.RegistryHeader.F_ConnectInfo) + ElseIf _PCICheck.GLRows IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCICheck.GLRows.GLHeader.CustomersFrom, _PCICheck.GLRows.Customer, _PCICheck.GLRows.PartnerType, _PCICheck.GLRows.ConnectInfo) + End If + Next + RaiseEvent FinalWork + End Sub + Private Sub aViewPCI_PCICheck_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCI_PCICheck.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCICheck As PCICheck = TryCast(View.SelectedObjects(0), PCICheck) + + If _PCICheck.GLAccounts IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.GLAccounts.CustomersFrom, _ + _PCICheck.GLAccounts.Customers, _PCICheck.GLAccounts.PartnerType, _ + _PCICheck.GLAccounts.ConnectInfo) + ElseIf _PCICheck.InvoiceHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.InvoiceHeader.CustomersFrom, _ + _PCICheck.InvoiceHeader.Customers, 0, _ + _PCICheck.InvoiceHeader.ConnectInfo) + ElseIf _PCICheck.RegistryHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.RegistryHeader.CustomersFrom, _ + _PCICheck.RegistryHeader.Customers, 1, _ + _PCICheck.RegistryHeader.F_ConnectInfo) + ElseIf _PCICheck.GLRows IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCICheck.GLRows.GLHeader.CustomersFrom, _ + _PCICheck.GLRows.Customer, _PCICheck.GLRows.PartnerType, _ + _PCICheck.GLRows.ConnectInfo) + End If + + + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetail.vb new file mode 100644 index 0000000..2de9d14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetail.vb @@ -0,0 +1,349 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports System.Linq + + _ + _ + _ +Public Class PCIDetail + Inherits BaseObject + Private _PCIGroup As PCIGroup + Private _MainType As String + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _DocumentNumber As String = "" + Private _RegistryNumber As String = "" + Private _CurrencyName As CurrencyName + Private _BallanceHUF As Double + Private _BallanceDEV As Double + Private _DateExecution As Date + Private _DateCreated As Date + Private _CurrencyRate As Double + + Private _DatePayment_Account As Date + Private _DateExecution_Account As Date + Private _CurrencyName_Account As CurrencyName + Private _AmountHUF_Account As Double + Private _AmountDEV_Account As Double + Private _Paymode_Account As ePayMode + + Private _ShortName As String + Private _Description As String + + Private _BallanceState As Long + Private _BallanceRateDiff As Long + + Private _GLRows As GLRows + Private _InvoiceHeader As InvoiceHeader + Private _GLAccounts As GLAccounts + Private _RegistryHeader As RegistryHeader + + Private _DelayedDay As Long + Private _DelayedRange As String + + Private _ChartOfAccounts_Customers As ChartOfAccounts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + BallanceDEV = 0 + BallanceHUF = 0 + AmountHUF_Account = 0 + AmountDEV_Account = 0 + End Sub + + Property PCIGroup As PCIGroup + Get + Return _PCIGroup + End Get + Set(value As PCIGroup) + SetPropertyValue("PCIGroup", _PCIGroup, value) + End Set + End Property + Property MainType As String + Get + Return _MainType + End Get + Set(value As String) + SetPropertyValue("MainType", _MainType, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("_PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property RegistryNumber As String + Get + Return _RegistryNumber + End Get + Set(value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If CurrencyName IsNot Nothing Then + If CurrencyName.ShortName <> "HUF" Then + If BallanceDEV <> 0 Then + CurrencyRate = Math.Round(BallanceHUF / BallanceDEV, 2, MidpointRounding.AwayFromZero) + Else + CurrencyRate = 1 + End If + End If + Else + CurrencyRate = 1 + End If + Else + CurrencyRate = 1 + End If + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + + Property DatePayment_Account As Date + Get + Return _DatePayment_Account + End Get + Set(value As Date) + SetPropertyValue("DatePayment_Account", _DatePayment_Account, value) + End Set + End Property + Property DateExecution_Account As Date + Get + Return _DateExecution_Account + End Get + Set(value As Date) + SetPropertyValue("DateExecution_Account", _DateExecution_Account, value) + End Set + End Property + Property CurrencyName_Account As CurrencyName + Get + Return _CurrencyName_Account + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value) + End Set + End Property + Property Paymode_Account As ePayMode + Get + Return _Paymode_Account + End Get + Set(value As ePayMode) + SetPropertyValue("Paymode_Account", _Paymode_Account, value) + End Set + End Property + Property AmountHUF_Account As Double + Get + Return _AmountHUF_Account + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value) + End Set + End Property + Property AmountDEV_Account As Double + Get + Return _AmountDEV_Account + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value) + End Set + End Property + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + Property BallanceState As Long + Get + Return _BallanceState + End Get + Set(value As Long) + SetPropertyValue("BallanceState", _BallanceState, value) + End Set + End Property + Property BallanceRateDiff As Long + Get + Return _BallanceRateDiff + End Get + Set(value As Long) + SetPropertyValue("BallanceRateDiff", _BallanceRateDiff, value) + End Set + End Property + + Property GLRows As GLRows + Get + Return _GLRows + End Get + Set(value As GLRows) + SetPropertyValue("GLRows", _GLRows, value) + End Set + End Property + _ + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + _ + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + _ + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + + Property DelayedDay As Long + Get + Return _DelayedDay + End Get + Set(value As Long) + SetPropertyValue("DelayedDay", _DelayedDay, value) + End Set + End Property + Property DelayedRange As String + Get + Return _DelayedRange + End Get + Set(value As String) + SetPropertyValue("DelayedRange", _DelayedRange, value) + End Set + End Property + + 'Property ChartOfAccounts_Customers As ChartOfAccounts + ' Get + ' Return _ChartOfAccounts_Customers + ' End Get + ' Set(value As ChartOfAccounts) + ' SetPropertyValue("ChartOfAccounts_Customers", _ChartOfAccounts_Customers, value) + ' End Set + 'End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.Designer.vb new file mode 100644 index 0000000..6356449 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.Designer.vb @@ -0,0 +1,116 @@ +Partial Class PCIDetailVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewAttachmentsPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistryPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aOpenObjectPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheckDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aChangeCurrencyRatePCIDetail = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aViewAttachmentsPCIDetail + ' + Me.aViewAttachmentsPCIDetail.Caption = "aViewAttachmentsPCIDetail" + Me.aViewAttachmentsPCIDetail.ConfirmationMessage = Nothing + Me.aViewAttachmentsPCIDetail.Id = "aViewAttachmentsPCIDetail" + Me.aViewAttachmentsPCIDetail.ImageName = "printer_view" + Me.aViewAttachmentsPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachmentsPCIDetail.Shortcut = Nothing + Me.aViewAttachmentsPCIDetail.Tag = Nothing + Me.aViewAttachmentsPCIDetail.TargetObjectsCriteria = Nothing + Me.aViewAttachmentsPCIDetail.TargetViewId = "" + Me.aViewAttachmentsPCIDetail.ToolTip = Nothing + Me.aViewAttachmentsPCIDetail.TypeOfView = Nothing + ' + 'aViewRegistryPCIDetail + ' + Me.aViewRegistryPCIDetail.Caption = "aViewRegistryPCIDetail" + Me.aViewRegistryPCIDetail.ConfirmationMessage = Nothing + Me.aViewRegistryPCIDetail.Id = "aViewRegistryPCIDetail" + Me.aViewRegistryPCIDetail.ImageName = "document_pinned" + Me.aViewRegistryPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistryPCIDetail.Shortcut = Nothing + Me.aViewRegistryPCIDetail.Tag = Nothing + Me.aViewRegistryPCIDetail.TargetObjectsCriteria = Nothing + Me.aViewRegistryPCIDetail.TargetViewId = "" + Me.aViewRegistryPCIDetail.ToolTip = Nothing + Me.aViewRegistryPCIDetail.TypeOfView = Nothing + ' + 'aOpenObjectPCIDetail + ' + Me.aOpenObjectPCIDetail.Caption = "aOpenObjectPCIDetail" + Me.aOpenObjectPCIDetail.ConfirmationMessage = Nothing + Me.aOpenObjectPCIDetail.Id = "aOpenObjectPCIDetail" + Me.aOpenObjectPCIDetail.ImageName = Nothing + Me.aOpenObjectPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenObjectPCIDetail.Shortcut = Nothing + Me.aOpenObjectPCIDetail.Tag = Nothing + Me.aOpenObjectPCIDetail.TargetObjectsCriteria = Nothing + Me.aOpenObjectPCIDetail.TargetViewId = "" + Me.aOpenObjectPCIDetail.ToolTip = Nothing + Me.aOpenObjectPCIDetail.TypeOfView = Nothing + ' + 'aPCICheckDetail + ' + Me.aPCICheckDetail.Caption = "aPCICheckDetail" + Me.aPCICheckDetail.Category = "RecordEdit" + Me.aPCICheckDetail.ConfirmationMessage = Nothing + Me.aPCICheckDetail.Id = "aPCICheckDetail" + Me.aPCICheckDetail.ImageName = Nothing + Me.aPCICheckDetail.Shortcut = Nothing + Me.aPCICheckDetail.Tag = Nothing + Me.aPCICheckDetail.TargetObjectsCriteria = Nothing + Me.aPCICheckDetail.TargetViewId = Nothing + Me.aPCICheckDetail.ToolTip = Nothing + Me.aPCICheckDetail.TypeOfView = Nothing + ' + 'aChangeCurrencyRatePCIDetail + ' + Me.aChangeCurrencyRatePCIDetail.AcceptButtonCaption = Nothing + Me.aChangeCurrencyRatePCIDetail.CancelButtonCaption = Nothing + Me.aChangeCurrencyRatePCIDetail.Caption = "aChange Currency Rate PCIDetail" + Me.aChangeCurrencyRatePCIDetail.Category = "RecordEdit" + Me.aChangeCurrencyRatePCIDetail.ConfirmationMessage = Nothing + Me.aChangeCurrencyRatePCIDetail.Id = "aChangeCurrencyRatePCIDetail" + Me.aChangeCurrencyRatePCIDetail.ImageName = Nothing + Me.aChangeCurrencyRatePCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aChangeCurrencyRatePCIDetail.Shortcut = Nothing + Me.aChangeCurrencyRatePCIDetail.Tag = Nothing + Me.aChangeCurrencyRatePCIDetail.TargetObjectsCriteria = Nothing + Me.aChangeCurrencyRatePCIDetail.TargetViewId = Nothing + Me.aChangeCurrencyRatePCIDetail.ToolTip = Nothing + Me.aChangeCurrencyRatePCIDetail.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewAttachmentsPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistryPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aOpenObjectPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheckDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aChangeCurrencyRatePCIDetail As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.resx new file mode 100644 index 0000000..b23cb94 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 173 + + + 17, 95 + + + 310, 57 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.vb new file mode 100644 index 0000000..ab77474 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIDetailVC.vb @@ -0,0 +1,138 @@ +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.ExpressApp.SystemModule + +Public Class PCIDetailVC + 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 PCIDetailVC).aOpenObjectPCIDetail.Active.SetItemValue("", False) + Frame.GetController(Of PCIDetailVC).aViewAttachmentsPCIDetail.Active.SetItemValue("", False) + Frame.GetController(Of PCIDetailVC).aViewRegistryPCIDetail.Active.SetItemValue("", False) + Frame.GetController(Of PCIDetailVC).aPCICheckDetail.Active.SetItemValue("", False) + Frame.GetController(Of PCIDetailVC).aChangeCurrencyRatePCIDetail.Active.SetItemValue("", False) + + If View.Id = "PCIDetail_ListView" Then + Frame.GetController(Of PCIDetailVC).aOpenObjectPCIDetail.Active.SetItemValue("", True) + Frame.GetController(Of PCIDetailVC).aViewAttachmentsPCIDetail.Active.SetItemValue("", True) + Frame.GetController(Of PCIDetailVC).aViewRegistryPCIDetail.Active.SetItemValue("", True) + Frame.GetController(Of PCIDetailVC).aPCICheckDetail.Active.SetItemValue("", True) + Frame.GetController(Of PCIDetailVC).aChangeCurrencyRatePCIDetail.Active.SetItemValue("", True) + Frame.GetController(Of RefreshController).RefreshAction.Active.SetItemValue("", True) + End If + End Sub + + Private Sub aViewAttachmentsPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachmentsPCIDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _PCIDetail.CustomersFrom, _ + _PCIDetail.Customers, _PCIDetail.ConnectInfo, _ + "") + End If + End Sub + + Private Sub aViewRegistryPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryPCIDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + ViewRegistry.ViewRegistry(_ocur, Application, e, _PCIDetail.CustomersFrom, _ + _PCIDetail.Customers, _PCIDetail.ConnectInfo) + End If + End Sub + + Private Sub aOpenObjectPCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenObjectPCIDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + Dim _GLRows As GLRows + + + If _PCIDetail IsNot Nothing Then + _GLRows = _PCIDetail.GLRows + If _GLRows IsNot Nothing Then + If TryCast(_GLRows.GLHeader, GLAccounts) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLAccounts_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLAccounts))) + End If + If TryCast(_GLRows.GLHeader, GLCassa) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCassa_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLCassa))) + End If + If TryCast(_GLRows.GLHeader, GLBank) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLBank_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLBank))) + End If + If TryCast(_GLRows.GLHeader, GLCompensation) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLCompensation_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLCompensation))) + End If + If TryCast(_GLRows.GLHeader, GLMixed) IsNot Nothing Then + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "GLMixed_DetailView", True, _onew.GetObject(TryCast(_GLRows.GLHeader, GLMixed))) + End If + End If + End If + End Sub + + Private Sub aPCICheckDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheckDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo) + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then _ + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Private Sub aChangeCurrencyRatePCIDetail_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aChangeCurrencyRatePCIDetail.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + Dim _CurrencyRatePopup As CurrencyRatePopup = _onew.CreateObject(Of CurrencyRatePopup)() + If _PCIDetail IsNot Nothing Then + If _PCIDetail.GLRows IsNot Nothing Then + _CurrencyRatePopup.CurrencyRate = _PCIDetail.GLRows.CurrencyRate2 + End If + End If + e.View = Application.CreateDetailView(_onew, "CurrencyRatePopup_DetailView", False, _CurrencyRatePopup) + End Sub + + Private Sub aChangeCurrencyRatePCIDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aChangeCurrencyRatePCIDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _CurrencyRatePopup As CurrencyRatePopup = e.PopupWindow.View.SelectedObjects(0) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + Dim _GLRows As GLRows + Dim _CurrencyRate As Double = _CurrencyRatePopup.CurrencyRate + If _PCIDetail IsNot Nothing Then + If _PCIDetail.GLRows IsNot Nothing Then + _GLRows = _PCIDetail.GLRows + _GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountDEV * _CurrencyRate, 2, MidpointRounding.AwayFromZero) + _GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountDEV * _CurrencyRate, 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = _CurrencyRate + _ocur.CommitChanges() + + If _GLRows.GLHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroup.vb new file mode 100644 index 0000000..a556dc1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroup.vb @@ -0,0 +1,433 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ + _ + _ +Public Class PCIGroup + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _DocumentNumber As String = "" 'Szmla eredeti bizonylatszma + Private _RegistryNumber As String = "" + Private _CurrencyName As CurrencyName + Private _BallanceHUF As Double + Private _BallanceDEV As Double + + Private _BallanceHUF_P As Double + Private _BallanceDEV_P As Double + Private _BallanceHUF_R As Double + Private _BallanceDEV_R As Double + Private _BallanceHUF_B As Double + Private _BallanceDEV_B As Double + + Private _DateCreated_Account As Date + Private _DatePayment_Account As Date + Private _DateExecution_Account As Date + Private _CurrencyName_Account As CurrencyName + Private _Paymode_Account As ePayMode + Private _AmountHUF_Account As Double + Private _AmountDEV_Account As Double + + Private _BallanceState As Long + Private _BallanceRateDiff As Long + Private _RateDiffState As Long = 0 'rfolyam sttusz + + Private _ChartOfAccounts_Customers As ChartOfAccounts 'Partnerhez tartoz Fk. szmla szma + Private _DateLastConnected As Date 'Utols p.. teljests dtuma + Private _Description As String 'Egyb megjegyzsrivate + + Private _InvoiceHeader As InvoiceHeader + Private _RegistryHeader As RegistryHeader + Private _GLAccounts As GLAccounts + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + BallanceDEV = 0 + BallanceDEV_B = 0 + BallanceDEV_P = 0 + BallanceDEV_R = 0 + BallanceHUF = 0 + BallanceHUF_B = 0 + BallanceHUF_P = 0 + BallanceHUF_R = 0 + + BallanceState = 0 + BallanceRateDiff = -1 + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("_PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property RegistryNumber As String + Get + Return _RegistryNumber + End Get + Set(value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case PartnerType + Case ePartnerType.ePayabels + BallanceHUF_P = value * -1 + Case ePartnerType.eReceivables + BallanceHUF_R = value + End Select + BallanceHUF_B = BallanceHUF_R - BallanceHUF_P + BallanceState = 0 + RateDiffState = 0 + BallanceRateDiff = 0 + If CurrencyName_Account IsNot Nothing Then + If _CurrencyName_Account.ShortName = "HUF" Then + BallanceRateDiff = -1 + If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1 + Else + If Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1 + If Math.Round(value, 0, MidpointRounding.AwayFromZero) <> 0 And Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then + BallanceRateDiff = 1 + If PartnerType = ePartnerType.eReceivables Then + If Math.Round(value, 0, MidpointRounding.AwayFromZero) > 0 Then + RateDiffState = -1 + Else + RateDiffState = 1 + End If + ElseIf PartnerType = ePartnerType.ePayabels Then + If Math.Round(value, 0, MidpointRounding.AwayFromZero) > 0 Then + RateDiffState = 1 + Else + RateDiffState = -1 + End If + End If + End If + End If + + Else + If CurrencyName IsNot Nothing Then + If CurrencyName.ShortName = "HUF" Then + If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1 + Else + If Math.Round(BallanceDEV, 2, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1 + End If + Else + If Math.Round(value, 0, MidpointRounding.AwayFromZero) = 0 Then BallanceState = 1 + End If + End If + End If + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Select Case PartnerType + Case ePartnerType.ePayabels + BallanceDEV_P = value * -1 + Case ePartnerType.eReceivables + BallanceDEV_R = value + End Select + BallanceDEV_B = BallanceDEV_R - BallanceDEV_P + End If + End Set + End Property + + Property BallanceHUF_P As Double + Get + Return _BallanceHUF_P + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_P", _BallanceHUF_P, value) + End Set + End Property + Property BallanceDEV_P As Double + Get + Return _BallanceDEV_P + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV_P", _BallanceDEV_P, value) + End Set + End Property + Property BallanceHUF_R As Double + Get + Return _BallanceHUF_R + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_R", _BallanceHUF_R, value) + End Set + End Property + Property BallanceDEV_R As Double + Get + Return _BallanceDEV_R + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV_R", _BallanceDEV_R, value) + End Set + End Property + Property BallanceHUF_B As Double + Get + Return _BallanceHUF_B + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_B", _BallanceHUF_B, value) + End Set + End Property + Property BallanceDEV_B As Double + Get + Return _BallanceDEV_B + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV_B", _BallanceDEV_B, value) + End Set + End Property + + Property DateCreated_Account As Date + Get + Return _DateCreated_Account + End Get + Set(value As Date) + SetPropertyValue("DateCreated_Account", _DateCreated_Account, value) + End Set + End Property + Property DatePayment_Account As Date + Get + Return _DatePayment_Account + End Get + Set(value As Date) + SetPropertyValue("DatePayment_Account", _DatePayment_Account, value) + End Set + End Property + Property DateExecution_Account As Date + Get + Return _DateExecution_Account + End Get + Set(value As Date) + SetPropertyValue("DateExecution_Account", _DateExecution_Account, value) + End Set + End Property + Property CurrencyName_Account As CurrencyName + Get + Return _CurrencyName_Account + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName_Account", _CurrencyName_Account, value) + End Set + End Property + Property Paymode_Account As ePayMode + Get + Return _Paymode_Account + End Get + Set(value As ePayMode) + SetPropertyValue("Paymode_Account", _Paymode_Account, value) + End Set + End Property + Property AmountHUF_Account As Double + Get + Return _AmountHUF_Account + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value) + End Set + End Property + Property AmountDEV_Account As Double + Get + Return _AmountDEV_Account + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value) + End Set + End Property + + Property BallanceState As Long + Get + Return _BallanceState + End Get + Set(value As Long) + SetPropertyValue("BallanceState", _BallanceState, value) + End Set + End Property + Property BallanceRateDiff As Long + Get + Return _BallanceRateDiff + End Get + Set(value As Long) + SetPropertyValue("BallanceRateDiff", _BallanceRateDiff, value) + End Set + End Property + Property RateDiffState As Long + Get + Return _RateDiffState + End Get + Set(value As Long) + SetPropertyValue("RateDiffState", _RateDiffState, value) + End Set + End Property + + Property DateLastConnected As Date + Get + Return _DateLastConnected + End Get + Set(value As Date) + SetPropertyValue("DateLastConnected", _DateLastConnected, value) + End Set + End Property + _ + ReadOnly Property BallanceRateDiffImage As Image + Get + If PartnerType = ePartnerType.eReceivables Then + If RateDiffState = -1 Then 'rfolyam vesztesg + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + Else 'rfolyam nyeresg + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + End If + ElseIf PartnerType = ePartnerType.ePayabels Then + If RateDiffState = 1 Then 'rfolyam nyeresg + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + Else 'rfolyam vesztesg + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + End If + Else + Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image + End If + End Get + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + + ReadOnly Property DelayedDayLastConnected As Long + Get + Dim _Now As DateTime = Now + If Me.DateLastConnected <> #12:00:00 AM# Then + If InvoiceHeader IsNot Nothing Then + Return DateDiff(DateInterval.Day, Me.InvoiceHeader.DatePayment.Date, Me.DateLastConnected.Date) + Else + Return 0 + End If + Else + If InvoiceHeader IsNot Nothing Then + Return DateDiff(DateInterval.Day, Me.InvoiceHeader.DatePayment.Date, Now.Date) + Else + Return 0 + End If + Return 0 + End If + End Get + End Property + 'Property ChartOfAccounts_Customers As ChartOfAccounts + ' Get + ' Return _ChartOfAccounts_Customers + ' End Get + ' Set(value As ChartOfAccounts) + ' SetPropertyValue("ChartOfAccounts_Customers", _ChartOfAccounts_Customers, value) + ' End Set + 'End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAging.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAging.vb new file mode 100644 index 0000000..c53043c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAging.vb @@ -0,0 +1,342 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PCIGroupAging 'Cask a nem kszpnzes szllti vevi szlkrl info mai napra. + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _DateExecution As Date + Private _DateCreated As Date + Private _DatePayment As Date + Private _AmountHUF_Account As Double = 0 + Private _AmountDEV_Account As Double = 0 + Private _AmountHUF_Account_Normal As Double = 0 + Private _AmountDEV_Account_Normal As Double = 0 + Private _AmountHUF_Account_Hold As Double = 0 + Private _AmountDEV_Account_Hold As Double = 0 + Private _BallanceHUF As Double = 0 + Private _BallanceDEV As Double = 0 + Private _CurrencyName As CurrencyName + + Private _PCIGroup As PCIGroup + Private _IsExpired As Boolean + + Private _F01_EXPIREDHUF As Double = 0 + Private _F01_EXPIREDDEV As Double = 0 + Private _F02_30HUF As Double = 0 + Private _F02_30DEV As Double = 0 + Private _F03_90HUF As Double = 0 + Private _F03_90DEV As Double = 0 + Private _F04_1YEARHUF As Double = 0 + Private _F04_1YEARDEV As Double = 0 + Private _F05_2YEARHUF As Double = 0 + Private _F05_2YEARDEV As Double = 0 + Private _F06_3YEARHUF As Double = 0 + Private _F06_3YEARDEV As Double = 0 + Private _F07_6YEARHUF As Double = 0 + Private _F07_6YEARDEV As Double = 0 + Private _F08_6PLUSYEARHUF As Double = 0 + Private _F08_6PLUSYEARDEV As Double = 0 + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DateCreated As Date + Get + Return _DateCreated + End Get + Set(value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property AmountHUF_Account As Double + Get + Return _AmountHUF_Account + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account", _AmountHUF_Account, value) + End Set + End Property + Property AmountDEV_Account As Double + Get + Return _AmountDEV_Account + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account", _AmountDEV_Account, value) + End Set + End Property + Property AmountHUF_Account_Normal As Double + Get + Return _AmountHUF_Account_Normal + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account_Normal", _AmountHUF_Account_Normal, value) + End Set + End Property + Property AmountDEV_Account_Normal As Double + Get + Return _AmountDEV_Account_Normal + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account_Normal", _AmountDEV_Account_Normal, value) + End Set + End Property + Property AmountHUF_Account_Hold As Double + Get + Return _AmountHUF_Account_Hold + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Account_Hold", _AmountHUF_Account_Hold, value) + End Set + End Property + Property AmountDEV_Account_Hold As Double + Get + Return _AmountDEV_Account_Hold + End Get + Set(value As Double) + SetPropertyValue("AmountDEV_Account_Hold", _AmountDEV_Account_Hold, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + + Property PCIGroup As PCIGroup + Get + Return _PCIGroup + End Get + Set(value As PCIGroup) + SetPropertyValue("PCIGroup", _PCIGroup, value) + End Set + End Property + Property IsExpired As Boolean + Get + Return _IsExpired + End Get + Set(value As Boolean) + SetPropertyValue("IsExpired", _IsExpired, value) + End Set + End Property + + Property F01_EXPIREDHUF As Double + Get + Return _F01_EXPIREDHUF + End Get + Set(value As Double) + SetPropertyValue("F01_EXPIREDHUF", _F01_EXPIREDHUF, value) + End Set + End Property + Property F01_EXPIREDDEV As Double + Get + Return _F01_EXPIREDDEV + End Get + Set(value As Double) + SetPropertyValue("F01_EXPIREDDEV", _F01_EXPIREDDEV, value) + End Set + End Property + Property F02_30HUF As Double + Get + Return _F02_30HUF + End Get + Set(value As Double) + SetPropertyValue("F02_30HUF", _F02_30HUF, value) + End Set + End Property + Property F02_30DEV As Double + Get + Return _F02_30DEV + End Get + Set(value As Double) + SetPropertyValue("F02_30DEV", _F02_30DEV, value) + End Set + End Property + Property F03_90HUF As Double + Get + Return _F03_90HUF + End Get + Set(value As Double) + SetPropertyValue("F03_90HUF", _F03_90HUF, value) + End Set + End Property + Property F03_90DEV As Double + Get + Return _F03_90DEV + End Get + Set(value As Double) + SetPropertyValue("F03_90DEV", _F03_90DEV, value) + End Set + End Property + Property F04_1YEARHUF As Double + Get + Return _F04_1YEARHUF + End Get + Set(value As Double) + SetPropertyValue("F04_1YEARHUF", _F04_1YEARHUF, value) + End Set + End Property + Property F04_1YEARDEV As Double + Get + Return _F04_1YEARDEV + End Get + Set(value As Double) + SetPropertyValue("F04_1YEARDEV", _F04_1YEARDEV, value) + End Set + End Property + Property F05_2YEARHUF As Double + Get + Return _F05_2YEARHUF + End Get + Set(value As Double) + SetPropertyValue("F05_2YEARHUF", _F05_2YEARHUF, value) + End Set + End Property + Property F05_2YEARDEV As Double + Get + Return _F05_2YEARDEV + End Get + Set(value As Double) + SetPropertyValue("F05_2YEARDEV", _F05_2YEARDEV, value) + End Set + End Property + Property F06_3YEARHUF As Double + Get + Return _F06_3YEARHUF + End Get + Set(value As Double) + SetPropertyValue("F06_3YEARHUF", _F06_3YEARHUF, value) + End Set + End Property + Property F06_3YEARDEV As Double + Get + Return _F06_3YEARDEV + End Get + Set(value As Double) + SetPropertyValue("F06_3YEARDEV", _F06_3YEARDEV, value) + End Set + End Property + Property F07_6YEARHUF As Double + Get + Return _F07_6YEARHUF + End Get + Set(value As Double) + SetPropertyValue("F07_6YEARHUF", _F07_6YEARHUF, value) + End Set + End Property + Property F07_6YEARDEV As Double + Get + Return _F07_6YEARDEV + End Get + Set(value As Double) + SetPropertyValue("F07_6YEARDEV", _F07_6YEARDEV, value) + End Set + End Property + Property F08_6PLUSYEARHUF As Double + Get + Return _F08_6PLUSYEARHUF + End Get + Set(value As Double) + SetPropertyValue("F08_6PLUSYEARHUF", _F08_6PLUSYEARHUF, value) + End Set + End Property + Property F08_6PLUSYEARDEV As Double + Get + Return _F08_6PLUSYEARDEV + End Get + Set(value As Double) + SetPropertyValue("F08_6PLUSYEARDEV", _F08_6PLUSYEARDEV, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.Designer.vb new file mode 100644 index 0000000..443ca7a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.Designer.vb @@ -0,0 +1,83 @@ +Partial Class PCIGroupAgingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGeneratePCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachmentsPCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistryPCIGroupAging = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGeneratePCIGroupAging + ' + Me.aGeneratePCIGroupAging.Caption = "aGenerate PCIGroup Aging" + Me.aGeneratePCIGroupAging.ConfirmationMessage = Nothing + Me.aGeneratePCIGroupAging.Id = "aGeneratePCIGroupAging" + Me.aGeneratePCIGroupAging.ImageName = Nothing + Me.aGeneratePCIGroupAging.Shortcut = Nothing + Me.aGeneratePCIGroupAging.Tag = Nothing + Me.aGeneratePCIGroupAging.TargetObjectsCriteria = Nothing + Me.aGeneratePCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging) + Me.aGeneratePCIGroupAging.TargetViewId = Nothing + Me.aGeneratePCIGroupAging.ToolTip = Nothing + Me.aGeneratePCIGroupAging.TypeOfView = Nothing + ' + 'aViewAttachmentsPCIGroupAging + ' + Me.aViewAttachmentsPCIGroupAging.Caption = "aViewAttachmentsPCIGroup" + Me.aViewAttachmentsPCIGroupAging.ConfirmationMessage = Nothing + Me.aViewAttachmentsPCIGroupAging.Id = "aViewAttachmentsPCIGroupAging" + Me.aViewAttachmentsPCIGroupAging.ImageName = "printer_view" + Me.aViewAttachmentsPCIGroupAging.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachmentsPCIGroupAging.Shortcut = Nothing + Me.aViewAttachmentsPCIGroupAging.Tag = Nothing + Me.aViewAttachmentsPCIGroupAging.TargetObjectsCriteria = Nothing + Me.aViewAttachmentsPCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging) + Me.aViewAttachmentsPCIGroupAging.TargetViewId = "" + Me.aViewAttachmentsPCIGroupAging.ToolTip = Nothing + Me.aViewAttachmentsPCIGroupAging.TypeOfView = Nothing + ' + 'aViewRegistryPCIGroupAging + ' + Me.aViewRegistryPCIGroupAging.Caption = "aViewRegistryPCIGroupAging" + Me.aViewRegistryPCIGroupAging.ConfirmationMessage = Nothing + Me.aViewRegistryPCIGroupAging.Id = "aViewRegistryPCIGroupAging" + Me.aViewRegistryPCIGroupAging.ImageName = "document_pinned" + Me.aViewRegistryPCIGroupAging.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistryPCIGroupAging.Shortcut = Nothing + Me.aViewRegistryPCIGroupAging.Tag = Nothing + Me.aViewRegistryPCIGroupAging.TargetObjectsCriteria = Nothing + Me.aViewRegistryPCIGroupAging.TargetObjectType = GetType(SISBusiness.[Module].PCIGroupAging) + Me.aViewRegistryPCIGroupAging.TargetViewId = "" + Me.aViewRegistryPCIGroupAging.ToolTip = Nothing + Me.aViewRegistryPCIGroupAging.TypeOfView = Nothing + + End Sub + Friend WithEvents aGeneratePCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachmentsPCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistryPCIGroupAging As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.resx new file mode 100644 index 0000000..96d8c1f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 91 + + + 17, 54 + + + 415, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.vb new file mode 100644 index 0000000..8e24c7e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIGroupAgingVC.vb @@ -0,0 +1,329 @@ +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.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering + +Public Class PCIGroupAgingVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aGeneratePCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGeneratePCIGroupAging.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _PCIGroupAging As PCIGroupAging + + Dim _SQL As String = "" + Select Case GLOBAL_SQLType + Case eSQLType.MySQL + _SQL = "delete from PCIGroupAging" + Case eSQLType.PostgreSQL + _SQL = "delete from ""PCIGroupAging""" + Case eSQLType.MSSQL + _SQL = "delete from PCIGroupAging" + End Select + _uow.ExecuteNonQuery(_SQL) + _uow.CommitChanges() + + Dim _PCIGroup_Collection As New XPCollection(Of PCIGroup)(_uow, CriteriaOperator.Parse("isnull(InvoiceHeader)=False or isnull(RegistryHeader)=False")) + Dim _PCIGroup As PCIGroup + + + RaiseEvent InitWork(1, 1, _PCIGroup_Collection.Count) + For Each _PCIGroup In _PCIGroup_Collection + RaiseEvent DoWork() + _PCIGroupAging = New PCIGroupAging(_uow) + _PCIGroupAging.PCIGroup = _PCIGroup + _PCIGroupAging.CustomersFrom = _PCIGroup.CustomersFrom + _PCIGroupAging.Customers = _PCIGroup.Customers + _PCIGroupAging.PartnerType = _PCIGroup.PartnerType + + _PCIGroupAging.DateExecution = _PCIGroup.DateExecution_Account + _PCIGroupAging.DatePayment = _PCIGroup.DatePayment_Account + _PCIGroupAging.DateCreated = _PCIGroup.DateCreated_Account + + _PCIGroupAging.ConnectInfo = _PCIGroup.ConnectInfo + _PCIGroupAging.CurrencyName = _PCIGroup.CurrencyName_Account + + _PCIGroupAging.AmountHUF_Account = _PCIGroup.AmountHUF_Account + _PCIGroupAging.AmountHUF_Account_Hold = 0 + _PCIGroupAging.AmountHUF_Account_Normal = 0 + + _PCIGroupAging.BallanceHUF = _PCIGroup.BallanceHUF + + If _PCIGroupAging.DatePayment < Now Then + _PCIGroupAging.IsExpired = True + Else + _PCIGroupAging.IsExpired = False + End If + + If _PCIGroup.InvoiceHeader IsNot Nothing Then + Dim _InvoiceHold_Collection As New XPCollection(Of InvoiceHold)(_uow, CriteriaOperator.Parse("InvoiceHeader=?", _PCIGroup.InvoiceHeader)) + Dim _InvoiceHold As InvoiceHold + Dim _Exists As Boolean = False + For Each _InvoiceHold In _InvoiceHold_Collection + _Exists = True + If _InvoiceHold.RowType = eHoldRowType.Hold Then + _PCIGroupAging.AmountHUF_Account_Hold += _InvoiceHold.AmountHUF + End If + If _InvoiceHold.RowType = eHoldRowType.Normal Then + _PCIGroupAging.AmountHUF_Account_Normal += _InvoiceHold.AmountHUF + End If + Next + If _Exists Then + For Each _InvoiceHold In _InvoiceHold_Collection + Select Case DateDiff(DateInterval.Day, Now, _InvoiceHold.DatePayment) + Case 1 To 30 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F02_30HUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F02_30DEV += _InvoiceHold.BallanceDEV + End If + Case 31 To 90 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F03_90HUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F03_90DEV += _InvoiceHold.BallanceDEV + End If + Case 91 To 365 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F04_1YEARHUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F04_1YEARDEV += _InvoiceHold.BallanceDEV + End If + Case 366 To 730 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F05_2YEARHUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F05_2YEARDEV += _InvoiceHold.BallanceDEV + End If + Case 731 To 1095 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F06_3YEARHUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F06_3YEARDEV += _InvoiceHold.BallanceDEV + End If + Case 1096 To 2190 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F07_6YEARHUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F07_6YEARDEV += _InvoiceHold.BallanceDEV + End If + Case Is > 2190 + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F08_6PLUSYEARHUF += _InvoiceHold.BallanceHUF + End If + If _InvoiceHold.BallanceHUF > 0 Then + _PCIGroupAging.F08_6PLUSYEARDEV += _InvoiceHold.BallanceDEV + End If + End Select + Next + End If + If _Exists = False Then + Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment) + Case 1 To 30 + _PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF + Case 31 To 90 + _PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF + Case 91 To 365 + _PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF + Case 366 To 730 + _PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF + Case 731 To 1095 + _PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF + Case 1096 To 2190 + _PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF + Case Is > 2190 + _PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF + Case Is < 0 + _PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV + _PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF + End Select + End If + ElseIf _PCIGroup.RegistryHeader IsNot Nothing Then + Dim _RegistryBankTransfer_Collection As New XPCollection(Of RegistryBankTransfer)(_uow, CriteriaOperator.Parse("RegistryHeader=?", _PCIGroup.RegistryHeader)) + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _Exists As Boolean = False + For Each _RegistryBankTransfer In _RegistryBankTransfer_Collection + _Exists = True + If _RegistryBankTransfer.RowType = eHoldRowType.Hold Then + _PCIGroupAging.AmountHUF_Account_Hold += _RegistryBankTransfer.AmountHUF + End If + If _RegistryBankTransfer.RowType = eHoldRowType.Normal Then + _PCIGroupAging.AmountHUF_Account_Normal += _RegistryBankTransfer.AmountHUF + End If + Next + If _Exists Then + For Each _RegistryBankTransfer In _RegistryBankTransfer_Collection + Select Case DateDiff(DateInterval.Day, Now, _RegistryBankTransfer.DatePayment) + Case 1 To 30 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F02_30HUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F02_30DEV += _RegistryBankTransfer.BallanceDEV + End If + Case 31 To 90 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F03_90HUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F03_90DEV += _RegistryBankTransfer.BallanceDEV + End If + Case 91 To 365 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F04_1YEARHUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F04_1YEARDEV += _RegistryBankTransfer.BallanceDEV + End If + Case 366 To 730 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F05_2YEARHUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F05_2YEARDEV += _RegistryBankTransfer.BallanceDEV + End If + Case 731 To 1095 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F06_3YEARHUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F06_3YEARDEV += _RegistryBankTransfer.BallanceDEV + End If + Case 1096 To 2190 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F07_6YEARHUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F07_6YEARDEV += _RegistryBankTransfer.BallanceDEV + End If + Case Is > 2190 + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F08_6PLUSYEARHUF += _RegistryBankTransfer.BallanceHUF + End If + If _RegistryBankTransfer.BallanceHUF > 0 Then + _PCIGroupAging.F08_6PLUSYEARDEV += _RegistryBankTransfer.BallanceDEV + End If + End Select + Next + End If + If _Exists = False Then + Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment) + Case 1 To 30 + _PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF + Case 31 To 90 + _PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF + Case 91 To 365 + _PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF + Case 366 To 730 + _PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF + Case 731 To 1095 + _PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF + Case 1096 To 2190 + _PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF + Case Is > 2190 + _PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF + Case Is < 0 + _PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV + _PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF + End Select + End If + + Else + Select Case DateDiff(DateInterval.Day, Now, _PCIGroupAging.DatePayment) + Case 1 To 30 + _PCIGroupAging.F02_30DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F02_30HUF = _PCIGroupAging.BallanceHUF + Case 31 To 90 + _PCIGroupAging.F03_90DEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F03_90HUF = _PCIGroupAging.BallanceHUF + Case 91 To 365 + _PCIGroupAging.F04_1YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F04_1YEARHUF = _PCIGroupAging.BallanceHUF + Case 366 To 730 + _PCIGroupAging.F05_2YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F05_2YEARHUF = _PCIGroupAging.BallanceHUF + Case 731 To 1095 + _PCIGroupAging.F06_3YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F06_3YEARDEV = _PCIGroupAging.BallanceHUF + Case 1096 To 2190 + _PCIGroupAging.F07_6YEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F07_6YEARHUF = _PCIGroupAging.BallanceHUF + Case Is > 2190 + _PCIGroupAging.F08_6PLUSYEARDEV = _PCIGroup.BallanceDEV + _PCIGroupAging.F08_6PLUSYEARHUF = _PCIGroupAging.BallanceHUF + Case Is < 0 + _PCIGroupAging.F01_EXPIREDDEV = _PCIGroupAging.BallanceDEV + _PCIGroupAging.F01_EXPIREDHUF = _PCIGroupAging.BallanceHUF + End Select + End If + + + _uow.CommitChanges() + Next + RaiseEvent FinalWork + _uow.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + + Private Sub aViewAttachmentsPCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewAttachmentsPCIGroupAging.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroupAging As PCIGroupAging = TryCast(View.SelectedObjects(0), PCIGroupAging) + + If _PCIGroupAging IsNot Nothing Then + ViewAttachments.ViewAttachments(_ocur, Frame, _PCIGroupAging.CustomersFrom, _ + _PCIGroupAging.Customers, _PCIGroupAging.ConnectInfo, _ + "") + End If + End Sub + + Private Sub aViewRegistryPCIGroupAging_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewRegistryPCIGroupAging.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroupAging As PCIGroupAging = TryCast(View.SelectedObjects(0), PCIGroupAging) + + If _PCIGroupAging IsNot Nothing Then + ViewRegistry.ViewRegistry(_ocur, Application, e, _PCIGroupAging.CustomersFrom, _ + _PCIGroupAging.Customers, _PCIGroupAging.ConnectInfo) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.Designer.vb new file mode 100644 index 0000000..782d302 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.Designer.vb @@ -0,0 +1,290 @@ +Partial Class PCIVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aPCIGenerate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateConnectionDirectDifferentCurrency = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateConnectionDirect = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateConnectionDrop = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateRateDiffPCIGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateConnectionLiquidAssets = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateConnectionDivide = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewRegistryPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachmentsPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateConnectionAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPCIDGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateRoundingPCIGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPCICheckCustomers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRepairPCIGroup = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRemoveRatediffPCIDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDGroup_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewCPB = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCIGroup_ChangeInfo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPCIDGroup_GLDetails = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aPCIGenerate + ' + Me.aPCIGenerate.Caption = "aPCIGenerate" + Me.aPCIGenerate.Category = "ObjectsCreation" + Me.aPCIGenerate.ConfirmationMessage = "Are you sure ?" + Me.aPCIGenerate.Id = "aPCIGenerate" + Me.aPCIGenerate.ToolTip = Nothing + ' + 'aCreateConnectionDirectDifferentCurrency + ' + Me.aCreateConnectionDirectDifferentCurrency.AcceptButtonCaption = Nothing + Me.aCreateConnectionDirectDifferentCurrency.CancelButtonCaption = Nothing + Me.aCreateConnectionDirectDifferentCurrency.Caption = "aCreateConnectionDirectDifferentCurrency" + Me.aCreateConnectionDirectDifferentCurrency.Category = "RecordEdit" + Me.aCreateConnectionDirectDifferentCurrency.ConfirmationMessage = Nothing + Me.aCreateConnectionDirectDifferentCurrency.Id = "aCreateConnectionDirectDifferentCurrency" + Me.aCreateConnectionDirectDifferentCurrency.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateConnectionDirectDifferentCurrency.TargetViewId = "" + Me.aCreateConnectionDirectDifferentCurrency.ToolTip = Nothing + ' + 'aCreateConnectionDirect + ' + Me.aCreateConnectionDirect.AcceptButtonCaption = Nothing + Me.aCreateConnectionDirect.CancelButtonCaption = Nothing + Me.aCreateConnectionDirect.Caption = "aCreateConnectionDirect" + Me.aCreateConnectionDirect.Category = "RecordEdit" + Me.aCreateConnectionDirect.ConfirmationMessage = Nothing + Me.aCreateConnectionDirect.Id = "aCreateConnectionDirect" + Me.aCreateConnectionDirect.ImageName = "document_connection" + Me.aCreateConnectionDirect.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateConnectionDirect.TargetViewId = "" + Me.aCreateConnectionDirect.ToolTip = Nothing + ' + 'aCreateConnectionDrop + ' + Me.aCreateConnectionDrop.Caption = "aCreateConnectionDrop" + Me.aCreateConnectionDrop.Category = "RecordEdit" + Me.aCreateConnectionDrop.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateConnectionDrop.Id = "aCreateConnectionDrop" + Me.aCreateConnectionDrop.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateConnectionDrop.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aCreateConnectionDrop.ToolTip = Nothing + ' + 'aCreateRateDiffPCIGroup + ' + Me.aCreateRateDiffPCIGroup.AcceptButtonCaption = Nothing + Me.aCreateRateDiffPCIGroup.CancelButtonCaption = Nothing + Me.aCreateRateDiffPCIGroup.Caption = "aCreateRateDiffPCIGroup" + Me.aCreateRateDiffPCIGroup.ConfirmationMessage = Nothing + Me.aCreateRateDiffPCIGroup.Id = "aCreateRateDiffPCIGroup" + Me.aCreateRateDiffPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateRateDiffPCIGroup.ToolTip = Nothing + ' + 'aCreateConnectionLiquidAssets + ' + Me.aCreateConnectionLiquidAssets.AcceptButtonCaption = Nothing + Me.aCreateConnectionLiquidAssets.CancelButtonCaption = Nothing + Me.aCreateConnectionLiquidAssets.Caption = "aCreateConnectionLiquidAssets" + Me.aCreateConnectionLiquidAssets.Category = "RecordEdit" + Me.aCreateConnectionLiquidAssets.ConfirmationMessage = Nothing + Me.aCreateConnectionLiquidAssets.Id = "aCreateConnectionLiquidAssets" + Me.aCreateConnectionLiquidAssets.ImageName = "document_connection" + Me.aCreateConnectionLiquidAssets.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateConnectionLiquidAssets.TargetViewId = "" + Me.aCreateConnectionLiquidAssets.ToolTip = Nothing + ' + 'aCreateConnectionDivide + ' + Me.aCreateConnectionDivide.AcceptButtonCaption = Nothing + Me.aCreateConnectionDivide.CancelButtonCaption = Nothing + Me.aCreateConnectionDivide.Caption = "aCreateConnectionDivide" + Me.aCreateConnectionDivide.Category = "RecordEdit" + Me.aCreateConnectionDivide.ConfirmationMessage = Nothing + Me.aCreateConnectionDivide.Id = "aCreateConnectionDivide" + Me.aCreateConnectionDivide.ImageName = "document_connection" + Me.aCreateConnectionDivide.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateConnectionDivide.TargetViewId = "" + Me.aCreateConnectionDivide.ToolTip = Nothing + ' + 'aViewRegistryPCIGroup + ' + Me.aViewRegistryPCIGroup.Caption = "aViewRegistryPCIGroup" + Me.aViewRegistryPCIGroup.ConfirmationMessage = Nothing + Me.aViewRegistryPCIGroup.Id = "aViewRegistryPCIGroup" + Me.aViewRegistryPCIGroup.ImageName = "document_pinned" + Me.aViewRegistryPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistryPCIGroup.TargetViewId = "" + Me.aViewRegistryPCIGroup.ToolTip = Nothing + ' + 'aViewAttachmentsPCIGroup + ' + Me.aViewAttachmentsPCIGroup.Caption = "aViewAttachmentsPCIGroup" + Me.aViewAttachmentsPCIGroup.ConfirmationMessage = Nothing + Me.aViewAttachmentsPCIGroup.Id = "aViewAttachmentsPCIGroup" + Me.aViewAttachmentsPCIGroup.ImageName = "printer_view" + Me.aViewAttachmentsPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachmentsPCIGroup.TargetViewId = "" + Me.aViewAttachmentsPCIGroup.ToolTip = Nothing + ' + 'aPCICheck + ' + Me.aPCICheck.Caption = "aPCICheck" + Me.aPCICheck.Category = "RecordEdit" + Me.aPCICheck.ConfirmationMessage = Nothing + Me.aPCICheck.Id = "aPCICheck" + Me.aPCICheck.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck.ToolTip = Nothing + ' + 'aCreateConnectionAccount + ' + Me.aCreateConnectionAccount.AcceptButtonCaption = Nothing + Me.aCreateConnectionAccount.CancelButtonCaption = Nothing + Me.aCreateConnectionAccount.Caption = "aCreateConnectionAccount" + Me.aCreateConnectionAccount.Category = "RecordEdit" + Me.aCreateConnectionAccount.ConfirmationMessage = Nothing + Me.aCreateConnectionAccount.Id = "aCreateConnectionAccount" + Me.aCreateConnectionAccount.ImageName = "document_connection" + Me.aCreateConnectionAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateConnectionAccount.TargetViewId = "" + Me.aCreateConnectionAccount.ToolTip = Nothing + ' + 'aViewPCIDGroup + ' + Me.aViewPCIDGroup.Caption = "aViewPCIDGroup" + Me.aViewPCIDGroup.ConfirmationMessage = Nothing + Me.aViewPCIDGroup.Id = "aViewPCIDGroup" + Me.aViewPCIDGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewPCIDGroup.TargetViewId = "" + Me.aViewPCIDGroup.ToolTip = Nothing + ' + 'aCreateRoundingPCIGroup + ' + Me.aCreateRoundingPCIGroup.AcceptButtonCaption = Nothing + Me.aCreateRoundingPCIGroup.CancelButtonCaption = Nothing + Me.aCreateRoundingPCIGroup.Caption = "aCreateRateDiffPCIGroup" + Me.aCreateRoundingPCIGroup.ConfirmationMessage = Nothing + Me.aCreateRoundingPCIGroup.Id = "aCreateRoundingPCIGroup" + Me.aCreateRoundingPCIGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateRoundingPCIGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aCreateRoundingPCIGroup.ToolTip = Nothing + ' + 'aPCICheckCustomers + ' + Me.aPCICheckCustomers.Caption = "aPCICheck Customers" + Me.aPCICheckCustomers.Category = "RecordEdit" + Me.aPCICheckCustomers.ConfirmationMessage = Nothing + Me.aPCICheckCustomers.Id = "aPCICheckCustomers" + Me.aPCICheckCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheckCustomers.TargetObjectType = GetType(SISBusiness.[Module].PCIDetail) + Me.aPCICheckCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPCICheckCustomers.ToolTip = Nothing + Me.aPCICheckCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aRepairPCIGroup + ' + Me.aRepairPCIGroup.Caption = "aRepair PCIGroup" + Me.aRepairPCIGroup.ConfirmationMessage = Nothing + Me.aRepairPCIGroup.Id = "aRepairPCIGroup" + Me.aRepairPCIGroup.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aRepairPCIGroup.TargetViewId = "" + Me.aRepairPCIGroup.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aRepairPCIGroup.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aRepairPCIGroup.ToolTip = Nothing + Me.aRepairPCIGroup.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aRemoveRatediffPCIDetail + ' + Me.aRemoveRatediffPCIDetail.Caption = "aRemove Ratediff PCIDetail" + Me.aRemoveRatediffPCIDetail.Category = "RecordEdit" + Me.aRemoveRatediffPCIDetail.ConfirmationMessage = "Are you sure ?" + Me.aRemoveRatediffPCIDetail.Id = "aRemoveRatediffPCIDetail" + Me.aRemoveRatediffPCIDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRemoveRatediffPCIDetail.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aRemoveRatediffPCIDetail.TargetObjectType = GetType(SISBusiness.[Module].PCIDetail) + Me.aRemoveRatediffPCIDetail.ToolTip = Nothing + ' + 'aViewPCIDGroup_Customers + ' + Me.aViewPCIDGroup_Customers.Caption = "aViewPCIDGroup" + Me.aViewPCIDGroup_Customers.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_Customers.Id = "aViewPCIDGroup_Customers" + Me.aViewPCIDGroup_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_Customers.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewPCIDGroup_Customers.TargetViewId = "" + Me.aViewPCIDGroup_Customers.ToolTip = Nothing + ' + 'aViewCPB + ' + Me.aViewCPB.Caption = "aView CPB" + Me.aViewCPB.ConfirmationMessage = Nothing + Me.aViewCPB.Id = "aViewCPB" + Me.aViewCPB.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewCPB.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewCPB.ToolTip = Nothing + ' + 'aPCIGroup_ChangeInfo + ' + Me.aPCIGroup_ChangeInfo.AcceptButtonCaption = Nothing + Me.aPCIGroup_ChangeInfo.CancelButtonCaption = Nothing + Me.aPCIGroup_ChangeInfo.Caption = "aPCIGroup_ChangeInfo" + Me.aPCIGroup_ChangeInfo.ConfirmationMessage = Nothing + Me.aPCIGroup_ChangeInfo.Id = "aPCIGroup_ChangeInfo" + Me.aPCIGroup_ChangeInfo.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCIGroup_ChangeInfo.TargetViewId = "PCIGroup_ListView_DelayedPay" + Me.aPCIGroup_ChangeInfo.ToolTip = Nothing + ' + 'aViewPCIDGroup_GLDetails + ' + Me.aViewPCIDGroup_GLDetails.Caption = "aViewPCIDGroup_GLDetails" + Me.aViewPCIDGroup_GLDetails.ConfirmationMessage = Nothing + Me.aViewPCIDGroup_GLDetails.Id = "aViewPCIDGroup_GLDetails" + Me.aViewPCIDGroup_GLDetails.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDGroup_GLDetails.TargetObjectType = GetType(SISBusiness.[Module].PCIGroup) + Me.aViewPCIDGroup_GLDetails.TargetViewId = "" + Me.aViewPCIDGroup_GLDetails.ToolTip = Nothing + + End Sub + Friend WithEvents aPCIGenerate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateConnectionDirectDifferentCurrency As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateConnectionDirect As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateConnectionDrop As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateRateDiffPCIGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateConnectionLiquidAssets As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateConnectionDivide As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewRegistryPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachmentsPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateConnectionAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateRoundingPCIGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPCICheckCustomers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRepairPCIGroup As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRemoveRatediffPCIDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDGroup_Customers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewCPB As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCIGroup_ChangeInfo As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPCIDGroup_GLDetails As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.resx new file mode 100644 index 0000000..5969dce --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.resx @@ -0,0 +1,183 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 173 + + + 17, 212 + + + 17, 251 + + + 17, 290 + + + 17, 329 + + + 17, 407 + + + 17, 446 + + + 17, 524 + + + 17, 563 + + + 17, 641 + + + 17, 680 + + + 17, 719 + + + 17, 602 + + + 17, 485 + + + 17, 368 + + + 17, 56 + + + 17, 134 + + + 211, 95 + + + 215, 719 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb new file mode 100644 index 0000000..1746ecf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/PCIVC.vb @@ -0,0 +1,1373 @@ +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.CloneObject +Imports System.IO + +Imports DevExpress.WebUtils + + +Public Class PCIVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection As ArrayList + Protected noselect As Boolean = False + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + selection = New ArrayList() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + + + Frame.GetController(Of PCIVC).aPCIGenerate.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aPCICheck.Active.SetItemValue("", False) + + '-- Pontozások + Frame.GetController(Of PCIVC).aCreateConnectionDirectDifferentCurrency.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateConnectionDirect.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateConnectionDrop.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateRateDiffPCIGroup.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateConnectionLiquidAssets.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateConnectionDivide.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateConnectionAccount.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aCreateRoundingPCIGroup.Active.SetItemValue("", False) + + '--- Betekintések ... + Frame.GetController(Of PCIVC).aViewAttachmentsPCIGroup.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aViewPCIDGroup.Active.SetItemValue("", False) + Frame.GetController(Of PCIVC).aViewRegistryPCIGroup.Active.SetItemValue("", False) + + If View.Id = "PCIGroup_ListView_DelayedPay" Then + Frame.GetController(Of PCIVC).aViewAttachmentsPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewPCIDGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aPCICheck.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aRepairPCIGroup.Active.SetItemValue("", False) + End If + If View.Id = "PCIGroup_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + + + Frame.GetController(Of PCIVC).aPCIGenerate.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aPCICheck.Active.SetItemValue("", True) + + Frame.GetController(Of PCIVC).aViewAttachmentsPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewPCIDGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewRegistryPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateRoundingPCIGroup.Active.SetItemValue("", True) + End If + + If View.Id = "PCIDetail_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + + Frame.GetController(Of PCIVC).aCreateConnectionDirectDifferentCurrency.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateConnectionDirect.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateConnectionDrop.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateConnectionLiquidAssets.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateConnectionDivide.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aCreateConnectionAccount.Active.SetItemValue("", True) + End If + + If View.Id = "PCIGroup_ListView_Rate" Then + Frame.GetController(Of PCIVC).aCreateRateDiffPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aPCICheck.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewAttachmentsPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewPCIDGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewRegistryPCIGroup.Active.SetItemValue("", True) + End If + + If View.Id = "PCIGroup_ListView_Rounding" Then + Frame.GetController(Of PCIVC).aCreateRoundingPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewAttachmentsPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewPCIDGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aViewRegistryPCIGroup.Active.SetItemValue("", True) + Frame.GetController(Of PCIVC).aPCICheck.Active.SetItemValue("", True) + End If + + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _PCIDetail As PCIDetail + Dim _PCIGroup As PCIGroup + If View Is Nothing Then Exit Sub + + If View.Id Like "PCIDetail*" And noselect = False Then + selection.Clear() + For Each _PCIDetail In View.SelectedObjects + selection.Add(_PCIDetail) + Next + End If + + If View.Id = "PCIGroup_ListView_Rate" And noselect = False Then + selection.Clear() + For Each _PCIGroup In View.SelectedObjects + selection.Add(_PCIGroup) + Next + End If + If View.Id = "PCIGroup_ListView_Rounding" And noselect = False Then + selection.Clear() + For Each _PCIGroup In View.SelectedObjects + selection.Add(_PCIGroup) + Next + End If + If View.Id = "PCIGroup_ListView" And noselect = False Then + selection.Clear() + For Each _PCIGroup In View.SelectedObjects + selection.Add(_PCIGroup) + Next + End If + End Sub + + Private Sub aPCIGenerate_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCIGenerate.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLAccounts As GLAccounts + Dim _GLRows As GLRows + Dim _InvoiceHeader As InvoiceHeader + Dim _RegistryHeader As RegistryHeader + + '// Ki kell dobni minden korábbi pontozást ! + 'Dim _PCIDetail_Collection As New XPCollection(Of PCIDetail)(_uow) + '_uow.Delete(_PCIDetail_Collection) + + 'Dim _PCIGroup_Collection As New XPCollection(Of PCIGroup)(_uow) + '_uow.Delete(_PCIGroup_Collection) + + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery("delete from ""PCIDetail""") + _uow.ExecuteNonQuery("update ""InvoiceHeader"" set ""PCIGroup""=Null") + _uow.ExecuteNonQuery("update ""PCIGroupAging"" set ""PCIGroup""=Null") + _uow.ExecuteNonQuery("delete from ""PCIGroup""") + _uow.CommitChanges() + Case Else + _uow.ExecuteNonQuery("delete from PCIDetail") + _uow.ExecuteNonQuery("update InvoiceHeader set PCIGroup=Null") + _uow.ExecuteNonQuery("update PCIGroupAging set PCIGroup=Null") + _uow.ExecuteNonQuery("delete from PCIGroup") + _uow.CommitChanges() + + End Select + + '// + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsDeleted=False and PartnerType in (0,1) and IsEditable=False")) + RaiseEvent InitWork(1, 1, _GLAccounts_Collection.Count) + For Each _GLAccounts In _GLAccounts_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + Next + RaiseEvent FinalWork + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("isnull(Customer)=False and PartnerType in (0,1)")) + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + RaiseEvent FinalWork + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_uow, CriteriaOperator.Parse("isnull(Customers)=False and IsEditable=False and isnull(GLAccounts)=True")) + RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count) + For Each _InvoiceHeader In _InvoiceHeader_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + Next + RaiseEvent FinalWork + + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_uow, CriteriaOperator.Parse("RegistryAcceptState=0 and RegistryType.RegistryMainType=0 and IsEditable=False and isnull(F_GLAccounts)=True")) + RaiseEvent InitWork(1, 1, _RegistryHeader_Collection.Count) + For Each _RegistryHeader In _RegistryHeader_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.DocumentNumber) + Next + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).Active.ResultValue = True Then + If Frame.GetController(Of RefreshController).RefreshAction.Active.ResultValue = True Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End Sub + + Private Sub aViewPCIDGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDGroup.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _PCIGroup.CustomersFrom, _ + _PCIGroup.Customers, _PCIGroup.PartnerType, _ + _PCIGroup.ConnectInfo) + End Sub + + Private Sub aCreateConnectionDirect_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateConnectionDirect.Cancel + noselect = False + End Sub + + Private Sub aCreateConnectionDirect_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateConnectionDirect.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Dim _PCIDetail As PCIDetail + Dim _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem As PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _IsAccount As Boolean = False + Dim _AccountCount As Long = 0 + Dim _Currency_Account As String + noselect = True + + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.FindObject(Of PartnerConnectionInfoCleanUp_PopupWindow)(CriteriaOperator.Parse("1=1")) + + If _PartnerConnectionInfoCleanUp_PopupWindow Is Nothing Then + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow)() + End If + + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count > 0 Then + _onew.Delete(_PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem) + End If + + For Each _PCIDetail In selection + If _PCIDetail.MainType = "01-Account" Then + _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo = _PCIDetail.ConnectInfo + _PartnerType = _PCIDetail.PartnerType + _Customers = _PCIDetail.Customers + _CustomersFrom = _PCIDetail.CustomersFrom + _Currency_Account = _PCIDetail.CurrencyName_Account.ShortName + _IsAccount = True + _AccountCount += 1 + End If + Next + If _IsAccount = False Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy számlát ki kell választani !") + End If + If _AccountCount > 1 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak egy számlát lehet kiválasztani !") + End If + _IsAccount = False + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + If _PCIDetail.CustomersFrom.Oid <> _CustomersFrom.Oid Or _ + _PCIDetail.Customers.Oid <> _Customers.Oid Or _ + _PCIDetail.PartnerType <> _PartnerType Then + _onew.Rollback() + Throw New Exception("*Csak azonos saját cég, partner és partner tipusú bizonylatokat lehet kijelölni !") + Else + If _PCIDetail.CurrencyName.ShortName = _Currency_Account Or _Currency_Account = "HUF" Then + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)() + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PartnerConnectionInfoCleanUp_PopupWindow = _PartnerConnectionInfoCleanUp_PopupWindow + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PCIDetail = _onew.GetObjectByKey(Of PCIDetail)(_PCIDetail.Oid) + Else + _onew.Rollback() + Throw New Exception("*Eltérõ devizanemû tételek !") + End If + End If + End Select + Next + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count <= 0 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy pénzügyi sort ki kell választani !") + + End If + + e.View = Application.CreateDetailView(_onew, "PartnerConnectionInfoCleanUp_PopupWindow_DetailView_Direct", False, _PartnerConnectionInfoCleanUp_PopupWindow) + + End Sub + + Private Sub aCreateConnectionDirect_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateConnectionDirect.Execute + '-- Ez a kijelölt sorokat összepontozza --------------------------------------------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), PartnerConnectionInfoCleanUp_PopupWindow) + Dim _PCIDetail As PCIDetail + Dim _ConnectInfo_Prev As String = "" + Dim _ConnectInfo_Next As String = "" + Dim _GLRows As GLRows + Dim _GLAccounts As GLAccounts + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + If _PCIDetail.GLRows IsNot Nothing Then + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _PCIDetail.GLRows.Oid), True) + If _GLRows IsNot Nothing Then + _ConnectInfo_Prev = _GLRows.ConnectInfo + _GLRows.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _GLRows.ConnectInfo + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End If + Case "01-Account" + If _PCIDetail.InvoiceHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.InvoiceHeader.ConnectInfo + _PCIDetail.InvoiceHeader.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _PCIDetail.InvoiceHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.RegistryHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.RegistryHeader.F_ConnectInfo + _PCIDetail.RegistryHeader.F_ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _PCIDetail.RegistryHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.GLAccounts IsNot Nothing Then + _GLAccounts = _PCIDetail.GLAccounts + _ConnectInfo_Prev = _GLAccounts.ConnectInfo + _GLAccounts.row_ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _GLAccounts.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End Select + Next + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + End Sub + + Private Sub aCreateConnectionLiquidAssets_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateConnectionLiquidAssets.Cancel + noselect = False + End Sub + + Private Sub aCreateConnectionLiquidAssets_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateConnectionLiquidAssets.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Dim _PCIDetail As PCIDetail + Dim _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem As PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _IsAccount As Boolean = False + + noselect = True + + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.FindObject(Of PartnerConnectionInfoCleanUp_PopupWindow)(CriteriaOperator.Parse("1=1")) + + If _PartnerConnectionInfoCleanUp_PopupWindow Is Nothing Then + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow)() + End If + + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count > 0 Then + _onew.Delete(_PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem) + End If + + For Each _PCIDetail In selection + If _PCIDetail.MainType = "01-Account" Then + _IsAccount = True + Exit For + End If + _PartnerType = _PCIDetail.PartnerType + _Customers = _PCIDetail.Customers + _CustomersFrom = _PCIDetail.CustomersFrom + + Next + + If _IsAccount = True Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak pénzügyi teljesítéseket lehet kiválasztani !") + End If + + _IsAccount = False + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + If _PCIDetail.CustomersFrom.Oid <> _CustomersFrom.Oid Or _ + _PCIDetail.Customers.Oid <> _Customers.Oid Or _ + _PCIDetail.PartnerType <> _PartnerType Then + _onew.Rollback() + Throw New Exception("*Csak azonos saját cég, partner és partner tipusú bizonylatokat lehet kijelölni !") + Else + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)() + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PartnerConnectionInfoCleanUp_PopupWindow = _PartnerConnectionInfoCleanUp_PopupWindow + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PCIDetail = _onew.GetObjectByKey(Of PCIDetail)(_PCIDetail.Oid) + End If + End Select + Next + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count <= 0 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy pénzügyi sort ki kell választani !") + End If + + e.View = Application.CreateDetailView(_onew, "PartnerConnectionInfoCleanUp_PopupWindow_DetailView_LiquidAssets", False, _PartnerConnectionInfoCleanUp_PopupWindow) + + End Sub + + Private Sub aCreateConnectionLiquidAssets_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateConnectionLiquidAssets.Execute + '-- Ez a kijelölt sorokat összepontozza --------------------------------------------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), PartnerConnectionInfoCleanUp_PopupWindow) + Dim _PCIDetail As PCIDetail + Dim _ConnectInfo_Prev As String = "" + Dim _ConnectInfo_Next As String = "" + Dim _GLRows As GLRows + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + If _PCIDetail.GLRows IsNot Nothing Then + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _PCIDetail.GLRows.Oid), True) + If _GLRows IsNot Nothing Then + _ConnectInfo_Prev = _GLRows.ConnectInfo + _GLRows.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _GLRows.ConnectInfo + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End If + Case "01-Account" + + End Select + Next + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + + End Sub + + Private Sub aCreateConnectionDivide_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateConnectionDivide.Cancel + noselect = False + End Sub + + Private Sub aCreateConnectionDivide_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateConnectionDivide.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLRowsDivideH As GLRowsDivideH = _onew.CreateObject(Of GLRowsDivideH)() + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + + If _PCIDetail IsNot Nothing Then + _GLRowsDivideH.GLRows_Oid = _PCIDetail.GLRows.Oid + _GLRowsDivideH.row_Customers = _onew.GetObject(_PCIDetail.Customers) + _GLRowsDivideH.row_PartnerType = _PCIDetail.PartnerType + e.View = Application.CreateDetailView(_onew, "GLRowsDivideH_DetailView_ConnectionDivide", False, _GLRowsDivideH) + End If + + End Sub + + Private Sub aCreateConnectionDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateConnectionDivide.Execute + '-- Sor bontása + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRowsDivideH As GLRowsDivideH = TryCast(e.PopupWindow.View.SelectedObjects(0), GLRowsDivideH) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + + Select Case _PCIDetail.MainType + Case "02-Bank", "03-Cassa" + Case Else + _ocur.Rollback() + Throw New Exception("*Csak banki és pénztári tételt lehet szétbontani pontozási számokra !") + End Select + + Dim _GLRows As GLRows = _ocur.GetObjectByKey(Of GLRows)(_PCIDetail.GLRows.Oid) + If _GLRows IsNot Nothing Then + _GLRows.DivideRows(_ocur, _GLRows, _GLRowsDivideH, True) + End If + End Sub + + Private Sub aCreateConnectionDirectDifferentCurrency_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateConnectionDirectDifferentCurrency.Cancel + noselect = False + End Sub + + Private Sub aCreateConnectionDirectDifferentCurrency_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateConnectionDirectDifferentCurrency.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _PCIDetail As PCIDetail + Dim _PCIDetail_Account As PCIDetail + Dim _PCIDetail_Connect As PCIDetail + Dim _RateDiffCurrencyPopUp As RateDiffCurrencyPopUp = _onew.CreateObject(Of RateDiffCurrencyPopUp)() + Dim _IsAccount As Boolean = False + Dim _AccountCount As Long = 0 + Dim _CurrencyName_Account As CurrencyName + noselect = True + + For Each _PCIDetail In selection + If _PCIDetail.MainType = "01-Account" Then + If _PCIDetail.CurrencyName_Account.ShortName <> "HUF" Then + _PCIDetail_Account = _PCIDetail + _CurrencyName_Account = _PCIDetail.CurrencyName_Account + _IsAccount = True + _AccountCount += 1 + End If + End If + Next + If _IsAccount = False Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy számlát ki kell választani ami NEM HUF !") + End If + If _AccountCount > 1 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak egy számlát lehet kiválasztani !") + End If + + If selection.Count > 2 Or selection.Count = 0 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak egy számlát és egy pénzügyi teljesítést kell kiválazstani !") + End If + + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + _PCIDetail_Connect = _PCIDetail + If _PCIDetail.CurrencyName.ShortName = "HUF" Then + _RateDiffCurrencyPopUp.IsHUF = True + Else + _RateDiffCurrencyPopUp.IsHUF = False + End If + Exit For + End Select + Next + + If _PCIDetail_Account.CustomersFrom.Oid <> _PCIDetail_Connect.CustomersFrom.Oid Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak azonos saját cégû bizonylatokat lehet kiválasztani !") + End If + + If _PCIDetail_Account.Customers.Oid <> _PCIDetail_Connect.Customers.Oid Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak azonos partnerû bizonylatokat lehet kiválasztani !") + End If + + If _PCIDetail_Account.PartnerType <> _PCIDetail_Connect.PartnerType Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak azonos partner tipusú bizonylatokat lehet kiválasztani !") + End If + + e.View = Application.CreateDetailView(_onew, "RateDiffCurrencyPopUp_DetailView", False, _RateDiffCurrencyPopUp) + End Sub + + Private Sub aCreateConnectionDirectDifferentCurrency_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateConnectionDirectDifferentCurrency.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RateDiffCurrencyPopUp As RateDiffCurrencyPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffCurrencyPopUp) + Dim _GLRows As GLRows + Dim _ConnectInfo As String = "" + Dim _PCIDetail As PCIDetail + Dim _ConnectInfo_Prev As String = "" + Dim _ConnectInfo_Next As String = "" + + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "01-Account" + _ConnectInfo = _PCIDetail.ConnectInfo + Exit For + End Select + Next + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "03-Cassa", "02-Bank", "04-Compensation" + If _PCIDetail.GLRows IsNot Nothing Then + _GLRows = _ocur.GetObjectByKey(Of GLRows)(_PCIDetail.GLRows.Oid) + _ConnectInfo_Prev = _GLRows.ConnectInfo + _GLRows.ConnectInfo = _ConnectInfo + _ConnectInfo_Next = _GLRows.ConnectInfo + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + If _PCIDetail.CurrencyName.ShortName = "HUF" Then + If _GLRows.InAmountHUF > 0 Then + _GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountHUF / Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero), 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + _GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountHUF / Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero), 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + Else + If _GLRows.InAmountDEV > 0 Then + _GLRows.InAmountDEV2 = Math.Round(_GLRows.InAmountDEV / Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero), 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero) + Else + _GLRows.OutAmountDEV2 = Math.Round(_GLRows.OutAmountDEV / Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero), 2, MidpointRounding.AwayFromZero) + _GLRows.CurrencyRate2 = Math.Round(_RateDiffCurrencyPopUp.CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + Exit For + End If + End Select + Next + _ocur.CommitChanges() + noselect = False + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aViewRegistryPCIGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryPCIGroup.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 + ViewRegistry.ViewRegistry(_ocur, Application, e, _PCIGroup.CustomersFrom, _ + _PCIGroup.Customers, _PCIGroup.ConnectInfo) + End If + End Sub + + Private Sub aViewAttachmentsPCIGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachmentsPCIGroup.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 + ViewAttachments.ViewAttachments(_ocur, Frame, _PCIGroup.CustomersFrom, _ + _PCIGroup.Customers, _PCIGroup.ConnectInfo, _ + "") + End If + End Sub + + Private Sub aCreateConnectionDrop_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateConnectionDrop.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PCIDetail As PCIDetail + Dim _GLRows As GLRows + Dim _ConnectInfo_Prev As String = "" + Dim _ConnectInfo_Next As String = "" + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PCIDetail In View.SelectedObjects + RaiseEvent DoWork() + Select Case _PCIDetail.MainType + Case "02-Bank", "03-Cassa", "04-Compensation" + If _PCIDetail.GLRows IsNot Nothing Then + _GLRows = _ocur.FindObject(Of GLRows)(CriteriaOperator.Parse("Oid=?", _PCIDetail.GLRows.Oid), True) + If _GLRows IsNot Nothing Then + _ConnectInfo_Prev = _GLRows.ConnectInfo + _GLRows.ConnectInfo = "" + _ConnectInfo_Next = _GLRows.ConnectInfo + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End If + Case "01-Account" + If _PCIDetail.InvoiceHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.InvoiceHeader.ConnectInfo + _PCIDetail.InvoiceHeader.ConnectInfo = _PCIDetail.InvoiceHeader.DocumentNumber + _ConnectInfo_Next = _PCIDetail.InvoiceHeader.DocumentNumber + _PCIDetail.InvoiceHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.RegistryHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.RegistryHeader.F_ConnectInfo + _PCIDetail.RegistryHeader.F_ConnectInfo = _PCIDetail.RegistryHeader.DocumentNumber + _ConnectInfo_Next = _PCIDetail.RegistryHeader.DocumentNumber + _PCIDetail.RegistryHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.GLAccounts IsNot Nothing Then + Dim _GLAccounts As GLAccounts + _GLAccounts = _PCIDetail.GLAccounts + _ConnectInfo_Prev = _GLAccounts.ConnectInfo + _GLAccounts.row_ConnectInfo = _GLAccounts.DocumentNumber + _ConnectInfo_Next = _GLAccounts.DocumentNumber + _GLAccounts.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End Select + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + + Private Sub aCreateRateDiffPCIGroup_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateRateDiffPCIGroup.Cancel + noselect = False + End Sub + + Private Sub aCreateRateDiffPCIGroup_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateRateDiffPCIGroup.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RateDiffPopUp As RateDiffPopUp = _onew.CreateObject(Of RateDiffPopUp)() + noselect = True + _RateDiffPopUp.DateExecution = Now + + e.View = Application.CreateDetailView(_onew, "RateDiffPopUp_DetailView", False, _RateDiffPopUp) + End Sub + + Private Sub aCreateRateDiffPCIGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateRateDiffPCIGroup.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RateDiffPopUp As RateDiffPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffPopUp) + Dim _PCIGroup As PCIGroup + Dim _GLHeader_Ratediff As GLMixed = Nothing + Dim _GLRows_RateDiff As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _Controlling As Controlling + Dim _GLMixedNG As GLMixedNG + + Dim _GLHeader_RateDiffParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + If _GLHeader_RateDiffParameter Is Nothing Then Exit Sub + + Dim _ChartOfAccounts_RateDiff_Win As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRateDiffWin) + Dim _ChartOfAccounts_RateDiff_Loss As ChartOfAccounts = _GLHeader_RateDiffParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRateDiffLoss) + Dim _Controlling_RateDiff_Win As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Win + Dim _Controlling_RateDiff_Loss As Controlling = _GLHeader_RateDiffParameter.Controlling_RateDiff_Loss + + Dim _CustomersFrom As CustomersFrom + Dim i As Long = 0 + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + If selection.Count <= 0 Then Exit Sub + + For Each _PCIGroup In selection + If i = 0 Then + _CustomersFrom = _PCIGroup.CustomersFrom + i = 1 + End If + If _PCIGroup.CustomersFrom.Oid <> _CustomersFrom.Oid Then + Throw New Exception("*Csak azonos saját cégû sorok jelölhetõ ki egyszerre !") + Exit For + End If + Next + + _GLHeader_Ratediff = _ocur.CreateObject(Of GLMixed)() + _GLHeader_Ratediff.CustomersFrom = _CustomersFrom + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Ratediff.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Ratediff.DocumentNumber = "" Then + _GLHeader_Ratediff.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_RateDiff) + End If + End If + _GLHeader_Ratediff.DateExecution = _RateDiffPopUp.DateExecution + _GLHeader_Ratediff.DateCreated = _RateDiffPopUp.DateExecution + _GLHeader_Ratediff.NoteHeader = _RateDiffPopUp.Description + _GLHeader_Ratediff.CurrencyRate = 1 + + _GLHeader_Ratediff.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Ratediff.IsEditable = False + _GLHeader_Ratediff.IsStorno = False + _GLHeader_Ratediff.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + + For Each _PCIGroup In selection + _OutAmountHUF = 0 + _InAmountHUF = 0 + Select Case _PCIGroup.PartnerType + Case ePartnerType.ePayabels + If _PCIGroup.BallanceHUF > 0 Then 'Árfolyam nyereség szállító + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _Controlling = _Controlling_RateDiff_Win + _OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + Else 'Árfolyam veszteség szállító + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_RateDiff_Loss + _InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + End If + Case ePartnerType.eReceivables + If _PCIGroup.BallanceHUF > 0 Then ' Árfolyam veszteség vevõ + _DebitChartOfAccounts = _ChartOfAccounts_RateDiff_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_RateDiff_Loss + _InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + Else 'Árfolyam nyereség vevõ + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Ratediff.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_RateDiff_Win + _Controlling = _Controlling_RateDiff_Win + _OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + End If + End Select + + _GLRows_RateDiff = _ocur.CreateObject(Of GLRows)() + _GLRows_RateDiff.GLHeader = _GLHeader_Ratediff + _GLRows_RateDiff.InAmountHUF = _InAmountHUF + _GLRows_RateDiff.OutAmountHUF = _OutAmountHUF + _GLRows_RateDiff.AddGLRows(_GLHeader_Ratediff, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_PCIGroup.BallanceHUF), Nothing, _ + _PCIGroup.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PCIGroup.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PCIGroup.PartnerType) + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIGroup.CustomersFrom, _PCIGroup.Customers, _PCIGroup.PartnerType, _PCIGroup.ConnectInfo) + + Next + + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + End Sub + + Private Sub aPCICheck_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _PCIGroup As PCIGroup + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PCIGroup In View.SelectedObjects + RaiseEvent DoWork() + If _PCIGroup IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _PCIGroup.CustomersFrom, _PCIGroup.Customers, _PCIGroup.PartnerType, _PCIGroup.ConnectInfo) + End If + Next + RaiseEvent FinalWork + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub + + Private Sub aCreateConnectionAccount_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateConnectionAccount.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Dim _PCIDetail As PCIDetail + Dim _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem As PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem + + Dim _CustomersFrom As CustomersFrom + Dim _Customers As Customers + Dim _PartnerType As ePartnerType + Dim _IsAccount As Boolean = False + Dim _AccountCount As Long = 0 + Dim _Currency_Account As String + noselect = True + + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.FindObject(Of PartnerConnectionInfoCleanUp_PopupWindow)(CriteriaOperator.Parse("1=1")) + + If _PartnerConnectionInfoCleanUp_PopupWindow Is Nothing Then + _PartnerConnectionInfoCleanUp_PopupWindow = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow)() + End If + + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count > 0 Then + _onew.Delete(_PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem) + End If + + For Each _PCIDetail In selection + If _PCIDetail.MainType = "01-Account" And (_PCIDetail.AmountDEV_Account > 0 Or _PCIDetail.AmountHUF_Account > 0) Then + _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo = _PCIDetail.ConnectInfo + _PartnerType = _PCIDetail.PartnerType + _Customers = _PCIDetail.Customers + _CustomersFrom = _PCIDetail.CustomersFrom + _Currency_Account = _PCIDetail.CurrencyName_Account.ShortName + _IsAccount = True + _AccountCount += 1 + End If + Next + If _IsAccount = False Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy pozitív számlát ki kell választani !") + End If + If _AccountCount > 1 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Csak egy pozitív számlát lehet kiválasztani !") + End If + _IsAccount = False + For Each _PCIDetail In selection + If _PCIDetail.MainType = "01-Account" And (_PCIDetail.AmountDEV_Account < 0 Or _PCIDetail.AmountHUF_Account < 0) Then + If _PCIDetail.CustomersFrom.Oid <> _CustomersFrom.Oid Or _ + _PCIDetail.Customers.Oid <> _Customers.Oid Or _ + _PCIDetail.PartnerType <> _PartnerType Then + _onew.Rollback() + Throw New Exception("*Csak azonos saját cég, partner és partner tipusú bizonylatokat lehet kijelölni !") + Else + If _PCIDetail.CurrencyName.ShortName = _Currency_Account Or _Currency_Account = "HUF" Then + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem = _onew.CreateObject(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)() + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PartnerConnectionInfoCleanUp_PopupWindow = _PartnerConnectionInfoCleanUp_PopupWindow + _PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.PCIDetail = _onew.GetObjectByKey(Of PCIDetail)(_PCIDetail.Oid) + Else + _onew.Rollback() + Throw New Exception("*Eltérõ devizanemû tételek !") + End If + End If + End If + Next + If _PartnerConnectionInfoCleanUp_PopupWindow.PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem.Count <= 0 Then + _onew.Rollback() + noselect = False + Throw New Exception("*Legalább egy negatív számlát ki kell választani !") + + End If + + e.View = Application.CreateDetailView(_onew, "PartnerConnectionInfoCleanUp_PopupWindow_DetailView_Direct", False, _PartnerConnectionInfoCleanUp_PopupWindow) + End Sub + + Private Sub aCreateConnectionAccount_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateConnectionAccount.Execute + 'Számlák és stornó vagy jóváíró számlák összepontozása + '-- Ez a kijelölt sorokat összepontozza --------------------------------------------------------------------------------- + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), PartnerConnectionInfoCleanUp_PopupWindow) + Dim _PCIDetail As PCIDetail + Dim _ConnectInfo_Prev As String = "" + Dim _ConnectInfo_Next As String = "" + + + Dim _GLAccounts As GLAccounts + + For Each _PCIDetail In selection + Select Case _PCIDetail.MainType + Case "01-Account" + If _PCIDetail.InvoiceHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.InvoiceHeader.ConnectInfo + _PCIDetail.InvoiceHeader.ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _PCIDetail.InvoiceHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.RegistryHeader IsNot Nothing Then + _ConnectInfo_Prev = _PCIDetail.RegistryHeader.F_ConnectInfo + _PCIDetail.RegistryHeader.F_ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _PCIDetail.RegistryHeader.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + If _PCIDetail.GLAccounts IsNot Nothing Then + _GLAccounts = _PCIDetail.GLAccounts + _ConnectInfo_Prev = _GLAccounts.ConnectInfo + _GLAccounts.row_ConnectInfo = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _ConnectInfo_Next = _PartnerConnectionInfoCleanUp_PopupWindow.ConnectInfo + _GLAccounts.Save() + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Prev) + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _ConnectInfo_Next) + End If + End Select + Next + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + End Sub + + Private Sub aCreateRoundingPCIGroup_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aCreateRoundingPCIGroup.Cancel + noselect = False + End Sub + + Private Sub aCreateRoundingPCIGroup_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateRoundingPCIGroup.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RateDiffPopUp As RateDiffPopUp = _onew.CreateObject(Of RateDiffPopUp)() + + noselect = True + _RateDiffPopUp.DateExecution = Now + e.View = Application.CreateDetailView(_onew, "RateDiffPopUp_DetailView", False, _RateDiffPopUp) + End Sub + + Private Sub aCreateRoundingPCIGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateRoundingPCIGroup.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _RateDiffPopUp As RateDiffPopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), RateDiffPopUp) + Dim _PCIGroup As PCIGroup + Dim _GLHeader_Rounding As GLMixed = Nothing + Dim _GLRows_Rounding As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + Dim _Controlling As Controlling = Nothing + Dim _GLMixedNG As GLMixedNG + Dim _Rate As Double = 1 + + + Dim _GLHeader_RoundingParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + If _GLHeader_RoundingParameter Is Nothing Then + Throw New Exception("*Nincs beállítva az elengedési paraméter !") + Exit Sub + End If + + + Dim _ChartOfAccounts_Rounding_Win As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingWin) + Dim _ChartOfAccounts_Rounding_Loss As ChartOfAccounts = _GLHeader_RoundingParameter.GetChartOfAccounts(_RateDiffPopUp.DateExecution.Year, eWinLoss.eRoundingLoss) + Dim _Controlling_Rounding_Win As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Win + Dim _Controlling_Rounding_Loss As Controlling = _GLHeader_RoundingParameter.Controlling_Rounding_Loss + + + If _ChartOfAccounts_Rounding_Loss Is Nothing Or _ + _ChartOfAccounts_Rounding_Win Is Nothing Then + Throw New Exception("*Nincs beállítva az elengedési paraméter !") + Exit Sub + End If + + Dim _CurrencyName As CurrencyName = Nothing + Dim _CustomersFrom As CustomersFrom = Nothing + Dim i As Long = 0 + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + If selection.Count <= 0 Then Exit Sub + + For Each _PCIGroup In selection + If i = 0 Then + _CustomersFrom = _PCIGroup.CustomersFrom + _CurrencyName = _PCIGroup.CurrencyName_Account + If _PCIGroup.AmountDEV_Account <> 0 Then + _Rate = _PCIGroup.AmountHUF_Account / _PCIGroup.AmountDEV_Account + End If + i = 1 + End If + If _PCIGroup.CustomersFrom.Oid <> _CustomersFrom.Oid Then + Throw New Exception("*Csak azonos saját cégû sorok jelölhetõ ki egyszerre !") + Exit For + End If + + If _PCIGroup.CurrencyName_Account.Oid <> _CurrencyName.Oid Then + Throw New Exception("*Csak azonos devizával rendelkezõ sorok jelölhetõ ki egyszerre !") + Exit For + End If + Next + + _GLHeader_Rounding = _ocur.CreateObject(Of GLMixed)() + _GLHeader_Rounding.CustomersFrom = _CustomersFrom + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Rounding.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Rounding.DocumentNumber = "" Then + _GLHeader_Rounding.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_Rounding) + End If + End If + _GLHeader_Rounding.DateExecution = _RateDiffPopUp.DateExecution + _GLHeader_Rounding.DateCreated = _RateDiffPopUp.DateExecution + _GLHeader_Rounding.NoteHeader = _RateDiffPopUp.Description + + + + _GLHeader_Rounding.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Rounding.IsEditable = False + _GLHeader_Rounding.IsStorno = False + + + For Each _PCIGroup In selection + _GLHeader_Rounding.CurrencyName = _PCIGroup.CurrencyName_Account + _OutAmountDEV = 0 + _OutAmountHUF = 0 + _InAmountDEV = 0 + _InAmountHUF = 0 + If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then + Select Case _PCIGroup.PartnerType + Case ePartnerType.ePayabels + If _PCIGroup.BallanceHUF > 0 Then 'Elengedés nyereség + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + Else 'Elengedés veszteség + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_Rounding_Loss + _InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + End If + Case ePartnerType.eReceivables + If _PCIGroup.BallanceHUF > 0 Then ' Elengedés veszteség + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_Rounding_Loss + _InAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + Else 'Elengedés nyereség + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountHUF = Math.Abs(_PCIGroup.BallanceHUF) + End If + End Select + Else + Select Case _PCIGroup.PartnerType + + Case ePartnerType.ePayabels + If _PCIGroup.BallanceDEV > 0 Then 'Elengedés nyereség szállító + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + Else 'Elengedés veszteség szállító + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_Rounding_Loss + _InAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + End If + Case ePartnerType.eReceivables + If _PCIGroup.BallanceDEV > 0 Then ' Elengedés veszteség vevő + _DebitChartOfAccounts = _ChartOfAccounts_Rounding_Loss + _CreditChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_Rounding_Loss + _InAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + Else 'Elengedés nyereség vevő + _DebitChartOfAccounts = _PCIGroup.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Rounding.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_Rounding_Win + _Controlling = _Controlling_Rounding_Win + _OutAmountDEV = Math.Abs(_PCIGroup.BallanceDEV) + End If + End Select + + End If + + _GLRows_Rounding = _ocur.CreateObject(Of GLRows)() + _GLRows_Rounding.GLHeader = _GLHeader_Rounding + If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then + _GLRows_Rounding.InAmountHUF = _InAmountHUF + _GLRows_Rounding.OutAmountHUF = _OutAmountHUF + _GLRows_Rounding.InAmountDEV = 0 + _GLRows_Rounding.OutAmountDEV = 0 + + _GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_PCIGroup.BallanceHUF), Nothing, _ + _PCIGroup.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PCIGroup.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PCIGroup.PartnerType) + Else + + _GLHeader_Rounding.CurrencyRate = _Rate + _GLRows_Rounding.InAmountHUF = Math.Round(_InAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero) + _GLRows_Rounding.OutAmountHUF = Math.Round(_OutAmountDEV * _Rate, 0, MidpointRounding.AwayFromZero) + _GLRows_Rounding.InAmountDEV = _InAmountDEV + _GLRows_Rounding.OutAmountDEV = _OutAmountDEV + + _GLRows_Rounding.AddGLRows(_GLHeader_Rounding, _DebitChartOfAccounts, _CreditChartOfAccounts, Math.Abs(_PCIGroup.BallanceDEV), Math.Round(Math.Abs(_PCIGroup.BallanceDEV) * _Rate, 0, MidpointRounding.AwayFromZero), Nothing, _ + _PCIGroup.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _PCIGroup.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _PCIGroup.PartnerType) + + End If + _ocur.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _PCIGroup.CustomersFrom, _PCIGroup.Customers, _PCIGroup.PartnerType, _PCIGroup.ConnectInfo) + + Next + + _ocur.CommitChanges() + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + noselect = False + End Sub + + + + Private Sub aPCICheckCustomers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheckCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIDetail As PCIDetail = TryCast(View.SelectedObjects(0), PCIDetail) + Dim _Uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _Customers_OID As String = "" + If _PCIDetail IsNot Nothing Then + _Customers_OID = _PCIDetail.Customers.Oid.ToString + + RaiseEvent InitWork(1, 1, 4) + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _Uow.ExecuteNonQuery("delete from ""PCIDetail"" Where ""Customers""='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("update ""InvoiceHeader"" set ""PCIGroup""=Null Where ""Customers""='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("update ""PCIGroupAging"" set ""PCIGroup""=Null Where ""Customers""='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("delete from ""PCIGroup"" Where ""Customers""='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.CommitChanges() + Case Else + _Uow.ExecuteNonQuery("delete from PCIDetail Where Customers='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("update InvoiceHeader set PCIGroup=Null Where Customers='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("update PCIGroupAging set PCIGroup=Null Where Customers='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.ExecuteNonQuery("delete from PCIGroup Where Customers='" & _Customers_OID & "'") + RaiseEvent DoWork() + _Uow.CommitChanges() + End Select + RaiseEvent FinalWork + + '// InvoiceHeader,GLAccount,RegistryHeader,GLRows + + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_Uow, _ + CriteriaOperator.Parse("IsDeleted=False and isnull(DocumentNumber)=False and Customers.Oid=? and IsEditable=False and isnull(GLAccounts)=True", _Customers_OID)) + Dim _InvoiceHeader As InvoiceHeader + RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count) + For Each _InvoiceHeader In _InvoiceHeader_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_Uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + Next + RaiseEvent FinalWork + + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader) _ + (_Uow, CriteriaOperator.Parse("IsStorno=False and IsDeleted=False and RegistryAcceptState=0 and RegistryType.RegistryMainType =0 and Customers.Oid=? and IsEditable=False and isnull(F_GLAccounts)=True", _Customers_OID)) + Dim _RegistryHeader As RegistryHeader + + RaiseEvent InitWork(1, 1, _RegistryHeader_Collection.Count) + For Each _RegistryHeader In _RegistryHeader_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_Uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.F_ConnectInfo) + Next + RaiseEvent FinalWork + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _Uow, CriteriaOperator.Parse("IsDeleted=False and Customers.Oid=? and IsEditable=False", _ + _Customers_OID)) + Dim _GLAccounts As GLAccounts + RaiseEvent DoWork() + For Each _GLAccounts In _GLAccounts_Collection + GLFunctions.ReconfigurePCI(_Uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + Next + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_Uow, CriteriaOperator.Parse("GLHeader.IsDeleted=False and Customer.Oid=? and GLHeader.GLDocumentType in (0,2,3,4,5)", _Customers_OID)) + Dim _GLRows As GLRows + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + GLFunctions.ReconfigurePCI(_Uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + Next + RaiseEvent FinalWork + + _Uow.CommitChanges() + _ocur.CommitChanges() + End If + + End Sub + + Private Sub aRepairPCIGroup_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRepairPCIGroup.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("IsNull(ConnectInfo)=True or ConnectInfo='' and IsEditable=False")) + Dim _GLAccounts As GLAccounts + Dim _GLRows As GLRows + RaiseEvent InitWork(1, 1, _GLAccounts_Collection.Count) + For Each _GLAccounts In _GLAccounts_Collection + RaiseEvent DoWork() + _GLAccounts.ConnectInfo = _GLAccounts.DocumentNumber + + For Each _GLRows In _GLAccounts.GLRows + _GLRows.ConnectInfo = _GLRows.GLHeader.DocumentNumber + Next + + _uow.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + _uow.CommitChanges() + + Next + RaiseEvent FinalWork + End Sub + + Private Sub aRemoveRatediffPCIDetail_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRemoveRatediffPCIDetail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _PCIDetail As PCIDetail + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _PCIDetail In View.SelectedObjects + RaiseEvent DoWork() + If _PCIDetail.MainType = "05-Ratediff" Then + _ocur.Delete(_PCIDetail.GLRows) + _ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo) + End If + Next + RaiseEvent FinalWork + End Sub + + Private Sub aViewPCIDGroup_Customers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_Customers.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + ViewPDCI.ViewPDCIDetail_Customers(_onew, Application, e, _PCIGroup.CustomersFrom, _PCIGroup.Customers) + End Sub + + Private Sub aViewCPB_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewCPB.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + Dim _AssetsHandlingCPB As AssetsHandlingCPB + + If _PCIGroup IsNot Nothing Then + _AssetsHandlingCPB = _onew.CreateObject(Of AssetsHandlingCPB)() + _AssetsHandlingCPB.Customers = _onew.GetObject(_PCIGroup.Customers) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "AssetsHandlingCPB_DetailView", True, _AssetsHandlingCPB) + End If + End Sub + + Private Sub aPCIGroup_ChangeInfo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aPCIGroup_ChangeInfo.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = _onew.CreateObject(Of AssetsHandlingGroupChange)() + _AssetsHandlingGroupChange.QueueIndex = 0 + e.View = Application.CreateDetailView(_onew, "AssetsHandlingGroupChange_DetailView", False, _AssetsHandlingGroupChange) + End Sub + + Private Sub aPCIGroup_ChangeInfo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aPCIGroup_ChangeInfo.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup + Dim _AssetsHandlingGroupChange As AssetsHandlingGroupChange = TryCast(e.PopupWindow.View.SelectedObjects(0), AssetsHandlingGroupChange) + + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + For Each _PCIGroup In View.SelectedObjects + RaiseEvent DoWork() + + If _PCIGroup.InvoiceHeader IsNot Nothing Then + If _AssetsHandlingGroupChange.IsAssetsHandling_InvoiceHeader_Modifies = True Then _PCIGroup.InvoiceHeader.IsAssetsHandling = _AssetsHandlingGroupChange.IsAssetsHandling_InvoiceHeader + If _AssetsHandlingGroupChange.IsAssetsHandling_Note_Invoice Then _PCIGroup.InvoiceHeader.AssetsHandling_Note = _AssetsHandlingGroupChange.AssetsHandling_Note_Invoice + If _AssetsHandlingGroupChange.IsQueueIndex Then + _PCIGroup.InvoiceHeader.AssetsHandlingStatus = _ocur.GetObject(_AssetsHandlingGroupChange.AssetsHandlingStatus) + End If + End If + If _AssetsHandlingGroupChange.IsAssetsHandling_Note_Customers Then _PCIGroup.Customers.AssetsHandling_Note = _AssetsHandlingGroupChange.AssetsHandling_Note_Customers + If _AssetsHandlingGroupChange.IsLateChargeModifies Then _PCIGroup.InvoiceHeader.IsLateCharge = _AssetsHandlingGroupChange.IsLateCharge + Next + RaiseEvent FinalWork + _ocur.CommitChanges() + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub + + Private Sub aViewPCIDGroup_GLDetails_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDGroup_GLDetails.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _PCIGroup As PCIGroup = TryCast(View.SelectedObjects(0), PCIGroup) + + ViewPDCI.ViewGLDetails(_onew, Application, e, _PCIGroup.CustomersFrom, _ + _PCIGroup.Customers, _PCIGroup.PartnerType, _ + _PCIGroup.ConnectInfo) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/CurrencyRatePopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/CurrencyRatePopup.vb new file mode 100644 index 0000000..886864c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/CurrencyRatePopup.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CurrencyRatePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property CurrencyRate As Double +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.Designer.vb new file mode 100644 index 0000000..a88718d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class PartnerConnectionInfoCleanUpVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb new file mode 100644 index 0000000..c965bd8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUpVC.vb @@ -0,0 +1,45 @@ +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.ExpressApp.CloneObject +Public Class PartnerConnectionInfoCleanUpVC + 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 = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "PartnerConnectionInfoCleanUp_PopupWindow_PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUp_PopupWindow.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUp_PopupWindow.vb new file mode 100644 index 0000000..5fa3e4a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoCleanUp_PopupWindow.vb @@ -0,0 +1,69 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ +Public Class PartnerConnectionInfoCleanUp_PopupWindow '-- sszepontozs + Inherits BaseObject + Private _ConnectInfo As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(ByVal value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + _ + _ + ReadOnly Property PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem As XPCollection(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem) + Get + Return GetCollection(Of PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem)("PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem") + End Get + End Property +End Class + _ + _ +Public Class PartnerConnectionInfoCleanUp_PopupWindow_SelectedItem '-- sszepontozs + Inherits BaseObject + Private _PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Private _PCIDetail As PCIDetail + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property PartnerConnectionInfoCleanUp_PopupWindow As PartnerConnectionInfoCleanUp_PopupWindow + Get + Return _PartnerConnectionInfoCleanUp_PopupWindow + End Get + Set(value As PartnerConnectionInfoCleanUp_PopupWindow) + SetPropertyValue("PartnerConnectionInfoCleanUp_PopupWindow", _PartnerConnectionInfoCleanUp_PopupWindow, value) + End Set + End Property + Property PCIDetail As PCIDetail + Get + Return _PCIDetail + End Get + Set(value As PCIDetail) + SetPropertyValue("PCIDetail", _PCIDetail, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoSpecTran_PopupWindow.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoSpecTran_PopupWindow.vb new file mode 100644 index 0000000..6de662c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/PartnerConnectionInfoSpecTran_PopupWindow.vb @@ -0,0 +1,25 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ +Public Class PartnerConnectionInfoSpecTran_PopupWindow '-- Specilis tranzakcik kezelse + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffCurrencyPopUp.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffCurrencyPopUp.vb new file mode 100644 index 0000000..6af0fe0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffCurrencyPopUp.vb @@ -0,0 +1,62 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class RateDiffCurrencyPopUp + Inherits BaseObject + Private _CurrencyRate As Double + Private _CurrencyRate2 As Double + Private _IsHUF As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + End Set + End Property + Property CurrencyRate2 As Double + Get + Return _CurrencyRate2 + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate2", _CurrencyRate2, value) + End Set + End Property + Property IsHUF As Boolean + Get + Return _IsHUF + End Get + Set(value As Boolean) + SetPropertyValue("IsHUF", _IsHUF, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffPopUp.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffPopUp.vb new file mode 100644 index 0000000..12031bf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Partner Connection/Popup/RateDiffPopUp.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RateDiffPopUp + Inherits BaseObject + Private _DateExecution As Date + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluation.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluation.vb new file mode 100644 index 0000000..b543fee --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluation.vb @@ -0,0 +1,129 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class SpecTranRevaluation 'Devizás átértékelés + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _DateClose As Date '-- Záró dátum + Private _ShortName As String '-- Lekérdezés megnevezése + Private _CurrencyName As CurrencyName '-- Záró kimutatás devizaneme + Private _CurrencyRate As Double '-- Záró kimutatás átértékelési árfolyama + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + Me.DateClose = Now + End If + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DateClose As Date + Get + Return _DateClose + End Get + Set(ByVal value As Date) + SetPropertyValue("DateClose", _DateClose, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + '// MNB Árfolyam lekérése a záró dátumra + Dim _CurrencyRate As CurrencyRate = Session.FindObject(Of CurrencyRate)(CriteriaOperator.Parse("IsMNB=True and GetDate(DateValid)=? and CurrencyName.ShortName=?", Me.DateClose.Date, value.ShortName)) + If _CurrencyRate IsNot Nothing Then + If CurrencyRate = 0 Then + CurrencyRate = _CurrencyRate.RateAverage + End If + End If + End If + End Set + End Property + Property CurrencyRate As Double + Get + Return _CurrencyRate + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate", _CurrencyRate, value) + + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + ReadOnly Property SpecTranRevaluationRowsAccounts As XPCollection(Of SpecTranRevaluationRowsAccounts) + Get + Return GetCollection(Of SpecTranRevaluationRowsAccounts)("SpecTranRevaluationRowsAccounts") + End Get + End Property + _ + ReadOnly Property SpecTranRevaluationLiquidAssets As XPCollection(Of SpecTranRevaluationLiquidAssets) + Get + Return GetCollection(Of SpecTranRevaluationLiquidAssets)("SpecTranRevaluationLiquidAssets") + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationLiquidAssets.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationLiquidAssets.vb new file mode 100644 index 0000000..e8b2bf8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationLiquidAssets.vb @@ -0,0 +1,86 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class SpecTranRevaluationLiquidAssets + Inherits BaseObject + + Private _SpecTranRevaluation As SpecTranRevaluation + Private _LiquidAssets As LiquidAssets + Private _BallanceDEV As Double + Private _BallanceHUF As Double + Private _BallanceHUF_Revaluation As Double + Private _DifferenceHUF As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property SpecTranRevaluation As SpecTranRevaluation + Get + Return _SpecTranRevaluation + End Get + Set(value As SpecTranRevaluation) + SetPropertyValue("SpecTranRevaluation", _SpecTranRevaluation, value) + End Set + End Property + Property LiquidAssets As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceHUF_Revaluation As Double + Get + Return _BallanceHUF_Revaluation + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_Revaluation", _BallanceHUF_Revaluation, value) + End Set + End Property + Property DifferenceHUF As Double + Get + Return _DifferenceHUF + End Get + Set(value As Double) + SetPropertyValue("DifferenceHUF", _DifferenceHUF, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationRowsAccounts.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationRowsAccounts.vb new file mode 100644 index 0000000..eda0bbb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationRowsAccounts.vb @@ -0,0 +1,152 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ + _ + _ +Public Class SpecTranRevaluationRowsAccounts 'Devizás átértékelés számlák + Inherits BaseObject + Private _SpecTranRevaluation As SpecTranRevaluation + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _ConnectInfo As String + Private _BallanceDEV As Double + Private _BallanceHUF As Double + Private _BallanceHUF_Revaluation As Double + Private _DifferenceHUF As Double + Private _CurrencyRate_Account As Double + Private _GLAccounts As GLAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property SpecTranRevaluation As SpecTranRevaluation + Get + Return _SpecTranRevaluation + End Get + Set(value As SpecTranRevaluation) + SetPropertyValue("SpecTranRevaluation", _SpecTranRevaluation, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property ConnectInfo As String + Get + Return _ConnectInfo + End Get + Set(value As String) + SetPropertyValue("ConnectInfo", _ConnectInfo, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceHUF_Revaluation As Double + Get + Return _BallanceHUF_Revaluation + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF_Revaluation", _BallanceHUF_Revaluation, value) + End Set + End Property + Property DifferenceHUF As Double + Get + Return _DifferenceHUF + End Get + Set(value As Double) + SetPropertyValue("DifferenceHUF", _DifferenceHUF, value) + End Set + End Property + _ + ReadOnly Property BallanceRateDiffImage As Image + Get + If PartnerType = ePartnerType.eReceivables Then + If BallanceHUF - BallanceHUF_Revaluation > 0 Then 'Árfolyam veszteség + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + Else 'Árfolyam nyereség + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + End If + ElseIf PartnerType = ePartnerType.ePayabels Then + If BallanceHUF - BallanceHUF_Revaluation > 0 Then 'Árfolyam nyereség + Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image + Else 'Árfolyam veszteség + Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image + End If + Else + Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image + End If + End Get + End Property + Property CurrencyRate_Account As Double + Get + Return _CurrencyRate_Account + End Get + Set(value As Double) + SetPropertyValue("CurrencyRate_Account", _CurrencyRate_Account, value) + End Set + End Property + _ + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(ByVal value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb new file mode 100644 index 0000000..194122c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.Designer.vb @@ -0,0 +1,102 @@ +Partial Class SpecTranRevaluationVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateSpecTranRevaluationQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDSpecTranRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRemoveRevaluation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateSpecTranRevaluationQuery + ' + Me.aGenerateSpecTranRevaluationQuery.Caption = "Query" + Me.aGenerateSpecTranRevaluationQuery.ConfirmationMessage = "Do You want to execute ?" + Me.aGenerateSpecTranRevaluationQuery.Id = "aGenerateSpecTranRevaluationQuery" + Me.aGenerateSpecTranRevaluationQuery.ImageName = "stopwatch_run" + Me.aGenerateSpecTranRevaluationQuery.Shortcut = Nothing + Me.aGenerateSpecTranRevaluationQuery.Tag = Nothing + Me.aGenerateSpecTranRevaluationQuery.TargetObjectsCriteria = Nothing + Me.aGenerateSpecTranRevaluationQuery.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluation) + Me.aGenerateSpecTranRevaluationQuery.TargetViewId = Nothing + Me.aGenerateSpecTranRevaluationQuery.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateSpecTranRevaluationQuery.ToolTip = Nothing + Me.aGenerateSpecTranRevaluationQuery.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aViewPCIDSpecTranRevaluation + ' + Me.aViewPCIDSpecTranRevaluation.Caption = "aViewPCIDSpecTranRevaluation" + Me.aViewPCIDSpecTranRevaluation.ConfirmationMessage = Nothing + Me.aViewPCIDSpecTranRevaluation.Id = "aViewPCIDSpecTranRevaluation" + Me.aViewPCIDSpecTranRevaluation.ImageName = Nothing + Me.aViewPCIDSpecTranRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDSpecTranRevaluation.Shortcut = Nothing + Me.aViewPCIDSpecTranRevaluation.Tag = Nothing + Me.aViewPCIDSpecTranRevaluation.TargetObjectsCriteria = Nothing + Me.aViewPCIDSpecTranRevaluation.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluationRowsAccounts) + Me.aViewPCIDSpecTranRevaluation.TargetViewId = "" + Me.aViewPCIDSpecTranRevaluation.ToolTip = Nothing + Me.aViewPCIDSpecTranRevaluation.TypeOfView = Nothing + ' + 'aCreateRevaluation + ' + Me.aCreateRevaluation.Caption = "aCreate Revaluation" + Me.aCreateRevaluation.ConfirmationMessage = "Are you sure ?" + Me.aCreateRevaluation.Id = "aCreateRevaluation" + Me.aCreateRevaluation.ImageName = Nothing + Me.aCreateRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateRevaluation.Shortcut = Nothing + Me.aCreateRevaluation.Tag = Nothing + Me.aCreateRevaluation.TargetObjectsCriteria = Nothing + Me.aCreateRevaluation.TargetObjectType = GetType(SISBusiness.[Module].SpecTranRevaluationRowsAccounts) + Me.aCreateRevaluation.TargetViewId = Nothing + Me.aCreateRevaluation.ToolTip = Nothing + Me.aCreateRevaluation.TypeOfView = Nothing + ' + 'aRemoveRevaluation + ' + Me.aRemoveRevaluation.Caption = "aRemove Revaluation" + Me.aRemoveRevaluation.ConfirmationMessage = "Are you sure ?" + Me.aRemoveRevaluation.Id = "aRemoveRevaluation" + Me.aRemoveRevaluation.ImageName = Nothing + Me.aRemoveRevaluation.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRemoveRevaluation.Shortcut = Nothing + Me.aRemoveRevaluation.Tag = Nothing + Me.aRemoveRevaluation.TargetObjectsCriteria = Nothing + Me.aRemoveRevaluation.TargetObjectType = GetType(SISBusiness.[Module].GLAccountsRevaluations) + Me.aRemoveRevaluation.TargetViewId = Nothing + Me.aRemoveRevaluation.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aRemoveRevaluation.ToolTip = Nothing + Me.aRemoveRevaluation.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGenerateSpecTranRevaluationQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDSpecTranRevaluation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateRevaluation As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRemoveRevaluation As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.resx new file mode 100644 index 0000000..c8634f2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 174, 17 + + + 594, 17 + + + 17, 17 + + + 428, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb new file mode 100644 index 0000000..ac73f01 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/SpecTran/SpecTranRevaluationVC.vb @@ -0,0 +1,367 @@ +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.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering + +Imports System.Linq +Public Class SpecTranRevaluationVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aGenerateSpecTranRevaluationQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateSpecTranRevaluationQuery.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _SpecTranRevaluation As SpecTranRevaluation = _uow.GetObjectByKey(Of SpecTranRevaluation)(TryCast(View.SelectedObjects(0), SpecTranRevaluation).Oid) + + Dim _SpecTranRevaluationRowsAccounts_Collection = New XPCollection(Of SpecTranRevaluationRowsAccounts)(_uow, CriteriaOperator.Parse("SpecTranRevaluation=?", _SpecTranRevaluation)) + _uow.Delete(_SpecTranRevaluationRowsAccounts_Collection) + + Dim _SpecTranRevaluationLiquidAssets_Collection = New XPCollection(Of SpecTranRevaluationLiquidAssets)(_uow, CriteriaOperator.Parse("SpecTranRevaluation=?", _SpecTranRevaluation)) + _uow.Delete(_SpecTranRevaluationLiquidAssets_Collection) + + Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName <>'HUF' and CustomerFrom=?", _SpecTranRevaluation.CustomersFrom)) + Dim _LiquidAssets As LiquidAssets + + '// Pnzeszkzk egyenlege + + Dim _SpecTranRevaluationLiquidAssets As SpecTranRevaluationLiquidAssets + Dim _BallanceDEV As Double = 0 + RaiseEvent InitWork(1, 1, _LiquidAssets_Collection.Count) + For Each _LiquidAssets In _LiquidAssets_Collection + RaiseEvent DoWork() + _BallanceDEV = 0 + + Select Case _LiquidAssets.LiquidAssetsType + + Case eLiquidAssetsType.NormalBank + _BallanceDEV = GetBallanceDEVBank(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date) + If _BallanceDEV <> 0 Then + _SpecTranRevaluationLiquidAssets = New SpecTranRevaluationLiquidAssets(_uow) + _SpecTranRevaluationLiquidAssets.SpecTranRevaluation = _SpecTranRevaluation + _SpecTranRevaluationLiquidAssets.LiquidAssets = _LiquidAssets + _SpecTranRevaluationLiquidAssets.BallanceDEV = _BallanceDEV + _SpecTranRevaluationLiquidAssets.BallanceHUF = GetBallanceHUFBank(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date) + _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation = _SpecTranRevaluationLiquidAssets.BallanceDEV * _SpecTranRevaluation.CurrencyRate + _SpecTranRevaluationLiquidAssets.DifferenceHUF = _SpecTranRevaluationLiquidAssets.BallanceHUF - _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation + End If + + + Case eLiquidAssetsType.NormalCheckout, eLiquidAssetsType.CurrencyCheckout, eLiquidAssetsType.DepositCheckout + _BallanceDEV = GetBallanceDEVCassa(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date) + If Math.Round(_BallanceDEV, 4, MidpointRounding.AwayFromZero) <> 0 Then + _SpecTranRevaluationLiquidAssets = New SpecTranRevaluationLiquidAssets(_uow) + _SpecTranRevaluationLiquidAssets.SpecTranRevaluation = _SpecTranRevaluation + _SpecTranRevaluationLiquidAssets.LiquidAssets = _LiquidAssets + _SpecTranRevaluationLiquidAssets.BallanceDEV = _BallanceDEV + _SpecTranRevaluationLiquidAssets.BallanceHUF = GetBallanceHUFCassa(_uow, _LiquidAssets, _SpecTranRevaluation.DateClose.Date) + _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation = _SpecTranRevaluationLiquidAssets.BallanceDEV * _SpecTranRevaluation.CurrencyRate + _SpecTranRevaluationLiquidAssets.DifferenceHUF = _SpecTranRevaluationLiquidAssets.BallanceHUF - _SpecTranRevaluationLiquidAssets.BallanceHUF_Revaluation + End If + + End Select + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + + + '// Szllti vevi egyenlegek + Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts + Dim PCI As New XPQuery(Of PCIDetail)(_uow) + + Dim query = From _PCI In PCI + Where _PCI.DateExecution.Date <= _SpecTranRevaluation.DateClose.Date And + _PCI.Customers IsNot Nothing And + _PCI.ConnectInfo IsNot Nothing And + _PCI.CustomersFrom Is _SpecTranRevaluation.CustomersFrom And + _PCI.CurrencyName_Account IsNot Nothing And + _PCI.CurrencyName_Account Is _SpecTranRevaluation.CurrencyName And + _PCI.GLAccounts IsNot Nothing + Group _PCI By _PCI.Customers, _ + _PCI.PartnerType, _ + _PCI.ConnectInfo, _PCI.GLAccounts Into g = Group + Order By PartnerType, Customers, ConnectInfo + Select New With {Key .Customers = Customers, _ + Key .PartnerType = PartnerType, _ + Key .ConnectInfo = ConnectInfo, _ + Key .GLAccounts = GLAccounts, _ + Key .DocumentNumber = g.Max(Function(inv) inv.DocumentNumber), _ + Key .RegistryNumber = g.Max(Function(inv) inv.RegistryNumber), _ + Key .AmountHUF = g.Sum(Function(inv) inv.AmountHUF_Account), _ + Key .AmountDEV = g.Sum(Function(inv) inv.AmountDEV_Account), _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV), _ + Key .DatePayment = g.Max(Function(inv) inv.DatePayment_Account), _ + Key .DateExecution = g.Max(Function(inv) inv.DateExecution_Account) _ + } + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + Dim _GLAccountsRevaluations As GLAccountsRevaluations = _uow.FindObject(Of GLAccountsRevaluations)(CriteriaOperator.Parse("GLAccounts=?", item.GLAccounts)) + If _GLAccountsRevaluations Is Nothing Then + If Math.Round(item.BallanceDEV, 2, MidpointRounding.AwayFromZero) <> 0 Then + _SpecTranRevaluationRowsAccounts = New SpecTranRevaluationRowsAccounts(_uow) + _SpecTranRevaluationRowsAccounts.SpecTranRevaluation = _SpecTranRevaluation + _SpecTranRevaluationRowsAccounts.PartnerType = item.PartnerType + _SpecTranRevaluationRowsAccounts.Customers = item.Customers + _SpecTranRevaluationRowsAccounts.ConnectInfo = item.ConnectInfo + _SpecTranRevaluationRowsAccounts.CustomersFrom = _SpecTranRevaluation.CustomersFrom + _SpecTranRevaluationRowsAccounts.BallanceDEV = item.BallanceDEV + _SpecTranRevaluationRowsAccounts.GLAccounts = item.GLAccounts + _SpecTranRevaluationRowsAccounts.BallanceHUF_Revaluation = Math.Round(item.BallanceDEV * _SpecTranRevaluation.CurrencyRate, 4, MidpointRounding.AwayFromZero) + _SpecTranRevaluationRowsAccounts.CurrencyRate_Account = 1 + If item.AmountDEV <> 0 Then + _SpecTranRevaluationRowsAccounts.CurrencyRate_Account = Math.Round(item.AmountHUF / item.AmountDEV, 4, MidpointRounding.AwayFromZero) + End If + _SpecTranRevaluationRowsAccounts.BallanceHUF = Math.Round(item.BallanceDEV * _SpecTranRevaluationRowsAccounts.CurrencyRate_Account, 4, MidpointRounding.AwayFromZero) + _SpecTranRevaluationRowsAccounts.DifferenceHUF = Math.Round((item.BallanceDEV * _SpecTranRevaluationRowsAccounts.CurrencyRate_Account) - _SpecTranRevaluationRowsAccounts.BallanceHUF_Revaluation, 4, MidpointRounding.AwayFromZero) + End If + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + Private Function GetBallanceHUFCassa(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountHUF += _GLRows.OutAmountHUF + Next + Next + Return _InAmountHUF - _OutAmountHUF + End Function + Private Function GetBallanceDEVCassa(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _ + CriteriaOperator.Parse("LiquidAssets_Cassa=? and DateExecution<=? and DocumentNumber<>''", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLCassa As GLCassa + Dim _GLRows As GLRows + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + For Each _GLCassa In _GLCassa_Collection + For Each _GLRows In _GLCassa.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _OutAmountDEV += _GLRows.OutAmountDEV + Next + Next + Return _InAmountDEV - _OutAmountDEV + End Function + Function GetBallanceHUFBank(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + + For Each _GLBank In _GLBank_Collection + For Each _GLRows In _GLBank.GLRows + _InAmountHUF += _GLRows.InAmountHUF + _OutAmountHUF += _GLRows.OutAmountHUF + Next + Next + Return _InAmountHUF - _OutAmountHUF + End Function + Function GetBallanceDEVBank(ByVal _uow As UnitOfWork, ByVal _LiquidAssets As LiquidAssets, ByVal _ToDate As Date) As Double + Dim _GLBank_Collection As New XPCollection(Of GLBank)(_uow, _ + CriteriaOperator.Parse("LiquidAssets_Main=? and DateExecution<=? and IsEditable=False", _LiquidAssets, DateAdd(DateInterval.Minute, 1439, _ToDate.Date))) + Dim _GLBank As GLBank + Dim _GLRows As GLRows + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + For Each _GLBank In _GLBank_Collection + For Each _GLRows In _GLBank.GLRows + _InAmountDEV += _GLRows.InAmountDEV + _OutAmountDEV += _GLRows.OutAmountDEV + Next + Next + Return _InAmountDEV - _OutAmountDEV + End Function + + Private Sub aViewPCIDSpecTranRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewPCIDSpecTranRevaluation.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts = TryCast(View.SelectedObjects(0), SpecTranRevaluationRowsAccounts) + + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _SpecTranRevaluationRowsAccounts.CustomersFrom, _ + _SpecTranRevaluationRowsAccounts.Customers, _SpecTranRevaluationRowsAccounts.PartnerType, _ + _SpecTranRevaluationRowsAccounts.ConnectInfo) + End Sub + + Private Sub aCreateRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateRevaluation.Execute + '// devizs trtkelsi bizonylatot csinl + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _SpecTranRevaluationRowsAccounts As SpecTranRevaluationRowsAccounts + Dim _SpecTranRevaluation As SpecTranRevaluation = TryCast(View.SelectedObjects(0), SpecTranRevaluationRowsAccounts).SpecTranRevaluation + + Dim _GLHeader_Revaluation As GLMixed = Nothing + Dim _GLRows_Revaluation As GLRows + Dim _DebitChartOfAccounts As ChartOfAccounts = Nothing + Dim _CreditChartOfAccounts As ChartOfAccounts = Nothing + Dim _Controlling As Controlling = Nothing + Dim _GLMixedNG As GLMixedNG + Dim _Rate As Double = 1 + + + Dim _GLHeader_RevaluationParameter = _ocur.FindObject(Of GLHeader_RateDiffParameter)(CriteriaOperator.Parse("1=1")) + If _GLHeader_RevaluationParameter Is Nothing Then + Throw New Exception("*Nincs belltva az trtkelsi paramter !") + Exit Sub + End If + + + Dim _ChartOfAccounts_Revaluation_Win As ChartOfAccounts = _GLHeader_RevaluationParameter.GetChartOfAccounts(_SpecTranRevaluation.DateClose.Year, eWinLoss.eRevaluationWin) + Dim _ChartOfAccounts_Revaluation_Loss As ChartOfAccounts = _GLHeader_RevaluationParameter.GetChartOfAccounts(_SpecTranRevaluation.DateClose.Year, eWinLoss.eRevaluationLoss) + + Dim _Controlling_Revaluation_Win As Controlling = _GLHeader_RevaluationParameter.Controlling_Revaluation_Win + Dim _Controlling_Revaluation_Loss As Controlling = _GLHeader_RevaluationParameter.Controlling_Revaluation_Loss + + + If _ChartOfAccounts_Revaluation_Loss Is Nothing Or _ + _ChartOfAccounts_Revaluation_Win Is Nothing Then + Throw New Exception("*Nincs belltva az trtkelsi paramter !") + Exit Sub + End If + + Dim _CurrencyName As CurrencyName = Nothing + Dim i As Long = 0 + Dim _InAmountHUF As Double = 0 + Dim _OutAmountHUF As Double = 0 + Dim _InAmountDEV As Double = 0 + Dim _OutAmountDEV As Double = 0 + + + + _GLHeader_Revaluation = _ocur.CreateObject(Of GLMixed)() + _GLHeader_Revaluation.CustomersFrom = _SpecTranRevaluation.CustomersFrom + + _GLMixedNG = _ocur.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _GLHeader_Revaluation.CustomersFrom), True) + If _GLMixedNG IsNot Nothing Then + If _GLHeader_Revaluation.DocumentNumber = "" Then + _GLHeader_Revaluation.DocumentNumber = _GLMixedNG.NumberGenerator.GetNewNumber(_GLMixedNG.NumberGenerator_Revaluation) + End If + End If + + + _GLHeader_Revaluation.DateExecution = _SpecTranRevaluation.DateClose.Date + _GLHeader_Revaluation.DateCreated = _SpecTranRevaluation.DateClose.Date + _GLHeader_Revaluation.NoteHeader = "Devizs trtkels" + + + + _GLHeader_Revaluation.GLDocumentType = eGLDocumentType.eGLRateDiff + _GLHeader_Revaluation.IsEditable = False + _GLHeader_Revaluation.IsStorno = False + + + For Each _SpecTranRevaluationRowsAccounts In View.SelectedObjects + _GLHeader_Revaluation.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _InAmountDEV = 0 + _InAmountHUF = 0 + _OutAmountDEV = 0 + _OutAmountHUF = 0 + Select Case _SpecTranRevaluationRowsAccounts.PartnerType + Case ePartnerType.ePayabels + If _SpecTranRevaluationRowsAccounts.DifferenceHUF > 0 Then + _DebitChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _ChartOfAccounts_Revaluation_Win + _Controlling = _Controlling_Revaluation_Win + _InAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2) + Else 'rfolyam vesztesg szllt + _DebitChartOfAccounts = _ChartOfAccounts_Revaluation_Loss + _CreditChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eIn) + _Controlling = _Controlling_Revaluation_Loss + _OutAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2) + End If + Case ePartnerType.eReceivables + If _SpecTranRevaluationRowsAccounts.DifferenceHUF > 0 Then 'Nyeresg vev + _DebitChartOfAccounts = _ChartOfAccounts_Revaluation_Loss + _CreditChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eOut) + _Controlling = _Controlling_Revaluation_Loss + _InAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2) + Else 'rfolyam nyeresg vev + _DebitChartOfAccounts = _SpecTranRevaluationRowsAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLHeader_Revaluation.DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _ChartOfAccounts_Revaluation_Win + _Controlling = _Controlling_Revaluation_Win + _OutAmountHUF = Math.Round(Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), 2) + End If + End Select + + + + _GLRows_Revaluation = _ocur.CreateObject(Of GLRows)() + _GLRows_Revaluation.GLHeader = _GLHeader_Revaluation + _GLRows_Revaluation.InAmountHUF = _InAmountHUF + _GLRows_Revaluation.OutAmountHUF = _OutAmountHUF + _GLRows_Revaluation.InAmountDEV = 0 + _GLRows_Revaluation.OutAmountDEV = 0 + + _GLRows_Revaluation.AddGLRows(_GLHeader_Revaluation, _DebitChartOfAccounts, _CreditChartOfAccounts, 0, Math.Abs(_SpecTranRevaluationRowsAccounts.DifferenceHUF), Nothing, _ + _SpecTranRevaluationRowsAccounts.Customers, Nothing, Nothing, "", Nothing, _Controlling, Nothing, Nothing, Nothing, _SpecTranRevaluationRowsAccounts.ConnectInfo, _ + eGLRowsTypeVAT.eNettoRow, Guid.NewGuid, eTransactionType.eNotSet, eCashType.ePartner, _SpecTranRevaluationRowsAccounts.PartnerType) + + + Dim _GLAccountsRevaluations As GLAccountsRevaluations = _ocur.CreateObject(Of GLAccountsRevaluations)() + + _GLAccountsRevaluations.GLAccounts = _SpecTranRevaluationRowsAccounts.GLAccounts + _GLAccountsRevaluations.GLRows = _GLRows_Revaluation + _GLAccountsRevaluations.CurrencyRate_Revaluation = _SpecTranRevaluation.CurrencyRate + _GLAccountsRevaluations.CurrencyRate = _SpecTranRevaluationRowsAccounts.CurrencyRate_Account + _ocur.CommitChanges() + + GLFunctions.ReconfigurePCI(_uow, _SpecTranRevaluationRowsAccounts.CustomersFrom, _SpecTranRevaluationRowsAccounts.Customers, _SpecTranRevaluationRowsAccounts.PartnerType, _SpecTranRevaluationRowsAccounts.ConnectInfo) + + Next + _ocur.CommitChanges() + + 'Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + + End Sub + + Private Sub aRemoveRevaluation_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveRevaluation.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccountsRevaluations As GLAccountsRevaluations + + For Each _GLAccountsRevaluations In View.SelectedObjects + + _ocur.Delete(_GLAccountsRevaluations.GLRows) + _ocur.Delete(_GLAccountsRevaluations) + + + Next + _ocur.CommitChanges() + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalance.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalance.vb new file mode 100644 index 0000000..047e560 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalance.vb @@ -0,0 +1,149 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class TrialBalance + Inherits BaseObject + Private _TrialBalanceHeader As TrialBalanceHeader + Private _RowIndex As Long 'Sor index + Private _AccountNumber As String + Private _ShortName As String + Private _IsParent As Boolean = True + Private _CustomersFrom As CustomersFrom + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + Private _DebitRAmountHUF As Double + Private _CreditRAmountHUF As Double + Private _ChartOfAccounts As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property TrialBalanceHeader() As TrialBalanceHeader + Get + Return _TrialBalanceHeader + End Get + Set(ByVal value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property AccountNumber() As String + Get + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IsParent() As Boolean + Get + Return _IsParent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsParent", _IsParent, value) + End Set + End Property + Property CustomersForm() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersForm", _CustomersFrom, value) + End Set + End Property + + Property DebitAmountHUF() As Double + Get + Return Math.Round(_DebitAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property CreditAmountHUF() As Double + Get + Return Math.Round(_CreditAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + + Property DebitRAmountHUF() As Double + Get + Return Math.Round(_DebitRAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("DebitRAmountHUF", _DebitRAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property CreditRAmountHUF() As Double + Get + Return Math.Round(_CreditRAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("CreditRAmountHUF", _CreditRAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + + ReadOnly Property ShortNameFormatted As String + Get + Dim s As String + s = "" + For i = 1 To Len(AccountNumber) + s += " " + Next + Return s & ShortName + End Get + End Property + ReadOnly Property LevelNumber As Long + Get + Return Len(AccountNumber) + End Get + End Property + + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceHeader.vb new file mode 100644 index 0000000..786f326 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceHeader.vb @@ -0,0 +1,196 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class TrialBalanceHeader + Inherits BaseObject + Private _DateFrom As Date 'Dtumtl + Private _DateTo As Date 'Dtumig + Private _CustomersFrom As CustomersFrom 'Sajt cg + Private _ShortName As String 'Lekrdezs rvid megnevezse + Private _QueryLevel As Long = 10 + Private _ObjectCreated As Date + Private _UserCreated As User + Private _GLReportDateExecutionMode As eDateExecutionMode = eDateExecutionMode.eHeader + Private _IsGLOpenClose As Boolean = False ' Csak a fknyvi nyits s zrsnl ltszik + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DateFrom = FirstDayOfYear(GetSQLTime(Session)) + Me.DateTo = LastDayOfYear(GetSQLTime(Session)) + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + Session.Delete(Me.TrialBalance) + Session.Delete(Me.TrialBalanceOpenClose) + Session.Delete(Me.TrialBalanceSum) + End Sub + + _ + Property DateFrom() As Date + Get + Return _DateFrom + End Get + Set(ByVal value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + _ + Property DateTo() As Date + Get + Return _DateTo + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property QueryLevel As Long + Get + Return _QueryLevel + End Get + Set(value As Long) + SetPropertyValue("QueryLevel", _QueryLevel, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property GLReportDateExecutionMode As eDateExecutionMode + Get + Return _GLReportDateExecutionMode + End Get + Set(value As eDateExecutionMode) + SetPropertyValue("GLReportDateExecutionMode", _GLReportDateExecutionMode, value) + End Set + End Property + + '//XPCollections + + _ + ReadOnly Property TrialBalance() As XPCollection(Of TrialBalance) + Get + Return GetCollection(Of TrialBalance)("TrialBalance") + End Get + End Property + _ + ReadOnly Property TrialBalanceOpenClose() As XPCollection(Of TrialBalanceOpenClose) + Get + Return GetCollection(Of TrialBalanceOpenClose)("TrialBalanceOpenClose") + End Get + End Property + _ + ReadOnly Property TrialBalanceSum() As XPCollection(Of TrialBalanceSum) + Get + Return GetCollection(Of TrialBalanceSum)("TrialBalanceSum") + End Get + End Property + _ + ReadOnly Property TrialBalanceJobNumberObjects As XPCollection(Of TrialBalanceJobNumberObjects) + Get + Return GetCollection(Of TrialBalanceJobNumberObjects)("TrialBalanceJobNumberObjects") + End Get + End Property + _ + ReadOnly Property GLRowsStatictics As XPCollection(Of GLRowsStatistics) + Get + If Session.IsNewObject(Me) Then + Return Nothing + Else + Return New XPCollection(Of GLRowsStatistics)(Session, CriteriaOperator.Parse("MasterKey=?", Me.Oid)) + End If + End Get + End Property + _ + Property IsGLOpenClose As Boolean + Get + Return _IsGLOpenClose + End Get + Set(value As Boolean) + SetPropertyValue("IsGLOpenClose", _IsGLOpenClose, value) + End Set + End Property + Public Sub CreateGLRowsStatictics(_uow As UnitOfWork, _DateFrom As Date, _DateTo As Date, _CustomersFrom As CustomersFrom, _MasterKey As Guid) + '// Elkszt egy GLRowsStatictics XPCollection azokra a ttelekre, amelyek nincsenek feladva ezen idszakra ! + Dim _GLRowsStatistics As GLRowsStatistics + Dim _GLRowsStatistics_Collection As New XPCollection(Of GLRowsStatistics)(_uow, CriteriaOperator.Parse("MasterKey=?", _MasterKey)) + _uow.Delete(_GLRowsStatistics_Collection) + + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_uow, CriteriaOperator.Parse("CustomersFrom.Oid = ? And GetDate(F_DateExecution) Between(?, ?) And RegistryType.RegistryMainType = 'eAccount' And F_GLAccounts Is Null And IsStorno = False", _CustomersFrom.Oid, _DateFrom.Date, _DateTo.Date)) + Dim _RegistryHeader As RegistryHeader + + For Each _RegistryHeader In _RegistryHeader_Collection + _GLRowsStatistics = New GLRowsStatistics(_uow) + _GLRowsStatistics.MasterKey = _MasterKey + _GLRowsStatistics.RegistryHeader = _RegistryHeader + Next + + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_uow, CriteriaOperator.Parse("InvoiceType.InvoiceTypeBase <> 'eCustomRate' And getdate(DateExecution) Between(?, ?) And CustomersFrom.Oid = ? And GLAccounts Is Null", _DateFrom.Date, _DateTo.Date, _CustomersFrom.Oid)) + Dim _InvoiceHeader As InvoiceHeader + + For Each _InvoiceHeader In _InvoiceHeader_Collection + _GLRowsStatistics = New GLRowsStatistics(_uow) + _GLRowsStatistics.MasterKey = _MasterKey + _GLRowsStatistics.InvoiceHeader = _InvoiceHeader + Next + _uow.CommitChanges() + + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceJobNumberObjects.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceJobNumberObjects.vb new file mode 100644 index 0000000..7134523 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceJobNumberObjects.vb @@ -0,0 +1,69 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class TrialBalanceJobNumberObjects ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + Private _TrialBalanceHeader As TrialBalanceHeader + Private _JobNumberObjects As JobNumberObjects + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + _ + Property TrialBalanceHeader As TrialBalanceHeader + Get + Return _TrialBalanceHeader + End Get + Set(value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceOpenClose.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceOpenClose.vb new file mode 100644 index 0000000..dc731e6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceOpenClose.vb @@ -0,0 +1,159 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class TrialBalanceOpenClose + Inherits BaseObject + Private _TrialBalanceHeader As TrialBalanceHeader + Private _RowIndex As Long 'Sor index + Private _AccountNumber As String + Private _ShortName As String + Private _IsParent As Boolean = True + Private _CustomersFrom As CustomersFrom + Private _BallanceHUF491 As Double + Private _BallanceHUFOpen As Double + Private _BallanceHUF491Open As Double + Private _BallanceHUF As Double + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + Private _BallanceHUFClose As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property TrialBalanceHeader() As TrialBalanceHeader + Get + Return _TrialBalanceHeader + End Get + Set(ByVal value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property AccountNumber() As String + Get + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IsParent() As Boolean + Get + Return _IsParent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsParent", _IsParent, value) + End Set + End Property + Property CustomersForm() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersForm", _CustomersFrom, value) + End Set + End Property + Property BallanceHUF491 As Double + Get + Return Math.Round(_BallanceHUF491, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF491", _BallanceHUF491, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceHUFOpen As Double + Get + Return Math.Round(_BallanceHUFOpen, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("BallanceHUFOpen", _BallanceHUFOpen, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceHUF491Open As Double + Get + Return Math.Round(_BallanceHUF491Open, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF491Open", _BallanceHUF491Open, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property DebitAmountHUF As Double + Get + Return Math.Round(_DebitAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property CreditAmountHUF As Double + Get + Return Math.Round(_CreditAmountHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceHUF As Double + Get + Return Math.Round(_BallanceHUF, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + Property BallanceHUFClose As Double + Get + Return Math.Round(_BallanceHUFClose, 2, MidpointRounding.AwayFromZero) + End Get + Set(value As Double) + SetPropertyValue("BallanceHUFClose", _BallanceHUFClose, Math.Round(value, 2, MidpointRounding.AwayFromZero)) + End Set + End Property + ReadOnly Property ShortNameFormatted As String + Get + Dim s As String + s = "" + For i = 1 To Len(AccountNumber) + s += " " + Next + Return s & ShortName + End Get + End Property + ReadOnly Property LevelNumber As Long + Get + Return Len(AccountNumber) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceSum.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceSum.vb new file mode 100644 index 0000000..4875b1b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceSum.vb @@ -0,0 +1,129 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eAccountSum + e1_4 = 0 + e5_9 = 1 +End Enum + _ + _ + _ +Public Class TrialBalanceSum + Inherits BaseObject + Private _TrialBalanceHeader As TrialBalanceHeader + Private _AccountSum As eAccountSum + Private _RowIndex As Long 'Sor index + Private _AccountNumber As String + Private _ShortName As String + Private _CustomersFrom As CustomersFrom + Private _BallanceHUFOpen As Double + Private _BallanceHUF As Double + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + Private _BallanceHUFClose As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property TrialBalanceHeader() As TrialBalanceHeader + Get + Return _TrialBalanceHeader + End Get + Set(ByVal value As TrialBalanceHeader) + SetPropertyValue("TrialBalanceHeader", _TrialBalanceHeader, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + Property AccountSum As eAccountSum + Get + Return _AccountSum + End Get + Set(value As eAccountSum) + SetPropertyValue("AccountSum", _AccountSum, value) + End Set + End Property + Property AccountNumber() As String + Get + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property CustomersForm() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersForm", _CustomersFrom, value) + End Set + End Property + Property BallanceHUFOpen As Double + Get + Return _BallanceHUFOpen + End Get + Set(value As Double) + SetPropertyValue("BallanceHUFOpen", _BallanceHUFOpen, value) + End Set + End Property + Property DebitAmountHUF As Double + Get + Return _DebitAmountHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value) + End Set + End Property + Property CreditAmountHUF As Double + Get + Return _CreditAmountHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceHUFClose As Double + Get + Return _BallanceHUFClose + End Get + Set(value As Double) + SetPropertyValue("BallanceHUFClose", _BallanceHUFClose, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.Designer.vb new file mode 100644 index 0000000..5d9a3cf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.Designer.vb @@ -0,0 +1,128 @@ +Partial Class TrialBalanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTrialBalanceQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTrialBalancePrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTrialBalanceOpenCloseQuery = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewTrialBalanceDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTrialBalanceViewCard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aTrialBalancePrint1 = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aTrialBalanceQuery + ' + Me.aTrialBalanceQuery.Caption = "Run query" + Me.aTrialBalanceQuery.Category = "aTrialBalanceQuery" + Me.aTrialBalanceQuery.ConfirmationMessage = Nothing + Me.aTrialBalanceQuery.Id = "aTrialBalanceQuery" + Me.aTrialBalanceQuery.ImageName = "stopwatch_run" + Me.aTrialBalanceQuery.Shortcut = Nothing + Me.aTrialBalanceQuery.Tag = Nothing + Me.aTrialBalanceQuery.TargetObjectsCriteria = Nothing + Me.aTrialBalanceQuery.TargetViewId = "TrialBalanceHeader_DetailView" + Me.aTrialBalanceQuery.ToolTip = Nothing + Me.aTrialBalanceQuery.TypeOfView = Nothing + ' + 'aTrialBalancePrint + ' + Me.aTrialBalancePrint.Caption = "Print document" + Me.aTrialBalancePrint.Category = "aTrialBalancePrint" + Me.aTrialBalancePrint.ConfirmationMessage = Nothing + Me.aTrialBalancePrint.Id = "aTrialBalancePrint" + Me.aTrialBalancePrint.ImageName = "Action_Printing_Print" + Me.aTrialBalancePrint.Shortcut = Nothing + Me.aTrialBalancePrint.Tag = Nothing + Me.aTrialBalancePrint.TargetObjectsCriteria = Nothing + Me.aTrialBalancePrint.TargetViewId = "TrialBalanceHeader_DetailView" + Me.aTrialBalancePrint.ToolTip = Nothing + Me.aTrialBalancePrint.TypeOfView = Nothing + ' + 'aTrialBalanceOpenCloseQuery + ' + Me.aTrialBalanceOpenCloseQuery.Caption = "Run query" + Me.aTrialBalanceOpenCloseQuery.Category = "aTrialBalanceOpenCloseQuery" + Me.aTrialBalanceOpenCloseQuery.ConfirmationMessage = Nothing + Me.aTrialBalanceOpenCloseQuery.Id = "aTrialBalanceOpenCloseQuery" + Me.aTrialBalanceOpenCloseQuery.ImageName = "stopwatch_run" + Me.aTrialBalanceOpenCloseQuery.Shortcut = Nothing + Me.aTrialBalanceOpenCloseQuery.Tag = Nothing + Me.aTrialBalanceOpenCloseQuery.TargetObjectsCriteria = Nothing + Me.aTrialBalanceOpenCloseQuery.TargetViewId = "TrialBalanceHeader_DetailView" + Me.aTrialBalanceOpenCloseQuery.ToolTip = Nothing + Me.aTrialBalanceOpenCloseQuery.TypeOfView = Nothing + ' + 'aViewTrialBalanceDetail + ' + Me.aViewTrialBalanceDetail.Caption = "View details" + Me.aViewTrialBalanceDetail.ConfirmationMessage = Nothing + Me.aViewTrialBalanceDetail.Id = "aViewTrialBalanceDetail" + Me.aViewTrialBalanceDetail.ImageName = "Action_WindowList" + Me.aViewTrialBalanceDetail.Shortcut = Nothing + Me.aViewTrialBalanceDetail.Tag = Nothing + Me.aViewTrialBalanceDetail.TargetObjectsCriteria = Nothing + Me.aViewTrialBalanceDetail.TargetViewId = "TrialBalanceHeader_DetailView" + Me.aViewTrialBalanceDetail.ToolTip = Nothing + Me.aViewTrialBalanceDetail.TypeOfView = Nothing + ' + 'aTrialBalanceViewCard + ' + Me.aTrialBalanceViewCard.Caption = "Trial Balance View Card" + Me.aTrialBalanceViewCard.ConfirmationMessage = Nothing + Me.aTrialBalanceViewCard.Id = "aTrialBalanceViewCard" + Me.aTrialBalanceViewCard.ImageName = Nothing + Me.aTrialBalanceViewCard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aTrialBalanceViewCard.Shortcut = Nothing + Me.aTrialBalanceViewCard.Tag = Nothing + Me.aTrialBalanceViewCard.TargetObjectsCriteria = Nothing + Me.aTrialBalanceViewCard.TargetViewId = Nothing + Me.aTrialBalanceViewCard.ToolTip = Nothing + Me.aTrialBalanceViewCard.TypeOfView = Nothing + ' + 'aTrialBalancePrint1 + ' + Me.aTrialBalancePrint1.Caption = "Print document" + Me.aTrialBalancePrint1.Category = "aTrialBalancePrint1" + Me.aTrialBalancePrint1.ConfirmationMessage = Nothing + Me.aTrialBalancePrint1.Id = "aTrialBalancePrint1" + Me.aTrialBalancePrint1.ImageName = "Action_Printing_Print" + Me.aTrialBalancePrint1.Shortcut = Nothing + Me.aTrialBalancePrint1.Tag = Nothing + Me.aTrialBalancePrint1.TargetObjectsCriteria = Nothing + Me.aTrialBalancePrint1.TargetViewId = "TrialBalanceHeader_DetailView" + Me.aTrialBalancePrint1.ToolTip = Nothing + Me.aTrialBalancePrint1.TypeOfView = Nothing + + End Sub + Friend WithEvents aTrialBalanceQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTrialBalancePrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTrialBalanceOpenCloseQuery As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewTrialBalanceDetail As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTrialBalanceViewCard As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aTrialBalancePrint1 As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.resx new file mode 100644 index 0000000..ce39014 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 347, 17 + + + 495, 17 + + + 865, 17 + + + 173, 17 + + + 710, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb new file mode 100644 index 0000000..d2097a2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Trial Ballance/TrialBalanceVC.vb @@ -0,0 +1,804 @@ +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 System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.CloneObject + +Public Class TrialBalanceVC + Inherits DevExpress.ExpressApp.ViewController + Public Structure sReq + Dim AccountNumber As String + Dim ParentAccountNumber As String + Dim DebitAmountHUF As Double + Dim CreditAmountHUF As Double + Dim DebitAmountDEV As Double + Dim CreditAmountDEV As Double + Dim IsLastLevel As Boolean + End Structure + Dim elem As sReq + Dim sArray(0 To 10000) As sReq + Dim Index As Integer + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + MyBase.OnActivated() + Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", False) + + If View.Id = "TrialBalanceHeader_TrialBalanceOpenClose_ListView" Or _ + View.Id = "TrialBalanceHeader_TrialBalance_ListView" Then + Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + If View.Id = "TrialBalanceHeader_DetailView" Then + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + + If _TrialBalanceHeader.UserCreated IsNot Nothing Then + If Not _TrialBalanceHeader.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", False) + Frame.GetController(Of TrialBalanceVC).aTrialBalanceOpenCloseQuery.Active.SetItemValue("", False) + End If + End If + End If + + If View.Id = "TrialBalanceHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = String.Format("UserCreated.Oid='{0}' or 'SysAdmin'='{1}'", _User.Oid, SecuritySystem.CurrentUserName) + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll + End If + If View.Id = "TrialBalanceHeader_DetailView_BeforeClose" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + If _GLOpenCloseHeader IsNot Nothing Then + View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderBeforeClose) + End If + End If + If View.Id = "TrialBalanceHeader_DetailView_AfterClose_SheetProfit" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_SheetProfit) + End If + If View.Id = "TrialBalanceHeader_DetailView_AfterClose_Ballance" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterClose_Ballance) + End If + If View.Id = "TrialBalanceHeader_DetailView_AfterOpen" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterOpen) + End If + If View.Id = "TrialBalanceHeader_DetailView_AfterDividend" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Dim _GLOpenCloseHeader = TryCast(TryCast(Frame, NestedFrame).ViewItem.View.SelectedObjects(0), GLOpenCloseHeader) + View.CurrentObject = _ocur.GetObject(_GLOpenCloseHeader.TrialBalanceHeaderAfterDividend) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of TrialBalanceVC).aTrialBalanceViewCard.Active.SetItemValue("", False) + + If View.Id = "TrialBalanceHeader_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If _TrialBalanceHeader.UserCreated IsNot Nothing Then + If Not _TrialBalanceHeader.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of TrialBalanceVC).aTrialBalanceQuery.Active.SetItemValue("", True) + End If + End If + End If + End Sub + + Private Sub aTrialBalanceQuery_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceQuery.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + LoadTrialBalanceNew(_ocur, _TrialBalanceHeader) + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aTrialBalanceOpenCloseQuery_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceOpenCloseQuery.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + LoadTrialBalanceOpenClose(_ocur, _TrialBalanceHeader) + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + + Private Sub aTrialBalancePrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalancePrint.Execute + '-- Ez egy beégetés !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + + If _TrialBalanceHeader IsNot Nothing Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi kivonat")) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TrialBalanceHeader=?", _TrialBalanceHeader), True) + Else + Throw New UserFriendlyException("Nincs beállítva a nyomtatvány !") + End If + End If + End Sub + Private Sub aViewTrialBalanceDetail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewTrialBalanceDetail.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace() + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("TrialBalanceOpenClose") + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + Dim _TrialBalanceOpenClose As TrialBalanceOpenClose = Nothing + If _ListView.ListView.SelectedObjects.Count > 0 Then _TrialBalanceOpenClose = _ListView.ListView.SelectedObjects(0) + + If _TrialBalanceOpenClose IsNot Nothing Then + Dim _CS As New CollectionSource(_onew, GetType(GLRows)) + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("GLHeader.DateExecution>=? and GetDate(GLHeader.DateExecution) <=? and GLHeader.CustomersFrom.Oid=? and GLHeader.IsEditable=False", _ + _TrialBalanceHeader.DateFrom.Date, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom.Oid) + _CS.Criteria("Second") = CriteriaOperator.Parse("DebitChartOfAccounts.AccountNumber like '" & _TrialBalanceOpenClose.AccountNumber & _ + "%' or CreditChartOfAccounts.AccountNumber like '" & _TrialBalanceOpenClose.AccountNumber & "%'") + _CS.EndUpdateCriteria() + e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_TrialBalance", _CS, False) + End If + End Sub + Private Sub aTrialBalanceViewCard_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalanceViewCard.Execute + + End Sub + Private Sub aTrialBalancePrint1_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTrialBalancePrint1.Execute + '-- Ez egy beégetés !! + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _TrialBalanceHeader As TrialBalanceHeader = TryCast(View.SelectedObjects(0), TrialBalanceHeader) + + If _TrialBalanceHeader IsNot Nothing Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Főkönyvi kivonat 1")) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("TrialBalanceHeader=?", _TrialBalanceHeader), True) + Else + Throw New UserFriendlyException("Nincs beállítva a nyomtatvány !") + End If + End If + End Sub + + + '// Subs + Public Sub LoadTrialBalanceNew(_ocur As Xpo.XPObjectSpace, _TrialBallanceHeader As TrialBalanceHeader) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _ChartOfAccounts As ChartOfAccounts + Dim _TrialBalanceHeader As TrialBalanceHeader = _uow.GetObjectByKey(Of TrialBalanceHeader)(_TrialBallanceHeader.Oid) + Dim _AmountHUF As Double = 0 + + Dim _GLRows_Collection = Nothing + Dim _GLRow As GLRows = Nothing + + Dim _TrialBalanceSum As TrialBalanceSum + Dim _CP As String = "" + Dim _RowIndex As Long = 0 + Dim _RowIndex_Sum As Long = 0 + + If _TrialBalanceHeader Is Nothing Then Exit Sub + Dim _TrialBallance_Collection As New XPCollection(_uow, GetType(TrialBalance), _ + CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid)) + _uow.Delete(_TrialBallance_Collection) + + Dim _TrialBalanceSum_Collection As New XPCollection(_uow, GetType(TrialBalanceSum), _ + CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid)) + _uow.Delete(_TrialBalanceSum_Collection) + + Dim _TrialBalance As TrialBalance + + '-- Először feltöltjük a főkönyvi számlatükröt ------------------------------------------------------------------------------------------------------------------------------------------------------------- + Dim _ChartOfAccounts_Collection As New XPCollection(_uow, GetType(ChartOfAccounts), CriteriaOperator.Parse("AccountYear=?", _TrialBalanceHeader.DateFrom.Year)) + _ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending)) + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + _RowIndex += 1 + RaiseEvent DoWork() + _TrialBalance = New TrialBalance(_uow) + _TrialBalance.RowIndex = _RowIndex + _TrialBalance.TrialBalanceHeader = _TrialBalanceHeader + _TrialBalance.CustomersForm = _TrialBalanceHeader.CustomersFrom + _TrialBalance.AccountNumber = _ChartOfAccounts.AccountNumber + _TrialBalance.ChartOfAccounts = _ChartOfAccounts + _TrialBalance.CreditAmountHUF = 0 + _TrialBalance.CreditRAmountHUF = 0 + _TrialBalance.DebitAmountHUF = 0 + _TrialBalance.DebitRAmountHUF = 0 + _TrialBalance.ShortName = _ChartOfAccounts.Name + Next + _uow.CommitChanges() + RaiseEvent FinalWork + '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + Dim DebitQuery As System.Linq.IQueryable(Of Object) + Dim _GLRows_XPQuery As New XPQuery(Of GLRows)(_uow) + + Dim _TrialBalanceJobNumberObjects_XPQuery As New XPQuery(Of TrialBalanceJobNumberObjects)(_uow) + Dim cquery = From _TrialBalanceJobNumberObjects In _TrialBalanceJobNumberObjects_XPQuery + Where _TrialBalanceJobNumberObjects.TrialBalanceHeader.Oid = _TrialBalanceHeader.Oid + Select _TrialBalanceJobNumberObjects.JobNumberObjects.Oid + + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + + If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then + DebitQuery = From _DebitQuery In _GLRows_XPQuery + Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _DebitQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _DebitQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + cquery.Contains(_DebitQuery.JobNumberObjects.Oid) And + _DebitQuery.GLHeader.IsEditable = False + Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + Else + DebitQuery = From _DebitQuery In _GLRows_XPQuery + Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _DebitQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _DebitQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + _DebitQuery.GLHeader.IsEditable = False + Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + End If + Else + If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then + DebitQuery = From _DebitQuery In _GLRows_XPQuery + Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _DebitQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _DebitQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + cquery.Contains(_DebitQuery.JobNumberObjects.Oid) And + _DebitQuery.GLHeader.IsEditable = False + Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + Else + DebitQuery = From _DebitQuery In _GLRows_XPQuery + Where _DebitQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _DebitQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _DebitQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + _DebitQuery.GLHeader.IsEditable = False + Group _DebitQuery By _DebitQuery.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + End If + + + End If + + RaiseEvent InitWork(1, 1, DebitQuery.Count) + For Each item In DebitQuery + RaiseEvent DoWork() + For Each _TrialBalance In _TrialBalanceHeader.TrialBalance + If item.AccountNumber IsNot Nothing Then + If _TrialBalance.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalance.AccountNumber)) Then + _TrialBalance.DebitAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + Dim CreditQuery As System.Linq.IQueryable(Of Object) + + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then + CreditQuery = From _CreditQuery In _GLRows_XPQuery + Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _CreditQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _CreditQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + cquery.Contains(_CreditQuery.JobNumberObjects.Oid) And + _CreditQuery.GLHeader.IsEditable = False + Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + Else + CreditQuery = From _CreditQuery In _GLRows_XPQuery + Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _CreditQuery.GLHeader.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _CreditQuery.GLHeader.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + _CreditQuery.GLHeader.IsEditable = False + Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + End If + + Else + If _TrialBalanceHeader.TrialBalanceJobNumberObjects.Count > 0 Then + CreditQuery = From _CreditQuery In _GLRows_XPQuery + Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _CreditQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _CreditQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + cquery.Contains(_CreditQuery.JobNumberObjects.Oid) And + _CreditQuery.GLHeader.IsEditable = False + Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + Else + CreditQuery = From _CreditQuery In _GLRows_XPQuery + Where _CreditQuery.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid And _ + _CreditQuery.DateExecution.Date >= _TrialBalanceHeader.DateFrom.Date And _ + _CreditQuery.DateExecution.Date <= _TrialBalanceHeader.DateTo.Date And _ + _CreditQuery.GLHeader.IsEditable = False + Group _CreditQuery By _CreditQuery.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF)), + Key .AmountDEV = g.Sum(Function(inv) (inv.AmountDEV))} + End If + + + End If + + RaiseEvent InitWork(1, 1, CreditQuery.Count) + For Each item In CreditQuery + RaiseEvent DoWork() + For Each _TrialBalance In _TrialBalanceHeader.TrialBalance + If item.AccountNumber IsNot Nothing Then + If _TrialBalance.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalance.AccountNumber)) Then + _TrialBalance.CreditAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + + '-- Összesítés ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- + RaiseEvent InitWork(1, 1, _TrialBalanceHeader.TrialBalance.Count) + For Each _TrialBalance In _TrialBalanceHeader.TrialBalance + RaiseEvent DoWork() + If _TrialBalance.DebitAmountHUF > _TrialBalance.CreditAmountHUF Then + _TrialBalance.DebitRAmountHUF = _TrialBalance.DebitAmountHUF - _TrialBalance.CreditAmountHUF + ElseIf _TrialBalance.DebitAmountHUF < _TrialBalance.CreditAmountHUF Then + _TrialBalance.CreditRAmountHUF = _TrialBalance.CreditAmountHUF - _TrialBalance.DebitAmountHUF + End If + + Select Case _TrialBalance.AccountNumber + Case "0", "1", "2", "3", "4", "5", "8", "9" + _RowIndex_Sum += 1 + _TrialBalanceSum = New TrialBalanceSum(_uow) + _TrialBalanceSum.RowIndex = _RowIndex_Sum + Select Case _TrialBalance.AccountNumber + Case "0", "1", "2", "3", "4" + _TrialBalanceSum.AccountSum = eAccountSum.e1_4 + Case "5", "8", "9" + _TrialBalanceSum.AccountSum = eAccountSum.e5_9 + End Select + _TrialBalanceSum.AccountNumber = _TrialBalance.AccountNumber + _TrialBalanceSum.CreditAmountHUF = _TrialBalance.CreditAmountHUF + _TrialBalanceSum.CustomersForm = _TrialBalance.CustomersForm + _TrialBalanceSum.DebitAmountHUF = _TrialBalance.DebitAmountHUF + _TrialBalanceSum.ShortName = _TrialBalance.ShortName + _TrialBalanceSum.TrialBalanceHeader = _TrialBalanceHeader + _TrialBalanceSum.BallanceHUFClose = _TrialBalanceSum.DebitAmountHUF - _TrialBalanceSum.CreditAmountHUF + End Select + Next + _uow.CommitChanges() + RaiseEvent FinalWork + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + Dim _TRB_C As New XPCollection(Of TrialBalance)(_uow, CriteriaOperator.Parse("CreditAmountHUF = 0 And DebitAmountHUF = 0 And CreditRAmountHUF = 0 And CreditRAmountHUF = 0")) + _uow.Delete(_TRB_C) + _uow.CommitChanges() + + _TrialBalanceHeader.CreateGLRowsStatictics(_uow, _TrialBalanceHeader.DateFrom, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom, _TrialBalanceHeader.Oid) + + End Sub + Public Sub LoadTrialBalanceOpenClose(_ocur As Xpo.XPObjectSpace, _TrialBallanceHeader As TrialBalanceHeader) + + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _DebitAmountHUF As Double = 0 + Dim _CreditAmountHUF As Double = 0 + Dim _DebitAmountHUF491 As Double = 0 + Dim _CreditAmountHUF491 As Double = 0 + Dim _DateFromCurrentYear As Date + + Dim _DateFrom As Date + + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _TrialBalanceHeader As TrialBalanceHeader = _uow.GetObjectByKey(Of TrialBalanceHeader)(_TrialBallanceHeader.Oid) + + Dim _TrialBalanceOpenClose_Collection As New XPCollection(_uow, GetType(TrialBalanceOpenClose), _ + CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid)) + _uow.Delete(_TrialBalanceOpenClose_Collection) + + Dim _TrialBalanceSum_Collection As New XPCollection(_uow, GetType(TrialBalanceSum), _ + CriteriaOperator.Parse("TrialBalanceHeader.Oid=?", _TrialBalanceHeader.Oid)) + _uow.Delete(_TrialBalanceSum_Collection) + + Dim _TrialBalanceOpenClose As TrialBalanceOpenClose + Dim _TrialBalanceSum As TrialBalanceSum + + Dim _RowIndex As Long = 0 + Dim _RowIndex_Sum As Long = 0 + + _DateFromCurrentYear = CDate(Year(_TrialBalanceHeader.DateFrom) & "/01/01") + _DateFrom = _TrialBalanceHeader.DateFrom + + '-- Először feltöltjük a főkönyvi számlatükröt ------------------------------------------------------------------------------------------------------------------------------------------------------------- + Dim _ChartOfAccounts_Collection As New XPCollection(_uow, GetType(ChartOfAccounts), CriteriaOperator.Parse("AccountYear=?", _TrialBalanceHeader.DateFrom.Year)) + _ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending)) + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + _RowIndex += 1 + RaiseEvent DoWork() + _TrialBalanceOpenClose = New TrialBalanceOpenClose(_uow) + _TrialBalanceOpenClose.RowIndex = _RowIndex + _TrialBalanceOpenClose.TrialBalanceHeader = _TrialBalanceHeader + _TrialBalanceOpenClose.CustomersForm = _TrialBalanceHeader.CustomersFrom + _TrialBalanceOpenClose.AccountNumber = _ChartOfAccounts.AccountNumber + _TrialBalanceOpenClose.CreditAmountHUF = 0 + _TrialBalanceOpenClose.DebitAmountHUF = 0 + _TrialBalanceOpenClose.ShortName = _ChartOfAccounts.Name + + _TrialBalanceOpenClose.BallanceHUF = 0 + _TrialBalanceOpenClose.BallanceHUF491 = 0 + _TrialBalanceOpenClose.BallanceHUF491Open = 0 + _TrialBalanceOpenClose.BallanceHUFClose = 0 + _TrialBalanceOpenClose.BallanceHUFOpen = 0 + + + Next + _uow.CommitChanges() + RaiseEvent FinalWork + '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_uow) + Dim query As System.Linq.IQueryable(Of Object) + + 'I. ------------------------------------------------------------------------------------------------------------------------------------ + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.CreditChartOfAccounts.AccountNumber = "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Year = _DateFromCurrentYear.Year And _ + _glrows.GLHeader.DateExecution.Month = 1 And + _glrows.GLHeader.DateExecution.Day = 1 And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.CreditChartOfAccounts.AccountNumber = "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Year = _DateFromCurrentYear.Year And _ + _glrows.GLHeader.DateExecution.Month = 1 And + _glrows.GLHeader.DateExecution.Day = 1 And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + + End If + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.BallanceHUF491 += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber = "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Year = _DateFromCurrentYear.Year And _ + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber = "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Year = _DateFromCurrentYear.Year And _ + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + + End If + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.BallanceHUF491 -= Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + 'II. ------------------------------------------------------------------------------------------------------------------------------------ + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _DateFromCurrentYear.Date And + _glrows.GLHeader.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Date >= _DateFromCurrentYear.Date And + _glrows.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + + End If + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.BallanceHUFOpen += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _DateFromCurrentYear And + _glrows.GLHeader.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Date >= _DateFromCurrentYear And + _glrows.DateExecution.Date < _TrialBalanceHeader.DateFrom.Date And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + End If + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.BallanceHUFOpen -= Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + _TrialBalanceOpenClose.BallanceHUF491Open = _TrialBalanceOpenClose.BallanceHUF491 + _TrialBalanceOpenClose.BallanceHUFOpen + Next + + 'III. ------------------------------------------------------------------------------------------------------------------------------------ + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _DateFrom.Date And + _glrows.GLHeader.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Date >= _DateFrom.Date And + _glrows.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + End If + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.DebitAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + If _TrialBalanceHeader.GLReportDateExecutionMode = eDateExecutionMode.eHeader Then + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _DateFrom.Date And + _glrows.GLHeader.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + Else + query = From _glrows In _GLRows_xpquery + Where _glrows.DebitChartOfAccounts.AccountNumber <> "491" And _ + _glrows.CreditChartOfAccounts.AccountNumber <> "491" And _ + _glrows.GLHeader.IsEditable = False And _ + _glrows.DateExecution.Date >= _DateFrom.Date And + _glrows.DateExecution.Date <= DateAdd(DateInterval.Minute, 1439, _TrialBalanceHeader.DateTo.Date) And + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _TrialBalanceHeader.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .AmountHUF = g.Sum(Function(inv) (inv.AmountHUF))} + End If + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + If item.AccountNumber IsNot Nothing Then + If _TrialBalanceOpenClose.AccountNumber = Mid(item.AccountNumber, 1, Len(_TrialBalanceOpenClose.AccountNumber)) Then + _TrialBalanceOpenClose.CreditAmountHUF += Math.Round(item.AmountHUF, 2, MidpointRounding.AwayFromZero) + End If + End If + Next + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + _TrialBalanceOpenClose.BallanceHUF = _TrialBalanceOpenClose.DebitAmountHUF - _TrialBalanceOpenClose.CreditAmountHUF + _TrialBalanceOpenClose.BallanceHUFClose = _TrialBalanceOpenClose.BallanceHUF491Open + _TrialBalanceOpenClose.BallanceHUF + Next + + + 'IV. ------------------------------------------------------------------------------------------------------------------------------------ + RaiseEvent InitWork(1, 1, _TrialBalanceHeader.TrialBalanceOpenClose.Count) + For Each _TrialBalanceOpenClose In _TrialBalanceHeader.TrialBalanceOpenClose + RaiseEvent DoWork() + Select Case _TrialBalanceOpenClose.AccountNumber + Case "0", "1", "2", "3", "4", "5", "8", "9" + _RowIndex_Sum += 1 + _TrialBalanceSum = New TrialBalanceSum(_uow) + _TrialBalanceSum.RowIndex = _RowIndex_Sum + Select Case _TrialBalanceOpenClose.AccountNumber + Case "0", "1", "2", "3", "4" + _TrialBalanceSum.AccountSum = eAccountSum.e1_4 + Case "5", "8", "9" + _TrialBalanceSum.AccountSum = eAccountSum.e5_9 + End Select + _TrialBalanceSum.AccountNumber = _TrialBalanceOpenClose.AccountNumber + _TrialBalanceSum.BallanceHUF = _TrialBalanceOpenClose.BallanceHUF + _TrialBalanceSum.BallanceHUFClose = _TrialBalanceOpenClose.BallanceHUFClose + _TrialBalanceSum.BallanceHUFOpen = _TrialBalanceOpenClose.BallanceHUF491Open + _TrialBalanceSum.CreditAmountHUF = _TrialBalanceOpenClose.CreditAmountHUF + _TrialBalanceSum.CustomersForm = _TrialBalanceOpenClose.CustomersForm + _TrialBalanceSum.DebitAmountHUF = _TrialBalanceOpenClose.DebitAmountHUF + _TrialBalanceSum.ShortName = _TrialBalanceOpenClose.ShortName + _TrialBalanceSum.TrialBalanceHeader = _TrialBalanceHeader + End Select + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + + Dim _TRBO As New XPCollection(Of TrialBalanceOpenClose)(_uow, CriteriaOperator.Parse("BallanceHUF = 0 And BallanceHUF491 = 0 And BallanceHUF491Open = 0 And BallanceHUFClose = 0 And BallanceHUFOpen = 0 And CreditAmountHUF = 0 And DebitAmountHUF=0")) + _uow.Delete(_TRBO) + _uow.CommitChanges() + + _TrialBalanceHeader.CreateGLRowsStatictics(_uow, _TrialBalanceHeader.DateFrom, _TrialBalanceHeader.DateTo, _TrialBalanceHeader.CustomersFrom, _TrialBalanceHeader.Oid) + + + End Sub + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompare.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompare.vb new file mode 100644 index 0000000..9c72129 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompare.vb @@ -0,0 +1,146 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class VATCompare ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String 'Megnevezs pld 2011 jaunri fa + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _VATReportSource As VATReport + Private _VATReportDestination As VATReport + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property VATReportSource As VATReport + Get + Return _VATReportSource + End Get + Set(value As VATReport) + SetPropertyValue("VATReportSource", _VATReportSource, value) + End Set + End Property + Property VATReportDestination As VATReport + Get + Return _VATReportDestination + End Get + Set(value As VATReport) + SetPropertyValue("VATReportDestination", _VATReportDestination, value) + End Set + End Property + + + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + ReadOnly Property VATCompareDetail As XPCollection(Of VATCompareDetail) + Get + Return GetCollection(Of VATCompareDetail)("VATCompareDetail") + End Get + End Property + + _ + ReadOnly Property VATReportGroup_Source As XPCollection(Of VATReportGroup) + Get + If Me.VATReportSource IsNot Nothing Then + Return Me.VATReportSource.VATReportGroup + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property VATReportGroup_Destination As XPCollection(Of VATReportGroup) + Get + If Me.VATReportDestination IsNot Nothing Then + Return Me.VATReportDestination.VATReportGroup + Else + Return Nothing + End If + End Get + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompareDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompareDetail.vb new file mode 100644 index 0000000..6cc2cf2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATCompareDetail.vb @@ -0,0 +1,240 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class VATCompareDetail ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _VATCompare As VATCompare + + Private _VAT As VAT + Private _PartnerType As ePartnerType + Private _DateVAT As Date + Private _DateExecution As Date + Private _DocumentNumber As String + Private _Customers As Customers + Private _Note As String + Private _PayMode As ePayMode + + Private _AmountVATOut_Source As Double 'rtkestst terhel FA + Private _AmountVATIn_Source As Double 'Beszerzst terhel FA + Private _AmountVATOutBase_Source As Double 'rtkestst terhel FA alap + Private _AmountVATInBase_Source As Double 'Beszerzst terhel FA alap + + Private _AmountVATOut_Destination As Double 'rtkestst terhel FA + Private _AmountVATIn_Destination As Double 'Beszerzst terhel FA + Private _AmountVATOutBase_Destination As Double 'rtkestst terhel FA alap + Private _AmountVATInBase_Destination As Double 'Beszerzst terhel FA alap + + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + _ + Property VATCompare As VATCompare + Get + Return _VATCompare + End Get + Set(value As VATCompare) + SetPropertyValue("VATCompare", _VATCompare, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property PayMode As ePayMode + Get + Return _PayMode + End Get + Set(ByVal value As ePayMode) + SetPropertyValue("PayMode", _PayMode, value) + End Set + End Property + + Property AmountVATOut_Source As Double + Get + Return _AmountVATOut_Source + End Get + Set(value As Double) + SetPropertyValue("AmountVATOut_Source", _AmountVATOut_Source, value) + End Set + End Property + Property AmountVATIn_Source As Double + Get + Return _AmountVATIn_Source + End Get + Set(value As Double) + SetPropertyValue("AmountVATIn_Source", _AmountVATIn_Source, value) + End Set + End Property + Property AmountVATOutBase_Source As Double + Get + Return _AmountVATOutBase_Source + End Get + Set(value As Double) + SetPropertyValue("AmountVATOutBase_Source", _AmountVATOutBase_Source, value) + End Set + End Property + Property AmountVATInBase_Source As Double + Get + Return _AmountVATInBase_Source + End Get + Set(value As Double) + SetPropertyValue("AmountVATInBase_Source", _AmountVATInBase_Source, value) + End Set + End Property + + Property AmountVATOut_Destination As Double + Get + Return _AmountVATOut_Destination + End Get + Set(value As Double) + SetPropertyValue("AmountVATOut_Destination", _AmountVATOut_Destination, value) + End Set + End Property + Property AmountVATIn_Destination As Double + Get + Return _AmountVATIn_Destination + End Get + Set(value As Double) + SetPropertyValue("AmountVATIn_Destination", _AmountVATIn_Destination, value) + End Set + End Property + Property AmountVATOutBase_Destination As Double + Get + Return _AmountVATOutBase_Destination + End Get + Set(value As Double) + SetPropertyValue("AmountVATOutBase_Destination", _AmountVATOutBase_Destination, value) + End Set + End Property + Property AmountVATInBase_Destination As Double + Get + Return _AmountVATInBase_Destination + End Get + Set(value As Double) + SetPropertyValue("AmountVATInBase_Destination", _AmountVATInBase_Destination, value) + End Set + End Property + + ReadOnly Property AmountVATOut_Difference As Double + Get + Return AmountVATOut_Destination - AmountVATOut_Source + End Get + End Property + ReadOnly Property AmountVATIn_Difference As Double + Get + Return AmountVATIn_Source - AmountVATIn_Destination + End Get + End Property + ReadOnly Property AmountVATOutBase_Difference As Double + Get + Return AmountVATOutBase_Destination - AmountVATOutBase_Source + End Get + End Property + ReadOnly Property AmountVATInBase_Difference As Double + Get + Return AmountVATInBase_Source - AmountVATInBase_Destination + End Get + End Property + + ReadOnly Property SumTotal_Difference As Double + Get + Return Me.AmountVATOut_Difference - Me.AmountVATIn_Difference + End Get + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport.vb new file mode 100644 index 0000000..3dd6819 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport.vb @@ -0,0 +1,211 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ + _ + _ + _ +Public Class VATReport + Inherits BaseObject + Private _ShortName As String 'Megnevezés pld 2011 jaunári áfa + Private _DateFrom As Date 'Dátumtól + Private _DateTo As Date 'Dátumig + Private _DateVAT As Date 'ÁFA dátum, amikor a bevallás kell + Private _CustomersFrom As CustomersFrom ' Saját cég + Private _OnlyVAT As Boolean = True + Private _TotalAmountIn As Double ' Öszes beszerzést terhelő ÁFA + Private _TotalAmountOut As Double ' Összes értékesítést terhelő ÁFA + Private _DifferenceAmount As Double 'Értékesítést terhelő - Beszerzést terhelő + Private _ObjectCreated As Date + Private _UserCreated As User + Private _GLClosingTime As GLClosingTime + Private _Closed As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + DifferenceAmount = TotalAmountOut - TotalAmountIn + End Sub + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(ByVal value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + _ + _ + Property DateTo As Date + Get + Return _DateTo + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + _ + _ + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property OnlyVAT As Boolean + Get + Return _OnlyVAT + End Get + Set(ByVal value As Boolean) + SetPropertyValue("OnlyVAT", _OnlyVAT, value) + End Set + End Property + Property TotalAmountIn As Double + Get + Return _TotalAmountIn + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalAmountIn", _TotalAmountIn, value) + End Set + End Property + Property TotalAmountOut As Double + Get + Return _TotalAmountOut + End Get + Set(ByVal value As Double) + SetPropertyValue("TotalAmountOut", _TotalAmountOut, value) + End Set + End Property + Property DifferenceAmount As Double + Get + Return _DifferenceAmount + End Get + Set(value As Double) + SetPropertyValue("DifferenceAmount", _DifferenceAmount, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property GLClosingTime As GLClosingTime + Get + Return _GLClosingTime + End Get + Set(value As GLClosingTime) + SetPropertyValue("GLClosingTime", _GLClosingTime, value) + End Set + End Property + Property Closed As Boolean + Get + Return _Closed + End Get + Set(value As Boolean) + SetPropertyValue("Closed", _Closed, value) + End Set + End Property + + _ + ReadOnly Property VATReportGroup As XPCollection(Of VATReportGroup) + Get + Return GetCollection(Of VATReportGroup)("VATReportGroup") + End Get + End Property + _ + ReadOnly Property VATReportDetail As XPCollection(Of VATReportDetail) + Get + Return GetCollection(Of VATReportDetail)("VATReportDetail") + End Get + End Property + _ + ReadOnly Property VATReportGroupCustomers2M As XPCollection(Of VATReportGroupCustomers2M) + Get + Return GetCollection(Of VATReportGroupCustomers2M)("VATReportGroupCustomers2M") + End Get + End Property + _ + ReadOnly Property VATReportNoPayDetail As XPCollection(Of VATReportNoPayDetail) + Get + Return GetCollection(Of VATReportNoPayDetail)("VATReportNoPayDetail") + End Get + End Property + _ + ReadOnly Property VATReportFileAttachment As XPCollection(Of VATReportFileAttachment) + Get + Return GetCollection(Of VATReportFileAttachment)("VATReportFileAttachment") + End Get + End Property + + _ + ReadOnly Property VATReport07 As XPCollection(Of VATReport07) + Get + Return GetCollection(Of VATReport07)("VATReport07") + End Get + End Property + _ + ReadOnly Property VATReport08 As XPCollection(Of VATReport08) + Get + Return GetCollection(Of VATReport08)("VATReport08") + End Get + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport07.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport07.vb new file mode 100644 index 0000000..b156f5f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport07.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class VATReport07 + Inherits BaseObject + Private _VATReport As VATReport + Private _Customers As Customers + Private _DateExecution As Date + Private _CustomsTariffs As CustomsTariffs + Private _Weight As Double + Private _AmountVATOutBase As Double 'rtkestst terhel FA alap + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + Property Weight As Double + Get + Return _Weight + End Get + Set(value As Double) + SetPropertyValue("Weight", _Weight, value) + End Set + End Property + Property AmountVATOutBase As Double + Get + Return _AmountVATOutBase + End Get + Set(value As Double) + SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value) + End Set + End Property + ReadOnly Property AmountVATOutBaseThousand As Double + Get + Return Math.Round(AmountVATOutBase / 1000, 0, MidpointRounding.AwayFromZero) + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport08.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport08.vb new file mode 100644 index 0000000..40a9d05 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReport08.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class VATReport08 + Inherits BaseObject + Private _VATReport As VATReport + Private _Customers As Customers + Private _DateExecution As Date + Private _CustomsTariffs As CustomsTariffs + Private _Weight As Double + Private _AmountVATInBase As Double 'Beszerzst terhel FA alap + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property CustomsTariffs As CustomsTariffs + Get + Return _CustomsTariffs + End Get + Set(value As CustomsTariffs) + SetPropertyValue("CustomsTariffs", _CustomsTariffs, value) + End Set + End Property + Property Weight As Double + Get + Return _Weight + End Get + Set(value As Double) + SetPropertyValue("Weight", _Weight, value) + End Set + End Property + Property AmountVATInBase As Double + Get + Return _AmountVATInBase + End Get + Set(value As Double) + SetPropertyValue("AmountVATInBase", _AmountVATInBase, value) + End Set + End Property + ReadOnly Property AmountVATInBaseThousand As Double + Get + Return Math.Round(AmountVATInBase / 1000, 0, MidpointRounding.AwayFromZero) + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportDetail.vb new file mode 100644 index 0000000..966b997 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportDetail.vb @@ -0,0 +1,206 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions +Public Enum eVATReportDetailRowType + efromRegistry = 0 + efromInvoice = 1 + efromAccount = 2 + efromCassa = 3 + efromAccountDirect = 4 + efromMixed = 5 +End Enum + _ + _ + _ + _ +Public Class VATReportDetail + Inherits BaseObject + Private _VATReportDetailRowType As eVATReportDetailRowType + Private _VATReport As VATReport + Private _VAT As VAT + Private _PartnerType As ePartnerType + Private _DateVAT As Date + Private _DateExecution As Date + Private _DocumentNumber As String + Private _Customers As Customers + Private _Note As String + Private _PayMode As ePayMode + Private _RegistryHeader As RegistryHeader + Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA + Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA + Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap + Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap + Private _AmountVATInBaseNoPay As Double = 0 + Private _AmountVATInNoPay As Double = 0 + Private _AmountVATOutBaseNoPay As Double = 0 + Private _AmountVATOutNoPay As Double = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property VATReportDetailRowType As eVATReportDetailRowType + Get + Return _VATReportDetailRowType + End Get + Set(value As eVATReportDetailRowType) + SetPropertyValue("VATReportDetailRowType", _VATReportDetailRowType, value) + End Set + End Property + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(ByVal value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property PayMode As ePayMode + Get + Return _PayMode + End Get + Set(ByVal value As ePayMode) + SetPropertyValue("PayMode", _PayMode, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property AmountVATOut As Double + Get + Return _AmountVATOut + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOut", _AmountVATOut, value) + End Set + End Property + Property AmountVATIn As Double + Get + Return _AmountVATIn + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATIn", _AmountVATIn, value) + End Set + End Property + Property AmountVATOutBase As Double + Get + Return _AmountVATOutBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value) + End Set + End Property + Property AmountVATInBase As Double + Get + Return _AmountVATInBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATInBase", _AmountVATInBase, value) + End Set + End Property + Property AmountVATInBaseNoPay As Double + Get + Return _AmountVATInBaseNoPay + End Get + Set(value As Double) + SetPropertyValue("AmountVATInBaseNoPay", _AmountVATInBaseNoPay, value) + End Set + End Property + Property AmountVATInNoPay As Double + Get + Return _AmountVATInNoPay + End Get + Set(value As Double) + SetPropertyValue("AmountVATInNoPay", _AmountVATInNoPay, value) + End Set + End Property + Property AmountVATOutBaseNoPay As Double + Get + Return _AmountVATOutBaseNoPay + End Get + Set(value As Double) + SetPropertyValue("AmountVATOutBaseNoPay", _AmountVATOutBaseNoPay, value) + End Set + End Property + Property AmountVATOutNoPay As Double + Get + Return _AmountVATOutNoPay + End Get + Set(value As Double) + SetPropertyValue("AmountVATOutNoPay", _AmountVATOutNoPay, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportFileAttachements.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportFileAttachements.vb new file mode 100644 index 0000000..4c6921e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportFileAttachements.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class VATReportFileAttachment + Inherits FileAttachmentBase + Private _FileType As String + Private _VATReport As VATReport + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property FileType As String + Get + Return _FileType + End Get + Set(value As String) + SetPropertyValue("FileType", _FileType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroup.vb new file mode 100644 index 0000000..a5462f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroup.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ + _ +Public Class VATReportGroup + Inherits BaseObject + Private _PartnerType As ePartnerType + Private _VATReport As VATReport + Private _VAT As VAT 'ÁFA kódja + Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA + Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA + Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap + Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap + + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(ByVal value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property AmountVATOut As Double + Get + Return _AmountVATOut + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOut", _AmountVATOut, value) + End Set + End Property + Property AmountVATIn As Double + Get + Return _AmountVATIn + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATIn", _AmountVATIn, value) + End Set + End Property + Property AmountVATOutBase As Double + Get + Return _AmountVATOutBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value) + End Set + End Property + Property AmountVATInBase As Double + Get + Return _AmountVATInBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATInBase", _AmountVATInBase, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroupCustomers2M.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroupCustomers2M.vb new file mode 100644 index 0000000..6c948fe --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportGroupCustomers2M.vb @@ -0,0 +1,143 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eVAT2MType + eDetail = 0 + eCummulative = 1 +End Enum + _ +Public Class VATReportGroupCustomers2M + Inherits BaseObject + Private _VATReport As VATReport + Private _Customers As Customers + Private _DocumentNumber As String + Private _DateExecution As Date + Private _RegistryHeader As RegistryHeader + Private _InvoiceHeader As InvoiceHeader + Private _GLAccounts As GLAccounts + Private _PartnerType As ePartnerType + Private _AmountVATOut As Double 'rtkestst terhel FA + Private _AmountVATIn As Double 'Beszerzst terhel FA + Private _AmountVATOutBase As Double 'rtkestst terhel FA alap + Private _AmountVATInBase As Double 'Beszerzst terhel FA alap + Private _VAT2MType As eVAT2MType + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(ByVal value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property AmountVATOut As Double + Get + Return _AmountVATOut + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOut", _AmountVATOut, value) + End Set + End Property + Property AmountVATIn As Double + Get + Return _AmountVATIn + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATIn", _AmountVATIn, value) + End Set + End Property + Property AmountVATOutBase As Double + Get + Return _AmountVATOutBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATOutBase", _AmountVATOutBase, value) + End Set + End Property + Property AmountVATInBase As Double + Get + Return _AmountVATInBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATInBase", _AmountVATInBase, value) + End Set + End Property + Property VAT2MType As eVAT2MType + Get + Return _VAT2MType + End Get + Set(value As eVAT2MType) + SetPropertyValue("VAT2MType", _VAT2MType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportNoPayDetail.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportNoPayDetail.vb new file mode 100644 index 0000000..caee0e0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportNoPayDetail.vb @@ -0,0 +1,139 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + _ + _ + _ + _ +Public Class VATReportNoPayDetail + Inherits BaseObject + Private _VATReport As VATReport + Private _VAT As VAT + Private _PartnerType As ePartnerType + Private _DateVAT As Date + Private _DateExecution As Date + Private _DocumentNumber As String + Private _Customers As Customers + Private _Note As String + Private _PayMode As ePayMode + Private _RegistryHeader As RegistryHeader + Private _AmountVATIn As Double 'Beszerzést terhelő ÁFA + Private _AmountVATInBase As Double 'Beszerzést terhelő ÁFA alap + + Private _AmountVATOut As Double 'Értékesítést terhelő ÁFA + Private _AmountVATOutBase As Double 'Értékesítést terhelő ÁFA alap + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property VATReport As VATReport + Get + Return _VATReport + End Get + Set(ByVal value As VATReport) + SetPropertyValue("VATReport", _VATReport, value) + End Set + End Property + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(ByVal value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property PayMode As ePayMode + Get + Return _PayMode + End Get + Set(ByVal value As ePayMode) + SetPropertyValue("PayMode", _PayMode, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property AmountVATIn As Double + Get + Return _AmountVATIn + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATIn", _AmountVATIn, value) + End Set + End Property + Property AmountVATInBase As Double + Get + Return _AmountVATInBase + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountVATInBase", _AmountVATInBase, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb new file mode 100644 index 0000000..4983465 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.Designer.vb @@ -0,0 +1,164 @@ +Partial Class VATReportVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGenerateVATReport = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistry_VATNoPay = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATReportPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_VATNoPay = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATClosePreviewPDF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATCloseBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aVATClose = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateVATCompare = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_VATCompareDetail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGenerateVATReport + ' + Me.aGenerateVATReport.Caption = "Generate VAT report" + Me.aGenerateVATReport.ConfirmationMessage = "Do you want to execute command ?" + Me.aGenerateVATReport.Id = "aGenerateVATReport" + Me.aGenerateVATReport.ImageName = "stopwatch_run" + Me.aGenerateVATReport.TargetViewId = "VATReport_DetailView" + Me.aGenerateVATReport.ToolTip = Nothing + ' + 'aViewRegistry_VAT + ' + Me.aViewRegistry_VAT.Caption = "View registry" + Me.aViewRegistry_VAT.ConfirmationMessage = Nothing + Me.aViewRegistry_VAT.Id = "aViewRegistry_VAT" + Me.aViewRegistry_VAT.ImageName = "document_pinned" + Me.aViewRegistry_VAT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_VAT.TargetViewId = "VATReport_VATReportDetail_ListView" + Me.aViewRegistry_VAT.ToolTip = Nothing + ' + 'aViewAttachments_VAT + ' + Me.aViewAttachments_VAT.Caption = "View attachments" + Me.aViewAttachments_VAT.ConfirmationMessage = Nothing + Me.aViewAttachments_VAT.Id = "aViewAttachments_VAT" + Me.aViewAttachments_VAT.ImageName = "printer_view" + Me.aViewAttachments_VAT.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_VAT.TargetViewId = "VATReport_VATReportDetail_ListView" + Me.aViewAttachments_VAT.ToolTip = Nothing + ' + 'aViewRegistry_VATNoPay + ' + Me.aViewRegistry_VATNoPay.Caption = "View registry" + Me.aViewRegistry_VATNoPay.ConfirmationMessage = Nothing + Me.aViewRegistry_VATNoPay.Id = "aViewRegistry_VATNoPay" + Me.aViewRegistry_VATNoPay.ImageName = "document_pinned" + Me.aViewRegistry_VATNoPay.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewRegistry_VATNoPay.TargetViewId = "VATReport_VATReportNoPayDetail_ListView" + Me.aViewRegistry_VATNoPay.ToolTip = Nothing + ' + 'aVATReportPrint + ' + Me.aVATReportPrint.Caption = "Print document" + Me.aVATReportPrint.Category = "View" + Me.aVATReportPrint.ConfirmationMessage = Nothing + Me.aVATReportPrint.Id = "aVATReportPrint" + Me.aVATReportPrint.ImageName = "Action_Printing_Print" + Me.aVATReportPrint.TargetViewId = "VATReport_DetailView" + Me.aVATReportPrint.ToolTip = Nothing + ' + 'aViewAttachments_VATNoPay + ' + Me.aViewAttachments_VATNoPay.Caption = "View attachments" + Me.aViewAttachments_VATNoPay.ConfirmationMessage = Nothing + Me.aViewAttachments_VATNoPay.Id = "aViewAttachments_VATNoPay" + Me.aViewAttachments_VATNoPay.ImageName = "printer_view" + Me.aViewAttachments_VATNoPay.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_VATNoPay.TargetViewId = "VATReport_VATReportNoPayDetail_ListView" + Me.aViewAttachments_VATNoPay.ToolTip = Nothing + ' + 'aVATClosePreviewPDF + ' + Me.aVATClosePreviewPDF.Caption = "Preview PDF" + Me.aVATClosePreviewPDF.ConfirmationMessage = Nothing + Me.aVATClosePreviewPDF.Id = "aVATClosePreviewPDF" + Me.aVATClosePreviewPDF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aVATClosePreviewPDF.TargetObjectsCriteria = "isnull(GLClosingTime)=False" + Me.aVATClosePreviewPDF.TargetObjectType = GetType(SISBusiness.[Module].VATReport) + Me.aVATClosePreviewPDF.ToolTip = Nothing + ' + 'aVATCloseBack + ' + Me.aVATCloseBack.Caption = "VAT Close Back" + Me.aVATCloseBack.ConfirmationMessage = "Do you want to execute command ?" + Me.aVATCloseBack.Id = "aVATCloseBack" + Me.aVATCloseBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aVATCloseBack.TargetObjectType = GetType(SISBusiness.[Module].VATReport) + Me.aVATCloseBack.ToolTip = Nothing + ' + 'aVATClose + ' + Me.aVATClose.Caption = "VAT Close" + Me.aVATClose.ConfirmationMessage = "Do you want to execute command ?" + Me.aVATClose.Id = "aVATClose" + Me.aVATClose.TargetObjectType = GetType(SISBusiness.[Module].VATReport) + Me.aVATClose.ToolTip = Nothing + ' + 'aGenerateVATCompare + ' + Me.aGenerateVATCompare.Caption = "aGenerate VATCompare" + Me.aGenerateVATCompare.ConfirmationMessage = Nothing + Me.aGenerateVATCompare.Id = "aGenerateVATCompare" + Me.aGenerateVATCompare.TargetObjectType = GetType(SISBusiness.[Module].VATCompare) + Me.aGenerateVATCompare.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aGenerateVATCompare.ToolTip = Nothing + Me.aGenerateVATCompare.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aViewAttachments_VATCompareDetail + ' + Me.aViewAttachments_VATCompareDetail.Caption = "View attachments" + Me.aViewAttachments_VATCompareDetail.ConfirmationMessage = Nothing + Me.aViewAttachments_VATCompareDetail.Id = "aViewAttachments_VATCompareDetail" + Me.aViewAttachments_VATCompareDetail.ImageName = "printer_view" + Me.aViewAttachments_VATCompareDetail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewAttachments_VATCompareDetail.TargetObjectType = GetType(SISBusiness.[Module].VATCompareDetail) + Me.aViewAttachments_VATCompareDetail.TargetViewId = "" + Me.aViewAttachments_VATCompareDetail.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewAttachments_VATCompareDetail.ToolTip = Nothing + Me.aViewAttachments_VATCompareDetail.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aGenerateVATReport As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_VAT As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_VAT As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistry_VATNoPay As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATReportPrint As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_VATNoPay As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATClosePreviewPDF As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATCloseBack As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aVATClose As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateVATCompare As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_VATCompareDetail As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx new file mode 100644 index 0000000..e9633c2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.resx @@ -0,0 +1,156 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 134 + + + 17, 368 + + + 17, 329 + + + 17, 251 + + + 17, 290 + + + 17, 212 + + + 17, 173 + + + 17, 95 + + + 17, 56 + + + 152, 56 + + + 172, 368 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb new file mode 100644 index 0000000..61abb65 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb @@ -0,0 +1,1197 @@ +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 System.Linq +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl + +Public Class VATReportVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", False) + + If View.Id Like "VATReport_VATReportDetail_ListView" Or _ + View.Id = "VATReport_VATReportGroup_ListView" Or _ + View.Id = "VATReport_VATReportNoPayDetail_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + + If View.Id = "VATReport_DetailView" Then + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + + If _VATReport.Closed = True Then + Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", False) + Else + Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", True) + End If + + If _VATReport.UserCreated IsNot Nothing Then + If Not _VATReport.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", False) + End If + End If + End If + + If View.Id = "VATReport_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'" + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteriaMode = TargetObjectsCriteriaMode.TrueForAll + End If + + If View.Id = "VATReport_ListView_Closed" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", True) + End If + If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + + Frame.GetController(Of VATReportVC).aVATClosePreviewPDF.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "VATReport_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If _VATReport.UserCreated IsNot Nothing Then + If Not _VATReport.UserCreated.Equals(_User) Then + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of VATReportVC).aGenerateVATReport.Active.SetItemValue("", True) + End If + End If + End If + If View.Id = "VATReport_VATReportGroupCustomers2M_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aGenerateVATReport_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateVATReport.Execute + '-- Az FA kimutatst elkszti + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + + Dim _VATReportDetail As VATReportDetail + Dim _VATReportNoPayDetail As VATReportNoPayDetail + Dim _VATReportGroup As VATReportGroup + Dim _VATReport As VATReport = _uow.GetObjectByKey(Of VATReport)(TryCast(View.SelectedObjects(0), VATReport).Oid) + Dim _InvoiceVATRows As InvoiceVATRows + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _GLRows As GLRows + Dim i As Long = 0 + Dim _VRD As VATReportDetail + Dim _Array As New ArrayList + Dim _PCIDetail_Collection As XPCollection(Of PCIDetail) + Dim _PCIDetail As PCIDetail = Nothing + Dim _BallanceHUF As Double = 0 + Dim _GLAccounts As GLAccounts = Nothing + Dim _SQL As String = "" + + If _VATReport Is Nothing Then Exit Sub + + RaiseEvent InitWork(1, 1, 1) + + Dim _VatReportDetail_Collection As New XPCollection(Of VATReportDetail)(_uow, CriteriaOperator.Parse("VATReport=?", _VATReport)) + _uow.Delete(_VatReportDetail_Collection) + Dim _VatReportNoPayDetail_Collection As New XPCollection(Of VATReportNoPayDetail)(_uow, CriteriaOperator.Parse("VATReport=?", _VATReport)) + _uow.Delete(_VatReportNoPayDetail_Collection) + Dim _VatReportGroup_Collection As New XPCollection(Of VATReportGroup)(_uow, CriteriaOperator.Parse("VATReport=?", _VATReport)) + _uow.Delete(_VatReportGroup_Collection) + Dim _VATReportGroupCustomers2M_Collection As New XPCollection(Of VATReportGroupCustomers2M)(_uow, CriteriaOperator.Parse("VATReport=?", _VATReport)) + _uow.Delete(_VATReportGroupCustomers2M_Collection) + + + Select Case GLOBAL_SQLType + Case eSQLType.MySQL + _SQL = " UPDATE InvoiceVATRows t1 JOIN Invoiceheader t2 ON" + _SQL += " t1.InvoiceHeader = t2.Oid" + _SQL += " SET t1.DateVAT = t2.DateExecution" + _SQL += " WHERE t1.DateVAT IS NULL AND t2.GCRecord IS NULL" + Case eSQLType.MSSQL + _SQL = " UPDATE InvoiceVATRows SET DateVAT=t2.DateExecution" + _SQL += " from InvoiceVATRows t1 JOIN Invoiceheader t2 ON" + _SQL += " t1.InvoiceHeader = t2.Oid" + _SQL += " WHERE t1.DateVAT Is NULL And t2.GCRecord Is NULL" + Case eSQLType.PostgreSQL + _SQL = "UPDATE ""InvoiceVATRows"" set ""DateVAT""=t2.""DateExecution""" + _SQL += " from ""InvoiceVATRows"" t1 JOIN ""InvoiceHeader"" t2 ON" + _SQL += " t1.""InvoiceHeader""=t2.""Oid""" + _SQL += " WHERE t1.""DateVAT"" IS NULL AND t2.""GCRecord"" IS NULL" + End Select + + _uow.ExecuteNonQuery(_SQL) + _uow.CommitChanges() + + 'FA P.. szemllet ellenrzse ----------------------------------------- + Me.CheckVATAvowalType(_ocur, _VATReport.DateFrom, _VATReport.DateTo) + '----------------------------------------------------------------------- + + '-- Elszr a vevi szmlk InvoiceVATRows-bl + Dim _InvoiceVATRows_Collection As New XPCollection(Of InvoiceVATRows)(_uow, _ + CriteriaOperator.Parse("GetDate(DateVAT)>=? and GetDate(DateVAT)<=?" & _ + " and InvoiceHeader.CustomersFrom=? and InvoiceHeader.IsEditable=False" & _ + " and InvoiceHeader.IsProforma=False and InvoiceHeader.InvoiceType.InvoiceTypeBase In (0,1,2,3)", _ + _VATReport.DateFrom.Date, _VATReport.DateTo.Date, _VATReport.CustomersFrom)) + RaiseEvent InitWork(1, 1, _InvoiceVATRows_Collection.Count) + For Each _InvoiceVATRows In _InvoiceVATRows_Collection + RaiseEvent DoWork() + If _InvoiceVATRows.InvoiceHeader.VATAvowalType = 1 Then + _PCIDetail_Collection = New XPCollection(Of PCIDetail)(_uow, + CriteriaOperator.Parse("GetDate(DateExecution)<=? and " + + " PartnerType=? and " + + " ConnectInfo=? and " + + " Customers=? and " + + " CustomersFrom=?", _VATReport.DateTo.Date, ePartnerType.eReceivables, + _InvoiceVATRows.InvoiceHeader.ConnectInfo, _InvoiceVATRows.InvoiceHeader.Customers, + _InvoiceVATRows.InvoiceHeader.CustomersFrom)) + _BallanceHUF = 0 + For Each _PCIDetail In _PCIDetail_Collection + _BallanceHUF = _PCIDetail.PCIGroup.AmountHUF_Account + Exit For + Next + For Each _PCIDetail In _PCIDetail_Collection + If _PCIDetail.MainType = "02-Bank" Or _PCIDetail.MainType = "03-Cassa" Or _PCIDetail.MainType = "04-Compensation" Or _PCIDetail.MainType = "05-Ratediff" Then + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromInvoice + _VATReportDetail.VATReport = _VATReport + _VATReportDetail.AmountVATOut = Math.Round(_InvoiceVATRows.AmountVATHUF * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATOutBase = Math.Round(_InvoiceVATRows.AmountNettoHUF * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATIn = 0 + _VATReportDetail.AmountVATInBase = 0 + _VATReportDetail.VAT = _InvoiceVATRows.VAT + _VATReportDetail.DocumentNumber = _InvoiceVATRows.InvoiceHeader.DocumentNumber + _VATReportDetail.Customers = _InvoiceVATRows.InvoiceHeader.Customers + _VATReportDetail.DateExecution = _InvoiceVATRows.InvoiceHeader.DateExecution + _VATReportDetail.PartnerType = ePartnerType.eReceivables + _VATReportDetail.DateVAT = _PCIDetail.DateExecution + _VATReportDetail.PayMode = _InvoiceVATRows.InvoiceHeader.PaymentOption.PayMode + _VATReportDetail.Note = _InvoiceVATRows.InvoiceHeader.Description + End If + Next + + Else + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromInvoice + _VATReportDetail.VATReport = _VATReport + _VATReportDetail.AmountVATOut = _InvoiceVATRows.AmountVATHUF + _VATReportDetail.AmountVATOutBase = _InvoiceVATRows.AmountNettoHUF + _VATReportDetail.AmountVATIn = 0 + _VATReportDetail.AmountVATInBase = 0 + _VATReportDetail.VAT = _InvoiceVATRows.VAT + _VATReportDetail.DocumentNumber = _InvoiceVATRows.InvoiceHeader.DocumentNumber + _VATReportDetail.Customers = _InvoiceVATRows.InvoiceHeader.Customers + _VATReportDetail.DateExecution = _InvoiceVATRows.InvoiceHeader.DateExecution + _VATReportDetail.PartnerType = ePartnerType.eReceivables + _VATReportDetail.DateVAT = _InvoiceVATRows.InvoiceHeader.DateExecution + _VATReportDetail.PayMode = _InvoiceVATRows.InvoiceHeader.PaymentOption.PayMode + _VATReportDetail.Note = _InvoiceVATRows.InvoiceHeader.Description + End If + Next + 'RaiseEvent FinalWork + '-- Msodszor az iktatott szllti szmlk + Dim _RegistryRowsFinancial_Collection As New XPCollection(Of RegistryRowsFinancial)(_uow, _ + CriteriaOperator.Parse("DateVAT>=? and DateVAT<=?" & _ + " and RegistryHeader.CustomersFrom=? and RegistryHeader.IsEditable=False and RegistryHeader.IsStorno=False", _ + _VATReport.DateFrom, DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date), _VATReport.CustomersFrom)) + RaiseEvent InitWork(1, 1, _RegistryRowsFinancial_Collection.Count) + For Each _RegistryRowsFinancial In _RegistryRowsFinancial_Collection + RaiseEvent DoWork() + + If _RegistryRowsFinancial.RegistryHeader.F_VATAvowalType = eVATAvowalType.eFinancial Then + _PCIDetail_Collection = New XPCollection(Of PCIDetail)(_uow, + CriteriaOperator.Parse("GetDate(DateExecution)<=? and " + + " PartnerType=? and " + + " ConnectInfo=? and " + + " Customers=? and " + + " CustomersFrom=?", _VATReport.DateTo.Date, ePartnerType.ePayabels, + _RegistryRowsFinancial.RegistryHeader.F_ConnectInfo, _RegistryRowsFinancial.RegistryHeader.Customers, + _RegistryRowsFinancial.RegistryHeader.CustomersFrom)) + _BallanceHUF = 0 + For Each _PCIDetail In _PCIDetail_Collection + _BallanceHUF = _PCIDetail.PCIGroup.AmountHUF_Account + Exit For + Next + + For Each _PCIDetail In _PCIDetail_Collection + If _PCIDetail.MainType = "02-Bank" Or _PCIDetail.MainType = "03-Cassa" Or _PCIDetail.MainType = "04-Compensation" Or _PCIDetail.MainType = "05-Ratediff" Then + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromRegistry + _VATReportDetail.VATReport = _VATReport + _VATReportDetail.AmountVATOut = 0 + _VATReportDetail.AmountVATOutBase = 0 + + + _VATReportDetail.AmountVATIn = Math.Round(_RegistryRowsFinancial.BruttoAmount / (100 + _RegistryRowsFinancial.VAT.KeyValuePercent) * _RegistryRowsFinancial.VAT.KeyValuePercent, 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATInBase = _RegistryRowsFinancial.BruttoAmount - _VATReportDetail.AmountVATIn + _VATReportDetail.AmountVATIn = Math.Round(_VATReportDetail.AmountVATIn * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATInBase = Math.Round(_VATReportDetail.AmountVATInBase * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + + + _VATReportDetail.VAT = _RegistryRowsFinancial.VAT + _VATReportDetail.DocumentNumber = _RegistryRowsFinancial.RegistryHeader.DocumentNumber + _VATReportDetail.Customers = _RegistryRowsFinancial.RegistryHeader.Customers + _VATReportDetail.DateExecution = _RegistryRowsFinancial.RegistryHeader.F_DateExecution + _VATReportDetail.PartnerType = ePartnerType.ePayabels + _VATReportDetail.DateVAT = _PCIDetail.DateExecution + _VATReportDetail.PayMode = _RegistryRowsFinancial.RegistryHeader.F_PayMode + _VATReportDetail.RegistryHeader = _RegistryRowsFinancial.RegistryHeader + _VATReportDetail.Note = _RegistryRowsFinancial.RegistryHeader.ShortName + End If + Next + + Else + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromRegistry + _VATReportDetail.VATReport = _VATReport + + _VATReportDetail.AmountVATIn = Math.Round(_RegistryRowsFinancial.BruttoAmount / (100 + _RegistryRowsFinancial.VAT.KeyValuePercent) * _RegistryRowsFinancial.VAT.KeyValuePercent, 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATInBase = _RegistryRowsFinancial.BruttoAmount - _VATReportDetail.AmountVATIn + + If _RegistryRowsFinancial.VAT IsNot Nothing Then + If _RegistryRowsFinancial.VAT.InversState = True Then + _VATReportDetail.AmountVATOut = Math.Round((_RegistryRowsFinancial.BruttoAmount * _RegistryRowsFinancial.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATOutBase = _RegistryRowsFinancial.BruttoAmount + + _VATReportDetail.AmountVATIn = Math.Round((_RegistryRowsFinancial.BruttoAmount * _RegistryRowsFinancial.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATInBase = _RegistryRowsFinancial.BruttoAmount + + Else + _VATReportDetail.AmountVATOut = 0 + _VATReportDetail.AmountVATOutBase = 0 + End If + Else + _VATReportDetail.AmountVATOut = 0 + _VATReportDetail.AmountVATOutBase = 0 + End If + + _VATReportDetail.VAT = _RegistryRowsFinancial.VAT + _VATReportDetail.DocumentNumber = _RegistryRowsFinancial.RegistryHeader.DocumentNumber + _VATReportDetail.Customers = _RegistryRowsFinancial.RegistryHeader.Customers + _VATReportDetail.DateExecution = _RegistryRowsFinancial.RegistryHeader.F_DateExecution + _VATReportDetail.PartnerType = ePartnerType.ePayabels + _VATReportDetail.DateVAT = _RegistryRowsFinancial.DateVAT + _VATReportDetail.PayMode = _RegistryRowsFinancial.RegistryHeader.F_PayMode + _VATReportDetail.RegistryHeader = _RegistryRowsFinancial.RegistryHeader + _VATReportDetail.Note = _RegistryRowsFinancial.RegistryHeader.ShortName + End If + Next + + 'RaiseEvent FinalWork + + '-- Harmadszor a kzvetlen vevi szmlk ! + Dim _GLRows_Collection_0 As New XPCollection(Of GLRows)(_uow, _ + CriteriaOperator.Parse(" GLHeader.IsEditable=False and GLHeader.CustomersFrom=? and " & _ + " GLRowsTypeVAT=1 and GLHeader.GLDocumentType=1 and " & _ + " (isnull(GLHeader.ImportedInvoice)=True and PartnerType=0) and " & _ + " DateVAT>=? and DateVAT<=?", _ + _VATReport.CustomersFrom, _VATReport.DateFrom, DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date))) + RaiseEvent InitWork(1, 1, _GLRows_Collection_0.Count) + For Each _GLRows In _GLRows_Collection_0 + RaiseEvent DoWork() + + + + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromAccountDirect + _VATReportDetail.VATReport = _VATReport + + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0) + Else + _VATReportDetail.AmountVATOutBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATOutBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = TryCast(_GLRows.GLHeader, GLAccounts).PaymentOption.PayMode + _VATReportDetail.Note = _GLRows.NoteRows + _VATReportDetail.PartnerType = ePartnerType.eReceivables + _VATReportDetail.VAT = _GLRows.VAT + + Next + 'RaiseEvent FinalWork + + '-- Negyedszer a kzvetlen szllti szmlk iktats nlkl ! + Dim _GLRows_Collection_1 As New XPCollection(Of GLRows)(_uow, _ + CriteriaOperator.Parse(" GLHeader.IsEditable=False and GLHeader.CustomersFrom=? and " & _ + " GLRowsTypeVAT=1 and GLHeader.GLDocumentType=1 and " & _ + " (isnull(GLHeader.ImportedRegistryHeader)=True and PartnerType=1 and GLHeader.IsRegistryGLAccounts=False) and " & _ + " DateVAT>=? and DateVAT<=?", _ + _VATReport.CustomersFrom, _VATReport.DateFrom, DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date))) + RaiseEvent InitWork(1, 1, _GLRows_Collection_1.Count) + For Each _GLRows In _GLRows_Collection_1 + RaiseEvent DoWork() + + _GLAccounts = TryCast(_GLRows.GLHeader, GLAccounts) + + If _GLAccounts.VATAvowalType = eVATAvowalType.eFinancial Then + _PCIDetail_Collection = New XPCollection(Of PCIDetail)(_uow, + CriteriaOperator.Parse("GetDate(DateExecution)<=? and " + + " PartnerType=? and " + + " ConnectInfo=? and " + + " Customers=? and " + + " CustomersFrom=?", _VATReport.DateTo.Date, ePartnerType.ePayabels, + _GLAccounts.ConnectInfo, _GLAccounts.Customers, + _GLAccounts.CustomersFrom)) + _BallanceHUF = 0 + For Each _PCIDetail In _PCIDetail_Collection + _BallanceHUF = _PCIDetail.PCIGroup.AmountHUF_Account + Exit For + Next + For Each _PCIDetail In _PCIDetail_Collection + If _PCIDetail.MainType = "02-Bank" Or _PCIDetail.MainType = "03-Cassa" Or _PCIDetail.MainType = "04-Compensation" Or _PCIDetail.MainType = "05-Ratediff" Then + + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromAccountDirect + _VATReportDetail.VATReport = _VATReport + + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _VATReportDetail.AmountVATInBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATInBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = TryCast(_GLRows.GLHeader, GLAccounts).PaymentOption.PayMode + _VATReportDetail.Note = _GLRows.NoteRows + _VATReportDetail.PartnerType = _GLRows.PartnerType + _VATReportDetail.VAT = _GLRows.VAT + If _GLRows.VAT.InversState = True Then + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + End If + + '--------------------------- + _VATReportDetail.AmountVATOut = Math.Round(_VATReportDetail.AmountVATOut * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATOutBase = Math.Round(_VATReportDetail.AmountVATOutBase * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATIn = Math.Round(_VATReportDetail.AmountVATIn * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + _VATReportDetail.AmountVATInBase = Math.Round(_VATReportDetail.AmountVATInBase * (Math.Abs(_PCIDetail.BallanceHUF) / Math.Abs(_BallanceHUF)), 0, MidpointRounding.AwayFromZero) + '-------------------------- + End If + Next + Else + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromAccountDirect + _VATReportDetail.VATReport = _VATReport + + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _VATReportDetail.AmountVATInBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATInBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = TryCast(_GLRows.GLHeader, GLAccounts).PaymentOption.PayMode + _VATReportDetail.Note = _GLRows.NoteRows + _VATReportDetail.PartnerType = _GLRows.PartnerType + _VATReportDetail.VAT = _GLRows.VAT + If _GLRows.VAT.InversState = True Then + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + End If + End If + Next + 'RaiseEvent FinalWork + + '-- tdszr a kzvetlen szllti szmlk iktatssal ! + Dim _GLRows_Collection_2 As New XPCollection(Of GLRows)(_uow, _ + CriteriaOperator.Parse(" GLHeader.IsEditable=False and GLHeader.CustomersFrom=? and " & _ + " GLRowsTypeVAT=1 and GLHeader.GLDocumentType=1 and " & _ + " (isnull(GLHeader.ImportedRegistryHeader)=False and PartnerType=1 and GLHeader.IsRegistryGLAccounts=True) and " & _ + " DateVAT>=? and DateVAT<=?", _ + _VATReport.CustomersFrom, _VATReport.DateFrom, DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date))) + RaiseEvent InitWork(1, 1, _GLRows_Collection_2.Count) + For Each _GLRows In _GLRows_Collection_2 + RaiseEvent DoWork() + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromAccount + _VATReportDetail.VATReport = _VATReport + + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _VATReportDetail.AmountVATInBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATInBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = TryCast(_GLRows.GLHeader, GLAccounts).PaymentOption.PayMode + _VATReportDetail.Note = _GLRows.NoteRows + _VATReportDetail.PartnerType = _GLRows.PartnerType + _VATReportDetail.VAT = _GLRows.VAT + If _GLRows.VAT.InversState = True Then + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + End If + Next + 'RaiseEvent FinalWork + + '-- Hatodszor a norml Fs pnztri ttelek ! + Dim _GLRowsCassa_Collection As New XPCollection(Of GLRows)(_uow, _ + CriteriaOperator.Parse("GLHeader.IsEditable=False and GLHeader.CustomersFrom=? and " & _ + " GLRowsTypeVAT=1 and GLHeader.GLDocumentType=3 and " & _ + " DateVAT>=? and DateVAT<=? and isnull(VAT)=False", _ + _VATReport.CustomersFrom, _VATReport.DateFrom, DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date))) + RaiseEvent InitWork(1, 1, _GLRowsCassa_Collection.Count) + For Each _GLRows In _GLRowsCassa_Collection + RaiseEvent DoWork() + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromCassa + _VATReportDetail.VATReport = _VATReport + + If _GLRows.OutAmountHUF > 0 Then + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _VATReportDetail.AmountVATInBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATInBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber & ", " & _GLRows.ConnectInfo + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = ePayMode.InCash + If String.IsNullOrEmpty(_GLRows.NoteRows) = False Then + _VATReportDetail.Note = _GLRows.NoteRows + Else + _VATReportDetail.Note = _GLRows.GLHeader.NoteHeader + End If + _VATReportDetail.PartnerType = ePartnerType.ePayabels + _VATReportDetail.VAT = _GLRows.VAT + If _GLRows.VAT.InversState = True Then + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + If _GLRows.VAT.InversKeyValue <> 0 Then _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.InversKeyValue), 0, MidpointRounding.AwayFromZero) + End If + Else + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + + If _GLRows.VAT.KeyValue <> 0 Then + _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / (_GLRows.VAT.KeyValue), 0) + Else + _VATReportDetail.AmountVATOutBase = 0 + Dim _GLRows_Netto_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLRowsGUID=? and GLRowsTypeVAT=0", _GLRows.GLRowsGUID)) + Dim _GLRows_Netto As GLRows + For Each _GLRows_Netto In _GLRows_Netto_Collection + _VATReportDetail.AmountVATOutBase += _GLRows_Netto.AmountHUF + Next + End If + + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber & ", " & _GLRows.ConnectInfo + _VATReportDetail.Customers = _GLRows.Customer + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.DateVAT + _VATReportDetail.PayMode = ePayMode.InCash + If String.IsNullOrEmpty(_GLRows.NoteRows) = False Then + _VATReportDetail.Note = _GLRows.NoteRows + Else + _VATReportDetail.Note = _GLRows.GLHeader.NoteHeader + End If + _VATReportDetail.PartnerType = ePartnerType.eReceivables + _VATReportDetail.VAT = _GLRows.VAT + End If + + Next + 'RaiseEvent FinalWork + '------------------------------------------------------------------------- + 'hetedszer a vegyes F-s ttelek + Dim _Need As Boolean = False + Dim _GLRowsMixed_Collection As New XPCollection(Of GLRows)(_uow, _ + CriteriaOperator.Parse("GLHeader.IsEditable=False and GLHeader.CustomersFrom=? and " & _ + " GLHeader.GLDocumentType=0 and " & _ + " GetDate(GLHeader.DateExecution)>=? and GetDate(GLHeader.DateExecution)<=? and isnull(VAT)=False", _ + _VATReport.CustomersFrom, _VATReport.DateFrom.Date, _VATReport.DateTo.Date)) + RaiseEvent InitWork(1, 1, _GLRowsMixed_Collection.Count) + For Each _GLRows In _GLRowsMixed_Collection + RaiseEvent DoWork() + _Need = False + If _GLRows.DebitChartOfAccounts.AccountNumber = _GLRows.VAT.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn).AccountNumber Then + _Need = True + End If + If _GLRows.CreditChartOfAccounts.AccountNumber = _GLRows.VAT.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut).AccountNumber Then + _Need = True + End If + + If _Need Then + _VATReportDetail = New VATReportDetail(_uow) + _VATReportDetail.VATReportDetailRowType = eVATReportDetailRowType.efromMixed + _VATReportDetail.VATReport = _VATReport + If _GLRows.DebitChartOfAccounts.AccountNumber = _GLRows.VAT.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eIn).AccountNumber Then + 'Szllti levonhat fa + _VATReportDetail.AmountVATIn = _GLRows.AmountHUF + _VATReportDetail.AmountVATInBase = Math.Round(_GLRows.AmountHUF / _GLRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + End If + If _GLRows.CreditChartOfAccounts.AccountNumber = _GLRows.VAT.GetChartOfAccounts(_GLRows.GLHeader.DateExecution.Year, eVATMode.eOut).AccountNumber Then + 'Vevi fizetend fa + _VATReportDetail.AmountVATOut = _GLRows.AmountHUF + _VATReportDetail.AmountVATOutBase = Math.Round(_GLRows.AmountHUF / _GLRows.VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + End If + _VATReportDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber & ", " & _GLRows.ConnectInfo + _VATReportDetail.DateExecution = _GLRows.GLHeader.DateExecution + _VATReportDetail.DateVAT = _GLRows.GLHeader.DateExecution + _VATReportDetail.PayMode = ePayMode.NotSet + If String.IsNullOrEmpty(_GLRows.NoteRows) = False Then + _VATReportDetail.Note = _GLRows.NoteRows + Else + _VATReportDetail.Note = _GLRows.GLHeader.NoteHeader + End If + _VATReportDetail.PartnerType = ePartnerType.eNotSet + _VATReportDetail.VAT = _GLRows.VAT + End If + Next + _uow.CommitChanges() + + 'RaiseEvent FinalWork + _VATReport.TotalAmountIn = 0 + _VATReport.TotalAmountOut = 0 + i = 0 + Dim query = From _VATD In _VATReport.VATReportDetail + Where _VATD.VATReport Is _VATReport + Group _VATD By _VATD.VAT, _ + _VATD.PartnerType Into g = Group _ + Select New With {Key .VAT = VAT, _ + Key .PartnerType = PartnerType, _ + Key .AmountVATIn = g.Sum(Function(inv) inv.AmountVATIn), _ + Key .AmountVATInBase = g.Sum(Function(inv) inv.AmountVATInBase), _ + Key .AmountVATOut = g.Sum(Function(inv) inv.AmountVATOut), _ + Key .AmountVATOutBase = g.Sum(Function(inv) inv.AmountVATOutBase)} + + For Each item In query + _VATReportGroup = New VATReportGroup(_uow) + _VATReportGroup.VATReport = _VATReport + _VATReportGroup.VAT = item.VAT + _VATReportGroup.PartnerType = item.PartnerType + _VATReportGroup.AmountVATIn = item.AmountVATIn + _VATReportGroup.AmountVATInBase = item.AmountVATInBase + _VATReportGroup.AmountVATOut = item.AmountVATOut + _VATReportGroup.AmountVATOutBase = item.AmountVATOutBase + _VATReportGroup.Save() + _VATReport.TotalAmountOut += item.AmountVATOut + _VATReport.TotalAmountIn += item.AmountVATIn + Next + _uow.CommitChanges() + + '----------- Most a nem fizetett szmlk listja (csak szllti !!!) + Dim PCI As New XPQuery(Of PCIDetail)(_uow) + Dim query3 = From _PCI In PCI + Where (_PCI.DateExecution <= DateAdd(DateInterval.Minute, 1439, _VATReport.DateTo.Date) And + _PCI.Customers IsNot Nothing And + _PCI.ConnectInfo IsNot Nothing And + _PCI.PartnerType = ePartnerType.ePayabels And + _PCI.MainType = "01-Account") Or + (_PCI.DateExecution < _VATReport.DateVAT And + _PCI.Customers IsNot Nothing And + _PCI.ConnectInfo IsNot Nothing And + _PCI.PartnerType = ePartnerType.ePayabels And + _PCI.MainType <> "01-Account") + Group _PCI By _PCI.CustomersFrom, _ + _PCI.Customers, _ + _PCI.PartnerType, _ + _PCI.CurrencyName, _ + _PCI.ConnectInfo Into g = Group + Order By PartnerType, CurrencyName, CustomersFrom, Customers, ConnectInfo + Select New With {Key .CustomersFrom = CustomersFrom, _ + Key .Customers = Customers, _ + Key .PartnerType = PartnerType, _ + Key .ConnectInfo = ConnectInfo, _ + Key .CurrencyName = CurrencyName, _ + Key .BallanceHUF = g.Sum(Function(inv) inv.BallanceHUF), _ + Key .BallanceDEV = g.Sum(Function(inv) inv.BallanceDEV)} + + + RaiseEvent InitWork(1, 1, query3.Count) + _VatReportDetail_Collection = New XPCollection(Of VATReportDetail)(_uow, CriteriaOperator.Parse("VATReport=? and PartnerType=1", _VATReport)) + _VatReportDetail_Collection.Sorting.Add(New SortProperty("Customers.FullName", DB.SortingDirection.Ascending)) + _VatReportDetail_Collection.Sorting.Add(New SortProperty("DocumentNumber", DB.SortingDirection.Ascending)) + + For Each _VATReportDetail In _VatReportDetail_Collection + _Array.Add(_VATReportDetail) + Next + For Each item In query3 + RaiseEvent DoWork() + + For Each _VATReportDetail In _Array + If item.Customers IsNot Nothing AndAlso _VATReportDetail.Customers IsNot Nothing Then + If item.Customers.FullName = _VATReportDetail.Customers.FullName And _ + item.ConnectInfo = _VATReportDetail.DocumentNumber Then + If item.BallanceHUF <> 0 Then + _VRD = _uow.GetObjectByKey(Of VATReportDetail)(_VATReportDetail.Oid) + _VRD.AmountVATInNoPay = 0 + _VRD.AmountVATInBaseNoPay = 0 + + _VATReportNoPayDetail = New VATReportNoPayDetail(_uow) + _VATReportNoPayDetail.VATReport = _VATReport + _VATReportNoPayDetail.VAT = _VRD.VAT + _VATReportNoPayDetail.AmountVATIn = _VRD.AmountVATIn + _VATReportNoPayDetail.AmountVATInBase = _VRD.AmountVATInBase + _VATReportNoPayDetail.Customers = _VRD.Customers + _VATReportNoPayDetail.DateExecution = _VRD.DateExecution + _VATReportNoPayDetail.DateVAT = _VRD.DateVAT + _VATReportNoPayDetail.DocumentNumber = _VRD.DocumentNumber + _VATReportNoPayDetail.Note = _VRD.Note + _VATReportNoPayDetail.PartnerType = ePartnerType.ePayabels + _VATReportNoPayDetail.PayMode = _VRD.PayMode + _VATReportNoPayDetail.RegistryHeader = _VRD.RegistryHeader + + Else + _VRD = _uow.GetObjectByKey(Of VATReportDetail)(_VATReportDetail.Oid) + _VRD.AmountVATInNoPay = _VATReportDetail.AmountVATIn + _VRD.AmountVATInBaseNoPay = _VATReportDetail.AmountVATInBase + + End If + End If + End If + Next + Next + _uow.CommitChanges() + 'RaiseEvent FinalWork + + + '// FAD-os vevi szlk + Select Case GLOBAL_SQLType + Case eSQLType.MySQL, eSQLType.MSSQL + _uow.ExecuteNonQuery(String.Format("delete from VATReport07 where VATReport='{0}'", _VATReport.Oid)) + _uow.ExecuteNonQuery(String.Format("delete from VATReport08 where VATReport='{0}'", _VATReport.Oid)) + _uow.CommitChanges() + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery(String.Format("delete from ""VATReport07"" where ""VATReport""='{0}'", _VATReport.Oid)) + _uow.ExecuteNonQuery(String.Format("delete from ""VATReport08"" where ""VATReport""='{0}'", _VATReport.Oid)) + _uow.CommitChanges() + + End Select + + '//07 ! ----------------------------------------------------------------------------------------------------------------------------------- + + '// Nett slyok sszeszmllsa a FAD alapjn ! + Dim _InvoiceRows_07_Collection As New XPCollection(Of InvoiceRows)(_uow, _ + CriteriaOperator.Parse("VAT.InversState=True and GetDate(InvoiceHeader.DateExecution)>=? and " + _ + "GetDate(InvoiceHeader.DateExecution)<=? and InvoiceHeader.IsEditable=False and " + _ + "InvoiceHeader.DocumentNumber !='' and InvoiceHeader.CustomersFrom.Oid=? and " + _ + "IsNull(OrderInRows)=False", _VATReport.DateFrom.Date, _VATReport.DateTo.Date, _ + _VATReport.CustomersFrom.Oid)) + Dim _InvoiceRows_07 As InvoiceRows + Dim _Weight_NAV As Double = 0 + For Each _InvoiceRows_07 In _InvoiceRows_07_Collection + _Weight_NAV = 0 + If _InvoiceRows_07.OrderInRows IsNot Nothing Then + Dim _StorageOutRowsInRows_07_Collection As New XPCollection(Of StorageOutRowsInRows) _ + (_uow, CriteriaOperator.Parse("StorageOutRows.OrderInRows=?", _InvoiceRows_07.OrderInRows)) + Dim _StorageOutRowsInRows_07 As StorageOutRowsInRows + + For Each _StorageOutRowsInRows_07 In _StorageOutRowsInRows_07_Collection + If _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows IsNot Nothing Then + Select Case _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Units.ShortName + Case "to" + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Weight = _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.QTT * 1000 + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Save() + Case "kg" + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Weight = _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.QTT + _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Save() + End Select + _Weight_NAV += (_StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Weight / _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.QTT) * _StorageOutRowsInRows_07.QTT + Else + If _StorageOutRowsInRows_07.StorageInRows.Weight > 0 Then + _Weight_NAV += (_StorageOutRowsInRows_07.StorageInRows.Weight / _StorageOutRowsInRows_07.StorageInRows.QTT) * _StorageOutRowsInRows_07.QTT + End If + End If + Next + _InvoiceRows_07.Weight_NAV = _Weight_NAV + End If + Next + _uow.CommitChanges() + + + Dim _VATReport07 As VATReport07 + Dim _InvoiceRows As New XPQuery(Of InvoiceRows)(_uow) + Dim query4 = From _IRW In _InvoiceRows + Where _IRW.OrderInRows IsNot Nothing And + _IRW.OrderInRows.Products.CustomsTariff IsNot Nothing And + String.IsNullOrEmpty(_IRW.OrderInRows.Products.CustomsTariff.NAVCode) = False And + _IRW.InvoiceHeader.DateExecution.Date >= _VATReport.DateFrom.Date And + _IRW.InvoiceHeader.DateExecution.Date <= _VATReport.DateTo.Date And + _IRW.InvoiceHeader.CustomersFrom.Oid = _VATReport.CustomersFrom.Oid And + _IRW.VAT.InversState = True And + _IRW.InvoiceHeader.IsEditable = False And + String.IsNullOrEmpty(_IRW.InvoiceHeader.DocumentNumber) = False And + _IRW.InvoiceHeader.InvoiceType.InvoiceTypeBase = eInvoiceTypeBase.eNormalInvoice + Group _IRW By _IRW.InvoiceHeader.Customers, _IRW.OrderInRows.Products.CustomsTariff, + _IRW.InvoiceHeader.DateExecution.Year, + _IRW.InvoiceHeader.DateExecution.Month, + _IRW.InvoiceHeader.DateExecution.Day Into g = Group + Select New With {Key .Customers = Customers, + Key .CustomTariff = CustomsTariff, + Key .DateExecutionYear = [Year], + Key .DateExecutionMonth = [Month], + Key .DateExecutionDay = [Day], + Key .Weight = g.Sum(Function(inv) inv.Weight_NAV), + Key .Amount = g.Sum(Function(inv) inv.SumPriceHUF)} + + RaiseEvent InitWork(1, 1, query4.Count) + For Each _item In query4 + RaiseEvent DoWork() + _VATReport07 = New VATReport07(_uow) + _VATReport07.VATReport = _VATReport + _VATReport07.DateExecution = New Date(_item.DateExecutionYear, _item.DateExecutionMonth, _item.DateExecutionDay) + _VATReport07.Customers = _item.Customers + _VATReport07.CustomsTariffs = _item.CustomTariff + _VATReport07.Weight = _item.Weight + _VATReport07.AmountVATOutBase = _item.Amount + Next + _uow.CommitChanges() + 'RaiseEvent FinalWork + + + + '//08-as nyomtatvny a leigazolsokbl ! + + '//RegistryRowsFinancial-bl az FA !!! + Dim _DeliveryNoteInRRFC_Collection_VAT As New XPCollection(Of DeliveryNoteInRRFC) _ + (_uow, CriteriaOperator.Parse("GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateVAT)>=? and " + _ + "GetDate(RegistryRowsFinancialControlling.RegistryHeader.F_DateVAT)<=?", _ + _VATReport.DateFrom.Date, _VATReport.DateTo.Date)) + Dim _DeliveryNoteInRRFC_VAT As DeliveryNoteInRRFC + + For Each _DeliveryNoteInRRFC_VAT In _DeliveryNoteInRRFC_Collection_VAT + If _DeliveryNoteInRRFC_VAT.RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial.Count = 1 Then + _DeliveryNoteInRRFC_VAT.DeliveryNoteInRows.VAT = _DeliveryNoteInRRFC_VAT.RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial(0).VAT + End If + Next + _uow.CommitChanges() + + + Dim _VATReport08 As VATReport08 + Dim _DeliveryNoteInRRFC As New XPQuery(Of DeliveryNoteInRRFC)(_uow) + Dim query5 = From _DNIRRFC In _DeliveryNoteInRRFC + Where _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader IsNot Nothing And + _DNIRRFC.DeliveryNoteInRows.Products.CustomsTariff IsNot Nothing And + String.IsNullOrEmpty(_DNIRRFC.DeliveryNoteInRows.Products.CustomsTariff.NAVCode) = False And + _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateVAT.Date >= _VATReport.DateFrom.Date And + _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateVAT.Date <= _VATReport.DateTo.Date And + _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom.Oid = _VATReport.CustomersFrom.Oid And + _DNIRRFC.DeliveryNoteInRows.VAT.InversState = True And + _DNIRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.IsEditable = False And + String.IsNullOrEmpty(_DNIRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DocumentNumber) = False + Group _DNIRRFC By _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader.Customers, _DNIRRFC.DeliveryNoteInRows.Products.CustomsTariff, + _DNIRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateVAT.Date Into g = Group + Select New With {Key .Customers = Customers, + Key .CustomTariff = CustomsTariff, + Key .DateExecution = [Date], + Key .Weight = g.Sum(Function(inv) inv.DeliveryNoteInRows.Weight), + Key .Amount = g.Sum(Function(inv) inv.RegistryRowsFinancialControlling.Amount)} + + RaiseEvent InitWork(1, 1, query5.Count) + For Each _item In query5 + RaiseEvent DoWork() + _VATReport08 = New VATReport08(_uow) + _VATReport08.VATReport = _VATReport + _VATReport08.DateExecution = _item.DateExecution + _VATReport08.Customers = _item.Customers + _VATReport08.CustomsTariffs = _item.CustomTariff + _VATReport08.Weight = _item.Weight + _VATReport08.AmountVATInBase = Math.Round(_item.Amount, 0, MidpointRounding.AwayFromZero) + Next + _uow.CommitChanges() + 'RaiseEvent FinalWork + + + '// Most a 2M forgalmuak !!! + + '// Elszr azok, akiknek a szmljn lv FA >= 2.000.000, de 2015 janur 1. utn 1.000.000 + Dim _CheckSumValue As Long + If _VATReport.DateFrom.Date.Year > 2014 Then + _CheckSumValue = 1000000 + Else + _CheckSumValue = 2000000 + End If + Dim _VATReportGroupCustomers2M As VATReportGroupCustomers2M + Dim _VATReportDetail_XPQ As New XPQuery(Of VATReportDetail)(_uow) + Dim query7 = From _VRDA In _VATReportDetail_XPQ + Where _VRDA.VATReport.Oid = _VATReport.Oid And + _VRDA.VAT.InversState = False + Group _VRDA By _VRDA.PartnerType, _VRDA.Customers, _VRDA.DocumentNumber, _VRDA.DateVAT.Date Into g = Group + Select New With {Key .PartnerType = PartnerType, + Key .Customers = Customers, + Key .DocumentNumber = DocumentNumber, + Key .DateVAT = [Date], + Key .AmountVATIn = g.Sum(Function(inv) inv.AmountVATIn), + Key .AmountVATInBase = g.Sum(Function(inv) inv.AmountVATInBase), + Key .AmountVATOut = g.Sum(Function(inv) inv.AmountVATOut), + Key .AmountVATOutBase = g.Sum(Function(inv) inv.AmountVATOutBase)} + + For Each _item In query7 + If _item.AmountVATIn >= _CheckSumValue Then + _VATReportGroupCustomers2M = New VATReportGroupCustomers2M(_uow) + _VATReportGroupCustomers2M.VATReport = _VATReport + _VATReportGroupCustomers2M.VAT2MType = eVAT2MType.eDetail + _VATReportGroupCustomers2M.Customers = _item.Customers + _VATReportGroupCustomers2M.AmountVATIn = _item.AmountVATIn + _VATReportGroupCustomers2M.AmountVATInBase = _item.AmountVATInBase + _VATReportGroupCustomers2M.DocumentNumber = _item.DocumentNumber + _VATReportGroupCustomers2M.PartnerType = _item.PartnerType + _VATReportGroupCustomers2M.DateExecution = _item.DateVAT + End If + If _item.AmountVATOut >= _CheckSumValue Then + _VATReportGroupCustomers2M = New VATReportGroupCustomers2M(_uow) + _VATReportGroupCustomers2M.VATReport = _VATReport + _VATReportGroupCustomers2M.VAT2MType = eVAT2MType.eDetail + _VATReportGroupCustomers2M.Customers = _item.Customers + _VATReportGroupCustomers2M.AmountVATOut = _item.AmountVATOut + _VATReportGroupCustomers2M.AmountVATOutBase = _item.AmountVATOutBase + _VATReportGroupCustomers2M.DocumentNumber = _item.DocumentNumber + _VATReportGroupCustomers2M.PartnerType = _item.PartnerType + _VATReportGroupCustomers2M.DateExecution = _item.DateVAT + End If + Next + _uow.CommitChanges() + + Dim _AmountVATIn_Detail As Double = 0 + Dim _AmountVATOut_Detail As Double = 0 + Dim _AmountVATInBase_Detail As Double = 0 + Dim _AmountVATOutBase_Detail As Double = 0 + Dim query8 = From _VRDAX In _VATReportDetail_XPQ + Where _VRDAX.VATReport.Oid = _VATReport.Oid And + _VRDAX.VAT.InversState = False + Group _VRDAX By _VRDAX.PartnerType, _VRDAX.Customers Into g = Group + Select New With {Key .PartnerType = PartnerType, + Key .Customers = Customers, + Key .AmountVATIn = g.Sum(Function(inv) inv.AmountVATIn), + Key .AmountVATInBase = g.Sum(Function(inv) inv.AmountVATInBase), + Key .AmountVATOut = g.Sum(Function(inv) inv.AmountVATOut), + Key .AmountVATOutBase = g.Sum(Function(inv) inv.AmountVATOutBase)} + For Each _item In query8 + + If _item.AmountVATIn >= _CheckSumValue Or _item.AmountVATOut >= _CheckSumValue Then + Dim _X As New XPCollection(Of VATReportGroupCustomers2M) _ + (_uow, CriteriaOperator.Parse("VATReport.Oid=? and VAT2MType=0 and Customers.Oid=? and PartnerType=?", _ + _VATReport.Oid, _item.Customers.Oid, _item.PartnerType)) + _AmountVATIn_Detail = 0 + _AmountVATOut_Detail = 0 + _AmountVATInBase_Detail = 0 + _AmountVATOutBase_Detail = 0 + For Each _Z In _X + _AmountVATIn_Detail += _Z.AmountVATIn + _AmountVATOut_Detail += _Z.AmountVATOut + _AmountVATInBase_Detail += _Z.AmountVATIn + _AmountVATOutBase_Detail += _Z.AmountVATOut + Next + + If _item.AmountVATIn - _AmountVATIn_Detail > 0 Then + _VATReportGroupCustomers2M = New VATReportGroupCustomers2M(_uow) + _VATReportGroupCustomers2M.AmountVATIn = _item.AmountVATIn - _AmountVATIn_Detail + _VATReportGroupCustomers2M.AmountVATInBase = _item.AmountVATInBase - _AmountVATInBase_Detail + _VATReportGroupCustomers2M.VATReport = _VATReport + _VATReportGroupCustomers2M.Customers = _item.Customers + _VATReportGroupCustomers2M.PartnerType = _item.PartnerType + _VATReportGroupCustomers2M.VAT2MType = eVAT2MType.eCummulative + End If + If _item.AmountVATOut - _AmountVATOut_Detail > 0 Then + _VATReportGroupCustomers2M = New VATReportGroupCustomers2M(_uow) + _VATReportGroupCustomers2M.AmountVATOut = _item.AmountVATOut - _AmountVATOut_Detail + _VATReportGroupCustomers2M.AmountVATOutBase = _item.AmountVATOutBase - _AmountVATOutBase_Detail + _VATReportGroupCustomers2M.VATReport = _VATReport + _VATReportGroupCustomers2M.Customers = _item.Customers + _VATReportGroupCustomers2M.PartnerType = _item.PartnerType + _VATReportGroupCustomers2M.VAT2MType = eVAT2MType.eCummulative + End If + + End If + Next + _uow.CommitChanges() + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub GenerateVATAvowalInfo(_uow As UnitOfWork, _VATReport As VATReport) + Dim _PCIDetail_XPQuery As New XPQuery(Of PCIDetail)(_uow) + + + 'Dim query = From _StorageOutRowsInRows In _StorageOutRowsInRows_XPQuery + ' Where _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + ' _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsEditable = False And + ' String.IsNullOrEmpty(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.DocumentNumber) = False And + ' _StorageOutRowsInRows.StorageOutRows.StorageOutHeader IsNot Nothing + ' Group _StorageOutRowsInRows By _StorageOutRowsInRows.StorageInRows.Oid Into g = Group + ' Select New With {.StorageInRows = Oid, + ' .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + End Sub + Private Sub aViewAttachments_VAT_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_VAT.Execute + Dim _VATReportDetail As VATReportDetail = TryCast(View.SelectedObjects(0), VATReportDetail) + Dim _CustomersFrom As CustomersFrom = _VATReportDetail.VATReport.CustomersFrom + Dim _Customers As Customers = _VATReportDetail.Customers + Dim _DocumentNumber As String = _VATReportDetail.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + Private Sub aViewRegistry_VATNoPay_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_VATNoPay.Execute + Dim _VATReportNoPayDetail As VATReportNoPayDetail = TryCast(View.SelectedObjects(0), VATReportNoPayDetail) + Dim _CustomersFrom As CustomersFrom = _VATReportNoPayDetail.VATReport.CustomersFrom + Dim _Customers As Customers = _VATReportNoPayDetail.Customers + Dim _DocumentNumber As String = _VATReportNoPayDetail.DocumentNumber + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aViewRegistry_VAT_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_VAT.Execute + Dim _VATReportDetail As VATReportDetail = TryCast(View.SelectedObjects(0), VATReportDetail) + Dim _CustomersFrom As CustomersFrom = _VATReportDetail.VATReport.CustomersFrom + Dim _Customers As Customers = _VATReportDetail.Customers + Dim _DocumentNumber As String = _VATReportDetail.DocumentNumber + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + End Sub + Private Sub aVATReportPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aVATReportPrint.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ReportData As ReportData + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + + If _VATReport IsNot Nothing Then + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "FA Riport")) + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("VATReport=?", _VATReport), True) + Else + Throw New UserFriendlyException("Nincs belltva a FA Riport nyomtatvny !") + End If + End If + End Sub + Private Sub aViewAttachments_VATNoPay_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_VATNoPay.Execute + Dim _VATReportNoPayDetail As VATReportNoPayDetail = TryCast(View.SelectedObjects(0), VATReportNoPayDetail) + Dim _CustomersFrom As CustomersFrom = _VATReportNoPayDetail.VATReport.CustomersFrom + Dim _Customers As Customers = _VATReportNoPayDetail.Customers + Dim _DocumentNumber As String = _VATReportNoPayDetail.DocumentNumber + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + + Private Sub aVATClose_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aVATClose.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + + _VATReport.Closed = True + _ocur.CommitChanges() + + End Sub + + Private Sub aVATCloseBack_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aVATCloseBack.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _VATReport As VATReport = TryCast(View.SelectedObjects(0), VATReport) + + _VATReport.Closed = False + _ocur.CommitChanges() + End Sub + + Private Sub aVATClosePreviewPDF_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aVATClosePreviewPDF.Execute + + End Sub + + Private Sub CheckVATAvowalType(_ocur As Xpo.XPObjectSpace, _FromDate As Date, _ToDate As Date) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _PCIDetail_Collection As New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("GetDate(DateExecution)>=? and GetDate(DateExecution)<=?", _FromDate, _ToDate)) + Dim _PCIDetail As PCIDetail + + RaiseEvent InitWork(1, 1, _PCIDetail_Collection.Count) + For Each _PCIDetail In _PCIDetail_Collection + Dim _GLAccounts As GLAccounts + Dim _GLRows As GLRows + RaiseEvent DoWork() + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts) _ + (_uow, CriteriaOperator.Parse("VATAvowalType=1 and CustomersFrom=? and Customers=? and PartnerType=? and DocumentNumber=? and IsEditable=False", + _PCIDetail.CustomersFrom, _PCIDetail.Customers, _PCIDetail.PartnerType, _PCIDetail.ConnectInfo)) + + For Each _GLAccounts In _GLAccounts_Collection + For Each _GLRows In _GLAccounts.GLRows + _GLRows.DateVAT = _PCIDetail.DateExecution + _uow.CommitChanges() + Next + Next + Next + + + End Sub + + Private Sub aGenerateVATCompare_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateVATCompare.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _SQL As String = "" + + Dim _VATCompare As VATCompare = _uow.GetObjectByKey(Of VATCompare)(TryCast(View.SelectedObjects(0), VATCompare).Oid) + Dim _VATReportDetail As VATReportDetail + Dim _VATCompareDetail As VATCompareDetail + RaiseEvent InitWork(1, 1, 1) + _uow.Delete(_VATCompare.VATCompareDetail) + _uow.CommitChanges() + + RaiseEvent InitWork(1, 1, _VATCompare.VATReportSource.VATReportDetail.Count) + For Each _VATReportDetail In _VATCompare.VATReportSource.VATReportDetail + + RaiseEvent DoWork() + _VATReportDetail = _uow.GetObjectByKey(Of VATReportDetail)(_VATReportDetail.Oid) + + _VATCompareDetail = New VATCompareDetail(_uow) + _VATCompareDetail.VATCompare = _VATCompare + _VATCompareDetail.VAT = _VATReportDetail.VAT + _VATCompareDetail.PayMode = _VATReportDetail.PayMode + _VATCompareDetail.PartnerType = _VATReportDetail.PartnerType + _VATCompareDetail.Note = _VATReportDetail.Note + _VATCompareDetail.DocumentNumber = _VATReportDetail.DocumentNumber + _VATCompareDetail.DateVAT = _VATReportDetail.DateVAT + _VATCompareDetail.DateExecution = _VATReportDetail.DateExecution + _VATCompareDetail.Customers = _VATReportDetail.Customers + _VATCompareDetail.AmountVATOutBase_Source = _VATReportDetail.AmountVATOutBase + _VATCompareDetail.AmountVATOut_Source = _VATReportDetail.AmountVATOut + _VATCompareDetail.AmountVATInBase_Source = _VATReportDetail.AmountVATInBase + _VATCompareDetail.AmountVATIn_Source = _VATReportDetail.AmountVATIn + + Next + _uow.CommitChanges() + + RaiseEvent InitWork(1, 1, _VATCompare.VATReportDestination.VATReportDetail.Count) + For Each _VATReportDetail In _VATCompare.VATReportDestination.VATReportDetail + + RaiseEvent DoWork() + _VATReportDetail = _uow.GetObjectByKey(Of VATReportDetail)(_VATReportDetail.Oid) + + _VATCompareDetail = _uow.FindObject(Of VATCompareDetail)(CriteriaOperator.Parse("Customers=? and DocumentNumber=? and PartnerType=? and VAT=? and DateVAT=?", + _VATReportDetail.Customers, _VATReportDetail.DocumentNumber, + _VATReportDetail.PartnerType, _VATReportDetail.VAT, _VATReportDetail.DateVAT)) + If _VATCompareDetail IsNot Nothing Then + Else + _VATCompareDetail = New VATCompareDetail(_uow) + _VATCompareDetail.VATCompare = _VATCompare + _VATCompareDetail.VAT = _VATReportDetail.VAT + _VATCompareDetail.PayMode = _VATReportDetail.PayMode + _VATCompareDetail.PartnerType = _VATReportDetail.PartnerType + _VATCompareDetail.Note = _VATReportDetail.Note + _VATCompareDetail.DocumentNumber = _VATReportDetail.DocumentNumber + _VATCompareDetail.DateVAT = _VATReportDetail.DateVAT + _VATCompareDetail.DateExecution = _VATReportDetail.DateExecution + _VATCompareDetail.Customers = _VATReportDetail.Customers + End If + + + _VATCompareDetail.AmountVATOutBase_Destination = _VATReportDetail.AmountVATOutBase + _VATCompareDetail.AmountVATOut_Destination = _VATReportDetail.AmountVATOut + _VATCompareDetail.AmountVATInBase_Destination = _VATReportDetail.AmountVATInBase + _VATCompareDetail.AmountVATIn_Destination = _VATReportDetail.AmountVATIn + + Next + + _uow.CommitChanges() + RaiseEvent FinalWork + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Private Sub aViewAttachments_VATCompareDetail_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewAttachments_VATCompareDetail.Execute + Dim _VATCompareDetail As VATCompareDetail = TryCast(View.SelectedObjects(0), VATCompareDetail) + Dim _CustomersFrom As CustomersFrom = _VATCompareDetail.VATCompare.CustomersFrom + Dim _Customers As Customers = _VATCompareDetail.Customers + Dim _DocumentNumber As String = _VATCompareDetail.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/GLBaseCheck.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/GLBaseCheck.vb new file mode 100644 index 0000000..7c467b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/GLBaseCheck.vb @@ -0,0 +1,35 @@ +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.SystemModule +Imports System.Linq +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Public Module GLBaseCheck + Public Function CheckGLBaseInfo(_onew As Xpo.XPObjectSpace, _ + _Application As DevExpress.ExpressApp.XafApplication, _ + _DateFrom As Date, _ + _DateTo As Date, _ + _CustomersFrom As CustomersFrom, _ + _e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) As Boolean + '// Az eljárás leellenőrzi, hogy van-e + '// - fel nem adott iktatás + '// - fel nem adott vevői számla + '// - szerkeszthető dokumentum GLAccounts,GLBank,GLCassa,GLCompensation,GLMoxed + Dim _GLBaseMainCheck As GLBaseMainCheck = Nothing + Dim _CheckGLBaseInfo As Boolean = False + + + + + Return _CheckGLBaseInfo + End Function +End Module diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewAttachments.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewAttachments.vb new file mode 100644 index 0000000..c28d672 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewAttachments.vb @@ -0,0 +1,74 @@ +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.SystemModule +Imports System.Linq +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.BaseImpl + +Public Module ViewAttachments + Public Sub ViewAttachments(_ObjectSpace As Xpo.XPObjectSpace, _Frame As DevExpress.ExpressApp.Frame, _ + _CustomersFrom As CustomersFrom, _Customers As Customers, _ + _DocumentNumber As String, Optional _DocumentNumberProforma As String = "", _ + Optional _GLMixed As GLMixed = Nothing) + + Dim _RegistryHeader As RegistryHeader = _ObjectSpace.FindObject(Of RegistryHeader) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", _CustomersFrom, _Customers, _DocumentNumber)) + + Dim _InvoiceHeader As InvoiceHeader = _ObjectSpace.FindObject(Of InvoiceHeader) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", _CustomersFrom, _Customers, _DocumentNumber)) + + If _InvoiceHeader Is Nothing Then + _InvoiceHeader = _ObjectSpace.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumberProforma=?", _CustomersFrom, _Customers, _DocumentNumberProforma)) + End If + + If _RegistryHeader IsNot Nothing Then + + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _RegistryHeader.DocumentFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _RegistryHeader.DocumentFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + ElseIf _InvoiceHeader IsNot Nothing Then + Dim _ReportData As ReportData + Dim _ReportData_DEV As ReportData + Dim _ReportData_DEV_EU As ReportData + Dim _CurrencyName As CurrencyName + _CurrencyName = _InvoiceHeader.CurrencyName + If _InvoiceHeader IsNot Nothing Then + _ReportData = _InvoiceHeader.InvoiceType.ReportData + _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV + _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU + If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then + If _CurrencyName.ShortName = "HUF" Then + _Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + Else + _Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, CriteriaOperator.Parse("InvoiceHeader=?", _InvoiceHeader), True) + End If + + End If + End If + End If + If _GLMixed IsNot Nothing Then + If _GLMixed.DocumentFile IsNot Nothing Then + ProcessDocument(_GLMixed.DocumentFile) + End If + End If + End Sub + Private Sub ProcessDocument(_DocumentFile As FileData) + Dim _FilePath As String = Path.Combine(Path.GetTempPath(), _DocumentFile.FileName) + Dim _Stream As Stream = New FileStream(_FilePath, FileMode.Create) + _DocumentFile.SaveToStream(_Stream) + _Stream.Close() + Process.Start(_FilePath) + End Sub +End Module diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewPDCI.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewPDCI.vb new file mode 100644 index 0000000..36afe69 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewPDCI.vb @@ -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.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports System.Linq +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Public Module ViewPDCI + 'Public Sub ViewPDCI(_onew As Xpo.XPObjectSpace, _ + ' _Application As DevExpress.ExpressApp.XafApplication, _ + ' _e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs, _ + ' _CustomersFrom As CustomersFrom, _ + ' _Customers As Customers, _ + ' _PartnerType As ePartnerType, _ + ' _ConnectInfo As String) + ' Dim _CS As New CollectionSource(_onew, GetType(PCIDetail)) + + ' _CS.BeginUpdateCriteria() + ' _CS.Criteria.Clear() + ' _CS.Criteria("First") = CriteriaOperator.Parse("CustomersFrom.Oid=? and PartnerType=? and Customers.Oid=? and ConnectInfo=?", _ + ' _CustomersFrom.Oid, _ + ' _PartnerType, _ + ' _Customers.Oid, _ + ' _ConnectInfo) + ' _CS.EndUpdateCriteria() + + ' _e.ShowViewParameters.CreatedView = _Application.CreateListView("PCIDetail_ListView", _CS, False) + ' _e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + 'End Sub + Public Sub ViewPDCIDetail(_onew As Xpo.XPObjectSpace, _ + _Application As DevExpress.ExpressApp.XafApplication, _ + _e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs, _ + _CustomersFrom As CustomersFrom, _ + _Customers As Customers, _ + _PartnerType As ePartnerType, _ + _ConnectInfo As String) + Dim _CS As New CollectionSource(_onew, GetType(PCIDetail)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("CustomersFrom.Oid=? and PartnerType=? and Customers.Oid=? and ConnectInfo=?", _ + _CustomersFrom.Oid, _ + _PartnerType, _ + _Customers.Oid, _ + _ConnectInfo) + _CS.EndUpdateCriteria() + + _e.ShowViewParameters.CreatedView = _Application.CreateListView("PCIDetail_ListView_View", _CS, False) + _e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + End Sub + Public Sub ViewGLDetails(_onew As Xpo.XPObjectSpace, _ + _Application As DevExpress.ExpressApp.XafApplication, _ + _e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs, _ + _CustomersFrom As CustomersFrom, _ + _Customers As Customers, _ + _PartnerType As ePartnerType, _ + _ConnectInfo As String) + Dim _CS As New CollectionSource(_onew, GetType(GLDetails)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("IsNull(GLRows.GCRecord)=True and IsNull(GLRows.GLHeader.GCRecord)=True and GLRows.GLHeader.IsEditable=False and GLRows.GLHeader.CustomersFrom.Oid=? and GLRows.PartnerType=? and GLRows.Customer.Oid=? and GLRows.ConnectInfo=?", _ + _CustomersFrom.Oid, _ + _PartnerType, _ + _Customers.Oid, _ + _ConnectInfo) + _CS.EndUpdateCriteria() + + _e.ShowViewParameters.CreatedView = _Application.CreateListView("GLDetails_ListView_PCIDetail", _CS, False) + _e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + + End Sub + Public Sub ViewPDCIDetail_Customers(_onew As Xpo.XPObjectSpace, _ + _Application As DevExpress.ExpressApp.XafApplication, _ + _e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs, _ + _CustomersFrom As CustomersFrom, _ + _Customers As Customers) + Dim _CS As New CollectionSource(_onew, GetType(PCIDetail)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? ", _ + _CustomersFrom.Oid, _ + _Customers.Oid) + _CS.EndUpdateCriteria() + + _e.ShowViewParameters.CreatedView = _Application.CreateListView("PCIDetail_ListView", _CS, False) + _e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + End Sub +End Module diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewRegistry.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewRegistry.vb new file mode 100644 index 0000000..cae74cc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Views/ViewRegistry.vb @@ -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.Data.Filtering +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.SystemModule +Imports System.Linq +Imports System.IO +Imports DevExpress.ExpressApp.Editors +Public Module ViewRegistry + Public Sub ViewRegistry(_ObjectSpace As Xpo.XPObjectSpace, Application As DevExpress.ExpressApp.XafApplication, _ + e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs, _ + _CustomersFrom As CustomersFrom, _Customers As Customers, _DocumentNumber As String) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _RegistryHeader As RegistryHeader = _ObjectSpace.FindObject(Of RegistryHeader) _ + (CriteriaOperator.Parse("CustomersFrom=? and Customers=? and DocumentNumber=?", _CustomersFrom, _Customers, _DocumentNumber)) + + If _RegistryHeader IsNot Nothing Then + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RegistryHeader_DetailView", False, _onew.GetObject(_RegistryHeader)) + + End If + End Sub +End Module diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/PartnerConnectionInfoDetailView.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/PartnerConnectionInfoDetailView.vb new file mode 100644 index 0000000..d42a16a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/PartnerConnectionInfoDetailView.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class PartnerConnectionInfoDetailView + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property a As Long +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlan.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlan.vb new file mode 100644 index 0000000..d74dbda --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlan.vb @@ -0,0 +1,84 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.IO + _ + _ +Public Class ProjectPlan + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String 'Megnevezés + Private _IsEditable As Boolean 'Szerkeszthető vagy végleges + Private _ExcelProperty As Stream + Private _DateFrom As Date 'Kezdő dátumtum + Private _DateTo As Date 'Vég dátum + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + + _ + _ + ReadOnly Property ProjectPlanRows As XPCollection(Of ProjectPlanRows) + Get + Return GetCollection(Of ProjectPlanRows)("ProjectPlanRows") + End Get + End Property + _ + Property ExcelProperty As Stream + Get + Return _ExcelProperty + End Get + Set(ByVal value As Stream) + SetPropertyValue("ExcelProperty", _ExcelProperty, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanRows.vb new file mode 100644 index 0000000..865e5f2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanRows.vb @@ -0,0 +1,183 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ProjectPlanRows + Inherits BaseObject + Private _ProjectPlan As ProjectPlan 'tervez fejlc + Private _Controlling As Controlling 'Kontroll szm + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _UniqueObjects As UniqueObjects 'Egyedi azonost + Private _JobNumberObjects As JobNumberObjects + Private _ChartOfAccountsName As String + Private _AccountNumber As String + Private _DateYear As Long 'v + Private _DateMonth As Long 'Hnap + + '//HUF adatok + Private _DebitAmountPlanHUF As Double 'Tartozik Terv HUF + Private _CreditAmountPlanHUF As Double 'Kvetel terv HUF + Private _DebitAmountFactHUF As Double 'Tartozik tny HUF + Private _CreditAmountFactHUF As Double 'Kvetel tny HUF + Private _DebitAmountContractHUF As Double 'Tartozik szerzds HUF + Private _CreditAmountContractHUF As Double 'Kvetel szerzds HUF + + Private _CurrencyName As CurrencyName 'Deviza + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property ProjectPlan As ProjectPlan + Get + Return _ProjectPlan + End Get + Set(ByVal value As ProjectPlan) + SetPropertyValue("ProjectPlan", _ProjectPlan, value) + End Set + End Property + _ + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property ChartOfAccountsName As String + Get + Return _ChartOfAccountsName + End Get + Set(value As String) + SetPropertyValue("ChartOfAccountsName", _ChartOfAccountsName, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + Property DateYear As Long + Get + Return _DateYear + End Get + Set(value As Long) + SetPropertyValue("DateYear", _DateYear, value) + End Set + End Property + Property DateMonth As Long + Get + Return _DateMonth + End Get + Set(value As Long) + SetPropertyValue("DateMonth", _DateMonth, value) + End Set + End Property + + Property DebitAmountPlanHUF As Double + Get + Return _DebitAmountPlanHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountPlanHUF", _DebitAmountPlanHUF, value) + End Set + End Property + Property CreditAmountPlanHUF As Double + Get + Return _CreditAmountPlanHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountPlanHUF", _CreditAmountPlanHUF, value) + End Set + End Property + Property DebitAmountFactHUF As Double + Get + Return _DebitAmountFactHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountFactHUF", _DebitAmountFactHUF, value) + End Set + End Property + Property CreditAmountFactHUF As Double + Get + Return _CreditAmountFactHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountFactHUF", _CreditAmountFactHUF, value) + End Set + End Property + Property DebitAmountContractHUF As Double + Get + Return _DebitAmountContractHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountContractHUF", _DebitAmountContractHUF, value) + End Set + End Property + Property CreditAmountContractHUF As Double + Get + Return _CreditAmountContractHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountContractHUF", _CreditAmountContractHUF, value) + End Set + End Property + + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.Designer.vb new file mode 100644 index 0000000..79b293d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.Designer.vb @@ -0,0 +1,99 @@ +Partial Class ProjectPlanVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProjectPlanGenerateFact = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectPlanEditPlan = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectPlanViewContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectPlanViewFact = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aProjectPlanGenerateFact + ' + Me.aProjectPlanGenerateFact.Caption = "aProject Plan Generate Fact" + Me.aProjectPlanGenerateFact.ConfirmationMessage = Nothing + Me.aProjectPlanGenerateFact.Id = "aProjectPlanGenerateFact" + Me.aProjectPlanGenerateFact.ImageName = Nothing + Me.aProjectPlanGenerateFact.Shortcut = Nothing + Me.aProjectPlanGenerateFact.Tag = Nothing + Me.aProjectPlanGenerateFact.TargetObjectsCriteria = Nothing + Me.aProjectPlanGenerateFact.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlan) + Me.aProjectPlanGenerateFact.TargetViewId = Nothing + Me.aProjectPlanGenerateFact.ToolTip = Nothing + Me.aProjectPlanGenerateFact.TypeOfView = Nothing + ' + 'aProjectPlanEditPlan + ' + Me.aProjectPlanEditPlan.Caption = "aProject Plan Edit Plan" + Me.aProjectPlanEditPlan.ConfirmationMessage = Nothing + Me.aProjectPlanEditPlan.Id = "aProjectPlanEditPlan" + Me.aProjectPlanEditPlan.ImageName = Nothing + Me.aProjectPlanEditPlan.Shortcut = Nothing + Me.aProjectPlanEditPlan.Tag = Nothing + Me.aProjectPlanEditPlan.TargetObjectsCriteria = Nothing + Me.aProjectPlanEditPlan.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlanRows) + Me.aProjectPlanEditPlan.TargetViewId = Nothing + Me.aProjectPlanEditPlan.ToolTip = Nothing + Me.aProjectPlanEditPlan.TypeOfView = Nothing + ' + 'aProjectPlanViewContract + ' + Me.aProjectPlanViewContract.Caption = "aProject Plan View Contract" + Me.aProjectPlanViewContract.ConfirmationMessage = Nothing + Me.aProjectPlanViewContract.Id = "aProjectPlanViewContract" + Me.aProjectPlanViewContract.ImageName = Nothing + Me.aProjectPlanViewContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aProjectPlanViewContract.Shortcut = Nothing + Me.aProjectPlanViewContract.Tag = Nothing + Me.aProjectPlanViewContract.TargetObjectsCriteria = Nothing + Me.aProjectPlanViewContract.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlanRows) + Me.aProjectPlanViewContract.TargetViewId = Nothing + Me.aProjectPlanViewContract.ToolTip = Nothing + Me.aProjectPlanViewContract.TypeOfView = Nothing + ' + 'aProjectPlanViewFact + ' + Me.aProjectPlanViewFact.Caption = "aProject Plan View Fact" + Me.aProjectPlanViewFact.ConfirmationMessage = Nothing + Me.aProjectPlanViewFact.Id = "aProjectPlanViewFact" + Me.aProjectPlanViewFact.ImageName = Nothing + Me.aProjectPlanViewFact.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aProjectPlanViewFact.Shortcut = Nothing + Me.aProjectPlanViewFact.Tag = Nothing + Me.aProjectPlanViewFact.TargetObjectsCriteria = Nothing + Me.aProjectPlanViewFact.TargetObjectType = GetType(SISBusiness.[Module].ProjectPlanRows) + Me.aProjectPlanViewFact.TargetViewId = Nothing + Me.aProjectPlanViewFact.ToolTip = Nothing + Me.aProjectPlanViewFact.TypeOfView = Nothing + + End Sub + Friend WithEvents aProjectPlanGenerateFact As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProjectPlanViewContract As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProjectPlanViewFact As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aProjectPlanEditPlan As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.resx new file mode 100644 index 0000000..4e1bb4b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 56 + + + 208, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.vb new file mode 100644 index 0000000..790933c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanVC.vb @@ -0,0 +1,760 @@ +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 System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Public Class ProjectPlanVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aProjectPlanViewContract_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanViewContract.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectPlanRows As ProjectPlanRows = _onew.GetObject(TryCast(View.SelectedObjects(0), ProjectPlanRows)) + + + Dim _ContractRows_Controlling As New CollectionSource(_onew, GetType(ContractRows)) + Dim _ContractRows As ContractRows + + '_ContractRows.GLHeader.DateExecution.Date + + _ContractRows_Controlling.BeginUpdateCriteria() + '_ContractRows_Controlling.Criteria("Plan1") = CriteriaOperator.Parse("(DebitChartOfAccounts.AccountNumber=? or CreditChartOfAccounts.AccountNumber=?)", _ProjectPlanRows.AccountNumber, _ProjectPlanRows.AccountNumber) + If _ProjectPlanRows.Controlling Is Nothing Then + _ContractRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("isnull(Controlling)=True") + Else + _ContractRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("Controlling=?", _ProjectPlanRows.Controlling) + End If + If _ProjectPlanRows.CostHolder Is Nothing Then + _ContractRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("isnull(CostHolder)=True") + Else + _ContractRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("CostHolder=?", _ProjectPlanRows.CostHolder) + End If + If _ProjectPlanRows.CostPlace Is Nothing Then + _ContractRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("isnull(CostPlace)=True") + Else + _ContractRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("CostPlace=?", _ProjectPlanRows.CostPlace) + End If + If _ProjectPlanRows.JobNumberObjects Is Nothing Then + _ContractRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("isnull(JobNumberObjects)=True") + Else + _ContractRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("JobNumberObjects=?", _ProjectPlanRows.JobNumberObjects) + End If + If _ProjectPlanRows.UniqueObjects Is Nothing Then + _ContractRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("isnull(UniqueObjects)=True") + Else + _ContractRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("UniqueObjects=?", _ProjectPlanRows.UniqueObjects) + End If + + _ContractRows_Controlling.Criteria("DateExecution") = CriteriaOperator.Parse("GetYear(DateExecution)=? and GetMonth(DateExecution)=? and Contracts.CustomersFrom=?", _ + _ProjectPlanRows.DateYear, _ProjectPlanRows.DateMonth, _ProjectPlanRows.ProjectPlan.CustomersFrom) + _ContractRows_Controlling.EndUpdateCriteria() + + + e.ShowViewParameters.CreatedView = Application.CreateListView("ContractRows_ListView_ProjectPlan", _ContractRows_Controlling, True) + End Sub + + Private Sub aProjectPlanGenerateFact_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanGenerateFact.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _ProjectPlan As ProjectPlan = _uow.GetObjectByKey(Of ProjectPlan)(TryCast(View.SelectedObjects(0), ProjectPlan).Oid) + Dim _ProjectPlanRows As ProjectPlanRows + Dim _SQL As String + + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = "Update ""ProjectPlanRows"" set " + _SQL += " ""DebitAmountFactHUF""=0,""CreditAmountFactHUF""=0, " + _SQL += " ""DebitAmountContractHUF""=0,""CreditAmountContractHUF""=0 " + _SQL += " Where ""ProjectPlan""='" & _ProjectPlan.Oid.ToString & "'" + Case Else + _SQL = "Update ProjectPlanRows set " + _SQL += " DebitAmountFactHUF=0,CreditAmountFactHUF=0, " + _SQL += " DebitAmountContractHUF=0,CreditAmountContractHUF=0 " + _SQL += " Where ProjectPlan='" & _ProjectPlan.Oid.ToString & "'" + End Select + _onew.Session.ExecuteNonQuery(_SQL) + + _onew.CommitChanges() + + Dim _ChartOfAccounts As ChartOfAccounts + Dim _AccountNumber As String = "" + Dim _Customers As Customers + Dim _Controlling As Controlling + Dim _VAT As VAT + Dim _GLRows_xpquery = New XPQuery(Of GLRows)(_uow) + Dim query As System.Linq.IQueryable(Of Object) + + Dim _criteria As String = "" + '// Tartozik lb alapjn + query = From _glrows In _GLRows_xpquery + Where _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _ProjectPlan.DateFrom.Date And _ + _glrows.GLHeader.DateExecution.Date < _ProjectPlan.DateTo.Date And _ + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _ProjectPlan.CustomersFrom.Oid _ + Group _glrows By _glrows.DebitChartOfAccounts.AccountNumber, _ + _glrows.GLHeader.DateExecution.Date.Year, _ + _glrows.GLHeader.DateExecution.Date.Month, _ + _glrows.Controlling, _ + _glrows.CostHolder, _ + _glrows.CostPlace, _ + _glrows.UniqueObjects, _ + _glrows.JobNumberObjects Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .DateYear = Year, _ + Key .DateMonth = Month, _ + Key .Controlling = Controlling, _ + Key .CostHolder = CostHolder, _ + Key .CostPlace = CostPlace, _ + Key .UniqueObjects = UniqueObjects, _ + Key .JobNumberObjects = JobNumberObjects, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.AmountHUF))} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & item.AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.DebitAmountFactHUF += item.AmountNettoHUF + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", item.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = item.AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + '// Kvetel lb alapjn + query = From _glrows In _GLRows_xpquery + Where _glrows.GLHeader.IsEditable = False And _ + _glrows.GLHeader.DateExecution.Date >= _ProjectPlan.DateFrom.Date And _ + _glrows.GLHeader.DateExecution.Date < _ProjectPlan.DateTo.Date And _ + _glrows.GLHeader IsNot Nothing And _ + _glrows.GLHeader.CustomersFrom.Oid = _ProjectPlan.CustomersFrom.Oid _ + Group _glrows By _glrows.CreditChartOfAccounts.AccountNumber, _ + _glrows.GLHeader.DateExecution.Date.Year, _ + _glrows.GLHeader.DateExecution.Date.Month, _ + _glrows.Controlling, _ + _glrows.CostHolder, _ + _glrows.CostPlace, _ + _glrows.UniqueObjects, _ + _glrows.JobNumberObjects Into g = Group _ + Select New With {Key .AccountNumber = AccountNumber, _ + Key .DateYear = Year, _ + Key .DateMonth = Month, _ + Key .Controlling = Controlling, _ + Key .CostHolder = CostHolder, _ + Key .CostPlace = CostPlace, _ + Key .UniqueObjects = UniqueObjects, _ + Key .JobNumberObjects = JobNumberObjects, _ + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.AmountHUF))} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & item.AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.CreditAmountFactHUF += item.AmountNettoHUF + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", item.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = item.AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + '// Most a vevi szerzdsi sorok jnnek + Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_uow) + + query = From _ContractRows In _ContractRows_xpquery + Where _ContractRows.Contracts.State = State.Signed And _ + _ContractRows.Contracts.ContractTemplate.PartnerType = ePartnerType.eReceivables And _ + _ContractRows.DateExecution.Date >= _ProjectPlan.DateFrom.Date And _ + _ContractRows.DateExecution.Date < _ProjectPlan.DateTo.Date And _ + _ContractRows.Contracts IsNot Nothing And _ + _ContractRows.Contracts.CustomersFrom.Oid = _ProjectPlan.CustomersFrom.Oid _ + Group _ContractRows By _ContractRows.DateExecution.Date.Year, _ + _ContractRows.DateExecution.Date.Month, _ + _ContractRows.Controlling, _ + _ContractRows.CostHolder, _ + _ContractRows.CostPlace, _ + _ContractRows.UniqueObjects, _ + _ContractRows.Contracts.Customers, _ + _ContractRows.VAT, _ + _ContractRows.JobNumberObjects Into g = Group _ + Select New With {Key .DateYear = Year, _ + Key .DateMonth = Month, _ + Key .Controlling = Controlling, _ + Key .CostHolder = CostHolder, _ + Key .CostPlace = CostPlace, _ + Key .UniqueObjects = UniqueObjects, _ + Key .JobNumberObjects = JobNumberObjects, _ + Key .VAT = VAT, + Key .Customers = Customers, + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.QTT * inv.NettoPriceHUF))} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + _Customers = item.Customers + _ChartOfAccounts = _Customers.CustomersGLParameters.GetChartOfAccounts(item.DateYear, eVATMode.eOut) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + End If + + '//Brutt sor tartozikba ------------------- + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _VAT = item.VAT + If _VAT IsNot Nothing Then + _ProjectPlanRows.DebitAmountContractHUF += Math.Round(item.AmountNettoHUF * (1 + _VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _ProjectPlanRows.DebitAmountContractHUF += item.AmountNettoHUF + End If + + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + + '//Nett sor kvetelbe -------------------------- + _Controlling = item.Controlling + If _Controlling IsNot Nothing Then + _ChartOfAccounts = _Controlling.GetChartOfAccounts(item.DateYear, False) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.CreditAmountContractHUF += item.AmountNettoHUF + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + End If + End If + '//FA kvetelbe ------------------------------- + If _VAT IsNot Nothing Then + _ChartOfAccounts = _VAT.GetChartOfAccounts(item.DateYear, eVATMode.eOut) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.CreditAmountContractHUF += Math.Round(item.AmountNettoHUF * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + End If + End If + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + + '// Most a Szllti szerzdsi sorok jnnek + + query = From _ContractRows In _ContractRows_xpquery + Where _ContractRows.Contracts.State = State.Signed And _ + _ContractRows.Contracts.ContractTemplate.PartnerType = ePartnerType.ePayabels And _ + _ContractRows.DateExecution.Date >= _ProjectPlan.DateFrom.Date And _ + _ContractRows.DateExecution.Date < _ProjectPlan.DateTo.Date And _ + _ContractRows.Contracts IsNot Nothing And _ + _ContractRows.Contracts.CustomersFrom.Oid = _ProjectPlan.CustomersFrom.Oid _ + Group _ContractRows By _ContractRows.DateExecution.Date.Year, _ + _ContractRows.DateExecution.Date.Month, _ + _ContractRows.Controlling, _ + _ContractRows.CostHolder, _ + _ContractRows.CostPlace, _ + _ContractRows.UniqueObjects, _ + _ContractRows.Contracts.Customers, _ + _ContractRows.VAT, _ + _ContractRows.JobNumberObjects Into g = Group _ + Select New With {Key .DateYear = Year, _ + Key .DateMonth = Month, _ + Key .Controlling = Controlling, _ + Key .CostHolder = CostHolder, _ + Key .CostPlace = CostPlace, _ + Key .UniqueObjects = UniqueObjects, _ + Key .JobNumberObjects = JobNumberObjects, _ + Key .VAT = VAT, + Key .Customers = Customers, + Key .AmountNettoHUF = g.Sum(Function(inv) (inv.QTT * inv.NettoPriceHUF))} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + _Customers = item.Customers + _ChartOfAccounts = _Customers.CustomersGLParameters.GetChartOfAccounts(item.DateYear, eVATMode.eIn) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + End If + + '//Brutt sor kvetel ------------------- + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _VAT = item.VAT + If _VAT IsNot Nothing Then + _ProjectPlanRows.CreditAmountContractHUF += Math.Round(item.AmountNettoHUF * (1 + _VAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Else + _ProjectPlanRows.CreditAmountContractHUF += item.AmountNettoHUF + End If + + + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + + '//Nett sor tartozikba -------------------------- + _Controlling = item.Controlling + If _Controlling IsNot Nothing Then + _ChartOfAccounts = _Controlling.GetChartOfAccounts(item.DateYear, False) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.DebitAmountContractHUF += item.AmountNettoHUF + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + End If + End If + '//FA kvetelbe ------------------------------- + If _VAT IsNot Nothing Then + _ChartOfAccounts = _VAT.GetChartOfAccounts(item.DateYear, eVATMode.eIn) + If _ChartOfAccounts IsNot Nothing Then + _AccountNumber = _ChartOfAccounts.AccountNumber + '//------------------------------------------------------------------------------------------------------------- + _criteria = " AccountNumber='" & _AccountNumber & "' and" + _criteria += " DateYear=" & item.DateYear & " and " + _criteria += " DateMonth=" & item.DateMonth & " and " + If item.Controlling Is Nothing Then + _criteria += "isnull(Controlling)=True and " + Else + _criteria += " Controlling.Oid='" & item.Controlling.Oid.ToString & "' and " + End If + If item.CostHolder Is Nothing Then + _criteria += " isnull(CostHolder)=True and " + Else + _criteria += " CostHolder.Oid='" & item.CostHolder.Oid.ToString & "' and " + End If + If item.CostPlace Is Nothing Then + _criteria += " isnull(CostPlace)=True and " + Else + _criteria += " CostPlace.Oid='" & item.CostPlace.Oid.ToString & "' and " + End If + If item.UniqueObjects Is Nothing Then + _criteria += " isnull(UniqueObjects)=True and " + Else + _criteria += " UniqueObjects.Oid='" & item.UniqueObjects.Oid.ToString & "' and " + End If + If item.JobNumberObjects Is Nothing Then + _criteria += " isnull(JobNumberObjects)=True " + Else + _criteria += " JobNumberObjects.Oid='" & item.JobNumberObjects.Oid.ToString & "' " + End If + + _ProjectPlanRows = _uow.FindObject(Of ProjectPlanRows)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse(_criteria)) + If _ProjectPlanRows Is Nothing Then + _ProjectPlanRows = New ProjectPlanRows(_uow) + End If + _ProjectPlanRows.ProjectPlan = _ProjectPlan + _ProjectPlanRows.DebitAmountContractHUF += Math.Round(item.AmountNettoHUF * _VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _ChartOfAccounts = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=?", _AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _ProjectPlanRows.ChartOfAccountsName = _ChartOfAccounts.Name + End If + _ProjectPlanRows.AccountNumber = _AccountNumber + _ProjectPlanRows.Controlling = item.Controlling + _ProjectPlanRows.CostHolder = item.CostHolder + _ProjectPlanRows.DateYear = item.DateYear + _ProjectPlanRows.DateMonth = item.DateMonth + _ProjectPlanRows.JobNumberObjects = item.JobNumberObjects + _ProjectPlanRows.UniqueObjects = item.UniqueObjects + _uow.CommitTransaction() + End If + End If + Next + _uow.CommitTransaction() + + _SQL = " Delete from ""ProjectPlanRows"" " + _SQL += " Where ""DebitAmountPlanHUF""=0 and " + _SQL += " ""CreditAmountPlanHUF""=0 and " + _SQL += " ""DebitAmountFactHUF""=0 and " + _SQL += " ""CreditAmountFactHUF""=0 and " + _SQL += " ""DebitAmountContractHUF""=0 and " + _SQL += " ""CreditAmountContractHUF""=0 " + _onew.Session.ExecuteNonQuery(_SQL) + + RaiseEvent FinalWork + + End Sub + + Private Sub aProjectPlanGeneratePlan_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanEditPlan.Execute + + End Sub + + Private Sub aProjectPlanShowPlan_Execute(sender As Object, e As SimpleActionExecuteEventArgs) + + End Sub + + Private Sub aProjectPlanViewFact_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProjectPlanViewFact.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ProjectPlanRows As ProjectPlanRows = _onew.GetObject(TryCast(View.SelectedObjects(0), ProjectPlanRows)) + + + Dim _GLRows_Controlling As New CollectionSource(_onew, GetType(GLRows)) + Dim _GLRows As GLRows + + '_GLRows.GLHeader.DateExecution.Date + + _GLRows_Controlling.BeginUpdateCriteria() + _GLRows_Controlling.Criteria("Plan1") = CriteriaOperator.Parse("(DebitChartOfAccounts.AccountNumber=? or CreditChartOfAccounts.AccountNumber=?)", _ + _ProjectPlanRows.AccountNumber, _ProjectPlanRows.AccountNumber) + If _ProjectPlanRows.Controlling Is Nothing Then + _GLRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("isnull(Controlling)=True") + Else + _GLRows_Controlling.Criteria("Controlling") = CriteriaOperator.Parse("Controlling=?", _ProjectPlanRows.Controlling) + End If + If _ProjectPlanRows.CostHolder Is Nothing Then + _GLRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("isnull(CostHolder)=True") + Else + _GLRows_Controlling.Criteria("CostHolder") = CriteriaOperator.Parse("CostHolder=?", _ProjectPlanRows.CostHolder) + End If + If _ProjectPlanRows.CostPlace Is Nothing Then + _GLRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("isnull(CostPlace)=True") + Else + _GLRows_Controlling.Criteria("CostPlace") = CriteriaOperator.Parse("CostPlace=?", _ProjectPlanRows.CostPlace) + End If + If _ProjectPlanRows.JobNumberObjects Is Nothing Then + _GLRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("isnull(JobNumberObjects)=True") + Else + _GLRows_Controlling.Criteria("JobNumberObjects") = CriteriaOperator.Parse("JobNumberObjects=?", _ProjectPlanRows.JobNumberObjects) + End If + If _ProjectPlanRows.UniqueObjects Is Nothing Then + _GLRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("isnull(UniqueObjects)=True") + Else + _GLRows_Controlling.Criteria("UniqueObjects") = CriteriaOperator.Parse("UniqueObjects=?", _ProjectPlanRows.UniqueObjects) + End If + _GLRows_Controlling.Criteria("DateExecution") = CriteriaOperator.Parse("GetYear(GLHeader.DateExecution)=? and GetMonth(GLHeader.DateExecution)=? and GLHeader.IsEditable=False and GLHeader.CustomersFrom=?", _ + _ProjectPlanRows.DateYear, _ProjectPlanRows.DateMonth, _ProjectPlanRows.ProjectPlan.CustomersFrom) + _GLRows_Controlling.EndUpdateCriteria() + + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_ProjectPlan", _GLRows_Controlling, True) + + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/RegistryEnums.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/RegistryEnums.vb new file mode 100644 index 0000000..473a6a0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Enums/RegistryEnums.vb @@ -0,0 +1,66 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eDeliveryType + eNotSet = 0 + eFax = 1 + eMail = 2 + ePostal = 3 + eLetter = 4 + ePhone = 5 + eOther = 6 +End Enum +Public Enum eRegistryDirection + eInput = 0 + eOutput = 1 +End Enum +Public Enum eWFAction + eQuitWithSucces = 0 + eQuitWithFailure = 1 + eGotoNextStep = 2 +End Enum +Public Enum eRegistryMainType + eAccount = 0 'Szmla + eOther = 1 'Egyb + eInvoiceAdvance = 2 'Elleg szmla + eInvoiceAdvanceAsk = 3 ' Elleg bekr + eInvoiceFinal = 4 'Vgszmla + eCRM = 5 'CRM-mel kapcsolatos iktats +End Enum +Public Enum eRegistryAcceptState + eAccept = 0 'Elfogad + eDecline = 1 'Elutast +End Enum +Public Enum eStepFinancialType + eNoCheck = 0 'Nincs ellenrzs + eCheckVAT = 1 'FA bonts szksges + eCheckControlling = 2 'Teljestsre bonts szksges + eCheckCOCScanned = 3 'Teljestsi igazols visszaszkennelse szksges + eCheckManager = 4 'Vezeti ellenrzs lpse + eCheckVATPlusControlling = 5 '5 els lpsnl FA s sorbonts egyben +End Enum +Public Enum eChoiceRowMode + eFromContractRows = 0 + eFromCertificate = 1 +End Enum +Public Enum eReinvoiceMode + eNotSet = 0 'Nincs belltva + eDirect = 1 'Tteles bellts + eGeneral = 2 'ltalnos vagy egyedi vagy csoportos md +End Enum +Public Enum eRegistryCRMType + eNotSet = -1 + eOfferInAsk = 0 'Bejv ajnlat krs + eOrderIn = 1 'Bejv megrendels + eOfferIn = 2 'Bejv ajnlat + eComplaintIn = 3 'Bejv reklamci +End Enum + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/DocumentSentBackView.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/DocumentSentBackView.vb new file mode 100644 index 0000000..eee3415 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/DocumentSentBackView.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class DocumentSentBackView + Inherits BaseObject + Private _CauseOfRefuse As String ' -- Visszaklds oka + Private _ReturnType As eDeliveryType ' -- Visszaklds mdja + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property CauseOfRefuse As String + Get + Return _CauseOfRefuse + End Get + Set(ByVal value As String) + SetPropertyValue("CauseOfRefuse", _CauseOfRefuse, value) + End Set + End Property + Property ReturnType As eDeliveryType + Get + Return _ReturnType + End Get + Set(ByVal value As eDeliveryType) + SetPropertyValue("ReturnType", _ReturnType, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryChoiceNextStep.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryChoiceNextStep.vb new file mode 100644 index 0000000..e4185e2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryChoiceNextStep.vb @@ -0,0 +1,116 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class RegistryChoiceNextStep 'Ez a class csak egy popup window-hoz kell + Inherits BaseObject + Private _RegistryHeader As RegistryHeader 'Melyik iktatssal kapcsolatos + Private _HRPerson As HRPerson 'Kinek deleglja + Private _WorkflowSystemSteps As WorkflowSystemSteps 'Milyen lpsre teszi + Private _Description As String 'Mit kell csinlni a feladatban ! + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property HRPerson As HRPerson + Get + 'If _WorkflowSystemSteps IsNot Nothing Then + ' If _WorkflowSystemSteps.HRResponsible IsNot Nothing Then + ' _HRPerson = _WorkflowSystemSteps.HRResponsible + ' End If + 'End If + Return _HRPerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(ByVal value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + + If Session.IsObjectsLoading() = False And Session.IsObjectsSaving() = False And Me.WorkflowSystemSteps IsNot Nothing Then + If Me.WorkflowSystemSteps.HRResponsible IsNot Nothing Then + Me.HRPerson = Me.WorkflowSystemSteps.HRResponsible + Else + Me.HRPerson = Me.RegistryHeader.HRResponsible + End If + End If + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class + _ + _ +Public Class InvoiceChoiceNextStep 'Ez a class csak egy popup window-hoz kell + Inherits BaseObject + Private _InvoiceHeader As InvoiceHeader 'Melyik iktatssal kapcsolatos + Private _HRPerson As HRPerson 'Kinek deleglja + Private _WorkflowSystemSteps As WorkflowSystemSteps 'Milyen lpsre teszi + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property InvoiceHeader As InvoiceHeader + Get + Return _InvoiceHeader + End Get + Set(ByVal value As InvoiceHeader) + SetPropertyValue("InvoiceHeader", _InvoiceHeader, value) + End Set + End Property + Property HRPerson As HRPerson + Get + If _WorkflowSystemSteps IsNot Nothing Then + If _WorkflowSystemSteps.HRResponsible IsNot Nothing Then + _HRPerson = _WorkflowSystemSteps.HRResponsible + End If + End If + Return _HRPerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(ByVal value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingPopupWindow.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingPopupWindow.vb new file mode 100644 index 0000000..6ff735c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingPopupWindow.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolgokhoz + Inherits BaseObject + Private _RegistryRowsFinancial As RegistryRowsFinancial + Private _Contracts As Contracts + Private _Controlling As Controlling + Private _UniqueObjects As UniqueObjects + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property RegistryRowsFinancial As RegistryRowsFinancial + Get + Return _RegistryRowsFinancial + End Get + Set(ByVal value As RegistryRowsFinancial) + SetPropertyValue("RegistryRowsFinancial", _RegistryRowsFinancial, value) + End Set + End Property + + Property Contracts As Contracts + Get + Return _Contracts + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingTemplatePopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingTemplatePopup.vb new file mode 100644 index 0000000..134814b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingTemplatePopup.vb @@ -0,0 +1,81 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eRRFCT_Type + eTechnical = 0 + eReal = 1 +End Enum + + _ + _ + _ + _ + _ +Public Class RegistryRowsFinancialControllingTemplatePopup + Inherits BaseObject + + Private _MasterKey As Guid + Private _RRFCT_Type As eRRFCT_Type + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + RRFCT_Type = eRRFCT_Type.eTechnical + End Sub + + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property RRFCT_Type As eRRFCT_Type + Get + Return _RRFCT_Type + End Get + Set(value As eRRFCT_Type) + SetPropertyValue("RRFCT_Type", _RRFCT_Type, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + + '-----------ReadOnly---------------- + _ + ReadOnly Property RegistryRowsFinancialControlling As XPCollection(Of RegistryRowsFinancialControlling) + Get + Return New XPCollection(Of RegistryRowsFinancialControlling)(Session, CriteriaOperator.Parse("RegistryHeader.IsTemplate=True AND RegistryHeader.CustomersFrom=? AND RegistryHeader.Customers=?", Me.CustomersFrom, Me.Customers)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControlling_ReInvoicePopupWindow.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControlling_ReInvoicePopupWindow.vb new file mode 100644 index 0000000..6e853c7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControlling_ReInvoicePopupWindow.vb @@ -0,0 +1,160 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ +Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow + Inherits BaseObject + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling 'Egy pldny a kivlasztott szmlzand ttelek kzl, hogy megkapjuk a hozz tartoz iktats adatait + Private _Contracts As Contracts 'Melyik szerzdshez kszljn el a sor + Private _DateExecution As Date 'Szerzdsi sor teljestsi dtuma + Private _SumAmountOfSelectedItems As Double 'A kivlasztott tovbbszmlzand ttelek sszege + Private _FinalAmount As Double 'A szerzdsi sor vgsszege rrssel egytt + Private _VAT As VAT 'Mi legyen a szerzdsi sor fja + Private _JobNumberObjects As JobNumberObjects + Private _CostHolder As CostHolder + Private _CostPlace As CostPlace + Private _UniqueObjects As UniqueObjects + Private _Description As String + Private _ShortName As String + Private _PaymentOption As PaymentOption + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(ByVal value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property + _ + _ + Property Contracts As Contracts + Get + Return _Contracts + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property SumAmountOfSelectedItems As Double + Get + Return _SumAmountOfSelectedItems + End Get + Set(ByVal value As Double) + SetPropertyValue("SumAmountOfSelectedItems", _SumAmountOfSelectedItems, value) + End Set + End Property + Property FinalAmount As Double + Get + Return _FinalAmount + End Get + Set(ByVal value As Double) + SetPropertyValue("FinalAmount", _FinalAmount, value) + End Set + End Property + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + + 'Rule5DMatrix ... + _ + ReadOnly Property ReInvoiceReason As Controlling + Get + Return Me.RegistryRowsFinancialControlling.ReInvoiceReason + End Get + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + _ + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialPopup.vb new file mode 100644 index 0000000..9c2799c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialPopup.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + +Public Class RegistryRowsFinancialPopup + Inherits BaseObject + + Private _RegistryHeader As RegistryHeader + Private _VAT As VAT + Private _WorkflowSystemSteps As WorkflowSystemSteps + Private _HRPerson As HRPerson + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + _ + _ + Property WorkflowSystemSteps As WorkflowSystemSteps + Get + Return _WorkflowSystemSteps + End Get + Set(value As WorkflowSystemSteps) + SetPropertyValue("WorkflowSystemSteps", _WorkflowSystemSteps, value) + + If Session.IsObjectsLoading() = False And Session.IsObjectsSaving() = False And Me.WorkflowSystemSteps IsNot Nothing Then + If Me.WorkflowSystemSteps.HRResponsible IsNot Nothing Then + Me.HRPerson = Me.WorkflowSystemSteps.HRResponsible + Else + Me.HRPerson = Me.RegistryHeader.HRResponsible + End If + End If + End Set + End Property + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryTaskGoToNewtStepWithGLAccount.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryTaskGoToNewtStepWithGLAccount.vb new file mode 100644 index 0000000..58ccc73 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryTaskGoToNewtStepWithGLAccount.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class RegistryTaskGoToNewtStepWithGLAccount + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property CustomersFrom As CustomersFrom + + Property Controlling As Controlling + Property UniqueObjects As UniqueObjects + Property JobNumberObjects As JobNumberObjects + Property CostHolder As CostHolder + Property CostPlace As CostPlace + _ + Property IsReinvoice As Boolean = False + + _ + Property SelectedTasks As ArrayList + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransfer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransfer.vb new file mode 100644 index 0000000..7c36d3b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransfer.vb @@ -0,0 +1,164 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ + _ +Public Class RegistryBankTransfer + Inherits BaseObject + Private _RegistryHeader As RegistryHeader 'Iktatás fejléce + Private _AmountHUF As Double = 0 'Utalandó összeg HUF + Private _AmountDEV As Double = 0 'Utalandó összeg DEV + Private _DatePayment As Date 'Fizetési határidő + Private _IsBlocked As Boolean = False 'Blokkolva + Private _Note As String 'Utalásra kerülő megjegyzés + Private _BankSavedFileName As String 'Milyen banki csomagba ment el? + Private _BankPrepareName As String = "" 'Előkészítési megnevezés + Private _RowType As eHoldRowType = eHoldRowType.Normal + Private _BallanceDEV As Double 'Egyenleg (DEV) + Private _BallanceHUF As Double 'Egyenleg (HUF) + Private _Description_Private As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Session.IsNewObject(Me) Then + BankSavedFileName = "" + BankPrepareName = "" + End If + End Sub + _ + _ + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then + AmountHUF = Me.RegistryHeader.BruttoAmountRemainingBank + End If + End Set + End Property + Property AmountHUF As Double + Get + Return _AmountHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountHUF", _AmountHUF, value) + End Set + End Property + Property AmountDEV As Double + Get + Return _AmountDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("AmountDEV", _AmountDEV, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then + If Not Me.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + Me.AmountHUF = Math.Round((value * Me.RegistryHeader.F_CurrencyRate), 0, MidpointRounding.AwayFromZero) + End If + End If + End Set + End Property + _ + Property DatePayment As Date + Get + Return _DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("DatePayment", _DatePayment, value) + End Set + End Property + Property IsBlocked As Boolean + Get + Return _IsBlocked + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsBlocked", _IsBlocked, value) + End Set + End Property + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + End Set + End Property + Property BankSavedFileName As String + Get + Return _BankSavedFileName + End Get + Set(ByVal value As String) + SetPropertyValue("BankSavedFileName", _BankSavedFileName, value) + End Set + End Property + Property BankPrepareName As String + Get + Return _BankPrepareName + End Get + Set(value As String) + SetPropertyValue("BankPrepareName", _BankPrepareName, value) + End Set + End Property + Property RowType As eHoldRowType + Get + Return _RowType + End Get + Set(value As eHoldRowType) + SetPropertyValue("RowType", _RowType, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + Property BallanceDEV As Double + Get + Return _BallanceDEV + End Get + Set(value As Double) + SetPropertyValue("BallanceDEV", _BallanceDEV, value) + End Set + End Property + _ + Property Description_Private As String + Get + Return _Description_Private + End Get + Set(value As String) + SetPropertyValue("Description_Private", _Description_Private, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.Designer.vb new file mode 100644 index 0000000..7ef192d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class RegistryBankTransferVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBlockBankTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBlockBankTransfer + ' + Me.aBlockBankTransfer.Caption = "Block" + Me.aBlockBankTransfer.ConfirmationMessage = "Do you want to execute command ?" + Me.aBlockBankTransfer.Id = "aBlockBankTransfer" + Me.aBlockBankTransfer.ImageName = Nothing + Me.aBlockBankTransfer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBlockBankTransfer.Shortcut = Nothing + Me.aBlockBankTransfer.Tag = Nothing + Me.aBlockBankTransfer.TargetObjectsCriteria = Nothing + Me.aBlockBankTransfer.TargetViewId = Nothing + Me.aBlockBankTransfer.ToolTip = Nothing + Me.aBlockBankTransfer.TypeOfView = Nothing + + End Sub + Friend WithEvents aBlockBankTransfer As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.resx new file mode 100644 index 0000000..6d9f563 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb new file mode 100644 index 0000000..3a72277 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferVC.vb @@ -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.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Public Class RegistryBankTransferVC + 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 RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False) + If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then + Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True) + End If + If View.Id Like "*RegistryBankTransfer*" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", True) + If View.Id = "RegistryBankTransfer_ListView_Not_Transfered" Then + Frame.GetController(Of RegistryBankTransferVC).aBlockBankTransfer.Active.SetItemValue("", False) + End If + If View.Id Like "*RegistryBankTransfer*" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aBlockBankTransfer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBlockBankTransfer.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _RegistryBankTransferView As RegistryBankTransferView + Dim _RegistryBankTransfer As RegistryBankTransfer + For Each _RegistryBankTransferView In View.SelectedObjects + _RegistryBankTransfer = _uow.GetObjectByKey(Of RegistryBankTransfer)(_RegistryBankTransferView.Oid) + If _RegistryBankTransfer IsNot Nothing Then + If _RegistryBankTransfer.BankSavedFileName = "" Then + If _RegistryBankTransfer.IsBlocked = True Then + _RegistryBankTransfer.IsBlocked = False + Else + _RegistryBankTransfer.IsBlocked = True + End If + End If + End If + Next + _uow.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferView.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferView.vb new file mode 100644 index 0000000..814eb12 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryBankTransfer/RegistryBankTransferView.vb @@ -0,0 +1,38 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ + _ + _ +Public Class RegistryBankTransferView + Inherits XPLiteObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Oid As Guid + Public RegistryHeader As RegistryHeader + Public AmountHUF As Double + Public AmountDEV As Double + Public DatePayment As Date + Public IsBlocked As Boolean + Public Note As String + Public BankSavedFileName As String + Public BallanceHUF As Double + Public BallanceDEV As Double + Public DifferenceHUF As Double + Public DifferenceDEV As Double + Public OfferedHUF As Double + Public OfferedDEV As Double + Public BankPrepareName As String +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFileData.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFileData.vb new file mode 100644 index 0000000..95fc754 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFileData.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class RegistryFileData + Inherits FileAttachmentBase + Protected _RegistryHeader As RegistryHeader + Private _DocumentType As String + Private _DocumentFileData As DocumentFileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property DocumentType As String + Get + Return _DocumentType + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentType", _DocumentType, value) + End Set + End Property + _ + Public Property RegistryHeader() As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.Designer.vb new file mode 100644 index 0000000..f3f7548 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.Designer.vb @@ -0,0 +1,143 @@ +Partial Class RegistryFinancialVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aToTable_RRF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_RRF = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC_With_TContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC_With_RContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aToTable_RRF + ' + Me.aToTable_RRF.Caption = "aToTable_RRF" + Me.aToTable_RRF.Category = "aToTable_RRF" + Me.aToTable_RRF.ConfirmationMessage = Nothing + Me.aToTable_RRF.Id = "aToTable_RRF" + Me.aToTable_RRF.ImageName = Nothing + Me.aToTable_RRF.Shortcut = Nothing + Me.aToTable_RRF.Tag = Nothing + Me.aToTable_RRF.TargetObjectsCriteria = Nothing + Me.aToTable_RRF.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTable_RRF.TargetViewId = Nothing + Me.aToTable_RRF.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRF.ToolTip = Nothing + Me.aToTable_RRF.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_RRF + ' + Me.aToTableD_RRF.Caption = "aToTableD_RRF" + Me.aToTableD_RRF.Category = "aToTableD_RRF" + Me.aToTableD_RRF.ConfirmationMessage = Nothing + Me.aToTableD_RRF.Id = "aToTableD_RRF" + Me.aToTableD_RRF.ImageName = Nothing + Me.aToTableD_RRF.Shortcut = Nothing + Me.aToTableD_RRF.Tag = Nothing + Me.aToTableD_RRF.TargetObjectsCriteria = Nothing + Me.aToTableD_RRF.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTableD_RRF.TargetViewId = Nothing + Me.aToTableD_RRF.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_RRF.ToolTip = Nothing + Me.aToTableD_RRF.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_RRFC + ' + Me.aToTable_RRFC.Caption = "aToTable_RRFC" + Me.aToTable_RRFC.Category = "aToTable_RRFC" + Me.aToTable_RRFC.ConfirmationMessage = Nothing + Me.aToTable_RRFC.Id = "aToTable_RRFC" + Me.aToTable_RRFC.ImageName = Nothing + Me.aToTable_RRFC.Shortcut = Nothing + Me.aToTable_RRFC.Tag = Nothing + Me.aToTable_RRFC.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTable_RRFC.TargetViewId = Nothing + Me.aToTable_RRFC.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC.ToolTip = Nothing + Me.aToTable_RRFC.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_RRFC + ' + Me.aToTableD_RRFC.Caption = "aToTableD_RRFC" + Me.aToTableD_RRFC.Category = "aToTableD_RRFC" + Me.aToTableD_RRFC.ConfirmationMessage = Nothing + Me.aToTableD_RRFC.Id = "aToTableD_RRFC" + Me.aToTableD_RRFC.ImageName = Nothing + Me.aToTableD_RRFC.Shortcut = Nothing + Me.aToTableD_RRFC.Tag = Nothing + Me.aToTableD_RRFC.TargetObjectsCriteria = Nothing + Me.aToTableD_RRFC.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTableD_RRFC.TargetViewId = Nothing + Me.aToTableD_RRFC.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_RRFC.ToolTip = Nothing + Me.aToTableD_RRFC.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_RRFC_With_TContract + ' + Me.aToTable_RRFC_With_TContract.Caption = "aToTable_RRFC_With_TContract" + Me.aToTable_RRFC_With_TContract.Category = "aToTable_RRFC_With_TContract" + Me.aToTable_RRFC_With_TContract.ConfirmationMessage = Nothing + Me.aToTable_RRFC_With_TContract.Id = "aToTable_RRFC_With_TContract" + Me.aToTable_RRFC_With_TContract.ImageName = Nothing + Me.aToTable_RRFC_With_TContract.Shortcut = Nothing + Me.aToTable_RRFC_With_TContract.Tag = Nothing + Me.aToTable_RRFC_With_TContract.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC_With_TContract.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTable_RRFC_With_TContract.TargetViewId = Nothing + Me.aToTable_RRFC_With_TContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC_With_TContract.ToolTip = Nothing + Me.aToTable_RRFC_With_TContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_RRFC_With_RContract + ' + Me.aToTable_RRFC_With_RContract.AcceptButtonCaption = Nothing + Me.aToTable_RRFC_With_RContract.CancelButtonCaption = Nothing + Me.aToTable_RRFC_With_RContract.Caption = "aToTable_RRFC_With_RContract" + Me.aToTable_RRFC_With_RContract.Category = "aToTable_RRFC_With_RContract" + Me.aToTable_RRFC_With_RContract.ConfirmationMessage = Nothing + Me.aToTable_RRFC_With_RContract.Id = "aToTable_RRFC_With_RContract" + Me.aToTable_RRFC_With_RContract.ImageName = Nothing + Me.aToTable_RRFC_With_RContract.Shortcut = Nothing + Me.aToTable_RRFC_With_RContract.Tag = Nothing + Me.aToTable_RRFC_With_RContract.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC_With_RContract.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aToTable_RRFC_With_RContract.TargetViewId = Nothing + Me.aToTable_RRFC_With_RContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC_With_RContract.ToolTip = Nothing + Me.aToTable_RRFC_With_RContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aToTable_RRF As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_RRF As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_RRFC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC_With_TContract As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC_With_RContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.resx new file mode 100644 index 0000000..721168a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 17, 173 + + + 17, 212 + + + 17, 251 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb new file mode 100644 index 0000000..620158b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryFinancialVC.vb @@ -0,0 +1,328 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Data.Filtering + +Public Class RegistryFinancialVC + 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 = "RegistryHeader_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + + If _RegistryHeader IsNot Nothing Then + If _RegistryHeader.RegistryType IsNot Nothing Then + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + If _RegistryHeader.IsEditable = False Then + Else + Select Case _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType + Case eStepFinancialType.eCheckVAT, eStepFinancialType.eCheckVATPlusControlling + 'Frame.GetController(Of RegistryFinancialVC).aToTable_RRF.Active.SetItemValue("", False) + 'Frame.GetController(Of RegistryFinancialVC).aToTableD_RRF.Active.SetItemValue("", False) + End Select + End If + End If + End If + End If + End If + End Sub + + Private Sub aToTable_RRF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRF.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial + + If _RegistryHeader IsNot Nothing Then + _RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)() + _RegistryRowsFinancial.RegistryHeader = _RegistryHeader + _RegistryRowsFinancial.BruttoAmount = _RegistryHeader.row_VAT_BruttoAmount + _RegistryRowsFinancial.VAT = _RegistryHeader.row_VAT + _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT + + _ocur.CommitChanges() + View.Refresh() + + End If + + End Sub + + Private Sub aToTableD_RRF_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRF.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _ListView_RRF As ListPropertyEditor + If _RegistryHeader IsNot Nothing Then + _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancial") + If _ListView_RRF IsNot Nothing Then + + _ocur.Delete(_ListView_RRF.ListView.SelectedObjects) + _ocur.CommitChanges() + + View.Refresh() + End If + End If + End Sub + + Private Sub aToTable_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + If _RegistryHeader IsNot Nothing Then + + '//Banki csomag ellenrzse + If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then + If _RegistryHeader.RegistryBankTransfer.Count = 0 And _RegistryHeader.BruttoAmountRemainingBank = 0 Then + Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer.RegistryHeader = _RegistryHeader + _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment + _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV + _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF + End If + End If + + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ocur.GetObject(_RegistryHeader.row_RRFC_ContractRows) + _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount + _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects + + _ocur.CommitChanges() + + View.Refresh() + _RegistryHeader.row_RRFC_Amount = _RegistryHeader.NettoAmountRemaining + + End If + + End Sub + + Private Sub aToTableD_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRFC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _ListView_RRF As ListPropertyEditor + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _ContractRows_ArrayList As New ArrayList + + If _RegistryHeader IsNot Nothing Then + _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancialControlling") + If _ListView_RRF IsNot Nothing Then + For Each _RegistryRowsFinancialControlling In _ListView_RRF.ListView.SelectedObjects + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.Contracts IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.IsTechnical Then + _ContractRows_ArrayList.Add(_RegistryRowsFinancialControlling.ContractRows) + End If + End If + End If + Next + _ocur.Delete(_ListView_RRF.ListView.SelectedObjects) + _ocur.CommitChanges() + + View.Refresh() + End If + End If + End Sub + + Private Sub aToTable_RRFC_With_TContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract.Execute + '// Technikai szerzds sor + Tblzatba beads !!! + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre. + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryHeader.CustomersFrom)) + + Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, _TechnicalContractTemplate)) + Dim _ContractRows As ContractRows + + + + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _TechnicalLimitAmount As Double = _RegistryHeader.row_RRFC_Controlling.TechnicalContractLimit + If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000 + + If _RegistryHeader IsNot Nothing Then + '//Banki csomag ellenrzse + If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then + If _RegistryHeader.RegistryBankTransfer.Count = 0 And _RegistryHeader.BruttoAmountRemainingBank = 0 Then + Dim _RegistryBankTransfer As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer.RegistryHeader = _RegistryHeader + _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment + _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV + _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF + + End If + End If + End If + + If _RegistryHeader.row_RRFC_Amount <= _TechnicalLimitAmount Then + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.CustomersFrom = _RegistryHeader.CustomersFrom + _Contracts.Customers = _RegistryHeader.Customers + _Contracts.ContractTemplate = _TechnicalContractTemplate + _Contracts.DateCreated = _RegistryHeader.F_DateCreated + _Contracts.DateExecution = _RegistryHeader.F_DateExecution + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.State = State.Signed + End If + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling + If _RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount + Else + If _RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _RegistryHeader.row_RRFC_Amount / _RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount + End If + _ContractRows.ShortName = _RegistryHeader.row_RRFC_Note + _ContractRows.UniqueObjects = _RegistryHeader.UniqueObjects + + 'IDE KELL VALAMI FA ! + + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _ContractRows.VAT = _RegistryRowsFinancial.VAT + Exit For + Next + + _ContractRows.CostHolder = _RegistryHeader.row_RRFC_CostHolder + _ContractRows.CostPlace = _RegistryHeader.row_RRFC_CostPlace + _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling + _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount + _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects + + _ocur.CommitChanges() + + View.Refresh() + + _RegistryHeader.row_RRFC_Amount = _RegistryHeader.NettoAmountRemaining + Else + '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------ + Dim _Message As String = String.Format("Technikai limit van belltva ! {0}", _TechnicalLimitAmount) + Throw New Exception(_Message) + End If + + End Sub + + Private Sub aToTable_RRFC_With_RContract_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToTable_RRFC_With_RContract.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(Contracts)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and ContractTemplate.PartnerType=1 and ContractTemplate.IsTechnical=False and (State = 1 OR State = 2)", _RegistryHeader.CustomersFrom.Oid, _RegistryHeader.Customers.Oid)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("Contracts_Finder_Payables", _CS, False) + End Sub + + Private Sub aToTable_RRFC_With_RContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToTable_RRFC_With_RContract.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _Contracts As Contracts = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Contracts)) + Dim _ContractRows As ContractRows + If _Contracts Is Nothing Then Exit Sub + + If _RegistryHeader IsNot Nothing And _Contracts IsNot Nothing Then + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling + _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName + _ContractRows.NettoPriceHUF = _RegistryHeader.row_RRFC_Amount + If Not _ContractRows.CurrencyName.ShortName = "HUF" Then + If _RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = Math.Round(_RegistryHeader.row_RRFC_Amount / _RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + _ContractRows.ShortName = _RegistryHeader.row_RRFC_Note + _ContractRows.UniqueObjects = _RegistryHeader.UniqueObjects + If _RegistryHeader.RegistryRowsFinancial.Count > 0 Then + _ContractRows.VAT = TryCast(_RegistryHeader.RegistryRowsFinancial(0), RegistryRowsFinancial).VAT + End If + _ContractRows.CostHolder = _RegistryHeader.row_RRFC_CostHolder + _ContractRows.CostPlace = _RegistryHeader.row_RRFC_CostPlace + _ContractRows.Controlling = _RegistryHeader.row_RRFC_Controlling + _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects + _ContractRows.QTT = 1 + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _RegistryHeader.row_RRFC_Amount + _RegistryRowsFinancialControlling.Controlling = _RegistryHeader.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryHeader.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryHeader.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryHeader.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryHeader.JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects + + _ocur.CommitChanges() + + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + + Private Sub aRegistryTaskGotoNextStepWithFC_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) + + End Sub + + Private Sub aRegistryTaskGotoNextStepWithFC_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryHeader.vb new file mode 100644 index 0000000..aaf5bb0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryHeader.vb @@ -0,0 +1,1433 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +' A bekérõ, elõleg és végszámla iktatáshoz tartozó szabályok +' _ +' _ +' _ +' 0)", ViewType.DetailView)> +' _ +' _ +' _ +' _ +' _ + +' _ +' _ +' _ +' 0", ViewType.DetailView)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class RegistryHeader '-- iktatórendszer + Inherits BaseObject + Private _CustomersFrom As CustomersFrom 'Saját cég + Private _Customers As Customers 'Partner + Private _Contacts As Contacts 'Partner kapcsolat, ha van kiválasztás akkor aut. partner + Private _RegistryType As RegistryType 'Iktatás típusa + Private _RegistryAcceptState As eRegistryAcceptState 'Elfogadva, vagy elutasítva + Private _ShortName As String 'Megnevezés + Private _DocumentNumber As String 'Bizonylatszám + Private _RegistryNumber As String 'Iktatószám (a gép adja) + Private _JobNumberObjects As JobNumberObjects 'Munkaszám + Private _UniqueObjects As UniqueObjects 'Egyedi + Private _DateCreated As Date = Now ' Dátum + Private _DeliveryType As eDeliveryType 'Érkezés küldés módja + Private _ReturnType As eDeliveryType ' Visszaküldés módja + Private _DateReturn As Date 'Visszaküldés dátuma + Private _RegistryRows As XPCollection(Of RegistryRows) 'Iktató sorok + Private _DocumentFile As FileData + Private _IsEditable As Boolean = True 'Szerkeszthetõ vagy végleges + Private _IsStorno As Boolean = False + Private _IsTemplate As Boolean = False + Private _CurrentWorkflowSystemSteps As WorkflowSystemSteps 'Hanyadik lépésnél tart a dolog + Private _HRResponsible As HRPerson 'Fõfelelõs + Private _F_ConnectInfo As String 'Pontozási azonosító (mínuszos számlák miatt) + Private _F_AdvanceAsk As RegistryHeader 'Ha elõlegszámla akkor a hozzá tartozó elõleg bekérõ megadása kötelezõ + Private _F_FinalInvoice As RegistryHeader ' Ha elõlegszámla akkor melyik végszámlához tartozik + Private _F_DateCreated As Date 'Számla kiállítási dátuma + Private _F_DateExecution As Date 'Számla teljesítési dátuma + Private _F_DateVAT As Date ' -- ÁFA dátuma + Private _F_VATAvowalType As eVATAvowalType 'ÁFA bevallás módja + Private _F_DatePayment As Date ' Számla fizetési határideje + Private _F_AmountBruttoHUF As Double 'A számla végösszege bruttó HUF + Private _F_AmountBruttoDEV As Double 'A számla végösszege bruttó DEV + Private _F_CurrencyRate As Double = 1 'Árfolyam, ha nem HUF + Private _F_CurrencyName As CurrencyName ' A számla devizaneme + Private _F_CustomerBankAccounts As CustomerBankAccounts 'Partner bankszámlaszáma + Private _F_IsImported As Boolean = False 'Fõkönyvbe be lett e már rögzítve + Private _F_GLAccounts As GLAccounts 'A fõkönyvbe feladott szla + Private _F_Paymode As ePayMode = ePayMode.NotSet + Private _F_BookEntryErrorString As String = "" 'A szállítói számla, akkor a szállítói számla feladásakor feladási hibaüzenet. + Private _F_ReadyforBookEntry As Boolean = False + Private _BruttoAmountRemaining As Double 'ÁFÁ-ra bontás mennyi van még + Private _BruttoAmountRemainingBank As Double = 0 'Utalásra bontásból mennyi van még + Private _NettoAmountRemaining As Double 'Nettóra bontás mennyi van még + Private _CauseOfRefuse As String ' -- Visszaküldés oka + Private _CRM_Opportunities As CRM_Opportunities + Private _UserCreated As User 'Létrehozta + + '// Nonpersistent propertyk annak érdekében, hogy ÁFA + Számlaigazolás gyorsabb legyen + + Private _row_VAT As VAT + Private _row_VAT_BruttoAmount As Double + + '// Nonpersistent propertyk a gyors számlaigazolás elkészítéséhez + + Private _row_RRFC_Controlling As Controlling + Private _row_RRFC_CostPlace As CostPlace + Private _row_RRFC_CostHolder As CostHolder + Private _row_RRFC_UniqueObjects As UniqueObjects + Private _row_RRFC_JobNumberObjects As JobNumberObjects + Private _row_RRFC_Note As String + Private _row_RRFC_Amount As Double + Private _row_RRFC_ContractRows As ContractRows + + Public Sub New(ByVal session As Session) + MyBase.New(session) + RegistryAcceptState = 0 + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.DeliveryType = eDeliveryType.ePostal + Me.F_CurrencyName = Session.FindObject(Of CurrencyName)(1, CriteriaOperator.Parse("ShortName='HUF'")) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) = True Then + If RegistryNumber = "" And IsEditable = False Then + DateCreated = GetSQLTime(Session) + End If + End If + If Me.RegistryNumber = "" Then + If Me.RegistryType IsNot Nothing Then + Me.RegistryNumber = Me.RegistryType.NumberGenerator.GetNewNumber(Me.RegistryType.NumberGenerator, Year(Me.DateCreated).ToString, Month(Me.DateCreated).ToString) + End If + End If + If Session.IsNewObject(Me) Then + Dim _UserCreated As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + + If _RegistryType IsNot Nothing Then + If _RegistryType.AutomaticSetResponsible = True Then + Dim _HRPerson As HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _UserCreated)) + If _HRPerson IsNot Nothing Then + Me.HRResponsible = _HRPerson + End If + End If + End If + Me.UserCreated = _UserCreated + End If + End Sub + + _ + _ + Property CustomersFrom() As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Me.F_CustomerBankAccounts = Nothing + End If + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + 'If value Is Nothing Then + 'Else + ' Customers = value.Customers + 'End If + End Set + End Property + _ + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + 4 and RegistryGLAccount=False")> _ + _ + Property RegistryType() As RegistryType + Get + Return _RegistryType + End Get + Set(ByVal value As RegistryType) + SetPropertyValue("RegistryType", _RegistryType, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.CurrentWorkflowSystemSteps Is Nothing Then + If Me.RegistryType.WorkflowSystem Is Nothing Then + Else + CurrentWorkflowSystemSteps = Session.FindObject(Of WorkflowSystemSteps)(1, CriteriaOperator.Parse("StepIndex=1 and WorkflowSystem=?", Me.RegistryType.WorkflowSystem)) + End If + End If + If Me.CustomersFrom IsNot Nothing And value IsNot Nothing Then + If Me.IsEditable = True Then + If Me.RegistryNumber = "" Or Me.RegistryNumber Is Nothing Then + RegistryNumber = Me.RegistryType.NumberGenerator.GetNewNumber(Me.RegistryType.NumberGenerator, DateCreated.Date.Year.ToString, DateCreated.Date.Month.ToString) + Me.Save() + Session.CommitTransaction() + End If + End If + End If + End If + End Set + End Property + _ + Property RegistryAcceptState As eRegistryAcceptState + Get + Return _RegistryAcceptState + End Get + Set(ByVal value As eRegistryAcceptState) + SetPropertyValue("RegistryAcceptState", _RegistryAcceptState, value) + End Set + End Property + _ + Property DocumentNumber() As String + Get + Return _DocumentNumber + End Get + Set(ByVal value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If F_ConnectInfo <> value Then + F_ConnectInfo = value + End If + End If + End Set + End Property + Property RegistryNumber() As String + Get + Return _RegistryNumber + End Get + Set(ByVal value As String) + SetPropertyValue("RegistryNumber", _RegistryNumber, value) + End Set + End Property + Property JobNumberObjects() As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + Property UniqueObjects() As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property DateCreated() As Date + Get + Return _DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("DateCreated", _DateCreated, value) + End Set + End Property + _ + Property DeliveryType() As eDeliveryType + Get + Return _DeliveryType + End Get + Set(ByVal value As eDeliveryType) + SetPropertyValue("DeliveryType", _DeliveryType, value) + End Set + End Property + Property ReturnType As eDeliveryType + Get + Return _ReturnType + End Get + Set(ByVal value As eDeliveryType) + SetPropertyValue("ReturnType", _ReturnType, value) + End Set + End Property + Property DateReturn As Date + Get + Return _DateReturn + End Get + Set(ByVal value As Date) + SetPropertyValue("DateReturn", _DateReturn, value) + End Set + End Property + + + _ + _ + Property DocumentFile() As FileData + Get + Return _DocumentFile + End Get + Set(ByVal value As FileData) + SetPropertyValue("DocumentFile", _DocumentFile, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property IsStorno As Boolean + Get + Return _IsStorno + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsStorno", _IsStorno, value) + End Set + End Property + Property IsTemplate As Boolean + Get + Return _IsTemplate + End Get + Set(value As Boolean) + SetPropertyValue("IsTemplate", _IsTemplate, value) + End Set + End Property + _ + Property HRResponsible As HRPerson + Get + Return _HRResponsible + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRResponsible", _HRResponsible, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(ByVal value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + ' _ + ' _ + 'Property F_AdvanceAsk As RegistryHeader + ' Get + ' Return _F_AdvanceAsk + ' End Get + ' Set(ByVal value As RegistryHeader) + ' SetPropertyValue("F_AdvanceAsk", _F_AdvanceAsk, value) + ' End Set + 'End Property + 'Property F_FinalInvoice As RegistryHeader + ' Get + ' Return _F_FinalInvoice + ' End Get + ' Set(ByVal value As RegistryHeader) + ' SetPropertyValue("F_FinalInvoice", _F_FinalInvoice, value) + ' End Set + 'End Property + _ + Property F_DateCreated As Date + Get + Return _F_DateCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("F_DateCreated", _F_DateCreated, value) + End Set + End Property + _ + Property F_DateExecution As Date + Get + Return _F_DateExecution + End Get + Set(ByVal value As Date) + SetPropertyValue("F_DateExecution", _F_DateExecution, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + Me.F_DateVAT = value + If F_PayMode = ePayMode.InContinuous Then + F_DatePayment = value + End If + If F_CurrencyName IsNot Nothing Then + If F_CurrencyName.ShortName <> "HUF" Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(Session, _ + CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?", _ + F_CurrencyName, value.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = F_DateExecution.Date Then + F_CurrencyRate = _CurrencyRate_MNB.RateAverage + Exit For + End If + Exit For + Next + End If + End If + End If + End If + End Set + End Property + _ + Property F_DateVAT As Date + Get + Return _F_DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("F_DateVAT", _F_DateVAT, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If Me.RegistryRowsFinancial.Count > 0 Then + For Each _RegistryRowsFinancial As RegistryRowsFinancial In Me.RegistryRowsFinancial + If Not _RegistryRowsFinancial.DateVAT = value Then + _RegistryRowsFinancial.DateVAT = value + End If + Next + End If + End If + End Set + End Property + Property F_VATAvowalType As eVATAvowalType + Get + Return _F_VATAvowalType + End Get + Set(value As eVATAvowalType) + SetPropertyValue("F_VATAvowalType", _F_VATAvowalType, value) + End Set + End Property + _ + Property F_DatePayment As Date + Get + Return _F_DatePayment + End Get + Set(ByVal value As Date) + SetPropertyValue("F_DatePayment", _F_DatePayment, value) + End Set + End Property + _ + Property F_AmountBruttoHUF As Double + Get + Return _F_AmountBruttoHUF + End Get + Set(ByVal value As Double) + SetPropertyValue("F_AmountBruttoHUF", _F_AmountBruttoHUF, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + row_VAT_BruttoAmount = value + End If + End If + End Set + End Property + Property F_AmountBruttoDEV As Double + Get + Return _F_AmountBruttoDEV + End Get + Set(ByVal value As Double) + SetPropertyValue("F_AmountBruttoDEV", _F_AmountBruttoDEV, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + Me.F_AmountBruttoHUF = Math.Round((Me.F_AmountBruttoDEV * F_CurrencyRate), 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + + _ + Property F_CurrencyRate As Double + Get + Return _F_CurrencyRate + End Get + Set(ByVal value As Double) + SetPropertyValue("F_CurrencyRate", _F_CurrencyRate, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + Me.F_AmountBruttoHUF = Math.Round((Me.F_AmountBruttoDEV * F_CurrencyRate), 0, MidpointRounding.AwayFromZero) + End If + End Set + End Property + _ + _ + Property F_CurrencyName As CurrencyName + Get + Return _F_CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("F_CurrencyName", _F_CurrencyName, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If F_CurrencyName IsNot Nothing Then + If F_CurrencyName.ShortName <> "HUF" Then + Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(Session, _ + CriteriaOperator.Parse("CurrencyName=? and IsMNB=True and GetDate(DateValid)<=?", _ + F_CurrencyName, F_DateExecution.Date)) + _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + If _CurrencyRate_MNB_Collection.Count > 0 Then + For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection + If _CurrencyRate_MNB.DateValid.Date = F_DateExecution.Date Then + F_CurrencyRate = _CurrencyRate_MNB.RateAverage + Exit For + End If + Exit For + Next + End If + End If + End If + End If + End Set + End Property + _ + _ + Property F_CustomerBankAccounts As CustomerBankAccounts + Get + Return _F_CustomerBankAccounts + End Get + Set(ByVal value As CustomerBankAccounts) + SetPropertyValue("F_CustomerBankAccounts", _F_CustomerBankAccounts, value) + End Set + End Property + _ + _ + Property F_PayMode As ePayMode + Get + Return _F_Paymode + End Get + Set(ByVal value As ePayMode) + SetPropertyValue("F_PayMode", _F_Paymode, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If value = ePayMode.InContinuous Then + F_DatePayment = _F_DateExecution + End If + If value = ePayMode.InCash Then + F_DateExecution = F_DateCreated + F_DatePayment = F_DateCreated + End If + End If + End Set + End Property + Property CurrentWorkflowSystemSteps As WorkflowSystemSteps + Get + Return _CurrentWorkflowSystemSteps + End Get + Set(ByVal value As WorkflowSystemSteps) + SetPropertyValue("CurrentWorkflowSystemSteps", _CurrentWorkflowSystemSteps, value) + End Set + End Property + + Property F_IsImported As Boolean + Get + Return _F_IsImported + End Get + Set(ByVal value As Boolean) + SetPropertyValue("F_IsImported", _F_IsImported, value) + End Set + End Property + Property F_GLAccounts As GLAccounts + Get + Return _F_GLAccounts + End Get + Set(ByVal value As GLAccounts) + SetPropertyValue("F_GLAccounts", _F_GLAccounts, value) + End Set + End Property + _ + Property F_BookEntryErrorString As String + Get + Return _F_BookEntryErrorString + End Get + Set(ByVal value As String) + SetPropertyValue("F_BookEntryErrorString", _F_BookEntryErrorString, value) + End Set + End Property + Property F_ReadyforBookEntry As Boolean + Get + Return _F_ReadyforBookEntry + End Get + Set(ByVal value As Boolean) + SetPropertyValue("F_ReadyforBookEntry", _F_ReadyforBookEntry, value) + End Set + End Property + _ + Property F_ConnectInfo As String + Get + Return _F_ConnectInfo + End Get + Set(value As String) + SetPropertyValue("F_ConnectInfo", _F_ConnectInfo, value) + End Set + End Property + + ReadOnly Property F_IsBookEntry As Boolean + Get + If _F_GLAccounts IsNot Nothing Then + Return True + Else + Return False + End If + End Get + End Property + _ + _ + Property BruttoAmountRemaining As Double + Get + Dim _RowsAmount As Double = 0 + Dim _RegistryRowsFinancial As RegistryRowsFinancial + For Each _RegistryRowsFinancial In Me.RegistryRowsFinancial + If Session.IsNewObject(_RegistryRowsFinancial) = False Then + _RowsAmount += _RegistryRowsFinancial.BruttoAmount + End If + Next + _BruttoAmountRemaining = F_AmountBruttoHUF - _RowsAmount + Return Math.Round(_BruttoAmountRemaining, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("BruttoAmountRemainig", _BruttoAmountRemaining, value) + End Set + End Property + _ + _ + Property NettoAmountRemaining As Double + Get + Dim _RowsAmount As Double = 0 + Dim _VATAmount As Double = 0 + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancial As RegistryRowsFinancial + For Each _RegistryRowsFinancial In Me.RegistryRowsFinancial + If _RegistryRowsFinancial.VAT IsNot Nothing Then + _VATAmount += _RegistryRowsFinancial.BruttoAmount / (100 + _RegistryRowsFinancial.VAT.KeyValuePercent) * _RegistryRowsFinancial.VAT.KeyValuePercent + Else + + End If + Next + _VATAmount = Math.Round(_VATAmount, 0, MidpointRounding.AwayFromZero) + For Each _RegistryRowsFinancialControlling In Me.RegistryRowsFinancialControlling + If Session.IsNewObject(_RegistryRowsFinancialControlling) = False Then + _RowsAmount += _RegistryRowsFinancialControlling.Amount + End If + Next + _NettoAmountRemaining = F_AmountBruttoHUF - _VATAmount - _RowsAmount + 'Me.row_RRFC_Amount = _NettoAmountRemaining + Return Math.Round(_NettoAmountRemaining, 2, MidpointRounding.AwayFromZero) + End Get + Set(ByVal value As Double) + SetPropertyValue("NettoAmountRemainig", _NettoAmountRemaining, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If RegistryType IsNot Nothing Then + If RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + If Me.row_RRFC_ContractRows Is Nothing Then + 'Me.row_RRFC_Amount = value + End If + End If + End If + value = Math.Round(value, 2, MidpointRounding.AwayFromZero) + End If + + End Set + End Property + _ + Property BruttoAmountRemainingBank As Double + Get + If Me._F_Paymode = ePayMode.InTransfer Then + Dim _RowsAmountHUF As Double = 0 + Dim _RegistryBankTransfer As RegistryBankTransfer + For Each _RegistryBankTransfer In Me.RegistryBankTransfer + _RowsAmountHUF += _RegistryBankTransfer.AmountHUF + Next + _BruttoAmountRemainingBank = F_AmountBruttoHUF - _RowsAmountHUF + Return _BruttoAmountRemainingBank + Else + Return 0 + End If + End Get + Set(ByVal value As Double) + SetPropertyValue("BruttoAmountRemainigBank", _BruttoAmountRemainingBank, value) + End Set + End Property + Property CauseOfRefuse As String + Get + Return _CauseOfRefuse + End Get + Set(ByVal value As String) + SetPropertyValue("CauseOfRefuse", _CauseOfRefuse, value) + End Set + End Property + ' _ + _ + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(ByVal value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property + ReadOnly Property HasTransferedBank As Boolean ' -- van e a számlának utalási csomagba tett tétele? mert akkor nem szabad módosítani a számla összegét! + Get + Dim _HasTransferedBank As Boolean = False + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If Me.RegistryBankTransfer.Count > 0 Then + For Each _RegistryBankTransfer As RegistryBankTransfer In Me.RegistryBankTransfer + If Not _RegistryBankTransfer.BankSavedFileName = "" Then + _HasTransferedBank = True + End If + Next + End If + End If + Return _HasTransferedBank + End Get + End Property + _ + ReadOnly Property DisplayName As String + Get + If RegistryType IsNot Nothing And RegistryNumber IsNot Nothing And Customers IsNot Nothing Then + Return RegistryType.ShortName & ", " & RegistryNumber & ", " & Customers.FullName + Else + Return "" + End If + End Get + End Property + + + '// Nonpersistent propertyk VAT igazoláshoz + _ + Property row_VAT As VAT + Get + Return _row_VAT + End Get + Set(value As VAT) + SetPropertyValue("row_VAT", _row_VAT, value) + End Set + End Property + _ + Property row_VAT_BruttoAmount As Double + Get + Return _row_VAT_BruttoAmount + End Get + Set(value As Double) + SetPropertyValue("row_VAT_BruttoAmount", _row_VAT_BruttoAmount, value) + End Set + End Property + + '// Nonpersistent propertyk RRFC igazoláshoz + _ + _ + _ + Property row_RRFC_Controlling As Controlling + Get + Return _row_RRFC_Controlling + End Get + Set(value As Controlling) + SetPropertyValue("row_RRFC_Controlling", _row_RRFC_Controlling, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_CostPlace As CostPlace + Get + Return _row_RRFC_CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("row_RRFC_CostPlace", _row_RRFC_CostPlace, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_CostHolder As CostHolder + Get + Return _row_RRFC_CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("row_RRFC_CostHolder", _row_RRFC_CostHolder, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_JobNumberObjects As JobNumberObjects + Get + Return _row_RRFC_JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("row_RRFC_JobNumberObjects", _row_RRFC_JobNumberObjects, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_UniqueObjects As UniqueObjects + Get + Return _row_RRFC_UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("row_RRFC_UniqueObjects", _row_RRFC_UniqueObjects, value) + End Set + End Property + + _ + Property row_RRFC_Note As String + Get + Return _row_RRFC_Note + End Get + Set(value As String) + SetPropertyValue("row_RRFC_Note", _row_RRFC_Note, value) + End Set + End Property + _ + Property row_RRFC_Amount As Double + Get + Return _row_RRFC_Amount + End Get + Set(value As Double) + SetPropertyValue("row_RRFC_Amount", _row_RRFC_Amount, value) + End Set + End Property + _ + _ + _ + _ + Property row_RRFC_ContractRows As ContractRows + Get + Return _row_RRFC_ContractRows + End Get + Set(value As ContractRows) + SetPropertyValue("row_RRFC_ContractRows", _row_RRFC_ContractRows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + + row_RRFC_Controlling = value.Controlling + row_RRFC_UniqueObjects = value.UniqueObjects + row_RRFC_Note = value.Description + row_RRFC_CostHolder = value.CostHolder + row_RRFC_CostPlace = value.CostPlace + row_RRFC_JobNumberObjects = value.JobNumberObjects + + If Me.F_CurrencyName.ShortName <> "HUF" Then + row_RRFC_Amount = Math.Round(value.NettoPriceDEV * Me.F_CurrencyRate, 0, MidpointRounding.AwayFromZero) + Else + Me.row_RRFC_Amount = value.NettoPriceHUF + End If + End If + End If + End Set + End Property + + + _ + ReadOnly Property IsVATClosed As Boolean + Get + Dim _Closed As Boolean = False + If Me.CustomersFrom IsNot Nothing Then + If Me.RegistryType IsNot Nothing Then + Select Case Me.RegistryType.RegistryMainType + Case eRegistryMainType.eAccount, eRegistryMainType.eInvoiceAdvance, eRegistryMainType.eInvoiceFinal + Dim _VATReport As VATReport = Session.FindObject(Of VATReport) _ + (CriteriaOperator.Parse("GetDate(DateFrom)<=? and GetDate(DateTo)>=? and CustomersFrom=? and Closed=True", _ + Me.F_DateVAT.Date, Me.F_DateVAT.Date, Me.CustomersFrom)) + If _VATReport IsNot Nothing Then + _Closed = _VATReport.Closed + End If + End Select + End If + End If + Return _Closed + End Get + End Property + + '-- XPCollections ------------------- + _ + ReadOnly Property RegistryRows() As XPCollection(Of RegistryRows) + Get + Return GetCollection(Of RegistryRows)("RegistryRows") + End Get + End Property + _ + ReadOnly Property RegistryRowsFinancial() As XPCollection(Of RegistryRowsFinancial) + Get + Return GetCollection(Of RegistryRowsFinancial)("RegistryRowsFinancial") + End Get + End Property + _ + ReadOnly Property RegistryRowsFinancialControlling() As XPCollection(Of RegistryRowsFinancialControlling) + Get + Return GetCollection(Of RegistryRowsFinancialControlling)("RegistryRowsFinancialControlling") + End Get + End Property + _ + ReadOnly Property RegistryTasks As XPCollection(Of RegistryTasks) + Get + Return New XPCollection(Of RegistryTasks)(Session, CriteriaOperator.Parse("RegistryHeader=?", Me)) + End Get + End Property + _ + ReadOnly Property RegistryFileData As XPCollection(Of RegistryFileData) + Get + Return GetCollection(Of RegistryFileData)("RegistryFileData") + End Get + End Property + _ + ReadOnly Property PCIDetail As XPCollection(Of PCIDetail) + Get + If Session.IsNewObject(Me) = False Then + If Me.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + Return New XPCollection(Of PCIDetail)(Session, _ + CriteriaOperator.Parse("CustomersFrom=? and Customers=? and PartnerType=1 and ConnectInfo=?", _ + Me.CustomersFrom, Me.Customers, Me.DocumentNumber)) + Else + Return Nothing + End If + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property WorkFlowCollection As XPCollection(Of WorkflowSystemSteps) + Get + If Me.RegistryType Is Nothing Then + Return Nothing + End If + If Me.RegistryType.WorkflowSystem Is Nothing Then + Return Nothing + End If + Dim _WorkFlowSystemSteps_Collection As New XPCollection(Of WorkflowSystemSteps)(Session, CriteriaOperator.Parse("WorkflowSystem=?", Me.RegistryType.WorkflowSystem)) + Return _WorkFlowSystemSteps_Collection + End Get + End Property + _ + ReadOnly Property RegistryBankTransfer As XPCollection(Of RegistryBankTransfer) + Get + Return GetCollection(Of RegistryBankTransfer)("RegistryBankTransfer") + End Get + End Property + _ + ReadOnly Property ChartOfAccountsYearIsClosed As Boolean + Get + If Me.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + Dim _ChartOfAccountsYear As ChartOfAccountsYear = Session.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", Me.F_DateExecution.Year)) + If _ChartOfAccountsYear Is Nothing Then + Return True + Else + Return _ChartOfAccountsYear.IsClosed + End If + Else + Return False + End If + End Get + End Property + '--Metódusok ----------------------------------- + ' _ + ' _ + 'Public Function ESR_F_CurrencyRate( ByRef active As Boolean) As EditorState + ' active = _F_CurrencyName.ShortName = "HUF" + ' Return EditorState.Hidden + 'End Function + ' _ + ' _ + 'Public Function ESR_F_RegistryBankTransfer( ByRef active As Boolean) As EditorState + ' If Me.RegistryType IsNot Nothing Then + ' active = Not ((F_PayMode = ePayMode.InTransfer Or F_PayMode = ePayMode.InContinuous) And Me.RegistryType.RegistryMainType = eRegistryMainType.eAccount) + ' Return EditorState.Hidden + ' End If + 'End Function + Sub BookEntryRemove(ByVal _p_RegistryHeader As RegistryHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False, Optional _KeepReady As Boolean = False) + 'Az eljárás visszavon egy feladást a fõkönyvbõl + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + Dim _RegistryHeader As RegistryHeader = _uow.GetObjectByKey(Of RegistryHeader)(_p_RegistryHeader.Oid) + + Dim _ChartOfAccountsYear As ChartOfAccountsYear = _uow.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _RegistryHeader.F_DateExecution.Year)) + If _ChartOfAccountsYear.IsClosed Then + _RegistryHeader.F_BookEntryErrorString = String.Format("Zárolt főkönyvi év ! {0}", _RegistryHeader.F_DateExecution.Year.ToString) + _RegistryHeader.Save() + If _WithCommit Then _uow.CommitTransaction() + Exit Sub + End If + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_uow, CriteriaOperator.Parse("GLHeader.Oid=?", _RegistryHeader.F_GLAccounts.Oid)) + _uow.Delete(_GLRows_Collection) + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("Oid=?", _RegistryHeader.F_GLAccounts.Oid)) + _uow.Delete(_GLAccounts_Collection) + + _RegistryHeader.F_GLAccounts = Nothing + _RegistryHeader.F_ReadyforBookEntry = False + + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + If _KeepReady = False Then _RegistryRowsFinancial.F_ReadyforBookEntryRows = False + Next + + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + If _KeepReady = False Then _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = False + Next + + If _WithCommit Then _uow.CommitChanges() + End Sub + Sub BookEntry(ByVal _p_BookEntryMode As Long, ByVal _p_RegistryHeader As RegistryHeader, ByVal _uow As UnitOfWork, Optional ByVal _WithCommit As Boolean = False) + ' Az eljárás feladást készít errõl a számláról + ' BookentryMode=0 akkor tételes fealás + ' BookentryMode=1 akkor jelölõadatokra csoportosított feladás + If _p_RegistryHeader Is Nothing Then Exit Sub + + Dim _RegistryHeader As RegistryHeader = _uow.GetObjectByKey(Of RegistryHeader)(_p_RegistryHeader.Oid) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _GLAccounts As GLAccounts + Dim _GLRows As GLRows + Dim _CreditChartOfAccounts As ChartOfAccounts + Dim _GUID As Guid = Guid.NewGuid + Dim _DebitChartOfAccounts As ChartOfAccounts + Dim _AmountDEV As Double = 0 + ' Megnézi, hogy történt-e már feladás + If _RegistryHeader.F_GLAccounts IsNot Nothing Then + BookEntryRemove(_RegistryHeader, _uow, False) + End If + If BookEntryCheck(_p_BookEntryMode, _RegistryHeader, _uow, _WithCommit) = False Then + + Exit Sub + End If + If _p_BookEntryMode = 0 Then 'Tételes feladás a fõkönyvbe + _GLAccounts = New GLAccounts(_uow) + _GLAccounts.AmountDEVBrutto = _RegistryHeader.F_AmountBruttoDEV + _GLAccounts.AmountHUFBrutto = _RegistryHeader.F_AmountBruttoHUF + _GLAccounts.ImportedRegistryHeader = _RegistryHeader + _GLAccounts.Customers = _RegistryHeader.Customers + + If _RegistryHeader.RegistryType.RegistryDirection = eRegistryDirection.eOutput Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + _DebitChartOfAccounts = _RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eOut) + Else + _GLAccounts.PartnerType = ePartnerType.ePayabels + _CreditChartOfAccounts = _RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eIn) + End If + + _GLAccounts.CurrencyName = _RegistryHeader.F_CurrencyName + _GLAccounts.CurrencyRate = _RegistryHeader.F_CurrencyRate + _GLAccounts.CustomersFrom = _RegistryHeader.CustomersFrom + _GLAccounts.DateCreated = _RegistryHeader.F_DateCreated.Date + _GLAccounts.DateExecution = _RegistryHeader.F_DateExecution.Date + _GLAccounts.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=?", _RegistryHeader.F_PayMode), True) + _GLAccounts.DatePayment = _RegistryHeader.F_DatePayment.Date + _GLAccounts.DocumentFile = _RegistryHeader.DocumentFile + _GLAccounts.DocumentNumber = _RegistryHeader.DocumentNumber + _GLAccounts.ConnectInfo = _RegistryHeader.F_ConnectInfo + _GLAccounts.IsEditable = False + _GLAccounts.IsStorno = False + _GLAccounts.NoteHeader = _RegistryHeader.ShortName + _GLAccounts.RegistryNumber = _RegistryHeader.RegistryNumber + + + _GLAccounts.Save() + + _RegistryHeader.F_GLAccounts = _GLAccounts + _RegistryHeader.Save() + '--- Nettó sorok + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + '-- Netto sor + _GLRows = New GLRows(_uow) + If _RegistryRowsFinancialControlling.DateExecution = Nothing Then + _GLRows.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution + Else + _GLRows.DateExecution = _RegistryRowsFinancialControlling.DateExecution + End If + + _GLRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.ChartOfAccounts Is Nothing Then + + '// Ha szállítói számláról van szó + If _RegistryHeader.RegistryType.RegistryDirection = eRegistryDirection.eOutput Then + _CreditChartOfAccounts = _RegistryRowsFinancialControlling.Controlling.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, False) + Else + If _RegistryRowsFinancialControlling.IsReInvoice = True Then + _DebitChartOfAccounts = _RegistryRowsFinancialControlling.Controlling.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, True) + Else + _DebitChartOfAccounts = _RegistryRowsFinancialControlling.Controlling.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, False) + End If + End If + + Else + _DebitChartOfAccounts = _RegistryRowsFinancialControlling.ChartOfAccounts + End If + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _ + _RegistryRowsFinancialControlling.Amount, Nothing, _RegistryHeader.Customers, _RegistryHeader.F_DateVAT, Nothing, _ + _RegistryRowsFinancialControlling.Note, _RegistryRowsFinancialControlling.UniqueObjects, _RegistryRowsFinancialControlling.Controlling, _RegistryRowsFinancialControlling.JobNumberObjects, _ + _RegistryRowsFinancialControlling.CostPlace, _RegistryRowsFinancialControlling.CostHolder, _RegistryHeader.F_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.ePayabels) + Else + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _RegistryRowsFinancialControlling.Amount / _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate, _ + _RegistryRowsFinancialControlling.Amount, Nothing, _RegistryHeader.Customers, _RegistryHeader.F_DateVAT, Nothing, _ + _RegistryRowsFinancialControlling.Note, _RegistryRowsFinancialControlling.UniqueObjects, _RegistryRowsFinancialControlling.Controlling, _RegistryRowsFinancialControlling.JobNumberObjects, _ + _RegistryRowsFinancialControlling.CostPlace, _RegistryRowsFinancialControlling.CostHolder, _RegistryHeader.F_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.ePayabels) + Else + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, 0, _ + _RegistryRowsFinancialControlling.Amount, Nothing, _RegistryHeader.Customers, _RegistryHeader.F_DateVAT, Nothing, _ + _RegistryRowsFinancialControlling.Note, _RegistryRowsFinancialControlling.UniqueObjects, _RegistryRowsFinancialControlling.Controlling, _RegistryRowsFinancialControlling.JobNumberObjects, _ + _RegistryRowsFinancialControlling.CostPlace, _RegistryRowsFinancialControlling.CostHolder, _RegistryHeader.F_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.ePayabels) + End If + + End If + + Next + '-- ÁFA sorok ------------------------------------- + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + '-- ÁFA sor + Dim _VATAmountDEV As Double = 0 + + If _RegistryRowsFinancial.RegistryHeader.F_CurrencyRate <> 0 Then + If _RegistryRowsFinancial.RegistryHeader.F_CurrencyName.ShortName <> "HUF" Then + _VATAmountDEV = Math.Round(_RegistryRowsFinancial.VATAmount / _RegistryRowsFinancial.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + If _RegistryRowsFinancial.VAT.InversState = True Then + _GLRows = New GLRows(_uow) + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _RegistryRowsFinancial.VAT.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eIn), _ + _RegistryRowsFinancial.VAT.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eOut), 0, _ + Math.Round(_RegistryRowsFinancial.NettoAmount * _RegistryRowsFinancial.VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero), _ + Nothing, _RegistryHeader.Customers, _RegistryRowsFinancial.DateVAT, _RegistryRowsFinancial.VAT, _ + _RegistryRowsFinancial.Note, Nothing, Nothing, Nothing, _ + Nothing, Nothing, _RegistryHeader.F_ConnectInfo, eGLRowsTypeVAT.eVATRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.ePayabels) + _GLRows = New GLRows(_uow) + Else + _GLRows = New GLRows(_uow) + + If _RegistryHeader.RegistryType.RegistryDirection = eRegistryDirection.eOutput Then + _DebitChartOfAccounts = _RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eOut) + _CreditChartOfAccounts = _RegistryRowsFinancial.VAT.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eOut) + Else + _DebitChartOfAccounts = _RegistryRowsFinancial.VAT.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eIn) + _CreditChartOfAccounts = _RegistryHeader.Customers.CustomersGLParameters.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, eVATMode.eIn) + End If + + _GLRows.AddGLRows(TryCast(_GLAccounts, GLHeader), _DebitChartOfAccounts, _CreditChartOfAccounts, _VATAmountDEV, _ + _RegistryRowsFinancial.VATAmount, Nothing, _RegistryHeader.Customers, _RegistryRowsFinancial.DateVAT, _RegistryRowsFinancial.VAT, _ + _RegistryRowsFinancial.Note, Nothing, Nothing, Nothing, _ + Nothing, Nothing, _RegistryHeader.F_ConnectInfo, eGLRowsTypeVAT.eVATRow, _ + _GUID, eTransactionType.eNotSet, eCashType.ePartner, ePartnerType.ePayabels) + + End If + + Next + ElseIf _p_BookEntryMode = 1 Then '-- Összevont feladás + + End If + + + If _WithCommit Then _uow.CommitChanges() + End Sub + Function BookEntryCheck(ByVal _BookEntryMode As Long, ByVal _RegistryHeader As RegistryHeader, ByVal _uow As UnitOfWork, Optional ByVal WithCommit As Boolean = False) + 'Feladás elõtti ellenõrzés + 'Mit kell ellenõrizni ? + + 'Fõkönyvi számlák, Debit,Credit + 'ÁFA fõkönyvi számlája + 'CM számok + Dim _ChartOfAccountsYear As ChartOfAccountsYear = _uow.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _RegistryHeader.F_DateExecution.Year)) + If _ChartOfAccountsYear.IsClosed Then + _RegistryHeader.F_BookEntryErrorString = String.Format("Zárolt főkönyvi év ! {0}", _RegistryHeader.F_DateExecution.Year.ToString) + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _Exists As Boolean = False + Dim _RegistryTask As RegistryTasks + Dim _RegistryTask_Collection As New XPCollection(Of RegistryTasks)(_uow, CriteriaOperator.Parse("RegistryHeader=? and Status<>4", _RegistryHeader)) + If _RegistryHeader.F_GLAccounts IsNot Nothing Then + _RegistryHeader._F_BookEntryErrorString = String.Format("Könyvelve") + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _Exists = True + If _RegistryRowsFinancialControlling.Controlling Is Nothing Then + 'Nincs meadva a kontrollszám + _RegistryHeader._F_BookEntryErrorString = String.Format("Nincs kontrollszám {0}", _RegistryRowsFinancialControlling.Note) + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + Else + If _RegistryRowsFinancialControlling.Controlling.GetChartOfAccounts(_RegistryHeader.F_DateExecution.Year, _RegistryRowsFinancialControlling.IsReInvoice) Is Nothing Then + 'Nincs megadva a kontrollszámhoz tartozó FK számla száma + _RegistryHeader._F_BookEntryErrorString = String.Format("Nincs fk. számla száma {0}", _RegistryRowsFinancialControlling.Controlling.Name) + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + If _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = False Then + _RegistryHeader._F_BookEntryErrorString = String.Format("Nem könyvelhetõ minden nettó sora !") + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + End If + Next + If _Exists = False Then + _RegistryHeader._F_BookEntryErrorString = String.Format("Nincs teljesítési igazolási sor !") + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + + Dim _RegistryRowsFinancial As RegistryRowsFinancial + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + If _RegistryRowsFinancial.F_ReadyforBookEntryRows = False Then + _RegistryHeader._F_BookEntryErrorString = String.Format("Nem könyvelhető minden ÁFA sora !") + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + Next + + '-- Meg kell nézni, hogy ez az iktatás olyan Task-hoz tartozik e, amely workflowsystemstep IsReadyForImport = True + + For Each _RegistryTask In _RegistryTask_Collection + If _RegistryTask.CurrentWorkflowSystemSteps.IsReadyForImport = False Then + _RegistryHeader._F_BookEntryErrorString = String.Format("Nem a lekönyvelhető lépésen van a feladat !") + _RegistryHeader.Save() + _uow.CommitTransaction() + Return False + End If + Next + Return True + + End Function + Sub RecalculateVAT(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader) + + Dim _NettoAmount_RRF As Double = 0 + Dim _NettoAmount_RRFC As Double = 0 + Dim _NettoDiff As Double = 0 + + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _NettoAmount_RRF += _RegistryRowsFinancial.NettoAmount + Next + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _NettoAmount_RRFC += _RegistryRowsFinancialControlling.Amount + Next + + _NettoDiff = _NettoAmount_RRF - _NettoAmount_RRFC + + If _NettoDiff <> 0 Then + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.Amount = Math.Round(_RegistryRowsFinancialControlling.Amount * (_NettoAmount_RRF / _NettoAmount_RRFC), 0, MidpointRounding.AwayFromZero) + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.CurrencyName.ShortName = "HUF" Then + _RegistryRowsFinancialControlling.ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + Else + _RegistryRowsFinancialControlling.ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + _RegistryRowsFinancialControlling.ContractRows.NettoPriceDEV = _RegistryRowsFinancialControlling.ContractRows.NettoPriceHUF * _RegistryHeader.F_CurrencyRate + End If + End If + Next + _NettoAmount_RRF = 0 + _NettoAmount_RRFC = 0 + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _NettoAmount_RRF += _RegistryRowsFinancial.NettoAmount + Next + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _NettoAmount_RRFC += _RegistryRowsFinancialControlling.Amount + Next + + _NettoDiff = _NettoAmount_RRF - _NettoAmount_RRFC + If _NettoDiff <> 0 Then + Dim _RegistryRowsFinancialControlling_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryRowsFinancialControlling), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + _RegistryRowsFinancialControlling_Collection.Sorting.Add(New SortProperty("Amount", DB.SortingDirection.Descending)) + TryCast(_RegistryRowsFinancialControlling_Collection(0), RegistryRowsFinancialControlling).Amount += _NettoDiff + If _RegistryRowsFinancialControlling_Collection(0).ContractRows IsNot Nothing Then + If _RegistryRowsFinancialControlling_Collection(0).ContractRows.CurrencyName.ShortName = "HUF" Then + _RegistryRowsFinancialControlling_Collection(0).ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling_Collection(0).Amount + Else + _RegistryRowsFinancialControlling_Collection(0).ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling_Collection(0).Amount + _RegistryRowsFinancialControlling_Collection(0).ContractRows.NettoPriceDEV = _RegistryRowsFinancialControlling_Collection(0).ContractRows.NettoPriceHUF * _RegistryHeader.F_CurrencyRate + End If + End If + End If + End If + End Sub +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRows.vb new file mode 100644 index 0000000..b0edbc3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRows.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class RegistryRows '-- Iktatrendszer sorai + Inherits BaseObject + Private _RegistryHeader As RegistryHeader + Private _CustomersFrom As CustomersFrom + Private _Contacts As Contacts + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property RegistryHeader() As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsDeliveryNoteIn/RegistryRowsDeliveryNoteIn.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsDeliveryNoteIn/RegistryRowsDeliveryNoteIn.vb new file mode 100644 index 0000000..2cec75b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsDeliveryNoteIn/RegistryRowsDeliveryNoteIn.vb @@ -0,0 +1,47 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RegistryRowsDeliveryNoteIn 'Szllti szlltlevl s szllti szmla pontozsa + Inherits BaseObject + Private _RegistryHeader As RegistryHeader + Private _DeliveryNoteInRows As DeliveryNoteInRows + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property DeliveryNoteInRows As DeliveryNoteInRows + Get + Return _DeliveryNoteInRows + End Get + Set(value As DeliveryNoteInRows) + SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancial.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancial.vb new file mode 100644 index 0000000..952e78c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancial.vb @@ -0,0 +1,123 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors + +' _ + + _ + _ + _ + _ +Public Class RegistryRowsFinancial '-- Iktatrendszer sorai, ha p.. kapcsolat van. + Inherits BaseObject + Private _RegistryHeader As RegistryHeader + Private _BruttoAmount As Double 'Brutt sszeg + Private _Note As String 'Megjegyzs + Private _VAT As VAT 'FA kd + Private _DateVAT As Date + Private _F_ReadyforBookEntryRows As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If Me.RegistryHeader IsNot Nothing Then + + End If + F_ReadyforBookEntryRows = False + End Sub + _ + Property RegistryHeader() As RegistryHeader + Get + Return _RegistryHeader + 'Me.RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then + If IsDate(Me.RegistryHeader.F_DateVAT) Then + DateVAT = Me.RegistryHeader.F_DateExecution + End If + End If + End Set + End Property + _ + Property BruttoAmount As Double + Get + Return _BruttoAmount + End Get + Set(ByVal value As Double) + SetPropertyValue("BruttoAmount", _BruttoAmount, value) + End Set + End Property + _ + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + + End Set + End Property + _ + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(ByVal value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + ReadOnly Property VATAmount As Double + Get + If Me.VAT IsNot Nothing Then + Dim _VATAmount As Double = Me.BruttoAmount / (100 + Me.VAT.KeyValuePercent) * Me.VAT.KeyValuePercent + Return Math.Round(_VATAmount, 0, MidpointRounding.AwayFromZero) + Else + Return 0 + End If + End Get + End Property + ReadOnly Property NettoAmount As Double + Get + If Me.VAT IsNot Nothing Then + Return Me.BruttoAmount - Me.VATAmount + End If + End Get + End Property + Property DateVAT As Date + Get + Return _DateVAT + End Get + Set(ByVal value As Date) + SetPropertyValue("DateVAT", _DateVAT, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And Me.RegistryHeader IsNot Nothing Then + If Not Me.RegistryHeader.F_DateVAT = value Then + Me.RegistryHeader.F_DateVAT = value + ' Me.RegistryHeader.Save() + End If + End If + End Set + End Property + Property F_ReadyforBookEntryRows As Boolean + Get + Return _F_ReadyforBookEntryRows + End Get + Set(value As Boolean) + SetPropertyValue("F_ReadyforBookEntryRows", _F_ReadyforBookEntryRows, value) + End Set + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.Designer.vb new file mode 100644 index 0000000..ae0ac8c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RegistryRowsFinancialVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb new file mode 100644 index 0000000..704a10c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancial/RegistryRowsFinancialVC.vb @@ -0,0 +1,124 @@ +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 + +Public Class RegistryRowsFinancialVC + 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 = "RegistryRowsFinancial_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + 'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + ' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + ' If _RegistryHeader IsNot Nothing Then + ' Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + ' 'AddHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged + ' AddHandler View.ObjectSpace.ObjectChanged, AddressOf _RegistryRowsFinancial_ListView_ObjectChanged + ' AddHandler View.ObjectSpace.ObjectSaved, AddressOf _RegistryRowsFinancial_ListView_ObjectSaved + ' AddHandler View.ObjectSpace.ObjectReloaded, AddressOf _RegistryRowsFinancial_ListView_ObjectReloaded + ' AddHandler View.ObjectSpace.ObjectDeleted, AddressOf _RegistryRowsFinancial_ListView_ObjectDeleted + + ' End If + 'End If + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "RegistryRowsFinancial_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + + 'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + ' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + ' If _RegistryHeader IsNot Nothing Then + ' RemoveHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged + ' End If + 'End If + End If + End Sub + + Private Sub RegistryHeader_RegistryRowsFinancial_ListView_MasterObjectChanged(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + End Sub + + Private Sub _RegistryRowsFinancial_ListView_ObjectChanged(sender As Object, e As ObjectChangedEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancial_ListView_ObjectReloaded(sender As Object, e As ObjectManipulatingEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancial_ListView_ObjectSaved(sender As Object, e As ObjectManipulatingEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(e.Object, RegistryRowsFinancial) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancial_ListView_ObjectDeleted(sender As Object, e As ObjectsManipulatingEventArgs) + If e.Objects.Count <= 0 Then Exit Sub + Dim _Object As Object = Nothing + For Each _Object In e.Objects + + Next + Dim _RegistryHeader As RegistryHeader = TryCast(_Object, RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(_Object, RegistryRowsFinancial) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader) + If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryRowsFinancial.RegistryHeader) + End Sub + Private Sub Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancial(_RegistryHeader As RegistryHeader) + If _RegistryHeader Is Nothing Then Exit Sub + If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub + '// Mikor NE ltszdjon a NEW action + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _ + _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + If _RegistryHeader.IsEditable = True Then + If _RegistryHeader.BruttoAmountRemaining <> 0.0 Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + End If + End If + + '// Mikor NE ltszdjon a trls gomb + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Or _ + _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + If _RegistryHeader.IsEditable = True Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End If + + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControlling.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControlling.vb new file mode 100644 index 0000000..ebc6962 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControlling.vb @@ -0,0 +1,441 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Linq +Imports System.Linq.Expressions + +Imports DevExpress.ExpressApp.Editors + +' _ +' _ +' _ +' _ +' _ +'4", EditorState.Disabled)> _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ +3", AppearanceItemType.Action, _ + "(RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType in (2,5) = False) Or !IsNull(ContractRows) Or ! IsNull(Contracts)", _ + TargetItems:="aCreateTechnicalContractFromRegistry", visibility:=Editors.ViewItemVisibility.Hide)> _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class RegistryRowsFinancialControlling + Inherits BaseObject + Private _RegistryHeader As RegistryHeader 'Iktats fejlce + Private _ChoiceRowMode As eChoiceRowMode 'Szerzdsi sor vagy teljestsi igazols sor kivlasztsa + Private _DateExecution As Date 'Teljests dtuma + Private _ChartOfAccounts As ChartOfAccounts 'FK ltal belltott szmlaszm _ + Private _Contracts As Contracts 'Szerzds fejlce _ + Private _ContractRows As ContractRows 'Szerzdsi sor _ + Private _PaymentOption As PaymentOption 'Fizetsi md + Private _Note As String 'Megjegyzs + Private _Amount As Double 'Nett sszeg _ + + Private _Controlling As Controlling 'Kontroll szm + Private _CostHolder As CostHolder 'Kltsgvisel + Private _CostPlace As CostPlace 'Kltsghely + Private _UniqueObjects As UniqueObjects 'Egyedi azonost + Private _JobNumberObjects As JobNumberObjects 'Munkaszm, project + + Private _File As FileData 'A beszkennelt telj. igazols file _ + Private _IsReInvoice As Boolean '= False 'Tovbb kell szmlzni ? + Private _ReInvoice_Customers As Customers 'Kinek kell tovbbszmlzni ? + Private _ReInvoice_ContractRows As ContractRows 'Milyen szerzdsi sor alapjn _ + Private _ReInvoice_ExtraCharge As Double 'Mennyirt + Private _ReInvoice_Contracts As Contracts 'Melyik szerzdsre hozza ltre a sort amin ki lesz szmlzva _ + Private _ReInvoiceMode As eReinvoiceMode 'Tovbbszmlzs mdja + Private _ReInvoiceReason As Controlling 'Tovbbszmlzs jogcme + Private _IsGuaranteeBack As Boolean '= False 'Van-e visszatartsi garancia + Private _F_ReadyforBookEntryRows As Boolean '= False ' _ + Private _WorkflowMessage As String 'Lptetskori zenet _ + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Me.ChoiceRowMode = eChoiceRowMode.eFromContractRows + If Me.RegistryHeader IsNot Nothing Then + Me.DateExecution = Me.RegistryHeader.F_DateExecution + End If + IsGuaranteeBack = False + F_ReadyforBookEntryRows = False + IsReInvoice = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If IsDeleted = False Then + If Me.ContractRows IsNot Nothing Then + Dim _CurrencyRate As Double = 1.0 + + If Math.Abs(Me.ContractRows.NettoPriceHUF) < Math.Abs(Me.Amount) Then + If Math.Abs(Math.Abs(Me.ContractRows.NettoPriceHUF) - Math.Abs(Me.Amount)) > 5 Then + Throw New Exception("*A leigazolni kvnt sszeg meghaladja, az igazolshoz felhasznlt szerzdsi sor sszegt, mdostsa a szerzdsi sort ! Iktatszm : " & Me.RegistryHeader.DocumentNumber) + End If + End If + If Math.Abs(Me.ContractRows.NettoPriceHUF) > Math.Abs(Me.Amount) Then + If Math.Abs(Math.Abs(Me.ContractRows.NettoPriceHUF) - Math.Abs(Me.Amount)) > 5 Then + Throw New Exception("*A leigazolshoz felhasznlni kvnt szerzdsi sor sszege meghaladja a szmla sor sszegt. Mdostsa a szerzdsi sort ! Iktatszm : " & Me.RegistryHeader.DocumentNumber) + End If + End If + End If + If Me.RegistryHeader IsNot Nothing Then + If Me.DateExecution = Nothing Then + Me.DateExecution = Me.RegistryHeader.F_DateExecution + End If + End If + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + If Me.ContractRows IsNot Nothing Then + If Me.ContractRows.Contracts.ContractTemplate.IsTechnical Then + Me.ContractRows.Delete() + End If + If Me.ContractRows IsNot Nothing Then + Me.ContractRows.RegistryRowsFinancialControlling = Nothing + End If + End If + Dim _DeliveryNoteInRRFC_Collection As New XPCollection(Of DeliveryNoteInRRFC)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("RegistryRowsFinancialControlling=?", Me)) + Session.Delete(_DeliveryNoteInRRFC_Collection) + End Sub + _ + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + If Session.IsNewObject(Me) And Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And Me.RegistryHeader IsNot Nothing Then + Me.Note = RegistryHeader.ShortName + End If + End Set + End Property + _ + Property ChoiceRowMode As eChoiceRowMode + Get + Return _ChoiceRowMode + End Get + Set(ByVal value As eChoiceRowMode) + SetPropertyValue("ChoiceRowMode", _ChoiceRowMode, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution.Date + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value.Date) + End Set + End Property + + '-Rule5DMatrix ------------------------------- + _ + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(ByVal value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + If Me.ContractRows.Controlling IsNot value Then + Me.ContractRows.Controlling = value + Me.ContractRows.Save() + End If + End If + End Set + End Property + _ + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(ByVal value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + If Me.ContractRows.CostHolder IsNot value Then + Me.ContractRows.CostHolder = value + Me.ContractRows.Save() + End If + End If + End Set + End Property + _ + Property CostPlace As CostPlace + Get + Return _CostPlace + End Get + Set(ByVal value As CostPlace) + SetPropertyValue("CostPlace", _CostPlace, value) + End Set + End Property + _ + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(ByVal value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + If Me.ContractRows.UniqueObjects IsNot value Then + Me.ContractRows.UniqueObjects = value + Me.ContractRows.Save() + End If + End If + End Set + End Property + _ + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(ByVal value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + If Me.ContractRows.JobNumberObjects IsNot value Then + Me.ContractRows.JobNumberObjects = value + Me.ContractRows.Save() + End If + End If + End Set + End Property + + + _ + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + _ + _ + _ + Property Contracts As Contracts + Get + Return (_Contracts) + End Get + Set(ByVal value As Contracts) + SetPropertyValue("Contracts", _Contracts, value) + End Set + End Property + _ + + _ + _ + Property ContractRows As ContractRows + Get + Return _ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ContractRows", _ContractRows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + PaymentOption = value.PaymentOption + Controlling = value.Controlling + UniqueObjects = value.UniqueObjects + Note = value.Description + CostHolder = value.CostHolder + CostPlace = value.CostPlace + JobNumberObjects = value.JobNumberObjects + + If Me.RegistryHeader.F_CurrencyName.ShortName <> "HUF" Then + Me.Amount = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero) + value.NettoPriceHUF = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero) + '-- Itt van egy SAVE !!!!! De ez kell !!!!!! + value.Save() + Else + Me.Amount = value.NettoPriceHUF + End If + End If + End If + End Set + End Property + Property PaymentOption As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property Note As String + Get + Return _Note + End Get + Set(ByVal value As String) + SetPropertyValue("Note", _Note, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + 'If Not Me.ContractRows.ShortName = value Then + ' Me.ContractRows.ShortName = value + ' Me.ContractRows.Save() + 'End If + End If + End Set + End Property + _ + Property Amount As Double + Get + Return _Amount + End Get + Set(ByVal value As Double) + SetPropertyValue("Amount", _Amount, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.ContractRows IsNot Nothing Then + If Me.ContractRows.NettoPriceHUF = value Then + Me.ContractRows.NettoPriceHUF = value + Me.ContractRows.NettoPriceHUF = Math.Round(Me.ContractRows.NettoPriceHUF, 2, MidpointRounding.AwayFromZero) + End If + value = Math.Round(value, 2, MidpointRounding.AwayFromZero) + End If + End Set + End Property + _ + Property File As FileData + Get + Return _File + End Get + Set(ByVal value As FileData) + SetPropertyValue("File", _File, value) + End Set + End Property + _ + Property IsReInvoice As Boolean + Get + Return _IsReInvoice + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsReInvoice", _IsReInvoice, value) + End Set + End Property + _ + _ + Property ReInvoiceMode As eReinvoiceMode + Get + Return _ReInvoiceMode + End Get + Set(ByVal value As eReinvoiceMode) + SetPropertyValue("ReinvoiceMode", _ReInvoiceMode, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + End If + End Set + End Property + _ + _ + Property ReInvoiceReason As Controlling + Get + Return _ReInvoiceReason + End Get + Set(ByVal value As Controlling) + SetPropertyValue("ReInvoiceReason", _ReInvoiceReason, value) + End Set + End Property + Property ReInvoice_Customers As Customers + Get + Return _ReInvoice_Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("ReInvoice_Customers", _ReInvoice_Customers, value) + End Set + End Property + _ + _ + Property ReInvoice_ContractRows As ContractRows + Get + Return _ReInvoice_ContractRows + End Get + Set(ByVal value As ContractRows) + SetPropertyValue("ReInvoice_ContractRows", _ReInvoice_ContractRows, value) + End Set + End Property + Property ReInvoice_ExtraCharge As Double + Get + Return _ReInvoice_ExtraCharge + End Get + Set(ByVal value As Double) + SetPropertyValue("ReInvoice_ExtraCharge", _ReInvoice_ExtraCharge, value) + End Set + End Property + _ + Property IsGuaranteeBack As Boolean + Get + Return _IsGuaranteeBack + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsGuaranteeBack", _IsGuaranteeBack, value) + End Set + End Property + _ + Property F_ReadyforBookEntryRows As Boolean + Get + Return _F_ReadyforBookEntryRows + End Get + Set(ByVal value As Boolean) + SetPropertyValue("F_ReadyforBookEntryRows", _F_ReadyforBookEntryRows, value) + End Set + End Property + _ + + Property WorkflowMessage As String + Get + Return _WorkflowMessage + End Get + Set(ByVal value As String) + SetPropertyValue("WorkflowMessage", _WorkflowMessage, value) + End Set + End Property + + '------ReadOnly---------- + _ + ReadOnly Property RegistryBankTransfer As XPCollection(Of RegistryBankTransfer) + Get + Return New XPCollection(Of RegistryBankTransfer)(Session, CriteriaOperator.Parse("RegistryHeader=?", Me.RegistryHeader)) + End Get + End Property + ReadOnly Property DisplayName As String + Get + If Me.RegistryHeader IsNot Nothing Then + Return Me.RegistryHeader.RegistryNumber & ", " & Me.RegistryHeader.DocumentNumber + Else + Return "" + End If + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.Designer.vb new file mode 100644 index 0000000..3c68d48 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.Designer.vb @@ -0,0 +1,65 @@ +Partial Class RegistryRowsFinancialControllingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOpenContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewRegistryNoTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOpenContractRows + ' + Me.aOpenContractRows.Caption = "OpenContractRows" + Me.aOpenContractRows.ConfirmationMessage = Nothing + Me.aOpenContractRows.Id = "aOpenContractRows" + Me.aOpenContractRows.ImageName = Nothing + Me.aOpenContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenContractRows.Shortcut = Nothing + Me.aOpenContractRows.Tag = Nothing + Me.aOpenContractRows.TargetObjectsCriteria = Nothing + Me.aOpenContractRows.TargetViewId = "RegistryRowsFinancialControlling_DetailView" + Me.aOpenContractRows.ToolTip = Nothing + Me.aOpenContractRows.TypeOfView = Nothing + ' + 'aViewRegistryNoTask + ' + Me.aViewRegistryNoTask.Caption = "aView Registry No Task" + Me.aViewRegistryNoTask.ConfirmationMessage = Nothing + Me.aViewRegistryNoTask.Id = "aViewRegistryNoTask" + Me.aViewRegistryNoTask.ImageName = Nothing + Me.aViewRegistryNoTask.Shortcut = Nothing + Me.aViewRegistryNoTask.Tag = Nothing + Me.aViewRegistryNoTask.TargetObjectsCriteria = Nothing + Me.aViewRegistryNoTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aViewRegistryNoTask.TargetViewId = Nothing + Me.aViewRegistryNoTask.ToolTip = Nothing + Me.aViewRegistryNoTask.TypeOfView = Nothing + + End Sub + Friend WithEvents aOpenContractRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewRegistryNoTask As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.resx new file mode 100644 index 0000000..b0254db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 180, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb new file mode 100644 index 0000000..2ad816b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControllingVC.vb @@ -0,0 +1,165 @@ +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.ExpressApp.SystemModule +Imports DevExpress.Data.Filtering +Imports DevExpress.Xpo + +Public Class RegistryRowsFinancialControllingVC + 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 "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + 'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + ' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + ' If _RegistryHeader IsNot Nothing Then + ' Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + ' 'AddHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged + + ' AddHandler View.ObjectSpace.ObjectChanged, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectChanged + ' AddHandler View.ObjectSpace.ObjectSaved, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectSaved + ' AddHandler View.ObjectSpace.ObjectReloaded, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectReloaded + ' AddHandler View.ObjectSpace.ObjectDeleted, AddressOf _RegistryRowsFinancialControlling_ListView_ObjectDeleted + ' End If + 'End If + End If + If View.Id = "RegistryHeader_ListView_Subcontractor" Then + Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "RegistryRowsFinancialControlling_ListView_Reinvoice*" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + 'If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then + ' Dim _RegistryHeader As RegistryHeader = TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject + ' If _RegistryHeader IsNot Nothing Then + ' RemoveHandler _RegistryHeader.Changed, AddressOf RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged + ' End If + 'End If + End If + If View.Id = "RegistryHeader_ListView_Subcontractor" Then + Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", True) + End If + End Sub + + Private Sub aOpenContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenContractRows.Execute + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _onew.GetObject(_RegistryRowsFinancialControlling.ContractRows.Contracts)) + End Sub + + Private Sub RegistryHeader_RegistryRowsFinancialControlling_ListView_MasterObjectChanged(sender As Object, e As DevExpress.Xpo.ObjectChangeEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + End Sub + + Private Sub _RegistryRowsFinancialControlling_ListView_ObjectChanged(sender As Object, e As DevExpress.ExpressApp.ObjectChangedEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancialControlling_ListView_ObjectReloaded(sender As Object, e As ObjectManipulatingEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancialControlling_ListView_ObjectSaved(sender As Object, e As ObjectManipulatingEventArgs) + Dim _RegistryHeader As RegistryHeader = TryCast(e.Object, RegistryHeader) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.Object, RegistryRowsFinancialControlling) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + If _RegistryRowsFinancialControlling IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancialControlling.RegistryHeader) + End Sub + Private Sub _RegistryRowsFinancialControlling_ListView_ObjectDeleted(sender As Object, e As ObjectsManipulatingEventArgs) + If e.Objects.Count <= 0 Then Exit Sub + Dim _Object As Object = Nothing + For Each _Object In e.Objects + + Next + Dim _RegistryHeader As RegistryHeader = TryCast(_Object, RegistryHeader) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(_Object, RegistryRowsFinancial) + If _RegistryHeader IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader) + If _RegistryRowsFinancial IsNot Nothing Then Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryRowsFinancial.RegistryHeader) + End Sub + + Private Sub Action_NEW_DELETE_Hide_RegistryHeader_RegistryRowsFinancialControlling(_RegistryHeader As RegistryHeader) + '// Mikor NE ltszdjon a NEW action + If _RegistryHeader Is Nothing Then Exit Sub + If _RegistryHeader.CurrentWorkflowSystemSteps Is Nothing Then Exit Sub + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + If _RegistryHeader.IsEditable = True Then + If _RegistryHeader.BruttoAmountRemaining = 0 And _RegistryHeader.F_AmountBruttoHUF <> 0 Then + If _RegistryHeader.NettoAmountRemaining <> 0 Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + End If + End If + End If + End If + + '// Mikor NE ltszdjon a trls gomb + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + If _RegistryHeader.IsEditable = True Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + End If + + + End Sub + Private Sub aViewRegistryNoTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistryNoTask.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(RegistryHeader)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("1=2") + _CS.EndUpdateCriteria() + + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_onew.Session, CriteriaOperator.Parse("RegistryType.RegistryMainType='eAccount' and RegistryAcceptState='eAccept' and CurrentWorkflowSystemSteps.IsLastStep=False")) + Dim _RegistryHeader As RegistryHeader + Dim _RegistryTasks As RegistryTasks + + For Each _RegistryHeader In _RegistryHeader_Collection + _RegistryTasks = _onew.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("RegistryHeader=? and Status in ('InProgress','NotStarted','WaitingForSomeoneElse')", _RegistryHeader)) + If _RegistryTasks Is Nothing Then + _CS.Add(_RegistryHeader) + End If + Next + + e.ShowViewParameters.CreatedView = Application.CreateListView("RegistryHeader_ListView_NoTask", _CS, True) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb new file mode 100644 index 0000000..ecbf02a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.Designer.vb @@ -0,0 +1,178 @@ +Partial Class RegistryTaskVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRegistryTaskStateReset = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRegistryEmailToResponsible = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC_With_TContract_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTableD_RRFC_RegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aToTable_RRFC_With_RContract_RegistryTask = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aImport_RRFC = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPaymentCertificates = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRegistryTaskStateReset + ' + Me.aRegistryTaskStateReset.Caption = "Reset task state" + Me.aRegistryTaskStateReset.ConfirmationMessage = Nothing + Me.aRegistryTaskStateReset.Id = "aRegistryTaskStateReset" + Me.aRegistryTaskStateReset.ImageName = Nothing + Me.aRegistryTaskStateReset.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRegistryTaskStateReset.Shortcut = Nothing + Me.aRegistryTaskStateReset.Tag = Nothing + Me.aRegistryTaskStateReset.TargetObjectsCriteria = Nothing + Me.aRegistryTaskStateReset.TargetViewId = Nothing + Me.aRegistryTaskStateReset.ToolTip = Nothing + Me.aRegistryTaskStateReset.TypeOfView = Nothing + ' + 'aRegistryEmailToResponsible + ' + Me.aRegistryEmailToResponsible.Caption = "aRegistry Email To Responsible" + Me.aRegistryEmailToResponsible.ConfirmationMessage = Nothing + Me.aRegistryEmailToResponsible.Id = "aRegistryEmailToResponsible" + Me.aRegistryEmailToResponsible.ImageName = Nothing + Me.aRegistryEmailToResponsible.Shortcut = Nothing + Me.aRegistryEmailToResponsible.Tag = Nothing + Me.aRegistryEmailToResponsible.TargetObjectsCriteria = Nothing + Me.aRegistryEmailToResponsible.TargetViewId = Nothing + Me.aRegistryEmailToResponsible.ToolTip = Nothing + Me.aRegistryEmailToResponsible.TypeOfView = Nothing + ' + 'aToTable_RRFC_With_TContract_RegistryTask + ' + Me.aToTable_RRFC_With_TContract_RegistryTask.Caption = "aToTable_RRFC_With_TContract_RegistryTask" + Me.aToTable_RRFC_With_TContract_RegistryTask.Category = "aToTable_RRFC_With_TContract_RegistryTask" + Me.aToTable_RRFC_With_TContract_RegistryTask.ConfirmationMessage = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.Id = "aToTable_RRFC_With_TContract_RegistryTask" + Me.aToTable_RRFC_With_TContract_RegistryTask.ImageName = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.Shortcut = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.Tag = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aToTable_RRFC_With_TContract_RegistryTask.TargetViewId = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC_With_TContract_RegistryTask.ToolTip = Nothing + Me.aToTable_RRFC_With_TContract_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_RRFC_RegistryTask + ' + Me.aToTable_RRFC_RegistryTask.Caption = "aToTable_RRFC_RegistryTask" + Me.aToTable_RRFC_RegistryTask.Category = "aToTable_RRFC_RegistryTask" + Me.aToTable_RRFC_RegistryTask.ConfirmationMessage = Nothing + Me.aToTable_RRFC_RegistryTask.Id = "aToTable_RRFC_RegistryTask" + Me.aToTable_RRFC_RegistryTask.ImageName = Nothing + Me.aToTable_RRFC_RegistryTask.Shortcut = Nothing + Me.aToTable_RRFC_RegistryTask.Tag = Nothing + Me.aToTable_RRFC_RegistryTask.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC_RegistryTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aToTable_RRFC_RegistryTask.TargetViewId = Nothing + Me.aToTable_RRFC_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC_RegistryTask.ToolTip = Nothing + Me.aToTable_RRFC_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTableD_RRFC_RegistryTask + ' + Me.aToTableD_RRFC_RegistryTask.Caption = "aToTableD_RRFC_RegistryTask" + Me.aToTableD_RRFC_RegistryTask.Category = "aToTableD_RRFC_RegistryTask" + Me.aToTableD_RRFC_RegistryTask.ConfirmationMessage = Nothing + Me.aToTableD_RRFC_RegistryTask.Id = "aToTableD_RRFC_RegistryTask" + Me.aToTableD_RRFC_RegistryTask.ImageName = Nothing + Me.aToTableD_RRFC_RegistryTask.Shortcut = Nothing + Me.aToTableD_RRFC_RegistryTask.Tag = Nothing + Me.aToTableD_RRFC_RegistryTask.TargetObjectsCriteria = Nothing + Me.aToTableD_RRFC_RegistryTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aToTableD_RRFC_RegistryTask.TargetViewId = Nothing + Me.aToTableD_RRFC_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTableD_RRFC_RegistryTask.ToolTip = Nothing + Me.aToTableD_RRFC_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aToTable_RRFC_With_RContract_RegistryTask + ' + Me.aToTable_RRFC_With_RContract_RegistryTask.AcceptButtonCaption = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.CancelButtonCaption = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.Caption = "aToTable_RRFC_With_RContract_RegistryTask" + Me.aToTable_RRFC_With_RContract_RegistryTask.Category = "aToTable_RRFC_With_RContract_RegistryTask" + Me.aToTable_RRFC_With_RContract_RegistryTask.ConfirmationMessage = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.Id = "aToTable_RRFC_With_RContract_RegistryTask" + Me.aToTable_RRFC_With_RContract_RegistryTask.ImageName = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.Shortcut = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.Tag = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.TargetObjectsCriteria = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aToTable_RRFC_With_RContract_RegistryTask.TargetViewId = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aToTable_RRFC_With_RContract_RegistryTask.ToolTip = Nothing + Me.aToTable_RRFC_With_RContract_RegistryTask.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aImport_RRFC + ' + Me.aImport_RRFC.AcceptButtonCaption = Nothing + Me.aImport_RRFC.CancelButtonCaption = Nothing + Me.aImport_RRFC.Caption = "aImport_RRFC" + Me.aImport_RRFC.Category = "aImport_RRFC" + Me.aImport_RRFC.ConfirmationMessage = Nothing + Me.aImport_RRFC.Id = "aImport_RRFC" + Me.aImport_RRFC.ImageName = Nothing + Me.aImport_RRFC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aImport_RRFC.Shortcut = Nothing + Me.aImport_RRFC.Tag = Nothing + Me.aImport_RRFC.TargetObjectsCriteria = Nothing + Me.aImport_RRFC.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aImport_RRFC.TargetViewId = "" + Me.aImport_RRFC.ToolTip = Nothing + Me.aImport_RRFC.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aPaymentCertificates + ' + Me.aPaymentCertificates.AcceptButtonCaption = Nothing + Me.aPaymentCertificates.CancelButtonCaption = Nothing + Me.aPaymentCertificates.Caption = "aPayment Certificates" + Me.aPaymentCertificates.Category = "aPaymentCertificates" + Me.aPaymentCertificates.ConfirmationMessage = Nothing + Me.aPaymentCertificates.Id = "aPaymentCertificates" + Me.aPaymentCertificates.ImageName = Nothing + Me.aPaymentCertificates.Shortcut = Nothing + Me.aPaymentCertificates.Tag = Nothing + Me.aPaymentCertificates.TargetObjectsCriteria = Nothing + Me.aPaymentCertificates.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aPaymentCertificates.TargetViewId = Nothing + Me.aPaymentCertificates.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aPaymentCertificates.ToolTip = Nothing + Me.aPaymentCertificates.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + + End Sub + Friend WithEvents aRegistryTaskStateReset As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC_With_TContract_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTableD_RRFC_RegistryTask As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aToTable_RRFC_With_RContract_RegistryTask As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aImport_RRFC As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRegistryEmailToResponsible As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPaymentCertificates As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.resx new file mode 100644 index 0000000..04e0d35 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.resx @@ -0,0 +1,147 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 17, 56 + + + 200, 17 + + + 227, 56 + + + 435, 56 + + + 663, 17 + + + 651, 56 + + + 497, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb new file mode 100644 index 0000000..e319af1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTaskVC.vb @@ -0,0 +1,646 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.Utils + +Public Class RegistryTaskVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + 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 RegistryTaskVC).aRegistryTaskStateReset.Active.SetItemValue("", False) + Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", False) + + + If View.Id Like "RegistryTasks_ListView*" Or View.Id Like "RegistryHeader_ListView*" Then + Frame.GetController(Of RegistryTaskVC).aRegistryEmailToResponsible.Active.SetItemValue("", True) + End If + If View.Id = "RegistryTasks_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + If _RegistryTasks IsNot Nothing Then + If _RegistryTasks.Status = General.TaskStatus.Completed Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + End If + End If + End If + If View.Id = "RegistryHeader_RegistryTasks_ListView" Then + If TryCast(SecuritySystem.CurrentUser, User).UserName = "SysAdmin" Then + Frame.GetController(Of RegistryTaskVC).aRegistryTaskStateReset.Active.SetItemValue("", True) + End If + End If + If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or + View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "RegistryTasks_DetailView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "DeliveryNoteInRows_ListView_Certificate_HUF" Or + View.Id = "DeliveryNoteInRows_ListView_Certificate_DEV" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aRegistryTaskStateReset_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryTaskStateReset.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + + If _RegistryTasks IsNot Nothing Then + If _RegistryTasks.Status = 4 Then + _RegistryTasks.Status = 0 + Else + _RegistryTasks.Status = 4 + End If + _ocur.CommitChanges() + End If + End Sub + Private Sub aToTable_RRFC_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_RegistryTask.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + If _RegistryTasks IsNot Nothing Then + If _RegistryTasks.RegistryHeader IsNot Nothing Then + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ocur.GetObject(_RegistryTasks.row_RRFC_ContractRows) + _RegistryRowsFinancialControlling.ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount + + _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects + + _RegistryRowsFinancialControlling.File = _RegistryTasks.row_RRFC_File + If _RegistryTasks.row_RRFC_IsReInvoice = True Then + _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice + _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers + _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode + _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason + End If + _ocur.CommitChanges() + + View.Refresh() + + _RegistryTasks.row_RRFC_Amount = _RegistryTasks.RegistryHeader.NettoAmountRemaining + End If + End If + End Sub + Private Sub aToTable_RRFC_With_TContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTable_RRFC_With_TContract_RegistryTask.Execute + '// Technikai szerzds sor + Tblzatba beads !!! + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre. + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryTasks.RegistryHeader.CustomersFrom)) + + Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryTasks.RegistryHeader.CustomersFrom, _RegistryTasks.RegistryHeader.Customers, _TechnicalContractTemplate)) + Dim _ContractRows As ContractRows + + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit + If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000 + + If _RegistryTasks.row_RRFC_Amount <= _TechnicalLimitAmount Then + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.CustomersFrom = _RegistryTasks.RegistryHeader.CustomersFrom + _Contracts.Customers = _RegistryTasks.RegistryHeader.Customers + _Contracts.ContractTemplate = _TechnicalContractTemplate + _Contracts.DateCreated = _RegistryTasks.RegistryHeader.F_DateCreated + _Contracts.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.State = State.Signed + End If + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling + If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount + Else + If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _RegistryTasks.row_RRFC_Amount / _RegistryTasks.RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount + End If + _ContractRows.ShortName = _RegistryTasks.row_RRFC_Note + + + 'IDE KELL VALAMI FA ! + + For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial + _ContractRows.VAT = _RegistryRowsFinancial.VAT + Exit For + Next + + _ContractRows.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects + _ContractRows.CostHolder = _RegistryTasks.row_RRFC_CostHolder + _ContractRows.CostPlace = _RegistryTasks.row_RRFC_CostPlace + _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling + _ContractRows.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount + _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects + + If _RegistryTasks.row_RRFC_IsReInvoice = True Then + _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice + _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers + _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode + _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason + End If + + _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + + _ocur.CommitChanges() + + View.Refresh() + + _RegistryTasks.row_RRFC_Amount = _RegistryTasks.RegistryHeader.NettoAmountRemaining + Else + '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------ + Dim _Message As String = String.Format("Technikai limit van belltva ! {0}", _TechnicalLimitAmount) + Throw New Exception(_Message) + End If + End Sub + Private Sub aToTableD_RRFC_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_RRFC_RegistryTask.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _ListView_RRF As ListPropertyEditor + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _ContractRows_ArrayList As New ArrayList + + If _RegistryTasks IsNot Nothing Then + _ListView_RRF = TryCast(View, DetailView).FindItem("RegistryRowsFinancialControlling") + If _ListView_RRF IsNot Nothing Then + For Each _RegistryRowsFinancialControlling In _ListView_RRF.ListView.SelectedObjects + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.Contracts IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.IsTechnical Then + _ContractRows_ArrayList.Add(_RegistryRowsFinancialControlling.ContractRows) + End If + End If + End If + Next + _ocur.Delete(_ListView_RRF.ListView.SelectedObjects) + _ocur.Delete(_ContractRows_ArrayList) + _ocur.CommitChanges() + + View.Refresh() + End If + End If + End Sub + Private Sub aToTable_RRFC_With_RContract_RegistryTask_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aToTable_RRFC_With_RContract_RegistryTask.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(Contracts)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and ContractTemplate.PartnerType=1 and ContractTemplate.IsTechnical=False and (State = 1 OR State = 2)", _RegistryTasks.RegistryHeader.CustomersFrom.Oid, _RegistryTasks.RegistryHeader.Customers.Oid)) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("Contracts_Finder_Payables", _CS, False) + End Sub + Private Sub aToTable_RRFC_With_RContract_RegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aToTable_RRFC_With_RContract_RegistryTask.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _Contracts As Contracts = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Contracts)) + Dim _ContractRows As ContractRows + If _Contracts Is Nothing Then Exit Sub + + If _RegistryTasks IsNot Nothing And _Contracts IsNot Nothing Then + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling + _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName + _ContractRows.NettoPriceHUF = _RegistryTasks.row_RRFC_Amount + If Not _ContractRows.CurrencyName.ShortName = "HUF" Then + If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = Math.Round(_RegistryTasks.row_RRFC_Amount / _RegistryTasks.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + _ContractRows.ShortName = _RegistryTasks.row_RRFC_Note + + If _RegistryTasks.RegistryHeader.RegistryRowsFinancial.Count > 0 Then + _ContractRows.VAT = TryCast(_RegistryTasks.RegistryHeader.RegistryRowsFinancial(0), RegistryRowsFinancial).VAT + End If + _ContractRows.CostHolder = _RegistryTasks.row_RRFC_CostHolder + _ContractRows.CostPlace = _RegistryTasks.row_RRFC_CostPlace + _ContractRows.Controlling = _RegistryTasks.row_RRFC_Controlling + _ContractRows.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects + _ContractRows.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects + + _ContractRows.QTT = 1 + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _RegistryTasks.row_RRFC_Amount + _RegistryRowsFinancialControlling.Controlling = _RegistryTasks.row_RRFC_Controlling + _RegistryRowsFinancialControlling.CostHolder = _RegistryTasks.row_RRFC_CostHolder + _RegistryRowsFinancialControlling.CostPlace = _RegistryTasks.row_RRFC_CostPlace + _RegistryRowsFinancialControlling.Note = _RegistryTasks.row_RRFC_Note + _RegistryRowsFinancialControlling.JobNumberObjects = _RegistryTasks.row_RRFC_JobNumberObjects + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryTasks.row_RRFC_UniqueObjects + + If _RegistryTasks.row_RRFC_IsReInvoice = True Then + _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice + _RegistryRowsFinancialControlling.ReInvoice_Customers = _RegistryTasks.row_RRFC_ReInvoice_Customers + _RegistryRowsFinancialControlling.ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode + _RegistryRowsFinancialControlling.ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason + End If + + _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + + _ocur.CommitChanges() + + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aImport_RRFC_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImport_RRFC.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + If _RegistryTasks Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = _onew.CreateObject(Of RegistryRowsFinancialControllingTemplatePopup)() + _RegistryRowsFinancialControllingTemplatePopup.MasterKey = Guid.NewGuid + _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom = _onew.GetObject(_RegistryTasks.CustomersFrom) + _RegistryRowsFinancialControllingTemplatePopup.Customers = _onew.GetObject(_RegistryTasks.Customers) + + e.View = Application.CreateDetailView(_onew, "RegistryRowsFinancialControllingTemplatePopup_DetailView", False, _RegistryRowsFinancialControllingTemplatePopup) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aImport_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImport_RRFC.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialControllingTemplatePopup) + Dim _ListView_RegistryRowsFinancialControlling As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("RegistryRowsFinancialControlling") + If _ListView_RegistryRowsFinancialControlling Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _RegistryRowsFinancialControlling_Template As RegistryRowsFinancialControlling = TryCast(_ListView_RegistryRowsFinancialControlling.ListView.SelectedObjects(0), RegistryRowsFinancialControlling) + If _RegistryRowsFinancialControlling_Template Is Nothing Then Throw New Exception("*Nem lett kijellve egy igazolsi sablon sem!") + If _ListView_RegistryRowsFinancialControlling.ListView.SelectedObjects.Count > 1 Then Throw New Exception("*Egynl tbb igazolsi sablon lett kijellve, nem lehet egyrtelmen meghatrozni az igazolsi sablont!") + + _RegistryTasks.row_RRFC_Amount = _RegistryRowsFinancialControlling_Template.Amount + _RegistryTasks.row_RRFC_Contracts = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.ContractRows.Contracts) + If _RegistryRowsFinancialControlling_Template.ContractRows.RegistryRowsFinancialControlling Is Nothing Then + _RegistryTasks.row_RRFC_ContractRows = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.ContractRows) + Else + _RegistryTasks.row_RRFC_ContractRows = Nothing + End If + _RegistryTasks.row_RRFC_Controlling = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.Controlling) + _RegistryTasks.row_RRFC_CostHolder = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.CostHolder) + _RegistryTasks.row_RRFC_CostPlace = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.CostPlace) + _RegistryTasks.row_RRFC_JobNumberObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.JobNumberObjects) + _RegistryTasks.row_RRFC_UniqueObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_Template.UniqueObjects) + _RegistryTasks.row_RRFC_Note = _RegistryRowsFinancialControlling_Template.Note + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + + + + 'Try + ' Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + ' Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + ' Dim _RegistryRowsFinancialControlling_Template As RegistryRowsFinancialControlling = Nothing + ' Dim _RegistryRowsFinancialControllingTemplatePopup As RegistryRowsFinancialControllingTemplatePopup = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialControllingTemplatePopup) + ' Dim _ListView_RegistryHeader As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("RegistryHeader") + + ' If _ListView_RegistryHeader Is Nothing Then Exit Sub + + ' Dim _RegistryHeader_Template As RegistryHeader = TryCast(_ListView_RegistryHeader.ListView.SelectedObjects(0), RegistryHeader) + + ' If _RegistryHeader_Template Is Nothing Then Exit Sub + + ' _RegistryHeader_Template = _ocur.GetObjectByKey(Of RegistryHeader)(_RegistryHeader_Template.Oid) + + ' Select Case _RegistryRowsFinancialControllingTemplatePopup.RRFCT_Type + ' Case eRRFCT_Type.eTechnical + + ' 'Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A validci ideiglenes letiltsa az akci vgrehajtsnak idejre. + + ' Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _ + ' _RegistryRowsFinancialControllingTemplatePopup.CustomersFrom)) + ' Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader_Template.CustomersFrom, _ + ' _RegistryHeader_Template.Customers, _TechnicalContractTemplate)) + ' Dim _ContractRows As ContractRows + + ' If _TechnicalContractTemplate IsNot Nothing Then + ' If _Contracts Is Nothing Then + ' _Contracts = _ocur.CreateObject(Of Contracts)() + ' _Contracts.CustomersFrom = _RegistryTasks.RegistryHeader.CustomersFrom + ' _Contracts.Customers = _RegistryTasks.RegistryHeader.Customers + ' _Contracts.ContractTemplate = _TechnicalContractTemplate + ' _Contracts.DateCreated = _RegistryTasks.RegistryHeader.F_DateCreated + ' _Contracts.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + ' _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + ' _Contracts.State = State.Signed + ' End If + + ' For Each _RegistryRowsFinancialControlling_Template In _RegistryHeader_Template.RegistryRowsFinancialControlling + ' _ContractRows = _ocur.CreateObject(Of ContractRows)() + ' _ContractRows.Contracts = _Contracts + ' _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName + ' _ContractRows.ContractRowsType = eContractRowsType.eFix + ' _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + ' _ContractRows.Controlling = _RegistryRowsFinancialControlling_Template.Controlling + ' _ContractRows.NettoPriceDEV = 0 + ' _ContractRows.NettoPriceHUF = 0 + ' _ContractRows.ShortName = _RegistryRowsFinancialControlling_Template.Note + + ' 'IDE KELL VALAMI FA ! + + ' For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial + ' _ContractRows.VAT = _RegistryRowsFinancial.VAT + ' Exit For + ' Next + + ' _ContractRows.UniqueObjects = _RegistryRowsFinancialControlling_Template.UniqueObjects + ' _ContractRows.CostHolder = _RegistryRowsFinancialControlling_Template.CostHolder + ' _ContractRows.CostPlace = _RegistryRowsFinancialControlling_Template.CostPlace + ' _ContractRows.Controlling = _RegistryRowsFinancialControlling_Template.Controlling + ' _ContractRows.JobNumberObjects = _RegistryRowsFinancialControlling_Template.JobNumberObjects + + ' _RegistryRowsFinancialControlling_Template = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + ' _RegistryRowsFinancialControlling_Template.RegistryHeader = _RegistryTasks.RegistryHeader + ' _RegistryRowsFinancialControlling_Template.ContractRows = _ContractRows + ' _RegistryRowsFinancialControlling_Template.Amount = 0 + ' _RegistryRowsFinancialControlling_Template.Controlling = _RegistryRowsFinancialControlling_Template.Controlling + ' _RegistryRowsFinancialControlling_Template.CostHolder = _RegistryRowsFinancialControlling_Template.CostHolder + ' _RegistryRowsFinancialControlling_Template.CostPlace = _RegistryRowsFinancialControlling_Template.CostPlace + ' _RegistryRowsFinancialControlling_Template.Note = _RegistryRowsFinancialControlling_Template.Note + ' _RegistryRowsFinancialControlling_Template.JobNumberObjects = _RegistryRowsFinancialControlling_Template.JobNumberObjects + ' _RegistryRowsFinancialControlling_Template.UniqueObjects = _RegistryRowsFinancialControlling_Template.UniqueObjects + + ' If _RegistryTasks.row_RRFC_IsReInvoice = True Then + ' _RegistryRowsFinancialControlling_Template.IsReInvoice = _RegistryRowsFinancialControlling_Template.IsReInvoice + ' _RegistryRowsFinancialControlling_Template.ReInvoice_Customers = _RegistryRowsFinancialControlling_Template.ReInvoice_Customers + ' _RegistryRowsFinancialControlling_Template.ReInvoiceMode = _RegistryRowsFinancialControlling_Template.ReInvoiceMode + ' _RegistryRowsFinancialControlling_Template.ReInvoiceReason = _RegistryRowsFinancialControlling_Template.ReInvoiceReason + ' End If + + ' _ocur.CommitChanges() + ' Next + ' End If + ' Case eRRFCT_Type.eReal + + + ' End Select + + '_ocur.CommitChanges() + End Sub + Private Sub aRegistryEmailToResponsible_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryEmailToResponsible.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User = TryCast(SecuritySystem.CurrentUser, User) + Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", _User.Oid)) + Dim _HRResponsible As HRPerson + Dim _Body As String + Dim _Subject As String + + If View.SelectedObjects.Count <= 0 Then Exit Sub + + If TryCast(View.SelectedObjects(0), RegistryHeader) IsNot Nothing Then + '// Ha RegistryHeader az objektum + Dim _RegistryHeader As RegistryHeader + + For Each _RegistryHeader In View.SelectedObjects + _HRResponsible = _RegistryHeader.HRResponsible + + _Subject = "SIS Business tjkoztats" + _Body = "Cg : " & _RegistryHeader.CustomersFrom.FullName + _Body += vbNewLine & "Partner : " & _RegistryHeader.Customers.FullName + _Body += vbNewLine & "Iktats tipusa : " & _RegistryHeader.RegistryType.ShortName + _Body += vbNewLine & "Iktatszm : " & _RegistryHeader.RegistryNumber + _Body += vbNewLine & vbNewLine & "Tma : " & _RegistryHeader.ShortName + + + SendSMTPMail(_ocur, _HRPerson, _HRResponsible.Email, _Subject, _Body) + + Next + + + End If + + If TryCast(View.SelectedObjects(0), RegistryTasks) IsNot Nothing Then + '// Ha RegistryTask az objektum + Dim _RegistryTasks As RegistryTasks + + For Each _RegistryTasks In View.SelectedObjects + _HRResponsible = _RegistryTasks.RegistryHeader.HRResponsible + + _Subject = "SIS Business tjkoztats" + _Body = "Cg : " & _RegistryTasks.RegistryHeader.CustomersFrom.FullName + _Body += vbNewLine & "Partner : " & _RegistryTasks.RegistryHeader.Customers.FullName + _Body += vbNewLine & "Iktats tipusa : " & _RegistryTasks.RegistryHeader.RegistryType.ShortName + _Body += vbNewLine & "Iktatszm : " & _RegistryTasks.RegistryHeader.RegistryNumber + _Body += vbNewLine & vbNewLine & "Tma : " & _RegistryTasks.RegistryHeader.ShortName + + + SendSMTPMail(_ocur, _HRPerson, _HRResponsible.Email, _Subject, _Body) + + Next + + End If + + + End Sub + Private Sub aPaymentCertificates_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aPaymentCertificates.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryTasks As RegistryTasks = _onew.GetObjectByKey(Of RegistryTasks)(TryCast(View.SelectedObjects(0), RegistryTasks).Oid) + Dim _DeliveryNoteInRows_CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(DeliveryNoteInRows)) + + _DeliveryNoteInRows_CollectionSource.BeginUpdateCriteria() + _DeliveryNoteInRows_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("DeliveryNoteInHeader.Customers.Oid=? AND DeliveryNoteInHeader.CurrencyName.Oid=?", _RegistryTasks.Customers.Oid, _RegistryTasks.RegistryHeader.F_CurrencyName.Oid)) + _DeliveryNoteInRows_CollectionSource.EndUpdateCriteria() + + For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_CollectionSource.Collection + _DeliveryNoteInRows.QTT_Process = 0 '_DeliveryNoteInRows.QTT - _DeliveryNoteInRows.QTT_Controlled + If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _DeliveryNoteInRows.controlled_ListPrice = _DeliveryNoteInRows.ListPriceHUF + If _DeliveryNoteInRows.ListPriceHUF <> 0 Then _DeliveryNoteInRows.controlled_DiscountPercent = (_DeliveryNoteInRows.DiscountPriceHUF / _DeliveryNoteInRows.ListPriceHUF) * 100 + Else + _DeliveryNoteInRows.controlled_ListPrice = _DeliveryNoteInRows.ListPriceDEV + If _DeliveryNoteInRows.ListPriceDEV <> 0 Then _DeliveryNoteInRows.controlled_DiscountPercent = (_DeliveryNoteInRows.DiscountPriceDEV / _DeliveryNoteInRows.ListPriceDEV) * 100 + End If + Next + + If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + e.View = Application.CreateListView("DeliveryNoteInRows_ListView_Certificate_HUF", _DeliveryNoteInRows_CollectionSource, False) + Else + e.View = Application.CreateListView("DeliveryNoteInRows_ListView_Certificate_DEV", _DeliveryNoteInRows_CollectionSource, False) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aPaymentCertificates_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aPaymentCertificates.Execute + '// Szlltlevl pontozsa szmlaigazolshoz ! + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + + If _RegistryTasks.row_RRFC_Controlling Is Nothing Then Throw New Exception("*Nincs belltva kontrolszm!") + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom))) + Dim _TechnicalLimitAmount As Double = _RegistryTasks.row_RRFC_Controlling.TechnicalContractLimit + If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000 + + Dim _Contracts As Contracts = _onew.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom), _ + _onew.GetObject(_RegistryTasks.RegistryHeader.Customers), _TechnicalContractTemplate)) + + If _Contracts Is Nothing Then + _Contracts = _onew.CreateObject(Of Contracts)() + With _Contracts + .CustomersFrom = _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom) + .Customers = _onew.GetObject(_RegistryTasks.RegistryHeader.Customers) + .ContractTemplate = _TechnicalContractTemplate + .DateCreated = _onew.GetObject(_RegistryTasks.RegistryHeader.F_DateCreated) + .DateExecution = _onew.GetObject(_RegistryTasks.RegistryHeader.F_DateExecution) + .DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + .State = State.Signed + End With + End If + RaiseEvent InitWork(1, 1, e.PopupWindow.View.SelectedObjects.Count) + For Each _DeliveryNoteInRows As DeliveryNoteInRows In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection + RaiseEvent DoWork() + If _DeliveryNoteInRows.QTT_Process > 0 And _DeliveryNoteInRows.QTT_Process <= _DeliveryNoteInRows.QTT Then + Dim _ContractRows As New ContractRows(_onew.Session) + With _ContractRows + .Contracts = _Contracts + .CurrencyName = _onew.GetObject(_RegistryTasks.RegistryHeader.F_CurrencyName) + .ContractRowsType = eContractRowsType.eFix + .DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling) + If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + .NettoPriceHUF = _DeliveryNoteInRows.controlled_SumPrice + Else + If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then + .NettoPriceDEV = _DeliveryNoteInRows.controlled_SumPrice + Else + .NettoPriceDEV = 0 + End If + .NettoPriceHUF = _DeliveryNoteInRows.controlled_SumPrice * _RegistryTasks.RegistryHeader.F_CurrencyRate + End If + .ShortName = _DeliveryNoteInRows.Products.ShortName + .VAT = _onew.GetObject(_DeliveryNoteInRows.VAT) + + .UniqueObjects = _onew.GetObject(_RegistryTasks.row_RRFC_UniqueObjects) + .CostHolder = _onew.GetObject(_RegistryTasks.row_RRFC_CostHolder) + .CostPlace = _onew.GetObject(_RegistryTasks.row_RRFC_CostPlace) + .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling) + .JobNumberObjects = _onew.GetObject(_RegistryTasks.row_RRFC_JobNumberObjects) + End With + + Dim _RegistryRowsFinancialControlling As New RegistryRowsFinancialControlling(_onew.Session) + With _RegistryRowsFinancialControlling + .RegistryHeader = _onew.GetObject(_RegistryTasks.RegistryHeader) + .ContractRows = _ContractRows + .Amount = .ContractRows.NettoPriceHUF + .Controlling = _onew.GetObject(_RegistryTasks.row_RRFC_Controlling) + .CostHolder = _onew.GetObject(_RegistryTasks.row_RRFC_CostHolder) + .CostPlace = _onew.GetObject(_RegistryTasks.row_RRFC_CostPlace) + .Note = _RegistryTasks.row_RRFC_Note + .JobNumberObjects = _onew.GetObject(_RegistryTasks.row_RRFC_JobNumberObjects) + .UniqueObjects = _onew.GetObject(_RegistryTasks.row_RRFC_UniqueObjects) + + If _RegistryTasks.row_RRFC_IsReInvoice = True Then + .IsReInvoice = _RegistryTasks.row_RRFC_IsReInvoice + .ReInvoice_Customers = _onew.GetObject(_RegistryTasks.row_RRFC_ReInvoice_Customers) + .ReInvoiceMode = _RegistryTasks.row_RRFC_ReInvoiceMode + .ReInvoiceReason = _RegistryTasks.row_RRFC_ReInvoiceReason + End If + End With + + _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + + Dim _DeliveryNoteInRRFC As New DeliveryNoteInRRFC(_onew.Session) + With (_DeliveryNoteInRRFC) + .DeliveryNoteInRows = _onew.GetObjectByKey(Of DeliveryNoteInRows)(_DeliveryNoteInRows.Oid) + .RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + .QTT_Controlled = _DeliveryNoteInRows.QTT_Process + End With + End If + Next + _onew.CommitChanges() + RaiseEvent FinalWork + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + '// ObjectSpace frisstse ... + If Frame.GetController(Of RefreshController)() IsNot Nothing Then + If Frame.GetController(Of RefreshController).RefreshAction IsNot Nothing Then + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End If + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTasks.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTasks.vb new file mode 100644 index 0000000..12b60f7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTasks.vb @@ -0,0 +1,343 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ + + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ +Public Class RegistryTasks '-- Registryhez task a feladatokhoz + Inherits Task + Private _RegistryHeader As RegistryHeader 'Iktats fejlce + Private _HRPerson As HRPerson 'Felels + Private _CurrentWorkflowSystemSteps As WorkflowSystemSteps 'A feladat kiadsakor hol llt a rendszer + + + '// Nonpersistent propertyk a szmlaigazolshoz + + Private _row_RRFC_Controlling As Controlling + Private _row_RRFC_CostPlace As CostPlace + Private _row_RRFC_CostHolder As CostHolder + Private _row_RRFC_Note As String + Private _row_RRFC_Amount As Double + Private _row_RRFC_Contracts As Contracts + Private _row_RRFC_ContractRows As ContractRows + Private _row_RRFC_UniqueObjects As UniqueObjects + Private _row_RRFC_JobNumberObjects As JobNumberObjects + Private _row_RRFC_File As FileData + Private _row_RRFC_IsReInvoice As Boolean = False + Private _row_RRFC_ReInvoiceReason As Controlling + Private _row_RRFC_ReInvoice_Customers As Customers + Private _row_RRFC_ReInvoiceMode As eReinvoiceMode + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(ByVal value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property CurrentWorkflowSystemSteps As WorkflowSystemSteps + Get + Return _CurrentWorkflowSystemSteps + End Get + Set(ByVal value As WorkflowSystemSteps) + SetPropertyValue("CurrentWorkflowSystemSteps", _CurrentWorkflowSystemSteps, value) + End Set + End Property + ReadOnly Property CustomersFrom As CustomersFrom + Get + If Me.RegistryHeader IsNot Nothing Then + Return Me.RegistryHeader.CustomersFrom + Else + Return Nothing + End If + End Get + End Property + ReadOnly Property Customers As Customers + Get + If Me.RegistryHeader IsNot Nothing Then + Return Me.RegistryHeader.Customers + Else + Return Nothing + End If + End Get + End Property + + '// Nonpersistent propertyk RRFC igazolshoz + _ + _ + _ + Property row_RRFC_Controlling As Controlling + Get + Return _row_RRFC_Controlling + End Get + Set(value As Controlling) + SetPropertyValue("row_RRFC_Controlling", _row_RRFC_Controlling, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_CostPlace As CostPlace + Get + Return _row_RRFC_CostPlace + End Get + Set(value As CostPlace) + SetPropertyValue("row_RRFC_CostPlace", _row_RRFC_CostPlace, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_CostHolder As CostHolder + Get + Return _row_RRFC_CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("row_RRFC_CostHolder", _row_RRFC_CostHolder, value) + End Set + End Property + _ + Property row_RRFC_Note As String + Get + Return _row_RRFC_Note + End Get + Set(value As String) + SetPropertyValue("row_RRFC_Note", _row_RRFC_Note, value) + End Set + End Property + _ + Property row_RRFC_Amount As Double + Get + Return _row_RRFC_Amount + End Get + Set(value As Double) + SetPropertyValue("row_RRFC_Amount", _row_RRFC_Amount, value) + End Set + End Property + _ + _ + Property row_RRFC_Contracts As Contracts + Get + Return _row_RRFC_Contracts + End Get + Set(value As Contracts) + SetPropertyValue("row_RRFC_Contracts", _row_RRFC_Contracts, value) + End Set + End Property + _ + _ + _ + _ + Property row_RRFC_ContractRows As ContractRows + Get + Return _row_RRFC_ContractRows + End Get + Set(value As ContractRows) + SetPropertyValue("row_RRFC_ContractRows", _row_RRFC_ContractRows, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value IsNot Nothing Then + + row_RRFC_Controlling = value.Controlling + row_RRFC_Note = value.Description + row_RRFC_CostHolder = value.CostHolder + row_RRFC_CostPlace = value.CostPlace + row_RRFC_JobNumberObjects = value.JobNumberObjects + row_RRFC_UniqueObjects = value.UniqueObjects + + If Me.RegistryHeader.F_CurrencyName.ShortName <> "HUF" Then + row_RRFC_Amount = Math.Round(value.NettoPriceDEV * Me.RegistryHeader.F_CurrencyRate, 0, MidpointRounding.AwayFromZero) + Else + Me.row_RRFC_Amount = value.NettoPriceHUF + End If + End If + End If + End Set + End Property + _ + _ + _ + Property row_RRFC_JobNumberObjects As JobNumberObjects + Get + Return _row_RRFC_JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("row_RRFC_JobNumberObjects", _row_RRFC_JobNumberObjects, value) + End Set + End Property + _ + _ + _ + Property row_RRFC_UniqueObjects As UniqueObjects + Get + Return _row_RRFC_UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("row_RRFC_UniqueObjects", _row_RRFC_UniqueObjects, value) + End Set + End Property + _ + Property row_RRFC_File As FileData + Get + Return _row_RRFC_File + End Get + Set(value As FileData) + SetPropertyValue("row_RRFC_File", _row_RRFC_File, value) + End Set + End Property + _ + _ + Property row_RRFC_IsReInvoice As Boolean + Get + Return _row_RRFC_IsReInvoice + End Get + Set(value As Boolean) + SetPropertyValue("row_RRFC_IsReInvoice", _row_RRFC_IsReInvoice, value) + End Set + End Property + _ + _ + _ + _ + _ + Property row_RRFC_ReInvoiceReason As Controlling + Get + Return _row_RRFC_ReInvoiceReason + End Get + Set(value As Controlling) + SetPropertyValue("row_RRFC_ReInvoiceReason", _row_RRFC_ReInvoiceReason, value) + End Set + End Property + _ + _ + _ + _ + Property row_RRFC_ReInvoice_Customers As Customers + Get + Return _row_RRFC_ReInvoice_Customers + End Get + Set(value As Customers) + SetPropertyValue("row_RRFC_ReInvoice_Customers", _row_RRFC_ReInvoice_Customers, value) + End Set + End Property + _ + _ + _ + _ + _ + Property row_RRFC_ReInvoiceMode As eReinvoiceMode + Get + Return _row_RRFC_ReInvoiceMode + End Get + Set(value As eReinvoiceMode) + SetPropertyValue("row_RRFC_ReInvoiceMode", _row_RRFC_ReInvoiceMode, value) + End Set + End Property + + '---------------- Readonly property ------------------------------------------------- + _ + ReadOnly Property FileData_Collection As XPCollection(Of RegistryFileData) + Get + If Me.RegistryHeader Is Nothing Then + Return Nothing + Else + Return Me.RegistryHeader.RegistryFileData + End If + + End Get + End Property + _ + ReadOnly Property RegistryRowsFinancial As XPCollection(Of RegistryRowsFinancial) + Get + Return New XPCollection(Of RegistryRowsFinancial)(Session, CriteriaOperator.Parse("RegistryHeader=?", RegistryHeader)) + End Get + End Property + _ + ReadOnly Property RegistryRowsFinancialControlling As XPCollection(Of RegistryRowsFinancialControlling) + Get + Return New XPCollection(Of RegistryRowsFinancialControlling)(Session, CriteriaOperator.Parse("RegistryHeader=?", RegistryHeader)) + End Get + End Property + +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryType.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryType.vb new file mode 100644 index 0000000..67c1000 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryType.vb @@ -0,0 +1,129 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class RegistryType '-- Iktat tipusok + Inherits BaseObject + Private _RegistryMainType As eRegistryMainType + Private _RegistryGLAccount As Boolean + Private _RegistryDirection As eRegistryDirection + Private _RegistryCRMType As eRegistryCRMType + Private _ShortName As String + Private _WorkflowSystem As WorkflowSystem + Private _NumberGenerator As NumberGenerator + Private _CustomersFrom As CustomersFrom + Private _DefaultDirectory As String 'Alaprtelmezett knyvtr, ahonnan a csatols menni fog + Private _Rule5DMatrix As Rule5DMatrix + Private _AutomaticSetResponsible As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + RegistryGLAccount = False + Me.AutomaticSetResponsible = False + End Sub + Property RegistryGLAccount As Boolean + Get + Return _RegistryGLAccount + End Get + Set(value As Boolean) + SetPropertyValue("RegistryGLAccount", _RegistryGLAccount, value) + End Set + End Property + Property RegistryMainType As eRegistryMainType + Get + Return _RegistryMainType + End Get + Set(ByVal value As eRegistryMainType) + SetPropertyValue("RegistryMainType", _RegistryMainType, value) + End Set + End Property + Property RegistryDirection() As eRegistryDirection + Get + Return _RegistryDirection + End Get + Set(ByVal value As eRegistryDirection) + SetPropertyValue("RegistryDirection", _RegistryDirection, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property WorkflowSystem() As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(ByVal value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property + _ + Property NumberGenerator() As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(ByVal value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property DefaultDirectory As String + Get + Return _DefaultDirectory + End Get + Set(ByVal value As String) + SetPropertyValue("DefaultDirectory", _DefaultDirectory, value) + End Set + End Property + Property RegistryCRMType As eRegistryCRMType + Get + Return _RegistryCRMType + End Get + Set(value As eRegistryCRMType) + SetPropertyValue("RegistryCRMType", _RegistryCRMType, value) + End Set + End Property + Property Rule5DMatrix As Rule5DMatrix + Get + Return _Rule5DMatrix + End Get + Set(value As Rule5DMatrix) + SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value) + End Set + End Property + Property AutomaticSetResponsible As Boolean + Get + Return _AutomaticSetResponsible + End Get + Set(value As Boolean) + SetPropertyValue("AutomaticSetResponsible", _AutomaticSetResponsible, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb new file mode 100644 index 0000000..e29c59e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.Designer.vb @@ -0,0 +1,306 @@ +Partial Class RegistryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRegistryGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRegistryTaskGroupGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aPrintCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRegistryStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateTechnicalContractFromRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateContractsRowsfromControllingRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aDocumentSentBack = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateReInvoiceContractRow = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBankDivideRegistry = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBankMergeRegistry = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aImportInvoiceAdvances = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aImportICInvoice = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRegistrySetVATandNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDocumentReturnfromSendBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRegistryTaskGotoNextStep = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOpenRegistryFromTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_RegistryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRegistrySetTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRegistryTaskGroupGotoNextStepWithGLAccount = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewPCIDW_RegistryHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aRegistryGotoNextStep + ' + Me.aRegistryGotoNextStep.AcceptButtonCaption = Nothing + Me.aRegistryGotoNextStep.CancelButtonCaption = Nothing + Me.aRegistryGotoNextStep.Caption = "aRegistry Goto Next Step" + Me.aRegistryGotoNextStep.Category = "RecordsNavigation" + Me.aRegistryGotoNextStep.ConfirmationMessage = Nothing + Me.aRegistryGotoNextStep.Id = "aRegistryGotoNextStep" + Me.aRegistryGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRegistryGotoNextStep.TargetViewId = "RegistryHeader_DetailView" + Me.aRegistryGotoNextStep.ToolTip = Nothing + ' + 'aRegistryTaskGroupGotoNextStep + ' + Me.aRegistryTaskGroupGotoNextStep.AcceptButtonCaption = Nothing + Me.aRegistryTaskGroupGotoNextStep.CancelButtonCaption = Nothing + Me.aRegistryTaskGroupGotoNextStep.Caption = "aRegistry Task Group Goto Next Step" + Me.aRegistryTaskGroupGotoNextStep.Category = "RecordsNavigation" + Me.aRegistryTaskGroupGotoNextStep.ConfirmationMessage = Nothing + Me.aRegistryTaskGroupGotoNextStep.Id = "aRegistryTaskGroupGotoNextStep" + Me.aRegistryTaskGroupGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRegistryTaskGroupGotoNextStep.TargetObjectsCriteria = "Status<>4" + Me.aRegistryTaskGroupGotoNextStep.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aRegistryTaskGroupGotoNextStep.TargetViewId = "" + Me.aRegistryTaskGroupGotoNextStep.ToolTip = Nothing + Me.aRegistryTaskGroupGotoNextStep.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aPrintCOC + ' + Me.aPrintCOC.Caption = "aPrint COC" + Me.aPrintCOC.Category = "View" + Me.aPrintCOC.ConfirmationMessage = "Do you want to execute command?" + Me.aPrintCOC.Id = "aPrintCOC" + Me.aPrintCOC.TargetViewId = "RegistryRowsFinancialControlling_DetailView" + Me.aPrintCOC.ToolTip = Nothing + ' + 'aGenerateCOC + ' + Me.aGenerateCOC.Caption = "aGenerate COC" + Me.aGenerateCOC.Category = "ObjectsCreation" + Me.aGenerateCOC.ConfirmationMessage = "Do you want to execute command?" + Me.aGenerateCOC.Id = "aGenerateCOC" + Me.aGenerateCOC.TargetViewId = "RegistryRowsFinancialControlling_DetailView" + Me.aGenerateCOC.ToolTip = Nothing + ' + 'aRegistryStorno + ' + Me.aRegistryStorno.Caption = "Registry Storno" + Me.aRegistryStorno.Category = "ObjectsCreation" + Me.aRegistryStorno.ConfirmationMessage = "Do you want to execute command?" + Me.aRegistryStorno.Id = "aRegistryStorno" + Me.aRegistryStorno.TargetViewId = "RegistryHeader_ListView" + Me.aRegistryStorno.ToolTip = Nothing + ' + 'aCreateTechnicalContractFromRegistry + ' + Me.aCreateTechnicalContractFromRegistry.Caption = "Create Technical Contract" + Me.aCreateTechnicalContractFromRegistry.Category = "aCreateTechnicalContractFromRegistry" + Me.aCreateTechnicalContractFromRegistry.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateTechnicalContractFromRegistry.Id = "aCreateTechnicalContractFromRegistry" + Me.aCreateTechnicalContractFromRegistry.TargetViewId = "RegistryRowsFinancialControlling_DetailView" + Me.aCreateTechnicalContractFromRegistry.ToolTip = Nothing + ' + 'aCreateContractsRowsfromControllingRows + ' + Me.aCreateContractsRowsfromControllingRows.Caption = "Create rows" + Me.aCreateContractsRowsfromControllingRows.Category = "aCreateContractsRowsfromControllingRows" + Me.aCreateContractsRowsfromControllingRows.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateContractsRowsfromControllingRows.Id = "aCreateContractsRowsfromControllingRows" + Me.aCreateContractsRowsfromControllingRows.TargetViewId = "RegistryRowsFinancialControlling_DetailView" + Me.aCreateContractsRowsfromControllingRows.ToolTip = Nothing + ' + 'aDocumentSentBack + ' + Me.aDocumentSentBack.AcceptButtonCaption = Nothing + Me.aDocumentSentBack.CancelButtonCaption = Nothing + Me.aDocumentSentBack.Caption = "Send Back" + Me.aDocumentSentBack.Category = "RecordEdit" + Me.aDocumentSentBack.ConfirmationMessage = Nothing + Me.aDocumentSentBack.Id = "aDocumentSentBack" + Me.aDocumentSentBack.ImageName = "folder_out" + Me.aDocumentSentBack.ToolTip = Nothing + ' + 'aCreateReInvoiceContractRow + ' + Me.aCreateReInvoiceContractRow.AcceptButtonCaption = Nothing + Me.aCreateReInvoiceContractRow.CancelButtonCaption = Nothing + Me.aCreateReInvoiceContractRow.Caption = "Create ReInvoice Contract Row" + Me.aCreateReInvoiceContractRow.ConfirmationMessage = Nothing + Me.aCreateReInvoiceContractRow.Id = "aCreateReInvoiceContractRow" + Me.aCreateReInvoiceContractRow.TargetViewId = "RegistryRowsFinancialControlling_ListView_Reinvoice_InDetail" + Me.aCreateReInvoiceContractRow.ToolTip = Nothing + ' + 'aBankDivideRegistry + ' + Me.aBankDivideRegistry.AcceptButtonCaption = Nothing + Me.aBankDivideRegistry.CancelButtonCaption = Nothing + Me.aBankDivideRegistry.Caption = "Divide rows" + Me.aBankDivideRegistry.Category = "RecordEdit" + Me.aBankDivideRegistry.ConfirmationMessage = Nothing + Me.aBankDivideRegistry.Id = "aBankDivideRegistry" + Me.aBankDivideRegistry.ImageName = "row_add_after" + Me.aBankDivideRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBankDivideRegistry.TargetViewId = "" + Me.aBankDivideRegistry.ToolTip = Nothing + ' + 'aBankMergeRegistry + ' + Me.aBankMergeRegistry.Caption = "aBankMergeRegistry" + Me.aBankMergeRegistry.Category = "ObjectsCreation" + Me.aBankMergeRegistry.ConfirmationMessage = "Do you want to execute command ?" + Me.aBankMergeRegistry.Id = "aBankMergeRegistry" + Me.aBankMergeRegistry.ImageName = "row_delete" + Me.aBankMergeRegistry.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBankMergeRegistry.TargetViewId = "" + Me.aBankMergeRegistry.ToolTip = Nothing + ' + 'aImportInvoiceAdvances + ' + Me.aImportInvoiceAdvances.AcceptButtonCaption = Nothing + Me.aImportInvoiceAdvances.CancelButtonCaption = Nothing + Me.aImportInvoiceAdvances.Caption = "aImport Invoice Advances" + Me.aImportInvoiceAdvances.ConfirmationMessage = Nothing + Me.aImportInvoiceAdvances.Id = "aImportInvoiceAdvances" + Me.aImportInvoiceAdvances.TargetViewId = "RegistryHeader_DetailView_" + Me.aImportInvoiceAdvances.ToolTip = Nothing + ' + 'aImportICInvoice + ' + Me.aImportICInvoice.AcceptButtonCaption = Nothing + Me.aImportICInvoice.CancelButtonCaption = Nothing + Me.aImportICInvoice.Caption = "Import IC Invoice" + Me.aImportICInvoice.ConfirmationMessage = Nothing + Me.aImportICInvoice.Id = "aImportICInvoice" + Me.aImportICInvoice.ImageName = "document_lock" + Me.aImportICInvoice.TargetViewId = "RegistryHeader_DetailView" + Me.aImportICInvoice.ToolTip = Nothing + ' + 'aRegistrySetVATandNextStep + ' + Me.aRegistrySetVATandNextStep.AcceptButtonCaption = Nothing + Me.aRegistrySetVATandNextStep.CancelButtonCaption = Nothing + Me.aRegistrySetVATandNextStep.Caption = "Set VAT and next step" + Me.aRegistrySetVATandNextStep.Category = "RecordsNavigation" + Me.aRegistrySetVATandNextStep.ConfirmationMessage = Nothing + Me.aRegistrySetVATandNextStep.Id = "aRegistrySetVATandNextStep" + Me.aRegistrySetVATandNextStep.TargetViewId = "" + Me.aRegistrySetVATandNextStep.ToolTip = Nothing + ' + 'aDocumentReturnfromSendBack + ' + Me.aDocumentReturnfromSendBack.Caption = "aDocument Returnfrom Send Back" + Me.aDocumentReturnfromSendBack.ConfirmationMessage = Nothing + Me.aDocumentReturnfromSendBack.Id = "aDocumentReturnfromSendBack" + Me.aDocumentReturnfromSendBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aDocumentReturnfromSendBack.TargetViewId = "RegistryHeader_ListView_SendBack" + Me.aDocumentReturnfromSendBack.ToolTip = Nothing + ' + 'aRegistryTaskGotoNextStep + ' + Me.aRegistryTaskGotoNextStep.AcceptButtonCaption = Nothing + Me.aRegistryTaskGotoNextStep.CancelButtonCaption = Nothing + Me.aRegistryTaskGotoNextStep.Caption = "aRegistry Task Goto Next Step" + Me.aRegistryTaskGotoNextStep.Category = "RecordsNavigation" + Me.aRegistryTaskGotoNextStep.ConfirmationMessage = Nothing + Me.aRegistryTaskGotoNextStep.Id = "aRegistryTaskGotoNextStep" + Me.aRegistryTaskGotoNextStep.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRegistryTaskGotoNextStep.TargetObjectsCriteria = "Status<>4" + Me.aRegistryTaskGotoNextStep.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aRegistryTaskGotoNextStep.TargetViewId = "" + Me.aRegistryTaskGotoNextStep.ToolTip = Nothing + Me.aRegistryTaskGotoNextStep.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aOpenRegistryFromTask + ' + Me.aOpenRegistryFromTask.Caption = "aOpen Registry From Task" + Me.aOpenRegistryFromTask.ConfirmationMessage = Nothing + Me.aOpenRegistryFromTask.Id = "aOpenRegistryFromTask" + Me.aOpenRegistryFromTask.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aOpenRegistryFromTask.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aOpenRegistryFromTask.ToolTip = Nothing + Me.aOpenRegistryFromTask.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aPCICheck_RegistryHeader + ' + Me.aPCICheck_RegistryHeader.Caption = "aPCICheck_RegistryHeader" + Me.aPCICheck_RegistryHeader.Category = "RecordEdit" + Me.aPCICheck_RegistryHeader.ConfirmationMessage = Nothing + Me.aPCICheck_RegistryHeader.Id = "aPCICheck_RegistryHeader" + Me.aPCICheck_RegistryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_RegistryHeader.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aPCICheck_RegistryHeader.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPCICheck_RegistryHeader.ToolTip = Nothing + Me.aPCICheck_RegistryHeader.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aRegistrySetTemplate + ' + Me.aRegistrySetTemplate.Caption = "aRegistrySetTemplate" + Me.aRegistrySetTemplate.ConfirmationMessage = Nothing + Me.aRegistrySetTemplate.Id = "aRegistrySetTemplate" + Me.aRegistrySetTemplate.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aRegistrySetTemplate.ToolTip = Nothing + Me.aRegistrySetTemplate.TypeOfView = GetType(DevExpress.ExpressApp.View) + ' + 'aRegistryTaskGroupGotoNextStepWithGLAccount + ' + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.AcceptButtonCaption = Nothing + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.CancelButtonCaption = Nothing + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Caption = "aRegistry Task Group Goto Next Step With GLAccount" + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Category = "RecordsNavigation" + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.ConfirmationMessage = Nothing + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.Id = "aRegistryTaskGroupGotoNextStepWithGLAccount" + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetObjectType = GetType(SISBusiness.[Module].RegistryTasks) + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetViewId = "" + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.ToolTip = Nothing + Me.aRegistryTaskGroupGotoNextStepWithGLAccount.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aViewPCIDW_RegistryHeader + ' + Me.aViewPCIDW_RegistryHeader.Caption = "View detail" + Me.aViewPCIDW_RegistryHeader.ConfirmationMessage = Nothing + Me.aViewPCIDW_RegistryHeader.Id = "aViewPCIDW_RegistryHeader" + Me.aViewPCIDW_RegistryHeader.ImageName = "document_pinned" + Me.aViewPCIDW_RegistryHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDW_RegistryHeader.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aViewPCIDW_RegistryHeader.TargetViewId = "" + Me.aViewPCIDW_RegistryHeader.ToolTip = Nothing + + End Sub + Friend WithEvents aRegistryGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRegistryTaskGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRegistryTaskGroupGotoNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aOpenRegistryFromTask As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPrintCOC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateCOC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRegistryStorno As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateTechnicalContractFromRegistry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateContractsRowsfromControllingRows As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDocumentSentBack As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateReInvoiceContractRow As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBankDivideRegistry As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aBankMergeRegistry As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aImportInvoiceAdvances As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aImportICInvoice As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRegistrySetVATandNextStep As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aPCICheck_RegistryHeader As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRegistrySetTemplate As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aDocumentReturnfromSendBack As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRegistryTaskGroupGotoNextStepWithGLAccount As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aViewPCIDW_RegistryHeader As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.resx new file mode 100644 index 0000000..a91b467 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.resx @@ -0,0 +1,186 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 95 + + + 17, 134 + + + 17, 173 + + + 17, 212 + + + 17, 290 + + + 17, 329 + + + 17, 368 + + + 17, 407 + + + 17, 485 + + + 17, 563 + + + 17, 602 + + + 17, 641 + + + 17, 719 + + + 17, 446 + + + 17, 680 + + + 17, 758 + + + 17, 524 + + + 17, 251 + + + 17, 56 + + + 468, 717 + + + 220, 758 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb new file mode 100644 index 0000000..2d97209 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryVC.vb @@ -0,0 +1,1910 @@ +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.ExpressApp.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Persistent.Base.Security + +Imports DevExpress.XtraEditors +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Validation +Imports DevExpress.ExpressApp.Utils + + + +Public Class RegistryVC + Inherits DevExpress.ExpressApp.ViewController + Protected selection_RegistryVC As ArrayList + Protected noselect_RegistryVC As Boolean = False + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + If noselect_RegistryVC = False Then + selection_RegistryVC = New ArrayList() + End If + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If selection_RegistryVC.Count = 0 Then + 'Beep() + + End If + + If View.Id = "RegistryTaskGoToNewtStepWithGLAccount_DetailView" Then + AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf RegistryTaskGoToNewtStepWithGLAccount_PopUp_AcceptAction_Executing + End If + + Frame.GetController(Of RegistryVC).aRegistryTaskGroupGotoNextStep.Active.SetItemValue("", False) + On Error Resume Next + If View.Id <> "CRM_Opportunities_RegistryTask_ListView_Set" And + View.Id <> "RegistryTask_DetailView" Then + 'Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False) + End If + + Frame.GetController(Of RegistryVC)().aDocumentSentBack.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aRegistrySetVATandNextStep.Active.SetItemValue("", False) + + '------------------------ LISTVIEW ------------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "RegistryHeader_RegistryBankTransfer_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True) + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf RegistryBankTransfer_DeleteAction_Executing + End If + + If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then + Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_ListView" Then + If SecuritySystemHelper.IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), "Administrators") = False Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + End If + If View.Id = "RegistryHeader_WorkFlowCollection_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then + + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _RegistryTasks As RegistryTasks = TryCast(_PropertyCollectionSource.MasterObject, RegistryTasks) + + GLOBAL_RegistryTask_Current_Oid = _RegistryTasks.Oid + + If _RegistryTasks.CurrentWorkflowSystemSteps.StepFinancialType <> eStepFinancialType.eCheckVAT Or _RegistryTasks.RegistryHeader.BruttoAmountRemaining = 0 Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + + End If + + If View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _RegistryTasks As RegistryTasks = TryCast(_PropertyCollectionSource.MasterObject, RegistryTasks) + + GLOBAL_RegistryTask_Current_Oid = _RegistryTasks.Oid + + End If + If View.Id = "RegistryHeader_RegistryTasks_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryHeader_RegistryFileData_ListView" Then ' Iktatási rendszerben a FileData fül + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + End If + If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Dim nv As ListView = View + Dim cs As PropertyCollectionSource = TryCast(nv.CollectionSource, PropertyCollectionSource) + AddHandler cs.MasterObjectChanged, AddressOf MasterObject2_Changed + End If + If View.Id = "RegistryTasks_ListView_Completed_Full" Or _ + View.Id = "RegistryTasks_ListView_Completed" Or _ + View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _ + View.Id = "RegistryTasks_ListView_Not_Completed" Then + + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + + End If + If View.Id = "RegistryTasks_ListView_Not_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Then + Frame.GetController(Of RegistryVC).aRegistryTaskGroupGotoNextStep.Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_ListView_Subcontractor" Then + Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False) + End If + If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + + Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", False) + Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False) + End If + '------------------------ DETAILVIEW ---------------------------------------------------------------------------------------------------------------------------------- + If View.Id = "RegistryRowsFinancialControlling_ReInvoicePopupWindow_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + + If View.Id = "RegistryHeader_DetailView" Then + + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", True) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _RegistryHeader.IsEditable = False Then + Frame.GetController(Of RegistryVC)().aRegistryGotoNextStep.Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().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) + Else + Frame.GetController(Of RegistryVC)().aRegistryGotoNextStep.Active.SetItemValue("", True) + End If + If _ocur.IsNewObject(_RegistryHeader) = False Then + If _RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then + Frame.GetController(Of RegistryVC)().aDocumentSentBack.Active.SetItemValue("", True) + End If + End If + End If + If View.Id = "RegistryTasks_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", True) + Dim _RegistryTasks As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + If _RegistryTasks.Status = General.TaskStatus.Completed Then + Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False) + End If + Else + ' Frame.GetController(Of RegistryVC)().aRegistryTaskGotoNextStep.Active.SetItemValue("", False) + End If + If View.Id = "RegistryRows_Financial_RegistryRows_FinancialControlling" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + End If + If View.Id Like "*RegistryTask*" Then + Frame.GetController(Of ObjectMethodActionsViewController).Actions("Task.MarkCompleted").Active.SetItemValue("", False) + If View.Id = "RegistryTasks_ListView_Not_Completed" Then + CType(View, ListView).CollectionSource.Criteria("ByUser") = _ + CriteriaOperator.Parse("Status<>4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName) + End If + If View.Id = "RegistryTasks_ListView_Completed" Then + CType(View, ListView).CollectionSource.Criteria("ByUser") = _ + CriteriaOperator.Parse("Status=4 and HRPerson.User.UserName=?", SecuritySystem.CurrentUserName) + End If + End If + If View.Id = "RegistryRowsFinancialControlling_DetailView" Then + Frame.GetController(Of RegistryVC)().aGenerateCOC.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.Validation.AllContextsView.ShowAllContextsController)().Action.Active.SetItemValue("", True) + If Not GLOBAL_RegistryTask_Current_Oid = Nothing Then 'Ha nem RegistryTask -ból nyitott�k meg akkor ne sz�lljon el null exception -el + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _RegistryTasks As RegistryTasks = _ocur.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("Oid=?", GLOBAL_RegistryTask_Current_Oid.ToString)) + Dim _RegistryHeader As RegistryHeader = TryCast(_RegistryTasks.RegistryHeader, RegistryHeader) + + If _RegistryHeader IsNot Nothing And _ocur.Session.IsNewObject(_RegistryRowsFinancialControlling) Then + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader + _RegistryRowsFinancialControlling.Amount = _RegistryHeader.NettoAmountRemaining + If _RegistryHeader.UniqueObjects IsNot Nothing Then + _RegistryRowsFinancialControlling.UniqueObjects = _RegistryHeader.UniqueObjects + End If + End If + If _RegistryRowsFinancialControlling.ChoiceRowMode = eChoiceRowMode.eFromCertificate Then + Frame.GetController(Of RegistryVC)().aGenerateCOC.Active.SetItemValue("", False) + Else + Frame.GetController(Of RegistryVC)().aGenerateCOC.Active.SetItemValue("", True) + End If + + Dim _DetailView As DetailView = CType(View, DetailView) + Dim _ChoiceRowMode As DevExpress.ExpressApp.Editors.ViewItem + + _ChoiceRowMode = _DetailView.FindItem("ChoiceRowMode") + End If + End If + If View.Id = "RegistryBankTransfer_DetailView" Then + If Not GLOBAL_RegistryTask_Current_Oid = Nothing And View.ObjectSpace.IsNewObject(View.SelectedObjects(0)) Then 'Ha nem RegistryTask -b�l nyitott�k meg akkor ne sz�lljon el null exception -el + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryBankTransfer As RegistryBankTransfer = TryCast(View.SelectedObjects(0), RegistryBankTransfer) + Dim _CurrentRegistryTask As RegistryTasks = _ocur.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("Oid=?", GLOBAL_RegistryTask_Current_Oid)) + _RegistryBankTransfer.RegistryHeader = _CurrentRegistryTask.RegistryHeader + End If + End If + If View.Id = "RegistryRowsFinancial_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = TryCast(View.SelectedObjects(0), RegistryRowsFinancial) + Dim _RegistryTasks As RegistryTasks = _ocur.FindObject(Of RegistryTasks)(CriteriaOperator.Parse("Oid=?", GLOBAL_RegistryTask_Current_Oid.ToString)) + Dim _RegistryHeader As RegistryHeader = TryCast(_RegistryTasks.RegistryHeader, RegistryHeader) + + If _RegistryHeader IsNot Nothing And _ocur.Session.IsNewObject(_RegistryRowsFinancial) Then + _RegistryRowsFinancial.RegistryHeader = _RegistryHeader + _RegistryRowsFinancial.BruttoAmount = _RegistryHeader.BruttoAmountRemaining + _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT + End If + End If + If View.Id = "DocumentSentBackView_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing + End If + + If View.Id = "RegistryRowsFinancialPopup_DetailView" Then + AddHandler Frame.GetController(Of DialogController)().AcceptAction.Executing, AddressOf RegistryRowsFinancialPopup_DetailView_AcceptAction_Executing + End If + + AddHandler View.SelectionChanged, AddressOf view_SelectionChanged + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True) + If View.Id = "RegistryHeader_DetailView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aRegistryStorno.Active.SetItemValue("", False) + End If + + If View.Id = "RegistryHeader_ListView" Or View.Id = "RegistryTasks_ListView_Completed" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or View.Id = "RegistryTasks_ListView_Not_Completed" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryTasks_DetailView" Or View.Id = "RegistryTasks_RegistryRowsFinancialControlling_ListView" Then + GLOBAL_RegistryTask_Current_Oid = Nothing + End If + If View.Id = "RegistryTasks_DetailView" Then + GLOBAL_RegistryTask_Current_Oid = Nothing + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + + RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged + + If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then + Frame.GetController(Of RegistryVC).aBankDivideRegistry.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aBankMergeRegistry.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).DeleteAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).NewObjectAction.Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + + End If + + If View.Id = "RegistryTasks_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancialControlling_ListView" Then ' Iktatási rendszerben a teljesítésre bontás fül + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "RegistryHeader_ListView_Subcontractor" Then + Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True) + End If + If View.Id = "RegistryRowsFinancialControllingTemplatePopup_RegistryHeader_ListView" Then + Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + + Frame.GetController(Of RegistryRowsFinancialControllingVC).aViewRegistryNoTask.Active.SetItemValue("", False) + Frame.GetController(Of RegistryVC).aPCICheck_RegistryHeader.Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aRegistrySetTemplate.Active.SetItemValue("", True) + Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True) + End If + 'If View.Id = "RegistryTasks_ListView_Not_Completed_Full" Or _ + ' View.Id = "RegistryTasks_ListView_Not_Completed" Then + ' RemoveHandler View.SelectionChanged, AddressOf RegistryTasks_ListView_Not_Completed_Full_SelectionChanged + + 'End If + End Sub + Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DocumentSendBack_Context") + + End Sub + Private Sub RegistryBankTransfer_DeleteAction_Executing(sender As Object, e As System.ComponentModel.CancelEventArgs) + Dim _RegistryBankTransfer As RegistryBankTransfer + + For Each _RegistryBankTransfer In View.SelectedObjects + If _RegistryBankTransfer.BankSavedFileName = "" Then + Else + e.Cancel = True + End If + Next + + End Sub + Sub AcceptAction_Executing() + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "Reinvoice_ok") + End Sub + Sub RegistryRowsFinancialPopup_DetailView_AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) + Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, "DialogOk_Contexts") + End Sub + Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim _RegistryTask As RegistryTasks + If View Is Nothing Then Exit Sub + If View.Id = "RegistryTasks_ListView_Not_Completed" And noselect_RegistryVC = False Then + selection_RegistryVC.Clear() + For Each _RegistryTask In View.SelectedObjects + selection_RegistryVC.Add(_RegistryTask) + Next + End If + If View.Id = "RegistryTasks_ListView_Not_Completed_Full" And noselect_RegistryVC = False Then + selection_RegistryVC.Clear() + For Each _RegistryTask In View.SelectedObjects + selection_RegistryVC.Add(_RegistryTask) + Next + End If + '-------------------------------------------------------------------- + Dim _RegistryHeader As RegistryHeader + If View.Id = "RegistryHeader_ListView" And noselect_RegistryVC = False Then + selection_RegistryVC.Clear() + For Each _RegistryHeader In View.SelectedObjects + selection_RegistryVC.Add(_RegistryHeader) + Next + End If + '----------------------------------------------------------------------- + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + If (View.Id = "RegistryRowsFinancialControlling_ListView_Reinvoice_InGeneral" Or View.Id = "RegistryRowsFinancialControlling_ListView_Reinvoice_InDetail") And noselect_RegistryVC = False Then + selection_RegistryVC.Clear() + For Each _RegistryRowsFinancialControlling In View.SelectedObjects + selection_RegistryVC.Add(_RegistryRowsFinancialControlling) + Next + End If + '----------------------------------------------------------------------- + Dim _RegistryBankTransfer As RegistryBankTransfer + If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" And noselect_RegistryVC = False Then + selection_RegistryVC.Clear() + For Each _RegistryBankTransfer In View.SelectedObjects + selection_RegistryVC.Add(_RegistryBankTransfer) + Next + End If + End Sub + Protected Overrides Sub OnFrameAssigned() + MyBase.OnFrameAssigned() + Dim standardController As NewObjectViewController = Frame.GetController(Of NewObjectViewController)() + AddHandler standardController.ObjectCreated, AddressOf standardController_ObjectCreated + End Sub + Private Sub standardController_ObjectCreated(ByVal sender As Object, ByVal e As ObjectCreatedEventArgs) + If View.Id = "RegistryHeader_RegistryRowsFinancial_ListView" Then + CType(e.CreatedObject, RegistryRowsFinancial).BruttoAmount = CType(e.CreatedObject, RegistryRowsFinancial).RegistryHeader.BruttoAmountRemaining + End If + If View.Id = "RegistryRowsFinancial_RegistryRowsFinancialControlling_ListView" Then + CType(e.CreatedObject, RegistryRowsFinancialControlling).Amount = CType(e.CreatedObject, RegistryRowsFinancialControlling).RegistryHeader.NettoAmountRemaining + End If + End Sub + Private Sub MasterObject2_Changed(ByVal sender As Object, ByVal e As EventArgs) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast((CType(sender, PropertyCollectionSource)).MasterObject, RegistryRowsFinancialControlling) + If _RegistryRowsFinancialControlling.RegistryHeader.BruttoAmountRemainingBank = 0 Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aRegistryGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryGotoNextStep.Execute + 'Véglegesít egy iktatást és tovább lépteti az első lépés utánira + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = _ocur.Session + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + + + Dim _RegistryTask As RegistryTasks + + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryChoiceNextStep) + + Dim _OK_NewRegistryTask As Boolean = False + Dim _ExistingRegistryHeader As RegistryHeader = _ocur.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND DocumentNumber=? AND RegistryAcceptState=0", _RegistryHeader.CustomersFrom, _ + _RegistryHeader.Customers, _RegistryHeader.DocumentNumber), True) + + If _RegistryHeader IsNot Nothing Then + + 'Duplikált számlaiktatás elkerülése miatt megkeressük van e már adott cégek között ilyen bizonylatszámú számla + 'Exception TESZT miatt!!!! + If _ExistingRegistryHeader IsNot Nothing Then + If _ExistingRegistryHeader.Oid <> _RegistryHeader.Oid Then + Throw New Exception("*Létezik már a rendszerben számla a megadott azonosítóval!") + End If + End If + + '-- ha van létező aktív feladat hozzá akkor lezárja + If _RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then + CloseRegistryTask(_uow, _RegistryHeader) + End If + If CheckNextStep(_uow, _RegistryHeader, _RegistryChoiceNextStep.WorkflowSystemSteps) Then + _OK_NewRegistryTask = True + End If + If _RegistryHeader.IsEditable And _OK_NewRegistryTask = True Then + _RegistryHeader.IsEditable = False + _RegistryHeader.CurrentWorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_RegistryChoiceNextStep.WorkflowSystemSteps.Oid) + If _RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then '--- Ha az első lépésre állítja vissza újra legyen szerkeszthető az iktatás + _RegistryHeader.IsEditable = True + End If + + ' -- Banki csomag létrehozása + If (_RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount _ + Or _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eInvoiceAdvanceAsk _ + Or _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eInvoiceFinal) And _RegistryHeader.RegistryBankTransfer.Count = 0 Then + If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then + If Not (_RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eInvoiceFinal And Not _RegistryHeader.F_AmountBruttoHUF > 0) Then + Dim _RegistryBankTransfer As RegistryBankTransfer = New RegistryBankTransfer(_uow) + _RegistryBankTransfer.RegistryHeader = _RegistryHeader + _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment + _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV + _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF + End If + End If + End If + + '-- Pontozás létrehozása ' + ' -- Banki csomag és számla végösszeg egyezésének ellenőrzése + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + If _RegistryHeader.F_PayMode = ePayMode.InTransfer Then + If Not _RegistryHeader.RegistryBankTransfer.Count = 0 Then + Dim _BankTransferSumAmount As Double = 0 + For Each _RegistryBankTransfer As RegistryBankTransfer In _RegistryHeader.RegistryBankTransfer + _BankTransferSumAmount += _RegistryBankTransfer.AmountHUF + Next + If Math.Abs(_BankTransferSumAmount - _RegistryHeader.F_AmountBruttoHUF) > 5 Then + Throw New Exception("*A banki csomagok összege nem egyezik meg a számla végösszegével!") + End If + End If + Else + '// Le kell venni a banki pontozást, ha van ! + + End If + End If + + '-- Az új feladat létrehozása ----------------------------------- + _RegistryTask = New RegistryTasks(_uow) + _RegistryTask.RegistryHeader = _RegistryHeader + _RegistryTask.CurrentWorkflowSystemSteps = _RegistryHeader.CurrentWorkflowSystemSteps + _RegistryTask.StartDate = GetSQLTime(_ocur.Session) + _RegistryTask.Status = General.TaskStatus.NotStarted + _RegistryTask.HRPerson = _uow.GetObjectByKey(Of HRPerson)(_RegistryChoiceNextStep.HRPerson.Oid) + _RegistryTask.Description = _RegistryChoiceNextStep.Description + _RegistryTask.Subject = _RegistryHeader.ShortName + _RegistryTask.DueDate = DateAdd(DateInterval.Day, _RegistryChoiceNextStep.WorkflowSystemSteps.ExpirationDayofFailure, Now) + + + _RegistryChoiceNextStep.Delete() + + _uow.CommitChanges() + _ocur.CommitChanges() + + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + Dim _pci_uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_pci_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.F_ConnectInfo) + End If + View.Close(False) + + End If + End If + End Sub + Private Sub aRegistryGotoNextStep_Cancel(sender As Object, e As System.EventArgs) Handles aRegistryGotoNextStep.Cancel + noselect_RegistryVC = False + End Sub + Private Sub aRegistryTaskGotoNextStep_Cancel(ByVal sender As Object, ByVal e As System.EventArgs) Handles aRegistryTaskGotoNextStep.Cancel + noselect_RegistryVC = False + End Sub + Private Sub aRegistryTaskGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryTaskGotoNextStep.Execute + '---Egy véglegesített iktatásból generált feladatot hoz létre, és azon keresztül lépteti az iktatást------- + Dim _ocur_original As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur_original.Session.DataLayer) + + Dim _RegistryTask As RegistryTasks = _uow.GetObjectByKey(Of RegistryTasks)(TryCast(View.SelectedObjects(0), RegistryTasks).Oid) + Dim _RegistryTask_New As RegistryTasks + Dim _RegistryHeader As RegistryHeader = _RegistryTask.RegistryHeader + + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryChoiceNextStep) + + Dim _OK_NewRegistryTask As Boolean = False + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _Controlling_File As FileData + + If _RegistryHeader IsNot Nothing Then + 'View.Refresh() + If CheckNextStep(_uow, _RegistryHeader, _RegistryChoiceNextStep.WorkflowSystemSteps) Then + _OK_NewRegistryTask = True + End If + + '----- Megkeressük a telj sorokban a csatolt file-t ------------------------------------------------------ + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckCOCScanned Then + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.File IsNot Nothing Then + _Controlling_File = _RegistryRowsFinancialControlling.File + Exit For + End If + Next + '------------- Azokhoz a sorokhoz ahova nincs becsatolva a file, csatoljuk. ---------------------------- + If _Controlling_File IsNot Nothing Then + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.File Is Nothing Then + _RegistryRowsFinancialControlling.File = _Controlling_File + End If + Next + End If + End If + + _RegistryHeader.CurrentWorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_RegistryChoiceNextStep.WorkflowSystemSteps.Oid) '-- Az iktatás aktuális lépésének beállítása + If _RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then '--- Ha az első lépésre állítja vissza újra legyen szerkeszthető az iktatás + _RegistryHeader.IsEditable = True + Else + _RegistryHeader.IsEditable = False + End If + + + If _RegistryHeader.CurrentWorkflowSystemSteps.IsLastStep = False Then '--- Ha az aktuális lépés az utolsó, akkor ne hozzon létre új Task-ot + If _OK_NewRegistryTask = True Then + + _RegistryTask.Status = General.TaskStatus.Completed '---A megnyitott feladat státuszának készre állítása + + _RegistryTask_New = New RegistryTasks(_uow) '--- Egy új feladat példányosítása + _RegistryTask_New.RegistryHeader = _RegistryHeader '--- Az új feladatnak az iktatás fejlécét átadjuk + _RegistryTask_New.CurrentWorkflowSystemSteps = _RegistryHeader.CurrentWorkflowSystemSteps + _RegistryTask_New.StartDate = GetSQLTime(_ocur_original.Session) + _RegistryTask_New.Status = General.TaskStatus.NotStarted + _RegistryTask_New.HRPerson = _uow.GetObjectByKey(Of HRPerson)(_RegistryChoiceNextStep.HRPerson.Oid) + _RegistryTask_New.Description = _RegistryChoiceNextStep.Description + _RegistryTask_New.Subject = _RegistryHeader.ShortName + _RegistryTask_New.DueDate = DateAdd(DateInterval.Day, _RegistryChoiceNextStep.WorkflowSystemSteps.ExpirationDayofFailure, Now) + + _RegistryChoiceNextStep.Delete() + + Else + _RegistryTask.Status = General.TaskStatus.Completed '---A megnyitott feladat státuszának készre állítása + _RegistryChoiceNextStep.Delete() + End If + Else + + _RegistryTask.Status = General.TaskStatus.Completed '---A megnyitott feladat státuszának készre állítása + _RegistryChoiceNextStep.Delete() + + 'Utolsó lépésnél az üzenet menjen be a WorkflowMessage változóba ! + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.WorkflowMessage = _RegistryChoiceNextStep.Description + Next + End If + _uow.CommitChanges() + If TryCast(View, DetailView) IsNot Nothing Then + View.Close(False) + End If + End If + End Sub + Private Sub CloseRegistryTask(ByVal _uow As UnitOfWork, ByVal _RegistryHeader As RegistryHeader) + Dim _RegistryTask_Collection As New XPCollection(Of RegistryTasks)(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, CriteriaOperator.Parse("CurrentWorkflowSystemSteps=? AND RegistryHeader=?", _ + _RegistryHeader.CurrentWorkflowSystemSteps, _RegistryHeader)) + Dim _RegistryTask As RegistryTasks + + For Each _RegistryTask In _RegistryTask_Collection + _RegistryTask.Status = 4 + Next + + End Sub + Private Sub aRegistryGotoNextStep_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRegistryGotoNextStep.CustomizePopupWindowParams, aRegistryTaskGotoNextStep.CustomizePopupWindowParams, aRegistryTaskGroupGotoNextStep.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep = _onew.CreateObject(Of RegistryChoiceNextStep)() + Dim _WorkflowSystemSteps As WorkflowSystemSteps + Dim _WorkflowSystem As WorkflowSystem + Dim _Step As Long + Dim _IsGroup As Boolean = False + Dim _RegistryHeader As RegistryHeader = Nothing + + If View.SelectedObjects.Count = 0 Then Exit Sub + + If View.Id = "RegistryHeader_DetailView" Then + _RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + End If + + If View.Id = "RegistryTasks_DetailView" Or View.Id = "RegistryTasks_ListView_Not_Completed" Or _ + View.Id = "CRM_Opportunities_RegistryTask_ListView_Set" Or View.Id = "RegistryTasks_ListView_Not_Completed_Full" Then + _RegistryHeader = TryCast(View.SelectedObjects(0), RegistryTasks).RegistryHeader + + End If + + If _RegistryHeader Is Nothing Then Exit Sub + + _RegistryChoiceNextStep.RegistryHeader = _onew.GetObject(_RegistryHeader) + _WorkflowSystem = _RegistryChoiceNextStep.RegistryHeader.CurrentWorkflowSystemSteps.WorkflowSystem + _Step = _RegistryChoiceNextStep.RegistryHeader.CurrentWorkflowSystemSteps.StepIndex + 1 + _WorkflowSystemSteps = _onew.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("WorkflowSystem=? and StepIndex=?", _WorkflowSystem, _Step), True) + + _RegistryChoiceNextStep.HRPerson = _RegistryChoiceNextStep.RegistryHeader.HRResponsible + _RegistryChoiceNextStep.WorkflowSystemSteps = _WorkflowSystemSteps + + noselect_RegistryVC = True + + e.View = Application.CreateDetailView(_onew, "RegistryChoiceNextStep_DetailView", False, _RegistryChoiceNextStep) + + End Sub + Private Sub aRegistryTaskGroupGotoNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistryTaskGroupGotoNextStep.Execute + '---Egy v?gleges?tett iktat?sb?l gener?lt feladatot hoz l?tre, ?s azon kereszt?l l?pteti az iktat?st------- + Dim _ocur_original As Xpo.XPObjectSpace = View.ObjectSpace + Dim _uow As UnitOfWork = New UnitOfWork(_ocur_original.Session.DataLayer) + + Dim _RegistryTaskFirst As RegistryTasks = _uow.GetObjectByKey(Of RegistryTasks)(TryCast(selection_RegistryVC(0), RegistryTasks).Oid) + Dim _CurrentWorkflowSystemStepsFirst As WorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(TryCast(_RegistryTaskFirst.RegistryHeader.CurrentWorkflowSystemSteps, WorkflowSystemSteps).Oid) + Dim _RegistryHeader As RegistryHeader = _RegistryTaskFirst.RegistryHeader + Dim _RegistryTask_New As RegistryTasks + + Dim _RegistryChoiceNextStep As RegistryChoiceNextStep = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryChoiceNextStep) + + Dim _RegistryTasks As RegistryTasks + Dim _Faild As Boolean = False + Dim _OK_NewRegistryTask As Boolean = False + Dim _RegistryTasks_Selection As RegistryTasks + If selection_RegistryVC IsNot Nothing Then + For Each _RegistryTasks_Selection In selection_RegistryVC + _RegistryTasks = _uow.GetObjectByKey(Of RegistryTasks)(_RegistryTasks_Selection.Oid) + + If CheckNextStep(_uow, _RegistryTasks.RegistryHeader, _RegistryChoiceNextStep.WorkflowSystemSteps) Then + _OK_NewRegistryTask = True + End If + If _RegistryTasks.RegistryHeader.CurrentWorkflowSystemSteps.ShortName = _CurrentWorkflowSystemStepsFirst.ShortName Then + _RegistryTasks.RegistryHeader.CurrentWorkflowSystemSteps = _uow.GetObjectByKey(Of WorkflowSystemSteps)(_RegistryChoiceNextStep.WorkflowSystemSteps.Oid) + If _RegistryTasks.RegistryHeader.CurrentWorkflowSystemSteps.StepIndex = 1 Then + _RegistryTasks.RegistryHeader.IsEditable = True + End If + _RegistryTasks.Status = General.TaskStatus.Completed + + If _RegistryChoiceNextStep.WorkflowSystemSteps.IsLastStep = False Then + If _OK_NewRegistryTask = True Then + _RegistryTask_New = New RegistryTasks(_uow) '--- Egy új feladat példányosítása + _RegistryTask_New.RegistryHeader = _RegistryTasks.RegistryHeader '--- Az új feladatnak az iktatás fejlécét átadjuk + _RegistryTask_New.CurrentWorkflowSystemSteps = _RegistryTasks.RegistryHeader.CurrentWorkflowSystemSteps + _RegistryTask_New.StartDate = GetSQLTime(_ocur_original.Session) + _RegistryTask_New.Status = General.TaskStatus.NotStarted + _RegistryTask_New.HRPerson = _uow.GetObjectByKey(Of HRPerson)(_RegistryChoiceNextStep.HRPerson.Oid) + _RegistryTask_New.Description = _RegistryChoiceNextStep.Description + _RegistryTask_New.Subject = _RegistryTasks.RegistryHeader.ShortName + _RegistryTask_New.DueDate = DateAdd(DateInterval.Day, _RegistryChoiceNextStep.WorkflowSystemSteps.ExpirationDayofFailure, Now) + + + End If + Else + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + _RegistryRowsFinancialControlling.WorkflowMessage = _RegistryChoiceNextStep.Description + Next + End If + Else + _Faild = True + End If + Next + End If + noselect_RegistryVC = False + _uow.CommitChanges() + + If _Faild = True Then + '---- Teszt Miatt------------------- + e.PopupWindow.Close() + noselect_RegistryVC = False + Throw New Exception("*A kijelölt elemek között volt nem megfelelő lépésen álló feladat, ami nem került léptetésre!") + + _OK_NewRegistryTask = False + End If + + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Public Function CheckNextStep(ByVal p_uow As UnitOfWork, ByVal p_RegistryHeader As RegistryHeader, ByVal p_StepToJump As WorkflowSystemSteps) + 'Ha ezt módosítod akkor a bookentryVC-ben is módosíts! + Dim _WorkflowSystem As WorkflowSystem = p_uow.FindObject(Of WorkflowSystem)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("ShortName=?", p_RegistryHeader.RegistryType.WorkflowSystem.ShortName)) + Dim _CurrentStepIndex As Long = p_RegistryHeader.CurrentWorkflowSystemSteps.StepIndex - 1 + Dim _StepToJumpIndex As Long = p_StepToJump.StepIndex - 2 + + Dim _sortCollection As SortingCollection = New SortingCollection() + _sortCollection.Add(New SortProperty("StepIndex", DB.SortingDirection.Ascending)) + _WorkflowSystem.WorkflowSystemSteps.Sorting = _sortCollection + + For i = _CurrentStepIndex To _StepToJumpIndex + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckVAT Or _ + TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + If p_RegistryHeader.BruttoAmountRemaining <> 0 Then + '---- TESZT MIATT----------------------------- + Throw New Exception("*Nincs Áfára teljesen lebontva, nem lehet tovább léptetni") + End If + End If + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckControlling Or _ + TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Then + Dim _ParentControllings As String = "" 'Azon kontrollszámok nevét tartalmazó string amelyek focsoportok + If p_RegistryHeader.NettoAmountRemaining <> 0 Then + '--- TESZT MIATT--------------------- + Throw New Exception("*Nincs a számla teljesen leigazolva, nem lehet tovább léptetni") + End If + + If p_RegistryHeader.BruttoAmountRemainingBank <> 0 And (p_RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Or _ + p_RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eInvoiceAdvanceAsk) Then + Throw New Exception("*Nincs a teljes összeg lebontva a banki csomagokra") + End If + 'Az iktatás összes számlaigazolási sorának vizsgálata, hogy van e bennük hivatkozás focsoport cm-re + For Each _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling In p_RegistryHeader.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.Controlling.IsParent = True Then + _ParentControllings += _RegistryRowsFinancialControlling.Controlling.Name & ", " + End If + Next + If Not _ParentControllings = "" Then + + Throw New Exception("*Figyelem a felhasznált CM számok focsoportok: " & _ParentControllings & "! Kérem válasszon egy nem főcsoport CM számot") + End If + End If + If TryCast(_WorkflowSystem.WorkflowSystemSteps(i), WorkflowSystemSteps).StepFinancialType = eStepFinancialType.eCheckCOCScanned Then + 'Aktuális iktatáshoz rendelt teljesítésre bontás sorokat ellenoriz. A teljes leigazolandó nettó összegre vonatkozóan a CM számoknak beállított határértéket vizsgál + 'miszerint köteles visszacsatolt aláírt telesítési igazolás nyomtatványt visszacsatolni + + 'Összegyujti az iktatáshoz tartozó teljesítésre bontás sorokat + Dim _RegistryRowsFinancialControllingCollection As XPCollection(Of RegistryRowsFinancialControlling) = New XPCollection(Of RegistryRowsFinancialControlling)(PersistentCriteriaEvaluationBehavior.InTransaction, p_uow, CriteriaOperator.Parse("RegistryHeader=?", p_RegistryHeader)) + Dim sortCollection As SortingCollection = New SortingCollection() + Dim j As Long = 0 + Dim _WhileNextStep As Boolean = True + Dim _AmountonCM As Double + + 'Sorba rendezi a kollekciót cm szám alapján + sortCollection.Add(New SortProperty("Controlling.Name", DB.SortingDirection.Ascending)) + _RegistryRowsFinancialControllingCollection.Sorting = sortCollection + + Do While _WhileNextStep + ' Az aktu�lis CM sz�m egyenlege null�r�l indul + _AmountonCM = 0 + Do + 'A CM egyenleg�t n�velj�k addig am�g az aktu�lis soron r� hivatkoznak + _AmountonCM += _RegistryRowsFinancialControllingCollection(j).Amount + + 'Ha a CM -nek be van �ll�tva, hogy k�telesek vagyunk elv�gezni a vizsg�latot + '�s a CM aktu�lis egyenlege meghaladja a megengedett �sszeget �s nincs f�jl visszacsatolva + 'akkor nem lehet tov�bbengedni a folyamatot. + If _RegistryRowsFinancialControllingCollection(j).Controlling.IsCOCRequired And _ + _AmountonCM > _RegistryRowsFinancialControllingCollection(j).Controlling.COCAboveAmount And _ + _RegistryRowsFinancialControllingCollection(j).File Is Nothing Then + '--- TESZT MIATT--------------------- + Throw New Exception("*Nincs feltöltve a beszkennelt aláírt teljesítési igazolás!") + End If + + If j = _RegistryRowsFinancialControllingCollection.Count - 1 Then + _WhileNextStep = False + Exit Do + End If + + j += 1 + + Loop While _RegistryRowsFinancialControllingCollection(j - 1).Controlling.Name = _RegistryRowsFinancialControllingCollection(j).Controlling.Name + Loop + End If + Next + Return True + End Function + Private Sub aOpenRegistryFromTask_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOpenRegistryFromTask.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryHeader As RegistryHeader = TryCast(e.SelectedObjects(0), RegistryTasks).RegistryHeader + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RegistryHeader_DetailView", True, _onew.GetObject(_RegistryHeader)) + Catch + End Try + End Sub + Private Sub aPrintCOC_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCOC.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _CertificateofContractHeader As CertificateofContractHeader + Dim _CertificateofContractRows As CertificateofContractRows + Dim _ReportData As ReportData + + If _RegistryRowsFinancialControlling IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + _CertificateofContractRows = _ocur.FindObject(Of CertificateofContractRows)(CriteriaOperator.Parse("ContractRows.Oid=?", _RegistryRowsFinancialControlling.ContractRows.Oid), True) + If _CertificateofContractRows IsNot Nothing Then + _CertificateofContractHeader = _CertificateofContractRows.CertificateofContractHeader + _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _CertificateofContractHeader.Contracts.ContractTemplate.COC_ReportData.Oid), True) + If _ReportData Is Nothing Or _CertificateofContractHeader Is Nothing Then + Else + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("CertificateofContractHeader.DocumentNumber =?", _CertificateofContractHeader.DocumentNumber), True) + End If + End If + End If + End If + + End Sub + Private Sub aGenerateCOC_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateCOC.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(e.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _CertificateofContractHeader As CertificateofContractHeader + Dim _CertificateofContractRows As CertificateofContractRows + + Dim _CertificateofContractRows_Exists As CertificateofContractRows + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.CertificateofContractRows Is Nothing Then + If _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.IsTechnical = True Then + _ocur.Rollback() + Throw New Exception("*Technikai szerződéshez nem lehet teljesítési igazolást készíteni !") + Else + _CertificateofContractRows_Exists = _ocur.FindObject(Of CertificateofContractRows)(CriteriaOperator.Parse("ContractRows.Oid=?", _RegistryRowsFinancialControlling.ContractRows.Oid)) + If _CertificateofContractRows_Exists IsNot Nothing Then + _ocur.Rollback() + Throw New Exception("*Ehhez a szerződési sorhoz már készült teljesítési igazolás !") + Else + _CertificateofContractHeader = _ocur.CreateObject(Of CertificateofContractHeader)() + _CertificateofContractHeader.DateExecution = _RegistryRowsFinancialControlling.ContractRows.DateExecution + _CertificateofContractHeader.Contracts = _RegistryRowsFinancialControlling.ContractRows.Contracts + _CertificateofContractHeader.ReportHeader = _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.COC_ReportHeader + _CertificateofContractHeader.ReportFooter = _RegistryRowsFinancialControlling.ContractRows.Contracts.ContractTemplate.COC_ReportFooter + _CertificateofContractHeader.IsEditable = False + _CertificateofContractHeader.IsStorno = False + + '-- Sor létrehozása -------------------- + _CertificateofContractRows = _ocur.CreateObject(Of CertificateofContractRows)() + _CertificateofContractRows.CertificateofContractHeader = _CertificateofContractHeader + _CertificateofContractRows.ContractRows = _RegistryRowsFinancialControlling.ContractRows + _CertificateofContractRows.ContractRows.CertificateofContractRows = _CertificateofContractRows + + _ocur.CommitChanges() + + Frame.GetController(Of RegistryVC).aPrintCOC.DoExecute() + End If + End If + End If + End If + End Sub + Private Sub aRegistryStorno_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistryStorno.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryBankTransfer_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryBankTransfer), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryRowsFinancialControlling_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryRowsFinancialControlling), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryRowsFinancial_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryRowsFinancial), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryTasks_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryTasks), CriteriaOperator.Parse("RegistryHeader = ? AND Status='0'", _RegistryHeader)) + Dim _IsTransfered As Boolean = False + Dim _IsControlled As Boolean = False + Dim _IsReInvoiced As Boolean = False + Dim _IsVATControlled As Boolean = False + + For Each _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + _IsControlled = True + End If + If _RegistryRowsFinancialControlling.ReInvoice_ContractRows IsNot Nothing Then + _IsReInvoiced = True + End If + Next + + For Each _RegistryBankTransfer As RegistryBankTransfer In _RegistryBankTransfer_Collection + If Not _RegistryBankTransfer.BankSavedFileName = "" Then + _IsTransfered = True + End If + Next + + For Each _RegistryRowsFinancial As RegistryRowsFinancial In _RegistryRowsFinancial_Collection + _IsVATControlled = True + Next + For Each _RegistryTasks As RegistryTasks In _RegistryTasks_Collection + _RegistryTasks.Status = General.TaskStatus.Completed + Next + + If _IsControlled = False And _IsReInvoiced = False And _IsTransfered = False Then + _RegistryHeader.IsStorno = True + _RegistryHeader.IsEditable = False + _ocur.Delete(_RegistryTasks_Collection) + _ocur.Delete(_RegistryBankTransfer_Collection) + _ocur.Delete(_RegistryRowsFinancial_Collection) + _ocur.Delete(_RegistryRowsFinancialControlling_Collection) + _ocur.CommitChanges() + + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryHeader.F_ConnectInfo) + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryHeader.F_ConnectInfo) + End If + Else + ''!!!!! - Teszt miatti exception! + _ocur.Rollback() + If _IsControlled Then Throw New Exception("*Nem lehet stornozni, mert van számla igazolási sor ! Előbb törölje számla igazolást.") + If _IsReInvoiced Then Throw New Exception("*Nem lehet stornózni, tovább lett számlázva a tétel !") + If _IsTransfered Then Throw New Exception("*Nem lehet stornózni, történt pénzügyi kiegyenlítés ! Előbb vegye le a pénzügyi kiegyenlítés pontozását.") + If _IsVATControlled Then Throw New Exception("*Nem lehet stornózni, áfa sor van rögzítve a számlához ! Előbb törölje az áfa sort. Felhívjuk a figyelmet, hogy az áfa sor az áfa analitikából is törlődik. Amennyiben bevallással lezárt időszakról van szó, revízió beadására lehet szükség!") + End If + + End Sub + Private Sub aCreateTechnicalContractFromRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateTechnicalContractFromRegistry.Execute + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) ' A valid�ci� ideiglenes letilt�sa az akci� v�grehajt�s�nak idej�re. + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _RegistryHeader As RegistryHeader = _RegistryRowsFinancialControlling.RegistryHeader + Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryHeader.CustomersFrom)) + Dim _ExistingTechnicalContract As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, _TechnicalContractTemplate)) + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _TechnicalLimitAmount As Double = _RegistryRowsFinancialControlling.Controlling.TechnicalContractLimit + If _TechnicalLimitAmount = 0 Then _TechnicalLimitAmount = 200000 + 'If SecuritySystemHelper.IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), "GV") Then _TechnicalLimitAmount = 999999999 + + If _RegistryRowsFinancialControlling.Amount <= _TechnicalLimitAmount Then + If _ExistingTechnicalContract Is Nothing Then + Dim _Contracts As Contracts = _ocur.CreateObject(Of Contracts)() + Dim _ContractRows As ContractRows = _ocur.CreateObject(Of ContractRows)() + + _Contracts.CustomersFrom = _RegistryHeader.CustomersFrom + _Contracts.Customers = _RegistryHeader.Customers + _Contracts.ContractTemplate = _TechnicalContractTemplate + _Contracts.DateCreated = _RegistryHeader.F_DateCreated + _Contracts.DateExecution = _RegistryHeader.F_DateExecution + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.State = State.Signed + + If _Contracts IsNot Nothing Then + _ContractRows.Contracts = _Contracts + _ContractRows.CurrencyName = _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + Else + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _RegistryRowsFinancialControlling.Amount / _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + End If + _ContractRows.ShortName = _RegistryRowsFinancialControlling.Note + _ContractRows.PaymentOption = _RegistryRowsFinancialControlling.PaymentOption + _ContractRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + + 'IDE KELL VALAMI ÁFA ! + + For Each _RegistryRowsFinancial In _RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial + _ContractRows.VAT = _RegistryRowsFinancial.VAT + Exit For + Next + + _ContractRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _ContractRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _ContractRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + End If + _ocur.CommitChanges() + Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + If TryCast(View, DetailView) IsNot Nothing Then + View.Close() + End If + Else + Dim _ContractRows As ContractRows = _ocur.CreateObject(Of ContractRows)() + + _ContractRows.Contracts = _ExistingTechnicalContract + _ContractRows.CurrencyName = _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + Else + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _RegistryRowsFinancialControlling.Amount / _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + End If + _ContractRows.ShortName = _RegistryRowsFinancialControlling.Note + _ContractRows.PaymentOption = _RegistryRowsFinancialControlling.PaymentOption + _ContractRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + + For Each _RegistryRowsFinancial In _RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial + _ContractRows.VAT = _RegistryRowsFinancial.VAT + Exit For + Next + + _ContractRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _ContractRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _ContractRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + _ContractRows.Description = _RegistryRowsFinancialControlling.Note + + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + + _ocur.CommitChanges() + Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + If TryCast(View, DetailView) IsNot Nothing Then + View.Close() + Exit Sub + End If + End If + Frame.GetController(Of RegistryVC).aCreateTechnicalContractFromRegistry.Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + Else + '-------!!!!!!!TESZT MIATT!!!!!------------------------------------------ + Dim _Message As String = String.Format("Technikai limit van beállítva ! {0}", _TechnicalLimitAmount) + Throw New Exception(_Message) + End If + + End Sub + Private Sub aCreateContractsRowsfromControllingRows_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateContractsRowsfromControllingRows.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + Dim _Contracts As Contracts = TryCast(_RegistryRowsFinancialControlling.Contracts, Contracts) + Dim _ContractRows As ContractRows + If _Contracts Is Nothing Then Exit Sub + + If _RegistryRowsFinancialControlling IsNot Nothing And _Contracts IsNot Nothing Then + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _ContractRows.CurrencyName = _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName + _ContractRows.NettoPriceHUF = _RegistryRowsFinancialControlling.Amount + If Not _ContractRows.CurrencyName.ShortName = "HUF" Then + If _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = Math.Round(_RegistryRowsFinancialControlling.Amount / _RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero) + End If + End If + _ContractRows.ShortName = _RegistryRowsFinancialControlling.Note + _ContractRows.Description = _RegistryRowsFinancialControlling.Note + _ContractRows.PaymentOption = _RegistryRowsFinancialControlling.PaymentOption + _ContractRows.UniqueObjects = _RegistryRowsFinancialControlling.UniqueObjects + If _RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial.Count > 0 Then + _ContractRows.VAT = TryCast(_RegistryRowsFinancialControlling.RegistryHeader.RegistryRowsFinancial(0), RegistryRowsFinancial).VAT + End If + _ContractRows.CostHolder = _RegistryRowsFinancialControlling.CostHolder + _ContractRows.CostPlace = _RegistryRowsFinancialControlling.CostPlace + _ContractRows.Controlling = _RegistryRowsFinancialControlling.Controlling + _ContractRows.JobNumberObjects = _RegistryRowsFinancialControlling.JobNumberObjects + _ContractRows.QTT = 1 + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + + _ocur.CommitChanges() + + If TryCast(View, DetailView) IsNot Nothing Then + View.Close() + Exit Sub + End If + End If + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aReInvoice_InvoiceHeaderConnection_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _InvoiceHeaderListView As ListView = Application.CreateListView(_onew, GetType(InvoiceHeader), False) + _InvoiceHeaderListView.CollectionSource.Criteria.Add("Criteria1", CriteriaOperator.Parse("IsEditable=False AND IsProforma=False AND IsStorno=False AND IsImported=False")) + e.View = _InvoiceHeaderListView + End Sub + Private Sub aRegistryTaskGroupGotoNextStep_Cancel(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aRegistryTaskGroupGotoNextStep.Cancel + noselect_RegistryVC = False + End Sub + Private Sub aDocumentSentBack_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDocumentSentBack.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DocumentSentBackView As DocumentSentBackView = _ocur.CreateObject(Of DocumentSentBackView)() + Dim _DocumentSentBackView_New As DocumentSentBackView + + _DocumentSentBackView.CauseOfRefuse = "" + _DocumentSentBackView.ReturnType = eDeliveryType.eLetter + _DocumentSentBackView.Save() + _ocur.CommitChanges() + _DocumentSentBackView_New = _onew.GetObject(_DocumentSentBackView) + + e.View = Application.CreateDetailView(_onew, "DocumentSentBackView_DetailView", False, _DocumentSentBackView_New) + End Sub + Private Sub aDocumentSentBack_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDocumentSentBack.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _DocumentSentBackView As DocumentSentBackView = TryCast(e.PopupWindow.View.SelectedObjects(0), DocumentSentBackView) + Dim _RegistryBankTransfer_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryBankTransfer), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryRowsFinancial_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryRowsFinancial), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryRowsFinancialControlling_Collection As XPCollection = _ocur.CreateCollection(GetType(RegistryRowsFinancialControlling), CriteriaOperator.Parse("RegistryHeader=?", _RegistryHeader)) + Dim _RegistryTasks_Collection As XPCollection = View.ObjectSpace.CreateCollection(GetType(RegistryTasks), CriteriaOperator.Parse("RegistryHeader = ? AND Status='0'", _RegistryHeader)) + Dim _IsTransfered As Boolean = False + Dim _IsControlled As Boolean = False + Dim _IsReInvoiced As Boolean = False + + For Each _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + If _RegistryRowsFinancialControlling.ContractRows IsNot Nothing Then + _IsControlled = True + End If + If _RegistryRowsFinancialControlling.ReInvoice_ContractRows IsNot Nothing Then + _IsReInvoiced = True + End If + Next + + For Each _RegistryBankTransfer As RegistryBankTransfer In _RegistryBankTransfer_Collection + If Not _RegistryBankTransfer.BankSavedFileName = "" Then + _IsTransfered = True + End If + Next + + If _IsControlled = False And _IsReInvoiced = False And _IsTransfered = False Then + _RegistryHeader.CauseOfRefuse = _ocur.GetObject(_DocumentSentBackView.CauseOfRefuse) + _RegistryHeader.ReturnType = _ocur.GetObject(_DocumentSentBackView.ReturnType) + _RegistryHeader.RegistryAcceptState = eRegistryAcceptState.eDecline + _RegistryHeader.DateReturn = GetSQLTime(_ocur.Session) + _RegistryHeader.IsEditable = False + _RegistryHeader.IsStorno = True + + _ocur.Delete(_RegistryBankTransfer_Collection) + _ocur.Delete(_RegistryRowsFinancialControlling_Collection) + _ocur.Delete(_RegistryRowsFinancial_Collection) + + For Each _RegistryTasks As RegistryTasks In _RegistryTasks_Collection + _RegistryTasks.Status = General.TaskStatus.Completed + _RegistryTasks.Save() + Next + + _RegistryHeader.Save() + _ocur.CommitChanges() + + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryHeader.F_ConnectInfo) + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, ePartnerType.ePayabels, _RegistryHeader.DocumentNumber) + End If + + View.Close(False) + Else + '!!!!! - Teszt miatti exception! + If _IsControlled Then Throw New UserFriendlyException("Nem lehet visszaküldeni, mert történt számla igazolás! Előbb ezt vissza kell vonni!") + If _IsTransfered Then Throw New UserFriendlyException("Nem lehet visszaküldeni, mert történt banki utalás!") + If _IsReInvoiced Then Throw New UserFriendlyException("Nem lehet visszaküldeni, mert történt továbbszámlázás erről a számláról!") + End If + End Sub + Private Sub aCreateReInvoiceContractRow_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateReInvoiceContractRow.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _ContractRows As ContractRows + Dim _RegistryRowsFinancialControlling_ReInvoicePopupWindow As RegistryRowsFinancialControlling_ReInvoicePopupWindow = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialControlling_ReInvoicePopupWindow) + + '// A kiválasztott tételek továbbszámlázási jogcímeinek ellenőrzése, hogy mind ugyanarra szól-e + + For i = 1 To selection_RegistryVC.Count - 1 + If TryCast(selection_RegistryVC(i), RegistryRowsFinancialControlling).ReInvoiceReason IsNot TryCast(selection_RegistryVC(0), RegistryRowsFinancialControlling).ReInvoiceReason Then + _ocur.Rollback() + Throw New Exception("*A kijelölt továbbszámlázandó tételek jogcímei nem egyeznek meg!") + End If + Next + + '// A számlák teljesítési dátumának ellenőrzése + + For Each _RegistryRowsFinancialControlling In selection_RegistryVC + If _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution > _RegistryRowsFinancialControlling_ReInvoicePopupWindow.DateExecution Then + _ocur.Rollback() + Throw New Exception("*A továbbszámlázandó tétel (" & _RegistryRowsFinancialControlling.RegistryHeader.ShortName & ") teljesítési dátuma későbbi mint a most készülő számla teljesítési dátuma!") + End If + Next + + '// A szerződési sor létrehozása + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.Contracts = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.Contracts) + _ContractRows.DateExecution = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.DateExecution) + + _ContractRows.NettoPriceHUF = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.FinalAmount) + _ContractRows.Description = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.Description) + _ContractRows.VAT = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.VAT) + _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects) + _ContractRows.PaymentOption = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.PaymentOption) + _ContractRows.ShortName = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.ReInvoiceReason.ReInvoiceDescription) + + '// Jelölő adatok beállítása + _ContractRows.Controlling = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.ReInvoiceReason) + _ContractRows.CostHolder = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder) + _ContractRows.CostPlace = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace) + _ContractRows.JobNumberObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects) + _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects) + + If Not _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.ShortName) = "" Then + _ContractRows.ShortName = _ocur.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow.ShortName) + End If + + _ContractRows.QTT = 1 + ' Erre ki kell találni valami paramétert, hogy ne így kelljen keresni!!! + _ContractRows.Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("ShortName LIKE '%DB%'")) + + For Each _RegistryRowsFinancialControlling In selection_RegistryVC + _RegistryRowsFinancialControlling.ReInvoice_ContractRows = _ContractRows + Next + _ocur.CommitChanges() + noselect_RegistryVC = False + End Sub + Private Sub aCreateReInvoiceContractRow_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateReInvoiceContractRow.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SumAmountOfSelectedItems As Double = 0 + Dim _RegistryRowsFinancialControlling_ReInvoicePopupWindow As RegistryRowsFinancialControlling_ReInvoicePopupWindow = _onew.CreateObject(Of RegistryRowsFinancialControlling_ReInvoicePopupWindow)() + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + noselect_RegistryVC = True + + For Each _RegistryRowsFinancialControlling In selection_RegistryVC + _SumAmountOfSelectedItems += _RegistryRowsFinancialControlling.Amount + Next + _RegistryRowsFinancialControlling = TryCast(View.SelectedObjects(0), RegistryRowsFinancialControlling) + + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.SumAmountOfSelectedItems = _SumAmountOfSelectedItems + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.RegistryRowsFinancialControlling = _onew.GetObject(_RegistryRowsFinancialControlling) + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.ShortName = _RegistryRowsFinancialControlling.ReInvoiceReason.ReInvoiceDescription + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.FinalAmount = _SumAmountOfSelectedItems + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.Description = "A számla közvetített szolgáltatást tartalmaz." + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder = _onew.GetObject(TryCast(selection_RegistryVC(0), RegistryRowsFinancialControlling).CostHolder) + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace = _onew.GetObject(TryCast(selection_RegistryVC(0), RegistryRowsFinancialControlling).CostPlace) + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects = _onew.GetObject(TryCast(selection_RegistryVC(0), RegistryRowsFinancialControlling).JobNumberObjects) + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects = _onew.GetObject(TryCast(selection_RegistryVC(0), RegistryRowsFinancialControlling).UniqueObjects) + _RegistryRowsFinancialControlling_ReInvoicePopupWindow.VAT = _onew.FindObject(Of VAT)(_onew.ParseCriteria("DefaultForBusinnes=True")) + + + e.View = Application.CreateDetailView(_onew, "RegistryRowsFinancialControlling_ReInvoicePopupWindow_DetailView", False, _onew.GetObject(_RegistryRowsFinancialControlling_ReInvoicePopupWindow)) + + End Sub + Private Sub aCreateReInvoiceContractRow_Cancel(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aCreateReInvoiceContractRow.Cancel + noselect_RegistryVC = False + End Sub + Private Sub aGoToNextStepGroup_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) + + End Sub + Private Sub aBankDivide_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aBankDivideRegistry.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _GLBankDivide As GLBankDivide = TryCast(e.PopupWindow.View.SelectedObjects(0), GLBankDivide) + Dim _RegistryBankTransfer As RegistryBankTransfer = View.SelectedObjects(0) + + If Not _RegistryBankTransfer.BankSavedFileName = "" Then + Throw New Exception("*A tétel már csomaghoz van rendelve, nem lehet szétbontani!") + End If + + If _GLBankDivide.AmountHUF = 0 And _GLBankDivide.AmountDEV = 0 And _GLBankDivide.AmountPercent = 0 Then + Throw New Exception("*Kérem adjon meg legalább egy a bontáshoz szükséges paramétert!") + End If + If Not _RegistryBankTransfer.RegistryHeader.BruttoAmountRemainingBank = 0 Then + Throw New Exception("*A számla banki csomagjai nem fedik a számla teljes összegét, kérem ellenőrizze!") + End If + + If _GLBankDivide.AmountDEV > _RegistryBankTransfer.AmountDEV Or _GLBankDivide.AmountHUF > _RegistryBankTransfer.AmountHUF Then + Throw New Exception("*A megadott adatok meghaladják a csomag értékét!") + End If + + If _GLBankDivide.AmountPercent > 0 Then + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _ocur.GetObject(_RegistryBankTransfer.RegistryHeader) + _RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer.AmountHUF * (_GLBankDivide.AmountPercent / 100)), 2, MidpointRounding.AwayFromZero) + If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _RegistryBankTransfer_New.AmountDEV = Math.Round(_RegistryBankTransfer.AmountDEV * (_GLBankDivide.AmountPercent / 100), 2, MidpointRounding.AwayFromZero) + _RegistryBankTransfer_New.AmountHUF = Math.Round((_RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate), 2, MidpointRounding.AwayFromZero) + End If + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + If Not _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV + End If + + + ElseIf _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName = "HUF" And _GLBankDivide.AmountHUF > 0 Then + + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _ocur.GetObject(_RegistryBankTransfer.RegistryHeader) + _RegistryBankTransfer_New.AmountHUF = _GLBankDivide.AmountHUF + + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + + Else + + Dim _RegistryBankTransfer_New As RegistryBankTransfer = _ocur.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer_New.RegistryHeader = _ocur.GetObject(_RegistryBankTransfer.RegistryHeader) + _RegistryBankTransfer_New.AmountDEV = _GLBankDivide.AmountDEV + _RegistryBankTransfer_New.AmountHUF = _RegistryBankTransfer_New.AmountDEV * _RegistryBankTransfer.RegistryHeader.F_CurrencyRate + + _RegistryBankTransfer_New.DatePayment = _GLBankDivide.DatePayment + _RegistryBankTransfer_New.Note = _GLBankDivide.Note + + _RegistryBankTransfer.AmountHUF -= _RegistryBankTransfer_New.AmountHUF + _RegistryBankTransfer.AmountDEV -= _RegistryBankTransfer_New.AmountDEV + + End If + + _ocur.CommitChanges() + If View.IsRoot Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + Else + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.ViewItem.View + parentView.Refresh() + End If + End If + End Sub + Private Sub aBankDivide_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aBankDivideRegistry.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _GLBankDivide As GLBankDivide = _onew.CreateObject(Of GLBankDivide)() + Dim _RegistryBankTransfer As RegistryBankTransfer + + If View.Id = "RegistryRowsFinancialControlling_RegistryBankTransfer_ListView" Then + _RegistryBankTransfer = View.SelectedObjects(0) + End If + If View.Id = "RegistryHeader_RegistryBankTransfer_ListView" Then + _RegistryBankTransfer = View.SelectedObjects(0) + End If + _GLBankDivide.RegistryBankTransfer_AmountDEV = _RegistryBankTransfer.AmountDEV + _GLBankDivide.RegistryBankTransfer_AmountHUF = _RegistryBankTransfer.AmountHUF + _GLBankDivide.RegistryBankTransfer_RegistryHeader_CurrencyName = _RegistryBankTransfer.RegistryHeader.F_CurrencyName.ShortName + _GLBankDivide.Note = _RegistryBankTransfer.Note + e.View = Application.CreateDetailView(_onew, "GLBankDivide_DetailView", False, _GLBankDivide) + End Sub + Private Sub aBankMergeRegistry_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBankMergeRegistry.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _RegistryBankTransfer_Base As RegistryBankTransfer + + Dim _DelArray As New ArrayList + Dim _AmountHUF As Double = 0 + Dim _AmountDEV As Double = 0 + + + + _DelArray.Clear() + If selection_RegistryVC Is Nothing Or selection_RegistryVC.Count <= 0 Then Exit Sub + For I = 0 To selection_RegistryVC.Count - 1 + If Not TryCast(selection_RegistryVC(I), RegistryBankTransfer).BankSavedFileName = "" Then + Throw New Exception("*A tétel már csomaghoz van rendelve, nem lehet összevonni!") + End If + If I = 0 Then + _RegistryBankTransfer_Base = TryCast(selection_RegistryVC(I), RegistryBankTransfer) + Else + _RegistryBankTransfer = TryCast(selection_RegistryVC(I), RegistryBankTransfer) + If _RegistryBankTransfer.RegistryHeader.Oid = _RegistryBankTransfer_Base.RegistryHeader.Oid Then + _AmountDEV += _RegistryBankTransfer.AmountDEV + _AmountHUF += _RegistryBankTransfer.AmountHUF + _DelArray.Add(_RegistryBankTransfer) + End If + End If + + Next + _RegistryBankTransfer_Base.AmountHUF += _AmountHUF + _RegistryBankTransfer_Base.AmountDEV += _AmountDEV + _RegistryBankTransfer_Base.Save() + + For i = 0 To _DelArray.Count - 1 + _ocur.Delete(_DelArray(i)) + Next + + _ocur.CommitChanges() + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aImportInvoiceAdvances_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportInvoiceAdvances.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + e.View = Application.CreateListView(_onew, GetType(RegistryHeader), False) + TryCast(e.View, ListView).CollectionSource.Criteria("Filter1") = New BinaryOperator("RegistryType.RegistryMainType", "2", BinaryOperatorType.Equal) + TryCast(e.View, ListView).CollectionSource.Criteria("Filter2") = New BinaryOperator("CustomersFrom", TryCast(_onew.GetObject(View.SelectedObjects(0)), RegistryHeader).CustomersFrom, BinaryOperatorType.Equal) + TryCast(e.View, ListView).CollectionSource.Criteria("Filter3") = New BinaryOperator("Customers", TryCast(_onew.GetObject(View.SelectedObjects(0)), RegistryHeader).Customers, BinaryOperatorType.Equal) + End Sub + 'Private Sub aImportInvoiceAdvances_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportInvoiceAdvances.Execute + ' Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + ' Dim _RegistryHeader As RegistryHeader = View.SelectedObjects(0) + + ' For Each _InvoiceAdvance As RegistryHeader In e.PopupWindow.View.SelectedObjects + + ' 'Áfa sorok átvétele + ' For Each _RegistryRowsFinancial As RegistryRowsFinancial In _InvoiceAdvance.RegistryRowsFinancial + + ' 'Minden előlegszámláról átvesszük az ÁFA sorokat + ' Dim _RegistryRowsFinancial_New As RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)() + ' _RegistryRowsFinancial_New.RegistryHeader = _RegistryHeader + ' _RegistryRowsFinancial_New.VAT = _ocur.GetObject(_RegistryRowsFinancial.VAT) + ' _RegistryRowsFinancial_New.BruttoAmount = _RegistryRowsFinancial.BruttoAmount + ' _RegistryRowsFinancial_New.Save() + + ' 'Létrehozzuk az ellentétes előjelű áfa sorokat is + ' Dim _RegistryRowsFinancial_New_Negative As RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)() + ' _RegistryRowsFinancial_New_Negative.RegistryHeader = _RegistryHeader + ' _RegistryRowsFinancial_New_Negative.VAT = _ocur.GetObject(_RegistryRowsFinancial.VAT) + ' _RegistryRowsFinancial_New_Negative.BruttoAmount = _RegistryRowsFinancial.BruttoAmount * -1 + ' _RegistryRowsFinancial_New_Negative.Save() + ' Next + + ' 'Az előleg számlához tartozó bekérő teljesítési igazolását is átvesszük + ' For Each _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling In _InvoiceAdvance.F_AdvanceAsk.RegistryRowsFinancialControlling + ' Dim _RegistryRowsFinancialControlling_New As RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + ' _RegistryRowsFinancialControlling_New.RegistryHeader = _RegistryHeader + ' _RegistryRowsFinancialControlling_New.ContractRows = _ocur.GetObject(_RegistryRowsFinancialControlling.ContractRows) + ' _RegistryRowsFinancialControlling_New.Amount = _RegistryRowsFinancialControlling.Amount + ' _RegistryRowsFinancialControlling_New.CertificateofContractRows = _ocur.GetObject(_RegistryRowsFinancialControlling.CertificateofContractRows) + ' _RegistryRowsFinancialControlling_New.Controlling = _ocur.GetObject(_RegistryRowsFinancialControlling.Controlling) + ' _RegistryRowsFinancialControlling_New.CostHolder = _ocur.GetObject(_RegistryRowsFinancialControlling.CostHolder) + ' _RegistryRowsFinancialControlling_New.CostPlace = _ocur.GetObject(_RegistryRowsFinancialControlling.CostPlace) + ' _RegistryRowsFinancialControlling_New.File = _ocur.GetObject(_RegistryRowsFinancialControlling.File) + ' _RegistryRowsFinancialControlling_New.IsReInvoice = _RegistryRowsFinancialControlling.IsReInvoice + ' _RegistryRowsFinancialControlling_New.JobNumberObjects = _ocur.GetObject(_RegistryRowsFinancialControlling.JobNumberObjects) + ' _RegistryRowsFinancialControlling_New.Note = _RegistryRowsFinancialControlling.Note + ' _RegistryRowsFinancialControlling_New.ReInvoice_ContractRows = _ocur.GetObject(_RegistryRowsFinancialControlling.ReInvoice_ContractRows) + ' _RegistryRowsFinancialControlling_New.ReInvoice_Customers = _ocur.GetObject(_RegistryRowsFinancialControlling.ReInvoice_Customers) + ' _RegistryRowsFinancialControlling_New.ReInvoiceMode = _RegistryRowsFinancialControlling.ReInvoiceMode + ' _RegistryRowsFinancialControlling_New.UniqueObjects = _ocur.GetObject(_RegistryRowsFinancialControlling.UniqueObjects) + ' _RegistryRowsFinancialControlling_New.Save() + ' Next + ' Dim _localInvoiceAdvance As RegistryHeader = _ocur.GetObjectByKey(Of RegistryHeader)(_InvoiceAdvance.Oid) + ' _localInvoiceAdvance.F_FinalInvoice = _RegistryHeader + ' _localInvoiceAdvance.Save() + ' Next + ' _ocur.CommitChanges() + 'End Sub + Private Sub aImportICInvoice_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportICInvoice.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryHeader_Collection As XPCollection = _onew.CreateCollection(GetType(RegistryHeader), _ + CriteriaOperator.Parse("CustomersFrom=? AND NOT RegistryType.RegistryMainType=1", _onew.GetObject(_RegistryHeader.CustomersFrom))) + Dim _InvoiceHeader_Collection As XPCollection = _onew.CreateCollection(GetType(InvoiceHeader), _ + CriteriaOperator.Parse("Customers=? AND IsEditable=False AND IsProforma=False", _onew.GetObject(_RegistryHeader.CustomersFrom))) + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(InvoiceHeader)) + Dim _AddToList As Boolean + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _Invoice As InvoiceHeader In _InvoiceHeader_Collection + _AddToList = True + For Each _RegistryHeader0 As RegistryHeader In _RegistryHeader_Collection + If _Invoice.DocumentNumber = _RegistryHeader0.DocumentNumber Then + _AddToList = False + End If + Next + If _AddToList Then + _CS.Add(_Invoice) + End If + Next + + e.View = Application.CreateListView("InvoiceHeader_ListView_PopUp", _CS, False) + End Sub + Private Sub aImportICInvoice_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportICInvoice.Execute + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _InvoiceHeader As InvoiceHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceHeader) + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CustomerBankAccount As CustomerBankAccounts + If _InvoiceHeader IsNot Nothing Then + _RegistryHeader.Customers = _ocur.GetObject(_InvoiceHeader.CustomersFrom) + _RegistryHeader.DocumentNumber = _ocur.GetObject(_InvoiceHeader.DocumentNumber) + _RegistryHeader.F_CurrencyRate = _ocur.GetObject(_InvoiceHeader.CurrencyRate) + _RegistryHeader.F_AmountBruttoDEV = _ocur.GetObject(_InvoiceHeader.TotalBruttoDEV) + _RegistryHeader.F_AmountBruttoHUF = _ocur.GetObject(_InvoiceHeader.TotalBruttoHUF) + _RegistryHeader.F_CurrencyName = _ocur.GetObject(_InvoiceHeader.CurrencyName) + _RegistryHeader.F_DateCreated = _ocur.GetObject(_InvoiceHeader.DateCreated) + _RegistryHeader.F_DateExecution = _ocur.GetObject(_InvoiceHeader.DateExecution) + _RegistryHeader.F_DatePayment = _ocur.GetObject(_InvoiceHeader.DatePayment) + _CustomerBankAccount = _ocur.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=? AND Customers=?", _ocur.GetObject(_InvoiceHeader.BankInformation.AccountNumber), _RegistryHeader.Customers)) + If _CustomerBankAccount IsNot Nothing Then + _RegistryHeader.F_CustomerBankAccounts = _CustomerBankAccount + End If + _RegistryHeader.Save() + End If + End Sub + Private Sub aRegistrySetVATandNextStep_CustomizePopupWindowParams(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRegistrySetVATandNextStep.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryRowsFinancialPopup As RegistryRowsFinancialPopup = _onew.CreateObject(Of RegistryRowsFinancialPopup)() + Dim _RegistryTask As RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + Dim _WorkflowSystemSteps As WorkflowSystemSteps + Dim _WorkflowSystem As WorkflowSystem + Dim _StepIndex As Long + If _RegistryTask.RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Then + _RegistryRowsFinancialPopup.RegistryHeader = _onew.GetObject(_RegistryTask.RegistryHeader) + _WorkflowSystem = _RegistryTask.RegistryHeader.CurrentWorkflowSystemSteps.WorkflowSystem + _StepIndex = _RegistryTask.RegistryHeader.CurrentWorkflowSystemSteps.StepIndex + _WorkflowSystemSteps = _ocur.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("StepIndex=? and WorkflowSystem.Oid=?", _StepIndex + 1, _WorkflowSystem.Oid)) + + _RegistryRowsFinancialPopup.VAT = _onew.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True")) + _RegistryRowsFinancialPopup.WorkflowSystemSteps = _onew.FindObject(Of WorkflowSystemSteps)(CriteriaOperator.Parse("Oid=?", _WorkflowSystemSteps.Oid)) + If _WorkflowSystemSteps.HRResponsible IsNot Nothing Then + _RegistryRowsFinancialPopup.HRPerson = _onew.FindObject(Of HRPerson)(CriteriaOperator.Parse("Oid=?", _WorkflowSystemSteps.HRResponsible.Oid)) + End If + noselect_RegistryVC = True + e.View = Application.CreateDetailView(_onew, "RegistryRowsFinancialPopup_DetailView", False, _RegistryRowsFinancialPopup) + End If + End Sub + Private Sub aRegistrySetVATandNextStep_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRegistrySetVATandNextStep.Execute + Dim _ocur_original As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur_original.Session.DataLayer) + + Dim _RegistryTasks As RegistryTasks + Dim _RegistryTasks_New As RegistryTasks + Dim _RegistryHeader As RegistryHeader + Dim _RegistryRowsFinancial As RegistryRowsFinancial + Dim _IsRegistryRowsFinancial As Boolean = False + Dim _RegistryRowsFinancialPopup As RegistryRowsFinancialPopup = _uow.GetObjectByKey(Of RegistryRowsFinancialPopup)(TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryRowsFinancialPopup).Oid) + + Dim _HRPerson As HRPerson = _uow.FindObject(Of HRPerson)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Oid=?", _RegistryRowsFinancialPopup.HRPerson.Oid)) + Dim _VAT As VAT = _uow.FindObject(Of VAT)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Oid=?", _RegistryRowsFinancialPopup.VAT.Oid)) + Dim _WorkflowSystemSteps As WorkflowSystemSteps = _uow.FindObject(Of WorkflowSystemSteps)(PersistentCriteriaEvaluationBehavior.InTransaction, CriteriaOperator.Parse("Oid=?", _RegistryRowsFinancialPopup.WorkflowSystemSteps.Oid)) + + If selection_RegistryVC IsNot Nothing Then + RaiseEvent InitWork(1, 1, selection_RegistryVC.Count) + For Each _RegistryTasks In selection_RegistryVC + RaiseEvent DoWork() + If _RegistryTasks.Status <> General.TaskStatus.Completed Then + _RegistryHeader = _RegistryTasks.RegistryHeader + _IsRegistryRowsFinancial = False + If _RegistryHeader.CurrentWorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Then + If _RegistryHeader.RegistryType.RegistryMainType = eRegistryMainType.eAccount Then 'Ez hogy lehet más mint pénzügyi iktatás ha a folyamata számla iktatás? + For Each _RegistryRowsFinancial In _RegistryHeader.RegistryRowsFinancial + _IsRegistryRowsFinancial = True + Next + If _IsRegistryRowsFinancial = False Then + _RegistryRowsFinancial = New RegistryRowsFinancial(_uow) + _RegistryRowsFinancial.RegistryHeader = _RegistryHeader + _RegistryRowsFinancial.VAT = _VAT + _RegistryRowsFinancial.BruttoAmount = _RegistryHeader.F_AmountBruttoHUF + _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT + + If CheckNextStep(_uow, _RegistryHeader, _WorkflowSystemSteps) Then 'Léptetés engedélyének vizsgálata + '-- Régi feladat lezárása + _RegistryTasks.Status = General.TaskStatus.Completed + + '-- Új feladat létrehozása + _RegistryTasks_New = New RegistryTasks(_uow) + _RegistryTasks_New.Status = General.TaskStatus.NotStarted + _RegistryTasks_New.Subject = _RegistryHeader.ShortName + _RegistryTasks_New.RegistryHeader = _RegistryHeader + _RegistryTasks_New.CurrentWorkflowSystemSteps = _WorkflowSystemSteps + _RegistryTasks_New.HRPerson = _HRPerson + + _RegistryHeader.CurrentWorkflowSystemSteps = _WorkflowSystemSteps 'Header aktuális lépését is állítani kell + + End If + End If + End If + End If + End If + Next + _uow.CommitChanges() + noselect_RegistryVC = False + RaiseEvent FinalWork + View.Refresh() + End If + End Sub + Private Sub aCreateContractsRowsfromControllingRows_ExecuteCanceled(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.Actions.ActionBaseEventArgs) Handles aCreateContractsRowsfromControllingRows.ExecuteCanceled + + End Sub + + Private Sub aPCICheck_RegistryHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPCICheck_RegistryHeader.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _RegistryHeader As RegistryHeader + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryHeader In View.SelectedObjects + RaiseEvent DoWork() + If _RegistryHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.F_ConnectInfo) + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + + Private Sub aRegistrySetTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRegistrySetTemplate.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + If _RegistryHeader Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + + If _RegistryHeader.RegistryType.RegistryMainType <> eRegistryMainType.eAccount Then Throw New Exception("*A kiválasztott iktatás nem számla típus!") + If _RegistryHeader.RegistryRowsFinancialControlling.Count = 0 Then Throw New Exception("*Nem lehet sablonként használni olyan iktatást, melyenek számaligazolás része üres!") + _RegistryHeader.IsTemplate = Not (_RegistryHeader.IsTemplate) + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + End Try + + End Sub + + Private Sub aDocumentReturnfromSendBack_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDocumentReturnfromSendBack.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryHeader In View.SelectedObjects + RaiseEvent DoWork() + _RegistryHeader.CauseOfRefuse = Nothing + _RegistryHeader.ReturnType = eDeliveryType.eNotSet + _RegistryHeader.RegistryAcceptState = eRegistryAcceptState.eAccept + _RegistryHeader.DateReturn = Nothing + _RegistryHeader.IsEditable = True + _RegistryHeader.IsStorno = False + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + End Sub + + Private Sub aRegistryTaskGroupGotoNextStepWithGLAccount_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRegistryTaskGroupGotoNextStepWithGLAccount.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryTaskGoToNewtStepWithGLAccount As RegistryTaskGoToNewtStepWithGLAccount = _onew.CreateObject(Of RegistryTaskGoToNewtStepWithGLAccount)() + + _RegistryTaskGoToNewtStepWithGLAccount.SelectedTasks = New ArrayList() + _RegistryTaskGoToNewtStepWithGLAccount.SelectedTasks.AddRange(selection_RegistryVC) + + + Dim _RegistryTasks As RegistryTasks + _RegistryTasks = TryCast(View.SelectedObjects(0), RegistryTasks) + _RegistryTaskGoToNewtStepWithGLAccount.CustomersFrom = _ocur.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom) + + noselect_RegistryVC = True + + e.View = Application.CreateDetailView(_onew, "RegistryTaskGoToNewtStepWithGLAccount_DetailView", True, _RegistryTaskGoToNewtStepWithGLAccount) + End Sub + + Private Sub aRegistryTaskGroupGotoNextStepWithGLAccount_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRegistryTaskGroupGotoNextStepWithGLAccount.Execute + '// Az action leigazol egy számlát technikai szerződéssel egy soron , majd fel is adja a könyvelésbe + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _RegistryTasks As RegistryTasks + Dim _RegistryTaskGoToNewtStepWithGLAccount As RegistryTaskGoToNewtStepWithGLAccount = TryCast(e.PopupWindow.View.SelectedObjects(0), RegistryTaskGoToNewtStepWithGLAccount) + + Dim pController As PersistenceValidationController = Frame.GetController(Of PersistenceValidationController)() + + If pController IsNot Nothing Then + AddHandler pController.NeedToValidateObject, AddressOf NeedToValidateObject + End If + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryTasks In View.SelectedObjects + + RaiseEvent DoWork() + '// Technikai szerződés készítése + Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryTasks.RegistryHeader.CustomersFrom)) + Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", + _RegistryTasks.RegistryHeader.CustomersFrom, _RegistryTasks.RegistryHeader.Customers, + _TechnicalContractTemplate)) + Dim _ContractRows As ContractRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.CustomersFrom = _RegistryTasks.RegistryHeader.CustomersFrom + _Contracts.Customers = _RegistryTasks.RegistryHeader.Customers + _Contracts.ContractTemplate = _TechnicalContractTemplate + _Contracts.DateCreated = _RegistryTasks.RegistryHeader.F_DateCreated + _Contracts.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.State = State.Signed + _Contracts.ShortName = "TECHNIKAI SZRERZŐDÉS" + End If + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.CurrencyName = _RegistryTasks.RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryTasks.RegistryHeader.F_DateExecution + _ContractRows.Controlling = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.Controlling) + If _RegistryTasks.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _RegistryTasks.RegistryHeader.NettoAmountRemaining + Else + If _RegistryTasks.RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _RegistryTasks.RegistryHeader.NettoAmountRemaining / _RegistryTasks.RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _RegistryTasks.RegistryHeader.NettoAmountRemaining + End If + _ContractRows.ShortName = _RegistryTasks.RegistryHeader.ShortName + + + 'IDE KELL VALAMI ÁFA ! + Dim _RegistryRowsFinancial As RegistryRowsFinancial + For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial + _RegistryRowsFinancial.F_ReadyforBookEntryRows = True + Next + + For Each _RegistryRowsFinancial In _RegistryTasks.RegistryHeader.RegistryRowsFinancial + _ContractRows.VAT = _RegistryRowsFinancial.VAT + Exit For + Next + + + 'If _TechnicalContractTemplate.Rule5DMatrix.RequireUniqueObjects = True Then + ' If _RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects IsNot Nothing Then + ' _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects) + ' Else + ' MsgBox("Az Egyedi azonosító paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + ' End If + 'Else + ' _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects) + 'End If + If _RegistryTasks.RegistryHeader.UniqueObjects IsNot Nothing Then + _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryTasks.RegistryHeader.UniqueObjects) + Else + _ContractRows.UniqueObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects) + End If + + _ContractRows.CostHolder = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.CostHolder) + _ContractRows.CostPlace = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.CostPlace) + _ContractRows.Controlling = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.Controlling) + _ContractRows.JobNumberObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.JobNumberObjects) + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryTasks.RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _RegistryTasks.RegistryHeader.NettoAmountRemaining + _RegistryRowsFinancialControlling.Controlling = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.Controlling) + _RegistryRowsFinancialControlling.CostHolder = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.CostHolder) + _RegistryRowsFinancialControlling.CostPlace = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.CostPlace) + _RegistryRowsFinancialControlling.Note = _RegistryTasks.RegistryHeader.ShortName + _RegistryRowsFinancialControlling.JobNumberObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.JobNumberObjects) + _RegistryRowsFinancialControlling.UniqueObjects = _ocur.GetObject(_RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects) + + + If _RegistryTaskGoToNewtStepWithGLAccount.IsReinvoice = True Then + _RegistryRowsFinancialControlling.IsReInvoice = _RegistryTaskGoToNewtStepWithGLAccount.IsReinvoice + _RegistryRowsFinancialControlling.ReInvoiceMode = eReinvoiceMode.eGeneral + End If + + _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = True + _ContractRows.RegistryRowsFinancialControlling = _RegistryRowsFinancialControlling + _RegistryTasks.RegistryHeader.F_ReadyforBookEntry = True + + '// El is kell léptetni az utolsó lépésre ! (itt már nem generálódik feladat !!!) + Dim _WorkflowSystemSteps As WorkflowSystemSteps + For Each _WorkflowSystemSteps In _RegistryTasks.RegistryHeader.RegistryType.WorkflowSystem.WorkflowSystemSteps + If _WorkflowSystemSteps.IsLastStep Then + _RegistryTasks.RegistryHeader.CurrentWorkflowSystemSteps = _WorkflowSystemSteps + _RegistryTasks.CurrentWorkflowSystemSteps = _WorkflowSystemSteps + Exit For + End If + Next + _RegistryTasks.Status = General.TaskStatus.Completed + + + _ocur.CommitChanges() + + If _RegistryTasks.RegistryHeader.BookEntryCheck(0, _RegistryTasks.RegistryHeader, _ocur.Session) = True Then + _RegistryTasks.RegistryHeader.BookEntry(0, _RegistryTasks.RegistryHeader, _ocur.Session, True) + Else + + End If + Next + RaiseEvent FinalWork + noselect_RegistryVC = False + End Sub + + Private Sub NeedToValidateObject(sender As Object, e As NeedToValidateObjectEventArgs) + + End Sub + + Private Sub RegistryTaskGoToNewtStepWithGLAccount_PopUp_AcceptAction_Executing(sender As Object, e As CancelEventArgs) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RegistryTaskGoToNewtStepWithGLAccount As RegistryTaskGoToNewtStepWithGLAccount = TryCast(View.SelectedObjects(0), RegistryTaskGoToNewtStepWithGLAccount) + + + For Each _RegistryTasks As RegistryTasks In _RegistryTaskGoToNewtStepWithGLAccount.SelectedTasks + Dim _TechnicalContractTemplate As ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _onew.GetObject(_RegistryTasks.RegistryHeader.CustomersFrom))) + + If _TechnicalContractTemplate IsNot Nothing And _TechnicalContractTemplate.Rule5DMatrix IsNot Nothing Then + + If _TechnicalContractTemplate.Rule5DMatrix.RequireUniqueObjects = True Then + If _RegistryTaskGoToNewtStepWithGLAccount.UniqueObjects Is Nothing Then + MsgBox("Az Egyedi azonosító paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + End If + If _TechnicalContractTemplate.Rule5DMatrix.RequireControlling = True Then + If _RegistryTaskGoToNewtStepWithGLAccount.Controlling Is Nothing Then + MsgBox("A controllszám paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + End If + If _TechnicalContractTemplate.Rule5DMatrix.RequireCostHolder = True Then + If _RegistryTaskGoToNewtStepWithGLAccount.CostHolder Is Nothing Then + MsgBox("A költségviselő paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + End If + If _TechnicalContractTemplate.Rule5DMatrix.RequireCostPlace = True Then + If _RegistryTaskGoToNewtStepWithGLAccount.CostPlace Is Nothing Then + MsgBox("A költséghely paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + End If + If _TechnicalContractTemplate.Rule5DMatrix.RequireJobNumberObjects = True Then + If _RegistryTaskGoToNewtStepWithGLAccount.JobNumberObjects Is Nothing Then + MsgBox("A projekt paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + End If + End If + + If _RegistryTaskGoToNewtStepWithGLAccount.IsReinvoice = True And _RegistryTaskGoToNewtStepWithGLAccount.Controlling Is Nothing Then + MsgBox("A t.sz.-hoz a controllszám paramétert kötelező megadni!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + e.Cancel = True + noselect_RegistryVC = False + Exit For + End If + Next + End Sub + + Private Sub aRegistryTaskGroupGotoNextStepWithGLAccount_Cancel(sender As Object, e As EventArgs) Handles aRegistryTaskGroupGotoNextStepWithGLAccount.Cancel + noselect_RegistryVC = False + End Sub + + Private Sub aViewPCIDW_RegistryHeader_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDW_RegistryHeader.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + + If _RegistryHeader IsNot Nothing Then + ViewPDCI.ViewPDCIDetail(_onew, Application, e, _RegistryHeader.CustomersFrom, _ + _RegistryHeader.Customers, 1, _ + _RegistryHeader.DocumentNumber) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryHeader.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryHeader.vb new file mode 100644 index 0000000..23e4e14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryHeader.vb @@ -0,0 +1,86 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class RRFCQueryHeader + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(ByVal value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + _ + ReadOnly Property RRFCQueryRows As XPCollection(Of RRFCQueryRows) + Get + Return GetCollection(Of RRFCQueryRows)("RRFCQueryRows") + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryRows.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryRows.vb new file mode 100644 index 0000000..83144b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryRows.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class RRFCQueryRows + Inherits BaseObject + Private _RRFCQueryHeader As RRFCQueryHeader + Private _InvoiceRows As InvoiceRows + Private _RegistryHeader As RegistryHeader + Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property RRFCQueryHeader As RRFCQueryHeader + Get + Return _RRFCQueryHeader + End Get + Set(value As RRFCQueryHeader) + SetPropertyValue("RRFCQueryHeader", _RRFCQueryHeader, value) + End Set + End Property + Property InvoiceRows As InvoiceRows + Get + Return _InvoiceRows + End Get + Set(value As InvoiceRows) + SetPropertyValue("InvoiceRows", _InvoiceRows, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Get + Return _RegistryRowsFinancialControlling + End Get + Set(value As RegistryRowsFinancialControlling) + SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb new file mode 100644 index 0000000..a79c854 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.Designer.vb @@ -0,0 +1,78 @@ +Partial Class RRFCQueryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewRegistry_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewAttachments_RRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aQueryRRFC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewRegistry_RRFC + ' + Me.aViewRegistry_RRFC.Caption = "View registry" + Me.aViewRegistry_RRFC.ConfirmationMessage = Nothing + Me.aViewRegistry_RRFC.Id = "aViewRegistry_RRFC" + Me.aViewRegistry_RRFC.ImageName = "document_pinned" + Me.aViewRegistry_RRFC.Shortcut = Nothing + Me.aViewRegistry_RRFC.Tag = Nothing + Me.aViewRegistry_RRFC.TargetObjectsCriteria = Nothing + Me.aViewRegistry_RRFC.TargetViewId = "RRFCQueryHeader_RRFCQueryRows_ListView" + Me.aViewRegistry_RRFC.ToolTip = Nothing + Me.aViewRegistry_RRFC.TypeOfView = Nothing + ' + 'aViewAttachments_RRFC + ' + Me.aViewAttachments_RRFC.Caption = "View attachments" + Me.aViewAttachments_RRFC.ConfirmationMessage = Nothing + Me.aViewAttachments_RRFC.Id = "aViewAttachments_RRFC" + Me.aViewAttachments_RRFC.ImageName = "printer_view" + Me.aViewAttachments_RRFC.Shortcut = Nothing + Me.aViewAttachments_RRFC.Tag = Nothing + Me.aViewAttachments_RRFC.TargetObjectsCriteria = Nothing + Me.aViewAttachments_RRFC.TargetViewId = "RRFCQueryHeader_RRFCQueryRows_ListView" + Me.aViewAttachments_RRFC.ToolTip = Nothing + Me.aViewAttachments_RRFC.TypeOfView = Nothing + ' + 'aQueryRRFC + ' + Me.aQueryRRFC.Caption = "Run query" + Me.aQueryRRFC.ConfirmationMessage = Nothing + Me.aQueryRRFC.Id = "aQueryRRFC" + Me.aQueryRRFC.ImageName = "stopwatch_run" + Me.aQueryRRFC.Shortcut = Nothing + Me.aQueryRRFC.Tag = Nothing + Me.aQueryRRFC.TargetObjectsCriteria = Nothing + Me.aQueryRRFC.TargetViewId = "RRFCQueryHeader_DetailView" + Me.aQueryRRFC.ToolTip = Nothing + Me.aQueryRRFC.TypeOfView = Nothing + + End Sub + Friend WithEvents aViewRegistry_RRFC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewAttachments_RRFC As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aQueryRRFC As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx new file mode 100644 index 0000000..7bf0c98 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 178, 17 + + + 364, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb new file mode 100644 index 0000000..a45b580 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Report/RRFCQueryVC.vb @@ -0,0 +1,122 @@ +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.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports System.Linq +Imports System.Linq.Expressions +Imports DevExpress.Persistent.BaseImpl + +Public Class RRFCQueryVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As User + + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + + If View.Id = "RRFCQueryHeader_RRFCQueryRows_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "RRFCQueryHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'" + End If + If View.Id = "RRFCQueryHeader_DetailView" Then + Frame.GetController(Of DeleteObjectsViewController).DeleteAction.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'" + Frame.GetController(Of RRFCQueryVC).aQueryRRFC.TargetObjectsCriteria = "UserCreated.Oid='" & _User.Oid.ToString & "'" + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "RRFCQueryHeader_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aQueryRRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aQueryRRFC.Execute + 'Frame.GetController(Of ModificationsController).SaveAction.DoExecute() + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + Dim _RRFCQueryHeader As RRFCQueryHeader = _uow.GetObjectByKey(Of RRFCQueryHeader)(TryCast(View.SelectedObjects(0), RRFCQueryHeader).Oid) + Dim _RRFCQueryRows As RRFCQueryRows + + + Dim _RRFCQueryRows_Collection As New XPCollection(_uow, GetType(RRFCQueryRows), _ + CriteriaOperator.Parse("RRFCQueryHeader=?", _RRFCQueryHeader)) + _uow.Delete(_RRFCQueryRows_Collection) + + Dim _RowIndex As Long = 0 + + Dim _RRFC_xpquery = New XPQuery(Of RegistryRowsFinancialControlling)(_uow) + + Dim query = From _RRFC In _RRFC_xpquery + Where _RRFC.RegistryHeader.CustomersFrom Is _RRFCQueryHeader.CustomersFrom And _ + _RRFC.ReInvoice_ContractRows.InvoiceRows IsNot Nothing And _ + _RRFC.ReInvoice_ContractRows.InvoiceRows.InvoiceHeader.IsEditable = False + Select New With {Key .CustomersFrom = _RRFC.RegistryHeader.CustomersFrom, _ + Key .RegistryHeader = _RRFC.RegistryHeader, _ + Key .RegistryRowsFinancialControlling = _RRFC.Oid, _ + Key .InvoiceRows = _RRFC.ReInvoice_ContractRows.InvoiceRows} + + RaiseEvent InitWork(1, 1, query.Count) + For Each item In query + RaiseEvent DoWork() + _RRFCQueryRows = New RRFCQueryRows(_uow) + _RRFCQueryRows.RRFCQueryHeader = _RRFCQueryHeader + _RRFCQueryRows.RegistryHeader = item.RegistryHeader + _RRFCQueryRows.InvoiceRows = item.InvoiceRows + _RRFCQueryRows.RegistryRowsFinancialControlling = _uow.GetObjectByKey(Of RegistryRowsFinancialControlling)(item.RegistryRowsFinancialControlling) + _RowIndex += 1 + If _RowIndex Mod 100 = 0 Then _uow.CommitChanges() + Next + _uow.CommitTransaction() + RaiseEvent FinalWork + If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + End Sub + Private Sub aViewAttachments_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_RRFC.Execute + Dim _RRFCQueryRows As RRFCQueryRows = TryCast(View.SelectedObjects(0), RRFCQueryRows) + Dim _CustomersFrom As CustomersFrom = _RRFCQueryRows.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RRFCQueryRows.RegistryHeader.Customers + Dim _DocumentNumber As String = _RRFCQueryRows.RegistryHeader.DocumentNumber + + ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "") + End Sub + Private Sub aViewRegistry_RRFC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_RRFC.Execute + Dim _RRFCQueryRows As RRFCQueryRows = TryCast(View.SelectedObjects(0), RRFCQueryRows) + Dim _CustomersFrom As CustomersFrom = _RRFCQueryRows.RegistryHeader.CustomersFrom + Dim _Customers As Customers = _RRFCQueryRows.RegistryHeader.Customers + Dim _DocumentNumber As String = _RRFCQueryRows.RegistryHeader.DocumentNumber + + ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber) + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephone.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephone.vb new file mode 100644 index 0000000..0773203 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephone.vb @@ -0,0 +1,216 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RegistryTelephone + Inherits BaseObject + Private _GLAccounts As GLAccounts + Private _RegistryHeader As RegistryHeader + Private _RegistryTelephoneParameters As RegistryTelephoneParameters + Private _UniqueObjects As UniqueObjects + Private _Amount_Brutto_INTERNET As Double + Private _Amount_Netto_INTERNET As Double + Private _Amount_VAT_INTERNET As Double + Private _Amount_Brutto_PARKING As Double + Private _Amount_Brutto_TELEPHON As Double + Private _AmountNetto_TELEPHON_80 As Double + Private _AmountNetto_TELEPHON_20 As Double + Private _Amount_VAT_TELEPHON_70 As Double + Private _Amount_Brutto_OTHER_DEFAULTVAT As Double + Private _Amount_Netto_OTHER_DEFAULTVAT As Double + Private _Amount_VAT_OTHER_DEFAULTVAT As Double + Private _Amount_Brutto_OTHER_NOVAT As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property GLAccounts As GLAccounts + Get + Return _GLAccounts + End Get + Set(value As GLAccounts) + SetPropertyValue("GLAccounts", _GLAccounts, value) + End Set + End Property + Property RegistryHeader As RegistryHeader + Get + Return _RegistryHeader + End Get + Set(value As RegistryHeader) + SetPropertyValue("RegistryHeader", _RegistryHeader, value) + End Set + End Property + Property RegistryTelephoneParameters As RegistryTelephoneParameters + Get + Return _RegistryTelephoneParameters + End Get + Set(value As RegistryTelephoneParameters) + SetPropertyValue("RegistryTelephoneParameters", _RegistryTelephoneParameters, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + Property Amount_Brutto_INTERNET As Double + Get + Return _Amount_Brutto_INTERNET + End Get + Set(value As Double) + SetPropertyValue("Amount_Brutto_INTERNET", _Amount_Brutto_INTERNET, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then + Amount_Netto_INTERNET = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Amount_VAT_INTERNET = Math.Round(value - Amount_Netto_INTERNET, 0, MidpointRounding.AwayFromZero) + Else + Amount_Netto_INTERNET = value + Amount_VAT_INTERNET = 0 + End If + End If + End Set + End Property + Property Amount_Netto_INTERNET As Double + Get + Return _Amount_Netto_INTERNET + End Get + Set(value As Double) + SetPropertyValue("Amount_Netto_INTERNET", _Amount_Netto_INTERNET, value) + End Set + End Property + Property Amount_VAT_INTERNET As Double + Get + Return _Amount_VAT_INTERNET + End Get + Set(value As Double) + SetPropertyValue("Amount_VAT_INTERNET", _Amount_VAT_INTERNET, value) + End Set + End Property + Property Amount_Brutto_PARKING As Double + Get + Return _Amount_Brutto_PARKING + End Get + Set(value As Double) + SetPropertyValue("Amount_Brutto_PARKING", _Amount_Brutto_PARKING, value) + End Set + End Property + Property Amount_Brutto_TELEPHON As Double + Get + Return _Amount_Brutto_TELEPHON + End Get + Set(value As Double) + SetPropertyValue("Amount_Brutto_TELEPHON", _Amount_Brutto_TELEPHON, value) + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then + Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _ + (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 2, MidpointRounding.AwayFromZero) + Me.Amount_VAT_TELEPHON_70 = Math.Round(_Amount_Netto_TELEPHONE * RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue, 2, MidpointRounding.AwayFromZero) + _Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70 + Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero) + Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80 + Else + Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _ + (1), 0, MidpointRounding.AwayFromZero) + Me.Amount_VAT_TELEPHON_70 = 0 + _Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70 + Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero) + Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80 + End If + End If + End Set + End Property + Property AmountNetto_TELEPHON_80 As Double + Get + Return _AmountNetto_TELEPHON_80 + End Get + Set(value As Double) + SetPropertyValue("AmountNetto_TELEPHON_80", _AmountNetto_TELEPHON_80, value) + End Set + End Property + Property AmountNetto_TELEPHON_20 As Double + Get + Return _AmountNetto_TELEPHON_20 + End Get + Set(value As Double) + SetPropertyValue("AmountNetto_TELEPHON_20", _AmountNetto_TELEPHON_20, value) + End Set + End Property + Property Amount_VAT_TELEPHON_70 As Double + Get + Return _Amount_VAT_TELEPHON_70 + End Get + Set(value As Double) + SetPropertyValue("Amount_VAT_TELEPHON_70", _Amount_VAT_TELEPHON_70, value) + End Set + End Property + Property Amount_Brutto_OTHER_DEFAULTVAT As Double + Get + Return _Amount_Brutto_OTHER_DEFAULTVAT + End Get + Set(value As Double) + SetPropertyValue("Amount_Brutto_OTHER_DEFAULTVAT", _Amount_Brutto_OTHER_DEFAULTVAT, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then + Amount_Netto_OTHER_DEFAULTVAT = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 0, MidpointRounding.AwayFromZero) + Amount_VAT_OTHER_DEFAULTVAT = Math.Round(value - Amount_Netto_OTHER_DEFAULTVAT, 0, MidpointRounding.AwayFromZero) + Else + Amount_Netto_OTHER_DEFAULTVAT = value + Amount_VAT_OTHER_DEFAULTVAT = 0 + End If + End If + End Set + End Property + Property Amount_Netto_OTHER_DEFAULTVAT As Double + Get + Return _Amount_Netto_OTHER_DEFAULTVAT + End Get + Set(value As Double) + SetPropertyValue("Amount_Netto_OTHER_DEFAULTVAT", _Amount_Netto_OTHER_DEFAULTVAT, value) + End Set + End Property + Property Amount_VAT_OTHER_DEFAULTVAT As Double + Get + Return _Amount_VAT_OTHER_DEFAULTVAT + End Get + Set(value As Double) + SetPropertyValue("Amount_VAT_OTHER_DEFAULTVAT", _Amount_VAT_OTHER_DEFAULTVAT, value) + End Set + End Property + Property Amount_Brutto_OTHER_NOVAT As Double + Get + Return _Amount_Brutto_OTHER_NOVAT + End Get + Set(value As Double) + SetPropertyValue("Amount_Brutto_OTHER_NOVAT", _Amount_Brutto_OTHER_NOVAT, value) + End Set + End Property + + ReadOnly Property RowTotalBrutto As Double + Get + Return Amount_Brutto_INTERNET + Amount_Brutto_OTHER_DEFAULTVAT + Amount_Brutto_OTHER_NOVAT + Amount_Brutto_PARKING + Amount_Brutto_TELEPHON + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneParameters.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneParameters.vb new file mode 100644 index 0000000..90e287c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneParameters.vb @@ -0,0 +1,115 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RegistryTelephoneParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Controlling_INTERNET As Controlling + Private _Controlling_PARKING As Controlling + Private _Controlling_TELEPHON_80 As Controlling + Private _Controlling_TELEPHON_20 As Controlling + Private _Controlling_OTHER_DEFAULTVAT As Controlling + Private _Controlling_OTHER_NOVAT As Controlling + + Private _VAT_DEFAULTVAT As VAT + Private _VAT_NOVAT As VAT + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property Controlling_INTERNET As Controlling + Get + Return _Controlling_INTERNET + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_INTERNET", _Controlling_INTERNET, value) + End Set + End Property + Property Controlling_PARKING As Controlling + Get + Return _Controlling_PARKING + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_PARKING", _Controlling_PARKING, value) + End Set + End Property + Property Controlling_TELEPHON_80 As Controlling + Get + Return _Controlling_TELEPHON_80 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_TELEPHON_80", _Controlling_TELEPHON_80, value) + End Set + End Property + Property Controlling_TELEPHON_20 As Controlling + Get + Return _Controlling_TELEPHON_20 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_TELEPHON_20", _Controlling_TELEPHON_20, value) + End Set + End Property + Property Controlling_OTHER_DEFAULTVAT As Controlling + Get + Return _Controlling_OTHER_DEFAULTVAT + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_OTHER_DEFAULTVAT", _Controlling_OTHER_DEFAULTVAT, value) + End Set + End Property + Property Controlling_OTHER_NOVAT As Controlling + Get + Return _Controlling_OTHER_NOVAT + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_OTHER_NOVAT", _Controlling_OTHER_NOVAT, value) + End Set + End Property + + Property VAT_DEFAULTVAT As VAT + Get + Return _VAT_DEFAULTVAT + End Get + Set(value As VAT) + SetPropertyValue("VAT_DEFAULTVAT", _VAT_DEFAULTVAT, value) + End Set + End Property + Property VAT_NOVAT As VAT + Get + Return _VAT_NOVAT + End Get + Set(value As VAT) + SetPropertyValue("VAT_NOVAT", _VAT_NOVAT, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.Designer.vb new file mode 100644 index 0000000..29bb8ae --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class RegistryTelephoneVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aControllRegistryTelephone = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aControllRegistryTelephone + ' + Me.aControllRegistryTelephone.AcceptButtonCaption = Nothing + Me.aControllRegistryTelephone.CancelButtonCaption = Nothing + Me.aControllRegistryTelephone.Caption = "aControll Registry Telephone" + Me.aControllRegistryTelephone.Category = "aControllRegistryTelephone" + Me.aControllRegistryTelephone.ConfirmationMessage = Nothing + Me.aControllRegistryTelephone.Id = "aControllRegistryTelephone" + Me.aControllRegistryTelephone.ImageName = Nothing + Me.aControllRegistryTelephone.Shortcut = Nothing + Me.aControllRegistryTelephone.Tag = Nothing + Me.aControllRegistryTelephone.TargetObjectsCriteria = Nothing + Me.aControllRegistryTelephone.TargetObjectType = GetType(SISBusiness.[Module].RegistryHeader) + Me.aControllRegistryTelephone.TargetViewId = Nothing + Me.aControllRegistryTelephone.ToolTip = Nothing + Me.aControllRegistryTelephone.TypeOfView = Nothing + + End Sub + Friend WithEvents aControllRegistryTelephone As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.resx new file mode 100644 index 0000000..1375ef5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb new file mode 100644 index 0000000..ea02709 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephoneVC.vb @@ -0,0 +1,216 @@ +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.Utils + +Public Class RegistryTelephoneVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aControllRegistryTelephone_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aControllRegistryTelephone.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(RegistryTelephone)) + Dim _RegistryTelephone As RegistryTelephone + Dim _Phones_Collection As New XPCollection(Of Phones)(_onew.Session, CriteriaOperator.Parse("")) + Dim _RegistryHeader As RegistryHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), RegistryHeader)) + Dim _Phones As Phones + Dim _RegistryTelephoneParameters As RegistryTelephoneParameters = _onew.FindObject(Of RegistryTelephoneParameters)(CriteriaOperator.Parse("CustomersFrom.Oid=?", _RegistryHeader.CustomersFrom.Oid)) + + For Each _Phones In _Phones_Collection + _RegistryTelephone = _onew.FindObject(Of RegistryTelephone)(CriteriaOperator.Parse("RegistryHeader=? and UniqueObjects=?", _RegistryHeader, _Phones.UniqueObjects)) + If _RegistryTelephone Is Nothing Then + _RegistryTelephone = _onew.CreateObject(Of RegistryTelephone)() + End If + _RegistryTelephone.UniqueObjects = _Phones.UniqueObjects + _RegistryTelephone.RegistryTelephoneParameters = _RegistryTelephoneParameters + _RegistryTelephone.RegistryHeader = _RegistryHeader + _CollectionSource.Add(_RegistryTelephone) + Next + _onew.CommitChanges() 'ezt át kell nézni!!!!!! + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("ByTelephone") = CriteriaOperator.Parse("RegistryHeader.Oid=?", _RegistryHeader.Oid) 'PersistentCriteriaEvaluationBehavior.InTransaction + _CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("RegistryTelephone_ListView", _CollectionSource, False) + End Sub + + Private Sub aControllRegistryTelephone_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aControllRegistryTelephone.Execute + '//Telefonszámla rögzítése + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryHeader As RegistryHeader = TryCast(View.SelectedObjects(0), RegistryHeader) + Dim _RegistryTelephone As RegistryTelephone + + Dim _TechnicalContractTemplate As ContractTemplate = _ocur.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? And IsTechnical=True", _RegistryHeader.CustomersFrom)) + Dim _Contracts As Contracts = _ocur.FindObject(Of Contracts)(CriteriaOperator.Parse("CustomersFrom=? AND Customers=? AND ContractTemplate=?", _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, _TechnicalContractTemplate)) + Dim _ListView As ListView = TryCast(e.PopupWindow.View, ListView) + + '// Ellenőrzések + 'e.PopupWindow.View.ObjectSpace.CommitChanges() + + If _TechnicalContractTemplate Is Nothing Then + '// Nincs technikai szerződési sablon + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\RegistryTelephone", "NoTechnicalContractTemplate")), _ + MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + + '// Ellenőrzés, hogy a total bruttó le lett-e bontva + If _ListView IsNot Nothing Then + Dim _BruttoAmountRemaining As Double = 0 + For Each _RegistryTelephone In _ListView.CollectionSource.List + _BruttoAmountRemaining += _RegistryTelephone.Amount_Brutto_INTERNET + _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT + _RegistryTelephone.Amount_Brutto_OTHER_NOVAT + _RegistryTelephone.Amount_Brutto_PARKING + _RegistryTelephone.Amount_Brutto_TELEPHON + Next + + If _BruttoAmountRemaining <> _RegistryHeader.F_AmountBruttoHUF Then + '// Hiba, hogy neincs minden sor lebontva + MsgBox(String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\RegistryTelephone", "NotEqualTotalwithDivided")), _ + MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, _ + String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Exit Sub + End If + End If + + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ + '//Technikai szerződés létrehozása + If _Contracts Is Nothing Then + _Contracts = _ocur.CreateObject(Of Contracts)() + _Contracts.CustomersFrom = _RegistryHeader.CustomersFrom + _Contracts.Customers = _RegistryHeader.Customers + _Contracts.ContractTemplate = _TechnicalContractTemplate + _Contracts.DateCreated = _RegistryHeader.F_DateCreated + _Contracts.DateExecution = _RegistryHeader.F_DateExecution + _Contracts.DocumentNumber = _Contracts.ContractTemplate.NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.NumberGenerator) + _Contracts.State = State.Signed + End If + + If _ListView IsNot Nothing Then + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + _ocur.Delete(_RegistryHeader.RegistryRowsFinancial) + _ocur.Delete(_RegistryHeader.RegistryRowsFinancialControlling) + For Each _RegistryTelephone In _ListView.CollectionSource.List + ''//Először az ÁFÁ-s tételek rögzítése + If _RegistryTelephone.Amount_Brutto_INTERNET > 0 Then + Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_INTERNET, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Netto_INTERNET, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_INTERNET), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + End If + If _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT > 0 Then + Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_DEFAULTVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Netto_OTHER_DEFAULTVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_DEFAULTVAT), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + End If + If _RegistryTelephone.Amount_Brutto_OTHER_NOVAT > 0 Then + Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_NOVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Brutto_OTHER_NOVAT, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_OTHER_NOVAT), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT)) + End If + If _RegistryTelephone.Amount_Brutto_PARKING > 0 Then + Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_PARKING, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.Amount_Brutto_PARKING, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_PARKING), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT)) + End If + If _RegistryTelephone.Amount_Brutto_TELEPHON > 0 Then + Create_RRF_Row(_ocur, _RegistryHeader, Math.Round(_RegistryTelephone.Amount_Brutto_TELEPHON * 0.7, 0, MidpointRounding.AwayFromZero), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + Create_RRF_Row(_ocur, _RegistryHeader, _RegistryTelephone.Amount_Brutto_TELEPHON - Math.Round(_RegistryTelephone.Amount_Brutto_TELEPHON * 0.7, 0, MidpointRounding.AwayFromZero), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_NOVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.AmountNetto_TELEPHON_80, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_80), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + Create_RRFC_Row(_ocur, _Contracts, _RegistryHeader, _RegistryTelephone.AmountNetto_TELEPHON_20, _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_20), _ + _ocur.GetObject(_RegistryTelephone.UniqueObjects), _ocur.GetObject(_RegistryTelephone.RegistryTelephoneParameters.VAT_DEFAULTVAT)) + End If + Next + End If + + _ocur.CommitChanges() + + '// Kerekítés rendberakása ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- + If _RegistryHeader.BruttoAmountRemaining = 0 And Math.Abs(_RegistryHeader.NettoAmountRemaining) < 5 Then + 'Beep() + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + _RegistryHeader.RegistryRowsFinancialControlling.Sorting.Add(New SortProperty("Amount", DB.SortingDirection.Descending)) + For Each _RegistryRowsFinancialControlling In _RegistryHeader.RegistryRowsFinancialControlling + If _RegistryRowsFinancialControlling.Controlling.Oid.ToString = _RegistryTelephone.RegistryTelephoneParameters.Controlling_TELEPHON_80.Oid.ToString Then + 'Beep() + If _RegistryHeader.NettoAmountRemaining > 0 Then + _RegistryRowsFinancialControlling.Amount += _RegistryHeader.NettoAmountRemaining + Else + _RegistryRowsFinancialControlling.Amount -= _RegistryHeader.NettoAmountRemaining + End If + _ocur.CommitChanges() + Exit For + End If + Next + End If + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Sub + Private Sub Create_RRF_Row(_ocur As Xpo.XPObjectSpace, _RegistryHeader As RegistryHeader, _BruttoAmount As Double, _VAT As VAT) + Dim _RegistryRowsFinancial As RegistryRowsFinancial = _ocur.FindObject(Of RegistryRowsFinancial)(CriteriaOperator.Parse("RegistryHeader=? and VAT=?", _RegistryHeader, _VAT)) + + If _RegistryRowsFinancial Is Nothing Then + _RegistryRowsFinancial = _ocur.CreateObject(Of RegistryRowsFinancial)() + _RegistryRowsFinancial.RegistryHeader = _RegistryHeader + _RegistryRowsFinancial.BruttoAmount = _BruttoAmount + _RegistryRowsFinancial.VAT = _VAT + _RegistryRowsFinancial.DateVAT = _RegistryHeader.F_DateVAT + Else + _RegistryRowsFinancial.BruttoAmount += _BruttoAmount + End If + End Sub + Private Sub Create_RRFC_Row(_ocur As Xpo.XPObjectSpace, _Contracts As Contracts, _RegistryHeader As RegistryHeader, _ + _Amount As Double, _Controlling As Controlling, _UniqueObjects As UniqueObjects, _VAT As VAT) + Dim _ContractRows As ContractRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + _ContractRows = _ocur.CreateObject(Of ContractRows)() + _ContractRows.Contracts = _Contracts + _ContractRows.CurrencyName = _RegistryHeader.F_CurrencyName + _ContractRows.ContractRowsType = eContractRowsType.eFix + _ContractRows.DateExecution = _RegistryHeader.F_DateExecution + _ContractRows.Controlling = _Controlling + If _RegistryHeader.F_CurrencyName.ShortName = "HUF" Then + _ContractRows.NettoPriceHUF = _Amount + Else + If _RegistryHeader.F_CurrencyRate <> 0 Then + _ContractRows.NettoPriceDEV = _Amount / _RegistryHeader.F_CurrencyRate + Else + _ContractRows.NettoPriceDEV = 0 + End If + _ContractRows.NettoPriceHUF = _Amount + End If + _ContractRows.ShortName = "TELEFON" + _ContractRows.UniqueObjects = _UniqueObjects + + 'IDE KELL VALAMI ÁFA ! + + _ContractRows.VAT = _VAT + _ContractRows.Controlling = _Controlling + _ContractRows.JobNumberObjects = _RegistryHeader.JobNumberObjects + + _RegistryRowsFinancialControlling = _ocur.CreateObject(Of RegistryRowsFinancialControlling)() + _RegistryRowsFinancialControlling.RegistryHeader = _RegistryHeader + _RegistryRowsFinancialControlling.ContractRows = _ContractRows + _RegistryRowsFinancialControlling.Amount = _Amount + _RegistryRowsFinancialControlling.Controlling = _Controlling + _RegistryRowsFinancialControlling.UniqueObjects = _UniqueObjects + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Controlling.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Controlling.vb new file mode 100644 index 0000000..9396743 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Controlling.vb @@ -0,0 +1,435 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eControllingDirection + eIn = 0 + eOut = 1 + eNotSet = -1 +End Enum + _ + _ +Public Class Controlling + Inherits HCategory + Private _ChartOfAccounts As ChartOfAccounts '5 ötös + Private _ChartOfAccounts2 As ChartOfAccounts '8 nyócas + Private _IsCOCRequired As Boolean = True 'Teljesítési igazolást igényel az adott számra teljesítéshez kötelező az aláírt nyomtatvány + Private _COCAboveAmount As Double 'A teljesítési igazolás nyomtatása nem szükséges ezen összeg alatt + Private _IsParent As Boolean = False + Private _Controllingdirection As eControllingDirection ' Kontrollszám pénzmozgás iránya + Private _IsReInvoiceReason As Boolean = False ' Továbbszámlázási jogcímként is használható? + Private _ReInvoiceDescription As String ' Ha továbbszámlázási jogcím is akkor mi a jogcím megnevezése + Private _TechnicalContractLimit As Double 'Adott CM-re vonatkozó összeghatár ameddig technikai szerződést enged létrehozni + Private _Controlling1 As Controlling + Private _Controlling2 As Controlling + Private _Controlling3 As Controlling + Private _Controlling4 As Controlling + Private _Controlling5 As Controlling + Private _IsAdvancePayment As Boolean 'Előleg, vagy foglaló kontrollszám + Private _IsEstateStatistics As Boolean 'Ingatlan értékesítési statisztikába szűrés + ' Nonpersistent -------------------------------------------- + Private _CollectionOfControlling As XPCollection(Of Controlling) + Private _RequireCars As Boolean = False + Private _RequireHRPerson As Boolean + Private _RequirePhones As Boolean = False + + Public Sub New(ByVal session As Session) + MyBase.New(session) + If session.IsObjectsLoading = False And session.IsObjectsSaving = False Then + Me.Controllingdirection = eControllingDirection.eNotSet + End If + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + If Me.Parent IsNot Nothing Then + If Me.Parent.Children IsNot Nothing Then + If Me.Parent.Children.Count = 1 Then + TryCast(Me.Parent, Controlling).IsParent = False + End If + End If + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + Dim _c As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count=0 and IsParent=True")) + Dim _Controlling As Controlling + + For Each _Controlling In _c + If _Controlling.Children.Count = 0 Then + _Controlling.IsParent = False + _Controlling.Save() + End If + Next + Dim _c1 As New XPCollection(Session, GetType(Controlling), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False")) + Dim _Controlling1 As Controlling + + For Each _Controlling1 In _c1 + If _Controlling1.Children.Count <> 0 Then + _Controlling1.IsParent = True + _Controlling1.Save() + End If + Next + Me.ReconfigureGroup(Nothing, Me, False) + End Sub + + _ + + Property ParentObject As Controlling + Get + Return MyBase.Parent + End Get + Set(value As Controlling) + MyBase.Parent = value + End Set + End Property + _ + _ + _ + Private ReadOnly Property CollectionOfControlling As XPCollection(Of Controlling) + Get + _CollectionOfControlling = New XPCollection(Of Controlling)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid)) + Return _CollectionOfControlling + End Get + End Property + + + Property ChartOfAccounts As ChartOfAccounts + Get + Return (_ChartOfAccounts) + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + + Property ChartOfAccounts2 As ChartOfAccounts + Get + Return (_ChartOfAccounts2) + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value) + End Set + End Property + Property IsCOCRequired As Boolean + Get + Return _IsCOCRequired + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsCOCRequired", _IsCOCRequired, value) + End Set + End Property + Property COCAboveAmount As Double + Get + Return _COCAboveAmount + End Get + Set(ByVal value As Double) + SetPropertyValue("COCAboveAmount", _COCAboveAmount, value) + End Set + End Property + Property IsParent As Boolean + Get + Return _IsParent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsParent", _IsParent, value) + End Set + End Property + Property Controllingdirection As eControllingDirection + Get + Return _Controllingdirection + End Get + Set(ByVal value As eControllingDirection) + SetPropertyValue("Controllingdirection", _Controllingdirection, value) + End Set + End Property + Property IsReInvoiceReason As Boolean + Get + Return _IsReInvoiceReason + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsReInvoiceReason", _IsReInvoiceReason, value) + End Set + End Property + Property ReInvoiceDescription As String + Get + Return _ReInvoiceDescription + End Get + Set(ByVal value As String) + SetPropertyValue("ReInvoiceDescription", _ReInvoiceDescription, value) + End Set + End Property + Property TechnicalContractLimit As Double + Get + Return _TechnicalContractLimit + End Get + Set(value As Double) + SetPropertyValue("TechnicalContractLimit", _TechnicalContractLimit, value) + End Set + End Property + Property Controlling1 As Controlling + Get + Return _Controlling1 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling1", _Controlling1, value) + End Set + End Property + Property Controlling2 As Controlling + Get + Return _Controlling2 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling2", _Controlling2, value) + End Set + End Property + Property Controlling3 As Controlling + Get + Return _Controlling3 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling3", _Controlling3, value) + End Set + End Property + Property Controlling4 As Controlling + Get + Return _Controlling4 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling4", _Controlling4, value) + End Set + End Property + Property Controlling5 As Controlling + Get + Return _Controlling5 + End Get + Set(value As Controlling) + SetPropertyValue("Controlling5", _Controlling5, value) + End Set + End Property + Property IsAdvancePayment As Boolean + Get + Return _IsAdvancePayment + End Get + Set(value As Boolean) + SetPropertyValue("IsAdvancePayment", _IsAdvancePayment, value) + End Set + End Property + Property IsEstateStatistics As Boolean + Get + Return _IsEstateStatistics + End Get + Set(value As Boolean) + SetPropertyValue("IsEstateStatistics", _IsEstateStatistics, value) + End Set + End Property + Property RequireCars As Boolean + Get + Return _RequireCars + End Get + Set(value As Boolean) + SetPropertyValue("RequireCars", _RequireCars, value) + End Set + End Property + Property RequireHRPerson As Boolean + Get + Return _RequireHRPerson + End Get + Set(value As Boolean) + SetPropertyValue("RequireHRPerson", _RequireHRPerson, value) + End Set + End Property + Property RequirePhones As Boolean + Get + Return _RequirePhones + End Get + Set(value As Boolean) + SetPropertyValue("RequirePhones", _RequirePhones, value) + End Set + End Property + + + Sub ReconfigureGroup(_ObjectSpace As Xpo.XPObjectSpace, _Controlling As Controlling, _WithCommit As Boolean) + Dim _Controlling5 As Controlling = Nothing + Dim _Controlling4 As Controlling = Nothing + Dim _Controlling3 As Controlling = Nothing + Dim _Controlling2 As Controlling = Nothing + Dim _Controlling1 As Controlling = Nothing + + _Controlling1 = _Controlling.Parent + If _Controlling1 IsNot Nothing Then + _Controlling2 = _Controlling1.Parent + If _Controlling2 IsNot Nothing Then + _Controlling3 = _Controlling2.Parent + If _Controlling3 IsNot Nothing Then + _Controlling4 = _Controlling3.Parent + If _Controlling4 IsNot Nothing Then + _Controlling5 = _Controlling4.Parent + End If + End If + End If + End If + + If _Controlling5 IsNot Nothing Then + _Controlling._Controlling1 = _Controlling5 + _Controlling._Controlling2 = _Controlling4 + _Controlling._Controlling3 = _Controlling3 + _Controlling._Controlling4 = _Controlling2 + _Controlling._Controlling5 = _Controlling1 + ElseIf _Controlling4 IsNot Nothing Then + _Controlling._Controlling1 = _Controlling4 + _Controlling._Controlling2 = _Controlling3 + _Controlling._Controlling3 = _Controlling2 + _Controlling._Controlling4 = _Controlling1 + _Controlling._Controlling5 = _Controlling + ElseIf _Controlling3 IsNot Nothing Then + _Controlling._Controlling1 = _Controlling3 + _Controlling._Controlling2 = _Controlling2 + _Controlling._Controlling3 = _Controlling1 + _Controlling._Controlling4 = _Controlling + _Controlling._Controlling5 = Nothing + ElseIf _Controlling2 IsNot Nothing Then + _Controlling._Controlling1 = _Controlling2 + _Controlling._Controlling2 = _Controlling1 + _Controlling._Controlling3 = _Controlling + _Controlling._Controlling4 = Nothing + _Controlling._Controlling5 = Nothing + ElseIf _Controlling1 IsNot Nothing Then + _Controlling._Controlling1 = _Controlling1 + _Controlling._Controlling2 = _Controlling + _Controlling._Controlling3 = Nothing + _Controlling._Controlling4 = Nothing + _Controlling._Controlling5 = Nothing + ElseIf _Controlling1 Is Nothing Then + _Controlling._Controlling1 = _Controlling + _Controlling._Controlling2 = Nothing + _Controlling._Controlling3 = Nothing + _Controlling._Controlling4 = Nothing + _Controlling._Controlling5 = Nothing + End If + _Controlling.Save() + If _WithCommit Then _ObjectSpace.CommitChanges() + End Sub + Private Sub InContrlollingSet(ByVal _p_InControlling As Controlling) + '----- Rekurzív gráf bejárás az összes gyerekelemnek a BEVÉTEL kontrollszám csoportban -------------- + _p_InControlling.Controllingdirection = eControllingDirection.eIn ' Gyökér elem beállítása + If _p_InControlling.Children.Count = 0 Then ' Szülő elem beállítása + _p_InControlling.Controllingdirection = eControllingDirection.eIn + Else + Dim _Controlling As Controlling + + For Each _Controlling In _p_InControlling.Children + _Controlling.Controllingdirection = eControllingDirection.eIn ' Levél elemek beállítása + If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása + InContrlollingSet(_Controlling) + End If + Next + End If + _p_InControlling.Save() + End Sub + Private Sub OutContrlollingSet(ByVal _p_OutControlling As Controlling) + '----- Rekurzív gráf bejárás az összes gyerekelemnek a KIADÁS kontrollszám csoportban -------------- + _p_OutControlling.Controllingdirection = eControllingDirection.eOut ' Gyökér elem beállítása + If _p_OutControlling.Children.Count = 0 Then ' Szülő elem beállítása + _p_OutControlling.Controllingdirection = eControllingDirection.eOut + Else + Dim _Controlling As Controlling + + For Each _Controlling In _p_OutControlling.Children + _Controlling.Controllingdirection = eControllingDirection.eOut ' Levél elemek beállítása + If _Controlling.Children.Count <> 0 Then ' A rekurzió megakasztása + OutContrlollingSet(_Controlling) + End If + Next + End If + _p_OutControlling.Save() + End Sub + + _ + ReadOnly Property ControllingYear As XPCollection(Of ControllingYear) + Get + Return GetCollection(Of ControllingYear)("ControllingYear") + End Get + End Property + Public Function GetChartOfAccounts(_AccountYear As Long, _IsReinvoice As Boolean) As ChartOfAccounts + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _ControllingYear As ControllingYear + Select Case _IsReinvoice + Case False + _ChartOfAccounts = Me.ChartOfAccounts + For Each _ControllingYear In Me.ControllingYear + If _ControllingYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _ControllingYear.ChartOfAccounts + Exit For + End If + Next + Case True + _ChartOfAccounts = Me.ChartOfAccounts2 + For Each _ControllingYear In Me.ControllingYear + If _ControllingYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _ControllingYear.ChartOfAccounts2 + Exit For + End If + Next + End Select + Return _ChartOfAccounts + End Function + +End Class 'Kontroll számok + _ + _ + _ +Public Class ControllingYear + Inherits BaseObject + + Private _Controlling As Controlling + Private _AccountYear As Long + Private _ChartOfAccounts As ChartOfAccounts + Private _ChartOfAccounts2 As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + + _ + Property Controlling As Controlling + Get + Return _Controlling + End Get + Set(value As Controlling) + SetPropertyValue("Controlling", _Controlling, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + Property ChartOfAccounts As ChartOfAccounts + Get + Return _ChartOfAccounts + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value) + End Set + End Property + _ + Property ChartOfAccounts2 As ChartOfAccounts + Get + Return _ChartOfAccounts2 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.Designer.vb new file mode 100644 index 0000000..883105e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.Designer.vb @@ -0,0 +1,64 @@ +Partial Class ControllingVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aReCreateControlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGenerateControllingfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aReCreateControlling + ' + Me.aReCreateControlling.Caption = "aRe Create Controlling" + Me.aReCreateControlling.ConfirmationMessage = "Do you want to execute command ?" + Me.aReCreateControlling.Id = "aReCreateControlling" + Me.aReCreateControlling.ImageName = Nothing + Me.aReCreateControlling.Shortcut = Nothing + Me.aReCreateControlling.Tag = Nothing + Me.aReCreateControlling.TargetObjectsCriteria = Nothing + Me.aReCreateControlling.TargetViewId = "Controlling_ListView" + Me.aReCreateControlling.ToolTip = Nothing + Me.aReCreateControlling.TypeOfView = Nothing + ' + 'aGenerateControllingfromChartOfAccounts + ' + Me.aGenerateControllingfromChartOfAccounts.Caption = "aGenerate Controllingfrom Chart Of Accounts" + Me.aGenerateControllingfromChartOfAccounts.ConfirmationMessage = "Do you want to execute ?" + Me.aGenerateControllingfromChartOfAccounts.Id = "aGenerateControllingfromChartOfAccounts" + Me.aGenerateControllingfromChartOfAccounts.ImageName = Nothing + Me.aGenerateControllingfromChartOfAccounts.Shortcut = Nothing + Me.aGenerateControllingfromChartOfAccounts.Tag = Nothing + Me.aGenerateControllingfromChartOfAccounts.TargetObjectsCriteria = Nothing + Me.aGenerateControllingfromChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].Controlling) + Me.aGenerateControllingfromChartOfAccounts.TargetViewId = Nothing + Me.aGenerateControllingfromChartOfAccounts.ToolTip = Nothing + Me.aGenerateControllingfromChartOfAccounts.TypeOfView = Nothing + + End Sub + Friend WithEvents aReCreateControlling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aGenerateControllingfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.resx new file mode 100644 index 0000000..d8755a3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 185, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb new file mode 100644 index 0000000..5ee11cc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/ControllingVC.vb @@ -0,0 +1,119 @@ +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 + +Public Class ControllingVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "HCategory_Children_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + End If + If View.Id = "Controlling_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "HCategory_Children_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + End If + If View.Id = "Controlling_LookupListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + + Private Sub aReCreateControlling_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateControlling.Execute + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session) + Dim _Controlling As Controlling + + RaiseEvent InitWork(1, 1, _Controlling_Collection.Count) + For Each _Controlling In _Controlling_Collection + RaiseEvent DoWork() + _Controlling.ReconfigureGroup(_ocur, _Controlling, True) + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + End Sub + + Private Sub aGenerateControllingfromChartOfAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateControllingfromChartOfAccounts.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_onew.Session, CriteriaOperator.Parse("AccountYear=?", Now.Date.Year)) + Dim _ChartOfAccounts As ChartOfAccounts + Dim _Controlling As Controlling + Dim _Controlling_Parent As Controlling = Nothing + Dim _ControllingYear As ControllingYear + + _ChartOfAccounts_Collection.Sorting.Add(New SortProperty("AccountNumber", DB.SortingDirection.Ascending)) + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + _Controlling = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Name)) + If _Controlling Is Nothing Then + _Controlling = _onew.CreateObject(Of Controlling)() + End If + _Controlling.Name = _ChartOfAccounts.Name + _Controlling_Parent = Nothing + If _ChartOfAccounts.Parent IsNot Nothing Then + _Controlling_Parent = _onew.FindObject(Of Controlling)(CriteriaOperator.Parse("Name=?", _ChartOfAccounts.Parent.Name)) + End If + If _Controlling_Parent IsNot Nothing Then + _Controlling.Parent = _Controlling_Parent + End If + _onew.CommitChanges() + Dim _ControllingYear_Collection = New XPCollection(Of ControllingYear)(_onew.Session, CriteriaOperator.Parse("Controlling=?", _Controlling)) + If _ControllingYear_Collection.Count <= 0 Then + _ControllingYear = _onew.CreateObject(Of ControllingYear)() + _ControllingYear.Controlling = _Controlling + _ControllingYear.AccountYear = Now.Date.Year + _ControllingYear.ChartOfAccounts = _ChartOfAccounts + _ControllingYear.ChartOfAccounts2 = _ChartOfAccounts + End If + + Select Case Mid(_ChartOfAccounts.AccountNumber, 1, 1) + Case "5", "8" + _Controlling.Controllingdirection = eControllingDirection.eOut + Case "9" + _Controlling.Controllingdirection = eControllingDirection.eIn + Case Else + _Controlling.Controllingdirection = eControllingDirection.eNotSet + End Select + _onew.CommitChanges() + Next + _onew.CommitChanges() + RaiseEvent FinalWork + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolder.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolder.vb new file mode 100644 index 0000000..286c9a7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolder.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CostHolder + Inherits HCategory + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + + _ + ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder) + Get + Return New XPCollection(Of HRPersonCostHolder)(Session, CriteriaOperator.Parse("CostHolder=?", Me)) + End Get + End Property + + _ + _ + Property ParentObject As CostHolder + Get + Return MyBase.Parent + End Get + Set(value As CostHolder) + MyBase.Parent = value + End Set + End Property + _ + _ + _ + Private ReadOnly Property CollectionOfCostHolder As XPCollection(Of CostHolder) + Get + Dim _CollectionOfCostHolder As New XPCollection(Of CostHolder)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid)) + Return _CollectionOfCostHolder + End Get + End Property +End Class ' Költségviselő + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.Designer.vb new file mode 100644 index 0000000..489b45f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class CostHolderVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSetCostHolderToHRPerson = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSetCostHolderToHRPerson + ' + Me.aSetCostHolderToHRPerson.AcceptButtonCaption = Nothing + Me.aSetCostHolderToHRPerson.CancelButtonCaption = Nothing + Me.aSetCostHolderToHRPerson.Caption = "aSet Cost Holder To HRPerson" + Me.aSetCostHolderToHRPerson.ConfirmationMessage = Nothing + Me.aSetCostHolderToHRPerson.Id = "aSetCostHolderToHRPerson" + Me.aSetCostHolderToHRPerson.ImageName = Nothing + Me.aSetCostHolderToHRPerson.Shortcut = Nothing + Me.aSetCostHolderToHRPerson.Tag = Nothing + Me.aSetCostHolderToHRPerson.TargetObjectsCriteria = Nothing + Me.aSetCostHolderToHRPerson.TargetObjectType = GetType(SISBusiness.[Module].HRPersonCostHolder) + Me.aSetCostHolderToHRPerson.TargetViewId = Nothing + Me.aSetCostHolderToHRPerson.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSetCostHolderToHRPerson.ToolTip = Nothing + Me.aSetCostHolderToHRPerson.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aSetCostHolderToHRPerson As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.resx new file mode 100644 index 0000000..59e6ecb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 220, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb new file mode 100644 index 0000000..99bfc83 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolderVC.vb @@ -0,0 +1,201 @@ +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 System.Linq +Imports System.Linq.Expressions + +Public Class CostHolderVC + 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 = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderCostHolder_ListView" Or View.Id = "SetHRPersonToCostHolder_SetHRPersonToCostHolderHRPerson_ListView" Then + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub + + Private Sub aSetCostHolderToHRPerson_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetCostHolderToHRPerson.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = _onew.CreateObject(Of SetHRPersonToCostHolder)() + + Dim _CostHolder As CostHolder = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CostHolder) + Dim _HRPerson As HRPerson = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, HRPerson) + + If _HRPerson IsNot Nothing Then + _SetHRPersonToCostHolder.Mode = 1 + _SetHRPersonToCostHolder.HRPerson = _onew.GetObject(_HRPerson) + If View.CurrentObject Is Nothing Then + _SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session)) + _SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session)) + + Else + _SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom + _SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo + End If + e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder) + ElseIf _CostHolder IsNot Nothing Then + _SetHRPersonToCostHolder.Mode = 0 + _SetHRPersonToCostHolder.CostHolder = _onew.GetObject(_CostHolder) + If View.CurrentObject Is Nothing Then + _SetHRPersonToCostHolder.DateFrom = FirstDayOfYear(GetSQLTime(_onew.Session)) + _SetHRPersonToCostHolder.DateTo = LastDayOfYear(GetSQLTime(_onew.Session)) + + Else + _SetHRPersonToCostHolder.DateFrom = TryCast(View.CurrentObject, HRPersonCostHolder).DateFrom + _SetHRPersonToCostHolder.DateTo = TryCast(View.CurrentObject, HRPersonCostHolder).DateTo + End If + e.View = Application.CreateDetailView(_onew, "SetHRPersonToCostHolder_DetailView", False, _SetHRPersonToCostHolder) + End If + + End Sub + + Private Sub aSetCostHolderToHRPerson_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetCostHolderToHRPerson.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SetHRPersonToCostHolder As SetHRPersonToCostHolder = TryCast(e.PopupWindow.View.SelectedObjects(0), SetHRPersonToCostHolder) + Dim _HRPersonCostHolder As HRPersonCostHolder + Dim _HRPersonCostHolder_Collection As XPCollection(Of HRPersonCostHolder) + Dim _SumWorkPercent As Double = 0 + Dim IsValid As Boolean = False + Dim LastItemDate As Date + + Dim _HRPersonCostHolder_Query As New XPQuery(Of HRPersonCostHolder)(_ocur.Session) + Dim query = From s In _HRPersonCostHolder_Query + Where s.HRPerson.Oid = _SetHRPersonToCostHolder.HRPerson.Oid And + s.WorkPercent > 0 + Group s By s.DateFrom, s.DateTo Into g = Group + Order By DateFrom, DateTo + Select New With {.DateFrom = DateFrom, .DateTo = DateTo} + + For Each item In query + If item.DateFrom = _SetHRPersonToCostHolder.DateFrom And item.DateTo = _SetHRPersonToCostHolder.DateTo Then + IsValid = True + Exit For + End If + LastItemDate = item.DateTo + Next + If query.Count = 0 Then + IsValid = True + End If + + If IsValid = False Then + If DateDiff(DateInterval.Day, LastItemDate.Date, _SetHRPersonToCostHolder.DateFrom.Date) <> 1 Then + Throw New UserFriendlyException("A belltott dtumoknak meg kell egyeznik egy mr ltez idszak dtumaival, vagy folytonosan kell kvetnik az utols idszakot!") + End If + End If + + If _SetHRPersonToCostHolder.Mode = 1 Then + Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderCostHolder") + + For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection + If _SetHRPersonToCostHolderCostHolder.WorkPercent < 0 Or _SetHRPersonToCostHolderCostHolder.WorkPercent > 100 Then + Throw New UserFriendlyException("Az belltott szzalkos rtk nem lehet nagyobb 100-nl s nem lehet negatv!") + End If + + _SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderCostHolder.WorkPercent + Next + + If _SumWorkPercent <> 100 Then + Throw New UserFriendlyException("A belltott szzalkos rtkek sszege csak 100 lehet!") + Else + For Each _SetHRPersonToCostHolderCostHolder In _ListPropertyEditor.ListView.CollectionSource.Collection + + _HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderCostHolder.CostHolder.Oid, _SetHRPersonToCostHolder.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo)) + + If _HRPersonCostHolder Is Nothing Then + If _SetHRPersonToCostHolderCostHolder.WorkPercent > 0 Then + _HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)() + + _HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolderCostHolder.CostHolder.Oid) + _HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolder.HRPerson.Oid) + _HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom + _HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo + _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent + End If + Else + If _SetHRPersonToCostHolderCostHolder.WorkPercent >= 0 Then + _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderCostHolder.WorkPercent + End If + End If + Next + _ocur.CommitChanges() + + End If + End If + + If _SetHRPersonToCostHolder.Mode = 0 Then + Dim _ListPropertyEditor As DevExpress.ExpressApp.Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("SetHRPersonToCostHolderHRPerson") + + For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection + _SumWorkPercent = 0 + + If _SetHRPersonToCostHolderHRPerson.WorkPercent < 0 Or _SetHRPersonToCostHolderHRPerson.WorkPercent > 100 Then + Throw New UserFriendlyException("Az belltott szzalkos rtk nem lehet nagyobb 100-nl s nem lehet negatv!") + End If + + _HRPersonCostHolder_Collection = New XPCollection(Of HRPersonCostHolder)(_ocur.Session, CriteriaOperator.Parse("HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo)) + + For Each _HRPersonCostHolder_Member In _HRPersonCostHolder_Collection + If _HRPersonCostHolder_Member.CostHolder.Oid = _SetHRPersonToCostHolder.CostHolder.Oid Then + _SumWorkPercent = _SumWorkPercent + _SetHRPersonToCostHolderHRPerson.WorkPercent + Else + _SumWorkPercent = _SumWorkPercent + _HRPersonCostHolder_Member.WorkPercent + End If + Next + + If _SumWorkPercent <> 100 And _SumWorkPercent <> 0 Then + Dim _WrongUserName As String = _SetHRPersonToCostHolderHRPerson.HRPerson.displayname + Throw New UserFriendlyException("A kvetkez munkavllal foglaltsga nagyobb 100 szzalknl: " & _WrongUserName) + End If + Next + + For Each _SetHRPersonToCostHolderHRPerson In _ListPropertyEditor.ListView.CollectionSource.Collection + + _HRPersonCostHolder = _ocur.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder.Oid=? And HRPerson.Oid=? And DateFrom=? And DateTo=?", _SetHRPersonToCostHolder.CostHolder.Oid, _SetHRPersonToCostHolderHRPerson.HRPerson.Oid, _SetHRPersonToCostHolder.DateFrom, _SetHRPersonToCostHolder.DateTo)) + + If _HRPersonCostHolder Is Nothing Then + If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then + _HRPersonCostHolder = _ocur.CreateObject(Of HRPersonCostHolder)() + + _HRPersonCostHolder.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_SetHRPersonToCostHolder.CostHolder.Oid) + _HRPersonCostHolder.HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_SetHRPersonToCostHolderHRPerson.HRPerson.Oid) + _HRPersonCostHolder.DateFrom = _SetHRPersonToCostHolder.DateFrom + _HRPersonCostHolder.DateTo = _SetHRPersonToCostHolder.DateTo + _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent + End If + Else + If _SetHRPersonToCostHolderHRPerson.WorkPercent > 0 Then + _HRPersonCostHolder.WorkPercent = _SetHRPersonToCostHolderHRPerson.WorkPercent + End If + End If + Next + _ocur.CommitChanges() + + + End If + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostPlace.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostPlace.vb new file mode 100644 index 0000000..43b4000 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostPlace.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CostPlace + Inherits HCategory + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + _ + Property ParentObject As CostPlace + Get + Return MyBase.Parent + End Get + Set(value As CostPlace) + MyBase.Parent = value + End Set + End Property + _ + _ + _ + Private ReadOnly Property CollectionOfCostPlace As XPCollection(Of CostPlace) + Get + Dim _CollectionOfCostPlace As New XPCollection(Of CostPlace)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid)) + Return _CollectionOfCostPlace + End Get + End Property +End Class 'Költséghely + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/JobNumberObjects.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/JobNumberObjects.vb new file mode 100644 index 0000000..df9e21e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/JobNumberObjects.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class JobNumberObjects + Inherits HCategory + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + _ + Property ParentObject As JobNumberObjects + Get + Return MyBase.Parent + End Get + Set(value As JobNumberObjects) + MyBase.Parent = value + End Set + End Property + _ + _ + _ + Private ReadOnly Property CollectionOfJobNumberObjects As XPCollection(Of JobNumberObjects) + Get + Dim _CollectionOfJobNumberObjects As New XPCollection(Of JobNumberObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid)) + Return _CollectionOfJobNumberObjects + End Get + End Property +End Class 'Munkaszámok, projectek + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolder.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolder.vb new file mode 100644 index 0000000..3d03da0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolder.vb @@ -0,0 +1,132 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +' _ +' _ + + _ + _ + _ +Public Class SetHRPersonToCostHolder + Inherits BaseObject + + Private _Mode As Long + Private _HRPerson As HRPerson + Private _CostHolder As CostHolder + Private _DateFrom As Date + Private _DateTo As Date + Private _MasterKey As Guid + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property Mode As Long + Get + Return _Mode + End Get + Set(value As Long) + SetPropertyValue("Mode", _Mode, value) + End Set + End Property + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + + _ + _ + ReadOnly Property SetHRPersonToCostHolderHRPerson As XPCollection(Of SetHRPersonToCostHolderHRPerson) + Get + Dim _SetHRPersonToCostHolderHRPerson_Collection As New XPCollection(Of SetHRPersonToCostHolderHRPerson)(Session, CriteriaOperator.Parse("1=2")) + Dim _HRPerson_Collection = New XPCollection(Of HRPerson)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1")) + Dim _HRPerson As HRPerson + Dim _HRPersonCostHolder As HRPersonCostHolder + Dim _SetHRPersonToCostHolderHRPerson As SetHRPersonToCostHolderHRPerson + For Each _HRPerson In _HRPerson_Collection + _SetHRPersonToCostHolderHRPerson = New SetHRPersonToCostHolderHRPerson(Session) + _SetHRPersonToCostHolderHRPerson.MasterKey = Me._MasterKey + _SetHRPersonToCostHolderHRPerson.HRPerson = _HRPerson + + _HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", Me.CostHolder, _HRPerson, Me.DateFrom, Me.DateTo)) + If _HRPersonCostHolder IsNot Nothing Then + _SetHRPersonToCostHolderHRPerson.WorkPercent = _HRPersonCostHolder.WorkPercent + End If + + _SetHRPersonToCostHolderHRPerson_Collection.Add(_SetHRPersonToCostHolderHRPerson) + Next + Return _SetHRPersonToCostHolderHRPerson_Collection + End Get + End Property + + _ + ReadOnly Property SetHRPersonToCostHolderCostHolder As XPCollection(Of SetHRPersonToCostHolderCostHolder) + Get + Dim _SetHRPersonToCostHolderCostHolder_Collection As New XPCollection(Of SetHRPersonToCostHolderCostHolder)(Session, CriteriaOperator.Parse("1=2")) + Dim _CostHolder_Collection = New XPCollection(Of CostHolder)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("1=1")) + Dim _CostHolder As CostHolder + Dim _HRPersonCostHolder As HRPersonCostHolder + Dim _SetHRPersonToCostHolderCostHolder As SetHRPersonToCostHolderCostHolder + For Each _CostHolder In _CostHolder_Collection + _SetHRPersonToCostHolderCostHolder = New SetHRPersonToCostHolderCostHolder(Session) + _SetHRPersonToCostHolderCostHolder.MasterKey = Me._MasterKey + _SetHRPersonToCostHolderCostHolder.CostHolder = _CostHolder + + _HRPersonCostHolder = Session.FindObject(Of HRPersonCostHolder)(CriteriaOperator.Parse("CostHolder=? And HRPerson=? And DateFrom=? And DateTo=?", _CostHolder, Me.HRPerson, Me.DateFrom, Me.DateTo)) + If _HRPersonCostHolder IsNot Nothing Then + _SetHRPersonToCostHolderCostHolder.WorkPercent = _HRPersonCostHolder.WorkPercent + End If + + _SetHRPersonToCostHolderCostHolder_Collection.Add(_SetHRPersonToCostHolderCostHolder) + Next + Return _SetHRPersonToCostHolderCostHolder_Collection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderCostHolder.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderCostHolder.vb new file mode 100644 index 0000000..7a596d3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderCostHolder.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class SetHRPersonToCostHolderCostHolder + Inherits BaseObject + + Private _MasterKey As Guid + Private _CostHolder As CostHolder + Private _WorkPercent As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property WorkPercent As Double + Get + Return _WorkPercent + End Get + Set(value As Double) + SetPropertyValue("WorkPercent", _WorkPercent, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderHRPerson.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderHRPerson.vb new file mode 100644 index 0000000..b37b80c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Popup/SetHRPersonToCostHolderHRPerson.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ +Public Class SetHRPersonToCostHolderHRPerson + Inherits BaseObject + + Private _MasterKey As Guid + Private _HRPerson As HRPerson + Private _WorkPercent As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property MasterKey As Guid + Get + Return _MasterKey + End Get + Set(value As Guid) + SetPropertyValue("MasterKey", _MasterKey, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property WorkPercent As Double + Get + Return _WorkPercent + End Get + Set(value As Double) + SetPropertyValue("WorkPercent", _WorkPercent, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DMatrix.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DMatrix.vb new file mode 100644 index 0000000..3b94e62 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DMatrix.vb @@ -0,0 +1,192 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class Rule5DMatrix + Inherits BaseObject + Private _ShortName As String + Private _RequireUniqueObjects As Boolean + Private _RequireJobNumberObjects As Boolean + Private _RequireControlling As Boolean + Private _RequireCostHolder As Boolean + Private _RequireCostPlace As Boolean + + Private _VisibleUniqueObjects As Boolean + Private _VisibleJobNumberObjects As Boolean + Private _VisibleControlling As Boolean + Private _VisibleCostHolder As Boolean + Private _VisibleCostPlace As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + If Session.IsNewObject(Me) Then + VisibleControlling = True + VisibleCostHolder = True + VisibleCostPlace = True + VisibleJobNumberObjects = True + VisibleUniqueObjects = True + End If + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + Property RequireUniqueObjects As Boolean + Get + Return _RequireUniqueObjects + End Get + Set(value As Boolean) + SetPropertyValue("RequireUniqueObjects", _RequireUniqueObjects, value) + If value = True Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + VisibleUniqueObjects = True + End If + End If + End Set + End Property + Property RequireJobNumberObjects As Boolean + Get + Return _RequireJobNumberObjects + End Get + Set(value As Boolean) + SetPropertyValue("RequireJobNumberObjects", _RequireJobNumberObjects, value) + If value = True Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + VisibleJobNumberObjects = True + End If + End If + End Set + End Property + Property RequireControlling As Boolean + Get + Return _RequireControlling + End Get + Set(value As Boolean) + SetPropertyValue("RequireControlling", _RequireControlling, value) + If value = True Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + VisibleControlling = True + End If + End If + End Set + End Property + Property RequireCostHolder As Boolean + Get + Return _RequireCostHolder + End Get + Set(value As Boolean) + SetPropertyValue("RequireCostHolder", _RequireCostHolder, value) + If value = True Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + VisibleCostHolder = True + End If + End If + End Set + End Property + Property RequireCostPlace As Boolean + Get + Return _RequireCostPlace + End Get + Set(value As Boolean) + SetPropertyValue("RequireCostPlace", _RequireCostPlace, value) + If value = True Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + VisibleCostPlace = True + End If + End If + End Set + End Property + + Property VisibleUniqueObjects As Boolean + Get + Return _VisibleUniqueObjects + End Get + Set(value As Boolean) + SetPropertyValue("VisibleUniqueObjects", _VisibleUniqueObjects, value) + If value = False Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RequireUniqueObjects = False + End If + End If + End Set + End Property + Property VisibleJobNumberObjects As Boolean + Get + Return _VisibleJobNumberObjects + End Get + Set(value As Boolean) + SetPropertyValue("VisibleJobNumberObjects", _VisibleJobNumberObjects, value) + If value = False Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RequireJobNumberObjects = False + End If + End If + End Set + End Property + Property VisibleControlling As Boolean + Get + Return _VisibleControlling + End Get + Set(value As Boolean) + SetPropertyValue("VisibleControlling", _VisibleControlling, value) + If value = False Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RequireControlling = False + End If + End If + End Set + End Property + Property VisibleCostHolder As Boolean + Get + Return _VisibleCostHolder + End Get + Set(value As Boolean) + SetPropertyValue("VisibleCostHolder", _VisibleCostHolder, value) + If value = False Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RequireCostHolder = False + End If + End If + End Set + End Property + Property VisibleCostPlace As Boolean + Get + Return _VisibleCostPlace + End Get + Set(value As Boolean) + SetPropertyValue("VisibleCostPlace", _VisibleCostPlace, value) + If value = False Then + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + RequireCostPlace = False + End If + End If + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DforGL.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DforGL.vb new file mode 100644 index 0000000..d23db76 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Rule5DforGL.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class Rule5DforGL + Inherits BaseObject + Private _GLDocumentType As eGLDocumentType + Private _Rule5DMatrix As Rule5DMatrix + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property Rule5DMatrix As Rule5DMatrix + Get + Return _Rule5DMatrix + End Get + Set(value As Rule5DMatrix) + SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value) + End Set + End Property + Property GLDocumentType As eGLDocumentType + Get + Return _GLDocumentType + End Get + Set(value As eGLDocumentType) + SetPropertyValue("GLDocumentType", _GLDocumentType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects.vb new file mode 100644 index 0000000..8ce8914 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects.vb @@ -0,0 +1,73 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class UniqueObjects + Inherits HCategory + + Private _Cars As Cars + Private _Phones As Phones + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property Cars As Cars + Get + Return _Cars + End Get + Set(value As Cars) + SetPropertyValue("Cars", _Cars, value) + End Set + End Property + _ + Property Phones As Phones + Get + Return _Phones + End Get + Set(value As Phones) + SetPropertyValue("Phones", _Phones, value) + End Set + End Property + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + + _ + _ + Property ParentObject As UniqueObjects + Get + Return MyBase.Parent + End Get + Set(value As UniqueObjects) + MyBase.Parent = value + End Set + End Property + _ + _ + _ + Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects) + Get + Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid)) + Return _CollectionOfUniqueObjects + End Get + End Property +End Class 'Egyedi azonosítók + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.Designer.vb new file mode 100644 index 0000000..ccd759a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class UniqueObjects_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMergeUniqueObjects = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aMergeUniqueObjects + ' + Me.aMergeUniqueObjects.Caption = "aMergeUniqueObjects" + Me.aMergeUniqueObjects.Category = "ObjectsCreation" + Me.aMergeUniqueObjects.ConfirmationMessage = "Do you want to execute?" + Me.aMergeUniqueObjects.Id = "aMergeUniqueObjects" + Me.aMergeUniqueObjects.ImageName = Nothing + Me.aMergeUniqueObjects.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMergeUniqueObjects.Shortcut = Nothing + Me.aMergeUniqueObjects.Tag = Nothing + Me.aMergeUniqueObjects.TargetObjectsCriteria = Nothing + Me.aMergeUniqueObjects.TargetViewId = "UniqueObjects_ListView_Deleted" + Me.aMergeUniqueObjects.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMergeUniqueObjects.ToolTip = Nothing + Me.aMergeUniqueObjects.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aMergeUniqueObjects As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.resx new file mode 100644 index 0000000..9adf94e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb new file mode 100644 index 0000000..379db2e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects_VC.vb @@ -0,0 +1,75 @@ +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 System.Reflection + +Public Class UniqueObjects_VC + 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 = "UniqueObjects_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, DevExpress.Xpo.XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + End Sub + + Private Sub aMergeUniqueObjects_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUniqueObjects.Execute + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Object As Object + Dim _UniqueObjects As UniqueObjects + Dim _UniqueObjectsActive As UniqueObjects + + For Each _UniqueObjects In View.SelectedObjects + + _UniqueObjectsActive = _onew.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _UniqueObjects.Name)) + If _UniqueObjectsActive IsNot Nothing Then + For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjects.Oid)) + Try + For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties + If _PropertyInfo.PropertyType.Name = "UniqueObjects" Then + _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of UniqueObjects)(_UniqueObjectsActive.Oid), Nothing) + End If + Next + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + Next + End If + Next + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + Finally + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccounts.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccounts.vb new file mode 100644 index 0000000..e0e7c55 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccounts.vb @@ -0,0 +1,221 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ +Public Class ChartOfAccounts + Inherits HCategory + Private _AccountYear As Long + Private _AccountNumber As String + Private _IsParent As Boolean = False + Private _ChartOfAccounts1 As ChartOfAccounts + Private _ChartOfAccounts2 As ChartOfAccounts + Private _ChartOfAccounts3 As ChartOfAccounts + Private _ChartOfAccounts4 As ChartOfAccounts + Private _ChartOfAccounts5 As ChartOfAccounts + Private _ChartOfAccounts6 As ChartOfAccounts + Private _ChartOfAccounts7 As ChartOfAccounts + Private _ChartOfAccounts8 As ChartOfAccounts + + Private _ChartOfAccounts_Parent As ChartOfAccounts + Private _RecordCount As Long = 0 'Az erre a számlára könyvelt tételek száma + + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + If Me.Parent IsNot Nothing Then + If Me.Parent.Children.Count = 1 Then + TryCast(Me.Parent, ChartOfAccounts).IsParent = False + End If + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If IsDeleted = False Then + + Dim _c As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count=0 and IsParent=True")) + Dim _ChartOfAccounts As ChartOfAccounts + + For Each _ChartOfAccounts In _c + If _ChartOfAccounts.Children.Count = 0 Then + _ChartOfAccounts.IsParent = False + _ChartOfAccounts.Save() + End If + Next + Dim _c1 As New XPCollection(PersistentCriteriaEvaluationBehavior.InTransaction, Session, GetType(ChartOfAccounts), CriteriaOperator.Parse("Children.Count<>0 and IsParent=False")) + Dim _ChartOfAccountsX As ChartOfAccounts + + For Each _ChartOfAccountsX In _c1 + If _ChartOfAccountsX.Children.Count <> 0 Then + _ChartOfAccountsX.IsParent = True + _ChartOfAccountsX.Save() + End If + Next + + ' -- A szülő számlák begyűjtése a gyökérig + Me.ChartOfAccounts1 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 1), Me.AccountYear)) + Me.ChartOfAccounts2 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 2), Me.AccountYear)) + Me.ChartOfAccounts3 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 3), Me.AccountYear)) + Me.ChartOfAccounts4 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 4), Me.AccountYear)) + Me.ChartOfAccounts5 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 5), Me.AccountYear)) + Me.ChartOfAccounts6 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 6), Me.AccountYear)) + Me.ChartOfAccounts7 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 7), Me.AccountYear)) + Me.ChartOfAccounts8 = Session.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(Me.AccountNumber, 1, 8), Me.AccountYear)) + End If + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + AccountYear = Year(Now) + End Sub + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + Property AccountNumber() As String + Get + 'If Session.IsNewObject(Me) And Not Session.IsObjectsSaving And Me.Name IsNot Nothing Then + If Not Session.IsObjectsSaving Then + If Name IsNot Nothing Then + _AccountNumber = Me.Name.Split(" ")(0) + End If + End If + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + Property IsParent() As Boolean + Get + Return _IsParent + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsParent", _IsParent, value) + End Set + End Property + _ + Property ChartOfAccounts_Parent As ChartOfAccounts + Get + Return TryCast(Me.Parent, ChartOfAccounts) + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts_Parent", _ChartOfAccounts_Parent, value) + Me.Parent = TryCast(value, HCategory) + End Set + End Property + + Property ChartOfAccounts1 As ChartOfAccounts + Get + Return _ChartOfAccounts1 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts1", _ChartOfAccounts1, value) + End Set + End Property + Property ChartOfAccounts2 As ChartOfAccounts + Get + Return _ChartOfAccounts2 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts2", _ChartOfAccounts2, value) + End Set + End Property + Property ChartOfAccounts3 As ChartOfAccounts + Get + Return _ChartOfAccounts3 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts3", _ChartOfAccounts3, value) + End Set + End Property + Property ChartOfAccounts4 As ChartOfAccounts + Get + Return _ChartOfAccounts4 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts4", _ChartOfAccounts4, value) + End Set + End Property + Property ChartOfAccounts5 As ChartOfAccounts + Get + Return _ChartOfAccounts5 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts5", _ChartOfAccounts5, value) + End Set + End Property + Property ChartOfAccounts6 As ChartOfAccounts + Get + Return _ChartOfAccounts6 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts6", _ChartOfAccounts6, value) + End Set + End Property + Property ChartOfAccounts7 As ChartOfAccounts + Get + Return _ChartOfAccounts7 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts7", _ChartOfAccounts7, value) + End Set + End Property + Property ChartOfAccounts8 As ChartOfAccounts + Get + Return _ChartOfAccounts8 + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccounts8", _ChartOfAccounts8, value) + End Set + End Property + + Property RecordCount As Long + Get + Return _RecordCount + End Get + Set(ByVal value As Long) + SetPropertyValue("RecordCount", _RecordCount, value) + End Set + End Property + + Sub Reconfigure_ChartOfAccounts(ByVal _ObjectSpace As Xpo.XPObjectSpace) 'Az eljárás beállítja a szülő paramétereket + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ObjectSpace.Session, CriteriaOperator.Parse("")) + Dim _COA As ChartOfAccounts + + For Each _COA In _ChartOfAccounts_Collection + _COA.ChartOfAccounts1 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 1), _COA.AccountYear)) + _COA.ChartOfAccounts2 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 2), _COA.AccountYear)) + _COA.ChartOfAccounts3 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 3), _COA.AccountYear)) + _COA.ChartOfAccounts4 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 4), _COA.AccountYear)) + _COA.ChartOfAccounts5 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 5), _COA.AccountYear)) + _COA.ChartOfAccounts6 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 6), _COA.AccountYear)) + _COA.ChartOfAccounts7 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 7), _COA.AccountYear)) + _COA.ChartOfAccounts8 = _ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_COA.AccountNumber, 1, 8), _COA.AccountYear)) + _COA.Save() + Next + _ObjectSpace.CommitChanges() + End Sub + +End Class 'Főkönyvi számlaszámok + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance.vb new file mode 100644 index 0000000..d2577c8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance.vb @@ -0,0 +1,113 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class ChartOfAccountsBallance ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _CustomersFrom As CustomersFrom + Private _AccountYear As Long + Private _AccountNumber As String + Private _ShortName As String + Private _DebitAmountHUF As Double + Private _CreditAmountHUF As Double + Private _BallanceHUF As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property DebitAmountHUF As Double + Get + Return _DebitAmountHUF + End Get + Set(value As Double) + SetPropertyValue("DebitAmountHUF", _DebitAmountHUF, value) + End Set + End Property + Property CreditAmountHUF As Double + Get + Return _CreditAmountHUF + End Get + Set(value As Double) + SetPropertyValue("CreditAmountHUF", _CreditAmountHUF, value) + End Set + End Property + Property BallanceHUF As Double + Get + Return _BallanceHUF + End Get + Set(value As Double) + SetPropertyValue("BallanceHUF", _BallanceHUF, value) + End Set + End Property + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.Designer.vb new file mode 100644 index 0000000..ebd865f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class ChartOfAccountsBallance_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateChartOfAccountsBallance = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateChartOfAccountsBallance + ' + Me.aCreateChartOfAccountsBallance.Caption = "aCreate Chart Of Accounts Ballance" + Me.aCreateChartOfAccountsBallance.ConfirmationMessage = Nothing + Me.aCreateChartOfAccountsBallance.Id = "aCreateChartOfAccountsBallance" + Me.aCreateChartOfAccountsBallance.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsBallance) + Me.aCreateChartOfAccountsBallance.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateChartOfAccountsBallance.ToolTip = Nothing + Me.aCreateChartOfAccountsBallance.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'ChartOfAccountsBallance_VC + ' + Me.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aCreateChartOfAccountsBallance As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.resx new file mode 100644 index 0000000..c9f8b90 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.vb new file mode 100644 index 0000000..ec6492c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsBallance_VC.vb @@ -0,0 +1,42 @@ +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 ChartOfAccountsBallance_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 aCreateChartOfAccountsBallance_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsBallance.Execute + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb new file mode 100644 index 0000000..1a8f67e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.Designer.vb @@ -0,0 +1,178 @@ +Partial Class ChartOfAccountsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aReCreateChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReCreateChartOfAccountsParent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aReCreateChartOfAccountsCount = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewGLRowsfromChartOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloseChartOfAccountsYear = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateCartOfAccountsYearAny = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCloseChartOfAccountsYearBack = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aReCreateChartOfAccounts + ' + Me.aReCreateChartOfAccounts.Caption = "aRe Create Chart Of Accounts" + Me.aReCreateChartOfAccounts.ConfirmationMessage = "Do you want to execute command ?" + Me.aReCreateChartOfAccounts.Id = "aReCreateChartOfAccounts" + Me.aReCreateChartOfAccounts.ImageName = Nothing + Me.aReCreateChartOfAccounts.Shortcut = Nothing + Me.aReCreateChartOfAccounts.Tag = Nothing + Me.aReCreateChartOfAccounts.TargetObjectsCriteria = Nothing + Me.aReCreateChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts) + Me.aReCreateChartOfAccounts.TargetViewId = "" + Me.aReCreateChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aReCreateChartOfAccounts.ToolTip = Nothing + Me.aReCreateChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCreateChartOfAccountsYear + ' + Me.aCreateChartOfAccountsYear.Caption = "aCreate Chart Of Accounts Year" + Me.aCreateChartOfAccountsYear.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateChartOfAccountsYear.Id = "aCreateChartOfAccountsYear" + Me.aCreateChartOfAccountsYear.ImageName = Nothing + Me.aCreateChartOfAccountsYear.Shortcut = Nothing + Me.aCreateChartOfAccountsYear.Tag = Nothing + Me.aCreateChartOfAccountsYear.TargetObjectsCriteria = Nothing + Me.aCreateChartOfAccountsYear.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear) + Me.aCreateChartOfAccountsYear.TargetViewId = Nothing + Me.aCreateChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateChartOfAccountsYear.ToolTip = Nothing + Me.aCreateChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aReCreateChartOfAccountsParent + ' + Me.aReCreateChartOfAccountsParent.Caption = "aRe Create Chart Of Accounts Parent" + Me.aReCreateChartOfAccountsParent.ConfirmationMessage = Nothing + Me.aReCreateChartOfAccountsParent.Id = "aReCreateChartOfAccountsParent" + Me.aReCreateChartOfAccountsParent.ImageName = Nothing + Me.aReCreateChartOfAccountsParent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aReCreateChartOfAccountsParent.Shortcut = Nothing + Me.aReCreateChartOfAccountsParent.Tag = Nothing + Me.aReCreateChartOfAccountsParent.TargetObjectsCriteria = Nothing + Me.aReCreateChartOfAccountsParent.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts) + Me.aReCreateChartOfAccountsParent.TargetViewId = Nothing + Me.aReCreateChartOfAccountsParent.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aReCreateChartOfAccountsParent.ToolTip = Nothing + Me.aReCreateChartOfAccountsParent.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aReCreateChartOfAccountsCount + ' + Me.aReCreateChartOfAccountsCount.Caption = "aRe Create Chart Of Accounts Count" + Me.aReCreateChartOfAccountsCount.ConfirmationMessage = Nothing + Me.aReCreateChartOfAccountsCount.Id = "aReCreateChartOfAccountsCount" + Me.aReCreateChartOfAccountsCount.ImageName = Nothing + Me.aReCreateChartOfAccountsCount.Shortcut = Nothing + Me.aReCreateChartOfAccountsCount.Tag = Nothing + Me.aReCreateChartOfAccountsCount.TargetObjectsCriteria = Nothing + Me.aReCreateChartOfAccountsCount.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts) + Me.aReCreateChartOfAccountsCount.TargetViewId = Nothing + Me.aReCreateChartOfAccountsCount.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aReCreateChartOfAccountsCount.ToolTip = Nothing + Me.aReCreateChartOfAccountsCount.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aViewGLRowsfromChartOfAccounts + ' + Me.aViewGLRowsfromChartOfAccounts.Caption = "aView GLRowsfrom Chart Of Accounts" + Me.aViewGLRowsfromChartOfAccounts.ConfirmationMessage = Nothing + Me.aViewGLRowsfromChartOfAccounts.Id = "aViewGLRowsfromChartOfAccounts" + Me.aViewGLRowsfromChartOfAccounts.ImageName = Nothing + Me.aViewGLRowsfromChartOfAccounts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewGLRowsfromChartOfAccounts.Shortcut = Nothing + Me.aViewGLRowsfromChartOfAccounts.Tag = Nothing + Me.aViewGLRowsfromChartOfAccounts.TargetObjectsCriteria = Nothing + Me.aViewGLRowsfromChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccounts) + Me.aViewGLRowsfromChartOfAccounts.TargetViewId = Nothing + Me.aViewGLRowsfromChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewGLRowsfromChartOfAccounts.ToolTip = Nothing + Me.aViewGLRowsfromChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCloseChartOfAccountsYear + ' + Me.aCloseChartOfAccountsYear.Caption = "aClose Chart Of Accounts Year" + Me.aCloseChartOfAccountsYear.ConfirmationMessage = "Are you sure ?" + Me.aCloseChartOfAccountsYear.Id = "aCloseChartOfAccountsYear" + Me.aCloseChartOfAccountsYear.ImageName = Nothing + Me.aCloseChartOfAccountsYear.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloseChartOfAccountsYear.Shortcut = Nothing + Me.aCloseChartOfAccountsYear.Tag = Nothing + Me.aCloseChartOfAccountsYear.TargetObjectsCriteria = Nothing + Me.aCloseChartOfAccountsYear.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear) + Me.aCloseChartOfAccountsYear.TargetViewId = Nothing + Me.aCloseChartOfAccountsYear.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aCloseChartOfAccountsYear.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCloseChartOfAccountsYear.ToolTip = Nothing + Me.aCloseChartOfAccountsYear.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCreateCartOfAccountsYearAny + ' + Me.aCreateCartOfAccountsYearAny.AcceptButtonCaption = Nothing + Me.aCreateCartOfAccountsYearAny.CancelButtonCaption = Nothing + Me.aCreateCartOfAccountsYearAny.Caption = "aCreate Cart Of Accounts Year Any" + Me.aCreateCartOfAccountsYearAny.ConfirmationMessage = Nothing + Me.aCreateCartOfAccountsYearAny.Id = "aCreateCartOfAccountsYearAny" + Me.aCreateCartOfAccountsYearAny.ImageName = Nothing + Me.aCreateCartOfAccountsYearAny.Shortcut = Nothing + Me.aCreateCartOfAccountsYearAny.Tag = Nothing + Me.aCreateCartOfAccountsYearAny.TargetObjectsCriteria = Nothing + Me.aCreateCartOfAccountsYearAny.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear) + Me.aCreateCartOfAccountsYearAny.TargetViewId = Nothing + Me.aCreateCartOfAccountsYearAny.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aCreateCartOfAccountsYearAny.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateCartOfAccountsYearAny.ToolTip = Nothing + Me.aCreateCartOfAccountsYearAny.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCloseChartOfAccountsYearBack + ' + Me.aCloseChartOfAccountsYearBack.Caption = "aClose Chart Of Accounts Year Back" + Me.aCloseChartOfAccountsYearBack.ConfirmationMessage = "Are you sure ?" + Me.aCloseChartOfAccountsYearBack.Id = "aCloseChartOfAccountsYearBack" + Me.aCloseChartOfAccountsYearBack.ImageName = Nothing + Me.aCloseChartOfAccountsYearBack.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloseChartOfAccountsYearBack.Shortcut = Nothing + Me.aCloseChartOfAccountsYearBack.Tag = Nothing + Me.aCloseChartOfAccountsYearBack.TargetObjectsCriteria = Nothing + Me.aCloseChartOfAccountsYearBack.TargetObjectType = GetType(SISBusiness.[Module].ChartOfAccountsYear) + Me.aCloseChartOfAccountsYearBack.TargetViewId = Nothing + Me.aCloseChartOfAccountsYearBack.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.aCloseChartOfAccountsYearBack.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCloseChartOfAccountsYearBack.ToolTip = Nothing + Me.aCloseChartOfAccountsYearBack.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aReCreateChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReCreateChartOfAccountsParent As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aReCreateChartOfAccountsCount As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewGLRowsfromChartOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloseChartOfAccountsYear As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCreateCartOfAccountsYearAny As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCloseChartOfAccountsYearBack As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.resx new file mode 100644 index 0000000..ba724ba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.resx @@ -0,0 +1,147 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 276 + + + 17, 128 + + + 17, 239 + + + 17, 202 + + + 17, 165 + + + 17, 91 + + + 17, 54 + + + 462, 54 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb new file mode 100644 index 0000000..4c64f86 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsVC.vb @@ -0,0 +1,747 @@ +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.CloneObject + +Imports System.Linq +Imports System.Linq.Expressions + +Public Class ChartOfAccountsVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + 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 = "ChartOfAccountsYear_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "ChartOfAccountsYear_DetailView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ChartOfAccountsYear_ChartOfAccounts_ListView" Then + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aReCreateChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_uow) + Dim _ChartOfAccounts As ChartOfAccounts + + Dim _AccountNumber As String = "" + Dim _AccountNumber_Parent As String = "" + + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + + RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts) + + _ChartOfAccounts.ChartOfAccounts1 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 1), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts2 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 2), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts3 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 3), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts4 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 4), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts5 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 5), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts6 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 6), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts7 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 7), _ChartOfAccounts.AccountYear)) + _ChartOfAccounts.ChartOfAccounts8 = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", Mid(_ChartOfAccounts.AccountNumber, 1, 8), _ChartOfAccounts.AccountYear)) + Next + _uow.CommitChanges() + RaiseEvent FinalWork + End Sub + Sub RecursiveSetParent(_uow As UnitOfWork, _Year As Long, _AccountNumber As String, _ChartOfAccount_Set As ChartOfAccounts) + + Dim _AccountNumber_Parent As String = LTrim(RTrim(Mid(_AccountNumber, 1, Len(_AccountNumber) - 1))) + Dim _ChartOfAccounts_Parent As ChartOfAccounts + + If _AccountNumber_Parent = "" Then + Else + _ChartOfAccounts_Parent = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _Year, _AccountNumber_Parent)) + If _ChartOfAccounts_Parent Is Nothing Then + RecursiveSetParent(_uow, _Year, _AccountNumber_Parent, _ChartOfAccount_Set) + Else + _ChartOfAccount_Set.Parent = _ChartOfAccounts_Parent + _uow.CommitChanges() + + End If + End If + End Sub + + Private Sub aCreateChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateChartOfAccountsYear.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _ChartOfAccountsYear As ChartOfAccountsYear + Dim _ChartOfAccounts_New As ChartOfAccounts + + Dim _CurrentYear As Long = GetSQLTime(_ocur.Session).Year + Dim _PrevYear As Long = GetSQLTime(_ocur.Session).Year - 1 + Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(GetSQLTime(_ocur.Session)) + Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(GetSQLTime(_ocur.Session)) + + _ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", GetSQLTime(_ocur.Session).Year)) + + If _ChartOfAccountsYear Is Nothing Then + _ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)() + _ChartOfAccountsYear.AccountYear = GetSQLTime(_ocur.Session).Year + + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _ChartOfAccounts As ChartOfAccounts + + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + _ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)() + _ChartOfAccounts_New.Name = _ChartOfAccounts.Name + _ChartOfAccounts_New.Parent = Nothing + _ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber + _ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear + _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + _ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts) + _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + End If + '// VAT -> FA megnyitsa, paramterek tmsolsa + Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _VATYear_PrevYear As VATYear + Dim _VATYear_CurrentYear As VATYear + If _VATYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count) + For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear + RaiseEvent DoWork() + _VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT)) + If _VATYear_CurrentYear Is Nothing Then + _VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)() + _VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT + _VATYear_CurrentYear.AccountYear = _CurrentYear + If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then + _VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear)) + End If + If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then + _VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// Controlling -> Kontrollszmok megnyitsa, paramterek tmsolsa + Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _ControllingYear_PrevYear As ControllingYear + Dim _ControllingYear_CurrentYear As ControllingYear + If _ControllingYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count) + For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear + RaiseEvent DoWork() + _ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling)) + If _ControllingYear_CurrentYear Is Nothing Then + _ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)() + _ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling + _ControllingYear_CurrentYear.AccountYear = _CurrentYear + If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then + _ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then + _ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + '// CustomersGLParameters -> gyfl fknyvi kategria megnyitsa + Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear + Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear + If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count) + For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear + RaiseEvent DoWork() + _CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters)) + If _CustomersGLParametersYear_CurrentYear Is Nothing Then + _CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)() + _CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters + _CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear + + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear)) + End If + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear)) + End If + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear)) + End If + + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// GLHeader_RateDiffParameter -> rfolyamelszmols, kerekts + Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear + Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count) + For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear + RaiseEvent DoWork() + _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter)) + If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)() + _GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter + _GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear)) + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear)) + If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear)) + End If + If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// LiquidAssets -> Pnzeszkzk megnyitsa + Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear + Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear + If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count) + For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear + RaiseEvent DoWork() + _LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets)) + If _LiquidAssetsYear_CurrentYear Is Nothing Then + _LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)() + _LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets + _LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear + If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear)) + End If + If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// Trgyieskz paramterek belltsa + '// LiquidAssets -> Pnzeszkzk megnyitsa + Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear + Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear + If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count) + For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear + RaiseEvent DoWork() + _FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters)) + If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then + _FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)() + _FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters + _FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear + If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then + _FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then + _FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '//GLRows-ban tknyvelni a tteleket az j v fknyvi szmlira + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date)) + Dim _GLRows As GLRows + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + If _GLRows.DebitChartOfAccounts IsNot Nothing Then + Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts + End If + End If + Next + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + RaiseEvent FinalWork + + _GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date)) + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + If _GLRows.DebitChartOfAccounts IsNot Nothing Then + Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.CreditChartOfAccounts = _ChartOfAccounts + End If + End If + Next + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + RaiseEvent FinalWork + + End Sub + Private Sub aReCreateChartOfAccountsParent_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsParent.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ChartOfAccounts As ChartOfAccounts + + For Each _ChartOfAccounts In View.SelectedObjects + Me.RecursiveSetParent(_uow, _ChartOfAccounts.AccountYear, _ChartOfAccounts.AccountNumber, _uow.GetObjectByKey(Of ChartOfAccounts)(_ChartOfAccounts.Oid)) + Next + _uow.CommitChanges() + _ocur.CommitChanges() + + End Sub + + Private Sub ChartOfAccountsYear_ChartOfAccounts_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + '// Fk. szmlaszm trlse ! + '// Nem lehet paramter, s nem lehet knyvelve r ! + '// Paramterek: + '// LiquidAssetsYear + '// CustomersGLParametersYear + '// GLHeader_ratediffparametersYear + '// ControllingYear + '// VATYear + '// Nem lehet szl + End Sub + + Private Sub aReCreateChartOfAccountsCount_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aReCreateChartOfAccountsCount.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ChartOfAccounts As ChartOfAccounts + + Dim _ListView As ListView = TryCast(View, ListView) + + If _ListView IsNot Nothing Then + If _ListView.SelectedObjects.Count > 0 Then + RaiseEvent InitWork(1, 1, _ListView.SelectedObjects.Count) + For Each _ChartOfAccounts In _ListView.SelectedObjects + Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow) + Dim _Count = Aggregate _GLRows In _GLRows_xpquery + Where _GLRows.GLHeader.IsEditable = False And + (_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or + _GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid) + Into Count() + _ChartOfAccounts.RecordCount = _Count + RaiseEvent DoWork() + Next + Else + RaiseEvent InitWork(1, 1, _ListView.CollectionSource.List.Count) + For Each _ChartOfAccounts In _ListView.CollectionSource.List + Dim _GLRows_xpquery As New XPQuery(Of GLRows)(_uow) + Dim _Count = Aggregate _GLRows In _GLRows_xpquery + Where _GLRows.GLHeader.IsEditable = False And + (_GLRows.DebitChartOfAccounts.Oid = _ChartOfAccounts.Oid Or + _GLRows.CreditChartOfAccounts.Oid = _ChartOfAccounts.Oid) + Into Count() + _ChartOfAccounts.RecordCount = _Count + RaiseEvent DoWork() + Next + End If + End If + + _ocur.CommitChanges() + RaiseEvent FinalWork + View.Refresh() + End Sub + + Private Sub aViewGLRowsfromChartOfAccounts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewGLRowsfromChartOfAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(GLRows)) + Dim _ChartOfAccounts As ChartOfAccounts = TryCast(View.SelectedObjects(0), ChartOfAccounts) + Dim _Criteria As String = "(DebitChartOfAccounts.Oid=? or CreditChartOfAccounts.Oid=?) and GLHeader.IsEditable=False" + + If _ChartOfAccounts Is Nothing Then Exit Sub + + + If LTrim(RTrim(_Criteria <> "")) Then + _CS.BeginUpdateCriteria() + _CS.Criteria("DetailFilter") = CriteriaOperator.Parse(_Criteria, _ChartOfAccounts.Oid, _ChartOfAccounts.Oid) + _CS.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("GLRows_ListView_All", _CS, True) + + End If + + End Sub + + Private Sub aCloseChartOfAccountsYear_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYear.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear) + + If _ChartOfAccountsYear IsNot Nothing Then + _ChartOfAccountsYear.IsClosed = True + _ocur.CommitChanges() + End If + End Sub + + Private Sub aCloseChartOfAccountsYearBack_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloseChartOfAccountsYearBack.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ChartOfAccountsYear As ChartOfAccountsYear = TryCast(View.SelectedObjects(0), ChartOfAccountsYear) + + If _ChartOfAccountsYear IsNot Nothing Then + _ChartOfAccountsYear.IsClosed = False + _ocur.CommitChanges() + End If + End Sub + + Private Sub aCreateCartOfAccountsYearAny_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateCartOfAccountsYearAny.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChartOfAccountsYearPopup As ChartOfAccountsYearPopup = _onew.CreateObject(Of ChartOfAccountsYearPopup)() + + e.View = Application.CreateDetailView(_onew, "ChartOfAccountsYearPopup_DetailView", False, _ChartOfAccountsYearPopup) + End Sub + + Private Sub aCreateCartOfAccountsYearAny_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateCartOfAccountsYearAny.Execute + Try + + GLOBAL_HAS_Audit = False + Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace 'TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + 'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim i As Long = 0 + Dim _ChartOfAccountsYear As ChartOfAccountsYear + Dim _ChartOfAccounts_New As ChartOfAccounts + + Dim _CurrentYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYear + Dim _CurrentYearDate As Date = CDate(_CurrentYear.ToString & "/01/01") + Dim _PrevYear As Long = TryCast(e.PopupWindow.View.SelectedObjects(0), ChartOfAccountsYearPopup).AccountYearPrev + Dim _FirstDayOfYear = GeneralFunction.FirstDayOfYear(_CurrentYearDate) + Dim _LastDayOfYear = GeneralFunction.LastDayOfYear(_CurrentYearDate) + + _ChartOfAccountsYear = _ocur.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _CurrentYearDate.Year)) + + If _ChartOfAccountsYear Is Nothing Then + _ChartOfAccountsYear = _ocur.CreateObject(Of ChartOfAccountsYear)() + _ChartOfAccountsYear.AccountYear = _CurrentYearDate.Year + + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _ChartOfAccounts As ChartOfAccounts + + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + _ChartOfAccounts_New = _ocur.CreateObject(Of ChartOfAccounts)() + _ChartOfAccounts_New.Name = _ChartOfAccounts.Name + _ChartOfAccounts_New.Parent = Nothing + _ChartOfAccounts_New.AccountNumber = _ChartOfAccounts.AccountNumber + _ChartOfAccounts_New.AccountYear = _ChartOfAccountsYear.AccountYear + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + '_ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + _ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + i = 0 + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + RaiseEvent DoWork() + Me.RecursiveSetParent(_ocur.Session, _CurrentYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts) + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + + End If + '// VAT -> FA megnyitsa, paramterek tmsolsa + Dim _VATYear_Collection_CurrentYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _VATYear_Collection_PrevYear As New XPCollection(Of VATYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _VATYear_PrevYear As VATYear + Dim _VATYear_CurrentYear As VATYear + If _VATYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _VATYear_Collection_PrevYear.Count) + i = 0 + For Each _VATYear_PrevYear In _VATYear_Collection_PrevYear + RaiseEvent DoWork() + _VATYear_CurrentYear = _ocur.FindObject(Of VATYear)(CriteriaOperator.Parse("AccountYear=? and VAT=?", _CurrentYear, _VATYear_PrevYear.VAT)) + If _VATYear_CurrentYear Is Nothing Then + _VATYear_CurrentYear = _ocur.CreateObject(Of VATYear)() + _VATYear_CurrentYear.VAT = _VATYear_PrevYear.VAT + _VATYear_CurrentYear.AccountYear = _CurrentYear + If _VATYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then + _VATYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear)) + End If + If _VATYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then + _VATYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _VATYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// Controlling -> Kontrollszmok megnyitsa, paramterek tmsolsa + Dim _ControllingYear_Collection_CurrentYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _ControllingYear_Collection_PrevYear As New XPCollection(Of ControllingYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _ControllingYear_PrevYear As ControllingYear + Dim _ControllingYear_CurrentYear As ControllingYear + If _ControllingYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _ControllingYear_Collection_PrevYear.Count) + i = 0 + For Each _ControllingYear_PrevYear In _ControllingYear_Collection_PrevYear + RaiseEvent DoWork() + _ControllingYear_CurrentYear = _ocur.FindObject(Of ControllingYear)(CriteriaOperator.Parse("AccountYear=? and Controlling=?", _CurrentYear, _ControllingYear_PrevYear.Controlling)) + If _ControllingYear_CurrentYear Is Nothing Then + _ControllingYear_CurrentYear = _ocur.CreateObject(Of ControllingYear)() + _ControllingYear_CurrentYear.Controlling = _ControllingYear_PrevYear.Controlling + _ControllingYear_CurrentYear.AccountYear = _CurrentYear + If _ControllingYear_PrevYear.ChartOfAccounts IsNot Nothing Then + _ControllingYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _ControllingYear_PrevYear.ChartOfAccounts2 IsNot Nothing Then + _ControllingYear_CurrentYear.ChartOfAccounts2 = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ControllingYear_PrevYear.ChartOfAccounts2.AccountNumber, _CurrentYear)) + End If + End If + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + '// CustomersGLParameters -> gyfl fknyvi kategria megnyitsa + Dim _CustomersGLParametersYear_Collection_CurrentYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _CustomersGLParametersYear_Collection_PrevYear As New XPCollection(Of CustomersGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _CustomersGLParametersYear_PrevYear As CustomersGLParametersYear + Dim _CustomersGLParametersYear_CurrentYear As CustomersGLParametersYear + If _CustomersGLParametersYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _CustomersGLParametersYear_Collection_PrevYear.Count) + i = 0 + For Each _CustomersGLParametersYear_PrevYear In _CustomersGLParametersYear_Collection_PrevYear + RaiseEvent DoWork() + _CustomersGLParametersYear_CurrentYear = _ocur.FindObject(Of CustomersGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and CustomersGLParameters=?", _CurrentYear, _CustomersGLParametersYear_PrevYear.CustomersGLParameters)) + If _CustomersGLParametersYear_CurrentYear Is Nothing Then + _CustomersGLParametersYear_CurrentYear = _ocur.CreateObject(Of CustomersGLParametersYear)() + _CustomersGLParametersYear_CurrentYear.CustomersGLParameters = _CustomersGLParametersYear_PrevYear.CustomersGLParameters + _CustomersGLParametersYear_CurrentYear.AccountYear = _CurrentYear + + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsIn = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsIn.AccountNumber, _CurrentYear)) + End If + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsOut = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsOut.AccountNumber, _CurrentYear)) + End If + If _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo IsNot Nothing Then + _CustomersGLParametersYear_CurrentYear.ChartOfAccountsNo = _ocur.FindObject(Of ChartOfAccounts) _ + (CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _ + _CustomersGLParametersYear_PrevYear.ChartOfAccountsNo.AccountNumber, _CurrentYear)) + End If + + End If + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// GLHeader_RateDiffParameter -> rfolyamelszmols, kerekts + Dim _GLHeader_RateDiffParameterYear_Collection_CurrentYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _GLHeader_RateDiffParameterYear_Collection_PrevYear As New XPCollection(Of GLHeader_RateDiffParameterYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _GLHeader_RateDiffParameterYear_PrevYear As GLHeader_RateDiffParameterYear + Dim _GLHeader_RateDiffParameterYear_CurrentYear As GLHeader_RateDiffParameterYear + If _GLHeader_RateDiffParameterYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _GLHeader_RateDiffParameterYear_Collection_PrevYear.Count) + For Each _GLHeader_RateDiffParameterYear_PrevYear In _GLHeader_RateDiffParameterYear_Collection_PrevYear + RaiseEvent DoWork() + _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.FindObject(Of GLHeader_RateDiffParameterYear)(CriteriaOperator.Parse("AccountYear=? and GLHeader_RateDiffParameter=?", _CurrentYear, _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter)) + If _GLHeader_RateDiffParameterYear_CurrentYear Is Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear = _ocur.CreateObject(Of GLHeader_RateDiffParameterYear)() + _GLHeader_RateDiffParameterYear_CurrentYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameterYear_PrevYear.GLHeader_RateDiffParameter + _GLHeader_RateDiffParameterYear_CurrentYear.AccountYear = _CurrentYear + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Loss.AccountNumber, _CurrentYear)) + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_RateDiff_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_RateDiff_Win.AccountNumber, _CurrentYear)) + If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss IsNot Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Loss = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Loss.AccountNumber, _CurrentYear)) + End If + If _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win IsNot Nothing Then + _GLHeader_RateDiffParameterYear_CurrentYear.ChartOfAccounts_Rounding_Win = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _GLHeader_RateDiffParameterYear_PrevYear.ChartOfAccounts_Rounding_Win.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// LiquidAssets -> Pnzeszkzk megnyitsa + Dim _LiquidAssetsYear_Collection_CurrentYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _LiquidAssetsYear_Collection_PrevYear As New XPCollection(Of LiquidAssetsYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _LiquidAssetsYear_PrevYear As LiquidAssetsYear + Dim _LiquidAssetsYear_CurrentYear As LiquidAssetsYear + If _LiquidAssetsYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _LiquidAssetsYear_Collection_PrevYear.Count) + For Each _LiquidAssetsYear_PrevYear In _LiquidAssetsYear_Collection_PrevYear + RaiseEvent DoWork() + _LiquidAssetsYear_CurrentYear = _ocur.FindObject(Of LiquidAssetsYear)(CriteriaOperator.Parse("AccountYear=? and LiquidAssets=?", _CurrentYear, _LiquidAssetsYear_PrevYear.LiquidAssets)) + If _LiquidAssetsYear_CurrentYear Is Nothing Then + _LiquidAssetsYear_CurrentYear = _ocur.CreateObject(Of LiquidAssetsYear)() + _LiquidAssetsYear_CurrentYear.LiquidAssets = _LiquidAssetsYear_PrevYear.LiquidAssets + _LiquidAssetsYear_CurrentYear.AccountYear = _CurrentYear + If _LiquidAssetsYear_PrevYear.ChartOfAccounts IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccountsPlus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsPlus.AccountNumber, _CurrentYear)) + End If + If _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus IsNot Nothing Then + _LiquidAssetsYear_CurrentYear.ChartOfAccountsMinus = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _LiquidAssetsYear_PrevYear.ChartOfAccountsMinus.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '// Trgyieskz paramterek belltsa + '// LiquidAssets -> Pnzeszkzk megnyitsa + Dim _FixedAssetsGLParametersYear_Collection_CurrentYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _CurrentYear)) + Dim _FixedAssetsGLParametersYear_Collection_PrevYear As New XPCollection(Of FixedAssetsGLParametersYear)(_ocur.Session, CriteriaOperator.Parse("AccountYear=?", _PrevYear)) + Dim _FixedAssetsGLParametersYear_PrevYear As FixedAssetsGLParametersYear + Dim _FixedAssetsGLParametersYear_CurrentYear As FixedAssetsGLParametersYear + If _FixedAssetsGLParametersYear_Collection_CurrentYear.Count <= 0 Then + RaiseEvent InitWork(1, 1, _FixedAssetsGLParametersYear_Collection_PrevYear.Count) + For Each _FixedAssetsGLParametersYear_PrevYear In _FixedAssetsGLParametersYear_Collection_PrevYear + RaiseEvent DoWork() + _FixedAssetsGLParametersYear_CurrentYear = _ocur.FindObject(Of FixedAssetsGLParametersYear)(CriteriaOperator.Parse("AccountYear=? and FixedAssetsGLParameters=?", _CurrentYear, _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters)) + If _FixedAssetsGLParametersYear_CurrentYear Is Nothing Then + _FixedAssetsGLParametersYear_CurrentYear = _ocur.CreateObject(Of FixedAssetsGLParametersYear)() + _FixedAssetsGLParametersYear_CurrentYear.FixedAssetsGLParameters = _FixedAssetsGLParametersYear_PrevYear.FixedAssetsGLParameters + _FixedAssetsGLParametersYear_CurrentYear.AccountYear = _CurrentYear + If _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts IsNot Nothing Then + _FixedAssetsGLParametersYear_CurrentYear.CreditChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.CreditChartOfAccounts.AccountNumber, _CurrentYear)) + End If + If _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts IsNot Nothing Then + _FixedAssetsGLParametersYear_CurrentYear.DebitChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountNumber=? and AccountYear=?", _FixedAssetsGLParametersYear_PrevYear.DebitChartOfAccounts.AccountNumber, _CurrentYear)) + End If + End If + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End If + + '//GLRows-ban tknyvelni a tteleket az j v fknyvi szmlira + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("DebitChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date)) + Dim _GLRows As GLRows + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + i = 0 + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + If _GLRows.DebitChartOfAccounts IsNot Nothing Then + Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.DebitChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.DebitChartOfAccounts = _ChartOfAccounts + End If + End If + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + RaiseEvent FinalWork + + _GLRows_Collection = New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("CreditChartOfAccounts.AccountYear<>? and GetDate(GLHeader.DateExecution) between (?,?)", _CurrentYear, _FirstDayOfYear.Date, _LastDayOfYear.Date)) + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + i = 0 + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + If _GLRows.DebitChartOfAccounts IsNot Nothing Then + Dim _ChartOfAccounts As ChartOfAccounts = _ocur.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _CurrentYear, _GLRows.CreditChartOfAccounts.AccountNumber)) + If _ChartOfAccounts IsNot Nothing Then + _GLRows.CreditChartOfAccounts = _ChartOfAccounts + End If + End If + i += 1 + If i Mod 50 = 0 Then _ocur.CommitChanges() + Next + _ocur.CommitChanges() + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + RaiseEvent FinalWork + Catch ex As Exception + Finally + RaiseEvent FinalWork + GLOBAL_HAS_Audit = True + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYear.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYear.vb new file mode 100644 index 0000000..b8cc115 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYear.vb @@ -0,0 +1,51 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Linq +Imports System.Linq.Expressions + + _ +Public Class ChartOfAccountsYear + Inherits BaseObject + Private _AccountYear As Long + Private _IsClosed As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + _ + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + Property IsClosed As Boolean + Get + Return _IsClosed + End Get + Set(value As Boolean) + SetPropertyValue("IsClosed", _IsClosed, value) + End Set + End Property + + ReadOnly Property ChartOfAccounts As XPCollection(Of ChartOfAccounts) + Get + Return New XPCollection(Of ChartOfAccounts)(Session, CriteriaOperator.Parse("AccountYear=?", AccountYear)) + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYearPopup.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYearPopup.vb new file mode 100644 index 0000000..ee16ff9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ChartOfAccountsYearPopup.vb @@ -0,0 +1,51 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ChartOfAccountsYearPopup + Inherits BaseObject + + Private _AccountYear As Long + Private _AccountYearPrev As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + AccountYear = Year(Now) + End Sub + + _ + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + Property AccountYearPrev As Long + Get + Return _AccountYearPrev + End Get + Set(value As Long) + SetPropertyValue("AccountYearPrev", _AccountYearPrev, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyName.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyName.vb new file mode 100644 index 0000000..a747170 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyName.vb @@ -0,0 +1,52 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.SystemModule + +Public Enum ePayMode + NotSet = -1 'Nincs beállítva + InCash = 0 'Készpénz + InTransfer = 1 'Átutalás + InOther = 2 'Egyéb + InBarter = 3 'Barter + InContinuous = 4 'Folyamatos teljesítés esetén +End Enum + + _ + _ + _ +Public Class CurrencyName + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + + _ + ReadOnly Property MNBCurrencyRate As XPCollection(Of CurrencyRate) + Get + If Me IsNot Nothing Then + Return New XPCollection(Of CurrencyRate)(Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True", Me)) + Else + Return Nothing + End If + End Get + End Property +End Class 'Devizanem + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRate.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRate.vb new file mode 100644 index 0000000..b548749 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRate.vb @@ -0,0 +1,99 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Xml +Imports DevExpress.ExpressApp.SystemModule + + _ + _ + _ += '@LastWorkWeekStart' AND [DateValid] < '@LastWorkWeekEnd'")> _ + _ + _ +Public Class CurrencyRate + Inherits BaseObject + Private _CurrencyName As CurrencyName + Private _LiquidAssets As LiquidAssets + Private _DateValid As Date + Private _RateAverage As Double + Private _RatePurchase As Double + Private _RateSelling As Double + Private _Active As Boolean + Private _IsMNB As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CurrencyName() As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property LiquidAssets() As LiquidAssets + Get + Return _LiquidAssets + End Get + Set(ByVal value As LiquidAssets) + SetPropertyValue("LiquidAssets", _LiquidAssets, value) + End Set + End Property + Property DateValid() As Date + Get + Return _DateValid + End Get + Set(ByVal value As Date) + SetPropertyValue("DateValid", _DateValid, value) + End Set + End Property + Property RateAverage() As Double + Get + Return _RateAverage + End Get + Set(ByVal value As Double) + SetPropertyValue("RateAverage", _RateAverage, value) + End Set + End Property + Property RatePurchase() As Double + Get + Return _RatePurchase + End Get + Set(ByVal value As Double) + SetPropertyValue("RatePurchase", _RatePurchase, value) + End Set + End Property + Property RateSelling() As Double + Get + Return _RateSelling + End Get + Set(ByVal value As Double) + SetPropertyValue("RateSelling", _RateSelling, value) + End Set + End Property + Property Active() As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + Property IsMNB As Boolean + Get + Return _IsMNB + End Get + Set(value As Boolean) + SetPropertyValue("IsMNB", _IsMNB, value) + End Set + End Property + +End Class ' Devizaárfolyam + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.Designer.vb new file mode 100644 index 0000000..9f7bac1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class CurrencyRateVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSyncroniseMNBCurrencyRate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSyncroniseMNBCurrencyRate + ' + Me.aSyncroniseMNBCurrencyRate.Caption = "aSyncronise MNBCurrency Rate" + Me.aSyncroniseMNBCurrencyRate.ConfirmationMessage = "Do you want to execute command ?" + Me.aSyncroniseMNBCurrencyRate.Id = "aSyncroniseMNBCurrencyRate" + Me.aSyncroniseMNBCurrencyRate.ImageName = Nothing + Me.aSyncroniseMNBCurrencyRate.Shortcut = Nothing + Me.aSyncroniseMNBCurrencyRate.Tag = Nothing + Me.aSyncroniseMNBCurrencyRate.TargetObjectsCriteria = Nothing + Me.aSyncroniseMNBCurrencyRate.TargetObjectType = GetType(SISBusiness.[Module].CurrencyRate) + Me.aSyncroniseMNBCurrencyRate.TargetViewId = Nothing + Me.aSyncroniseMNBCurrencyRate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSyncroniseMNBCurrencyRate.ToolTip = Nothing + Me.aSyncroniseMNBCurrencyRate.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aSyncroniseMNBCurrencyRate As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.resx b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.resx new file mode 100644 index 0000000..130d1c5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.vb new file mode 100644 index 0000000..72d3950 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/CurrencyRateVC.vb @@ -0,0 +1,145 @@ +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 System.Xml + +Public Class CurrencyRateVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aSyncroniseMNBCurrencyRate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSyncroniseMNBCurrencyRate.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + SyncroniseMNBCurrencyRate(_uow) + + End Sub + Sub SyncroniseMNBCurrencyRate(_uow As UnitOfWork) + Dim _XML As String + Dim _MNBArfolyamService As New MNBArfolyamService.MNBArfolyamServiceSoapClient + Dim _CurrencyName_Collection As XPCollection(Of CurrencyName) = New XPCollection(Of CurrencyName)(_uow, CriteriaOperator.Parse("1=1")) + Dim _CurrencyRate_Collection As XPCollection(Of CurrencyRate) = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("Active=True")) + Dim _CurrencyRate As CurrencyRate + + Dim _BeginDate As Date = "2011-01-01" + Dim _StartDate As Date + Dim _EndDate As Date = String.Format("{0}-{1}-{2}", Now.Year, Now.Month, Now.Day) + + Dim _XMLDocument As New XmlDocument + Dim _XmlNode1 As Xml.XmlNode + Dim _XmlNode2 As Xml.XmlNode + + Dim _DateValid As Date + Dim _RateAverage As Double + + + If _MNBArfolyamService IsNot Nothing Then + + If _CurrencyRate_Collection.Count > 0 Then 'Kitrljk az Active belltst + For Each _CurrencyRate In _CurrencyRate_Collection + _CurrencyRate.Active = False + Next + _uow.CommitChanges() + End If + + For Each _CurrencyName In _CurrencyName_Collection + + If _CurrencyName.ShortName = "HUF" Then 'A HUF rfolyam nem rtelmezett + Continue For + End If + + _CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName)) + If _CurrencyRate_Collection.Count > 0 Then + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + _StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid) + Else + _StartDate = _BeginDate + End If + + _EndDate = DateAdd(DateInterval.Day, 30, _StartDate) + If _EndDate > Now.Date Then + _EndDate = Now.Date + End If + + Do While _StartDate <= Now.Date + + '_XML = _MNBArfolyamService.GetExchangeRates(_StartDate, _EndDate, _CurrencyName.ToString) + Dim _GetExchangeRatesRequestBody As New MNBArfolyamService.GetExchangeRatesRequestBody + Dim _GetExchangeRatesResponseBody As MNBArfolyamService.GetExchangeRatesResponseBody + + _GetExchangeRatesRequestBody.startDate = _StartDate + _GetExchangeRatesRequestBody.endDate = _EndDate + _GetExchangeRatesRequestBody.currencyNames = _CurrencyName.ToString + + _GetExchangeRatesResponseBody = _MNBArfolyamService.GetExchangeRates(_GetExchangeRatesRequestBody) + + _XML = _GetExchangeRatesResponseBody.GetExchangeRatesResult + + _XMLDocument.LoadXml(_XML.ToString) + + For Each _XmlNode1 In _XMLDocument.SelectNodes("MNBExchangeRates") + + For Each _XmlNode2 In _XmlNode1.SelectNodes("Day") + + _RateAverage = _XmlNode2.InnerText + _DateValid = _XmlNode2.Attributes("date").Value + + _CurrencyRate = _uow.FindObject(Of CurrencyRate)(CriteriaOperator.Parse("CurrencyName.ShortName=? And DateValid=?", _CurrencyName.ShortName, _DateValid)) + + If _CurrencyRate Is Nothing Then + _CurrencyRate = New CurrencyRate(_uow) + _CurrencyRate.CurrencyName = _CurrencyName + _CurrencyRate.DateValid = _DateValid + _CurrencyRate.RateAverage = _RateAverage + _CurrencyRate.IsMNB = True + + _CurrencyRate.Save() + End If + + Next + Next + + _StartDate = DateAdd(DateInterval.Day, 1, _EndDate.Date) + _EndDate = DateAdd(DateInterval.Day, 30, _StartDate) + If _EndDate > Now.Date Then + _EndDate = Now.Date + End If + Loop + + _CurrencyRate_Collection = New XPCollection(Of CurrencyRate)(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=?", _CurrencyName.ShortName)) + If _CurrencyRate_Collection.Count > 0 Then + _CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending)) + _StartDate = DateAdd(DateInterval.Day, 1, _CurrencyRate_Collection(0).DateValid) + _CurrencyRate_Collection(0).Active = True + _CurrencyRate_Collection(0).Save() + End If + Next + + End If + + _uow.CommitChanges() + End Sub + + ''// Az sszes CurrencyName XPCollection-ra ! (aktulis vet megelz v -> mai napig + '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "EUR") + '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "USD") + '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "CHF") + '_XML = _MNBArfolyamService.GetExchangeRates("2012-03-02", "2012-03-05", "GBP") +End Class diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/GLRegister.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/GLRegister.vb new file mode 100644 index 0000000..890ed8d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/GLRegister.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GLRegister '-- Főkönyvi napló + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class ' Főkönyvi napló + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/MoneyRate.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/MoneyRate.vb new file mode 100644 index 0000000..26f330b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/MoneyRate.vb @@ -0,0 +1,76 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class MoneyRate + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Private _KeyValue As Double + Private _DateFrom As Date + Private _DateTo As Date + Private _Active As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property KeyValue() As Double + Get + Return _KeyValue + End Get + Set(ByVal value As Double) + SetPropertyValue("KeyValue", _KeyValue, value) + End Set + End Property + Property DateFrom() As Date + Get + Return _DateFrom + End Get + Set(ByVal value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo() As Date + Get + Return _DateTo + End Get + Set(ByVal value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + Property Active() As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + +End Class ' Kamatláb + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/PaymentOption.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/PaymentOption.vb new file mode 100644 index 0000000..9f422b4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/PaymentOption.vb @@ -0,0 +1,118 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class PaymentOption + Inherits BaseObject + Private _ShortName As String + Private _ShortName_GB As String 'Angol megnevezés + Private _Description As String + Private _Description_GB As String 'Angol leírás + Private _PayMode As ePayMode + Private _PayDay As Long + Private _DefaultForBusinnes As Boolean = False 'Üzleti alapértelmezés + Private _DatePaymentMode As eDatePaymentMode 'Fiz hat. nap számítás módja + Private _IsControlling_InCash As Boolean 'Készpénzes rögzítés esetén csináljon-e + Private _Controlling_InCash As Controlling 'Készpénz esetén GLAccounts rögzítéskor a kifizetés mire menjen (automatikus sor beszúrás) ! + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DatePaymentMode = eDatePaymentMode.eDateCreated + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property PayMode() As ePayMode + Get + Return _PayMode + End Get + Set(ByVal value As ePayMode) + SetPropertyValue("PayMode", _PayMode, value) + End Set + End Property + Property PayDay() As Long + Get + Return _PayDay + End Get + Set(ByVal value As Long) + SetPropertyValue("PayDay", _PayDay, value) + End Set + End Property + Property DefaultForBusinnes As Boolean + Get + Return _DefaultForBusinnes + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value) + End Set + End Property + Property ShortName_GB As String + Get + Return _ShortName_GB + End Get + Set(value As String) + SetPropertyValue("ShortName_GB", _ShortName_GB, value) + End Set + End Property + _ + Property Description_GB() As String + Get + Return _Description_GB + End Get + Set(ByVal value As String) + SetPropertyValue("Description_GB", _Description_GB, value) + End Set + End Property + Property DatePaymentMode As eDatePaymentMode + Get + Return _DatePaymentMode + End Get + Set(value As eDatePaymentMode) + SetPropertyValue("DatePaymentMode", _DatePaymentMode, value) + End Set + End Property + Property IsControlling_InCash As Boolean + Get + Return _IsControlling_InCash + End Get + Set(value As Boolean) + SetPropertyValue("IsControlling_InCash", _IsControlling_InCash, value) + End Set + End Property + + Property Controlling_InCash As Controlling + Get + Return _Controlling_InCash + End Get + Set(value As Controlling) + SetPropertyValue("Controlling_InCash", _Controlling_InCash, value) + End Set + End Property +End Class 'Fizetési mód + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/QualityOption.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/QualityOption.vb new file mode 100644 index 0000000..7cb6789 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/QualityOption.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ +Public Class QualityOption + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Private _ShortName_GB As String + Private _Description_GB As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ShortName_GB As String + Get + Return _ShortName_GB + End Get + Set(value As String) + SetPropertyValue("ShortName_GB", _ShortName_GB, value) + End Set + End Property + _ + Property Description_GB() As String + Get + Return _Description_GB + End Get + Set(ByVal value As String) + SetPropertyValue("Description_GB", _Description_GB, value) + End Set + End Property + +End Class 'Minőségbiztosítási mód + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ShipmentOption.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ShipmentOption.vb new file mode 100644 index 0000000..fc5ce90 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/ShipmentOption.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ +Public Class ShipmentOption + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Private _ShortName_GB As String + Private _Description_GB As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property ShortName_GB As String + Get + Return _ShortName_GB + End Get + Set(value As String) + SetPropertyValue("ShortName_GB", _ShortName_GB, value) + End Set + End Property + _ + Property Description_GB() As String + Get + Return _Description_GB + End Get + Set(ByVal value As String) + SetPropertyValue("Description_GB", _Description_GB, value) + End Set + End Property +End Class 'Szállítási mód + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/UrgentOption.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/UrgentOption.vb new file mode 100644 index 0000000..04efafc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/UrgentOption.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + _ + _ +Public Class UrgentOption + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class 'Sürgősségi mód + diff --git a/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/VAT.vb b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/VAT.vb new file mode 100644 index 0000000..d496d61 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Financial/FinancialObjects/Stocks/VAT.vb @@ -0,0 +1,326 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eVATMode + eIn = 1 + eOut = 0 +End Enum + _ + _ + _ + _ +Public Class VAT + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Private _KeyValue As Double + Private _ChartOfAccountsOut As ChartOfAccounts + Private _ChartOfAccountsIn As ChartOfAccounts + Private _ClaimState As Boolean 'Levonható ? + Private _Active As Boolean 'Aktív ? + Private _InversState As Boolean = False 'Fordított ÁFA ? + Private _InverskeyValue As Double 'Fordított kulcs + Private _DefaultForBusinnes As Boolean = False 'Alapértelmezett az üzleti tranzakciók miatt + Private _DefaultForExternalEUNoVAT As Boolean = False 'EU-n belüli ÁFA kód (erre gyűjt majd !) + Private _DefaultForExternalOther As Boolean = False 'EU-n kívüli ÁFA kód ? (erre gyűjt majd !) + Private _DefaultForInversVAT As Boolean = False 'Fordított adózás alapértelmezett kódja + + '65A bevalláshoz mező azonosítás + Private _XML65AFieldIDBaseValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható! + Private _XML65AFieldIDValueIn As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható! + Private _XML65AFieldIDBaseValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő! + Private _XML65AFieldIDValueOut As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő! + + Private _XML65AFieldIDBaseValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét levonható! + Private _XML65AFieldIDValueInSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét levonható! + Private _XML65AFieldIDBaseValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA alapjának értékét fizetendő! + Private _XML65AFieldIDValueOutSum As String '65A bevallás melyik mezőkódjára tegye az ÁFA értékét fizetendő! + + Private _VATBag As String 'Áfa csomag, például pénztárgéphez + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + ReadOnly Property KeyValuePercent() As Double + Get + Return _KeyValue * 100 + End Get + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property KeyValue() As Double + Get + Return _KeyValue + End Get + Set(ByVal value As Double) + SetPropertyValue("KeyValue", _KeyValue, value) + End Set + End Property + + Property ChartOfAccountsOut() As ChartOfAccounts + Get + Return _ChartOfAccountsOut + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value) + End Set + End Property + + Property ChartOfAccountsIn() As ChartOfAccounts + Get + Return _ChartOfAccountsIn + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value) + End Set + End Property + Property ClaimState() As Boolean + Get + Return _ClaimState + End Get + Set(ByVal value As Boolean) + SetPropertyValue("ClaimState", _ClaimState, value) + End Set + End Property + Property Active() As Boolean + Get + Return _Active + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Active", _Active, value) + End Set + End Property + _ + Property InversState() As Boolean + Get + Return _InversState + End Get + Set(ByVal value As Boolean) + SetPropertyValue("InversState", _InversState, value) + If Session.IsObjectsLoading = False AndAlso Session.IsObjectsSaving = False Then + If value = True Then + KeyValue = 0 + Else + InversKeyValue = 0 + End If + End If + End Set + End Property + Property InversKeyValue() As Double + Get + Return _InverskeyValue + End Get + Set(ByVal value As Double) + SetPropertyValue("InversKeyValue", _InverskeyValue, value) + End Set + End Property + Property DefaultForBusinnes As Boolean + Get + Return _DefaultForBusinnes + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value) + End Set + End Property + Property DefaultForExternalEUNoVAT As Boolean + Get + Return _DefaultForExternalEUNoVAT + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForExternalEUNoVAT", _DefaultForExternalEUNoVAT, value) + End Set + End Property + Property DefaultForExternalOther As Boolean + Get + Return _DefaultForExternalOther + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForExternalOther", _DefaultForExternalOther, value) + End Set + End Property + Property DefaultForInversVAT As Boolean + Get + Return _DefaultForInversVAT + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForInversVAT", _DefaultForInversVAT, value) + End Set + End Property + Property XML65AFieldIDBaseValueIn As String + Get + Return _XML65AFieldIDBaseValueIn + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDBaseValueIn", _XML65AFieldIDBaseValueIn, value) + End Set + End Property + Property XML65AFieldIDValueIn As String + Get + Return _XML65AFieldIDValueIn + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDValueIn", _XML65AFieldIDValueIn, value) + End Set + End Property + Property XML65AFieldIDBaseValueOut As String + Get + Return _XML65AFieldIDBaseValueOut + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDBaseValueOut", _XML65AFieldIDBaseValueOut, value) + End Set + End Property + Property XML65AFieldIDValueOut As String + Get + Return _XML65AFieldIDValueOut + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDValueOut", _XML65AFieldIDValueOut, value) + End Set + End Property + Property XML65AFieldIDBaseValueInSum As String + Get + Return _XML65AFieldIDBaseValueInSum + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDBaseValueInSum", _XML65AFieldIDBaseValueInSum, value) + End Set + End Property + Property XML65AFieldIDValueInSum As String + Get + Return _XML65AFieldIDValueInSum + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDValueInSum", _XML65AFieldIDValueInSum, value) + End Set + End Property + Property XML65AFieldIDBaseValueOutSum As String + Get + Return _XML65AFieldIDBaseValueOutSum + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDBaseValueOutSum", _XML65AFieldIDBaseValueOutSum, value) + End Set + End Property + Property XML65AFieldIDValueOutSum As String + Get + Return _XML65AFieldIDValueOutSum + End Get + Set(value As String) + SetPropertyValue("XML65AFieldIDValueOutSum", _XML65AFieldIDValueOutSum, value) + End Set + End Property + Property VATBag As String + Get + Return _VATBag + End Get + Set(value As String) + SetPropertyValue("VATBag", _VATBag, value) + End Set + End Property + + + _ + ReadOnly Property VATYear As XPCollection(Of VATYear) + Get + Return GetCollection(Of VATYear)("VATYear") + End Get + End Property + Public Function GetChartOfAccounts(_AccountYear As Long, _VATMode As eVATMode) As ChartOfAccounts + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _VATYear As VATYear + Select Case _VATMode + Case eVATMode.eIn + _ChartOfAccounts = Me.ChartOfAccountsIn + For Each _VATYear In Me.VATYear + If _VATYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _VATYear.ChartOfAccountsIn + Exit For + End If + Next + Case eVATMode.eOut + _ChartOfAccounts = Me.ChartOfAccountsOut + For Each _VATYear In Me.VATYear + If _VATYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _VATYear.ChartOfAccountsOut + Exit For + End If + Next + End Select + Return _ChartOfAccounts + End Function +End Class 'ÁFA kódok + _ + _ + _ +Public Class VATYear + Inherits BaseObject + + Private _VAT As VAT + Private _AccountYear As Long + Private _ChartOfAccountsOut As ChartOfAccounts + Private _ChartOfAccountsIn As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + + _ + Property VAT As VAT + Get + Return _VAT + End Get + Set(value As VAT) + SetPropertyValue("VAT", _VAT, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + Property ChartOfAccountsOut As ChartOfAccounts + Get + Return _ChartOfAccountsOut + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsOut", _ChartOfAccountsOut, value) + End Set + End Property + _ + Property ChartOfAccountsIn As ChartOfAccounts + Get + Return _ChartOfAccountsIn + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsIn", _ChartOfAccountsIn, value) + End Set + End Property +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriod.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriod.vb new file mode 100644 index 0000000..208bbe4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriod.vb @@ -0,0 +1,112 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum eAlertType + eNormal = 0 'Norml + eDaily = 1 'Naponta + eWeekly = 2 'Hetente + eMonthly = 3 'Havonta + eOnLoggedOn = 4 'Bejelentkezskor + eOnLoggingOff = 5 'Kijelentkezskor +End Enum + _ + _ + _ + _ + _ + _ +Public Class AlertPeriod + Inherits BaseObject + Private _AlertType As eAlertType = eAlertType.eNormal + Private _DateDayBefore As Long = 1 '? nappal eltte (a Task DueDate - DateDayBefore !) + Private _PeriodHour As Long = 1 '? rnknt + Private _PeriodMinute As Long = 0 '? percenknt + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property AlertType As eAlertType + Get + Return _AlertType + End Get + Set(value As eAlertType) + SetPropertyValue("AlertType", _AlertType, value) + End Set + End Property + Property DateDayBefore As Long + Get + Return _DateDayBefore + End Get + Set(value As Long) + SetPropertyValue("DateDayBefore", _DateDayBefore, value) + End Set + End Property + Property PeriodHour As Long + Get + Return _PeriodHour + End Get + Set(value As Long) + SetPropertyValue("PeriodHour", _PeriodHour, value) + End Set + End Property + Property PeriodMinute As Long + Get + Return _PeriodMinute + End Get + Set(value As Long) + SetPropertyValue("PeriodMinute", _PeriodMinute, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + Dim _Message As String = "" + Select Case AlertType + Case eAlertType.eNormal + _Message = String.Format("Hatrid eltt {0} nappal, {1} ra s {2} percenknt", _DateDayBefore, PeriodHour, PeriodMinute) + Case eAlertType.eDaily + _Message = String.Format("Naponta") + Case eAlertType.eWeekly + _Message = String.Format("Hetente") + Case eAlertType.eMonthly + _Message = String.Format("Havonta") + Case eAlertType.eOnLoggedOn + _Message = String.Format("Bejelentkezskor") + Case eAlertType.eOnLoggingOff + _Message = String.Format("Kijelentkezskor") + End Select + + Return _Message + End Get + End Property + _ + ReadOnly Property AlertPeriodDaily As XPCollection(Of AlertPeriodDaily) + Get + Return GetCollection(Of AlertPeriodDaily)("AlertPeriodDaily") + End Get + End Property + _ + ReadOnly Property AlertPeriodWeekly As XPCollection(Of AlertPeriodWeekly) + Get + Return GetCollection(Of AlertPeriodWeekly)("AlertPeriodWeekly") + End Get + End Property + _ + ReadOnly Property AlertPeriodMonthly As XPCollection(Of AlertPeriodMonthly) + Get + Return GetCollection(Of AlertPeriodMonthly)("AlertPeriodMonthly") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodDaily.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodDaily.vb new file mode 100644 index 0000000..1450997 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodDaily.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AlertPeriodDaily + Inherits BaseObject + + Private _AlertPeriod As AlertPeriod + Private _AlertTime As DateTime + Private _AlertHoure As Long + Private _AlertMinute As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property AlertTime As DateTime + Get + Return _AlertTime + End Get + Set(value As DateTime) + SetPropertyValue("AlertTime", _AlertTime, value) + End Set + End Property + _ + Property AlertHoure As Long + Get + Return _AlertHoure + End Get + Set(value As Long) + SetPropertyValue("AlertHoure", _AlertHoure, value) + End Set + End Property + _ + Property AlertMinute As Long + Get + Return _AlertMinute + End Get + Set(value As Long) + SetPropertyValue("AlertMinute", _AlertMinute, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + Return String.Format("{0} ra {1} perckor", AlertHoure, AlertMinute) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodMonthly.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodMonthly.vb new file mode 100644 index 0000000..91da151 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodMonthly.vb @@ -0,0 +1,77 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AlertPeriodMonthly + Inherits BaseObject + + Private _AlertPeriod As AlertPeriod + Private _DayOfMonth As eDayOfMonth + Private _AlertTime As DateTime + Private _AlertHoure As Long + Private _AlertMinute As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property DayOfMonth As eDayOfMonth + Get + Return _DayOfMonth + End Get + Set(value As eDayOfMonth) + SetPropertyValue("DayOfMonth", _DayOfMonth, value) + End Set + End Property + Property AlertTime As DateTime + Get + Return _AlertTime + End Get + Set(value As DateTime) + SetPropertyValue("AlertTime", _AlertTime, value) + End Set + End Property + _ + Property AlertHoure As Long + Get + Return _AlertHoure + End Get + Set(value As Long) + SetPropertyValue("AlertHoure", _AlertHoure, value) + End Set + End Property + _ + Property AlertMinute As Long + Get + Return _AlertMinute + End Get + Set(value As Long) + SetPropertyValue("AlertMinute", _AlertMinute, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + Return String.Format("Minden hnap {0} napjn, {1} ra {2} perckor", DayOfMonth, AlertHoure, AlertMinute) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodWeekly.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodWeekly.vb new file mode 100644 index 0000000..c68b14e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/AlertPeriodWeekly.vb @@ -0,0 +1,78 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class AlertPeriodWeekly + Inherits BaseObject + + Private _AlertPeriod As AlertPeriod + Private _DayOfWeek As eDayOfWeek + Private _AlertTime As DateTime + Private _AlertHoure As Long + Private _AlertMinute As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property DayOfWeek As eDayOfWeek + Get + Return _DayOfWeek + End Get + Set(value As eDayOfWeek) + SetPropertyValue("DayOfWeek", _DayOfWeek, value) + End Set + End Property + Property AlertTime As DateTime + Get + Return _AlertTime + End Get + Set(value As DateTime) + SetPropertyValue("AlertTime", _AlertTime, value) + End Set + End Property + _ + Property AlertHoure As Long + Get + Return _AlertHoure + End Get + Set(value As Long) + SetPropertyValue("AlertHoure", _AlertHoure, value) + End Set + End Property + _ + Property AlertMinute As Long + Get + Return _AlertMinute + End Get + Set(value As Long) + SetPropertyValue("AlertMinute", _AlertMinute, value) + End Set + End Property + ReadOnly Property DisplayName As String + Get + Return String.Format("{0} napon, {1} ra {2} perckor", DayOfWeek, AlertHoure, AlertMinute) + End Get + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarMarks.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarMarks.vb new file mode 100644 index 0000000..672678b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarMarks.vb @@ -0,0 +1,63 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CarMarks + Inherits BaseObject + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarTypes.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarTypes.vb new file mode 100644 index 0000000..bd9746c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/CarTypes.vb @@ -0,0 +1,80 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class CarTypes + Inherits BaseObject + Private _CarMarks As CarMarks + Private _ShortName As String + Private _ObjectCreated As Date + Private _UserCreated As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property CarMarks As CarMarks + Get + Return _CarMarks + End Get + Set(value As CarMarks) + SetPropertyValue("CarMarks", _CarMarks, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/Cars.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/Cars.vb new file mode 100644 index 0000000..cf08e2c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Cars/Cars.vb @@ -0,0 +1,157 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class Cars + Inherits BaseObject + + Private _VIN As String 'Alvzszm + Private _MotorNumber As String 'Motorszm + Private _CarMarks As CarMarks 'Aut mrka + Private _CarTypes As CarTypes 'Aut tipusa + Private _LicensePlateNumber As String 'Forgalmi rendszm + Private _DateFirstOnRoad As Date 'Els forgalombahelyezs + + Private _ObjectCreated As Date + Private _UserCreated As User + + Private _UniqueObjects As UniqueObjects + Private _GLReport As GLReport + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + UniqueObjects = New UniqueObjects(Session) + UniqueObjects.Name = LicensePlateNumber + UniqueObjects.Cars = Me + UniqueObjects.Save() + End If + End Sub + + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property VIN As String + Get + Return _VIN + End Get + Set(value As String) + SetPropertyValue("VIN", _VIN, value) + End Set + End Property + _ + Property MotorNumber As String + Get + Return _MotorNumber + End Get + Set(value As String) + SetPropertyValue("MotorNumber", _MotorNumber, value) + End Set + End Property + Property CarMarks As CarMarks + Get + Return _CarMarks + End Get + Set(value As CarMarks) + SetPropertyValue("CarMarks", _CarMarks, value) + End Set + End Property + _ + Property CarTypes As CarTypes + Get + Return _CarTypes + End Get + Set(value As CarTypes) + SetPropertyValue("CarTypes", _CarTypes, value) + End Set + End Property + _ + _ + Property LicensePlateNumber As String + Get + Return _LicensePlateNumber + End Get + Set(value As String) + SetPropertyValue("LicensePlateNumber", _LicensePlateNumber, value) + End Set + End Property + Property DateFirstOnRoad As Date + Get + Return _DateFirstOnRoad + End Get + Set(value As Date) + SetPropertyValue("DateFirstOnRoad", _DateFirstOnRoad, value.Date) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + _ + ReadOnly Property GLReportRows As XPCollection(Of GLReportRows) + Get + Dim _GLReportRows_Collection As XPCollection(Of GLReportRows) + If Me.GLReport IsNot Nothing Then + _GLReportRows_Collection = New XPCollection(Of GLReportRows)(Session, CriteriaOperator.Parse("GLReport.Oid=? and UniqueObjects.Oid=?", Me.GLReport.Oid, Me.UniqueObjects.Oid)) + Return _GLReportRows_Collection + Else + Return Nothing + End If + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/Contacts.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/Contacts.vb new file mode 100644 index 0000000..5d5558a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/Contacts.vb @@ -0,0 +1,514 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils +Public Enum eFullNameOrder + eFirstNameLastName = 0 + eLastNameFirstName = 1 +End Enum + _ + _ +Public Class Contacts + Inherits Person + Private _ContactNumber As String = "" + Private _Customers As Customers + Private _User As User + Private _ContactsNG As ContactsNG + Private _CRM_Leads As CRM_Leads + Private _AccountName As String + Private _ImportedID As Long + Private _Position As String + Private _IsOutlookSync As Boolean ' Van-e Outlook szinkronizáció + Private _IsExchangeSync As Boolean 'Van-e Excahnge szinkronizáció + Private _EntryID_Outlook As String + Private _ContactItemFolderEntryID_Outlook As String + Private _EntryID_Exchange As String + + Private _BusinessTelephoneNumber As String + Private _BusinessFaxNumber As String + Private _HomeFaxNumber As String + Private _HomeTelephoneNumber As String + Private _MobileTelephoneNumber As String + + Private _IsChristmasCard As Boolean = False + Private _Title As String 'Titulus + Private _FullNameOrder As eFullNameOrder = eFullNameOrder.eLastNameFirstName + Private _Description As String + Private _EMailPrivate As String 'Privát e-mail címe + Private _EMail2 As String + Private _EMail3 As String + + Private _Checked As Boolean = False + Private _CheckedDate As DateTime + Private _CheckStatus As String + + Private _CropProtectionRegistrationNumber As String 'Növényvédelmi regisztrációs szám (kamarai szám, igazolvány adat) + Private _ChambersRegistrationNumber As String 'Kamarai nyilvántartási szám + Private _ChamberNumber As String 'Kamarai tagsági szám + Private _IsAssetsHandlingResponsible As Boolean + Private _IsInvoiceResponsible As Boolean + Private _PrivateVATNumber As String 'Adóazonosító jele + Private _MotherName As String 'Anyja neve + Private _BirthPlace As String 'Születési város + Private _TAJNumber As String 'Társadalom biztosítási szám + + Private _IdentityCardNumber As String 'Személyi igazolvány száma + Private _IdentityNumber As String 'Személyi igazolvány száma + + + ' _ + Overloads Property Email As String + Get + Return MyBase.Email + End Get + Set(value As String) + MyBase.Email = value + End Set + End Property + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ContactsNG = Session.FindObject(Of ContactsNG)(1, CriteriaOperator.Parse("Oid=Oid")) + IsOutlookSync = False + IsExchangeSync = False + IsAssetsHandlingResponsible = True + IsInvoiceResponsible = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If _ContactsNG Is Nothing Then + Else + If _ContactNumber = "" Then + If Session.IsNewObject(Me) = True Then + _ContactNumber = _ContactsNG.NumberGenerator.GetNewNumber(_ContactsNG.NumberGenerator) + End If + Else + End If + End If + If Checked = True Then + CheckedDate = GetSQLTime(Session) + End If + End Sub + + _ + Property ContactNumber As String + Get + Return _ContactNumber + End Get + Set(ByVal value As String) + SetPropertyValue("ContactNumber", _ContactNumber, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property User() As User + Get + Return _User + End Get + Set(ByVal value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + _ + _ + _ + _ + Property ContactsNG As ContactsNG + Get + If _ContactsNG Is Nothing Then + If (Not IsSaving) AndAlso (Not IsLoading) Then + _ContactsNG = Session.FindObject(Of ContactsNG)(1, CriteriaOperator.Parse("Oid=Oid")) + End If + End If + Return _ContactsNG + End Get + Set(ByVal value As ContactsNG) + SetPropertyValue("ContactsNG", _ContactsNG, value) + End Set + End Property + _ + _ + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + _ + _ + Property AccountName As String + Get + Return _AccountName + End Get + Set(value As String) + SetPropertyValue("AccountName", _AccountName, value) + End Set + End Property + + Property ImportedID As Long + Get + Return _ImportedID + End Get + Set(value As Long) + SetPropertyValue("ImportedID", _ImportedID, value) + End Set + End Property + Property Position As String + Get + Return _Position + End Get + Set(value As String) + SetPropertyValue("Position", _Position, value) + End Set + End Property + Public Property IsOutlookSync() As Boolean + Get + Return _IsOutlookSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsOutlookSync", _IsOutlookSync, value) + End Set + End Property + Public Property IsExchangeSync() As Boolean + Get + Return _IsExchangeSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsExchangeSync", _IsExchangeSync, value) + End Set + End Property + _ + Public Property EntryIDOutlook() As String + Get + Return _EntryID_Outlook + End Get + Set(ByVal value As String) + SetPropertyValue("EntryIDOutlook", _EntryID_Outlook, value) + End Set + End Property + _ + Property ContactItemFolderEntryID_Outlook As String + Get + Return _ContactItemFolderEntryID_Outlook + End Get + Set(value As String) + SetPropertyValue("ContactItemFolderEntryID_Outlook", _ContactItemFolderEntryID_Outlook, value) + End Set + End Property + _ + Public Property EntryIDExchange() As String + Get + Return _EntryID_Exchange + End Get + Set(ByVal value As String) + SetPropertyValue("EntryIDExchange", _EntryID_Exchange, value) + End Set + End Property + + _ + Property BusinessTelephoneNumber As String + Get + Return _BusinessTelephoneNumber + End Get + Set(value As String) + SetPropertyValue("BusinessTelephoneNumber", _BusinessTelephoneNumber, value) + End Set + End Property + _ + Property BusinessFaxNumber As String + Get + Return _BusinessFaxNumber + End Get + Set(value As String) + SetPropertyValue("BusinessFaxNumber", _BusinessFaxNumber, value) + End Set + End Property + _ + Property HomeFaxNumber As String + Get + Return _HomeFaxNumber + End Get + Set(value As String) + SetPropertyValue("HomeFaxNumber", _HomeFaxNumber, value) + End Set + End Property + _ + Property HomeTelephoneNumber As String + Get + Return _HomeTelephoneNumber + End Get + Set(value As String) + SetPropertyValue("HomeTelephoneNumber", _HomeTelephoneNumber, value) + End Set + End Property + _ + Property MobileTelephoneNumber As String + Get + Return _MobileTelephoneNumber + End Get + Set(value As String) + SetPropertyValue("MobileTelephoneNumber", _MobileTelephoneNumber, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property IsChristmasCard As Boolean + Get + Return _IsChristmasCard + End Get + Set(value As Boolean) + SetPropertyValue("IsChristmasCard", _IsChristmasCard, value) + End Set + End Property + Property Title As String + Get + Return _Title + End Get + Set(value As String) + SetPropertyValue("Title", _Title, value) + End Set + End Property + Property FullNameOrder As eFullNameOrder + Get + Return _FullNameOrder + End Get + Set(value As eFullNameOrder) + SetPropertyValue("FullNameOrder", _FullNameOrder, value) + End Set + End Property + _ + Property EMailPrivate As String + Get + Return _EMailPrivate + End Get + Set(value As String) + SetPropertyValue("EMailPrivate", _EMailPrivate, value) + End Set + End Property + _ + Property EMail2 As String + Get + Return _EMail2 + End Get + Set(value As String) + SetPropertyValue("EMail2", _EMail2, value) + End Set + End Property + _ + Property EMail3 As String + Get + Return _EMail3 + End Get + Set(value As String) + SetPropertyValue("EMail3", _EMail3, value) + End Set + End Property + + _ + Property Checked As Boolean + Get + Return _Checked + End Get + Set(value As Boolean) + SetPropertyValue("Checked", _Checked, value) + End Set + End Property + Property CheckStatus As String + Get + Return _CheckStatus + End Get + Set(value As String) + SetPropertyValue("CheckStatus", _CheckStatus, value) + End Set + End Property + Property CheckedDate As Date + Get + Return _CheckedDate + End Get + Set(value As Date) + SetPropertyValue("CheckedDate", _CheckedDate, value) + End Set + End Property + + Property CropProtectionRegistrationNumber As String + Get + Return _CropProtectionRegistrationNumber + End Get + Set(value As String) + SetPropertyValue("CropProtectionRegistrationNumber", _CropProtectionRegistrationNumber, value) + End Set + End Property + Property ChambersRegistrationNumber As String + Get + Return _ChambersRegistrationNumber + End Get + Set(value As String) + SetPropertyValue("ChambersRegistrationNumber", _ChambersRegistrationNumber, value) + End Set + End Property + Property ChamberNumber As String + Get + Return _ChamberNumber + End Get + Set(value As String) + SetPropertyValue("ChamberNumber", _ChamberNumber, value) + End Set + End Property + + _ + Property IsAssetsHandlingResponsible As Boolean + Get + Return _IsAssetsHandlingResponsible + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandlingResponsible", _IsAssetsHandlingResponsible, value) + End Set + End Property + Property IsInvoiceResponsible As Boolean + Get + Return _IsInvoiceResponsible + End Get + Set(value As Boolean) + SetPropertyValue("IsInvoiceResponsible", _IsInvoiceResponsible, value) + End Set + End Property + + Public Property PrivateVATNumber() As String + Get + Return _PrivateVATNumber + End Get + Set(ByVal value As String) + SetPropertyValue("PrivateVATNumber", _PrivateVATNumber, value) + End Set + End Property + Property MotherName As String + Get + Return _MotherName + End Get + Set(value As String) + SetPropertyValue("MotherName", _MotherName, value) + End Set + End Property + Property BirthPlace As String + Get + Return _BirthPlace + End Get + Set(value As String) + SetPropertyValue("BirthPlace", _BirthPlace, value) + End Set + End Property + Property TAJNumber As String + Get + Return _TAJNumber + End Get + Set(value As String) + SetPropertyValue("TAJNumber", _TAJNumber, value) + End Set + End Property + Property IdentityCardNumber As String + Get + Return _IdentityCardNumber + End Get + Set(value As String) + SetPropertyValue("IdentityCardNumber", _IdentityCardNumber, value) + End Set + End Property + Property IdentityNumber As String + Get + Return _IdentityNumber + End Get + Set(value As String) + SetPropertyValue("IdentityNumber", _IdentityNumber, value) + End Set + End Property + + '-----------ReadOnly--------------------- + Overloads ReadOnly Property DisplayName As String + Get + If Me.FullNameOrder = eFullNameOrder.eFirstNameLastName Then + Return String.Format("{0} {1} {2} {3} {4}", Me.Title, Me.FirstName, Me.LastName, Me.MobileTelephoneNumber, Me.Email) + Else + Return String.Format("{0} {1} {2} {3} {4}", Me.LastName, Me.FirstName, Me.Title, Me.MobileTelephoneNumber, Me.Email) + End If + End Get + End Property + ReadOnly Property DisplayNamePostal As String + Get + If Me.FullNameOrder = eFullNameOrder.eFirstNameLastName Then + Return String.Format("{0} {1} {2}", Me.Title, Me.FirstName, Me.LastName) + Else + Return String.Format("{0} {1} {2}", Me.LastName, Me.FirstName, Me.Title) + End If + End Get + End Property + ReadOnly Property SysncTypeImage As Image + Get + Dim _ReturnImage As Image = Nothing + If IsOutlookSync And Not IsExchangeSync Then _ReturnImage = ImageLoader.Instance.GetImageInfo("Outlook2010").Image + If IsExchangeSync And Not IsOutlookSync Then _ReturnImage = ImageLoader.Instance.GetImageInfo("mail_exchange").Image + If Not IsOutlookSync And Not IsExchangeSync Then _ReturnImage = ImageLoader.Instance.GetImageInfo("NoImage").Image + If IsExchangeSync And IsExchangeSync Then _ReturnImage = ImageLoader.Instance.GetImageInfo("selection_recycle").Image + + Return _ReturnImage + End Get + End Property + + '--------------------XPCollections----------------- + _ + ReadOnly Property CRM_Opportunities As XPCollection(Of CRM_Opportunities) + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return New XPCollection(Of CRM_Opportunities)(Session, CriteriaOperator.Parse("Contacts.Oid=?", Me.Oid)) + Else + Return Nothing + End If + End Get + End Property + _ + ReadOnly Property CRM_Leads_Activity As XPCollection(Of CRM_Leads_Activity) + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If Me.CRM_Leads IsNot Nothing Then + Return New XPCollection(Of CRM_Leads_Activity)(Session, CriteriaOperator.Parse("CRM_Leads.Oid=?", Me.CRM_Leads.Oid)) + Else + Return Nothing + End If + Else + Return Nothing + End If + End Get + End Property + + +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsNG.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsNG.vb new file mode 100644 index 0000000..5cba185 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsNG.vb @@ -0,0 +1,40 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ContactsNG + Inherits BaseObject + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb new file mode 100644 index 0000000..431af7c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.Designer.vb @@ -0,0 +1,105 @@ +Partial Class ContactsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.aCreateActivityContacts = New DevExpress.ExpressApp.Actions.SimpleAction() + Me.aContacts_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction() + Me.aCreateEmailSendQueue = New DevExpress.ExpressApp.Actions.PopupWindowShowAction() + Me.aContactEmailToClipboard = New DevExpress.ExpressApp.Actions.SimpleAction() + Me.aClearClipboard = New DevExpress.ExpressApp.Actions.SimpleAction() + ' + 'aCreateActivityContacts + ' + Me.aCreateActivityContacts.Caption = "Create Activity Contacts" + Me.aCreateActivityContacts.ConfirmationMessage = Nothing + Me.aCreateActivityContacts.Id = "aCreateActivityContacts" + Me.aCreateActivityContacts.TargetViewId = "Contacts_CRM_Leads_Activity_ListView" + Me.aCreateActivityContacts.ToolTip = Nothing + ' + 'aContacts_ChangeGroup + ' + Me.aContacts_ChangeGroup.AcceptButtonCaption = Nothing + Me.aContacts_ChangeGroup.CancelButtonCaption = Nothing + Me.aContacts_ChangeGroup.Caption = "aContacts_ChangeGroup" + Me.aContacts_ChangeGroup.Category = "" + Me.aContacts_ChangeGroup.ConfirmationMessage = Nothing + Me.aContacts_ChangeGroup.Id = "aContacts_ChangeGroup" + Me.aContacts_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aContacts_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aContacts_ChangeGroup.ToolTip = Nothing + ' + 'aCreateEmailSendQueue + ' + Me.aCreateEmailSendQueue.AcceptButtonCaption = Nothing + Me.aCreateEmailSendQueue.CancelButtonCaption = Nothing + Me.aCreateEmailSendQueue.Caption = "aCreateEmailSendQueue" + Me.aCreateEmailSendQueue.ConfirmationMessage = Nothing + Me.aCreateEmailSendQueue.Id = "aCreateEmailSendQueue" + Me.aCreateEmailSendQueue.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateEmailSendQueue.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aCreateEmailSendQueue.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateEmailSendQueue.ToolTip = Nothing + Me.aCreateEmailSendQueue.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aContactEmailToClipboard + ' + Me.aContactEmailToClipboard.Caption = "aContact Email To Clipboard" + Me.aContactEmailToClipboard.ConfirmationMessage = Nothing + Me.aContactEmailToClipboard.Id = "aContactEmailToClipboard" + Me.aContactEmailToClipboard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aContactEmailToClipboard.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aContactEmailToClipboard.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aContactEmailToClipboard.ToolTip = Nothing + Me.aContactEmailToClipboard.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aClearClipboard + ' + Me.aClearClipboard.Caption = "aClear Clipboard" + Me.aClearClipboard.ConfirmationMessage = Nothing + Me.aClearClipboard.Id = "aClearClipboard" + Me.aClearClipboard.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aClearClipboard.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aClearClipboard.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aClearClipboard.ToolTip = Nothing + Me.aClearClipboard.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'ContactsVC + ' + Me.Actions.Add(Me.aCreateActivityContacts) + Me.Actions.Add(Me.aContacts_ChangeGroup) + Me.Actions.Add(Me.aCreateEmailSendQueue) + Me.Actions.Add(Me.aContactEmailToClipboard) + Me.Actions.Add(Me.aClearClipboard) + + End Sub + Friend WithEvents aCreateActivityContacts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aContacts_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCreateEmailSendQueue As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aContactEmailToClipboard As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aClearClipboard As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx new file mode 100644 index 0000000..93299ba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 95 + + + 384, 56 + + + 203, 134 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb new file mode 100644 index 0000000..69a25dd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb @@ -0,0 +1,284 @@ +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.Persistent.BaseImpl + +Imports System.Linq +Imports System.Reflection +Imports DevExpress.ExpressApp.Utils + +Public Class ContactsVC + Inherits DevExpress.ExpressApp.ViewController + + Protected Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Protected Event DoWork() + Protected Event FinalWork() + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Contact_EmailSendQueue_PopUp_HTMLMailTemplate_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aCreateActivityContacts_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateActivityContacts.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + Dim _Contacts As Contacts = TryCast(_PropertyCollectionSource.MasterObject, Contacts) + Dim _CRM_Leads As CRM_Leads = _Contacts.CRM_Leads + Dim _CRM_Leads_Activity As CRM_Leads_Activity = _onew.CreateObject(Of CRM_Leads_Activity)() + + Dim currentUser As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False) + + If _CRM_Leads Is Nothing Then + _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)() + _CRM_Leads.Contacts = _Contacts + _CRM_Leads.FirstName = _Contacts.FirstName + _CRM_Leads.LastName = _Contacts.LastName + _CRM_Leads.HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser)) + _CRM_Leads.CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True")) + _CRM_Leads.LeadStatus = eLeadStatus.Qualified + End If + _Contacts.CRM_Leads = _CRM_Leads + _ocur.CommitChanges() + + If _CRM_Leads IsNot Nothing Then + _CRM_Leads_Activity.CRM_Leads = _onew.GetObject(_CRM_Leads) + _CRM_Leads_Activity.HRPerson = _onew.GetObject(_CRM_Leads.HRPerson) + End If + + Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Leads_Activity_DetailView", True, _CRM_Leads_Activity) + End Sub + Private Sub aContacts_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aContacts_ChangeGroup.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contacts_ChangeGroup_PopUp As Contacts_ChangeGroup_PopUp = _onew.CreateObject(Of Contacts_ChangeGroup_PopUp)() + e.View = Application.CreateDetailView(_onew, "Contacts_ChangeGroup_PopUp_DetailView", True, _Contacts_ChangeGroup_PopUp) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aContacts_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aContacts_ChangeGroup.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _Contacts_ChangeGroup_PopUp As Contacts_ChangeGroup_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), Contacts_ChangeGroup_PopUp) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _Contacts As Contacts In View.SelectedObjects + RaiseEvent DoWork() + If _Contacts_ChangeGroup_PopUp.ChangeIsOutlookSync Then + _Contacts.IsOutlookSync = _Contacts_ChangeGroup_PopUp.IsOutlookSync + End If + If _Contacts_ChangeGroup_PopUp.ChangeIsExchangeSync Then + _Contacts.IsExchangeSync = _Contacts_ChangeGroup_PopUp.IsExchangeSync + End If + If _Contacts_ChangeGroup_PopUp.ReOrderFirstNameLastName Then + Dim _FirstName As String = _Contacts.LastName + Dim _LastName As String = _Contacts.FirstName + _Contacts.FirstName = _FirstName + _Contacts.LastName = _LastName + End If + If _Contacts_ChangeGroup_PopUp.Change_FullNameOrder Then + _Contacts.FullNameOrder = _Contacts_ChangeGroup_PopUp.FullNameOrder + End If + If _Contacts_ChangeGroup_PopUp.Change_Title Then + _Contacts.Title = _Contacts_ChangeGroup_PopUp.Title + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork() + End Try + End Sub + + Private Sub aCreateEmailSendQueue_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCreateEmailSendQueue.CustomizePopupWindowParams + + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contact_EmailSendQueue_PopUp As Contact_EmailSendQueue_PopUp = _onew.CreateObject(Of Contact_EmailSendQueue_PopUp)() + e.View = Application.CreateDetailView(_onew, "Contact_EmailSendQueue_PopUp_DetailView", True, _Contact_EmailSendQueue_PopUp) + + End Sub + + Private Sub aCreateEmailSendQueue_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCreateEmailSendQueue.Execute + + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contact_EmailSendQueue_PopUp As Contact_EmailSendQueue_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Contact_EmailSendQueue_PopUp)) + Dim _ListPropertyEditor As Editors.ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("HTMLMailTemplate") + Dim _HTMLMailTemplate As HTMLMailTemplate = _ListPropertyEditor.ListView.SelectedObjects(0) + If _HTMLMailTemplate Is Nothing Then Throw New Exception("*Nincs kivlasztva a sablon!") + + Dim _EMailSendQueueHeader As New EMailSendQueueHeader(_onew.Session) + With _EMailSendQueueHeader + .ShortName = _HTMLMailTemplate.ShortName + .EmailSendQueueParameters = _onew.GetObject(Of EMailSendQueueParameters)(_Contact_EmailSendQueue_PopUp.EMailSendQueueParameters) + End With + + + Dim _ArrayList_Char As New ArrayList + If _HTMLMailTemplate.HTMLBody Is Nothing Then Throw New Exception("*A HTML trzs res!") + Dim _StringBuilder As New StringBuilder + Dim _TagBuilding As Boolean = False + For Each _char As Char In _HTMLMailTemplate.HTMLBody + Select Case _char + Case "{"c + _TagBuilding = True + _StringBuilder.Append(_char) + Case "}"c + _TagBuilding = False + _StringBuilder.Append(_char) + _ArrayList_Char.Add(_StringBuilder.ToString) + _StringBuilder.Clear() + Case Else + If _TagBuilding Then + _StringBuilder.Append(_char) + End If + End Select + Next + _StringBuilder.Clear() + + For Each _Contacts As Contacts In View.SelectedObjects + Dim _EMailSendQueueRows As New EMailSendQueueRows(_onew.Session) + With _EMailSendQueueRows + .EMailSendQueueHeader = _EMailSendQueueHeader + .EMailTo = _Contacts.Email + .EMailFrom = TryCast(_onew.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")), WebParameters).Email_SupportAdmin + _EMailSendQueueRows.HTMLBody = _HTMLMailTemplate.HTMLBody + + For Each _PropertyInfo As PropertyInfo In _Contacts.GetType.GetProperties + If _ArrayList_Char.Contains("{" + _PropertyInfo.Name + "}") Then + If _PropertyInfo.GetValue(_Contacts, Nothing) IsNot Nothing Then + .HTMLBody = .HTMLBody.Replace("{" + _PropertyInfo.Name + "}", (_PropertyInfo.GetValue(_Contacts, Nothing)).ToString) + Else + .HTMLBody = .HTMLBody.Replace("{" + _PropertyInfo.Name + "}", " ") + End If + + End If + Next + .Subject = _HTMLMailTemplate.ShortName + + If _Contact_EmailSendQueue_PopUp.FileAttachments1 IsNot Nothing Then + Dim FileData As FileData = TryCast(_Contact_EmailSendQueue_PopUp.FileAttachments1, FileData) + Dim _FileLocation1 As String = String.Empty + _FileLocation1 = SaveOtherFile(FileData) + .FileAttachments1 = LoadOtherFile(_FileLocation1, New FileData(_onew.Session)) + End If + + If _Contact_EmailSendQueue_PopUp.FileAttachments2 IsNot Nothing Then + Dim FileData As FileData = TryCast(_Contact_EmailSendQueue_PopUp.FileAttachments2, FileData) + Dim _FileLocation2 As String = String.Empty + _FileLocation2 = SaveOtherFile(FileData) + .FileAttachments2 = LoadOtherFile(_FileLocation2, New FileData(_onew.Session)) + End If + If _Contact_EmailSendQueue_PopUp.FileAttachments3 IsNot Nothing Then + Dim FileData As FileData = TryCast(_Contact_EmailSendQueue_PopUp.FileAttachments3, FileData) + Dim _FileLocation3 As String = String.Empty + _FileLocation3 = SaveOtherFile(FileData) + .FileAttachments3 = LoadOtherFile(_FileLocation3, New FileData(_onew.Session)) + End If + + End With + Next + _onew.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + + End Sub + Private Function SaveOtherFile(ByRef _FileData As FileData) As String + Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _FileData.FileName) + Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write) + _FileData.SaveToStream(_StreamFile) + _StreamFile.Close() + + Return _FileName + + End Function + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + + End Function + + 'Dim _HTMLMailTemplate_CollectionSource As New CollectionSource(_onew, GetType(HTMLMailTemplate)) + '_HTMLMailTemplate_CollectionSource.BeginUpdateCriteria() + '_HTMLMailTemplate_CollectionSource.Criteria.Clear() + '_HTMLMailTemplate_CollectionSource.Criteria.Add("HTMLMailTemplateState", CriteriaOperator.Parse("HTMLMailTemplateState=1")) + '_HTMLMailTemplate_CollectionSource.EndUpdateCriteria() + 'e.View = Application.CreateListView("HTMLMailTemplate_ListView", _HTMLMailTemplate_CollectionSource, True) + + + 'Private Function SaveOtherFile(ByRef _IntoFile As String, _fileData As FileData) As FileData + ' Dim _FileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), System.IO.Path.GetTempPath, _IntoFile) + ' Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write) + ' _fileData.SaveToStream(_StreamFile) + ' _StreamFile.Close() + + ' Return _fileData + 'End Function + + Private Sub aContactEmailToClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aContactEmailToClipboard.Execute + Dim _ClipboardText As String = "" + If Windows.Forms.Clipboard.ContainsText(System.Windows.Forms.TextDataFormat.Text) Then + _ClipboardText = Windows.Forms.Clipboard.GetText(Windows.Forms.TextDataFormat.Text) + End If + For Each _Contacts As Contacts In View.SelectedObjects + If _ClipboardText = "" Then + _ClipboardText += _Contacts.Email + Else + _ClipboardText += ";" + _Contacts.Email + End If + Next + Windows.Forms.Clipboard.SetText(_ClipboardText, Windows.Forms.TextDataFormat.UnicodeText) + End Sub + + Private Sub aClearClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aClearClipboard.Execute + Windows.Forms.Clipboard.Clear() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contact_EmailSendQueue_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contact_EmailSendQueue_PopUp.vb new file mode 100644 index 0000000..cbdf389 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contact_EmailSendQueue_PopUp.vb @@ -0,0 +1,74 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Contact_EmailSendQueue_PopUp + Inherits BaseObject + + Private _EMailSendQueueParameters As EMailSendQueueParameters + Private _FileAttachments1 As FileData + Private _FileAttachments2 As FileData + Private _FileAttachments3 As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + + Property EMailSendQueueParameters As EMailSendQueueParameters + Get + Return _EMailSendQueueParameters + End Get + Set(value As EMailSendQueueParameters) + SetPropertyValue("EMailSendQueueParameters", _EMailSendQueueParameters, value) + End Set + End Property + + Property FileAttachments1 As FileData + Get + Return _FileAttachments1 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments1", _FileAttachments1, value) + End Set + End Property + Property FileAttachments2 As FileData + Get + Return _FileAttachments2 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments2", _FileAttachments2, value) + End Set + End Property + Property FileAttachments3 As FileData + Get + Return _FileAttachments3 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments3", _FileAttachments3, value) + End Set + End Property + + ReadOnly Property HTMLMailTemplate As XPCollection(Of HTMLMailTemplate) + Get + + Dim _HTMLMailTemplate_Collection As New XPCollection(Of HTMLMailTemplate)(Session, CriteriaOperator.Parse("HTMLMailTemplateState=1")) + Return _HTMLMailTemplate_Collection + + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_ChangeGroup_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_ChangeGroup_PopUp.vb new file mode 100644 index 0000000..b6b221c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_ChangeGroup_PopUp.vb @@ -0,0 +1,108 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Contacts_ChangeGroup_PopUp + Inherits BaseObject + + Private _Change_IsOutlookSync As Boolean + Private _IsOutlookSync As Boolean + Private _Change_IsExchangeSync As Boolean + Private _IsExchangeSync As Boolean + Private _ReOrderFirstNameLastName As Boolean + Private _Change_FullNameOrder As Boolean + Private _FullNameOrder As eFullNameOrder + Private _Change_Title As Boolean + Private _Title As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + + Public Property ChangeIsOutlookSync() As Boolean + Get + Return _Change_IsOutlookSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("ChangeIsOutlookSync", _Change_IsOutlookSync, value) + End Set + End Property + Public Property IsOutlookSync() As Boolean + Get + Return _IsOutlookSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsOutlookSync", _IsOutlookSync, value) + End Set + End Property + Public Property ChangeIsExchangeSync() As Boolean + Get + Return _Change_IsExchangeSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("ChangeIsExchangeSync", _Change_IsExchangeSync, value) + End Set + End Property + Public Property IsExchangeSync() As Boolean + Get + Return _IsExchangeSync + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsExchangeSync", _IsExchangeSync, value) + End Set + End Property + Public Property ReOrderFirstNameLastName As Boolean + Get + Return _ReOrderFirstNameLastName + End Get + Set(value As Boolean) + SetPropertyValue("ReOrderFirstNameLastName", _ReOrderFirstNameLastName, value) + End Set + End Property + Public Property Change_FullNameOrder As Boolean + Get + Return _Change_FullNameOrder + End Get + Set(value As Boolean) + SetPropertyValue("Change_FullNameOrder", _Change_FullNameOrder, value) + End Set + End Property + Public Property FullNameOrder As eFullNameOrder + Get + Return _FullNameOrder + End Get + Set(value As eFullNameOrder) + SetPropertyValue("FullNameOrder", _FullNameOrder, value) + End Set + End Property + Public Property Change_Title As Boolean + Get + Return _Change_Title + End Get + Set(value As Boolean) + SetPropertyValue("Change_Title", _Change_Title, value) + End Set + End Property + Public Property Title As String + Get + Return _Title + End Get + Set(value As String) + SetPropertyValue("Title", _Title, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_OutlookFolderContact.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_OutlookFolderContact.vb new file mode 100644 index 0000000..1522fb8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_OutlookFolderContact.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class Contacts_OutlookFolderContact + Inherits BaseObject + + Private _EntryID As String + Private _FolderName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Public Property EntryID() As String + Get + Return _EntryID + End Get + Set(ByVal value As String) + SetPropertyValue("EntryID", _EntryID, value) + End Set + End Property + _ + Public Property FolderName() As String + Get + Return _FolderName + End Get + Set(ByVal value As String) + SetPropertyValue("FolderName", _FolderName, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_SysncOutlook.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_SysncOutlook.vb new file mode 100644 index 0000000..b0d0bda --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Contacts/PopUp/Contacts_SysncOutlook.vb @@ -0,0 +1,160 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports Microsoft.Office.Interop.Outlook +Imports Microsoft.Office.Interop + +Public Enum eOverWriteDataType + OverWriteOutlookData = 1 + OverWriteSisBusinessData = 2 +End Enum +Public Enum eSyscType + eNormalSysnc = 1 + eFirstSync = 2 +End Enum +' + _ + _ + _ + _ + _ + _ + _ + _ +Public Class Contacts_SysncOutlook + Inherits BaseObject + + Private _OverWriteDataType As eOverWriteDataType + Private _SyscType As eSyscType + Private _Contacts_OutlookFolderContact As Contacts_OutlookFolderContact + Private _IsFromOutlook As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + OverWriteDataType = eOverWriteDataType.OverWriteOutlookData + SyscType = eSyscType.eNormalSysnc + IsFromOutlook = False + End Sub + + Property OverWriteDataType As eOverWriteDataType + Get + Return _OverWriteDataType + End Get + Set(value As eOverWriteDataType) + SetPropertyValue("OverWriteDataType", _OverWriteDataType, value) + + End Set + End Property + _ + Property SyscType As eSyscType + Get + Return _SyscType + End Get + Set(value As eSyscType) + SetPropertyValue("SyscType", _SyscType, value) + End Set + End Property + _ + Property Contacts_OutlookFolderContact As Contacts_OutlookFolderContact + Get + Return _Contacts_OutlookFolderContact + End Get + Set(ByVal value As Contacts_OutlookFolderContact) + SetPropertyValue("OutlookContactsFolder", _Contacts_OutlookFolderContact, value) + End Set + End Property + Property IsFromOutlook As Boolean + Get + Return _IsFromOutlook + End Get + Set(value As Boolean) + SetPropertyValue("IsFromOutlook", _IsFromOutlook, value) + End Set + End Property + + '------------ReadOnly--------------------- + Private ReadOnly Property Contacts_OutlookFolderContactCollection As XPCollection(Of Contacts_OutlookFolderContact) + Get + Dim _Contacts_DeleteFolderContacts As New XPCollection(Of Contacts_OutlookFolderContact)(Session) + Session.Delete(_Contacts_DeleteFolderContacts) + + + Dim _Contacts_OutlookFolderContact As New XPCollection(Of Contacts_OutlookFolderContact)(Session) + + Dim _OutlookApp As New Outlook.Application() + Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + Dim _ContactFolder As MAPIFolder = _OutlookApp.ActiveExplorer.Session.GetDefaultFolder(OlDefaultFolders.olFolderContacts) + 'Dim _FolderSuggestedContacts As MAPIFolder = _OutlookApp.ActiveExplorer.Session.GetDefaultFolder(OlDefaultFolders.olFolderSuggestedContacts) + + If _ContactFolder IsNot Nothing Then + Dim _DefMap As New Contacts_OutlookFolderContact(Session) + _DefMap.EntryID = _ContactFolder.EntryID + _DefMap.FolderName = _ContactFolder.Name + _Contacts_OutlookFolderContact.Add(_DefMap) + + For Each _FoldersName As MAPIFolder In _ContactFolder.Folders + OutlookFolderNames(_FoldersName, _Contacts_OutlookFolderContact) + Next + End If + + + 'If _FolderSuggestedContacts IsNot Nothing Then + ' Dim _DefMapSuggested As New Contacts_OutlookFolderContact(Session) + ' _DefMapSuggested.EntryID = _FolderSuggestedContacts.EntryID + ' _DefMapSuggested.FolderName = _FolderSuggestedContacts.Name + ' _Contacts_OutlookFolderContact.Add(_DefMapSuggested) + + ' For Each _FolderSuggested As MAPIFolder In _FolderSuggestedContacts.Folders + ' OutlookFolderSuggestedNames(_FolderSuggested, _Contacts_OutlookFolderContact) + ' Next + 'End If + Return _Contacts_OutlookFolderContact + End Get + End Property + + '--------------Sub----------------------- + Private Sub OutlookFolderNames(_FoldersName As MAPIFolder, Contacts_OutlookFolderContact As DevExpress.Xpo.XPCollection(Of [Module].Contacts_OutlookFolderContact)) + If _FoldersName.Folders.Count > 0 Then + Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session) + _Contacts_OutlookFolderContact.EntryID = _FoldersName.EntryID + _Contacts_OutlookFolderContact.FolderName = _FoldersName.Name + Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact) + For Each _FoldersNameAct As MAPIFolder In _FoldersName.Folders + OutlookFolderNames(_FoldersNameAct, Contacts_OutlookFolderContact) + Next + Else + Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session) + _Contacts_OutlookFolderContact.EntryID = _FoldersName.EntryID + _Contacts_OutlookFolderContact.FolderName = _FoldersName.Name + Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact) + End If + End Sub + Private Sub OutlookFolderSuggestedNames(_FolderSuggested As MAPIFolder, Contacts_OutlookFolderContact As DevExpress.Xpo.XPCollection(Of [Module].Contacts_OutlookFolderContact)) + If _FolderSuggested.Folders.Count > 0 Then + Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session) + _Contacts_OutlookFolderContact.EntryID = _FolderSuggested.EntryID + _Contacts_OutlookFolderContact.FolderName = _FolderSuggested.Name + Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact) + For Each _FoldersSuggestedNameAct As MAPIFolder In _FolderSuggested.Folders + OutlookFolderSuggestedNames(_FoldersSuggestedNameAct, Contacts_OutlookFolderContact) + Next + Else + Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session) + _Contacts_OutlookFolderContact.EntryID = _FolderSuggested.EntryID + _Contacts_OutlookFolderContact.FolderName = _FolderSuggested.Name + Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CD.cd b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CD.cd new file mode 100644 index 0000000..5c38e42 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CD.cd @@ -0,0 +1,66 @@ + + + + + + + + rAGCBAwXAhACIeaRqDSd15chBBCGBkGgCDk2hTgWLuA= + BusinessObjects\GeneralObjects\Customers\Customers.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByMoney.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByMoney.vb new file mode 100644 index 0000000..42e2c7d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByMoney.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ClassificationByMoney + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByPersonal.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByPersonal.vb new file mode 100644 index 0000000..c2db2c7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByPersonal.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ClassificationByPersonal + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByProduct.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByProduct.vb new file mode 100644 index 0000000..ac64aeb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/ClassificationByProduct.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class ClassificationByProduct + Inherits BaseObject + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CountryExtend.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CountryExtend.vb new file mode 100644 index 0000000..1fc7ad5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CountryExtend.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CountryExtend + Inherits Country + Private _ShortName As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomerBankAccounts.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomerBankAccounts.vb new file mode 100644 index 0000000..865fe14 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomerBankAccounts.vb @@ -0,0 +1,117 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class CustomerBankAccounts 'A partnerekhez tartozó bankszámlaszámok + Inherits BaseObject + Private _Customers As Customers + Private _ShortName As String + Private _IBAN As String + Private _SWIFT As String + Private _AccountNumber As String + Private _IsDefault As Boolean + Private _GIROInfo As GIROInfo + Private _AutomaticProcessing As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + _ + Property Customers() As Customers + Get + Return _Customers + End Get + Set(ByVal value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IBAN As String + Get + Return _IBAN + End Get + Set(ByVal value As String) + SetPropertyValue("IBAN", _IBAN, value) + End Set + End Property + Property SWIFT As String + Get + Return _SWIFT + End Get + Set(ByVal value As String) + SetPropertyValue("SWIFT", _SWIFT, value) + End Set + End Property + Property AccountNumber As String + Get + Return _AccountNumber + End Get + Set(ByVal value As String) + SetPropertyValue("AccountNumber", _AccountNumber, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + + GIROInfo = Session.FindObject(Of GIROInfo)(CriteriaOperator.Parse("GIROID=?", Mid(AccountNumber, 1, 8))) + If GIROInfo IsNot Nothing Then + ShortName = GIROInfo.ShortName + End If + + End If + End Set + End Property + ReadOnly Property DisplayName As String + Get + Return _AccountNumber & " (" & _ShortName & ")" + End Get + End Property + Property IsDefault As Boolean + Get + Return _IsDefault + End Get + Set(value As Boolean) + SetPropertyValue("IsDefault", _IsDefault, value) + End Set + End Property + Property GIROInfo As GIROInfo + Get + Return _GIROInfo + End Get + Set(value As GIROInfo) + SetPropertyValue("GIROInfo", _GIROInfo, value) + End Set + End Property + Property AutomaticProcessing As Boolean + Get + Return _AutomaticProcessing + End Get + Set(value As Boolean) + SetPropertyValue("AutomaticProcessing", _AutomaticProcessing, value) + End Set + End Property +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb new file mode 100644 index 0000000..7bbda3b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Customers.vb @@ -0,0 +1,767 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Reflection +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eVATAvowalType 'ÁFA bevallási mód + eGeneral = 0 'Általános + eFinancial = 1 'Pénzügyi +End Enum + _ + _ + _ +''", TargetItems:="*", Enabled:=False)> _ +Public Class Customers + Inherits Organization + + Private _CustomerNumber As String = "" 'Ügyfél azonosítója + Private _VATNumber As String 'Adószám (belföldi) + Private _VATNumberEU As String 'EU adószám + Private _CustomersGLParameters As CustomersGLParameters 'Ügyfél főkönyvi kategária + Private _CustomersNG As CustomersNG 'Ügyfél sorszám generátor + Private _Pricing As Pricing 'Árképzés ha vevő az ügyfél + Private _PricingIn As Pricing 'Árképzés ha vásárolunk tőle + Private _CreditlineAmountHUF As Double 'Hitelkeret forintos összege + Private _CreditlineAmountDEV As Double 'Hitelkeret devizás összege + Private _CreditlineDay As Long 'Hitelkeret max késés nap. + Private _IsAssetsHandling As Boolean 'Lesz e kinnlévőség kezelése + Private _CRM_Leads As CRM_Leads + Private _ImportedID As Long + Private _LateChargesCountMode As LateChargesCountMode 'A késedelmes kamatszámítás módja + Private _Citizen As String 'Állampolgársága + Private _AssetsHandling_Note As String 'Kinnlévőség megjegyzés + + Private _PaymentOption As PaymentOption + Private _ShipmentOption As ShipmentOption + Private _QualityOption As QualityOption + + Private _FarmerCardNumber As String 'Őstermelői igazolvány száma + Private _BusinessCardNumber As String 'Vállalkozói igazolvány száma + Private _MVHRegistrationNumber As String 'MVH regisztrációs szám + Private _CompanyRegistrationNumber As String 'Cégjegyzékszám + Private _CompanyStatisticsNumber As String 'Cég statisztikai számjele + Private _FamilyFarmNumber As String 'Családi gazdaság azonosító szám + Private _MotherName As String 'Anyja neve + Private _BirthAddress As Address 'Születési helye + Private _BirthDate As Date 'Születési ideje + Private _TAJNumber As String + + Private _LyonessID As String 'Lyoness ID azonosító + Private _LyonessCardID As String 'Lyoness kártyaszám azonosító + + Private _ClassificationByProduct As ClassificationByProduct + Private _ClassificationByMoney As ClassificationByMoney + Private _ClassificationByPersonal As ClassificationByPersonal + + Private _SupplierMark As String 'Ha a partner beszállító, akkor egy rövid karaktersorozat + Private _SupplierMarkInfo As String 'Beszállítói azonosító string + + Private _Checked As Boolean + Private _CheckedDate As DateTime + Private _CheckStatus As String + + Private _Contact_Decision As Contacts 'Döntéshozó, ügyvezető + Private _Contact_Finance As Contacts 'Pénzüggyel kapcsolatos kapcsolattartó + Private _EMail_Invoice As String 'e-mail cím, ahova PDF-ben elmegy a kiállított számla + + Private _HRPerson_SalesPerson As HRPerson 'A céghez tartozó HRPerson mint üzletkötő + Private _MasterBusinessDirectory As BusinessDirectory + Private _DocumentPath As String 'Windows Explorer path + Private _VATAvowalType As eVATAvowalType 'ÁFA bevallás módja + Private _Oid_DH As String + Private _Url_DH As String + Private _CanUseMarketingInfo As Boolean 'Marketininfó + Private _CanUseMarketingInfoThirdParts As Boolean 'Marketing info 3. félnek + + Private _ObjectCreated As Date + Private _UserCreated As User + Private _ObjectChanged As Date + Private _UserChanged As User + Private _QueueUpdated As Date + + Private _PriceColumn As Integer 'Ároszlop, melyik PriceColumnBruttoHUFXX ára van + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + If SecuritySystem.CurrentUser IsNot Nothing Then + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + UserChanged = UserCreated + ObjectCreated = GetSQLTime(Session) + ObjectChanged = ObjectCreated + QueueUpdated = Date.MinValue + Else + If SecuritySystem.CurrentUser IsNot Nothing Then + UserChanged = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + ObjectChanged = GetSQLTime(Session) + End If + End If + ' Az partner duplázódás elkerülése miatt megkeressük, hogy létezik-e ilyen partner a megadott adószámmal + + 'If Me.VATNumber <> "" Then + ' Dim _Customers As Customers = Session.FindObject(Of Customers)(CriteriaOperator.Parse("VATNumber=?", Me.VATNumber)) + ' If _Customers IsNot Nothing Then + ' If _Customers.Oid <> Me.Oid Then + ' '----TESZT MIATT----------------------------------------------- + ' Throw New Exception("*A megadott adószámmal már létezik ügyfél!") + ' End If + ' End If + 'End If + 'Sorszám kiosztása + If LTrim(RTrim(Me.CustomerNumber)) = "" Then + If Me.CustomersNG IsNot Nothing Then + If Session.IsNewObject(Me) = True Then + Me.CustomerNumber = Me.CustomersNG.NumberGenerator.GetNewNumber(Me.CustomersNG.NumberGenerator) + End If + Else + '--------- TESZT MIATT!! -------------------------------------- + Throw New Exception("*Nincs beállítva a sorszámgenerátor paraméter!") + End If + End If + If IsDeleted = False Then + If Name = "" And FullName <> "" Then + Name = FullName + End If + If FullName = "" And Name <> "" Then + FullName = Name + End If + End If + If Checked = True Then + CheckedDate = GetSQLTime(Session) + End If + End Sub + + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + CustomersNG = Session.FindObject(Of CustomersNG)(CriteriaOperator.Parse("Oid=Oid")) + Citizen = "Magyar" + IsAssetsHandling = True + Checked = False + CanUseMarketingInfo = False + CanUseMarketingInfoThirdParts = False + Url_DH = Nothing + CustomersGLParameters = Session.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True")) + End Sub + + _ + _ + Property CustomerNumber As String + Get + Return _CustomerNumber + End Get + Set(ByVal value As String) + SetPropertyValue("CustomerNumber", _CustomerNumber, value) + End Set + End Property + _ + Property VATNumber As String + Get + Return _VATNumber + End Get + Set(ByVal value As String) + SetPropertyValue("VATNumber", _VATNumber, value) + End Set + End Property + _ + Property VATNumberEU As String + Get + Return _VATNumberEU + End Get + Set(ByVal value As String) + SetPropertyValue("VATNumberEU", _VATNumberEU, value) + End Set + End Property + _ + _ + _ + _ + Property CustomersGLParameters() As CustomersGLParameters + Get + Return _CustomersGLParameters + End Get + Set(ByVal value As CustomersGLParameters) + SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value) + End Set + End Property + _ + Property CustomersNG As CustomersNG + Get + If _CustomersNG Is Nothing Then + If (Not IsSaving) AndAlso (Not IsLoading) Then + _CustomersNG = Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid")) + End If + End If + Return _CustomersNG + End Get + Set(ByVal value As CustomersNG) + SetPropertyValue("CustomersNG", _CustomersNG, value) + End Set + End Property + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + Property PricingIn As Pricing + Get + Return _PricingIn + End Get + Set(ByVal value As Pricing) + SetPropertyValue("PricingIn", _PricingIn, value) + End Set + End Property + Property IsAssetsHandling As Boolean + Get + Return _IsAssetsHandling + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value) + End Set + End Property + _ + Property CRM_Leads As CRM_Leads + Get + Return _CRM_Leads + End Get + Set(value As CRM_Leads) + SetPropertyValue("CRM_Leads", _CRM_Leads, value) + End Set + End Property + _ + Property ImportedID As Long + Get + Return _ImportedID + End Get + Set(value As Long) + SetPropertyValue("ImportedID", _ImportedID, value) + End Set + End Property + Property CreditlineAmountHUF As Double + Get + Return _CreditlineAmountHUF + End Get + Set(value As Double) + SetPropertyValue("CreditlineAmountHUF", _CreditlineAmountHUF, value) + End Set + End Property + Property CreditlineAmountDEV As Double + Get + Return _CreditlineAmountDEV + End Get + Set(value As Double) + SetPropertyValue("CreditlineAmountDEV", _CreditlineAmountDEV, value) + End Set + End Property + Property CreditlineDay As Long + Get + Return _CreditlineDay + End Get + Set(value As Long) + SetPropertyValue("CreditlineDay", _CreditlineDay, value) + End Set + End Property + Property LateChargesCountMode As LateChargesCountMode + Get + Return _LateChargesCountMode + End Get + Set(value As LateChargesCountMode) + SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value) + End Set + End Property + Property Citizen As String + Get + Return _Citizen + End Get + Set(value As String) + SetPropertyValue("Citizen", _Citizen, value) + End Set + End Property + _ + Property AssetsHandling_Note As String + Get + Return _AssetsHandling_Note + End Get + Set(value As String) + SetPropertyValue("AssetsHandling_Note", _AssetsHandling_Note, value) + End Set + End Property + Public Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Public Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Public Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + + Property ClassificationByProduct As ClassificationByProduct + Get + Return _ClassificationByProduct + End Get + Set(value As ClassificationByProduct) + SetPropertyValue("ClassificationByProduct", _ClassificationByProduct, value) + End Set + End Property + Property ClassificationByMoney As ClassificationByMoney + Get + Return _ClassificationByMoney + End Get + Set(value As ClassificationByMoney) + SetPropertyValue("ClassificationByMoney", _ClassificationByMoney, value) + End Set + End Property + Property ClassificationByPersonal As ClassificationByPersonal + Get + Return _ClassificationByPersonal + End Get + Set(value As ClassificationByPersonal) + SetPropertyValue("ClassificationByPersonal", _ClassificationByPersonal, value) + End Set + End Property + '// Őstermelőhöz + Property FarmerCardNumber As String + Get + Return _FarmerCardNumber + End Get + Set(value As String) + SetPropertyValue("FarmerCardNumber", _FarmerCardNumber, value) + End Set + End Property + Property BusinessCardNumber As String + Get + Return _BusinessCardNumber + End Get + Set(value As String) + SetPropertyValue("BusinessCardNumber", _BusinessCardNumber, value) + End Set + End Property + Property MVHRegistrationNumber As String + Get + Return _MVHRegistrationNumber + End Get + Set(value As String) + SetPropertyValue("MVHRegistrationNumber", _MVHRegistrationNumber, value) + End Set + End Property + Property CompanyRegistrationNumber As String + Get + Return _CompanyRegistrationNumber + End Get + Set(value As String) + SetPropertyValue("CompanyRegistrationNumber", _CompanyRegistrationNumber, value) + End Set + End Property + Property CompanyStatisticsNumber As String + Get + Return _CompanyStatisticsNumber + End Get + Set(value As String) + SetPropertyValue("CompanyStatisticsNumber", _CompanyStatisticsNumber, value) + End Set + End Property + Property FamilyFarmNumber As String + Get + Return _FamilyFarmNumber + End Get + Set(value As String) + SetPropertyValue("FamilyFarmNumber", _FamilyFarmNumber, value) + End Set + End Property + Property MotherName As String + Get + Return _MotherName + End Get + Set(value As String) + SetPropertyValue("MotherName", _MotherName, value) + End Set + End Property + Property BirthAddress As Address + Get + Return _BirthAddress + End Get + Set(value As Address) + SetPropertyValue("BirthAddress", _BirthAddress, value) + End Set + End Property + Property BirthDate As Date + Get + Return _BirthDate + End Get + Set(value As Date) + SetPropertyValue("BirthDate", _BirthDate, value) + End Set + End Property + Property TAJNumber As String + Get + Return _TAJNumber + End Get + Set(value As String) + SetPropertyValue("TAJNumber", _TAJNumber, value) + End Set + End Property + '//--- Egyéb + Property SupplierMark As String + Get + Return _SupplierMark + End Get + Set(value As String) + SetPropertyValue("SupplierMark", _SupplierMark, value) + End Set + End Property + _ + Property SupplierMarkInfo As String + Get + Return _SupplierMarkInfo + End Get + Set(value As String) + SetPropertyValue("SupplierMarkInfo", _SupplierMarkInfo, value) + End Set + End Property + + _ + Property Checked As Boolean + Get + Return _Checked + End Get + Set(value As Boolean) + SetPropertyValue("Checked", _Checked, value) + End Set + End Property + Property CheckStatus As String + Get + Return _CheckStatus + End Get + Set(value As String) + SetPropertyValue("CheckStatus", _CheckStatus, value) + End Set + End Property + Property CheckedDate As Date + Get + Return _CheckedDate + End Get + Set(value As Date) + SetPropertyValue("CheckedDate", _CheckedDate, value) + End Set + End Property + Property HRPerson_SalesPerson As HRPerson + Get + Return _HRPerson_SalesPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson_SalesPerson", _HRPerson_SalesPerson, value) + End Set + End Property + Property MasterBusinessDirectory As BusinessDirectory + Get + Return _MasterBusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value) + End Set + End Property + _ + Property DocumentPath As String + Get + Return _DocumentPath + End Get + Set(value As String) + SetPropertyValue("DocumentPath", _DocumentPath, value) + End Set + End Property + Property LyonessID As String + Get + Return _LyonessID + End Get + Set(value As String) + SetPropertyValue("LyonessID", _LyonessID, value) + End Set + End Property + Property LyonessCardID As String + Get + Return _LyonessCardID + End Get + Set(value As String) + SetPropertyValue("LyonessCardID", _LyonessCardID, value) + End Set + End Property + Property VATAvowalType As eVATAvowalType + Get + Return _VATAvowalType + End Get + Set(value As eVATAvowalType) + SetPropertyValue("VATAvowalType", _VATAvowalType, value) + End Set + End Property + _ + Property Oid_DH As String + Get + Return _Oid_DH + End Get + Set(value As String) + SetPropertyValue("Oid_DH", _Oid_DH, value) + End Set + End Property + Property Url_DH As String + Get + Return _Url_DH + End Get + Set(value As String) + SetPropertyValue("Url_DH", _Url_DH, value) + End Set + End Property + Property CanUseMarketingInfo As Boolean + Get + Return _CanUseMarketingInfo + End Get + Set(value As Boolean) + SetPropertyValue("CanUseMarketingInfo", _CanUseMarketingInfo, value) + End Set + End Property + Property CanUseMarketingInfoThirdParts As Boolean + Get + Return _CanUseMarketingInfoThirdParts + End Get + Set(value As Boolean) + SetPropertyValue("CanUseMarketingInfoThirdParts", _CanUseMarketingInfoThirdParts, value) + End Set + End Property + _ + _ + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + _ + Property ObjectChanged As Date + Get + Return _ObjectChanged + End Get + Set(value As Date) + SetPropertyValue("ObjectChanged", _ObjectChanged, value) + End Set + End Property + _ + _ + _ + Property UserChanged As User + Get + Return _UserChanged + End Get + Set(value As User) + SetPropertyValue("UserChanged", _UserChanged, value) + End Set + End Property + _ + _ + _ + Property QueueUpdated As Date + Get + Return _QueueUpdated + End Get + Set(value As Date) + SetPropertyValue("QueueUpdated", _QueueUpdated, value) + End Set + End Property + + Property Contact_Decision As Contacts + Get + Return _Contact_Decision + End Get + Set(value As Contacts) + SetPropertyValue("Contact_Decision", _Contact_Decision, value) + End Set + End Property + Property Contact_Finance As Contacts + Get + Return _Contact_Finance + End Get + Set(value As Contacts) + SetPropertyValue("Contact_Finance", _Contact_Finance, value) + End Set + End Property + _ + Property EMail_Invoice As String + Get + Return _EMail_Invoice + End Get + Set(value As String) + SetPropertyValue("EMail_Invoice", _EMail_Invoice, value) + End Set + End Property + + 'Ároszlop + Property PriceColumn As Integer + Get + Return _PriceColumn + End Get + Set(value As Integer) + SetPropertyValue("PriceColumn", _PriceColumn, value) + End Set + End Property + '-----ReadOnly--------------- + Overloads ReadOnly Property IsDeleted As Boolean + Get + 'Dim _IsDeleted As Boolean = False + 'For Each _PropertyInfo As PropertyInfo In Me.GetType.GetProperties + ' If _PropertyInfo.PropertyType.Name = "GCRecord" Then + ' _IsDeleted = _PropertyInfo.GetValue(Me, Nothing) + ' End If + 'Next + 'Return _IsDeleted + Return MyBase.IsDeleted + End Get + End Property + _ + _ + ReadOnly Property CustomersFileAttachment As XPCollection(Of CustomersFileAttachment) + Get + Return GetCollection(Of CustomersFileAttachment)("CustomersFileAttachment") + End Get + End Property + _ + ReadOnly Property CRM_Opportunities As XPCollection(Of CRM_Opportunities) + Get + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + Return New XPCollection(Of CRM_Opportunities)(Session, CriteriaOperator.Parse("Customers.Oid=?", Me.Oid)) + Else + Return Nothing + End If + End Get + End Property + _ + _ + Public ReadOnly Property CustomerBankAccounts() As XPCollection(Of CustomerBankAccounts) + Get + Return GetCollection(Of CustomerBankAccounts)("CustomerBankAccounts") + End Get + End Property + _ + _ + Public ReadOnly Property Contacts() As XPCollection(Of Contacts) + Get + Return GetCollection(Of Contacts)("Contacts") + End Get + End Property + _ + _ + Public ReadOnly Property CustomersNGCollection As XPCollection(Of CustomersNGCollection) + Get + Return GetCollection(Of CustomersNGCollection)("CustomersNGCollection") + End Get + End Property + _ + _ + Public ReadOnly Property CustomersAddress As XPCollection(Of CustomersAddress) + Get + Return GetCollection(Of CustomersAddress)("CustomersAddress") + End Get + End Property + _ + _ + Public ReadOnly Property CustomersNGCollectionWorkSheetType As XPCollection(Of CustomersNGCollectionWorkSheetType) + Get + Return GetCollection(Of CustomersNGCollectionWorkSheetType)("CustomersNGCollectionWorkSheetType") + End Get + End Property + _ + ReadOnly Property ContractProductsCredit As XPCollection(Of ContractProductsCredit) + Get + Return New XPCollection(Of ContractProductsCredit)(Session, CriteriaOperator.Parse("Contract.Customers=?", Me)) + End Get + End Property + + ReadOnly Property CustomersCCustomers As XPCollection(Of CustomersCCustomers) + Get + Return New XPCollection(Of CustomersCCustomers)(Session, CriteriaOperator.Parse("Customers=?", Me)) + End Get + End Property + ReadOnly Property Customers_BusinessDirectory As XPCollection(Of BusinessDirectory) + Get + Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2")) + + If MasterBusinessDirectory IsNot Nothing Then + If MasterBusinessDirectory.Children.Count > 0 Then + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectory_Collection.Add(MasterBusinessDirectory) + End If + End If + + Return _BusinessDirectory_Collection + End Get + End Property + + _ + ReadOnly Property OfferOutRows As XPCollection(Of OfferOutRows) + Get + Return New XPCollection(Of OfferOutRows)(Session, CriteriaOperator.Parse("OfferOutHeader.Customers=?", Me)) + End Get + End Property +#Region "Other subs" + Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory)) + For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory + If _BusinessDirectory.Children.Count > 0 Then + _BusinessDirectoryList.Add(_BusinessDirectory) + RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory) + Else + _BusinessDirectoryList.Add(_BusinessDirectory) + End If + Next + End Sub +#End Region +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersAddress.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersAddress.vb new file mode 100644 index 0000000..9f09fcd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersAddress.vb @@ -0,0 +1,63 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eAddressType + Main = 0 + Transport = 1 + Postal = 2 + Other = 3 +End Enum + _ + _ +Public Class CustomersAddress + Inherits BaseObject + Private _Customers As Customers + Private _AddressType As eAddressType + Private _Address As Address + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property AddressType As eAddressType + Get + Return _AddressType + End Get + Set(value As eAddressType) + SetPropertyValue("AddressType", _AddressType, value) + End Set + End Property + Property Address As Address + Get + Return _Address + End Get + Set(value As Address) + SetPropertyValue("Address", _Address, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersCCustomers.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersCCustomers.vb new file mode 100644 index 0000000..dddede0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersCCustomers.vb @@ -0,0 +1,47 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CustomersCCustomers + Inherits BaseObject + Private _Customers As Customers + Private _CustomersConnect As Customers + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property CustomersConnect As Customers + Get + Return _CustomersConnect + End Get + Set(value As Customers) + SetPropertyValue("CustomersConnect", _CustomersConnect, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment.vb new file mode 100644 index 0000000..421bbb9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment.vb @@ -0,0 +1,159 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports System.IO +Imports DevExpress.ExpressApp.Utils + + + _ + _ +Public Class CustomersFileAttachment + Inherits FileAttachmentBase + Private _FileType As String + Private _Customers As Customers + Private _Status As eProductsDocumentationStatus + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ShortName As String + Private _Description As String + Private _FileCreated As Date + Private _FileModified As Date + Private _ObjectCreated As Date + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property FileType As String + Get + Return _FileType + End Get + Set(value As String) + SetPropertyValue("FileType", _FileType, value) + End Set + End Property + Public Property Status() As eProductsDocumentationStatus + Get + Return _Status + End Get + Set(ByVal value As eProductsDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Public Property RowGroup1() As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Public Property RowGroup2() As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property FileCreated As Date + Get + Return _FileCreated + End Get + Set(value As Date) + SetPropertyValue("FileCreated", _FileCreated, value) + End Set + End Property + Property FileModified As Date + Get + Return _FileModified + End Get + Set(value As Date) + SetPropertyValue("FileModified", _FileModified, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + '--------ReadOnly--------- + _ + ReadOnly Property ImageType As Image + Get + Select Case Path.GetExtension(File.FileName) + Case ".xls", ".xlsx", ".XLS", ".XLSX" + Return ImageLoader.Instance.GetImageInfo("XLS").Image + Case ".doc", ".docx", ".DOC", ".DOCX" + Return ImageLoader.Instance.GetImageInfo("DOC").Image + Case ".pdf", ".PDF" + Return ImageLoader.Instance.GetImageInfo("PDF").Image + Case ".txt", ".TXT" + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Case Else + Return ImageLoader.Instance.GetImageInfo("NoImage").Image + Return Nothing + End Select + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.Designer.vb new file mode 100644 index 0000000..c841279 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class CustomersFileAttachment_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCustomersFileAttachment_OpenDefaultFolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCustomersFileAttachment_OpenDefaultFolder + ' + Me.aCustomersFileAttachment_OpenDefaultFolder.Caption = "aCustomersFileAttachment_OpenDefaultFolder" + Me.aCustomersFileAttachment_OpenDefaultFolder.ConfirmationMessage = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.Id = "aCustomersFileAttachment_OpenDefaultFolder" + Me.aCustomersFileAttachment_OpenDefaultFolder.ImageName = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.Shortcut = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.Tag = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.TargetObjectsCriteria = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment) + Me.aCustomersFileAttachment_OpenDefaultFolder.TargetViewId = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.ToolTip = Nothing + Me.aCustomersFileAttachment_OpenDefaultFolder.TypeOfView = Nothing + + End Sub + Friend WithEvents aCustomersFileAttachment_OpenDefaultFolder As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.resx new file mode 100644 index 0000000..477d431 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.vb new file mode 100644 index 0000000..8feb46f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFileAttachment_VC.vb @@ -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 + +Public Class CustomersFileAttachment_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aCustomersFileAttachment_OpenDefaultFolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersFileAttachment_OpenDefaultFolder.Execute + Try + Dim _DefaultFolder As String = TryCast(Application.Model.Options, IModelOptionsExtender).DefaultCustomersFileFolder + Dim _Customers As Customers = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Customers) + If _Customers Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _CustomersFolderName As String = "" + If _Customers.FullName.Length < 13 Then + _CustomersFolderName = _Customers.FullName + " " + _Customers.Address1.City + " " + _Customers.CustomerNumber + Else + _CustomersFolderName = _Customers.FullName.Remove(12, _Customers.FullName.Length - 12) + _ + " " + _Customers.Address1.City + " " + _Customers.CustomerNumber + End If + + If System.IO.Directory.Exists(_DefaultFolder + _CustomersFolderName) Then + Process.Start("explorer.exe", _DefaultFolder + _CustomersFolderName) + Else + System.IO.Directory.CreateDirectory(_DefaultFolder + _CustomersFolderName) + Process.Start("explorer.exe", _DefaultFolder + _CustomersFolderName) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFrom.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFrom.vb new file mode 100644 index 0000000..85e74d1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFrom.vb @@ -0,0 +1,137 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CustomersFrom '-- Ezek azok a cégek akik használják a programot vagy project cégek, de mi kezeljük őket + Inherits Customers + Private _ShortName As String + Private _Description As String + Private _IsDefault As Boolean + + '65A nyomtatványhoz + Private _PublicLandAddress1 As String 'Székhelyhez tartozó közterület + Private _PublicLandAddress2 As String 'Telephelyhez tartozó közterület + Private _AdministratorName As String + Private _AdministratorPhoneNumber As String + + '// RabbitMQ felhasználók és jelszavak + + Private _RabbitMQServerAddress As String + Private _RabbitMQServerUser As String + Private _RabbitMQServerPassword As String + Private _RabbitMQBodyEncryptCode As String + + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsDefault = False + End Sub + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Property IsDefault() As Boolean + Get + Return _IsDefault + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsDefault", _IsDefault, value) + End Set + End Property + Property PublicLandAddress1 As String + Get + Return _PublicLandAddress1 + End Get + Set(value As String) + SetPropertyValue("PublicLandAddress1", _PublicLandAddress1, value) + End Set + End Property + Property PublicLandAddress2 As String + Get + Return _PublicLandAddress2 + End Get + Set(value As String) + SetPropertyValue("PublicLandAddress2", _PublicLandAddress2, value) + End Set + End Property + Property AdministratorName As String + Get + Return _AdministratorName + End Get + Set(value As String) + SetPropertyValue("AdministratorName", _AdministratorName, value) + End Set + End Property + Property AdministratorPhoneNumber As String + Get + Return _AdministratorPhoneNumber + End Get + Set(value As String) + SetPropertyValue("AdministratorPhoneNumber", _AdministratorPhoneNumber, value) + End Set + End Property + + '// RabbitMQ + Property RabbitMQServerAddress As String + Get + Return _RabbitMQServerAddress + End Get + Set(value As String) + SetPropertyValue("RabbitMQServerAddress", _RabbitMQServerAddress, value) + End Set + End Property + Property RabbitMQServerUser As String + Get + Return _RabbitMQServerUser + End Get + Set(value As String) + SetPropertyValue("RabbitMQServerUser", _RabbitMQServerUser, value) + End Set + End Property + _ + _ + Property RabbitMQServerPassword As String + Get + Return _RabbitMQServerPassword + End Get + Set(value As String) + SetPropertyValue("RabbitMQServerPassword", _RabbitMQServerPassword, value) + End Set + End Property + _ + Property RabbitMQBodyEncryptCode As String + Get + Return _RabbitMQBodyEncryptCode + End Get + Set(value As String) + SetPropertyValue("RabbitMQBodyEncryptCode", _RabbitMQBodyEncryptCode, value) + End Set + End Property + + ReadOnly Property DefaultCustomerBankAccounts As CustomerBankAccounts + Get + Dim _CustomerBankAccounts As CustomerBankAccounts = Nothing + Dim _DefaultCustomerBankAccounts As CustomerBankAccounts = Nothing + For Each _CustomerBankAccounts In Me.CustomerBankAccounts + If _CustomerBankAccounts.IsDefault Then + _DefaultCustomerBankAccounts = _CustomerBankAccounts + End If + Next + Return _DefaultCustomerBankAccounts + End Get + End Property +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.Designer.vb new file mode 100644 index 0000000..707e7a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CustomersFromVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.vb new file mode 100644 index 0000000..9cc3e85 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersFromVC.vb @@ -0,0 +1,69 @@ +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 Microsoft.VisualBasic + +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Xpo + +Public Class CustomersFromVC + Inherits DevExpress.ExpressApp.ViewController + Private detailViewCore As DetailView = Nothing + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + TargetViewType = ViewType.DetailView + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler View.ControlsCreated, AddressOf View_ControlsCreated + detailViewCore = CType(View, DetailView) + + End Sub + Protected Overrides Sub OnViewControlsCreated() + MyBase.OnViewControlsCreated() + + End Sub + Private Sub View_ControlsCreated(ByVal sender As Object, ByVal e As EventArgs) + On Error Resume Next + + Dim _CustomersFrom As CustomersFrom + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim item As ViewItem = detailViewCore.FindItem("CustomersFrom") + + + If item IsNot Nothing Then + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_ocur.Session) + If _CustomersFrom_Collection.Count > 1 Then + Else + For Each _CustomersFrom In _CustomersFrom_Collection + + item.CurrentObject.CustomersFrom = _CustomersFrom + Next + End If + End If + End Sub + 'Private Function FindLayoutItemByControlHash(ByVal hash As Integer) As BaseLayoutItem + ' For Each item As BaseLayoutItem In ((CType(detailViewCore.Control, LayoutControl))).Items + ' If TypeOf item Is LayoutControlItem Then + ' Dim lci As LayoutControlItem = CType(item, LayoutControlItem) + ' If lci.Control.GetHashCode() = hash Then + ' Return item + ' End If + ' End If + ' Next item + ' Return Nothing + 'End Function + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersGLParameters.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersGLParameters.vb new file mode 100644 index 0000000..0c98e74 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersGLParameters.vb @@ -0,0 +1,163 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomersGLParameters 'partner főkönyvi kategória + Inherits BaseObject + Private _ShortName As String + Private _ChartOfAccountsIn As ChartOfAccounts '--- Vevői számla + Private _ChartOfAccountsOut As ChartOfAccounts '--- Szállítói számla + Private _ChartOfAccountsNo As ChartOfAccounts '--- Elszámolási számla + Private _DefaultforBusiness As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + ' + 'Property ChartOfAccountsIn() As ChartOfAccounts + ' Get + ' Return _ChartofAccountsIn + ' End Get + ' Set(ByVal value As ChartOfAccounts) + ' SetPropertyValue("ChartOfAccountsIn", _ChartofAccountsIn, value) + ' End Set + 'End Property + ' + 'Property ChartOfAccountsOut() As ChartOfAccounts + ' Get + ' Return _ChartofAccountsOut + ' End Get + ' Set(ByVal value As ChartOfAccounts) + ' SetPropertyValue("ChartOfAccountsOut", _ChartofAccountsOut, value) + ' End Set + 'End Property + ' + 'Property ChartOfAccountsNo As ChartOfAccounts + ' Get + ' Return _ChartofAccountsNo + ' End Get + ' Set(ByVal value As ChartOfAccounts) + ' SetPropertyValue("ChartOfAccountsNo", _ChartofAccountsNo, value) + ' End Set + 'End Property + Property DefaultforBusiness As Boolean + Get + Return _DefaultforBusiness + End Get + Set(value As Boolean) + SetPropertyValue("DefaultforBusiness", _DefaultforBusiness, value) + End Set + End Property + + _ + ReadOnly Property CustomersGLParametersYear As XPCollection(Of CustomersGLParametersYear) + Get + Return GetCollection(Of CustomersGLParametersYear)("CustomersGLParametersYear") + End Get + End Property + Public Function GetChartOfAccounts(_AccountYear As Long, _CustomersGLParametersMode As eVATMode) As ChartOfAccounts + Dim _ChartOfAccounts As ChartOfAccounts = Nothing + Dim _CustomersGLParametersYear As CustomersGLParametersYear + Select Case _CustomersGLParametersMode + Case eVATMode.eIn + For Each _CustomersGLParametersYear In Me.CustomersGLParametersYear + If _CustomersGLParametersYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _CustomersGLParametersYear.ChartOfAccountsIn + Exit For + End If + Next + Case eVATMode.eOut + For Each _CustomersGLParametersYear In Me.CustomersGLParametersYear + If _CustomersGLParametersYear.AccountYear = _AccountYear Then + _ChartOfAccounts = _CustomersGLParametersYear.ChartOfAccountsOut + Exit For + End If + Next + End Select + Return _ChartOfAccounts + End Function + +End Class + + _ + _ + _ +Public Class CustomersGLParametersYear + Inherits BaseObject + + Private _CustomersGLParameters As CustomersGLParameters + Private _AccountYear As Long + Private _ChartOfAccountsOut As ChartOfAccounts + Private _ChartOfAccountsIn As ChartOfAccounts + Private _ChartOfAccountsNo As ChartOfAccounts + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + + _ + Property CustomersGLParameters As CustomersGLParameters + Get + Return _CustomersGLParameters + End Get + Set(value As CustomersGLParameters) + SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value) + End Set + End Property + Property AccountYear As Long + Get + Return _AccountYear + End Get + Set(value As Long) + SetPropertyValue("AccountYear", _AccountYear, value) + End Set + End Property + _ + Property ChartOfAccountsOut As ChartOfAccounts + Get + Return _ChartofAccountsOut + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsOut", _ChartofAccountsOut, value) + End Set + End Property + _ + Property ChartOfAccountsIn As ChartOfAccounts + Get + Return _ChartofAccountsIn + End Get + Set(value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsIn", _ChartofAccountsIn, value) + End Set + End Property + _ + Property ChartOfAccountsNo As ChartOfAccounts + Get + Return _ChartofAccountsNo + End Get + Set(ByVal value As ChartOfAccounts) + SetPropertyValue("ChartOfAccountsNo", _ChartofAccountsNo, value) + End Set + End Property + +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNG.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNG.vb new file mode 100644 index 0000000..ef9f47e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNG.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomersNG + Inherits BaseObject + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollection.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollection.vb new file mode 100644 index 0000000..b2cdd13 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollection.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomersNGCollection 'Partnerhez tartoz sorszm generlsi kollekci + Inherits BaseObject + Private _Customers As Customers 'Partner + Private _ContractTemplate As ContractTemplate + Private _NumberGenerator As NumberGenerator + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property ContractTemplate As ContractTemplate + Get + Return _ContractTemplate + End Get + Set(value As ContractTemplate) + SetPropertyValue("ContractTemplate", _ContractTemplate, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollectionWorkSheetType.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollectionWorkSheetType.vb new file mode 100644 index 0000000..45e1367 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersNGCollectionWorkSheetType.vb @@ -0,0 +1,55 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomersNGCollectionWorkSheetType 'Partnerhez -alvllalkoz- taroz sorszm s munkalap + Inherits BaseObject + + Private _Customers As Customers + Private _NumberGenerator As NumberGenerator + Private _WorkSheetType As WorkSheetType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property WorkSheetType As WorkSheetType + Get + Return _WorkSheetType + End Get + Set(value As WorkSheetType) + SetPropertyValue("WorkSheetType", _WorkSheetType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrder.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrder.vb new file mode 100644 index 0000000..37bcc9b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrder.vb @@ -0,0 +1,25 @@ +Imports DevExpress.Xpo +Imports DevExpress.Persistent.Base + + _ + _ +Public Class CustomersOrder ' Ez azokat a partnereket tartalmazza, akik rendelkeznek elég infóval, hogy rendeljünk tőlük + Inherits Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + _ + Public ReadOnly Property CustomersOrderDocuments() As XPCollection(Of CustomersOrderDocuments) + Get + Return GetCollection(Of CustomersOrderDocuments)("CustomersOrderDocuments") + End Get + End Property + +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrderDocuments.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrderDocuments.vb new file mode 100644 index 0000000..9f5a8dc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersOrderDocuments.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class CustomersOrderDocuments 'Akiktől rendelhetünk, annak a devizához tartozó rendelési dokumentum kollekció + Inherits BaseObject + Private _OrderOutMainType As eOrderOutMainType 'Rendelés tipusa + Private _CustomersOrder As CustomersOrder + Private _ReportData As ReportData + Private _CurrencyName As CurrencyName + Private _NumberGenerator As NumberGenerator + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property OrderOutMainType As eOrderOutMainType + Get + Return _OrderOutMainType + End Get + Set(value As eOrderOutMainType) + SetPropertyValue("OrderOutMainType", _OrderOutMainType, value) + End Set + End Property + _ + Property CustomersOrder() As CustomersOrder + Get + Return _CustomersOrder + End Get + Set(ByVal value As CustomersOrder) + SetPropertyValue("CustomersOrder", _CustomersOrder, value) + End Set + End Property + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(ByVal value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(ByVal value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property +End Class + + + + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQualification.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQualification.vb new file mode 100644 index 0000000..fb46e75 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQualification.vb @@ -0,0 +1,91 @@ + +Imports DevExpress.Xpo + +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl + + _ +Public Class CustomersQualification + Inherits BaseObject + + Dim _Customers As Customers + Dim _Operations As Operations + Dim _Price As Long + Dim _Speed As Long + Dim _Quality As Long + Dim _Other1 As Long + Dim _Other2 As Long + Dim _Other3 As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Operations As Operations + Get + Return _Operations + End Get + Set(value As Operations) + SetPropertyValue("Operations", _Operations, value) + End Set + End Property + Property Price As Long + Get + Return _Price + End Get + Set(value As Long) + SetPropertyValue("Price", _Price, value) + End Set + End Property + Property Speed As Long + Get + Return _Speed + End Get + Set(value As Long) + SetPropertyValue("Speed", _Speed, value) + End Set + End Property + Property Quality As Long + Get + Return _Quality + End Get + Set(value As Long) + SetPropertyValue("Quality", _Quality, value) + End Set + End Property + Property Other1 As Long + Get + Return _Other1 + End Get + Set(value As Long) + SetPropertyValue("Other1", _Other1, value) + End Set + End Property + Property Other2 As Long + Get + Return _Other2 + End Get + Set(value As Long) + SetPropertyValue("Other2", _Other2, value) + End Set + End Property + Property Other3 As Long + Get + Return _Other3 + End Get + Set(value As Long) + SetPropertyValue("Other3", _Other3, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQuota.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQuota.vb new file mode 100644 index 0000000..29788dc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersQuota.vb @@ -0,0 +1,112 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CustomersQuota 'Partnertl mennyit kell megrendelnem + Inherits BaseObject + Private _Customers As Customers + Private _PartnerType As ePartnerType + Private _DateFrom As Date 'Dtumtl + Private _DateTo As Date 'Dtumig + Private _Products As Products + Private _ProductsGroups As ProductsGroups + Private _CurrencyName As CurrencyName 'Deviza + Private _AmountPlan As Double 'Netto forgalom az adott idszakra + Private _AmountFact As Double 'Ezt kell szmolni + Private _Rabbat As Double '+ kedvezmny % + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value) + End Set + End Property + Property Products As Products + Get + Return _Products + End Get + Set(value As Products) + SetPropertyValue("Products", _Products, value) + End Set + End Property + Property ProductsGroups As ProductsGroups + Get + Return _ProductsGroups + End Get + Set(value As ProductsGroups) + SetPropertyValue("ProductsGroups", _ProductsGroups, value) + End Set + End Property + Property CurrencyName As CurrencyName + Get + Return _CurrencyName + End Get + Set(value As CurrencyName) + SetPropertyValue("CurrencyName", _CurrencyName, value) + End Set + End Property + Property AmountPlan As Double + Get + Return _AmountPlan + End Get + Set(value As Double) + SetPropertyValue("AmountPlan", _AmountPlan, value) + End Set + End Property + Property AmountFact As Double + Get + Return _AmountFact + End Get + Set(value As Double) + SetPropertyValue("AmountFact", _AmountFact, value) + End Set + End Property + Property Rabbat As Double + Get + Return _Rabbat + End Get + Set(value As Double) + SetPropertyValue("Rabbat", _Rabbat, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersThemesHRPerson.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersThemesHRPerson.vb new file mode 100644 index 0000000..a35ef30 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersThemesHRPerson.vb @@ -0,0 +1,58 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CustomersThemesHRPerson 'Addott partnernl melyik tmban ki a HRperson + Inherits BaseObject + + Private _Customers As Customers + Private _Themes As Themes + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property Themes As Themes + Get + Return _Themes + End Get + Set(value As Themes) + SetPropertyValue("Themes", _Themes, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb new file mode 100644 index 0000000..636a15e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.Designer.vb @@ -0,0 +1,245 @@ +Partial Class CustomersVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCustomers_Open = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aGetCustomersQuota = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateOpportunityFromCustomers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomersFileAttachment_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRecreateCustomersOrderDocuments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aMergeCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCustomersFileAttachmentRemove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aPCICheck_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomersSetToCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCustomersSetSupplierMarkInfo = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCustomersDeleteSupplierMarkInfo = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomersToContacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomersToCustomersOrder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomers_ChangeCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCustomers_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewPCIDetail_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCustomers_OpenDHUrl = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCustomers_Open + ' + Me.aCustomers_Open.Caption = "aCustomers_Open" + Me.aCustomers_Open.ConfirmationMessage = Nothing + Me.aCustomers_Open.Id = "aCustomers_Open" + Me.aCustomers_Open.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCustomers_Open.TargetViewId = "Customers_ListView_CRM_Outlook" + Me.aCustomers_Open.ToolTip = Nothing + ' + 'aGetCustomersQuota + ' + Me.aGetCustomersQuota.Caption = "aGet Customers Quota" + Me.aGetCustomersQuota.ConfirmationMessage = Nothing + Me.aGetCustomersQuota.Id = "aGetCustomersQuota" + Me.aGetCustomersQuota.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aGetCustomersQuota.TargetObjectType = GetType(SISBusiness.[Module].CustomersQuota) + Me.aGetCustomersQuota.ToolTip = Nothing + ' + 'aCreateOpportunityFromCustomers + ' + Me.aCreateOpportunityFromCustomers.Caption = "Create opportunity" + Me.aCreateOpportunityFromCustomers.ConfirmationMessage = "Do you want to execute command ?" + Me.aCreateOpportunityFromCustomers.Id = "aCreateOpportunityFromCustomers" + Me.aCreateOpportunityFromCustomers.ImageName = "BO_Opportunity" + Me.aCreateOpportunityFromCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateOpportunityFromCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCreateOpportunityFromCustomers.TargetViewId = "" + Me.aCreateOpportunityFromCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateOpportunityFromCustomers.ToolTip = Nothing + Me.aCreateOpportunityFromCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCustomersFileAttachment_ChangeGroup + ' + Me.aCustomersFileAttachment_ChangeGroup.AcceptButtonCaption = Nothing + Me.aCustomersFileAttachment_ChangeGroup.CancelButtonCaption = Nothing + Me.aCustomersFileAttachment_ChangeGroup.Caption = "aCustomersFileAttachment_ChangeGroup" + Me.aCustomersFileAttachment_ChangeGroup.ConfirmationMessage = Nothing + Me.aCustomersFileAttachment_ChangeGroup.Id = "aCustomersFileAttachment_ChangeGroup" + Me.aCustomersFileAttachment_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomersFileAttachment_ChangeGroup.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment) + Me.aCustomersFileAttachment_ChangeGroup.ToolTip = Nothing + ' + 'aRecreateCustomersOrderDocuments + ' + Me.aRecreateCustomersOrderDocuments.Caption = "aRecreateCustomersOrderDocuments" + Me.aRecreateCustomersOrderDocuments.ConfirmationMessage = "Do you want to execute command ?" + Me.aRecreateCustomersOrderDocuments.Id = "aRecreateCustomersOrderDocuments" + Me.aRecreateCustomersOrderDocuments.ImageName = "BO_Opportunity" + Me.aRecreateCustomersOrderDocuments.TargetObjectType = GetType(SISBusiness.[Module].CustomersOrder) + Me.aRecreateCustomersOrderDocuments.TargetViewId = "" + Me.aRecreateCustomersOrderDocuments.ToolTip = Nothing + ' + 'aMergeCustomers + ' + Me.aMergeCustomers.AcceptButtonCaption = Nothing + Me.aMergeCustomers.CancelButtonCaption = Nothing + Me.aMergeCustomers.Caption = "aMerge Customers" + Me.aMergeCustomers.Category = "RecordEdit" + Me.aMergeCustomers.ConfirmationMessage = Nothing + Me.aMergeCustomers.Id = "aMergeCustomers" + Me.aMergeCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMergeCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aMergeCustomers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMergeCustomers.ToolTip = Nothing + Me.aMergeCustomers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCustomersFileAttachmentRemove + ' + Me.aCustomersFileAttachmentRemove.Caption = "aCustomers File Attachment Remove" + Me.aCustomersFileAttachmentRemove.Category = "Edit" + Me.aCustomersFileAttachmentRemove.ConfirmationMessage = Nothing + Me.aCustomersFileAttachmentRemove.Id = "aCustomersFileAttachmentRemove" + Me.aCustomersFileAttachmentRemove.ImageName = "Action_Delete" + Me.aCustomersFileAttachmentRemove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomersFileAttachmentRemove.TargetObjectType = GetType(SISBusiness.[Module].CustomersFileAttachment) + Me.aCustomersFileAttachmentRemove.ToolTip = Nothing + ' + 'aPCICheck_Customers + ' + Me.aPCICheck_Customers.Caption = "aPCICheck_Customers" + Me.aPCICheck_Customers.Category = "RecordEdit" + Me.aPCICheck_Customers.ConfirmationMessage = Nothing + Me.aPCICheck_Customers.Id = "aPCICheck_Customers" + Me.aPCICheck_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aPCICheck_Customers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aPCICheck_Customers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aPCICheck_Customers.ToolTip = Nothing + Me.aPCICheck_Customers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCustomersSetToCustomers + ' + Me.aCustomersSetToCustomers.AcceptButtonCaption = Nothing + Me.aCustomersSetToCustomers.CancelButtonCaption = Nothing + Me.aCustomersSetToCustomers.Caption = "aCustomers Set To Customers" + Me.aCustomersSetToCustomers.ConfirmationMessage = Nothing + Me.aCustomersSetToCustomers.Id = "aCustomersSetToCustomers" + Me.aCustomersSetToCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomersSetToCustomers.TargetViewId = "Customers_ListView" + Me.aCustomersSetToCustomers.ToolTip = Nothing + ' + 'aCustomersSetSupplierMarkInfo + ' + Me.aCustomersSetSupplierMarkInfo.AcceptButtonCaption = Nothing + Me.aCustomersSetSupplierMarkInfo.CancelButtonCaption = Nothing + Me.aCustomersSetSupplierMarkInfo.Caption = "aCustomersSetSupplierMarkInfo" + Me.aCustomersSetSupplierMarkInfo.ConfirmationMessage = Nothing + Me.aCustomersSetSupplierMarkInfo.Id = "aCustomersSetSupplierMarkInfo" + Me.aCustomersSetSupplierMarkInfo.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomersSetSupplierMarkInfo.TargetViewId = "Customers_ListView" + Me.aCustomersSetSupplierMarkInfo.ToolTip = Nothing + ' + 'aCustomersDeleteSupplierMarkInfo + ' + Me.aCustomersDeleteSupplierMarkInfo.Caption = "aCustomers Delete Supplier Mark Info" + Me.aCustomersDeleteSupplierMarkInfo.ConfirmationMessage = Nothing + Me.aCustomersDeleteSupplierMarkInfo.Id = "aCustomersDeleteSupplierMarkInfo" + Me.aCustomersDeleteSupplierMarkInfo.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomersDeleteSupplierMarkInfo.TargetViewId = "Customers_ListView" + Me.aCustomersDeleteSupplierMarkInfo.ToolTip = Nothing + ' + 'aCustomersToContacts + ' + Me.aCustomersToContacts.Caption = "aCustomers To Contacts" + Me.aCustomersToContacts.ConfirmationMessage = Nothing + Me.aCustomersToContacts.Id = "aCustomersToContacts" + Me.aCustomersToContacts.TargetObjectType = GetType(SISBusiness.[Module].Contacts) + Me.aCustomersToContacts.TargetViewId = "Customers_Contacts_ListView" + Me.aCustomersToContacts.ToolTip = Nothing + ' + 'aCustomersToCustomersOrder + ' + Me.aCustomersToCustomersOrder.Caption = "aCustomers To Customers Order" + Me.aCustomersToCustomersOrder.ConfirmationMessage = "Do you want to execute ?" + Me.aCustomersToCustomersOrder.Id = "aCustomersToCustomersOrder" + Me.aCustomersToCustomersOrder.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomersToCustomersOrder.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomersToCustomersOrder.ToolTip = Nothing + ' + 'aCustomers_ChangeCustomers + ' + Me.aCustomers_ChangeCustomers.AcceptButtonCaption = Nothing + Me.aCustomers_ChangeCustomers.CancelButtonCaption = Nothing + Me.aCustomers_ChangeCustomers.Caption = "aCustomers_ChangeCustomers" + Me.aCustomers_ChangeCustomers.ConfirmationMessage = Nothing + Me.aCustomers_ChangeCustomers.Id = "aCustomers_ChangeCustomers" + Me.aCustomers_ChangeCustomers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCustomers_ChangeCustomers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomers_ChangeCustomers.TargetViewId = "Customers_ListView" + Me.aCustomers_ChangeCustomers.ToolTip = Nothing + ' + 'aCustomers_CreateBusinessDirectory + ' + Me.aCustomers_CreateBusinessDirectory.Caption = "aCustomers_CreateBusinessDirectory" + Me.aCustomers_CreateBusinessDirectory.Category = "ObjectsCreation" + Me.aCustomers_CreateBusinessDirectory.ConfirmationMessage = Nothing + Me.aCustomers_CreateBusinessDirectory.Id = "aCustomers_CreateBusinessDirectory" + Me.aCustomers_CreateBusinessDirectory.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomers_CreateBusinessDirectory.TargetViewId = "" + Me.aCustomers_CreateBusinessDirectory.ToolTip = Nothing + ' + 'aViewPCIDetail_Customers + ' + Me.aViewPCIDetail_Customers.Caption = "aViewPCIDetail_Customers" + Me.aViewPCIDetail_Customers.ConfirmationMessage = Nothing + Me.aViewPCIDetail_Customers.Id = "aViewPCIDetail_Customers" + Me.aViewPCIDetail_Customers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewPCIDetail_Customers.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aViewPCIDetail_Customers.ToolTip = Nothing + ' + 'aCustomers_OpenDHUrl + ' + Me.aCustomers_OpenDHUrl.Caption = "aCustomers_OpenDHUrl" + Me.aCustomers_OpenDHUrl.ConfirmationMessage = Nothing + Me.aCustomers_OpenDHUrl.Id = "aCustomers_OpenDHUrl" + Me.aCustomers_OpenDHUrl.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCustomers_OpenDHUrl.TargetObjectType = GetType(SISBusiness.[Module].Customers) + Me.aCustomers_OpenDHUrl.ToolTip = Nothing + + End Sub + Friend WithEvents aCreateOpportunityFromCustomers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRecreateCustomersOrderDocuments As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomersFileAttachment_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMergeCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aGetCustomersQuota As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomersFileAttachmentRemove As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomers_Open As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aPCICheck_Customers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomersSetToCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCustomersSetSupplierMarkInfo As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCustomersDeleteSupplierMarkInfo As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomersToContacts As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomersToCustomersOrder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomers_ChangeCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aCustomers_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aViewPCIDetail_Customers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCustomers_OpenDHUrl As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.resx new file mode 100644 index 0000000..6ccedb6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.resx @@ -0,0 +1,174 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 543, 173 + + + 244, 212 + + + 689, 251 + + + 410, 251 + + + 413, 212 + + + 259, 251 + + + 17, 251 + + + 670, 212 + + + 17, 56 + + + 17, 212 + + + 694, 173 + + + 366, 173 + + + 17, 173 + + + 17, 134 + + + 17, 95 + + + 222, 56 + + + 562, 58 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb new file mode 100644 index 0000000..3a0c98e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/CustomersVC.vb @@ -0,0 +1,773 @@ +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.Persistent.BaseImpl +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Xpo +Imports DevExpress.Xpo.DB +Imports DevExpress.ExpressApp.Utils +Imports System.Reflection +Imports System.IO + +Public Class CustomersVC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + End Sub +#Region "Overrides" + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of CustomersVC).aCustomersSetToCustomers.Active.SetItemValue("", False) + + If View.Id = "CustomersNG_ListView" Or View.Id = "CustomersNG_LookupListView" Then + Dim _CustomersNG As CustomersNG + + _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid")) + + If _CustomersNG Is Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + End If + If View.Id = "Customers_CRM_Opportunities_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + 'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CustomersNGCollection_DetailView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + End If + If View.Id = "Customers_CustomersBankAccounts_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkDialogController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + End If + If View.Id = "Customers_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Customers_DetailView_DeleteAction_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf Customers_DetailView_Save_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf Customers_DetailView_Save_Executing + AddHandler Frame.GetController(Of ModificationsController).SaveAndNewAction.Executing, AddressOf Customers_DetailView_Save_Executing + End If + If View.Id = "Customers_LookupListView" Then + 'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CustomersFileAttachment_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Customers_CustomersFileAttachment_ListView" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController).Active.SetItemValue("", False) + End If + If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + + If View.Id = "Customers_ListView_Deleted" Then + Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", False) + Frame.GetController(Of CustomersVC).aCustomersToCustomersOrder.Active.SetItemValue("", False) + Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", False) + Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", False) + Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", False) + + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CustomersNG_ListView" Or View.Id = "CustomersNG_LookupListView" Then + Dim _CustomersNG As CustomersNG + + _CustomersNG = TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.FindObject(Of CustomersNG)(1, CriteriaOperator.Parse("Oid=Oid")) + + If _CustomersNG Is Nothing Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + Else + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + End If + If View.Id = "Customers_CRM_Opportunities_ListView" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + 'Frame.GetController(Of LinkDialogController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CustomersNGCollection_Deatilview" Then + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + End If + If View.Id = "Customers_CustomersBankAccounts_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + End If + If View.Id = "CustomersFrom_CustomersBankAccounts_ListView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkDialogController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + End If + If View.Id = "Customers_DetailView" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Customers_LookupListView" Then + 'Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CustomersFileAttachment_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Customers_CustomersFileAttachment_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + If View.Id = "Customers_Customers_BusinessDirectory_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "Customers_ListView_Deleted" Then + Frame.GetController(Of CustomersVC).aCreateOpportunityFromCustomers.Active.SetItemValue("", True) + Frame.GetController(Of CustomersVC).aCustomersToCustomersOrder.Active.SetItemValue("", True) + Frame.GetController(Of CustomersVC).aPCICheck_Customers.Active.SetItemValue("", True) + Frame.GetController(Of CustomersVC).aCustomers_CreateBusinessDirectory.Active.SetItemValue("", True) + + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CustomersVC).aMergeCustomers.Active.SetItemValue("", True) + End If + End Sub +#End Region + Private Sub aCreateOpportunityFromCustomers_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateOpportunityFromCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers) + Dim _CRM_Leads As CRM_Leads + Dim _CRM_Opportunities As CRM_Opportunities + Dim _User As User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _HRPerson As HRPerson = _ocur.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _User)) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CRM_FirstMeet As CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("DefaultforBusiness=True")) + Dim _CustomersGLParameters As CustomersGLParameters = _ocur.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("DefaultforBusiness=True")) + + If _Customers.CustomersGLParameters Is Nothing Then + _Customers.CustomersGLParameters = _CustomersGLParameters + End If + + If _Customers.CRM_Leads Is Nothing Then + _CRM_Leads = _ocur.CreateObject(Of CRM_Leads)() + _CRM_Leads.LeadStatus = eLeadStatus.Qualified + _CRM_Leads.Customers = _ocur.GetObject(_Customers) + _CRM_Leads.CompanyName = _Customers.FullName + _CRM_Leads.Topic = _Customers.FullName + _CRM_Leads.EMail = "-" + _CRM_Leads.MobilePhone = "-" + _CRM_Leads.LastName = "-" + _CRM_Leads.FirstName = "-" + _CRM_Leads.CRM_FirstMeet = _CRM_FirstMeet + + _Customers.CRM_Leads = _CRM_Leads + End If + + _CRM_Opportunities = _ocur.CreateObject(Of CRM_Opportunities)() + _CRM_Opportunities.Customers = _Customers + _CRM_Opportunities.CRM_Leads = _Customers.CRM_Leads + _CRM_Opportunities.HRPerson = _HRPerson + _CRM_Opportunities.CRM_Opportunities_Probability = _ocur.FindObject(Of CRM_Opportunities_Probability)(CriteriaOperator.Parse("Probability<=30 and Probability>0")) + + _ocur.CommitChanges() + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "CRM_Opportunities_DetailView", True, _onew.GetObject(_CRM_Opportunities)) + + + End Sub + Private Sub Customers_DetailView_Save_Executing(sender As Object, e As CancelEventArgs) + '// Ha elmentünk egy partnert, akkor a Name és a FullName legyen u.a. + End Sub + Private Sub Customers_DetailView_DeleteAction_Executing(sender As Object, e As CancelEventArgs) + '//Csak olyan partnert lehessen törölni, amihez nincs semmi még ! + + End Sub + Private Sub aRecreateCustomersOrderDocuments_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecreateCustomersOrderDocuments.Execute + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + + Try + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _CustomersOrderDocuments_BASE = _ocur.FindObject(Of CustomersOrderDocuments)(CriteriaOperator.Parse("1=1")) + + If _CustomersOrderDocuments_BASE Is Nothing Then Throw New Exception("*A csoportos beállítás előtt legalább egy rendelési dokumentumot létre kell hozni!") + + Dim _NumberGenerator_BASE As NumberGenerator = _CustomersOrderDocuments_BASE.NumberGenerator + + Dim _CurrencyName_Collection As xpcollection = _ocur.CreateCollection(GetType(CurrencyName), CriteriaOperator.Parse("1=1")) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _CustomersOrder As CustomersOrder In View.SelectedObjects + RaiseEvent DoWork() + If _CustomersOrder.CustomersOrderDocuments.Count <> _CurrencyName_Collection.Count Then + For Each _CurrencyName As CurrencyName In _CurrencyName_Collection + + Dim _CustomersOrderDocuments As CustomersOrderDocuments = _ocur.FindObject(Of CustomersOrderDocuments)(CriteriaOperator.Parse("CurrencyName.ShortName=? AND CustomersOrder=?", _ + _CurrencyName.ShortName, _CustomersOrder)) + If _CustomersOrderDocuments Is Nothing Then + Dim _NumberGenerator_NEW As NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + + _NumberGenerator_NEW.NumberGeneratorGroups = _NumberGenerator_BASE.NumberGeneratorGroups + _NumberGenerator_NEW.PrefixString = _NumberGenerator_BASE.PrefixString + _NumberGenerator_NEW.PrefixTag = "-" + _NumberGenerator_NEW.SuffixString = _CurrencyName.ShortName + _NumberGenerator_NEW.SuffixTag = "-" + _NumberGenerator_NEW.SerialNumberPlace = _NumberGenerator_BASE.SerialNumberPlace + _NumberGenerator_NEW.SerialNumberDigit = _NumberGenerator_BASE.SerialNumberDigit + _NumberGenerator_NEW.YearFormat = eYearFormat.YearTwoDigit + _NumberGenerator_NEW.NewNumberPerYear = _NumberGenerator_BASE.NewNumberPerYear + _NumberGenerator_NEW.ShortName = "Szállítói rendelések sorszámai: " & _CustomersOrder.DisplayName & ", " & _CurrencyName.ShortName + _NumberGenerator_NEW.MonthAfterYear = _NumberGenerator_BASE.MonthAfterYear + + Dim _CustomersOrderDocuments_NEW As CustomersOrderDocuments = _ocur.CreateObject(Of CustomersOrderDocuments)() + + _CustomersOrderDocuments_NEW.CurrencyName = _CurrencyName + _CustomersOrderDocuments_NEW.CustomersOrder = _CustomersOrder + _CustomersOrderDocuments_NEW.NumberGenerator = _NumberGenerator_NEW + _CustomersOrderDocuments_NEW.OrderOutMainType = eOrderOutMainType.eFromProducts + + _CustomersOrder.CustomersOrderDocuments.Add(_CustomersOrderDocuments_NEW) + + + Dim _OrderOutHeader_Collection As xpcollection = _ocur.CreateCollection(GetType(OrderOutHeader), CriteriaOperator.Parse("CustomersOrder=? AND CurrencyName.ShortName=?", _ + _CustomersOrder, _CurrencyName.ShortName)) + If _OrderOutHeader_Collection.Count Then + For Each _OrderOutHeader As OrderOutHeader In _OrderOutHeader_Collection + _OrderOutHeader.CustomersOrderDocuments = _CustomersOrderDocuments_NEW + Next + End If + End If + Next + _ocur.CommitChanges() + End If + Next + RaiseEvent FinalWork + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + Private Sub aCustomersFileAttachment_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCustomersFileAttachment_ChangeGroup.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)() + + e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp) + e.View.Tag = e.Action.Id + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + Private Sub aCustomersFileAttachment_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCustomersFileAttachment_ChangeGroup.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp) + For Each _CustomersFileAttachment As CustomersFileAttachment In View.SelectedObjects + If _ChangeFileAttachment_PopUp.ChangeStatus = True Then + _CustomersFileAttachment.Status = _ChangeFileAttachment_PopUp.Status + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then + _CustomersFileAttachment.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1 + End If + If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then + _CustomersFileAttachment.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2 + End If + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + + Private Sub aMergeCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aMergeCustomers.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomersMergePopup As CustomersMergePopup = _onew.CreateObject(Of CustomersMergePopup)() + Dim _Customers As Customers + _CustomersMergePopup.CustomersMain = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers)) + _CustomersMergePopup.Customers = New XPCollection(Of Customers)(_onew.Session, CriteriaOperator.Parse("1=2")) + For Each _Customers In View.SelectedObjects + If _Customers Is View.SelectedObjects(0) Then + Else + _CustomersMergePopup.Customers.Add(_onew.GetObject(_Customers)) + End If + Next + e.View = Application.CreateDetailView(_onew, "CustomersMergePopup_DetailView", True, _CustomersMergePopup) + + End Sub + + Private Sub aMergeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aMergeCustomers.Execute + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CustomersMergePopup As CustomersMergePopup = e.PopupWindow.View.SelectedObjects(0) + Dim _Object As Object + + For Each _Customers As Customers In _CustomersMergePopup.Customers + For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of Customers)(_Customers.Oid)) + Try + 'Debug.Print(_Object) + For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties + If _PropertyInfo.PropertyType.Name = "Customers" Then + '_Object.setvalue(_PropertyInfo.Name) = _onew.GetObjectByKey(Of Customers)(_CustomersMergePopup.CustomersMain.Oid) + _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of Customers)(_CustomersMergePopup.CustomersMain.Oid), Nothing) + End If + Next + + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + Next + Next + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + Finally + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + + End Sub + + Private Sub aGetCustomersQuota_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCustomersQuota.Execute + '// Forgalmak számolása a Quoták alapján + End Sub + + Private Sub aCustomersFileAttachmentRemove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersFileAttachmentRemove.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource) + + Dim _Customers As Customers = TryCast(_PropertyCollectionSource.MasterObject, Customers) + Dim _CustomersOrderPriority As CustomersOrderPriority = TryCast(_PropertyCollectionSource.MasterObject, CustomersOrderPriority) + + For Each _CustomersFileAttachment As CustomersFileAttachment In e.SelectedObjects + If _Customers IsNot Nothing Then + _Customers.CustomersFileAttachment.Remove(_CustomersFileAttachment) + End If + If _CustomersOrderPriority IsNot Nothing Then + _CustomersOrderPriority.CustomersOrder.CustomersFileAttachment.Remove(_CustomersFileAttachment) + End If + Next + _ocur.CommitChanges() + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCustomers_Open_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_Open.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers As Customers = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers)) + If _Customers Is Nothing Then Throw New Exception("*Nem lehet azonosítani a partnert!") + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Customers_DetailView", True, _Customers) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aPCICheck_Customers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPCICheck_Customers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + + Dim _Customers As Customers + Dim _CustomersFrom As CustomersFrom + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_uow) + + For Each _Customers In View.SelectedObjects + _Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + + For Each _CustomersFrom In _CustomersFrom_Collection + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery("delete from ""PCIDetail"" where ""Customers""='" & _ + _Customers.Oid.ToString & "' and ""CustomersFrom""='" & _ + _CustomersFrom.Oid.ToString & "'") + _uow.CommitChanges() + _uow.ExecuteNonQuery("update ""InvoiceHeader"" set ""PCIGroup""=NULL where ""PCIGroup"" not in (select ""PCIGroup"" from ""PCIDetail"")") + _uow.ExecuteNonQuery("delete from ""PCIGroup"" where ""Oid"" not in (select ""PCIGroup"" from ""PCIDetail"")") + _uow.CommitChanges() + Case Else + _uow.ExecuteNonQuery("delete from PCIDetail where Customers='" & _ + _Customers.Oid.ToString & "' and CustomersFrom='" & _ + _CustomersFrom.Oid.ToString & "'") + _uow.CommitChanges() + _uow.ExecuteNonQuery("update InvoiceHeader set PCIGroup=NULL where PCIGroup not in (select PCIGroup from PCIDetail)") + _uow.ExecuteNonQuery("delete from PCIGroup where Oid not in (select PCIGroup from PCIDetail)") + _uow.CommitChanges() + End Select + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsDeleted=False and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False", _ + _CustomersFrom.Oid, _Customers.Oid)) + RaiseEvent InitWork(1, 1, _GLAccounts_Collection.Count) + For Each _GLAccounts In _GLAccounts_Collection + RaiseEvent DoWork() + If _GLAccounts IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + End If + Next + RaiseEvent FinalWork + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsDeleted=False and isnull(DocumentNumber)=False and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False and isnull(GLAccounts)=True", _ + _CustomersFrom.Oid, _Customers.Oid)) + RaiseEvent InitWork(1, 1, _InvoiceHeader_Collection.Count) + For Each _InvoiceHeader In _InvoiceHeader_Collection + RaiseEvent DoWork() + If _InvoiceHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _InvoiceHeader.CustomersFrom, _InvoiceHeader.Customers, 0, _InvoiceHeader.ConnectInfo) + End If + Next + RaiseEvent FinalWork + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsStorno=False and IsDeleted=False and RegistryAcceptState=0 and RegistryType.RegistryMainType =0 and CustomersFrom.Oid=? and Customers.Oid=? and IsEditable=False and isnull(F_GLAccounts)=True", _ + _CustomersFrom.Oid, _Customers.Oid)) + + RaiseEvent InitWork(1, 1, _RegistryHeader_Collection.Count) + For Each _RegistryHeader In _RegistryHeader_Collection + RaiseEvent DoWork() + If _RegistryHeader IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _RegistryHeader.CustomersFrom, _RegistryHeader.Customers, 1, _RegistryHeader.F_ConnectInfo) + End If + Next + RaiseEvent FinalWork + + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("GLHeader.IsDeleted=False and GLHeader.CustomersFrom.Oid=? and Customer.Oid=? and PartnerType in (0,1) and GLHeader.GLDocumentType in (0,2,3,4,5)", _ + _CustomersFrom.Oid, _Customers.Oid)) + + RaiseEvent InitWork(1, 1, _GLRows_Collection.Count) + For Each _GLRows In _GLRows_Collection + RaiseEvent DoWork() + If _GLRows IsNot Nothing Then + GLFunctions.ReconfigurePCI(_uow, _GLRows.GLHeader.CustomersFrom, _GLRows.Customer, _GLRows.PartnerType, _GLRows.ConnectInfo) + End If + Next + RaiseEvent FinalWork + Next + Next + End Sub + + Private Sub aCustomersSetToCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomersSetToCustomers.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(Customers)) + + e.View = Application.CreateListView("Customers_ListView_Select", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCustomersSetToCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomersSetToCustomers.Execute + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCustomersSetSupplierMarkInfo_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomersSetSupplierMarkInfo.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(Customers)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("IsNull(SupplierMark, '')<>''")) + _CS.EndUpdateCriteria() + + e.View = Application.CreateListView("Customers_ListView_Select", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aCustomersSetSupplierMarkInfo_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomersSetSupplierMarkInfo.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _MarkInfo As String = "" + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _CustomersOnPopUp As Customers In e.PopupWindow.View.SelectedObjects + _CustomersOnPopUp = _ocur.GetObject(_CustomersOnPopUp) + _MarkInfo += _CustomersOnPopUp.SupplierMark + ", " + Next + + _MarkInfo = _MarkInfo.Remove(_MarkInfo.Length - 2, 2) + + For Each _CustomersOnBaseView As Customers In View.SelectedObjects + _CustomersOnBaseView.SupplierMarkInfo = _MarkInfo + RaiseEvent DoWork() + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub + Private Sub aCustomersDeleteSupplierMarkInfo_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersDeleteSupplierMarkInfo.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + + For Each _Customers As Customers In View.SelectedObjects + _Customers.SupplierMarkInfo = Nothing + RaiseEvent DoWork() + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub + + Private Sub aCustomersToContacts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersToContacts.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers As Customers = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Customers) + If _Customers Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!") + + Dim _Contacts As New Contacts(_onew.Session) + With _Contacts + .Customers = _onew.GetObject(_Customers) + .MotherName = _Customers.MotherName + If _Customers.BirthAddress IsNot Nothing Then + If _Customers.BirthAddress.City IsNot Nothing Then .BirthPlace = _Customers.BirthAddress.City + End If + + .TAJNumber = _Customers.TAJNumber + .Birthday = _Customers.BirthDate + .Address1 = _onew.GetObject(_Customers.Address1) + .Address2 = _onew.GetObject(_Customers.Address2) + + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Contacts_DetailView", True, _Contacts) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aCustomersToCustomersOrder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersToCustomersOrder.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SelectedData As DevExpress.Xpo.DB.SelectedData = Nothing + Dim _SQL As String = "" + Dim _Customers As Customers + Dim _SelectStatementResultRow As SelectStatementResultRow + Dim _Exists As Boolean = False + Dim _ObjectType As Long = 0 + For Each _Customers In View.SelectedObjects + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.PostgreSQL + _SQL = "select ""Oid"" from ""CustomersOrder"" where ""Oid""='" & _Customers.Oid.ToString & "'" + Case eSQLType.MySQL + _SQL = "select Oid from CustomersOrder where Oid='" & _Customers.Oid.ToString & "'" + End Select + + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + _Exists = True + Next + End If + + If _Exists = False Then + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.PostgreSQL + _SQL = "select ""Oid"" from ""XPObjectType"" where ""TypeName""='SISBusiness.Module.CustomersOrder'" + Case eSQLType.MySQL + _SQL = "select Oid from XPObjectType where TypeName='SISBusiness.Module.CustomersOrder'" + End Select + _SelectedData = _ocur.Session.ExecuteQuery(_SQL) + If _SelectedData.ResultSet.Length > 0 Then + For Each _SelectStatementResultRow In _SelectedData.ResultSet(0).Rows + _ObjectType = _SelectStatementResultRow.Values(0) + Next + End If + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.PostgreSQL + _SQL = "insert ""CustomersOrder"" (""Oid"") values ('" & _Customers.Oid.ToString & "')" + Case eSQLType.MySQL + _SQL = "insert CustomersOrder (Oid) values ('" & _Customers.Oid.ToString & "')" + End Select + _ocur.Session.ExecuteNonQuery(_SQL) + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.PostgreSQL + _SQL = "Update ""Party"" set ""ObjectType""=" & _ObjectType & " where ""Oid""='" & _Customers.Oid.ToString & "'" + Case eSQLType.MySQL + _SQL = "Update Party set ObjectType=" & _ObjectType & " where Oid='" & _Customers.Oid.ToString & "'" + End Select + _ocur.Session.ExecuteNonQuery(_SQL) + _ocur.CommitChanges() + Frame.GetController(Of RefreshController).RefreshAction.DoExecute() + End If + Next + + + End Sub + Private Sub aCustomers_ChangeCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aCustomers_ChangeCustomers.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers_Change_PopUP As New Customers_Change_PopUP(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "Customers_Change_PopUP_DetailView", True, _Customers_Change_PopUP) + End Sub + Private Sub aCustomers_ChangeCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCustomers_ChangeCustomers.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Customers_Change_PopUP As Customers_Change_PopUP = _ocur.GetObject(e.PopupWindow.View.SelectedObjects(0)) + + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _Customers As Customers In View.SelectedObjects + If _Customers_Change_PopUP.Change_Country1 Then + If _Customers.Address1 IsNot Nothing Then + _Customers.Address1.Country = _ocur.GetObject(_Customers_Change_PopUP.Country1) + End If + End If + If _Customers_Change_PopUP.Change_Country2 Then + If _Customers.Address2 IsNot Nothing Then + _Customers.Address2.Country = _ocur.GetObject(_Customers_Change_PopUP.Country2) + End If + End If + If _Customers_Change_PopUP.Change_CreditlineDay Then + _Customers.CreditlineDay = _Customers_Change_PopUP.CreditlineDay + End If + If _Customers_Change_PopUP.Change_CustomersGLParameters Then + _Customers.CustomersGLParameters = _ocur.GetObject(_Customers_Change_PopUP.CustomersGLParameters) + End If + If _Customers_Change_PopUP.Change_IsAssetsHandling Then + _Customers.IsAssetsHandling = _ocur.GetObject(_Customers_Change_PopUP.IsAssetsHandling) + End If + If _Customers_Change_PopUP.Change_LateChargesCountMode Then + _Customers.LateChargesCountMode = _ocur.GetObject(_Customers_Change_PopUP.LateChargesCountMode) + End If + If _Customers_Change_PopUP.Change_PaymentOption Then + _Customers.PaymentOption = _ocur.GetObject(_Customers_Change_PopUP.PaymentOption) + End If + If _Customers_Change_PopUP.Change_Pricing Then + _Customers.Pricing = _ocur.GetObject(_Customers_Change_PopUP.Pricing) + End If + If _Customers_Change_PopUP.Change_PricingIn Then + _Customers.PricingIn = _ocur.GetObject(_Customers_Change_PopUP.PricingIn) + End If + If _Customers_Change_PopUP.Change_Profile Then + _Customers.Profile = _Customers_Change_PopUP.Profile + End If + If _Customers_Change_PopUP.Change_QualityOption Then + _Customers.QualityOption = _ocur.GetObject(_Customers_Change_PopUP.QualityOption) + End If + If _Customers_Change_PopUP.Change_ShipmentOption Then + _Customers.ShipmentOption = _ocur.GetObject(_Customers_Change_PopUP.ShipmentOption) + End If + RaiseEvent DoWork() + Next + _ocur.CommitChanges() + RaiseEvent FinalWork + End Sub + Private Sub aCustomers_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_CreateBusinessDirectory.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers) + + If _Customers.MasterBusinessDirectory Is Nothing Then + Dim _CustomersBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(DevExpress.Data.Filtering.CriteriaOperator.Parse("ShortName='Ügyfelek' AND IsNull(BusinessDirectory_Parent)=True")) + + If _CustomersBaseBusinessDirectory Is Nothing Then + _CustomersBaseBusinessDirectory = New BusinessDirectory(_ocur.Session) + With _CustomersBaseBusinessDirectory + .ShortName = "Ügyfelek" + .BusinessDirectory_Parent = Nothing + End With + End If + + Dim _CustomersBusinessDirectory As New BusinessDirectory(_ocur.Session) + With _CustomersBusinessDirectory + .ShortName = String.Format("{0} {1} {2}", _Customers.FullName, _Customers.Address1.City, _Customers.CustomerNumber) + .BusinessDirectory_Parent = _CustomersBaseBusinessDirectory + End With + _CustomersBusinessDirectory.Save() + _Customers.MasterBusinessDirectory = _CustomersBusinessDirectory + _ocur.CommitChanges() + End If + End Sub + + Private Sub aViewPCIDetail_Customers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aViewPCIDetail_Customers.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers As Customers = _onew.GetObject(TryCast(View.SelectedObjects(0), Customers)) + + Dim _PCIDetail_CollectionSource As New CollectionSource(_onew, GetType(PCIDetail)) + + _PCIDetail_CollectionSource.BeginUpdateCriteria() + _PCIDetail_CollectionSource.Criteria("Customers") = CriteriaOperator.Parse("Customers=?", _Customers) + _PCIDetail_CollectionSource.EndUpdateCriteria() + + e.ShowViewParameters.CreatedView = Application.CreateListView("PCIDetail_ListView_Customers", _PCIDetail_CollectionSource, False) + + + End Sub + + Private Sub aCustomers_OpenDHUrl_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomers_OpenDHUrl.Execute + Dim _Customers As Customers = TryCast(View.SelectedObjects(0), Customers) + If _Customers IsNot Nothing Then + Dim _ExternalBrowserPath As String = Nothing + If TryCast(Application.Model.Options, IModelOptionsExtender) IsNot Nothing Then + If File.Exists(TryCast(Application.Model.Options, IModelOptionsExtender).ExternalBrowserPath) Then + _ExternalBrowserPath = TryCast(Application.Model.Options, IModelOptionsExtender).ExternalBrowserPath + End If + End If + + Dim _Process As New System.Diagnostics.Process + + With _Process.StartInfo + .FileName = _ExternalBrowserPath + .Arguments = " url """ + _Customers.Url_DH + """" + End With + + _Process.Start() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/ChangeFileAttachment_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/ChangeFileAttachment_PopUp.vb new file mode 100644 index 0000000..fb61c7b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/ChangeFileAttachment_PopUp.vb @@ -0,0 +1,90 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ChangeFileAttachment_PopUp + Inherits BaseObject + + + Private _Status As eProductsDocumentationStatus + Private _ChangeStatus As Boolean + Private _RowGroup1 As String 'Szveges csoportosts (nem ktelez) + Private _ChangeRowGroup1 As Boolean + Private _RowGroup2 As String 'Szveges msodlagos csoportosts (nem ktelez) + Private _ChangeRowGroup2 As Boolean + + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Public Property Status() As eProductsDocumentationStatus + Get + Return _Status + End Get + Set(ByVal value As eProductsDocumentationStatus) + SetPropertyValue("Status", _Status, value) + End Set + End Property + Public Property RowGroup1() As String + Get + Return _RowGroup1 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup1", _RowGroup1, value) + End Set + End Property + Public Property RowGroup2() As String + Get + Return _RowGroup2 + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup2", _RowGroup2, value) + End Set + End Property + + + Public Property ChangeStatus() As Boolean + Get + Return _ChangeStatus + End Get + Set(ByVal value As Boolean) + SetPropertyValue("Status", _ChangeStatus, value) + End Set + End Property + Public Property ChangeRowGroup1() As Boolean + Get + Return _ChangeRowGroup1 + End Get + Set(ByVal value As Boolean) + SetPropertyValue("RowGroup1", _ChangeRowGroup1, value) + End Set + End Property + Public Property ChangeRowGroup2() As Boolean + Get + Return _ChangeRowGroup2 + End Get + Set(ByVal value As Boolean) + SetPropertyValue("RowGroup2", _ChangeRowGroup2, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/CustomersMergePopup.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/CustomersMergePopup.vb new file mode 100644 index 0000000..bb4fbf4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/CustomersMergePopup.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class CustomersMergePopup + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property CustomersMain As Customers + Property Customers As XPCollection(Of Customers) + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/Customers_Change_PopUP.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/Customers_Change_PopUP.vb new file mode 100644 index 0000000..ee687e3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/PopUp/Customers_Change_PopUP.vb @@ -0,0 +1,243 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class Customers_Change_PopUP + Inherits BaseObject + + Private _Change_PaymentOption As Boolean + Private _PaymentOption As PaymentOption + Private _Change_ShipmentOption As Boolean + Private _ShipmentOption As ShipmentOption + Private _Change_QualityOption As Boolean + Private _QualityOption As QualityOption + Private _Change_IsAssetsHandling As Boolean + Private _IsAssetsHandling As Boolean + Private _Change_LateChargesCountMode As Boolean + Private _LateChargesCountMode As LateChargesCountMode + Private _Change_CreditlineDay As Boolean + Private _CreditlineDay As Long + Private _Change_Pricing As Boolean 'rkpzs ha vev az gyfl + Private _Pricing As Pricing + Private _Change_PricingIn As Boolean 'rkpzs ha vsrolunk tle + Private _PricingIn As Pricing + Private _Change_CustomersGLParameters As Boolean 'gyfl fknyvi kategria + Private _CustomersGLParameters As CustomersGLParameters + Private _Change_Profile As Boolean + Private _Profile As String + Private _Change_Country1 As Boolean + Private _Country1 As Country + Private _Change_Country2 As Boolean + Private _Country2 As Country + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property Change_PaymentOption As Boolean + Get + Return _Change_PaymentOption + End Get + Set(value As Boolean) + SetPropertyValue("Change_PaymentOption", _Change_PaymentOption, value) + End Set + End Property + Public Property PaymentOption() As PaymentOption + Get + Return _PaymentOption + End Get + Set(ByVal value As PaymentOption) + SetPropertyValue("PaymentOption", _PaymentOption, value) + End Set + End Property + Property Change_ShipmentOption As Boolean + Get + Return _Change_ShipmentOption + End Get + Set(value As Boolean) + SetPropertyValue("Change_ShipmentOption", _Change_ShipmentOption, value) + End Set + End Property + Public Property ShipmentOption() As ShipmentOption + Get + Return _ShipmentOption + End Get + Set(ByVal value As ShipmentOption) + SetPropertyValue("ShipmentOption", _ShipmentOption, value) + End Set + End Property + Property Change_QualityOption As Boolean + Get + Return _Change_QualityOption + End Get + Set(value As Boolean) + SetPropertyValue("Change_QualityOption", _Change_QualityOption, value) + End Set + End Property + Public Property QualityOption() As QualityOption + Get + Return _QualityOption + End Get + Set(ByVal value As QualityOption) + SetPropertyValue("QualityOption", _QualityOption, value) + End Set + End Property + Property Change_IsAssetsHandling As Boolean + Get + Return _Change_IsAssetsHandling + End Get + Set(value As Boolean) + SetPropertyValue("Change_IsAssetsHandling", _Change_IsAssetsHandling, value) + End Set + End Property + Property IsAssetsHandling As Boolean + Get + Return _IsAssetsHandling + End Get + Set(value As Boolean) + SetPropertyValue("IsAssetsHandling", _IsAssetsHandling, value) + End Set + End Property + Property Change_LateChargesCountMode As Boolean + Get + Return _Change_LateChargesCountMode + End Get + Set(value As Boolean) + SetPropertyValue("Change_LateChargesCountMode", _Change_LateChargesCountMode, value) + End Set + End Property + Property LateChargesCountMode As LateChargesCountMode + Get + Return _LateChargesCountMode + End Get + Set(value As LateChargesCountMode) + SetPropertyValue("LateChargesCountMode", _LateChargesCountMode, value) + End Set + End Property + Property Change_CreditlineDay As Boolean + Get + Return _Change_CreditlineDay + End Get + Set(value As Boolean) + SetPropertyValue("Change_CreditlineDay", _Change_CreditlineDay, value) + End Set + End Property + Property CreditlineDay As Long + Get + Return _CreditlineDay + End Get + Set(value As Long) + SetPropertyValue("CreditlineDay", _CreditlineDay, value) + End Set + End Property + Property Change_Pricing As Boolean + Get + Return _Change_Pricing + End Get + Set(value As Boolean) + SetPropertyValue("Change_Pricing", _Change_Pricing, value) + End Set + End Property + Property Pricing As Pricing + Get + Return _Pricing + End Get + Set(ByVal value As Pricing) + SetPropertyValue("Pricing", _Pricing, value) + End Set + End Property + Property Change_PricingIn As Boolean + Get + Return _Change_PricingIn + End Get + Set(value As Boolean) + SetPropertyValue("Change_PricingIn", _Change_PricingIn, value) + End Set + End Property + Property PricingIn As Pricing + Get + Return _PricingIn + End Get + Set(ByVal value As Pricing) + SetPropertyValue("PricingIn", _PricingIn, value) + End Set + End Property + Property Change_CustomersGLParameters As Boolean + Get + Return _Change_CustomersGLParameters + End Get + Set(value As Boolean) + SetPropertyValue("Change_CustomersGLParameters", _Change_CustomersGLParameters, value) + End Set + End Property + Property CustomersGLParameters() As CustomersGLParameters + Get + Return _CustomersGLParameters + End Get + Set(ByVal value As CustomersGLParameters) + SetPropertyValue("CustomersGLParameters", _CustomersGLParameters, value) + End Set + End Property + Property Change_Profile As Boolean + Get + Return _Change_Profile + End Get + Set(value As Boolean) + SetPropertyValue("Change_Profile", _Change_Profile, value) + End Set + End Property + Property Profile As String + Get + Return _Profile + End Get + Set(value As String) + SetPropertyValue("Profile", _Profile, value) + End Set + End Property + Property Change_Country1 As Boolean + Get + Return _Change_Country1 + End Get + Set(value As Boolean) + SetPropertyValue("Change_Country1", _Change_Country1, value) + End Set + End Property + Property Country1 As Country + Get + Return _Country1 + End Get + Set(value As Country) + SetPropertyValue("Country1", _Country1, value) + End Set + End Property + Property Change_Country2 As Boolean + Get + Return _Change_Country2 + End Get + Set(value As Boolean) + SetPropertyValue("Change_Country2", _Change_Country2, value) + End Set + End Property + Property Country2 As Country + Get + Return _Country2 + End Get + Set(value As Country) + SetPropertyValue("Country2", _Country2, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Themes.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Themes.vb new file mode 100644 index 0000000..d17e01b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Customers/Themes.vb @@ -0,0 +1,48 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class Themes 'Tmk trzse + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting.vb new file mode 100644 index 0000000..66c075c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting.vb @@ -0,0 +1,252 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports System.Net.Mail + +Public Enum eMeetPlace + eCustomersOffice = 0 + eOurOffice = 1 + eOtherPlace = 2 +End Enum + _ + _ + _ + _ + _ + _ + _ + _ +Public Class CustomersMeeting + Inherits BaseObject + Private _MeetPlace As eMeetPlace + Private _CustomersMeetingType As CustomersMeetingType + Private _Customers As Customers + Private _DocumentNumber As String + Private _DateExecution As Date + Private _ShortName As String + Private _Description As String + Private _UserCreated As User + Private _ObjectCreated As Date + Private _IsEditable As Boolean + Private _Months As eMonths + Private _EmailHasBeenSent As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + DateExecution = Now + IsEditable = True + EmailHasBeenSent = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + ObjectCreated = Now + + If String.IsNullOrEmpty(DocumentNumber) And NumberGenerator IsNot Nothing Then + DocumentNumber = NumberGenerator.GetNewNumber(NumberGenerator, Year(Now).ToString) + End If + Months = ObjectCreated.Month + + If EmailHasBeenSent = False Then + Try + Dim _WebParameters As WebParameters = Session.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + If Customers.Contacts.Count > 0 Then + For Each _Contacts As Contacts In Customers.Contacts + If Not String.IsNullOrEmpty(_Contacts.Email) Then _MailMessage.To.Add(_Contacts.Email) + Next + ElseIf Not String.IsNullOrEmpty(Customers.Email) Then + _MailMessage.To.Add(Customers.Email) + Else + Throw New Exception("*Nincs email cm belltva!") + End If + + _MailMessage.Subject = "j egyeztets" + _MailMessage.IsBodyHtml = True + _MailMessage.Body = String.Format("{0} szmmal j egyeztets kszlt az n rszre", DocumentNumber) + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + EmailHasBeenSent = True + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _uow As New UnitOfWork(Session.DataLayer) + Dim _ErrorLog As New ErrorLog(_uow) + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), System.Reflection.MethodBase).Name + _uow.CommitTransaction() + End Try + End If + End If + End Sub + + Property MeetPlace As eMeetPlace + Get + Return _MeetPlace + End Get + Set(value As eMeetPlace) + SetPropertyValue("MeetPlace", _MeetPlace, value) + End Set + End Property + Property CustomersMeetingState As CustomersMeetingType 'ELBASZTAM a nevt! R. + Get + Return _CustomersMeetingType + End Get + Set(value As CustomersMeetingType) + SetPropertyValue("CustomersMeetingType", _CustomersMeetingType, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If String.IsNullOrEmpty(ShortName) Then _ + ShortName = value.ShortName + End If + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property DateExecution As Date + Get + Return _DateExecution + End Get + Set(value As Date) + SetPropertyValue("DateExecution", _DateExecution, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + Property Months As eMonths + Get + Return _Months + End Get + Set(value As eMonths) + SetPropertyValue("Months", _Months, value) + End Set + End Property + _ + _ + _ + Property EmailHasBeenSent As Boolean + Get + Return _EmailHasBeenSent + End Get + Set(value As Boolean) + SetPropertyValue("EmailHasBeenSent", _EmailHasBeenSent, value) + End Set + End Property + + _ + _ + ReadOnly Property CustomersMeetingDocuments As XPCollection(Of CustomersMeetingDocuments) + Get + Return GetCollection(Of CustomersMeetingDocuments)("CustomersMeetingDocuments") + End Get + End Property + _ + ReadOnly Property NumberGenerator As NumberGenerator + Get + Return TryCast(Session.FindObject(Of SupportNG)(CriteriaOperator.Parse("SupportType=2")), SupportNG).NumberGenerator + End Get + End Property + + _ + ReadOnly Property CustomersMeetingSubContractorCustomers As XPCollection(Of Customers) + Get + If TryCast(SecuritySystem.CurrentUser, User) Is Nothing Then Return Nothing + Dim _SubContractorCustomers_Collection As New XPCollection(Of Customers)(Session, CriteriaOperator.Parse("1=2")) + Dim _User As User = Session.GetObjectByKey(Of User)(TryCast(SecuritySystem.CurrentUser, User).Oid) + Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(DevExpress.Data.Filtering.CriteriaOperator.Parse("User = ?", _User)) + If _Contacts.Customers IsNot Nothing Then + Dim _Subcontractor As Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + If _Subcontractor IsNot Nothing Then + For Each _SubcontractorCustomers As SubcontractorCustomers In _Subcontractor.SubcontractorCustomers + _SubContractorCustomers_Collection.Add(_SubcontractorCustomers.Customers) + Next + End If + + Return _SubContractorCustomers_Collection + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingDocuments.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingDocuments.vb new file mode 100644 index 0000000..de8d793 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingDocuments.vb @@ -0,0 +1,33 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CustomersMeetingDocuments + Inherits FileAttachmentBase + Private _CustomersMeeting As CustomersMeeting + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property CustomersMeeting As CustomersMeeting + Get + Return _CustomersMeeting + End Get + Set(value As CustomersMeeting) + SetPropertyValue("CustomersMeeting", _CustomersMeeting, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingType.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingType.vb new file mode 100644 index 0000000..257a4dc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeetingType.vb @@ -0,0 +1,56 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CustomersMeetingType + Inherits BaseObject + + Private _ShortName As String 'Megnevezs + Private _Description As String 'Lers + Private _ReportData As ReportData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.Designer.vb new file mode 100644 index 0000000..47d5940 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class CustomersMeeting_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCustomersMeeting_Print = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCustomersMeeting_Print + ' + Me.aCustomersMeeting_Print.Caption = "aCustomersMeeting_Print" + Me.aCustomersMeeting_Print.Category = "View" + Me.aCustomersMeeting_Print.ConfirmationMessage = Nothing + Me.aCustomersMeeting_Print.Id = "aCustomersMeeting_Print" + Me.aCustomersMeeting_Print.ImageName = Nothing + Me.aCustomersMeeting_Print.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCustomersMeeting_Print.Shortcut = Nothing + Me.aCustomersMeeting_Print.Tag = Nothing + Me.aCustomersMeeting_Print.TargetObjectsCriteria = Nothing + Me.aCustomersMeeting_Print.TargetObjectType = GetType(SISBusiness.[Module].CustomersMeeting) + Me.aCustomersMeeting_Print.TargetViewId = Nothing + Me.aCustomersMeeting_Print.ToolTip = Nothing + Me.aCustomersMeeting_Print.TypeOfView = Nothing + + End Sub + Friend WithEvents aCustomersMeeting_Print As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.resx new file mode 100644 index 0000000..345b01d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb new file mode 100644 index 0000000..5f1c1c9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/CustomersMeeting/CustomersMeeting_VC.vb @@ -0,0 +1,132 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Public Class CustomersMeeting_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + If View.Id = "CustomersMeeting_ListView_Support" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(DevExpress.Data.Filtering.CriteriaOperator.Parse("User = ?", _ocur.GetObject(_User))) + + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid) + Else + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse("1=2") + End If + End If + If View.Id = "CustomersMeeting_ListView_Subcontractor" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(DevExpress.Data.Filtering.CriteriaOperator.Parse("User = ?", _ocur.GetObject(_User))) + + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + + Dim _Filter As String = "UserCreated.Oid in(" + + For Each _ContactsIn As Contacts In _Contacts.Customers.Contacts + _Filter += "'" + _ContactsIn.User.Oid.ToString + "'," + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse(_Filter) + Else + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("BySupportCM") = DevExpress.Data.Filtering.CriteriaOperator.Parse("1=2") + End If + End If + If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "CustomersMeeting_DetailView" Then + Dim _CustomersMeeting As CustomersMeeting = TryCast(View.SelectedObjects(0), CustomersMeeting) + If _CustomersMeeting IsNot Nothing Then + If Not TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session.IsNewObject(_CustomersMeeting) Then + If _CustomersMeeting.IsEditable Then + Dim _NeedCommit As Boolean = False + If _CustomersMeeting.ObjectCreated.Year < GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session).Year Then + _CustomersMeeting.IsEditable = False + _NeedCommit = True + ElseIf _CustomersMeeting.ObjectCreated.Month < GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session).Month Then + _CustomersMeeting.IsEditable = False + _NeedCommit = True + ElseIf _CustomersMeeting.ObjectCreated.Day < GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session).Day Then + _CustomersMeeting.IsEditable = False + _NeedCommit = True + End If + If _NeedCommit Then TryCast(View.ObjectSpace, Xpo.XPObjectSpace).CommitChanges() + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CustomersMeeting_CustomersMeetingDocuments_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + If View.Id = "CustomersMeeting_ListView_Support" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "CustomersMeeting_ListView_Subcontractor" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "CustomersMeeting_DetailView_Subcontractor" Then + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + + End If + End Sub + Private Sub aCustomersMeeting_Print_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCustomersMeeting_Print.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _CustomersMeeting As CustomersMeeting = TryCast(View.SelectedObjects(0), CustomersMeeting) + If _CustomersMeeting IsNot Nothing Then + If _CustomersMeeting.CustomersMeetingState IsNot Nothing Then + Dim _ReportData As ReportData = _CustomersMeeting.CustomersMeetingState.ReportData + + If _ReportData IsNot Nothing Then + Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("Oid=?", _CustomersMeeting.Oid), True) + Else + MsgBox("Nincs belltva nyomtatvny!") + End If + Else + MsgBox("Nincs belltva az egyeztets tpusa, gy nem lehet nyomtatni!") + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard.vb new file mode 100644 index 0000000..05b2ed8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard.vb @@ -0,0 +1,147 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum DashboardViewMode + Viewer = 0 + Designer = 1 +End Enum + + _ + _ + _ + _ + _ + _ +Public Class Dashboard + Inherits BaseObject + + Private _DashboardViewMode As DashboardViewMode + Private _DashboardViewer As String + Private _DashboardDesigner As String + Private _SQLServer As String + Private _SQLType As eSQLType + Private _Database As String + Private _UserName As String + Private _Password As String + Private _XMLFileData As FileData + Private _Object_Oid As String + Private _Object_Type As System.Type + Private _IsNewDashboard As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsNewDashboard = False + End Sub + + _ + Property DashboardViewMode As DashboardViewMode + Get + Return _DashboardViewMode + End Get + Set(value As DashboardViewMode) + SetPropertyValue("DashboardViewMode", _DashboardViewMode, value) + End Set + End Property + _ + Property DashboardViewer As String + Get + Return _DashboardViewer + End Get + Set(value As String) + SetPropertyValue("DashboardViewer", _DashboardViewer, value) + End Set + End Property + _ + Property DashboardDesigner As String + Get + Return _DashboardDesigner + End Get + Set(value As String) + SetPropertyValue("DashboardDesigner", _DashboardDesigner, value) + End Set + End Property + Property SQLServer As String + Get + Return _SQLServer + End Get + Set(value As String) + SetPropertyValue("SQLServer", _SQLServer, value) + End Set + End Property + Property SQLType As eSQLType + Get + Return _SQLType + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType", _SQLType, value) + End Set + End Property + Property Database As String + Get + Return _Database + End Get + Set(value As String) + SetPropertyValue("Database", _Database, value) + End Set + End Property + Property UserName As String + Get + Return _UserName + End Get + Set(value As String) + SetPropertyValue("UserName", _UserName, value) + End Set + End Property + Property Password As String + Get + Return _Password + End Get + Set(value As String) + SetPropertyValue("Password", _Password, value) + End Set + End Property + Property XMLFileData As FileData + Get + Return _XMLFileData + End Get + Set(value As FileData) + SetPropertyValue("XMLFileData", _XMLFileData, value) + End Set + End Property + Property Object_Oid As String + Get + Return _Object_Oid + End Get + Set(value As String) + SetPropertyValue("Object_Oid", _Object_Oid, value) + End Set + End Property + Property Object_Type As System.Type + Get + Return _Object_Type + End Get + Set(value As System.Type) + SetPropertyValue("Object_Type", _Object_Type, value) + End Set + End Property + Property IsNewDashboard As Boolean + Get + Return _IsNewDashboard + End Get + Set(value As Boolean) + SetPropertyValue("IsNewDashboard", _IsNewDashboard, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb new file mode 100644 index 0000000..aed821a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class Dashboard_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb new file mode 100644 index 0000000..070c6f6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Dashboard/Dashboard_VC.vb @@ -0,0 +1,21 @@ +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 Dashboard_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueHeader.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueHeader.vb new file mode 100644 index 0000000..ddc2c2f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueHeader.vb @@ -0,0 +1,113 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class EMailSendQueueHeader + Inherits BaseObject + Private _QueueNumber As String + Private _ShortName As String 'Csomag megnevezse + Private _EmailSendQueueParameters As EMailSendQueueParameters + Private _UserCreated As User 'Ltrehozta + Private _ObjectCreated As Date 'Ltrehozva + Private _ScheduleDateTime As Date 'Mikorra temezzk + Private _IsExecuted As Boolean 'El lett-e mr kldve + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsExecuted = False + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(QueueNumber) Then QueueNumber = EmailSendQueueParameters.NumberGenerator.GetNewNumber(EmailSendQueueParameters.NumberGenerator) + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property QueueNumber As String + Get + Return _QueueNumber + End Get + Set(value As String) + SetPropertyValue("QueueNumber", _QueueNumber, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property EmailSendQueueParameters As EMailSendQueueParameters + Get + Return _EmailSendQueueParameters + End Get + Set(value As EMailSendQueueParameters) + SetPropertyValue("EmailSendQueueParameters", _EmailSendQueueParameters, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property ScheduleDateTime As Date + Get + Return _ScheduleDateTime + End Get + Set(value As Date) + SetPropertyValue("ScheduleDateTime", _ScheduleDateTime, value) + End Set + End Property + Property IsExecuted As Boolean + Get + Return _IsExecuted + End Get + Set(value As Boolean) + SetPropertyValue("IsExecuted", _IsExecuted, value) + End Set + End Property + + '-------------ReadOnly------------ + _ + ReadOnly Property EMailSendQueueRows As XPCollection(Of EMailSendQueueRows) + Get + Return GetCollection(Of EMailSendQueueRows)("EMailSendQueueRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueParameters.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueParameters.vb new file mode 100644 index 0000000..ff76cf8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueParameters.vb @@ -0,0 +1,72 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class EMailSendQueueParameters + Inherits BaseObject + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _HTMLBody As String 'Alaprtelmezett HTML body + Private _Subject As String 'Alaprtelmezett trgy mez {0},{1} formtumban + Private _EMailFrom As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + Property HTMLBody As String + Get + Return _HTMLBody + End Get + Set(value As String) + SetPropertyValue("HTMLBody", _HTMLBody, value) + End Set + End Property + _ + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + Property EMailFrom As String + Get + Return _EMailFrom + End Get + Set(value As String) + SetPropertyValue("EMailFrom", _EMailFrom, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows.vb new file mode 100644 index 0000000..4401923 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows.vb @@ -0,0 +1,132 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' + _ +Public Class EMailSendQueueRows + Inherits BaseObject + + Private _EMailSendQueueHeader As EMailSendQueueHeader + Private _EMailFrom As String '255 + Private _EMailTo As String '255 + Private _Subject As String '255 + Private _HTMLBody As String '-1 + Private _FileAttachments1 As FileData + Private _FileAttachments2 As FileData + Private _FileAttachments3 As FileData + Private _ExceptionMessage As String ' -1 + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + Dim _AssetsHandling As AssetsHandling + Dim _AssetsHandling_Collection As New XPCollection(Of AssetsHandling)(Session, CriteriaOperator.Parse("EMailSendQueueRows=?", Me)) + For Each _AssetsHandling In _AssetsHandling_Collection + _AssetsHandling.EMailSendQueueRows = Nothing + Dim _AssetsHandlingStatus As AssetsHandlingStatus = Session.FindObject(Of AssetsHandlingStatus)(CriteriaOperator.Parse("QueueIndex=0")) + If _AssetsHandling.InvoiceHeader IsNot Nothing Then + _AssetsHandling.InvoiceHeader.AssetsHandlingStatus = _AssetsHandlingStatus + End If + + Next + End Sub + _ + Property EMailSendQueueHeader As EMailSendQueueHeader + Get + Return _EMailSendQueueHeader + End Get + Set(value As EMailSendQueueHeader) + SetPropertyValue("EMailSendQueueHeader", _EMailSendQueueHeader, value) + End Set + End Property + _ + Property EMailFrom As String + Get + Return _EMailFrom + End Get + Set(value As String) + SetPropertyValue("EMailFrom", _EMailFrom, value) + End Set + End Property + _ + Property EMailTo As String + Get + Return _EMailTo + End Get + Set(value As String) + SetPropertyValue("EMailTo", _EMailTo, value) + End Set + End Property + _ + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + _ + Property HTMLBody As String + Get + Return _HTMLBody + End Get + Set(value As String) + SetPropertyValue("HTMLBody", _HTMLBody, value) + End Set + End Property + Property FileAttachments1 As FileData + Get + Return _FileAttachments1 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments1", _FileAttachments1, value) + End Set + End Property + Property FileAttachments2 As FileData + Get + Return _FileAttachments2 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments2", _FileAttachments2, value) + End Set + End Property + Property FileAttachments3 As FileData + Get + Return _FileAttachments3 + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments3", _FileAttachments3, value) + End Set + End Property + Property ExceptionMessage As String + Get + Return _ExceptionMessage + End Get + Set(value As String) + SetPropertyValue("ExceptionMessage", _ExceptionMessage, value) + End Set + End Property + + 'ReadOnly + _ + ReadOnly Property EMailSendQueueRows_FileAttachment As XPCollection(Of EMailSendQueueRows_FileAttachment) + Get + Return GetCollection(Of EMailSendQueueRows_FileAttachment)("EMailSendQueueRows_FileAttachment") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows_FileAttachment.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows_FileAttachment.vb new file mode 100644 index 0000000..321d2b9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueRows_FileAttachment.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + Public Class EMailSendQueueRows_FileAttachment + Inherits BaseObject + + Private _EMailSendQueueRows As EMailSendQueueRows + Private _FileAttachments As FileData + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property EMailSendQueueRows As EMailSendQueueRows + Get + Return _EMailSendQueueRows + End Get + Set(value As EMailSendQueueRows) + SetPropertyValue("EMailSendQueueRows", _EMailSendQueueRows, value) + End Set + End Property + Property FileAttachments As FileData + Get + Return _FileAttachments + End Get + Set(value As FileData) + SetPropertyValue("FileAttachments", _FileAttachments, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.Designer.vb new file mode 100644 index 0000000..a70b9fb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class EMailSendQueueVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aEMailSendQueue_Send = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aEMailSendQueue_Send + ' + Me.aEMailSendQueue_Send.Caption = "aEMailSendQueue_Send" + Me.aEMailSendQueue_Send.ConfirmationMessage = Nothing + Me.aEMailSendQueue_Send.Id = "aEMailSendQueue_Send" + Me.aEMailSendQueue_Send.ImageName = Nothing + Me.aEMailSendQueue_Send.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aEMailSendQueue_Send.Shortcut = Nothing + Me.aEMailSendQueue_Send.Tag = Nothing + Me.aEMailSendQueue_Send.TargetObjectsCriteria = Nothing + Me.aEMailSendQueue_Send.TargetObjectType = GetType(SISBusiness.[Module].EMailSendQueueHeader) + Me.aEMailSendQueue_Send.TargetViewId = Nothing + Me.aEMailSendQueue_Send.ToolTip = Nothing + Me.aEMailSendQueue_Send.TypeOfView = Nothing + + End Sub + Friend WithEvents aEMailSendQueue_Send As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.resx new file mode 100644 index 0000000..7e042cf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.vb new file mode 100644 index 0000000..3b0b9a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/EMail/EMailSendQueueVC.vb @@ -0,0 +1,102 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports System.Net.Mail +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.ExpressApp.Utils + +Public Class EMailSendQueueVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + End Sub + + Private Sub aEMailSendQueue_Send_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aEMailSendQueue_Send.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem! A folyamat megszakadt!") + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If String.IsNullOrEmpty(_WebParameters.SMTPHost) Or + String.IsNullOrEmpty(_WebParameters.SMTPPassword) Or + String.IsNullOrEmpty(_WebParameters.SMTPPort) Or + String.IsNullOrEmpty(_WebParameters.SMTPUserName) Then Throw New Exception("*Hinyosak az SMTP Server adatok! Krem, ellenrizze!") + + For Each _EMailSendQueueHeader As EMailSendQueueHeader In View.SelectedObjects + If _EMailSendQueueHeader.EMailSendQueueRows.Count > 0 Then + Dim _SMTPServer As New SmtpClient + With (_SMTPServer) + .Credentials = New Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + .Port = _WebParameters.SMTPPort + .Host = _WebParameters.SMTPHost + .EnableSsl = _WebParameters.EnableSsl + End With + For Each _EMailSendQueueRows As EMailSendQueueRows In _EMailSendQueueHeader.EMailSendQueueRows + Try + Dim _Mail As New MailMessage + With (_Mail) + .From = New MailAddress(_EMailSendQueueRows.EMailFrom) + .To.Add(_EMailSendQueueRows.EMailTo) + .Subject = _EMailSendQueueRows.Subject + .IsBodyHtml = True + .Body = _EMailSendQueueRows.HTMLBody + If _EMailSendQueueRows.FileAttachments1 IsNot Nothing Then + Dim _MemoryStream As New MemoryStream() + _EMailSendQueueRows.FileAttachments1.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + Dim _Attachment = New Attachment(_MemoryStream, _EMailSendQueueRows.FileAttachments1.FileName, "application/pdf") + .Attachments.Add(_Attachment) + End If + If _EMailSendQueueRows.FileAttachments2 IsNot Nothing Then + Dim _MemoryStream As New MemoryStream() + _EMailSendQueueRows.FileAttachments2.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + Dim _Attachment = New Attachment(_MemoryStream, _EMailSendQueueRows.FileAttachments2.FileName, "application/pdf") + .Attachments.Add(_Attachment) + End If + If _EMailSendQueueRows.FileAttachments3 IsNot Nothing Then + Dim _MemoryStream As New MemoryStream() + _EMailSendQueueRows.FileAttachments3.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + Dim _Attachment = New Attachment(_MemoryStream, _EMailSendQueueRows.FileAttachments3.FileName, "application/pdf") + .Attachments.Add(_Attachment) + End If + + For Each _EMailSendQueueRows_FileAttachment As EMailSendQueueRows_FileAttachment In _EMailSendQueueRows.EMailSendQueueRows_FileAttachment + Dim _MemoryStream As New MemoryStream() + _EMailSendQueueRows_FileAttachment.FileAttachments.SaveToStream(_MemoryStream) + _MemoryStream.Seek(0, System.IO.SeekOrigin.Begin) + Dim _Attachment = New Attachment(_MemoryStream, _EMailSendQueueRows_FileAttachment.FileAttachments.FileName, "application/pdf") + .Attachments.Add(_Attachment) + Next + End With + + _SMTPServer.Send(_Mail) + _EMailSendQueueRows.ExceptionMessage = "" + Catch ex As Exception + _EMailSendQueueRows.ExceptionMessage = ex.Message + End Try + Next + End If + _EMailSendQueueHeader.IsExecuted = True + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/ErrorLog.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/ErrorLog.vb new file mode 100644 index 0000000..f19872a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/ErrorLog.vb @@ -0,0 +1,81 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ErrorLog + Inherits BaseObject + + Private _Description As String + Private _SubName As String + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + If SecuritySystem.CurrentUser IsNot Nothing Then + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End If + End Sub + + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property SubName As String + Get + Return _SubName + End Get + Set(value As String) + SetPropertyValue("SubName", _SubName, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/FileDataEx.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/FileDataEx.vb new file mode 100644 index 0000000..8802402 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/FileDataEx.vb @@ -0,0 +1,177 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.IO +Imports DevExpress.Xpo +Imports System.ComponentModel +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +'Dennis: the FileDataEx class allows you to store files in file system instead of the database. You can set the required path in the DefaultDirectory constant. + _ + Public Class FileDataEx + Inherits BaseObject + Implements IFileData, IEmptyCheckable + Public Const DefaultDirectory As String = "D:\Store\" + Private Const ReadBytesSize As Integer = &H1000 + Private tempStream As Stream = Nothing + Private tempFileName As String = String.Empty + + _ + Private _Size As Integer + _ + Public ReadOnly Property Size() As Integer Implements IFileData.Size + Get + Return _Size + End Get + End Property + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Function ToString() As String + Return FileName + End Function + Private _Content() As Byte + _ + Public Property Content() As Byte() + Get + Return _Content + End Get + Set(ByVal value As Byte()) + SetPropertyValue("Content", _Content, value) + End Set + End Property + _ + Public ReadOnly Property IsEmpty() As Boolean Implements IEmptyCheckable.IsEmpty + Get + Return String.IsNullOrEmpty(_FileName) AndAlso Not Exists + End Get + End Property + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + If (Not Directory.Exists(DefaultDirectory)) Then + Directory.CreateDirectory(DefaultDirectory) + End If + End Sub + Private _FileName As String = String.Empty + _ + Public Property FileName() As String Implements IFileData.FileName + Get + Return _FileName + End Get + Set(ByVal value As String) + SetPropertyValue("FileName", _FileName, value) + End Set + End Property + Public ReadOnly Property RealFileName() As String + Get + + If _FileName <> String.Empty Then + Return Path.Combine(DefaultDirectory, GetUniqueFileName(_FileName)) + Else + Return String.Empty + End If + End Get + End Property + Protected Overridable Function GetUniqueFileName(ByVal shortFileName As String) As String + Return String.Format("{0}-{1}", Oid, shortFileName) + End Function + Protected Overridable Function GetShortFileName(ByVal uniqueFileName As String) As String + Return uniqueFileName.Replace(String.Format("{0}-", Oid), String.Empty).Replace(DefaultDirectory, String.Empty) + End Function + Public ReadOnly Property Exists() As Boolean + Get + Return File.Exists(RealFileName) + End Get + End Property + 'Dennis: fires when assigning a file. + Public Sub LoadFromStream(ByVal fileName As String, ByVal source As Stream) Implements IFileData.LoadFromStream + tempStream = source + 'Dennis: when assigning a new file we need to save the name of the old file to remove it from the store in the future. + If String.IsNullOrEmpty(tempFileName) Then + tempFileName = RealFileName + End If + Me.FileName = fileName + End Sub + 'Dennis: fires when saving or opening a file. + Public Sub SaveToStream(ByVal destination As Stream) Implements IFileData.SaveToStream + Try + Using source As Stream = File.OpenRead(RealFileName) + Dim buffer(ReadBytesSize - 1) As Byte + Dim read As Integer = 0 + read = source.Read(buffer, 0, buffer.Length) + Do While read > 0 + destination.Write(buffer, 0, read) + read = source.Read(buffer, 0, buffer.Length) + Loop + End Using + Catch exc As DirectoryNotFoundException + Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc) + Catch exc As FileNotFoundException + Throw New Exception(String.Format("Cannot access the '{0}' file because it is not found in the store.", FileName), exc) + End Try + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If tempStream IsNot Nothing AndAlso (Not String.IsNullOrEmpty(RealFileName)) Then + Dim source As Stream = Nothing + 'Dennis: for Windows Forms applications. + If TypeOf tempStream Is FileStream Then + Try + source = File.OpenRead((CType(tempStream, FileStream)).Name) + Catch exc As FileNotFoundException + Throw New Exception(String.Format("Cannot read the '{0}' file from a temporary store.", FileName), exc) + End Try + Else + 'Dennis: for Web Forms applications. + source = tempStream + End If + Try + Using destination As Stream = File.OpenWrite(RealFileName) + Dim buffer(ReadBytesSize - 1) As Byte + Dim read As Integer = 0 + read = source.Read(buffer, 0, buffer.Length) + Do While read > 0 + destination.Write(buffer, 0, read) + read = source.Read(buffer, 0, buffer.Length) + Loop + UpdateSize(destination) + End Using + Catch exc As DirectoryNotFoundException + Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc) + Finally + source.Close() + source = Nothing + End Try + End If + 'Dennis: removing the old file from the store when saving the current object. + If (Not String.IsNullOrEmpty(tempFileName)) Then + Try + File.Delete(tempFileName) + tempFileName = String.Empty + Catch exc As DirectoryNotFoundException + Throw New Exception(String.Format("Cannot access the '{0}' store because it is not available.", DefaultDirectory), exc) + End Try + End If + End Sub + Protected Overrides Sub OnDeleting() + 'Dennis: first we need to remove the old file from the store. + Clear() + MyBase.OnDeleting() + End Sub + Private Sub UpdateSize(ByVal stream As Stream) + If stream Is Nothing Then + _Size = 0 + Else + _Size = CInt(Fix(stream.Length)) + End If + End Sub + Public Sub Clear() Implements IFileData.Clear + 'Dennis: when clearing the file name property we need to save the name of the old file to remove it from the store in the future. + If String.IsNullOrEmpty(tempFileName) Then + tempFileName = RealFileName + End If + FileName = String.Empty + UpdateSize(Nothing) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/CustomTariffs.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/CustomTariffs.vb new file mode 100644 index 0000000..4539345 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/CustomTariffs.vb @@ -0,0 +1,60 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class CustomsTariffs + Inherits BaseObject + Private _CustomsTariffNumber As String + Private _Description As String + Private _NAVCode As String + Private _NAVDescription As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property CustomsTariffNumber As String + Get + Return _CustomsTariffNumber + End Get + Set(ByVal value As String) + SetPropertyValue("CustomsTariffNumber", _CustomsTariffNumber, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + Property NAVCode As String + Get + Return _NAVCode + End Get + Set(value As String) + SetPropertyValue("NAVCode", _NAVCode, value) + End Set + End Property + Property NAVDescription As String + Get + Return _NAVDescription + End Get + Set(value As String) + SetPropertyValue("NAVDescription", _NAVDescription, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/DocumentNote.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/DocumentNote.vb new file mode 100644 index 0000000..af1f6f0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/DocumentNote.vb @@ -0,0 +1,71 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class DocumentNote ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _ShortName As String + Private _IsActive As Boolean + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property IsActive As Boolean + Get + Return _IsActive + End Get + Set(value As Boolean) + SetPropertyValue("IsActive", _IsActive, value) + End Set + End Property + + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStock.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStock.vb new file mode 100644 index 0000000..ea07701 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStock.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class GeneralStock + Inherits BaseObject + Private _Name As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property Name() As String + Get + Return _Name + End Get + Set(ByVal value As String) + SetPropertyValue("Name", _Name, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.Designer.vb new file mode 100644 index 0000000..4bac9c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class GeneralStocks_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb new file mode 100644 index 0000000..33530c6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/GeneralStocks_VC.vb @@ -0,0 +1,38 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text + +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base + +Public Class GeneralStocks_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "CustomsTariffs_LookupListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "CustomsTariffs_LookupListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/Units.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/Units.vb new file mode 100644 index 0000000..81dbf8c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/GeneralStocks/Units.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class Units + Inherits BaseObject + Private _ShortName As String + Private _ShortName_Gb As String + Private _Shortname_De As String + Private _Description As String + Private _DefaultForBusinnes As Boolean = False + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property ShortName As String + Get + Return _ShortName + + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property ShortName_Gb As String + Get + Return _ShortName_Gb + + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName_Gb", _ShortName_Gb, value) + End Set + End Property + Property ShortName_De As String + Get + Return _Shortname_De + + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName_De", _Shortname_De, value) + End Set + End Property + Property Description As String + Get + Return _Description + + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property DefaultForBusinnes As Boolean + Get + Return _DefaultForBusinnes + End Get + Set(value As Boolean) + SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRGroups.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRGroups.vb new file mode 100644 index 0000000..16ab826 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRGroups.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class HRGroups + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + _ + ReadOnly Property HRPerson() As XPCollection(Of HRPerson) + Get + Return GetCollection(Of HRPerson)("HRPerson") + End Get + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description() As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson.vb new file mode 100644 index 0000000..db14ac3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson.vb @@ -0,0 +1,382 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.Persistent.Base.General +Imports System.Drawing + + +Public Enum eEMailMode + eOutlook = 0 + eExchange = 1 + ePOP3 = 2 +End Enum + _ + _ + _ +Public Class HRPerson + Inherits Person + Implements IResource + Private _Contact As Contacts 'Kapcsolat + Private _User As User 'Program felhasználó + Private _ShortName As String 'Rövid megnevezés + Private _Barcode As String 'Vonalkód + Private _Job As String 'Munkakör + Private _Post As String 'Beosztás + Private _UniqueObjects As UniqueObjects + + Private _EMailMode As eEMailMode + '//Outlook settings + Private _DefaultOutlookFolder As String + Private _DefaultOutlookFolderEntryID As String + Private _HRPerson_OutlookFolder As HRPerson_OutlookFolder + '//Exchange + Private _ExchangeHost As String + + '//POP3 SMTP + Private _SMTPHost As String + Private _SMTPPort As Long = 25 + Private _SMTPUserName As String + Private _SMTPPassword As String + + Private _POP3Host As String + Private _POP3Port As Long = 110 + Private _POP3UserName As String + Private _POP3Password As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub +#If MediumTrust Then + _ + Public color_Renamed As Int32 +#Else + _ + Private color_Renamed As Int32 +#End If + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + Dim _HRPerson_OutlookFolderCollection As New XPCollection(Of HRPerson_OutlookFolder)(Session, CriteriaOperator.Parse("1=1")) + Session.Delete(_HRPerson_OutlookFolderCollection) + + If Session.IsNewObject(Me) Then + UniqueObjects = New UniqueObjects(Session) + UniqueObjects.Name = FullName + UniqueObjects.HRPerson = Me + UniqueObjects.Save() + End If + End Sub + Protected Overrides Sub OnSaved() + MyBase.OnSaved() + Me.HRPerson_OutlookFolder = Nothing + Dim _HRPerson_OutlookFolderCollection As New XPCollection(Of HRPerson_OutlookFolder)(Session, CriteriaOperator.Parse("1=1")) + Session.Delete(_HRPerson_OutlookFolderCollection) + End Sub + '// IResources + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + color_Renamed = Color.White.ToArgb() + End Sub + _ + Public ReadOnly Property Id() As Object Implements IResource.Id + Get + Return Oid + End Get + End Property + Public Property Caption() As String Implements IResource.Caption + Get + Return Me.FullName + End Get + Set(ByVal value As String) + 'UserName = value + OnChanged("Caption") + End Set + End Property + _ + Public ReadOnly Property OleColor() As Int32 Implements IResource.OleColor + Get + Return ColorTranslator.ToOle(Color.FromArgb(color_Renamed)) + End Get + End Property + _ + Public ReadOnly Property Events() As XPCollection(Of HRPersonEvent) + Get + Return GetCollection(Of HRPersonEvent)("Events") + End Get + End Property + _ + Public Property Color() As Color + Get + Return Color.FromArgb(color_Renamed) + End Get + Set(ByVal value As Color) + color_Renamed = value.ToArgb() + OnChanged("Color") + End Set + End Property + + '// Base property + Property Contact() As Contacts + Get + Return _Contact + End Get + Set(ByVal value As Contacts) + SetPropertyValue("Contatcts", _Contact, value) + End Set + End Property + Property User() As User + Get + Return _User + End Get + Set(ByVal value As User) + SetPropertyValue("User", _User, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + If _User IsNot Nothing Then + Me.Address1 = _User.Address1 + Me.Address2 = _User.Address2 + Me.Birthday = _User.Birthday + Me.Email = _User.Email + Me.FirstName = _User.FirstName + Me.LastName = _User.LastName + Me.MiddleName = _User.MiddleName + End If + End If + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Barcode As String + Get + Return _Barcode + End Get + Set(value As String) + SetPropertyValue("Barcode", _Barcode, value) + End Set + End Property + Property Job As String + Get + Return _Job + End Get + Set(value As String) + SetPropertyValue("Job", _Job, value) + End Set + End Property + Property Post As String + Get + Return _Post + End Get + Set(value As String) + SetPropertyValue("Post", _Post, value) + End Set + End Property + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + + Property EMailMode As eEMailMode + Get + Return _EMailMode + End Get + Set(value As eEMailMode) + SetPropertyValue("EMailMode", _EMailMode, value) + End Set + End Property + + '// Outlook settings + Property DefaultOutlookFolder As String + Get + Return _DefaultOutlookFolder + End Get + Set(value As String) + SetPropertyValue("DefaultOutlookFolder", _DefaultOutlookFolder, value) + End Set + End Property + _ + Property DefaultOutlookFolderEntryID As String + Get + Return _DefaultOutlookFolderEntryID + End Get + Set(value As String) + SetPropertyValue("DefaultOutlookFolderEntryID", _DefaultOutlookFolderEntryID, value) + End Set + End Property + _ + _ + Property HRPerson_OutlookFolder As HRPerson_OutlookFolder + Get + Return _HRPerson_OutlookFolder + End Get + Set(value As HRPerson_OutlookFolder) + + SetPropertyValue("HRPerson_OutlookFolder", _HRPerson_OutlookFolder, value) + + If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then + If Me.HRPerson_OutlookFolder IsNot Nothing Then + Me.DefaultOutlookFolder = Me.HRPerson_OutlookFolder.FolderPath + Me.DefaultOutlookFolderEntryID = Me.HRPerson_OutlookFolder.EntryID + End If + End If + End Set + End Property + '//Exchange settings + + '//POP3 SMTP settings + Property SMTPHost As String + Get + Return _SMTPHost + End Get + Set(value As String) + SetPropertyValue("SMTPHost", _SMTPHost, value) + End Set + End Property + Property SMTPPort As Long + Get + Return _SMTPPort + End Get + Set(value As Long) + SetPropertyValue("SMTPPort", _SMTPPort, value) + End Set + End Property + Property SMTPUserName As String + Get + Return _SMTPUserName + End Get + Set(value As String) + SetPropertyValue("SMTPUserName", _SMTPUserName, value) + End Set + End Property + _ + _ + Property SMTPPassword As String + Get + Return _SMTPPassword + End Get + Set(value As String) + SetPropertyValue("SMTPPassword", _SMTPPassword, value) + End Set + End Property + + Property POP3Host As String + Get + Return _POP3Host + End Get + Set(value As String) + SetPropertyValue("POP3Host", _POP3Host, value) + End Set + End Property + Property POP3Port As Long + Get + Return _POP3Port + End Get + Set(value As Long) + SetPropertyValue("POP3Port", _POP3Port, value) + End Set + End Property + Property POP3UserName As String + Get + Return _POP3UserName + End Get + Set(value As String) + SetPropertyValue("POP3UserName", _POP3UserName, value) + End Set + End Property + _ + _ + Property POP3Password As String + Get + Return _POP3Password + End Get + Set(value As String) + SetPropertyValue("POP3Password", _POP3Password, value) + End Set + End Property + + '---------------ReadOnly-------------- + _ + _ + ReadOnly Property HRGroups() As XPCollection(Of HRGroups) + Get + Return GetCollection(Of HRGroups)("HRGroups") + End Get + End Property + _ + ReadOnly Property FixedAssets_Collection As XPCollection(Of FixedAssets) + Get + '// Kiadott tárgyieszközök kollekciója + Return New XPCollection(Of FixedAssets)(Session, CriteriaOperator.Parse("HRPerson_Using=?", Me)) + End Get + End Property + _ + ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder) + Get + Return GetCollection(Of HRPersonCostHolder)("HRPersonCostHolder") + End Get + End Property + _ + ReadOnly Property HRPersonCustomers As XPCollection(Of HRPersonCustomers) + Get + Return GetCollection(Of HRPersonCustomers)("HRPersonCustomers") + End Get + End Property + _ + ReadOnly Property HRPersonTask As XPCollection(Of HRPersonTasks) + Get + Return New XPCollection(Of HRPersonTasks)(Session, CriteriaOperator.Parse("HRPerson=?", Me)) + End Get + End Property + _ + ReadOnly Property CustomersThemesHRPerson As XPCollection(Of CustomersThemesHRPerson) + Get + Return New XPCollection(Of CustomersThemesHRPerson)(Session, CriteriaOperator.Parse("HRPerson=?", Me)) + End Get + End Property + Private ReadOnly Property HRPerson_OutlookFolderCollection As XPCollection(Of HRPerson_OutlookFolder) + Get + Dim _HRPerson_OutlookFolderCollection As New XPCollection(Of HRPerson_OutlookFolder)(Session, CriteriaOperator.Parse("HRPerson=?", Me)) + Session.Delete(_HRPerson_OutlookFolderCollection) + Dim _OutlookApp As New Microsoft.Office.Interop.Outlook.Application() + Dim _OutlookNameSpace As Microsoft.Office.Interop.Outlook.NameSpace + + _OutlookNameSpace = _OutlookApp.GetNamespace("MAPI") + _OutlookNameSpace.Logon(, , False, True) + For Each _BaseFolder As Microsoft.Office.Interop.Outlook.Folder In _OutlookNameSpace.Folders + OutlookFolderList(_BaseFolder, _HRPerson_OutlookFolderCollection) + Next + '_HRPerson_OutlookFolderCollection.Criteria = CriteriaOperator.Parse("HRPerson=?", Me) + Return _HRPerson_OutlookFolderCollection + End Get + End Property + Private Sub OutlookFolderList(_OutlookFolder As Microsoft.Office.Interop.Outlook.Folder, HRPerson_OutlookFolderCollection As XPCollection(Of [Module].HRPerson_OutlookFolder)) + If _OutlookFolder.Folders.Count > 0 Then + For _ik = 1 To _OutlookFolder.Folders.Count + OutlookFolderList(_OutlookFolder.Folders(_ik), HRPerson_OutlookFolderCollection) + Next + Else + Dim _HRPerson_OutlookFolder As New HRPerson_OutlookFolder(Session) + _HRPerson_OutlookFolder.EntryID = _OutlookFolder.EntryID.ToString + _HRPerson_OutlookFolder.FolderPath = _OutlookFolder.FolderPath + _HRPerson_OutlookFolder.HRPerson = Me + + HRPerson_OutlookFolderCollection.Add(_HRPerson_OutlookFolder) + End If + + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCostHolder.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCostHolder.vb new file mode 100644 index 0000000..5cb59ae --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCostHolder.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class HRPersonCostHolder + Inherits BaseObject + Private _HRPerson As HRPerson + Private _CostHolder As CostHolder + Private _DateFrom As Date + Private _DateTo As Date + Private _WorkPercent As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property CostHolder As CostHolder + Get + Return _CostHolder + End Get + Set(value As CostHolder) + SetPropertyValue("CostHolder", _CostHolder, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value.Date) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value.Date) + End Set + End Property + Property WorkPercent As Double + Get + Return _WorkPercent + End Get + Set(value As Double) + SetPropertyValue("WorkPercent", _WorkPercent, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCustomers.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCustomers.vb new file mode 100644 index 0000000..a6e149b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonCustomers.vb @@ -0,0 +1,75 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class HRPersonCustomers + Inherits BaseObject + Private _HRPerson As HRPerson + Private _Customers As Customers + Private _DateFrom As Date + Private _DateTo As Date + Private _WorkPercent As Double + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DateFrom As Date + Get + Return _DateFrom + End Get + Set(value As Date) + SetPropertyValue("DateFrom", _DateFrom, value.Date) + End Set + End Property + Property DateTo As Date + Get + Return _DateTo + End Get + Set(value As Date) + SetPropertyValue("DateTo", _DateTo, value.Date) + End Set + End Property + Property WorkPercent As Double + Get + Return _WorkPercent + End Get + Set(value As Double) + SetPropertyValue("WorkPercent", _WorkPercent, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEvent.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEvent.vb new file mode 100644 index 0000000..5ecd489 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEvent.vb @@ -0,0 +1,220 @@ +Imports Microsoft.VisualBasic +Imports System + +Imports DevExpress.Xpo + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports DevExpress.Xpo.Metadata +Imports System.ComponentModel +Imports System.Xml + + + _ +Public Class HRPersonEvent + Inherits DevExpress.Persistent.BaseImpl.BaseObject + Implements IEvent, IRecurrentEvent + +#If MediumTrust Then + _ + Public resourceIds As String +#Else + _ + Private resourceIds As String +#End If + Private _appointmentImpl As New EventImpl + _ + Private recurrencePattern_Renamed As DevExpress.Persistent.BaseImpl.Event + Private recurrenceInfoXml_Renamed As String + Private Sub UpdateResources() + Resources.SuspendChangedEvents() + Try + Do While Resources.Count > 0 + Resources.Remove(Resources(0)) + Loop + If (Not String.IsNullOrEmpty(resourceIds)) Then + Dim xmlDocument As New XmlDocument() + xmlDocument.LoadXml(resourceIds) + For Each xmlNode As XmlNode In xmlDocument.DocumentElement.ChildNodes + Dim resource As HRPerson = Session.GetObjectByKey(Of HRPerson)(New Guid(xmlNode.Attributes("Value").Value)) + If resource IsNot Nothing Then + Resources.Add(resource) + End If + Next xmlNode + End If + Finally + Resources.ResumeChangedEvents() + End Try + End Sub + Private Sub Resources_CollectionChanged(ByVal sender As Object, ByVal e As XPCollectionChangedEventArgs) + If (e.CollectionChangedType = XPCollectionChangedType.AfterAdd) OrElse (e.CollectionChangedType = XPCollectionChangedType.AfterRemove) Then + UpdateResourceIds() + OnChanged("ResourceId") + End If + End Sub + Private Sub session_ObjectSaving(ByVal sender As Object, ByVal e As ObjectManipulationEventArgs) + End Sub + Protected Overloads Overrides Function CreateCollection(ByVal [property] As XPMemberInfo) As XPCollection + Dim result As XPCollection = MyBase.CreateCollection([property]) + If [property].Name = "Resources" Then + AddHandler result.CollectionChanged, AddressOf Resources_CollectionChanged + End If + Return result + End Function + Public Sub New(ByVal session As Session) + MyBase.New(session) + + AddHandler session.ObjectSaving, AddressOf session_ObjectSaving + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + _appointmentImpl = New EventImpl + _appointmentImpl.AfterConstruction() + End Sub + Public Sub UpdateResourceIds() + resourceIds = "" & Constants.vbCrLf + For Each resource As HRPerson In Resources + resourceIds &= String.Format("" & Constants.vbCrLf, resource.Id.GetType().FullName, resource.Id) + Next resource + resourceIds &= "" + End Sub + _ + Public ReadOnly Property AppointmentId() As Object Implements IEvent.AppointmentId + Get + Return Oid + End Get + End Property + _ + Public Property Subject() As String Implements IEvent.Subject + Get + Return _appointmentImpl.Subject + End Get + Set(ByVal value As String) + _appointmentImpl.Subject = value + OnChanged("Subject", Nothing, value) + End Set + End Property + _ + Public Property Description() As String Implements IEvent.Description + Get + Return _appointmentImpl.Description + End Get + Set(ByVal value As String) + _appointmentImpl.Description = value + OnChanged("Description") + End Set + End Property + _ + Public Property StartOn() As DateTime Implements IEvent.StartOn + Get + Return _appointmentImpl.StartOn + End Get + Set(ByVal value As DateTime) + _appointmentImpl.StartOn = value + OnChanged("StartOn") + End Set + End Property + _ + Public Property EndOn() As DateTime Implements IEvent.EndOn + Get + Return _appointmentImpl.EndOn + End Get + Set(ByVal value As DateTime) + _appointmentImpl.EndOn = value + OnChanged("EndOn") + End Set + End Property + Public Property AllDay() As Boolean Implements IEvent.AllDay + Get + Return _appointmentImpl.AllDay + End Get + Set(ByVal value As Boolean) + _appointmentImpl.AllDay = value + OnChanged("AllDay") + End Set + End Property + Public Property Location() As String Implements IEvent.Location + Get + Return _appointmentImpl.Location + End Get + Set(ByVal value As String) + _appointmentImpl.Location = value + OnChanged("Location") + End Set + End Property + Public Property Label() As Integer Implements IEvent.Label + Get + Return _appointmentImpl.Label + End Get + Set(ByVal value As Integer) + _appointmentImpl.Label = value + OnChanged("Label") + End Set + End Property + Public Property Status() As Integer Implements IEvent.Status + Get + Return _appointmentImpl.Status + End Get + Set(ByVal value As Integer) + _appointmentImpl.Status = value + OnChanged("Status") + End Set + End Property + Public Property Type() As Integer Implements IEvent.Type + Get + Return _appointmentImpl.Type + End Get + Set(ByVal value As Integer) + _appointmentImpl.Type = value + OnChanged("Type") + End Set + End Property + _ + Public ReadOnly Property Resources() As XPCollection(Of HRPerson) + Get + Return GetCollection(Of HRPerson)("Resources") + End Get + End Property + _ + Public Property ResourceId() As String Implements IEvent.ResourceId + Get + If resourceIds Is Nothing Then + UpdateResourceIds() + End If + Return resourceIds + End Get + Set(ByVal value As String) + If resourceIds <> value Then + resourceIds = value + UpdateResources() + End If + End Set + End Property + _ + Public Property RecurrenceInfoXml() As String Implements IRecurrentEvent.RecurrenceInfoXml + Get + Return recurrenceInfoXml_Renamed + End Get + Set(ByVal value As String) + recurrenceInfoXml_Renamed = value + OnChanged("RecurrenceInfoXml") + End Set + End Property + Public Property RecurrencePattern() As IRecurrentEvent Implements IRecurrentEvent.RecurrencePattern + Get + Return recurrencePattern_Renamed + End Get + Set(ByVal value As IRecurrentEvent) + recurrencePattern_Renamed = CType(value, DevExpress.Persistent.BaseImpl.Event) + OnChanged("RecurrencePattern") + End Set + End Property + _ + Public ReadOnly Property IsIntervalValid() As Boolean + Get + Return StartOn < EndOn + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEventCriteria.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEventCriteria.vb new file mode 100644 index 0000000..e92d769 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonEventCriteria.vb @@ -0,0 +1,68 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class HRPersonEventCriteria + Inherits BaseObject + + Private _ViewID As String + Private _Criteria As String + Private _ActiveViewType As Long = 3 + Private _User As User + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + End Set + End Property + _ + Property Criteria As String + Get + Return _Criteria + End Get + Set(value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + Property ActiveViewType As Long + Get + Return _ActiveViewType + End Get + Set(value As Long) + SetPropertyValue("ActiveViewType", _ActiveViewType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks.vb new file mode 100644 index 0000000..df61143 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks.vb @@ -0,0 +1,180 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors + + _ + _ + _ +Public Class HRPersonTasks + Inherits Task + Private _HRPerson As HRPerson + Private _HRPersonAlias As HRPerson + Private _ObjectCreated As Date + Private _UserCreated As User + Private _AlertPeriod As AlertPeriod 'A feladat temezse + Private _AlertPeriodAlias As AlertPeriod 'A feladatot kiadta + + Private _HRPersonEvent As HRPersonEvent + Private _HRPersonEventAlias As HRPersonEvent + + Private _IsView As Boolean = False 'Van-e valamilyen view, amit az alertbl lehet meghvni + Private _ViewID As String 'View ID + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If _User IsNot Nothing Then + Me.HRPersonAlias = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", _User)) + End If + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + '//Esemny lejrt hatridvel a felelsnek ! + + If Me.HRPersonEvent Is Nothing Then + Me.HRPersonEvent = New HRPersonEvent(Session) + Me.HRPersonEvent.Resources.Add(HRPerson) + End If + Me.HRPersonEvent.StartOn = New Date(Me.DueDate.Year, Me.DueDate.Month, Me.DueDate.Day, 8, 0, 0) + Me.HRPersonEvent.EndOn = New Date(Me.DueDate.Year, Me.DueDate.Month, Me.DueDate.Day, 10, 0, 0) + Me.HRPersonEvent.Subject = Me.Subject + Me.HRPersonEvent.Description = Me.Description + + '//Esemny lejrt hatridvel a feladatot kiadnak + If Me.HRPersonEventAlias Is Nothing Then + Me.HRPersonEventAlias = New HRPersonEvent(Session) + Me.HRPersonEventAlias.Resources.Add(HRPersonAlias) + End If + Me.HRPersonEventAlias.StartOn = New Date(Me.DueDate.Year, Me.DueDate.Month, Me.DueDate.Day, 8, 0, 0) + Me.HRPersonEventAlias.EndOn = New Date(Me.DueDate.Year, Me.DueDate.Month, Me.DueDate.Day, 10, 0, 0) + Me.HRPersonEventAlias.Subject = Me.Subject + Me.HRPersonEventAlias.Description = Me.Description + + End Sub + Protected Overrides Sub OnDeleting() + MyBase.OnDeleting() + If Me.HRPersonEvent IsNot Nothing Then + Session.Delete(Me.HRPersonEvent) + End If + If Me.HRPersonEventAlias IsNot Nothing Then + Session.Delete(Me.HRPersonEventAlias) + End If + End Sub + _ + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property HRPersonAlias As HRPerson + Get + Return _HRPersonAlias + End Get + Set(value As HRPerson) + SetPropertyValue("HRPersonAlias", _HRPersonAlias, value) + End Set + End Property + _ + Overloads Property AssignedTo As Party + Get + Return MyBase.AssignedTo + End Get + Set(value As Party) + MyBase.AssignedTo = value + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + Property AlertPeriodAlias As AlertPeriod + Get + Return _AlertPeriodAlias + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriodAlias", _AlertPeriodAlias, value) + End Set + End Property + + _ + Property HRPersonEvent As HRPersonEvent + Get + Return _HRPersonEvent + End Get + Set(value As HRPersonEvent) + SetPropertyValue("HRPersonEvent", _HRPersonEvent, value) + End Set + End Property + _ + Property HRPersonEventAlias As HRPersonEvent + Get + Return _HRPersonEventAlias + End Get + Set(value As HRPersonEvent) + SetPropertyValue("HRPersonEventAlias", _HRPersonEventAlias, value) + End Set + End Property + + _ + Property IsView As Boolean + Get + Return _IsView + End Get + Set(value As Boolean) + SetPropertyValue("IsView", _IsView, value) + End Set + End Property + _ + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.Designer.vb new file mode 100644 index 0000000..06c7d11 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class HRPersonTasks_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aHRPersonTask_SetViewID = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aHRPersonTask_SetViewID + ' + Me.aHRPersonTask_SetViewID.AcceptButtonCaption = Nothing + Me.aHRPersonTask_SetViewID.CancelButtonCaption = Nothing + Me.aHRPersonTask_SetViewID.Caption = "aHRPersonTask_SetViewID" + Me.aHRPersonTask_SetViewID.Category = "aHRPersonTask_SetViewID" + Me.aHRPersonTask_SetViewID.ConfirmationMessage = Nothing + Me.aHRPersonTask_SetViewID.Id = "aHRPersonTask_SetViewID" + Me.aHRPersonTask_SetViewID.ImageName = Nothing + Me.aHRPersonTask_SetViewID.Shortcut = Nothing + Me.aHRPersonTask_SetViewID.Tag = Nothing + Me.aHRPersonTask_SetViewID.TargetObjectsCriteria = Nothing + Me.aHRPersonTask_SetViewID.TargetObjectType = GetType(SISBusiness.[Module].HRPersonTasks) + Me.aHRPersonTask_SetViewID.TargetViewId = Nothing + Me.aHRPersonTask_SetViewID.ToolTip = Nothing + Me.aHRPersonTask_SetViewID.TypeOfView = Nothing + + End Sub + Friend WithEvents aHRPersonTask_SetViewID As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.resx new file mode 100644 index 0000000..14f32c1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 860, 178 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.vb new file mode 100644 index 0000000..cb62aca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPersonTasks_VC.vb @@ -0,0 +1,74 @@ +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 +Imports DevExpress.ExpressApp.Utils + +Public Class HRPersonTasks_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "HRPersonTasks_ListView_CurrentUser" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ListView As ListView = TryCast(View, ListView) + If _ListView IsNot Nothing Then + Dim _User As DevExpress.Persistent.BaseImpl.User = TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User) + + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria.Add("CurrentUser", DevExpress.Data.Filtering.CriteriaOperator.Parse("HRPersonAlias.User=? OR HRPerson.User=?", _ocur.GetObject(_User), _ocur.GetObject(_User))) + _ListView.CollectionSource.EndUpdateCriteria() + End If + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + End Sub + Private Sub aHRPersonTask_SetViewID_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aHRPersonTask_SetViewID.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _CS As New CollectionSource(_onew, GetType(HRPErsonTask_ViewList_PopUp)) + + For Each _Node As IModelView In View.Model.Application.Views + If _Node.Id Like "@@*" Then + Dim _HRPErsonTask_ViewList_PopUp As HRPErsonTask_ViewList_PopUp = _onew.CreateObject(Of HRPErsonTask_ViewList_PopUp)() + _HRPErsonTask_ViewList_PopUp.IDName = _Node.Id + _HRPErsonTask_ViewList_PopUp.IDCaption = _Node.Caption + _CS.Add(_HRPErsonTask_ViewList_PopUp) + End If + Next _Node + + e.View = Application.CreateListView("HRPErsonTask_ViewList_PopUp_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aHRPersonTask_SetViewID_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aHRPersonTask_SetViewID.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _HRPErsonTask_ViewList_PopUp As HRPErsonTask_ViewList_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), HRPErsonTask_ViewList_PopUp) + If _HRPErsonTask_ViewList_PopUp Is Nothing Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + + Dim _HRPersonTasks As HRPersonTasks = TryCast(View.SelectedObjects(0), HRPersonTasks) + If _HRPersonTasks Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + _HRPersonTasks.ViewID = _HRPErsonTask_ViewList_PopUp.IDName + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_OutlookFolder.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_OutlookFolder.vb new file mode 100644 index 0000000..2fb53c3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_OutlookFolder.vb @@ -0,0 +1,26 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class HRPerson_OutlookFolder + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property FolderPath As String + Property EntryID As String + Property HRPerson As HRPerson +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb new file mode 100644 index 0000000..ce7c5c9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.Designer.vb @@ -0,0 +1,107 @@ +Partial Class HRPerson_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aMergeUsers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateUniqeObjects = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloneHRPersonTasks = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aMergeHRPerson = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aMergeUsers + ' + Me.aMergeUsers.Caption = "aMergeUsers" + Me.aMergeUsers.Category = "ObjectsCreation" + Me.aMergeUsers.ConfirmationMessage = "Do you want to execute?" + Me.aMergeUsers.Id = "aMergeUsers" + Me.aMergeUsers.ImageName = Nothing + Me.aMergeUsers.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMergeUsers.Shortcut = Nothing + Me.aMergeUsers.Tag = Nothing + Me.aMergeUsers.TargetObjectsCriteria = Nothing + Me.aMergeUsers.TargetViewId = "User_ListView_Deleted" + Me.aMergeUsers.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMergeUsers.ToolTip = Nothing + Me.aMergeUsers.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCreateUniqeObjects + ' + Me.aCreateUniqeObjects.Caption = "aCreateUniqeObjects" + Me.aCreateUniqeObjects.Category = "ObjectsCreation" + Me.aCreateUniqeObjects.ConfirmationMessage = "Do you want to execute?" + Me.aCreateUniqeObjects.Id = "aCreateUniqeObjects" + Me.aCreateUniqeObjects.ImageName = Nothing + Me.aCreateUniqeObjects.Shortcut = Nothing + Me.aCreateUniqeObjects.Tag = Nothing + Me.aCreateUniqeObjects.TargetObjectsCriteria = Nothing + Me.aCreateUniqeObjects.TargetObjectType = GetType(SISBusiness.[Module].HRPerson) + Me.aCreateUniqeObjects.TargetViewId = "" + Me.aCreateUniqeObjects.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aCreateUniqeObjects.ToolTip = Nothing + Me.aCreateUniqeObjects.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aCloneHRPersonTasks + ' + Me.aCloneHRPersonTasks.AcceptButtonCaption = Nothing + Me.aCloneHRPersonTasks.CancelButtonCaption = Nothing + Me.aCloneHRPersonTasks.Caption = "aClone HRPerson Tasks" + Me.aCloneHRPersonTasks.Category = "ObjectsCreation" + Me.aCloneHRPersonTasks.ConfirmationMessage = Nothing + Me.aCloneHRPersonTasks.Id = "aCloneHRPersonTasks" + Me.aCloneHRPersonTasks.ImageName = Nothing + Me.aCloneHRPersonTasks.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCloneHRPersonTasks.Shortcut = Nothing + Me.aCloneHRPersonTasks.Tag = Nothing + Me.aCloneHRPersonTasks.TargetObjectsCriteria = Nothing + Me.aCloneHRPersonTasks.TargetObjectType = GetType(SISBusiness.[Module].HRPersonTasks) + Me.aCloneHRPersonTasks.TargetViewId = Nothing + Me.aCloneHRPersonTasks.ToolTip = Nothing + Me.aCloneHRPersonTasks.TypeOfView = Nothing + ' + 'aMergeHRPerson + ' + Me.aMergeHRPerson.Caption = "aMergeHRPerson" + Me.aMergeHRPerson.Category = "ObjectsCreation" + Me.aMergeHRPerson.ConfirmationMessage = "Do you want to execute?" + Me.aMergeHRPerson.Id = "aMergeHRPerson" + Me.aMergeHRPerson.ImageName = Nothing + Me.aMergeHRPerson.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aMergeHRPerson.Shortcut = Nothing + Me.aMergeHRPerson.Tag = Nothing + Me.aMergeHRPerson.TargetObjectsCriteria = Nothing + Me.aMergeHRPerson.TargetViewId = "HRPerson_ListView_Deleted" + Me.aMergeHRPerson.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aMergeHRPerson.ToolTip = Nothing + Me.aMergeHRPerson.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aCreateUniqeObjects As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aCloneHRPersonTasks As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aMergeUsers As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aMergeHRPerson As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.resx new file mode 100644 index 0000000..e58fb77 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 236, 56 + + + 17, 95 + + + 17, 56 + + + 184, 95 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb new file mode 100644 index 0000000..760d863 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/HRPerson_VC.vb @@ -0,0 +1,230 @@ +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.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Utils +Imports System.Reflection +Imports DevExpress.Data.Filtering + +Public Class HRPerson_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If SecuritySystem.CurrentUserName <> "SysAdmin" Then Frame.GetController(Of HRPerson_VC).aCreateUniqeObjects.Active.SetItemValue("", False) + + If View.Id = "User_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + If View.Id = "HRPerson_ListView_Deleted" Then + If TryCast(View, ListView) IsNot Nothing Then + If TryCast(View, ListView).CollectionSource IsNot Nothing Then + If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then + If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then + If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then + TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True + End If + End If + End If + End If + End If + End If + End If + End Sub + Private Sub aCreateUniqeObjects_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateUniqeObjects.Execute + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer) + For Each _HRPerson As HRPerson In View.SelectedObjects + If _HRPerson.UniqueObjects Is Nothing Then + Dim _UniqueObjects As UniqueObjects = New UniqueObjects(_uow) + _UniqueObjects.Name = _HRPerson.FullName + _UniqueObjects.HRPerson = _uow.GetObjectByKey(Of HRPerson)(_HRPerson.Oid) + _UniqueObjects.HRPerson.UniqueObjects = _UniqueObjects + End If + Next + _uow.CommitChanges() + End Sub + Private Sub aCloneHRPersonTasks_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloneHRPersonTasks.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ContractRowsCloneView As ContractRowsCloneView = _onew.CreateObject(Of ContractRowsCloneView)() + + _ContractRowsCloneView.DayOfExecution = eDayOfMonth.e1 + _ContractRowsCloneView.ActionFrequency = eActionFrequency.eMonthly + _ContractRowsCloneView.DayOfExecutionInWeek = eDayOfWeek.eMonday + _ContractRowsCloneView.ActionCount = 1 + + e.View = Application.CreateDetailView(_onew, "ContractRowsCloneView_DetailView_HRPerson", False, _ContractRowsCloneView) + End Sub + Private Sub aCloneHRPersonTasks_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloneHRPersonTasks.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Try + Dim _HRPersonTasks As HRPersonTasks = TryCast(View.SelectedObjects(0), HRPersonTasks) + If _HRPersonTasks Is Nothing Then Throw New Exception("*Nincs kivlasztott feladat!") + Dim _ContractRowsCloneView As ContractRowsCloneView = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractRowsCloneView) + If _ContractRowsCloneView Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + + Dim _DateStart As Date + Dim _DateCur As Date + Dim _DiffDay As Long + + RaiseEvent InitWork(1, 1, _ContractRowsCloneView.ActionCount) + For i = 1 To _ContractRowsCloneView.ActionCount + Dim _HRPersonTasks_New As HRPersonTasks = _ocur.CreateObject(Of HRPersonTasks)() + _HRPersonTasks_New.AlertPeriod = _HRPersonTasks.AlertPeriod + _HRPersonTasks_New.AlertPeriodAlias = _HRPersonTasks.AlertPeriodAlias + _HRPersonTasks_New.AssignedTo = _HRPersonTasks.AssignedTo + _HRPersonTasks_New.Description = _HRPersonTasks.Description + _HRPersonTasks_New.HRPerson = _HRPersonTasks.HRPerson + _HRPersonTasks_New.HRPersonAlias = _HRPersonTasks.HRPersonAlias + _HRPersonTasks_New.Subject = _HRPersonTasks.Subject + + _DateStart = _HRPersonTasks.DueDate + + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eDaily Then + _DateCur = DateAdd(DateInterval.Day, i, _DateStart) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eMonthly Then + If _ContractRowsCloneView.DayOfExecution = eDayOfMonth.eLastDay Then + _DateCur = DateAdd(DateInterval.Month, i + 1, _DateStart) + _DateCur = DateAdd(DateInterval.Day, -1, CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/01")) + Else + _DateCur = DateAdd(DateInterval.Month, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eWeekly Then + _DiffDay = _ContractRowsCloneView.DayOfExecutionInWeek - DatePart(DateInterval.Weekday, _DateStart) + _DiffDay += 1 + _DateCur = DateAdd(DateInterval.WeekOfYear, i, _DateStart) + _DateCur = DateAdd(DateInterval.Day, _DiffDay, _DateCur) + + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eTwoWeekly Then + _DiffDay = _ContractRowsCloneView.DayOfExecutionInWeek - DatePart(DateInterval.Weekday, _DateStart) + _DiffDay += 1 + _DateCur = DateAdd(DateInterval.WeekOfYear, i * 2, _DateStart) + _DateCur = DateAdd(DateInterval.Day, _DiffDay, _DateCur) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eQuarter Then + _DateCur = DateAdd(DateInterval.Quarter, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + If _ContractRowsCloneView.ActionFrequency = eActionFrequency.eYear Then + _DateCur = DateAdd(DateInterval.Year, i, _DateStart) + _DateCur = CDate(Year(_DateCur) & "/" & Month(_DateCur) & "/" & _ContractRowsCloneView.DayOfExecution) + End If + _HRPersonTasks_New.DueDate = _DateCur + RaiseEvent DoWork() + Next + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + Finally + RaiseEvent FinalWork + End Try + End Sub + + Private Sub aMergeUsers_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeUsers.Execute + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Object As Object + Dim _User As User + Dim _UserActive As User + + For Each _User In View.SelectedObjects + + _UserActive = _onew.FindObject(Of User)(CriteriaOperator.Parse("UserName=?", _User.UserName)) + If _UserActive IsNot Nothing Then + RaiseEvent InitWork(1, 1, _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of User)(_User.Oid)).Count) + For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of User)(_User.Oid)) + RaiseEvent DoWork() + Try + For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties + If _PropertyInfo.PropertyType.Name = "User" Then + _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of User)(_UserActive.Oid), Nothing) + End If + Next + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + Next + RaiseEvent FinalWork + End If + Next + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + Finally + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub + + Private Sub aMergeHRPerson_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aMergeHRPerson.Execute + Try + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Object As Object + Dim _HRPerson As HRPerson + Dim _HRPersonActive As HRPerson + + For Each _HRPerson In View.SelectedObjects + + _HRPersonActive = _onew.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.UserName=?", _HRPerson.User.UserName)) + If _HRPersonActive IsNot Nothing Then + RaiseEvent InitWork(1, 1, _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of HRPerson)(_HRPerson.Oid)).Count) + For Each _Object In _onew.Session.CollectReferencingObjects(_onew.GetObjectByKey(Of HRPerson)(_HRPerson.Oid)) + RaiseEvent DoWork() + Try + For Each _PropertyInfo As PropertyInfo In _Object.GetType.GetProperties + If _PropertyInfo.PropertyType.Name = "HRPerson" Then + _PropertyInfo.SetValue(_Object, _onew.GetObjectByKey(Of HRPerson)(_HRPersonActive.Oid), Nothing) + End If + Next + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + Next + RaiseEvent FinalWork + End If + Next + _onew.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message) + Finally + + Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/PopUp/HRPErsonTask_ViewList_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/PopUp/HRPErsonTask_ViewList_PopUp.vb new file mode 100644 index 0000000..72a4462 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/HR/PopUp/HRPErsonTask_ViewList_PopUp.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class HRPErsonTask_ViewList_PopUp + Inherits BaseObject + + Private _IDName As String + Private _IDCaption As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property IDName As String + Get + Return _IDName + End Get + Set(value As String) + SetPropertyValue("IDName", _IDName, value) + End Set + End Property + Property IDCaption As String + Get + Return _IDCaption + End Get + Set(value As String) + SetPropertyValue("IDCaption", _IDCaption, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Hints.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Hints.vb new file mode 100644 index 0000000..5451da1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Hints.vb @@ -0,0 +1,38 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class Hints + Inherits BaseObject + Private _View_ID As String + Private _HintText As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property View_ID As String + Get + Return _View_ID + End Get + Set(ByVal value As String) + SetPropertyValue("View_ID", _View_ID, value) + End Set + End Property + _ + Property HintText As String + Get + Return _HintText + End Get + Set(ByVal value As String) + SetPropertyValue("HintText", _HintText, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingModule.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingModule.vb new file mode 100644 index 0000000..7ba4511 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingModule.vb @@ -0,0 +1,59 @@ +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Model + +Public Module LockingModule + Public Function LockObject(_Paramuow As UnitOfWork, _ParamObjectType As Type, _ParamObjectKey As String, _ParamUser As User) As Boolean + Dim _IsLocked As Boolean = False + Dim _TableName As String + Dim _LockingObject As LockingObject + Try + _TableName = _ParamObjectType.Name & "-" & _ParamObjectKey + _LockingObject = New LockingObject(_Paramuow) + _LockingObject.TableName = _TableName + _LockingObject.User = _Paramuow.GetObjectByKey(Of User)(_ParamUser.Oid) + _LockingObject.ObjectKey = _ParamObjectKey + _LockingObject.ObjectType = _ParamObjectType + _LockingObject.ObjectCreated = Now + _LockingObject.SessionCreated = _Paramuow.ToString + _Paramuow.CommitChanges() + + _LockingObject = _Paramuow.FindObject(Of LockingObject)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("TableName=? and User=? and SessionCreated=?", _TableName, _Paramuow.GetObjectByKey(Of User)(_ParamUser.Oid), _Paramuow.ToString)) + If _LockingObject IsNot Nothing Then + _IsLocked = True + End If + + Catch ex As Exception + _IsLocked = False + End Try + Return _IsLocked + End Function + Public Function UnLockObject(_Paramuow As UnitOfWork, _ParamObjectType As Type, _ParamObjectKey As String, _ParamUser As User) As Boolean + Dim _TableName As String = _ParamObjectType.Name & "-" & _ParamObjectKey + Dim _LockingObject As LockingObject = _Paramuow.FindObject(Of LockingObject)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + CriteriaOperator.Parse("TableName=? AND User=? AND ObjectKey=?", _TableName, _Paramuow.GetObjectByKey(Of DevExpress.Persistent.BaseImpl.User)(_ParamUser.Oid), _ParamObjectKey)) + If _LockingObject IsNot Nothing Then + _Paramuow.Delete(_LockingObject) + _Paramuow.CommitChanges() + End If + End Function + Public Function ReleaseAllLocking(_Paramuow As UnitOfWork, _Paramuser As User) As Boolean + Dim _LockingObject_Collection As New XPCollection(Of LockingObject)(_Paramuow, CriteriaOperator.Parse("User.Oid=?", _Paramuser.Oid)) + Dim _IsUnlocked As Boolean = False + Try + _Paramuow.Delete(_LockingObject_Collection) + _Paramuow.CommitChanges() + + _LockingObject_Collection = New XPCollection(Of LockingObject)(_Paramuow, CriteriaOperator.Parse("User.Oid=?", _Paramuser.Oid)) + If _LockingObject_Collection.Count = 0 Then + _IsUnlocked = True + End If + Catch ex As Exception + _IsUnlocked = False + End Try + Return _IsUnlocked + End Function +End Module diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingObject.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingObject.vb new file mode 100644 index 0000000..ec32dcf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Locking/LockingObject.vb @@ -0,0 +1,87 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class LockingObject + Inherits BaseObject + + Private _TableName As String + Private _User As User + Private _ObjectType As Type + Private _ObjectKey As String + Private _ObjectCreated As Date + Private _SessionCreated As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property TableName As String + Get + Return _TableName + End Get + Set(value As String) + SetPropertyValue("TableName", _TableName, value) + End Set + End Property + + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + Property ObjectType As Type + Get + Return _ObjectType + End Get + Set(value As Type) + SetPropertyValue("ObjectType", _ObjectType, value) + End Set + End Property + Property ObjectKey As String + Get + Return _ObjectKey + End Get + Set(value As String) + SetPropertyValue("ObjectKey", _ObjectKey, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property SessionCreated As String + Get + Return _SessionCreated + End Get + Set(value As String) + SetPropertyValue("SessionCreated", _SessionCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.Designer.vb new file mode 100644 index 0000000..39986c1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ContractsLookupVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.vb new file mode 100644 index 0000000..7837593 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/ContractsLookupVC.vb @@ -0,0 +1,49 @@ +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.ExpressApp.Editors + +Public Class ContractsLookupVC + Inherits ViewController + Public Sub New() + TargetObjectType = GetType(Contracts) + TargetViewType = ViewType.ListView + TargetViewId = "Contracts_LookupListView" + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Dim c As NewObjectViewController = Frame.GetController(Of NewObjectViewController)() + AddHandler c.ObjectCreated, AddressOf c_ObjectCreated + End Sub + + Private Sub c_ObjectCreated(ByVal sender As Object, ByVal e As ObjectCreatedEventArgs) + If TypeOf Frame Is NestedFrame Then + 'for ASP.NET + Dim editor As PropertyEditor = TryCast((CType(Frame, NestedFrame)).ViewItem, PropertyEditor) + SetupNewObjectFromParent(e, editor) + End If + 'for WinForms + Dim controller As LinkToLookupViewController = Frame.GetController(Of LinkToLookupViewController)() + If controller IsNot Nothing AndAlso controller.Lookup IsNot Nothing Then + SetupNewObjectFromParent(e, controller.Lookup) + End If + End Sub + Private Sub SetupNewObjectFromParent(ByVal e As ObjectCreatedEventArgs, ByVal editor As PropertyEditor) + If GetType(Contracts).IsInstanceOfType(e.CreatedObject) Then + If editor IsNot Nothing AndAlso GetType(RegistryRowsFinancialControlling).IsAssignableFrom(editor.ObjectType) Then + Dim r As RegistryRowsFinancialControlling = DirectCast(editor.CurrentObject, RegistryRowsFinancialControlling) + If Not editor.View.ObjectSpace.IsNewObject(r.RegistryHeader.Customers) Then + CType(e.CreatedObject, Contracts).Customers = e.ObjectSpace.GetObject(Of Customers)(r.RegistryHeader.Customers) + CType(e.CreatedObject, Contracts).CustomersFrom = e.ObjectSpace.GetObject(Of Customers)(r.RegistryHeader.CustomersFrom) + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.Designer.vb new file mode 100644 index 0000000..2046aad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class CustomersBankAccountsLookupVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.vb new file mode 100644 index 0000000..5fc5dd7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/CustomersBankAccountsLookupVC.vb @@ -0,0 +1,58 @@ +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.ExpressApp.Editors + +Public Class CustomersBankAccountsLookupVC + Inherits ViewController + Public Sub New() + TargetObjectType = GetType(CustomerBankAccounts) + TargetViewType = ViewType.ListView + TargetViewId = "CustomerBankAccounts_LookupListView" + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Dim c As NewObjectViewController = Frame.GetController(Of NewObjectViewController)() + AddHandler c.ObjectCreated, AddressOf c_ObjectCreated + End Sub + + Private Sub c_ObjectCreated(ByVal sender As Object, ByVal e As ObjectCreatedEventArgs) + If TypeOf Frame Is NestedFrame Then + 'for ASP.NET + Dim editor As PropertyEditor = TryCast((CType(Frame, NestedFrame)).ViewItem, PropertyEditor) + SetupNewObjectFromParent(e, editor) + End If + 'for WinForms + Dim controller As LinkToLookupViewController = Frame.GetController(Of LinkToLookupViewController)() + If controller IsNot Nothing AndAlso controller.Lookup IsNot Nothing Then + SetupNewObjectFromParent(e, controller.Lookup) + End If + End Sub + Private Sub SetupNewObjectFromParent(ByVal e As ObjectCreatedEventArgs, ByVal editor As PropertyEditor) + '/// ITT KELL NEVESTENI !!! + + If GetType(CustomerBankAccounts).IsInstanceOfType(e.CreatedObject) Then + If editor IsNot Nothing Then + If GetType(RegistryHeader).IsAssignableFrom(editor.ObjectType) Then + Dim _RegistryHeader As RegistryHeader = DirectCast(editor.CurrentObject, RegistryHeader) + If Not editor.View.ObjectSpace.IsNewObject(_RegistryHeader.Customers) Then + CType(e.CreatedObject, CustomerBankAccounts).Customers = e.ObjectSpace.GetObject(Of Customers)(_RegistryHeader.Customers) + End If + End If + If GetType(GLAccounts).IsAssignableFrom(editor.ObjectType) Then + Dim _GLAccounts As GLAccounts = DirectCast(editor.CurrentObject, GLAccounts) + If Not editor.View.ObjectSpace.IsNewObject(_GLAccounts.Customers) Then + CType(e.CreatedObject, CustomerBankAccounts).Customers = e.ObjectSpace.GetObject(Of Customers)(_GLAccounts.Customers) + End If + End If + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/LookupLinkController.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/LookupLinkController.Designer.vb new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/LookupLinkController.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/LookupLinkController.vb new file mode 100644 index 0000000..d8c2eeb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/LookupListEditor/LookupLinkController.vb @@ -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.Editors + +Public Class LinkToLookupViewController + Inherits ViewController(Of ListView) + Private _LookupEditor As PropertyEditor + Public Property Lookup() As PropertyEditor + Get + Return _LookupEditor + End Get + Set(ByVal value As PropertyEditor) + _LookupEditor = value + End Set + End Property +End Class + +Public MustInherit Class LookupLinkViewController + Inherits ViewController(Of DetailView) + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + For Each editor As PropertyEditor In View.GetItems(Of PropertyEditor)() + AddHandler editor.ControlCreated, AddressOf editor_ControlCreated + Next editor + End Sub + Private Sub editor_ControlCreated(ByVal sender As Object, ByVal e As EventArgs) + ProcessLookupEditor(CType(sender, PropertyEditor)) + End Sub + Protected MustOverride Sub ProcessLookupEditor(ByVal editor As PropertyEditor) +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/NumberGenerator.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/NumberGenerator.vb new file mode 100644 index 0000000..8abfc4a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/NumberGenerator.vb @@ -0,0 +1,431 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Public Enum ePlace + Left = 0 + Center = 1 + Right = 2 +End Enum +Public Enum eYearFormat + YearNoDigit = 0 + YearOneDigit = 1 + YearTwoDigit = 2 + YearFourDigit = 4 +End Enum + _ + _ + _ + _ + _ +Public Class NumberGenerator + Inherits BaseObject + Private _NumberGeneratorGroups As NumberGeneratorGroups + Private _PrefixString As String + Private _PrefixTag As String + Private _SuffixString As String + Private _SuffixTag As String + Private _SerialNumber As Long + Private _SerialNumberPlace As ePlace + Private _SerialNumberDigit As Long = 4 + Private _YearFormat As eYearFormat + Private _NewNumberPerYear As Boolean + Private _NewNumberPerMonth As Boolean + Private _ShortName As String + Private _MonthAfterYear As Boolean + Private _CurrentDay As Boolean + Private _CurrentDayFormat As String + + Public Function GetNewNumber(ByVal NGO As NumberGenerator, Optional ByVal _YearString As String = "", Optional _MonthString As String = "") + Dim _NGSemafor As NumberGeneratorSemafor + + If _YearString = "" Or _YearString Is Nothing Then + _YearString = Year(GetSQLTime(Session)).ToString + Else + + End If + + If (_MonthString = "" And MonthAfterYear) Or (_MonthString Is Nothing And MonthAfterYear) Then + _MonthString = Month(GetSQLTime(Session)).ToString + End If + + If NewNumberPerYear = True Then + If _MonthString <> "" And NGO.MonthAfterYear And NGO.NewNumberPerMonth Then + _NGSemafor = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and MonthString=? and NewNumberPerMonth=?", NGO.Oid, _YearString, _MonthString, True)) + Else + _NGSemafor = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and NewNumberPerMonth=?", NGO.Oid, _YearString, False)) + End If + Else + Dim CurrentYear As Integer + Dim BaseYear As Integer = Convert.ToInt32(_YearString) - 4 + For CurrentYear = Convert.ToInt32(_YearString) To BaseYear Step -1 + 'If _MonthString <> "" And NGO.MonthAfterYear And NGO.NewNumberPerMonth Then + ' _NGSemafor = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and MonthString=? and NewNumberPerMonth=?", NGO.Oid, CurrentYear.ToString(), _MonthString, True)) + ' If _NGSemafor IsNot Nothing Then + ' Exit For + ' End If + 'Else + _NGSemafor = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and NewNumberPerMonth=?", NGO.Oid, CurrentYear.ToString(), False)) + If _NGSemafor IsNot Nothing Then + Exit For + End If + 'End If + Next + If _NGSemafor Is Nothing Then + Dim _NGSemaforLastToNew As NumberGeneratorSemafor + 'If _MonthString <> "" And NGO.MonthAfterYear And NGO.NewNumberPerMonth Then + ' _NGSemaforLastToNew = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and MonthString=?", NGO.Oid, (Convert.ToInt32(_YearString) - 5).ToString(), _MonthString)) + 'Else + _NGSemaforLastToNew = Session.FindObject(Of NumberGeneratorSemafor)(CriteriaOperator.Parse("NumberGenerator=? and YearString=? and NewNumberPerMonth=?", NGO.Oid, (Convert.ToInt32(_YearString) - 5).ToString(), False)) + 'End If + If _NGSemaforLastToNew IsNot Nothing Then + _NGSemafor = New NumberGeneratorSemafor(Session) + _NGSemafor.NumberGenerator = NGO + _NGSemafor.YearString = _YearString + _NGSemafor.MonthString = _MonthString + _NGSemafor.SerialNumber = _NGSemaforLastToNew.SerialNumber + _NGSemafor.Save() + End If + End If + End If + If _NGSemafor Is Nothing Then + _NGSemafor = New NumberGeneratorSemafor(Session) + _NGSemafor.NumberGenerator = NGO + _NGSemafor.YearString = _YearString + _NGSemafor.MonthString = _MonthString + _NGSemafor.SerialNumber = Me.SerialNumber + 1 + If _NewNumberPerMonth = True Then + _NGSemafor.NewNumberPerMonth = True + End If + _NGSemafor.Save() + Else + _NGSemafor.SerialNumber += 1 + If _NewNumberPerMonth = False Then + _NGSemafor.MonthString = _MonthString + End If + _NGSemafor.Save() + End If + + '--- Paraméterek inicializálása + _PrefixString = NGO.PrefixString + _PrefixTag = NGO.PrefixTag + _SuffixString = NGO.SuffixString + _SuffixTag = NGO.SuffixTag + _SerialNumberPlace = NGO.SerialNumberPlace + _SerialNumberDigit = NGO.SerialNumberDigit + _YearFormat = NGO.YearFormat + _NewNumberPerYear = NGO.NewNumberPerYear + _MonthAfterYear = NGO.MonthAfterYear + Return CreateSampleString(_NGSemafor.YearString, _NGSemafor.MonthString, _NGSemafor.SerialNumber) + End Function + Function CreateSampleString(ByVal YearString As String, ByVal MonthString As String, ByVal NumberLong As Long) As String + Dim _NumberString As String = "" + Dim _SampleString As String = "" + Dim _CurrentDateString As String = "" + + If NewNumberPerYear = True Then + Select Case YearFormat + Case eYearFormat.YearNoDigit + YearString = "" + Case eYearFormat.YearFourDigit + Case eYearFormat.YearOneDigit + YearString = Mid(YearString, 4, 1) + Case eYearFormat.YearTwoDigit + YearString = Mid(YearString, 3, 2) + End Select + Else + YearString = "" + End If + + _NumberString = AlignStr(CStr(NumberLong), eDirection.Left, "0", _SerialNumberDigit) + + If CurrentDay Then + _CurrentDateString = GetSQLTime(Session).ToString(CurrentDayFormat) + Else + _CurrentDateString = "" + End If + + If MonthAfterYear Then + If MonthString.Length = 1 Then MonthString = "0" + MonthString + If _SuffixTag = "" Then + YearString += SuffixString & MonthString + Else + YearString += SuffixTag & MonthString + End If + + End If + + If _SerialNumberPlace = ePlace.Center Then + _SampleString = PrefixString & PrefixTag & _NumberString & SuffixTag & YearString & _CurrentDateString & SuffixTag & SuffixString + ElseIf _SerialNumberPlace = ePlace.Left Then + If CurrentDay Then + _SampleString = PrefixString & PrefixTag & YearString & _CurrentDateString & SuffixTag & _NumberString + Else + _SampleString = PrefixString & PrefixTag & YearString & _CurrentDateString & SuffixTag & _NumberString & SuffixTag & SuffixString + End If + ElseIf _SerialNumberPlace = ePlace.Right Then + _SampleString = PrefixString & _PrefixTag & _NumberString & SuffixTag & SuffixString & SuffixTag & YearString & _CurrentDateString + End If + + + + Return _SampleString + End Function + ReadOnly Property SampleString() + Get + Return CreateSampleString(Year(Now), Month(Now), 0) + End Get + End Property + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + _SerialNumberPlace = ePlace.Right + OnChanged("SerialNumberPlace") + _NewNumberPerYear = True + OnChanged("NewNumberPerYear") + _YearFormat = eYearFormat.YearTwoDigit + OnChanged("YearFormat") + CurrentDayFormat = "ddMMyyyy" + _NewNumberPerMonth = False + + End Sub + _ + Property NumberGeneratorGroups As NumberGeneratorGroups + Get + Return _NumberGeneratorGroups + End Get + Set(ByVal value As NumberGeneratorGroups) + SetPropertyValue("NumberGeneratorGroups", _NumberGeneratorGroups, value) + End Set + End Property + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property PrefixString As String + Get + Return _PrefixString + End Get + Set(ByVal value As String) + SetPropertyValue("PrefixString", _PrefixString, value) + End Set + End Property + _ + Property PrefixTag As String + Get + Return _PrefixTag + End Get + Set(ByVal value As String) + SetPropertyValue("PrefixTag", _PrefixTag, value) + End Set + End Property + _ + Property SuffixString As String + Get + Return _SuffixString + End Get + Set(ByVal value As String) + SetPropertyValue("SuffixString", _SuffixString, value) + End Set + End Property + _ + Property SuffixTag As String + Get + Return _SuffixTag + End Get + Set(ByVal value As String) + SetPropertyValue("SuffixTag", _SuffixTag, value) + End Set + End Property + _ + Property SerialNumber As Long + Get + Return _SerialNumber + End Get + Set(ByVal value As Long) + SetPropertyValue("SerialNumber", _SerialNumber, value) + End Set + End Property + _ + Property SerialNumberPlace As ePlace + Get + Return _SerialNumberPlace + End Get + Set(ByVal value As ePlace) + SetPropertyValue("SerialNumberPlace", _SerialNumberPlace, value) + End Set + End Property + _ + _ + Property YearFormat As eYearFormat + Get + Return _YearFormat + End Get + Set(ByVal value As eYearFormat) + SetPropertyValue("YearFormat", _YearFormat, value) + End Set + End Property + _ + Property NewNumberPerYear As Boolean + Get + Return _NewNumberPerYear + End Get + Set(ByVal value As Boolean) + SetPropertyValue("NewNumberPerYear", _NewNumberPerYear, value) + End Set + End Property + _ + Property NewNumberPerMonth As Boolean + Get + Return _NewNumberPerMonth + End Get + Set(ByVal value As Boolean) + SetPropertyValue("NewNumberPerMonth", _NewNumberPerMonth, value) + If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then + If value = True Then + Me.MonthAfterYear = True + End If + End If + End Set + End Property + _ + Property SerialNumberDigit As Long + Get + Return _SerialNumberDigit + End Get + Set(ByVal value As Long) + SetPropertyValue("SerialNumberDigit", _SerialNumberDigit, value) + End Set + End Property + _ + Property MonthAfterYear As Boolean + Get + Return _MonthAfterYear + End Get + Set(ByVal value As Boolean) + SetPropertyValue("MonthAfterYear", _MonthAfterYear, value) + End Set + End Property + Property CurrentDay As Boolean + Get + Return _CurrentDay + End Get + Set(value As Boolean) + SetPropertyValue("CurrentDay", _CurrentDay, value) + End Set + End Property + Property CurrentDayFormat As String + Get + Return _CurrentDayFormat + End Get + Set(value As String) + SetPropertyValue("CurrentDayFormat", _CurrentDayFormat, value) + End Set + End Property + ReadOnly Property DisplayName() As String + Get + Return SampleString & ", " & ShortName + End Get + End Property + +End Class + _ + _ +Public Class NumberGeneratorGroups + Inherits BaseObject + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class + _ + _ +Public Class NumberGeneratorSemafor + Inherits BaseObject + Private _NumberGenerator As NumberGenerator + Private _YearString As String + Private _MonthString As String + Private _SerialNumber As Long + Private _NewNumberPerMonth As Boolean + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Property NumberGenerator() As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(ByVal value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property YearString As String + Get + Return _YearString + End Get + Set(ByVal value As String) + SetPropertyValue("YearString", _YearString, value) + End Set + End Property + Property MonthString As String + Get + Return _MonthString + End Get + Set(value As String) + SetPropertyValue("MonthString", _MonthString, value) + End Set + End Property + Property SerialNumber As Long + Get + Return _SerialNumber + End Get + Set(ByVal value As Long) + SetPropertyValue("SerialNumber", _SerialNumber, value) + End Set + End Property + Property NewNumberPerMonth As Boolean + Get + Return _NewNumberPerMonth + End Get + Set(ByVal value As Boolean) + SetPropertyValue("NewNumberPerMonth", _NewNumberPerMonth, value) + End Set + End Property +End Class + + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog.vb new file mode 100644 index 0000000..0852888 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog.vb @@ -0,0 +1,249 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ + _ +Public Class OperationalLog + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _Customers As Customers + Private _DocumentNumber As String 'Bejegyzs sorszma + Private _WorkPlace As WorkPlace 'Munkahely + Private _WorkState As WorkState 'Munkafolyamat + Private _OperationalLogParameters As OperationalLogParameters + Private _Description As String 'Esemny lersa + Private _WorkDescription As String 'Elvgzett munka lersa + Private _WorkUsedMaterialDescription As String 'Felhasznlt anyag lersa (nem ktelez WEB) + Private _WorkDescriptionOther As String 'Egyb az alvllalkoz ltal megadott megjegyzs (nem ktelez WEB) + Private _ObjectCreated As Date + Private _UserCreated As User + + Dim _LoggedUser As User + Dim _LoggedContacts As Contacts + Dim _LoggedSubcontractor As Subcontractor + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + WorkState = Session.FindObject(Of WorkState)(CriteriaOperator.Parse("IsOperationalLog = True")) + + _LoggedUser = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + _LoggedContacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _LoggedUser)) + _LoggedSubcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _LoggedContacts.Customers)) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + If String.IsNullOrEmpty(DocumentNumber) Then + DocumentNumber = OperationalLogParameters.NumberGenerator.GetNewNumber(OperationalLogParameters.NumberGenerator) + End If + End Sub + + _ + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And CustomersFrom IsNot Nothing Then + OperationalLogParameters = Session.FindObject(Of OperationalLogParameters)(CriteriaOperator.Parse("WorkPlace=? AND CustomersFrom=?", value, CustomersFrom)) + End If + End Set + End Property + Property WorkState As WorkState + Get + Return _WorkState + End Get + Set(value As WorkState) + SetPropertyValue("WorkState", _WorkState, value) + End Set + End Property + _ + _ + _ + Property OperationalLogParameters As OperationalLogParameters + Get + Return _OperationalLogParameters + End Get + Set(value As OperationalLogParameters) + SetPropertyValue("OperationalLogParameters", _OperationalLogParameters, value) + End Set + End Property + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property WorkDescription As String + Get + Return _WorkDescription + End Get + Set(value As String) + SetPropertyValue("WorkDescription", _WorkDescription, value) + End Set + End Property + _ + Property WorkUsedMaterialDescription As String + Get + Return _WorkUsedMaterialDescription + End Get + Set(value As String) + SetPropertyValue("WorkUsedMaterialDescription", _WorkUsedMaterialDescription, value) + End Set + End Property + _ + Property WorkDescriptionOther As String + Get + Return _WorkDescriptionOther + End Get + Set(value As String) + SetPropertyValue("WorkDescriptionOther", _WorkDescriptionOther, value) + End Set + End Property + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + _ + _ + ReadOnly Property OperationalLogDocuments As XPCollection(Of OperationalLogDocuments) + Get + Return GetCollection(Of OperationalLogDocuments)("OperationalLogDocuments") + End Get + End Property + _ + ReadOnly Property FirstDocument As OperationalLogDocuments + Get + Dim _FirstDocument As OperationalLogDocuments = Nothing + + For Each _FirstDocument In Me.OperationalLogDocuments + Exit For + Next + Return _FirstDocument + End Get + End Property + _ + Private ReadOnly Property WorkPlace_Collection As XPCollection(Of WorkPlace) + Get + If Me.CustomersFrom Is Nothing Then + Return Nothing + End If + Dim _WorkPlace_Collection_All As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("CustomersFrom.Oid=?", Me.CustomersFrom.Oid)) + Dim _WorkPlace_Collection As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse("1=2")) + Dim _WorkPlace As WorkPlace + Dim _WorkPlace_ArrayList As New ArrayList + Dim _SubcontractorCustomers_Collection As New XPCollection(Of SubcontractorCustomers)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", _LoggedSubcontractor.Oid)) + Dim _SubcontractorCustomers As SubcontractorCustomers + + '_SubcontractorCustomers.Customers.Contacts + _WorkPlace_ArrayList.Clear() + For Each _WorkPlace In _WorkPlace_Collection_All + For Each _SubcontractorCustomers In _SubcontractorCustomers_Collection + If _SubcontractorCustomers.Workplace IsNot Nothing Then + If _WorkPlace.Oid = _SubcontractorCustomers.Workplace.Oid Then + If _WorkPlace_ArrayList.Contains(_WorkPlace) Then + Else + _WorkPlace_ArrayList.Add(_WorkPlace) + End If + End If + End If + Next + Next + + For Each _WorkPlace In _WorkPlace_ArrayList + _WorkPlace_Collection.Add(_WorkPlace) + Next + + Return _WorkPlace_Collection + End Get + End Property + _ + Private ReadOnly Property Customers_Collection As XPCollection(Of Customers) + Get + If _LoggedSubcontractor IsNot Nothing Then + Dim _Customers_Collection As New XPCollection(Of Customers)(Session, CriteriaOperator.Parse("1=2")) + Dim _SubcontractorCustomers_Collection As New XPCollection(Of SubcontractorCustomers)(Session, CriteriaOperator.Parse("Subcontractor.Oid=?", _LoggedSubcontractor.Oid)) + + For Each _SubcontractorCustomers As SubcontractorCustomers In _SubcontractorCustomers_Collection + _Customers_Collection.Add(_SubcontractorCustomers.Customers) + Next + + Return _Customers_Collection + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogDocuments.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogDocuments.vb new file mode 100644 index 0000000..beff025 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogDocuments.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class OperationalLogDocuments + Inherits FileAttachmentBase + + Private _OperationalLog As OperationalLog + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property OperationalLog As OperationalLog + Get + Return _OperationalLog + End Get + Set(value As OperationalLog) + SetPropertyValue("OperationalLog", _OperationalLog, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogParameters.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogParameters.vb new file mode 100644 index 0000000..49d489f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLogParameters.vb @@ -0,0 +1,82 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eOperationalLogType + General = 0 + HFR = 1 +End Enum + _ + _ + _ +Public Class OperationalLogParameters + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _NumberGenerator As NumberGenerator + Private _WorkPlace As WorkPlace 'Munkahely + Private _ReportData As ReportData + Private _OperationalLogType As eOperationalLogType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + OperationalLogType = eOperationalLogType.General + End Sub + + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + _ + _ + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + End Set + End Property + _ + Property ReportData As ReportData + Get + Return _ReportData + End Get + Set(value As ReportData) + SetPropertyValue("ReportData", _ReportData, value) + End Set + End Property + Property OperationalLogType As eOperationalLogType + Get + Return _OperationalLogType + End Get + Set(value As eOperationalLogType) + SetPropertyValue("OperationalLogType", _OperationalLogType, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb new file mode 100644 index 0000000..50d3547 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class OperationalLog_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aOperationLog_CreateQuestion = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aOperationLog_CreateQuestion + ' + Me.aOperationLog_CreateQuestion.Caption = "aOperationLog_CreateQuestion" + Me.aOperationLog_CreateQuestion.ConfirmationMessage = Nothing + Me.aOperationLog_CreateQuestion.Id = "aOperationLog_CreateQuestion" + Me.aOperationLog_CreateQuestion.ImageName = Nothing + Me.aOperationLog_CreateQuestion.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOperationLog_CreateQuestion.Shortcut = Nothing + Me.aOperationLog_CreateQuestion.Tag = Nothing + Me.aOperationLog_CreateQuestion.TargetObjectsCriteria = Nothing + Me.aOperationLog_CreateQuestion.TargetObjectType = GetType(SISBusiness.[Module].OperationalLog) + Me.aOperationLog_CreateQuestion.TargetViewId = Nothing + Me.aOperationLog_CreateQuestion.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aOperationLog_CreateQuestion.ToolTip = Nothing + Me.aOperationLog_CreateQuestion.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aOperationLog_CreateQuestion As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx new file mode 100644 index 0000000..d2f54a4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb new file mode 100644 index 0000000..e55113b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/OperationalLog_VC.vb @@ -0,0 +1,139 @@ +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.CloneObject +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + + + +Public Class OperationalLog_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + If View.Id = "OperationalLog_ListView_Subconractor" Or + View.Id = "OperationalLog_ListView_Subconractor_HFR" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _Subcontractor As Subcontractor = _ocur.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + + Dim _OperationalLog_CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _Criteria As String = "WorkPlace.Oid in('" + If _Subcontractor.SubcontractorCustomers.Count > 0 Then + For Each _SubcontractorCustomers As SubcontractorCustomers In _Subcontractor.SubcontractorCustomers + If _SubcontractorCustomers.Workplace IsNot Nothing Then + _Criteria += _SubcontractorCustomers.Workplace.Oid.ToString + "','" + End If + Next + Else + _Criteria = "1=2" + End If + If _Criteria.Length > 18 Then + _Criteria = _Criteria.Remove(_Criteria.Length - 2, 2) + _Criteria += ")" + Else + _Criteria = "1=2" + End If + + _OperationalLog_CollectionSource.BeginUpdateCriteria() + _OperationalLog_CollectionSource.Criteria("First") = CriteriaOperator.Parse(_Criteria) + _OperationalLog_CollectionSource.EndUpdateCriteria() + + End If + If View.Id = "OperationalLog_ListView_Support" Then + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _Workplace As WorkPlace = _ocur.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=? and OperationalLogType='General'", _Contacts.Customers)) + + Dim _OperationalLog_CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _Criteria As String = "" + If _Workplace IsNot Nothing Then + _Criteria = "WorkPlace.Oid='" + _Workplace.Oid.ToString + "'" + Else + _Criteria = "1=2" + End If + + _OperationalLog_CollectionSource.BeginUpdateCriteria() + _OperationalLog_CollectionSource.Criteria("First") = CriteriaOperator.Parse(_Criteria) + _OperationalLog_CollectionSource.EndUpdateCriteria() + + End If + If View.Id = "OperationalLog_ListView_Support_HFR" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _Workplace As WorkPlace = _ocur.FindObject(Of WorkPlace)(CriteriaOperator.Parse("Customers=? and OperationalLogType='HFR'", _Contacts.Customers)) + + Dim _OperationalLog_CollectionSource As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _Criteria As String = "" + If _Workplace IsNot Nothing Then + _Criteria = "WorkPlace.Oid='" + _Workplace.Oid.ToString + "'" + Else + _Criteria = "1=2" + End If + + _OperationalLog_CollectionSource.BeginUpdateCriteria() + _OperationalLog_CollectionSource.Criteria("First") = CriteriaOperator.Parse(_Criteria) + _OperationalLog_CollectionSource.EndUpdateCriteria() + End If + If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + + If View.Id = "OperationalLog_ListView_Subconractor" Then + + End If + If View.Id = "OperationalLog_OperationalLogDocuments_ListView" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + End If + End Sub + + Private Sub aOperationLog_CreateQuestion_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aOperationLog_CreateQuestion.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.GetObjectByKey(Of DevExpress.Persistent.BaseImpl.User)(_onew.Session.GetKeyValue(SecuritySystem.CurrentUser)) + + Dim _Question As New Question(_onew.Session) + With _Question + .AliasUser = _User + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_User", True, _Question) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/PopUp/OperationLog_ViewLogs_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/PopUp/OperationLog_ViewLogs_PopUp.vb new file mode 100644 index 0000000..6138122 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/OperationalLog/PopUp/OperationLog_ViewLogs_PopUp.vb @@ -0,0 +1,141 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class OperationLog_ViewLogs_PopUp + Inherits BaseObject + + Private _WorkPlace As WorkPlace + Private _FromDate As Date + Private _FromDateHour As Long + Private _FromDateMin As Long + Private _ToDate As Date + Private _ToDateHour As Long + Private _ToDateMin As Long + Private _CollectionSource As CollectionSource + Private _CustomersFrom As CustomersFrom + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ToDate = GetSQLTime(Session).Date + ToDateHour = GetSQLTime(Session).Hour + ToDateMin = GetSQLTime(Session).Minute + FromDate = ToDate.AddDays(-7) + FromDateHour = ToDateHour + FromDateMin = ToDateMin + End Sub + + _ + Property WorkPlace As WorkPlace + Get + Return _WorkPlace + End Get + Set(value As WorkPlace) + SetPropertyValue("WorkPlace", _WorkPlace, value) + End Set + End Property + Property FromDate As Date + Get + Return _FromDate + End Get + Set(value As Date) + SetPropertyValue("FromDate", _FromDate, value) + End Set + End Property + _ + Property FromDateHour As Long + Get + Return _FromDateHour + End Get + Set(value As Long) + SetPropertyValue("FromDateHour", _FromDateHour, value) + End Set + End Property + _ + Property FromDateMin As Long + Get + Return _FromDateMin + End Get + Set(value As Long) + SetPropertyValue("FromDateMin", _FromDateMin, value) + End Set + End Property + Property ToDate As Date + Get + Return _ToDate + End Get + Set(value As Date) + SetPropertyValue("ToDate", _ToDate, value) + End Set + End Property + _ + Property ToDateHour As Long + Get + Return _ToDateHour + End Get + Set(value As Long) + SetPropertyValue("ToDateHour", _ToDateHour, value) + End Set + End Property + _ + Property ToDateMin As Long + Get + Return _ToDateMin + End Get + Set(value As Long) + SetPropertyValue("ToDateMin", _ToDateMin, value) + End Set + End Property + _ + _ + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + _ + Private ReadOnly Property WorkPlace_Collection As XPCollection(Of WorkPlace) + Get + Dim _User As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _Subcontractor As Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + Dim _SubcontractorCustomers As SubcontractorCustomers + Dim _Criteria As String = "1=2" + If _Subcontractor IsNot Nothing Then + If _Subcontractor.SubcontractorCustomers.Count > 0 Then + For Each _SubcontractorCustomers In _Subcontractor.SubcontractorCustomers + If _Criteria = "1=2" Then + _Criteria = "Customers.Oid in ('" & _SubcontractorCustomers.Customers.Oid.ToString & "'" + Else + _Criteria += ",'" & _SubcontractorCustomers.Customers.Oid.ToString & "'" + End If + Next + End If + If _Criteria <> "1=2" Then _Criteria += ")" + Else + _Criteria = "Customers.Oid='" + _Contacts.Customers.Oid.ToString + "' AND CustomersFrom.Oid='" + CustomersFrom.Oid.ToString + "'" + End If + + Dim _WorkPlace_Collection As New XPCollection(Of WorkPlace)(Session, CriteriaOperator.Parse(_Criteria)) + Return _WorkPlace_Collection + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/Phones/Phones.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/Phones/Phones.vb new file mode 100644 index 0000000..da820e3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/Phones/Phones.vb @@ -0,0 +1,142 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class Phones + Inherits BaseObject + + Private _PhoneNumber As String + Private _PhoneProvider As Customers + Private _DateLoyalityStart As Date + Private _DateLoyalityEnd As Date + Private _ObjectCreated As Date + Private _UserCreated As User + Private _UniqueObjects As UniqueObjects + Private _GLReport As GLReport + Private _AmountHUF_Subscription As Double + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + UniqueObjects = New UniqueObjects(Session) + UniqueObjects.Name = PhoneNumber + UniqueObjects.Phones = Me + UniqueObjects.Save() + End If + End Sub + + _ + _ + Property PhoneNumber As String + Get + Return _PhoneNumber + End Get + Set(value As String) + SetPropertyValue("PhoneNumber", _PhoneNumber, value) + End Set + End Property + Property PhoneProvider As Customers + Get + Return _PhoneProvider + End Get + Set(value As Customers) + SetPropertyValue("PhoneProvider", _PhoneProvider, value) + End Set + End Property + Property DateLoyalityStart As Date + Get + Return _DateLoyalityStart + End Get + Set(value As Date) + SetPropertyValue("DateLoyalityStart", _DateLoyalityStart, value) + End Set + End Property + Property DateLoyalityEnd As Date + Get + Return _DateLoyalityEnd + End Get + Set(value As Date) + SetPropertyValue("DateLoyalityEnd", _DateLoyalityEnd, value) + End Set + End Property + Property AmountHUF_Subscription As Double + Get + Return _AmountHUF_Subscription + End Get + Set(value As Double) + SetPropertyValue("AmountHUF_Subscription", _AmountHUF_Subscription, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + + Property UniqueObjects As UniqueObjects + Get + Return _UniqueObjects + End Get + Set(value As UniqueObjects) + SetPropertyValue("UniqueObjects", _UniqueObjects, value) + End Set + End Property + + _ + Property GLReport As GLReport + Get + Return _GLReport + End Get + Set(value As GLReport) + SetPropertyValue("GLReport", _GLReport, value) + End Set + End Property + _ + ReadOnly Property GLReportRows As XPCollection(Of GLReportRows) + Get + Dim _GLReportRows_Collection As XPCollection(Of GLReportRows) + If Me.GLReport IsNot Nothing Then + _GLReportRows_Collection = New XPCollection(Of GLReportRows)(Session, CriteriaOperator.Parse("GLReport.Oid=? and UniqueObjects.Oid=?", Me.GLReport.Oid, Me.UniqueObjects.Oid)) + Return _GLReportRows_Collection + Else + Return Nothing + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorHeader.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorHeader.vb new file mode 100644 index 0000000..e00da74 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorHeader.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PopupErrorHeader + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + ReadOnly Property PopupErrorRows As XPCollection(Of PopupErrorRows) + Get + Return GetCollection(Of PopupErrorRows)("PopupErrorRows") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorRows.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorRows.vb new file mode 100644 index 0000000..075562b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/PopupErrorRows.vb @@ -0,0 +1,70 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class PopupErrorRows + Inherits BaseObject + + Private _PopupErrorHeader As PopupErrorHeader + Private _ErrorMessage As String + Private _UserCreated As User + Private _ObjectCreated As Date + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property PopupErrorHeader As PopupErrorHeader + Get + Return _PopupErrorHeader + End Get + Set(value As PopupErrorHeader) + SetPropertyValue("PopupErrorHeader", _PopupErrorHeader, value) + End Set + End Property + _ + Property ErrorMessage As String + Get + Return _ErrorMessage + End Get + Set(value As String) + SetPropertyValue("ErrorMessage", _ErrorMessage, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/QueryStatistics.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/QueryStatistics.vb new file mode 100644 index 0000000..6993c54 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/QueryStatistics.vb @@ -0,0 +1,105 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class QueryStatistics + Inherits BaseObject + + Private _ObjectName As String + Private _ObjectKey As Guid + Private _UserCreated As User + Private _ObjectCreated As Date + Private _TimeStart As Date + Private _TimeStop As Date + Private _TimeEllapsed As System.TimeSpan + Private _RecordNumber As Long = 0 + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + _ + Property ObjectName As String + Get + Return _ObjectName + End Get + Set(value As String) + SetPropertyValue("ObjectName", _ObjectName, value) + End Set + End Property + Property ObjectKey As Guid + Get + Return _ObjectKey + End Get + Set(value As Guid) + SetPropertyValue("ObjectKey", _ObjectKey, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + Property TimeStart As Date + Get + Return _TimeStart + End Get + Set(value As Date) + SetPropertyValue("TimeStart", _TimeStart, value) + End Set + End Property + Property TimeStop As Date + Get + Return _TimeStop + End Get + Set(value As Date) + SetPropertyValue("TimeStop", _TimeStop, value) + End Set + End Property + Property TimeEllapsed As System.TimeSpan + Get + Return _TimeEllapsed + End Get + Set(value As System.TimeSpan) + SetPropertyValue("TimeEllapsed", _TimeEllapsed, value) + End Set + End Property + Property RecordNumber As Long + Get + Return _RecordNumber + End Get + Set(value As Long) + SetPropertyValue("RecordNumber", _RecordNumber, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory.vb new file mode 100644 index 0000000..e2f10ed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory.vb @@ -0,0 +1,258 @@ +Imports System +Imports System.ComponentModel +Imports Microsoft.VisualBasic +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ +Public Class BusinessDirectory + Inherits BaseObject + Implements ITreeNode, ITreeNodeImageProvider + + Private _BusinessDirectory_Parent As BusinessDirectory + Private _ShortName As String + Private _IsFolder As Boolean + Private _FileData As FileData + Private _FileCreated As Date + Private _FileModified As Date + Private _Completed As Boolean 'Tovbbi tennival van -e? + Private _TaskDescription As String + Private _EMail_Sender As String + Private _Email_Copy As String + Private _IsDashBoard As Boolean + Private _DashBoard_Server As String + Private _DashBoard_Database As String + Private _DashBoard_UserName As String + Private _DashBoard_Password As String + Private _SQLType As eSQLType + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + IsFolder = True + IsDashBoard = False + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If FileData IsNot Nothing Then + IsFolder = False + If String.IsNullOrEmpty(ShortName) Then ShortName = FileData.FileName + Else + IsFolder = True + End If + End Sub + _ + Property BusinessDirectory_Parent As BusinessDirectory + Get + Return _BusinessDirectory_Parent + End Get + Set(value As BusinessDirectory) + SetPropertyValue("BusinessDirectory_Parent", _BusinessDirectory_Parent, value) + End Set + End Property + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + _ + Property IsFolder As Boolean + Get + Return _IsFolder + End Get + Set(value As Boolean) + SetPropertyValue("IsFolder", _IsFolder, value) + If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then + If value And Session.IsNewObject(Me) Then + Completed = True + Else + Completed = False + End If + End If + End Set + End Property + Property FileData As FileData + Get + Return _FileData + End Get + Set(value As FileData) + SetPropertyValue("FileData", _FileData, value) + End Set + End Property + Property FileCreated As Date + Get + Return _FileCreated + End Get + Set(value As Date) + SetPropertyValue("FileCreated", _FileCreated, value) + End Set + End Property + Property FileModified As Date + Get + Return _FileModified + End Get + Set(value As Date) + SetPropertyValue("FileModified", _FileModified, value) + End Set + End Property + Property Completed As Boolean + Get + Return _Completed + End Get + Set(value As Boolean) + SetPropertyValue("Completed", _Completed, value) + End Set + End Property + _ + Property TaskDescription As String + Get + Return _TaskDescription + End Get + Set(value As String) + SetPropertyValue("TaskDescription", _TaskDescription, value) + End Set + End Property + _ + Property EMail_Sender As String + Get + Return _EMail_Sender + End Get + Set(value As String) + SetPropertyValue("EMail_Sender", _EMail_Sender, value) + End Set + End Property + _ + Property Email_Copy As String + Get + Return _Email_Copy + End Get + Set(value As String) + SetPropertyValue("Email_Copy", _Email_Copy, value) + End Set + End Property + _ + Property IsDashBoard As Boolean + Get + Return _IsDashBoard + End Get + Set(value As Boolean) + SetPropertyValue("IsDashBoard", _IsDashBoard, value) + End Set + End Property + _ + Property DashBoard_Server As String + Get + Return _DashBoard_Server + End Get + Set(value As String) + SetPropertyValue("DashBoard_Server", _DashBoard_Server, value) + End Set + End Property + _ + Property DashBoard_Database As String + Get + Return _DashBoard_Database + End Get + Set(value As String) + SetPropertyValue("DashBoard_Database", _DashBoard_Database, value) + End Set + End Property + _ + Property DashBoard_UserName As String + Get + Return _DashBoard_UserName + End Get + Set(value As String) + SetPropertyValue("DashBoard_UserName", _DashBoard_UserName, value) + End Set + End Property + _ + _ + _ + Property DashBoard_Password As String + Get + Return _DashBoard_Password + End Get + Set(value As String) + SetPropertyValue("DashBoard_Password", _DashBoard_Password, value) + End Set + End Property + _ + Property SQLType As eSQLType + Get + Return _SQLType + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType", _SQLType, value) + End Set + End Property + + _ + Public ReadOnly Property NestedBusinessDirectory() As XPCollection(Of BusinessDirectory) + Get + Return GetCollection(Of BusinessDirectory)("NestedBusinessDirectory") + End Get + End Property + +#Region "ITreeNode Members" + Public ReadOnly Property Children() As IBindingList Implements ITreeNode.Children + Get + Return NestedBusinessDirectory + End Get + End Property + Private ReadOnly Property Name() As String Implements ITreeNode.Name + Get + Return ShortName + End Get + End Property + Public ReadOnly Property Parent() As ITreeNode Implements ITreeNode.Parent + Get + Return BusinessDirectory_Parent + End Get + End Property +#End Region + +#Region "ITreeNodeImageProvider Members" + Public Function GetImage(ByRef imageName As String) As System.Drawing.Image Implements DevExpress.Persistent.Base.General.ITreeNodeImageProvider.GetImage + If IsFolder Then + If NestedBusinessDirectory IsNot Nothing AndAlso NestedBusinessDirectory.Count > 0 Then + imageName = "Folder_document" + Else + imageName = "Folder" + End If + Else + Select Case System.IO.Path.GetExtension(FileData.FileName) + Case ".msg" + imageName = "mail2" + Case ".pdf" + imageName = "" + Case ".rtf", ".docx", ".doc" + imageName = "word_icon" + Case ".xlsx", ".xls" + imageName = "excel_icon" + Case ".xml" + imageName = "Navigation_Item_Dashboard" + Case Else + imageName = "BO_FileAttachment" + End Select + End If + Return ImageLoader.Instance.GetImageInfo(imageName).Image + End Function +#End Region +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_Roles.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_Roles.vb new file mode 100644 index 0000000..53bdbfb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_Roles.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class BusinessDirectory_Roles + Inherits BaseObject + + Private _BusinessDirectory As BusinessDirectory + Private _Role As Role + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property BusinessDirectory As BusinessDirectory + Get + Return _BusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("BusinessDirectory", _BusinessDirectory, value) + End Set + End Property + _ + Property Role As Role + Get + Return _Role + End Get + Set(value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb new file mode 100644 index 0000000..25634ba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.Designer.vb @@ -0,0 +1,129 @@ +Partial Class BusinessDirectory_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aBusinessDirectory_OppenDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBusinessDirectory_OpenDashboardWithViewer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBusinessDirectory_OpenDashboardWithDesigner = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBusinessDirectory_SetRoleDisabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBusinessDirectory_SetRoleEnabled = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aBusinessDirectory_Clone = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aBusinessDirectory_NewDashboard = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aBusinessDirectory_OppenDocument + ' + Me.aBusinessDirectory_OppenDocument.Caption = "aBusinessDirectory_OppenDocument" + Me.aBusinessDirectory_OppenDocument.Category = "OpenObject" + Me.aBusinessDirectory_OppenDocument.ConfirmationMessage = Nothing + Me.aBusinessDirectory_OppenDocument.Id = "aBusinessDirectory_OppenDocument" + Me.aBusinessDirectory_OppenDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBusinessDirectory_OppenDocument.TargetObjectsCriteria = "IsFolder=False" + Me.aBusinessDirectory_OppenDocument.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_OppenDocument.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aBusinessDirectory_OppenDocument.ToolTip = Nothing + Me.aBusinessDirectory_OppenDocument.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + ' + 'aBusinessDirectory_OpenDashboardWithViewer + ' + Me.aBusinessDirectory_OpenDashboardWithViewer.Caption = "aBusinessDirectory_OpenDashboardWithViewer" + Me.aBusinessDirectory_OpenDashboardWithViewer.ConfirmationMessage = Nothing + Me.aBusinessDirectory_OpenDashboardWithViewer.Id = "aBusinessDirectory_OpenDashboardWithViewer" + Me.aBusinessDirectory_OpenDashboardWithViewer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBusinessDirectory_OpenDashboardWithViewer.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_OpenDashboardWithViewer.ToolTip = Nothing + ' + 'aBusinessDirectory_OpenDashboardWithDesigner + ' + Me.aBusinessDirectory_OpenDashboardWithDesigner.Caption = "aBusinessDirectory_OpenDashboardWithDesigner" + Me.aBusinessDirectory_OpenDashboardWithDesigner.ConfirmationMessage = Nothing + Me.aBusinessDirectory_OpenDashboardWithDesigner.Id = "aBusinessDirectory_OpenDashboardWithDesigner" + Me.aBusinessDirectory_OpenDashboardWithDesigner.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aBusinessDirectory_OpenDashboardWithDesigner.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_OpenDashboardWithDesigner.ToolTip = Nothing + ' + 'aBusinessDirectory_SetRoleDisabled + ' + Me.aBusinessDirectory_SetRoleDisabled.AcceptButtonCaption = Nothing + Me.aBusinessDirectory_SetRoleDisabled.CancelButtonCaption = Nothing + Me.aBusinessDirectory_SetRoleDisabled.Caption = "aBusinessDirectory_SetRoleDisabled" + Me.aBusinessDirectory_SetRoleDisabled.ConfirmationMessage = Nothing + Me.aBusinessDirectory_SetRoleDisabled.Id = "aBusinessDirectory_SetRoleDisabled" + Me.aBusinessDirectory_SetRoleDisabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBusinessDirectory_SetRoleDisabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_SetRoleDisabled.ToolTip = Nothing + ' + 'aBusinessDirectory_SetRoleEnabled + ' + Me.aBusinessDirectory_SetRoleEnabled.AcceptButtonCaption = Nothing + Me.aBusinessDirectory_SetRoleEnabled.CancelButtonCaption = Nothing + Me.aBusinessDirectory_SetRoleEnabled.Caption = "aBusinessDirectory_SetRoleEnabled" + Me.aBusinessDirectory_SetRoleEnabled.ConfirmationMessage = Nothing + Me.aBusinessDirectory_SetRoleEnabled.Id = "aBusinessDirectory_SetRoleEnabled" + Me.aBusinessDirectory_SetRoleEnabled.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBusinessDirectory_SetRoleEnabled.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_SetRoleEnabled.ToolTip = Nothing + ' + 'aBusinessDirectory_Clone + ' + Me.aBusinessDirectory_Clone.Caption = "aBusinessDirectory_Clone" + Me.aBusinessDirectory_Clone.ConfirmationMessage = Nothing + Me.aBusinessDirectory_Clone.Id = "aBusinessDirectory_Clone" + Me.aBusinessDirectory_Clone.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aBusinessDirectory_Clone.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_Clone.TargetViewId = "BusinessDirectory_ListView" + Me.aBusinessDirectory_Clone.ToolTip = Nothing + ' + 'aBusinessDirectory_NewDashboard + ' + Me.aBusinessDirectory_NewDashboard.Caption = "aBusinessDirectory_NewDashboard" + Me.aBusinessDirectory_NewDashboard.Category = "ObjectsCreation" + Me.aBusinessDirectory_NewDashboard.ConfirmationMessage = Nothing + Me.aBusinessDirectory_NewDashboard.Id = "aBusinessDirectory_NewDashboard" + Me.aBusinessDirectory_NewDashboard.TargetObjectType = GetType(SISBusiness.[Module].BusinessDirectory) + Me.aBusinessDirectory_NewDashboard.ToolTip = Nothing + ' + 'BusinessDirectory_VC + ' + Me.Actions.Add(Me.aBusinessDirectory_OppenDocument) + Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithViewer) + Me.Actions.Add(Me.aBusinessDirectory_OpenDashboardWithDesigner) + Me.Actions.Add(Me.aBusinessDirectory_SetRoleDisabled) + Me.Actions.Add(Me.aBusinessDirectory_SetRoleEnabled) + Me.Actions.Add(Me.aBusinessDirectory_Clone) + Me.Actions.Add(Me.aBusinessDirectory_NewDashboard) + + End Sub + Public WithEvents aBusinessDirectory_SetRoleDisabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Public WithEvents aBusinessDirectory_SetRoleEnabled As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Public WithEvents aBusinessDirectory_OppenDocument As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aBusinessDirectory_OpenDashboardWithViewer As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aBusinessDirectory_OpenDashboardWithDesigner As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aBusinessDirectory_Clone As DevExpress.ExpressApp.Actions.SimpleAction + Public WithEvents aBusinessDirectory_NewDashboard As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx new file mode 100644 index 0000000..fd6f16b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.resx @@ -0,0 +1,144 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 173 + + + 17, 212 + + + 17, 251 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 472, 286 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb new file mode 100644 index 0000000..87c6af9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/BusinessDirectory_VC.vb @@ -0,0 +1,212 @@ +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 System.Xml +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.CloneObject + +Public Class BusinessDirectory_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Role_ListView_BusinessDirectory" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Role_ListView_BusinessDirectory" Then + Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + ProcessDocument(_BusinessDirectory.FileData) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub ProcessDocument(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData) + Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName) + Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create) + _DocumentFile.SaveToStream(_Stream) + _Stream.Close() + If IO.Path.GetExtension(_FilePath).Replace(".", "").ToUpper = "XML" Then + + 'Dim _Arguments As String + 'Select Case GLOBAL_SQLType + ' Case eSQLType.MSSQL + ' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MSSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer + ' Case eSQLType.MySQL + ' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MySQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer + ' Case eSQLType.PostgreSQL + ' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " PostgreSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer + 'End Select + + 'Process.Start(GLOBAL_ApplicationStartupPath + "DashBoardViewer.exe", _Arguments) + Else + + Process.Start(_FilePath) + End If + End Sub + Private Sub aBusinessDirectory_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithViewer.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + + Dim _Dashboard As New Dashboard(_onew.Session) + With _Dashboard + .DashboardViewMode = DashboardViewMode.Viewer + .UserName = _BusinessDirectory.DashBoard_UserName + .Password = _BusinessDirectory.DashBoard_Password + .SQLServer = _BusinessDirectory.DashBoard_Server + .Database = _BusinessDirectory.DashBoard_Database + .XMLFileData = _onew.GetObject(_BusinessDirectory.FileData) + .SQLType = _BusinessDirectory.SQLType + + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Viewer", True, _Dashboard) + End Sub + Private Sub aBusinessDirectory_OpenDashboardWithDesigner_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithDesigner.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory) + + Dim _Dashboard As New Dashboard(_onew.Session) + With _Dashboard + .DashboardViewMode = DashboardViewMode.Designer + .UserName = _BusinessDirectory.DashBoard_UserName + .Password = _BusinessDirectory.DashBoard_Password + .SQLServer = _BusinessDirectory.DashBoard_Server + .Database = _BusinessDirectory.DashBoard_Database + .XMLFileData = _onew.GetObject(_BusinessDirectory.FileData) + .SQLType = _BusinessDirectory.SQLType + .Object_Oid = _BusinessDirectory.Oid.ToString + .Object_Type = GetType(BusinessDirectory) + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard) + + End Sub + Private Sub aBusinessDirectory_SetRoleDisabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleDisabled.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Role_Collection As New CollectionSource(_onew, GetType(Role)) + + e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True) + End Sub + Private Sub aBusinessDirectory_SetRoleDisabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleDisabled.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + For Each _Role As Role In e.PopupWindow.View.SelectedObjects + For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects + Dim _BusinessDirectory_Roles As New BusinessDirectory_Roles(_ocur.Session) + With _BusinessDirectory_Roles + .BusinessDirectory = _BusinessDirectory + .Role = _ocur.GetObjectByKey(Of Role)(_Role.Oid) + End With + Next + Next + _ocur.CommitChanges() + End Sub + Private Sub aBusinessDirectory_SetRoleEnabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleEnabled.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Role_Collection As New CollectionSource(_onew, GetType(Role)) + + e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True) + End Sub + Private Sub aBusinessDirectory_SetRoleEnabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleEnabled.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _BusinessDirectory_Roles_DELCollection As New ArrayList + For Each _Role As Role In e.PopupWindow.View.SelectedObjects + For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects + Dim _BusinessDirectory_Roles As BusinessDirectory_Roles = _ocur.FindObject(Of BusinessDirectory_Roles)(CriteriaOperator.Parse("BusinessDirectory=? AND Role=?", _BusinessDirectory, _ocur.GetObjectByKey(Of Role)(_Role.Oid))) + If _BusinessDirectory_Roles IsNot Nothing Then + _BusinessDirectory_Roles_DELCollection.Add(_BusinessDirectory_Roles) + End If + Next + Next + _ocur.Delete(_BusinessDirectory_Roles_DELCollection) + _ocur.CommitChanges() + End Sub + Private Sub aBusinessDirectory_Clone_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_Clone.Execute + Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace + + For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects + Dim _BusinessDirectory_New As New BusinessDirectory(_ocur.Session) + With _BusinessDirectory_New + .BusinessDirectory_Parent = _ocur.GetObject(_BusinessDirectory.Parent) + .ShortName = _BusinessDirectory.ShortName + " Msolat" + .IsFolder = _BusinessDirectory.IsFolder + If _BusinessDirectory.FileData IsNot Nothing Then + Dim _FileName As String = 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() + + .FileData = Nothing + + .FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session)) + Else + .FileData = Nothing + End If + + .FileCreated = _BusinessDirectory.FileCreated + .FileModified = _BusinessDirectory.FileModified + .Completed = _BusinessDirectory.Completed + .TaskDescription = _BusinessDirectory.TaskDescription + .EMail_Sender = _BusinessDirectory.EMail_Sender + .Email_Copy = _BusinessDirectory.Email_Copy + .IsDashBoard = _BusinessDirectory.IsDashBoard + .DashBoard_Server = _BusinessDirectory.DashBoard_Server + .DashBoard_Database = _BusinessDirectory.DashBoard_Database + .DashBoard_UserName = _BusinessDirectory.DashBoard_UserName + .DashBoard_Password = _BusinessDirectory.DashBoard_Password + .SQLType = _BusinessDirectory.SQLType + + End With + + Next + + _ocur.CommitChanges() + End Sub + Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData + Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read) + Dim _StreamReader As New System.IO.StreamReader(_StreamFile) + _StreamFile.Seek(0, System.IO.SeekOrigin.Begin) + + _FileData.LoadFromStream(_ActFile, _StreamFile) + _FileData.FileName = System.IO.Path.GetFileName(_ActFile) + _StreamReader.Close() + _StreamFile.Close() + + Return _FileData + End Function + + + Private Sub aBusinessDirectory_NewDashboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_NewDashboard.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Dashboard As New Dashboard(_onew.Session) + With _Dashboard + .DashboardViewMode = DashboardViewMode.Designer + .IsNewDashboard = True + End With + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenRTFDocument_PopUp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenRTFDocument_PopUp.vb new file mode 100644 index 0000000..331beca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenRTFDocument_PopUp.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +' + _ + _ + _ + _ + _ + _ + _ + _ +Public Class OpenRTFDocument_PopUp + Inherits BaseObject + + Private _RTFText As String + Private _BusinessDirectory As BusinessDirectory + Private _CRM_Opportunities As CRM_Opportunities + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property RTFText As String + Get + Return _RTFText + End Get + Set(value As String) + SetPropertyValue("RTFText", _RTFText, value) + End Set + End Property + Property BusinessDirectory As BusinessDirectory + Get + Return _BusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("BusinessDirectory", _BusinessDirectory, value) + End Set + End Property + Property CRM_Opportunities As CRM_Opportunities + Get + Return _CRM_Opportunities + End Get + Set(value As CRM_Opportunities) + SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenSpreadDocument_Popup.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenSpreadDocument_Popup.vb new file mode 100644 index 0000000..84fe2ab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/OpenSpreadDocument_Popup.vb @@ -0,0 +1,72 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.Base +Imports System.Collections.Generic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +' _ +' _ +' _ + _ +Public Class OpenSpreadDocument_Popup ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701). + Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146). + + Private _BusinessDirectory As BusinessDirectory + Private _SpreadXML As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834). + End Sub + + Property BusinessDirectory As BusinessDirectory + Get + Return _BusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("BusinessDirectory", _BusinessDirectory, value) + End Set + End Property + + _ + Property SpreadXML As String + Get + Return _SpreadXML + End Get + Set(value As String) + SetPropertyValue("SpreadXML", _SpreadXML, value) + End Set + End Property + + 'Private _PersistentProperty As String + ' _ + ' _ + ' _ + 'Public Property PersistentProperty() As String + ' Get + ' Return _PersistentProperty + ' End Get + ' Set(ByVal value As String) + ' SetPropertyValue("PersistentProperty", _PersistentProperty, value) + ' End Set + 'End Property + + ' _ + 'Public Sub ActionMethod() + ' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619). + ' Me.PersistentProperty = "Paid" + 'End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorHeader.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorHeader.vb new file mode 100644 index 0000000..d732c1f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorHeader.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RTFDocumentsCreatorHeader + Inherits BaseObject + + + Private _RTFDocumentsCreatorRows As IList(Of RTFDocumentsCreatorRows) + Public Sub New(ByVal session As Session) + MyBase.New(session) + + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + _RTFDocumentsCreatorRows = New List(Of RTFDocumentsCreatorRows) + End Sub + + Property RTFExportFileType As eRTFExportFileType + Property FileName As String + _ + Property BusinessDirectory As BusinessDirectory + ReadOnly Property RTFDocumentsCreatorRows As IList(Of RTFDocumentsCreatorRows) + Get + Return _RTFDocumentsCreatorRows + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorRows.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorRows.vb new file mode 100644 index 0000000..c2ca1d2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/Popup/RTFDocumentsCreatorRows.vb @@ -0,0 +1,26 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RTFDocumentsCreatorRows + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property RTFDocumentsCreatorHeader As RTFDocumentsCreatorHeader + Property InfoString As String + Property ValueString As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFCopy.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFCopy.vb new file mode 100644 index 0000000..c44cdde --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFCopy.vb @@ -0,0 +1,49 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RTFCopy + Inherits BaseObject + + Private _UserCreated As User + Private _RTFString As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property RTFString As String + Get + Return _RTFString + End Get + Set(value As String) + SetPropertyValue("RTFString", _RTFString, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsAuditBody.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsAuditBody.vb new file mode 100644 index 0000000..4ebec92 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsAuditBody.vb @@ -0,0 +1,32 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class RTFDocumentsAuditBody + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ModifiedOn As Date + Property UserName As String + Property DocumentBody As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandler.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandler.vb new file mode 100644 index 0000000..3445a4c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandler.vb @@ -0,0 +1,125 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class RTFDocumentsHandler + Inherits BaseObject + + Private _ShortName As String + Private _Version As String + + Private _ObjectCreated As Date + Private _UserCreated As User + Private _HRPerson As HRPerson + + Private _DocumentBody As String + Private _IsEditable As Boolean = True + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Version As String + Get + Return _Version + End Get + Set(value As String) + SetPropertyValue("Version", _Version, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + _ + Property DocumentBody As String + Get + Return _DocumentBody + End Get + Set(value As String) + SetPropertyValue("DocumentBody", _DocumentBody, value) + End Set + End Property + Property IsEditable As Boolean + Get + Return _IsEditable + End Get + Set(value As Boolean) + SetPropertyValue("IsEditable", _IsEditable, value) + End Set + End Property + + '-------Audit-------------- + _ + _ + ReadOnly Property AuditTrail() As XPCollection(Of AuditDataItemPersistent) + Get + Return AuditedObjectWeakReference.GetAuditTrail(Session, Me) + End Get + End Property + 'Dim _AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent) + 'Dim _AuditDataItemPersistent As AuditDataItemPersistent + + ' If TryCast(_Object, RegistryHeader) IsNot Nothing Then + ' _AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_uow, _Object) + ' For Each _AuditDataItemPersistent In _AuditDataItemPersistent_Collection + ' If _AuditDataItemPersistent.PropertyName = "DocumentNumber" Then + + ' End If + ' Next + ' End If + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.Designer.vb new file mode 100644 index 0000000..3b596fa --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class RTFDocumentsHandlerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRTFDocumentsHandlerOpenPreviousDocument = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aRTFDocumentsHandlerOpenPreviousDocument + ' + Me.aRTFDocumentsHandlerOpenPreviousDocument.AcceptButtonCaption = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.CancelButtonCaption = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.Caption = "aRTFDocumentsHandlerOpenPreviousDocument" + Me.aRTFDocumentsHandlerOpenPreviousDocument.ConfirmationMessage = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.Id = "aRTFDocumentsHandlerOpenPreviousDocument" + Me.aRTFDocumentsHandlerOpenPreviousDocument.ImageName = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRTFDocumentsHandlerOpenPreviousDocument.Shortcut = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.Tag = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetObjectsCriteria = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetObjectType = GetType(SISBusiness.[Module].RTFDocumentsHandler) + Me.aRTFDocumentsHandlerOpenPreviousDocument.TargetViewId = "RTFDocumentsHandler_ListView" + Me.aRTFDocumentsHandlerOpenPreviousDocument.ToolTip = Nothing + Me.aRTFDocumentsHandlerOpenPreviousDocument.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + Friend WithEvents aRTFDocumentsHandlerOpenPreviousDocument As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.resx new file mode 100644 index 0000000..4758eb7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.vb new file mode 100644 index 0000000..c2f9503 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/RTFDocumentHandler/RTFDocumentsHandlerVC.vb @@ -0,0 +1,76 @@ +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.Persistent.BaseImpl + +Public Class RTFDocumentsHandlerVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aRTFDocumentsHandlerOpenPreviousDocument_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRTFDocumentsHandlerOpenPreviousDocument.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + + If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Nincs kivlasztva egyetlen sor sem!") + Dim _CS As New CollectionSource(_onew, GetType(RTFDocumentsAuditBody)) + For Each _AuditDataItemPersistent As AuditDataItemPersistent In _RTFDocumentsHandler.AuditTrail + If _AuditDataItemPersistent.PropertyName = "DocumentBody" Then + Dim _RTFDocumentsAuditBody As RTFDocumentsAuditBody = _onew.CreateObject(Of RTFDocumentsAuditBody)() + _RTFDocumentsAuditBody.ModifiedOn = _AuditDataItemPersistent.ModifiedOn + _RTFDocumentsAuditBody.UserName = _AuditDataItemPersistent.UserName + _RTFDocumentsAuditBody.DocumentBody = _AuditDataItemPersistent.NewValue + + _CS.Add(_RTFDocumentsAuditBody) + End If + Next + + e.View = Application.CreateListView("RTFDocumentsAuditBody_ListView", _CS, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aRTFDocumentsHandlerOpenPreviousDocument_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRTFDocumentsHandlerOpenPreviousDocument.Execute + Try + + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _RTFDocumentsHandler As RTFDocumentsHandler = TryCast(View.SelectedObjects(0), RTFDocumentsHandler) + If _RTFDocumentsHandler Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + Dim _RTFDocumentsAuditBody As RTFDocumentsAuditBody = TryCast(e.PopupWindow.View.SelectedObjects(0), RTFDocumentsAuditBody) + + Dim _RTFDocumentsHandler_NEW As RTFDocumentsHandler = _onew.CreateObject(Of RTFDocumentsHandler)() + + _RTFDocumentsHandler_NEW.ShortName = _RTFDocumentsHandler.ShortName + _RTFDocumentsHandler_NEW.DocumentBody = _RTFDocumentsAuditBody.DocumentBody + + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "RTFDocumentsHandler_DetailView", True, _RTFDocumentsHandler_NEW) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.Designer.vb new file mode 100644 index 0000000..adb5620 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.Designer.vb @@ -0,0 +1,37 @@ +Partial Class SetDefaultCountryHungaryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + ' + 'SetDefaultCountryHungary + ' + Me.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root + Me.TypeOfView = GetType(DevExpress.ExpressApp.View) + + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.vb new file mode 100644 index 0000000..5eef8bc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/SetDefaultCountryHungaryVC.vb @@ -0,0 +1,34 @@ +Imports System +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Diagnostics +Imports System.Text +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions +Imports DevExpress.Persistent.Base +Imports DevExpress.Data.Filtering + +Public Class SetDefaultCountryHungaryVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + TargetObjectType = GetType(Address) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "Address_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Address As Address = TryCast(View.SelectedObjects(0), Address) + Dim _Country As Country = _ocur.FindObject(Of Country)(CriteriaOperator.Parse("Name='Magyarország'")) + If _ocur.Session.IsNewObject(_Address) Then _Address.Country = _Country + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection.vb new file mode 100644 index 0000000..f03d739 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class TextCollection + Inherits BaseObject + + Private _RowGroup As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Public Property RowGroup As String + Get + Return _RowGroup + End Get + Set(ByVal value As String) + SetPropertyValue("RowGroup", _RowGroup, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.Designer.vb new file mode 100644 index 0000000..31e6396 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.Designer.vb @@ -0,0 +1,105 @@ +Partial Class TextCollection_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aTextCollection_CreateCollection_RW1 = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aTextCollection_CreateCollection_RW2 = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aInvoiceHeader_Description = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDeliveryNoteOutHeader_Note = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aTextCollection_CreateCollection_RW1 + ' + Me.aTextCollection_CreateCollection_RW1.AcceptButtonCaption = Nothing + Me.aTextCollection_CreateCollection_RW1.CancelButtonCaption = Nothing + Me.aTextCollection_CreateCollection_RW1.Caption = "..." + Me.aTextCollection_CreateCollection_RW1.Category = "aTextCollection_CreateCollection_RW1" + Me.aTextCollection_CreateCollection_RW1.ConfirmationMessage = Nothing + Me.aTextCollection_CreateCollection_RW1.Id = "aTextCollection_CreateCollection_RW1" + Me.aTextCollection_CreateCollection_RW1.ImageName = Nothing + Me.aTextCollection_CreateCollection_RW1.Shortcut = Nothing + Me.aTextCollection_CreateCollection_RW1.Tag = Nothing + Me.aTextCollection_CreateCollection_RW1.TargetObjectsCriteria = Nothing + Me.aTextCollection_CreateCollection_RW1.TargetViewId = Nothing + Me.aTextCollection_CreateCollection_RW1.ToolTip = Nothing + Me.aTextCollection_CreateCollection_RW1.TypeOfView = Nothing + ' + 'aTextCollection_CreateCollection_RW2 + ' + Me.aTextCollection_CreateCollection_RW2.AcceptButtonCaption = Nothing + Me.aTextCollection_CreateCollection_RW2.CancelButtonCaption = Nothing + Me.aTextCollection_CreateCollection_RW2.Caption = "..." + Me.aTextCollection_CreateCollection_RW2.Category = "aTextCollection_CreateCollection_RW2" + Me.aTextCollection_CreateCollection_RW2.ConfirmationMessage = Nothing + Me.aTextCollection_CreateCollection_RW2.Id = "aTextCollection_CreateCollection_RW2" + Me.aTextCollection_CreateCollection_RW2.ImageName = Nothing + Me.aTextCollection_CreateCollection_RW2.Shortcut = Nothing + Me.aTextCollection_CreateCollection_RW2.Tag = Nothing + Me.aTextCollection_CreateCollection_RW2.TargetObjectsCriteria = Nothing + Me.aTextCollection_CreateCollection_RW2.TargetViewId = Nothing + Me.aTextCollection_CreateCollection_RW2.ToolTip = Nothing + Me.aTextCollection_CreateCollection_RW2.TypeOfView = Nothing + ' + 'aInvoiceHeader_Description + ' + Me.aInvoiceHeader_Description.AcceptButtonCaption = Nothing + Me.aInvoiceHeader_Description.CancelButtonCaption = Nothing + Me.aInvoiceHeader_Description.Caption = "..." + Me.aInvoiceHeader_Description.Category = "aInvoiceHeader_Description" + Me.aInvoiceHeader_Description.ConfirmationMessage = Nothing + Me.aInvoiceHeader_Description.Id = "aInvoiceHeader_Description" + Me.aInvoiceHeader_Description.ImageName = Nothing + Me.aInvoiceHeader_Description.Shortcut = Nothing + Me.aInvoiceHeader_Description.Tag = Nothing + Me.aInvoiceHeader_Description.TargetObjectsCriteria = Nothing + Me.aInvoiceHeader_Description.TargetViewId = Nothing + Me.aInvoiceHeader_Description.ToolTip = Nothing + Me.aInvoiceHeader_Description.TypeOfView = Nothing + ' + 'aDeliveryNoteOutHeader_Note + ' + Me.aDeliveryNoteOutHeader_Note.AcceptButtonCaption = Nothing + Me.aDeliveryNoteOutHeader_Note.CancelButtonCaption = Nothing + Me.aDeliveryNoteOutHeader_Note.Caption = "..." + Me.aDeliveryNoteOutHeader_Note.Category = "aDeliveryNoteOutHeader_Note" + Me.aDeliveryNoteOutHeader_Note.ConfirmationMessage = Nothing + Me.aDeliveryNoteOutHeader_Note.Id = "aDeliveryNoteOutHeader_Note" + Me.aDeliveryNoteOutHeader_Note.ImageName = Nothing + Me.aDeliveryNoteOutHeader_Note.Shortcut = Nothing + Me.aDeliveryNoteOutHeader_Note.Tag = Nothing + Me.aDeliveryNoteOutHeader_Note.TargetObjectsCriteria = Nothing + Me.aDeliveryNoteOutHeader_Note.TargetViewId = Nothing + Me.aDeliveryNoteOutHeader_Note.ToolTip = Nothing + Me.aDeliveryNoteOutHeader_Note.TypeOfView = Nothing + + End Sub + Friend WithEvents aTextCollection_CreateCollection_RW1 As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aTextCollection_CreateCollection_RW2 As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aInvoiceHeader_Description As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDeliveryNoteOutHeader_Note As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.resx b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.resx new file mode 100644 index 0000000..8e81990 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 95 + + + 17, 134 + + + 818, 100 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.vb new file mode 100644 index 0000000..e6f73ba --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/TextCollection_VC.vb @@ -0,0 +1,257 @@ +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.Utils + +Public Class TextCollection_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Private Sub aTextCollection_CreateCollection_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTextCollection_CreateCollection_RW1.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _TextCollection_CollectionSource As New CollectionSource(_onew, GetType(TextCollection)) + Dim _TextArray As New ArrayList + + Select Case View.Tag + Case "aCRM_LeadsDocumentation_ChangeGroup" + Dim _CRM_LeadsDocumentation_Collection As New XPCollection(Of CRM_LeadsDocumentation)(_onew.Session) + For Each _CRM_LeadsDocumentation As CRM_LeadsDocumentation In _CRM_LeadsDocumentation_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CRM_LeadsDocumentation.RowGroup1) Then + _TextArray.Add(_CRM_LeadsDocumentation.RowGroup1) + Else + If Not _TextArray.Contains(_CRM_LeadsDocumentation.RowGroup1) And Not String.IsNullOrEmpty(_CRM_LeadsDocumentation.RowGroup1) _ + Then _TextArray.Add(_CRM_LeadsDocumentation.RowGroup1) + End If + Next + Case "aCustomersFileAttachment_ChangeGroup" + Dim _CustomersFileAttachment_Collection As New XPCollection(Of CustomersFileAttachment)(_onew.Session) + For Each _CustomersFileAttachment As CustomersFileAttachment In _CustomersFileAttachment_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup1) Then + _TextArray.Add(_CustomersFileAttachment.RowGroup1) + Else + If Not _TextArray.Contains(_CustomersFileAttachment.RowGroup1) And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup1) _ + Then _TextArray.Add(_CustomersFileAttachment.RowGroup1) + End If + Next + Case "aProductsDocumentations_ChangeGroup" + Dim _ProductsDocumentations_Collection As New XPCollection(Of ProductsDocumentations)(_onew.Session) + For Each _ProductsDocumentations As ProductsDocumentations In _ProductsDocumentations_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_ProductsDocumentations.RowGroup1) Then + _TextArray.Add(_ProductsDocumentations.RowGroup1) + Else + If Not _TextArray.Contains(_ProductsDocumentations.RowGroup1) And Not String.IsNullOrEmpty(_ProductsDocumentations.RowGroup1) _ + Then _TextArray.Add(_ProductsDocumentations.RowGroup1) + End If + Next + Case "aCustomersDocFileAttachment_ChangeGroup" + Dim _CustomersFileAttachment_Collection As New XPCollection(Of CustomersFileAttachment)(_onew.Session) + For Each _CustomersFileAttachment As CustomersFileAttachment In _CustomersFileAttachment_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup1) Then + _TextArray.Add(_CustomersFileAttachment.RowGroup1) + Else + If Not _TextArray.Contains(_CustomersFileAttachment.RowGroup1) And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup1) _ + Then _TextArray.Add(_CustomersFileAttachment.RowGroup1) + End If + Next + Case Else + _TextArray = Nothing + End Select + + If _TextArray IsNot Nothing Then + For Each _RowGroup1Text As String In _TextArray + Dim _TextCollection As New TextCollection(_onew.Session) + _TextCollection.RowGroup = _RowGroup1Text + _TextCollection_CollectionSource.Add(_TextCollection) + Next + End If + + + e.View = Application.CreateListView("TextCollection_ListView", _TextCollection_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aTextCollection_CreateCollection_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTextCollection_CreateCollection_RW1.Execute + Try + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(View.SelectedObjects(0), ChangeFileAttachment_PopUp) + _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True + _ChangeFileAttachment_PopUp.RowGroup1 = TryCast(e.PopupWindow.View.SelectedObjects(0), TextCollection).RowGroup + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aTextCollection_CreateCollection_RW2_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aTextCollection_CreateCollection_RW2.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _TextCollection_CollectionSource As New CollectionSource(_onew, GetType(TextCollection)) + Dim _TextArray As New ArrayList + + Select Case View.Tag + Case "aCRM_LeadsDocumentation_ChangeGroup" + Dim _CRM_LeadsDocumentation_Collection As New XPCollection(Of CRM_LeadsDocumentation)(_onew.Session) + For Each _CRM_LeadsDocumentation As CRM_LeadsDocumentation In _CRM_LeadsDocumentation_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CRM_LeadsDocumentation.RowGroup2) Then + _TextArray.Add(_CRM_LeadsDocumentation.RowGroup2) + Else + If Not _TextArray.Contains(_CRM_LeadsDocumentation.RowGroup2) And Not String.IsNullOrEmpty(_CRM_LeadsDocumentation.RowGroup2) _ + Then _TextArray.Add(_CRM_LeadsDocumentation.RowGroup2) + End If + Next + Case "aCustomersFileAttachment_ChangeGroup" + Dim _CustomersFileAttachment_Collection As New XPCollection(Of CustomersFileAttachment)(_onew.Session) + For Each _CustomersFileAttachment As CustomersFileAttachment In _CustomersFileAttachment_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup2) Then + _TextArray.Add(_CustomersFileAttachment.RowGroup2) + Else + If Not _TextArray.Contains(_CustomersFileAttachment.RowGroup2) And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup2) _ + Then _TextArray.Add(_CustomersFileAttachment.RowGroup2) + End If + Next + Case "aProductsDocumentations_ChangeGroup" + Dim _ProductsDocumentations_Collection As New XPCollection(Of ProductsDocumentations)(_onew.Session) + For Each _ProductsDocumentations As ProductsDocumentations In _ProductsDocumentations_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_ProductsDocumentations.RowGroup2) Then + _TextArray.Add(_ProductsDocumentations.RowGroup2) + Else + If Not _TextArray.Contains(_ProductsDocumentations.RowGroup2) And Not String.IsNullOrEmpty(_ProductsDocumentations.RowGroup2) _ + Then _TextArray.Add(_ProductsDocumentations.RowGroup2) + End If + Next + Case "aCustomersDocFileAttachment_ChangeGroup" + Dim _CustomersFileAttachment_Collection As New XPCollection(Of CustomersFileAttachment)(_onew.Session) + For Each _CustomersFileAttachment As CustomersFileAttachment In _CustomersFileAttachment_Collection + If _TextArray.Count = 0 And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup2) Then + _TextArray.Add(_CustomersFileAttachment.RowGroup2) + Else + If Not _TextArray.Contains(_CustomersFileAttachment.RowGroup2) And Not String.IsNullOrEmpty(_CustomersFileAttachment.RowGroup2) _ + Then _TextArray.Add(_CustomersFileAttachment.RowGroup2) + End If + Next + Case Else + _TextArray = Nothing + End Select + If _TextArray IsNot Nothing Then + For Each _RowGroup2Text As String In _TextArray + Dim _TextCollection As New TextCollection(_onew.Session) + _TextCollection.RowGroup = _RowGroup2Text + _TextCollection_CollectionSource.Add(_TextCollection) + Next + End If + e.View = Application.CreateListView("TextCollection_ListView", _TextCollection_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aTextCollection_CreateCollection_RW2_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aTextCollection_CreateCollection_RW2.Execute + Try + Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(View.SelectedObjects(0), ChangeFileAttachment_PopUp) + _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True + _ChangeFileAttachment_PopUp.RowGroup2 = TryCast(e.PopupWindow.View.SelectedObjects(0), TextCollection).RowGroup + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aInvoiceHeader_Description_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aInvoiceHeader_Description.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(View.SelectedObjects(0), ORI_Invoice_Popup) + If _ORI_Invoice_Popup Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _TextCollection_CollectionSource As New CollectionSource(_onew, GetType(TextCollection)) + Dim _TextArray As New ArrayList + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_onew.Session, CriteriaOperator.Parse("CustomersFrom=?", _onew.GetObject(_ORI_Invoice_Popup.CustomersFrom))) + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Collection + If Not String.IsNullOrEmpty(_InvoiceHeader.Description) Then + If _TextArray.Count = 0 Then + _TextArray.Add(_InvoiceHeader.Description) + Else + If Not _TextArray.Contains(_InvoiceHeader.Description) Then _TextArray.Add(_InvoiceHeader.Description) + End If + End If + Next + + For Each _Description As String In _TextArray + Dim _TextCollection As New TextCollection(_onew.Session) + _TextCollection.RowGroup = _Description + _TextCollection_CollectionSource.Add(_TextCollection) + Next + e.View = Application.CreateListView("TextCollection_ListView", _TextCollection_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aInvoiceHeader_Description_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aInvoiceHeader_Description.Execute + Try + Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(View.SelectedObjects(0), ORI_Invoice_Popup) + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + For Each _TextCollection As TextCollection In e.PopupWindow.View.SelectedObjects + If String.IsNullOrEmpty(_ORI_Invoice_Popup.Description) Then + _ORI_Invoice_Popup.Description = _TextCollection.RowGroup + Else + _ORI_Invoice_Popup.Description += vbNewLine + _TextCollection.RowGroup + End If + Next + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDeliveryNoteOutHeader_Note_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aDeliveryNoteOutHeader_Note.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _DeliveryNoteOutfromStorageOutrowsInRowsPopup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = TryCast(View.SelectedObjects(0), DeliveryNoteOutfromStorageOutrowsInRowsPopup) + If _DeliveryNoteOutfromStorageOutrowsInRowsPopup Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + Dim _TextCollection_CollectionSource As New CollectionSource(_onew, GetType(TextCollection)) + Dim _TextArray As New ArrayList + Dim _DeliveryNoteOutHeaderr_Collection As New XPCollection(Of DeliveryNoteOutHeader)(_onew.Session, CriteriaOperator.Parse("CustomersFrom=?", _onew.GetObject(_DeliveryNoteOutfromStorageOutrowsInRowsPopup.CustomersFrom))) + + For Each _DeliveryNoteOutHeader As DeliveryNoteOutHeader In _DeliveryNoteOutHeaderr_Collection + If Not String.IsNullOrEmpty(_DeliveryNoteOutHeader.Note) Then + If _TextArray.Count = 0 Then + _TextArray.Add(_DeliveryNoteOutHeader.Note) + Else + If Not _TextArray.Contains(_DeliveryNoteOutHeader.Note) Then _TextArray.Add(_DeliveryNoteOutHeader.Note) + End If + End If + Next + + For Each _Description As String In _TextArray + Dim _TextCollection As New TextCollection(_onew.Session) + _TextCollection.RowGroup = _Description + _TextCollection_CollectionSource.Add(_TextCollection) + Next + e.View = Application.CreateListView("TextCollection_ListView", _TextCollection_CollectionSource, True) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aDeliveryNoteOutHeader_Note_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aDeliveryNoteOutHeader_Note.Execute + Try + Dim _DeliveryNoteOutfromStorageOutrowsInRowsPopup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = TryCast(View.SelectedObjects(0), DeliveryNoteOutfromStorageOutrowsInRowsPopup) + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + For Each _TextCollection As TextCollection In e.PopupWindow.View.SelectedObjects + If String.IsNullOrEmpty(_DeliveryNoteOutfromStorageOutrowsInRowsPopup.Note) Then + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.Note = _TextCollection.RowGroup + Else + _DeliveryNoteOutfromStorageOutrowsInRowsPopup.Note += vbNewLine + _TextCollection.RowGroup + End If + Next + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/TimeStamp.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/TimeStamp.vb new file mode 100644 index 0000000..0b8ef32 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/TimeStamp.vb @@ -0,0 +1,18 @@ +Imports System +Imports System.Data.SqlClient +Imports DevExpress.Xpo +Imports DevExpress.Persistent.AuditTrail +Public Class TimeStamp + Implements IAuditTimestampStrategy + Private cachedTimestamp As DateTime + Public Function GetTimestamp(ByVal auditDataItem As AuditDataItem) As DateTime _ + Implements IAuditTimestampStrategy.GetTimestamp + Return cachedTimestamp + End Function + Public Sub OnBeginSaveTransaction(ByVal session As Session) _ + Implements IAuditTimestampStrategy.OnBeginSaveTransaction + Dim command As SqlCommand = New SqlCommand("select getdate()", _ + CType(session.Connection, SqlConnection)) + cachedTimestamp = CDate(command.ExecuteScalar()) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.Designer.vb new file mode 100644 index 0000000..3bbe970 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class User_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.vb new file mode 100644 index 0000000..62f8457 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/User_VC.vb @@ -0,0 +1,32 @@ +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 User_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "User_ListView_Support" Then + ' Beep() + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "User_ListView_Support" Then + ' Beep() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystem.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystem.vb new file mode 100644 index 0000000..109d3f6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystem.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class WorkflowSystem '-- Folyamatmenedzsment iktatshoz + Inherits BaseObject + Private _CustomersFrom As CustomersFrom + Private _PartnerType As ePartnerType + Private _ShortName As String + Private _Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + _ + ReadOnly Property WorkflowSystemSteps() As XPCollection(Of WorkflowSystemSteps) + Get + Return GetCollection(Of WorkflowSystemSteps)("WorkflowSystemSteps") + End Get + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property Description As String + Get + Return _Description + End Get + Set(ByVal value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property PartnerType As ePartnerType + Get + Return _PartnerType + End Get + Set(value As ePartnerType) + SetPropertyValue("PartnerType", _PartnerType, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystemSteps.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystemSteps.vb new file mode 100644 index 0000000..5af1642 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/WorkFlow/WorkFlowSystemSteps.vb @@ -0,0 +1,166 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class WorkflowSystemSteps '-- Folyamatmenedzsment iktatshoz + Inherits BaseObject + Private _WorkflowSystem As WorkflowSystem + Private _ShortName As String + Private _StepIndex As Long + Private _TaskDescription As String + Private _HRResponsibleGroups As HRGroups + Private _HRResponsible As HRPerson + Private _ExpirationDayofFailure As Long + Private _HRDayofFailurePerson As HRPerson + Private _ActionOnSuccess As eWFAction + Private _ActionOnFailure As eWFAction + Private _IsLastStep As Boolean = False + Private _IsReadyForImport As Boolean = False 'Ksz arra, hogy a knyvels importlja + Private _StepFinancialType As eStepFinancialType = eStepFinancialType.eNoCheck + Private _AlertPeriod As AlertPeriod + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + 'If Session.IsNewObject(Me) Then + ' Dim _WorkflowSystemStep As WorkflowSystemSteps + ' Dim I As Long = 1 + ' If Me.WorkflowSystem IsNot Nothing Then + ' For Each _WorkflowSystemStep In Me.WorkflowSystem.WorkflowSystemSteps + ' If I < _WorkflowSystemStep.StepIndex Then + ' I = _WorkflowSystemStep.StepIndex + ' End If + ' Next + ' StepIndex = I + ' Else + ' StepIndex = I + ' End If + + 'End If + End Sub + _ + Property WorkflowSystem() As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(ByVal value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property + Property ShortName() As String + Get + Return _ShortName + End Get + Set(ByVal value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property StepIndex As Long + Get + Return _StepIndex + End Get + Set(ByVal value As Long) + SetPropertyValue("StepIndex", _StepIndex, value) + End Set + End Property + Property TaskDescription As String + Get + Return _TaskDescription + End Get + Set(ByVal value As String) + SetPropertyValue("TaskDescription", _TaskDescription, value) + End Set + End Property + Property HRResponsibleGroups As HRGroups + Get + Return _HRResponsibleGroups + End Get + Set(ByVal value As HRGroups) + SetPropertyValue("HRResponsibleGroups", _HRResponsibleGroups, value) + End Set + End Property + Property HRResponsible As HRPerson + Get + Return _HRResponsible + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRResponsible", _HRResponsible, value) + End Set + End Property + Property ExpirationDayofFailure As Long + Get + Return _ExpirationDayofFailure + End Get + Set(ByVal value As Long) + SetPropertyValue("ExpirationDayofFailure", _ExpirationDayofFailure, value) + End Set + End Property + Property HRDayofFailurePerson As HRPerson + Get + Return _HRDayofFailurePerson + End Get + Set(ByVal value As HRPerson) + SetPropertyValue("HRDayofFailurePerson", _HRDayofFailurePerson, value) + End Set + End Property + Property ActionOnSuccess As eWFAction + Get + Return _ActionOnSuccess + End Get + Set(ByVal value As eWFAction) + SetPropertyValue("ActionOnSuccess", _ActionOnSuccess, value) + End Set + End Property + Property ActionOnFailure As eWFAction + Get + Return _ActionOnFailure + End Get + Set(ByVal value As eWFAction) + SetPropertyValue("ActionOnFailure", _ActionOnFailure, value) + End Set + End Property + Property IsLastStep As Boolean + Get + Return _IsLastStep + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsLastStep", _IsLastStep, value) + End Set + End Property + Property IsReadyForImport As Boolean + Get + Return _IsReadyForImport + End Get + Set(ByVal value As Boolean) + SetPropertyValue("IsReadyForImport", _IsReadyForImport, value) + End Set + End Property + Property StepFinancialType As eStepFinancialType + Get + Return _StepFinancialType + End Get + Set(ByVal value As eStepFinancialType) + SetPropertyValue("StepFinancialType", _StepFinancialType, value) + End Set + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property +End Class + diff --git a/SISBusiness.Module/BusinessObjects/GeneralObjects/ZIPHU.vb b/SISBusiness.Module/BusinessObjects/GeneralObjects/ZIPHU.vb new file mode 100644 index 0000000..8c4f74e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/GeneralObjects/ZIPHU.vb @@ -0,0 +1,30 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ +Public Class ZIPHU + Inherits XPLiteObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property ID As Long + Property Zip As String + Property City As String + Property County As String +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/PopUp/ProjectNewEvents.vb b/SISBusiness.Module/BusinessObjects/Project/PopUp/ProjectNewEvents.vb new file mode 100644 index 0000000..cdf3644 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/PopUp/ProjectNewEvents.vb @@ -0,0 +1,37 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class ProjectNewEvents + Inherits BaseObject + + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectBar.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectBar.vb new file mode 100644 index 0000000..727a071 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectBar.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectBar + Inherits BaseObject + Private _ProjectRows As ProjectRows + Private _DateStart As Date + Private _DateEnd As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + End Set + End Property + Property DateStart As Date + Get + Return _DateStart + End Get + Set(value As Date) + SetPropertyValue("DateStart", _DateStart, value) + End Set + End Property + Property DateEnd As Date + Get + Return _DateEnd + End Get + Set(value As Date) + SetPropertyValue("DateEnd", _DateEnd, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectContacts.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectContacts.vb new file mode 100644 index 0000000..333b46f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectContacts.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectContacts + Inherits BaseObject + Private _ProjectHeader As ProjectHeader + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectCustomers.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectCustomers.vb new file mode 100644 index 0000000..baa4fc2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectCustomers.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectCustomers + Inherits BaseObject + Private _ProjectHeader As ProjectHeader + Private _Customers As Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectHRPerson.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectHRPerson.vb new file mode 100644 index 0000000..ba83f1f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectHRPerson.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectHRPerson + Inherits BaseObject + + Private _ProjectHeader As ProjectHeader + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectHeader.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectHeader.vb new file mode 100644 index 0000000..fdd63a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectHeader.vb @@ -0,0 +1,145 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Imports DevExpress.ExpressApp.ConditionalAppearance + _ + _ +Public Class ProjectHeader + Inherits BaseObject + + Private _JobNumberObjects As JobNumberObjects + Private _ProjectType As ProjectType + Private _DocumentNumber As String + Private _CustomersFrom As CustomersFrom + Private _G2antt As String + Private _GanttChart As String + Private _ShortName As String + Private _Description As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If DocumentNumber = "" Then + DocumentNumber = Me.ProjectType.NumberGenerator.GetNewNumber(Me.ProjectType.NumberGenerator) + End If + End Sub + + Property JobNumberObjects As JobNumberObjects + Get + Return _JobNumberObjects + End Get + Set(value As JobNumberObjects) + SetPropertyValue("JobNumberObjects", _JobNumberObjects, value) + End Set + End Property + _ + _ + Property ProjectType As ProjectType + Get + Return _ProjectType + End Get + Set(value As ProjectType) + SetPropertyValue("ProjectType", _ProjectType, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + _ + Property G2antt As String + Get + Return _G2antt + End Get + Set(value As String) + SetPropertyValue("G2antt", _G2antt, value) + End Set + End Property + _ + Property GanttChart As String + Get + Return _GanttChart + End Get + Set(value As String) + SetPropertyValue("GanttChart", _GanttChart, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + + ReadOnly Property ProjectRows As XPCollection(Of ProjectRows) + Get + Return New XPCollection(Of ProjectRows)(Session, CriteriaOperator.Parse("ProjectHeader=?", Me)) + End Get + End Property + _ + ReadOnly Property ProjectQuestion As XPCollection(Of ProjectQuestion) + Get + Return GetCollection(Of ProjectQuestion)("ProjectQuestion") + End Get + End Property + _ + ReadOnly Property ProjectHRPerson As XPCollection(Of ProjectHRPerson) + Get + Return GetCollection(Of ProjectHRPerson)("ProjectHRPerson") + End Get + End Property + _ + ReadOnly Property ProjectSubcontractor As XPCollection(Of ProjectSubcontractor) + Get + Return GetCollection(Of ProjectSubcontractor)("ProjectSubcontractor") + End Get + End Property + _ + ReadOnly Property ProjectCustomers As XPCollection(Of ProjectCustomers) + Get + Return GetCollection(Of ProjectCustomers)("ProjectCustomers") + End Get + End Property + _ + ReadOnly Property ProjectContacts As XPCollection(Of ProjectContacts) + Get + Return GetCollection(Of ProjectContacts)("ProjectContacts") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectQuestion.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectQuestion.vb new file mode 100644 index 0000000..bb2d49b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectQuestion.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class ProjectQuestion + Inherits BaseObject + + Private _ProjectHeader As ProjectHeader + Private _Question As Question + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property Question As Question + Get + Return _Question + End Get + Set(value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectRows.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectRows.vb new file mode 100644 index 0000000..bde8e8d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectRows.vb @@ -0,0 +1,213 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + +Public Enum eProjectBarType + eDeadline = 0 + eProjectSummary = 1 + eSummary = 2 + eMilestone = 3 + eProgress = 4 + eSplit = 5 + eTask = 6 +End Enum +Public Enum eTaskDuty + eNotSet = -1 + ePartnerTask = 0 'Partner feladata + eSubcontractorTask = 1 'Alvllalkoz feladata + eMyTask = 2 'A mi feladatunk +End Enum + _ + _ + _ + _ +Public Class ProjectRows + Inherits BaseObject + Private _ProjectRows As ProjectRows 'Melyik hierarchira mutat + Private _ProjectHeader As ProjectHeader 'Melyik projecthez tartozik + Private _RowPos As String '1,1.1,1.1.1 ez a hierarchia, automatikusan adhat legyen, mint a fk. szmlaszmok + Private _TaskName As String 'Feladat megnevezse + Private _DateStart As Date ' Kezdete + Private _DateEnd As Date 'Vge + Private _ProjectBarType As eProjectBarType 'Bar tipus + Private _AlertPeriod As AlertPeriod 'Figyelmeztets a lejrat eltt s utn + Private _TaskDuty As eTaskDuty ' Kinek a felelssge + Private _Description As String 'Egyb megjegyzs ehhez a feladathoz + Private _PercentCompleted As Double '? szzalkban van elkszlve + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If String.IsNullOrEmpty(RowPos) Then + Dim _ProjectRows_Collection As New XPCollection(Of ProjectRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + Session, CriteriaOperator.Parse("ProjectHeader=? AND IsNull(ProjectRows)=True", ProjectHeader)) + If _ProjectRows_Collection.Count = 0 Then + RowPos = "1" + ProjectHeader.ProjectType.SeparatorChar + Else + RowPos = (_ProjectRows_Collection.Count).ToString + ProjectHeader.ProjectType.SeparatorChar + End If + End If + End Sub + _ + '@This.Oid'")> _ + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then + Dim _ProjectRows_Collection As New XPCollection(Of ProjectRows)(Session, CriteriaOperator.Parse("ProjectHeader=? AND ProjectRows=?", ProjectHeader, value)) + If value Is Nothing Then + RowPos = Nothing + Else + If _ProjectRows_Collection.Count = 0 Then + RowPos = value.RowPos + "1" + ProjectHeader.ProjectType.SeparatorChar + Else + RowPos = value.RowPos + (_ProjectRows_Collection.Count + 1).ToString + ProjectHeader.ProjectType.SeparatorChar + End If + End If + + End If + + End Set + End Property + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property RowPos As String + Get + Return _RowPos + End Get + Set(value As String) + SetPropertyValue("RowPos", _RowPos, value) + End Set + End Property + _ + Property TaskName As String + Get + Return _TaskName + End Get + Set(value As String) + SetPropertyValue("TaskName", _TaskName, value) + End Set + End Property + Property DateStart As Date + Get + Return _DateStart + End Get + Set(value As Date) + SetPropertyValue("DateStart", _DateStart, value) + End Set + End Property + Property DateEnd As Date + Get + Return _DateEnd + End Get + Set(value As Date) + SetPropertyValue("DateEnd", _DateEnd, value) + End Set + End Property + Property ProjectBarType As eProjectBarType + Get + Return _ProjectBarType + End Get + Set(value As eProjectBarType) + SetPropertyValue("ProjectBarType", _ProjectBarType, value) + End Set + End Property + ReadOnly Property SumDay As Long + Get + Return DateDiff(DateInterval.Day, Me.DateStart, Me.DateEnd) + End Get + End Property + Property AlertPeriod As AlertPeriod + Get + Return _AlertPeriod + End Get + Set(value As AlertPeriod) + SetPropertyValue("AlertPeriod", _AlertPeriod, value) + End Set + End Property + _ + Property TaskDuty As eTaskDuty + Get + Return _TaskDuty + End Get + Set(value As eTaskDuty) + SetPropertyValue("TaskDuty", _TaskDuty, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + Property PercentCompleted As Double + Get + Return _PercentCompleted + End Get + Set(value As Double) + SetPropertyValue("PercentCompleted", _PercentCompleted, value) + End Set + End Property + + '-------ReadOnly---------------- + _ + ReadOnly Property ProjectRows_Child As XPCollection(Of ProjectRows) + Get + Dim _ProjectRows_Collection As New XPCollection(Of ProjectRows)(Session, CriteriaOperator.Parse("ProjectRows=?", Me)) + If _ProjectRows_Collection Is Nothing Then + Return Nothing + Else + Return _ProjectRows_Collection + End If + End Get + End Property + _ + ReadOnly Property ProjectRowsCustomers As XPCollection(Of ProjectRowsCustomers) + Get + Return GetCollection(Of ProjectRowsCustomers)("ProjectRowsCustomers") + End Get + End Property + _ + ReadOnly Property ProjectRowsContacts As XPCollection(Of ProjectRowsContacts) + Get + Return GetCollection(Of ProjectRowsContacts)("ProjectRowsContacts") + End Get + End Property + _ + ReadOnly Property ProjectRowsHRPerson As XPCollection(Of ProjectRowsHRPerson) + Get + Return GetCollection(Of ProjectRowsHRPerson)("ProjectRowsHRPerson") + End Get + End Property + _ + ReadOnly Property ProjectRowsSubcontractor As XPCollection(Of ProjectRowsSubcontractor) + Get + Return GetCollection(Of ProjectRowsSubcontractor)("ProjectRowsSubcontractor") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectRowsContacts.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsContacts.vb new file mode 100644 index 0000000..d2c2404 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsContacts.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectRowsContacts + Inherits BaseObject + Private _ProjectRows As ProjectRows + Private _Contacts As Contacts + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + End Set + End Property + Property Contacts As Contacts + Get + Return _Contacts + End Get + Set(value As Contacts) + SetPropertyValue("Contacts", _Contacts, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectRowsCustomers.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsCustomers.vb new file mode 100644 index 0000000..b85b0c7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsCustomers.vb @@ -0,0 +1,41 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectRowsCustomers + Inherits BaseObject + Private _ProjectRows As ProjectRows + Private _Customers As Customers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + _ + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + End Set + End Property + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectRowsHRPerson.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsHRPerson.vb new file mode 100644 index 0000000..ff87caf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsHRPerson.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectRowsHRPerson + Inherits BaseObject + + Private _ProjectRows As ProjectRows + Private _HRPerson As HRPerson + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + End Set + End Property + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectRowsSubcontractor.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsSubcontractor.vb new file mode 100644 index 0000000..c6d8db6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectRowsSubcontractor.vb @@ -0,0 +1,42 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectRowsSubcontractor + Inherits BaseObject + Private _ProjectRows As ProjectRows + Private _Subcontractor As Subcontractor + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectRows As ProjectRows + Get + Return _ProjectRows + End Get + Set(value As ProjectRows) + SetPropertyValue("ProjectRows", _ProjectRows, value) + End Set + End Property + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectSubcontractor.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectSubcontractor.vb new file mode 100644 index 0000000..c08a590 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectSubcontractor.vb @@ -0,0 +1,43 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ProjectSubcontractor + Inherits BaseObject + + Private _ProjectHeader As ProjectHeader + Private _Subcontractor As Subcontractor + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ProjectHeader As ProjectHeader + Get + Return _ProjectHeader + End Get + Set(value As ProjectHeader) + SetPropertyValue("ProjectHeader", _ProjectHeader, value) + End Set + End Property + Property Subcontractor As Subcontractor + Get + Return _Subcontractor + End Get + Set(value As Subcontractor) + SetPropertyValue("Subcontractor", _Subcontractor, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectType.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectType.vb new file mode 100644 index 0000000..d646201 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectType.vb @@ -0,0 +1,109 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing + + _ +Public Class ProjectType + Inherits BaseObject + + Private _CustomersFrom As CustomersFrom + Private _ShortName As String + Private _NumberGenerator As NumberGenerator + Private _SeparatorChar As String + + Private _DutyColorNotSet As Int32 + Private _DutyColorPartnerTask As Int32 + Private _DutyColorMyTask As Int32 + Private _DutyColorSubcontractorTask As Int32 + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + SeparatorChar = "." + End Sub + + Property CustomersFrom As CustomersFrom + Get + Return _CustomersFrom + End Get + Set(value As CustomersFrom) + SetPropertyValue("CustomersFrom", _CustomersFrom, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property + Property SeparatorChar As String + Get + Return _SeparatorChar + End Get + Set(value As String) + SetPropertyValue("SeparatorChar", _SeparatorChar, value) + End Set + End Property + + _ + Public Property DutyColorPartnerTask_NP() As Color + Get + Return Color.FromArgb(_DutyColorPartnerTask) + End Get + Set(ByVal value As Color) + _DutyColorPartnerTask = value.ToArgb() + OnChanged("DutyColorPartnerTask") + End Set + End Property + _ + Public Property DutyColorNotSet_NP() As Color + Get + Return Color.FromArgb(_DutyColorNotSet) + End Get + Set(ByVal value As Color) + _DutyColorNotSet = value.ToArgb() + OnChanged("DutyColorNotSet") + End Set + End Property + _ + Public Property DutyColorMyTask_NP() As Color + Get + Return Color.FromArgb(_DutyColorMyTask) + End Get + Set(ByVal value As Color) + _DutyColorMyTask = value.ToArgb() + OnChanged("DutyColorMyTask") + End Set + End Property + _ + Public Property DutyColorSubcontractorTask_NP() As Color + Get + Return Color.FromArgb(_DutyColorSubcontractorTask) + End Get + Set(ByVal value As Color) + _DutyColorSubcontractorTask = value.ToArgb() + OnChanged("DutyColorSubcontractorTask") + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.Designer.vb new file mode 100644 index 0000000..78f37a0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.Designer.vb @@ -0,0 +1,257 @@ +Partial Class ProjectVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aProjectAddRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectEditRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectDeleteRow = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectRefreshG2antt = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aProjectRowsHRPerson_AddHRPerson = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectRowsSubcontractor_AddSubcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectRowsCustomers_AddRowsCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectHRPerson_AddHRPerson = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectSubcontractor_AddSubcontractor = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectCustomers_AddRowsCustomers = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectCustomers_AddRowsContacts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aProjectRowsCustomers_AddRowsContacts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aProjectAddRow + ' + Me.aProjectAddRow.Caption = "aProject Add Row" + Me.aProjectAddRow.Category = "aProjectAddRow" + Me.aProjectAddRow.ConfirmationMessage = Nothing + Me.aProjectAddRow.Id = "aProjectAddRow" + Me.aProjectAddRow.ImageName = Nothing + Me.aProjectAddRow.Shortcut = Nothing + Me.aProjectAddRow.Tag = Nothing + Me.aProjectAddRow.TargetObjectsCriteria = Nothing + Me.aProjectAddRow.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProjectAddRow.TargetViewId = Nothing + Me.aProjectAddRow.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProjectAddRow.ToolTip = Nothing + Me.aProjectAddRow.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProjectEditRow + ' + Me.aProjectEditRow.Caption = "aProject Edit Row" + Me.aProjectEditRow.Category = "aProjectEditRow" + Me.aProjectEditRow.ConfirmationMessage = Nothing + Me.aProjectEditRow.Id = "aProjectEditRow" + Me.aProjectEditRow.ImageName = Nothing + Me.aProjectEditRow.Shortcut = Nothing + Me.aProjectEditRow.Tag = Nothing + Me.aProjectEditRow.TargetObjectsCriteria = Nothing + Me.aProjectEditRow.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProjectEditRow.TargetViewId = Nothing + Me.aProjectEditRow.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProjectEditRow.ToolTip = Nothing + Me.aProjectEditRow.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProjectDeleteRow + ' + Me.aProjectDeleteRow.Caption = "aProject Delete Row" + Me.aProjectDeleteRow.Category = "aProjectDeleteRow" + Me.aProjectDeleteRow.ConfirmationMessage = Nothing + Me.aProjectDeleteRow.Id = "aProjectDeleteRow" + Me.aProjectDeleteRow.ImageName = Nothing + Me.aProjectDeleteRow.Shortcut = Nothing + Me.aProjectDeleteRow.Tag = Nothing + Me.aProjectDeleteRow.TargetObjectsCriteria = Nothing + Me.aProjectDeleteRow.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProjectDeleteRow.TargetViewId = Nothing + Me.aProjectDeleteRow.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProjectDeleteRow.ToolTip = Nothing + Me.aProjectDeleteRow.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProjectRefreshG2antt + ' + Me.aProjectRefreshG2antt.Caption = "aProject Refresh G2antt" + Me.aProjectRefreshG2antt.Category = "aProjectRefreshG2antt" + Me.aProjectRefreshG2antt.ConfirmationMessage = Nothing + Me.aProjectRefreshG2antt.Id = "aProjectRefreshG2antt" + Me.aProjectRefreshG2antt.ImageName = Nothing + Me.aProjectRefreshG2antt.Shortcut = Nothing + Me.aProjectRefreshG2antt.Tag = Nothing + Me.aProjectRefreshG2antt.TargetObjectsCriteria = Nothing + Me.aProjectRefreshG2antt.TargetObjectType = GetType(SISBusiness.[Module].ProjectHeader) + Me.aProjectRefreshG2antt.TargetViewId = Nothing + Me.aProjectRefreshG2antt.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aProjectRefreshG2antt.ToolTip = Nothing + Me.aProjectRefreshG2antt.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aProjectRowsHRPerson_AddHRPerson + ' + Me.aProjectRowsHRPerson_AddHRPerson.AcceptButtonCaption = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.CancelButtonCaption = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.Caption = "aProjectRowsHRPerson_AddHRPerson" + Me.aProjectRowsHRPerson_AddHRPerson.Category = "ObjectsCreation" + Me.aProjectRowsHRPerson_AddHRPerson.ConfirmationMessage = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.Id = "aProjectRowsHRPerson_AddHRPerson" + Me.aProjectRowsHRPerson_AddHRPerson.ImageName = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.Shortcut = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.Tag = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.TargetObjectsCriteria = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.TargetObjectType = GetType(SISBusiness.[Module].ProjectRowsHRPerson) + Me.aProjectRowsHRPerson_AddHRPerson.TargetViewId = "" + Me.aProjectRowsHRPerson_AddHRPerson.ToolTip = Nothing + Me.aProjectRowsHRPerson_AddHRPerson.TypeOfView = Nothing + ' + 'aProjectRowsSubcontractor_AddSubcontractor + ' + Me.aProjectRowsSubcontractor_AddSubcontractor.AcceptButtonCaption = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.CancelButtonCaption = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.Caption = "aProjectRowsSubcontractor_AddSubcontractor" + Me.aProjectRowsSubcontractor_AddSubcontractor.Category = "ObjectsCreation" + Me.aProjectRowsSubcontractor_AddSubcontractor.ConfirmationMessage = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.Id = "aProjectRowsSubcontractor_AddSubcontractor" + Me.aProjectRowsSubcontractor_AddSubcontractor.ImageName = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.Shortcut = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.Tag = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.TargetObjectsCriteria = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.TargetObjectType = GetType(SISBusiness.[Module].ProjectRowsSubcontractor) + Me.aProjectRowsSubcontractor_AddSubcontractor.TargetViewId = "" + Me.aProjectRowsSubcontractor_AddSubcontractor.ToolTip = Nothing + Me.aProjectRowsSubcontractor_AddSubcontractor.TypeOfView = Nothing + ' + 'aProjectRowsCustomers_AddRowsCustomers + ' + Me.aProjectRowsCustomers_AddRowsCustomers.AcceptButtonCaption = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.CancelButtonCaption = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.Caption = "aProjectRowsCustomers_AddRowsCustomers" + Me.aProjectRowsCustomers_AddRowsCustomers.Category = "ObjectsCreation" + Me.aProjectRowsCustomers_AddRowsCustomers.ConfirmationMessage = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.Id = "aProjectRowsCustomers_AddRowsCustomers" + Me.aProjectRowsCustomers_AddRowsCustomers.ImageName = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.Shortcut = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.Tag = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.TargetObjectsCriteria = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.TargetObjectType = GetType(SISBusiness.[Module].ProjectRowsCustomers) + Me.aProjectRowsCustomers_AddRowsCustomers.TargetViewId = "" + Me.aProjectRowsCustomers_AddRowsCustomers.ToolTip = Nothing + Me.aProjectRowsCustomers_AddRowsCustomers.TypeOfView = Nothing + ' + 'aProjectHRPerson_AddHRPerson + ' + Me.aProjectHRPerson_AddHRPerson.AcceptButtonCaption = Nothing + Me.aProjectHRPerson_AddHRPerson.CancelButtonCaption = Nothing + Me.aProjectHRPerson_AddHRPerson.Caption = "aProjectHRPerson_AddHRPerson" + Me.aProjectHRPerson_AddHRPerson.Category = "ObjectsCreation" + Me.aProjectHRPerson_AddHRPerson.ConfirmationMessage = Nothing + Me.aProjectHRPerson_AddHRPerson.Id = "aProjectHRPerson_AddHRPerson" + Me.aProjectHRPerson_AddHRPerson.ImageName = Nothing + Me.aProjectHRPerson_AddHRPerson.Shortcut = Nothing + Me.aProjectHRPerson_AddHRPerson.Tag = Nothing + Me.aProjectHRPerson_AddHRPerson.TargetObjectsCriteria = Nothing + Me.aProjectHRPerson_AddHRPerson.TargetObjectType = GetType(SISBusiness.[Module].ProjectHRPerson) + Me.aProjectHRPerson_AddHRPerson.TargetViewId = "" + Me.aProjectHRPerson_AddHRPerson.ToolTip = Nothing + Me.aProjectHRPerson_AddHRPerson.TypeOfView = Nothing + ' + 'aProjectSubcontractor_AddSubcontractor + ' + Me.aProjectSubcontractor_AddSubcontractor.AcceptButtonCaption = Nothing + Me.aProjectSubcontractor_AddSubcontractor.CancelButtonCaption = Nothing + Me.aProjectSubcontractor_AddSubcontractor.Caption = "aProjectSubcontractor_AddSubcontractor" + Me.aProjectSubcontractor_AddSubcontractor.Category = "ObjectsCreation" + Me.aProjectSubcontractor_AddSubcontractor.ConfirmationMessage = Nothing + Me.aProjectSubcontractor_AddSubcontractor.Id = "aProjectSubcontractor_AddSubcontractor" + Me.aProjectSubcontractor_AddSubcontractor.ImageName = Nothing + Me.aProjectSubcontractor_AddSubcontractor.Shortcut = Nothing + Me.aProjectSubcontractor_AddSubcontractor.Tag = Nothing + Me.aProjectSubcontractor_AddSubcontractor.TargetObjectsCriteria = Nothing + Me.aProjectSubcontractor_AddSubcontractor.TargetObjectType = GetType(SISBusiness.[Module].ProjectSubcontractor) + Me.aProjectSubcontractor_AddSubcontractor.TargetViewId = "" + Me.aProjectSubcontractor_AddSubcontractor.ToolTip = Nothing + Me.aProjectSubcontractor_AddSubcontractor.TypeOfView = Nothing + ' + 'aProjectCustomers_AddRowsCustomers + ' + Me.aProjectCustomers_AddRowsCustomers.AcceptButtonCaption = Nothing + Me.aProjectCustomers_AddRowsCustomers.CancelButtonCaption = Nothing + Me.aProjectCustomers_AddRowsCustomers.Caption = "aProjectCustomers_AddRowsCustomers" + Me.aProjectCustomers_AddRowsCustomers.Category = "ObjectsCreation" + Me.aProjectCustomers_AddRowsCustomers.ConfirmationMessage = Nothing + Me.aProjectCustomers_AddRowsCustomers.Id = "aProjectCustomers_AddRowsCustomers" + Me.aProjectCustomers_AddRowsCustomers.ImageName = Nothing + Me.aProjectCustomers_AddRowsCustomers.Shortcut = Nothing + Me.aProjectCustomers_AddRowsCustomers.Tag = Nothing + Me.aProjectCustomers_AddRowsCustomers.TargetObjectsCriteria = Nothing + Me.aProjectCustomers_AddRowsCustomers.TargetObjectType = GetType(SISBusiness.[Module].ProjectCustomers) + Me.aProjectCustomers_AddRowsCustomers.TargetViewId = "" + Me.aProjectCustomers_AddRowsCustomers.ToolTip = Nothing + Me.aProjectCustomers_AddRowsCustomers.TypeOfView = Nothing + ' + 'aProjectCustomers_AddRowsContacts + ' + Me.aProjectCustomers_AddRowsContacts.AcceptButtonCaption = Nothing + Me.aProjectCustomers_AddRowsContacts.CancelButtonCaption = Nothing + Me.aProjectCustomers_AddRowsContacts.Caption = "aProjectCustomers_AddRowsContacts" + Me.aProjectCustomers_AddRowsContacts.Category = "ObjectsCreation" + Me.aProjectCustomers_AddRowsContacts.ConfirmationMessage = Nothing + Me.aProjectCustomers_AddRowsContacts.Id = "aProjectCustomers_AddRowsContacts" + Me.aProjectCustomers_AddRowsContacts.ImageName = Nothing + Me.aProjectCustomers_AddRowsContacts.Shortcut = Nothing + Me.aProjectCustomers_AddRowsContacts.Tag = Nothing + Me.aProjectCustomers_AddRowsContacts.TargetObjectsCriteria = Nothing + Me.aProjectCustomers_AddRowsContacts.TargetObjectType = GetType(SISBusiness.[Module].ProjectContacts) + Me.aProjectCustomers_AddRowsContacts.TargetViewId = "" + Me.aProjectCustomers_AddRowsContacts.ToolTip = Nothing + Me.aProjectCustomers_AddRowsContacts.TypeOfView = Nothing + ' + 'aProjectRowsCustomers_AddRowsContacts + ' + Me.aProjectRowsCustomers_AddRowsContacts.AcceptButtonCaption = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.CancelButtonCaption = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.Caption = "aProjectRowsCustomers_AddRowsContacts" + Me.aProjectRowsCustomers_AddRowsContacts.Category = "ObjectsCreation" + Me.aProjectRowsCustomers_AddRowsContacts.ConfirmationMessage = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.Id = "aProjectRowsCustomers_AddRowsContacts" + Me.aProjectRowsCustomers_AddRowsContacts.ImageName = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.Shortcut = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.Tag = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.TargetObjectsCriteria = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.TargetObjectType = GetType(SISBusiness.[Module].ProjectRowsContacts) + Me.aProjectRowsCustomers_AddRowsContacts.TargetViewId = "" + Me.aProjectRowsCustomers_AddRowsContacts.ToolTip = Nothing + Me.aProjectRowsCustomers_AddRowsContacts.TypeOfView = Nothing + + End Sub + Protected WithEvents aProjectAddRow As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aProjectEditRow As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aProjectDeleteRow As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aProjectRefreshG2antt As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aProjectRowsHRPerson_AddHRPerson As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectRowsSubcontractor_AddSubcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectRowsCustomers_AddRowsCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectHRPerson_AddHRPerson As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectSubcontractor_AddSubcontractor As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectCustomers_AddRowsCustomers As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectCustomers_AddRowsContacts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aProjectRowsCustomers_AddRowsContacts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectVC.resx b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.resx new file mode 100644 index 0000000..f5e9fa5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 290 + + + 17, 446 + + + 17, 407 + + + 17, 368 + + + 17, 329 + + + 17, 212 + + + 17, 251 + + + 17, 173 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 600, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Project/ProjectVC.vb b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.vb new file mode 100644 index 0000000..c3e9cac --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Project/ProjectVC.vb @@ -0,0 +1,424 @@ +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.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Utils + +Public Class ProjectVC + 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 = "ProjectHeader_ProjectHRPerson_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ProjectHeader_ProjectHRPerson_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ProjectHeader_ProjectSubcontractor_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ProjectHeader_ProjectCustomers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ProjectRows_ProjectRowsCustomers_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ProjectRows_ProjectRowsHRPerson_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "ProjectRows_ProjectRowsSubcontractor_ListView" Then + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Overridable Sub aProjectEditRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectEditRow.Execute + End Sub + Overridable Sub aProjectAddRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectAddRow.Execute + End Sub + Overridable Sub aProjectDeleteRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProjectDeleteRow.Execute + End Sub + Private Sub aProjectRowsHRPerson_AddHRPerson_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectRowsHRPerson_AddHRPerson.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _HRPerson_CollectionSource As New CollectionSource(_onew, GetType(HRPerson)) + + e.View = Application.CreateListView("HRPerson_ListView", _HRPerson_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectRowsHRPerson_AddHRPerson_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectRowsHRPerson_AddHRPerson.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectRows As ProjectRows = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectRows) + If _ProjectRows Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _HRPerson As HRPerson In e.PopupWindow.View.SelectedObjects + Dim _ProjectRowsHRPerson As New ProjectRowsHRPerson(_ocur.Session) + With (_ProjectRowsHRPerson) + .ProjectRows = _ocur.GetObjectByKey(Of ProjectRows)(_ProjectRows.Oid) + .HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_HRPerson.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectRowsSubcontractor_AddSubcontractor_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectRowsSubcontractor_AddSubcontractor.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Subcontractor_CollectionSource As New CollectionSource(_onew, GetType(Subcontractor)) + Dim _User_Collection As New XPCollection(Of User)(_onew.Session) + Dim _Filter As String = "Oid in(" + For Each _User As User In _User_Collection + Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + If _Subcontractor IsNot Nothing Then + _Filter += "'" + _Subcontractor.Oid.ToString + "'," + End If + End If + End If + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + _Subcontractor_CollectionSource.BeginUpdateCriteria() + _Subcontractor_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _Subcontractor_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse(_Filter)) + Else + _Subcontractor_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + + e.View = Application.CreateListView("Subcontractor_ListView", _Subcontractor_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectRowsSubcontractor_AddSubcontractor_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectRowsSubcontractor_AddSubcontractor.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectRows As ProjectRows = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectRows) + If _ProjectRows Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _Subcontractor As Subcontractor In e.PopupWindow.View.SelectedObjects + Dim _ProjectRowsSubcontractor As New ProjectRowsSubcontractor(_ocur.Session) + With (_ProjectRowsSubcontractor) + .ProjectRows = _ocur.GetObjectByKey(Of ProjectRows)(_ProjectRows.Oid) + .Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_Subcontractor.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectRowsCustomers_AddRowsCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectRowsCustomers_AddRowsCustomers.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers_CollectionSource As New CollectionSource(_onew, GetType(Customers)) + Dim _User_Collection As New XPCollection(Of User)(_onew.Session) + Dim _Filter As String = "Oid in(" + For Each _User As User In _User_Collection + Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + _Filter += "'" + _Contacts.Customers.Oid.ToString + "'," + End If + End If + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + + _Customers_CollectionSource.BeginUpdateCriteria() + _Customers_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _Customers_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse(_Filter)) + Else + _Customers_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + _Customers_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("Customers_ListView", _Customers_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectRowsCustomers_AddRowsCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectRowsCustomers_AddRowsCustomers.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectRows As ProjectRows = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectRows) + If _ProjectRows Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _Customers As Customers In e.PopupWindow.View.SelectedObjects + Dim _ProjectRowsCustomers As New ProjectRowsCustomers(_ocur.Session) + With (_ProjectRowsCustomers) + .ProjectRows = _ocur.GetObjectByKey(Of ProjectRows)(_ProjectRows.Oid) + .Customers = _ocur.GetObjectByKey(Of Customers)(_Customers.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectHRPerson_AddHRPerson_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectHRPerson_AddHRPerson.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _HRPerson_CollectionSource As New CollectionSource(_onew, GetType(HRPerson)) + + e.View = Application.CreateListView("HRPerson_ListView", _HRPerson_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectHRPerson_AddHRPerson_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectHRPerson_AddHRPerson.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectHeader) + If _ProjectHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _HRPerson As HRPerson In e.PopupWindow.View.SelectedObjects + Dim _ProjectHRPerson As New ProjectHRPerson(_ocur.Session) + With (_ProjectHRPerson) + .ProjectHeader = _ProjectHeader + .HRPerson = _ocur.GetObjectByKey(Of HRPerson)(_HRPerson.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectCustomers_AddRowsCustomers_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectCustomers_AddRowsCustomers.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Customers_CollectionSource As New CollectionSource(_onew, GetType(Customers)) + Dim _User_Collection As New XPCollection(Of User)(_onew.Session) + Dim _Filter As String = "Oid in(" + For Each _User As User In _User_Collection + Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + _Filter += "'" + _Contacts.Customers.Oid.ToString + "'," + End If + End If + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + + _Customers_CollectionSource.BeginUpdateCriteria() + _Customers_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _Customers_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse(_Filter)) + Else + _Customers_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + _Customers_CollectionSource.EndUpdateCriteria() + + e.View = Application.CreateListView("Customers_ListView", _Customers_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectCustomers_AddRowsCustomers_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectCustomers_AddRowsCustomers.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectHeader) + If _ProjectHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _Customers As Customers In e.PopupWindow.View.SelectedObjects + Dim _ProjectCustomers As New ProjectCustomers(_ocur.Session) + With (_ProjectCustomers) + .ProjectHeader = _ProjectHeader + .Customers = _ocur.GetObjectByKey(Of Customers)(_Customers.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectSubcontractor_AddSubcontractor_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectSubcontractor_AddSubcontractor.CustomizePopupWindowParams + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Subcontractor_CollectionSource As New CollectionSource(_onew, GetType(Subcontractor)) + Dim _User_Collection As New XPCollection(Of User)(_onew.Session) + Dim _Filter As String = "Oid in(" + For Each _User As User In _User_Collection + Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Contacts.Customers)) + If _Subcontractor IsNot Nothing Then + _Filter += "'" + _Subcontractor.Oid.ToString + "'," + End If + End If + End If + Next + _Filter = _Filter.Remove(_Filter.Length - 1, 1) + _Filter += ")" + _Subcontractor_CollectionSource.BeginUpdateCriteria() + _Subcontractor_CollectionSource.Criteria.Clear() + If _Filter.Length > 8 Then + _Subcontractor_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse(_Filter)) + Else + _Subcontractor_CollectionSource.Criteria.Add("1", CriteriaOperator.Parse("1=2")) + End If + + e.View = Application.CreateListView("Subcontractor_ListView", _Subcontractor_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + Private Sub aProjectSubcontractor_AddSubcontractor_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectSubcontractor_AddSubcontractor.Execute + Try + If e.PopupWindow.View.SelectedObjects.Count = 0 Then Throw New Exception("*Nem lett kivlasztva egyetlen sor sem!") + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectHeader) + If _ProjectHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + For Each _Subcontractor As Subcontractor In e.PopupWindow.View.SelectedObjects + Dim _ProjectSubcontractor As New ProjectSubcontractor(_ocur.Session) + With (_ProjectSubcontractor) + .ProjectHeader = _ProjectHeader + .Subcontractor = _ocur.GetObjectByKey(Of Subcontractor)(_Subcontractor.Oid) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain"))) + End Try + End Sub + + Private Sub aProjectCustomers_AddRowsContacts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectCustomers_AddRowsContacts.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contacts_CollectionSource As New CollectionSource(_onew, GetType(Contacts)) + + e.View = Application.CreateListView("Contacts_ListView", _Contacts_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aProjectCustomers_AddRowsContacts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectCustomers_AddRowsContacts.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectHeader As ProjectHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectHeader) + If _ProjectHeader Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + For Each _Contacts As Contacts In e.PopupWindow.View.SelectedObjects + Dim _ProjectContacts As New ProjectContacts(_ocur.Session) + With _ProjectContacts + .ProjectHeader = _ProjectHeader + .Contacts = _ocur.GetObject(_Contacts) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aProjectRowsCustomers_AddRowsContacts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aProjectRowsCustomers_AddRowsContacts.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Contacts_CollectionSource As New CollectionSource(_onew, GetType(Contacts)) + + e.View = Application.CreateListView("Contacts_ListView", _Contacts_CollectionSource, False) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub + Private Sub aProjectRowsCustomers_AddRowsContacts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aProjectRowsCustomers_AddRowsContacts.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ProjectRows As ProjectRows = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ProjectRows) + If _ProjectRows Is Nothing Then Throw New Exception("*Vratlan hiba trtnt, a folyamat megszakadt!") + + For Each _Contacts As Contacts In e.PopupWindow.View.SelectedObjects + Dim _ProjectRowsContacts As New ProjectRowsContacts(_ocur.Session) + With _ProjectRowsContacts + .ProjectRows = _ProjectRows + .Contacts = _ocur.GetObject(_Contacts) + End With + Next + + _ocur.CommitChanges() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.Designer.vb new file mode 100644 index 0000000..7e80bff --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class RepairRegistryVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRepairRegistryTask = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aRepairRegistryTask + ' + Me.aRepairRegistryTask.Caption = "Repair registry task" + Me.aRepairRegistryTask.ConfirmationMessage = "Do you want to check registry tasks ?" + Me.aRepairRegistryTask.Id = "aRepairRegistryTask" + Me.aRepairRegistryTask.ImageName = Nothing + Me.aRepairRegistryTask.Shortcut = Nothing + Me.aRepairRegistryTask.Tag = Nothing + Me.aRepairRegistryTask.TargetObjectsCriteria = Nothing + Me.aRepairRegistryTask.TargetViewId = "RegistryTasks_ListView_Not_Completed_Full" + Me.aRepairRegistryTask.ToolTip = Nothing + Me.aRepairRegistryTask.TypeOfView = Nothing + + End Sub + Friend WithEvents aRepairRegistryTask As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.resx b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.resx new file mode 100644 index 0000000..7ee8de3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.vb b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.vb new file mode 100644 index 0000000..efdc2f5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Repair/RepairRegistryVC.vb @@ -0,0 +1,60 @@ +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 RepairRegistryVC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + + Private Sub aRepairRegistryTask_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRepairRegistryTask.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _RegistryTasks As RegistryTasks + Dim _RegistryHeader As RegistryHeader + Dim _RegistryTask2 As RegistryTasks + Dim _RegistryTask_Collection As New ArrayList + + _RegistryTask_Collection.Clear() + RaiseEvent InitWork(1, 1, View.SelectedObjects.Count) + For Each _RegistryTasks In View.SelectedObjects + RaiseEvent DoWork() + _RegistryHeader = _RegistryTasks.RegistryHeader + If _RegistryTasks.Status <> General.TaskStatus.Completed Then + For Each _RegistryTask2 In _RegistryHeader.RegistryTasks + If _RegistryTask2 IsNot _RegistryTasks Then + If _RegistryTask2.CurrentWorkflowSystemSteps IsNot _RegistryHeader.CurrentWorkflowSystemSteps Then + If _RegistryTask2.Status <> General.TaskStatus.Completed Then + _RegistryTask_Collection.Add(_RegistryTask2) + End If + End If + End If + Next + End If + Next + + For Each _RegistryTask2 In _RegistryTask_Collection + _RegistryTask2.Status = General.TaskStatus.Completed + _RegistryTask2.Save() + Next + + _ocur.CommitChanges() + + RaiseEvent FinalWork + View.Refresh() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/DynamicLinq.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/DynamicLinq.vb new file mode 100644 index 0000000..a1ace88 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/DynamicLinq.vb @@ -0,0 +1,1941 @@ +Option Strict On +Option Explicit On + +Imports System.Collections.Generic +Imports System.Text +Imports System.Linq +Imports System.Linq.Expressions +Imports System.Reflection +Imports System.Reflection.Emit +Imports System.Threading +Imports System.Runtime.CompilerServices + +Namespace SIS.Linq.Dynamic + Public Module DynamicQueryable + + _ + Public Function Where(Of T)(ByVal source As IQueryable(Of T), ByVal predicate As String, ByVal ParamArray values() As Object) As IQueryable(Of T) + Return DirectCast(Where(DirectCast(source, IQueryable), predicate, values), IQueryable(Of T)) + End Function + + _ + Public Function Where(ByVal source As IQueryable, ByVal predicate As String, ByVal ParamArray values() As Object) As IQueryable + If source Is Nothing Then Throw New ArgumentNullException("source") + If predicate Is Nothing Then Throw New ArgumentNullException("predicate") + Dim lambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, GetType(Boolean), predicate, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Where", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Quote(lambda))) + End Function + + _ + Public Function [Select](ByVal source As IQueryable, ByVal selector As String, ByVal ParamArray values() As Object) As IQueryable + If source Is Nothing Then Throw New ArgumentNullException("source") + If selector Is Nothing Then Throw New ArgumentNullException("selector") + Dim lambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, selector, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Select", _ + New Type() {source.ElementType, lambda.Body.Type}, _ + source.Expression, Expression.Quote(lambda))) + End Function + + _ + Public Function OrderBy(Of T)(ByVal source As IQueryable(Of T), ByVal ordering As String, ByVal ParamArray values() As Object) As IQueryable(Of T) + Return DirectCast(OrderBy(DirectCast(source, IQueryable), ordering, values), IQueryable(Of T)) + End Function + + _ + Public Function OrderBy(ByVal source As IQueryable, ByVal ordering As String, ByVal ParamArray values() As Object) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + If (ordering Is Nothing) Then Throw New ArgumentNullException("ordering") + Dim parameters = New ParameterExpression() { _ + Expression.Parameter(source.ElementType, "")} + Dim parser As New ExpressionParser(parameters, ordering, values) + Dim orderings As IEnumerable(Of DynamicOrdering) = parser.ParseOrdering() + Dim queryExpr As Expression = source.Expression + Dim methodAsc = "OrderBy" + Dim methodDesc = "OrderByDescending" + For Each o As DynamicOrdering In orderings + queryExpr = Expression.Call( _ + GetType(Queryable), If(o.Ascending, methodAsc, methodDesc), _ + New Type() {source.ElementType, o.Selector.Type}, _ + queryExpr, Expression.Quote(Expression.Lambda(o.Selector, parameters))) + methodAsc = "ThenBy" + methodDesc = "ThenByDescending" + Next o + Return source.Provider.CreateQuery(queryExpr) + End Function + + _ + Public Function Take(ByVal source As IQueryable, ByVal count As Integer) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Take", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Constant(count))) + End Function + + _ + Public Function Skip(ByVal source As IQueryable, ByVal count As Integer) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Skip", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Constant(count))) + End Function + + _ + Public Function GroupBy(ByVal source As IQueryable, ByVal keySelector As String, ByVal elementSelector As String, ByVal ParamArray values() As Object) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + If (keySelector Is Nothing) Then Throw New ArgumentNullException("keySelector") + If (elementSelector Is Nothing) Then Throw New ArgumentNullException("elementSelector") + Dim keyLambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, keySelector, values) + Dim elementLambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, elementSelector, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "GroupBy", _ + New Type() {source.ElementType, keyLambda.Body.Type, elementLambda.Body.Type}, _ + source.Expression, Expression.Quote(keyLambda), Expression.Quote(elementLambda))) + End Function + + _ + Public Function Any(ByVal source As IQueryable) As Boolean + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return CBool(source.Provider.Execute( _ + Expression.Call( _ + GetType(Queryable), "Any", _ + New Type() {source.ElementType}, source.Expression))) + End Function + + _ + Public Function Count(ByVal source As IQueryable) As Integer + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return CInt(source.Provider.Execute( _ + Expression.Call( _ + GetType(Queryable), "Count", _ + New Type() {source.ElementType}, source.Expression))) + End Function + End Module + + Public MustInherit Class DynamicClass + Public Overrides Function ToString() As String + Dim props = Me.GetType().GetProperties(BindingFlags.Instance Or BindingFlags.Public) + Dim sb As New StringBuilder() + sb.Append("{") + For i As Integer = 0 To props.Length - 1 + If (i > 0) Then sb.Append(", ") + sb.Append(props(i).Name) + sb.Append("=") + sb.Append(props(i).GetValue(Me, Nothing)) + Next i + + sb.Append("}") + + Return sb.ToString() + End Function + End Class + + Public Class DynamicProperty + Private _name As String + Private _type As Type + + Public Sub New(ByVal name As String, ByVal type As Type) + If (name Is Nothing) Then Throw New ArgumentNullException("name") + If (type Is Nothing) Then Throw New ArgumentNullException("type") + Me._name = name + Me._type = type + End Sub + + Public ReadOnly Property Name() As String + Get + Return _name + End Get + End Property + + Public ReadOnly Property Type() As Type + Get + Return _type + End Get + End Property + End Class + + Public Module DynamicExpression + Public Function Parse(ByVal resultType As Type, ByVal expression As String, ByVal ParamArray values() As Object) As Expression + Dim parser As New ExpressionParser(Nothing, expression, values) + Return parser.Parse(resultType) + End Function + + Public Function ParseLambda(ByVal itType As Type, ByVal resultType As Type, ByVal expressionStr As String, ByVal ParamArray values() As Object) As LambdaExpression + Return ParseLambda(New ParameterExpression() {Expression.Parameter(itType, "")}, resultType, expressionStr, values) + End Function + + Public Function ParseLambda(ByVal parameters() As ParameterExpression, ByVal resultType As Type, ByVal expressionStr As String, ByVal ParamArray values() As Object) As LambdaExpression + Dim parser As New ExpressionParser(parameters, expressionStr, values) + Return Expression.Lambda(parser.Parse(resultType), parameters) + End Function + + Public Function ParseLambda(Of T, S)(ByVal expression As String, ByVal ParamArray values() As Object) As Expression(Of Func(Of T, S)) + Return DirectCast(ParseLambda(GetType(T), GetType(S), expression, values), Expression(Of Func(Of T, S))) + End Function + + Public Function CreateClass(ByVal ParamArray properties() As DynamicProperty) As Type + Return ClassFactory.Instance.GetDynamicClass(properties) + End Function + + Public Function CreateClass(ByVal properties As IEnumerable(Of DynamicProperty)) As Type + Return ClassFactory.Instance.GetDynamicClass(properties) + End Function + End Module + + Friend Class DynamicOrdering + Public Selector As Expression + Public Ascending As Boolean + End Class + + Friend Class Signature : Implements IEquatable(Of Signature) + Public properties() As DynamicProperty + Public hashCode As Integer + + Public Sub New(ByVal properties As IEnumerable(Of DynamicProperty)) + Me.properties = properties.ToArray() + hashCode = 0 + For Each p As DynamicProperty In Me.properties + hashCode = hashCode Xor p.Name.GetHashCode() Xor p.Type.GetHashCode() + Next p + End Sub + + Public Overrides Function GetHashCode() As Integer + Return hashCode + End Function + + Public Overrides Function Equals(ByVal obj As Object) As Boolean + Dim cast = TryCast(obj, Signature) + Return If(cast IsNot Nothing, Equals(cast), False) + End Function + + Public Overloads Function Equals(ByVal other As Signature) As Boolean Implements IEquatable(Of SIS.Linq.Dynamic.Signature).Equals + If (properties.Length <> other.properties.Length) Then Return False + For i As Integer = 0 To properties.Length - 1 + If (properties(i).Name <> other.properties(i).Name OrElse _ + Not properties(i).Type.Equals(other.properties(i).Type)) Then + Return False + End If + Next i + Return True + End Function + End Class + + Friend Class ClassFactory + Public Shared ReadOnly Instance As New ClassFactory() + + Shared Sub New() + ' Trigger lazy initialization of static fields + End Sub + + Private [module] As ModuleBuilder + Private classes As Dictionary(Of Signature, Type) + Private classCount As Integer + Private rwLock As ReaderWriterLock + + Private Sub New() + Dim name As New AssemblyName("DynamicClasses") + Dim assembly As AssemblyBuilder = AppDomain.CurrentDomain.DefineDynamicAssembly(name, AssemblyBuilderAccess.Run) +#If ENABLE_LINQ_PARTIAL_TRUST Then + call new ReflectionPermission(PermissionState.Unrestricted).Assert() +#End If + Try + [module] = assembly.DefineDynamicModule("Module") + Finally +#If ENABLE_LINQ_PARTIAL_TRUST Then + PermissionSet.RevertAssert() +#End If + End Try + classes = New Dictionary(Of Signature, Type)() + rwLock = New ReaderWriterLock() + End Sub + + Public Function GetDynamicClass(ByVal properties As IEnumerable(Of DynamicProperty)) As Type + rwLock.AcquireReaderLock(Timeout.Infinite) + + Try + Dim signature As New Signature(properties) + Dim type As Type = Nothing + If Not classes.TryGetValue(signature, type) Then + type = CreateDynamicClass(signature.properties) + classes.Add(signature, type) + End If + Return type + Finally + rwLock.ReleaseReaderLock() + End Try + End Function + + Private Function CreateDynamicClass(ByVal properties() As DynamicProperty) As Type + Dim cookie As LockCookie = rwLock.UpgradeToWriterLock(Timeout.Infinite) + Try + Dim typeName = "DynamicClass" & (classCount + 1) +#If ENABLE_LINQ_PARTIAL_TRUST Then + Call New ReflectionPermission(PermissionState.Unrestricted).Assert() +#End If + Try + Dim tb As TypeBuilder = Me.module.DefineType(typeName, TypeAttributes.Class Or _ + TypeAttributes.Public, GetType(DynamicClass)) + Dim fields() As FieldInfo = GenerateProperties(tb, properties) + GenerateEquals(tb, fields) + GenerateGetHashCode(tb, fields) + Dim result As Type = tb.CreateType() + classCount += 1 + Return result + Finally +#If ENABLE_LINQ_PARTIAL_TRUST Then + PermissionSet.RevertAssert() +#End If + End Try + Finally + rwLock.DowngradeFromWriterLock(cookie) + End Try + End Function + + Private Function GenerateProperties(ByVal tb As TypeBuilder, ByVal properties() As DynamicProperty) As FieldInfo() + Dim fields(properties.Length - 1) As FieldInfo + + For i As Integer = 0 To properties.Length - 1 + Dim dp As DynamicProperty = properties(i) + Dim fb As FieldBuilder = tb.DefineField("_" & dp.Name, dp.Type, FieldAttributes.Private) + Dim pb As PropertyBuilder = tb.DefineProperty(dp.Name, PropertyAttributes.HasDefault, dp.Type, Nothing) + Dim mbGet As MethodBuilder = tb.DefineMethod("get_" + dp.Name, _ + MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig, _ + dp.Type, Type.EmptyTypes) + Dim genGet As ILGenerator = mbGet.GetILGenerator() + genGet.Emit(OpCodes.Ldarg_0) + genGet.Emit(OpCodes.Ldfld, fb) + genGet.Emit(OpCodes.Ret) + Dim mbSet As MethodBuilder = tb.DefineMethod("set_" & dp.Name, _ + MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig, _ + Nothing, New Type() {dp.Type}) + Dim genSet As ILGenerator = mbSet.GetILGenerator() + genSet.Emit(OpCodes.Ldarg_0) + genSet.Emit(OpCodes.Ldarg_1) + genSet.Emit(OpCodes.Stfld, fb) + genSet.Emit(OpCodes.Ret) + pb.SetGetMethod(mbGet) + pb.SetSetMethod(mbSet) + fields(i) = fb + Next i + + Return fields + End Function + + Private Sub GenerateEquals(ByVal tb As TypeBuilder, ByVal fields As FieldInfo()) + Dim mb As MethodBuilder = tb.DefineMethod("Equals", _ + MethodAttributes.Public Or MethodAttributes.ReuseSlot Or _ + MethodAttributes.Virtual Or MethodAttributes.HideBySig, _ + GetType(Boolean), New Type() {GetType(Object)}) + Dim gen As ILGenerator = mb.GetILGenerator() + Dim other As LocalBuilder = gen.DeclareLocal(tb) + Dim [next] As Label = gen.DefineLabel() + gen.Emit(OpCodes.Ldarg_1) + gen.Emit(OpCodes.Isinst, tb) + gen.Emit(OpCodes.Stloc, other) + gen.Emit(OpCodes.Ldloc, other) + gen.Emit(OpCodes.Brtrue_S, [next]) + gen.Emit(OpCodes.Ldc_I4_0) + gen.Emit(OpCodes.Ret) + gen.MarkLabel([next]) + For Each field As FieldInfo In fields + Dim ft As Type = field.FieldType + Dim ct As Type = GetType(EqualityComparer(Of Object)).GetGenericTypeDefinition().MakeGenericType(ft) + [next] = gen.DefineLabel() + gen.EmitCall(OpCodes.Call, ct.GetMethod("get_Default"), Nothing) + gen.Emit(OpCodes.Ldarg_0) + gen.Emit(OpCodes.Ldfld, field) + gen.Emit(OpCodes.Ldloc, other) + gen.Emit(OpCodes.Ldfld, field) + gen.EmitCall(OpCodes.Callvirt, ct.GetMethod("Equals", New Type() {ft, ft}), Nothing) + gen.Emit(OpCodes.Brtrue_S, [next]) + gen.Emit(OpCodes.Ldc_I4_0) + gen.Emit(OpCodes.Ret) + gen.MarkLabel([next]) + Next + gen.Emit(OpCodes.Ldc_I4_1) + gen.Emit(OpCodes.Ret) + End Sub + + Private Sub GenerateGetHashCode(ByVal tb As TypeBuilder, ByVal fields As FieldInfo()) + Dim mb As MethodBuilder = tb.DefineMethod("GetHashCode", _ + MethodAttributes.Public Or MethodAttributes.ReuseSlot Or _ + MethodAttributes.Virtual Or MethodAttributes.HideBySig, _ + GetType(Integer), Type.EmptyTypes) + Dim gen As ILGenerator = mb.GetILGenerator() + gen.Emit(OpCodes.Ldc_I4_0) + For Each field As FieldInfo In fields + Dim ft As Type = field.FieldType + Dim ct As Type = GetType(EqualityComparer(Of Object)).GetGenericTypeDefinition().MakeGenericType(ft) + gen.EmitCall(OpCodes.Call, ct.GetMethod("get_Default"), Nothing) + gen.Emit(OpCodes.Ldarg_0) + gen.Emit(OpCodes.Ldfld, field) + gen.EmitCall(OpCodes.Callvirt, ct.GetMethod("GetHashCode", New Type() {ft}), Nothing) + gen.Emit(OpCodes.Xor) + Next + gen.Emit(OpCodes.Ret) + End Sub + End Class + + Public NotInheritable Class ParseException : Inherits Exception + Private positionValue As Integer + + Public Sub New(ByVal message As String, ByVal position As Integer) + MyBase.New(message) + Me.positionValue = position + End Sub + + Public ReadOnly Property Position() As Integer + Get + Return positionValue + End Get + End Property + + Public Overrides Function ToString() As String + Return String.Format(Res.ParseExceptionFormat, Message, Position) + End Function + End Class + + Class ExpressionParser + Structure Token + Public id As TokenId + Public text As String + Public pos As Integer + End Structure + + Enum TokenId + Unknown + [End] + Identifier + StringLiteral + IntegerLiteral + RealLiteral + Exclamation + Percent + Amphersand + OpenParen + CloseParen + Asterisk + Plus + Comma + Minus + Dot + Slash + Colon + LessThan + Equal + GreaterThan + Question + OpenBracket + CloseBracket + Bar + ExclamationEqual + DoubleAmphersand + LessThanEqual + LessGreater + DoubleEqual + GreaterThanEqual + DoubleBar + End Enum + + Interface ILogicalSignatures + Sub F(ByVal x As Boolean, ByVal y As Boolean) + Sub F(ByVal x? As Boolean, ByVal y? As Boolean) + End Interface + + Interface IArithmeticSignatures + Sub F(ByVal x As Integer, ByVal y As Integer) + Sub F(ByVal x As UInteger, ByVal y As UInteger) + Sub F(ByVal x As Long, ByVal y As Long) + Sub F(ByVal x As ULong, ByVal y As ULong) + Sub F(ByVal x As Single, ByVal y As Single) + Sub F(ByVal x As Double, ByVal y As Double) + Sub F(ByVal x As Decimal, ByVal y As Decimal) + Sub F(ByVal x? As Integer, ByVal y? As Integer) + Sub F(ByVal x? As UInteger, ByVal y? As UInteger) + Sub F(ByVal x? As Long, ByVal y? As Long) + Sub F(ByVal x? As ULong, ByVal y? As ULong) + Sub F(ByVal x? As Single, ByVal y? As Single) + Sub F(ByVal x? As Double, ByVal y? As Double) + Sub F(ByVal x? As Decimal, ByVal y? As Decimal) + End Interface + + Interface IRelationalSignatures : Inherits IArithmeticSignatures + Overloads Sub F(ByVal x As String, ByVal y As String) + Overloads Sub F(ByVal x As Char, ByVal y As Char) + Overloads Sub F(ByVal x As DateTime, ByVal y As DateTime) + Overloads Sub F(ByVal x As TimeSpan, ByVal y As TimeSpan) + Overloads Sub F(ByVal x? As Char, ByVal y? As Char) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As DateTime) + Overloads Sub F(ByVal x? As TimeSpan, ByVal y? As TimeSpan) + End Interface + + Interface IEqualitySignatures : Inherits IRelationalSignatures + Overloads Sub F(ByVal x As Boolean, ByVal y As Boolean) + Overloads Sub F(ByVal x? As Boolean, ByVal y? As Boolean) + End Interface + + Interface IAddSignatures : Inherits IArithmeticSignatures + Overloads Sub F(ByVal x As DateTime, ByVal y As TimeSpan) + Overloads Sub F(ByVal x As TimeSpan, ByVal y As TimeSpan) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As TimeSpan) + Overloads Sub F(ByVal x? As TimeSpan, ByVal y? As TimeSpan) + End Interface + + Interface ISubtractSignatures : Inherits IAddSignatures + Overloads Sub F(ByVal x As DateTime, ByVal y As DateTime) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As DateTime) + End Interface + + Interface INegationSignatures + Sub F(ByVal x As Integer) + Sub F(ByVal x As Long) + Sub F(ByVal x As Single) + Sub F(ByVal x As Double) + Sub F(ByVal x As Decimal) + Sub F(ByVal x As Integer?) + Sub F(ByVal x As Long?) + Sub F(ByVal x As Single?) + Sub F(ByVal x As Double?) + Sub F(ByVal x As Decimal?) + End Interface + + Interface INotSignatures + Sub F(ByVal x As Boolean) + Sub F(ByVal x? As Boolean) + End Interface + + Interface IEnumerableSignatures + Sub Where(ByVal predicate As Boolean) + Sub Any() + Sub Any(ByVal predicate As Boolean) + Sub All(ByVal predicate As Boolean) + Sub Count() + Sub Count(ByVal predicate As Boolean) + Sub Min(ByVal selector As Object) + Sub Max(ByVal selector As Object) + Sub Sum(ByVal selector As Integer) + Sub Sum(ByVal selector? As Integer) + Sub Sum(ByVal selector As Long) + Sub Sum(ByVal selector? As Long) + Sub Sum(ByVal selector As Single) + Sub Sum(ByVal selector? As Single) + Sub Sum(ByVal selector As Double) + Sub Sum(ByVal selector? As Double) + Sub Sum(ByVal selector As Decimal) + Sub Sum(ByVal selector? As Decimal) + Sub Average(ByVal selector As Integer) + Sub Average(ByVal selector? As Integer) + Sub Average(ByVal selector As Long) + Sub Average(ByVal selector? As Long) + Sub Average(ByVal selector As Single) + Sub Average(ByVal selector? As Single) + Sub Average(ByVal selector As Double) + Sub Average(ByVal selector? As Double) + Sub Average(ByVal selector As Decimal) + Sub Average(ByVal selector? As Decimal) + End Interface + + Shared ReadOnly predefinedTypes As Type() = { _ + GetType(Object), _ + GetType(Boolean), _ + GetType(Char), _ + GetType(String), _ + GetType(SByte), _ + GetType(Byte), _ + GetType(Int16), _ + GetType(UInt16), _ + GetType(Int32), _ + GetType(UInt32), _ + GetType(Int64), _ + GetType(UInt64), _ + GetType(Single), _ + GetType(Double), _ + GetType(Decimal), _ + GetType(DateTime), _ + GetType(TimeSpan), _ + GetType(Guid), _ + GetType(Math), _ + GetType(Convert) _ + } + + Shared ReadOnly trueLiteral As Expression = Expression.Constant(True) + Shared ReadOnly falseLiteral As Expression = Expression.Constant(False) + Shared ReadOnly nullLiteral As Expression = Expression.Constant(Nothing) + + Shared ReadOnly keywordIt As String = "it" + Shared ReadOnly keywordIif As String = "iif" + Shared ReadOnly keywordNew As String = "new" + + Shared keywords As Dictionary(Of String, Object) + + Dim symbols As Dictionary(Of String, Object) + Dim externals As IDictionary(Of String, Object) + Dim literals As Dictionary(Of Expression, String) + Dim it As ParameterExpression + Dim text As String + Dim textPos As Integer + Dim textLen As Integer + Dim ch As Char + Dim tokenVal As Token + + Public Sub New(ByVal parameters As ParameterExpression(), ByVal expression As String, ByVal values As Object()) + If expression Is Nothing Then Throw New ArgumentNullException("expression") + If keywords Is Nothing Then keywords = CreateKeywords() + symbols = New Dictionary(Of String, Object)(StringComparer.OrdinalIgnoreCase) + literals = New Dictionary(Of Expression, String)() + If parameters IsNot Nothing Then ProcessParameters(parameters) + If values IsNot Nothing Then ProcessValues(values) + text = expression + textLen = text.Length + SetTextPos(0) + NextToken() + End Sub + + Sub ProcessParameters(ByVal parameters As ParameterExpression()) + For Each pe As ParameterExpression In parameters + If Not String.IsNullOrEmpty(pe.Name) Then + AddSymbol(pe.Name, pe) + End If + Next + + If (parameters.Length = 1 AndAlso String.IsNullOrEmpty(parameters(0).Name)) Then + it = parameters(0) + End If + End Sub + + Sub ProcessValues(ByVal values As Object()) + For i As Integer = 0 To values.Length - 1 + Dim value As Object = values(i) + If i = values.Length - 1 AndAlso TryCast(value, IDictionary(Of String, Object)) IsNot Nothing Then + externals = DirectCast(value, IDictionary(Of String, Object)) + Else + AddSymbol("@" & i.ToString(Global.System.Globalization.CultureInfo.InvariantCulture), value) + End If + Next + End Sub + + Sub AddSymbol(ByVal name As String, ByVal value As Object) + If (symbols.ContainsKey(name)) Then + Throw ParseError(Res.DuplicateIdentifier, name) + End If + symbols.Add(name, value) + End Sub + + Public Function Parse(ByVal resultType As Type) As Expression + Dim exprPos As Integer = tokenVal.pos + Dim expr As Expression = ParseExpression() + If resultType IsNot Nothing Then + expr = PromoteExpression(expr, resultType, True) + If expr Is Nothing Then + Throw ParseError(exprPos, Res.ExpressionTypeMismatch, GetTypeName(resultType)) + End If + End If + ValidateToken(TokenId.End, Res.SyntaxError) + Return expr + End Function + + Public Function ParseOrdering() As IEnumerable(Of DynamicOrdering) + Dim orderings As List(Of DynamicOrdering) = New List(Of DynamicOrdering)() + Do + Dim expr As Expression = ParseExpression() + Dim ascending As Boolean = True + If TokenIdentifierIs("asc") OrElse TokenIdentifierIs("ascending") Then + NextToken() + ElseIf TokenIdentifierIs("desc") OrElse TokenIdentifierIs("descending") Then + NextToken() + ascending = False + End If + orderings.Add(New DynamicOrdering() With {.Selector = expr, .Ascending = ascending}) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + ValidateToken(TokenId.End, Res.SyntaxError) + Return orderings + End Function + '#pragma warning restore 0219 + + ' ?: operator + Function ParseExpression() As Expression + Dim errorPos As Integer = tokenVal.pos + Dim expr As Expression = ParseLogicalOr() + If tokenVal.id = TokenId.Question Then + NextToken() + Dim expr1 As Expression = ParseExpression() + ValidateToken(TokenId.Colon, Res.ColonExpected) + NextToken() + Dim expr2 As Expression = ParseExpression() + expr = GenerateConditional(expr, expr1, expr2, errorPos) + End If + Return expr + End Function + + ' ||, or operator + Function ParseLogicalOr() As Expression + Dim left As Expression = ParseLogicalAnd() + Do While tokenVal.id = TokenId.DoubleBar OrElse TokenIdentifierIs("or") + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseLogicalAnd() + CheckAndPromoteOperands(GetType(ILogicalSignatures), op.text, left, right, op.pos) + left = Expression.OrElse(left, right) + Loop + Return left + End Function + + ' &&, and operator + Function ParseLogicalAnd() As Expression + Dim left As Expression = ParseComparison() + Do While tokenVal.id = TokenId.DoubleAmphersand OrElse TokenIdentifierIs("and") + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseComparison() + CheckAndPromoteOperands(GetType(ILogicalSignatures), op.text, left, right, op.pos) + left = Expression.AndAlso(left, right) + Loop + Return left + End Function + + ' =, ==, !=, <>, >, >=, <, <= operators + Function ParseComparison() As Expression + Dim left As Expression = ParseAdditive() + Do While tokenVal.id = TokenId.Equal OrElse tokenVal.id = TokenId.DoubleEqual OrElse _ + tokenVal.id = TokenId.ExclamationEqual OrElse tokenVal.id = TokenId.LessGreater OrElse _ + tokenVal.id = TokenId.GreaterThan OrElse tokenVal.id = TokenId.GreaterThanEqual OrElse _ + tokenVal.id = TokenId.LessThan OrElse tokenVal.id = TokenId.LessThanEqual + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseAdditive() + Dim isEquality As Boolean = (op.id = TokenId.Equal OrElse op.id = TokenId.DoubleEqual OrElse _ + op.id = TokenId.ExclamationEqual OrElse op.id = TokenId.LessGreater) + If isEquality AndAlso Not left.Type.IsValueType AndAlso Not right.Type.IsValueType Then + If Not left.Type.Equals(right.Type) Then + If left.Type.IsAssignableFrom(right.Type) Then + right = Expression.Convert(right, left.Type) + ElseIf right.Type.IsAssignableFrom(left.Type) Then + left = Expression.Convert(left, right.Type) + Else + Throw IncompatibleOperandsError(op.text, left, right, op.pos) + End If + End If + ElseIf IsEnumType(left.Type) OrElse IsEnumType(right.Type) Then + If Not left.Type.Equals(right.Type) Then + Dim e As Expression = PromoteExpression(right, left.Type, True) + If e IsNot Nothing Then + right = e + Else + e = PromoteExpression(left, right.Type, True) + If e Is Nothing Then + Throw IncompatibleOperandsError(op.text, left, right, op.pos) + End If + left = e + End If + End If + Else + CheckAndPromoteOperands(If(isEquality, GetType(IEqualitySignatures), GetType(IRelationalSignatures)), _ + op.text, left, right, op.pos) + End If + Select Case op.id + Case TokenId.Equal, TokenId.DoubleEqual + left = GenerateEqual(left, right) + Case TokenId.ExclamationEqual, TokenId.LessGreater + left = GenerateNotEqual(left, right) + Case TokenId.GreaterThan + left = GenerateGreaterThan(left, right) + Case TokenId.GreaterThanEqual + left = GenerateGreaterThanEqual(left, right) + Case TokenId.LessThan + left = GenerateLessThan(left, right) + Case TokenId.LessThanEqual + left = GenerateLessThanEqual(left, right) + End Select + Loop + Return left + End Function + + ' +, -, & operators + Function ParseAdditive() As Expression + Dim left = ParseMultiplicative() + Do While tokenVal.id = TokenId.Plus OrElse tokenVal.id = TokenId.Minus OrElse _ + tokenVal.id = TokenId.Amphersand + Dim op = tokenVal + NextToken() + Dim right = ParseMultiplicative() + Select Case op.id + Case TokenId.Plus + If left.Type.Equals(GetType(String)) OrElse right.Type.Equals(GetType(String)) Then + GoTo amphersand + End If + CheckAndPromoteOperands(GetType(IAddSignatures), op.text, left, right, op.pos) + left = GenerateAdd(left, right) + Case TokenId.Minus + CheckAndPromoteOperands(GetType(ISubtractSignatures), op.text, left, right, op.pos) + left = GenerateSubtract(left, right) + Case TokenId.Amphersand +amphersand: + left = GenerateStringConcat(left, right) + End Select + Loop + Return left + End Function + + ' *, /, %, mod operators + Function ParseMultiplicative() As Expression + Dim left = ParseUnary() + Do While tokenVal.id = TokenId.Asterisk OrElse tokenVal.id = TokenId.Slash OrElse _ + tokenVal.id = TokenId.Percent OrElse TokenIdentifierIs("mod") + Dim op = tokenVal + NextToken() + Dim right = ParseUnary() + CheckAndPromoteOperands(GetType(IArithmeticSignatures), op.text, left, right, op.pos) + Select Case op.id + Case TokenId.Asterisk + left = Expression.Multiply(left, right) + Case TokenId.Slash + left = Expression.Divide(left, right) + Case TokenId.Percent, TokenId.Identifier + left = Expression.Modulo(left, right) + End Select + Loop + Return left + End Function + + ' -, !, not unary operators + Function ParseUnary() As Expression + If tokenVal.id = TokenId.Minus OrElse tokenVal.id = TokenId.Exclamation OrElse _ + TokenIdentifierIs("not") Then + + Dim op = tokenVal + NextToken() + If op.id = TokenId.Minus AndAlso (tokenVal.id = TokenId.IntegerLiteral OrElse _ + tokenVal.id = TokenId.RealLiteral) Then + tokenVal.text = "-" & tokenVal.text + tokenVal.pos = op.pos + Return ParsePrimary() + End If + Dim expr = ParseUnary() + If op.id = TokenId.Minus Then + CheckAndPromoteOperand(GetType(INegationSignatures), op.text, expr, op.pos) + expr = Expression.Negate(expr) + Else + CheckAndPromoteOperand(GetType(INotSignatures), op.text, expr, op.pos) + expr = Expression.Not(expr) + End If + Return expr + End If + Return ParsePrimary() + End Function + + Function ParsePrimary() As Expression + Dim expr = ParsePrimaryStart() + Do + If tokenVal.id = TokenId.Dot Then + NextToken() + expr = ParseMemberAccess(Nothing, expr) + ElseIf tokenVal.id = TokenId.OpenBracket Then + expr = ParseElementAccess(expr) + Else + Exit Do + End If + Loop + Return expr + End Function + + Function ParsePrimaryStart() As Expression + Select Case tokenVal.id + Case TokenId.Identifier + Return ParseIdentifier() + Case TokenId.StringLiteral + Return ParseStringLiteral() + Case TokenId.IntegerLiteral + Return ParseIntegerLiteral() + Case TokenId.RealLiteral + Return ParseRealLiteral() + Case TokenId.OpenParen + Return ParseParenExpression() + Case Else + Throw ParseError(Res.ExpressionExpected) + End Select + End Function + + Function ParseStringLiteral() As Expression + ValidateToken(TokenId.StringLiteral) + + Dim quote = tokenVal.text(0) + Dim s = tokenVal.text.Substring(1, tokenVal.text.Length - 2) + Dim start = 0 + + Do + Dim i = s.IndexOf(quote, start) + If i < 0 Then Exit Do + s = s.Remove(i, 1) + start = i + 1 + Loop + + If quote = "'" Then + If s.Length <> 1 Then + Throw ParseError(Res.InvalidCharacterLiteral) + End If + NextToken() + Return CreateLiteral(s(0), s) + End If + NextToken() + Return CreateLiteral(s, s) + End Function + + Function ParseIntegerLiteral() As Expression + ValidateToken(TokenId.IntegerLiteral) + Dim text = tokenVal.text + If text(0) <> "-" Then + Dim value As ULong = 0 + If Not UInt64.TryParse(text, value) Then + Throw ParseError(Res.InvalidIntegerLiteral, text) + End If + + NextToken() + If value <= CULng(Int32.MaxValue) Then Return CreateLiteral(CInt(value), text) + If value <= CULng(UInt32.MaxValue) Then Return CreateLiteral(CUInt(value), text) + If value <= CULng(Int64.MaxValue) Then Return CreateLiteral(CLng(value), text) + Return CreateLiteral(value, text) + Else + Dim value As Long = 0 + If Not Int64.TryParse(text, value) Then + Throw ParseError(Res.InvalidIntegerLiteral, text) + End If + NextToken() + If (value >= Int32.MinValue AndAlso value <= Int32.MaxValue) Then + Return CreateLiteral(CInt(value), text) + End If + Return CreateLiteral(value, text) + End If + End Function + + Function ParseRealLiteral() As Expression + ValidateToken(TokenId.RealLiteral) + Dim text = tokenVal.text + Dim value As Object = Nothing + Dim last = text(text.Length - 1) + If last = "f" Or last = "F" Then + Dim f As Single + If Single.TryParse(text.Substring(0, text.Length - 1), f) Then value = f + + Else + Dim d As Double + If Double.TryParse(text, d) Then value = d + End If + + If value Is Nothing Then Throw ParseError(Res.InvalidRealLiteral, text) + NextToken() + Return CreateLiteral(value, text) + End Function + + Function CreateLiteral(ByVal value As Object, ByVal text As String) As Expression + Dim expr = Expression.Constant(value) + literals.Add(expr, text) + Return expr + End Function + + Function ParseParenExpression() As Expression + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim e = ParseExpression() + ValidateToken(TokenId.CloseParen, Res.CloseParenOrOperatorExpected) + NextToken() + Return e + End Function + + Function ParseIdentifier() As Expression + ValidateToken(TokenId.Identifier) + Dim value As Object = Nothing + If keywords.TryGetValue(tokenVal.text, value) Then + If TryCast(value, Type) IsNot Nothing Then Return ParseTypeAccess(DirectCast(value, Type)) + If value Is keywordIt Then Return ParseIt() + If value Is keywordIif Then Return ParseIif() + If value Is keywordNew Then Return ParseNew() + NextToken() + Return DirectCast(value, Expression) + End If + + If symbols.TryGetValue(tokenVal.text, value) OrElse _ + externals IsNot Nothing AndAlso externals.TryGetValue(tokenVal.text, value) Then + Dim expr = TryCast(value, Expression) + If expr Is Nothing Then + expr = Expression.Constant(value) + Else + Dim lambda = TryCast(expr, LambdaExpression) + If lambda IsNot Nothing Then Return ParseLambdaInvocation(lambda) + End If + NextToken() + Return expr + End If + If it IsNot Nothing Then Return ParseMemberAccess(Nothing, it) + Throw ParseError(Res.UnknownIdentifier, tokenVal.text) + End Function + + Function ParseIt() As Expression + If it Is Nothing Then Throw ParseError(Res.NoItInScope) + NextToken() + Return it + End Function + + Function ParseIif() As Expression + Dim errorPos = tokenVal.pos + NextToken() + Dim args As Expression() = ParseArgumentList() + If args.Length <> 3 Then + Throw ParseError(errorPos, Res.IifRequiresThreeArgs) + End If + Return GenerateConditional(args(0), args(1), args(2), errorPos) + End Function + + Function GenerateConditional(ByVal test As Expression, ByVal expr1 As Expression, ByVal expr2 As Expression, ByVal errorPos As Integer) As Expression + If Not test.Type.Equals(GetType(Boolean)) Then + Throw ParseError(errorPos, Res.FirstExprMustBeBool) + End If + If Not expr1.Type.Equals(expr2.Type) Then + Dim expr1as2 As Expression = If(Not expr2.Equals(nullLiteral), PromoteExpression(expr1, expr2.Type, True), Nothing) + Dim expr2as1 As Expression = If(Not expr1.Equals(nullLiteral), PromoteExpression(expr2, expr1.Type, True), Nothing) + If expr1as2 IsNot Nothing And expr2as1 Is Nothing Then + expr1 = expr1as2 + ElseIf expr2as1 IsNot Nothing And expr1as2 Is Nothing Then + expr2 = expr2as1 + Else + Dim type1 = If(Not expr1.Equals(nullLiteral), expr1.Type.Name, "null") + Dim type2 = If(Not expr2.Equals(nullLiteral), expr2.Type.Name, "null") + If expr1as2 IsNot Nothing And expr2as1 IsNot Nothing Then + Throw ParseError(errorPos, Res.BothTypesConvertToOther, type1, type2) + End If + Throw ParseError(errorPos, Res.NeitherTypeConvertsToOther, type1, type2) + End If + End If + Return Expression.Condition(test, expr1, expr2) + End Function + + Function ParseNew() As Expression + NextToken() + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim properties As New List(Of DynamicProperty)() + Dim expressions As New List(Of Expression)() + Do + Dim exprPos = tokenVal.pos + Dim expr = ParseExpression() + Dim propName As String + If TokenIdentifierIs("as") Then + NextToken() + propName = GetIdentifier() + NextToken() + Else + Dim [me] As MemberExpression = TryCast(expr, MemberExpression) + If [me] Is Nothing Then Throw ParseError(exprPos, Res.MissingAsClause) + propName = [me].Member.Name + End If + expressions.Add(expr) + properties.Add(New DynamicProperty(propName, expr.Type)) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + ValidateToken(TokenId.CloseParen, Res.CloseParenOrCommaExpected) + NextToken() + Dim type As Type = DynamicExpression.CreateClass(properties) + Dim bindings(properties.Count - 1) As MemberBinding + For i As Integer = 0 To bindings.Length - 1 + bindings(i) = Expression.Bind(type.GetProperty(properties(i).Name), expressions(i)) + Next + Return Expression.MemberInit(Expression.[New](type), bindings) + End Function + + Function ParseLambdaInvocation(ByVal lambda As LambdaExpression) As Expression + Dim errorPos = tokenVal.pos + NextToken() + Dim args As Expression() = ParseArgumentList() + Dim method As MethodBase = Nothing + If FindMethod(lambda.Type, "Invoke", False, args, method) <> 1 Then + Throw ParseError(errorPos, Res.ArgsIncompatibleWithLambda) + End If + Return Expression.Invoke(lambda, args) + End Function + + Function ParseTypeAccess(ByVal type As Type) As Expression + Dim errorPos = tokenVal.pos + NextToken() + + If tokenVal.id = TokenId.Question Then + If (Not type.IsValueType) OrElse IsNullableType(type) Then + Throw ParseError(errorPos, Res.TypeHasNoNullableForm, GetTypeName(type)) + End If + type = GetType(Nullable(Of Integer)).GetGenericTypeDefinition().MakeGenericType(type) + NextToken() + End If + If tokenVal.id = TokenId.OpenParen Then + Dim args As Expression() = ParseArgumentList() + Dim method As MethodBase = Nothing + Select Case FindBestMethod(type.GetConstructors(), args, method) + Case 0 + If args.Length = 1 Then + Return GenerateConversion(args(0), type, errorPos) + End If + Throw ParseError(errorPos, Res.NoMatchingConstructor, GetTypeName(type)) + Case 1 + Return Expression.[New](DirectCast(method, ConstructorInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousConstructorInvocation, GetTypeName(type)) + End Select + End If + ValidateToken(TokenId.Dot, Res.DotOrOpenParenExpected) + NextToken() + Return ParseMemberAccess(type, Nothing) + End Function + + Function GenerateConversion(ByVal expr As Expression, ByVal type As Type, ByVal errorPos As Integer) As Expression + Dim exprType = expr.Type + If exprType.Equals(type) Then Return expr + If exprType.IsValueType AndAlso type.IsValueType Then + If (IsNullableType(exprType) OrElse IsNullableType(type)) AndAlso _ + GetNonNullableType(exprType).Equals(GetNonNullableType(type)) Then + + Return Expression.Convert(expr, type) + End If + If (IsNumericType(exprType) OrElse IsEnumType(exprType)) AndAlso _ + (IsNumericType(type) OrElse IsEnumType(type)) Then + + Return Expression.ConvertChecked(expr, type) + End If + End If + If exprType.IsAssignableFrom(type) OrElse type.IsAssignableFrom(exprType) OrElse _ + exprType.IsInterface OrElse type.IsInterface Then + Return Expression.Convert(expr, type) + End If + Throw ParseError(errorPos, Res.CannotConvertValue, _ + GetTypeName(exprType), GetTypeName(type)) + End Function + + + Function ParseMemberAccess(ByVal type As Type, ByVal instance As Expression) As Expression + If instance IsNot Nothing Then type = instance.Type + Dim errorPos = tokenVal.pos + Dim id = GetIdentifier() + NextToken() + If tokenVal.id = TokenId.OpenParen Then + If instance IsNot Nothing AndAlso Not type.Equals(GetType(String)) Then + Dim enumerableType As Type = FindGenericType(GetType(IEnumerable(Of Object)).GetGenericTypeDefinition(), type) + If enumerableType IsNot Nothing Then + Dim elementType As Type = enumerableType.GetGenericArguments()(0) + Return ParseAggregate(instance, elementType, id, errorPos) + End If + End If + Dim args As Expression() = ParseArgumentList() + Dim mb As MethodBase = Nothing + Select Case FindMethod(type, id, instance Is Nothing, args, mb) + Case 0 + Throw ParseError(errorPos, Res.NoApplicableMethod, id, GetTypeName(type)) + Case 1 + Dim method = DirectCast(mb, MethodInfo) + If (Not IsPredefinedType(method.DeclaringType)) Then + Throw ParseError(errorPos, Res.MethodsAreInaccessible, GetTypeName(method.DeclaringType)) + End If + If method.ReturnType.Equals(GetType(Void)) Then + Throw ParseError(errorPos, Res.MethodIsVoid, id, GetTypeName(method.DeclaringType)) + End If + Return Expression.Call(instance, DirectCast(method, MethodInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousMethodInvocation, id, GetTypeName(type)) + End Select + Else + Dim member As MemberInfo = FindPropertyOrField(type, id, instance Is Nothing) + If member Is Nothing Then + Throw ParseError(errorPos, Res.UnknownPropertyOrField, id, GetTypeName(type)) + End If + Return If(TryCast(member, PropertyInfo) IsNot Nothing, _ + Expression.Property(instance, DirectCast(member, PropertyInfo)), _ + Expression.Field(instance, DirectCast(member, FieldInfo))) + End If + End Function + + Shared Function FindGenericType(ByVal generic As Type, ByVal type As Type) As Type + Do While type IsNot Nothing AndAlso Not type.Equals(GetType(Object)) + If type.IsGenericType AndAlso type.GetGenericTypeDefinition().Equals(generic) Then Return type + If generic.IsInterface Then + For Each intfType As Type In type.GetInterfaces() + Dim found As Type = FindGenericType(generic, intfType) + If found IsNot Nothing Then Return found + Next + End If + type = type.BaseType + Loop + Return Nothing + End Function + + Function ParseAggregate(ByVal instance As Expression, ByVal elementType As Type, ByVal methodName As String, ByVal errorPos As Integer) As Expression + Dim outerIt As ParameterExpression = it + Dim innerIt As ParameterExpression = Expression.Parameter(elementType, "") + it = innerIt + Dim args As Expression() = ParseArgumentList() + it = outerIt + Dim signature As MethodBase = Nothing + If FindMethod(GetType(IEnumerableSignatures), methodName, False, args, signature) <> 1 Then + Throw ParseError(errorPos, Res.NoApplicableAggregate, methodName) + End If + Dim typeArgs As Type() + If signature.Name = "Min" OrElse signature.Name = "Max" Then + typeArgs = New Type() {elementType, args(0).Type} + Else + typeArgs = New Type() {elementType} + End If + + If args.Length = 0 Then + args = New Expression() {instance} + Else + args = New Expression() {instance, Expression.Lambda(args(0), innerIt)} + End If + Return Expression.Call(GetType(Enumerable), signature.Name, typeArgs, args) + End Function + + Function ParseArgumentList() As Expression() + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim args As Expression() = If(tokenVal.id <> TokenId.CloseParen, ParseArguments(), New Expression(-1) {}) + ValidateToken(TokenId.CloseParen, Res.CloseParenOrCommaExpected) + NextToken() + Return args + End Function + + Function ParseArguments() As Expression() + Dim argList As New List(Of Expression)() + Do + argList.Add(ParseExpression()) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + Return argList.ToArray() + End Function + + Function ParseElementAccess(ByVal expr As Expression) As Expression + Dim errorPos As Integer = tokenVal.pos + ValidateToken(TokenId.OpenBracket, Res.OpenParenExpected) + NextToken() + Dim args As Expression() = ParseArguments() + ValidateToken(TokenId.CloseBracket, Res.CloseBracketOrCommaExpected) + NextToken() + If expr.Type.IsArray Then + If expr.Type.GetArrayRank() <> 1 OrElse args.Length <> 1 Then + Throw ParseError(errorPos, Res.CannotIndexMultiDimArray) + End If + Dim index As Expression = PromoteExpression(args(0), GetType(Integer), True) + If index Is Nothing Then + Throw ParseError(errorPos, Res.InvalidIndex) + End If + Return Expression.ArrayIndex(expr, index) + Else + Dim mb As MethodBase = Nothing + Select Case FindIndexer(expr.Type, args, mb) + Case 0 + Throw ParseError(errorPos, Res.NoApplicableIndexer, GetTypeName(expr.Type)) + Case 1 + Return Expression.Call(expr, DirectCast(mb, MethodInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousIndexerInvocation, GetTypeName(expr.Type)) + End Select + End If + End Function + + Shared Function IsPredefinedType(ByVal type As Type) As Boolean + For Each t As Type In predefinedTypes + If t.Equals(type) Then Return True + Next + + Return False + End Function + + Shared Function IsNullableType(ByVal type As Type) As Boolean + Return type.IsGenericType AndAlso type.GetGenericTypeDefinition().Equals(GetType(Nullable(Of Integer)).GetGenericTypeDefinition()) + End Function + + Shared Function GetNonNullableType(ByVal type As Type) As Type + Return If(IsNullableType(type), type.GetGenericArguments()(0), type) + End Function + + Shared Function GetTypeName(ByVal type As Type) As String + Dim baseType = GetNonNullableType(type) + Dim s = baseType.Name + If Not type.Equals(baseType) Then s &= "?" + Return s + End Function + + Shared Function IsNumericType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) <> 0 + End Function + + Shared Function IsSignedIntegralType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) = 2 + End Function + + Shared Function IsUnsignedIntegralType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) = 3 + End Function + + Shared Function GetNumericTypeKind(ByVal type As Type) As Integer + type = GetNonNullableType(type) + If type.IsEnum Then Return 0 + Select Case type.GetTypeCode(type) + Case TypeCode.Char, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return 1 + Case TypeCode.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64 + Return 2 + Case TypeCode.Byte, TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64 + Return 3 + Case Else + Return 0 + End Select + End Function + + Shared Function IsEnumType(ByVal type As Type) As Boolean + Return GetNonNullableType(type).IsEnum + End Function + + Sub CheckAndPromoteOperand(ByVal signatures As Type, ByVal opName As String, ByRef expr As Expression, ByVal errorPos As Integer) + Dim args As Expression() = New Expression() {expr} + Dim method As MethodBase = Nothing + If FindMethod(signatures, "F", False, args, method) <> 1 Then + Throw ParseError(errorPos, Res.IncompatibleOperand, opName, GetTypeName(args(0).Type)) + End If + expr = args(0) + End Sub + + Sub CheckAndPromoteOperands(ByVal signatures As Type, ByVal opName As String, ByRef left As Expression, ByRef right As Expression, ByVal errorPos As Integer) + Dim args As Expression() = New Expression() {left, right} + Dim method As MethodBase = Nothing + If FindMethod(signatures, "F", False, args, method) <> 1 Then + Throw IncompatibleOperandsError(opName, left, right, errorPos) + End If + left = args(0) + right = args(1) + End Sub + + Function IncompatibleOperandsError(ByVal opName As String, ByVal left As Expression, ByVal right As Expression, ByVal pos As Integer) As Exception + Return ParseError(pos, Res.IncompatibleOperands, opName, GetTypeName(left.Type), GetTypeName(right.Type)) + End Function + + Function FindPropertyOrField(ByVal type As Type, ByVal memberName As String, ByVal staticAccess As Boolean) As MemberInfo + Dim flags As BindingFlags = BindingFlags.Public Or BindingFlags.DeclaredOnly Or _ + If(staticAccess, BindingFlags.Static, BindingFlags.Instance) + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.FindMembers(MemberTypes.Property Or MemberTypes.Field, _ + flags, type.FilterNameIgnoreCase, memberName) + If members.Length <> 0 Then Return members(0) + Next + Return Nothing + End Function + + Function FindMethod(ByVal type As Type, ByVal methodName As String, ByVal staticAccess As Boolean, ByVal args As Expression(), ByRef method As MethodBase) As Integer + Dim flags As BindingFlags = BindingFlags.Public Or BindingFlags.DeclaredOnly Or _ + If(staticAccess, BindingFlags.Static, BindingFlags.Instance) + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.FindMembers(MemberTypes.Method, _ + flags, type.FilterNameIgnoreCase, methodName) + Dim count As Integer = FindBestMethod(members.Cast(Of MethodBase)(), args, method) + If count <> 0 Then Return count + Next + method = Nothing + Return 0 + End Function + + Function FindIndexer(ByVal type As Type, ByVal args As Expression(), ByRef method As MethodBase) As Integer + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.GetDefaultMembers() + If members.Length <> 0 Then + Dim methods As IEnumerable(Of MethodBase) = members. _ + OfType(Of PropertyInfo)(). _ + Select(Function(p) DirectCast(p.GetGetMethod(), MethodBase)). _ + Where(Function(m) m IsNot Nothing) + Dim count As Integer = FindBestMethod(methods, args, method) + If count <> 0 Then Return count + End If + Next + method = Nothing + Return 0 + End Function + + Shared Function SelfAndBaseTypes(ByVal type As Type) As IEnumerable(Of Type) + If type.IsInterface Then + Dim types As New List(Of Type)() + AddInterface(types, type) + Return types + End If + Return SelfAndBaseClasses(type) + End Function + + Shared Function SelfAndBaseClasses(ByVal type As Type) As IEnumerable(Of Type) + Dim results As New LinkedList(Of Type)() + + Do While type IsNot Nothing + results.AddLast(type) + type = type.BaseType + Loop + + Return results + End Function + + Shared Sub AddInterface(ByVal types As List(Of Type), ByVal type As Type) + If Not types.Contains(type) Then + types.Add(type) + End If + For Each t As Type In type.GetInterfaces() + AddInterface(types, t) + Next + End Sub + + Class MethodData + Public MethodBase As MethodBase + Public Parameters As ParameterInfo() + Public Args As Expression() + End Class + + Function FindBestMethod(ByVal methods As IEnumerable(Of MethodBase), ByVal args As Expression(), ByRef method As MethodBase) As Integer + Dim applicable As MethodData() = methods. _ + Select(Function(m) New MethodData With {.MethodBase = m, .Parameters = m.GetParameters()}). _ + Where(Function(m) IsApplicable(m, args)). _ + ToArray() + If applicable.Length > 1 Then + applicable = applicable. _ + Where(Function(m) applicable.All(Function(n) m Is n OrElse IsBetterThan(args, m, n))). _ + ToArray() + End If + If applicable.Length = 1 Then + Dim md As MethodData = applicable(0) + For i As Integer = 0 To args.Length - 1 + args(i) = md.Args(i) + Next + method = md.MethodBase + Else + method = Nothing + End If + Return applicable.Length + End Function + + Function IsApplicable(ByVal method As MethodData, ByVal args As Expression()) As Boolean + If method.Parameters.Length <> args.Length Then Return False + Dim promotedArgs As Expression() = New Expression(args.Length - 1) {} + + For i As Integer = 0 To args.Length - 1 + Dim pi As ParameterInfo = method.Parameters(i) + If pi.IsOut Then Return False + Dim promoted As Expression = PromoteExpression(args(i), pi.ParameterType, False) + If promoted Is Nothing Then Return False + promotedArgs(i) = promoted + Next i + method.Args = promotedArgs + + Return True + End Function + + Function PromoteExpression(ByVal expr As Expression, ByVal type As Type, ByVal exact As Boolean) As Expression + If expr.Type.Equals(type) Then Return expr + If TryCast(expr, ConstantExpression) IsNot Nothing Then + Dim ce = DirectCast(expr, ConstantExpression) + If ce.Equals(nullLiteral) Then + If Not type.IsValueType OrElse IsNullableType(type) Then + Return Expression.Constant(Nothing, type) + End If + Else + Dim text As String = Nothing + If literals.TryGetValue(ce, text) Then + Dim target As Type = GetNonNullableType(type) + Dim value As Object = Nothing + Select Case type.GetTypeCode(ce.Type) + Case TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64 + value = ParseNumber(text, target) + Case TypeCode.Double + If target.Equals(GetType(Decimal)) Then value = ParseNumber(text, target) + Case TypeCode.String + value = ParseEnum(text, target) + End Select + If value IsNot Nothing Then Return Expression.Constant(value, type) + End If + End If + End If + + If IsCompatibleWith(expr.Type, type) Then + If type.IsValueType OrElse exact Then Return Expression.Convert(expr, type) + Return expr + End If + Return Nothing + End Function + + Shared Function ParseNumber(ByVal text As String, ByVal type As Type) As Object + Select Case type.GetTypeCode(GetNonNullableType(type)) + Case TypeCode.SByte + Dim sb As SByte + If SByte.TryParse(text, sb) Then Return sb + Case TypeCode.Byte + Dim b As Byte + If Byte.TryParse(text, b) Then Return b + Case TypeCode.Int16 + Dim s As Short + If Short.TryParse(text, s) Then Return s + Case TypeCode.UInt16 + Dim us As UShort + If UShort.TryParse(text, us) Then Return us + Case TypeCode.Int32 + Dim i As Integer + If Integer.TryParse(text, i) Then Return i + Case TypeCode.UInt32 + Dim ui As UInteger + If UInteger.TryParse(text, ui) Then Return ui + Case TypeCode.Int64 + Dim l As Long + If Long.TryParse(text, l) Then Return l + Case TypeCode.UInt64 + Dim ul As ULong + If ULong.TryParse(text, ul) Then Return ul + Case TypeCode.Single + Dim f As Single + If Single.TryParse(text, f) Then Return f + Case TypeCode.Double + Dim d As Double + If Double.TryParse(text, d) Then Return d + Case TypeCode.Decimal + Dim e As Decimal + If Decimal.TryParse(text, e) Then Return e + End Select + Return Nothing + End Function + + Shared Function ParseEnum(ByVal name As String, ByVal type As Type) As Object + If type.IsEnum Then + Dim memberInfos As MemberInfo() = type.FindMembers(MemberTypes.Field, _ + BindingFlags.Public Or BindingFlags.DeclaredOnly Or BindingFlags.Static, _ + type.FilterNameIgnoreCase, name) + If memberInfos.Length <> 0 Then Return DirectCast(memberInfos(0), FieldInfo).GetValue(Nothing) + End If + Return Nothing + End Function + + Shared Function IsCompatibleWith(ByVal source As Type, ByVal target As Type) As Boolean + If source.Equals(target) Then Return True + If Not target.IsValueType Then Return target.IsAssignableFrom(source) + Dim st As Type = GetNonNullableType(source) + Dim tt As Type = GetNonNullableType(target) + If Not st.Equals(source) AndAlso tt.Equals(target) Then Return False + Dim sc As TypeCode = If(st.IsEnum, TypeCode.Object, Type.GetTypeCode(st)) + Dim tc As TypeCode = If(tt.IsEnum, TypeCode.Object, Type.GetTypeCode(tt)) + + Select Case sc + Case TypeCode.SByte + Select Case tc + Case TypeCode.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Byte + Select Case tc + Case TypeCode.Byte, TypeCode.Int16, TypeCode.UInt16, TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int16 + Select Case tc + Case TypeCode.Int16, TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt16 + Select Case tc + Case TypeCode.UInt16, TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int32 + Select Case tc + Case TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt32 + Select Case tc + Case TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int64 + Select Case tc + Case TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt64 + Select Case tc + Case TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Single + Select Case tc + Case TypeCode.Single, TypeCode.Double + Return True + End Select + Case Else + If st.Equals(tt) Then Return True + End Select + Return False + End Function + + Shared Function IsBetterThan(ByVal args As Expression(), ByVal m1 As MethodData, ByVal m2 As MethodData) As Boolean + Dim better = False + For i As Integer = 0 To args.Length - 1 + Dim c As Integer = CompareConversions(args(i).Type, _ + m1.Parameters(i).ParameterType, _ + m2.Parameters(i).ParameterType) + If c < 0 Then Return False + If c > 0 Then better = True + Next i + Return better + End Function + + ' Return 1 if s -> t1 is a better conversion than s -> t2 + ' Return -1 if s -> t2 is a better conversion than s -> t1 + ' Return 0 if neither conversion is better + Shared Function CompareConversions(ByVal s As Type, ByVal t1 As Type, ByVal t2 As Type) As Integer + If t1.Equals(t2) Then Return 0 + If s.Equals(t1) Then Return 1 + If s.Equals(t2) Then Return -1 + Dim t1t2 As Boolean = IsCompatibleWith(t1, t2) + Dim t2t1 As Boolean = IsCompatibleWith(t2, t1) + If t1t2 AndAlso Not t2t1 Then Return 1 + If t2t1 AndAlso Not t1t2 Then Return -1 + If IsSignedIntegralType(t1) AndAlso IsUnsignedIntegralType(t2) Then Return 1 + If IsSignedIntegralType(t2) AndAlso IsUnsignedIntegralType(t1) Then Return -1 + Return 0 + End Function + + Function GenerateEqual(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Equal(left, right) + End Function + + Function GenerateNotEqual(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.NotEqual(left, right) + End Function + + Function GenerateGreaterThan(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.GreaterThan( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.GreaterThan(left, right) + End Function + + Function GenerateGreaterThanEqual(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.GreaterThanOrEqual( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.GreaterThanOrEqual(left, right) + End Function + + Function GenerateLessThan(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.LessThan( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.LessThan(left, right) + End Function + + Function GenerateLessThanEqual(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.LessThanOrEqual( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.LessThanOrEqual(left, right) + End Function + + Function GenerateAdd(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) AndAlso right.Type.Equals(GetType(String)) Then + Return GenerateStaticMethodCall("Concat", left, right) + End If + Return Expression.Add(left, right) + End Function + + Function GenerateSubtract(ByVal left As Expression, ByVal right As expression) As Expression + Return Expression.Subtract(left, right) + End Function + + Function GenerateStringConcat(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Call( _ + Nothing, _ + GetType(String).GetMethod("Concat", New Type() {GetType(Object), GetType(Object)}), _ + New Expression() {left, right}) + End Function + + Function GetStaticMethod(ByVal methodName As String, ByVal left As expression, ByVal right As expression) As MethodInfo + Return left.Type.GetMethod(methodName, New Type() {left.Type, right.Type}) + End Function + + Function GenerateStaticMethodCall(ByVal methodName As String, ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Call(Nothing, GetStaticMethod(methodName, left, right), New Expression() {left, right}) + End Function + + Sub SetTextPos(ByVal pos As Integer) + textPos = pos + ch = If(textPos < textLen, text(textPos), ChrW(0)) + End Sub + + Sub NextChar() + If textPos < textLen Then textPos += 1 + ch = If(textPos < textLen, text(textPos), ChrW(0)) + End Sub + + Sub NextToken() + Do While Char.IsWhiteSpace(ch) + NextChar() + Loop + + Dim t As TokenId + Dim tokenPos = textPos + Select Case ch + Case "!"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.ExclamationEqual + Else + t = TokenId.Exclamation + End If + Case "%"c + NextChar() + t = TokenId.Percent + Case "&"c + NextChar() + If ch = "&" Then + NextChar() + t = TokenId.DoubleAmphersand + Else + t = TokenId.Amphersand + End If + Case "("c + NextChar() + t = TokenId.OpenParen + Case ")"c + NextChar() + t = TokenId.CloseParen + Case "*"c + NextChar() + t = TokenId.Asterisk + Case "+"c + NextChar() + t = TokenId.Plus + Case ","c + NextChar() + t = TokenId.Comma + Case "-"c + NextChar() + t = TokenId.Minus + Case "."c + NextChar() + t = TokenId.Dot + Case "/"c + NextChar() + t = TokenId.Slash + Case ":"c + NextChar() + t = TokenId.Colon + Case "<"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.LessThanEqual + ElseIf ch = ">" Then + NextChar() + t = TokenId.LessGreater + Else + t = TokenId.LessThan + End If + Case "="c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.DoubleEqual + Else + t = TokenId.Equal + End If + Case ">"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.GreaterThanEqual + Else + t = TokenId.GreaterThan + End If + Case "?"c + NextChar() + t = TokenId.Question + Case "["c + NextChar() + t = TokenId.OpenBracket + Case "]"c + NextChar() + t = TokenId.CloseBracket + Case "|"c + NextChar() + If ch = "|" Then + NextChar() + t = TokenId.DoubleBar + Else + t = TokenId.Bar + End If + Case "'"c, """"c + Dim quote = ch + Do + NextChar() + Do While textPos < textLen AndAlso ch <> quote + NextChar() + Loop + If textPos = textLen Then Throw ParseError(textPos, Res.UnterminatedStringLiteral) + NextChar() + Loop While ch = quote + t = TokenId.StringLiteral + Case Else + If Char.IsLetter(ch) OrElse ch = "@" OrElse ch = "_" Then + Do + NextChar() + Loop While Char.IsLetterOrDigit(ch) OrElse ch = "_" + t = TokenId.Identifier + Exit Select + End If + + If Char.IsDigit(ch) Then + t = TokenId.IntegerLiteral + Do + NextChar() + Loop While Char.IsDigit(ch) + If ch = "." Then + t = TokenId.RealLiteral + NextChar() + ValidateDigit() + Do + NextChar() + Loop While Char.IsDigit(ch) + End If + If ch = "E" OrElse ch = "e" Then + t = TokenId.RealLiteral + NextChar() + If ch = "+" OrElse ch = "-" Then NextChar() + ValidateDigit() + Do + NextChar() + Loop While Char.IsDigit(ch) + End If + If ch = "F" Or ch = "f" Then NextChar() + Exit Select + End If + If textPos = textLen Then + t = TokenId.End + Exit Select + End If + Throw ParseError(textPos, Res.InvalidCharacter, ch) + End Select + tokenVal.id = t + tokenVal.text = text.Substring(tokenPos, textPos - tokenPos) + tokenVal.pos = tokenPos + End Sub + + Function TokenIdentifierIs(ByVal id As String) As Boolean + Return tokenVal.id = TokenId.Identifier AndAlso String.Equals(id, tokenVal.text, StringComparison.OrdinalIgnoreCase) + End Function + + Function GetIdentifier() As String + ValidateToken(TokenId.Identifier, Res.IdentifierExpected) + Dim id = tokenVal.text + If id.Length > 1 AndAlso id(0) = "@" Then id = id.Substring(1) + Return id + End Function + + Sub ValidateDigit() + If Not Char.IsDigit(ch) Then Throw ParseError(textPos, Res.DigitExpected) + End Sub + + Sub ValidateToken(ByVal t As TokenId, ByVal errorMessage As String) + If tokenVal.id <> t Then Throw ParseError(errorMessage) + End Sub + + Sub ValidateToken(ByVal t As TokenId) + If tokenVal.id <> t Then Throw ParseError(Res.SyntaxError) + End Sub + + Overloads Function ParseError(ByVal format As String, ByVal ParamArray args As Object()) As Exception + Return ParseError(tokenVal.pos, format, args) + End Function + + Overloads Function ParseError(ByVal pos As Integer, ByVal format As String, ByVal ParamArray args As Object()) As Exception + Return New ParseException(String.Format(Global.System.Globalization.CultureInfo.CurrentCulture, format, args), pos) + End Function + + Shared Function CreateKeywords() As Dictionary(Of String, Object) + Dim d As New Dictionary(Of String, Object)(StringComparer.OrdinalIgnoreCase) + + d.Add("true", trueLiteral) + d.Add("false", falseLiteral) + d.Add("null", nullLiteral) + d.Add(keywordIt, keywordIt) + d.Add(keywordIif, keywordIif) + d.Add(keywordNew, keywordNew) + + For Each type As Type In predefinedTypes + d.Add(type.Name, type) + Next + + Return d + End Function + End Class + + Class Res + Public Const DuplicateIdentifier As String = "The identifier '{0}' was defined more than once" + Public Const ExpressionTypeMismatch As String = "Expression of type '{0}' expected" + Public Const ExpressionExpected As String = "Expression expected" + Public Const InvalidCharacterLiteral As String = "Character literal must contain exactly one character" + Public Const InvalidIntegerLiteral As String = "Invalid integer literal '{0}'" + Public Const InvalidRealLiteral As String = "Invalid real literal '{0}'" + Public Const UnknownIdentifier As String = "Unknown identifier '{0}'" + Public Const NoItInScope As String = "No 'it' is in scope" + Public Const IifRequiresThreeArgs As String = "The 'iif' function requires three arguments" + Public Const FirstExprMustBeBool As String = "The first expression must be of type 'Boolean'" + Public Const BothTypesConvertToOther As String = "Both of the types '{0}' and '{1}' convert to the other" + Public Const NeitherTypeConvertsToOther As String = "Neither of the types '{0}' and '{1}' converts to the other" + Public Const MissingAsClause As String = "Expression is missing an 'as' clause" + Public Const ArgsIncompatibleWithLambda As String = "Argument list incompatible with lambda expression" + Public Const TypeHasNoNullableForm As String = "Type '{0}' has no nullable form" + Public Const NoMatchingConstructor As String = "No matching constructor in type '{0}'" + Public Const AmbiguousConstructorInvocation As String = "Ambiguous invocation of '{0}' constructor" + Public Const CannotConvertValue As String = "A value of type '{0}' cannot be converted to type '{1}'" + Public Const NoApplicableMethod As String = "No applicable method '{0}' exists in type '{1}'" + Public Const MethodsAreInaccessible As String = "Methods on type '{0}' are not accessible" + Public Const MethodIsVoid As String = "Method '{0}' in type '{1}' does not return a value" + Public Const AmbiguousMethodInvocation As String = "Ambiguous invocation of method '{0}' in type '{1}'" + Public Const UnknownPropertyOrField As String = "No property or field '{0}' exists in type '{1}'" + Public Const NoApplicableAggregate As String = "No applicable aggregate method '{0}' exists" + Public Const CannotIndexMultiDimArray As String = "Indexing of multi-dimensional arrays is not supported" + Public Const InvalidIndex As String = "Array index must be an integer expression" + Public Const NoApplicableIndexer As String = "No applicable indexer exists in type '{0}'" + Public Const AmbiguousIndexerInvocation As String = "Ambiguous invocation of indexer in type '{0}'" + Public Const IncompatibleOperand As String = "Operator '{0}' incompatible with operand type '{1}'" + Public Const IncompatibleOperands As String = "Operator '{0}' incompatible with operand types '{1}' and '{2}'" + Public Const UnterminatedStringLiteral As String = "Unterminated string literal" + Public Const InvalidCharacter As String = "Syntax error '{0}'" + Public Const DigitExpected As String = "Digit expected" + Public Const SyntaxError As String = "Syntax error" + Public Const TokenExpected As String = "{0} expected" + Public Const ParseExceptionFormat As String = "{0} (at index {1})" + Public Const ColonExpected As String = "':' expected" + Public Const OpenParenExpected As String = "'(' expected" + Public Const CloseParenOrOperatorExpected As String = "')' or operator expected" + Public Const CloseParenOrCommaExpected As String = "')' or ',' expected" + Public Const DotOrOpenParenExpected As String = "'.' or '(' expected" + Public Const OpenBracketExpected As String = "'[' expected" + Public Const CloseBracketOrCommaExpected As String = "']' or ',' expected" + Public Const IdentifierExpected As String = "Identifier expected" + End Class +End Namespace diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/EncryptDecrypt.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/EncryptDecrypt.vb new file mode 100644 index 0000000..e861f1c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/EncryptDecrypt.vb @@ -0,0 +1,95 @@ +Imports System.Text +Imports System.Security.Cryptography +Imports System.IO +Imports DevExpress.Xpo.Metadata + +Public Module EncryptDecrypt + Public Function AESEncrypt(ByVal PlainText As String, ByVal Password As String, ByVal salt As String) As String + Const HashAlgorithm As String = "SHA1" 'Can be SHA1 or MD5 + Const PasswordIterations As Integer = 2 + Const InitialVector As String = "CanEncryption123" 'This should be a string of 16 ASCII characters. + Const KeySize As Integer = 256 'Can be 128, 192, or 256. + + If (String.IsNullOrEmpty(PlainText)) Then + Return "" + Exit Function + End If + Dim InitialVectorBytes As Byte() = Encoding.ASCII.GetBytes(InitialVector) + Dim SaltValueBytes As Byte() = Encoding.ASCII.GetBytes(salt) + Dim PlainTextBytes As Byte() = Encoding.UTF8.GetBytes(PlainText) + Dim DerivedPassword As PasswordDeriveBytes = New PasswordDeriveBytes(Password, SaltValueBytes, HashAlgorithm, PasswordIterations) + Dim KeyBytes As Byte() = DerivedPassword.GetBytes(KeySize / 8) + Dim SymmetricKey As RijndaelManaged = New RijndaelManaged() With {.Mode = CipherMode.CBC} + + Dim CipherTextBytes As Byte() = Nothing + Using Encryptor As ICryptoTransform = SymmetricKey.CreateEncryptor(KeyBytes, InitialVectorBytes) + Using MemStream As New MemoryStream() + Using CryptoStream As New CryptoStream(MemStream, Encryptor, CryptoStreamMode.Write) + CryptoStream.Write(PlainTextBytes, 0, PlainTextBytes.Length) + CryptoStream.FlushFinalBlock() + CipherTextBytes = MemStream.ToArray() + MemStream.Close() + CryptoStream.Close() + End Using + End Using + End Using + SymmetricKey.Clear() + Return Convert.ToBase64String(CipherTextBytes) + End Function + Public Function AESDecrypt(ByVal CipherText As String, ByVal password As String, ByVal salt As String) As String + + On Error Resume Next + + Const HashAlgorithm As String = "SHA1" + Const PasswordIterations As Integer = 2 + Const InitialVector As String = "CanEncryption123" + Const KeySize As Integer = 256 + + If (String.IsNullOrEmpty(CipherText)) Then + Return "" + End If + Dim InitialVectorBytes As Byte() = Encoding.ASCII.GetBytes(InitialVector) + Dim SaltValueBytes As Byte() = Encoding.ASCII.GetBytes(salt) + Dim CipherTextBytes As Byte() = Convert.FromBase64String(CipherText) + Dim DerivedPassword As PasswordDeriveBytes = New PasswordDeriveBytes(password, SaltValueBytes, HashAlgorithm, PasswordIterations) + Dim KeyBytes As Byte() = DerivedPassword.GetBytes(KeySize / 8) + Dim SymmetricKey As RijndaelManaged = New RijndaelManaged() With {.Mode = CipherMode.CBC} + Dim PlainTextBytes As Byte() = New Byte(CipherTextBytes.Length - 1) {} + + Dim ByteCount As Integer = 0 + + Using Decryptor As ICryptoTransform = SymmetricKey.CreateDecryptor(KeyBytes, InitialVectorBytes) + Using MemStream As MemoryStream = New MemoryStream(CipherTextBytes) + Using CryptoStream As CryptoStream = New CryptoStream(MemStream, Decryptor, CryptoStreamMode.Read) + ByteCount = CryptoStream.Read(PlainTextBytes, 0, PlainTextBytes.Length) + MemStream.Close() + CryptoStream.Close() + End Using + End Using + End Using + SymmetricKey.Clear() + Return Encoding.UTF8.GetString(PlainTextBytes, 0, ByteCount) + End Function +End Module +Public Class Encryption + Inherits ValueConverter + Public Overrides Function ConvertToStorageType(ByVal value As Object) As Object + If value IsNot Nothing Then + Return AESEncrypt(value.ToString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + Else + Return Nothing + End If + End Function + Public Overrides Function ConvertFromStorageType(ByVal value As Object) As Object + If value Is Nothing Then + Return Nothing + Else + Return AESDecrypt(value.ToString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + End If + End Function + Public Overrides ReadOnly Property StorageType() As Type + Get + Return GetType(String) + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/GLFunctions.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/GLFunctions.vb new file mode 100644 index 0000000..ed550b3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/GLFunctions.vb @@ -0,0 +1,527 @@ +Imports System +Imports System.ComponentModel +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.General +Imports System.Data.SqlClient +Imports System.Configuration +Imports System.Linq +Imports System.Linq.Expressions + +Public Module GLFunctions + Public Sub ReconfigurePCI(_uow As UnitOfWork, _CustomersFrom As CustomersFrom, _Customers As Customers, _PartnerType As ePartnerType, _ConnectInfo As String) + Dim _PCIDetail As PCIDetail = Nothing + Dim _PCIDetail1 As PCIDetail = Nothing + Dim _PCIGroup As PCIGroup = Nothing + Dim _GLAccounts As GLAccounts = Nothing + Dim _GLRows As GLRows = Nothing + Dim _InvoiceHeader As InvoiceHeader = Nothing + Dim _RegistryHeader As RegistryHeader = Nothing + Dim _DateExecution_Account As Date + Dim _DatePayment_Account As Date + Dim _CurrencyName_Account As CurrencyName = Nothing + Dim _PCIDetail_Collection As XPCollection(Of PCIDetail) + + If _Customers Is Nothing Then Exit Sub + If _CustomersFrom Is Nothing Then Exit Sub + If _PartnerType = ePartnerType.eNotSet Then Exit Sub + If _ConnectInfo Is Nothing Then _ConnectInfo = "" + Try + ' HIBAJAVÍTÁS MIATT + Dim _GLAccount_Collection_X As New XPCollection(Of GLAccounts)(_uow, CriteriaOperator.Parse("IsNull(ConnectInfo)=True or ConnectInfo=''")) + For Each _GLAccounts In _GLAccount_Collection_X + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery("update ""GLAccounts"" set ""ConnectInfo""='" & _GLAccounts.DocumentNumber & "' Where ""Oid""='" & _GLAccounts.Oid.ToString & "'") + Case eSQLType.MSSQL, eSQLType.MySQL + _uow.ExecuteNonQuery("update GLAccounts set ConnectInfo='" & _GLAccounts.DocumentNumber & "' Where Oid='" & _GLAccounts.Oid.ToString & "'") + End Select + Next + _uow.CommitChanges() + + '--- Itt kezdődik ----------------------------------------------------------------------------------------------------------------------------------- + Dim _PCIGroup_Collection As New XPCollection(Of PCIGroup)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and ConnectInfo=?", _ + _CustomersFrom.Oid, _Customers.Oid, _PartnerType, _ConnectInfo)) + + For Each _PCIGroup In _PCIGroup_Collection + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _uow.ExecuteNonQuery("update ""InvoiceHeader"" set ""PCIGroup""=Null Where ""PCIGroup""='" & _PCIGroup.Oid.ToString & "'") + _uow.ExecuteNonQuery("update ""PCIGroupAging"" set ""PCIGroup""=Null Where ""PCIGroup""='" & _PCIGroup.Oid.ToString & "'") + _uow.CommitChanges() + Case Else + _uow.ExecuteNonQuery("update InvoiceHeader set PCIGroup=Null Where PCIGroup='" & _PCIGroup.Oid.ToString & "'") + _uow.ExecuteNonQuery("update PCIGroupAging set PCIGroup=Null Where PCIGroup='" & _PCIGroup.Oid.ToString & "'") + _uow.CommitChanges() + End Select + Next + + Dim _SQL As String = "" + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _SQL = "delete from ""PCIDetail"" where ""CustomersFrom""='" & _CustomersFrom.Oid.ToString & "' and" + _SQL += " ""Customers""='" & _Customers.Oid.ToString & "' and" + _SQL += " ""PartnerType""=" & _PartnerType & " and" + _SQL += " ""ConnectInfo""='" & _ConnectInfo & "'" + _uow.ExecuteNonQuery(_SQL) + + _SQL = "delete from ""PCIGroup"" where ""CustomersFrom""='" & _CustomersFrom.Oid.ToString & "' and" + _SQL += " ""Customers""='" & _Customers.Oid.ToString & "' and" + _SQL += " ""PartnerType""=" & _PartnerType & " and" + _SQL += " ""ConnectInfo""='" & _ConnectInfo & "'" + _uow.ExecuteNonQuery(_SQL) + Case Else + _SQL = "delete from PCIDetail where CustomersFrom='" & _CustomersFrom.Oid.ToString & "' and" + _SQL += " Customers='" & _Customers.Oid.ToString & "' and" + _SQL += " PartnerType=" & _PartnerType & " and" + _SQL += " ConnectInfo='" & _ConnectInfo & "'" + _uow.ExecuteNonQuery(_SQL) + + _SQL = "delete from PCIGroup where CustomersFrom='" & _CustomersFrom.Oid.ToString & "' and" + _SQL += " Customers='" & _Customers.Oid.ToString & "' and" + _SQL += " PartnerType=" & _PartnerType & " and" + _SQL += " ConnectInfo='" & _ConnectInfo & "'" + _uow.ExecuteNonQuery(_SQL) + End Select + _uow.CommitChanges() + _PCIGroup = Nothing + _PCIDetail = Nothing + 'I. A lekönyvelt GLAccounts dokumentumok + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsDeleted=False and CustomersFrom.Oid=? and Customers.Oid=? and PartnerType=? and ConnectInfo=? and IsEditable=False", _ + _CustomersFrom.Oid, _Customers.Oid, _PartnerType, _ConnectInfo)) + + For Each _GLAccounts In _GLAccounts_Collection + 'If _PCIDetail Is Nothing Then + + _PCIDetail = New PCIDetail(_uow) + _PCIDetail.GLAccounts = _GLAccounts + _PCIDetail.MainType = "01-Account" + _PCIDetail.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIDetail.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIDetail.PartnerType = _PartnerType + _PCIDetail.ConnectInfo = _ConnectInfo + _PCIDetail.DocumentNumber = _GLAccounts.DocumentNumber + _PCIDetail.CurrencyName = _GLAccounts.CurrencyName + _PCIDetail.DateExecution = _GLAccounts.DateExecution + _PCIDetail.DateCreated = _GLAccounts.DateCreated + _PCIDetail.DateExecution_Account = _GLAccounts.DateExecution + _PCIDetail.DatePayment_Account = _GLAccounts.DatePayment + If _GLAccounts.PaymentOption Is Nothing Then + _PCIDetail.Paymode_Account = ePayMode.InTransfer + Else + _PCIDetail.Paymode_Account = _GLAccounts.PaymentOption.PayMode + End If + + _PCIDetail.CurrencyName_Account = _GLAccounts.CurrencyName + _PCIDetail.AmountDEV_Account = _GLAccounts.AmountDEVBrutto + _PCIDetail.AmountHUF_Account = _GLAccounts.AmountHUFBrutto + _CurrencyName_Account = _GLAccounts.CurrencyName + _DateExecution_Account = _GLAccounts.DateExecution + _DatePayment_Account = _GLAccounts.DatePayment + + + + If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + _PCIDetail.RegistryNumber = _GLAccounts.ImportedRegistryHeader.RegistryNumber + Else + _PCIDetail.RegistryNumber = _GLAccounts.RegistryNumber + End If + If _PCIGroup Is Nothing Then + _PCIGroup = New PCIGroup(_uow) + _PCIGroup.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIGroup.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIGroup.PartnerType = _PartnerType + _PCIGroup.ConnectInfo = _ConnectInfo + _PCIGroup.DocumentNumber = _GLAccounts.DocumentNumber + _PCIGroup.Description = _GLAccounts.NoteHeader + _PCIGroup.GLAccounts = _GLAccounts + + _PCIGroup.CurrencyName = _CurrencyName_Account + _PCIGroup.CurrencyName_Account = _CurrencyName_Account + _PCIGroup.DateCreated_Account = _GLAccounts.DateCreated + _PCIGroup.DateExecution_Account = _DateExecution_Account + _PCIGroup.DatePayment_Account = _GLAccounts.DatePayment + If _GLAccounts.PaymentOption Is Nothing Then + _PCIGroup.Paymode_Account = ePayMode.InTransfer + Else + _PCIGroup.Paymode_Account = _GLAccounts.PaymentOption.PayMode + End If + + _PCIGroup.AmountDEV_Account = _GLAccounts.AmountDEVBrutto + _PCIGroup.AmountHUF_Account = _GLAccounts.AmountHUFBrutto + + If _GLAccounts.ImportedRegistryHeader IsNot Nothing Then + _PCIGroup.RegistryNumber = _GLAccounts.ImportedRegistryHeader.RegistryNumber + Else + _PCIGroup.RegistryNumber = _GLAccounts.RegistryNumber + End If + + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + _PCIGroup.RegistryHeader = _GLAccounts.ImportedRegistryHeader + Else + _PCIGroup.InvoiceHeader = _GLAccounts.ImportedInvoice + End If + + End If + _PCIDetail.PCIGroup = _PCIGroup + 'End If + _PCIDetail.BallanceDEV += _GLAccounts.AmountDEVBrutto + _PCIDetail.BallanceHUF += _GLAccounts.AmountHUFBrutto + _PCIGroup.BallanceDEV += _GLAccounts.AmountDEVBrutto + _PCIGroup.BallanceHUF += _GLAccounts.AmountHUFBrutto + + If _GLAccounts.ImportedInvoice IsNot Nothing Then + _GLAccounts.ImportedInvoice.PCIGroup = _PCIGroup + End If + Next + _uow.CommitChanges() + _PCIDetail = Nothing + 'II. A kimenő számla, ami nincs feladva ! + If _PartnerType = ePartnerType.eReceivables Then + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsDeleted=False and isnull(DocumentNumber)=False and CustomersFrom.Oid=? and Customers.Oid=? and ConnectInfo=? and IsEditable=False and isnull(GLAccounts)=True", _ + _CustomersFrom.Oid, _Customers.Oid, _ConnectInfo)) + + For Each _InvoiceHeader In _InvoiceHeader_Collection + 'If _PCIDetail Is Nothing Then + _PCIDetail = New PCIDetail(_uow) + _PCIDetail.InvoiceHeader = _InvoiceHeader + _PCIDetail.MainType = "01-Account" + _PCIDetail.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIDetail.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIDetail.PartnerType = _PartnerType + _PCIDetail.ConnectInfo = _ConnectInfo + _PCIDetail.DocumentNumber = _InvoiceHeader.DocumentNumber + + _PCIDetail.CurrencyName = _InvoiceHeader.CurrencyName + _PCIDetail.DateExecution = _InvoiceHeader.DateExecution + _PCIDetail.DateCreated = _InvoiceHeader.DateCreated + _PCIDetail.DateExecution_Account = _InvoiceHeader.DateExecution + _PCIDetail.DatePayment_Account = _InvoiceHeader.DatePayment + _PCIDetail.Paymode_Account = _InvoiceHeader.PaymentOption.PayMode + _PCIDetail.CurrencyName_Account = _InvoiceHeader.CurrencyName + _PCIDetail.AmountDEV_Account = _InvoiceHeader.TotalBruttoDEV + _PCIDetail.AmountHUF_Account = _InvoiceHeader.TotalBruttoHUF + _PCIDetail.Description = _InvoiceHeader.DocumentNumber + _CurrencyName_Account = _InvoiceHeader.CurrencyName + _DateExecution_Account = _InvoiceHeader.DateExecution + _DatePayment_Account = _InvoiceHeader.DatePayment + If _PCIGroup Is Nothing Then + _PCIGroup = New PCIGroup(_uow) + _PCIGroup.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIGroup.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIGroup.PartnerType = _PartnerType + _PCIGroup.ConnectInfo = _ConnectInfo + _PCIGroup.DocumentNumber = _InvoiceHeader.DocumentNumber + _PCIGroup.Description = _InvoiceHeader.Description + _PCIGroup.CurrencyName = _CurrencyName_Account + _PCIGroup.CurrencyName_Account = _CurrencyName_Account + _PCIGroup.DateCreated_Account = _InvoiceHeader.DateCreated + _PCIGroup.DateExecution_Account = _DateExecution_Account + _PCIGroup.DatePayment_Account = _InvoiceHeader.DatePayment + _PCIGroup.Paymode_Account = _InvoiceHeader.PaymentOption.PayMode + _PCIGroup.InvoiceHeader = _InvoiceHeader + + _PCIGroup.AmountDEV_Account = _InvoiceHeader.TotalBruttoDEV + _PCIGroup.AmountHUF_Account = _InvoiceHeader.TotalBruttoHUF + End If + _PCIDetail.PCIGroup = _PCIGroup + 'End If + _PCIDetail.BallanceDEV += _InvoiceHeader.TotalBruttoDEV + _PCIDetail.BallanceHUF += _InvoiceHeader.TotalBruttoHUF + _PCIGroup.BallanceDEV += _InvoiceHeader.TotalBruttoDEV + _PCIGroup.BallanceHUF += _InvoiceHeader.TotalBruttoHUF + + _InvoiceHeader.PCIGroup = _PCIGroup + Next + End If + _uow.CommitChanges() + _PCIDetail = Nothing + 'IV. A rögzített számla iktatás, ami nincs feladva ! + If _PartnerType = ePartnerType.ePayabels Then + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("IsStorno=False and IsDeleted=False and RegistryAcceptState=0 and RegistryType.RegistryMainType in (0,2,4) and CustomersFrom.Oid=? and Customers.Oid=? and F_ConnectInfo=? and IsEditable=False and isnull(F_GLAccounts)=True", _ + _CustomersFrom.Oid, _Customers.Oid, _ConnectInfo)) + + For Each _RegistryHeader In _RegistryHeader_Collection + 'If _PCIDetail Is Nothing Then + _PCIDetail = New PCIDetail(_uow) + _PCIDetail.RegistryHeader = _RegistryHeader + _PCIDetail.MainType = "01-Account" + _PCIDetail.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIDetail.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIDetail.PartnerType = _PartnerType + _PCIDetail.ConnectInfo = _ConnectInfo + _PCIDetail.DocumentNumber = _RegistryHeader.DocumentNumber + _PCIDetail.CurrencyName = _RegistryHeader.F_CurrencyName + _PCIDetail.DateExecution = _RegistryHeader.F_DateExecution + _PCIDetail.DateCreated = _RegistryHeader.DateCreated + _PCIDetail.DatePayment_Account = _RegistryHeader.F_DatePayment + _PCIDetail.Paymode_Account = _RegistryHeader.F_PayMode + _PCIDetail.DateExecution_Account = _RegistryHeader.F_DateExecution + _PCIDetail.CurrencyName_Account = _RegistryHeader.F_CurrencyName + _PCIDetail.AmountDEV_Account = _RegistryHeader.F_AmountBruttoDEV + _PCIDetail.AmountHUF_Account = _RegistryHeader.F_AmountBruttoHUF + _CurrencyName_Account = _RegistryHeader.F_CurrencyName + _DateExecution_Account = _RegistryHeader.F_DateExecution + _DatePayment_Account = _RegistryHeader.F_DatePayment + _PCIDetail.RegistryNumber = _RegistryHeader.RegistryNumber + If _PCIGroup Is Nothing Then + _PCIGroup = New PCIGroup(_uow) + _PCIGroup.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIGroup.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIGroup.PartnerType = _PartnerType + _PCIGroup.ConnectInfo = _ConnectInfo + _PCIGroup.DocumentNumber = _RegistryHeader.DocumentNumber + _PCIGroup.Description = _RegistryHeader.ShortName + _PCIGroup.RegistryHeader = _RegistryHeader + + _PCIGroup.CurrencyName = _CurrencyName_Account + _PCIGroup.CurrencyName_Account = _CurrencyName_Account + _PCIGroup.DateCreated_Account = _RegistryHeader.F_DateCreated + _PCIGroup.DateExecution_Account = _DateExecution_Account + _PCIGroup.DatePayment_Account = _RegistryHeader.F_DatePayment + _PCIGroup.Paymode_Account = _RegistryHeader.F_PayMode + _PCIGroup.AmountDEV_Account = _RegistryHeader.F_AmountBruttoDEV + _PCIGroup.AmountHUF_Account = _RegistryHeader.F_AmountBruttoHUF + + _PCIGroup.RegistryNumber = _RegistryHeader.RegistryNumber + End If + _PCIDetail.PCIGroup = _PCIGroup + 'End If + _PCIDetail.BallanceDEV += _RegistryHeader.F_AmountBruttoDEV + _PCIDetail.BallanceHUF += _RegistryHeader.F_AmountBruttoHUF + _PCIGroup.BallanceDEV += _RegistryHeader.F_AmountBruttoDEV + _PCIGroup.BallanceHUF += _RegistryHeader.F_AmountBruttoHUF + Next + End If + _uow.CommitChanges() + _PCIDetail = Nothing + + 'II A pénzügyi teljesítések (soronként !) + Dim _GLRows_Collection As New XPCollection(Of GLRows)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _uow, CriteriaOperator.Parse("GLHeader.IsDeleted=False and GLHeader.CustomersFrom.Oid=? and Customer.Oid=? and PartnerType=? and ConnectInfo=? and GLHeader.GLDocumentType in (0,2,3,4,5)", _ + _CustomersFrom.Oid, _Customers.Oid, _PartnerType, _ConnectInfo)) + + For Each _GLRows In _GLRows_Collection + If _GLRows.GLHeader.GLDocumentType = eGLDocumentType.eGLMixed And _GLRows.GLRowsType <> eGLRowsType.eNormal Then + + Else + _PCIDetail = New PCIDetail(_uow) + _PCIDetail.GLRows = _GLRows + If _PCIGroup Is Nothing Then + _PCIGroup = New PCIGroup(_uow) + _PCIGroup.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIGroup.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIGroup.PartnerType = _PartnerType + _PCIGroup.ConnectInfo = _ConnectInfo + + + _PCIGroup.CurrencyName = _GLRows.GLHeader.CurrencyName + _PCIGroup.DateCreated_Account = Nothing + _PCIGroup.CurrencyName_Account = Nothing + _PCIGroup.DateExecution_Account = Nothing + _PCIGroup.DatePayment_Account = Nothing + _PCIGroup.Paymode_Account = ePayMode.NotSet + _PCIGroup.AmountDEV_Account = 0 + _PCIGroup.AmountHUF_Account = 0 + End If + _PCIDetail.PCIGroup = _PCIGroup + Select Case _GLRows.GLHeader.GLDocumentType + Case eGLDocumentType.eGLMixed + _PCIDetail.MainType = "06-Mixed" + Case eGLDocumentType.eGLBank + _PCIDetail.MainType = "02-Bank" + Case eGLDocumentType.eGLCassa + _PCIDetail.MainType = "03-Cassa" + Case eGLDocumentType.eGLCompensation + _PCIDetail.MainType = "04-Compensation" + Case eGLDocumentType.eGLRateDiff + _PCIDetail.MainType = "05-Ratediff" + Case eGLDocumentType.eLateCharge + _PCIDetail.MainType = "06-Latecharge" + End Select + + _PCIDetail.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_CustomersFrom.Oid) + _PCIDetail.Customers = _uow.GetObjectByKey(Of Customers)(_Customers.Oid) + _PCIDetail.PartnerType = _PartnerType + _PCIDetail.ConnectInfo = _ConnectInfo + _PCIDetail.DocumentNumber = _GLRows.GLHeader.DocumentNumber + _PCIDetail.CurrencyName = _GLRows.GLHeader.CurrencyName + _PCIDetail.DateExecution = _GLRows.GLHeader.DateExecution + _PCIDetail.DateCreated = _GLRows.GLHeader.DateCreated + _PCIDetail.AmountDEV_Account = 0 + _PCIDetail.AmountHUF_Account = 0 + + If _GLRows.LiquidAssets IsNot Nothing Then + _PCIDetail.Description = _GLRows.LiquidAssets.ShortName & ", " & _GLRows.GLHeader.DocumentNumber + Else + _PCIDetail.Description = ", " & _GLRows.GLHeader.DocumentNumber + End If + + If _CurrencyName_Account IsNot Nothing Then + _PCIDetail.DateExecution_Account = _DateExecution_Account + _PCIDetail.CurrencyName_Account = _CurrencyName_Account + _PCIDetail.DatePayment_Account = _DatePayment_Account + Select Case _PartnerType + Case ePartnerType.ePayabels + If _GLRows.InAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.InAmountHUF + If _GLRows.OutAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.OutAmountHUF * -1 + + If _GLRows.InAmountDEV <> 0 And _GLRows.GLHeader.CurrencyName Is _CurrencyName_Account Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV + If _GLRows.OutAmountDEV <> 0 And _GLRows.GLHeader.CurrencyName Is _CurrencyName_Account Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV * -1 + If _GLRows.InAmountDEV2 <> 0 And _GLRows.GLHeader.CurrencyName IsNot _CurrencyName_Account And _CurrencyName_Account.ShortName <> "HUF" Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV2 + If _GLRows.OutAmountDEV2 <> 0 And _GLRows.GLHeader.CurrencyName IsNot _CurrencyName_Account And _CurrencyName_Account.ShortName <> "HUF" Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV2 * -1 + + Case ePartnerType.eReceivables + If _GLRows.InAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.InAmountHUF * -1 + If _GLRows.OutAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.OutAmountHUF + + If _GLRows.InAmountDEV <> 0 And _GLRows.GLHeader.CurrencyName Is _CurrencyName_Account Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV * -1 + If _GLRows.OutAmountDEV <> 0 And _GLRows.GLHeader.CurrencyName Is _CurrencyName_Account Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV + If _GLRows.InAmountDEV2 <> 0 And _GLRows.GLHeader.CurrencyName IsNot _CurrencyName_Account And _CurrencyName_Account.ShortName <> "HUF" Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV2 * -1 + If _GLRows.OutAmountDEV2 <> 0 And _GLRows.GLHeader.CurrencyName IsNot _CurrencyName_Account And _CurrencyName_Account.ShortName <> "HUF" Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV2 + End Select + Else + _PCIDetail.DateExecution_Account = Nothing + _PCIDetail.CurrencyName_Account = Nothing + Select Case _PartnerType + Case ePartnerType.ePayabels + If _GLRows.InAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.InAmountHUF + If _GLRows.OutAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.OutAmountHUF * -1 + If _GLRows.InAmountDEV <> 0 Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV + If _GLRows.OutAmountDEV <> 0 Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV * -1 + Case ePartnerType.eReceivables + If _GLRows.InAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.InAmountHUF * -1 + If _GLRows.OutAmountHUF <> 0 Then _PCIDetail.BallanceHUF = _GLRows.OutAmountHUF + If _GLRows.InAmountDEV <> 0 Then _PCIDetail.BallanceDEV = _GLRows.InAmountDEV * -1 + If _GLRows.OutAmountDEV <> 0 Then _PCIDetail.BallanceDEV = _GLRows.OutAmountDEV + End Select + End If + _PCIGroup.BallanceDEV += _PCIDetail.BallanceDEV + _PCIGroup.BallanceHUF += _PCIDetail.BallanceHUF + End If + Next + _uow.CommitChanges() + If _PCIGroup IsNot Nothing Then + + + _PCIDetail_Collection = New XPCollection(Of PCIDetail)(_uow, CriteriaOperator.Parse("PCIGroup.Oid=?", _PCIGroup.Oid)) + _PCIDetail_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending)) + Dim _IsDateLastConnected As Boolean = False + For Each _PCIDetail In _PCIDetail_Collection + _PCIDetail.BallanceRateDiff = _PCIGroup.BallanceRateDiff + _PCIDetail.BallanceState = _PCIGroup.BallanceState + _PCIDetail.Save() + _uow.CommitChanges() + If _IsDateLastConnected = False Then + Select Case _PCIDetail.MainType + Case "02-Bank", "03-Cassa", "04-Compensation" + _PCIDetail.PCIGroup.DateLastConnected = _PCIDetail.DateExecution + _IsDateLastConnected = True + _uow.CommitChanges() + End Select + End If + Next + + + If _PCIGroup.InvoiceHeader IsNot Nothing Then + If _PCIGroup.InvoiceHeader.InvoiceHold IsNot Nothing Then + If _PCIGroup.InvoiceHeader.InvoiceHold.Count > 0 Then + If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then + Dim _InvoiceHold As InvoiceHold + Dim _AmountHUF As Double = _PCIGroup.AmountHUF_Account - _PCIGroup.BallanceHUF + If _AmountHUF > 0 Then + _PCIGroup.InvoiceHeader.InvoiceHold.Sorting.Add(New SortProperty("DatePayment", DB.SortingDirection.Ascending)) + For Each _InvoiceHold In _InvoiceHeader.InvoiceHold + _InvoiceHold.BallanceHUF = 0 + Next + For Each _InvoiceHold In _InvoiceHeader.InvoiceHold + If _AmountHUF <= _InvoiceHold.AmountHUF Then + _InvoiceHold.BallanceHUF = _AmountHUF + Exit For + Else + _InvoiceHold.BallanceHUF = _InvoiceHold.AmountHUF + _AmountHUF -= _InvoiceHold.AmountHUF + End If + Next + For Each _InvoiceHold In _InvoiceHeader.InvoiceHold + _InvoiceHold.BallanceHUF = _InvoiceHold.AmountHUF - _InvoiceHold.BallanceHUF + Next + End If + Else + + End If + End If + End If + End If + _uow.CommitChanges() + If _PCIGroup.RegistryHeader IsNot Nothing Then + If _PCIGroup.RegistryHeader.RegistryBankTransfer IsNot Nothing Then + If _PCIGroup.RegistryHeader.RegistryBankTransfer.Count > 0 Then + If _PCIGroup.CurrencyName_Account.ShortName = "HUF" Then + Dim _RegistryBankTransfer As RegistryBankTransfer + Dim _AmountHUF As Double = _PCIGroup.AmountHUF_Account - _PCIGroup.BallanceHUF + If _AmountHUF > 0 Then + _PCIGroup.RegistryHeader.RegistryBankTransfer.Sorting.Add(New SortProperty("DatePayment", DB.SortingDirection.Ascending)) + For Each _RegistryBankTransfer In _PCIGroup.RegistryHeader.RegistryBankTransfer + _RegistryBankTransfer.BallanceHUF = 0 + Next + For Each _RegistryBankTransfer In _PCIGroup.RegistryHeader.RegistryBankTransfer + If _AmountHUF <= _RegistryBankTransfer.AmountHUF Then + _RegistryBankTransfer.BallanceHUF = _AmountHUF + Exit For + Else + _RegistryBankTransfer.BallanceHUF = _RegistryBankTransfer.AmountHUF + _AmountHUF -= _RegistryBankTransfer.AmountHUF + End If + Next + For Each _RegistryBankTransfer In _PCIGroup.RegistryHeader.RegistryBankTransfer + _RegistryBankTransfer.BallanceHUF = _RegistryBankTransfer.AmountHUF - _RegistryBankTransfer.BallanceHUF + Next + End If + Else + + End If + End If + End If + End If + _uow.CommitChanges() + End If + _uow.CommitChanges() + Catch exp As Exception + + Dim _uow_exception As New UnitOfWork(_uow.DataLayer) + Dim _ErrorLog As ErrorLog = New ErrorLog(_uow_exception) + _ErrorLog.Description = exp.Message.ToString + _ErrorLog.Description += Chr(13) + Chr(10) + _ConnectInfo + _ErrorLog.Save() + _uow_exception.CommitChanges() + + Finally + + End Try + End Sub + Public Sub CorrectPCI(ByVal _uow As UnitOfWork, ByVal _Object As Object) + Dim _AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent) + Dim _AuditDataItemPersistent As AuditDataItemPersistent + + If TryCast(_Object, RegistryHeader) IsNot Nothing Then + _AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_uow, _Object) + For Each _AuditDataItemPersistent In _AuditDataItemPersistent_Collection + If _AuditDataItemPersistent.PropertyName = "DocumentNumber" Then + + End If + Next + End If + End Sub + +End Module diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/GeneralFunction.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/GeneralFunction.vb new file mode 100644 index 0000000..7388335 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/GeneralFunction.vb @@ -0,0 +1,456 @@ +Imports System +Imports DevExpress.Xpo +Imports DevExpress.Xpo.DB +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp +Imports System.Linq +Imports System.Linq.Expressions + +Public Module GeneralFunction + '-- Globális változó ! + Public GLOBAL_CustomersFrom_Oid As String + Public GLOBAL_ConnectionString As String + Public GLOBAL_WINFormCaption As String + Public GLOBAL_WEBFormCaption As String + Public GLOBAL_RegistryTask_Current_Oid As Guid + Public GLOBAL_CustomersFrom_String As String = "" + Public GLOBAL_PreviewName As String = "" + Public GLOBAL_PrevievFilter As String = "" + Public GLOBAL_ApplicationStartupPath As String = "" + Public GLOBAL_ApplicationStartupPath_Mail As String = "" + Public GLOBAL_SQLType As eSQLType + Public GLOBAL_HAS_EXPLICIT_TRANSACTION As Boolean = False + Public GLOBAL_EUMemberStates As String() = {"AT", "BE", "BG", "CY", "CZ", "DK", "UK", "EE", "FI", "FR", "GR", "GB", "NL", _ + "IE", "PL", "LV", "LT", "LU", "HU", "MT", "DE", "IT", "PT", "RO", "ES", "SE", "SK", "SI"} + + Public GLOBAL_HAS_Audit As Boolean = True + Public GLOBAL_MainModuleVersion As String = "" + + 'winApplication_LastLogonParametersWriting' + Public GLOBAL_SQLServer As String = "" + Public GLOBAL_SQLUser As String = "" + Public GLOBAL_SQLDatabase As String = "" + Public GLOBAL_SQLPassword As String = "" + Public GLOBAL_Company As String = "" + Public GLOBAL_Plattform As String = "" + Public GLOBAL_Company_Info As String = "" + Public GLOBAL_ActivityID As String = "" + + 'Dashboard + Public GLOBAL_DASHBOARD_XML_DashboardXmlFile As String = "" + Public GLOBAL_DASHBOARD_XML_ServerName As String = "" + Public GLOBAL_DASHBOARD_XML_UserName As String = "" + Public GLOBAL_DASHBOARD_XML_DatabaseName As String = "" + Public GLOBAL_DASHBOARD_XML_Password As String = "" + Public GLOBAL_DASHBOARD_XML_SQLType As String = "" + + Public GLOBAL_ListViewReset As Boolean = False + + Enum eDirection + Left = 0 + Right = 1 + End Enum + + Public Function GetConnectionGLOBAL() As String + Dim connstr As String = "" + Select Case UCase(GLOBAL_Company) + Case "FR (MICROSERVER2008)" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MySQL + GLOBAL_SQLServer = "MICROSERVER2008" + GLOBAL_SQLDatabase = "frinput" + GLOBAL_Company_Info = "Franciska Kft : MICROSERVER2008, FRINPUT" + GLOBAL_Plattform = "MySQL" + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "MC LOCAL", "MC (LOCAL)" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "SISI5SSD2\SQLExpress" + GLOBAL_SQLDatabase = "MC" + GLOBAL_Company_Info = "Mol-Control Kft. TESZT adatbázis : SISI5SSD2\SQLExpress, MC" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "MC OFFICE TEST" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "192.168.6.9" + GLOBAL_SQLDatabase = "SISBUSINESS_TEST" + GLOBAL_Company_Info = "Mol-Control Kft. TESZT adatbázis : 192.168.6.9, SISBUSINESS_TEST" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "MC REMOTE", "MC (REMOTE)", "MC" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "78.131.7.14" + GLOBAL_SQLDatabase = "SISBusiness" + GLOBAL_Company_Info = "Mol-Control Kft. adatbázis : 78.131.7.14, MC" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "SISTEST (LOCAL)", "SISTEST LOCAL" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "SISI5SSD2\SQLExpress" + GLOBAL_SQLDatabase = "SISTEST" + GLOBAL_Company_Info = "TESZT adatbázis : SISI5SSD2\SQLExpress, SISTEST" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "PH (REMOTE)", "PH REMOTE", "PH" + GLOBAL_SQLUser = "sisuser" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "iroda.pestihazak.hu " + GLOBAL_SQLDatabase = "SISBusiness" + GLOBAL_Company_Info = "Pesti Házak : iroda.pestihazak.hu, SISBusiness" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "SISTEST" + GLOBAL_SQLUser = "sa" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MSSQL + GLOBAL_SQLServer = "DATACENTER\SIS" + GLOBAL_SQLDatabase = "SISTEST" + GLOBAL_Company_Info = "SISTEST adatbázis : DATACENTER\SIS, SISTEST" + GLOBAL_Plattform = "MS SQL" + connstr = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "FRANCISKA (LOCAL)", "FRANCISKA LOCAL" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MySQL + GLOBAL_SQLServer = "frserver" + GLOBAL_SQLDatabase = "frinput" + GLOBAL_Company_Info = "Franciska Input Kft : FRSERVER, FRINPUT" + GLOBAL_Plattform = "MySQL" + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "FRANCISKA (REMOTE)", "FRANCISKA REMOTE", "FR" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MySQL + GLOBAL_SQLServer = "91.137.135.109" + GLOBAL_SQLDatabase = "frinput" + GLOBAL_Company_Info = "Franciska Input Kft : 91.137.135.109, FRINPUT" + GLOBAL_Plattform = "MySQL" + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "BATIMPUT (REMOTE)", "BATINPUT REMOTE", "BI" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MySQL + GLOBAL_SQLServer = "91.137.135.109" + GLOBAL_SQLDatabase = "batinput" + GLOBAL_Company_Info = "Bát Input Kft : 91.137.135.109, BATINPUT" + GLOBAL_Plattform = "MySQL" + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + Case "FR DB01" + GLOBAL_SQLUser = "root" + GLOBAL_SQLPassword = "pcl718" + GLOBAL_SQLType = eSQLType.MySQL + GLOBAL_SQLServer = "91.137.135.109" + GLOBAL_SQLDatabase = "db01" + GLOBAL_Company_Info = "Franciska Input Kft : 91.137.135.109, db01" + GLOBAL_Plattform = "MySQL" + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(GLOBAL_SQLServer, GLOBAL_SQLUser, GLOBAL_SQLPassword, GLOBAL_SQLDatabase) + End Select + Return connstr + End Function + + Public Function AlignStr(ByVal s As String, ByVal Direction As eDirection, ByVal AlignChar As String, ByVal MaxLen As Integer) As String + Dim I As Integer + Dim J As Long + Dim seged As String = "" + Dim _AlignStr As String = "" + + If AlignChar = "" Then AlignChar = " " + If MaxLen > Len(s) Then + I = MaxLen - Len(s) + For J = 1 To I + seged += AlignChar + Next + + Select Case Direction + Case eDirection.Left : _AlignStr = seged & s + Case eDirection.Right : _AlignStr = s & seged + End Select + Return _AlignStr + Else + Return Mid(s, 1, MaxLen) + End If + End Function + Public Function GetSQLTime(ByVal session As Session) As Date + Try + Dim funcNow As CriteriaOperator = New FunctionOperator(FunctionOperatorType.Now) + Dim serverTime As Date = session.Evaluate(Of XPObjectType)(funcNow, Nothing) + Return serverTime + Catch + Return Now + End Try + End Function + Public Function Change3Value(ByVal s As String) As String + Dim EStr(4) As String + + Select Case Mid(s, 3, 1) + Case "0" : EStr(3) = "" + Case "1" : EStr(3) = "egy" + Case "2" : EStr(3) = "kettő" + Case "3" : EStr(3) = "három" + Case "4" : EStr(3) = "négy" + Case "5" : EStr(3) = "öt" + Case "6" : EStr(3) = "hat" + Case "7" : EStr(3) = "hét" + Case "8" : EStr(3) = "nyolc" + Case "9" : EStr(3) = "kilenc" + End Select + + Select Case Mid(s, 2, 1) + Case "0" : EStr(2) = "" + Case "1" + If EStr(3) = "" Then + EStr(2) = "tíz" + Else + EStr(2) = "tizen" + End If + Case "2" + If EStr(3) = "" Then + EStr(2) = "húsz" + Else + EStr(2) = "huszon" + End If + Case "3" : EStr(2) = "harminc" + Case "4" : EStr(2) = "negyven" + Case "5" : EStr(2) = "ötven" + Case "6" : EStr(2) = "hatvan" + Case "7" : EStr(2) = "hetven" + Case "8" : EStr(2) = "nyolcvan" + Case "9" : EStr(2) = "kilencven" + End Select + + Select Case Mid(s, 1, 1) + Case "0" : EStr(1) = "" + Case "1" : EStr(1) = "száz" + Case "2" : EStr(1) = "kettőszáz" + Case "3" : EStr(1) = "háromszáz" + Case "4" : EStr(1) = "négyszáz" + Case "5" : EStr(1) = "ötszáz" + Case "6" : EStr(1) = "hatszáz" + Case "7" : EStr(1) = "hétszáz" + Case "8" : EStr(1) = "nyolcszáz" + Case "9" : EStr(1) = "kilencszáz" + End Select + Return UCase$(EStr(1) & EStr(2) & EStr(3)) + + End Function + Public Function GetHUNumberToText(ByVal l As Double) As String + Dim SzámSzöveg As String + Dim seged As String + Dim VégStr As String + + l = Math.Round(Math.Abs(l), 2, MidpointRounding.AwayFromZero) + + VégStr = "" + SzámSzöveg = Format(l, "000000000000.0") + + seged = Mid(SzámSzöveg, 1, 3) + seged = Change3Value(seged) + If seged <> "" Then + VégStr = VégStr & seged & "milliárd " + Else + VégStr = VégStr & "" + End If + + seged = Mid(SzámSzöveg, 4, 3) + seged = Change3Value(seged) + If seged <> "" Then + VégStr = VégStr & seged & "millió " + Else + VégStr = VégStr & "" + End If + + seged = Mid(SzámSzöveg, 7, 3) + seged = Change3Value(seged) + If seged <> "" Then + VégStr = VégStr & seged & "ezer " + Else + VégStr = VégStr & "" + End If + + seged = Mid(SzámSzöveg, 10, 3) + seged = Change3Value(seged) + VégStr = VégStr & seged + seged = Mid(SzámSzöveg, 14, 1) + VégStr = VégStr & " " & seged & "0/100" + + Return UCase$(VégStr) + End Function + Public Function LastDayOfYear(ByVal d As DateTime) As DateTime + Dim time As New DateTime((d.Year + 1), 1, 1) + Return time.AddDays(-1) + End Function + Public Function FirstDayOfYear(ByVal y As DateTime) As DateTime + Return New DateTime(y.Year, 1, 1) + End Function + Public Function CorrectFileName(_FileName As String) As String + Dim _FileName_Good As String = "" + Dim _s As String = "" + Dim _i As Long = 0 + + For i = 1 To Len(_FileName) + _s = Mid(_FileName, i, 1) + Select Case _s + Case "/", "'", ":", ",", ">", "<" + _FileName_Good += "_" + Case Else + _FileName_Good += _s + End Select + Next + Return _FileName_Good + End Function + + Public Function SQLNum(_NumberText As String) As String + Dim _decimalSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator + Dim _groupSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberGroupSeparator + + Return Replace(Replace(_NumberText, _groupSeparator, ""), _decimalSeparator, ".") + End Function + '-- Hiba kezelés + Public Function ThrowNewException(_p_Message As String) As Boolean + MsgBox(_p_Message, MsgBoxStyle.Critical, "SISBusiness Framework 20.") + Return True + End Function + Public Function GenerateDateCollection(_StartDate As Date, _StopDate As Date, Optional _Week As Boolean = False) As ArrayList + Dim _DateArray As New ArrayList + If _Week Then + Dim _WeekCount As Integer = DateDiff(DateInterval.WeekOfYear, _StartDate, _StopDate) + Dim _DayOfWeek As Integer = _StartDate.DayOfWeek + If _DayOfWeek <> 0 Then + _DateArray.Add(New Date(_StartDate.Year, _StartDate.Month, _StartDate.Day + (7 - _DayOfWeek))) + Else + _DateArray.Add(New Date(_StartDate.Year, _StartDate.Month, _StartDate.Day + 7)) + End If + For ik = 1 To _WeekCount + _DateArray.Add((New Date(CType(_DateArray(ik - 1), Date).Year, CType(_DateArray(ik - 1), Date).Month, CType(_DateArray(ik - 1), Date).Day).AddDays(7))) + Next + Else + Dim _MountCount As Integer = DateDiff(DateInterval.Month, _StartDate, _StopDate) + For ik = 1 To _MountCount + 1 + _DateArray.Add((New Date(_StartDate.Year, _StartDate.Month, 1).AddMonths(ik)).AddDays(-1)) + Next + End If + Return _DateArray + End Function + + '//Raktárkezelés + Public Sub CheckInventoryTransferStorageInRows(_uow As UnitOfWork, _StorageInRows_Collection_Base As XPCollection(Of StorageInRows)) + Dim _SQL As String = "" + Dim _StorageInRows_Base As StorageInRows + + For Each _StorageInRows_Base In _StorageInRows_Collection_Base + If _SQL = "" Then + _SQL = " Oid in ('" & _StorageInRows_Base.Oid.ToString & "'" + Else + _SQL += ",'" & _StorageInRows_Base.Oid.ToString & "'" + End If + Next + If _SQL <> "" Then + _SQL += ")" + Else + Exit Sub + End If + + + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL, eSQLType.MySQL + _uow.ExecuteNonQuery("update StorageInRows set QTT_Overstor=0,QTT_Overstor_Will=0,QTT_Overstored=0,QTT_Overstored_Will=0 Where " & _SQL) + + Case eSQLType.PostgreSQL + _SQL = Replace(_SQL, "Oid", """Oid""") + _uow.ExecuteNonQuery("update ""StorageInRows"" set ""QTT_Overstor""=0,""QTT_Overstor_Will""=0,""QTT_Overstored""=0,""QTT_Overstored_Will""=0 Where " & _SQL) + End Select + + + + For Each _StorageInRows_Base In _StorageInRows_Collection_Base + Dim _StorageOutRowsInRows_XPQuery As New XPQuery(Of StorageOutRowsInRows)(_uow) + Dim query = From _StorageOutRowsInRows In _StorageOutRowsInRows_XPQuery + Where _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsEditable = False And + String.IsNullOrEmpty(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.DocumentNumber) = False And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader IsNot Nothing And + _StorageOutRowsInRows.StorageInRows.Oid = _StorageInRows_Base.Oid + Group _StorageOutRowsInRows By _StorageOutRowsInRows.StorageInRows.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + + For Each item In query + Dim _StorageInRows As StorageInRows = _uow.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstor = item.QTT_Sum + _uow.CommitChanges() + End If + Next + + query = From _StorageOutRowsInRows In _StorageOutRowsInRows_XPQuery + Where _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.IsEditable = True And + _StorageOutRowsInRows.StorageOutRows.StorageOutHeader IsNot Nothing And + _StorageOutRowsInRows.StorageInRows.Oid = _StorageInRows_Base.Oid + Group _StorageOutRowsInRows By _StorageOutRowsInRows.StorageInRows.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT_Will)} + + + For Each item In query + Dim _StorageInRows As StorageInRows = _uow.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstor_Will = item.QTT_Sum + _uow.CommitChanges() + End If + Next + + + '__Overstored renberakása + Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_uow) + Dim query1 = From _StorageInRows In _StorageInRows_XPQuery + Where _StorageInRows.StorageInHeader IsNot Nothing And + String.IsNullOrEmpty(_StorageInRows.StorageInHeader.DocumentNumber) = False AndAlso + _StorageInRows.StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageInRows.StorageInHeader.IsEditable = False And + _StorageInRows.StorageInRowsFrom.Oid = _StorageInRows_Base.Oid + Group _StorageInRows By _StorageInRows.StorageInRowsFrom.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT)} + For Each item In query1 + Dim _StorageInRows As StorageInRows = _uow.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstored = item.QTT_Sum + _uow.CommitChanges() + End If + Next + + query1 = From _StorageInRows In _StorageInRows_XPQuery + Where _StorageInRows.StorageInHeader IsNot Nothing And + String.IsNullOrEmpty(_StorageInRows.StorageInHeader.DocumentNumber) = False AndAlso + _StorageInRows.StorageInHeader.StorageMoveType.MoveType = eMoveType.InventoryTransfer And + _StorageInRows.StorageInHeader.IsEditable = True And + _StorageInRows.StorageInRowsFrom.Oid = _StorageInRows_Base.Oid + Group _StorageInRows By _StorageInRows.StorageInRowsFrom.Oid Into g = Group + Select New With {.StorageInRows = Oid, + .QTT_Sum = g.Sum(Function(inv) inv.QTT_Will)} + For Each item In query1 + Dim _StorageInRows As StorageInRows = _uow.FindObject(Of StorageInRows)(CriteriaOperator.Parse("Oid=?", item.StorageInRows.ToString)) + + If _StorageInRows IsNot Nothing Then + _StorageInRows.QTT_Overstored_Will = item.QTT_Sum + _uow.CommitChanges() + End If + Next + Next + End Sub + + +End Module diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/HTMLModule.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/HTMLModule.vb new file mode 100644 index 0000000..45a44af --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/HTMLModule.vb @@ -0,0 +1,223 @@ +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Utils + +Module HTMLModule + Public Function CreateHTMLEvents(_Question As Question, _Session As DevExpress.Xpo.Session) As String + Dim _Events_Collection As New XPCollection(Of Events)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _Session, CriteriaOperator.Parse("Question.Oid=?", _Question.Oid)) + Dim _Events As Events + Dim s As String = "" + + 's = " " + + If _Events_Collection IsNot Nothing Then + _Events_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Ascending)) + + For Each _Events In _Events_Collection + If _Events.EventDirection = eEventDirection.eIn Then + s += "" + s += "" + s += "" + + s += "" + + s += "" + + s += "" + s += "" + s += "" + s += "
" + s += "" + s += "<-" + s += "" + s += _Events.UserCreated.LastName & " " & _Events.UserCreated.FirstName & " rta (" & CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Events.QuestionStatus.ToString) & ")" + s += "" + s += Format(_Events.ObjectCreated, "yyyy/MM/dd HH:mm") + s += "" + s += "

" + s += "" + s += "" + s += "" + s += "" + s += "" + s += "
" + If _Events.Attachment IsNot Nothing Then + s += "Csatolmny: " & _Events.Attachment.FileName & " (" & _Events.Attachment.Size & " bytes)

" + End If + s += _Events.Description + s += "
" + s += "

" + End If + If _Events.EventDirection = eEventDirection.eOut Then + s += "" + s += "" + s += "" + s += "" + + s += "" + + s += "" + s += "" + s += "" + s += "
" + s += "" + s += "->" + s += "" + s += _Events.UserCreated.LastName & " " & _Events.UserCreated.FirstName & " vlaszolta (" & CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Events.QuestionStatus.ToString) & ")" + s += "" + s += Format(_Events.ObjectCreated, "yyyy/MM/dd HH:mm") + s += "" + s += "

" + s += "" + s += "" + If LTrim(RTrim(_Events.Description)) <> "" Then + s += "" + s += "" + s += "" + + s += "
" + If _Events.Attachment IsNot Nothing Then + s += "Csatolmny: " & _Events.Attachment.FileName & " (" & _Events.Attachment.Size & " bytes)

" + End If + s += _Events.Description + s += "
" + + s += "

" + End If + End If + + Next + + End If + s = Replace(s, "'", """") + s = Replace(s, "&&", "#") + Return s + End Function + Public Function CreateHTMLEventsMail(_Question As Question, _Session As DevExpress.Xpo.Session) As String + Dim _Events_Collection As New XPCollection(Of Events)(PersistentCriteriaEvaluationBehavior.InTransaction, _ + _Session, CriteriaOperator.Parse("Question.Oid=?", _Question.Oid)) + Dim _Events As Events + Dim s As String = "" + + 's = " " + + If _Events_Collection IsNot Nothing Then + _Events_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Ascending)) + + For Each _Events In _Events_Collection + If _Events.EventDirection = eEventDirection.eIn Then + s += "" + s += "" + s += "" + + s += "" + + s += "" + + s += "" + s += "" + s += "" + s += "
" + s += "" + s += "<-" + s += "" + s += _Events.UserCreated.LastName & " " & _Events.UserCreated.FirstName & " rta (" & CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Events.QuestionStatus.ToString) & ")" + s += "" + s += Format(_Events.ObjectCreated, "yyyy/MM/dd HH:mm") + s += "" + s += "

" + s += "" + s += "" + s += "" + s += "" + s += "" + s += "
" + s += _Events.Description + s += "
" + s += "

" + End If + If _Events.EventDirection = eEventDirection.eOut Then + s += "" + s += "" + s += "" + s += "" + + s += "" + + s += "" + s += "" + s += "" + s += "
" + s += "" + s += "->" + s += "" + s += _Events.UserCreated.LastName & " " & _Events.UserCreated.FirstName & " vlaszolta (" & CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Events.QuestionStatus.ToString) & ")" + s += "" + s += Format(_Events.ObjectCreated, "yyyy/MM/dd HH:mm") + s += "" + s += "

" + s += "" + s += "" + If LTrim(RTrim(_Events.Description)) <> "" Then + s += "" + s += "" + s += "" + + s += "
" + s += _Events.Description + s += "
" + + s += "

" + End If + End If + + Next + + End If + s = Replace(s, "'", """") + s = Replace(s, "&&", "#") + Return s + End Function + +End Module diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISEmail.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISEmail.vb new file mode 100644 index 0000000..3c7eb50 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISEmail.vb @@ -0,0 +1,372 @@ +Imports System.Net +Imports System.Net.Sockets +Imports System.IO +Imports System.Net.Mail +Imports DevExpress.Xpo + +Public Class SISPOP3Base + ' variables for pop3 class + Public pop3host As [String] + Public port As Integer + Public user As [String] + Public pwd As [String] + Public command As [String] + Public w_TcpClient As TcpClient + Public w_NetStream As NetworkStream + Public w_ReadStream As StreamReader + Public bData As Byte() + 'for the data, tat we'll recive + Public Function DoConnect(pop3host As [String], port As Integer, user As [String], pwd As [String]) As String + ' create POP3 connection + w_TcpClient = New TcpClient(pop3host, port) + + Try + ' initialization + w_NetStream = w_TcpClient.GetStream() + w_ReadStream = New StreamReader(w_TcpClient.GetStream()) + w_ReadStream.ReadLine() + + ' send login + command = "USER " & user & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + w_ReadStream.ReadLine() + ' send pwd + command = "PASS " & pwd & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + w_ReadStream.ReadLine() + Catch err As InvalidOperationException + Return ("Error: " & err.ToString()) + End Try + Return "+OK" + End Function + Public Function GetStat() As String + ' Send STAT command to get number of mail and total size + command = "STAT" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function + + Public Function GetList() As String + ' Send LIST command with no parametrs to get all information + Dim sTemp As String + ' For saving 'list' results + Dim sList As String = "" + command = "LIST" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + sTemp = w_ReadStream.ReadLine() + + If sTemp(0) <> "-"c Then + ' errors begins with '-' + While sTemp <> "." + 'saving data to string while not found '.' + sList += sTemp & vbCr & vbLf + sTemp = w_ReadStream.ReadLine() + End While + Else + Return sTemp + End If + Return sList + End Function + Public Function GetList(num As Integer) As String + ' Send LIST command with number of a letter + command = "LIST " & num & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function + Public Function Retr(num As Integer) As String + Dim sTemp As String + Dim sBody As String = "" + Try + command = "RETR " & num & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + + sTemp = w_ReadStream.ReadLine() + If sTemp(0) <> "-"c Then + 'errors begins with - + While sTemp <> "." + ' . - is the end of the server response + sBody += sTemp & vbCr & vbLf + sTemp = w_ReadStream.ReadLine() + End While + Else + Return sTemp + End If + Catch err As InvalidOperationException + Return ("Error: " & err.ToString()) + End Try + Return sBody + End Function + Public Function Dele(num As Integer) As String + ' Send DELE command to delete message with specified number + command = "DELE " & num & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function + Public Function Rset() As String + ' Send RSET command to unmark all deleteting messages + command = "RSET" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function + + Public Function Quit() As String + ' Send QUIT + command = "QUIT" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Dim tmp As [String] = w_ReadStream.ReadLine() + w_NetStream.Close() + w_ReadStream.Close() + Return tmp + End Function + Public Function GetTop(num As Integer) As String + Dim sTemp As String + Dim [sTop] As String = "" + Try + ' retrieve mail with number mail parameter + command = "TOP " & num & " n" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + + sTemp = w_ReadStream.ReadLine() + If sTemp(0) <> "-"c Then + While sTemp <> "." + [sTop] += sTemp & vbCr & vbLf + sTemp = w_ReadStream.ReadLine() + End While + Else + Return sTemp + End If + Catch err As InvalidOperationException + Return ("Error: " & err.ToString()) + End Try + Return [sTop] + End Function + Public Function GetTop(num_mess As Integer, num_strok As Integer) As String + Dim sTemp As String + Dim [sTop] As String = "" + Try + ' retrieve mail with number mail parameter + command = "TOP " & num_mess & " " & num_strok & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + + sTemp = w_ReadStream.ReadLine() + If sTemp(0) <> "-"c Then + While sTemp <> "." + [sTop] += sTemp & vbCr & vbLf + sTemp = w_ReadStream.ReadLine() + End While + Else + Return sTemp + End If + Catch err As InvalidOperationException + Return ("Error: " & err.ToString()) + End Try + Return [sTop] + End Function + Public Function GetUidl() As String + Dim sTemp As String + Dim sUidl As String = "" + command = "UIDL" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + sTemp = w_ReadStream.ReadLine() + + If sTemp(0) <> "-"c Then + ' errors begins with '-' + While sTemp <> "." + 'saving data to string while not found '.' + sUidl += sTemp & vbCr & vbLf + sTemp = w_ReadStream.ReadLine() + End While + Else + Return sTemp + End If + Return sUidl + End Function + Public Function GetUidl(num As Integer) As String + command = "UIDL " & num & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function + Public Function GetNoop() As String + ' Send NOOP command to check if we are connected + command = "NOOP" & vbCr & vbLf + bData = System.Text.Encoding.ASCII.GetBytes(command.ToCharArray()) + w_NetStream.Write(bData, 0, bData.Length) + Return w_ReadStream.ReadLine() + End Function +End Class +Public Class SISPOP3Message + Public Function GetFrom(messTop As String) As String + messTop = messTop.Remove(0, (messTop.IndexOf(vbCr & vbLf & "From:") + 7)) + messTop = messTop.Remove(messTop.IndexOf(ControlChars.Cr), ((messTop.Length - messTop.IndexOf(ControlChars.Cr)) - 1)) + Return messTop + End Function + Public Function GetDate(messTop As String) As String + messTop = messTop.Remove(0, (messTop.IndexOf(vbCr & vbLf & "Date:") + 7)) + messTop = messTop.Remove(messTop.IndexOf(ControlChars.Cr), (messTop.Length - messTop.IndexOf(ControlChars.Cr))) + Return messTop + End Function + Public Function GetMessID(messTop As String) As String + messTop = messTop.Remove(0, (messTop.IndexOf(vbCr & vbLf & "Message-ID: ") + 13)) + messTop = messTop.Remove(messTop.IndexOf(ControlChars.Cr), (messTop.Length - messTop.IndexOf(ControlChars.Cr))) + Return messTop + End Function + Public Function GetTo(messTop As String) As String + messTop = messTop.Remove(0, (messTop.IndexOf(vbCr & vbLf & "To:") + 6)) + messTop = messTop.Remove(messTop.IndexOf(ControlChars.Cr), (messTop.Length - messTop.IndexOf(ControlChars.Cr))) + Return messTop + End Function + Public Function GetSubject(messTop As String) As String + messTop = messTop.Remove(0, (messTop.IndexOf(vbCr & vbLf & "Subject:") + 10)) + messTop = messTop.Remove(messTop.IndexOf(ControlChars.Cr), (messTop.Length - messTop.IndexOf(ControlChars.Cr))) + Return messTop + End Function + Public Function GetBody(AllMessage As String) As String + AllMessage = AllMessage.Remove(0, (AllMessage.IndexOf(vbCr & vbLf & vbCr & vbLf))) + Return AllMessage + End Function +End Class +'Public Class SISSendMail +' ReadOnly Property ContactsTo As XPCollection(Of Contacts) +' Get +' Return New xpcoll +' End Get +' End Property +' Private Function SendMail(_Host As String, _Port As Long, _FromAddress As String, _Subject As String, _Body As String) As String +' Try +' Dim smtp As New SmtpClient() +' Dim message As New MailMessage() + +' smtp.Host = _Host +' smtp.Port = _Port + +' smtp.Credentials = System.Net.CredentialCache.DefaultNetworkCredentials + +' 'smtp.Credentials = new System.Net.NetworkCredential("username", "password"); + +' message.Subject = _Subject +' message.Body = _Body +' message.From = New MailAddress(_FromAddress) +' message.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure +' message.Priority = MailPriority.Normal + +' ' Make the list of recipients. + +' If [To].Count > 0 Then + +' For Each item As Contact In [To] + + +' message.[To].Add(New MailAddress(item.Email, item.FullName)) + +' Next +' End If + +' If CC.Count > 0 Then + +' For Each item As Contact In CC + + +' message.CC.Add(New MailAddress(item.Email, item.FullName)) + +' Next +' End If + +' If Bcc.Count > 0 Then + +' For Each item As Contact In Bcc + + +' message.Bcc.Add(New MailAddress(item.Email, item.FullName)) + +' Next +' End If + +' ' Create the file attachment (from the File property) for this e-mail message. + +' If File IsNot Nothing Then + +' Dim tempFileName As String = Oid.ToString() + +' Using fileStream As New FileStream(tempFileName, FileMode.OpenOrCreate) + +' File.SaveToStream(fileStream) + +' fileStream.Position = 0 + +' ' Create attachment by using existing fileStream. + +' Dim data As New Attachment(fileStream, System.Net.Mime.MediaTypeNames.Application.Octet) + +' ' Add time stamp information for the file. + +' Dim disposition As System.Net.Mime.ContentDisposition = data.ContentDisposition + +' disposition.FileName = File.FileName + +' disposition.Size = fileStream.Length + +' disposition.CreationDate = System.IO.File.GetCreationTime(tempFileName) + +' disposition.ModificationDate = System.IO.File.GetLastWriteTime(tempFileName) + +' disposition.ReadDate = System.IO.File.GetLastAccessTime(tempFileName) + +' ' Add the attachment to this message. + +' message.Attachments.Add(data) + +' ' Send the message. + +' smtp.Send(message) + +' data.Dispose() + +' ' Delete temp file. + +' If System.IO.File.Exists(tempFileName) Then + + +' System.IO.File.Delete(tempFileName) + +' End If + +' End Using + +' End If +' Catch E As SmtpException + + +' Return "Mail send failed with message: " + E.Message +' End Try + +' Return "Mail was send successfully" + +' End Function + +'End Class +'Dim pop3 As POP3class +'pop3 = New POP3class() +'pop3.DoConnect("your.mail.server", 110, "username", "password") +'pop3.GetStat() +'' and if we have mail: +'Dim msg As MessageClass +'msg = New MessageClass() +'Dim sMessageTop As String = msg.GetTop(1) +''OK, message is well, lets download it. +'Dim sAllMessage As String = msg.Retr(1) +'msg.GetBody(sAllMessage) + + diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISPOP3.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISPOP3.vb new file mode 100644 index 0000000..95ec167 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISPOP3.vb @@ -0,0 +1,461 @@ +Option Strict On +Option Explicit On +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +' POP3 - Copyright 2011 © by David Ross Goben. +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +'This VB.NET Code was inspired by C# code originally written Randy Charles Morin, +'author of KBCafe.com. +' +' I have optimized the heck out of the code to speed I/O and program execution, +' forcing a complete rewrite, I have added MANY language and POP3 enhancements, +' cleaned up a lot of clutter, and added Port and SSL support. +' Oh! And I include REAL comments. +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Imports System.Net, System.Text +'------------------------------------------------------------------------------- +' Class Name : POP3 +' Purpose : POP3 Interface Class +'------------------------------------------------------------------------------- +Public Class POP3 + Inherits Sockets.TcpClient 'this class shall inherit all the functionality of a TC/IP Client + + Dim Stream As Sockets.NetworkStream 'non-SSL stream object + Dim UsesSSL As Boolean = False 'True if SLL authentication required + Dim SslStream As Security.SslStream 'set to SSL stream supporting SSL authentication if UsesSSL is True + Dim SslStreamDisposed As Boolean = False 'true if we disposed of SSL Stream object + Public LastLineRead As String = vbNullString 'copy of the last response line read from the TCP server + + '******************************************************************************* + ' Sub Name : Connect (This is the first the we do with a POP3 object) + ' Purpose : Connect to the server using the Server, User Name, Password, + ' : and a flag indicating if SSL authentication is required + ' : + ' Returns : Nothing + ' : + ' Typical TelNet I/O: + 'telnet mail.domain.net 110 (submit) + '+OK POP3 mail.domain.net v2011.83 server ready + 'USER myusername (submit) + '+OK User name accepted, password please + 'PASS mysecretpassword (submit) + '+OK Mailbox open, 3 messages (the server locks and opens the appropriate maildrop) + '******************************************************************************* + Public Overloads Sub Connect(ByVal Server As String, _ + ByVal Username As String, _ + ByVal Password As String, _ + Optional ByVal InPort As Integer = 110, _ + Optional ByVal UseSSL As Boolean = False) + + If Connected Then Disconnect() 'check underlying boolean flag to see if we are presently connected, and if so, disconnect that session + UsesSSL = UseSSL 'set flag True or False for SSL authentication + MyBase.Connect(Server, InPort) 'now connect to the server via our base class + Stream = MyBase.GetStream 'before we can check for a response, we first have to set up a non-SSL stream + If UsesSSL Then 'do we also need to use SSL authentication? + SslStream = _ + New Security.SslStream(Stream) 'yes, so build an SSL stream object on top of the Network Stream + SslStream.AuthenticateAsClient(Server) 'add authentication as a client to the server + End If + + If Not CheckResponse() Then Exit Sub 'exit if an error was encountered + + If CBool(Len(Username)) Then 'if the username is defined (some servers will reject submissions) + Me.Submit("USER " & Username & vbCrLf) 'submit user name + If Not CheckResponse() Then Exit Sub 'exit if an error was encountered + End If + + If CBool(Len(Password)) Then 'if the password is defined (some servers will reject submissions) + Me.Submit("PASS " & Password & vbCrLf) 'submit password + If Not CheckResponse() Then Exit Sub 'exit if an error was encountered + End If + End Sub + + '******************************************************************************* + ' Function Name : CheckResponse + ' Purpose : Check the response to a POP3 command + ' : + ' Returns : Boolean flag. True = Success, False = Failure + ' : + ' NOTE : All status responses from the server begin with: + ' : +OK (OK; Success, or request granted) + ' or : -ERR (NAGATIVE; error) + '******************************************************************************* + Public Function CheckResponse() As Boolean + If Not IsConnected() Then Return False 'exit if not in TRANSACTION mode + LastLineRead = Me.Response 'check response (and save response line) + If (Left(LastLineRead, 3) <> "+OK") Then 'OK? + Throw New POP3Exception(LastLineRead) 'no, so throw an exception + Return False 'return failure flag + End If + Return True 'else return success flag + End Function + + '******************************************************************************* + ' Function Name : IsConnected + ' Purpose : Return connected to Server state, throw error if not + ' : + ' Returns : Boolean Flag. True if connected to server + ' : + '******************************************************************************* + Public Function IsConnected() As Boolean + If Not Connected Then 'if not connected, throw an exception + Throw New POP3Exception("Not Connected to an POP3 Server.") + Return False 'return failure flag + End If + Return True 'Indicate that we are in the TRANSACTION state) + End Function + + '******************************************************************************* + ' Function Name : Response + ' Purpose : get response from server (read from the mail stream into a buffer) + ' : + ' Returns : string of data from the server + ' : + ' NOTE : If a dataSize value > 1 is supplied, then those number of bytes will be streamed in. + ' : Otherwise, the data will be read in a line at a time, and end with the line end code (Linefeed (vbLf) 10 decimal) + '******************************************************************************* + Public Function Response(Optional ByVal dataSize As Integer = 1) As String + Dim enc As New ASCIIEncoding 'medium for ASCII representation of Unicode characters + Dim ServerBufr() As Byte 'establish buffer + Dim Index As Integer = 0 'init server buffer index and character counter + If dataSize > 1 Then 'did invoker specify a data length to read? + '------------------------------------------------------- + ReDim ServerBufr(dataSize - 1) 'size to dataSize to read as a single stream block (allow for 0 index) + Dim dtsz As Integer = dataSize + Dim sz As Integer 'variable to store actual number of bytes read from the stream + Do While Index < dataSize 'while we have not read the entire message... + If UsesSSL Then 'process through SSL Stream if secure stream + sz = SslStream.Read(ServerBufr, Index, dtsz) 'read a server-defined block of data from SSLstream + Else 'else process through general TCP Stream + sz = Stream.Read(ServerBufr, Index, dtsz) 'read a server-defined block of data from Network Stream + End If + If sz = 0 Then Return vbNullString 'we lost data, so we could not read the string + Index += sz 'bump index for data count actually read + dtsz -= sz 'drop amount left in buffer + Loop + Else '------------------------------------------------------ + ReDim ServerBufr(255) 'initially dimension buffer to 256 bytes (including 0 offset) + Do + If UsesSSL Then 'process through SSL Stream if secure stream + ServerBufr(Index) = CByte(SslStream.ReadByte) 'read a byte from SSLstream + Else 'else process through general TCP Stream + ServerBufr(Index) = CByte(Stream.ReadByte) 'read a byte from Network stream + End If + If ServerBufr(Index) = -1 Then Exit Do 'end of stream if -1 encountered + Index += 1 'bump our offset index and counter + If ServerBufr(Index - 1) = 10 Then Exit Do 'done with line if Newline code (10; Linefeed) read in + If Index > UBound(ServerBufr) Then 'if the index points past end of buffer... + ReDim Preserve ServerBufr(Index + 255) 'then bump buffer another 256 bytes (Inc Index), but keep existing data + End If + Loop 'loop until line read in + End If + Return enc.GetString(ServerBufr, 0, Index) 'decode from a byte array into a string and return the string + End Function + + '******************************************************************************* + ' Sub Name : Submit + ' Purpose : Submit a request to the server + ' : + ' Returns : Nothing + ' : + ' NOTE : Command name must be in UPPERCASE, such as "PASS pw1Smorf". + ' : "pass pw1Smorf" would not be acceptable, though some servers do allow for this. + '******************************************************************************* + Public Sub Submit(ByVal message As String) + Dim enc As New ASCIIEncoding 'medium for ASCII representation of Unicode characters + Dim WriteBuffer() As Byte = enc.GetBytes(message) 'converts the submitted string into to a sequence of bytes + If UsesSSL Then 'using SSL authentication? + SslStream.Write(WriteBuffer, 0, WriteBuffer.Length) 'yes, so write SSL buffer + Else + Stream.Write(WriteBuffer, 0, WriteBuffer.Length) 'else write to Network buffer + End If + End Sub + + '******************************************************************************* + ' Sub Name : Disconnect (This is the last the we do with a POP3 object) + ' Purpose : Disconnect from the server and have it enter the UPDATE mode + ' : + ' Returns : Nothing + ' : + ' Typical telNet I/O: + 'QUIT (submit) + '+OK Sayonara + ' + ' NOTE: When the client issues the QUIT command from the TRANSACTION state, + ' the POP3 session enters the UPDATE state. (Note that if the client + ' issues the QUIT command from the AUTHORIZATION state, the POP3 + ' session terminates but does NOT enter the UPDATE state.) + ' + ' If a session terminates for some reason other than a client-issued + ' QUIT command, the POP3 session does NOT enter the UPDATE state and + ' MUST NOT remove any messages from the maildrop. + ' + ' The POP3 server removes all messages marked as deleted from the + ' maildrop and replies as to the status of this operation. If there + ' is an error, such as a resource shortage, encountered while removing + ' messages, the maildrop may result in having some or none of the + ' messages marked as deleted be removed. In no case may the server + ' remove any messages not marked as deleted. + ' + ' Whether the removal was successful or not, the server the releases + ' any exclusive-access lock on the maildrop and closes the TCP connection. + '******************************************************************************* + Public Sub Disconnect() + Me.Submit("QUIT" & vbCrLf) 'submit quit request + CheckResponse() 'check response + If UsesSSL Then 'SSL authentication used? + SslStream.Dispose() 'dispose of created SSL stream object if so + SslStreamDisposed = True + End If + End Sub + + '******************************************************************************* + ' Function Name : Statistics + ' Purpose : Get the number of email messages and the total size as any integer array + ' : + ' Returns : 2-selement interger array. + ' : Element(0) is the number of user email messages on the server + ' : Element(1) is the total bytes of all messages taken up on the server + ' : + ' Typical telNet I/O: + 'STAT (submit) + '+OK 3 16487 (3 records (emails/messages) totaling 16487 bytes (octets)) + '******************************************************************************* + Public Function Statistics() As Integer() + If Not IsConnected() Then Return Nothing 'exit if not in TRANSACTION mode + Me.Submit("STAT" & vbCrLf) 'submit Statistics request + LastLineRead = Me.Response 'check response + If (Left(LastLineRead, 3) <> "+OK") Then 'OK? + Throw New POP3Exception(LastLineRead) 'no, so throw an exception + Return Nothing 'return failure flag + End If + Dim msgInfo() As String = Split(LastLineRead, " "c) 'separate by spaces, which divide its fields + Dim Result(1) As Integer + Result(0) = Integer.Parse(msgInfo(1)) 'get the number of emails + Result(1) = Integer.Parse(msgInfo(2)) 'get the size of the email messages + Return Result + End Function + + '******************************************************************************* + ' Function Name : List + ' Purpose : Get the drop listing from the maildrop + ' : + ' Returns : Any Arraylist of POP3Message objects + ' : + ' Typical telNet I/O: + 'LIST (submit) + '+OK Mailbox scan listing follows + '1 2532 (record index and size in bytes) + '2 1610 + '3 12345 + '. (end of records terminator) + '******************************************************************************* + Public Function List() As ArrayList + If Not IsConnected() Then Return Nothing 'exit if not in TRANSACTION mode + + Me.Submit("LIST" & vbCrLf) 'submit List request + If Not CheckResponse() Then Return Nothing 'check for a response, but if an error, return nothing + ' + 'get a list of emails waiting on the server for the authenticated user + ' + Dim retval As New ArrayList 'set aside message list storage + Do + Dim response As String = Me.Response 'check response + If (response = "." & vbCrLf) Then 'done with list? + Exit Do 'yes + End If + Dim msg As New POP3Message 'establish a new message + Dim msgInfo() As String = Split(response, " "c) 'separate by spaces, which divide its fields + msg.MailID = Integer.Parse(msgInfo(0)) 'get the list item number + msg.ByteCount = Integer.Parse(msgInfo(1)) 'get the size of the email message + msg.Retrieved = False 'indicate its message body is not yet retreived + retval.Add(msg) 'add a new entry into the retrieval list + Loop + Return retval 'return the list + End Function + + '******************************************************************************* + ' Function Name : GetHeader + ' Purpose : Grab the email header and optionally a number of lines from the body + ' : + ' Returns : Gets the Email header of the selected email. If an integer value is + ' : provided, that number of body lines will be returned. The returned + ' : object is the submitted POP3Message. + ' : + ' Typical telNet I/O: + 'TOP 1 0 (submit request for record 1's message header only, 0=no lines of body) + '+OK Top of message follows + ' xxxxx (header for current record is transmitted) + '. (end of record terminator) + ' + 'TOP 1 10 (submit request for record 1's message header plus 10 lines of body data) + '+OK Top of message follows + ' xxxxx (header for current record is transmitted) + ' xxxxx (first 10 lines of body) + '. (end of record terminator) + '******************************************************************************* + Public Function GetHeader(ByRef msg As POP3Message, Optional ByVal BodyLines As Integer = 0) As POP3Message + If Not IsConnected() Then Return Nothing 'exit if not in TRANSACTION mode + Me.Submit("TOP " & msg.MailID.ToString & " " & BodyLines.ToString & vbCrLf) + If Not CheckResponse() Then Return Nothing 'check for a response, but if an error, return nothing + msg.Message = vbNullString 'erasde current contents of the message + ' + 'now process message data by binding the lines into a single string + ' + Do + Dim response As String = Me.Response 'grab message line + If response = "." & vbCrLf Then 'end of data? + Exit Do 'yes, done with the loop if so + End If + msg.Message &= response 'else build message by appending the new line + Loop + Return msg 'return new filled Message object + End Function + + '******************************************************************************* + ' Function Name : Retrieve + ' Purpose : Retrieve email from POP3 server for the provided POP3Message object + ' : + ' Returns : The submitted POP3 Message object with its Message property filled, + ' : and its ByteCount property properly fitted to the message size. + ' : + ' NOTE : Some email servers are set up to automatically delete an email once + ' : it is retrieved from the server. Outlook, Outlook Express, and + ' : Windows Mail do this. It is an option under Juno and Gmail. So, if we + ' : do not submit a POP3 QUIT (the Disconnect() method), but just close + ' : out the POP3 object, the message(s) will not be deleted. + ' : Even so, most Windows-based server-processors will add an additional + ' : CR for each LF, but the reported email size does not account for them. + ' : So we must retreive more data to account for this. + ' + ' Typical telNet I/O: + 'RETR 1 (submit request to retrive record index 1 (cannot be an index marked for deletion)) + '+OK 2532 octets (an octet is an fancy term for a 8-bit byte) + ' xxxx (message header and message are retreived) + '. (end of record terminator) + '******************************************************************************* + Public Function Retrieve(ByRef msg As POP3Message) As POP3Message + If Not IsConnected() Then Return Nothing 'exit if not in TRANSACTION mode + Me.Submit("RETR " & msg.MailID.ToString & vbCrLf) 'issue request for indicated message number + If Not CheckResponse() Then Return Nothing 'check for a response, but if an error, return nothing + msg.Message = Me.Response(msg.ByteCount) 'grab message line + 'the stream reader automatically convers the NewLine code, vbLf, to vbCrLf, so the files is not yet + 'fully read. For example, a files that was 233 lines will therefore have 233 more characters not + 'yet read from the files when it has reached its reported data size. So we will scan these in. + 'But even if this was not the case, the trailing "." & vbCrLf is still pending. + Do + Dim S As String = Response() 'grab more data + If S = "." & vbCrLf Then 'end of data? + Exit Do 'If so, then exit app + End If + msg.Message &= S 'else tack data to end of message + Loop 'keep trying + msg.ByteCount = Len(msg.Message) 'ensure full size updated + Return msg 'return new message object + End Function + + '******************************************************************************* + ' Sub Name : Delete + ' Purpose : Delete an email + ' : + ' Returns : Nothing + ' : + ' NOTE : Some email servers are set up to automatically delete an email once + ' : it is retrieved from the server. Outlook, Outlook Express, and + ' : Windows Mail do this. It is an option under Juno and Gmail. + ' + ' Typical telNet I/O: + 'DELE 1 (submit request to delete record index 1) + '+OK Message deleted + '******************************************************************************* + Public Sub Delete(ByVal msgHdr As POP3Message) + If Not IsConnected() Then Exit Sub 'exit if not in TRANSACTION mode + Me.Submit("DELE " & msgHdr.MailID.ToString & vbCrLf) 'submit Delete request + CheckResponse() 'check response + End Sub + + '******************************************************************************* + ' Sub Name : Reset + ' Purpose : Reset any deletion (automatic or manual) of all email from + ' : the current session. + ' : + ' Returns : Nothing + ' : + ' Typical telNet I/O: + 'RSET (submit) + '+OK Reset state + '******************************************************************************* + Public Sub Reset() + If Not IsConnected() Then Exit Sub 'exit if not in TRANSACTION mode + Me.Submit("RSET" & vbCrLf) 'submit Reset request + CheckResponse() 'check response + End Sub + + '******************************************************************************* + ' Function Name : NOOP (No Operation) + ' Purpose : Does nothing. Juts gets a position response from the server + ' : + ' Returns : Boolean flag. False if disconnected, else True if connected. + ' : + ' NOTE : This NO OPERATION command is useful when you have a server that + ' : automatically disconnects after a certain idle period of activity. + ' : This command can be issued by a timer that also monitors users + ' : inactivity, and issues a NOOP to reset the server timer. + ' : + ' Typical telNet I/O: + 'NOOP (submit) + '+OK + '******************************************************************************* + Public Function NOOP() As Boolean + If Not IsConnected() Then Return False 'exit if not in TRANSACTION mode + Me.Submit("NOOP") + Return CheckResponse() + End Function + + '******************************************************************************* + ' Function Name : Finalize + ' Purpose : remove SSL Stream object if not removed + '******************************************************************************* + Protected Overrides Sub Finalize() + If Not SslStreamDisposed Then 'SSL Stream object Disposed? + SslStream.Dispose() 'no, so do it + End If + MyBase.Finalize() 'then do normal finalization + End Sub +End Class + +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +'------------------------------------------------------------------------------- +' Class Name : POP3Message +' Purpose : POP3 message data +'------------------------------------------------------------------------------- +Public Class POP3Message + Public MailID As Integer = 0 'message number + Public ByteCount As Integer = 0 'length of message in bytes + Public Retrieved As Boolean = False 'flag indicating if the message has be retrieved + Public Message As String = vbNullString 'the text of the message + + Public Overrides Function ToString() As String + Return Message + End Function +End Class + +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +'------------------------------------------------------------------------------- +' Class Name : POP3Exception +' Purpose : process exception +' NOTE : This is a normal exception, but we wrap it to give it an identy +' : that can be associated with clsPOP3 +'------------------------------------------------------------------------------- +Public Class POP3Exception + Inherits ApplicationException + + Public Sub New(ByVal str As String) + MyBase.New(str) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISSMTP.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISSMTP.vb new file mode 100644 index 0000000..79a1e99 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISSMTP.vb @@ -0,0 +1,233 @@ +Option Strict On +Option Explicit On +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +' SMTP - Copyright 2011 © by David Ross Goben. +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Imports System.Net, VB = Microsoft.VisualBasic +'------------------------------------------------------------------------------- +' Class Name : SMTP +' Purpose : SMTP Interface Class +'------------------------------------------------------------------------------- +Public Class SMTP + '******************************************************************************* + ' Function Name : BrainDeadSimpleEmailSend + ' Purpose : Send super simple email message (works with most SMTP servers) + '=============================================================================== + 'NOTES: strFrom : Full email address of who is sending the email. ie, David Dingus + ' strTo : Full email address of who to send the email to. ie, "Bubba Dingus" + ' strSubject: Brief text regarding what the email concerns. + ' strBody : text that comprises the message body of the email. + ' smtpHost : This is the email host you are using for sending emails, such + ' : as "smtp.comcast.net", "authsmtp.juno.com", etc. + '******************************************************************************* + Public Shared Sub BrainDeadSimpleEmailSend(ByVal strFrom As String, _ + ByVal strTo As String, _ + ByVal strSubject As String, _ + ByVal strBody As String, _ + ByVal smtpHost As String) + Dim smtpEmail As New Mail.SmtpClient(smtpHost) 'create new SMTP client using TCP Port 25 + smtpEmail.Send(strFrom, strTo, strSubject, strBody) 'send email + End Sub + + '******************************************************************************* + ' Function Name : QuickiEMail + ' Purpose : Send a simple email message (but packed with a lot of muscle) + '=============================================================================== + 'NOTES: strFrom : Full email address of who is sending the email. ie, David Dingus + ' strTo : Full email address of who to send the email to. ie, "Bubba Dingus" + ' strSubject: Brief text regarding what the email concerns. + ' strBody : text that comprises the message body of the email. + ' smtpHost : This is the email host you are using for sending emails, such + ' : as "smtp.gmail.com", "smtp.comcast.net", "authsmtp.juno.com", etc. + ' smtpPort : TCP Communications Port to use. Most servers default to 25. + ' usesSLL : If this value is TRUE, then use SSL Authentication protocol for secure communications. + ' SSLUsername: If usesSLL is True, this is the username to use for creating a credential. Leave blank if the same as strFrom. + ' SSLPassword: If usesSLL is True, this is the password to use for creating a credential. If this field and SSLUsername + ' : are blank, then default credentials will be used (only works on local, intranet servers). + ' SSLDomain : If creating a credential when a specific domain is required, set this parameter, otherwise, leave it blank. + '******************************************************************************* + Public Shared Function QuickiEMail(ByVal strFrom As String, _ + ByVal strTo As String, _ + ByVal strSubject As String, _ + ByVal strBody As String, _ + ByVal smtpHost As String, _ + Optional ByVal smtpPort As Integer = 25, _ + Optional ByVal usesSSL As Boolean = False, _ + Optional ByVal SSLUsername As String = vbNullString, _ + Optional ByVal SSLPassword As String = vbNullString, _ + Optional ByVal SSLDomain As String = vbNullString) As Boolean + Try + Dim smtpEmail As New Mail.SmtpClient(smtpHost, smtpPort) 'create new SMTP client + smtpEmail.EnableSsl = usesSSL 'true if SSL Authentication required + If usesSSL Then 'SSL authentication required? + If Len(SSLUsername) = 0 AndAlso Len(SSLPassword) = 0 Then 'if both SSLUsername and SSLPassword are blank... + smtpEmail.UseDefaultCredentials = True 'use default credentials + Else 'otherwise, we must create a new credential + If Not CBool(Len(SSLUsername)) Then 'if SSLUsername is blank, use strFrom + smtpEmail.Credentials = New NetworkCredential(strFrom, SSLPassword, SSLDomain) + Else + smtpEmail.Credentials = New NetworkCredential(SSLUsername, SSLPassword, SSLDomain) + End If + End If + End If + smtpEmail.Send(strFrom, strTo, strSubject, strBody) 'send email using text/plain content type and QuotedPrintable encoding + Catch e As Exception 'if error, report it + MsgBox(e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "Mail Send Error") + Return False 'return a failure flag + End Try + Return True 'if no error, then return a success flag + End Function + + '******************************************************************************* + ' Function Name : SendEMail + ' Purpose : Send a more complex email message + '=============================================================================== + 'NOTES: strFrom : Full email address of who is sending the email. ie, David Dingus + ' strTo : Full email address of who to send the email to. ie, "Bubba Dingus" + ' : If multiple recipients, separate each full email address using a semicolon (;) + ' strSubject: Brief text regarding what the email concerns. + ' strBody : text that comprises the message body of the email. May be raw text or HTML code. + ' IsHTML : True if the strBody data is HTML, or the type of data that would be contained within an HTML Body block. + ' smtpHost : This is the email host you are using for sending emails, such + ' : as "smtp.gmail.com", "smtp.comcast.net", "authsmtp.juno.com", etc. + ' AltView : A System.Net.Mail.AlternateView object, such as Rich Text or HTML. + ' : If need be, set AltView.ContentType.MediaType and AltView.TransferEncoding to properly format the AlternateView. + ' : For example: AltView.ContentType.MediaType = Mime.MediaTypeNames.Text.Rtf + ' : AltView.TransferEncoding = Mime.TransferEncoding.SevenBit + ' StrCC : Send "carbon copies" of email to this or these recipients. + ' : If multiple recipients, separate each full email address using a semicolon (;) + ' strBcc : Blind Carbon Copy. Hide this or these recipients from view by others. + ' : If multiple recipients, separate each full email address using a semicolon (;) + ' strAttachments: A single filepath, or a list of filepaths to send to the recipient. + ' : If multiple attachments, separate each filepath using a semicolon (;) (C:\my data\win32.txt; c:\jokes.rtf) + ' : The contents of the attachments will be encoded and sent. + ' : If you wish to send the attachment by specifying content type (MediaType) and content transfer encoding + ' : (Encoding), then follow the attachment name with the MediaType and optional encoding (default is + ' : application/octet-stream,Base64) by placing them within parentheses, and separated by a comma. For example: + ' : C:\My Files\API32.txt (text/plain, SevenBit); C:\telnet.exe (application/octet-stream, Base64) + ' : Where: The MediaType is determined from the System.Net.Mime.MediaTypeNames class, which + ' : can specify Application, Image, or Text lists. For example, the above content type, + ' : "text\plain", was defined by acquiring System.Net.Mime.MediaTypeNames.Text.Plain. + ' : The second parameter, Encoding, is determined by the following the values specified by the + ' : System.Net.Mime.TrasperEncoding enumeration: + ' : QuotedPrintable (acquired by System.Net.Mime.TransferEncoding.QuotedPrintable.ToString) + ' : Base64 (acquired by System.Net.Mime.TransferEncoding.Base64.ToString) + ' : SevenBit (acquired by System.Net.Mime.TransferEncoding.SevenBit.ToString) + ' smtpPort : TCP Communications Port to use. Most servers default to 25. + ' usesSLL : If this value is TRUE, then use SSL Authentication protocol for secure communications. + ' SSLUsername: If usesSLL is True, this is the username to use for creating a credential. Leave blank if the same as strFrom. + ' SSLPassword: If usesSLL is True, this is the password to use for creating a credential. If this field and SSLUsername + ' : are blank, then default credentials will be used (only works on local, intranet servers). + ' SSLDomain : If creating a credential when a specific domain is required, set this parameter, otherwise, leave it blank. + '******************************************************************************* + Public Shared Function SendEMail(ByVal strFrom As String, _ + ByVal strTo As String, _ + ByVal strSubject As String, _ + ByVal strBody As String, _ + ByVal IsHTML As Boolean, _ + ByVal smtpHost As String, _ + Optional ByVal AltView As Mail.AlternateView = Nothing, _ + Optional ByVal strCC As String = vbNullString, _ + Optional ByVal strBcc As String = vbNullString, _ + Optional ByVal strAttachments As String = vbNullString, _ + Optional ByVal smtpPort As Integer = 25, _ + Optional ByVal usesSSL As Boolean = False, _ + Optional ByVal SSLUsername As String = vbNullString, _ + Optional ByVal SSLPassword As String = vbNullString, _ + Optional ByVal SSLDomain As String = vbNullString) As Boolean + + Dim Email As New Mail.MailMessage 'create a new mail message + With Email + .From = New Mail.MailAddress(strFrom) 'add FROM to mail message (must be a Mail Address object) + '------------------------------------------- + Dim Ary() As String = Split(strTo, ";") 'add TO to mail message (possible list of email addresses; separated each with ";") + For Idx As Integer = 0 To UBound(Ary) + If Len(Trim(Ary(Idx))) <> 0 Then .To.Add(Trim(Ary(Idx))) 'add each TO recipent (primary recipients) + Next + '------------------------------------------- + .Subject = strSubject 'add SUBJECT text line to mail message + '------------------------------------------- + .Body = strBody 'add BODY text of email to mail message. + .IsBodyHtml = IsHTML 'indicate if the message body is actually HTML text. + .IsBodyHtml = True + '------------------------------------------- + If AltView IsNot Nothing Then 'if an alternate view of plaint text message is defined... + .AlternateViews.Add(AltView) 'add the alternate view + End If + '------------------------------------------- + If CBool(Len(strCC)) Then 'add CC (Carbon Copy) email addresses to mail message + Ary = Split(strCC, ";") '(possible list of email addresses, separated each with ";") + For Idx As Integer = 0 To UBound(Ary) + If Len(Trim(Ary(Idx))) <> 0 Then .CC.Add(Trim(Ary(Idx))) 'add each recipent + Next + End If + '------------------------------------------- + If CBool(Len(strBcc)) Then 'add Bcc (Blind Carbon Copy) email addresses to mail message + Ary = Split(strBcc, ";") '(possible list of email addresses; separated each with ";") + For Idx As Integer = 0 To UBound(Ary) + If Len(Trim(Ary(Idx))) <> 0 Then .Bcc.Add(Trim(Ary(Idx))) 'add each recipent (hidden recipents) + Next + End If + '------------------------------------------- + If CBool(Len(strAttachments)) Then 'add any attachments to mail message + Ary = Split(strAttachments, ";") '(possible list of file paths, separated each with ";") + For Idx As Integer = 0 To UBound(Ary) 'process each attachment + Dim attach As String = Trim(Ary(Idx)) 'get attachment data + If Len(attach) <> 0 Then 'if an attachment present... + Dim I As Integer = InStr(attach, "(") 'check for formatting instructions + If CBool(I) Then 'formatting present? + Dim Fmt As String 'yes, so set up format cache + Fmt = Mid(attach, I + 1, Len(attach) - I - 1) 'get format data + attach = Trim(VB.Left(attach, I - 1)) 'strip format data from the attachment path + Dim Atch As New Mail.Attachment(attach) 'create a new attachment + Dim fmts() As String = Split(Fmt, ",") 'break formatting up + For I = 0 To UBound(fmts) 'process each format specification + Fmt = Trim(fmts(I)) 'grab a format instruction + If CBool(Len(Fmt)) Then 'data defined? + Select Case I 'yes, so determine which type of instruction to process + Case 0 'index 0 specified MediaType + Atch.ContentType.MediaType = Fmt 'set media type to attachment + Case 1 'index 1 specifes Encoding + Select Case LCase(Fmt) 'check the encoding types and process accordingly + Case "quotedprintable", "quoted-printable" + Atch.TransferEncoding = Mime.TransferEncoding.QuotedPrintable + Case "sevenbit", "7bit" + Atch.TransferEncoding = Mime.TransferEncoding.SevenBit + Case Else + Atch.TransferEncoding = Mime.TransferEncoding.Base64 + End Select + End Select + End If + Next + .Attachments.Add(Atch) 'add attachment to email + Else + .Attachments.Add(New Mail.Attachment(attach)) 'add filepath (if no format specified, encoded in effiecient Base64) + End If + End If + Next + End If + End With + '----------------------------------------------------------------------- + 'now open the email server... + Try + Dim SmtpEmail As New Mail.SmtpClient(smtpHost, smtpPort) 'create new SMTP client on the SMTP server + SmtpEmail.EnableSsl = usesSSL 'true if SSL Authentication required + If usesSSL Then 'SSL authentication required? + If Len(SSLUsername) = 0 AndAlso Len(SSLPassword) = 0 Then 'if both SSLUsername and SSLPassword are blank... + SmtpEmail.UseDefaultCredentials = True 'use default credentials + Else 'otherwise, we must create a new credential + If Not CBool(Len(SSLUsername)) Then 'if SSLUsername is blank, use strFrom + SmtpEmail.Credentials = New NetworkCredential(strFrom, SSLPassword, SSLDomain) + Else + SmtpEmail.Credentials = New NetworkCredential(SSLUsername, SSLPassword, SSLDomain) + End If + End If + End If + SmtpEmail.Send(Email) 'finally, send the email... + Catch e As Exception 'if error, report it + MsgBox(e.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "Mail Error") + Return False 'return failure flag + End Try + Return True 'return success flag + End Function +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISUtilities.vb b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISUtilities.vb new file mode 100644 index 0000000..97797b9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Code/SISUtilities.vb @@ -0,0 +1,643 @@ +Option Strict On +Option Explicit On +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +' Utilities - Copyright 2011 © by David Ross Goben. +'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +Imports System.Text, VB = Microsoft.VisualBasic + +Public Class Utilities + + '******************************************************************************* + ' Function Name : DecodeBase64ToStr + ' Purpose : Decode a provided raw email message string that is encoded to Base64. + ' : + ' Returns : Decoded String + ' : + ' NOTES : note that the lone vbCrLf at the end of lines is filtered out. + '******************************************************************************* + Public Shared Function DecodeBase64ToStr(ByVal strData As String) As String + Return Encoding.UTF8.GetChars(DecodeBase64ToBytes(strData)) + End Function + + '******************************************************************************* + ' Function Name : DecodeBase64ToBytes + ' Purpose : Decode a provided raw email message string that is encoded to Base64. + ' : + ' Returns : Decoded binary Byte Array + ' : + ' NOTES : note that the lone vbCrLf at the end of lines is filtered out. + '******************************************************************************* + 'this modification returns a Byte Array of the Base64 encoded source data + Public Shared Function DecodeBase64ToBytes(ByVal strData As String) As Byte() + Return System.Convert.FromBase64String(strData.Replace(vbCrLf, vbNullString)) + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : DecodeQuotedPrintable + ' Purpose : Method to clean typical control translations, or all of them. + ' : This should be invoked for all data coded Quoted-Printable. + ' : + ' Returns : Provided a raw message string block, it returns a decoded string. + ' : + ' NOTES : Typical cleaning involves changing "=0D" to vbCr, "=0A" to vbLf, + ' : "=20" to a space, and "=3D" to "=", plus any line wrap + ' : terminators at the end of lines to vbNullstring. + ' : + ' : A StringBuilder object will be used, which will very quickly + ' : do a replacement of all control code translations using fewer + ' : resources, and what resources that are used will be instantly + ' : flushed when the method exits. + '******************************************************************************* + Public Shared Function DecodeQuotedPrintable(ByVal Message As String, Optional ByVal QuickClean As Boolean = False) As String + 'set up StringBuilder object with data stripped of any line continuation tags + Dim Msg As New StringBuilder(Message.Replace("=" & vbCrLf, vbNullString)) + + If QuickClean Then 'perform a quick clean (clean up common basics) + Return Msg.Replace("=" & vbCrLf, vbNullString).Replace("=0D", vbCr).Replace("=0A", _ + vbLf).Replace("=20", " ").Replace("=3D", "=").ToString + Else 'perform total cleaning + 'store 2-character hex values that require a leading "0" + Dim HxData As String = "X0102030405060708090A0B0C0D0E0F" + For Idx As Integer = 1 To &HF 'initially process codes 1-15, which require a leading zero + Msg.Replace("=" & Mid(HxData, Idx << 1, 2), Chr(Idx)) 'replace hex data with single character code (SHIFT is faster) + Next + For idx As Integer = &H10 To &HFF 'process the whole 8-bit extended ASCII gambit + Msg.Replace("=" & Hex(idx), Chr(idx)) 'replace hex data with single character code + Next + Return Msg.ToString 'return result string + End If + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : DecodeBinHex + ' Purpose : Decode a provided raw email message string that is encoded to BinHex. + ' : + ' Returns : Decoded String + ' : + ' NOTES : note that the lone vbCrLf at the end of lines is filtered out. + '******************************************************************************* + Public Shared Function DecodeBinHex(ByVal StrData As String) As Byte() + Dim Src() As Byte = Encoding.UTF8.GetBytes(StrData.Replace(vbCrLf, vbNullString).ToUpper) + Dim Result() As Byte 'init output buffer + ReDim Result(UBound(Src) \ 2) 'set initial dimension to 1024 bytes (includes offset 0) + Dim Index As Integer = 0 'init index for Result() array + + For Idx As Integer = 0 To UBound(Src) Step 2 'scan the string, 2 hex characters at a time + Dim CL As Integer = Src(Idx) - 48 'Convert "0" - "F" to 0-F + If CL > 10 Then CL -= 7 + Dim CR As Integer = Src(Idx + 1) - 48 'do the same for the right hex digit + If CR > 10 Then CR -= 7 + If Index > UBound(Result) Then + ReDim Preserve Result(Index + 255) 'bump by 256 (allow for Index offset) + End If + Result(Index) = CByte(CL * 16 + CR) 'stuff byte value + Index += 1 'bump index + Next + ReDim Preserve Result(Index - 1) 'set array to final size + Return Result 'return the final result + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : TextNeedsEncoding + ' Purpose : Determine if HTML text, Rich Text, or Plain Text requires + ' : 8-bit code translation to 7-bit Quoted-Printable tags. + ' : + ' Returns : Provided a source string, it returns a boolena flag. + ' : If the returned value is true, the source contains 8-bit data + ' : and will be encoded by server. + ' : + ' NOTES : If text data contains 8-bit values, the default .NET + ' : SMTP processor will force this code to be encoded to Base64, + ' : even if only a single byte is 8-bit. + ' : + ' : To avoid this, the Force7BitHtml() method can be invoked on + ' : HTML text to ensure that it is 7-bit encoded so that it can + ' : be processed as Quoted-Printable or as 7Bit. The ForceQuotedPrintable() + ' : method performs essential conversions for non-HTML text, but this + ' : would be best served in Attachments and Alternate Views. + '******************************************************************************* + Public Shared Function TextNeedsEncoding(ByVal Message As String) As Boolean + Dim Byt() As Byte = Encoding.UTF8.GetBytes(Message) 'convert message to byte array + For Each B As Byte In Byt + If CBool(B And &H80) Then Return True + Next + Return False + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : Force7BitHtml + ' Purpose : Method to convert 8-bit code in an HTML message to 7-bit. + ' : + ' Returns : Provided a string containing HTML code, it will return a string + ' : containing HTML code that does not have any 8-bit data embedded. + ' : + ' NOTES : If any characters in an HTML text string are 8-bit (values + ' : greater than 127), then they are converted into a special + ' : 7-bit HTML Entity Number, For Example, code 149 (•) is an 8-bit + ' : value that can be changed to HTML "•", which will ensure + ' : that it will still be displayed on the HTML page, but the HTML + ' : souce code will no longer carry an actual 8-bit value. If such + ' : code had not been corrected, the encoding of the data would be + ' : forced to change from quoted-printable to Base64, because that + ' : would be the only way the email processor could guarantee that + ' : the email text was fully intact. + '******************************************************************************* + Public Shared Function Force7BitHtml(ByVal HtmlSource As String) As String + Dim Sb As New StringBuilder 'set up string builder for appending data + For Idx As Integer = 1 To Len(HtmlSource) + Dim C As Integer = AscW(Mid(HtmlSource, Idx, 1)) 'get a single character from the source + Select Case C 'check each character + Case Is > &H7F, Is < 0 'if 8-bit or unicode code + Sb.Append("&#" & C.ToString & ";") 'convert to 7-bit HTML ecoder + Case Else + Sb.Append(ChrW(C)) 'else save text regardless + End Select + Next + Return Sb.ToString + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : ForceQuotedPrintable + ' Purpose : Force 8-bit code in a text message to 7-bit, without data loss. + ' : + ' Returns : Provided a source string that contains 8-bit data, the 8-bit + ' : data is converted to Hex-Tags, and the returned string is 7-bit. + ' : + ' NOTES : if any characters in a text string are 8-bit (values greater + ' : than 127), then they are converted into special 7-bit tags. + ' : For Example, code 149 (•) is an 8-bit value that can be changed + ' : to hex "=95", which will ensure that it will still be displayed + ' : in the text, but the text data will no longer carry an actual + ' : of the data would be forced to change from quoted-printable or 7bit + ' : to Base64, because that would be the only way the email processor + ' : Base64, because that would be the only way the email processor + ' : could guarantee that the email text was fully intact. However, + ' : you will have to use the DecodeQuotedPrintable() method to convert + ' : it back to its original text form. + ' : + ' : The Encoded text will begin with "=00". Because unencoded null codes + ' : are not permitted in email data, you can use this to instantly + ' : determine on the receiving end that this code will need to be + ' : processed by DecodeQuotedPrintable() a second time (if initially + ' : encoded as Quoted-Printable). A second pass would be required, + ' : because if this translated code was afterward encoded as Quoted- + ' : Printable, and all the "=xx" byte-translations, would be + ' : reinterpreted as "=3Dxx", which DecodeQuotedPrintable() would + ' : convert back to "=xx", so passing through a second time would + ' : properly convert the additional encoding. Further, by checking the + ' : text startiing with "=00", you would know that you would need to + ' : double-decode the text. Also, you would want to initially skip this + ' : initial tag when passing it the second time to DecodeQuotedPrintable(): + ' : + ' : Dim Result As String = DecodeQuotedPrintable(Message) 'initially decode Quoted-Printable text + ' : If VB.Left(Result, 3) = "=00" Then 'tagged as pre-encoded? + ' : Return DecodeQuotedPrintable(Mid(Result, 4)) 'yes, so decode again and return, less initial null byte + ' : Else + ' : Return Result 'otherwise, return result of decoding + ' : End If + '******************************************************************************* + Public Shared Function ForceQuotedPrintable(ByVal Message As String) As String + Dim Byt() As Byte = Encoding.UTF8.GetBytes(Message) 'convert message to byte array + Dim Sb As New StringBuilder("=00") 'set up string builder for appending data + For Each B As Byte In Byt + Select Case B 'check each byte + Case Is > &H7F 'if 8-bit code + Sb.Append("=" & Hex(B)) 'convert to 7-bit tag + Case Else + Sb.Append(Chr(B)) 'else save text regardless + End Select + Next + Return Sb.ToString + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : QConvertHTML2Text + ' Purpose : Short-Form Convert HTML formatted text to plain text + ' : + ' Returns : Provided a simple HTML source string, it will return a Plain Text + ' : string with HTML code removed. + '******************************************************************************* + Public Shared Function QConvertHTML2Text(ByVal HTMLText As String) As String + Return RegularExpressions.Regex.Replace(HTMLText.Replace(" ", " ").Replace(""", """").Replace("'", _ + "'"), "<[^>]*>", "").Replace("<", "<").Replace(">", ">").Replace("&", "&").Replace(";;", ";") + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : ConvertHTML2Text + ' Purpose : Convert HTML formatted text to plain text + ' : + ' Returns : Provided a complex HTML string, it will return a Plain Text string + ' : with all HTML codes and formatting removed from it. + ' : + ' NOTE : Numerous of these conversions will convert the text to 8-bit, + ' : though most of these sysmbols will not be encountered in most + ' : HTML documents we produce. But regardless of that, if you wish + ' : to make this conversion the main body message of an email, you + ' : may have to further convert this using ForceQuotedPrintable() + ' : to maintain Quoted-Printable encoding and avoid Base64, even + ' : though this is typically not an issue. However, some few really + ' : primitive email readers, typically those that simply allow you + ' : to preview email messages, without fully loading them, will not + ' ' know how to support Base64, or will not bother with it, but simply + ' : display the raw data. RFC 2045 requires email handlers to support it. + '******************************************************************************* + Public Shared Function ConvertHTML2Text(ByVal HTMLText As String) As String + 'instantiate an initially blank StringBuilder object + Dim Sb As New StringBuilder() + + 'first remove leading whitespace of each line and append the result to the StringBuilder + Dim ary() As String = Split(HTMLText, vbCrLf) + For Each S As String In ary + Sb.Append(S.TrimStart(Chr(9), " "c)) + Next + + 'replace reserved entities (except <, >, and &) + Sb.Replace(""", """").Replace("'", "'").Replace(" ", " ") + + 'replace HTML paragraph, line breaks, and table entry terminators with vbCrLf + Sb.Replace("

", vbCrLf).Replace("

", vbCrLf).Replace("

", vbCrLf).Replace("

", vbCrLf).Replace("
", _ + vbCrLf).Replace("
", vbCrLf).Replace("", vbCrLf).Replace("", vbCrLf) + + 'replace ISO 8859-1 Symbols (160-255). Note that any matches will make the text 8-bit + Sb.Replace("¡", "¡").Replace("¢", "¢").Replace("£", "£").Replace("¤", _ + "¤").Replace("¥", "¥").Replace("¦", "¦").Replace("§", "§").Replace("¨", _ + "¨").Replace("©", "©").Replace("ª", "ª").Replace("«", "«").Replace("¬", _ + "¬").Replace("­", "-").Replace("®", "®").Replace("¯", "¯").Replace("°", _ + "°").Replace("±", "±").Replace("²", "²").Replace("³", "³").Replace("´", _ + "´").Replace("µ", "µ").Replace("¶", "¶").Replace("·", "•").Replace("¸", _ + "¸").Replace("¹", "¹").Replace("º", "º").Replace("»", "»").Replace("¼", _ + "¼").Replace("½", "½").Replace("¾", "¾").Replace("¿", "¿").Replace("×", _ + "×").Replace("÷", "÷") + + 'replace ISO 8859-1 characters. Note that any matches will make the text 8-bit + Sb.Replace("À", "À").Replace("Á", "Á").Replace("Â", "Â").Replace("Ã", "Ã").Replace("Ä", _ + "Ä").Replace("Å", "Å").Replace("Æ", "Æ").Replace("Ç", "Ç").Replace("È", _ + "È").Replace("É", "É").Replace("Ê", "Ê").Replace("Ë", "Ë").Replace("Ì", _ + "Ì").Replace("Í", "Í").Replace("Î", "Î").Replace("Ï", "Ï").Replace("Ð", _ + "Ð").Replace("Ñ", "Ñ").Replace("Ò", "Ò").Replace("Ó", "Ó").Replace("Ô", _ + "Ô").Replace("Õ", "Õ").Replace("Ö", "Ö").Replace("Ø", "Ø").Replace("Ù", _ + "Ù").Replace("Ú", "Ú").Replace("Û", "Û").Replace("Ü", "Ü").Replace("Ý", _ + "Ý").Replace("Þ", "Þ").Replace("ß", "ß").Replace("à", "à").Replace("á", _ + "á").Replace("â", "â").Replace("ã", "ã").Replace("ä", "ä").Replace("å", _ + "å").Replace("æ", "æ").Replace("ç", "ç").Replace("è", "è").Replace("é", _ + "é").Replace("ê", "ê").Replace("ë", "ë").Replace("ì", "ì").Replace("í", _ + "í").Replace("î", "î").Replace("ï", "ï").Replace("ð", "ð").Replace("ñ", _ + "ñ").Replace("ò", "ò").Replace("ó", "ó").Replace("ô", "ô").Replace("õ", _ + "õ").Replace("ö", "ö").Replace("ø", "ø").Replace("ù", "ù").Replace("ú", _ + "ú").Replace("û", "û").Replace("ü", "ü").Replace("ý", "ý").Replace("þ", _ + "þ").Replace("ÿ", "ÿ") + + 'replace Math Symbols Supported by HTML. Note that any matches will make the text 8-bit + Sb.Replace("∀", "∀").Replace("∂", "∂").Replace("∃", "∃").Replace("∅", "∅").Replace("∇", _ + "∇").Replace("∈", "∈").Replace("∉", "∉").Replace("∋", "∋").Replace("∏", _ + "∏").Replace("∑", "∑").Replace("−", "−").Replace("∗", "∗").Replace("√", _ + "√").Replace("∝", "∝").Replace("∞", "∞").Replace("∠", "∠").Replace("∧", _ + "∧").Replace("∨", "∨").Replace("∩", "∩").Replace("∪", "∪").Replace("∫", _ + "∫").Replace("∴", "∴").Replace("∼", "∼").Replace("≅", "≅").Replace("≈", _ + "≈").Replace("≠", "≠").Replace("≡", "≡").Replace("≤", "≤").Replace("≥", _ + "≥").Replace("⊂", "⊂").Replace("⊃", "⊃").Replace("⊄", "⊄").Replace("⊆", _ + "⊆").Replace("⊇", "⊇").Replace("⊕", "⊕").Replace("⊗", "⊗").Replace("⊥", _ + "⊥").Replace("⋅", "⋅") + + 'replace Greek Letters Supported by HTML. Note that any matches will make the text 8-bit + Sb.Replace("Α", "Α").Replace("Β", "Β").Replace("Γ", "Γ").Replace("Δ", "Δ").Replace("Ε", _ + "Ε").Replace("Ζ", "Ζ").Replace("Η", "Η").Replace("Θ", "Θ").Replace("Ι", _ + "Ι").Replace("Κ", "Κ").Replace("Λ", "Λ").Replace("Μ", "Μ").Replace("Ν", _ + "Ν").Replace("Ξ", "Ξ").Replace("Ο", "Ο").Replace("Π", "Π").Replace("Ρ", _ + "Ρ").Replace("Σ", "Σ").Replace("Τ", "Τ").Replace("Υ", "Υ").Replace("Φ", _ + "Φ").Replace("Χ", "Χ").Replace("Ψ", "Ψ").Replace("Ω", "Ω").Replace("α", _ + "α").Replace("β", "β").Replace("γ", "γ").Replace("δ", "δ").Replace("ε", _ + "ε").Replace("ζ", "ζ").Replace("η", "η").Replace("θ", "θ").Replace("ι", _ + "ι").Replace("κ", "κ").Replace("λ", "λ").Replace("μ", "μ").Replace("ν", _ + "ν").Replace("ξ", "ξ").Replace("ο", "ο").Replace("π", "π").Replace("ρ", _ + "ρ").Replace("ς", "ς").Replace("σ", "σ").Replace("τ", "τ").Replace("υ", _ + "υ").Replace("φ", "φ").Replace("χ", "χ").Replace("ψ", "ψ").Replace("ω", _ + "ω").Replace("ϑ", "ϑ").Replace("ϒ", "ϒ").Replace("ϖ", "ϖ") + + 'replace Other Entities Supported by HTML. Note that any matches will make the text 8-bit + Sb.Replace("Œ", "Œ").Replace("œ", "œ").Replace("Š", "Š").Replace("š", "š").Replace("Ÿ", _ + "Ÿ").Replace("ƒ", "ƒ").Replace("ˆ", "ˆ").Replace("˜", "˜").Replace(" ", _ + " ").Replace(" ", " ").Replace(" ", " ").Replace("–", "–").Replace("—", _ + "—").Replace("‘", "‘").Replace("’", "’").Replace("‚", "‚").Replace("“", _ + " ").Replace("”", " ").Replace("„", "„").Replace("†", "†").Replace("‡", _ + "‡").Replace("•", "•").Replace("…", "…").Replace("‰", "‰").Replace("′", _ + "′").Replace("″", "″").Replace("‹", "‹").Replace("›", "›").Replace("‾", _ + "‾").Replace("€", "€").Replace("™", "™").Replace("←", "←").Replace("↑", _ + "↑").Replace("→", "→").Replace("↓", "↓").Replace("↔", "↔").Replace("↵", _ + "↵").Replace("⌈", "⌈").Replace("⌉", "⌉").Replace("⌊", "⌊").Replace("⌋", _ + "⌋").Replace("◊", "◊").Replace("♠", "♠").Replace("♣", "♣").Replace("♥", _ + "♥").Replace("♦", "♦") + + 'replace special ASCII coding entities that were not captured by the above. Note that values > 127 will make the text 8-bit + For Idx As Integer = 1 To 255 'See www.w3schools.com/tags/ref_entities.asp + Sb.Replace("&#" & Idx.ToString & ";", Chr(Idx)) 'replace most common numeric entities + Next + + 'Ensure header definitions are followed by vbCrLf + Dim NewText As String = RegularExpressions.Regex.Replace(Sb.ToString(), "]*>", vbCrLf) + + 'Also seek out other Unicode encoded number entities not covered by the above and individually update them + Dim Idy As Integer = InStr(NewText, "&#") 'check for a numeric entity + Do While Idy <> 0 'loop as long as we find one + Dim Idz As Integer = InStr(Idy, NewText, ";") 'find terminating semicolon + Dim S As String = Mid(NewText, Idy, Idz - Idy + 1) 'grab expression + RegularExpressions.Regex.Replace(NewText, S, Chr(CInt(Mid(S, 3, Len(S) - 3)))) 'replace expression + InStr(Idy + 1, NewText, "&#") + Loop + + 'strip remaining HTML text tags, replace < and > placeholders, convert ampersand, replace ;; with ;, then return result + Return RegularExpressions.Regex.Replace(NewText, "<[^>]*>", "").Replace("<", _ + "<").Replace(">", ">").Replace("&", "&").Replace(";;", ";") + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Enum MediaTypes: Structure used by GetMediaType + '******************************************************************************* + Public Enum MediaTypes As Integer + ApplicationOctet ' 0 = Integer Value + ApplicationPdf ' 1 + ApplicationRtf ' 2 + ApplicationSoap ' 3 + ApplicationZip ' 4 + ImageGif ' 5 + ImageJpeg ' 6 + ImageTiff ' 7 + TextHtml ' 8 + TextPlain ' 9 + TextRich '10 + TextXml '11 + End Enum + + '******************************************************************************* + ' Function Name : GetMediaType + ' Purpose : Provide easy access to System.Net.Mime.MediaTypes text + ' : + ' Returns : provided a MediaTypes enumeration value, a string representing + ' : the selected type will be returned. + '******************************************************************************* + Public Shared Function GetMediaType(ByVal MediaType As MediaTypes) As String + Select Case MediaType + Case MediaTypes.ApplicationPdf + Return "application/pdf" + Case MediaTypes.ApplicationRtf + Return "application/rtf" + Case MediaTypes.ApplicationSoap + Return "application/soap+xml" + Case MediaTypes.ApplicationZip + Return "application/zip" + Case MediaTypes.ImageGif + Return "image/gif" + Case MediaTypes.ImageJpeg + Return "image/jpeg" + Case MediaTypes.ImageTiff + Return "image/tiff" + Case MediaTypes.TextHtml + Return "text/html" + Case MediaTypes.TextPlain + Return "text/plain" + Case MediaTypes.TextRich + Return "text/richtext" + Case MediaTypes.TextXml + Return "text/xml" + Case Else + Return "application/octet-stream" + End Select + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Enum TransferEncodings: Structure used by GetTransferEncoding + '******************************************************************************* + Public Enum TransferEncodings As Integer + QuotedPrintable ' 0 = Integer value + Base64 ' 1 + SevenBit ' 2 + End Enum + + '******************************************************************************* + ' Function Name : GetTransferEncoding + ' Purpose : Provide easy access to System.Net.Mime.TransferEncoding data + ' : + ' Returns : Provided a TransferEncodings value, a TransferEncoding value + ' : is returned. + '******************************************************************************* + Public Shared Function GetTransferEncoding(ByVal TransferEncoding As TransferEncodings) As System.Net.Mime.TransferEncoding + Return DirectCast(TransferEncoding, System.Net.Mime.TransferEncoding) + End Function + + '========================================================================== + '========================================================================== + + '******************************************************************************* + ' Function Name : GetEmailInfo + ' Purpose : Break email down into its component parts. + ' : + ' Returns : EmailInfo object with component parts of email broken down. + ' : + ' NOTES : This method uses classes EmailItems and EmailInfo. + ' : The Message Body, and each AlternnateView or Attachment are + ' : contained within EmailItem objects within the EmailIngo object. + ' : + ' : An EmailItem contains fields for FROM, TO, SUBJECT, Content-Type, + ' : a flag indicating if the ContentTypeData is a filename or if it is + ' : text formatting, content-transfer-encoding data, and the raw encoded, + ' : data, whether it is a message or binary information. If the content- + ' : transfer encoding is set to "base64", the data should be decoded + ' : using the DecodeBase64() method. If it is "quoted-printable", the + ' : data should be decoded using DecodeQuotedPrintable(). If it is + ' : "7bit", it is 7-bit data and does not need to be decoded. + '******************************************************************************* + Public Shared Function GetEmailInfo(ByVal MailMessage As String) As EmailInfo + Dim Info As New EmailInfo 'structure to hold breakdown of email + Dim Ary() As String = Split(MailMessage, vbCrLf) 'break full email into lines + Dim Idx As Integer = 0 'index into Ary() + Dim MX As Integer = UBound(Ary) + 1 'find end if list+1 + Dim Boundaries As New Collections.Generic.List(Of String) 'boundary definitions + + Dim IsMultiPart As Boolean = False 'true if we have multiple parts + Dim SeekingEncoding As Boolean = False 'true if we are looking for encoding + Dim BuildingDataBlock As Boolean = False 'true if we are building a data block + Dim HaveMessageBody As Boolean = False 'true if we have the message body defined + + Dim ContentType As String = vbNullString 'hold last-defined Content Type + Dim ContentTypeIsName As Boolean = False 'true of Content Type specified a file + Dim ContentTypeData As String = vbNullString 'if block isan attachment + Dim ContentEncoding As String = vbNullString 'hold last-defined Content Transfer Encoding + Dim ContentBody As String = vbNullString 'block data accumulator + '----------------------------------------------------------- + Dim Inheader As Integer = 4 'flag for gathering To, From, Date, Subject + Do + Dim S As String = Ary(Idx) 'grab a line of data from the email + ' + ' check for important header items + ' + If CBool(Len(S)) AndAlso CBool(Inheader) Then 'if we are currently in the header... + Dim I As Integer = InStr(S, ":") 'find field delimiter + If CBool(I) Then 'found one? + If VB.Right(S, 1) = ";" Then 'line continues? + Idx += 1 'yes, so bump index + S &= Ary(Idx).Trim(Chr(9), " "c) 'append next line next line + End If + Select Case LCase(VB.Left(S, I)) 'yes, check for one of 4 fields + Case "from:" 'Found FROM field + Info.FromData = Trim(Mid(S, I + 1)) 'stuff to structure + Inheader -= 1 'drop 1 from flag + Case "to:" 'Found TO field + Info.ToData = Trim(Mid(S, I + 1)) 'stuff to structure + Inheader -= 1 'drop 1 from flag + Case "date:" 'Found DATE field + Info.DateData = Trim(Mid(S, I + 1)) 'stuff to structure + Inheader -= 1 'drop 1 from flag + Case "subject:" 'Found SUBJECT field + Info.SubjectData = Trim(Mid(S, I + 1)) 'stuff to structure + Inheader -= 1 'drop 1 from flag + End Select + End If + If Not CBool(Inheader) Then 'if InHeader flag is zero + SeekingEncoding = True 'start looking for a Content-Transfer-Encoding field + S = vbNullString 'purge current data + End If + End If + '------------------------------------------------------- + ' check for boundaries + '------------------------------------------------------- + If CBool(Len(S)) AndAlso CBool(Boundaries.Count) Then 'check any defined boundaries + For Idy As Integer = 0 To Boundaries.Count - 1 + If CBool(InStr(S, Boundaries.Item(Idy), CompareMethod.Text)) Then + If BuildingDataBlock Then + Dim Itm As New EmailItem 'create a new item + Itm.ContentType = ContentType 'store content type + Itm.ContentTypeData = ContentTypeData 'save filename or character set + Itm.ContentTypeDataIsFilename = ContentTypeIsName 'save flag indicating if Attachment + Itm.ContentEncoding = ContentEncoding 'store encoding + Itm.ContentBody = ContentBody 'store data + ContentBody = vbNullString 'reset accumulator + If HaveMessageBody Then 'already have a message body? + If ContentTypeIsName Then 'if an attachment + Info.Attachments.Add(Itm) 'add an attachment + Else 'otherwise an alternate view + Info.AlternateViews.Add(Itm) + End If + Else + Info.MessageBody = Itm 'else stuff new item to message body + HaveMessageBody = True 'indicate we now have a message body + End If + ContentTypeData = vbNullString 'reset filename/charset + BuildingDataBlock = False 'turn off building flag + End If + SeekingEncoding = True 'turn block seeing on again + S = vbNullString 'purge current data + Exit For + End If + Next + End If + '------------------------------------------------------- + ' build data block + '------------------------------------------------------- + If BuildingDataBlock Then + ContentBody &= S & vbCrLf 'add a line to content data + End If + '------------------------------------------------------- + ' if seeking encoding + '------------------------------------------------------- + If CBool(Len(S)) AndAlso SeekingEncoding Then 'are we seeking TCE? + Dim I As Integer = InStr(S, ":") 'yes, check for field delimiter + If CBool(I) Then 'did we find one? + Select Case LCase(VB.Left(S, I)) 'yes, check for types + '======================================================= + Case "content-type:" 'Content type? + ContentType = Mid(S, I + 1).Trim(Chr(9), " "c) 'yes, so grab data + If VB.Right(S, 1) = ";" Then 'more to add? + Idx += 1 'yes, so bump index + ContentType &= Ary(Idx).Trim(Chr(9), " "c) 'grab next line + End If + ContentTypeIsName = False 'init flag specifying a file as false + Dim sbAry() As String = Split(ContentType, ";") 'now check the content type data + ContentType = sbAry(0) 'keep first part for ContentType + If StrComp(VB.Left(sbAry(0), 10), "multipart/", CompareMethod.Text) = 0 Then + 'multipart, so grab second parameter (boundary definition), and strip any quotes + Dim Bnd As String = Trim(Mid(sbAry(1), InStr(sbAry(1), "=") + 1)).Replace("""", vbNullString) + Boundaries.Add(Bnd) 'and add a boundary + ElseIf StrComp(VB.Left(sbAry(1), 5), "name=", CompareMethod.Text) = 0 Then + ContentTypeIsName = True 'attachment if a filename specified (otherwise a view) + sbAry = Split(sbAry(1), "=") 'multipart, so grab second parameter + 'get second part of second parameter (filename definition) + ContentTypeData = sbAry(1).Trim().Replace("""", vbNullString) 'strip any quotes + Else + ContentTypeData = sbAry(1) 'AlternateView, so stuff display character set + End If + '=================================================== + Case "content-transfer-encoding:" + ContentEncoding = Mid(S, I + 1).Trim(Chr(9), " "c) 'yes, so grab data + SeekingEncoding = False 'turn off seeking flag + BuildingDataBlock = True 'turn on building data block flag + Idx += 1 'bump to skip required following blank line + End Select + End If + End If + Idx += 1 'bump array index + Loop While Idx < MX + '----------------------------------------------------------- + Return Info 'return with filled data block + End Function +End Class + +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +'******************************************************************************* +' Class Name : EmailItem (used by EmailInfo class) +' Purpose : Stores structure of an email block +'******************************************************************************* +Public Class EmailItem + Public ContentType As String = vbNullString 'CONTENT-TYPE data + Public ContentTypeData As String = vbNullString 'filename or text encoding + Public ContentTypeDataIsFilename As Boolean = False 'True if ContentTypeData specifies a filename + Public ContentEncoding As String = vbNullString 'CONTENT-TRANSFER-ENCODING data + Public ContentBody As String = vbNullString 'raw data of block +End Class + +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +'******************************************************************************* +' Class Name : EmailInfo (used by GetEmailInfo method) +' Purpose : Store component parts of an Email +'******************************************************************************* +Public Class EmailInfo + Public FromData As String = vbNullString 'FROM: + Public ToData As String = vbNullString 'TO: + Public DateData As String = vbNullString 'DATE: + Public SubjectData As String = vbNullString 'SUBJECT: + Public MessageBody As EmailItem 'contents of message body + Public AlternateViews As New Collections.Generic.List(Of EmailItem) 'list of alternate views + Public Attachments As New Collections.Generic.List(Of EmailItem) 'list of attachments +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Data/InitialData.accdb b/SISBusiness.Module/BusinessObjects/SIS/App_Data/InitialData.accdb new file mode 100644 index 0000000..23dd2f0 Binary files /dev/null and b/SISBusiness.Module/BusinessObjects/SIS/App_Data/InitialData.accdb differ diff --git a/SISBusiness.Module/BusinessObjects/SIS/App_Data/UpdateScripts.sql b/SISBusiness.Module/BusinessObjects/SIS/App_Data/UpdateScripts.sql new file mode 100644 index 0000000..0519233 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/App_Data/UpdateScripts.sql @@ -0,0 +1,29 @@ +/* To prevent any potential data loss issues, you should review this script in detail before running it outside the context of the database designer.*/ +BEGIN TRANSACTION +SET QUOTED_IDENTIFIER ON +SET ARITHABORT ON +SET NUMERIC_ROUNDABORT OFF +SET CONCAT_NULL_YIELDS_NULL ON +SET ANSI_NULLS ON +SET ANSI_PADDING ON +SET ANSI_WARNINGS ON +COMMIT +BEGIN TRANSACTION +GO +ALTER TABLE dbo.RegistryRowsFinancialControlling + DROP CONSTRAINT FK_RegistryRowsFinancialControlling_ReInvoiceReason +GO +ALTER TABLE dbo.ReInvoiceReason SET (LOCK_ESCALATION = TABLE) +GO +COMMIT +BEGIN TRANSACTION +GO +DROP INDEX iReInvoiceReason_RegistryRowsFinancialControlling ON dbo.RegistryRowsFinancialControlling +GO +ALTER TABLE dbo.RegistryRowsFinancialControlling + DROP COLUMN ReInvoiceReason +GO +ALTER TABLE dbo.RegistryRowsFinancialControlling SET (LOCK_ESCALATION = TABLE) +GO +COMMIT + diff --git a/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChat.vb b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChat.vb new file mode 100644 index 0000000..04f2295 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChat.vb @@ -0,0 +1,117 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports Newtonsoft.Json +Public Enum eChatDirection + eIn = 0 + eOut = 1 +End Enum + _ +Public Class SISChat + Inherits BaseObject + + Private _User As User + Private _HTMLBody As String + Private _HTMLEvents As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + _ + Property HTMLBody As String + Get + Return _HTMLBody + End Get + Set(value As String) + SetPropertyValue("HTMLBody", _HTMLBody, value) + End Set + End Property + _ + Property HTMLEvents As String + Get + Return _HTMLEvents + End Get + Set(value As String) + SetPropertyValue("HTMLEvents", _HTMLEvents, value) + End Set + End Property + + Public Function CreateCompressedChat(_InputString As String) As String + Dim mem As New IO.MemoryStream + Dim gz As New System.IO.Compression.GZipStream(mem, IO.Compression.CompressionMode.Compress) + Dim sw As New IO.StreamWriter(gz) + Dim _OutputString As String = "" + sw.Write(_InputString) + sw.Flush() + mem.Seek(0, IO.SeekOrigin.Begin) + Dim sr As New IO.BinaryReader(mem) + + Dim _Bytes As Byte() + Dim _Byte As Byte + _Bytes = sr.ReadBytes(CInt(mem.Length)) + + For Each _Byte In _Bytes + _OutputString += Chr(_Byte) + Next + + sw.Close() + Return _OutputString + End Function + Function CreateJSONSerialize(_InputString As String, _ChatDirection As eChatDirection) As String + Dim _JSON As String = "" + Dim _JSNOChat As New JSONChat + + _JSNOChat.ChatDirection = _ChatDirection + _JSNOChat.EMail = _User.Email + _JSNOChat.HTMLBody = _InputString + _JSNOChat.IsReaded = False + _JSON = JsonConvert.SerializeObject(_JSNOChat) + + Return _JSON + End Function + Function GetLastChat() As String + Dim _JSON As String = "" + Dim _JSNOChat As New JSONChat + + _JSNOChat.ChatDirection = eChatDirection.eOut + _JSNOChat.EMail = _User.Email + _JSNOChat.HTMLBody = "*" + _JSON = JsonConvert.SerializeObject(_JSNOChat) + + Return _JSON + End Function + Function CreateHTMLEvents(_JSON As String) As String + Return "Ready" + End Function +End Class +Public Class JSONChat + Property ChatDirection As eChatDirection + Property EMail As String + Property HTMLBody As String + Property IsReaded As Boolean +End Class \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb new file mode 100644 index 0000000..cbd62a2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.Designer.vb @@ -0,0 +1,69 @@ +Partial Class SISChatVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSISChatSubmit = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSISChat = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSISChatSubmit + ' + Me.aSISChatSubmit.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept + Me.aSISChatSubmit.Caption = "aSISChat Submit" + Me.aSISChatSubmit.Category = "aSISChatSubmit" + Me.aSISChatSubmit.ConfirmationMessage = Nothing + Me.aSISChatSubmit.Id = "aSISChatSubmit" + Me.aSISChatSubmit.ImageName = Nothing + Me.aSISChatSubmit.Shortcut = Nothing + Me.aSISChatSubmit.Tag = Nothing + Me.aSISChatSubmit.TargetObjectsCriteria = Nothing + Me.aSISChatSubmit.TargetObjectType = GetType(SISBusiness.[Module].SISChat) + Me.aSISChatSubmit.TargetViewId = Nothing + Me.aSISChatSubmit.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSISChatSubmit.ToolTip = Nothing + Me.aSISChatSubmit.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSISChat + ' + Me.aSISChat.Caption = "aSISChat" + Me.aSISChat.Category = "Menu" + Me.aSISChat.ConfirmationMessage = Nothing + Me.aSISChat.Id = "aSISChat" + Me.aSISChat.ImageName = Nothing + Me.aSISChat.Shortcut = Nothing + Me.aSISChat.Tag = Nothing + Me.aSISChat.TargetObjectsCriteria = Nothing + Me.aSISChat.TargetViewId = Nothing + Me.aSISChat.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aSISChat.ToolTip = Nothing + Me.aSISChat.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Protected WithEvents aSISChatSubmit As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSISChat As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.resx b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.resx new file mode 100644 index 0000000..fe91bbf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 116, 17 + + + 254, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.vb b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.vb new file mode 100644 index 0000000..54c08e7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/Chat/SISChatVC.vb @@ -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.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering + +Imports System.Net +Imports System.IO + +Public Class SISChatVC + Inherits DevExpress.ExpressApp.ViewController +#If DEBUG Then + Private _SISChatURL As String = "http://192.168.1.102/SISChat/SISChat.ashx?id=" +#Else + Private _SISChatURL As String = "http://sis-r.hu/SISChat/SISChat.ashx?id=" +#End If + + Public Event MyAutoscroll(sender As Object, e As EventArgs) + + 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 = "SISChat_DetailView" Then + 'Frame.GetController(Of DialogController).AcceptAction.Active.SetItemValue("", False) + End If + End Sub + + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "SISChat_DetailView" Then + 'Frame.GetController(Of DialogController).AcceptAction.Active.SetItemValue("", False) + End If + End Sub + Private Sub aSISChatSubmit_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSISChatSubmit.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SISChat As SISChat = TryCast(View.SelectedObjects(0), SISChat) + Dim _JSON As String + + + _JSON = _SISChat.CreateJSONSerialize(_SISChat.HTMLBody, eChatDirection.eIn) + _SISChat.HTMLBody = "" + View.Refresh() + + Try + Dim URL As String = _SISChatURL & _JSON + Dim request As HttpWebRequest = TryCast(WebRequest.Create(URL), HttpWebRequest) + + Dim response As HttpWebResponse = TryCast(request.GetResponse, HttpWebResponse) + + Dim reader As StreamReader = New StreamReader(response.GetResponseStream()) + Dim str As String = reader.ReadToEnd + + _SISChat.HTMLEvents = str + RaiseEvent MyAutoscroll(sender, TryCast(e, System.EventArgs)) + Catch exp As Exception + _SISChat.HTMLEvents = exp.Message + + End Try + End Sub + + Private Sub aSISChat_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSISChat.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SISChat As SISChat + Dim _JSON As String + + _SISChat = _onew.CreateObject(Of SISChat)() + _SISChat.User = _onew.FindObject(Of User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUser.oid)) + + _JSON = _SISChat.GetLastChat + Try + Dim URL As String = _SISChatURL & _JSON + Dim request As HttpWebRequest = TryCast(WebRequest.Create(URL), HttpWebRequest) + + Dim response As HttpWebResponse = TryCast(request.GetResponse, HttpWebResponse) + + Dim reader As StreamReader = New StreamReader(response.GetResponseStream()) + Dim str As String = reader.ReadToEnd + + _SISChat.HTMLEvents = str + Catch exp As Exception + _SISChat.HTMLEvents = exp.Message + + End Try + + + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "SISChat_DetailView", False, _SISChat) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.Separate + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_GLAccountRowsforBookEntry.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_GLAccountRowsforBookEntry.sql new file mode 100644 index 0000000..99b2926 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_GLAccountRowsforBookEntry.sql @@ -0,0 +1,212 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_GLAccountRowsforBookEntry] Script Date: 05/18/2012 09:18:32 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + +CREATE VIEW [dbo].[vv_GLAccountRowsforBookEntry] +AS +SELECT 1 PartnerType, + 0 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.F_DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + CASE WHEN isnull(t1.IsReinvoice,0)=0 THEN t8.ChartOfAccounts + ELSE t8.ChartOfAccounts2 + END DebitChartOfAccounts, + t9.ChartOfAccountsIn CreditChartOfAccounts, + t1.Controlling Controlling, + t1.JobNumberObjects JobNumberObjects, + t7.UniqueObjects UniqueObjects, + t1.CostPlace CostPlace, + t1.CostHolder CostHolder, + t2.F_CurrencyRate CurrencyRate, + t1.Amount AmountHUF, + CASE WHEN t2.F_CurrencyRate<>0 and t6.ShortName<>'HUF' THEN ROUND(t1.Amount/t2.F_CurrencyRate,2) ELSE 0 END AmountDEV, + t2.ShortName Note1, + '' Note2, + NULL VAT, + t1.ChartofAccounts ChartOfAccounts2, + isnull(t1.IsReinvoice,0) IsReinvoice, + t1.ContractRows ContractRows, + isnull(t1.F_ReadyforBookEntryRows,0) ReadyforBookEntryRows, + t2.Oid RegistryHeader, + Null InvoiceHeader, + t2.CurrentWorkflowSystemSteps WorkflowSystemSteps, + t1.WorkflowMessage WorkflowMessage +from RegistryRowsFinancialControlling t1 join RegistryHeader t2 on + t1.RegistryHeader=t2.Oid LEFT JOIN Controlling t3 ON + t1.Controlling=t3.Oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.F_CurrencyName=t6.Oid LEFT JOIN ContractRows t7 ON + t1.ContractRows=t7.Oid left join ControllingYear t8 on + t3.Oid=t8.Controlling and Year(t2.F_DateExecution)=t8.AccountYear left join CustomersGLParametersYear t9 on + t5.Oid=t9.CustomersGLParameters and Year(t2.F_DateExecution)=t9.AccountYear +WHERE t1.GCRecord IS NULL AND + isnull(t2.IsEditable,0)=0 AND + t2.F_GLAccounts IS NULL AND + isnull(t1.F_ReadyforBookEntryRows,0)=0 + +UNION ALL + +SELECT 1 PartnerType, + 1 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + isnull(isnull(t1.DateVAT,t2.F_DateVAT),t2.F_DateExecution) DateExecution, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + t7.ChartOfAccountsIn DebitChartOfAccounts, + case when ISNULL(t3.InversState,0)=1 then t7.ChartOfAccountsOut + else t9.ChartOfAccountsIn end CreditChartOfAccounts, + NULL Controlling, + NULL JobNumberObjects, + NULL UniqueObjects, + NULL CostPlace, + NULL CostHolder, + 1 CurrencyRate, + CASE WHEN t1.VAT IS NULL THEN 0 + WHEN t1.VAT IS NOT NULL THEN + case when t3.InversState=0 then ROUND(t1.BruttoAmount/(1+t3.KeyValue)*t3.KeyValue,0) + else ROUND(t1.BruttoAmount/(1+t3.InversKeyValue)*t3.InversKeyValue,0) end + END AmountHUF, + 0 AmountDEV, + t2.ShortName Note1, + '' Note2, + t1.VAT VAT, + NULL ChartOfAccounts2, + 0 IsReinvoice, + NULL ContractRows, + isnull(t1.F_ReadyforBookEntryRows,0) ReadyforBookEntryRows, + t2.Oid RegistryHeader, + NULL InvoiceHeader, + t2.CurrentWorkflowSystemSteps WorkflowSystemSteps, + '' WorkflowMessage +from RegistryRowsFinancial t1 join RegistryHeader t2 on + t1.RegistryHeader=t2.Oid LEFT JOIN VAT t3 ON + t1.VAT=t3.oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.F_CurrencyName=t6.Oid left join VATYear t7 on + t3.Oid=t7.VAT and Year(t2.F_DateExecution)=t7.AccountYear left join CustomersGLParametersYear t9 on + t5.Oid=t9.CustomersGLParameters and Year(t2.F_DateExecution)=t9.AccountYear +WHERE t1.GCRecord IS NULL AND + isnull(t2.IsEditable,0)=0 AND + t2.F_GLAccounts IS NULL AND + isnull(t1.F_ReadyforBookEntryRows,0)=0 + +UNION ALL + +SELECT 0 PartnerType, + 0 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + '' RegistryNumber, + t11.ChartOfAccountsOut DebitChartOfAccounts, + isnull(t12.ChartOfAccounts,t10.ChartOfAccounts) CreditChartOfAccounts, + isnull(t8.Controlling,t1.Controlling) Controlling, + isnull(t8.JobNumberObjects,t1.JobNumberObjects) JobNumberObjects, + isnull(t8.UniqueObjects,t1.UniqueObjects) UniqueObjects, + isnull(t8.CostPlace,t1.CostPlace) CostPlace, + isnull(t8.CostHolder,t1.CostHolder) CostHolder, + t2.CurrencyRate CurrencyRate, + (t1.ListPriceHUF-t1.DiscountPriceHUF)*t1.QTT AmountHUF, + (t1.ListPriceDEV-t1.DiscountPriceDEV)*t1.QTT AmountDEV, + t2.Description Note1, + '' Note2, + NULL VAT, + t1.ChartofAccounts ChartOfAccounts2, + 0 IsReinvoice, + t1.ContractRows ContractRows, + isnull(t1.ReadyforBookEntryRows,0) ReadyforBookEntryRows, + NULL RegistryHeader, + t2.Oid InvoiceHeader, + t1.WorkflowSystemSteps WorkflowSystemSteps, + '' WorkflowMessage +FROM InvoiceRows t1 JOIN InvoiceHeader t2 ON + t1.InvoiceHeader=t2.Oid LEFT JOIN Controlling t3 ON + t1.Controlling=t3.Oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.CurrencyName=t6.Oid LEFT JOIN InvoiceType t7 ON + t2.InvoiceType=t7.Oid LEFT JOIN ContractRows t8 ON + t1.ContractRows=t8.Oid LEFT JOIN Controlling t9 ON + t8.Controlling=t9.Oid left join ControllingYear t10 on + t3.Oid=t10.Controlling and Year(t2.DateExecution)=t10.AccountYear left join CustomersGLParametersYear t11 on + t5.Oid=t11.CustomersGLParameters and Year(t2.DateExecution)=t11.AccountYear left join ControllingYear t12 on + t9.Oid=t12.Controlling and Year(t2.DateExecution)=t12.AccountYear +WHERE t1.GCRecord IS NULL AND + isnull(t2.IsEditable,0)=0 AND + t2.GLAccounts IS NULL AND + isnull(t1.ReadyforBookEntryRows,0)=0 AND + t7.InvoiceTypeBase in (1,2,3) and + isnull(t2.IsProforma,0)=0 + +UNION ALL + +SELECT 0 PartnerType, + 1 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + '' RegistryNumber, + t9.ChartOfAccountsOut DebitChartOfAccounts, + t7.ChartOfAccountsOut CreditChartOfAccounts, + NULL Controlling, + NULL JobNumberObjects, + NULL UniqueObjects, + NULL CostPlace, + NULL CostHolder, + 1 CurrencyRate, + t1.AmountVATHUF AmountHUF, + t1.AmountVATDEV AmountDEV, + t2.Description Note1, + '' Note2, + t1.VAT VAT, + NULL ChartOfAccounts2, + 0 IsReinvoice, + NULL ContractRows, + isnull(t1.ReadyforBookEntryRows,0) ReadyforBookEntryRows, + NULL RegistryHeader, + t2.Oid InvoiceHeader, + Null WorkflowSystemSteps, + '' WorkflowMessage +from InvoiceVATRows t1 join InvoiceHeader t2 on + t1.InvoiceHeader=t2.Oid LEFT JOIN VAT t3 ON + t1.VAT=t3.oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.CurrencyName=t6.Oid LEFT JOIN InvoiceType t10 ON + t2.InvoiceType=t10.Oid left join VATYear t7 on + t3.Oid=t7.VAT and Year(t2.DateExecution)=t7.AccountYear left join CustomersGLParametersYear t9 on + t5.Oid=t9.CustomersGLParameters and Year(t2.DateExecution)=t9.AccountYear +WHERE t1.GCRecord IS NULL AND + isnull(t2.IsEditable,0)=0 AND + t2.GLAccounts IS NULL AND + isnull(t1.ReadyforBookEntryRows,0)=0 AND + isnull(t2.IsProforma,0)=0 AND + t10.InvoiceTypeBase in (1,2,3) --and + --t2.GLAccounts is null + + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAccount.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAccount.sql new file mode 100644 index 0000000..b37eea2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAccount.sql @@ -0,0 +1,103 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_PartnerConnectionInfoAccount] Script Date: 05/18/2012 09:18:46 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + + +CREATE view [dbo].[vv_PartnerConnectionInfoAccount] +as + select '01-Account' MainType, + t2.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t4.ConnectInfo ConnectInfo, + t2.CurrencyName CurrencyName, + sum(t1.AmountHUF) BallanceHUF, + sum(t1.AmountDEV) BallanceDEV, + t3.ShortName Currency, + t2.DatePayment DatePayment, + t2.DateCreated DateCreated, + t2.DateExecution DateExecution, + t2.CurrencyRate CurrencyRate, + t2.DocumentNumber DocumentNumber, + max(t2.RegistryNumber) RegistryNumber + from GLRows t1 join GLHeader t2 on + t1.GLHeader=t2.Oid left join CurrencyName t3 on + t2.CurrencyName=t3.Oid left join GlAccounts t4 on + t1.GLHeader=t4.Oid + where t2.GCRecord is null and + t2.GLDocumentType=1 and + isnull(t2.IsEditable,0)=0 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t2.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t4.ConnectInfo,t2.DocumentNumber,t2.CurrencyName,t3.ShortName,t2.DateExecution,t2.DatePayment, + t2.DateCreated,t2.DateExecution,t2.CurrencyRate + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 0 PartnerType, + t1.ConnectInfo ConnectInfo, + t1.CurrencyName CurrencyName, + t1.TotalBruttoHUF BallanceHUF, + t1.TotalBruttoDEV BallanceDEV, + t3.ShortName Currency, + t1.DatePayment DatePayment, + t1.DateCreated DateCreated, + t1.DateExecution DateExecution, + t1.CurrencyRate CurrencyRate, + t1.DocumentNumber DocumentNumber, + t1.DocumentNumber RegistryNumber + from InvoiceHeader t1 left join CurrencyName t3 on + t1.CurrencyName=t3.Oid + where t1.GLAccounts is null and + t1.IsEditable=0 and + t1.GCRecord is null + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 1 PartnerType, + t1.F_ConnectInfo ConnectInfo, + t1.F_CurrencyName CurrencyName, + t1.F_AmountBruttoHUF BallanceHUF, + t1.F_AmountBruttoDEV BallanceDEV, + t3.ShortName Currency, + t1.F_DatePayment DatePayment, + t1.F_DateCreated DateCreated, + t1.F_DateExecution DateExecution, + t1.F_CurrencyRate CurrencyRate, + t1.DocumentNumber DocumentNumber, + t1.RegistryNumber RegistryNumber + from RegistryHeader t1 left join RegistryType t2 on + t1.RegistryType=t2.Oid left join CurrencyName t3 on + t1.F_CurrencyName=t3.Oid + where t1.GCRecord is null and + t1.F_GLAccounts is null and + t1.IsEditable=0 and + t1.IsStorno=0 and + t2.RegistryMainType=0 and + t1.RegistryAcceptState=0 + + + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAged.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAged.sql new file mode 100644 index 0000000..a0e8ff3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoAged.sql @@ -0,0 +1,45 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_PartnerConnectionInfoAged] Script Date: 05/18/2012 09:19:05 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + + + +CREATE view [dbo].[vv_PartnerConnectionInfoAged] +as + select t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + t1.DateExecution DateExecution, + t1.DatePayment_Account DatePayment, + t1.CurrencyName_Account CurrencyName_Account, + t1.AmountHUF_Account AmountHUF, + t1.AmountDEV_Account AmountDEV, + t1.BallanceHUF BallanceHUF, + t1.BallanceDEV BallanceDEV, + t1.InvoiceHeader InvoiceHeader + from PCIDetail t1 join + vv_PartnerConnectionInfoAccount t2 on + t1.CustomersFrom=t2.CustomersFrom and + t1.Customers=t2.Customers and + t1.PartnerType=t2.PartnerType and + t1.ConnectInfo=t2.ConnectInfo + + + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoConnect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoConnect.sql new file mode 100644 index 0000000..c572c02 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoConnect.sql @@ -0,0 +1,53 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_PartnerConnectionInfoConnect] Script Date: 05/18/2012 09:19:21 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + +CREATE view [dbo].[vv_PartnerConnectionInfoConnect] +as + select + t1.MainType MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t1.CurrencyName CurrencyName, + t1.DebitTotalHUF DebitTotalHUF, + t1.CreditTotalHUF CreditTotalHUF, + t1.DebitTotalDEV DebitTotalDEV, + t1.CreditTotalDEV CreditTotalDEV, + t1.BallanceHUF BallanceHUF, + t1.BallanceDEV BallanceDEV, + t1.ShortName ShortName, + t1.Description Description, + t1.DateExecution DateExecution, + t1.DateCreated DateCreated, + t1.DatePayment DatePayment, + t1.DelayedDay DelayedDay, + t1.DelayedRange DelayedRange, + t1.CurrencyName_Account CurrencyName_Account, + t1.AmountHUF_Account AmountHUF_Account, + t1.AmountDEV_Account AmountDEV_Account, + t1.DateExecution_Account DateExecution_Account, + t2.BallanceState BallanceState, + t2.BallanceRateDiff BallanceRateDiff + from vv_PartnerConnectionInfoDetail t1 + join vv_PartnerConnectionInfoDetailGroup t2 on + t1.CustomersFrom=t2.CustomersFrom and + t1.Customers=t2.Customers and + t1.PartnerType=t2.PartnerType and + t1.ConnectInfo=t2.ConnectInfo + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetail.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetail.sql new file mode 100644 index 0000000..e99eae3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetail.sql @@ -0,0 +1,432 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_PartnerConnectionInfoDetail] Script Date: 05/18/2012 09:19:35 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + + + + + +CREATE view [dbo].[vv_PartnerConnectionInfoDetail] +as + select '01-Account' MainType, + t2.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.CurrencyName CurrencyName, + max(t3.AmountHUFBrutto) DebitTotalHUF, + 0 CreditTotalHUF, + max(t3.AmountDEVBrutto) DebitTotalDEV, + 0 CreditTotalDEV, + max(t3.AmountHUFBrutto) BallanceHUF, + max(t3.AmountDEVBrutto) BallanceDEV, + '' ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateCreated DateCreated, + t2.DatePayment DatePayment, + DATEDIFF(d,t2.DatePayment,getdate()) DelayedDay, + case when DATEDIFF(d,t2.DatePayment,getdate())<=0 then 0 + when DATEDIFF(d,t2.DatePayment,getdate())>0 and DATEDIFF(d,t2.DatePayment,getdate())<=15 then 1 + when DATEDIFF(d,t2.DatePayment,getdate())>15 and DATEDIFF(d,t2.DatePayment,getdate())<=30 then 2 + when DATEDIFF(d,t2.DatePayment,getdate())>30 and DATEDIFF(d,t2.DatePayment,getdate())<=60 then 3 + when DATEDIFF(d,t2.DatePayment,getdate())>60 and DATEDIFF(d,t2.DatePayment,getdate())<=90 then 4 + when DATEDIFF(d,t2.DatePayment,getdate())>90 and DATEDIFF(d,t2.DatePayment,getdate())<=180 then 5 + when DATEDIFF(d,t2.DatePayment,getdate())>180 and DATEDIFF(d,t2.DatePayment,getdate())<=360 then 6 + when DATEDIFF(d,t2.DatePayment,getdate())>360 then 7 + end DelayedRange, + t2.CurrencyName CurrencyName_Account, + sum(t1.AmountHUF) AmountHUF_Account, + sum(t1.AmountDEV) AmountDEV_Account, + t2.DateExecution DateExecution_Account + from GLRows t1 join GLHeader t2 on + t1.GLHeader=t2.Oid join GLAccounts t3 on + t1.GLHeader=t3.Oid + where t2.GCRecord is null and + t2.GLDocumentType=1 and + t2.IsEditable=0 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t2.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t2.CurrencyName,t2.DateExecution,t2.DateCreated,t2.DatePayment + + union all + + select '02-Bank' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.InAmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.OutAmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.OutAmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.InAmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + else 0 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+isnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t4.DatePayment DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLBank t5 on t2.Oid=t5.Oid + left join LiquidAssets t3 on t5.LiquidAssets_Main=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom + and t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType=2 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '03-Cassa' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+isnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t4.DatePayment DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLCassa t5 on t2.Oid=t5.Oid + left join LiquidAssets t3 on t5.LiquidAssets_Cassa=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType=3 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '05-Ratediff' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + 0 CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + 0 BallanceDEV, + max(isnull(t7.ShortName,'')+', '++isnull(t8.DocumentNumber,'')+', '+isnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + Null DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join LiquidAssets t3 on t1.LiquidAssets=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + left join GLRows t6 on + t1.GLRowsRateDiff=t6.Oid left join LiquidAssets t7 on + t6.LiquidAssets=t7.oid left join GLHeader t8 on + t6.GLHeader=t8.oid + where t2.GCRecord is null and + t2.GLDocumentType=5 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t2.CurrencyName,t2.DateExecution,t2.DatePayment,t4.CurrencyName + + union all + + select case when max(t2.GLDocumentType)=4 then '04-Compensation' + when max(t2.GLDocumentType)=0 then '06-Mixed' + end MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + isnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + else 0 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+t2.DocumentNumber) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t2.DateExecution DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLCompensation t5 on t2.Oid=t5.Oid left + join LiquidAssets t3 on t5.LiquidAssets_Main=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType in (4,0) and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 0 PartnerType, + t1.ConnectInfo ConnectInfo, + t1.CurrencyName CurrencyName, + t1.TotalBruttoHUF DebitTotalHUF, + 0 CreditTotalHUF, + t1.TotalBruttoDEV DebitTotalDEV, + 0 CreditTotalDEV, + t1.TotalBruttoHUF BallanceHUF, + t1.TotalBruttoDEV BallanceDEV, + '' ShortName, + t1.Description Description, + t1.DateExecution DateExecution, + t1.DateCreated DateCreated, + t1.DatePayment DatePayment, + DATEDIFF(d,t1.DatePayment,getdate()) DelayedDay, + case when DATEDIFF(d,t1.DatePayment,getdate())<=0 then 0 + when DATEDIFF(d,t1.DatePayment,getdate())>0 and DATEDIFF(d,t1.DatePayment,getdate())<=15 then 1 + when DATEDIFF(d,t1.DatePayment,getdate())>15 and DATEDIFF(d,t1.DatePayment,getdate())<=30 then 2 + when DATEDIFF(d,t1.DatePayment,getdate())>30 and DATEDIFF(d,t1.DatePayment,getdate())<=60 then 3 + when DATEDIFF(d,t1.DatePayment,getdate())>60 and DATEDIFF(d,t1.DatePayment,getdate())<=90 then 4 + when DATEDIFF(d,t1.DatePayment,getdate())>90 and DATEDIFF(d,t1.DatePayment,getdate())<=180 then 5 + when DATEDIFF(d,t1.DatePayment,getdate())>180 and DATEDIFF(d,t1.DatePayment,getdate())<=360 then 6 + when DATEDIFF(d,t1.DatePayment,getdate())>360 then 7 + end DelayedRange, + t1.CurrencyName CurrencyName_Account, + t1.TotalBruttoHUF AmountHUF_Account, + t1.TotalBruttoDEV AmountDEV_Account, + t1.DateExecution DateExecution_Account + from InvoiceHeader t1 + where t1.GLAccounts is null and + t1.IsEditable=0 and + t1.GCRecord is null + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 1 PartnerType, + t1.DocumentNumber ConnectInfo, + t1.F_CurrencyName CurrencyName, + t1.F_AmountBruttoHUF DebitTotalHUF, + 0 CreditTotalHUF, + t1.F_AmountBruttoDEV DebitTotalDEV, + 0 CreditTotalDEV, + t1.F_AmountBruttoHUF BallanceHUF, + t1.F_AmountBruttoDEV BallanceDEV, + '' ShortName, + '' Description, + t1.F_DateExecution DateExecution, + t1.F_DateCreated DateCreated, + t1.F_DatePayment DatePayment, + DATEDIFF(d,t1.F_DatePayment,getdate()) DelayedDay, + case when DATEDIFF(d,t1.F_DatePayment,getdate())<=0 then 0 + when DATEDIFF(d,t1.F_DatePayment,getdate())>0 and DATEDIFF(d,t1.F_DatePayment,getdate())<=15 then 1 + when DATEDIFF(d,t1.F_DatePayment,getdate())>15 and DATEDIFF(d,t1.F_DatePayment,getdate())<=30 then 2 + when DATEDIFF(d,t1.F_DatePayment,getdate())>30 and DATEDIFF(d,t1.F_DatePayment,getdate())<=60 then 3 + when DATEDIFF(d,t1.F_DatePayment,getdate())>60 and DATEDIFF(d,t1.F_DatePayment,getdate())<=90 then 4 + when DATEDIFF(d,t1.F_DatePayment,getdate())>90 and DATEDIFF(d,t1.F_DatePayment,getdate())<=180 then 5 + when DATEDIFF(d,t1.F_DatePayment,getdate())>180 and DATEDIFF(d,t1.F_DatePayment,getdate())<=360 then 6 + when DATEDIFF(d,t1.F_DatePayment,getdate())>360 then 7 + end DelayedRange, + t1.F_CurrencyName CurrencyName_Account, + t1.F_AmountBruttoHUF AmountHUF_Account, + t1.F_AmountBruttoDEV AmountDEV_Account, + t1.F_DateExecution DateExecution_Account + from RegistryHeader t1 + left join RegistryType t2 on t1.RegistryType=t2.Oid + where t1.GCRecord is null and + t1.F_GLAccounts is null and + t1.IsEditable=0 and + t1.IsStorno=0 and + t2.RegistryMainType=0 and + t1.RegistryAcceptState=0 + + + + + + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetailGroup.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetailGroup.sql new file mode 100644 index 0000000..82a0462 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_PartnerConnectionInfoDetailGroup.sql @@ -0,0 +1,70 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_PartnerConnectionInfoDetailGroup] Script Date: 05/18/2012 09:19:51 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + +CREATE view [dbo].[vv_PartnerConnectionInfoDetailGroup] +as + select MAX(convert(varchar(100),t1.Oid)) Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + max(t2.ShortName) Currency, + sum(t1.DebitTotalHUF) DebitTotalHUF, + SUM(t1.CreditTotalHUF) CreditTotalHUF, + sum(t1.DebitTotalDEV) DebitTotalDEV, + SUM(t1.CreditTotalDEV) CreditTotalDEV, + SUM(t1.BallanceHUF) BallanceHUF, + SUM(t1.BallanceDEV) BallanceDEV, + case when t1.PartnerType=1 then SUM(t1.BallanceHUF)*-1 else 0 end BallanceHUF_P, + case when t1.PartnerType=1 then SUM(t1.BallanceDEV)*-1 else 0 end BallanceDEV_P, + case when t1.PartnerType=0 then SUM(t1.BallanceHUF) else 0 end BallanceHUF_R, + case when t1.PartnerType=0 then SUM(t1.BallanceDEV) else 0 end BallanceDEV_R, + (case when t1.PartnerType=0 then SUM(t1.BallanceHUF) else 0 end) - + (case when t1.PartnerType=1 then SUM(t1.BallanceHUF)*-1 else 0 end) BallanceHUF_B, + (case when t1.PartnerType=0 then SUM(t1.BallanceDEV) else 0 end) - + (case when t1.PartnerType=1 then SUM(t1.BallanceDEV)*-1 else 0 end) BallanceDEV_B, + max(t3.ShortName) Currency_Account, + sum(t1.AmountHUF_Account) AmountHUF_Account, + sum(t1.AmountDEV_Account) AmountDEV_Account, + case when max(t3.ShortName)='HUF' then + case when round(SUM(t1.BallanceHUF),0)=0 then 1 + else 0 + end + else + case when round(SUM(t1.BallanceDEV),2)=0 then 1 + else 0 + end + end BallanceState, + case when max(t3.ShortName)='HUF' then -1 + when t1.CurrencyName_Account IS null then -1 + else + case when round(SUM(t1.BallanceDEV),2)=0 and round(SUM(t1.BallanceHUF),0)<>0 then 1 + else 0 + end + end BallanceRateDiff, + max(t4.DateExecution) DateExecution_Account, + MAX(t4.DateCreated) DateCreated_Account + from vv_PartnerConnectionInfoDetail t1 + left join CurrencyName t2 on t1.CurrencyName=t2.Oid + left join CurrencyName t3 on t1.CurrencyName_Account=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on + t1.CustomersFrom=t4.CustomersFrom and + t1.Customers=t4.Customers and + t1.PartnerType=t4.PartnerType and + t1.ConnectInfo=t4.ConnectInfo and + t4.MainType='01-Account' + + group by t1.CustomersFrom,t1.Customers,t1.PartnerType,t1.ConnectInfo,t1.CurrencyName_Account + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_ProductSelect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_ProductSelect.sql new file mode 100644 index 0000000..71267fb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_ProductSelect.sql @@ -0,0 +1,24 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_ProductSelect] Script Date: 05/18/2012 09:20:03 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + +CREATE view [dbo].[vv_ProductSelect] +as +select Oid=case when t2.Oid IS null then t1.Oid else t2.Oid end, + Products=t1.Oid, + StorageComputed=t2.oid +from Products t1 left join StorageComputed t2 on +t1.Oid=t2.Products +where t1.GCRecord is null and t2.GCRecord is null + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransfer.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransfer.sql new file mode 100644 index 0000000..74d1736 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransfer.sql @@ -0,0 +1,44 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_RegistryBankTransfer] Script Date: 05/18/2012 09:20:16 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + +CREATE view [dbo].[vv_RegistryBankTransfer] +as +select t1.Oid Oid, + t1.RegistryHeader RegistryHeader, + t1.AmountHUF AmountHUF, + t1.AmountDEV AmountDEV, + t1.DatePayment DatePayment, + t1.IsBlocked IsBlocked, + t1.Note Note, + t1.BankSavedFileName BankSavedFileName, + isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) BallanceHUF, + isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) BallanceDEV, + t1.AmountHUF-isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) DifferenceHUF, + t1.AmountDEV-isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) DifferenceDEV, + case when round(isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF),2)=0 then 0 + when isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF)>=t1.AmountHUF then t1.AmountHUF + when isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF)<=t1.AmountHUF then isnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) + end OfferedHUF, + case when round(isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV),2)=0 then 0 + when isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV)>=t1.AmountDEV then t1.AmountDEV + when isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV)<=t1.AmountDEV then isnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) + end OfferedDEV, + t1.BankPrepareName BankPrepareName + from RegistryBankTransfer t1 + join RegistryHeader t2 on t1.RegistryHeader=t2.Oid + left join PCIGroup t3 on t2.CustomersFrom=t3.CustomersFrom + and t2.Customers=t3.Customers and t3.PartnerType=1 and t2.DocumentNumber=t3.ConnectInfo + where t1.GCRecord is null and t2.RegistryAcceptState=0 + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransferPrepareName.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransferPrepareName.sql new file mode 100644 index 0000000..8fd9dab --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_RegistryBankTransferPrepareName.sql @@ -0,0 +1,20 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_RegistryBankTransferPrepareName] Script Date: 05/18/2012 09:20:31 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + +CREATE view [dbo].[vv_RegistryBankTransferPrepareName] +as + select max(convert(varchar(100),Oid)) Oid, + BankPrepareName + from RegistryBankTransfer + where Isnull(BankPrepareName,'')<>'' + group by BankPrepareName + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_WaitforRateDiff.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_WaitforRateDiff.sql new file mode 100644 index 0000000..8e9f0af --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MSSQL/vv_WaitforRateDiff.sql @@ -0,0 +1,92 @@ +USE [SISTEST] +GO + +/****** Object: View [dbo].[vv_WaitforRateDiff] Script Date: 05/18/2012 09:20:45 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + + + + + + +CREATE view [dbo].[vv_WaitforRateDiff] +as +select t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.PartnerType PartnerType, + t1.Customer Customers, + t1.ConnectInfo ConnectInfo, + t3.DateExecution DateExecution_Account, + t3.CurrencyName CurrencyName_Account, + round(t4.AmountDEV_Account,2) AmountDEV_Account, + round(t4.AmountHUF_Account,2) AmountHUF_Account, + round(t4.BallanceDEV,2) BallanceDEV_Account, + case when round(t4.AmountDEV_Account,2)<>0 then round(round(t4.AmountHUF_Account,2)/round(t4.AmountDEV_Account,2),2) else 0 end CurrencyRate_Account, + t1.LiquidAssets LiquidAssets, + t2.DateExecution DateExecution, + round(t1.InAmountDEV,2) InAmountDEV, + round(t1.OutAmountDEV,2) OutAmountDEV, + round(t1.InAmountDEV2,2) InAmountDEV2, + round(t1.OutAmountDEV2,2) OutAmountDEV2, + case when InAmountHUF>0 then + case when t1.InAmountDEV <>0 then round(t1.InAmountHUF,2)/round(t1.InAmountDEV,2) + else 0 + end + else + case when t1.OutAmountDEV <>0 then round(t1.OutAmountHUF,2)/round(t1.OutAmountDEV,2) + else 0 + end + end CurrencyRate, + round(t1.InAmountHUF,2) InAmountHUF, + round(t1.OutAmountHUF,2) OutAmountHUF, + case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end InAmountHUF_Account, + case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end OutAmountHUF_Account, + case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end - round(t1.InAmountHUF,2) InAmountHUF_Diff, + case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end - round(t1.OutAmountHUF,2) OutAmountHUF_Diff, + t1.GLRowsRatediff GLRowsRatediff, + case when t1.PartnerType = 0 Then + case when case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end - round(t1.InAmountHUF,2) > 0 Then -1 + else 1 + end + when t1.PartnerType = 1 Then + case when case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end - round(t1.OutAmountHUF,2) > 0 Then 1 + else -1 + end + else 0 + end RateDiffState +from GLRows t1 + left join GLHeader t2 on t1.GLHeader=t2.Oid + join vv_PartnerConnectionInfoAccount t3 on t2.CustomersFrom=t3.CustomersFrom + and t1.PartnerType=t3.PartnerType and t1.Customer=t3.Customers and t1.ConnectInfo=t3.ConnectInfo + left join PCIGroup t4 on t2.CustomersFrom=t4.CustomersFrom + and t1.PartnerType=t4.PartnerType and t1.Customer=t4.Customers and t1.ConnectInfo=t4.ConnectInfo + left join LiquidAssets t5 on t1.LiquidAssets=t5.Oid + left join CurrencyName t6 on t5.CurrencyName=t6.Oid + left join CurrencyName t7 on t3.CurrencyName=t7.Oid +where t2.GCRecord is null and + t2.GLDocumentType in (2,3,4) and + t6.ShortName <> 'HUF' and isnull(t7.ShortName,'HUF')<>'HUF' and + ((t1.PartnerType=0 and t1.InAmountHUF>0) or (t1.PartnerType=1 and t1.OutAmountHUF>0)) + + + + + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_GLAccountRowsforBookEntry.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_GLAccountRowsforBookEntry.sql new file mode 100644 index 0000000..806a63f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_GLAccountRowsforBookEntry.sql @@ -0,0 +1,183 @@ +CREATE VIEW vv_GLAccountRowsforBookEntry +AS +SELECT 1 PartnerType, + 0 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.F_DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + CASE WHEN ifnull(t1.IsReinvoice,0)=0 THEN t3.ChartOfAccounts + ELSE t3.ChartOfAccounts2 + END DebitChartOfAccounts, + t5.ChartOfAccountsIn CreditChartOfAccounts, + t1.Controlling Controlling, + t1.JobNumberObjects JobNumberObjects, + t7.UniqueObjects UniqueObjects, + t1.CostPlace CostPlace, + t1.CostHolder CostHolder, + t2.F_CurrencyRate CurrencyRate, + t1.Amount AmountHUF, + CASE WHEN t2.F_CurrencyRate<>0 and t6.ShortName<>'HUF' THEN ROUND(t1.Amount/t2.F_CurrencyRate,2) ELSE 0 END AmountDEV, + t2.ShortName Note1, + '' Note2, + NULL VAT, + t1.ChartOfAccounts ChartOfAccounts2, + ifnull(t1.IsReinvoice,0) IsReinvoice, + t1.ContractRows ContractRows, + ifnull(t1.F_ReadyforBookEntryRows,0) ReadyforBookEntryRows, + t2.Oid RegistryHeader, + Null InvoiceHeader, + t2.CurrentWorkflowSystemSteps WorkflowSystemSteps, + t1.WorkflowMessage WorkflowMessage +from RegistryRowsFinancialControlling t1 join RegistryHeader t2 on + t1.RegistryHeader=t2.Oid LEFT JOIN Controlling t3 ON + t1.Controlling=t3.Oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.F_CurrencyName=t6.Oid LEFT JOIN ContractRows t7 ON + t1.ContractRows=t7.Oid +WHERE t1.GCRecord IS NULL AND + ifnull(t2.IsEditable,0)=0 AND + t2.F_GLAccounts IS NULL AND + ifnull(t1.F_ReadyforBookEntryRows,0)=0 + +UNION ALL + +SELECT 1 PartnerType, + 1 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + ifnull(ifnull(t1.DateVAT,t2.F_DateVAT),t2.F_DateExecution) DateExecution, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + t3.ChartOfAccountsIn DebitChartOfAccounts, + case when ifnull(t3.InversState,0)=1 then t3.ChartOfAccountsOut + else t5.ChartOfAccountsIn end CreditChartOfAccounts, + NULL Controlling, + NULL JobNumberObjects, + NULL UniqueObjects, + NULL CostPlace, + NULL CostHolder, + 1 CurrencyRate, + CASE WHEN t1.VAT IS NULL THEN 0 + WHEN t1.VAT IS NOT NULL THEN + case when t3.InversState=0 then ROUND(t1.BruttoAmount/(1+t3.KeyValue)*t3.KeyValue,0) + else ROUND(t1.BruttoAmount*t3.InversKeyValue,0) end + END AmountHUF, + 0 AmountDEV, + t2.ShortName Note1, + '' Note2, + t1.VAT VAT, + NULL ChartOfAccounts2, + 0 IsReinvoice, + NULL ContractRows, + ifnull(t1.F_ReadyforBookEntryRows,0) ReadyforBookEntryRows, + t2.Oid RegistryHeader, + NULL InvoiceHeader, + t2.CurrentWorkflowSystemSteps WorkflowSystemSteps, + '' WorkflowMessage +from RegistryRowsFinancial t1 join RegistryHeader t2 on + t1.RegistryHeader=t2.Oid LEFT JOIN VAT t3 ON + t1.VAT=t3.oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.F_CurrencyName=t6.Oid +WHERE t1.GCRecord IS NULL AND + ifnull(t2.IsEditable,0)=0 AND + t2.F_GLAccounts IS NULL AND + ifnull(t1.F_ReadyforBookEntryRows,0)=0 + +UNION ALL + +SELECT 0 PartnerType, + 0 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + '' RegistryNumber, + t5.ChartOfAccountsOut DebitChartOfAccounts, + ifnull(t9.ChartOfAccounts,t3.ChartOfAccounts) CreditChartOfAccounts, + ifnull(t8.Controlling,t1.Controlling) Controlling, + ifnull(t8.JobNumberObjects,t1.JobNumberObjects) JobNumberObjects, + ifnull(t8.UniqueObjects,t1.UniqueObjects) UniqueObjects, + ifnull(t8.CostPlace,t1.CostPlace) CostPlace, + ifnull(t8.CostHolder,t1.CostHolder) CostHolder, + t2.CurrencyRate CurrencyRate, + (t1.ListPriceHUF-t1.DiscountPriceHUF)*t1.QTT AmountHUF, + (t1.ListPriceDEV-t1.DiscountPriceDEV)*t1.QTT AmountDEV, + t2.Description Note1, + '' Note2, + NULL VAT, + t1.ChartOfAccounts ChartOfAccounts2, + 0 IsReinvoice, + t1.ContractRows ContractRows, + ifnull(t1.ReadyforBookEntryRows,0) ReadyforBookEntryRows, + NULL RegistryHeader, + t2.Oid InvoiceHeader, + t1.WorkflowSystemSteps WorkflowSystemSteps, + '' WorkflowMessage +FROM InvoiceRows t1 JOIN InvoiceHeader t2 ON + t1.InvoiceHeader=t2.Oid LEFT JOIN Controlling t3 ON + t1.Controlling=t3.Oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.CurrencyName=t6.Oid LEFT JOIN InvoiceType t7 ON + t2.InvoiceType=t7.Oid LEFT JOIN ContractRows t8 ON + t1.ContractRows=t8.Oid LEFT JOIN Controlling t9 ON + t8.Controlling=t9.Oid +WHERE t1.GCRecord IS NULL AND + ifnull(t2.IsEditable,0)=0 AND + t2.GLAccounts IS NULL AND + ifnull(t1.ReadyforBookEntryRows,0)=0 AND + t7.InvoiceTypeBase in (1,2,3) and + ifnull(t2.IsProforma,0)=0 + +UNION ALL + +SELECT 0 PartnerType, + 1 GLRowsTypeVAT, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t2.Customers Customers, + t2.DateExecution DateExecution, + t2.DocumentNumber DocumentNumber, + '' RegistryNumber, + t5.ChartOfAccountsOut DebitChartOfAccounts, + t3.ChartOfAccountsOut CreditChartOfAccounts, + NULL Controlling, + NULL JobNumberObjects, + NULL UniqueObjects, + NULL CostPlace, + NULL CostHolder, + 1 CurrencyRate, + t1.AmountVATHUF AmountHUF, + t1.AmountVATDEV AmountDEV, + t2.Description Note1, + '' Note2, + t1.VAT VAT, + NULL ChartOfAccounts2, + 0 IsReinvoice, + NULL ContractRows, + ifnull(t1.ReadyforBookEntryRows,0) ReadyforBookEntryRows, + NULL RegistryHeader, + t2.Oid InvoiceHeader, + Null WorkflowSystemSteps, + '' WorkflowMessage +from InvoiceVATRows t1 join InvoiceHeader t2 on + t1.InvoiceHeader=t2.Oid LEFT JOIN VAT t3 ON + t1.VAT=t3.oid LEFT JOIN Customers t4 ON + t2.Customers=t4.Oid LEFT JOIN CustomersGLParameters t5 ON + t4.CustomersGLParameters=t5.Oid LEFT JOIN CurrencyName t6 ON + t2.CurrencyName=t6.Oid LEFT JOIN InvoiceType t7 ON + t2.InvoiceType=t7.Oid +WHERE t1.GCRecord IS NULL AND + ifnull(t2.IsEditable,0)=0 AND + t2.GLAccounts IS NULL AND + ifnull(t1.ReadyforBookEntryRows,0)=0 AND + ifnull(t2.IsProforma,0)=0 AND + t7.InvoiceTypeBase in (1,2,3) diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAccount.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAccount.sql new file mode 100644 index 0000000..d2bef4f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAccount.sql @@ -0,0 +1,81 @@ +CREATE view vv_PartnerConnectionInfoAccount +as + select '01-Account' MainType, + t2.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t2.DocumentNumber ConnectInfo, + t2.CurrencyName CurrencyName, + sum(t1.AmountHUF) BallanceHUF, + sum(t1.AmountDEV) BallanceDEV, + t3.ShortName Currency, + t2.DatePayment DatePayment, + t2.DateCreated DateCreated, + t2.DateExecution DateExecution, + t2.CurrencyRate CurrencyRate, + t2.DocumentNumber DocumentNumber, + max(t2.RegistryNumber) RegistryNumber + from GLRows t1 join GLHeader t2 on + t1.GLHeader=t2.Oid left join CurrencyName t3 on + t2.CurrencyName=t3.Oid + where t2.GCRecord is null and + t2.GLDocumentType=1 and + ifnull(t2.IsEditable,0)=0 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t2.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t2.DocumentNumber,t2.CurrencyName,t3.ShortName,t2.DateExecution,t2.DatePayment, + t2.DateCreated,t2.DateExecution,t2.CurrencyRate + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 0 PartnerType, + t1.DocumentNumber ConnectInfo, + t1.CurrencyName CurrencyName, + t1.TotalBruttoHUF BallanceHUF, + t1.TotalBruttoDEV BallanceDEV, + t3.ShortName Currency, + t1.DatePayment DatePayment, + t1.DateCreated DateCreated, + t1.DateExecution DateExecution, + t1.CurrencyRate CurrencyRate, + t1.DocumentNumber DocumentNumber, + t1.DocumentNumber RegistryNumber + from InvoiceHeader t1 left join CurrencyName t3 on + t1.CurrencyName=t3.Oid + where t1.GLAccounts is null and + t1.IsEditable=0 and + t1.GCRecord is null + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 1 PartnerType, + t1.DocumentNumber ConnectInfo, + t1.F_CurrencyName CurrencyName, + t1.F_AmountBruttoHUF BallanceHUF, + t1.F_AmountBruttoDEV BallanceDEV, + t3.ShortName Currency, + t1.F_DatePayment DatePayment, + t1.F_DateCreated DateCreated, + t1.F_DateExecution DateExecution, + t1.F_CurrencyRate CurrencyRate, + t1.DocumentNumber DocumentNumber, + t1.RegistryNumber RegistryNumber + from RegistryHeader t1 left join RegistryType t2 on + t1.RegistryType=t2.Oid left join CurrencyName t3 on + t1.F_CurrencyName=t3.Oid + where t1.GCRecord is null and + t1.F_GLAccounts is null and + t1.IsEditable=0 and + t1.IsStorno=0 and + t2.RegistryMainType=0 and + t1.RegistryAcceptState=0 \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAged.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAged.sql new file mode 100644 index 0000000..54ba6fd --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoAged.sql @@ -0,0 +1,22 @@ +CREATE view vv_PartnerConnectionInfoAged +as + select t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.DocumentNumber DocumentNumber, + t2.RegistryNumber RegistryNumber, + t1.DateExecution_Account DateExecution, + t1.DatePayment_Account DatePayment, + t1.CurrencyName_Account CurrencyName_Account, + t1.AmountHUF_Account AmountHUF, + t1.AmountDEV_Account AmountDEV, + t1.BallanceHUF BallanceHUF, + t1.BallanceDEV BallanceDEV + from PCIDetail t1 join + vv_PartnerConnectionInfoAccount t2 on + t1.CustomersFrom=t2.CustomersFrom and + t1.Customers=t2.Customers and + t1.PartnerType=t2.PartnerType and + t1.ConnectInfo=t2.ConnectInfo \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoConnect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoConnect.sql new file mode 100644 index 0000000..711a151 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoConnect.sql @@ -0,0 +1,36 @@ +CREATE view vv_PartnerConnectionInfoConnect +as + select + t1.MainType MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t1.CurrencyName CurrencyName, + t1.DebitTotalHUF DebitTotalHUF, + t1.CreditTotalHUF CreditTotalHUF, + t1.DebitTotalDEV DebitTotalDEV, + t1.CreditTotalDEV CreditTotalDEV, + t1.BallanceHUF BallanceHUF, + t1.BallanceDEV BallanceDEV, + t1.ShortName ShortName, + t1.Description Description, + t1.DateExecution DateExecution, + t1.DateCreated DateCreated, + t1.DatePayment DatePayment, + t1.DelayedDay DelayedDay, + t1.DelayedRange DelayedRange, + t1.CurrencyName_Account CurrencyName_Account, + t1.AmountHUF_Account AmountHUF_Account, + t1.AmountDEV_Account AmountDEV_Account, + t1.DateExecution_Account DateExecution_Account, + t2.BallanceState BallanceState, + t2.BallanceRateDiff BallanceRateDiff + from vv_PartnerConnectionInfoDetail t1 + join vv_PartnerConnectionInfoDetailGroup t2 on + t1.CustomersFrom=t2.CustomersFrom and + t1.Customers=t2.Customers and + t1.PartnerType=t2.PartnerType and + t1.ConnectInfo=t2.ConnectInfo + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetail.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetail.sql new file mode 100644 index 0000000..6a262db --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetail.sql @@ -0,0 +1,405 @@ +CREATE view vv_PartnerConnectionInfoDetail +as + select '01-Account' MainType, + t2.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.CurrencyName CurrencyName, + max(t3.AmountHUFBrutto) DebitTotalHUF, + 0 CreditTotalHUF, + max(t3.AmountDEVBrutto) DebitTotalDEV, + 0 CreditTotalDEV, + max(t3.AmountHUFBrutto) BallanceHUF, + max(t3.AmountDEVBrutto) BallanceDEV, + '' ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateCreated DateCreated, + t2.DatePayment DatePayment, + DATEDIFF(t2.DatePayment,curdate()) DelayedDay, + case when DATEDIFF(t2.DatePayment,curdate())<=0 then 0 + when DATEDIFF(t2.DatePayment,curdate())>0 and DATEDIFF(t2.DatePayment,curdate())<=15 then 1 + when DATEDIFF(t2.DatePayment,curdate())>15 and DATEDIFF(t2.DatePayment,curdate())<=30 then 2 + when DATEDIFF(t2.DatePayment,curdate())>30 and DATEDIFF(t2.DatePayment,curdate())<=60 then 3 + when DATEDIFF(t2.DatePayment,curdate())>60 and DATEDIFF(t2.DatePayment,curdate())<=90 then 4 + when DATEDIFF(t2.DatePayment,curdate())>90 and DATEDIFF(t2.DatePayment,curdate())<=180 then 5 + when DATEDIFF(t2.DatePayment,curdate())>180 and DATEDIFF(t2.DatePayment,curdate())<=360 then 6 + when DATEDIFF(t2.DatePayment,curdate())>360 then 7 + end DelayedRange, + t2.CurrencyName CurrencyName_Account, + sum(t1.AmountHUF) AmountHUF_Account, + sum(t1.AmountDEV) AmountDEV_Account, + t2.DateExecution DateExecution_Account + from GLRows t1 join GLHeader t2 on + t1.GLHeader=t2.Oid join GLAccounts t3 on + t1.GLHeader=t3.Oid + where t2.GCRecord is null and + t2.GLDocumentType=1 and + t2.IsEditable=0 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t2.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t2.CurrencyName,t2.DateExecution,t2.DateCreated,t2.DatePayment + + union all + + select '02-Bank' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.InAmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.OutAmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.OutAmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.InAmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + else 0 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+ifnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t4.DatePayment DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLBank t5 on t2.Oid=t5.Oid + left join LiquidAssets t3 on t5.LiquidAssets_Main=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom + and t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType=2 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '03-Cassa' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+ifnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t4.DatePayment DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLCassa t5 on t2.Oid=t5.Oid + left join LiquidAssets t3 on t5.LiquidAssets_Cassa=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType=3 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '05-Ratediff' MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t2.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + 0 CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + 0 BallanceDEV, + max(ifnull(t7.ShortName,'')+', '++ifnull(t8.DocumentNumber,'')+', '+ifnull(t2.DocumentNumber,'')) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + Null DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join LiquidAssets t3 on t1.LiquidAssets=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + left join GLRows t6 on + t1.GLRowsRateDiff=t6.Oid left join LiquidAssets t7 on + t6.LiquidAssets=t7.oid left join GLHeader t8 on + t6.GLHeader=t8.oid + where t2.GCRecord is null and + t2.GLDocumentType=5 and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t2.CurrencyName,t2.DateExecution,t2.DatePayment,t4.CurrencyName + + union all + + select case when max(t2.GLDocumentType)=4 then '04-Compensation' + when max(t2.GLDocumentType)=0 then '06-Mixed' + end MainType, + t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.Customer Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + t3.CurrencyName CurrencyName, + 0 DebitTotalHUF, + case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountHUF)*-1 + when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalHUF, + 0 DebitTotalDEV, + case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName then sum(t1.InAmountDEV2)*-1 + end CreditTotalDEV, + (case when t1.PartnerType=0 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=0 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountHUF)<>0 then sum(t1.AmountHUF) + when t1.PartnerType=1 and sum(t1.InAmountHUF)<>0 then sum(t1.AmountHUF)*-1 + end)*-1 BallanceHUF, + (case when t1.PartnerType=0 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=0 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV) + when t1.PartnerType=1 and sum(t1.InAmountDEV)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)=t3.CurrencyName then sum(t1.AmountDEV)*-1 + when t1.PartnerType=0 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.InAmountDEV2) + when t1.PartnerType=0 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2)*-1 + when t1.PartnerType=1 and sum(t1.OutAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF' then sum(t1.OutAmountDEV2) + when t1.PartnerType=1 and sum(t1.InAmountDEV2)<>0 and + ifnull(t4.CurrencyName,t3.CurrencyName)<>t3.CurrencyName and t4.Currency<>'HUF'then sum(t1.InAmountDEV2)*-1 + else 0 + end)*-1 BallanceDEV, + max(t3.ShortName+', '+t2.DocumentNumber) ShortName, + '' Description, + t2.DateExecution DateExecution, + t2.DateExecution DateCreated, + t2.DateExecution DatePayment, + 0 DelayedDay, + '' DelayedRange, + t4.CurrencyName CurrencyName_Account, + 0 AmountHUF_Account, + 0 AmountDEV_Account, + max(t4.DateExecution) DateExecution_Account + from GLRows t1 + join GLHeader t2 on t1.GLHeader=t2.Oid + left join GLCompensation t5 on t2.Oid=t5.Oid left + join LiquidAssets t3 on t5.LiquidAssets_Main=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on t2.CustomersFrom=t4.CustomersFrom and + t1.Customer=t4.Customers and t1.PartnerType=t4.PartnerType and t1.ConnectInfo=t4.ConnectInfo + where t2.GCRecord is null and + t2.GLDocumentType in (4,0) and + t1.PartnerType in (0,1) and + t1.GCRecord is null + group by t1.Oid,t2.CustomersFrom,t1.Customer,t1.PartnerType, + t1.ConnectInfo,t3.CurrencyName,t4.Currency,t2.DateExecution,t4.DatePayment,t4.CurrencyName + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 0 PartnerType, + t1.ConnectInfo ConnectInfo, + t1.CurrencyName CurrencyName, + t1.TotalBruttoHUF DebitTotalHUF, + 0 CreditTotalHUF, + t1.TotalBruttoDEV DebitTotalDEV, + 0 CreditTotalDEV, + t1.TotalBruttoHUF BallanceHUF, + t1.TotalBruttoDEV BallanceDEV, + '' ShortName, + t1.Description Description, + t1.DateExecution DateExecution, + t1.DateCreated DateCreated, + t1.DatePayment DatePayment, + DATEDIFF(t1.DatePayment,curdate()) DelayedDay, + case when DATEDIFF(t1.DatePayment,curdate())<=0 then 0 + when DATEDIFF(t1.DatePayment,curdate())>0 and DATEDIFF(t1.DatePayment,curdate())<=15 then 1 + when DATEDIFF(t1.DatePayment,curdate())>15 and DATEDIFF(t1.DatePayment,curdate())<=30 then 2 + when DATEDIFF(t1.DatePayment,curdate())>30 and DATEDIFF(t1.DatePayment,curdate())<=60 then 3 + when DATEDIFF(t1.DatePayment,curdate())>60 and DATEDIFF(t1.DatePayment,curdate())<=90 then 4 + when DATEDIFF(t1.DatePayment,curdate())>90 and DATEDIFF(t1.DatePayment,curdate())<=180 then 5 + when DATEDIFF(t1.DatePayment,curdate())>180 and DATEDIFF(t1.DatePayment,curdate())<=360 then 6 + when DATEDIFF(t1.DatePayment,curdate())>360 then 7 + end DelayedRange, + t1.CurrencyName CurrencyName_Account, + t1.TotalBruttoHUF AmountHUF_Account, + t1.TotalBruttoDEV AmountDEV_Account, + t1.DateExecution DateExecution_Account + from InvoiceHeader t1 + where t1.GLAccounts is null and + t1.IsEditable=0 and + t1.GCRecord is null + + union all + + select '01-Account' MainType, + t1.Oid Oid, + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + 1 PartnerType, + t1.DocumentNumber ConnectInfo, + t1.F_CurrencyName CurrencyName, + t1.F_AmountBruttoHUF DebitTotalHUF, + 0 CreditTotalHUF, + t1.F_AmountBruttoDEV DebitTotalDEV, + 0 CreditTotalDEV, + t1.F_AmountBruttoHUF BallanceHUF, + t1.F_AmountBruttoDEV BallanceDEV, + '' ShortName, + '' Description, + t1.F_DateExecution DateExecution, + t1.F_DateCreated DateCreated, + t1.F_DatePayment DatePayment, + DATEDIFF(t1.F_DatePayment,curdate()) DelayedDay, + case when DATEDIFF(t1.F_DatePayment,curdate())<=0 then 0 + when DATEDIFF(t1.F_DatePayment,curdate())>0 and DATEDIFF(t1.F_DatePayment,curdate())<=15 then 1 + when DATEDIFF(t1.F_DatePayment,curdate())>15 and DATEDIFF(t1.F_DatePayment,curdate())<=30 then 2 + when DATEDIFF(t1.F_DatePayment,curdate())>30 and DATEDIFF(t1.F_DatePayment,curdate())<=60 then 3 + when DATEDIFF(t1.F_DatePayment,curdate())>60 and DATEDIFF(t1.F_DatePayment,curdate())<=90 then 4 + when DATEDIFF(t1.F_DatePayment,curdate())>90 and DATEDIFF(t1.F_DatePayment,curdate())<=180 then 5 + when DATEDIFF(t1.F_DatePayment,curdate())>180 and DATEDIFF(t1.F_DatePayment,curdate())<=360 then 6 + when DATEDIFF(t1.F_DatePayment,curdate())>360 then 7 + end DelayedRange, + t1.F_CurrencyName CurrencyName_Account, + t1.F_AmountBruttoHUF AmountHUF_Account, + t1.F_AmountBruttoDEV AmountDEV_Account, + t1.F_DateExecution DateExecution_Account + from RegistryHeader t1 + left join RegistryType t2 on t1.RegistryType=t2.Oid + where t1.GCRecord is null and + t1.F_GLAccounts is null and + t1.IsEditable=0 and + t1.IsStorno=0 and + t2.RegistryMainType=0 and + t1.RegistryAcceptState=0 \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetailGroup.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetailGroup.sql new file mode 100644 index 0000000..e153b12 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_PartnerConnectionInfoDetailGroup.sql @@ -0,0 +1,54 @@ +CREATE view vv_PartnerConnectionInfoDetailGroup +as + SELECT MAX(CAST(t1.Oid AS CHAR(100))) Oid, /*varchart nem ismeri???*/ + t1.CustomersFrom CustomersFrom, + t1.Customers Customers, + t1.PartnerType PartnerType, + t1.ConnectInfo ConnectInfo, + max(t2.ShortName) Currency, + sum(t1.DebitTotalHUF) DebitTotalHUF, + SUM(t1.CreditTotalHUF) CreditTotalHUF, + sum(t1.DebitTotalDEV) DebitTotalDEV, + SUM(t1.CreditTotalDEV) CreditTotalDEV, + SUM(t1.BallanceHUF) BallanceHUF, + SUM(t1.BallanceDEV) BallanceDEV, + case when t1.PartnerType=1 then SUM(t1.BallanceHUF)*-1 else 0 end BallanceHUF_P, + case when t1.PartnerType=1 then SUM(t1.BallanceDEV)*-1 else 0 end BallanceDEV_P, + case when t1.PartnerType=0 then SUM(t1.BallanceHUF) else 0 end BallanceHUF_R, + case when t1.PartnerType=0 then SUM(t1.BallanceDEV) else 0 end BallanceDEV_R, + (case when t1.PartnerType=0 then SUM(t1.BallanceHUF) else 0 end) - + (case when t1.PartnerType=1 then SUM(t1.BallanceHUF)*-1 else 0 end) BallanceHUF_B, + (case when t1.PartnerType=0 then SUM(t1.BallanceDEV) else 0 end) - + (case when t1.PartnerType=1 then SUM(t1.BallanceDEV)*-1 else 0 end) BallanceDEV_B, + max(t3.ShortName) Currency_Account, + sum(t1.AmountHUF_Account) AmountHUF_Account, + sum(t1.AmountDEV_Account) AmountDEV_Account, + case when max(t3.ShortName)='HUF' then + case when round(SUM(t1.BallanceHUF),0)=0 then 1 + else 0 + end + else + case when round(SUM(t1.BallanceDEV),2)=0 then 1 + else 0 + end + end BallanceState, + case when max(t3.ShortName)='HUF' then -1 + when t1.CurrencyName_Account IS null then -1 + else + case when round(SUM(t1.BallanceDEV),2)=0 and round(SUM(t1.BallanceHUF),0)<>0 then 1 + else 0 + end + end BallanceRateDiff, + max(t4.DateExecution) DateExecution_Account, + MAX(t4.DateCreated) DateCreated_Account + from vv_PartnerConnectionInfoDetail t1 + left join CurrencyName t2 on t1.CurrencyName=t2.Oid + left join CurrencyName t3 on t1.CurrencyName_Account=t3.Oid + left join vv_PartnerConnectionInfoAccount t4 on + t1.CustomersFrom=t4.CustomersFrom and + t1.Customers=t4.Customers and + t1.PartnerType=t4.PartnerType and + t1.ConnectInfo=t4.ConnectInfo and + t4.MainType='01-Account' + + group by t1.CustomersFrom,t1.Customers,t1.PartnerType,t1.ConnectInfo,t1.CurrencyName_Account \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_ProductSelect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_ProductSelect.sql new file mode 100644 index 0000000..6c6ab5a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_ProductSelect.sql @@ -0,0 +1,8 @@ +CREATE view vv_ProductSelect +as +select case when t2.Oid IS null then t1.Oid else t2.Oid end Oid, + t1.Oid Products, + t2.oid StorageComputed +from Products t1 left join StorageComputed t2 on +t1.Oid=t2.Products +where t1.GCRecord is null and t2.GCRecord is null diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransfer.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransfer.sql new file mode 100644 index 0000000..678eba8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransfer.sql @@ -0,0 +1,28 @@ +CREATE view vv_RegistryBankTransfer +as +select t1.Oid Oid, + t1.RegistryHeader RegistryHeader, + t1.AmountHUF AmountHUF, + t1.AmountDEV AmountDEV, + t1.DatePayment DatePayment, + t1.IsBlocked IsBlocked, + t1.Note Note, + t1.BankSavedFileName BankSavedFileName, + ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) BallanceHUF, + ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) BallanceDEV, + t1.AmountHUF-ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) DifferenceHUF, + t1.AmountDEV-ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) DifferenceDEV, + case when round(ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF),2)=0 then 0 + when ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF)>=t1.AmountHUF then t1.AmountHUF + when ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF)<=t1.AmountHUF then ifnull(t3.BallanceHUF,t2.F_AmountBruttoHUF) + end OfferedHUF, + case when round(ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV),2)=0 then 0 + when ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV)>=t1.AmountDEV then t1.AmountDEV + when ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV)<=t1.AmountDEV then ifnull(t3.BallanceDEV,t2.F_AmountBruttoDEV) + end OfferedDEV, + t1.BankPrepareName BankPrepareName + from RegistryBankTransfer t1 + join RegistryHeader t2 on t1.RegistryHeader=t2.Oid + left join PCIGroup t3 on t2.CustomersFrom=t3.CustomersFrom + and t2.Customers=t3.Customers and t3.PartnerType=1 and t2.DocumentNumber=t3.ConnectInfo + where t1.GCRecord is null and t2.RegistryAcceptState=0 \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransferPrepareName.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransferPrepareName.sql new file mode 100644 index 0000000..81d9dcc --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_RegistryBankTransferPrepareName.sql @@ -0,0 +1,7 @@ +CREATE view vv_RegistryBankTransferPrepareName +as + select MAX(CAST(Oid AS CHAR(100))) Oid, + BankPrepareName + from RegistryBankTransfer + where Ifnull(BankPrepareName,'')<>'' + group by BankPrepareName diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_WaitforRateDiff.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_WaitforRateDiff.sql new file mode 100644 index 0000000..0b9a53c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/MySQL/vv_WaitforRateDiff.sql @@ -0,0 +1,70 @@ +CREATE view vv_WaitforRateDiff +as +select t1.Oid Oid, + t2.CustomersFrom CustomersFrom, + t1.PartnerType PartnerType, + t1.Customer Customers, + t1.ConnectInfo ConnectInfo, + t3.DateExecution DateExecution_Account, + t3.CurrencyName CurrencyName_Account, + round(t4.AmountDEV_Account,2) AmountDEV_Account, + round(t4.AmountHUF_Account,2) AmountHUF_Account, + round(t4.BallanceDEV,2) BallanceDEV_Account, + case when round(t4.AmountDEV_Account,2)<>0 then round(round(t4.AmountHUF_Account,2)/round(t4.AmountDEV_Account,2),2) else 0 end CurrencyRate_Account, + t1.LiquidAssets LiquidAssets, + t2.DateExecution DateExecution, + round(t1.InAmountDEV,2) InAmountDEV, + round(t1.OutAmountDEV,2) OutAmountDEV, + round(t1.InAmountDEV2,2) InAmountDEV2, + round(t1.OutAmountDEV2,2) OutAmountDEV2, + case when InAmountHUF>0 then + case when t1.InAmountDEV <>0 then round(t1.InAmountHUF,2)/round(t1.InAmountDEV,2) + else 0 + end + else + case when t1.OutAmountDEV <>0 then round(t1.OutAmountHUF,2)/round(t1.OutAmountDEV,2) + else 0 + end + end CurrencyRate, + round(t1.InAmountHUF,2) InAmountHUF, + round(t1.OutAmountHUF,2) OutAmountHUF, + case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end InAmountHUF_Account, + case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end OutAmountHUF_Account, + case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end - round(t1.InAmountHUF,2) InAmountHUF_Diff, + case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end - round(t1.OutAmountHUF,2) OutAmountHUF_Diff, + t1.GLRowsRatediff GLRowsRatediff, + case when t1.PartnerType = 0 Then + case when case when t3.CurrencyName=t5.CurrencyName then round(t1.InAmountDEV,2)* round(t3.CurrencyRate,2) + else round(t1.InAmountDEV2,2)* round(t3.CurrencyRate,2) + end - round(t1.InAmountHUF,2) > 0 Then -1 + else 1 + end + when t1.PartnerType = 1 Then + case when case when t3.CurrencyName=t5.CurrencyName then round(t1.OutAmountDEV,2)*round(t3.CurrencyRate,2) + else round(t1.OutAmountDEV2,2)*round(t3.CurrencyRate,2) + end - round(t1.OutAmountHUF,2) > 0 Then 1 + else -1 + end + else 0 + end RateDiffState +from GLRows t1 + left join GLHeader t2 on t1.GLHeader=t2.Oid + join vv_PartnerConnectionInfoAccount t3 on t2.CustomersFrom=t3.CustomersFrom + and t1.PartnerType=t3.PartnerType and t1.Customer=t3.Customers and t1.ConnectInfo=t3.ConnectInfo + left join PCIGroup t4 on t2.CustomersFrom=t4.CustomersFrom + and t1.PartnerType=t4.PartnerType and t1.Customer=t4.Customers and t1.ConnectInfo=t4.ConnectInfo + left join LiquidAssets t5 on t1.LiquidAssets=t5.Oid + left join CurrencyName t6 on t5.CurrencyName=t6.Oid + left join CurrencyName t7 on t3.CurrencyName=t7.Oid +where t2.GCRecord is null and + t2.GLDocumentType in (2,3,4) and + t6.ShortName <> 'HUF' and ifnull(t7.ShortName,'HUF')<>'HUF' and + ((t1.PartnerType=0 and t1.InAmountHUF>0) or (t1.PartnerType=1 and t1.OutAmountHUF>0)) \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_GLAccountRowsforBookEntry.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_GLAccountRowsforBookEntry.sql new file mode 100644 index 0000000..5f5ddb8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_GLAccountRowsforBookEntry.sql @@ -0,0 +1,193 @@ + + +SELECT 1 As "PartnerType", + 0 As "GLRowsTypeVAT", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t2."Customers" As "Customers", + t2."F_DateExecution" As "DateExecution", + t2."DocumentNumber" As "DocumentNumber", + t2."RegistryNumber" As "RegistryNumber", + CASE WHEN coalesce(t1."IsReInvoice",false)=false THEN t3."ChartOfAccounts" + ELSE t8."ChartOfAccounts2" + END As "DebitChartOfAccounts", + t9."ChartOfAccountsIn" As "CreditChartOfAccounts", + t1."Controlling" As "Controlling", + t1."JobNumberObjects" As "JobNumberObjects", + t7."UniqueObjects" As "UniqueObjects", + t1."CostPlace" As "CostPlace", + t1."CostHolder" As "CostHolder", + t2."F_CurrencyRate" As "CurrencyRate", + t1."Amount" As "AmountHUF", + CASE WHEN t2."F_CurrencyRate"<>0 AND t6."ShortName"<>'HUF' THEN ROUND(cast(t1."Amount"/t2."F_CurrencyRate" AS numeric),2) ELSE 0 END As "AmountDEV", + t2."ShortName" As "Note1", + '' As "Note2", + NULL As "VAT", + t1."ChartOfAccounts" As "ChartOfAccounts2", + coalesce(t1."IsReInvoice",false) As "IsReinvoice", + t1."ContractRows" As "ContractRows", + coalesce(t1."F_ReadyforBookEntryRows",false) As "ReadyforBookEntryRows", + t2."Oid" As "RegistryHeader", + NULL As "InvoiceHeader", + t2."CurrentWorkflowSystemSteps" As "WorkflowSystemSteps", + t1."WorkflowMessage" "WorkflowMessage" +from "RegistryRowsFinancialControlling" t1 join "RegistryHeader" t2 on + t1."RegistryHeader"=t2."Oid" LEFT JOIN "Controlling" t3 ON + t1."Controlling"=t3."Oid" LEFT JOIN "Customers" t4 ON + t2."Customers"=t4."Oid" LEFT JOIN "CustomersGLParameters" t5 ON + t4."CustomersGLParameters"=t5."Oid" LEFT JOIN "CurrencyName" t6 ON + t2."F_CurrencyName"=t6."Oid" LEFT JOIN "ContractRows" t7 ON + t1."ContractRows"=t7."Oid" left join "ControllingYear" t8 on + t3."Oid"=t8."Controlling" and extract(year from cast(t2."F_DateExecution" as timestamp))=t8."AccountYear" left join "CustomersGLParametersYear" t9 on + t5."Oid"=t9."CustomersGLParameters" and extract(year from cast(t2."F_DateExecution"as timestamp))=t9."AccountYear" +WHERE t1."GCRecord" IS NULL AND + coalesce(t2."IsEditable",false)=false AND + t2."F_GLAccounts" IS NULL AND + coalesce(t1."F_ReadyforBookEntryRows",false)=false + +UNION ALL + +SELECT 1 As "PartnerType", + 1 As "GLRowsTypeVAT", + t1."Oid"As " Oid", + t2."CustomersFrom" As "CustomersFrom", + t2."Customers" As "Customers", + coalesce(coalesce(t1."DateVAT",t2."F_DateVAT"),t2."F_DateExecution") As "DateExecution", + t2."DocumentNumber" As "DocumentNumber", + t2."RegistryNumber" As "RegistryNumber", + t3."ChartOfAccountsIn" As "DebitChartOfAccounts", + case when coalesce(t3."InversState",false)=true then t7."ChartOfAccountsOut" + else t9."ChartOfAccountsIn" end "CreditChartOfAccounts", + NULL As "Controlling", + NULL As "JobNumberObjects", + NULL As "UniqueObjects", + NULL As "CostPlace", + NULL As "CostHolder", + 1 As "CurrencyRate", + CASE WHEN t1."VAT" IS NULL THEN 0 + WHEN t1."VAT" IS NOT NULL THEN + case when t3."InversState"=false then ROUND(cast(t1."BruttoAmount"/(1+t3."KeyValue")*t3."KeyValue" as numeric),0) + else ROUND(cast(t1."BruttoAmount"/(1+t3."InversKeyValue")*t3."InversKeyValue" as numeric),0) end + END "AmountHUF", + 0 As "AmountDEV", + t2."ShortName" As "Note1", + '' As "Note2", + t1."VAT" As "VAT", + NULL As "ChartOfAccounts2", + false As "IsReinvoice", + NULL As "ContractRows", + coalesce(t1."F_ReadyforBookEntryRows",false) As "ReadyforBookEntryRows", + t2."Oid" As "RegistryHeader", + NULL As "InvoiceHeader", + t2."CurrentWorkflowSystemSteps" As "WorkflowSystemSteps", + '' "WorkflowMessage" +from "RegistryRowsFinancial" t1 join "RegistryHeader" t2 on + t1."RegistryHeader"=t2."Oid" LEFT JOIN "VAT" t3 ON + t1."VAT"=t3."Oid" LEFT JOIN "Customers" t4 ON + t2."Customers"=t4."Oid" LEFT JOIN "CustomersGLParameters" t5 ON + t4."CustomersGLParameters"=t5."Oid" LEFT JOIN "CurrencyName" t6 ON + t2."F_CurrencyName"=t6."Oid" left join "VATYear" t7 on + t3."Oid"=t7."VAT" and extract(year from cast(t2."F_DateExecution" as timestamp))=t7."AccountYear" left join "CustomersGLParametersYear" t9 on + t5."Oid"=t9."CustomersGLParameters" and extract(year from cast(t2."F_DateExecution" as timestamp))=t9."AccountYear" +WHERE t1."GCRecord" IS NULL AND + coalesce(t2."IsEditable",false)=false AND + t2."F_GLAccounts" IS NULL AND + coalesce(t1."F_ReadyforBookEntryRows",false)=false + +UNION ALL + +SELECT 0 As "PartnerType", + 0 As "GLRowsTypeVAT", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t2."Customers" As "Customers", + t2."DateExecution" As "DateExecution", + t2."DocumentNumber" As "DocumentNumber", + '' As "RegistryNumber", + t11."ChartOfAccountsOut" As "DebitChartOfAccounts", + coalesce(t12."ChartOfAccounts",t10."ChartOfAccounts") As "CreditChartOfAccounts", + coalesce(t8."Controlling",t1."Controlling") As "Controlling", + coalesce(t8."JobNumberObjects",t1."JobNumberObjects") As "JobNumberObjects", + coalesce(t8."UniqueObjects",t1."UniqueObjects") As "UniqueObjects", + coalesce(t8."CostPlace",t1."CostPlace") As "CostPlace", + coalesce(t8."CostHolder",t1."CostHolder") As "CostHolder", + t2."CurrencyRate" As "CurrencyRate", + (t1."ListPriceHUF"-t1."DiscountPriceHUF")*t1."QTT" As "AmountHUF", + (t1."ListPriceDEV"-t1."DiscountPriceDEV")*t1."QTT" As "AmountDEV", + t2."Description" As "Note1", + '' As "Note2", + NULL As "VAT", + t1."ChartOfAccounts" As "ChartOfAccounts2", + false As "IsReinvoice", + t1."ContractRows" As "ContractRows", + coalesce(t1."ReadyforBookEntryRows",false) As "ReadyforBookEntryRows", + NULL As "RegistryHeader", + t2."Oid" As "InvoiceHeader", + t1."WorkflowSystemSteps" As "WorkflowSystemSteps", + '' "WorkflowMessage" +FROM "InvoiceRows" t1 JOIN "InvoiceHeader" t2 ON + t1."InvoiceHeader"=t2."Oid" LEFT JOIN "Controlling" t3 ON + t1."Controlling"=t3."Oid" LEFT JOIN "Customers" t4 ON + t2."Customers"=t4."Oid" LEFT JOIN "CustomersGLParameters" t5 ON + t4."CustomersGLParameters"=t5."Oid" LEFT JOIN "CurrencyName" t6 ON + t2."CurrencyName"=t6."Oid" LEFT JOIN "InvoiceType" t7 ON + t2."InvoiceType"=t7."Oid" LEFT JOIN "ContractRows" t8 ON + t1."ContractRows"=t8."Oid" LEFT JOIN "Controlling" t9 ON + t8."Controlling"=t9."Oid" left join "ControllingYear" t10 on + t3."Oid"=t10."Controlling" and extract(year from cast(t2."DateExecution" as timestamp))=t10."AccountYear" left join "CustomersGLParametersYear" t11 on + t5."Oid"=t11."CustomersGLParameters" and extract(year from cast(t2."DateExecution" as timestamp))=t11."AccountYear" left join "ControllingYear" t12 on + t9."Oid"=t12."Controlling" and extract(year from cast(t2."DateExecution" as timestamp))=t12."AccountYear" +WHERE t1."GCRecord" IS NULL AND + coalesce(t2."IsEditable",false)=false AND + t2."GLAccounts" IS NULL AND + coalesce(t1."ReadyforBookEntryRows",false)=false AND + t7."InvoiceTypeBase" IN (1,2,3) AND + coalesce(t2."IsProforma",false)=false + +UNION ALL + +SELECT 0 As "PartnerType", + 1 As "GLRowsTypeVAT", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t2."Customers" As "Customers", + t2."DateExecution" As "DateExecution", + t2."DocumentNumber" As "DocumentNumber", + '' As "RegistryNumber", + t9."ChartOfAccountsOut" As "DebitChartOfAccounts", + t7."ChartOfAccountsOut" As "CreditChartOfAccounts", + NULL As "Controlling", + NULL As "JobNumberObjects", + NULL As "UniqueObjects", + NULL As "CostPlace", + NULL As "CostHolder", + 1 As "CurrencyRate2", + t1."AmountVATHUF" As "AmountHUF", + t1."AmountVATDEV" As "AmountDEV", + t2."Description" As "Note1", + '' As "Note2", + t1."VAT" As "VAT", + NULL As "ChartOfAccounts2", + false As "IsReinvoice", + NULL As "ContractRows", + coalesce(t1."ReadyforBookEntryRows",false) As "ReadyforBookEntryRows", + NULL As "RegistryHeader", + t2."Oid" As "InvoiceHeader", + Null As "WorkflowSystemSteps", + '' "WorkflowMessage" +from "InvoiceVATRows" t1 join "InvoiceHeader" t2 on + t1."InvoiceHeader"=t2."Oid" LEFT JOIN "VAT" t3 ON + t1."VAT"=t3."Oid" LEFT JOIN "Customers" t4 ON + t2."Customers"=t4."Oid" LEFT JOIN "CustomersGLParameters" t5 ON + t4."CustomersGLParameters"=t5."Oid" LEFT JOIN "CurrencyName" t6 ON + t2."CurrencyName"=t6."Oid" LEFT JOIN "InvoiceType" t10 ON + t2."InvoiceType"=t10."Oid" left join "VATYear" t7 on + t3."Oid"=t7."VAT" and extract(year from cast(t2."DateExecution" as timestamp))=t7."AccountYear" left join "CustomersGLParametersYear" t9 on + t5."Oid"=t9."CustomersGLParameters" and extract(year from cast(t2."DateExecution" as timestamp))=t9."AccountYear" +WHERE t1."GCRecord" IS NULL AND + coalesce(t2."IsEditable",false)=false AND + t2."GLAccounts" IS NULL AND + coalesce(t1."ReadyforBookEntryRows",false)=false AND + coalesce(t2."IsProforma",false)=false AND + t10."InvoiceTypeBase" IN (1,2,3) + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAccount.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAccount.sql new file mode 100644 index 0000000..60140b2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAccount.sql @@ -0,0 +1,81 @@ + + + SELECT '01-Account' AS "MainType", + t2."Oid" AS "Oid", + t2."CustomersFrom" AS "CustomersFrom", + t1."Customer" AS "Customers", + t1."PartnerType" AS "PartnerType", + t2."DocumentNumber" AS "ConnectInfo", + t2."CurrencyName" AS "CurrencyName", + sum(t1."AmountHUF") AS "BallanceHuf", + sum(t1."AmountDEV") AS "BallanceDev", + t3."ShortName" AS "Currency", + t2."DatePayment" AS "DatePayment", + t2."DateCreated" AS "DateCreated", + t2."DateExecution" AS "DateExecution", + t2."CurrencyRate" AS "CurrencyRate", + t2."DocumentNumber" AS "DocumentNumber", + max(t2."RegistryNumber") AS "RegistryNumber" + from "GLRows" t1 + join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + left join "CurrencyName" t3 on t2."CurrencyName"=t3."Oid" + where t2."GCRecord" is null and + t2."GLDocumentType"=1 and + coalesce(t2."IsEditable", false) = false and + t1."PartnerType" in (0,1) and + t1."GCRecord" is null + group by t2."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t2."DocumentNumber",t2."CurrencyName",t3."ShortName",t2."DateExecution",t2."DatePayment", + t2."DateCreated",t2."DateExecution",t2."CurrencyRate" + + union all + + SELECT '01-Account' AS "MainType", + t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + 0 AS "PartnerType", + t1."DocumentNumber" AS "ConnectInfo", + t1."CurrencyName" AS currencyname, + t1."TotalBruttoHUF" AS "BallanceHuf", + t1."TotalBruttoDEV" AS "BallanceDev", + t3."ShortName" AS "Currency", + t1."DatePayment" AS "DatePayment", + t1."DateCreated" AS "DateCreated", + t1."DateExecution" AS "DateExecution", + t1."CurrencyRate" AS "CurrencyRate", + t1."DocumentNumber" AS "DocumentNumber", + t1."DocumentNumber" AS "RegistryNumber" + from "InvoiceHeader" t1 + left join "CurrencyName" t3 on t1."CurrencyName"=t3."Oid" + where t1."GLAccounts" is null and + t1."IsEditable"= false and + t1."GCRecord" is null + + union all + + SELECT '01-Account' AS "MainType", + t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + 1 AS "PartnerType", + t1."DocumentNumber" AS "ConnectInfo", + t1."F_CurrencyName" AS currencyname, + t1."F_AmountBruttoHUF" AS "BallanceHuf", + t1."F_AmountBruttoDEV" AS "BallanceDev", + t3."ShortName" AS "Currency", + t1."F_DatePayment" AS "DatePayment", + t1."F_DateCreated" AS "DateCreated", + t1."F_DateExecution" AS "DateExecution", + t1."F_CurrencyRate" AS "CurrencyRate", + t1."DocumentNumber" AS "DocumentNumber", + t1."RegistryNumber" AS "RegistryNumber" + from "RegistryHeader" t1 + left join "RegistryType" t2 on t1."RegistryType"=t2."Oid" + left join "CurrencyName" t3 on t1."F_CurrencyName"=t3."Oid" + where t1."GCRecord" is null and + t1."F_GLAccounts" is null and + t1."IsEditable"= false and + t1."IsStorno"= false and + t2."RegistryMainType"=0 and + t1."RegistryAcceptState"=0 diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAged.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAged.sql new file mode 100644 index 0000000..174024b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoAged.sql @@ -0,0 +1,23 @@ + + + select t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + t1."PartnerType" AS "PartnerType", + t1."ConnectInfo" AS "ConnectInfo", + t2."DocumentNumber" AS "DocumentNumber", + t2."RegistryNumber" AS "RegistryNumber", + t1."DateExecution" AS "DateExecution", + t1."DatePayment_Account"AS "DatePayment", + t1."CurrencyName_Account" AS "CurrencyName_Account", + t1."AmountHUF_Account" AS "AmountHUF", + t1."AmountDEV_Account" AS "AmountDEV", + t1."BallanceHUF" AS "BallanceHUF", + t1."BallanceDEV" AS "BallanceDEV", + t1."InvoiceHeader" AS "InvoiceHeader" + from "PCIDetail" t1 join + "vv_PartnerConnectionInfoAccount" t2 on + t1."CustomersFrom"=t2."CustomersFrom" and + t1."Customers"=t2."Customers" and + t1."PartnerType"=t2."PartnerType" and + t1."ConnectInfo"=t2."ConnectInfo" \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoConnect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoConnect.sql new file mode 100644 index 0000000..106bbc6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoConnect.sql @@ -0,0 +1,35 @@ + + select + t1."MainType" AS "MainType", + t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + t1."PartnerType" AS "PartnerType", + t1."ConnectInfo" AS "ConnectInfo", + t1."CurrencyName" AS "CurrencyName", + t1."DebitTotalHUF" AS "DebitTotalHUF", + t1."CreditTotalHUF" AS "CreditTotalHUF", + t1."DebitTotalDEV" AS "DebitTotalDEV", + t1."CreditTotalDEV" AS "CreditTotalDEV", + t1."BallanceHUF" AS "BallanceHUF", + t1."BallanceDEV" AS "BallanceDEV", + t1."ShortName" AS "ShortName", + t1."Description" AS "Description", + t1."DateExecution" AS "DateExecution", + t1."DateCreated" AS "DateCreated", + t1."DatePayment" AS "DatePayment", + t1."DelayedDay" AS "DelayedDay", + t1."DelayedRange" AS "DelayedRange", + t1."CurrencyName_Account" AS "CurrencyName_Account", + t1."AmountHUF_Account" AS "AmountHUF_Account", + t1."AmountDEV_Account" AS "AmountDEV_Account", + t1."DateExecution_Account" AS "DateExecution_Account", + t2."BallanceState" AS "BallanceState", + t2."BallanceRateDiff" AS "BallanceRateDiff" + from "vv_PartnerConnectionInfoDetail" t1 + join "vv_PartnerConnectionInfoDetailGroup" t2 on + t1."CustomersFrom"=t2."CustomersFrom" and + t1."Customers"=t2."Customers" and + t1."PartnerType"=t2."PartnerType" and + t1."ConnectInfo"=t2."ConnectInfo" + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetail.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetail.sql new file mode 100644 index 0000000..789fb4a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetail.sql @@ -0,0 +1,405 @@ + + + SELECT '01-Account' As "MainType", + t2."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t1."Customer" As "Customers", + t1."PartnerType" As "PartnerType", + t1."ConnectInfo" As "ConnectInfo", + t2."CurrencyName" As "CurrencyName", + max(t3."AmountHUFBrutto") As "DebitTotalHUF", + 0 As "CreditTotalHUF", + max(t3."AmountDEVBrutto") As "DebitTotalDEV", + 0 As "CreditTotalDEV", + max(t3."AmountHUFBrutto") As "BallanceHUF", + max(t3."AmountDEVBrutto") As "BallanceDEV", + '' As "ShortName", + '' As "Description", + t2."DateExecution" As "DateExecution", + t2."DateCreated" As "DateCreated", + t2."DatePayment" As "DatePayment", + CURRENT_DATE-Cast(t2."DatePayment" AS Date) As "DelayedDay", + CASE WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)<=0 THEN 0 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>0 AND CURRENT_DATE-Cast(t2."DatePayment" AS date)<=15 then 1 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>15 and CURRENT_DATE-Cast(t2."DatePayment" AS date)<=30 then 2 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>30 and CURRENT_DATE-Cast(t2."DatePayment" AS date)<=60 then 3 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>60 and CURRENT_DATE-Cast(t2."DatePayment" AS date)<=90 then 4 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>90 and CURRENT_DATE-Cast(t2."DatePayment" AS date)<=180 then 5 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>180 and CURRENT_DATE-Cast(t2."DatePayment" AS date)<=360 then 6 + WHEN CURRENT_DATE-Cast(t2."DatePayment" AS date)>360 then 7 + END As "DelayedRange", + t2."CurrencyName" As "CurrencyName_Account", + SUM(t1."AmountHUF") As "AmountHUF_Account", + SUM(t1."AmountDEV") As "AmountDEV_Account", + t2."DateExecution" As "DateExecution_Account" + from "GLRows" t1 join "GLHeader" t2 on + t1."GLHeader"=t2."Oid" join "GLAccounts" t3 on + t1."GLHeader"=t3."Oid" + WHERE t2."GCRecord" IS NULL AND + t2."GLDocumentType"=1 AND + t2."IsEditable"=false AND + t1."PartnerType" IN (0,1) AND + t1."GCRecord" IS NULL + GROUP BY t2."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t1."ConnectInfo",t2."CurrencyName",t2."DateExecution",t2."DateCreated",t2."DatePayment" + +UNION ALL + + SELECT '02-Bank' As "MainType", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t1."Customer" As "Customers", + t1."PartnerType" As "PartnerType", + t1."ConnectInfo" As "ConnectInfo", + t3."CurrencyName" As "CurrencyName", + 0 As "DebitTotalHUF", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end AS "CreditTotalHUF", + 0 AS "DebitTotalDEV", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end AS "CreditTotalDEV", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + end)*-1 AS "BallanceHUF", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."InAmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."OutAmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."OutAmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."InAmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF'then sum(t1."InAmountDEV2")*-1 + else 0 + end)*-1 AS "BallanceDEV", + max(t3."ShortName"||', '||coalesce(t2."DocumentNumber",'')) AS "ShortName", + '' AS "Description", + t2."DateExecution" AS "DateExecution", + t2."DateExecution" AS "DateCreated", + t4."DatePayment" AS "DatePayment", + 0 AS "DelayedDay", + 0 AS "DelayedRange", + t4."CurrencyName" AS "CurrencyName_Account", + 0 AS "AmountHUF_Account", + 0 AS "AmountDEV_Account", + max(t4."DateExecution") AS "DateExecution_Account" + from "GLRows" t1 + join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + left join "GLBank" t5 on t2."Oid"=t5."Oid" + left join "LiquidAssets" t3 on t5."LiquidAssets_Main"=t3."Oid" + left join "vv_PartnerConnectionInfoAccount" t4 on t2."CustomersFrom"=t4."CustomersFrom" + and t1."Customer"=t4."Customers" and t1."PartnerType"=t4."PartnerType" and t1."ConnectInfo"=t4."ConnectInfo" + where t2."GCRecord" is null and + t2."GLDocumentType"=2 and + t1."PartnerType" in (0,1) and + t1."GCRecord" is null + group by t1."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t1."ConnectInfo",t3."CurrencyName",t4."Currency",t2."DateExecution",t4."DatePayment",t4."CurrencyName" + + union all + + SELECT '03-Cassa' As "MainType", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t1."Customer" As "Customers", + t1."PartnerType" As "PartnerType", + t1."ConnectInfo" As "ConnectInfo", + t3."CurrencyName" As "CurrencyName", + 0 As "DebitTotalHUF", + CASE WHEN t1."PartnerType"=0 AND SUM(t1."InAmountHUF")<>0 AND coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" THEN SUM(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end As "CreditTotalHUF", + 0 As "DebitTotalDEV", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end As "CreditTotalDEV", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + end)*-1 As "BallanceHUF", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF'then sum(t1."InAmountDEV2")*-1 + end)*-1 As "BallanceDEV", + MAX(t3."ShortName"||', '||coalesce(t2."DocumentNumber",'')) As "ShortName", + '' As "Description", + t2."DateExecution" As "DateExecution", + t2."DateExecution" As "DateCreated", + t4."DatePayment" As "DatePayment", + 0 As "DelayedDay", + 0 As "DelayedRange", + t4."CurrencyName" As "CurrencyName_Account", + 0 As "AmountHUF_Account", + 0 As "AmountDEV_Account", + max(t4."DateExecution") As "DateExecution_Account" + FROM "GLRows" t1 + join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + left join "GLCassa" t5 on t2."Oid"=t5."Oid" + left join "LiquidAssets" t3 on t5."LiquidAssets_Cassa"=t3."Oid" + left join "vv_PartnerConnectionInfoAccount" t4 on t2."CustomersFrom"=t4."CustomersFrom" and + t1."Customer"=t4."Customers" and t1."PartnerType"=t4."PartnerType" and t1."ConnectInfo"=t4."ConnectInfo" + where t2."GCRecord" is null and + t2."GLDocumentType"=3 and + t1."PartnerType" in (0,1) and + t1."GCRecord" is null + group by t1."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t1."ConnectInfo",t3."CurrencyName",t4."Currency",t2."DateExecution",t4."DatePayment",t4."CurrencyName" + + union all + + select '05-Ratediff' As "MainType", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t1."Customer" As "Customers", + t1."PartnerType" As "PartnerType", + t1."ConnectInfo" As "ConnectInfo", + t2."CurrencyName" As "CurrencyName", + 0 As "DebitTotalHUF", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + end As "CreditTotalHUF", + 0 As "DebitTotalDEV", + 0 As "CreditTotalDEV", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + end)*-1 As "BallanceHUF", + 0 As "BallanceDEV", + max(t7."ShortName"||', '||coalesce(t8."DocumentNumber",'')||', '||coalesce(t2."DocumentNumber",''))As "ShortName", + '' As "Description", + t2."DateExecution" As "DateExecution", + t2."DateExecution" As "DateCreated", + null As "DatePayment", + 0 As "DelayedDay", + 0 As "DelayedRange", + t4."CurrencyName" As "CurrencyName_Account", + 0 As "AmountHUF_Account", + 0 As "AmountDEV_Account", + max(t4."DateExecution") As "DateExecution_Account" + from "GLRows" t1 + join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + left join "LiquidAssets" t3 on t1."LiquidAssets"=t3."Oid" + left join "vv_PartnerConnectionInfoAccount" t4 on t2."CustomersFrom"=t4."CustomersFrom" and + t1."Customer"=t4."Customers" and t1."PartnerType"=t4."PartnerType" and t1."ConnectInfo"=t4."ConnectInfo" + left join "GLRows" t6 on + t1."GLRowsRateDiff"=t6."Oid" left join "LiquidAssets" t7 on + t6."LiquidAssets"=t7."Oid" left join "GLHeader" t8 on + t6."GLHeader"=t8."Oid" + where t2."GCRecord" is null and + t2."GLDocumentType"=5 and + t1."PartnerType" in (0,1) and + t1."GCRecord" is null + group by t1."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t1."ConnectInfo",t2."CurrencyName",t2."DateExecution",t2."DatePayment",t4."CurrencyName" + + union all + + select case when max(t2."GLDocumentType")=4 then '04-Compensation' + when max(t2."GLDocumentType")=0 then '06-Mixed' + end "MainType", + t1."Oid" As "Oid", + t2."CustomersFrom" As "CustomersFrom", + t1."Customer" As "Customers", + t1."PartnerType" As "PartnerType", + t1."ConnectInfo" As "ConnectInfo", + t3."CurrencyName" As "CurrencyName", + 0 As "DebitTotalHUF", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end As "CreditTotalHUF", + 0 As "DebitTotalDEV", + case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" then sum(t1."InAmountDEV2")*-1 + end As "CreditTotalDEV", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountHUF")<>0 then sum(t1."AmountHUF") + WHEN t1."PartnerType"=1 and sum(t1."InAmountHUF")<>0 then sum(t1."AmountHUF")*-1 + end)*-1 As "BallanceHUF", + (case WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")=t3."CurrencyName" then sum(t1."AmountDEV")*-1 + WHEN t1."PartnerType"=0 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."InAmountDEV2") + WHEN t1."PartnerType"=0 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2")*-1 + WHEN t1."PartnerType"=1 and sum(t1."OutAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF' then sum(t1."OutAmountDEV2") + WHEN t1."PartnerType"=1 and sum(t1."InAmountDEV2")<>0 and + coalesce(t4."CurrencyName",t3."CurrencyName")<>t3."CurrencyName" and t4."Currency"<>'HUF'then sum(t1."InAmountDEV2")*-1 + else 0 + end)*-1 As "BallanceDEV", + max(t3."ShortName"||', '||t2."DocumentNumber") As "ShortName", + '' As "Description", + t2."DateExecution" As "DateExecution", + t2."DateExecution" As "DateCreated", + t2."DateExecution" As "DatePayment", + 0 As "DelayedDay", + 0 As "DelayedRange", + t4."CurrencyName" As "CurrencyName_Account", + 0 As "AmountHUF_Account", + 0 As "AmountDEV_Account", + max(t4."DateExecution") As "DateExecution_Account" + from "GLRows" t1 + join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + left join "GLCompensation" t5 on t2."Oid"=t5."Oid" + left join "LiquidAssets" t3 on t5."LiquidAssets_Main"=t3."Oid" + left join "vv_PartnerConnectionInfoAccount" t4 on t2."CustomersFrom"=t4."CustomersFrom" and + t1."Customer"=t4."Customers" and t1."PartnerType"=t4."PartnerType" and t1."ConnectInfo"=t4."ConnectInfo" + where t2."GCRecord" is null and + t2."GLDocumentType" in (4,0) and + t1."PartnerType" in (0,1) and + t1."GCRecord" is null + group by t1."Oid",t2."CustomersFrom",t1."Customer",t1."PartnerType", + t1."ConnectInfo",t3."CurrencyName",t4."Currency",t2."DateExecution",t4."DatePayment",t4."CurrencyName" + + union all + + select '01-Account' AS "MainType", + t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + 0 AS "PartnerType", + t1."ConnectInfo" AS "ConnectInfo", + t1."CurrencyName" AS "CurrencyName", + t1."TotalBruttoHUF" AS "DebitTotalHUF", + 0 AS "CreditTotalHUF", + t1."TotalBruttoDEV" AS "DebitTotalDEV", + 0 AS "CreditTotalDEV", + t1."TotalBruttoHUF" AS "BallanceHUF", + t1."TotalBruttoDEV" AS "BallanceDEV", + '' AS "ShortName", + t1."Description" AS "Description", + t1."DateExecution" AS "DateExecution", + t1."DateCreated" AS "DateCreated", + t1."DatePayment" AS "DatePayment", + CURRENT_DATE-Cast(t1."DatePayment" AS date) AS "DelayedDay", + case WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)<=0 then 0 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>0 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=15 then 1 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>15 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=30 then 2 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>30 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=60 then 3 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>60 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=90 then 4 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>90 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=180 then 5 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>180 and CURRENT_DATE-Cast(t1."DatePayment" AS date)<=360 then 6 + WHEN CURRENT_DATE-Cast(t1."DatePayment" AS date)>360 then 7 + end AS "DelayedRange", + t1."CurrencyName" AS "CurrencyName_Account", + t1."TotalBruttoHUF" AS "AmountHUF_Account", + t1."TotalBruttoDEV" AS "AmountDEV_Account", + t1."DateExecution" AS "DateExecution_Account" + from "InvoiceHeader" t1 + where t1."GLAccounts" is null and + t1."IsEditable"=false and + t1."GCRecord" is null + + union all + + select '01-Account' AS "MainType", + t1."Oid" AS "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + 1 AS "PartnerType", + t1."DocumentNumber" AS "ConnectInfo", + t1."F_CurrencyName" AS "CurrencyName", + t1."F_AmountBruttoHUF" AS "DebitTotalHUF", + 0 AS "CreditTotalHUF", + t1."F_AmountBruttoDEV" AS "DebitTotalDEV", + 0 AS "CreditTotalDEV", + t1."F_AmountBruttoHUF" AS "BallanceHUF", + t1."F_AmountBruttoDEV" AS "BallanceDEV", + '' AS "ShortName", + '' AS "Description", + t1."F_DateExecution" AS "DateExecution", + t1."F_DateCreated" AS "DateCreated", + t1."F_DatePayment" AS "DatePayment", + CURRENT_DATE-Cast(t1."F_DatePayment" AS date) AS "DelayedDay", + case WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=0 then 0 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>0 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=15 then 1 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>15 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=30 then 2 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>30 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=60 then 3 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>60 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=90 then 4 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>90 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=180 then 5 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>180 and CURRENT_DATE-Cast(t1."F_DatePayment" AS date)<=360 then 6 + WHEN CURRENT_DATE-Cast(t1."F_DatePayment" AS date)>360 then 7 + end As "DelayedRange", + t1."F_CurrencyName" AS "CurrencyName_Account", + t1."F_AmountBruttoHUF" AS "AmountHUF_Account", + t1."F_AmountBruttoDEV" AS "AmountDEV_Account", + t1."F_DateExecution" AS "DateExecution_Account" + from "RegistryHeader" t1 + left join "RegistryType" t2 on t1."RegistryType"=t2."Oid" + where t1."GCRecord" is null and + t1."F_GLAccounts" is null and + t1."IsEditable"=false and + t1."IsStorno"=false and + t2."RegistryMainType"=0 and + t1."RegistryAcceptState"=0 \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetailGroup.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetailGroup.sql new file mode 100644 index 0000000..efa7c2c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_PartnerConnectionInfoDetailGroup.sql @@ -0,0 +1,54 @@ + + + SELECT MAX(CAST(t1."Oid" AS CHAR(100))) As "Oid", + t1."CustomersFrom" AS "CustomersFrom", + t1."Customers" AS "Customers", + t1."PartnerType" AS "PartnerType", + t1."ConnectInfo" AS "ConnectInfo", + max(t2."ShortName") AS "Currency", + sum(t1."DebitTotalHUF") AS "DebitTotalHUF", + SUM(t1."CreditTotalHUF") AS "CreditTotalHUF", + sum(t1."DebitTotalDEV") AS "DebitTotalDEV", + SUM(t1."CreditTotalDEV") AS "CreditTotalDEV", + SUM(t1."BallanceHUF") AS "BallanceHUF", + SUM(t1."BallanceDEV") AS "BallanceDEV", + case when t1."PartnerType"=1 then SUM(t1."BallanceHUF")*-1 else 0 end AS "BallanceHUF_P", + case when t1."PartnerType"=1 then SUM(t1."BallanceDEV")*-1 else 0 end AS "BallanceDEV_P", + case when t1."PartnerType"=0 then SUM(t1."BallanceHUF") else 0 end AS "BallanceHUF_R", + case when t1."PartnerType"=0 then SUM(t1."BallanceDEV") else 0 end AS "BallanceDEV_R", + (case when t1."PartnerType"=0 then SUM(t1."BallanceHUF") else 0 end) - + (case when t1."PartnerType"=1 then SUM(t1."BallanceHUF")*-1 else 0 end) AS "BallanceHUF_B", + (case when t1."PartnerType"=0 then SUM(t1."BallanceDEV") else 0 end) - + (case when t1."PartnerType"=1 then SUM(t1."BallanceDEV")*-1 else 0 end) AS "BallanceDEV_B", + max(t3."ShortName") AS "Currency_Account", + sum(t1."AmountHUF_Account") AS "AmountHUF_Account", + sum(t1."AmountDEV_Account") AS "AmountDEV_Account", + case when max(t3."ShortName")='HUF' then + case when round(cast(SUM(t1."BallanceHUF") as numeric),0)=0 then 1 + else 0 + end + else + case when round(cast(SUM(t1."BallanceDEV") as numeric),2)=0 then 1 + else 0 + end + end AS "BallanceState", + case when max(t3."ShortName")='HUF' then -1 + when t1."CurrencyName_Account" IS null then -1 + else + case when round(cast(SUM(t1."BallanceDEV")as numeric),2)=0 and round(cast(SUM(t1."BallanceHUF")as numeric),0)<>0 then 1 + else 0 + end + end "BallanceRateDiff", + max(t4."DateExecution") DateExecution_Account, + MAX(t4."DateCreated") DateCreated_Account + from "vv_PartnerConnectionInfoDetail" t1 + left join "CurrencyName" t2 on t1."CurrencyName"=t2."Oid" + left join "CurrencyName" t3 on t1."CurrencyName_Account"=t3."Oid" + left join "vv_PartnerConnectionInfoAccount" t4 on + t1."CustomersFrom"=t4."CustomersFrom" and + t1."Customers"=t4."Customers" and + t1."PartnerType"=t4."PartnerType" and + t1."ConnectInfo"=t4."ConnectInfo" and + t4."MainType"='01-Account' + + group by t1."CustomersFrom",t1."Customers",t1."PartnerType",t1."ConnectInfo",t1."CurrencyName_Account" \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_ProductSelect.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_ProductSelect.sql new file mode 100644 index 0000000..166dd7f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_ProductSelect.sql @@ -0,0 +1,8 @@ + + +select case when t2."Oid" IS null then t1."Oid" else t2."Oid" end Oid, + t1."Oid" Products, + t2."Oid" StorageComputed +from "Products" t1 left join "StorageComputed" t2 on +t1."Oid"=t2."Products" +where t1."GCRecord" is null and t2."GCRecord" is null diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransfer.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransfer.sql new file mode 100644 index 0000000..6c51780 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransfer.sql @@ -0,0 +1,29 @@ + + + select t1."Oid" AS "Oid", + t1."RegistryHeader" AS "RegistryHeader", + t1."AmountHUF" AS "AmountHUF", + t1."AmountDEV" AS "AmountDEV", + t1."DatePayment" AS "DatePayment", + t1."IsBlocked" AS "IsBlocked", + t1."Note" AS "Note", + t1."BankSavedFileName" AS "BankSavedFileName", + coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF") AS "BallanceHUF", + coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV") AS "BallanceDEV", + t1."AmountHUF"-coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF") AS "DifferenceHUF", + t1."AmountDEV"-coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV") AS "DifferenceDEV", + case when round(cast(coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF") as numeric),2)=0 then 0 + when coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF")>=t1."AmountHUF" then t1."AmountHUF" + when coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF")<=t1."AmountHUF" then coalesce(t3."BallanceHUF",t2."F_AmountBruttoHUF") + end AS "OfferedHUF", + case when round(cast(coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV") as numeric),2)=0 then 0 + when coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV")>=t1."AmountDEV" then t1."AmountDEV" + when coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV")<=t1."AmountDEV" then coalesce(t3."BallanceDEV",t2."F_AmountBruttoDEV") + end AS "OfferedDEV", + t1."BankPrepareName" AS "BankPrepareName" + from "RegistryBankTransfer" t1 + join "RegistryHeader" t2 on t1."RegistryHeader"=t2."Oid" + left join "PCIGroup" t3 on t2."CustomersFrom"=t3."CustomersFrom" + and t2."Customers"=t3."Customers" and t3."PartnerType"=1 and t2."DocumentNumber"=t3."ConnectInfo" + where t1."GCRecord" is null and t2."RegistryAcceptState"=0 + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransferPrepareName.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransferPrepareName.sql new file mode 100644 index 0000000..55e33ed --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_RegistryBankTransferPrepareName.sql @@ -0,0 +1,8 @@ + + +select MAX(CAST("Oid" AS CHAR(100))) As "Oid", + "BankPrepareName" +from "RegistryBankTransfer" +where Rtrim(Ltrim(coalesce("BankPrepareName",'')))<>'' +group by "BankPrepareName" + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_WaitforRateDiff.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_WaitforRateDiff.sql new file mode 100644 index 0000000..b7d4a23 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/POSTGRESQL/vv_WaitforRateDiff.sql @@ -0,0 +1,71 @@ + + +select t1."Oid" Oid, + t2."CustomersFrom" CustomersFrom, + t1."PartnerType" PartnerType, + t1."Customer" Customers, + t1."ConnectInfo" ConnectInfo, + t3."DateExecution" DateExecution_Account, + t3."CurrencyName" CurrencyName_Account, + round(cast(t4."AmountDEV_Account" as numeric),2) AmountDEV_Account, + round(cast(t4."AmountHUF_Account" as numeric),2) AmountHUF_Account, + round(cast(t4."BallanceDEV" as numeric),2) BallanceDEV_Account, + case when round(cast(t4."AmountDEV_Account" as numeric),2)<>0 then round(cast(round(cast(t4."AmountHUF_Account" as numeric),2)/round(cast(t4."AmountDEV_Account" as numeric),2) as numeric),2) else 0 end CurrencyRate_Account, + t1."LiquidAssets" LiquidAssets, + t2."DateExecution" DateExecution, + round(cast(t1."InAmountDEV" as numeric),2) InAmountDEV, + round(cast(t1."OutAmountDEV" as numeric),2) OutAmountDEV, + round(cast(t1."InAmountDEV2" as numeric),2) InAmountDEV2, + round(cast(t1."OutAmountDEV2" as numeric),2) OutAmountDEV2, + case when "InAmountHUF">0 then + case when t1."InAmountDEV" <>0 then round(cast(t1."InAmountHUF" as numeric),2)/round(cast(t1."InAmountDEV" as numeric),2) + else 0 + end + else + case when t1."OutAmountDEV" <>0 then round(cast(t1."OutAmountHUF" as numeric),2)/round(cast(t1."OutAmountDEV" as numeric),2) + else 0 + end + end CurrencyRate, + round(cast(t1."InAmountHUF" as numeric),2) InAmountHUF, + round(cast(t1."OutAmountHUF" as numeric),2) OutAmountHUF, + case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."InAmountDEV" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."InAmountDEV2" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + end InAmountHUF_Account, + case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."OutAmountDEV" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."OutAmountDEV2" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + end OutAmountHUF_Account, + case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."InAmountDEV" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."InAmountDEV2" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + end - round(cast(t1."InAmountHUF" as numeric),2) InAmountHUF_Diff, + case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."OutAmountDEV" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."OutAmountDEV2" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + end - round(cast(t1."OutAmountHUF" as numeric),2) OutAmountHUF_Diff, + t1."GLRowsRateDiff" GLRowsRateDiff, + case when t1."PartnerType" = 0 Then + case when case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."InAmountDEV" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."InAmountDEV2" as numeric),2)* round(cast(t3."CurrencyRate" as numeric),2) + end - round(cast(t1."InAmountHUF" as numeric),2) > 0 Then -1 + else 1 + end + when t1."PartnerType" = 1 Then + case when case when t3."CurrencyName"=t5."CurrencyName" then round(cast(t1."OutAmountDEV" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + else round(cast(t1."OutAmountDEV2" as numeric),2)*round(cast(t3."CurrencyRate" as numeric),2) + end - round(cast(t1."OutAmountHUF" as numeric),2) > 0 Then 1 + else -1 + end + else 0 + end RateDiffState +from "GLRows" t1 + left join "GLHeader" t2 on t1."GLHeader"=t2."Oid" + join "vv_PartnerConnectionInfoAccount" t3 on t2."CustomersFrom"=t3."CustomersFrom" + and t1."PartnerType"=t3."PartnerType" and t1."Customer"=t3."Customers" and t1."ConnectInfo"=t3."ConnectInfo" + left join "PCIGroup" t4 on t2."CustomersFrom"=t4."CustomersFrom" + and t1."PartnerType"=t4."PartnerType" and t1."Customer"=t4."Customers" and t1."ConnectInfo"=t4."ConnectInfo" + left join "LiquidAssets" t5 on t1."LiquidAssets"=t5."Oid" + left join "CurrencyName" t6 on t5."CurrencyName"=t6."Oid" + left join "CurrencyName" t7 on t3."CurrencyName"=t7."Oid" +where t2."GCRecord" is null and + t2."GLDocumentType" in (2,3,4) and + t6."ShortName" <> 'HUF' and coalesce(t7."ShortName",'HUF')<>'HUF' and + ((t1."PartnerType"=0 and t1."InAmountHUF">0) or (t1."PartnerType"=1 and t1."OutAmountHUF">0)) + diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyChartOfAccounts_PopUp.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyChartOfAccounts_PopUp.vb new file mode 100644 index 0000000..cb32afe --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyChartOfAccounts_PopUp.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class CopyChartOfAccounts_PopUp + Inherits BaseObject + + Private _ChartOfAccountsYear_From As Long + Private _ChartOfAccountsYear_To As Long + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ChartOfAccountsYear_From As Long + Get + Return _ChartOfAccountsYear_From + End Get + Set(value As Long) + SetPropertyValue("ChartOfAccountsYear_From", _ChartOfAccountsYear_From, value) + End Set + End Property + Property ChartOfAccountsYear_To As Long + Get + Return _ChartOfAccountsYear_To + End Get + Set(value As Long) + SetPropertyValue("ChartOfAccountsYear_To", _ChartOfAccountsYear_To, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyWorkflowSystem_PopUp.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyWorkflowSystem_PopUp.vb new file mode 100644 index 0000000..36b14d1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/CopyWorkflowSystem_PopUp.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ + _ +Public Class CopyWorkflowSystem_PopUp + Inherits BaseObject + + Private _NeedToCopy As Boolean + Private _WorkflowSystem As WorkflowSystem + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property NeedToCopy As Boolean + Get + Return _NeedToCopy + End Get + Set(value As Boolean) + SetPropertyValue("NeedToCopy", _NeedToCopy, value) + End Set + End Property + Property WorkflowSystem As WorkflowSystem + Get + Return _WorkflowSystem + End Get + Set(value As WorkflowSystem) + SetPropertyValue("WorkflowSystem", _WorkflowSystem, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/ExportOids_PopUp.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/ExportOids_PopUp.vb new file mode 100644 index 0000000..1022357 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/PopUp/ExportOids_PopUp.vb @@ -0,0 +1,50 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eExportOidClass + Controlling = 0 + CostHolder = 1 + VAT = 2 +End Enum + _ + _ + _ + _ +Public Class ExportOids_PopUp + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + OpenFileAfterExport = True + End Sub + + Private _ExportOidClass As eExportOidClass + Private _OpenFileAfterExport As Boolean + + Property ExportOidClass As eExportOidClass + Get + Return _ExportOidClass + End Get + Set(value As eExportOidClass) + SetPropertyValue("ExportOidClass", _ExportOidClass, value) + End Set + End Property + Property OpenFileAfterExport As Boolean + Get + Return _OpenFileAfterExport + End Get + Set(value As Boolean) + SetPropertyValue("OpenFileAfterExport", _OpenFileAfterExport, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool.vb new file mode 100644 index 0000000..713de23 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool.vb @@ -0,0 +1,148 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SystemTool + Inherits BaseObject + + Private _SQLType_From As eSQLType + Private _SQLServer_From As String + Private _SQLUser_From As String + Private _SQLPassword_From As String + Private _SQLDatabase_From As String + + Private _SQLType_To As eSQLType + Private _SQLServer_To As String + Private _SQLUser_To As String + Private _SQLPassword_To As String + Private _SQLDatabase_To As String + + Private _UserCreated As User + Private _ObjectCreated As Date + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + SQLType_From = eSQLType.MSSQL + SQLType_To = eSQLType.MSSQL + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + + Property SQLType_From As eSQLType + Get + Return _SQLType_From + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType_From", _SQLType_From, value) + End Set + End Property + Property SQLServer_From As String + Get + Return _SQLServer_From + End Get + Set(value As String) + SetPropertyValue("SQLServer_From", _SQLServer_From, value) + End Set + End Property + Property SQLUser_From As String + Get + Return _SQLUser_From + End Get + Set(value As String) + SetPropertyValue("SQLUser_From", _SQLUser_From, value) + End Set + End Property + Property SQLPassword_From As String + Get + Return _SQLPassword_From + End Get + Set(value As String) + SetPropertyValue("SQLPassword_From", _SQLPassword_From, value) + End Set + End Property + Property SQLDatabase_From As String + Get + Return _SQLDatabase_From + End Get + Set(value As String) + SetPropertyValue("SQLDatabase_From", _SQLDatabase_From, value) + End Set + End Property + + Property SQLType_To As eSQLType + Get + Return _SQLType_To + End Get + Set(value As eSQLType) + SetPropertyValue("SQLType_To", _SQLType_To, value) + End Set + End Property + Property SQLServer_To As String + Get + Return _SQLServer_To + End Get + Set(value As String) + SetPropertyValue("SQLServer_To", _SQLServer_To, value) + End Set + End Property + Property SQLUser_To As String + Get + Return _SQLUser_To + End Get + Set(value As String) + SetPropertyValue("SQLUser_To", _SQLUser_To, value) + End Set + End Property + Property SQLPassword_To As String + Get + Return _SQLPassword_To + End Get + Set(value As String) + SetPropertyValue("SQLPassword_To", _SQLPassword_To, value) + End Set + End Property + Property SQLDatabase_To As String + Get + Return _SQLDatabase_To + End Get + Set(value As String) + SetPropertyValue("SQLDatabase_To", _SQLDatabase_To, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.Designer.vb new file mode 100644 index 0000000..9b44660 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.Designer.vb @@ -0,0 +1,198 @@ +Partial Class SystemTool_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSystemTool_CopyVAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_CopyCostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_CopyControlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_ExportOids = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSystemTool_CopyCustomersGLParameters = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_ConnectionValidator = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_CopyChartOfAccounts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSystemTool_CopyUnits = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSystemTool_CopyWorkflowSystem = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aSystemTool_CopyVAT + ' + Me.aSystemTool_CopyVAT.Caption = "aSystemTool_CopyVAT" + Me.aSystemTool_CopyVAT.Category = "aSystemTool_CopyVAT" + Me.aSystemTool_CopyVAT.ConfirmationMessage = Nothing + Me.aSystemTool_CopyVAT.Id = "aSystemTool_CopyVAT" + Me.aSystemTool_CopyVAT.ImageName = Nothing + Me.aSystemTool_CopyVAT.Shortcut = Nothing + Me.aSystemTool_CopyVAT.Tag = Nothing + Me.aSystemTool_CopyVAT.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyVAT.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyVAT.TargetViewId = Nothing + Me.aSystemTool_CopyVAT.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_CopyVAT.ToolTip = Nothing + Me.aSystemTool_CopyVAT.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_CopyCostHolder + ' + Me.aSystemTool_CopyCostHolder.Caption = "aSystemTool_CopyCostHolder" + Me.aSystemTool_CopyCostHolder.Category = "aSystemTool_CopyCostHolder" + Me.aSystemTool_CopyCostHolder.ConfirmationMessage = Nothing + Me.aSystemTool_CopyCostHolder.Id = "aSystemTool_CopyCostHolder" + Me.aSystemTool_CopyCostHolder.ImageName = Nothing + Me.aSystemTool_CopyCostHolder.Shortcut = Nothing + Me.aSystemTool_CopyCostHolder.Tag = Nothing + Me.aSystemTool_CopyCostHolder.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyCostHolder.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyCostHolder.TargetViewId = Nothing + Me.aSystemTool_CopyCostHolder.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_CopyCostHolder.ToolTip = Nothing + Me.aSystemTool_CopyCostHolder.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_CopyControlling + ' + Me.aSystemTool_CopyControlling.Caption = "aSystemTool_CopyControlling" + Me.aSystemTool_CopyControlling.Category = "aSystemTool_CopyControlling" + Me.aSystemTool_CopyControlling.ConfirmationMessage = Nothing + Me.aSystemTool_CopyControlling.Id = "aSystemTool_CopyControlling" + Me.aSystemTool_CopyControlling.ImageName = Nothing + Me.aSystemTool_CopyControlling.Shortcut = Nothing + Me.aSystemTool_CopyControlling.Tag = Nothing + Me.aSystemTool_CopyControlling.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyControlling.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyControlling.TargetViewId = Nothing + Me.aSystemTool_CopyControlling.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_CopyControlling.ToolTip = Nothing + Me.aSystemTool_CopyControlling.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_ExportOids + ' + Me.aSystemTool_ExportOids.AcceptButtonCaption = Nothing + Me.aSystemTool_ExportOids.CancelButtonCaption = Nothing + Me.aSystemTool_ExportOids.Caption = "aSystemTool_ExportOids" + Me.aSystemTool_ExportOids.Category = "aSystemTool_ExportOids" + Me.aSystemTool_ExportOids.ConfirmationMessage = Nothing + Me.aSystemTool_ExportOids.Id = "aSystemTool_ExportOids" + Me.aSystemTool_ExportOids.ImageName = Nothing + Me.aSystemTool_ExportOids.Shortcut = Nothing + Me.aSystemTool_ExportOids.Tag = Nothing + Me.aSystemTool_ExportOids.TargetObjectsCriteria = Nothing + Me.aSystemTool_ExportOids.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_ExportOids.TargetViewId = Nothing + Me.aSystemTool_ExportOids.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_ExportOids.ToolTip = Nothing + Me.aSystemTool_ExportOids.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_CopyCustomersGLParameters + ' + Me.aSystemTool_CopyCustomersGLParameters.Caption = "aSystemTool_CopyCustomersGLParameters" + Me.aSystemTool_CopyCustomersGLParameters.Category = "aSystemTool_CopyCustomersGLParameters" + Me.aSystemTool_CopyCustomersGLParameters.ConfirmationMessage = Nothing + Me.aSystemTool_CopyCustomersGLParameters.Id = "aSystemTool_CopyCustomersGLParameters" + Me.aSystemTool_CopyCustomersGLParameters.ImageName = Nothing + Me.aSystemTool_CopyCustomersGLParameters.Shortcut = Nothing + Me.aSystemTool_CopyCustomersGLParameters.Tag = Nothing + Me.aSystemTool_CopyCustomersGLParameters.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyCustomersGLParameters.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyCustomersGLParameters.TargetViewId = Nothing + Me.aSystemTool_CopyCustomersGLParameters.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_CopyCustomersGLParameters.ToolTip = Nothing + Me.aSystemTool_CopyCustomersGLParameters.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_ConnectionValidator + ' + Me.aSystemTool_ConnectionValidator.Caption = "aSystemTool_ConnectionValidator" + Me.aSystemTool_ConnectionValidator.Category = "aSystemTool_ConnectionValidator" + Me.aSystemTool_ConnectionValidator.ConfirmationMessage = Nothing + Me.aSystemTool_ConnectionValidator.Id = "aSystemTool_ConnectionValidator" + Me.aSystemTool_ConnectionValidator.ImageName = Nothing + Me.aSystemTool_ConnectionValidator.Shortcut = Nothing + Me.aSystemTool_ConnectionValidator.Tag = Nothing + Me.aSystemTool_ConnectionValidator.TargetObjectsCriteria = Nothing + Me.aSystemTool_ConnectionValidator.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_ConnectionValidator.TargetViewId = Nothing + Me.aSystemTool_ConnectionValidator.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_ConnectionValidator.ToolTip = Nothing + Me.aSystemTool_ConnectionValidator.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_CopyChartOfAccounts + ' + Me.aSystemTool_CopyChartOfAccounts.AcceptButtonCaption = Nothing + Me.aSystemTool_CopyChartOfAccounts.CancelButtonCaption = Nothing + Me.aSystemTool_CopyChartOfAccounts.Caption = "aSystemTool_CopyChartOfAccounts" + Me.aSystemTool_CopyChartOfAccounts.Category = "aSystemTool_CopyChartOfAccounts" + Me.aSystemTool_CopyChartOfAccounts.ConfirmationMessage = Nothing + Me.aSystemTool_CopyChartOfAccounts.Id = "aSystemTool_CopyChartOfAccounts" + Me.aSystemTool_CopyChartOfAccounts.ImageName = Nothing + Me.aSystemTool_CopyChartOfAccounts.Shortcut = Nothing + Me.aSystemTool_CopyChartOfAccounts.Tag = Nothing + Me.aSystemTool_CopyChartOfAccounts.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyChartOfAccounts.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyChartOfAccounts.TargetViewId = Nothing + Me.aSystemTool_CopyChartOfAccounts.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSystemTool_CopyChartOfAccounts.ToolTip = Nothing + Me.aSystemTool_CopyChartOfAccounts.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSystemTool_CopyUnits + ' + Me.aSystemTool_CopyUnits.Caption = "aSystemTool_CopyUnits" + Me.aSystemTool_CopyUnits.Category = "aSystemTool_CopyUnits" + Me.aSystemTool_CopyUnits.ConfirmationMessage = Nothing + Me.aSystemTool_CopyUnits.Id = "aSystemTool_CopyUnits" + Me.aSystemTool_CopyUnits.ImageName = Nothing + Me.aSystemTool_CopyUnits.Shortcut = Nothing + Me.aSystemTool_CopyUnits.Tag = Nothing + Me.aSystemTool_CopyUnits.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyUnits.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyUnits.TargetViewId = Nothing + Me.aSystemTool_CopyUnits.ToolTip = Nothing + Me.aSystemTool_CopyUnits.TypeOfView = Nothing + ' + 'aSystemTool_CopyWorkflowSystem + ' + Me.aSystemTool_CopyWorkflowSystem.AcceptButtonCaption = Nothing + Me.aSystemTool_CopyWorkflowSystem.CancelButtonCaption = Nothing + Me.aSystemTool_CopyWorkflowSystem.Caption = "aSystemTool_CopyWorkflowSystem" + Me.aSystemTool_CopyWorkflowSystem.ConfirmationMessage = Nothing + Me.aSystemTool_CopyWorkflowSystem.Id = "aSystemTool_CopyWorkflowSystem" + Me.aSystemTool_CopyWorkflowSystem.ImageName = Nothing + Me.aSystemTool_CopyWorkflowSystem.Shortcut = Nothing + Me.aSystemTool_CopyWorkflowSystem.Tag = Nothing + Me.aSystemTool_CopyWorkflowSystem.TargetObjectsCriteria = Nothing + Me.aSystemTool_CopyWorkflowSystem.TargetObjectType = GetType(SISBusiness.[Module].SystemTool) + Me.aSystemTool_CopyWorkflowSystem.TargetViewId = Nothing + Me.aSystemTool_CopyWorkflowSystem.ToolTip = Nothing + Me.aSystemTool_CopyWorkflowSystem.TypeOfView = Nothing + + End Sub + Friend WithEvents aSystemTool_ConnectionValidator As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_CopyChartOfAccounts As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSystemTool_CopyVAT As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_CopyCostHolder As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_CopyControlling As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_ExportOids As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSystemTool_CopyCustomersGLParameters As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_CopyUnits As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSystemTool_CopyWorkflowSystem As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.resx b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.resx new file mode 100644 index 0000000..b4104c7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 763, 134 + + + 548, 134 + + + 333, 134 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 17, 17 + + + 268, 278 + + + 450, 278 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.vb b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.vb new file mode 100644 index 0000000..2b3a609 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/SystemTool/SystemTool_VC.vb @@ -0,0 +1,663 @@ +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 + +Public Class SystemTool_VC + Inherits DevExpress.ExpressApp.ViewController + Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long) + Public Event DoWork() + Public Event FinalWork + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Private Sub aSystemTool_ConnectionValidator_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_ConnectionValidator.Execute + 'Beep() + + End Sub + Private Sub aSystemTool_CopyChartOfAccounts_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSystemTool_CopyChartOfAccounts.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CopyChartOfAccounts_PopUp As New CopyChartOfAccounts_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "CopyChartOfAccounts_PopUp_DetailView", False, _CopyChartOfAccounts_PopUp) + End Sub + Private Sub aSystemTool_CopyChartOfAccounts_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSystemTool_CopyChartOfAccounts.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _CopyChartOfAccounts_PopUp As CopyChartOfAccounts_PopUp = _ocur.GetObject(e.PopupWindow.View.SelectedObjects(0)) + Dim _Session_From As New Session + Dim _Session_To As New Session + + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + Try + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + Dim _uow_From As New UnitOfWork(_Session_From.DataLayer) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + Dim _ChartOfAccounts_Collection_From As New XPCollection(Of ChartOfAccounts)(_uow_From, CriteriaOperator.Parse("AccountYear=?", _CopyChartOfAccounts_PopUp.ChartOfAccountsYear_From)) + Dim _ChartOfAccountsYear_From As ChartOfAccountsYear = _uow_From.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _CopyChartOfAccounts_PopUp.ChartOfAccountsYear_From)) + + Dim _ChartOfAccountsYear_To As ChartOfAccountsYear = _uow_To.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("AccountYear=?", _CopyChartOfAccounts_PopUp.ChartOfAccountsYear_To)) + If _ChartOfAccountsYear_To Is Nothing Then + _ChartOfAccountsYear_To = New ChartOfAccountsYear(_uow_To) + With _ChartOfAccountsYear_To + .AccountYear = _CopyChartOfAccounts_PopUp.ChartOfAccountsYear_To + End With + _uow_To.CommitChanges() + End If + + Dim _ChartOfAccounts_Collection_To As New XPCollection(Of ChartOfAccounts)(_uow_To, CriteriaOperator.Parse("AccountYear=?", _ChartOfAccountsYear_To.AccountYear)) + 'ChartOfAccounts.AccountNumber-re kell vizsglni, ha van nem szabad bntani + + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection_From.Count) + + If _ChartOfAccounts_Collection_To.Count = 0 Then + 'j v nem kell vizsglgatni a ltezket + For Each _ChartOfAccounts As ChartOfAccounts In _ChartOfAccounts_Collection_From + Dim _ChartOfAccounts_New_To As New ChartOfAccounts(_uow_To) + With _ChartOfAccounts_New_To + .Name = _ChartOfAccounts.Name + .Parent = Nothing + .AccountNumber = _ChartOfAccounts.AccountNumber + .AccountYear = _ChartOfAccountsYear_To.AccountYear + End With + RaiseEvent DoWork() + Next + Else + 'Szvs, meglv vhez kell beszrni dolgokat, vizsglgatni kell az AccountNumber-eket + For Each _ChartOfAccounts As ChartOfAccounts In _ChartOfAccounts_Collection_From + If Not IsExistChartOfAccounts(_ChartOfAccounts.AccountNumber, _ChartOfAccounts_Collection_To) Then + Dim _ChartOfAccounts_New_To As New ChartOfAccounts(_uow_To) + With _ChartOfAccounts_New_To + .Name = _ChartOfAccounts.Name + .Parent = Nothing + .AccountNumber = _ChartOfAccounts.AccountNumber + .AccountYear = _ChartOfAccountsYear_To.AccountYear + End With + End If + RaiseEvent DoWork() + Next + End If + + _uow_To.CommitChanges() + + RaiseEvent FinalWork + + _ChartOfAccounts_Collection_To = New XPCollection(Of ChartOfAccounts)(_uow_To, CriteriaOperator.Parse("AccountYear=?", _ChartOfAccountsYear_To.AccountYear)) + + RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection_To.Count) + For Each _ChartOfAccounts As ChartOfAccounts In _ChartOfAccounts_Collection_To + RecursiveSetParent(_uow_To, _ChartOfAccountsYear_To.AccountYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts) + RaiseEvent DoWork() + Next + _uow_To.CommitChanges() + RaiseEvent FinalWork + + + 'Select Case _SystemTool.SQLType_To + ' Case eSQLType.MSSQL + ' _uow_To.ExecuteNonQuery("ALTER TABLE ChartOfAccountsYear NOCHECK CONSTRAINT ALL") + ' _uow_To.ExecuteNonQuery("UPDATE ChartOfAccountsYear SET Oid='" + _ChartOfAccountsYear_From.Oid.ToString + "' WHERE Oid='" + _ChartOfAccountsYear_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ChartOfAccountsYear CHECK CONSTRAINT ALL") + ' Case eSQLType.MySQL + ' '--==Oid regenerls==-- + ' _uow_To.ExecuteNonQuery("UPDATE ChartOfAccountsYear SET Oid='" + _ChartOfAccountsYear_From.Oid.ToString + "' WHERE Oid='" + _ChartOfAccountsYear_New.Oid.ToString + "'") + ' '--===================-- + ' Case eSQLType.PostgreSQL + ' _uow_To.ExecuteNonQuery("UPDATE ""ChartOfAccountsYear"" SET ""Oid""='" + _ChartOfAccountsYear_From.Oid.ToString + "' WHERE ""Oid""='" + _ChartOfAccountsYear_New.Oid.ToString + "'") + 'End Select + + + 'RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + 'For Each _ChartOfAccounts As ChartOfAccounts In _ChartOfAccounts_Collection + ' Dim _ChartOfAccounts_New As New ChartOfAccounts(_uow_To) + ' With _ChartOfAccounts_New + ' .Name = _ChartOfAccounts.Name + ' .Parent = Nothing + ' .AccountNumber = _ChartOfAccounts.AccountNumber + ' .AccountYear = _CopyChartOfAccounts_PopUp.TargetAccountYear + + ' End With + ' _uow_To.CommitChanges() + + ' Select _SystemTool.SQLType_To + ' Case eSQLType.MSSQL + ' _uow_To.ExecuteNonQuery("ALTER TABLE HCategory NOCHECK CONSTRAINT ALL") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ChartOfAccounts NOCHECK CONSTRAINT ALL") + ' _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _ChartOfAccounts.Oid.ToString + "' WHERE Oid='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("UPDATE ChartOfAccounts SET Oid='" + _ChartOfAccounts.Oid.ToString + "' WHERE Oid='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("ALTER TABLE HCategory CHECK CONSTRAINT ALL") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ChartOfAccounts CHECK CONSTRAINT ALL") + ' Case eSQLType.MySQL + ' '--==Oid regenerls==-- + ' _uow_To.ExecuteNonQuery("SET foreign_key_checks = 0") + ' _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _ChartOfAccounts.Oid.ToString + "' WHERE Oid='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("UPDATE ChartOfAccounts SET Oid='" + _ChartOfAccounts.Oid.ToString + "' WHERE Oid='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("SET foreign_key_checks = 1") + ' '--===================-- + ' Case eSQLType.PostgreSQL + ' _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" DISABLE TRIGGER ALL") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ""ChartOfAccounts"" DISABLE TRIGGER ALL") + ' _uow_To.ExecuteNonQuery("UPDATE ""HCategory"" SET ""Oid""='" + _ChartOfAccounts.Oid.ToString + "' WHERE ""Oid""='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("UPDATE ""ChartOfAccounts"" SET ""Oid""='" + _ChartOfAccounts.Oid.ToString + "' WHERE ""Oid""='" + _ChartOfAccounts_New.Oid.ToString + "'") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" ENABLE TRIGGER ALL") + ' _uow_To.ExecuteNonQuery("ALTER TABLE ""ChartOfAccounts"" ENABLE TRIGGER ALL") + ' End Select + ' RaiseEvent DoWork() + 'Next + 'RaiseEvent FinalWork + + + '_ChartOfAccounts_Collection = New XPCollection(Of ChartOfAccounts)(_uow_To, CriteriaOperator.Parse("AccountYear=?", _CopyChartOfAccounts_PopUp.TargetAccountYear)) + 'RaiseEvent InitWork(1, 1, _ChartOfAccounts_Collection.Count) + + 'For Each _ChartOfAccounts In _ChartOfAccounts_Collection + ' RecursiveSetParent(_uow_To, _CopyChartOfAccounts_PopUp.TargetAccountYear, _ChartOfAccounts.AccountNumber, _ChartOfAccounts) + ' RaiseEvent DoWork() + 'Next + '_uow_To.CommitChanges() + 'RaiseEvent FinalWork + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + If _Session_From.IsConnected Then _Session_From.Disconnect() + If _Session_To.IsConnected Then _Session_To.Disconnect() + RaiseEvent FinalWork + End Try + End Sub + Private Function GetConnectionString(_Type As Integer, _SystemTool As SystemTool) As String + Dim _ConnectionString As String = "" + If _Type = 0 Then + Select Case _SystemTool.SQLType_From + Case eSQLType.MSSQL + _ConnectionString = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_From, _SystemTool.SQLUser_From, _SystemTool.SQLPassword_From, _SystemTool.SQLDatabase_From) + Case eSQLType.MySQL + _ConnectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_From, _SystemTool.SQLUser_From, _SystemTool.SQLPassword_From, _SystemTool.SQLDatabase_From) + Case eSQLType.PostgreSQL + _ConnectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_From, _SystemTool.SQLUser_From, _SystemTool.SQLPassword_From, _SystemTool.SQLDatabase_From) + End Select + ElseIf _Type = 1 Then + Select Case _SystemTool.SQLType_To + Case eSQLType.MSSQL + _ConnectionString = DevExpress.Xpo.DB.MSSqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_To, _SystemTool.SQLUser_To, _SystemTool.SQLPassword_To, _SystemTool.SQLDatabase_To) + Case eSQLType.MySQL + _ConnectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_To, _SystemTool.SQLUser_To, _SystemTool.SQLPassword_To, _SystemTool.SQLDatabase_To) + Case eSQLType.PostgreSQL + _ConnectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_SystemTool.SQLServer_To, _SystemTool.SQLUser_To, _SystemTool.SQLPassword_To, _SystemTool.SQLDatabase_To) + End Select + End If + + Return _ConnectionString + End Function + Private Sub RecursiveSetParent(_uow As UnitOfWork, _Year As Long, _AccountNumber As String, _ChartOfAccount_Set As ChartOfAccounts) + Dim _AccountNumber_Parent As String = LTrim(RTrim(Mid(_AccountNumber, 1, Len(_AccountNumber) - 1))) + Dim _ChartOfAccounts_Parent As ChartOfAccounts + + If _AccountNumber_Parent = "" Then + Else + _ChartOfAccounts_Parent = _uow.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("AccountYear=? and AccountNumber=?", _Year, _AccountNumber_Parent)) + If _ChartOfAccounts_Parent Is Nothing Then + RecursiveSetParent(_uow, _Year, _AccountNumber_Parent, _ChartOfAccount_Set) + Else + _ChartOfAccount_Set.Parent = _ChartOfAccounts_Parent + _uow.CommitChanges() + + End If + End If + End Sub + Private Sub aSystemTool_CopyVAT_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_CopyVAT.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _VAT_Collection As XPCollection(Of VAT) + Dim _Session_From As New Session + Dim _Session_To As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + Try + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + + Dim _uow_From As New UnitOfWork(_Session_From.DataLayer) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + _VAT_Collection = New XPCollection(Of VAT)(_uow_From, CriteriaOperator.Parse("1=1")) + + RaiseEvent InitWork(1, 1, _VAT_Collection.Count) + For Each _VAT As VAT In _VAT_Collection + Dim _VAT_New As New VAT(_uow_To) + With _VAT_New + .ShortName = _VAT.ShortName + .Description = _VAT.Description + .KeyValue = _VAT.KeyValue + .ChartOfAccountsOut = _uow_To.GetObjectByKey(Of ChartOfAccounts)(_VAT.ChartOfAccountsOut.Oid) + .ChartOfAccountsIn = _uow_To.GetObjectByKey(Of ChartOfAccounts)(_VAT.ChartOfAccountsIn.Oid) + .ClaimState = _VAT.ClaimState + .Active = _VAT.Active + .InversState = _VAT.InversState + .InversKeyValue = _VAT.InversKeyValue + .DefaultForBusinnes = _VAT.DefaultForBusinnes + .DefaultForExternalEUNoVAT = _VAT.DefaultForExternalEUNoVAT + .DefaultForExternalOther = _VAT.DefaultForExternalOther + .DefaultForInversVAT = _VAT.DefaultForInversVAT + End With + _uow_To.CommitChanges() + Select Case _SystemTool.SQLType_To + Case eSQLType.MSSQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("UPDATE VAT SET Oid='" + _VAT.Oid.ToString + "' WHERE Oid='" + _VAT_New.Oid.ToString + "'") + '--===================-- + Case eSQLType.MySQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("UPDATE VAT SET Oid='" + _VAT.Oid.ToString + "' WHERE Oid='" + _VAT_New.Oid.ToString + "'") + '--===================-- + Case eSQLType.PostgreSQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("UPDATE ""VAT"" SET ""Oid""='" + _VAT.Oid.ToString + "' WHERE ""Oid""='" + _VAT_New.Oid.ToString + "'") + '--===================-- + End Select + + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + If _Session_From.IsConnected Then _Session_From.Disconnect() + If _Session_To.IsConnected Then _Session_To.Disconnect() + RaiseEvent FinalWork + End Try + End Sub + Private Sub aSystemTool_CopyCostHolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_CopyCostHolder.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _CostHolder_Collection As XPCollection(Of CostHolder) + Dim _Session_From As New Session + Dim _Session_To As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + Try + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + + Dim _uow_From As New UnitOfWork(_Session_From.DataLayer) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + _CostHolder_Collection = New XPCollection(Of CostHolder)(_uow_From, CriteriaOperator.Parse("1=1")) + + RaiseEvent InitWork(1, 1, _CostHolder_Collection.Count) + For Each _CostHolder As CostHolder In _CostHolder_Collection + Dim _CostHolder_New As New CostHolder(_uow_To) + With _CostHolder_New + .Name = _CostHolder.Name + If _CostHolder.Parent IsNot Nothing Then + Dim _Parent As CostHolder = _uow_From.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _CostHolder.Parent.Oid)) + .Parent = _uow_To.GetObjectByKey(Of CostHolder)(_Parent.Oid) + End If + End With + _uow_To.CommitChanges() + + Select _SystemTool.SQLType_To + Case eSQLType.MSSQL + _uow_To.ExecuteNonQuery("ALTER TABLE HCategory NOCHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE CostHolder NOCHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _CostHolder.Oid.ToString + "' WHERE Oid='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE CostHolder SET Oid='" + _CostHolder.Oid.ToString + "' WHERE Oid='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("ALTER TABLE HCategory CHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE CostHolder CHECK CONSTRAINT ALL") + Case eSQLType.MySQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("SET foreign_key_checks = 0") + _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _CostHolder.Oid.ToString + "' WHERE Oid='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE CostHolder SET Oid='" + _CostHolder.Oid.ToString + "' WHERE Oid='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("SET foreign_key_checks = 1") + '--===================-- + Case eSQLType.PostgreSQL + _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" DISABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE ""CostHolder"" DISABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("UPDATE ""CostHolder"" SET ""Oid""='" + _CostHolder.Oid.ToString + "' WHERE ""Oid""='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE ""HCategory"" SET ""Oid""='" + _CostHolder.Oid.ToString + "' WHERE ""Oid""='" + _CostHolder_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" ENABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE ""CostHolder"" ENABLE TRIGGER ALL") + End Select + + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + If _Session_From.IsConnected Then _Session_From.Disconnect() + If _Session_To.IsConnected Then _Session_To.Disconnect() + RaiseEvent FinalWork + End Try + End Sub + Private Sub aSystemTool_CopyControlling_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_CopyControlling.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _Controlling_Collection As XPCollection(Of Controlling) + Dim _Session_From As New Session + Dim _Session_To As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + Try + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + + Dim _uow_From As New UnitOfWork(_Session_From.DataLayer) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + _Controlling_Collection = New XPCollection(Of Controlling)(_uow_From, CriteriaOperator.Parse("1=1")) + + RaiseEvent InitWork(1, 1, _Controlling_Collection.Count) + For Each _Controlling As Controlling In _Controlling_Collection + Dim _Controlling_New As New Controlling(_uow_To) + With _Controlling_New + .Name = _Controlling.Name + If _Controlling.Parent IsNot Nothing Then + Dim _Parent As Controlling = _uow_From.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _Controlling.Parent.Oid)) + .Parent = _uow_To.GetObjectByKey(Of Controlling)(_Parent.Oid) + End If + If _Controlling.ChartOfAccounts IsNot Nothing Then + .ChartOfAccounts = _uow_To.GetObjectByKey(Of ChartOfAccounts)(_Controlling.ChartOfAccounts.Oid) + End If + If _Controlling.ChartOfAccounts2 IsNot Nothing Then + .ChartOfAccounts2 = _uow_To.GetObjectByKey(Of ChartOfAccounts)(_Controlling.ChartOfAccounts2.Oid) + End If + .IsCOCRequired = _Controlling.IsCOCRequired + .COCAboveAmount = _Controlling.COCAboveAmount + .IsParent = _Controlling.IsParent + .Controllingdirection = _Controlling.Controllingdirection + .IsReInvoiceReason = _Controlling.IsReInvoiceReason + .ReInvoiceDescription = _Controlling.ReInvoiceDescription + .TechnicalContractLimit = _Controlling.TechnicalContractLimit + If _Controlling.Controlling1 IsNot Nothing Then + .Controlling1 = _uow_To.GetObjectByKey(Of Controlling)(_Controlling.Controlling1.Oid) + Else + .Controlling1 = Nothing + End If + If _Controlling.Controlling2 IsNot Nothing Then + .Controlling2 = _uow_To.GetObjectByKey(Of Controlling)(_Controlling.Controlling2.Oid) + Else + .Controlling2 = Nothing + End If + If _Controlling.Controlling3 IsNot Nothing Then + .Controlling3 = _uow_To.GetObjectByKey(Of Controlling)(_Controlling.Controlling3.Oid) + Else + .Controlling3 = Nothing + End If + If _Controlling.Controlling4 IsNot Nothing Then + .Controlling4 = _uow_To.GetObjectByKey(Of Controlling)(_Controlling.Controlling4.Oid) + Else + .Controlling4 = Nothing + End If + If _Controlling.Controlling5 IsNot Nothing Then + .Controlling5 = _uow_To.GetObjectByKey(Of Controlling)(_Controlling.Controlling5.Oid) + Else + .Controlling5 = Nothing + End If + .IsAdvancePayment = _Controlling.IsAdvancePayment + .IsEstateStatistics = _Controlling.IsEstateStatistics + End With + _uow_To.CommitChanges() + + + Select _SystemTool.SQLType_To + Case eSQLType.MSSQL + _uow_To.ExecuteNonQuery("ALTER TABLE HCategory NOCHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE Controlling NOCHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _Controlling.Oid.ToString + "' WHERE Oid='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE Controlling SET Oid='" + _Controlling.Oid.ToString + "' WHERE Oid='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("ALTER TABLE HCategory CHECK CONSTRAINT ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE Controlling CHECK CONSTRAINT ALL") + Case eSQLType.MySQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("SET foreign_key_checks = 0") + _uow_To.ExecuteNonQuery("UPDATE HCategory SET Oid='" + _Controlling.Oid.ToString + "' WHERE Oid='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE Controlling SET Oid='" + _Controlling.Oid.ToString + "' WHERE Oid='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("SET foreign_key_checks = 1") + '--===================-- + Case eSQLType.PostgreSQL + _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" DISABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE ""Controlling"" DISABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("UPDATE ""HCategory"" SET ""Oid""='" + _Controlling.Oid.ToString + "' WHERE ""Oid""='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("UPDATE ""Controlling"" SET ""Oid""='" + _Controlling.Oid.ToString + "' WHERE ""Oid""='" + _Controlling_New.Oid.ToString + "'") + _uow_To.ExecuteNonQuery("ALTER TABLE ""HCategory"" ENABLE TRIGGER ALL") + _uow_To.ExecuteNonQuery("ALTER TABLE ""Controlling"" ENABLE TRIGGER ALL") + + End Select + + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + If _Session_From.IsConnected Then _Session_From.Disconnect() + If _Session_To.IsConnected Then _Session_To.Disconnect() + RaiseEvent FinalWork + End Try + End Sub + Private Sub aSystemTool_ExportOids_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSystemTool_ExportOids.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ExportOids_PopUp As New ExportOids_PopUp(_onew.Session) + + e.View = Application.CreateDetailView(_onew, "ExportOids_PopUp_DetailView", False, _ExportOids_PopUp) + End Sub + Private Sub aSystemTool_ExportOids_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSystemTool_ExportOids.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ExportOids_PopUp As ExportOids_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ExportOids_PopUp) + If _ExportOids_PopUp IsNot Nothing Then + Dim _FileName As String = IO.Path.GetTempPath + "Export.txt" + If IO.File.Exists(_FileName) Then IO.File.Delete(_FileName) + Dim _StreamWriter As New System.IO.StreamWriter(_FileName, True) + Select Case _ExportOids_PopUp.ExportOidClass + Case eExportOidClass.Controlling + Dim _Controlling_Collection As New XPCollection(Of Controlling)(_ocur.Session, CriteriaOperator.Parse("1=1")) + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + Dim _Index As Integer = 1 + For Each _Controlling As Controlling In _Controlling_Collection + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + _Index += 1 + Next + _StreamWriter.WriteLine("") + Case eExportOidClass.CostHolder + Dim _CostHolder_Collection As New XPCollection(Of CostHolder)(_ocur.Session, CriteriaOperator.Parse("1=1")) + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + Dim _Index As Integer = 1 + For Each _CostHolder As CostHolder In _CostHolder_Collection + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + _Index += 1 + Next + _StreamWriter.WriteLine("") + Case eExportOidClass.VAT + Dim _VAT_Collection As New XPCollection(Of VAT)(_ocur.Session, CriteriaOperator.Parse("1=1")) + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + Dim _Index As Integer = 1 + For Each _VAT As VAT In _VAT_Collection + _StreamWriter.WriteLine("") + _StreamWriter.WriteLine("") + Next + _StreamWriter.WriteLine("") + End Select + _StreamWriter.Close() + + If _ExportOids_PopUp.OpenFileAfterExport Then + Process.Start(_FileName) + End If + End If + + End Sub + Private Sub aSystemTool_CopyCustomersGLParameters_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_CopyCustomersGLParameters.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _CustomersGLParameters_Collection As XPCollection(Of CustomersGLParameters) + Dim _Session_From As New Session + Dim _Session_To As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + Try + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + + Dim _uow_From As New UnitOfWork(_Session_From.DataLayer) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + _CustomersGLParameters_Collection = New XPCollection(Of CustomersGLParameters)(_uow_From, CriteriaOperator.Parse("1=1")) + + RaiseEvent InitWork(1, 1, _CustomersGLParameters_Collection.Count) + For Each _CustomersGLParameters As CustomersGLParameters In _CustomersGLParameters_Collection + Dim _CustomersGLParameters_New As New CustomersGLParameters(_uow_To) + With _CustomersGLParameters_New + .ShortName = _CustomersGLParameters.ShortName + .DefaultforBusiness = _CustomersGLParameters.DefaultforBusiness + End With + _uow_To.CommitChanges() + + Select Case _SystemTool.SQLType_To + Case eSQLType.MSSQL + _uow_To.ExecuteNonQuery("UPDATE CustomersGLParameters SET Oid='" + _CustomersGLParameters.Oid.ToString + "' WHERE Oid='" + _CustomersGLParameters_New.Oid.ToString + "'") + Case eSQLType.MySQL + '--==Oid regenerls==-- + _uow_To.ExecuteNonQuery("UPDATE CustomersGLParameters SET Oid='" + _CustomersGLParameters.Oid.ToString + "' WHERE Oid='" + _CustomersGLParameters_New.Oid.ToString + "'") + '--===================-- + Case eSQLType.PostgreSQL + _uow_To.ExecuteNonQuery("UPDATE ""CustomersGLParameters"" SET ""Oid""='" + _CustomersGLParameters.Oid.ToString + "' WHERE ""Oid""='" + _CustomersGLParameters_New.Oid.ToString + "'") + End Select + + RaiseEvent DoWork() + Next + RaiseEvent FinalWork + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + Finally + If _Session_From.IsConnected Then _Session_From.Disconnect() + If _Session_To.IsConnected Then _Session_To.Disconnect() + RaiseEvent FinalWork + End Try + End Sub + Private Sub aSystemTool_CopyUnits_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSystemTool_CopyUnits.Execute + 'Beep() + + End Sub + Private Sub aSystemTool_CopyWorkflowSystem_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aSystemTool_CopyWorkflowSystem.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _Session_From As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_From.Connect() + If _Session_From.IsConnected Then + Dim _CopyWorkflowSystem_CollectionSource As New CollectionSource(_onew, GetType(CopyWorkflowSystem_PopUp)) + Dim _WorkflowSystem_Collection As New XPCollection(Of WorkflowSystem)(_Session_From) + + If _WorkflowSystem_Collection.Count > 0 Then + For Each _WorkflowSystem As WorkflowSystem In _WorkflowSystem_Collection + Dim _CopyWorkflowSystem_PopUp As New CopyWorkflowSystem_PopUp(_onew.Session) + With _CopyWorkflowSystem_PopUp + .NeedToCopy = True + .WorkflowSystem = _onew.GetObject(_WorkflowSystem) + End With + _CopyWorkflowSystem_CollectionSource.Add(_CopyWorkflowSystem_PopUp) + Next + End If + e.View = Application.CreateListView("CopyWorkflowSystem_PopUp_ListView", _CopyWorkflowSystem_CollectionSource, True) + _Session_From.Disconnect() + End If + + End Sub + Private Sub aSystemTool_CopyWorkflowSystem_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aSystemTool_CopyWorkflowSystem.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _SystemTool As SystemTool = TryCast(View.SelectedObjects(0), SystemTool) + Dim _Session_From As New Session + Dim _Session_To As New Session + _Session_From.ConnectionString = GetConnectionString(0, _SystemTool) + _Session_To.ConnectionString = GetConnectionString(1, _SystemTool) + + _Session_From.Connect() + If _Session_From.IsConnected Then + _Session_To.Connect() + If _Session_To.IsConnected Then + RaiseEvent InitWork(1, 1, TryCast(e.PopupWindow.View, ListView).CollectionSource.GetCount()) + Dim _uow_To As New UnitOfWork(_Session_To.DataLayer) + + For Each _CopyWorkflowSystem_PopUp As CopyWorkflowSystem_PopUp In TryCast(e.PopupWindow.View, ListView).CollectionSource.Collection + If _CopyWorkflowSystem_PopUp.NeedToCopy Then + Dim _WorkflowSystem As New WorkflowSystem(_uow_To) + With _WorkflowSystem + .CustomersFrom = _uow_To.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=True")) + .PartnerType = _CopyWorkflowSystem_PopUp.WorkflowSystem.PartnerType + .ShortName = _CopyWorkflowSystem_PopUp.WorkflowSystem.ShortName + .Description = _CopyWorkflowSystem_PopUp.WorkflowSystem.Description + End With + + For Each _WorkflowSystemSteps As WorkflowSystemSteps In _CopyWorkflowSystem_PopUp.WorkflowSystem.WorkflowSystemSteps + Dim _WorkflowSystemSteps_NEW As New WorkflowSystemSteps(_uow_To) + With _WorkflowSystemSteps_NEW + .WorkflowSystem = _WorkflowSystem + .ShortName = _WorkflowSystemSteps.ShortName + .StepIndex = _WorkflowSystemSteps.StepIndex + .TaskDescription = _WorkflowSystemSteps.TaskDescription + .ExpirationDayofFailure = _WorkflowSystemSteps.ExpirationDayofFailure + .ActionOnSuccess = _WorkflowSystemSteps.ActionOnSuccess + .ActionOnFailure = _WorkflowSystemSteps.ActionOnFailure + .IsLastStep = _WorkflowSystemSteps.IsLastStep + .IsReadyForImport = _WorkflowSystemSteps.IsReadyForImport + .StepFinancialType = _WorkflowSystemSteps.StepFinancialType + End With + Next + _uow_To.CommitChanges() + RaiseEvent DoWork() + End If + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Finally + RaiseEvent FinalWork + End Try + End Sub + Private Function IsExistChartOfAccounts(_AccountNumberIn As String, _ChartOfAccounts_CollectionIn As XPCollection(Of ChartOfAccounts)) As Boolean + Dim _Result As Boolean = False + For Each _ChartOfAccounts As ChartOfAccounts In _ChartOfAccounts_CollectionIn + If _ChartOfAccounts.AccountNumber = _AccountNumberIn Then + _Result = True + Exit For + End If + Next + + Return _Result + End Function + +End Class diff --git a/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/Több aktív feladat esetén a felelslegesek lezárása.sql b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/Több aktív feladat esetén a felelslegesek lezárása.sql new file mode 100644 index 0000000..78462ad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/SQLscripts/Több aktív feladat esetén a felelslegesek lezárása.sql @@ -0,0 +1,52 @@ +USE [PH20110829] +GO + +/****** Object: StoredProcedure [dbo].[Feladattakaritas5] Script Date: 09/09/2011 12:43:10 ******/ +SET ANSI_NULLS ON +GO + +SET QUOTED_IDENTIFIER ON +GO + +CREATE PROCEDURE [dbo].[Feladattakaritas5] AS + -- Add the parameters for the stored procedure here + declare @RegistryHeader varchar(250), @Count int, @RegistryTask varchar(250), @Edit int + -- SET NOCOUNT ON added to prevent extra result sets from + -- interfering with SELECT statements. + SET NOCOUNT ON; + + declare cRegistryHeader cursor for select t1.RegistryHeader, Count(RegistryHeader) from RegistryTasks as t1 join +Task as t2 on t1.Oid=t2.Oid where t2.GCRecord is null and t2.Status='0' group by RegistryHeader having COUNT(RegistryHeader) >1 +open cRegistryHeader + +fetch next from cRegistryHeader +into @RegistryHeader, @Count +begin transaction +while @@FETCH_STATUS = 0 +BEGIN + set @edit = 0 + declare cRegistryTasks cursor for select t1.oid from RegistryTasks as t1 join Task as t2 on t1.oid=t2.oid where t1.registryheader = @registryheader and t2.gcrecord is null and t2.status='0' order by t2.startdate desc + open cRegistryTasks + fetch next from cRegistryTasks into @RegistryTask + while @@FETCH_STATUS =0 + begin + + if @Edit=1 + update Task set gcrecord='11' where Oid = @RegistryTask + + else + set @edit = 1 + fetch next from cRegistryTasks into @RegistryTask + end + + close cRegistryTasks + deallocate cRegistryTasks + + fetch next from cRegistryHeader into @RegistryHeader, @Count +END +commit transaction +close cRegistryHeader +deallocate cRegistryHeader + +GO + diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla (devizás).repx new file mode 100644 index 0000000..453d380 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla (devizás).repx @@ -0,0 +1,1698 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUACwEAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAAwBAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlADABAAAB4gFQc" + + "ml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZ" + + "D0nIiAmIGxhYmVsNzUuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KAR5TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAASJCYW5rbmV0IGtpbWVuxZEgc3rDoW1sYSAoZGV2aXrDoXMpQ" + + "AABAAAA/////wEAAAAAAAAADAIAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vsd" + + "HVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAVU3lzdGVtLkRyY" + + "XdpbmcuQml0bWFwAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABYHAAAC/9j/4AAQSkZJRgABAQEAYABgA" + + "AD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMB" + + "wkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAAoAGQDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAA" + + "AECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0Kxw" + + "RVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4e" + + "XqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5" + + "ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDB" + + "AcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpK" + + "jU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkp" + + "aanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRA" + + "xEAPwD9/KKKKACiiigD5t/bz+KOt/B/xp8Pdb0K7NtdwDUFdGy0N1GTa7opFyNyHHsQQCCGAI7Dwh+2p" + + "4Z8V/DRNcisdbutTjPlXWi6dZve3kEoGT90BfLI5WRiqkccMCo8v/4Kg/67wJ9NQ/8AbWvZP2OfBln4M" + + "/Z08NC0RBJq1quqXMgA3SyzKGJPqVXan0QDtVdCE3zM8+sv+CkvhwaxPZ6l4d1/SmjyoaYI3ltjjzUX5" + + "0HT7queehrvvDXxV1W+8Q+Enm1bQdVi8ZtK1tZaVE7w2ltHC8kk5uHO6Qq4jjJ8uMEygbAckVP2xvBPg" + + "nX/AIWXV94rKWN3bgQ6ZfQQ+ZfC4bPlwxKPml3t1i6EZPy7d68T+wwthpfjPxd4btrBWPg5I7FdRmhKX" + + "U8sksv2rOeY4mlhUpGMYVAWy5ck6Am72PpKiiipLCiiigAooooAKKZFcxzkhJEcjn5WBp9ABRTUmSVmC" + + "OrFDggHJFOZgoJJAA5JPagD5P8A+CnULXN74BiUqGkN+gzwMk2o5rP/AGU/2xrb4c/Ce90bW9P1K5ttC" + + "JGmXcSjypd5ZltZZGwkT53FGYhSoI4KDf67+1b+zO/7SC+H5INftdGTR/tKkyWpuBP5vldMOuMeUfXOe" + + "2K8pl/4JmarPDFHJ47t5I4ARGraW5WPPXaPOwM4GcdcVSasZtO90d34f+J/hJVt/GvxH8VeCb/XbNpJ9" + + "JsdNu0vBocUioDFGIyWnlOxS0u04JYKQp5t/sc/ELwl8QdY8bappLzW/iDXNVe+vLS6VUmW2B2QFQpIZ" + + "MHLEE7ZJGB4KE+axf8ABMtmVS3xBs1Zuy6NuH5/aBmtfwr/AME6dZ8CeIrTWNI+JX9n6jYP5kM8ehkFT" + + "3BBuMMpGQVOQQSCCDRZdwV+x9TUVU02eWDSbc311aT3AQCWaGMwwyPj5iqlmKgnOAWYj1PWrdSaBRTIr" + + "qKc4jkjc4z8rA8U55FiUs7KqjuTgUALRUX2+AdZof8AvsUUAfDH7NmkvpP7R3hy9sbB7mc67qkU0FraP" + + "A8Fs8aqs8swBV4RuYqnGCh5O8Afcet6xb+HtGu9Qu5BFa2ULzzPjO1FUsT+QooqpEQeh8g/AnVtf+Gn7" + + "QugeK9dsBYWHxZiuJLgrOJlVpJfNhZlVR5W3zIItrknmQ5GSq/YlwI2gkEoQxFSHD42kY5zntiiikxxP" + + "hT4ZeGvEHgfwv8AD6ylszqngrxhr+k30bPASuj30V+iSxnghd6gjnG7PHKvu+7qKKchQPhT9m2SLwz8S" + + "PDdx4i0hbjwf/bd8NOmEJEGn6m/k7biYAYP7sRBC2FUMXH+rYj7rOMHOMUUUSCB8DeGfDviHwT8NtEjj" + + "tP7Q8FeNNZt5nTyDs0a8t9SC5wMhRJFGoycBg2P4Bv++aKKGwgj5R/YVm0jQviNr0csOlQapqWo38NkE" + + "0uYXrQkxS5Nwv7v7MREdqsBhwSCd4FfRfxb8J6V40+Heq2WtWkF7p4gad4ZifKZoxvUsM4IVlDc8ZAPa" + + "iiiQR2PC/2QP2aPA3jz9nnQNS13wxYXesSNcpcySq6SkrcyhQwBHOzZjIzjHtRRRSbHGKsf/9kL"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74, + this.label50, + this.label49, + this.label48, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43}); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label75, + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 460.0416F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label72, + this.label71, + this.label70, + this.label69, + this.label68, + this.label67, + this.label64, + this.label63, + this.label62, + this.label55, + this.label54, + this.label53, + this.label52, + this.label51, + this.subreport1}); + this.ReportFooter.HeightF = 312.1667F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(316.6666F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(28.3334F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:#,###0.000}")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(672.2083F, 2F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV", "{0:#,###0.000}")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(600F, 2F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:#,###0.000}")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(440F, 2F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(80F, 20F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceDEV", "{0:#,###0.000}")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(345F, 1.999982F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(79.58334F, 20F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(280F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(36.6666F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(90F, 2F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(190F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 87.5F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 178.6667F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 258.6667F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 238.6667F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 218.6667F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 198.6667F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 178.6667F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 158.6667F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 410.8333F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 365.8333F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 282.5F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465F, 127.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(312F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465F, 107.5F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(312F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585.0001F, 178.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(191.9999F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 258.6667F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 238.6667F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 218.6667F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 198.6667F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 178.6667F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 158.6667F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 127.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 107.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(168.75F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(608.25F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Invoice / Számla"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(138.5417F, 53.74999F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 87.5F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 87.5F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(450F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(350F, 3F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label32, + this.label31, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.row_ShortName")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(257.75F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(182.25F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(715.9167F, 20.00001F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label33.SizeF = new System.Drawing.SizeF(44.79169F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(568F, 20F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Currency / Devizanem:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 20F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label31.SizeF = new System.Drawing.SizeF(242.75F, 20.00003F); + this.label31.StylePriority.UseBorders = false; + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Settled period / Számlázási időszak:"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 149.875F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 124.875F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 99.87501F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 285.7084F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 270.7085F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 255.7084F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "A Banknet Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet" + + " 1.§ (6) bekezdés szerinti előírásainak ."; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 149.875F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0.000}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label64.Summary = summary1; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 124.875F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0.000}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 99.87501F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0.000}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label62.Summary = summary3; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 149.875F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 124.875F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 99.87501F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 45.00001F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20.00001F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.75F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA (devizás)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül}); + this.DisplayName = "Banknet kimenő számla (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla.repx new file mode 100644 index 0000000..bd98523 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Banknet kimenő számla.repx @@ -0,0 +1,1698 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUACwEAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAAwBAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlACUBAAAB4gFQc" + + "ml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZ" + + "D0nIiAmIGxhYmVsNzUuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KAR5TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAARdCYW5rbmV0IGtpbWVuxZEgc3rDoW1sYUAAAQAAAP////8BA" + + "AAAAAAAAAwCAAAAUVN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYQUBAAAAFVN5c3RlbS5EcmF3aW5nLkJpdG1hc" + + "AEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAWBwAAAv/Y/+AAEEpGSUYAAQEBAGAAYAAA/9sAQwACAQECA" + + "QECAgICAgICAgMFAwMDAwMGBAQDBQcGBwcHBgcHCAkLCQgICggHBwoNCgoLDAwMDAcJDg8NDA4LDAwM/" + + "9sAQwECAgIDAwMGAwMGDAgHCAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwM/8AAEQgAKABkAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC" + + "//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJC" + + "hYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk" + + "5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29" + + "/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABA" + + "gMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR" + + "0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t" + + "7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A/fyiiigAo" + + "oooA+bf28/ijrfwf8afD3W9CuzbXcA1BXRstDdRk2u6KRcjchx7EEAghgCOw8IftqeGfFfw0TXIrHW7r" + + "U4z5V1ounWb3t5BKBk/dAXyyOVkYqpHHDAqPL/+CoP+u8CfTUP/AG1r2T9jnwZZ+DP2dPDQtEQSatarq" + + "lzIAN0ssyhiT6lV2p9EA7VXQhN8zPPrL/gpL4cGsT2epeHdf0po8qGmCN5bY481F+dB0+6rnnoa77w18" + + "VdVvvEPhJ5tW0HVYvGbStbWWlRO8NpbRwvJJObhzukKuI4yfLjBMoGwHJFT9sbwT4J1/wCFl1feKyljd" + + "24EOmX0EPmXwuGz5cMSj5pd7dYuhGT8u3evE/sMLYaX4z8XeG7awVj4OSOxXUZoSl1PLJLL9qznmOJpY" + + "VKRjGFQFsuXJOgJu9j6SoooqSwooooAKKKKACimRXMc5ISRHI5+VgafQAUU1JklZgjqxQ4IByRTmYKCS" + + "QAOST2oA+T/APgp1C1ze+AYlKhpDfoM8DJNqOaz/wBlP9sa2+HPwnvdG1vT9SubbQiRpl3Eo8qXeWZbW" + + "WRsJE+dxRmIUqCOCg3+u/tW/szv+0gvh+SDX7XRk0f7SpMlqbgT+b5XTDrjHlH1zntivKZf+CZmqzwxR" + + "yeO7eSOAERq2luVjz12jzsDOBnHXFUmrGbTvdHd+H/if4SVbfxr8R/FXgm/12zaSfSbHTbtLwaHFIqAx" + + "RiMlp5TsUtLtOCWCkKebf7HPxC8JfEHWPG2qaS81v4g1zVXvry0ulVJltgdkBUKSGTByxBO2SRgeChPm" + + "sX/AATLZlUt8QbNWbsujbh+f2gZrX8K/wDBOnWfAniK01jSPiV/Z+o2D+ZDPHoZBU9wQbjDKRkFTkEEg" + + "gg0WXcFfsfU1FVNNnlg0m3N9dWk9wEAlmhjMMMj4+YqpZioJzgFmI9T1q3UmgUUyK6inOI5I3OM/KwPF" + + "OeRYlLOyqo7k4FAC0VF9vgHWaH/AL7FFAHwx+zZpL6T+0d4cvbGwe5nOu6pFNBa2jwPBbPGqrPLMAVeE" + + "bmKpxgoeTvAH3HresW/h7RrvULuQRWtlC88z4ztRVLE/kKKKqREHofIPwJ1bX/hp+0LoHivXbAWFh8WY" + + "riS4KziZVaSXzYWZVUeVt8yCLa5J5kORkqv2JcCNoJBKEMRUhw+NpGOc57YoopMcT4U+GXhrxB4H8L/A" + + "A+spbM6p4K8Ya/pN9GzwEro99FfoksZ4IXeoI5xuzxyr7vu6iinIUD4U/Ztki8M/Ejw3ceItIW48H/23" + + "fDTphCRBp+pv5O24mAGD+7EQQthVDFx/q2I+6zjBzjFFFEggfA3hnw74h8E/DbRI47T+0PBXjTWbeZ08" + + "g7NGvLfUgucDIUSRRqMnAYNj+Ab/vmiihsII+Uf2FZtI0L4ja9HLDpUGqalqN/DZBNLmF60JMUuTcL+7" + + "+zERHarAYcEgneBX0X8W/CeleNPh3qtlrVpBe6eIGneGYnymaMb1LDOCFZQ3PGQD2oookEdjwv9kD9mj" + + "wN48/Z50DUtd8MWF3rEjXKXMkqukpK3MoUMARzs2YyM4x7UUUUmxxirH//ZCw=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74, + this.label50, + this.label49, + this.label48, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43}); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label75, + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 460.0416F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label72, + this.label71, + this.label70, + this.label69, + this.label68, + this.label67, + this.label64, + this.label63, + this.label62, + this.label55, + this.label54, + this.label53, + this.label52, + this.label51, + this.subreport1}); + this.ReportFooter.HeightF = 312.1667F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(319F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(26F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,###}")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(672.2083F, 2F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,###}")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(600F, 2F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,###}")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(440F, 2F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(80F, 20F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceHUF", "{0:#,###}")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(345F, 1.999982F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(79.58334F, 20F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(280F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(38.99997F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(90F, 2F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(190F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 87.5F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 178.6667F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 258.6667F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 238.6667F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 218.6667F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 198.6667F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 178.6667F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 158.6667F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 410.8333F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 365.8333F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 282.5F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465F, 127.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(312F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465F, 107.5F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(312F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585F, 178.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(192F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 258.6667F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 238.6667F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 218.6667F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 198.6667F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 178.6667F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 158.6667F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 127.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 107.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(168.75F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(608.25F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Invoice / Számla"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(138.5417F, 53.74999F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 87.5F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 87.5F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(450F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(350F, 3F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label32, + this.label31, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.row_ShortName")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(257.75F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(182.25F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(715.9167F, 20.00001F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label33.SizeF = new System.Drawing.SizeF(44.79169F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(568F, 20F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Currency / Devizanem:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 20F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label31.SizeF = new System.Drawing.SizeF(242.75F, 20.00003F); + this.label31.StylePriority.UseBorders = false; + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Settled period / Számlázási időszak:"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 149.875F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 124.875F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 99.87501F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 285.7084F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 270.7085F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 255.7084F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "A Banknet Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet" + + " 1.§ (6) bekezdés szerinti előírásainak ."; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 149.875F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label64.Summary = summary1; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 124.875F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 99.87501F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label62.Summary = summary3; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 149.875F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 124.875F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 99.87501F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 45.00001F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20.00001F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.75F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül}); + this.DisplayName = "Banknet kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása alriport.repx new file mode 100644 index 0000000..a078ab5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása alriport.repx @@ -0,0 +1,462 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAYgIAAAxGAGkAbAB0AGUAcgCQAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCSAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAlAIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCWAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAlwIAAAHfBHVzaW5nIFN5c3RlbTsNCnVzaW5nIFN5c3RlbS5Db2xsZ" + + "WN0aW9ucy5HZW5lcmljOw0KdXNpbmcgU3lzdGVtLkRyYXdpbmc7DQp1c2luZyBTeXN0ZW0uTGlucTsNC" + + "nVzaW5nIFN5c3RlbS5UZXh0Ow0KdXNpbmcgU3lzdGVtLldpbmRvd3MuRm9ybXM7DQoNCnByaXZhdGUgd" + + "m9pZCBPbkJlZm9yZVByaW50KG9iamVjdCBzZW5kZXIsIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBya" + + "W50RXZlbnRBcmdzIGUpIA0Kew0KCS8vaWYgKHBpY3R1cmVCb3gxLmltYWdlPT1udWxsKSANCi8vew0KL" + + "y9waWN0dXJlQm94MS4NCi8vfQ0KfQ0KDQpwcml2YXRlIHZvaWQgcGljdHVyZUJveDFfUHJldmlld0Rvd" + + "WJsZUNsaWNrKG9iamVjdCBzZW5kZXIsIERldkV4cHJlc3MuWHRyYVJlcG9ydHMuVUkuUHJldmlld01vd" + + "XNlRXZlbnRBcmdzIGUpIA0Kew0KCXN0cmluZyBwaWM7DQpPcGVuRmlsZURpYWxvZyBvRmlsZT1uZXcgT" + + "3BlbkZpbGVEaWFsb2coKTsNCm9GaWxlLkZpbHRlciA9ICJqcGcgZmlsZXMgKCouanBnKXwqLmpwZ3xib" + + "XAgZmlsZSAoKi5ibXApfCouYm1wIiA7DQoJb0ZpbGUuU2hvd0RpYWxvZygpOw0KcGljPW9GaWxlLkZpb" + + "GVOYW1lOw0KTWVzc2FnZUJveC5TaG93KHBpYyk7DQp9DQoBLFNJU0J1c2luZXNzLk1vZHVsZS5PcmRlc" + + "kluQWNrbm93bGVkZ2VtZW50VkFUAQABAAEAAAEvQmVqw7Z2xZEgbWVncmVuZGVsw6lzIHZpc3N6YWlnY" + + "XpvbMOhc2EgYWxyaXBvcnQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label1, + this.label17, + this.label12}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 21.99998F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label6, + this.label8, + this.label9, + this.label11, + this.line1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 25.00002F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 6F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label14, + this.label13}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 23.4166F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,##0}")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 1.999982F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(75.49997F, 19.00001F); + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,##0}")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 1.999982F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(70F, 19.00001F); + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,##0}")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 1.999982F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label17.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label17.StylePriority.UseTextAlignment = false; + summary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label17.Summary = summary1; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 1.999982F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "ÁFA érték"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label6 + // + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Összesítés:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "ÁFA kulcs"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Nettó érték"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Bruttó érték"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(11.04171F, 23.00002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(11.0417F, 2.083333F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 4.083315F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(144.3127F, 19.33328F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Mindösszesen bruttó:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(360.3333F, 4.083347F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(123.125F, 19.33325F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label13.Summary = summary2; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.DisplayName = "Bejövő megrendelés visszaigazolása alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 6, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása.repx new file mode 100644 index 0000000..324bd81 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Bejövő megrendelés visszaigazolása.repx @@ -0,0 +1,1382 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_ár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_érték; + private DevExpress.XtraReports.UI.CalculatedField Listaár; + private DevExpress.XtraReports.UI.CalculatedField Deviza; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAlAEAAAxGAGkAbAB0AGUAcgDDAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgDFAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAxwEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDJAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAygEAAAGRA0ltcG9ydHMgRGV2RXhwcmVzcy5FeHByZXNzQXBwDQpJbXBvcnRzIERldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzDQpJbXBvcnRzIERldkV4cHJlc3MuUGVyc2lzdGVudC5CYXNlSW1wbA0KSW1wb3J0cyBEZXZFeHByZXNzLlhwbw0KSW1wb3J0cyBEZXZFeHByZXNzLkRhdGEuRmlsdGVyaW5nDQoNClByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmc9Ik9yZGVySW5BY2tub3dsZWRnZW1lbnRIZWFkZXIuT2lkPSciICYgbGFiZWw0NC5UZXh0ICYgIiciDQpFbmQgU3ViAS1TSVNCdXNpbmVzcy5Nb2R1bGUuT3JkZXJJbkFja25vd2xlZGdlbWVudFJvd3MBAAEAAQAAASZCZWrDtnbFkSBtZWdyZW5kZWzDqXMgdmlzc3phaWdhem9sw6FzYQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary7 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary8 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary9 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary10 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary11 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_ár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Listaár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Deviza = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label38, + this.label26, + this.line7, + this.label17, + this.label34, + this.label2, + this.label36, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 46F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.NameOfCreator, + this.label45, + this.label33, + this.label31, + this.label23, + this.label18, + this.label42, + this.label30, + this.DocumentNumber, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 157.375F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 109.0417F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.line6, + this.line5}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 65F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label7, + this.label41, + this.label40, + this.label39, + this.label44, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 165.7083F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label22, + this.label16, + this.label10, + this.line4, + this.label13, + this.label14, + this.label25, + this.label32, + this.label35, + this.label37, + this.label12, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 78.66666F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup1", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.875F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup2", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 14.66662F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label56, + this.label55, + this.label49, + this.label48, + this.label47}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 28.83332F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label54, + this.label53, + this.label52, + this.label51, + this.label50}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter2.HeightF = 23F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(4.166667F, 12.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_érték", "{0:#,##0}")}); + this.label38.Font = new System.Drawing.Font("Arial", 8F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 1F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték", "{0:#,##0}")}); + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(605F, 1F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.LineStyle = System.Drawing.Drawing2D.DashStyle.Dash; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.25F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték", "{0:#,##0}")}); + this.label17.Font = new System.Drawing.Font("Arial", 8F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(490.0001F, 1F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label17.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + summary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label17.Summary = summary1; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValuePercent", "{0}%")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(560.0001F, 1F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_ár", "{0:#,##0}")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(420.0001F, 1F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label2.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + summary2.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label2.Summary = summary2; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(351.0417F, 1.874987F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(37.5F, 20F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 1.874987F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 21.875F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(240F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInRows.Products.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 1.041667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(93.9586F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 84.72223F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label29.Text = "label29"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.UserCreated.FullName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 127.0833F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 127.0833F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.CustomerBankAccounts.Acc" + + "ountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 105.9028F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 105.9028F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 84.72223F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 63.54167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(120F, 63.54167F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label42.Text = "label42"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.DateCreated", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 81.81251F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(198.9584F, 16.74999F); + this.label30.Text = "label30"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 105.9028F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(198.9584F, 27.16666F); + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 105.9028F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(91.04163F, 27.16666F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Bizonylatszám:"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(447F, 81.81251F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(91.04163F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Kiállítás dátuma:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(746.9999F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.FullAddress")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(447F, 42.00001F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label21.StylePriority.UseFont = false; + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.FullName")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447F, 22.00001F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(399.1666F, 21.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(47.8334F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Vevő:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 38.75F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(351.0417F, 33.95834F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(395.9582F, 38.625F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Rendelés visszaigazolása"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(148.9586F, 9.999974F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Tetszőleges szöveg"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(594.7919F, 19.89581F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(152.208F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.85416F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(148.9586F, 2.166653F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.NoteHeader")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 142.7082F); + this.label11.Multiline = true; + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(746.9999F, 23.00002F); + this.label11.Text = "label11"; + // + // label7 + // + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(321.2502F, 9.999974F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(84.7916F, 18.83335F); + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Mindösszesen"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(420.0001F, 9.999974F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(139.9999F, 18.83335F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label41.Summary = summary3; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label40 + // + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_érték")}); + this.label40.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(675F, 9.999974F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(72F, 18.83335F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##0}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label40.Summary = summary4; + this.label40.Text = "label40"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label40.Visible = false; + // + // label39 + // + this.label39.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték")}); + this.label39.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(572.7084F, 9.999974F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(102.2916F, 18.83335F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##0}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label39.Summary = summary5; + this.label39.Text = "label39"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label39.Visible = false; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.Oid")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(75F, 46.875F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label44.Text = "label44"; + this.label44.Visible = false; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 46.875F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Bejövő megrendelés visszaigazolása alriport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(476.5833F, 86.95831F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.66666F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(605F, 46.66666F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Áfa érték"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(490F, 46.66666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Nettó érték"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 46.66666F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Ssz."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.66666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 56.66669F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(225F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 48.66665F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 46.66666F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bruttó érték"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(559.9999F, 46.66666F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "ÁFA"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(419.9999F, 46.66666F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "Nettó ár"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(55F, 36.66666F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Cikkszám"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(704.2917F, 10.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(32.70831F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "oldal"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(679.2917F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 20F); + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(747F, 21.875F); + this.label43.StylePriority.UseBackColor = false; + this.label43.StylePriority.UseFont = false; + this.label43.Text = "label43"; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(35.41667F, 0F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(244.5833F, 13.00004F); + this.label46.StylePriority.UseFont = false; + this.label46.Text = "label46"; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 9F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(335.2084F, 0F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(70.83328F, 18.83335F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = " ...összesen"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label55 + // + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(279.9999F, 18.83335F); + this.label55.StylePriority.UseFont = false; + this.label55.Text = "label55"; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_érték")}); + this.label49.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 0F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(72F, 18.83335F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##0}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label49.Summary = summary6; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label49.Visible = false; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték")}); + this.label48.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(572.7084F, 0F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(102.2916F, 18.83335F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + summary7.FormatString = "{0:#,##0}"; + summary7.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label48.Summary = summary7; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label48.Visible = false; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(419.9999F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(140.0002F, 18.83335F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary8.FormatString = "{0:#,##0}"; + summary8.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label47.Summary = summary8; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label54 + // + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(335.2084F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(70.83334F, 18.83335F); + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = " ...összesen"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.AutoWidth = true; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label53.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(35.41667F, 0F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(244.5833F, 18.83335F); + this.label53.StylePriority.UseFont = false; + this.label53.Text = "label53"; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_érték")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(675F, 0F); + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(72F, 18.83335F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + summary9.FormatString = "{0:#,##0}"; + summary9.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label52.Summary = summary9; + this.label52.Text = "label49"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label52.Visible = false; + // + // label51 + // + this.label51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték")}); + this.label51.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(572.7084F, 0F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(102.2916F, 18.83335F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + summary10.FormatString = "{0:#,##0}"; + summary10.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label51.Summary = summary10; + this.label51.Text = "label48"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.label51.Visible = false; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(420.0001F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(140.0002F, 18.83335F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + summary11.FormatString = "{0:#,##0}"; + summary11.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label50.Summary = summary11; + this.label50.Text = "label47"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_ár + // + this.Nettó_ár.Expression = "[FinalPriceHUF]"; + this.Nettó_ár.Name = "Nettó_ár"; + // + // Nettó_érték + // + this.Nettó_érték.Expression = "[Nettó_ár] * [QTT]\r\n"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_érték + // + this.Áfa_érték.Expression = "[Nettó_érték] * ([VAT.KeyValuePercent]/100)\r\n"; + this.Áfa_érték.Name = "Áfa_érték"; + // + // Bruttó_érték + // + this.Bruttó_érték.Expression = "[Nettó_érték] + [Áfa_érték]"; + this.Bruttó_érték.Name = "Bruttó_érték"; + // + // Listaár + // + this.Listaár.Expression = "Iif([ShortName]==\'HUF\' ,[FinalPriceHUF], [FinalPriceDEV])"; + this.Listaár.Name = "Listaár"; + // + // Deviza + // + this.Deviza.Name = "Deviza"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupFooter1, + this.GroupFooter2}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_ár, + this.Nettó_érték, + this.Áfa_érték, + this.Bruttó_érték, + this.Listaár, + this.Deviza}); + this.DisplayName = "Bejövő megrendelés visszaigazolása"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 109, 65); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla (devizás).repx new file mode 100644 index 0000000..d0f0d5f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla (devizás).repx @@ -0,0 +1,2530 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUACwEAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAAwBAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlACwBAAAB4gFQc" + + "ml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZ" + + "D0nIiAmIGxhYmVsNzUuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KAR5TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAAR5DM0Mga2ltZW7FkSBzesOhbWxhIChkZXZpesOhcylAAAEAA" + + "AD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0dXJlP" + + "W5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJhd2luZ" + + "y5CaXRtYXABAAAABERhdGEHAgIAAAAJAwAAAA8DAAAA78kAAAL/2P/gABBKRklGAAEBAQEsASwAAP/uA" + + "A5BZG9iZQBkAAAAAAL/4Q4uRXhpZgAATU0AKgAAAAgABwESAAMAAAABAAEAAAEaAAUAAAABAAAAYgEbA" + + "AUAAAABAAAAagEoAAMAAAABAAIAAAExAAIAAAAbAAAAcgEyAAIAAAAUAAAAjodpAAQAAAABAAAAogAAA" + + "M4BLAAAAAEAAAEsAAAAAQAAQWRvYmUgUGhvdG9zaG9wIENTIFdpbmRvd3MAADIwMTA6MDE6MDQgMTY6N" + + "TE6NDYAAAOgAQADAAAAAf//AACgAgAEAAAAAQAAAW2gAwAEAAAAAQAAAHAAAAAAAAAABgEDAAMAAAABA" + + "AYAAAEaAAUAAAABAAABHAEbAAUAAAABAAABJAEoAAMAAAABAAIAAAIBAAQAAAABAAABLAICAAQAAAABA" + + "AAM+gAAAAAAAABIAAAAAQAAAEgAAAAB/9j/4AAQSkZJRgABAgEASABIAAD/7QAMQWRvYmVfQ00AAv/uA" + + "A5BZG9iZQBkgAAAAAH/2wCEAAwICAgJCAwJCQwRCwoLERUPDAwPFRgTExUTExgRDAwMDAwMEQwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwBDQsLDQ4NEA4OEBQODg4UFA4ODg4UEQwMDAwMEREMDAwMDAwRD" + + "AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDP/AABEIADEAoAMBIgACEQEDEQH/3QAEAAr/xAE/AAABB" + + "QEBAQEBAQAAAAAAAAADAAECBAUGBwgJCgsBAAEFAQEBAQEBAAAAAAAAAAEAAgMEBQYHCAkKCxAAAQQBA" + + "wIEAgUHBggFAwwzAQACEQMEIRIxBUFRYRMicYEyBhSRobFCIyQVUsFiMzRygtFDByWSU/Dh8WNzNRais" + + "oMmRJNUZEXCo3Q2F9JV4mXys4TD03Xj80YnlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vY3R1dnd4eXp" + + "7fH1+f3EQACAgECBAQDBAUGBwcGBTUBAAIRAyExEgRBUWFxIhMFMoGRFKGxQiPBUtHwMyRi4XKCkkNTF" + + "WNzNPElBhaisoMHJjXC0kSTVKMXZEVVNnRl4vKzhMPTdePzRpSkhbSVxNTk9KW1xdXl9VZmdoaWprbG1" + + "ub2JzdHV2d3h5ent8f/2gAMAwEAAhEDEQA/APVHODQXOIAGpJ0CjXbVa3dU9tjeJaQR/wBFeb5OPmfXj" + + "625mBdkPo6V01zm7G6j9G70NzWn9H6+RYLX+rYz9FUhfWP6q2/U1tHWuhZlrYsbU8Wbd0mXM3ek2qu7H" + + "fs2WVWVpvEd60YzkOpEbiOt9t/S+nuc1rS5xAaBJJ0AAXH53WM/quUMfCL20uO2qqs7XPH+ktf7drf5P" + + "82z/CLSz+rfbPqrTnMHpnqFVUtH5vqhrrWf5vqVrK6U80YHU8ys7bq62VVvHLfUJ3Fv/QTgyLO6f1vAa" + + "7KY5zRVrYabN5bH+lr/ADm/v+2xdD0Lq/7Roc22G5NMeoBw4H6NrP6y5XpmZ+zstuQ1m9u1zLKwY3tI4" + + "dz+d70XouZXg9Srue706CHMsPMMI3M4/de2tJT3KSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU" + + "6aSzP8AnJ0T/uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkE" + + "lOmksz/AJydE/7lD/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5" + + "BJTppLM/wCcnRP+5Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/A" + + "OQSU//Q9AGB0H6vszOqspbiNcDZl3NDnEgF1jnFjd7vpPd9Bq4/62fWKn61V0dC+rtdmZbZaLbLS01sA" + + "YDA/TbH/Tdvssd9D/hF27MnovW8e/Gqvo6hQRsyK63tsEO4bZ6bnbd21cf9d/qX0bD6Nb1XplP2PIwyx" + + "5FbnbXNLms4Lv0Vle71a7Kk2W2lUx5L4dK4f0u9f1Xc6j0s4P1Ux8Jrt/2BlLXOH52zbXY//pb1mdOBs" + + "6V1Wlur9ldob3LWFzn/APULY+qOdZ1r6rY12d+lssY+m8n8/Y5+Pvd/KsYzc9Y19Gf0DOFjTAEiq4iWW" + + "MP+Ds492nvZ/brThsvBBAI2IQ9Kw25+dXjOc5tbmue97IkNaPpe4Ob9MsROg1m3q+MG/Ra51k/yWtdH/" + + "fEn9YsdW+jGx6MV2R7bHY7P0j5/Mb/WW99XOkPwq3ZOQ3bkXANazuxnO0/y3/npJZdT+t31d6TlnC6hm" + + "NoyQ0PNZZY72unaZrre381Cxfrx9VszLqw8bPbZkXuDKq/TsBLjw2XVtatHqdVRwcqwsaXimyHEAn6Lu" + + "6xf8XlVTvqh02xzGl4FsPIE/wA9d+cm2brRbZ4gNO+zazvrr9WOn5duHmZwqyKTtsYWWGDAd9Jtbmu9r" + + "lZ6b9ZOi9Vx8jJ6fki+nE/n3hr27dPU4sYxzvZ+6uWwus9C6X9a/rH+2bqqRdbj+iLWl07a3epthr/36" + + "10dXUuj9S6JnZHSLK7aGstrsfU3aN4r3bTLWfmPYkJHuPJQN9RudPJ0OndRw+p4dWdg2etjXAmuyHNkA" + + "lh9tgY/6Tf3UPq3WemdGx25PUrhj0veK2vLXOl5Dn7f0TXu+hW9ZX+L7/xHdN/qP/8APlirf4w7KqcPp" + + "F1zgymvquM+1ztQGNbc6xzufbsSv034KMvTfg3cX69fVTMyasTGz22X5DxXUzZYNznaNbLqw1Xusde6T" + + "0Sht3UsgUNsJbW2C57yO1dVYfY5UMD6y/U/OzasXByce3LtJ9JjGEOJaDY7a41t/Ma5ZwZXn/4zHtvG9" + + "vS8AOoadQLHub+kj97ZelZrcHWlWa3Bs07fRvrN0XrZsZ07I9S2oTZS9rq7GiY3ena1jtv8piJ1nr/Se" + + "h1Mt6nkCgWktqZBc95H0vTqrD7HbZ9zvoIGT9Xa7frJh9fqtFNmNXZVkVBk+u17S2rfZvbt9Fx3fQsWT" + + "iMbm/4yc+y9of8AszDqrx5E7Tbttc9v8v8AS2sSs/W6VZ+pNO10b6zdF62bGdOyBZbUJspc11djRxu9O" + + "1rHbf5bVLJ+sfRsXqlXScjJFedft9KkteZ3kiv9IGel79v76w/rCyvC+uv1ez6gG25ZvxcgjTe3awVb4" + + "+lsdb/1Cxfrmyz/AJzZ+TQ2cjp/TsfPpPg7HyWPef8Atl1qBkQPIoMiAfA0+gZ+fidOxLc3NsFONSN1l" + + "hBMCdv0WBzvpFQ6Z1TB6riNzOn2+tjuLmh+1zdWna/22NY76Sw/rXk19Ro6N06g+pX1jMoe5v72NV+u3" + + "u/zWVKP+LZxf9VaXn8668/fY9G/VSb9VdKf/9E3Qeq1/Ur6xdS6b1Wt7MXJcCy1rdxDWuf9nvDG/Totp" + + "t/Sen6np21+n/pFc+uX146X1LpbukdHL8y7NcxjnNre0Abg7062WNZbbfa5ra2MZWu5z+l9N6lWK+oYt" + + "WU1s7BawO2zzsLvcz+wgYH1e6H02z1cHBpot1Atawb4PIFh96bwna9GLgkAYiQ4T4eoWi+qnSrekfV/D" + + "wL4F9bC64CDD7HOusZub7Xem6z01qPYx7Sx7Q5p0LSJB+SkknBkAoADohpw8Oh26iiupx/OYxrT/wBEI" + + "ySFfk4+NX6uRaymuQN73Bok8Dc5JKPqX/J2V/xNn/UuWJ/i6/8AEb074W/+frlq2dV6LbW6qzMx3MeC1" + + "zTazUEQ4fSQen5P1b6bh14WDk41GNTPp1ttaQNxNjvpPc76bkK1vwRWoPgXB6K/prfrX9Zvt7qGg243p" + + "+uWD/Bv37PV/srob7OnP6TmtwHUuY2qzeKC0gOLD9L0vztqzMzpH1DzsqzLy24d2Rcd1ljrRJMBvaz91" + + "qsdPo+p3TKL8fBfiUVZWl7G2iHabPduefzSgAfDqgAj7T+LR+onU+m4/wBU+nVX5dFVrWP3MfYxrhNlh" + + "1a5yb69XY92F0S5j2WUO6tin1AWurLYu3Hf/N7E/wDzc/xc/wCiwtP+G/8AUquXYv1Mv6dT0u52I/Bxn" + + "B1NBtG1pAc2f5zd/hbEqNVoqjw1o36bugC5noWYnrkxXsNe/cdIZt925y5+y2rpf+Mn1cpwrq6rgiuix" + + "2jTaxzP0W93t3bKf/BalZx+if4v8XIqyaGYdd1DxZU8WiWuadzHfzn5qu9WH1T6zQMfqduLk1tO5u61o" + + "LT/ACLK3ssZ/YelRrpuogntpq18zreS/wCuPT+jYFrXUsquv6oxoa7a2NuMHv8ApUu9b/z7WqWPYzp/+" + + "MjNZkuFberYdT8YuMB76ttPpN/4T9HYtLpFH1P6JW+vpdmLji0g2OFoc50fR3W2vfZtb+7vUurM+qXWq" + + "W09TsxcljDLJtDXNJ+lstreyxm7+S9Kj9btVHfrduZ199ef9d+gdPocH2YPrZWUG6+m3az0fUj6G99f/" + + "glSa3FrzP8AGBn4lv8ANZHRTU/+q+1rHf8ARctHpGN9TeiB46Y/FxzZ/OP9YPef5Jtusss2/wAjcrDb/" + + "q03qLuqDIxhmvq9B1/qtk1g+p6f09v0wlwnr3tXD3728p9SX5HUuq4LMkEn6uYD8V4OmzIfa/FH/sjir" + + "X/xZ/8AiSo/427/AM+OWnhWfVfAuyb8S/FptzX+rkvba2Xv1O90v/lvT9Nv+rPS8VuH0/IxqMdpLm1tt" + + "aRLjud9J7vzkhEivqqMSKvxf//S9VSXyqkkp+qkl8qpJKfqpVOpf0b+038q+YEklP0YkvnNJJL9GJL5z" + + "SSU/RiS+c0klP0amXzmkkp+jU3dfOaSSn6N8Ey+c0klP0Z2S8PkvnNJJT//2f/tEvZQaG90b3Nob3AgM" + + "y4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAAAAA4QklNA+0AAAAAABABLAAAAAEAAgEsAAAAAQACO" + + "EJJTQQmAAAAAAAOAAAAAAAAAAAAAD+AAAA4QklNBA0AAAAAAAQAAAB4OEJJTQQZAAAAAAAEAAAAHjhCS" + + "U0D8wAAAAAACQAAAAAAAAAAAQA4QklNBAoAAAAAAAEAADhCSU0nEAAAAAAACgABAAAAAAAAAAI4QklNA" + + "/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAAAAEAMgAAAAEAWgAAAAYAAAAAA" + + "AEANQAAAAEALQAAAAYAAAAAAAE4QklNA/gAAAAAAHAAAP////////////////////////////8D6AAAA" + + "AD/////////////////////////////A+gAAAAA/////////////////////////////wPoAAAAAP///" + + "/////////////////////////8D6AAAOEJJTQQAAAAAAAACAAA4QklNBAIAAAAAAAIAADhCSU0ECAAAA" + + "AAAEAAAAAEAAAJAAAACQAAAAAA4QklNBB4AAAAAAAQAAAAAOEJJTQQaAAAAAANJAAAABgAAAAAAAAAAA" + + "AAAcAAAAW0AAAAKAFUAbgB0AGkAdABsAGUAZAAtADEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAA" + + "AAAAAAAAW0AAABwAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAEAAAAAAABud" + + "WxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAAFJjdDEAAAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZ" + + "WZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAABwAAAAAFJnaHRsb25nAAABbQAAAAZzbGljZXNWbExzAAAAA" + + "U9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3NsaWNlSURsb25nAAAAAAAAAAdncm91cElEbG9uZwAAA" + + "AAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlnaW4AAAANYXV0b0dlbmVyYXRlZAAAAABUeXBlZW51b" + + "QAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb" + + "3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21sb25nAAAAcAAAAABSZ2h0bG9uZwAAAW0AA" + + "AADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAAAEAAAAAAABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUY" + + "WdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MYm9vbAEAAAAIY2VsbFRleHRURVhUAAAAAQAAAAAAC" + + "WhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsaWduAAAAB2RlZmF1bHQAAAAJdmVydEFsaWduZW51b" + + "QAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsdAAAAAtiZ0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQ" + + "kdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZXRsb25nAAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAA" + + "AAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALcmlnaHRPdXRzZXRsb25nAAAAAAA4QklNBCgAAAAAA" + + "AwAAAABP/AAAAAAAAA4QklNBBEAAAAAAAEBADhCSU0EFAAAAAAABAAAAAM4QklNBAwAAAAADRYAAAABA" + + "AAAoAAAADEAAAHgAABb4AAADPoAGAAB/9j/4AAQSkZJRgABAgEASABIAAD/7QAMQWRvYmVfQ00AAv/uA" + + "A5BZG9iZQBkgAAAAAH/2wCEAAwICAgJCAwJCQwRCwoLERUPDAwPFRgTExUTExgRDAwMDAwMEQwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwBDQsLDQ4NEA4OEBQODg4UFA4ODg4UEQwMDAwMEREMDAwMDAwRD" + + "AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDP/AABEIADEAoAMBIgACEQEDEQH/3QAEAAr/xAE/AAABB" + + "QEBAQEBAQAAAAAAAAADAAECBAUGBwgJCgsBAAEFAQEBAQEBAAAAAAAAAAEAAgMEBQYHCAkKCxAAAQQBA" + + "wIEAgUHBggFAwwzAQACEQMEIRIxBUFRYRMicYEyBhSRobFCIyQVUsFiMzRygtFDByWSU/Dh8WNzNRais" + + "oMmRJNUZEXCo3Q2F9JV4mXys4TD03Xj80YnlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vY3R1dnd4eXp" + + "7fH1+f3EQACAgECBAQDBAUGBwcGBTUBAAIRAyExEgRBUWFxIhMFMoGRFKGxQiPBUtHwMyRi4XKCkkNTF" + + "WNzNPElBhaisoMHJjXC0kSTVKMXZEVVNnRl4vKzhMPTdePzRpSkhbSVxNTk9KW1xdXl9VZmdoaWprbG1" + + "ub2JzdHV2d3h5ent8f/2gAMAwEAAhEDEQA/APVHODQXOIAGpJ0CjXbVa3dU9tjeJaQR/wBFeb5OPmfXj" + + "625mBdkPo6V01zm7G6j9G70NzWn9H6+RYLX+rYz9FUhfWP6q2/U1tHWuhZlrYsbU8Wbd0mXM3ek2qu7H" + + "fs2WVWVpvEd60YzkOpEbiOt9t/S+nuc1rS5xAaBJJ0AAXH53WM/quUMfCL20uO2qqs7XPH+ktf7drf5P" + + "82z/CLSz+rfbPqrTnMHpnqFVUtH5vqhrrWf5vqVrK6U80YHU8ys7bq62VVvHLfUJ3Fv/QTgyLO6f1vAa" + + "7KY5zRVrYabN5bH+lr/ADm/v+2xdD0Lq/7Roc22G5NMeoBw4H6NrP6y5XpmZ+zstuQ1m9u1zLKwY3tI4" + + "dz+d70XouZXg9Srue706CHMsPMMI3M4/de2tJT3KSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU" + + "6aSzP8AnJ0T/uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkE" + + "lOmksz/AJydE/7lD/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5" + + "BJTppLM/wCcnRP+5Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/A" + + "OQSU//Q9AGB0H6vszOqspbiNcDZl3NDnEgF1jnFjd7vpPd9Bq4/62fWKn61V0dC+rtdmZbZaLbLS01sA" + + "YDA/TbH/Tdvssd9D/hF27MnovW8e/Gqvo6hQRsyK63tsEO4bZ6bnbd21cf9d/qX0bD6Nb1XplP2PIwyx" + + "5FbnbXNLms4Lv0Vle71a7Kk2W2lUx5L4dK4f0u9f1Xc6j0s4P1Ux8Jrt/2BlLXOH52zbXY//pb1mdOBs" + + "6V1Wlur9ldob3LWFzn/APULY+qOdZ1r6rY12d+lssY+m8n8/Y5+Pvd/KsYzc9Y19Gf0DOFjTAEiq4iWW" + + "MP+Ds492nvZ/brThsvBBAI2IQ9Kw25+dXjOc5tbmue97IkNaPpe4Ob9MsROg1m3q+MG/Ra51k/yWtdH/" + + "fEn9YsdW+jGx6MV2R7bHY7P0j5/Mb/WW99XOkPwq3ZOQ3bkXANazuxnO0/y3/npJZdT+t31d6TlnC6hm" + + "NoyQ0PNZZY72unaZrre381Cxfrx9VszLqw8bPbZkXuDKq/TsBLjw2XVtatHqdVRwcqwsaXimyHEAn6Lu" + + "6xf8XlVTvqh02xzGl4FsPIE/wA9d+cm2brRbZ4gNO+zazvrr9WOn5duHmZwqyKTtsYWWGDAd9Jtbmu9r" + + "lZ6b9ZOi9Vx8jJ6fki+nE/n3hr27dPU4sYxzvZ+6uWwus9C6X9a/rH+2bqqRdbj+iLWl07a3epthr/36" + + "10dXUuj9S6JnZHSLK7aGstrsfU3aN4r3bTLWfmPYkJHuPJQN9RudPJ0OndRw+p4dWdg2etjXAmuyHNkA" + + "lh9tgY/6Tf3UPq3WemdGx25PUrhj0veK2vLXOl5Dn7f0TXu+hW9ZX+L7/xHdN/qP/8APlirf4w7KqcPp" + + "F1zgymvquM+1ztQGNbc6xzufbsSv034KMvTfg3cX69fVTMyasTGz22X5DxXUzZYNznaNbLqw1Xusde6T" + + "0Sht3UsgUNsJbW2C57yO1dVYfY5UMD6y/U/OzasXByce3LtJ9JjGEOJaDY7a41t/Ma5ZwZXn/4zHtvG9" + + "vS8AOoadQLHub+kj97ZelZrcHWlWa3Bs07fRvrN0XrZsZ07I9S2oTZS9rq7GiY3ena1jtv8piJ1nr/Se" + + "h1Mt6nkCgWktqZBc95H0vTqrD7HbZ9zvoIGT9Xa7frJh9fqtFNmNXZVkVBk+u17S2rfZvbt9Fx3fQsWT" + + "iMbm/4yc+y9of8AszDqrx5E7Tbttc9v8v8AS2sSs/W6VZ+pNO10b6zdF62bGdOyBZbUJspc11djRxu9O" + + "1rHbf5bVLJ+sfRsXqlXScjJFedft9KkteZ3kiv9IGel79v76w/rCyvC+uv1ez6gG25ZvxcgjTe3awVb4" + + "+lsdb/1Cxfrmyz/AJzZ+TQ2cjp/TsfPpPg7HyWPef8Atl1qBkQPIoMiAfA0+gZ+fidOxLc3NsFONSN1l" + + "hBMCdv0WBzvpFQ6Z1TB6riNzOn2+tjuLmh+1zdWna/22NY76Sw/rXk19Ro6N06g+pX1jMoe5v72NV+u3" + + "u/zWVKP+LZxf9VaXn8668/fY9G/VSb9VdKf/9E3Qeq1/Ur6xdS6b1Wt7MXJcCy1rdxDWuf9nvDG/Totp" + + "t/Sen6np21+n/pFc+uX146X1LpbukdHL8y7NcxjnNre0Abg7062WNZbbfa5ra2MZWu5z+l9N6lWK+oYt" + + "WU1s7BawO2zzsLvcz+wgYH1e6H02z1cHBpot1Atawb4PIFh96bwna9GLgkAYiQ4T4eoWi+qnSrekfV/D" + + "wL4F9bC64CDD7HOusZub7Xem6z01qPYx7Sx7Q5p0LSJB+SkknBkAoADohpw8Oh26iiupx/OYxrT/wBEI" + + "ySFfk4+NX6uRaymuQN73Bok8Dc5JKPqX/J2V/xNn/UuWJ/i6/8AEb074W/+frlq2dV6LbW6qzMx3MeC1" + + "zTazUEQ4fSQen5P1b6bh14WDk41GNTPp1ttaQNxNjvpPc76bkK1vwRWoPgXB6K/prfrX9Zvt7qGg243p" + + "+uWD/Bv37PV/srob7OnP6TmtwHUuY2qzeKC0gOLD9L0vztqzMzpH1DzsqzLy24d2Rcd1ljrRJMBvaz91" + + "qsdPo+p3TKL8fBfiUVZWl7G2iHabPduefzSgAfDqgAj7T+LR+onU+m4/wBU+nVX5dFVrWP3MfYxrhNlh" + + "1a5yb69XY92F0S5j2WUO6tin1AWurLYu3Hf/N7E/wDzc/xc/wCiwtP+G/8AUquXYv1Mv6dT0u52I/Bxn" + + "B1NBtG1pAc2f5zd/hbEqNVoqjw1o36bugC5noWYnrkxXsNe/cdIZt925y5+y2rpf+Mn1cpwrq6rgiuix" + + "2jTaxzP0W93t3bKf/BalZx+if4v8XIqyaGYdd1DxZU8WiWuadzHfzn5qu9WH1T6zQMfqduLk1tO5u61o" + + "LT/ACLK3ssZ/YelRrpuogntpq18zreS/wCuPT+jYFrXUsquv6oxoa7a2NuMHv8ApUu9b/z7WqWPYzp/+" + + "MjNZkuFberYdT8YuMB76ttPpN/4T9HYtLpFH1P6JW+vpdmLji0g2OFoc50fR3W2vfZtb+7vUurM+qXWq" + + "W09TsxcljDLJtDXNJ+lstreyxm7+S9Kj9btVHfrduZ199ef9d+gdPocH2YPrZWUG6+m3az0fUj6G99f/" + + "glSa3FrzP8AGBn4lv8ANZHRTU/+q+1rHf8ARctHpGN9TeiB46Y/FxzZ/OP9YPef5Jtusss2/wAjcrDb/" + + "q03qLuqDIxhmvq9B1/qtk1g+p6f09v0wlwnr3tXD3728p9SX5HUuq4LMkEn6uYD8V4OmzIfa/FH/sjir" + + "X/xZ/8AiSo/427/AM+OWnhWfVfAuyb8S/FptzX+rkvba2Xv1O90v/lvT9Nv+rPS8VuH0/IxqMdpLm1tt" + + "aRLjud9J7vzkhEivqqMSKvxf//S9VSXyqkkp+qkl8qpJKfqpVOpf0b+038q+YEklP0YkvnNJJL9GJL5z" + + "SSU/RiS+c0klP0amXzmkkp+jU3dfOaSSn6N8Ey+c0klP0Z2S8PkvnNJJT//2ThCSU0EIQAAAAAAUwAAA" + + "AEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABIAQQBkAG8AYgBlACAAUABoAG8Ad" + + "ABvAHMAaABvAHAAIABDAFMAAAABADhCSU0EBgAAAAAABwAIAAAAAQEA/+EYBWh0dHA6Ly9ucy5hZG9iZ" + + "S5jb20veGFwLzEuMC8APD94cGFja2V0IGJlZ2luPSfvu78nIGlkPSdXNU0wTXBDZWhpSHpyZVN6TlRje" + + "mtjOWQnPz4NCjx4OnhtcG1ldGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IlhNUCB0b" + + "29sa2l0IDMuMC0yOCwgZnJhbWV3b3JrIDEuNiI+DQoJPHJkZjpSREYgeG1sbnM6cmRmPSJodHRwOi8vd" + + "3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIiB4bWxuczppWD0iaHR0cDovL25zLmFkb" + + "2JlLmNvbS9pWC8xLjAvIj4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmN" + + "DktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuczpleGlmPSJodHRwOi8vbnMuYWRvYmUuY" + + "29tL2V4aWYvMS4wLyI+DQoJCQk8ZXhpZjpDb2xvclNwYWNlPjQyOTQ5NjcyOTU8L2V4aWY6Q29sb3JTc" + + "GFjZT4NCgkJCTxleGlmOlBpeGVsWERpbWVuc2lvbj4zNjU8L2V4aWY6UGl4ZWxYRGltZW5zaW9uPg0KC" + + "QkJPGV4aWY6UGl4ZWxZRGltZW5zaW9uPjExMjwvZXhpZjpQaXhlbFlEaW1lbnNpb24+DQoJCTwvcmRmO" + + "kRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0idXVpZDoxMDNlMGY0OS1mO" + + "TQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnBkZj0iaHR0cDovL25zLmFkb2JlLmNvbS9wZ" + + "GYvMS4zLyI+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91d" + + "D0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnBob3Rvc2hvc" + + "D0iaHR0cDovL25zLmFkb2JlLmNvbS9waG90b3Nob3AvMS4wLyI+DQoJCQk8cGhvdG9zaG9wOkhpc3Rvc" + + "nk+PC9waG90b3Nob3A6SGlzdG9yeT4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJCTxyZGY6RGVzY3Jpc" + + "HRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZCIge" + + "G1sbnM6dGlmZj0iaHR0cDovL25zLmFkb2JlLmNvbS90aWZmLzEuMC8iPg0KCQkJPHRpZmY6T3JpZW50Y" + + "XRpb24+MTwvdGlmZjpPcmllbnRhdGlvbj4NCgkJCTx0aWZmOlhSZXNvbHV0aW9uPjMwMC8xPC90aWZmO" + + "lhSZXNvbHV0aW9uPg0KCQkJPHRpZmY6WVJlc29sdXRpb24+MzAwLzE8L3RpZmY6WVJlc29sdXRpb24+D" + + "QoJCQk8dGlmZjpSZXNvbHV0aW9uVW5pdD4yPC90aWZmOlJlc29sdXRpb25Vbml0Pg0KCQk8L3JkZjpEZ" + + "XNjcmlwdGlvbj4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0O" + + "S0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuczp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwL" + + "zEuMC8iPg0KCQkJPHhhcDpDcmVhdGVEYXRlPjIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpDc" + + "mVhdGVEYXRlPg0KCQkJPHhhcDpNb2RpZnlEYXRlPjIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhc" + + "DpNb2RpZnlEYXRlPg0KCQkJPHhhcDpNZXRhZGF0YURhdGU+MjAxMC0wMS0wNFQxNjo1MTo0NiswMTowM" + + "DwveGFwOk1ldGFkYXRhRGF0ZT4NCgkJCTx4YXA6Q3JlYXRvclRvb2w+QWRvYmUgUGhvdG9zaG9wIENTI" + + "FdpbmRvd3M8L3hhcDpDcmVhdG9yVG9vbD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJCTxyZGY6RGVzY" + + "3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZ" + + "CIgeG1sbnM6eGFwTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iPg0KCQkJPHhhcE1NO" + + "kRvY3VtZW50SUQ+YWRvYmU6ZG9jaWQ6cGhvdG9zaG9wOjEwM2UwZjQ4LWY5NDktMTFkZS05MmU5LWMwZ" + + "WM3ZjRiNjcwZDwveGFwTU06RG9jdW1lbnRJRD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJCTxyZGY6R" + + "GVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiN" + + "jcwZCIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIj4NCgkJCTxkYzpmb" + + "3JtYXQ+aW1hZ2UvanBlZzwvZGM6Zm9ybWF0Pg0KCQk8L3JkZjpEZXNjcmlwdGlvbj4NCgk8L3JkZjpSR" + + "EY+DQo8L3g6eG1wbWV0YT4NCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "AogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgPD94cGFja" + + "2V0IGVuZD0ndyc/Pv/bAEMAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBA" + + "QICAgICAgICAgICAwMDAwMDAwMDA//bAEMBAQEBAQEBAQEBAQICAQICAwMDAwMDAwMDAwMDAwMDAwMDA" + + "wMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA//AABQIAHABbQQBEQACEQEDEQEEEQD/xAAfAAAAB" + + "gIDAQAAAAAAAAAAAAAHCAYFBAkDCgIBAAv/xAC1EAACAQMEAQMDAgMDAwIGCXUBAgMEEQUSBiEHEyIAC" + + "DEUQTIjFQlRQhZhJDMXUnGBGGKRJUOhsfAmNHIKGcHRNSfhUzaC8ZKiRFRzRUY3R2MoVVZXGrLC0uLyZ" + + "IN0k4Rlo7PD0+MpOGbzdSo5OkhJSlhZWmdoaWp2d3h5eoWGh4iJipSVlpeYmZqkpaanqKmqtLW2t7i5u" + + "sTFxsfIycrU1dbX2Nna5OXm5+jp6vT19vf4+fr/xAAfAQAABgMBAQEAAAAAAAAAAAAGBQQDBwIIAQkAC" + + "gv/xAC1EQACAQMCBAQDBQQEBAYGBW0BAgMRBCESBTEGACITQVEHMmEUcQhCgSORFVKhYhYzCbEkwdFDc" + + "vAX4YI0JZJTGGNE8aKyJjUZVDZFZCcKc4OTRnTC0uLyVWV1VjeEhaOzw9Pj8ykalKS0xNTk9JWltcXV5" + + "fUoR1dmOHaGlqa2xtbm9md3h5ent8fX5/dIWGh4iJiouMjY6Pg5SVlpeYmZqbnJ2en5KjpKWmp6ipqqu" + + "sra6vr/3QAEAC7/2gAOBAEAAhEDEQQAAD8A+f8A+/de63+Pfvfuvde9+9+69173737r3Xvfvfuvde9+9" + + "+69173737r3XvYsdOdLb+7z3bDtHYWKNZUKqVGVylSXgw2Ax7PoOQzFcEdaeIkERooaaZhpjRjce25ZU" + + "hXU5/2elNpaTXkoihWp8z5Aep6xySJEupjb+g/JP9B7u56c/l79J9d0VLV7zoP9KG6hHG1VW59JItvU8" + + "9gZExu24pjStCH4DVjVMhtcaLlfZRLeyuSEOlflx/b0L7TY7SAAyjxJfnw/If569NslXK59J0L/AEH1/" + + "wBi3s4VH1z19jqZaOg2Ls6ipEFlpqTbOFp4FFtNhFFRInK8fT2lLuclzX7ejUQQKKLCgH2DqPrf/Vt/y" + + "Uf+K+wi7E+JXx+7MpJ4c51xgsZWyowjze1KWHbGYppDe06VGJjgp6mRWa+moinjY/qU+3UuZozhzT556" + + "Sz7ZY3AIe3UH1XB/l/l6yJPKn0ckf0b1D/efdN3ye+EO9Ohoqndu3aqfevWiyIJswsCx5rbnmYJGm46G" + + "AGI0rSMEWth/ZLECRYiyhjW3u0m7WFJP8P2dBTcdolsgZYzrt/XzH2/5/8AB04wVKy+k+l/6fg/8FP9f" + + "8PZGvavon6k+/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuv" + + "e/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797" + + "917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xu" + + "ve/e/de69797917r3v3v3Xuve//0Pn/APv3Xut/j3737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9q" + + "nZGzc92Fu3b2ydsUhrs9uXKU2Kx1OLhPNUPZ56iQA+GkpIQ0s0h4jiRmPAPursEVnY4A6chieeWOGMVd" + + "jQdcWYIpZjYKLn/AH39fezj0J0dtXoLr/G7L23DHNWFI6zc2faFErtx514lFVX1LgaxTRteOlhJIggAU" + + "XOpmD80zTOXbh5D06kOys47KBYYxnzPqfX/ADdMssrSuWb/AJBH4A/p7Xe+9/7N6y21W7v35uCg21t6g" + + "0rNXVztqmqJAfDRUFLEslXkchUaT44IUeRrE2sCRREeRtKLVunpp4reMyzOFjHmf8nqfl1xVGc6VBY/0" + + "H++4918bg/mj9R4+ulptvdfb63JRxyFFyNTV4bbsc6hiPLBSyHL1PjYAFfIInIPKqePa5dulI7nAP7ei" + + "N+Y7VTSOB2Hrgf5+pYoZLcug/w5P/ED2K/Ufz/6J7Ty1Lt2tmzHXefr5o6bH0+8Folw9fUyuI4aWn3BQ" + + "1MtHDUTOQFFUlMrMQFJJ9tS2U0Y1CjL8v8AN0ptd7s7lgjExueGrh+3/PTrHJSSoLizgfXTe4/2Hs69d" + + "Q0mRpKvG5Kkp66hraeajrqGsgjqKWrpaiNoaimqaeZXingmicq6MCrKSCLe0gJBBBz0bkBgVYVU9Rgbc" + + "jgjkEfj3rq/Nb41DoPsGPI7bp5P9G+9nqq3bR9cgwdfEyvktszTPqJWj8qyUrMdT0zhSWaN29nlpceMl" + + "G/tBx/z9ATd9v8Aopw0Y/xd+HyPmP8AN8vs6d6abypY/rXhv8f6N/sfZLfavop6k+/e/de69797917r3" + + "v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/" + + "de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r" + + "3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v/9HQ76x6z" + + "3z3HvzbHWfW23q3dO9d4ZOHE4LC0ATy1NTLdnlnmlaOnoqCjgR5qiomdIaeCN5JGVFJBtsex7rzJu1js" + + "eyWbT7ncyBI0XiSfMk4VQKlmJCqoJJAB6M9m2bc+Yd0stm2e0afcbhwqIvmT5knAUCpZiQFUEkgDrfR3" + + "nvLbXX22MzvLd+WpsJtzAUUldk8jVFtEUKWCxxxoGmqaqolZY4oo1aSWRlRAWIHvac+Mf8AIZ6U2lg8X" + + "m/k5uLM9pb0qIIanI7R2xk6za+wcNMwDvjlyGPan3RuJ4SdL1P3FDE5/TAANTZ6cjfdN5Y2+1guuebyW" + + "/3MgFoYmaK3Q/w6lpLJTzbUgPknmc3OTPuv8uWFtBc853cl7uJALRRsY4EP8OpaSSU821ID5L5mkvub+" + + "Z72NnclW43pnE4/ZW3YpZIqTPZmip81unIxqSq1ZpaoTYXEpIOVh8VS6/mQ3sLB4f5XnwDgoloE+MewW" + + "gWIwh5p9y1NaUa9y2SqM9LkXl54cylx+D7mBfYn2jSIQjka00Upkylv96MhavzrXqVl9lfaxIxEOTLXT" + + "SmTIT/vRct+da9FTk+afyllqDVN3NukSM4kKxx4eGn1C1gKSHFpSKnH6QgU/wBPZOvkB/Ip+K3YeJyFV" + + "0pV7j6L3h4pZMYsGUye89kTVQj/AGqfK4XcldV5uGlldbGSkyETRatWiQL42jfm/wC6nyDvFvM/LEk21" + + "bjQlaM00BPkHSRi4B9UkFONDShj/mr7svI+7QSvy5JNtm4U7aM00JPkGSRi4B9VkFONDwJgerP5mfd20" + + "6+kh7GgxHZeA1olaZaKj29uOOAt65aLI4imgxsk6KbhZ6Rw9rakvqGrF8k/jT2x8Uuz8r1T27gv4VnKJ" + + "BW4rJ0jvVbf3VgppJI6LcO28k0US1+LqzEy8qk0EqtFMkcqMgwL525I5g5A3242DmK08O6XuRhmOWMkh" + + "ZI2oNSmnyKkFWAYEdYR84cnb7yNvU+x7/a+HcrlWGY5UPCSNsalNPkQQVYBgR1dp0/3FsXvHZlFvjYWT" + + "++xtQxp62jnVYcrhMnGiPUYrMUYdzS1sAcHgtHIhDxsyMrEAvYR6C3Qpe7c/wCV/wBRw1VbvLujKUqyH" + + "GMdlbUeVLiKtqIIK/cddCTwJo6Kemp1YfRJ5V/Pss3CWgSIeeT/AJOhPy7agmW7YcO1f8J/yD9vUCtk4" + + "WMfn1N/vSj/AG/u5NVLMFUXZiFA/qSbAf7f2V9Cvpu96+nyv7C3Z8nfkvB1dtCeStweD3OvXuyMYkrrQ" + + "TZUVa0Od3HVKAV1VNfHKzTEEx0UCAWsbnVsi29v4jDJFT/m6A+5zy7juAt4jVFbSo8q8Cf2/wAunaBFg" + + "hLt9Sutj+bfUKP9h/vPu0Prf4J/HjYe3KTFZnZWP7AzxpY1zO5d0mqq5K6tMYFQ+Nxy1MdDiKISX8Kxp" + + "5gltcjtz7L5Lyd2JD6R6DoR2+zWMMYV4Q70yT5/YOA6gvVSu1wxQfhV4/2/5PskXzk+GGyeudnN291JQ" + + "VGDxeNyFHR7w2n91VV+OpabKTilo85hZa2WoraWOOvkjhqKdpJIwJVePQqsvtXaXTyP4UhqfI9FG8bTD" + + "BF9VarRQe5eIz5j8+I6k01Szt45Dcm+lvob/Wx/H09m0/l89zZXtTpifBblrpsjuTrPJU+3JK+qlaasy" + + "G3aumaq29UVcr3eWekjhmpNbEs6U6FrtclNexCOXUo7Wz+fn0ZbHdtc2hSQ1kjNPy8v835dYKuMJLcCw" + + "cXsPoD9D/xX/Y+xm+VXUlP3N0hvPawpkmzlDQS7l2nIwHkh3Jg4Jqqijic/5v8AicPlo3P0EdQx9tW0n" + + "hTI3lwP2HpXuVqLuzljp3gVX7R/n4fn1jgk8cqt+CdLf8FP1/23196wpBUlWBVlJDKQQQQbEEHkEH2IO" + + "o86evfXv3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xu" + + "ve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de6979" + + "7917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3X" + + "uve/e/de697/9Kqj+QP8Z8TievN+/KfP42Gfcu7szW9c7BqqmFHkxe08B9pPujI46RkJifcG4JFpJHU6" + + "gmLZRZZHDZ8/dH5It7fZt259u4Qb64la2tyR8MUdDKy+niSHQTxpERwJrm/91rk2CDad053uoQby4kNv" + + "ASPhiShkZf+aknaTxpGRwJrsefzSe466v3XtfpLF1kkeHwOPpt3bphhkZVrc7lPPFhaSrUN61xWKUzop" + + "GktWhuSq2MH/Ni/mXbj+H8W2uoelY8TJ3RvPCtuXI7iy9HBlqLr/aklXUY/HVcGIqC9HkNx5ytoqj7dK" + + "pJKengp2kkik8sQ9jD7wPvfe+3K2XLnLAjPM1zF4jSOA628RJVSEPa0jsraQwKqqklTqXoWe+nvHd8gL" + + "Z7By4IzzFcR+I0jAMsEVSqkKcNI5DaQwKqFqVNV6Cn4MfDrEd+yZjf3YrVy9d7eyIw9JiaColoKndWcS" + + "CKqq4Ja+LTUUuIxtPUReVoWSWWSUKjpof3rW1X8yH511mTfLy/KPtpKt5WmMVLuE0WNVmZm0x4ejggxM" + + "cILm0awBALC1gPeE0nvV7rSzm4bnzcBITWgk0r/ALwAEp8tNOsPJPd/3NkmNw3Ot+JCa4kov+8ABafKl" + + "OrhIPiF8ZaeiWgTpXYjQKgjDz4r7msIAVdTZCollr2kIUXYyaieb+75f5T/APNV7D+QG/4/jh8jqvG5v" + + "emUxOQyHXHY1Jj6DC1u4KjCUjV2S2tuegxyUmLmyZxMEtTR1dPBAZRTyRzK8rI7ZY/d+9/d45v3deS+d" + + "JEl3OSNmtrgKqNIUGpopVWiltALI6qtdJDAsQTk/wCxfvhu3NW6jlDm+RJNxeNmt7gKqGQoNTRSKtFLa" + + "QWRlArpIYFiCawvnN8INp9V7Wft7qKCsx23aKupaTd20p6qpyNPioslOKajzeGqqtp62OiFdKkNRBLLI" + + "EMqNGVQMoNv/OL+M2E73+Ie7t6wY2FuwuiKap7F2rlkivWnA0Yh/v1t95V9b4/I4CNqrx/8rdDA3ADAy" + + "H95Dke15s9utx3NIR++NpU3ET07vDFPHjr/AAtGC9P40Q+vQ8+8Fybbcz8g3+4rCP3ttimeJqZ0CnjJX" + + "+FkGqn8SKfXoCP5fvcmS6x77wO3JKyQbT7Omh2lnKBn/wAnGUqPJ/dnKqh9K1dJlXEGr/jhUyjkkW0if" + + "fLvrm51she9mH4XbSi2f8aOrqJYTFUZfCy7orSygPLUblrajLI7kX1FaOpiRSedCAfi3sgum13Eh9DT9" + + "nUgbTEItvth5kV/bnpmqW1TP/gdI/5BAH+9+zE7ny38A2zuXPH/AJcm3s5mPyP+LXi6uu+o5/3R7YUam" + + "VfUjpfI2iOR/RSf2DrCouQP6kD/AG590Lfy5sKN0/J2PP5MGqqNv7W3ducVEli38VrY4sSKhv8Aa3Gal" + + "N/wT7Ob5tNvQeZA6Bewp4m462yVVj+fD/L061fEFh9Cyj/YDn/iPewJ7Jehv00+w77c6/h7W6y3r1zPX" + + "jFJu/CS4lcoaX73+GzGenqYK0Unmp/uDBNTg6daE/1Hu8T+HIklK0PSe6gFzbywFqahSvp8+ucb+N1e1" + + "9Jvb6X/ANjz7L98U/ic/wAY6jfEq78O8Yt5wYCJoBgThFoZMDLlnSYk5TJfctMuWZQPRpAP1vw/c3P1A" + + "TspSvnXpFtu2fu4zHx9YenlSlK/M+vWWeo82n0adN/7Wq97f7SLfT2cX2l6Neo/vVg+RO0Ytid59q7Vp" + + "kEdHjN7ZxsfGAQIsZkKtspjIrH/AI54+tjX+htx7EUDa4Y28yOo4v4hDeXMY4BzT7Dkfy6fIW1RRt+So" + + "v8A644P+8j2DPt3pJ1k9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3X" + + "vfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9" + + "+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3" + + "Xvfvfuvde9+9+69173/AP/TD3+VdT4HbPwD+OFDFXY2mkrNp5bOVcZrKaNvvM7u3cOVqGkRnRllZqr1X" + + "F7++r3sIlpY+0fJcSyopa3dyKji8sjH88566d+yCWtn7WcoRrIgLQM5yOLyyMfzz1cN83JcpmflJ29Uv" + + "TVky0+docbA/glcfb4zBYqhiVWVWBQCDi3496tn83ndFXuf+YH3uaiqWqpsFNsnb2LaOVZoY8dRbB2zU" + + "pHE0ZZAn3VbKxA/tMb8394HfeKv5L73f5r1yakiMEa5qAq28RoPzYn7SesJvfy9kvfdXmcu+pIjDGuaj" + + "SsEZx+ZJ+09XX/AnCwYX4rdZCKEwTZOPceWrQ8bRyPV1O6MzCzyKwDFvDTIAT/ZAtxb3Wp7hLqHejh+z" + + "lfy8cpW4f5xfFisx8hjqJO6NlY12Gr1UeayceGyMZ0Mp0zY+vlQ/izc3HHuSvZyeW290+QpITRzucK/k" + + "7aGH5qxHUhe088lv7lckSRGjHcYV/J20N+1WI6L38sKKmyHxr7tp6pQ8Sdd7irFBtxUY6jbIUj+oEXjq" + + "qVGH+I971HyKhgqfj73rT1MaS00/TnZ0M8Un+bkhk2Tm0lR7kehkJB/w99Vuc1V+T+a0cAodtugQeFDA" + + "9eumnNqq/KnMyOKodvuQfs8F+tZzqWSSLtXrOWFmSaPsHZkkTp+tZE3HjWRl/2oMBb38433xf65E9bc/" + + "va/6epoqPqTq6khFoqbrvZUEY4B0x7bxqAnSFGogXPA59huXMsh/pH/AA9SXailtbgcPDX/AADpik/zk" + + "n/B2/6GPvruP/mT/bf/AIi7sP8A94/M+9xf2sX+mH+Hr11/uLc/802/46evR/5yP/g6/wDQw907fyto3" + + "bubfkgQlIutKrW4Fwnk3JgETUfxqbgezTcP7JP9N/kPQV5c/wBy5v8Amn/lHThXf5tP+D/9En3eh7J+h" + + "j02e/e/de69797917r3v3v3Xuve6zvkB8v+ouqO19zbH3L0Hjt45rFfwuWt3HLDtfyZJq/E0VdEzmuwt" + + "XVsYIZ1iu8hPo44t7Xw20skaus1AfLPQfvt0tba5khksg7imcZqPmOpkVPJIgdZdIN+PVxYkfjj2DH/A" + + "A4L0L/3i7iv+pOzP/sc9vfRTf8AKQf5/wCfpJ++7L/o3D/jP+brJ9pL/wAdv95b/ivv3/DgvQv/AHi7i" + + "v8AqTsz/wCxz376Kb/lIP8AP/P17992X/RuH/Gf83XvtJf+O3+8t/xX37/hwXoX/vF3Ff8AUnZn/wBjn" + + "v30U3/KQf5/5+vfvuy/6Nw/4z/m699pL/x2/wB5b/ivv3/DgvQv/eLuK/6k7M/+xz376Kb/AJSD/P8Az" + + "9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/wCHBehf+8XcV/1J2Z/9jnv30U3/ACkH+f8An69++7L/AKNw/" + + "wCM/wCbr32kv/Hb/eW/4r79/wAOC9C/94u4r/qTsz/7HPfvopv+Ug/z/wA/Xv33Zf8ARuH/ABn/ADde+" + + "0l/47f7y3/Fffv+HBehf+8XcV/1J2Z/9jnv30U3/KQf5/5+vfvuy/6Nw/4z/m699pL/AMdv95b/AIr79" + + "/w4L0L/AN4u4r/qTsz/AOxz376Kb/lIP8/8/Xv33Zf9G4f8Z/zde+0l/wCO3+8t/wAV9+/4cF6F/wC8X" + + "cV/1J2Z/wDY5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/8AHb/eW/4r79/w4L0L/wB4u4r/AKk7M/8As" + + "c9++im/5SD/AD/z9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/4cF6F/7xdxX/AFJ2Z/8AY5799FN/ykH+f" + + "+fr377sv+jcP+M/5uvfaS/8dv8AeW/4r79/w4L0L/3i7iv+pOzP/sc9++im/wCUg/z/AM/Xv33Zf9G4"; + resourceString += "f8Z/zde+0l/47f7y3/Fffv8AhwXoX/vF3Ff9Sdmf/Y5799FN/wApB/n/AJ+vfvuy/wCjcP8AjP8Am699p" + + "L/x2/3lv+K+/f8ADgvQv/eLuK/6k7M/+xz376Kb/lIP8/8AP17992X/AEbh/wAZ/wA3XvtJf+O3+8t/x" + + "X37/hwXoX/vF3Ff9Sdmf/Y5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/wDHb/eW/wCK+/f8OC9C/wDeL" + + "uK/6k7M/wDsc9++im/5SD/P/P17992X/RuH/Gf83XvtJf8Ajt/vLf8AFffv+HBehf8AvF3Ff9Sdmf8A2" + + "Oe/fRTf8pB/n/n69++7L/o3D/jP+br32kv/AB2/3lv+K+/f8OC9C/8AeLuK/wCpOzP/ALHPfvopv+Ug/" + + "wA/8/Xv33Zf9G4f8Z/zde+0l/47f7y3/Fffv+HBehf+8XcV/wBSdmf/AGOe/fRTf8pB/n/n69++7L/o3" + + "D/jP+br32kv/Hb/AHlv+K+/f8OC9C/94u4r/qTsz/7HPfvopv8AlIP8/wDP17992X/RuH/Gf83XvtJf+" + + "O3+8t/xX37/AIcF6F/7xdxX/UnZn/2Oe/fRTf8AKQf5/wCfr377sv8Ao3D/AIz/AJuvfaS/8dv95b/iv" + + "v3/AA4L0L/3i7iv+pOzP/sc9++im/5SD/P/AD9e/fdl/wBG4f8AGf8AN177SX/jt/vLf8V9+/4cF6F/7" + + "xdxX/UnZn/2Oe/fRTf8pB/n/n69++7L/o3D/jP+br32kv8Ax2/3lv8Aivv3/DgvQv8A3i7iv+pOzP8A7" + + "HPfvopv+Ug/z/z9e/fdl/0bh/xn/N177SX/AI7f7y3/ABX37/hwXoX/ALxdxX/UnZn/ANjnv30U3/KQf" + + "5/5+vfvuy/6Nw/4z/m699pL/wAdv95b/ivv3/DgvQv/AHi7iv8AqTsz/wCxz376Kb/lIP8AP/P17992X" + + "/RuH/Gf83XvtJf+O3+8t/xX37/hwXoX/vF3Ff8AUnZn/wBjnv30U3/KQf5/5+vfvuy/6Nw/4z/m699pL" + + "/x2/wB5b/ivv3/DgvQv/eLuK/6k7M/+xz376Kb/AJSD/P8Az9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/" + + "wCHBehf+8XcV/1J2Z/9jnv30U3/ACkH+f8An69++7L/AKNw/wCM/wCbr32kv/Hb/eW/4r79/wAOC9C/9" + + "4u4r/qTsz/7HPfvopv+Ug/z/wA/Xv33Zf8ARuH/ABn/ADde+0l/47f7y3/Fffv+HBehf+8XcV/1J2Z/9" + + "jnv30U3/KQf5/5+vfvuy/6Nw/4z/m699pL/AMdv95b/AIr7wt/MA6HNTFN/ssGLCxwVERj8WzbM00lM6" + + "uR/dy10EBH/ACF799FN/wApB/n/AJ+tfvuyqD+7h/xn/N139pLa3m/I/wBV/j/j/j7/AP/U0CkyFfEix" + + "x1tXHGgsiJUzIii5NlVXCqLn8e3BNMoAWVgB8z04JZQABIwH2nrfxalpXYu9NA7MbszQxszH6XJKkk+4" + + "8kkkztJLI8sjm7SSOzuxsBdnYlibD8+6FixLMST1QksSWNT1lREjUJGqoi8KqKFUfnhQABz74e9da65e" + + "7df5Mfxv3T3F8vtodlLi6peveiZZ96bjz0lO/8ADm3H9jVUmz9vU9SdMcmXqcrUrW+NSSlNRyO1rqGyI" + + "+7RyXf8ye423b2IG/c+0kzSSEdviaSIYweGsuddPJUJPlWe/u78oXvMHP1hvAgb907YTNI5Hb4mkiKMH" + + "+MsddPJUJPlUhn8w3t7Cdf9B5/ZzVsJ3X2bHHt3EYtJV+7GJ+5hnz+WlhF2SghoYTT6yAGmqEUf2rbKv" + + "80nvfD9D/CruTIVWQgptxdh7dreqdm0DSRiqymZ31Sz4ivFLExvIuK23LW1sptZY6ci+plBzb9+Oa7bl" + + "P2x5lmkmC3l5C1rCvmzzgo1B/QjLufkvqR1mH72cz2/LHtzzDK8oF3dwm2hXzZ5gUag/oxl3PyX1I6p5" + + "+FHWVf2d8i+vqWClllxO08tT743DVKreGix+2Z4q+l80g4Q12YSmp0H1LS3+gNtDX3yc65g9bPPvad+O" + + "Wci3H0L0/lom1CbrzatNI2ouTUY3EU2MqtTEklxU0b6r83v7Ds40zSj+kepHsHEllasP99j+Qp0xzDTL" + + "IP9rb/eTf2r+0KF8n1l2TjYgxkyPXu9qCMJYuXrNsZSmQIDwXLScX4v7rGaSRn+kP8AD07cDVb3CjiUb" + + "/AeuKGzof6Mp/3ke6Xf5XmSSm7x3fjWkKvlutcoI4wRaU0GcwNY9x9T40QsLf09mu4D9FT/AEv8h6CfL" + + "rUvJV9Yz/IjpyrReJT/AEcX/wBiCPd7fsn6GXTX7DrtzsKDqjrPenY9Rj/4vHtDDNlBivuxQHJSfc01L" + + "FRrWGCpFO0slSPV43+n0Pu8aeJIsYNKnpi6nFtbzTla6BWnCvXONNbql7aja/8AT2BHxW+Va/Jv+/Dw7" + + "Fl2bDswbeBlkzwzQyUueOYtGmnFY0U/2aYi7cuW8o4Fvb1xbfT6O+ta9Itt3L94+NSDQEp51rWvyHp1l" + + "ng8Om7atV/oLWtb/E/W/s3ntN0adR/es580s3Hnvk723UxSeWKiz9PhFN76ZMFiMdiaqP8A6d1tJIP8L" + + "ez+0Gm3i+zqPt2fXuN0fRqfsAHTzTC0Ef8ArX/25J/3o+yu+1HRd1n9+9+69173737r3Xvfvfuvde9+9" + + "+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3" + + "Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+" + + "9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173//1fn/APv3Xut/j2K3RG1sLvnvD" + + "prZO5KeWr27vHtbrza2fpIaiajmqcLuHd2HxOUp4qunZJ6WWahq5FWRCHQnUCCB7P8AlOwtt15p5a2u9" + + "QtZ3O4W8UgBIJSSZEYAjIJUkVGRxHR5yxY2258y8vbbeIWtLi+gicAkEpJKisARkVUnIyOkP2dm8jtnr" + + "bsLceIlSDLbf2PuzN4ueSKOeOHI4rA19fRSyQShopkjqYFJRgVYCx497oe3v5OX8vTb1XDWr0bPmp4JT" + + "Ki7h7D7IytIwJUiKbHSbrjx1REpXgSRMTc3J99MrP7t3s9ZyLKOVjK4Nf1Li5cfYV8XSR9oPXRK0+777" + + "UWkiyDloyMDX9Se4YfYV8XSR9o613sr/MD+V2Vgkpj2VFj45ECMcVtPaFDODYgvHVpg2q4na/8AZcAW4" + + "A9nDy2Cp/jr0/WYz449A4zcf93oJJdvdSbDrto9cUmSqXiYySnKZp6LEQTTNCglmcTVMhIOmQj3I9xaJ" + + "yZy5JByXyik3ggmO0gaG2DGmTqfSgJoKsdTH0PUgT2ycpbBJDyhysk3hCsdrA0VuGNP4nooJoKk1Y+h6" + + "AChycvbW/6es7d7SrcR/FZETLb83PS57d89HCrgIn2WOWpr5Y4xIxjjXxwpzyo96T38w75I/KDv7uyrp" + + "vkttfL9YV+yvuaHa3T1Vj8hicZsrGVk2p6mlir0SbO1mYFOrS5c61rVjXwlYFjjTmH7x8689c3czyJzv" + + "YSWM1rVYrMqyLCpPEBsyM9BWXOug00QKBzj92ecOdeaeY3TnGykspbaqx2hVlWFSeI1ZcvTMuddBpooA" + + "Gxp8T+oel+reuIJunc1Qb0pdxeGpze/4aqlrqzcVZTx2WKZ6VmjxlPQeVhHQDSacufIGlZ3YgnuI+ot6" + + "NJ7v2/lsdixbp6MqtlVE+vK9c7hraEQs4aT+BZ+STM4uexOoRitlrIQLWCwj2TX6aZtdMMP59DXYJxJZ" + + "mEnujb+RyP8vTVWJpl1fhwD/sRwf+I92GvHHMjwTC8M6PDMLBrwzKY5RpPBujHj2h6PcHB4dRPeuJ1vn" + + "JfiV8wDDuBZaXDbS3nmdq7g03cvs7N+aiiyS+nVNFHi62nr0t/nAigfX2euPqbXt4kVH29AK3c7ZutJM" + + "IrlT/pTiv7CD08OPPT8fVlDD/gw/Fz/AIi3vY2paqlrqWlr6Cqp66grqeGsoa6klSekraOojWWnqqWeM" + + "mOannicMjKSCD7IiCDQjPQ8BBAZTVTwPTORbg8EcEH8e6+/5kXZ2N2n0aNgJWQ/3j7Jy+NhhoFkX7qLb" + + "mDrI8plMm8V9S00lbTU9KrEWcyvblDZbYRlptdO1R/Pok3+4WKz8Cv6khH7Bkn/AADqXRoWl1/2UB5/x" + + "IsB/r8+01/K/wBn1mH6g3pu+sp2hi3lvGKnxUjLY1eO2zQNSy1CXAYxLk6+eIHlS0bAcg+7bgwMqKPIf" + + "4em+XYilrLKR8b4+wf7PXKta8ir/qV5/wBcn/ig92H7t3LjdmbW3Hu3MTJBits4TJ53ISuwQLS4ujmrJ" + + "gCf7bpDpUfUsQByfaJVLsqjiT0eSyLFHJK57VBJ/LqGqlmCj6sQB/sTb3qcboz9Zurcu4dz5Fi9fuPN5" + + "XO1rsdRary1dPX1BJ/JMs59iRVCqqjgBTqNJHMkjyN8TEn9pr0/KAqhR9FAA/1gLe7bf5YXw1+JHyj2n" + + "2xlvkn2Pkti5XaW4ttY7a1PQdj7Q2OuQx+TxuSqcjNJTbmxORlr2gqaWNQ8TKqarEXI95I+xftr7ec+b" + + "fzBcc7b09pcW80axBbmGDUrKxYkSoxahAyKAdT97L+3vIfOthvs/OG7vbTwTRrGFuIodSsrFjSRWLUIG" + + "Rw6r/8Amf8AITvjpXO7GoOn9oUe5qHPYnMVeblqto5/cppKqjrKOGkjSbDV1JHSiSGZyVcEta4PHu1TG" + + "/ye/wCWDmchR4nD957uyuVyNTFR4/GY3vbrCuyFfVzsEgpaOjpdqy1NVUzOQERFZmJsB7nyD7uPsXczR" + + "W9tzVcyTuwCqt9aszE8AoERJJ8gBXqcIfu/+y9xLHBb8zXEk7kBVW9tmZieAAERJJ8gOiQ1nz++Z+Ppa" + + "iur+s8BQ0VJC9RV1lZ1lvSmpaWCJS0k9RUTZxIYYY1F2ZiFA+p9v+5/5J/8uvZK0bbz7O7O2iuQMy0Db" + + "n7d2DgFrmpxGahaM5XZlIKkwCVS4TVp1C9rj2svvuw+zW1iM7nvt9bh66fFu7ePVTjTXCK0qK04V6VXv" + + "3cfaTbRGdx3q9tw9dPiXUCVpxpqhFaVFadNeG/mNfLTcZqBt7ZmzM8aQRmqGG2FunKGmEpYRGoFDuKcw" + + "iUo2nVbVY2+nsqfyp/lnfy7OqPjr3B2P1h3XnNwdgbN2Vk83tPDT91dcZ2HI5imMQpqaXD4vb1PkMijl" + + "zeKGRHb8EewBz97H+zXL/JvMe9bFzPLNu9tas8SG9tpAzilAUWMM32AgnoD87+zftLsfKW/7vsvMcku6" + + "29szxIby3cM4pQFFjDN9gIJ6HDpH5j/AC03z21sDaG8+ucZitq7g3HR43O5CLrrd+MkpMfMHM0yZCtys" + + "1JSMoX9cisq/ke6gP5fPQGxPk98rOuul+yZtwU+0N1U+65MlNtfI0mKzSPhtq5jM0Rpa2txuWpolNZQp" + + "5A0DFo7gFSQwxz9n+UNq565/wBm5Z3tpl264WUsYmCP2RO60ZlcDuUV7TUYxx6gH2p5V2znTnnaOXd4a" + + "UbfOJSxjYK/ZE7ihKsBlRXtOPTo/Xyr7T3N0x0fu3sTaEeKlz+DlwaUceapJ67HMuRzmPx1SJ6amrKGZ" + + "z9vUtpIlXS1ibgWOxbmv5Jv8u3bdWtBuLszs/AVzwpUpRZrtzYWLq3p5GdEnWnrtmQTNC7xMAwGklSL8" + + "H3mXdfdg9m7KQRXm+X8MpFdL3dupp60aEGmDnrLe5+7h7S2cgiu95vYpSK0e6gU09aNCDTBz1Upjv5jn" + + "yzzEDVWJ2bsvKUyyNC1Rjth7orYFlVVZommptxSxiRVcEre4BH9fbR/wzb/ACzv+fz74/8AR3da/wD2J" + + "e0//A2eyH/TTXX/AGW23/WnpP8A8D37N/8ATRXP/ZZb/wDWrqf/AMOD/Mf/AJ93tr/0W+8f/r97qT/mm" + + "fDH4yfEyl6Xm+O+9M5u6TfFRvmPdQzO+9r7y+xTAR7VbEGnh29iMXJjvO2XqNTTa1m0AJYo18evfn205" + + "G9vY+WW5N3OW5N0ZxLrnim0+GItFBGi6a62ya1pjgeoI97fbzkzkROXW5S3GW4NyZvF1zxy6dHhaKCNF" + + "011NxrWmOB6Pb8J/kN3L3rP2JH2zt3GYFNtRbafB/w/bGa2/wDctlHza1/lky1fWpV+IUEVhHpMeolr6" + + "hYBP5aPxj64+W/ydoOn+06jc9LtSq2Ru7cLzbSylFiMuK/Bw0UlGFq6/FZiD7ZjO2tfDduLMLchL2R5G" + + "2X3D55h5c355129rWaSsLKj6kAK5ZHFM5FPz6C3s5yZtHPnOkWwb28y2LW0slYmCvqQCmWVxTOcfn0KP" + + "zF7m3d0P0zVb/2TDhp85BuTA4pY89RVFfQGlyUlQlQTBS12Pl8wEQ0t5LDng+4/8yj40dd/Ez5Q5rp3q" + + "6o3NVbTx+0Nn5yGbdmTo8tmDW53HvVVoesocXiKcwLIoEa+EFR9SfdPezkjZvb3nu55b2F5229LaFwZW" + + "V31SLVsqqCnp2/n1X3h5N2nkTnW45f2R5msUt4nBlYM9XWpyqoKemOsvw+7i3b3r0tjuwN6xYaDO1eez" + + "+NkjwVHUUGPFNjKtYKcrT1VbXyiUqTqPksT+B7IN7iTqLejRe/e/de697uF/lL/AAT6U+beT7wou463f" + + "dHH13QbCqsAdk57GYRpH3LUbsiyQyP8SwGc+5CrhYPFo8Wj131XGnI77vftTyx7oT80xcyS3aizSAx+B" + + "Iqf2hlDatUb1+BaUpTPGuMgPYn2y5c9yJuZY+YJLpRaLAU8F1T+0MobVqR6/AKUpTPGuCA/Ov5NdjfHC" + + "i62qev6fbFQ+7KrdEGUG48ZW5IKuHiwclGaT7PK4zwknIya9WvV6bWsb22Vn8mD+W1jquooMh272DQ11" + + "HNJT1dHWdz9dUtXS1ETFJYKinn2gk0E0bghlYBgeCPeQsn3Z/ZSGR4puYrxJVNCpvbYEEcQQYagj0PU7" + + "yfd39n4ZHil3+7WVTQg3duCCOIIMVQeiJU/8w/5f1cEVVS7C2pU01RGssFRT9ebtmgmicBkliljz7RyR" + + "upuGBII9xv+Gbf5Z3/P598f+ju61/8AsS90/wCBs9kP+mmuv+y22/609U/4Hv2b/wCmiuf+yy3/AOtXW" + + "b/hwf5j/wDPu9tf+i33j/8AX73rtfPTpXq/49/KLsLqfpzNV24evdt020ZcJlsluDE7orKp8zs/B5rJi" + + "XM4SjoMdUeHJ18yBUiVolUI12Uk4be7PLGxcn897xy/y3dPNs8CwlHaRJSdcKO1XQKpozEUAFOByOsS/" + + "dDlzZeVOdd22Ll65aXaYViKM0iyE64kdqugVTRmIwMcDkdWzfGDsXena3Su1N89g46mxO68xNnkyVBR4" + + "quwtPCuP3Bk8dR6Mfkqiqq4ddFSxsSzkOTqWwIHsHOhOjd//JDtnZvTfWmNXIbr3lkhR08k5kjxuIx8E" + + "b1WWz+aqY45WpMNhMdDJUVEgVn0JpRXkZEYN8pcq7vzpzDtvLWxw69wuXoK/CijLyOc0RFBZjQmgoASQ" + + "CH+V+Wt15v33b+Xtmh131w9BX4VUZZ3OaIigsx40FACSARA7Q7K2t1DsXcHYO8aw0mD29RmolWIK9ZX1" + + "UrrBQYvHQu6CfIZKrkSKJSQuprsVQMw2hcf/LJ/lmfCzr3C7j+Xe78duzPV0YpZ9xdh7rze3sZlsukPm" + + "r6XZHX20K+myNfTQKbiNlylTGgDNIuq3vOyH2O9j/bLZ7a99xNxS4u3FDJcSvGrvSrCC3hYMwHofFYDJ" + + "Ir1mnF7M+zXt1tNtec+36T3TChknleNWelWEMETBmA9D4jAZJFeqW6r5lfMn5FbryOI6FwNXg8XTOZ4s" + + "TtPB43K1lBQNJ46Wbce6s/SzUlNNK3GpTRQuxICm3tx2/8ABL+UF81MBmsZ8csvhsXufF0LyPkOsN7bq" + + "oN2YNJCY6fJZHYe/airFXi/uiqtLNjQr/oWZGN/b1n7Ufd09zrS6g5LuIo76Na6rWeVZUrgM0E5NVr5m" + + "PPAMCenrT2x9gvca1uYeUJ40vUX4raaVZUrwZoZyarXzMeeAYHqHlfk38+fjrlMdWduUGRrcLW1KotJv" + + "PbmEqsHkmQB5aOk3PteKAwVvhuQkdYSv6mjYC3vXF+avw77A+FPclZ1fvOpizuIyFEuf2JvaipZKTHbv" + + "2zNPLTpWLTSPMcflaCpiaCupDJIYJlBVnikikfC/wBzvbfd/bHmSTYtzcS27r4kE6ghZoiSK0zpdSCrp" + + "U6TwJUqxxE9xvb/AHX255hk2TcXEsDLrhmAossZJFaZ0spBV1qdJ4EqVJt0+OnyA2t8i+vqfem3oXxlf" + + "S1Jxe59uVE6T1eAzMcaStTtMixiqoaqFxLTThFEsZsVV1dFKH7jroA9D37vV/lr/wAoqP5M7Ro++vkHm" + + "M5tLp+vlqDs3a+Ckhxu5N+UtDNLBV56ty9ZBUJgNprVQPFE0cTVVbod0eCNY5Jsq/ZP7u45426PmznC5" + + "lt+XHJ8GKMhZJwpIMjOQfDiqCBQFnoSCigM2TXs97CDnKwj5o5ruJYOX2J8KNKLJOFNC5cg6IqggUGp6" + + "EgqoBas35g/PRum89UdYdVUGNzu/qVIhuHN5NHrMRtiapjSWDGU9BTyxNlM6YZFdw7iGm1KrLK5ZI7CM" + + "j1p/IP2Tlj1zlsj03LmqOSbF1VU2/uztxxw1SSGCoWv3tjM5kMHTVUExIZnrU8TKR6dJtMM2yfdK2u4/" + + "ctxNtpuVJUn6i6kAPA6p1dowQeNXFPlTqV5tm+65ttx+6J5tvNypKk+PcyUPA6pldkBB41cU+VOip0m8" + + "f5om5KAbuoKPsFMdULHWwwDa+zMQ8kDL5YjS7crMbS5OWCSMAqFp21gj63FwI+Y/wDJc6ry/VeQ70+DG" + + "4arKw0eFm3RB1wNxjfO3N57fp45ampl653Y1RW5J8rHSxloKapqa5K1kMaSxyFVYJ+5P3ZtguNgm5q9q" + + "rxpFWIyi28Tx45owCSbeWrNrp8KszhyNIYNQEL+4P3ddjn2OXmb2zu2dVjMgt/E8aOaMVJ+nlqW1U+FW" + + "Zw9KBgaAid8ff5iW9qDe9J1n8l8VBRSVGRjwsm7ziDtrLbeysrxwwpu7BCKno1oWmYCWaGGmamDa2R0B" + + "K6zRBUlWBVlJBBBBBBsQQeQQfeD/DB49YbcMHj1ceCCAQQQRcEcgg/Qg/kH3bD/ACn/AIUdPfNbsLtna" + + "3cFZvWjx2ydm4TP4Z9lZvHYWpetyGbfHVC10mRwecSeDwAFVVYyG5JP095A/d+9sOXPc7eOYbDmOS6WG" + + "1tkkTwXVDqZ9J1akeopwoB1OnsX7ccv+42677ZcwSXKw21ujp4Lqhqz6TXUj1FOHDojPzm+Rm//AI57U" + + "2Lm9gU+3Kir3HuHI4vILuPHVmRhWmpcatXEaZKTJ41opfKTcksCPwPZxf5kP8p3oL4z/F/Ld39FZbsrK" + + "Znae89t0W5Yd17lw2fxY2tlq2s27kGhpsZtfDVEORo9x1dADIZSkcQlDISQyyR70/d95R5H5FuOaOVLi" + + "+kube5jWUSypIvhOxjagWJCGWQx5rQDVUeYkH3f9i+VuTeS5+ZOWZ7x7iC4jEglkR18NiY2oFjQhhIUz" + + "WgGqo8wX74h/OftLuPuih637MoNn0OOzm3cxU4eTB4fI4utOaoaeny1KJJq3NZCKSkqMRBVWUIGZyhDc" + + "ENrse8NusSuraPY0/HHqWp73756i6dpvuVHYm/9tbZrp6QqKmiw1dkoBnslEzxzIhxeESoqCxRwoiJKm" + + "1iJuS+Xn5s5s5d5bTVS8vI4mI4qjMPEYYPwpqbgeHDoRco7C/M/NGwcvpX/ABu6jjYjiEZhrYcfhTU3A" + + "8OHQddub7h6x6w372BN4WO09rZjM00U9zFU5Cmo5P4XRuA8ZYVuRaKIAMpJe1x9fe1TU/yKfgyKbNmk3" + + "H3lPV4SKVayBd/7XZqWqGOiyUMFQo2ATG8lJUxSAH6pID+fefL/AHU/asJdGO93UyRA1H1EWDpDAH/F/" + + "MEH7D1nA/3ZfbTRcmO83MvGDUePHg6QwB/Q9CD9h6pEh/mZ/JYzY0T4jrSKDJOhp5W2tmgJoDVvRySxH" + + "+9PqVJ4XS/+qUj3p7VkSwVlVAl9ENTPEmo3bTHKyLqIABNhz75xyKEkkUcAxH8+sAJFCu6jgCR1f1TyN" + + "LTwStbVJDFI1uBqdFY2HNhc+43unVOs3v8A/9b5/wD7917rf49v21dzZrZW59uby23WHHbi2lnsPubAZ" + + "ARQzmhzWByFPlcVWCCojlp5jS11LG+iRWRtNmBFx7V2F9dbZfWW5WUmi8t5kljagOl42DoaGoNGANCCP" + + "XpVY3lzt17Z7hZyaLuCVJEagOl0YMpoag0YA0Ip69Nebw2O3Hhcvt/MU/3eJzuLyGGylKXkiFTjspSS0" + + "VbTmSJklj81NOy6lYML3BB92c4P+dJ/MDw0kTTdqbdz0Ubl3p851xsmaOcM4cxyy0GHx1YE4sNEqMB9D" + + "7nK1+8z7v2zKW3+GVQeD20BB+0qin9hHUz233ivdW3Klt8ilUHg9vCa/aVRT+wjomeS/l2/FbII6x7Iy" + + "2Md1CrNjd3bjjeIhdOtEqshVwFvz6kYE/j3cH8Cf511F3zv/bnS/wAjNpbe2DvTd9ZT4XZu+9oy1sGy8" + + "3uGqcQ4/AZvEZmuyNft7IZiYrDSzpV1NPNVOsRSHWp95He0v3nYubN3suWec9uhtNzuWCQzwlhC8hwsb" + + "o7M0bOaBWDsrOQpC1HU/wDtd942PmjdbTl3m6witdxuGCRTxEiF5DhUdXZmjZzhWDMpYgELUdED+UH8u" + + "eo6w2tl+xOpM9ld0bdwFPLkdwbYzyU0u4sbiYFMlXlMdX4+mpKXK0uPjBkniaCGWOBS4aTSR7sF/mD/A" + + "Ai2T80OlM3gp8XQUnbm1sXX5TqbeoiiiyWNz0EbVUe3K6t0+Sba+5pYhTVcDlkiaRahFEsSn3L/ALwe1" + + "21+5nLF1avAi8xQRs1pNQBlkAr4bNxMUpGl1OBUOBqUdSr7re222+4nLlzbNAq79AjNazUAZXAr4bHzj" + + "kI0sDgVDjuUdFU+KfyQ3H8d+xsbk4q2qn2Hm62lot9bdLvJSVmMlcQvl6amvojzeGRzNBIoDOFMTHQ7D" + + "3oVV1DWYyurMbkaaaiyGOqqihrqOoRoqikrKSZ6eppp4mAaOaCaNlZTyGBHvkzLFJBLLBMhWZGKsDggg" + + "0II9QcHrl7LFJBLJDMhWVGKsDggg0IPzBwetoCmqaetpqespJo6ilq4IqmmqIWDxT088aywzROtw8csb" + + "hlI4IPs0nw471XonuLF5XLVLw7L3TGm2N4i/wC1S0FXPG1Fm2TkXwdeFlcgF/tjMq8tYorqHxoiB8YyO" + + "l+1Xn0d0rMf0mw32ev5H+VevVEXljIH6l9S/wCuPx/sR72UoJ4amGGpppoqinqIo54J4JElhnhlQSRTQ" + + "yxlkkikRgyspIINx7Ieh+CCAQcdM3sinzA+GVJ8g/tt6bOr6Db/AGdi6BaB2yAaLDbtx1OD9nR5Sogil" + + "moclQglIKrRIpiPjkWwR0WWt0YOxxWP/B0T7rtQvqSxELcAUzwYfP5jyPUqnqfFdWBKE34+qn82/rf3X" + + "tgtn/zEejqJ9pbToO0cfg4pXipaTAmg3bgo9Re74h1/jNNQwOxLfs+IFjci59rWaxmOpitf2HoiSLfbN" + + "fCiWQJ8qMPy49Sy1JIdTFL/ANTdT/sfpc+1BsL4RfJDvXe0e7e/q/ObZxM08D5rM7tyaZHeWToYm8n8O" + + "wWK81U1ErISkbziCmp9V1R7aDp7uCFNMIBPy4fn05BtF/ezeLfMyr5ljVj8gP8APQDrpqmGJdMQDH8BR" + + "ZefyT7u52ptXAbH21g9obWx0WK29tzHU+KxNBESwgpKdbKZJW/cqKmZy0ksrXeWV2djcn2UszOxZjVj0" + + "L4o0hjSKNaRqKAdNrMWYsxuSbk+6zf5k/ftPg9sUnRW3qxXze6BSZferQSAtjduU0y1OMxU2h7x1Wbro" + + "VmZG5FNCLjTMp9r7CGrGZhgcPt6D2/3oSMWaHvbLfIeQ/P/AAfb1Mo4rsZT9F4X/En6n/YD3SZ7Nugj0" + + "5e/e/de697N78AAD83fimCAR/p362NiL8ruagIPP5BFx/j7kX2iz7ocgV/6O1t/1dXofe1n/TyOR/8Ap" + + "aW//VxegE+U5I+N/eNiR/xjDeA4/ocNVAj/AGIPu8D/AIUTAfwj4tNYahku1ADYXANLsgkA/WxIH+295" + + "SffJH+Lchnz13X+CDrJP72n9hySfPXc/wCCHqtv+UwT9/3WLmxpNkkj8Eibcdjb+ouf9v71gveC3WF3V" + + "z/u0H+Tf/28H6U/6hOwP/ff7k9zr923/p8HLH+luP8AtHk6mr7vf/T1+XP9LP8A9WJOiXfzBP8AslPsb" + + "/lvtX/3qsP7H7+fqqj5nbQYABm6E2cC1hchd4dgaQT9SBqNv9f2Lvvbgf65e3Gmf3RD/wBXrjoU/elA/" + + "wBcPbzTP7ri/wCrs/QW/wArgn/ZeM8Lmw7R3AQL8AnAbVuQPwTb3SB7xc6xs6sj9+9+69173cR/Ix/7L" + + "xw//iLOxv8A3FxvvI/7q3/T2Lb/AJ4Ln/AvWQP3Z/8Ap59v/wA8Nx/gXqv/APmW/wDZMWQ/8PbaP/W+s" + + "9w/54n/AGXxun/xHHW3/ulk9t/el/6e1f8A/PFbf8cPTf3lf+no3v8Azx2//HD1I/lsf9ku4T/w7t4f+" + + "7FPdQfvHTqAuj8e/e/de6972U/+E6//ABf/AJV/9qfqL/3N7C95tfc1/wBy+fv+adp/x646zD+6V/uXz" + + "x/zTtf8M/VPf82j/i1dIf8Aaw35/wC421fdLHzpVV+ZfygCgKP9OXZBsAALtujIsxsPyzEk/wBT7xk91" + + "QB7lc9UH/LVuf8Aq63WOnuYAPcLnSn/AEc7j/q43VinxnJPx76XJJJ/0a7RHJvwMNSAD/WAFh7Kn7AHQ" + + "H6HD3737r3Xvey7/wAJ6en6Cor+/e+K+mjmyGNi291btqoeNWakjyAfc+7GhdgSktQtLik1LpIQOvIcj" + + "3m79zzlyF5ebubJUBmQR2sZ9NX6stPmaRD7Kjz6zH+6hsETy808zyoDKgjtoz6av1JafbSIfZUefVOn8" + + "13f1VFS9W9Y0szx0tY+W3rmIlcgTtS6cLgxIARqSJpq1rG4LaTwVHuqj+aB8gc38gvmX2/kqrKVFZtbr" + + "zc2W6s2HQmd3oMfgNkZGpw9VUUERkeFBns5T1Ve7qAZDUC/CqBAXvrzfdc4e5XMc8k5aws53tYFr2rHA" + + "xQlRw/UcNIT56h6DqDvenmq55r9w9/meYtZWkzW0C17VSFihKjh3uGcnz1fLo8Hwv6rxvVXx72DRwUUV" + + "Pm92Yah3tueq8arVVeV3HSQ5CGKqkCLIxxeNlgpVUkhBEbfU3K10D3Ru749dw7A7g2TkqzHZvZO4sflH" + + "WjmaIZXELOiZvAVqghKjG53FNLSzxPdXjlP5sQA+UeZtx5O5k2jmPa52S6tZlbBprSvfG3qsiVVgcEHo" + + "E8q8xX/ACnzBtXMG2zMlzbTK2DTUle9D6q61VgcEHoa+0+u8D2v1/unYG46Onq8duPE1dEpqIw/2Ne0T" + + "NjcpTmxaKrxlcEmidfUrJ/S497Mv8+7D7Q3t8ZemezcRW4jI5ra/aFNjaWpo66hqKtNs762ll6uviKRT" + + "NUGGXJbdx7XsVUrzbV7zf8Ava223bpyPy1vlvLG91BfhQQyk+FPE5YYNaFo4z8qfPrMn70Vvt+5cmcu7" + + "zBJG9zDehQQQT4c0TFhg1oWjjPy/PqnD+V5kM/tzuXsLZlfT19Jjs1suasnhqKaphgbMbZztBT0sgaSM" + + "RCRKPLVa2uCQf8AD3q1debPruw9/wCxtgYzjJb43htnZ+PNiQK3cuaosLSkgAkgT1q+8Dtm22XeN32ra" + + "IP7e6uYoV/00rqg/m3WE207fLu267ZtUP8AbXNxHEv2yOEH8z1dhuzP021Nrbl3TW/8A9tYDMZ+rHAvT" + + "YfHVORnFzxcxU597cv84ftCb4sfBjY3R/VVRLteHftXgeoaKTGOKKroet9o7e+4zlJSyU5jeH+KU9BR0" + + "NSy/rp6uVD/AJwkdD/vH763IXtVtXK2wOYFu2js109pW2hjq4FKU1BURqcVdh59Z6feA3puSPbPbOWtj" + + "cwrdMlqNOCLeKOrgUpTUFRGpxVmHn1Q18ANlx92/JfcvZO+IUzUm16fKb+qFrV+4gqd357LeLGzzpLrW" + + "T7KWqqKmEN+maCNh+m3vTp983uuffWwJ72W/wDhPr33n5s13F8bMxlpqzb0GBp+1tlY2qmklXDVVPlqL" + + "b28ocaruRBR5Rszjp5IlAQTRtIAGkctm590Dm27a65k5JubgtZiEXcKk10EOscwX0Da42IGNQJ4sa5jf" + + "dU5pumueYOT7ictaCIXMKk10EMI5QvoG1xkjhUE8Sa06/zVer8XHjuv+4MfQx0+Vkyk2x9x1kMaochDL" + + "Q1GV29JWMqgyz0S4+rjR2Ooxuq8hFAqN/mV9P0XSHzb782XiKFcft+r3XHvTbtLFGsVNBid+4yh3ctLR" + + "xLYR0eOrcvPSxrYWWD+nvHj3t5ci5W90Obdst4tFm1x40YGAEnVZqAeQVnZB/peoF94uX4+Wvcjmjbre" + + "PRaNP40YGAFnUS0HyUsVH+l6Pl8PN/VHZPxw6u3FX1Jq8rBg227lpnYvNJXbXrKnAmeoc8tUVdNQRzuf" + + "yZfdmn/AAnk/wCZzfIj/wARjtf/AN6qT3OP3Ov+Vl5y/wCeGL/q6epm+6d/ysPNv/PFF/1dPRNv5sH/A" + + "DLzqf8A8PPNf+6NfdrcJ/2Z3pz+Zv8AGmtkNfn9pdp9sbf2/TPIHeKDdO0cVvjr+YlwfGkO9oauNABYJ" + + "TCxv9J+X/kdct++XJEra7u3v7uOMeglhSe3PypOHA+S9Tiv/I05e95uTpDqure9uo4x6CSJZoD8qTBgP" + + "kvRHXH+hjsH4adxUyClxed2TsbK5WZEKq8uEz1dtrdUY021vJtySBmP5aY34+ukS6NGzI6sjozI6OpVk" + + "ZSQyspAKspFiDyD75eEEEgihHXN0ggkEZ62QlZWUMpDKwDKykFWUi4II4II93T/AMibqP8Av58x6zsGr" + + "pllxnTPXuf3FFNJGXjTcW6PHs/Dwq9iI6hsdlMjMl7XFO3vJr7qXLv729yZN4kSsG2WckgNP9El/RQfb" + + "paQj/SnrIv7smw/vT3Bk3WRKw7daPJX/hkn6SD7dLSEf6U9V1/zNN+f3Y+PsG1YJilZ2HuvF4l41cKzY" + + "jC69wZCQr9XiWroqSNv8ZR72Jfht2yO6T85t509SavFUPyz7D2Jt+bUGjfB9edT9VbQpJoCpKmnrKjFz" + + "VEZH1WYH6n3mT7bcwDmb/XU3NH1W68w3EEZ8tFvaWsII+RKsw+R6y09vd9/rH/rl7ij6oF32eGM/wBCC" + + "1togR8iVLD7eqmfkHsU9df7LRt6WEQV1T0XtLc2VjsQ65Ldm+t75+eOUEAianhro4mB+jR296H2T/4uW" + + "Q/6jav/AK3ye+UE/wDbTf6Y/wCHrmHL/ay/6Y/4etnKj/4B0n/UNB/1qX3C9tdN9Sff/9fS2i+BHzUnj" + + "ilh+LfeEsU6RywyJ17uEpJHKqvG6sKKxV0YEH+h9yGvtL7muFZeQ90KkVH+LyZrw/D0PF9rvcZgrLyTu" + + "RBFR+hJ58PLreBf5Q/HWJnSTuvrZHjZ0kRt2YkMjxsVdWU1FwysCCPZVMjj67EZCuxWUpJ6DJYysqsfk" + + "aGqjaGqoq6inemq6SphcB4p6aoiZHUgFWUg+wBNDLbzS288ZSeNirKRQqymhBHkQRQjoDzRSwSywTRlJ" + + "kYqykUIYGhBHkQcEdDfSVdNX0tNXUU8VVR1lPDV0lTA4khqKaojWaCeGRSVeKaJwykcEG/uH7b6b6ke5" + + "dBX1mLr6LJ4+okpK/HVdNX0NVCxSamrKSZKimqInHKyQzRqyn8Ee3IZZIJYp4XKzIwZSOIINQR8wc9OR" + + "SyQSxzROVlRgwI4gg1BH2HrBVUtPW01TR1cST0tXBNS1MEgDRzU88bRTRSKeGSSNyCPyD7+j/0tvGXsT" + + "p3qnf8AOS1RvfrfZG7aglShNRuLbWMy05KkAr+7Vniw99peWdybeeW+X93f47qyglP2yRK5/meuvPLm4" + + "Nu3L+x7q3x3NnDKftkjVj/M9ah/Ym349p9gb42tEAItubv3JgogDqAixOYrKCPnm/ogHvQz+f8AtvHbS" + + "+a3yewWJijp8fT9ybzq6aCJSkcC5fKS5h4UUlvTFLXst/za/vk57u2UO3+53PVpbqBCNymIA4DWxen5F" + + "uuYPupZxWHuNzpbQKBENwmIA8tTa6flq62e/izl6vO/HPpjJ1ztLVy9fbdgmldtTymgokx6yMbDmRKUH" + + "/C/soPuOegB0Pnu1n4U/N+k2dRY3qLuPJNFtqmEdHs3elUzyLgYiwSHA5+T1OMLFe1NVH/gIo8cn7Olo" + + "i67tC5MsQ7vMevzHz6Eu0bwIgtrdN+mPhb0+R+XofL7OEGpptRMkY9R5Zf6/wCI/wAfd0lLV0tdTU9bQ" + + "1NPWUdVDHUUtXSzR1FNUwSqHinp54WeKaGVGBVlJVgbg+ynhg8ehYCGAINQem33JBI+hI/1vfut9e99e" + + "/de697Jv8ofmDsnoDE1eGxtRR7m7Qq6Z1xe2KeZZocM8sZ8OU3TJC96GkjLB0prioqeAoVCZVVW9q8xB" + + "OI/X/N0VbjukNipRSGuSMD0+Z9Ps4nqTBTtKbm6p+T/AF/wX+vvXh3TujP713FmN2boydRmNwZ6umyOV" + + "yNUwaapqp2uxsoVIoY1ASONAscUaqigKoAO1UIoVRRR0BZJHmkeWRquxqT07KoUBVFgOAB7YPduqdd+/" + + "e/de697N9/L/wD+y3fin/4nfrf/AN6Wh9yL7Rf9PR5A/wCltbf9XF6H3tX/ANPI5H/6Wdv/ANXF6AP5T" + + "/8AZN/eH/iMd3/+6aq93gf8KJf+LP8AFv8A7Wfaf/uLsn3lJ98n/cbkP/T3X+CHrJP72n+4/JP+nuf8E" + + "PVbf8pn/i4d1/8AUHsr/rduL3rA+8FusLuroPdoP8m//t4P0p/1Cdgf++/3J7nX7tv/AE+Dlj/S3H/aP" + + "J1NX3e/+nr8uf6Wf/qxJ0S7+YJ/2Sn2N/y32r/71WH928/zVf5bHyb+XnyN2/2Z09QbIqdrY3qvbu0ai" + + "XcW7o8HX/xnG7h3ZkqtFonoKjVTLS5eArJr9TFhYaecivf32T559xedLPfOXIrU2CWEcJMk2htaySse3" + + "ScUdaGuc+nU+e+Hs9znz9zdabzy/FbGxSxjiJkl0NrWSVjjScUdc19fTohPwg+YPTXQvUeV2bv+q3JDm" + + "6ze+Wz0SYnAvkqX+H1mKwVHAxqVqorTGagk1Jp4ABub8Vn/APDGHzw/51PVX/oxqf8A+tXuEP8AgVvdj" + + "/lH2/8A7KB/0B1Df/Az+5/++LH/ALKB/wBA9HG/4cu+MX/K/vf/ANBGX/6t9kC+UHxa7V+InYtD1d3DB" + + "gKfdWQ2rjN408e3MymdoP4NlshmMZSNJWJBThKr7vBzhoytwoU3IYe4i565D3/273mLYeY1hF+9usw8N" + + "9a6HZ1GaDNUaop6evUV868k75yDu8Wy8wLEL54FlHhvrXQzOozQZqjY+z16NL0v3ZsfvraVTvXYEuUlw" + + "lLnKzb8rZfHNjKn+IUNJQVs4SnaWXVB4MlFZ78m4/Hs/f8AIx/7Lxw//iLOxv8A3FxvuXPurf8AT2Lb/" + + "nguf8C9Sn92f/p59v8A88Nx/gXorf8AMt/7JiyH/h7bR/631nuH/PE/7L43T/4jjrb/AN0sntv70v8A0" + + "9q//wCeK2/44em/vK/9PRvf+eO3/wCOHqR/LY/7Jdwn/h3bw/8AdinuoP3jp1AXR+Pfvfuvde97Kf8Aw" + + "nX/AOL/APKv/tT9Rf8Aub2F7za+5r/uXz9/zTtP+PXHWYf3Sv8Acvnj/mna/wCGfqnv+bR/xaukP+1hv" + + "z/3G2r7Cz5P/wAnH5odsfIru3szaeM61fbG/Ozt47qwD1+/YaOtfEZrN1ddQPV0jYxmpqhqaZS8ZJ0Nc" + + "XNr+yDnr7tvuZzBzlzRvm3wWJsbu+mlj1TgNodyy1GnBocjy6JOdPu+e4m+828ybzYw2f0V1eyypqnAO" + + "l3LLUacGhyPLpb9MfzBPjvsbqXrjZudrd4LmdsbN2/hMotLteSoplr8djoKaqWCdawCaETRnS1hqHNh9" + + "PYFD+Rf88L/APFq6qH+J7GgsP8AHjFE+wp/wKvux/vjb/8AsoH/AEB0Gf8AgZ/c/wD3xY/9lA/6B6Ez/" + + "hy74xf8r29//QSl/wDq33U/vvZma653tu7YG5FpU3Dsncma2pnEoqhaujXLYDI1GLyC0tUqqtTTiqpW0" + + "SAAOtj+feP+7bZdbLum47RehfrLWd4n0mq642KtQ+YqDQ+fUF7pt1ztG5X+1XgX6u2meJ6Go1IxVqHzF" + + "QaHz6PLtjcOO3btzA7pxBnbFbjw+OzmNaphNPUGhylJFW0pngYsYZTBMupSTpPHvbw/kLYmLF/CjdGZE" + + "UfnzPd+9qp3V7tNBjdsbKoYEl9A8bJLBLYer0kH8299E/umW6we2F9c6Rrl3Sc/aFigUV/MHrPf7r0Ah" + + "9uL240jVJuUx+0LHCor+YPVCn8z+uet+RuFx/kbxY/rfbkCqy+mOWszW46mRk9XqDJKl/pyCP8AH3qIb" + + "9r58pvneeTqnaSqyO7NxV9TI51M89XmKyomdmsupmkkJJsLn3zs3aV5913OeQ1d7iRj9pck9YEbpK0+5" + + "7jM5q7zyMftLknq+va9LFRba27RQKFhpMFiaWFVFlWKnoKeKNQLmwCIOPaT9l/SHp89+9+69172c7+XZ" + + "hoc984/i5jp4fPEO4Nq5FoyIyP9w1U2ZWS0oKfstQB/6+njm3uTPZq2W790+RIWWq/vKJv94Ovz9NNep" + + "E9pbdbr3L5KiZaj94RN/vB1/wAtNei8fLPISYv4191VcUnif+4GcpFf1D/i4QjHlfRZv3BVaf6c88e7l" + + "v8AhRTmpPuvijt5JGEPg7hzVTCVOhpPJ1xQ0UgfVYsq/cAi3AI5595KffKuW1+39mG7aXjkfP8AxZVP/" + + "HushfvbXJ18jWgPbS7cj/snUf8AP3Ve/wDKWxyeHvLLMi6/L1/joZNQ1BNG76mpQra4UnxEG/Nj71m/e" + + "D/WG3Vx/u4f+RllJsf88sLSR69Gc6t7HxdRpKgGGGjx2bXWGUlk8+HTgWOq3Nrg5H/dXnaH3YtY14S2F" + + "yp+wBX/AMKDrIH7tE7Re59vGvCWxuFP2AK/+FB0QD+ZbRR1XxhyM76dWN3rtGtiuCT5JKirxx02IAbxZ" + + "BvrcWv+bH2+/wA+HELj/m9R5FVjUZ3prYtY5Uku81Jkdz4svKNIAbw0Uajk8KPav72FsIfdGOYAfq7bA" + + "35hpVz+SjpT956ARe5Mcop+rt0J/MNIufyA6bP5Ytear43VFIxcnGdhbmp1DD0rHPSYatCobm48lSxP0" + + "5Psef8AhPJ/zOb5Ef8AiMdr/wDvVSexZ9zr/lZecv8Anhi/6unoUfdO/wCVh5t/54ov+rp6DD+bB/zLz" + + "qf/AMPPNf8AujX2bT4Z9sDbP84b519SVtQY6HtObJ5XGwvIdE+5dgNiq2GBIT6TJJtzM5KQt9dNPb3IP" + + "tpzALH7x3uty9K9Ir8s6j1kt9DAU9TG8h+xeh17eb79H94D3N2GR6RXxZlHrJBpIFP+abyH/a9AV8hdj" + + "HM/AD4zb7p4tVTslKOhrJFQao8PukV1NJI0n1CJl8fRoB/WX3rufObqhukvl38gut1gNNQ4bsrPZDCRF" + + "QoG290SruvbekABbfwLN0444BBH494b+6nL55X9xOb9lCaYor2RkH/C5T4sf/VN16xM9y9iPLfPvNezh" + + "KRR3jsg/wCFyHxY/wDjDr1bL8ad8jsfoXqrd5lE1TkNn4ulyT3uTmMLGcHmL35v/E8dKeeSOfz7vV/lF" + + "0dP8bv5fPys+WuVhjpa3KDdlfg6mSNVlrcd1XtesgwMEMjG0iV2983V0yLxeZLW+l8rPu7xpyV7P8/+4" + + "VwoWWTxWQ+bLaxERgeuqd3UD1HWTXsLGnJ/tTzzz3OoWR/FZD5sttGQgH2zOyj5jqs3551Evb3yr6P6J" + + "oZHnp6I4KmyUKuTHTVe9s3BJlJZEAujU228bBMx5tG1/Y7/AMiKsqcj8L+7MhWStPWV3yE7BrKqdzd5q" + + "mp6x6xmnlc/lpJXJP8AifYs+6jI83tlzPNI1ZH3i4JPqTa2pJ/b0J/uxyPL7dcxyyNWRt2nJPqTb25J/" + + "b0GP8zanhpPkT1zS06LFBTdVbUp4I14WOGHee8o40UfhURQB71Esn/xcsh/1G1f/W+T3ztn/tpv9Mf8P" + + "WBMv9rL/pj/AIer6KP/AIB0n/UNB/1qX3C9tdN9Sff/0DNdWbip939YdcbspJEmpdz7D2huGmljFo5af" + + "Nbfx2ShkjGp7I8dSCPUeD9T77X7DeJuOxbLuEbAxz2kMgI4EPGrD/D12D2S7S/2XaL6MgxzWsUgPyeNW" + + "H+Ho++9sTLgd57uwc6Mk+F3Pn8TMjm7pLjsrV0ciMbLdleEg8Dn389r5QbXyuyvkj31tTOQvBlMH3B2N" + + "Q1SOujWU3ZlWiqEGpwYaqB1ljYEho3BBIN/fHvnqwuNr515t2+6Wk8W5XCn/nK9D9hFCPkeuUXOllPt3" + + "OHNFjcrSeLcLhT/AM5WofsIoR8j1ta9L5qh3H1D1fnMbIstFktgbSqYGVtWkNgqFZImNlIkglVkcEAhl" + + "IIBHsCvYU6DPQme+SI8jpHGjPI7KiIilnd2IVURVBZmZjYAck+9gEkACpPWwCSABUnrpmVFZmYKqgszM" + + "QFVQLlmJsAAByff0bvjntnI7L+PvRmz8uhjy21uoOt9v5OMoY2jyGH2dh6CtjaNiWQx1MDKQTcW99nuT" + + "LGbbOT+VduuRS4g262jbyoyQorD9oPXXTlGym27lTlnb7gUngsLdG/0yRIp/mOtRrtvMUm4u1ey8/QMH" + + "oc1v7d+VonDBw9JX7gyFVTuGAAYPDKDcf196Hfzo3bR75+Y3yY3Rj5lqKDI9z78jopkACS0mNztXiqZ1" + + "IVQwaGhX1W9X15vf3yf91dwj3X3J54v4WrE+5zhT6hXKD+S9cw/cy/j3P3B5yvYmrE+4z0PqFcqP5L1s" + + "7fGjBVG2vj705haqNoqqk682w9TGxOpJ6zGQV0ym5JBElSePx9OPZU/YA6A3Q4e/e/de697H3qb5O919" + + "LLHSbH3pWw4RHZztnLxx5rbra2DyCLG14lFAZWF2elaCQkn1cn2zLbxS/GmfXz6W2243dpiGU6PQ5H7D" + + "w/KnWJ4IpOWUX/1Q4P+3H19m6of5o/cEFLFFXbC68rqpVtLVIm4aNZW/wBUKdczMsf+sGPtKduirh2p+" + + "XRoOY7oDugjJ/P/AD9R/sY/9U//ACb/AMU9hH2J/MB+RW/aWoxtHncXsTGVCvHLFsvHtQ5CSJxYo2br6" + + "jI5WBrEjVTyU5I+vt1LKBCCQSfn0ln3u/mBUOEX+iM/tNT+ynWRKSFObFj/ALUf+IFh7JXU1NTW1E9XW" + + "VE9XV1Msk9TVVMsk9RUTysXlmnmlZ5JZZHJLMxJJNz7V8MDopJJJJNSepPvB791rr3v3v3Xuve/e/de6" + + "97N9/L/AP8Ast34p/8Aid+t/wD3paH3IvtF/wBPR5A/6W1t/wBXF6H3tX/08jkf/pZ2/wD1cXoA/lP/A" + + "Nk394f+Ix3f/wC6aq93gf8ACiX/AIs/xb/7Wfaf/uLsn3lJ98n/AHG5D/091/gh6yT+9p/uPyT/AKe5/" + + "wAEPVbf8pn/AIuHdf8A1B7K/wCt24vesD7wW6wu6ug92g/yb/8At4P0p/1Cdgf++/3J7nX7tv8A0+Dlj" + + "/S3H/aPJ1NX3e/+nr8uf6Wf/qxJ0S7+YJ/2Sn2N/wAt9q/+9Vh/dp383H+YL8sviz8mNudd9H9l0m0No" + + "ZDqTbe6KrFzbG2DuR5M5kNx7vx9XWff7o2zmcgiy0mKgURLKIl0XC3ZiZ6+8P7v+4PIXPFls3K2+Lbbc" + + "+3RylTBbyd7STKTqlidshFFK0xwyept9+vdXnrkjnKz2nlreVt7B7COQqYYJO9pJVJ1SRu2Qq4rTHDPR" + + "Jfgd8Vei+7OnMvuzsnZ0+fz1LvvL4WCtj3LunEKmNpcRgKqCn+1wuZx9KxSeulbWULnVYmwFqtf+Hmf5" + + "iv/AD/XH/8Aopunf/sC9wP/AMEt7y/9NWn/AGSWf/WjqE/+CG92/wDpp0/7JbT/AK0dHX/4b0+JX/Psq" + + "r/0OuwP/so9kt+QfyR7i+Uu+aTsfvDdUO794UW3aDalNlYdv7c22keCxlbk8jRUZoNsYrD452iq8xUN5" + + "WiMra7MxCqBGXOHOvMnPm6x71zTfi53JYViDCOOP9NWZlGmJEXBdjWlc5NAOo65r5w5g523NN35lvhcb" + + "gsKxBgkcfYpZgNMaouC7GtK544HRiequoOv+lNtT7R62wkmA2/U5aqzk1DJlcvl2bJ1lNRUlRUCqzVdk" + + "KtRJBj4hoDhBpuACSTYr/Ix/wCy8cP/AOIs7G/9xcb7mX7q3/T2Lb/nguf8C9S392f/AKefb/8APDcf4" + + "F6KV/Mt/wCyYsh/4e20f+t9Z7h/zxP+y+N0/wDiOOtv/dLJ7b+9L/09q/8A+eK2/wCOHpv7yv8A09G9/" + + "wCeO3/44epH8tj/ALJdwn/h3bw/92Ke6g/eOnUBdH49+9+69173sp/8J1/+L/8AKv8A7U/UX/ub2F7za" + + "+5r/uXz9/zTtP8Aj1x1mH90r/cvnj/mna/4Z+qe/wCbR/xaukP+1hvz/wBxtq+y4/Kz+bB87+svkt3t1" + + "5svuWhxO0tldqb121tvGN1l1XkGoMLiM7WUWOpGrsnsusyFY0FNEqmSaWSRyLsxPsF8/wD3gfdfY+d+a" + + "9m2zmVI9utb+aONfprVtKI5CjU0JY0ApViSfM9BHnj309ztm5x5n2nbuYVjsLa+mjjX6e2bSiuQo1NCW" + + "NAOJJJ8z0LvR/wa+Me8unest2bi69qa7Pbi2Tt3MZetXeW96QVWRr8bT1FXOKaj3FT0lOJZnJ0RoiLew" + + "AHsv/8Aw8z/ADFf+f64/wD9FN07/wDYF7CH/BLe8v8A01af9kln/wBaOgr/AMEN7t/9NOn/AGS2n/Wjo" + + "U/+G9PiV/z7Kq/9DrsD/wCyj3W7vDdme37uzcu9901q5Hcu789ldy7gyC0tJRLW5nN10+RyVWtHQQU1F" + + "SiorKh3EcMaRpeyqAAPcK7luF3u24X26X8uu+uZXlkagXU7sWY0UBRUkmgAA8hTqINwv7rdL+83K+k13" + + "lxK0jtQCruxZjRQAKkk0AAHkOje7fwWL2vgsPtvCU5pMPgMZQ4fFUrTT1LU2PxtNHSUcBqKqSapnMVPE" + + "q65HZ2tcknn3uDfyIayOu+DOZooQPNj+6uwaGRS6ks9RgNm18blRzGrJWhRf6lSfp76N/dQlEvtXcxL8" + + "SbncKfzjhYf8e/l1n992KQS+2dxGvxJuM4P5pEw/wAPVA38zinal+S2PqZCfHV9dbVqUOlgAsWU3DSut" + + "7WZg1MTx+CPenzvGKSDd26YJVKSw7jzcUiH6pJHk6pHU/4qwI985NyUpuN+rCjCZwf96PWAG4KVv71WF" + + "GEzg/70er+cA6y4HCSIdSSYjGujD+0r0cLKf9iD7TntF0k6d/ZjuxviH8l+o9i0nZvZXTO9Nm7Br5cTB" + + "R7qzNFBBiqiXOwNU4iOOVKmRy1fApaP08gc29jTevbrnfl3ao983vlq5ttocoBK6gITIKpmp+IZHQv3f" + + "kHnLYdsj3neOXrm32tioErqApLiqZr+IcOgi2l3105vzc0+zNn9hbd3DumlSukqMJjqmSSuiTGSCGvZk" + + "aFFtSyMA3P19if/AC2simL+dvxdqpDGEftbCUJMpKoDlIqvGKbrzrDVg0/gta/Hs99lJhB7r8iSGlP3g" + + "i5/pAr/AJcdHXs/KIPc7kpzSn1yL/vQK/5ekX8v6Rq34yd1QqHLLsfI1ICAFj9k8FYRY/2bQc/m17e7d" + + "/8AhRTj5Vz3xQytyYJ8R3FjyBG2mOWlrOt6kFpf0XmSsOleD+2Tz+MifvlQsLv2/uPwmO8X7CGtjx+df" + + "5dT397aJhdcjT/hMd2v5g254/Ov8uiF/wApaqRsX3lRcCSOv6/qh6hd0np93wmyfqtG1OLn6eoe9av3h" + + "L1h31cL7t7/AJHdLNUfPjas0SgpQdc9lVVSS1isL4RKFWUW9R+4rIxb+hJ/HvIv7rUbP7t7ey8Esrkn7" + + "NGn/CR1Pv3a0Z/dGxZRhbO4J+zRT/CR0Qf+ZPPHF8Xc5G5Iaq3ds+CEAXvIuSapIJ/A8VOxv/Ue1v8Az" + + "6sjDVfNXB0UYPkxfSey4p21KVL1Wd3fVoAFJZSsUouGseb/AE9mn3s5lk9zrWIfFHtcIP5yTH/AejH70" + + "Mqv7jW0Y+JNthB/N5T/AID0nP5X9JJB8dMlUuRorex9xPELMCFhxmBgYkkWN3Q/T+nsa/8AhPJ/zOb5E" + + "f8AiMdr/wDvVSexP9zr/lZecv8Anhi/6unoSfdO/wCVh5t/54ov+rp6Dn+bB/zLzqf/AMPPNf8AujX2A" + + "m++2R0l/O3z3YU1S1JjKH5K0mEz84k8SRbc3fR0G0s9NOxIBgpsXm5ZWH5EfsI7rzB/Vf70F3vDPpgTe" + + "wkhrSkcwWKQn5BXJP2dBbc99/q395C63Zn0wrvIRzwpHKFicn5BXJP2dChtjYp7H/lw4vakcInrKnp6o" + + "yWLi0a2fL4Coqs7i44lFz5Zq3HIin+re15/P56qbavye697Sp4CmP7W60ho6mYRhUl3FsDIvi68alHrd" + + "MFlsXck3tYfQezf73GwGw562ffkSkO4WIBPrJbtpb/qm8XRp96bYzY86bTvaLSK+swCfWSBtLf8YaPpM" + + "fytt7jN9Mbr2TNIGqtj7xkqIY9RLJid00i1tKdJ/SrZOgreBx+fz7Nb87CnxQ/k79A/HuAnH7j7Mg2Bh" + + "s7RRosE5mqBP27v2SoiYhysW5fFTykXOudQeD7H/utT2/8Au4co8nr2Xt8LdHAwamt3PUfKSin5sOhz7" + + "m05G+79yryovZd3ogRxwNTW6nqP+alFPzI6A74yg95fzAO0u15B91iNmy7pyGMqHYyx+OLx7C2wsTj0h" + + "nw/kmQcDTGf6exl/kK/9kR9w/8Aie99f++s6u9iX7pv/TruY/8ApbT/APaLa9CH7r//AE7bf/8ApaTf9" + + "o1t0Hv8z7/spHYH/iMNs/8Avbb096jmT/4uWQ/6jav/AK3ye+eM/wDbTf6Y/wCHrAyX+1l/0x/w9XxUf" + + "/AOk/6hoP8ArUvuF7a6b6k+/wD/0S3/AMm35K4rvT4gbU2TVZCN9/dDpF1zuTHSShqx9vUwll2JnI42Z" + + "pDj6rb4WiD/APKzj5hYALfqF92zna35q9udv2ySYHd9pAtpFJz4YqYH/wBKY+yv8UbD066Q/d75xg5m5" + + "AsdteUHdNrpbyLXPhjML/6Up2V/ijb5dXdfzBunq7rPv3ObjgpGXa/Z7Pu7D1aRkU65WYom5sa7hQgq4" + + "MrepK/8caqM/UmxZf5p/wDKc3T8iN5VPyJ+OKYmTsnJUVHTdidfZKtpsNFvOXF00VDj9y7eytWYsdT7j" + + "THQRU9VT1UkMNVFAkiSLMHWcDe/f3fb/nLcn5y5LEZ3t1AuLdmCCYqAqyxuaKJNICsrFVYKCCGqGBnvd" + + "7FX3Nu4PzbygIzvDqBPAxCCYqAqyRsaKJNICsrEBgoIIaoYZPhJ86MJ1Nt6Hqbt1q5Nn0dTUTbT3VR00" + + "2QfbyVsz1NVh8tQwB6ubENVyvLBLAkkkLyMrIYyrR69OR/l/fNrF5cYOr+LndRr2k8Smj2NmMlQMxNgV" + + "y+Ogq8S0ZP9sT6Lc3t7w8m9ofdCC4+lk5D3Pxq0xA7L/vagp+eqnWKEvtX7kQXH00nJO4+LWmIXZf8Ae" + + "1BX89VOrXaT5UfHGtoDkoO6uuhShNZ+43Lj6OqC2vY0FXJBXh/9pMWr/D3bp/Lo/k09nDsfa3dHyzwNP" + + "s3aWzcjRbj231VVVlDkdybs3BjKpKrFPu2mopKygwu2KKqhWaakllarrWQRSRRwszPkR7M/dq3399WHM" + + "3uDaC2262dZI7UsrSSyKap4wXUqRKQCUJ1vTSVVSSZ69o/u9b1+97LmLnu1FvYW7iSO2JVpJXU1XxQKq" + + "kYIqVJ1PTSVCkkkM+W38wnZh2jmuu+ispLuDPbhpKnEZfe8NPU0mHwWKrIGhrlwM1StPU5HNVMEhjjnR" + + "BBTBi6u8gULfT84vk7gPiV8b+wO18nW00e4kxdTt/rnEyuvnz3YGapp6fbtHBBcPPT0M962r0/5uipZW" + + "+oAOWfunzzZ+3vJW8cwTyqLwRmO3Q8ZLhwRGAPMKe9/RFY9ZQ+5XOdryJyhuu+zSAXYQpbqeLzuCIwB5" + + "hT3v6IrHqsD419MZXvbt7auxqOnmfEtWw5XdtcinxYzauOmimy1RLJYrHLUxWpoAf1VEyL+Tb59VXV1V" + + "fVVNdW1E1XW1tRNV1dVUSNLPU1VTI01RUTyuS8k00rlmYkksST75AySPNI8srlpWJJJySSakk+ZJyeuV" + + "Ekjyu8sjlpGJJJySTkkn1J62qoIIaWCGmpoo4KenijgggiUJFDDCgjiijRQFSONFAAHAA9x/dOqdZffv" + + "fuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69172b7+X/8A9lu/FP8A8Tv1v" + + "/70tD7kX2i/6ejyB/0trb/q4vQ+9q/+nkcj/wDSzt/+ri9AH8p/+yb+8P8AxGO7/wD3TVXu8D/hRL/xZ" + + "/i3/wBrPtP/ANxdk+8pPvk/7jch/wCnuv8ABD1kn97T/cfkn/T3P+CHqtv+Uz/xcO6/+oPZX/W7cXvWB" + + "94LdYXdXQe7Qf5N/wD28H6U/wCoTsD/AN9/uT3Ov3bf+nwcsf6W4/7R5Opq+73/ANPX5c/0s/8A1Yk6J" + + "d/ME/7JT7G/5b7V/wDeqw/sf/5+v/ZZuz//ABAuz/8A3sN/+xf97f8A6eXtv/Sph/6vXHQq+9L/ANPD2" + + "7/pVxf9XZ+gs/lcf9k85/8A8Shn/wD3QbW90f8AvFvrGvqyT3737r3XvdxH8jH/ALLxw/8A4izsb/3Fx" + + "vvI/wC6t/09i2/54Ln/AAL1kD92f/p59v8A88Nx/gXqv/8AmW/9kxZD/wAPbaP/AFvrPcP+eJ/2Xxun/" + + "wARx1t/7pZPbf3pf+ntX/8AzxW3/HD0395X/p6N7/zx2/8Axw9SP5bH/ZLuE/8ADu3h/wC7FPdQfvHTq" + + "Auj8e/e/de6972U/wDhOv8A8X/5V/8Aan6i/wDc3sL3m19zX/cvn7/mnaf8euOsw/ulf7l88f8ANO1/w" + + "z9U9/zaP+LV0h/2sN+f+421fdLPzq/7LM+UH/icex//AHpsh7xl91v+nlc9f9LS4/6ut1jr7m/9PD50/" + + "wCllcf9XG6sT+M3/ZPfS/8A4jbaX/unpfZUvcf9Abocffvfuvde97S//Cebs2iqtj/ILp2epVcnh9z7b" + + "7GxtI7qHnxuexj7cy01PGW1PHQ1mBpBKQLKalLn1D3nl9zvfIpNr5v5bd/14p47lR6rIvhuQP6JjSvpq" + + "Hr1m190/eY323mvl9n/AFo5o7hR6q6+GxH2FFr/AKYevVJ3817ZtRDuTqrsCKEmjyGGzG0aydVOmOsxd" + + "YuXoI5XAsHqafKT6ATyIWt9D7oj+efUGT6N+X3fuwshRS0dInYu4tybbMkbJHVbS3hXzbn2zUU7MAs0Y" + + "xOUjiZluoljdfqpHvFH3Z5cn5V9xebtpmjKxi9kkjxxhmYyxEevYwB+YI8usYvdDYJuWufuadrljKxi7" + + "kkj+cUrGSMj17WA+0EeXVm/xh39RdldB9XbopKhKidtpYnD5fS6s0Oe2/Sx4XMxSgEmNzX0TuAedDqfo" + + "R7L11rsLP8AafYWyettrUstbuLfe6cHtTD08MTyu1dnMjT4+F2RAW8MBn8kjfRY1LGwBPsH7JtN3v28b" + + "XslhGWvLudIkAFe52Cj8hWp9ACegps+13W97ttuz2SFru6nSJAM9zsFH5CtT6DoV94boxeydqbj3hmp4" + + "6bE7ZwmSzlfNI6oopsbSS1UihmIHklEelR9WYgDk+9qn+fHuvE7D+IXTnT9FMiVe5ux8IlBRXAdtt9cb" + + "TyMVbUgC11pq/L42O1gP3vxa3vPn72G4W+0+3XLfLkbUknvU0r/AMLtomDH8meMfn1m/wDeevoNr5B5e" + + "5fjb9Sa8TSP+F28TAn8maMfn1SF/LEwddufvvsHf9RGzU+G2hkmqqix0rl93Z2kenhN72M1LQVjfW/7f" + + "+PvVy6O363VndHUvZQ1adg9kbJ3hMqnSZabbu48dlaqAm49NRTUro3I4Y+8EOVt2Ow8zcvb35Wl7BMfm" + + "I5Fcj8wCOsKeWt0OycxbFvA/wCIt5DKfmI5FYj8wCOrq+ytrje3Xe+tnG1907Q3HgI2IuEmy2Iq6GCUC" + + "xu0U06sP8R72jP5+HXs2+/jD1F3Ht1EyuK6/wB+oa/I0gM0UW1+yMNDTUeVE0asooKjM4zHRByQpepjH" + + "JYe87vvbbO27ci8u8yWYElvZ3fcwyBFcoAGr/CXWMV4VYevWa33o9pbc+S9h5gtBrgtLruYZAjuEADV/" + + "hLrGK+rD16pV/ld7rj2x3Pv3r/LM1DXbq2uwpaSciN3zW0MhJNUUWhiCaqLH1lW5UAkLCx/B96kPvnn1" + + "gd1e/72Cf8AhPp1fkMt3v3J2/LSS/wXZfWcOyaesaM/btnt77gxeTEUUhsDUU+J2lNrAvpScX/UPeX33" + + "QNimuObOZOY2jP0trYiAN5eJPIrUB9QkRr6Bvn1lX91PZZZ+Z+YN/aM/T21mIQfLXM6tQH1CxGvyb59V" + + "V/zVt60tB1j19sFJ0/iO4t4ybjlpww8oxe28VW0RkdPqIpa7PR6Sfq0Zt9D7JB/N07Jpeyvnx3dUY+da" + + "nHbLqtv9cUsqOXX7jZ2AoKDOxD8L9vuZq2MgcErf8+4u+8Rvce9+7fNDwvqhtmjtgfnDGqyD8pdY/LqN" + + "vfreE3j3S5keJqw27R24PziRVcflJrH5dGS+Bmz5tnfF3reKqiMNXuKDK7unRl0nxbgylVVYyQ/lvLhh" + + "TOCfw1vx7Pn/wAJ5P8Amc3yI/8AEY7X/wDeqk9yz9zr/lZecv8Anhi/6unqUPunf8rDzb/zxRf9XT0WD" + + "+bB/wAy86n/APDzzX/ujX3Wb/Mrlkg+fHydmhdo5Ye0q2WKRDZ45I6HGujqRyGVgCD/AF9wd72sye7fP" + + "LKaML9iPt0r1DXvExX3R5zZTRhfMR+xejkfDtEk+LvTMcih45NlU6OjC6sj1NYrKwP1DA2PvY1+QfU5/" + + "mF/Fz+Xd2bRUJzVVN2d0zlt9N4lqvtdpbkx8eJ7bSsdQx8NHmcIiTC9tUfJNucz+cOX/wDXh5E9m98ii" + + "8VzfWTz4rSKRdF3q+SugDfMdZc817F/rscle0u8xxeI5vbRpsVpFIum6r8g6AH5jqo7qnfI+KPdfyy2b" + + "U1Ix0MezOw6HbI1mDz53D1T1+xDTqSBrqMfkmaM2vpf/Hitf/hQD2yNw/IHqjpyhqteP6w68n3BkKSN0" + + "8NNuHsDIhmieNDeOePb+3KFwCBaOdSOD7hP73nMH1nN/L/LcUlYbCzMjAcBJcNwp5Hw44z9jD16h/71O" + + "+/V81bFy/G9YrK0MjDyEk7cPt8OND9hHr0cH+VhsX+E9V757AqYNNVvTdkeKpJ3VvJNitq0hAdXbh4m"; + resourceString += "yuXqlJH9uMj8ez8fyFf+yI+4f/E976/99Z1d7lv7pv8A067mP/pbT/8AaLa9Sj91/wD6dtv/AP0tJv8At" + + "Gtuiu/zPv8AspHYH/iMNs/+9tvT3qOZP/i5ZD/qNq/+t8nvnjP/AG03+mP+HrAyX+1l/wBMf8PV8VH/A" + + "MA6T/qGg/61L7he2um+pPv/0tIj4wfKHtj4k9p4ztbqXMLRZSnjOPzuCr1lqNubw2/NLHLWbe3Hj45Yj" + + "VUM7RK8boyT00yrLC6SKD7GXIvPfMHt5v0G/wDL1zpnUaZI2qY5oyamORaiqmlQQQysAykEV6FvJfOu+" + + "8h73Dvmw3GmYDS6NmOWMmpjkXFVNKgijKaMpBHW8/3P0tsbvfZNbsffePaoopW+6xmTpSkWXwGVjR0p8" + + "tiKpkfw1MQcqysGimjLJIrKSPe1P0D/ADyviP2VicdT9uybh6H3i8UMeRpczispuzZ0lYY08rYndG2cd" + + "WVa0hl1WNfQ0WhbAljz7z45R+9R7eb3bwpzEZtp3Igag6NLDq89EsSk0r/vyNKep6zf5W+8vyHvEESb+" + + "Zdr3Cg1B1aWKvnpkjUmlf40Snz6pE7S/lqd8bPrquXYSYrs7b6vI9JPj66iwe4FpwzFBXYXM1dPAagJa" + + "4pamo1G9gPZzl/mP/BRqX7wfKXqIQ+My6G3JGlVpW9x9i8K13k44Tx6z+B7kse9PtSY/E/r5t2mlf7TP" + + "+801flSvUiD3e9sinif12sNNK/2mf2Ur+VK9F4PxE+TQn+3PSe/fJrCahh2aC5tz9yshptHP6tekf19l" + + "S7v/nc/C7rHG1qdf5zcPeW6YomFHiNm4TJ4XBNVceNMjuzdVBi6OGlN7tJRQ5BlAPoJ49gDmn70PtnsU" + + "Mo2i6m3W/AwkKMkdfLVLKqgD5oJD8ugNzJ95H262WGQbVcy7negYSJGRK+WqWVVAHzQSfZ0OPW/8t/5E" + + "bzrKZt1Y3E9a4R3U1FfuHJUWRyYg51mkwWEqq2oecW4SokpVJP6gOferh8x/m13L819/Qbu7NrabG4DB" + + "CrptjdfYNpk2zs6grHjaoFMsxM+TzNeII/u6+e805RVURwpHEmCHuT7ocy+527puO+SqlpFUQW6V8KFT" + + "xpXLO1BrkbuagA0qFUYUe4XuRzD7j7ot/vMgS1iqIYEr4cSnjSuWdqDU7ZagAooCi6z4+/HDr3457Xlw" + + "OzaeasymTME25d1ZIRtmc/VQKwi8xjAjo8fTGR/BSxWjiDEkvIzuxPfccdR/wBD9797917r3v3v3Xuve" + + "/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de697NP8H9wYLanzB+NO5tz5jG7f29g" + + "u6Ng5TNZvMVkGPxeKxtHuCjmq67IV1S8dPSUlNEhZ5HYKqi5NvY99rby12/3H5Ivr65SGzi3O3Z3chVR" + + "RIpLMxwABkk4HQ29trq2sef+Try9uEitItxgZ3chVVRICWZjgADiTw6BP5JYrJ5zoHuLDYagrMrlsn13" + + "umhx2NoKeSqra6sqMVURwU1LTQq8s880jAKqgkk2Hu4j+fD3X0/27ifjenVvZ+xOw5MHkeyXzMezdz4n" + + "cT4pK6m2etE9eMXVVP2q1bU0oj121GNrfT3kf8Aew5n5c5it+ShsO+2l4YnudYhlSTTqENNWkmlaGleN" + + "D1kD957mPl/foOUBsm9Wt2Y3uNfgyLJpqIqatJNK0NK8aHqv7+WL1zv/Ydf2829tl7n2mmSpNoDHvuHC" + + "1+JWtanmzxqFpTWwwmdoBKhfTfSHH9feuh7wz6xI6tt92NfyoN7bP68+c/UW7N+bowOzdsY2l3yuQ3Bu" + + "XKUmGw9E1XsfP0lKtTkK6WGmgapqpkjTUw1OwH59zP93/dNt2f3U5d3Ddr+K2sUWfVJKwRFrBIBVmIAq" + + "SAKniepd9jNy2/afczYL/dL2K3skWbVJIwRBWFwKsxAFSQB8z0Uj5y7c3Buz40b9wW2MLlNw5qsn20aX" + + "FYeinyGQqBBuXFTztDSUySTSCGCNnawNlUn3si/IvYn8p35V76oux+6u4eo9x7sx+3aLatLX0PftPgYk" + + "wuOrclkKSmajw+56Omd46rLTt5Cpch7E2A95q857T937n7dYt65n5j26bcEhWIMt+IxoVmYCiSgcXbNK" + + "56y+5u2z2L543OPd+Y+YLCa+SFYgy3wQaFLMBRJAOLNmlc9VBdSbm+c/SG2qnaPXXX+/cRg6vL1Ocmpq" + + "nq2fKSNkaumo6SeUVFfhp5lV4KGIaQdI03tyfYCf7JZ/I//AOfhdX/+lMV3/wBmXsJf62X3W/8Ao8WH/" + + "cyb/rd0F/8AW6+7Z/0drL/uYH/rb0KP+zE/zJP+eT3r/wCicg/+x/3VD/NK6Q+CfUOE6Yn+G+4tq52vz" + + "uV3zDv4bb7QqOxHpqPH0m1n28auKbNZYYpJJqys0MBH5iGHOjjH/wB+eVvanl215Zf22vLeWaWScXHh3" + + "RuKBRF4dQXfRkvQ4rnjTqDPezlr2y2C25df2+u4JZZXmE/h3JnoFEXh1BdtOS9OFc8adHk+FHZHya37k" + + "uw4vkFic5jKXGUO2pNrnMbLj2ms1RVz5tct4HTHUJrmSOnp9QJbx3H01cpH+TV2FsTrH5p4rdPYu8Nt7" + + "G23F1tv6ikzu68xQ4LEpWVdNjxS0rV+Rmp6ZaioKNoQtdrG3st+7XvG07H7m29/vO5QWtkLK4XxJXVE1" + + "ELQamIFT5CuekH3et22zZfcWC93fcIbazFnONcrqi1IWg1MQKnyHT//ADCNqbn3n8da7CbS2/mNy5h94" + + "bXqVxmDx9Tk65qenmqjPOKWkjlmMUQYamtYX597BXeWwP5RXyQ3/V9n9xdjdIbr3tXY3GYmpzA79nwwk" + + "oMPAabHw/Y4Pe2OoFMEJtqEQZvySfeX/NW0fd3513eTfeZN52u43RkVC/15TtQUUaUmVcDzpU+fWVfM2" + + "1ewvN+6yb1zBu+2z7kyKpf64p2oKKNKTKuB8q+vVVXWu6fnp1DtaDZfX+0eysHtymrKyvhoD1bFkdFVX" + + "yCaqk+5ye26yqPkkF7F7D8Aewf/ANlH/kcf89D0j/6Uln//ALYnsOf63n3Wf+Uza/8AuZSf9tHQf/qF9" + + "2r/AJS9t/7mD/8AW/pff6eP5lX/ADqeyf8A0T+L/wDsR91EfzVuofgr1bRdMP8ADXI7Gr6jM1O9F36Nn" + + "dl5HsFo4aKLbpwBr1rtxZ4YwPJUVQjKePy2a99I947e/vLntVsMXLJ9tZrV3kabx/BuWuKBRH4erVJJp" + + "4vSlK59OoF98Ng9stkj5dPt7NbM8jTeP4Vw0+B4ejVqkfTxanCufTo+vwf378md61PYa/ISk3NTRY+Hb" + + "rbYO4dnUm1FeSofLDKClNNicWawqsMGsNr0XFrXNx//AJDncnUvUWa+S03afZWyOu4s5i+rY8K+89y4r" + + "bq5V6Cr301cuPbKVNMtU1GKuLyBCSnlW/19i/7p3MvL3Ltzzu2/b3a2ayx2oTxpEj16TPq06iK6aitOF" + + "R69Cn7sHMOxbBc84tve8W1osqWwTxpFj1aTNq06iK0qK04VHQW/zO+vt979xvTseydn7k3a+Nrt6vkV2" + + "9h67LmhWqg2yKY1QooZjAKgwPo1W1aDb6e7CewfjN/Jj7P3zu3sXePZ3VeQ3XvfcGU3PuKug+RstBDV5" + + "jMVclbX1EVFR7thpaVJaiVmCRqqrewFvcw7xyP92nfd13Dedy3ywfcLqZpZGG4lQXc6mIUSgCpPACnUr" + + "7ryb93jetzv933DerF765laSQi/oC7mrEASgCpPAY6KjtXuP+YbsvbWC2lt/Ze+KTB7bxVFhsTTSdRrU" + + "yQY/HwJT0sT1E+CkmmZIkALMSxtyfaQ/wBks/kf/wDPwur/AP0piu/+zL2Xf62X3W/+jxYf9zJv+t3SD" + + "/W6+7Z/0drL/uYH/rb0/wD+zE/zJP8Ank96/wDonIP/ALH/AHr3/wAwLYfx/wCtvk5u7afxjyeIy/UNF" + + "hdoz4Suwe65N646TI1u3qGqzqRbglrcg9S8WVkkVk8reJhp4tb3h77vbTyhsnPO47fyNPHJy6sUJRkl8" + + "ZdTRqXpIWatGrUVNOHWKXurtfKuz8539hyZNHJsCxxFGSXxl1GNS9Hq1aNWorjh1az8V9z9qbw6ZwOd7" + + "mo6+g37U5HPRZKmyWDTblWtJT5aphxjSYpKelWFXokQq2gaxz+fbF8I/lbuL4b/ACC2p3Fh6SfMYSJJ9" + + "u792zDOKdtzbHzElP8AxnHQyORCmRpJKaGsomk/bWspYtfo1Apfa/n+89tucNv5ktozJaisc8QNPFgcj" + + "Wo8tQoHSuNarXFekvtvzzd+3vNdjzBboZLYVjnjBp4kL01qPLUKB0rjWq1xXpz+SHR2J+QfVWc6/r54s" + + "fkZGiy218zJF5Rhty49Jf4fVyIo8jUk6TSU9QF9Rp5n0+q3va77F6o/l5/zZNqbY3lTbzxmU3dj8ZHSY" + + "zcOztx47bHbW2qOf/KpNsbp23k4auolp6Osq2ZYa6imijmZ2pZdMjtJ0A3nl/2d+8Ft9juSbnHJuKR0W" + + "SGRYruIHJiljYEkAn4XRgCSY2oxJzm3bYvaf31sbLcE3FHv0SiyRSLHdRg58OWNgTQE8HQgEko1CSaNt" + + "pb5+V/wWzua29Nt6tosDVVjT1uKz+Jq8zsTMVEf7KZnCZeikghSaop4ADJTVMbvGFWZNSKFR/VfxB/l1" + + "/ywqyu7n3f2RBLvbDUNYmK3N2tunCZXdGJhqqWSKqp9k7L29jcbNPmcjSytD5KehqKxo5DGjIjuGLdg9" + + "ufZr2Lkl5m3Hegd0jQ6JbqVHlQEUIghjVSXYGlVRnoaAgE1L9j5B9pPZeSXmK/3cHco1OmS5lRpFBFCI" + + "YY1Ul2GKqjPQ0BAJq/7379+WnzPp6brzAbRlTbmQqadq7DbHwmSosLXSQzI8Eu49xZWsrEix9JMgk0S1" + + "MVOHUMwZlUrrcfzFvmxkvm53tNvSjo67B9abPoJNrdYbcr2j+9p8IKp6muz+XjhZ4I89uartNOiM6wQx" + + "wQa5PD5Hwq95fc+f3Q5rbc4o3i2S2TwrWNviCVq0jgYEkpywFdKhUqdNTiB7t+483uRzO24xxtFs1uvh" + + "20bcQlas70wHkOSBXSAq1Ompt9+JXxyo/jf1lHt2oqKbJbxz9Umb3pl6UN9vLkjCsNNi6BpAsj4zDU94" + + "42YKZZGkl0r5NCkE9xH1FnRpPe0f/Lh/mNdB9vfH+m+GfzMyW3cbPj9uDr/AAma39P4Nl9kbD8SUmIwe" + + "bztS8VNt/dW36YR00M080AnSCCaGcVake87/Zb3n5S5i5QT209y54UZIfp0e4NIbmClER5DQRyxiiqWK" + + "6gqMreID1mv7Q+7vK2/8qp7ee4c0KMsPgI85pDcQcER3NAkqCigkrUKrK3iA9Up/Lv4j9o7C7Um+Qvx6" + + "o8tVxVWXO6sjjtrxeTcW0Nz62nr8ljsZCrzZXCZWYtNJHFHKY2lkjkjMBB9iDkv5D/w/wBz5Kfd+0e9+" + + "x8XsGqkarjx+Lzex9wY+jpm0OIMfu2qxdRekjRvS9QtTJYgl2+pOJvuoe3N9O247dzXex7QxqFV4JFA9" + + "FlKnHzbUfUno1m+7DyBezNf2HM94m1sahVeGRQPRZSpx6FtR+Z6StJ/M579w1HFgc91jtCt3RCggarrc" + + "buXFVVRMupTJVYKGti/fZhysRhS4NlHsQe2/lz8K/5W3x8yfS3xiyG293doSw5GXA7WwWbg3jWPvHJUs" + + "VLJvrtjc1HJLSR/ZCKJmpC8dROsKU1PBDAC8JxzD7ie2XsPyfPyzyLNBcb6QxjijcTHxmAHj3coqO2gO" + + "ioZgoRFVcqbb9z77deyfKk3LvJcsNxvRDFI0cSnxWAHjXUgqMUHbUMwARFVcqldh9DfIr5r9rUfYnc9J" + + "mMDstJKOPKZrJ42Xb9Ou36OZ502zsbDVCxzt9zrdROFeKJpGmlkkkIWTUBzeayu5Mzltw52uqMpm89k6" + + "7M5jJ1b+SqyGUydVLW19dUvYa56qqneRzYXZj75z3VzcXtzcXl3KZLqV2d2PFmYlmY/MkknrAO5uJ7y4" + + "nu7mUvcyuzux4szElifmSST1fnjsdQ4jH0OJxlNFRY3GUdNj8fRwLpgpKKjhSnpaaFbnTFBBGqqP6D3e" + + "P8AyJ+2+rupO2O+Ml2j2Hs3r2gy3Xe26LF1m8txYvbtNkauHcsk81NRTZSppo6meKEhmRSWCm9re8pvu" + + "pcw7Dy9zBzZNv28W1nDJZxqpmkWMMRLUhSxAJAzQdZLfdk37ZNh33mebe92t7SKS0jCmWRYwxElSAWIq" + + "QM0HVa/8zTYm9d+bF6xo9lbT3DuuqoN2Zeprafb2JrctNSU8mHWKOaojooZnijeT0hmABPHuvD+YXufb" + + "m8/mt8jd07SzmK3LtvN9i11bh89g66nyeJylI9DQItTQV9JJLTVUBdCA6MVJB59w57w31lufudzpf7dd" + + "Rz2Ut6zJIjBkYaVyrCoI+Y6iX3XvbTcfcbm69sLmOazku2KOjBlYUXKsKgj5jo2PxRw2X298dOo8JnsZ" + + "XYfMY3aVNTZDF5Kmlo6+iqFqapjDVUs6pNBKFYHSwBsfewd/Jp+ZXTW3PiBB1n2525sPYWc6239ujEYO" + + "g3tu3C7fqq3a+ekp92UVVjocpWU0lRRxZfNV0OpbhWjINuL5gfdq9yuWrL25TY+YuYrS0urK7lRFnlSM" + + "tFJSUFQxFVDu4x5jrK37vXuFy9Z8gLs2/b9a2tzZ3UiIs0qRkxvSUFQxFRqdx9o6qo/mE/HvsLL9+y7x" + + "2HsPc+6Mbu/a+Er8lVbbwWRysNNmsYkuDqIauSip5liqHoMdTSWaxKtf+vvXa+dfcVP338uu+u0KCvXJ" + + "4TN7+yeO2zXRzLUU9VtXayQbU21U0kqEo9JVYXCwSxkcFXB/PvDf3W5kTm33E5t32KXXay3bLE1agxRU" + + "iiIPoURSPkesS/c3mBeaOfeaN6il120l0yxtWoMUVIoyD6FEBH29WzfGXr+Xq/oXq/ZdVTGjyOO2tR1e" + + "ZpmjMUsObzbSZzMQzo1mWeHI5GRHB+hX3fB/JS7+6O6t+H3am2uyu3uudhbhyPdu88pQ4Tdu7sJgcpVY" + + "yp6263oqbIU9DkaunqJqOorKKaJHVSGkhdRyp95X/dj5u5V2H2436x3vmKytLx90mZUmmSNiptrZQwVi" + + "CVJVgCPMEeXWT33cuauWtk5A3uz3jf7O1u33KZlSWVEYqbe3AYKxBIJBAI8wR5dVi/zF+rOyt69/wCyc" + + "xs/YW7t0Ymk6527R1OSwOByOUooKyHeG7qmaklqaSCWGOoip6iN2ViCFkU/Q+9XfIMr19c6MGR6ypZWU" + + "3VlaZyrAj6gg+8EpiDNKQcaj/h6wqloZZCDjUf8PV09IpWlplYFWWnhVgRYgiNQQQfoQfcP23031I9//" + + "9P5/wD7917rf49+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuv" + + "de9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173" + + "737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfu" + + "vde98kd42DxuyMPoyMVYf6xUgj3sEqag0PWwSDUGh66ZVcaWVWB+oYAj/bG499vI8jF5HeRj9WdizH/A" + + "FyxJ9+JLGrEk9eJJNSanrpVVBpRVVf6KAo5/wABYe+HvXWuuXv3v3Xuve/e/de697yrUTohjWaVYze8a" + + "yOEN/rdQQvPuwdwNIY6ft6sHYCgY064GKJm1mOMv/qiiluPp6iL8e8XuvVeufv3v3Xuve/e/de697979" + + "17r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de697/9T5/wD7917rf49+9+69173737r3Xvfvfuvde" + + "9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3XvcqhignraOCql8FNNVU" + + "8VRNcL4YJJUSWXUwKjxxkm5BHHvR4HragEgE4r14/Q+7TR8WvgjYf8AOUlR9B/zFuyPrbng4G49l31N5" + + "/yj/wAj0JP3ds3/AEcf5r/m6g+eq/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj17" + + "93bN/0cf+NL/m6956r/AI4f8mt/xX37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am" + + "6956r/jh/ya3/Fffv8AZWfgj/3lLUf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/" + + "Fffv9lZ+CP/AHlLUf8AoW7H/wDrD799Tef8o/8AI9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+C" + + "P8A3lLUf+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7" + + "H/+sPv31N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8" + + "o/8j1793bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3" + + "/Rx/wCNL/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/APrD799Tef8AKP8AyPXv3ds3/Rx/40v+b" + + "r3nqv8Ajh/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8" + + "V9+/wBlZ+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44f8AJrf8V9+/2Vn4I/8Ae" + + "UtR/wChbsf/AOsPv31N5/yj/wAj1793bN/0cf8AjS/5uveeq/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/" + + "wD6w+/fU3n/ACj/AMj1793bN/0cf+NL/m6956r/AI4f8mt/xX37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP" + + "/I9e/d2zf8ARx/40v8Am6956r/jh/ya3/Fffv8AZWfgj/3lLUf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx" + + "/40v+br3nqv+OH/ACa3/Fffv9lZ+CP/AHlLUf8AoW7H/wDrD799Tef8o/8AI9e/d2zf9HH/AI0v+br3n" + + "qv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf" + + "8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX37/AGVn4I/95" + + "S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6" + + "w+/fU3n/KP/ACPXv3ds3/Rx/wCNL/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/APrD799Tef8AK" + + "P8AyPXv3ds3/Rx/40v+br3nqv8Ajh/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8j1793bN/wBHH" + + "/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44" + + "f8AJrf8V9+/2Vn4I/8AeUtR/wChbsf/AOsPv31N5/yj/wAj1793bN/0cf8AjS/5uveeq/44f8mt/wAV9" + + "+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj1793bN/0cf+NL/m6956r/AI4f8mt/xX37/ZWfgj/3l" + + "LUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am6956r/jh/ya3/Fffv8AZWfgj/3lLUf+hbsf/wCsP" + + "v31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/Fffv9lZ+CP/AHlLUf8AoW7H/wDrD799Tef8o/8AI" + + "9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9H" + + "H/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/4" + + "4f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/wAmt/xX3hb4u" + + "fBUVEMY+UM5ieGoeST+9myTpkjelWFLjA6V1rI555Onj6H3v6m7p/uP/I9a/d2zVA/eH/Gl/wA3XvPVf" + + "8cP+TW/x/x9/wD/2Qs="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74, + this.label50, + this.label49, + this.label48, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43}); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label75, + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 460.0416F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label72, + this.label71, + this.label70, + this.label69, + this.label68, + this.label67, + this.label64, + this.label63, + this.label62, + this.label55, + this.label54, + this.label53, + this.label52, + this.label51, + this.subreport1}); + this.ReportFooter.HeightF = 304.8751F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(316.6665F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(28.3334F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:#,###0.000}")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(672.2083F, 2F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV", "{0:#,###0.000}")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(600F, 2F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:#,###0.000}")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(440F, 2F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(80F, 20F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceDEV", "{0:#,###0.000}")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(345F, 1.999982F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(79.58334F, 20F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(280F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(36.66656F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(90F, 2F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(190F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 87.5F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 178.6667F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 258.6667F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 238.6667F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 218.6667F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 198.6667F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 178.6667F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 158.6667F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 410.8333F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 365.8333F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 282.5F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465F, 127.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(312F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465F, 107.5F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(312F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585F, 178.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(192F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 258.6667F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 238.6667F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 218.6667F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 198.6667F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 178.6667F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 158.6667F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 127.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 107.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(168.75F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(608.25F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Invoice / Számla"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(138.5417F, 54.58333F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 87.5F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 87.5F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(450F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(350F, 3F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label32, + this.label31, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.row_ShortName")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(257.75F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(182.25F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(715.9167F, 20.00001F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label33.SizeF = new System.Drawing.SizeF(44.79169F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(568F, 20F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Currency / Devizanem:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 20F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label31.SizeF = new System.Drawing.SizeF(242.75F, 20.00003F); + this.label31.StylePriority.UseBorders = false; + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Settled period / Számlázási időszak:"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 147.7917F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 122.7917F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 97.79167F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 283.625F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 268.6251F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 253.6251F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "A 3C Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet 1.§ " + + "(6) bekezdés szerinti előírásainak ."; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 147.7917F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0.000}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label64.Summary = summary1; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 122.7917F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0.000}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 97.79167F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0.000}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label62.Summary = summary3; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 147.7917F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 122.7917F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 97.79167F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 45.00001F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 192.6667F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA (devizás)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül}); + this.DisplayName = "C3C kimenő számla (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla - Domain.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla - Domain.repx new file mode 100644 index 0000000..e085b5c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla - Domain.repx @@ -0,0 +1,2523 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label78; + private DevExpress.XtraReports.UI.XRLabel label77; + private DevExpress.XtraReports.UI.XRLabel label76; + private DevExpress.XtraReports.UI.XRLabel label73; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private DevExpress.XtraReports.UI.CalculatedField Egységár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_összeg; + private DevExpress.XtraReports.UI.CalculatedField ÁFA_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bizonylatszám; + private DevExpress.XtraReports.UI.CalculatedField Sztorno_számlaszám; + private DevExpress.XtraReports.UI.CalculatedField Számla_megnevezés; + private DevExpress.XtraReports.UI.CalculatedField Példányszám; + private DevExpress.XtraReports.UI.CalculatedField Fizetési_mód; + private DevExpress.XtraReports.UI.CalculatedField Mennyiségegység; + private DevExpress.XtraReports.UI.CalculatedField Adószám; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAJAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpRSqOsVXkhuld1RwbeX8AAAAAAAAAtwAAAJAAAAAdAQAAVAAAACsAAAA2AQAA6AAAAMECAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJEEAZADzAHMAegDhAG0ALgBFAHgAc" + + "AByAGUAcwBzAGkAbwBuAOUAAAAmRABhAHQAYQBTAG8AdQByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQDaA" + + "QAADEYAaQBsAHQAZQByAPoBAAAiRgBpAGwAdABlAHIARABlAHMAYwByAGkAcAB0AGkAbwBuAPwBAAAsR" + + "gBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByAGUAdgBpAGUAdwD+AQAAMFAAYQByAGEAbQBlA" + + "HQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAbQBlAAACAAAUUgBlAHAAbwByAHQATgBhAG0AZ" + + "QABAgAAInAAaQBjAHQAdQByAGUAQgBvAHgAMQAuAEkAbQBhAGcAZQAfAgAAAeIBUHJpdmF0ZSBTdWIgc" + + "3VicmVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c" + + "3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlc" + + "G9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iSW52b2ljZUhlYWRlci5PaWQ9JyIgJiBsYWJlb" + + "Dc1LlRleHQuVG9TdHJpbmcgJiAiJyINCkVuZCBTdWINCgHyAUlpZihbSW52b2ljZUhlYWRlci5DdXJyZ" + + "W5jeU5hbWUuU2hvcnROYW1lXT0nSFVGJyxbSW52b2ljZUhlYWRlci5TYXZlZF9DdXN0b21lcnNfVkFUT" + + "nVtYmVyXSAgLGlpZihpc251bGwoW0ludm9pY2VIZWFkZXIuU2F2ZWRfQ3VzdG9tZXJzX1ZBVE51bWJlc" + + "kVVXSk9VHJ1ZSxbSW52b2ljZUhlYWRlci5TYXZlZF9DdXN0b21lcnNfVkFUTnVtYmVyXSxbSW52b2ljZ" + + "UhlYWRlci5TYXZlZF9DdXN0b21lcnNfVkFUTnVtYmVyRVVdKSApAR5TSVNCdXNpbmVzcy5Nb2R1bGUuS" + + "W52b2ljZVJvd3MBAAEAAQAAARxDM0Mga2ltZW7FkSBzesOhbWxhIC0gRG9tYWluQAABAAAA/////wEAA" + + "AAAAAAADAIAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsL" + + "CBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAVU3lzdGVtLkRyYXdpbmcuQml0bWFwA" + + "QAAAAREYXRhBwICAAAACQMAAAAPAwAAAKOlAAAC/9j/4AAQSkZJRgABAQEBLAEsAAD/4Q2wRXhpZgAAT" + + "U0AKgAAAAgABwESAAMAAAABAAEAAAEaAAUAAAABAAAAYgEbAAUAAAABAAAAagEoAAMAAAABAAIAAAExA" + + "AIAAAAbAAAAcgEyAAIAAAAUAAAAjodpAAQAAAABAAAAogAAAM4BLAAAAAEAAAEsAAAAAQAAQWRvYmUgU" + + "GhvdG9zaG9wIENTIFdpbmRvd3MAADIwMTA6MDE6MDQgMTY6NTE6NDYAAAOgAQADAAAAAf//AACgAgAEA" + + "AAAAQAAAW2gAwAEAAAAAQAAAHAAAAAAAAAABgEDAAMAAAABAAYAAAEaAAUAAAABAAABHAEbAAUAAAABA" + + "AABJAEoAAMAAAABAAIAAAIBAAQAAAABAAABLAICAAQAAAABAAAMewAAAAAAAABIAAAAAQAAAEgAAAAB/" + + "9j/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0H" + + "yc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyM" + + "jIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAxAKADASEAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAA" + + "AECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0Kxw" + + "RVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4e" + + "XqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5" + + "ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDB" + + "AcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpK" + + "jU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkp" + + "aanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRA" + + "xEAPwD34sFBJIAHJJ7U2KaKdN8UiSL03IwIpAOd1RC7sFVRkknAArzrVNe1HXtQ+x6cZFgZtsccZwX92" + + "Pp+gpMqJAdJ17R42vImZRHzIYZQxX/eGef1Fdj4a14a1aMJAFuosCQDoQejChA9TcopkhRQAUUAFFABR" + + "QAUUAFFAHjF1b33xN+IGoabNeS2+jaYzLtjOQdrbcjtuY7iCQcAY+tfxX4NuPhylrr/AIe1S6AWURSLJ" + + "gnnJGcAAqcYII9Kxtdcxg1dOZ6JqutfbvAMGoxjy2voYztBzt3AFl9+Miud0GQ2mj61fJkTJEkSODgrv" + + "JBx+n5Vpe50x2KGjao2kagtyE8xNpV492N4I6fng/hVjw3qMema5HPI/l27BkkOM4Ujj9QKCmju/wDhK" + + "9E/5/l/79t/hR/wleif8/y/9+2/wp3I5WH/AAleif8AP8v/AH7b/Cj/AISvRP8An+X/AL9t/hRcOVh/w" + + "leif8/y/wDftv8ACj/hK9E/5/l/79t/hRcOVh/wleif8/y/9+2/wo/4SvRP+f5f+/bf4UXDlYf8JXon/" + + "P8AL/37b/Cj/hK9E/5/l/79t/hRcOVh/wAJXon/AD/L/wB+2/wo/wCEr0T/AJ/l/wC/bf4UXDlYf8JXo" + + "n/P8v8A37b/AAo/4SvRP+f5f+/bf4UXDlYJp+h+F4b/AFSO2is0ZTLdSopJIGTkgZJ6npXnHjfxXB47i" + + "tvDfheOa8llmEskpQogUA8fNgjk5JOOnfNTKyVkZTaS5UdlrGj/ANneALWwVg5sY4lLAfeKgKT+pNc/o" + + "0Zn8O67An39kUgHqFYk/wAqextHYp6Dpi6tq0drIXWIqzOydVAHX88fnU/haEzeJbQKDtRmcn0AB/8Ar" + + "UFM7PWPG3h3QL77FqeoCC42h9nku3B6HKqR2qvY/EPwrqV9DZWmqCS4mcJGnkSDcT2yVxRzLYx51ew/U" + + "vH/AIX0jUJrC+1MQ3MJAkTyJGwSAeoUjoRV3SvFGi63YXN7p14J7a2z5r+W67cDJ4IBPHpRzK9gUk3Yu" + + "6ZqVnrGnRX9hKJrWYEpJtK5wSDwQD1BqDWte0zw7Zpd6rci3geQRK+xmyxBOMKCegNO6tcd1a5k2XxE8" + + "Kajew2drqokuJ3EcaeRINzHoMlcVp654j0jw3bpPqt2tushKxjaWZyOuFAJPbnpyPWlzK1xKSauQaF4t" + + "0PxI8kel3qyyxDLxMjI4HrhgMj3HqKm13xLo/huCOXVbxIBKSI12lmcjrhQCfTnpyPWnzK1x8ytci0Lx" + + "ZofiRpE0u9WaWMZeJkZHUeuGAJHuKfd+KNFsdcg0a5vVj1Cfb5cJjb5txwPmxjkj1o5la4cytcu6lqNn" + + "pGnzX1/MIbaEAvIQTjJx0HPUim6Vq1jrenx3+nTefayEhZNpXODg8EA9RRfWw762IYb7RvEVtcW9vd2e" + + "oQY2TpFKsgwezYPfBrz34ieANG0/wAOT6zpFubK7tGR/wB07bWG4DpngjOcjHSpkk1ciaTVzrfBGoyeJ" + + "PAllPf/ALySWJ4Zif49rFMn3IGT7muYurXUfCerebETs5EcpXKyKex/qPamtkzSDuhsniGeWGS3srC0t" + + "XuBsdreLDvnsK6vwjoL6ZA91dLtuphgKf4F64+p/oKaKeiNjVbeGTTbt3hjZxA+GKgn7prmPhZBCfh7p" + + "cpiQyZm+cqM/wCtfvS+0ZfaMSz1zQdF+IXi7+3J4YvNktvJ82IvnCHdjAOOorrk1XR9Y8Lapc6LLFJbr" + + "FLGzRxlBuCZxggdiKSa2FFrYqfDL/knekf7sn/ox6pfFCaG20zQZ7hgsEetW7yEjICgOT+lH2Q+waWle" + + "KfCGqalDZ6bc2st5ISY0SAqTgEnBKjsDWPti1T42Mlwu9dM0wPCp6K5YfNj1w5/IelF09gbTtY6G78MR" + + "z+MdP8AEUNx5EtvE8U8ax5+0KQQoJyMYJz0OcD0rAskGp/GfVJbhEcaZYxxQAjO0uFbcPf5mGfQ0NWBo" + + "PFAj034meFNQhXbLeGa1nK8eYuFC59cFs/gPSua8fQSN47v723QNc6dpUN7DkdGSdCT/wB8lqmXUUup1" + + "vjS4j1qx0DSbd1ki1m8iZlBxvt1HmOR+AWj4Tc/DrT/APfl/wDRjVX2h/bOG8L6xH8M/GGr6TrMUqWlw" + + "wMc4XPyqW2PgdVIY5xnBGMdcaXj34i6VregPomgma9uL1lQssTKFG4HABALMSAMAdzUc1o2I5kouPU77" + + "wVo0vh/whp2nTjE8cZaUZzh2YsRkdcE4/Ct2SNJUKSIrowwVYZBrVLQ1SsrEFvp1laOXt7OCFjwWjjCn" + + "9BVmmMq6n/yCrv/AK4P/wCgmuY+Ff8AyTnS/rN/6Nep+0T9oztCudNt/iF4y/tCa0j3SWuz7QyjPyNnG" + + "fwrqry4sLjw9qZsJraRBbybvs7KQDsPXHekrWCOxzfw51vSbXwFpcFxqllDMivujkuEVh+8Y8gmnfES4" + + "tp9M8OXCzRSWx1u2bzAwKFcPk56YouuUV/dOmt9Q0Fp0W3vNOMzHCCOVNxJ7DBzXJTSwaJ8ZxcXbiKHV" + + "NN8qGR+FMgZflye+EH/AH0PWh2G+hq3viC5l+IelaFp06vCkMs2oqoVtq4wgJ6qd2OP9oetZlrIuk/GX" + + "UVupEjTVbGN7dmOAzJtXaPf5WOPpQ2Jv8w8SvFqvxO8L6dA++Wx866udvPlrhSu70yVH/fQ9RSTWkeof" + + "FrU7KbPlXHh8xPjrtaQA/zpbsOvzMn4fy3Os6/p6XaHPh3TntXBH+rnaRkA9/3aD8q6D4Tf8k607/el/" + + "wDRjUR6Cj0/rsdRqOjaZq8Sx6jYW90q52+dGGK564J6fhVfTfDGh6PIJdP0q0t5RnEiRjeM9fm61dle5" + + "dle5rUUxhUc9xBax+ZcTRxR5xukYKPzNAFOTVtIljaN9Rs2RgVYeevIP41W0248PaRYR2Nhd2MFtHnZG" + + "twpAyST1PqTS0CxlX+heBtUvpb29TTprmUgvI1zgnjHZvQVb0218J6PZ3FpYSWEEFx/rUW4BDcY7n0pW" + + "je4uRXvYy/+ES+Hn/Ptpv8A4FH/AOKrSubHwheaRb6VcPp8ljbsGihNwMKQCB/FnoT+dHLEORdinaeHP" + + "Adjdw3dtFpsc8Lh43FzyrDkH71aOsxeFfEFqttqs1hcxqcruuACp9mBBH4Gi0bWDkVrWI9EtPCXhyKSP" + + "SZNPthIcuRcBmb0yzMTj2z3NP1q38KeIrdINWl0+5RDlC1wFZfXDAgj86LK1g5dLWI9EsfCHhxZBpL6f" + + "bmT77faAzH23MxOPbNW1l8Orq7aqLuxF80PkGb7QMlM529cdRTSSGo20GWB8M6ZcXdxZXFhDLeSeZcMs" + + "65kbJOTz6k/nT9Mm8O6PYR2On3djBbRk7Y1uAQMnJ6n1NGgcptUUwCigArN1z/kGt/vCgaOWopFBRQAU" + + "UAFFABRQAUUAFAoA//ZAP/tEvZQaG90b3Nob3AgMy4wADhCSU0EJQAAAAAAEAAAAAAAAAAAAAAAAAAAA" + + "AA4QklNA+0AAAAAABABLAAAAAEAAgEsAAAAAQACOEJJTQQmAAAAAAAOAAAAAAAAAAAAAD+AAAA4QklNB" + + "A0AAAAAAAQAAAB4OEJJTQQZAAAAAAAEAAAAHjhCSU0D8wAAAAAACQAAAAAAAAAAAQA4QklNBAoAAAAAA" + + "AEAADhCSU0nEAAAAAAACgABAAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmA" + + "AEAoZmaAAYAAAAAAAEAMgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNA/gAAAAAA" + + "HAAAP////////////////////////////8D6AAAAAD/////////////////////////////A+gAAAAA/" + + "////////////////////////////wPoAAAAAP////////////////////////////8D6AAAOEJJTQQAA" + + "AAAAAACAAA4QklNBAIAAAAAAAIAADhCSU0ECAAAAAAAEAAAAAEAAAJAAAACQAAAAAA4QklNBB4AAAAAA" + + "AQAAAAAOEJJTQQaAAAAAANJAAAABgAAAAAAAAAAAAAAcAAAAW0AAAAKAFUAbgB0AGkAdABsAGUAZAAtA" + + "DEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAW0AAABwAAAAAAAAAAAAAAAAAAAAAAEAA" + + "AAAAAAAAAAAAAAAAAAAAAAAEAAAAAEAAAAAAABudWxsAAAAAgAAAAZib3VuZHNPYmpjAAAAAQAAAAAAA" + + "FJjdDEAAAAEAAAAAFRvcCBsb25nAAAAAAAAAABMZWZ0bG9uZwAAAAAAAAAAQnRvbWxvbmcAAABwAAAAA" + + "FJnaHRsb25nAAABbQAAAAZzbGljZXNWbExzAAAAAU9iamMAAAABAAAAAAAFc2xpY2UAAAASAAAAB3Nsa" + + "WNlSURsb25nAAAAAAAAAAdncm91cElEbG9uZwAAAAAAAAAGb3JpZ2luZW51bQAAAAxFU2xpY2VPcmlna" + + "W4AAAANYXV0b0dlbmVyYXRlZAAAAABUeXBlZW51bQAAAApFU2xpY2VUeXBlAAAAAEltZyAAAAAGYm91b" + + "mRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAA" + + "EJ0b21sb25nAAAAcAAAAABSZ2h0bG9uZwAAAW0AAAADdXJsVEVYVAAAAAEAAAAAAABudWxsVEVYVAAAA" + + "AEAAAAAAABNc2dlVEVYVAAAAAEAAAAAAAZhbHRUYWdURVhUAAAAAQAAAAAADmNlbGxUZXh0SXNIVE1MY" + + "m9vbAEAAAAIY2VsbFRleHRURVhUAAAAAQAAAAAACWhvcnpBbGlnbmVudW0AAAAPRVNsaWNlSG9yekFsa" + + "WduAAAAB2RlZmF1bHQAAAAJdmVydEFsaWduZW51bQAAAA9FU2xpY2VWZXJ0QWxpZ24AAAAHZGVmYXVsd" + + "AAAAAtiZ0NvbG9yVHlwZWVudW0AAAARRVNsaWNlQkdDb2xvclR5cGUAAAAATm9uZQAAAAl0b3BPdXRzZ" + + "XRsb25nAAAAAAAAAApsZWZ0T3V0c2V0bG9uZwAAAAAAAAAMYm90dG9tT3V0c2V0bG9uZwAAAAAAAAALc" + + "mlnaHRPdXRzZXRsb25nAAAAAAA4QklNBCgAAAAAAAwAAAABP/AAAAAAAAA4QklNBBEAAAAAAAEBADhCS" + + "U0EFAAAAAAABAAAAAM4QklNBAwAAAAADRYAAAABAAAAoAAAADEAAAHgAABb4AAADPoAGAAB/9j/4AAQS" + + "kZJRgABAgEASABIAAD/7QAMQWRvYmVfQ00AAv/uAA5BZG9iZQBkgAAAAAH/2wCEAAwICAgJCAwJCQwRC" + + "woLERUPDAwPFRgTExUTExgRDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwBDQsLDQ4NE" + + "A4OEBQODg4UFA4ODg4UEQwMDAwMEREMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDP/AA" + + "BEIADEAoAMBIgACEQEDEQH/3QAEAAr/xAE/AAABBQEBAQEBAQAAAAAAAAADAAECBAUGBwgJCgsBAAEFA" + + "QEBAQEBAAAAAAAAAAEAAgMEBQYHCAkKCxAAAQQBAwIEAgUHBggFAwwzAQACEQMEIRIxBUFRYRMicYEyB" + + "hSRobFCIyQVUsFiMzRygtFDByWSU/Dh8WNzNRaisoMmRJNUZEXCo3Q2F9JV4mXys4TD03Xj80YnlKSFt" + + "JXE1OT0pbXF1eX1VmZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3EQACAgECBAQDBAUGBwcGBTUBAAIRAyExE" + + "gRBUWFxIhMFMoGRFKGxQiPBUtHwMyRi4XKCkkNTFWNzNPElBhaisoMHJjXC0kSTVKMXZEVVNnRl4vKzh" + + "MPTdePzRpSkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2JzdHV2d3h5ent8f/2gAMAwEAAhEDEQA/APVHO" + + "DQXOIAGpJ0CjXbVa3dU9tjeJaQR/wBFeb5OPmfXj625mBdkPo6V01zm7G6j9G70NzWn9H6+RYLX+rYz9" + + "FUhfWP6q2/U1tHWuhZlrYsbU8Wbd0mXM3ek2qu7Hfs2WVWVpvEd60YzkOpEbiOt9t/S+nuc1rS5xAaBJ" + + "J0AAXH53WM/quUMfCL20uO2qqs7XPH+ktf7drf5P82z/CLSz+rfbPqrTnMHpnqFVUtH5vqhrrWf5vqVr" + + "K6U80YHU8ys7bq62VVvHLfUJ3Fv/QTgyLO6f1vAa7KY5zRVrYabN5bH+lr/ADm/v+2xdD0Lq/7Roc22G" + + "5NMeoBw4H6NrP6y5XpmZ+zstuQ1m9u1zLKwY3tI4dz+d70XouZXg9Srue706CHMsPMMI3M4/de2tJT3K" + + "SzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/uUP81//AJBL/nJ0T/uUP81//kElO" + + "mksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD/Nf/wCQS/5ydE/7lD/Nf/5BJ" + + "TppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5Q/zX/8AkEv+cnRP+5Q/zX/+Q" + + "SU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU//Q9AGB0H6vszOqspbiNcDZl3NDnEgF1jnFj" + + "d7vpPd9Bq4/62fWKn61V0dC+rtdmZbZaLbLS01sAYDA/TbH/Tdvssd9D/hF27MnovW8e/Gqvo6hQRsyK" + + "63tsEO4bZ6bnbd21cf9d/qX0bD6Nb1XplP2PIwyx5FbnbXNLms4Lv0Vle71a7Kk2W2lUx5L4dK4f0u9f" + + "1Xc6j0s4P1Ux8Jrt/2BlLXOH52zbXY//pb1mdOBs6V1Wlur9ldob3LWFzn/APULY+qOdZ1r6rY12d+ls" + + "sY+m8n8/Y5+Pvd/KsYzc9Y19Gf0DOFjTAEiq4iWWMP+Ds492nvZ/brThsvBBAI2IQ9Kw25+dXjOc5tbm" + + "ue97IkNaPpe4Ob9MsROg1m3q+MG/Ra51k/yWtdH/fEn9YsdW+jGx6MV2R7bHY7P0j5/Mb/WW99XOkPwq" + + "3ZOQ3bkXANazuxnO0/y3/npJZdT+t31d6TlnC6hmNoyQ0PNZZY72unaZrre381Cxfrx9VszLqw8bPbZk" + + "XuDKq/TsBLjw2XVtatHqdVRwcqwsaXimyHEAn6Lu6xf8XlVTvqh02xzGl4FsPIE/wA9d+cm2brRbZ4gN" + + "O+zazvrr9WOn5duHmZwqyKTtsYWWGDAd9Jtbmu9rlZ6b9ZOi9Vx8jJ6fki+nE/n3hr27dPU4sYxzvZ+6" + + "uWwus9C6X9a/rH+2bqqRdbj+iLWl07a3epthr/3610dXUuj9S6JnZHSLK7aGstrsfU3aN4r3bTLWfmPY" + + "kJHuPJQN9RudPJ0OndRw+p4dWdg2etjXAmuyHNkAlh9tgY/6Tf3UPq3WemdGx25PUrhj0veK2vLXOl5D" + + "n7f0TXu+hW9ZX+L7/xHdN/qP/8APlirf4w7KqcPpF1zgymvquM+1ztQGNbc6xzufbsSv034KMvTfg3cX" + + "69fVTMyasTGz22X5DxXUzZYNznaNbLqw1Xusde6T0Sht3UsgUNsJbW2C57yO1dVYfY5UMD6y/U/OzasX" + + "Byce3LtJ9JjGEOJaDY7a41t/Ma5ZwZXn/4zHtvG9vS8AOoadQLHub+kj97ZelZrcHWlWa3Bs07fRvrN0" + + "XrZsZ07I9S2oTZS9rq7GiY3ena1jtv8piJ1nr/Seh1Mt6nkCgWktqZBc95H0vTqrD7HbZ9zvoIGT9Xa7" + + "frJh9fqtFNmNXZVkVBk+u17S2rfZvbt9Fx3fQsWTiMbm/4yc+y9of8AszDqrx5E7Tbttc9v8v8AS2sSs" + + "/W6VZ+pNO10b6zdF62bGdOyBZbUJspc11djRxu9O1rHbf5bVLJ+sfRsXqlXScjJFedft9KkteZ3kiv9I" + + "Gel79v76w/rCyvC+uv1ez6gG25ZvxcgjTe3awVb4+lsdb/1Cxfrmyz/AJzZ+TQ2cjp/TsfPpPg7HyWPe" + + "f8Atl1qBkQPIoMiAfA0+gZ+fidOxLc3NsFONSN1lhBMCdv0WBzvpFQ6Z1TB6riNzOn2+tjuLmh+1zdWn" + + "a/22NY76Sw/rXk19Ro6N06g+pX1jMoe5v72NV+u3u/zWVKP+LZxf9VaXn8668/fY9G/VSb9VdKf/9E3Q" + + "eq1/Ur6xdS6b1Wt7MXJcCy1rdxDWuf9nvDG/Totpt/Sen6np21+n/pFc+uX146X1LpbukdHL8y7Ncxjn" + + "Nre0Abg7062WNZbbfa5ra2MZWu5z+l9N6lWK+oYtWU1s7BawO2zzsLvcz+wgYH1e6H02z1cHBpot1Ata" + + "wb4PIFh96bwna9GLgkAYiQ4T4eoWi+qnSrekfV/DwL4F9bC64CDD7HOusZub7Xem6z01qPYx7Sx7Q5p0" + + "LSJB+SkknBkAoADohpw8Oh26iiupx/OYxrT/wBEIySFfk4+NX6uRaymuQN73Bok8Dc5JKPqX/J2V/xNn" + + "/UuWJ/i6/8AEb074W/+frlq2dV6LbW6qzMx3MeC1zTazUEQ4fSQen5P1b6bh14WDk41GNTPp1ttaQNxN" + + "jvpPc76bkK1vwRWoPgXB6K/prfrX9Zvt7qGg243p+uWD/Bv37PV/srob7OnP6TmtwHUuY2qzeKC0gOLD" + + "9L0vztqzMzpH1DzsqzLy24d2Rcd1ljrRJMBvaz91qsdPo+p3TKL8fBfiUVZWl7G2iHabPduefzSgAfDq" + + "gAj7T+LR+onU+m4/wBU+nVX5dFVrWP3MfYxrhNlh1a5yb69XY92F0S5j2WUO6tin1AWurLYu3Hf/N7E/" + + "wDzc/xc/wCiwtP+G/8AUquXYv1Mv6dT0u52I/BxnB1NBtG1pAc2f5zd/hbEqNVoqjw1o36bugC5noWYn" + + "rkxXsNe/cdIZt925y5+y2rpf+Mn1cpwrq6rgiuix2jTaxzP0W93t3bKf/BalZx+if4v8XIqyaGYdd1Dx" + + "ZU8WiWuadzHfzn5qu9WH1T6zQMfqduLk1tO5u61oLT/ACLK3ssZ/YelRrpuogntpq18zreS/wCuPT+jY" + + "FrXUsquv6oxoa7a2NuMHv8ApUu9b/z7WqWPYzp/+MjNZkuFberYdT8YuMB76ttPpN/4T9HYtLpFH1P6J" + + "W+vpdmLji0g2OFoc50fR3W2vfZtb+7vUurM+qXWqW09TsxcljDLJtDXNJ+lstreyxm7+S9Kj9btVHfrd" + + "uZ199ef9d+gdPocH2YPrZWUG6+m3az0fUj6G99f/glSa3FrzP8AGBn4lv8ANZHRTU/+q+1rHf8ARctHp" + + "GN9TeiB46Y/FxzZ/OP9YPef5Jtusss2/wAjcrDb/q03qLuqDIxhmvq9B1/qtk1g+p6f09v0wlwnr3tXD" + + "3728p9SX5HUuq4LMkEn6uYD8V4OmzIfa/FH/sjirX/xZ/8AiSo/427/AM+OWnhWfVfAuyb8S/FptzX+r" + + "kvba2Xv1O90v/lvT9Nv+rPS8VuH0/IxqMdpLm1ttaRLjud9J7vzkhEivqqMSKvxf//S9VSXyqkkp+qkl" + + "8qpJKfqpVOpf0b+038q+YEklP0YkvnNJJL9GJL5zSSU/RiS+c0klP0amXzmkkp+jU3dfOaSSn6N8Ey+c" + + "0klP0Z2S8PkvnNJJT//2ThCSU0EIQAAAAAAUwAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8Ac" + + "wBoAG8AcAAAABIAQQBkAG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAFMAAAABADhCSU0EBgAAA" + + "AAABwAIAAAAAQEA/+EYBWh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8APD94cGFja2V0IGJlZ2luP" + + "Sfvu78nIGlkPSdXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQnPz4NCjx4OnhtcG1ldGEgeG1sbnM6eD0iY" + + "WRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IlhNUCB0b29sa2l0IDMuMC0yOCwgZnJhbWV3b3JrIDEuNiI+D" + + "QoJPHJkZjpSREYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50Y" + + "XgtbnMjIiB4bWxuczppWD0iaHR0cDovL25zLmFkb2JlLmNvbS9pWC8xLjAvIj4NCgkJPHJkZjpEZXNjc" + + "mlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkI" + + "iB4bWxuczpleGlmPSJodHRwOi8vbnMuYWRvYmUuY29tL2V4aWYvMS4wLyI+DQoJCQk8ZXhpZjpDb2xvc" + + "lNwYWNlPjQyOTQ5NjcyOTU8L2V4aWY6Q29sb3JTcGFjZT4NCgkJCTxleGlmOlBpeGVsWERpbWVuc2lvb" + + "j4zNjU8L2V4aWY6UGl4ZWxYRGltZW5zaW9uPg0KCQkJPGV4aWY6UGl4ZWxZRGltZW5zaW9uPjExMjwvZ" + + "XhpZjpQaXhlbFlEaW1lbnNpb24+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0a" + + "W9uIHJkZjphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtb" + + "G5zOnBkZj0iaHR0cDovL25zLmFkb2JlLmNvbS9wZGYvMS4zLyI+DQoJCTwvcmRmOkRlc2NyaXB0aW9uP" + + "g0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlO" + + "S1jMGVjN2Y0YjY3MGQiIHhtbG5zOnBob3Rvc2hvcD0iaHR0cDovL25zLmFkb2JlLmNvbS9waG90b3Nob" + + "3AvMS4wLyI+DQoJCQk8cGhvdG9zaG9wOkhpc3Rvcnk+PC9waG90b3Nob3A6SGlzdG9yeT4NCgkJPC9yZ" + + "GY6RGVzY3JpcHRpb24+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5L" + + "WY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6dGlmZj0iaHR0cDovL25zLmFkb2JlLmNvb" + + "S90aWZmLzEuMC8iPg0KCQkJPHRpZmY6T3JpZW50YXRpb24+MTwvdGlmZjpPcmllbnRhdGlvbj4NCgkJC" + + "Tx0aWZmOlhSZXNvbHV0aW9uPjMwMC8xPC90aWZmOlhSZXNvbHV0aW9uPg0KCQkJPHRpZmY6WVJlc29sd" + + "XRpb24+MzAwLzE8L3RpZmY6WVJlc29sdXRpb24+DQoJCQk8dGlmZjpSZXNvbHV0aW9uVW5pdD4yPC90a" + + "WZmOlJlc29sdXRpb25Vbml0Pg0KCQk8L3JkZjpEZXNjcmlwdGlvbj4NCgkJPHJkZjpEZXNjcmlwdGlvb" + + "iByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuc" + + "zp4YXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iPg0KCQkJPHhhcDpDcmVhdGVEYXRlPjIwM" + + "TAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpDcmVhdGVEYXRlPg0KCQkJPHhhcDpNb2RpZnlEYXRlP" + + "jIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpNb2RpZnlEYXRlPg0KCQkJPHhhcDpNZXRhZGF0Y" + + "URhdGU+MjAxMC0wMS0wNFQxNjo1MTo0NiswMTowMDwveGFwOk1ldGFkYXRhRGF0ZT4NCgkJCTx4YXA6Q" + + "3JlYXRvclRvb2w+QWRvYmUgUGhvdG9zaG9wIENTIFdpbmRvd3M8L3hhcDpDcmVhdG9yVG9vbD4NCgkJP" + + "C9yZGY6RGVzY3JpcHRpb24+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZ" + + "jQ5LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6eGFwTU09Imh0dHA6Ly9ucy5hZG9iZ" + + "S5jb20veGFwLzEuMC9tbS8iPg0KCQkJPHhhcE1NOkRvY3VtZW50SUQ+YWRvYmU6ZG9jaWQ6cGhvdG9za" + + "G9wOjEwM2UwZjQ4LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZDwveGFwTU06RG9jdW1lbnRJRD4NC" + + "gkJPC9yZGY6RGVzY3JpcHRpb24+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM" + + "2UwZjQ5LWY5NDktMTFkZS05MmU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZ" + + "y9kYy9lbGVtZW50cy8xLjEvIj4NCgkJCTxkYzpmb3JtYXQ+aW1hZ2UvanBlZzwvZGM6Zm9ybWF0Pg0KC" + + "Qk8L3JkZjpEZXNjcmlwdGlvbj4NCgk8L3JkZjpSREY+DQo8L3g6eG1wbWV0YT4NCiAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgC" + + "iAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAKICAgICAgICAgICAgICAgPD94cGFja2V0IGVuZD0ndyc/Pv/bAEMAAgEBAgEBAgICAgICA" + + "gIDBQMDAwMDBgQEAwUHBgcHBwYHBwgJCwkICAoIBwcKDQoKCwwMDAwHCQ4PDQwOCwwMDP/bAEMBAgICA" + + "wMDBgMDBgwIBwgMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD" + + "P/AABEIAOAC2gMBIgACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACA" + + "QMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJ" + + "ygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmao" + + "qOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfA" + + "QADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGE" + + "kFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV" + + "1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFx" + + "sfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/AP38ooorMAooooAKKKKAC" + + "iiigAooooAKKKKACiiigBpbKen9KYCACCQFHJz2pt3cxWVtJNK6xxopZmY4AAr4x/bB/wCCiD6Vd3Hh7" + + "wZMGuFzHLeL0j/CplJRWppCDloj6A+N/wC114Q+B1nIuoahE9+B8lunzbz6ZHSvkb4mf8FQvFHiO5kXw" + + "/af2RByFbcJMj15r5n1fV7vxBqEt3e3EtzcTsWZnYnJ+hquMDg8gfpWDqSZ2xoRid54i/ab8ceK5Wa+1" + + "gS+Ycn9yorIi+MviaEgjUACnT92K5gnNKoyfas+potz1Xwb+2t8RfBkkYg1kPCh4j8lf519AfBv/gqih" + + "lgsvFth5KE4e835/wDHRXxX0b0pGAORjIHWqUmtiHBPdH7E/Dr4saD8UtIS90W/iuoXGcA4b8utdCV3E" + + "YGK/H/4T/GfxB8FvESajol9LAysC8ZO5XHpg8V+if7J/wC2PpX7Q2ipBKyWWtQACa3Zskn1BreFS+jOW" + + "dFx1ie5UUUVoc4UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU" + + "UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU" + + "UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAhX5fekZtisTwAM/SlH" + + "4ZrxX9tb9omP4E/C24aCUf2veoUtox1PY/oaTdldlRTbseJ/wDBQj9saSwnm8G+G7vbN929lQ/dzyK+J" + + "yCzsWZixOWJ5JNTalqU+tahNd3MjTXNw5dnY5PJzUXC4/nXLJtu7PRjFRVkIeMijjPt60kkgUZP/wCuv" + + "Zf2Zf2LfEX7RlylzKJNK0LP/Hwy53j6daSV9htpK7PGXnAGSC2em0Zpn2oBuIrkj2iav04+G/8AwTt+H" + + "ngmwi+0aaNQvkHzzs5AY/Su8tv2Z/BlvAIk0O2CYxyoNaeyZj7eJ+RyzLnkOg/2lI/nTg2enH41+pPjT" + + "9hT4c+NbR0uNERJWB2urkbT+FfJX7Sv/BOXWvhPaTav4dkbVdNTLSQhdpiH9alwaVy41oy0R81lcf561" + + "qeC/GWpfDzxJbarpNw9teWzBlZT1HcEVlI/zMGDI6EqVYYINO+7nNSWfqT+yD+07ZftDeAo3aRY9YslC" + + "3UBPIPQH3zXsSsWPXrX5G/s8fGe++BfxMsdXt5H+zGQLcRA4Dg8Z/Cv1c8EeLrPxz4Ws9UsZVnt7qMMG" + + "HTOOa6KcrqzOKtT5XobNFFFaGAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF" + + "FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF" + + "FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAERXJz+VKrAuQBn1pCcjjjPevlb/AIKhf8FLNC/YA+E73" + + "AaHUPFWpoy6dYLIAzsOCT6Yznms6tWNOLnLYU5qEXKWyPZ/j3+1J4I/Zo8L3GreMNdtNMtYFyQWDSf98" + + "jmvz3+PH/BzJ4R8F6rc2vg3w0fFEaHCT+eYc++CK/JD9pL9qbxr+1j8RLrxJ4w1i6vLm5cssQcrHGvYb" + + "QcHArz1UVenJrxa2YVJP3NEeBXzebdqasj9F/G//ByR8U/EepGXSdI/saDJxF5qyfrVDRv+DjX4waffp" + + "NdWv2yFTkxblXd+lfnu8q9yBj3oEqtghh9c1ze3q3vzP7zj/tGv/N+R+v8A8Iv+DoGK8eG38VeBDZLkK" + + "9z9r3fU4Ar7+/ZR/wCClnwq/a6tNvhrxFatfxqpmt5T5RQnsC2M1/MHtEg5x/jV/wAK+KtU8C69b6not" + + "/dafe2jh43ikZRkc8gHmt6eOqxerujoo5tUi/3mqP66wwlGVwQ3Qg9aAShHcd6/Kn/gj5/wW4m+LmoWP" + + "w6+KF2i68VEVlqMhCi7wOmOgwMDmv1UgmWaNXVso4DA+oPSvZw9eNWPNH5n0FGvCrDmg9CeijrRW5oQX" + + "VylpaSyuQEhUuT7AZr8uP23vjVJ8Y/jVe+VKz6Zpz7bUZ4Bxhv1r74/bI+J5+FHwI1nUo5QlwECRjud3" + + "Br8qJp3up5Z3JZ5nZyT7nNY1X0OzDx+0NDYoJJbIoC5I96ZNL5cfuxCj8awWx0Hrn7HP7O0v7Q/xQihl" + + "jP9j6a4a7fse4/lX6geGfDFl4N0OCysYo7e3tkxhVx0FeGf8E4vhDF8PPgZa6i64vtWBaYkc8Hiug/bd" + + "+PDfA34N3tzaSiPU7tNluO5zwf0roglGPMzlqNznyo5H9pz/gojonwV1OTSNIgTWtXj4lRX2iI9uehr5" + + "yuf+CnHj2XUzMiCOAnIh4OB6Zr51luJtQvJru4dpri4cu7sck5OaF+U5PNZuo2dEaUUrWPuj4Df8FS9P" + + "8S6xa6V4ssP7KaZtguy+8OfoOlfXEVxa+ItLV0Mdza3CZBGGVgRX4uyRLIvPB6j1Br9AP8Agl38a7nxp" + + "8Prrw9fzNLNouBGzHJcMaunN3szGrSSXMjx3/goz+y3B8LPE0XijRYiun6iSbmNRxAR0/M18xB8rkdPW" + + "v1j/ax+Ho+JPwO1rTdivI0e9TtyRt5r8m1ha2lmhJyYpGQ/gSKipFJ6GtGfNHUUjcuMc9jX3P8A8Eufj" + + "02raDc+Dr+450/H2NWPL55avhhcHg967r9mj4kyfCf416NrCEiOKTy3TOA27j+tKMrO45x5lY/XWiq2l" + + "3g1HTrecEHzo1fj3ANWa6jzQooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK" + + "KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK" + + "KACiiigAooooAKKKKACiiigAooooAKKKKAOT+MXxL034PfDbVvEWq3SWtnp1u7mRugbado/Ov5hP22f2" + + "pNa/a9/aI13xZqtxK8M1w0drAzErEqkrkDpyBX7K/8ABxV+0hJ8K/2ST4StnaG98YcRuDgqI2BP6V+CK" + + "ZVAc8nnPqe9eHmNXmnyLZfmeDnGId1SXqxXcLyOK+pP2Cv+CTXxD/bqu4ry0im0DwwWG7U3j3ceynmvP" + + "P2B/wBmCf8Aa+/ap8M+CxlLO8m8y4lAyECfNg/XFf05fB74SaN8FvAOneHtEsobKzsIVjCxqBkgDJ/Os" + + "8Hhfau72Rhl2BVX36mx+d3w8/4Novh5oNjEviDWDrU6r87+W0e4/ga1fE3/AAbZ/CjU7Irp1w1hNg/vM" + + "M+D24zX6SMA596UcryOK9X6jQ/l/FnurB0Erci+4/AD9un/AIIFePf2X9EuPEHhO+fxjo8ALzqkQiNqv" + + "06mvgOaKSCeSKRGjliYq6sMFSOOlf15alpcOr2MtvcRpNBOpR0dQQwIwa/n5/4LzfsO237Lf7RcHiTQ7" + + "RLTQPF7s8cS/diKDn8ya83GYNUvfhseRmOXRhH2lL5o+GNO1S50LVLe+s5ZLe8s5FlidGKsCpz1H0r+i" + + "v8A4Iuft6v+2d+zZbQ6xdLP4r8PRrFqAPBA6J+gr+c4sMg5+p9a+8f+DfD463fw0/bStvDS3Ri0/wAU5" + + "E6k8PsUkVjhKzp1V2e5zZZXcKvL0Z/QdRSIwZQR0PNLX0Z9QfE//BWPx55UGg6LBMcS7/tCDv3Ga+KF6" + + "57D9K+gf+CkviL+2P2hLyz6iwxjn1Wvn/gdD/8AWrlm7yZ6VJWikCg/TNT6Fp51fxDYWqqWMtwgx6jcK" + + "rV2H7PWlDWvjn4etSMiSUnGM9OajlRR+sPw28Pw+FvBGmWUACxxW6HA9SoNfDv/AAVc8fnWfHmjaKpwt" + + "hv3jPXIz0r740xRDp1uvTZEo/SvzH/4KJ6j/aX7TuqKDkQbcc/7NdFXSNjkoK8m2eIUUUVgdYoGeetfR" + + "P8AwTH8TLofxvubeadIIrrHLsFBwPevnZsEZ6570+3uprRy8EskEv8AeRip/ShOzCSurH7HeI/EumT6D" + + "eob+yO63kGPOX+6fevx78U2aWXivU4oyCguXII75Y1H/b+p4/5CN7z1/ftz+tV2Ys7Ektnkk9TVSnzGd" + + "OnyDaVHMM0cgODG6v8Akc0lI33TUmh+sH7Hvjt/iJ8ANC1N23PJGUPOT8pxXqC8DHpXyh/wS08ZG6+FF" + + "1pk0yCPTiNiswGNxr6oGpwcZng/77FdUNYo8+rG0mWKKh/tK3/57w/99ij+0rf/AJ7w/wDfYqiLMmoqH" + + "+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32K" + + "P7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/A" + + "N9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0" + + "rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfY" + + "o/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99" + + "igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf" + + "/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St" + + "/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9ig" + + "LMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/A" + + "J7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK" + + "3/57w/99igLMmoqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLM" + + "moqH+0rf/nvD/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqH+0rf/nvD" + + "/32KP7St/8AnvD/AN9igLMmoqH+0rf/AJ7w/wDfYo/tK3/57w/99igLMmoqD+0oP+e8P/fYp326D/ntF" + + "/32KBH4nf8ABzn8R31z4qeCtCLfu9L87j/eANflr/D7Cv0Q/wCDiDQ9a1z9r6EQadqF1bR52NFbu6/dH" + + "cCvgM+Btewf+JHq+P8Arzk/+Jr5jEyvVlfufLZhGTry0/qx+mH/AAbK/B6HxR8WvF3iiRA8mieV5TEfc" + + "3Ag1+3WMEZr8lP+DX/QtQ0XQviOb2wu7Pf9n2GaFo9/J6ZAr9afmI/lXs5fFKkn3ue7l8bUIokoooruO" + + "wZKcD8a/ND/AIOVvhwfEP7M+m+IPLDHQSfm/u72Ar9MHwcgnGa+Af8Ag4nmSP8AYN1hWYB2aPA7n5xXJ" + + "jVejL+uphi1ejJeR/P+p3Rqfbmva/8AgnH4in8J/tueCL22JWVJ2UYPrgV4nGc26+4FewfsCo837Yngp" + + "Y1LMbg4AGT2r59bnyWE/jR9Uf1LaHL5+i2cjdXgRj+KirE7+XC7Hoqk1V8OjHh+wB6/Z4//AEEVPqH/A" + + "B5Tf9c2/lX1S2PtUflP+2rqw1v9p7xJMr+Ym5AD+FeXE469e9d/+1OS37QPiDPP7wY/KuAzgc85rkPUj" + + "8ID7pr0r9jDn9qrwrkAjdJ1/wB2vNR9016V+xfz+1V4WP8AtSfyoJex+sGcWY/3P6V+VP7b7Fv2oPEOS" + + "fvJ/Kv1VZttjnt5f9K/KT9tK+TUP2nPEZTnYyD9K3rbI5sN1PMKKKKwOoKKKKACiiigAooooA6Hwb8UP" + + "EfgCGaLQ724tlnx5gjQtnFbJ/aT+IA/5i9+f+2Dc17z/wAEv/A2jeN7/wARJqtjHeGPy/LLfwetfYh/Z" + + "58IA5/si1yP9gf4VcabauZyrKLsz8wv+GkviF/0F7//AL8Gj/hpL4hf9Be//wC/Br9P/wDhnfwj/wBAa" + + "2/75FH/AAzv4R/6A1t/3yKr2UifrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z3" + + "8I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9" + + "P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/" + + "wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4h" + + "f8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/" + + "wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/" + + "wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4h" + + "f8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/" + + "wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD" + + "61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/" + + "fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/" + + "wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH" + + "/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGt" + + "v8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z3" + + "8I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9" + + "P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/" + + "wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4h" + + "f8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/" + + "wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/" + + "wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4h" + + "f8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA"; + resourceString += "/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD" + + "61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/" + + "fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/" + + "wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH" + + "/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGt" + + "v8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z3" + + "8I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9" + + "P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/" + + "wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4h" + + "f8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/" + + "wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/" + + "wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wV/aS+IG9" + + "f8AibX5BI/5YtXYxftG+OPKX/ibX3Qf8sGr9DF/Z38IbRjRrb/vkVP/AMKH8Lf9Am3/AO+RR7KRLxEex" + + "s6z4E0bxDOst/pdhdyr0eW3R2/Miqx+FPhoIR/YOkY/684/8K6ANwM8UNntWrpxe6OOxnaJ4W07w1Eya" + + "fY2lkH+8IYlj3fXArSzyaaVyADz706mlbRAFFFFMCNjluefavyu/wCDnL4mf2J8J/CnhxJlLa0Zd6Buf" + + "lIPIr9Kfiv8W9C+Dfgy91zX7+3sbKxjMjGRwC2BkACv5uf+Cof7a0/7bn7TOp63A7r4esZTHp0JbITHy" + + "sR9cV52YVkqfJ1Z5+ZV1TouPV6HzlH91R3x+VfWf/BEj4YP8SP+Cg/hGXb/AKNpzSNK23cFynGa+THO1" + + "cjJ7AAck1+1P/BuB+xTeeAfh9qvxM1+wZJPEew6YZF2tCEJDcdea8rD0vaVFFHh5dRc667LU/VK3jFvA" + + "iDoihR+ApZ13xMp7qRT6K+mPrD8o/22tMGkftQeJYlTYgKFR+FeWkZI7Y6V9B/8FKvDp0n9oG5vSuFv8" + + "YOOuFr57I2jB/CuR7nqQeiYZ3EnpivSf2OLhLX9qTwtJI21A0gJ/CvNtp6EfSut+AeqLovxs0C6kOFSX" + + "HX1wKSfUfSx+vmA9hx0Mf8ASvyj/bQsVsP2n/EYXpIyZ/Kv1Y0x/O0uAjo8Sn8wK/Mf/gohpI0j9p3VG" + + "VcLdbcfgtb1dkcmG3aPEaKKKwOoUgBvUU6KGW4fbFFJNJ6IpY/pScAHP5V9Gf8ABMfwzHrPxpu5p4EuI" + + "YMcOoYDI96cVd2CTsrnzx/Zd8wz9gvOfWFv8KiYYJBHzV+wvirwdoun+G9Qm/s6xQJbSEHyV4O0+1fkD" + + "q7m41/UHOMm5kwRxxuNOceUinV5itQTgUUjNhT9Kks+2f8AgkhpitF4nuT1PlYr7XU5OfWvln/gln4RO" + + "lfB+TVipC6oeDjrtOK+p8c10017pw13eYUUUVZiFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR" + + "QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR" + + "QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAwjBx+VeU/tp/tNQ/sffs8a549uLH+0" + + "4tGCE2+/Zv3HHWvVs5NfJP/AAW4AP8AwTg8dDsFh6/79ZV5ONOUlukTVk4wbXQ+QNQ/4OlbOCzLW/w0M" + + "8oJAT7fj+lcD8U/+DnnxV4q0kxeHfAv9hXJBAl+1iT8cEV+WkWNx4BO404DOADmvAeLrSVnI+XeZ131P" + + "bf2qP8Agob8U/2wpPL8XeIrmfT1JKW0f7sKPQ7eteJwwSTsqQQXE8jnCrFGXJP4UmNpP8/Svon9hP8Ab" + + "Y8M/si+LbfUtZ+H0Hi2aFsiWWcKE99pBrC93ds5oy9rO9WVvPc97/4Ja/8ABFLxV+0j4l0vxl47sZdH8" + + "GwyCaGGQfNfYOeR1XBFfvD4L8IWHgHwxZ6RpdvHa2VlGI440AAAAAr5n/YX/wCCrfwl/a60Kx07Rr+z0" + + "XxAy4k0kjy1gPYBuAa+rFIzkEHdgjHSvdwVGnCPNB3v1PqcHRpQh+718yaiiiu46j4v/wCCsfgH7RpGi" + + "a5DCcWm/wA9x78CviANnr1Pev1j/a0+GJ+LHwQ1nSUjDzSRh1OORt5/pX5P3Nq9hdzQOpR4JGTB68Eiu" + + "aqrSO+g7wGHgY9Km0i7bTtdsboNt8mdCT7bhUIORimzp5sZHvkfhUHSfsf8MPFFv4u8BaXqFu26KSBAP" + + "qFANfF3/BV/4a/2Z4k0bxFCpK3G/wA9gOExwM16/wD8E1fjJH48+C0OjzMv2/RRiUE8sCeK9L/ah+C1v" + + "8dvhNqOjSAC4dN0TkZKkc10Nc0Tz4vkqH5Ncbc96QjAHORV7xf4S1H4d+JLnR9Wgltrq1cqNwOGGeOfp" + + "VAsM4yB681znYKeFPcCvtX/AIJI+EX+y+INWkiIjlKeS5H3vWvjHRtEu/FOuW+m6fC9xd3bhFVBnjPNf" + + "qz+yV8HV+CPwX0rSJEAukTfK2OWLc/1rSktTPEStGxp/tG+Ih4Y+D+s3hfy9kJXPpkEV+Rhm864uHJ+/" + + "M5B9fmNfo1/wUu+LcPgr4KzaOjK15rOBGoPPynmvzjhj8tME9eT7UVXrYmgvduPIP4miGMzzRRgcyyKg" + + "Hrk4pNmAD1Feg/ssfDWT4rfHLRtL2loDJvlbGQu3kVml2N721Z+kX7JHgM/Dj4DaHpbLtaKMueP73Nel" + + "RggnNQWFqNPsYIFAAhjVOPYYqdl711pWVjzJSu2zmfit8UNM+DngLUPEWtTG307TU3yOATgfQV8SP8A8" + + "HFfwHjnkQ6swMbsh/cv1Bx6V9Q/t3+GL/xj+y54o0/Tbc3V7cW5EcY6twa/m2uf2F/iv/aF3nwZeYa4k" + + "IO31Y+1eZjcRUpzShsedjcTWpW9lG9z9qB/wcX/AAG5/wCJu3/fl/8AChv+DjD4Dj/mLt/35f8Awr8VR" + + "+wv8V2OP+ELvOOvyn/CsXx7+y747+Fnh99V8QeG7jTtPj+9K68D9K4vrtfuee8xxS1cPwZ+4Z/4OLvgM" + + "CP+Js3t+5f/AApw/wCDi/4DZ/5C7/8Afl/8K/AGG0FxKiRorPIQqDH3ia9Psf2I/ilqNnHcQeDruSGYB" + + "kYL1B/Cq+vVe5MM1xE/hin8n/mftcf+Di/4DMf+Qu2B/wBMX/wr0/8AZM/4LB/Cj9sD4nReFPC+pNPqk" + + "+dieUwzgZ6mvwG/4YY+K4OR4LvP++f/AK1faP8AwQj/AGW/H3wz/bPs9T1zw3cadYQ7t8zjAX5D7VVLG" + + "1pTjF9WdOHxmJnUUZxsvRn7styvJx6V84/trf8ABTj4dfsLanpdl4zvza3GrbvIURs2dvXpX0awIwMZB" + + "/SvxZ/4Oeo1Hj/wL8oOfP6j2FeljK0qdPmh3PQxdV06TnHdH1L/AMRGHwHA/wCQs3H/AExf/ClH/Bxh8" + + "ByONXfP/XJ/8K/BHwz4Qv8Axlq8dhpVk97eS52RRplm/CurP7LXxAwD/wAInqGT/wBMG/wry/r1bueNH" + + "M8TLVRT+T/zP3F/4iMPgP8A9Bd/+/T/AOFH/ERh8B/+gu//AH6f/Cvw6H7LPxAP/Mp6h/34b/Cj/hlj4" + + "gf9CpqH/fhv8KX16t3/AAK/tDFfyfgz9x7P/g4n+A95qMFuNXbdcypEv7l+SxAHb1NfdnhfxJbeLvD9n" + + "qVm2+2vYlljbGMhgCP0Nfyr+HP2XfiBD4p0lh4Sv223sBIMLDA8xcnpX9RnwRs5dP8AhJ4fhni8qVLGI" + + "Mh6qdi124HE1KkmpM78DiKtW/tVa1jrcjHSvlH9rX/gr98Kf2PviU/hbxRqTQapH99PKY44z2r6szuI5" + + "6V/Pt/wcOoG/bfucqCeO3+wK2xtaVOCcN7m+NrSo0nOO5+sX7IH/BXL4Wftk/EF/DXhTUWn1IdE8thnj" + + "PU19UV+Af8Awbowqv7Y8pCgEY5x/smv3+P54pYKtOrBufcWCryq0lOW7HUUUV3HUFFFHSgCnqmox6Ppd" + + "zdznbDaxNNIfRVBJ/QV8Ia1/wAHDvwJ0bWbuzfV3MlnK0LfuX+8pIPb1FfcHj87vAut+n2Cf8f3bV/Jp" + + "8Tok/4WV4g+VR/p8/b/AKaNXnY7ETpcvJ1uedmGLnQScLan7yN/wcXfAdB/yF2/78v/AIUh/wCDi/4DH" + + "n+12P8A2xf/AAr8K/C3wG8W+NtJS/0nw/d3tnJ92WOIlT+OK0D+y54//wChT1DHf9w3+FcP16t3OBZli" + + "Xqo/gz9xf8AiIw+A/8A0F3/AO/T/wCFH/ERh8B/+gu//fp/8K/Dr/hlj4gf9CpqH/fhv8KP+GWPiB/0K" + + "mof9+G/wpfXq3f8B/2hiv5PwZ/Rx+xH/wAFNfh3+3dqWs2ngy/N1PomzzlMbLjd0619FKCRkcZr8fP+D" + + "aX4SeJ/h541+Icmt6FcaZDN9n8t5UK7+DnqK/YQuCw45Ferg6sqlPmkezhak50lKas2NJJJP6USNsVmZ" + + "gqgZJPAFPI2ngcCvzv/AOC4n/BUiX9k/wCH3/CE+EJxH4w19GjNyrfNYAdeO+Qa1rVo04OUi6taNODnL" + + "ZHqX7bH/BZL4WfscalcaPcajDq/iWAc2MTEgn03jIr4P+JH/Bzz4m1q/wAaF4G/s6BCQD9rD7x+Ir8u9" + + "T1DUfGOvSXN5Lc6lqd/LuJYtI7sx7dT1NfY/wCy1/wQu+L/AO0h4ftNXvbV/DOkXq7oZ3CuSPXb1FeLL" + + "FV6srQ+5HhfX8RWlagj2Xw7/wAHNHjrTdVjkvvCP2y3U/NH9pC5/HFfVP7Kf/BxZ8OPjPrUOmeMrMeC7" + + "25ZY4gXM4djx1HAr4p+Mn/BuX8Wfh5osl34dv8A/hKZY0LmLYsJ4+tfB3xD+G+ufCfxXcaJ4i0640nVb" + + "Nyro4IIPs3f8KlV69J6t/MUsVi6LTqrT+ux/Wl4Z8U6f4s0iG/028gvbS4QPG8ThgQRx0rRVdwBPX0r8" + + "F/+CH3/AAVE1T4D/Fix+HnjHU5bjwnrL+XbTzuW+wkdueTkkV+8dndJe20VxE26OZA6N6gjI/nXsYXEK" + + "tG/VHtYbExrw5olmiiiuo3IpHEK7mIUAZJJwBXyP+2r/wAFkvhV+x1dXWkXOqQ6v4ltulhCSQx9N4yK8" + + "b/4Ljf8FU5/2W/Cf/CA+CroJ4u1lGjnuFPzaePp33A1+Fl3caj428QtLM93qmqX8pPJaV3Zj26nqa8vF" + + "Y5xbhD7zy8bmHsn7OmryP1H+J3/AAc9+ItauETw/wCBf7NijJy/2wP5g7dRWBof/BzR48sNWjlu/CYur" + + "dT80X2lV3fjivFv2dP+CGHxr+POiW2qXelP4f0u8AaKZ2Viw9dvUV6P8Sf+Db/4q+D9Nkm0TVB4hmVdw" + + "j8tYsn0ya4ufEv3tTkVTHyXMl+R9ffswf8AByL8Pvizrttp3jXSf+ELechA5lM4z+Ffod8P/iVovxT8N" + + "2+raDf2+o2Nyu5JInDce47V/Kn8c/2efGH7N/jKXQfGei3GkajE2ORlT9GHFfTv/BIv/gptr/7HXxj0/" + + "QdZ1Ke58EavKsU0crlvIJOF5PPU1tQzCalapqjXDZlLn9nWR/RiOlIy7hiqWha3B4h0W1vrZ0khu4klR" + + "lbIIYAjn8aujHX1r20e0V726TT7WeeQ4jhRpG9gBk18O/EX/gvx8D/hx461DQb3VmF3p7+XJ+5fgj8K+" + + "1/FQ/4pjU/QWkv/AKAa/lb/AGxoU/4af8X5VT/pTdv9o152PxE6fLyPc4MwxM6MFKB+2Z/4OMfgMM/8T" + + "Zsdc+S/+FfXf7LX7Tvhn9rr4N6b438JXi3ekanu8p8EH5Tg5B5HNfyo3ugSWmnw3LxDybkHY23g4r9lv" + + "+DY/wCND6z8OfFXg+4uNseh+V9liLf3iScCufC42cqqjJ6M5sFmNSrU5JpI/WKiiivZPYG7gDwfwrkvj" + + "X8Z9C+AXw41LxT4iufsmkaYoaaXBOM9K6vrnmvz+/4OH/2gY/hl+xfeeFYzsv8AxXtED55ARwT+lY4ip" + + "7Om5kVqipwc30HH/g4s+AqyOP7Xb5GKn9y/Y49Km0z/AIOIvgRqWp21qmrP5l1KkKfuX5ZiAO3qa/AvR" + + "fCVxrmhX9/DFuh0/aZ2C8Dd61J4EhUePdDyqH/T4O3/AE0WvEeYVb7ngLNq11dLX1P64NE1iLX9HtL6A" + + "5hu4lmQ+zAEfoatOMACuf8AhYw/4VpoO0cfYIP/AEWtdExytfQQd0mfRi0UUUxBRRRQAxiNw7mvH/25/" + + "wBmNv2v/wBmnX/AS6h/ZjawEAudm/ZtbPSvXyTtyRknpQuSuBzmonFSi4vqNxTVmfi54g/4Nf8AXra2X" + + "7D4881ySSPsYGP1rz3x1/wbcfFLw3bSPpGrf2y6j5Y/LWPdX7zEcH0+tIOCO4HeuF5dT6NnDLLaD+yfy" + + "6ftC/8ABN/4y/suRGfxd4QurWyfOyaJvO3Ad8LnFeHFvmKsGUrwVYYI/A1/XZ4g8K2HiqwktdRsrW9hm" + + "QoySxK4wRg9RX4tf8Fv/wDgkVY/BPTbn4p/D2wNvowcvqttHkiIk4Uj6n0rixOBlTXPHVHmYzK+SPPSd" + + "7dD8xvDPiXUfBOvW2q6ReT2N9ZuJI5InK8g57V+7n/BFf8A4K3j9rPwzH4G8aTqnjTSkWOG4Y86iMdh0" + + "GAK/BZGyoPr1rt/2bfjfq/7Onxw8P8Ai/Rbh7e8066RSVPG1mCtkd+M1hQrypSvH5nHgsXKjUXZ7n9Ye" + + "QSAen86cWOBzg+lch8B/ipp/wAZ/hPofiHTrgXVtqFqjeYO7hRu/Wutb73rmvooyUkn3Prk7hcxpcQPG" + + "wykilWHqDxX5jft8fAxvhD8Zbi7t4TFpWsNutwBwCB8361+nbEE9ea8j/bD+AFv8ePhVeWyQg6paoXtJ" + + "cZKY5P50VI3RrQnyy12Z+WHTv8ASkZdoH+c1a1vRLrw3rFxYXkTQXVs5RlYc8GqzHbj+dcx6J3/AOzJ8" + + "eLv9nf4oW2qoWfTpnC3cIOAw6A/hX6lfDn4laR8UvC1rq2k3cVzbXKZGG5B7gjrX46sAcg85rsvg5+0B" + + "4q+BOqGbQr+VIGILwH5g3sM9KuE7HPUpKR+lvxz/ZR8I/Hm1zq2nx/bFB8udflK/l1rwV/+CRmjNebhr" + + "rCIHOzyj09KqeAf+CtNpJZRRa9ozW0yjDSCXdu9+K760/4Kd+AZ7PzJLho3I5Ta3FaNwZio1Y6I7b4Cf" + + "sX+DfgV5dzY2ST6mv3rh+d34HpXe/Ef4laR8KfCl1q+r3cdta2yZO48k9gB1r5Z8df8FYtIsrWWPRNLa" + + "+uCCEYyFce/NfKPxp/aJ8VfHzU1m1y+lNojEx2oOAmfp1pOol8I1RlJ3mXP2nvj9dftFfEy41Zg0OnQu" + + "VtICchR0J/GvPSNpx1HekAwMDg0bsL6D+dYt9Tq6WQfdByOf5195f8ABL34Ev4c8K3PirULbEuqYNszD" + + "lNvBr5U/ZY+A938f/ijZ6ciMunQSB7qbHCY5H51+qvhfwza+EdAtdPtI1igtowgUcDgda0pxu7nPXnZc" + + "pp0UUV0HENkjWVCrqGU9QRkGqf/AAi+m/8AQPsf+/Cf4VeooAz/APhGNN3f8g6x/wC/Cf4V8C/8HEdjb" + + "6X+wdrC29raw+YY8lIlU/fHcCv0JP3hX59f8HGv/Jimq/VP/QxXJjF+6kYYn+DL0Z+CPhAlfFGj46/bI" + + "P8A0Na/qq/Zo0iy1T4G+HJprGyaRrKPJMCf3B7V/Kp4UyfE2j+v2uD/ANDWv6s/2Wv+SDeG8f8APnH/A" + + "OgCvPyz+K/Q8nJdp/I7T/hF9N/6B9j/AN+E/wAKfa6LZ2L74LS2hf8AvJEqn9BVuivasj3Qr8Vf+Dns4" + + "8e+BvrP/IV+1Vfir/wc9/8AI++BvrP/ACFefmf8L5o48f8AwJHzN/wQttYr/wD4KS+CoriKOaJvO3JIo" + + "ZT+7PY1/RePB2j78f2Xppx/06p/hX86f/BCFv8AjZZ4G9f3/wD6LNf0fYxJU5av3cvX9Ec2UfwfmZ//A" + + "Ahmj/8AQK03/wABk/wo/wCEM0f/AKBWm/8AgMn+FaVFejyo9UzB4O0hSCNK00Ecg/Zk/wAK0VQIoAAAH" + + "QAcCnE4oPQ1VgGg8cda/nz/AODhti37b91kkgYwM/7Ff0GjgV/Pj/wcNj/jOC79sf8AoFedmX8Jep52a" + + "fwGaP8Awbo/8njP/n+Gv38PAr8Av+Dc/wD5PIf/AD/BX7+t0p5Z/Dfr/kGV/wC7odRRRXoHohRRRQBj/" + + "EH/AJELW/8Arwn/APRbV/Jj8Vv+Sk+If+v+f/0Y1f1n/EH/AJELW/8Arwn/APRbV/Jh8Vv+Sk+If+v+f" + + "/0Y1eRmn2Pn+h4mc7RP3s/4IBWFprX7Bmgpd2NlceT5m1pIEZj857kV9z/8Ido+edK03P8A17J/hXw//" + + "wAG9vH7COi+g3/+hmvvIrnPvXXgl+4iephreyj6Izv+EM0f/oFab/4DJ/hR/wAIZo//AECtN/8AAZP8K" + + "0qK6uVG5UsdFs9L3G1tLa2L/e8qJU3fXAq3RRVAZviTV00Pw/fXrsoFnbyTZJwPlUn+lfy9f8FC/wBoi" + + "5/ah/a28V+KppWe3luPJgQnIj2ZU4/Kv6F/+CmnxKm+Ev7GHjHW7dzHLDAIwQcY3ZX+tfzA38731/dSs" + + "SXubh2z7sx/xrxszqPmUPmeLnNWyjTR+hf/AAQA/YUsv2jPjZd+NvEFsLjSvCjI0MTrlZywx+hFfvTYa" + + "fDpNklvbRpDDEoVERQoAFfF/wDwQX+D1n8Nv+Cf/hi9FqItW1bzGu5O8gD/AC/pX2uV+U+ldmApKFJPq" + + "9T0MDRVOjFDZD8uOua/PD/gu7/wT60X43fs/XnjrSbOKDxN4cXenlR4M4Y85x6AV+iLMHyOornPix4et" + + "vFHw012xuoVuIprGbKEZyfLbH61rXpKpBpm9alGpBwl1P5K9Ov59C1m2uoXaKexukfcDggo4J/lX9P/A" + + "PwTa+O9x+0f+xz4Q8V3TeZPdwGJj/1zwv8ASv5qfiB8HfE2jeN9cthoOrER305XFpIQR5jY7V+9n/BAT" + + "VdQ/wCGBfD2k6jY3FjJppk+WZCrcuexFeTl0nGrbujxcpU4VJQaPuMjkHpWZ4x15PDnhXUr9nWMWdtJL" + + "uY4AKqSP5Vpl8Hpmvmr/grZ8ULn4QfsI+NNbtJDFPBEkYYHBw52n+de1VnyQcux7c2oxcmfz1/tv/tAX" + + "/7TH7T/AIq8W6hcNcNc3LRJnooQlePyr71/4N4P2AbH4m+IL34o+KLBbm108qdIEq5Rych+Ohr8tiftV" + + "8T1N1ckn3Lv/wDXr+lz/gj98Nl+GH7B/g2wMIinMbu/GC2WyP514eDpqpWXNr1Pnsth7au6k+mvzPp20" + + "tIrC2WKGNIo0GFVFAAH0FTUUV9AfRnyz/wVG/YO0L9sr9njV7ZrCCPxFYQNNZXioA8W3LN9c471/Ndrm" + + "kXPhfX7qyuVaK7025ZMdwUY4P6V/XVq1oNQ0y5gbkXETxn8QR/Wv5i/+CpHwmX4K/t1+ONAjTZFBKkig" + + "DA+cbv6142Y0kpKa6ni5xSXKqq3P2l/4IU/tNH4/wD7Fuj2V7cG41vQlKXZZssAWwufwFfbOTnA5r8Wv" + + "+DYb4txaJ468c+GJ2LNqXkfZwT9zaCTgV+0objnp6124GfNSV+mh6OCqupRjJlLxV/yLGp/9esv/oBr+" + + "Vf9sn/k53xh/wBfTfzNf1UeKv8AkWNT/wCvWX/0A1/Kv+2T/wAnO+MP+vpv5muTNN4/P9Dhzj+EvU9Cv" + + "Pg0Ne/4J+23jG3i3HRSRdyAfd3SYWvWP+Dfv4vnwB+3RpOhtOYrfxLu3gnAbYhIr0D9hb4UzfGv/gkf8" + + "U9Bhi82WRIJUGMkbHLH+VfDf7LPxLufgl+0f4b1+1cx3Gl6gLfPTGXCGvOguRxn8/xOF/u6lKp3S/4J/" + + "WCHDAHselKRzWN4I1Zdc8H6Vdq6yLc2kUm5TkZKAmthOlfTxd1c+lGtgcY5Nfhr/wAHLPx2PjH45+HvC" + + "Ebgr4b8zzFB6bwDzX7g6zf/ANlaRd3JORbwvKf+AqT/AEr+YH/gpt8a2/aE/bc8ZeIElMltdTpBCM5AK" + + "/J/OvNzKdoKPf8AQ83NanLR5e52X7NXwoiX/gm/8cvF08f7yA2ItmK+smDg181+AZN/jjQvT7fAf/Ii1" + + "+pet/Ay1+E//BuXrV21r5Gr6v5T3bnrIBPlf0r8svh6QvjbQf8Ar+t//Ri15NWnyxj5q542Ip+zlTj5L" + + "8z+sv4Uf8ky0L/rwg/9FrXR1znwn/5JloX/AGD4P/Ra10dfSUvhXoj6xhRRRWohhbsefamqxQdDtNfBG" + + "pf8HDnwP03UpLeTU2DR458p+f0qvJ/wcU/A5doGpMS7BQPKfucelcn12j/MY/WqK+0vvP0AxgDvmlRs8" + + "54PtXI/BH4x6V8evhtp3ijQ5fN03U0LRPgjpXWo2Rg/nXTFqSujo6aElFFFUSM2E9evauJ/aH+Glj8XP" + + "gx4g0HUYlmtbuzkJVhkEhSR+tduTtH9KranCLrTLmI9HiZT+KkVM4qSafUHqj+Sr4q+DpPh78S9c0WQF" + + "Xs7yUAHjA3nH6Vz8h2jcOo+bH0r6A/4Kl+EYPA37e3jrTrcjyo5UYYGOozXz+3EZ9hXyrVtD4qvHlqSj" + + "2bP6Hf+CBHxWf4gfsEeHrSYlptN8xWy2Ty/FfcLDnpzX5kf8G0Uzv8As4aqpYlFK7V9PmNfpueR719Dg" + + "23Ri2fXYWXNSi32Q6kIDDB5FLRXWbnyF+3/APsYt42il8W+G7cDVIxuuoUGPtA/pgV8HzQSW8zQyo0ck" + + "ZKsrDBUiv2pkhWeIq6hlYYOec18nfth/wDBPyD4gNdeI/CyLb6sRvltlGBcf0FY1KbeqOylWXwyPgbPP" + + "8jScjjuKv8AibwrqXgrVpbHU7Sa1uYTtZXU4/A1Rz7/ACisToGsN3XBpPJT0H5UtFACBADwAKUnFFIWA" + + "PvQA8jB9cdTW38Ovh1qvxV8W2ujaRbPc3Ny2MqOFHck/Stz4Kfs7+JfjxrqWukWUwtlYCad12iMH69a/" + + "R39mb9lHQv2ePDUaW0Udxqsqg3F2Ry59gelVCDkRUqqJP8Asv8A7Nul/s7+BoLGALNqMyBrq424Mh64/" + + "CvUeVX1NI2XBx0/nQASOTj1rpSSVkcEpNu7H0UUUyQooooARf6V+ff/AAcZf8mMap9U/wDQxX6CL/Svz" + + "7/4OMv+TGNU+qf+hiuXG/wpGGK/gy9Gfgf4T/5GfR/+vuD/ANDWv6s/2Wf+SC+Gv+vOP/0AV/KZ4T/5G" + + "fR/+vuD/wBDWv6s/wBln/kgvhr/AK84/wD0AV52WfxX6Hk5LtL5HoVFFFe2e6Ffir/wc9/8j74G+s/8h" + + "X7VV+Kv/Bz3/wAj74G+s/8AIV52Z/wvmjjx/wDAkfNH/BCY/wDGy3wPjP8Ay3/9F1/R62SRgfWv5QP2a" + + "P2h9c/ZZ+LuneNfDj+Xq+m7vJbA43DB619Zn/g4Z+OWOLzr/sJ/hXHg8XClFxkmeZl+NpUaXLN6n9CFF" + + "fz3f8RDHxx/5+x/3wlH/EQx8cf+fsf98JXX/aUOzO3+1cP3P6C3GTnBGKkB8yvxy/4Jcf8ABZL4q/tS/" + + "to+GvBXiScTaPqvm+cNqjG1MjpX7FsfmAxkD3rroVo1o80TuoV4Vo80CSv57/8Ag4b/AOT37r8P/QK/o" + + "Qr+e/8A4OG/+T37r8P/AECuTM/4S9TizT+AzR/4Nz/+TyH/AM/wV+/rdK/AL/g3P/5PIf8Az/BX7+t0q" + + "ss/hfP9EGV/7uh1FFFegeiFFFFAGR8Qf+RC1v8A68J//RbV/Jh8Vv8AkpPiH/r/AJ//AEY1f1n/ABB/5" + + "ELW/wDrwn/9FtX8mPxSG74meIB/0/z/APoxq8jNPsfP9DxM52ifvl/wb3rj9hHRCQf4+3+2a+8FwMd6/" + + "mu/Zg/4LAfFH9k/4U2Xg/w1OI9Lsd3lAKuRk5PJr0Rf+Dhf45Ff+Pz/AMdT/Clh8dCnTUGnoa0Myoxpx" + + "i3sj+hCkYZ47Gv58P8AiIZ+OX/P5/44lI//AAcN/HI4xe45/uJ/hW39pU+z/A1/tSh3P6DguO+QKUHkd" + + "/6V8/f8Eyv2h9c/ah/Y88NeMfERzq2piTzunOGwOlfQCj5gSMV3U5qcVJdT0IyUlzI+Jv8Agvv4xbwz/" + + "wAE7vFcSEg3PlDj/fFfzu2K+bfWSrz5tzED7ZcV+83/AAcgeI7rT/2NptPjI+z3xHm++HGK/CDw6P8Ai" + + "oNIPb7ZBx/wNa8PHu9ZnzubO9eK8v1P6iv+Ce3hKPwV+yV4RsIuEjtQ3TH3gDXta/livPf2WQD8AvDOA" + + "APsUfH/AAAV6Exyo969ugrU4ryR9FD4Uh1NZQ6kEAg8EHvTqK1GZEngTQ5XLNoukszckm0jJP6Vd03Sb" + + "XR4PLtba3tox/DDGEX8hVqilYLDGIVRngV+f3/BxJ4/fw7+xDqGlJN5aasV3Jj7+1xX6AvzkHpmvzD/A" + + "ODmTWxafs/aHZ7dxvC+D6YYVy41/uZf11MMXK1GT8mfiN4bt/tfiLSI8ffvoFP4yLX9YH7PXhGLwL8F/" + + "DmnRY2RWMTDA/vIpr+VH4X6emq/Efw9byHCPfwH8pFr+szwAgj8CaKAfu2FuP8AyGtcOVx95v0PLyVaS" + + "fobVFFB6V7J7Yw4JPHWv53/APg4B8Prpf7f2uXgOWv9meOmEFf0Q43Ee9fgb/wcdW8UX7W9g6qA8m7ef" + + "X5RXm5n/DXqedmivh2/Q53/AIN7vET6V+3Zplkpwt/u3D1whr+hPg9RwK/nG/4ISahJY/8ABRXwiI/uy" + + "GXI/wCAV/Rxk7R/nNGWP3JLzFlWtBepS8Vf8ixqf/XrL/6Aa/lY/bJ/5Od8Yf8AX038zX9U/in/AJFfU" + + "/8Ar0k/9ANfysftk/8AJzvjD/r6b+ZrLNPij8/0Mc5/hL1P1Z/4N2tCj8S/sneN7KaMSpcWrJtPckNiv" + + "yX/AGlfh/P8Hv2iPEGizxNbz6dqBn2kYIBkLCv2A/4NlgP+FDeIcjIJQY/4Ea+J/wDg4H+DcngD9unVd" + + "fMQitfFIXycLgHYmDXLVh+4hP1Rjiad8HCfax+wv/BJD4st8ZP2FPB2sSz+fO0TxuSckbTgfyr6X6sce" + + "nSvyt/4Nj/jXP4p+EvinwdPMDD4ZMXkIW/vkk4FfqkSQMV6+DlzUov5fcexhqntKUZd0eO/t6fGZvgH+" + + "yv4q8SqQrWtsYwT/tgr/Wv5i/APh+5+LnxqsbIBpLjVtW80gckjzsn9DX7d/wDBx98fj8PP2T4vCEbbL" + + "jxcfkYHGPLYE1+an/BEH4MR/Fz9vzws95bG603Sy73IPQEplc/jXmY5uddQXp955mP/AHleFI/Uv/gr9" + + "4Ftvhv/AMEZNf0i1ULDbWdlwBjklSa/A/4ef8jvoOP+f6D/ANGLX9Dv/Be+Bbb/AIJcePI0G1IhbKo9A" + + "JABX88Xw9OPG2g/9f0H/oxanMVaaS7HNmS/fx+X5n9ZfwnGPhloX/XhB/6LWujrnPhN/wAkx0H/ALB8H" + + "/ota6OvapfCvRH0bCiiitRH8jHxG0ltI8aXlvKiiSPGR+FYyQqbmAbQQZkxx/tCvWf26fh3N8Jv2rvE/" + + "h6ZDHJY+VlT7rmvJpCcbhyUO4fhXySVj4mrHlqNPoz+nH/glIAn7DPgwAj/AFLd/evopeM8/Svij/ggt" + + "8ZrL4mfsDeG9PSZW1PRxIt1FnJjy/y5/CvtgLg8d/0r6XCyTpRt2PsqElKmmuxJRRRXQaDAMZ9R2pl3/" + + "wAekueoQ/yp7HI4OCayfHOrpoPhDVbuaVYo4LSV9zHABCE1MnZXKP5rv+CwbBv+Cinj7BBG+LkHP8NfN" + + "MhxbsfUV6F+1n8Rj8W/2kfFXiBnMpu7tk3E5+6xFefSr5jKuPvsFHvk4r5aTu7nxOJalVk13Z+6/wDwb" + + "Y+HJdP/AGUrnUWYmO/PyDHTDGv0mDgrnPSvjv8A4Ic/DL/hXn/BP/wmsilZ7lZGdSMEfNkV9hADPvX0G" + + "Cjy0Ypn12GXLSjF9EiSiiius2CgjIoooA89+MX7N3hb436cIdZ02GR4wfLkUbCCfp1r5R+LP/BKrUNOk" + + "lufDGpfaEflLTy8bP8AgRr7uySvShRls5zUSgpamsa0o7H5U+Jf2IviV4Zl2y6Czg9CJAc1kj9k74iFh" + + "/xTsuD/ALYr9a5IEl+8iN9RmozZRF8eTHj12Cs/YruarE+R+YnhL/gnz8SPE7xGXSTZ27nmQyA7fwr6G" + + "+Dn/BLXSPDl3BdeJr/+2CuGMGwx7T9RX11HGI1wAB9KHO4AjpVxppEyxEnsY/hHwTpfgPSYrHS7KG2t4" + + "RhQqjP51seZgn2pcjGfWmyL8wNaGO71H0UUUEhRRRQAUUUUAIv9K/Pv/g4y/wCTGNU+qf8AoYr9BF/pX" + + "59/8HGX/JjGqfVP/QxXLjf4UjnxX8GXoz8D/Cf/ACM+j/8AX3B/6Gtf1Z/ss/8AJBfDX/XnH/6AK/lM8" + + "J/8jPo//X3B/wChrX9Wf7LP/JBfDX/XnH/6AK87LP4r9Dysl+GXyPQqKKK9s90K/FX/AIOe/wDkffA31" + + "n/kK/aqvxV/4Oe/+R98DfWf+Qrzsz/hfNHHj/4Ej4D/AGI/2VJv20/2i9G+H1vrA0OXWN+LvyvM8vaue" + + "lfoM3/Bq5rIkx/wtrPv/Zo4/WvmD/ghEMf8FLvA/wD23/8ARZr+jtl2nHPPeubBYWFWDlPuedl2Do1aX" + + "NUV3c/GL/iFb1r/AKKyf/BaP8aP+IVvWv8AorJ/8Fo/xr9oce9Fdn9nUvM7/wCzcN/L+LPzG/4J/f8AB" + + "ATU/wBi79qPQviFcfEQa5Fo/mA2YsvL8zcuOtfpsVyPl60p7imkbiMflXRRoxpK0Tqo0IUo8sFZElfz3" + + "/8ABw3/AMnv3X4f+gV/QhX89/8AwcN/8nv3X4f+gVx5n/CXqcWafwGaP/Buf/yeQ/8An+Cv39bpX4Bf8" + + "G5//J5D/wCf4K/f1ulVln8L5/ogyv8A3dDqKKK9A9EKKKKAMj4g/wDIha3/ANeE/wD6Lav5MfikdvxM8" + + "QH/AKf5/wD0Y1f1nfEH/kQtb/68J/8A0W1fyYfFb/kpPiH/AK/5/wD0Y1eRmn2Pn+h4mc7RPtr9g7/gh" + + "ZqX7c3wLs/G1t4+/sGO93bbX7H5mMHHWvbB/wAGrWtBl/4u316/8S0f419W/wDBvex/4YR0TnON/H/Az" + + "X3cSAB1zV4XB050lKW7Oihl2HlTjJx1aXVn4x/8QrOtf9FaH/gtH+NIf+DVrWjj/i7XQ5/5Bo/xr9oqK" + + "3+oUTX+zsP/AC/i/wDM8W/YL/Zan/Y3/Zo0LwFPq/8Abcmjh/8ASvL8vfubPSvZV+dueRTnUseOKZtJX" + + "g4NdUIKMVFdDujFKNkfm5/wconP7KEBAJGf/ZhX4X+HuPEGk+95B/6Gtf0Af8HEPhwaj+wDr10sPmS2h" + + "j2t/dy4r+fvRZTDq+luR9y7hOP+BrXg45fvWfN5rpXi/L9T+rj9lg4+AXhrPezj/wDQBXoQX5cA9K8v/" + + "Y41pfEH7OHha5Qgq9mg4Poor1Hg5969yj/Dj6I+ji/dQtFFVtUv10vTLm5YZW2iaVh7KCf6VqMlxkjFA" + + "JBJAH51+bnxH/4ONfAPw78c6nokmjtK+nSmNm8xhuIJHp7V9S/sEft46H+3h8O5tf0S2NqkJwybicc47" + + "1zU8VTnLli9TKFeE5csWmz3515AJ4r8t/8Ag5vspZfgt4YlVd0URk3t6fMK/UhycAnqDX5v/wDByPoU1" + + "9+yfDdxjKWh+fjplhUY3+BL5fmRjNaMvRn4i/BvA+K3hvnAF9D14x861/WL4CA/4QfRjnB+wQf+i1r+S" + + "XwfcNb+L9DkU7St/bnPp+8Wv60vhbfR6l8N9AlibejafB83v5a1x5XvL5Hl5K/dkjoaKKK9g9wa5AP1r" + + "8EP+DkH/k7LT+Mfe59flFfvg39K/n4/4OJPELap+2vLZNjbYY2/igrzsyf7pep52afwH8vzOF/4IYEp/" + + "wAFF/B+OcGXt/sV/R8rAqAOoHSv52/+CAumfbv+Cg/h2fZvFv5nzemUNf0Rhs9u/wCdTli9yT8/0DKf4" + + "PzKfinnwvqf/XpJ/wCgGv5WP2yf+TnfGH/X038zX9U/in/kV9T/AOvST/0A1/Kx+2T/AMnO+MP+vpv5m" + + "s80+KPz/Qwzn+EvU/XP/g2U5+A/iDPcp/6Ea5z/AIOd/hAur+CfCHiqC2+bSvN8+QD+8QBmui/4Nllz8" + + "CfEPuU4/wCBGvpz/gsZ8Gm+NX7B3jDTLe3E16kaSQnGWUK2Tj8BThDmwdvV/ibwhz4Tl8j8k/8Ag3w+L" + + "L+Bf23bDQzcGG38RZ8xc4D7UJFf0JDLYwflPNfyj/sk/FSf4E/tN+GPEULmObTb/wCzE5xjc4Q1/U3Y+" + + "IVk+GUOqB1Yf2YLncDkf6rdTy2paMo9jPKal6Tj2Z+HX/ByL8d5/H/7TWl+ETKGt/CO/Cjt5ig17N/wb" + + "C/BuOG28a+LLmEF7jyfs7svTGQcGvzg/b/+MUnx8/bA8W+IfNMi312LePnOCp2V+7//AARL+CsXwd/YO" + + "8LJLafZ9VvkeS5Y8Fxuyv6GubC3q4nmfmzHC/vcZKp2/wCGKP8AwX5/5Rg+Pvrb/wDowV/O/wDD3/kdd" + + "C/6/oP/AEYtf0Qf8F+f+UYPj762/wD6MFfzv/D3/kddC/6/oP8A0YtPM/4q9DHNP48fl+Z/WX8KP+SZa" + + "F/14Qf+i1ro65z4Uf8AJMtC/wCvCD/0WtdHXsUvhXoj6JhRRRWoj+f3/g4h+AV38Nv2xT4ua28uy8X/A" + + "OqcDg+WoBr4CAyeenev6Nf+C0n7D4/bB/Za1B9LsvtHivQYzLpzA8oM5f8AQV/OfeafcaLqFxZXMbw3d" + + "pI0UiOCpBUkHg/SvnMXS9nVa76ny+aYdwq8/Rn3J/wQ3/4KCWn7IXx3k8O+JLs2vhfxU6RyztkrbFfu8" + + "e5Nf0D6Lrdr4g0uC9s7iO5trpBJHJGwZWBGRyK/kPIKkEFlZTuBBwQa+1/2Fv8Agt/8Sf2QtJtNA1Xf4" + + "q8L2fFvayOEaAd/m6mtsJjFTXJLY6MBmMaa9nU27n9Eu/A/zzSGQnjnPvX5wfCj/g5E+FHiiOP/AISKE" + + "+H5CBuX5pcfkK67xz/wcK/AXQtKM2ma2dUuAMiLyXTJ+uK9L69Q35j2liqLV+ZfefeJbahJwFHOa/Nb/" + + "gu1/wAFNtI+EHwj1D4a+F79JvFmtLslmhfP2IA5I44ORXzz+11/wck69428Pz6P8ONEOiyTqyf2n5ocq" + + "Dx90j0r8xvGvjTVviP4ru9c129m1HU79y80sjE5PsO1cWKx6lHkp9ep5uNzOCi4Und9zMGZWd2bc8jF2" + + "Y9yTk11/wAAfhTqHxz+Nfh3wtpcDXF3qF3G2xR1VWBb9M1x8hEYPc9hX64f8G7v/BPK9/tQ/GPxRp7wx" + + "LzoZlXBPVX4P9a86jSdSaiup4+CoOtVS6dT9Yvgr8PNP+Ffwu0TQtNtxZ2tlaRr5Y5w2wbv1rq0bpjpS" + + "mMbQOmOlNIyOmAK+njFJWR9itrElFFFUIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigBF/pX" + + "59/8HGX/JjGqfVP/QxX6CL/AEr8+/8Ag4y/5MY1T6p/6GK5cb/Ckc+K/gy9Gfgf4T/5GfR/+vuD/wBDW" + + "v6s/wBln/kgvhr/AK84/wD0AV/KZ4T/AORn0f8A6+4P/Q1r+rP9ln/kgvhr/rzj/wDQBXnZZ/FfoeVku" + + "0vkehUUUV7Z7oV+Kv8Awc9/8j74G+s/8hX7VV+Kv/Bz3/yPvgb6z/yFedmf8L5o48f/AAJHzR/wQi/5S" + + "X+B/wDtv/6Lr+kA/fFfzf8A/BCL/lJf4H/7b/8Aouv6QCPnFLLP4b9f0Rz5T/BFooor0j1AooooAK/nv" + + "/4OG/8Ak9+6/D/0Cv6EK/nv/wCDhv8A5Pfuvw/9Arzcz/hL1POzT+AzR/4Nz/8Ak8h/8/wV+/rdK/AP/" + + "g3R/wCTxn/z/DX7+MOKrLP4b9f0QZX/ALuh1FFFegeiFFFFAGP8Qf8AkRta/wCwfP8A+i2r+TH4rf8AJ" + + "SfEP/X/AD/+jGr+s74g/wDIja1/2D5//RbV/Jj8Vf8AkpXiH/r/AJ//AEY1eRmm8PmeLnPwx9T98v8Ag" + + "3t/5MU0X6v/AOhmvvLsfpXwb/wb3D/jBPRPq/8A6Ga+8+x+lduD/gxPUw/8KPohaKKK6jYKKKKAPlT/A" + + "ILNeDm8bf8ABPvxtaJD5s2yNlH0bNfzVAm3mGRgwTZ+m1v/AK1f1pfGvwHafEz4U67o17ELiC7s5RsPd" + + "ghx+tfyp/G34d3nwp+LviLw9qELW1zZXcmY2GCFZiV/SvEzOFqil3X5HhZzT1jP5H9Gv/BHPx4PiP8As" + + "AeCdTDhmeORG5yRtbFfUJbb+Nfkp/wbUftY2t34R1j4aapfrFNppT+zLdj/AKzcSzYr9a5AGOev416GD" + + "qKVKPloethKiqUoy8hSMdP/ANVZHju4W18DazKxChLGdjnoMRtWqSFyelfLf/BXb9qC1/Zl/Y58RXq3q" + + "22r3sXlWcefmlBO1sfga3qzUIOT6GtSSjFt9D+cz426+PFfxZ8SX/ysZr2Zc464dhX7mf8ABuV4Ck8P/" + + "saW+qsmItVJ2H12ua/BNA+sawowWl1G8HQZJMkn/wBev6dv+CXXwSn/AGef2J/B3hq5QpPbQGZhjn94d" + + "w/nXiZfC9a/ZHhZSnOrKp/Wp9BlcuSegr46/wCC6fgYeMP+CdXjFo4DNeWwiaLHUfPzX2M+CK4P9pX4a" + + "Wnxb+CPiLQbtBJDd2ch2kZyVUkfrXs1489OUV2PcqQ5oOPc/k/06U2up2cg+Vre6jb6bXB/pX9SP/BPT" + + "4h/8LQ/ZI8JawX80zWwTd67QBX8wXxC8J3Xgbx1rWk3iNFc2N5KNpGCBvOP0r91P+Ddz9qG1+Kf7Kq+C" + + "5riM6n4R4lVmAY+YxIwO/FeNl0+WrZ9UeFlMuWpKm+v6H6LUUUV759AQvII4y7nCqCSfav5u/8AguD4x" + + "i8Y/wDBR/xv9nlE1rbmERsDx9zmv6Gvjh8Q9P8AhT8Ktc1zVrpLOys7SQmRjwGKHH61/K58e/iPL8Wfj" + + "J4i8RTOZHvrqTBJySFYgfpXk5lU2h8zyc4qJU1Huz7u/wCDbb4by+Jv2ndZ1xYy8eh7MvjhdykV+8a4H" + + "pk1+X//AAbP/Aq48FfAbXvGc0RWLxaU8olf+ebEV+noXCiujLoWo37nXl9PloRTKfir/kWNT/69Zf8A0" + + "A1/Kx+2T/yc74w/6+m/ma/qn8UjHhfU/wDr0l/9ANfysftk/wDJzvjD/r6b+ZrmzTePz/Q4s5/hL1P1y" + + "/4NlufgR4gx6p/6Ea/Sn4jaHD4k8C6xZTxiWO5tJUKnudhxX5rf8Gy/HwH8QjHIKf8AoRr9QfLEwIPKs" + + "MEV04FXoJep34P+DH0R/Jz+0P4Bm+EH7QOu6NIjQy6bqRnCkYK5kLCv3G8AftkXuj/8EWl+IEd3uv4rF" + + "rUuTkgE+X/Kvza/4L5fBs/DX9urWtVjg8ix8Q7TAAMAlU5rkdJ/bVmsf+CZt/8ACIXB3TFSFzyP3m6vI" + + "hN0ZSXqjx6NT2FapF9r/wCR4P8ABLwJP8Zvj1pGkqGlm1XVPPYDkt+93Gv6rfhd4Zt/CPw70XTrWJYob" + + "aziXaBgA7Bmv57/APgg18Fm+KX7d2hahNa/atO0DcbnI4Usny5/Gv6LYYhHGqqMKAFA9AK9DK4aOb9Ds" + + "yiFqbm+rPjf/gvz/wAowfH31t//AEYK/nf+Hv8AyOuhf9f0H/oxa/og/wCC/P8AyjB8ffW3/wDRgr+d/" + + "wCHv/I66F/1/Qf+jFrnzP8Air0OPNP48fl+Z/WX8KP+SZaF/wBeEH/ota6Ouc+FH/JMtC/68IP/AEWtd" + + "HXsUvhXoj6JhRRRWoivPbJd2rxSgOjqUIPQg8GvyK/4LIf8ET73xTrV98SfhdZB72TMt/psYAEuB1B7d" + + "zxX68nkc/dFNmhWaLayqysMFWGRXPiMPGrG0jKvQhWjyTP5Dtb0e98N6pNY6laXFld27FJI5oymCDjuK" + + "r9jg5Ff0x/tZ/8ABKT4Q/tcpd3WueHreHWrgfJeRfu9h9dq4r8//jN/wbB6lYRz3fhPxz9o5Jjs/smNo" + + "9NxNeNUwNWGyuvI+frZTVi/c1R+TXlKQcgZPtQIlAxgZ9MV9061/wAG+Hx302822umi9Tkb/MRc1HpP/" + + "Bvr8er29EdzpP2WI9ZPNRsVh7Cp/K/uOb6hiP5T4cxtbstEMcl1KscEUtxI5ChIkLkn6Cv1L+Dn/BsV4" + + "n8REz+KfG/9jLGQTb/ZBJ5g7jINfdH7Jf8AwRP+EH7MVxb6idJi1nXIMEXcudpPrtORW1PBVZ9Lep0Uc" + + "pqyfv6I/Nf/AIJdf8EQfE/7R+tab4y8fWkmj+EInWa3t5B81/g557rgiv3b8DeDNP8Ah94Ws9H0y2jtb" + + "KxiWKONFCgAADtV6w0yHSrVbe2hjggiACJGoVV/AVOFOOBx/OvYw2FjSWm572GwsKEOWBJRRRXUdAUUU" + + "UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBESTt/lX5/f8HF3/JimqemU5/4GK/QMZB4HW" + + "vjb/gtj+zZ4w/ac/ZF1Hw/4O07+09UkKERBwucOD3rlxaboySMsSnKlJLsz+dfwmT/wk2jjoPtcH/oa1" + + "/Vj+y6n/FhfDX/XnH/6AK/ny8Pf8EYf2hrfW9Nlfwa6JFcxOzeenADgn+Vf0OfADwzd+EPhDoem30fk3" + + "draokqZzghQDXn5bB+0ba6Hm5TRnTUudW2O0ooor2j1yPJwcnIr8Wf+DnsE+PfAxP8A02/kK/aZWyP88" + + "V+Wv/BfH9hX4m/tX+MPCV34I0JtVt9P83ziJAuMgY61wZgm6Wnc5cdCUqLjFXZ+Wf7A37UcP7Gf7Tuh+" + + "P59O/tVNI35tt+zfuXHWv0pP/B0fpoHHw5Jx/0/H/Cvhs/8EWP2ieM+CX5/6eEpo/4Ir/tD8Y8Ev/4EJ" + + "Xk0qtWmrRuvkeLQeLpR5IRdvQ+5/wDiKS03/onLf+B3/wBak/4iktN/6Jy3/gd/9avhj/hyz+0N/wBCT" + + "J/4EJR/w5Z/aG/6EmT/AMCErT63iO7+419vjv5fwPuiL/g6N02a7tof+Fct+/njhz9u6bmC56e9fqZ8L" + + "fHSfEnwHpmtpCYF1CBZtmc7MgHH61/OdB/wRd/aFt9SsZX8FOFiu4nY+enADgk/lX9Dn7Pfha88GfBvw" + + "/pl/H5V3a2kaSJnoQoBFduCrVZzaqPS3Y9DA1K8ub26ttY7bcA3oT0r+fP/AIOHM/8ADcFzkccf+gCv6" + + "ClG7O7pX41f8Fpf+Cbvxd/aR/aum1/wj4bbU9LmxskEqr0UDvV5jFukrdysxpynRcYK7Phr/gnX+3Gf2" + + "DPjA/isaH/bxb/lh5vl9sda+8j/AMHTVyx4+F+M/wDT/wBP0r42H/BFn9odm/5Ep+P+nhKVv+CLH7RCt" + + "z4Jf3/0hK8mFSrBWg2jx6MsZSjyxi7eh9kf8RS9z/0TIf8AgfSf8RTNz/0TA/8AgfXxt/w5b/aH/wChK" + + "k/8CEo/4ct/tD/9CVJ/4EJWn1jEd2be3x/b8D7P0v8A4OjLjUtZs7X/AIVlsF1OkRb7fnbuYDPT3r9Zf" + + "hl41/4WJ4G0zWhD5H9oQLN5ec7MqDjP41/OtoH/AARi/aEtvE+myv4MeNIrqKRz568AOCa/oa+Bfhm68" + + "H/CfQtPvovJu7S1jSRM5wQoBruwNWrOTVRu1j0cDUryT9uvTQ2PH+D4E1vt/oE//otq/k1+KGJPiTr/A" + + "P1/z/8Aoxq/rO8Y2Ump+E9Vt4VzLcWc0cY9WKED9TX86Xjv/gjV+0HqnjvWbmDwc8kNxeSyI3nqNylyR" + + "+hqcyi242Xf9DnzWjOoo8iuesf8E7v+C4dl+w98ALDwZN4R/th7Pd+++07M5Oele9H/AIOj9NOT/wAK6" + + "P8A4Hf/AFq+Gf8Ahy1+0P1/4Qp8/wDXwlDf8EWP2hlOT4Jf/wACErjhXrwXLFu3p/wDkhVxsYqKjt5H3" + + "P8A8RSWm/8AROW/8Dv/AK1H/EUlpv8A0Tlv/A7/AOtXwv8A8OWf2hv+hJk/8CEo/wCHLX7Qw/5kmT/wI" + + "Sq+t4ju/uK9vjv5fwP11/4Juf8ABZKy/wCCgfj/AFLQYfCx0N9P2/P9o8zdkZr7ePLZz0r8lv8AghL/A" + + "ME9vin+y78Zde1fxpoB0qxudnluZFbdgH0r9ayvTtXq4KpOdPmqb3PYwk6kqadVWYjKGBzgg8H3r8Ov+" + + "Dif9hm7+H/xgHxZ0e2abTtf/wCQmYo+LbaAq9PWv3GY7fvD8a5D43fBLw/+0D8OdR8MeJLGK/0zUIyjo" + + "45B7EH2NViqHtYW69AxVBVqbgz+WD4C/HbxF+zj8UNM8YeFL57LVtMfcjLyHB+8COnI4r9nv2S/+DjD4" + + "d+ONAtLf4iKfC+oxoElkO6beQMZ4HevjX9u3/ggh8Q/gX4h1HWPh/aP4m8N7zII1xGbYE5xzya+HPFnw" + + "l8U+CL2S31Tw9q0E8RwwW0kfB+oFeLGdWjK2zPApzxOEbi1p+B++/xh/wCC/wD8BvBHhWW70LxB/b1+q" + + "kpbCF49x7DNfjx/wUb/AOCknij/AIKDfEOK91JH07w7pjMNP07flYgepJ756814P4c+GfiTxXdLDYeH9" + + "YmlJwA9pIoz+Ir6+/Yv/wCCHXxW/aZ8SafN4hsZPCnhiVg8t44DkqOcbevPSnUrVa75X9yLqYjE4lckV" + + "Zf11MH/AII8fsKal+2H+0zp95PZSP4S8OyrLqEzLhM9Ux68jtX9HmladHpGl2trEAI7aJYlA9FAA/lXm" + + "v7Jf7JHhT9j34U2fhfwtZRW0FugEkoX5pm7knr1r1KOIAccV62Cw3so+9uz2MFhVQp269SSo5oFuInjc" + + "ZV1KkeoNSUV2nWfgb/wX+/YSu/gf8fJPiFo1m7+H/FDFpxGh22hUY5x6mvkj9jL9sTxN+xT8X7PxV4cm" + + "keJXBu7QNhbpenP0r+nH47fAbw3+0Z8NtR8LeKdPh1DTNRjKMrjlT2IPUYNfh/+3B/wQC+IvwR1691T4" + + "fwt4p0BnaXy1xEbZc5xzya8PFYWVOXPDby6HhY3BVI1fbUT9Dv2bP8AgvT8GPi74UtpPEGsL4d1h0Alt" + + "WRpMN9a9F8Wf8FjfgB4QsZJrvxrF8illCwMcnHTiv5yvGPwT8X/AA+u5IdV8O6vaTRnDCO3kbB+oFZWm" + + "eDde1258q30fXp3PAD2suP1FTHMayVtGSs1rL3ZQ1Pvv/gqz/wW2vv2xPDU/gTwTA+meE5GK3dyr5OoA" + + "HK8HlcV8S/s9/AvXf2kvjDovg/w3aS3l/qVwuQo4Cggtk9BxnrXrP7OP/BKn4zftJapDHpfhi4s9Od1E" + + "t1KQnlqe+04r9sv+Cav/BJTwn+wVoiXjvHrfiu5RWuNRePaQ2OgB6Yzjis6dKriJ8z+8mlh6+Jqe0rKy" + + "/rY92/ZI+AFj+zJ8AvD/g/T1VYdMgBYAY+dgC365r0lRjgjp0pSMoOM47UDIBBPPavoIxUUorofRKNlZ" + + "Gf4qbHhjUsn/l1l/wDQDX8rf7ZP/JzvjA9R9qb+Zr+qfxBaPeaBfQoMyS28iKPcqQK/nx/ab/4JAfHvx" + + "n8evE2p6d4Pe4sby4Z4pROo3Ak15WZJ+60u/wCh5ea0Z1KaUFfU+2f+DZbP/Ch/EGPVOP8AgRr9Qd2G6" + + "4FfAv8AwQh/ZL8c/sp/B7WLPxvpTaVc3hXy0Lhs4J9K++lUNiuvApqir/1qduEg40YqW9j8lP8Ag58+D" + + "qap4U8F+LILfDaV532iQDruIAzX43b8JkE4xk+lf0yf8FZP2YtQ/ar/AGN/EfhvQ7Fb7X5Qhs1yARhsn" + + "k1+ISf8EWv2h2AX/hCn2b9h/wBIXpnGa8zHUnGq2lueNmWFqSq80I3uj7x/4Nhvg8uieCPGXi2a3ydb8" + + "nyXZem0kHBr9ZgccenWvm7/AIJX/syX/wCyl+x34b8Ma3ZLZ65bq5u1BBOS2RyK+kOSc5xjrXq4Wm4UU" + + "mexhaXs6UYnxn/wX1Of+CYPj/n/AJ9//Rgr+eH4fZPjfQAP+f63/wDRi1/SR/wWL+B/iX9or9gPxj4T8" + + "JWRv9d1HyDbwBgu/a4J6+1fiz4K/wCCM37Qdj4s0aeXwbJHDBdwyO3nqcKrqSf0rzsyi3VVl0PJzHD1J" + + "14yjFtaH9FPwqGfhroXb/QIP/Ra10KrgD2rG+H2mS6N4I0i0nGJrazhjcejBACPzFbJXOfevYh8KPcQt" + + "FFFWMKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA" + + "ooooAKayCRcMAR6EU6igCP7NH/zyT/vkVIBiiigAooooAKbJEsn3lVseozTqKAGfZ4/+eaf98ij7PH/A" + + "M80/wC+RT6KVgGfZYv+ecf/AHyKPssX/POP/vkU+iiwEf2aP/nkn/fIqQDFFFMApjwpIcsqsfcZp9FAE" + + "f2aP/nkn/fIpfs8f/PNP++RT6KVgGfZYv8AnnH/AN8ij7LF/wA84/8AvkU+iiwEf2aPOfLTP+6Kkoopg" + + "FR/Z4z/AMsk/wC+RUlFAEf2aP8A55J/3yKPs0f/ADyT/vkVJRRYBn2WL/nnH/3yKPssX/POP/vkU+ilY" + + "BscSx/dVV+gxTqKKYBRRRQAye3S5iKSIroeqsMg1lXHw/0K6JMui6TIT1LWcZJ/StdyR0GaXrSauFjGh" + + "+H2gWxzHomkIfVbOMf0rTtrOGyi2QxRwoP4UUKP0qVV2jFKRmlyoLBRRRVAFFFFABTJYUuIyjqrqeoYZ" + + "Bp9FAGRceA9EvMmXRtKkJ677SNv6VGvw58Pw8poWjqfayj/AMK26KnlQrIrWWj2mlri1tba3HpFGqfyF" + + "WaKKoYUUUUAFRm3jY5KISfYVJRQA1Y1jXAUAegFOoooACMio/s0f/PJP++RUlFABRRRQA10DrhgCPQjN" + + "NFvGOkacf7IqSigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA" + + "ooooAKKKKAAHNVtT1OHSLGW5uG2RQqWZvQVOxwc+tY/xA0ebX/CN/a2/wDrp4WRfqQRQONr6nmkn7eXw" + + "yjldG8QJuRirDyW4IOKX/hvX4Yf9DCn/flq+MLj/gnB8SHvrhxYkrJM7j96vQsSKZ/w7f8AiRx/oP8A5" + + "FWseefY7FSpdz7T/wCG8vhh/wBDAP8Av01H/DeXww/6GAf9+mr4r/4dw/En/oHn/v8ALR/w7h+JX/QPP" + + "/f5aOefYXsafc+1P+G8vhh/0MA/79NR/wAN5fDD/oYB/wB+mr4r/wCHcPxK/wCgef8Av8tH/DuH4lf9A" + + "8/9/lo559g9jT7n2p/w3l8MP+hgH/fpqP8AhvL4Yf8AQwD/AL9NXxX/AMO4fiV/0Dz/AN/lo/4dw/Er/" + + "oHn/v8ALRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8N5fDD/AKGAf9+mr4r/AOHcPxK/6B5/7/LR/wAO4fiV/" + + "wBA8/8Af5aOefYPY0+59qf8N5fDD/oYB/36aj/hvL4Yf9DAP+/TV8V/8O4fiV/0Dz/3+Wj/AIdw/Er/A" + + "KB5/wC/y0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/6GAf9+mr4r/4dw/Er/oHn/v8tH/DuH4lf9A8/" + + "wDf5aOefYPY0+59qf8ADeXww/6GAf8AfpqP+G8vhh/0MA/79NXxX/w7h+JX/QPP/f5aP+HcPxK/6B5/7" + + "/LRzz7B7Gn3PtT/AIby+GH/AEMA/wC/TUf8N5fDD/oYB/36aviv/h3D8Sv+gef+/wAtH/DuH4lf9A8/9" + + "/lo559g9jT7n2p/w3l8MP8AoYB/36aj/hvL4Yf9DAP+/TV8V/8ADuH4lf8AQPP/AH+Wj/h3D8Sv+gef+" + + "/y0c8+wexp9z7U/4by+GH/QwD/v01H/AA3l8MP+hgH/AH6aviv/AIdw/Er/AKB5/wC/y0f8O4fiV/0Dz" + + "/3+Wjnn2D2NPufan/DeXww/6GAf9+mo/wCG8vhh/wBDAP8Av01fFf8Aw7h+JX/QPP8A3+Wj/h3D8Sv+g" + + "ef+/wAtHPPsHsafc+1P+G8vhh/0MA/79NR/w3l8MP8AoYB/36aviv8A4dw/Er/oHn/v8tH/AA7h+JX/A" + + "EDz/wB/lo559g9jT7n2p/w3l8MP+hgH/fpqP+G8vhh/0MA/79NXxX/w7h+JX/QPP/f5aP8Ah3D8Sv8Ao" + + "Hn/AL/LRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8N5fDD/oYB/36aviv/h3D8Sv+gef+/y0f8O4fiV/0Dz/A" + + "N/lo559g9jT7n2p/wAN5fDD/oYB/wB+mo/4by+GH/QwD/v01fFf/DuH4lf9A8/9/lo/4dw/Er/oHn/v8" + + "tHPPsHsafc+1P8AhvL4Yf8AQwD/AL9NR/w3l8MP+hgH/fpq+K/+HcPxK/6B5/7/AC0f8O4fiV/0Dz/3+" + + "Wjnn2D2NPufan/DeXww/wChgH/fpqP+G8vhh/0MA/79NXxX/wAO4fiV/wBA8/8Af5aP+HcPxK/6B5/7/" + + "LRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8ADeXww/6GAf8Afpq+K/8Ah3D8Sv8AoHn/AL/LR/w7h+JX/QPP/" + + "f5aOefYPY0+59qf8N5fDD/oYB/36aj/AIby+GH/AEMA/wC/TV8V/wDDuH4lf9A8/wDf5aP+HcPxK/6B5" + + "/7/AC0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/wChgH/fpq+K/wDh3D8Sv+gef+/y0f8ADuH4lf8AQ" + + "PP/AH+Wjnn2D2NPufan/DeXww/6GAf9+mo/4by+GH/QwD/v01fFf/DuH4lf9A8/9/lo/wCHcPxK/wCge" + + "f8Av8tHPPsHsafc+1P+G8vhh/0MA/79NR/w3l8MP+hgH/fpq+K/+HcPxK/6B5/7/LR/w7h+JX/QPP8A3" + + "+Wjnn2D2NPufan/AA3l8MP+hgH/AH6aj/hvL4Yf9DAP+/TV8V/8O4fiV/0Dz/3+Wj/h3D8Sv+gef+/y0" + + "c8+wexp9z7U/wCG8vhh/wBDAP8Av01H/DeXww/6GAf9+mr4r/4dw/Er/oHn/v8ALR/w7h+JX/QPP/f5a" + + "OefYPY0+59qf8N5fDD/AKGAf9+mo/4by+GH/QwD/v01fFf/AA7h+JX/AEDz/wB/lo/4dw/Er/oHn/v8t" + + "HPPsHsafc+1P+G8vhh/0MA/79NR/wAN5fDD/oYB/wB+mr4r/wCHcPxK/wCgef8Av8tH/DuH4lf9A8/9/" + + "lo559g9jT7n2p/w3l8MP+hgH/fpqP8AhvL4Yf8AQwD/AL9NXxX/AMO4fiV/0Dz/AN/lo/4dw/Er/oHn/" + + "v8ALRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8N5fDD/AKGAf9+mr4r/AOHcPxK/6B5/7/LR/wAO4fiV/wBA8" + + "/8Af5aOefYPY0+59qf8N5fDD/oYB/36aj/hvL4Yf9DAP+/TV8V/8O4fiV/0Dz/3+Wj/AIdw/Er/AKB5/" + + "wC/y0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/6GAf9+mr4r/4dw/Er/oHn/v8tH/DuH4lf9A8/wDf5" + + "aOefYPY0+59qf8ADeXww/6GAf8AfpqP+G8vhj/0MA/79NXxX/w7h+JX/QPP/f5aP+HcPxK/6B5/7/LRz" + + "z7B7Gn3PtI/t6/DBSc+IU9P9U1XB+2x8OCP+Q4v/fo18RD/AIJxfEkFf+JeeD/z1WuoT/gn94/Cj/Rj0" + + "/56Cjnn2E6NPuf/2Qs="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label78 = new DevExpress.XtraReports.UI.XRLabel(); + this.label77 = new DevExpress.XtraReports.UI.XRLabel(); + this.label76 = new DevExpress.XtraReports.UI.XRLabel(); + this.label73 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + this.Egységár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.ÁFA_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bizonylatszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Sztorno_számlaszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Számla_megnevezés = new DevExpress.XtraReports.UI.CalculatedField(); + this.Példányszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Fizetési_mód = new DevExpress.XtraReports.UI.CalculatedField(); + this.Mennyiségegység = new DevExpress.XtraReports.UI.CalculatedField(); + this.Adószám = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label49, + this.label74, + this.label48, + this.label45, + this.label44, + this.label43, + this.label78, + this.label77, + this.label76, + this.label73}); + this.detailBand1.HeightF = 53.125F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.label46, + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 469.4166F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.HeightF = 0F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // GroupHeader1 + // + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 0F; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label51, + this.subreport1, + this.label52, + this.label53, + this.label54, + this.label55, + this.label62, + this.label63, + this.label64, + this.label67, + this.label68, + this.label69, + this.label70, + this.label71, + this.label72, + this.label75}); + this.GroupFooter1.HeightF = 300F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 21.99999F); + this.label49.Multiline = true; + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(723.6666F, 23.00002F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Mennyiségegység")}); + this.label74.Font = new System.Drawing.Font("Arial", 9F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(305.0001F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(63.74997F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 9F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(542.2084F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 9F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(275F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(30F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 9F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(89.99999F, 1.999982F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(185F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label78 + // + this.label78.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg", "{0:#,###0.00}")}); + this.label78.Font = new System.Drawing.Font("Arial", 9F); + this.label78.LocationFloat = new DevExpress.Utils.PointFloat(672.2084F, 1.999982F); + this.label78.Name = "label78"; + this.label78.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label78.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label78.StylePriority.UseFont = false; + this.label78.StylePriority.UseTextAlignment = false; + this.label78.Text = "label78"; + this.label78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label77 + // + this.label77.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg", "{0:#,###0.00}")}); + this.label77.Font = new System.Drawing.Font("Arial", 9F); + this.label77.LocationFloat = new DevExpress.Utils.PointFloat(602.2084F, 1.999982F); + this.label77.Name = "label77"; + this.label77.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label77.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label77.StylePriority.UseFont = false; + this.label77.StylePriority.UseTextAlignment = false; + this.label77.Text = "label77"; + this.label77.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label76 + // + this.label76.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg", "{0:#,###0.00}")}); + this.label76.Font = new System.Drawing.Font("Arial", 9F); + this.label76.LocationFloat = new DevExpress.Utils.PointFloat(452.2084F, 1.999982F); + this.label76.Name = "label76"; + this.label76.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label76.SizeF = new System.Drawing.SizeF(85F, 20F); + this.label76.StylePriority.UseFont = false; + this.label76.StylePriority.UseTextAlignment = false; + this.label76.Text = "label76"; + this.label76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label73 + // + this.label73.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Egységár", "{0:#,###0.00}")}); + this.label73.Font = new System.Drawing.Font("Arial", 9F); + this.label73.LocationFloat = new DevExpress.Utils.PointFloat(367.2084F, 1.999982F); + this.label73.Name = "label73"; + this.label73.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label73.SizeF = new System.Drawing.SizeF(85F, 20.00001F); + this.label73.StylePriority.UseFont = false; + this.label73.StylePriority.UseTextAlignment = false; + this.label73.Text = "label73"; + this.label73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Példányszám")}); + this.label31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(585F, 244.7083F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(192F, 23.00003F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UsePadding = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Sztorno_számlaszám", "Sztornózott számla száma: {0}")}); + this.label46.Font = new System.Drawing.Font("Arial", 9F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(465.0153F, 267.7083F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(311.9845F, 23F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UsePadding = false; + this.label46.Text = "label46"; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 189.0834F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 269.0833F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 249.0834F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 229.0834F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 209.0834F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 189.0834F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 169.0834F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 421.25F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 376.2499F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 292.9167F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 137.9167F); + this.label14.Multiline = true; + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(311.9846F, 19.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 117.9167F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(311.9847F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585F, 189.0834F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(191.9999F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 269.0833F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 249.0834F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 229.0834F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 209.0834F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 189.0834F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 169.0834F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 137.9167F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 117.9167F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Számla_megnevezés")}); + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(280F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(497F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UsePadding = false; + this.label3.Text = "label3"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(15.99998F, 5F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(264F, 80F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 97.91666F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 97.91666F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(542.2084F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(462.2084F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(389.2916F, 2.999908F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(72.91666F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280.0001F, 3.000005F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.InvoicePeriod", "Settled period / Számlázási időszak: {0}")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(455.0153F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName", "Currency / Devizanem: {0}")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 20F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(239.9166F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UsePadding = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Fizetési_mód")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bizonylatszám")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.875F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 189.5417F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA - devizás"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 41.87501F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 94.66667F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 119.6667F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 144.6667F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 94.66667F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label62.Summary = summary1; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 119.6667F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 144.6667F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0.00}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label64.Summary = summary3; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 250.5001F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.StylePriority.UseTextAlignment = false; + this.label67.Text = "A 3C Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet 1.§ " + + "(6) bekezdés szerinti előírásainak ."; + this.label67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 265.5001F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 280.5F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 94.66667F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 119.6667F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 144.6667F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(3.125F, 169.5417F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(313.5416F, 20.00002F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // Egységár + // + this.Egységár.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[ListPriceHUF] ,[ListPriceDEV] )" + + ""; + this.Egységár.Name = "Egységár"; + // + // Nettó_összeg + // + this.Nettó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[PriceHUF],[PriceDEV] )"; + this.Nettó_összeg.Name = "Nettó_összeg"; + // + // ÁFA_összeg + // + this.ÁFA_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\', iif(isnull([SumPriceVATHUF]),0" + + ",[SumPriceVATHUF]), iif(isnull([SumPriceVATDEV]),0,[SumPriceVATDEV] ))"; + this.ÁFA_összeg.Name = "ÁFA_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[SumPriceBruttoHUF],[SumPriceBru" + + "ttoDEV])"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // Bizonylatszám + // + this.Bizonylatszám.Expression = "Iif([InvoiceHeader.IsProforma],[InvoiceHeader.DocumentNumberProforma] ,[InvoiceHe" + + "ader.DocumentNumber] )"; + this.Bizonylatszám.Name = "Bizonylatszám"; + // + // Sztorno_számlaszám + // + this.Sztorno_számlaszám.Expression = "Iif([InvoiceHeader.IsStorno], [InvoiceHeader.ConnectInfo] ,nothing)"; + this.Sztorno_számlaszám.Name = "Sztorno_számlaszám"; + // + // Számla_megnevezés + // + this.Számla_megnevezés.Expression = "Iif([InvoiceHeader.IsProforma],\'Proforma Invoice / Próbaszámla\' , \'Invoice / Szám" + + "la\' )"; + this.Számla_megnevezés.Name = "Számla_megnevezés"; + // + // Példányszám + // + this.Példányszám.Expression = "iif([InvoiceHeader.PrintCopy]<=1,\'Original/1. példány\',iif([InvoiceHeader.PrintCo" + + "py]>1,\'Copy/2. példány\',\'\'))"; + this.Példányszám.Name = "Példányszám"; + // + // Fizetési_mód + // + this.Fizetési_mód.Expression = "Iif(Lower([InvoiceHeader.PaymentOption.ShortName])= \'átutalás\', \'Bank transfer/Át" + + "utalás\' ,[InvoiceHeader.PaymentOption.ShortName] )"; + this.Fizetési_mód.Name = "Fizetési_mód"; + // + // Mennyiségegység + // + this.Mennyiségegység.Expression = "[Units.ShortName]+ iif(isnull([Units.ShortName_Gb]), \'\',\'/\'+[Units.ShortName_Gb])" + + ""; + this.Mennyiségegység.Name = "Mennyiségegység"; + // + // Adószám + // + this.Adószám.Expression = resources.GetString("Adószám.Expression"); + this.Adószám.Name = "Adószám"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter, + this.GroupHeader1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül, + this.Egységár, + this.Nettó_összeg, + this.ÁFA_összeg, + this.Bruttó_összeg, + this.Bizonylatszám, + this.Sztorno_számlaszám, + this.Számla_megnevezés, + this.Példányszám, + this.Fizetési_mód, + this.Mennyiségegység, + this.Adószám}); + this.DisplayName = "C3C kimenő számla - Domain"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla.repx new file mode 100644 index 0000000..ed60f79 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla.repx @@ -0,0 +1,2579 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label78; + private DevExpress.XtraReports.UI.XRLabel label77; + private DevExpress.XtraReports.UI.XRLabel label76; + private DevExpress.XtraReports.UI.XRLabel label73; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private DevExpress.XtraReports.UI.CalculatedField Egységár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_összeg; + private DevExpress.XtraReports.UI.CalculatedField ÁFA_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bizonylatszám; + private DevExpress.XtraReports.UI.CalculatedField Sztorno_számlaszám; + private DevExpress.XtraReports.UI.CalculatedField Számla_megnevezés; + private DevExpress.XtraReports.UI.CalculatedField Példányszám; + private DevExpress.XtraReports.UI.CalculatedField Fizetési_mód; + private DevExpress.XtraReports.UI.CalculatedField Adószám; + private DevExpress.XtraReports.UI.CalculatedField EU_Adószám; + private DevExpress.XtraReports.UI.CalculatedField Záradék; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAJAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5Z3Shu3SF5ywcZ0uN7j8d/gr" + + "BNR4gGHaUXkhuld1RwbeVYAAAANAQAAAAAAAI4AAABnAAAA9AAAACsAAAA2AQAAvwAAAMECAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUA5QAAAAxGAGkAbAB0AGUAcgAFAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgAHAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcACQEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQALAQAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUADAEAACRaAOEAcgBhAGQA6QBrAC4ARQB4AHAAcgBlAHMAcwBpAG8Ab" + + "gAhAQAAInAAaQBjAHQAdQByAGUAQgBvAHgAMQAuAEkAbQBhAGcAZQCnAgAAAeIBUHJpdmF0ZSBTdWIgc" + + "3VicmVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c" + + "3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlc" + + "G9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iSW52b2ljZUhlYWRlci5PaWQ9JyIgJiBsYWJlb" + + "Dc1LlRleHQuVG9TdHJpbmcgJiAiJyINCkVuZCBTdWINCgEeU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY" + + "2VSb3dzAQABAAEAAAETQzNDIGtpbWVuxZEgc3rDoW1sYQGDA0lpZihbSW52b2ljZUhlYWRlci5TYXZlZ" + + "F9DdXN0b21lcnNfQWRkcmVzc19Db3VudHJ5XSBpbiAoICdCRScgLCAnQkcnICwgJ0NaJyAsICdESycgL" + + "CAnREUnICwgJ0VFJyAsICdJRScgLCAnRUwnICwgJ0VTJyAsICdGUicgLCAnSVQnICwgJ0NZJyAsICdMV" + + "icgLCAnTFQnICwgJ0xVJyAsICdNVCcgLCAnTkwnICwgJ0FUJyAsICdQTCcgLCAnUFQnICwgJ1JPJyAsI" + + "CdTSScgLCAnU0snICwgJ0ZJJyAsICdTRScgLCAnVUsnICksJ1Byb2R1Y3RzZWxsaW5nIHRheCBmcmVlI" + + "HdpdGhpbiBFVSB3aXRoIHJpZ2h0IHRvIGRlZHVjdGlvbi4gLyBBZMOzbWVudGVzIEvDtnrDtnNzw6lnZ" + + "W4gYmVsw7xsaSB0ZXJtw6lrw6lydMOpa2Vzw610w6lzaSBsZXZvbsOhc2kgam9nZ2FsLicsIE5vdGhpb" + + "mcgKUAAAQAAAP////8BAAAAAAAAAAwCAAAAUVN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsI" + + "EN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYQUBAAAAFVN5c3Rlb" + + "S5EcmF3aW5nLkJpdG1hcAEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACjpQAAAv/Y/+AAEEpGSUYAAQEBA" + + "SwBLAAA/+ENsEV4aWYAAE1NACoAAAAIAAcBEgADAAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAA" + + "GoBKAADAAAAAQACAAABMQACAAAAGwAAAHIBMgACAAAAFAAAAI6HaQAEAAAAAQAAAKIAAADOASwAAAABA" + + "AABLAAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzAAAyMDEwOjAxOjA0IDE2OjUxOjQ2AAADo" + + "AEAAwAAAAH//wAAoAIABAAAAAEAAAFtoAMABAAAAAEAAABwAAAAAAAAAAYBAwADAAAAAQAGAAABGgAFA" + + "AAAAQAAARwBGwAFAAAAAQAAASQBKAADAAAAAQACAAACAQAEAAAAAQAAASwCAgAEAAAAAQAADHsAAAAAA" + + "AAASAAAAAEAAABIAAAAAf/Y/9sAQwAIBgYHBgUIBwcHCQkICgwUDQwLCwwZEhMPFB0aHx4dGhwcICQuJ" + + "yAiLCMcHCg3KSwwMTQ0NB8nOT04MjwuMzQy/9sAQwEJCQkMCwwYDQ0YMiEcITIyMjIyMjIyMjIyMjIyM" + + "jIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy/8AAEQgAMQCgAwEhAAIRAQMRAf/EAB8AA" + + "AEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBB" + + "hNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYW" + + "VpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIy" + + "crS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHC" + + "AkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0" + + "QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh" + + "4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9" + + "PX29/j5+v/aAAwDAQACEQMRAD8A9+LBQSSABySe1NiminTfFIki9NyMCKQDndUQu7BVUZJJwAK861TXt" + + "R17UPsenGRYGbbHHGcF/dj6foKTKiQHSde0eNryJmUR8yGGUMV/3hnn9RXY+GteGtWjCQBbqLAkA6EHo" + + "woQPU3KKZIUUAFFABRQAUUAFFABRQB4xdW998TfiBqGmzXktvo2mMy7YzkHa23I7bmO4gkHAGPrX8V+D" + + "bj4cpa6/wCHtUugFlEUiyYJ5yRnAAKnGCCPSsbXXMYNXTmeiarrX27wDBqMY8tr6GM7Qc7dwBZffjIrn" + + "dBkNpo+tXyZEyRJEjg4K7yQcfp+VaXudMdiho2qNpGoLchPMTaVePdjeCOn54P4VY8N6jHpmuRzyP5du" + + "wZJDjOFI4/UCgpo7v8A4SvRP+f5f+/bf4Uf8JXon/P8v/ftv8KdyOVh/wAJXon/AD/L/wB+2/wo/wCEr" + + "0T/AJ/l/wC/bf4UXDlYf8JXon/P8v8A37b/AAo/4SvRP+f5f+/bf4UXDlYf8JXon/P8v/ftv8KP+Er0T" + + "/n+X/v23+FFw5WH/CV6J/z/AC/9+2/wo/4SvRP+f5f+/bf4UXDlYf8ACV6J/wA/y/8Aftv8KP8AhK9E/" + + "wCf5f8Av23+FFw5WH/CV6J/z/L/AN+2/wAKP+Er0T/n+X/v23+FFw5WCafofheG/wBUjtorNGUy3UqKS" + + "SBk5IGSep6V5x438VweO4rbw34XjmvJZZhLJKUKIFAPHzYI5OSTjp3zUyslZGU2kuVHZaxo/wDZ3gC1s" + + "FYObGOJSwH3ioCk/qTXP6NGZ/DuuwJ9/ZFIB6hWJP8AKnsbR2Keg6YuratHayF1iKszsnVQB1/PH51P4" + + "WhM3iW0Cg7UZnJ9AAf/AK1BTOz1jxt4d0C++xanqAguNofZ5Ltwehyqkdqr2PxD8K6lfQ2VpqgkuJnCR" + + "p5Eg3E9slcUcy2MedXsP1Lx/wCF9I1CawvtTENzCQJE8iRsEgHqFI6EVd0rxRout2Fze6deCe2ts+a/l" + + "uu3AyeCATx6UcyvYFJN2LumalZ6xp0V/YSia1mBKSbSucEg8EA9Qag1rXtM8O2aXeq3It4HkESvsZssQ" + + "TjCgnoDTurXHdWuZNl8RPCmo3sNna6qJLidxHGnkSDcx6DJXFaeueI9I8N26T6rdrbrISsY2lmcjrhQC" + + "T256cj1pcytcSkmrkGheLdD8SPJHpd6sssQy8TIyOB64YDI9x6iptd8S6P4bgjl1W8SASkiNdpZnI64U" + + "An056cj1p8ytcfMrXItC8WaH4kaRNLvVmljGXiZGR1HrhgCR7in3fijRbHXINGub1Y9Qn2+XCY2+bccD" + + "5sY5I9aOZWuHMrXLupajZ6Rp819fzCG2hALyEE4ycdBz1IpulatY63p8d/p03n2shIWTaVzg4PBAPUUX" + + "1sO+tiGG+0bxFbXFvb3dnqEGNk6RSrIMHs2D3wa89+IngDRtP8ADk+s6Rbmyu7Rkf8AdO21huA6Z4Izn" + + "Ix0qZJNXImk1c63wRqMniTwJZT3/wC8klieGYn+PaxTJ9yBk+5rmLq11Hwnq3mxE7ORHKVysinsf6j2p" + + "rZM0g7obJ4hnlhkt7KwtLV7gbHa3iw757Cur8I6C+mQPdXS7bqYYCn+BeuPqf6CminojY1W3hk027d4Y" + + "2cQPhioJ+6a5j4WQQn4e6XKYkMmZvnKjP8ArX70vtGX2jEs9c0HRfiF4u/tyeGLzZLbyfNiL5wh3YwDj" + + "qK65NV0fWPC2qXOiyxSW6xSxs0cZQbgmcYIHYikmthRa2Knwy/5J3pH+7J/6MeqXxQmhttM0Ge4YLBHr" + + "Vu8hIyAoDk/pR9kPsGlpXinwhqmpQ2em3NrLeSEmNEgKk4BJwSo7A1j7YtU+NjJcLvXTNMDwqeiuWHzY" + + "9cOfyHpRdPYG07WOhu/DEc/jHT/ABFDceRLbxPFPGseftCkEKCcjGCc9DnA9KwLJBqfxn1SW4RHGmWMc" + + "UAIztLhW3D3+Zhn0NDVgaDxQI9N+JnhTUIV2y3hmtZyvHmLhQufXBbP4D0rmvH0EjeO7+9t0DXOnaVDe" + + "w5HRknQk/8AfJapl1FLqdb40uI9asdA0m3dZItZvImZQcb7dR5jkfgFo+E3Pw60/wD35f8A0Y1V9of2z" + + "hvC+sR/DPxhq+k6zFKlpcMDHOFz8qltj4HVSGOcZwRjHXGl49+Iula3oD6JoJmvbi9ZULLEyhRuBwAQC" + + "zEgDAHc1HNaNiOZKLj1O+8FaNL4f8Iadp04xPHGWlGc4dmLEZHXBOPwrdkjSVCkiK6MMFWGQa1S0NUrK" + + "xBb6dZWjl7ezghY8Fo4wp/QVZpjKup/8gq7/wCuD/8AoJrmPhX/AMk50v6zf+jXqftE/aM7QrnTbf4he" + + "Mv7QmtI90lrs+0Moz8jZxn8K6q8uLC48PambCa2kQW8m77OykA7D1x3pK1gjsc38Odb0m18BaXBcapZQ" + + "zIr7o5LhFYfvGPIJp3xEuLafTPDlws0Ulsdbtm8wMChXD5OemKLrlFf3TprfUNBadFt7zTjMxwgjlTcS" + + "ewwc1yU0sGifGcXF24ih1TTfKhkfhTIGX5cnvhB/wB9D1odhvoat74guZfiHpWhadOrwpDLNqKqFbauM" + + "ICeqndjj/aHrWZayLpPxl1FbqRI01Wxje3ZjgMybV2j3+Vjj6UNib/MPErxar8TvC+nQPvlsfOurnbz5" + + "a4Uru9MlR/30PUUk1pHqHxa1Oymz5Vx4fMT467WkAP86W7Dr8zJ+H8tzrOv6el2hz4d057VwR/q52kZA" + + "Pf92g/Kug+E3/JOtO/3pf8A0Y1Eego9P67HUajo2mavEseo2FvdKudvnRhiueuCen4VX03wxoejyCXT9" + + "KtLeUZxIkY3jPX5utXZXuXZXua1FMYVHPcQWsfmXE0cUecbpGCj8zQBTk1bSJY2jfUbNkYFWHnryD+NV" + + "tNuPD2kWEdjYXdjBbR52RrcKQMkk9T6k0tAsZV/oXgbVL6W9vU06a5lILyNc4J4x2b0FW9NtfCej2dxa" + + "WElhBBcf61FuAQ3GO59KVo3uLkV72Mv/hEvh5/z7ab/AOBR/wDiq0rmx8IXmkW+lXD6fJY27BooTcDCk" + + "AgfxZ6E/nRyxDkXYp2nhzwHY3cN3bRabHPC4eNxc8qw5B+9WjrMXhXxBarbarNYXManK7rgAqfZgQR+B" + + "otG1g5Fa1iPRLTwl4cikj0mTT7YSHLkXAZm9MszE49s9zT9at/CniK3SDVpdPuUQ5QtcBWX1wwII/Oiy" + + "tYOXS1iPRLHwh4cWQaS+n25k++32gMx9tzMTj2zVtZfDq6u2qi7sRfND5Bm+0DJTOdvXHUU0khqNtBlg" + + "fDOmXF3cWVxYQy3knmXDLOuZGyTk8+pP50/TJvDuj2Edjp93YwW0ZO2NbgEDJyep9TRoHKbVFMAooAKz" + + "dc/5Brf7woGjlqKRQUUAFFABRQAUUAFFABQKAP/2QD/7RL2UGhvdG9zaG9wIDMuMAA4QklNBCUAAAAAA" + + "BAAAAAAAAAAAAAAAAAAAAAAOEJJTQPtAAAAAAAQASwAAAABAAIBLAAAAAEAAjhCSU0EJgAAAAAADgAAA" + + "AAAAAAAAAA/gAAAOEJJTQQNAAAAAAAEAAAAeDhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAAAAAA" + + "AAAAAEAOEJJTQQKAAAAAAABAAA4QklNJxAAAAAAAAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZgABA" + + "GxmZgAGAAAAAAABAC9mZgABAKGZmgAGAAAAAAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AAAAGA" + + "AAAAAABOEJJTQP4AAAAAABwAAD/////////////////////////////A+gAAAAA/////////////////" + + "////////////wPoAAAAAP////////////////////////////8D6AAAAAD//////////////////////" + + "///////A+gAADhCSU0EAAAAAAAAAgAAOEJJTQQCAAAAAAACAAA4QklNBAgAAAAAABAAAAABAAACQAAAA" + + "kAAAAAAOEJJTQQeAAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAHAAAAFtAAAACgBVA" + + "G4AdABpAHQAbABlAGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAFtAAAAcAAAA" + + "AAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIAAAAGYm91b" + + "mRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAA" + + "EJ0b21sb25nAAAAcAAAAABSZ2h0bG9uZwAAAW0AAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAAAAAB" + + "XNsaWNlAAAAEgAAAAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpbmVud" + + "W0AAAAMRVNsaWNlT3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlVHlwZ" + + "QAAAABJbWcgAAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAAAAAA" + + "ExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAHAAAAAAUmdodGxvbmcAAAFtAAAAA3VybFRFWFQAAAABA" + + "AAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAAAAEAAAAAA" + + "A5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxpZ25lbnVtA" + + "AAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNsaWNlVmVyd" + + "EFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlAAAAA" + + "E5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvbU91d" + + "HNldGxvbmcAAAAAAAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAT/wAAAAAAAAO" + + "EJJTQQRAAAAAAABAQA4QklNBBQAAAAAAAQAAAADOEJJTQQMAAAAAA0WAAAAAQAAAKAAAAAxAAAB4AAAW" + + "+AAAAz6ABgAAf/Y/+AAEEpGSUYAAQIBAEgASAAA/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAAAAB/" + + "9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAz/wAARCAAxAKADASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAAAAAA" + + "wABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMMwEAA" + + "hEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0NhfSV" + + "eJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBAgQEA" + + "wQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDByY1w" + + "tJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/" + + "9oADAMBAAIRAxEAPwD1Rzg0FziABqSdAo121Wt3VPbY3iWkEf8ARXm+Tj5n14+tuZgXZD6OldNc5uxuo" + + "/Ru9Dc1p/R+vkWC1/q2M/RVIX1j+qtv1NbR1roWZa2LG1PFm3dJlzN3pNqrux37NllVlabxHetGM5DqR" + + "G4jrfbf0vp7nNa0ucQGgSSdAAFx+d1jP6rlDHwi9tLjtqqrO1zx/pLX+3a3+T/Ns/wi0s/q32z6q05zB" + + "6Z6hVVLR+b6oa61n+b6layulPNGB1PMrO26utlVbxy31Cdxb/0E4Mizun9bwGuymOc0Va2GmzeWx/pa/" + + "wA5v7/tsXQ9C6v+0aHNthuTTHqAcOB+jaz+suV6Zmfs7LbkNZvbtcyysGN7SOHc/ne9F6LmV4PUq7nu9" + + "OghzLDzDCNzOP3XtrSU9yksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD/Nf/" + + "wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5Q/zX" + + "/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/uUP8" + + "1//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElP/0PQBgdB+r7Mzq" + + "rKW4jXA2ZdzQ5xIBdY5xY3e76T3fQauP+tn1ip+tVdHQvq7XZmW2Wi2y0tNbAGAwP02x/03b7LHfQ/4R" + + "duzJ6L1vHvxqr6OoUEbMiut7bBDuG2em523dtXH/Xf6l9Gw+jW9V6ZT9jyMMseRW521zS5rOC79FZXu9" + + "WuypNltpVMeS+HSuH9LvX9V3Oo9LOD9VMfCa7f9gZS1zh+ds212P/6W9ZnTgbOldVpbq/ZXaG9y1hc5/" + + "wD1C2PqjnWda+q2NdnfpbLGPpvJ/P2Ofj73fyrGM3PWNfRn9AzhY0wBIquIlljD/g7OPdp72f2604bLw" + + "QQCNiEPSsNufnV4znObW5rnveyJDWj6XuDm/TLEToNZt6vjBv0WudZP8lrXR/3xJ/WLHVvoxsejFdke2" + + "x2Oz9I+fzG/1lvfVzpD8Kt2TkN25FwDWs7sZztP8t/56SWXU/rd9Xek5ZwuoZjaMkNDzWWWO9rp2ma63" + + "t/NQsX68fVbMy6sPGz22ZF7gyqv07AS48Nl1bWrR6nVUcHKsLGl4pshxAJ+i7usX/F5VU76odNscxpeB" + + "bDyBP8APXfnJtm60W2eIDTvs2s766/Vjp+Xbh5mcKsik7bGFlhgwHfSbW5rva5Wem/WTovVcfIyen5Iv" + + "pxP594a9u3T1OLGMc72furlsLrPQul/Wv6x/tm6qkXW4/oi1pdO2t3qbYa/9+tdHV1Lo/UuiZ2R0iyu2" + + "hrLa7H1N2jeK920y1n5j2JCR7jyUDfUbnTydDp3UcPqeHVnYNnrY1wJrshzZAJYfbYGP+k391D6t1npn" + + "RsduT1K4Y9L3itry1zpeQ5+39E17voVvWV/i+/8R3Tf6j//AD5Yq3+MOyqnD6Rdc4Mpr6rjPtc7UBjW3" + + "Osc7n27Er9N+CjL034N3F+vX1UzMmrExs9tl+Q8V1M2WDc52jWy6sNV7rHXuk9Eobd1LIFDbCW1tgue8" + + "jtXVWH2OVDA+sv1Pzs2rFwcnHty7SfSYxhDiWg2O2uNbfzGuWcGV5/+Mx7bxvb0vADqGnUCx7m/pI/e2" + + "XpWa3B1pVmtwbNO30b6zdF62bGdOyPUtqE2Uva6uxomN3p2tY7b/KYidZ6/0nodTLep5AoFpLamQXPeR" + + "9L06qw+x22fc76CBk/V2u36yYfX6rRTZjV2VZFQZPrte0tq32b27fRcd30LFk4jG5v+MnPsvaH/ALMw6" + + "q8eRO027bXPb/L/AEtrErP1ulWfqTTtdG+s3RetmxnTsgWW1CbKXNdXY0cbvTtax23+W1SyfrH0bF6pV" + + "0nIyRXnX7fSpLXmd5Ir/SBnpe/b++sP6wsrwvrr9Xs+oBtuWb8XII03t2sFW+PpbHW/9QsX65ss/wCc2" + + "fk0NnI6f07Hz6T4Ox8lj3n/ALZdagZEDyKDIgHwNPoGfn4nTsS3NzbBTjUjdZYQTAnb9Fgc76RUOmdUw" + + "eq4jczp9vrY7i5oftc3Vp2v9tjWO+ksP615NfUaOjdOoPqV9YzKHub+9jVfrt7v81lSj/i2cX/VWl5/O" + + "uvP32PRv1Um/VXSn//RN0Hqtf1K+sXUum9VrezFyXAsta3cQ1rn/Z7wxv06Labf0np+p6dtfp/6RXPrl" + + "9eOl9S6W7pHRy/MuzXMY5za3tAG4O9OtljWW232ua2tjGVruc/pfTepVivqGLVlNbOwWsDts87C73M/s" + + "IGB9Xuh9Ns9XBwaaLdQLWsG+DyBYfem8J2vRi4JAGIkOE+HqFovqp0q3pH1fw8C+BfWwuuAgw+xzrrGb" + + "m+13pus9Naj2Me0se0OadC0iQfkpJJwZAKAA6IacPDoduoorqcfzmMa0/8ARCMkhX5OPjV+rkWsprkDe" + + "9waJPA3OSSj6l/ydlf8TZ/1Llif4uv/ABG9O+Fv/n65atnVei21uqszMdzHgtc02s1BEOH0kHp+T9W+m" + + "4deFg5ONRjUz6dbbWkDcTY76T3O+m5Ctb8EVqD4Fweiv6a361/Wb7e6hoNuN6frlg/wb9+z1f7K6G+zp" + + "z+k5rcB1LmNqs3igtIDiw/S9L87aszM6R9Q87Ksy8tuHdkXHdZY60STAb2s/darHT6Pqd0yi/HwX4lFW" + + "Vpextoh2mz3bnn80oAHw6oAI+0/i0fqJ1PpuP8AVPp1V+XRVa1j9zH2Ma4TZYdWucm+vV2PdhdEuY9ll" + + "DurYp9QFrqy2Ltx3/zexP8A83P8XP8AosLT/hv/AFKrl2L9TL+nU9LudiPwcZwdTQbRtaQHNn+c3f4Wx" + + "KjVaKo8NaN+m7oAuZ6FmJ65MV7DXv3HSGbfducufstq6X/jJ9XKcK6uq4Irosdo02scz9Fvd7d2yn/wW" + + "pWcfon+L/FyKsmhmHXdQ8WVPFolrmncx385+arvVh9U+s0DH6nbi5NbTubutaC0/wAiyt7LGf2HpUa6b" + + "qIJ7aatfM63kv8Arj0/o2Ba11LKrr+qMaGu2tjbjB7/AKVLvW/8+1qlj2M6f/jIzWZLhW3q2HU/GLjAe" + + "+rbT6Tf+E/R2LS6RR9T+iVvr6XZi44tINjhaHOdH0d1tr32bW/u71LqzPql1qltPU7MXJYwyybQ1zSfp" + + "bLa3ssZu/kvSo/W7VR363bmdffXn/XfoHT6HB9mD62VlBuvpt2s9H1I+hvfX/4JUmtxa8z/ABgZ+Jb/A" + + "DWR0U1P/qvtax3/AEXLR6RjfU3ogeOmPxcc2fzj/WD3n+SbbrLLNv8AI3Kw2/6tN6i7qgyMYZr6vQdf6" + + "rZNYPqen9Pb9MJcJ697Vw9+9vKfUl+R1LquCzJBJ+rmA/FeDpsyH2vxR/7I4q1/8Wf/AIkqP+Nu/wDPj" + + "lp4Vn1XwLsm/Evxabc1/q5L22tl79TvdL/5b0/Tb/qz0vFbh9PyMajHaS5tbbWkS47nfSe785IRIr6qj" + + "Eir8X//0vVUl8qpJKfqpJfKqSSn6qVTqX9G/tN/KvmBJJT9GJL5zSSS/RiS+c0klP0YkvnNJJT9Gpl85" + + "pJKfo1N3Xzmkkp+jfBMvnNJJT9GdkvD5L5zSSU//9k4QklNBCEAAAAAAFMAAAABAQAAAA8AQQBkAG8AY" + + "gBlACAAUABoAG8AdABvAHMAaABvAHAAAAASAEEAZABvAGIAZQAgAFAAaABvAHQAbwBzAGgAbwBwACAAQ" + + "wBTAAAAAQA4QklNBAYAAAAAAAcACAAAAAEBAP/hGAVodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvA" + + "Dw/eHBhY2tldCBiZWdpbj0n77u/JyBpZD0nVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkJz8+DQo8eDp4b" + + "XBtZXRhIHhtbG5zOng9ImFkb2JlOm5zOm1ldGEvIiB4OnhtcHRrPSJYTVAgdG9vbGtpdCAzLjAtMjgsI" + + "GZyYW1ld29yayAxLjYiPg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvMTk5O" + + "S8wMi8yMi1yZGYtc3ludGF4LW5zIyIgeG1sbnM6aVg9Imh0dHA6Ly9ucy5hZG9iZS5jb20vaVgvMS4wL" + + "yI+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05M" + + "mU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuMC8iP" + + "g0KCQkJPGV4aWY6Q29sb3JTcGFjZT40Mjk0OTY3Mjk1PC9leGlmOkNvbG9yU3BhY2U+DQoJCQk8ZXhpZ" + + "jpQaXhlbFhEaW1lbnNpb24+MzY1PC9leGlmOlBpeGVsWERpbWVuc2lvbj4NCgkJCTxleGlmOlBpeGVsW" + + "URpbWVuc2lvbj4xMTI8L2V4aWY6UGl4ZWxZRGltZW5zaW9uPg0KCQk8L3JkZjpEZXNjcmlwdGlvbj4NC" + + "gkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0OS0xMWRlLTkyZTktY" + + "zBlYzdmNGI2NzBkIiB4bWxuczpwZGY9Imh0dHA6Ly9ucy5hZG9iZS5jb20vcGRmLzEuMy8iPg0KCQk8L" + + "3JkZjpEZXNjcmlwdGlvbj4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmN" + + "DktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuczpwaG90b3Nob3A9Imh0dHA6Ly9ucy5hZ" + + "G9iZS5jb20vcGhvdG9zaG9wLzEuMC8iPg0KCQkJPHBob3Rvc2hvcDpIaXN0b3J5PjwvcGhvdG9zaG9wO" + + "khpc3Rvcnk+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphYm91d" + + "D0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnRpZmY9Imh0d" + + "HA6Ly9ucy5hZG9iZS5jb20vdGlmZi8xLjAvIj4NCgkJCTx0aWZmOk9yaWVudGF0aW9uPjE8L3RpZmY6T" + + "3JpZW50YXRpb24+DQoJCQk8dGlmZjpYUmVzb2x1dGlvbj4zMDAvMTwvdGlmZjpYUmVzb2x1dGlvbj4NC" + + "gkJCTx0aWZmOllSZXNvbHV0aW9uPjMwMC8xPC90aWZmOllSZXNvbHV0aW9uPg0KCQkJPHRpZmY6UmVzb" + + "2x1dGlvblVuaXQ+MjwvdGlmZjpSZXNvbHV0aW9uVW5pdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJC" + + "TxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5LWMwZ" + + "WM3ZjRiNjcwZCIgeG1sbnM6eGFwPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIj4NCgkJCTx4Y" + + "XA6Q3JlYXRlRGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6Q3JlYXRlRGF0ZT4NCgkJC" + + "Tx4YXA6TW9kaWZ5RGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6TW9kaWZ5RGF0ZT4NC" + + "gkJCTx4YXA6TWV0YWRhdGFEYXRlPjIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpNZXRhZGF0Y" + + "URhdGU+DQoJCQk8eGFwOkNyZWF0b3JUb29sPkFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzPC94YXA6Q" + + "3JlYXRvclRvb2w+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphY" + + "m91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnhhcE1NP" + + "SJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIj4NCgkJCTx4YXBNTTpEb2N1bWVudElEPmFkb" + + "2JlOmRvY2lkOnBob3Rvc2hvcDoxMDNlMGY0OC1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQ8L3hhc" + + "E1NOkRvY3VtZW50SUQ+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZ" + + "jphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOmRjP" + + "SJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyI+DQoJCQk8ZGM6Zm9ybWF0PmltYWdlL2pwZ" + + "Wc8L2RjOmZvcm1hdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJPC9yZGY6UkRGPg0KPC94OnhtcG1ld" + + "GE+DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgC" + + "iAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9J3cnPz7/2" + + "wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkOD" + + "w0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAz/wAARCADgAtoDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECA" + + "wQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0" + + "fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDh" + + "IWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6" + + "erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFB" + + "AQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2N" + + "zg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanq" + + "KmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAP" + + "wD9/KKKKzAKKKKACiiigAooooAKKKKACiiigAooooAaWynp/SmAgAgkBRyc9qbd3MVlbSTSuscaKWZmO" + + "AAK+Mf2wf8Agog+lXdx4e8GTBrhcxy3i9I/wqZSUVqaQg5aI+gPjf8AtdeEPgdZyLqGoRPfgfJbp828+" + + "mR0r5G+Jn/BULxR4juZF8P2n9kQchW3CTI9ea+Z9X1e78QahLd3txLc3E7FmZ2JyfoarjA4PIH6Vg6km" + + "dsaEYneeIv2m/HHiuVmvtYEvmHJ/cqKyIvjL4mhII1AAp0/diuYJzSqMn2rPqaLc9V8G/trfEXwZJGIN" + + "ZDwoeI/JX+dfQHwb/4KooZYLLxbYeShOHvN+f8Ax0V8V9G9KRgDkYyB1qlJrYhwT3R+xPw6+LGg/FLSE" + + "vdFv4rqFxnAOG/LrXQldxGBivx/+E/xn8QfBbxEmo6JfSwMrAvGTuVx6YPFfon+yf8Atj6V+0NoqQSsl" + + "lrUAAmt2bJJ9Qa3hUvozlnRcdYnuVFFFaHOFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU" + + "UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU" + + "UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU" + + "UUAIV+X3pGbYrE8ADP0pR+Ga8V/bW/aJj+BPwtuGglH9r3qFLaMdT2P6Gk3ZXZUU27Hif8AwUI/bGksJ" + + "5vBvhu72zfdvZUP3c8ivicgs7FmYsTlieSTU2palPrWoTXdzI01zcOXZ2OTyc1FwuP51yybbuz0YxUVZ" + + "CHjIo4z7etJJIFGT/8Arr2X9mX9i3xF+0ZcpcyiTStCz/x8Mud4+nWklfYbaSuzxl5wBkgtnptGaZ9qA" + + "biK5I9omr9OPhv/AME7fh54JsIvtGmjUL5B887OQGP0rvLb9mfwZbwCJNDtgmMcqDWnsmY+3ifkcsy55" + + "DoP9pSP504Nnpx+NfqT40/YU+HPjW0dLjRESVgdrq5G0/hXyV+0r/wTl1r4T2k2r+HZG1XTUy0kIXaYh" + + "/WpcGlcuNaMtEfNZXH+etangvxlqXw88SW2q6TcPbXlswZWU9R3BFZSP8zBgyOhKlWGCDTvu5zUln6k/" + + "sg/tO2X7Q3gKN2kWPWLJQt1ATyD0B9817ErFj161+Rv7PHxnvvgX8TLHV7eR/sxkC3EQOA4PGfwr9XPB" + + "Hi6z8c+FrPVLGVZ7e6jDBh0zjmuinK6szirU+V6GzRRRWhgFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF" + + "FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF" + + "FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBEVyc/lSqwLkAZ9aQnI44z3" + + "r5W/wCCoX/BSzQv2APhO9wGh1DxVqaMunWCyAM7Dgk+mM55rOrVjTi5y2FOahFylsj2f49/tSeCP2aPC" + + "9xq3jDXbTTLWBckFg0n/fI5r89/jx/wcyeEfBeq3Nr4N8NHxRGhwk/nmHPvgivyQ/aS/am8a/tY/ES68" + + "SeMNYury5uXLLEHKxxr2G0HBwK89VFXpya8WtmFST9zRHgV83m3amrI/Rfxv/wckfFPxHqRl0nSP7Ggy" + + "cReasn61Q0b/g41+MGn36TXVr9shU5MW5V3fpX57vKvcgY96BKrYIYfXNc3t6t78z+84/7Rr/zfkfr/A" + + "PCL/g6BivHht/FXgQ2S5Cvc/a931OAK+/v2Uf8AgpZ8Kv2urTb4a8RWrX8aqZreU+UUJ7AtjNfzB7RIO" + + "cf41f8ACvirVPAuvW+p6Lf3Wn3to4eN4pGUZHPIB5renjqsXq7o6KObVIv95qj+usMJRlcEN0IPWgEoR" + + "3Hevyp/4I+f8FuJvi5qFj8OvihdouvFRFZajIQou8DpjoMDA5r9VIJlmjV1bKOAwPqD0r2cPXjVjzR+Z" + + "9BRrwqw5oPQnoo60VuaEF1cpaWksrkBIVLk+wGa/Lj9t741SfGP41XvlSs+mac+21GeAcYb9a++P2yPi" + + "efhR8CNZ1KOUJcBAkY7ndwa/Kiad7qeWdyWeZ2ck+5zWNV9Dsw8ftDQ2KCSWyKAuSPemTS+XH7sQo/Gs" + + "FsdB65+xz+ztL+0P8UIoZYz/Y+muGu37HuP5V+oHhnwxZeDdDgsrGKO3t7ZMYVcdBXhn/BOL4QxfDz4G" + + "WuouuL7VgWmJHPB4roP23fjw3wN+Dd7c2koj1O7TZbjuc8H9K6IJRjzM5ajc58qOR/ac/4KI6J8FdTk0" + + "jSIE1rV4+JUV9oiPbnoa+crn/gpx49l1MzIgjgJyIeDgema+dZbibULya7uHaa4uHLu7HJOTmhflOTzW" + + "bqNnRGlFK1j7o+A3/BUvT/EusWuleLLD+ymmbYLsvvDn6DpX1xFcWviLS1dDHc2twmQRhlYEV+LskSyL" + + "zweo9Qa/QD/AIJd/Gu58afD668PX8zSzaLgRsxyXDGrpzd7Mxq0klzI8d/4KM/stwfCzxNF4o0WIrp+o" + + "km5jUcQEdPzNfMQfK5HT1r9Y/2sfh6PiT8Dta03YryNHvU7ckbea/JtYWtpZoScmKRkP4EioqRSehrRn" + + "zR1FI3LjHPY19z/APBLn49Nq2g3Pg6/uOdPx9jVjy+eWr4YXB4Peu6/Zo+JMnwn+NejawhIjik8t0zgN" + + "u4/rSjKzuOceZWP11oqtpd4NR063nBB86NX49wDVmuo80KKKKACiiigAooooAKKKKACiiigAooooAKKK" + + "KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK" + + "KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDk/jF8S9N+D3w21bxFqt0lrZ6" + + "dbu5kboG2naPzr+YT9tn9qTWv2vf2iNd8WarcSvDNcNHawMxKxKpK5A6cgV+yv/AAcVftISfCv9kk+Er" + + "Z2hvfGHEbg4KiNgT+lfgimVQHPJ5z6nvXh5jV5p8i2X5ng5xiHdUl6sV3C8jivqT9gr/gk18Q/26ruK8" + + "tIptA8MFhu1N493Hsp5rzz9gf8AZgn/AGvv2qfDPgsZSzvJvMuJQMhAnzYP1xX9OXwe+EmjfBbwDp3h7" + + "RLKGys7CFYwsagZIAyfzrPB4X2ru9kYZdgVV9+psfnd8PP+DaL4eaDYxL4g1g61Oq/O/ltHuP4GtXxN/" + + "wAG2fwo1OyK6dcNYTYP7zDPg9uM1+kjAOfelHK8jivV+o0P5fxZ7qwdBK3IvuPwA/bp/wCCBXj39l/RL" + + "jxB4Tvn8Y6PAC86pEIjar9Opr4DmikgnkikRo5YmKurDBUjjpX9eWpaXDq9jLb3EaTQTqUdHUEMCMGv5" + + "+f+C837Dtt+y3+0XB4k0O0S00Dxe7PHEv3Yig5/MmvNxmDVL34bHkZjl0YR9pS+aPhjTtUudC1S3vrOW" + + "S3vLORZYnRirAqc9R9K/or/AOCLn7er/tnfs2W0OsXSz+K/D0axagDwQOifoK/nOLDIOfqfWvvH/g3w+" + + "Ot38NP20rbw0t0YtP8AFOROpPD7FJFY4Ss6dVdnuc2WV3Cry9Gf0HUUiMGUEdDzS19GfUHxP/wVj8eeV" + + "BoOiwTHEu/7Qg79xmviheuew/SvoH/gpL4i/tj9oS8s+osMY59Vr5/4HQ//AFq5Zu8melSVopAoP0zU+" + + "haedX8Q2FqqljLcIMeo3Cq1dh+z1pQ1r45+HrUjIklJxjPTmo5UUfrD8NvD8PhbwRpllAAscVuhwPUqD" + + "Xw7/wAFXPH51nx5o2iqcLYb94z1yM9K++NMUQ6dbr02RKP0r8x/+Cieo/2l+07qig5EG3HP+zXRV0jY5" + + "KCvJtniFFFFYHWKBnnrX0T/AMEx/Ey6H8b7m3mnSCK6xy7BQcD3r52bBGeue9Pt7qa0cvBLJBL/AHkYq" + + "f0oTswkrqx+x3iPxLpk+g3qG/sjut5Bjzl/un3r8e/FNmll4r1OKMgoLlyCO+WNR/2/qeP+Qje89f37c" + + "/rVdmLOxJLZ5JPU1Up8xnTp8g2lRzDNHIDgxur/AJHNJSN901JofrB+x747f4ifADQtTdtzyRlDzk/Kc" + + "V6gvAx6V8of8EtPGRuvhRdaZNMgj04jYrMBjca+qBqcHGZ4P++xXVDWKPPqxtJliiof7St/+e8P/fYo/" + + "tK3/wCe8P8A32KoizJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/" + + "fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK" + + "3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0" + + "rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfY" + + "oCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/" + + "wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7" + + "St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoC" + + "zJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57" + + "w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/A" + + "J7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJ" + + "qKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8" + + "P8A32KP7St/+e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+" + + "e8P/fYoCzJqKh/tK3/57w/99ij+0rf/AJ7w/wDfYoCzJqKh/tK3/wCe8P8A32KP7St/+e8P/fYoCzJqK" + + "g/tKD/nvD/32Kd9ug/57Rf99igR+J3/AAc5/Ed9c+KngrQi37vS/O4/3gDX5a/w+wr9EP8Ag4g0PWtc/" + + "a+hEGnahdW0edjRW7uv3R3Ar4DPgbXsH/iR6vj/AK85P/ia+YxMr1ZX7ny2YRk68tP6sfph/wAGyvweh" + + "8UfFrxd4okQPJonleUxH3NwINft1jBGa/JT/g1/0LUNF0L4jm9sLuz3/Z9hmhaPfyemQK/Wn5iP5V7OX" + + "xSpJ97nu5fG1CKJKKKK7jsGSnA/GvzQ/wCDlb4cHxD+zPpviDywx0En5v7u9gK/TB8HIJxmvgH/AIOJ5" + + "kj/AGDdYVmAdmjwO5+cVyY1Xoy/rqYYtXoyXkfz/qd0an25r2v/AIJx+Ip/Cf7bngi9tiVlSdlGD64Fe" + + "JxnNuvuBXsH7AqPN+2J4KWNSzG4OABk9q+fW58lhP40fVH9S2hy+fotnI3V4EY/ioqxO/lwux6KpNVfD" + + "ox4fsAev2eP/wBBFT6h/wAeU3/XNv5V9Utj7VH5T/tq6sNb/ae8STK/mJuQA/hXlxOOvXvXf/tTkt+0D" + + "4gzz+8GPyrgM4HPOa5D1I/CA+6a9K/Yw5/aq8K5AI3Sdf8AdrzUfdNelfsX8/tVeFj/ALUn8qCXsfrBn" + + "FmP9z+lflT+2+xb9qDxDkn7yfyr9VWbbY57eX/Svyk/bSvk1D9pzxGU52Mg/St62yObDdTzCiiisDqCi" + + "iigAooooAKKKKAOh8G/FDxH4Ahmi0O9uLZZ8eYI0LZxWyf2k/iAP+Yvfn/tg3Ne8/8ABL/wNo3je/8AE" + + "SarYx3hj8vyy38HrX2If2efCAOf7Itcj/YH+FXGm2rmcqyi7M/ML/hpL4hf9Be//wC/Bo/4aS+IX/QXv" + + "/8Avwa/T/8A4Z38I/8AQGtv++RR/wAM7+Ef+gNbf98iq9lIn61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+" + + "IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwa" + + "P8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe" + + "/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+" + + "IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8w" + + "P8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2U" + + "g+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t" + + "/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+E" + + "f8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+R" + + "R/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0B" + + "rb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+G" + + "d/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa" + + "/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe" + + "/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+" + + "IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwa" + + "P8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe" + + "/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+" + + "IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8w" + + "P8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2"; + resourceString += "Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t" + + "/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+E" + + "f8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+R" + + "R/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0B" + + "rb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+G" + + "d/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa" + + "/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe" + + "/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+IX/AEF7/wD78Gj/AIaS+" + + "IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8wP8AhpL4hf8AQXv/APvwa" + + "P8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2Ug+tRPzA/wCGkviF/wBBe" + + "/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t/3yKPZSD61E/MD/AIaS+" + + "IX/AEF7/wD78Gj/AIaS+IX/AEF7/wD78Gv0/wD+Gd/CP/QGtv8AvkUf8M7+Ef8AoDW3/fIo9lIPrUT8w" + + "P8AhpL4hf8AQXv/APvwaP8AhpL4hf8AQXv/APvwa/T/AP4Z38I/9Aa2/wC+RR/wzv4R/wCgNbf98ij2U" + + "g+tRPzA/wCGkviF/wBBe/8A+/Bo/wCGkviF/wBBe/8A+/Br9P8A/hnfwj/0Brb/AL5FH/DO/hH/AKA1t" + + "/3yKPZSD61E/MFf2kviBvX/AIm1+QSP+WLV2MX7Rvjjyl/4m190H/LBq/Qxf2d/CG0Y0a2/75FT/wDCh" + + "/C3/QJt/wDvkUeykS8RHsbOs+BNG8QzrLf6XYXcq9Hlt0dvzIqsfhT4aCEf2DpGP+vOP/CugDcDPFDZ7" + + "Vq6cXujjsZ2ieFtO8NRMmn2NpZB/vCGJY931wK0s8mmlcgA8+9OppW0QBRRRTAjY5bnn2r8rv8Ag5y+J" + + "n9ifCfwp4cSZS2tGXegbn5SDyK/Sn4r/FvQvg34Mvdc1+/t7GysYzIxkcAtgZAAr+bn/gqH+2tP+25+0" + + "zqetwO6+HrGUx6dCWyEx8rEfXFedmFZKnydWefmVdU6Lj1eh85R/dUd8flX1n/wRI+GD/Ej/goP4Rl2/" + + "wCjac0jStt3BcpxmvkxztXIyewAHJNftT/wbgfsU3ngH4far8TNfsGSTxHsOmGRdrQhCQ3HXmvKw9L2l" + + "RRR4eXUXOuuy1P1St4xbwIg6IoUfgKWdd8TKe6kU+ivpj6w/KP9trTBpH7UHiWJU2IChUfhXlpGSO2Ol" + + "fQf/BSrw6dJ/aBub0rhb/GDjrha+eyNowfwrke56kHomGdxJ6Yr0n9ji4S1/ak8LSSNtQNICfwrzbaeh" + + "H0rrfgHqi6L8bNAupDhUlx19cCkn1H0sfr5gPYcdDH/AEr8o/20LFbD9p/xGF6SMmfyr9WNMfztLgI6P" + + "Ep/MCvzH/4KIaSNI/ad1RlXC3W3H4LW9XZHJht2jxGiiisDqFIAb1FOihluH2xRSTSeiKWP6UnABz+Vf" + + "Rn/AATH8Mx6z8abuaeBLiGDHDqGAyPenFXdgk7K588f2XfMM/YLzn1hb/ComGCQR81fsL4q8HaLp/hvU" + + "Jv7OsUCW0hB8leDtPtX5A6u5uNf1BzjJuZMEccbjTnHlIp1eYrUE4FFIzYU/SpLPtn/AIJIaYrReJ7k9" + + "T5WK+11OTn1r5Z/4JZ+ETpXwfk1YqQuqHg467TivqfHNdNNe6cNd3mFFFFWYhRRRQAUUUUAFFFFABRRR" + + "QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR" + + "QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAMIwcflXlP" + + "7af7TUP7H37PGuePbix/tOLRghNvv2b9xx1r1bOTXyT/wAFuAD/AME4PHQ7BYev+/WVeTjTlJbpE1ZOM" + + "G10PkDUP+DpWzgsy1v8NDPKCQE+34/pXA/FP/g558VeKtJMXh3wL/YVyQQJftYk/HBFflpFjceATuNOA" + + "zgA5rwHi60lZyPl3mdd9T239qj/AIKG/FP9sKTy/F3iK5n09SSltH+7Cj0O3rXicMEk7KkEFxPI5wqxR" + + "lyT+FJjaT/P0r6J/YT/AG2PDP7Ivi231LWfh9B4tmhbIllnChPfaQawvd3bOaMvazvVlbz3Pe/+CWv/A" + + "ARS8VftI+JdL8ZeO7GXR/BsMgmhhkHzX2DnkdVwRX7w+C/CFh4B8MWekaXbx2tlZRiOONAAAAAK+Z/2F" + + "/8Agq38Jf2utCsdO0a/s9F8QMuJNJI8tYD2AbgGvqxSM5BB3YIx0r3cFRpwjzQd79T6nB0aUIfu9fMmo" + + "ooruOo+L/8AgrH4B+0aRomuQwnFpv8APce/Ar4gDZ69T3r9Y/2tPhifix8ENZ0lIw80kYdTjkbef6V+T" + + "9zavYXc0DqUeCRkwevBIrmqq0jvoO8Bh4GPSptIu207XbG6DbfJnQk+24VCDkYps6ebGR75H4VB0n7H/" + + "DDxRb+LvAWl6hbtuikgQD6hQDXxd/wVf+Gv9meJNG8RQqStxv8APYDhMcDNev8A/BNX4yR+PPgtDo8zL" + + "9v0UYlBPLAnivS/2ofgtb/Hb4Tajo0gAuHTdE5GSpHNdDXNE8+L5Kh+TXG3PekIwBzkVe8X+EtR+HfiS" + + "50fVoJba6tXKjcDhhnjn6VQLDOMgevNc52CnhT3Ar7V/wCCSPhF/sviDVpIiI5SnkuR971r4x0bRLvxT" + + "rlvpunwvcXd24RVQZ4zzX6s/slfB1fgj8F9K0iRALpE3ytjli3P9a0pLUzxErRsaf7RviIeGPg/rN4X8" + + "vZCVz6ZBFfkYZvOuLhyfvzOQfX5jX6Nf8FLvi3D4K+Cs2joyteazgRqDz8p5r844Y/LTBPXk+1FV62Jo" + + "L3bjyD+JohjM80UYHMsioB65OKTZgA9RXoP7LHw1k+K3xy0bS9paAyb5WxkLt5FZpdje9tWfpF+yR4DP" + + "w4+A2h6Wy7WijLnj+9zXpUYIJzUFhajT7GCBQAIY1Tj2GKnZe9daVlY8yUrts5n4rfFDTPg54C1DxFrU" + + "xt9O01N8jgE4H0FfEj/APBxX8B455EOrMDG7If3L9QcelfUP7d/hi/8Y/sueKNP023N1e3FuRHGOrcGv" + + "5trn9hf4r/2hd58GXmGuJCDt9WPtXmY3EVKc0obHnY3E1qVvZRvc/agf8HF/wABuf8Aibt/35f/AAob/" + + "g4w+A4/5i7f9+X/AMK/FUfsL/Fdjj/hC7zjr8p/wrF8e/su+O/hZ4ffVfEHhu407T4/vSuvA/SuL67X7" + + "nnvMcUtXD8GfuGf+Di74DAj/ibN7fuX/wAKcP8Ag4v+A2f+Qu//AH5f/CvwBhtBcSokaKzyEKgx94mvT" + + "7H9iP4pajZx3EHg67khmAZGC9Qfwqvr1XuTDNcRP4Yp/J/5n7XH/g4v+AzH/kLtgf8ATF/8K9P/AGTP+" + + "Cwfwo/bA+J0XhTwvqTT6pPnYnlMM4Gepr8Bv+GGPiuDkeC7z/vn/wCtX2j/AMEI/wBlvx98M/2z7PU9c" + + "8N3GnWEO7fM4wF+Q+1VSxtaU4xfVnTh8ZiZ1FGcbL0Z+7LcrycelfOP7a3/AAU4+HX7C2p6XZeM782tx" + + "q27yFEbNnb16V9GsCMDGQf0r8Wf+DnqNR4/8C/KDnz+o9hXpYytKnT5odz0MXVdOk5x3R9S/wDERh8Bw" + + "P8AkLNx/wBMX/wpR/wcYfAcjjV3z/1yf/CvwR8M+EL/AMZavHYaVZPe3kudkUaZZvwrqz+y18QMA/8AC" + + "J6hk/8ATBv8K8v69W7njRzPEy1UU/k/8z9xf+IjD4D/APQXf/v0/wDhR/xEYfAf/oLv/wB+n/wr8Oh+y" + + "z8QD/zKeof9+G/wo/4ZY+IH/Qqah/34b/Cl9erd/wACv7QxX8n4M/cez/4OJ/gPeajBbjV23XMqRL+5f" + + "ksQB29TX3Z4X8SW3i7w/Z6lZtvtr2JZY2xjIYAj9DX8q/hz9l34gQ+KdJYeEr9tt7ASDCwwPMXJ6V/UZ" + + "8EbOXT/AISeH4Z4vKlSxiDIeqnYtduBxNSpJqTO/A4irVv7VWtY63Ix0r5R/a1/4K/fCn9j74lP4W8Ua" + + "k0GqR/fTymOOM9q+rM7iOelfz7f8HDqBv237nKgnjt/sCtsbWlTgnDe5vja0qNJzjufrF+yB/wVy+Fn7" + + "ZPxBfw14U1Fp9SHRPLYZ4z1NfVFfgH/AMG6MKr+2PKQoBGOcf7Jr9/j+eKWCrTqwbn3Fgq8qtJTlux1F" + + "FFdx1BRRR0oAp6pqMej6Xc3c52w2sTTSH0VQSf0FfCGtf8ABw78CdG1m7s31dzJZytC37l/vKSD29RX3" + + "B4/O7wLrfp9gn/H921fyafE6JP+FleIPlUf6fP2/wCmjV52OxE6XLydbnnZhi50EnC2p+8jf8HF3wHQf" + + "8hdv+/L/wCFIf8Ag4v+Ax5/tdj/ANsX/wAK/Cvwt8BvFvjbSUv9J8P3d7ZyfdljiJU/jitA/sueP/8Ao" + + "U9Qx3/cN/hXD9erdzgWZYl6qP4M/cX/AIiMPgP/ANBd/wDv0/8AhR/xEYfAf/oLv/36f/Cvw6/4ZY+IH" + + "/Qqah/34b/Cj/hlj4gf9CpqH/fhv8KX16t3/Af9oYr+T8Gf0cfsR/8ABTX4d/t3alrNp4MvzdT6Js85T" + + "Gy43dOtfRSgkZHGa/Hz/g2l+Enif4eeNfiHJrehXGmQzfZ/LeVCu/g56iv2ELgsOORXq4OrKpT5pHs4W" + + "pOdJSmrNjSSST+lEjbFZmYKoGSTwBTyNp4HAr87/wDguJ/wVIl/ZP8Ah9/whPhCcR+MNfRozcq3zWAHX" + + "jvkGta1aNODlIurWjTg5y2R6l+2x/wWS+Fn7HGpXGj3Gow6v4lgHNjExIJ9N4yK+D/iR/wc8+Jtav8AG" + + "heBv7OgQkA/aw+8fiK/LvU9Q1Hxjr0lzeS3Opanfy7iWLSO7Me3U9TX2P8Astf8ELvi/wDtIeH7TV721" + + "fwzpF6u6Gdwrkj129RXiyxVerK0PuR4X1/EVpWoI9l8O/8ABzR4603VY5L7wj9st1PzR/aQufxxX1T+y" + + "n/wcWfDj4z61DpnjKzHgu9uWWOIFzOHY8dRwK+KfjJ/wbl/Fn4eaLJd+Hb/AP4SmWNC5i2LCePrXwd8Q" + + "/hvrnwn8V3GieItOuNJ1Wzcq6OCCD7N3/CpVevSerfzFLFYui06q0/rsf1peGfFOn+LNIhv9NvIL20uE" + + "DxvE4YEEcdK0VXcAT19K/Bf/gh9/wAFRNU+A/xYsfh54x1OW48J6y/l2087lvsJHbnk5JFfvHZ3SXttF" + + "cRNujmQOjeoIyP517GFxCrRv1R7WGxMa8OaJZooorqNyKRxCu5iFAGSScAV8j/tq/8ABZL4VfsdXV1pF" + + "zqkOr+JbbpYQkkMfTeMivG/+C43/BVOf9lvwn/wgPgq6CeLtZRo57hT82nj6d9wNfhZd3Go+NvELSzPd" + + "6pql/KTyWld2Y9up6mvLxWOcW4Q+88vG5h7J+zpq8j9R/id/wAHPfiLWrhE8P8AgX+zYoycv9sD+YO3U" + + "VgaH/wc0ePLDVo5bvwmLq3U/NF9pVd344rxb9nT/ghh8a/jzoltql3pT+H9LvAGimdlYsPXb1Fej/En/" + + "g2/+Kvg/TZJtE1QeIZlXcI/LWLJ9MmuLnxL97U5FUx8lzJfkfX37MH/AAci/D74s67bad410n/hC3nIQ" + + "OZTOM/hX6HfD/4laL8U/Ddvq2g39vqNjcruSSJw3HuO1fyp/HP9nnxh+zf4yl0HxnotxpGoxNjkZU/Rh" + + "xX07/wSL/4Kba/+x18Y9P0HWdSnufBGryrFNHK5byCTheTz1NbUMwmpWqao1w2ZS5/Z1kf0YjpSMu4Yq" + + "loWtweIdFtb62dJIbuJJUZWyCGAI5/Grox19a9tHtFe9uk0+1nnkOI4UaRvYAZNfDvxF/4L8fA/4ceOt" + + "Q0G91Zhd6e/lyfuX4I/CvtfxUP+KY1P0FpL/wCgGv5W/wBsaFP+Gn/F+VU/6U3b/aNedj8ROny8j3ODM" + + "MTOjBSgftmf+DjH4DDP/E2bHXPkv/hX13+y1+074Z/a6+Dem+N/CV4t3pGp7vKfBB+U4OQeRzX8qN7oE" + + "lpp8Ny8Q8m5B2Nt4OK/Zb/g2P8AjQ+s/DnxV4PuLjbHoflfZYi394knArnwuNnKqoyejObBZjUq1OSaS" + + "P1iooor2T2Bu4A8H8K5L41/GfQvgF8ONS8U+Irn7JpGmKGmlwTjPSur655r8/v+Dh/9oGP4ZfsX3nhWM" + + "7L/AMV7RA+eQEcE/pWOIqezpuZFaoqcHN9Bx/4OLPgKsjj+12+Rip/cv2OPSptM/wCDiL4Ealqdtapqz" + + "+ZdSpCn7l+WYgDt6mvwL0Xwlca5oV/fwxbodP2mdgvA3etSeBIVHj3Q8qh/0+Dt/wBNFrxHmFW+54Cza" + + "tdXS19T+uDRNYi1/R7S+gOYbuJZkPswBH6GrTjAArn/AIWMP+FaaDtHH2CD/wBFrXRMcrX0EHdJn0YtF" + + "FFMQUUUUAMYjcO5rx/9uf8AZjb9r/8AZp1/wEuof2Y2sBALnZv2bWz0r18k7ckZJ6ULkrgc5qJxUouL6" + + "jcU1Zn4ueIP+DX/AF62tl+w+PPNckkj7GBj9a898df8G3HxS8N20j6Rq39suo+WPy1j3V+8xHB9PrSDg" + + "juB3rheXU+jZwyy2g/sn8un7Qv/AATf+Mv7LkRn8XeELq1snzsmibztwHfC5xXhxb5irBlK8FWGCPwNf" + + "12eIPCth4qsJLXUbK1vYZkKMksSuMEYPUV+LX/Bb/8A4JFWPwT025+Kfw9sDb6MHL6rbR5IiJOFI+p9K" + + "4sTgZU1zx1R5mMyvkjz0ne3Q/Mbwz4l1HwTr1tqukXk9jfWbiSOSJyvIOe1fu5/wRX/AOCt4/az8Mx+B" + + "vGk6p400pFjhuGPOojHYdBgCvwWRsqD69a7f9m3436v+zp8cPD/AIv0W4e3vNOukUlTxtZgrZHfjNYUK" + + "8qUrx+Zx4LFyo1F2e5/WHkEgHp/OnFjgc4PpXIfAf4qaf8AGf4T6H4h064F1bahao3mDu4Ubv1rrW+96" + + "5r6KMlJJ9z65O4XMaXEDxsMpIpVh6g8V+Y37fHwMb4Q/GW4u7eExaVrDbrcAcAgfN+tfp2xBPXmvI/2w" + + "/gBb/Hj4VXlskIOqWqF7SXGSmOT+dFSN0a0J8stdmflh07/AEpGXaB/nNWtb0S68N6xcWF5E0F1bOUZW" + + "HPBqsx24/nXMeid/wDsyfHi7/Z3+KFtqqFn06Zwt3CDgMOgP4V+pXw5+JWkfFLwta6tpN3Fc21ymRhuQ" + + "e4I61+OrAHIPOa7L4OftAeKvgTqhm0K/lSBiC8B+YN7DPSrhOxz1KSkfpb8c/2UfCPx5tc6tp8f2xQfL" + + "nX5Sv5da8Ff/gkZozXm4a6wiBzs8o9PSqngH/grTaSWUUWvaM1tMow0gl3bvfiu+tP+CnfgGez8yS4aN" + + "yOU2txWjcGYqNWOiO2+An7F/g34FeXc2Nkk+pr964fnd+B6V3vxH+JWkfCnwpdavq93HbWtsmTuPJPYA" + + "da+WfHX/BWLSLK1lj0TS2vrgghGMhXHvzXyj8af2ifFXx81NZtcvpTaIxMdqDgJn6daTqJfCNUZSd5lz" + + "9p74/XX7RXxMuNWYNDp0LlbSAnIUdCfxrz0jacdR3pAMDA4NG7C+g/nWLfU6ulkH3Qcjn+dfeX/AAS9+" + + "BL+HPCtz4q1C2xLqmDbMw5Tbwa+VP2WPgPd/H/4o2enIjLp0Ege6mxwmOR+dfqr4X8M2vhHQLXT7SNYo" + + "LaMIFHA4HWtKcbu5z152XKadFFFdBxDZI1lQq6hlPUEZBqn/wAIvpv/AED7H/vwn+FXqKAM/wD4RjTd3" + + "/IOsf8Avwn+FfAv/BxHY2+l/sHawtva2sPmGPJSJVP3x3Ar9CT94V+fX/Bxr/yYpqv1T/0MVyYxfupGG" + + "J/gy9Gfgj4QJXxRo+Ov2yD/ANDWv6qv2aNIstU+BvhyaaxsmkayjyTAn9we1fyqeFMnxNo/r9rg/wDQ1" + + "r+rP9lr/kg3hvH/AD5x/wDoArz8s/iv0PJyXafyO0/4RfTf+gfY/wDfhP8ACn2ui2di++C0toX/ALyRK" + + "p/QVbor2rI90K/FX/g57OPHvgb6z/yFftVX4q/8HPf/ACPvgb6z/wAhXn5n/C+aOPH/AMCR8zf8ELbWK" + + "/8A+CkvgqK4ijmibztySKGU/uz2Nf0Xjwdo+/H9l6acf9Oqf4V/On/wQhb/AI2WeBvX9/8A+izX9H2MS" + + "VOWr93L1/RHNlH8H5mf/wAIZo//AECtN/8AAZP8KP8AhDNH/wCgVpv/AIDJ/hWlRXo8qPVMweDtIUgjS" + + "tNBHIP2ZP8ACtFUCKAAAB0AHApxOKD0NVYBoPHHWv58/wDg4bYt+2/dZJIGMDP+xX9Bo4Ffz4/8HDY/4" + + "zgu/bH/AKBXnZl/CXqedmn8Bmj/AMG6P/J4z/5/hr9/DwK/AL/g3P8A+TyH/wA/wV+/rdKeWfw36/5Bl" + + "f8Au6HUUUV6B6IUUUUAY/xB/wCRC1v/AK8J/wD0W1fyY/Fb/kpPiH/r/n/9GNX9Z/xB/wCRC1v/AK8J/" + + "wD0W1fyYfFb/kpPiH/r/n/9GNXkZp9j5/oeJnO0T97P+CAVhaa1+wZoKXdjZXHk+ZtaSBGY/Oe5Ffc//" + + "CHaPnnStNz/ANeyf4V8P/8ABvbx+wjovoN//oZr7yK5z7114JfuInqYa3so+iM7/hDNH/6BWm/+Ayf4U" + + "f8ACGaP/wBArTf/AAGT/CtKiurlRuVLHRbPS9xtbS2ti/3vKiVN31wKt0UVQGb4k1dND8P3167KBZ28k" + + "2ScD5VJ/pX8vX/BQv8AaIuf2of2tvFfiqaVnt5bjyYEJyI9mVOPyr+hf/gpp8SpvhL+xh4x1u3cxywwC" + + "MEHGN2V/rX8wN/O99f3UrEl7m4ds+7Mf8a8bM6j5lD5ni5zVso00foX/wAEAP2FLL9oz42XfjbxBbC40" + + "rwoyNDE65WcsMfoRX702Gnw6TZJb20aQwxKFREUKABXxf8A8EF/g9Z/Db/gn/4YvRaiLVtW8xruTvIA/" + + "wAv6V9rlflPpXZgKShST6vU9DA0VToxQ2Q/Ljrmvzw/4Lu/8E+tF+N37P15460mzig8TeHF3p5UeDOGP" + + "OcegFfoizB8jqK5z4seHrbxR8NNdsbqFbiKaxmyhGcny2x+ta16SqQaZvWpRqQcJdT+SvTr+fQtZtrqF" + + "2insbpH3A4IKOCf5V/T/wD8E2vjvcftH/sc+EPFd03mT3cBiY/9c8L/AEr+an4gfB3xNo3jfXLYaDqxE" + + "d9OVxaSEEeY2O1fvZ/wQE1XUP8AhgXw9pOo2NxYyaaZPlmQq3LnsRXk5dJxq27o8XKVOFSUGj7jI5B6V" + + "meMdeTw54V1K/Z1jFnbSS7mOACqkj+VaZfB6Zr5q/4K2fFC5+EH7CPjTW7SQxTwRJGGBwcOdp/nXtVZ8" + + "kHLse3NqMXJn89f7b/7QF/+0x+0/wCKvFuoXDXDXNy0SZ6KEJXj8q+9f+DeD9gGx+JviC9+KPiiwW5td" + + "PKnSBKuUcnIfjoa/LYn7VfE9TdXJJ9y7/8A16/pc/4I/fDZfhh+wf4NsDCIpzG7vxgtlsj+deHg6aqVl" + + "za9T57LYe2rupPpr8z6dtLSKwtlihjSKNBhVRQAB9BU1FFfQH0Z8s/8FRv2DtC/bK/Z41e2awgj8RWED" + + "TWV4qAPFtyzfXOO9fzXa5pFz4X1+6srlWiu9NuWTHcFGOD+lf11ataDUNMuYG5FxE8Z/EEf1r+Yv/gqR" + + "8Jl+Cv7dfjjQI02RQSpIoAwPnG7+teNmNJKSmup4ucUlyqqtz9pf+CFP7TR+P8A+xbo9le3BuNb0JSl2" + + "WbLAFsLn8BX2zk5wOa/Fr/g2G+LcWieOvHPhidizal5H2cE/c2gk4FftKG456etduBnzUlfpoejgqrqU" + + "YyZS8Vf8ixqf/XrL/6Aa/lX/bJ/5Od8Yf8AX038zX9VHir/AJFjU/8Ar1l/9ANfyr/tk/8AJzvjD/r6b" + + "+ZrkzTePz/Q4c4/hL1PQrz4NDXv+Cftt4xt4tx0UkXcgH3d0mFr1j/g37+L58Aft0aTobTmK38S7t4Jw" + + "G2ISK9A/YW+FM3xr/4JH/FPQYYvNlkSCVBjJGxyx/lXw3+yz8S7n4JftH+G9ftXMdxpeoC3z0xlwhrzo" + + "LkcZ/P8Thf7upSqd0v+Cf1ghwwB7HpSkc1jeCNWXXPB+lXausi3NpFJuU5GSgJrYTpX08XdXPpRrYHGO" + + "TX4a/8AByz8dj4x+Ofh7whG4K+G/M8xQem8A81+4Os3/wDZWkXdyTkW8Lyn/gKk/wBK/mB/4KbfGtv2h" + + "P23PGXiBJTJbXU6QQjOQCvyfzrzcynaCj3/AEPNzWpy0eXudl+zV8KIl/4Jv/HLxdPH+8gNiLZivrJg4" + + "NfNfgGTf440L0+3wH/yItfqXrfwMtfhP/wbl61dta+Rq+r+U9256yAT5X9K/LL4ekL420H/AK/rf/0Yt" + + "eTVp8sY+aueNiKfs5U4+S/M/rL+FH/JMtC/68IP/Ra10dc58J/+SZaF/wBg+D/0WtdHX0lL4V6I+sYUU" + + "UVqIYW7Hn2pqsUHQ7TXwRqX/Bw58D9N1KS3k1Ng0eOfKfn9Kryf8HFPwOXaBqTEuwUDyn7nHpXJ9do/z" + + "GP1qivtL7z9AMYA75pUbPOeD7VyPwR+MelfHr4bad4o0OXzdN1NC0T4I6V1qNkYP510xakro6OmhJRRR" + + "VEjNhPXr2rif2h/hpY/Fz4MeINB1GJZrW7s5CVYZBIUkfrXbk7R/Sq2pwi60y5iPR4mU/ipFTOKkmn1B" + + "6o/kq+Kvg6T4e/EvXNFkBV7O8lAB4wN5x+lc/Ido3DqPmx9K+gP+CpfhGDwN+3t46063I8qOVGGBjqM1" + + "8/txGfYV8q1bQ+Krx5ako9mz+h3/ggR8Vn+IH7BHh60mJabTfMVstk8vxX3Cw56c1+ZH/BtFM7/ALOGq" + + "qWJRSu1fT5jX6bnke9fQ4Nt0Ytn12FlzUot9kOpCAwweRS0V1m58hft/wD7GLeNopfFvhu3A1SMbrqFB" + + "j7QP6YFfB80ElvM0MqNHJGSrKwwVIr9qZIVniKuoZWGDnnNfJ37Yf8AwT8g+IDXXiPwsi2+rEb5bZRgX" + + "H9BWNSm3qjspVl8Mj4Gzz/I0nI47ir/AIm8K6l4K1aWx1O0mtbmE7WV1OPwNUc+/wAorE6BrDd1waTyU" + + "9B+VLRQAgQA8AClJxRSFgD70APIwfXHU1t/Dr4dar8VfFtro2kWz3NzctjKjhR3JP0rc+Cn7O/iX48a6" + + "lrpFlMLZWAmnddojB+vWv0d/Zm/ZR0L9njw1GltFHcarKoNxdkcufYHpVQg5EVKqiT/ALL/AOzbpf7O/" + + "gaCxgCzajMga6uNuDIeuPwr1HlV9TSNlwcdP50AEjk49a6UklZHBKTbux9FFFMkKKKKAEX+lfn3/wAHG" + + "X/JjGqfVP8A0MV+gi/0r8+/+DjL/kxjVPqn/oYrlxv8KRhiv4MvRn4H+E/+Rn0f/r7g/wDQ1r+rP9ln/" + + "kgvhr/rzj/9AFfymeE/+Rn0f/r7g/8AQ1r+rP8AZZ/5IL4a/wCvOP8A9AFedln8V+h5OS7S+R6FRRRXt" + + "nuhX4q/8HPf/I++BvrP/IV+1Vfir/wc9/8AI++BvrP/ACFedmf8L5o48f8AwJHzR/wQmP8Axst8D4z/A" + + "Mt//Rdf0etkkYH1r+UD9mj9ofXP2Wfi7p3jXw4/l6vpu7yWwONwwetfWZ/4OGfjlji86/7Cf4Vx4PFwp" + + "RcZJnmZfjaVGlyzep/QhRX893/EQx8cf+fsf98JR/xEMfHH/n7H/fCV1/2lDszt/tXD9z+gtxk5wRipA" + + "fMr8cv+CXH/AAWS+Kv7Uv7aPhrwV4knE2j6r5vnDaoxtTI6V+xbH5gMZA9666FaNaPNE7qFeFaPNAkr+" + + "e//AIOG/wDk9+6/D/0Cv6EK/nv/AODhv/k9+6/D/wBArkzP+EvU4s0/gM0f+Dc//k8h/wDP8Ffv63Svw" + + "C/4Nz/+TyH/AM/wV+/rdKrLP4Xz/RBlf+7odRRRXoHohRRRQBkfEH/kQtb/AOvCf/0W1fyYfFb/AJKT4" + + "h/6/wCf/wBGNX9Z/wAQf+RC1v8A68J//RbV/Jj8Uhu+JniAf9P8/wD6MavIzT7Hz/Q8TOdon75f8G964" + + "/YR0QkH+Pt/tmvvBcDHev5rv2YP+CwHxR/ZP+FNl4P8NTiPS7Hd5QCrkZOTya9EX/g4X+ORX/j8/wDHU" + + "/wpYfHQp01Bp6GtDMqMacYt7I/oQpGGeOxr+fD/AIiGfjl/z+f+OJSP/wAHDfxyOMXuOf7if4Vt/aVPs" + + "/wNf7Uodz+g4LjvkClB5Hf+lfP3/BMr9ofXP2of2PPDXjHxEc6tqYk87pzhsDpX0Ao+YEjFd1OanFSXU" + + "9CMlJcyPib/AIL7+MW8M/8ABO7xXEhINz5Q4/3xX87tivm31kq8+bcxA+2XFfvN/wAHIHiO60/9jabT4" + + "yPs98R5vvhxivwg8Oj/AIqDSD2+2Qcf8DWvDx7vWZ87mzvXivL9T+or/gnt4Sj8FfsleEbCLhI7UN0x9" + + "4A17Wv5Yrz39lkA/ALwzgAD7FHx/wAAFehMcqPevboK1OK8kfRQ+FIdTWUOpBAIPBB706itRmRJ4E0OV" + + "yzaLpLM3JJtIyT+lXdN0m10eDy7W2t7aMfwwxhF/IVaopWCwxiFUZ4Ffn9/wcSeP38O/sQ6hpSTeWmrF" + + "dyY+/tcV+gL85B6Zr8w/wDg5k1sWn7P2h2e3cbwvg+mGFcuNf7mX9dTDFytRk/Jn4jeG7f7X4i0iPH37" + + "6BT+Mi1/WB+z14Ri8C/Bfw5p0WNkVjEwwP7yKa/lR+F+npqvxH8PW8hwj38B/KRa/rM8AII/AmigH7th" + + "bj/AMhrXDlcfeb9Dy8lWkn6G1RRQeleye2MOCTx1r+d/wD4OAfD66X+39rl4Dlr/ZnjphBX9EONxHvX4" + + "G/8HHVvFF+1vYOqgPJu3n1+UV5uZ/w16nnZor4dv0Od/wCDe7xE+lft2aZZKcLf7tw9cIa/oT4PUcCv5" + + "xv+CEmoSWP/AAUV8IiP7shlyP8AgFf0cZO0f5zRlj9yS8xZVrQXqUvFX/Isan/16y/+gGv5WP2yf+Tnf" + + "GH/AF9N/M1/VP4p/wCRX1P/AK9JP/QDX8rH7ZP/ACc74w/6+m/mayzT4o/P9DHOf4S9T9Wf+DdrQo/Ev" + + "7J3jeymjEqXFqybT3JDYr8l/wBpX4fz/B79ojxBos8TW8+nagZ9pGCAZCwr9gP+DZYD/hQ3iHIyCUGP+" + + "BGvif8A4OB/g3J4A/bp1XXzEIrXxSF8nC4B2Jg1y1YfuIT9UY4mnfBwn2sfsL/wSQ+LLfGT9hTwdrEs/" + + "nztE8bknJG04H8q+l+rHHp0r8rf+DY/41z+KfhL4p8HTzAw+GTF5CFv75JOBX6pEkDFevg5c1KL+X3Hs" + + "Yap7SlGXdHjv7enxmb4B/sr+KvEqkK1rbGME/7YK/1r+YvwD4fufi58arGyAaS41bVvNIHJI87J/Q1+3" + + "f8AwcffH4/Dz9k+LwhG2y48XH5GBxjy2BNfmp/wRB+DEfxc/b88LPeWxutN0su9yD0BKZXP415mObnXU" + + "F6feeZj/wB5XhSP1L/4K/eBbb4b/wDBGTX9ItVCw21nZcAY5JUmvwP+Hn/I76Dj/n+g/wDRi1/Q7/wXv" + + "gW2/wCCXHjyNBtSIWyqPQCQAV/PF8PTjxtoP/X9B/6MWpzFWmkuxzZkv38fl+Z/WX8Jxj4ZaF/14Qf+i" + + "1ro65z4Tf8AJMdB/wCwfB/6LWujr2qXwr0R9GwooorUR/Ix8RtJbSPGl5byookjxkfhWMkKm5gG0EGZM" + + "cf7Qr1n9un4dzfCb9q7xP4emQxyWPlZU+65ryaQnG4clDuH4V8klY+Jqx5ajT6M/px/4JSAJ+wz4MAI/" + + "wBS3f3r6KXjPP0r4o/4ILfGay+Jn7A3hvT0mVtT0cSLdRZyY8v8ufwr7YC4PHf9K+lwsk6Ubdj7KhJSp" + + "prsSUUUV0GgwDGfUdqZd/8AHpLnqEP8qexyODgmsnxzq6aD4Q1W7mlWKOC0lfcxwAQhNTJ2Vyj+a7/gs" + + "Gwb/gop4+wQRvi5Bz/DXzTIcW7H1FehftZ/EY/Fv9pHxV4gZzKbu7ZNxOfusRXn0q+Yyrj77BR75OK+W" + + "k7u58TiWpVZNd2fuv8A8G2PhyXT/wBlK51FmJjvz8gx0wxr9Jg4K5z0r47/AOCHPwy/4V5/wT/8JrIpW" + + "e5WRnUjBHzZFfYQAz719Bgo8tGKZ9dhly0oxfRIkooorrNgoIyKKKAPPfjF+zd4W+N+nCHWdNhkeMHy5" + + "FGwgn6da+Ufiz/wSq1DTpJbnwxqX2hH5S08vGz/AIEa+7skr0oUZbOc1EoKWprGtKOx+VPiX9iL4leGZ" + + "dsugs4PQiQHNZI/ZO+IhYf8U7Lg/wC2K/WuSBJfvIjfUZqM2URfHkx49dgrP2K7mqxPkfmJ4S/4J8/Ej" + + "xO8Rl0k2du55kMgO38K+hvg5/wS10jw5dwXXia//tgrhjBsMe0/UV9dRxiNcAAfShzuAI6VcaaRMsRJ7" + + "GP4R8E6X4D0mKx0uyhtreEYUKoz+dbHmYJ9qXIxn1psi/MDWhju9R9FFFBIUUUUAFFFFACL/Svz7/4OM" + + "v8AkxjVPqn/AKGK/QRf6V+ff/Bxl/yYxqn1T/0MVy43+FI58V/Bl6M/A/wn/wAjPo//AF9wf+hrX9Wf7" + + "LP/ACQXw1/15x/+gCv5TPCf/Iz6P/19wf8Aoa1/Vn+yz/yQXw1/15x/+gCvOyz+K/Q8rJfhl8j0Kiiiv" + + "bPdCvxV/wCDnv8A5H3wN9Z/5Cv2qr8Vf+Dnv/kffA31n/kK87M/4XzRx4/+BI+A/wBiP9lSb9tP9ovRv" + + "h9b6wNDl1jfi78rzPL2rnpX6DN/wauayJMf8Laz7/2aOP1r5g/4IRDH/BS7wP8A9t//AEWa/o7Zdpxzz" + + "3rmwWFhVg5T7nnZdg6NWlzVFd3Pxi/4hW9a/wCisn/wWj/Gj/iFb1r/AKKyf/BaP8a/aHHvRXZ/Z1LzO" + + "/8As3Dfy/iz8xv+Cf3/AAQE1P8AYu/aj0L4hXHxEGuRaP5gNmLLy/M3LjrX6bFcj5etKe4ppG4jH5V0U" + + "aMaStE6qNCFKPLBWRJX89//AAcN/wDJ791+H/oFf0IV/Pf/AMHDf/J791+H/oFceZ/wl6nFmn8Bmj/wb" + + "n/8nkP/AJ/gr9/W6V+AX/Buf/yeQ/8An+Cv39bpVZZ/C+f6IMr/AN3Q6iiivQPRCiiigDI+IP8AyIWt/" + + "wDXhP8A+i2r+TH4pHb8TPEB/wCn+f8A9GNX9Z3xB/5ELW/+vCf/ANFtX8mHxW/5KT4h/wCv+f8A9GNXk" + + "Zp9j5/oeJnO0T7a/YO/4IWal+3N8C7PxtbePv7Bjvd221+x+ZjBx1r2wf8ABq1rQZf+Lt9ev/EtH+NfV" + + "v8Awb3sf+GEdE5zjfx/wM193EgAdc1eFwdOdJSluzooZdh5U4ycdWl1Z+Mf/EKzrX/RWh/4LR/jSH/g1" + + "a1o4/4u10Of+QaP8a/aKit/qFE1/s7D/wAv4v8AzPFv2C/2Wp/2N/2aNC8BT6v/AG3Jo4f/AEry/L37m" + + "z0r2VfnbnkU51LHjimbSV4ODXVCCjFRXQ7oxSjZH5uf8HKJz+yhAQCRn/2YV+F/h7jxBpPveQf+hrX9A" + + "H/BxD4cGo/sA69dLD5ktoY9rf3cuK/n70WUw6vpbkfcu4Tj/ga14OOX71nzea6V4vy/U/q4/ZYOPgF4a" + + "z3s4/8A0AV6EF+XAPSvL/2ONaXxB+zh4WuUIKvZoOD6KK9R4Ofevco/w4+iPo4v3ULRRVbVL9dL0y5uW" + + "GVtomlYeygn+lajJcZIxQCQSQB+dfm58R/+DjXwD8O/HOp6JJo7Svp0pjZvMYbiCR6e1fUv7BH7eOh/t" + + "4fDubX9EtjapCcMm4nHOO9c1PFU5y5YvUyhXhOXLFps9+deQCeK/Lf/AIOb7KWX4LeGJVXdFEZN7enzC" + + "v1IcnAJ6g1+b/8Awcj6FNffsnw3cYylofn46ZYVGN/gS+X5kYzWjL0Z+IvwbwPit4b5wBfQ9eMfOtf1i" + + "+AgP+EH0Y5wfsEH/ota/kl8H3DW/i/Q5FO0rf25z6fvFr+tL4W30epfDfQJYm3o2nwfN7+WtceV7y+R5" + + "eSv3ZI6GiiivYPcGuQD9a/BD/g5B/5Oy0/jH3ufX5RX74N/Sv5+P+DiTxC2qftry2TY22GNv4oK87Mn+" + + "6Xqedmn8B/L8zhf+CGBKf8ABRfwfjnBl7f7Ff0fKwKgDqB0r+dv/ggLpn27/goP4dn2bxb+Z83plDX9E" + + "YbPbv8AnU5Yvck/P9Ayn+D8yn4p58L6n/16Sf8AoBr+Vj9sn/k53xh/19N/M1/VP4p/5FfU/wDr0k/9A" + + "Nfysftk/wDJzvjD/r6b+ZrPNPij8/0MM5/hL1P1z/4NlOfgP4gz3Kf+hGuc/wCDnf4QLq/gnwh4qgtvm" + + "0rzfPkA/vEAZrov+DZZc/AnxD7lOP8AgRr6c/4LGfBpvjV+wd4w0y3txNepGkkJxllCtk4/AU4Q5sHb1" + + "f4m8Ic+E5fI/JP/AIN8Piy/gX9t2w0M3Bht/EWfMXOA+1CRX9CQy2MH5TzX8o/7JPxUn+BP7TfhjxFC5" + + "jm02/8AsxOcY3OENf1N2PiFZPhlDqgdWH9mC53A5H+q3U8tqWjKPYzympek49mfh1/wci/Hefx/+01pf" + + "hEyhrfwjvwo7eYoNezf8GwvwbjhtvGviy5hBe48n7O7L0xkHBr84P2//jFJ8fP2wPFviHzTIt9di3j5z" + + "gqdlfu//wAES/grF8Hf2DvCyS2n2fVb5HkuWPBcbsr+hrmwt6uJ5n5sxwv73GSqdv8Ahij/AMF+f+UYP" + + "j762/8A6MFfzv8Aw9/5HXQv+v6D/wBGLX9EH/Bfn/lGD4++tv8A+jBX87/w9/5HXQv+v6D/ANGLTzP+K" + + "vQxzT+PH5fmf1l/Cj/kmWhf9eEH/ota6Ouc+FH/ACTLQv8Arwg/9FrXR17FL4V6I+iYUUUVqI/n9/4OI" + + "fgFd/Db9sU+LmtvLsvF/wDqnA4PlqAa+AgMnnp3r+jX/gtJ+w+P2wf2WtQfS7L7R4r0GMy6cwPKDOX/A" + + "EFfzn3mn3Gi6hcWVzG8N3aSNFIjgqQVJB4P0r5zF0vZ1Wu+p8vmmHcKvP0Z9yf8EN/+Cglp+yF8d5PDv" + + "iS7Nr4X8VOkcs7ZK2xX7vHuTX9A+i63a+INLgvbO4juba6QSRyRsGVgRkciv5DyCpBBZWU7gQcEGvtf9" + + "hb/AILf/En9kLSbTQNV3+KvC9nxb2sjhGgHf5uprbCYxU1yS2OjAZjGmvZ1Nu5/RLvwP880hkJ45z71+" + + "cHwo/4ORPhR4ojj/wCEihPh+Qgbl+aXH5Cuu8c/8HCvwF0LSjNpmtnVLgDIi8l0yfrivS+vUN+Y9pYqi" + + "1fmX3n3iW2oScBRzmvzW/4Ltf8ABTbSPhB8I9Q+Gvhe/SbxZrS7JZoXz9iAOSOODkV88/tdf8HJOveNv" + + "D8+j/DjRDosk6sn9p+aHKg8fdI9K/Mbxr401b4j+K7vXNdvZtR1O/cvNLIxOT7DtXFisepR5KfXqebjc" + + "zgouFJ3fczBmVndm3PIxdmPck5Ndf8AAH4U6h8c/jX4d8LaXA1xd6hdxtsUdVVgW/TNcfIRGD3PYV+uH" + + "/Bu7/wTyvf7UPxj8Uae8MS86GZVwT1V+D/WvOo0nUmorqePgqDrVUunU/WL4K/DzT/hX8LtE0LTbcWdr" + + "ZWka+WOcNsG79a6tG6Y6UpjG0DpjpTSMjpgCvp4xSVkfYraxJRRRVCCiiigAooooAKKKKACiiigAoooo" + + "AKKKKACiiigAooooARf6V+ff/Bxl/yYxqn1T/0MV+gi/wBK/Pv/AIOMv+TGNU+qf+hiuXG/wpHPiv4Mv" + + "Rn4H+E/+Rn0f/r7g/8AQ1r+rP8AZZ/5IL4a/wCvOP8A9AFfymeE/wDkZ9H/AOvuD/0Na/qz/ZZ/5IL4a" + + "/684/8A0AV52WfxX6HlZLtL5HoVFFFe2e6Ffir/AMHPf/I++BvrP/IV+1Vfir/wc9/8j74G+s/8hXnZn" + + "/C+aOPH/wACR80f8EIv+Ul/gf8A7b/+i6/pAP3xX83/APwQi/5SX+B/+2//AKLr+kAj5xSyz+G/X9Ec+" + + "U/wRaKKK9I9QKKKKACv57/+Dhv/AJPfuvw/9Ar+hCv57/8Ag4b/AOT37r8P/QK83M/4S9Tzs0/gM0f+D" + + "c//AJPIf/P8Ffv63SvwD/4N0f8Ak8Z/8/w1+/jDiqyz+G/X9EGV/wC7odRRRXoHohRRRQBj/EH/AJEbW" + + "v8AsHz/APotq/kx+K3/ACUnxD/1/wA//oxq/rO+IP8AyI2tf9g+f/0W1fyY/FX/AJKV4h/6/wCf/wBGN" + + "XkZpvD5ni5z8MfU/fL/AIN7f+TFNF+r/wDoZr7y7H6V8G/8G9w/4wT0T6v/AOhmvvPsfpXbg/4MT1MP/" + + "Cj6IWiiiuo2CiiigD5U/wCCzXg5vG3/AAT78bWiQ+bNsjZR9GzX81QJt5hkYME2fptb/wCtX9aXxr8B2" + + "nxM+FOu6NexC4gu7OUbD3YIcfrX8qfxt+Hd58Kfi74i8PahC1tc2V3JmNhghWYlf0rxMzhaopd1+R4Wc" + + "09Yz+R/Rr/wRz8eD4j/ALAHgnUw4ZnjkRuckbWxX1CW2/jX5Kf8G1H7WNrd+EdY+GmqX6xTaaU/sy3Y/" + + "wCs3Es2K/WuQBjnr+Nehg6ilSj5aHrYSoqlKMvIUjHT/wDVWR47uFtfA2sysQoSxnY56DEbVqkhcnpXy" + + "3/wV2/agtf2Zf2OfEV6t6ttq97F5VnHn5pQTtbH4Gt6s1CDk+hrUkoxbfQ/nM+NuvjxX8WfEl/8rGa9m" + + "XOOuHYV+5n/AAbleApPD/7GlvqrJiLVSdh9drmvwTQPrGsKMFpdRvB0GSTJJ/8AXr+nb/gl18Ep/wBnn" + + "9ifwd4auUKT20BmYY5/eHcP514mXwvWv2R4WUpzqyqf1qfQZXLknoK+Ov8Agun4GHjD/gnV4xaOAzXls" + + "Imix1Hz819jPgiuD/aV+Glp8W/gj4i0G7QSQ3dnIdpGclVJH617NePPTlFdj3KkOaDj3P5P9OlNrqdnI" + + "Pla3uo2+m1wf6V/Uj/wT0+If/C0P2SPCWsF/NM1sE3eu0AV/MF8QvCd14G8da1pN4jRXNjeSjaRggbzj" + + "9K/dT/g3c/ahtfin+yqvgua4jOp+EeJVZgGPmMSMDvxXjZdPlq2fVHhZTLlqSpvr+h+i1FFFe+fQELyC" + + "OMu5wqgkn2r+bv/AILg+MYvGP8AwUf8b/Z5RNa25hEbA8fc5r+hr44fEPT/AIU/CrXNc1a6SzsrO0kJk" + + "Y8Bihx+tfyufHv4jy/Fn4yeIvEUzmR766kwSckhWIH6V5OZVNofM8nOKiVNR7s+7v8Ag22+G8vib9p3W" + + "dcWMvHoezL44XcpFfvGuB6ZNfl//wAGz/wKuPBXwG17xnNEVi8WlPKJX/nmxFfp6Fworoy6FqN+515fT" + + "5aEUyn4q/5FjU/+vWX/ANANfysftk/8nO+MP+vpv5mv6p/FIx4X1P8A69Jf/QDX8rH7ZP8Ayc74w/6+m" + + "/ma5s03j8/0OLOf4S9T9cv+DZbn4EeIMeqf+hGv0p+I2hw+JPAusWU8YljubSVCp7nYcV+a3/Bsvx8B/" + + "EIxyCn/AKEa/UHyxMCDyrDBFdOBV6CXqd+D/gx9Efyc/tD+AZvhB+0DrujSI0Mum6kZwpGCuZCwr9xvA" + + "H7ZF7o//BFpfiBHd7r+Kxa1Lk5IBPl/yr82v+C+XwbPw1/bq1rVY4PIsfEO0wADAJVOa5HSf21ZrH/gm" + + "bf/AAiFwd0xUhc8j95uryITdGUl6o8ejU9hWqRfa/8AkeD/AAS8CT/Gb49aRpKhpZtV1Tz2A5Lfvdxr+" + + "q34XeGbfwj8O9F061iWKG2s4l2gYAOwZr+e/wD4INfBZvil+3doWoTWv2rTtA3G5yOFLJ8ufxr+i2GIR" + + "xqqjCgBQPQCvQyuGjm/Q7Moham5vqz43/4L8/8AKMHx99bf/wBGCv53/h7/AMjroX/X9B/6MWv6IP8Ag" + + "vz/AMowfH31t/8A0YK/nf8Ah7/yOuhf9f0H/oxa58z/AIq9DjzT+PH5fmf1l/Cj/kmWhf8AXhB/6LWuj" + + "rnPhR/yTLQv+vCD/wBFrXR17FL4V6I+iYUUUVqIrz2yXdq8UoDo6lCD0IPBr8iv+CyH/BE+98U61ffEn" + + "4XWQe9kzLf6bGABLgdQe3c8V+vJ5HP3RTZoVmi2sqsrDBVhkVz4jDxqxtIyr0IVo8kz+Q7W9HvfDeqTW" + + "OpWlxZXduxSSOaMpgg47iq/Y4ORX9Mf7Wf/AASk+EP7XKXd1rnh63h1q4HyXkX7vYfXauK/P/4zf8Gwe" + + "pWEc934T8c/aOSY7P7JjaPTcTXjVMDVhsrryPn62U1Yv3NUfk15SkHIGT7UCJQMYGfTFfdOtf8ABvh8d" + + "9NvNtrpovU5G/zEXNR6T/wb6/Hq9vRHc6T9liPWTzUbFYewqfyv7jm+oYj+U+HMbW7LRDHJdSrHBFLcS" + + "OQoSJC5J+gr9S/g5/wbFeJ/ERM/inxv/YyxkE2/2QSeYO4yDX3R+yX/AMET/hB+zFcW+onSYtZ1yDBF3" + + "LnaT67TkVtTwVWfS3qdFHKasn7+iPzX/wCCXX/BEHxP+0frWm+MvH1pJo/hCJ1mt7eQfNf4Oee64Ir92" + + "/A3gzT/AIfeFrPR9Mto7WysYlijjRQoAAA7VesNMh0q1W3toY4IIgAiRqFVfwFThTjgcfzr2MNhY0lpu" + + "e9hsLChDlgSUUUV1HQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAREk7f5V+f3/Bxd" + + "/yYpqnplOf+Biv0DGQeB1r42/4LY/s2eMP2nP2RdR8P+DtO/tPVJChEQcLnDg965cWm6MkjLEpypSS7M" + + "/nX8Jk/8JNo46D7XB/6Gtf1Y/sup/xYXw1/15x/+gCv58vD3/BGH9oa31vTZX8GuiRXMTs3npwA4J/lX" + + "9DnwA8M3fhD4Q6Hpt9H5N3a2qJKmc4IUA15+WwftG2uh5uU0Z01LnVtjtKKKK9o9cjycHJyK/Fn/g57B" + + "Pj3wMT/ANNv5Cv2mVsj/PFflr/wXx/YV+Jv7V/jDwld+CNCbVbfT/N84iQLjIGOtcGYJulp3OXHQlKi4" + + "xV2fln+wN+1HD+xn+07ofj+fTv7VTSN+bbfs37lx1r9KT/wdH6aBx8OScf9Px/wr4bP/BFj9onjPgl+f" + + "+nhKaP+CK/7Q/GPBL/+BCV5NKrVpq0br5Hi0Hi6UeSEXb0Puf8A4iktN/6Jy3/gd/8AWpP+IpLTf+ict" + + "/4Hf/Wr4Y/4cs/tDf8AQkyf+BCUf8OWf2hv+hJk/wDAhK0+t4ju/uNfb47+X8D7oi/4OjdNmu7aH/hXL" + + "fv544c/bum5guenvX6mfC3x0nxJ8B6ZraQmBdQgWbZnOzIBx+tfznQf8EXf2hbfUrGV/BThYruJ2Pnpw" + + "A4JP5V/Q5+z34WvPBnwb8P6Zfx+Vd2tpGkiZ6EKARXbgq1Wc2qj0t2PQwNSvLm9urbWO23AN6E9K/nz/" + + "wCDhzP/AA3Bc5HHH/oAr+gpRuzu6V+NX/BaX/gm78Xf2kf2rptf8I+G21PS5sbJBKq9FA71eYxbpK3cr" + + "Macp0XGCuz4a/4J1/txn9gz4wP4rGh/28W/5Yeb5fbHWvvI/wDB01csePhfjP8A0/8AT9K+Nh/wRZ/aH" + + "Zv+RKfj/p4Slb/gix+0Qrc+CX9/9ISvJhUqwVoNo8ejLGUo8sYu3ofZH/EUvc/9EyH/AIH0n/EUzc/9E" + + "wP/AIH18bf8OW/2h/8AoSpP/AhKP+HLf7Q//QlSf+BCVp9YxHdm3t8f2/A+z9L/AODoy41LWbO1/wCFZ" + + "bBdTpEW+3527mAz096/WX4ZeNf+FieBtM1oQ+R/aECzeXnOzKg4z+NfzraB/wAEYv2hLbxPpsr+DHjSK" + + "6ikc+evADgmv6GvgX4ZuvB/wn0LT76Lybu0tY0kTOcEKAa7sDVqzk1UbtY9HA1K8k/br00Njx/g+BNb7" + + "f6BP/6Lav5NfihiT4k6/wD9f8//AKMav6zvGNlJqfhPVbeFcy3FnNHGPVihA/U1/Ol47/4I1ftB6p471" + + "m5g8HPJDcXksiN56jcpckfoanMotuNl3/Q581ozqKPIrnrH/BO7/guHZfsPfACw8GTeEf7Yez3fvvtOz" + + "OTnpXvR/wCDo/TTk/8ACuj/AOB3/wBavhn/AIctftD9f+EKfP8A18JQ3/BFj9oZTk+CX/8AAhK44V68F" + + "yxbt6f8A5IVcbGKio7eR9z/APEUlpv/AETlv/A7/wCtR/xFJab/ANE5b/wO/wDrV8L/APDln9ob/oSZP" + + "/AhKP8Ahy1+0MP+ZJk/8CEqvreI7v7ivb47+X8D9df+Cbn/AAWSsv8AgoH4/wBS0GHwsdDfT9vz/aPM3" + + "ZGa+3jy2c9K/Jb/AIIS/wDBPb4p/su/GXXtX8aaAdKsbnZ5bmRW3YB9K/Wsr07V6uCqTnT5qm9z2MJOp" + + "KmnVVmIyhgc4IPB96/Dr/g4n/YZu/h/8YB8WdHtmm07X/8AkJmKPi22gKvT1r9xmO37w/GuQ+N3wS8P/" + + "tA/DnUfDHiSxiv9M1CMo6OOQexB9jVYqh7WFuvQMVQVam4M/lg+Avx28Rfs4/FDTPGHhS+ey1bTH3Iy8" + + "hwfvAjpyOK/Z79kv/g4w+HfjjQLS3+IinwvqMaBJZDum3kDGeB3r41/bt/4IIfEP4F+IdR1j4f2j+JvD" + + "e8yCNcRm2BOcc8mvhzxZ8JfFPgi9kt9U8PatBPEcMFtJHwfqBXixnVoytszwKc8ThG4tafgfvv8Yf8Ag" + + "v8A/AbwR4Vlu9C8Qf29fqpKWwhePcewzX48f8FG/wDgpJ4o/wCCg3xDivdSR9O8O6YzDT9O35WIHqSe+" + + "evNeD+HPhn4k8V3Sw2Hh/WJpScAPaSKM/iK+vv2L/8Agh18Vv2mfEmnzeIbGTwp4YlYPLeOA5KjnG3rz" + + "0p1K1Wu+V/ci6mIxOJXJFWX9dTB/wCCPH7Cmpfth/tM6feT2Uj+EvDsqy6hMy4TPVMevI7V/R5pWnR6R" + + "pdraxACO2iWJQPRQAP5V5r+yX+yR4U/Y9+FNn4X8LWUVtBboBJKF+aZu5J69a9SjiAHHFetgsN7KPvbs" + + "9jBYVUKduvUkqOaBbiJ43GVdSpHqDUlFdp1n4G/8F/v2Erv4H/HyT4haNZu/h/xQxacRodtoVGOcepr5" + + "I/Yy/bE8TfsU/F+z8VeHJpHiVwbu0DYW6Xpz9K/px+O3wG8N/tGfDbUfC3inT4dQ0zUYyjK45U9iD1GD" + + "X4f/twf8EAviL8EdevdU+H8LeKdAZ2l8tcRG2XOcc8mvDxWFlTlzw28uh4WNwVSNX21E/Q79mz/AIL0/" + + "Bj4u+FLaTxBrC+HdYdAJbVkaTDfWvRfFn/BY34AeELGSa78axfIpZQsDHJx04r+crxj8E/F/wAPruSHV" + + "fDur2k0Zwwjt5GwfqBWVpng3XtdufKt9H16dzwA9rLj9RUxzGslbRkrNay92UNT77/4Ks/8Ftr79sTw1" + + "P4E8EwPpnhORit3cq+TqAByvB5XFfEv7PfwL139pL4w6L4P8N2kt5f6lcLkKOAoILZPQcZ616z+zj/wS" + + "p+M37SWqQx6X4YuLPTndRLdSkJ5anvtOK/bL/gmr/wSU8J/sFaIl47x634ruUVrjUXj2kNjoAemM44rO" + + "nSq4ifM/vJpYeviantKysv62Pdv2SPgBY/syfALw/4P09VWHTIAWAGPnYAt+ua9JUY4I6dKUjKDjOO1A" + + "yAQTz2r6CMVFKK6H0SjZWRn+Kmx4Y1LJ/5dZf8A0A1/K3+2T/yc74wPUfam/ma/qn8QWj3mgX0KDMktv" + + "Iij3KkCv58f2m/+CQHx78Z/HrxNqeneD3uLG8uGeKUTqNwJNeVmSfutLv8AoeXmtGdSmlBX1Ptn/g2Wz" + + "/wofxBj1Tj/AIEa/UHdhuuBXwL/AMEIf2S/HP7Kfwe1iz8b6U2lXN4V8tC4bOCfSvvpVDYrrwKaoq/9a" + + "nbhIONGKlvY/JT/AIOfPg6mqeFPBfiyC3w2led9okA67iAM1+N2/CZBOMZPpX9Mn/BWT9mLUP2q/wBjf" + + "xH4b0OxW+1+UIbNcgEYbJ5NfiEn/BFr9odgF/4Qp9m/Yf8ASF6ZxmvMx1JxqtpbnjZlhakqvNCN7o+8f" + + "+DYb4PLongjxl4tmt8nW/J8l2XptJBwa/WYHHHp1r5u/wCCV/7Ml/8Aspfsd+G/DGt2S2euW6ubtQQTk" + + "tkcivpDknOcY616uFpuFFJnsYWl7OlGJ8Z/8F9Tn/gmD4/5/wCff/0YK/nh+H2T430AD/n+t/8A0Ytf0" + + "kf8Fi/gf4l/aK/YD8Y+E/CVkb/XdR8g28AYLv2uCevtX4s+Cv8AgjN+0HY+LNGnl8GyRwwXcMjt56nCq" + + "6kn9K87Mot1VZdDycxw9SdeMoxbWh/RT8Khn4a6F2/0CD/0WtdCq4A9qxvh9pkujeCNItJxia2s4Y3Ho" + + "wQAj8xWyVzn3r2IfCj3ELRRRVjCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA" + + "ooooAKKKKACiiigAooooAKKKKACmsgkXDAEehFOooAj+zR/88k/75FSAYoooAKKKKACmyRLJ95VbHqM0" + + "6igBn2eP/nmn/fIo+zx/wDPNP8AvkU+ilYBn2WL/nnH/wB8ij7LF/zzj/75FPoosBH9mj/55J/3yKkAx" + + "RRTAKY8KSHLKrH3GafRQBH9mj/55J/3yKX7PH/zzT/vkU+ilYBn2WL/AJ5x/wDfIo+yxf8APOP/AL5FP" + + "oosBH9mjzny0z/uipKKKYBUf2eM/wDLJP8AvkVJRQBH9mj/AOeSf98ij7NH/wA8k/75FSUUWAZ9li/55" + + "x/98ij7LF/zzj/75FPopWAbHEsf3VVfoMU6iimAUUUUAMnt0uYikiK6HqrDINZVx8P9CuiTLoukyE9S1" + + "nGSf0rXckdBml60mrhYxofh9oFscx6JpCH1WzjH9K07azhsotkMUcKD+FFCj9KlVdoxSkZpcqCwUUUVQ" + + "BRRRQAUyWFLiMo6q6nqGGQafRQBkXHgPRLzJl0bSpCeu+0jb+lRr8OfD8PKaFo6n2so/wDCtuip5UKyK" + + "1lo9ppa4tbW2tx6RRqn8hVmiiqGFFFFABUZt42OSiEn2FSUUANWNY1wFAHoBTqKKAAjIqP7NH/zyT/vk" + + "VJRQAUUUUANdA64YAj0IzTRbxjpGnH+yKkooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA" + + "ooooAKKKKACiiigAooooAKKKKACiiigABzVbU9Th0ixlubhtkUKlmb0FTscHPrWP8QNHm1/wjf2tv8A6" + + "6eFkX6kEUDja+p5pJ+3l8Mo5XRvECbkYqw8luCDil/4b1+GH/Qwp/35avjC4/4JwfEh764cWJKyTO4/e" + + "r0LEimf8O3/AIkcf6D/AORVrHnn2OxUqXc+0/8AhvL4Yf8AQwD/AL9NR/w3l8MP+hgH/fpq+K/+HcPxJ" + + "/6B5/7/AC0f8O4fiV/0Dz/3+Wjnn2F7Gn3PtT/hvL4Yf9DAP+/TUf8ADeXww/6GAf8Afpq+K/8Ah3D8S" + + "v8AoHn/AL/LR/w7h+JX/QPP/f5aOefYPY0+59qf8N5fDD/oYB/36aj/AIby+GH/AEMA/wC/TV8V/wDDu" + + "H4lf9A8/wDf5aP+HcPxK/6B5/7/AC0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/wChgH/fpq+K/wDh3" + + "D8Sv+gef+/y0f8ADuH4lf8AQPP/AH+Wjnn2D2NPufan/DeXww/6GAf9+mo/4by+GH/QwD/v01fFf/DuH" + + "4lf9A8/9/lo/wCHcPxK/wCgef8Av8tHPPsHsafc+1P+G8vhh/0MA/79NR/w3l8MP+hgH/fpq+K/+HcPx" + + "K/6B5/7/LR/w7h+JX/QPP8A3+Wjnn2D2NPufan/AA3l8MP+hgH/AH6aj/hvL4Yf9DAP+/TV8V/8O4fiV" + + "/0Dz/3+Wj/h3D8Sv+gef+/y0c8+wexp9z7U/wCG8vhh/wBDAP8Av01H/DeXww/6GAf9+mr4r/4dw/Er/" + + "oHn/v8ALR/w7h+JX/QPP/f5aOefYPY0+59qf8N5fDD/AKGAf9+mo/4by+GH/QwD/v01fFf/AA7h+JX/A" + + "EDz/wB/lo/4dw/Er/oHn/v8tHPPsHsafc+1P+G8vhh/0MA/79NR/wAN5fDD/oYB/wB+mr4r/wCHcPxK/" + + "wCgef8Av8tH/DuH4lf9A8/9/lo559g9jT7n2p/w3l8MP+hgH/fpqP8AhvL4Yf8AQwD/AL9NXxX/AMO4f" + + "iV/0Dz/AN/lo/4dw/Er/oHn/v8ALRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8N5fDD/AKGAf9+mr4r/AOHcP" + + "xK/6B5/7/LR/wAO4fiV/wBA8/8Af5aOefYPY0+59qf8N5fDD/oYB/36aj/hvL4Yf9DAP+/TV8V/8O4fi" + + "V/0Dz/3+Wj/AIdw/Er/AKB5/wC/y0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/6GAf9+mr4r/4dw/Er" + + "/oHn/v8tH/DuH4lf9A8/wDf5aOefYPY0+59qf8ADeXww/6GAf8AfpqP+G8vhh/0MA/79NXxX/w7h+JX/" + + "QPP/f5aP+HcPxK/6B5/7/LRzz7B7Gn3PtT/AIby+GH/AEMA/wC/TUf8N5fDD/oYB/36aviv/h3D8Sv+g" + + "ef+/wAtH/DuH4lf9A8/9/lo559g9jT7n2p/w3l8MP8AoYB/36aj/hvL4Yf9DAP+/TV8V/8ADuH4lf8AQ" + + "PP/AH+Wj/h3D8Sv+gef+/y0c8+wexp9z7U/4by+GH/QwD/v01H/AA3l8MP+hgH/AH6aviv/AIdw/Er/A" + + "KB5/wC/y0f8O4fiV/0Dz/3+Wjnn2D2NPufan/DeXww/6GAf9+mo/wCG8vhh/wBDAP8Av01fFf8Aw7h+J" + + "X/QPP8A3+Wj/h3D8Sv+gef+/wAtHPPsHsafc+1P+G8vhh/0MA/79NR/w3l8MP8AoYB/36aviv8A4dw/E" + + "r/oHn/v8tH/AA7h+JX/AEDz/wB/lo559g9jT7n2p/w3l8MP+hgH/fpqP+G8vhh/0MA/79NXxX/w7h+JX" + + "/QPP/f5aP8Ah3D8Sv8AoHn/AL/LRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8N5fDD/oYB/36aviv/h3D8Sv+" + + "gef+/y0f8O4fiV/0Dz/AN/lo559g9jT7n2p/wAN5fDD/oYB/wB+mo/4by+GH/QwD/v01fFf/DuH4lf9A" + + "8/9/lo/4dw/Er/oHn/v8tHPPsHsafc+1P8AhvL4Yf8AQwD/AL9NR/w3l8MP+hgH/fpq+K/+HcPxK/6B5" + + "/7/AC0f8O4fiV/0Dz/3+Wjnn2D2NPufan/DeXww/wChgH/fpqP+G8vhh/0MA/79NXxX/wAO4fiV/wBA8" + + "/8Af5aP+HcPxK/6B5/7/LRzz7B7Gn3PtT/hvL4Yf9DAP+/TUf8ADeXww/6GAf8Afpq+K/8Ah3D8Sv8Ao" + + "Hn/AL/LR/w7h+JX/QPP/f5aOefYPY0+59qf8N5fDD/oYB/36aj/AIby+GH/AEMA/wC/TV8V/wDDuH4lf" + + "9A8/wDf5aP+HcPxK/6B5/7/AC0c8+wexp9z7U/4by+GH/QwD/v01H/DeXww/wChgH/fpq+K/wDh3D8Sv" + + "+gef+/y0f8ADuH4lf8AQPP/AH+Wjnn2D2NPufan/DeXww/6GAf9+mo/4by+GH/QwD/v01fFf/DuH4lf9" + + "A8/9/lo/wCHcPxK/wCgef8Av8tHPPsHsafc+1P+G8vhh/0MA/79NR/w3l8MP+hgH/fpq+K/+HcPxK/6B" + + "5/7/LR/w7h+JX/QPP8A3+Wjnn2D2NPufan/AA3l8MP+hgH/AH6aj/hvL4Y/9DAP+/TV8V/8O4fiV/0Dz" + + "/3+Wj/h3D8Sv+gef+/y0c8+wexp9z7SP7evwwUnPiFPT/VNVwftsfDgj/kOL/36NfEQ/wCCcXxJBX/iX" + + "ng/89VrqE/4J/ePwo/0Y9P+ego559hOjT7n/9kL"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label78 = new DevExpress.XtraReports.UI.XRLabel(); + this.label77 = new DevExpress.XtraReports.UI.XRLabel(); + this.label76 = new DevExpress.XtraReports.UI.XRLabel(); + this.label73 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + this.Egységár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.ÁFA_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bizonylatszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Sztorno_számlaszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Számla_megnevezés = new DevExpress.XtraReports.UI.CalculatedField(); + this.Példányszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Fizetési_mód = new DevExpress.XtraReports.UI.CalculatedField(); + this.Adószám = new DevExpress.XtraReports.UI.CalculatedField(); + this.EU_Adószám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Záradék = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label49, + this.label74, + this.label48, + this.label45, + this.label44, + this.label43, + this.label78, + this.label77, + this.label76, + this.label73}); + this.detailBand1.HeightF = 48F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label50, + this.label31, + this.label46, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 469.4166F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.HeightF = 0F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // GroupHeader1 + // + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.DocumentNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 0F; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label51, + this.subreport1, + this.label52, + this.label53, + this.label54, + this.label55, + this.label62, + this.label63, + this.label64, + this.label67, + this.label68, + this.label69, + this.label70, + this.label71, + this.label72, + this.label75}); + this.GroupFooter1.HeightF = 313.5417F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(89.99999F, 21.99999F); + this.label49.Multiline = true; + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(679.0204F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(305.0001F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(52.99994F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(275F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(30F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(89.99999F, 1.999982F); + this.label44.Multiline = true; + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(185F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label78 + // + this.label78.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg", "{0:#,###0}")}); + this.label78.Font = new System.Drawing.Font("Arial", 8F); + this.label78.LocationFloat = new DevExpress.Utils.PointFloat(672.2084F, 1.999982F); + this.label78.Name = "label78"; + this.label78.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label78.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label78.StylePriority.UseFont = false; + this.label78.StylePriority.UseTextAlignment = false; + this.label78.Text = "label78"; + this.label78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label77 + // + this.label77.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg", "{0:#,###0}")}); + this.label77.Font = new System.Drawing.Font("Arial", 8F); + this.label77.LocationFloat = new DevExpress.Utils.PointFloat(600F, 1.999982F); + this.label77.Name = "label77"; + this.label77.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label77.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label77.StylePriority.UseFont = false; + this.label77.StylePriority.UseTextAlignment = false; + this.label77.Text = "label77"; + this.label77.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label76 + // + this.label76.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg", "{0:#,###0}")}); + this.label76.Font = new System.Drawing.Font("Arial", 8F); + this.label76.LocationFloat = new DevExpress.Utils.PointFloat(448F, 1.999982F); + this.label76.Name = "label76"; + this.label76.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label76.SizeF = new System.Drawing.SizeF(85F, 20F); + this.label76.StylePriority.UseFont = false; + this.label76.StylePriority.UseTextAlignment = false; + this.label76.Text = "label76"; + this.label76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label73 + // + this.label73.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Egységár", "{0:#,###0}")}); + this.label73.Font = new System.Drawing.Font("Arial", 8F); + this.label73.LocationFloat = new DevExpress.Utils.PointFloat(358F, 1.999982F); + this.label73.Name = "label73"; + this.label73.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label73.SizeF = new System.Drawing.SizeF(85F, 20.00001F); + this.label73.StylePriority.UseFont = false; + this.label73.StylePriority.UseTextAlignment = false; + this.label73.Text = "label73"; + this.label73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EU_Adószám")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(465.0153F, 209.0834F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.Suppress; + this.label50.SizeF = new System.Drawing.SizeF(311.9846F, 20F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Példányszám")}); + this.label31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(585F, 244.7083F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(192F, 23.00003F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UsePadding = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Sztorno_számlaszám", "Sztornózott számla száma: {0}")}); + this.label46.Font = new System.Drawing.Font("Arial", 9F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(465.0153F, 267.7083F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(311.9845F, 23F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UsePadding = false; + this.label46.Text = "label46"; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 269.0833F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 249.0834F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 229.0834F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 209.0834F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 189.0834F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 169.0834F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 421.25F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 376.2499F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 292.9167F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 137.9167F); + this.label14.Multiline = true; + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(311.9846F, 19.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 117.9167F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(311.9847F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Adószám")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(465.0153F, 189.0834F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.Suppress; + this.label12.SizeF = new System.Drawing.SizeF(311.9845F, 20.00002F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 269.0833F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 249.0834F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 229.0834F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 209.0834F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 189.0834F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 169.0834F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 137.9167F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 117.9167F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Számla_megnevezés")}); + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(280F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(497F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UsePadding = false; + this.label3.Text = "label3"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(15.99998F, 5F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(264F, 80F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 97.91666F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 97.91666F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(457.0834F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(371F, 2.999939F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(85F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(275F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label32, + this.label65, + this.label33, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 22F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(245F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Settled period / Számlázási időszak:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.InvoicePeriod")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(255F, 22.00003F); + this.label65.Multiline = true; + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(267.5001F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName", "Currency / Devizanem: {0}")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 22.00003F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 10, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(239.9166F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UsePadding = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Fizetési_mód")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bizonylatszám")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Záradék")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(0F, 245F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label34.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.875F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 189.5417F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 52.29168F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 94.66667F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 119.6667F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 144.6667F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 94.66667F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label62.Summary = summary1; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 119.6667F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 144.6667F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label64.Summary = summary3; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 265F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.StylePriority.UseTextAlignment = false; + this.label67.Text = "A 3C Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet 1.§ " + + "(6) bekezdés szerinti előírásainak ."; + this.label67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 280F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 295F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 94.66667F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 119.6667F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 144.6667F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(3.125F, 169.5417F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(313.5416F, 20.00002F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // Egységár + // + this.Egységár.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[ListPriceHUF] ,[ListPriceDEV] )" + + ""; + this.Egységár.Name = "Egységár"; + // + // Nettó_összeg + // + this.Nettó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[PriceHUF]*[QTT],[PriceDEV]*[QTT" + + "] )"; + this.Nettó_összeg.Name = "Nettó_összeg"; + // + // ÁFA_összeg + // + this.ÁFA_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\', iif(isnull([SumPriceVATHUF]),0" + + ",[SumPriceVATHUF]), iif(isnull([SumPriceVATDEV]),0,[SumPriceVATDEV] ))"; + this.ÁFA_összeg.Name = "ÁFA_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[SumPriceBruttoHUF],[SumPriceBru" + + "ttoDEV])"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // Bizonylatszám + // + this.Bizonylatszám.Expression = "Iif([InvoiceHeader.IsProforma],[InvoiceHeader.DocumentNumberProforma] ,[InvoiceHe" + + "ader.DocumentNumber] )"; + this.Bizonylatszám.Name = "Bizonylatszám"; + // + // Sztorno_számlaszám + // + this.Sztorno_számlaszám.Expression = "Iif([InvoiceHeader.IsStorno], [InvoiceHeader.ConnectInfo] ,nothing)"; + this.Sztorno_számlaszám.Name = "Sztorno_számlaszám"; + // + // Számla_megnevezés + // + this.Számla_megnevezés.Expression = "Iif([InvoiceHeader.IsProforma],\'Proforma Invoice / Próbaszámla\' , \'Invoice / Szám" + + "la\' )"; + this.Számla_megnevezés.Name = "Számla_megnevezés"; + // + // Példányszám + // + this.Példányszám.Expression = "iif([InvoiceHeader.PrintCopy]<=1,\'Original/1. példány\',iif([InvoiceHeader.PrintCo" + + "py]>1,\'Copy/2. példány\',\'\'))"; + this.Példányszám.Name = "Példányszám"; + // + // Fizetési_mód + // + this.Fizetési_mód.Expression = "Iif(Lower(Trim([InvoiceHeader.PaymentOption.ShortName]))= \'átutalás\', \'Bank trans" + + "fer/Átutalás\' ,[InvoiceHeader.PaymentOption.ShortName] )"; + this.Fizetési_mód.Name = "Fizetési_mód"; + // + // Adószám + // + this.Adószám.Expression = "Iif(IsNullOrEmpty([InvoiceHeader.Saved_Customers_VATNumber]),\'\' , \'VAT number/Ad" + + "ószám: \' +[InvoiceHeader.Saved_Customers_VATNumber] )"; + this.Adószám.Name = "Adószám"; + // + // EU_Adószám + // + this.EU_Adószám.Expression = "Iif(IsNullOrEmpty([InvoiceHeader.Saved_Customers_VATNumberEU]),\'\' , \'VAT number/" + + "Adószám: \' +[InvoiceHeader.Saved_Customers_VATNumberEU] )"; + this.EU_Adószám.Name = "EU_Adószám"; + // + // Záradék + // + this.Záradék.Expression = resources.GetString("Záradék.Expression"); + this.Záradék.Name = "Záradék"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter, + this.GroupHeader1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül, + this.Egységár, + this.Nettó_összeg, + this.ÁFA_összeg, + this.Bruttó_összeg, + this.Bizonylatszám, + this.Sztorno_számlaszám, + this.Számla_megnevezés, + this.Példányszám, + this.Fizetési_mód, + this.Adószám, + this.EU_Adószám, + this.Záradék}); + this.DisplayName = "C3C kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_regi.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_regi.repx new file mode 100644 index 0000000..ad0b640 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_regi.repx @@ -0,0 +1,2530 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUACwEAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAAwBAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlACEBAAAB4gFQc" + + "ml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZ" + + "D0nIiAmIGxhYmVsNzUuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KAR5TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAARNDM0Mga2ltZW7FkSBzesOhbWxhQAABAAAA/////wEAAAAAA" + + "AAADAIAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQd" + + "WJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAVU3lzdGVtLkRyYXdpbmcuQml0bWFwAQAAA" + + "AREYXRhBwICAAAACQMAAAAPAwAAAO/JAAAC/9j/4AAQSkZJRgABAQEBLAEsAAD/7gAOQWRvYmUAZAAAA" + + "AAC/+EOLkV4aWYAAE1NACoAAAAIAAcBEgADAAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBK" + + "AADAAAAAQACAAABMQACAAAAGwAAAHIBMgACAAAAFAAAAI6HaQAEAAAAAQAAAKIAAADOASwAAAABAAABL" + + "AAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzAAAyMDEwOjAxOjA0IDE2OjUxOjQ2AAADoAEAA" + + "wAAAAH//wAAoAIABAAAAAEAAAFtoAMABAAAAAEAAABwAAAAAAAAAAYBAwADAAAAAQAGAAABGgAFAAAAA" + + "QAAARwBGwAFAAAAAQAAASQBKAADAAAAAQACAAACAQAEAAAAAQAAASwCAgAEAAAAAQAADPoAAAAAAAAAS" + + "AAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIBAEgASAAA/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAA" + + "AAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAz/wAARCAAxAKADASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAA" + + "AAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMM" + + "wEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0N" + + "hfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBA" + + "gQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDB" + + "yY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp" + + "7fH/9oADAMBAAIRAxEAPwD1Rzg0FziABqSdAo121Wt3VPbY3iWkEf8ARXm+Tj5n14+tuZgXZD6OldNc5" + + "uxuo/Ru9Dc1p/R+vkWC1/q2M/RVIX1j+qtv1NbR1roWZa2LG1PFm3dJlzN3pNqrux37NllVlabxHetGM" + + "5DqRG4jrfbf0vp7nNa0ucQGgSSdAAFx+d1jP6rlDHwi9tLjtqqrO1zx/pLX+3a3+T/Ns/wi0s/q32z6q" + + "05zB6Z6hVVLR+b6oa61n+b6layulPNGB1PMrO26utlVbxy31Cdxb/0E4Mizun9bwGuymOc0Va2GmzeWx" + + "/pa/wA5v7/tsXQ9C6v+0aHNthuTTHqAcOB+jaz+suV6Zmfs7LbkNZvbtcyysGN7SOHc/ne9F6LmV4PUq" + + "7nu9OghzLDzDCNzOP3XtrSU9yksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD" + + "/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5" + + "Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/" + + "uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElP/0PQBgdB+r" + + "7MzqrKW4jXA2ZdzQ5xIBdY5xY3e76T3fQauP+tn1ip+tVdHQvq7XZmW2Wi2y0tNbAGAwP02x/03b7LHf" + + "Q/4RduzJ6L1vHvxqr6OoUEbMiut7bBDuG2em523dtXH/Xf6l9Gw+jW9V6ZT9jyMMseRW521zS5rOC79F" + + "ZXu9WuypNltpVMeS+HSuH9LvX9V3Oo9LOD9VMfCa7f9gZS1zh+ds212P/6W9ZnTgbOldVpbq/ZXaG9y1" + + "hc5/wD1C2PqjnWda+q2NdnfpbLGPpvJ/P2Ofj73fyrGM3PWNfRn9AzhY0wBIquIlljD/g7OPdp72f260" + + "4bLwQQCNiEPSsNufnV4znObW5rnveyJDWj6XuDm/TLEToNZt6vjBv0WudZP8lrXR/3xJ/WLHVvoxsejF" + + "dke2x2Oz9I+fzG/1lvfVzpD8Kt2TkN25FwDWs7sZztP8t/56SWXU/rd9Xek5ZwuoZjaMkNDzWWWO9rp2" + + "ma63t/NQsX68fVbMy6sPGz22ZF7gyqv07AS48Nl1bWrR6nVUcHKsLGl4pshxAJ+i7usX/F5VU76odNsc" + + "xpeBbDyBP8APXfnJtm60W2eIDTvs2s766/Vjp+Xbh5mcKsik7bGFlhgwHfSbW5rva5Wem/WTovVcfIye" + + "n5IvpxP594a9u3T1OLGMc72furlsLrPQul/Wv6x/tm6qkXW4/oi1pdO2t3qbYa/9+tdHV1Lo/UuiZ2R0" + + "iyu2hrLa7H1N2jeK920y1n5j2JCR7jyUDfUbnTydDp3UcPqeHVnYNnrY1wJrshzZAJYfbYGP+k391D6t" + + "1npnRsduT1K4Y9L3itry1zpeQ5+39E17voVvWV/i+/8R3Tf6j//AD5Yq3+MOyqnD6Rdc4Mpr6rjPtc7U" + + "BjW3Osc7n27Er9N+CjL034N3F+vX1UzMmrExs9tl+Q8V1M2WDc52jWy6sNV7rHXuk9Eobd1LIFDbCW1t" + + "gue8jtXVWH2OVDA+sv1Pzs2rFwcnHty7SfSYxhDiWg2O2uNbfzGuWcGV5/+Mx7bxvb0vADqGnUCx7m/p" + + "I/e2XpWa3B1pVmtwbNO30b6zdF62bGdOyPUtqE2Uva6uxomN3p2tY7b/KYidZ6/0nodTLep5AoFpLamQ" + + "XPeR9L06qw+x22fc76CBk/V2u36yYfX6rRTZjV2VZFQZPrte0tq32b27fRcd30LFk4jG5v+MnPsvaH/A" + + "LMw6q8eRO027bXPb/L/AEtrErP1ulWfqTTtdG+s3RetmxnTsgWW1CbKXNdXY0cbvTtax23+W1SyfrH0b" + + "F6pV0nIyRXnX7fSpLXmd5Ir/SBnpe/b++sP6wsrwvrr9Xs+oBtuWb8XII03t2sFW+PpbHW/9QsX65ss/" + + "wCc2fk0NnI6f07Hz6T4Ox8lj3n/ALZdagZEDyKDIgHwNPoGfn4nTsS3NzbBTjUjdZYQTAnb9Fgc76RUO" + + "mdUweq4jczp9vrY7i5oftc3Vp2v9tjWO+ksP615NfUaOjdOoPqV9YzKHub+9jVfrt7v81lSj/i2cX/VW" + + "l5/OuvP32PRv1Um/VXSn//RN0Hqtf1K+sXUum9VrezFyXAsta3cQ1rn/Z7wxv06Labf0np+p6dtfp/6R" + + "XPrl9eOl9S6W7pHRy/MuzXMY5za3tAG4O9OtljWW232ua2tjGVruc/pfTepVivqGLVlNbOwWsDts87C7" + + "3M/sIGB9Xuh9Ns9XBwaaLdQLWsG+DyBYfem8J2vRi4JAGIkOE+HqFovqp0q3pH1fw8C+BfWwuuAgw+xz" + + "rrGbm+13pus9Naj2Me0se0OadC0iQfkpJJwZAKAA6IacPDoduoorqcfzmMa0/8ARCMkhX5OPjV+rkWsp" + + "rkDe9waJPA3OSSj6l/ydlf8TZ/1Llif4uv/ABG9O+Fv/n65atnVei21uqszMdzHgtc02s1BEOH0kHp+T" + + "9W+m4deFg5ONRjUz6dbbWkDcTY76T3O+m5Ctb8EVqD4Fweiv6a361/Wb7e6hoNuN6frlg/wb9+z1f7K6" + + "G+zpz+k5rcB1LmNqs3igtIDiw/S9L87aszM6R9Q87Ksy8tuHdkXHdZY60STAb2s/darHT6Pqd0yi/HwX" + + "4lFWVpextoh2mz3bnn80oAHw6oAI+0/i0fqJ1PpuP8AVPp1V+XRVa1j9zH2Ma4TZYdWucm+vV2PdhdEu" + + "Y9llDurYp9QFrqy2Ltx3/zexP8A83P8XP8AosLT/hv/AFKrl2L9TL+nU9LudiPwcZwdTQbRtaQHNn+c3" + + "f4WxKjVaKo8NaN+m7oAuZ6FmJ65MV7DXv3HSGbfducufstq6X/jJ9XKcK6uq4Irosdo02scz9Fvd7d2y" + + "n/wWpWcfon+L/FyKsmhmHXdQ8WVPFolrmncx385+arvVh9U+s0DH6nbi5NbTubutaC0/wAiyt7LGf2Hp" + + "Ua6bqIJ7aatfM63kv8Arj0/o2Ba11LKrr+qMaGu2tjbjB7/AKVLvW/8+1qlj2M6f/jIzWZLhW3q2HU/G" + + "LjAe+rbT6Tf+E/R2LS6RR9T+iVvr6XZi44tINjhaHOdH0d1tr32bW/u71LqzPql1qltPU7MXJYwyybQ1" + + "zSfpbLa3ssZu/kvSo/W7VR363bmdffXn/XfoHT6HB9mD62VlBuvpt2s9H1I+hvfX/4JUmtxa8z/ABgZ+" + + "Jb/ADWR0U1P/qvtax3/AEXLR6RjfU3ogeOmPxcc2fzj/WD3n+SbbrLLNv8AI3Kw2/6tN6i7qgyMYZr6v" + + "Qdf6rZNYPqen9Pb9MJcJ697Vw9+9vKfUl+R1LquCzJBJ+rmA/FeDpsyH2vxR/7I4q1/8Wf/AIkqP+Nu/" + + "wDPjlp4Vn1XwLsm/Evxabc1/q5L22tl79TvdL/5b0/Tb/qz0vFbh9PyMajHaS5tbbWkS47nfSe785IRI" + + "r6qjEir8X//0vVUl8qpJKfqpJfKqSSn6qVTqX9G/tN/KvmBJJT9GJL5zSSS/RiS+c0klP0YkvnNJJT9G" + + "pl85pJKfo1N3Xzmkkp+jfBMvnNJJT9GdkvD5L5zSSU//9n/7RL2UGhvdG9zaG9wIDMuMAA4QklNBCUAA" + + "AAAABAAAAAAAAAAAAAAAAAAAAAAOEJJTQPtAAAAAAAQASwAAAABAAIBLAAAAAEAAjhCSU0EJgAAAAAAD" + + "gAAAAAAAAAAAAA/gAAAOEJJTQQNAAAAAAAEAAAAeDhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAA" + + "AAAAAAAAAEAOEJJTQQKAAAAAAABAAA4QklNJxAAAAAAAAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZ" + + "gABAGxmZgAGAAAAAAABAC9mZgABAKGZmgAGAAAAAAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AA" + + "AAGAAAAAAABOEJJTQP4AAAAAABwAAD/////////////////////////////A+gAAAAA/////////////" + + "////////////////wPoAAAAAP////////////////////////////8D6AAAAAD//////////////////" + + "///////////A+gAADhCSU0EAAAAAAAAAgAAOEJJTQQCAAAAAAACAAA4QklNBAgAAAAAABAAAAABAAACQ" + + "AAAAkAAAAAAOEJJTQQeAAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAHAAAAFtAAAAC" + + "gBVAG4AdABpAHQAbABlAGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAFtAAAAc" + + "AAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIAAAAGY" + + "m91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAA" + + "AAAAEJ0b21sb25nAAAAcAAAAABSZ2h0bG9uZwAAAW0AAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAA" + + "AAABXNsaWNlAAAAEgAAAAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpb" + + "mVudW0AAAAMRVNsaWNlT3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlV" + + "HlwZQAAAABJbWcgAAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAA" + + "AAAAExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAHAAAAAAUmdodGxvbmcAAAFtAAAAA3VybFRFWFQAA" + + "AABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAAAAEAA" + + "AAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxpZ25lb" + + "nVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNsaWNlV" + + "mVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlA" + + "AAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvb" + + "U91dHNldGxvbmcAAAAAAAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAT/wAAAAA" + + "AAAOEJJTQQRAAAAAAABAQA4QklNBBQAAAAAAAQAAAADOEJJTQQMAAAAAA0WAAAAAQAAAKAAAAAxAAAB4" + + "AAAW+AAAAz6ABgAAf/Y/+AAEEpGSUYAAQIBAEgASAAA/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAA" + + "AAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAz/wAARCAAxAKADASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAA" + + "AAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMM" + + "wEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0N" + + "hfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBA" + + "gQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDB" + + "yY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp" + + "7fH/9oADAMBAAIRAxEAPwD1Rzg0FziABqSdAo121Wt3VPbY3iWkEf8ARXm+Tj5n14+tuZgXZD6OldNc5" + + "uxuo/Ru9Dc1p/R+vkWC1/q2M/RVIX1j+qtv1NbR1roWZa2LG1PFm3dJlzN3pNqrux37NllVlabxHetGM" + + "5DqRG4jrfbf0vp7nNa0ucQGgSSdAAFx+d1jP6rlDHwi9tLjtqqrO1zx/pLX+3a3+T/Ns/wi0s/q32z6q" + + "05zB6Z6hVVLR+b6oa61n+b6layulPNGB1PMrO26utlVbxy31Cdxb/0E4Mizun9bwGuymOc0Va2GmzeWx" + + "/pa/wA5v7/tsXQ9C6v+0aHNthuTTHqAcOB+jaz+suV6Zmfs7LbkNZvbtcyysGN7SOHc/ne9F6LmV4PUq" + + "7nu9OghzLDzDCNzOP3XtrSU9yksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD" + + "/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5" + + "Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/" + + "uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElP/0PQBgdB+r" + + "7MzqrKW4jXA2ZdzQ5xIBdY5xY3e76T3fQauP+tn1ip+tVdHQvq7XZmW2Wi2y0tNbAGAwP02x/03b7LHf" + + "Q/4RduzJ6L1vHvxqr6OoUEbMiut7bBDuG2em523dtXH/Xf6l9Gw+jW9V6ZT9jyMMseRW521zS5rOC79F" + + "ZXu9WuypNltpVMeS+HSuH9LvX9V3Oo9LOD9VMfCa7f9gZS1zh+ds212P/6W9ZnTgbOldVpbq/ZXaG9y1" + + "hc5/wD1C2PqjnWda+q2NdnfpbLGPpvJ/P2Ofj73fyrGM3PWNfRn9AzhY0wBIquIlljD/g7OPdp72f260" + + "4bLwQQCNiEPSsNufnV4znObW5rnveyJDWj6XuDm/TLEToNZt6vjBv0WudZP8lrXR/3xJ/WLHVvoxsejF" + + "dke2x2Oz9I+fzG/1lvfVzpD8Kt2TkN25FwDWs7sZztP8t/56SWXU/rd9Xek5ZwuoZjaMkNDzWWWO9rp2" + + "ma63t/NQsX68fVbMy6sPGz22ZF7gyqv07AS48Nl1bWrR6nVUcHKsLGl4pshxAJ+i7usX/F5VU76odNsc" + + "xpeBbDyBP8APXfnJtm60W2eIDTvs2s766/Vjp+Xbh5mcKsik7bGFlhgwHfSbW5rva5Wem/WTovVcfIye" + + "n5IvpxP594a9u3T1OLGMc72furlsLrPQul/Wv6x/tm6qkXW4/oi1pdO2t3qbYa/9+tdHV1Lo/UuiZ2R0" + + "iyu2hrLa7H1N2jeK920y1n5j2JCR7jyUDfUbnTydDp3UcPqeHVnYNnrY1wJrshzZAJYfbYGP+k391D6t" + + "1npnRsduT1K4Y9L3itry1zpeQ5+39E17voVvWV/i+/8R3Tf6j//AD5Yq3+MOyqnD6Rdc4Mpr6rjPtc7U" + + "BjW3Osc7n27Er9N+CjL034N3F+vX1UzMmrExs9tl+Q8V1M2WDc52jWy6sNV7rHXuk9Eobd1LIFDbCW1t" + + "gue8jtXVWH2OVDA+sv1Pzs2rFwcnHty7SfSYxhDiWg2O2uNbfzGuWcGV5/+Mx7bxvb0vADqGnUCx7m/p" + + "I/e2XpWa3B1pVmtwbNO30b6zdF62bGdOyPUtqE2Uva6uxomN3p2tY7b/KYidZ6/0nodTLep5AoFpLamQ" + + "XPeR9L06qw+x22fc76CBk/V2u36yYfX6rRTZjV2VZFQZPrte0tq32b27fRcd30LFk4jG5v+MnPsvaH/A" + + "LMw6q8eRO027bXPb/L/AEtrErP1ulWfqTTtdG+s3RetmxnTsgWW1CbKXNdXY0cbvTtax23+W1SyfrH0b" + + "F6pV0nIyRXnX7fSpLXmd5Ir/SBnpe/b++sP6wsrwvrr9Xs+oBtuWb8XII03t2sFW+PpbHW/9QsX65ss/" + + "wCc2fk0NnI6f07Hz6T4Ox8lj3n/ALZdagZEDyKDIgHwNPoGfn4nTsS3NzbBTjUjdZYQTAnb9Fgc76RUO" + + "mdUweq4jczp9vrY7i5oftc3Vp2v9tjWO+ksP615NfUaOjdOoPqV9YzKHub+9jVfrt7v81lSj/i2cX/VW" + + "l5/OuvP32PRv1Um/VXSn//RN0Hqtf1K+sXUum9VrezFyXAsta3cQ1rn/Z7wxv06Labf0np+p6dtfp/6R" + + "XPrl9eOl9S6W7pHRy/MuzXMY5za3tAG4O9OtljWW232ua2tjGVruc/pfTepVivqGLVlNbOwWsDts87C7" + + "3M/sIGB9Xuh9Ns9XBwaaLdQLWsG+DyBYfem8J2vRi4JAGIkOE+HqFovqp0q3pH1fw8C+BfWwuuAgw+xz" + + "rrGbm+13pus9Naj2Me0se0OadC0iQfkpJJwZAKAA6IacPDoduoorqcfzmMa0/8ARCMkhX5OPjV+rkWsp" + + "rkDe9waJPA3OSSj6l/ydlf8TZ/1Llif4uv/ABG9O+Fv/n65atnVei21uqszMdzHgtc02s1BEOH0kHp+T" + + "9W+m4deFg5ONRjUz6dbbWkDcTY76T3O+m5Ctb8EVqD4Fweiv6a361/Wb7e6hoNuN6frlg/wb9+z1f7K6" + + "G+zpz+k5rcB1LmNqs3igtIDiw/S9L87aszM6R9Q87Ksy8tuHdkXHdZY60STAb2s/darHT6Pqd0yi/HwX" + + "4lFWVpextoh2mz3bnn80oAHw6oAI+0/i0fqJ1PpuP8AVPp1V+XRVa1j9zH2Ma4TZYdWucm+vV2PdhdEu" + + "Y9llDurYp9QFrqy2Ltx3/zexP8A83P8XP8AosLT/hv/AFKrl2L9TL+nU9LudiPwcZwdTQbRtaQHNn+c3" + + "f4WxKjVaKo8NaN+m7oAuZ6FmJ65MV7DXv3HSGbfducufstq6X/jJ9XKcK6uq4Irosdo02scz9Fvd7d2y" + + "n/wWpWcfon+L/FyKsmhmHXdQ8WVPFolrmncx385+arvVh9U+s0DH6nbi5NbTubutaC0/wAiyt7LGf2Hp" + + "Ua6bqIJ7aatfM63kv8Arj0/o2Ba11LKrr+qMaGu2tjbjB7/AKVLvW/8+1qlj2M6f/jIzWZLhW3q2HU/G" + + "LjAe+rbT6Tf+E/R2LS6RR9T+iVvr6XZi44tINjhaHOdH0d1tr32bW/u71LqzPql1qltPU7MXJYwyybQ1" + + "zSfpbLa3ssZu/kvSo/W7VR363bmdffXn/XfoHT6HB9mD62VlBuvpt2s9H1I+hvfX/4JUmtxa8z/ABgZ+" + + "Jb/ADWR0U1P/qvtax3/AEXLR6RjfU3ogeOmPxcc2fzj/WD3n+SbbrLLNv8AI3Kw2/6tN6i7qgyMYZr6v" + + "Qdf6rZNYPqen9Pb9MJcJ697Vw9+9vKfUl+R1LquCzJBJ+rmA/FeDpsyH2vxR/7I4q1/8Wf/AIkqP+Nu/" + + "wDPjlp4Vn1XwLsm/Evxabc1/q5L22tl79TvdL/5b0/Tb/qz0vFbh9PyMajHaS5tbbWkS47nfSe785IRI" + + "r6qjEir8X//0vVUl8qpJKfqpJfKqSSn6qVTqX9G/tN/KvmBJJT9GJL5zSSS/RiS+c0klP0YkvnNJJT9G" + + "pl85pJKfo1N3Xzmkkp+jfBMvnNJJT9GdkvD5L5zSSU//9k4QklNBCEAAAAAAFMAAAABAQAAAA8AQQBkA" + + "G8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAAAASAEEAZABvAGIAZQAgAFAAaABvAHQAbwBzAGgAbwBwA" + + "CAAQwBTAAAAAQA4QklNBAYAAAAAAAcACAAAAAEBAP/hGAVodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xL" + + "jAvADw/eHBhY2tldCBiZWdpbj0n77u/JyBpZD0nVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkJz8+DQo8e" + + "Dp4bXBtZXRhIHhtbG5zOng9ImFkb2JlOm5zOm1ldGEvIiB4OnhtcHRrPSJYTVAgdG9vbGtpdCAzLjAtM" + + "jgsIGZyYW1ld29yayAxLjYiPg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvM" + + "Tk5OS8wMi8yMi1yZGYtc3ludGF4LW5zIyIgeG1sbnM6aVg9Imh0dHA6Ly9ucy5hZG9iZS5jb20vaVgvM" + + "S4wLyI+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZ" + + "S05MmU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuM" + + "C8iPg0KCQkJPGV4aWY6Q29sb3JTcGFjZT40Mjk0OTY3Mjk1PC9leGlmOkNvbG9yU3BhY2U+DQoJCQk8Z" + + "XhpZjpQaXhlbFhEaW1lbnNpb24+MzY1PC9leGlmOlBpeGVsWERpbWVuc2lvbj4NCgkJCTxleGlmOlBpe" + + "GVsWURpbWVuc2lvbj4xMTI8L2V4aWY6UGl4ZWxZRGltZW5zaW9uPg0KCQk8L3JkZjpEZXNjcmlwdGlvb" + + "j4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0OS0xMWRlLTkyZ" + + "TktYzBlYzdmNGI2NzBkIiB4bWxuczpwZGY9Imh0dHA6Ly9ucy5hZG9iZS5jb20vcGRmLzEuMy8iPg0KC" + + "Qk8L3JkZjpEZXNjcmlwdGlvbj4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZ" + + "TBmNDktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuczpwaG90b3Nob3A9Imh0dHA6Ly9uc" + + "y5hZG9iZS5jb20vcGhvdG9zaG9wLzEuMC8iPg0KCQkJPHBob3Rvc2hvcDpIaXN0b3J5PjwvcGhvdG9za" + + "G9wOkhpc3Rvcnk+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphY" + + "m91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnRpZmY9I" + + "mh0dHA6Ly9ucy5hZG9iZS5jb20vdGlmZi8xLjAvIj4NCgkJCTx0aWZmOk9yaWVudGF0aW9uPjE8L3RpZ" + + "mY6T3JpZW50YXRpb24+DQoJCQk8dGlmZjpYUmVzb2x1dGlvbj4zMDAvMTwvdGlmZjpYUmVzb2x1dGlvb" + + "j4NCgkJCTx0aWZmOllSZXNvbHV0aW9uPjMwMC8xPC90aWZmOllSZXNvbHV0aW9uPg0KCQkJPHRpZmY6U" + + "mVzb2x1dGlvblVuaXQ+MjwvdGlmZjpSZXNvbHV0aW9uVW5pdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+D" + + "QoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5L" + + "WMwZWM3ZjRiNjcwZCIgeG1sbnM6eGFwPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIj4NCgkJC" + + "Tx4YXA6Q3JlYXRlRGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6Q3JlYXRlRGF0ZT4NC" + + "gkJCTx4YXA6TW9kaWZ5RGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6TW9kaWZ5RGF0Z" + + "T4NCgkJCTx4YXA6TWV0YWRhdGFEYXRlPjIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpNZXRhZ" + + "GF0YURhdGU+DQoJCQk8eGFwOkNyZWF0b3JUb29sPkFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzPC94Y" + + "XA6Q3JlYXRvclRvb2w+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZ" + + "jphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnhhc" + + "E1NPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIj4NCgkJCTx4YXBNTTpEb2N1bWVudElEP" + + "mFkb2JlOmRvY2lkOnBob3Rvc2hvcDoxMDNlMGY0OC1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQ8L" + + "3hhcE1NOkRvY3VtZW50SUQ+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uI" + + "HJkZjphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zO" + + "mRjPSJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyI+DQoJCQk8ZGM6Zm9ybWF0PmltYWdlL" + + "2pwZWc8L2RjOmZvcm1hdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJPC9yZGY6UkRGPg0KPC94Onhtc" + + "G1ldGE+DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgC" + + "iAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9J3cnP" + + "z7/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQECAgICAgICAgICA" + + "gMDAwMDAwMDAwP/2wBDAQEBAQEBAQEBAQECAgECAgMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA" + + "wMDAwMDAwMDAwMDAwMDAwMDAwP/wAAUCABwAW0EAREAAhEBAxEBBBEA/8QAHwAAAAYCAwEAAAAAAAAAA" + + "AAABwgGBQQJAwoCAQAL/8QAtRAAAgEDBAEDAwIDAwMCBgl1AQIDBBEFEgYhBxMiAAgxFEEyIxUJUUIWY" + + "SQzF1JxgRhikSVDobHwJjRyChnB0TUn4VM2gvGSokRUc0VGN0djKFVWVxqywtLi8mSDdJOEZaOzw9PjK" + + "Thm83UqOTpISUpYWVpnaGlqdnd4eXqFhoeIiYqUlZaXmJmapKWmp6ipqrS1tre4ubrExcbHyMnK1NXW1" + + "9jZ2uTl5ufo6er09fb3+Pn6/8QAHwEAAAYDAQEBAAAAAAAAAAAABgUEAwcCCAEJAAoL/8QAtREAAgEDA" + + "gQEAwUEBAQGBgVtAQIDEQQhEgUxBgAiE0FRBzJhFHEIQoEjkRVSoWIWMwmxJMHRQ3LwF+GCNCWSUxhjR" + + "PGisiY1GVQ2RWQnCnODk0Z0wtLi8lVldVY3hIWjs8PT4/MpGpSktMTU5PSVpbXF1eX1KEdXZjh2hpamt" + + "sbW5vZnd4eXp7fH1+f3SFhoeIiYqLjI2Oj4OUlZaXmJmam5ydnp+So6SlpqeoqaqrrK2ur6/90ABAAu/" + + "9oADgQBAAIRAxEEAAA/APn/APv3Xut/j3737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69172L" + + "HTnS2/u892w7R2FijWVCqlRlcpUl4MNgMez6DkMxXBHWniJBEaKGmmYaY0Y3HtuWVIV1Of9npTaWk15K" + + "IoVqfM+QHqesckiRLqY2/oPyT/Qe7uenP5e/SfXdFS1e86D/ShuoRxtVVufSSLb1PPYGRMbtuKY0rQh+" + + "A1Y1TIbXGi5X2US3srkhDpX5cf29C+02O0gAMo8SX58PyH+evTbJVyufSdC/wBB9f8AYt7OFR9c9fY6m" + + "WjoNi7OoqRBZaak2zhaeBRbTYRRUSJyvH09pS7nJc1+3o1EECiiwoB9g6j63/1bf8lH/ivsIuxPiV8fu" + + "zKSeHOdcYLGVsqMI83tSlh2xmKaQ3tOlRiY4KepkVmvpqIp42P6lPt1LmaM4c0+eeks+2WNwCHt1B9Vw" + + "f5f5esiTyp9HJH9G9Q/3n3Td8nvhDvToaKp3bt2qn3r1osiCbMLAsea255mCRpuOhgBiNK0jBFrYf2Sx" + + "AkWIsoY1t7tJu1hST/D9nQU3HaJbIGWM67f18x9v+f/AAdOMFSsvpPpf+n4P/BT/X/D2Rr2r6J+pPv3v" + + "3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de6" + + "9797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3" + + "v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de" + + "69797917r3v/9D5/wD7917rf49+9+69173737r3Xvfvfuvde9+9+69173737r3Xvap2Rs3Pdhbt29snb" + + "FIa7PblylNisdTi4TzVD2eeokAPhpKSENLNIeI4kZjwD7q7BFZ2OAOnIYnnljhjFXY0HXFmCKWY2Ci5/" + + "wB9/X3s49CdHbV6C6/xuy9twxzVhSOs3Nn2hRK7cedeJRVV9S4GsU0bXjpYSSIIAFFzqZg/NM0zl24eQ" + + "9OpDsrOOygWGMZ8z6n1/wA3TLLK0rlm/wCQR+AP6e13vvf+zesttVu79+bgoNtbeoNKzV1c7apqiQHw0" + + "VBSxLJV5HIVGk+OCFHkaxNrAkURHkbSi1bp6aeK3jMszhYx5n/J6n5dcVRnOlQWP9B/vuPdfG4P5o/Ue" + + "Prpabb3X2+tyUcchRcjU1eG27HOoYjywUshy9T42ABXyCJyDyqnj2uXbpSO5wD+3ojfmO1U0jgdh64H+" + + "fqWKGS3LoP8OT/xA9iv1H8/+ie08tS7drZsx13n6+aOmx9PvBaJcPX1MriOGlp9wUNTLRw1EzkBRVJTK" + + "zEBSSfbUtlNGNQoy/L/ADdKbXe7O5YIxMbnhq4ft/z06xyUkqC4s4H103uP9h7OvXUNJkaSrxuSpKeuo" + + "a2nmo66hrII6ilq6WojaGopqmnmV4p4JonKujAqykgi3tICQQQc9G5AYFWFVPUYG3I4I5BH4966vzW+N" + + "Q6D7BjyO26eT/RvvZ6qt20fXIMHXxMr5LbM0z6iVo/KslKzHU9M4UlmjdvZ5aXHjJRv7Qcf8/QE3fb/A" + + "KKcNGP8Xfh8j5j/ADfL7Onemm8qWP614b/H+jf7H2S32r6KepPv3v3Xuve/e/de69797917r3v3v3Xuv" + + "e/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797" + + "917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xu" + + "ve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de697//R0O+ses989x782x1n1tt6t" + + "3TvXeGThxOCwtAE8tTUy3Z5Z5pWjp6Kgo4EeaoqJnSGngjeSRlRSQbbHse68ybtY7Hslm0+53MgSNF4k" + + "nzJOFUCpZiQqqCSQAejPZtm3PmHdLLZtntGn3G4cKiL5k+ZJwFAqWYkBVBJIA630d57y2119tjM7y3fl" + + "qbCbcwFFJXZPI1RbRFClgsccaBpqmqqJWWOKKNWklkZUQFiB72nPjH/ACGelNpYPF5v5ObizPaW9KiCG" + + "pyO0dsZOs2vsHDTMA745chj2p90bieEnS9T9xQxOf0wADU2enI33TeWNvtYLrnm8lv9zIBaGJmit0P8O" + + "paSyU821ID5J5nNzkz7r/LlhbQXPOd3Je7iQC0UbGOBD/DqWkklPNtSA+S+ZpL7m/me9jZ3JVuN6ZxOP" + + "2Vt2KWSKkz2ZoqfNbpyMakqtWaWqE2FxKSDlYfFUuv5kN7CweH+V58A4KJaBPjHsFoFiMIeafctTWlGv" + + "ctkqjPS5F5eeHMpcfg+5gX2J9o0iEI5GtNFKZMpb/ejIWr8616lZfZX2sSMRDky100pkyE/70XLfnWvR" + + "U5Pmn8pZag1TdzbpEjOJCsceHhp9QtYCkhxaUipx+kIFP8AT2Tr5AfyKfit2HichVdKVe4+i94eKWTGL" + + "BlMnvPZE1UI/wBqnyuF3JXVebhpZXWxkpMhE0WrVokC+No35v8Aup8g7xbzPyxJNtW40JWjNNAT5B0kY" + + "uAfVJBTjQ0oY/5q+7LyPu0Er8uSTbZuFO2jNNCT5BkkYuAfVZBTjQ8CYHqz+Zn3dtOvpIexoMR2XgNaJ" + + "WmWio9vbjjgLeuWiyOIpoMbJOim4WekcPa2pL6hqxfJP409sfFLs/K9U9u4L+FZyiQVuKydI71W391YK" + + "aSSOi3DtvJNFEtfi6sxMvKpNBKrRTJHKjIMC+duSOYOQN9uNg5itPDul7kYZjljJIWSNqDUpp8ipBVgG" + + "BHWEfOHJ2+8jb1Pse/2vh3K5VhmOVDwkjbGpTT5EEFWAYEdXadP9xbF7x2ZRb42Fk/vsbUMaeto51WHK" + + "4TJxoj1GKzFGHc0tbAHB4LRyIQ8bMjKxAL2Eegt0KXu3P8Alf8AUcNVW7y7oylKshxjHZW1HlS4iraiC" + + "Cv3HXQk8CaOinpqdWH0SeVfz7LNwloEiHnk/wCToT8u2oJlu2HDtX/Cf8g/b1ArZOFjH59Tf70o/wBv7" + + "uTVSzBVF2YhQP6kmwH+39lfQr6bvevp8r+wt2fJ35LwdXbQnkrcHg9zr17sjGJK60E2VFWtDndx1SgFd" + + "VTXxys0xBMdFAgFrG51bItvb+IwyRU/5ugPuc8u47gLeI1RW0qPKvAn9v8ALp2gRYIS7fUrrY/m31Cj/" + + "Yf7z7tD63+Cfx42HtykxWZ2Vj+wM8aWNczuXdJqquSurTGBUPjcctTHQ4iiEl/CsaeYJbXI7c+y+S8nd" + + "iQ+keg6Edvs1jDGFeEO9Mk+f2DgOoL1UrtcMUH4VeP9v+T7JF85PhhsnrnZzdvdSUFRg8XjchR0e8Np/" + + "dVVfjqWmyk4paPOYWWtlqK2ljjr5I4ainaSSMCVXj0KrL7V2l08j+FIanyPRRvG0wwRfVWq0UHuXiM+Y" + + "/PiOpNNUs7eOQ3Jvpb6G/1sfx9PZtP5fPc2V7U6YnwW5a6bI7k6zyVPtySvqpWmrMht2rpmqtvVFXK93" + + "lnpI4ZqTWxLOlOha7XJTXsQjl1KO1s/n59GWx3bXNoUkNZIzT8vL/N+XWCrjCS3AsHF7D6A/Q/8V/2Ps" + + "ZvlV1JT9zdIbz2sKZJs5Q0Eu5dpyMB5IdyYOCaqoo4nP+b/AInD5aNz9BHUMfbVtJ4UyN5cD9h6V7lai" + + "7s5Y6d4FV+0f5+H59Y4JPHKrfgnS3/BT9f9t9fesKQVJVgVZSQykEEEGxBB5BB9iDqPOnr317917r3v3" + + "v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de" + + "69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v" + + "3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve//Sq" + + "o/kD/GfE4nrzfvynz+Nhn3Lu7M1vXOwaqphR5MXtPAfaT7oyOOkZCYn3BuCRaSR1OoJi2UWWRw2fP3R+" + + "SLe32bdufbuEG+uJWtrckfDFHQysvp4kh0E8aREcCa5v/da5Ngg2ndOd7qEG8uJDbwEj4YkoZGX/mpJ2" + + "k8aRkcCa7Hn80nuOur917X6SxdZJHh8Dj6bd26YYZGVa3O5TzxYWkq1DetcVilM6KRpLVobkqtjB/zYv" + + "5l24/h/FtrqHpWPEyd0bzwrblyO4svRwZai6/2pJV1GPx1XBiKgvR5DcecraKo+3SqSSnp4KdpJIpPLE" + + "PYw+8D733vtytly5ywIzzNcxeI0jgOtvESVUhD2tI7K2kMCqqpJU6l6Fnvp7x3fIC2ewcuCM8xXEfiNI" + + "wDLBFUqpCnDSOQ2kMCqhalTVegp+DHw6xHfsmY392K1cvXe3siMPSYmgqJaCp3VnEgiqquCWvi01FLiM" + + "bT1EXlaFkllklCo6aH961tV/Mh+ddZk3y8vyj7aSreVpjFS7hNFjVZmZtMeHo4IMTHCC5tGsAQCwtYD3" + + "hNJ71e60s5uG583ASE1oJNK/wC8ABKfLTTrDyT3f9zZJjcNzrfiQmuJKL/vAAWnypTq4SD4hfGWnoloE" + + "6V2I0CoIw8+K+5rCAFXU2QqJZa9pCFF2Mmonm/u+X+U/wDzVew/kBv+P44fI6rxub3plMTkMh1x2NSY+" + + "gwtbuCowlI1dktrbnoMclJi5smcTBLU0dXTwQGUU8kcyvKyO2WP3fvf3eOb93XkvnSRJdzkjZra4CqjS" + + "FBqaKVVopbQCyOqrXSQwLEE5P8AsX74btzVuo5Q5vkSTcXjZre4CqhkKDU0UirRS2kFkZQK6SGBYgmsL" + + "5zfCDafVe1n7e6igrMdt2irqWk3dtKeqqcjT4qLJTimo83hqqraetjohXSpDUQSyyBDKjRlUDKDb/zi/" + + "jNhO9/iHu7esGNhbsLoimqexdq5ZIr1pwNGIf79bfeVfW+PyOAjaq8f/K3QwNwAwMh/eQ5HtebPbrcdz" + + "SEfvjaVNxE9O7wxTx46/wALRgvT+NEPr0PPvBcm23M/IN/uKwj97bYpniamdAp4yV/hZBqp/Ein16Aj+" + + "X73Jkuse+8DtySskG0+zpodpZygZ/8AJxlKjyf3ZyqofStXSZVxBq/44VMo5JFtIn3y765udbIXvZh+F" + + "20otn/Gjq6iWExVGXwsu6K0soDy1G5a2oyyO5F9RWjqYkUnnQgH4t7ILptdxIfQ0/Z1IG0xCLb7YeZFf" + + "256ZqltUz/4HSP+QQB/vfsxO58t/ANs7lzx/wCXJt7OZj8j/i14urrvqOf90e2FGplX1I6XyNojkf0Un" + + "9g6wqLkD+pA/wBufdC38ubCjdPydjz+TBqqjb+1t3bnFRJYt/Fa2OLEiob/AGtxmpTf8E+zm+bTb0HmQ" + + "OgXsKeJuOtslVY/nw/y9OtXxBYfQso/2A5/4j3sCeyXob9NPsO+3Ov4e1ust69cz14xSbvwkuJXKGl+9" + + "/hsxnp6mCtFJ5qf7gwTU4OnWhP9R7vE/hyJJStD0nuoBc28sBamoUr6fPrnG/jdXtfSb2+l/wDY8+y/f" + + "FP4nP8AGOo3xKu/DvGLecGAiaAYE4RaGTAy5Z0mJOUyX3LTLlmUD0aQD9b8P3Nz9QE7KUr516Rbbtn7u" + + "Mx8fWHp5UpSvzPr1lnqPNp9GnTf+1qve3+0i309nF9pejXqP71YPkTtGLYnefau1aZBHR4ze2cbHxgEC" + + "LGZCrbKYyKx/wCOePrY1/obcexFA2uGNvMjqOL+IQ3lzGOAc0+w5H8unyFtUUbfkqL/AOuOD/vI9gz7d" + + "6SdZPfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvd" + + "e9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+691737" + + "37r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuv" + + "de9/wD/0w9/lXU+B2z8A/jhQxV2NppKzaeWzlXGaymjb7zO7t3DlahpEZ0ZZWaq9Vxe/vq97CJaWPtHy" + + "XEsqKWt3cio4vLIx/POeunfsglrZ+1nKEayIC0DOcji8sjH889XDfNyXKZn5SdvVL01ZMtPnaHGwP4JX" + + "H2+MwWKoYlVlVgUAg4t+PerZ/N53RV7n/mB97moqlqqbBTbJ29i2jlWaGPHUWwds1KRxNGWQJ91WysQP" + + "7TG/N/eB33ir+S+93+a9cmpIjBGuagKtvEaD82J+0nrCb38vZL33V5nLvqSIwxrmo0rBGcfmSftPV1/w" + + "JwsGF+K3WQihME2Tj3Hlq0PG0cj1dTujMws8isAxbw0yAE/2QLcW91qe4S6h3o4fs5X8vHKVuH+cXxYr" + + "MfIY6iTujZWNdhq9VHmsnHhsjGdDKdM2Pr5UP4s3Nxx7kr2cnltvdPkKSE0c7nCv5O2hh+asR1IXtPPJ" + + "b+5XJEkRox3GFfydtDftViOi9/LCipsh8a+7aeqUPEnXe4qxQbcVGOo2yFI/qBF46qlRh/iPe9R8ioYK" + + "n4+9609TGktNP052dDPFJ/m5IZNk5tJUe5HoZCQf8PfVbnNVfk/mtHAKHbboEHhQwPXrppzaqvypzMji" + + "qHb7kH7PBfrWc6lkki7V6zlhZkmj7B2ZJE6frWRNx41kZf9qDAW9/ON98X+uRPW3P72v+nqaKj6k6upI" + + "RaKm672VBGOAdMe28agJ0hRqIFzwOfYblzLIf6R/wAPUl2opbW4HDw1/wAA6YpP85J/wdv+hj767j/5k" + + "/23/wCIu7D/APePzPvcX9rF/ph/h69df7i3P/NNv+Onr0f+cj/4Ov8A0MPdO38raN27m35IEJSLrSq1u" + + "BcJ5NyYBE1H8am4Hs03D+yT/Tf5D0FeXP8Acub/AJp/5R04V3+bT/g//RJ93oeyfoY9Nnv3v3Xuve/e/" + + "de69797917r3us75AfL/qLqjtfc2x9y9B47eOaxX8Llrdxyw7X8mSavxNFXRM5rsLV1bGCGdYrvIT6OO" + + "Le18NtLJGrrNQHyz0H77dLW2uZIZLIO4pnGaj5jqZFTySIHWXSDfj1cWJH449gx/wAOC9C/94u4r/qTs" + + "z/7HPb30U3/ACkH+f8An6Sfvuy/6Nw/4z/m6yfaS/8AHb/eW/4r79/w4L0L/wB4u4r/AKk7M/8Asc9++" + + "im/5SD/AD/z9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/4cF6F/7xdxX/AFJ2Z/8AY5799FN/ykH+f+fr3" + + "77sv+jcP+M/5uvfaS/8dv8AeW/4r79/w4L0L/3i7iv+pOzP/sc9++im/wCUg/z/AM/Xv33Zf9G4f8Z/z" + + "de+0l/47f7y3/Fffv8AhwXoX/vF3Ff9Sdmf/Y5799FN/wApB/n/AJ+vfvuy/wCjcP8AjP8Am699pL/x2" + + "/3lv+K+/f8ADgvQv/eLuK/6k7M/+xz376Kb/lIP8/8AP17992X/AEbh/wAZ/wA3XvtJf+O3+8t/xX37/" + + "hwXoX/vF3Ff9Sdmf/Y5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/wDHb/eW/wCK+/f8OC9C/wDeLuK/6" + + "k7M/wDsc9++im/5SD/P/P17992X/RuH/Gf83XvtJf8Ajt/vLf8AFffv+HBehf8AvF3Ff9Sdmf8A2Oe/f" + + "RTf8pB/n/n69++7L/o3D/jP+br32kv/AB2/3lv+K+/f8OC9C/8AeLuK/wCpOzP/ALHPfvopv+Ug/wA/8" + + "/Xv33Zf9G4f8Z/zde+0l/47f7y3/Fffv+HBehf+8XcV/wBSdmf/AGOe/fRTf8pB/n/n69++7L/o3D/jP" + + "+br32kv/Hb/AHlv+K+/f8OC9C/94u4r/qTsz/7HPfvopv8AlIP8/wDP17992X/RuH/Gf83XvtJf+O3+"; + resourceString += "8t/xX37/AIcF6F/7xdxX/UnZn/2Oe/fRTf8AKQf5/wCfr377sv8Ao3D/AIz/AJuvfaS/8dv95b/ivv3/A" + + "A4L0L/3i7iv+pOzP/sc9++im/5SD/P/AD9e/fdl/wBG4f8AGf8AN177SX/jt/vLf8V9+/4cF6F/7xdxX" + + "/UnZn/2Oe/fRTf8pB/n/n69++7L/o3D/jP+br32kv8Ax2/3lv8Aivv3/DgvQv8A3i7iv+pOzP8A7HPfv" + + "opv+Ug/z/z9e/fdl/0bh/xn/N177SX/AI7f7y3/ABX37/hwXoX/ALxdxX/UnZn/ANjnv30U3/KQf5/5+" + + "vfvuy/6Nw/4z/m699pL/wAdv95b/ivv3/DgvQv/AHi7iv8AqTsz/wCxz376Kb/lIP8AP/P17992X/RuH" + + "/Gf83XvtJf+O3+8t/xX37/hwXoX/vF3Ff8AUnZn/wBjnv30U3/KQf5/5+vfvuy/6Nw/4z/m699pL/x2/" + + "wB5b/ivv3/DgvQv/eLuK/6k7M/+xz376Kb/AJSD/P8Az9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/wCHB" + + "ehf+8XcV/1J2Z/9jnv30U3/ACkH+f8An69++7L/AKNw/wCM/wCbr32kv/Hb/eW/4r79/wAOC9C/94u4r" + + "/qTsz/7HPfvopv+Ug/z/wA/Xv33Zf8ARuH/ABn/ADde+0l/47f7y3/Fffv+HBehf+8XcV/1J2Z/9jnv3" + + "0U3/KQf5/5+vfvuy/6Nw/4z/m699pL/AMdv95b/AIr79/w4L0L/AN4u4r/qTsz/AOxz376Kb/lIP8/8/" + + "Xv33Zf9G4f8Z/zde+0l/wCO3+8t/wAV9+/4cF6F/wC8XcV/1J2Z/wDY5799FN/ykH+f+fr377sv+jcP+" + + "M/5uvfaS/8AHb/eW/4r79/w4L0L/wB4u4r/AKk7M/8Asc9++im/5SD/AD/z9e/fdl/0bh/xn/N177SX/" + + "jt/vLf8V9+/4cF6F/7xdxX/AFJ2Z/8AY5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/8dv8AeW/4r79/w" + + "4L0L/3i7iv+pOzP/sc9++im/wCUg/z/AM/Xv33Zf9G4f8Z/zde+0l/47f7y3/Fffv8AhwXoX/vF3Ff9S" + + "dmf/Y5799FN/wApB/n/AJ+vfvuy/wCjcP8AjP8Am699pL/x2/3lv+K+/f8ADgvQv/eLuK/6k7M/+xz37" + + "6Kb/lIP8/8AP17992X/AEbh/wAZ/wA3XvtJf+O3+8t/xX37/hwXoX/vF3Ff9Sdmf/Y5799FN/ykH+f+f" + + "r377sv+jcP+M/5uvfaS/wDHb/eW/wCK+8LfzAOhzUxTf7LBiwscFREY/Fs2zNNJTOrkf3ctdBAR/wAhe" + + "/fRTf8AKQf5/wCfrX77sqg/u4f8Z/zdd/aS2t5vyP8AVf4/4/4+/wD/1NApMhXxIscdbVxxoLIiVMyIo" + + "uTZVVwqi5/HtwTTKAFlYAfM9OCWUAASMB9p638WpaV2LvTQOzG7M0MbMx+lySpJPuPJJJM7SSyPLI5u0" + + "kjs7sbAXZ2JYmw/PuhYsSzEk9UJLEljU9ZURI1CRqqIvCqihVH54UAAc++HvXWuuXu3X+TH8b909xfL7" + + "aHZS4uqXr3omWfem489JTv/AA5tx/Y1VJs/b1PUnTHJl6nK1K1vjUkpTUcjta6hsiPu0cl3/MnuNt29i" + + "Bv3PtJM0khHb4mkiGMHhrLnXTyVCT5Vnv7u/KF7zBz9YbwIG/dO2EzSOR2+JpIijB/jLHXTyVCT5VIZ/" + + "MN7ewnX/Qef2c1bCd19mxx7dxGLSVfuxifuYZ8/lpYRdkoIaGE0+sgBpqhFH9q2yr/NJ73w/Q/wq7kyF" + + "VkIKbcXYe3a3qnZtA0kYqspmd9Us+IrxSxMbyLitty1tbKbWWOnIvqZQc2/fjmu25T9seZZpJgt5eQta" + + "wr5s84KNQf0Iy7n5L6kdZh+9nM9vyx7c8wyvKBd3cJtoV82eYFGoP6MZdz8l9SOqefhR1lX9nfIvr6lg" + + "pZZcTtPLU++Nw1Sq3hosftmeKvpfNIOENdmEpqdB9S0t/oDbQ198nOuYPWzz72nfjlnItx9C9P5aJtQm" + + "682rTSNqLk1GNxFNjKrUxJJcVNG+q/N7+w7ONM0o/pHqR7BxJZWrD/fY/kKdMcw0yyD/a2/3k39q/tCh" + + "fJ9Zdk42IMZMj17vagjCWLl6zbGUpkCA8Fy0nF+L+6xmkkZ/pD/AA9O3A1W9wo4lG/wHrihs6H+jKf95" + + "Hul3+V5kkpu8d341pCr5brXKCOMEWlNBnMDWPcfU+NELC39PZruA/RU/wBL/Iegny61LyVfWM/yI6cq0" + + "XiU/wBHF/8AYgj3e37J+hl01+w67c7Cg6o6z3p2PUY/+Lx7QwzZQYr7sUByUn3NNSxUa1hgqRTtLJUj1" + + "eN/p9D7vGniSLGDSp6YupxbW805WugVpwr1zjTW6pe2o2v/AE9gR8VvlWvyb/vw8OxZdmw7MG3gZZM8M" + + "0MlLnjmLRppxWNFP9mmIu3LlvKOBb29cW30+jvrWvSLbdy/ePjUg0BKeda1r8h6dZZ4PDpu2rVf6C1rW" + + "/xP1v7N57TdGnUf3rOfNLNx575O9t1MUnlios/T4RTe+mTBYjHYmqj/AOndbSSD/C3s/tBpt4vs6j7dn" + + "17jdH0an7AB080wtBH/AK1/9uSf96PsrvtR0XdZ/fvfuvde9+9+69173737r3Xvfvfuvde9+9+691737" + + "37r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuv" + + "de9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173" + + "737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9//9X5/wD7917rf49it0RtbC757w6a2TuSnlq9u7x7W" + + "682tn6SGomo5qnC7h3dh8TlKeKrp2SellmoauRVkQh0J1Aggez/AJTsLbdeaeWtrvULWdzuFvFIASCUk" + + "mRGAIyCVJFRkcR0ecsWNtufMvL223iFrS4voInAJBKSSorAEZFVJyMjpD9nZvI7Z627C3HiJUgy239j7" + + "szeLnkijnjhyOKwNfX0UskEoaKZI6mBSUYFWAsePe6Ht7+Tl/L029Vw1q9Gz5qeCUyou4ew+yMrSMCVI" + + "imx0m648dURKV4EkTE3NyffTKz+7d7PWciyjlYyuDX9S4uXH2FfF0kfaD10StPu++1FpIsg5aMjA1/Un" + + "uGH2FfF0kfaOtd7K/zA/ldlYJKY9lRY+ORAjHFbT2hQzg2ILx1aYNquJ2v/AGXAFuAPZw8tgqf469P1m" + + "M+OPQOM3H/d6CSXb3Umw67aPXFJkql4mMkpymaeixEE0zQoJZnE1TISDpkI9yPcWicmcuSQcl8opN4IJ" + + "jtIGhtgxpk6n0oCaCrHUx9D1IE9snKWwSQ8ocrJN4QrHawNFbhjT+J6KCaCpNWPoegAocnL21v+nrO3e" + + "0q3EfxWREy2/Nz0ue3fPRwq4CJ9ljlqa+WOMSMY418cKc8qPek9/MO+SPyg7+7sq6b5LbXy/WFfsr7mh" + + "2t09VY/IYnGbKxlZNqeppYq9EmztZmBTq0uXOta1Y18JWBY405h+8fOvPXN3M8ic72EljNa1WKzKsiwq" + + "TxAbMjPQVlzroNNECgc4/dnnDnXmnmN05xspLKW2qsdoVZVhUniNWXL0zLnXQaaKABsafE/qHpfq3riC" + + "bp3NUG9KXcXhqc3v+Gqpa6s3FWU8dlimelZo8ZT0HlYR0A0mnLnyBpWd2IJ7iPqLejSe79v5bHYsW6ej" + + "KrZVRPryvXO4a2hELOGk/gWfkkzOLnsTqEYrZayEC1gsI9k1+mmbXTDD+fQ12CcSWZhJ7o2/kcj/L01V" + + "iaZdX4cA/7EcH/iPdhrxxzI8EwvDOjwzCwa8MymOUaTwbox49oej3BweHUT3ridb5yX4lfMAw7gWWlw2" + + "0t55nau4NN3L7Ozfmooskvp1TRR4utp69Lf5wIoH19nrj6m17eJFR9vQCt3O2brSTCK5U/6U4r+wg9PD" + + "jz0/H1ZQw/4MPxc/wCIt72NqWqpa6lpa+gqqeuoK6nhrKGupJUnpK2jqI1lp6qlnjJjmp54nDIykgg+y" + + "Igg0Iz0PAQQGU1U8D0zkW4PBHBB/Huvv+ZF2djdp9GjYCVkP94+ycvjYYaBZF+6i25g6yPKZTJvFfUtN" + + "JW01PSqxFnMr25Q2W2EZabXTtUfz6JN/uFis/Ar+pIR+wZJ/wAA6l0aFpdf9lAef8SLAf6/PtNfyv8AZ" + + "9Zh+oN6bvrKdoYt5bxip8VIy2NXjts0DUstQlwGMS5OvniB5UtGwHIPu24MDKijyH+Hpvl2IpayykfG+" + + "PsH+z1yrWvIq/6lef8AXJ/4oPdh+7dy43Zm1tx7tzEyQYrbOEyedyErsEC0uLo5qyYAn+26Q6VH1LEAc" + + "n2iVS7Ko4k9HksixRySue1QSfy6hqpZgo+rEAf7E296nG6M/Wbq3LuHc+RYvX7jzeVzta7HUWq8tXT19" + + "QSfyTLOfYkVQqqo4AU6jSRzJI8jfExJ/aa9PygKoUfRQAP9YC3u23+WF8NfiR8o9p9sZb5J9j5LYuV2l" + + "uLbWO2tT0HY+0NjrkMfk8bkqnIzSU25sTkZa9oKmljUPEyqmqxFyPeSPsX7a+3nPm38wXHO29PaXFvNG" + + "sQW5hg1KysWJEqMWoQMigHU/ey/t7yHzrYb7Pzhu7208E0axhbiKHUrKxY0kVi1CBkcOq//AJn/ACE74" + + "6VzuxqDp/aFHuahz2JzFXm5araOf3KaSqo6yjhpI0mw1dSR0okhmclXBLWuDx7tUxv8nv8Alg5nIUeJw" + + "/ee7srlcjUxUePxmN726wrshX1c7BIKWjo6XastTVVMzkBERWZibAe58g+7j7F3M0Vvbc1XMk7sAqrfW" + + "rMxPAKBESSfIAV6nCH7v/svcSxwW/M1xJO5AVVvbZmYngABESSfIDokNZ8/vmfj6Worq/rPAUNFSQvUV" + + "dZWdZb0pqWlgiUtJPUVE2cSGGGNRdmYhQPqfb/uf+Sf/Lr2StG28+zuztorkDMtA25+3dg4Ba5qcRmoW" + + "jOV2ZSCpMAlUuE1adQva49rL77sPs1tYjO577fW4eunxbu3j1U401witKitOFelV793H2k20Rncd6vbc" + + "PXT4l1AlacaaoRWlRWnTXhv5jXy03Gagbe2ZszPGkEZqhhthbpyhphKWERqBQ7inMIlKNp1W1WNvp7Kn" + + "8qf5Z38uzqj469wdj9Yd15zcHYGzdlZPN7Tw0/dXXGdhyOYpjEKamlw+L29T5DIo5c3ihkR2/BHsAc/e" + + "x/s1y/ybzHvWxczyzbvbWrPEhvbaQM4pQFFjDN9gIJ6A/O/s37S7Hylv+77LzHJLutvbM8SG8t3DOKUB" + + "RYwzfYCCehw6R+Y/wAtN89tbA2hvPrnGYrau4Nx0eNzuQi663fjJKTHzBzNMmQrcrNSUjKF/XIrKv5Hu" + + "oD+Xz0BsT5PfKzrrpfsmbcFPtDdVPuuTJTbXyNJis0j4bauYzNEaWtrcblqaJTWUKeQNAxaO4BUkMMc/" + + "Z/lDaueuf8AZuWd7aZduuFlLGJgj9kTutGZXA7lFe01GMceoB9qeVds50552jl3eGlG3ziUsY2Cv2RO4" + + "oSrAZUV7Tj06P18q+09zdMdH7t7E2hHipc/g5cGlHHmqSeuxzLkc5j8dUiempqyhmc/b1LaSJV0tYm4F" + + "jsW5r+Sb/Lt23VrQbi7M7PwFc8KVKUWa7c2Fi6t6eRnRJ1p67ZkEzQu8TAMBpJUi/B95l3X3YPZuykEV" + + "5vl/DKRXS93bqaetGhBpg56y3ufu4e0tnIIrveb2KUitHuoFNPWjQg0wc9VKY7+Y58s8xA1Vidm7LylM" + + "sjQtUY7Ye6K2BZVVWaJpqbcUsYkVXBK3uAR/X20f8M2/wAs7/n8++P/AEd3Wv8A9iXtP/wNnsh/0011/" + + "wBltt/1p6T/APA9+zf/AE0Vz/2WW/8A1q6n/wDDg/zH/wCfd7a/9FvvH/6/e6k/5pnwx+MnxMpel5vjv" + + "vTObuk3xUb5j3UMzvva+8vsUwEe1WxBp4dvYjFyY7ztl6jU02tZtACWKNfHr359tORvb2PlluTdzluTd" + + "GcS654ptPhiLRQRoumutsmtaY4HqCPe3285M5ETl1uUtxluDcmbxdc8cunR4WigjRdNdTca1pjgej2/C" + + "f5Ddy96z9iR9s7dxmBTbUW2nwf8P2xmtv8A3LZR82tf5ZMtX1qVfiFBFYR6THqJa+oWAT+Wj8Y+uPlv8" + + "naDp/tOo3PS7Uqtkbu3C820spRYjLivwcNFJRhauvxWYg+2YztrXw3bizC3IS9keRtl9w+eYeXN+eddv" + + "a1mkrCyo+pACuWRxTORT8+gt7OcmbRz5zpFsG9vMti1tLJWJgr6kApllcUznH59Cj8xe5t3dD9M1W/9k" + + "w4afOQbkwOKWPPUVRX0BpclJUJUEwUtdj5fMBENLeSw54PuP/Mo+NHXfxM+UOa6d6uqNzVW08ftDZ+ch" + + "m3Zk6PLZg1udx71VaHrKHF4inMCyKBGvhBUfUn3T3s5I2b2957ueW9hedtvS2hcGVld9Ui1bKqgp6dv5" + + "9V94eTdp5E51uOX9keZrFLeJwZWDPV1qcqqCnpjrL8Pu4t2969LY7sDesWGgztXns/jZI8FR1FBjxTYy" + + "rWCnK09VW18olKk6j5LE/geyDe4k6i3o0Xv3v3Xuve7hf5S/wAE+lPm3k+8KLuOt33Rx9d0GwqrAHZOe" + + "xmEaR9y1G7IskMj/EsBnPuQq4WDxaPFo9d9VxpyO+737U8se6E/NMXMkt2os0gMfgSKn9oZQ2rVG9fgW" + + "lKUzxrjID2J9suXPcibmWPmCS6UWiwFPBdU/tDKG1akevwClKUzxrggPzr+TXY3xwoutqnr+n2xUPuyq" + + "3RBlBuPGVuSCrh4sHJRmk+zyuM8JJyMmvVr1em1rG9tlZ/Jg/ltY6rqKDIdu9g0NdRzSU9XR1nc/XVLV" + + "0tRExSWCop59oJNBNG4IZWAYHgj3kLJ92f2UhkeKbmK8SVTQqb22BBHEEGGoI9D1O8n3d/Z+GR4pd/u1" + + "lU0IN3bggjiCDFUHoiVP/MP+X9XBFVUuwtqVNNURrLBUU/Xm7ZoJonAZJYpY8+0ckbqbhgSCPcb/hm3+" + + "Wd/z+ffH/o7utf/ALEvdP8AgbPZD/pprr/sttv+tPVP+B79m/8Aporn/sst/wDrV1m/4cH+Y/8Az7vbX" + + "/ot94//AF+967Xz06V6v+Pfyi7C6n6czVduHr3bdNtGXCZbJbgxO6KyqfM7PweayYlzOEo6DHVHhydfM" + + "gVIlaJVCNdlJOG3uzyxsXJ/Pe8cv8t3TzbPAsJR2kSUnXCjtV0CqaMxFABTgcjrEv3Q5c2XlTnXdti5e" + + "uWl2mFYijNIshOuJHaroFU0ZiMDHA5HVs3xg7F3p2t0rtTfPYOOpsTuvMTZ5MlQUeKrsLTwrj9wZPHUe" + + "jH5KoqquHXRUsbEs5Dk6lsCB7BzoTo3f/yQ7Z2b031pjVyG695ZIUdPJOZI8biMfBG9Vls/mqmOOVqTD" + + "YTHQyVFRIFZ9CaUV5GRGDfKXKu786cw7by1scOvcLl6Cvwooy8jnNERQWY0JoKAEkAh/lflrdeb992/l" + + "7Zodd9cPQV+FVGWdzmiIoLMeNBQAkgEQO0OytrdQ7F3B2DvGsNJg9vUZqJViCvWV9VK6wUGLx0LugnyG" + + "Sq5EiiUkLqa7FUDMNoXH/yyf5Znws69wu4/l3u/Hbsz1dGKWfcXYe683t7GZbLpD5q+l2R19tCvpsjX0" + + "0Cm4jZcpUxoAzSLqt7zsh9jvY/2y2e2vfcTcUuLtxQyXErxq70qwgt4WDMB6HxWAySK9ZpxezPs17dbT" + + "bXnPt+k90woZJ5XjVnpVhDBEwZgPQ+IwGSRXqluq+ZXzJ+RW68jiOhcDV4PF0zmeLE7TweNytZQUDSeO" + + "lm3HurP0s1JTTStxqU0ULsSApt7cdv/AAS/lBfNTAZrGfHLL4bF7nxdC8j5DrDe26qDdmDSQmOnyWR2H" + + "v2oqxV4v7oqrSzY0K/6FmRjf29Z+1H3dPc60uoOS7iKO+jWuq1nlWVK4DNBOTVa+ZjzwDAnp609sfYL3" + + "GtbmHlCeNL1F+K2mlWVK8GaGcmq18zHngGB6h5X5N/Pn465THVnblBka3C1tSqLSbz25hKrB5JkAeWjp" + + "Nz7XigMFb4bkJHWEr+po2At71xfmr8O+wPhT3JWdX7zqYs7iMhRLn9ib2oqWSkx279szTy06Vi00jzHH" + + "5WgqYmgrqQySGCZQVZ4pIpHwv8Ac7233f2x5kk2Lc3Etu6+JBOoIWaIkitM6XUgq6VOk8CVKscRPcb2/" + + "wB19ueYZNk3FxLAy64ZgKLLGSRWmdLKQVdanSeBKlSbdPjp8gNrfIvr6n3pt6F8ZX0tScXufblROk9Xg" + + "MzHGkrU7TIsYqqGqhcS004RRLGbFVdXRSh+466APQ9+71f5a/8AKKj+TO0aPvr5B5jObS6fr5ag7N2vg" + + "pIcbuTflLQzSwVeercvWQVCYDaa1UDxRNHE1VW6HdHgjWOSbKv2T+7uOeNuj5s5wuZbflxyfBijIWScK" + + "SDIzkHw4qggUBZ6EgooDNk17Pewg5ysI+aOa7iWDl9ifCjSiyThTQuXIOiKoIFBqehIKqAWrN+YPz0bp" + + "vPVHWHVVBjc7v6lSIbhzeTR6zEbYmqY0lgxlPQU8sTZTOmGRXcO4hptSqyyuWSOwjI9afyD9k5Y9c5bI" + + "9Ny5qjkmxdVVNv7s7cccNUkhgqFr97YzOZDB01VBMSGZ61PEykenSbTDNsn3StruP3LcTbablSVJ+oup" + + "ADwOqdXaMEHjVxT5U6lebZvuubbcfuiebbzcqSpPj3MlDwOqZXZAQeNXFPlToqdJvH+aJuSgG7qCj7BT" + + "HVCx1sMA2vszEPJAy+WI0u3KzG0uTlgkjAKhadtYI+txcCPmP8AyXOq8v1XkO9PgxuGqysNHhZt0QdcD" + + "cY3ztzee36eOWpqZeud2NUVuSfKx0sZaCmqamuStZDGkschVWCfuT92bYLjYJuavaq8aRViMotvE8eOa" + + "MAkm3lqza6fCrM4cjSGDUBC/uD93XY59jl5m9s7tnVYzILfxPGjmjFSfp5altVPhVmcPSgYGgInfH3+Y" + + "lvag3vSdZ/JfFQUUlRkY8LJu84g7ay23srK8cMKbuwQip6NaFpmAlmhhpmpg2tkdASus0QVJVgVZSQQQ" + + "QQQbEEHkEH3g/wwePWG3DB49XHgggEEEEXBHIIP0IP5B92w/wAp/wCFHT3zW7C7Z2t3BWb1o8dsnZuEz" + + "+GfZWbx2FqXrchm3x1QtdJkcHnEng8ABVVWMhuST9PeQP3fvbDlz3O3jmGw5jkulhtbZJE8F1Q6mfSdW" + + "pHqKcKAdTp7F+3HL/uNuu+2XMElysNtbo6eC6oas+k11I9RThw6Iz85vkZv/wCOe1Ni5vYFPtyoq9x7h" + + "yOLyC7jx1ZkYVpqXGrVxGmSkyeNaKXyk3JLAj8D2cX+ZD/Kd6C+M/xfy3d/RWW7KymZ2nvPbdFuWHde5" + + "cNn8WNrZatrNu5BoabGbXw1RDkaPcdXQAyGUpHEJQyEkMske9P3feUeR+RbjmjlS4vpLm3uY1lEsqSL4" + + "TsY2oFiQhlkMea0A1VHmJB93/Yvlbk3kufmTlme8e4guIxIJZEdfDYmNqBY0IYSFM1oBqqPMF++Ifzn7" + + "S7j7ooet+zKDZ9Djs5t3MVOHkweHyOLrTmqGnp8tSiSatzWQikpKjEQVVlCBmcoQ3BDa7HvDbrErq2j2" + + "NPxx6lqe9++eounab7lR2Jv/bW2a6ekKiposNXZKAZ7JRM8cyIcXhEqKgsUcKIiSptYibkvl5+bObOXe" + + "W01UvLyOJiOKozDxGGD8Kam4Hhw6EXKOwvzPzRsHL6V/wAbuo42I4hGYa2HH4U1NwPDh0HXbm+4esesN" + + "+9gTeFjtPa2YzNNFPcxVOQpqOT+F0bgPGWFbkWiiADKSXtcfX3tU1P8in4MimzZpNx95T1eEilWsgXf+" + + "12alqhjoslDBUKNgExvJSVMUgB+qSA/n3ny/wB1P2rCXRjvd1MkQNR9RFg6QwB/xfzBB+w9ZwP92X200" + + "XJjvNzLxg1Hjx4OkMAf0PQg/YeqRIf5mfyWM2NE+I60igyToaeVtrZoCaA1b0cksR/vT6lSeF0v/qlI9" + + "6e1ZEsFZVQJfRDUzxJqN20xysi6iAATYc++ccihJJFHAMR/PrACRQruo4AkdX9U8jS08ErW1SQxSNbga" + + "nRWNhzYXPuN7p1TrN7/AP/W+f8A+/de63+Pb9tXc2a2Vufbm8tt1hx24tpZ7D7mwGQEUM5oc1gchT5XF" + + "VggqI5aeY0tdSxvokVkbTZgRce1dhfXW2X1luVlJovLeZJY2oDpeNg6GhqDRgDQgj16VWN5c7de2e4Wc" + + "mi7glSRGoDpdGDKaGoNGANCKevTXm8Njtx4XL7fzFP93ic7i8hhspSl5IhU47KUktFW05kiZJY/NTTsu" + + "pWDC9wQfdnOD/nSfzA8NJE03am3c9FG5d6fOdcbJmjnDOHMcstBh8dWBOLDRKjAfQ+5ytfvM+79sylt/" + + "hlUHg9tAQftKop/YR1M9t94r3VtypbfIpVB4Pbwmv2lUU/sI6Jnkv5dvxWyCOseyMtjHdQqzY3d2443i" + + "IXTrRKrIVcBb8+pGBP493B/An+ddRd87/250v8AIzaW3tg703fWU+F2bvvaMtbBsvN7hqnEOPwGbxGZr" + + "sjX7eyGYmKw0s6VdTTzVTrEUh1qfeR3tL952Lmzd7LlnnPbobTc7lgkM8JYQvIcLG6OzNGzmgVg7KzkK" + + "QtR1P8A7XfeNj5o3W05d5usIrXcbhgkU8RIheQ4VHV2Zo2c4VgzKWIBC1HRA/lB/LnqOsNrZfsTqTPZX" + + "dG3cBTy5HcG2M8lNLuLG4mBTJV5THV+PpqSlytLj4wZJ4mghljgUuGk0ke7Bf5g/wAItk/NDpTN4KfF0" + + "FJ25tbF1+U6m3qIoosljc9BG1VHtyurdPkm2vuaWIU1XA5ZImkWoRRLEp9y/wC8HtdtfuZyxdWrwIvMU" + + "EbNaTUAZZAK+GzcTFKRpdTgVDgalHUq+63tttvuJy5c2zQKu/QIzWs1AGVwK+Gx845CNLA4FQ47lHRVP" + + "in8kNx/HfsbG5OKtqp9h5utpaLfW3S7yUlZjJXEL5empr6I83hkczQSKAzhTEx0Ow96FVdQ1mMrqzG5G" + + "mmoshjqqooa6jqEaKopKykmenqaaeJgGjmgmjZWU8hgR75MyxSQSywTIVmRirA4IINCCPUHB65eyxSQS" + + "yQzIVlRirA4IINCD8wcHraApqmnraanrKSaOopauCKppqiFg8U9PPGssM0TrcPHLG4ZSOCD7NJ8OO9V6" + + "J7ixeVy1S8Oy90xptjeIv8AtUtBVzxtRZtk5F8HXhZXIBf7YzKvLWKK6h8aIgfGMjpftV59HdKzH9JsN" + + "9nr+R/lXr1RF5YyB+pfUv8Arj8f7Ee9lKCeGphhqaaaKop6iKOeCeCRJYZ4ZUEkU0MsZZJIpEYMrKSCD" + + "ceyHofgggEHHTN7Ip8wPhlSfIP7bemzq+g2/wBnYugWgdsgGiw27cdTg/Z0eUqIIpZqHJUIJSCq0SKYj" + + "45FsEdFlrdGDscVj/wdE+67UL6ksRC3AFM8GHz+Y8j1Kp6nxXVgShN+Pqp/Nv63917YLZ/8xHo6ifaW0" + + "6DtHH4OKV4qWkwJoN24KPUXu+Idf4zTUMDsS37PiBY3Iufa1msZjqYrX9h6Iki32zXwolkCfKjD8uPUs" + + "tSSHUxS/wDU3U/7H6XPtQbC+EXyQ713tHu3v6vzm2cTNPA+azO7cmmR3lk6GJvJ/DsFivNVNRKyEpG84" + + "gpqfVdUe2g6e7ghTTCAT8uH59OQbRf3s3i3zMq+ZY1Y/ID/AD0A66aphiXTEAx/AUWXn8k+7udqbVwGx" + + "9tYPaG1sdFitvbcx1PisTQREsIKSnWymSVv3KipmctJLK13lldnY3J9lLMzsWY1Y9C+KNIY0ijWkaigH" + + "TazFmLMbkm5Pus3+ZP37T4PbFJ0Vt6sV83ugUmX3q0EgLY3blNMtTjMVNoe8dVm66FZmRuRTQi40zKfa" + + "+whqxmYYHD7eg9v96EjFmh72y3yHkPz/wAH29TKOK7GU/ReF/xJ+p/2A90mezboI9OXv3v3Xuveze/AA" + + "A/N34pggEf6d+tjYi/K7moCDz+QRcf4+5F9os+6HIFf+jtbf9XV6H3tZ/08jkf/AKWlv/1cXoBPlOSPj" + + "f3jYkf8Yw3gOP6HDVQI/wBiD7vA/wCFEwH8I+LTWGoZLtQA2FwDS7IJAP1sSB/tveUn3yR/i3IZ89d1/" + + "gg6yT+9p/Ycknz13P8Agh6rb/lME/f91i5saTZJI/BIm3HY2/qLn/b+9YL3gt1hd1c/7tB/k3/9vB+lP" + + "+oTsD/33+5Pc6/dt/6fByx/pbj/ALR5Opq+73/09flz/Sz/APViTol38wT/ALJT7G/5b7V/96rD+x+/n" + + "6qo+Z20GAAZuhNnAtYXIXeHYGkE/Ugajb/X9i7724H+uXtxpn90Q/8AV646FP3pQP8AXD280z+64v8Aq" + + "7P0Fv8AK4J/2XjPC5sO0dwEC/AJwG1bkD8E290ge8XOsbOrI/fvfuvde93EfyMf+y8cP/4izsb/ANxcb" + + "7yP+6t/09i2/wCeC5/wL1kD92f/AKefb/8APDcf4F6r/wD5lv8A2TFkP/D22j/1vrPcP+eJ/wBl8bp/8" + + "Rx1t/7pZPbf3pf+ntX/APzxW3/HD0395X/p6N7/AM8dv/xw9SP5bH/ZLuE/8O7eH/uxT3UH7x06gLo/H" + + "v3v3Xuve9lP/hOv/wAX/wCVf/an6i/9zewvebX3Nf8Acvn7/mnaf8euOsw/ulf7l88f807X/DP1T3/No" + + "/4tXSH/AGsN+f8AuNtX3Sx86VVfmX8oAoCj/Tl2QbAAC7boyLMbD8sxJP8AU+8ZPdUAe5XPVB/y1bn/A" + + "Kut1jp7mAD3C50p/wBHO4/6uN1Yp8ZyT8e+lySSf9Gu0Ryb8DDUgA/1gBYeyp+wB0B+hw9+9+69173su" + + "/8ACenp+gqK/v3vivpo5shjYtvdW7aqHjVmpI8gH3PuxoXYEpLULS4pNS6SEDryHI95u/c85cheXm7my" + + "VAZkEdrGfTV+rLT5mkQ+yo8+sx/uobBE8vNPM8qAyoI7aM+mr9SWn20iH2VHn1Tp/Nd39VRUvVvWNLM8" + + "dLWPlt65iJXIE7UunC4MSAEakiaataxuC2k8FR7qo/mgfIHN/IL5l9v5KqylRWbW683NlurNh0Jnd6DH" + + "4DZGRqcPVVFBEZHhQZ7OU9VXu6gGQ1AvwqgQF76833XOHuVzHPJOWsLOd7WBa9qxwMUJUcP1HDSE+eoe" + + "g6g73p5quea/cPf5nmLWVpM1tAte1UhYoSo4d7hnJ89Xy6PB8L+q8b1V8e9g0cFFFT5vdmGod7bnqvGq" + + "1VXldx0kOQhiqpAiyMcXjZYKVVJIQRG31NytdA90bu+PXcOwO4Nk5Ksx2b2TuLH5R1o5miGVxCzombwF" + + "aoISoxudxTS0s8T3V45T+bEAPlHmbceTuZNo5j2udkurWZWwaa0r3xt6rIlVYHBB6BPKvMV/wAp8wbVz" + + "BtszJc20ytg01JXvQ+qutVYHBB6GvtPrvA9r9f7p2BuOjp6vHbjxNXRKaiMP9jXtEzY3KU5sWiq8ZXBJ" + + "onX1Kyf0uPezL/Puw+0N7fGXpns3EVuIyOa2v2hTY2lqaOuoairTbO+tpZerr4ikUzVBhlyW3ce17FVK" + + "821e83/AL2ttt26cj8tb5byxvdQX4UEMpPhTxOWGDWhaOM/Knz6zJ+9Fb7fuXJnLu8wSRvcw3oUEEE+H" + + "NExYYNaFo4z8vz6pw/leZDP7c7l7C2ZX09fSY7NbLmrJ4aimqYYGzG2c7QU9LIGkjEQkSjy1WtrgkH/A" + + "A96tXXmz67sPf8AsbYGM4yW+N4bZ2fjzYkCt3LmqLC0pIAJIE9avvA7Zttl3jd9q2iD+3urmKFf9NK6o" + + "P5t1hNtO3y7tuu2bVD/AG1zcRxL9sjhB/M9XYbsz9NtTa25d01v/APbWAzGfqxwL02Hx1TkZxc8XMVOf" + + "e3L/OH7Qm+LHwY2N0f1VUS7Xh37V4HqGikxjiiq6HrfaO3vuM5SUslOY3h/ilPQUdDUsv66erlQ/wCcJ" + + "HQ/7x++tyF7VbVytsDmBbto7NdPaVtoY6uBSlNQVEanFXYefWen3gN6bkj2z2zlrY3MK3TJajTgi3ijq" + + "4FKU1BURqcVZh59UNfADZcfdvyX3L2TviFM1Jtenym/qha1fuIKnd+ey3ixs86S61k+ylqqiphDfpmgj" + + "Yfpt706ffN7rn31sCe9lv8A4T6995+bNdxfGzMZaas29BgaftbZWNqppJVw1VT5ai29vKHGq7kQUeUbM" + + "46eSJQEE0bSABpHLZufdA5tu2uuZOSbm4LWYhF3CpNdBDrHMF9A2uNiBjUCeLGuY33VOabprnmDk+4nL" + + "WgiFzCpNdBDCOUL6BtcZI4VBPEmtOv81Xq/Fx47r/uDH0MdPlZMpNsfcdZDGqHIQy0NRldvSVjKoMs9E" + + "uPq40djqMbqvIRQKjf5lfT9F0h82+/Nl4ihXH7fq91x7027SxRrFTQYnfuMod3LS0cS2EdHjq3Lz0sa2" + + "Flg/p7x497eXIuVvdDm3bLeLRZtceNGBgBJ1WagHkFZ2Qf6XqBfeLl+Plr3I5o263j0WjT+NGBgBZ1Et" + + "B8lLFR/pej5fDzf1R2T8cOrtxV9SavKwYNtu5aZ2LzSV216ypwJnqHPLVFXTUEc7n8mX3Zp/wAJ5P8Am" + + "c3yI/8AEY7X/wDeqk9zj9zr/lZecv8Anhi/6unqZvunf8rDzb/zxRf9XT0Tb+bB/wAy86n/APDzzX/uj" + + "X3a3Cf9md6c/mb/ABprZDX5/aXafbG39v0zyB3ig3TtHFb46/mJcHxpDvaGrjQAWCUwsb/Sfl/5HXLfv" + + "lyRK2u7t7+7jjHoJYUntz8qThwPkvU4r/yNOXvebk6Q6rq3vbqOMegkiWaA/KkwYD5L0R1x/oY7B+Gnc" + + "VMgpcXndk7GyuVmRCqvLhM9Xba3VGNNtbybckgZj+WmN+PrpEujRsyOrI6MyOjqVZGUkMrKQCrKRYg8g" + + "++XhBBIIoR1zdIIJBGetkJWVlDKQysAyspBVlIuCCOCCPd0/wDIm6j/AL+fMes7Bq6ZZcZ0z17n9xRTS" + + "Rl403Fujx7Pw8KvYiOobHZTIzJe1xTt7ya+6ly7+9vcmTeJErBtlnJIDT/RJf0UH26WkI/0p6yL+7JsP" + + "709wZN1kSsO3WjyV/4ZJ+kg+3S0hH+lPVdf8zTfn92Pj7BtWCYpWdh7rxeJeNXCs2IwuvcGQkK/V4lq6" + + "Kkjb/GUe9iX4bdsjuk/ObedPUmrxVD8s+w9ibfm1Bo3wfXnU/VW0KSaAqSpp6yoxc1RGR9VmB+p95k+2" + + "3MA5m/11NzR9VuvMNxBGfLRb2lrCCPkSrMPkestPb3ff6x/65e4o+qBd9nhjP8AQgtbaIEfIlSw+3qpn" + + "5B7FPXX+y0belhEFdU9F7S3NlY7EOuS3Zvre+fnjlBAImp4a6OJgfo0dveh9k/+LlkP+o2r/wCt8nvlB" + + "P8A203+mP8Ah65hy/2sv+mP+HrZyo/+AdJ/1DQf9al9wvbXTfUn3//X0tovgR81J44pYfi33hLFOkcsM" + + "ide7hKSRyqrxurCisVdGBB/ofchr7S+5rhWXkPdCpFR/i8ma8Pw9Dxfa73GYKy8k7kQRUfoSefDy63gX" + + "+UPx1iZ0k7r62R42dJEbdmJDI8bFXVlNRcMrAgj2VTI4+uxGQrsVlKSegyWMrKrH5Ghqo2hqqKuop3pq" + + "ukqYXAeKemqImR1IBVlIPsATQy280tvPGUnjYqykUKspoQR5EEUI6A80UsEssE0ZSZGKspFCGBoQR5EH" + + "BHQ30lXTV9LTV1FPFVUdZTw1dJUwOJIaimqI1mgnhkUlXimicMpHBBv7h+2+m+pHuXQV9Zi6+iyePqJK" + + "Svx1XTV9DVQsUmpqykmSopqiJxyskM0asp/BHtyGWSCWKeFysyMGUjiCDUEfMHPTkUskEsc0TlZUYMCO" + + "IINQR9h6wVVLT1tNU0dXEk9LVwTUtTBIA0c1PPG0U0Uinhkkjcgj8g+/o/9Lbxl7E6d6p3/ADktUb363" + + "2Ru2oJUoTUbi21jMtOSpAK/u1Z4sPfaXlncm3nlvl/d3+O6soJT9skSuf5nrrzy5uDbty/se6t8dzZwy" + + "n7ZI1Y/zPWof2Jt+PafYG+NrRACLbm79yYKIA6gIsTmKygj55v6IB70M/n/ALbx20vmt8nsFiYo6fH0/" + + "cm86umgiUpHAuXykuYeFFJb0xS17Lf82v75Oe7tlDt/udz1aW6gQjcpiAOA1sXp+RbrmD7qWcVh7jc6W" + + "0CgRDcJiAPLU2un5autnv4s5erzvxz6Yydc7S1cvX23YJpXbU8poKJMesjGw5kSlB/wv7KD7jnoAdD57" + + "tZ+FPzfpNnUWN6i7jyTRbaphHR7N3pVM8i4GIsEhwOfk9TjCxXtTVR/4CKPHJ+zpaIuu7QuTLEO7zHr8" + + "x8+hLtG8CILa3Tfpj4W9Pkfl6Hy+zhBqabUTJGPUeWX+v8AiP8AH3dJS1dLXU1PW0NTT1lHVQx1FLV0s" + + "0dRTVMEqh4p6eeFnimhlRgVZSVYG4Psp4YPHoWAhgCDUHpt9yQSPoSP9b37rfXvfXv3Xuveyb/KH5g7J" + + "6AxNXhsbUUe5u0KumdcXtinmWaHDPLGfDlN0yQvehpIywdKa4qKngKFQmVVVvavMQTiP1/zdFW47pDYq" + + "UUhrkjA9PmfT7OJ6kwU7Sm5uqfk/wBf8F/r714d07oz+9dxZjdm6MnUZjcGerpsjlcjVMGmqaqdrsbKF" + + "SKGNQEjjQLHFGqooCqADtVCKFUUUdAWSR5pHlkarsak9OyqFAVRYDgAe2D3bqnXfv3v3Xuvezffy/8A/" + + "st34p/+J363/wDelofci+0X/T0eQP8ApbW3/Vxeh97V/wDTyOR/+lnb/wDVxegD+U//AGTf3h/4jHd//" + + "umqvd4H/CiX/iz/ABb/AO1n2n/7i7J95SffJ/3G5D/091/gh6yT+9p/uPyT/p7n/BD1W3/KZ/4uHdf/A" + + "FB7K/63bi96wPvBbrC7q6D3aD/Jv/7eD9Kf9QnYH/vv9ye51+7b/wBPg5Y/0tx/2jydTV93v/p6/Ln+l" + + "n/6sSdEu/mCf9kp9jf8t9q/+9Vh/dvP81X+Wx8m/l58jdv9mdPUGyKna2N6r27tGol3Fu6PB1/8Zxu4d" + + "2ZKrRaJ6Co1Uy0uXgKya/UxYWGnnIr399k+efcXnSz3zlyK1NglhHCTJNobWskrHt0nFHWhrnPp1Pnvh" + + "7Pc58/c3Wm88vxWxsUsY4iZJdDa1klY40nFHXNfX06IT8IPmD010L1Hldm7/qtyQ5us3vls9EmJwL5Kl" + + "/h9ZisFRwMalaqK0xmoJNSaeAAbm/FZ/wDwxh88P+dT1V/6Man/APrV7hD/AIFb3Y/5R9v/AOygf9AdQ" + + "3/wM/uf/vix/wCygf8AQPRxv+HLvjF/yv73/wDQRl/+rfZAvlB8Wu1fiJ2LQ9XdwwYCn3VkNq4zeNPHt" + + "zMpnaD+DZbIZjGUjSViQU4Sq+7wc4aMrcKFNyGHuIueuQ9/9u95i2HmNYRfvbrMPDfWuh2dRmgzVGqKe" + + "nr1FfOvJO+cg7vFsvMCxC+eBZR4b610MzqM0Gao2Ps9ejS9L92bH762lU712BLlJcJS5ys2/K2XxzYyp" + + "/iFDSUFbOEp2ll1QeDJRWe/JuPx7P3/ACMf+y8cP/4izsb/ANxcb7lz7q3/AE9i2/54Ln/AvUp/dn/6e" + + "fb/APPDcf4F6K3/ADLf+yYsh/4e20f+t9Z7h/zxP+y+N0/+I462/wDdLJ7b+9L/ANPav/8Anitv+OHpv" + + "7yv/T0b3/njt/8Ajh6kfy2P+yXcJ/4d28P/AHYp7qD946dQF0fj3737r3Xveyn/AMJ1/wDi/wDyr/7U/" + + "UX/ALm9he82vua/7l8/f807T/j1x1mH90r/AHL54/5p2v8Ahn6p7/m0f8WrpD/tYb8/9xtq+ws+T/8AJ" + + "x+aHbHyK7t7M2njOtX2xvzs7eO6sA9fv2GjrXxGazdXXUD1dI2MZqaoammUvGSdDXFza/sg56+7b7mcw" + + "c5c0b5t8FibG7vppY9U4DaHcstRpwaHI8uiTnT7vnuJvvNvMm82MNn9FdXssqapwDpdyy1GnBocjy6W/" + + "TH8wT477G6l642bna3eC5nbGzdv4TKLS7XkqKZa/HY6CmqlgnWsAmhE0Z0tYahzYfT2BQ/kX/PC/wDxa" + + "uqh/iexoLD/AB4xRPsKf8Cr7sf742//ALKB/wBAdBn/AIGf3P8A98WP/ZQP+gehM/4cu+MX/K9vf/0Ep" + + "f8A6t91P772Zmuud7bu2BuRaVNw7J3JmtqZxKKoWro1y2AyNRi8gtLVKqrU04qqVtEgADrY/n3j/u22X" + + "Wy7puO0XoX6y1neJ9JquuNirUPmKg0Pn1Be6bdc7RuV/tV4F+rtpniehqNSMVah8xUGh8+jy7Y3Djt27" + + "cwO6cQZ2xW48Pjs5jWqYTT1BocpSRVtKZ4GLGGUwTLqUk6Tx728P5C2Jixfwo3RmRFH58z3fvaqd1e7T" + + "QY3bGyqGBJfQPGySwS2Hq9JB/NvfRP7plusHthfXOka5d0nP2hYoFFfzB6z3+69AIfbi9uNI1SblMftC" + + "xwqK/mD1Qp/M/rnrfkbhcf5G8WP6325AqsvpjlrM1uOpkZPV6gySpf6cgj/AB96iG/a+fKb53nk6p2kq" + + "sjuzcVfUyOdTPPV5isqJnZrLqZpJCSbC5987N2lefddznkNXe4kY/aXJPWBG6StPue4zOau88jH7S5J6" + + "vr2vSxUW2tu0UChYaTBYmlhVRZVip6CnijUC5sAiDj2k/Zf0h6fPfvfuvde9nO/l2YaHPfOP4uY6eHzx" + + "DuDauRaMiMj/cNVNmVktKCn7LUAf+vp45t7kz2atlu/dPkSFlqv7yib/eDr8/TTXqRPaW3W69y+SomWo" + + "/eETf7wdf8ALTXovHyzyEmL+NfdVXFJ4n/uBnKRX9Q/4uEIx5X0Wb9wVWn+nPPHu5b/AIUU5qT7r4o7e" + + "SRhD4O4c1UwlToaTydcUNFIH1WLKv3AItwCOefeSn3yrltft/Zhu2l45Hz/AMWVT/x7rIX721ydfI1oD" + + "20u3I/7J1H/AD91Xv8Aylscnh7yyzIuvy9f46GTUNQTRu+pqUK2uFJ8RBvzY+9Zv3g/1ht1cf7uH/kZZ" + + "SbH/PLC0kevRnOrex8XUaSoBhho8dm11hlJZPPh04Fjqtza4OR/3V52h92LWNeEthcqfsAV/wDCg6yB+" + + "7RO0XufbxrwlsbhT9gCv/hQdEA/mW0UdV8YcjO+nVjd67RrYrgk+SSoq8cdNiAG8WQb63Fr/mx9vv8AP" + + "hxC4/5vUeRVY1Gd6a2LWOVJLvNSZHc+LLyjSAG8NFGo5PCj2r+9hbCH3RjmAH6u2wN+YaVc/ko6U/eeg" + + "EXuTHKKfq7dCfzDSLn8gOmz+WLXmq+N1RSMXJxnYW5qdQw9Kxz0mGrQqG5uPJUsT9OT7Hn/AITyf8zm+" + + "RH/AIjHa/8A71UnsWfc6/5WXnL/AJ4Yv+rp6FH3Tv8AlYebf+eKL/q6egw/mwf8y86n/wDDzzX/ALo19" + + "m0+GfbA2z/OG+dfUlbUGOh7TmyeVxsLyHRPuXYDYqthgSE+kySbczOSkLfXTT29yD7acwCx+8d7rcvSv" + + "SK/LOo9ZLfQwFPUxvIfsXode3m+/R/eA9zdhkekV8WZR6yQaSBT/mm8h/2vQFfIXYxzPwA+M2+6eLVU7" + + "JSjoayRUGqPD7pFdTSSNJ9QiZfH0aAf1l967nzm6obpL5d/ILrdYDTUOG7Kz2QwkRUKBtvdEq7r23pAA" + + "W38CzdOOOAQR+PeG/upy+eV/cTm/ZQmmKK9kZB/wuU+LH/1TdesTPcvYjy3z7zXs4SkUd47IP8Ahch8W" + + "P8A4w69Wy/GnfI7H6F6q3eZRNU5DZ+Lpck97k5jCxnB5i9+b/xPHSnnkjn8+71f5RdHT/G7+Xz8rPlrl" + + "YY6Wtyg3ZX4OpkjVZa3HdV7XrIMDBDIxtIldvfN1dMi8XmS1vpfKz7u8aclez/P/uFcKFlk8VkPmy2sR" + + "EYHrqnd1A9R1k17Cxpyf7U8889zqFkfxWQ+bLbRkIB9szso+Y6rN+edRL298q+j+iaGR56eiOCpslCrk" + + "x01XvbNwSZSWRALo1NtvGwTMebRtf2O/wDIirKnI/C/uzIVkrT1ld8hOwayqnc3eapqesesZp5XP5aSV" + + "yT/AIn2LPuoyPN7ZczzSNWR94uCT6k2tqSf29Cf7scjy+3XMcsjVkbdpyT6k29uSf29Bj/M2p4aT5E9c" + + "0tOixQU3VW1KeCNeFjhh3nvKONFH4VEUAe9RLJ/8XLIf9RtX/1vk987Z/7ab/TH/D1gTL/ay/6Y/wCHq" + + "+ij/wCAdJ/1DQf9al9wvbXTfUn3/9AzXVm4qfd/WHXG7KSRJqXc+w9obhppYxaOWnzW38dkoZIxqeyPH" + + "Ugj1Hg/U++1+w3ibjsWy7hGwMc9pDICOBDxqw/w9dg9ku0v9l2i+jIMc1rFID8njVh/h6PvvbEy4Hee7" + + "sHOjJPhdz5/EzI5u6S47K1dHIjGy3ZXhIPA59/Pa+UG18rsr5I99bUzkLwZTB9wdjUNUjro1lN2ZVoqh" + + "BqcGGqgdZY2BIaNwQSDf3x756sLja+debdvulpPFuVwp/5yvQ/YRQj5HrlFzpZT7dzhzRY3K0ni3C4U/" + + "wDOVqH7CKEfI9bWvS+aodx9Q9X5zGyLLRZLYG0qmBlbVpDYKhWSJjZSJIJVZHBAIZSCAR7Ar2FOgz0Jn" + + "vkiPI6RxozyOyoiIpZ3diFVEVQWZmY2AHJPvYBJAAqT1sAkgAVJ66ZlRWZmCqoLMzEBVUC5ZibAAAcn3" + + "9G7457ZyOy/j70Zs/LoY8ttbqDrfb+TjKGNo8hh9nYegrY2jYlkMdTAykE3FvfZ7kyxm2zk/lXbrkUuI" + + "Nuto28qMkKKw/aD1105Rsptu5U5Z2+4FJ4LC3Rv9MkSKf5jrUa7bzFJuLtXsvP0DB6HNb+3flaJwwcPS" + + "V+4MhVU7hgAGDwyg3H9feh386N20e+fmN8mN0Y+ZaigyPc+/I6KZAAktJjc7V4qmdSFUMGhoV9VvV9eb" + + "398n/dXcI919yeeL+FqxPuc4U+oVyg/kvXMP3Mv49z9wecr2JqxPuM9D6hXKj+S9bO3xowVRtr4+9OYW" + + "qjaKqpOvNsPUxsTqSesxkFdMpuSQRJUnj8fTj2VP2AOgN0OHv3v3Xuvex96m+TvdfSyx0mx96VsOER2c" + + "7Zy8cea262tg8gixteJRQGVhdnpWgkJJ9XJ9sy28Uvxpn18+lttuN3aYhlOj0OR+w8Pyp1ieCKTllF/9" + + "UOD/tx9fZuqH+aP3BBSxRV2wuvK6qVbS1SJuGjWVv8AVCnXMzLH/rBj7Snboq4dqfl0aDmO6A7oIyfz/" + + "wA/Uf7GP/VP/wAm/wDFPYR9ifzAfkVv2lqMbR53F7ExlQrxyxbLx7UOQkicWKNm6+oyOVgaxI1U8lOSP" + + "r7dSygQgkEn59JZ97v5gVDhF/ojP7TU/sp1kSkhTmxY/wC1H/iBYeyV1NTU1tRPV1lRPV1dTLJPU1VTL" + + "JPUVE8rF5Zp5pWeSWWRySzMSSTc+1fDA6KSSSSTUnqT7we/da69797917r3v3v3Xuvezffy/wD/ALLd+" + + "Kf/AInfrf8A96Wh9yL7Rf8AT0eQP+ltbf8AVxeh97V/9PI5H/6Wdv8A9XF6AP5T/wDZN/eH/iMd3/8Au" + + "mqvd4H/AAol/wCLP8W/+1n2n/7i7J95SffJ/wBxuQ/9Pdf4Iesk/vaf7j8k/wCnuf8ABD1W3/KZ/wCLh" + + "3X/ANQeyv8ArduL3rA+8FusLuroPdoP8m//ALeD9Kf9QnYH/vv9ye51+7b/ANPg5Y/0tx/2jydTV93v/" + + "p6/Ln+ln/6sSdEu/mCf9kp9jf8ALfav/vVYf3ad/Nx/mC/LL4s/JjbnXfR/ZdJtDaGQ6k23uiqxc2xtg" + + "7keTOZDce78fV1n3+6Ns5nIIstJioFESyiJdFwt2YmevvD+7/uDyFzxZbNytvi223Pt0cpUwW8ne0kyk" + + "6pYnbIRRStMcMnqbffr3V565I5ys9p5a3lbewewjkKmGCTvaSVSdUkbtkKuK0xwz0SX4HfFXovuzpzL7" + + "s7J2dPn89S77y+FgrY9y7pxCpjaXEYCqgp/tcLmcfSsUnrpW1lC51WJsBarX/h5n+Yr/wA/1x//AKKbp" + + "3/7AvcD/wDBLe8v/TVp/wBkln/1o6hP/ghvdv8A6adP+yW0/wCtHR1/+G9PiV/z7Kq/9DrsD/7KPZLfk" + + "H8ke4vlLvmk7H7w3VDu/eFFt2g2pTZWHb+3NtpHgsZW5PI0VGaDbGKw+OdoqvMVDeVojK2uzMQqgRlzh" + + "zrzJz5use9c034udyWFYgwjjj/TVmZRpiRFwXY1pXOTQDqOua+cOYOdtzTd+Zb4XG4LCsQYJHH2KWYDT" + + "GqLguxrSueOB0YnqrqDr/pTbU+0etsJJgNv1OWqs5NQyZXL5dmydZTUVJUVAqs1XZCrUSQY+IaA4Qabg" + + "Akk2K/yMf8AsvHD/wDiLOxv/cXG+5l+6t/09i2/54Ln/AvUt/dn/wCnn2//ADw3H+BeilfzLf8AsmLIf" + + "+HttH/rfWe4f88T/svjdP8A4jjrb/3Sye2/vS/9Pav/APnitv8Ajh6b+8r/ANPRvf8Anjt/+OHqR/LY/" + + "wCyXcJ/4d28P/dinuoP3jp1AXR+Pfvfuvde97Kf/Cdf/i//ACr/AO1P1F/7m9he82vua/7l8/f807T/A" + + "I9cdZh/dK/3L54/5p2v+Gfqnv8Am0f8WrpD/tYb8/8AcbavsuPys/mwfO/rL5Ld7debL7locTtLZXam9" + + "dtbbxjdZdV5BqDC4jO1lFjqRq7J7LrMhWNBTRKpkmlkkci7MT7BfP8A94H3X2PnfmvZts5lSPbrW/mjj" + + "X6a1bSiOQo1NCWNAKVYknzPQR5499Pc7ZuceZ9p27mFY7C2vpo41+ntm0orkKNTQljQDiSSfM9C70f8G" + + "vjHvLp3rLdm4uvamuz24tk7dzGXrV3lvekFVka/G09RVzimo9xU9JTiWZydEaIi3sAB7L//AMPM/wAxX" + + "/n+uP8A/RTdO/8A2Bewh/wS3vL/ANNWn/ZJZ/8AWjoK/wDBDe7f/TTp/wBktp/1o6FP/hvT4lf8+yqv/" + + "Q67A/8Aso91u7w3Znt+7s3LvfdNauR3Lu/PZXcu4MgtLSUS1uZzddPkclVrR0EFNRUoqKyodxHDGkaXs" + + "qgAD3Cu5bhd7tuF9ul/LrvrmV5ZGoF1O7FmNFAUVJJoAAPIU6iDcL+63S/vNyvpNd5cStI7UAq7sWY0U" + + "ACpJNAAB5Do3u38Fi9r4LD7bwlOaTD4DGUOHxVK009S1Nj8bTR0lHAaiqkmqZzFTxKuuR2drXJJ597g3" + + "8iGsjrvgzmaKEDzY/ursGhkUupLPUYDZtfG5UcxqyVoUX+pUn6e+jf3UJRL7V3MS/Em53Cn844WH/Hv5" + + "dZ/fdikEvtncRr8SbjOD+aRMP8AD1QN/M4p2pfktj6mQnx1fXW1alDpYALFlNw0rre1mYNTE8fgj3p87" + + "xikg3dumCVSksO483FIh+qSR5OqR1P+KsCPfOTclKbjfqwowmcH/ej1gBuClb+9VhRhM4P+9Hq/nAOsu" + + "BwkiHUkmIxrow/tK9HCyn/Yg+057RdJOnf2Y7sb4h/JfqPYtJ2b2V0zvTZuwa+XEwUe6szRQQYqolzsD" + + "VOIjjlSpkctXwKWj9PIHNvY03r26535d2qPfN75aubbaHKASuoCEyCqZqfiGR0L935B5y2HbI953jl65" + + "t9rYqBK6gKS4qma/iHDoItpd9dOb83NPszZ/YW3dw7ppUrpKjCY6pkkrokxkghr2ZGhRbUsjANz9fYn/" + + "wAtrIpi/nb8XaqQxhH7WwlCTKSqA5SKrxim686w1YNP4LWvx7PfZSYQe6/IkhpT94Iuf6QK/wCXHR17P" + + "yiD3O5Kc0p9ci/70Cv+XpF/L+kat+MndUKhyy7HyNSAgBY/ZPBWEWP9m0HP5te3u3f/AIUU4+Vc98UMr" + + "cmCfEdxY8gRtpjlpazrepBaX9F5krDpXg/tk8/jIn75ULC79v7j8JjvF+whrY8fnX+XU9/e2iYXXI0/4" + + "THdr+YNuePzr/Lohf8AKWqkbF95UXAkjr+v6oeoXdJ6fd8Jsn6rRtTi5+nqHvWr94S9Yd9XC+7e/wCR3" + + "SzVHz42rNEoKUHXPZVVUktYrC+EShVlFvUfuKyMW/oSfx7yL+61Gz+7e3svBLK5J+zRp/wkdT792tGf3" + + "RsWUYWzuCfs0U/wkdEH/mTzxxfF3ORuSGqt3bPghAF7yLkmqSCfwPFTsb/1Htb/AM+rIw1XzVwdFGD5M" + + "X0nsuKdtSlS9Vnd31aABSWUrFKLhrHm/wBPZp97OZZPc61iHxR7XCD+ckx/wHox+9DKr+41tGPiTbYQf" + + "zeU/wCA9Jz+V/SSQfHTJVLkaK3sfcTxCzAhYcZgYGJJFjd0P0/p7Gv/AITyf8zm+RH/AIjHa/8A71Uns" + + "T/c6/5WXnL/AJ4Yv+rp6En3Tv8AlYebf+eKL/q6eg5/mwf8y86n/wDDzzX/ALo19gJvvtkdJfzt892FN" + + "UtSYyh+StJhM/OJPEkW3N30dBtLPTTsSAYKbF5uWVh+RH7CO68wf1X+9Bd7wz6YE3sJIa0pHMFikJ+QV" + + "yT9nQW3Pff6t/eQut2Z9MK7yEc8KRyhYnJ+QVyT9nQobY2Kex/5cOL2pHCJ6yp6eqMli4tGtny+AqKrO" + + "4uOJRc+WatxyIp/q3tefz+eqm2r8nuve0qeApj+1utIaOpmEYVJdxbAyL4uvGpR63TBZbF3JN7WH0Hs3" + + "+9xsBsOetn35EpDuFiAT6yW7aW/6pvF0afem2M2POm072i0ivrMAn1kgbS3/GGj6TH8rbe4zfTG69kzS" + + "BqrY+8ZKiGPUSyYndNItbSnSf0q2ToK3gcfn8+zW/Owp8UP5O/QPx7gJx+4+zINgYbO0UaLBOZqgT9u7" + + "9kqImIcrFuXxU8pFzrnUHg+x/7rU9v/ALuHKPJ69l7fC3RwMGprdz1Hykop+bDoc+5tORvu/cq8qL2Xd" + + "6IEccDU1up6j/mpRT8yOgO+MoPeX8wDtLteQfdYjZsu6chjKh2Msfji8ewtsLE49IZ8P5JkHA0xn+nsZ" + + "f5Cv/ZEfcP/AInvfX/vrOrvYl+6b/067mP/AKW0/wD2i2vQh+6//wBO23//AKWk3/aNbdB7/M+/7KR2B" + + "/4jDbP/AL229Peo5k/+LlkP+o2r/wCt8nvnjP8A203+mP8Ah6wMl/tZf9Mf8PV8VH/wDpP+oaD/AK1L7" + + "he2um+pPv8A/9Et/wDJt+SuK70+IG1Nk1WQjff3Q6Rdc7kx0koasfb1MJZdiZyONmaQ4+q2+Fog/wDys" + + "4+YWAC36hfds52t+avbnb9skmB3faQLaRSc+GKmB/8ASmPsr/FGw9OukP3e+cYOZuQLHbXlB3Ta6W8i1" + + "z4YzC/+lKdlf4o2+XV3X8wbp6u6z79zm44KRl2v2ez7uw9WkZFOuVmKJubGu4UIKuDK3qSv/HGqjP1Js" + + "WX+af8AynN0/IjeVT8ifjimJk7JyVFR03YnX2SrabDRbzlxdNFQ4/cu3srVmLHU+40x0EVPVU9VJDDVR" + + "QJIkizB1nA3v3932/5y3J+cuSxGd7dQLi3ZggmKgKssbmiiTSArKxVWCgghqhgZ73exV9zbuD828oCM7" + + "w6gTwMQgmKgKskbGiiTSArKxAYKCCGqGGT4SfOjCdTbeh6m7dauTZ9HU1E2091UdNNkH28lbM9TVYfLU" + + "MAermxDVcrywSwJJJC8jKyGMq0evTkf5f3zaxeXGDq/i53Ua9pPEpo9jZjJUDMTYFcvjoKvEtGT/bE+i" + + "3N7e8PJvaH3QguPpZOQ9z8atMQOy/72oKfnqp1ihL7V+5EFx9NJyTuPi1piF2X/AHtQV/PVTq12k+VHx" + + "xraA5KDurroUoTWfuNy4+jqgtr2NBVyQV4f/aTFq/w926fy6P5NPZw7H2t3R8s8DT7N2ls3I0W49t9VV" + + "VZQ5Hcm7NwYyqSqxT7tpqKSsoMLtiiqoVmmpJZWq61kEUkUcLMz5EezP3at9/fVhzN7g2gttutnWSO1L" + + "K0ksimqeMF1KkSkAlCdb00lVUkmevaP7vW9fvey5i57tRb2Fu4kjtiVaSV1NV8UCqpGCKlSdT00lQpJJ" + + "DPlt/MJ2Ydo5rrvorKS7gz24aSpxGX3vDT1NJh8FiqyBoa5cDNUrT1ORzVTBIY450QQUwYurvIFC30/O" + + "L5O4D4lfG/sDtfJ1tNHuJMXU7f65xMrr5892Bmqaen27RwQXDz09DPetq9P+boqWVvqADln7p882ft7y" + + "VvHME8qi8EZjt0PGS4cERgDzCnvf0RWPWUPuVzna8icobrvs0gF2EKW6ni87giMAeYU97+iKx6rA+NfT" + + "GV727e2rsajp5nxLVsOV3bXIp8WM2rjpopstUSyWKxy1MVqaAH9VRMi/k2+fVV1dVX1VTXVtRNV1tbUT" + + "VdXVVEjSz1NVUyNNUVE8rkvJNNK5ZmJJLEk++QMkjzSPLK5aViSSckkmpJPmScnrlRJI8rvLI5aRiSSc" + + "kk5JJ9SetqqCCGlghpqaKOCnp4o4IIIlCRQwwoI4oo0UBUjjRQABwAPcf3TqnWX3737r3Xvfvfuvde9+" + + "9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9m+/l//APZbvxT/APE79b/+9LQ+5F9ov+no8" + + "gf9La2/6uL0Pvav/p5HI/8A0s7f/q4vQB/Kf/sm/vD/AMRju/8A901V7vA/4US/8Wf4t/8Aaz7T/wDcX" + + "ZPvKT75P+43If8Ap7r/AAQ9ZJ/e0/3H5J/09z/gh6rb/lM/8XDuv/qD2V/1u3F71gfeC3WF3V0Hu0H+T" + + "f8A9vB+lP8AqE7A/wDff7k9zr923/p8HLH+luP+0eTqavu9/wDT1+XP9LP/ANWJOiXfzBP+yU+xv+W+1" + + "f8A3qsP7H/+fr/2Wbs//wAQLs//AN7Df/sX/e3/AOnl7b/0qYf+r1x0KvvS/wDTw9u/6VcX/V2foLP5X" + + "H/ZPOf/APEoZ/8A90G1vdH/ALxb6xr6sk9+9+69173cR/Ix/wCy8cP/AOIs7G/9xcb7yP8Aurf9PYtv+" + + "eC5/wAC9ZA/dn/6efb/APPDcf4F6r//AJlv/ZMWQ/8AD22j/wBb6z3D/nif9l8bp/8AEcdbf+6WT2396" + + "X/p7V//AM8Vt/xw9N/eV/6eje/88dv/AMcPUj+Wx/2S7hP/AA7t4f8AuxT3UH7x06gLo/Hv3v3Xuve9l" + + "P8A4Tr/APF/+Vf/AGp+ov8A3N7C95tfc1/3L5+/5p2n/HrjrMP7pX+5fPH/ADTtf8M/VPf82j/i1dIf9" + + "rDfn/uNtX3Sz86v+yzPlB/4nHsf/wB6bIe8Zfdb/p5XPX/S0uP+rrdY6+5v/Tw+dP8ApZXH/VxurE/jN" + + "/2T30v/AOI22l/7p6X2VL3H/QG6HH3737r3Xve0v/wnm7NoqrY/yC6dnqVXJ4fc+2+xsbSO6h58bnsY+" + + "3MtNTxltTx0NZgaQSkCympS59Q955fc73yKTa+b+W3f9eKeO5UeqyL4bkD+iY0r6ah69ZtfdP3mN9t5r" + + "5fZ/wBaOaO4UequvhsR9hRa/wCmHr1Sd/Ne2bUQ7k6q7AihJo8hhsxtGsnVTpjrMXWLl6COVwLB6mnyk" + + "+gE8iFrfQ+6I/nn1Bk+jfl937sLIUUtHSJ2LuLcm2zJGyR1W0t4V8259s1FOzALNGMTlI4mZbqJY3X6q" + + "R7xR92eXJ+VfcXm7aZoysYvZJI8cYZmMsRHr2MAfmCPLrGL3Q2Cblrn7mna5YysYu5JI/nFKxkjI9e1g" + + "PtBHl1Zv8Yd/UXZXQfV26KSoSonbaWJw+X0urNDntv0seFzMUoBJjc19E7gHnQ6n6Eey9da7Cz/AGn2F" + + "snrba1LLW7i33unB7Uw9PDE8rtXZzI0+PhdkQFvDAZ/JI30WNSxsAT7B+ybTd79vG17JYRlry7nSJABX" + + "udgo/IVqfQAnoKbPtd1ve7bbs9kha7up0iQDPc7BR+QrU+g6FfeG6MXsnam494ZqeOmxO2cJks5XzSOq" + + "KKbG0ktVIoZiB5JRHpUfVmIA5Pvap/nx7rxOw/iF050/RTIlXubsfCJQUVwHbbfXG08jFW1IAtdaavy+" + + "NjtYD978Wt7z5+9huFvtPt1y3y5G1JJ71NK/wDC7aJgx/JnjH59Zv8A3nr6Da+QeXuX42/UmvE0j/hdv" + + "EwJ/JmjH59UhfyxMHXbn777B3/URs1PhtoZJqqosdK5fd2dpHp4Te9jNS0FY31v+3/j71cujt+t1Z3R1" + + "L2UNWnYPZGyd4TKp0mWm27uPHZWqgJuPTUU1K6NyOGPvBDlbdjsPM3L29+VpewTH5iORXI/MAjrCnlrd" + + "DsnMWxbwP8AiLeQyn5iORWI/MAjq6vsra43t13vrZxtfdO0Nx4CNiLhJstiKuhglAsbtFNOrD/Ee9oz+" + + "fh17Nvv4w9Rdx7dRMriuv8AfqGvyNIDNFFtfsjDQ01HlRNGrKKCozOMx0QckKXqYxyWHvO7722ztu3Iv" + + "LvMlmBJb2d33MMgRXKABq/wl1jFeFWHr1mt96PaW3PkvYeYLQa4LS67mGQI7hAA1f4S6xivqw9eqVf5X" + + "e649sdz796/yzNQ126trsKWknIjd81tDISTVFFoYgmqix9ZVuVAJCwsfwfepD7559YHdXv+9gn/AIT6d" + + "X5DLd79ydvy0kv8F2X1nDsmnrGjP27Z7e+4MXkxFFIbA1FPidpTawL6UnF/1D3l990DYprjmzmTmNoz9" + + "La2IgDeXiTyK1AfUJEa+gb59ZV/dT2WWfmfmDf2jP09tZiEHy1zOrUB9QsRr8m+fVVf81betLQdY9fbB" + + "SdP4juLeMm45acMPKMXtvFVtEZHT6iKWuz0ekn6tGbfQ+yQfzdOyaXsr58d3VGPnWpx2y6rb/XFLKjl1" + + "+42dgKCgzsQ/C/b7matjIHBK3/PuLvvEb3Hvfu3zQ8L6obZo7YH5wxqsg/KXWPy6jb363hN490uZHias" + + "Nu0duD84kVXH5Sax+XRkvgZs+bZ3xd63iqojDV7igyu7p0ZdJ8W4MpVVWMkP5by4YUzgn8Nb8ez5/8AC" + + "eT/AJnN8iP/ABGO1/8A3qpPcs/c6/5WXnL/AJ4Yv+rp6lD7p3/Kw82/88UX/V09Fg/mwf8AMvOp/wDw8" + + "81/7o191m/zK5ZIPnx8nZoXaOWHtKtlikQ2eOSOhxro6kchlYAg/wBfcHe9rMnu3zyymjC/Yj7dK9Q17" + + "xMV90ec2U0YXzEfsXo5Hw7RJPi70zHIoeOTZVOjowurI9TWKysD9QwNj72NfkH1Of5hfxc/l3dm0VCc1" + + "VTdndM5bfTeJar7XaW5MfHie20rHUMfDR5nCIkwvbVHyTbnM/nDl/8A14eRPZvfIovFc31k8+K0ikXRd" + + "6vkroA3zHWXPNexf67HJXtLvMcXiOb20abFaRSLpuq/IOgB+Y6qO6p3yPij3X8stm1NSMdDHszsOh2yN" + + "Zg8+dw9U9fsQ06kga6jH5JmjNr6X/x4rX/4UA9sjcPyB6o6coarXj+sOvJ9wZCkjdPDTbh7AyIZonjQ3" + + "jnj2/tyhcAgWjnUjg+4T+95zB9Zzfy/y3FJWGwszIwHASXDcKeR8OOM/Yw9eof+9Tvv1fNWxcvxvWKyt" + + "DIw8hJO3D7fDjQ/YR69HB/lYbF/hPVe+ewKmDTVb03ZHiqSd1byTYratIQHV24eJsrl6pSR/bjI/Hs/"; + resourceString += "H8hX/siPuH/xPe+v/fWdXe5b+6b/ANOu5j/6W0//AGi2vUo/df8A+nbb/wD9LSb/ALRrborv8z7/ALKR2" + + "B/4jDbP/vbb096jmT/4uWQ/6jav/rfJ754z/wBtN/pj/h6wMl/tZf8ATH/D1fFR/wDAOk/6hoP+tS+4X" + + "trpvqT7/9LSI+MHyh7Y+JPaeM7W6lzC0WUp4zj87gq9Zajbm8NvzSxy1m3tx4+OWI1VDO0SvG6Mk9NMq" + + "ywukig+xlyLz3zB7eb9Bv8Ay9c6Z1GmSNqmOaMmpjkWoqppUEEMrAMpBFehbyXzrvvIe9w75sNxpmA0u" + + "jZjljJqY5FxVTSoIoymjKQR1vP9z9LbG732TW7H33j2qKKVvusZk6UpFl8BlY0dKfLYiqZH8NTEHKsrB" + + "opoyySKykj3tT9A/wA8r4j9lYnHU/bsm4eh94vFDHkaXM4rKbs2dJWGNPK2J3RtnHVlWtIZdVjX0NFoW" + + "wJY8+8+OUfvUe3m928KcxGbadyIGoOjSw6vPRLEpNK/78jSnqes3+VvvL8h7xBEm/mXa9woNQdWlir56" + + "ZI1JpX+NEp8+qRO0v5anfGz66rl2EmK7O2+ryPST4+uosHuBacMxQV2FzNXTwGoCWuKWpqNRvYD2c5f5" + + "j/wUal+8Hyl6iEPjMuhtyRpVaVvcfYvCtd5OOE8es/ge5LHvT7UmPxP6+bdppX+0z/vNNX5Ur1Ig93vb" + + "Ip4n9drDTSv9pn9lK/lSvReD8RPk0J/tz0nv3yawmoYdmgubc/crIabRz+rXpH9fZUu7/53Pwu6xxtan" + + "X+c3D3lumKJhR4jZuEyeFwTVXHjTI7s3VQYujhpTe7SUUOQZQD6CePYA5p+9D7Z7FDKNoupt1vwMJCjJ" + + "HXy1SyqoA+aCQ/LoDcyfeR9utlhkG1XMu53oGEiRkSvlqllVQB80En2dDj1v/Lf+RG86ymbdWNxPWuEd" + + "1NRX7hyVFkcmIOdZpMFhKqtqHnFuEqJKVST+oDn3q4fMf5tdy/Nff0G7uza2mxuAwQq6bY3X2DaZNs7O" + + "oKx42qBTLMTPk8zXiCP7uvnvNOUVVEcKRxJgh7k+6HMvudu6bjvkqpaRVEFulfChU8aVyztQa5G7moAN" + + "KhVGFHuF7kcw+4+6Lf7zIEtYqiGBK+HEp40rlnag1O2WoAKKAous+Pvxw69+Oe15cDs2nmrMpkzBNuXd" + + "WSEbZnP1UCsIvMYwI6PH0xkfwUsVo4gxJLyM7sT33HHUf8AQ/e/e/de69797917r3v3v3Xuve/e/de69" + + "797917r3v3v3Xuve/e/de69797917r3v3v3XuvezT/B/cGC2p8wfjTubc+Yxu39vYLujYOUzWbzFZBj8" + + "XisbR7go5quuyFdUvHT0lJTRIWeR2CqouTb2Pfa28tdv9x+SL6+uUhs4tzt2d3IVUUSKSzMcAAZJOB0N" + + "vba6trHn/k68vbhIrSLcYGd3IVVUSAlmY4AA4k8OgT+SWKyec6B7iw2GoKzK5bJ9d7pocdjaCnkqq2ur" + + "KjFVEcFNS00KvLPPNIwCqoJJNh7uI/nw919P9u4n43p1b2fsTsOTB5Hsl8zHs3c+J3E+KSuptnrRPXjF" + + "1VT9qtW1NKI9dtRja3095H/AHsOZ+XOYrfkobDvtpeGJ7nWIZUk06hDTVpJpWhpXjQ9ZA/ee5j5f36Dl" + + "AbJvVrdmN7jX4MiyaaiKmrSTStDSvGh6r+/li9c7/2HX9vNvbZe59ppkqTaAx77hwtfiVrWp5s8ahaU1" + + "sMJnaASoX030hx/X3roe8M+sSOrbfdjX8qDe2z+vPnP1Fuzfm6MDs3bGNpd8rkNwblylJhsPRNV7Hz9J" + + "SrU5CulhpoGqaqZI01MNTsB+fcz/d/3Tbdn91OXdw3a/itrFFn1SSsERawSAVZiAKkgCp4nqXfYzctv2" + + "n3M2C/3S9it7JFm1SSMEQVhcCrMQBUkAfM9FI+cu3Nwbs+NG/cFtjC5TcOarJ9tGlxWHop8hkKgQblxU" + + "87Q0lMkk0ghgjZ2sDZVJ97IvyL2J/Kd+Ve+qLsfuruHqPce7Mft2i2rS19D37T4GJMLjq3JZCkpmo8Pu" + + "ejpneOqy07eQqXIexNgPeavOe0/d+5+3WLeuZ+Y9um3BIViDLfiMaFZmAokoHF2zSuesvubts9i+eNzj" + + "3fmPmCwmvkhWIMt8EGhSzAUSQDizZpXPVQXUm5vnP0htqp2j111/v3EYOry9TnJqap6tnykjZGrpqOkn" + + "lFRX4aeZVeChiGkHSNN7cn2An+yWfyP/wDn4XV//pTFd/8AZl7CX+tl91v/AKPFh/3Mm/63dBf/AFuvu" + + "2f9Hay/7mB/629Cj/sxP8yT/nk96/8AonIP/sf91Q/zSukPgn1DhOmJ/hvuLaudr87ld8w7+G2+0KjsR" + + "6ajx9JtZ9vGrimzWWGKSSasrNDAR+Yhhzo4x/8Afnlb2p5dteWX9try3lmlknFx4d0bigUReHUF30ZL0" + + "OK5406gz3s5a9stgtuXX9vruCWWV5hP4dyZ6BRF4dQXbTkvThXPGnR5PhR2R8mt+5LsOL5BYnOYylxlD" + + "tqTa5zGy49prNUVc+bXLeB0x1Ca5kjp6fUCW8dx9NXKR/k1dhbE6x+aeK3T2LvDbexttxdbb+opM7uvM" + + "UOCxKVlXTY8UtK1fkZqemWoqCjaELXaxt7Lfu17xtOx+5tvf7zuUFrZCyuF8SV1RNRC0GpiBU+QrnpB9" + + "3rdts2X3Fgvd33CG2sxZzjXK6otSFoNTECp8h0//wAwjam595/HWuwm0tv5jcuYfeG16lcZg8fU5Ouan" + + "p5qozzilpI5ZjFEGGprWF+fewV3lsD+UV8kN/1fZ/cXY3SG697V2NxmJqcwO/Z8MJKDDwGmx8P2OD3tj" + + "qBTBCbahEGb8kn3l/zVtH3d+dd3k33mTedruN0ZFQv9eU7UFFGlJlXA86VPn1lXzNtXsLzfusm9cwbvt" + + "s+5MiqX+uKdqCijSkyrgfKvr1VV1run56dQ7Wg2X1/tHsrB7cpqysr4aA9WxZHRVV8gmqpPucntusqj5" + + "JBexew/AHsH/wDZR/5HH/PQ9I/+lJZ//wC2J7Dn+t591n/lM2v/ALmUn/bR0H/6hfdq/wCUvbf+5g//A" + + "Fv6X3+nj+ZV/wA6nsn/ANE/i/8A7EfdRH81bqH4K9W0XTD/AA1yOxq+ozNTvRd+jZ3ZeR7BaOGii26cA" + + "a9a7cWeGMDyVFUIynj8tmvfSPeO3v7y57VbDFyyfbWa1d5Gm8fwblrigUR+Hq1SSaeL0pSufTqBffDYP" + + "bLZI+XT7ezWzPI03j+FcNPgeHo1apH08Wpwrn06Pr8H9+/JnetT2GvyEpNzU0WPh2622DuHZ1JtRXkqH" + + "ywygpTTYnFmsKrDBrDa9Fxa1zcf/wCQ53J1L1FmvktN2n2VsjruLOYvq2PCvvPcuK26uVegq99NXLj2y" + + "lTTLVNRiri8gQkp5Vv9fYv+6dzLy9y7c87tv292tmssdqE8aRI9ekz6tOoiumorThUevQp+7BzDsWwXP" + + "OLb3vFtaLKlsE8aRY9WkzatOoitKitOFR0Fv8zvr7fe/cb07HsnZ+5N2vja7er5FdvYeuy5oVqoNsimN" + + "UKKGYwCoMD6NVtWg2+nuwnsH4zfyY+z987t7F3j2d1XkN1733BlNz7iroPkbLQQ1eYzFXJW19RFRUe7Y" + + "aWlSWolZgkaqq3sBb3MO8cj/dp33ddw3nct8sH3C6maWRhuJUF3OpiFEoAqTwAp1K+68m/d43rc7/d9w" + + "3qxe+uZWkkIv6Au5qxAEoAqTwGOio7V7j/mG7L21gtpbf2Xvikwe28VRYbE00nUa1MkGPx8CU9LE9RPg" + + "pJpmSJACzEsbcn2kP8AZLP5H/8Az8Lq/wD9KYrv/sy9l3+tl91v/o8WH/cyb/rd0g/1uvu2f9Hay/7mB" + + "/629P8A/sxP8yT/AJ5Pev8A6JyD/wCx/wB69/8AMC2H8f8Arb5Obu2n8Y8niMv1DRYXaM+ErsHuuTeuO" + + "kyNbt6hqs6kW4Ja3IPUvFlZJFZPK3iYaeLW94e+7208obJzzuO38jTxycurFCUZJfGXU0al6SFmrRq1F" + + "TTh1il7q7Xyrs/Od/YcmTRybAscRRkl8ZdRjUvR6tWjVqK44dWs/Ffc/am8OmcDne5qOvoN+1ORz0WSp" + + "slg025VrSU+WqYcY0mKSnpVhV6JEKtoGsc/n2xfCP5W7i+G/wAgtqdxYeknzGEiSfbu/dswzinbc2x8x" + + "JT/AMZx0MjkQpkaSSmhrKJpP21rKWLX6NQKX2v5/vPbbnDb+ZLaMyWorHPEDTxYHI1qPLUKB0rjWq1xX" + + "pL7b883ft7zXY8wW6GS2FY54waeJC9Najy1CgdK41qtcV6c/kh0difkH1VnOv6+eLH5GRosttfMyReUY" + + "bcuPSX+H1ciKPI1JOk0lPUBfUaeZ9Pqt72u+xeqP5ef82Tam2N5U288ZlN3Y/GR0mM3Ds7ceO2x21tqj" + + "n/yqTbG6dt5OGrqJaejrKtmWGuopoo5mdqWXTI7SdAN55f9nfvBbfY7km5xybikdFkhkWK7iByYpY2BJ" + + "AJ+F0YAkmNqMSc5t22L2n99bGy3BNxR79EoskUix3UYOfDljYE0BPB0IBJKNQkmjbaW+flf8Fs7mtvTb" + + "eraLA1VY09bis/iavM7EzFRH+ymZwmXopIIUmqKeAAyU1TG7xhVmTUihUf1X8Qf5df8sKsru5939kQS7" + + "2w1DWJitzdrbpwmV3RiYaqlkiqqfZOy9vY3GzT5nI0srQ+SnoaisaOQxoyI7hi3YPbn2a9i5JeZtx3oH" + + "dI0OiW6lR5UBFCIIY1Ul2BpVUZ6GgIBNS/Y+QfaT2Xkl5iv93B3KNTpkuZUaRQRQiGGNVJdhiqoz0NAQ" + + "Cav+9+/flp8z6em68wG0ZU25kKmnauw2x8JkqLC10kMyPBLuPcWVrKxIsfSTIJNEtTFTh1DMGZVK63H8" + + "xb5sZL5ud7Tb0o6OuwfWmz6CTa3WG3K9o/vafCCqeprs/l44WeCPPbmq7TTojOsEMcEGuTw+R8KveX3P" + + "n90Oa23OKN4tktk8K1jb4glatI4GBJKcsBXSoVKnTU4ge7fuPN7kcztuMcbRbNbr4dtG3EJWrO9MB5Dk" + + "gV0gKtTpqbffiV8cqP439ZR7dqKimyW8c/VJm96ZelDfby5IwrDTYugaQLI+Mw1PeONmCmWRpJdK+TQp" + + "BPcR9RZ0aT3tH/y4f5jXQfb3x/pvhn8zMlt3Gz4/bg6/wAJmt/T+DZfZGw/ElJiMHm87UvFTbf3Vt+mE" + + "dNDNPNAJ0ggmhnFWpHvO/2W95+UuYuUE9tPcueFGSH6dHuDSG5gpREeQ0EcsYoqliuoKjK3iA9Zr+0Pu" + + "7ytv/Kqe3nuHNCjLD4CPOaQ3EHBEdzQJKgooJK1Cqyt4gPVKfy7+I/aOwu1JvkL8eqPLVcVVlzurI47a" + + "8Xk3FtDc+tp6/JY7GQq82VwmVmLTSRxRymNpZI5IzAQfYg5L+Q/8P8Ac+Sn3ftHvfsfF7BqpGq48fi83" + + "sfcGPo6ZtDiDH7tqsXUXpI0b0vULUyWIJdvqTib7qHtzfTtuO3c13se0MahVeCRQPRZSpx821H1J6NZv" + + "uw8gXszX9hzPeJtbGoVXhkUD0WUqcehbUfmekrSfzOe/cNRxYHPdY7Qrd0QoIGq63G7lxVVUTLqUyVWC" + + "hrYv32YcrEYUuDZR7EHtv5c/Cv+Vt8fMn0t8Yshtvd3aEsORlwO1sFm4N41j7xyVLFSyb67Y3NRyS0kf" + + "2QiiZqQvHUTrClNTwQwAvCccw+4ntl7D8nz8s8izQXG+kMY4o3Ex8ZgB493KKjtoDoqGYKERVXKm2/c+" + + "+3XsnypNy7yXLDcb0QxSNHEp8VgB411IKjFB21DMAERVXKpXYfQ3yK+a/a1H2J3PSZjA7LSSjjymayeN" + + "l2/Trt+jmedNs7Gw1Qsc7fc63UThXiiaRppZJJCFk1Ac3msruTM5bcOdrqjKZvPZOuzOYydW/kqshlMn" + + "VS1tfXVL2Gueqqp3kc2F2Y++c91c3F7c3F5dymS6ldndjxZmJZmPzJJJ6wDubie8uJ7u5lL3Mrs7seLM" + + "xJYn5kkk9X547HUOIx9DicZTRUWNxlHTY/H0cC6YKSio4Up6WmhW50xQQRqqj+g93j/AMiftvq7qTtjv" + + "jJdo9h7N69oMt13tuixdZvLcWL27TZGrh3LJPNTUU2UqaaOpnihIZkUlgpva3vKb7qXMOw8vcwc2Tb9v" + + "FtZwyWcaqZpFjDES1IUsQCQM0HWS33ZN+2TYd95nm3vdre0iktIwplkWMMRJUgFiKkDNB1Wv/M02JvXf" + + "mxesaPZW09w7rqqDdmXqa2n29ia3LTUlPJh1ijmqI6KGZ4o3k9IZgATx7rw/mF7n25vP5rfI3dO0s5it" + + "y7bzfYtdW4fPYOup8nicpSPQ0CLU0FfSSS01VAXQgOjFSQefcOe8N9Zbn7nc6X+3XUc9lLesySIwZGGl" + + "cqwqCPmOol917203H3G5uvbC5jms5LtijowZWFFyrCoI+Y6Nj8UcNl9vfHTqPCZ7GV2HzGN2lTU2QxeS" + + "ppaOvoqhamqYw1VLOqTQShWB0sAbH3sHfyafmV01tz4gQdZ9udubD2FnOtt/boxGDoN7btwu36qt2vnp" + + "KfdlFVY6HKVlNJUUcWXzVdDqW4VoyDbi+YH3avcrlqy9uU2PmLmK0tLqyu5URZ5UjLRSUlBUMRVQ7uMe" + + "Y6yt+717hcvWfIC7Nv2/Wtrc2d1IiLNKkZMb0lBUMRUancfaOqqP5hPx77Cy/fsu8dh7D3PujG7v2vhK" + + "/JVW28FkcrDTZrGJLg6iGrkoqeZYqh6DHU0lmsSrX/r712vnX3FT99/LrvrtCgr1yeEze/snjts10cy1" + + "FPVbV2skG1NtVNJKhKPSVWFwsEsZHBVwfz7w391uZE5t9xObd9il12st2yxNWoMUVIoiD6FEUj5HrEv3" + + "N5gXmjn3mjeopddtJdMsbVqDFFSKMg+hRAR9vVs3xl6/l6v6F6v2XVUxo8jjtrUdXmaZozFLDm820mcz" + + "EM6NZlnhyORkRwfoV93wfyUu/ujurfh92ptrsrt7rnYW4cj3bvPKUOE3bu7CYHKVWMqetut6KmyFPQ5G" + + "rp6iajqKyimiR1UhpIXUcqfeV/3Y+buVdh9uN+sd75isrS8fdJmVJpkjYqba2UMFYglSVYAjzBHl1k99" + + "3LmrlrZOQN7s943+ztbt9ymZUllRGKm3twGCsQSCQQCPMEeXVYv8xfqzsrevf8AsnMbP2Fu7dGJpOudu" + + "0dTksDgcjlKKCsh3hu6pmpJamkglhjqIqeojdlYghZFP0PvV3yDK9fXOjBkesqWVlN1ZWmcqwI+oIPvB" + + "KYgzSkHGo/4esKpaGWQg41H/D1dPSKVpaZWBVlp4VYEWIIjUEEH6EH3D9t9N9SPf//T+f8A+/de63+Pf" + + "vfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+6" + + "9173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xv" + + "fvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3XvfJHeNg8bsjD" + + "6MjFWH+sVII97BKmoND1sEg1BoeumVXGllVgfqGAI/2xuPfbyPIxeR3kY/VnYsx/wBcsSffiSxqxJPXi" + + "STUmp66VVQaUVVX+igKOf8AAWHvh711rrl797917r3v3v3Xuve8q1E6IY1mlWM3vGsjhDf63UELz7sHc" + + "DSGOn7erB2AoGNOuBiiZtZjjL/6oopbj6eoi/HvF7r1Xrn797917r3v3v3Xuve/e/de69797917r3v3v" + + "3Xuve/e/de69797917r3v3v3Xuve//U+f8A+/de63+Pfvfuvde9+9+69173737r3Xvfvfuvde9+9+691" + + "73737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173KoYoJ62jgqpfBTTVVPFUTXC+GCSVEll1" + + "MCo8cZJuQRx70eB62oBIBOK9eP0Pu00fFr4I2H/ADlJUfQf8xbsj6254OBuPZd9Tef8o/8AI9CT93bN/" + + "wBHH+a/5uoPnqv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uv" + + "eeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX" + + "37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S" + + "1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/A" + + "PrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Ajh/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8" + + "j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/" + + "jS/5uveeq/44f8AJrf8V9+/2Vn4I/8AeUtR/wChbsf/AOsPv31N5/yj/wAj1793bN/0cf8AjS/5uveeq" + + "/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj1793bN/0cf+NL/m6956r/AI4f8mt/x" + + "X37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am6956r/jh/ya3/Fffv8AZWfgj/3lL" + + "Uf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/Fffv9lZ+CP/AHlLUf8AoW7H/wDrD" + + "799Tef8o/8AI9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/" + + "wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+" + + "NL/AJuveeq/44f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/" + + "wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL/m6956r/jh/ya3/ABX37" + + "/ZWfgj/AN5S1H/oW7H/APrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Ajh/ya3/Fffv9lZ+CP/eUt" + + "R/6Fux//rD799Tef8o/8j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ+CP/eUtR/6Fux//AKw+/" + + "fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44f8AJrf8V9+/2Vn4I/8AeUtR/wChbsf/AOsPv31N5/yj/wAj1" + + "793bN/0cf8AjS/5uveeq/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj1793bN/0cf" + + "+NL/m6956r/AI4f8mt/xX37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am6956r/jh" + + "/ya3/Fffv8AZWfgj/3lLUf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/Fffv9lZ+" + + "CP/AHlLUf8AoW7H/wDrD799Tef8o/8AI9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+CP8A3lLUf" + + "+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31" + + "N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793" + + "bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL" + + "/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/APrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Aj" + + "h/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ" + + "+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44f8AJrf8V94W+LnwVFRDGPlDOYnhq" + + "Hkk/vZsk6ZI3pVhS4wOldayOeeTp4+h97+pu6f7j/yPWv3ds1QP3h/xpf8AN17z1X/HD/k1v8f8ff8A/" + + "9kL"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74, + this.label50, + this.label49, + this.label48, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43}); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label75, + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 460.0416F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label72, + this.label71, + this.label70, + this.label69, + this.label68, + this.label67, + this.label64, + this.label63, + this.label62, + this.label55, + this.label54, + this.label53, + this.label52, + this.label51, + this.subreport1}); + this.ReportFooter.HeightF = 304.8751F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(316.6665F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(28.3334F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,###}")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(672.2083F, 2F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,###}")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(600F, 2F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,###}")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(440F, 2F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(80F, 20F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceHUF", "{0:#,###}")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(345F, 1.999982F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(79.58334F, 20F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(280F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(36.66656F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(90F, 2F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(190F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 87.5F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 178.6667F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 258.6667F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 238.6667F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 218.6667F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 198.6667F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 178.6667F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 158.6667F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 410.8333F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 365.8333F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 282.5F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465F, 127.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(312F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465F, 107.5F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(312F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585F, 178.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(191.9999F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 258.6667F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 238.6667F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 218.6667F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 198.6667F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 178.6667F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 158.6667F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 127.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 107.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(168.75F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(608.25F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Invoice / Számla"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(138.5417F, 54.58333F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 87.5F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 87.5F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(450F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(350F, 2.999942F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label32, + this.label31, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.row_ShortName")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(257.75F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(182.25F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(715.9167F, 20.00001F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label33.SizeF = new System.Drawing.SizeF(44.79169F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(568F, 20F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Currency / Devizanem:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 20F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label31.SizeF = new System.Drawing.SizeF(242.75F, 20.00003F); + this.label31.StylePriority.UseBorders = false; + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Settled period / Számlázási időszak:"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 147.7917F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 122.7917F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 97.79167F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 283.625F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 268.6251F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 253.6251F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "A 3C Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet 1.§ " + + "(6) bekezdés szerinti előírásainak ."; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 147.7917F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label64.Summary = summary1; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 122.7917F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 97.79167F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label62.Summary = summary3; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 147.7917F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 122.7917F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 97.79167F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 45.00001F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 192.6667F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül}); + this.DisplayName = "C3C kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_uni.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_uni.repx new file mode 100644 index 0000000..5bb5dd9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C kimenő számla_uni.repx @@ -0,0 +1,2595 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label78; + private DevExpress.XtraReports.UI.XRLabel label77; + private DevExpress.XtraReports.UI.XRLabel label76; + private DevExpress.XtraReports.UI.XRLabel label73; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLabel label60; + private DevExpress.XtraReports.UI.XRLabel label59; + private DevExpress.XtraReports.UI.XRLabel label58; + private DevExpress.XtraReports.UI.XRLabel label57; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRLabel label68; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label70; + private DevExpress.XtraReports.UI.XRLabel label71; + private DevExpress.XtraReports.UI.XRLabel label72; + private DevExpress.XtraReports.UI.XRLabel label75; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private DevExpress.XtraReports.UI.CalculatedField Egységár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_összeg; + private DevExpress.XtraReports.UI.CalculatedField ÁFA_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private DevExpress.XtraReports.UI.CalculatedField Számla_száma; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUACwEAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAAwBAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlACEBAAAB4gFQc" + + "ml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZ" + + "D0nIiAmIGxhYmVsNzUuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KAR5TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAARNDM0Mga2ltZW7FkSBzesOhbWxhQAABAAAA/////wEAAAAAA" + + "AAADAIAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQd" + + "WJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQEAAAAVU3lzdGVtLkRyYXdpbmcuQml0bWFwAQAAA" + + "AREYXRhBwICAAAACQMAAAAPAwAAAO/JAAAC/9j/4AAQSkZJRgABAQEBLAEsAAD/7gAOQWRvYmUAZAAAA" + + "AAC/+EOLkV4aWYAAE1NACoAAAAIAAcBEgADAAAAAQABAAABGgAFAAAAAQAAAGIBGwAFAAAAAQAAAGoBK" + + "AADAAAAAQACAAABMQACAAAAGwAAAHIBMgACAAAAFAAAAI6HaQAEAAAAAQAAAKIAAADOASwAAAABAAABL" + + "AAAAAEAAEFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzAAAyMDEwOjAxOjA0IDE2OjUxOjQ2AAADoAEAA" + + "wAAAAH//wAAoAIABAAAAAEAAAFtoAMABAAAAAEAAABwAAAAAAAAAAYBAwADAAAAAQAGAAABGgAFAAAAA" + + "QAAARwBGwAFAAAAAQAAASQBKAADAAAAAQACAAACAQAEAAAAAQAAASwCAgAEAAAAAQAADPoAAAAAAAAAS" + + "AAAAAEAAABIAAAAAf/Y/+AAEEpGSUYAAQIBAEgASAAA/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAA" + + "AAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAz/wAARCAAxAKADASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAA" + + "AAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMM" + + "wEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0N" + + "hfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBA" + + "gQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDB" + + "yY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp" + + "7fH/9oADAMBAAIRAxEAPwD1Rzg0FziABqSdAo121Wt3VPbY3iWkEf8ARXm+Tj5n14+tuZgXZD6OldNc5" + + "uxuo/Ru9Dc1p/R+vkWC1/q2M/RVIX1j+qtv1NbR1roWZa2LG1PFm3dJlzN3pNqrux37NllVlabxHetGM" + + "5DqRG4jrfbf0vp7nNa0ucQGgSSdAAFx+d1jP6rlDHwi9tLjtqqrO1zx/pLX+3a3+T/Ns/wi0s/q32z6q" + + "05zB6Z6hVVLR+b6oa61n+b6layulPNGB1PMrO26utlVbxy31Cdxb/0E4Mizun9bwGuymOc0Va2GmzeWx" + + "/pa/wA5v7/tsXQ9C6v+0aHNthuTTHqAcOB+jaz+suV6Zmfs7LbkNZvbtcyysGN7SOHc/ne9F6LmV4PUq" + + "7nu9OghzLDzDCNzOP3XtrSU9yksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD" + + "/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5" + + "Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/" + + "uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElP/0PQBgdB+r" + + "7MzqrKW4jXA2ZdzQ5xIBdY5xY3e76T3fQauP+tn1ip+tVdHQvq7XZmW2Wi2y0tNbAGAwP02x/03b7LHf" + + "Q/4RduzJ6L1vHvxqr6OoUEbMiut7bBDuG2em523dtXH/Xf6l9Gw+jW9V6ZT9jyMMseRW521zS5rOC79F" + + "ZXu9WuypNltpVMeS+HSuH9LvX9V3Oo9LOD9VMfCa7f9gZS1zh+ds212P/6W9ZnTgbOldVpbq/ZXaG9y1" + + "hc5/wD1C2PqjnWda+q2NdnfpbLGPpvJ/P2Ofj73fyrGM3PWNfRn9AzhY0wBIquIlljD/g7OPdp72f260" + + "4bLwQQCNiEPSsNufnV4znObW5rnveyJDWj6XuDm/TLEToNZt6vjBv0WudZP8lrXR/3xJ/WLHVvoxsejF" + + "dke2x2Oz9I+fzG/1lvfVzpD8Kt2TkN25FwDWs7sZztP8t/56SWXU/rd9Xek5ZwuoZjaMkNDzWWWO9rp2" + + "ma63t/NQsX68fVbMy6sPGz22ZF7gyqv07AS48Nl1bWrR6nVUcHKsLGl4pshxAJ+i7usX/F5VU76odNsc" + + "xpeBbDyBP8APXfnJtm60W2eIDTvs2s766/Vjp+Xbh5mcKsik7bGFlhgwHfSbW5rva5Wem/WTovVcfIye" + + "n5IvpxP594a9u3T1OLGMc72furlsLrPQul/Wv6x/tm6qkXW4/oi1pdO2t3qbYa/9+tdHV1Lo/UuiZ2R0" + + "iyu2hrLa7H1N2jeK920y1n5j2JCR7jyUDfUbnTydDp3UcPqeHVnYNnrY1wJrshzZAJYfbYGP+k391D6t" + + "1npnRsduT1K4Y9L3itry1zpeQ5+39E17voVvWV/i+/8R3Tf6j//AD5Yq3+MOyqnD6Rdc4Mpr6rjPtc7U" + + "BjW3Osc7n27Er9N+CjL034N3F+vX1UzMmrExs9tl+Q8V1M2WDc52jWy6sNV7rHXuk9Eobd1LIFDbCW1t" + + "gue8jtXVWH2OVDA+sv1Pzs2rFwcnHty7SfSYxhDiWg2O2uNbfzGuWcGV5/+Mx7bxvb0vADqGnUCx7m/p" + + "I/e2XpWa3B1pVmtwbNO30b6zdF62bGdOyPUtqE2Uva6uxomN3p2tY7b/KYidZ6/0nodTLep5AoFpLamQ" + + "XPeR9L06qw+x22fc76CBk/V2u36yYfX6rRTZjV2VZFQZPrte0tq32b27fRcd30LFk4jG5v+MnPsvaH/A" + + "LMw6q8eRO027bXPb/L/AEtrErP1ulWfqTTtdG+s3RetmxnTsgWW1CbKXNdXY0cbvTtax23+W1SyfrH0b" + + "F6pV0nIyRXnX7fSpLXmd5Ir/SBnpe/b++sP6wsrwvrr9Xs+oBtuWb8XII03t2sFW+PpbHW/9QsX65ss/" + + "wCc2fk0NnI6f07Hz6T4Ox8lj3n/ALZdagZEDyKDIgHwNPoGfn4nTsS3NzbBTjUjdZYQTAnb9Fgc76RUO" + + "mdUweq4jczp9vrY7i5oftc3Vp2v9tjWO+ksP615NfUaOjdOoPqV9YzKHub+9jVfrt7v81lSj/i2cX/VW" + + "l5/OuvP32PRv1Um/VXSn//RN0Hqtf1K+sXUum9VrezFyXAsta3cQ1rn/Z7wxv06Labf0np+p6dtfp/6R" + + "XPrl9eOl9S6W7pHRy/MuzXMY5za3tAG4O9OtljWW232ua2tjGVruc/pfTepVivqGLVlNbOwWsDts87C7" + + "3M/sIGB9Xuh9Ns9XBwaaLdQLWsG+DyBYfem8J2vRi4JAGIkOE+HqFovqp0q3pH1fw8C+BfWwuuAgw+xz" + + "rrGbm+13pus9Naj2Me0se0OadC0iQfkpJJwZAKAA6IacPDoduoorqcfzmMa0/8ARCMkhX5OPjV+rkWsp" + + "rkDe9waJPA3OSSj6l/ydlf8TZ/1Llif4uv/ABG9O+Fv/n65atnVei21uqszMdzHgtc02s1BEOH0kHp+T" + + "9W+m4deFg5ONRjUz6dbbWkDcTY76T3O+m5Ctb8EVqD4Fweiv6a361/Wb7e6hoNuN6frlg/wb9+z1f7K6" + + "G+zpz+k5rcB1LmNqs3igtIDiw/S9L87aszM6R9Q87Ksy8tuHdkXHdZY60STAb2s/darHT6Pqd0yi/HwX" + + "4lFWVpextoh2mz3bnn80oAHw6oAI+0/i0fqJ1PpuP8AVPp1V+XRVa1j9zH2Ma4TZYdWucm+vV2PdhdEu" + + "Y9llDurYp9QFrqy2Ltx3/zexP8A83P8XP8AosLT/hv/AFKrl2L9TL+nU9LudiPwcZwdTQbRtaQHNn+c3" + + "f4WxKjVaKo8NaN+m7oAuZ6FmJ65MV7DXv3HSGbfducufstq6X/jJ9XKcK6uq4Irosdo02scz9Fvd7d2y" + + "n/wWpWcfon+L/FyKsmhmHXdQ8WVPFolrmncx385+arvVh9U+s0DH6nbi5NbTubutaC0/wAiyt7LGf2Hp" + + "Ua6bqIJ7aatfM63kv8Arj0/o2Ba11LKrr+qMaGu2tjbjB7/AKVLvW/8+1qlj2M6f/jIzWZLhW3q2HU/G" + + "LjAe+rbT6Tf+E/R2LS6RR9T+iVvr6XZi44tINjhaHOdH0d1tr32bW/u71LqzPql1qltPU7MXJYwyybQ1" + + "zSfpbLa3ssZu/kvSo/W7VR363bmdffXn/XfoHT6HB9mD62VlBuvpt2s9H1I+hvfX/4JUmtxa8z/ABgZ+" + + "Jb/ADWR0U1P/qvtax3/AEXLR6RjfU3ogeOmPxcc2fzj/WD3n+SbbrLLNv8AI3Kw2/6tN6i7qgyMYZr6v" + + "Qdf6rZNYPqen9Pb9MJcJ697Vw9+9vKfUl+R1LquCzJBJ+rmA/FeDpsyH2vxR/7I4q1/8Wf/AIkqP+Nu/" + + "wDPjlp4Vn1XwLsm/Evxabc1/q5L22tl79TvdL/5b0/Tb/qz0vFbh9PyMajHaS5tbbWkS47nfSe785IRI" + + "r6qjEir8X//0vVUl8qpJKfqpJfKqSSn6qVTqX9G/tN/KvmBJJT9GJL5zSSS/RiS+c0klP0YkvnNJJT9G" + + "pl85pJKfo1N3Xzmkkp+jfBMvnNJJT9GdkvD5L5zSSU//9n/7RL2UGhvdG9zaG9wIDMuMAA4QklNBCUAA" + + "AAAABAAAAAAAAAAAAAAAAAAAAAAOEJJTQPtAAAAAAAQASwAAAABAAIBLAAAAAEAAjhCSU0EJgAAAAAAD" + + "gAAAAAAAAAAAAA/gAAAOEJJTQQNAAAAAAAEAAAAeDhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAA" + + "AAAAAAAAAEAOEJJTQQKAAAAAAABAAA4QklNJxAAAAAAAAoAAQAAAAAAAAACOEJJTQP1AAAAAABIAC9mZ" + + "gABAGxmZgAGAAAAAAABAC9mZgABAKGZmgAGAAAAAAABADIAAAABAFoAAAAGAAAAAAABADUAAAABAC0AA" + + "AAGAAAAAAABOEJJTQP4AAAAAABwAAD/////////////////////////////A+gAAAAA/////////////" + + "////////////////wPoAAAAAP////////////////////////////8D6AAAAAD//////////////////" + + "///////////A+gAADhCSU0EAAAAAAAAAgAAOEJJTQQCAAAAAAACAAA4QklNBAgAAAAAABAAAAABAAACQ" + + "AAAAkAAAAAAOEJJTQQeAAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAHAAAAFtAAAAC" + + "gBVAG4AdABpAHQAbABlAGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAFtAAAAc" + + "AAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIAAAAGY" + + "m91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAA" + + "AAAAEJ0b21sb25nAAAAcAAAAABSZ2h0bG9uZwAAAW0AAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAA" + + "AAABXNsaWNlAAAAEgAAAAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpb" + + "mVudW0AAAAMRVNsaWNlT3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlV" + + "HlwZQAAAABJbWcgAAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAA" + + "AAAAExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAHAAAAAAUmdodGxvbmcAAAFtAAAAA3VybFRFWFQAA" + + "AABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAAAAEAA" + + "AAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxpZ25lb" + + "nVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNsaWNlV" + + "mVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlA" + + "AAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvb" + + "U91dHNldGxvbmcAAAAAAAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAT/wAAAAA" + + "AAAOEJJTQQRAAAAAAABAQA4QklNBBQAAAAAAAQAAAADOEJJTQQMAAAAAA0WAAAAAQAAAKAAAAAxAAAB4" + + "AAAW+AAAAz6ABgAAf/Y/+AAEEpGSUYAAQIBAEgASAAA/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAA" + + "AAB/9sAhAAMCAgICQgMCQkMEQsKCxEVDwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMAQ0LCw0ODRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMD" + + "AwMDAwMDAwMDAwMDAwMDAz/wAARCAAxAKADASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAA" + + "AAAAwABAgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMMM" + + "wEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkSTVGRFwqN0N" + + "hfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eHl6e3x9fn9xEAAgIBA" + + "gQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMkYuFygpJDUxVjczTxJQYWorKDB" + + "yY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp" + + "7fH/9oADAMBAAIRAxEAPwD1Rzg0FziABqSdAo121Wt3VPbY3iWkEf8ARXm+Tj5n14+tuZgXZD6OldNc5" + + "uxuo/Ru9Dc1p/R+vkWC1/q2M/RVIX1j+qtv1NbR1roWZa2LG1PFm3dJlzN3pNqrux37NllVlabxHetGM" + + "5DqRG4jrfbf0vp7nNa0ucQGgSSdAAFx+d1jP6rlDHwi9tLjtqqrO1zx/pLX+3a3+T/Ns/wi0s/q32z6q" + + "05zB6Z6hVVLR+b6oa61n+b6layulPNGB1PMrO26utlVbxy31Cdxb/0E4Mizun9bwGuymOc0Va2GmzeWx" + + "/pa/wA5v7/tsXQ9C6v+0aHNthuTTHqAcOB+jaz+suV6Zmfs7LbkNZvbtcyysGN7SOHc/ne9F6LmV4PUq" + + "7nu9OghzLDzDCNzOP3XtrSU9yksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElOmksz/AJydE/7lD" + + "/Nf/wCQS/5ydE/7lD/Nf/5BJTppLM/5ydE/7lD/ADX/APkEv+cnRP8AuUP81/8A5BJTppLM/wCcnRP+5" + + "Q/zX/8AkEv+cnRP+5Q/zX/+QSU6aSzP+cnRP+5Q/wA1/wD5BL/nJ0T/ALlD/Nf/AOQSU6aSzP8AnJ0T/" + + "uUP81//AJBL/nJ0T/uUP81//kElOmksz/nJ0T/uUP8ANf8A+QS/5ydE/wC5Q/zX/wDkElP/0PQBgdB+r" + + "7MzqrKW4jXA2ZdzQ5xIBdY5xY3e76T3fQauP+tn1ip+tVdHQvq7XZmW2Wi2y0tNbAGAwP02x/03b7LHf" + + "Q/4RduzJ6L1vHvxqr6OoUEbMiut7bBDuG2em523dtXH/Xf6l9Gw+jW9V6ZT9jyMMseRW521zS5rOC79F" + + "ZXu9WuypNltpVMeS+HSuH9LvX9V3Oo9LOD9VMfCa7f9gZS1zh+ds212P/6W9ZnTgbOldVpbq/ZXaG9y1" + + "hc5/wD1C2PqjnWda+q2NdnfpbLGPpvJ/P2Ofj73fyrGM3PWNfRn9AzhY0wBIquIlljD/g7OPdp72f260" + + "4bLwQQCNiEPSsNufnV4znObW5rnveyJDWj6XuDm/TLEToNZt6vjBv0WudZP8lrXR/3xJ/WLHVvoxsejF" + + "dke2x2Oz9I+fzG/1lvfVzpD8Kt2TkN25FwDWs7sZztP8t/56SWXU/rd9Xek5ZwuoZjaMkNDzWWWO9rp2" + + "ma63t/NQsX68fVbMy6sPGz22ZF7gyqv07AS48Nl1bWrR6nVUcHKsLGl4pshxAJ+i7usX/F5VU76odNsc" + + "xpeBbDyBP8APXfnJtm60W2eIDTvs2s766/Vjp+Xbh5mcKsik7bGFlhgwHfSbW5rva5Wem/WTovVcfIye" + + "n5IvpxP594a9u3T1OLGMc72furlsLrPQul/Wv6x/tm6qkXW4/oi1pdO2t3qbYa/9+tdHV1Lo/UuiZ2R0" + + "iyu2hrLa7H1N2jeK920y1n5j2JCR7jyUDfUbnTydDp3UcPqeHVnYNnrY1wJrshzZAJYfbYGP+k391D6t" + + "1npnRsduT1K4Y9L3itry1zpeQ5+39E17voVvWV/i+/8R3Tf6j//AD5Yq3+MOyqnD6Rdc4Mpr6rjPtc7U" + + "BjW3Osc7n27Er9N+CjL034N3F+vX1UzMmrExs9tl+Q8V1M2WDc52jWy6sNV7rHXuk9Eobd1LIFDbCW1t" + + "gue8jtXVWH2OVDA+sv1Pzs2rFwcnHty7SfSYxhDiWg2O2uNbfzGuWcGV5/+Mx7bxvb0vADqGnUCx7m/p" + + "I/e2XpWa3B1pVmtwbNO30b6zdF62bGdOyPUtqE2Uva6uxomN3p2tY7b/KYidZ6/0nodTLep5AoFpLamQ" + + "XPeR9L06qw+x22fc76CBk/V2u36yYfX6rRTZjV2VZFQZPrte0tq32b27fRcd30LFk4jG5v+MnPsvaH/A" + + "LMw6q8eRO027bXPb/L/AEtrErP1ulWfqTTtdG+s3RetmxnTsgWW1CbKXNdXY0cbvTtax23+W1SyfrH0b" + + "F6pV0nIyRXnX7fSpLXmd5Ir/SBnpe/b++sP6wsrwvrr9Xs+oBtuWb8XII03t2sFW+PpbHW/9QsX65ss/" + + "wCc2fk0NnI6f07Hz6T4Ox8lj3n/ALZdagZEDyKDIgHwNPoGfn4nTsS3NzbBTjUjdZYQTAnb9Fgc76RUO" + + "mdUweq4jczp9vrY7i5oftc3Vp2v9tjWO+ksP615NfUaOjdOoPqV9YzKHub+9jVfrt7v81lSj/i2cX/VW" + + "l5/OuvP32PRv1Um/VXSn//RN0Hqtf1K+sXUum9VrezFyXAsta3cQ1rn/Z7wxv06Labf0np+p6dtfp/6R" + + "XPrl9eOl9S6W7pHRy/MuzXMY5za3tAG4O9OtljWW232ua2tjGVruc/pfTepVivqGLVlNbOwWsDts87C7" + + "3M/sIGB9Xuh9Ns9XBwaaLdQLWsG+DyBYfem8J2vRi4JAGIkOE+HqFovqp0q3pH1fw8C+BfWwuuAgw+xz" + + "rrGbm+13pus9Naj2Me0se0OadC0iQfkpJJwZAKAA6IacPDoduoorqcfzmMa0/8ARCMkhX5OPjV+rkWsp" + + "rkDe9waJPA3OSSj6l/ydlf8TZ/1Llif4uv/ABG9O+Fv/n65atnVei21uqszMdzHgtc02s1BEOH0kHp+T" + + "9W+m4deFg5ONRjUz6dbbWkDcTY76T3O+m5Ctb8EVqD4Fweiv6a361/Wb7e6hoNuN6frlg/wb9+z1f7K6" + + "G+zpz+k5rcB1LmNqs3igtIDiw/S9L87aszM6R9Q87Ksy8tuHdkXHdZY60STAb2s/darHT6Pqd0yi/HwX" + + "4lFWVpextoh2mz3bnn80oAHw6oAI+0/i0fqJ1PpuP8AVPp1V+XRVa1j9zH2Ma4TZYdWucm+vV2PdhdEu" + + "Y9llDurYp9QFrqy2Ltx3/zexP8A83P8XP8AosLT/hv/AFKrl2L9TL+nU9LudiPwcZwdTQbRtaQHNn+c3" + + "f4WxKjVaKo8NaN+m7oAuZ6FmJ65MV7DXv3HSGbfducufstq6X/jJ9XKcK6uq4Irosdo02scz9Fvd7d2y" + + "n/wWpWcfon+L/FyKsmhmHXdQ8WVPFolrmncx385+arvVh9U+s0DH6nbi5NbTubutaC0/wAiyt7LGf2Hp" + + "Ua6bqIJ7aatfM63kv8Arj0/o2Ba11LKrr+qMaGu2tjbjB7/AKVLvW/8+1qlj2M6f/jIzWZLhW3q2HU/G" + + "LjAe+rbT6Tf+E/R2LS6RR9T+iVvr6XZi44tINjhaHOdH0d1tr32bW/u71LqzPql1qltPU7MXJYwyybQ1" + + "zSfpbLa3ssZu/kvSo/W7VR363bmdffXn/XfoHT6HB9mD62VlBuvpt2s9H1I+hvfX/4JUmtxa8z/ABgZ+" + + "Jb/ADWR0U1P/qvtax3/AEXLR6RjfU3ogeOmPxcc2fzj/WD3n+SbbrLLNv8AI3Kw2/6tN6i7qgyMYZr6v" + + "Qdf6rZNYPqen9Pb9MJcJ697Vw9+9vKfUl+R1LquCzJBJ+rmA/FeDpsyH2vxR/7I4q1/8Wf/AIkqP+Nu/" + + "wDPjlp4Vn1XwLsm/Evxabc1/q5L22tl79TvdL/5b0/Tb/qz0vFbh9PyMajHaS5tbbWkS47nfSe785IRI" + + "r6qjEir8X//0vVUl8qpJKfqpJfKqSSn6qVTqX9G/tN/KvmBJJT9GJL5zSSS/RiS+c0klP0YkvnNJJT9G" + + "pl85pJKfo1N3Xzmkkp+jfBMvnNJJT9GdkvD5L5zSSU//9k4QklNBCEAAAAAAFMAAAABAQAAAA8AQQBkA" + + "G8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAAAASAEEAZABvAGIAZQAgAFAAaABvAHQAbwBzAGgAbwBwA" + + "CAAQwBTAAAAAQA4QklNBAYAAAAAAAcACAAAAAEBAP/hGAVodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xL" + + "jAvADw/eHBhY2tldCBiZWdpbj0n77u/JyBpZD0nVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkJz8+DQo8e" + + "Dp4bXBtZXRhIHhtbG5zOng9ImFkb2JlOm5zOm1ldGEvIiB4OnhtcHRrPSJYTVAgdG9vbGtpdCAzLjAtM" + + "jgsIGZyYW1ld29yayAxLjYiPg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvM" + + "Tk5OS8wMi8yMi1yZGYtc3ludGF4LW5zIyIgeG1sbnM6aVg9Imh0dHA6Ly9ucy5hZG9iZS5jb20vaVgvM" + + "S4wLyI+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZ" + + "S05MmU5LWMwZWM3ZjRiNjcwZCIgeG1sbnM6ZXhpZj0iaHR0cDovL25zLmFkb2JlLmNvbS9leGlmLzEuM" + + "C8iPg0KCQkJPGV4aWY6Q29sb3JTcGFjZT40Mjk0OTY3Mjk1PC9leGlmOkNvbG9yU3BhY2U+DQoJCQk8Z" + + "XhpZjpQaXhlbFhEaW1lbnNpb24+MzY1PC9leGlmOlBpeGVsWERpbWVuc2lvbj4NCgkJCTxleGlmOlBpe" + + "GVsWURpbWVuc2lvbj4xMTI8L2V4aWY6UGl4ZWxZRGltZW5zaW9uPg0KCQk8L3JkZjpEZXNjcmlwdGlvb" + + "j4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZTBmNDktZjk0OS0xMWRlLTkyZ" + + "TktYzBlYzdmNGI2NzBkIiB4bWxuczpwZGY9Imh0dHA6Ly9ucy5hZG9iZS5jb20vcGRmLzEuMy8iPg0KC" + + "Qk8L3JkZjpEZXNjcmlwdGlvbj4NCgkJPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9InV1aWQ6MTAzZ" + + "TBmNDktZjk0OS0xMWRlLTkyZTktYzBlYzdmNGI2NzBkIiB4bWxuczpwaG90b3Nob3A9Imh0dHA6Ly9uc" + + "y5hZG9iZS5jb20vcGhvdG9zaG9wLzEuMC8iPg0KCQkJPHBob3Rvc2hvcDpIaXN0b3J5PjwvcGhvdG9za" + + "G9wOkhpc3Rvcnk+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZjphY" + + "m91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnRpZmY9I" + + "mh0dHA6Ly9ucy5hZG9iZS5jb20vdGlmZi8xLjAvIj4NCgkJCTx0aWZmOk9yaWVudGF0aW9uPjE8L3RpZ" + + "mY6T3JpZW50YXRpb24+DQoJCQk8dGlmZjpYUmVzb2x1dGlvbj4zMDAvMTwvdGlmZjpYUmVzb2x1dGlvb" + + "j4NCgkJCTx0aWZmOllSZXNvbHV0aW9uPjMwMC8xPC90aWZmOllSZXNvbHV0aW9uPg0KCQkJPHRpZmY6U" + + "mVzb2x1dGlvblVuaXQ+MjwvdGlmZjpSZXNvbHV0aW9uVW5pdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+D" + + "QoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSJ1dWlkOjEwM2UwZjQ5LWY5NDktMTFkZS05MmU5L" + + "WMwZWM3ZjRiNjcwZCIgeG1sbnM6eGFwPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIj4NCgkJC" + + "Tx4YXA6Q3JlYXRlRGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6Q3JlYXRlRGF0ZT4NC" + + "gkJCTx4YXA6TW9kaWZ5RGF0ZT4yMDEwLTAxLTA0VDE2OjUxOjQ2KzAxOjAwPC94YXA6TW9kaWZ5RGF0Z" + + "T4NCgkJCTx4YXA6TWV0YWRhdGFEYXRlPjIwMTAtMDEtMDRUMTY6NTE6NDYrMDE6MDA8L3hhcDpNZXRhZ" + + "GF0YURhdGU+DQoJCQk8eGFwOkNyZWF0b3JUb29sPkFkb2JlIFBob3Rvc2hvcCBDUyBXaW5kb3dzPC94Y" + + "XA6Q3JlYXRvclRvb2w+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uIHJkZ" + + "jphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zOnhhc" + + "E1NPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIj4NCgkJCTx4YXBNTTpEb2N1bWVudElEP" + + "mFkb2JlOmRvY2lkOnBob3Rvc2hvcDoxMDNlMGY0OC1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQ8L" + + "3hhcE1NOkRvY3VtZW50SUQ+DQoJCTwvcmRmOkRlc2NyaXB0aW9uPg0KCQk8cmRmOkRlc2NyaXB0aW9uI" + + "HJkZjphYm91dD0idXVpZDoxMDNlMGY0OS1mOTQ5LTExZGUtOTJlOS1jMGVjN2Y0YjY3MGQiIHhtbG5zO" + + "mRjPSJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyI+DQoJCQk8ZGM6Zm9ybWF0PmltYWdlL" + + "2pwZWc8L2RjOmZvcm1hdD4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJPC9yZGY6UkRGPg0KPC94Onhtc" + + "G1ldGE+DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgC" + + "iAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI" + + "CAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9J3cnP" + + "z7/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQECAgICAgICAgICA" + + "gMDAwMDAwMDAwP/2wBDAQEBAQEBAQEBAQECAgECAgMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA" + + "wMDAwMDAwMDAwMDAwMDAwMDAwP/wAAUCABwAW0EAREAAhEBAxEBBBEA/8QAHwAAAAYCAwEAAAAAAAAAA" + + "AAABwgGBQQJAwoCAQAL/8QAtRAAAgEDBAEDAwIDAwMCBgl1AQIDBBEFEgYhBxMiAAgxFEEyIxUJUUIWY" + + "SQzF1JxgRhikSVDobHwJjRyChnB0TUn4VM2gvGSokRUc0VGN0djKFVWVxqywtLi8mSDdJOEZaOzw9PjK" + + "Thm83UqOTpISUpYWVpnaGlqdnd4eXqFhoeIiYqUlZaXmJmapKWmp6ipqrS1tre4ubrExcbHyMnK1NXW1" + + "9jZ2uTl5ufo6er09fb3+Pn6/8QAHwEAAAYDAQEBAAAAAAAAAAAABgUEAwcCCAEJAAoL/8QAtREAAgEDA" + + "gQEAwUEBAQGBgVtAQIDEQQhEgUxBgAiE0FRBzJhFHEIQoEjkRVSoWIWMwmxJMHRQ3LwF+GCNCWSUxhjR" + + "PGisiY1GVQ2RWQnCnODk0Z0wtLi8lVldVY3hIWjs8PT4/MpGpSktMTU5PSVpbXF1eX1KEdXZjh2hpamt" + + "sbW5vZnd4eXp7fH1+f3SFhoeIiYqLjI2Oj4OUlZaXmJmam5ydnp+So6SlpqeoqaqrrK2ur6/90ABAAu/" + + "9oADgQBAAIRAxEEAAA/APn/APv3Xut/j3737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69172L" + + "HTnS2/u892w7R2FijWVCqlRlcpUl4MNgMez6DkMxXBHWniJBEaKGmmYaY0Y3HtuWVIV1Of9npTaWk15K" + + "IoVqfM+QHqesckiRLqY2/oPyT/Qe7uenP5e/SfXdFS1e86D/ShuoRxtVVufSSLb1PPYGRMbtuKY0rQh+" + + "A1Y1TIbXGi5X2US3srkhDpX5cf29C+02O0gAMo8SX58PyH+evTbJVyufSdC/wBB9f8AYt7OFR9c9fY6m" + + "WjoNi7OoqRBZaak2zhaeBRbTYRRUSJyvH09pS7nJc1+3o1EECiiwoB9g6j63/1bf8lH/ivsIuxPiV8fu" + + "zKSeHOdcYLGVsqMI83tSlh2xmKaQ3tOlRiY4KepkVmvpqIp42P6lPt1LmaM4c0+eeks+2WNwCHt1B9Vw" + + "f5f5esiTyp9HJH9G9Q/3n3Td8nvhDvToaKp3bt2qn3r1osiCbMLAsea255mCRpuOhgBiNK0jBFrYf2Sx" + + "AkWIsoY1t7tJu1hST/D9nQU3HaJbIGWM67f18x9v+f/AAdOMFSsvpPpf+n4P/BT/X/D2Rr2r6J+pPv3v" + + "3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de6" + + "9797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3" + + "v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de" + + "69797917r3v/9D5/wD7917rf49+9+69173737r3Xvfvfuvde9+9+69173737r3Xvap2Rs3Pdhbt29snb" + + "FIa7PblylNisdTi4TzVD2eeokAPhpKSENLNIeI4kZjwD7q7BFZ2OAOnIYnnljhjFXY0HXFmCKWY2Ci5/" + + "wB9/X3s49CdHbV6C6/xuy9twxzVhSOs3Nn2hRK7cedeJRVV9S4GsU0bXjpYSSIIAFFzqZg/NM0zl24eQ" + + "9OpDsrOOygWGMZ8z6n1/wA3TLLK0rlm/wCQR+AP6e13vvf+zesttVu79+bgoNtbeoNKzV1c7apqiQHw0" + + "VBSxLJV5HIVGk+OCFHkaxNrAkURHkbSi1bp6aeK3jMszhYx5n/J6n5dcVRnOlQWP9B/vuPdfG4P5o/Ue" + + "Prpabb3X2+tyUcchRcjU1eG27HOoYjywUshy9T42ABXyCJyDyqnj2uXbpSO5wD+3ojfmO1U0jgdh64H+" + + "fqWKGS3LoP8OT/xA9iv1H8/+ie08tS7drZsx13n6+aOmx9PvBaJcPX1MriOGlp9wUNTLRw1EzkBRVJTK" + + "zEBSSfbUtlNGNQoy/L/ADdKbXe7O5YIxMbnhq4ft/z06xyUkqC4s4H103uP9h7OvXUNJkaSrxuSpKeuo" + + "a2nmo66hrII6ilq6WojaGopqmnmV4p4JonKujAqykgi3tICQQQc9G5AYFWFVPUYG3I4I5BH4966vzW+N" + + "Q6D7BjyO26eT/RvvZ6qt20fXIMHXxMr5LbM0z6iVo/KslKzHU9M4UlmjdvZ5aXHjJRv7Qcf8/QE3fb/A" + + "KKcNGP8Xfh8j5j/ADfL7Onemm8qWP614b/H+jf7H2S32r6KepPv3v3Xuve/e/de69797917r3v3v3Xuv" + + "e/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797" + + "917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xu" + + "ve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de697//R0O+ses989x782x1n1tt6t" + + "3TvXeGThxOCwtAE8tTUy3Z5Z5pWjp6Kgo4EeaoqJnSGngjeSRlRSQbbHse68ybtY7Hslm0+53MgSNF4k" + + "nzJOFUCpZiQqqCSQAejPZtm3PmHdLLZtntGn3G4cKiL5k+ZJwFAqWYkBVBJIA630d57y2119tjM7y3fl" + + "qbCbcwFFJXZPI1RbRFClgsccaBpqmqqJWWOKKNWklkZUQFiB72nPjH/ACGelNpYPF5v5ObizPaW9KiCG" + + "pyO0dsZOs2vsHDTMA745chj2p90bieEnS9T9xQxOf0wADU2enI33TeWNvtYLrnm8lv9zIBaGJmit0P8O" + + "paSyU821ID5J5nNzkz7r/LlhbQXPOd3Je7iQC0UbGOBD/DqWkklPNtSA+S+ZpL7m/me9jZ3JVuN6ZxOP" + + "2Vt2KWSKkz2ZoqfNbpyMakqtWaWqE2FxKSDlYfFUuv5kN7CweH+V58A4KJaBPjHsFoFiMIeafctTWlGv" + + "ctkqjPS5F5eeHMpcfg+5gX2J9o0iEI5GtNFKZMpb/ejIWr8616lZfZX2sSMRDky100pkyE/70XLfnWvR" + + "U5Pmn8pZag1TdzbpEjOJCsceHhp9QtYCkhxaUipx+kIFP8AT2Tr5AfyKfit2HichVdKVe4+i94eKWTGL" + + "BlMnvPZE1UI/wBqnyuF3JXVebhpZXWxkpMhE0WrVokC+No35v8Aup8g7xbzPyxJNtW40JWjNNAT5B0kY" + + "uAfVJBTjQ0oY/5q+7LyPu0Er8uSTbZuFO2jNNCT5BkkYuAfVZBTjQ8CYHqz+Zn3dtOvpIexoMR2XgNaJ" + + "WmWio9vbjjgLeuWiyOIpoMbJOim4WekcPa2pL6hqxfJP409sfFLs/K9U9u4L+FZyiQVuKydI71W391YK" + + "aSSOi3DtvJNFEtfi6sxMvKpNBKrRTJHKjIMC+duSOYOQN9uNg5itPDul7kYZjljJIWSNqDUpp8ipBVgG" + + "BHWEfOHJ2+8jb1Pse/2vh3K5VhmOVDwkjbGpTT5EEFWAYEdXadP9xbF7x2ZRb42Fk/vsbUMaeto51WHK" + + "4TJxoj1GKzFGHc0tbAHB4LRyIQ8bMjKxAL2Eegt0KXu3P8Alf8AUcNVW7y7oylKshxjHZW1HlS4iraiC" + + "Cv3HXQk8CaOinpqdWH0SeVfz7LNwloEiHnk/wCToT8u2oJlu2HDtX/Cf8g/b1ArZOFjH59Tf70o/wBv7" + + "uTVSzBVF2YhQP6kmwH+39lfQr6bvevp8r+wt2fJ35LwdXbQnkrcHg9zr17sjGJK60E2VFWtDndx1SgFd" + + "VTXxys0xBMdFAgFrG51bItvb+IwyRU/5ugPuc8u47gLeI1RW0qPKvAn9v8ALp2gRYIS7fUrrY/m31Cj/" + + "Yf7z7tD63+Cfx42HtykxWZ2Vj+wM8aWNczuXdJqquSurTGBUPjcctTHQ4iiEl/CsaeYJbXI7c+y+S8nd" + + "iQ+keg6Edvs1jDGFeEO9Mk+f2DgOoL1UrtcMUH4VeP9v+T7JF85PhhsnrnZzdvdSUFRg8XjchR0e8Np/" + + "dVVfjqWmyk4paPOYWWtlqK2ljjr5I4ainaSSMCVXj0KrL7V2l08j+FIanyPRRvG0wwRfVWq0UHuXiM+Y" + + "/PiOpNNUs7eOQ3Jvpb6G/1sfx9PZtP5fPc2V7U6YnwW5a6bI7k6zyVPtySvqpWmrMht2rpmqtvVFXK93" + + "lnpI4ZqTWxLOlOha7XJTXsQjl1KO1s/n59GWx3bXNoUkNZIzT8vL/N+XWCrjCS3AsHF7D6A/Q/8V/2Ps" + + "ZvlV1JT9zdIbz2sKZJs5Q0Eu5dpyMB5IdyYOCaqoo4nP+b/AInD5aNz9BHUMfbVtJ4UyN5cD9h6V7lai" + + "7s5Y6d4FV+0f5+H59Y4JPHKrfgnS3/BT9f9t9fesKQVJVgVZSQykEEEGxBB5BB9iDqPOnr317917r3v3" + + "v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de" + + "69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v" + + "3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve/e/de69797917r3v3v3Xuve//Sq" + + "o/kD/GfE4nrzfvynz+Nhn3Lu7M1vXOwaqphR5MXtPAfaT7oyOOkZCYn3BuCRaSR1OoJi2UWWRw2fP3R+" + + "SLe32bdufbuEG+uJWtrckfDFHQysvp4kh0E8aREcCa5v/da5Ngg2ndOd7qEG8uJDbwEj4YkoZGX/mpJ2" + + "k8aRkcCa7Hn80nuOur917X6SxdZJHh8Dj6bd26YYZGVa3O5TzxYWkq1DetcVilM6KRpLVobkqtjB/zYv" + + "5l24/h/FtrqHpWPEyd0bzwrblyO4svRwZai6/2pJV1GPx1XBiKgvR5DcecraKo+3SqSSnp4KdpJIpPLE" + + "PYw+8D733vtytly5ywIzzNcxeI0jgOtvESVUhD2tI7K2kMCqqpJU6l6Fnvp7x3fIC2ewcuCM8xXEfiNI" + + "wDLBFUqpCnDSOQ2kMCqhalTVegp+DHw6xHfsmY392K1cvXe3siMPSYmgqJaCp3VnEgiqquCWvi01FLiM" + + "bT1EXlaFkllklCo6aH961tV/Mh+ddZk3y8vyj7aSreVpjFS7hNFjVZmZtMeHo4IMTHCC5tGsAQCwtYD3" + + "hNJ71e60s5uG583ASE1oJNK/wC8ABKfLTTrDyT3f9zZJjcNzrfiQmuJKL/vAAWnypTq4SD4hfGWnoloE" + + "6V2I0CoIw8+K+5rCAFXU2QqJZa9pCFF2Mmonm/u+X+U/wDzVew/kBv+P44fI6rxub3plMTkMh1x2NSY+" + + "gwtbuCowlI1dktrbnoMclJi5smcTBLU0dXTwQGUU8kcyvKyO2WP3fvf3eOb93XkvnSRJdzkjZra4CqjS" + + "FBqaKVVopbQCyOqrXSQwLEE5P8AsX74btzVuo5Q5vkSTcXjZre4CqhkKDU0UirRS2kFkZQK6SGBYgmsL" + + "5zfCDafVe1n7e6igrMdt2irqWk3dtKeqqcjT4qLJTimo83hqqraetjohXSpDUQSyyBDKjRlUDKDb/zi/" + + "jNhO9/iHu7esGNhbsLoimqexdq5ZIr1pwNGIf79bfeVfW+PyOAjaq8f/K3QwNwAwMh/eQ5HtebPbrcdz" + + "SEfvjaVNxE9O7wxTx46/wALRgvT+NEPr0PPvBcm23M/IN/uKwj97bYpniamdAp4yV/hZBqp/Ein16Aj+" + + "X73Jkuse+8DtySskG0+zpodpZygZ/8AJxlKjyf3ZyqofStXSZVxBq/44VMo5JFtIn3y765udbIXvZh+F" + + "20otn/Gjq6iWExVGXwsu6K0soDy1G5a2oyyO5F9RWjqYkUnnQgH4t7ILptdxIfQ0/Z1IG0xCLb7YeZFf" + + "256ZqltUz/4HSP+QQB/vfsxO58t/ANs7lzx/wCXJt7OZj8j/i14urrvqOf90e2FGplX1I6XyNojkf0Un" + + "9g6wqLkD+pA/wBufdC38ubCjdPydjz+TBqqjb+1t3bnFRJYt/Fa2OLEiob/AGtxmpTf8E+zm+bTb0HmQ" + + "OgXsKeJuOtslVY/nw/y9OtXxBYfQso/2A5/4j3sCeyXob9NPsO+3Ov4e1ust69cz14xSbvwkuJXKGl+9" + + "/hsxnp6mCtFJ5qf7gwTU4OnWhP9R7vE/hyJJStD0nuoBc28sBamoUr6fPrnG/jdXtfSb2+l/wDY8+y/f" + + "FP4nP8AGOo3xKu/DvGLecGAiaAYE4RaGTAy5Z0mJOUyX3LTLlmUD0aQD9b8P3Nz9QE7KUr516Rbbtn7u" + + "Mx8fWHp5UpSvzPr1lnqPNp9GnTf+1qve3+0i309nF9pejXqP71YPkTtGLYnefau1aZBHR4ze2cbHxgEC" + + "LGZCrbKYyKx/wCOePrY1/obcexFA2uGNvMjqOL+IQ3lzGOAc0+w5H8unyFtUUbfkqL/AOuOD/vI9gz7d" + + "6SdZPfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvd" + + "e9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+691737" + + "37r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuv" + + "de9/wD/0w9/lXU+B2z8A/jhQxV2NppKzaeWzlXGaymjb7zO7t3DlahpEZ0ZZWaq9Vxe/vq97CJaWPtHy" + + "XEsqKWt3cio4vLIx/POeunfsglrZ+1nKEayIC0DOcji8sjH889XDfNyXKZn5SdvVL01ZMtPnaHGwP4JX" + + "H2+MwWKoYlVlVgUAg4t+PerZ/N53RV7n/mB97moqlqqbBTbJ29i2jlWaGPHUWwds1KRxNGWQJ91WysQP" + + "7TG/N/eB33ir+S+93+a9cmpIjBGuagKtvEaD82J+0nrCb38vZL33V5nLvqSIwxrmo0rBGcfmSftPV1/w" + + "JwsGF+K3WQihME2Tj3Hlq0PG0cj1dTujMws8isAxbw0yAE/2QLcW91qe4S6h3o4fs5X8vHKVuH+cXxYr" + + "MfIY6iTujZWNdhq9VHmsnHhsjGdDKdM2Pr5UP4s3Nxx7kr2cnltvdPkKSE0c7nCv5O2hh+asR1IXtPPJ" + + "b+5XJEkRox3GFfydtDftViOi9/LCipsh8a+7aeqUPEnXe4qxQbcVGOo2yFI/qBF46qlRh/iPe9R8ioYK" + + "n4+9609TGktNP052dDPFJ/m5IZNk5tJUe5HoZCQf8PfVbnNVfk/mtHAKHbboEHhQwPXrppzaqvypzMji" + + "qHb7kH7PBfrWc6lkki7V6zlhZkmj7B2ZJE6frWRNx41kZf9qDAW9/ON98X+uRPW3P72v+nqaKj6k6upI" + + "RaKm672VBGOAdMe28agJ0hRqIFzwOfYblzLIf6R/wAPUl2opbW4HDw1/wAA6YpP85J/wdv+hj767j/5k" + + "/23/wCIu7D/APePzPvcX9rF/ph/h69df7i3P/NNv+Onr0f+cj/4Ov8A0MPdO38raN27m35IEJSLrSq1u" + + "BcJ5NyYBE1H8am4Hs03D+yT/Tf5D0FeXP8Acub/AJp/5R04V3+bT/g//RJ93oeyfoY9Nnv3v3Xuve/e/" + + "de69797917r3us75AfL/qLqjtfc2x9y9B47eOaxX8Llrdxyw7X8mSavxNFXRM5rsLV1bGCGdYrvIT6OO" + + "Le18NtLJGrrNQHyz0H77dLW2uZIZLIO4pnGaj5jqZFTySIHWXSDfj1cWJH449gx/wAOC9C/94u4r/qTs" + + "z/7HPb30U3/ACkH+f8An6Sfvuy/6Nw/4z/m6yfaS/8AHb/eW/4r79/w4L0L/wB4u4r/AKk7M/8Asc9++" + + "im/5SD/AD/z9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/4cF6F/7xdxX/AFJ2Z/8AY5799FN/ykH+f+fr3" + + "77sv+jcP+M/5uvfaS/8dv8AeW/4r79/w4L0L/3i7iv+pOzP/sc9++im/wCUg/z/AM/Xv33Zf9G4f8Z/z" + + "de+0l/47f7y3/Fffv8AhwXoX/vF3Ff9Sdmf/Y5799FN/wApB/n/AJ+vfvuy/wCjcP8AjP8Am699pL/x2" + + "/3lv+K+/f8ADgvQv/eLuK/6k7M/+xz376Kb/lIP8/8AP17992X/AEbh/wAZ/wA3XvtJf+O3+8t/xX37/" + + "hwXoX/vF3Ff9Sdmf/Y5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/wDHb/eW/wCK+/f8OC9C/wDeLuK/6" + + "k7M/wDsc9++im/5SD/P/P17992X/RuH/Gf83XvtJf8Ajt/vLf8AFffv+HBehf8AvF3Ff9Sdmf8A2Oe/f" + + "RTf8pB/n/n69++7L/o3D/jP+br32kv/AB2/3lv+K+/f8OC9C/8AeLuK/wCpOzP/ALHPfvopv+Ug/wA/8" + + "/Xv33Zf9G4f8Z/zde+0l/47f7y3/Fffv+HBehf+8XcV/wBSdmf/AGOe/fRTf8pB/n/n69++7L/o3D/jP" + + "+br32kv/Hb/AHlv+K+/f8OC9C/94u4r/qTsz/7HPfvopv8AlIP8/wDP17992X/RuH/Gf83XvtJf+O3+"; + resourceString += "8t/xX37/AIcF6F/7xdxX/UnZn/2Oe/fRTf8AKQf5/wCfr377sv8Ao3D/AIz/AJuvfaS/8dv95b/ivv3/A" + + "A4L0L/3i7iv+pOzP/sc9++im/5SD/P/AD9e/fdl/wBG4f8AGf8AN177SX/jt/vLf8V9+/4cF6F/7xdxX" + + "/UnZn/2Oe/fRTf8pB/n/n69++7L/o3D/jP+br32kv8Ax2/3lv8Aivv3/DgvQv8A3i7iv+pOzP8A7HPfv" + + "opv+Ug/z/z9e/fdl/0bh/xn/N177SX/AI7f7y3/ABX37/hwXoX/ALxdxX/UnZn/ANjnv30U3/KQf5/5+" + + "vfvuy/6Nw/4z/m699pL/wAdv95b/ivv3/DgvQv/AHi7iv8AqTsz/wCxz376Kb/lIP8AP/P17992X/RuH" + + "/Gf83XvtJf+O3+8t/xX37/hwXoX/vF3Ff8AUnZn/wBjnv30U3/KQf5/5+vfvuy/6Nw/4z/m699pL/x2/" + + "wB5b/ivv3/DgvQv/eLuK/6k7M/+xz376Kb/AJSD/P8Az9e/fdl/0bh/xn/N177SX/jt/vLf8V9+/wCHB" + + "ehf+8XcV/1J2Z/9jnv30U3/ACkH+f8An69++7L/AKNw/wCM/wCbr32kv/Hb/eW/4r79/wAOC9C/94u4r" + + "/qTsz/7HPfvopv+Ug/z/wA/Xv33Zf8ARuH/ABn/ADde+0l/47f7y3/Fffv+HBehf+8XcV/1J2Z/9jnv3" + + "0U3/KQf5/5+vfvuy/6Nw/4z/m699pL/AMdv95b/AIr79/w4L0L/AN4u4r/qTsz/AOxz376Kb/lIP8/8/" + + "Xv33Zf9G4f8Z/zde+0l/wCO3+8t/wAV9+/4cF6F/wC8XcV/1J2Z/wDY5799FN/ykH+f+fr377sv+jcP+" + + "M/5uvfaS/8AHb/eW/4r79/w4L0L/wB4u4r/AKk7M/8Asc9++im/5SD/AD/z9e/fdl/0bh/xn/N177SX/" + + "jt/vLf8V9+/4cF6F/7xdxX/AFJ2Z/8AY5799FN/ykH+f+fr377sv+jcP+M/5uvfaS/8dv8AeW/4r79/w" + + "4L0L/3i7iv+pOzP/sc9++im/wCUg/z/AM/Xv33Zf9G4f8Z/zde+0l/47f7y3/Fffv8AhwXoX/vF3Ff9S" + + "dmf/Y5799FN/wApB/n/AJ+vfvuy/wCjcP8AjP8Am699pL/x2/3lv+K+/f8ADgvQv/eLuK/6k7M/+xz37" + + "6Kb/lIP8/8AP17992X/AEbh/wAZ/wA3XvtJf+O3+8t/xX37/hwXoX/vF3Ff9Sdmf/Y5799FN/ykH+f+f" + + "r377sv+jcP+M/5uvfaS/wDHb/eW/wCK+8LfzAOhzUxTf7LBiwscFREY/Fs2zNNJTOrkf3ctdBAR/wAhe" + + "/fRTf8AKQf5/wCfrX77sqg/u4f8Z/zdd/aS2t5vyP8AVf4/4/4+/wD/1NApMhXxIscdbVxxoLIiVMyIo" + + "uTZVVwqi5/HtwTTKAFlYAfM9OCWUAASMB9p638WpaV2LvTQOzG7M0MbMx+lySpJPuPJJJM7SSyPLI5u0" + + "kjs7sbAXZ2JYmw/PuhYsSzEk9UJLEljU9ZURI1CRqqIvCqihVH54UAAc++HvXWuuXu3X+TH8b909xfL7" + + "aHZS4uqXr3omWfem489JTv/AA5tx/Y1VJs/b1PUnTHJl6nK1K1vjUkpTUcjta6hsiPu0cl3/MnuNt29i" + + "Bv3PtJM0khHb4mkiGMHhrLnXTyVCT5Vnv7u/KF7zBz9YbwIG/dO2EzSOR2+JpIijB/jLHXTyVCT5VIZ/" + + "MN7ewnX/Qef2c1bCd19mxx7dxGLSVfuxifuYZ8/lpYRdkoIaGE0+sgBpqhFH9q2yr/NJ73w/Q/wq7kyF" + + "VkIKbcXYe3a3qnZtA0kYqspmd9Us+IrxSxMbyLitty1tbKbWWOnIvqZQc2/fjmu25T9seZZpJgt5eQta" + + "wr5s84KNQf0Iy7n5L6kdZh+9nM9vyx7c8wyvKBd3cJtoV82eYFGoP6MZdz8l9SOqefhR1lX9nfIvr6lg" + + "pZZcTtPLU++Nw1Sq3hosftmeKvpfNIOENdmEpqdB9S0t/oDbQ198nOuYPWzz72nfjlnItx9C9P5aJtQm" + + "682rTSNqLk1GNxFNjKrUxJJcVNG+q/N7+w7ONM0o/pHqR7BxJZWrD/fY/kKdMcw0yyD/a2/3k39q/tCh" + + "fJ9Zdk42IMZMj17vagjCWLl6zbGUpkCA8Fy0nF+L+6xmkkZ/pD/AA9O3A1W9wo4lG/wHrihs6H+jKf95" + + "Hul3+V5kkpu8d341pCr5brXKCOMEWlNBnMDWPcfU+NELC39PZruA/RU/wBL/Iegny61LyVfWM/yI6cq0" + + "XiU/wBHF/8AYgj3e37J+hl01+w67c7Cg6o6z3p2PUY/+Lx7QwzZQYr7sUByUn3NNSxUa1hgqRTtLJUj1" + + "eN/p9D7vGniSLGDSp6YupxbW805WugVpwr1zjTW6pe2o2v/AE9gR8VvlWvyb/vw8OxZdmw7MG3gZZM8M" + + "0MlLnjmLRppxWNFP9mmIu3LlvKOBb29cW30+jvrWvSLbdy/ePjUg0BKeda1r8h6dZZ4PDpu2rVf6C1rW" + + "/xP1v7N57TdGnUf3rOfNLNx575O9t1MUnlios/T4RTe+mTBYjHYmqj/AOndbSSD/C3s/tBpt4vs6j7dn" + + "17jdH0an7AB080wtBH/AK1/9uSf96PsrvtR0XdZ/fvfuvde9+9+69173737r3Xvfvfuvde9+9+691737" + + "37r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuv" + + "de9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173" + + "737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9//9X5/wD7917rf49it0RtbC757w6a2TuSnlq9u7x7W" + + "682tn6SGomo5qnC7h3dh8TlKeKrp2SellmoauRVkQh0J1Aggez/AJTsLbdeaeWtrvULWdzuFvFIASCUk" + + "mRGAIyCVJFRkcR0ecsWNtufMvL223iFrS4voInAJBKSSorAEZFVJyMjpD9nZvI7Z627C3HiJUgy239j7" + + "szeLnkijnjhyOKwNfX0UskEoaKZI6mBSUYFWAsePe6Ht7+Tl/L029Vw1q9Gz5qeCUyou4ew+yMrSMCVI" + + "imx0m648dURKV4EkTE3NyffTKz+7d7PWciyjlYyuDX9S4uXH2FfF0kfaD10StPu++1FpIsg5aMjA1/Un" + + "uGH2FfF0kfaOtd7K/zA/ldlYJKY9lRY+ORAjHFbT2hQzg2ILx1aYNquJ2v/AGXAFuAPZw8tgqf469P1m" + + "M+OPQOM3H/d6CSXb3Umw67aPXFJkql4mMkpymaeixEE0zQoJZnE1TISDpkI9yPcWicmcuSQcl8opN4IJ" + + "jtIGhtgxpk6n0oCaCrHUx9D1IE9snKWwSQ8ocrJN4QrHawNFbhjT+J6KCaCpNWPoegAocnL21v+nrO3e" + + "0q3EfxWREy2/Nz0ue3fPRwq4CJ9ljlqa+WOMSMY418cKc8qPek9/MO+SPyg7+7sq6b5LbXy/WFfsr7mh" + + "2t09VY/IYnGbKxlZNqeppYq9EmztZmBTq0uXOta1Y18JWBY405h+8fOvPXN3M8ic72EljNa1WKzKsiwq" + + "TxAbMjPQVlzroNNECgc4/dnnDnXmnmN05xspLKW2qsdoVZVhUniNWXL0zLnXQaaKABsafE/qHpfq3riC" + + "bp3NUG9KXcXhqc3v+Gqpa6s3FWU8dlimelZo8ZT0HlYR0A0mnLnyBpWd2IJ7iPqLejSe79v5bHYsW6ej" + + "KrZVRPryvXO4a2hELOGk/gWfkkzOLnsTqEYrZayEC1gsI9k1+mmbXTDD+fQ12CcSWZhJ7o2/kcj/L01V" + + "iaZdX4cA/7EcH/iPdhrxxzI8EwvDOjwzCwa8MymOUaTwbox49oej3BweHUT3ridb5yX4lfMAw7gWWlw2" + + "0t55nau4NN3L7Ozfmooskvp1TRR4utp69Lf5wIoH19nrj6m17eJFR9vQCt3O2brSTCK5U/6U4r+wg9PD" + + "jz0/H1ZQw/4MPxc/wCIt72NqWqpa6lpa+gqqeuoK6nhrKGupJUnpK2jqI1lp6qlnjJjmp54nDIykgg+y" + + "Igg0Iz0PAQQGU1U8D0zkW4PBHBB/Huvv+ZF2djdp9GjYCVkP94+ycvjYYaBZF+6i25g6yPKZTJvFfUtN" + + "JW01PSqxFnMr25Q2W2EZabXTtUfz6JN/uFis/Ar+pIR+wZJ/wAA6l0aFpdf9lAef8SLAf6/PtNfyv8AZ" + + "9Zh+oN6bvrKdoYt5bxip8VIy2NXjts0DUstQlwGMS5OvniB5UtGwHIPu24MDKijyH+Hpvl2IpayykfG+" + + "PsH+z1yrWvIq/6lef8AXJ/4oPdh+7dy43Zm1tx7tzEyQYrbOEyedyErsEC0uLo5qyYAn+26Q6VH1LEAc" + + "n2iVS7Ko4k9HksixRySue1QSfy6hqpZgo+rEAf7E296nG6M/Wbq3LuHc+RYvX7jzeVzta7HUWq8tXT19" + + "QSfyTLOfYkVQqqo4AU6jSRzJI8jfExJ/aa9PygKoUfRQAP9YC3u23+WF8NfiR8o9p9sZb5J9j5LYuV2l" + + "uLbWO2tT0HY+0NjrkMfk8bkqnIzSU25sTkZa9oKmljUPEyqmqxFyPeSPsX7a+3nPm38wXHO29PaXFvNG" + + "sQW5hg1KysWJEqMWoQMigHU/ey/t7yHzrYb7Pzhu7208E0axhbiKHUrKxY0kVi1CBkcOq//AJn/ACE74" + + "6VzuxqDp/aFHuahz2JzFXm5araOf3KaSqo6yjhpI0mw1dSR0okhmclXBLWuDx7tUxv8nv8Alg5nIUeJw" + + "/ee7srlcjUxUePxmN726wrshX1c7BIKWjo6XastTVVMzkBERWZibAe58g+7j7F3M0Vvbc1XMk7sAqrfW" + + "rMxPAKBESSfIAV6nCH7v/svcSxwW/M1xJO5AVVvbZmYngABESSfIDokNZ8/vmfj6Worq/rPAUNFSQvUV" + + "dZWdZb0pqWlgiUtJPUVE2cSGGGNRdmYhQPqfb/uf+Sf/Lr2StG28+zuztorkDMtA25+3dg4Ba5qcRmoW" + + "jOV2ZSCpMAlUuE1adQva49rL77sPs1tYjO577fW4eunxbu3j1U401witKitOFelV793H2k20Rncd6vbc" + + "PXT4l1AlacaaoRWlRWnTXhv5jXy03Gagbe2ZszPGkEZqhhthbpyhphKWERqBQ7inMIlKNp1W1WNvp7Kn" + + "8qf5Z38uzqj469wdj9Yd15zcHYGzdlZPN7Tw0/dXXGdhyOYpjEKamlw+L29T5DIo5c3ihkR2/BHsAc/e" + + "x/s1y/ybzHvWxczyzbvbWrPEhvbaQM4pQFFjDN9gIJ6A/O/s37S7Hylv+77LzHJLutvbM8SG8t3DOKUB" + + "RYwzfYCCehw6R+Y/wAtN89tbA2hvPrnGYrau4Nx0eNzuQi663fjJKTHzBzNMmQrcrNSUjKF/XIrKv5Hu" + + "oD+Xz0BsT5PfKzrrpfsmbcFPtDdVPuuTJTbXyNJis0j4bauYzNEaWtrcblqaJTWUKeQNAxaO4BUkMMc/" + + "Z/lDaueuf8AZuWd7aZduuFlLGJgj9kTutGZXA7lFe01GMceoB9qeVds50552jl3eGlG3ziUsY2Cv2RO4" + + "oSrAZUV7Tj06P18q+09zdMdH7t7E2hHipc/g5cGlHHmqSeuxzLkc5j8dUiempqyhmc/b1LaSJV0tYm4F" + + "jsW5r+Sb/Lt23VrQbi7M7PwFc8KVKUWa7c2Fi6t6eRnRJ1p67ZkEzQu8TAMBpJUi/B95l3X3YPZuykEV" + + "5vl/DKRXS93bqaetGhBpg56y3ufu4e0tnIIrveb2KUitHuoFNPWjQg0wc9VKY7+Y58s8xA1Vidm7LylM" + + "sjQtUY7Ye6K2BZVVWaJpqbcUsYkVXBK3uAR/X20f8M2/wAs7/n8++P/AEd3Wv8A9iXtP/wNnsh/0011/" + + "wBltt/1p6T/APA9+zf/AE0Vz/2WW/8A1q6n/wDDg/zH/wCfd7a/9FvvH/6/e6k/5pnwx+MnxMpel5vjv" + + "vTObuk3xUb5j3UMzvva+8vsUwEe1WxBp4dvYjFyY7ztl6jU02tZtACWKNfHr359tORvb2PlluTdzluTd" + + "GcS654ptPhiLRQRoumutsmtaY4HqCPe3285M5ETl1uUtxluDcmbxdc8cunR4WigjRdNdTca1pjgej2/C" + + "f5Ddy96z9iR9s7dxmBTbUW2nwf8P2xmtv8A3LZR82tf5ZMtX1qVfiFBFYR6THqJa+oWAT+Wj8Y+uPlv8" + + "naDp/tOo3PS7Uqtkbu3C820spRYjLivwcNFJRhauvxWYg+2YztrXw3bizC3IS9keRtl9w+eYeXN+eddv" + + "a1mkrCyo+pACuWRxTORT8+gt7OcmbRz5zpFsG9vMti1tLJWJgr6kApllcUznH59Cj8xe5t3dD9M1W/9k" + + "w4afOQbkwOKWPPUVRX0BpclJUJUEwUtdj5fMBENLeSw54PuP/Mo+NHXfxM+UOa6d6uqNzVW08ftDZ+ch" + + "m3Zk6PLZg1udx71VaHrKHF4inMCyKBGvhBUfUn3T3s5I2b2957ueW9hedtvS2hcGVld9Ui1bKqgp6dv5" + + "9V94eTdp5E51uOX9keZrFLeJwZWDPV1qcqqCnpjrL8Pu4t2969LY7sDesWGgztXns/jZI8FR1FBjxTYy" + + "rWCnK09VW18olKk6j5LE/geyDe4k6i3o0Xv3v3Xuve7hf5S/wAE+lPm3k+8KLuOt33Rx9d0GwqrAHZOe" + + "xmEaR9y1G7IskMj/EsBnPuQq4WDxaPFo9d9VxpyO+737U8se6E/NMXMkt2os0gMfgSKn9oZQ2rVG9fgW" + + "lKUzxrjID2J9suXPcibmWPmCS6UWiwFPBdU/tDKG1akevwClKUzxrggPzr+TXY3xwoutqnr+n2xUPuyq" + + "3RBlBuPGVuSCrh4sHJRmk+zyuM8JJyMmvVr1em1rG9tlZ/Jg/ltY6rqKDIdu9g0NdRzSU9XR1nc/XVLV" + + "0tRExSWCop59oJNBNG4IZWAYHgj3kLJ92f2UhkeKbmK8SVTQqb22BBHEEGGoI9D1O8n3d/Z+GR4pd/u1" + + "lU0IN3bggjiCDFUHoiVP/MP+X9XBFVUuwtqVNNURrLBUU/Xm7ZoJonAZJYpY8+0ckbqbhgSCPcb/hm3+" + + "Wd/z+ffH/o7utf/ALEvdP8AgbPZD/pprr/sttv+tPVP+B79m/8Aporn/sst/wDrV1m/4cH+Y/8Az7vbX" + + "/ot94//AF+967Xz06V6v+Pfyi7C6n6czVduHr3bdNtGXCZbJbgxO6KyqfM7PweayYlzOEo6DHVHhydfM" + + "gVIlaJVCNdlJOG3uzyxsXJ/Pe8cv8t3TzbPAsJR2kSUnXCjtV0CqaMxFABTgcjrEv3Q5c2XlTnXdti5e" + + "uWl2mFYijNIshOuJHaroFU0ZiMDHA5HVs3xg7F3p2t0rtTfPYOOpsTuvMTZ5MlQUeKrsLTwrj9wZPHUe" + + "jH5KoqquHXRUsbEs5Dk6lsCB7BzoTo3f/yQ7Z2b031pjVyG695ZIUdPJOZI8biMfBG9Vls/mqmOOVqTD" + + "YTHQyVFRIFZ9CaUV5GRGDfKXKu786cw7by1scOvcLl6Cvwooy8jnNERQWY0JoKAEkAh/lflrdeb992/l" + + "7Zodd9cPQV+FVGWdzmiIoLMeNBQAkgEQO0OytrdQ7F3B2DvGsNJg9vUZqJViCvWV9VK6wUGLx0LugnyG" + + "Sq5EiiUkLqa7FUDMNoXH/yyf5Znws69wu4/l3u/Hbsz1dGKWfcXYe683t7GZbLpD5q+l2R19tCvpsjX0" + + "0Cm4jZcpUxoAzSLqt7zsh9jvY/2y2e2vfcTcUuLtxQyXErxq70qwgt4WDMB6HxWAySK9ZpxezPs17dbT" + + "bXnPt+k90woZJ5XjVnpVhDBEwZgPQ+IwGSRXqluq+ZXzJ+RW68jiOhcDV4PF0zmeLE7TweNytZQUDSeO" + + "lm3HurP0s1JTTStxqU0ULsSApt7cdv/AAS/lBfNTAZrGfHLL4bF7nxdC8j5DrDe26qDdmDSQmOnyWR2H" + + "v2oqxV4v7oqrSzY0K/6FmRjf29Z+1H3dPc60uoOS7iKO+jWuq1nlWVK4DNBOTVa+ZjzwDAnp609sfYL3" + + "GtbmHlCeNL1F+K2mlWVK8GaGcmq18zHngGB6h5X5N/Pn465THVnblBka3C1tSqLSbz25hKrB5JkAeWjp" + + "Nz7XigMFb4bkJHWEr+po2At71xfmr8O+wPhT3JWdX7zqYs7iMhRLn9ib2oqWSkx279szTy06Vi00jzHH" + + "5WgqYmgrqQySGCZQVZ4pIpHwv8Ac7233f2x5kk2Lc3Etu6+JBOoIWaIkitM6XUgq6VOk8CVKscRPcb2/" + + "wB19ueYZNk3FxLAy64ZgKLLGSRWmdLKQVdanSeBKlSbdPjp8gNrfIvr6n3pt6F8ZX0tScXufblROk9Xg" + + "MzHGkrU7TIsYqqGqhcS004RRLGbFVdXRSh+466APQ9+71f5a/8AKKj+TO0aPvr5B5jObS6fr5ag7N2vg" + + "pIcbuTflLQzSwVeercvWQVCYDaa1UDxRNHE1VW6HdHgjWOSbKv2T+7uOeNuj5s5wuZbflxyfBijIWScK" + + "SDIzkHw4qggUBZ6EgooDNk17Pewg5ysI+aOa7iWDl9ifCjSiyThTQuXIOiKoIFBqehIKqAWrN+YPz0bp" + + "vPVHWHVVBjc7v6lSIbhzeTR6zEbYmqY0lgxlPQU8sTZTOmGRXcO4hptSqyyuWSOwjI9afyD9k5Y9c5bI" + + "9Ny5qjkmxdVVNv7s7cccNUkhgqFr97YzOZDB01VBMSGZ61PEykenSbTDNsn3StruP3LcTbablSVJ+oup" + + "ADwOqdXaMEHjVxT5U6lebZvuubbcfuiebbzcqSpPj3MlDwOqZXZAQeNXFPlToqdJvH+aJuSgG7qCj7BT" + + "HVCx1sMA2vszEPJAy+WI0u3KzG0uTlgkjAKhadtYI+txcCPmP8AyXOq8v1XkO9PgxuGqysNHhZt0QdcD" + + "cY3ztzee36eOWpqZeud2NUVuSfKx0sZaCmqamuStZDGkschVWCfuT92bYLjYJuavaq8aRViMotvE8eOa" + + "MAkm3lqza6fCrM4cjSGDUBC/uD93XY59jl5m9s7tnVYzILfxPGjmjFSfp5altVPhVmcPSgYGgInfH3+Y" + + "lvag3vSdZ/JfFQUUlRkY8LJu84g7ay23srK8cMKbuwQip6NaFpmAlmhhpmpg2tkdASus0QVJVgVZSQQQ" + + "QQQbEEHkEH3g/wwePWG3DB49XHgggEEEEXBHIIP0IP5B92w/wAp/wCFHT3zW7C7Z2t3BWb1o8dsnZuEz" + + "+GfZWbx2FqXrchm3x1QtdJkcHnEng8ABVVWMhuST9PeQP3fvbDlz3O3jmGw5jkulhtbZJE8F1Q6mfSdW" + + "pHqKcKAdTp7F+3HL/uNuu+2XMElysNtbo6eC6oas+k11I9RThw6Iz85vkZv/wCOe1Ni5vYFPtyoq9x7h" + + "yOLyC7jx1ZkYVpqXGrVxGmSkyeNaKXyk3JLAj8D2cX+ZD/Kd6C+M/xfy3d/RWW7KymZ2nvPbdFuWHde5" + + "cNn8WNrZatrNu5BoabGbXw1RDkaPcdXQAyGUpHEJQyEkMske9P3feUeR+RbjmjlS4vpLm3uY1lEsqSL4" + + "TsY2oFiQhlkMea0A1VHmJB93/Yvlbk3kufmTlme8e4guIxIJZEdfDYmNqBY0IYSFM1oBqqPMF++Ifzn7" + + "S7j7ooet+zKDZ9Djs5t3MVOHkweHyOLrTmqGnp8tSiSatzWQikpKjEQVVlCBmcoQ3BDa7HvDbrErq2j2" + + "NPxx6lqe9++eounab7lR2Jv/bW2a6ekKiposNXZKAZ7JRM8cyIcXhEqKgsUcKIiSptYibkvl5+bObOXe" + + "W01UvLyOJiOKozDxGGD8Kam4Hhw6EXKOwvzPzRsHL6V/wAbuo42I4hGYa2HH4U1NwPDh0HXbm+4esesN" + + "+9gTeFjtPa2YzNNFPcxVOQpqOT+F0bgPGWFbkWiiADKSXtcfX3tU1P8in4MimzZpNx95T1eEilWsgXf+" + + "12alqhjoslDBUKNgExvJSVMUgB+qSA/n3ny/wB1P2rCXRjvd1MkQNR9RFg6QwB/xfzBB+w9ZwP92X200" + + "XJjvNzLxg1Hjx4OkMAf0PQg/YeqRIf5mfyWM2NE+I60igyToaeVtrZoCaA1b0cksR/vT6lSeF0v/qlI9" + + "6e1ZEsFZVQJfRDUzxJqN20xysi6iAATYc++ccihJJFHAMR/PrACRQruo4AkdX9U8jS08ErW1SQxSNbga" + + "nRWNhzYXPuN7p1TrN7/AP/W+f8A+/de63+Pb9tXc2a2Vufbm8tt1hx24tpZ7D7mwGQEUM5oc1gchT5XF" + + "VggqI5aeY0tdSxvokVkbTZgRce1dhfXW2X1luVlJovLeZJY2oDpeNg6GhqDRgDQgj16VWN5c7de2e4Wc" + + "mi7glSRGoDpdGDKaGoNGANCKevTXm8Njtx4XL7fzFP93ic7i8hhspSl5IhU47KUktFW05kiZJY/NTTsu" + + "pWDC9wQfdnOD/nSfzA8NJE03am3c9FG5d6fOdcbJmjnDOHMcstBh8dWBOLDRKjAfQ+5ytfvM+79sylt/" + + "hlUHg9tAQftKop/YR1M9t94r3VtypbfIpVB4Pbwmv2lUU/sI6Jnkv5dvxWyCOseyMtjHdQqzY3d2443i" + + "IXTrRKrIVcBb8+pGBP493B/An+ddRd87/250v8AIzaW3tg703fWU+F2bvvaMtbBsvN7hqnEOPwGbxGZr" + + "sjX7eyGYmKw0s6VdTTzVTrEUh1qfeR3tL952Lmzd7LlnnPbobTc7lgkM8JYQvIcLG6OzNGzmgVg7KzkK" + + "QtR1P8A7XfeNj5o3W05d5usIrXcbhgkU8RIheQ4VHV2Zo2c4VgzKWIBC1HRA/lB/LnqOsNrZfsTqTPZX" + + "dG3cBTy5HcG2M8lNLuLG4mBTJV5THV+PpqSlytLj4wZJ4mghljgUuGk0ke7Bf5g/wAItk/NDpTN4KfF0" + + "FJ25tbF1+U6m3qIoosljc9BG1VHtyurdPkm2vuaWIU1XA5ZImkWoRRLEp9y/wC8HtdtfuZyxdWrwIvMU" + + "EbNaTUAZZAK+GzcTFKRpdTgVDgalHUq+63tttvuJy5c2zQKu/QIzWs1AGVwK+Gx845CNLA4FQ47lHRVP" + + "in8kNx/HfsbG5OKtqp9h5utpaLfW3S7yUlZjJXEL5empr6I83hkczQSKAzhTEx0Ow96FVdQ1mMrqzG5G" + + "mmoshjqqooa6jqEaKopKykmenqaaeJgGjmgmjZWU8hgR75MyxSQSywTIVmRirA4IINCCPUHB65eyxSQS" + + "yQzIVlRirA4IINCD8wcHraApqmnraanrKSaOopauCKppqiFg8U9PPGssM0TrcPHLG4ZSOCD7NJ8OO9V6" + + "J7ixeVy1S8Oy90xptjeIv8AtUtBVzxtRZtk5F8HXhZXIBf7YzKvLWKK6h8aIgfGMjpftV59HdKzH9JsN" + + "9nr+R/lXr1RF5YyB+pfUv8Arj8f7Ee9lKCeGphhqaaaKop6iKOeCeCRJYZ4ZUEkU0MsZZJIpEYMrKSCD" + + "ceyHofgggEHHTN7Ip8wPhlSfIP7bemzq+g2/wBnYugWgdsgGiw27cdTg/Z0eUqIIpZqHJUIJSCq0SKYj" + + "45FsEdFlrdGDscVj/wdE+67UL6ksRC3AFM8GHz+Y8j1Kp6nxXVgShN+Pqp/Nv63917YLZ/8xHo6ifaW0" + + "6DtHH4OKV4qWkwJoN24KPUXu+Idf4zTUMDsS37PiBY3Iufa1msZjqYrX9h6Iki32zXwolkCfKjD8uPUs" + + "tSSHUxS/wDU3U/7H6XPtQbC+EXyQ713tHu3v6vzm2cTNPA+azO7cmmR3lk6GJvJ/DsFivNVNRKyEpG84" + + "gpqfVdUe2g6e7ghTTCAT8uH59OQbRf3s3i3zMq+ZY1Y/ID/AD0A66aphiXTEAx/AUWXn8k+7udqbVwGx" + + "9tYPaG1sdFitvbcx1PisTQREsIKSnWymSVv3KipmctJLK13lldnY3J9lLMzsWY1Y9C+KNIY0ijWkaigH" + + "TazFmLMbkm5Pus3+ZP37T4PbFJ0Vt6sV83ugUmX3q0EgLY3blNMtTjMVNoe8dVm66FZmRuRTQi40zKfa" + + "+whqxmYYHD7eg9v96EjFmh72y3yHkPz/wAH29TKOK7GU/ReF/xJ+p/2A90mezboI9OXv3v3Xuveze/AA" + + "A/N34pggEf6d+tjYi/K7moCDz+QRcf4+5F9os+6HIFf+jtbf9XV6H3tZ/08jkf/AKWlv/1cXoBPlOSPj" + + "f3jYkf8Yw3gOP6HDVQI/wBiD7vA/wCFEwH8I+LTWGoZLtQA2FwDS7IJAP1sSB/tveUn3yR/i3IZ89d1/" + + "gg6yT+9p/Ycknz13P8Agh6rb/lME/f91i5saTZJI/BIm3HY2/qLn/b+9YL3gt1hd1c/7tB/k3/9vB+lP" + + "+oTsD/33+5Pc6/dt/6fByx/pbj/ALR5Opq+73/09flz/Sz/APViTol38wT/ALJT7G/5b7V/96rD+x+/n" + + "6qo+Z20GAAZuhNnAtYXIXeHYGkE/Ugajb/X9i7724H+uXtxpn90Q/8AV646FP3pQP8AXD280z+64v8Aq" + + "7P0Fv8AK4J/2XjPC5sO0dwEC/AJwG1bkD8E290ge8XOsbOrI/fvfuvde93EfyMf+y8cP/4izsb/ANxcb" + + "7yP+6t/09i2/wCeC5/wL1kD92f/AKefb/8APDcf4F6r/wD5lv8A2TFkP/D22j/1vrPcP+eJ/wBl8bp/8" + + "Rx1t/7pZPbf3pf+ntX/APzxW3/HD0395X/p6N7/AM8dv/xw9SP5bH/ZLuE/8O7eH/uxT3UH7x06gLo/H" + + "v3v3Xuve9lP/hOv/wAX/wCVf/an6i/9zewvebX3Nf8Acvn7/mnaf8euOsw/ulf7l88f807X/DP1T3/No" + + "/4tXSH/AGsN+f8AuNtX3Sx86VVfmX8oAoCj/Tl2QbAAC7boyLMbD8sxJP8AU+8ZPdUAe5XPVB/y1bn/A" + + "Kut1jp7mAD3C50p/wBHO4/6uN1Yp8ZyT8e+lySSf9Gu0Ryb8DDUgA/1gBYeyp+wB0B+hw9+9+69173su" + + "/8ACenp+gqK/v3vivpo5shjYtvdW7aqHjVmpI8gH3PuxoXYEpLULS4pNS6SEDryHI95u/c85cheXm7my" + + "VAZkEdrGfTV+rLT5mkQ+yo8+sx/uobBE8vNPM8qAyoI7aM+mr9SWn20iH2VHn1Tp/Nd39VRUvVvWNLM8" + + "dLWPlt65iJXIE7UunC4MSAEakiaataxuC2k8FR7qo/mgfIHN/IL5l9v5KqylRWbW683NlurNh0Jnd6DH" + + "4DZGRqcPVVFBEZHhQZ7OU9VXu6gGQ1AvwqgQF76833XOHuVzHPJOWsLOd7WBa9qxwMUJUcP1HDSE+eoe" + + "g6g73p5quea/cPf5nmLWVpM1tAte1UhYoSo4d7hnJ89Xy6PB8L+q8b1V8e9g0cFFFT5vdmGod7bnqvGq" + + "1VXldx0kOQhiqpAiyMcXjZYKVVJIQRG31NytdA90bu+PXcOwO4Nk5Ksx2b2TuLH5R1o5miGVxCzombwF" + + "aoISoxudxTS0s8T3V45T+bEAPlHmbceTuZNo5j2udkurWZWwaa0r3xt6rIlVYHBB6BPKvMV/wAp8wbVz" + + "BtszJc20ytg01JXvQ+qutVYHBB6GvtPrvA9r9f7p2BuOjp6vHbjxNXRKaiMP9jXtEzY3KU5sWiq8ZXBJ" + + "onX1Kyf0uPezL/Puw+0N7fGXpns3EVuIyOa2v2hTY2lqaOuoairTbO+tpZerr4ikUzVBhlyW3ce17FVK" + + "821e83/AL2ttt26cj8tb5byxvdQX4UEMpPhTxOWGDWhaOM/Knz6zJ+9Fb7fuXJnLu8wSRvcw3oUEEE+H" + + "NExYYNaFo4z8vz6pw/leZDP7c7l7C2ZX09fSY7NbLmrJ4aimqYYGzG2c7QU9LIGkjEQkSjy1WtrgkH/A" + + "A96tXXmz67sPf8AsbYGM4yW+N4bZ2fjzYkCt3LmqLC0pIAJIE9avvA7Zttl3jd9q2iD+3urmKFf9NK6o" + + "P5t1hNtO3y7tuu2bVD/AG1zcRxL9sjhB/M9XYbsz9NtTa25d01v/APbWAzGfqxwL02Hx1TkZxc8XMVOf" + + "e3L/OH7Qm+LHwY2N0f1VUS7Xh37V4HqGikxjiiq6HrfaO3vuM5SUslOY3h/ilPQUdDUsv66erlQ/wCcJ" + + "HQ/7x++tyF7VbVytsDmBbto7NdPaVtoY6uBSlNQVEanFXYefWen3gN6bkj2z2zlrY3MK3TJajTgi3ijq" + + "4FKU1BURqcVZh59UNfADZcfdvyX3L2TviFM1Jtenym/qha1fuIKnd+ey3ixs86S61k+ylqqiphDfpmgj" + + "Yfpt706ffN7rn31sCe9lv8A4T6995+bNdxfGzMZaas29BgaftbZWNqppJVw1VT5ai29vKHGq7kQUeUbM" + + "46eSJQEE0bSABpHLZufdA5tu2uuZOSbm4LWYhF3CpNdBDrHMF9A2uNiBjUCeLGuY33VOabprnmDk+4nL" + + "WgiFzCpNdBDCOUL6BtcZI4VBPEmtOv81Xq/Fx47r/uDH0MdPlZMpNsfcdZDGqHIQy0NRldvSVjKoMs9E" + + "uPq40djqMbqvIRQKjf5lfT9F0h82+/Nl4ihXH7fq91x7027SxRrFTQYnfuMod3LS0cS2EdHjq3Lz0sa2" + + "Flg/p7x497eXIuVvdDm3bLeLRZtceNGBgBJ1WagHkFZ2Qf6XqBfeLl+Plr3I5o263j0WjT+NGBgBZ1Et" + + "B8lLFR/pej5fDzf1R2T8cOrtxV9SavKwYNtu5aZ2LzSV216ypwJnqHPLVFXTUEc7n8mX3Zp/wAJ5P8Am" + + "c3yI/8AEY7X/wDeqk9zj9zr/lZecv8Anhi/6unqZvunf8rDzb/zxRf9XT0Tb+bB/wAy86n/APDzzX/uj" + + "X3a3Cf9md6c/mb/ABprZDX5/aXafbG39v0zyB3ig3TtHFb46/mJcHxpDvaGrjQAWCUwsb/Sfl/5HXLfv" + + "lyRK2u7t7+7jjHoJYUntz8qThwPkvU4r/yNOXvebk6Q6rq3vbqOMegkiWaA/KkwYD5L0R1x/oY7B+Gnc" + + "VMgpcXndk7GyuVmRCqvLhM9Xba3VGNNtbybckgZj+WmN+PrpEujRsyOrI6MyOjqVZGUkMrKQCrKRYg8g" + + "++XhBBIIoR1zdIIJBGetkJWVlDKQysAyspBVlIuCCOCCPd0/wDIm6j/AL+fMes7Bq6ZZcZ0z17n9xRTS" + + "Rl403Fujx7Pw8KvYiOobHZTIzJe1xTt7ya+6ly7+9vcmTeJErBtlnJIDT/RJf0UH26WkI/0p6yL+7JsP" + + "709wZN1kSsO3WjyV/4ZJ+kg+3S0hH+lPVdf8zTfn92Pj7BtWCYpWdh7rxeJeNXCs2IwuvcGQkK/V4lq6" + + "Kkjb/GUe9iX4bdsjuk/ObedPUmrxVD8s+w9ibfm1Bo3wfXnU/VW0KSaAqSpp6yoxc1RGR9VmB+p95k+2" + + "3MA5m/11NzR9VuvMNxBGfLRb2lrCCPkSrMPkestPb3ff6x/65e4o+qBd9nhjP8AQgtbaIEfIlSw+3qpn" + + "5B7FPXX+y0belhEFdU9F7S3NlY7EOuS3Zvre+fnjlBAImp4a6OJgfo0dveh9k/+LlkP+o2r/wCt8nvlB" + + "P8A203+mP8Ah65hy/2sv+mP+HrZyo/+AdJ/1DQf9al9wvbXTfUn3//X0tovgR81J44pYfi33hLFOkcsM" + + "ide7hKSRyqrxurCisVdGBB/ofchr7S+5rhWXkPdCpFR/i8ma8Pw9Dxfa73GYKy8k7kQRUfoSefDy63gX" + + "+UPx1iZ0k7r62R42dJEbdmJDI8bFXVlNRcMrAgj2VTI4+uxGQrsVlKSegyWMrKrH5Ghqo2hqqKuop3pq" + + "ukqYXAeKemqImR1IBVlIPsATQy280tvPGUnjYqykUKspoQR5EEUI6A80UsEssE0ZSZGKspFCGBoQR5EH" + + "BHQ30lXTV9LTV1FPFVUdZTw1dJUwOJIaimqI1mgnhkUlXimicMpHBBv7h+2+m+pHuXQV9Zi6+iyePqJK" + + "Svx1XTV9DVQsUmpqykmSopqiJxyskM0asp/BHtyGWSCWKeFysyMGUjiCDUEfMHPTkUskEsc0TlZUYMCO" + + "IINQR9h6wVVLT1tNU0dXEk9LVwTUtTBIA0c1PPG0U0Uinhkkjcgj8g+/o/9Lbxl7E6d6p3/ADktUb363" + + "2Ru2oJUoTUbi21jMtOSpAK/u1Z4sPfaXlncm3nlvl/d3+O6soJT9skSuf5nrrzy5uDbty/se6t8dzZwy" + + "n7ZI1Y/zPWof2Jt+PafYG+NrRACLbm79yYKIA6gIsTmKygj55v6IB70M/n/ALbx20vmt8nsFiYo6fH0/" + + "cm86umgiUpHAuXykuYeFFJb0xS17Lf82v75Oe7tlDt/udz1aW6gQjcpiAOA1sXp+RbrmD7qWcVh7jc6W" + + "0CgRDcJiAPLU2un5autnv4s5erzvxz6Yydc7S1cvX23YJpXbU8poKJMesjGw5kSlB/wv7KD7jnoAdD57" + + "tZ+FPzfpNnUWN6i7jyTRbaphHR7N3pVM8i4GIsEhwOfk9TjCxXtTVR/4CKPHJ+zpaIuu7QuTLEO7zHr8" + + "x8+hLtG8CILa3Tfpj4W9Pkfl6Hy+zhBqabUTJGPUeWX+v8AiP8AH3dJS1dLXU1PW0NTT1lHVQx1FLV0s" + + "0dRTVMEqh4p6eeFnimhlRgVZSVYG4Psp4YPHoWAhgCDUHpt9yQSPoSP9b37rfXvfXv3Xuveyb/KH5g7J" + + "6AxNXhsbUUe5u0KumdcXtinmWaHDPLGfDlN0yQvehpIywdKa4qKngKFQmVVVvavMQTiP1/zdFW47pDYq" + + "UUhrkjA9PmfT7OJ6kwU7Sm5uqfk/wBf8F/r714d07oz+9dxZjdm6MnUZjcGerpsjlcjVMGmqaqdrsbKF" + + "SKGNQEjjQLHFGqooCqADtVCKFUUUdAWSR5pHlkarsak9OyqFAVRYDgAe2D3bqnXfv3v3Xuvezffy/8A/" + + "st34p/+J363/wDelofci+0X/T0eQP8ApbW3/Vxeh97V/wDTyOR/+lnb/wDVxegD+U//AGTf3h/4jHd//" + + "umqvd4H/CiX/iz/ABb/AO1n2n/7i7J95SffJ/3G5D/091/gh6yT+9p/uPyT/p7n/BD1W3/KZ/4uHdf/A" + + "FB7K/63bi96wPvBbrC7q6D3aD/Jv/7eD9Kf9QnYH/vv9ye51+7b/wBPg5Y/0tx/2jydTV93v/p6/Ln+l" + + "n/6sSdEu/mCf9kp9jf8t9q/+9Vh/dvP81X+Wx8m/l58jdv9mdPUGyKna2N6r27tGol3Fu6PB1/8Zxu4d" + + "2ZKrRaJ6Co1Uy0uXgKya/UxYWGnnIr399k+efcXnSz3zlyK1NglhHCTJNobWskrHt0nFHWhrnPp1Pnvh" + + "7Pc58/c3Wm88vxWxsUsY4iZJdDa1klY40nFHXNfX06IT8IPmD010L1Hldm7/qtyQ5us3vls9EmJwL5Kl" + + "/h9ZisFRwMalaqK0xmoJNSaeAAbm/FZ/wDwxh88P+dT1V/6Man/APrV7hD/AIFb3Y/5R9v/AOygf9AdQ" + + "3/wM/uf/vix/wCygf8AQPRxv+HLvjF/yv73/wDQRl/+rfZAvlB8Wu1fiJ2LQ9XdwwYCn3VkNq4zeNPHt" + + "zMpnaD+DZbIZjGUjSViQU4Sq+7wc4aMrcKFNyGHuIueuQ9/9u95i2HmNYRfvbrMPDfWuh2dRmgzVGqKe" + + "nr1FfOvJO+cg7vFsvMCxC+eBZR4b610MzqM0Gao2Ps9ejS9L92bH762lU712BLlJcJS5ys2/K2XxzYyp" + + "/iFDSUFbOEp2ll1QeDJRWe/JuPx7P3/ACMf+y8cP/4izsb/ANxcb7lz7q3/AE9i2/54Ln/AvUp/dn/6e" + + "fb/APPDcf4F6K3/ADLf+yYsh/4e20f+t9Z7h/zxP+y+N0/+I462/wDdLJ7b+9L/ANPav/8Anitv+OHpv" + + "7yv/T0b3/njt/8Ajh6kfy2P+yXcJ/4d28P/AHYp7qD946dQF0fj3737r3Xveyn/AMJ1/wDi/wDyr/7U/" + + "UX/ALm9he82vua/7l8/f807T/j1x1mH90r/AHL54/5p2v8Ahn6p7/m0f8WrpD/tYb8/9xtq+ws+T/8AJ" + + "x+aHbHyK7t7M2njOtX2xvzs7eO6sA9fv2GjrXxGazdXXUD1dI2MZqaoammUvGSdDXFza/sg56+7b7mcw" + + "c5c0b5t8FibG7vppY9U4DaHcstRpwaHI8uiTnT7vnuJvvNvMm82MNn9FdXssqapwDpdyy1GnBocjy6W/" + + "TH8wT477G6l642bna3eC5nbGzdv4TKLS7XkqKZa/HY6CmqlgnWsAmhE0Z0tYahzYfT2BQ/kX/PC/wDxa" + + "uqh/iexoLD/AB4xRPsKf8Cr7sf742//ALKB/wBAdBn/AIGf3P8A98WP/ZQP+gehM/4cu+MX/K9vf/0Ep" + + "f8A6t91P772Zmuud7bu2BuRaVNw7J3JmtqZxKKoWro1y2AyNRi8gtLVKqrU04qqVtEgADrY/n3j/u22X" + + "Wy7puO0XoX6y1neJ9JquuNirUPmKg0Pn1Be6bdc7RuV/tV4F+rtpniehqNSMVah8xUGh8+jy7Y3Djt27" + + "cwO6cQZ2xW48Pjs5jWqYTT1BocpSRVtKZ4GLGGUwTLqUk6Tx728P5C2Jixfwo3RmRFH58z3fvaqd1e7T" + + "QY3bGyqGBJfQPGySwS2Hq9JB/NvfRP7plusHthfXOka5d0nP2hYoFFfzB6z3+69AIfbi9uNI1SblMftC" + + "xwqK/mD1Qp/M/rnrfkbhcf5G8WP6325AqsvpjlrM1uOpkZPV6gySpf6cgj/AB96iG/a+fKb53nk6p2kq" + + "sjuzcVfUyOdTPPV5isqJnZrLqZpJCSbC5987N2lefddznkNXe4kY/aXJPWBG6StPue4zOau88jH7S5J6" + + "vr2vSxUW2tu0UChYaTBYmlhVRZVip6CnijUC5sAiDj2k/Zf0h6fPfvfuvde9nO/l2YaHPfOP4uY6eHzx" + + "DuDauRaMiMj/cNVNmVktKCn7LUAf+vp45t7kz2atlu/dPkSFlqv7yib/eDr8/TTXqRPaW3W69y+SomWo" + + "/eETf7wdf8ALTXovHyzyEmL+NfdVXFJ4n/uBnKRX9Q/4uEIx5X0Wb9wVWn+nPPHu5b/AIUU5qT7r4o7e" + + "SRhD4O4c1UwlToaTydcUNFIH1WLKv3AItwCOefeSn3yrltft/Zhu2l45Hz/AMWVT/x7rIX721ydfI1oD" + + "20u3I/7J1H/AD91Xv8Aylscnh7yyzIuvy9f46GTUNQTRu+pqUK2uFJ8RBvzY+9Zv3g/1ht1cf7uH/kZZ" + + "SbH/PLC0kevRnOrex8XUaSoBhho8dm11hlJZPPh04Fjqtza4OR/3V52h92LWNeEthcqfsAV/wDCg6yB+" + + "7RO0XufbxrwlsbhT9gCv/hQdEA/mW0UdV8YcjO+nVjd67RrYrgk+SSoq8cdNiAG8WQb63Fr/mx9vv8AP" + + "hxC4/5vUeRVY1Gd6a2LWOVJLvNSZHc+LLyjSAG8NFGo5PCj2r+9hbCH3RjmAH6u2wN+YaVc/ko6U/eeg" + + "EXuTHKKfq7dCfzDSLn8gOmz+WLXmq+N1RSMXJxnYW5qdQw9Kxz0mGrQqG5uPJUsT9OT7Hn/AITyf8zm+" + + "RH/AIjHa/8A71UnsWfc6/5WXnL/AJ4Yv+rp6FH3Tv8AlYebf+eKL/q6egw/mwf8y86n/wDDzzX/ALo19" + + "m0+GfbA2z/OG+dfUlbUGOh7TmyeVxsLyHRPuXYDYqthgSE+kySbczOSkLfXTT29yD7acwCx+8d7rcvSv" + + "SK/LOo9ZLfQwFPUxvIfsXode3m+/R/eA9zdhkekV8WZR6yQaSBT/mm8h/2vQFfIXYxzPwA+M2+6eLVU7" + + "JSjoayRUGqPD7pFdTSSNJ9QiZfH0aAf1l967nzm6obpL5d/ILrdYDTUOG7Kz2QwkRUKBtvdEq7r23pAA" + + "W38CzdOOOAQR+PeG/upy+eV/cTm/ZQmmKK9kZB/wuU+LH/1TdesTPcvYjy3z7zXs4SkUd47IP8Ahch8W" + + "P8A4w69Wy/GnfI7H6F6q3eZRNU5DZ+Lpck97k5jCxnB5i9+b/xPHSnnkjn8+71f5RdHT/G7+Xz8rPlrl" + + "YY6Wtyg3ZX4OpkjVZa3HdV7XrIMDBDIxtIldvfN1dMi8XmS1vpfKz7u8aclez/P/uFcKFlk8VkPmy2sR" + + "EYHrqnd1A9R1k17Cxpyf7U8889zqFkfxWQ+bLbRkIB9szso+Y6rN+edRL298q+j+iaGR56eiOCpslCrk" + + "x01XvbNwSZSWRALo1NtvGwTMebRtf2O/wDIirKnI/C/uzIVkrT1ld8hOwayqnc3eapqesesZp5XP5aSV" + + "yT/AIn2LPuoyPN7ZczzSNWR94uCT6k2tqSf29Cf7scjy+3XMcsjVkbdpyT6k29uSf29Bj/M2p4aT5E9c" + + "0tOixQU3VW1KeCNeFjhh3nvKONFH4VEUAe9RLJ/8XLIf9RtX/1vk987Z/7ab/TH/D1gTL/ay/6Y/wCHq" + + "+ij/wCAdJ/1DQf9al9wvbXTfUn3/9AzXVm4qfd/WHXG7KSRJqXc+w9obhppYxaOWnzW38dkoZIxqeyPH" + + "Ugj1Hg/U++1+w3ibjsWy7hGwMc9pDICOBDxqw/w9dg9ku0v9l2i+jIMc1rFID8njVh/h6PvvbEy4Hee7" + + "sHOjJPhdz5/EzI5u6S47K1dHIjGy3ZXhIPA59/Pa+UG18rsr5I99bUzkLwZTB9wdjUNUjro1lN2ZVoqh" + + "BqcGGqgdZY2BIaNwQSDf3x756sLja+debdvulpPFuVwp/5yvQ/YRQj5HrlFzpZT7dzhzRY3K0ni3C4U/" + + "wDOVqH7CKEfI9bWvS+aodx9Q9X5zGyLLRZLYG0qmBlbVpDYKhWSJjZSJIJVZHBAIZSCAR7Ar2FOgz0Jn" + + "vkiPI6RxozyOyoiIpZ3diFVEVQWZmY2AHJPvYBJAAqT1sAkgAVJ66ZlRWZmCqoLMzEBVUC5ZibAAAcn3" + + "9G7457ZyOy/j70Zs/LoY8ttbqDrfb+TjKGNo8hh9nYegrY2jYlkMdTAykE3FvfZ7kyxm2zk/lXbrkUuI" + + "Nuto28qMkKKw/aD1105Rsptu5U5Z2+4FJ4LC3Rv9MkSKf5jrUa7bzFJuLtXsvP0DB6HNb+3flaJwwcPS" + + "V+4MhVU7hgAGDwyg3H9feh386N20e+fmN8mN0Y+ZaigyPc+/I6KZAAktJjc7V4qmdSFUMGhoV9VvV9eb" + + "398n/dXcI919yeeL+FqxPuc4U+oVyg/kvXMP3Mv49z9wecr2JqxPuM9D6hXKj+S9bO3xowVRtr4+9OYW" + + "qjaKqpOvNsPUxsTqSesxkFdMpuSQRJUnj8fTj2VP2AOgN0OHv3v3Xuvex96m+TvdfSyx0mx96VsOER2c" + + "7Zy8cea262tg8gixteJRQGVhdnpWgkJJ9XJ9sy28Uvxpn18+lttuN3aYhlOj0OR+w8Pyp1ieCKTllF/9" + + "UOD/tx9fZuqH+aP3BBSxRV2wuvK6qVbS1SJuGjWVv8AVCnXMzLH/rBj7Snboq4dqfl0aDmO6A7oIyfz/" + + "wA/Uf7GP/VP/wAm/wDFPYR9ifzAfkVv2lqMbR53F7ExlQrxyxbLx7UOQkicWKNm6+oyOVgaxI1U8lOSP" + + "r7dSygQgkEn59JZ97v5gVDhF/ojP7TU/sp1kSkhTmxY/wC1H/iBYeyV1NTU1tRPV1lRPV1dTLJPU1VTL" + + "JPUVE8rF5Zp5pWeSWWRySzMSSTc+1fDA6KSSSSTUnqT7we/da69797917r3v3v3Xuvezffy/wD/ALLd+" + + "Kf/AInfrf8A96Wh9yL7Rf8AT0eQP+ltbf8AVxeh97V/9PI5H/6Wdv8A9XF6AP5T/wDZN/eH/iMd3/8Au" + + "mqvd4H/AAol/wCLP8W/+1n2n/7i7J95SffJ/wBxuQ/9Pdf4Iesk/vaf7j8k/wCnuf8ABD1W3/KZ/wCLh" + + "3X/ANQeyv8ArduL3rA+8FusLuroPdoP8m//ALeD9Kf9QnYH/vv9ye51+7b/ANPg5Y/0tx/2jydTV93v/" + + "p6/Ln+ln/6sSdEu/mCf9kp9jf8ALfav/vVYf3ad/Nx/mC/LL4s/JjbnXfR/ZdJtDaGQ6k23uiqxc2xtg" + + "7keTOZDce78fV1n3+6Ns5nIIstJioFESyiJdFwt2YmevvD+7/uDyFzxZbNytvi223Pt0cpUwW8ne0kyk" + + "6pYnbIRRStMcMnqbffr3V565I5ys9p5a3lbewewjkKmGCTvaSVSdUkbtkKuK0xwz0SX4HfFXovuzpzL7" + + "s7J2dPn89S77y+FgrY9y7pxCpjaXEYCqgp/tcLmcfSsUnrpW1lC51WJsBarX/h5n+Yr/wA/1x//AKKbp" + + "3/7AvcD/wDBLe8v/TVp/wBkln/1o6hP/ghvdv8A6adP+yW0/wCtHR1/+G9PiV/z7Kq/9DrsD/7KPZLfk" + + "H8ke4vlLvmk7H7w3VDu/eFFt2g2pTZWHb+3NtpHgsZW5PI0VGaDbGKw+OdoqvMVDeVojK2uzMQqgRlzh" + + "zrzJz5use9c034udyWFYgwjjj/TVmZRpiRFwXY1pXOTQDqOua+cOYOdtzTd+Zb4XG4LCsQYJHH2KWYDT" + + "GqLguxrSueOB0YnqrqDr/pTbU+0etsJJgNv1OWqs5NQyZXL5dmydZTUVJUVAqs1XZCrUSQY+IaA4Qabg" + + "Akk2K/yMf8AsvHD/wDiLOxv/cXG+5l+6t/09i2/54Ln/AvUt/dn/wCnn2//ADw3H+BeilfzLf8AsmLIf" + + "+HttH/rfWe4f88T/svjdP8A4jjrb/3Sye2/vS/9Pav/APnitv8Ajh6b+8r/ANPRvf8Anjt/+OHqR/LY/" + + "wCyXcJ/4d28P/dinuoP3jp1AXR+Pfvfuvde97Kf/Cdf/i//ACr/AO1P1F/7m9he82vua/7l8/f807T/A" + + "I9cdZh/dK/3L54/5p2v+Gfqnv8Am0f8WrpD/tYb8/8AcbavsuPys/mwfO/rL5Ld7debL7locTtLZXam9" + + "dtbbxjdZdV5BqDC4jO1lFjqRq7J7LrMhWNBTRKpkmlkkci7MT7BfP8A94H3X2PnfmvZts5lSPbrW/mjj" + + "X6a1bSiOQo1NCWNAKVYknzPQR5499Pc7ZuceZ9p27mFY7C2vpo41+ntm0orkKNTQljQDiSSfM9C70f8G" + + "vjHvLp3rLdm4uvamuz24tk7dzGXrV3lvekFVka/G09RVzimo9xU9JTiWZydEaIi3sAB7L//AMPM/wAxX" + + "/n+uP8A/RTdO/8A2Bewh/wS3vL/ANNWn/ZJZ/8AWjoK/wDBDe7f/TTp/wBktp/1o6FP/hvT4lf8+yqv/" + + "Q67A/8Aso91u7w3Znt+7s3LvfdNauR3Lu/PZXcu4MgtLSUS1uZzddPkclVrR0EFNRUoqKyodxHDGkaXs" + + "qgAD3Cu5bhd7tuF9ul/LrvrmV5ZGoF1O7FmNFAUVJJoAAPIU6iDcL+63S/vNyvpNd5cStI7UAq7sWY0U" + + "ACpJNAAB5Do3u38Fi9r4LD7bwlOaTD4DGUOHxVK009S1Nj8bTR0lHAaiqkmqZzFTxKuuR2drXJJ597g3" + + "8iGsjrvgzmaKEDzY/ursGhkUupLPUYDZtfG5UcxqyVoUX+pUn6e+jf3UJRL7V3MS/Em53Cn844WH/Hv5" + + "dZ/fdikEvtncRr8SbjOD+aRMP8AD1QN/M4p2pfktj6mQnx1fXW1alDpYALFlNw0rre1mYNTE8fgj3p87" + + "xikg3dumCVSksO483FIh+qSR5OqR1P+KsCPfOTclKbjfqwowmcH/ej1gBuClb+9VhRhM4P+9Hq/nAOsu" + + "BwkiHUkmIxrow/tK9HCyn/Yg+057RdJOnf2Y7sb4h/JfqPYtJ2b2V0zvTZuwa+XEwUe6szRQQYqolzsD" + + "VOIjjlSpkctXwKWj9PIHNvY03r26535d2qPfN75aubbaHKASuoCEyCqZqfiGR0L935B5y2HbI953jl65" + + "t9rYqBK6gKS4qma/iHDoItpd9dOb83NPszZ/YW3dw7ppUrpKjCY6pkkrokxkghr2ZGhRbUsjANz9fYn/" + + "wAtrIpi/nb8XaqQxhH7WwlCTKSqA5SKrxim686w1YNP4LWvx7PfZSYQe6/IkhpT94Iuf6QK/wCXHR17P" + + "yiD3O5Kc0p9ci/70Cv+XpF/L+kat+MndUKhyy7HyNSAgBY/ZPBWEWP9m0HP5te3u3f/AIUU4+Vc98UMr" + + "cmCfEdxY8gRtpjlpazrepBaX9F5krDpXg/tk8/jIn75ULC79v7j8JjvF+whrY8fnX+XU9/e2iYXXI0/4" + + "THdr+YNuePzr/Lohf8AKWqkbF95UXAkjr+v6oeoXdJ6fd8Jsn6rRtTi5+nqHvWr94S9Yd9XC+7e/wCR3" + + "SzVHz42rNEoKUHXPZVVUktYrC+EShVlFvUfuKyMW/oSfx7yL+61Gz+7e3svBLK5J+zRp/wkdT792tGf3" + + "RsWUYWzuCfs0U/wkdEH/mTzxxfF3ORuSGqt3bPghAF7yLkmqSCfwPFTsb/1Htb/AM+rIw1XzVwdFGD5M" + + "X0nsuKdtSlS9Vnd31aABSWUrFKLhrHm/wBPZp97OZZPc61iHxR7XCD+ckx/wHox+9DKr+41tGPiTbYQf" + + "zeU/wCA9Jz+V/SSQfHTJVLkaK3sfcTxCzAhYcZgYGJJFjd0P0/p7Gv/AITyf8zm+RH/AIjHa/8A71Uns" + + "T/c6/5WXnL/AJ4Yv+rp6En3Tv8AlYebf+eKL/q6eg5/mwf8y86n/wDDzzX/ALo19gJvvtkdJfzt892FN" + + "UtSYyh+StJhM/OJPEkW3N30dBtLPTTsSAYKbF5uWVh+RH7CO68wf1X+9Bd7wz6YE3sJIa0pHMFikJ+QV" + + "yT9nQW3Pff6t/eQut2Z9MK7yEc8KRyhYnJ+QVyT9nQobY2Kex/5cOL2pHCJ6yp6eqMli4tGtny+AqKrO" + + "4uOJRc+WatxyIp/q3tefz+eqm2r8nuve0qeApj+1utIaOpmEYVJdxbAyL4uvGpR63TBZbF3JN7WH0Hs3" + + "+9xsBsOetn35EpDuFiAT6yW7aW/6pvF0afem2M2POm072i0ivrMAn1kgbS3/GGj6TH8rbe4zfTG69kzS" + + "BqrY+8ZKiGPUSyYndNItbSnSf0q2ToK3gcfn8+zW/Owp8UP5O/QPx7gJx+4+zINgYbO0UaLBOZqgT9u7" + + "9kqImIcrFuXxU8pFzrnUHg+x/7rU9v/ALuHKPJ69l7fC3RwMGprdz1Hykop+bDoc+5tORvu/cq8qL2Xd" + + "6IEccDU1up6j/mpRT8yOgO+MoPeX8wDtLteQfdYjZsu6chjKh2Msfji8ewtsLE49IZ8P5JkHA0xn+nsZ" + + "f5Cv/ZEfcP/AInvfX/vrOrvYl+6b/067mP/AKW0/wD2i2vQh+6//wBO23//AKWk3/aNbdB7/M+/7KR2B" + + "/4jDbP/AL229Peo5k/+LlkP+o2r/wCt8nvnjP8A203+mP8Ah6wMl/tZf9Mf8PV8VH/wDpP+oaD/AK1L7" + + "he2um+pPv8A/9Et/wDJt+SuK70+IG1Nk1WQjff3Q6Rdc7kx0koasfb1MJZdiZyONmaQ4+q2+Fog/wDys" + + "4+YWAC36hfds52t+avbnb9skmB3faQLaRSc+GKmB/8ASmPsr/FGw9OukP3e+cYOZuQLHbXlB3Ta6W8i1" + + "z4YzC/+lKdlf4o2+XV3X8wbp6u6z79zm44KRl2v2ez7uw9WkZFOuVmKJubGu4UIKuDK3qSv/HGqjP1Js" + + "WX+af8AynN0/IjeVT8ifjimJk7JyVFR03YnX2SrabDRbzlxdNFQ4/cu3srVmLHU+40x0EVPVU9VJDDVR" + + "QJIkizB1nA3v3932/5y3J+cuSxGd7dQLi3ZggmKgKssbmiiTSArKxVWCgghqhgZ73exV9zbuD828oCM7" + + "w6gTwMQgmKgKskbGiiTSArKxAYKCCGqGGT4SfOjCdTbeh6m7dauTZ9HU1E2091UdNNkH28lbM9TVYfLU" + + "MAermxDVcrywSwJJJC8jKyGMq0evTkf5f3zaxeXGDq/i53Ua9pPEpo9jZjJUDMTYFcvjoKvEtGT/bE+i" + + "3N7e8PJvaH3QguPpZOQ9z8atMQOy/72oKfnqp1ihL7V+5EFx9NJyTuPi1piF2X/AHtQV/PVTq12k+VHx" + + "xraA5KDurroUoTWfuNy4+jqgtr2NBVyQV4f/aTFq/w926fy6P5NPZw7H2t3R8s8DT7N2ls3I0W49t9VV" + + "VZQ5Hcm7NwYyqSqxT7tpqKSsoMLtiiqoVmmpJZWq61kEUkUcLMz5EezP3at9/fVhzN7g2gttutnWSO1L" + + "K0ksimqeMF1KkSkAlCdb00lVUkmevaP7vW9fvey5i57tRb2Fu4kjtiVaSV1NV8UCqpGCKlSdT00lQpJJ" + + "DPlt/MJ2Ydo5rrvorKS7gz24aSpxGX3vDT1NJh8FiqyBoa5cDNUrT1ORzVTBIY450QQUwYurvIFC30/O" + + "L5O4D4lfG/sDtfJ1tNHuJMXU7f65xMrr5892Bmqaen27RwQXDz09DPetq9P+boqWVvqADln7p882ft7y" + + "VvHME8qi8EZjt0PGS4cERgDzCnvf0RWPWUPuVzna8icobrvs0gF2EKW6ni87giMAeYU97+iKx6rA+NfT" + + "GV727e2rsajp5nxLVsOV3bXIp8WM2rjpopstUSyWKxy1MVqaAH9VRMi/k2+fVV1dVX1VTXVtRNV1tbUT" + + "VdXVVEjSz1NVUyNNUVE8rkvJNNK5ZmJJLEk++QMkjzSPLK5aViSSckkmpJPmScnrlRJI8rvLI5aRiSSc" + + "kk5JJ9SetqqCCGlghpqaKOCnp4o4IIIlCRQwwoI4oo0UBUjjRQABwAPcf3TqnWX3737r3Xvfvfuvde9+" + + "9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9m+/l//APZbvxT/APE79b/+9LQ+5F9ov+no8" + + "gf9La2/6uL0Pvav/p5HI/8A0s7f/q4vQB/Kf/sm/vD/AMRju/8A901V7vA/4US/8Wf4t/8Aaz7T/wDcX" + + "ZPvKT75P+43If8Ap7r/AAQ9ZJ/e0/3H5J/09z/gh6rb/lM/8XDuv/qD2V/1u3F71gfeC3WF3V0Hu0H+T" + + "f8A9vB+lP8AqE7A/wDff7k9zr923/p8HLH+luP+0eTqavu9/wDT1+XP9LP/ANWJOiXfzBP+yU+xv+W+1" + + "f8A3qsP7H/+fr/2Wbs//wAQLs//AN7Df/sX/e3/AOnl7b/0qYf+r1x0KvvS/wDTw9u/6VcX/V2foLP5X" + + "H/ZPOf/APEoZ/8A90G1vdH/ALxb6xr6sk9+9+69173cR/Ix/wCy8cP/AOIs7G/9xcb7yP8Aurf9PYtv+" + + "eC5/wAC9ZA/dn/6efb/APPDcf4F6r//AJlv/ZMWQ/8AD22j/wBb6z3D/nif9l8bp/8AEcdbf+6WT2396" + + "X/p7V//AM8Vt/xw9N/eV/6eje/88dv/AMcPUj+Wx/2S7hP/AA7t4f8AuxT3UH7x06gLo/Hv3v3Xuve9l" + + "P8A4Tr/APF/+Vf/AGp+ov8A3N7C95tfc1/3L5+/5p2n/HrjrMP7pX+5fPH/ADTtf8M/VPf82j/i1dIf9" + + "rDfn/uNtX3Sz86v+yzPlB/4nHsf/wB6bIe8Zfdb/p5XPX/S0uP+rrdY6+5v/Tw+dP8ApZXH/VxurE/jN" + + "/2T30v/AOI22l/7p6X2VL3H/QG6HH3737r3Xve0v/wnm7NoqrY/yC6dnqVXJ4fc+2+xsbSO6h58bnsY+" + + "3MtNTxltTx0NZgaQSkCympS59Q955fc73yKTa+b+W3f9eKeO5UeqyL4bkD+iY0r6ah69ZtfdP3mN9t5r" + + "5fZ/wBaOaO4UequvhsR9hRa/wCmHr1Sd/Ne2bUQ7k6q7AihJo8hhsxtGsnVTpjrMXWLl6COVwLB6mnyk" + + "+gE8iFrfQ+6I/nn1Bk+jfl937sLIUUtHSJ2LuLcm2zJGyR1W0t4V8259s1FOzALNGMTlI4mZbqJY3X6q" + + "R7xR92eXJ+VfcXm7aZoysYvZJI8cYZmMsRHr2MAfmCPLrGL3Q2Cblrn7mna5YysYu5JI/nFKxkjI9e1g" + + "PtBHl1Zv8Yd/UXZXQfV26KSoSonbaWJw+X0urNDntv0seFzMUoBJjc19E7gHnQ6n6Eey9da7Cz/AGn2F" + + "snrba1LLW7i33unB7Uw9PDE8rtXZzI0+PhdkQFvDAZ/JI30WNSxsAT7B+ybTd79vG17JYRlry7nSJABX" + + "udgo/IVqfQAnoKbPtd1ve7bbs9kha7up0iQDPc7BR+QrU+g6FfeG6MXsnam494ZqeOmxO2cJks5XzSOq" + + "KKbG0ktVIoZiB5JRHpUfVmIA5Pvap/nx7rxOw/iF050/RTIlXubsfCJQUVwHbbfXG08jFW1IAtdaavy+" + + "NjtYD978Wt7z5+9huFvtPt1y3y5G1JJ71NK/wDC7aJgx/JnjH59Zv8A3nr6Da+QeXuX42/UmvE0j/hdv" + + "EwJ/JmjH59UhfyxMHXbn777B3/URs1PhtoZJqqosdK5fd2dpHp4Te9jNS0FY31v+3/j71cujt+t1Z3R1" + + "L2UNWnYPZGyd4TKp0mWm27uPHZWqgJuPTUU1K6NyOGPvBDlbdjsPM3L29+VpewTH5iORXI/MAjrCnlrd" + + "DsnMWxbwP8AiLeQyn5iORWI/MAjq6vsra43t13vrZxtfdO0Nx4CNiLhJstiKuhglAsbtFNOrD/Ee9oz+" + + "fh17Nvv4w9Rdx7dRMriuv8AfqGvyNIDNFFtfsjDQ01HlRNGrKKCozOMx0QckKXqYxyWHvO7722ztu3Iv" + + "LvMlmBJb2d33MMgRXKABq/wl1jFeFWHr1mt96PaW3PkvYeYLQa4LS67mGQI7hAA1f4S6xivqw9eqVf5X" + + "e649sdz796/yzNQ126trsKWknIjd81tDISTVFFoYgmqix9ZVuVAJCwsfwfepD7559YHdXv+9gn/AIT6d" + + "X5DLd79ydvy0kv8F2X1nDsmnrGjP27Z7e+4MXkxFFIbA1FPidpTawL6UnF/1D3l990DYprjmzmTmNoz9" + + "La2IgDeXiTyK1AfUJEa+gb59ZV/dT2WWfmfmDf2jP09tZiEHy1zOrUB9QsRr8m+fVVf81betLQdY9fbB" + + "SdP4juLeMm45acMPKMXtvFVtEZHT6iKWuz0ekn6tGbfQ+yQfzdOyaXsr58d3VGPnWpx2y6rb/XFLKjl1" + + "+42dgKCgzsQ/C/b7matjIHBK3/PuLvvEb3Hvfu3zQ8L6obZo7YH5wxqsg/KXWPy6jb363hN490uZHias" + + "Nu0duD84kVXH5Sax+XRkvgZs+bZ3xd63iqojDV7igyu7p0ZdJ8W4MpVVWMkP5by4YUzgn8Nb8ez5/8AC" + + "eT/AJnN8iP/ABGO1/8A3qpPcs/c6/5WXnL/AJ4Yv+rp6lD7p3/Kw82/88UX/V09Fg/mwf8AMvOp/wDw8" + + "81/7o191m/zK5ZIPnx8nZoXaOWHtKtlikQ2eOSOhxro6kchlYAg/wBfcHe9rMnu3zyymjC/Yj7dK9Q17" + + "xMV90ec2U0YXzEfsXo5Hw7RJPi70zHIoeOTZVOjowurI9TWKysD9QwNj72NfkH1Of5hfxc/l3dm0VCc1" + + "VTdndM5bfTeJar7XaW5MfHie20rHUMfDR5nCIkwvbVHyTbnM/nDl/8A14eRPZvfIovFc31k8+K0ikXRd" + + "6vkroA3zHWXPNexf67HJXtLvMcXiOb20abFaRSLpuq/IOgB+Y6qO6p3yPij3X8stm1NSMdDHszsOh2yN" + + "Zg8+dw9U9fsQ06kga6jH5JmjNr6X/x4rX/4UA9sjcPyB6o6coarXj+sOvJ9wZCkjdPDTbh7AyIZonjQ3" + + "jnj2/tyhcAgWjnUjg+4T+95zB9Zzfy/y3FJWGwszIwHASXDcKeR8OOM/Yw9eof+9Tvv1fNWxcvxvWKyt" + + "DIw8hJO3D7fDjQ/YR69HB/lYbF/hPVe+ewKmDTVb03ZHiqSd1byTYratIQHV24eJsrl6pSR/bjI/Hs/"; + resourceString += "H8hX/siPuH/xPe+v/fWdXe5b+6b/ANOu5j/6W0//AGi2vUo/df8A+nbb/wD9LSb/ALRrborv8z7/ALKR2" + + "B/4jDbP/vbb096jmT/4uWQ/6jav/rfJ754z/wBtN/pj/h6wMl/tZf8ATH/D1fFR/wDAOk/6hoP+tS+4X" + + "trpvqT7/9LSI+MHyh7Y+JPaeM7W6lzC0WUp4zj87gq9Zajbm8NvzSxy1m3tx4+OWI1VDO0SvG6Mk9NMq" + + "ywukig+xlyLz3zB7eb9Bv8Ay9c6Z1GmSNqmOaMmpjkWoqppUEEMrAMpBFehbyXzrvvIe9w75sNxpmA0u" + + "jZjljJqY5FxVTSoIoymjKQR1vP9z9LbG732TW7H33j2qKKVvusZk6UpFl8BlY0dKfLYiqZH8NTEHKsrB" + + "opoyySKykj3tT9A/wA8r4j9lYnHU/bsm4eh94vFDHkaXM4rKbs2dJWGNPK2J3RtnHVlWtIZdVjX0NFoW" + + "wJY8+8+OUfvUe3m928KcxGbadyIGoOjSw6vPRLEpNK/78jSnqes3+VvvL8h7xBEm/mXa9woNQdWlir56" + + "ZI1JpX+NEp8+qRO0v5anfGz66rl2EmK7O2+ryPST4+uosHuBacMxQV2FzNXTwGoCWuKWpqNRvYD2c5f5" + + "j/wUal+8Hyl6iEPjMuhtyRpVaVvcfYvCtd5OOE8es/ge5LHvT7UmPxP6+bdppX+0z/vNNX5Ur1Ig93vb" + + "Ip4n9drDTSv9pn9lK/lSvReD8RPk0J/tz0nv3yawmoYdmgubc/crIabRz+rXpH9fZUu7/53Pwu6xxtan" + + "X+c3D3lumKJhR4jZuEyeFwTVXHjTI7s3VQYujhpTe7SUUOQZQD6CePYA5p+9D7Z7FDKNoupt1vwMJCjJ" + + "HXy1SyqoA+aCQ/LoDcyfeR9utlhkG1XMu53oGEiRkSvlqllVQB80En2dDj1v/Lf+RG86ymbdWNxPWuEd" + + "1NRX7hyVFkcmIOdZpMFhKqtqHnFuEqJKVST+oDn3q4fMf5tdy/Nff0G7uza2mxuAwQq6bY3X2DaZNs7O" + + "oKx42qBTLMTPk8zXiCP7uvnvNOUVVEcKRxJgh7k+6HMvudu6bjvkqpaRVEFulfChU8aVyztQa5G7moAN" + + "KhVGFHuF7kcw+4+6Lf7zIEtYqiGBK+HEp40rlnag1O2WoAKKAous+Pvxw69+Oe15cDs2nmrMpkzBNuXd" + + "WSEbZnP1UCsIvMYwI6PH0xkfwUsVo4gxJLyM7sT33HHUf8AQ/e/e/de69797917r3v3v3Xuve/e/de69" + + "797917r3v3v3Xuve/e/de69797917r3v3v3XuvezT/B/cGC2p8wfjTubc+Yxu39vYLujYOUzWbzFZBj8" + + "XisbR7go5quuyFdUvHT0lJTRIWeR2CqouTb2Pfa28tdv9x+SL6+uUhs4tzt2d3IVUUSKSzMcAAZJOB0N" + + "vba6trHn/k68vbhIrSLcYGd3IVVUSAlmY4AA4k8OgT+SWKyec6B7iw2GoKzK5bJ9d7pocdjaCnkqq2ur" + + "KjFVEcFNS00KvLPPNIwCqoJJNh7uI/nw919P9u4n43p1b2fsTsOTB5Hsl8zHs3c+J3E+KSuptnrRPXjF" + + "1VT9qtW1NKI9dtRja3095H/AHsOZ+XOYrfkobDvtpeGJ7nWIZUk06hDTVpJpWhpXjQ9ZA/ee5j5f36Dl" + + "AbJvVrdmN7jX4MiyaaiKmrSTStDSvGh6r+/li9c7/2HX9vNvbZe59ppkqTaAx77hwtfiVrWp5s8ahaU1" + + "sMJnaASoX030hx/X3roe8M+sSOrbfdjX8qDe2z+vPnP1Fuzfm6MDs3bGNpd8rkNwblylJhsPRNV7Hz9J" + + "SrU5CulhpoGqaqZI01MNTsB+fcz/d/3Tbdn91OXdw3a/itrFFn1SSsERawSAVZiAKkgCp4nqXfYzctv2" + + "n3M2C/3S9it7JFm1SSMEQVhcCrMQBUkAfM9FI+cu3Nwbs+NG/cFtjC5TcOarJ9tGlxWHop8hkKgQblxU" + + "87Q0lMkk0ghgjZ2sDZVJ97IvyL2J/Kd+Ve+qLsfuruHqPce7Mft2i2rS19D37T4GJMLjq3JZCkpmo8Pu" + + "ejpneOqy07eQqXIexNgPeavOe0/d+5+3WLeuZ+Y9um3BIViDLfiMaFZmAokoHF2zSuesvubts9i+eNzj" + + "3fmPmCwmvkhWIMt8EGhSzAUSQDizZpXPVQXUm5vnP0htqp2j111/v3EYOry9TnJqap6tnykjZGrpqOkn" + + "lFRX4aeZVeChiGkHSNN7cn2An+yWfyP/wDn4XV//pTFd/8AZl7CX+tl91v/AKPFh/3Mm/63dBf/AFuvu" + + "2f9Hay/7mB/629Cj/sxP8yT/nk96/8AonIP/sf91Q/zSukPgn1DhOmJ/hvuLaudr87ld8w7+G2+0KjsR" + + "6ajx9JtZ9vGrimzWWGKSSasrNDAR+Yhhzo4x/8Afnlb2p5dteWX9try3lmlknFx4d0bigUReHUF30ZL0" + + "OK5406gz3s5a9stgtuXX9vruCWWV5hP4dyZ6BRF4dQXbTkvThXPGnR5PhR2R8mt+5LsOL5BYnOYylxlD" + + "tqTa5zGy49prNUVc+bXLeB0x1Ca5kjp6fUCW8dx9NXKR/k1dhbE6x+aeK3T2LvDbexttxdbb+opM7uvM" + + "UOCxKVlXTY8UtK1fkZqemWoqCjaELXaxt7Lfu17xtOx+5tvf7zuUFrZCyuF8SV1RNRC0GpiBU+QrnpB9" + + "3rdts2X3Fgvd33CG2sxZzjXK6otSFoNTECp8h0//wAwjam595/HWuwm0tv5jcuYfeG16lcZg8fU5Ouan" + + "p5qozzilpI5ZjFEGGprWF+fewV3lsD+UV8kN/1fZ/cXY3SG697V2NxmJqcwO/Z8MJKDDwGmx8P2OD3tj" + + "qBTBCbahEGb8kn3l/zVtH3d+dd3k33mTedruN0ZFQv9eU7UFFGlJlXA86VPn1lXzNtXsLzfusm9cwbvt" + + "s+5MiqX+uKdqCijSkyrgfKvr1VV1run56dQ7Wg2X1/tHsrB7cpqysr4aA9WxZHRVV8gmqpPucntusqj5" + + "JBexew/AHsH/wDZR/5HH/PQ9I/+lJZ//wC2J7Dn+t591n/lM2v/ALmUn/bR0H/6hfdq/wCUvbf+5g//A" + + "Fv6X3+nj+ZV/wA6nsn/ANE/i/8A7EfdRH81bqH4K9W0XTD/AA1yOxq+ozNTvRd+jZ3ZeR7BaOGii26cA" + + "a9a7cWeGMDyVFUIynj8tmvfSPeO3v7y57VbDFyyfbWa1d5Gm8fwblrigUR+Hq1SSaeL0pSufTqBffDYP" + + "bLZI+XT7ezWzPI03j+FcNPgeHo1apH08Wpwrn06Pr8H9+/JnetT2GvyEpNzU0WPh2622DuHZ1JtRXkqH" + + "ywygpTTYnFmsKrDBrDa9Fxa1zcf/wCQ53J1L1FmvktN2n2VsjruLOYvq2PCvvPcuK26uVegq99NXLj2y" + + "lTTLVNRiri8gQkp5Vv9fYv+6dzLy9y7c87tv292tmssdqE8aRI9ekz6tOoiumorThUevQp+7BzDsWwXP" + + "OLb3vFtaLKlsE8aRY9WkzatOoitKitOFR0Fv8zvr7fe/cb07HsnZ+5N2vja7er5FdvYeuy5oVqoNsimN" + + "UKKGYwCoMD6NVtWg2+nuwnsH4zfyY+z987t7F3j2d1XkN1733BlNz7iroPkbLQQ1eYzFXJW19RFRUe7Y" + + "aWlSWolZgkaqq3sBb3MO8cj/dp33ddw3nct8sH3C6maWRhuJUF3OpiFEoAqTwAp1K+68m/d43rc7/d9w" + + "3qxe+uZWkkIv6Au5qxAEoAqTwGOio7V7j/mG7L21gtpbf2Xvikwe28VRYbE00nUa1MkGPx8CU9LE9RPg" + + "pJpmSJACzEsbcn2kP8AZLP5H/8Az8Lq/wD9KYrv/sy9l3+tl91v/o8WH/cyb/rd0g/1uvu2f9Hay/7mB" + + "/629P8A/sxP8yT/AJ5Pev8A6JyD/wCx/wB69/8AMC2H8f8Arb5Obu2n8Y8niMv1DRYXaM+ErsHuuTeuO" + + "kyNbt6hqs6kW4Ja3IPUvFlZJFZPK3iYaeLW94e+7208obJzzuO38jTxycurFCUZJfGXU0al6SFmrRq1F" + + "TTh1il7q7Xyrs/Od/YcmTRybAscRRkl8ZdRjUvR6tWjVqK44dWs/Ffc/am8OmcDne5qOvoN+1ORz0WSp" + + "slg025VrSU+WqYcY0mKSnpVhV6JEKtoGsc/n2xfCP5W7i+G/wAgtqdxYeknzGEiSfbu/dswzinbc2x8x" + + "JT/AMZx0MjkQpkaSSmhrKJpP21rKWLX6NQKX2v5/vPbbnDb+ZLaMyWorHPEDTxYHI1qPLUKB0rjWq1xX" + + "pL7b883ft7zXY8wW6GS2FY54waeJC9Najy1CgdK41qtcV6c/kh0difkH1VnOv6+eLH5GRosttfMyReUY" + + "bcuPSX+H1ciKPI1JOk0lPUBfUaeZ9Pqt72u+xeqP5ef82Tam2N5U288ZlN3Y/GR0mM3Ds7ceO2x21tqj" + + "n/yqTbG6dt5OGrqJaejrKtmWGuopoo5mdqWXTI7SdAN55f9nfvBbfY7km5xybikdFkhkWK7iByYpY2BJ" + + "AJ+F0YAkmNqMSc5t22L2n99bGy3BNxR79EoskUix3UYOfDljYE0BPB0IBJKNQkmjbaW+flf8Fs7mtvTb" + + "eraLA1VY09bis/iavM7EzFRH+ymZwmXopIIUmqKeAAyU1TG7xhVmTUihUf1X8Qf5df8sKsru5939kQS7" + + "2w1DWJitzdrbpwmV3RiYaqlkiqqfZOy9vY3GzT5nI0srQ+SnoaisaOQxoyI7hi3YPbn2a9i5JeZtx3oH" + + "dI0OiW6lR5UBFCIIY1Ul2BpVUZ6GgIBNS/Y+QfaT2Xkl5iv93B3KNTpkuZUaRQRQiGGNVJdhiqoz0NAQ" + + "Cav+9+/flp8z6em68wG0ZU25kKmnauw2x8JkqLC10kMyPBLuPcWVrKxIsfSTIJNEtTFTh1DMGZVK63H8" + + "xb5sZL5ud7Tb0o6OuwfWmz6CTa3WG3K9o/vafCCqeprs/l44WeCPPbmq7TTojOsEMcEGuTw+R8KveX3P" + + "n90Oa23OKN4tktk8K1jb4glatI4GBJKcsBXSoVKnTU4ge7fuPN7kcztuMcbRbNbr4dtG3EJWrO9MB5Dk" + + "gV0gKtTpqbffiV8cqP439ZR7dqKimyW8c/VJm96ZelDfby5IwrDTYugaQLI+Mw1PeONmCmWRpJdK+TQp" + + "BPcR9RZ0aT3tH/y4f5jXQfb3x/pvhn8zMlt3Gz4/bg6/wAJmt/T+DZfZGw/ElJiMHm87UvFTbf3Vt+mE" + + "dNDNPNAJ0ggmhnFWpHvO/2W95+UuYuUE9tPcueFGSH6dHuDSG5gpREeQ0EcsYoqliuoKjK3iA9Zr+0Pu" + + "7ytv/Kqe3nuHNCjLD4CPOaQ3EHBEdzQJKgooJK1Cqyt4gPVKfy7+I/aOwu1JvkL8eqPLVcVVlzurI47a" + + "8Xk3FtDc+tp6/JY7GQq82VwmVmLTSRxRymNpZI5IzAQfYg5L+Q/8P8Ac+Sn3ftHvfsfF7BqpGq48fi83" + + "sfcGPo6ZtDiDH7tqsXUXpI0b0vULUyWIJdvqTib7qHtzfTtuO3c13se0MahVeCRQPRZSpx821H1J6NZv" + + "uw8gXszX9hzPeJtbGoVXhkUD0WUqcehbUfmekrSfzOe/cNRxYHPdY7Qrd0QoIGq63G7lxVVUTLqUyVWC" + + "hrYv32YcrEYUuDZR7EHtv5c/Cv+Vt8fMn0t8Yshtvd3aEsORlwO1sFm4N41j7xyVLFSyb67Y3NRyS0kf" + + "2QiiZqQvHUTrClNTwQwAvCccw+4ntl7D8nz8s8izQXG+kMY4o3Ex8ZgB493KKjtoDoqGYKERVXKm2/c+" + + "+3XsnypNy7yXLDcb0QxSNHEp8VgB411IKjFB21DMAERVXKpXYfQ3yK+a/a1H2J3PSZjA7LSSjjymayeN" + + "l2/Trt+jmedNs7Gw1Qsc7fc63UThXiiaRppZJJCFk1Ac3msruTM5bcOdrqjKZvPZOuzOYydW/kqshlMn" + + "VS1tfXVL2Gueqqp3kc2F2Y++c91c3F7c3F5dymS6ldndjxZmJZmPzJJJ6wDubie8uJ7u5lL3Mrs7seLM" + + "xJYn5kkk9X547HUOIx9DicZTRUWNxlHTY/H0cC6YKSio4Up6WmhW50xQQRqqj+g93j/AMiftvq7qTtjv" + + "jJdo9h7N69oMt13tuixdZvLcWL27TZGrh3LJPNTUU2UqaaOpnihIZkUlgpva3vKb7qXMOw8vcwc2Tb9v" + + "FtZwyWcaqZpFjDES1IUsQCQM0HWS33ZN+2TYd95nm3vdre0iktIwplkWMMRJUgFiKkDNB1Wv/M02JvXf" + + "mxesaPZW09w7rqqDdmXqa2n29ia3LTUlPJh1ijmqI6KGZ4o3k9IZgATx7rw/mF7n25vP5rfI3dO0s5it" + + "y7bzfYtdW4fPYOup8nicpSPQ0CLU0FfSSS01VAXQgOjFSQefcOe8N9Zbn7nc6X+3XUc9lLesySIwZGGl" + + "cqwqCPmOol917203H3G5uvbC5jms5LtijowZWFFyrCoI+Y6Nj8UcNl9vfHTqPCZ7GV2HzGN2lTU2QxeS" + + "ppaOvoqhamqYw1VLOqTQShWB0sAbH3sHfyafmV01tz4gQdZ9udubD2FnOtt/boxGDoN7btwu36qt2vnp" + + "KfdlFVY6HKVlNJUUcWXzVdDqW4VoyDbi+YH3avcrlqy9uU2PmLmK0tLqyu5URZ5UjLRSUlBUMRVQ7uMe" + + "Y6yt+717hcvWfIC7Nv2/Wtrc2d1IiLNKkZMb0lBUMRUancfaOqqP5hPx77Cy/fsu8dh7D3PujG7v2vhK" + + "/JVW28FkcrDTZrGJLg6iGrkoqeZYqh6DHU0lmsSrX/r712vnX3FT99/LrvrtCgr1yeEze/snjts10cy1" + + "FPVbV2skG1NtVNJKhKPSVWFwsEsZHBVwfz7w391uZE5t9xObd9il12st2yxNWoMUVIoiD6FEUj5HrEv3" + + "N5gXmjn3mjeopddtJdMsbVqDFFSKMg+hRAR9vVs3xl6/l6v6F6v2XVUxo8jjtrUdXmaZozFLDm820mcz" + + "EM6NZlnhyORkRwfoV93wfyUu/ujurfh92ptrsrt7rnYW4cj3bvPKUOE3bu7CYHKVWMqetut6KmyFPQ5G" + + "rp6iajqKyimiR1UhpIXUcqfeV/3Y+buVdh9uN+sd75isrS8fdJmVJpkjYqba2UMFYglSVYAjzBHl1k99" + + "3LmrlrZOQN7s943+ztbt9ymZUllRGKm3twGCsQSCQQCPMEeXVYv8xfqzsrevf8AsnMbP2Fu7dGJpOudu" + + "0dTksDgcjlKKCsh3hu6pmpJamkglhjqIqeojdlYghZFP0PvV3yDK9fXOjBkesqWVlN1ZWmcqwI+oIPvB" + + "KYgzSkHGo/4esKpaGWQg41H/D1dPSKVpaZWBVlp4VYEWIIjUEEH6EH3D9t9N9SPf//T+f8A+/de63+Pf" + + "vfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+6" + + "9173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xv" + + "fvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173737r3XvfJHeNg8bsjD" + + "6MjFWH+sVII97BKmoND1sEg1BoeumVXGllVgfqGAI/2xuPfbyPIxeR3kY/VnYsx/wBcsSffiSxqxJPXi" + + "STUmp66VVQaUVVX+igKOf8AAWHvh711rrl797917r3v3v3Xuve8q1E6IY1mlWM3vGsjhDf63UELz7sHc" + + "DSGOn7erB2AoGNOuBiiZtZjjL/6oopbj6eoi/HvF7r1Xrn797917r3v3v3Xuve/e/de69797917r3v3v" + + "3Xuve/e/de69797917r3v3v3Xuve//U+f8A+/de63+Pfvfuvde9+9+69173737r3Xvfvfuvde9+9+691" + + "73737r3Xvfvfuvde9+9+69173737r3Xvfvfuvde9+9+69173KoYoJ62jgqpfBTTVVPFUTXC+GCSVEll1" + + "MCo8cZJuQRx70eB62oBIBOK9eP0Pu00fFr4I2H/ADlJUfQf8xbsj6254OBuPZd9Tef8o/8AI9CT93bN/" + + "wBHH+a/5uoPnqv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uv" + + "eeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX" + + "37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S" + + "1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/A" + + "PrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Ajh/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8" + + "j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/" + + "jS/5uveeq/44f8AJrf8V9+/2Vn4I/8AeUtR/wChbsf/AOsPv31N5/yj/wAj1793bN/0cf8AjS/5uveeq" + + "/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj1793bN/0cf+NL/m6956r/AI4f8mt/x" + + "X37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am6956r/jh/ya3/Fffv8AZWfgj/3lL" + + "Uf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/Fffv9lZ+CP/AHlLUf8AoW7H/wDrD" + + "799Tef8o/8AI9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+CP8A3lLUf+hbsf8A+sPv31N5/wAo/" + + "wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31N5/yj/yPXv3ds3/AEcf+" + + "NL/AJuveeq/44f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793bN/0cf+NL/m6956r/jh/" + + "wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL/m6956r/jh/ya3/ABX37" + + "/ZWfgj/AN5S1H/oW7H/APrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Ajh/ya3/Fffv9lZ+CP/eUt" + + "R/6Fux//rD799Tef8o/8j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ+CP/eUtR/6Fux//AKw+/" + + "fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44f8AJrf8V9+/2Vn4I/8AeUtR/wChbsf/AOsPv31N5/yj/wAj1" + + "793bN/0cf8AjS/5uveeq/44f8mt/wAV9+/2Vn4I/wDeUtR/6Fux/wD6w+/fU3n/ACj/AMj1793bN/0cf" + + "+NL/m6956r/AI4f8mt/xX37/ZWfgj/3lLUf+hbsf/6w+/fU3n/KP/I9e/d2zf8ARx/40v8Am6956r/jh" + + "/ya3/Fffv8AZWfgj/3lLUf+hbsf/wCsPv31N5/yj/yPXv3ds3/Rx/40v+br3nqv+OH/ACa3/Fffv9lZ+" + + "CP/AHlLUf8AoW7H/wDrD799Tef8o/8AI9e/d2zf9HH/AI0v+br3nqv+OH/Jrf8AFffv9lZ+CP8A3lLUf" + + "+hbsf8A+sPv31N5/wAo/wDI9e/d2zf9HH/jS/5uveeq/wCOH/Jrf8V9+/2Vn4I/95S1H/oW7H/+sPv31" + + "N5/yj/yPXv3ds3/AEcf+NL/AJuveeq/44f8mt/xX37/AGVn4I/95S1H/oW7H/8ArD799Tef8o/8j1793" + + "bN/0cf+NL/m6956r/jh/wAmt/xX37/ZWfgj/wB5S1H/AKFux/8A6w+/fU3n/KP/ACPXv3ds3/Rx/wCNL" + + "/m6956r/jh/ya3/ABX37/ZWfgj/AN5S1H/oW7H/APrD799Tef8AKP8AyPXv3ds3/Rx/40v+br3nqv8Aj" + + "h/ya3/Fffv9lZ+CP/eUtR/6Fux//rD799Tef8o/8j1793bN/wBHH/jS/wCbr3nqv+OH/Jrf8V9+/wBlZ" + + "+CP/eUtR/6Fux//AKw+/fU3n/KP/I9e/d2zf9HH/jS/5uveeq/44f8AJrf8V94W+LnwVFRDGPlDOYnhq" + + "Hkk/vZsk6ZI3pVhS4wOldayOeeTp4+h97+pu6f7j/yPWv3ds1QP3h/xpf8AN17z1X/HD/k1v8f8ff8A/" + + "9kL"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label78 = new DevExpress.XtraReports.UI.XRLabel(); + this.label77 = new DevExpress.XtraReports.UI.XRLabel(); + this.label76 = new DevExpress.XtraReports.UI.XRLabel(); + this.label73 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.label60 = new DevExpress.XtraReports.UI.XRLabel(); + this.label59 = new DevExpress.XtraReports.UI.XRLabel(); + this.label58 = new DevExpress.XtraReports.UI.XRLabel(); + this.label57 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.label68 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label70 = new DevExpress.XtraReports.UI.XRLabel(); + this.label71 = new DevExpress.XtraReports.UI.XRLabel(); + this.label72 = new DevExpress.XtraReports.UI.XRLabel(); + this.label75 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + this.Egységár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.ÁFA_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Számla_száma = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74, + this.label48, + this.label45, + this.label44, + this.label43, + this.label78, + this.label77, + this.label76, + this.label73}); + this.detailBand1.HeightF = 22.91667F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label61, + this.label60, + this.label59, + this.label58, + this.label57, + this.label56, + this.table3, + this.table2, + this.table1, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.pictureBox1, + this.label2, + this.label1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 460.0416F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.HeightF = 0F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // GroupHeader1 + // + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 0F; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label51, + this.subreport1, + this.label52, + this.label53, + this.label54, + this.label55, + this.label62, + this.label63, + this.label64, + this.label67, + this.label68, + this.label69, + this.label70, + this.label71, + this.label72, + this.label75}); + this.GroupFooter1.HeightF = 300F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label74 + // + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(316.6665F, 1.999982F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(28.3334F, 20.00001F); + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 2F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(280F, 1.999982F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(36.66656F, 20.00001F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(90F, 2F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(190F, 20F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label78 + // + this.label78.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg", "{0:#,###0.00}")}); + this.label78.Font = new System.Drawing.Font("Arial", 8F); + this.label78.LocationFloat = new DevExpress.Utils.PointFloat(672.2084F, 1.999982F); + this.label78.Name = "label78"; + this.label78.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label78.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label78.StylePriority.UseFont = false; + this.label78.StylePriority.UseTextAlignment = false; + this.label78.Text = "label78"; + this.label78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label77 + // + this.label77.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg", "{0:#,###0.00}")}); + this.label77.Font = new System.Drawing.Font("Arial", 8F); + this.label77.LocationFloat = new DevExpress.Utils.PointFloat(600F, 1.999982F); + this.label77.Name = "label77"; + this.label77.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label77.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label77.StylePriority.UseFont = false; + this.label77.StylePriority.UseTextAlignment = false; + this.label77.Text = "label77"; + this.label77.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label76 + // + this.label76.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg", "{0:#,###0.00}")}); + this.label76.Font = new System.Drawing.Font("Arial", 8F); + this.label76.LocationFloat = new DevExpress.Utils.PointFloat(440F, 1.999982F); + this.label76.Name = "label76"; + this.label76.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label76.SizeF = new System.Drawing.SizeF(80F, 20F); + this.label76.StylePriority.UseFont = false; + this.label76.StylePriority.UseTextAlignment = false; + this.label76.Text = "label76"; + this.label76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label73 + // + this.label73.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Egységár", "{0:#,###0.00}")}); + this.label73.Font = new System.Drawing.Font("Arial", 8F); + this.label73.LocationFloat = new DevExpress.Utils.PointFloat(344.9999F, 1.999982F); + this.label73.Name = "label73"; + this.label73.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label73.SizeF = new System.Drawing.SizeF(79.58334F, 20F); + this.label73.StylePriority.UseFont = false; + this.label73.StylePriority.UseTextAlignment = false; + this.label73.Text = "label73"; + this.label73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(465F, 178.6667F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "VAT number/Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT")}); + this.label61.Font = new System.Drawing.Font("Arial", 8F); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(103.125F, 258.6667F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.SizeF = new System.Drawing.SizeF(326.875F, 20F); + this.label61.StylePriority.UseFont = false; + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label60 + // + this.label60.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_IBAN")}); + this.label60.Font = new System.Drawing.Font("Arial", 8F); + this.label60.LocationFloat = new DevExpress.Utils.PointFloat(65.20831F, 238.6667F); + this.label60.Name = "label60"; + this.label60.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label60.SizeF = new System.Drawing.SizeF(364.7917F, 19.99998F); + this.label60.StylePriority.UseFont = false; + this.label60.StylePriority.UseTextAlignment = false; + this.label60.Text = "label60"; + this.label60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label59 + // + this.label59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label59.Font = new System.Drawing.Font("Arial", 8F); + this.label59.LocationFloat = new DevExpress.Utils.PointFloat(195.2083F, 218.6667F); + this.label59.Name = "label59"; + this.label59.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label59.SizeF = new System.Drawing.SizeF(234.7917F, 20F); + this.label59.StylePriority.UseFont = false; + this.label59.StylePriority.UseTextAlignment = false; + this.label59.Text = "label59"; + this.label59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label58 + // + this.label58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumberEU")}); + this.label58.Font = new System.Drawing.Font("Arial", 8F); + this.label58.LocationFloat = new DevExpress.Utils.PointFloat(216.6666F, 198.6667F); + this.label58.Name = "label58"; + this.label58.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label58.SizeF = new System.Drawing.SizeF(213.3334F, 20F); + this.label58.StylePriority.UseFont = false; + this.label58.StylePriority.UseTextAlignment = false; + this.label58.Text = "label58"; + this.label58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label57 + // + this.label57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label57.Font = new System.Drawing.Font("Arial", 8F); + this.label57.LocationFloat = new DevExpress.Utils.PointFloat(150.2083F, 178.6667F); + this.label57.Name = "label57"; + this.label57.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label57.SizeF = new System.Drawing.SizeF(279.7917F, 20.00002F); + this.label57.StylePriority.UseFont = false; + this.label57.StylePriority.UseTextAlignment = false; + this.label57.Text = "label57"; + this.label57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 8F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(59.375F, 158.6667F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(370.6249F, 20F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "+36 1 2755200 Fax: +36 1 2755887"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 410.8333F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table3.StylePriority.UseBorders = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 365.8333F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 45F); + this.table2.StylePriority.UseBorders = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 282.5F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83.33334F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 127.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(311.9846F, 19.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(465.0152F, 107.5F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(311.9847F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(585F, 178.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(191.9999F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 258.6667F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(72.91666F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT code:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 238.6667F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(35F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "IBAN:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 218.6667F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(165F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bank account/Bankszámlaszám:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 198.6667F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(186.4583F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "EU tax number/Közösségi adószám:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 178.6667F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT number/Adószám:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 158.6667F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16666F, 20F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Tel.:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 127.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 107.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(320.8333F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(168.75F, 20.41667F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(608.25F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Invoice / Számla"; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(138.5417F, 54.58333F); + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(465F, 87.5F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Debtor / Vevő"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Underline); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(30.20833F, 87.5F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(175F, 20F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Creditor data / Szállító adatok"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(687F, 3F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(90F, 40F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "Gross amount/ Bruttó összeg"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label41.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(610F, 3F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(70F, 40F); + this.label41.StylePriority.UseBorders = false; + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "VAT am./ ÁFA össz."; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(537.0834F, 3F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "VAT%/ ÁFA%"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(450F, 3F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(80F, 40F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Net amount/ Nettó összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(350F, 2.999942F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Unit price/ Egységár"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(280F, 3F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 40F); + this.label37.StylePriority.UseBorders = false; + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Unit/ Egys."; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(134.375F, 3.000005F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 40F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Description/ Megnevezés"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label35 + // + this.label35.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 9.999911F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(79.99999F, 20F); + this.label35.StylePriority.UseBorders = false; + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "VTSZ/SZJ"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label65, + this.label33, + this.label32, + this.label31, + this.label30}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // label65 + // + this.label65.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.InvoicePeriod")}); + this.label65.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(257.75F, 20.00006F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label65.SizeF = new System.Drawing.SizeF(182.25F, 19.99997F); + this.label65.StylePriority.UseBorders = false; + this.label65.StylePriority.UseFont = false; + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "label65"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label33 + // + this.label33.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(715.9167F, 20.00001F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label33.SizeF = new System.Drawing.SizeF(44.79169F, 20F); + this.label33.StylePriority.UseBorders = false; + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label32 + // + this.label32.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(568F, 20F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 20F); + this.label32.StylePriority.UseBorders = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Currency / Devizanem:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 20F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label31.SizeF = new System.Drawing.SizeF(242.75F, 20.00003F); + this.label31.StylePriority.UseBorders = false; + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Settled period / Számlázási időszak:"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label30 + // + this.label30.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(14.99999F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label30.SizeF = new System.Drawing.SizeF(242.75F, 20F); + this.label30.StylePriority.UseBorders = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Other data / Egyéb adatok"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18, + this.label17}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20, + this.label19}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22, + this.label21}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24, + this.label23}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33315F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Payment method"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés ideje"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fulfilement date"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Invoice date"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Due date"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Számla_száma")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla száma"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.536743E-07F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Invoice number"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.875F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Note/Megjegyzés:"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 189.5417F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "C3C-Banknet Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 50F); + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(0F, 41.87501F); + this.label52.Multiline = true; + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(750F, 20F); + this.label52.StylePriority.UseFont = false; + this.label52.StylePriority.UseTextAlignment = false; + this.label52.Text = "label52"; + this.label52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label53 + // + this.label53.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(340F, 94.66667F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "Total net amount/Nettó összesen:"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label54 + // + this.label54.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(340F, 119.6667F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label54.StylePriority.UseFont = false; + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "Total VAT amount/Áfa összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label55 + // + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(340F, 144.6667F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(225F, 25F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "Total gross amount/Bruttó összesen:"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label62 + // + this.label62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_összeg")}); + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 94.66667F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label62.StylePriority.UseFont = false; + this.label62.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label62.Summary = summary1; + this.label62.Text = "label62"; + this.label62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_összeg")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 119.6667F); + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label63.StylePriority.UseFont = false; + this.label63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label63.Summary = summary2; + this.label63.Text = "label63"; + this.label63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label64 + // + this.label64.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg")}); + this.label64.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(632.2083F, 144.6667F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 25F); + this.label64.StylePriority.UseFont = false; + this.label64.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0.00}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label64.Summary = summary3; + this.label64.Text = "label64"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 8F); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 250.5001F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label67.StylePriority.UseFont = false; + this.label67.StylePriority.UseTextAlignment = false; + this.label67.Text = "A 3C Kft. számlázási rendszere zárt, megfelel a 24/1995. (XI.22) PM rendelet 1.§ " + + "(6) bekezdés szerinti előírásainak ."; + this.label67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label68 + // + this.label68.Font = new System.Drawing.Font("Arial", 8F); + this.label68.LocationFloat = new DevExpress.Utils.PointFloat(0F, 265.5001F); + this.label68.Name = "label68"; + this.label68.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label68.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label68.StylePriority.UseFont = false; + this.label68.StylePriority.UseTextAlignment = false; + this.label68.Text = "A 2000 évi C. törvény 167.§-a alapján a számla aláírás nélkül is hiteles."; + this.label68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 280.5F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 15F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = "Közvetített szolgáltatást is tartalmaz."; + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label70 + // + this.label70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label70.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label70.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 94.66667F); + this.label70.Name = "label70"; + this.label70.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label70.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label70.StylePriority.UseFont = false; + this.label70.StylePriority.UseTextAlignment = false; + this.label70.Text = "label70"; + this.label70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label71 + // + this.label71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label71.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label71.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 119.6667F); + this.label71.Name = "label71"; + this.label71.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label71.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label71.StylePriority.UseFont = false; + this.label71.StylePriority.UseTextAlignment = false; + this.label71.Text = "label71"; + this.label71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label72 + // + this.label72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label72.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label72.LocationFloat = new DevExpress.Utils.PointFloat(732.2083F, 144.6667F); + this.label72.Name = "label72"; + this.label72.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label72.SizeF = new System.Drawing.SizeF(40F, 25F); + this.label72.StylePriority.UseFont = false; + this.label72.StylePriority.UseTextAlignment = false; + this.label72.Text = "label72"; + this.label72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label75 + // + this.label75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label75.Font = new System.Drawing.Font("Arial", 8F); + this.label75.LocationFloat = new DevExpress.Utils.PointFloat(3.125F, 169.5417F); + this.label75.Name = "label75"; + this.label75.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label75.SizeF = new System.Drawing.SizeF(313.5416F, 20.00002F); + this.label75.StylePriority.UseFont = false; + this.label75.StylePriority.UseTextAlignment = false; + this.label75.Text = "label75"; + this.label75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label75.Visible = false; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // Egységár + // + this.Egységár.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[ListPriceHUF] ,[ListPriceDEV] )" + + ""; + this.Egységár.Name = "Egységár"; + // + // Nettó_összeg + // + this.Nettó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[PriceHUF],[PriceDEV] )"; + this.Nettó_összeg.Name = "Nettó_összeg"; + // + // ÁFA_összeg + // + this.ÁFA_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\', iif(isnull([SumPriceVATHUF]),0" + + ",[SumPriceVATHUF]), iif(isnull([SumPriceVATDEV]),0,[SumPriceVATDEV] ))"; + this.ÁFA_összeg.Name = "ÁFA_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif([InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[SumPriceBruttoHUF],[SumPriceBru" + + "ttoDEV])"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // Számla_száma + // + this.Számla_száma.Expression = "Iif([InvoiceHeader.IsProforma], [InvoiceHeader.DocumentNumberProforma] ,[InvoiceH" + + "eader.DocumentNumber] )"; + this.Számla_száma.Name = "Számla_száma"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter, + this.GroupHeader1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül, + this.Egységár, + this.Nettó_összeg, + this.ÁFA_összeg, + this.Bruttó_összeg, + this.Számla_száma}); + this.DisplayName = "C3C kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA (devizás).repx new file mode 100644 index 0000000..0f02359 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA (devizás).repx @@ -0,0 +1,501 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAErQzNDLUJhbmtuZXQgS2ltZW7FkSBzesOhbWxhIMOBRkEgKGRldml6w6FzKQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 30F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 33.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + this.GroupFooter1.Visible = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 23F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label3, + this.label4, + this.label9}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 3D; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(46.875F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoDEV", "{0:#,###0.000}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATDEV", "{0:#,###0.000}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(375F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV", "{0:#,###0.000}")}); + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(530F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 30F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label6, + this.label7, + this.label8}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(46.875F, 30F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "VAT % ÁFA %"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(120F, 30F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "VAT basis amount ÁFA alapösszeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(400F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(90F, 30F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT amount ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(550F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 30F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Gross amount Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(120F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoDEV")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(223.9584F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATDEV")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(357.2917F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(516.4584F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.BackColor = System.Drawing.Color.Silver; + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "C3C-Banknet Kimenő számla ÁFA (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 0, 0); + this.Name = "xafReport1"; + this.PageColor = System.Drawing.Color.Transparent; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA.repx new file mode 100644 index 0000000..14ee53f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA.repx @@ -0,0 +1,529 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField ÁFA_alapösszeg; + private DevExpress.XtraReports.UI.CalculatedField Áfa_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEgQzNDLUJhbmtuZXQgS2ltZW7FkSBzesOhbWxhIMOBRkE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.ÁFA_alapösszeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 30F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 33.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + this.GroupFooter1.Visible = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 23F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label3, + this.label4, + this.label9}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 3D; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_alapösszeg", "{0:#,###0}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_összeg", "{0:#,###0}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(375F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg", "{0:#,###0}")}); + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(530F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 30F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label6, + this.label7, + this.label8}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(46.875F, 30F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "VAT % ÁFA %"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(120F, 30F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "VAT basis amount ÁFA alapösszeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(400F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(90F, 30F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT amount ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(550F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 30F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Gross amount Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(120F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_alapösszeg")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(223.9584F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_összeg")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(357.2917F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(516.4584F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // ÁFA_alapösszeg + // + this.ÁFA_alapösszeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[AmountNettoHUF],[AmountNettoDE" + + "V])"; + this.ÁFA_alapösszeg.Name = "ÁFA_alapösszeg"; + // + // Áfa_összeg + // + this.Áfa_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\', iif(isnull([AmountVATHUF]),0,[" + + "AmountVATHUF]), iif(isnull([AmountVATDEV]),0,[AmountVATDEV] ))"; + this.Áfa_összeg.Name = "Áfa_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[AmountBruttoHUF],[AmountBrutto" + + "DEV])"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // xafReport1 + // + this.BackColor = System.Drawing.Color.Silver; + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.ÁFA_alapösszeg, + this.Áfa_összeg, + this.Bruttó_összeg}); + this.DisplayName = "C3C-Banknet Kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 0, 0); + this.Name = "xafReport1"; + this.PageColor = System.Drawing.Color.Transparent; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_regi.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_regi.repx new file mode 100644 index 0000000..7089f60 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_regi.repx @@ -0,0 +1,501 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEgQzNDLUJhbmtuZXQgS2ltZW7FkSBzesOhbWxhIMOBRkE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 30F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 33.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + this.GroupFooter1.Visible = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 23F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label3, + this.label4, + this.label9}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 3D; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(46.875F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,###}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,###}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(375F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,###}")}); + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(530F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 30F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label6, + this.label7, + this.label8}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(46.875F, 30F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "VAT % ÁFA %"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(120F, 30F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "VAT basis amount ÁFA alapösszeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(400F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(90F, 30F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT amount ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(550F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 30F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Gross amount Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(120F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(223.9584F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(357.2917F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(516.4584F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.BackColor = System.Drawing.Color.Silver; + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "C3C-Banknet Kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 0, 0); + this.Name = "xafReport1"; + this.PageColor = System.Drawing.Color.Transparent; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_uni.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_uni.repx new file mode 100644 index 0000000..93952c0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/C3C-Banknet Kimenő számla ÁFA_uni.repx @@ -0,0 +1,529 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField ÁFA_alapösszeg; + private DevExpress.XtraReports.UI.CalculatedField Áfa_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEgQzNDLUJhbmtuZXQgS2ltZW7FkSBzesOhbWxhIMOBRkE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.ÁFA_alapösszeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 30F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 33.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + this.GroupFooter1.Visible = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 23F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label3, + this.label4, + this.label9}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 3D; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(46.875F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_alapösszeg", "{0:#,###0.00}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_összeg", "{0:#,###0.00}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(375F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg", "{0:#,###0.00}")}); + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(530F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 30F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label6, + this.label7, + this.label8}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(120F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(46.875F, 30F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "VAT % ÁFA %"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(250F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(120F, 30F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "VAT basis amount ÁFA alapösszeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(400F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(90F, 30F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "VAT amount ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(550F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 30F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Gross amount Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(120F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ÁFA_alapösszeg")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(223.9584F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,###0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_összeg")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(357.2917F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,###0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_összeg")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(516.4584F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,###0.00}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // ÁFA_alapösszeg + // + this.ÁFA_alapösszeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[AmountNettoHUF],[AmountNettoDE" + + "V])"; + this.ÁFA_alapösszeg.Name = "ÁFA_alapösszeg"; + // + // Áfa_összeg + // + this.Áfa_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\', iif(isnull([AmountVATHUF]),0,[" + + "AmountVATHUF]), iif(isnull([AmountVATDEV]),0,[AmountVATDEV] ))"; + this.Áfa_összeg.Name = "Áfa_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif( [InvoiceHeader.CurrencyName.ShortName]=\'HUF\',[AmountBruttoHUF],[AmountBrutto" + + "DEV])"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // xafReport1 + // + this.BackColor = System.Drawing.Color.Silver; + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.ÁFA_alapösszeg, + this.Áfa_összeg, + this.Bruttó_összeg}); + this.DisplayName = "C3C-Banknet Kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 0, 0); + this.Name = "xafReport1"; + this.PageColor = System.Drawing.Color.Transparent; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla C.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla C.repx new file mode 100644 index 0000000..b9b9f81 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla C.repx @@ -0,0 +1,1830 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRLabel label74; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRLabel label78; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRLabel label86; + private DevExpress.XtraReports.UI.XRLabel label79; + private DevExpress.XtraReports.UI.XRLabel label80; + private DevExpress.XtraReports.UI.XRLabel label87; + private DevExpress.XtraReports.UI.XRLabel label81; + private DevExpress.XtraReports.UI.XRLabel label88; + private DevExpress.XtraReports.UI.XRLabel label82; + private DevExpress.XtraReports.UI.XRLabel label84; + private DevExpress.XtraReports.UI.XRLabel label83; + private DevExpress.XtraReports.UI.XRLabel label85; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label73; + private DevExpress.XtraReports.UI.XRLabel label76; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label69; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField vtsz; + private DevExpress.XtraReports.UI.CalculatedField Leírás_vtsz_nélkül; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAJAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywSihns/GdLje4/Hf4KwTUeIfMQn2AYdpRdUcG3lWAAAAAAAAACoBAACOAAAAZwAAAPQAAAANAQAAK" + + "wAAAL8AAABBAgAAJiQAdABoAGkAcwAuAFMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAd" + + "ABhAFMAbwB1AHIAYwBlAEMAbABhAHMAcwBOAGEAbQBlAOUAAAAMRgBpAGwAdABlAHIABQEAACJGAGkAb" + + "AB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAaQBvAG4ABwEAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpA" + + "GcAbgBQAHIAZQB2AGkAZQB3AAkBAAAwUABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAc" + + "ABlAE4AYQBtAGUACwEAABRSAGUAcABvAHIAdABOAGEAbQBlAAwBAAAYbABhAGIAZQBsADYAOQAuAFQAZ" + + "QB4AHQAMgEAABZsAGEAYgBlAGwAOAAuAFQAZQB4AHQA6wMAAAHiAVByaXZhdGUgU3ViIHN1YnJlcG9yd" + + "DFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd" + + "2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlc" + + "G9ydFNvdXJjZS5GaWx0ZXJTdHJpbmc9Ikludm9pY2VIZWFkZXIuT2lkPSciICYgbGFiZWwxNS5UZXh0L" + + "lRvU3RyaW5nICYgIiciDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZvaWNlUm93cwEAA" + + "QABAAABJENpcGtlciBJbnRlZ3LDoXRvciBraW1lbsWRIHN6w6FtbGEgQwG2BUEgc3rDoWxsw610w7Mga" + + "2lqZWxlbnRpLCBob2d5IGEgamVsZW4gc3rDoW1sYSBhbGFwasOhbiBrZWxldGtlesWRIGvDtnZldGVsw" + + "6lzw6l0IGEgS8O2cm1lbmQgw6lzIFZpZMOpa2UgVGFrYXLDqWtzesO2dmV0a2V6ZXRyZSBlbmdlZG3Dq" + + "W55ZXppLiBBIHN6w6FtbGEgYWzDocOtcsOhc8OhdmFsIGEgdmV2xZEgZXp0IHR1ZG9tw6FzdWwgdmVze" + + "mksIMOpcyBraWplbGVudGksIGhvZ3kgYSBzesOhbWxhIGFsYXBqw6F1bCBzem9sZ8OhbMOzIGvDtnZld" + + "GVsw6lzIMOpcnbDqW55ZXNlbiBsw6l0cmVqw7Z0dCwgdmFsYW1pbnQgbGVtb25kIGFycsOzbCwgaG9ne" + + "SBheiBlbmdlZG3DqW55ZXpldHQga8O2dmV0ZWzDqXMgdGVraW50ZXTDqWJlbiBhIFN6w6FsbMOtdMOzd" + + "mFsIHN6ZW1iZW4gZmVubsOhbGzDsyB2YWd5IGtlbGV0a2V6xZEgZXNldGxlZ2VzIGvDtnZldGVsw6lzZ" + + "WkgbWlhdHQgYmVzesOhbcOtdMOhc3NhbCDDqWxqZW4uIFZldsWRIGEgc3rDoW1sYSBhbGFwasOhbiBrZ" + + "WxldGtlesWRIGZpemV0w6lzaSBrw7Z0ZWxlemV0dHPDqWfDqXQgYSAxMTUwMDExOS0xMDAwMDkwOCBze" + + "i4gSFVGIGVuZ2VkbcOpbnllesOpc2kgc3rDoW1sw6FyYSB0ZWxqZXPDrXRpLCBhbWl0xZFsIGNzYWsgY" + + "SBLw7ZybWVuZCDDqXMgVmlkw6lrZSBUYWthcsOpa3N6w7Z2ZXRrZXpldCBlbMWRemV0ZXMgZW5nZWTDq" + + "Wx5w6l2ZWwgdMOpcmhldCBlbC4BlQJBIENJUEtFUiBJbnRlZ3LDoXRvciBLZnQuIHN6w6FtbMOhesOhc" + + "2kgcmVuZHN6ZXJlIHrDoXJ0LCBtZWdmZWxlbCBhIDI0LzE5OTUuIChYSS4yMikgUE0gcmVuZGVsZXQgM" + + "S4gwqcgKDYpIGJla2V6ZMOpcyBzemVyaW50aSBlbMWRw61yw6FzYWluYWsuIEEgMjAwMC4gw6l2aSBDL" + + "iB0w7ZydsOpbnkgMTY3LiDCpyAtYSBhbGFwasOhbiBhIHN6w6FtbGEgYWzDocOtcsOhcyBuw6lsa8O8b" + + "CBpcyBoaXRlbGVzLiBLw7Z6dmV0w610ZXR0IHN6b2xnw6FsdGF0w6Fzb2thdCBpcyB0YXJ0YWxtYXou"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label74 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label78 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label86 = new DevExpress.XtraReports.UI.XRLabel(); + this.label79 = new DevExpress.XtraReports.UI.XRLabel(); + this.label80 = new DevExpress.XtraReports.UI.XRLabel(); + this.label87 = new DevExpress.XtraReports.UI.XRLabel(); + this.label81 = new DevExpress.XtraReports.UI.XRLabel(); + this.label88 = new DevExpress.XtraReports.UI.XRLabel(); + this.label82 = new DevExpress.XtraReports.UI.XRLabel(); + this.label84 = new DevExpress.XtraReports.UI.XRLabel(); + this.label83 = new DevExpress.XtraReports.UI.XRLabel(); + this.label85 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label73 = new DevExpress.XtraReports.UI.XRLabel(); + this.label76 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label69 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.vtsz = new DevExpress.XtraReports.UI.CalculatedField(); + this.Leírás_vtsz_nélkül = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table4}); + this.detailBand1.HeightF = 20.52083F; + this.detailBand1.KeepTogether = true; + this.detailBand1.MultiColumn.Mode = DevExpress.XtraReports.UI.MultiColumnMode.UseColumnCount; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 14F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table6, + this.table1, + this.table2, + this.label15}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 10F); + this.PageHeader.HeightF = 250.4027F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3, + this.label14, + this.label8, + this.label4, + this.label69, + this.label1, + this.subreport1}); + this.ReportFooter.HeightF = 384.4583F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseTextAlignment = false; + this.ReportFooter.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label66}); + this.PageFooter.HeightF = 21.875F; + this.PageFooter.Name = "PageFooter"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5}); + this.GroupHeader1.HeightF = 52.08333F; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // table4 + // + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table4.SizeF = new System.Drawing.SizeF(777F, 20.52083F); + // + // tableRow4 + // + this.tableRow4.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell11, + this.tableCell20, + this.tableCell24, + this.tableCell21, + this.tableCell23, + this.tableCell22, + this.tableCell25, + this.tableCell19}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.StylePriority.UseBorders = false; + this.tableRow4.Weight = 0.36014622193172319D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.Weight = 0.59182497427246772D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label44}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.Weight = 1.2000194441306056D; + // + // tableCell20 + // + this.tableCell20.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell20.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label45}); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.Text = "tableCell20"; + this.tableCell20.Weight = 0.88982315805438561D; + // + // tableCell24 + // + this.tableCell24.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell24.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label74}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.Weight = 0.80107473560383224D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell21.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.Weight = 0.8114620504779233D; + // + // tableCell23 + // + this.tableCell23.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell23.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label47}); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseBorders = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.Weight = 0.900918443865795D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell22.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label48}); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.Weight = 0.60161675056055441D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell25.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label49}); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.Weight = 0.90024012311207757D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell19.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label50}); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.Text = "tableCell19"; + this.tableCell19.Weight = 1.0730197094071172D; + // + // label43 + // + this.label43.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label43.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(1.041685F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(58.12495F, 20.00004F); + this.label43.StylePriority.UseBorderDashStyle = false; + this.label43.StylePriority.UseBorders = false; + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label44 + // + this.label44.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label44.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(0.05719757F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(119.7968F, 20.11909F); + this.label44.StylePriority.UseBorderDashStyle = false; + this.label44.StylePriority.UseBorders = false; + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label45 + // + this.label45.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label45.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#.00}")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(1.525879E-05F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(82F, 20.00001F); + this.label45.StylePriority.UseBorderDashStyle = false; + this.label45.StylePriority.UseBorders = false; + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label74 + // + this.label74.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label74.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label74.Font = new System.Drawing.Font("Arial", 8F); + this.label74.LocationFloat = new DevExpress.Utils.PointFloat(0.08609009F, 0F); + this.label74.Name = "label74"; + this.label74.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label74.SizeF = new System.Drawing.SizeF(79.99991F, 20.00004F); + this.label74.StylePriority.UseBorderDashStyle = false; + this.label74.StylePriority.UseBorders = false; + this.label74.StylePriority.UseFont = false; + this.label74.StylePriority.UseTextAlignment = false; + this.label74.Text = "label74"; + this.label74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label46 + // + this.label46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label46.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceHUF", "{0:#,0.00}")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0.5207698F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(77F, 20.00001F); + this.label46.StylePriority.UseBorderDashStyle = false; + this.label46.StylePriority.UseBorders = false; + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label47 + // + this.label47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label47.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,0.00}")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(0.06768799F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(85F, 20.00004F); + this.label47.StylePriority.UseBorderDashStyle = false; + this.label47.StylePriority.UseBorders = false; + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label48.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValue", "{0:0%}")}); + this.label48.Font = new System.Drawing.Font("Arial", 8F); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(0.08734131F, 0F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(57F, 20.00004F); + this.label48.StylePriority.UseBorderDashStyle = false; + this.label48.StylePriority.UseBorders = false; + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label49.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,0.00}")}); + this.label49.Font = new System.Drawing.Font("Arial", 8F); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(6.103516E-05F, 0F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(87F, 20.00004F); + this.label49.StylePriority.UseBorderDashStyle = false; + this.label49.StylePriority.UseBorders = false; + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label50 + // + this.label50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label50.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,0.00}")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(0.08703613F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(104F, 20.00004F); + this.label50.StylePriority.UseBorderDashStyle = false; + this.label50.StylePriority.UseBorders = false; + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table6 + // + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20.13888F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow7, + this.tableRow6}); + this.table6.SizeF = new System.Drawing.SizeF(777F, 146.5277F); + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 186.6666F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 42.3611F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 229.0277F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 21F); + this.table2.StylePriority.UseBorders = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(347.83F, 20F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell16, + this.tableCell17, + this.tableCell18}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.40865433371287818D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell13, + this.tableCell14, + this.tableCell15}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.2355765330296975D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell10, + this.tableCell12}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 1.3846149919141033D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell16.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label78}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.Weight = 1.5108750917958904D; + // + // tableCell17 + // + this.tableCell17.Name = "tableCell17"; + this.tableCell17.Weight = 0.14371044960220297D; + // + // tableCell18 + // + this.tableCell18.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label3}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.Weight = 1.4205891251318896D; + // + // label78 + // + this.label78.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label78.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label78.Font = new System.Drawing.Font("Arial", 16F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label78.LocationFloat = new DevExpress.Utils.PointFloat(5.000051F, 6.484985E-05F); + this.label78.Name = "label78"; + this.label78.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label78.SizeF = new System.Drawing.SizeF(369.9889F, 29.16663F); + this.label78.StylePriority.UseBorders = false; + this.label78.StylePriority.UseFont = false; + this.label78.StylePriority.UseTextAlignment = false; + this.label78.Text = "label78"; + this.label78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 16F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 6.103516E-05F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(345.9544F, 29.16663F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "SZÁMLA"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.Weight = 1.5108750917958904D; + // + // tableCell14 + // + this.tableCell14.Name = "tableCell14"; + this.tableCell14.Weight = 0.14371044960220297D; + // + // tableCell15 + // + this.tableCell15.Name = "tableCell15"; + this.tableCell15.Weight = 1.4205891251318896D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label86, + this.label79, + this.label80, + this.label87, + this.label81, + this.label88, + this.label82, + this.label84, + this.label83, + this.label85}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.Weight = 1.5108752127390928D; + // + // tableCell10 + // + this.tableCell10.Name = "tableCell10"; + this.tableCell10.Weight = 0.14371032424445585D; + // + // tableCell12 + // + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell12.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label13, + this.label73, + this.label76, + this.label34, + this.label12}); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.Text = "tableCell12"; + this.tableCell12.Weight = 1.4205891295464346D; + // + // label86 + // + this.label86.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label86.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label86.LocationFloat = new DevExpress.Utils.PointFloat(46.6668F, 1.999993F); + this.label86.Name = "label86"; + this.label86.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label86.SizeF = new System.Drawing.SizeF(328.3223F, 16F); + this.label86.StylePriority.UseBorders = false; + this.label86.StylePriority.UseTextAlignment = false; + this.label86.Text = "label86"; + this.label86.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label79 + // + this.label79.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label79.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label79.LocationFloat = new DevExpress.Utils.PointFloat(5.000051F, 1.999993F); + this.label79.Name = "label79"; + this.label79.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label79.SizeF = new System.Drawing.SizeF(41.66667F, 16F); + this.label79.StylePriority.UseBorders = false; + this.label79.StylePriority.UseFont = false; + this.label79.StylePriority.UseTextAlignment = false; + this.label79.Text = "Cím:"; + this.label79.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label80 + // + this.label80.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label80.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label80.LocationFloat = new DevExpress.Utils.PointFloat(5.000135F, 18F); + this.label80.Name = "label80"; + this.label80.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label80.SizeF = new System.Drawing.SizeF(59.16662F, 16F); + this.label80.StylePriority.UseBorders = false; + this.label80.StylePriority.UseFont = false; + this.label80.StylePriority.UseTextAlignment = false; + this.label80.Text = "Tel./fax:"; + this.label80.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label87 + // + this.label87.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label87.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.PhoneNumbers.Number")}); + this.label87.LocationFloat = new DevExpress.Utils.PointFloat(64.16677F, 18F); + this.label87.Name = "label87"; + this.label87.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label87.SizeF = new System.Drawing.SizeF(310.8223F, 16F); + this.label87.StylePriority.UseBorders = false; + this.label87.StylePriority.UseTextAlignment = false; + this.label87.Text = "label87"; + this.label87.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label81 + // + this.label81.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label81.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label81.LocationFloat = new DevExpress.Utils.PointFloat(5.000135F, 33.99999F); + this.label81.Name = "label81"; + this.label81.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label81.SizeF = new System.Drawing.SizeF(59.16662F, 16F); + this.label81.StylePriority.UseBorders = false; + this.label81.StylePriority.UseFont = false; + this.label81.StylePriority.UseTextAlignment = false; + this.label81.Text = "E-mail:"; + this.label81.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label88 + // + this.label88.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label88.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Email")}); + this.label88.LocationFloat = new DevExpress.Utils.PointFloat(64.16681F, 33.99999F); + this.label88.Name = "label88"; + this.label88.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label88.SizeF = new System.Drawing.SizeF(310.8223F, 16F); + this.label88.StylePriority.UseBorders = false; + this.label88.StylePriority.UseTextAlignment = false; + this.label88.Text = "label88"; + this.label88.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label82 + // + this.label82.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label82.LocationFloat = new DevExpress.Utils.PointFloat(5.000114F, 66.00003F); + this.label82.Name = "label82"; + this.label82.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label82.SizeF = new System.Drawing.SizeF(135F, 16F); + this.label82.StylePriority.UseBorders = false; + this.label82.StylePriority.UseTextAlignment = false; + this.label82.Text = "Bankszámla száma:"; + this.label82.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label84 + // + this.label84.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label84.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label84.LocationFloat = new DevExpress.Utils.PointFloat(140F, 66.00002F); + this.label84.Name = "label84"; + this.label84.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label84.SizeF = new System.Drawing.SizeF(234.989F, 16F); + this.label84.StylePriority.UseBorders = false; + this.label84.StylePriority.UseTextAlignment = false; + this.label84.Text = "label84"; + this.label84.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label83 + // + this.label83.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label83.Font = new System.Drawing.Font("Arial", 10F); + this.label83.LocationFloat = new DevExpress.Utils.PointFloat(5.000051F, 82.00003F); + this.label83.Name = "label83"; + this.label83.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label83.SizeF = new System.Drawing.SizeF(178.9634F, 16F); + this.label83.StylePriority.UseBorders = false; + this.label83.StylePriority.UseFont = false; + this.label83.StylePriority.UseTextAlignment = false; + this.label83.Text = "Adóigazgatósági azonosító:"; + this.label83.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label85 + // + this.label85.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label85.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label85.Font = new System.Drawing.Font("Arial", 10F); + this.label85.LocationFloat = new DevExpress.Utils.PointFloat(183.9635F, 82.00005F); + this.label85.Name = "label85"; + this.label85.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label85.SizeF = new System.Drawing.SizeF(191.0255F, 16F); + this.label85.StylePriority.UseBorders = false; + this.label85.StylePriority.UseFont = false; + this.label85.StylePriority.UseTextAlignment = false; + this.label85.Text = "label85"; + this.label85.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label13 + // + this.label13.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(5F, 2F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(345.95F, 16F); + this.label13.StylePriority.UseBorders = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label73 + // + this.label73.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label73.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Address_City")}); + this.label73.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label73.LocationFloat = new DevExpress.Utils.PointFloat(5.000009F, 18F); + this.label73.Name = "label73"; + this.label73.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label73.SizeF = new System.Drawing.SizeF(345.9543F, 16F); + this.label73.StylePriority.UseBorders = false; + this.label73.StylePriority.UseFont = false; + this.label73.StylePriority.UseTextAlignment = false; + this.label73.Text = "label73"; + this.label73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label76 + // + this.label76.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label76.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Address_Street")}); + this.label76.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label76.LocationFloat = new DevExpress.Utils.PointFloat(5.000093F, 33.99999F); + this.label76.Name = "label76"; + this.label76.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label76.SizeF = new System.Drawing.SizeF(345.9543F, 16F); + this.label76.StylePriority.UseBorders = false; + this.label76.StylePriority.UseFont = false; + this.label76.StylePriority.UseTextAlignment = false; + this.label76.Text = "label76"; + this.label76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label34 + // + this.label34.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label34.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(4.478709F, 82.00006F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(79.99982F, 16F); + this.label34.StylePriority.UseBorders = false; + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Adószám:"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label12 + // + this.label12.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(85.00023F, 82.00008F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(265.9542F, 16F); + this.label12.StylePriority.UseBorders = false; + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell5}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label16}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 1.5700000983968989D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label26, + this.label18}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.5700000983968989D; + // + // tableCell3 + // + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 1.5700000640629945D; + // + // tableCell4 + // + this.tableCell4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label28, + this.label22}); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "tableCell4"; + this.tableCell4.Weight = 1.5700001006185D; + // + // tableCell5 + // + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.label24}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.5899987229973633D; + // + // label25 + // + this.label25.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 10F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 22.3611F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetés módja:"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.Font = new System.Drawing.Font("Arial", 10F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.99999F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Teljesítés időpontja:"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.99999F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label27.StylePriority.UseBorders = false; + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(8.477105E-05F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Számla kelte:"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label28.Font = new System.Drawing.Font("Arial", 10F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.99999F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label28.StylePriority.UseBorders = false; + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(155.0051F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Fizetési határidő:"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0.0001695421F, 20.00001F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(149F, 20F); + this.label29.StylePriority.UseBorders = false; + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0F, 2.119276E-05F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(152.1879F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Számla sorszáma:"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 0.86956521739130443D; + // + // tableCell6 + // + this.tableCell6.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageInfo1}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.Weight = 3D; + // + // pageInfo1 + // + this.pageInfo1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.pageInfo1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.pageInfo1.Format = "1. EREDETI PÉLDÁNY {0}/{1}. OLDAL"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(0.7500966F, 0F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(775.8548F, 20.00002F); + this.pageInfo1.StylePriority.UseBorders = false; + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 85.41665F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3, + this.tableRow9}); + this.table3.SizeF = new System.Drawing.SizeF(777F, 44.99998F); + this.table3.StylePriority.UseBorders = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber", "Szerződésszám: {0}")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 130.4166F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(776.8964F, 23F); + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 8F); + this.label8.KeepTogether = true; + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(3.041077F, 340F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(774.9589F, 41.74994F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = resources.GetString("label8.Text"); + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(455.2083F, 297.9999F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(297.9167F, 23.00003F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "vevő"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label69 + // + this.label69.Font = new System.Drawing.Font("Arial", 8F); + this.label69.KeepTogether = true; + this.label69.LocationFloat = new DevExpress.Utils.PointFloat(0F, 165.9167F); + this.label69.Name = "label69"; + this.label69.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label69.SizeF = new System.Drawing.SizeF(777F, 78.95837F); + this.label69.StylePriority.UseFont = false; + this.label69.StylePriority.UseTextAlignment = false; + this.label69.Text = resources.GetString("label69.Text"); + this.label69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(78.87082F, 297.9999F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(135.7552F, 23.00002F); + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "A számla végösszege:"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Cipker Integrátor kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(777F, 85.41666F); + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell35}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1D; + // + // tableCell35 + // + this.tableCell35.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10}); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.Weight = 3D; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 1.525879E-05F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(775.3965F, 22.49998F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "A számla végösszege: {0:#,0.00} Ft"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableCell7 + // + this.tableCell7.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.Weight = 3D; + // + // label9 + // + this.label9.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(2.980232E-08F, 7.629395E-06F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(776.4383F, 22.49997F); + this.label9.StylePriority.UseBorders = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label66 + // + this.label66.Font = new System.Drawing.Font("Arial", 5F, System.Drawing.FontStyle.Bold); + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label66.StylePriority.UseFont = false; + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Készült: SIS-Business 2.0"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table5 + // + this.table5.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table5.SizeF = new System.Drawing.SizeF(777F, 32F); + this.table5.StylePriority.UseBorders = false; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell29, + this.tableCell26, + this.tableCell30, + this.tableCell27, + this.tableCell32, + this.tableCell31, + this.tableCell33, + this.tableCell34, + this.tableCell28}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableCell29 + // + this.tableCell29.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2}); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.Weight = 0.22872466557317872D; + // + // tableCell26 + // + this.tableCell26.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label36}); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.Text = "tableCell26"; + this.tableCell26.Weight = 0.46310722696980217D; + // + // tableCell30 + // + this.tableCell30.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5}); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.Text = "tableCell30"; + this.tableCell30.Weight = 0.34389313442391128D; + // + // tableCell27 + // + this.tableCell27.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6}); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.Weight = 0.30896333230346673D; + // + // tableCell32 + // + this.tableCell32.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label7}); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.Text = "tableCell32"; + this.tableCell32.Weight = 0.31356722591415043D; + // + // tableCell31 + // + this.tableCell31.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label39}); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.Weight = 0.34758344189509377D; + // + // tableCell33 + // + this.tableCell33.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label40}); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.Weight = 0.23228395925153494D; + // + // tableCell34 + // + this.tableCell34.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label38}); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.Text = "tableCell34"; + this.tableCell34.Weight = 0.34758342194171549D; + // + // tableCell28 + // + this.tableCell28.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42}); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.Text = "tableCell28"; + this.tableCell28.Weight = 0.41429359172714647D; + // + // label2 + // + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0.1666387F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(59F, 32F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "SZJ/VTSZ"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label36.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(6.347895E-06F, 0F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(119.7969F, 32F); + this.label36.StylePriority.UseBorders = false; + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = " MEGNEVEZÉS"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(88.9584F, 32F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "SZÁMLÁZOTT MENNYISÉG"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 3.051758E-05F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(80F, 31.99997F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "SZÁMLÁZOTT EGYSÉG"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(81.12439F, 32F); + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "EGYSÉGÁR"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(3.051758E-05F, 1.335144E-05F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(90.02408F, 32F); + this.label39.StylePriority.UseBorders = false; + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA NÉLKÜLI ÖSSZEG"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label40 + // + this.label40.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label40.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(0.08734131F, 4.386902E-05F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(59.91296F, 31.99997F); + this.label40.StylePriority.UseBorders = false; + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA KULCS"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label38.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(0.0001220703F, 1.335144E-05F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(88F, 32F); + this.label38.StylePriority.UseBorders = false; + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "ÁFA ÖSSZEG "; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label42 + // + this.label42.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(0.08703613F, 1.335144E-05F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(104F, 32F); + this.label42.StylePriority.UseBorders = false; + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "ÖSSZESEN"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // vtsz + // + this.vtsz.Expression = "Reverse(Substring(Reverse([Description]),0,8))"; + this.vtsz.Name = "vtsz"; + // + // Leírás_vtsz_nélkül + // + this.Leírás_vtsz_nélkül.Expression = "Reverse(Remove(Reverse([Description]),0,12))"; + this.Leírás_vtsz_nélkül.Name = "Leírás_vtsz_nélkül"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.vtsz, + this.Leírás_vtsz_nélkül}); + this.DisplayName = "Cipker Integrátor kimenő számla C"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.Margins = new System.Drawing.Printing.Margins(24, 25, 20, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.PrinterName = "Microsoft XPS Document Writer"; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.ShowPrintMarginsWarning = false; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla ÁFA.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla ÁFA.repx new file mode 100644 index 0000000..b00c520 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Cipker Integrátor kimenő számla ÁFA.repx @@ -0,0 +1,742 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEnQ2lwa2VyIEludGVncsOhdG9yIGtpbWVuxZEgc3rDoW1sYSDDgUZB"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label4, + this.label2, + this.label3, + this.label9, + this.line5, + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 33F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.Visible = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.BackColor = System.Drawing.Color.Transparent; + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.line1, + this.label13, + this.label7, + this.label5, + this.label6, + this.label8, + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 86.00001F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseBackColor = false; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 1F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label21, + this.label19, + this.line4, + this.label18, + this.table4}); + this.ReportFooter.HeightF = 35.83333F; + this.ReportFooter.Name = "ReportFooter"; + // + // GroupHeader1 + // + this.GroupHeader1.Expanded = false; + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("VAT.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.line7, + this.label12, + this.label1, + this.label10, + this.table3}); + this.GroupFooter1.HeightF = 33.00002F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,###}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(537F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(119.9999F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,###}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(417.0001F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,###}")}); + this.label9.Font = new System.Drawing.Font("Arial", 8F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(657F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(118F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(297F, 22.99999F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(480F, 10F); + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(777F, 33F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.Weight = 3D; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(297.0002F, 73.99999F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(479.9999F, 10F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 33.00001F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(479.9999F, 14.99999F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 10.00001F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Összesítés:"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.BackColor = System.Drawing.Color.Transparent; + this.label7.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(537F, 48F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 26F); + this.label7.StylePriority.UseBackColor = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "ÁFA ÖSSZEG"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label5 + // + this.label5.BackColor = System.Drawing.Color.Transparent; + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 48F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(120F, 26F); + this.label5.StylePriority.UseBackColor = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "ÁFA KULCS"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.BackColor = System.Drawing.Color.Transparent; + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(417.0001F, 48F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(120F, 26F); + this.label6.StylePriority.UseBackColor = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "NETTÓ ÖSSZEG"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label8 + // + this.label8.BackColor = System.Drawing.Color.Transparent; + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(657F, 48F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(118F, 26F); + this.label8.StylePriority.UseBackColor = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "BRUTTÓ ÖSSZEG"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 3.000005F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(777F, 83F); + this.table1.StylePriority.UseBorders = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Weight = 3D; + // + // label20 + // + this.label20.BackColor = System.Drawing.Color.Transparent; + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF")}); + this.label20.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(417.0001F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(120.0001F, 23F); + this.label20.StylePriority.UseBackColor = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label20.Summary = summary1; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label21 + // + this.label21.BackColor = System.Drawing.Color.Transparent; + this.label21.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 0F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(120.0001F, 23F); + this.label21.StylePriority.UseBackColor = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Mindösszesen:"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label19 + // + this.label19.BackColor = System.Drawing.Color.Transparent; + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF")}); + this.label19.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(537F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label19.StylePriority.UseBackColor = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label19.Summary = summary2; + this.label19.Text = "label19"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line4 + // + this.line4.BackColor = System.Drawing.Color.Transparent; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(297.0001F, 23.00002F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(480F, 10F); + this.line4.StylePriority.UseBackColor = false; + // + // label18 + // + this.label18.BackColor = System.Drawing.Color.Transparent; + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label18.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(657F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118F, 23F); + this.label18.StylePriority.UseBackColor = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label18.Summary = summary3; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table4 + // + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table4.SizeF = new System.Drawing.SizeF(777.0002F, 35.83333F); + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.Weight = 3D; + // + // label11 + // + this.label11.BackColor = System.Drawing.Color.Transparent; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(416.9999F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120.0001F, 23F); + this.label11.StylePriority.UseBackColor = false; + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##0}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary4; + this.label11.Text = "label10"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.BackColor = System.Drawing.Color.Transparent; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(296.9999F, 23.00002F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(480F, 10F); + this.line7.StylePriority.UseBackColor = false; + // + // label12 + // + this.label12.BackColor = System.Drawing.Color.Transparent; + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(296.9999F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.0001F, 23F); + this.label12.StylePriority.UseBackColor = false; + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label1"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.BackColor = System.Drawing.Color.Transparent; + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(657F, 3.178914E-05F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(118F, 23F); + this.label1.StylePriority.UseBackColor = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##0}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label1.Summary = summary5; + this.label1.Text = "label12"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label10 + // + this.label10.BackColor = System.Drawing.Color.Transparent; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(537F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(120F, 23F); + this.label10.StylePriority.UseBackColor = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##0}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary6; + this.label10.Text = "label11"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table3 + // + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 3.178914E-05F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(777.0002F, 32.99999F); + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.Weight = 3D; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.GroupHeader1, + this.GroupFooter1}); + this.DisplayName = "Cipker Integrátor kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(25, 25, 0, 1); + this.Name = "xafReport1"; + this.PageColor = System.Drawing.Color.Transparent; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás-visszavétel.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás-visszavétel.repx new file mode 100644 index 0000000..34f68e3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás-visszavétel.repx @@ -0,0 +1,748 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUABwkAAAxGAGkAbAB0AGUAcgAwCQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgAyCQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcANAkAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQA2CQAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUANwkAAAGEElByaXZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCe" + + "VZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBya" + + "W50RXZlbnRBcmdzKQ0KCURpbSBfRml4ZWRBc3NldHNVc2luZ1Jvd3MgQXMgU2lzQnVzaW5lc3MuTW9kd" + + "WxlLkZpeGVkQXNzZXRzVXNpbmdSb3dzID0gIFRyeUNhc3QoVHJ5Q2FzdChUcnlDYXN0KFRyeUNhc3QoV" + + "HJ5Q2FzdChzZW5kZXIsIERldkV4cHJlc3MuWHRyYVJlcG9ydHMuVUkuWFJMYWJlbCkuUmVwb3J0LCBfI" + + "A0KCQlEZXZFeHByZXNzLkV4cHJlc3NBcHAuUmVwb3J0cy5YYWZSZXBvcnQpLkRhdGFTb3VyY2UsIERld" + + "kV4cHJlc3MuRXhwcmVzc0FwcC5Qcm94eUNvbGxlY3Rpb24pLk9yaWdpbmFsQ29sbGVjdGlvbiwgXyANC" + + "gkJRGV2RXhwcmVzcy5YcG8uWFBDb2xsZWN0aW9uKSgwKSwgU2lzQnVzaW5lc3MuTW9kdWxlLkZpeGVkQ" + + "XNzZXRzVXNpbmdSb3dzKQ0KCQ0KCWlmIF9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1Vza" + + "W5nSGVhZGVyLkZpeGVkQXNzZXRzVXNpbmdNb3ZlVHlwZT0wIHRoZW4NCgkJbGFiZWwxLlRleHQ9IkVze" + + "mvDtnogdmlzc3phdsOpdGVsIg0KCWVuZCBpZg0KCWlmIF9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZ" + + "EFzc2V0c1VzaW5nSGVhZGVyLkZpeGVkQXNzZXRzVXNpbmdNb3ZlVHlwZT0xIHRoZW4NCgkJbGFiZWwxL" + + "lRleHQ9IkVzemvDtnoga2lhZMOhcyINCgllbmQgaWYNCg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBsY" + + "WJlbDExX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtL" + + "kRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoJRGltIF9GaXhlZEFzc2V0c1VzaW5nUm93c" + + "yBBcyBTaXNCdXNpbmVzcy5Nb2R1bGUuRml4ZWRBc3NldHNVc2luZ1Jvd3MgPSAgVHJ5Q2FzdChUcnlDY" + + "XN0KFRyeUNhc3QoVHJ5Q2FzdChUcnlDYXN0KHNlbmRlciwgRGV2RXhwcmVzcy5YdHJhUmVwb3J0cy5VS" + + "S5YUkxhYmVsKS5SZXBvcnQsIF8gDQoJCURldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzLlhhZlJlc" + + "G9ydCkuRGF0YVNvdXJjZSwgRGV2RXhwcmVzcy5FeHByZXNzQXBwLlByb3h5Q29sbGVjdGlvbikuT3JpZ" + + "2luYWxDb2xsZWN0aW9uLCBfIA0KCQlEZXZFeHByZXNzLlhwby5YUENvbGxlY3Rpb24pKDApLCBTaXNCd" + + "XNpbmVzcy5Nb2R1bGUuRml4ZWRBc3NldHNVc2luZ1Jvd3MpDQoJDQoJaWYgX0ZpeGVkQXNzZXRzVXNpb" + + "mdSb3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuRml4ZWRBc3NldHNVc2luZ1R5cGU9MSBUaGVuDQoJC" + + "WxhYmVsMTEuVGV4dD1fRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ0hlYWRlci5IU" + + "lBlcnNvbi5GdWxsTmFtZQ0KCQlpZiBfRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ" + + "0hlYWRlci5IUlBlcnNvbi5Db250YWN0IGlzbm90IG5vdGhpbmcgVGhlbg0KCQkJaWYgX0ZpeGVkQXNzZ" + + "XRzVXNpbmdSb3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuSFJQZXJzb24uQ29udGFjdC5DdXN0b21lc" + + "nMgaXNub3Qgbm90aGluZyB0aGVuDQoJCQkJbGFiZWwxMi5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93c" + + "y5GaXhlZEFzc2V0c1VzaW5nSGVhZGVyLkhSUGVyc29uLkNvbnRhY3QuQ3VzdG9tZXJzLkZ1bGxOYW1lD" + + "QoJCQkJbGFiZWwyMS5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1VzaW5nSGVhZ" + + "GVyLkhSUGVyc29uLkNvbnRhY3QuQ3VzdG9tZXJzLkFkZHJlc3MxLkZ1bGxBZGRyZXNzDQoNCgkJCWVsc" + + "2UNCgkJCQlsYWJlbDEyLlZpc2libGU9RmFsc2UNCgkJCWVuZCBpZg0KCQllbHNlCQ0KCQkJbGFiZWwxM" + + "i5WaXNpYmxlPUZhbHNlDQoJCWVuZCBpZg0KDQoJZW5kIGlmDQoJaWYgX0ZpeGVkQXNzZXRzVXNpbmdSb" + + "3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuRml4ZWRBc3NldHNVc2luZ1R5cGU9MCBUaGVuDQoJCWxhY" + + "mVsMTEuVGV4dD1fRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ0hlYWRlci5DdXN0b" + + "21lcnMuRnVsbE5hbWUNCgkJbGFiZWwyMS5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc" + + "2V0c1VzaW5nSGVhZGVyLkN1c3RvbWVycy5BZGRyZXNzMS5GdWxsQWRkcmVzcw0KDQoJZW5kIGlmDQoJa" + + "WYgX0ZpeGVkQXNzZXRzVXNpbmdSb3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuRml4ZWRBc3NldHNVc" + + "2luZ1R5cGU9MiBUaGVuDQoJCWxhYmVsMTEuVGV4dD1fRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc" + + "3NldHNVc2luZ0hlYWRlci5Db3N0SG9sZGVyLk5hbWUNCg0KCWVuZCBpZg0KRW5kIFN1Yg0KDQoBJ1NJU" + + "0J1c2luZXNzLk1vZHVsZS5GaXhlZEFzc2V0c1VzaW5nUm93cwEAAQABAAABHEVzemvDtnoga2lhZMOhc" + + "y92aXNzemF2w6l0ZWw="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.label5, + this.label4, + this.label3, + this.line1}); + this.detailBand1.HeightF = 113.5417F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label7, + this.label10, + this.line3, + this.line4, + this.pageInfo1, + this.pageInfo2}); + this.pageFooterBand1.HeightF = 107.3495F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label11, + this.label13, + this.label14, + this.label15, + this.label16, + this.label17, + this.label19, + this.label20, + this.label21, + this.NameOfCreator, + this.label8, + this.label9, + this.label42, + this.label18, + this.label23, + this.label31, + this.label33, + this.label45, + this.label29}); + this.reportHeaderBand1.HeightF = 140.5F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 117.7083F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line5, + this.label2, + this.line2}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("FixedAssets.FixedAssetsGroup1.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.16669F; + this.GroupHeader1.Name = "GroupHeader1"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(136.0416F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(131.6667F, 16.74999F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Leírás"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(130.0416F, 16.74999F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Megnevezés"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.Description")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(136.0416F, 18.75F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(131.6667F, 16.66667F); + this.label4.Text = "label4"; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.ShortName")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 18.75F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(131.6667F, 16.66667F); + this.label3.Text = "label3"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 16.75002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(42.18432F, 51.64115F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Átadó"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(498.4036F, 51.64115F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Átvevő"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 39.58333F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(201.9231F, 2.006409F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(446.6933F, 39.58333F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(200.7856F, 2.40382F); + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(1.999919F, 84.3495F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo1.StyleName = "PageInfo"; + // + // pageInfo2 + // + this.pageInfo2.Format = "{0}/{1} oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(326.9999F, 84.3495F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(395.3955F, 19.58335F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(252.0833F, 17.70833F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label11"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(395.3955F, 1.875019F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(252.0833F, 17.70833F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 110.2083F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Készítette:"; + // + // label14 + // + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 67.84725F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label14.Text = "label29"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 8F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 89.02779F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Bankszámlaszám:"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 46.66669F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Adószám:"; + // + // label17 + // + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 110.2083F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.label17.SizeF = new System.Drawing.SizeF(234.3748F, 16.74998F); + this.label17.Text = "NameOfCreator"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 67.84725F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Közösségi adószám:"; + // + // label20 + // + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 89.02779F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label33"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label21 + // + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(413.1039F, 46.66669F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(234.375F, 16.74999F); + this.label21.Text = "label42"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "UserCreated.FullName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 110.2083F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(234.3748F, 16.74998F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 1.875019F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 21.875F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(114.3749F, 46.66669F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(234.375F, 16.74999F); + this.label42.Text = "label42"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 46.66669F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 67.84725F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 89.02779F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 89.02779F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 110.2083F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 67.84725F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label29.Text = "label29"; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "FixedAssetsUsingHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label1 + // + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(48.70834F, 20.41667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(572.375F, 33F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Eszköz kiadás / visszavétel"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 19.16669F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // label2 + // + this.label2.BackColor = System.Drawing.Color.Transparent; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.FixedAssetsGroup1.ShortName")}); + this.label2.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 2.499994F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(639.6251F, 16.66667F); + this.label2.StylePriority.UseBackColor = false; + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1}); + this.DisplayName = "Eszköz kiadás/visszavétel"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(100, 100, 118, 100); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás_visszavétel.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás_visszavétel.repx new file mode 100644 index 0000000..a8b1dd4 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Eszköz kiadás_visszavétel.repx @@ -0,0 +1,755 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\richard.szenner\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAhAsAAAxGAGkAbAB0AGUAcgCtCwAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCvCwAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAsQsAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCzCwAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAtAsAAAGBF1ByaXZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCe" + + "VZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBya" + + "W50RXZlbnRBcmdzKQ0KCURpbSBfRml4ZWRBc3NldHNVc2luZ1Jvd3MgQXMgU2lzQnVzaW5lc3MuTW9kd" + + "WxlLkZpeGVkQXNzZXRzVXNpbmdSb3dzID0gIFRyeUNhc3QoVHJ5Q2FzdChUcnlDYXN0KFRyeUNhc3QoV" + + "HJ5Q2FzdChzZW5kZXIsIERldkV4cHJlc3MuWHRyYVJlcG9ydHMuVUkuWFJMYWJlbCkuUmVwb3J0LCBfI" + + "A0KCQlEZXZFeHByZXNzLkV4cHJlc3NBcHAuUmVwb3J0cy5YYWZSZXBvcnQpLkRhdGFTb3VyY2UsIERld" + + "kV4cHJlc3MuRXhwcmVzc0FwcC5Qcm94eUNvbGxlY3Rpb24pLk9yaWdpbmFsQ29sbGVjdGlvbiwgXyANC" + + "gkJRGV2RXhwcmVzcy5YcG8uWFBDb2xsZWN0aW9uKSgwKSwgU2lzQnVzaW5lc3MuTW9kdWxlLkZpeGVkQ" + + "XNzZXRzVXNpbmdSb3dzKQ0KCQ0KCWlmIF9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1Vza" + + "W5nSGVhZGVyLkZpeGVkQXNzZXRzVXNpbmdNb3ZlVHlwZT0wIHRoZW4NCgkJbGFiZWwxLlRleHQ9IkVze" + + "mvDtnogdmlzc3phdsOpdGVsIg0KCWVuZCBpZg0KCWlmIF9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZ" + + "EFzc2V0c1VzaW5nSGVhZGVyLkZpeGVkQXNzZXRzVXNpbmdNb3ZlVHlwZT0xIHRoZW4NCgkJbGFiZWwxL" + + "lRleHQ9IkVzemvDtnoga2lhZMOhcyINCgllbmQgaWYNCg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBsY" + + "WJlbDExX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtL" + + "kRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoJRGltIF9GaXhlZEFzc2V0c1VzaW5nUm93c" + + "yBBcyBTaXNCdXNpbmVzcy5Nb2R1bGUuRml4ZWRBc3NldHNVc2luZ1Jvd3MgPSAgVHJ5Q2FzdChUcnlDY" + + "XN0KFRyeUNhc3QoVHJ5Q2FzdChUcnlDYXN0KHNlbmRlciwgRGV2RXhwcmVzcy5YdHJhUmVwb3J0cy5VS" + + "S5YUkxhYmVsKS5SZXBvcnQsIF8gDQoJCURldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzLlhhZlJlc" + + "G9ydCkuRGF0YVNvdXJjZSwgRGV2RXhwcmVzcy5FeHByZXNzQXBwLlByb3h5Q29sbGVjdGlvbikuT3JpZ" + + "2luYWxDb2xsZWN0aW9uLCBfIA0KCQlEZXZFeHByZXNzLlhwby5YUENvbGxlY3Rpb24pKDApLCBTaXNCd" + + "XNpbmVzcy5Nb2R1bGUuRml4ZWRBc3NldHNVc2luZ1Jvd3MpDQoJDQoJaWYgX0ZpeGVkQXNzZXRzVXNpb" + + "mdSb3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuRml4ZWRBc3NldHNVc2luZ1R5cGU9MSBUaGVuDQoJC" + + "WxhYmVsMTEuVGV4dD1fRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ0hlYWRlci5IU" + + "lBlcnNvbi5GdWxsTmFtZQ0KCQlpZiBfRml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ" + + "0hlYWRlci5IUlBlcnNvbi5Db250YWN0IGlzbm90IG5vdGhpbmcgVGhlbg0KCQkJaWYgX0ZpeGVkQXNzZ" + + "XRzVXNpbmdSb3dzLkZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuSFJQZXJzb24uQ29udGFjdC5DdXN0b21lc" + + "nMgaXNub3Qgbm90aGluZyB0aGVuDQoJCQkJbGFiZWwxMi5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93c" + + "y5GaXhlZEFzc2V0c1VzaW5nSGVhZGVyLkhSUGVyc29uLkNvbnRhY3QuQ3VzdG9tZXJzLkZ1bGxOYW1lD" + + "QoJCQkJbGFiZWwyMS5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1VzaW5nSGVhZ" + + "GVyLkhSUGVyc29uLkNvbnRhY3QuQ3VzdG9tZXJzLkFkZHJlc3MxLkZ1bGxBZGRyZXNzDQoNCgkJCWVsc" + + "2UNCgkJCQlsYWJlbDEyLlZpc2libGU9RmFsc2UNCgkJCWVuZCBpZg0KCQllbHNlCQ0KCQkJbGFiZWwxM" + + "i5WaXNpYmxlPUZhbHNlDQoJCWVuZCBpZg0KCQlsYWJlbDE1LlZpc2libGU9RmFsc2UNCgkJbGFiZWwxM" + + "y5WaXNpYmxlPUZhbHNlDQoJCWxhYmVsMTQuVmlzaWJsZT1GYWxzZQ0KCQlsYWJlbDE5LlZpc2libGU9R" + + "mFsc2UNCgkJbGFiZWwyMC5WaXNpYmxlPUZhbHNlDQoJCWxhYmVsMTcuVmlzaWJsZT1GYWxzZQ0KCWVuZ" + + "CBpZg0KCWlmIF9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1VzaW5nSGVhZGVyLkZpeGVkQ" + + "XNzZXRzVXNpbmdUeXBlPTAgVGhlbg0KCQlsYWJlbDExLlRleHQ9X0ZpeGVkQXNzZXRzVXNpbmdSb3dzL" + + "kZpeGVkQXNzZXRzVXNpbmdIZWFkZXIuQ3VzdG9tZXJzLkZ1bGxOYW1lDQoJCWxhYmVsMTIuVGV4dD1fR" + + "ml4ZWRBc3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ0hlYWRlci5DdXN0b21lcnMuQWRkcmVzc" + + "zEuRnVsbEFkZHJlc3MNCgkJbGFiZWwyMS5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc" + + "2V0c1VzaW5nSGVhZGVyLkN1c3RvbWVycy5WQVROdW1iZXINCgkJbGFiZWwxNC5UZXh0PV9GaXhlZEFzc" + + "2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1VzaW5nSGVhZGVyLkN1c3RvbWVycy5WQVROdW1iZXJFVQ0KC" + + "QlsYWJlbDE1LlZpc2libGU9RmFsc2UNCgkJbGFiZWwxMy5WaXNpYmxlPUZhbHNlDQoJCWxhYmVsMjAuV" + + "mlzaWJsZT1GYWxzZQ0KCQlsYWJlbDE3LlZpc2libGU9RmFsc2UNCgllbmQgaWYNCglpZiBfRml4ZWRBc" + + "3NldHNVc2luZ1Jvd3MuRml4ZWRBc3NldHNVc2luZ0hlYWRlci5GaXhlZEFzc2V0c1VzaW5nVHlwZT0yI" + + "FRoZW4NCgkJbGFiZWwxMS5UZXh0PV9GaXhlZEFzc2V0c1VzaW5nUm93cy5GaXhlZEFzc2V0c1VzaW5nS" + + "GVhZGVyLkNvc3RIb2xkZXIuTmFtZQ0KCQlsYWJlbDEyLlZpc2libGU9RmFsc2UNCg0KCQlsYWJlbDE1L" + + "lZpc2libGU9RmFsc2UNCgkJbGFiZWwxMy5WaXNpYmxlPUZhbHNlDQoJCWxhYmVsMTYuVmlzaWJsZT1GY" + + "WxzZQ0KCQlsYWJlbDE5LlZpc2libGU9RmFsc2UNCg0KCQlsYWJlbDIwLlZpc2libGU9RmFsc2UNCgkJb" + + "GFiZWwxNy5WaXNpYmxlPUZhbHNlDQoJCWxhYmVsMjEuVmlzaWJsZT1GYWxzZQ0KCQlsYWJlbDE0LlZpc" + + "2libGU9RmFsc2UNCgllbmQgaWYNCkVuZCBTdWINCg0KASdTSVNCdXNpbmVzcy5Nb2R1bGUuRml4ZWRBc" + + "3NldHNVc2luZ1Jvd3MBAAEAAQAAARxFc3prw7Z6IGtpYWTDoXMvdmlzc3phdsOpdGVs"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.label5, + this.label4, + this.label3, + this.line1}); + this.detailBand1.HeightF = 113.5417F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label7, + this.label10, + this.line3, + this.line4, + this.pageInfo1, + this.pageInfo2}); + this.pageFooterBand1.HeightF = 107.3495F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label11, + this.label13, + this.label14, + this.label15, + this.label16, + this.label17, + this.label19, + this.label20, + this.label21, + this.NameOfCreator, + this.label8, + this.label9, + this.label42, + this.label18, + this.label23, + this.label31, + this.label33, + this.label45, + this.label29}); + this.reportHeaderBand1.HeightF = 140.5F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 117.7083F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line5, + this.label2, + this.line2}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("FixedAssets.FixedAssetsGroup1.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.16669F; + this.GroupHeader1.Name = "GroupHeader1"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(136.0416F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(131.6667F, 16.74999F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Leírás"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(130.0416F, 16.74999F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Megnevezés"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.Description")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(136.0416F, 18.75F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(131.6667F, 16.66667F); + this.label4.Text = "label4"; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.ShortName")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 18.75F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(131.6667F, 16.66667F); + this.label3.Text = "label3"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 16.75002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(42.18432F, 51.64115F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Átadó"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(498.4036F, 51.64115F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Átvevő"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 39.58333F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(201.9231F, 2.006409F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(446.6933F, 39.58333F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(200.7856F, 2.40382F); + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(1.999919F, 84.3495F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo1.StyleName = "PageInfo"; + // + // pageInfo2 + // + this.pageInfo2.Format = "{0}/{1} oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(326.9999F, 84.3495F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(395.3955F, 19.58335F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(252.0833F, 17.70833F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label11"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(395.3955F, 1.875019F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(252.0833F, 17.70833F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 110.2083F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Készítette:"; + // + // label14 + // + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 67.84725F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label14.Text = "label29"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 8F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 89.02779F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Bankszámlaszám:"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 46.66669F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Adószám:"; + // + // label17 + // + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 110.2083F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.label17.SizeF = new System.Drawing.SizeF(234.3748F, 16.74998F); + this.label17.Text = "NameOfCreator"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(303.1039F, 67.84725F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Közösségi adószám:"; + // + // label20 + // + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(413.104F, 89.02779F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label33"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label21 + // + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(413.1039F, 46.66669F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(234.375F, 16.74999F); + this.label21.Text = "label42"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "UserCreated.FullName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 110.2083F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(234.3748F, 16.74998F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 1.875019F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 21.875F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(114.3749F, 46.66669F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(234.375F, 16.74999F); + this.label42.Text = "label42"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 46.66669F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 67.84725F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 89.02779F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 89.02779F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 110.2083F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssetsUsingHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(114.3751F, 67.84725F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(234.3749F, 16.74998F); + this.label29.Text = "label29"; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "FixedAssetsUsingHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 20.41667F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label1 + // + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(48.70834F, 20.41667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(572.375F, 33F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Eszköz kiadás / visszavétel"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 19.16669F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // label2 + // + this.label2.BackColor = System.Drawing.Color.Transparent; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FixedAssets.FixedAssetsGroup1.ShortName")}); + this.label2.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(4.374949F, 2.499994F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(639.6251F, 16.66667F); + this.label2.StylePriority.UseBackColor = false; + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.00001F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(638F, 2F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1}); + this.DisplayName = "Eszköz kiadás/visszavétel"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(100, 100, 118, 100); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Betakarítás előtti szemle jegyzőkönyv.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Betakarítás előtti szemle jegyzőkönyv.repx new file mode 100644 index 0000000..47cdf22 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Betakarítás előtti szemle jegyzőkönyv.repx @@ -0,0 +1,1085 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell136; + private DevExpress.XtraReports.UI.XRTableCell tableCell137; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell145; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell154; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell163; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell186; + private DevExpress.XtraReports.UI.XRTableCell tableCell188; + private DevExpress.XtraReports.UI.XRTableCell tableCell189; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell194; + private DevExpress.XtraReports.UI.XRTableCell tableCell195; + private DevExpress.XtraReports.UI.XRTableCell tableCell196; + private DevExpress.XtraReports.UI.XRTableCell tableCell197; + private DevExpress.XtraReports.UI.XRTableCell tableCell198; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField szerződött_tonna; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA6AAAAAxGAGkAbAB0AGUAcgASAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQA6AQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAOwEAAAHlAQ0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsMzBfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDMwLnRleHQgPSAiICIgJiBsYWJlbDYudGV4dC50b3N0cmluZyAmICIgIiAmIGxhYmVsNy50ZXh0LnRvc3RyaW5nICYgIiwgIiAmIGxhYmVsOC50ZXh0LnRvc3RyaW5nDQpFbmQgU3ViDQoBKFNJU0J1c2luZXNzLk1vZHVsZS5BUENTaGVldEJ5VGVycml0b3JpYWwBEVtJbnZvbHZlZF0gPSBUcnVlAQABEVtJbnZvbHZlZF0gPSBUcnVlAAEqQmV0YWthcsOtdMOhcyBlbMWRdHRpIHN6ZW1sZSBqZWd5esWRa8O2bnl2"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell136 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell137 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell145 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell154 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell163 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell186 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell188 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell189 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell194 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell195 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell196 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell197 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell198 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.szerződött_tonna = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7}); + this.detailBand1.HeightF = 28.125F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label4, + this.table6, + this.table4}); + this.pageFooterBand1.HeightF = 188.5417F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label7, + this.label6, + this.label3, + this.label2, + this.label1, + this.table5, + this.table2, + this.table1}); + this.reportHeaderBand1.HeightF = 239.1667F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table7 + // + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8}); + this.table7.SizeF = new System.Drawing.SizeF(1069F, 28.125F); + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell16, + this.tableCell17, + this.tableCell3, + this.tableCell15, + this.tableCell14, + this.tableCell5, + this.tableCell13, + this.tableCell12, + this.tableCell18, + this.tableCell8}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 1D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "City")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + this.tableCell16.Weight = 0.42387748768220335D; + // + // tableCell17 + // + this.tableCell17.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LotNumber")}); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + this.tableCell17.Weight = 0.31746956385442093D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BlockNumber")}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + this.tableCell3.Weight = 0.30952276081766783D; + // + // tableCell15 + // + this.tableCell15.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Area")}); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + this.tableCell15.Weight = 0.28137023611755652D; + // + // tableCell14 + // + this.tableCell14.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.APCSheetByProducts.MaxContractQuantity")}); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseBorders = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "tableCell14"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + this.tableCell14.Weight = 0.27788568680480441D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "szerződött_tonna")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + this.tableCell5.Weight = 0.27788577601662079D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.Weight = 0.27788627560279211D; + // + // tableCell12 + // + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.Weight = 0.2778859223239995D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.MaxExpirationDate", "{0:yyyy.}")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 0.17579289035779278D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.Weight = 0.38042340042214173D; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Customers.FullName")}); + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(758.3333F, 142.7083F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(267.7083F, 23F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.HRPerson.FullName")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(405.0531F, 142.7083F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(267.7083F, 23F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table6 + // + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 118.75F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow7}); + this.table6.SizeF = new System.Drawing.SizeF(238.5417F, 25F); + // + // table4 + // + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow16, + this.tableRow17, + this.tableRow18, + this.tableRow19}); + this.table4.SizeF = new System.Drawing.SizeF(1068.844F, 100F); + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Dátum:"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.53125046478156857D; + // + // tableCell2 + // + this.tableCell2.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 1.8541664886474609D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell136, + this.tableCell137}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 1D; + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell145}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 1D; + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell154}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell163}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 1D; + // + // tableCell136 + // + this.tableCell136.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell136.Name = "tableCell136"; + this.tableCell136.StylePriority.UseBorders = false; + this.tableCell136.StylePriority.UseTextAlignment = false; + this.tableCell136.Text = "Megjegyzés :"; + this.tableCell136.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell136.Weight = 0.25107391667865508D; + // + // tableCell137 + // + this.tableCell137.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell137.Name = "tableCell137"; + this.tableCell137.StylePriority.UseBorders = false; + this.tableCell137.Weight = 2.7445609859493425D; + // + // tableCell145 + // + this.tableCell145.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell145.Name = "tableCell145"; + this.tableCell145.StylePriority.UseBorders = false; + this.tableCell145.Weight = 2.9956349026279976D; + // + // tableCell154 + // + this.tableCell154.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell154.Name = "tableCell154"; + this.tableCell154.StylePriority.UseBorders = false; + this.tableCell154.Weight = 2.9956349026279976D; + // + // tableCell163 + // + this.tableCell163.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell163.Name = "tableCell163"; + this.tableCell163.StylePriority.UseBorders = false; + this.tableCell163.Weight = 2.9956349026279976D; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Customers.Address1.Street")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(555.2083F, 13.54167F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(76.04166F, 19.45834F); + this.label8.Text = "label8"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Customers.Address1.City")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(463.5417F, 13.54167F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(76.04166F, 19.45834F); + this.label7.Text = "label7"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Customers.Address1.ZipPostal")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(377.0833F, 13.54167F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label6.SizeF = new System.Drawing.SizeF(76.04166F, 19.45834F); + this.label6.Text = "label6"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(916.6349F, 10.00001F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(95.49005F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "ÁSZF 1.§ 3."; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(304.1667F, 41.16667F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(421.8749F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Betakarítás előtti szemle jegyzőkönyv"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 10.00001F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(267.7083F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "cégnév"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table5 + // + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(474.7215F, 189.1667F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow21, + this.tableRow22}); + this.table5.SizeF = new System.Drawing.SizeF(594.1224F, 50F); + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 189.1667F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6}); + this.table2.SizeF = new System.Drawing.SizeF(474.5655F, 50F); + this.table2.StylePriority.UseTextAlignment = false; + this.table2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 64.16667F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2, + this.tableRow3, + this.tableRow4, + this.tableRow5}); + this.table1.SizeF = new System.Drawing.SizeF(1068.844F, 125F); + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell186, + this.tableCell188, + this.tableCell189}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell194, + this.tableCell195, + this.tableCell196, + this.tableCell197, + this.tableCell198}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1D; + // + // tableCell186 + // + this.tableCell186.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell186.Name = "tableCell186"; + this.tableCell186.StylePriority.UseBorders = false; + this.tableCell186.Text = "Szerződött"; + this.tableCell186.Weight = 0.55504406554710528D; + // + // tableCell188 + // + this.tableCell188.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell188.Name = "tableCell188"; + this.tableCell188.StylePriority.UseBorders = false; + this.tableCell188.Text = "Becsült"; + this.tableCell188.Weight = 0.55504410131805682D; + // + // tableCell189 + // + this.tableCell189.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell189.Name = "tableCell189"; + this.tableCell189.StylePriority.UseBorders = false; + this.tableCell189.StylePriority.UseTextAlignment = false; + this.tableCell189.Text = "Betakarítás"; + this.tableCell189.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + this.tableCell189.Weight = 0.55505097099746648D; + // + // tableCell194 + // + this.tableCell194.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell194.Name = "tableCell194"; + this.tableCell194.StylePriority.UseBorders = false; + this.tableCell194.Text = "t/ha"; + this.tableCell194.Weight = 0.27752204347897058D; + // + // tableCell195 + // + this.tableCell195.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell195.Name = "tableCell195"; + this.tableCell195.StylePriority.UseBorders = false; + this.tableCell195.Text = "t"; + this.tableCell195.Weight = 0.27752210759934953D; + // + // tableCell196 + // + this.tableCell196.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell196.Name = "tableCell196"; + this.tableCell196.StylePriority.UseBorders = false; + this.tableCell196.Text = "t/ha"; + this.tableCell196.Weight = 0.27752203634202538D; + // + // tableCell197 + // + this.tableCell197.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell197.Name = "tableCell197"; + this.tableCell197.StylePriority.UseBorders = false; + this.tableCell197.Text = "t"; + this.tableCell197.Weight = 0.277522236038461D; + // + // tableCell198 + // + this.tableCell198.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell198.Name = "tableCell198"; + this.tableCell198.StylePriority.UseBorders = false; + this.tableCell198.StylePriority.UseTextAlignment = false; + this.tableCell198.Text = "Várható kezdete"; + this.tableCell198.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell198.Weight = 0.55505071440382214D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell48, + this.tableCell49}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 1D; + // + // tableCell46 + // + this.tableCell46.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.Text = "Település"; + this.tableCell46.Weight = 0.95343138192691057D; + // + // tableCell47 + // + this.tableCell47.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.Text = "Hrsz."; + this.tableCell47.Weight = 0.7140873436953793D; + // + // tableCell48 + // + this.tableCell48.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.Text = "Blokk"; + this.tableCell48.Weight = 0.69621241288005686D; + // + // tableCell49 + // + this.tableCell49.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell49.Multiline = true; + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.Text = "Terület\r\n/ha"; + this.tableCell49.Weight = 0.63190376412565086D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6, + this.tableCell7, + this.tableCell4, + this.tableCell9}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell10, + this.tableCell11}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell20}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29, + this.tableCell30}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell37, + this.tableCell38, + this.tableCell42}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.Text = " Szerződés szám :"; + this.tableCell6.Weight = 0.42332244460497814D; + // + // tableCell7 + // + this.tableCell7.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.Text = " tableCell7"; + this.tableCell7.Weight = 1.4622173037017345D; + // + // tableCell4 + // + this.tableCell4.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.Text = " Termény :"; + this.tableCell4.Weight = 0.18154930442711326D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.Text = " tableCell9"; + this.tableCell9.Weight = 0.92854584989417188D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.Text = " Üzletkötő neve :"; + this.tableCell10.Weight = 0.42332244460497814D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.HRPerson.FullName")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.Weight = 2.57231245802302D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.Text = " Termelő neve : "; + this.tableCell19.Weight = 0.42332244460497814D; + // + // tableCell20 + // + this.tableCell20.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Customers.FullName")}); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.Text = "tableCell20"; + this.tableCell20.Weight = 2.5723124580230197D; + // + // tableCell28 + // + this.tableCell28.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseBorders = false; + this.tableCell28.Weight = 0.13137585088872419D; + // + // tableCell29 + // + this.tableCell29.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseBorders = false; + this.tableCell29.Text = "székhely :"; + this.tableCell29.Weight = 0.29194658925521749D; + // + // tableCell30 + // + this.tableCell30.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.Scripts.OnBeforePrint = "tableCell30_BeforePrint"; + this.tableCell30.StylePriority.UseBorders = false; + this.tableCell30.Text = " bekötött"; + this.tableCell30.Weight = 2.5723124624840565D; + // + // tableCell37 + // + this.tableCell37.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell37.Name = "tableCell37"; + this.tableCell37.StylePriority.UseBorders = false; + this.tableCell37.Weight = 0.13137585088872419D; + // + // tableCell38 + // + this.tableCell38.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell38.Name = "tableCell38"; + this.tableCell38.StylePriority.UseBorders = false; + this.tableCell38.Text = "telefonszám :"; + this.tableCell38.Weight = 0.29194658925521749D; + // + // tableCell42 + // + this.tableCell42.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseBorders = false; + this.tableCell42.Text = "tableCell42"; + this.tableCell42.Weight = 2.5723124624840565D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // szerződött_tonna + // + this.szerződött_tonna.Expression = "[Area] * [APCSheetHeader.APCSheetByProducts.MaxContractQuantity]"; + this.szerződött_tonna.Name = "szerződött_tonna"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.szerződött_tonna}); + this.DisplayName = "Betakarítás előtti szemle jegyzőkönyv"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[Term. bevonva] = True"; + this.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(50, 50, 50, 50); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - pénzügyi adatok - alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - pénzügyi adatok - alriport.repx new file mode 100644 index 0000000..9d815f5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - pénzügyi adatok - alriport.repx @@ -0,0 +1,559 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Year_minus_2; + private DevExpress.XtraReports.UI.CalculatedField Year_minus_1; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUApAQAAAxGAGkAbAB0AGUAcgDiBAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgDkBAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcA5gQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDoBAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUA6QQAAAGhCQ0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsM19CZWZvcmVQc" + + "mludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50a" + + "W5nLlByaW50RXZlbnRBcmdzKQ0KJ3RhYmxlQ2VsbDMuVGV4dA0KDQoNCg0KICdkaW0geWVhciBhcyBkY" + + "XRlID0gY3R5cGUoQVBDU2hlZXRIZWFkZXIuT2JqZWN0Q3JlYXRlZCwgRGF0ZSkuWWVhcg0KDQpkaW0gW" + + "FJMYWJlbCBhcyBEZXZFeHByZXNzLlh0cmFSZXBvcnRzLlVJLlhSTGFiZWwgPSBUcnlDYXN0KHNlbmRlc" + + "iwgRGV2RXhwcmVzcy5YdHJhUmVwb3J0cy5VSS5YUkxhYmVsKQ0KZGltIFhhZlJlcG9ydCBhcyBEZXZFe" + + "HByZXNzLkV4cHJlc3NBcHAuUmVwb3J0cy5YYWZSZXBvcnQgPSBUcnlDYXN0KFhSTGFiZWwuUmVwb3J0L" + + "CBEZXZFeHByZXNzLkV4cHJlc3NBcHAuUmVwb3J0cy5YYWZSZXBvcnQpDQpkaW0gUHJveHlDb2xsZWN0a" + + "W9uIGFzIERldkV4cHJlc3MuRXhwcmVzc0FwcC5Qcm94eUNvbGxlY3Rpb24gPSBUcnlDYXN0KFhhZlJlc" + + "G9ydC5EYXRhU291cmNlLCBEZXZFeHByZXNzLkV4cHJlc3NBcHAuUHJveHlDb2xsZWN0aW9uKQ0KZGltI" + + "FhQQ29sbGVjdGlvbiBhcyBEZXZFeHByZXNzLlhwby5YUENvbGxlY3Rpb24gPSBUcnlDYXN0KFByb3h5Q" + + "29sbGVjdGlvbi5PcmlnaW5hbENvbGxlY3Rpb24sIERldkV4cHJlc3MuWHBvLlhQQ29sbGVjdGlvbikNC" + + "kRpbSBBUENTQ0NGUiBBcyBTaXNCdXNpbmVzcy5Nb2R1bGUuQVBDU2hlZXRDcmVkaXRDbGFzc2lmaWNhd" + + "GlvbkZpbmFuY2lhbFJvd3M9IFRyeUNhc3QoWFBDb2xsZWN0aW9uKDApLCBTaXNCdXNpbmVzcy5Nb2R1b" + + "GUuQVBDU2hlZXRDcmVkaXRDbGFzc2lmaWNhdGlvbkZpbmFuY2lhbFJvd3MpDQoNCmRpbSBBUENTaGVld" + + "EhlYWRlciBhcyBTaXNCdXNpbmVzcy5Nb2R1bGUuQVBDU2hlZXRIZWFkZXIgPSB0cnljYXN0KEFQQ1NDQ" + + "0ZSLkFQQ1NoZWV0SGVhZGVyLCBTaXNCdXNpbmVzcy5Nb2R1bGUuQVBDU2hlZXRIZWFkZXIpDQpkaW0gW" + + "WVhciBhcyBkYXRlID0gY3R5cGUoQVBDU2hlZXRIZWFkZXIuT2JqZWN0Q3JlYXRlZCwgRGF0ZSkNCg0KR" + + "W5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZUNlbGwyX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBc" + + "yBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpD" + + "QoNCkVuZCBTdWINCgE8U0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0Q3JlZGl0Q2xhc3NpZmljYXRpb" + + "25GaW5hbmNpYWxSb3dzAQABAAEAAAFER2F6ZGFzw6FnaSBhZGF0b2sgYWTDs21pbsWRc8OtdMOpc2hle" + + "iAtIHDDqW56w7xneWkgYWRhdG9rIC0gYWxyaXBvcnQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Year_minus_2 = new DevExpress.XtraReports.UI.CalculatedField(); + this.Year_minus_1 = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.detailBand1.HeightF = 24F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.reportHeaderBand1.HeightF = 60F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table1 + // + this.table1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table1.SizeF = new System.Drawing.SizeF(728.9999F, 24F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10, + this.tableCell1, + this.tableCell11}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.96000036621107721D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.20130790582197877D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell10.Weight = 1.3930093248589619D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF2", "{0:#,#}")}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell1.Weight = 0.70284138465952972D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF1", "{0:#,#}")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell11.Weight = 0.70284138465952972D; + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 60F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.0000004476285749D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell5, + this.tableCell3, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.4000008324769071D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell19.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = " II.1. Pénzügyi adatok könyvelés alapján:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 3.0000000000000004D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = " Megnevezés"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell5.Weight = 1.3930093248589619D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label2, + this.label3}); + this.tableCell3.Multiline = true; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Scripts.OnBeforePrint = "tableCell3_BeforePrint"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.70284138465952972D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.label5, + this.label4}); + this.tableCell2.Multiline = true; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Scripts.OnBeforePrint = "tableCell2_BeforePrint"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.70284138465952972D; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.EconomyPreviousYear")}); + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(39.9094F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(57.21069F, 17.5F); + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(97.12009F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(22.30396F, 17.5F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = ". év"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(56.45351F, 17.5F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(79.51465F, 17.5F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "(ezer forintban)"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(56.3275F, 17.5F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(79.51465F, 17.5F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "(ezer forintban)"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(96.99409F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(22.30396F, 17.5F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = ". év"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.EconomyActualYear")}); + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(39.78342F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(57.21069F, 17.5F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Year_minus_2 + // + this.Year_minus_2.Expression = "AddYears(now(),-2 )"; + this.Year_minus_2.Name = "Year_minus_2"; + // + // Year_minus_1 + // + this.Year_minus_1.Expression = "AddYears(now(),-1 )"; + this.Year_minus_1.Name = "Year_minus_1"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Year_minus_2, + this.Year_minus_1}); + this.DisplayName = "Gazdasági adatok adóminősítéshez - pénzügyi adatok - alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 0, 0); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - állattenyésztés - alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - állattenyésztés - alriport.repx new file mode 100644 index 0000000..8c2323d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez - állattenyésztés - alriport.repx @@ -0,0 +1,521 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Year_Now; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgA7AAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgA9AAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAPwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBBAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAQgAAAAE5U0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0Q3JlZGl0Q2xhc3NpZmljYXRpb25BbmltYWxSb3dzAQABAAEAAAFFR2F6ZGFzw6FnaSBhZGF0b2sgYWTDs21pbsWRc8OtdMOpc2hleiAtIMOhbGxhdHRlbnnDqXN6dMOpcyAtIGFscmlwb3J0"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Year_Now = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.detailBand1.HeightF = 24F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.reportHeaderBand1.HeightF = 60F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table1 + // + this.table1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table1.SizeF = new System.Drawing.SizeF(728.9999F, 24F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10, + this.tableCell1, + this.tableCell11}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.96000036621107721D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.20130790582197877D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "[ShortName]"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell10.Weight = 1.3930093248589619D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.70284138465952972D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EstimatedWeight", "{0:#,#}")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.70284138465952972D; + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 60F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.0000004476285749D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell5, + this.tableCell3, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.4000006866457837D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell19.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = " II.3. Állattenyésztéshez adatok:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 3.0000000000000004D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = " Állatfajta megnevezése"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell5.Weight = 1.3930093248589619D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label3, + this.label2, + this.label1}); + this.tableCell3.Multiline = true; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.70284138465952972D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.label5, + this.label4}); + this.tableCell2.Multiline = true; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.70284138465952972D; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(75.57434F, 0F); + this.label3.Multiline = true; + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(72.43515F, 17.5F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "-ben tervezett"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label2 + // + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(55.08034F, 17.5F); + this.label2.Multiline = true; + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(77.34064F, 17.5F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "állattartás (db)"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.MaxExpirationDate", "{0:yyyy}")}); + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(26.616F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(48.95834F, 17.5F); + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(2.377489F, 17.5F); + this.label6.Multiline = true; + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(168.4129F, 17.5F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "súlya az adott állatnak (kg)"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(43.71328F, 0F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(119.4545F, 17.5F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "-ben az átlagos becsült"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.MaxExpirationDate", "{0:yyyy}")}); + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(2.377489F, 1.059638E-05F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(41.33582F, 17.5F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Year_Now + // + this.Year_Now.Expression = "Now()"; + this.Year_Now.Name = "Year_Now"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Year_Now}); + this.DisplayName = "Gazdasági adatok adóminősítéshez - állattenyésztés - alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 0, 0); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez.repx new file mode 100644 index 0000000..e499215 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Gazdasági adatok adóminősítéshez.repx @@ -0,0 +1,842 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Page4 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRSubreport subreport2; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Page4() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOW4" + + "hO3uUhecsHGdLje4/Hf4KwTUeIBh2lF1RwbeVYAAAANAQAAAAAAAI4AAABnAAAA9AAAACsAAAC/AAAAH" + + "AIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQAqBAAADEYAaQBsAHQAZQByAE0EAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuAE8EAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwBRBAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAFMEAAAUUgBlAHAAbwByAHQATgBhAG0AZQBUBAAAFmwAYQBiAGUAbAAyAC4AVABlAHgAdAB7BAAAA" + + "acIDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY" + + "3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoJQ1R5c" + + "GUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZyA9IkFQQ1NoZWV0S" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsNS5UZXh0LlRvU3RyaW5nICYgIiciDQpFbmQgU3ViDQoNClByaXZhd" + + "GUgU3ViIHN1YnJlcG9ydDJfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZ" + + "SBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCglDVHlwZShzZW5kZXIsI" + + "FhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nID0iQVBDU2hlZXRIZWFkZXIuT2lkP" + + "SciICYgbGFiZWw1LlRleHQuVG9TdHJpbmcgJiAiJyINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFib" + + "GVDZWxsMjdfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0Z" + + "W0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1Y" + + "iB0YWJsZUNlbGw3X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU" + + "3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQppZiBsYWJlbDYuVGV4dD0gIiBUc" + + "nVlIiB0aGVuDQoJdGFibGVDZWxsNy5UZXh0ID0gIklnZW4iDQplbmQgaWYNCmlmIGxhYmVsNi5UZXh0I" + + "D0gIiBGYWxzZSINCgl0YWJsZUNlbGw3LlRleHQgPSAiTmVtIg0KZW5kIGlmDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsNl9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KCWlmIGxhYmVsNi5UZXh0P" + + "SJUcnVlIiB0aGVuIHRhYmxlQ2VsbDcuVGV4dCA9ICIgSWdlbiINCglpZiBsYWJlbDYuVGV4dD0iRmFsc" + + "2UiIHRoZW4gdGFibGVDZWxsNy5UZXh0ID0gIiBOZW0iDQoNCkVuZCBTdWINCgEhU0lTQnVzaW5lc3MuT" + + "W9kdWxlLkFQQ1NoZWV0SGVhZGVyAQABAAEAAAElR2F6ZGFzw6FnaSBhZGF0b2sgYWTDs21pbsWRc8Otd" + + "MOpc2hlegGkAkFsdWzDrXJvdHQgaWfDqW55bMWRIHR1ZG9tw6FzdWwgdmVzemVtLCBob2d5IGF6IGlnw" + + "6lueWzDqXMgw6F0dsOpdGVsZSBuZW0gamVsZW50IMOtZ8OpcmV0ZXQgYSBrw7ZsY3PDtm4gZW5nZWTDq" + + "Wx5ZXrDqXPDqXJlLCBhIFRha2Fyw6lrc3rDtnZldGtlemV0IGpvZ29zdWx0IGEgaGl0ZWxrw6lyZWxtZ" + + "XQgLSBpbmRva2zDoXNpIGvDtnRlbGV6ZXR0c8OpZyBuw6lsa8O8bCAtIGVsdXRhc8OtdGFuaSwgdmFne" + + "SBheiBpZ8OpbnllbHRuw6lsIGFsYWNzb255YWJiIGhpdGVsw7Zzc3plZ2V0IG1lZ8OhbGxhcMOtdGFua" + + "S4="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.subreport2 = new DevExpress.XtraReports.UI.XRSubreport(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.table2, + this.subreport2, + this.subreport1}); + this.detailBand1.HeightF = 675.0901F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label14, + this.label4, + this.label3, + this.label2, + this.label1}); + this.pageFooterBand1.HeightF = 144.2778F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3, + this.table1, + this.label11, + this.label12, + this.label13, + this.label6}); + this.reportHeaderBand1.HeightF = 126F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 25.00001F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 23.94443F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Oid")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(597.5378F, 31.25F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.Text = "label5"; + this.label5.Visible = false; + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(12.50007F, 329.6018F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow3, + this.tableRow4, + this.tableRow5, + this.tableRow6}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 122F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // subreport2 + // + this.subreport2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 222.504F); + this.subreport2.Name = "subreport2"; + this.subreport2.ReportSourceUrl = "Gazdasági adatok adóminősítéshez - állattenyésztés - alriport"; + this.subreport2.Scripts.OnBeforePrint = "subreport2_BeforePrint"; + this.subreport2.SizeF = new System.Drawing.SizeF(729F, 107.0978F); + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Gazdasági adatok adóminősítéshez - pénzügyi adatok - alriport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(729F, 222.504F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.0000003776774489D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell5, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.0000004441220607D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell6, + this.tableCell7}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 0.96000042749908709D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell9, + this.tableCell10}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.960000427499087D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell12, + this.tableCell13}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.96000035120511007D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell19.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = " III. Egyéb adatok:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 3.0000000000000004D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = " Megnevezés"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell5.Weight = 1.3930093248589619D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Válaszok"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 1.4056827693190594D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.20130790582197877D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = " Magánszemélyként rendelkezik-e hitel típusú tartozással:"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell6.Weight = 1.3930093248589619D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Scripts.OnBeforePrint = "tableCell7_BeforePrint"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 1.4056827693190594D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "2"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.20130790582197877D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = " Ha van hitel típusú tartozása, mekkora összeg (Ft):"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell9.Weight = 1.3930093248589619D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "IsPrivateCreditAmountHUF", "{0:#,# Ft}")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 1.4056827693190594D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "3"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.20130790582197877D; + // + // tableCell12 + // + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = " Egyéb vállalkozásnak tagja-e, ha igen melyik(ek)nek:"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell12.Weight = 1.3930093248589619D; + // + // tableCell13 + // + this.tableCell13.BackColor = System.Drawing.Color.Transparent; + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OtherCompanyInfo")}); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBackColor = false; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "tableCell13"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell13.Weight = 1.4056827693190594D; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateSigned", "{0:yyyy.MM.dd.}")}); + this.label14.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(68.22916F, 112.5F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(105.2289F, 15.83854F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(426.3889F, 112.5F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(92.53473F, 15.83854F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Termelő aláírása:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 112.5F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Dátum:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 39.94443F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(729F, 29.94444F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = resources.GetString("label2.Text"); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 9.999994F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(729F, 29.94444F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "Polgárjogi és büntetőjogi felellőségem tudatában kijelentem, hogy a Partner adatl" + + "ap, Partner előszűrés, Termelési terv és jelen Gazdálkodási adatlapon feltüntete" + + "tt adatok a valóságnak megfelelnek."; + // + // table3 + // + this.table3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(12.50004F, 51.00001F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow9, + this.tableRow10, + this.tableRow11}); + this.table3.SizeF = new System.Drawing.SizeF(728.9999F, 75F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseFont = false; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 23.22F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 27.78F); + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(317.8847F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "4. számú melléklet"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.5475F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(53.86908F, 16.42036F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "Hatályos:"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.BackColor = System.Drawing.Color.Transparent; + this.label13.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(549.7028F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(128.2458F, 16.42036F); + this.label13.StylePriority.UseBackColor = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "2012. augusztus 27-től"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "IsPrivateCredit")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(40.4583F, 0.7953644F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.Scripts.OnBeforePrint = "label6_BeforePrint"; + this.label6.SizeF = new System.Drawing.SizeF(90.625F, 15.625F); + this.label6.Text = "label6"; + this.label6.Visible = false; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell18, + this.tableCell21}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1.0000003814698721D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell24}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 1.0000003814698721D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell25, + this.tableCell27}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 1.0000003814698721D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = " Partner neve:"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell18.Weight = 0.73000042036534452D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell21.Weight = 2.2699995796346557D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = " Tevékenység:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.73000031047692748D; + // + // tableCell24 + // + this.tableCell24.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Activity")}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell24.Weight = 2.2699996895230727D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = " Tevékenység kezdete (év):"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 0.73000018489016516D; + // + // tableCell27 + // + this.tableCell27.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ActivityStartDate", "{0:yyyy.MM.dd.}")}); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.Scripts.OnBeforePrint = "tableCell27_BeforePrint"; + this.tableCell27.StylePriority.UseBorders = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell27.Weight = 2.2699998151098351D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1.1112000274658203D; + // + // tableCell3 + // + this.tableCell3.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBackColor = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Gazdasági adatok SZJA szerinti adóminősítéshez"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 7.29D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Page4 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Gazdasági adatok adóminősítéshez"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 25, 24); + this.Name = "Page4"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő megrendelés - Frinput.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő megrendelés - Frinput.repx new file mode 100644 index 0000000..03d24e7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő megrendelés - Frinput.repx @@ -0,0 +1,1557 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableCell tableCell39; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell40; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow24; + private DevExpress.XtraReports.UI.XRTableCell tableCell52; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableRow tableRow26; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow25; + private DevExpress.XtraReports.UI.XRTableCell tableCell53; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableRow tableRow23; + private DevExpress.XtraReports.UI.XRTableCell tableCell51; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow12; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRTable table9; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFCxVjeRB" + + "UCDlkhecsHGdLje4/Hf4KwTUeIBh2lF1RwbeQ0BAABWAAAAAAAAAI4AAABnAAAA9AAAACsAAAC/AAAAH" + + "gIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQBcAgAADEYAaQBsAHQAZQByAH0CAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuAH8CAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwCBAgAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAIMCAAAUUgBlAHAAbwByAHQATgBhAG0AZQCEAgAAGGwAYQBiAGUAbAAxADAALgBUAGUAeAB0AKQCA" + + "AAB2QQNClByaXZhdGUgU3ViIHRhYmxlQ2VsbDNfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9ia" + + "mVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhY" + + "mxlQ2VsbDMudGV4dCA9IGxhYmVsNC50ZXh0LnRvc3RyaW5nICYgIiAiICYgbGFiZWw1LnRleHQudG9zd" + + "HJpbmcgJiAiLCAiICYgbGFiZWw2LnRleHQudG9zdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgd" + + "GFibGVDZWxsN19CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c" + + "3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNy50ZXh0ID0gbGFiZ" + + "Ww3LnRleHQudG9zdHJpbmcgJiAiICIgJiBsYWJlbDgudGV4dC50b3N0cmluZyAmICIsICIgJiBsYWJlb" + + "DkudGV4dC50b3N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZUNlbGw1MF9CZWZvcmVQc" + + "mludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50a" + + "W5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNTAudGV4dCA9IHRhYmxlQ2VsbDMudGV4dA0KRW5kI" + + "FN1Yg0KAR9TSVNCdXNpbmVzcy5Nb2R1bGUuT3JkZXJPdXRSb3dzAQABAAEAAAEeS2ltZW7FkSBtZWdyZ" + + "W5kZWzDqXMgLSBGcmlucHV0AeUBVmlzc3phaWdhem9sw6FzcmEsIHN6w6FsbMOtdMOzbGV2w6lscmUsI" + + "HN6w6FtbMOhcmEgYSByZW5kZWzDqXNpIHN6w6Ftb3Qgw6lzIGF6IMO8Z3lpbnTDqXrDtW5rIG5ldsOpd" + + "CBzesOtdmVza2VkamVuZWsgZmVsdMO8bnRldG5pLg0KS8OpcmrDvGsgYSBtZWdyZW5kZWzDqXMgdmlzc" + + "3phaWdhem9sw6Fzw6F0LCBhbWVubnlpYmVuIGF6IMOhcnUgbmVtIHN6w6FsbMOtdGhhdMOzIDIgbmFwb" + + "24gYmVsw7xsLg=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell39 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell40 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.tableRow24 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow26 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow25 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell52 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell53 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow23 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell51 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow12 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table9 = new DevExpress.XtraReports.UI.XRTable(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table9)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7}); + this.detailBand1.HeightF = 25F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label10, + this.label11, + this.label13, + this.table11, + this.table10, + this.pageInfo1}); + this.pageFooterBand1.HeightF = 208.2221F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.table5, + this.table4, + this.table3, + this.table2, + this.table1, + this.label3, + this.label2}); + this.reportHeaderBand1.HeightF = 276.1574F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 132.4074F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 40F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table6}); + this.PageHeader.HeightF = 36.45833F; + this.PageHeader.Name = "PageHeader"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table9, + this.table8}); + this.GroupFooter1.HeightF = 179.9682F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table7 + // + this.table7.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.table7.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.table7.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow15}); + this.table7.SizeF = new System.Drawing.SizeF(746.9999F, 25F); + this.table7.StylePriority.UseBorderDashStyle = false; + this.table7.StylePriority.UseBorders = false; + this.table7.StylePriority.UseFont = false; + this.table7.StylePriority.UseTextAlignment = false; + this.table7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell36, + this.tableCell33, + this.tableCell43, + this.tableCell44, + this.tableCell39, + this.tableCell37, + this.tableCell20, + this.tableCell40, + this.tableCell41, + this.tableCell6}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 1D; + // + // tableCell36 + // + this.tableCell36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ProductNumber")}); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = "tableCell36"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell36.Weight = 0.30477459396297707D; + // + // tableCell33 + // + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell33.Weight = 0.845827628819937D; + // + // tableCell43 + // + this.tableCell43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "tableCell43"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell43.Weight = 0.24983937161319203D; + // + // tableCell44 + // + this.tableCell44.Name = "tableCell44"; + this.tableCell44.Weight = 0.040153995664379188D; + // + // tableCell39 + // + this.tableCell39.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.Units.ShortName")}); + this.tableCell39.Name = "tableCell39"; + this.tableCell39.StylePriority.UseTextAlignment = false; + this.tableCell39.Text = "tableCell39"; + this.tableCell39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell39.Weight = 0.14909693265019164D; + // + // tableCell37 + // + this.tableCell37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceHUF", "{0:#,#}")}); + this.tableCell37.Name = "tableCell37"; + this.tableCell37.StylePriority.UseTextAlignment = false; + this.tableCell37.Text = "tableCell37"; + this.tableCell37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell37.Weight = 0.32909386296764731D; + // + // tableCell20 + // + this.tableCell20.Name = "tableCell20"; + this.tableCell20.Weight = 0.14223606756012225D; + // + // tableCell40 + // + this.tableCell40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DiscountPercent")}); + this.tableCell40.Name = "tableCell40"; + this.tableCell40.StylePriority.UseTextAlignment = false; + this.tableCell40.Text = "tableCell40"; + this.tableCell40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell40.Weight = 0.34536243232307756D; + // + // tableCell41 + // + this.tableCell41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "tableCell41"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell41.Weight = 0.43600357380478744D; + // + // tableCell6 + // + this.tableCell6.Name = "tableCell6"; + this.tableCell6.Weight = 0.15761154063368876D; + // + // label12 + // + this.label12.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label12.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.UserCreated.FullName")}); + this.label12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(465.6256F, 46.3068F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(251.0466F, 31.76473F); + this.label12.StylePriority.UseBorderDashStyle = false; + this.label12.StylePriority.UseBorders = false; + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.label10.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 90.60111F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(747F, 41.51853F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = resources.GetString("label10.Text"); + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(395.8333F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(81.87137F, 24.47308F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Tisztelettel:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label13 + // + this.label13.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label13.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(209.8214F, 189.1389F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(332.3083F, 16.58322F); + this.label13.StylePriority.UseBorders = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Készült: SIS-Rendszerház Kft. SIS-Business programjával"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(537.6415F, 144.1389F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow24, + this.tableRow26, + this.tableRow25}); + this.table11.SizeF = new System.Drawing.SizeF(199.3585F, 45F); + this.table11.StylePriority.UseFont = false; + this.table11.StylePriority.UseTextAlignment = false; + this.table11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table10 + // + this.table10.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(4.999999F, 144.1389F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow21, + this.tableRow22, + this.tableRow23}); + this.table10.SizeF = new System.Drawing.SizeF(300F, 45F); + this.table10.StylePriority.UseFont = false; + this.table10.StylePriority.UseTextAlignment = false; + this.table10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal: {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(335.6275F, 157.5556F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(72.93744F, 16.58333F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow24 + // + this.tableRow24.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell52, + this.tableCell55}); + this.tableRow24.Name = "tableRow24"; + this.tableRow24.Weight = 0.6D; + // + // tableRow26 + // + this.tableRow26.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell54, + this.tableCell57}); + this.tableRow26.Name = "tableRow26"; + this.tableRow26.Weight = 0.60000000000000009D; + // + // tableRow25 + // + this.tableRow25.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell53, + this.tableCell56}); + this.tableRow25.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableRow25.Name = "tableRow25"; + this.tableRow25.StylePriority.UseFont = false; + this.tableRow25.Weight = 0.60000000000000009D; + // + // tableCell52 + // + this.tableCell52.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell52.Name = "tableCell52"; + this.tableCell52.StylePriority.UseFont = false; + this.tableCell52.StylePriority.UseTextAlignment = false; + this.tableCell52.Text = "Telefon :"; + this.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell52.Weight = 2.0665491320069584D; + // + // tableCell55 + // + this.tableCell55.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseFont = false; + this.tableCell55.StylePriority.UseTextAlignment = false; + this.tableCell55.Text = "76/417-082"; + this.tableCell55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell55.Weight = 0.93345086799304156D; + // + // tableCell54 + // + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "Fax :"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell54.Weight = 2.0665495912436551D; + // + // tableCell57 + // + this.tableCell57.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "76/506-254"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell57.Weight = 0.93345040875634444D; + // + // tableCell53 + // + this.tableCell53.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell53.Name = "tableCell53"; + this.tableCell53.StylePriority.UseFont = false; + this.tableCell53.StylePriority.UseTextAlignment = false; + this.tableCell53.Text = "E-mail:"; + this.tableCell53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell53.Weight = 1.1117831812239678D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Email")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell56.Weight = 1.8882168187760322D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell49}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 0.6D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell50}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 0.59999999999999987D; + // + // tableRow23 + // + this.tableRow23.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell51}); + this.tableRow23.Name = "tableRow23"; + this.tableRow23.Weight = 0.60000000000000009D; + // + // tableCell49 + // + this.tableCell49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.FullName")}); + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.Text = "tableCell1"; + this.tableCell49.Weight = 3D; + // + // tableCell50 + // + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.Scripts.OnBeforePrint = "tableCell50_BeforePrint"; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.Weight = 3D; + // + // tableCell51 + // + this.tableCell51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.WebSite")}); + this.tableCell51.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell51.Name = "tableCell51"; + this.tableCell51.StylePriority.UseFont = false; + this.tableCell51.Text = "tableCell51"; + this.tableCell51.Weight = 3D; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.Street")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(478.9353F, 159.9537F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label9.Text = "label9"; + this.label9.Visible = false; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.City")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(426.3889F, 159.9537F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label8.Text = "label8"; + this.label8.Visible = false; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.ZipPostal")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(373.8426F, 159.9537F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label7.Text = "label7"; + this.label7.Visible = false; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.Street")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(477.7779F, 115.7407F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label6.Text = "label6"; + this.label6.Visible = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.City")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(425.2315F, 115.7407F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label5.Text = "label5"; + this.label5.Visible = false; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(372.6852F, 115.7407F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(52.5463F, 23.00002F); + this.label4.Text = "label4"; + this.label4.Visible = false; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(395.8334F, 201.1574F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow12, + this.tableRow13, + this.tableRow14}); + this.table5.SizeF = new System.Drawing.SizeF(300F, 75F); + this.table5.StylePriority.UseFont = false; + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(10F, 201.1574F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow11}); + this.table4.SizeF = new System.Drawing.SizeF(343.9815F, 75F); + this.table4.StylePriority.UseFont = false; + this.table4.StylePriority.UseTextAlignment = false; + this.table4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(10F, 115.7407F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5, + this.tableRow6, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(343.9815F, 75F); + this.table3.StylePriority.UseFont = false; + this.table3.StylePriority.UseTextAlignment = false; + this.table3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table2 + // + this.table2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(395.8334F, 53.24071F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3, + this.tableRow4}); + this.table2.SizeF = new System.Drawing.SizeF(300F, 50F); + this.table2.StylePriority.UseFont = false; + this.table2.StylePriority.UseTextAlignment = false; + this.table2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table1 + // + this.table1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(10F, 53.24075F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2}); + this.table1.SizeF = new System.Drawing.SizeF(300F, 50F); + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.ForeColor = System.Drawing.SystemColors.ActiveCaption; + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(395.8334F, 9.999982F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(135.8796F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseForeColor = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Szállító adatai:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.ForeColor = System.Drawing.SystemColors.ActiveCaption; + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(10F, 10.00002F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(135.8796F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseForeColor = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Megrendelőadatai:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow12 + // + this.tableRow12.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell23, + this.tableCell24}); + this.tableRow12.Name = "tableRow12"; + this.tableRow12.Weight = 1D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell25, + this.tableCell26}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 1D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell27, + this.tableCell28}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1D; + // + // tableCell23 + // + this.tableCell23.Name = "tableCell23"; + this.tableCell23.Text = "Ügyintéző:"; + this.tableCell23.Weight = 1D; + // + // tableCell24 + // + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.FullName")}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.Weight = 2D; + // + // tableCell25 + // + this.tableCell25.Name = "tableCell25"; + this.tableCell25.Text = "Telefon:"; + this.tableCell25.Weight = 1D; + // + // tableCell26 + // + this.tableCell26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.Text = "tableCell26"; + this.tableCell26.Weight = 2D; + // + // tableCell27 + // + this.tableCell27.Name = "tableCell27"; + this.tableCell27.Text = "Telefax:"; + this.tableCell27.Weight = 1D; + // + // tableCell28 + // + this.tableCell28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessFaxNumber")}); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.Text = "tableCell28"; + this.tableCell28.Weight = 2D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell15, + this.tableCell16}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 1D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell18}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell21, + this.tableCell22}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 1D; + // + // tableCell15 + // + this.tableCell15.Name = "tableCell15"; + this.tableCell15.Text = "Készítette:"; + this.tableCell15.Weight = 1.2052495047905554D; + // + // tableCell16 + // + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.UserCreated.FullName")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.Weight = 1.7947504952094446D; + // + // tableCell17 + // + this.tableCell17.Name = "tableCell17"; + this.tableCell17.Text = "Megrendelés dátuma:"; + this.tableCell17.Weight = 1.2052495047905554D; + // + // tableCell18 + // + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DateCreated", "{0:yyyy.MM.dd}")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.Weight = 1.7947504952094446D; + // + // tableCell21 + // + this.tableCell21.Name = "tableCell21"; + this.tableCell21.Text = "Rendelésszám:"; + this.tableCell21.Weight = 1.2052495047905554D; + // + // tableCell22 + // + this.tableCell22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.Weight = 1.7947504952094446D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell12}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 1D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell13, + this.tableCell14}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 1D; + // + // tableCell9 + // + this.tableCell9.Name = "tableCell9"; + this.tableCell9.Text = "Adószám:"; + this.tableCell9.Weight = 1.205249563320224D; + // + // tableCell10 + // + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.VATNumber")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.Weight = 1.794750436679776D; + // + // tableCell11 + // + this.tableCell11.Name = "tableCell11"; + this.tableCell11.Text = "Közösségi adószám:"; + this.tableCell11.Weight = 1.205249563320224D; + // + // tableCell12 + // + this.tableCell12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.VATNumberEU")}); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.Text = "tableCell12"; + this.tableCell12.Weight = 1.794750436679776D; + // + // tableCell13 + // + this.tableCell13.Name = "tableCell13"; + this.tableCell13.Text = "Bankszámlaszám:"; + this.tableCell13.Weight = 1.205249563320224D; + // + // tableCell14 + // + this.tableCell14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.Text = "tableCell14"; + this.tableCell14.Weight = 1.794750436679776D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.FullName")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 3D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Scripts.OnBeforePrint = "tableCell7_BeforePrint"; + this.tableCell7.Text = "tableCell3"; + this.tableCell7.Weight = 3D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.FullName")}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Scripts.OnBeforePrint = "tableCell3_BeforePrint"; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.Weight = 3D; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(52.98141F, 37.45369F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(233.5185F, 84.9537F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20.25F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Maroon; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(348.7099F, 54.8148F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(315.2778F, 57.59259F); + this.label1.StylePriority.UseBorderColor = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "MEGRENDELÉS"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table6 + // + this.table6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table6.BorderWidth = 2; + this.table6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow10}); + this.table6.SizeF = new System.Drawing.SizeF(746.9999F, 33.33333F); + this.table6.StylePriority.UseBorders = false; + this.table6.StylePriority.UseBorderWidth = false; + this.table6.StylePriority.UseFont = false; + this.table6.StylePriority.UseTextAlignment = false; + this.table6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell2, + this.tableCell19, + this.tableCell30, + this.tableCell4, + this.tableCell32}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 1.3333332824707032D; + // + // tableCell8 + // + this.tableCell8.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "Cikkszám"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell8.Weight = 0.30477462460311822D; + // + // tableCell2 + // + this.tableCell2.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Megnevezés"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 0.84582774836570573D; + // + // tableCell19 + // + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.Text = "Mennyiség"; + this.tableCell19.Weight = 0.43909018394294652D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.Text = "Egys.ár"; + this.tableCell30.Weight = 0.47133009289558153D; + // + // tableCell4 + // + this.tableCell4.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.Text = "Eng(%)"; + this.tableCell4.Weight = 0.34536245625107753D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.Text = "Összesen (NE)"; + this.tableCell32.Weight = 0.5936148939415703D; + // + // table9 + // + this.table9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table9.LocationFloat = new DevExpress.Utils.PointFloat(454.1666F, 10F); + this.table9.Name = "table9"; + this.table9.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20}); + this.table9.SizeF = new System.Drawing.SizeF(253.5881F, 25F); + this.table9.StylePriority.UseBorders = false; + this.table9.StylePriority.UseFont = false; + this.table9.StylePriority.UseTextAlignment = false; + this.table9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table8 + // + this.table8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(10F, 60.08184F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow16, + this.tableRow17, + this.tableRow18, + this.tableRow19}); + this.table8.SizeF = new System.Drawing.SizeF(727.0001F, 100F); + this.table8.StylePriority.UseFont = false; + this.table8.StylePriority.UseTextAlignment = false; + this.table8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell47, + this.tableCell48}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableCell47 + // + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = "Összesen (nettó) :"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell47.Weight = 0.70245329033611936D; + // + // tableCell48 + // + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.TotalNettoHUF")}); + this.tableCell48.Multiline = true; + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.IgnoreNullValues = true; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell48.Summary = summary1; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell48.Weight = 0.72586435447126429D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell29, + this.tableCell31}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 1D; + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 1D; + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell38, + this.tableCell42}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell45, + this.tableCell46}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 1D; + // + // tableCell29 + // + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = " Megjegyzés :"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell29.Weight = 0.51181469887632347D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Note")}); + this.tableCell31.Multiline = true; + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell31.Weight = 2.4881853011236763D; + // + // tableCell34 + // + this.tableCell34.Name = "tableCell34"; + this.tableCell34.Text = " Fizetési kondíciók :"; + this.tableCell34.Weight = 0.51181491925771516D; + // + // tableCell35 + // + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.PaymentOption.ShortName")}); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.Weight = 2.4881850807422849D; + // + // tableCell38 + // + this.tableCell38.Name = "tableCell38"; + this.tableCell38.Text = " Szállítási kondíciók :"; + this.tableCell38.Weight = 0.51181517112216279D; + // + // tableCell42 + // + this.tableCell42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.ShipmentOption.ShortName")}); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.Text = "tableCell42"; + this.tableCell42.Weight = 2.4881848288778374D; + // + // tableCell45 + // + this.tableCell45.Name = "tableCell45"; + this.tableCell45.Text = " Minőségi kondíciók :"; + this.tableCell45.Weight = 0.51181542298661031D; + // + // tableCell46 + // + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.QualityOption.ShortName")}); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.Weight = 2.48818457701339D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.GroupFooter1}); + this.DisplayName = "Kimenő megrendelés - Frinput"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 132, 40); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table9)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla ÁFA.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla ÁFA.repx new file mode 100644 index 0000000..c6c2ecf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla ÁFA.repx @@ -0,0 +1,454 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEUS2ltZW7FkSBzesOhbWxhIMOBRkE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 18F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Expanded = false; + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1, + this.label8, + this.label7, + this.label6, + this.label5}); + this.reportHeaderBand1.HeightF = 20.16668F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.HeightF = 28.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,#}")}); + this.label9.Font = new System.Drawing.Font("Arial", 9.75F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,#}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9.75F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 9.75F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 18F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(550.0416F, 2.166679F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(107.2917F, 18F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Nettó összeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "ÁFA kód"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(277.0834F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 18F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(436.4584F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(131.25F, 18F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(578.1667F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 18F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,#}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(100, 28, 0, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla.repx new file mode 100644 index 0000000..27af627 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Kimenő számla.repx @@ -0,0 +1,2016 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Bizonylatszám; + private DevExpress.XtraReports.UI.CalculatedField Számla_Megnevezés; + private DevExpress.XtraReports.UI.CalculatedField Trmeltetésbe_bevont_szöveg; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAKAAAAAAAAAFBBRFBBRFB8qs2NB" + + "UCDliwheZpIXnLBxnS43uPx3+CsE1HiIPPfBwGHaUXVHBt5XAEAAFYAAAANAQAAAAAAAI4AAABnAAAA9" + + "AAAAHkBAAArAAAAvwAAAM4CAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAA" + + "AAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAwoAAAxGAGkAbAB0AGUAcgAjC" + + "gAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlCgAALEYAaQBsAHQAZQByAEYAbwByA" + + "EQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwoAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAY" + + "wB0AFQAeQBwAGUATgBhAG0AZQApCgAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgoAAEpUAHIAbQBlAGwAd" + + "ABlAHQA6QBzAGIAZQBfAGIAZQB2AG8AbgB0AF8AcwB6APYAdgBlAGcALgBFAHgAcAByAGUAcwBzAGkAb" + + "wBuADsKAAAYbABhAGIAZQBsADQAOAAuAFQAZQB4AHQAZA0AAExwAGkAYwB0AHUAcgBlAEIAbwB4ADEAL" + + "gBJAG0AYQBnAGUAJgBTAHkAcwB0AGUAbQAuAEQAcgBhAHcAaQBuAGcALgBJAG0AYQBnAGUAUQ4AAAGAF" + + "GRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0Z" + + "SBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzI" + + "FN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsN" + + "jEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvc" + + "nQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyY" + + "XdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZ" + + "XBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4d" + + "C5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClByaXZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmlud" + + "ChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nL" + + "lByaW50RXZlbnRBcmdzKQ0KJyBpZiBEb2N1bWVudE51bWJlci5UZXh0PSIiIHRoZW4gbGFiZWwxLlRle" + + "HQ9IlBSw5NCQVNaw4FNTEEiDQonIGlmIERvY3VtZW50TnVtYmVyLlRleHQ8PkNvbm5lY3RJbmZvLlRle" + + "HQgdGhlbiBsYWJlbDEuVGV4dD0iU1RPUk7DkyBTWsOBTUxBIg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1Y" + + "iBsYWJlbDQ4X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzd" + + "GVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQppZiBsYWJlbDUyLnRleHQgPD4gIkvDq" + + "XN6cMOpbnoiIHRoZW4NCmxhYmVsNDgudmlzaWJsZSA9IHRydWUNCmVsc2UNCmxhYmVsNDgudmlzaWJsZ" + + "SA9IGZhbHNlDQplbmQgaWYNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZWw0OV9CZWZvcmVQcmlud" + + "ChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nL" + + "lByaW50RXZlbnRBcmdzKQ0KaWYgbGFiZWw1MC50ZXh0IDw+ICIiIHRoZW4NCmxhYmVsNDkudGV4dCA9I" + + "CJBIHN6w6FsbMOtdMOzIGtpamVsZW50aSwgaG9neSBhIGplbGVuIHN6w6FtbGEgYWxhcGrDoW4ga2VsZ" + + "XRrZXrFkSBrw7Z2ZXRlbMOpc8OpdCBhIEvDtnJtZW5kIMOpcyBWaWTDqWtlIFRha2Fyw6lrc3rDtnZld" + + "GtlemV0cmUgZW5nZWRtw6lueWV6aS4gQSBzesOhbWxhIGFsw6HDrXLDoXPDoXZhbCBhIFZldsWRIGV6d" + + "CB0dWRvbcOhc3VsIHZlc3ppIMOpcyBraWplbGVudGksIGhvZ3kgYSBzesOhbWxhIGFsYXBqw6F1bCBze" + + "m9sZ8OhbMOzIGvDtnZldGVsw6lzIMOpcnbDqW55ZXNlbiBsw6l0cmVqw7Z0dCwgdmFsYW1pbnQgbGVtb" + + "25kIGFycsOzbCwgaG9neSBheiBlbmdlZG3DqW55ZXpldHQga8O2dmV0ZWzDqXMgdGVraW50ZXTDqWJlb" + + "iBhIHN6w6FsbMOtdMOzdmFsIHN6ZW1iZW4gZmVubsOhbGzDsyB2YWd5IGtlbGV0a2V6xZEgZXNldGxlZ" + + "2VzIGvDtnZldGVsw6lzZWkgbWlhdHQgYmVzesOhbcOtdMOhc3NhbCDDqWxqZW4uIEEgdmV2xZEgYSBze" + + "sOhbWxhIGFsYXBqw6FuIGtlbGV0a2V6xZEgZml6ZXTDqXNpIGvDtnRlbGV6ZXR0c8OpZ8OpdCBhIDExN" + + "TAwMTE5LTEwMDAwOTA4IHN6w6Ftw7ogSFVGIGVuZ2VkbcOpbnllesOpc2kgc3rDoW1sw6FyYSB0ZWxqZ" + + "XPDrXRpLCBtZWx5csWRbCBjc2FrIGEgS8O2cm1lbmQgw6lzIFZpZMOpa2UgVGFrYXLDqWtzesO2dmV0a" + + "2V6ZXQgZWzFkXpldGVzIGVuZ2Vkw6lsecOpdmVsIHTDqXJoZXQgZWwuIg0KZW5kIGlmDQoNCmlmIGxhY" + + "mVsNTEudGV4dCA8PiAiIiB0aGVuDQpsYWJlbDQ5LnRleHQgPSAiQSBzesOhbGzDrXTDsyBraWplbGVud" + + "GksIGhvZ3kgYSBqZWxlbiBzesOhbWxhIGFsYXBqw6FuIGtlbGV0a2V6xZEga8O2dmV0ZWzDqXPDqXQgY" + + "SBLw7ZybWVuZCDDqXMgVmlkw6lrZSBUYWthcsOpa3N6w7Z2ZXRrZXpldHJlIGVuZ2VkbcOpbnllemkuI" + + "EEgc3rDoW1sYSBhbMOhw61yw6Fzw6F2YWwgYSBWZXbFkSBlenQgdHVkb23DoXN1bCB2ZXN6aSDDqXMga" + + "2lqZWxlbnRpLCBob2d5IGEgc3rDoW1sYSBhbGFwasOhdWwgc3pvbGfDoWzDsyBrw7Z2ZXRlbMOpcyDDq" + + "XJ2w6lueWVzZW4gbMOpdHJlasO2dHQsIHZhbGFtaW50IGxlbW9uZCBhcnLDs2wsIGhvZ3kgYXogZW5nZ" + + "WRtw6lueWV6ZXR0IGvDtnZldGVsw6lzIHRla2ludGV0w6liZW4gYSBzesOhbGzDrXTDs3ZhbCBzemVtY" + + "mVuIGZlbm7DoWxsw7MgdmFneSBrZWxldGtlesWRIGVzZXRsZWdlcyBrw7Z2ZXRlbMOpc2VpIG1pYXR0I" + + "GJlc3rDoW3DrXTDoXNzYWwgw6lsamVuLiBBIHZldsWRIGEgc3rDoW1sYSBhbGFwasOhbiBrZWxldGtle" + + "sWRIGZpemV0w6lzaSBrw7Z0ZWxlemV0dHPDqWfDqXQgYSAxMTUwMDExOS0xMDAwMDkwOCBzesOhbcO6I" + + "EhVRiBlbmdlZG3DqW55ZXrDqXNpIHN6w6FtbMOhcmEgdGVsamVzw610aSwgbWVseXLFkWwgY3NhayBhI" + + "EvDtnJtZW5kIMOpcyBWaWTDqWtlIFRha2Fyw6lrc3rDtnZldGtlemV0IGVsxZF6ZXRlcyBlbmdlZMOpb" + + "HnDqXZlbCB0w6lyaGV0IGVsLiINCmVuZCBpZg0KDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzLk1vZHVsZ" + + "S5JbnZvaWNlUm93cwEAAQABAAABD0tpbWVuxZEgc3rDoW1sYQGmBklpZihbT3JkZXJJblJvd3MuQVBDU" + + "2hlZXRCeVByb2R1Y3RzXTw+Tm90aGluZyBPUiBbT3JkZXJJblJvd3NPdGhlci5BUENTaGVldEJ5UHJvZ" + + "HVjdHNdPD5Ob3RoaW5nLCdBIHN6w6FsbMOtdMOzIGtpamVsZW50aSwgaG9neSBhIGplbGVuIHN6w6Ftb" + + "GEgYWxhcGrDoW4ga2VsZXRrZXrFkSBrw7Z2ZXRlbMOpc8OpdCBhIEvDtnJtZW5kIMOpcyBWaWTDqWtlI" + + "FRha2Fyw6lrc3rDtnZldGtlemV0cmUgZW5nZWRtw6lueWV6aS4gQSBzesOhbWxhIGFsw6HDrXLDoXPDo" + + "XZhbCBhIFZldsWRIGV6dCB0dWRvbcOhc3VsIHZlc3ppIMOpcyBraWplbGVudGksIGhvZ3kgYSBzesOhb" + + "WxhIGFsYXBqw6F1bCBzem9sZ8OhbMOzIGvDtnZldGVsw6lzIMOpcnbDqW55ZXNlbiBsw6l0cmVqw7Z0d" + + "CwgdmFsYW1pbnQgbGVtb25kIGFycsOzbCwgaG9neSBheiBlbmdlZG3DqW55ZXpldHQga8O2dmV0ZWzDq" + + "XMgdGVraW50ZXTDqWJlbiBhIHN6w6FsbMOtdMOzdmFsIHN6ZW1iZW4gZmVubsOhbGzDsyB2YWd5IGtlb" + + "GV0a2V6xZEgZXNldGxlZ2VzIGvDtnZldGVsw6lzZWkgbWlhdHQgYmVzesOhbcOtdMOhc3NhbCDDqWxqZ" + + "W4uIEEgdmV2xZEgYSBzesOhbWxhIGFsYXBqw6FuIGtlbGV0a2V6xZEgZml6ZXTDqXNpIGvDtnRlbGV6Z" + + "XR0c8OpZ8OpdCBhIDExNTAwMTE5LTEwMDAwOTA4IHN6w6Ftw7ogSFVGIGVuZ2VkbcOpbnllesOpc2kgc" + + "3rDoW1sw6FyYSB0ZWxqZXPDrXRpLCBtZWx5csWRbCBjc2FrIGEgS8O2cm1lbmQgw6lzIFZpZMOpa2UgV" + + "GFrYXLDqWtzesO2dmV0a2V6ZXQgZWzFkXpldGVzIGVuZ2Vkw6lsecOpdmVsIHTDqXJoZXQgZWwuJyAgL" + + "CcgJyApAeoBQSBzesOhbWxhIHRlbGplcyDDtnNzemVnw6luZWsga2llZ3llbmzDrXTDqXPDqWlnIGF6I" + + "MOhcsO6IGEgRnJhbmNpc2thIElucHV0IEtmdC4gdHVsYWpkb25hLiBLw6lzZWRlbG1lcyBmaXpldMOpc" + + "yBlc2V0w6luIC0gZWd5w6liIG1lZ8OhbGxhcG9kw6FzIGhpw6FuecOhYmFuIC0gYSB0w7ZydsOpbnllc" + + "yBtw6lydMOpa8WxIGvDqXNlZGVsbWkga2FtYXQgbWVnZml6ZXTDqXPDqXJlIGlnw6lueXQgdGFydHVua" + + "yAhIB96AAD/2P/gABBKRklGAAEBAQBgAGAAAP/bAEMAAgICAgICAgICAgICAgICAwICAgIDAwMDAwMDA" + + "wQDAwMDAwMEBAQEBQQEBAUFBgYFBQcHBwcHBwcHBwcHBwcHB//bAEMBAgICAwMDBQQEBQcGBQYHCAgIC" + + "AgICAcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB//AABEIAMIB+wMBEQACE" + + "QEDEQH/xAAeAAEAAQQDAQEAAAAAAAAAAAAAAQIHCAkDBQYECv/EAF4QAAAFAwIDBQQFBgcKCggHAAECA" + + "wQFAAYRByESEzEIFCJBUTJhcYEVI0KRoQkWM1JysRckYoKSosEYGSU0Q1NWY9HwJkRzg5Oy09Xh8TVXh" + + "IWUlsPURVRVdZWz0v/EABwBAQACAwEBAQAAAAAAAAAAAAABAgMEBgUHCP/EADkRAAEDAwMCAwUHBAICA" + + "wAAAAABAgMEBREGEiETMSIyQRRCUVJhFRYjM3GRoQdDU4Gx8ILRNGPB/9oADAMBAAIRAxEAPwDfxQCgF" + + "AKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQHGbz3MA9Q4d9tsjisbskI3nJrQ1i7bWr2kGpVz2" + + "5I6APn9kxEh3SCuE60q1NKNwAvC8I9BmuzMU+ehT7eybxANYXPU8Oru/Skxg8OP5UtmBDAXQu4zOQ6J/" + + "TiYhxdOhI8TYzVPaNvBVt6V3unttHu2vrJq3qba9uNdAHsdZkvIFbTc8VSUWGMZiUTHklHijZBiBEB4S" + + "mJkTGzgOlSlZ9C9PVOklNmRBES79cjt8+lbMb9yZPdUrq5AoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUA" + + "oBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAcRtx6Z4" + + "cgPxHhHO9Q/sUfnBqx0Cva8Zft3a72zK3LNyNtNU55BtBPXbhRg2IxfsmzMGzI6hkU+WkHCHCUNhH1Gt" + + "GNy7jwYkifUYU2fBERgHBT6Lj+Z/nO7pAb7+Gt/pMPdSlg+CGs/8pJed2Waw0cC1LlmrcI5uOQeOiwbt" + + "yy5h2RGgonXFscnMKlzRwU3qNa8jWHi1ngk8Js1ilFFY1gosfmKqM0TqqYxxHMmAmNj3jvWWPGOD2Kdy" + + "uYiqdhVzMKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAo" + + "BQCgFAKAUAoBQCgFAKAgarsyXAU2p8Sjncio2N+JZBVVexvBVUXIGo2xr6k7iMgHUatsd7vYnlewq3TX" + + "4lVV3wKRNv5/wBlWxhO6FdqLyrsDi94fh+/NUV/1QYZ8xxicvqXI+EeIQ2L59M5qr37m4RUKvmjxtyag" + + "uzw5bNvyg2vSrhZFFLjukCKLmBLf6TZYARMIZz7QV5jZVgdlcHOQtibUZVTbCpddtoCIL3BDpGD2uc9b" + + "E/eoA1f7do+znoi/qh7/tdNu8yZ/U1PflO7jt2RY6NAwnYh6KU1NmW7s8bK8GU2HBxYV2A2B+6sb7jRv" + + "7P/AJPCrXQOk/M/k2cR+penreOYFUve10uFkjkqkk0A/wCjKO5edRL5QxeFXpk9OC40kcaNV/Y+n+FjT" + + "P8A09tT/wDlGQfvVp94qD/IhLrtSfOg/hZ0y/0+tMP/AHoy/wC0p94qD50LJcqVffKi6raan6X5aZv/A" + + "Hm0/eClPvFQf5EJ+0aT5z609R9P1QDl3tapvT/CjT/taJe6F39xCyV1KvvofYS9rOU/R3ZbinoCck0N/" + + "wDVrMl2of8AIn7lvaab50/c+9C4oJyOEJmLXHyKi7QUEf6J/wC2pbeKNy7Uen7mVKiLHDk/cttf+vmj2" + + "l5f+HOotuwa5gynHmXF09NsBg4WDIFnQ5AQxtW4ixd9/wDJrvr4m+pjq6/KL9mpsqdJOZuuQwcQA7KAe" + + "8OPIQ5oIm+8tYnVcaLhFya63aJDtYj8oL2ZZNQiS93y0IJxxzJ6FkW6Yb/aOmmcv41ZKthH2vGX/s7Xb" + + "R6/ilG0dSLPm1BHANUZFFJx1x/iy5irfISfhWZJGu9TbjrY3p3LrAbiwIGyA7lHG33gOPwq2wzpI1fU5" + + "A6b5+eM/wBXardi/wDsmhOPqcJxHOA4s52Hcd/2S1RYmuXzE9NPiUJrkOJylUTOZJXlK8BgMJT8IHMmY" + + "AEeEeEQH51PTaz1KOdtOco5APw+HlUph3KBviTJVUlt2BUDIoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAU" + + "AoBQCgFAKAUAoBQCgFAKAUAoBQFBjgXOenr0/HNYHTo0orjzkld9tQ4HPLT8NGFL1B67bpD/WVD91act" + + "3oo/wAxyIphdVsZ3LaynaJ0fiuIFb1jXRybcuLBV6Y3uL3dNQo/I1eXNqi2s980ZL3Czupb2R7YGmrXi" + + "KwjrqkzfZMVkDZMf5zlQhg+Zfwryptf2+NcImTRfqeBFwW+lO2oTcIqxT4Dbjk5NAmP2ioFP++vFqP6g" + + "xr5YzF95I1PHL9rzUuRE5Ie2LeSzsUUEn704bfrcZCG+6tNdc1bk/Daasl8q3O/DTwnzE1n7Tc6GYyLk" + + "gIp7Ix9uG4fTwKrJqFH7682fU15k8qKR9o3F3ocYG7XM0YTGG8m+enF9HsCj8igQwfdWFJb1P4nSOT6Z" + + "UqsdykXPi/k5TaU9qSXD+OzU0mQ24i8uY5Q+ZUlNqt7DeHf3V/cyNtdwd8TiN2btYXSZ15e7YlumkmZV" + + "wd/Ov1ypokEDcapgIIFARKJc8XhDerU9ovXVz1lx+pb7GrWZVVNfvZn0Zm9XO0Pqg/t6baKwTFCWdOLk" + + "VRcHRcEcyqRGpAKcCqcxyCZ1RzuJQAemK9+e31rokar+fjn/v0/6p5cduq5ZsIbJUexlJm2cXxFkx7XL" + + "jVjb+eAO4D91eF935d+XSZU96LS7lflz+TBft3dmqQ07tvT2fSmTzMYacfx8g5Sj+Qk2XXQQO0IcSr5A" + + "ypUVuDj2yGPtV7dLaFjTzd0NGvsCRu8xmvYHZetC+7Kta8bc1HePIW4oZpJMHKcU3EcKpFEyapOcPLUI" + + "bJTk+yYBDyrzqvTaySqu9TaptMxysR2/ue1DsZQv2r5ls+eI9sH3AKm1a33Xd86m190YfnUkexpCf6cy" + + "3/wDX//AHU/dd3zqUXR7PR6nGbsZQ/UL7k/gMe0H/6lR913fOpH3Pb86nzn7GMeOeC/HIf8pFICPz4Vq" + + "xrpmXPD1LN0lj3zzFzdlKItOHk7hmtUI+HhoZmL6SkpSMImkgiQfrDnMLjHiDwFAM8Q7EDj3rK3TU/zm" + + "Cr06jG+c1QahatqPpB9FWM9cJW4m4OijMco7d8/QDYqpUznMdqU3kHHxCXAn8QjXQW3TyRojnv5OalWW" + + "JdiLwhYw4mUUMsoYVFjCPEqceI45/WOO411bWwbdu411SdxTWLZhfCo/EbwpIbdNs+lZUapO55TwkyBx" + + "DBgHJTl9oBDzAeoVCrIimRssqdi6Fpa16w2KJS2fqZesKiUQHupJRyq02HPD3RxzEMe7FZmVMrTaZXTN" + + "9TJi2fyifaPgQIlJP7Su5NMOHhuCIBNYwe9aGO1395i/f1rZbWrjk9KK9q1uFLnG/Kg6qckADTSwgccG" + + "O8A6mDJ59e78Qf/ANw/LoFvbTL9vlmbq7bnaX1PdIQLG6GVnJS7krMrOymwMBHmYSAh5NZZd8gHjE5jE" + + "EPwCtKoq2Rrvc7BqLe5lk4Xg2+aCT2klh6fW3ZMXqNCzcixZ94mpyUe8L2UlHBjLP5Bwd4Kaoissc/Bx" + + "7gnwFDwgFXptRW+TwrImTpKO5RqniUySZyse+TBRi9aPUh9lRosmoQd8bCQw16yVkXuLlD0PaWuXw9js" + + "S9Kztk3GVE3FVZC+MCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQshFRsUngjzxvUIiZ7mJ" + + "ZVRexIjirrn0Lom44xHfrj0x+NYVc5O5VXK3g6aWuKDhERcS8zGRKIZNzZF0i3Lt1wKg7/KtOS40kfnk" + + "RP9mB9VAnmfgsxPdpzSODA5UrgUnVyiIcmBbLuAEQ8u8KARAfkevFq9YW+FVa1+7BozXijZ2fksrN9s/" + + "wBott2SoIZHDmceFIAB6mRb5D7lvuHYOUrf6jKz8qPJ41Rqh7fy48lqnfaW1supUUYHuzPmDwFb29EKu" + + "VQ8sFUXOuOffivAl1ncqlctarcnmrfLhMuUYqHzBZvaavrxPgvU6Kg//jkmaNQwPq3IKY493BWm6a8VH" + + "Zz0MyQXSbnxHoY3shXy+Ei85cVvRhTDkwp94frl33/SlKTPwPRmna2Vd0si5X6mzHpqsk5e9c/qXOiux" + + "7bSHCabu2ckgD2k2aSDNP8AmmKKh/vP/sr04dK/Op6kOlvnUuPGdmPSKPEDmgnMqcPaGSfulM/tEKcCf" + + "hW8ywQR8KxFN1unKZvdqKXCjNLNNogChH2Pa6Yl6GFk3UN1z7SpBN+Nb8Vspm/22m6yyUjf7afse0bx8" + + "e0KBWjFo1KGwEQRTTx8iAFbCUsDezE/Y3WUcLUwjUwfYG3/AIVlRrU7IZNjANQ+PKZJRjSAAAzsFUjyZ" + + "FNfH5QDW9axNPUdMLXcG/PPVJNaOXKzMYzhnAgAEeKcCfjAz4xu7ED7ReaP2Qrda5yHg3qsVrOm1fEXm" + + "7Jeh6WhmkMXEPG5U7tuQhLgvFcShzCvl0w7vHCOMiVgiII+nGBzB7Q0lcqoZ7LArI8u7qZRYABHAedaq" + + "t4yer3TJbjVjTaC1c0+uvT+4CALG4Ys7YrnhKJmjkggozeJ582y4FU26hkPOskLsdzSraNJWGuPsK6kT" + + "em1+Xr2WdRlTNZSMmpBxawuDmKTv7c4mlY1sobYxHIf4QbmLsbiPjc45u7xO4PIoJeivSX0NsAH93FuP" + + "EYAxv8Aax86jYq+p0iIjm9yrruPX0qOUIRzUXbnkgBARqd2C+0g2C+M2eEAN5gADt0EfLGM5+NGrkxSS" + + "bW5NCvbb7S7zVq8HmndqvB/g3s+VUaHBI5k0p+YZjy1nrg5BDiRQMByIgOQHh4w616ESHCXy4q7hqmE8" + + "FATt1yqEDbMLK3HNSKgA0ioloq7dLZHYOUjgADzFQ5tqzq9vY56lppZ0M+LB/J2aiSjEs7qndtu6XwxO" + + "FRZqYxZF6imIcX8ZNxN2yAgHXjW28wGsCtZ8EPdhsT05c/B6mQ0V/J92FxNrr1yuG65RDJFkYCQI84lA" + + "3ECpwDFZMvoHEf4iI5Go/Q2PZbe3iR/iLeSC/5OdtxFax+vEkOccxkocnzDvC6Yf1Aq2V+JidDavnX9z" + + "zbs35P5wQe7B2kI8/kADCqCH81VQ1WyvxNZ76Fq4aq4PGyTDsZGHMbcnaPL6IrRVqKcXu4jrlH8KclOp" + + "R/Ut5OqaBt0jBbEfrLJOgAQRUuV5bsc3AfIRQZNnihvhzAq6GlN0s7kTgtMoIZPwk5ZTCJyJrAOcBuQm" + + "S5NgNxEQ3MIgXpgKtlDWRrZeGobbOyf2J2sjZxb/wBSzy8VO3Eim5taHRMmktHRDgB5Tx2mYMio9KHhK" + + "bchcCO5hrxrnSdZF5Ont9h3RIrjISY7HAKcRoa9zGMJhEqMwwTEDZ3HiURNnr/q/wDbXByaekV/hdgzz" + + "abf7ri37zszay28qKsC7ZPODxArCybhmr4Q24SqkQx/TrHJR3WDhj3YQ8l9muEa+FVVDrxuLtO2DnvSt" + + "+JN0xwAvkBm2oAH+sBJ5gP+dD5UjvN2p++5TC6qucHo49FD9sDUSLORGfiLfmChsoJ0nEa4HffAlUVJn" + + "+ZXqU/9Q6yFem+POPoZItUVbPC+L+C8kF2x7QeCQs/bs9B74Oq35T1EN+uQBI+P5ldVR69p3p+JwerDq" + + "GJ3n8Je23dcNLbn4Cxl7QZVj+y2kFRYqiOccJSvOWBh/ZE1dLT6mt8ycPTJ7ENfRvTKSfyXSRWIsQqiS" + + "pFSGDIHIIGAweQlMXAfhXrRTxy+RxtdZF8vJzgIbf7c/jWTL0XGODJtV3KkiOKuqIpjWRW+gAalG8cFm" + + "ruTJNVRC27AqVGRQCgFAKAUAoBQCgFAKAUAoBQCgFARVW+YuhxmPw53288gO3zHak0qMQwOUtndmrunl" + + "lAcJ+62DZwX/iDY/eXQjjiAooIAqYvEAhjiAvxrwavUFBAnjcm81JbvTQ+Fy+IxuuntkMEhUSs213b0Q" + + "2B9PKg2TDb2gbt+ep/SEua4mu/qB01xCmTw6rUbE8hj9Ma/a1X057hHSrtrzjcKcbaDQ5FMCGMCZMRcG" + + "z1yCvyDpXMVGsLrVO4TwqeWt0r518KeE5Ins/6y3ov32WYrMwVMAjIXc+41PTi5IidQcY6da1FtdfXcu" + + "cqF22Cpq+XKqF8Lf7HUemBVbru946HIcxpBoFaEN/JBd5zDdPTFejS6Pja1Oo/xHpU2jY2Y3PypfK3uz" + + "9pNb/CdC0Gkg6Jv3mdOq/PkOhsLidD+iUK9+nstPF7uTo6a0U8Xu5Lts46Oj0wQj2TNiiUMAmzRSRJ9y" + + "RQCt9KeJvlYh6bYmN91P2PqEoD1ERrM2d7PKwv1FTs0qDH/AJ1D5ZXrnBXc9fQnb3VRXTD8Qbe6srZOM" + + "O7lk3eo2orsjDjrpSRaREdISr5fujGNZryT1yYAEqbdoQFVj/AEym29w1dseTDPLsZyaT9S/wAo/qrMT" + + "ThLS1lBWjaySpkox3LsQkpN4j/kHDk7pXu7fmF8WDEzgQ86220+Tjqq/wCxynsdC/yiV7q3XDW1rOyhZ" + + "GDnZBGKLdMO1+jnjBZwqRAiy7chjNVkAOoXJ09wwNZHw4aXt+oOtNsNuNyXFFWpb0zc869Kyh4GOcykm" + + "8OHCVNs1T7wqcoD1Nyw8AfaMIBWijOTrJp+kzcpqR7Nluy/aw7Sl1doe82hzWfZkmj+bsW5Awpg7RMKl" + + "vxqfF4BLHI5drY2FcU8+2asmODm4YVq6hZfQ3FF34TZ3xuYvQR6ZD41g3ZOta3a3Bi32h+0NK9nh5bk5" + + "L2M6unTqeVGIeS8G6IlIxEuACo3TVbr/wAXVSeIgblcxVEAOkYBzkojlY30POr6voMLLufylegaLMqza" + + "E1KfuDp5SaBGRyeP1QM5Vkil32HJTH9+9bDqU8hNRM2muHX/tEw+qWq1ratafWlJ6eXNbfdBPKOnaK6r" + + "1ePUA8a7WSblIBBblDkn4Vh40uAojguAs2HCHgVNzR8qvQ72Y7fXaalFOJvd8FbqZh4e7Q8FHH5Zugpl" + + "Wd84R4R2zxDVljKre6j3VPstb8oF2kLefJOJScg7zYF8SsZcESyRFUANg4EfRPdjpG9OIx/h5UWDgtFe" + + "5Guy9eTaZ2de15YGv3+B0k1rUv1FHvLm05NRMwuEShg7iIcgUhXSZR9oDBxlHIbgGa1XwnW0F4bUcFy+" + + "0XdrmydC9UbnjxOV/H2c6SjlSiJDkcvSgwbKiYMCUSKOSm92BqsLfEbdzXFOqn53tI9Jrw1mvSOsaz25" + + "VXCxudJyzrmdzi48ggmrIvlS+ymnjw8PjMfhKGwjXoPTCHzynpnVM2DZre+pGkPYVt3+DjSiHY3XrM+a" + + "EGduOXAo8hVdMBB5NOE8nIKgjxIMGwgHsgbHnibyh78ix0CbfVDWJqHq7qZqy+UkL/vCbuIxlD8mPcK8" + + "qOb5H9GjHpG7u3AP1CkyA+1k2RrIkSqc/VXiWbhhbcvDgALjBfCAB5Y2wFW2YPOVqr508RPXrvTaYXRs" + + "+UnIjsIjiro0yslRqY2EVO0v7R/9f8ABAiBAyI8JQ4lDj/IxjcC9S58/az0qjlwWa/q+HGDZx2JOyCe6" + + "nUZq9qlF8m1mS4O7Ptx+QcyrlE3hkHyCwbtUDl+qKYPrD4MPQK1XvOrtFn95TdCUAEu5QLnOSbDw56lH" + + "GQyHQfhWlJvcp2MTNvCFQfGqoqtMzikSFE2ae0yKuEbwU6zvgVcP+41DserCOF7tPMzVmWhcJFE5624O" + + "U5uwneNETqdMbKATmF++td9BBKmdiGvJRxPTyIWUn+y1pbKiJo9rJW0uPsGh3hjJAI+rd9zC488FAK8a" + + "p0tTS+u08Kp0vTzfQsZcnY+uVrxq2zc8XLl9rusymqwXHHQpVkAVKYf2gKH768iTSaxLmN54kujVjXLH" + + "8Fpl7Y1z0qV56Ta8YJJM2QcQy6j1gIBvkxWRly8PrzClrWdNd6T8vKmhIyvpPLlT3NsdrfUmL4UJtKGu" + + "lIhuEwnS7o8wUfF9Y0MYmQ6eJP475r1qPXNwhajJ28oZYNRTN4l7mRtqdrXTqaAqM+WUtR2JuHidJGdt" + + "RER/wDzLZMeEPedMn9o9jbta0kn5q4Pep9RU6+YyKhbngrkag8t+YjphoPVxHOEnJS+43JPko5ztXV09" + + "1hmTdEuWnqR1jJUyzsehL0r0kdkzom4qqS+MCgFAKAUAoBQCgFAKAUAoBVVb6giqdf6Daoq/wBVIxhcn" + + "np654K2Wh5Cel2MQxSARUcv100Sj7igbxHH3Frz6m7QRd1wY5qmNvdcGKl69sC2YznN7Mi3NxOS+AH7w" + + "3cmACIbH9hRY4fImfXzrjbnrmCnyjOVOcrNRxxqsbe5ihdGtuql+uQZOp2QbouclRhLbKZiCnFsBA4DH" + + "WVD9s+/uDYPn1bqutuDtrFc39Dn5KqrqF8LlO/tHs2anXQKbp6xLa8er9Yd9PH4XGBHxcDRIFVTCPX6z" + + "hz16CFYodPVM3jkcq5+JsU+m6idUe9V5+JlBafZR0/hOUtcC8hdLwPGBHRu6s+LOf8AFkjCI/zjDn8K6" + + "Sj0/EzzJk6mk01E1PEmTI6FtyAt1uDWChYyIQAOHlx7ZNDPn4hKUBN869tlJHHwjUOhp6SKJqI1qId17" + + "/OszUx2NjYg9/nRUyNqCrJwWFTuUgYpuUDAU3KSMBTeoKDDjYKrtypCN5OvkZSOh2qr+XkGMUwS2VeyL" + + "hJBunsA/WnW5YB/TGsqMNaWoax3Kni07p031Kjpm1oy7rWudvKx7yIkmMHLMnqot3LczdzgiBzYHlqY8" + + "/31ma1TG+eKXLcmlTU78n9rlaMy8JYsQjqLap1lBi3sa8aISSLfi+qRkGT07UTHIHgMZJU3FjiN4hGtl" + + "jlQ4Ov07I+fcnY9hoV2A9TpK6Iud1aZM7ItCHeISj+NM+aupSRK0PzTN+W25qCCJ8AAmUEDBv185eqqh" + + "vW2ypTzdRS9Pbx1kcXe5tbs36XyCE7L3rItD3J9CuCqgPE64IeGMomqKY8bn+MuOI32Eym2MIBp7Fyej" + + "cJ0kXajjPvQ/SiJ0Z0xtzT6MKmqMc07xOyBCcsH8o4Hmv3nCPiHmK7F4h2TKQvslAApJwuD27dE2OFqI" + + "XerCb+DxWoFiW7qXaM9Yt2sSyFv3Gz7i7biPCcBHci6CoZMkokYCnSEv2i79ayxSYU1KyFsrFRUPzn6y" + + "6P3b2c9QnVv3CxZTLBVRRzbc7JsyKx03Hib6tYU1+FLvIZysmBvCbiANgCvVR2UPndfbnROPNttTWSCC" + + "6JtJtIXhlEVG4u1IR9zi80vKFZHlyxSFEvtl8JsD0Co2KaKTx7NuOT5dPNRS6fLyIrWBp3fjWSO3A7XU" + + "GJcPyNiNzGMP0evzkFkeYUQKPtZ6bhU7VLwqjFype5tqt2Zb1SKw1I7PoafuFA5hrt0ZlHKa7cB8PEaF" + + "e/VqAUeu2fSo5PQ9rp5/wALYmfidHfGj8/pO1tzWrSG9CXzp4aWKvbd+2+Q6L6Hlkh5icZcDMo8bRUOE" + + "CmPsVTJAHwqGCoUyJROpPG1xuCayLntW9kV8q2TI2uC/bGdsF0SCBEiT8eocMfyU137YOH9Uph99ab18" + + "SnTxK6uo0+JjGd5E9gvs6MkE0GC+vupyJVVgEE1BaOBTz9b9rusORQpSB0Vc7dBNWwxcoaEnSoo8e98T" + + "UZIyUhLyT6ZlXy8lLyjpR9JSTg51FnLlY4qKrHUOImHiOYw7jt0rM1EwcdUzOkequXJ8Xp7sY+WwVc1m" + + "ojexPXrUF1eqkUIyKhUUbVTxZAiBQMPiwUnEc3CJsAJuEClAoCGRH1KJvTao5MkczncIhs97JHYhe3Ir" + + "G6mayRRmFtpnSkLbst79WvKn6IO5Yo/o2g4ASJ441PaHwiAVgkdydRarZuw9yG5hsgi2RRboJJIItkyo" + + "IooEKmmkRMOEiaRCYAhSB4Sh5BtWhKqnaRxo1pzYDpjYNgrGirgyoKlSwwFSjlTsCaK5VIIwFNykjAAG" + + "A6elVIJ93lQYIwGMYDHpQosTV9C291aTae3kCgzdrRiy+N37RMWzspsYA3PbgURwGPaEa0Km2Rzcq08y" + + "ps9NKuVYmTGS7OyCisCq9k3GqlvxBHXATnJm29kr5uAGDf/AFR/Qa5as0xuXwnK12lt3kMaJuwtUNK3o" + + "SDthN28ZuP1M/BuOJvtuAnetfCmA+hwz64HavO9lrqLhr3IifU8GS21lKu1HLhC6Fm9q7UG3uWjcAM7s" + + "jigXiWch3V2HuB2X6k4j/rC717tv13NScS5d+ptQXuaDh6qpl5Y/aQ03vIUWqkmNuTCgB/gufMVtxiI/" + + "wCSXHKanuwIV9CtmsaWrYju2Tp6O/Qyt5XCl+k1SKpgoQ4HTMGQOQwDsPsjsIhuFdSx8c7ctU9prmypw" + + "pzF9kNxGr8xpjuW27UwT99Qjt5R0u0mr4wEdu5JoSKAUAoBQCgFAKqiqq4ITzHnbjueDtRgtJz8o0iY9" + + "EomUdvVSJF6B4SAfc4j6FCtOsuEFGm55r1VQkaGFWoPa7XX58bptG7YEv5wS6RjZ6eJszAd984FTr1xX" + + "zq8a+hyrYlOYrdSNY3YncxFdSF6aizaXenE5eE44H+LtSCs4MBhHA8pHIkTKTp9Xw4xvvmvnNRVVlwf4" + + "FU5fNXWv8KqZNWD2S5mRBB/fsp9CtzYzBxnCo9Ephz9c6xwNxH0Aig+pgGvWtulZVVH1B0lv0s9UR0vc" + + "zEtDTWyLDSBK2ICPj1ALwrPxKCzxUPMTOT8ShuIfU2PcAbB3ENroYm+BEydnR2uKBOx7sAAcCIYHy9cV" + + "nau1MYPTRETsV42x5VPj9CquHSo59SzVyTQsKAUAoBQCgFARnpt0H48XhNsHp0CrtQxP3H57O3Lf18XR" + + "rveNrXE4fpW9Zz1COti3DGWTad05Kaqb4UxHlLndicT83AiACBM+GvQjjyfOL5UzNl4MQGLtzEvW8lFO" + + "3EdJMFRWZSEeqdq4QOQomKcjhESnA2S5yA78OPOs6xYQ8qGumjcjsn6VuzFeF0X/oRp3dd6FVPPycPxO" + + "3q6ZkVHxUHKzVs/VRP4gM7bpJrjnfJ60ZFwfSrbMs8OVNd35SLVO/GV627plHyEjC2ce20p5RJkou3Cd" + + "fLuVkeWsukYoKItCphlI+QybON6yQLuQ5/UFW+FNqGrRuZZsoiozOq2WT8bRygqZFZM5S8JRRUTEDFVA" + + "vi485DPWtxYeDj6aeVfEb8+wLqbempOjjw97O3cu6tW5FbbirhkgU7y/ZA1auEyrGOI84UTqmR5mRHw1" + + "5U6eJT6LZKhZIG5M5Az57D5h6D5h8qxKdD6E49MZHzqis9SiFqdYdHbM1ts91Z15MCrtz5Ui5JDBX0W9" + + "4cEeMVfaLwBgTEAcHDwjms8NRg0qyjbOmFPz9a8dm/UTQObO1uRktKWs5cHJA32xQMaOeJ/5JF0JAErF" + + "cxdhRMXcciUeEQr02S5acHcbOsErlMfgxjp5YwIYx6lx7hq/UPEc/PBP+3i+frU90yThI25TzF/uz9rI" + + "lpdcbyFuhuE5pJfiP0BqXazkhl2q7Nz9QWQSQ8WHLPj4wEheIxRKGeLgEus5cHrWuplkdiTsb5NGrJtT" + + "QnR5lCsblSkbRhW8ncxrmeHIKIx7py4kyORVKIgcibQ6ZOL7YEOfqatb1O4ajaaHe3ymlbX42q/aAcXH" + + "2k21uSjzS5rNubRt4UuNVSGi2KYFaqrM0PrSIuDLCZVwGS84TEOGArYjOSuUMtZmROxiKBk+iZuIpfCU" + + "fCOQDYPYAC/cGK2EOd2K3hSfwqQKAn06beIQz7QfyhH2flQHv8ATrSvUPVeXShdPbVkbjeGVEFnCCJ0W" + + "DUpg9t6+c8LdNMufNQp/wBXNY3SYNmnoJZ3cdjcd2cOwdaWmC0feWpSrG976bct2wZcP+AoZUMDzEElQ" + + "EXTgof5VQOAB2DOw1rPqMHdW2xMh5cbCC5D3ddxxn8Nunpt6bVqulyuTomsaicHIUMBttWJVyWKqBBQk" + + "UAoBQCgFAKAj093Sow8xKjsgd987+tW3KncsnBxHTKomciiZFUjFEh0zhkDFN1AQHYaSRxyN5KPjjdwp" + + "YO9+zjp7d3McsWg2pLqiJiSEGVNIgmEPaWYmDu5viUoD55zXP1OnaaTuhz1dp2KXsYUagdn+/rDBZyVk" + + "W44AnEdSXhE1XHLAN/44zzzCdd8ZDzCuSuFiqaZ6uh8hyFZp6any5vY6exNa9QdPjJkiZpR9FlP4oCZM" + + "q5aGLnJyoCceagIDnZHhAB65HNZLbqirpFwqmlS3eandhVM59OO05Zd6nbxsuf81J5QQTK2kVA7o4N0/" + + "i70PABh/UVx6b19Ts2t6aoa1j/zDsKG/Ml4XhTJlM3GQpynBQpgyBgxuA9B22+6u1Y9HN3NPfy16HLV0" + + "XIREQVIFAKAUAoCM1VH+LGB34KBOAFEegZxnb+3pVpNre5C4j5Uxl1d7SEBYPeYW3uTcl1AHAZMin8Rj" + + "hMTiA75YnU2DAIJE8Y+6uKv2sIKRHMaviQ8K46gihRUTua7Lwve6b7khlrplnUi4HPdkFCmI3QKI8IEZ" + + "tCDghf5WOP13zXxmuv1TcJFTcqocNPcZ6t3hVS8+l/ZuuO9StZW5ObbVtKG5hCHKH0i9DGxWyRtilN15" + + "h/F516Fs0ysuHvQ9i16afLh8n8mf1m2FalhR5WFtxDWPAxAB06HCjxcQ83C2OI5s+o7dAr6DRWqKBvCI" + + "h9BorXFA3wt5PbB06Y9AH08q2pFXtk9HBVWLagwhFSCanKjAoBUEigFAKAUAoBQCpyVMetZ+zHpNrpyX" + + "d6QiyM2yblaM7mgFgYSiSJR4iInXyZJYhRHYqyRgDyrIkjvieVWW9kvdvJYq0fydGgduSaMnLfnZeabR" + + "cFUIq4nqZI4TFxwFct2CDYXBNg2E3B7qnqu+JoR2dmeW5M7mTZo0ZtmbJBFszaJFbNWyBUypJJpByyJp" + + "FSyUpSFDAAHQOu9Y1VT34ImxtwiYLQ6z6D6b66QyMTf8QdczADqRc4wU7pJR/M2UBu8ABDgMIAJiHyA9" + + "cbBWWJ2DSuNFHPHhU5NF8FpTp3pzr5KaXdpJW5YG3mb4zePmYdUjVB0CyvCwePFTIqqmZuUhDmqNCAKY" + + "jgRDFbvV+pyUFv9nk8acG7yy7+7ONhWzFWnZ9/aWW/b0UhymUW0uCLApMjxHOcyjnmKKHN4jnU8Zh3Nv" + + "Wm9uVOpp6ykaxMYQ9T/AA36Mf8ArZ03/wDmKJ/+5qnTNj7Sp/nJ/hw0Z/8AW1pv/wDMcT/9zU7CPtGn+" + + "ZCB1v0XHrqxpsOcdbiifIch/wAZ8hqvSJS406e8h1kzqpoFcUc8iJ3UbSmaiZBDuz2Lk5uFdNVimHcFk" + + "TrmAQx61la1TBUVVI5viVFNLvajtXs8Hv2BtHs0Mn07dkzKJtJNhbD7v1u85zgrSMiyGA5hXUMYVFOQs" + + "CSKZcZA2QDOkiIcrU0FNUL+GuDIGN/JfTiqDE8nq8wZrrNETyDVGBMuKK3AHeE0lQflL4T8QAJgGpdOX" + + "g0w5E5XJlVpB2EdG9MHZJiVbu9RbgTTMRCQukqAskCqlMkr3WLbcaQKcviDjU4h8Wwh5V6rT2YLKjDBf" + + "W7UHUSwramOxQzaP3bkt9EiLXnSGOZR9Ycsci8BDhgePm88xUDjnwpIGD2Rq+MtyefdHSfkIvCG3XSLT" + + "iP0r0ys/TtqRucsDCFaSKvCHKevFwFWUcG237w5OobxeQ71qySbTorbS9OmwqFgtT+wpoLqQ6VlW8M7s" + + "GbXAeJ9ZixGzVQ4hgFVY06ajTO3UqZMjuIiIiNXjqPCaE9mjm8SJgxVlPyXLvmmGD1mRFDPgCbt4RPw/" + + "wDKM3yaZh+BA9+9ZeseYumlVT6Iv8lwfmF+ntYx5WciWHgASOIeYcxw+WL/AFKjrkN00ue5kNZH5Pbs+" + + "2ooi6m2E7f7xIwHELoecDITFHYe4sk0UxAPRQTANT1z1ILDEndEUzRgLegLZjUIm2oWKgYpvsjHw7ZBq" + + "3LjzBNv4c+o9RHrvWrK9VcexBSRxJhG4O6rCbOCMB6UwCaEigFAKAUAoBQCgFARVtykCoJJqCu1B/aGB" + + "oSUGx9oM4DG/p6Vbo70wY3xI7uY8amdnazr67xIxaRLXuM5BMEhHplBuubGOJ4yJwgqHQOYXBg9a5256" + + "dZJ2TCnOXHT0UvlTCmvi+tObr08kfo65Y46CavERjJoZUZOiBuHJULt4uuFNwHbyrg6u2zUT9yHBV9tm" + + "pHr3Lj6Xdoi8tOzIMHp1rltkpgIMW9VNzWwZ3KzenEeAfPlH8PpiuhsOtpYV2SOVU+ps2rUTo12v5NkF" + + "i6h2vqHEklrckiuQzwO2Zh4F2qvmk4SN4i4H7QbD1DavtFqvENbC1Wryp3lNc4p2ptPdgIdK9RWqxM9z" + + "d2FVGP3pkgmrgUAoD51TgTiMY3CBQ4uofPOdsAHnVZZmRM3KVd4PEYEa69pFVdd3Zunj0U0UxO2mrkbZ" + + "E/gDhUQYDsOAHJDqgOQMAgXbcfkWp9WPyrY1OPvN74VrTClu3cu3CTdo3XePnznkNm6HGos5cLG4uEBD" + + "xcZuLiER2HqbcRr5oiSV0viXuchC32qTCmwbRfs4sLaI2ue+kW8ncJuFdlEHADNWH6vGUQEqzkAx7XTo" + + "Fd5Z9Nxw+Jx9Fs9hjhTc5DLgCgBccOOINwEAzjH2sbdK6zhvl7HVtaidioNum22Pl6Vje96h24UbnHJd" + + "ucck1YsKAUAoBQCgFAKAUAoBQChVSBz5dfKpQhqopxlznerKXOWqGPdkpx5gAZ65/3+FQrsFiyms2gWm" + + "uvEMlD39DCusyIYkTPxpu7SkdxYEwNnRSqFMQw9UVyGTH9UavHJk06ylSVDE3+9jaFedzal5+0PfIrcf" + + "MfDGFAM9cAGArPuPISwMdyqj+9i6E/6Talf/GRf/d1N5P3dj+Yf3sXQn/SjUoP/AGuM/wC7qjePu7H8w" + + "/vYuhP+k+pQ/wDtkZ/3dU7x93Y/mJ/vYmhPX85tSumP8cjOnX/9Nqd/BDtPRqmNxf8A0T7JmkegrxzMW" + + "owfylyrImbhdNyrJOpBs2ObiM0a8KKaDdM/2hKQDD781jU26OzwU/OTJsmeEM7bYwGenluPX+2sKoezx" + + "6FeAEMDuGMb+g9QqOSi5LKT+gendxau23rVJxi6l62wyMzZqlVw0VDgMmg6ct8ZOu2IdQETlHJdq2Wy4" + + "bg851Ajpt6l6CFEAATG4jcIAcQ9Q2EPh/uO9YH+I9HcnlK9h+AhiqI1U4IaipwU8NW5MiuwSBQDpUcld" + + "+eScBTknkmpJFCRQCgFAKAUAoBQCgFAKAUAoBQCgIyHuqu2TOU7FMLkjhD+2rdV3qTk6K4bchbojHMNP" + + "xrWSjHQYXSdlKJQHGCmTH2iKBnYwb++sNVSxVMe1U5NappI527XIa1tZtCZTTRyeYiTKytnLKGL30wCK" + + "8aJ8GK3d8HiMXI7KemM7182uunfZ1VyHzq9afbT+NOxaK07suGyZpvO22/OykkMGNwmMZJdHORRdp54T" + + "IG9R3rStN4qKKbKL4UOepK90D+FNpOjus0LqpEmMmAMbijwBOWiTHDYR/4w34hyogcMG4g3Lnh8q+8WH" + + "UsVaxGr3PolpuqVCY9S9xdw/wB/7K6jCJ2PacnJVQgUBxGNw5znoHz36B76xORUXPoS1vhMJu1DrMvFE" + + "W07tt7yXrpuClxyDY5uJs3UxwMUxJgQUWKIGMIfZHFfOtaX5I2rEx3Jyl5uWxFYimAA4ApgH7OeEpC5w" + + "Yo+0BftcXsAHrXxyJ7qhVzycNG108hsT7OmjCdrx7e9rjbAa5JdqB49usAH+i2SmVE/a3BVUMGHG4Z4a" + + "7+xWtGRtcqcn0Gy2hrGtcreTLMvljbw7/Pf99dcqYadk1mEKqxN7FkJqxY+R47asW6rt64RZtW4ca7ly" + + "cqSRCeYmOfw1CzpHy4xSSozlex5n8/7G/0xtjHUB+lWfTy/ygfurznXKFXeZDRW5Q7vMhH5/WMGRNeVt" + + "AAF3EJNljH/AEtZUucLvCioWS6QK7ainrEVU3KKayShFElSgokqkYpynIO5TFOXICAhvtW212OTb6qYy" + + "Vhtt199ZHJvTJdF3JkqrGxuF5IbkgOlZHZzkuoxUdX6FdxOKdX6EZFQqqvoTuGajpqoxkZzVtqtLDyqq" + + "Z3fQrnkpAB3yO1ZXycdiXKiFo731u0+09l0IK4ZNyWSXSIsogxbKO+7pKCIFUc8r9FnGQz5b15FTc6di" + + "7HOw48mpu9PG7Y5cKXOjJNnMx7KVjF03TCQapu2q5ByB01Sgco+4cDuHkO1epTdCSPO83oJonsyinYVj" + + "Ru1eOUMzSn7WQ6gXqPqYcAFRuVFzgq5ylkLr7QWm9nTr63Jl9JBKRhildptWSyxM8tJfgKoTwiPCcP3V" + + "oy36Jsyx45Q8qW9xNmWP1QvQzcJPGrd2iCgJOESLJAqUSH4TlAxeMptwHA75reZP1E4Q9SKbemT6ayI1" + + "VMpGQGp6ajBNW9Cik/+dY1kVPQhcfApDqNS9ctL+nBxqKETAVDmKQhAE5jnMBChwhk2TDtgC71dzkbHy" + + "HOwmTzTO87SkHRGDO57fevHCgkSbN5BqqqoYniApU01AERx7q0GXCN6dNMZNBlwY9+xF5PTgfIh79x+e" + + "/qP769FkKo3J6GzCFWKxK/BORio6/0KOeMb9anrZ9Cd3BIhU78ehDXAAxR06Y7FhmsLHKqhUFZVaqqBm" + + "p6ajAzU7cEdh0plHEbsk1VUwSKgg6KXuKAhBInMzkXEGXKJ0SyDpu3McA24y85QPCHTpWB1xjpnePH+z" + + "Wlq44Fy9T7I6Rj5Nog9jH7WSZLZ5DpkqmuioJTCUwFWSESGwYBAcdOlZGtWb8ZvlMrXpMm9q8HWP7tta" + + "JcKNZS44SPdFDJ2z181ROQBADZEihynDr6VgqLnDjHCKYJa6JvhzyffHy8XMNxdRckzkmoKcvvMesmuj" + + "xeReNIRz8jdazxVH4ee5nZOityW8vvWew9PFiNJ6SWPKHLxpw0Wgo7eCGMgIpkHhTAQ3DmeW9eZPe6aN" + + "drlw482e9U8S7Xu5OPTXWO2NUVpJC3kphFWKIkq8CSbkTLwrCYpSgJduLwVsUddBOvCmalr4Z/K4u0Xc" + + "AHGMhkAH08q9FyNThFPR4RcZJzVFjUnAwHWpRVRMFiagEY+/HDn3elS1yIpT1Phfx7OSaLx8g2SdtHiJ" + + "kF26pQMRVMxRAUxzt761qqFJU5TJr1MTZEw5MmrbXLSU+mFwgoxSWWtSWMo6i1eHPdVMgC7FU3mICOU/" + + "d0r5zerctO9X48KnzG/WnbKqtbhC1tt3LNWbOMLihXgtZSMWDhOGeBVPi8Tc4B1TcGyTHQParRstZJDL" + + "1EcqIeRbKxad/c28aZ3/HakWqwuBgYqKypTN5NhnJ2j1IwlXQN64MA8I/aLga/Qlhu7Kuna71Pptvrmz" + + "tRxcMPsj6hmvad5jc98qDpV1M55S87ja2ha8/crvh5MPHrPxKO3GdJITETD3qG4SF9415d5quhSK80a+" + + "q6MKqaX5WVfTko+mpNQyklIu1HjtQxhMIKqD4ilMO+C+yHoUADpX5tuVU+tqHOyfJ6+qWZ6uLv9n+xU7" + + "41DjyvUhWirfT+nJEohkh+ScAZICA7DxOB4hD9UBrcsNH+PhToNOUXUfybVgIBQAAKBQxjHu6hX1drWw" + + "ptPqETGsbhCQCrOfuMpVWPGAgoSY/8AaYl/onSacTKYCLS7tnFJeXFzlsqB/wBEQ414+pKpIqNMdzntS" + + "VXSpfqYH6ZaM3BqonMmg3cXGt4bkIHUkyLkIZVcqvCVIyKY5ApCAPXYa4K222rrUVWqcJbbfV1qKrVLt" + + "p9jy9BWLz7itTknVKCvLK84zIAcDfV/VY4vQa9uj07WQP3PU9ik03VxSbnKZ8pPoiLRbRqkgwad1botg" + + "QcLpInKQpQTRAqRuEwZwABtXawVLGN2uOyhmaxuHEyM/CxBkiysvGRormKVIsi7bt+YIjwgCQKeI2T7b" + + "UWrbuwnYye0tzg7cogfGM779D4H9g+enxrPnKGdHHRSN0W3En4JWfhYw+ccEg9aID8uJT94Vilr2RptU" + + "wyVkbOFXkrjbjgZnaInIqS39pi7buhz+rwoGxVIKyN6lIq2N6n3OJFgz4AePmrMTiYCA6XSJx8O6nBxC" + + "ADwh91bUk8aKZ31TEXBQpKRqDXvy0i1TZ8OSull0SoiX7Jubnh6edar7jE0p7Yw+WLn4SbBQYiYjZYER" + + "4VTxjtu6AnvV5Q+XTYPjvVI7g17uAyqarsIdyADn02wAB9rPmHpW/IuUNvPB1MjPQ0TvKy0XGBw5KL10" + + "ikA467qmJ++tJa9kfhXuaT62Ni4VeSIy4YOaDiiJmMkgLucY1yi6KBBHGcJHUD28h1q8dbG8R1kbv8Av" + + "/oxK1Z0FQvm/XVxsr7g4lKTKglLMpA4KLpKtEiNctQKbx+AoYKf2TdK5O6WiOerWTdjJzdxtME9Usiux" + + "kyrtiCa2rb8RAsRMqyh41FmDhYeETctMAMqcTjsJxyYfjXU0VBBFBy46OlpYIocZ7HA6vSz2K3Jd3Xbr" + + "ZxxATuy0mwIfI9A4DH4qpNXxRMwikS1sMTcIqHoEHLd0kDts4ScNzYMRZucp0xEMj5GMA4Ac9a30qYnU" + + "+4ze0NdFuNSsoY1+ayOyk+tLcF9igmHUBQGQTQHb0BuUfkFfKVlSW5OX6nzVJEluDnG2M7qPjUUE3Dps" + + "zS4ASRI5WTR4gIHAHBxiHpX0yCaOOM+jslZHGcjOSj3wqJtHrR0dH9IVuqmqYmdw5hUxHFRHUo92UIiq" + + "mvXg+k6hEinOcxCkT3OoYwcKYYz48iHDtvvWzNLhpnfJhDzCt9WYgpyV7sttFfPDwLSbMo59ALzA/dWi" + + "lyjau1VQ0vtGNF2qqHeM5BhJJ82OftnqXmqzXRWKHxFIRCttlXE43Y6hjj7w6etS5Uc7jsZc5PCalTP5" + + "v2Fd8xxcIs4B6ZLyHnqJclAA/aUMAVo3iVY4FX6Hn3WXZTuX6f9/wCTXt2Y4UsrqzFuTkIqlDRz2WMIe" + + "Ic8HITMOdgMY6hRz1ritPOdJVK5exwdhe6StVxsvCWiwX7p9IMgeCPKMh3hEyhVQ2MTl5yJgHbFd5JXe" + + "NGHfyVqbtpwSNyW9DqlRl52Ki1lNiJSDxq3Ob3gVVT9wBVpatjHYUs6sYxdqnaIOkHKaa7ZdNdupuRdu" + + "YipDj9nhEpjBv8AGrtmjcZmytch17i4INm4M0eTUY1dEEvG3cu26aheP2MpnHPiEdq11ro2SbTG+qja7" + + "blDjkrjgYbg+mJyKi+cH1X0g7athUDzFPnKABsD6FCsk1wiRCHVkaHYs3zSQRI5YukHrVT9Gu0VSWTOP" + + "l9YmJgDpWSnmje1FMjZEcm5A6kY9nwFePWbU5xESFcLppCbGwgQDiGcDVpKiNiFHVG0qQdtnKXPauCOk" + + "cnADNhIoBuDAiUDE2z4sVLZ0c3chZkm5Mnyqy8SiqdurKx6apBBMxFHKAGKYDY4RKI8XF65rC+fBV1Qj" + + "Tx2pV9oWLaM7PJKsFZFix7xHxzpXHPXMpy0CGIkIK8JzCG5fIBrSrq/pxZPPr7gkcW4xx0P1mvXUC+JD" + + "86JWMjoCOiTuCxjVEjZM7hRZJNAgrOB5puEOYI5HfHpXhW28rJLhVPCtt66suFUzPQVTXRSWSVTWTUIB" + + "yqpCBiHyHtEMGwgPlXXb93J2TXbkycv9vh+FCxrQ7WcwV/qYjHhg6dv2+2bev1rkTrnD+iomNfO9TTOf" + + "UdNPQ+danq3ST9FvoZGN72jNEdELPFyUq88vBJmiYjIALh86J3tZRX7RUm4rZUN8ADrXT0t09ntu1e+D" + + "oaSs9kt/i74MS7C0/ufXa8X8vNuXBmPeSqXFcChRyTjwJWbYh9gUULghSk8KYdOlcfQUdRUydTPhVTla" + + "GnqKyTq58KqbE3CtsaX2asVkiwi2Nuw7hwxjgUIRRUzZM6igFLtzlFD7GHceYI+dd5LKykp8u9Du5Z20" + + "lPlfQ1l2RBrat6jptLjlO7hLOF5OdkDKFKoDZL606SJldg4h5aRfQuQDavnjWU9fVq7d3PnTW09fWK7d" + + "3NkNhad2NpkzknNuLmRZyx0FXT6Re81AeQPLT5S5hwUoiobAAOOLABXfUdspaRm7cd5SW+mpGZ3GK+ov" + + "aNvz89ZW1LRXiYuOaz30GykkkSuVnHLWTSUVMotlJMojx4EvkAV4FRqBqVjmMXwnizahYlWsbF8JnTFP" + + "WzpskRB+jIqNkiJunCKyKo8YFDJ1AS6cXWuspare06+mqN7TtQxjbpW1nJtk1AI86ssfGSqgeg+g9Qqj" + + "F5KpyW51SslrqDZM3bp0y98Vbi6iXA4KLeRQLxMlQN1DxBwmEPsZL0rz73RJUw7E7nn3Oka+FTUEqRVF" + + "ZZJYhklkznRWSNsJDAYQOkIfyR2xXyapToKsR8brKfEq4Mm+yvfCtu35+bDhbhh7rQEhSGMPCnJNy/xc" + + "SF6AKqQCmIh1wUPIK7rRFe6KRIVXsdFp2qVsmxTZ2Xp8NvmHWvuqcofQF+JVUF8mMvavkVGOlThEmeGT" + + "nI1grj9QFhcjn/oq4rWk6tpFQ5++/8Ax1NXgf8Ah8ff8+tfAad/mU+ZQsVVcZ79jiNSCGvKXEC81aYaR" + + "gG24gIi35uw/wAozjHyrvtGMa9HK7lT6Jo9mY3L8DM8nsF8vCGQ/fXYdzt4vLyV1JkFCqihBhR2xZn/A" + + "AVZ1uFPu4fu5dYoDuAN0e7oCPxFwpj4Vx+qqhGxYOK1ZUo2PBZPSHXNvpVDyManaf0yvJyQSK7oHvdx8" + + "CPKTJw8k2ALvgM+Yj514li1E6lZw08KyagdTRqm3gyo0k7QC2p9zK2+naX0Sm1jlJNZ4V+C/DyjJppkF" + + "IEAEvGcwhuPlXXW3ULqty5Owtt7dV5VTDPWaUIvrTdD/lc0IydaNypDt4Y5FFM24gGwHQ6e/wB9cVe62" + + "ZKvDVXBxV4uErazCKuD3trabao6t3ZDai3BF8VvOZ1tKLqSrgEQKwbLAqCLNsfJikIUpUwDGBEph869m" + + "026ofL7Q567V9D2LZb6mSoWoc9di+noe41/16lG0m+sSx3qjMrH+Jzc20/TqrZwqzZnRwKQIhjiOXfOS" + + "1e63dzJOmxTLebu5r+nGpbhn2c7md2fI39dU0hFClGuJ4WKyKj14qkkiZwUyynEAo83GQDcQLgBrVno6" + + "hYOu5y8nnvoKp0PXe5eTzHZ2hPpnVu2CgUOGO7xKuBSDbgbENji9xlTEKOa07JJI+fGVNawulfVomVwX" + + "P7YMkRzeNsRXGXlsreVfrAb7Bni5gAdvPlpj8hr0NTVEjF2tcqKepq2ZzJNrFwp5m09KdR9YLLj1TyjO" + + "ItCAZmj7ei3JVBbu+HjMZcqSQlADGWEcqHAR9NgrXoqGokptznKatDR1L6bcrlLe6Ny0lbmqlpmYLchZ" + + "xcCETJItzfVrtlnAtF0R5eCmKQTiYAEPsgPUK0bRWSRVexVVcGhaK2aOsViuVcGcPaA1oX04YMoW3xxc" + + "0ylzyLiUFe4Mi5T70CQh9Yosp9WQgjjYTV2N4vSRR4ThTsLxd1hjwnCmIdk6O6h60HcT8jIgmxTVFBaf" + + "uJRdyLpUo8ChGifEJ9jAICOcAOxdsVy9vt9TXK6TepzVtt9VWOdKrlwpl7otoqrpCtdMrMS0dJOX7RBJ" + + "u4apHQFBo1BRZbiA+TZ9+dwCuqt1pkponOe7J1lvoXwxO3c4MH7Jb/nvrFCKqp836cvQ0uuAlAcIkcHf" + + "mKYPQpS8PwCuUgkkmrfMuMnGxOlkrvMuMmTvax1BnohaGsqDeOY1vJRisvLLsTHIsumo4M3aoJrFEBIA" + + "GTMZQAHcBDNe3qurdGxqRrj9D2tVVTo2NSNcFptPezcOolpkudpecewcPhXKEeRn3ordQqpwL3w/GBwM" + + "bh4hEA6DXm26hdVM3q/v/BqWu3Pq4uor+/p8DMmCgU9HtH3jFZyg5XtyCkJFy5SA5U1XC3NX4iAoImDx" + + "CBQz0DYK6mKnWjonb+TqoaX2SjdvXPc1/6FGYNdRIqfm3CSMVa7J9ccg4XENhbt+EPa9sTKKFAA65Hbe" + + "vntnrY46p0z+ynz+01scVQ6V/b/ANHf3FK3l2k7+I0hmjkkUQeVGNlCj3aMjhMAhIPM+ATqbj04wzwhs" + + "Fe1KstdMixOVG/A9CV09wnRY3Lt+BnRZ9l2hodZb1wTlEKxaKSVwTBwL3hycoZ9sfFwfYTJnyDzrrkal" + + "JTJu9Ds2NSjpk3ehgvc+omomvF1t7eglHiMW/UFOLt5osZNAEcZ74+UTEpjcJfEoVTYoezvXGzVNTVy4" + + "Y9f9HHzVFTVy4jeuPodZqnoivpXDwb2RnGMq/l3SiAs2rRVNMhkEgVOKayhhE5AHhLkwb53rWutJNTxo" + + "qu5NO7Uk9PGiq7kyW7HkN3W2brmDgYCPppOPajnbgaohzDlxt4lFN8egV0WmVWSPnlTptMOdJF4uTMcK" + + "6tWbeDrFb8DHLtSTARmlb1kQxSKz0swi/QeAq3elTB+yCQV4moJUSmVDwNQy4pVQs32O4spFr4uJYoJp" + + "NWzWMIbGwcXE6WAvpwlIQPurndJsw17lOd0hHhr3qYvfTckrqKe5IVqDmdfXc4fwjcCAqZR+5cKA25aY" + + "5ARADYwbbw14fWnkrnYcuMnjSzzyVztrlLh6p6NXpa8IhfN4zTKcdS79NvIpK96VcpOHfEIAKyhzEEA4" + + "dwDwgOwbVuXenqo2JKr15N2spKljFlc5S/HY6mZF4xu+FXcqrRkYowdR5FDGMVAXHeeakkA+EoCJeLYK" + + "9fTtS57PEuT2NIVTpGO3Lkxi1nlAkdXLzk0ylUM0uDkojyynACsCpN0hwPt/WpbF99ePdZ3pXuwvCngX" + + "OrkSvfh3BcG5NCtTpm2ZHUy6JSPcSf0cM4vBuhcqu02afCocpREwlSBNAAAEi7AXbHlW3NZqtYevvXBu" + + "y2ur6XW3rg+3sr3jJxV+EtA7pVSAuJquANTiphBy1RO5SVSTMOC8ZC+KraVr3LVua5ctMul7o91S5iuy" + + "hzdreZK9v2IiBMAkiLfTUckHfhWeqKH+8pQLj41bUtU72naxcE6kqX+0o1jlQy90KhSwGklnoGKVBReO" + + "GZcYACeJ2uZ2OcepVAD4BXVWxqtoWucdPbdzKJquU1zsi/n3rC3U4eM1yX6VQBLvhuMgCmfhyM/IK4ht" + + "RO6uxuXGTjI5p31+Ny4z2L6drKznrSaj71VkGH0a+RaQEVEpoqd4IDdFVZTPDgvBkw7BtjFetfoHL73B" + + "tapp5I1STd4V9C12muglw6pQ7ybYSkXFM2sgMb/AIQSXyoqmQqqh0xIP2SKV5Nmscr3bkcebQaenke2Z" + + "rsIbQbfik4KCh4RLh5cRGNowokLwFHuyJUeIpfIB4chX0KGJ0TEaq8ofUo27WIh2g+fx8vfgv4da3ZVR" + + "IzJIuGmoTViaTndULwlFsrNT3EdumQg7qoMzpsiJkN9jIJBuFfI7vKq1yuPkF4kVa9XIcU/dC2o97R7y" + + "5XqsdEKvmsS2KQocEbFgsCH8WT9nCRD8w23iOOfs1E1Q907G54IqKqR8zGKvBtctS2YWzoFhA281I1jm" + + "CPLS4R4jqD9pZVTqc5xEREw19Xo6eNkaI1EPqdup442bWomDEjtcWi/dpRd6nkGRI2HaIwraLEq3eVnT" + + "l1zxUIcogBeEqfl6VyepGv2LzwczqxHbe/Bjfpho9MarmlyRUlGxreFFsVZWQScCVTvB1OWkmBRxknKz" + + "/51ylmszpHI9vBytjs7nqj04M4780vfuNFGNgR0rHMjQsezGTeOiHKgsjElBw6FMuNuY5ApvF1AK+gXG" + + "1yJScqd7cKBfZcZ7Ia8LFs59ft0R9qxa6DV1Jguqm5eAcyRCIpKLCcxUcG34BxXzeht7nVKofOaKhWS"; + resourceString += "qVqdzY3oTpA70oj5xvJSEdJP5h6muKseVVMpUU0gT4A52T744utfSrdQvZ3Ppdst8sHmXJf0o9Q677fDy" + + "r35o8HvOQqrAxcLyUamAFZHuyXJrGCgeHfYNgEw/DhEKSeTJimTLVNQOr0cnFanX0yRwCZLgcLkAuwB3" + + "ke84AA9OZXya+Nb7QvxPkl8j2zqiHl7TkFIm7LalERMRRjNx7gDEEQMAEdkMfAhvuXasdnme2ubhfU07" + + "YqpUG7lP2Cj7q/TbX/hNU+rRcsOSs6lk7GOPamiFZTSSWWRIJzxD1pLiBf80kpyljfzU1DDXF6zp99Kp" + + "499b+Apqx/d9n9n7P4V+fWt2K5D5lG7ajjOrscyyRmt5W+dQAWK6aTKKf2jFOQWyuPcQyaQ/Ou90Qvhc" + + "d3omXLHGboYxt0Hf7967JnY7yPsTVi4oUUgfT9YMUINaPaumu/alpxxTAdGAgWqZih15q5jrmDP7KhBr" + + "59qF++pVi9j5nqWXdVqxexkzpxoZp0vYlqL3BZ0XJTDqEbO5B07IcVTKrEBYeMQULuXi4enlXS2iy0jq" + + "bLkQ6i0WelWmRVaXYgdP7HsUz6Sty3o6DOshy3zluQ3ibpgKw5HiHYogI9etZ4rdDBue1ODfZRQU7VVq" + + "cGr2CZjqPqwzQclOKd1XqZw/KADkG7l2d6uIAbyKkUflXArLHU3HZ9T50j46q5bPqbZHp0YqGeLM0iEJ" + + "GRihmyBCABSlQROKaZQDYAACjgA6V9KqYlgg2p6J/8Ah9Nni6EG1vohqd0vatrh1UtIk0fmJSl0BIPTO" + + "RA3PVyZxwrHPkR41gAB4uojXzOkVJLh4/ifM6FUluGH/Ezu7Tl3Nbd0zkobmEB/dKpYdu3KJRErYTCq9" + + "VMXrwchM5P2je+u11PWRRUiRtO31FVxw02xCw/Y/jBWum6ptQuRYwzeLIp1EBduAP7Q7/5CvD0zB3ec7" + + "phqdTeWq7QUoef1hugG5uYDU6FutCJ/rN2pScAD71TGDHvGvPvcvUrVNTUE3Vr1T9DYwZJpYOmSoJgmk" + + "3tmz1MjsAiLZmY2REPM6pRMPqI5ru2bIbdn6HbM2wW//wATXP2e4k09q7a51iiJWarqcXDyLyW6hy5/Z" + + "VOmAem1cJYmMnrHPOGsOyasc8+rtIunK2r9zAuCmGqLBq1KGf8AFhYkUTMQfIOYYw7eYjU6gkb7TtLag" + + "qW+07TYVpSWPJpvZRYoURZpW8yKBm/6MFeQUHADy9s87jznzzXdaaY2KnynbB3dgcxKRrW/AjVqaLAaa" + + "3pJ8QEMjAuUUhHAfWui91Jw496lVuNU5aeREMlfUo2B/wChgp2UoYZDU8r0xclgYB2/MGNirKlBoTf+U" + + "K6g/KuK0jGskzt3dDh9LYnqHOUzC1i0YjNU49sfvpoqehwEsTJFLxpcI+2g6S6qJ58y+zXXV1p9rav0O" + + "qr7SlU1c+hr4Mvfuhl4u2iDw8XKsRI5XTbrc1jItQDmpHVBPhKZNQmPaDjL7PlXAPlqKGVrE7ZOBfVT2" + + "6ZsadsmamsN8fSnZ4LPlT7o4vVjGIFbiI4A7xQqi5CZ34eApzF91dzea1VoEz6nb3i45oUX4mDdm6d3R" + + "e7K5XECmBmUDHKupExzGAqgpARwk1BLooZTl8YfAPQK4Kmta1DNrfQ4KG3rUsVG+hersqXy3hbwdWw8F" + + "MjK8ClUaqKB4yP0CmWImcxv86mJi/tgFezYapKSp6Lj1tO1KU1T0Xepf3tXyCzLTBBkQTlLMXKzZOxAR" + + "/RJprPcGHzAyiQBv610+rqjFOm06rVc22n4LX9jyOZHdXpLnEh5RNuyj0RPw8QN1Ocuopgdx41scQ/fX" + + "gaWROXKeHpZEwrlPH9q67m09e0bb7Jci7S1mB03JkjAcvfHpiKn4RDIeBIiRTemRLWHUle2Sbpoa2pK9" + + "sk/TT0Mr+zpFBG6SWoIlAp5NJeSU2xnnOFFCG/ocOPdiun01TdKDcdTpym6dNuL4CbBQGvfhd1HqdAxd" + + "xg72xpfP5l28Bg8XfphYnw5LdHIe8DK/dXCaoqMLtOI1TOqeE7bR7/gd2b7rug4ctzIITEoicdhUHkfR" + + "7MOLqOVChj3jWSzN6dvVxezs6VuV5Ynsw2+SZ1SYOFk+ajARrmZUEQzxKEICDXiz1wqqY4e/cN68zTcH" + + "Wq3KeLpqJJ6tymQHbAlgb2ta0KUwAaRnVXhsD4uQzb+Ew/84qFezq+RsdMkfqe9qWVsdOrPUq7JrEkTY" + + "N1XO4+rTeypsmxsDeNbBxfIBOoHyrBYINlGshqaSi2Ub3mJen8eF9atW+k8ICyc1dv0u65vjAxE1RkBA" + + "wGznj4cD614cLfaq7/ZztLF7ZW/7NhOvd3MLQ01uDmqkK/nWKsHEtxEBMqu9KVIwgXqAFTE2TeVfQbxd" + + "I4bf0fU+gXisZDRqz1VDDnsr285k9S05oqZu521Gu1l3BAEUe8Lpi2BDI9REFFDB8K4DS0C9ZzziNKUa" + + "9ZXniNbX6k7q7d4mOYwfTH0Mj0wRJmmk3DJh95TGqtzXdX4+oucma/H1NhWodzR2nOlrpwmumQzeCTh4" + + "DxF+tcHQK2a8BS9QDBVBN5BXa11UlPQIn0Oxr6pIKFP0ME+zJEBKarQSxifVQzB1Km8+ESoconHnzIZc" + + "N/WuPsf41Tu+pytg/Gqd31LpdsWYFSbs6BTN4WUY5kVEy/rOlk0Uh/6NE4fAwh5jXoapldH2NjXEjnNZ" + + "G30MguzbFoxukFu8rgMpIKP5RcSCTAqKulCcI43HCRSh8vhXQ6XRVpdx1FjylGxql+QEB9kchnAfKvWV" + + "25cnubccHTT0iSJhJaUVEATjmDh6YR6YRRFX8eGsVzfshNS4v2xKpqe0ptQupWokVDSRnBWco4XkpZZt" + + "7QpAmq8OiJ+pBMqUgcQfrV81p4PaqzH1PmMFP7VW4+pcPtLacx1l3PESMIxSj7fnopFMG7QgAm3dR5eA" + + "yReH7R0+A/x4q3tSW72ORjjc1JQeySMehmVoJev576cQy7pYFJSLAIKVwOTAq1D6lXPXCqXAPvrsLRXd" + + "SFqnaWSr6sKOLM9sWY5cRZ0CBgAzuRczDhPPQrVHkpgIegmcnx+zXj6mk8B4eq5Ewek7I8L3DT+QlxIJ" + + "VZu4VxIHly2KBW6eP8AnCqBU6YTNM1TNpqPNM1xdbW6YNBaWXm9TNgykQePSEBwInfHI0/AD179/qHMp" + + "V/Q9m+yK2mUw47I8am61BlZBTcYi2z8ggCXc7pZNEDgBugglxBkP1h9RrhtMP6k+VON0uzM6vUz7ua6I" + + "Gz4xWYuGSaxkWiPCLlcxh3+yCZATMJzD7s19GrqtkDcne1layJuVPis++7VvxirJWrMNZdsgqDdwdvxg" + + "dFUdwIsiqUohxBvnFaUFekyZQpS1rZWZPY7fvDb1DrW9tyb+coVVGCyChJwnHh4zG2ACiIiPoGAx8+Ia" + + "ioX8IwVD8RqaeNT5dOd1FvSUROCiDm4HZUFC9DpInFBI3zIQBr49dn5qVPjt4qN1Sv6nX2JEKT162rDJ" + + "FMoeQnGSRgDyTBbiWz7gSAxvlW1Z4M1jP1KW3moN1ifsFD+TX6VVn4TT6rD5DlrOpZvY6K4YZrcULKQj" + + "9PmspVktHuk+uU10xIpjPngdvfWjc4EnpXN+KGtWwdRuDTJeFrydl3PMWvKJGK6iHhkkxNkCrICOG65D" + + "D7RDJiUfjX50vFucyZ8XbHqfMrtS9F7kwes0dvw+nV+Rc4qocIxU5oicKQueJmqYOYqUP8AVnKVT/m/f" + + "VbDd/ZZekbem67ovwbcG66Lhug4bqkXQWSKokskIGIcpgyBimDYQHyr6pCiPZlFPq8DkkYjkOcBzWRU2" + + "mbbgVkRUVAhSO/TIYwHF7zCGwB8K1nmOU136j6Iar3jqRcc8nbyf0VKTZCN3Cj9qIAyIdNsU5UhUKqH1" + + "KZTY+7auNq7VJLWuf6HE1dmkmrXSKnCmwlk2TZtW7VECFTbokRTKTYoFIXhAChkfT1rr6WHpswdhSwdN" + + "m081fLeVdWjczaDb97mHMI9bxjcDpp8bhRsdJIpjqHAuMqZ3DFY7ixXwbWcGK4xq+BWt7mHOhOhd+2pq" + + "HHT91wacdHxjJ5y1AfM3JjLnT7sU4FRyJclWMIb1yVqsaxVG9yHI2exOhqeo5DOpdArlFduqnlNwkdM6" + + "Q7ZA5RAwZ/YMIYrua5FfHg7qobujwa0by7Oeo9u3G4Ws+LczkUZ+Z9DSEa4bouUPHxt+bzFSGAyQYLxB" + + "1xmvnFTY5eruYfOayxS9XdH+6HrHPZ71MmrWlJ263Dm4r6WSbM7ehpCQ5h2rcF0TuVVnS7gyeBTIJQIG" + + "3rWWts1S+mbuVVUyVVgqZaZu5yq4vN2btOLssBldZbqiwjXEo+YHZAVy1dCqmiRbPEKCngwZUvteY17t" + + "koHwwYPcstndDDz3LFR2g+qUpqU0uKft1NGId3kSalFRfsVRKgpId6OPAmrxjwplAMe8QryY7PI6tWR3" + + "KHkNskq1yvdyhmPrFEXBPacXFC2uyB9LSrZFiiiCiSJDJGckFYpzKK4EOVxAPuEfWuquNOslPsadRcIt" + + "9PsQsH2cdHrysS6Jmcu+KSYE+hSxkaoV41dGOo4cpC4NhHIlHgQAc8XnXjabsToZ1c7seLp6yLBM56no" + + "tfNCH1+u0LstVVqjcBGpGUgwcCKaT1Au6QlOG5FyBghfsiFNR2P2ibLO5bUFhSpkyzuY1Q+mnaNhSGho" + + "RjdsIxWUMCjZrKpt2glwffwuU+AMmyOA3HevD+zLhT4aj3YPFbaa6nwjXuwZMXjYWochoJB2O1ZjL3SY" + + "7NKbBV6QeIqC6js5lHK631gnPywMI5yPWujkpZH0StTzHTy0j5KLZ7xxdmvS26LAVup/dselHP5IjNky" + + "AHSC/MRTFdRX6xLi4B4zh0HfAVp6btklOi58xo6atT6ZFzwpa+7bS7S0RelxzVuLTRmczLLv24QMk2Vb" + + "Ch+jakFo5WKUnCgUhPZ8q17lTVyVHgkcifRTXutLX9b8ORyJ9DzkT2fNW9QZ4JTUBVeLScmJ9JSkw4SV" + + "kDpp7FSbN2pjFDBQ4Q8XSteKxTvn3yKqp9TSp9PTyT75VVf1L8a8aa3ZcVoWdZthRAP2EGqKzkh3DVqB" + + "e7NAaNcAucDZEF1DfEK9u6Wx00KMQ966WlZoUY09L2dtO5uwLQlGlzsCNpuTm1XJ2wKpL/xYqJEW4Com" + + "JifZUEcD51NjtqwQ7Xdy1jtns0G13cxlufs96mxF+SctYcSm5ikZok1br4r5m3OUOb3wifAc5FCckR5Y" + + "bB6h1rw6qzvWs3oeNU2Z61m9qGXGoNiyOqumKMNJELC3Ko0ayRElDJqlbyaRMnSE6YmLwjkQ2HoOK6qv" + + "tqz0qNXudJX2t1RBhV5MIYbRfXyEmVkIKLlYB054mrmVjpRJmzO2AePiUWKuVUUwEcgBAAQHYK4qHT9X" + + "E/h7kQ42PT9W1+GuciHpbz7M99MVIVK12X5xKmiu8XBMrvWyPeJNy5VVWSKRZXjEpUip/WCIib2h3Gsl" + + "dYZXYd3Uy1mnZUwvdfiZ2aeRDuAsW0ISQRBu/i4FkxeoFMQ4JrooFTWKB0xEpsGAdwGu+s0SxUuHfA7m" + + "1QrFTI1T2Rg2raoeHKbdOvcwd7QWlWp9+36Epb0Eg9h4+GbMI9ys+aJcSgidVYeSqcDBwmUEu4b4rhL5" + + "a5Z6nKdji75a5qipymcFyLtsC7U9AIXT22osHc0DWNaSLcXDdIpOA/fXg87mgmIc8mPnXqzUL20DY29z" + + "1JqF7aBsSdzpOzXpNdmn765pS64xFgu8bM46OKm4ScCogkodQ5hOkIlDIiXIZ3wGd61dP2uSnfuU1LBa" + + "X07lcp1vaQ0z1D1CuSCNa8KWQhomIO2OuZ4zQ/jS6puMgEWUKYAApE8mxVtSWmSrdlFGobVJVvy09QEX" + + "IaU9mmVZSaRWM4jb7sj1AqiZ+F7LLqJcIKIiJTCQFQ3Aa2Y6NaS34cpsNpPYrcqZ9DBSwLXvqdkHLjT5" + + "N0eat5qm/FZi7K0XSTOIpCKJwEpjGxkODO4e6uIoaeSaRXRqqL9DhrbTSTOV0Sqi/Qu4GjGvmocoge7C" + + "SKAN/qyS10vScKCI+E3IapCYBExRHy89/OvW+79W9+ZHqqfU9r7vVkj/wAR6qn1M6dM9N4XTO304OL4l" + + "nDhQHElKKcPPeOOm4lAOEiJA4Ch6fEc9lb7cyGPaicnZ0NvbBDtROfUwx1m0Bvxa+JyctiIVn4mekVJQ" + + "os1W5F2y6+FFW6qKyhQxzDG4TAGxcVyt1ssr5tzTjbzZJpJtzQ37Puq9wW4+kbzeST19GRwt7VtZ5KAs" + + "tzT4SEpnCh1EW5CpiIgXfIY6Vhls1W6PD3KT936t8Cb3qXS7N2kd32LOXLL3jGoxyzpgiwjuW5QXyCix" + + "lHQiBA4vaTTDOfEHTbFenZbY6B3KHqWOzOp3cny9pHSC7rznI27LUahLGbxJY2RiiKIpuClRUMsRdsVd" + + "QpTfpOES1N/tslQ9cEagtEk0quTsUdmuwtTLWnnyl2spiJt1rDKJRsc7e85t31ddHxptCKHRTEEyGzwh" + + "tkfWo09b6mmd4nLt+HoRYqKeN3jVcIZoB08vTIe7au28O/sdn6lt9Wo6fmdP7piLYa9+m5OLMwZtQVTQ" + + "E3eTgiobmqKFKXhTE415N2gdIzCHlXSF0jFRDHPs6aN3jY14yU5d8OlHJJwosI0Su2jkTKOXSfH4EM8P" + + "gSEM56D768G1W10Mu5UPCtNrdDNvVC9Wu+nzrUGxHMbFIJrXBGO05aB4jAnxqo/VKpmMrkABRuc/wDOA" + + "o+Ve1f6T2yLHdT175Q+1Q4xyWf7OtgaoacT0qzuSDBrbUuyLzFSP2S/d3jUP4ucEkjlMPNTyQRx+qHkF" + + "eNp+glgfseeXp6gmp3bXZPl7RWl+o+oF4xjy3IRB9DRkMRqRwo+aI8bhVZVRYwJKq8QFKAk61i1Bb5ZZ" + + "eOxiv8AbpJ5Ex2Mi9I7Wd2bpza8C/SBvJMmAmkUwMQ/8aXWUcL5OkIlN9YobfNe7ZKbo07WnvWWm6NO1" + + "hx6t2Y5v+wJq2mSyTV47BJRmdYTFTMs3UI4IUxieIoDy8UvNO+VmC93pnTRKiKa/oHRjW+KnWpGNvzcM" + + "fvKDZzLRr4jZMEecXmcKqDhM4ph7QANcZb7PPDU7kyiHEUFoqYqjdyjTKztKacXTfdu28FrIGlVYF0sq" + + "4hyrpEOsmokVNNwiKgiBjJGKOOIc77V0t4pZZ4sNVcnRXejkmiw3ufN2a9LrosVvPSl0pEjnM8o3I3iR" + + "VBRQqKAmEzhcS+Epj8WBAOoAGax2GglihRHKYLHQTQxoj1Uyr9A9ArqlTa065qYQY3zVOomzHqNxOaxs" + + "jUhGqWZ1z1CR0/sWRdJOCFnJUn0ZBoZ8feVuICuBL14UQAxzfsgHnXk6irkpabKdzxr1WNiiVPU1PZER" + + "ETDk4iPGP8AKz4t/PevlznpOiyep8hkl3ymYXZK0+UlLkeX2+bj9HQaQsYnmk/SSKxTAs4IYQ8RUm48A" + + "ehzDX0LQFpdLKlTInh9DsbHQ7ndTBsWIAgUvltuAeXu+VfapV5wh2iJjCFYVfBlwRgPj8fvCqomCm9DF" + + "ztGaL/n9FfnDbzZIbshW/CRDPAEizL4zssgOxy+0Qcfya4XVun/AGiNZIk8R4N3tiStV5rKUTURVUSWI" + + "okukYyaySxBTOU3QxDFHcMdK+GS0yU71RfOfOXxrA/gzS7OOt5GSbPTu63PKagJULYk1zYTSIJh4Y1wc" + + "3sl4hEETeQYT9kpa66wXdzUSJ68ncWC/cJE4zvJgdw6D5D5eobbdfSvoeOpHk71HbmnJWqnhTAb2Hv9O" + + "lMZIRMlGPZEAAOH2fd8Kuisb+pbCFQFxj3bBVlkRSclWR8hoiYTkpgoAuNsBgAwG3l6VPg9CeCcB+Ofn" + + "nOfvHNM+hGRj0xvVU2IRhowAZz54z8twq7nsk8JKojkGC9cB5/iOR+8QzVNyN8JCIqDAD5AIDnOfPOw1" + + "PgzgYTsAx5Bv/4Y/dVtyN7jpoNunpuH3Y/dVXSYTLScYTgeHPlkQ4fl6VjY12dylWsXOVIwGOEcCXzD4" + + "1kftm4wHbZOCcBsIdQ2Afx/sqqNSPhQiIwkNs+Qj1EPOparWOygw1OSnAbBgMenwqJUY5NxO1ruSrYPT" + + "1rGnibwTjKcDYOmOufn61VkbkXkoxiovJGA6bVsLhOS/YjBegFDpjp5dMfcFR02+YjYnckAxv78/P1qH" + + "K5fF6Ft2QAFDoBQ34tvXpmqefgqjcECHrgQ9/vrKjW42qT4XcFXXem7HhQZxwRsNEb0+SETaPl8BptYv" + + "iUnCLyA6/Kk2FZkh+NuSOH+j0x5YrJG9nTwWaqbeCoQA3XfIcO/oPUK1lauDFtUxx7TbW4ZTT9CDtuDl" + + "pteSnmxXaEO3UcnI2bIquRMoQhBwAqFIH3V5F5R80GxDx78x8tOrG+p47sp2LN20yu2SuCFkYV29etGL" + + "VGSRMgcUEEFFBU5avjDiOqGc9cF8sV5enLPJEmVPK0zaHQRorjL0gBgR2yYeI2PXO9dbI/nB2TlwuCR3" + + "Aff1/trNC7D+Q3zE/7MVje9nUMbtu4pAoY3393l0x+6sr5o1XBdy+hVtnyzv+O41RzETsY0YqFIh93pV" + + "G7fUy5ReFIDfyABAc5+PUfxrM9zPQbGtKg9KxdkyT9Rjr/v/v1qEej+CvDiPQcB7qvtb2J2IOvT8Pd0q" + + "2Eb3JwgwG/r1EffnOfvrFhEXenqY9qIu4YANuEB9P3VZzGv5UsrUdyV1XGOUDUQpx1267D7wqNyP7llw" + + "pIBjptvmroxicGPa1OCOEuADhLgBAQDGwCHT7qsrGp3JVqDHUNsD1D1+NVR7U7Fk2gAqXP3FiRGsTYvE" + + "URvJ5m6rphrNhXk/PPSsY5kUFFFjjuYw7ERRJ1UUUHwgX51qV9akDTUratIW5U1T6pakS2p1zLTD4ijZ" + + "i2KLWEiCHEwNG/EHGYxh25ygEAxxDz26AFfMq66rPUO3+T0Pll4uqzzOPk0708m9SrkbwMMmZNET8yUf" + + "qlMCTNjxcR1DqF6HEvhSxuJ9h2rLp+xSVlWm3yGG1WxZnm3W0bWiLPt6NtyGbFQj45ACJlEocZzGNzFF" + + "VdgydRQROb31+iqChiooWxMTsfSKGBIW7Pgeore25XJtKviQB0qdxmJqDFgoMUDeWahWI5MKW4XhTErX" + + "Ts7NbzM7umz0mzC7ALxu2uxGsoOAzzMfo3AlAMG6D9rfI1861NpBtSm+NMOOYu1pbKiq1OTXRJxb6Hfu" + + "oyWaOY+QYLHTcsXmEVE1PYAo8QdfMpy+WK+PT0k9FOrJMpt9ThX0ctNJky40Z7SjiCI0tfUNystEpFTa" + + "x9yKABlmYF8JU3pS55iJfZA/XFdVZtSOzscuW/E7OyahRPDIuTPVm+ayLVF4wcpOmjkgLIOmxiKJKAYM" + + "lwIZ2MG9duxIpuWP4O5ikbM3c1T6wEDbdKu6N0PPczbdpUAYDFURyP5wEVHck1bBIqcjAqqIMCrDAquB" + + "hBRERAiEVJJNMEYFF5JFARgOtW3LgE1VEwpGEIqXc9wqITVcFFQZ+FMEEZCpTjsWQbVbcpOSkajJjcpF" + + "MlcimQgqE4JypVkaeuSzcE0LcDFSq5JyhNQRwRkKemPQcDIUTgjgVOS2RVdqFVRqkeHYNtulWau3sEwn" + + "YnIVHqTwQPuqTGvcoCq7UKqhNNqGRBVslslYdKgqTUYJFSWTsKjCE4IqxIovPcgVHpgYJoMCgwKjAwKk" + + "YQVKqMFIjjrTp7kwhG3PAzxAIB5edWbAsfKlduzuW61A1NtfTaLGRn3xOeYhhYRKAgd28OGcFTTDcheL" + + "qobwB51oV9zigTdk8+uuUULc7jWbqZqzcmqEmDyUVFnFtDGNEQbbPd25R8PNVNnCivqfH7PhxXze531a" + + "tytafNbnfXTOwnJGm2k1z6nyRWsOgZpEtjkCUnXRT92QAcZFLi9tcQ9kpdsbj51tWPS89S5JHJwpr2+1" + + "yTu3qnc2l6eadW9pxApwsC35ecKvXyoFF08W81FzY364KH2S+ENgr7nZrXHSR+FqIfQ6OibC3woXC+WP" + + "j/4V7S4U3kQmpyMChORQEefX5VhVH7s+g2gQ+HzrMnKYUsuC0Wp2jlo6nteGXa91lkk+BlOsAKR4gHUA" + + "ObYVU+L7Btq5u76ap7hnemPqeXXWxlQa4NSNEb302VWXfsxmYHcqFxRJBM3Ag+bsuPqRzsIGKO/Tavj9" + + "80rU0TlSJPB8Tia6xvpV3IfJp1rDeOmblMkS7+kIg+Dr29ICp3Y4ZyKjY5hHkG8/DjI7+deNRXKaiw3P" + + "CGOhvU1Pjng2A6d69WNf5U2xH30FPYwrDS4kbKHEeotVD+BcPQQ3rvbbqGOoTDlO/tt/iqEwvcviXp/t" + + "r3MtXy9joEVFKqEigFAKAUAoBQCgFAKAUAoBQChRSOHNCCgdqGNXChG4UJFAKAUBOR9RoRuIyPrQbhQb" + + "hQbhQbhQbhQbhQbhQbhQbhQkUAoXQUJJCgK6AULoKEigFAKAUAoBQCgFAdbJSTCLarvpJ42YMm267p2s" + + "mkiTbPiUOOCj8ao+XpJuNSepSLlTD3UjtWRzMHEXpykjJOcmSVuN+BiMETgHDwtUx8Tg/pxBwiPurkrn" + + "qhE4Q5S4amTytMKJGTuG8Jrvb9xK3FPP1PCZQiqyxjD4SpotyiJ/CAAUpSCBAAAzXGPdUXGbDV4U4id9" + + "RVzLheFMrtLOylJywoTOpAqxUbkFS242MHfHJM5/ji5Md3KPXgT+s8uKvo+nNCpHh8h0tr00jfFIZ9Qs" + + "HFW/GtomGjmsZHsy8Ddo1IUiZAznOChuI9RMPiEdzDnNfVqWmhhYjWp2Owip440w1DtQDH35rbcvBm3I" + + "SAAHQMfCqN7FSasBQCgFMjIoCMAPUA65+frRScnAuiiumoi4SSVSW8BklygYhyCXBimAch99Y5ImPTDk" + + "yhjexr/ADJkxa1G7LFm3R3mQtY42fLK8QnKzT50YsYf86z24M+qPD6jkcjXE3rRVLU5ezwqvoeHXWCOZ" + + "PCmDCG99GtQdPD86YhHDiORPhKchAUdNgAvsqHVRwdr8FQHevlVw05W0LlWNFU4+a11FG7KZPU2F2i9Q" + + "bLBBku6G64VPcGEwKpnBSAbcjR0XK+A9DkOHwDABWj1FU0+GSt7Ho0d/liwjsmZtk9pDTe7gSQdSJrXl" + + "FfD3GeOmkkYw9QTe5FDrsAHOQ3lw12FHfoahMdjr6PUMEyY7KX5SWSXKCiKhVUzl8CiQgYuB3Kb5h5+f" + + "UNq91nSc3hx7UdQx6cKcwCA7VZKdW85yZsYKqhUUqjiKdXHoSriabt3IyKgChdBQkUAoBQCgFCBQDIe6" + + "hVWlA9aGFWkULtTgUJFAKAUGBQYQUGEFBhBQoqChAoBQChdEQUJwgoY3IKEYUqDpQzs7E0LCgJoBQkUA" + + "oBQFON81CzY4wQqk06n0KNUeVW6m5MYJzyRv5+L+T0GqdLbyqh2DoJ654C12ZpC4ZmNiGZAERVduE0y7" + + "fZADDxHN7i1EldTwtyqoaE9dFD3cYp3x2t4hiRRpYcSpLr7gExLAdBin/LIkH16/u4cBXJ3DV0acRoc1" + + "W6qYnDDD6573vrUyRIE7JyU84MbLCIaJn5CXF0Bsxa/ViPvUDi9a5x1RW17vCrkRTkqmuqqt+EVcF57B" + + "7K99XIZB9c6idoRZyhkipBXk1SZ3AqGcIe/jH310tp0LNL4pf5PRt+m5XLuk/kzl0/0gsjTlIPoCISPI" + + "iXluJt3wLvzB5l5wlyQv8km1fSrdYaakYjUjTcnrg7OmoIYGoiN/wBl1AD4emQ9M7V0kaYTBuE9Om1W2" + + "oCakCgFAKAUAoBQCgFAUj51XYxF3ZIRXIv0OE6RVCGTWAiqagcJinDOQ6CAhVZ2semNuSZEjkTClhb67" + + "OOml5iquEV+b8or4/pG3xI2MY4AAAZZpw8hXYP1cj8a5iu0nS1SK5W4cp4lVZIJOEQxMvDsmX9Cide2X" + + "DC62O4iiAgzfgQP9WtxIqD7g+VfOrloWqiVViOcn03PEuWFpo269VdJX3dEntxW0dIRA0RKEFVqYc5wD" + + "VwB0t85yX12rnljr6JfEq8GmypqqN+VUyKtPtguSCk2vW2U3BQ4SqSduLcJg/lKNHIhv7uYT3AIYr06P" + + "VXuvOio9YRr4X9zJS2dctM7s5acddDFo8N/xCaKaOcZEcAUCuxTKcfTgE2etdPT32JyYOigvMEicKXWI" + + "oRQoHTMBim3yn9Z16D4cdQ91enHUxyHpMna5Dm+OPln+3erPxngyCqgULoKEigFAKAUAoBQEbVIIxUFF" + + "QpEo++hUcI++hI4R99AKAY+NAKAUAoBQoooQKAUAoXQqAuaEjhoME4oTtJoWQUJFAKAUAoBQCgOMQHi2" + + "HAj0xv+/YKzJsRvPcrvQ6yVm4eDQ71LyrGMbgAiKz5wkiA46gAqDg3yrRlrI2mrNWxx91/7/wAlgbn7U" + + "mmUEKqEUu/ut6XIAnDpcLcpsfbdOTJEx6iTj/srxqvUcMJ4tTqWnZx6mMd39qu/5sFE4QsdaDMwGTKdu" + + "JXbwwDts5cJ8pMfgTPoI9a5yXUj6lcMOZqNQySL4C3cPp9qzqg9LIIxE/OHWEDDOTyiqLcoeyJiOJE5Q" + + "OAYx9TnpgA8qiLT1wrV3JnapoezVVWvfuZL2b2OuEU3d83CdQxgwaJtrBCmARyPMeOSAf48BQ+I9R7W1" + + "aAazCzHrUmmNvLzLS0tOLKsZAELZgWEaIBhVyBON0rjbKi6mVTZ95vhtXc0VhpKfyoh0tNb6eFOE5PdA" + + "X1+IBXuI5qJhpvOf8pWFVVMlG5xyTUkigFAKAUAoBQCgFAKAUAqFaigjAVKJgjahNCSMB0wGPSi89yVX" + + "J1ErCxE23VZy8awk2h/Co1fN03KZsh5pqANaE9JTyrtfG1f1MMtHFIniai/qY/XV2W9L7hEysexfWu6H" + + "IgrBLHKlnG3E0cAsmAe4pSVyty0RTTcsajf0PFm0/Tr2aiGO9y9ju8GAKHtifh7gRKPF3d+Q8e69QDJB" + + "XSEf6NclU/08kZ4myrn9Tx6jTk6LujcqIWyCH170rPxItb1hWyQ8I/R5lH8eO/FkxEDOEMb/qE9++a8K" + + "S1XKkXw7lNRrKyn95x7i3+1tqBFcLeejYO4iJjwGEyR4xyOB38RDnTMYOn6P8ahmpq+nXpyQ5x64NmPV" + + "NVCvTWPKJ6l8ILtdWK9EpLgiJ+3VRwAnImm+QDPqKWFcf8AMh8+o+zT6qiX8xNp0VLqSF/n8JeaD1h0y" + + "uMSBE3tBHVN0bOVu5rZz0FF8Qqn4fhXsRXmhkTKPPWZeKN3aRC4ySqK5AUROVdMwcRVETZKIe43GOa3W" + + "zMf5cG2yoa/yrk5cgYMh0+P+ysnJl8RSPD61kRZPRo3P+BUHTbesT9yrymC2VFV2OI5FV2OJwoqUcqDK" + + "lPQazpyhYqzWJ0alVaTUImCBUgUBFATQshFCRQqooQBDPShBAEDG470BOACgHDQDFV9RtAiIdKzNwXwQ" + + "HxGitjX1BVVehGvvEEVVY1ReOxG7HoMe8aYUbynH8ofvrImPVCvUd8CdvWqKkfxVCyK74DPXHiEOuBzj" + + "4htUcJ27BXYOokZ2GiCGVlZiNjiFDiMZ64SQAMftmEa131lMzzuwar7hTx+dyIWknO0XpJBgYprqTl1i" + + "jgW8Gis8HPpzUSpp/eetCbUdFHwi5NGa/UTez8ll5/tjMkwMS2LPdOOoEezzkqCfx5DPvBx+BhLXh1Gr" + + "pE/Liz/AKOdq9YOZ+WzJZKW7Qes95LGZxj1SN5xuBNparIAWEB24QWUFZbf3YrznXG51nia1Wop5brvV" + + "1SbuW59E4OCO0J1rvlx36TipBIyxwE7+8nxkTh9niAiwqLG6f5ovu2wI7VPpq61PPiIZaKyoXl7i+ttd" + + "jVHwqXddjhfgEDHZQSQJEHfp3p2XIh+wmX+2upo/wCn7laizcqelDprHnXJkjamiOmVoGTWirVjlXpAA" + + "PpKSKd+528yrOePhH9jFdfQaaoqX+y39j2YLNAz3ULsppkIUCkIBA6YAAD91dFHGxqeFERPoek2JrOEO" + + "TAelZMl8k1GEIIoiIETBNSBQCgFAKAUAoBQCgFAKAUAoBQCgFAU/d86jCZyUXcMe4KK93oPEQIB04Sj7" + + "qjDV79yzXL2UpEhTe0Qoh76q+NiJ5ckPhjXueOntOrFucqgTtpwMmY/tLOGaPO6Y8K5SgqH9KvOmtNNU" + + "Jl0aZU1n0kLuNiFkp3snaXSQ8yLTmbcVN7IxrsyiRR/5F9zdvcGK5qr0HST/Q8qo07BL64LOznYxlS8R" + + "rfvaPeAI5K2nGCjc/yXQOcB/wCjCueqP6cbFzG40F0o1nLXFvldBdfrOOZaA7+ryx2WtibOkcMdMIfUm" + + "H4CFeNPpu7wflZU1JKS5wflZUp/hG7TNk+CVLdXLKPW4YcHZBAN/wBPwCb583/ZWisd7iXxopRlzu0Xn" + + "RTv47tfXuyEhJy2oCQwODYFzHKm9cDxrFz/ADazM1BWwedpvx6rqI/O0uRGdsi2lBISVs+bZAPtqR7lm" + + "+AN/wBVQUFP6of21uR6rY7z9zej1bG7zJyXAj+1HpK+wCsjKRwj17/HusF+J0CqF+41bkepoVNxupoFP" + + "bR+tmlMpgGt8wQHN0TcL91OH7RHJSnL8/j0rdZfYXeqG/He4HeqHs2d1W1IB/ELgg3XF07vINlc/ApRr" + + "bbcYnfA2mXCN3qh35TkOXjIIHD9Yu+f6OayJU57GdJ0XsV8Ij5G/d+/xffWRJjIjycY2qc5GSagCgFAK" + + "F0FCRQoooQKAUAoCfkNAUj16D8sZ/GoUnJHi6Yxn1Hf/qiX8axq4xrIfIs9aNSiZ06bNyh9pZQhQ/pCY" + + "A/q06tNjxLyYnVjG9zy7/UKxIzj+kbwtpqKftArJNeMNs7k5gD+FYnV1Ez30Nd12hb6niJDtCaQR2eZe" + + "jB0Yv2Iwizvi/Z5Cagf1q0ZdQ07Fwi8Gq7UVK3up4WS7WumTQpu4NLklTh7BU2ndym/nOVCD95a0JNUR" + + "Gq/VNKhbyV7ZeeMsJYvT/LS8iUMbfaSbl/cqPy6BqP1nJ5WRbk+J5c2sPFiNuTwLrtQ6vzx+RAx0awEw" + + "8JCREYs/V+QrGW/6tazrvcp/JD/AAajtQV8vkafEdLtS3xgDkv8Gy/2BH6IamDp+q3LioZR32dfIqN/2" + + "ajp7zKvZdv+z74/soarT5wWnJCHjxzkyku7WfLhnrgG4uCmH5lr1YNF1dR+auDZZYp5vzXYLswnYwhke" + + "A1xXlJPhHAqIwzRFiX4c1ydyYQ+BQr3aX+nNOmFc7k2WaRhRc7y80B2bdI4ISK/mynLrp/5adUUe5EB2" + + "HlKYSD5ECunpNLUkHu5PWgs8EXpkvJHQcPDoghExUdGo+STBum3J/RTAK9iOhjYvhYiHoMp4k7IiHZcI" + + "Y2KHwCtzLmJw0z7UYnBIAHpRJJF9CN7irHXYN6tn4jLyakCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQC" + + "gIoTkmhGRVVYmcgVYLyKAUAoCMAPUAqcqSjlI4S9MBWN0bXd0Kqme50MjattS5RLKW7CyRR69/aN1evX" + + "AnIYa1H2ykf5omr/o13UcLu7E/YtzJ6B6QSoiZexYgoj1NHc1nj3/xVVH91eVPpC3TOVyxomTXdZ6Z3O" + + "xp4CR7JOlT0VBafT8WI+yVpIHUKXbyK7KuYfmYfu2rypdA0buy4NN9gj9EPDSHYvgVuMI68pdEv2E3rV" + + "u4xt58sUfP3V40/9PW7l2yKacmn191x4132L7gR4vou9IdXHsFdRzhuPzOiuoPX+TWo7QEidpl/c1nWS" + + "pTs9TpzdlrWeL/9F3HDnDrxMpWUaj8uYngK1X6LujFxHIqt/Ur9lVif3HfuP4KO1REbspebVBPYndLmI" + + "qUf2SOFU/8AqhWJdLXhvvr+5b7Nrk/uu/cp7n2vowMcd4riHkB4x59wnE4D99ar7bfI3bUyqf7MbvtiN" + + "drcuT4qVfnl2to0PrIy6nAB/noFg4/FugOfvqEgvie6Pa7wnuj+GHtPMv8AGrekT8PUHFqrl+8U+H91V" + + "Wqukfhczn9DKl2uDeHN5Kg7QuvyIfX2oQ2OvHb8mX/qjUe33L5P4J+2q75f4K/7p/WZvsvZ8aI/6yIlC" + + "fhzQH8Kn7TuCf2/4I+8Va3jZ/A/uq9WQ62dCfOOl/8Atqfalf8A4/4H3krfk/gf3WGqnT8zoLP/AO3zH" + + "/bVP2rX/wCP+B95Kz/H/A/uqdWlNk7QhAH+THSw/wDWXqPtSv8A8a/sR946z/GR/dK63rfoLRZb9BThJ" + + "U/48Yh+NPtG7L5YuP0J+361fc/goHXvtEuh4W1sCQR6cq235x/rjio9rvS/2v4H27W/J/BH8KPaqebN4" + + "GaKBuhkbXAn3CskcPxq7Uvb0zs/go65XWTlreP0KvpzteSOBI0u1Io/qxkY3L94EIb8Key35fdX+SvtF" + + "6Xsn/JT+bPa4l/0ry60QU6geUYsg/olWKYPurKywXubxK5U+nI2XJ/nc5F+BSbQrtJTH/pGbcp8Xm/uZ" + + "yoPpuVuBw+441tt0leV99f3KrQV6/3HfufQh2R9TXuDSt0wKQG/SAZeRdm9N+aiAD/Tq6aHrncveuSzb" + + "PVu80ino2HYtXESjI3w2APMI+M3+R1V8f1azt0DL6uNltglXu89zGdjiykcGlLkud+bzBAzVoUfmmic3" + + "9evTp/6e0uPxXrk2W6eb68nuY/staQMN1IR9JnAeshIOxAf2gTMmT+rXrQ6HtTe/P7G4yw0/q1C4UTpB" + + "pjEcP0fY9spGL0MdoiuYB9eJYhjCPxr2obDQQtRrIm4T6G0y2UzP7bf2PftY5iwJy2bNq1IG3C3SIkH3" + + "EAArfZSxM8rUQ2Wwsb2REPrwHpWw1ODNkYD0qcELyTTAIwFSTkVOSMc5FMgmoAoMigFAKAUAoBQCgFAK" + + "AUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQEVXZn1HiFOmnxG5RTY34k7xio6TCSNvSroiImMlVH" + + "yGsTos+8QMB1xv61drMJjJOVIEfj91VWDIw74jAemflUdKNO6Fe3oOEv6v4BUdOH5SM/QjlkH7JfmUKe" + + "ywrztQnw/Acon6pP6IU9ig+RCfB8COUT9Qn9EKexQfIg8HwJ5ZP1Sf0Qp7HD8iDwfAcBA+yH3VHskX6E" + + "YT5SeEv6oVboxIR/wCI6Dtt8Aqegi8oWRi+hPxCrJHgnlPUj5VVYcrncW2ovKjf4Zq6Jj3iMtQkoYqVV" + + "Rn4E4zUbnIN2CMBVVkb6oN6k4D0Cqqxi+6R4iayNTCAVIFAKAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFA" + + "KAUAoBQCgFAKAUAoBQCgFAKAUAoBQCgFAKAioUt6E1VSFFVwhAqcAVG1AKYQEVZCik1cuKAUAoBQCgFA" + + "Ko4ugrG5qEiszexRRRSiio9CU7EVjVEIUmsrexKCpJFQBV0LIKhSFFQQKAUAoBQCgFAKAUAoBQCgFAKA" + + "UAoBQCgFAKA/9k="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Bizonylatszám = new DevExpress.XtraReports.UI.CalculatedField(); + this.Számla_Megnevezés = new DevExpress.XtraReports.UI.CalculatedField(); + this.Trmeltetésbe_bevont_szöveg = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("SumPriceBruttoHUF", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 14.45834F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42.00001F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label53, + this.label52, + this.label49, + this.label48, + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail; + this.GroupFooter1.HeightF = 264.5835F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.RepeatEveryPage = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label30, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29, + this.label50, + this.label51}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 320.4165F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(274.9999F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(59.25223F, 17.79162F); + this.label31.Text = "label31"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(85.99988F, 17.79169F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(334.2521F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(75.58121F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(38.54161F, 17.79169F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.UserCreated.FullName")}); + this.label53.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(547.9168F, 238.6004F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(186.0832F, 15.98309F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "label53"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.PayMode")}); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(333.2105F, 199.875F); + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label52.Text = "label52"; + this.label52.Visible = false; + // + // label49 + // + this.label49.AutoWidth = true; + this.label49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 135.088F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.Scripts.OnBeforePrint = "label49_BeforePrint"; + this.label49.SizeF = new System.Drawing.SizeF(741.6667F, 23.00003F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label48 + // + this.label48.AutoWidth = true; + this.label48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(0F, 105F); + this.label48.Multiline = true; + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label48.Scripts.OnBeforePrint = "label48_BeforePrint"; + this.label48.SizeF = new System.Drawing.SizeF(740.9585F, 29.16667F); + this.label48.StylePriority.UseFont = false; + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = resources.GetString("label48.Text"); + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 262.5835F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 11.80509F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 61.10756F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9168F, 15.64707F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(3.739899E-05F, 85F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 20F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.6249F, 85.00002F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 19.99998F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(442.6251F, 219.767F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(0F, 178.9583F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(100F, 199.875F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 219.767F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(100.0001F, 236.517F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(547.9168F, 236.6004F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 43.14502F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(189.7083F, 63.70831F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label30.FormattingRules.Add(this.Stornó); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 178.0417F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(116.1669F, 19.9583F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "számla stornója"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.ConnectInfo.FormattingRules.Add(this.Stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 178.0417F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.StylePriority.UseTextAlignment = false; + this.ConnectInfo.Text = "ConnectInfo"; + this.ConnectInfo.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Számla_Megnevezés")}); + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(190.75F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(547.25F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 71.62488F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 94.62488F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 144.7083F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.25F, 144.7083F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 167.7083F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 167.7083F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.04155F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(122.9166F, 33.41669F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 242.0834F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bizonylatszám")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37491F, 296.2499F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 20F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 296.2499F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 20F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 296.2499F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(83.37502F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(319.8332F, 296.2498F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(89.99997F, 20.00009F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 296.2497F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90.00003F, 20.00018F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9583F, 296.2498F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(103.0416F, 20.00009F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 296.2499F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.83337F, 20F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(543.6666F, 296.2499F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 20F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041662F, 318.3332F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(2.270653E-05F, 316.2499F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 121.7083F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.APCSheetByProducts.Oid")}); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(300.6215F, 106.4168F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(64.58316F, 13.45834F); + this.label50.Text = "label50"; + this.label50.Visible = false; + // + // label51 + // + this.label51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRowsOther.Oid")}); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(365.2047F, 106.4168F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(64.58316F, 13.45834F); + this.label51.Text = "label51"; + this.label51.Visible = false; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Bizonylatszám + // + this.Bizonylatszám.Expression = "Iif([InvoiceHeader.IsProforma],[InvoiceHeader.DocumentNumberProforma] ,[InvoiceHe" + + "ader.DocumentNumber] )"; + this.Bizonylatszám.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Bizonylatszám.Name = "Bizonylatszám"; + this.Bizonylatszám.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // Számla_Megnevezés + // + this.Számla_Megnevezés.Expression = "Iif([InvoiceHeader.IsProforma], \'Próbaszámla\' ,\r\nIif([InvoiceHeader.IsStorno],\'Sz" + + "tornó számla\', \'Számla\'))\r\n"; + this.Számla_Megnevezés.Name = "Számla_Megnevezés"; + // + // Trmeltetésbe_bevont_szöveg + // + this.Trmeltetésbe_bevont_szöveg.Expression = resources.GetString("Trmeltetésbe_bevont_szöveg.Expression"); + this.Trmeltetésbe_bevont_szöveg.Name = "Trmeltetésbe_bevont_szöveg"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Bizonylatszám, + this.Számla_Megnevezés, + this.Trmeltetésbe_bevont_szöveg}); + this.DisplayName = "Kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 14, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner Előminősítő lap.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner Előminősítő lap.repx new file mode 100644 index 0000000..fb24c23 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner Előminősítő lap.repx @@ -0,0 +1,2165 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Page2 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow26; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell184; + private DevExpress.XtraReports.UI.XRTableCell tableCell185; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell176; + private DevExpress.XtraReports.UI.XRTableCell tableCell177; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow24; + private DevExpress.XtraReports.UI.XRTableCell tableCell175; + private DevExpress.XtraReports.UI.XRTableCell tableCell158; + private DevExpress.XtraReports.UI.XRTableCell tableCell172; + private DevExpress.XtraReports.UI.XRTableCell tableCell171; + private DevExpress.XtraReports.UI.XRTable table9; + private DevExpress.XtraReports.UI.XRTableRow tableRow25; + private DevExpress.XtraReports.UI.XRTableCell tableCell174; + private DevExpress.XtraReports.UI.XRTableCell tableCell173; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell155; + private DevExpress.XtraReports.UI.XRTableRow tableRow23; + private DevExpress.XtraReports.UI.XRTableCell tableCell156; + private DevExpress.XtraReports.UI.XRTableCell tableCell157; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell162; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell168; + private DevExpress.XtraReports.UI.XRTableCell tableCell170; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell159; + private DevExpress.XtraReports.UI.XRTableCell tableCell160; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell153; + private DevExpress.XtraReports.UI.XRTableCell tableCell154; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell151; + private DevExpress.XtraReports.UI.XRTableCell tableCell152; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell111; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell113; + private DevExpress.XtraReports.UI.XRTableCell tableCell115; + private DevExpress.XtraReports.UI.XRTableCell tableCell120; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell141; + private DevExpress.XtraReports.UI.XRTableCell tableCell143; + private DevExpress.XtraReports.UI.XRTableCell tableCell145; + private DevExpress.XtraReports.UI.XRTableCell tableCell146; + private DevExpress.XtraReports.UI.XRTableCell tableCell147; + private DevExpress.XtraReports.UI.XRTableCell tableCell149; + private DevExpress.XtraReports.UI.XRTableCell tableCell150; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell131; + private DevExpress.XtraReports.UI.XRTableCell tableCell140; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell121; + private DevExpress.XtraReports.UI.XRTableCell tableCell130; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell110; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTableCell tableCell95; + private DevExpress.XtraReports.UI.XRTableCell tableCell97; + private DevExpress.XtraReports.UI.XRTableCell tableCell98; + private DevExpress.XtraReports.UI.XRTableCell tableCell100; + private DevExpress.XtraReports.UI.XRTableCell tableCell101; + private DevExpress.XtraReports.UI.XRTableRow tableRow12; + private DevExpress.XtraReports.UI.XRTableCell tableCell102; + private DevExpress.XtraReports.UI.XRTableCell tableCell104; + private DevExpress.XtraReports.UI.XRTableCell tableCell105; + private DevExpress.XtraReports.UI.XRTableCell tableCell106; + private DevExpress.XtraReports.UI.XRTableCell tableCell108; + private DevExpress.XtraReports.UI.XRTableCell tableCell109; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell52; + private DevExpress.XtraReports.UI.XRTableCell tableCell53; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRTableCell tableCell63; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableCell tableCell68; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell72; + private DevExpress.XtraReports.UI.XRTableCell tableCell74; + private DevExpress.XtraReports.UI.XRTableCell tableCell75; + private DevExpress.XtraReports.UI.XRTableCell tableCell77; + private DevExpress.XtraReports.UI.XRTableCell tableCell78; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Page2() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUA9gQAAAxGAGkAbAB0AGUAcgAZBQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgAbBQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAHQUAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAfBQAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAIAUAAAHzCQ0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsMzNfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCmlmIHRhYmxlQ2VsbDMzLlRleHQ9ICIgVHJ1ZSIgdGhlbg0KCXRhY" + + "mxlQ2VsbDMzLlRleHQgPSAiIElnZW4iDQplbmQgaWYNCmlmIHRhYmxlQ2VsbDMzLlRleHQgPSAiIEZhb" + + "HNlIg0KCXRhYmxlQ2VsbDMzLlRleHQgPSAiIE5lbSINCmVuZCBpZg0KRW5kIFN1Yg0KDQpQcml2YXRlI" + + "FN1YiB0YWJsZUNlbGwzMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsMzEudGV4d" + + "CA9ICBsYWJlbDIuVGV4dC5Ub1N0cmluZyAmICIsICIgJiBsYWJlbDE0LlRleHQuVG9TdHJpbmcgJiAiL" + + "CAiICYgbGFiZWwxNS5UZXh0LlRvU3RyaW5nDQpFbmQgU3ViDQoNClByaXZhdGUgU3ViIHRhYmxlQ2Vsb" + + "DM0X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyY" + + "XdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQppZiB0YWJsZUNlbGwzMy5UZXh0ID0gIiBJZ2VuI" + + "iB0aGVuDQp0YWJsZUNlbGwzNC50ZXh0PSIiDQplbmQgaWYNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgd" + + "GFibGVDZWxsMTNfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTe" + + "XN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCmlmIHRhYmxlQ2VsbDMzLlRleHQgP" + + "SAiIElnZW4iIHRoZW4NCnRhYmxlQ2VsbDEzLnRleHQ9IiINCmVuZCBpZg0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiB0YWJsZUNlbGwzN19CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhb" + + "CBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgdGFibGVDZWxsM" + + "zMuVGV4dCA9ICIgSWdlbiIgdGhlbg0KdGFibGVDZWxsMzcudGV4dD0iIg0KZW5kIGlmDQpFbmQgU3ViD" + + "QoNClByaXZhdGUgU3ViIHRhYmxlQ2VsbDE1OF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZ" + + "WN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgd" + + "GFibGVDZWxsMTU4LnRleHQgPSAiZU5vdCBzZXQiIHRoZW4NCnRhYmxlQ2VsbDE1OC50ZXh0ID0gIk5pb" + + "mNzIGJlw6FsbMOtdHZhIg0KZW5kIGlmDQpFbmQgU3ViDQoBIVNJU0J1c2luZXNzLk1vZHVsZS5BUENTa" + + "GVldEhlYWRlcgEAAQABAAABG1BhcnRuZXIgRWzFkW1pbsWRc8OtdMWRIGxhcA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.table9 = new DevExpress.XtraReports.UI.XRTable(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow26 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell184 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell185 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell176 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell177 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow24 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell175 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell158 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell172 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell171 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow25 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell174 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell173 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow23 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell155 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell156 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell157 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell162 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell168 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell170 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell159 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell160 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell153 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell154 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell151 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell152 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell111 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell113 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell115 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell120 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell141 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell143 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell145 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell146 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell147 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell149 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell150 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell131 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell140 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell121 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell130 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell110 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow12 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell95 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell97 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell98 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell100 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell101 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell102 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell104 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell105 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell106 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell108 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell109 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell52 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell53 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell63 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell68 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell72 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell74 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell75 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell77 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell78 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table9)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table11, + this.table10, + this.table9, + this.table8, + this.table7, + this.table6, + this.table5, + this.table4, + this.table3, + this.table2}); + this.detailBand1.HeightF = 892.7252F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label5, + this.label1, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10}); + this.pageFooterBand1.HeightF = 90.75596F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label15, + this.label14, + this.label2, + this.label11, + this.label12, + this.label13, + this.table1}); + this.reportHeaderBand1.HeightF = 57.05907F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 12.08334F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 25F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table11 + // + this.table11.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(455.1859F, 800.9999F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow26, + this.tableRow27}); + this.table11.SizeF = new System.Drawing.SizeF(284.8144F, 60.00006F); + this.table11.StylePriority.UseBorders = false; + this.table11.StylePriority.UseFont = false; + // + // table10 + // + this.table10.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table10.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(11.0008F, 800.9999F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow24}); + this.table10.SizeF = new System.Drawing.SizeF(444.1851F, 60F); + this.table10.StylePriority.UseBorders = false; + this.table10.StylePriority.UseFont = false; + // + // table9 + // + this.table9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table9.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table9.LocationFloat = new DevExpress.Utils.PointFloat(11.00128F, 666F); + this.table9.Name = "table9"; + this.table9.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow25}); + this.table9.SizeF = new System.Drawing.SizeF(260.429F, 89.99997F); + this.table9.StylePriority.UseBorders = false; + this.table9.StylePriority.UseFont = false; + // + // table8 + // + this.table8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table8.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(271.4303F, 666F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow22, + this.tableRow23}); + this.table8.SizeF = new System.Drawing.SizeF(183.7562F, 89.99997F); + this.table8.StylePriority.UseBorders = false; + this.table8.StylePriority.UseFont = false; + // + // table7 + // + this.table7.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table7.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(11.00104F, 755.9999F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow19}); + this.table7.SizeF = new System.Drawing.SizeF(728.9999F, 45F); + this.table7.StylePriority.UseBorders = false; + this.table7.StylePriority.UseFont = false; + // + // table6 + // + this.table6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(455.1866F, 666F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18, + this.tableRow21, + this.tableRow20}); + this.table6.SizeF = new System.Drawing.SizeF(284.8145F, 90.00003F); + this.table6.StylePriority.UseBorders = false; + this.table6.StylePriority.UseFont = false; + // + // table5 + // + this.table5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(11.00019F, 421F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow14, + this.tableRow17, + this.tableRow16, + this.tableRow15}); + this.table5.SizeF = new System.Drawing.SizeF(728.9999F, 245F); + this.table5.StylePriority.UseBorders = false; + this.table5.StylePriority.UseFont = false; + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table4 + // + this.table4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(10.99995F, 341F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow13}); + this.table4.SizeF = new System.Drawing.SizeF(138.1133F, 80F); + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(149.1134F, 341F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow11, + this.tableRow12}); + this.table3.SizeF = new System.Drawing.SizeF(590.8865F, 80F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseFont = false; + this.table3.StylePriority.UseTextAlignment = false; + this.table3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(11.00006F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow3, + this.tableRow4, + this.tableRow5, + this.tableRow6, + this.tableRow7, + this.tableRow8, + this.tableRow9}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 341F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + this.table2.StylePriority.UseTextAlignment = false; + this.table2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow26 + // + this.tableRow26.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell184, + this.tableCell185}); + this.tableRow26.Name = "tableRow26"; + this.tableRow26.Weight = 1.2000004577638466D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell10, + this.tableCell176, + this.tableCell177}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 1.2000004577638466D; + // + // tableCell8 + // + this.tableCell8.BackColor = System.Drawing.Color.Transparent; + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeferredPaymentDay", "{0:#,#}")}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBackColor = false; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell8.Weight = 0.20266175776220943D; + // + // tableCell184 + // + this.tableCell184.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell184.Name = "tableCell184"; + this.tableCell184.StylePriority.UseBorders = false; + this.tableCell184.StylePriority.UseTextAlignment = false; + this.tableCell184.Text = "napra"; + this.tableCell184.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell184.Weight = 0.091418749328052079D; + // + // tableCell185 + // + this.tableCell185.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell185.Name = "tableCell185"; + this.tableCell185.StylePriority.UseBorders = false; + this.tableCell185.StylePriority.UseTextAlignment = false; + this.tableCell185.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell185.Weight = 0.28171244354057762D; + // + // tableCell10 + // + this.tableCell10.BackColor = System.Drawing.Color.Transparent; + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeferredPaymentHUF", "{0:#,#}")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBackColor = false; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell10.Weight = 0.20266163437093496D; + // + // tableCell176 + // + this.tableCell176.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell176.Name = "tableCell176"; + this.tableCell176.StylePriority.UseBorders = false; + this.tableCell176.StylePriority.UseTextAlignment = false; + this.tableCell176.Text = "Ft-ig"; + this.tableCell176.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell176.Weight = 0.091418996110620848D; + // + // tableCell177 + // + this.tableCell177.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell177.Name = "tableCell177"; + this.tableCell177.StylePriority.UseBorders = false; + this.tableCell177.StylePriority.UseTextAlignment = false; + this.tableCell177.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell177.Weight = 0.28171232014928332D; + // + // tableRow24 + // + this.tableRow24.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell175, + this.tableCell158, + this.tableCell172, + this.tableCell171}); + this.tableRow24.Name = "tableRow24"; + this.tableRow24.Weight = 1.2000007324223221D; + // + // tableCell175 + // + this.tableCell175.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell175.Name = "tableCell175"; + this.tableCell175.StylePriority.UseBorders = false; + this.tableCell175.StylePriority.UseTextAlignment = false; + this.tableCell175.Text = "Credit menedzser döntése"; + this.tableCell175.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell175.Weight = 0.93280892456766573D; + // + // tableCell158 + // + this.tableCell158.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell158.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ManagementQualificationState")}); + this.tableCell158.Name = "tableCell158"; + this.tableCell158.Scripts.OnBeforePrint = "tableCell158_BeforePrint"; + this.tableCell158.StylePriority.UseBorders = false; + this.tableCell158.StylePriority.UseTextAlignment = false; + this.tableCell158.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell158.Weight = 0.82611146388803969D; + // + // tableCell172 + // + this.tableCell172.BackColor = System.Drawing.Color.Transparent; + this.tableCell172.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell172.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ManagementTerritorialArea", "{0:#,#.00}")}); + this.tableCell172.Name = "tableCell172"; + this.tableCell172.StylePriority.UseBackColor = false; + this.tableCell172.StylePriority.UseBorders = false; + this.tableCell172.StylePriority.UseTextAlignment = false; + this.tableCell172.Text = "tableCell172"; + this.tableCell172.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell172.Weight = 0.85332086129849027D; + // + // tableCell171 + // + this.tableCell171.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell171.Name = "tableCell171"; + this.tableCell171.StylePriority.UseBorders = false; + this.tableCell171.StylePriority.UseTextAlignment = false; + this.tableCell171.Text = "ha terület"; + this.tableCell171.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell171.Weight = 0.38775875024580431D; + // + // tableRow25 + // + this.tableRow25.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell174, + this.tableCell173}); + this.tableRow25.Name = "tableRow25"; + this.tableRow25.Weight = 1D; + // + // tableCell174 + // + this.tableCell174.Name = "tableCell174"; + this.tableCell174.StylePriority.UseTextAlignment = false; + this.tableCell174.Text = "Üzletkötő javaslata"; + this.tableCell174.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell174.Weight = 1.5909891900842057D; + // + // tableCell173 + // + this.tableCell173.BackColor = System.Drawing.Color.Transparent; + this.tableCell173.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell173.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SalespersonsProposal")}); + this.tableCell173.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell173.Name = "tableCell173"; + this.tableCell173.StylePriority.UseBackColor = false; + this.tableCell173.StylePriority.UseBorders = false; + this.tableCell173.StylePriority.UseFont = false; + this.tableCell173.StylePriority.UseTextAlignment = false; + this.tableCell173.Text = "tableCell173"; + this.tableCell173.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell173.Weight = 1.4090108099157943D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell155}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1.2000004526775672D; + // + // tableRow23 + // + this.tableRow23.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell156, + this.tableCell157}); + this.tableRow23.Name = "tableRow23"; + this.tableRow23.Weight = 2.4000008290611192D; + // + // tableCell155 + // + this.tableCell155.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell155.Name = "tableCell155"; + this.tableCell155.StylePriority.UseBorders = false; + this.tableCell155.StylePriority.UseTextAlignment = false; + this.tableCell155.Text = "Termeltetésre"; + this.tableCell155.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell155.Weight = 0.57579320180436333D; + // + // tableCell156 + // + this.tableCell156.BackColor = System.Drawing.Color.Transparent; + this.tableCell156.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell156.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ManagementTerritorialArea", "{0:#,#.00}")}); + this.tableCell156.Name = "tableCell156"; + this.tableCell156.StylePriority.UseBackColor = false; + this.tableCell156.StylePriority.UseBorders = false; + this.tableCell156.StylePriority.UseTextAlignment = false; + this.tableCell156.Text = "tableCell156"; + this.tableCell156.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell156.Weight = 0.39589417596417109D; + // + // tableCell157 + // + this.tableCell157.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell157.Name = "tableCell157"; + this.tableCell157.StylePriority.UseBorders = false; + this.tableCell157.StylePriority.UseTextAlignment = false; + this.tableCell157.Text = "ha terület"; + this.tableCell157.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell157.Weight = 0.17989902584019224D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell162, + this.tableCell16, + this.tableCell168, + this.tableCell170}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 1.8000006866457698D; + // + // tableCell162 + // + this.tableCell162.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell162.Name = "tableCell162"; + this.tableCell162.StylePriority.UseBorders = false; + this.tableCell162.StylePriority.UseTextAlignment = false; + this.tableCell162.Text = "Banki előminősítés eredménye"; + this.tableCell162.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell162.Weight = 1.0717257639071209D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "Hitelezhető"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.75619835314885375D; + // + // tableCell168 + // + this.tableCell168.BackColor = System.Drawing.Color.Transparent; + this.tableCell168.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell168.Name = "tableCell168"; + this.tableCell168.StylePriority.UseBackColor = false; + this.tableCell168.StylePriority.UseBorders = false; + this.tableCell168.StylePriority.UseTextAlignment = false; + this.tableCell168.Text = "Nem hitelezhető"; + this.tableCell168.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell168.Weight = 0.5986246425104661D; + // + // tableCell170 + // + this.tableCell170.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell170.Name = "tableCell170"; + this.tableCell170.StylePriority.UseBorders = false; + this.tableCell170.StylePriority.UseTextAlignment = false; + this.tableCell170.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell170.Weight = 0.57345124043355944D; + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell159, + this.tableCell160}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1.2000004628501233D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5, + this.tableCell153, + this.tableCell154}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1.2000004628501233D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6, + this.tableCell151, + this.tableCell152}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1.2000005391440995D; + // + // tableCell159 + // + this.tableCell159.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell159.Name = "tableCell159"; + this.tableCell159.StylePriority.UseBorders = false; + this.tableCell159.StylePriority.UseTextAlignment = false; + this.tableCell159.Text = "Halasztott fizetésre"; + this.tableCell159.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell159.Weight = 0.2940796301766605D; + // + // tableCell160 + // + this.tableCell160.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell160.Name = "tableCell160"; + this.tableCell160.StylePriority.UseBorders = false; + this.tableCell160.StylePriority.UseTextAlignment = false; + this.tableCell160.Text = "Aláírás, dátum:"; + this.tableCell160.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell160.Weight = 0.28171357162770283D; + // + // tableCell5 + // + this.tableCell5.BackColor = System.Drawing.Color.Transparent; + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeferredPaymentDay", "{0:#,#}")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBackColor = false; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell5.Weight = 0.2026602709036778D; + // + // tableCell153 + // + this.tableCell153.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell153.Name = "tableCell153"; + this.tableCell153.StylePriority.UseBorders = false; + this.tableCell153.StylePriority.UseTextAlignment = false; + this.tableCell153.Text = "napra"; + this.tableCell153.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell153.Weight = 0.0914193592729827D; + // + // tableCell154 + // + this.tableCell154.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell154.Name = "tableCell154"; + this.tableCell154.StylePriority.UseBorders = false; + this.tableCell154.Weight = 0.28171357162770283D; + // + // tableCell6 + // + this.tableCell6.BackColor = System.Drawing.Color.Transparent; + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeferredPaymentHUF", "{0:#,#}")}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBackColor = false; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell6.Weight = 0.2026602709036778D; + // + // tableCell151 + // + this.tableCell151.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell151.Name = "tableCell151"; + this.tableCell151.StylePriority.UseBorders = false; + this.tableCell151.StylePriority.UseTextAlignment = false; + this.tableCell151.Text = "Ft-ig"; + this.tableCell151.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell151.Weight = 0.0914193592729827D; + // + // tableCell152 + // + this.tableCell152.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell152.Name = "tableCell152"; + this.tableCell152.StylePriority.UseBorders = false; + this.tableCell152.Weight = 0.28171357162770283D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell111, + this.tableCell2, + this.tableCell113, + this.tableCell115, + this.tableCell120}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1.8000006866457698D; + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell141, + this.tableCell143, + this.tableCell145, + this.tableCell146, + this.tableCell147, + this.tableCell149, + this.tableCell150}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 1.6000006103517954D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell131, + this.tableCell140}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 3.2000012207035908D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell121, + this.tableCell130}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 3.2000012207035913D; + // + // tableCell111 + // + this.tableCell111.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell111.Name = "tableCell111"; + this.tableCell111.StylePriority.UseBorders = false; + this.tableCell111.StylePriority.UseTextAlignment = false; + this.tableCell111.Text = "Gazdaság nagysága"; + this.tableCell111.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell111.Weight = 0.56836814039929051D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EconomyArea", "{0:n}")}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell2.Weight = 0.38313721097432318D; + // + // tableCell113 + // + this.tableCell113.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell113.Name = "tableCell113"; + this.tableCell113.StylePriority.UseBorders = false; + this.tableCell113.StylePriority.UseTextAlignment = false; + this.tableCell113.Text = " ha"; + this.tableCell113.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell113.Weight = 0.12022000547067591D; + // + // tableCell115 + // + this.tableCell115.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell115.Name = "tableCell115"; + this.tableCell115.Padding = new DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100F); + this.tableCell115.StylePriority.UseBorders = false; + this.tableCell115.StylePriority.UsePadding = false; + this.tableCell115.StylePriority.UseTextAlignment = false; + this.tableCell115.Text = "Termesztett főbb növények:"; + this.tableCell115.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell115.Weight = 0.519934921468511D; + // + // tableCell120 + // + this.tableCell120.BackColor = System.Drawing.Color.Transparent; + this.tableCell120.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell120.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EconomyMajorCropsGrown")}); + this.tableCell120.Name = "tableCell120"; + this.tableCell120.StylePriority.UseBackColor = false; + this.tableCell120.StylePriority.UseBorders = false; + this.tableCell120.StylePriority.UseTextAlignment = false; + this.tableCell120.Text = "tableCell120"; + this.tableCell120.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell120.Weight = 1.4083397216871996D; + // + // tableCell141 + // + this.tableCell141.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell141.Name = "tableCell141"; + this.tableCell141.StylePriority.UseBorders = false; + this.tableCell141.StylePriority.UseTextAlignment = false; + this.tableCell141.Text = "Területek tulajdona"; + this.tableCell141.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell141.Weight = 0.56836814039929051D; + // + // tableCell143 + // + this.tableCell143.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell143.Name = "tableCell143"; + this.tableCell143.StylePriority.UseBorders = false; + this.tableCell143.StylePriority.UseTextAlignment = false; + this.tableCell143.Text = "saját:"; + this.tableCell143.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell143.Weight = 0.50335721644499909D; + // + // tableCell145 + // + this.tableCell145.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell145.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EconomyAreaOwner", "{0:n}")}); + this.tableCell145.Name = "tableCell145"; + this.tableCell145.StylePriority.UseBorders = false; + this.tableCell145.StylePriority.UseTextAlignment = false; + this.tableCell145.Text = "tableCell145"; + this.tableCell145.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell145.Weight = 0.519934921468511D; + // + // tableCell146 + // + this.tableCell146.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell146.Name = "tableCell146"; + this.tableCell146.StylePriority.UseBorders = false; + this.tableCell146.Text = " ha"; + this.tableCell146.Weight = 0.23626453248029233D; + // + // tableCell147 + // + this.tableCell147.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell147.Name = "tableCell147"; + this.tableCell147.StylePriority.UseBorders = false; + this.tableCell147.StylePriority.UseTextAlignment = false; + this.tableCell147.Text = "bérelt:"; + this.tableCell147.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell147.Weight = 0.33496511514002714D; + // + // tableCell149 + // + this.tableCell149.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell149.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "EconomyAreaRent", "{0:n}")}); + this.tableCell149.Name = "tableCell149"; + this.tableCell149.StylePriority.UseBorders = false; + this.tableCell149.StylePriority.UseTextAlignment = false; + this.tableCell149.Text = "tableCell149"; + this.tableCell149.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell149.Weight = 0.58961908712283162D; + // + // tableCell150 + // + this.tableCell150.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell150.Name = "tableCell150"; + this.tableCell150.StylePriority.UseBorders = false; + this.tableCell150.StylePriority.UseTextAlignment = false; + this.tableCell150.Text = " ha"; + this.tableCell150.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell150.Weight = 0.2474909869440482D; + // + // tableCell131 + // + this.tableCell131.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell131.Name = "tableCell131"; + this.tableCell131.StylePriority.UseBorders = false; + this.tableCell131.StylePriority.UseTextAlignment = false; + this.tableCell131.Text = "Főbb beszállítók"; + this.tableCell131.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell131.Weight = 0.56836814039929051D; + // + // tableCell140 + // + this.tableCell140.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell140.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MainCustomers")}); + this.tableCell140.Name = "tableCell140"; + this.tableCell140.StylePriority.UseBorders = false; + this.tableCell140.StylePriority.UseTextAlignment = false; + this.tableCell140.Text = "tableCell140"; + this.tableCell140.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell140.Weight = 2.4316318596007096D; + // + // tableCell121 + // + this.tableCell121.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell121.Name = "tableCell121"; + this.tableCell121.StylePriority.UseBorders = false; + this.tableCell121.StylePriority.UseTextAlignment = false; + this.tableCell121.Text = "Megjegyzés, észrevétel:"; + this.tableCell121.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell121.Weight = 0.568367889225766D; + // + // tableCell130 + // + this.tableCell130.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell130.Name = "tableCell130"; + this.tableCell130.StylePriority.UseBorders = false; + this.tableCell130.Text = " [Description]"; + this.tableCell130.Weight = 2.4316321107742338D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell110}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 1.600000976563096D; + // + // tableCell110 + // + this.tableCell110.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell110.Name = "tableCell110"; + this.tableCell110.StylePriority.UseBorders = false; + this.tableCell110.StylePriority.UseTextAlignment = false; + this.tableCell110.Text = "Géppark"; + this.tableCell110.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell110.Weight = 3D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93, + this.tableCell95, + this.tableCell97, + this.tableCell98, + this.tableCell100, + this.tableCell101}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 1.6000006103517954D; + // + // tableRow12 + // + this.tableRow12.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell102, + this.tableCell104, + this.tableCell105, + this.tableCell106, + this.tableCell108, + this.tableCell109}); + this.tableRow12.Name = "tableRow12"; + this.tableRow12.Weight = 1.6000006103517954D; + // + // tableCell93 + // + this.tableCell93.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseBorders = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = " traktor:"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 0.20392578872323686D; + // + // tableCell95 + // + this.tableCell95.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell95.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachineryTractors", "{0:#,#}")}); + this.tableCell95.Name = "tableCell95"; + this.tableCell95.StylePriority.UseBorders = false; + this.tableCell95.StylePriority.UseTextAlignment = false; + this.tableCell95.Text = "tableCell95"; + this.tableCell95.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell95.Weight = 0.58274072782546127D; + // + // tableCell97 + // + this.tableCell97.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell97.Name = "tableCell97"; + this.tableCell97.StylePriority.UseBorders = false; + this.tableCell97.StylePriority.UseTextAlignment = false; + this.tableCell97.Text = " talajművelő gép:"; + this.tableCell97.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell97.Weight = 0.36036429223670913D; + // + // tableCell98 + // + this.tableCell98.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell98.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachineryTillage", "{0:#,#}")}); + this.tableCell98.Name = "tableCell98"; + this.tableCell98.StylePriority.UseBorders = false; + this.tableCell98.StylePriority.UseTextAlignment = false; + this.tableCell98.Text = "tableCell98"; + this.tableCell98.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell98.Weight = 0.44749113815536856D; + // + // tableCell100 + // + this.tableCell100.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell100.Name = "tableCell100"; + this.tableCell100.StylePriority.UseBorders = false; + this.tableCell100.StylePriority.UseTextAlignment = false; + this.tableCell100.Text = " betakarító gép:"; + this.tableCell100.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell100.Weight = 0.33241764670642959D; + // + // tableCell101 + // + this.tableCell101.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell101.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachineryHarvesting", "{0:#,#}")}); + this.tableCell101.Name = "tableCell101"; + this.tableCell101.StylePriority.UseBorders = false; + this.tableCell101.StylePriority.UseTextAlignment = false; + this.tableCell101.Text = "tableCell101"; + this.tableCell101.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell101.Weight = 0.50469242736045028D; + // + // tableCell102 + // + this.tableCell102.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell102.Name = "tableCell102"; + this.tableCell102.StylePriority.UseBorders = false; + this.tableCell102.Text = " növényvédelmi gép:"; + this.tableCell102.Weight = 0.50335737785194534D; + // + // tableCell104 + // + this.tableCell104.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell104.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachineryFighting", "{0:#,#}")}); + this.tableCell104.Name = "tableCell104"; + this.tableCell104.StylePriority.UseBorders = false; + this.tableCell104.StylePriority.UseTextAlignment = false; + this.tableCell104.Text = "tableCell104"; + this.tableCell104.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell104.Weight = 0.519934921468511D; + // + // tableCell105 + // + this.tableCell105.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell105.Name = "tableCell105"; + this.tableCell105.StylePriority.UseBorders = false; + this.tableCell105.Text = " vetőgép:"; + this.tableCell105.Weight = 0.23626453248029233D; + // + // tableCell106 + // + this.tableCell106.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell106.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachinerySeedDrill", "{0:#,#}")}); + this.tableCell106.Name = "tableCell106"; + this.tableCell106.StylePriority.UseBorders = false; + this.tableCell106.StylePriority.UseTextAlignment = false; + this.tableCell106.Text = "tableCell106"; + this.tableCell106.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell106.Weight = 0.33496511514002714D; + // + // tableCell108 + // + this.tableCell108.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell108.Name = "tableCell108"; + this.tableCell108.StylePriority.UseBorders = false; + this.tableCell108.Text = " spec.gépek:"; + this.tableCell108.Weight = 0.33241764670642959D; + // + // tableCell109 + // + this.tableCell109.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell109.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MachinerySpecial", "{0:#,#}")}); + this.tableCell109.Name = "tableCell109"; + this.tableCell109.StylePriority.UseBorders = false; + this.tableCell109.StylePriority.UseTextAlignment = false; + this.tableCell109.Text = "tableCell109"; + this.tableCell109.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell109.Weight = 0.50469242736045028D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell24, + this.tableCell25, + this.tableCell18}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.64000087585496D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell7, + this.tableCell9, + this.tableCell11}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.6400008758549598D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell12, + this.tableCell31}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1.6400008758549594D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33, + this.tableCell34, + this.tableCell13, + this.tableCell37}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 2.1600011535650694D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell42, + this.tableCell48}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 1.6400008758549598D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell52, + this.tableCell53, + this.tableCell55, + this.tableCell4, + this.tableCell58}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 1.6400008758549598D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell62, + this.tableCell63, + this.tableCell65, + this.tableCell66, + this.tableCell68}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 1.6400008758549598D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell72, + this.tableCell74, + this.tableCell75, + this.tableCell77, + this.tableCell78}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1.6400008758549598D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "Üzletkötő"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.56836814039929051D; + // + // tableCell24 + // + this.tableCell24.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell24.Weight = 1.5945210703116388D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "Azonosító"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell25.Weight = 0.26366363078546756D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.CustomerNumber")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 0.57344715850360306D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Partner neve"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.56836814039929051D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.78666643590322338D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell9.Multiline = true; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Adószáma, \r\nadóazonosító jel"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.80785582748265716D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell11.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table12}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.83710959621482883D; + // + // table12 + // + this.table12.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(9.536743E-07F, 0F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow10, + this.tableRow28}); + this.table12.SizeF = new System.Drawing.SizeF(203.4175F, 41F); + this.table12.StylePriority.UseBorders = false; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell14}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 1D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell15}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 1D; + // + // tableCell14 + // + this.tableCell14.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.VATNumber")}); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseBorders = false; + this.tableCell14.Text = "tableCell14"; + this.tableCell14.Weight = 3D; + // + // tableCell15 + // + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.PrivateVATNumber")}); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.Weight = 3D; + // + // tableCell12 + // + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "Partner címe"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 0.56836814039929051D; + // + // tableCell31 + // + this.tableCell31.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.Scripts.OnBeforePrint = "tableCell31_BeforePrint"; + this.tableCell31.StylePriority.UseBorders = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell31.Weight = 2.4316318596007096D; + // + // tableCell32 + // + this.tableCell32.Borders = DevExpress.XtraPrinting.BorderSide.Left; + this.tableCell32.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Multiline = true; + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseBorders = false; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Kapcsolatban állt-e \r\nkorábban velünk?"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell32.Weight = 0.56836814039929051D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.Borders = DevExpress.XtraPrinting.BorderSide.Left; + this.tableCell33.Name = "tableCell33"; + this.tableCell33.Scripts.OnBeforePrint = "tableCell33_BeforePrint"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseBorders = false; + this.tableCell33.Text = " [IsNewContact]"; + this.tableCell33.Weight = 0.24507786618499172D; + // + // tableCell34 + // + this.tableCell34.Borders = DevExpress.XtraPrinting.BorderSide.Left; + this.tableCell34.Name = "tableCell34"; + this.tableCell34.Scripts.OnBeforePrint = "tableCell34_BeforePrint"; + this.tableCell34.StylePriority.UseBorders = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Miért nem?"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell34.Weight = 0.54158820394255458D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "IsNewContactNoWhy")}); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.Scripts.OnBeforePrint = "tableCell13_BeforePrint"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.Weight = 0.8078550510127297D; + // + // tableCell37 + // + this.tableCell37.BackColor = System.Drawing.Color.Transparent; + this.tableCell37.Borders = DevExpress.XtraPrinting.BorderSide.Right; + this.tableCell37.Name = "tableCell37"; + this.tableCell37.Scripts.OnBeforePrint = "tableCell37_BeforePrint"; + this.tableCell37.StylePriority.UseBackColor = false; + this.tableCell37.StylePriority.UseBorders = false; + this.tableCell37.Text = " [IsNewContactNoReason]"; + this.tableCell37.Weight = 0.83711073846043338D; + // + // tableCell42 + // + this.tableCell42.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseBorders = false; + this.tableCell42.StylePriority.UseTextAlignment = false; + this.tableCell42.Text = "Fizetési fegyelem"; + this.tableCell42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell42.Weight = 0.56836814039929051D; + // + // tableCell48 + // + this.tableCell48.BackColor = System.Drawing.Color.Transparent; + this.tableCell48.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PaymentDiscipline")}); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBackColor = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.Weight = 2.4316318596007092D; + // + // tableCell52 + // + this.tableCell52.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell52.Name = "tableCell52"; + this.tableCell52.StylePriority.UseBorders = false; + this.tableCell52.StylePriority.UseTextAlignment = false; + this.tableCell52.Text = "Tisztító, szárító kapacitás"; + this.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell52.Weight = 0.56836814039929051D; + // + // tableCell53 + // + this.tableCell53.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell53.Name = "tableCell53"; + this.tableCell53.StylePriority.UseBorders = false; + this.tableCell53.Text = " Típusa:"; + this.tableCell53.Weight = 0.28623005795865691D; + // + // tableCell55 + // + this.tableCell55.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseBorders = false; + this.tableCell55.Text = " [CleanerDryerMachinetype]"; + this.tableCell55.Weight = 0.97332634329353063D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.Text = " [CleanerDryerMachineCapacity]"; + this.tableCell4.Weight = 0.92514417536736937D; + // + // tableCell58 + // + this.tableCell58.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseBorders = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "t/nap"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell58.Weight = 0.24693128298115269D; + // + // tableCell62 + // + this.tableCell62.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseBorders = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + this.tableCell62.Text = "Tároló kapacitás"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell62.Weight = 0.56836814039929051D; + // + // tableCell63 + // + this.tableCell63.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell63.Name = "tableCell63"; + this.tableCell63.StylePriority.UseBorders = false; + this.tableCell63.Text = " Síktároló (t):"; + this.tableCell63.Weight = 0.28622993237189459D; + // + // tableCell65 + // + this.tableCell65.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseBorders = false; + this.tableCell65.Text = " [StorageCapacitybyFlat]"; + this.tableCell65.Weight = 0.50043642276985734D; + // + // tableCell66 + // + this.tableCell66.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.StylePriority.UseBorders = false; + this.tableCell66.Text = " Siló(t):"; + this.tableCell66.Weight = 0.23662578277175822D; + // + // tableCell68 + // + this.tableCell68.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell68.Name = "tableCell68"; + this.tableCell68.StylePriority.UseBorders = false; + this.tableCell68.Text = " [StorageCapacitybySilo]"; + this.tableCell68.Weight = 1.4083397216871993D; + // + // tableCell72 + // + this.tableCell72.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell72.Name = "tableCell72"; + this.tableCell72.StylePriority.UseBorders = false; + this.tableCell72.StylePriority.UseTextAlignment = false; + this.tableCell72.Text = "Szállító kapacitás"; + this.tableCell72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell72.Weight = 0.56836814039929051D; + // + // tableCell74 + // + this.tableCell74.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell74.Name = "tableCell74"; + this.tableCell74.StylePriority.UseBorders = false; + this.tableCell74.StylePriority.UseTextAlignment = false; + this.tableCell74.Text = " [ShipmentCapacityMachine]"; + this.tableCell74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell74.Weight = 0.78666635269776142D; + // + // tableCell75 + // + this.tableCell75.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell75.Name = "tableCell75"; + this.tableCell75.StylePriority.UseBorders = false; + this.tableCell75.Text = " db jármű"; + this.tableCell75.Weight = 0.40465423948180407D; + // + // tableCell77 + // + this.tableCell77.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell77.Name = "tableCell77"; + this.tableCell77.StylePriority.UseBorders = false; + this.tableCell77.StylePriority.UseTextAlignment = false; + this.tableCell77.Text = " [ShipmentCapacityAmount]"; + this.tableCell77.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell77.Weight = 0.73561882664536526D; + // + // tableCell78 + // + this.tableCell78.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell78.Name = "tableCell78"; + this.tableCell78.StylePriority.UseBorders = false; + this.tableCell78.Text = " összes tonna"; + this.tableCell78.Weight = 0.50469244077577868D; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetAdministrator.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(182.4221F, 46.85447F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(177.1074F, 17.25006F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(211.2376F, 64.10453F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = " termeltetési ügyintéző "; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateSigned", "{0:yyyy.MM.dd.}")}); + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(77.19321F, 36.85452F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(105.2289F, 15.83853F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(21.46403F, 36.85452F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Dátum:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(21.35422F, 64.10453F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Aláírás:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(438.6043F, 64.10453F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(50.52081F, 15.83854F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "üzletkötő"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(609.7656F, 64.10453F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "creditmenedzser"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.label9.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(386.2085F, 46.85447F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(161.5296F, 17.25006F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(609.7656F, 46.85447F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(118.8802F, 17.25006F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Kalócz Mária"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.Street")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(160.334F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(58.33339F, 23.02907F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.City")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(90.78115F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(58.33339F, 23.02907F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.ZipPostal")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(21.46403F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(58.33339F, 23.02907F); + this.label2.Text = "label2"; + this.label2.Visible = false; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(323.6139F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "2. számú melléklet"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(496.2766F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(53.86908F, 16.42036F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "Hatályos:"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.BackColor = System.Drawing.Color.Transparent; + this.label13.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(555.432F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(124.428F, 16.42036F); + this.label13.StylePriority.UseBackColor = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "2012. augusztus 27-től"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(11.00006F, 29.27907F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 27.78F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1.1112000274658203D; + // + // tableCell3 + // + this.tableCell3.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBackColor = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Partner előminősítő adatlap"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 7.29D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Page2 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Partner Előminősítő lap"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 12, 25); + this.Name = "Page2"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table9)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner adatlap.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner adatlap.repx new file mode 100644 index 0000000..e225e9d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Partner adatlap.repx @@ -0,0 +1,1589 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Page1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow23; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell91; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell97; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell100; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell108; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell112; + private DevExpress.XtraReports.UI.XRTableCell tableCell115; + private DevExpress.XtraReports.UI.XRTableCell tableCell118; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell95; + private DevExpress.XtraReports.UI.XRTableCell tableCell102; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell104; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell111; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell113; + private DevExpress.XtraReports.UI.XRTableCell tableCell120; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell122; + private DevExpress.XtraReports.UI.XRTableCell tableCell129; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell63; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableCell tableCell67; + private DevExpress.XtraReports.UI.XRTableCell tableCell69; + private DevExpress.XtraReports.UI.XRTableCell tableCell72; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell73; + private DevExpress.XtraReports.UI.XRTableCell tableCell76; + private DevExpress.XtraReports.UI.XRTableCell tableCell78; + private DevExpress.XtraReports.UI.XRTableCell tableCell81; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell82; + private DevExpress.XtraReports.UI.XRTableCell tableCell90; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Page1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOW4" + + "hO3uUhecsHGdLje4/Hf4KwTUeIBh2lF1RwbeVYAAAANAQAAAAAAAI4AAABnAAAA9AAAACsAAAC/AAAAH" + + "AIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQB7BAAADEYAaQBsAHQAZQByAJ4EAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuAKAEAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwCiBAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAKQEAAAUUgBlAHAAbwByAHQATgBhAG0AZQClBAAAFmwAYQBiAGUAbAAyAC4AVABlAHgAdAC2BAAAA" + + "fgIDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY" + + "3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoJQ1R5c" + + "GUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZyA9IkFQQ1NoZWV0S" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTQuVGV4dC5Ub1N0cmluZyAmICInIiANCkVuZCBTdWINCg0KDQpQc" + + "ml2YXRlIFN1YiB0YWJsZUNlbGw0NV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCe" + + "VZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsN" + + "DUudGV4dCA9IGxhYmVsMTYuVGV4dC5Ub1N0cmluZyAmICIsICIgJiBsYWJlbDE3LlRleHQuVG9TdHJpb" + + "mcgJiAiLCAiICYgbGFiZWwxOC5UZXh0LlRvU3RyaW5nDQpFbmQgU3ViDQoNClByaXZhdGUgU3ViIHRhY" + + "mxlQ2VsbDIyX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzd" + + "GVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQp0YWJsZUNlbGwyMi50ZXh0ID0gbGFiZ" + + "WwxNi5UZXh0LlRvU3RyaW5nICYgIiwgIiAmIGxhYmVsMTcuVGV4dC5Ub1N0cmluZyAmICIsICIgJiBsY" + + "WJlbDE4LlRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNTRfQmVmb" + + "3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qc" + + "mludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDU0LnRleHQgPSBsYWJlbDE2LlRleHQuVG9Td" + + "HJpbmcgJiAiLCAiICYgbGFiZWwxNy5UZXh0LlRvU3RyaW5nICYgIiwgIiAmIGxhYmVsMTguVGV4dC5Ub" + + "1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZUNlbGwxMjBfQmVmb3JlUHJpbnQoQnlWY" + + "Wwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5Qcmlud" + + "EV2ZW50QXJncykNCnRhYmxlQ2VsbDEyMC50ZXh0ID0gbGFiZWwxNi5UZXh0LlRvU3RyaW5nICYgIiwgI" + + "iAmIGxhYmVsMTcuVGV4dC5Ub1N0cmluZyAmICIsICIgJiBsYWJlbDE4LlRleHQuVG9TdHJpbmcNCkVuZ" + + "CBTdWINCgEhU0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0SGVhZGVyAQABAAEAAAEPUGFydG5lciBhZ" + + "GF0bGFwAY0CMi4pIEFtZW5ueWliZW4gYSBUZXJtZWzFkSBhIGJpenRvc8OtdMOhcyBtZWdrw7Z0w6lzw" + + "6luZWsgbcOzZGrDoXLDs2wgbmVtIG55aWxhdGtvemlrIGV6ZW4gYXogYWRhdGxhcG9uLCDDumd5IGEgR" + + "nJhbmNpc2thIElucHV0IEtmdC4gYSB0ZXJtZWx0ZXTDqXNpIHN6ZXJ6xZFkw6lzIGFsYXBqw6FuIGvDt" + + "nRpIG1lZyByw6lzesOpcmUgYSBiaXR6b3PDrXTDoXN0IC0gYSB0ZXJtZWx0ZXTDqXMgdGVyaMOpcmUgL" + + "SBhIG1pbmRlbmtvciBoYXTDoWh5b3Mgw4FTWkYgc3plcmludC4="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow23 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell91 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell97 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell100 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell108 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell112 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell115 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell118 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell95 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell102 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell104 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell111 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell113 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell120 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell122 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell129 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell63 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell67 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell69 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell72 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell73 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell76 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell78 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell81 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell82 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell90 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.subreport1}); + this.detailBand1.HeightF = 113.3829F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label15, + this.label10, + this.label9, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3}); + this.pageFooterBand1.HeightF = 88.05878F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label17, + this.label16, + this.label14, + this.label13, + this.label12, + this.label11, + this.table7, + this.table2, + this.table6, + this.table4, + this.table3, + this.table1}); + this.reportHeaderBand1.HeightF = 477.9853F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 23.76741F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label1}); + this.bottomMarginBand1.HeightF = 64.13547F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(2.193053F, 0F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Termék adatlap"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(738.8069F, 110.9722F); + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetAdministrator.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(171.7131F, 48.69041F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(177.1074F, 17.25006F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateSigned", "{0:yyyy.MM.dd.}")}); + this.label15.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(68.33892F, 38.69052F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(103.3742F, 15.83847F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "label15"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(600.9114F, 48.69043F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(118.8802F, 17.25006F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Kalócz Mária"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.label9.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(377.3542F, 48.69043F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(161.5296F, 17.25006F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(600.9114F, 65.94049F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "creditmenedzser"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(429.7501F, 65.94049F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(50.52081F, 15.83854F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "üzletkötő"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(199.6094F, 65.94048F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = " termeltetési ügyintéző "; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(12.49994F, 65.94049F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Aláírás:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(12.60975F, 38.69047F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Dátum:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.Street")}); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(181.3077F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(47.91666F, 16.99907F); + this.label18.Text = "label18"; + this.label18.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(123.7965F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(47.91666F, 16.99907F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(68.33891F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(47.91666F, 16.99907F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Oid")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(47.91666F, 16.99907F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // label13 + // + this.label13.BackColor = System.Drawing.Color.Transparent; + this.label13.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(557.5457F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(128.2458F, 16.42036F); + this.label13.StylePriority.UseBackColor = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "2012. augusztus 27-től"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(498.3903F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(53.86908F, 16.42036F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "Hatályos:"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(325.7275F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "1. számú melléklet"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table7 + // + this.table7.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 423.9852F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow23}); + this.table7.SizeF = new System.Drawing.SizeF(138.1135F, 44.00006F); + this.table7.StylePriority.UseBorders = false; + this.table7.StylePriority.UseTextAlignment = false; + this.table7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(12.49998F, 247.9852F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow11}); + this.table2.SizeF = new System.Drawing.SizeF(138.2233F, 110F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + this.table2.StylePriority.UseTextAlignment = false; + this.table2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table6 + // + this.table6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(150.7232F, 423.9854F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow21, + this.tableRow22}); + this.table6.SizeF = new System.Drawing.SizeF(590.8865F, 44F); + this.table6.StylePriority.UseBorders = false; + this.table6.StylePriority.UseFont = false; + // + // table4 + // + this.table4.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 357.9852F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18, + this.tableRow19, + this.tableRow20}); + this.table4.SizeF = new System.Drawing.SizeF(729F, 66F); + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(150.7232F, 247.9852F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow13, + this.tableRow14, + this.tableRow15, + this.tableRow16, + this.tableRow17}); + this.table3.SizeF = new System.Drawing.SizeF(590.6672F, 110F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseFont = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(12.5F, 22.2074F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2, + this.tableRow3, + this.tableRow4, + this.tableRow5, + this.tableRow6, + this.tableRow7, + this.tableRow8, + this.tableRow9, + this.tableRow10}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 225.7778F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + // + // tableRow23 + // + this.tableRow23.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow23.Name = "tableRow23"; + this.tableRow23.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Multiline = true; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.Text = " Növényvédelmi\r\n szakirányító"; + this.tableCell2.Weight = 3D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell12}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.15840007347659657D; + // + // tableCell12 + // + this.tableCell12.Multiline = true; + this.tableCell12.Name = "tableCell12"; + this.tableCell12.Text = " Tulajdonos/\r\n cégjegyzésre jogosult\r\n vezető"; + this.tableCell12.Weight = 3D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7, + this.tableCell8}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 0.70400014501956665D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell91, + this.tableCell93}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 0.70400014501956654D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.Text = "neve:"; + this.tableCell7.Weight = 0.85269730142943234D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CropProtectionSpecialist.FullName")}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 5.36763979485691D; + // + // tableCell91 + // + this.tableCell91.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell91.Name = "tableCell91"; + this.tableCell91.StylePriority.UseBorders = false; + this.tableCell91.StylePriority.UseTextAlignment = false; + this.tableCell91.Text = "növényvédős igazolvány és kamarai száma:"; + this.tableCell91.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell91.Weight = 2.5580919928918879D; + // + // tableCell93 + // + this.tableCell93.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CropProtectionSpecialist.CropProtectionRegistrationNumber")}); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseBorders = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell93.Weight = 3.6622451033944543D; + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell9}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 0.70400014501956665D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell97, + this.tableCell15, + this.tableCell100}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 0.70400014501956654D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell108, + this.tableCell13, + this.tableCell11, + this.tableCell14, + this.tableCell112, + this.tableCell115, + this.tableCell118}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 0.70400014501956676D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = " MVH reg. száma:"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell4.Weight = 1.2508391872937483D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.MVHRegistrationNumber")}); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 5.3514249633830069D; + // + // tableCell97 + // + this.tableCell97.Multiline = true; + this.tableCell97.Name = "tableCell97"; + this.tableCell97.StylePriority.UseTextAlignment = false; + this.tableCell97.Text = " Őstermelői / vállalkozói ig."; + this.tableCell97.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell97.Weight = 1.2508390491009418D; + // + // tableCell15 + // + this.tableCell15.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FarmerCardNumber")}); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 2.6757125507879067D; + // + // tableCell100 + // + this.tableCell100.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell100.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.BusinessCardNumber")}); + this.tableCell100.Name = "tableCell100"; + this.tableCell100.StylePriority.UseBorders = false; + this.tableCell100.StylePriority.UseTextAlignment = false; + this.tableCell100.Text = "tableCell100"; + this.tableCell100.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell100.Weight = 2.6757125507879067D; + // + // tableCell108 + // + this.tableCell108.Name = "tableCell108"; + this.tableCell108.StylePriority.UseTextAlignment = false; + this.tableCell108.Text = " Tel./Fax száma:"; + this.tableCell108.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell108.Weight = 1.2508390491009418D; + // + // tableCell13 + // + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = " Tel.:"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell13.Weight = 0.27798529862987276D; + // + // tableCell11 + // + this.tableCell11.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.HomeTelephoneNumber")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 1.4045228317506497D; + // + // tableCell14 + // + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = " Fax:"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell14.Weight = 0.26465522050541118D; + // + // tableCell112 + // + this.tableCell112.BackColor = System.Drawing.Color.Transparent; + this.tableCell112.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell112.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.HomeFaxNumber")}); + this.tableCell112.Name = "tableCell112"; + this.tableCell112.StylePriority.UseBackColor = false; + this.tableCell112.StylePriority.UseBorders = false; + this.tableCell112.StylePriority.UseTextAlignment = false; + this.tableCell112.Text = "tableCell112"; + this.tableCell112.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell112.Weight = 1.3062873696378718D; + // + // tableCell115 + // + this.tableCell115.Name = "tableCell115"; + this.tableCell115.StylePriority.UseTextAlignment = false; + this.tableCell115.Text = " Mobil:"; + this.tableCell115.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell115.Weight = 0.43197221017887877D; + // + // tableCell118 + // + this.tableCell118.BackColor = System.Drawing.Color.Transparent; + this.tableCell118.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell118.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.MobileTelephoneNumber")}); + this.tableCell118.Name = "tableCell118"; + this.tableCell118.StylePriority.UseBackColor = false; + this.tableCell118.StylePriority.UseBorders = false; + this.tableCell118.StylePriority.UseTextAlignment = false; + this.tableCell118.Text = "tableCell118"; + this.tableCell118.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell118.Weight = 1.6660021708731287D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5, + this.tableCell6}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 0.70400014501956676D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell95, + this.tableCell102}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 0.70400014501956665D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell104, + this.tableCell3, + this.tableCell111}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 0.70400014501956654D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell113, + this.tableCell120}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 0.70400014501956676D; + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell122, + this.tableCell129}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.70400014501956643D; + // + // tableCell5 + // + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "neve:"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell5.Weight = 2.074550427887115D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 4.525264066033305D; + // + // tableCell95 + // + this.tableCell95.Name = "tableCell95"; + this.tableCell95.StylePriority.UseTextAlignment = false; + this.tableCell95.Text = "anya neve:"; + this.tableCell95.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell95.Weight = 2.074550427887115D; + // + // tableCell102 + // + this.tableCell102.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell102.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.MotherName")}); + this.tableCell102.Name = "tableCell102"; + this.tableCell102.StylePriority.UseBorders = false; + this.tableCell102.StylePriority.UseTextAlignment = false; + this.tableCell102.Text = "tableCell102"; + this.tableCell102.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell102.Weight = 4.5252640660333059D; + // + // tableCell104 + // + this.tableCell104.Name = "tableCell104"; + this.tableCell104.StylePriority.UseTextAlignment = false; + this.tableCell104.Text = "születési hely, idő:"; + this.tableCell104.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell104.Weight = 2.0745504924893576D; + // + // tableCell3 + // + this.tableCell3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.BirthAddress.City")}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 2.2626320007155316D; + // + // tableCell111 + // + this.tableCell111.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell111.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.BirthDate", "{0:yyyy.MM.dd.}")}); + this.tableCell111.Name = "tableCell111"; + this.tableCell111.StylePriority.UseBorders = false; + this.tableCell111.StylePriority.UseTextAlignment = false; + this.tableCell111.Text = "tableCell111"; + this.tableCell111.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell111.Weight = 2.2626320007155316D; + // + // tableCell113 + // + this.tableCell113.Name = "tableCell113"; + this.tableCell113.StylePriority.UseTextAlignment = false; + this.tableCell113.Text = "lakcíme:"; + this.tableCell113.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell113.Weight = 2.0745504924893576D; + // + // tableCell120 + // + this.tableCell120.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell120.Name = "tableCell120"; + this.tableCell120.Scripts.OnBeforePrint = "tableCell120_BeforePrint"; + this.tableCell120.StylePriority.UseBorders = false; + this.tableCell120.StylePriority.UseTextAlignment = false; + this.tableCell120.Text = "tableCell120"; + this.tableCell120.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell120.Weight = 4.5252640014310632D; + // + // tableCell122 + // + this.tableCell122.Name = "tableCell122"; + this.tableCell122.StylePriority.UseTextAlignment = false; + this.tableCell122.Text = "e-mail címe:"; + this.tableCell122.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell122.Weight = 2.0745504924893576D; + // + // tableCell129 + // + this.tableCell129.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell129.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Email")}); + this.tableCell129.Name = "tableCell129"; + this.tableCell129.StylePriority.UseBorders = false; + this.tableCell129.StylePriority.UseTextAlignment = false; + this.tableCell129.Text = "tableCell129"; + this.tableCell129.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell129.Weight = 4.5252640014310632D; + // + // tableRow1 + // + this.tableRow1.BackColor = System.Drawing.Color.Gainsboro; + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.StylePriority.UseBackColor = false; + this.tableRow1.StylePriority.UseTextAlignment = false; + this.tableRow1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableRow1.Weight = 0.88888885498046877D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell10, + this.tableCell16, + this.tableCell17, + this.tableCell18}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 0.70400014501956676D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell27}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 0.70400014501956676D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell22}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 0.70400014501956665D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell37, + this.tableCell45}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.70400014501956665D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell54}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.70400014501956643D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell55, + this.tableCell58, + this.tableCell60, + this.tableCell63}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.70400014501956676D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64, + this.tableCell67, + this.tableCell69, + this.tableCell72}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.70400014501956676D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell73, + this.tableCell76, + this.tableCell78, + this.tableCell81}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.70400014501956676D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell82, + this.tableCell90}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.70400014501956654D; + // + // tableCell1 + // + this.tableCell1.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell1.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBackColor = false; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Partner adatlap"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 6.6022641506767545D; + // + // tableCell10 + // + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = " Üzletkötő:"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell10.Weight = 1.2508394636793616D; + // + // tableCell16 + // + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 3.3681622230862955D; + // + // tableCell17 + // + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "Azonosító:"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.80612561493552937D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.CustomerNumber")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 1.1771368489755676D; + // + // tableCell19 + // + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = " Partner neve:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 1.2508394636793616D; + // + // tableCell27 + // + this.tableCell27.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseBorders = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 5.3514246869973929D; + // + // tableCell28 + // + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = " Címe:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 1.2508394636793616D; + // + // tableCell22 + // + this.tableCell22.Name = "tableCell22"; + this.tableCell22.Scripts.OnBeforePrint = "tableCell22_BeforePrint"; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 5.351424686997392D; + // + // tableCell37 + // + this.tableCell37.Name = "tableCell37"; + this.tableCell37.StylePriority.UseTextAlignment = false; + this.tableCell37.Text = " Postacíme:"; + this.tableCell37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell37.Weight = 1.2508394636793616D; + // + // tableCell45 + // + this.tableCell45.BackColor = System.Drawing.Color.Transparent; + this.tableCell45.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell45.CanGrow = false; + this.tableCell45.Name = "tableCell45"; + this.tableCell45.Scripts.OnBeforePrint = "tableCell45_BeforePrint"; + this.tableCell45.StylePriority.UseBackColor = false; + this.tableCell45.StylePriority.UseBorders = false; + this.tableCell45.StylePriority.UseTextAlignment = false; + this.tableCell45.Text = "tableCell45"; + this.tableCell45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell45.Weight = 5.3514246869973929D; + this.tableCell45.WordWrap = false; + // + // tableCell46 + // + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = " Telephelye:"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell46.Weight = 1.2508394636793616D; + // + // tableCell54 + // + this.tableCell54.BackColor = System.Drawing.Color.Transparent; + this.tableCell54.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.Scripts.OnBeforePrint = "tableCell54_BeforePrint"; + this.tableCell54.StylePriority.UseBackColor = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "tableCell54"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell54.Weight = 5.3514246869973929D; + // + // tableCell55 + // + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseTextAlignment = false; + this.tableCell55.Text = " Adószáma:"; + this.tableCell55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell55.Weight = 1.2508394636793616D; + // + // tableCell58 + // + this.tableCell58.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.VATNumber")}); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "tableCell58"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell58.Weight = 1.6835001475477052D; + // + // tableCell60 + // + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Adóazonosító jele:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell60.Weight = 1.4671698258505144D; + // + // tableCell63 + // + this.tableCell63.BackColor = System.Drawing.Color.Transparent; + this.tableCell63.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.PrivateVATNumber")}); + this.tableCell63.Name = "tableCell63"; + this.tableCell63.StylePriority.UseBackColor = false; + this.tableCell63.StylePriority.UseBorders = false; + this.tableCell63.StylePriority.UseTextAlignment = false; + this.tableCell63.Text = "tableCell63"; + this.tableCell63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell63.Weight = 2.2007547135991734D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = " Számlavezető bank neve:"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 1.2508394636793616D; + // + // tableCell67 + // + this.tableCell67.BackColor = System.Drawing.Color.Transparent; + this.tableCell67.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.CustomerBankAccounts.ShortName")}); + this.tableCell67.Name = "tableCell67"; + this.tableCell67.StylePriority.UseBackColor = false; + this.tableCell67.StylePriority.UseTextAlignment = false; + this.tableCell67.Text = "tableCell67"; + this.tableCell67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell67.Weight = 1.6835001475477052D; + // + // tableCell69 + // + this.tableCell69.Name = "tableCell69"; + this.tableCell69.StylePriority.UseTextAlignment = false; + this.tableCell69.Text = "Bankszámla száma:"; + this.tableCell69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell69.Weight = 1.4671698258505144D; + // + // tableCell72 + // + this.tableCell72.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.CustomerBankAccounts.AccountNumber")}); + this.tableCell72.Name = "tableCell72"; + this.tableCell72.StylePriority.UseBorders = false; + this.tableCell72.StylePriority.UseTextAlignment = false; + this.tableCell72.Text = "tableCell72"; + this.tableCell72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell72.Weight = 2.2007547135991734D; + // + // tableCell73 + // + this.tableCell73.Name = "tableCell73"; + this.tableCell73.StylePriority.UseTextAlignment = false; + this.tableCell73.Text = " Cégjegyzékszáma:"; + this.tableCell73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell73.Weight = 1.2508394636793616D; + // + // tableCell76 + // + this.tableCell76.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.CompanyRegistrationNumber")}); + this.tableCell76.Name = "tableCell76"; + this.tableCell76.StylePriority.UseTextAlignment = false; + this.tableCell76.Text = "tableCell76"; + this.tableCell76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell76.Weight = 1.6835001475477052D; + // + // tableCell78 + // + this.tableCell78.Name = "tableCell78"; + this.tableCell78.StylePriority.UseTextAlignment = false; + this.tableCell78.Text = "TAJ száma:"; + this.tableCell78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell78.Weight = 1.4671698258505144D; + // + // tableCell81 + // + this.tableCell81.BackColor = System.Drawing.Color.Transparent; + this.tableCell81.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell81.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Contacts.TAJNumber")}); + this.tableCell81.Name = "tableCell81"; + this.tableCell81.StylePriority.UseBackColor = false; + this.tableCell81.StylePriority.UseBorders = false; + this.tableCell81.StylePriority.UseTextAlignment = false; + this.tableCell81.Text = "tableCell81"; + this.tableCell81.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell81.Weight = 2.2007547135991734D; + // + // tableCell82 + // + this.tableCell82.Name = "tableCell82"; + this.tableCell82.StylePriority.UseTextAlignment = false; + this.tableCell82.Text = " Kapcsolattartó neve:"; + this.tableCell82.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell82.Weight = 1.2508394636793616D; + // + // tableCell90 + // + this.tableCell90.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell90.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Contacts.FullName")}); + this.tableCell90.Name = "tableCell90"; + this.tableCell90.StylePriority.UseBorders = false; + this.tableCell90.StylePriority.UseTextAlignment = false; + this.tableCell90.Text = "tableCell90"; + this.tableCell90.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell90.Weight = 5.3514246869973929D; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial Narrow", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(12.49997F, 26.48957F); + this.label2.Multiline = true; + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(729F, 29.51042F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = resources.GetString("label2.Text"); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial Narrow", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(12.60972F, 9.99999F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(728.9999F, 16.48959F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "1.) A termelő részére járó támogatások fogadásához megadott bankszámlaszámokat ké" + + "rjük feltüntettni."; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Page1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Partner adatlap"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(49, 50, 24, 64); + this.Name = "Page1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_1.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_1.repx new file mode 100644 index 0000000..228c9bf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_1.repx @@ -0,0 +1,269 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class I_kategoria : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public I_kategoria() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAoAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgCbAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAnQAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAQAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAEQEAAAEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBcVtTdG9yYWdlT3V0Um93c0luUm93cy5TdG9yYWdlSW5Sb3dzLlByb2R1Y3RzLkFEUlBhY2tpbmdVbml0XSA9ICMjRW51bSNTSVNCdXNpbmVzcy5Nb2R1bGUuZUFEUlBhY2tpbmdVbml0LGVVbml0X0kjAQABcVtTdG9yYWdlT3V0Um93c0luUm93cy5TdG9yYWdlSW5Sb3dzLlByb2R1Y3RzLkFEUlBhY2tpbmdVbml0XSA9ICMjRW51bSNTSVNCdXNpbmVzcy5Nb2R1bGUuZUFEUlBhY2tpbmdVbml0LGVVbml0X0kjAAEyU3rDoWxsw610w7NsZXbDqWwgLSBraW1lbsWRIC0gRnJpbnB1dCAtIGFscmlwb3J0XzE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.ReportFooter.HeightF = 25F; + this.ReportFooter.Name = "ReportFooter"; + // + // table1 + // + this.table1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(4.768372E-06F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(300F, 25F); + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = " 1. szállítási kategória ="; + this.tableCell1.Weight = 1.3541665649414063D; + // + // tableCell3 + // + this.tableCell3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ADRNumber")}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell3.Summary = summary1; + this.tableCell3.Text = "tableCell7"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.82291671752929685D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "ADR pont"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.82291671752929685D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // I_kategoria + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.DisplayName = "Szállítólevél - kimenő - Frinput - alriport_1"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[StorageOutRowsInRows.StorageInRows.Products.ADRPackingUnit] = ##Enum#SISBusiness" + + ".Module.eADRPackingUnit,eUnit_I#"; + this.Margins = new System.Drawing.Printing.Margins(0, 0, 0, 0); + this.Name = "I_kategoria"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_2.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_2.repx new file mode 100644 index 0000000..e4bc750 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_2.repx @@ -0,0 +1,269 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class II_kategoria : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public II_kategoria() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAoAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgCcAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAngAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQASAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAEwEAAAEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBcltTdG9yYWdlT3V0Um93c0luUm93cy5TdG9yYWdlSW5Sb3dzLlByb2R1Y3RzLkFEUlBhY2tpbmdVbml0XSA9ICMjRW51bSNTSVNCdXNpbmVzcy5Nb2R1bGUuZUFEUlBhY2tpbmdVbml0LGVVbml0X0lJIwEAAXJbU3RvcmFnZU91dFJvd3NJblJvd3MuU3RvcmFnZUluUm93cy5Qcm9kdWN0cy5BRFJQYWNraW5nVW5pdF0gPSAjI0VudW0jU0lTQnVzaW5lc3MuTW9kdWxlLmVBRFJQYWNraW5nVW5pdCxlVW5pdF9JSSMAATJTesOhbGzDrXTDs2xldsOpbCAtIGtpbWVuxZEgLSBGcmlucHV0IC0gYWxyaXBvcnRfMg=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5}); + this.ReportFooter.HeightF = 25F; + this.ReportFooter.Name = "ReportFooter"; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table5.SizeF = new System.Drawing.SizeF(300F, 25F); + this.table5.StylePriority.UseFont = false; + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2, + this.tableCell7, + this.tableCell35}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = " 2. szállítási kategória ="; + this.tableCell2.Weight = 1.3541665649414063D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ADRNumber")}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell7.Summary = summary1; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.82291671752929685D; + // + // tableCell35 + // + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "ADR pont"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell35.Weight = 0.82291671752929685D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // II_kategoria + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.DisplayName = "Szállítólevél - kimenő - Frinput - alriport_2"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[StorageOutRowsInRows.StorageInRows.Products.ADRPackingUnit] = ##Enum#SISBusiness" + + ".Module.eADRPackingUnit,eUnit_II#"; + this.Margins = new System.Drawing.Printing.Margins(0, 0, 0, 0); + this.Name = "II_kategoria"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_3.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_3.repx new file mode 100644 index 0000000..7fe5fbf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput - alriport_3.repx @@ -0,0 +1,269 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class III_kategoria : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public III_kategoria() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAoAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgCdAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAnwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAUAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAFQEAAAEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBc1tTdG9yYWdlT3V0Um93c0luUm93cy5TdG9yYWdlSW5Sb3dzLlByb2R1Y3RzLkFEUlBhY2tpbmdVbml0XSA9ICMjRW51bSNTSVNCdXNpbmVzcy5Nb2R1bGUuZUFEUlBhY2tpbmdVbml0LGVVbml0X0lJSSMBAAFzW1N0b3JhZ2VPdXRSb3dzSW5Sb3dzLlN0b3JhZ2VJblJvd3MuUHJvZHVjdHMuQURSUGFja2luZ1VuaXRdID0gIyNFbnVtI1NJU0J1c2luZXNzLk1vZHVsZS5lQURSUGFja2luZ1VuaXQsZVVuaXRfSUlJIwABMlN6w6FsbMOtdMOzbGV2w6lsIC0ga2ltZW7FkSAtIEZyaW5wdXQgLSBhbHJpcG9ydF8z"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5}); + this.ReportFooter.HeightF = 25F; + this.ReportFooter.Name = "ReportFooter"; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table5.SizeF = new System.Drawing.SizeF(300F, 25F); + this.table5.StylePriority.UseFont = false; + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2, + this.tableCell7, + this.tableCell35}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = " 3. szállítási kategória ="; + this.tableCell2.Weight = 1.3541665649414063D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ADRNumber")}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell7.Summary = summary1; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.82291671752929685D; + // + // tableCell35 + // + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "ADR pont"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell35.Weight = 0.82291671752929685D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // III_kategoria + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.DisplayName = "Szállítólevél - kimenő - Frinput - alriport_3"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[StorageOutRowsInRows.StorageInRows.Products.ADRPackingUnit] = ##Enum#SISBusiness" + + ".Module.eADRPackingUnit,eUnit_III#"; + this.Margins = new System.Drawing.Printing.Margins(0, 0, 0, 0); + this.Name = "III_kategoria"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput.repx new file mode 100644 index 0000000..dc97791 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Szállítólevél - kimenő - Frinput.repx @@ -0,0 +1,1278 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRSubreport I_kategoria_alriport; + private DevExpress.XtraReports.UI.XRSubreport III_kategoria_alriport; + private DevExpress.XtraReports.UI.XRSubreport II_kategoria_alriport; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell39; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTableCell tableCell40; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAogQAAAxGAGkAbAB0AGUAcgDKBAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgDMBAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAzgQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDQBAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUA0QQAAAGfCQ0KUHJpdmF0ZSBTdWIgbGFiZWw4X0JlZm9yZVByaW50K" + + "EJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuU" + + "HJpbnRFdmVudEFyZ3MpDQpsYWJlbDgudGV4dCA9IGxhYmVsNS50ZXh0LlRvU3RyaW5nICYgIiAgIiAmI" + + "GxhYmVsNi50ZXh0LlRvU3RyaW5nICYgIiwgICIgJiBsYWJlbDcudGV4dC5Ub1N0cmluZw0KRW5kIFN1Y" + + "g0KDQpQcml2YXRlIFN1YiBsYWJlbDI3X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsI" + + "EJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpsYWJlbDI3L" + + "nRleHQgPSBsYWJlbDI4LnRleHQuVG9TdHJpbmcgJiAiICAiICYgbGFiZWwyOS50ZXh0LlRvU3RyaW5nI" + + "CYgIiwgICIgJiBsYWJlbDMwLnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KDQpQcml2YXRlIFN1YiBJX" + + "2thdGVnb3JpYV9hbHJpcG9ydF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhb" + + "CBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KDQpDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nID0iRGVsaXZlcnlOb3RlT3V0S" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMy5UZXh0LlRvU3RyaW5nICYgIiciIA0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiBJSV9rYXRlZ29yaWFfYWxyaXBvcnRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9ia" + + "mVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUe" + + "XBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmcgPSJEZWxpdmVye" + + "U5vdGVPdXRIZWFkZXIuT2lkPSciICYgbGFiZWwzLlRleHQuVG9TdHJpbmcgJiAiJyIgDQpFbmQgU3ViD" + + "QoNClByaXZhdGUgU3ViIElJSV9rYXRlZ29yaWFfYWxyaXBvcnRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZ" + + "GVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50Q" + + "XJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmcgP" + + "SJEZWxpdmVyeU5vdGVPdXRIZWFkZXIuT2lkPSciICYgbGFiZWwzLlRleHQuVG9TdHJpbmcgJiAiJyIgD" + + "QpFbmQgU3ViDQoBJlNJU0J1c2luZXNzLk1vZHVsZS5EZWxpdmVyeU5vdGVPdXRSb3dzAQABAAEAAAElU" + + "3rDoWxsw610w7NsZXbDqWwgLSBraW1lbsWRIC0gRnJpbnB1dA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.I_kategoria_alriport = new DevExpress.XtraReports.UI.XRSubreport(); + this.III_kategoria_alriport = new DevExpress.XtraReports.UI.XRSubreport(); + this.II_kategoria_alriport = new DevExpress.XtraReports.UI.XRSubreport(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell39 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell40 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 27.29168F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 26F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.bottomMarginBand1.HeightF = 27F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line4, + this.table4, + this.table3, + this.label27, + this.label31, + this.label28, + this.label29, + this.label30, + this.label21, + this.line3, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label15, + this.table1, + this.pageInfo1, + this.pageInfo2, + this.label1}); + this.PageHeader.HeightF = 282.8349F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseBorderDashStyle = false; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.I_kategoria_alriport, + this.III_kategoria_alriport, + this.II_kategoria_alriport, + this.label3, + this.table7, + this.line5, + this.table6, + this.line6, + this.table8}); + this.PageFooter.HeightF = 247.2222F; + this.PageFooter.Name = "PageFooter"; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ADRPackingUnit")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(718.0415F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(25F, 20.00001F); + this.label2.Text = "label2"; + this.label2.Visible = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 7.29167F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(766.9997F, 20.00001F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell10, + this.tableCell5, + this.tableCell11, + this.tableCell12, + this.tableCell13, + this.tableCell8, + this.tableCell15, + this.tableCell16, + this.tableCell9}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell10 + // + this.tableCell10.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell10.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell10.BorderWidth = 1; + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorderDashStyle = false; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseBorderWidth = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.21512400446806168D; + // + // tableCell5 + // + this.tableCell5.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell5.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell5.BorderWidth = 1; + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductNumber")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorderDashStyle = false; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseBorderWidth = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.397045089560573D; + // + // tableCell11 + // + this.tableCell11.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell11.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell11.BorderWidth = 1; + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ShortName")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorderDashStyle = false; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseBorderWidth = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell11.Weight = 0.91838816512729893D; + // + // tableCell12 + // + this.tableCell12.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell12.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell12.BorderWidth = 1; + this.tableCell12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorderDashStyle = false; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseBorderWidth = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "tableCell12"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell12.Weight = 0.28357259203679491D; + // + // tableCell13 + // + this.tableCell13.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell13.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell13.BorderWidth = 1; + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorderDashStyle = false; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseBorderWidth = false; + this.tableCell13.Text = " "; + this.tableCell13.Weight = 0.011659191647522542D; + // + // tableCell8 + // + this.tableCell8.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell8.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell8.BorderWidth = 1; + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.Units.ShortName")}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorderDashStyle = false; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseBorderWidth = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell8.Weight = 0.17421095715974896D; + // + // tableCell15 + // + this.tableCell15.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell15.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell15.BorderWidth = 1; + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.PacketNumber")}); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorderDashStyle = false; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseBorderWidth = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 0.36177918904059619D; + // + // tableCell16 + // + this.tableCell16.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell16.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell16.BorderWidth = 1; + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Weight", "{0:n}")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorderDashStyle = false; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseBorderWidth = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.31911040547970193D; + // + // tableCell9 + // + this.tableCell9.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell9.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell9.BorderWidth = 1; + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ADRNumber", "{0:n}")}); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderDashStyle = false; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseBorderWidth = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.31911040547970193D; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(10.0001F, 235.067F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(746.9999F, 11.65675F); + // + // table4 + // + this.table4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table4.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table4.BorderWidth = 1; + this.table4.Font = new System.Drawing.Font("Arial", 9F); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(10.00027F, 210.067F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table4.SizeF = new System.Drawing.SizeF(746.9995F, 25F); + this.table4.StylePriority.UseBorderDashStyle = false; + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseBorderWidth = false; + this.table4.StylePriority.UseFont = false; + this.table4.StylePriority.UseTextAlignment = false; + this.table4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.BorderWidth = 1; + this.table3.Font = new System.Drawing.Font("Arial", 9F); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0.0003390842F, 257.8349F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(766.9996F, 25F); + this.table3.StylePriority.UseBorderDashStyle = false; + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseBorderWidth = false; + this.table3.StylePriority.UseFont = false; + this.table3.StylePriority.UseTextAlignment = false; + this.table3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(431.118F, 124.5124F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.Scripts.OnBeforePrint = "label27_BeforePrint"; + this.label27.SizeF = new System.Drawing.SizeF(325.8817F, 38.23122F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "beillesztve"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.FullName")}); + this.label31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(431.1184F, 104.5124F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(325.8813F, 20.00001F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "label31"; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.ZipPostal")}); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(484.368F, 78.33923F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(64.58334F, 23.00002F); + this.label28.Text = "label28"; + this.label28.Visible = false; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.City")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(548.9514F, 78.33923F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(64.58337F, 22.99998F); + this.label29.Text = "label29"; + this.label29.Visible = false; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.Street")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(613.5347F, 78.33923F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(64.58337F, 22.99998F); + this.label30.Text = "label30"; + this.label30.Visible = false; + // + // label21 + // + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(431.118F, 78.33927F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(35.67532F, 12.58331F); + this.label21.Text = "Vevő:"; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(10.00027F, 173.4103F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(746.9999F, 11.65675F); + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(9.999956F, 124.5124F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.Scripts.OnBeforePrint = "label8_BeforePrint"; + this.label8.SizeF = new System.Drawing.SizeF(298.5946F, 38.23122F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "beillesztve"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.Street")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(221.0946F, 78.33929F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(64.58337F, 22.99998F); + this.label7.Text = "label7"; + this.label7.Visible = false; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.City")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(156.5112F, 78.33927F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(64.58337F, 22.99998F); + this.label6.Text = "label6"; + this.label6.Visible = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(91.92793F, 78.33923F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(64.58334F, 23.00002F); + this.label5.Text = "label5"; + this.label5.Visible = false; + // + // label4 + // + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(9.999984F, 78.33928F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(52.78842F, 12.58331F); + this.label4.Text = "Szállító:"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.DisplayName")}); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(9.999956F, 104.5124F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(298.5945F, 20.00001F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.Font = new System.Drawing.Font("Arial", 9F); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(10.00027F, 185.067F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(746.9999F, 25F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy.MM.dd.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}/{1}. oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 33.00002F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.label1.BorderWidth = 1; + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(767F, 58.41666F); + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseBorderWidth = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Szállítólevél - kiszállítás"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27, + this.tableCell29}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableCell26 + // + this.tableCell26.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBorders = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "tableCell26"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell26.Weight = 1.5138902306297852D; + // + // tableCell27 + // + this.tableCell27.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.ObjectCreated", "{0:yyyy.MM.dd.}")}); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseBorders = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell27.Weight = 1.5138895132214552D; + // + // tableCell29 + // + this.tableCell29.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DocumentNumber")}); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseBorders = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell29.Weight = 1.513887126265947D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell18, + this.tableCell19, + this.tableCell20, + this.tableCell21, + this.tableCell22, + this.tableCell23}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell17 + // + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "Sorszám"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.32567369253076384D; + // + // tableCell18 + // + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = " Cikkszám"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 0.60108320754082867D; + // + // tableCell19 + // + this.tableCell19.Name = "tableCell19"; + this.tableCell19.Text = " Megnevezés"; + this.tableCell19.Weight = 1.3903364293854992D; + // + // tableCell20 + // + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseTextAlignment = false; + this.tableCell20.Text = "Mennyiség"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell20.Weight = 0.71290363775304821D; + // + // tableCell21 + // + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "Fémzárszám"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell21.Weight = 0.54547338432507009D; + // + // tableCell22 + // + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Súly"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell22.Weight = 0.48309825929098871D; + // + // tableCell23 + // + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "ADR szám"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell23.Weight = 0.48309825929098871D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3, + this.tableCell4, + this.tableCell14}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Teljesítés:"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell3.Weight = 1.5138891087165789D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell4.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Száll.levél kelte:"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell4.Weight = 1.5138890443139428D; + // + // tableCell14 + // + this.tableCell14.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell14.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseBorders = false; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Bizonylatszám:"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell14.Weight = 1.5138887170866657D; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.IsStorno")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(331.7918F, 27.19444F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(52.58313F, 22.99999F); + this.label9.Text = "label9"; + this.label9.Visible = false; + // + // I_kategoria_alriport + // + this.I_kategoria_alriport.LocationFloat = new DevExpress.Utils.PointFloat(10.00023F, 0.1944224F); + this.I_kategoria_alriport.Name = "I_kategoria_alriport"; + this.I_kategoria_alriport.ReportSourceUrl = "Szállítólevél - kimenő - Frinput - alriport_1"; + this.I_kategoria_alriport.Scripts.OnBeforePrint = "I_kategoria_alriport_BeforePrint"; + this.I_kategoria_alriport.SizeF = new System.Drawing.SizeF(310.3333F, 25F); + // + // III_kategoria_alriport + // + this.III_kategoria_alriport.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 50.19442F); + this.III_kategoria_alriport.Name = "III_kategoria_alriport"; + this.III_kategoria_alriport.ReportSourceUrl = "Szállítólevél - kimenő - Frinput - alriport_3"; + this.III_kategoria_alriport.Scripts.OnBeforePrint = "III_kategoria_alriport_BeforePrint"; + this.III_kategoria_alriport.SizeF = new System.Drawing.SizeF(310.3333F, 25.00001F); + // + // II_kategoria_alriport + // + this.II_kategoria_alriport.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 25.19442F); + this.II_kategoria_alriport.Name = "II_kategoria_alriport"; + this.II_kategoria_alriport.ReportSourceUrl = "Szállítólevél - kimenő - Frinput - alriport_2"; + this.II_kategoria_alriport.Scripts.OnBeforePrint = "II_kategoria_alriport_BeforePrint"; + this.II_kategoria_alriport.SizeF = new System.Drawing.SizeF(310.3333F, 25F); + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Oid")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(329.7169F, 0.1944224F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(52.58313F, 22.99999F); + this.label3.Text = "label3"; + this.label3.Visible = false; + // + // table7 + // + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(9.999931F, 178.7554F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow10}); + this.table7.SizeF = new System.Drawing.SizeF(745.7994F, 58.46684F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(10.00023F, 120.4166F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(746.9999F, 11.65675F); + // + // table6 + // + this.table6.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table6.BorderWidth = 1; + this.table6.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(10.00023F, 132.0733F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow9}); + this.table6.SizeF = new System.Drawing.SizeF(746.9993F, 25F); + this.table6.StylePriority.UseBorders = false; + this.table6.StylePriority.UseBorderWidth = false; + this.table6.StylePriority.UseFont = false; + this.table6.StylePriority.UseTextAlignment = false; + this.table6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(10.00023F, 157.0735F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(746.9999F, 11.65675F); + // + // table8 + // + this.table8.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(392.5125F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow11, + this.tableRow14}); + this.table8.SizeF = new System.Drawing.SizeF(364.4871F, 100F); + this.table8.StylePriority.UseFont = false; + this.table8.StylePriority.UseTextAlignment = false; + this.table8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell44, + this.tableCell45, + this.tableCell47, + this.tableCell46}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 2.3386737060546876D; + // + // tableCell44 + // + this.tableCell44.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell44.BorderWidth = 1; + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseBorders = false; + this.tableCell44.StylePriority.UseBorderWidth = false; + this.tableCell44.Text = "Kiálító:"; + this.tableCell44.Weight = 0.746380628058614D; + // + // tableCell45 + // + this.tableCell45.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell45.BorderWidth = 1; + this.tableCell45.Name = "tableCell45"; + this.tableCell45.StylePriority.UseBorders = false; + this.tableCell45.StylePriority.UseBorderWidth = false; + this.tableCell45.Text = "Átvevő:"; + this.tableCell45.Weight = 0.75120734389825572D; + // + // tableCell47 + // + this.tableCell47.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell47.BorderWidth = 1; + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseBorderWidth = false; + this.tableCell47.Text = "Dátum:"; + this.tableCell47.Weight = 0.46069127972438068D; + // + // tableCell46 + // + this.tableCell46.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell46.BorderWidth = 1; + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseBorderWidth = false; + this.tableCell46.Text = "Átvételi feljegyzések:"; + this.tableCell46.Weight = 1.0417207483187494D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell39, + this.tableCell43, + this.tableCell40, + this.tableCell42, + this.tableCell41}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1D; + // + // tableCell39 + // + this.tableCell39.Name = "tableCell39"; + this.tableCell39.Text = "Bruttó tömeg :"; + this.tableCell39.Weight = 0.75000069451043427D; + // + // tableCell43 + // + this.tableCell43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Weight")}); + this.tableCell43.Name = "tableCell43"; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Page; + this.tableCell43.Summary = summary1; + this.tableCell43.Text = "tableCell43"; + this.tableCell43.Weight = 0.54233622238779711D; + // + // tableCell40 + // + this.tableCell40.Name = "tableCell40"; + this.tableCell40.Text = "to"; + this.tableCell40.Weight = 0.20766447212263714D; + // + // tableCell42 + // + this.tableCell42.Name = "tableCell42"; + this.tableCell42.Text = "ADR pontérték :"; + this.tableCell42.Weight = 0.75000065365687929D; + // + // tableCell41 + // + this.tableCell41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ADRNumber")}); + this.tableCell41.Name = "tableCell41"; + summary2.FormatString = "{0:n}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Page; + this.tableCell41.Summary = summary2; + this.tableCell41.Text = "tableCell41"; + this.tableCell41.Weight = 0.74999795732225216D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell48, + this.tableCell49}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.5277776961856353D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 3.4722242874572453D; + // + // tableCell48 + // + this.tableCell48.Name = "tableCell48"; + this.tableCell48.Text = "Megjegyzés:"; + this.tableCell48.Weight = 0.62126467358849291D; + // + // tableCell49 + // + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell49.Weight = 2.378735326411507D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Note")}); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell57.Weight = 3D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.PageFooter}); + this.BorderWidth = 2; + this.DisplayName = "Szállítólevél - kimenő - Frinput"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.Margins = new System.Drawing.Printing.Margins(30, 30, 26, 27); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - bevont -alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - bevont -alriport.repx new file mode 100644 index 0000000..ff028b0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - bevont -alriport.repx @@ -0,0 +1,362 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class PageBelow1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public PageBelow1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAqAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgA9AAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAPwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBSAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAUwAAAAEoU0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0QnlUZXJyaXRvcmlhbAERW0ludm9sdmVkXSA9IFRydWUBAAERW0ludm9sdmVkXSA9IFRydWUAATlUZXJtZWx0ZXTDqXMgdGVyw7xsZXRlaSDDqXMgdGVybcOpbnllayAtIGJldm9udCAtYWxyaXBvcnQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3, + this.label1}); + this.detailBand1.HeightF = 24F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.Scripts.OnBeforePrint = "detailBand1_BeforePrint"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table3.SizeF = new System.Drawing.SizeF(728.9999F, 24F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseFont = false; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Involved")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(680.1274F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 13.54835F); + this.label1.Text = "label1"; + this.label1.Visible = false; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell16, + this.tableCell22, + this.tableCell21, + this.tableCell17, + this.tableCell24, + this.tableCell25, + this.tableCell13}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 0.96000036621107721D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.20130804947782355D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "City")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.71742591232024422D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LotNumber")}); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell22.Weight = 0.43209921699088938D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BlockNumber")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell21.Weight = 0.43209844759772492D; + // + // tableCell17 + // + this.tableCell17.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Area", "{0:n}")}); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.1766053883531912D; + // + // tableCell24 + // + this.tableCell24.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell24.Weight = 0.42398154430804452D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OwnerState")}); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell25.Weight = 0.26149449622728926D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DueDateRent", "{0:yyyy.MM.dd.}")}); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "tableCell13"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell13.Weight = 0.35498694472479281D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // PageBelow1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Termeltetés területei és termények - bevont -alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[Involved] = True"; + this.Margins = new System.Drawing.Printing.Margins(50, 51, 0, 0); + this.Name = "PageBelow1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = "\r\n\r\n"; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - nem bevont -alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - nem bevont -alriport.repx new file mode 100644 index 0000000..fecf546 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - nem bevont -alriport.repx @@ -0,0 +1,475 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class PageBelow2 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public PageBelow2() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAqAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgA+AAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAQAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBUAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAVQAAAAEoU0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0QnlUZXJyaXRvcmlhbAESW0ludm9sdmVkXSA9IEZhbHNlAQABEltJbnZvbHZlZF0gPSBGYWxzZQABPVRlcm1lbHRldMOpcyB0ZXLDvGxldGVpIMOpcyB0ZXJtw6lueWVrIC0gbmVtIGJldm9udCAtYWxyaXBvcnQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3}); + this.detailBand1.HeightF = 24F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.table2}); + this.reportHeaderBand1.HeightF = 56F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(10.49999F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table3.SizeF = new System.Drawing.SizeF(728.9999F, 24F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseFont = false; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell16, + this.tableCell21, + this.tableCell17, + this.tableCell25, + this.tableCell13}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 0.96000036621107721D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "tableCell11"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.20130804947782355D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "City")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.71742591232024422D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LotNumber")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell21.Weight = 0.86419766458861424D; + // + // tableCell17 + // + this.tableCell17.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Area", "{0:n}")}); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.1766053883531912D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OwnerState")}); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell25.Weight = 0.46787587630133864D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DueDateRent", "{0:yyyy.MM.dd.}")}); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "tableCell13"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell13.Weight = 0.57258710895878806D; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(10.5F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 26F); + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(10.5F, 26F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 30F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1.04D; + // + // tableCell3 + // + this.tableCell3.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBackColor = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Termeltetésbe be NEM vont területek"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 7.29D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell6, + this.tableCell5, + this.tableCell9, + this.tableCell10, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.2000004577638466D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "Helység"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.71742610739961932D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "Helyzajzi szám"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.864197705784546D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.Multiline = true; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Terület\r\nhektár"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.17660537917582411D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "Saját / Bérelt"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.46787599344085751D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Lejárat"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.57258690837717441D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // PageBelow2 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Termeltetés területei és termények - nem bevont -alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FilterString = "[Involved] = False"; + this.Margins = new System.Drawing.Printing.Margins(50, 50, 0, 0); + this.Name = "PageBelow2"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - termények -alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - termények -alriport.repx new file mode 100644 index 0000000..e9d6df0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények - termények -alriport.repx @@ -0,0 +1,431 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class PageBelow3 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Year_plus_1; + private System.Resources.ResourceManager _resources; + public PageBelow3() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgApAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgArAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcALQAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAvAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAMAAAAAEnU0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0UHJlc2VudGF0aW9uAQABAAEAAAE9VGVybWVsdGV0w6lzIHRlcsO8bGV0ZWkgw6lzIHRlcm3DqW55ZWsgLSB0ZXJtw6lueWVrIC1hbHJpcG9ydA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Year_plus_1 = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table4}); + this.detailBand1.HeightF = 24F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.table2}); + this.reportHeaderBand1.HeightF = 54F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table4 + // + this.table4.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(10.49983F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table4.SizeF = new System.Drawing.SizeF(728.9999F, 24F); + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseFont = false; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5, + this.tableCell22, + this.tableCell10}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.96000036621107721D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell11"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.20130804947782355D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell22.Weight = 1.1577550810171626D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Area", "{0:n}")}); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 1.6409368695050135D; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(10.4997F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 26F); + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(10.4997F, 26F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 28F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1.04D; + // + // tableCell3 + // + this.tableCell3.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBackColor = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Termények bemutatása"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 7.29D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell6, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.1200004272462567D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "Termény megnevezése"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 1.1577554620326909D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label1}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 1.6409366321453305D; + // + // label2 + // + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetHeader.MaxExpirationDate", "{0:yyyy}")}); + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(85.28654F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(38.80212F, 28F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(124.0887F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(206.1199F, 27.99999F); + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "-ban tervezett megművelt földterület (ha)"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Year_plus_1 + // + this.Year_plus_1.Expression = "AddYears(now(),1 )"; + this.Year_plus_1.Name = "Year_plus_1"; + // + // PageBelow3 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Year_plus_1}); + this.DisplayName = "Termeltetés területei és termények - termények -alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 0, 0); + this.Name = "PageBelow3"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények.repx new file mode 100644 index 0000000..dd82687 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetés területei és termények.repx @@ -0,0 +1,740 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Page3 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRSubreport YYY; + private DevExpress.XtraReports.UI.XRSubreport XXX; + private DevExpress.XtraReports.UI.XRSubreport ZZZ; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Page3() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAowIAAAxGAGkAbAB0AGUAcgDGAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgDIAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAygIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDMAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAzQIAAAGgBQ0KUHJpdmF0ZSBTdWIgWVlZX0JlZm9yZVByaW50KEJ5V" + + "mFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpb" + + "nRFdmVudEFyZ3MpCQ0KCUNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0Z" + + "XJTdHJpbmcgPSJBUENTaGVldEhlYWRlci5PaWQ9JyIgJiBsYWJlbDEuVGV4dC5Ub1N0cmluZyAmICInI" + + "g0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBYWFhfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9ia" + + "mVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCglDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nID0iQVBDU2hlZ" + + "XRIZWFkZXIuT2lkPSciICYgbGFiZWwxLlRleHQuVG9TdHJpbmcgJiAiJyINCkVuZCBTdWINCg0KUHJpd" + + "mF0ZSBTdWIgWlpaX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU" + + "3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoJQ1R5cGUoc2VuZGVyLCBYUlN1Y" + + "nJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZyA9IkFQQ1NoZWV0SGVhZGVyLk9pZD0nIiAmI" + + "GxhYmVsMS5UZXh0LlRvU3RyaW5nICYgIiciDQpFbmQgU3ViDQoNCgEhU0lTQnVzaW5lc3MuTW9kdWxlL" + + "kFQQ1NoZWV0SGVhZGVyAQABAAEAAAEmVGVybWVsdGV0w6lzIHRlcsO8bGV0ZWkgw6lzIHRlcm3DqW55Z" + + "Ws="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.YYY = new DevExpress.XtraReports.UI.XRSubreport(); + this.XXX = new DevExpress.XtraReports.UI.XRSubreport(); + this.ZZZ = new DevExpress.XtraReports.UI.XRSubreport(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label5, + this.label14, + this.label10, + this.label9, + this.label7, + this.label6, + this.label4, + this.label3}); + this.pageFooterBand1.HeightF = 88.02778F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.table4, + this.table2, + this.label11, + this.label12, + this.label13, + this.label1, + this.label2, + this.YYY, + this.XXX, + this.ZZZ}); + this.reportHeaderBand1.HeightF = 286.2326F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 24.30556F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 28.63888F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetAdministrator.FullName")}); + this.label8.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(183.6165F, 44.93917F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(177.1074F, 17.25006F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(212.4319F, 62.18924F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = " termeltetési ügyintéző "; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateSigned", "{0:yyyy.MM.dd.}")}); + this.label14.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(78.38761F, 34.93923F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(105.2289F, 15.83854F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(610.9601F, 44.93916F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(118.8802F, 17.25006F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Kalócz Mária"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.label9.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(387.403F, 44.93916F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(161.5296F, 17.25006F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(610.9601F, 62.18922F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(118.8802F, 15.83854F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "creditmenedzser"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(439.7988F, 62.18922F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(50.52081F, 15.83854F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "üzletkötő"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(22.54867F, 62.18922F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Aláírás:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(22.65845F, 34.93923F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(55.72917F, 15.83854F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Dátum:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(11F, 51.49208F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(729F, 27.78F); + // + // table4 + // + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(11F, 23.71208F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5}); + this.table4.SizeF = new System.Drawing.SizeF(729F, 27.78F); + // + // table2 + // + this.table2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(11F, 79.27209F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 62.78001F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(337.1346F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "3. számú melléklet"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(509.7975F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(53.86908F, 16.42036F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "Hatályos:"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.BackColor = System.Drawing.Color.Transparent; + this.label13.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.9529F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(128.2458F, 16.42036F); + this.label13.StylePriority.UseBackColor = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "2012. augusztus 27-től"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Oid")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(134.2523F, 7.291714F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label1.Text = "label1"; + this.label1.Visible = false; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "APCSheetByTerritorial.Involved")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(19.25227F, 7.291714F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 16.42036F); + this.label2.Text = "label2"; + this.label2.Visible = false; + // + // YYY + // + this.YYY.LocationFloat = new DevExpress.Utils.PointFloat(0.8403778F, 142.0521F); + this.YYY.Name = "YYY"; + this.YYY.ReportSourceUrl = "Termeltetés területei és termények - bevont -alriport"; + this.YYY.Scripts.OnBeforePrint = "YYY_BeforePrint"; + this.YYY.SizeF = new System.Drawing.SizeF(750.1596F, 46.875F); + // + // XXX + // + this.XXX.LocationFloat = new DevExpress.Utils.PointFloat(0F, 188.9271F); + this.XXX.Name = "XXX"; + this.XXX.ReportSourceUrl = "Termeltetés területei és termények - nem bevont -alriport"; + this.XXX.Scripts.OnBeforePrint = "XXX_BeforePrint"; + this.XXX.SizeF = new System.Drawing.SizeF(750.1596F, 58.76382F); + // + // ZZZ + // + this.ZZZ.LocationFloat = new DevExpress.Utils.PointFloat(0.8403778F, 247.6909F); + this.ZZZ.Name = "ZZZ"; + this.ZZZ.ReportSourceUrl = "Termeltetés területei és termények - termények -alriport"; + this.ZZZ.Scripts.OnBeforePrint = "ZZZ_BeforePrint"; + this.ZZZ.SizeF = new System.Drawing.SizeF(750.1596F, 38.54166F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1.1112000274658203D; + // + // tableCell3 + // + this.tableCell3.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBackColor = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Termeltetésbe bevont területek"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 7.29D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell12}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1.1112000274658203D; + // + // tableCell12 + // + this.tableCell12.BackColor = System.Drawing.Color.Gainsboro; + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell12.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBackColor = false; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "2012 / 2013 termeltetési terv"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 7.29D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell18}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.1112006039431015D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell6, + this.tableCell8, + this.tableCell5, + this.tableCell9, + this.tableCell7, + this.tableCell10, + this.tableCell2}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.400000534057821D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "Partner neve:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.44548287495827249D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 2.5545171250417278D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Sorszám"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.20130790582197877D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "Helység"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.71742610739961932D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "Helyzajzi szám"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.43209885289227307D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "Blokkszám"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.43209885289227296D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.Multiline = true; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Terület\r\nhektár"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.17660537917582411D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "Növény"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.42398166240043006D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "Saját / Bérelt"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.26148152844121691D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Lejárat"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.354999710976385D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Page3 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Termeltetés területei és termények"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(49, 50, 24, 29); + this.Name = "Page3"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetési szerződés adatlap.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetési szerződés adatlap.repx new file mode 100644 index 0000000..e76993c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termeltetési szerződés adatlap.repx @@ -0,0 +1,314 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class MainReport : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand ReportHeader; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak3; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak2; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRSubreport subreport4; + private DevExpress.XtraReports.UI.XRSubreport subreport3; + private DevExpress.XtraReports.UI.XRSubreport subreport2; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public MainReport() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAYwMAAAxGAGkAbAB0AGUAcgCGAwAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCIAwAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAigMAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCMAwAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAjQMAAAHgBg0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0MV9CZWZvcmVQc" + + "mludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50a" + + "W5nLlByaW50RXZlbnRBcmdzKQ0KCUNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZ" + + "S5GaWx0ZXJTdHJpbmcgPSJPaWQ9JyIgJiBsYWJlbDEuVGV4dC5Ub1N0cmluZyAmICInIiANCkVuZCBTd" + + "WINCg0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0Ml9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZ" + + "WN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KCUNUe" + + "XBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmcgPSJPaWQ9JyIgJ" + + "iBsYWJlbDEuVGV4dC5Ub1N0cmluZyAmICInIiANCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgc3VicmVwb" + + "3J0M19CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5Ec" + + "mF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KCUNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpL" + + "lJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmcgPSJPaWQ9JyIgJiBsYWJlbDEuVGV4dC5Ub1N0cmluZyAmI" + + "CInIiANCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0NF9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KCUNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpb" + + "mcgPSJPaWQ9JyIgJiBsYWJlbDEuVGV4dC5Ub1N0cmluZyAmICInIiANCkVuZCBTdWINCgEhU0lTQnVza" + + "W5lc3MuTW9kdWxlLkFQQ1NoZWV0SGVhZGVyAQABAAEAAAEhVGVybWVsdGV0w6lzaSBzemVyesWRZMOpc" + + "yBhZGF0bGFw"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportHeader = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.pageBreak3 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.pageBreak2 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport4 = new DevExpress.XtraReports.UI.XRSubreport(); + this.subreport3 = new DevExpress.XtraReports.UI.XRSubreport(); + this.subreport2 = new DevExpress.XtraReports.UI.XRSubreport(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Expanded = false; + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 21F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 21F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportHeader + // + this.ReportHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.subreport1, + this.pageBreak3, + this.pageBreak2, + this.pageBreak1, + this.label1, + this.subreport4, + this.subreport3, + this.subreport2}); + this.ReportHeader.HeightF = 480.4615F; + this.ReportHeader.Name = "ReportHeader"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 23.73079F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Partner adatlap"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(773F, 66.26923F); + // + // pageBreak3 + // + this.pageBreak3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 366.1155F); + this.pageBreak3.Name = "pageBreak3"; + // + // pageBreak2 + // + this.pageBreak2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.7052F); + this.pageBreak2.Name = "pageBreak2"; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 109.7052F); + this.pageBreak1.Name = "pageBreak1"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Oid")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(681.8363F, 7.14105F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(40.70514F, 16.58974F); + this.label1.Text = "label1"; + this.label1.Visible = false; + // + // subreport4 + // + this.subreport4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 378.1346F); + this.subreport4.Name = "subreport4"; + this.subreport4.ReportSourceUrl = "Gazdasági adatok adóminősítéshez"; + this.subreport4.Scripts.OnBeforePrint = "subreport4_BeforePrint"; + this.subreport4.SizeF = new System.Drawing.SizeF(773F, 102.3269F); + // + // subreport3 + // + this.subreport3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 249.5257F); + this.subreport3.Name = "subreport3"; + this.subreport3.ReportSourceUrl = "Termeltetés területei és termények"; + this.subreport3.Scripts.OnBeforePrint = "subreport3_BeforePrint"; + this.subreport3.SizeF = new System.Drawing.SizeF(773F, 103.9295F); + // + // subreport2 + // + this.subreport2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 124.9296F); + this.subreport2.Name = "subreport2"; + this.subreport2.ReportSourceUrl = "Partner Előminősítő lap"; + this.subreport2.Scripts.OnBeforePrint = "subreport2_BeforePrint"; + this.subreport2.SizeF = new System.Drawing.SizeF(773F, 96.71795F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // MainReport + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportHeader}); + this.DisplayName = "Termeltetési szerződés adatlap"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(24, 30, 21, 21); + this.Name = "MainReport"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termék adatlap.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termék adatlap.repx new file mode 100644 index 0000000..2cff488 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/FRInput/Termék adatlap.repx @@ -0,0 +1,894 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\szilard.molnar\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow23; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell91; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAnAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgApAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAKwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAtAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUALgAAAAElU0lTQnVzaW5lc3MuTW9kdWxlLkFQQ1NoZWV0QnlQcm9kdWN0cwEAAQABAAABD1Rlcm3DqWsgYWRhdGxhcA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow23 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell91 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.detailBand1.HeightF = 24.99999F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 1.402769F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7, + this.table6}); + this.PageHeader.HeightF = 72F; + this.PageHeader.Name = "PageHeader"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.PageFooter.HeightF = 24.99999F; + this.PageFooter.Name = "PageFooter"; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(9.999973F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(728.9999F, 24.99999F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell20, + this.tableCell16, + this.tableCell22, + this.tableCell23, + this.tableCell21, + this.tableCell17, + this.tableCell24, + this.tableCell25, + this.tableCell18}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell19 + // + this.tableCell19.BackColor = System.Drawing.Color.Transparent; + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBackColor = false; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "tableCell19"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.56836814039929051D; + // + // tableCell20 + // + this.tableCell20.BackColor = System.Drawing.Color.Transparent; + this.tableCell20.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractQuantity", "{0:n}")}); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBackColor = false; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.StylePriority.UseTextAlignment = false; + this.tableCell20.Text = "tableCell20"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell20.Weight = 0.20392562731629066D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InsuranceState")}); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.29943158912870843D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MaxContractQuantity", "{0:n}")}); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "tableCell22"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell22.Weight = 0.28330913869675278D; + // + // tableCell23 + // + this.tableCell23.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FundingHatoHUF", "{0:#,#}")}); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseBorders = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell23.Weight = 0.23662578277175822D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FundingHaHUF", "{0:#,#}")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell21.Weight = 0.23626453248029233D; + // + // tableCell17 + // + this.tableCell17.BackColor = System.Drawing.Color.Transparent; + this.tableCell17.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FundingAmountHUF", "{0:#,#}")}); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBackColor = false; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.33496511514002714D; + // + // tableCell24 + // + this.tableCell24.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ColleteralHatoHUF", "{0:#,#}")}); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell24.Weight = 0.2613166405167141D; + // + // tableCell25 + // + this.tableCell25.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CollateralhaHUF", "{0:#,#}")}); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell25.Weight = 0.26132300750338977D; + // + // tableCell18 + // + this.tableCell18.BackColor = System.Drawing.Color.Transparent; + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CollateralAmountHUF", "{0:#,#}")}); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBackColor = false; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 0.314470426046776D; + // + // table7 + // + this.table7.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow23}); + this.table7.SizeF = new System.Drawing.SizeF(138.1135F, 72F); + this.table7.StylePriority.UseBorders = false; + this.table7.StylePriority.UseTextAlignment = false; + this.table7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table6 + // + this.table6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(148.1135F, 0F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow21, + this.tableRow22}); + this.table6.SizeF = new System.Drawing.SizeF(590.8865F, 72F); + this.table6.StylePriority.UseBorders = false; + this.table6.StylePriority.UseFont = false; + // + // tableRow23 + // + this.tableRow23.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow23.Name = "tableRow23"; + this.tableRow23.Weight = 1.0234813739131754D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Multiline = true; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = " Növény"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 3D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7, + this.tableCell1, + this.tableCell4, + this.tableCell6, + this.tableCell11, + this.tableCell12, + this.tableCell8}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1.1200002307129469D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell91, + this.tableCell3, + this.tableCell5, + this.tableCell10, + this.tableCell9, + this.tableCell13, + this.tableCell15, + this.tableCell14, + this.tableCell93}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1.1840002438965436D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "Terület"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.52166046441609515D; + // + // tableCell1 + // + this.tableCell1.ForeColor = System.Drawing.Color.Black; + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseForeColor = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Biztosítás(2)"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.76597347908803914D; + // + // tableCell4 + // + this.tableCell4.Multiline = true; + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Szerződhető\r\nmennyiség"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.72473141390221285D; + // + // tableCell6 + // + this.tableCell6.Multiline = true; + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "Egységre jutó\r\nfinanszírozás"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 1.2106196318876756D; + // + // tableCell11 + // + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Bruttó finansz."; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.8559479997066205D; + // + // tableCell12 + // + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "Egységre jutó fedezeti érték"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 1.3369605788473224D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell8.Multiline = true; + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "Bruttó fedezeti\r\nérték"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.80444352843837619D; + // + // tableCell91 + // + this.tableCell91.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell91.Name = "tableCell91"; + this.tableCell91.StylePriority.UseBorders = false; + this.tableCell91.StylePriority.UseTextAlignment = false; + this.tableCell91.Text = "ha"; + this.tableCell91.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell91.Weight = 0.52166046441609482D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell3.Multiline = true; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Termelő\r\n/Input/E"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.765973438930236D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "t/ha"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.72473143398111461D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "Ft/ha/t"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.60530980088466146D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Ft/ha"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.6053098008846618D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "Ft"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell13.Weight = 0.855947824016231D; + // + // tableCell15 + // + this.tableCell15.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "Ft/ha/t"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 0.66847257536060334D; + // + // tableCell14 + // + this.tableCell14.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseBorders = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Ft/ha"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.66847257536060334D; + // + // tableCell93 + // + this.tableCell93.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseBorders = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "Ft"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell93.Weight = 0.80445918245213621D; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.table2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(10.0001F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(728.9999F, 24.99999F); + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseFont = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27, + this.tableCell28, + this.tableCell29, + this.tableCell30, + this.tableCell31, + this.tableCell32, + this.tableCell33, + this.tableCell34, + this.tableCell35}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell26 + // + this.tableCell26.BackColor = System.Drawing.Color.Transparent; + this.tableCell26.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBackColor = false; + this.tableCell26.StylePriority.UseBorders = false; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "Összesen"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell26.Weight = 0.56836814039929051D; + // + // tableCell27 + // + this.tableCell27.BackColor = System.Drawing.Color.Transparent; + this.tableCell27.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractQuantity")}); + this.tableCell27.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseBackColor = false; + this.tableCell27.StylePriority.UseBorders = false; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Page; + this.tableCell27.Summary = summary1; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell27.Weight = 0.20392562731629066D; + // + // tableCell28 + // + this.tableCell28.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseBorders = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell28.Weight = 0.29943158912870843D; + // + // tableCell29 + // + this.tableCell29.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseBorders = false; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "- -"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell29.Weight = 0.28330913869675278D; + // + // tableCell30 + // + this.tableCell30.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseBorders = false; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "- -"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell30.Weight = 0.23662578277175822D; + // + // tableCell31 + // + this.tableCell31.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseBorders = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell31.Weight = 0.23626453248029233D; + // + // tableCell32 + // + this.tableCell32.BackColor = System.Drawing.Color.Transparent; + this.tableCell32.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FundingAmountHUF")}); + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseBackColor = false; + this.tableCell32.StylePriority.UseBorders = false; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Page; + this.tableCell32.Summary = summary2; + this.tableCell32.Text = "tableCell32"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell32.Weight = 0.33496511514002714D; + // + // tableCell33 + // + this.tableCell33.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBorders = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "- -"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell33.Weight = 0.2613166405167141D; + // + // tableCell34 + // + this.tableCell34.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell34.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseBorders = false; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "- -"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell34.Weight = 0.26132300750338977D; + // + // tableCell35 + // + this.tableCell35.BackColor = System.Drawing.Color.Transparent; + this.tableCell35.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CollateralAmountHUF")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseBackColor = false; + this.tableCell35.StylePriority.UseBorders = false; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,#}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Page; + this.tableCell35.Summary = summary3; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell35.Weight = 0.314470426046776D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.PageFooter}); + this.DisplayName = "Termék adatlap"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(13, 12, 1, 0); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás Rendkívüli felmondás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás Rendkívüli felmondás.repx new file mode 100644 index 0000000..6a1c0e1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás Rendkívüli felmondás.repx @@ -0,0 +1,953 @@ +/// +/// DevExpress.ExpressApp.Reports.v10.2, Version=10.2.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v10.2\10.2.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v10.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOW8kP3rsZ0uN7j8d/grBNR4gGHaUXVHBt5KwAAAOIAAABjAAAAPAAAAMkAAAAAAAAAlAAAAOsBAAAmRABhAHQAYQBTAG8AdQByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQAAAAAADEYAaQBsAHQAZQByACMAAAAiRgBpAGwAdABlAHIARABlAHMAYwByAGkAcAB0AGkAbwBuACUAAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByAGUAdgBpAGUAdwAnAAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAbQBlACkAAAAUUgBlAHAAbwByAHQATgBhAG0AZQAqAAAAGGwAYQBiAGUAbAAyADAALgBUAGUAeAB0AF0AAAABIVNJU0J1c2luZXNzLk1vZHVsZS5Bc3NldHNIYW5kbGluZwEAAQABAAABMUZpemV0w6lzaSBmZWxzesOzbMOtdMOhcy8gUmVuZGvDrXbDvGxpIGZlbG1vbmTDoXMBlwJGZWxow612anVrIGZpZ3llbG3DqXQsIGhvZ3kgYW1lbm55aWJlbiA4IG5hcG9uIGJlbMO8bCB0YXJ0b3rDoXPDoXQgbmVtIHJlbmRlemksIMO6Z3kgYSBiw6lybGV0aSBqb2d2aXN6b255dCBqZWxlbiBsZXZlbMO8bmtrZWwsIHJlbmRrw612w7xsaSBmZWxtb25kw6Fzc2FsIGZlbG1vbmRqdWsgYSA4LiBuYXByYS4gRXogZXNldGJlbiDDlm4ga8O2dGVsZXMgYSBiw6lybGVtw6lueXQgYSBiw6lybGV0aSBzemVyesWRZMOpcyByZW5kZWxrZXrDqXNlaW5layBtZWdmZWxlbMWRZW4gw6F0YWRuaS4="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogetherWithDetailReports = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("DatePayment", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 80F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 80F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label33, + this.label32, + this.label12, + this.table1, + this.pageBreak1, + this.label30, + this.label25, + this.label7, + this.label24, + this.label14, + this.label9, + this.label2, + this.label1, + this.label29, + this.label4, + this.label18, + this.label3, + this.label6, + this.label21, + this.label23, + this.label10, + this.label5, + this.label13, + this.label8, + this.label26, + this.label28, + this.label27, + this.pictureBox1, + this.label15, + this.label17, + this.label16, + this.label19, + this.label22, + this.label20, + this.label11}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("Customers.DisplayName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 1095.292F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + // + // PageFooter + // + this.PageFooter.HeightF = 0F; + this.PageFooter.Name = "PageFooter"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3}); + this.GroupFooter1.HeightF = 28.125F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(657F, 25F); + this.table2.StylePriority.UseBorders = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5, + this.tableCell6, + this.tableCell7, + this.tableCell8}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 1.8541702270507812D; + // + // tableCell6 + // + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF_Account", "{0:#,#}")}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell6.Weight = 1.5208322143554689D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BalanceHUF", "{0:#,#}")}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell7.Weight = 1.3645840454101561D; + // + // tableCell8 + // + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DatePayment", "{0:yyyy.MM.dd.}")}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 1.8304135131835937D; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateClose", "{0:yyyy.MM.dd.}")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(508.3333F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(148.6667F, 22.99995F); + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo1 + // + this.pageInfo1.Format = "{0}. oldal, összesen {1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(265.6252F, 0F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(127.0834F, 23F); + // + // label34 + // + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 982.5834F); + this.label34.Multiline = true; + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(116.6667F, 16.99994F); + this.label34.Text = "Késedelmi kamat.\r\n"; + // + // label33 + // + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 965.5833F); + this.label33.Multiline = true; + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(116.6667F, 17.00012F); + this.label33.Text = "Melléklet:"; + // + // label32 + // + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 717.1255F); + this.label32.Multiline = true; + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(656.9991F, 17F); + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Tájékoztatjuk, hogy rendkívüli felmondás esetén Ön a szerződés szerinti bérleti d" + + "íj megfizetése alól nem mentesül."; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 702.1255F); + this.label12.Multiline = true; + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label12.Text = "\r\n"; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 1072.292F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(656.9994F, 23F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 1000.417F); + this.pageBreak1.Name = "pageBreak1"; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 1028.459F); + this.label30.Multiline = true; + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(656.9994F, 23F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Lejárt fizetési határidejű számlák\r\n"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 10F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0.0009536743F, 901.0419F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(197.9166F, 20.00006F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Pénzügyi asszisztens"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 422.625F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(48.95834F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Tárgy: "; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 881.0419F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Vida Krisztina"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 553.1255F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(99.99981F, 15F); + this.label14.StylePriority.UseTextAlignment = false; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(48.95865F, 422.625F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(201.0416F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Fizetési felszólítás"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 235.3959F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "mint a"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 164.9168F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Feladó:"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label29 + // + this.label29.Font = new System.Drawing.Font("Arial", 9F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178915F, 129.9167F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(255.2083F, 17F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "E-mail: pestihazak@pestihazak.hu"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 305.8751F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "megbízottja."; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 187.9166F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(380.2084F, 17F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "PH Ingatlanvagyon-kezelő Kft."; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.DisplayName")}); + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 271.8751F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.DisplayName")}); + this.label6.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 372.1666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(380.2083F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 10F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 204.9167F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "1094 Budapest Ferenc tér 2-3. VI/1."; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 10F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0.001271566F, 820.7294F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Tisztelettel:"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.Address1.FullAddress")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 288.8751F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 349.1667F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Címzett:"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF_Account", "{0:#,#\',- Ft\'}")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(200F, 533.1256F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(182.2917F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Underline)))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 473.0834F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Tisztelt Bérlő!"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Arial", 10F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 921.0419F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(197.9167F, 19.99994F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "PH Ingatlanvagyon-kezelő Kft."; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543132F, 112.9166F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(255.2083F, 17.00001F); + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Tel./Fax: 219 54 77; 219 54 78"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 95.91663F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(255.2083F, 17F); + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "Hungary H 1094 Budapest, Ferenc tér 2-3.\r\n"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(145.8333F, 95.91663F); + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 568.1255F); + this.label15.Multiline = true; + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(656.9994F, 34.99994F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Kérjük, hogy az elmaradt díjak kiegyenlítését 8 napon belül pótolni szíveskedjék," + + " és ennek igazolását küldje meg részünkre!\r\n"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 10F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 618.1255F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(657F, 17F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Az eddig felhalmozódott késedelmi kamatterhe a mellékelt táblázatban látható."; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label16 + // + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 603.1255F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label16.StylePriority.UseTextAlignment = false; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label19 + // + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 635.1255F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label19.StylePriority.UseTextAlignment = false; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 10F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 760.4171F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(473.9583F, 20F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Budapest, [DateClose!yyyy.MMMM.dd.]"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 10F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 650.1255F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(656.9994F, 52F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = resources.GetString("label20.Text"); + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 10F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 518.1255F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(656.9997F, 35F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Ahogyan már többször jeleztük - az Ön szerződése szerint kiküldött - számlák fize" + + "tési határideje lejárt. A mai napig fennálló kintlévősége:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Számlaszám"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.84665348820724984D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Bruttó összeg"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell2.Weight = 0.69444424445176711D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Nyitott összeg"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell3.Weight = 0.6230980386710383D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "Fizetési határidő"; + this.tableCell4.Weight = 0.83580422866994486D; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.BorderWidth = 2; + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(185.417F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(288.5416F, 25F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseBorderWidth = false; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell9 + // + this.tableCell9.BorderWidth = 2; + this.tableCell9.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.tableCell9.Multiline = true; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderWidth = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Összesen"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell9.Weight = 1.5208322143554685D; + // + // tableCell10 + // + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BalanceHUF")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell10.Summary = summary1; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell10.Weight = 1.3645837402343752D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1, + this.PageFooter, + this.GroupFooter1}); + this.DisplayName = "Fizetési felszólítás/ Rendkívüli felmondás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9F); + this.Margins = new System.Drawing.Printing.Margins(90, 80, 80, 80); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "10.2"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás.repx new file mode 100644 index 0000000..0141c84 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési felszólítás.repx @@ -0,0 +1,901 @@ +/// +/// DevExpress.ExpressApp.Reports.v10.2, Version=10.2.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v10.2\10.2.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v10.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOW8kP3rsZ0uN7j8d/grBNR4gGHaUXVHBt5KwAAAOIAAABjAAAAPAAAAMkAAAAAAAAAlAAAAOsBAAAmRABhAHQAYQBTAG8AdQByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQAAAAAADEYAaQBsAHQAZQByACMAAAAiRgBpAGwAdABlAHIARABlAHMAYwByAGkAcAB0AGkAbwBuACUAAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByAGUAdgBpAGUAdwAnAAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAbQBlACkAAAAUUgBlAHAAbwByAHQATgBhAG0AZQAqAAAAGGwAYQBiAGUAbAAyADAALgBUAGUAeAB0AEQAAAABIVNJU0J1c2luZXNzLk1vZHVsZS5Bc3NldHNIYW5kbGluZwEAAQABAAABGEZpemV0w6lzaSBmZWxzesOzbMOtdMOhcwHxAUhhIMOWbiBtw6FyIGludMOpemtlZGV0dCBheiB1dGFsw6FzcsOzbCwga8OpcmrDvGssIGvDvGxkamUgZWwgYXogw6F0dXRhbMOhc2kgbWVnYsOtesOhcyB2YWd5IGEgYmFua2tpdm9uYXQgbcOhc29sYXTDoXQsIGhvZ3kgYSBiYW5rbsOhbCB0dWRqdW5rIMOpcmRla2zFkWRuaSBhIGZlbG1lcsO8bHQgcHJvYmzDqW3DoXLDs2wsIHMgZWJiZW4gYXogZXNldGJlbiBsZXZlbMO8bmtldCB0ZWtpbnRzZSB0w6FyZ3l0YWxhbm5hay4="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 25F; + this.detailBand1.KeepTogetherWithDetailReports = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("DatePayment", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 80F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 80F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.pageBreak1, + this.label30, + this.label25, + this.label16, + this.label17, + this.label7, + this.label24, + this.label14, + this.label9, + this.label2, + this.label1, + this.label29, + this.label4, + this.label18, + this.label19, + this.label3, + this.label20, + this.label6, + this.label21, + this.label22, + this.label23, + this.label10, + this.label5, + this.label13, + this.label8, + this.label26, + this.label15, + this.label28, + this.label27, + this.pictureBox1, + this.label11}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("Customers.DisplayName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 1094.792F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + // + // PageFooter + // + this.PageFooter.HeightF = 0F; + this.PageFooter.Name = "PageFooter"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3}); + this.GroupFooter1.HeightF = 28.125F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table2 + // + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(657F, 25F); + this.table2.StylePriority.UseBorders = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5, + this.tableCell6, + this.tableCell7, + this.tableCell8}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 1.8541702270507812D; + // + // tableCell6 + // + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF_Account", "{0:#,#}")}); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell6.Weight = 1.5208322143554689D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BalanceHUF", "{0:#,#}")}); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell7.Weight = 1.3645840454101561D; + // + // tableCell8 + // + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DatePayment", "{0:yyyy.MM.dd.}")}); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 1.8304135131835937D; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateClose", "{0:yyyy.MM.dd.}")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(508.3333F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(148.6667F, 22.99995F); + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo1 + // + this.pageInfo1.Format = "{0}. oldal, összesen {1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(265.6252F, 0F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(127.0834F, 23F); + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 1071.25F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(656.9997F, 23F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 999.3752F); + this.pageBreak1.Name = "pageBreak1"; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 1027.417F); + this.label30.Multiline = true; + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(656.9997F, 23F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Lejárt fizetési határidejű számlák\r\n"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 10F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0.0006357829F, 892.7085F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(197.9166F, 20.00006F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Pénzügyi asszisztens"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label16 + // + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 593.1254F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label16.StylePriority.UseTextAlignment = false; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 10F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 608.1254F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(656.9994F, 35F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Szeretnénk felhívni figyelmét, hogy kötelezettségét minél előbb teljesítse, mert " + + "a késedelmi kamat kiszámlázásától nem áll módunkban eltekinteni!"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 422.625F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(48.95834F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Tárgy: "; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 872.7085F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Vida Krisztina"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 558.1254F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label14.StylePriority.UseTextAlignment = false; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(48.95865F, 422.625F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(201.0416F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Fizetési felszólítás"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 235.3959F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "mint a"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 164.9168F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Feladó:"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label29 + // + this.label29.Font = new System.Drawing.Font("Arial", 9F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178915F, 129.9167F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(255.2083F, 17F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "E-mail: pestihazak@pestihazak.hu"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 305.8751F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "megbízottja."; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 187.9166F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(380.2084F, 17F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "PH Ingatlanvagyon-kezelő Kft."; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label19 + // + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 648.1252F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(100F, 15F); + this.label19.StylePriority.UseTextAlignment = false; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.DisplayName")}); + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 271.8751F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 10F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 663.1252F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(656.9997F, 52F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = resources.GetString("label20.Text"); + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.DisplayName")}); + this.label6.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 372.1666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(380.2083F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 10F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 204.9167F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "1094 Budapest Ferenc tér 2-3. VI/1."; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 10F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 751.0421F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(473.9583F, 20F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Budapest, [DateClose!yyyy.MMMM.dd.]"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 10F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 811.8752F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(100F, 20F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Tisztelettel:"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.Address1.FullAddress")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 288.8751F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(380.2083F, 17F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 349.1667F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Címzett:"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountHUF_Account", "{0:#,#\',- Ft\'}")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(291.6666F, 533.1255F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(182.2917F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Underline)))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 473.0834F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Tisztelt Bérlő!"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Arial", 10F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0.0003178914F, 912.7086F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(197.9167F, 19.99994F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "PH Ingatlanvagyon-kezelő Kft."; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0.0002861023F, 573.1254F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(552.08F, 17F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Kérjük, hogy az elmaradt díjakat három napon belül átutalni szíveskedjék!"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543132F, 112.9166F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(255.2083F, 17.00001F); + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Tel./Fax: 219 54 77; 219 54 78"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 95.91663F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(255.2083F, 17F); + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "Hungary H 1094 Budapest, Ferenc tér 2-3.\r\n"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(145.8333F, 95.91663F); + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 10F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 518.1254F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(656.9996F, 35F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Bizonyára elkerülte figyelmét, hogy a szerződése szerint kiküldött számlák fizeté" + + "si határideje több mint 8 napja lejárt. A mai napig fennálló kintlévősége:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Számlaszám"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.84665348820724984D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Bruttó összeg"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell2.Weight = 0.69444424445176711D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Nyitott összeg"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell3.Weight = 0.6230980386710383D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.Text = "Fizetési határidő"; + this.tableCell4.Weight = 0.83580422866994486D; + // + // table3 + // + this.table3.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table3.BorderWidth = 2; + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(185.417F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(288.5416F, 25F); + this.table3.StylePriority.UseBorders = false; + this.table3.StylePriority.UseBorderWidth = false; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableCell9 + // + this.tableCell9.BorderWidth = 2; + this.tableCell9.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.tableCell9.Multiline = true; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderWidth = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Összesen"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell9.Weight = 1.5208322143554685D; + // + // tableCell10 + // + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BalanceHUF")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell10.Summary = summary1; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell10.Weight = 1.3645837402343752D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1, + this.PageFooter, + this.GroupFooter1}); + this.DisplayName = "Fizetési felszólítás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9F); + this.Margins = new System.Drawing.Printing.Margins(90, 80, 80, 80); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "10.2"; + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési Értesítő.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési Értesítő.repx new file mode 100644 index 0000000..24f574b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Fizetési Értesítő.repx @@ -0,0 +1,990 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOW8" + + "kP3rkhecsHGdLje4/Hf4KwTUeIBh2lF1RwbeVYAAAANAQAAAAAAAI4AAABnAAAA9AAAACsAAAC/AAAAH" + + "gIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQBzAgAADEYAaQBsAHQAZQByAJMCAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuAJUCAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwCXAgAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAJkCAAAUUgBlAHAAbwByAHQATgBhAG0AZQCaAgAAGGwAYQBiAGUAbAAyADAALgBUAGUAeAB0ALECA" + + "AAB8ARkaW0gX09pZEN1cnJlbnQgYXMgc3RyaW5nDQpkaW0gX09pZFByZXYgYXMgc3RyaW5nDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsNjFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZ" + + "SBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCmxhYmVsNjEuVGV4dD1sY" + + "WJlbDYxLlRleHQgJiAiICIgJiBsYWJlbDQ0LlRleHQNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgc3Vic" + + "mVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3Rlb" + + "S5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlcG9yd" + + "CkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iSW52b2ljZUhlYWRlci5PaWQ9JyIgJiBsYWJlbDExL" + + "lRleHQuVG9TdHJpbmcgJiAiJyINCg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBsYWJlbDFfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCmlmIERvY3VtZW50TnVtYmVyLlRleHQ9IiIgdGhlbiBsYWJlbDEuV" + + "GV4dD0iUFLDk0JBU1rDgU1MQSINCkVuZCBTdWIBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZvaWNlUm93c" + + "wEAAQABAAABFUZpemV0w6lzaSDDiXJ0ZXPDrXTFkQH1AUvDqXJlbSwgaG9neSBzesOtdmVza2VkamVuZ" + + "WsgdGFydG96w6FzdWthdCBoYWxhZMOpa3RhbGFudWwgcmVuZGV6bmkhIEFtZW5ueWliZW4gamVsZW4gw" + + "6lydGVzw610xZFiZW4gc3plcmVwbMWRIGVneWVubGVnZXQgYSBrw6l6aGV6dsOpdGVsdMWRbCBzesOhb" + + "cOtdG90dCAxNSBuYXBvbiBiZWzDvGwgw61yw6FzYmVsaSBueWlsYXRrb3phdGJhbiBuZW0ga2lmb2fDo" + + "XNvbGrDoWssIGF6dCBlbGZvZ2Fkb3R0bmFrIHRla2ludGrDvGsu"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 50.64526F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 56F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label24, + this.label23, + this.label22, + this.label20, + this.line3, + this.label11, + this.label19, + this.label61, + this.line5, + this.label64, + this.line8}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 321.9625F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.DocumentNumber, + this.label18, + this.label17, + this.label16, + this.label15, + this.label14, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label32, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 399.6205F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label47 + // + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(617.4506F, 9.999907F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(124.5495F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 10.00004F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(126.8255F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(367.7636F, 9.999876F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(122.8612F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(321.6204F, 9.99992F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(46.14316F, 17.79167F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(221.6205F, 10.00001F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(100F, 17.79167F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(118.8333F, 9.99992F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(102.7872F, 17.79167F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(1.041438F, 10.00001F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(117.7919F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label25 + // + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(3.207922F, 242.8838F); + this.label25.Multiline = true; + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(221.6205F, 22.99997F); + this.label25.Text = "Email"; + // + // label24 + // + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(3.207922F, 219.8838F); + this.label24.Multiline = true; + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(221.6205F, 22.99997F); + this.label24.Text = "Telefonszám\r\n"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(1.041442F, 196.8838F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(220.579F, 22.99998F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Ügyintéző neve"; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 10F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(2.483527E-05F, 165.2856F); + this.label22.Multiline = true; + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(490.6248F, 31.59824F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Visszajelzésük és észrevételüket az alábbi elérhetőségeken tehetik meg:\r\n"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 94.41615F); + this.label20.Multiline = true; + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(737.9169F, 52.96576F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = resources.GetString("label20.Text"); + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 43.78225F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(742.0001F, 11.80509F); + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(492.6247F, 16.09729F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(251.3753F, 27.68495F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label20"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(241.6946F, 16.09729F); + this.label19.Multiline = true; + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(248.9302F, 27.68495F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Összes fennálló tartozás:\r\n"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label61 + // + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(3.207932F, 55.58731F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "[InvoiceHeader.HUNumberToText]"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.146129F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(742.0001F, 6.951196F); + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(538.5859F, 303.1292F); + this.label64.Multiline = true; + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.StylePriority.UseTextAlignment = false; + this.label64.Text = "Kiállító\r\n"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 291.1292F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // DocumentNumber + // + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(590.6249F, 201.656F); + this.DocumentNumber.Multiline = true; + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(149.2916F, 23F); + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.Text = "DocumentNumber"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 201.656F); + this.label18.Multiline = true; + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Sorszám\r\n"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 10.5F, System.Drawing.FontStyle.Italic); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0F, 284.3913F); + this.label17.Multiline = true; + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(739.9165F, 45.15637F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Felhívjuk szíves figyelmét, hogy nyilvántartásunk szerint az alábbi számlatételek" + + " kiegyenlítése nem történt meg\r\nfizetési határidőn belül:\r\n"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 249.6723F); + this.label16.Multiline = true; + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(197.0415F, 34.71906F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Tisztelt Partnerünk!\r\n"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(147.9999F, 198.4168F); + this.label15.Multiline = true; + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(147.9999F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Dátum\r\n"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 198.4168F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(147.9999F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Kibocsátás dátuma:"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "FIZETÉSI ÉRTESÍTŐ"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33334F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Címzett"; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(1.041436F, 102.3334F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Név"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152.4168F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.25F, 152.4168F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "adószám\r\n"; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 175.4168F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "bankszámlaszám"; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 102.3334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(251.3748F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "Név"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 152.4168F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2081F, 152.4168F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(173.7916F, 22.99997F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "adószám"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 175.4168F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(1.04144F, 355.3703F); + this.label32.Multiline = true; + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(118.8333F, 35.49991F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Bizonylatszám\r\n"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(119.8747F, 355.3703F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(102.7872F, 35.49997F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Teljesítés dátum"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(222.662F, 355.3702F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(104.4788F, 35.50006F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Fizetési határidő"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(327.1407F, 355.3702F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(40.62289F, 35.49997F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "DEV"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(617.4507F, 355.3702F); + this.label38.Multiline = true; + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(124.5494F, 35.49985F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Fennálló tartozás\r\n"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(367.7636F, 355.3703F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(122.8612F, 35.49988F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Számla összeg"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 355.3703F); + this.label40.Multiline = true; + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(126.8257F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "Kiegyenlítve\r\n"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0.1663806F, 353.287F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(740.9584F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 390.8703F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(741.1248F, 7.713959F); + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 129.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(251.0418F, 23.00002F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "cím"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 129.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(251.3748F, 23.00003F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "cím"; + // + // label29 + // + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(590.6249F, 79.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "vevő sorszáma"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Fizetési Értesítő"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 56, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi karton.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi karton.repx new file mode 100644 index 0000000..e9dd64c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi karton.repx @@ -0,0 +1,698 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo3; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.XRControlStyle controlStyle1; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAgAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAiAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAmAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAJwAAAAEeU0lTQnVzaW5lc3MuTW9kdWxlLkdMQ2FyZHNSb3dzAQABAAEAAAERRsWRa8O2bnl2aSBrYXJ0b24="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo3 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.controlStyle1 = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label29, + this.label28, + this.label27, + this.label26, + this.label25, + this.label24, + this.label23}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.detailBand1.HeightF = 28.20832F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.OddStyleName = "controlStyle1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 23F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 13.51951F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label21, + this.label20, + this.label19, + this.label18, + this.label16, + this.label14, + this.label13, + this.label1, + this.pageInfo2, + this.label2, + this.pageInfo3, + this.label3, + this.label4, + this.label5, + this.label6, + this.label8, + this.label9, + this.label10, + this.label11, + this.line1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 9.75F); + this.PageHeader.HeightF = 119.7917F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2}); + this.ReportFooter.HeightF = 6.25F; + this.ReportFooter.Name = "ReportFooter"; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label15}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 9.75F); + this.PageFooter.HeightF = 10.05889F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.StylePriority.UseFont = false; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceRulliringHUF", "{0:#,##0}")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(699.1295F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(69.8703F, 13F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label29.Font = new System.Drawing.Font("Arial", 8F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(639.5833F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(59.54608F, 13F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(573.9583F, 0F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(65.625F, 13F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy.MM.dd.}")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(493.7502F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(80.20816F, 13F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Note_Rows")}); + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(217.4583F, 13.54163F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label26.SizeF = new System.Drawing.SizeF(551.5416F, 13F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label25 + // + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.label25.Font = new System.Drawing.Font("Arial", 8F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(376.0417F, 0F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(117.7084F, 13F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.DisplayName")}); + this.label24.Font = new System.Drawing.Font("Arial", 8F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(217.4583F, 0F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(158.5834F, 13F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label23 + // + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortNameTo")}); + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(217.4583F, 13F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(699.1295F, 100.1248F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(69.87036F, 14.04171F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Göngy. Egyenleg"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(639.5833F, 100.1248F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(59.54614F, 12.58337F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Követel"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(573.9583F, 100.1249F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(65.625F, 12.58339F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Tartozik"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(493.7502F, 100.1248F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(80.20816F, 14.04167F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Telj. dátuma"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(376.0417F, 100.1248F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(117.7083F, 14.04167F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Biz. szám"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(217.4583F, 100.1249F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(84.62497F, 12.58332F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Partner"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 101.5833F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(148.9584F, 12.58331F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "FK. Ellenszámla"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 14F); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(118.5F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(534.7084F, 33F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Pesti Házak Csoport"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "Oldal: {0} / {1}"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(682.0416F, 32.99999F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(86.95825F, 16.75F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.ForeColor = System.Drawing.Color.Black; + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(118.5F, 32.99999F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(139.9168F, 23F); + this.label2.StyleName = "Title"; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseForeColor = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Főkönyi karton"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo3 + // + this.pageInfo3.Font = new System.Drawing.Font("Arial", 8F); + this.pageInfo3.Format = "{0:yyyy. MMMM d. HH:mm}"; + this.pageInfo3.LocationFloat = new DevExpress.Utils.PointFloat(653.5417F, 0F); + this.pageInfo3.Name = "pageInfo3"; + this.pageInfo3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo3.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo3.SizeF = new System.Drawing.SizeF(115.4583F, 23F); + this.pageInfo3.StylePriority.UseFont = false; + this.pageInfo3.StylePriority.UseTextAlignment = false; + this.pageInfo3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.AutoWidth = true; + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCardsHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(108.3332F, 69.91663F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(80.20845F, 23.00001F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "label3"; + // + // label4 + // + this.label4.AutoWidth = true; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCardsHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(205.2083F, 69.91663F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(96.875F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(188.5417F, 69.91663F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(16.66669F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "-\r\n"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 69.91663F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(100.4166F, 23.00001F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Dátum:"; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCardsHeader.ChartOfAccount.Name")}); + this.label8.Font = new System.Drawing.Font("Arial", 10F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(258.4167F, 32.99999F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(394.7917F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(549.3749F, 69.91663F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(55.20831F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "Vállalat:"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCardsHeader.CustomersFrom.CustomerNumber")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(604.5833F, 69.91663F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(48.95831F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label11 + // + this.label11.AutoWidth = true; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCardsHeader.CustomersFrom.DisplayName")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(653.5416F, 69.91663F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "label11"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.1666F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(768.9999F, 3.458382F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(769F, 5.208333F); + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 5F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(94.24004F, 10.05889F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "SIS Business Framework 2.0"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // controlStyle1 + // + this.controlStyle1.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.controlStyle1.Name = "controlStyle1"; + this.controlStyle1.Padding = new DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.ReportFooter, + this.PageFooter}); + this.DisplayName = "Főkönyvi karton"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(29, 29, 23, 14); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField, + this.controlStyle1}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat (Összesítés).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat (Összesítés).repx new file mode 100644 index 0000000..9b9f8b9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat (Összesítés).repx @@ -0,0 +1,753 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField calculatedField1; + private DevExpress.XtraReports.UI.CalculatedField Egyenleg; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAQEAAAxGAGkAbAB0AGUAcgAlAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAnAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAKQEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQArAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUALAEAAAH+AVByaXZhdGUgU3ViIGxhYmVsMTVfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCg0KaWYgR2V0Q3VycmVudENvbHVtblZhbHVlKCJBY2NvdW50U3VtIik9MCB0aGVuDQogbGFiZWwxNS50ZXh0PSIxLTQgc3rDoW1sYW9zenTDoWx5Ig0KZWxzZQ0KIGxhYmVsMTUudGV4dD0iNS05IHN6w6FtbGFvc3p0w6FseSINCmVuZCBpZg0KRW5kIFN1Yg0KASJTSVNCdXNpbmVzcy5Nb2R1bGUuVHJpYWxCYWxhbmNlU3VtAQABAAEAAAEiRsWRa8O2bnl2aSBraXZvbmF0ICjDlnNzemVzw610w6lzKQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.calculatedField1 = new DevExpress.XtraReports.UI.CalculatedField(); + this.Egyenleg = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.detailBand1.HeightF = 20F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 65.04166F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 12F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 25.625F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader2 + // + this.GroupHeader2.Expanded = false; + this.GroupHeader2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountSum", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 0F; + this.GroupHeader2.KeepTogether = true; + this.GroupHeader2.Name = "GroupHeader2"; + this.GroupHeader2.RepeatEveryPage = true; + this.GroupHeader2.StylePriority.UseFont = false; + this.GroupHeader2.Visible = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.table2}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupFooter2.HeightF = 40F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.table4}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupFooter1.HeightF = 70.83334F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // table3 + // + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(196.5277F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(889.4733F, 20F); + // + // tableRow3 + // + this.tableRow3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.tableRow3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableRow3.BorderWidth = 2; + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.StylePriority.UseBorderDashStyle = false; + this.tableRow3.StylePriority.UseBorders = false; + this.tableRow3.StylePriority.UseBorderWidth = false; + this.tableRow3.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.BorderWidth = 3; + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label4, + this.label5, + this.label6, + this.label2}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorderWidth = false; + this.tableCell5.Weight = 3D; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(496.4723F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(626.4722F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(129.9999F, 20F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose", "{0:#,##0}")}); + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(756.4722F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UsePadding = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.AutoWidth = true; + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(41.59694F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(411.4032F, 20F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.table1.BorderWidth = 4; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(196.5277F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(889.4711F, 65.04166F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.tableCell2.BorderWidth = 3; + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label19, + this.label18, + this.label1}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorderDashStyle = false; + this.tableCell2.StylePriority.UseBorderWidth = false; + this.tableCell2.Weight = 3D; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(756.4722F, 12.99999F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UsePadding = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Egyenleg"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(626.4723F, 12.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label19.SizeF = new System.Drawing.SizeF(129.9999F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Követel forgalom"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(496.4723F, 12.99999F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label18.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Tartozik forgalom"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 11F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Underline)))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(59.79019F, 13F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(393.21F, 20F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.Text = "Számlaosztály összesítő"; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(693F, 0F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(391F, 4.749998F); + // + // table2 + // + this.table2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.table2.BorderWidth = 2; + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(196.5277F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(889.4733F, 40F); + this.table2.StylePriority.UseBorderDashStyle = false; + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseBorderWidth = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.6000001541940987D; + // + // tableCell1 + // + this.tableCell1.BorderWidth = 3; + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label9, + this.label8, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderWidth = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(756.4722F, 4.999987F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UsePadding = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(626.4722F, 4.749998F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label9.StylePriority.UseBorders = false; + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label9.Summary = summary2; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(496.4723F, 4.749998F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label8.StylePriority.UseBorders = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label8.Summary = summary3; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(23.9585F, 4.874992F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.Scripts.OnBeforePrint = "label15_BeforePrint"; + this.label15.SizeF = new System.Drawing.SizeF(429.0417F, 19.875F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(692.9999F, 1.000007F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(391.0005F, 4.749998F); + // + // table4 + // + this.table4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table4.BorderWidth = 2; + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(196.5277F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table4.SizeF = new System.Drawing.SizeF(889.4733F, 64F); + this.table4.StylePriority.UseBorderDashStyle = false; + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseBorderWidth = false; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableCell3 + // + this.tableCell3.BorderWidth = 3; + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label14, + this.label13, + this.label11}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderWidth = false; + this.tableCell3.Weight = 3D; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(23.9585F, 9.999943F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label16.SizeF = new System.Drawing.SizeF(429.0417F, 20.00001F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Mindösszesen:"; + // + // label14 + // + this.label14.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(756.4722F, 9.999996F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(130F, 20.00001F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UsePadding = false; + this.label14.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##0}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label14.Summary = summary4; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(626.4722F, 9.999953F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label13.StylePriority.UseBorders = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##0}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label13.Summary = summary5; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(496.4723F, 9.999953F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label11.StylePriority.UseBorders = false; + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##0}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary6; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // calculatedField1 + // + this.calculatedField1.Expression = "Substring(\'[TrialBalanceHeader.TrialBalance.ShortNameFormatted]\', 0 ,1 )"; + this.calculatedField1.Name = "calculatedField1"; + // + // Egyenleg + // + this.Egyenleg.Expression = "[DebitAmountHUF]-[CreditAmountHUF]"; + this.Egyenleg.Name = "Egyenleg"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader2, + this.GroupFooter2, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.calculatedField1, + this.Egyenleg}); + this.DisplayName = "Főkönyvi kivonat (Összesítés)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Bold); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(39, 44, 12, 26); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Régi).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Régi).repx new file mode 100644 index 0000000..86b604f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Régi).repx @@ -0,0 +1,802 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len1; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule Not_visible; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len2; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len3; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len4; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len5; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len6; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel Header; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel Megnevezés; + private DevExpress.XtraReports.UI.XRLabel Tartozik; + private DevExpress.XtraReports.UI.XRLabel Követel; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA4gAAAAxGAGkAbAB0AGUAcgAMAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAOAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAEAEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQASAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAEwEAAAHfAQ0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iVHJpYWxCYWxhbmNlSGVhZGVyLk9pZD0nIiAmIEhlYWRlci5UZXh0ICYgIiciDQpFbmQgU3ViDQoBKFNJU0J1c2luZXNzLk1vZHVsZS5UcmlhbEJhbGFuY2VPcGVuQ2xvc2UBAAEAAQAAARxGxZFrw7ZueXZpIGtpdm9uYXQgMSAoUsOpZ2kp"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.Header = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.Megnevezés = new DevExpress.XtraReports.UI.XRLabel(); + this.Tartozik = new DevExpress.XtraReports.UI.XRLabel(); + this.Követel = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.Not_visible = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len2 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len3 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len4 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len5 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len6 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label19, + this.label18, + this.label10, + this.label9, + this.label14, + this.label12, + this.label13}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.FormattingRules.Add(this.Not_visible); + this.detailBand1.HeightF = 20.91665F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 19F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 24F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 8F); + this.ReportFooter.HeightF = 181.25F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.Header, + this.label1, + this.pageInfo2, + this.label4, + this.label5, + this.label6, + this.label7, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 132.6667F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + this.PageHeader.StylePriority.UseTextAlignment = false; + this.PageHeader.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label8}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 8F); + this.PageFooter.HeightF = 23F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label17, + this.label16, + this.label15, + this.label2, + this.line1, + this.Megnevezés, + this.Tartozik, + this.Követel, + this.label3}); + this.GroupHeader1.HeightF = 33.41667F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF491", "{0:#,##0}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.FormattingRules.Add(this.Accountnumber_len1); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(241.9586F, 1.335144E-05F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFOpen", "{0:#,##0}")}); + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.FormattingRules.Add(this.Accountnumber_len1); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(361.9586F, 9.059906E-06F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "label19"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF491Open", "{0:#,##0}")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.FormattingRules.Add(this.Accountnumber_len1); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(481.9586F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose", "{0:#,##0}")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F); + this.label10.FormattingRules.Add(this.Accountnumber_len1); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(961.9586F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(126.0411F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF", "{0:#,##0}")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.FormattingRules.Add(this.Accountnumber_len1); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(841.9586F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label14.Font = new System.Drawing.Font("Arial", 9F); + this.label14.FormattingRules.Add(this.Accountnumber_len1); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(721.9586F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.FormattingRules.Add(this.Accountnumber_len1); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(601.9586F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.AutoWidth = true; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.FormattingRules.Add(this.Not_visible); + this.label13.FormattingRules.Add(this.Accountnumber_len2); + this.label13.FormattingRules.Add(this.Accountnumber_len3); + this.label13.FormattingRules.Add(this.Accountnumber_len4); + this.label13.FormattingRules.Add(this.Accountnumber_len1); + this.label13.FormattingRules.Add(this.Accountnumbre_len5); + this.label13.FormattingRules.Add(this.Accountnumbre_len6); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(241.9586F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 44.79167F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Főkönyvi kivonat 1 (Összesítés)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(1088F, 136.4583F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersForm.FullName")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 84.12501F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(1088F, 22.99999F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // Header + // + this.Header.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.Oid")}); + this.Header.LocationFloat = new DevExpress.Utils.PointFloat(0F, 61.12499F); + this.Header.Name = "Header"; + this.Header.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Header.SizeF = new System.Drawing.SizeF(246.875F, 21.875F); + this.Header.Text = "Header"; + this.Header.Visible = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 22.91667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(1088F, 38.20833F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Főkönyvi kivonat"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}. / {1} oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(942.1666F, 84.12501F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(393.75F, 61.12501F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(113.5417F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Főkönyvi dátum:"; + // + // label5 + // + this.label5.AutoWidth = true; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(507.2917F, 61.12501F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(82.29166F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label6 + // + this.label6.AutoWidth = true; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label6.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(604.1667F, 61.12501F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(90.625F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(589.5833F, 61.12501F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(14.58334F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "-"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy. MMMM d.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(942.1664F, 61.12501F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(1088F, 4.791609F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 5F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 4.791609F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(102.3809F, 10.83339F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "SIS Business Framework 2.0"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(481.9586F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UsePadding = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Nyitó"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(361.9586F, 3.178914E-05F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Megel. id. egy."; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(241.9586F, 3.178914E-05F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UsePadding = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "491"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(841.9586F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(120F, 19.99998F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UsePadding = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Id. egyenleg"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20.00001F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // Megnevezés + // + this.Megnevezés.AutoWidth = true; + this.Megnevezés.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Megnevezés.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.Megnevezés.Name = "Megnevezés"; + this.Megnevezés.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Megnevezés.SizeF = new System.Drawing.SizeF(99.99997F, 20F); + this.Megnevezés.StylePriority.UseFont = false; + this.Megnevezés.Text = "Megnevezés"; + // + // Tartozik + // + this.Tartozik.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Tartozik.LocationFloat = new DevExpress.Utils.PointFloat(601.9586F, 0F); + this.Tartozik.Name = "Tartozik"; + this.Tartozik.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Tartozik.SizeF = new System.Drawing.SizeF(120F, 20F); + this.Tartozik.StylePriority.UseFont = false; + this.Tartozik.StylePriority.UseTextAlignment = false; + this.Tartozik.Text = "Tartozik forgalom"; + this.Tartozik.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Követel + // + this.Követel.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Követel.LocationFloat = new DevExpress.Utils.PointFloat(721.9586F, 3.178914E-05F); + this.Követel.Name = "Követel"; + this.Követel.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Követel.SizeF = new System.Drawing.SizeF(120F, 19.99998F); + this.Követel.StylePriority.UseFont = false; + this.Követel.StylePriority.UseTextAlignment = false; + this.Követel.Text = "Követel forgalom"; + this.Követel.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(961.9586F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(126.0411F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UsePadding = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Záró egyenleg"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Not_visible + // + this.Not_visible.Condition = "(IsNull([CreditAmountHUF]) or [CreditAmountHUF]=0) and (IsNull([DebitAmountHUF]) " + + "or [DebitAmountHUF]=0)"; + // + // + // + this.Not_visible.Formatting.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Not_visible.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Not_visible.Name = "Not_visible"; + // + // Accountnumber_len2 + // + this.Accountnumber_len2.Condition = "Len([AccountNumber])=2"; + // + // + // + this.Accountnumber_len2.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(20, 0, 0, 0, 100F); + this.Accountnumber_len2.Name = "Accountnumber_len2"; + // + // Accountnumber_len3 + // + this.Accountnumber_len3.Condition = "Len([AccountNumber])=3"; + // + // + // + this.Accountnumber_len3.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(40, 0, 0, 0, 100F); + this.Accountnumber_len3.Name = "Accountnumber_len3"; + // + // Accountnumber_len4 + // + this.Accountnumber_len4.Condition = "Len([AccountNumber])=4"; + // + // + // + this.Accountnumber_len4.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(60, 0, 0, 0, 100F); + this.Accountnumber_len4.Name = "Accountnumber_len4"; + // + // Accountnumber_len1 + // + this.Accountnumber_len1.Condition = "Len([AccountNumber])=1"; + // + // + // + this.Accountnumber_len1.Formatting.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.Accountnumber_len1.Name = "Accountnumber_len1"; + // + // Accountnumbre_len5 + // + this.Accountnumbre_len5.Condition = "Len([AccountNumber])=5"; + // + // + // + this.Accountnumbre_len5.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(80, 0, 0, 0, 100F); + this.Accountnumbre_len5.Name = "Accountnumbre_len5"; + // + // Accountnumbre_len6 + // + this.Accountnumbre_len6.Condition = "Len([AccountNumber])>=6"; + // + // + // + this.Accountnumbre_len6.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(100, 0, 0, 0, 100F); + this.Accountnumbre_len6.Name = "Accountnumbre_len6"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.PageFooter, + this.GroupHeader1}); + this.DisplayName = "Főkönyvi kivonat 1 (Régi)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Not_visible, + this.Accountnumber_len2, + this.Accountnumber_len3, + this.Accountnumber_len4, + this.Accountnumber_len1, + this.Accountnumbre_len5, + this.Accountnumbre_len6}); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(34, 47, 19, 24); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Összesítés).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Összesítés).repx new file mode 100644 index 0000000..bb0bc84 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1 (Összesítés).repx @@ -0,0 +1,901 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField calculatedField1; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAQEAAAxGAGkAbAB0AGUAcgAlAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAnAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAKQEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQArAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUALAEAAAH+AVByaXZhdGUgU3ViIGxhYmVsMTVfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCg0KaWYgR2V0Q3VycmVudENvbHVtblZhbHVlKCJBY2NvdW50U3VtIik9MCB0aGVuDQogbGFiZWwxNS50ZXh0PSIxLTQgc3rDoW1sYW9zenTDoWx5Ig0KZWxzZQ0KIGxhYmVsMTUudGV4dD0iNS05IHN6w6FtbGFvc3p0w6FseSINCmVuZCBpZg0KRW5kIFN1Yg0KASJTSVNCdXNpbmVzcy5Nb2R1bGUuVHJpYWxCYWxhbmNlU3VtAQABAAEAAAEkRsWRa8O2bnl2aSBraXZvbmF0IDEgKMOWc3N6ZXPDrXTDqXMp"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary7 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary8 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary9 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.calculatedField1 = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table3}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.detailBand1.HeightF = 20F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 64F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 12F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 25.625F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader2 + // + this.GroupHeader2.Expanded = false; + this.GroupHeader2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountSum", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 0F; + this.GroupHeader2.KeepTogether = true; + this.GroupHeader2.Name = "GroupHeader2"; + this.GroupHeader2.RepeatEveryPage = true; + this.GroupHeader2.StylePriority.UseFont = false; + this.GroupHeader2.Visible = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.table2}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupFooter2.HeightF = 40F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.table4}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.GroupFooter1.HeightF = 70.83334F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // table3 + // + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(32.98607F, 0F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table3.SizeF = new System.Drawing.SizeF(1053.015F, 20F); + // + // tableRow3 + // + this.tableRow3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.tableRow3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableRow3.BorderWidth = 2; + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell5}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.StylePriority.UseBorderDashStyle = false; + this.tableRow3.StylePriority.UseBorders = false; + this.tableRow3.StylePriority.UseBorderWidth = false; + this.tableRow3.Weight = 1D; + // + // tableCell5 + // + this.tableCell5.BorderWidth = 3; + this.tableCell5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label22, + this.label4, + this.label3, + this.label2, + this.label6, + this.label5}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorderWidth = false; + this.tableCell5.Weight = 3D; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF", "{0:#,##0}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(778.5573F, 0F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(538.5573F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFOpen", "{0:#,##0}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(418.5572F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.AutoWidth = true; + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(25.34726F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(393.2099F, 20F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose", "{0:#,##0}")}); + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(898.5572F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(129.9999F, 20F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(658.5573F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.table1.BorderWidth = 4; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(32.98607F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(1053.013F, 64F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.tableCell2.BorderWidth = 3; + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label21, + this.label20, + this.label19, + this.label18, + this.label17, + this.label1}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorderDashStyle = false; + this.tableCell2.StylePriority.UseBorderWidth = false; + this.tableCell2.Weight = 3D; + // + // label21 + // + this.label21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(778.5573F, 13F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label21.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "E. forgalom"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(898.5573F, 13F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label20.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "E. záró"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label19 + // + this.label19.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(658.5573F, 13F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label19.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Követel forgalom"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(538.5573F, 13F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label18.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Tartozik forgalom"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label17.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(418.5572F, 13F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label17.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "E. nyitó"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 11F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Underline)))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(25.34722F, 12.99999F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(393.21F, 20F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.Text = "Számlaosztály összesítő"; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(451.5433F, 0F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(632.4567F, 2.000006F); + // + // table2 + // + this.table2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table2.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.table2.BorderWidth = 2; + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(32.98607F, 0F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table2.SizeF = new System.Drawing.SizeF(1053.015F, 39.99999F); + this.table2.StylePriority.UseBorderDashStyle = false; + this.table2.StylePriority.UseBorders = false; + this.table2.StylePriority.UseBorderWidth = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.6000001541940987D; + // + // tableCell1 + // + this.tableCell1.BorderWidth = 3; + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label23, + this.label10, + this.label9, + this.label8, + this.label7, + this.label15}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderWidth = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(778.5573F, 4.999987F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label23.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label23.Summary = summary1; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(898.5571F, 4.999987F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(130F, 20F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary2; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(658.5573F, 4.749998F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label9.StylePriority.UseBorders = false; + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label9.Summary = summary3; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(538.5573F, 4.749998F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label8.StylePriority.UseBorders = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##0}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label8.Summary = summary4; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFOpen")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(418.5572F, 4.999987F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##0}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label7.Summary = summary5; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label15 + // + this.label15.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(51.04166F, 4.874992F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.Scripts.OnBeforePrint = "label15_BeforePrint"; + this.label15.SizeF = new System.Drawing.SizeF(367.5156F, 19.875F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(451.5428F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(632.4572F, 2F); + // + // table4 + // + this.table4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Double; + this.table4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table4.BorderWidth = 2; + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(32.98607F, 0F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4}); + this.table4.SizeF = new System.Drawing.SizeF(1053.013F, 64F); + this.table4.StylePriority.UseBorderDashStyle = false; + this.table4.StylePriority.UseBorders = false; + this.table4.StylePriority.UseBorderWidth = false; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell3}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableCell3 + // + this.tableCell3.BorderWidth = 3; + this.tableCell3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.label16, + this.label12, + this.label14, + this.label13, + this.label11}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderWidth = false; + this.tableCell3.Weight = 3D; + // + // label24 + // + this.label24.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(778.5573F, 10.00001F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label24.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##0}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label24.Summary = summary6; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label16 + // + this.label16.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label16.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(51.04166F, 9.999943F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(367.5156F, 20.00001F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Mindösszesen:"; + // + // label12 + // + this.label12.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFOpen", "{0:#,##0}")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(418.5572F, 9.999996F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label12.StylePriority.UseBorders = false; + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose")}); + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(898.5571F, 9.999996F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(130F, 20.00001F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + summary7.FormatString = "{0:#,##0}"; + summary7.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label14.Summary = summary7; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(658.5573F, 9.999953F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label13.StylePriority.UseBorders = false; + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + summary8.FormatString = "{0:#,##0}"; + summary8.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label13.Summary = summary8; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(538.5573F, 9.999953F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label11.StylePriority.UseBorders = false; + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary9.FormatString = "{0:#,##0}"; + summary9.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary9; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // calculatedField1 + // + this.calculatedField1.Expression = "Substring(\'[TrialBalanceHeader.TrialBalance.ShortNameFormatted]\', 0 ,1 )"; + this.calculatedField1.Name = "calculatedField1"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader2, + this.GroupFooter2, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.calculatedField1}); + this.DisplayName = "Főkönyvi kivonat 1 (Összesítés)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Bold); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(39, 44, 12, 26); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1.repx new file mode 100644 index 0000000..3ef6a7b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat 1.repx @@ -0,0 +1,700 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\sis\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len2; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len3; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len4; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len5; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len6; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel Header; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel Megnevezés; + private DevExpress.XtraReports.UI.XRLabel Tartozik; + private DevExpress.XtraReports.UI.XRLabel Követel; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.FormattingRule Not_visible; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA4gAAAAxGAGkAbAB0AGUAcgAMAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAOAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAEAEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQASAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAEwEAAAHfAQ0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iVHJpYWxCYWxhbmNlSGVhZGVyLk9pZD0nIiAmIEhlYWRlci5UZXh0ICYgIiciDQpFbmQgU3ViDQoBKFNJU0J1c2luZXNzLk1vZHVsZS5UcmlhbEJhbGFuY2VPcGVuQ2xvc2UBAAEAAQAAARRGxZFrw7ZueXZpIGtpdm9uYXQgMQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.Header = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.Megnevezés = new DevExpress.XtraReports.UI.XRLabel(); + this.Tartozik = new DevExpress.XtraReports.UI.XRLabel(); + this.Követel = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.Not_visible = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len2 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len3 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len4 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len5 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len6 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label10, + this.label14, + this.label12, + this.label13}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 20.91665F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 19F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 24F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 8F); + this.ReportFooter.HeightF = 181.25F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.Header, + this.label1, + this.pageInfo2, + this.label4, + this.label5, + this.label6, + this.label7, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 132.6667F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + this.PageHeader.StylePriority.UseTextAlignment = false; + this.PageHeader.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label8}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 8F); + this.PageFooter.HeightF = 23F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label15, + this.line1, + this.Megnevezés, + this.Tartozik, + this.Követel, + this.label3}); + this.GroupHeader1.HeightF = 33.41667F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF491", "{0:#,##0}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.FormattingRules.Add(this.Accountnumber_len1); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(500F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUFClose", "{0:#,##0}")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F); + this.label10.FormattingRules.Add(this.Accountnumber_len1); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(950F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(126.0411F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label14.Font = new System.Drawing.Font("Arial", 9F); + this.label14.FormattingRules.Add(this.Accountnumber_len1); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(800F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.FormattingRules.Add(this.Accountnumber_len1); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(650F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120F, 20.00001F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.AutoWidth = true; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.FormattingRules.Add(this.Accountnumber_len2); + this.label13.FormattingRules.Add(this.Accountnumber_len3); + this.label13.FormattingRules.Add(this.Accountnumber_len4); + this.label13.FormattingRules.Add(this.Accountnumber_len1); + this.label13.FormattingRules.Add(this.Accountnumbre_len5); + this.label13.FormattingRules.Add(this.Accountnumbre_len6); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(490F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 44.79167F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Főkönyvi kivonat 1 (Összesítés)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(1088F, 136.4583F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersForm.FullName")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 84.12501F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(1088F, 22.99999F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UsePadding = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // Header + // + this.Header.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.Oid")}); + this.Header.LocationFloat = new DevExpress.Utils.PointFloat(0F, 61.12499F); + this.Header.Name = "Header"; + this.Header.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Header.SizeF = new System.Drawing.SizeF(246.875F, 21.875F); + this.Header.Text = "Header"; + this.Header.Visible = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 22.91667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(1088F, 38.20833F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Főkönyvi kivonat"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}. / {1} oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(942.1666F, 84.12501F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(393.75F, 61.12501F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(113.5417F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Főkönyvi dátum:"; + // + // label5 + // + this.label5.AutoWidth = true; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(507.2917F, 61.12501F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(82.29166F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label6 + // + this.label6.AutoWidth = true; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label6.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(604.1667F, 61.12501F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(90.625F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(589.5833F, 61.12501F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(14.58334F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "-"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy. MMMM d.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(942.1664F, 61.12501F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(1088F, 4.791609F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 5F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 4.791609F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(102.3809F, 10.83339F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "SIS Business Framework 2.0"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(500F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 5, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(120F, 20F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UsePadding = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Éves nyitó"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20.00001F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // Megnevezés + // + this.Megnevezés.AutoWidth = true; + this.Megnevezés.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Megnevezés.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.Megnevezés.Name = "Megnevezés"; + this.Megnevezés.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Megnevezés.SizeF = new System.Drawing.SizeF(99.99997F, 20F); + this.Megnevezés.StylePriority.UseFont = false; + this.Megnevezés.Text = "Megnevezés"; + // + // Tartozik + // + this.Tartozik.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Tartozik.LocationFloat = new DevExpress.Utils.PointFloat(634.375F, 0F); + this.Tartozik.Name = "Tartozik"; + this.Tartozik.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Tartozik.SizeF = new System.Drawing.SizeF(135.625F, 20F); + this.Tartozik.StylePriority.UseFont = false; + this.Tartozik.StylePriority.UseTextAlignment = false; + this.Tartozik.Text = "Tartozik forgalom"; + this.Tartozik.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Követel + // + this.Követel.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Követel.LocationFloat = new DevExpress.Utils.PointFloat(800F, 0F); + this.Követel.Name = "Követel"; + this.Követel.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Követel.SizeF = new System.Drawing.SizeF(120F, 19.99998F); + this.Követel.StylePriority.UseFont = false; + this.Követel.StylePriority.UseTextAlignment = false; + this.Követel.Text = "Követel forgalom"; + this.Követel.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(950F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(126.0411F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UsePadding = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Záró egyenleg"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Not_visible + // + this.Not_visible.Condition = "(IsNull([CreditAmountHUF]) or [CreditAmountHUF]=0) and (IsNull([DebitAmountHUF]) " + + "or [DebitAmountHUF]=0)"; + // + // + // + this.Not_visible.Formatting.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Not_visible.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Not_visible.Name = "Not_visible"; + // + // Accountnumber_len2 + // + this.Accountnumber_len2.Condition = "Len([AccountNumber])=2"; + // + // + // + this.Accountnumber_len2.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(20, 0, 0, 0, 100F); + this.Accountnumber_len2.Name = "Accountnumber_len2"; + // + // Accountnumber_len3 + // + this.Accountnumber_len3.Condition = "Len([AccountNumber])=3"; + // + // + // + this.Accountnumber_len3.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(40, 0, 0, 0, 100F); + this.Accountnumber_len3.Name = "Accountnumber_len3"; + // + // Accountnumber_len4 + // + this.Accountnumber_len4.Condition = "Len([AccountNumber])=4"; + // + // + // + this.Accountnumber_len4.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(60, 0, 0, 0, 100F); + this.Accountnumber_len4.Name = "Accountnumber_len4"; + // + // Accountnumber_len1 + // + this.Accountnumber_len1.Condition = "Len([AccountNumber])=1"; + // + // + // + this.Accountnumber_len1.Formatting.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.Accountnumber_len1.Name = "Accountnumber_len1"; + // + // Accountnumbre_len5 + // + this.Accountnumbre_len5.Condition = "Len([AccountNumber])=5"; + // + // + // + this.Accountnumbre_len5.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(80, 0, 0, 0, 100F); + this.Accountnumbre_len5.Name = "Accountnumbre_len5"; + // + // Accountnumbre_len6 + // + this.Accountnumbre_len6.Condition = "Len([AccountNumber])>=6"; + // + // + // + this.Accountnumbre_len6.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(100, 0, 0, 0, 100F); + this.Accountnumbre_len6.Name = "Accountnumbre_len6"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.PageFooter, + this.GroupHeader1}); + this.DisplayName = "Főkönyvi kivonat 1"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Not_visible, + this.Accountnumber_len2, + this.Accountnumber_len3, + this.Accountnumber_len4, + this.Accountnumber_len1, + this.Accountnumbre_len5, + this.Accountnumbre_len6}); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(34, 47, 19, 24); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat.repx new file mode 100644 index 0000000..88e59d7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Főkönyvi kivonat.repx @@ -0,0 +1,698 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Users\sis\AppData\Roaming\SIS\Active\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule Not_visible; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len2; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len3; + private DevExpress.XtraReports.UI.FormattingRule Accountnumber_len4; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len5; + private DevExpress.XtraReports.UI.FormattingRule Accountnumbre_len6; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel Header; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel Megnevezés; + private DevExpress.XtraReports.UI.XRLabel Tartozik; + private DevExpress.XtraReports.UI.XRLabel Követel; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA4gAAAAxGAGkAbAB0AGUAcgADAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAFAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcABwEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAJAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUACgEAAAHfAQ0KUHJpdmF0ZSBTdWIgc3VicmVwb3J0MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb3J0U291cmNlLkZpbHRlclN0cmluZz0iVHJpYWxCYWxhbmNlSGVhZGVyLk9pZD0nIiAmIEhlYWRlci5UZXh0ICYgIiciDQpFbmQgU3ViDQoBH1NJU0J1c2luZXNzLk1vZHVsZS5UcmlhbEJhbGFuY2UBAAEAAQAAARJGxZFrw7ZueXZpIGtpdm9uYXQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.Header = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.Megnevezés = new DevExpress.XtraReports.UI.XRLabel(); + this.Tartozik = new DevExpress.XtraReports.UI.XRLabel(); + this.Követel = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.Not_visible = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len2 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len3 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len4 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumber_len1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len5 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Accountnumbre_len6 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label9, + this.label14, + this.label12, + this.label13}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 20.00001F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("AccountNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 19F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 24F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 8F); + this.ReportFooter.HeightF = 181.25F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBand; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.Header, + this.label1, + this.pageInfo2, + this.label4, + this.label5, + this.label6, + this.label7, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 132.6667F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + this.PageHeader.StylePriority.UseTextAlignment = false; + this.PageHeader.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label8}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 8F); + this.PageFooter.HeightF = 23F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.line1, + this.Megnevezés, + this.Tartozik, + this.Követel, + this.label3}); + this.GroupHeader1.HeightF = 29.16667F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditRAmountHUF", "{0:#,##0}")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F); + this.label10.FormattingRules.Add(this.Accountnumber_len1); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(938F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(145F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitRAmountHUF", "{0:#,##0}")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.FormattingRules.Add(this.Accountnumber_len1); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(788F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(150F, 20.00001F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CreditAmountHUF", "{0:#,##0}")}); + this.label14.Font = new System.Drawing.Font("Arial", 9F); + this.label14.FormattingRules.Add(this.Accountnumber_len1); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(638F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(150F, 20.00001F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DebitAmountHUF", "{0:#,##0}")}); + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.FormattingRules.Add(this.Accountnumber_len1); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(488F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(150F, 20.00001F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.AutoWidth = true; + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.FormattingRules.Add(this.Not_visible); + this.label13.FormattingRules.Add(this.Accountnumber_len2); + this.label13.FormattingRules.Add(this.Accountnumber_len3); + this.label13.FormattingRules.Add(this.Accountnumber_len4); + this.label13.FormattingRules.Add(this.Accountnumber_len1); + this.label13.FormattingRules.Add(this.Accountnumbre_len5); + this.label13.FormattingRules.Add(this.Accountnumbre_len6); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(488F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 44.79167F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Főkönyvi kivonat (Összesítés)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(1088F, 136.4583F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersForm.FullName")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 84.12501F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(1088F, 22.99999F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // Header + // + this.Header.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.Oid")}); + this.Header.LocationFloat = new DevExpress.Utils.PointFloat(0F, 61.12499F); + this.Header.Name = "Header"; + this.Header.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Header.SizeF = new System.Drawing.SizeF(246.875F, 21.875F); + this.Header.Text = "Header"; + this.Header.Visible = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 22.91667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(1088F, 38.20833F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Főkönyvi kivonat"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}. / {1} oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(942.1666F, 84.12501F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 10F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(393.75F, 61.12501F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(113.5417F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Főkönyvi dátum:"; + // + // label5 + // + this.label5.AutoWidth = true; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(507.2917F, 61.12501F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(82.29166F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label6 + // + this.label6.AutoWidth = true; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "TrialBalanceHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label6.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(604.1667F, 61.12501F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(90.625F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(589.5833F, 61.12501F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(14.58334F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "-"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy. MMMM d.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(942.1664F, 61.12501F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(145.8333F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(1088F, 4.791609F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 5F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 4.791609F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(102.3809F, 10.83339F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "SIS Business Framework 2.0"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(788F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(150.0001F, 19.99998F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Tartozik egyenleg"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20.00001F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(1088F, 3.833313F); + // + // Megnevezés + // + this.Megnevezés.AutoWidth = true; + this.Megnevezés.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Megnevezés.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 0F); + this.Megnevezés.Name = "Megnevezés"; + this.Megnevezés.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Megnevezés.SizeF = new System.Drawing.SizeF(99.99997F, 20F); + this.Megnevezés.StylePriority.UseFont = false; + this.Megnevezés.Text = "Megnevezés"; + // + // Tartozik + // + this.Tartozik.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Tartozik.LocationFloat = new DevExpress.Utils.PointFloat(488F, 0F); + this.Tartozik.Name = "Tartozik"; + this.Tartozik.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Tartozik.SizeF = new System.Drawing.SizeF(150F, 20F); + this.Tartozik.StylePriority.UseFont = false; + this.Tartozik.StylePriority.UseTextAlignment = false; + this.Tartozik.Text = "Tartozik forgalom"; + this.Tartozik.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Követel + // + this.Követel.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.Követel.LocationFloat = new DevExpress.Utils.PointFloat(638F, 0F); + this.Követel.Name = "Követel"; + this.Követel.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Követel.SizeF = new System.Drawing.SizeF(150F, 19.99998F); + this.Követel.StylePriority.UseFont = false; + this.Követel.StylePriority.UseTextAlignment = false; + this.Követel.Text = "Követel forgalom"; + this.Követel.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(938F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(147F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Követel egyenleg"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Not_visible + // + this.Not_visible.Condition = "(IsNull([CreditAmountHUF]) or [CreditAmountHUF]=0) and (IsNull([DebitAmountHUF]) " + + "or [DebitAmountHUF]=0)"; + // + // + // + this.Not_visible.Formatting.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Not_visible.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Not_visible.Name = "Not_visible"; + // + // Accountnumber_len2 + // + this.Accountnumber_len2.Condition = "Len([AccountNumber])=2"; + // + // + // + this.Accountnumber_len2.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(20, 0, 0, 0, 100F); + this.Accountnumber_len2.Name = "Accountnumber_len2"; + // + // Accountnumber_len3 + // + this.Accountnumber_len3.Condition = "Len([AccountNumber])=3"; + // + // + // + this.Accountnumber_len3.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(40, 0, 0, 0, 100F); + this.Accountnumber_len3.Name = "Accountnumber_len3"; + // + // Accountnumber_len4 + // + this.Accountnumber_len4.Condition = "Len([AccountNumber])=4"; + // + // + // + this.Accountnumber_len4.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(60, 0, 0, 0, 100F); + this.Accountnumber_len4.Name = "Accountnumber_len4"; + // + // Accountnumber_len1 + // + this.Accountnumber_len1.Condition = "Len([AccountNumber])=1"; + // + // + // + this.Accountnumber_len1.Formatting.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.Accountnumber_len1.Name = "Accountnumber_len1"; + // + // Accountnumbre_len5 + // + this.Accountnumbre_len5.Condition = "Len([AccountNumber])=5"; + // + // + // + this.Accountnumbre_len5.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(80, 0, 0, 0, 100F); + this.Accountnumbre_len5.Name = "Accountnumbre_len5"; + // + // Accountnumbre_len6 + // + this.Accountnumbre_len6.Condition = "Len([AccountNumber])>=6"; + // + // + // + this.Accountnumbre_len6.Formatting.Padding = new DevExpress.XtraPrinting.PaddingInfo(100, 0, 0, 0, 100F); + this.Accountnumbre_len6.Name = "Accountnumbre_len6"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.PageFooter, + this.GroupHeader1}); + this.DisplayName = "Főkönyvi kivonat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Not_visible, + this.Accountnumber_len2, + this.Accountnumber_len3, + this.Accountnumber_len4, + this.Accountnumber_len1, + this.Accountnumbre_len5, + this.Accountnumbre_len6}); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(34, 47, 19, 24); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő (devizás).repx new file mode 100644 index 0000000..fb9bef0 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő (devizás).repx @@ -0,0 +1,1026 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo3; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField _Forgalom; + private DevExpress.XtraReports.UI.CalculatedField _Összesen_Befizetés; + private DevExpress.XtraReports.UI.CalculatedField _Összes_Kifizetés; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAfwQAAAxGAGkAbAB0AGUAcgCqBAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCsBAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcArgQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCwBAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAsQQAAAH8CCdJbXBvcnRzIERldkV4cHJlc3MuWHBvIA0KJ0ltcG9yd" + + "HMgU0lTQnVzaW5lc3MuTW9kdWxlDQonSW1wb3J0cyBEZXZFeHByZXNzLlh0cmFSZXBvcnRzLlVJDQoNC" + + "idGcmllbmQgU2hhcmVkIF9BbW91bnQxIEFzIERlY2ltYWw9IDANCidGcmllbmQgU2hhcmVkIF9BbW91b" + + "nQyIEFzIERlY2ltYWw9IDANCidQcml2YXRlIFN1YiBPbkJlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBc" + + "yBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpD" + + "QonICAgIERpbSByZXBvcnQgQXMgWHRyYVJlcG9ydCA9IENUeXBlKHNlbmRlciwgWHRyYVJlcG9ydCkNC" + + "icgICAgRGltIGNvbCBBcyBYUENvbGxlY3Rpb24gPSBUcnlDYXN0KHJlcG9ydC5EYXRhU291cmNlLCBYU" + + "ENvbGxlY3Rpb24pDQonICAgIEZvciBFYWNoIG9iaiBhcyBMaXF1aWRBc3NldHNSZXR1cm5Sb3dzIGluI" + + "GNvbA0KJwlfQW1vdW50MT1vYmouR0xDYXNzYS5Ub3RhbEluQW1vdW50SFVGDQonCV9BbW91bnQyPW9ia" + + "i5HTENhc3NhLlRvdGFsT3V0QW1vdW50SFVGDQonICAgIE5leHQgb2JqDQonbGFiZWw0MS50ZXh0ID3Co" + + "CIxMTEiICdfQW1vdW50MS50b3N0cmluZw0KJ0VuZCBTdWIgDQoNClByaXZhdGUgU3ViIGxhYmVsNDFfQ" + + "mVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZ" + + "y5QcmludGluZy5QcmludEV2ZW50QXJncykNCglEaW0gX1RvdGFsIGFzIGRvdWJsZQ0KDQoJX1RvdGFsI" + + "D3CoGNvbnZlcnQuVG9Eb3VibGUobGFiZWwzNS5zdW1tYXJ5LmdldHJlc3VsdCgpKStjb252ZXJ0LlRvR" + + "G91YmxlKGxhYmVsMzcuVGV4dCkNCglzZW5kZXIudGV4dD1fVG90YWwuVG9TdHJpbmcoIm4yIikNCkVuZ" + + "CBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZWw0Ml9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZ" + + "WN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KCURpb" + + "SBfVG90YWwgYXMgZG91YmxlDQoNCglfVG90YWwgPcKgY29udmVydC5Ub0RvdWJsZShsYWJlbDM2LnN1b" + + "W1hcnkuZ2V0cmVzdWx0KCkpK2NvbnZlcnQuVG9Eb3VibGUobGFiZWw0MC5UZXh0KQ0KCXNlbmRlci50Z" + + "Xh0PV9Ub3RhbC5Ub1N0cmluZygibjIiKQ0KRW5kIFN1Yg0KASlTSVNCdXNpbmVzcy5Nb2R1bGUuTGlxd" + + "WlkQXNzZXRzUmV0dXJuUm93cwEAAQABAAABKklkxZFzemFraSBww6luenTDoXLDtnNzemVzw610xZEgK" + + "GRldml6w6FzKQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo3 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this._Forgalom = new DevExpress.XtraReports.UI.CalculatedField(); + this._Összesen_Befizetés = new DevExpress.XtraReports.UI.CalculatedField(); + this._Összes_Kifizetés = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label33, + this.label32, + this.label31, + this.label30, + this.label29, + this.label12}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 24.7083F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("GLCassa.DateExecution", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label38, + this.label13, + this.pageInfo2, + this.label24, + this.table1, + this.label21, + this.label20, + this.label9, + this.label2, + this.label1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 353.2917F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label37, + this.label36, + this.label35, + this.label28, + this.label27, + this.label26, + this.label25}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 144.7917F; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.Scripts.OnBeforePrint = "ReportFooter_BeforePrint"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageInfo3}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 9F); + this.PageFooter.HeightF = 25F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.Scripts.OnBeforePrint = "ReportFooter_BeforePrint"; + this.PageFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label14, + this.label15, + this.label16, + this.label17, + this.label19, + this.line1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 9F); + this.PageHeader.HeightF = 38.54167F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalOutAmountDEV", "{0:#,0.00}")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 0F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalInAmountDEV", "{0:#,0.00}")}); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 0F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "label32"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.DocumentNumber")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(417.0832F, 0F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(110F, 23.00002F); + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.NoteHeader")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(267.0832F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(150F, 23.00002F); + this.label30.Text = "label30"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(1.041698F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label29.Text = "label29"; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.CashHandler")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(102.0832F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(165F, 23.00002F); + this.label12.Text = "label12"; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(340F, 121.875F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(70.83328F, 23F); + this.label38.StylePriority.UseFont = false; + this.label38.Text = "Pénznem:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.CurrencyName.ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(410.8333F, 121.875F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(39.16672F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // pageInfo2 + // + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(597.8334F, 167.875F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo2.SizeF = new System.Drawing.SizeF(129.1666F, 22.99998F); + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(597.8334F, 144.875F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(129.1666F, 23.00002F); + this.label24.StylePriority.UseFont = false; + this.label24.Text = "Létrehozás dátuma:"; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 144.875F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(450F, 175F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateTo", "{0:yyyy.MM.dd}-ig")}); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(367F, 65.70832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(360F, 23F); + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateFrom", "{0:yyyy.MM.dd}-tól")}); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 65.70832F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(360F, 23F); + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.33333F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(727F, 32.375F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Időszaki pénztárösszesítő"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.LiquidAssets.Description")}); + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(88.49999F, 121.875F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(251.5F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 121.875F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(88.5F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "Pénzeszköz:"; + // + // tableRow1 + // + this.tableRow1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.StylePriority.UseBorders = false; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label23, + this.line3, + this.label22, + this.label3, + this.label4, + this.line2, + this.label5, + this.label6, + this.label7, + this.label8, + this.label10, + this.label11}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3.1532846715328469D; + // + // label34 + // + this.label34.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_Forgalom", "{0:#,0.00}")}); + this.label34.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(126F, 152F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label34.SizeF = new System.Drawing.SizeF(314F, 23F); + this.label34.StylePriority.UseBorders = false; + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152.0001F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label23.SizeF = new System.Drawing.SizeF(126F, 22.99994F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Forgalom:"; + // + // line3 + // + this.line3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 135F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(450F, 10F); + this.line3.StylePriority.UseBorders = false; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999969F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label22.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.Text = "Pénzforgalom:"; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 32.99999F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Nyitó pénzkészlet:"; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.00001F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Nyitó dátum:"; + // + // line2 + // + this.line2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(450F, 10F); + this.line2.StylePriority.UseBorders = false; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 89F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(126F, 23.00001F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Záró pénzkészlet:"; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 112F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Záró dátum:"; + // + // label7 + // + this.label7.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceFromDEV", "{0:#,0.00}")}); + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(126F, 33F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(314F, 22.99998F); + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label8.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(126F, 55.99998F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(314F, 23.00002F); + this.label8.StylePriority.UseBorders = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceToDEV", "{0:#,0.00}")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(126F, 89F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(314F, 22.99995F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(126F, 111.9999F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(314F, 23.00006F); + this.label11.StylePriority.UseBorders = false; + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.Font = new System.Drawing.Font("Arial", 10F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 108.5417F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.Scripts.OnBeforePrint = "label42_BeforePrint"; + this.label42.Scripts.OnEvaluateBinding = "label42_EvaluateBinding"; + this.label42.Scripts.OnSummaryCalculated = "label42_SummaryCalculated"; + this.label42.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 10F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 108.5417F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.Scripts.OnBeforePrint = "label41_BeforePrint"; + this.label41.Scripts.OnPreviewDoubleClick = "label41_PreviewDoubleClick"; + this.label41.Scripts.OnSummaryGetResult = "label41_SummaryGetResult"; + this.label41.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label40 + // + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceToDEV", "{0:#,0.00}")}); + this.label40.Font = new System.Drawing.Font("Arial", 10F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 85.54173F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.Scripts.OnBeforePrint = "label40_BeforePrint"; + this.label40.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "label40"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceFromDEV", "{0:#,0.00}")}); + this.label37.Font = new System.Drawing.Font("Arial", 10F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 62.54174F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "label37"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalOutAmountDEV")}); + this.label36.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 39.54172F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.Scripts.OnEvaluateBinding = "label36_EvaluateBinding"; + this.label36.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label36.Summary = summary1; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalInAmountHUF")}); + this.label35.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 39.54172F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.Scripts.OnBeforePrint = "label35_BeforePrint"; + this.label35.Scripts.OnEvaluateBinding = "label35_EvaluateBinding"; + this.label35.Scripts.OnSummaryCalculated = "label35_SummaryCalculated"; + this.label35.Scripts.OnSummaryGetResult = "label35_SummaryGetResult"; + this.label35.Scripts.OnSummaryRowChanged = "label35_SummaryRowChanged"; + this.label35.Scripts.OnTextChanged = "label35_TextChanged"; + this.label35.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label35.Summary = summary2; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 108.5417F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label28.Text = "Összesen:"; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 10F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 85.54173F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Záró pénzkészlet:"; + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Arial", 10F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 62.54171F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label26.StylePriority.UseFont = false; + this.label26.Text = "Kezdő pénzkészlet:"; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 39.54169F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label25.StylePriority.UseFont = false; + this.label25.Text = "Forgalom:"; + // + // pageInfo3 + // + this.pageInfo3.Format = "{0}. oldal"; + this.pageInfo3.LocationFloat = new DevExpress.Utils.PointFloat(627F, 0F); + this.pageInfo3.Name = "pageInfo3"; + this.pageInfo3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo3.StylePriority.UseTextAlignment = false; + this.pageInfo3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Befizetés"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(2.083333F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Dátum"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(102.0832F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(165F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Ügyfél"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(267.0832F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(150F, 23F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Szöveg"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(417.0832F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(110F, 23F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "P. biz. sorszáma"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(627.0832F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(99.91681F, 23F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Kifizetés"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041707F, 23.00002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(725.9583F, 10F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // _Forgalom + // + this._Forgalom.Expression = "[LiquidAssetsReturnHeader.BallanceToHUF]-[LiquidAssetsReturnHeader.BallanceFromHU" + + "F]"; + this._Forgalom.Name = "_Forgalom"; + // + // _Összesen_Befizetés + // + this._Összesen_Befizetés.Name = "_Összesen_Befizetés"; + // + // _Összes_Kifizetés + // + this._Összes_Kifizetés.Expression = "Sum([GLRows.InAmountHUF])+[LiquidAssetsReturnHeader.BallanceFromHUF]"; + this._Összes_Kifizetés.Name = "_Összes_Kifizetés"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageFooter, + this.PageHeader}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this._Forgalom, + this._Összesen_Befizetés, + this._Összes_Kifizetés}); + this.DisplayName = "Időszaki pénztárösszesítő (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 50, 50); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő.repx new file mode 100644 index 0000000..26a9b85 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Időszaki pénztárösszesítő.repx @@ -0,0 +1,1025 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.PageFooterBand PageFooter; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo3; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField _Forgalom; + private DevExpress.XtraReports.UI.CalculatedField _Összesen_Befizetés; + private DevExpress.XtraReports.UI.CalculatedField _Összes_Kifizetés; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAfwQAAAxGAGkAbAB0AGUAcgCqBAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCsBAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcArgQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCwBAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAsQQAAAH8CCdJbXBvcnRzIERldkV4cHJlc3MuWHBvIA0KJ0ltcG9yd" + + "HMgU0lTQnVzaW5lc3MuTW9kdWxlDQonSW1wb3J0cyBEZXZFeHByZXNzLlh0cmFSZXBvcnRzLlVJDQoNC" + + "idGcmllbmQgU2hhcmVkIF9BbW91bnQxIEFzIERlY2ltYWw9IDANCidGcmllbmQgU2hhcmVkIF9BbW91b" + + "nQyIEFzIERlY2ltYWw9IDANCidQcml2YXRlIFN1YiBPbkJlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBc" + + "yBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpD" + + "QonICAgIERpbSByZXBvcnQgQXMgWHRyYVJlcG9ydCA9IENUeXBlKHNlbmRlciwgWHRyYVJlcG9ydCkNC" + + "icgICAgRGltIGNvbCBBcyBYUENvbGxlY3Rpb24gPSBUcnlDYXN0KHJlcG9ydC5EYXRhU291cmNlLCBYU" + + "ENvbGxlY3Rpb24pDQonICAgIEZvciBFYWNoIG9iaiBhcyBMaXF1aWRBc3NldHNSZXR1cm5Sb3dzIGluI" + + "GNvbA0KJwlfQW1vdW50MT1vYmouR0xDYXNzYS5Ub3RhbEluQW1vdW50SFVGDQonCV9BbW91bnQyPW9ia" + + "i5HTENhc3NhLlRvdGFsT3V0QW1vdW50SFVGDQonICAgIE5leHQgb2JqDQonbGFiZWw0MS50ZXh0ID3Co" + + "CIxMTEiICdfQW1vdW50MS50b3N0cmluZw0KJ0VuZCBTdWIgDQoNClByaXZhdGUgU3ViIGxhYmVsNDFfQ" + + "mVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZ" + + "y5QcmludGluZy5QcmludEV2ZW50QXJncykNCglEaW0gX1RvdGFsIGFzIGRvdWJsZQ0KDQoJX1RvdGFsI" + + "D3CoGNvbnZlcnQuVG9Eb3VibGUobGFiZWwzNS5zdW1tYXJ5LmdldHJlc3VsdCgpKStjb252ZXJ0LlRvR" + + "G91YmxlKGxhYmVsMzcuVGV4dCkNCglzZW5kZXIudGV4dD1fVG90YWwuVG9TdHJpbmcoIm4yIikNCkVuZ" + + "CBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZWw0Ml9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZ" + + "WN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KCURpb" + + "SBfVG90YWwgYXMgZG91YmxlDQoNCglfVG90YWwgPcKgY29udmVydC5Ub0RvdWJsZShsYWJlbDM2LnN1b" + + "W1hcnkuZ2V0cmVzdWx0KCkpK2NvbnZlcnQuVG9Eb3VibGUobGFiZWw0MC5UZXh0KQ0KCXNlbmRlci50Z" + + "Xh0PV9Ub3RhbC5Ub1N0cmluZygibjIiKQ0KRW5kIFN1Yg0KASlTSVNCdXNpbmVzcy5Nb2R1bGUuTGlxd" + + "WlkQXNzZXRzUmV0dXJuUm93cwEAAQABAAABH0lkxZFzemFraSBww6luenTDoXLDtnNzemVzw610xZE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo3 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this._Forgalom = new DevExpress.XtraReports.UI.CalculatedField(); + this._Összesen_Befizetés = new DevExpress.XtraReports.UI.CalculatedField(); + this._Összes_Kifizetés = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label33, + this.label32, + this.label31, + this.label30, + this.label29, + this.label12}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 24.7083F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("GLCassa.DateExecution", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label38, + this.label13, + this.pageInfo2, + this.label24, + this.table1, + this.label21, + this.label20, + this.label9, + this.label2, + this.label1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 353.2917F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42, + this.label41, + this.label40, + this.label37, + this.label36, + this.label35, + this.label28, + this.label27, + this.label26, + this.label25}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 144.7917F; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.Scripts.OnBeforePrint = "ReportFooter_BeforePrint"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageFooter + // + this.PageFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageInfo3}); + this.PageFooter.Font = new System.Drawing.Font("Arial", 9F); + this.PageFooter.HeightF = 25F; + this.PageFooter.Name = "PageFooter"; + this.PageFooter.Scripts.OnBeforePrint = "ReportFooter_BeforePrint"; + this.PageFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label14, + this.label15, + this.label16, + this.label17, + this.label19, + this.line1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 9F); + this.PageHeader.HeightF = 38.54167F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalOutAmountHUF", "{0:#,0.00}")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 0F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalInAmountHUF", "{0:#,0.00}")}); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 0F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "label32"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.DocumentNumber")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(417.0832F, 0F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(110F, 23.00002F); + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.NoteHeader")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(267.0832F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(150F, 23.00002F); + this.label30.Text = "label30"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(1.041698F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label29.Text = "label29"; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.CashHandler")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(102.0832F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(165F, 23.00002F); + this.label12.Text = "label12"; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(340F, 121.875F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label38.SizeF = new System.Drawing.SizeF(70.83328F, 23F); + this.label38.StylePriority.UseFont = false; + this.label38.Text = "Pénznem:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.CurrencyName.ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(410.8333F, 121.875F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label13.SizeF = new System.Drawing.SizeF(39.16672F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // pageInfo2 + // + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(597.8334F, 167.875F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo2.SizeF = new System.Drawing.SizeF(129.1666F, 22.99998F); + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(597.8334F, 144.875F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(129.1666F, 23.00002F); + this.label24.StylePriority.UseFont = false; + this.label24.Text = "Létrehozás dátuma:"; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 144.875F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(450F, 175F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateTo", "{0:yyyy.MM.dd}-ig")}); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(367F, 65.70832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(360F, 23F); + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateFrom", "{0:yyyy.MM.dd}-tól")}); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 65.70832F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(360F, 23F); + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.33333F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(727F, 32.375F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Időszaki pénztárösszesítő"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.LiquidAssets.Description")}); + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(88.49999F, 121.875F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(251.5F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 121.875F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(88.5F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "Pénzeszköz:"; + // + // tableRow1 + // + this.tableRow1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.StylePriority.UseBorders = false; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label23, + this.line3, + this.label22, + this.label3, + this.label4, + this.line2, + this.label5, + this.label6, + this.label7, + this.label8, + this.label10, + this.label11}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3.1532846715328469D; + // + // label34 + // + this.label34.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_Forgalom", "{0:#,0.00}")}); + this.label34.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(126F, 152F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label34.SizeF = new System.Drawing.SizeF(314F, 23F); + this.label34.StylePriority.UseBorders = false; + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label23 + // + this.label23.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label23.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152.0001F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label23.SizeF = new System.Drawing.SizeF(126F, 22.99994F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Forgalom:"; + // + // line3 + // + this.line3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 135F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(450F, 10F); + this.line3.StylePriority.UseBorders = false; + // + // label22 + // + this.label22.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label22.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999969F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96F); + this.label22.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.Text = "Pénzforgalom:"; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 32.99999F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Nyitó pénzkészlet:"; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.00001F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Nyitó dátum:"; + // + // line2 + // + this.line2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(450F, 10F); + this.line2.StylePriority.UseBorders = false; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 89F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(126F, 23.00001F); + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Záró pénzkészlet:"; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 112F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Záró dátum:"; + // + // label7 + // + this.label7.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceFromHUF", "{0:#,0.00}")}); + this.label7.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(126F, 33F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(314F, 22.99998F); + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label8.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(126F, 55.99998F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(314F, 23.00002F); + this.label8.StylePriority.UseBorders = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceToHUF", "{0:#,0.00}")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(126F, 89F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(314F, 22.99995F); + this.label10.StylePriority.UseBorders = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.DateTo", "{0:yyyy.MM.dd.}")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(126F, 111.9999F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(314F, 23.00006F); + this.label11.StylePriority.UseBorders = false; + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.Font = new System.Drawing.Font("Arial", 10F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 108.5417F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.Scripts.OnBeforePrint = "label42_BeforePrint"; + this.label42.Scripts.OnEvaluateBinding = "label42_EvaluateBinding"; + this.label42.Scripts.OnSummaryCalculated = "label42_SummaryCalculated"; + this.label42.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 10F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 108.5417F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.Scripts.OnBeforePrint = "label41_BeforePrint"; + this.label41.Scripts.OnPreviewDoubleClick = "label41_PreviewDoubleClick"; + this.label41.Scripts.OnSummaryGetResult = "label41_SummaryGetResult"; + this.label41.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label40 + // + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceToHUF", "{0:#,0.00}")}); + this.label40.Font = new System.Drawing.Font("Arial", 10F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 85.54173F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.Scripts.OnBeforePrint = "label40_BeforePrint"; + this.label40.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "label40"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssetsReturnHeader.BallanceFromHUF", "{0:#,0.00}")}); + this.label37.Font = new System.Drawing.Font("Arial", 10F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 62.54174F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "label37"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalOutAmountHUF")}); + this.label36.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(627.0831F, 39.54172F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.Scripts.OnEvaluateBinding = "label36_EvaluateBinding"; + this.label36.SizeF = new System.Drawing.SizeF(99.91687F, 23.00002F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label36.Summary = summary1; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLCassa.TotalInAmountHUF")}); + this.label35.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 39.54172F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.Scripts.OnBeforePrint = "label35_BeforePrint"; + this.label35.Scripts.OnEvaluateBinding = "label35_EvaluateBinding"; + this.label35.Scripts.OnSummaryCalculated = "label35_SummaryCalculated"; + this.label35.Scripts.OnSummaryGetResult = "label35_SummaryGetResult"; + this.label35.Scripts.OnSummaryRowChanged = "label35_SummaryRowChanged"; + this.label35.Scripts.OnTextChanged = "label35_TextChanged"; + this.label35.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label35.Summary = summary2; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 108.5417F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label28.Text = "Összesen:"; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 10F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 85.54173F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Záró pénzkészlet:"; + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Arial", 10F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 62.54171F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label26.StylePriority.UseFont = false; + this.label26.Text = "Kezdő pénzkészlet:"; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 39.54169F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(136.1248F, 23.00002F); + this.label25.StylePriority.UseFont = false; + this.label25.Text = "Forgalom:"; + // + // pageInfo3 + // + this.pageInfo3.Format = "{0}. oldal"; + this.pageInfo3.LocationFloat = new DevExpress.Utils.PointFloat(627F, 0F); + this.pageInfo3.Name = "pageInfo3"; + this.pageInfo3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo3.StylePriority.UseTextAlignment = false; + this.pageInfo3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(527.0832F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Befizetés"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(2.083333F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Dátum"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(102.0832F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(165F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Ügyfél"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(267.0832F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(150F, 23F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Szöveg"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(417.0832F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(110F, 23F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "P. biz. sorszáma"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(627.0832F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(99.91681F, 23F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Kifizetés"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041707F, 23.00002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(725.9583F, 10F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // _Forgalom + // + this._Forgalom.Expression = "[LiquidAssetsReturnHeader.BallanceToHUF]-[LiquidAssetsReturnHeader.BallanceFromHU" + + "F]"; + this._Forgalom.Name = "_Forgalom"; + // + // _Összesen_Befizetés + // + this._Összesen_Befizetés.Name = "_Összesen_Befizetés"; + // + // _Összes_Kifizetés + // + this._Összes_Kifizetés.Expression = "Sum([GLRows.InAmountHUF])+[LiquidAssetsReturnHeader.BallanceFromHUF]"; + this._Összes_Kifizetés.Name = "_Összes_Kifizetés"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageFooter, + this.PageHeader}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this._Forgalom, + this._Összesen_Befizetés, + this._Összes_Kifizetés}); + this.DisplayName = "Időszaki pénztárösszesítő"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 50, 50); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előleg számla.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előleg számla.repx new file mode 100644 index 0000000..1bc01d9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előleg számla.repx @@ -0,0 +1,130 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.PageHeaderBand pageHeaderBand1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgABAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgADAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcABQAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAHAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUACAAAAAABAAEAAQAAARdLaW1lbsWRIGVsxZFsZWcgc3rDoW1sYQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageHeaderBand1 = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Name = "detailBand1"; + // + // pageHeaderBand1 + // + this.pageHeaderBand1.HeightF = 30F; + this.pageHeaderBand1.Name = "pageHeaderBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.HeightF = 30F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageHeaderBand1, + this.pageFooterBand1}); + this.DisplayName = "Kimenő előleg számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előlegbekérő.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előlegbekérő.repx new file mode 100644 index 0000000..160580c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő előlegbekérő.repx @@ -0,0 +1,1244 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUA8QIAAAxGAGkAbAB0AGUAcgARAwAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgATAwAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAFQMAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAXAwAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAGAMAAAHuBWRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiBwYWdlQnJlYWsxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsI" + + "GUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQoNCkVuZCBTdWINCgEeU" + + "0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VSb3dzAQABAAEAAAEXS2ltZW7FkSBlbMWRbGVnYmVrw6lyx" + + "ZE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.line3, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 341.7499F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(539.6666F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(394.7915F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(101.0417F, 17.79167F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(294.7915F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(100F, 17.79167F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(58.33321F, 17.79167F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(742.0001F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 110.4167F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(107.6249F, 110.4167F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 207.2083F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 166.6667F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(104.0833F, 187.5834F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 207.2083F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(104.0833F, 223.9583F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 187.5834F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "ELŐLEGBEKÉRŐ"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(118.8333F, 41.04158F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(116.5001F, 41.04146F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(118.8333F, 33.41666F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.Description")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2083F, 242.0831F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(116.5001F, 33.41666F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(4.083332F, 58.33333F); + // + // label32 + // + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 302.0833F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(58.33321F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(294.7915F, 302.0833F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(100F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(394.7915F, 302.0833F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(101.0417F, 35.5F); + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9585F, 302.0833F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(101.0416F, 35.49991F); + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(539.6666F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(740.9584F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(734.375F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 339.6666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(734.375F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Kimenő előlegbekérő"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő megrendelés.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő megrendelés.repx new file mode 100644 index 0000000..85043fb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő megrendelés.repx @@ -0,0 +1,1316 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel vat; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel listPrice; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel Megrendelő; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel fullValidBrutto; + private DevExpress.XtraReports.UI.XRLabel fullValidNetto; + private DevExpress.XtraReports.UI.XRLabel fullPercent; + private DevExpress.XtraReports.UI.XRLabel fullNettowaPercent; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRShape shape1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.FormattingRule NULL; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField _DEVHUF; + private DevExpress.XtraReports.UI.CalculatedField _NettoEretk; + private DevExpress.XtraReports.UI.CalculatedField _NettokedvErtek; + private DevExpress.XtraReports.UI.CalculatedField _BruttoErtek; + private DevExpress.XtraReports.UI.CalculatedField _KedvErt; + private DevExpress.XtraReports.UI.CalculatedField _DEVHUF_ORIG; + private DevExpress.XtraReports.UI.CalculatedField _NettoEretk_ORIG; + private DevExpress.XtraReports.UI.CalculatedField _NettokedvErtek_ORIG; + private DevExpress.XtraReports.UI.CalculatedField _KedvErt_ORIG; + private DevExpress.XtraReports.UI.CalculatedField _BruttoErtek_ORIG; + private DevExpress.XtraReports.UI.CalculatedField _Mennyiség; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAcgIAAAxGAGkAbAB0AGUAcgCTAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCVAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAlwIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCZAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAmgIAAAHvBC8qdXNpbmcgU3lzdGVtOw0KdXNpbmcgU3lzdGVtLkNvb" + + "GxlY3Rpb25zLkdlbmVyaWM7DQp1c2luZyBTeXN0ZW0uRHJhd2luZzsNCnVzaW5nIFN5c3RlbS5MaW5xO" + + "w0KdXNpbmcgU3lzdGVtLlRleHQ7DQp1c2luZyBTeXN0ZW0uV2luZG93cy5Gb3JtczsNCg0KDQovKnBya" + + "XZhdGUgdm9pZCBsYWJlbDQzX0V2YWx1YXRlQmluZGluZyhvYmplY3Qgc2VuZGVyLCBEZXZFeHByZXNzL" + + "lh0cmFSZXBvcnRzLlVJLkJpbmRpbmdFdmVudEFyZ3MgZSkgDQp7DQppZiAobGFiZWw0My5UZXh0PT0iM" + + "CIpIA0Kew0KCWxhYmVsNDMuVGV4dD1udWxsOw0KfSANCn0NCg0KcHJpdmF0ZSB2b2lkIGxhYmVsNDNfU" + + "3VtbWFyeUNhbGN1bGF0ZWQob2JqZWN0IHNlbmRlciwgRGV2RXhwcmVzcy5YdHJhUmVwb3J0cy5VSS5UZ" + + "Xh0Rm9ybWF0RXZlbnRBcmdzIGUpDQp7DQppZiAobGFiZWw0My5UZXh0PT0iMCIpIA0Kew0KCWxhYmVsN" + + "DMuVGV4dD1udWxsOw0KfSANCn0NCnByaXZhdGUgdm9pZCBsYWJlbDQzX0RyYXcob2JqZWN0IHNlbmRlc" + + "iwgRGV2RXhwcmVzcy5YdHJhUmVwb3J0cy5VSS5EcmF3RXZlbnRBcmdzIGUpIA0Kew0KaWYgKGxhYmVsN" + + "DMuVGV4dD09IjAiKSANCnsNCglsYWJlbDQzLlRleHQ9bnVsbDsNCn0gDQoNCn0NCiovAR9TSVNCdXNpb" + + "mVzcy5Nb2R1bGUuT3JkZXJPdXRSb3dzAQABAAEAAAEUS2ltZW7FkSBtZWdyZW5kZWzDqXM="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraPrinting.Shape.ShapeRectangle shapeRectangle1 = new DevExpress.XtraPrinting.Shape.ShapeRectangle(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.vat = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.listPrice = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.Megrendelő = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.fullValidBrutto = new DevExpress.XtraReports.UI.XRLabel(); + this.fullValidNetto = new DevExpress.XtraReports.UI.XRLabel(); + this.fullPercent = new DevExpress.XtraReports.UI.XRLabel(); + this.fullNettowaPercent = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.shape1 = new DevExpress.XtraReports.UI.XRShape(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.NULL = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this._DEVHUF = new DevExpress.XtraReports.UI.CalculatedField(); + this._NettoEretk = new DevExpress.XtraReports.UI.CalculatedField(); + this._NettokedvErtek = new DevExpress.XtraReports.UI.CalculatedField(); + this._BruttoErtek = new DevExpress.XtraReports.UI.CalculatedField(); + this._KedvErt = new DevExpress.XtraReports.UI.CalculatedField(); + this._DEVHUF_ORIG = new DevExpress.XtraReports.UI.CalculatedField(); + this._NettoEretk_ORIG = new DevExpress.XtraReports.UI.CalculatedField(); + this._NettokedvErtek_ORIG = new DevExpress.XtraReports.UI.CalculatedField(); + this._KedvErt_ORIG = new DevExpress.XtraReports.UI.CalculatedField(); + this._BruttoErtek_ORIG = new DevExpress.XtraReports.UI.CalculatedField(); + this._Mennyiség = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label47, + this.label38, + this.label51, + this.label48, + this.label36, + this.label26, + this.label50, + this.label45, + this.label34, + this.label17, + this.label49, + this.label41, + this.label40, + this.label39, + this.label42, + this.label44, + this.label43, + this.vat, + this.label7, + this.listPrice, + this.label4, + this.label3, + this.label2, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 41.66667F; + this.detailBand1.MultiColumn.Mode = DevExpress.XtraReports.UI.MultiColumnMode.UseColumnCount; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.line1, + this.pageInfo1}); + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 29.00001F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.label29, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8, + this.Megrendelő}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 116.625F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 93F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label37, + this.label35, + this.label32, + this.label25, + this.label22, + this.label16, + this.label15, + this.label14, + this.label13, + this.line4, + this.line3, + this.label10, + this.label11}); + this.GroupHeader1.Font = new System.Drawing.Font("Arial", 9F); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("UrgentOption.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 24.83336F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + this.GroupHeader1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.fullValidBrutto, + this.fullValidNetto, + this.fullPercent, + this.fullNettowaPercent, + this.label33, + this.label23, + this.label5, + this.label31, + this.shape1}); + this.ReportFooter.HeightF = 116.6667F; + this.ReportFooter.Name = "ReportFooter"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.line5, + this.label24}); + this.GroupFooter1.HeightF = 46.875F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20.83333F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(31.25F, 20.83333F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.RowIndex")}); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(31.25F, 20.83333F); + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label51 + // + this.label51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_KedvErt")}); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(663.1251F, 20.83333F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(78.16656F, 20.83333F); + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "label51"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_KedvErt_ORIG")}); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(663.1251F, 0F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(78.16644F, 20.83333F); + this.label48.StylePriority.UseTextAlignment = false; + this.label48.Text = "label48"; + this.label48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettoEretk", "{0:#,0}")}); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(581.8751F, 20.83333F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(81.25006F, 20.83333F); + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettoEretk_ORIG", "{0:#,0}")}); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(581.8752F, 0F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(81.25006F, 20.83333F); + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettokedvErtek", "{0:#,0}")}); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(796.5001F, 20.83333F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(81.25006F, 20.83333F); + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettokedvErtek_ORIG", "{0:#,0}")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(796.5001F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(81.25006F, 20.83333F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_BruttoErtek", "{0:#,0}")}); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(877.75F, 20.83333F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(81.25F, 20.83333F); + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_BruttoErtek_ORIG", "{0:#,0}")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(877.7502F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(81.25006F, 20.83333F); + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.Products.VAT.KeyValuePercent", "{0}%")}); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(741.2917F, 0F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label49.SizeF = new System.Drawing.SizeF(46.20813F, 20.83333F); + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.Products.Units.ShortName")}); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(405.8334F, 0F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label41.SizeF = new System.Drawing.SizeF(39.5834F, 20.83333F); + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label40 + // + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.Products.ProductNumber")}); + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(31.24995F, 0F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label40.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label40.SizeF = new System.Drawing.SizeF(78.75005F, 20.83333F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "label40"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label39 + // + this.label39.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.Products.ShortName")}); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(146.4583F, 0F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label39.SizeF = new System.Drawing.SizeF(188.5417F, 20.83333F); + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "label39"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_Mennyiség")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(335F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label42.SizeF = new System.Drawing.SizeF(70.83331F, 20.83333F); + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutRows.DiscountPercent", "{0}%")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(523.5416F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label44.SizeF = new System.Drawing.SizeF(47.91669F, 20.83333F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_DEVHUF_ORIG", "{0:#,0}")}); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(445.4167F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label43.Scripts.OnBeforePrint = "label5_BeforePrint"; + this.label43.Scripts.OnDraw = "label43_Draw"; + this.label43.Scripts.OnSummaryCalculated = "label43_SummaryCalculated"; + this.label43.SizeF = new System.Drawing.SizeF(78.12503F, 20.83333F); + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // vat + // + this.vat.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.VAT.KeyValuePercent", "{0}%")}); + this.vat.LocationFloat = new DevExpress.Utils.PointFloat(741.2916F, 20.83333F); + this.vat.Name = "vat"; + this.vat.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.vat.SizeF = new System.Drawing.SizeF(46.20819F, 20.83333F); + this.vat.StylePriority.UseTextAlignment = false; + this.vat.Text = "vat"; + this.vat.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DiscountPercent", "{0}%")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(523.5416F, 20.83333F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(47.91669F, 20.83333F); + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // listPrice + // + this.listPrice.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_DEVHUF", "{0:#,0}")}); + this.listPrice.LocationFloat = new DevExpress.Utils.PointFloat(445.4167F, 20.83333F); + this.listPrice.Name = "listPrice"; + this.listPrice.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.listPrice.Scripts.OnBeforePrint = "label5_BeforePrint"; + this.listPrice.SizeF = new System.Drawing.SizeF(78.12503F, 20.83333F); + this.listPrice.StylePriority.UseTextAlignment = false; + this.listPrice.Text = "listPrice"; + this.listPrice.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(335F, 20.83333F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(70.83331F, 20.83333F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(146.4583F, 20.83333F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(188.5417F, 20.83333F); + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.Units.ShortName")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(405.8334F, 20.83333F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(39.5834F, 20.83333F); + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 9F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(31.25005F, 20.83333F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(78.75001F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Cikkszam"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(891.9167F, 6.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(67.08331F, 18.75F); + this.label12.Text = "oldal"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(969F, 2F); + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(869F, 6.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 23F); + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DateExecution", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(117.7083F, 78.66074F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(170.4166F, 16.74998F); + this.label30.Text = "label30"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(117.7083F, 95.41073F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(170.4166F, 21.21428F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(10.00005F, 95.41073F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(107.7083F, 21.21428F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Rendelési szám:"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 78.66074F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(107.7083F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Megrend. dátum:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(969F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrderDocuments.CustomersOrder.Address1.FullAddress")}); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(558.3331F, 41.74998F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(229.1667F, 23F); + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrderDocuments.CustomersOrder.FullName")}); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(558.3332F, 18.75F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(192.7084F, 23F); + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(558.3331F, 2.000014F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(120.2083F, 16.75F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Szállító adatai:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 41.74998F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(233.3333F, 23F); + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.FullName")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(233.3333F, 23F); + this.label8.Text = "label8"; + // + // Megrendelő + // + this.Megrendelő.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.Megrendelő.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 2.000014F); + this.Megrendelő.Name = "Megrendelő"; + this.Megrendelő.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Megrendelő.SizeF = new System.Drawing.SizeF(120.2083F, 16.75F); + this.Megrendelő.StylePriority.UseFont = false; + this.Megrendelő.Text = "Megrendelő adatai:"; + // + // pictureBox1 + // + this.pictureBox1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 35.62498F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.Scripts.OnPreviewDoubleClick = "pictureBox1_PreviewDoubleClick"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(454.1667F, 57.79166F); + this.pictureBox1.StylePriority.UseBorders = false; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(621.7084F, 54.79164F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(242.0833F, 38.625F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "MEGRENDELÉS"; + // + // label37 + // + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(663.1251F, 2.000014F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(78.16656F, 18.75F); + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Kedv. érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(796.5F, 2.000014F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(81.25F, 18.75F); + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "Nettó kedv. érték"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label32 + // + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(741.2917F, 2.000014F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(55.20831F, 18.75F); + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "ÁFA"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label25 + // + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(877.75F, 2.000014F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(81.25F, 18.75F); + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bruttó érték"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label22 + // + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(581.8751F, 2.000014F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(81.25F, 18.75F); + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Nettó érték"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label16 + // + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(523.5417F, 2.000014F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(58.33331F, 18.75F); + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Eng."; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label15 + // + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(443.3334F, 2.000014F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(80.20831F, 18.75F); + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Netto listaár"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label14 + // + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(332.9167F, 2.000014F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(110.4167F, 18.75F); + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label13 + // + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(110F, 2.000014F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(222.9167F, 18.75F); + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 20.75005F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(969F, 2F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 0F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(969F, 2F); + // + // label10 + // + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 2.000014F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(31.25F, 18.75F); + this.label10.Text = "Ssz."; + // + // label11 + // + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(31.25F, 2.000014F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(78.75001F, 18.75F); + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "VTSZ"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // fullValidBrutto + // + this.fullValidBrutto.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_BruttoErtek")}); + this.fullValidBrutto.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.fullValidBrutto.LocationFloat = new DevExpress.Utils.PointFloat(827.4998F, 77.95817F); + this.fullValidBrutto.Name = "fullValidBrutto"; + this.fullValidBrutto.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.fullValidBrutto.SizeF = new System.Drawing.SizeF(90.41639F, 16.74999F); + this.fullValidBrutto.StylePriority.UseFont = false; + this.fullValidBrutto.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.fullValidBrutto.Summary = summary1; + this.fullValidBrutto.Text = "fullValidBrutto"; + this.fullValidBrutto.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // fullValidNetto + // + this.fullValidNetto.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettokedvErtek")}); + this.fullValidNetto.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.fullValidNetto.LocationFloat = new DevExpress.Utils.PointFloat(827.4998F, 61.20822F); + this.fullValidNetto.Name = "fullValidNetto"; + this.fullValidNetto.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.fullValidNetto.SizeF = new System.Drawing.SizeF(90.41639F, 16.74999F); + this.fullValidNetto.StylePriority.UseFont = false; + this.fullValidNetto.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.fullValidNetto.Summary = summary2; + this.fullValidNetto.Text = "fullValidNetto"; + this.fullValidNetto.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // fullPercent + // + this.fullPercent.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_KedvErt")}); + this.fullPercent.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.fullPercent.LocationFloat = new DevExpress.Utils.PointFloat(827.4998F, 44.4582F); + this.fullPercent.Name = "fullPercent"; + this.fullPercent.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.fullPercent.SizeF = new System.Drawing.SizeF(90.41639F, 16.74999F); + this.fullPercent.StylePriority.UseFont = false; + this.fullPercent.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.fullPercent.Summary = summary3; + this.fullPercent.Text = "fullPercent"; + this.fullPercent.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // fullNettowaPercent + // + this.fullNettowaPercent.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "_NettoEretk")}); + this.fullNettowaPercent.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.fullNettowaPercent.LocationFloat = new DevExpress.Utils.PointFloat(827.4998F, 27.70831F); + this.fullNettowaPercent.Name = "fullNettowaPercent"; + this.fullNettowaPercent.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.fullNettowaPercent.SizeF = new System.Drawing.SizeF(90.41639F, 16.74999F); + this.fullNettowaPercent.StylePriority.UseFont = false; + this.fullNettowaPercent.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,0}"; + summary4.Func = DevExpress.XtraReports.UI.SummaryFunc.RunningSum; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.fullNettowaPercent.Summary = summary4; + this.fullNettowaPercent.Text = "fullNettowaPercent"; + this.fullNettowaPercent.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(523.5417F, 77.95817F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(303.9581F, 16.74998F); + this.label33.StylePriority.UseFont = false; + this.label33.Text = "Bruttó érték összesen (kedvezmény csökkentett):"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(523.5417F, 61.20822F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(303.9581F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Nettó érték összesen (kedvezmény csökkentett):"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(523.5417F, 44.45826F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(303.958F, 16.74999F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Összesen kedvezmény:"; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(523.5417F, 27.70831F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(303.9581F, 16.74998F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Nettó érték összesen (kedvezmény nélkül):"; + // + // shape1 + // + this.shape1.LocationFloat = new DevExpress.Utils.PointFloat(511.875F, 17.70833F); + this.shape1.Name = "shape1"; + this.shape1.Shape = shapeRectangle1; + this.shape1.SizeF = new System.Drawing.SizeF(410.4168F, 85.91683F); + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(693.7499F, 24.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(275.2502F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 24.58331F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(247.9166F, 2.166653F); + // + // label24 + // + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(247.9166F, 15.00003F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Mi vagyunk a legjobb cég szövegek és társai!"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // NULL + // + this.NULL.Condition = "[_NettoErtek_ORIG]==0"; + // + // + // + this.NULL.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.NULL.Name = "NULL"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // _DEVHUF + // + this._DEVHUF.Expression = "Iif([OrderOutHeader.CurrencyName.ShortName] == \'HUF\', [ListPriceHUF] ,[ListPriceD" + + "EV] )"; + this._DEVHUF.Name = "_DEVHUF"; + // + // _NettoEretk + // + this._NettoEretk.Expression = "[_DEVHUF] * [QTT]"; + this._NettoEretk.Name = "_NettoEretk"; + // + // _NettokedvErtek + // + this._NettokedvErtek.Expression = "[_NettoEretk]-([_NettoEretk]*([DiscountPercent]/100))"; + this._NettokedvErtek.Name = "_NettokedvErtek"; + // + // _BruttoErtek + // + this._BruttoErtek.Expression = "[_NettokedvErtek]+([_NettokedvErtek]*([Products.VAT.KeyValuePercent]/100))"; + this._BruttoErtek.Name = "_BruttoErtek"; + // + // _KedvErt + // + this._KedvErt.Expression = "[_NettoEretk]*[DiscountPercent]"; + this._KedvErt.Name = "_KedvErt"; + // + // _DEVHUF_ORIG + // + this._DEVHUF_ORIG.Expression = "Iif(IsNull([OrderOutRows.OrderOutHeader.CurrencyName.ShortName]), Nothing , Iif(" + + "[OrderOutRows.OrderOutHeader.CurrencyName.ShortName] == \'HUF\', [ListPriceHUF] ,[" + + "ListPriceDEV] ) )"; + this._DEVHUF_ORIG.Name = "_DEVHUF_ORIG"; + // + // _NettoEretk_ORIG + // + this._NettoEretk_ORIG.Expression = "[_DEVHUF_ORIG]*[_Mennyiség]"; + this._NettoEretk_ORIG.Name = "_NettoEretk_ORIG"; + // + // _NettokedvErtek_ORIG + // + this._NettokedvErtek_ORIG.Expression = "[_NettoEretk_ORIG]-([_NettoEretk_ORIG]*([DiscountPercent]/100))"; + this._NettokedvErtek_ORIG.Name = "_NettokedvErtek_ORIG"; + // + // _KedvErt_ORIG + // + this._KedvErt_ORIG.Expression = "[_NettoEretk_ORIG]*[DiscountPercent]"; + this._KedvErt_ORIG.Name = "_KedvErt_ORIG"; + // + // _BruttoErtek_ORIG + // + this._BruttoErtek_ORIG.Expression = "[_NettokedvErtek_ORIG]+([_NettokedvErtek_ORIG]*([OrderOutRows.Products.VAT.KeyVal" + + "uePercent]/100))"; + this._BruttoErtek_ORIG.Name = "_BruttoErtek_ORIG"; + // + // _Mennyiség + // + this._Mennyiség.Expression = "[OrderOutRows.QTT]*-1"; + this._Mennyiség.Name = "_Mennyiség"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1, + this.ReportFooter, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this._DEVHUF, + this._NettoEretk, + this._NettokedvErtek, + this._BruttoErtek, + this._KedvErt, + this._DEVHUF_ORIG, + this._NettoEretk_ORIG, + this._NettokedvErtek_ORIG, + this._KedvErt_ORIG, + this._BruttoErtek_ORIG, + this._Mennyiség}); + this.DisplayName = "Kimenő megrendelés"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.NULL}); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(100, 100, 93, 100); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (devizás).repx new file mode 100644 index 0000000..9655d45 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (devizás).repx @@ -0,0 +1,1292 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.FormattingRule stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAQAMAAAxGAGkAbAB0AGUAcgBgAwAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgBiAwAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAZAMAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBmAwAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAZwMAAAG9BmRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dDw+Q29ubmVjdEluZm8uVGV4dCB0aGVuIGxhYmVsMS5UZXh0PSJTVE9STsOTIFNaw4FNTEEiD" + + "QoNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgcGFnZUJyZWFrMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZ" + + "XIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBc" + + "mdzKQ0KDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZvaWNlUm93cwEAAQABAAABGktpb" + + "WVuxZEgc3rDoW1sYSAoZGV2aXrDoXMp"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 341.7499F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:n}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(97.04169F, 17.79162F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV", "{0:n}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(539.6666F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(394.7915F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(101.0417F, 17.79167F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:n}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(294.7915F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(100F, 17.79167F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(58.33321F, 17.79167F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA (devizás)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 110.4167F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(107.6249F, 110.4167F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 207.2083F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 166.6667F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(104.0833F, 187.5834F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 207.2083F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(104.0833F, 223.9583F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 187.5834F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label31.FormattingRules.Add(this.stornó); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 160.6666F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(116.5001F, 23F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "Számla stornója"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.ConnectInfo.FormattingRules.Add(this.stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 160.6666F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.Text = "ConnectInfo"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(121.8749F, 41.0416F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(121.875F, 33.41667F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.PayMode")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 242.0834F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "VE23/0001"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.41666F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 302.0833F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(68.74986F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(305.2082F, 302.0833F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(89.58334F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(394.7915F, 302.0833F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(101.0417F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9585F, 302.0833F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(97.04144F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(539.6666F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 339.6666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // stornó + // + this.stornó.Condition = "[InvoiceHeader.DocumentNumber] =[InvoiceHeader.ConnectInfo]"; + // + // + // + this.stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.stornó.Name = "stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Kimenő számla (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - devizás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - devizás.repx new file mode 100644 index 0000000..f4df649 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - devizás.repx @@ -0,0 +1,1273 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private DevExpress.XtraReports.UI.CalculatedField CalculatedHeader; + private DevExpress.XtraReports.UI.CalculatedField CalculatedDocumentNumber; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAxQEAAAxGAGkAbAB0AGUAcgDlAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgDnAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcA6QEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDrAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUA7AEAAAHCA2RpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KDQoNCgEeU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VSb3dzAQABAAEAAAEkS2ltZW7FkSBzesOhbWxhIChlbMWRbGVnKSAtIGRldml6w6Fz"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + this.CalculatedHeader = new DevExpress.XtraReports.UI.CalculatedField(); + this.CalculatedDocumentNumber = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 8F); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 239.4169F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 342.7916F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + this.GroupHeader1.StylePriority.UseFont = false; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label30.Font = new System.Drawing.Font("Arial", 9F); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(281.4583F, 6.357829E-05F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(40.00009F, 17.79162F); + this.label30.StylePriority.UseFont = false; + this.label30.Text = "label30"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(744F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 9F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(682.625F, 17.79159F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:#,#}")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(636.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79162F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV", "{0:#,#}")}); + this.label46.Font = new System.Drawing.Font("Arial", 9F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(551.9584F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(85F, 17.79161F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.Font = new System.Drawing.Font("Arial", 9F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(56.12515F, 17.79169F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:#,#}")}); + this.label44.Font = new System.Drawing.Font("Arial", 9F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(405.2082F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(90.625F, 17.79167F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(321.4584F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(83.74985F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(45F, 17.79167F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(61.37497F, 17.79169F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA (devizás)"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(740.9586F, 23.00002F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 100F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 100F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(640.4584F, 23.00002F); + this.label63.StylePriority.UseFont = false; + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(491.6666F, 205F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(186.4583F, 18.83336F); + this.label64.StylePriority.UseTextAlignment = false; + this.label64.Text = "Számlát kiállító"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 130F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "Átvétel dátuma:"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 150.9167F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 178.2084F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő:"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 194.9584F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(491.6666F, 194.9584F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CalculatedHeader")}); + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(744F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó:"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő:"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33337F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 137.6666F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 137.6666F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.0416F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(122.9166F, 33.41667F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2083F, 242.0831F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CalculatedDocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 242.0831F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5001F, 33.41672F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0833F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 9F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(0F, 302.0832F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(61.37491F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(69.58336F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 302.0833F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(99.16656F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(405.2082F, 302.0833F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90.625F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(636.9584F, 302.0833F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(101.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(508.125F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(551.9584F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(85F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(744F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(744F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 339.6667F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(744F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // CalculatedHeader + // + this.CalculatedHeader.Expression = "Iif([InvoiceHeader.IsProforma],\'Előleg bekérő\',\'Előlegszámla\')"; + this.CalculatedHeader.Name = "CalculatedHeader"; + // + // CalculatedDocumentNumber + // + this.CalculatedDocumentNumber.Expression = "Iif([InvoiceHeader.IsProforma],[InvoiceHeader.DocumentNumberProforma],[InvoiceHea" + + "der.DocumentNumber] )"; + this.CalculatedDocumentNumber.Name = "CalculatedDocumentNumber"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom, + this.CalculatedHeader, + this.CalculatedDocumentNumber}); + this.DisplayName = "Kimenő számla (előleg) - devizás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - forintos.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - forintos.repx new file mode 100644 index 0000000..4f123d3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla (előleg) - forintos.repx @@ -0,0 +1,1273 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private DevExpress.XtraReports.UI.CalculatedField CalculatedHeader; + private DevExpress.XtraReports.UI.CalculatedField CalculatedDocumentNumber; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAxQEAAAxGAGkAbAB0AGUAcgDlAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgDnAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcA6QEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDrAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUA7AEAAAHCA2RpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDVHlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlSGVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KDQoNCgEeU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VSb3dzAQABAAEAAAEkS2ltZW7FkSBzesOhbWxhIChlbMWRbGVnKSAtIGZvcmludG9z"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + this.CalculatedHeader = new DevExpress.XtraReports.UI.CalculatedField(); + this.CalculatedDocumentNumber = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 8F); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 239.4169F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 342.7916F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + this.GroupHeader1.StylePriority.UseFont = false; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label30.Font = new System.Drawing.Font("Arial", 9F); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(281.4583F, 6.357829E-05F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(40.00009F, 17.79162F); + this.label30.StylePriority.UseFont = false; + this.label30.Text = "label30"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(744F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 9F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(682.625F, 17.79159F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(636.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79162F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.Font = new System.Drawing.Font("Arial", 9F); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(551.9584F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(85F, 17.79161F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.Font = new System.Drawing.Font("Arial", 9F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(495.8332F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(56.12515F, 17.79169F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.Font = new System.Drawing.Font("Arial", 9F); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(405.2082F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(90.625F, 17.79167F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(321.4584F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(83.74985F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(45F, 17.79167F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(61.37497F, 17.79169F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(740.9586F, 23.00002F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 100F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.Font = new System.Drawing.Font("Arial", 9F); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 100F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(640.4584F, 23.00002F); + this.label63.StylePriority.UseFont = false; + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(491.6666F, 205F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(186.4583F, 18.83336F); + this.label64.StylePriority.UseTextAlignment = false; + this.label64.Text = "Számlát kiállító"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 130F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.StylePriority.UseTextAlignment = false; + this.label65.Text = "Átvétel dátuma:"; + this.label65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 150.9167F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 178.2084F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő:"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 194.9584F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(491.6666F, 194.9584F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CalculatedHeader")}); + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(744F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó:"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő:"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33337F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 137.6666F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 137.6666F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.0416F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(122.9166F, 33.41667F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2083F, 242.0831F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CalculatedDocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 242.0831F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5001F, 33.41672F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0833F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 9F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(0F, 302.0832F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(61.37491F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(69.58336F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 302.0833F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(99.16656F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(405.2082F, 302.0833F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90.625F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(636.9584F, 302.0833F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(101.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(508.125F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(551.9584F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(85F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(744F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(744F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 339.6667F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(744F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // CalculatedHeader + // + this.CalculatedHeader.Expression = "Iif([InvoiceHeader.IsProforma],\'Előleg bekérő\',\'Előlegszámla\')"; + this.CalculatedHeader.Name = "CalculatedHeader"; + // + // CalculatedDocumentNumber + // + this.CalculatedDocumentNumber.Expression = "Iif([InvoiceHeader.IsProforma],[InvoiceHeader.DocumentNumberProforma],[InvoiceHea" + + "der.DocumentNumber] )"; + this.CalculatedDocumentNumber.Name = "CalculatedDocumentNumber"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom, + this.CalculatedHeader, + this.CalculatedDocumentNumber}); + this.DisplayName = "Kimenő számla (előleg) - forintos"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA (devizás).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA (devizás).repx new file mode 100644 index 0000000..d7a6d50 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA (devizás).repx @@ -0,0 +1,508 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEfS2ltZW7FkSBzesOhbWxhIMOBRkEgKGRldml6w6FzKQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Expanded = false; + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1, + this.label8, + this.label7, + this.label6, + this.label5}); + this.reportHeaderBand1.HeightF = 26.12501F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label15, + this.label13, + this.line2, + this.label1, + this.label10, + this.label11, + this.label12, + this.label14}); + this.GroupFooter1.HeightF = 68.91672F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV", "{0:#,##0.00}")}); + this.label9.Font = new System.Drawing.Font("Arial", 9.75F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATDEV")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoDEV", "{0:#,##0.00}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9.75F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 9.75F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 23.95833F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(550.0416F, 2.166679F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Nettó összeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "ÁFA kód"; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(17.70833F, 17.70833F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(67.70833F, 29.16667F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(578.1666F, 45.91672F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.Scripts.OnBeforePrint = "label15_BeforePrint"; + this.label15.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 45.91672F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Árfolyam:"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoDEV")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(277.0834F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATDEV")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(436.4584F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(131.25F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0.00}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(578.1667F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0.00}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyRate", "{0:#.00}")}); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 45.91672F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Kimenő számla ÁFA (devizás)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(100, 28, 0, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = "\r\nPrivate Sub label15_BeforePrint(ByVal sender As Object, ByVal e As System.Drawi" + + "ng.Printing.PrintEventArgs)\r\nlabel15.Text=\"HUF / 1\" & label16.Text\r\nEnd Sub\r\n"; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA.repx new file mode 100644 index 0000000..5cd15b8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla ÁFA.repx @@ -0,0 +1,445 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEUS2ltZW7FkSBzesOhbWxhIMOBRkE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Expanded = false; + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1, + this.label8, + this.label7, + this.label6, + this.label5}); + this.reportHeaderBand1.HeightF = 26.12501F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label1, + this.label10, + this.label11, + this.label12}); + this.GroupFooter1.HeightF = 33.50005F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,#}")}); + this.label9.Font = new System.Drawing.Font("Arial", 9.75F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,#}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9.75F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 9.75F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 23.95833F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(550.0416F, 2.166679F); + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(591.7083F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Bruttó összeg"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(460.4167F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "ÁFA összeg"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(303.125F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(107.2917F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Nettó összeg"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "ÁFA kód"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(148.9582F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(550.0417F, 6.333365F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(148.9583F, 10.50002F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Összesen"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(277.0834F, 10.50005F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(133.3333F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label10.Summary = summary1; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(436.4584F, 10.50005F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(131.25F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label11.Summary = summary2; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(578.1667F, 10.50005F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(120.8333F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,#}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label12.Summary = summary3; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Kimenő számla ÁFA"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(100, 28, 0, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla.repx new file mode 100644 index 0000000..585085b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő számla.repx @@ -0,0 +1,1309 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAwAIAAAxGAGkAbAB0AGUAcgDgAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgDiAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcA5AIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDmAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUA5wIAAAG9BWRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dDw+Q29ubmVjdEluZm8uVGV4dCB0aGVuIGxhYmVsMS5UZXh0PSJTVE9STsOTIFNaw4FNTEEiD" + + "QpFbmQgU3ViAR5TSVNCdXNpbmVzcy5Nb2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAAQ9LaW1lbsWRIHN6w" + + "6FtbGE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("SumPriceBruttoHUF", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 341.7499F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(274.9999F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(44.83334F, 17.79162F); + this.label31.Text = "label31"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(85.99988F, 17.79169F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(90F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(38.54161F, 17.79169F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 104.5242F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 104.5242F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 215.4586F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(0F, 138.5417F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(100F, 159.4584F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 187.5834F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 204.3334F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 204.3334F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label30.FormattingRules.Add(this.Stornó); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 178.0417F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(116.1669F, 19.9583F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "számla stornója"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.ConnectInfo.FormattingRules.Add(this.Stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 178.0417F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.StylePriority.UseTextAlignment = false; + this.ConnectInfo.Text = "ConnectInfo"; + this.ConnectInfo.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.04155F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(121.8749F, 33.41666F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 242.0834F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083379F, 302.0833F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(83.37502F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 302.0832F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 302.0831F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 302.0832F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(103.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 339.6666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Kimenő számla"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül).repx new file mode 100644 index 0000000..d9a5d70 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül).repx @@ -0,0 +1,1180 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRRichText richText3; + private DevExpress.XtraReports.UI.XRRichText richText2; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRRichText richText1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_ár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_érték; + private DevExpress.XtraReports.UI.CalculatedField Listaár; + private DevExpress.XtraReports.UI.CalculatedField Deviza; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAKAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4lvRzRMBh2lF2evxZRhGY3bVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAANAQAAK" + + "wAAAJMBAABQAQAAvwAAANoCAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAA" + + "AAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAlwQAAAxGAGkAbAB0AGUAcgC4B" + + "AAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgC6BAAALEYAaQBsAHQAZQByAEYAbwByA" + + "EQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAvAQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAY" + + "wB0AFQAeQBwAGUATgBhAG0AZQC+BAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAvwQAAD5yAGkAYwBoAFQAZ" + + "QB4AHQAMQAuAFMAZQByAGkAYQBsAGkAegBhAGIAbABlAFIAdABmAFMAdAByAGkAbgBnAOUEAAA+cgBpA" + + "GMAaABUAGUAeAB0ADIALgBTAGUAcgBpAGEAbABpAHoAYQBiAGwAZQBSAHQAZgBTAHQAcgBpAG4AZwDAB" + + "gAAPnIAaQBjAGgAVABlAHgAdAAzAC4AUwBlAHIAaQBhAGwAaQB6AGEAYgBsAGUAUgB0AGYAUwB0AHIAa" + + "QBuAGcAPwkAAAGUCUltcG9ydHMgRGV2RXhwcmVzcy5FeHByZXNzQXBwDQpJbXBvcnRzIERldkV4cHJlc" + + "3MuRXhwcmVzc0FwcC5SZXBvcnRzDQpJbXBvcnRzIERldkV4cHJlc3MuUGVyc2lzdGVudC5CYXNlSW1wb" + + "A0KSW1wb3J0cyBEZXZFeHByZXNzLlhwbw0KSW1wb3J0cyBEZXZFeHByZXNzLkRhdGEuRmlsdGVyaW5nD" + + "QoNClByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjd" + + "CwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlK" + + "HNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmc9Ik9mZmVyT3V0SGVhZ" + + "GVyLk9pZD0nIiAmIGxhYmVsNDQuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kIFN1Yg0KDQpQcml2YXRlI" + + "FN1YiBOYW1lT2ZDcmVhdG9yX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsI" + + "GUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQonRGltIF9OYW1lT2ZDc" + + "mVhdG9yIEFzIFhSTGFiZWwgPSBDVHlwZShzZW5kZXIsIFhSTGFiZWwpDQonRGltIF9yZXBvcnQgQXMgW" + + "GFmUmVwb3J0ID0gQ1R5cGUoX05hbWVPZkNyZWF0b3IuUmVwb3J0LCBYYWZSZXBvcnQpDQonRGltIF9vY" + + "3VyIEFzIE9iamVjdFNwYWNlID0gQ1R5cGUoX3JlcG9ydC5PYmplY3RTcGFjZSwgT2JqZWN0U3BhY2UpD" + + "QonRGltIF9BdWRpdFRyYWlsIEFzIFhQQ29sbGVjdGlvbihPZiBBdWRpdERhdGFJdGVtUGVyc2lzdGVud" + + "CkgPSBBdWRpdGVkT2JqZWN0V2Vha1JlZmVyZW5jZS5HZXRBdWRpdFRyYWlsKF9vY3VyLlNlc3Npb24sI" + + "EdldEN1cnJlbnRSb3coKSkNCidEaW0gX1VzZXIgQXMgVXNlcg0KDQonRm9yIEVhY2ggX2l0ZW0gQXMgQ" + + "XVkaXREYXRhSXRlbVBlcnNpc3RlbnQgaW4gX0F1ZGl0VHJhaWwNCidJZiBfaXRlbS5PcGVyYXRpb25Ue" + + "XBlPSJPYmplY3RDcmVhdGVkIiBUaGVuDQonX1VzZXIgPSBfb2N1ci5GaW5kT2JqZWN0KE9mIFVzZXIpK" + + "ENyaXRlcmlhT3BlcmF0b3IuUGFyc2UoIlVzZXJOYW1lPT8iLF9pdGVtLlVzZXJOYW1lICkpDQoNCidfT" + + "mFtZU9mQ3JlYXRvci5Gb3JlQ29sb3IgPSBDb2xvci5SZWQNCg0KJ19OYW1lT2ZDcmVhdG9yLlRleHQgP" + + "cKgX1VzZXIuRnVsbE5hbWUNCg0KJ0VuZCBJZgkNCidOZXh0DQpFbmQgU3ViAR9TSVNCdXNpbmVzcy5Nb" + + "2R1bGUuT2ZmZXJPdXRSb3dzAQABAAEAAAEkS2ltZW7FkSDDoXJhasOhbmxhdCAow6FyYWsgbsOpbGvDv" + + "GwpAdgDZXdCY0FISUFkQUJtQURFQVhBQmhBRzRBY3dCcEFHTUFjQUJuQURFQU1nQTFBREFBRFFBS0FIc" + + "0FEUUFLQUZ3QVpnQnZBRzRBZEFCMEFHSUFiQUFOQUFvQWV3QmNBR1lBTUFBZ0FGUUFhUUJ0QUdVQWN3Q" + + "WdBRTRBWlFCM0FDQUFVZ0J2QUcwQVlRQnVBRHNBZlFBTkFBb0FmUUFOQUFvQWV3QU5BQW9BWEFCakFHO" + + "EFiQUJ2QUhJQWRBQmlBR3dBRFFBS0FEc0FEUUFLQUZ3QWNnQmxBR1FBTUFCY0FHY0FjZ0JsQUdVQWJnQ" + + "XdBRndBWWdCc0FIVUFaUUF3QURzQURRQUtBRndBY2dCbEFHUUFNQUJjQUdjQWNnQmxBR1VBYmdBd0FGd" + + "0FZZ0JzQUhVQVpRQXlBRFVBTlFBN0FBMEFDZ0I5QUEwQUNnQjdBRndBY3dCbEFHTUFkQUJrQUZ3QWNBQ" + + "mhBSElBWkFCY0FIQUFiQUJoQUdrQWJnQmNBSEVBYkFCN0FGd0FaZ0J6QURJQU1BQmNBR01BWmdBeEFDQ" + + "UFjZ0JwQUdNQWFBQlVBR1VBZUFCMEFERUFmUUJjQUhBQVlRQnlBSDBBRFFBS0FIMEFEUUFLQUE9PQH8B" + + "GV3QmNBSElBZEFCbUFERUFYQUJoQUc0QWN3QnBBRndBWVFCdUFITUFhUUJqQUhBQVp3QXhBRElBTlFBd" + + "0FGd0FaQUJsQUdZQVpnQXdBSHNBWEFCbUFHOEFiZ0IwQUhRQVlnQnNBSHNBWEFCbUFEQUFYQUJtQUc0Q" + + "WFRQnNBRndBWmdCakFHZ0FZUUJ5QUhNQVpRQjBBRElBTXdBNEFIc0FYQUFxQUZ3QVpnQnVBR0VBYlFCb" + + "EFDQUFWQUJwQUcwQVpRQnpBQ0FBVGdCbEFIY0FJQUJTQUc4QWJRQmhBRzRBT3dCOUFGUUFhUUJ0QUdVQ" + + "WN3QWdBRTRBWlFCM0FDQUFVZ0J2QUcwQVlRQnVBQ0FBUXdCRkFEc0FmUUI3QUZ3QVpnQXhBRndBWmdCd" + + "UFHa0FiQUFnQUZRQWFRQnRBR1VBY3dBZ0FFNEFaUUIzQUNBQVVnQnZBRzBBWVFCdUFEc0FmUUI5QUEwQ" + + "UNnQjdBRndBWXdCdkFHd0Fid0J5QUhRQVlnQnNBQ0FBT3dCY0FISUFaUUJrQURBQVhBQm5BSElBWlFCb" + + "EFHNEFNQUJjQUdJQWJBQjFBR1VBTUFBN0FIMEFEUUFLQUZ3QWRnQnBBR1VBZHdCckFHa0FiZ0JrQURRQ" + + "VhBQjFBR01BTVFCY0FIQUFZUUJ5QUdRQVhBQmpBR1lBTVFCY0FHd0FZUUJ1QUdjQU1RQXdBRE1BT0FCY" + + "0FHWUFNQUJjQUdZQWN3QXlBREFBSUFCTEFHRUFjQUJxQUdFQU9nQmNBR01BWmdBd0FGd0FaZ0F4QUZ3Q" + + "VpnQnpBRElBTkFCY0FIQUFZUUJ5QUEwQUNnQjlBQTBBQ2dBPQHYA2V3QmNBSElBZEFCbUFERUFYQUJoQ" + + "Uc0QWN3QnBBR01BY0FCbkFERUFNZ0ExQURBQURRQUtBSHNBRFFBS0FGd0FaZ0J2QUc0QWRBQjBBR0lBY" + + "kFBTkFBb0Fld0JjQUdZQU1BQWdBRlFBYVFCdEFHVUFjd0FnQUU0QVpRQjNBQ0FBVWdCdkFHMEFZUUJ1Q" + + "URzQWZRQU5BQW9BZlFBTkFBb0Fld0FOQUFvQVhBQmpBRzhBYkFCdkFISUFkQUJpQUd3QURRQUtBRHNBR" + + "FFBS0FGd0FjZ0JsQUdRQU1BQmNBR2NBY2dCbEFHVUFiZ0F3QUZ3QVlnQnNBSFVBWlFBd0FEc0FEUUFLQ" + + "UZ3QWNnQmxBR1FBTUFCY0FHY0FjZ0JsQUdVQWJnQXdBRndBWWdCc0FIVUFaUUF5QURVQU5RQTdBQTBBQ" + + "2dCOUFBMEFDZ0I3QUZ3QWN3QmxBR01BZEFCa0FGd0FjQUJoQUhJQVpBQmNBSEFBYkFCaEFHa0FiZ0JjQ" + + "UhFQWJBQjdBRndBWmdCekFESUFNQUJjQUdNQVpnQXhBQ0FBY2dCcEFHTUFhQUJVQUdVQWVBQjBBRE1BZ" + + "lFCY0FIQUFZUUJ5QUgwQURRQUtBSDBBRFFBS0FBPT0="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.richText3 = new DevExpress.XtraReports.UI.XRRichText(); + this.richText2 = new DevExpress.XtraReports.UI.XRRichText(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.richText1 = new DevExpress.XtraReports.UI.XRRichText(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_ár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Listaár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Deviza = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.richText3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.richText2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.richText1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.line7, + this.label36, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 46F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.richText3, + this.richText2, + this.label29, + this.NameOfCreator, + this.label33, + this.label31, + this.label23, + this.label18, + this.label42, + this.label30, + this.DocumentNumber, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8, + this.label45}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 157.375F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.richText1, + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 109.0417F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.line6, + this.line5}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 65F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label7, + this.label44, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 155.2916F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label10, + this.line4, + this.label13, + this.label14, + this.label37, + this.label12, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 78.66666F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup1", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.875F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup2", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 14.66662F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label55, + this.label47, + this.label56}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 23.62499F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label54, + this.label53, + this.label50}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter2.HeightF = 23F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(4.166667F, 12.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.LineStyle = System.Drawing.Drawing2D.DashStyle.Dash; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.25F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(361.4583F, 1.874987F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(58.54166F, 20.00001F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 1.874987F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 21.875F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(240F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Product.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 1.041667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(93.9586F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // richText3 + // + this.richText3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Rtf", null, "OfferOutHeader.Contact.DisplayName")}); + this.richText3.LocationFloat = new DevExpress.Utils.PointFloat(500.1671F, 63.54167F); + this.richText3.Name = "richText3"; + this.richText3.SerializableRtfString = resources.GetString("richText3.SerializableRtfString"); + this.richText3.SizeF = new System.Drawing.SizeF(246.8327F, 42.36113F); + // + // richText2 + // + this.richText2.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 63.54167F); + this.richText2.Name = "richText2"; + this.richText2.SerializableRtfString = resources.GetString("richText2.SerializableRtfString"); + this.richText2.SizeF = new System.Drawing.SizeF(51.04166F, 23F); + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 84.72223F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label29.Text = "label29"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.UserCreated.UserName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 127.0833F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 105.9028F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 105.9028F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 84.72223F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 63.54167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(120F, 63.54167F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label42.Text = "label42"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateCreated", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 105.9028F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(198.9584F, 16.74999F); + this.label30.Text = "label30"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 130.625F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(198.9584F, 26.74997F); + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 130.625F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(91.04163F, 26.75F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Bizonylatszám:"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 105.9028F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(91.04163F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Kiállítás dátuma:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(746.9999F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Address1.FullAddress")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(447F, 42.00001F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label21.StylePriority.UseFont = false; + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Name")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447F, 22.00001F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(399.1666F, 21.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(47.8334F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Vevő:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 38.75F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Name")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 127.0833F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // richText1 + // + this.richText1.AnchorVertical = DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom; + this.richText1.CanGrow = false; + this.richText1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Rtf", null, "OfferOutHeader.Description")}); + this.richText1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 71.875F); + this.richText1.Name = "richText1"; + this.richText1.SerializableRtfString = resources.GetString("richText1.SerializableRtfString"); + this.richText1.SizeF = new System.Drawing.SizeF(486.5832F, 37.16671F); + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OfferOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(500.1671F, 10.00001F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(246.8328F, 35.5F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Árajánlat"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(148.9586F, 9.999974F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(594.7919F, 19.89581F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(152.208F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.85416F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(148.9586F, 2.166653F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 10.00001F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary1; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 10.00001F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Mindösszesen:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Oid")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(75F, 46.875F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label44.Text = "label44"; + this.label44.Visible = false; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 46.875F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő árajánlat alriport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(476.5833F, 86.95831F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.66666F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 46.66666F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Ssz."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.66666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 56.66669F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(225F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 48.66665F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(55F, 36.66666F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Cikkszám"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(704.2917F, 10.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(32.70831F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "oldal"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(679.2917F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 20F); + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(747F, 21.875F); + this.label43.StylePriority.UseBackColor = false; + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(276.0417F, 13.00004F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label55 + // + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(294.9999F, 18.83335F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "label55"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##0}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label47.Summary = summary2; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 9F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "... összesen:"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label54 + // + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "... összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.AutoWidth = true; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label53.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(276.0417F, 18.83335F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "label53"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(113.0002F, 18.83335F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label50.Summary = summary3; + this.label50.Text = "label47"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_ár + // + this.Nettó_ár.Expression = "[Listaár]*((100-[DiscountPercent])/100)"; + this.Nettó_ár.Name = "Nettó_ár"; + // + // Nettó_érték + // + this.Nettó_érték.Expression = "[Nettó_ár] * [QTT]\r\n"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_érték + // + this.Áfa_érték.Expression = "[Nettó_érték] * ([VAT.KeyValuePercent]/100)\r\n"; + this.Áfa_érték.Name = "Áfa_érték"; + // + // Bruttó_érték + // + this.Bruttó_érték.Expression = "[Nettó_érték] + [Áfa_érték]"; + this.Bruttó_érték.Name = "Bruttó_érték"; + // + // Listaár + // + this.Listaár.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName] ==\'HUF\' ,[ListPriceHUF] , [ListPriceD" + + "EV]) "; + this.Listaár.Name = "Listaár"; + // + // Deviza + // + this.Deviza.Expression = "[OfferOutHeader.CurrencyName.ShortName]"; + this.Deviza.Name = "Deviza"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupFooter1, + this.GroupFooter2}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_ár, + this.Nettó_érték, + this.Áfa_érték, + this.Bruttó_érték, + this.Listaár, + this.Deviza}); + this.DisplayName = "Kimenő árajánlat (árak nélkül)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 109, 65); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.richText3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.richText2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.richText1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül)_DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül)_DEV.repx new file mode 100644 index 0000000..1d5d00d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat (árak nélkül)_DEV.repx @@ -0,0 +1,1285 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRRichText richText1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_ár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_érték; + private DevExpress.XtraReports.UI.CalculatedField Listaár; + private DevExpress.XtraReports.UI.CalculatedField Deviza; + private DevExpress.XtraReports.UI.CalculatedField Netto_érték_DEV; + private DevExpress.XtraReports.UI.CalculatedField Netto_ár_DEV; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4lvRzRMBh2lF1RwbeVYAAAAAAAAAjgAAAGcAAAD0AAAADQEAACsAAAC/AAAAR" + + "AIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQCXBAAADEYAaQBsAHQAZQByALgEAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuALoEAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwC8BAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAL4EAAAUUgBlAHAAbwByAHQATgBhAG0AZQC/BAAAPnIAaQBjAGgAVABlAHgAdAAxAC4AUwBlAHIAa" + + "QBhAGwAaQB6AGEAYgBsAGUAUgB0AGYAUwB0AHIAaQBuAGcA6QQAAAGUCUltcG9ydHMgRGV2RXhwcmVzc" + + "y5FeHByZXNzQXBwDQpJbXBvcnRzIERldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzDQpJbXBvcnRzI" + + "ERldkV4cHJlc3MuUGVyc2lzdGVudC5CYXNlSW1wbA0KSW1wb3J0cyBEZXZFeHByZXNzLlhwbw0KSW1wb" + + "3J0cyBEZXZFeHByZXNzLkRhdGEuRmlsdGVyaW5nDQoNClByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb" + + "3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qc" + + "mludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvd" + + "XJjZS5GaWx0ZXJTdHJpbmc9Ik9mZmVyT3V0SGVhZGVyLk9pZD0nIiAmIGxhYmVsNDQuVGV4dC5Ub1N0c" + + "mluZyAmICInIg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBOYW1lT2ZDcmVhdG9yX0JlZm9yZVByaW50K" + + "EJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuU" + + "HJpbnRFdmVudEFyZ3MpDQonRGltIF9OYW1lT2ZDcmVhdG9yIEFzIFhSTGFiZWwgPSBDVHlwZShzZW5kZ" + + "XIsIFhSTGFiZWwpDQonRGltIF9yZXBvcnQgQXMgWGFmUmVwb3J0ID0gQ1R5cGUoX05hbWVPZkNyZWF0b" + + "3IuUmVwb3J0LCBYYWZSZXBvcnQpDQonRGltIF9vY3VyIEFzIE9iamVjdFNwYWNlID0gQ1R5cGUoX3Jlc" + + "G9ydC5PYmplY3RTcGFjZSwgT2JqZWN0U3BhY2UpDQonRGltIF9BdWRpdFRyYWlsIEFzIFhQQ29sbGVjd" + + "GlvbihPZiBBdWRpdERhdGFJdGVtUGVyc2lzdGVudCkgPSBBdWRpdGVkT2JqZWN0V2Vha1JlZmVyZW5jZ" + + "S5HZXRBdWRpdFRyYWlsKF9vY3VyLlNlc3Npb24sIEdldEN1cnJlbnRSb3coKSkNCidEaW0gX1VzZXIgQ" + + "XMgVXNlcg0KDQonRm9yIEVhY2ggX2l0ZW0gQXMgQXVkaXREYXRhSXRlbVBlcnNpc3RlbnQgaW4gX0F1Z" + + "Gl0VHJhaWwNCidJZiBfaXRlbS5PcGVyYXRpb25UeXBlPSJPYmplY3RDcmVhdGVkIiBUaGVuDQonX1VzZ" + + "XIgPSBfb2N1ci5GaW5kT2JqZWN0KE9mIFVzZXIpKENyaXRlcmlhT3BlcmF0b3IuUGFyc2UoIlVzZXJOY" + + "W1lPT8iLF9pdGVtLlVzZXJOYW1lICkpDQoNCidfTmFtZU9mQ3JlYXRvci5Gb3JlQ29sb3IgPSBDb2xvc" + + "i5SZWQNCg0KJ19OYW1lT2ZDcmVhdG9yLlRleHQgPcKgX1VzZXIuRnVsbE5hbWUNCg0KJ0VuZCBJZgkNC" + + "idOZXh0DQpFbmQgU3ViAR9TSVNCdXNpbmVzcy5Nb2R1bGUuT2ZmZXJPdXRSb3dzAQABAAEAAAEoS2ltZ" + + "W7FkSDDoXJhasOhbmxhdCAow6FyYWsgbsOpbGvDvGwpX0RFVgHYA2V3QmNBSElBZEFCbUFERUFYQUJoQ" + + "Uc0QWN3QnBBR01BY0FCbkFERUFNZ0ExQURBQURRQUtBSHNBRFFBS0FGd0FaZ0J2QUc0QWRBQjBBR0lBY" + + "kFBTkFBb0Fld0JjQUdZQU1BQWdBRlFBYVFCdEFHVUFjd0FnQUU0QVpRQjNBQ0FBVWdCdkFHMEFZUUJ1Q" + + "URzQWZRQU5BQW9BZlFBTkFBb0Fld0FOQUFvQVhBQmpBRzhBYkFCdkFISUFkQUJpQUd3QURRQUtBRHNBR" + + "FFBS0FGd0FjZ0JsQUdRQU1BQmNBR2NBY2dCbEFHVUFiZ0F3QUZ3QVlnQnNBSFVBWlFBd0FEc0FEUUFLQ" + + "UZ3QWNnQmxBR1FBTUFCY0FHY0FjZ0JsQUdVQWJnQXdBRndBWWdCc0FIVUFaUUF5QURVQU5RQTdBQTBBQ" + + "2dCOUFBMEFDZ0I3QUZ3QWN3QmxBR01BZEFCa0FGd0FjQUJoQUhJQVpBQmNBSEFBYkFCaEFHa0FiZ0JjQ" + + "UhFQWJBQjdBRndBWmdCekFESUFNQUJjQUdNQVpnQXhBQ0FBY2dCcEFHTUFhQUJVQUdVQWVBQjBBREVBZ" + + "lFCY0FIQUFZUUJ5QUgwQURRQUtBSDBBRFFBS0FBPT0="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.richText1 = new DevExpress.XtraReports.UI.XRRichText(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_ár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Listaár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Deviza = new DevExpress.XtraReports.UI.CalculatedField(); + this.Netto_érték_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Netto_ár_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.richText1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.line7, + this.label36, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 46F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label34, + this.label51, + this.label32, + this.label26, + this.label25, + this.label22, + this.label17, + this.label16, + this.label15, + this.label2, + this.label29, + this.NameOfCreator, + this.label33, + this.label31, + this.label23, + this.label18, + this.label42, + this.label30, + this.DocumentNumber, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8, + this.label45}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 205.375F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.richText1, + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 120F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.line6, + this.line5}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 65F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label7, + this.label44, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 155.2916F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label10, + this.line4, + this.label13, + this.label14, + this.label37, + this.label12, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 78.66666F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup1", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.875F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup2", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 14.66662F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label55, + this.label47, + this.label56}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 23.62499F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label54, + this.label53, + this.label50}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter2.HeightF = 23F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(4.166667F, 12.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.LineStyle = System.Drawing.Drawing2D.DashStyle.Dash; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.25F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(361.4583F, 1.874987F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(58.54166F, 20.00001F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 1.874987F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 21.875F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(240F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Product.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 1.041667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(93.9586F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CurrencyName.ShortName")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(570.4166F, 154.25F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(91.04163F, 16.75F); + this.label34.StylePriority.UseFont = false; + this.label34.Text = "label34"; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 154.25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(123.4167F, 16.75F); + this.label51.StylePriority.UseFont = false; + this.label51.Text = "Elszámolási pénznem:"; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.ShipmentOption.ShortName")}); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 188.625F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.label32.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label32.Text = "label32"; + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 188.625F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label26.StylePriority.UseFont = false; + this.label26.Text = "Szállítási feltételek:"; + // + // label25 + // + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.PaymentOption.Description")}); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 171F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.label25.SizeF = new System.Drawing.SizeF(300F, 16.74998F); + this.label25.Text = "label25"; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 171F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label22.StylePriority.UseFont = false; + this.label22.Text = "Fizetési feltételek:"; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateDue", "{0:yyyy.MM.dd.}")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 154.25F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.label17.SizeF = new System.Drawing.SizeF(300F, 16.74998F); + this.label17.Text = "label17"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 154.25F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Érvényes (-ig):"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Contact.DisplayName")}); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(489.7504F, 63.54167F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(257.2493F, 16.74999F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 63.54167F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(42.75052F, 16.74999F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Kapja:"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 84.72223F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label29.Text = "label29"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.UserCreated.FullName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 127.0833F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 105.9028F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 105.9028F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 84.72223F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 63.54167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(120F, 63.54167F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label42.Text = "label42"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateCreated", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 105.9028F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(198.9584F, 16.74999F); + this.label30.Text = "label30"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 127.0833F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(198.9584F, 16.75F); + this.DocumentNumber.Text = "DocumentNumber"; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 127.0833F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(91.04163F, 16.75F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "Bizonylatszám:"; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 105.9028F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(91.04163F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Kiállítás dátuma:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(746.9999F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Address1.FullAddress")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(447F, 42.00001F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label21.StylePriority.UseFont = false; + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Name")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447F, 22.00001F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(399.1666F, 21.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(47.8334F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Vevő:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 38.75F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Name")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 127.0833F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // richText1 + // + this.richText1.AnchorVertical = DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom; + this.richText1.CanGrow = false; + this.richText1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Rtf", null, "OfferOutHeader.Description")}); + this.richText1.LocationFloat = new DevExpress.Utils.PointFloat(260.4168F, 56.45832F); + this.richText1.Name = "richText1"; + this.richText1.SerializableRtfString = resources.GetString("richText1.SerializableRtfString"); + this.richText1.SizeF = new System.Drawing.SizeF(486.5832F, 63.54169F); + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OfferOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(500F, 15F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(246.8328F, 35.5F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Árajánlat"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(148.9586F, 9.999974F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(594.7919F, 19.89581F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(152.208F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.85416F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(148.9586F, 2.166653F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 10.00001F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#.00}"; + summary1.IgnoreNullValues = true; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary1; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 10.00001F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Mindösszesen:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Oid")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(75F, 46.875F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label44.Text = "label44"; + this.label44.Visible = false; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 46.875F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő árajánlat alriport_DEV"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(476.5833F, 86.95831F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.66666F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 46.66666F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Ssz."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.66666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 56.66669F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(225F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 48.66665F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(55F, 36.66666F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Cikkszám"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(704.2917F, 10.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(32.70831F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "oldal"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(679.2917F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 20F); + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(747F, 21.875F); + this.label43.StylePriority.UseBackColor = false; + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(276.0417F, 13.00004F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label55 + // + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(294.9999F, 18.83335F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "label55"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#.00}"; + summary2.IgnoreNullValues = true; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label47.Summary = summary2; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 9F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "... összesen:"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label54 + // + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "... összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.AutoWidth = true; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label53.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(276.0417F, 18.83335F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "label53"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(113.0002F, 18.83335F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#.00}"; + summary3.IgnoreNullValues = true; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label50.Summary = summary3; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_ár + // + this.Nettó_ár.Expression = "[Listaár]*((100-[DiscountPercent])/100)"; + this.Nettó_ár.Name = "Nettó_ár"; + // + // Nettó_érték + // + this.Nettó_érték.Expression = "[Nettó_ár] * [QTT]\r\n"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_érték + // + this.Áfa_érték.Expression = "[Nettó_érték] * ([VAT.KeyValuePercent]/100)\r\n"; + this.Áfa_érték.Name = "Áfa_érték"; + // + // Bruttó_érték + // + this.Bruttó_érték.Expression = "[Nettó_érték] + [Áfa_érték]"; + this.Bruttó_érték.Name = "Bruttó_érték"; + // + // Listaár + // + this.Listaár.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName] ==\'HUF\' ,[ListPriceHUF] , [ListPriceD" + + "EV]) "; + this.Listaár.Name = "Listaár"; + // + // Deviza + // + this.Deviza.Expression = "[OfferOutHeader.CurrencyName.ShortName]"; + this.Deviza.Name = "Deviza"; + // + // Netto_érték_DEV + // + this.Netto_érték_DEV.Expression = "[QTT]*[Netto_ár_DEV]"; + this.Netto_érték_DEV.Name = "Netto_érték_DEV"; + // + // Netto_ár_DEV + // + this.Netto_ár_DEV.Expression = "[ListPriceDEV]*((100-[DiscountPercent])/100)"; + this.Netto_ár_DEV.Name = "Netto_ár_DEV"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupFooter1, + this.GroupFooter2}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_ár, + this.Nettó_érték, + this.Áfa_érték, + this.Bruttó_érték, + this.Listaár, + this.Deviza, + this.Netto_érték_DEV, + this.Netto_ár_DEV}); + this.DisplayName = "Kimenő árajánlat (árak nélkül)_DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 120, 65); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.richText1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport.repx new file mode 100644 index 0000000..6047c59 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport.repx @@ -0,0 +1,457 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAYgIAAAxGAGkAbAB0AGUAcgCGAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCIAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAigIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCMAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAjQIAAAHfBHVzaW5nIFN5c3RlbTsNCnVzaW5nIFN5c3RlbS5Db2xsZ" + + "WN0aW9ucy5HZW5lcmljOw0KdXNpbmcgU3lzdGVtLkRyYXdpbmc7DQp1c2luZyBTeXN0ZW0uTGlucTsNC" + + "nVzaW5nIFN5c3RlbS5UZXh0Ow0KdXNpbmcgU3lzdGVtLldpbmRvd3MuRm9ybXM7DQoNCnByaXZhdGUgd" + + "m9pZCBPbkJlZm9yZVByaW50KG9iamVjdCBzZW5kZXIsIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBya" + + "W50RXZlbnRBcmdzIGUpIA0Kew0KCS8vaWYgKHBpY3R1cmVCb3gxLmltYWdlPT1udWxsKSANCi8vew0KL" + + "y9waWN0dXJlQm94MS4NCi8vfQ0KfQ0KDQpwcml2YXRlIHZvaWQgcGljdHVyZUJveDFfUHJldmlld0Rvd" + + "WJsZUNsaWNrKG9iamVjdCBzZW5kZXIsIERldkV4cHJlc3MuWHRyYVJlcG9ydHMuVUkuUHJldmlld01vd" + + "XNlRXZlbnRBcmdzIGUpIA0Kew0KCXN0cmluZyBwaWM7DQpPcGVuRmlsZURpYWxvZyBvRmlsZT1uZXcgT" + + "3BlbkZpbGVEaWFsb2coKTsNCm9GaWxlLkZpbHRlciA9ICJqcGcgZmlsZXMgKCouanBnKXwqLmpwZ3xib" + + "XAgZmlsZSAoKi5ibXApfCouYm1wIiA7DQoJb0ZpbGUuU2hvd0RpYWxvZygpOw0KcGljPW9GaWxlLkZpb" + + "GVOYW1lOw0KTWVzc2FnZUJveC5TaG93KHBpYyk7DQp9DQoBIlNJU0J1c2luZXNzLk1vZHVsZS5PZmZlc" + + "k91dFZBVFJvd3MBAAEAAQAAARxLaW1lbsWRIMOhcmFqw6FubGF0IGFscmlwb3J0"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label4, + this.label3, + this.label2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 23.08334F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label6, + this.label8, + this.label9, + this.label11, + this.line1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 25.00002F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 6F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label14, + this.label13}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 33.41662F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(70.00002F, 23F); + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,##0}")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(75.49997F, 23F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,##0}")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(69.99997F, 23F); + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,##0}")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "ÁFA érték"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label6 + // + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Összesítés:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "ÁFA kulcs"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Nettó érték"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Bruttó érték"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(11.04171F, 23.00002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(11.0417F, 2.083333F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 4.083333F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(144.3127F, 22.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Mindösszesen bruttó:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(308.8438F, 4.083347F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(175.1146F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##0}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label13.Summary = summary1; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.DisplayName = "Kimenő árajánlat alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 6, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport_DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport_DEV.repx new file mode 100644 index 0000000..7581a92 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat alriport_DEV.repx @@ -0,0 +1,513 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_összeg; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_összeg; + private DevExpress.XtraReports.UI.CalculatedField Netto_érték_DEV; + private DevExpress.XtraReports.UI.CalculatedField Áfa_összeg_DEV; + private DevExpress.XtraReports.UI.CalculatedField Brutto_összeg_DEV; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAYgIAAAxGAGkAbAB0AGUAcgCGAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCIAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAigIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCMAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAjQIAAAHfBHVzaW5nIFN5c3RlbTsNCnVzaW5nIFN5c3RlbS5Db2xsZ" + + "WN0aW9ucy5HZW5lcmljOw0KdXNpbmcgU3lzdGVtLkRyYXdpbmc7DQp1c2luZyBTeXN0ZW0uTGlucTsNC" + + "nVzaW5nIFN5c3RlbS5UZXh0Ow0KdXNpbmcgU3lzdGVtLldpbmRvd3MuRm9ybXM7DQoNCnByaXZhdGUgd" + + "m9pZCBPbkJlZm9yZVByaW50KG9iamVjdCBzZW5kZXIsIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBya" + + "W50RXZlbnRBcmdzIGUpIA0Kew0KCS8vaWYgKHBpY3R1cmVCb3gxLmltYWdlPT1udWxsKSANCi8vew0KL" + + "y9waWN0dXJlQm94MS4NCi8vfQ0KfQ0KDQpwcml2YXRlIHZvaWQgcGljdHVyZUJveDFfUHJldmlld0Rvd" + + "WJsZUNsaWNrKG9iamVjdCBzZW5kZXIsIERldkV4cHJlc3MuWHRyYVJlcG9ydHMuVUkuUHJldmlld01vd" + + "XNlRXZlbnRBcmdzIGUpIA0Kew0KCXN0cmluZyBwaWM7DQpPcGVuRmlsZURpYWxvZyBvRmlsZT1uZXcgT" + + "3BlbkZpbGVEaWFsb2coKTsNCm9GaWxlLkZpbHRlciA9ICJqcGcgZmlsZXMgKCouanBnKXwqLmpwZ3xib" + + "XAgZmlsZSAoKi5ibXApfCouYm1wIiA7DQoJb0ZpbGUuU2hvd0RpYWxvZygpOw0KcGljPW9GaWxlLkZpb" + + "GVOYW1lOw0KTWVzc2FnZUJveC5TaG93KHBpYyk7DQp9DQoBIlNJU0J1c2luZXNzLk1vZHVsZS5PZmZlc" + + "k91dFZBVFJvd3MBAAEAAQAAASBLaW1lbsWRIMOhcmFqw6FubGF0IGFscmlwb3J0X0RFVg=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_összeg = new DevExpress.XtraReports.UI.CalculatedField(); + this.Netto_érték_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_összeg_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Brutto_összeg_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label4, + this.label3, + this.label2}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 23.08334F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label6, + this.label8, + this.label9, + this.label11, + this.line1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 25.00002F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 6F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label14, + this.label13}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 33.41662F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(70.00002F, 23F); + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Brutto_összeg_DEV", "{0:#.00}")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(75.49997F, 23F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_összeg_DEV", "{0:#.00}")}); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(69.99997F, 23F); + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV", "{0:#.00}")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(308.8437F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "ÁFA érték"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label6 + // + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Összesítés:"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "ÁFA kulcs"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(209.2291F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(70F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Nettó érték"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(408.4583F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(75F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Bruttó érték"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(11.04171F, 23.00002F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(11.0417F, 2.083333F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(472.9166F, 2F); + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(109.6146F, 4.083333F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(144.3127F, 22.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Mindösszesen bruttó:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Brutto_összeg_DEV")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(308.8438F, 4.083347F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(175.1146F, 20F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#.00}"; + summary1.IgnoreNullValues = true; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label13.Summary = summary1; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_érték + // + this.Nettó_érték.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]=\'HUF\',[AmountNettoHUF] ,[AmountNetto" + + "DEV] )"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_összeg + // + this.Áfa_összeg.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]=\'HUF\',[AmountVATHUF], [AmountVATDEV])" + + ""; + this.Áfa_összeg.Name = "Áfa_összeg"; + // + // Bruttó_összeg + // + this.Bruttó_összeg.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]=\'HUF\',[AmountBruttoHUF] ,[AmountBrut" + + "toDEV] )"; + this.Bruttó_összeg.Name = "Bruttó_összeg"; + // + // Netto_érték_DEV + // + this.Netto_érték_DEV.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]<>\'HUF\',[AmountNettoDEV], [AmountNetto" + + "HUF] )"; + this.Netto_érték_DEV.Name = "Netto_érték_DEV"; + // + // Áfa_összeg_DEV + // + this.Áfa_összeg_DEV.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]<>\'HUF\',[AmountVATDEV] ,[AmountVATHUF" + + "] )"; + this.Áfa_összeg_DEV.Name = "Áfa_összeg_DEV"; + // + // Brutto_összeg_DEV + // + this.Brutto_összeg_DEV.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName]<>\'HUF\', [AmountBruttoDEV] ,[AmountBru" + + "ttoHUF] )"; + this.Brutto_összeg_DEV.Name = "Brutto_összeg_DEV"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_érték, + this.Áfa_összeg, + this.Bruttó_összeg, + this.Netto_érték_DEV, + this.Áfa_összeg_DEV, + this.Brutto_összeg_DEV}); + this.DisplayName = "Kimenő árajánlat alriport_DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 6, 0); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat.repx new file mode 100644 index 0000000..30b009f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat.repx @@ -0,0 +1,1273 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_ár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_érték; + private DevExpress.XtraReports.UI.CalculatedField Listaár; + private DevExpress.XtraReports.UI.CalculatedField Deviza; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAlwQAAAxGAGkAbAB0AGUAcgC4BAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgC6BAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAvAQAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQC+BAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAvwQAAAGUCUltcG9ydHMgRGV2RXhwcmVzcy5FeHByZXNzQXBwDQpJb" + + "XBvcnRzIERldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzDQpJbXBvcnRzIERldkV4cHJlc3MuUGVyc" + + "2lzdGVudC5CYXNlSW1wbA0KSW1wb3J0cyBEZXZFeHByZXNzLlhwbw0KSW1wb3J0cyBEZXZFeHByZXNzL" + + "kRhdGEuRmlsdGVyaW5nDQoNClByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb3JlUHJpbnQoQnlWYWwgc" + + "2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2Z" + + "W50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpb" + + "mc9Ik9mZmVyT3V0SGVhZGVyLk9pZD0nIiAmIGxhYmVsNDQuVGV4dC5Ub1N0cmluZyAmICInIg0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBOYW1lT2ZDcmVhdG9yX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBc" + + "yBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpD" + + "QonRGltIF9OYW1lT2ZDcmVhdG9yIEFzIFhSTGFiZWwgPSBDVHlwZShzZW5kZXIsIFhSTGFiZWwpDQonR" + + "GltIF9yZXBvcnQgQXMgWGFmUmVwb3J0ID0gQ1R5cGUoX05hbWVPZkNyZWF0b3IuUmVwb3J0LCBYYWZSZ" + + "XBvcnQpDQonRGltIF9vY3VyIEFzIE9iamVjdFNwYWNlID0gQ1R5cGUoX3JlcG9ydC5PYmplY3RTcGFjZ" + + "SwgT2JqZWN0U3BhY2UpDQonRGltIF9BdWRpdFRyYWlsIEFzIFhQQ29sbGVjdGlvbihPZiBBdWRpdERhd" + + "GFJdGVtUGVyc2lzdGVudCkgPSBBdWRpdGVkT2JqZWN0V2Vha1JlZmVyZW5jZS5HZXRBdWRpdFRyYWlsK" + + "F9vY3VyLlNlc3Npb24sIEdldEN1cnJlbnRSb3coKSkNCidEaW0gX1VzZXIgQXMgVXNlcg0KDQonRm9yI" + + "EVhY2ggX2l0ZW0gQXMgQXVkaXREYXRhSXRlbVBlcnNpc3RlbnQgaW4gX0F1ZGl0VHJhaWwNCidJZiBfa" + + "XRlbS5PcGVyYXRpb25UeXBlPSJPYmplY3RDcmVhdGVkIiBUaGVuDQonX1VzZXIgPSBfb2N1ci5GaW5kT" + + "2JqZWN0KE9mIFVzZXIpKENyaXRlcmlhT3BlcmF0b3IuUGFyc2UoIlVzZXJOYW1lPT8iLF9pdGVtLlVzZ" + + "XJOYW1lICkpDQoNCidfTmFtZU9mQ3JlYXRvci5Gb3JlQ29sb3IgPSBDb2xvci5SZWQNCg0KJ19OYW1lT" + + "2ZDcmVhdG9yLlRleHQgPcKgX1VzZXIuRnVsbE5hbWUNCg0KJ0VuZCBJZgkNCidOZXh0DQpFbmQgU3ViA" + + "R9TSVNCdXNpbmVzcy5Nb2R1bGUuT2ZmZXJPdXRSb3dzAQABAAEAAAETS2ltZW7FkSDDoXJhasOhbmxhd" + + "A=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_ár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Listaár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Deviza = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label38, + this.label26, + this.line7, + this.label17, + this.label34, + this.label2, + this.label36, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 46F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label29, + this.NameOfCreator, + this.label45, + this.label33, + this.label31, + this.label23, + this.label18, + this.label42, + this.label30, + this.DocumentNumber, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 157.375F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 109.0417F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.line6, + this.line5}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 65F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label7, + this.label44, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 155.2916F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label22, + this.label16, + this.label10, + this.line4, + this.label13, + this.label14, + this.label25, + this.label32, + this.label35, + this.label37, + this.label12, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 78.66666F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup1", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.875F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup2", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 14.66662F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label55, + this.label47, + this.label56}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 23.62499F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label54, + this.label53, + this.label50}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter2.HeightF = 23F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(4.166667F, 12.5F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Bruttó_érték", "{0:#,##0}")}); + this.label38.Font = new System.Drawing.Font("Arial", 8F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 1F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték", "{0:#,##0}")}); + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(605F, 1F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.LineStyle = System.Drawing.Drawing2D.DashStyle.Dash; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.25F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték", "{0:#,##0}")}); + this.label17.Font = new System.Drawing.Font("Arial", 8F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(490.0001F, 1F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label17.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + summary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label17.Summary = summary1; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValuePercent", "{0}%")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(560.0001F, 1F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_ár", "{0:#,##0}")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(420.0001F, 1F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label2.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + summary2.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label2.Summary = summary2; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(361.4583F, 1.874987F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(58.54166F, 20.00001F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 1.874987F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 21.875F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(240F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Product.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 1.041667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(93.9586F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 84.72223F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label29.Text = "label29"; + // + // NameOfCreator + // + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 127.0833F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 127.0833F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 105.9028F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 105.9028F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 84.72223F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 63.54167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(120F, 63.54167F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label42.Text = "label42"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateCreated", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(538.0416F, 81.81251F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(198.9584F, 16.74999F); + this.label30.Text = "label30"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(538.0417F, 105.9028F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(198.9584F, 27.16669F); + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(447F, 105.9028F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(91.04163F, 27.16667F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Bizonylatszám:"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(447F, 81.81251F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(91.04163F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Kiállítás dátuma:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(746.9999F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Address1.FullAddress")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(447F, 42.00001F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label21.StylePriority.UseFont = false; + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Name")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447F, 22.00001F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(399.1666F, 21.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(47.8334F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Vevő:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 38.75F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Name")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OfferOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(500.1671F, 33.95834F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(246.8328F, 38.625F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Árajánlat"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(148.9586F, 9.999974F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Tetszőleges szöveg"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(594.7919F, 19.89581F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(152.208F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.85416F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(148.9586F, 2.166653F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 10.00001F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##0}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary3; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 10.00001F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Mindösszesen:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Oid")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(75F, 46.875F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label44.Text = "label44"; + this.label44.Visible = false; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 46.875F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő árajánlat alriport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(476.5833F, 86.95831F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.66666F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(605F, 46.66666F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Áfa érték"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(490F, 46.66666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Nettó érték"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 46.66666F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Ssz."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.66666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 56.66669F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(225F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 48.66665F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 46.66666F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bruttó érték"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(559.9999F, 46.66666F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "ÁFA"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(419.9999F, 46.66666F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "Nettó ár"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(55F, 36.66666F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Cikkszám"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(704.2917F, 10.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(32.70831F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "oldal"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(679.2917F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 20F); + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(747F, 21.875F); + this.label43.StylePriority.UseBackColor = false; + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(276.0417F, 13.00004F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label55 + // + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(294.9999F, 18.83335F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "label55"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##0}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label47.Summary = summary4; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 9F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "... összesen:"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label54 + // + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "... összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.AutoWidth = true; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label53.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(276.0417F, 18.83335F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "label53"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Nettó_érték")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(113.0002F, 18.83335F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##0}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label50.Summary = summary5; + this.label50.Text = "label47"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_ár + // + this.Nettó_ár.Expression = "[Listaár]*((100-[DiscountPercent])/100)"; + this.Nettó_ár.Name = "Nettó_ár"; + // + // Nettó_érték + // + this.Nettó_érték.Expression = "[Nettó_ár] * [QTT]\r\n"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_érték + // + this.Áfa_érték.Expression = "[Nettó_érték] * ([VAT.KeyValuePercent]/100)\r\n"; + this.Áfa_érték.Name = "Áfa_érték"; + // + // Bruttó_érték + // + this.Bruttó_érték.Expression = "[Nettó_érték] + [Áfa_érték]"; + this.Bruttó_érték.Name = "Bruttó_érték"; + // + // Listaár + // + this.Listaár.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName] ==\'HUF\' ,[ListPriceHUF] , [ListPriceD" + + "EV]) "; + this.Listaár.Name = "Listaár"; + // + // Deviza + // + this.Deviza.Expression = "[OfferOutHeader.CurrencyName.ShortName]"; + this.Deviza.Name = "Deviza"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupFooter1, + this.GroupFooter2}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_ár, + this.Nettó_érték, + this.Áfa_érték, + this.Bruttó_érték, + this.Listaár, + this.Deviza}); + this.DisplayName = "Kimenő árajánlat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 109, 65); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat_DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat_DEV.repx new file mode 100644 index 0000000..55263f2 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Kimenő árajánlat_DEV.repx @@ -0,0 +1,1435 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel NameOfCreator; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRRichText richText1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label56; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter2; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Nettó_ár; + private DevExpress.XtraReports.UI.CalculatedField Nettó_érték; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték; + private DevExpress.XtraReports.UI.CalculatedField Bruttó_érték; + private DevExpress.XtraReports.UI.CalculatedField Listaár; + private DevExpress.XtraReports.UI.CalculatedField Deviza; + private DevExpress.XtraReports.UI.CalculatedField Netto_ár_DEV; + private DevExpress.XtraReports.UI.CalculatedField Netto_érték_DEV; + private DevExpress.XtraReports.UI.CalculatedField Áfa_érték_DEV; + private DevExpress.XtraReports.UI.CalculatedField Brutto_érték_DEV; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4lvRzRMBh2lF1RwbeVYAAAAAAAAAjgAAAGcAAAD0AAAADQEAACsAAAC/AAAAR" + + "AIAACYkAHQAaABpAHMALgBTAGMAcgBpAHAAdABzAFMAbwB1AHIAYwBlAAAAAAAmRABhAHQAYQBTAG8Ad" + + "QByAGMAZQBDAGwAYQBzAHMATgBhAG0AZQCXBAAADEYAaQBsAHQAZQByALgEAAAiRgBpAGwAdABlAHIAR" + + "ABlAHMAYwByAGkAcAB0AGkAbwBuALoEAAAsRgBpAGwAdABlAHIARgBvAHIARABlAHMAaQBnAG4AUAByA" + + "GUAdgBpAGUAdwC8BAAAMFAAYQByAGEAbQBlAHQAZQByAHMATwBiAGoAZQBjAHQAVAB5AHAAZQBOAGEAb" + + "QBlAL4EAAAUUgBlAHAAbwByAHQATgBhAG0AZQC/BAAAPnIAaQBjAGgAVABlAHgAdAAxAC4AUwBlAHIAa" + + "QBhAGwAaQB6AGEAYgBsAGUAUgB0AGYAUwB0AHIAaQBuAGcA2AQAAAGUCUltcG9ydHMgRGV2RXhwcmVzc" + + "y5FeHByZXNzQXBwDQpJbXBvcnRzIERldkV4cHJlc3MuRXhwcmVzc0FwcC5SZXBvcnRzDQpJbXBvcnRzI" + + "ERldkV4cHJlc3MuUGVyc2lzdGVudC5CYXNlSW1wbA0KSW1wb3J0cyBEZXZFeHByZXNzLlhwbw0KSW1wb" + + "3J0cyBEZXZFeHByZXNzLkRhdGEuRmlsdGVyaW5nDQoNClByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb" + + "3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qc" + + "mludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvd" + + "XJjZS5GaWx0ZXJTdHJpbmc9Ik9mZmVyT3V0SGVhZGVyLk9pZD0nIiAmIGxhYmVsNDQuVGV4dC5Ub1N0c" + + "mluZyAmICInIg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBOYW1lT2ZDcmVhdG9yX0JlZm9yZVByaW50K" + + "EJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuU" + + "HJpbnRFdmVudEFyZ3MpDQonRGltIF9OYW1lT2ZDcmVhdG9yIEFzIFhSTGFiZWwgPSBDVHlwZShzZW5kZ" + + "XIsIFhSTGFiZWwpDQonRGltIF9yZXBvcnQgQXMgWGFmUmVwb3J0ID0gQ1R5cGUoX05hbWVPZkNyZWF0b" + + "3IuUmVwb3J0LCBYYWZSZXBvcnQpDQonRGltIF9vY3VyIEFzIE9iamVjdFNwYWNlID0gQ1R5cGUoX3Jlc" + + "G9ydC5PYmplY3RTcGFjZSwgT2JqZWN0U3BhY2UpDQonRGltIF9BdWRpdFRyYWlsIEFzIFhQQ29sbGVjd" + + "GlvbihPZiBBdWRpdERhdGFJdGVtUGVyc2lzdGVudCkgPSBBdWRpdGVkT2JqZWN0V2Vha1JlZmVyZW5jZ" + + "S5HZXRBdWRpdFRyYWlsKF9vY3VyLlNlc3Npb24sIEdldEN1cnJlbnRSb3coKSkNCidEaW0gX1VzZXIgQ" + + "XMgVXNlcg0KDQonRm9yIEVhY2ggX2l0ZW0gQXMgQXVkaXREYXRhSXRlbVBlcnNpc3RlbnQgaW4gX0F1Z" + + "Gl0VHJhaWwNCidJZiBfaXRlbS5PcGVyYXRpb25UeXBlPSJPYmplY3RDcmVhdGVkIiBUaGVuDQonX1VzZ" + + "XIgPSBfb2N1ci5GaW5kT2JqZWN0KE9mIFVzZXIpKENyaXRlcmlhT3BlcmF0b3IuUGFyc2UoIlVzZXJOY" + + "W1lPT8iLF9pdGVtLlVzZXJOYW1lICkpDQoNCidfTmFtZU9mQ3JlYXRvci5Gb3JlQ29sb3IgPSBDb2xvc" + + "i5SZWQNCg0KJ19OYW1lT2ZDcmVhdG9yLlRleHQgPcKgX1VzZXIuRnVsbE5hbWUNCg0KJ0VuZCBJZgkNC" + + "idOZXh0DQpFbmQgU3ViAR9TSVNCdXNpbmVzcy5Nb2R1bGUuT2ZmZXJPdXRSb3dzAQABAAEAAAEXS2ltZ" + + "W7FkSDDoXJhasOhbmxhdF9ERVYB2ANld0JjQUhJQWRBQm1BREVBWEFCaEFHNEFjd0JwQUdNQWNBQm5BR" + + "EVBTWdBMUFEQUFEUUFLQUhzQURRQUtBRndBWmdCdkFHNEFkQUIwQUdJQWJBQU5BQW9BZXdCY0FHWUFNQ" + + "UFnQUZRQWFRQnRBR1VBY3dBZ0FFNEFaUUIzQUNBQVVnQnZBRzBBWVFCdUFEc0FmUUFOQUFvQWZRQU5BQ" + + "W9BZXdBTkFBb0FYQUJqQUc4QWJBQnZBSElBZEFCaUFHd0FEUUFLQURzQURRQUtBRndBY2dCbEFHUUFNQ" + + "UJjQUdjQWNnQmxBR1VBYmdBd0FGd0FZZ0JzQUhVQVpRQXdBRHNBRFFBS0FGd0FjZ0JsQUdRQU1BQmNBR" + + "2NBY2dCbEFHVUFiZ0F3QUZ3QVlnQnNBSFVBWlFBeUFEVUFOUUE3QUEwQUNnQjlBQTBBQ2dCN0FGd0Fjd" + + "0JsQUdNQWRBQmtBRndBY0FCaEFISUFaQUJjQUhBQWJBQmhBR2tBYmdCY0FIRUFiQUI3QUZ3QVpnQnpBR" + + "ElBTUFCY0FHTUFaZ0F4QUNBQWNnQnBBR01BYUFCVUFHVUFlQUIwQURFQWZRQmNBSEFBWVFCeUFIMEFEU" + + "UFLQUgwQURRQUtBQT09"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupFooter2 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.NameOfCreator = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.richText1 = new DevExpress.XtraReports.UI.XRRichText(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label56 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Nettó_ár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Nettó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Bruttó_érték = new DevExpress.XtraReports.UI.CalculatedField(); + this.Listaár = new DevExpress.XtraReports.UI.CalculatedField(); + this.Deviza = new DevExpress.XtraReports.UI.CalculatedField(); + this.Netto_ár_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Netto_érték_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Áfa_érték_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + this.Brutto_érték_DEV = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.richText1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label38, + this.label26, + this.line7, + this.label17, + this.label34, + this.label2, + this.label36, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F); + this.detailBand1.HeightF = 46F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageFooterBand1.HeightF = 3.999964F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + this.pageFooterBand1.StylePriority.UseTextAlignment = false; + this.pageFooterBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label52, + this.label51, + this.label49, + this.label48, + this.label41, + this.label40, + this.label39, + this.label15, + this.label29, + this.NameOfCreator, + this.label45, + this.label33, + this.label31, + this.label23, + this.label18, + this.label42, + this.label30, + this.DocumentNumber, + this.label28, + this.label27, + this.line2, + this.label21, + this.label20, + this.label19, + this.label9, + this.label8}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.reportHeaderBand1.HeightF = 207.375F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.richText1, + this.pictureBox1, + this.label6}); + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.topMarginBand1.HeightF = 120F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label24, + this.line6, + this.line5}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9F); + this.bottomMarginBand1.HeightF = 65F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label7, + this.label44, + this.subreport1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 9F); + this.ReportFooter.HeightF = 155.2916F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label22, + this.label16, + this.label10, + this.line4, + this.label13, + this.label14, + this.label25, + this.label32, + this.label35, + this.label37, + this.label12, + this.pageInfo1}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 78.66666F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup1", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 21.875F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label46}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowGroup2", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 14.66662F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label55, + this.label47, + this.label56}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 23.62499F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupFooter2 + // + this.GroupFooter2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label54, + this.label53, + this.label50}); + this.GroupFooter2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter2.HeightF = 23F; + this.GroupFooter2.Name = "GroupFooter2"; + this.GroupFooter2.StylePriority.UseFont = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(4.166667F, 21.875F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Brutto_érték_DEV", "{0:#.00}")}); + this.label38.Font = new System.Drawing.Font("Arial", 8F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 1F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Áfa_érték_DEV", "{0:#.00}")}); + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(605F, 1F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line7 + // + this.line7.LineStyle = System.Drawing.Drawing2D.DashStyle.Dash; + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.25F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV", "{0:#.00}")}); + this.label17.Font = new System.Drawing.Font("Arial", 8F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(490.0001F, 1F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label17.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + summary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label17.Summary = summary1; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.KeyValuePercent", "{0}%")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(560.0001F, 1F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_ár_DEV", "{0:#.00}")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(420.0001F, 1F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.Scripts.OnSummaryGetResult = "label2_SummaryGetResult"; + this.label2.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + summary2.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom; + this.label2.Summary = summary2; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(361.4583F, 1.874987F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(58.54166F, 20.00001F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 1.874987F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 21.875F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(240F, 20F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Product.ProductNumber")}); + this.label1.Font = new System.Drawing.Font("Arial", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 1.041667F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnPreviewDoubleClick = "label1_PreviewDoubleClick"; + this.label1.SizeF = new System.Drawing.SizeF(93.9586F, 20.83333F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label52 + // + this.label52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CurrencyName.ShortName")}); + this.label52.Font = new System.Drawing.Font("Arial", 8F); + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(570.4166F, 154.25F); + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(104.5834F, 16.75F); + this.label52.StylePriority.UseFont = false; + this.label52.Text = "label52"; + // + // label51 + // + this.label51.Font = new System.Drawing.Font("Arial", 8F); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 154.25F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(123.4167F, 16.75F); + this.label51.StylePriority.UseFont = false; + this.label51.Text = "Elszámolási pénznem:"; + // + // label49 + // + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.PaymentOption.Description")}); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 171F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(299.9999F, 16.74998F); + this.label49.Text = "label49"; + // + // label48 + // + this.label48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.ShipmentOption.ShortName")}); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 187.75F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(299.9998F, 16.75003F); + this.label48.Text = "label48"; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateDue", "{0:yyyy. MM. dd.}")}); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 154.25F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(299.9999F, 16.74997F); + this.label41.Text = "label41"; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 8F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 187.75F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(108.3333F, 16.74998F); + this.label40.StylePriority.UseFont = false; + this.label40.Text = "Szállítási feltételek:"; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 8F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 171F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label39.StylePriority.UseFont = false; + this.label39.Text = "Fizetési feltételek:"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 8F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 154.25F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Érvényes (ig):"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumberEU")}); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 83.75001F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label29.Text = "label29"; + // + // NameOfCreator + // + this.NameOfCreator.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Contact.User.FullName")}); + this.NameOfCreator.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 124.1667F); + this.NameOfCreator.Name = "NameOfCreator"; + this.NameOfCreator.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.NameOfCreator.Scripts.OnBeforePrint = "NameOfCreator_BeforePrint"; + this.NameOfCreator.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.NameOfCreator.Text = "NameOfCreator"; + // + // label45 + // + this.label45.Font = new System.Drawing.Font("Arial", 8F); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 124.1667F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label45.StylePriority.UseFont = false; + this.label45.Text = "Készítette:"; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.CustomerBankAccounts.AccountNumber")}); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(120.0001F, 103.9583F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 103.9583F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Bankszámlaszám:"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 83.75001F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Közösségi adószám:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 63.54167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(108.3333F, 16.74999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Adószám:"; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.VATNumber")}); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(120F, 63.54167F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(300F, 16.74999F); + this.label42.Text = "label42"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DateCreated", "{0:yyyy. MMMM d.}")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(538.0418F, 103.9583F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(198.9584F, 16.74999F); + this.label30.Text = "label30"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(538.0418F, 124.1665F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(198.9584F, 16.75F); + this.DocumentNumber.Text = "DocumentNumber"; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 124.1665F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(91.04163F, 16.75F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "Bizonylatszám:"; + // + // label27 + // + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 103.9583F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(91.04163F, 16.74999F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "Kiállítás dátuma:"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(746.9999F, 2F); + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Address1.FullAddress", "{0}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(447F, 42.00001F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label21.StylePriority.UseFont = false; + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Customers.Contacts.DisplayName", "{0}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447F, 22.00001F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(399.1666F, 21.99999F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(47.8334F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Vevő:"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Address1.FullAddress")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 38.75F); + this.label9.Multiline = true; + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopJustify; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.CustomersFrom.Name")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 18.75F); + this.label8.Multiline = true; + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(300F, 20F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // richText1 + // + this.richText1.AnchorVertical = DevExpress.XtraReports.UI.VerticalAnchorStyles.Bottom; + this.richText1.CanGrow = false; + this.richText1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Rtf", null, "OfferOutHeader.Description")}); + this.richText1.LocationFloat = new DevExpress.Utils.PointFloat(260.4168F, 56.45831F); + this.richText1.Name = "richText1"; + this.richText1.SerializableRtfString = resources.GetString("richText1.SerializableRtfString"); + this.richText1.SizeF = new System.Drawing.SizeF(486.5832F, 63.54169F); + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OfferOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 20F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209.375F, 88.62499F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 21.75F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(500F, 15F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(246.8328F, 38.625F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Árajánlat"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.DocumentNumber")}); + this.label24.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(148.9586F, 9.999974F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(445.8333F, 21.875F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(594.7919F, 19.89581F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(152.208F, 2.083334F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 19.85416F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(148.9586F, 2.166653F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 10.00001F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#.00}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary3; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 10.00001F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Mindösszesen:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OfferOutHeader.Oid")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(75F, 46.875F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label44.Text = "label44"; + this.label44.Visible = false; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(260.4167F, 46.875F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő árajánlat alriport_DEV"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(476.5833F, 86.95831F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.66666F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(605F, 46.66666F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Áfa érték"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(490F, 46.66666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Nettó érték"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 8F); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 46.66666F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(40F, 20F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Ssz."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.66666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(747F, 2F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(54.99999F, 56.66669F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(225F, 20.00001F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Megnevezés"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(306.0417F, 48.66665F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Mennyiség"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(674.9999F, 46.66666F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bruttó érték"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(559.9999F, 46.66666F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(45F, 20F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "ÁFA"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(419.9999F, 46.66666F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(70F, 20F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "Nettó ár"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(55F, 36.66666F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(60F, 20F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Cikkszám"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label12 + // + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(704.2917F, 10.00001F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(32.70831F, 20F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "oldal"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(679.2917F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(22.91669F, 20F); + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(240)))), ((int)(((byte)(240)))), ((int)(((byte)(240))))); + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(747F, 21.875F); + this.label43.StylePriority.UseBackColor = false; + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(276.0417F, 13.00004F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label55 + // + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup1")}); + this.label55.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 0F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(294.9999F, 18.83335F); + this.label55.StylePriority.UseFont = false; + this.label55.StylePriority.UseTextAlignment = false; + this.label55.Text = "label55"; + this.label55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label47.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(447.0001F, 0F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(113.0001F, 18.83335F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#.00}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label47.Summary = summary4; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label56 + // + this.label56.Font = new System.Drawing.Font("Arial", 9F); + this.label56.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label56.Name = "label56"; + this.label56.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label56.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label56.StylePriority.UseFont = false; + this.label56.StylePriority.UseTextAlignment = false; + this.label56.Text = "... összesen:"; + this.label56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label54 + // + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(334.375F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(100F, 18.83335F); + this.label54.StylePriority.UseTextAlignment = false; + this.label54.Text = "... összesen:"; + this.label54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label53 + // + this.label53.AutoWidth = true; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowGroup2")}); + this.label53.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(18.95831F, 0F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(276.0417F, 18.83335F); + this.label53.StylePriority.UseFont = false; + this.label53.StylePriority.UseTextAlignment = false; + this.label53.Text = "label53"; + this.label53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Netto_érték_DEV")}); + this.label50.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(446.9999F, 0F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(113.0002F, 18.83335F); + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#.00}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label50.Summary = summary5; + this.label50.Text = "label50"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Nettó_ár + // + this.Nettó_ár.Expression = "[Listaár]*((100-[DiscountPercent])/100)"; + this.Nettó_ár.Name = "Nettó_ár"; + // + // Nettó_érték + // + this.Nettó_érték.Expression = "[Nettó_ár] * [QTT]\r\n"; + this.Nettó_érték.Name = "Nettó_érték"; + // + // Áfa_érték + // + this.Áfa_érték.Expression = "[Nettó_érték] * ([VAT.KeyValuePercent]/100)\r\n"; + this.Áfa_érték.Name = "Áfa_érték"; + // + // Bruttó_érték + // + this.Bruttó_érték.Expression = "[Nettó_érték] + [Áfa_érték]"; + this.Bruttó_érték.Name = "Bruttó_érték"; + // + // Listaár + // + this.Listaár.Expression = "Iif([OfferOutHeader.CurrencyName.ShortName] ==\'HUF\' ,[ListPriceHUF] , [ListPriceD" + + "EV]) "; + this.Listaár.Name = "Listaár"; + // + // Deviza + // + this.Deviza.Expression = "[OfferOutHeader.CurrencyName.ShortName]"; + this.Deviza.Name = "Deviza"; + // + // Netto_ár_DEV + // + this.Netto_ár_DEV.Expression = "[ListPriceDEV] * ((100-[DiscountPercent])/100)"; + this.Netto_ár_DEV.Name = "Netto_ár_DEV"; + // + // Netto_érték_DEV + // + this.Netto_érték_DEV.Expression = "[QTT] * [Netto_ár_DEV]"; + this.Netto_érték_DEV.Name = "Netto_érték_DEV"; + // + // Áfa_érték_DEV + // + this.Áfa_érték_DEV.Expression = "[Netto_érték_DEV] * ([VAT.KeyValuePercent]/100)"; + this.Áfa_érték_DEV.Name = "Áfa_érték_DEV"; + // + // Brutto_érték_DEV + // + this.Brutto_érték_DEV.Expression = "[Netto_érték_DEV] + [Áfa_érték_DEV]"; + this.Brutto_érték_DEV.Name = "Brutto_érték_DEV"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupFooter1, + this.GroupFooter2}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Nettó_ár, + this.Nettó_érték, + this.Áfa_érték, + this.Bruttó_érték, + this.Listaár, + this.Deviza, + this.Netto_ár_DEV, + this.Netto_érték_DEV, + this.Áfa_érték_DEV, + this.Brutto_érték_DEV}); + this.DisplayName = "Kimenő árajánlat_DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(40, 40, 120, 65); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.richText1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Költség bekérő.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Költség bekérő.repx new file mode 100644 index 0000000..4d3600a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Költség bekérő.repx @@ -0,0 +1,1018 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAcwIAAAxGAGkAbAB0AGUAcgCTAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCVAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAlwIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCZAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAmgIAAAHwBGRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsNDQuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KRW5kIFN1YgEeU0lTQnVza" + + "W5lc3MuTW9kdWxlLkludm9pY2VSb3dzAQABAAEAAAESS8O2bHRzw6lnIGJla8OpcsWR"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line6, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label41}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 50.64526F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 56F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label25, + this.label24, + this.label23, + this.label22, + this.label20, + this.line3, + this.label11, + this.label19, + this.label61, + this.line5, + this.label64, + this.line8}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 321.9625F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.label27, + this.label26, + this.label21, + this.label17, + this.label16, + this.DocumentNumber, + this.label18, + this.label15, + this.label14, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label32, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 356.1078F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label47 + // + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(617.4506F, 9.999907F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(124.5495F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label46 + // + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 10.00004F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(126.8255F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label45 + // + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(362.2433F, 9.999821F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(128.3815F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(321.6204F, 9.999916F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(40.62289F, 17.79167F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(217.1417F, 10.00001F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(104.4788F, 17.79167F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(1.04145F, 10.00001F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(216.1003F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label25 + // + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(3.207922F, 242.8838F); + this.label25.Multiline = true; + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(221.6205F, 22.99997F); + this.label25.Text = "Email"; + // + // label24 + // + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(3.207922F, 219.8838F); + this.label24.Multiline = true; + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(221.6205F, 22.99997F); + this.label24.Text = "Telefonszám\r\n"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(1.041442F, 196.8838F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(220.579F, 22.99998F); + this.label23.StylePriority.UseFont = false; + this.label23.Text = "Ügyintéző neve"; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 10F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(2.483527E-05F, 165.2856F); + this.label22.Multiline = true; + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(490.6248F, 31.59824F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Visszajelzésük és észrevételüket az alábbi elérhetőségeken tehetik meg:\r\n"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 94.41615F); + this.label20.Multiline = true; + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(737.9169F, 52.96576F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Megjegyzés:"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 43.78225F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(742.0001F, 11.80509F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.TotalBruttoHUF")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(492.6247F, 16.09729F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(251.3753F, 27.68495F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(241.6946F, 16.09729F); + this.label19.Multiline = true; + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(248.9302F, 27.68495F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Összes fennálló tartozás:\r\n"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label61 + // + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(3.207932F, 55.58731F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "[InvoiceHeader.HUNumberToText]"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.146129F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(742.0001F, 6.951196F); + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(538.5859F, 303.1292F); + this.label64.Multiline = true; + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.StylePriority.UseTextAlignment = false; + this.label64.Text = "Kiállító\r\n"; + this.label64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 291.1292F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label30 + // + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(638.586F, 242.7083F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(103.414F, 23F); + this.label30.Text = "label30"; + // + // label27 + // + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(532.0025F, 242.7083F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(106.5834F, 22.99997F); + this.label27.Text = "Alapterület:"; + // + // label26 + // + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(424.6215F, 242.7083F); + this.label26.Multiline = true; + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.381F, 23F); + this.label26.Text = "label26"; + // + // label21 + // + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(92.70833F, 242.7083F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(203.2914F, 22.99998F); + this.label21.Text = "label21"; + // + // label17 + // + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(295.9998F, 242.7083F); + this.label17.Multiline = true; + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(128.6217F, 23F); + this.label17.Text = "Lakás azonosító:\r\n"; + // + // label16 + // + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(1.041444F, 242.7083F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(91.66689F, 22.99998F); + this.label16.Text = "Ingatlan címe:"; + // + // DocumentNumber + // + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(590.6249F, 201.656F); + this.DocumentNumber.Multiline = true; + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(149.2916F, 23F); + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.Text = "DocumentNumber"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 201.656F); + this.label18.Multiline = true; + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Sorszám\r\n"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated")}); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(147.9999F, 198.4168F); + this.label15.Multiline = true; + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(147.9999F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 198.4168F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(147.9999F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Kibocsátás dátuma:"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "KÖZÖSKÖLTSÉG BEKÉRŐ"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33334F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Címzett"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(1.041436F, 102.3334F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152.4168F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.25F, 152.4168F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 175.4168F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 102.3334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(251.3748F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 152.4168F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2081F, 152.4168F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(173.7916F, 22.99997F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 175.4168F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(0F, 300.162F); + this.label32.Multiline = true; + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(217.1417F, 35.49991F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Időszak\r\n"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(217.1417F, 300.1618F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(104.4788F, 35.50006F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Fizetési határidő"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(321.6204F, 300.162F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(40.62289F, 35.49997F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "DEV"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(616.5754F, 300.1623F); + this.label38.Multiline = true; + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(124.5494F, 35.49985F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Fennálló tartozás\r\n"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(362.2433F, 300.1621F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(122.8612F, 35.49988F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Közös költség"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(485.1045F, 300.1621F); + this.label40.Multiline = true; + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(131.4709F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "Kiegyenlítve\r\n"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041444F, 298.0786F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(740.9584F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 335.6621F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(741.1248F, 7.713959F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Address_CustomersFrom")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 129.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(251.0418F, 23.00002F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 129.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(251.3748F, 23.00003F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(590.6249F, 79.33334F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Költség bekérő"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 56, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV.repx new file mode 100644 index 0000000..3465f9b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV.repx @@ -0,0 +1,1692 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUATwIAAAxGAGkAbAB0AGUAcgBwAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgByAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAdAIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQB2AgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAdwIAAAHMBA0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDkuVGV4dC5Ub1N0cmluZ" + + "yAmICIgIiAmIGxhYmVsMTAuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZ" + + "UNlbGw2NF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3Rlb" + + "S5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNjQudGV4dCA9IGxhYmVsM" + + "TIuVGV4dC5Ub1N0cmluZyAmICIgIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQonU" + + "HJpdmF0ZSBTdWIgdGFibGVDZWxsMTlfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQ" + + "nlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCid0YWJsZUNlb" + + "GwxOS50ZXh0ID0gbGFiZWwxLlRleHQuVG9TdHJpbmcgICYgIi0tIiAmICBsYWJlbDYuVGV4dC5Ub1N0c" + + "mluZw0KJ0VuZCBTdWINCgEfU0lTQnVzaW5lc3MuTW9kdWxlLk9yZGVyT3V0Um93cwEAAQABAAABIExlb" + + "nN0YXJfbWVncmVuZGVsw6lzIGtpbWVuxZFfREVW"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 26.45833F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.Visible = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label14, + this.label15, + this.label18, + this.label13, + this.line4}); + this.pageFooterBand1.HeightF = 52.11309F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label10, + this.label11, + this.label12, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 227.7329F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.table1, + this.pictureBox1}); + this.topMarginBand1.HeightF = 177F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label7, + this.label5, + this.label4, + this.line5, + this.line1, + this.table13, + this.table10}); + this.GroupFooter1.HeightF = 208.3017F; + this.GroupFooter1.Level = 1; + this.GroupFooter1.Name = "GroupFooter1"; + // + // GroupHeader1 + // + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("Products.ProductNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 0F; + this.GroupHeader1.Level = 1; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.Visible = false; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5}); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("ListPriceDEV", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 26.45833F; + this.GroupHeader2.Name = "GroupHeader2"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(757F, 26.45833F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell94, + this.tableCell6, + this.tableCell49, + this.tableCell50, + this.tableCell3, + this.tableCell1, + this.tableCell4, + this.tableCell54}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 1.058332594663066D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = " [Products.ProductNumber]"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.66450824352430549D; + // + // tableCell47 + // + this.tableCell47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell47.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell47.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorderDashStyle = false; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseFont = false; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = " [Products.ShortName_Gb]"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell47.Weight = 1.0312956941456957D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell94.Weight = 0.17951179714139748D; + // + // tableCell6 + // + this.tableCell6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell6.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorderDashStyle = false; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.Weight = 0.039183354147776218D; + // + // tableCell49 + // + this.tableCell49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell49.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorderDashStyle = false; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.Text = " [Products.Units.ShortName_Gb]"; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell49.Weight = 0.12129789521040194D; + // + // tableCell50 + // + this.tableCell50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell50.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceDEV", "{0:n}")}); + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.StylePriority.UseBorderDashStyle = false; + this.tableCell50.StylePriority.UseBorders = false; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.StylePriority.UseTextAlignment = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell50.Weight = 0.29484616531001656D; + // + // tableCell3 + // + this.tableCell3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderDashStyle = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.Weight = 0.10864495383099793D; + // + // tableCell1 + // + this.tableCell1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderDashStyle = false; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell1.Weight = 0.27431896409579642D; + // + // tableCell4 + // + this.tableCell4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell4.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorderDashStyle = false; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.Weight = 0.037978865785148488D; + // + // tableCell54 + // + this.tableCell54.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell54.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseBorderDashStyle = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "[OrderOutHeader.CurrencyName.ShortName]"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell54.Weight = 0.12341416070870451D; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(327.3043F, 22.32138F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = " Fax: +36-1-409-5141"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(42.40384F, 22.32138F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(132.5641F, 19.79169F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = " Tel: +36-1-409-5140"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(614.3805F, 22.32136F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(567.837F, 22.32136F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.8204F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label9.Text = "label9"; + this.label9.Visible = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.City")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(174.9679F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label10.Text = "label10"; + this.label10.Visible = false; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.City")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(279.2628F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.ZipPostal")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(227.1154F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label12.Text = "label12"; + this.label12.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 26.7628F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32, + this.tableRow1}); + this.table12.SizeF = new System.Drawing.SizeF(329.2308F, 74.35898F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(400.0391F, 26.76279F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29, + this.tableRow10}); + this.table11.SizeF = new System.Drawing.SizeF(356.9609F, 74.35898F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 220.6853F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9999F, 7.047653F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(400.0391F, 111.6353F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow9, + this.tableRow11, + this.tableRow8}); + this.table4.SizeF = new System.Drawing.SizeF(356.9609F, 55.76923F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 111.6352F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow15, + this.tableRow14, + this.tableRow5}); + this.table3.SizeF = new System.Drawing.SizeF(329.2308F, 55.76926F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 192.5899F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(756.9999F, 28.09535F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 182.6127F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(756.9999F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(400.039F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(196.9363F, 16.17647F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "To:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(95.80122F, 16.17647F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "From:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.Country.Name_GB")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell7.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell36}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableCell36 + // + this.tableCell36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.Country.Name_GB")}); + this.tableCell36.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseFont = false; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = "tableCell36"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell36.Weight = 2.5032049560546881D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.74358978271484377D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell27, + this.tableCell28}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Contact Person:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.88418381423096115D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.DisplayNamePostal")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 2.4827890209418944D; + // + // tableCell34 + // + this.tableCell34.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Phone number:"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell34.Weight = 0.88418336558513244D; + // + // tableCell35 + // + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell35.Weight = 2.4827894695877228D; + // + // tableCell27 + // + this.tableCell27.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "Fax number:"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 0.88418336558513244D; + // + // tableCell28 + // + this.tableCell28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessFaxNumber")}); + this.tableCell28.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "tableCell28"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 2.4827894695877228D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell43, + this.tableCell44}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 0.74358978271484377D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell41, + this.tableCell42}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableCell43 + // + this.tableCell43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseFont = false; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "Contact Person:"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell43.Weight = 0.9830981330616646D; + // + // tableCell44 + // + this.tableCell44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.UserCreated.FullName")}); + this.tableCell44.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseFont = false; + this.tableCell44.StylePriority.UseTextAlignment = false; + this.tableCell44.Text = "tableCell44"; + this.tableCell44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell44.Weight = 1.5201068229930232D; + // + // tableCell41 + // + this.tableCell41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseFont = false; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "Date:"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell41.Weight = 0.9830981330616646D; + // + // tableCell42 + // + this.tableCell42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DateCreated", "{0:dd.MM.yyyy}")}); + this.tableCell42.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseFont = false; + this.tableCell42.StylePriority.UseTextAlignment = false; + this.tableCell42.Text = "tableCell42"; + this.tableCell42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell42.Weight = 1.5201068229930232D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Our ref.:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.9830981330616646D; + // + // tableCell23 + // + this.tableCell23.BackColor = System.Drawing.Color.Transparent; + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseBackColor = false; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.5201068229930232D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell14, + this.tableCell11, + this.tableCell12, + this.tableCell15}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.1238130665728061D; + // + // tableCell17 + // + this.tableCell17.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Multiline = true; + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = " Part number"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell17.Weight = 0.66450830049170406D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Multiline = true; + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = " Description"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell14.Weight = 1.0312959119040768D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Multiline = true; + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Quantity"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.33999306714527616D; + // + // tableCell12 + // + this.tableCell12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Multiline = true; + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "Unite price"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 0.40349119722228932D; + // + // tableCell15 + // + this.tableCell15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Multiline = true; + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "Amount"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 0.4357116171368941D; + // + // label6 + // + this.label6.BackColor = System.Drawing.Color.Transparent; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(399.8187F, 52.82738F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label6.StylePriority.UseBackColor = false; + this.label6.Text = "label6"; + this.label6.Visible = false; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 128.4405F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow22}); + this.table1.SizeF = new System.Drawing.SizeF(756.9999F, 38.55949F); + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 32.12498F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell16, + this.tableCell19}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 2.0840463256835937D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.Font = new System.Drawing.Font("Arial Narrow", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "PURCHASE ORDER NR.:"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell16.Weight = 1.5377639648985593D; + // + // tableCell19 + // + this.tableCell19.BackColor = System.Drawing.Color.Transparent; + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.tableCell19.Font = new System.Drawing.Font("Arial Narrow", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.Scripts.OnBeforePrint = "tableCell19_BeforePrint"; + this.tableCell19.StylePriority.UseBackColor = false; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "tableCell19"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 1.3737736924100223D; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.PaymentOption.ShortName_GB")}); + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(129.3008F, 75.85258F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(264.6665F, 18.00003F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.AutoWidth = true; + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.ShipmentOption.ShortName_GB")}); + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(129.3007F, 57.85255F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(264.6666F, 18.00003F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 75.85265F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(129.3007F, 18.00005F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Payment conditions:"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 57.85255F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(129.3007F, 18.00005F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Shipping conditions:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // line5 + // + this.line5.BorderWidth = 1; + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 34.99999F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line5.StylePriority.UseBorderWidth = false; + // + // line1 + // + this.line1.BorderWidth = 1; + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line1.StylePriority.UseBorderWidth = false; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(352.8042F, 9.999984F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18}); + this.table13.SizeF = new System.Drawing.SizeF(404.1956F, 25F); + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(9.99999F, 114.5517F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(737F, 93.74997F); + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell2, + this.tableCell5, + this.tableCell62}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Total:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 1.9934629766099394D; + // + // tableCell2 + // + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell2.Summary = summary1; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell2.Weight = 0.67165041860518171D; + // + // tableCell5 + // + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Weight = 0.11216506917600282D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CurrencyName.ShortName")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell62.Weight = 0.511493236990751D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 2.7499990844724893D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "Comments:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Note")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // table5 + // + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table5.SizeF = new System.Drawing.SizeF(757F, 26.45833F); + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell9, + this.tableCell10, + this.tableCell13, + this.tableCell18, + this.tableCell20, + this.tableCell21, + this.tableCell24, + this.tableCell25, + this.tableCell26}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.058332594663066D; + // + // tableCell8 + // + this.tableCell8.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell8.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell8.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorderDashStyle = false; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = " [Products.ProductNumber]"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell8.Weight = 0.66450824352430549D; + // + // tableCell9 + // + this.tableCell9.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell9.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell9.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderDashStyle = false; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = " [Products.ShortName_Gb]"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell9.Weight = 1.0312956941456957D; + // + // tableCell10 + // + this.tableCell10.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell10.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorderDashStyle = false; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell10.Summary = summary2; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell10.Weight = 0.17951179714139748D; + // + // tableCell13 + // + this.tableCell13.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell13.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorderDashStyle = false; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.Weight = 0.039183354147776218D; + // + // tableCell18 + // + this.tableCell18.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell18.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell18.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorderDashStyle = false; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = " [Products.Units.ShortName_Gb]"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell18.Weight = 0.12129789521040194D; + // + // tableCell20 + // + this.tableCell20.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell20.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceDEV")}); + this.tableCell20.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorderDashStyle = false; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.StylePriority.UseFont = false; + this.tableCell20.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:n}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell20.Summary = summary3; + this.tableCell20.Text = "tableCell20"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell20.Weight = 0.29484616531001656D; + // + // tableCell21 + // + this.tableCell21.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell21.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorderDashStyle = false; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.Weight = 0.10864495383099793D; + // + // tableCell24 + // + this.tableCell24.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell24.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell24.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseBorderDashStyle = false; + this.tableCell24.StylePriority.UseBorders = false; + this.tableCell24.StylePriority.UseFont = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:n}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell24.Summary = summary4; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell24.Weight = 0.27431896409579642D; + // + // tableCell25 + // + this.tableCell25.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell25.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseBorderDashStyle = false; + this.tableCell25.StylePriority.UseBorders = false; + this.tableCell25.Weight = 0.037978865785148488D; + // + // tableCell26 + // + this.tableCell26.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell26.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell26.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBorderDashStyle = false; + this.tableCell26.StylePriority.UseBorders = false; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "[OrderOutHeader.CurrencyName.ShortName]"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell26.Weight = 0.12341416070870451D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1, + this.GroupHeader2}); + this.DisplayName = "Lenstar_megrendelés kimenő_DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 177, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV_csoportos.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV_csoportos.repx new file mode 100644 index 0000000..50bb858 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_megrendelés kimenő_DEV_csoportos.repx @@ -0,0 +1,1478 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUATwIAAAxGAGkAbAB0AGUAcgBwAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgByAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAdAIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQB2AgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAdwIAAAHMBA0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDkuVGV4dC5Ub1N0cmluZ" + + "yAmICIgIiAmIGxhYmVsMTAuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZ" + + "UNlbGw2NF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3Rlb" + + "S5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNjQudGV4dCA9IGxhYmVsM" + + "TIuVGV4dC5Ub1N0cmluZyAmICIgIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQonU" + + "HJpdmF0ZSBTdWIgdGFibGVDZWxsMTlfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQ" + + "nlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCid0YWJsZUNlb" + + "GwxOS50ZXh0ID0gbGFiZWwxLlRleHQuVG9TdHJpbmcgICYgIi0tIiAmICBsYWJlbDYuVGV4dC5Ub1N0c" + + "mluZw0KJ0VuZCBTdWINCgEfU0lTQnVzaW5lc3MuTW9kdWxlLk9yZGVyT3V0Um93cwEAAQABAAABKkxlb" + + "nN0YXJfbWVncmVuZGVsw6lzIGtpbWVuxZFfREVWX2Nzb3BvcnRvcw=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 26.45833F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label14, + this.label15, + this.label18, + this.label13, + this.line4}); + this.pageFooterBand1.HeightF = 52.11309F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label10, + this.label11, + this.label12, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 227.7329F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.table1, + this.pictureBox1}); + this.topMarginBand1.HeightF = 177F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8, + this.label7, + this.label5, + this.label4, + this.line5, + this.line1, + this.table13, + this.table10}); + this.GroupFooter1.HeightF = 208.3017F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(757F, 26.45833F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell94, + this.tableCell6, + this.tableCell49, + this.tableCell50, + this.tableCell3, + this.tableCell1, + this.tableCell4, + this.tableCell54}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 1.058332594663066D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ProductNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.31123386517135021D; + // + // tableCell47 + // + this.tableCell47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell47.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName_Gb")}); + this.tableCell47.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorderDashStyle = false; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseFont = false; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = "tableCell47"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell47.Weight = 0.933571164423864D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell94.Weight = 0.18855995636726536D; + // + // tableCell6 + // + this.tableCell6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell6.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorderDashStyle = false; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.Weight = 0.040325643738566827D; + // + // tableCell49 + // + this.tableCell49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell49.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorderDashStyle = false; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.Text = " [Products.Units.ShortName_Gb]"; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell49.Weight = 0.14671251659489903D; + // + // tableCell50 + // + this.tableCell50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell50.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ListPriceDEV", "{0:n}")}); + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.StylePriority.UseBorderDashStyle = false; + this.tableCell50.StylePriority.UseBorders = false; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.StylePriority.UseTextAlignment = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell50.Weight = 0.48041661107117289D; + // + // tableCell3 + // + this.tableCell3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderDashStyle = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.Weight = 0.20000381058712807D; + // + // tableCell1 + // + this.tableCell1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderDashStyle = false; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell1.Weight = 0.28307306470254734D; + // + // tableCell4 + // + this.tableCell4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell4.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorderDashStyle = false; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.Weight = 0.053752824527934451D; + // + // tableCell54 + // + this.tableCell54.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell54.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseBorderDashStyle = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "[OrderOutHeader.CurrencyName.ShortName]"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell54.Weight = 0.23735063671551229D; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(327.3043F, 22.32138F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = " Fax: +36-1-409-5141"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(42.40384F, 22.32138F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(132.5641F, 19.79169F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = " Tel: +36-1-409-5140"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(614.3805F, 22.32136F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(567.837F, 22.32136F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.8204F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label9.Text = "label9"; + this.label9.Visible = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.City")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(174.9679F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label10.Text = "label10"; + this.label10.Visible = false; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.City")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(279.2628F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.ZipPostal")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(227.1154F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label12.Text = "label12"; + this.label12.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 26.7628F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32, + this.tableRow1}); + this.table12.SizeF = new System.Drawing.SizeF(329.2308F, 74.35898F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(400.0391F, 26.76279F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29, + this.tableRow10}); + this.table11.SizeF = new System.Drawing.SizeF(356.9609F, 74.35898F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 220.6853F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9999F, 7.047653F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(400.0391F, 111.6353F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow9, + this.tableRow11, + this.tableRow8}); + this.table4.SizeF = new System.Drawing.SizeF(356.9609F, 55.76923F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 111.6352F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow15, + this.tableRow14, + this.tableRow5}); + this.table3.SizeF = new System.Drawing.SizeF(329.2308F, 55.76926F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 192.5899F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(756.9999F, 28.09535F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 182.6127F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(756.9999F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(400.039F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(196.9363F, 16.17647F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "To:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(95.80122F, 16.17647F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "From:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableCell7 + // + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersFrom.Address1.Country.Name_GB")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell7.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell36}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableCell36 + // + this.tableCell36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CustomersOrder.Address1.Country.Name_GB")}); + this.tableCell36.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseFont = false; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = "tableCell36"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell36.Weight = 2.5032049560546881D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.74358978271484377D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell27, + this.tableCell28}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Contact Person:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.88418381423096115D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.DisplayNamePostal")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 2.4827890209418944D; + // + // tableCell34 + // + this.tableCell34.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Phone number:"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell34.Weight = 0.88418336558513244D; + // + // tableCell35 + // + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell35.Weight = 2.4827894695877228D; + // + // tableCell27 + // + this.tableCell27.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "Fax number:"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 0.88418336558513244D; + // + // tableCell28 + // + this.tableCell28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Contacts.BusinessFaxNumber")}); + this.tableCell28.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "tableCell28"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 2.4827894695877228D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell43, + this.tableCell44}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 0.74358978271484377D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell41, + this.tableCell42}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableCell43 + // + this.tableCell43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseFont = false; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "Contact Person:"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell43.Weight = 0.9830981330616646D; + // + // tableCell44 + // + this.tableCell44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.UserCreated.FullName")}); + this.tableCell44.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseFont = false; + this.tableCell44.StylePriority.UseTextAlignment = false; + this.tableCell44.Text = "tableCell44"; + this.tableCell44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell44.Weight = 1.5201068229930232D; + // + // tableCell41 + // + this.tableCell41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseFont = false; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "Date:"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell41.Weight = 0.9830981330616646D; + // + // tableCell42 + // + this.tableCell42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DateCreated", "{0:dd.MM.yyyy}")}); + this.tableCell42.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseFont = false; + this.tableCell42.StylePriority.UseTextAlignment = false; + this.tableCell42.Text = "tableCell42"; + this.tableCell42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell42.Weight = 1.5201068229930232D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Our ref.:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.9830981330616646D; + // + // tableCell23 + // + this.tableCell23.BackColor = System.Drawing.Color.Transparent; + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseBackColor = false; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.5201068229930232D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell14, + this.tableCell11, + this.tableCell12, + this.tableCell15}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.1238130665728061D; + // + // tableCell17 + // + this.tableCell17.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Multiline = true; + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "Part number"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell17.Weight = 0.31123386517135038D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Multiline = true; + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Description"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.93357116359458248D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Multiline = true; + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Quantity"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.37559823001467912D; + // + // tableCell12 + // + this.tableCell12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Multiline = true; + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "Unite price"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 0.68042019668896758D; + // + // tableCell15 + // + this.tableCell15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Multiline = true; + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "Amount"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 0.57417663843066069D; + // + // label6 + // + this.label6.BackColor = System.Drawing.Color.Transparent; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(399.8187F, 52.82738F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label6.StylePriority.UseBackColor = false; + this.label6.Text = "label6"; + this.label6.Visible = false; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 128.4405F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow22}); + this.table1.SizeF = new System.Drawing.SizeF(756.9999F, 38.55949F); + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 32.12498F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell16, + this.tableCell19}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 2.0840463256835937D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell16.Font = new System.Drawing.Font("Arial Narrow", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "PURCHASE ORDER NR.:"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell16.Weight = 1.5377639648985593D; + // + // tableCell19 + // + this.tableCell19.BackColor = System.Drawing.Color.Transparent; + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.DocumentNumber")}); + this.tableCell19.Font = new System.Drawing.Font("Arial Narrow", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.Scripts.OnBeforePrint = "tableCell19_BeforePrint"; + this.tableCell19.StylePriority.UseBackColor = false; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "tableCell19"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell19.Weight = 1.3737736924100223D; + // + // label8 + // + this.label8.AutoWidth = true; + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.PaymentOption.ShortName_GB")}); + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(129.3008F, 75.85258F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(264.6665F, 18.00003F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.AutoWidth = true; + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.ShipmentOption.ShortName_GB")}); + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(129.3007F, 57.85255F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(264.6666F, 18.00003F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 75.85265F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(129.3007F, 18.00005F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Payment conditions:"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 57.85255F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(129.3007F, 18.00005F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Shipping conditions:"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // line5 + // + this.line5.BorderWidth = 1; + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 34.99999F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line5.StylePriority.UseBorderWidth = false; + // + // line1 + // + this.line1.BorderWidth = 1; + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line1.StylePriority.UseBorderWidth = false; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(352.8042F, 9.999984F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18}); + this.table13.SizeF = new System.Drawing.SizeF(404.1956F, 25F); + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(9.99999F, 114.5517F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(737F, 93.74997F); + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell2, + this.tableCell5, + this.tableCell62}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Total:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 1.9934629766099394D; + // + // tableCell2 + // + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell2.Summary = summary1; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell2.Weight = 0.67165041860518171D; + // + // tableCell5 + // + this.tableCell5.Name = "tableCell5"; + this.tableCell5.Weight = 0.11216506917600282D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.CurrencyName.ShortName")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell62.Weight = 0.511493236990751D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 2.7499990844724893D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "Comments:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderOutHeader.Note")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Lenstar_megrendelés kimenő_DEV_csoportos"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 177, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél.repx new file mode 100644 index 0000000..1f744f1 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél.repx @@ -0,0 +1,1475 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField SzámitottSúly; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUATwIAAAxGAGkAbAB0AGUAcgB3AgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgB5AgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAewIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQB9AgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAfgIAAAHMBA0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDE0LnRleHQuVG9TdHJpb" + + "mcgJiAiICIgJiBsYWJlbDE1LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFib" + + "GVDZWxsNjRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0Z" + + "W0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY0LnRleHQgPSBsYWJlb" + + "DE2LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE3LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KJ" + + "1ByaXZhdGUgU3ViIHRhYmxlQ2VsbDNfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQ" + + "nlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCidpZiB0YWJsZ" + + "UNlbGwzLnRleHQgPSAiZU5vdCBzZXQiIHRoZW4NCid0YWJsZUNlbGwzLnRleHQgPSAiLSINCidlbmQga" + + "WYNCidFbmQgU3ViDQoNCgEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBAAEAA" + + "QAAARlMZW5zdGFyX3N6w6FsbMOtdMOzbGV2w6ls"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.SzámitottSúly = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 25F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("StorageOutRowsInRows.StorageOutRows.RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.Visible = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label13, + this.label12, + this.label11, + this.table10, + this.label7, + this.label8, + this.label6, + this.label4, + this.label5, + this.line4}); + this.pageFooterBand1.HeightF = 298.9267F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label9, + this.label16, + this.label17, + this.label15, + this.label14, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 236.6311F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("StorageOutRowsInRows.StorageOutRows.Products.ProductNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 25F; + this.GroupHeader1.Name = "GroupHeader1"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(780F, 25F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell3, + this.tableCell48, + this.tableCell1, + this.tableCell2, + this.tableCell94, + this.tableCell7, + this.tableCell9}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.99999927151634016D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ProductNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.55743228896865071D; + // + // tableCell3 + // + this.tableCell3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderDashStyle = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.Weight = 0.029487164667320598D; + // + // tableCell48 + // + this.tableCell48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell48.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell48.Multiline = true; + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorderDashStyle = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.StylePriority.UseFont = false; + this.tableCell48.StylePriority.UseTextAlignment = false; + this.tableCell48.Text = "[StorageOutRowsInRows.StorageOutRows.Products.ShortName]"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell48.Weight = 1.0015698675574805D; + // + // tableCell1 + // + this.tableCell1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell1.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderDashStyle = false; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell1.Weight = 0.27054489556883349D; + // + // tableCell2 + // + this.tableCell2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell2.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorderDashStyle = false; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.Weight = 0.029487181591850445D; + // + // tableCell94 + // + this.tableCell94.BackColor = System.Drawing.Color.Transparent; + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBackColor = false; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell94.Weight = 0.16437269622881293D; + // + // tableCell7 + // + this.tableCell7.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell7.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductStrategyCode")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorderDashStyle = false; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell7.Weight = 0.56371307649449243D; + // + // tableCell9 + // + this.tableCell9.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell9.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SzámitottSúly", "{0:n}")}); + this.tableCell9.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderDashStyle = false; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell9.Weight = 0.25839292282279952D; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(627.3806F, 263.135F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(580.837F, 263.135F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(330.4614F, 263.135F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = " Fax: +36-1-409-5141"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(45.56095F, 263.135F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(132.5641F, 19.79169F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = " Tel: +36-1-409-5140"; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(18.34919F, 9.999974F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(751.6508F, 116.6667F); + // + // label7 + // + this.label7.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label7.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label7.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(151.2338F, 203.5208F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(260F, 33.41672F); + this.label7.StylePriority.UseBorderDashStyle = false; + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label8.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(23.12485F, 203.5208F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(109.4392F, 23.00002F); + this.label8.StylePriority.UseBorderDashStyle = false; + this.label8.StylePriority.UseBorders = false; + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Átvételi feljegyzések"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(509.9999F, 203.5208F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(260F, 23.00002F); + this.label6.StylePriority.UseBorderDashStyle = false; + this.label6.StylePriority.UseBorders = false; + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Átvétel dátuma"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(151.2338F, 150.3958F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(260F, 23.00002F); + this.label4.StylePriority.UseBorderDashStyle = false; + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Kiállító"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(509.9999F, 150.3958F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(260F, 23.00002F); + this.label5.StylePriority.UseBorderDashStyle = false; + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Átvevő"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 240.2481F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(780F, 15F); + this.line4.StylePriority.UseBorderWidth = false; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 5.0869578532055915D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = " Megjegyzés:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Note")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // label10 + // + this.label10.AutoWidth = true; + this.label10.BackColor = System.Drawing.Color.Transparent; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DocumentNumber")}); + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(580.8372F, 144.7917F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(177.4552F, 24.04166F); + this.label10.StylePriority.UseBackColor = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(441.9198F, 144.7917F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(138.9173F, 24.04164F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Szállítólevél száma:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(365.9616F, 8.089733F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(365.9616F, 31.08975F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(265.9615F, 31.08974F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(265.9615F, 8.089733F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 31.08972F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(250.3205F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(441.9198F, 31.08972F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(328.0801F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 226.6311F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(779.9999F, 9.999985F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(441.9198F, 86.85894F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(328.0801F, 55.76923F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 86.85894F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6, + this.tableRow5}); + this.table3.SizeF = new System.Drawing.SizeF(250.3205F, 37.17949F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.8041F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(780F, 31.827F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 184.8269F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(780F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(441.9198F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 19.79167F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő adatai:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(178.125F, 19.79167F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számlakibocsátó adatai:"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Name")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Name")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Ügyfélszám:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 1.0599195998021012D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.CustomerNumber")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.4432853562525867D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Ügyintéző:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 1.0599191341124674D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Contacts.FullName")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.4432858219422204D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Hivatkozási szám:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 1.0599191341124674D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersRefNumber")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.4432858219422204D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell24, + this.tableCell25}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableCell24 + // + this.tableCell24.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseFont = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "Készítette:"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell24.Weight = 1.1362179565429689D; + // + // tableCell25 + // + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.UserCreated.FullName")}); + this.tableCell25.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseFont = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 1.366986999511719D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Kiállítás dátuma:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 1.1362179565429689D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.366986999511719D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell18, + this.tableCell14, + this.tableCell6, + this.tableCell5, + this.tableCell4, + this.tableCell20}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.2730786904051277D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "CIKKSZÁM"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.5574324492114574D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "MEGNEVEZÉS"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 1.0310569001031607D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "MENNYISÉG"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.46440475234380718D; + // + // tableCell6 + // + this.tableCell6.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "UN,"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell6.Weight = 0.12902463579910026D; + // + // tableCell5 + // + this.tableCell5.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "ADR,"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.14743590106451721D; + // + // tableCell4 + // + this.tableCell4.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Kategória"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell4.Weight = 0.28725209199798429D; + // + // tableCell20 + // + this.tableCell20.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseFont = false; + this.tableCell20.StylePriority.UseTextAlignment = false; + this.tableCell20.Text = "Súly"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell20.Weight = 0.25839336338021285D; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "DeliveryNoteOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(569.9615F, 24.83331F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(780F, 33.00001F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁLLÍTÓLEVÉL"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(780F, 25F); + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell8, + this.tableCell10, + this.tableCell12, + this.tableCell13, + this.tableCell15, + this.tableCell16, + this.tableCell17, + this.tableCell19}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 0.99999927151634016D; + // + // tableCell8 + // + this.tableCell8.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell8.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ProductNumber")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorderDashStyle = false; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell46"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell8.Weight = 0.55743228896865071D; + // + // tableCell10 + // + this.tableCell10.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell10.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorderDashStyle = false; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.Weight = 0.029487164667320598D; + // + // tableCell12 + // + this.tableCell12.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell12.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Multiline = true; + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorderDashStyle = false; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "[StorageOutRowsInRows.StorageOutRows.Products.ShortName]"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell12.Weight = 1.0015698675574805D; + // + // tableCell13 + // + this.tableCell13.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell13.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell13.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorderDashStyle = false; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell13.Summary = summary1; + this.tableCell13.Text = "tableCell13"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell13.Weight = 0.27054489556883349D; + // + // tableCell15 + // + this.tableCell15.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell15.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorderDashStyle = false; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.Weight = 0.029487181591850445D; + // + // tableCell16 + // + this.tableCell16.BackColor = System.Drawing.Color.Transparent; + this.tableCell16.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell16.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName")}); + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBackColor = false; + this.tableCell16.StylePriority.UseBorderDashStyle = false; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell94"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell16.Weight = 0.16437269622881293D; + // + // tableCell17 + // + this.tableCell17.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell17.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductStrategyCode")}); + this.tableCell17.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorderDashStyle = false; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell7"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell17.Weight = 0.56371307649449243D; + // + // tableCell19 + // + this.tableCell19.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell19.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SzámitottSúly")}); + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorderDashStyle = false; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:n}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell19.Summary = summary2; + this.tableCell19.Text = "tableCell19"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell19.Weight = 0.25839292282279952D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // SzámitottSúly + // + this.SzámitottSúly.Expression = "[QTT] * [StorageOutRowsInRows.StorageInRows.Products.NettoWeight]"; + this.SzámitottSúly.Name = "SzámitottSúly"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.SzámitottSúly}); + this.DisplayName = "Lenstar_szállítólevél"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél_Angol.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél_Angol.repx new file mode 100644 index 0000000..740145e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Lenstar_szállítólevél_Angol.repx @@ -0,0 +1,1418 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField SzámitottSúly; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAUgIAAAxGAGkAbAB0AGUAcgB6AgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgB8AgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAfgIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCAAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAgQIAAAHPBA0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDE0LnRleHQuVG9TdHJpb" + + "mcgJiAiICIgJiBsYWJlbDE1LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFib" + + "GVDZWxsNjRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0Z" + + "W0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY0LnRleHQgPSBsYWJlb" + + "DE2LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE3LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KD" + + "QonUHJpdmF0ZSBTdWIgdGFibGVDZWxsMjFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjd" + + "CwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCidpZiB0Y" + + "WJsZUNlbGwyMS50ZXh0ID0gImVOb3Qgc2V0IiB0aGVuDQondGFibGVDZWxsMjEudGV4dCA9ICItIg0KJ" + + "2VuZCBpZg0KJ0VuZCBTdWINCgEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBA" + + "AEAAQAAAR9MZW5zdGFyX3N6w6FsbMOtdMOzbGV2w6lsX0FuZ29s"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.SzámitottSúly = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.detailBand1.HeightF = 25F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("StorageOutRowsInRows.StorageOutRows.RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.Visible = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label13, + this.label12, + this.label11, + this.table10, + this.label4, + this.label5, + this.line4}); + this.pageFooterBand1.HeightF = 252.0517F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.label9, + this.label16, + this.label17, + this.label15, + this.label14, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 236.6311F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("StorageOutRowsInRows.StorageOutRows.Products.ProductNumber", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 25F; + this.GroupHeader1.Name = "GroupHeader1"; + // + // table1 + // + this.table1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(757F, 25F); + this.table1.StylePriority.UseFont = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell15, + this.tableCell1, + this.tableCell10, + this.tableCell16, + this.tableCell26, + this.tableCell12, + this.tableCell17, + this.tableCell13}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell15 + // + this.tableCell15.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell15.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ProductNumber")}); + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorderDashStyle = false; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell15.Weight = 0.599326190412222D; + // + // tableCell1 + // + this.tableCell1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorderDashStyle = false; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.Weight = 0.031704092758882418D; + // + // tableCell10 + // + this.tableCell10.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell10.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ShortName_Gb")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorderDashStyle = false; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell10.Weight = 1.037814461736962D; + // + // tableCell16 + // + this.tableCell16.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell16.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorderDashStyle = false; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell16.Weight = 0.29088507116519374D; + // + // tableCell26 + // + this.tableCell26.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell26.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBorderDashStyle = false; + this.tableCell26.StylePriority.UseBorders = false; + this.tableCell26.Weight = 0.031704092016718977D; + // + // tableCell12 + // + this.tableCell12.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell12.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName_Gb")}); + this.tableCell12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorderDashStyle = false; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "tableCell12"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell12.Weight = 0.17618081491568544D; + // + // tableCell17 + // + this.tableCell17.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell17.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductStrategyCode")}); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorderDashStyle = false; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell17.Weight = 0.56275786648363746D; + // + // tableCell13 + // + this.tableCell13.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell13.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SzámitottSúly")}); + this.tableCell13.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorderDashStyle = false; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "tableCell13"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell13.Weight = 0.26962741051069794D; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(614.3806F, 217.3017F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(567.837F, 217.3017F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(330.4614F, 217.3017F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = " Fax: +36-1-409-5141"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(45.56095F, 217.3017F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(152.3558F, 19.79169F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = " Phone: +36-1-409-5140"; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(18.34919F, 9.999974F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(728.6508F, 116.6667F); + // + // label4 + // + this.label4.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(139.5263F, 160.8124F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(260F, 23.00002F); + this.label4.StylePriority.UseBorderDashStyle = false; + this.label4.StylePriority.UseBorders = false; + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Received on"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(497F, 160.8124F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(260F, 23.00002F); + this.label5.StylePriority.UseBorderDashStyle = false; + this.label5.StylePriority.UseBorders = false; + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Signiture"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.4148F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(757F, 15F); + this.line4.StylePriority.UseBorderWidth = false; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 5.0869578532055915D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "Note:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Note")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // label10 + // + this.label10.AutoWidth = true; + this.label10.BackColor = System.Drawing.Color.Transparent; + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DocumentNumber")}); + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(565.2123F, 144.7917F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(177.4552F, 24.04166F); + this.label10.StylePriority.UseBackColor = false; + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(426.2948F, 144.7917F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(138.9173F, 24.04164F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Delivery Note No.:"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(347.9646F, 8.089733F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(347.9646F, 31.08975F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(265.9615F, 31.08974F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(265.9615F, 8.089733F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 31.08974F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(250.3205F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(426.2948F, 31.08974F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(328.0801F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 226.6311F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(754.3749F, 9.999985F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(426.2948F, 86.85897F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(328.0801F, 55.76923F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 86.85897F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6, + this.tableRow5}); + this.table3.SizeF = new System.Drawing.SizeF(250.3205F, 37.17949F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.8041F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(757F, 31.827F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 184.8269F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(754.3749F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(426.2948F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 19.79167F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Ship to:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(178.125F, 19.79167F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "From:"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Name")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Name")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Account No.:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 1.0599195998021012D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.Customers.CustomerNumber")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.4432853562525867D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Contact Person:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 1.0599191341124674D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Contacts.FullName")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.4432858219422204D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "P.O.No:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 1.0599191341124674D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersRefNumber")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.4432858219422204D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell24, + this.tableCell25}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableCell24 + // + this.tableCell24.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseFont = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "Contact Person:"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell24.Weight = 1.1362179565429689D; + // + // tableCell25 + // + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.UserCreated.FullName", "{0:dd.MM.yyyy}")}); + this.tableCell25.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseFont = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 1.366986999511719D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Date:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 1.1362179565429689D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.366986999511719D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell18, + this.tableCell14, + this.tableCell6, + this.tableCell5, + this.tableCell4, + this.tableCell20}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.2730786904051277D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Patr Number"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.57435434720628975D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "Description"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 1.024955176196831D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Quantity"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.478543665046839D; + // + // tableCell6 + // + this.tableCell6.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "UN,"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.12149070622418234D; + // + // tableCell5 + // + this.tableCell5.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "ADR,"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.15615076837173952D; + // + // tableCell4 + // + this.tableCell4.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Category"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.26111206747414528D; + // + // tableCell20 + // + this.tableCell20.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseFont = false; + this.tableCell20.StylePriority.UseTextAlignment = false; + this.tableCell20.Text = "Weight"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell20.Weight = 0.25839336338021285D; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "DeliveryNoteOutHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 23.79165F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(757F, 33.00002F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Delivery Note"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2}); + this.table5.SizeF = new System.Drawing.SizeF(757F, 25F); + this.table5.StylePriority.UseFont = false; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2, + this.tableCell3, + this.tableCell7, + this.tableCell8, + this.tableCell9, + this.tableCell19, + this.tableCell21, + this.tableCell27}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell2.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ProductNumber")}); + this.tableCell2.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorderDashStyle = false; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "tableCell15"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell2.Weight = 0.599326190412222D; + // + // tableCell3 + // + this.tableCell3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorderDashStyle = false; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.Weight = 0.031704092758882418D; + // + // tableCell7 + // + this.tableCell7.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell7.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.ShortName_Gb")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorderDashStyle = false; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell10"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell7.Weight = 1.037814461736962D; + // + // tableCell8 + // + this.tableCell8.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell8.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorderDashStyle = false; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell8.Summary = summary1; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell8.Weight = 0.29088507116519374D; + // + // tableCell9 + // + this.tableCell9.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell9.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorderDashStyle = false; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.Weight = 0.031704092016718977D; + // + // tableCell19 + // + this.tableCell19.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell19.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName_Gb")}); + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorderDashStyle = false; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "tableCell12"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell19.Weight = 0.17618081491568544D; + // + // tableCell21 + // + this.tableCell21.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell21.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductStrategyCode")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorderDashStyle = false; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "tableCell17"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell21.Weight = 0.56275786648363746D; + // + // tableCell27 + // + this.tableCell27.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell27.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SzámitottSúly")}); + this.tableCell27.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseBorderDashStyle = false; + this.tableCell27.StylePriority.UseBorders = false; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:n}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.tableCell27.Summary = summary2; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell27.Weight = 0.26962741051069794D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // SzámitottSúly + // + this.SzámitottSúly.Expression = "[QTT] * [StorageOutRowsInRows.StorageInRows.Products.NettoWeight]"; + this.SzámitottSúly.Name = "SzámitottSúly"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.SzámitottSúly}); + this.DisplayName = "Lenstar_szállítólevél_Angol"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás angol devizás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás angol devizás.repx new file mode 100644 index 0000000..f035d86 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás angol devizás.repx @@ -0,0 +1,1386 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Megnevezés_Szerkesztett_GB; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAiQEAAAxGAGkAbAB0AGUAcgC4AQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgC6AQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAvAEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQC+AQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAvwEAAAGGAw0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDE0LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE1LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY0LnRleHQgPSBsYWJlbDE2LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE3LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCgEtU0lTQnVzaW5lc3MuTW9kdWxlLk9yZGVySW5BY2tub3dsZWRnZW1lbnRSb3dzAQABAAEAAAEoUmVuZGVsw6lzIHZpc3N6YWlnYXpvbMOhcyBhbmdvbCBkZXZpesOhcw=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Megnevezés_Szerkesztett_GB = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 25F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label11, + this.label18, + this.label13, + this.line4}); + this.pageFooterBand1.HeightF = 60.25002F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label17, + this.label15, + this.label14, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 236.6311F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table13, + this.line1, + this.line5, + this.table1, + this.table10}); + this.GroupFooter1.HeightF = 278.0468F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table8 + // + this.table8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(757F, 25F); + this.table8.StylePriority.UseFont = false; + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell48, + this.tableCell6, + this.tableCell16, + this.tableCell5, + this.tableCell15, + this.tableCell94}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.99999938964881D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ProductNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.37490355987493584D; + // + // tableCell48 + // + this.tableCell48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell48.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Megnevezés_Szerkesztett_GB")}); + this.tableCell48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorderDashStyle = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.StylePriority.UseFont = false; + this.tableCell48.StylePriority.UseTextAlignment = false; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell48.Weight = 1.0664061624383012D; + // + // tableCell6 + // + this.tableCell6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell6.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell6.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorderDashStyle = false; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell6.Weight = 0.24365119144641664D; + // + // tableCell16 + // + this.tableCell16.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell16.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName_Gb")}); + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorderDashStyle = false; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell16.Weight = 0.14373356522361364D; + // + // tableCell5 + // + this.tableCell5.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell5.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FinalPriceDEV", "{0:n}")}); + this.tableCell5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorderDashStyle = false; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell5.Weight = 0.45564440293024905D; + // + // tableCell15 + // + this.tableCell15.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell15.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorderDashStyle = false; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell15.Weight = 0.36317497340251731D; + // + // tableCell94 + // + this.tableCell94.BackColor = System.Drawing.Color.Transparent; + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName.ShortNa" + + "me")}); + this.tableCell94.Font = new System.Drawing.Font("Arial Narrow", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBackColor = false; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell94.Weight = 0.22748623858420675D; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(312.6809F, 20.22917F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = " Fax: +36-1-409-5141"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(27.78046F, 20.22917F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(132.5641F, 19.79169F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = " Tel: +36-1-409-5140"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(609.6001F, 20.22917F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(563.0565F, 20.22917F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(313.8437F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(392.0032F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(229.5032F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(154.5032F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(3.178914E-05F, 31.08975F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(313.8621F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(467.9615F, 31.08975F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(289.0385F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 226.6311F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9999F, 9.999985F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(467.9615F, 86.85898F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow1, + this.tableRow9, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(289.0385F, 74.35896F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 86.85897F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6, + this.tableRow5, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(313.8622F, 55.76925F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.8041F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(757F, 31.827F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 184.8269F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(757F, 9.977264F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(467.9615F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 31.08973F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "To:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(137.5F, 31.08974F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "From :"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Contact Person:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 0.84534504973043956D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.DisplayNamePostal")}); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.6578599063242483D; + // + // tableCell1 + // + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Phone number:"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell1.Weight = 0.84534555557173219D; + // + // tableCell2 + // + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 1.6578594004829557D; + // + // tableCell30 + // + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Fax number:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.84534555557173219D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.6578594004829557D; + // + // tableCell32 + // + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Order number:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 0.84534555557173219D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInRows.OrderInHeader.CustomersRef" + + "Number")}); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.6578594004829557D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell24, + this.tableCell25}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.74358978271484377D; + // + // tableCell24 + // + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "Contact Person:"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell24.Weight = 0.7872902601104983D; + // + // tableCell25 + // + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.UserCreated.FullName")}); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 1.7159146959441896D; + // + // tableCell22 + // + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Date:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.78729019926232635D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.DateCreated", "{0:dd.MM.yyyy}")}); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.7159147567923614D; + // + // tableCell26 + // + this.tableCell26.BackColor = System.Drawing.Color.Transparent; + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBackColor = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "Ref. No.:"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell26.Weight = 0.7872902601104983D; + // + // tableCell27 + // + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.DocumentNumber")}); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 1.7159146959441896D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell18, + this.tableCell3, + this.tableCell4, + this.tableCell14}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.2730786904051277D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Part number"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.37490360763307584D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "Description"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 1.0664061445101436D; + // + // tableCell3 + // + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Multiline = true; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Quantity"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.38738454847970466D; + // + // tableCell4 + // + this.tableCell4.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Unite price (net)"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.45564463515937087D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Amount (net)"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.59066115811794484D; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderInAcknowledgementHeader.OrderInAcknowledgementRows.OrderInAcknowledgementHea" + + "der.OrderInHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 24.83333F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(2.889922E-05F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(756.9999F, 33.00002F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "ORDER ACKNOWLEDGMENT"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(412.8365F, 10.00006F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow22}); + this.table13.SizeF = new System.Drawing.SizeF(344.1635F, 24.99999F); + // + // line1 + // + this.line1.BorderWidth = 1; + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(756.9999F, 9.977234F); + this.line1.StylePriority.UseBorderWidth = false; + // + // line5 + // + this.line5.BorderWidth = 1; + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.00002F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(756.9999F, 9.977234F); + this.line5.StylePriority.UseBorderWidth = false; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 90.13004F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow2, + this.tableRow13, + this.tableRow18}); + this.table1.SizeF = new System.Drawing.SizeF(742.2195F, 83.33334F); + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(9.999969F, 191.5885F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(742.2196F, 86.45836F); + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell17, + this.tableCell62}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Total Net Price:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 1.4364272720677851D; + // + // tableCell17 + // + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell17.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell17.Summary = summary1; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell17.Weight = 0.94661592314949083D; + // + // tableCell62 + // + this.tableCell62.BackColor = System.Drawing.Color.Transparent; + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName.ShortNa" + + "me")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseBackColor = false; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell62.Weight = 0.511493236990751D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7, + this.tableCell8}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 0.80000036994922574D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell9, + this.tableCell10}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 0.80000028729748551D; + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell13}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1.7333345465652952D; + // + // tableCell7 + // + this.tableCell7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "Payment terms:"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell7.Weight = 0.59218874925659715D; + // + // tableCell8 + // + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.PaymentOption.ShortName_GB")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell8.Weight = 3.8244778156848094D; + // + // tableCell9 + // + this.tableCell9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "Delivery terms:"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell9.Weight = 0.59218874925659715D; + // + // tableCell10 + // + this.tableCell10.BackColor = System.Drawing.Color.Transparent; + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.ShipmentOption.ShortName_GB")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBackColor = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell10.Weight = 3.8244778156848094D; + // + // tableCell13 + // + this.tableCell13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "The goods are sold and supplied subject to Lenstar Kft.\'s Terms and Conditions of" + + " Sale, which shall prevail over any other terms."; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell13.Weight = 4.4166665649414067D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 2.4583341623942561D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = "Comments:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.NoteHeader")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Megnevezés_Szerkesztett_GB + // + this.Megnevezés_Szerkesztett_GB.Expression = "Iif([OrderInRows]<>nothing, [OrderInRows.Products.ShortName_Gb] , [ShortName])"; + this.Megnevezés_Szerkesztett_GB.Name = "Megnevezés_Szerkesztett_GB"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Megnevezés_Szerkesztett_GB}); + this.DisplayName = "Rendelés visszaigazolás angol devizás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás magyar devizás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás magyar devizás.repx new file mode 100644 index 0000000..74e7622 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Rendelés visszaigazolás magyar devizás.repx @@ -0,0 +1,1418 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableRow tableRow12; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Megnevezés_szerkesztett; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAiQEAAAxGAGkAbAB0AGUAcgC4AQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgC6AQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAvAEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQC+AQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAvwEAAAGGAw0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDE0LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE1LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY0LnRleHQgPSBsYWJlbDE2LnRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE3LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCgEtU0lTQnVzaW5lc3MuTW9kdWxlLk9yZGVySW5BY2tub3dsZWRnZW1lbnRSb3dzAQABAAEAAAEpUmVuZGVsw6lzIHZpc3N6YWlnYXpvbMOhcyBtYWd5YXIgZGV2aXrDoXM="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow12 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Megnevezés_szerkesztett = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 25F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label13, + this.label18, + this.label11, + this.label12, + this.line4}); + this.pageFooterBand1.HeightF = 60.25002F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label17, + this.label15, + this.label14, + this.table12, + this.table11, + this.line3, + this.table4, + this.table3, + this.table2, + this.line2, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 236.6311F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5, + this.line1, + this.line5, + this.table13, + this.label4, + this.table10}); + this.GroupFooter1.HeightF = 262.9666F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(756.9996F, 25F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell48, + this.tableCell6, + this.tableCell16, + this.tableCell5, + this.tableCell15, + this.tableCell94}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.99999938964881D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ProductNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.34758812957977026D; + // + // tableCell48 + // + this.tableCell48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell48.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Megnevezés_szerkesztett")}); + this.tableCell48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorderDashStyle = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.StylePriority.UseFont = false; + this.tableCell48.StylePriority.UseTextAlignment = false; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell48.Weight = 1.0422928189114276D; + // + // tableCell6 + // + this.tableCell6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell6.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell6.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorderDashStyle = false; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell6.Weight = 0.23573798401479654D; + // + // tableCell16 + // + this.tableCell16.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell16.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorderDashStyle = false; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "tableCell16"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell16.Weight = 0.15164676229129209D; + // + // tableCell5 + // + this.tableCell5.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell5.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "FinalPriceDEV", "{0:n}")}); + this.tableCell5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorderDashStyle = false; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell5.Weight = 0.50707318711622984D; + // + // tableCell15 + // + this.tableCell15.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell15.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorderDashStyle = false; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "tableCell15"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell15.Weight = 0.36317497340251731D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName.ShortNa" + + "me")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell94.Weight = 0.22748623858420675D; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(563.0566F, 20.22917F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(45.83148F, 19.79169F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Email:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Email")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(609.6001F, 20.22917F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(142.6194F, 19.79169F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(27.78049F, 20.22917F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(132.5641F, 19.79169F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = " Tel: +36-1-409-5140"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(312.681F, 20.22917F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(139.5833F, 19.79169F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = " Fax: +36-1-409-5141"; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(756.9994F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(313.8437F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(388.8782F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(221.1698F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(63.26929F, 23F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(137.5F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(63.26932F, 23F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 31.08975F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(316.9872F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(467.9614F, 31.08975F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(289.0385F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 226.6311F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9996F, 9.999985F); + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(467.9614F, 86.85897F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow1, + this.tableRow9, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(289.0385F, 74.35897F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 86.85897F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6, + this.tableRow5, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(316.9872F, 55.76925F); + this.table3.StylePriority.UseFont = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 194.8041F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(757F, 31.827F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 184.8269F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(756.9997F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(467.9615F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 31.08973F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Megrendelő adatai:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(137.5F, 31.08973F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Szállító adatai:"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Ügyintéző:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 0.84534563483699621D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.FullName")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.6578593212176918D; + // + // tableCell1 + // + this.tableCell1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Telefon:"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell1.Weight = 0.8453456348369961D; + // + // tableCell2 + // + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.BusinessTelephoneNumber")}); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 1.6578593212176918D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Telefax:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.8453456348369961D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.Contacts.BusinessFaxNumber")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.6578593212176918D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Rendelési szám:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 0.8453456348369961D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInRows.OrderInHeader.CustomersRef" + + "Number")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.6578593212176918D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell24, + this.tableCell25}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.74358978271484377D; + // + // tableCell24 + // + this.tableCell24.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseFont = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "Készítette:"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell24.Weight = 0.81540784935658106D; + // + // tableCell25 + // + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.UserCreated.FullName")}); + this.tableCell25.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseFont = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 1.6877971066981068D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Kiállítás dátuma:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.8154080301014921D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.DateCreated", "{0:dd.MM.yyyy}")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.6877969259531958D; + // + // tableCell26 + // + this.tableCell26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "Megbízási szám:"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell26.Weight = 0.8154080301014921D; + // + // tableCell27 + // + this.tableCell27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.DocumentNumber")}); + this.tableCell27.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "tableCell27"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 1.6877969259531958D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell11, + this.tableCell18, + this.tableCell3, + this.tableCell4, + this.tableCell14}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1.2730786904051277D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "CIKKSZÁM"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.34758804367507845D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "MEGNEVEZÉS"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell18.Weight = 1.0422921787195689D; + // + // tableCell3 + // + this.tableCell3.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "MENNYISÉG"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.38738420077280911D; + // + // tableCell4 + // + this.tableCell4.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "EGYSÉGÁR (NE)"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.5070745126148386D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "ÖSSZESEN(NE)"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.59066115811794484D; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "OrderInAcknowledgementHeader.OrderInAcknowledgementRows.OrderInAcknowledgementHea" + + "der.OrderInHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 23.79166F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(757F, 33.00002F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "RENDELÉS - VISSZAIGAZOLÁS"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(10.00001F, 92.70834F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow11, + this.tableRow12, + this.tableRow14}); + this.table5.SizeF = new System.Drawing.SizeF(742.2194F, 70F); + this.table5.StylePriority.UseFont = false; + this.table5.StylePriority.UseTextAlignment = false; + this.table5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // line1 + // + this.line1.BorderWidth = 1; + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(9.536743E-05F, 0F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(756.9999F, 9.977242F); + this.line1.StylePriority.UseBorderWidth = false; + // + // line5 + // + this.line5.BorderWidth = 1; + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(9.536743E-05F, 34.99997F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(756.9993F, 9.977242F); + this.line5.StylePriority.UseBorderWidth = false; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(365.9615F, 9.999974F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow22}); + this.table13.SizeF = new System.Drawing.SizeF(391.0381F, 25F); + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 11.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 59.42497F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(742.2194F, 22.99998F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Az árak nettó, forintban értendők a teljesítés / számlázás napján érvényes eladás" + + "i árfolyamon."; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 178.5916F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(742.2195F, 84.37502F); + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19, + this.tableCell34}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.80000005594889889D; + // + // tableRow12 + // + this.tableRow12.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell35, + this.tableCell36}); + this.tableRow12.Name = "tableRow12"; + this.tableRow12.Weight = 1D; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell37, + this.tableCell38}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1.0000002288818592D; + // + // tableCell19 + // + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "Fizetési határidő:"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell19.Weight = 0.50328948398706408D; + // + // tableCell34 + // + this.tableCell34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.PaymentOption.ShortName")}); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "tableCell34"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell34.Weight = 2.4967105160129357D; + // + // tableCell35 + // + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "Paritás:"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell35.Weight = 0.50328951410309752D; + // + // tableCell36 + // + this.tableCell36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.ShipmentOption.ShortName")}); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = "tableCell36"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell36.Weight = 2.4967104858969025D; + // + // tableCell37 + // + this.tableCell37.Name = "tableCell37"; + this.tableCell37.Text = "Szállítási kondíciók:"; + this.tableCell37.Weight = 0.50328948398706408D; + // + // tableCell38 + // + this.tableCell38.Name = "tableCell38"; + this.tableCell38.Text = "Lenstar Kft. Álltaalános Értékesítési Feltételei szerint."; + this.tableCell38.Weight = 2.4967105160129357D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell17, + this.tableCell62}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Nettó érték összesen:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 1.6204034743519942D; + // + // tableCell17 + // + this.tableCell17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell17.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell17.Summary = summary1; + this.tableCell17.Text = "tableCell17"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell17.Weight = 1.1568749900391298D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.OrderInHeader.OrderInParameters.CurrencyName.ShortNa" + + "me")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell62.Weight = 0.511493236990751D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 2.3750010223389424D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = " Megjegyzés:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInAcknowledgementHeader.NoteHeader")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Megnevezés_szerkesztett + // + this.Megnevezés_szerkesztett.Expression = "Iif([OrderInRows]<>nothing, [OrderInRows.Products.ShortName] ,[ShortName] )"; + this.Megnevezés_szerkesztett.Name = "Megnevezés_szerkesztett"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Megnevezés_szerkesztett}); + this.DisplayName = "Rendelés visszaigazolás magyar devizás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla angol nyelvű DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla angol nyelvű DEV.repx new file mode 100644 index 0000000..d1c0602 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla angol nyelvű DEV.repx @@ -0,0 +1,2011 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableCell tableCell51; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell52; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableCell tableCell61; + private DevExpress.XtraReports.UI.XRTableCell tableCell63; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell39; + private DevExpress.XtraReports.UI.XRTableCell tableCell40; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell25; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField InvoiceRows_ShortName_GB; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAfAMAAAxGAGkAbAB0AGUAcgCcAwAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCeAwAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAoAMAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCiAwAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAowMAAAH5Bg0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlU" + + "HJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5Qcmlud" + + "GluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDguVGV4dC5Ub1N0cmluZ" + + "yAmICIgIiAmIGxhYmVsNy5UZXh0LlRvU3RyaW5nDQpFbmQgU3ViDQoNClByaXZhdGUgU3ViIHRhYmxlQ" + + "2VsbDY0X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtL" + + "kRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQp0YWJsZUNlbGw2NC50ZXh0ID0gbGFiZWw0L" + + "lRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDUuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiBsYWJlbDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBc" + + "yBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCmlmIGxhYmVsOS50ZXh0ID0gI" + + "lRydWUiIGFuZCB0YWJsZUNlbGw2LlRleHQ9IiIgdGhlbiBsYWJlbDEuVGV4dD0iUFJPRk9STUEgSU5WT" + + "0lDRSINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZWwxNl9CZWZvcmVQcmludChCeVZhbCBzZW5kZ" + + "XIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBc" + + "mdzKQ0KbGFiZWwxNi50ZXh0ID0gIlBsZWFzZSB0cmFuc2ZlciB0byAiICYgbGFiZWwyMC5UZXh0LlRvU" + + "3RyaW5nICYgIiAsIEFjY291bnQgSUJBTiAiICYgbGFiZWwxOC50ZXh0LnRvc3RyaW5nICYgIiAiICYgb" + + "GFiZWwyMi50ZXh0LnRvc3RyaW5nICYgIiwgU1dJRlQgY29kZTogIiAmIGxhYmVsMjMudGV4dC50b3N0c" + + "mluZw0KRW5kIFN1Yg0KDQoBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZvaWNlUm93cwEAAQABAAABIFZld" + + "sWRaSBzesOhbWxhIGFuZ29sIG55ZWx2xbEgREVW"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell51 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell52 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell61 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell63 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell39 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell40 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell25 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.InvoiceRows_ShortName_GB = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 49.61537F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7, + this.pageInfo1, + this.table6, + this.line4}); + this.pageFooterBand1.HeightF = 58.8611F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table5, + this.label4, + this.label5, + this.label7, + this.label8, + this.label14, + this.label15, + this.table12, + this.table11, + this.table4, + this.table1, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 272.5482F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label10, + this.label18, + this.label16, + this.label20, + this.label22, + this.label23, + this.table13, + this.label6, + this.table10}); + this.GroupFooter1.HeightF = 172.3061F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table2, + this.line2, + this.line3}); + this.PageHeader.HeightF = 78.89392F; + this.PageHeader.Name = "PageHeader"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17, + this.tableRow7}); + this.table8.SizeF = new System.Drawing.SizeF(757F, 49.61537F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell94, + this.tableCell21, + this.tableCell49, + this.tableCell50, + this.tableCell23, + this.tableCell51, + this.tableCell28, + this.tableCell52, + this.tableCell20, + this.tableCell22, + this.tableCell54}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.71999959106470257D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell55, + this.tableCell61, + this.tableCell63}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.71999953002958361D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.26132067847041546D; + // + // tableCell47 + // + this.tableCell47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell47.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ProductNumber")}); + this.tableCell47.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorderDashStyle = false; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseFont = false; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = "tableCell47"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell47.Weight = 0.81348130915946537D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell94.Weight = 0.22802114383110073D; + // + // tableCell21 + // + this.tableCell21.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell21.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorderDashStyle = false; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.Weight = 0.037978517751574146D; + // + // tableCell49 + // + this.tableCell49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell49.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName_Gb")}); + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorderDashStyle = false; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.Text = "tableCell49"; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell49.Weight = 0.19436409106483332D; + // + // tableCell50 + // + this.tableCell50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell50.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:n}")}); + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.StylePriority.UseBorderDashStyle = false; + this.tableCell50.StylePriority.UseBorders = false; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.StylePriority.UseTextAlignment = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell50.Weight = 0.28674366504802745D; + // + // tableCell23 + // + this.tableCell23.Name = "tableCell23"; + this.tableCell23.Weight = 0.037979446873482925D; + // + // tableCell51 + // + this.tableCell51.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell51.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell51.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell51.Name = "tableCell51"; + this.tableCell51.StylePriority.UseBorderDashStyle = false; + this.tableCell51.StylePriority.UseBorders = false; + this.tableCell51.StylePriority.UseFont = false; + this.tableCell51.StylePriority.UseTextAlignment = false; + this.tableCell51.Text = "tableCell51"; + this.tableCell51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell51.Weight = 0.29303856944387535D; + // + // tableCell28 + // + this.tableCell28.Name = "tableCell28"; + this.tableCell28.Weight = 0.047462223460553746D; + // + // tableCell52 + // + this.tableCell52.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell52.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.tableCell52.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell52.Name = "tableCell52"; + this.tableCell52.StylePriority.UseBorderDashStyle = false; + this.tableCell52.StylePriority.UseBorders = false; + this.tableCell52.StylePriority.UseFont = false; + this.tableCell52.StylePriority.UseTextAlignment = false; + this.tableCell52.Text = "tableCell52"; + this.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell52.Weight = 0.25042197505270941D; + // + // tableCell20 + // + this.tableCell20.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.tableCell20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:n}")}); + this.tableCell20.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorderDashStyle = false; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.StylePriority.UseFont = false; + this.tableCell20.StylePriority.UseTextAlignment = false; + this.tableCell20.Text = "tableCell20"; + this.tableCell20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell20.Weight = 0.28447825435692337D; + // + // tableCell22 + // + this.tableCell22.Name = "tableCell22"; + this.tableCell22.Weight = 0.037978868509850695D; + // + // tableCell54 + // + this.tableCell54.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell54.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell54.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName", "{0:n}")}); + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseBorderDashStyle = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "tableCell54"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell54.Weight = 0.10173135087742805D; + // + // tableCell26 + // + this.tableCell26.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell26.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceRows_ShortName_GB")}); + this.tableCell26.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseBorderDashStyle = false; + this.tableCell26.StylePriority.UseBorders = false; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "tableCell26"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell26.Weight = 1.0748018802117756D; + // + // tableCell55 + // + this.tableCell55.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell55.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell55.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseBorderDashStyle = false; + this.tableCell55.StylePriority.UseBorders = false; + this.tableCell55.StylePriority.UseFont = false; + this.tableCell55.StylePriority.UseTextAlignment = false; + this.tableCell55.Text = "Origin (Származás):"; + this.tableCell55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + this.tableCell55.Weight = 0.42238493861328624D; + // + // tableCell61 + // + this.tableCell61.BackColor = System.Drawing.Color.Transparent; + this.tableCell61.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell61.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.CountryFrom.ShortName")}); + this.tableCell61.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell61.Name = "tableCell61"; + this.tableCell61.StylePriority.UseBackColor = false; + this.tableCell61.StylePriority.UseBorderDashStyle = false; + this.tableCell61.StylePriority.UseBorders = false; + this.tableCell61.StylePriority.UseFont = false; + this.tableCell61.StylePriority.UseTextAlignment = false; + this.tableCell61.Text = "tableCell61"; + this.tableCell61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + this.tableCell61.Weight = 0.11032785956356717D; + // + // tableCell63 + // + this.tableCell63.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell63.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell63.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label13}); + this.tableCell63.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell63.Name = "tableCell63"; + this.tableCell63.StylePriority.UseBorderDashStyle = false; + this.tableCell63.StylePriority.UseBorders = false; + this.tableCell63.StylePriority.UseFont = false; + this.tableCell63.StylePriority.UseTextAlignment = false; + this.tableCell63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell63.Weight = 1.2674854155116113D; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ShortName")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(30.93446F, 0F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(98.92623F, 15.62502F); + this.label12.Text = "label12"; + this.label12.Visible = false; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ShortName_Gb")}); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(156.1066F, 6.357829E-05F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(99.99998F, 15.625F); + this.label13.Text = "label13"; + this.label13.Visible = false; + // + // table7 + // + this.table7.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(370.1218F, 9.977214F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow14, + this.tableRow16, + this.tableRow15}); + this.table7.SizeF = new System.Drawing.SizeF(183.869F, 43.67857F); + this.table7.StylePriority.UseFont = false; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Page:{0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(657F, 9.977255F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 20F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // table6 + // + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999984F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow13}); + this.table6.SizeF = new System.Drawing.SizeF(353.0389F, 15F); + this.table6.StylePriority.UseFont = false; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell38, + this.tableCell41}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell44, + this.tableCell45}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 1D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell42, + this.tableCell43}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 1.1561290993567472D; + // + // tableCell38 + // + this.tableCell38.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell38.Name = "tableCell38"; + this.tableCell38.StylePriority.UseFont = false; + this.tableCell38.Text = " Phone:"; + this.tableCell38.Weight = 0.7123415288817031D; + // + // tableCell41 + // + this.tableCell41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseFont = false; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "+36-1-409-5140"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell41.Weight = 2.2126584711182971D; + // + // tableCell44 + // + this.tableCell44.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseFont = false; + this.tableCell44.Text = " Fax:"; + this.tableCell44.Weight = 0.71234128614389958D; + // + // tableCell45 + // + this.tableCell45.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell45.Name = "tableCell45"; + this.tableCell45.StylePriority.UseFont = false; + this.tableCell45.StylePriority.UseTextAlignment = false; + this.tableCell45.Text = "+36-1-409-5141"; + this.tableCell45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell45.Weight = 2.2126587138561007D; + // + // tableCell42 + // + this.tableCell42.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseFont = false; + this.tableCell42.Text = " Email:"; + this.tableCell42.Weight = 0.62017762592670023D; + // + // tableCell43 + // + this.tableCell43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Email")}); + this.tableCell43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseFont = false; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "tableCell43"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell43.Weight = 2.3048223740733D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell39, + this.tableCell40}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 1.0838698367191173D; + // + // tableCell39 + // + this.tableCell39.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell39.Name = "tableCell39"; + this.tableCell39.StylePriority.UseFont = false; + this.tableCell39.Text = "Tax identification number (Adószám): "; + this.tableCell39.Weight = 1.6719368829014345D; + // + // tableCell40 + // + this.tableCell40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.VATNumberEU")}); + this.tableCell40.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell40.Name = "tableCell40"; + this.tableCell40.StylePriority.UseFont = false; + this.tableCell40.StylePriority.UseTextAlignment = false; + this.tableCell40.Text = "tableCell40"; + this.tableCell40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell40.Weight = 1.0392984805233139D; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0.9397359F, 129.7784F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow4, + this.tableRow8}); + this.table5.SizeF = new System.Drawing.SizeF(342.0992F, 37.17948F); + this.table5.StylePriority.UseFont = false; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.ZipPostal")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(329.2307F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label4.Text = "label16"; + this.label4.Visible = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.City")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(329.2307F, 31.08972F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label5.Text = "label17"; + this.label5.Visible = false; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.City")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(259.8526F, 31.08972F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label7.Text = "label15"; + this.label7.Visible = false; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.ZipPostal")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(259.8526F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(52.14746F, 26.7628F); + this.label8.Text = "label14"; + this.label8.Visible = false; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 16.17648F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(224.9679F, 16.17649F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "(Számlakibocsátó neve, címe):"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(414.9006F, 16.17648F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(230.4087F, 16.17647F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "(Vevő neve, címe):"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 42.37926F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32, + this.tableRow5}); + this.table12.SizeF = new System.Drawing.SizeF(250.3205F, 74.35898F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(414.901F, 42.37925F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29, + this.tableRow6}); + this.table11.SizeF = new System.Drawing.SizeF(326.8905F, 74.35899F); + this.table11.StylePriority.UseFont = false; + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(414.9006F, 129.7784F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow9, + this.tableRow11, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(342.0992F, 55.76922F); + this.table4.StylePriority.UseFont = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(6.357829E-05F, 202.5482F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2}); + this.table1.SizeF = new System.Drawing.SizeF(756.9999F, 70F); + this.table1.StylePriority.UseBorders = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(414.9006F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(230.4087F, 16.17647F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Name and address of the buyer:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(224.9679F, 16.17647F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Name and address of the issurer:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell13, + this.tableCell18}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 0.74358978271484377D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell27, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableCell13 + // + this.tableCell13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "Contact (Ügyintéző):"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell13.Weight = 1.1406132505901869D; + // + // tableCell18 + // + this.tableCell18.BackColor = System.Drawing.Color.Transparent; + this.tableCell18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.UserCreated.FullName")}); + this.tableCell18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBackColor = false; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "tableCell18"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell18.Weight = 2.1274246336971507D; + // + // tableCell27 + // + this.tableCell27.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "Tax identification number (Adószám): "; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 2.0707685397516276D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.VATNumberEU")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.19726934453571D; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell24}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableCell24 + // + this.tableCell24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.Country.Name_GB")}); + this.tableCell24.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell24.Name = "tableCell24"; + this.tableCell24.StylePriority.UseFont = false; + this.tableCell24.StylePriority.UseTextAlignment = false; + this.tableCell24.Text = "tableCell24"; + this.tableCell24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell24.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell25}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableCell25 + // + this.tableCell25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.Country.Name_GB")}); + this.tableCell25.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell25.Name = "tableCell25"; + this.tableCell25.StylePriority.UseFont = false; + this.tableCell25.StylePriority.UseTextAlignment = false; + this.tableCell25.Text = "tableCell25"; + this.tableCell25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell25.Weight = 2.5032049560546881D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Contact (Ügyintéző):"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 1.1406132505901869D; + // + // tableCell31 + // + this.tableCell31.BackColor = System.Drawing.Color.Transparent; + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.Contacts.DisplayNamePostal")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseBackColor = false; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 2.1274246336971507D; + // + // tableCell34 + // + this.tableCell34.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Tax identification number (Adószám):"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell34.Weight = 2.0061080156570266D; + // + // tableCell35 + // + this.tableCell35.BackColor = System.Drawing.Color.Transparent; + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.VATNumberEU")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseBackColor = false; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell35.Weight = 1.2619298686303107D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Ref. Number:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 0.71869039737895957D; + // + // tableCell33 + // + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.CustomersRefNumber")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 2.5493474869083776D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell5, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6, + this.tableCell7, + this.tableCell8, + this.tableCell9, + this.tableCell10}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 0.55555555555555558D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Invoice No. (Számlaszám)"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.60000004460261835D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Multiline = true; + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Date of issue \r\n(Kiáll. dátum)"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.60000006807768069D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell5.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Multiline = true; + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "Date of Delivery \r\n(Telj. dátum)"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.60000006807768069D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Multiline = true; + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Date Due\r\n(Esed. dátum)"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.60000006807768058D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell4.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Multiline = true; + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Payment terms\r\n(Fiz. mód):"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.59999975116433968D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.tableCell6.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.60000004460261835D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:dd.MM.yyyy}")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.60000006807768069D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:dd.MM.yyyy}")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.60000006807768069D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:dd.MM.yyyy}")}); + this.tableCell9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.60000006807768058D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName_GB")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.59999975116433968D; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.IsProforma")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(207.2917F, 48.95833F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label9.Text = "label9"; + this.label9.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "InvoiceHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 28.99998F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 119F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(757F, 33.00001F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "INVOICE"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.TotalBruttoDEV", "{0:n}")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(566.8751F, 81.38924F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 18.00008F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(720.2136F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(36.78625F, 25.00002F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.AutoWidth = true; + this.label18.BackColor = System.Drawing.Color.Transparent; + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.IBAN")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(329.2307F, 61.03526F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(40.89105F, 18F); + this.label18.StylePriority.UseBackColor = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label18.Visible = false; + this.label18.WordWrap = false; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(9.369637F, 43.03519F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.Scripts.OnBeforePrint = "label16_BeforePrint"; + this.label16.SizeF = new System.Drawing.SizeF(737.6304F, 18.00006F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Please transfer to"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label20 + // + this.label20.AutoWidth = true; + this.label20.BackColor = System.Drawing.Color.Transparent; + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.LiquidAssests.ShortName")}); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(127.1581F, 61.03526F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(71.27864F, 18F); + this.label20.StylePriority.UseBackColor = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label20.Visible = false; + this.label20.WordWrap = false; + // + // label22 + // + this.label22.AutoWidth = true; + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.AccountNumber")}); + this.label22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(370.1218F, 61.03526F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(192.2823F, 17.99996F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = " label4"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label22.Visible = false; + this.label22.WordWrap = false; + // + // label23 + // + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.SWIFT")}); + this.label23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(656.4295F, 61.03526F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(100.5703F, 17.99996F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label23.Visible = false; + // + // table13 + // + this.table13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(353.0389F, 0F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18}); + this.table13.SizeF = new System.Drawing.SizeF(367.1746F, 25F); + this.table13.StylePriority.UseFont = false; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(9.369651F, 81.38927F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(384.4295F, 18.00005F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Terms are according to Lenstar\'s Standard Conditions of Sale."; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(9.369659F, 99.3894F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(732.422F, 72.91668F); + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell62}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Total value of invoice (A számla végösszege):"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 1.9655124426872432D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell62.Summary = summary1; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell62.Weight = 0.62914335472920846D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1.916667353312195D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = " Note (Megjegyzés):"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(757F, 65F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LineWidth = 2; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(757F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 75F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9999F, 3.893921F); + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell14, + this.tableCell11, + this.tableCell12, + this.tableCell15, + this.tableCell19, + this.tableCell16}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 2.5999976393895596D; + // + // tableCell17 + // + this.tableCell17.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Multiline = true; + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "Description of the product (service), its statistical \r\nclassification number.\r\nA" + + "z áru (szolgáltatás) megnevezése, besorolási száma ."; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell17.Weight = 1.0748018810661839D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Multiline = true; + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "Quantity\r\n(Mennyiség)"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.26599983181046405D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Multiline = true; + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "Unit\r\n(M. egys.)"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell11.Weight = 0.1943641006940858D; + // + // tableCell12 + // + this.tableCell12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Multiline = true; + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "Unit price\r\n(Egységár)"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell12.Weight = 0.3263049643970467D; + // + // tableCell15 + // + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Multiline = true; + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "Value\r\n(Érték)"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell15.Weight = 0.33891895149904833D; + // + // tableCell19 + // + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Multiline = true; + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "VAT\r\nrate\r\n(Áfa kulcs)\r\n%"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.2504217577358997D; + // + // tableCell16 + // + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Multiline = true; + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "Invoice value\r\n(Érték)"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell16.Weight = 0.42418860669751191D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // InvoiceRows_ShortName_GB + // + this.InvoiceRows_ShortName_GB.Expression = "Iif([OrderInRows] <> nothing, [OrderInRows.Products.ShortName_Gb] ,[ShortName] )"; + this.InvoiceRows_ShortName_GB.Name = "InvoiceRows_ShortName_GB"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.PageHeader}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.InvoiceRows_ShortName_GB}); + this.DisplayName = "Vevői számla angol nyelvű DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF (alriport).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF (alriport).repx new file mode 100644 index 0000000..fa33672 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF (alriport).repx @@ -0,0 +1,451 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Invoice_subreport : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Invoice_subreport() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEsVmV2xZFpIHN6w6FtbGEgbWFneWFyIG55ZWx2xbEgSFVGIChhbHJpcG9ydCk="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label9, + this.label5, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 16.05556F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label17, + this.label14, + this.label15, + this.label13, + this.line1}); + this.reportHeaderBand1.HeightF = 40.51392F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label11, + this.label12, + this.line2, + this.label10}); + this.GroupFooter1.HeightF = 24.5417F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(260.4165F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(99.99998F, 16.05556F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "HUF"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,#}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(626.7775F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(122.2222F, 16.05556F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(517.7082F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(84.02777F, 16.05556F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,#}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(360.4165F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(115.2778F, 16.05556F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(99.99998F, 16.05556F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(539.3334F, 22.22223F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(84.02771F, 16.125F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "ÁFA"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(700.0691F, 22.22225F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(56.93091F, 16.125F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Bruttó"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 22.22223F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(99.99998F, 16.125F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "ÁFA kulcs"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(397.6667F, 22.22223F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(115.2778F, 16.125F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Nettó"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(99.99998F, 16.125F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Összesen:"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 38.34724F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(638.25F, 2.166672F); + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(260.4166F, 2.166684F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(99.99997F, 22.37499F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "HUF"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label12.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(611.1525F, 2.166653F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(137.8472F, 22.37501F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label12.Summary = summary1; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(118.7499F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(638.2501F, 2.166684F); + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 2.166677F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(141.6666F, 22.37501F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Számla végösszege:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Invoice_subreport + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Vevői számla magyar nyelvű HUF (alriport)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 0, 0); + this.Name = "Invoice_subreport"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV (alriport).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV (alriport).repx new file mode 100644 index 0000000..2229ad6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV (alriport).repx @@ -0,0 +1,557 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Invoice_subreport_HUF_DEV : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public Invoice_subreport_HUF_DEV() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLkludm9pY2VWQVRSb3dzAQABAAEAAAEyVmV2xZFpIHN6w6FtbGEgbWFneWFyIG55ZWx2xbEgSFVGICsgREVWIChhbHJpcG9ydCk="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label17, + this.label18, + this.label19, + this.label20, + this.label9, + this.label5, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 32.11112F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label13, + this.label1, + this.label6, + this.label7, + this.label8, + this.line1}); + this.reportHeaderBand1.HeightF = 40.51393F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 0F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label14, + this.label15, + this.label11, + this.label12, + this.line2, + this.label10}); + this.GroupFooter1.HeightF = 53.70836F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label17.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(260.4166F, 16.05556F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(99.99998F, 16.05556F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "label9"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoDEV", "{0:n}")}); + this.label18.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(360.4166F, 16.05556F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(115.2778F, 16.05556F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATDEV", "{0:n}")}); + this.label19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(510.5139F, 16.05556F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(84.02777F, 16.05556F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "label19"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV", "{0:n}")}); + this.label20.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(625.8331F, 16.05556F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(122.2222F, 16.05556F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(260.4166F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(99.99998F, 16.05556F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "HUF"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF", "{0:#,#}")}); + this.label5.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(625.8331F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(122.2222F, 16.05556F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATHUF", "{0:#,#}")}); + this.label4.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(510.5139F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(84.02777F, 16.05556F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountNettoHUF", "{0:#,#}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(360.4166F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(115.2778F, 16.05556F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label2.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(99.99998F, 16.05556F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 0F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(99.99998F, 16.125F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Összesen:"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 22.22223F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(99.99998F, 16.125F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "ÁFA kulcs"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(396.5418F, 22.22223F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(115.2778F, 16.125F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Nettó"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(534.0419F, 22.22223F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(84.02771F, 16.125F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "ÁFA"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(706.0136F, 22.22223F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(50.98627F, 16.125F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Bruttó"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 38.34724F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(638.25F, 2.166676F); + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(260.4166F, 31.33335F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(99.99997F, 22.375F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label11"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoDEV")}); + this.label15.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(610.2082F, 31.33335F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(137.8472F, 22.37501F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:n}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label15.Summary = summary1; + this.label15.Text = "label15"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(260.4166F, 2.166684F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(99.99997F, 22.375F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "HUF"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountBruttoHUF")}); + this.label12.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(610.2082F, 2.166684F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(137.8472F, 22.37501F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label12.Summary = summary2; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(638.2499F, 2.166684F); + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(118.75F, 2.166677F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(141.6666F, 22.37501F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Számla végösszege:"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Invoice_subreport_HUF_DEV + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.DisplayName = "Vevői számla magyar nyelvű HUF + DEV (alriport)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 0, 0); + this.Name = "Invoice_subreport_HUF_DEV"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV.repx new file mode 100644 index 0000000..b6292d9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF + DEV.repx @@ -0,0 +1,2398 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableCell tableCell24; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableCell tableCell51; + private DevExpress.XtraReports.UI.XRTableCell tableCell52; + private DevExpress.XtraReports.UI.XRTableCell tableCell53; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableCell tableCell67; + private DevExpress.XtraReports.UI.XRTableCell tableCell68; + private DevExpress.XtraReports.UI.XRTableCell tableCell69; + private DevExpress.XtraReports.UI.XRTableCell tableCell70; + private DevExpress.XtraReports.UI.XRTableCell tableCell71; + private DevExpress.XtraReports.UI.XRTableCell tableCell72; + private DevExpress.XtraReports.UI.XRTableCell tableCell73; + private DevExpress.XtraReports.UI.XRTableCell tableCell74; + private DevExpress.XtraReports.UI.XRTableCell tableCell75; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell39; + private DevExpress.XtraReports.UI.XRTableCell tableCell40; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow12; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRTableCell tableCell59; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableRow tableRow23; + private DevExpress.XtraReports.UI.XRTableCell tableCell81; + private DevExpress.XtraReports.UI.XRTableCell tableCell82; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRSubreport Invoice_sub_HUF_DEV; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell61; + private DevExpress.XtraReports.UI.XRTableCell tableCell95; + private DevExpress.XtraReports.UI.XRTableCell tableCell63; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRTableRow tableRow22; + private DevExpress.XtraReports.UI.XRTableCell tableCell76; + private DevExpress.XtraReports.UI.XRTableCell tableCell77; + private DevExpress.XtraReports.UI.XRTableCell tableCell78; + private DevExpress.XtraReports.UI.XRTableCell tableCell79; + private DevExpress.XtraReports.UI.XRTableCell tableCell80; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAjQgAAAxGAGkAbAB0AGUAcgCtCAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCvCAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAsQgAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCzCAAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAtAgAAAGKEQ0KUHJpdmF0ZSBTdWIgSW52b2ljZV9zdWJfSFVGX0RFV" + + "l9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3a" + + "W5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KQ1R5cGUoc2VuZGVyLCBYUlN1YnJlcG9ydCkuUmVwb" + + "3J0U291cmNlLkZpbHRlclN0cmluZz0iSW52b2ljZUhlYWRlci5PaWQ9JyIgJiBsYWJlbDUuVGV4dC5Ub" + + "1N0cmluZyAmICInIg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZUNlbGw2Nl9CZWZvcmVQcmlud" + + "ChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nL" + + "lByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNjYudGV4dCA9IGxhYmVsMTQuVGV4dC5Ub1N0cmluZyAmI" + + "CIgIiAmIGxhYmVsMTUuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiB0YWJsZUNlb" + + "Gw2NF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5Ec" + + "mF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KdGFibGVDZWxsNjQudGV4dCA9IGxhYmVsMTYuV" + + "GV4dC5Ub1N0cmluZyAmICIgIiAmIGxhYmVsMTcuVGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiBsYWJlbDEzX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQ" + + "XMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpsYWJlbDEzLnRleHQgPSAiK" + + "CIgJiBsYWJlbDEzLnRleHQuVG9TdHJpbmcgJiAiKSINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZ" + + "WwxOV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5Ec" + + "mF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KbGFiZWwxOS50ZXh0ID0gbGFiZWwxOS50ZXh0I" + + "CYgIiAiICYgdGFibGVDZWxsNzAudGV4dC5Ub1N0cmluZw0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBsY" + + "WJlbDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uR" + + "HJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCmlmIGxhYmVsMjAudGV4dCA9ICJUcnVlIiBhb" + + "mQgdGFibGVDZWxsNi5UZXh0PSIiIHRoZW4gbGFiZWwxLlRleHQ9IlBSw5NCQVNaw4FNTEEiDQpFbmQgU" + + "3ViDQoNCidQcml2YXRlIFN1YiBsYWJlbDdfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjd" + + "CwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCidsYWJlb" + + "DcudGV4dCA9ICJLw6lyasO8aywgaG9neSBheiDDtnNzemVnZXQ6ICIgJiBsYWJlbDgudGV4dC50b3N0c" + + "mluZyAmICIgIiAmIGxhYmVsOS50ZXh0LnRvc3RyaW5nICYgIiBheiAiICYgbGFiZWwxMS50ZXh0LnRvc" + + "3RyaW5nICYgIiBJQkFOICIgJiBsYWJlbDIxLnRleHQudG9zdHJpbmcgJiAiICIgJiBsYWJlbDQudGV4d" + + "C50b3N0cmluZyAmICIgU1dJRlQga8OzZDogIiAmIGxhYmVsMTMudGV4dC50b3N0cmluZyAmICIgc3rDo" + + "W3DuiBiYW5rc3rDoW1sw6FyYSB1dGFsbmkgc3rDrXZlc2tlZGplbmVrLiINCidFbmQgU3ViDQoNCg0KU" + + "HJpdmF0ZSBTdWIgbGFiZWw3X0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsI" + + "GUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpsYWJlbDcudGV4dCA9I" + + "CJLw6lyasO8aywgaG9neSBheiDDtnNzemVnZXQ6ICIgJiBsYWJlbDgudGV4dC50b3N0cmluZyAmICIgI" + + "iAmIGxhYmVsOS50ZXh0LnRvc3RyaW5nICYgIiBheiAiICYgbGFiZWwxMS50ZXh0LnRvc3RyaW5nICYgI" + + "iBJQkFOICIgJiBsYWJlbDIxLnRleHQudG9zdHJpbmcgJiAiICIgJiBsYWJlbDQudGV4dC50b3N0cmluZ" + + "yAmICIgU1dJRlQga8OzZDogIiAmIGxhYmVsMTMudGV4dC50b3N0cmluZyAmICIgc3rDoW3DuiBiYW5rc" + + "3rDoW1sw6FyYSB1dGFsbmkgc3rDrXZlc2tlZGplbmVrLiINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgb" + + "GFiZWwxMF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3Rlb" + + "S5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgbGFiZWwxMi50ZXh0ID0gIsOBdHV0Y" + + "WzDoXMiIHRoZW4NCmxhYmVsMTAudmlzaWJsZSA9IHRydWUNCmVuZCBpZg0KRW5kIFN1Yg0KAR5TSVNCd" + + "XNpbmVzcy5Nb2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAASdWZXbFkWkgc3rDoW1sYSBtYWd5YXIgbnllb" + + "HbFsSBIVUYgKyBERVY="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary7 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell24 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell51 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell52 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell53 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell67 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell68 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell69 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell70 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell71 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell72 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell73 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell74 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell75 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell39 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell40 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow12 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell59 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow23 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell81 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell82 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.Invoice_sub_HUF_DEV = new DevExpress.XtraReports.UI.XRSubreport(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow22 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell61 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell95 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell63 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell76 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell77 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell78 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell79 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell80 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 45F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7, + this.table6, + this.table5, + this.line4, + this.pageInfo1}); + this.pageFooterBand1.HeightF = 60.25F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label14, + this.label15, + this.label17, + this.label16, + this.table12, + this.table11, + this.table4, + this.table3, + this.table1, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 201.6538F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label10, + this.label8, + this.label21, + this.label19, + this.Invoice_sub_HUF_DEV, + this.label13, + this.label5, + this.label4, + this.table13, + this.label11, + this.label9, + this.label7, + this.label6, + this.table10}); + this.GroupFooter1.HeightF = 377.6048F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.table2, + this.line2}); + this.PageHeader.HeightF = 26.97725F; + this.PageHeader.Name = "PageHeader"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 7F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17, + this.tableRow19}); + this.table8.SizeF = new System.Drawing.SizeF(756.9998F, 38F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell20, + this.tableCell48, + this.tableCell94, + this.tableCell49, + this.tableCell24, + this.tableCell21, + this.tableCell50, + this.tableCell51, + this.tableCell52, + this.tableCell53, + this.tableCell54}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.79999951171904793D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell55, + this.tableCell67, + this.tableCell68, + this.tableCell69, + this.tableCell70, + this.tableCell71, + this.tableCell72, + this.tableCell73, + this.tableCell74, + this.tableCell75}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 0.7199995605471432D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.26132067847041546D; + // + // tableCell47 + // + this.tableCell47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell47.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ProductNumber")}); + this.tableCell47.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorderDashStyle = false; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseFont = false; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = "tableCell47"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell47.Weight = 0.29487179601839536D; + // + // tableCell20 + // + this.tableCell20.Name = "tableCell20"; + this.tableCell20.Weight = 0.025801281898572351D; + // + // tableCell48 + // + this.tableCell48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell48.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.tableCell48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorderDashStyle = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.StylePriority.UseFont = false; + this.tableCell48.StylePriority.UseTextAlignment = false; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell48.Weight = 0.45863911988401185D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell94.Weight = 0.18371064137185378D; + // + // tableCell49 + // + this.tableCell49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell49.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorderDashStyle = false; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.Text = "tableCell49"; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell49.Weight = 0.0826960056594469D; + // + // tableCell24 + // + this.tableCell24.Name = "tableCell24"; + this.tableCell24.Weight = 0.014996787197687447D; + // + // tableCell21 + // + this.tableCell21.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseFont = false; + this.tableCell21.StylePriority.UseTextAlignment = false; + this.tableCell21.Text = "HUF"; + this.tableCell21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell21.Weight = 0.12372370377736258D; + // + // tableCell50 + // + this.tableCell50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell50.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.StylePriority.UseBorderDashStyle = false; + this.tableCell50.StylePriority.UseBorders = false; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.StylePriority.UseTextAlignment = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell50.Weight = 0.25712569130872553D; + // + // tableCell51 + // + this.tableCell51.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell51.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.tableCell51.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell51.Name = "tableCell51"; + this.tableCell51.StylePriority.UseBorderDashStyle = false; + this.tableCell51.StylePriority.UseBorders = false; + this.tableCell51.StylePriority.UseFont = false; + this.tableCell51.StylePriority.UseTextAlignment = false; + this.tableCell51.Text = "tableCell51"; + this.tableCell51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell51.Weight = 0.3426687885882756D; + // + // tableCell52 + // + this.tableCell52.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell52.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.tableCell52.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell52.Name = "tableCell52"; + this.tableCell52.StylePriority.UseBorderDashStyle = false; + this.tableCell52.StylePriority.UseBorders = false; + this.tableCell52.StylePriority.UseFont = false; + this.tableCell52.StylePriority.UseTextAlignment = false; + this.tableCell52.Text = "tableCell52"; + this.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell52.Weight = 0.14121318501642682D; + // + // tableCell53 + // + this.tableCell53.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell53.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.tableCell53.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell53.Name = "tableCell53"; + this.tableCell53.StylePriority.UseBorderDashStyle = false; + this.tableCell53.StylePriority.UseBorders = false; + this.tableCell53.StylePriority.UseFont = false; + this.tableCell53.StylePriority.UseTextAlignment = false; + this.tableCell53.Text = "tableCell53"; + this.tableCell53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell53.Weight = 0.30033414758352739D; + // + // tableCell54 + // + this.tableCell54.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell54.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.tableCell54.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseBorderDashStyle = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "tableCell54"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell54.Weight = 0.35103951653204873D; + // + // tableCell55 + // + this.tableCell55.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell55.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell55.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseBorderDashStyle = false; + this.tableCell55.StylePriority.UseBorders = false; + this.tableCell55.StylePriority.UseFont = false; + this.tableCell55.StylePriority.UseTextAlignment = false; + this.tableCell55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell55.Weight = 0.26132067847041546D; + // + // tableCell67 + // + this.tableCell67.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell67.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell67.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell67.Name = "tableCell67"; + this.tableCell67.StylePriority.UseBorderDashStyle = false; + this.tableCell67.StylePriority.UseBorders = false; + this.tableCell67.StylePriority.UseFont = false; + this.tableCell67.StylePriority.UseTextAlignment = false; + this.tableCell67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell67.Weight = 0.38359323319143129D; + // + // tableCell68 + // + this.tableCell68.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell68.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell68.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell68.Name = "tableCell68"; + this.tableCell68.StylePriority.UseBorderDashStyle = false; + this.tableCell68.StylePriority.UseBorders = false; + this.tableCell68.StylePriority.UseFont = false; + this.tableCell68.StylePriority.UseTextAlignment = false; + this.tableCell68.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell68.Weight = 0.43321110492379367D; + // + // tableCell69 + // + this.tableCell69.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell69.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell69.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell69.Name = "tableCell69"; + this.tableCell69.StylePriority.UseBorderDashStyle = false; + this.tableCell69.StylePriority.UseBorders = false; + this.tableCell69.StylePriority.UseFont = false; + this.tableCell69.StylePriority.UseTextAlignment = false; + this.tableCell69.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell69.Weight = 0.2439113566304725D; + // + // tableCell70 + // + this.tableCell70.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell70.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell70.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.tableCell70.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell70.Name = "tableCell70"; + this.tableCell70.StylePriority.UseBorderDashStyle = false; + this.tableCell70.StylePriority.UseBorders = false; + this.tableCell70.StylePriority.UseFont = false; + this.tableCell70.StylePriority.UseTextAlignment = false; + this.tableCell70.Text = "tableCell70"; + this.tableCell70.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell70.Weight = 0.12372372743027052D; + // + // tableCell71 + // + this.tableCell71.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell71.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell71.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceDEV", "{0:n}")}); + this.tableCell71.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell71.Name = "tableCell71"; + this.tableCell71.StylePriority.UseBorderDashStyle = false; + this.tableCell71.StylePriority.UseBorders = false; + this.tableCell71.StylePriority.UseFont = false; + this.tableCell71.StylePriority.UseTextAlignment = false; + this.tableCell71.Text = "tableCell71"; + this.tableCell71.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell71.Weight = 0.25712537610727126D; + // + // tableCell72 + // + this.tableCell72.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell72.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell72.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV", "{0:n}")}); + this.tableCell72.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell72.Name = "tableCell72"; + this.tableCell72.StylePriority.UseBorderDashStyle = false; + this.tableCell72.StylePriority.UseBorders = false; + this.tableCell72.StylePriority.UseFont = false; + this.tableCell72.StylePriority.UseTextAlignment = false; + this.tableCell72.Text = "tableCell72"; + this.tableCell72.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell72.Weight = 0.34266878858827565D; + // + // tableCell73 + // + this.tableCell73.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell73.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell73.Font = new System.Drawing.Font("Arial Narrow", 6.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell73.Name = "tableCell73"; + this.tableCell73.StylePriority.UseBorderDashStyle = false; + this.tableCell73.StylePriority.UseBorders = false; + this.tableCell73.StylePriority.UseFont = false; + this.tableCell73.StylePriority.UseTextAlignment = false; + this.tableCell73.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell73.Weight = 0.15327816644460188D; + // + // tableCell74 + // + this.tableCell74.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell74.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell74.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV", "{0:n}")}); + this.tableCell74.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell74.Name = "tableCell74"; + this.tableCell74.StylePriority.UseBorderDashStyle = false; + this.tableCell74.StylePriority.UseBorders = false; + this.tableCell74.StylePriority.UseFont = false; + this.tableCell74.StylePriority.UseTextAlignment = false; + this.tableCell74.Text = "tableCell74"; + this.tableCell74.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell74.Weight = 0.28826916615535236D; + // + // tableCell75 + // + this.tableCell75.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell75.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell75.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV", "{0:n}")}); + this.tableCell75.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell75.Name = "tableCell75"; + this.tableCell75.StylePriority.UseBorderDashStyle = false; + this.tableCell75.StylePriority.UseBorders = false; + this.tableCell75.StylePriority.UseFont = false; + this.tableCell75.StylePriority.UseTextAlignment = false; + this.tableCell75.Text = "tableCell75"; + this.tableCell75.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell75.Weight = 0.35103974536486543D; + // + // table7 + // + this.table7.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(349.5925F, 10F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow14, + this.tableRow16, + this.tableRow15}); + this.table7.SizeF = new System.Drawing.SizeF(183.869F, 43.67857F); + this.table7.StylePriority.UseFont = false; + // + // table6 + // + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(545.598F, 10.00002F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow13}); + this.table6.SizeF = new System.Drawing.SizeF(211.402F, 18F); + this.table6.StylePriority.UseFont = false; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow12}); + this.table5.SizeF = new System.Drawing.SizeF(329.2308F, 18.00001F); + this.table5.StylePriority.UseFont = false; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(756.9998F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal:{0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(647F, 33.67859F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 20F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell38, + this.tableCell41}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell44, + this.tableCell45}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 1D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell42, + this.tableCell43}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 1.1561290993567472D; + // + // tableCell38 + // + this.tableCell38.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell38.Name = "tableCell38"; + this.tableCell38.StylePriority.UseFont = false; + this.tableCell38.Text = " Tel:"; + this.tableCell38.Weight = 0.62017762592670023D; + // + // tableCell41 + // + this.tableCell41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseFont = false; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "+36-1-409-5140"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell41.Weight = 2.3048223740733D; + // + // tableCell44 + // + this.tableCell44.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseFont = false; + this.tableCell44.Text = " Fax:"; + this.tableCell44.Weight = 0.62017762592670023D; + // + // tableCell45 + // + this.tableCell45.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell45.Name = "tableCell45"; + this.tableCell45.StylePriority.UseFont = false; + this.tableCell45.StylePriority.UseTextAlignment = false; + this.tableCell45.Text = "+36-1-409-5141"; + this.tableCell45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell45.Weight = 2.3048223740733D; + // + // tableCell42 + // + this.tableCell42.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseFont = false; + this.tableCell42.Text = " Email:"; + this.tableCell42.Weight = 0.62017762592670023D; + // + // tableCell43 + // + this.tableCell43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Email")}); + this.tableCell43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseFont = false; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "tableCell43"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell43.Weight = 2.3048223740733D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell39, + this.tableCell40}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 1.3006438040629411D; + // + // tableCell39 + // + this.tableCell39.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell39.Name = "tableCell39"; + this.tableCell39.StylePriority.UseFont = false; + this.tableCell39.StylePriority.UseTextAlignment = false; + this.tableCell39.Text = " Adószám:"; + this.tableCell39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell39.Weight = 0.54038543701171871D; + // + // tableCell40 + // + this.tableCell40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.VATNumber")}); + this.tableCell40.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell40.Name = "tableCell40"; + this.tableCell40.StylePriority.UseFont = false; + this.tableCell40.StylePriority.UseTextAlignment = false; + this.tableCell40.Text = "tableCell40"; + this.tableCell40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell40.Weight = 1.263475631223687D; + // + // tableRow12 + // + this.tableRow12.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell36, + this.tableCell59, + this.tableCell37}); + this.tableRow12.Name = "tableRow12"; + this.tableRow12.Weight = 1.3006465131846476D; + // + // tableCell36 + // + this.tableCell36.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseFont = false; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = " Bank:"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell36.Weight = 0.44999999307557703D; + // + // tableCell59 + // + this.tableCell59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.LiquidAssests.ShortName")}); + this.tableCell59.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell59.Name = "tableCell59"; + this.tableCell59.StylePriority.UseFont = false; + this.tableCell59.StylePriority.UseTextAlignment = false; + this.tableCell59.Text = "tableCell59"; + this.tableCell59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell59.Weight = 0.68621809396734867D; + // + // tableCell37 + // + this.tableCell37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.AccountNumber")}); + this.tableCell37.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell37.Name = "tableCell37"; + this.tableCell37.StylePriority.UseFont = false; + this.tableCell37.StylePriority.UseTextAlignment = false; + this.tableCell37.Text = "tableCell37"; + this.tableCell37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell37.Weight = 2.1560898048027775D; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.Country.Name")}); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(336.4301F, 21.52559F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(52.14761F, 18.58975F); + this.label18.Text = "label18"; + this.label18.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(174.9679F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(52.14746F, 21.52558F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(265.9614F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(52.14746F, 21.52558F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(393.6155F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(52.14749F, 21.52558F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(336.4301F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(52.14746F, 21.52558F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(6.357828E-05F, 21.52559F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(312F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(444.9616F, 21.52559F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(312.0384F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(445.0002F, 77.29483F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow10, + this.tableRow11}); + this.table4.SizeF = new System.Drawing.SizeF(311.9998F, 74.35898F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(5.779844E-05F, 77.29481F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5, + this.tableRow23, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(312F, 55.76923F); + this.table3.StylePriority.UseFont = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 151.6538F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2}); + this.table1.SizeF = new System.Drawing.SizeF(757F, 50F); + this.table1.StylePriority.UseBorders = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(445.763F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 21.52558F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő adatai:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(137.5F, 21.52558F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számlakibocsátó adatai:"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Ügyfélszám:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 0.81804697632398549D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.6851579797307024D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Ügyintéző:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.81804648663297508D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.Contacts.DisplayNamePostal")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.6851584694217128D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Vevői hiv. szám:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 0.81804697632398549D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.CustomersRefNumber")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.6851579797307024D; + // + // tableCell34 + // + this.tableCell34.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Adószám:"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell34.Weight = 0.81804648663297508D; + // + // tableCell35 + // + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.VATNumber")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell35.Weight = 1.6851584694217128D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableRow23 + // + this.tableRow23.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell81, + this.tableCell82}); + this.tableRow23.Name = "tableRow23"; + this.tableRow23.Weight = 0.74358978271484377D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.74358978271484377D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Szállítólevél száma:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 0.98684054134949661D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutRows.DeliveryNoteOutHeader.DocumentNumber")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.5163644147051911D; + // + // tableCell81 + // + this.tableCell81.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell81.Name = "tableCell81"; + this.tableCell81.StylePriority.UseFont = false; + this.tableCell81.StylePriority.UseTextAlignment = false; + this.tableCell81.Text = "Számlázta:"; + this.tableCell81.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell81.Weight = 0.98684048013815029D; + // + // tableCell82 + // + this.tableCell82.BackColor = System.Drawing.Color.Transparent; + this.tableCell82.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.UserCreated.FullName")}); + this.tableCell82.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell82.Name = "tableCell82"; + this.tableCell82.StylePriority.UseBackColor = false; + this.tableCell82.StylePriority.UseFont = false; + this.tableCell82.StylePriority.UseTextAlignment = false; + this.tableCell82.Text = "tableCell82"; + this.tableCell82.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell82.Weight = 1.5163644759165376D; + // + // tableCell26 + // + this.tableCell26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "Projektszám:"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell26.Weight = 0.98684048013815029D; + // + // tableCell27 + // + this.tableCell27.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "[JobNumberObjects.Name]"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 1.5163644759165376D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell5, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6, + this.tableCell7, + this.tableCell8, + this.tableCell9, + this.tableCell10}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Számlaszám:"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.60000004460261835D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Kiállítás dátuma:"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.60000006807768069D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "Teljesítés dátuma:"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.60000006807768069D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Fizetési határidő:"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.60000006807768058D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Fizetési mód:"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.59999975116433968D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.tableCell6.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.60000004460261835D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.60000006807768069D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.60000006807768069D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.tableCell9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.60000006807768058D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.59999975116433968D; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.IsProforma")}); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(325F, 62.5F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label20.Text = "label13"; + this.label20.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "InvoiceHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(545.598F, 24.8333F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(757F, 33.00002F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.PayMode")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(636.4583F, 276.0417F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label12.Text = "label12"; + this.label12.Visible = false; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(5.224403F, 279.688F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.Scripts.OnBeforePrint = "label10_BeforePrint"; + this.label10.SizeF = new System.Drawing.SizeF(507.3398F, 17.99997F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "Késedelmes teljesítés esetén 20% késedelmi kamatot számítunk fel."; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.TotalBruttoDEV", "{0:n}")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(508.928F, 243F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(99.99998F, 17.79168F); + this.label8.StylePriority.UseFont = false; + summary1.FormatString = "{0:n}"; + summary1.IgnoreNullValues = true; + this.label8.Summary = summary1; + this.label8.Text = "label8"; + this.label8.Visible = false; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(204.8F, 207F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(92.91541F, 18.00002F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "[InvoiceHeader.BankInformation.IBAN]"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label21.Visible = false; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(5.224355F, 225F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.Scripts.OnBeforePrint = "label19_BeforePrint"; + this.label19.SizeF = new System.Drawing.SizeF(751.7755F, 18.00002F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "label19"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // Invoice_sub_HUF_DEV + // + this.Invoice_sub_HUF_DEV.LocationFloat = new DevExpress.Utils.PointFloat(0F, 58.33337F); + this.Invoice_sub_HUF_DEV.Name = "Invoice_sub_HUF_DEV"; + this.Invoice_sub_HUF_DEV.ReportSourceUrl = "Vevői számla magyar nyelvű HUF + DEV (alriport)"; + this.Invoice_sub_HUF_DEV.Scripts.OnBeforePrint = "Invoice_sub_HUF_DEV_BeforePrint"; + this.Invoice_sub_HUF_DEV.SizeF = new System.Drawing.SizeF(747F, 94.87499F); + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(533.0808F, 207F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.Scripts.OnBeforePrint = "label13_BeforePrint"; + this.label13.SizeF = new System.Drawing.SizeF(180F, 17.99995F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "[InvoiceHeader.BankInformation.SWIFT]"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label13.Visible = false; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(66.66666F, 13.54167F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.Text = "label5"; + this.label5.Visible = false; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.AccountNumber")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(297.7154F, 207F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(235.3654F, 17.99997F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label4.Visible = false; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(352.9615F, 0F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18, + this.tableRow22}); + this.table13.SizeF = new System.Drawing.SizeF(404.0385F, 50F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.LiquidAssests.ShortName")}); + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(122.8F, 207F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(82F, 18F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label11.Visible = false; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(78.62181F, 207F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(35F, 18.00002F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label9.Visible = false; + // + // label7 + // + this.label7.AutoWidth = true; + this.label7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(5.224352F, 172.1046F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.Scripts.OnBeforePrint = "label7_BeforePrint"; + this.label7.SizeF = new System.Drawing.SizeF(741.7756F, 18.00008F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Kérjük, hogy az összeget:"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(5.224333F, 261.688F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(324.0064F, 17.99997F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Lenstar Kft. Általános értékesítési feltételei szerint."; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(5.224355F, 303.6464F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(741.7756F, 73.95837F); + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell61, + this.tableCell95, + this.tableCell63, + this.tableCell62}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableRow22 + // + this.tableRow22.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell76, + this.tableCell77, + this.tableCell78, + this.tableCell79, + this.tableCell80}); + this.tableRow22.Name = "tableRow22"; + this.tableRow22.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Összesen:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 0.81020151674436791D; + // + // tableCell61 + // + this.tableCell61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF")}); + this.tableCell61.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell61.Name = "tableCell61"; + this.tableCell61.StylePriority.UseFont = false; + this.tableCell61.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell61.Summary = summary2; + this.tableCell61.Text = "tableCell61"; + this.tableCell61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell61.Weight = 0.71993994507627879D; + // + // tableCell95 + // + this.tableCell95.Name = "tableCell95"; + this.tableCell95.Weight = 0.32473923055184639D; + // + // tableCell63 + // + this.tableCell63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF")}); + this.tableCell63.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell63.Name = "tableCell63"; + this.tableCell63.StylePriority.UseFont = false; + this.tableCell63.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,#}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell63.Summary = summary3; + this.tableCell63.Text = "tableCell63"; + this.tableCell63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell63.Weight = 0.65943452833716087D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,#}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell62.Summary = summary4; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell62.Weight = 0.695024939966162D; + // + // tableCell76 + // + this.tableCell76.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell76.Name = "tableCell76"; + this.tableCell76.StylePriority.UseFont = false; + this.tableCell76.StylePriority.UseTextAlignment = false; + this.tableCell76.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell76.Weight = 0.81020151674436791D; + // + // tableCell77 + // + this.tableCell77.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceDEV")}); + this.tableCell77.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell77.Name = "tableCell77"; + this.tableCell77.StylePriority.UseFont = false; + this.tableCell77.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:n}"; + summary5.IgnoreNullValues = true; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell77.Summary = summary5; + this.tableCell77.Text = "tableCell77"; + this.tableCell77.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell77.Weight = 0.71993994507627879D; + // + // tableCell78 + // + this.tableCell78.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell78.Name = "tableCell78"; + this.tableCell78.StylePriority.UseFont = false; + this.tableCell78.StylePriority.UseTextAlignment = false; + this.tableCell78.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell78.Weight = 0.32473923055184639D; + // + // tableCell79 + // + this.tableCell79.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATDEV")}); + this.tableCell79.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell79.Name = "tableCell79"; + this.tableCell79.StylePriority.UseFont = false; + this.tableCell79.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:n}"; + summary6.IgnoreNullValues = true; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell79.Summary = summary6; + this.tableCell79.Text = "tableCell79"; + this.tableCell79.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell79.Weight = 0.65943452833716087D; + // + // tableCell80 + // + this.tableCell80.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoDEV")}); + this.tableCell80.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell80.Name = "tableCell80"; + this.tableCell80.StylePriority.UseFont = false; + this.tableCell80.StylePriority.UseTextAlignment = false; + summary7.FormatString = "{0:n}"; + summary7.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell80.Summary = summary7; + this.tableCell80.Text = "tableCell80"; + this.tableCell80.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell80.Weight = 0.695024939966162D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1.9583341013590996D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = " Megjegyzés:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 24.97725F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9998F, 2F); + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.977228F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(757F, 15.00002F); + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LineWidth = 2; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(6.622738E-05F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(756.9998F, 9.977249F); + this.line2.StylePriority.UseBorderWidth = false; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell11, + this.tableCell18, + this.tableCell14, + this.tableCell12, + this.tableCell15, + this.tableCell19, + this.tableCell13, + this.tableCell16}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 0.60000024414047592D; + // + // tableCell17 + // + this.tableCell17.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "VTSZ/SZJ"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell17.Weight = 0.26132067847041546D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "CIKKSZÁM"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell11.Weight = 0.31367945724903273D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "MEGNEVEZÉS"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell18.Weight = 0.50662487757878949D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "MENNYISÉG"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.29489162627922466D; + // + // tableCell12 + // + this.tableCell12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "EGYSÉGÁR "; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell12.Weight = 0.33476090206003856D; + // + // tableCell15 + // + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "NETTÓ ÉRTÉK "; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell15.Weight = 0.34091766802226431D; + // + // tableCell19 + // + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "ÁFA"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.13489548779231164D; + // + // tableCell13 + // + this.tableCell13.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "ÁFA ÉRTÉKE "; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell13.Weight = 0.30808511080593914D; + // + // tableCell16 + // + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "BRUTTÓ ÉRTÉK "; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell16.Weight = 0.35218027893943987D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.PageHeader}); + this.DisplayName = "Vevői számla magyar nyelvű HUF + DEV"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF.repx new file mode 100644 index 0000000..60788f9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Lenstar/Vevői számla magyar nyelvű HUF.repx @@ -0,0 +1,2053 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Documents and Settings\richard.szenner\Application Data\SIS\Active\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table8; + private DevExpress.XtraReports.UI.XRTableRow tableRow17; + private DevExpress.XtraReports.UI.XRTableCell tableCell46; + private DevExpress.XtraReports.UI.XRTableCell tableCell47; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell48; + private DevExpress.XtraReports.UI.XRTableCell tableCell94; + private DevExpress.XtraReports.UI.XRTableCell tableCell49; + private DevExpress.XtraReports.UI.XRTableCell tableCell50; + private DevExpress.XtraReports.UI.XRTableCell tableCell51; + private DevExpress.XtraReports.UI.XRTableCell tableCell52; + private DevExpress.XtraReports.UI.XRTableCell tableCell53; + private DevExpress.XtraReports.UI.XRTableCell tableCell54; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRTable table7; + private DevExpress.XtraReports.UI.XRTableRow tableRow14; + private DevExpress.XtraReports.UI.XRTableCell tableCell38; + private DevExpress.XtraReports.UI.XRTableCell tableCell41; + private DevExpress.XtraReports.UI.XRTableRow tableRow16; + private DevExpress.XtraReports.UI.XRTableCell tableCell44; + private DevExpress.XtraReports.UI.XRTableCell tableCell45; + private DevExpress.XtraReports.UI.XRTableRow tableRow15; + private DevExpress.XtraReports.UI.XRTableCell tableCell42; + private DevExpress.XtraReports.UI.XRTableCell tableCell43; + private DevExpress.XtraReports.UI.XRTable table6; + private DevExpress.XtraReports.UI.XRTableRow tableRow13; + private DevExpress.XtraReports.UI.XRTableCell tableCell39; + private DevExpress.XtraReports.UI.XRTableCell tableCell40; + private DevExpress.XtraReports.UI.XRTable table5; + private DevExpress.XtraReports.UI.XRTableRow tableRow12; + private DevExpress.XtraReports.UI.XRTableCell tableCell36; + private DevExpress.XtraReports.UI.XRTableCell tableCell59; + private DevExpress.XtraReports.UI.XRTableCell tableCell37; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRTable table12; + private DevExpress.XtraReports.UI.XRTableRow tableRow30; + private DevExpress.XtraReports.UI.XRTableCell tableCell57; + private DevExpress.XtraReports.UI.XRTableRow tableRow31; + private DevExpress.XtraReports.UI.XRTableCell tableCell66; + private DevExpress.XtraReports.UI.XRTableRow tableRow32; + private DevExpress.XtraReports.UI.XRTableCell tableCell93; + private DevExpress.XtraReports.UI.XRTable table11; + private DevExpress.XtraReports.UI.XRTableRow tableRow27; + private DevExpress.XtraReports.UI.XRTableCell tableCell56; + private DevExpress.XtraReports.UI.XRTableRow tableRow28; + private DevExpress.XtraReports.UI.XRTableCell tableCell64; + private DevExpress.XtraReports.UI.XRTableRow tableRow29; + private DevExpress.XtraReports.UI.XRTableCell tableCell92; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell28; + private DevExpress.XtraReports.UI.XRTableCell tableCell29; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell30; + private DevExpress.XtraReports.UI.XRTableCell tableCell31; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell32; + private DevExpress.XtraReports.UI.XRTableCell tableCell33; + private DevExpress.XtraReports.UI.XRTableRow tableRow11; + private DevExpress.XtraReports.UI.XRTableCell tableCell34; + private DevExpress.XtraReports.UI.XRTableCell tableCell35; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTableRow tableRow19; + private DevExpress.XtraReports.UI.XRTableCell tableCell55; + private DevExpress.XtraReports.UI.XRTableCell tableCell67; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell26; + private DevExpress.XtraReports.UI.XRTableCell tableCell27; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRTable table13; + private DevExpress.XtraReports.UI.XRTableRow tableRow18; + private DevExpress.XtraReports.UI.XRTableCell tableCell60; + private DevExpress.XtraReports.UI.XRTableCell tableCell61; + private DevExpress.XtraReports.UI.XRTableCell tableCell95; + private DevExpress.XtraReports.UI.XRTableCell tableCell63; + private DevExpress.XtraReports.UI.XRTableCell tableCell62; + private DevExpress.XtraReports.UI.XRSubreport Invoice_subrep; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRTable table10; + private DevExpress.XtraReports.UI.XRTableRow tableRow20; + private DevExpress.XtraReports.UI.XRTableCell tableCell58; + private DevExpress.XtraReports.UI.XRTableRow tableRow21; + private DevExpress.XtraReports.UI.XRTableCell tableCell65; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUA8gUAAAxGAGkAbAB0AGUAcgASBgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgAUBgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAFgYAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAYBgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAGQYAAAHvCw0KUHJpdmF0ZSBTdWIgbGFiZWw4X0JlZm9yZVByaW50K" + + "EJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuU" + + "HJpbnRFdmVudEFyZ3MpDQppZiBsYWJlbDEwLnRleHQgPSAiw4F0dXRhbMOhcyIgdGhlbg0KbGFiZWw4L" + + "nZpc2libGUgPSB0cnVlDQplbmQgaWYNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgSW52b2ljZV9zdWJyZ" + + "XBfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd" + + "2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlc" + + "G9ydFNvdXJjZS5GaWx0ZXJTdHJpbmc9Ikludm9pY2VIZWFkZXIuT2lkPSciICYgbGFiZWw1LlRleHQuV" + + "G9TdHJpbmcgJiAiJyINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFibGVDZWxsNjZfQmVmb3JlUHJpb" + + "nQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZ" + + "y5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY2LnRleHQgPSBsYWJlbDE0LnRleHQuVG9TdHJpbmcgJ" + + "iAiICIgJiBsYWJlbDE1LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgdGFibGVDZ" + + "WxsNjRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uR" + + "HJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCnRhYmxlQ2VsbDY0LnRleHQgPSBsYWJlbDE2L" + + "nRleHQuVG9TdHJpbmcgJiAiICIgJiBsYWJlbDE3LnRleHQuVG9TdHJpbmcNCkVuZCBTdWINCg0KUHJpd" + + "mF0ZSBTdWIgbGFiZWwxOF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KbGFiZWwxOC50ZXh0ID0gb" + + "GFiZWwxOC50ZXh0ICYgIiAiICYgbGFiZWwxOS50ZXh0LlRvU3RyaW5nDQpFbmQgU3ViDQoNClByaXZhd" + + "GUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzI" + + "FN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgbGFiZWwxMy50ZXh0ID0gI" + + "lRydWUiIGFuZCB0YWJsZUNlbGw2LlRleHQ9IiIgdGhlbiBsYWJlbDEuVGV4dD0iUFLDk0JBU1rDgU1MQ" + + "SINCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgbGFiZWwyMF9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQ" + + "XMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzK" + + "Q0KbGFiZWwyMC50ZXh0ID0gIkvDqXJqw7xrLCBob2d5IGF6IMO2c3N6ZWdldDogIiAmIGxhYmVsNy50Z" + + "Xh0LnRvc3RyaW5nICYgIiAiICYgbGFiZWwxMi50ZXh0LnRvc3RyaW5nICYgIiBheiAiICYgbGFiZWwxM" + + "S50ZXh0LnRvc3RyaW5nICYgIiAiICYgbGFiZWw0LnRleHQudG9zdHJpbmcgJiAiIHN6w6Ftw7ogYmFua" + + "3N6w6FtbMOhcmEgdXRhbG5pIHN6w612ZXNrZWRqZW5lay4iDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzL" + + "k1vZHVsZS5JbnZvaWNlUm93cwEAAQABAAABIVZldsWRaSBzesOhbWxhIG1hZ3lhciBueWVsdsWxIEhVR" + + "g=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.table8 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow17 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell46 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell47 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell48 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell94 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell49 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell50 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell51 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell52 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell53 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell54 = new DevExpress.XtraReports.UI.XRTableCell(); + this.table7 = new DevExpress.XtraReports.UI.XRTable(); + this.table6 = new DevExpress.XtraReports.UI.XRTable(); + this.table5 = new DevExpress.XtraReports.UI.XRTable(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.tableRow14 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow16 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow15 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell38 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell41 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell44 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell45 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell42 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell43 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow13 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell39 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell40 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow12 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell36 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell59 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell37 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.table12 = new DevExpress.XtraReports.UI.XRTable(); + this.table11 = new DevExpress.XtraReports.UI.XRTable(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow30 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow31 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow32 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell57 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell66 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell93 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow27 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow28 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow29 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell56 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell64 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell92 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow11 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell28 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell29 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell30 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell31 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell32 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell33 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell34 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell35 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow19 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell55 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell67 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell26 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell27 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.table13 = new DevExpress.XtraReports.UI.XRTable(); + this.Invoice_subrep = new DevExpress.XtraReports.UI.XRSubreport(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.table10 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow18 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell60 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell61 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell95 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell63 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell62 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow20 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow21 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell58 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell65 = new DevExpress.XtraReports.UI.XRTableCell(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table8)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table8}); + this.detailBand1.HeightF = 20.20832F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table7, + this.table6, + this.table5, + this.line4, + this.pageInfo1}); + this.pageFooterBand1.HeightF = 60.25002F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label17, + this.label15, + this.label14, + this.table12, + this.table11, + this.table4, + this.table3, + this.table1, + this.label3, + this.label2}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 201.6538F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label13, + this.pictureBox1, + this.label1}); + this.topMarginBand1.HeightF = 152F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 26F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label10, + this.label8, + this.label7, + this.label20, + this.label11, + this.label4, + this.label19, + this.label18, + this.label5, + this.table13, + this.Invoice_subrep, + this.label6, + this.table10}); + this.GroupFooter1.HeightF = 333.3122F; + this.GroupFooter1.Name = "GroupFooter1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.table2, + this.line3}); + this.PageHeader.HeightF = 26.97726F; + this.PageHeader.Name = "PageHeader"; + // + // table8 + // + this.table8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table8.Name = "table8"; + this.table8.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow17}); + this.table8.SizeF = new System.Drawing.SizeF(756.9998F, 20.20832F); + // + // tableRow17 + // + this.tableRow17.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell46, + this.tableCell47, + this.tableCell20, + this.tableCell48, + this.tableCell94, + this.tableCell49, + this.tableCell50, + this.tableCell51, + this.tableCell52, + this.tableCell53, + this.tableCell54}); + this.tableRow17.Name = "tableRow17"; + this.tableRow17.Weight = 0.8083322803021562D; + // + // tableCell46 + // + this.tableCell46.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell46.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.tableCell46.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell46.Name = "tableCell46"; + this.tableCell46.StylePriority.UseBorderDashStyle = false; + this.tableCell46.StylePriority.UseBorders = false; + this.tableCell46.StylePriority.UseFont = false; + this.tableCell46.StylePriority.UseTextAlignment = false; + this.tableCell46.Text = "tableCell46"; + this.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell46.Weight = 0.22870094914914527D; + // + // tableCell47 + // + this.tableCell47.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell47.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.Products.ProductNumber")}); + this.tableCell47.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell47.Name = "tableCell47"; + this.tableCell47.StylePriority.UseBorderDashStyle = false; + this.tableCell47.StylePriority.UseBorders = false; + this.tableCell47.StylePriority.UseFont = false; + this.tableCell47.StylePriority.UseTextAlignment = false; + this.tableCell47.Text = "tableCell47"; + this.tableCell47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell47.Weight = 0.28525727313354138D; + // + // tableCell20 + // + this.tableCell20.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell20.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorderDashStyle = false; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.Weight = 0.025801285413718171D; + // + // tableCell48 + // + this.tableCell48.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell48.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell48.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.tableCell48.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell48.Name = "tableCell48"; + this.tableCell48.StylePriority.UseBorderDashStyle = false; + this.tableCell48.StylePriority.UseBorders = false; + this.tableCell48.StylePriority.UseFont = false; + this.tableCell48.StylePriority.UseTextAlignment = false; + this.tableCell48.Text = "tableCell48"; + this.tableCell48.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell48.Weight = 0.53836550888923562D; + // + // tableCell94 + // + this.tableCell94.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell94.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell94.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT")}); + this.tableCell94.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell94.Name = "tableCell94"; + this.tableCell94.StylePriority.UseBorderDashStyle = false; + this.tableCell94.StylePriority.UseBorders = false; + this.tableCell94.StylePriority.UseFont = false; + this.tableCell94.StylePriority.UseTextAlignment = false; + this.tableCell94.Text = "tableCell94"; + this.tableCell94.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell94.Weight = 0.19870739205619864D; + // + // tableCell49 + // + this.tableCell49.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell49.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.tableCell49.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell49.Name = "tableCell49"; + this.tableCell49.StylePriority.UseBorderDashStyle = false; + this.tableCell49.StylePriority.UseBorders = false; + this.tableCell49.StylePriority.UseFont = false; + this.tableCell49.StylePriority.UseTextAlignment = false; + this.tableCell49.Text = "tableCell49"; + this.tableCell49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell49.Weight = 0.10069317377783542D; + // + // tableCell50 + // + this.tableCell50.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell50.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.tableCell50.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell50.Name = "tableCell50"; + this.tableCell50.StylePriority.UseBorderDashStyle = false; + this.tableCell50.StylePriority.UseBorders = false; + this.tableCell50.StylePriority.UseFont = false; + this.tableCell50.StylePriority.UseTextAlignment = false; + this.tableCell50.Text = "tableCell50"; + this.tableCell50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell50.Weight = 0.26432662140805779D; + // + // tableCell51 + // + this.tableCell51.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell51.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.tableCell51.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell51.Name = "tableCell51"; + this.tableCell51.StylePriority.UseBorderDashStyle = false; + this.tableCell51.StylePriority.UseBorders = false; + this.tableCell51.StylePriority.UseFont = false; + this.tableCell51.StylePriority.UseTextAlignment = false; + this.tableCell51.Text = "tableCell51"; + this.tableCell51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell51.Weight = 0.32558824221469035D; + // + // tableCell52 + // + this.tableCell52.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell52.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell52.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.tableCell52.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell52.Name = "tableCell52"; + this.tableCell52.StylePriority.UseBorderDashStyle = false; + this.tableCell52.StylePriority.UseBorders = false; + this.tableCell52.StylePriority.UseFont = false; + this.tableCell52.StylePriority.UseTextAlignment = false; + this.tableCell52.Text = "tableCell52"; + this.tableCell52.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell52.Weight = 0.18827201965888288D; + // + // tableCell53 + // + this.tableCell53.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell53.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.tableCell53.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell53.Name = "tableCell53"; + this.tableCell53.StylePriority.UseBorderDashStyle = false; + this.tableCell53.StylePriority.UseBorders = false; + this.tableCell53.StylePriority.UseFont = false; + this.tableCell53.StylePriority.UseTextAlignment = false; + this.tableCell53.Text = "tableCell53"; + this.tableCell53.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell53.Weight = 0.280109792635409D; + // + // tableCell54 + // + this.tableCell54.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.tableCell54.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell54.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.tableCell54.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell54.Name = "tableCell54"; + this.tableCell54.StylePriority.UseBorderDashStyle = false; + this.tableCell54.StylePriority.UseBorders = false; + this.tableCell54.StylePriority.UseFont = false; + this.tableCell54.StylePriority.UseTextAlignment = false; + this.tableCell54.Text = "tableCell54"; + this.tableCell54.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.tableCell54.Weight = 0.36482712534907447D; + // + // table7 + // + this.table7.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table7.LocationFloat = new DevExpress.Utils.PointFloat(348.1702F, 9.999974F); + this.table7.Name = "table7"; + this.table7.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow14, + this.tableRow16, + this.tableRow15}); + this.table7.SizeF = new System.Drawing.SizeF(194.0002F, 43.67857F); + this.table7.StylePriority.UseFont = false; + // + // table6 + // + this.table6.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table6.LocationFloat = new DevExpress.Utils.PointFloat(563.8506F, 9.977234F); + this.table6.Name = "table6"; + this.table6.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow13}); + this.table6.SizeF = new System.Drawing.SizeF(193.1492F, 18.02275F); + this.table6.StylePriority.UseFont = false; + // + // table5 + // + this.table5.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999997F); + this.table5.Name = "table5"; + this.table5.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow12}); + this.table5.SizeF = new System.Drawing.SizeF(348.1702F, 18F); + this.table5.StylePriority.UseFont = false; + // + // line4 + // + this.line4.BorderWidth = 1; + this.line4.LineWidth = 2; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(756.9998F, 9.977234F); + this.line4.StylePriority.UseBorderWidth = false; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal:{0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(647F, 33.67853F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 20F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // tableRow14 + // + this.tableRow14.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell38, + this.tableCell41}); + this.tableRow14.Name = "tableRow14"; + this.tableRow14.Weight = 1D; + // + // tableRow16 + // + this.tableRow16.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell44, + this.tableCell45}); + this.tableRow16.Name = "tableRow16"; + this.tableRow16.Weight = 1D; + // + // tableRow15 + // + this.tableRow15.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell42, + this.tableCell43}); + this.tableRow15.Name = "tableRow15"; + this.tableRow15.Weight = 1.1561290993567472D; + // + // tableCell38 + // + this.tableCell38.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell38.Name = "tableCell38"; + this.tableCell38.StylePriority.UseFont = false; + this.tableCell38.Text = " Tel:"; + this.tableCell38.Weight = 0.62017762592670023D; + // + // tableCell41 + // + this.tableCell41.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell41.Name = "tableCell41"; + this.tableCell41.StylePriority.UseFont = false; + this.tableCell41.StylePriority.UseTextAlignment = false; + this.tableCell41.Text = "+36-1-409-5140"; + this.tableCell41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell41.Weight = 2.3048223740733D; + // + // tableCell44 + // + this.tableCell44.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell44.Name = "tableCell44"; + this.tableCell44.StylePriority.UseFont = false; + this.tableCell44.Text = " Fax:"; + this.tableCell44.Weight = 0.62017762592670023D; + // + // tableCell45 + // + this.tableCell45.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell45.Name = "tableCell45"; + this.tableCell45.StylePriority.UseFont = false; + this.tableCell45.StylePriority.UseTextAlignment = false; + this.tableCell45.Text = "+36-1-409-5141"; + this.tableCell45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell45.Weight = 2.3048223740733D; + // + // tableCell42 + // + this.tableCell42.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell42.Name = "tableCell42"; + this.tableCell42.StylePriority.UseFont = false; + this.tableCell42.Text = " Email:"; + this.tableCell42.Weight = 0.62017762592670023D; + // + // tableCell43 + // + this.tableCell43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Email")}); + this.tableCell43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell43.Name = "tableCell43"; + this.tableCell43.StylePriority.UseFont = false; + this.tableCell43.StylePriority.UseTextAlignment = false; + this.tableCell43.Text = "tableCell43"; + this.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + this.tableCell43.Weight = 2.3048223740733D; + // + // tableRow13 + // + this.tableRow13.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell39, + this.tableCell40}); + this.tableRow13.Name = "tableRow13"; + this.tableRow13.Weight = 1.3022874594168317D; + // + // tableCell39 + // + this.tableCell39.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell39.Name = "tableCell39"; + this.tableCell39.StylePriority.UseFont = false; + this.tableCell39.StylePriority.UseTextAlignment = false; + this.tableCell39.Text = " Adószám:"; + this.tableCell39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell39.Weight = 0.60464395260247983D; + // + // tableCell40 + // + this.tableCell40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.VATNumber")}); + this.tableCell40.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell40.Name = "tableCell40"; + this.tableCell40.StylePriority.UseFont = false; + this.tableCell40.StylePriority.UseTextAlignment = false; + this.tableCell40.Text = "tableCell40"; + this.tableCell40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell40.Weight = 1.3611826355629155D; + // + // tableRow12 + // + this.tableRow12.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell36, + this.tableCell59, + this.tableCell37}); + this.tableRow12.Name = "tableRow12"; + this.tableRow12.Weight = 1.3006456862563902D; + // + // tableCell36 + // + this.tableCell36.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell36.Name = "tableCell36"; + this.tableCell36.StylePriority.UseFont = false; + this.tableCell36.StylePriority.UseTextAlignment = false; + this.tableCell36.Text = " Bank:"; + this.tableCell36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell36.Weight = 0.42552134734826691D; + // + // tableCell59 + // + this.tableCell59.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.LiquidAssests.ShortName")}); + this.tableCell59.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell59.Name = "tableCell59"; + this.tableCell59.StylePriority.UseFont = false; + this.tableCell59.StylePriority.UseTextAlignment = false; + this.tableCell59.Text = "tableCell59"; + this.tableCell59.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell59.Weight = 0.61219644919851279D; + // + // tableCell37 + // + this.tableCell37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.AccountNumber")}); + this.tableCell37.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell37.Name = "tableCell37"; + this.tableCell37.StylePriority.UseFont = false; + this.tableCell37.StylePriority.UseTextAlignment = false; + this.tableCell37.Text = "tableCell37"; + this.tableCell37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell37.Weight = 2.2545900952989237D; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.ZipPostal")}); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(343.789F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(52.14746F, 21.52557F); + this.label16.Text = "label16"; + this.label16.Visible = false; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.City")}); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(343.789F, 37.1795F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(52.14743F, 21.52557F); + this.label17.Text = "label17"; + this.label17.Visible = false; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.City")}); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(277.0833F, 0F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(52.14746F, 21.52557F); + this.label15.Text = "label15"; + this.label15.Visible = false; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.ZipPostal")}); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(208.5898F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(52.14746F, 21.52557F); + this.label14.Text = "label14"; + this.label14.Visible = false; + // + // table12 + // + this.table12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.52557F); + this.table12.Name = "table12"; + this.table12.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow30, + this.tableRow31, + this.tableRow32}); + this.table12.SizeF = new System.Drawing.SizeF(312.0001F, 55.76923F); + this.table12.StylePriority.UseFont = false; + // + // table11 + // + this.table11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table11.LocationFloat = new DevExpress.Utils.PointFloat(454.9614F, 21.52557F); + this.table11.Name = "table11"; + this.table11.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow27, + this.tableRow28, + this.tableRow29}); + this.table11.SizeF = new System.Drawing.SizeF(302.0386F, 55.76923F); + this.table11.StylePriority.UseFont = false; + // + // table4 + // + this.table4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(454.9614F, 77.2948F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow10, + this.tableRow11}); + this.table4.SizeF = new System.Drawing.SizeF(302.0385F, 74.35899F); + this.table4.StylePriority.UseFont = false; + // + // table3 + // + this.table3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 77.29479F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow5, + this.tableRow19, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(312.0001F, 55.76923F); + this.table3.StylePriority.UseFont = false; + // + // table1 + // + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 151.6538F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2}); + this.table1.SizeF = new System.Drawing.SizeF(756.9998F, 50.00002F); + this.table1.StylePriority.UseBorders = false; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(454.9614F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(137.5F, 21.52557F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő adatai:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(166.6666F, 21.52557F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számlakibocsátó adatai:"; + // + // tableRow30 + // + this.tableRow30.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell57}); + this.tableRow30.Name = "tableRow30"; + this.tableRow30.Weight = 0.74358978271484377D; + // + // tableRow31 + // + this.tableRow31.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell66}); + this.tableRow31.Name = "tableRow31"; + this.tableRow31.Weight = 0.74358978271484377D; + // + // tableRow32 + // + this.tableRow32.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell93}); + this.tableRow32.Name = "tableRow32"; + this.tableRow32.Weight = 0.74358978271484377D; + // + // tableCell57 + // + this.tableCell57.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.FullName")}); + this.tableCell57.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell57.Name = "tableCell57"; + this.tableCell57.StylePriority.UseFont = false; + this.tableCell57.StylePriority.UseTextAlignment = false; + this.tableCell57.Text = "tableCell57"; + this.tableCell57.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell57.Weight = 2.5032049560546881D; + // + // tableCell66 + // + this.tableCell66.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell66.Name = "tableCell66"; + this.tableCell66.Scripts.OnBeforePrint = "tableCell66_BeforePrint"; + this.tableCell66.StylePriority.UseFont = false; + this.tableCell66.StylePriority.UseTextAlignment = false; + this.tableCell66.Text = "Ir.sz és város bekötve"; + this.tableCell66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell66.Weight = 2.5032049560546881D; + // + // tableCell93 + // + this.tableCell93.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CustomersFrom.Address1.Street")}); + this.tableCell93.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell93.Name = "tableCell93"; + this.tableCell93.StylePriority.UseFont = false; + this.tableCell93.StylePriority.UseTextAlignment = false; + this.tableCell93.Text = "tableCell93"; + this.tableCell93.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell93.Weight = 2.5032049560546881D; + // + // tableRow27 + // + this.tableRow27.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell56}); + this.tableRow27.Name = "tableRow27"; + this.tableRow27.Weight = 0.74358978271484377D; + // + // tableRow28 + // + this.tableRow28.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell64}); + this.tableRow28.Name = "tableRow28"; + this.tableRow28.Weight = 0.74358978271484377D; + // + // tableRow29 + // + this.tableRow29.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell92}); + this.tableRow29.Name = "tableRow29"; + this.tableRow29.Weight = 0.74358978271484377D; + // + // tableCell56 + // + this.tableCell56.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.FullName")}); + this.tableCell56.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell56.Name = "tableCell56"; + this.tableCell56.StylePriority.UseFont = false; + this.tableCell56.StylePriority.UseTextAlignment = false; + this.tableCell56.Text = "tableCell56"; + this.tableCell56.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell56.Weight = 2.5032049560546881D; + // + // tableCell64 + // + this.tableCell64.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell64.Name = "tableCell64"; + this.tableCell64.Scripts.OnBeforePrint = "tableCell64_BeforePrint"; + this.tableCell64.StylePriority.UseFont = false; + this.tableCell64.StylePriority.UseTextAlignment = false; + this.tableCell64.Text = "Ir.sz és város bekötve"; + this.tableCell64.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell64.Weight = 2.5032049560546881D; + // + // tableCell92 + // + this.tableCell92.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.Address1.Street")}); + this.tableCell92.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell92.Name = "tableCell92"; + this.tableCell92.StylePriority.UseFont = false; + this.tableCell92.StylePriority.UseTextAlignment = false; + this.tableCell92.Text = "tableCell92"; + this.tableCell92.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell92.Weight = 2.5032049560546881D; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell28, + this.tableCell29}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 0.74358978271484377D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell30, + this.tableCell31}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 0.74358978271484377D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell32, + this.tableCell33}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 0.74358978271484377D; + // + // tableRow11 + // + this.tableRow11.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell34, + this.tableCell35}); + this.tableRow11.Name = "tableRow11"; + this.tableRow11.Weight = 0.74358978271484377D; + // + // tableCell28 + // + this.tableCell28.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell28.Name = "tableCell28"; + this.tableCell28.StylePriority.UseFont = false; + this.tableCell28.StylePriority.UseTextAlignment = false; + this.tableCell28.Text = "Ügyfélszám:"; + this.tableCell28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell28.Weight = 0.87757804839512366D; + // + // tableCell29 + // + this.tableCell29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.tableCell29.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell29.Name = "tableCell29"; + this.tableCell29.StylePriority.UseFont = false; + this.tableCell29.StylePriority.UseTextAlignment = false; + this.tableCell29.Text = "tableCell29"; + this.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell29.Weight = 1.6256269076595642D; + // + // tableCell30 + // + this.tableCell30.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell30.Name = "tableCell30"; + this.tableCell30.StylePriority.UseFont = false; + this.tableCell30.StylePriority.UseTextAlignment = false; + this.tableCell30.Text = "Ügyintéző:"; + this.tableCell30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell30.Weight = 0.87757857352270907D; + // + // tableCell31 + // + this.tableCell31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.Contacts.DisplayNamePostal")}); + this.tableCell31.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell31.Name = "tableCell31"; + this.tableCell31.StylePriority.UseFont = false; + this.tableCell31.StylePriority.UseTextAlignment = false; + this.tableCell31.Text = "tableCell31"; + this.tableCell31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell31.Weight = 1.6256263825319788D; + // + // tableCell32 + // + this.tableCell32.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell32.Name = "tableCell32"; + this.tableCell32.StylePriority.UseFont = false; + this.tableCell32.StylePriority.UseTextAlignment = false; + this.tableCell32.Text = "Vevői hiv. szám:"; + this.tableCell32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell32.Weight = 0.87757857352270907D; + // + // tableCell33 + // + this.tableCell33.BackColor = System.Drawing.Color.Transparent; + this.tableCell33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OrderInRows.OrderInHeader.CustomersRefNumber")}); + this.tableCell33.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell33.Name = "tableCell33"; + this.tableCell33.StylePriority.UseBackColor = false; + this.tableCell33.StylePriority.UseFont = false; + this.tableCell33.StylePriority.UseTextAlignment = false; + this.tableCell33.Text = "tableCell33"; + this.tableCell33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell33.Weight = 1.6256263825319788D; + // + // tableCell34 + // + this.tableCell34.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell34.Name = "tableCell34"; + this.tableCell34.StylePriority.UseFont = false; + this.tableCell34.StylePriority.UseTextAlignment = false; + this.tableCell34.Text = "Adószám:"; + this.tableCell34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell34.Weight = 0.87757857352270907D; + // + // tableCell35 + // + this.tableCell35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.VATNumber")}); + this.tableCell35.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell35.Name = "tableCell35"; + this.tableCell35.StylePriority.UseFont = false; + this.tableCell35.StylePriority.UseTextAlignment = false; + this.tableCell35.Text = "tableCell35"; + this.tableCell35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell35.Weight = 1.6256263825319788D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 0.74358978271484377D; + // + // tableRow19 + // + this.tableRow19.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell55, + this.tableCell67}); + this.tableRow19.Name = "tableRow19"; + this.tableRow19.Weight = 0.74358978271484377D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell26, + this.tableCell27}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 0.74358978271484377D; + // + // tableCell22 + // + this.tableCell22.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseFont = false; + this.tableCell22.StylePriority.UseTextAlignment = false; + this.tableCell22.Text = "Szállítólevél száma:"; + this.tableCell22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell22.Weight = 1.0559870231300368D; + // + // tableCell23 + // + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutRows.DeliveryNoteOutHeader.DocumentNumber")}); + this.tableCell23.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseFont = false; + this.tableCell23.StylePriority.UseTextAlignment = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell23.Weight = 1.4472179329246511D; + // + // tableCell55 + // + this.tableCell55.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell55.Name = "tableCell55"; + this.tableCell55.StylePriority.UseFont = false; + this.tableCell55.StylePriority.UseTextAlignment = false; + this.tableCell55.Text = "Számlázta:"; + this.tableCell55.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell55.Weight = 1.0559870441595054D; + // + // tableCell67 + // + this.tableCell67.BackColor = System.Drawing.Color.Transparent; + this.tableCell67.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.UserCreated.FullName")}); + this.tableCell67.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell67.Name = "tableCell67"; + this.tableCell67.StylePriority.UseBackColor = false; + this.tableCell67.StylePriority.UseFont = false; + this.tableCell67.StylePriority.UseTextAlignment = false; + this.tableCell67.Text = "tableCell67"; + this.tableCell67.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell67.Weight = 1.4472179118951825D; + // + // tableCell26 + // + this.tableCell26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell26.Name = "tableCell26"; + this.tableCell26.StylePriority.UseFont = false; + this.tableCell26.StylePriority.UseTextAlignment = false; + this.tableCell26.Text = "Projektszám:"; + this.tableCell26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell26.Weight = 1.0559870441595054D; + // + // tableCell27 + // + this.tableCell27.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell27.Name = "tableCell27"; + this.tableCell27.StylePriority.UseFont = false; + this.tableCell27.StylePriority.UseTextAlignment = false; + this.tableCell27.Text = "[JobNumberObjects.Name]"; + this.tableCell27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell27.Weight = 1.4472179118951825D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell5, + this.tableCell3, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell6, + this.tableCell7, + this.tableCell8, + this.tableCell9, + this.tableCell10}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Számlaszám:"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.60000004460261835D; + // + // tableCell2 + // + this.tableCell2.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell2.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = "Kiállítás dátuma:"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell2.Weight = 0.60000006807768069D; + // + // tableCell5 + // + this.tableCell5.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.StylePriority.UseFont = false; + this.tableCell5.StylePriority.UseTextAlignment = false; + this.tableCell5.Text = "Teljesítés dátuma:"; + this.tableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell5.Weight = 0.60000006807768069D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseFont = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "Fizetési határidő:"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.60000006807768058D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = "Fizetési mód:"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell4.Weight = 0.59999975116433968D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.tableCell6.Font = new System.Drawing.Font("Arial", 11.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.StylePriority.UseFont = false; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = "tableCell6"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell6.Weight = 0.60000004460261835D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.tableCell7.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.StylePriority.UseFont = false; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = "tableCell7"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell7.Weight = 0.60000006807768069D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.tableCell8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.StylePriority.UseFont = false; + this.tableCell8.StylePriority.UseTextAlignment = false; + this.tableCell8.Text = "tableCell8"; + this.tableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell8.Weight = 0.60000006807768069D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.tableCell9.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.StylePriority.UseFont = false; + this.tableCell9.StylePriority.UseTextAlignment = false; + this.tableCell9.Text = "tableCell9"; + this.tableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell9.Weight = 0.60000006807768058D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.tableCell10.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.StylePriority.UseFont = false; + this.tableCell10.StylePriority.UseTextAlignment = false; + this.tableCell10.Text = "tableCell10"; + this.tableCell10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell10.Weight = 0.59999975116433968D; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.IsProforma")}); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(225.6944F, 65.97222F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label13.Text = "label13"; + this.label13.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "InvoiceHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(546.9615F, 23.79166F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(210.0385F, 79.64882F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.StretchImage; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label1.Font = new System.Drawing.Font("Arial", 18F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 114.8988F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(757F, 33.00001F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(185.4167F, 158.5242F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(48.95836F, 18F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "HUF"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.PayMode")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 239.5833F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label10.Text = "label10"; + this.label10.Visible = false; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(5.224323F, 246.5621F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.Scripts.OnBeforePrint = "label8_BeforePrint"; + this.label8.SizeF = new System.Drawing.SizeF(438.5591F, 18.00003F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Késedelmes teljesítés esetén 20% késedelmi kamatot számítunk fel."; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.TotalBruttoHUF", "{0:#,#}")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(658.3891F, 158.5242F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(88.61084F, 23F); + this.label7.Text = "label7"; + this.label7.Visible = false; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(5.224387F, 140.5241F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.Scripts.OnBeforePrint = "label20_BeforePrint"; + this.label20.SizeF = new System.Drawing.SizeF(741.7756F, 18.00008F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Kérjük, hogy az összeget:"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.LiquidAssests.ShortName")}); + this.label11.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(320.7056F, 158.5242F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(86.3002F, 18F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "SWIFT kód: [InvoiceHeader.BankInformation.LiquidAssests.ShortName]"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label11.Visible = false; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.BankInformation.AccountNumber")}); + this.label4.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(407.0059F, 158.5242F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(235.3654F, 17.99997F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.label4.Visible = false; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial Narrow", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(712.5057F, 215.6944F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(44.49408F, 18F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "HUF"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label19.Visible = false; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(4.480176F, 197.6944F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.Scripts.OnBeforePrint = "label18_BeforePrint"; + this.label18.SizeF = new System.Drawing.SizeF(752.5197F, 18.00003F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(66.66666F, 13.54167F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.Text = "label5"; + this.label5.Visible = false; + // + // table13 + // + this.table13.LocationFloat = new DevExpress.Utils.PointFloat(352.9616F, 0F); + this.table13.Name = "table13"; + this.table13.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow18}); + this.table13.SizeF = new System.Drawing.SizeF(404.0384F, 25F); + // + // Invoice_subrep + // + this.Invoice_subrep.LocationFloat = new DevExpress.Utils.PointFloat(0F, 46.77084F); + this.Invoice_subrep.Name = "Invoice_subrep"; + this.Invoice_subrep.ReportSourceUrl = "Vevői számla magyar nyelvű HUF (alriport)"; + this.Invoice_subrep.Scripts.OnBeforePrint = "Invoice_subrep_BeforePrint"; + this.Invoice_subrep.SizeF = new System.Drawing.SizeF(756.9998F, 76.81946F); + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(5.224339F, 228.5621F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(342.9459F, 18.00002F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "Lenstar Kft. Általános értékesítési feltételei szerint."; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table10 + // + this.table10.LocationFloat = new DevExpress.Utils.PointFloat(5.224339F, 264.5622F); + this.table10.Name = "table10"; + this.table10.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow20, + this.tableRow21}); + this.table10.SizeF = new System.Drawing.SizeF(741.7757F, 68.75F); + // + // tableRow18 + // + this.tableRow18.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell60, + this.tableCell61, + this.tableCell95, + this.tableCell63, + this.tableCell62}); + this.tableRow18.Name = "tableRow18"; + this.tableRow18.Weight = 1D; + // + // tableCell60 + // + this.tableCell60.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell60.Name = "tableCell60"; + this.tableCell60.StylePriority.UseFont = false; + this.tableCell60.StylePriority.UseTextAlignment = false; + this.tableCell60.Text = "Összesen:"; + this.tableCell60.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell60.Weight = 0.72141165676188646D; + // + // tableCell61 + // + this.tableCell61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF")}); + this.tableCell61.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell61.Name = "tableCell61"; + this.tableCell61.StylePriority.UseFont = false; + this.tableCell61.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell61.Summary = summary1; + this.tableCell61.Text = "tableCell61"; + this.tableCell61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell61.Weight = 0.69903462433033381D; + // + // tableCell95 + // + this.tableCell95.Name = "tableCell95"; + this.tableCell95.Weight = 0.40421801009303449D; + // + // tableCell63 + // + this.tableCell63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF")}); + this.tableCell63.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell63.Name = "tableCell63"; + this.tableCell63.StylePriority.UseFont = false; + this.tableCell63.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,#}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell63.Summary = summary2; + this.tableCell63.Text = "tableCell63"; + this.tableCell63.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell63.Weight = 0.60139187769701152D; + // + // tableCell62 + // + this.tableCell62.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF")}); + this.tableCell62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell62.Name = "tableCell62"; + this.tableCell62.StylePriority.UseFont = false; + this.tableCell62.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,#}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.tableCell62.Summary = summary3; + this.tableCell62.Text = "tableCell62"; + this.tableCell62.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell62.Weight = 0.78328302217025D; + // + // tableRow20 + // + this.tableRow20.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell58}); + this.tableRow20.Name = "tableRow20"; + this.tableRow20.Weight = 1D; + // + // tableRow21 + // + this.tableRow21.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell65}); + this.tableRow21.Name = "tableRow21"; + this.tableRow21.Weight = 1.7500003356933598D; + // + // tableCell58 + // + this.tableCell58.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell58.Name = "tableCell58"; + this.tableCell58.StylePriority.UseFont = false; + this.tableCell58.StylePriority.UseTextAlignment = false; + this.tableCell58.Text = " Megjegyzés:"; + this.tableCell58.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell58.Weight = 3D; + // + // tableCell65 + // + this.tableCell65.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.tableCell65.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell65.Multiline = true; + this.tableCell65.Name = "tableCell65"; + this.tableCell65.StylePriority.UseFont = false; + this.tableCell65.StylePriority.UseTextAlignment = false; + this.tableCell65.Text = "tableCell65"; + this.tableCell65.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell65.Weight = 3D; + // + // line2 + // + this.line2.BorderWidth = 1; + this.line2.LineWidth = 2; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(756.9998F, 9.977234F); + this.line2.StylePriority.UseBorderWidth = false; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.977228F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3}); + this.table2.SizeF = new System.Drawing.SizeF(756.9998F, 15.00003F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 24.97726F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(756.9998F, 2F); + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell11, + this.tableCell18, + this.tableCell14, + this.tableCell12, + this.tableCell15, + this.tableCell19, + this.tableCell13, + this.tableCell16}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 0.60000024414047592D; + // + // tableCell17 + // + this.tableCell17.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseFont = false; + this.tableCell17.StylePriority.UseTextAlignment = false; + this.tableCell17.Text = "VTSZ/SZJ"; + this.tableCell17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell17.Weight = 0.22944356624760834D; + // + // tableCell11 + // + this.tableCell11.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseFont = false; + this.tableCell11.StylePriority.UseTextAlignment = false; + this.tableCell11.Text = "CIKKSZÁM"; + this.tableCell11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell11.Weight = 0.31031599517138814D; + // + // tableCell18 + // + this.tableCell18.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseFont = false; + this.tableCell18.StylePriority.UseTextAlignment = false; + this.tableCell18.Text = "MEGNEVEZÉS"; + this.tableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell18.Weight = 0.59918294907620429D; + // + // tableCell14 + // + this.tableCell14.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseFont = false; + this.tableCell14.StylePriority.UseTextAlignment = false; + this.tableCell14.Text = "MENNYISÉG"; + this.tableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell14.Weight = 0.27647226922021612D; + // + // tableCell12 + // + this.tableCell12.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseFont = false; + this.tableCell12.StylePriority.UseTextAlignment = false; + this.tableCell12.Text = "EGYSÉGÁR"; + this.tableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell12.Weight = 0.25381864311449537D; + // + // tableCell15 + // + this.tableCell15.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseFont = false; + this.tableCell15.StylePriority.UseTextAlignment = false; + this.tableCell15.Text = "NETTÓ ÉRTÉK"; + this.tableCell15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell15.Weight = 0.33101835258291257D; + // + // tableCell19 + // + this.tableCell19.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseFont = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = "ÁFA"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell19.Weight = 0.19141180904465749D; + // + // tableCell13 + // + this.tableCell13.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseFont = false; + this.tableCell13.StylePriority.UseTextAlignment = false; + this.tableCell13.Text = "ÁFA ÉRTÉKE"; + this.tableCell13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell13.Weight = 0.28478046774674576D; + // + // tableCell16 + // + this.tableCell16.Font = new System.Drawing.Font("Arial", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.StylePriority.UseTextAlignment = false; + this.tableCell16.Text = "BRUTTÓ ÉRTÉK"; + this.tableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + this.tableCell16.Weight = 0.37091203499322767D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.PageHeader}); + this.DisplayName = "Vevői számla magyar nyelvű HUF"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(35, 35, 152, 26); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table8)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table7)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table6)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table5)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table12)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table11)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table13)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table10)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - ECO Szolg.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - ECO Szolg.repx new file mode 100644 index 0000000..b6ca22c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - ECO Szolg.repx @@ -0,0 +1,1408 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel Document; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAIgYAAAxGAGkAbAB0AGUAcgBCBgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgBEBgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcARgYAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBIBgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUASQYAAAGfDGRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dDw+Q29ubmVjdEluZm8uVGV4dCB0aGVuIGxhYmVsMS5UZXh0PSJTVE9STsOTIFNaw4FNTEEiD" + + "QpFbmQgU3ViDQoNClByaXZhdGUgU3ViIGxhYmVsMThfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzI" + + "E9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNC" + + "mlmIERvY3VtZW50TnVtYmVyLlRleHQ9IiIgdGhlbiBsYWJlbDE4LlRleHQ9IlByb2Zvcm1hc3rDoW0iD" + + "QoNCkVuZCBTdWINCg0KUHJpdmF0ZSBTdWIgRG9jdW1lbnRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyI" + + "EFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJnc" + + "ykNCmlmIERvY3VtZW50TnVtYmVyLlRleHQ9IiIgdGhlbiBEb2N1bWVudC5UZXh0PWxhYmVsNDkuVGV4d" + + "A0KaWYgRG9jdW1lbnROdW1iZXIuVGV4dDw+IiIgdGhlbiBEb2N1bWVudC5UZXh0PURvY3VtZW50TnVtY" + + "mVyLlRleHQNCg0KRW5kIFN1Yg0KDQpQcml2YXRlIFN1YiBsYWJlbDUwX0JlZm9yZVByaW50KEJ5VmFsI" + + "HNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFd" + + "mVudEFyZ3MpDQppZiBsYWJlbDUwLlRleHQ9IiIgdGhlbiBsYWJlbDQ4LlZpc2libGU9RmFsc2UNCmlmI" + + "GxhYmVsNTAuVGV4dD0iIiB0aGVuIGxhYmVsNTAuVmlzaWJsZT1GYWxzZQ0KDQpFbmQgU3ViDQoNCg0KD" + + "QpQcml2YXRlIFN1YiBsYWJlbDYzX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5V" + + "mFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQppZiBsYWJlbDYzL" + + "lRleHQ9IiIgdGhlbiBsYWJlbDYyLlZpc2libGU9RmFsc2UNCmlmIGxhYmVsNjMuVGV4dD0iIiB0aGVuI" + + "GxhYmVsNjMuVmlzaWJsZT1GYWxzZQ0KDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZva" + + "WNlUm93cwEAAQABAAABG0tpbWVuxZEgc3rDoW1sYSAtIEVDTyBTem9sZw=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.Document = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("SumPriceBruttoHUF", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label30, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.Document, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29, + this.label48, + this.label50, + this.label49, + this.DocumentNumber}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 341.7499F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(274.9999F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(44.83334F, 17.79162F); + this.label31.Text = "label31"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(85.99988F, 17.79169F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(90F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(38.54161F, 17.79169F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 104.5242F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 104.5242F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.Scripts.OnBeforePrint = "label63_BeforePrint"; + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 215.4586F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(0F, 138.5417F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(100F, 159.4584F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 187.5834F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 204.3334F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 204.3334F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "InvoiceHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(209F, 56F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.AutoSize; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label30.FormattingRules.Add(this.Stornó); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 178.0417F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(116.1669F, 19.9583F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "számla stornója"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.ConnectInfo.FormattingRules.Add(this.Stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 178.0417F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.StylePriority.UseTextAlignment = false; + this.ConnectInfo.Text = "ConnectInfo"; + this.ConnectInfo.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(210.0417F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(527.9583F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33334F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 129.4168F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24998F, 129.4168F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 152.4168F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152.4168F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.04155F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.Scripts.OnBeforePrint = "label18_BeforePrint"; + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(121.8749F, 33.41666F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 242.0834F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Document + // + this.Document.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.Document.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.Document.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.Document.Name = "Document"; + this.Document.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Document.Scripts.OnBeforePrint = "Document_BeforePrint"; + this.Document.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.Document.StylePriority.UseBorders = false; + this.Document.StylePriority.UseFont = false; + this.Document.StylePriority.UseTextAlignment = false; + this.Document.Text = "Document"; + this.Document.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083379F, 302.0833F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(83.37502F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 302.0832F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 302.0831F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 302.0832F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(103.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 339.6666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041662F, 106.4167F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label48 + // + this.label48.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(0F, 175.4168F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label48.StylePriority.UseFont = false; + this.label48.Text = "Megjegyzés"; + // + // label50 + // + this.label50.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DescriptionHeader")}); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(103.6249F, 175.4168F); + this.label50.Multiline = true; + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.Scripts.OnBeforePrint = "label50_BeforePrint"; + this.label50.SizeF = new System.Drawing.SizeF(344.7917F, 23.00002F); + this.label50.Text = "label50"; + // + // label49 + // + this.label49.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumberProforma")}); + this.label49.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(369.5416F, 45.91665F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.Scripts.OnBeforePrint = "DocumentNumber_BeforePrint"; + this.label49.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.label49.StylePriority.UseBorders = false; + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label49.Visible = false; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(251.0417F, 45.91665F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.Scripts.OnBeforePrint = "Document_BeforePrint"; + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.DocumentNumber.Visible = false; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Kimenő számla - ECO Szolg"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - MOL Controll.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - MOL Controll.repx new file mode 100644 index 0000000..573e417 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Kimenő számla - MOL Controll.repx @@ -0,0 +1,1407 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel Document; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAaAUAAAxGAGkAbAB0AGUAcgCIBQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgCKBQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcAjAUAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQCOBQAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUAjwUAAAHlCmRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJQUsOTQkFTWsOBTUxBIg0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dDw+Q29ubmVjdEluZm8uVGV4dCB0aGVuIGxhYmVsMS5UZXh0PSJTVE9STsOTIFNaw4FNTEEiD" + + "QpFbmQgU3ViDQoNCg0KUHJpdmF0ZSBTdWIgRG9jdW1lbnRfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyI" + + "EFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJnc" + + "ykNCmlmIERvY3VtZW50TnVtYmVyLlRleHQ9IiIgdGhlbiBEb2N1bWVudC5UZXh0PWxhYmVsNDkuVGV4d" + + "A0KaWYgRG9jdW1lbnROdW1iZXIuVGV4dDw+IiIgdGhlbiBEb2N1bWVudC5UZXh0PURvY3VtZW50TnVtY" + + "mVyLlRleHQNCkVuZCBTdWINCg0KDQpQcml2YXRlIFN1YiBsYWJlbDUwX0JlZm9yZVByaW50KEJ5VmFsI" + + "HNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFd" + + "mVudEFyZ3MpDQppZiBsYWJlbDUxLlRleHQ9IiIgdGhlbiBsYWJlbDUwLlZpc2libGU9RmFsc2UNCmlmI" + + "GxhYmVsNTEuVGV4dD0iIiB0aGVuIGxhYmVsNTEuVmlzaWJsZT1GYWxzZQ0KRW5kIFN1Yg0KDQpQcml2Y" + + "XRlIFN1YiBsYWJlbDYzX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPYmplY3QsIEJ5VmFsIGUgQ" + + "XMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQppZiBsYWJlbDYzLlRleHQ9I" + + "iIgdGhlbiBsYWJlbDYyLlZpc2libGU9RmFsc2UNCmlmIGxhYmVsNjMuVGV4dD0iIiB0aGVuIGxhYmVsN" + + "jIuVmlzaWJsZT1GYWxzZQ0KDQpFbmQgU3ViDQoBHlNJU0J1c2luZXNzLk1vZHVsZS5JbnZvaWNlUm93c" + + "wEAAQABAAABHktpbWVuxZEgc3rDoW1sYSAtIE1PTCBDb250cm9sbA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.Document = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("SumPriceBruttoHUF", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1, + this.label30, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.Document, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29, + this.label50, + this.DocumentNumber, + this.label49, + this.label51}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 363.6249F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(274.9999F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(44.83334F, 17.79162F); + this.label31.Text = "label31"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(85.99988F, 17.79169F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(90F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(38.54161F, 17.79169F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 104.5242F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 104.5242F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.Scripts.OnBeforePrint = "label63_BeforePrint"; + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 215.4586F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(0F, 138.5417F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(100F, 159.4584F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 187.5834F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 204.3334F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 204.3334F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // pictureBox1 + // + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "InvoiceHeader.CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(10F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(102F, 78F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label30.FormattingRules.Add(this.Stornó); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 198F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(116.1669F, 19.9583F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "számla stornója"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.ConnectInfo.FormattingRules.Add(this.Stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 198F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.StylePriority.UseTextAlignment = false; + this.ConnectInfo.Text = "ConnectInfo"; + this.ConnectInfo.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(137.578F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(600.4221F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLA"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 78.91655F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.6251F, 74.91685F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 101.9165F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(252.3198F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 152F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24994F, 152F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 175F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 97.91684F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 152F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2084F, 152F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 175F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 222.9167F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.04155F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(121.875F, 222.9168F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(235.4167F, 222.9166F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 222.9168F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(624.4581F, 222.9167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(517.1665F, 222.9168F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(447.375F, 222.9168F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(0F, 263.9582F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(121.8749F, 33.41666F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(121.875F, 263.9582F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(235.4167F, 263.9584F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(348.9583F, 263.9582F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(447.375F, 263.9582F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(517.1665F, 263.9584F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Document + // + this.Document.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.Document.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.Document.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.Document.LocationFloat = new DevExpress.Utils.PointFloat(624.4581F, 263.9584F); + this.Document.Name = "Document"; + this.Document.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Document.Scripts.OnBeforePrint = "Document_BeforePrint"; + this.Document.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.Document.StylePriority.UseBorders = false; + this.Document.StylePriority.UseFont = false; + this.Document.StylePriority.UseTextAlignment = false; + this.Document.Text = "Document"; + this.Document.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(60.33333F, 323.9583F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(3.041708F, 323.9583F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(235.4167F, 323.9583F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(83.37502F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(318.7917F, 323.9582F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(408.7917F, 323.9581F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(639.9167F, 323.9582F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(103.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(498.7917F, 323.9583F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(542.6251F, 323.9583F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 308.3333F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 359.4583F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 361.5416F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(0F, 129F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6248F, 125.0003F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.4999F, 74.91685F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label50 + // + this.label50.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(0F, 198F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.Scripts.OnBeforePrint = "label50_BeforePrint"; + this.label50.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label50.StylePriority.UseFont = false; + this.label50.Text = "Megjegyzés"; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(253.6247F, 44.58328F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.DocumentNumber.Visible = false; + // + // label49 + // + this.label49.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label49.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumberProforma")}); + this.label49.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(372.1248F, 44.58329F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.label49.StylePriority.UseBorders = false; + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "label49"; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.label49.Visible = false; + // + // label51 + // + this.label51.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DescriptionHeader")}); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 198F); + this.label51.Multiline = true; + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.Suppress; + this.label51.SizeF = new System.Drawing.SizeF(347.375F, 23F); + this.label51.Text = "label51"; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Kimenő számla - MOL Controll"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Rendszer Üzemeltetési napló.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Rendszer Üzemeltetési napló.repx new file mode 100644 index 0000000..b033898 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Molcontrol/Rendszer Üzemeltetési napló.repx @@ -0,0 +1,717 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class RendszerÜzemeltetésiNapló : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRTable table4; + private DevExpress.XtraReports.UI.XRTableRow tableRow8; + private DevExpress.XtraReports.UI.XRTableCell tableCell17; + private DevExpress.XtraReports.UI.XRTableCell tableCell18; + private DevExpress.XtraReports.UI.XRTableRow tableRow9; + private DevExpress.XtraReports.UI.XRTableCell tableCell20; + private DevExpress.XtraReports.UI.XRTableCell tableCell21; + private DevExpress.XtraReports.UI.XRTableRow tableRow10; + private DevExpress.XtraReports.UI.XRTableCell tableCell22; + private DevExpress.XtraReports.UI.XRTableCell tableCell23; + private DevExpress.XtraReports.UI.XRTable table3; + private DevExpress.XtraReports.UI.XRTableRow tableRow6; + private DevExpress.XtraReports.UI.XRTableCell tableCell16; + private DevExpress.XtraReports.UI.XRTableRow tableRow7; + private DevExpress.XtraReports.UI.XRTableCell tableCell19; + private DevExpress.XtraReports.UI.XRTable table2; + private DevExpress.XtraReports.UI.XRTableRow tableRow3; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRTableCell tableCell8; + private DevExpress.XtraReports.UI.XRTableCell tableCell9; + private DevExpress.XtraReports.UI.XRTableRow tableRow4; + private DevExpress.XtraReports.UI.XRTableCell tableCell10; + private DevExpress.XtraReports.UI.XRTableCell tableCell11; + private DevExpress.XtraReports.UI.XRTableCell tableCell12; + private DevExpress.XtraReports.UI.XRTableRow tableRow5; + private DevExpress.XtraReports.UI.XRTableCell tableCell13; + private DevExpress.XtraReports.UI.XRTableCell tableCell14; + private DevExpress.XtraReports.UI.XRTableCell tableCell15; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableRow tableRow2; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell5; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public RendszerÜzemeltetésiNapló() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLk9wZXJhdGlvbmFsTG9nAQABAAEAAAEeUmVuZHN6ZXIgw5x6ZW1lbHRldMOpc2kgbmFwbMOz"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.table4 = new DevExpress.XtraReports.UI.XRTable(); + this.table3 = new DevExpress.XtraReports.UI.XRTable(); + this.table2 = new DevExpress.XtraReports.UI.XRTable(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow8 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow9 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow10 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell17 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell18 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell20 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell21 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell22 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell23 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow6 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow7 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell16 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell19 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow3 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow4 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow5 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell8 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell9 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell10 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell11 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell12 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell13 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell14 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell15 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableRow2 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell5 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table4)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.HeightF = 0F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.Visible = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.Visible = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.Visible = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.HeightF = 0F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.Visible = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.table4, + this.table3, + this.table2, + this.table1}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 352.5705F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageInfo1, + this.pageInfo2, + this.pageBreak1}); + this.GroupFooter1.HeightF = 35.0001F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + // + // label1 + // + this.label1.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(727F, 41F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseBorders = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Rendszer Üzemeltetési napló"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // table4 + // + this.table4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 247.5705F); + this.table4.Name = "table4"; + this.table4.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow8, + this.tableRow9, + this.tableRow10}); + this.table4.SizeF = new System.Drawing.SizeF(727F, 105F); + this.table4.StylePriority.UseTextAlignment = false; + this.table4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table3 + // + this.table3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 177.4583F); + this.table3.Name = "table3"; + this.table3.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow6, + this.tableRow7}); + this.table3.SizeF = new System.Drawing.SizeF(727F, 70.11217F); + this.table3.StylePriority.UseTextAlignment = false; + this.table3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table2 + // + this.table2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 102.4583F); + this.table2.Name = "table2"; + this.table2.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow3, + this.tableRow4, + this.tableRow5}); + this.table2.SizeF = new System.Drawing.SizeF(727F, 75F); + this.table2.StylePriority.UseTextAlignment = false; + this.table2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table1 + // + this.table1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 41F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1, + this.tableRow2}); + this.table1.SizeF = new System.Drawing.SizeF(727F, 61.45833F); + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // tableRow8 + // + this.tableRow8.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell17, + this.tableCell18}); + this.tableRow8.Name = "tableRow8"; + this.tableRow8.Weight = 1.3999990285244548D; + // + // tableRow9 + // + this.tableRow9.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell20, + this.tableCell21}); + this.tableRow9.Name = "tableRow9"; + this.tableRow9.Weight = 1.3999990285244548D; + // + // tableRow10 + // + this.tableRow10.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell22, + this.tableCell23}); + this.tableRow10.Name = "tableRow10"; + this.tableRow10.Weight = 1.3999989522305638D; + // + // tableCell17 + // + this.tableCell17.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell17.Name = "tableCell17"; + this.tableCell17.StylePriority.UseBorders = false; + this.tableCell17.Text = " Elvégzett munka :"; + this.tableCell17.Weight = 0.598190727391302D; + // + // tableCell18 + // + this.tableCell18.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell18.Name = "tableCell18"; + this.tableCell18.StylePriority.UseBorders = false; + this.tableCell18.Text = "[WorkDescription]"; + this.tableCell18.Weight = 2.4018092726086979D; + // + // tableCell20 + // + this.tableCell20.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell20.Name = "tableCell20"; + this.tableCell20.StylePriority.UseBorders = false; + this.tableCell20.Text = " Felhasznált anyagok :"; + this.tableCell20.Weight = 0.598190727391302D; + // + // tableCell21 + // + this.tableCell21.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkUsedMaterialDescription")}); + this.tableCell21.Name = "tableCell21"; + this.tableCell21.StylePriority.UseBorders = false; + this.tableCell21.Text = "tableCell21"; + this.tableCell21.Weight = 2.4018092726086979D; + // + // tableCell22 + // + this.tableCell22.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell22.Name = "tableCell22"; + this.tableCell22.StylePriority.UseBorders = false; + this.tableCell22.Text = " Egyéb megjegyzések :"; + this.tableCell22.Weight = 0.598190727391302D; + // + // tableCell23 + // + this.tableCell23.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkDescriptionOther")}); + this.tableCell23.Name = "tableCell23"; + this.tableCell23.StylePriority.UseBorders = false; + this.tableCell23.Text = "tableCell23"; + this.tableCell23.Weight = 2.4018092726086979D; + // + // tableRow6 + // + this.tableRow6.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell16}); + this.tableRow6.Name = "tableRow6"; + this.tableRow6.Weight = 1D; + // + // tableRow7 + // + this.tableRow7.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell19}); + this.tableRow7.Name = "tableRow7"; + this.tableRow7.Weight = 1.8044866943359375D; + // + // tableCell16 + // + this.tableCell16.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell16.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell16.Name = "tableCell16"; + this.tableCell16.StylePriority.UseBorders = false; + this.tableCell16.StylePriority.UseFont = false; + this.tableCell16.Text = " ESEMÉNY Leírása :"; + this.tableCell16.Weight = 3D; + // + // tableCell19 + // + this.tableCell19.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell19.Name = "tableCell19"; + this.tableCell19.StylePriority.UseBorders = false; + this.tableCell19.StylePriority.UseTextAlignment = false; + this.tableCell19.Text = " [Description]"; + this.tableCell19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + this.tableCell19.Weight = 3D; + // + // tableRow3 + // + this.tableRow3.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell7, + this.tableCell8, + this.tableCell9}); + this.tableRow3.Name = "tableRow3"; + this.tableRow3.Weight = 1D; + // + // tableRow4 + // + this.tableRow4.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell10, + this.tableCell11, + this.tableCell12}); + this.tableRow4.Name = "tableRow4"; + this.tableRow4.Weight = 1D; + // + // tableRow5 + // + this.tableRow5.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell13, + this.tableCell14, + this.tableCell15}); + this.tableRow5.Name = "tableRow5"; + this.tableRow5.Weight = 1D; + // + // tableCell7 + // + this.tableCell7.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseBorders = false; + this.tableCell7.Text = " Bejegyzést végző :"; + this.tableCell7.Weight = 0.59819060145906755D; + // + // tableCell8 + // + this.tableCell8.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell8.Name = "tableCell8"; + this.tableCell8.StylePriority.UseBorders = false; + this.tableCell8.Text = " [UserCreated.FullName]"; + this.tableCell8.Weight = 1.8144640181382716D; + // + // tableCell9 + // + this.tableCell9.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell9.Name = "tableCell9"; + this.tableCell9.StylePriority.UseBorders = false; + this.tableCell9.Weight = 0.58734538040266071D; + // + // tableCell10 + // + this.tableCell10.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell10.Name = "tableCell10"; + this.tableCell10.StylePriority.UseBorders = false; + this.tableCell10.Text = " Bejegyzés dátuma :"; + this.tableCell10.Weight = 0.59819060145906755D; + // + // tableCell11 + // + this.tableCell11.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell11.Name = "tableCell11"; + this.tableCell11.StylePriority.UseBorders = false; + this.tableCell11.Text = " [ObjectCreated]"; + this.tableCell11.Weight = 1.8144641440705058D; + // + // tableCell12 + // + this.tableCell12.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell12.Name = "tableCell12"; + this.tableCell12.StylePriority.UseBorders = false; + this.tableCell12.Weight = 0.5873452544704264D; + // + // tableCell13 + // + this.tableCell13.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell13.Name = "tableCell13"; + this.tableCell13.StylePriority.UseBorders = false; + this.tableCell13.Text = " Munkafolyamat:"; + this.tableCell13.Weight = 0.59819060145906755D; + // + // tableCell14 + // + this.tableCell14.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell14.Name = "tableCell14"; + this.tableCell14.StylePriority.UseBorders = false; + this.tableCell14.Text = " [WorkState.ShortName]"; + this.tableCell14.Weight = 1.8144637662738028D; + // + // tableCell15 + // + this.tableCell15.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell15.Name = "tableCell15"; + this.tableCell15.StylePriority.UseBorders = false; + this.tableCell15.Weight = 0.58734563226712955D; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableRow2 + // + this.tableRow2.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell4, + this.tableCell5, + this.tableCell6}); + this.tableRow2.Name = "tableRow2"; + this.tableRow2.Weight = 1.4583332824707032D; + // + // tableCell1 + // + this.tableCell1.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.Text = " Munkahely :"; + this.tableCell1.Weight = 0.99437914065186561D; + // + // tableCell2 + // + this.tableCell2.Borders = DevExpress.XtraPrinting.BorderSide.Top; + this.tableCell2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 1.4182754789454737D; + // + // tableCell3 + // + this.tableCell3.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Top | DevExpress.XtraPrinting.BorderSide.Right))); + this.tableCell3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.tableCell3.Name = "tableCell3"; + this.tableCell3.StylePriority.UseBorders = false; + this.tableCell3.StylePriority.UseTextAlignment = false; + this.tableCell3.Text = "tableCell3"; + this.tableCell3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell3.Weight = 0.58734538040266071D; + // + // tableCell4 + // + this.tableCell4.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.Text = " [WorkPlace.ShortName]"; + this.tableCell4.Weight = 0.99437914065186561D; + // + // tableCell5 + // + this.tableCell5.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.FullAddress")}); + this.tableCell5.Name = "tableCell5"; + this.tableCell5.StylePriority.UseBorders = false; + this.tableCell5.Text = "tableCell5"; + this.tableCell5.Weight = 1.4182754789454737D; + // + // tableCell6 + // + this.tableCell6.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Right | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseBorders = false; + this.tableCell6.Weight = 0.58734538040266071D; + // + // pageInfo1 + // + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(10.00002F, 10.00002F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo1.StyleName = "PageInfo"; + // + // pageInfo2 + // + this.pageInfo2.Format = "Oldal : {0} / {1}"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(407.9999F, 10.00002F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.pageInfo2.Visible = false; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 33.0001F); + this.pageBreak1.Name = "pageBreak1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.Transparent; + this.Title.BorderColor = System.Drawing.Color.Black; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.Transparent; + this.FieldCaption.BorderColor = System.Drawing.Color.Black; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.Transparent; + this.PageInfo.BorderColor = System.Drawing.Color.Black; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.Color.Black; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.Transparent; + this.DataField.BorderColor = System.Drawing.Color.Black; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.Color.Black; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // RendszerÜzemeltetésiNapló + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.GroupHeader1, + this.GroupFooter1}); + this.DisplayName = "Rendszer Üzemeltetési napló"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 50, 50); + this.Name = "RendszerÜzemeltetésiNapló"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table4)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table3)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table2)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap subreport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap subreport.repx new file mode 100644 index 0000000..25cc1e8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap subreport.repx @@ -0,0 +1,224 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAuAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAwAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAMgAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQA0AAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUANQAAAAEsU0lTQnVzaW5lc3MuTW9kdWxlLldvcmtTaGVldF9IZWFkZXJfSFJQZXJzb24BAAEAAQAAARJNdW5rYWxhcCBzdWJyZXBvcnQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Times New Roman", 10F); + this.detailBand1.HeightF = 15F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("HRPerson.Job", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), + new DevExpress.XtraReports.UI.GroupField("HRPerson.FullName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.FullName")}); + this.label2.Font = new System.Drawing.Font("Times New Roman", 9F); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(93.75F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(131.2499F, 15F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "label2"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "HRPerson.Job")}); + this.label1.Font = new System.Drawing.Font("Times New Roman", 8F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(93.75F, 15F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "label1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Munkalap subreport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 10F); + this.Margins = new System.Drawing.Printing.Margins(50, 50, 50, 50); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap.repx new file mode 100644 index 0000000..93585e5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Munkalap.repx @@ -0,0 +1,1057 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRPanel panel1; + private DevExpress.XtraReports.UI.XRLabel label55; + private DevExpress.XtraReports.UI.XRLabel label53; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRLabel label52; + private DevExpress.XtraReports.UI.XRLabel label51; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label50; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label49; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label48; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label54; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Garanciális; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA6AAAAAxGAGkAbAB0AGUAcgANAQAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAPAQAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAEQEAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQATAQAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAFAEAAAHlAVByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCkNUeXBlKHNlbmRlciwgWFJTdWJyZXBvcnQpLlJlcG9ydFNvdXJjZS5GaWx0ZXJTdHJpbmc9IldvcmtTaGVldF9IZWFkZXIuT2lkPSciICYgbGFiZWw1NC5UZXh0LlRvU3RyaW5nICYgIiciDQpFbmQgU3ViDQoBI1NJU0J1c2luZXNzLk1vZHVsZS5Xb3JrU2hlZXRfSGVhZGVyAQABAAEAAAEITXVua2FsYXA="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.panel1 = new DevExpress.XtraReports.UI.XRPanel(); + this.label55 = new DevExpress.XtraReports.UI.XRLabel(); + this.label53 = new DevExpress.XtraReports.UI.XRLabel(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.label52 = new DevExpress.XtraReports.UI.XRLabel(); + this.label51 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label50 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label49 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label48 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label54 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Garanciális = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.subreport1, + this.panel1}); + this.detailBand1.HeightF = 1055.292F; + this.detailBand1.Name = "detailBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 50F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(352.0833F, 240.2083F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Munkalap subreport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(194.8365F, 86.04156F); + // + // panel1 + // + this.panel1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.panel1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label55, + this.label53, + this.pictureBox1, + this.label52, + this.label51, + this.line5, + this.label50, + this.line4, + this.label49, + this.line3, + this.line1, + this.label48, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label39, + this.label38, + this.label37, + this.label36, + this.label35, + this.label34, + this.label33, + this.label32, + this.label31, + this.label30, + this.label29, + this.label28, + this.label27, + this.label26, + this.label25, + this.label24, + this.label23, + this.label22, + this.label21, + this.label20, + this.label19, + this.label18, + this.label17, + this.label16, + this.label15, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.label2, + this.label40, + this.label54, + this.label1}); + this.panel1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.panel1.Name = "panel1"; + this.panel1.SizeF = new System.Drawing.SizeF(724F, 1022.292F); + this.panel1.StylePriority.UseBorders = false; + this.panel1.StylePriority.UseBorderWidth = false; + // + // label55 + // + this.label55.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label55.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkPlace.Address.FullAddress")}); + this.label55.LocationFloat = new DevExpress.Utils.PointFloat(0F, 177.2083F); + this.label55.Name = "label55"; + this.label55.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label55.SizeF = new System.Drawing.SizeF(500F, 22.99998F); + this.label55.StylePriority.UseBorders = false; + this.label55.Text = "label55"; + // + // label53 + // + this.label53.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label53.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "UserCreated.FullName")}); + this.label53.Font = new System.Drawing.Font("Times New Roman", 10F); + this.label53.LocationFloat = new DevExpress.Utils.PointFloat(202.13F, 240.2083F); + this.label53.Name = "label53"; + this.label53.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label53.SizeF = new System.Drawing.SizeF(149.9533F, 23F); + this.label53.StylePriority.UseBorders = false; + this.label53.StylePriority.UseFont = false; + this.label53.Text = "label53"; + // + // pictureBox1 + // + this.pictureBox1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.pictureBox1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Image", null, "CustomersFrom.Photo")}); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 48.95833F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(306.25F, 55.04167F); + this.pictureBox1.Sizing = DevExpress.XtraPrinting.ImageSizeMode.Squeeze; + this.pictureBox1.StylePriority.UseBorders = false; + // + // label52 + // + this.label52.LocationFloat = new DevExpress.Utils.PointFloat(635.9617F, 240.2083F); + this.label52.Name = "label52"; + this.label52.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label52.SizeF = new System.Drawing.SizeF(88F, 86.04163F); + // + // label51 + // + this.label51.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label51.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label51.LocationFloat = new DevExpress.Utils.PointFloat(440.625F, 992.2919F); + this.label51.Name = "label51"; + this.label51.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label51.SizeF = new System.Drawing.SizeF(236.46F, 20F); + this.label51.StylePriority.UseBorders = false; + this.label51.StylePriority.UseFont = false; + this.label51.StylePriority.UseTextAlignment = false; + this.label51.Text = "Megrendelő"; + this.label51.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line5 + // + this.line5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(440.625F, 987.2918F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(236.46F, 5F); + this.line5.StylePriority.UseBorders = false; + // + // label50 + // + this.label50.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label50.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label50.LocationFloat = new DevExpress.Utils.PointFloat(39.58333F, 992.2919F); + this.label50.Name = "label50"; + this.label50.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label50.SizeF = new System.Drawing.SizeF(236.46F, 20F); + this.label50.StylePriority.UseBorders = false; + this.label50.StylePriority.UseFont = false; + this.label50.StylePriority.UseTextAlignment = false; + this.label50.Text = "Szerviz"; + this.label50.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line4 + // + this.line4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(39.58333F, 987.2918F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(236.46F, 5F); + this.line4.StylePriority.UseBorders = false; + // + // label49 + // + this.label49.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label49.LocationFloat = new DevExpress.Utils.PointFloat(0F, 907.4583F); + this.label49.Name = "label49"; + this.label49.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label49.SizeF = new System.Drawing.SizeF(724.0003F, 20F); + this.label49.StylePriority.UseFont = false; + this.label49.StylePriority.UseTextAlignment = false; + this.label49.Text = "A fenti munkálatokat elfogadom, azok teljesítését igazolom. A munkalap alapján ki" + + "állításra kerülő számlát elfogadom."; + this.label49.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 104F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(724F, 2F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 123F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(724F, 2F); + // + // label48 + // + this.label48.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label48.LocationFloat = new DevExpress.Utils.PointFloat(0F, 857.4583F); + this.label48.Name = "label48"; + this.label48.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label48.SizeF = new System.Drawing.SizeF(724.0002F, 50F); + this.label48.StylePriority.UseBorders = false; + // + // label47 + // + this.label47.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(401.0883F, 837.4583F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(321.8702F, 20F); + this.label47.StylePriority.UseBorders = false; + // + // label46 + // + this.label46.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(0F, 837.4583F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(402.13F, 20F); + this.label46.StylePriority.UseFont = false; + this.label46.Text = "Egyéb megjegyzések, észrevételek, egyéb csatolt dokumentumok:"; + // + // label45 + // + this.label45.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(0F, 777.4583F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(723.9965F, 60F); + this.label45.StylePriority.UseBorders = false; + // + // label44 + // + this.label44.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(144.7884F, 757.4583F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(578.1665F, 20.00006F); + this.label44.StylePriority.UseBorders = false; + // + // label43 + // + this.label43.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(0F, 757.4583F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(145.83F, 20F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "Felsorolás:"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label42 + // + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(201.0883F, 727.4583F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(521.8702F, 30F); + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(0F, 727.4583F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(202.13F, 30F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "Anyagbeépítés:"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label39 + // + this.label39.Borders = ((DevExpress.XtraPrinting.BorderSide)((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top))); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(370.8333F, 544.2501F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(352.1216F, 23F); + this.label39.StylePriority.UseBorders = false; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(0F, 544.2501F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(371.875F, 23F); + this.label38.StylePriority.UseFont = false; + this.label38.Text = "Munkavégzés, helyszíni tevékenység leírása:"; + // + // label37 + // + this.label37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(0F, 484.25F); + this.label37.Multiline = true; + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(724.0002F, 60.00003F); + // + // label36 + // + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(426.0417F, 461.25F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(296.9168F, 23.00003F); + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Garanciális")}); + this.label35.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(201.0883F, 461.25F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(224.9534F, 23.00003F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(0F, 461.25F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(202.13F, 23.00003F); + this.label34.StylePriority.UseFont = false; + this.label34.Text = "Bejelentett hiba leírása:"; + // + // label33 + // + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(546.9197F, 434.25F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(176.035F, 27.00003F); + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(546.92F, 411.25F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(176.0349F, 23F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Karbantartott munkahely:"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label31 + // + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(201.0883F, 411.25F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(345.8317F, 50F); + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(0F, 411.25F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(202.13F, 50F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Bejelentés/kiszállás oka:"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkHour")}); + this.label29.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(546.92F, 376.2499F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(176.0349F, 34.99994F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label28 + // + this.label28.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(426.0417F, 376.2499F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(120.8783F, 34.99997F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "Munkaórák:"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label27 + // + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(93.75F, 376.2499F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(332.2917F, 34.99997F); + // + // label26 + // + this.label26.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(0F, 376.2499F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(94.79166F, 35F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "Érkezés:"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Question.DocumentNumber")}); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(546.92F, 349.25F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(176.0349F, 26.99997F); + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(546.9197F, 326.2499F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(176.035F, 23F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Hibabejelentő sorszáma:"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label23 + // + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(201.0883F, 326.2499F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(345.8316F, 50F); + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(0F, 326.2499F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(202.13F, 50F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Hibabejelentés módja:"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(547.9617F, 240.2083F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(88F, 86.04163F); + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(202.13F, 240.2083F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(345.8316F, 86.04166F); + this.label20.StylePriority.UseBorders = false; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0F, 240.2083F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(202.13F, 86.04166F); + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "label19"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(402.13F, 217.2083F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(145.8317F, 23.00002F); + this.label18.StylePriority.UseBorders = false; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(547.9617F, 217.2083F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(9, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(176.0385F, 23.00002F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UsePadding = false; + this.label17.Text = "Budapest? / Vidék?"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(202.13F, 217.2083F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(200F, 23F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Munkavégző(k) neve(i):"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(0F, 217.2083F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(202.13F, 23.00002F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Hibabejelentő / kontakt:"; + // + // label14 + // + this.label14.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkTravelKm")}); + this.label14.Font = new System.Drawing.Font("Times New Roman", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(603.1667F, 177.2083F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(120.83F, 40F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "label14"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label13 + // + this.label13.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 177.2083F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(603.17F, 40F); + this.label13.StylePriority.UseBorders = false; + // + // label12 + // + this.label12.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right))); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(135.4167F, 154.2083F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(467.7499F, 23.00002F); + this.label12.StylePriority.UseBorders = false; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(603.1667F, 154.2083F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(120.8334F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Km:"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 154.2083F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(135.4167F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "Pontos cím:"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkPlace.ShortName")}); + this.label9.Font = new System.Drawing.Font("Times New Roman", 10F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(202.13F, 124.2083F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(521.8701F, 29.99998F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 124.2083F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(202.13F, 30F); + this.label8.StylePriority.UseFont = false; + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "Munkahely megnevezése:"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.Address1.FullAddress")}); + this.label7.Font = new System.Drawing.Font("Times New Roman", 10F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 23F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(306.25F, 82.99996F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.FullName")}); + this.label6.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(306.25F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.label5.Font = new System.Drawing.Font("Times New Roman", 10F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(500F, 82.99998F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(224.0001F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy.MM.dd.}")}); + this.label4.Font = new System.Drawing.Font("Times New Roman", 10F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(306.25F, 82.99998F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(193.75F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(500F, 59.99999F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(224.0001F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Munkalap sorszáma:"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Times New Roman", 12F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(306.25F, 60.00001F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(193.75F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Dátum:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Borders = ((DevExpress.XtraPrinting.BorderSide)(((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "WorkDescription")}); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(0F, 567.2501F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(724F, 160.2083F); + this.label40.StylePriority.UseBorders = false; + this.label40.Text = "label40"; + // + // label54 + // + this.label54.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Oid")}); + this.label54.LocationFloat = new DevExpress.Utils.PointFloat(307.3367F, 0F); + this.label54.Name = "label54"; + this.label54.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label54.SizeF = new System.Drawing.SizeF(295.8333F, 22.99994F); + this.label54.Text = "label54"; + this.label54.Visible = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Times New Roman", 18F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(306.25F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(417.75F, 60F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "MUNKALAP"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.BottomCenter; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Garanciális + // + this.Garanciális.Expression = "Iif([WorkSheetState]=1,\'GARANCIÁLIS?\' ,\'\' )"; + this.Garanciális.Name = "Garanciális"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Garanciális}); + this.DisplayName = "Munkalap"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(50, 53, 50, 50); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség (tételes).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség (tételes).repx new file mode 100644 index 0000000..df5af5d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség (tételes).repx @@ -0,0 +1,328 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgBAAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgBCAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcARAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBGAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUARwAAAAE+U0lTQnVzaW5lc3MuTW9kdWxlLlBhcnRuZXJBY2NvdW50Q29ubmVjdGlvbkluZm9RdWVyeVJvd3NEZXRhaWwBAAEAAQAAASFQYXJ0bmVyIGtpbnRsw6l2xZFzw6lnICh0w6l0ZWxlcyk="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 15.22227F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("MainType", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 17.79162F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Dot; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(690F, 14.58334F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 2.7916665649414063D; + // + // tableCell1 + // + this.tableCell1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label5, + this.label6, + this.label4, + this.label2, + this.label3}); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.Text = "tableCell1"; + this.tableCell1.Weight = 3D; + // + // label1 + // + this.label1.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy.MM.dd.}")}); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100F, 13.41667F); + this.label1.StylePriority.UseBorders = false; + this.label1.Text = "label1"; + // + // label5 + // + this.label5.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(100F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(156F, 13.41667F); + this.label5.StylePriority.UseBorders = false; + this.label5.Text = "label5"; + // + // label6 + // + this.label6.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MainType")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(256F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(62.89066F, 13.41668F); + this.label6.StylePriority.UseBorders = false; + this.label6.Text = "label6"; + // + // label4 + // + this.label4.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(318.8906F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(171.1093F, 13.41667F); + this.label4.StylePriority.UseBorders = false; + this.label4.Text = "label4"; + // + // label2 + // + this.label2.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF", "{0:#,##0}")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(489.9999F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label2.StylePriority.UseBorders = false; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV", "{0:#,##0}")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(589.9999F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 13.41667F); + this.label3.StylePriority.UseBorders = false; + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Partner kintlévőség (tételes)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(69, 68, 20, 18); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség.repx new file mode 100644 index 0000000..13141a8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Partner kintlévőség.repx @@ -0,0 +1,969 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader3; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader4; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader5; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgBAAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgBCAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcARAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBGAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUARwAAAAE+U0lTQnVzaW5lc3MuTW9kdWxlLlBhcnRuZXJBY2NvdW50Q29ubmVjdGlvbkluZm9RdWVyeVJvd3NEZXRhaWwBAAEAAQAAARZQYXJ0bmVyIGtpbnRsw6l2xZFzw6ln"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary7 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary8 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary9 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary10 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader3 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader4 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader5 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo3 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label11, + this.label6, + this.label5, + this.label4, + this.label10, + this.label9}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 35.85192F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.Scripts.OnAfterPrint = "detailBand1_AfterPrint"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("MainType", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label3}); + this.pageFooterBand1.HeightF = 8.098053F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 20F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 16F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label23, + this.label22, + this.line1, + this.label16, + this.label15, + this.label14, + this.label13, + this.label8, + this.label7, + this.label2, + this.pageInfo3, + this.label1, + this.pageInfo2}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 104.7797F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label36, + this.label35, + this.label17}); + this.GroupHeader1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("CustomersFrom.FullName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 24.25002F; + this.GroupHeader1.Level = 4; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.StylePriority.UseFont = false; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label37, + this.label34, + this.label32, + this.label18}); + this.GroupHeader2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("CurrencyName.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 23.00001F; + this.GroupHeader2.Level = 3; + this.GroupHeader2.Name = "GroupHeader2"; + this.GroupHeader2.StylePriority.UseFont = false; + // + // GroupHeader3 + // + this.GroupHeader3.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label38, + this.label33, + this.label19}); + this.GroupHeader3.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader3.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("PartnerType", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader3.HeightF = 18.83332F; + this.GroupHeader3.Level = 2; + this.GroupHeader3.Name = "GroupHeader3"; + this.GroupHeader3.StylePriority.UseFont = false; + // + // GroupHeader4 + // + this.GroupHeader4.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.label21, + this.label20}); + this.GroupHeader4.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader4.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("Customers.FullName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader4.HeightF = 18.83329F; + this.GroupHeader4.Level = 1; + this.GroupHeader4.Name = "GroupHeader4"; + this.GroupHeader4.StylePriority.UseFont = false; + // + // GroupHeader5 + // + this.GroupHeader5.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.label29, + this.label28, + this.label27, + this.label26, + this.label25, + this.label24, + this.line3}); + this.GroupHeader5.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader5.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("ConnectInfo", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader5.HeightF = 23F; + this.GroupHeader5.Name = "GroupHeader5"; + this.GroupHeader5.StylePriority.UseFont = false; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy.MM.dd.}")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(391.4165F, 2.000002F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(89.58337F, 16.63713F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DatePayment", "{0:yyyy.MM.dd.}")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(480.9999F, 2.000002F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 16.63713F); + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MainType")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(42.70859F, 2.000046F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 16.63713F); + this.label6.Text = "label6"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV", "{0:#,##0}")}); + this.label5.FormattingRules.Add(this.formattingRule1); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(680.9997F, 2.000002F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 16.63713F); + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF", "{0:#,##0}")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(580.9998F, 2.000002F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(100F, 16.63713F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(123.9586F, 2.000046F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(267.4579F, 16.63713F); + this.label10.Text = "label10"; + // + // label9 + // + this.label9.AutoWidth = true; + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(102.8754F, 18.63715F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label9.SizeF = new System.Drawing.SizeF(288.5411F, 16.63714F); + this.label9.Text = "label9"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 5F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 8.098053F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "SIS Business Framework 2.0"; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(311.2085F, 88.41666F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(80.20807F, 12.58334F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Késett napok"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(213.2919F, 88.41667F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(97.91641F, 12.58335F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Késés tartomány"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0.0002007735F, 101F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(780.9995F, 3.779694F); + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(391.4166F, 88.41666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(89.58334F, 12.58334F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Telj. dátuma"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(480.9999F, 88.41666F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(100F, 12.58334F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Fiz. határidő"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(580.9998F, 88.41666F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(100F, 12.58334F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Egyenleg (HUF)"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(680.9997F, 88.41666F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(100F, 12.58334F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "Egyenleg (DEV)"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PartnerAccountConnectionInfoQueryHeader.ShortName")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(376.8333F, 67.00002F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(146.875F, 12.58336F); + this.label8.Text = "label8"; + // + // label7 + // + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(299.75F, 67.00002F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(77.08331F, 12.58334F); + this.label7.Text = "Megnevezés:"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(124.9999F, 33.41668F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(525.7915F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Partner Kintlévőség"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo3 + // + this.pageInfo3.Format = "{0:yyyy. MMMM d. HH:mm}"; + this.pageInfo3.LocationFloat = new DevExpress.Utils.PointFloat(650.7915F, 10F); + this.pageInfo3.Name = "pageInfo3"; + this.pageInfo3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo3.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo3.SizeF = new System.Drawing.SizeF(130.2083F, 23F); + this.pageInfo3.StylePriority.UseTextAlignment = false; + this.pageInfo3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 14F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(124.9999F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(525.7916F, 33.41667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Pesti Házak Csoport"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 8F); + this.pageInfo2.Format = "Oldal: {0}/ {1}"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(650.7914F, 33.41665F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(130.2083F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.FormattingRules.Add(this.formattingRule1); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(681F, 10.00001F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.Scripts.OnBeforePrint = "label36_BeforePrint"; + this.label36.SizeF = new System.Drawing.SizeF(100F, 14.25001F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label36.Summary = summary1; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label35.Font = new System.Drawing.Font("Arial", 8F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(581F, 10.00001F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(100F, 14.25001F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label35.Summary = summary2; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomersFrom.FullName")}); + this.label17.Font = new System.Drawing.Font("Arial", 14F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543131F, 0F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(280.9998F, 24.25F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "label17"; + // + // label37 + // + this.label37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV")}); + this.label37.Font = new System.Drawing.Font("Arial", 8F); + this.label37.FormattingRules.Add(this.formattingRule1); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(680.9998F, 10.00001F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.Scripts.OnEvaluateBinding = "label37_EvaluateBinding"; + this.label37.Scripts.OnSummaryCalculated = "label37_SummaryCalculated"; + this.label37.Scripts.OnSummaryGetResult = "label37_SummaryGetResult"; + this.label37.Scripts.OnSummaryRowChanged = "label37_SummaryRowChanged"; + this.label37.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label37.Summary = summary3; + this.label37.Text = "label37"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(581F, 10.00001F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label34.Summary = summary4; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 13F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543131F, 0F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(67.29165F, 22.99999F); + this.label32.StylePriority.UseFont = false; + this.label32.Text = "Deviza:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CurrencyName.ShortName")}); + this.label18.Font = new System.Drawing.Font("Arial", 13F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(67.29189F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(146F, 22.99999F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV")}); + this.label38.Font = new System.Drawing.Font("Arial", 8F); + this.label38.FormattingRules.Add(this.formattingRule1); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(680.9998F, 4.999987F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label38.Summary = summary5; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(580.9998F, 4.999987F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label33.Summary = summary6; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PartnerType")}); + this.label19.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(20.83359F, 0F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(260.1664F, 18F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "label19"; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(581F, 4.999987F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + summary7.FormatString = "{0:#,##0}"; + summary7.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label31.Summary = summary7; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV")}); + this.label21.Font = new System.Drawing.Font("Arial", 8F); + this.label21.FormattingRules.Add(this.formattingRule1); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(681F, 4.999987F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(100F, 13F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + summary8.FormatString = "{0:#,##0}"; + summary8.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label21.Summary = summary8; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.label20.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(31.25F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(317.4583F, 18F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label30 + // + this.label30.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DelayedRange")}); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(227.8753F, 0F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(83.33311F, 18F); + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "label30"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceDEV")}); + this.label29.Font = new System.Drawing.Font("Arial", 8F); + this.label29.FormattingRules.Add(this.formattingRule1); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(680.9998F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + summary9.FormatString = "{0:#,##0}"; + summary9.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label29.Summary = summary9; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "BallanceHUF")}); + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(580.9998F, 0F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + summary10.FormatString = "{0:#,##0}"; + summary10.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label28.Summary = summary10; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DatePayment", "{0:yyyy.MM.dd.}")}); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(481F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(100F, 18F); + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy.MM.dd.}")}); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(391.4166F, 0F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(89.58344F, 18F); + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label25 + // + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DelayedDay")}); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(311.2085F, 0F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(80.20804F, 18F); + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ConnectInfo")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(42.70859F, 0F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(185.1666F, 18F); + this.label24.StylePriority.UseFont = false; + this.label24.Text = "label24"; + // + // line3 + // + this.line3.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(42.70859F, 18.00003F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(738.2914F, 2.083333F); + // + // formattingRule1 + // + this.formattingRule1.Condition = "[CurrencyName.ShortName]==\'HUF\'"; + // + // + // + this.formattingRule1.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.PageHeader, + this.GroupHeader1, + this.GroupHeader2, + this.GroupHeader3, + this.GroupHeader4, + this.GroupHeader5}); + this.DisplayName = "Partner kintlévőség"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 9.75F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(23, 23, 20, 16); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat (DEV).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat (DEV).repx new file mode 100644 index 0000000..4b1f1a5 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat (DEV).repx @@ -0,0 +1,993 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel Credit; + private DevExpress.XtraReports.UI.XRLabel Debit; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField cÖsszegDEV; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA/QEAAAxGAGkAbAB0AGUAcgAYAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAaAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAHAIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAeAgAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAHwIAAAH6Aw0KcHJpdmF0ZSB2b2lkIGxhYmVsOV9CZWZvcmVQcmludChvYmplY3Qgc2VuZGVyLCBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncyBlKSB7DQppZiAoQ29udmVydC5Ub0RvdWJsZShDcmVkaXQuVGV4dCkhPTApDQp7DQooKFhSTGFiZWwpc2VuZGVyKS5UZXh0ID0iQmVmaXpldMOpc2kgcMOpbnp0w6FyYml6b255bGF0IjsNCn0NCmVsc2UNCnsNCigoWFJMYWJlbClzZW5kZXIpLlRleHQgPSJLaWZpemV0w6lzaSBww6luenTDoXJiaXpvbnlsYXQiOw0KfQ0KDQp9DQoNCnByaXZhdGUgdm9pZCBsYWJlbDE2X0JlZm9yZVByaW50KG9iamVjdCBzZW5kZXIsIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzIGUpIHsNCmlmIChDb252ZXJ0LlRvRG91YmxlKENyZWRpdC5UZXh0KSE9MCkNCnsNCigoWFJMYWJlbClzZW5kZXIpLlRleHQgPSJCZWZpemV0xZEiOw0KfQ0KZWxzZQ0Kew0KKChYUkxhYmVsKXNlbmRlcikuVGV4dCA9IsOBdHZldsWRIjsNCn0NCg0KfQ0KARlTSVNCdXNpbmVzcy5Nb2R1bGUuR0xSb3dzAQABAAEAAAEaUMOpbnp0w6FyaSBiaXpvbnlsYXQgKERFVik="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.Credit = new DevExpress.XtraReports.UI.XRLabel(); + this.Debit = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.cÖsszegDEV = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label18, + this.label4, + this.label29, + this.label28, + this.label27, + this.label26, + this.label20}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 60.87881F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line9, + this.line8, + this.line7, + this.label41, + this.label40, + this.label39, + this.line6, + this.line5, + this.label38, + this.label37, + this.label36, + this.label35, + this.label34, + this.label33}); + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 261.446F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43, + this.label5, + this.Credit, + this.Debit, + this.label25, + this.line2, + this.line1, + this.label17, + this.label16, + this.label15, + this.label14, + this.label13, + this.label12, + this.label11, + this.label8, + this.label7, + this.label6, + this.label3, + this.label2, + this.label1, + this.label9, + this.label10, + this.label21, + this.label22, + this.label23, + this.label24}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 450.7878F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.topMarginBand1.HeightF = 86F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.bottomMarginBand1.HeightF = 80F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label19, + this.label32, + this.label31, + this.label30, + this.line4, + this.line3}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 130.0602F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CurrencyName.ShortName")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(700.5789F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(42.09076F, 27.07724F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customer.CustomerNumber")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(365.0728F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(83.76999F, 27.97068F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "cÖsszegDEV", "{0:#.00}")}); + this.label29.Font = new System.Drawing.Font("Arial", 9F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(596.7208F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(103.8581F, 27.97068F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customer.FullName")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(448.8427F, 0F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(147.878F, 27.97068F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CashType")}); + this.label27.Font = new System.Drawing.Font("Arial", 9F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(285.7267F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(79.34604F, 27.97068F); + this.label27.StylePriority.UseFont = false; + this.label27.Text = "label27"; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "NoteRows")}); + this.label26.Font = new System.Drawing.Font("Arial", 9F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(126.0416F, 0F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(159.6852F, 27.97068F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ConnectInfo")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(126.0417F, 27.97068F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 228.588F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(146.6049F, 2F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(301.8904F, 228.588F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(154.321F, 2F); + // + // line7 + // + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(51.11882F, 229.5524F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(148.5339F, 2F); + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 237.2685F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(149.1716F, 24.1774F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "Ellenőr"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(298.9969F, 237.2685F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(157.8703F, 24.17746F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "Könyvelő"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 238.4459F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(149.1898F, 22.99998F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Utalványozó"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(448.8427F, 144.4568F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(251.7361F, 2F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 144.4568F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(249.8071F, 2F); + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(451.3889F, 153.3565F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(249.19F, 23.00001F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Pénz átvevő"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 153.3565F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(251.7361F, 23.00001F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Pénz átadó"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 10F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(108.6806F, 38.43207F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(66.55093F, 26.04172F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "........... db"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 10F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(1.929042F, 38.43207F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(106.7515F, 26.04172F); + this.label35.StylePriority.UseFont = false; + this.label35.Text = "Melléklet"; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.NoteHeader")}); + this.label34.Font = new System.Drawing.Font("Arial", 10F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(108.6806F, 0F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(633.9891F, 38.43208F); + this.label34.StylePriority.UseFont = false; + this.label34.Text = "label34"; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(108.6806F, 38.43207F); + this.label33.StylePriority.UseFont = false; + this.label33.Text = "Megjegyzés"; + // + // label43 + // + this.label43.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(365.0728F, 413.7106F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(83.76996F, 27.97067F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "Ügyfélszám"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(700.5789F, 413.7106F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(42.09076F, 27.07724F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "Dev"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Credit + // + this.Credit.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InAmountHUF")}); + this.Credit.LocationFloat = new DevExpress.Utils.PointFloat(642.6696F, 374.3849F); + this.Credit.Name = "Credit"; + this.Credit.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Credit.SizeF = new System.Drawing.SizeF(100F, 23F); + this.Credit.Text = "Credit"; + this.Credit.Visible = false; + // + // Debit + // + this.Debit.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OutAmountHUF")}); + this.Debit.LocationFloat = new DevExpress.Utils.PointFloat(542.6696F, 374.3849F); + this.Debit.Name = "Debit"; + this.Debit.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Debit.SizeF = new System.Drawing.SizeF(100F, 23F); + this.Debit.Text = "Debit"; + this.Debit.Visible = false; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 413.7106F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(124.1126F, 27.9707F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bizonylatszám"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.928895F, 411.7106F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(740.7407F, 2F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 441.6813F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.6697F, 2F); + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CashHandler")}); + this.label17.Font = new System.Drawing.Font("Arial", 10F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 334.5355F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(246.9136F, 62.84937F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "label17"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 299.8132F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.Scripts.OnBeforePrint = "label16_BeforePrint"; + this.label16.SizeF = new System.Drawing.SizeF(161.7284F, 34.72223F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Készpénz átadó"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssets.ChartOfAccounts.AccountNumber")}); + this.label15.Font = new System.Drawing.Font("Arial", 10F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(596.7208F, 108.0247F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(145.9488F, 33.60954F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 108.0247F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(125.0587F, 33.60954F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Főkönyvi szám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssets.ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(562.0168F, 76.34413F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(180.6529F, 31.68053F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(471.6619F, 76.34415F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(90.35495F, 31.68052F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Pénzeszköz:"; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.DateExecution", "{0:yyyy. MM. dd.}")}); + this.label11.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(551.4075F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(191.2623F, 36.65123F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "label11"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(79.74533F, 36.65123F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Dátum"; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 36.65123F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(79.74533F, 27.00617F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "Sorszám"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.DocumentNumber")}); + this.label6.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 36.65125F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(191.2623F, 27.00618F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "label6"; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.VATNumber")}); + this.label3.Font = new System.Drawing.Font("Arial", 10F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(87.72678F, 76.19597F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(311.27F, 31.68053F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "label3"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.19598F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(87.72678F, 31.8287F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Adószám:"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.Address1.FullAddress")}); + this.label1.Font = new System.Drawing.Font("Arial", 10F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 36.65123F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(398.9968F, 27.00618F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "label1"; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(9.633074E-05F, 209.2978F); + this.label9.Name = "label9"; + this.label9.Scripts.OnBeforePrint = "label9_BeforePrint"; + this.label9.SizeF = new System.Drawing.SizeF(742.6695F, 31.071F); + this.label9.StyleName = "Title"; + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bevételi pénztárbizonylat"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.FullName")}); + this.label10.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(246.9136F, 36.65123F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(124.1126F, 413.7106F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(161.6141F, 27.9707F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Szöveg"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(285.7267F, 413.7106F); + this.label22.Multiline = true; + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(79.34607F, 27.97073F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Tranzakció\r\n"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(448.8427F, 413.7106F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(147.878F, 27.97073F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Megnevezés/Ügyfél"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(596.7208F, 413.7106F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(103.858F, 27.97073F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Összeg"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label42 + // + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(1.929012F, 28.93518F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(351.7361F, 18.1775F); + this.label42.StylePriority.UseFont = false; + this.label42.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // label19 + // + this.label19.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CurrencyName.ShortName")}); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(700.5789F, 41.47374F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(42.0907F, 37.46759F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "label19"; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.HUNumberToText")}); + this.label32.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(0F, 87.77008F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(742.6698F, 23.00002F); + this.label32.StylePriority.UseFont = false; + this.label32.Text = "label32"; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "cÖsszegDEV")}); + this.label31.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(581.6392F, 41.47374F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(118.9397F, 37.4676F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#.00}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label31.Summary = summary1; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(437.9277F, 41.47374F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(143.7115F, 37.46761F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Összesen:"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(456.8671F, 9.999981F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(285.8026F, 6.822533F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(455.8671F, 0F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(287.1328F, 5.787037F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // cÖsszegDEV + // + this.cÖsszegDEV.Expression = "Iif([InAmountDEV]<>0, [InAmountDEV] , [OutAmountDEV])"; + this.cÖsszegDEV.Name = "cÖsszegDEV"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.cÖsszegDEV}); + this.DisplayName = "Pénztári bizonylat (DEV)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(46, 38, 86, 80); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat.repx new file mode 100644 index 0000000..7411051 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Pénztári bizonylat.repx @@ -0,0 +1,1014 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLine line7; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel Credit; + private DevExpress.XtraReports.UI.XRLabel Debit; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField cÖsszegHUF; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWSF5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0AGgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUA/QEAAAxGAGkAbAB0AGUAcgAYAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAaAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAHAIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAeAgAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAHwIAAAH6Aw0KcHJpdmF0ZSB2b2lkIGxhYmVsOV9CZWZvcmVQcmludChvYmplY3Qgc2VuZGVyLCBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncyBlKSB7DQppZiAoQ29udmVydC5Ub0RvdWJsZShDcmVkaXQuVGV4dCkhPTApDQp7DQooKFhSTGFiZWwpc2VuZGVyKS5UZXh0ID0iQmVmaXpldMOpc2kgcMOpbnp0w6FyYml6b255bGF0IjsNCn0NCmVsc2UNCnsNCigoWFJMYWJlbClzZW5kZXIpLlRleHQgPSJLaWZpemV0w6lzaSBww6luenTDoXJiaXpvbnlsYXQiOw0KfQ0KDQp9DQoNCnByaXZhdGUgdm9pZCBsYWJlbDE2X0JlZm9yZVByaW50KG9iamVjdCBzZW5kZXIsIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzIGUpIHsNCmlmIChDb252ZXJ0LlRvRG91YmxlKENyZWRpdC5UZXh0KSE9MCkNCnsNCigoWFJMYWJlbClzZW5kZXIpLlRleHQgPSJCZWZpemV0xZEiOw0KfQ0KZWxzZQ0Kew0KKChYUkxhYmVsKXNlbmRlcikuVGV4dCA9IsOBdHZldsWRIjsNCn0NCg0KfQ0KARlTSVNCdXNpbmVzcy5Nb2R1bGUuR0xSb3dzAQABAAEAAAEUUMOpbnp0w6FyaSBiaXpvbnlsYXQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.line7 = new DevExpress.XtraReports.UI.XRLine(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.Credit = new DevExpress.XtraReports.UI.XRLabel(); + this.Debit = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.cÖsszegHUF = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label43, + this.label29, + this.label28, + this.label27, + this.label26, + this.label20, + this.label18}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 27.97068F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.StylePriority.UseTextAlignment = false; + this.detailBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line9, + this.line8, + this.line7, + this.label41, + this.label40, + this.label39, + this.line6, + this.line5, + this.label38, + this.label37, + this.label36, + this.label35, + this.label34, + this.label33}); + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 261.446F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label19, + this.label4, + this.Credit, + this.Debit, + this.label25, + this.line2, + this.line1, + this.label17, + this.label16, + this.label15, + this.label14, + this.label13, + this.label12, + this.label11, + this.label8, + this.label7, + this.label6, + this.label3, + this.label2, + this.label1, + this.label9, + this.label10, + this.label21, + this.label22, + this.label23, + this.label24}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.reportHeaderBand1.HeightF = 460.5F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.topMarginBand1.HeightF = 86F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label42}); + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.bottomMarginBand1.HeightF = 80F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label32, + this.label31, + this.label30, + this.line4, + this.line3}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 130.0602F; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customer.CustomerNumber")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(376.1576F, 0F); + this.label43.Multiline = true; + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(80.70953F, 27.97058F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "cÖsszegHUF", "{0:#,#}")}); + this.label29.Font = new System.Drawing.Font("Arial", 9F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(596.7208F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(106.519F, 27.97068F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customer.FullName")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(456.8671F, 0F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(139.8536F, 27.97068F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CashType")}); + this.label27.Font = new System.Drawing.Font("Arial", 9F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(297.068F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(79.08948F, 27.97068F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "NoteRows")}); + this.label26.Font = new System.Drawing.Font("Arial", 9F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(126.0416F, 0F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(171.0264F, 27.97068F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label20 + // + this.label20.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ConnectInfo")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(126.0417F, 27.97068F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CurrencyName.ShortName")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(703.2397F, 0F); + this.label18.Multiline = true; + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(39.42981F, 27.97064F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 228.588F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(146.6049F, 2F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(301.8904F, 228.588F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(154.321F, 2F); + // + // line7 + // + this.line7.LocationFloat = new DevExpress.Utils.PointFloat(51.11882F, 229.5524F); + this.line7.Name = "line7"; + this.line7.SizeF = new System.Drawing.SizeF(148.5339F, 2F); + // + // label41 + // + this.label41.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 237.2685F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(149.1716F, 24.1774F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "Ellenőr"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(298.9969F, 237.2685F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(157.8703F, 24.17746F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "Könyvelő"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 238.4459F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(149.1898F, 22.99998F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Utalványozó"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(448.8427F, 144.4568F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(251.7361F, 2F); + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 144.4568F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(249.8071F, 2F); + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(451.3889F, 153.3565F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(249.19F, 23.00001F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Pénz átvevő"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(50.15436F, 153.3565F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(251.7361F, 23.00001F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Pénz átadó"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 10F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(108.6806F, 38.43207F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(66.55093F, 26.04172F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "........... db"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 10F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(1.929042F, 38.43207F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(106.7515F, 26.04172F); + this.label35.StylePriority.UseFont = false; + this.label35.Text = "Melléklet"; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.NoteHeader")}); + this.label34.Font = new System.Drawing.Font("Arial", 10F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(108.6806F, 0F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(633.9891F, 38.43208F); + this.label34.StylePriority.UseFont = false; + this.label34.Text = "label34"; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(108.6806F, 38.43207F); + this.label33.StylePriority.UseFont = false; + this.label33.Text = "Megjegyzés"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(376.1575F, 413.7107F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(80.70966F, 27.97046F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Ügyfélszám"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(700.5789F, 413.7107F); + this.label4.Multiline = true; + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(42.09076F, 27.97064F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "Dev\r\n"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Credit + // + this.Credit.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InAmountHUF")}); + this.Credit.LocationFloat = new DevExpress.Utils.PointFloat(642.6696F, 374.3849F); + this.Credit.Name = "Credit"; + this.Credit.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Credit.SizeF = new System.Drawing.SizeF(100F, 23F); + this.Credit.Text = "Credit"; + this.Credit.Visible = false; + // + // Debit + // + this.Debit.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "OutAmountHUF")}); + this.Debit.LocationFloat = new DevExpress.Utils.PointFloat(542.6696F, 374.3849F); + this.Debit.Name = "Debit"; + this.Debit.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.Debit.SizeF = new System.Drawing.SizeF(100F, 23F); + this.Debit.Text = "Debit"; + this.Debit.Visible = false; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(0F, 413.7106F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(124.1126F, 27.9707F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bizonylatszám"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.928895F, 411.7106F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(740.7407F, 2F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 441.6813F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.6697F, 2F); + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CashHandler")}); + this.label17.Font = new System.Drawing.Font("Arial", 10F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(50.15438F, 333.571F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(246.9136F, 62.84937F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "label17"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(51.11884F, 298.8488F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.Scripts.OnBeforePrint = "label16_BeforePrint"; + this.label16.SizeF = new System.Drawing.SizeF(161.7284F, 34.72223F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Készpénz átadó"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssets.ChartOfAccounts.AccountNumber")}); + this.label15.Font = new System.Drawing.Font("Arial", 10F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(596.7207F, 108.0247F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(147.2791F, 33.60954F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 108.0247F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(125.0587F, 33.60954F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Főkönyvi szám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "LiquidAssets.ShortName")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(562.0168F, 76.34415F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(181.983F, 31.68053F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(471.6619F, 76.34415F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(90.35495F, 31.68052F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Pénzeszköz:"; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.DateExecution", "{0:yyyy. MM. dd.}")}); + this.label11.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(551.4075F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(192.5925F, 36.65123F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "label11"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(79.74533F, 36.65123F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Dátum"; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(471.662F, 36.65123F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(79.74533F, 27.00617F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "Sorszám"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.DocumentNumber")}); + this.label6.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(551.4073F, 36.65123F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(192.5927F, 27.00617F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "label6"; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.VATNumber")}); + this.label3.Font = new System.Drawing.Font("Arial", 10F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(87.72678F, 76.19597F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(311.27F, 31.68053F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "label3"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 76.19598F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(87.72678F, 31.8287F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Adószám:"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.Address1.FullAddress")}); + this.label1.Font = new System.Drawing.Font("Arial", 10F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 36.65123F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(398.9968F, 27.00618F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "label1"; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(8.830317E-05F, 209.2978F); + this.label9.Name = "label9"; + this.label9.Scripts.OnBeforePrint = "label9_BeforePrint"; + this.label9.SizeF = new System.Drawing.SizeF(743.9999F, 31.07099F); + this.label9.StyleName = "Title"; + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Bevételi pénztárbizonylat"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CustomersFrom.FullName")}); + this.label10.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(246.9136F, 36.65123F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(124.1126F, 413.7106F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(172.9554F, 27.9707F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Szöveg"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(297.068F, 413.7107F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(79.08948F, 27.97058F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Tranzakció"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(456.8671F, 413.7107F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(139.8536F, 27.97046F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Megnevezés/Ügyfél"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(596.7207F, 413.7106F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(103.8582F, 27.9707F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "Összeg"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label42 + // + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Italic); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(1.929012F, 28.93518F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(351.7361F, 18.1775F); + this.label42.StylePriority.UseFont = false; + this.label42.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.CurrencyName.ShortName")}); + this.label5.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(700.579F, 30.36422F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(42.0907F, 37.46765F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "GLHeader.HUNumberToText")}); + this.label32.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(0F, 87.77008F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(742.6698F, 23.00002F); + this.label32.StylePriority.UseFont = false; + this.label32.Text = "label32"; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "cÖsszegHUF")}); + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(596.7207F, 30.36412F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(103.8582F, 37.46761F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label31.Summary = summary1; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(459.4524F, 30.36412F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(137.2683F, 37.46761F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "Összesen:"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(456.8671F, 9.999981F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(285.8026F, 6.822533F); + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(456.8672F, 3.92902F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(287.1328F, 5.787037F); + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // cÖsszegHUF + // + this.cÖsszegHUF.Expression = "Iif([InAmountHUF]<>0, [InAmountHUF] ,[OutAmountHUF] )"; + this.cÖsszegHUF.Name = "cÖsszegHUF"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.cÖsszegHUF}); + this.DisplayName = "Pénztári bizonylat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(45, 38, 86, 80); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári betárolási bizonylat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári betárolási bizonylat.repx new file mode 100644 index 0000000..dd62cda --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári betárolási bizonylat.repx @@ -0,0 +1,648 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAiAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAkAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJgAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAoAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKQAAAAEgU0lTQnVzaW5lc3MuTW9kdWxlLlN0b3JhZ2VJblJvd3MBAAEAAQAAAR9SYWt0w6FyaSBiZXTDoXJvbMOhc2kgYml6b255bGF0"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 25.00001F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 26F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.bottomMarginBand1.HeightF = 27F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.line1, + this.label3, + this.label2}); + this.ReportFooter.HeightF = 171.875F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + // + // PageHeader + // + this.PageHeader.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label19, + this.label18, + this.label17, + this.label16, + this.label15, + this.label12, + this.label11, + this.table1, + this.pageInfo1, + this.pageInfo2, + this.label1}); + this.PageHeader.HeightF = 197.9167F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseBorderDashStyle = false; + // + // line3 + // + this.line3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.line3.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 20F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(766.9999F, 5.00001F); + this.line3.StylePriority.UseBorderDashStyle = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SerialNumber")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(677F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(89.99988F, 20F); + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PacketNumber")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(582.3412F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(92.11987F, 20F); + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.Units.ShortName")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(537.4264F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(44.91479F, 20F); + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,0.00}")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(461.9455F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(72.50009F, 20F); + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label6 + // + this.label6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ShortName")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(156.5113F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(305.4341F, 20F); + this.label6.StylePriority.UseBorderDashStyle = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Products.ProductNumber")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(60F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(95F, 20F); + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(39.98F, 20F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(511.32F, 101.5224F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(200.7856F, 2.40382F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(48.39745F, 101.5224F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(201.9231F, 2.006409F); + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(563.0303F, 113.5802F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Átvevő"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(97.43589F, 113.5802F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Átadó"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInHeader.CreateDate", "{0:yyyy.MM.dd.}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 131.6667F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 131.6667F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Dátum:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInHeader.UserCreated.FullName", "Létrehozta: {0}")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(497.6563F, 111.6667F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(259.344F, 19.99995F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInHeader.ObjectCreated", "Létrehozás dátuma: {0:yyyy.MM.dd.}")}); + this.label17.Font = new System.Drawing.Font("Arial", 9F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(497.656F, 91.66666F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(259.3441F, 19.99998F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInHeader.Storage.ShortName")}); + this.label16.Font = new System.Drawing.Font("Arial", 9F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 111.6666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "label16"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInHeader.Storage.CustomersFrom.DisplayName")}); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 91.66666F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 111.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Raktár:"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 91.66666F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "Saját cég:"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.Font = new System.Drawing.Font("Arial", 9F); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 172.7724F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(766.9999F, 25F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy.MM.dd.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}/{1}. oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 33.00002F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(767F, 58.41666F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Raktári betárolási bizonylat"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell6, + this.tableCell7}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Sorszám"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.32567369253076384D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = " Cikkszám"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 0.60108320754082867D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = " Megnevezés"; + this.tableCell3.Weight = 1.808579388234578D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = " Betárolt mennyiség"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell4.Weight = 0.71290354740057393D; + // + // tableCell6 + // + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = " Kötegszám"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell6.Weight = 0.54547302291517286D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = " Sorozatszám"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell7.Weight = 0.54795401149527023D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader}); + this.BorderWidth = 2; + this.DisplayName = "Raktári betárolási bizonylat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.Margins = new System.Drawing.Printing.Margins(30, 30, 26, 27); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári kitárolási bizonylat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári kitárolási bizonylat.repx new file mode 100644 index 0000000..8bd9c32 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Raktári kitárolási bizonylat.repx @@ -0,0 +1,648 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.8.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.8.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgApAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgArAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcALQAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAvAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAMAAAAAEnU0lTQnVzaW5lc3MuTW9kdWxlLlN0b3JhZ2VPdXRSb3dzSW5Sb3dzAQABAAEAAAEfUmFrdMOhcmkga2l0w6Fyb2zDoXNpIGJpem9ueWxhdA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 25.00001F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 26F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.bottomMarginBand1.HeightF = 27F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.line1, + this.label3, + this.label2}); + this.ReportFooter.HeightF = 171.875F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + // + // PageHeader + // + this.PageHeader.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label20, + this.label19, + this.label18, + this.label17, + this.label16, + this.label15, + this.label12, + this.label11, + this.table1, + this.pageInfo1, + this.pageInfo2, + this.label1}); + this.PageHeader.HeightF = 197.9167F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseBorderDashStyle = false; + // + // line3 + // + this.line3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.line3.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 20F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(766.9999F, 5.00001F); + this.line3.StylePriority.UseBorderDashStyle = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInRows.SerialNumber")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(677F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(89.99988F, 20F); + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInRows.PacketNumber")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(582.3412F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(92.11987F, 20F); + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInRows.Products.Units.ShortName")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(537.4264F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(44.91479F, 20F); + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,0.00}")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(461.9455F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(72.50009F, 20F); + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label6 + // + this.label6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInRows.Products.ShortName")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(156.5113F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(305.4341F, 20F); + this.label6.StylePriority.UseBorderDashStyle = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageInRows.Products.ProductNumber")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(60F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(95F, 20F); + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(39.98F, 20F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(511.32F, 101.5224F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(200.7856F, 2.40382F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(48.39745F, 101.5224F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(201.9231F, 2.006409F); + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(563.0303F, 113.5802F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Átvevő"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(97.43589F, 113.5802F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Átadó"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRows.StorageOutHeader.CreateDate", "{0:yyyy.MM.dd.}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 131.6667F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 131.6667F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Dátum:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRows.StorageOutHeader.UserCreated.FullName", "Létrehozta: {0}")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(497.6563F, 111.6667F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(259.344F, 19.99995F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRows.StorageOutHeader.CreateDate", "Létrehozás dátuma: {0:yyyy.MM.dd.}")}); + this.label17.Font = new System.Drawing.Font("Arial", 9F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(497.656F, 91.66666F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(259.3441F, 19.99998F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRows.StorageOutHeader.Storage.ShortName")}); + this.label16.Font = new System.Drawing.Font("Arial", 9F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 111.6666F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "label16"; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRows.StorageOutHeader.CustomersFrom.DisplayName")}); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 91.66666F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 111.6667F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Raktár:"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 91.66666F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "Saját cég:"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.Font = new System.Drawing.Font("Arial", 9F); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 172.7724F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(766.9999F, 25F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy.MM.dd.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}/{1}. oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 33.00002F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(767F, 58.41666F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Raktári kitárolási bizonylat"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell6, + this.tableCell7}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Sorszám"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.32567369253076384D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = " Cikkszám"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 0.60108320754082867D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = " Megnevezés"; + this.tableCell3.Weight = 1.808579388234578D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = " Betárolt mennyiség"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell4.Weight = 0.71290354740057393D; + // + // tableCell6 + // + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = " Kötegszám"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell6.Weight = 0.54547302291517286D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = " Sorozatszám"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell7.Weight = 0.54795401149527023D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader}); + this.BorderWidth = 2; + this.DisplayName = "Raktári kitárolási bizonylat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.Margins = new System.Drawing.Printing.Margins(30, 30, 26, 27); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Szállítólevél - kimenő.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Szállítólevél - kimenő.repx new file mode 100644 index 0000000..047dd6a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Szállítólevél - kimenő.repx @@ -0,0 +1,649 @@ +/// +/// DevExpress.ExpressApp.Reports.v12.1, Version=12.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v12.1\12.1.7.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v12.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell3; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRTableCell tableCell6; + private DevExpress.XtraReports.UI.XRTableCell tableCell7; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAoAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAqAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcALAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAuAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUALwAAAAEmU0lTQnVzaW5lc3MuTW9kdWxlLkRlbGl2ZXJ5Tm90ZU91dFJvd3MBAAEAAQAAARtTesOhbGzDrXTDs2xldsOpbCAtIGtpbWVuxZE="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell3 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell6 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell7 = new DevExpress.XtraReports.UI.XRTableCell(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line3, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 25.00001F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("RowIndex", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 26F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.bottomMarginBand1.HeightF = 27F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.line1, + this.label3, + this.label2}); + this.ReportFooter.HeightF = 171.875F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + // + // PageHeader + // + this.PageHeader.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label20, + this.label19, + this.label18, + this.label17, + this.label15, + this.label11, + this.table1, + this.pageInfo1, + this.pageInfo2, + this.label1}); + this.PageHeader.HeightF = 179.1667F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseBorderDashStyle = false; + // + // line3 + // + this.line3.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.line3.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 20F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(766.9999F, 5.00001F); + this.line3.StylePriority.UseBorderDashStyle = false; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.SerialNumber")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(677F, 0F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(89.99988F, 20F); + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.PacketNumber")}); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(582.3412F, 0F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(92.11987F, 20F); + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.Units.ShortName")}); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(537.4264F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(44.91479F, 20F); + this.label8.StylePriority.UseTextAlignment = false; + this.label8.Text = "label8"; + this.label8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:#,0.00}")}); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(461.9455F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(72.50009F, 20F); + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label6 + // + this.label6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ShortName")}); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(156.5113F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(305.4341F, 20F); + this.label6.StylePriority.UseBorderDashStyle = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "StorageOutRowsInRows.StorageInRows.Products.ProductNumber")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(60F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(95F, 20F); + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex")}); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(39.98F, 20F); + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(511.32F, 101.5224F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(200.7856F, 2.40382F); + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(48.39745F, 101.5224F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(201.9231F, 2.006409F); + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(563.0303F, 113.5802F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "Átvevő"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(97.43589F, 113.5802F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Átadó"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DocumentNumber")}); + this.label12.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(497.6563F, 68.66665F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(259.344F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label20.Font = new System.Drawing.Font("Arial", 9F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 111.6667F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 111.6667F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Dátum:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.UserCreated.DisplayName", "Létrehozta: {0}")}); + this.label18.Font = new System.Drawing.Font("Arial", 9F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(497.6563F, 111.6667F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(259.344F, 19.99995F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "label18"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label17 + // + this.label17.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.DateCreated", "Létrehozás dátuma: {0:yyyy.MM.dd.}")}); + this.label17.Font = new System.Drawing.Font("Arial", 9F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(497.656F, 91.66666F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(259.3441F, 19.99998F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "label17"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DeliveryNoteOutHeader.CustomersFrom.DisplayName")}); + this.label15.Font = new System.Drawing.Font("Arial", 9F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(80.83331F, 91.66666F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(268.75F, 20F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "label15"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 91.66666F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(70.83333F, 20F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "Saját cég:"; + // + // table1 + // + this.table1.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.Solid; + this.table1.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.table1.BorderWidth = 1; + this.table1.Font = new System.Drawing.Font("Arial", 9F); + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0.0001271566F, 151.4584F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(766.9999F, 25F); + this.table1.StylePriority.UseBorderDashStyle = false; + this.table1.StylePriority.UseBorders = false; + this.table1.StylePriority.UseBorderWidth = false; + this.table1.StylePriority.UseFont = false; + this.table1.StylePriority.UseTextAlignment = false; + this.table1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy.MM.dd.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 10.00001F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "{0}/{1}. oldal"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(657.0001F, 33.00002F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.StylePriority.UseTextAlignment = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 10.00001F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(767F, 58.41666F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "Szállítólevél - kiszállítás"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell3, + this.tableCell4, + this.tableCell6, + this.tableCell7}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = "Sorszám"; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + this.tableCell1.Weight = 0.32567369253076384D; + // + // tableCell2 + // + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseTextAlignment = false; + this.tableCell2.Text = " Cikkszám"; + this.tableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell2.Weight = 0.60108320754082867D; + // + // tableCell3 + // + this.tableCell3.Name = "tableCell3"; + this.tableCell3.Text = " Megnevezés"; + this.tableCell3.Weight = 1.808579388234578D; + // + // tableCell4 + // + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseTextAlignment = false; + this.tableCell4.Text = " Betárolt mennyiség"; + this.tableCell4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell4.Weight = 0.71290354740057393D; + // + // tableCell6 + // + this.tableCell6.Name = "tableCell6"; + this.tableCell6.StylePriority.UseTextAlignment = false; + this.tableCell6.Text = " Kötegszám"; + this.tableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell6.Weight = 0.54547302291517286D; + // + // tableCell7 + // + this.tableCell7.Name = "tableCell7"; + this.tableCell7.StylePriority.UseTextAlignment = false; + this.tableCell7.Text = " Sorozatszám"; + this.tableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell7.Weight = 0.54795401149527023D; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader}); + this.BorderWidth = 2; + this.DisplayName = "Szállítólevél - kimenő"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.Margins = new System.Drawing.Printing.Margins(30, 30, 26, 27); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "12.1"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Számlát helyetesítő okirat.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Számlát helyetesítő okirat.repx new file mode 100644 index 0000000..27812f8 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Számlát helyetesítő okirat.repx @@ -0,0 +1,1316 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLabel label67; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.FormattingRule Stornó; + private DevExpress.XtraReports.UI.XRLabel ConnectInfo; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel DocumentNumber; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRPageBreak pageBreak1; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label61; + private DevExpress.XtraReports.UI.XRLine line5; + private DevExpress.XtraReports.UI.XRLabel label62; + private DevExpress.XtraReports.UI.XRLabel label63; + private DevExpress.XtraReports.UI.XRLabel label64; + private DevExpress.XtraReports.UI.XRLabel label65; + private DevExpress.XtraReports.UI.XRLine line9; + private DevExpress.XtraReports.UI.XRLabel label66; + private DevExpress.XtraReports.UI.XRLine line10; + private DevExpress.XtraReports.UI.XRLine line8; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField Address_CustomersFrom; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAHAAAAAAAAAFBBRFBBRFAFQIOWS" + + "F5ywcZ0uN7j8d/grBNR4gGHaUXVHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAAvwAAAPkBAAAmJAB0A" + + "GgAaQBzAC4AUwBjAHIAaQBwAHQAcwBTAG8AdQByAGMAZQAAAAAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQ" + + "wBsAGEAcwBzAE4AYQBtAGUAzAIAAAxGAGkAbAB0AGUAcgDsAgAAIkYAaQBsAHQAZQByAEQAZQBzAGMAc" + + "gBpAHAAdABpAG8AbgDuAgAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlA" + + "HcA8AIAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQDyAgAAF" + + "FIAZQBwAG8AcgB0AE4AYQBtAGUA8wIAAAHJBWRpbSBfT2lkQ3VycmVudCBhcyBzdHJpbmcNCmRpbSBfT" + + "2lkUHJldiBhcyBzdHJpbmcNCg0KUHJpdmF0ZSBTdWIgbGFiZWw2MV9CZWZvcmVQcmludChCeVZhbCBzZ" + + "W5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlIEFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlb" + + "nRBcmdzKQ0KbGFiZWw2MS5UZXh0PWxhYmVsNjEuVGV4dCAmICIgIiAmIGxhYmVsMjUuVGV4dA0KRW5kI" + + "FN1Yg0KDQpQcml2YXRlIFN1YiBzdWJyZXBvcnQxX0JlZm9yZVByaW50KEJ5VmFsIHNlbmRlciBBcyBPY" + + "mplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRFdmVudEFyZ3MpDQpDV" + + "HlwZShzZW5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nPSJJbnZvaWNlS" + + "GVhZGVyLk9pZD0nIiAmIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmICInIg0KDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIGxhYmVsMV9CZWZvcmVQcmludChCeVZhbCBzZW5kZXIgQXMgT2JqZWN0LCBCeVZhbCBlI" + + "EFzIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50RXZlbnRBcmdzKQ0KaWYgRG9jdW1lbnROdW1iZ" + + "XIuVGV4dD0iIiB0aGVuIGxhYmVsMS5UZXh0PSJFTMWQTEVHLCBGT0dMQUzDkyBCRUvDiVLFkCINCmlmI" + + "ERvY3VtZW50TnVtYmVyLlRleHQ8PkNvbm5lY3RJbmZvLlRleHQgdGhlbiBsYWJlbDEuVGV4dD0iU1RPU" + + "k7DkyBPS0lSQVQiDQpFbmQgU3ViAR5TSVNCdXNpbmVzcy5Nb2R1bGUuSW52b2ljZVJvd3MBAAEAAQAAA" + + "R5TesOhbWzDoXQgaGVseWV0ZXPDrXTFkSBva2lyYXQ="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.label67 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageBreak1 = new DevExpress.XtraReports.UI.XRPageBreak(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label61 = new DevExpress.XtraReports.UI.XRLabel(); + this.line5 = new DevExpress.XtraReports.UI.XRLine(); + this.label62 = new DevExpress.XtraReports.UI.XRLabel(); + this.label63 = new DevExpress.XtraReports.UI.XRLabel(); + this.label64 = new DevExpress.XtraReports.UI.XRLabel(); + this.label65 = new DevExpress.XtraReports.UI.XRLabel(); + this.line9 = new DevExpress.XtraReports.UI.XRLine(); + this.label66 = new DevExpress.XtraReports.UI.XRLabel(); + this.line10 = new DevExpress.XtraReports.UI.XRLine(); + this.line8 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.ConnectInfo = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.DocumentNumber = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.Stornó = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.Address_CustomersFrom = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label31, + this.line6, + this.label27, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.label41, + this.label35}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.detailBand1.HeightF = 40.79165F; + this.detailBand1.KeepTogether = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("SumPriceBruttoHUF", DevExpress.XtraReports.UI.XRColumnSortOrder.Descending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 0F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 28F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label67, + this.pageInfo1}); + this.bottomMarginBand1.HeightF = 42F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageBreak1, + this.subreport1, + this.label61, + this.line5, + this.label62, + this.label63, + this.label64, + this.label65, + this.line9, + this.label66, + this.line10, + this.line8, + this.label11}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.GroupFooter1.HeightF = 236.2919F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.PrintAtBottom = true; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label30, + this.ConnectInfo, + this.label1, + this.label2, + this.label3, + this.label4, + this.label6, + this.label7, + this.label9, + this.label10, + this.label12, + this.label13, + this.label8, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label24, + this.label25, + this.label26, + this.DocumentNumber, + this.label32, + this.label33, + this.label34, + this.label36, + this.label37, + this.label38, + this.label39, + this.label40, + this.line1, + this.line2, + this.line4, + this.label28, + this.label5, + this.label29}); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("InvoiceHeader.Oid", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 341.7499F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.RepeatEveryPage = true; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Units.ShortName")}); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(274.9999F, 6.357829E-05F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(44.83334F, 17.79162F); + this.label31.Text = "label31"; + // + // line6 + // + this.line6.BorderDashStyle = DevExpress.XtraPrinting.BorderDashStyle.DashDot; + this.line6.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 35.58331F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(741.9999F, 5.208336F); + this.line6.StylePriority.UseBorderDashStyle = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 17.79169F); + this.label27.Multiline = true; + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(628.1251F, 17.7916F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,#}")}); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 6.357829E-05F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(101.0416F, 17.79161F); + this.label47.StylePriority.UseTextAlignment = false; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,#}")}); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 6.357829E-05F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(97.29175F, 17.79161F); + this.label46.StylePriority.UseTextAlignment = false; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 0F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(43.8334F, 17.79167F); + this.label45.StylePriority.UseTextAlignment = false; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceHUF", "{0:#,#}")}); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 0F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(85.99988F, 17.79169F); + this.label44.StylePriority.UseTextAlignment = false; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PriceHUF", "{0:#,#}")}); + this.label43.Font = new System.Drawing.Font("Arial", 9F); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 0F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(90F, 17.79169F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "QTT", "{0:n1}")}); + this.label42.Font = new System.Drawing.Font("Arial", 9F); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 0F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(38.54161F, 17.79169F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label41.Font = new System.Drawing.Font("Arial", 9F); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(61.37497F, 6.357829E-05F); + this.label41.Multiline = true; + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(175.0834F, 17.7916F); + this.label41.StylePriority.UseFont = false; + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label35 + // + this.label35.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CustomsTariffs.CustomsTariffNumber")}); + this.label35.Font = new System.Drawing.Font("Arial", 9F); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 0F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(57.29159F, 17.79167F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "label35"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label67 + // + this.label67.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Italic); + this.label67.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.label67.Name = "label67"; + this.label67.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label67.SizeF = new System.Drawing.SizeF(394.7915F, 23F); + this.label67.StylePriority.UseFont = false; + this.label67.Text = "Készült a Sis-Rendszerház Kft. Sis-Business rendszerprogramjával"; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.pageInfo1.Format = "Oldal : {0}/{1}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(635.4167F, 9.999974F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.RunningBand = this.GroupHeader1; + this.pageInfo1.SizeF = new System.Drawing.SizeF(100F, 23F); + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageBreak1 + // + this.pageBreak1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 234.2919F); + this.pageBreak1.Name = "pageBreak1"; + this.pageBreak1.Scripts.OnBeforePrint = "pageBreak1_BeforePrint"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 21.80506F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Kimenő számla ÁFA"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(742F, 31.33993F); + // + // label61 + // + this.label61.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.HUNumberToText")}); + this.label61.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 71.10748F); + this.label61.Name = "label61"; + this.label61.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label61.Scripts.OnBeforePrint = "label61_BeforePrint"; + this.label61.SizeF = new System.Drawing.SizeF(737.9169F, 23F); + this.label61.StylePriority.UseTextAlignment = false; + this.label61.Text = "label61"; + this.label61.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line5 + // + this.line5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 9.999974F); + this.line5.Name = "line5"; + this.line5.SizeF = new System.Drawing.SizeF(744F, 11.80509F); + // + // label62 + // + this.label62.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label62.LocationFloat = new DevExpress.Utils.PointFloat(0F, 104.5242F); + this.label62.Name = "label62"; + this.label62.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label62.SizeF = new System.Drawing.SizeF(103.5416F, 22.99999F); + this.label62.StylePriority.UseFont = false; + this.label62.Text = "Megjegyzés"; + // + // label63 + // + this.label63.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Description")}); + this.label63.LocationFloat = new DevExpress.Utils.PointFloat(103.5416F, 104.5242F); + this.label63.Multiline = true; + this.label63.Name = "label63"; + this.label63.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label63.SizeF = new System.Drawing.SizeF(634.3751F, 23.00002F); + this.label63.Text = "label63"; + // + // label64 + // + this.label64.LocationFloat = new DevExpress.Utils.PointFloat(536.9584F, 215.4586F); + this.label64.Name = "label64"; + this.label64.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label64.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label64.Text = "Számlát kiállító"; + // + // label65 + // + this.label65.LocationFloat = new DevExpress.Utils.PointFloat(0F, 138.5417F); + this.label65.Name = "label65"; + this.label65.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label65.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label65.Text = "Átvétel dátuma:"; + // + // line9 + // + this.line9.LocationFloat = new DevExpress.Utils.PointFloat(100F, 159.4584F); + this.line9.Name = "line9"; + this.line9.SizeF = new System.Drawing.SizeF(173.9583F, 2.083328F); + // + // label66 + // + this.label66.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 187.5834F); + this.label66.Name = "label66"; + this.label66.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label66.SizeF = new System.Drawing.SizeF(100F, 18.83334F); + this.label66.StylePriority.UseTextAlignment = false; + this.label66.Text = "Átvevő"; + this.label66.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line10 + // + this.line10.LocationFloat = new DevExpress.Utils.PointFloat(101.0416F, 204.3334F); + this.line10.Name = "line10"; + this.line10.SizeF = new System.Drawing.SizeF(173.9583F, 2.083344F); + // + // line8 + // + this.line8.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 204.3334F); + this.line8.Name = "line8"; + this.line8.SizeF = new System.Drawing.SizeF(186.4583F, 2F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(4.083315F, 53.14496F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(246.9584F, 17.96252F); + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label30.FormattingRules.Add(this.Stornó); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 178.0417F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(116.1669F, 19.9583F); + this.label30.StylePriority.UseFont = false; + this.label30.StylePriority.UseTextAlignment = false; + this.label30.Text = "számla stornója"; + this.label30.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // ConnectInfo + // + this.ConnectInfo.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.ConnectInfo")}); + this.ConnectInfo.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.ConnectInfo.FormattingRules.Add(this.Stornó); + this.ConnectInfo.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 178.0417F); + this.ConnectInfo.Name = "ConnectInfo"; + this.ConnectInfo.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.ConnectInfo.SizeF = new System.Drawing.SizeF(134.8749F, 23F); + this.ConnectInfo.StylePriority.UseFont = false; + this.ConnectInfo.StylePriority.UseTextAlignment = false; + this.ConnectInfo.Text = "ConnectInfo"; + this.ConnectInfo.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.Scripts.OnBeforePrint = "label1_BeforePrint"; + this.label1.SizeF = new System.Drawing.SizeF(738F, 39.66667F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "SZÁMLÁT HELYETESÍTŐ OKIRAT"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.33335F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(152.0833F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Számla kibocsátó"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Italic); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 56.33335F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(71.24994F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Vevő"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Name")}); + this.label4.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(0F, 79.33337F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(251.0417F, 27.08334F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 137.6666F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(81.25F, 22.99998F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Adószám:"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_VATNumber")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(81.24997F, 137.6666F); + this.label7.Multiline = true; + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 160.6666F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(325.5F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_Name")}); + this.label10.Font = new System.Drawing.Font("Arial", 11F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 79.33334F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(247.375F, 27.08334F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 133.4165F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(77.58331F, 22.99998F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Adószám:"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_VATNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 9F); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(568.2083F, 133.4165F); + this.label13.Multiline = true; + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(169.7917F, 22.99998F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 160.6666F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(122.9166F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bankszámlaszám:"; + // + // label14 + // + this.label14.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label14.Font = new System.Drawing.Font("Arial", 9.75F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(0F, 201.0417F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(122.9166F, 41.04155F); + this.label14.StylePriority.UseBorders = false; + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Kiállítás dátuma"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label15.Font = new System.Drawing.Font("Arial", 9.75F); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 201.0418F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(113.5417F, 41.0414F); + this.label15.StylePriority.UseBorders = false; + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Teljesítés dátuma"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label16 + // + this.label16.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label16.Font = new System.Drawing.Font("Arial", 9.75F); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 201.0416F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(113.5415F, 41.04155F); + this.label16.StylePriority.UseBorders = false; + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési határidő"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label17 + // + this.label17.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label17.Font = new System.Drawing.Font("Arial", 9.75F); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 201.0418F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(98.41672F, 41.04146F); + this.label17.StylePriority.UseBorders = false; + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Fizetési mód"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label18 + // + this.label18.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label18.Font = new System.Drawing.Font("Arial", 9.75F); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(625.4999F, 201.0417F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(118.5001F, 41.04147F); + this.label18.StylePriority.UseBorders = false; + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Számlaszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label19 + // + this.label19.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label19.Font = new System.Drawing.Font("Arial", 9.75F); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 201.0418F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(107.2917F, 41.04134F); + this.label19.StylePriority.UseBorders = false; + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Szerződésszám "; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label20 + // + this.label20.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label20.Font = new System.Drawing.Font("Arial", 9.75F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 201.0418F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(69.79166F, 41.04146F); + this.label20.StylePriority.UseBorders = false; + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "Pénznem"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label21 + // + this.label21.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateCreated", "{0:yyyy.MM.dd.}")}); + this.label21.Font = new System.Drawing.Font("Arial", 9F); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 242.0832F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(121.8749F, 33.41666F); + this.label21.StylePriority.UseBorders = false; + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label22 + // + this.label22.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label22.Font = new System.Drawing.Font("Arial", 9F); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(122.9166F, 242.0832F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(113.5417F, 33.41675F); + this.label22.StylePriority.UseBorders = false; + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label23 + // + this.label23.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label23.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DatePayment", "{0:yyyy.MM.dd.}")}); + this.label23.Font = new System.Drawing.Font("Arial", 9F); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 242.0834F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(113.5415F, 33.41672F); + this.label23.StylePriority.UseBorders = false; + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "label23"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label24 + // + this.label24.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.PaymentOption.ShortName")}); + this.label24.Font = new System.Drawing.Font("Arial", 9F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(349.9999F, 242.0832F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(98.41672F, 33.41675F); + this.label24.StylePriority.UseBorders = false; + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "label24"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label25 + // + this.label25.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.CurrencyName.ShortName")}); + this.label25.Font = new System.Drawing.Font("Arial", 9.75F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(448.4166F, 242.0832F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(69.79166F, 33.41675F); + this.label25.StylePriority.UseBorders = false; + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label26 + // + this.label26.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label26.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(518.2081F, 242.0834F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(107.2916F, 33.41672F); + this.label26.StylePriority.UseBorders = false; + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // DocumentNumber + // + this.DocumentNumber.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.DocumentNumber.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.DocumentNumber")}); + this.DocumentNumber.Font = new System.Drawing.Font("Arial", 9.75F, System.Drawing.FontStyle.Bold); + this.DocumentNumber.LocationFloat = new DevExpress.Utils.PointFloat(625.4998F, 242.0834F); + this.DocumentNumber.Name = "DocumentNumber"; + this.DocumentNumber.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.DocumentNumber.SizeF = new System.Drawing.SizeF(118.5002F, 33.4167F); + this.DocumentNumber.StylePriority.UseBorders = false; + this.DocumentNumber.StylePriority.UseFont = false; + this.DocumentNumber.StylePriority.UseTextAlignment = false; + this.DocumentNumber.Text = "DocumentNumber"; + this.DocumentNumber.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label32 + // + this.label32.Font = new System.Drawing.Font("Arial", 9F); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(61.37498F, 302.0833F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(175.0834F, 35.49994F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + this.label32.Text = "Megnevezés"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(4.083379F, 302.0833F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(57.29159F, 35.5F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "SZJ/ VTSZ"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label34 + // + this.label34.Font = new System.Drawing.Font("Arial", 9F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(236.4583F, 302.0833F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(83.37502F, 35.5F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "Mennyiség"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 9F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(319.8333F, 302.0832F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "Nettó egységár"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label37 + // + this.label37.Font = new System.Drawing.Font("Arial", 9F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(409.8333F, 302.0831F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(90F, 35.5F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "Nettó érték"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label38 + // + this.label38.Font = new System.Drawing.Font("Arial", 9F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(640.9584F, 302.0832F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(103.0416F, 35.49991F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "Bruttó érték"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 9F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(499.8333F, 302.0833F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(43.8334F, 35.49991F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label40 + // + this.label40.Font = new System.Drawing.Font("Arial", 9F); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(543.6667F, 302.0833F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(97.29175F, 35.49997F); + this.label40.StylePriority.UseFont = false; + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "ÁFA érték"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 286.4583F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 337.5833F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(742.9583F, 2.083344F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 339.6666F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(742.9583F, 2.083313F); + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_CustomersFrom_FullAddress")}); + this.label28.Font = new System.Drawing.Font("Arial", 9F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(1.041603F, 106.4168F); + this.label28.Multiline = true; + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(447.375F, 23F); + this.label28.StylePriority.UseFont = false; + this.label28.Text = "label28"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Saved_Customers_FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(490.6249F, 106.4168F); + this.label5.Multiline = true; + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(247.375F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "InvoiceHeader.Customers.CustomerNumber")}); + this.label29.Font = new System.Drawing.Font("Arial", 10F, ((System.Drawing.FontStyle)((System.Drawing.FontStyle.Bold | System.Drawing.FontStyle.Italic)))); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(587.5F, 56.33335F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(150.4999F, 22.99998F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Stornó + // + this.Stornó.Condition = "[InvoiceHeader.DocumentNumber] == [InvoiceHeader.ConnectInfo]"; + // + // + // + this.Stornó.Formatting.Visible = DevExpress.Utils.DefaultBoolean.False; + this.Stornó.Name = "Stornó"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // Address_CustomersFrom + // + this.Address_CustomersFrom.Expression = "Concat([InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal],\' \', [InvoiceHeader." + + "Saved_CustomersFrom_Address_Country]) "; + this.Address_CustomersFrom.FieldType = DevExpress.XtraReports.UI.FieldType.String; + this.Address_CustomersFrom.Name = "Address_CustomersFrom"; + this.Address_CustomersFrom.Scripts.OnGetValue = "Address_CustomersFrom_GetValue"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.Address_CustomersFrom}); + this.DisplayName = "Számlát helyetesítő okirat"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Times New Roman", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.Stornó}); + this.Margins = new System.Drawing.Printing.Margins(38, 45, 28, 42); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.Scripts.OnBeforePrint = "xafReport1_BeforePrint"; + this.Scripts.OnDataSourceRowChanged = "xafReport1_DataSourceRowChanged"; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Teljesítési igazolás.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Teljesítési igazolás.repx new file mode 100644 index 0000000..1b30b8f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Teljesítési igazolás.repx @@ -0,0 +1,710 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRRichText richText1; + private DevExpress.XtraReports.UI.XRLine line6; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLine line3; + private DevExpress.XtraReports.UI.XRLine line4; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField km_today; + private DevExpress.XtraReports.UI.CalculatedField Storno; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAAAAAFBBRFBBRFAFQIOWZ" + + "jN/wsZ0uN7j8d/grBNR4lvRzRMBh2lF1RwbeSsAAADiAAAAYwAAADwAAADJAAAA/QAAAAAAAACUAAAAN" + + "AIAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAcwBOAGEAbQBlAAAAAAAMRgBpAGwAdABlAHIAL" + + "gAAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAaQBvAG4AMAAAACxGAGkAbAB0AGUAcgBGAG8Ac" + + "gBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3ADIAAAAwUABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlA" + + "GMAdABUAHkAcABlAE4AYQBtAGUANAAAABRSAGUAcABvAHIAdABOAGEAbQBlADUAAAAWbABhAGIAZQBsA" + + "DYALgBUAGUAeAB0AE4AAAA+cgBpAGMAaABUAGUAeAB0ADEALgBTAGUAcgBpAGEAbABpAHoAYQBiAGwAZ" + + "QBSAHQAZgBTAHQAcgBpAG4AZwBjAQAAASxTSVNCdXNpbmVzcy5Nb2R1bGUuQ2VydGlmaWNhdGVvZkNvb" + + "nRyYWN0Um93cwEAAQABAAABF1RlbGplc8OtdMOpc2kgaWdhem9sw6FzAZICQWx1bMOtcm90dCwgbWlud" + + "CBhIHN6ZXJ6xZFkw6lzIG1lZ3JlbmRlbMWRasOpbmVrIGvDqXB2aXNlbMWRamUsIGplbGVuIGplZ3l6x" + + "ZFrw7ZueXYgYWzDocOtcsOhc8OhdmFsIGlnYXpvbG9tLCBob2d5IGF6IGFsw6FiYiBmZWxzb3JvbHQsI" + + "HN6ZXJ6xZFkw6lzIHLDqXN6w6l0IGvDqXBlesWRIHTDqXRlbGVrIHRlbGplc8OtdMOpc3JlIGtlcsO8b" + + "HRlay4gSmVsZW4gaWdhem9sw6FzIGFsYXBqw6FuIGEgc3rDoWxsw610w7Mgc3rDoW1sYSBracOhbGzDr" + + "XTDoXPDoXJhIGpvZ29zdWx0LgGEBGV3QmNBSElBZEFCbUFERUFYQUJoQUc0QWN3QnBBR01BY0FCbkFER" + + "UFNZ0ExQURBQURRQUtBSHNBRFFBS0FGd0FaZ0J2QUc0QWRBQjBBR0lBYkFBTkFBb0Fld0JjQUdZQU1BQ" + + "WdBRlFBYVFCdEFHVUFjd0FnQUU0QVpRQjNBQ0FBVWdCdkFHMEFZUUJ1QURzQWZRQU5BQW9BZXdCY0FHW" + + "UFNUUFnQUVFQWNnQnBBR0VBYkFBN0FIMEFEUUFLQUgwQURRQUtBSHNBRFFBS0FGd0FZd0J2QUd3QWJ3Q" + + "nlBSFFBWWdCc0FBMEFDZ0E3QUEwQUNnQmNBSElBWlFCa0FEQUFYQUJuQUhJQVpRQmxBRzRBTUFCY0FHS" + + "UFiQUIxQUdVQU1BQTdBQTBBQ2dCY0FISUFaUUJrQURBQVhBQm5BSElBWlFCbEFHNEFNQUJjQUdJQWJBQ" + + "jFBR1VBTWdBMUFEVUFPd0FOQUFvQWZRQU5BQW9BZXdCY0FITUFaUUJqQUhRQVpBQmNBSEFBWVFCeUFHU" + + "UFYQUJ3QUd3QVlRQnBBRzRBWEFCeEFHd0Fld0JjQUdZQU1RQmNBR1lBY3dBeUFEQUFYQUJqQUdZQU1RQ" + + "WdBSElBYVFCakFHZ0FWQUJsQUhnQWRBQXhBSDBBWEFCd0FHRUFjZ0I5QUEwQUNnQjlBQTBBQ2dBPQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.richText1 = new DevExpress.XtraReports.UI.XRRichText(); + this.line6 = new DevExpress.XtraReports.UI.XRLine(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.line3 = new DevExpress.XtraReports.UI.XRLine(); + this.line4 = new DevExpress.XtraReports.UI.XRLine(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.km_today = new DevExpress.XtraReports.UI.CalculatedField(); + this.Storno = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.richText1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label27, + this.label20}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 10F); + this.detailBand1.HeightF = 24.7083F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label16, + this.label15, + this.label5, + this.label6, + this.label2, + this.label1, + this.label4, + this.richText1, + this.line6, + this.line2, + this.label23, + this.label22, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label3, + this.label36}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 10F); + this.reportHeaderBand1.HeightF = 514.6666F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 30F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 50F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // GroupFooter1 + // + this.GroupFooter1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1, + this.label32, + this.label31}); + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 10F); + this.GroupFooter1.HeightF = 45.91668F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label39, + this.label38, + this.line3, + this.line4, + this.label7, + this.label14}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 10F); + this.ReportFooter.HeightF = 214.5833F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.RegistryRowsFinancialControlling.Amount", "{0:#,#}")}); + this.label27.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(147.9167F, 23.00002F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.ShortName")}); + this.label20.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(50.00016F, 0F); + this.label20.Multiline = true; + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(301.0417F, 23.00002F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "label20"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label16 + // + this.label16.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Storno")}); + this.label16.Font = new System.Drawing.Font("Arial", 20F, System.Drawing.FontStyle.Bold); + this.label16.ForeColor = System.Drawing.Color.Firebrick; + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 94.79166F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(767F, 29.24999F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseForeColor = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "label16"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(462.8333F, 285.5833F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(121.8748F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Iktatószám:"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.RegistryRowsFinancialControlling.RegistryHeader.RegistryNumber")}); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(584.7081F, 285.5834F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(182.2917F, 23F); + this.label5.Text = "label5"; + // + // label6 + // + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(50.00016F, 373.9583F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(669.0831F, 56.33334F); + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = resources.GetString("label6.Text"); + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleJustify; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(462.8333F, 262.5833F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(121.875F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.Text = "Sorszám:"; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(462.8333F, 308.5833F); + this.label1.Multiline = true; + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(121.8749F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "Kiállítás dátuma:\r\n"; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CertificateofContractHeader.DocumentNumber")}); + this.label4.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(584.7083F, 262.5833F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(182.2917F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // richText1 + // + this.richText1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Rtf", null, "CertificateofContractHeader.ReportHeader")}); + this.richText1.Font = new System.Drawing.Font("Arial", 10F); + this.richText1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 133.4167F); + this.richText1.Name = "richText1"; + this.richText1.SerializableRtfString = resources.GetString("richText1.SerializableRtfString"); + this.richText1.SizeF = new System.Drawing.SizeF(766.9998F, 106.1667F); + this.richText1.StylePriority.UseFont = false; + // + // line6 + // + this.line6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 478.3332F); + this.line6.Name = "line6"; + this.line6.SizeF = new System.Drawing.SizeF(766.9999F, 2.166656F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(9.536743E-05F, 507.2915F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(766.9998F, 2F); + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(451.0417F, 481.6666F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(204.1249F, 23.00003F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Szerződés szerinti nettó érték"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(98.95827F, 481.6666F); + this.label22.Multiline = true; + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(101.0416F, 23F); + this.label22.StylePriority.UseFont = false; + this.label22.Text = "Megnevezés"; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.DocumentNumber")}); + this.label13.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(126F, 262.5833F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(278.125F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "label13"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 262.5833F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Szerződésszám:"; + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CertificateofContractHeader.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label11.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(126F, 308.5833F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(278.125F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "label11"; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(0F, 308.5833F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "Teljesítés dátuma:"; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.Contracts.ShortName")}); + this.label9.Font = new System.Drawing.Font("Arial", 10F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(126F, 285.5834F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(278.125F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "label9"; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 285.5833F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(126F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Tárgy:"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 14F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0.0001589457F, 46F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(766.9998F, 33.41665F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "TELJESÍTÉSIGAZOLÁSI JEGYZŐKÖNYV"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label36 + // + this.label36.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(584.7083F, 308.5833F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(182.2916F, 23.00003F); + this.label36.StylePriority.UseFont = false; + this.label36.Text = "[km_today!yyyy.MM.dd.]"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 5F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(766.9998F, 2.083334F); + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ContractRows.RegistryRowsFinancialControlling.Amount")}); + this.label32.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(490.625F, 12.91669F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(147.9167F, 23.00002F); + this.label32.StylePriority.UseFont = false; + this.label32.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,#}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label32.Summary = summary1; + this.label32.Text = "label32"; + this.label32.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label31 + // + this.label31.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(50.00016F, 12.91669F); + this.label31.Multiline = true; + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(199.9999F, 23F); + this.label31.StylePriority.UseFont = false; + this.label31.Text = "Teljesítés igazolva összesen:"; + // + // label39 + // + this.label39.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CertificateofContractHeader.Contracts.CustomersFrom.FullName")}); + this.label39.Font = new System.Drawing.Font("Arial", 10F); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(407.25F, 123.25F); + this.label39.Multiline = true; + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(297.9167F, 23F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "label39"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CertificateofContractHeader.Contracts.Customers.FullName")}); + this.label38.Font = new System.Drawing.Font("Arial", 10F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(106.2082F, 123.25F); + this.label38.Multiline = true; + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(254.1667F, 23F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // line3 + // + this.line3.LocationFloat = new DevExpress.Utils.PointFloat(135.375F, 108.6667F); + this.line3.Name = "line3"; + this.line3.SizeF = new System.Drawing.SizeF(198.9583F, 2F); + // + // line4 + // + this.line4.LocationFloat = new DevExpress.Utils.PointFloat(457.25F, 108.6667F); + this.line4.Name = "line4"; + this.line4.SizeF = new System.Drawing.SizeF(198.9584F, 2.000015F); + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 10F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(135.375F, 151.875F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(198.9583F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + this.label7.Text = "Megrendelő képviselője"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 10F); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(457.25F, 151.875F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(198.9584F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Szállító képviselője"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // km_today + // + this.km_today.Expression = "Today()"; + this.km_today.Name = "km_today"; + // + // Storno + // + this.Storno.Expression = "Iif([CertificateofContractHeader.IsStorno],\'SZTORNÓ!\',\'\')"; + this.Storno.Name = "Storno"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.ReportFooter}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.km_today, + this.Storno}); + this.DisplayName = "Teljesítési igazolás"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial Narrow", 10F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Margins = new System.Drawing.Printing.Margins(30, 30, 30, 50); + this.Name = "xafReport1"; + this.PageHeight = 1169; + this.PageWidth = 827; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = "\r\nPrivate Sub label16_BeforePrint(ByVal sender As Object, ByVal e As System.Drawi" + + "ng.Printing.PrintEventArgs)\r\n\r\nEnd Sub\r\n"; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this.richText1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport (alriport).repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport (alriport).repx new file mode 100644 index 0000000..aa5256f --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport (alriport).repx @@ -0,0 +1,495 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.GroupFooterBand GroupFooter1; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader1; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.GroupHeaderBand GroupHeader2; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAjAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAlAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQApAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKgAAAAEhU0lTQnVzaW5lc3MuTW9kdWxlLlZBVFJlcG9ydEdyb3VwAQABAAEAAAEWw4FGQSBSaXBvcnQgKGFscmlwb3J0KQ=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary7 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary8 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.GroupFooter1 = new DevExpress.XtraReports.UI.GroupFooterBand(); + this.GroupHeader1 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.GroupHeader2 = new DevExpress.XtraReports.UI.GroupHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Expanded = false; + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 25.00001F; + this.detailBand1.KeepTogetherWithDetailReports = true; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + this.detailBand1.Visible = false; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.line1}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 8F); + this.reportHeaderBand1.HeightF = 77.79166F; + this.reportHeaderBand1.KeepTogether = true; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.topMarginBand1.HeightF = 15F; + this.topMarginBand1.Name = "topMarginBand1"; + this.topMarginBand1.StylePriority.UseFont = false; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Font = new System.Drawing.Font("Arial", 8F); + this.bottomMarginBand1.HeightF = 16F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + this.bottomMarginBand1.StylePriority.UseFont = false; + // + // GroupFooter1 + // + this.GroupFooter1.Expanded = false; + this.GroupFooter1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupFooter1.HeightF = 25.00001F; + this.GroupFooter1.KeepTogether = true; + this.GroupFooter1.Name = "GroupFooter1"; + this.GroupFooter1.StylePriority.UseFont = false; + // + // GroupHeader1 + // + this.GroupHeader1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label6, + this.label5, + this.label4, + this.label3, + this.label2}); + this.GroupHeader1.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader1.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("VAT.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader1.HeightF = 17.08333F; + this.GroupHeader1.KeepTogether = true; + this.GroupHeader1.Name = "GroupHeader1"; + this.GroupHeader1.StylePriority.UseFont = false; + // + // GroupHeader2 + // + this.GroupHeader2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label8}); + this.GroupHeader2.Font = new System.Drawing.Font("Arial", 8F); + this.GroupHeader2.GroupFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("PartnerType", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.GroupHeader2.HeightF = 13.625F; + this.GroupHeader2.KeepTogether = true; + this.GroupHeader2.Level = 1; + this.GroupHeader2.Name = "GroupHeader2"; + this.GroupHeader2.StylePriority.UseFont = false; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2, + this.label11, + this.label10, + this.label9, + this.label7}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 8F); + this.ReportFooter.HeightF = 41.66667F; + this.ReportFooter.KeepTogether = true; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial", 12F, System.Drawing.FontStyle.Bold); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(9.999974F, 46.24999F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(100.5F, 21.54167F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.Text = "Összesítés:"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 67.79166F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(1123F, 4.166683F); + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName")}); + this.label6.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(86.04164F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(293.75F, 13.00001F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "label6"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBase")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(796.6667F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100.2498F, 13.00001F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label5.Summary = summary1; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOutBase")}); + this.label4.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(701.4999F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(95.16693F, 13.00001F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label4.Summary = summary2; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOut")}); + this.label3.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(506.5F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(94.99982F, 13.00001F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label3.Summary = summary3; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATIn")}); + this.label2.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(601.4999F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 13.00001F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group; + this.label2.Summary = summary4; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PartnerType")}); + this.label8.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(328.125F, 13.625F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 2.083333F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(1123F, 3.125F); + // + // label11 + // + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBase")}); + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(796.6667F, 10.00001F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100.2498F, 13.00001F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label11.Summary = summary5; + this.label11.Text = "label11"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOutBase")}); + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(701.4999F, 10.00001F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(95.16693F, 13.00001F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label10.Summary = summary6; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATIn")}); + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(606.5001F, 10.00001F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(94.99982F, 13.00001F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + summary7.FormatString = "{0:#,##}"; + summary7.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label9.Summary = summary7; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOut")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(501.4998F, 10.00001F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(100F, 13.00001F); + this.label7.StylePriority.UseFont = false; + this.label7.StylePriority.UseTextAlignment = false; + summary8.FormatString = "{0:#,##}"; + summary8.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label7.Summary = summary8; + this.label7.Text = "label7"; + this.label7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.GroupFooter1, + this.GroupHeader1, + this.GroupHeader2, + this.ReportFooter}); + this.DisplayName = "ÁFA Riport (alriport)"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(23, 23, 15, 16); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport.repx new file mode 100644 index 0000000..a67e5ad --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/ÁFA Riport.repx @@ -0,0 +1,1026 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.1, Version=11.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.1\11.1.4.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.1.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// en-US +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label40; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label38; + private DevExpress.XtraReports.UI.XRLabel label37; + private DevExpress.XtraReports.UI.XRLabel label36; + private DevExpress.XtraReports.UI.XRLabel label34; + private DevExpress.XtraReports.UI.XRLabel label33; + private DevExpress.XtraReports.UI.XRLabel label31; + private DevExpress.XtraReports.UI.XRLabel label29; + private DevExpress.XtraReports.UI.XRLabel label28; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label41; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRLabel label47; + private DevExpress.XtraReports.UI.XRLabel label46; + private DevExpress.XtraReports.UI.XRLabel label45; + private DevExpress.XtraReports.UI.XRLabel label44; + private DevExpress.XtraReports.UI.XRLabel label43; + private DevExpress.XtraReports.UI.XRLabel label42; + private DevExpress.XtraReports.UI.XRPanel panel1; + private DevExpress.XtraReports.UI.PageHeaderBand PageHeader; + private DevExpress.XtraReports.UI.XRLabel label39; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label30; + private DevExpress.XtraReports.UI.XRLabel label32; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label35; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAkAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAmAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAKAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAqAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKwAAAAEiU0lTQnVzaW5lc3MuTW9kdWxlLlZBVFJlcG9ydERldGFpbAEAAQABAAABC8OBRkEgUmlwb3J0"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + DevExpress.XtraReports.UI.XRSummary summary1 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary2 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary3 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary4 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary5 = new DevExpress.XtraReports.UI.XRSummary(); + DevExpress.XtraReports.UI.XRSummary summary6 = new DevExpress.XtraReports.UI.XRSummary(); + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.label40 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label38 = new DevExpress.XtraReports.UI.XRLabel(); + this.label37 = new DevExpress.XtraReports.UI.XRLabel(); + this.label36 = new DevExpress.XtraReports.UI.XRLabel(); + this.label34 = new DevExpress.XtraReports.UI.XRLabel(); + this.label33 = new DevExpress.XtraReports.UI.XRLabel(); + this.label31 = new DevExpress.XtraReports.UI.XRLabel(); + this.label29 = new DevExpress.XtraReports.UI.XRLabel(); + this.label28 = new DevExpress.XtraReports.UI.XRLabel(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label41 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.label47 = new DevExpress.XtraReports.UI.XRLabel(); + this.label46 = new DevExpress.XtraReports.UI.XRLabel(); + this.label45 = new DevExpress.XtraReports.UI.XRLabel(); + this.label44 = new DevExpress.XtraReports.UI.XRLabel(); + this.label43 = new DevExpress.XtraReports.UI.XRLabel(); + this.label42 = new DevExpress.XtraReports.UI.XRLabel(); + this.panel1 = new DevExpress.XtraReports.UI.XRPanel(); + this.label39 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.pageInfo1 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label30 = new DevExpress.XtraReports.UI.XRLabel(); + this.label32 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label35 = new DevExpress.XtraReports.UI.XRLabel(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label40, + this.label24, + this.label38, + this.label37, + this.label36, + this.label34, + this.label33, + this.label31, + this.label29, + this.label28, + this.label27, + this.label26, + this.label25, + this.label41}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 8F); + this.detailBand1.HeightF = 29.12504F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.SortFields.AddRange(new DevExpress.XtraReports.UI.GroupField[] { + new DevExpress.XtraReports.UI.GroupField("PartnerType", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), + new DevExpress.XtraReports.UI.GroupField("VAT.ShortName", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), + new DevExpress.XtraReports.UI.GroupField("DateVAT", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}); + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label3}); + this.pageFooterBand1.Font = new System.Drawing.Font("Arial", 8F); + this.pageFooterBand1.HeightF = 7.485296F; + this.pageFooterBand1.Name = "pageFooterBand1"; + this.pageFooterBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 23F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 18.95218F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.subreport1, + this.line2, + this.label47, + this.label46, + this.label45, + this.label44, + this.label43, + this.label42, + this.panel1}); + this.ReportFooter.Font = new System.Drawing.Font("Arial", 8F); + this.ReportFooter.HeightF = 181.25F; + this.ReportFooter.Name = "ReportFooter"; + this.ReportFooter.StylePriority.UseFont = false; + // + // PageHeader + // + this.PageHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label39, + this.line1, + this.pageInfo2, + this.pageInfo1, + this.label2, + this.label4, + this.label5, + this.label6, + this.label7, + this.label11, + this.label12, + this.label13, + this.label14, + this.label15, + this.label16, + this.label17, + this.label18, + this.label19, + this.label20, + this.label21, + this.label22, + this.label23, + this.label30, + this.label32, + this.label1, + this.label35}); + this.PageHeader.Font = new System.Drawing.Font("Arial", 8F); + this.PageHeader.HeightF = 118.3125F; + this.PageHeader.Name = "PageHeader"; + this.PageHeader.StylePriority.UseFont = false; + // + // label40 + // + this.label40.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBaseNoPay", "{0:#,##}")}); + this.label40.LocationFloat = new DevExpress.Utils.PointFloat(1028.625F, 0F); + this.label40.Name = "label40"; + this.label40.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label40.SizeF = new System.Drawing.SizeF(84.375F, 13F); + this.label40.StylePriority.UseTextAlignment = false; + this.label40.Text = "label40"; + this.label40.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label24 + // + this.label24.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.VATReportDetail.Note")}); + this.label24.Font = new System.Drawing.Font("Arial", 8F); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(288.6275F, 16.12504F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink; + this.label24.SizeF = new System.Drawing.SizeF(228.8957F, 13F); + this.label24.StylePriority.UseFont = false; + this.label24.Text = "label24"; + // + // label38 + // + this.label38.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VAT.ShortName", "{0}")}); + this.label38.Font = new System.Drawing.Font("Arial", 8F); + this.label38.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label38.Name = "label38"; + this.label38.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label38.SizeF = new System.Drawing.SizeF(39.58334F, 12.99999F); + this.label38.StylePriority.UseFont = false; + this.label38.StylePriority.UseTextAlignment = false; + this.label38.Text = "label38"; + this.label38.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label37 + // + this.label37.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PartnerType")}); + this.label37.Font = new System.Drawing.Font("Arial", 8F); + this.label37.LocationFloat = new DevExpress.Utils.PointFloat(50F, 0F); + this.label37.Name = "label37"; + this.label37.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label37.SizeF = new System.Drawing.SizeF(80F, 12.99999F); + this.label37.StylePriority.UseFont = false; + this.label37.StylePriority.UseTextAlignment = false; + this.label37.Text = "label37"; + this.label37.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label36 + // + this.label36.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.DisplayName")}); + this.label36.Font = new System.Drawing.Font("Arial", 8F); + this.label36.LocationFloat = new DevExpress.Utils.PointFloat(130F, 0F); + this.label36.Name = "label36"; + this.label36.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label36.SizeF = new System.Drawing.SizeF(90F, 12.99999F); + this.label36.StylePriority.UseFont = false; + this.label36.StylePriority.UseTextAlignment = false; + this.label36.Text = "label36"; + this.label36.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label34 + // + this.label34.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.DateVAT", "{0:yyyy.MM.dd.}")}); + this.label34.Font = new System.Drawing.Font("Arial", 8F); + this.label34.LocationFloat = new DevExpress.Utils.PointFloat(220.0001F, 0F); + this.label34.Name = "label34"; + this.label34.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label34.SizeF = new System.Drawing.SizeF(72F, 12.99998F); + this.label34.StylePriority.UseFont = false; + this.label34.StylePriority.UseTextAlignment = false; + this.label34.Text = "label34"; + this.label34.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label33 + // + this.label33.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.VATReportDetail.DateExecution", "{0:yyyy.MM.dd.}")}); + this.label33.Font = new System.Drawing.Font("Arial", 8F); + this.label33.LocationFloat = new DevExpress.Utils.PointFloat(292.0001F, 0F); + this.label33.Name = "label33"; + this.label33.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label33.SizeF = new System.Drawing.SizeF(70F, 13F); + this.label33.StylePriority.UseFont = false; + this.label33.StylePriority.UseTextAlignment = false; + this.label33.Text = "label33"; + this.label33.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label31 + // + this.label31.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "PayMode")}); + this.label31.Font = new System.Drawing.Font("Arial", 8F); + this.label31.LocationFloat = new DevExpress.Utils.PointFloat(447F, 0F); + this.label31.Name = "label31"; + this.label31.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label31.SizeF = new System.Drawing.SizeF(72F, 13F); + this.label31.StylePriority.UseFont = false; + this.label31.StylePriority.UseTextAlignment = false; + this.label31.Text = "label31"; + this.label31.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label29 + // + this.label29.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOut", "{0:#,##}")}); + this.label29.Font = new System.Drawing.Font("Arial", 8F); + this.label29.LocationFloat = new DevExpress.Utils.PointFloat(519F, 0F); + this.label29.Name = "label29"; + this.label29.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label29.SizeF = new System.Drawing.SizeF(83.54169F, 13F); + this.label29.StylePriority.UseFont = false; + this.label29.StylePriority.UseTextAlignment = false; + this.label29.Text = "label29"; + this.label29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label28 + // + this.label28.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATIn", "{0:#,##}")}); + this.label28.Font = new System.Drawing.Font("Arial", 8F); + this.label28.LocationFloat = new DevExpress.Utils.PointFloat(613.9999F, 0F); + this.label28.Name = "label28"; + this.label28.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label28.SizeF = new System.Drawing.SizeF(83.58832F, 13F); + this.label28.StylePriority.UseFont = false; + this.label28.StylePriority.UseTextAlignment = false; + this.label28.Text = "label28"; + this.label28.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOutBase", "{0:#,##}")}); + this.label27.Font = new System.Drawing.Font("Arial", 8F); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(730.8228F, 0F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(73.17706F, 13F); + this.label27.StylePriority.UseFont = false; + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBase", "{0:#,##}")}); + this.label26.Font = new System.Drawing.Font("Arial", 8F); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(813.9999F, 0F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(86.82281F, 13F); + this.label26.StylePriority.UseFont = false; + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label25 + // + this.label25.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DocumentNumber")}); + this.label25.Font = new System.Drawing.Font("Arial", 8F); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(362F, 0F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(85F, 13F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "label25"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label41 + // + this.label41.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInNoPay", "{0:#,##}")}); + this.label41.LocationFloat = new DevExpress.Utils.PointFloat(916.906F, 0F); + this.label41.Name = "label41"; + this.label41.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label41.SizeF = new System.Drawing.SizeF(90.00079F, 13F); + this.label41.StylePriority.UseTextAlignment = false; + this.label41.Text = "label41"; + this.label41.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 5F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(106.4415F, 6.489583F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "SIS-Business Framework 2.0"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50.41673F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "ÁFA Riport (alriport)"; + this.subreport1.SizeF = new System.Drawing.SizeF(1123F, 99.49999F); + // + // line2 + // + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(1123F, 2F); + // + // label47 + // + this.label47.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBaseNoPay")}); + this.label47.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label47.LocationFloat = new DevExpress.Utils.PointFloat(1028.625F, 10.00001F); + this.label47.Name = "label47"; + this.label47.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label47.SizeF = new System.Drawing.SizeF(84.375F, 13F); + this.label47.StylePriority.UseFont = false; + this.label47.StylePriority.UseTextAlignment = false; + summary1.FormatString = "{0:#,##}"; + summary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label47.Summary = summary1; + this.label47.Text = "label47"; + this.label47.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label46 + // + this.label46.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInNoPay")}); + this.label46.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label46.LocationFloat = new DevExpress.Utils.PointFloat(916.906F, 10.00001F); + this.label46.Name = "label46"; + this.label46.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label46.SizeF = new System.Drawing.SizeF(90.00079F, 13F); + this.label46.StylePriority.UseFont = false; + this.label46.StylePriority.UseTextAlignment = false; + summary2.FormatString = "{0:#,##}"; + summary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label46.Summary = summary2; + this.label46.Text = "label46"; + this.label46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label45 + // + this.label45.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATInBase")}); + this.label45.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label45.LocationFloat = new DevExpress.Utils.PointFloat(813.9999F, 10.00001F); + this.label45.Name = "label45"; + this.label45.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label45.SizeF = new System.Drawing.SizeF(86.82281F, 13F); + this.label45.StylePriority.UseFont = false; + this.label45.StylePriority.UseTextAlignment = false; + summary3.FormatString = "{0:#,##}"; + summary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label45.Summary = summary3; + this.label45.Text = "label45"; + this.label45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label44 + // + this.label44.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOutBase")}); + this.label44.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label44.LocationFloat = new DevExpress.Utils.PointFloat(730.8228F, 10.00001F); + this.label44.Name = "label44"; + this.label44.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label44.SizeF = new System.Drawing.SizeF(73.17706F, 13F); + this.label44.StylePriority.UseFont = false; + this.label44.StylePriority.UseTextAlignment = false; + summary4.FormatString = "{0:#,##}"; + summary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label44.Summary = summary4; + this.label44.Text = "label44"; + this.label44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label43 + // + this.label43.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATIn")}); + this.label43.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label43.LocationFloat = new DevExpress.Utils.PointFloat(613.9999F, 10.00001F); + this.label43.Name = "label43"; + this.label43.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label43.SizeF = new System.Drawing.SizeF(83.54169F, 13F); + this.label43.StylePriority.UseFont = false; + this.label43.StylePriority.UseTextAlignment = false; + summary5.FormatString = "{0:#,##}"; + summary5.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label43.Summary = summary5; + this.label43.Text = "label43"; + this.label43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label42 + // + this.label42.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AmountVATOut")}); + this.label42.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label42.LocationFloat = new DevExpress.Utils.PointFloat(519F, 10.00001F); + this.label42.Name = "label42"; + this.label42.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label42.SizeF = new System.Drawing.SizeF(83.54169F, 13F); + this.label42.StylePriority.UseFont = false; + this.label42.StylePriority.UseTextAlignment = false; + summary6.FormatString = "{0:#,##}"; + summary6.Running = DevExpress.XtraReports.UI.SummaryRunning.Report; + this.label42.Summary = summary6; + this.label42.Text = "label42"; + this.label42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // panel1 + // + this.panel1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 50F); + this.panel1.Name = "panel1"; + this.panel1.SizeF = new System.Drawing.SizeF(1123F, 109.9167F); + // + // label39 + // + this.label39.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label39.LocationFloat = new DevExpress.Utils.PointFloat(913.9999F, 100.9166F); + this.label39.Name = "label39"; + this.label39.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label39.SizeF = new System.Drawing.SizeF(100F, 12.99999F); + this.label39.StylePriority.UseFont = false; + this.label39.StylePriority.UseTextAlignment = false; + this.label39.Text = "Meg nem fizetett ÁFA"; + this.label39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 113.9166F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(1123F, 2.312546F); + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo2.Format = "Oldal:{0}/ {1}"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(1047.5F, 36.69275F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(75.49994F, 12.58333F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // pageInfo1 + // + this.pageInfo1.Font = new System.Drawing.Font("Arial", 9F); + this.pageInfo1.Format = "{0:yyyy.MM.dd.}"; + this.pageInfo1.LocationFloat = new DevExpress.Utils.PointFloat(1033.958F, 3.48959F); + this.pageInfo1.Name = "pageInfo1"; + this.pageInfo1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime; + this.pageInfo1.SizeF = new System.Drawing.SizeF(89.04169F, 23F); + this.pageInfo1.StyleName = "PageInfo"; + this.pageInfo1.StylePriority.UseFont = false; + this.pageInfo1.StylePriority.UseTextAlignment = false; + this.pageInfo1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial", 16F, System.Drawing.FontStyle.Bold); + this.label2.ForeColor = System.Drawing.Color.Black; + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(1118.333F, 26.48961F); + this.label2.StyleName = "Title"; + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseForeColor = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "ÁFA Riport"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.DateFrom", "{0:yyyy.MM.dd.}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(78.35935F, 70.74477F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(73.04684F, 13.58001F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "label4"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(151.4062F, 70.74477F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(13.41147F, 13.58001F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "-"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.DateTo", "{0:yyyy.MM.dd.}")}); + this.label6.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(164.8177F, 70.74477F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(71.35417F, 13.58001F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "label6"; + // + // label7 + // + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(8.958308F, 70.74477F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(69.40105F, 13.58001F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "ÁFA Riport:"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 8F); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(887.354F, 70.74471F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(78.51578F, 13.58001F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "Megnevezés:"; + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.ShortName")}); + this.label12.Font = new System.Drawing.Font("Arial", 8F); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(965.8696F, 70.74471F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(146.0887F, 13.58F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 100.9167F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(50F, 12.99999F); + this.label13.StylePriority.UseFont = false; + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "ÁFA kód"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(613.9999F, 100.9166F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(100F, 12.99999F); + this.label14.StylePriority.UseFont = false; + this.label14.StylePriority.UseTextAlignment = false; + this.label14.Text = "Beszerzést terhelő ÁFA"; + this.label14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(519F, 100.9166F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(95F, 12.99999F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "Értékesítést terhelő ÁFA"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(447F, 100.9166F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(72F, 12.99999F); + this.label16.StylePriority.UseFont = false; + this.label16.StylePriority.UseTextAlignment = false; + this.label16.Text = "Fizetési mód"; + this.label16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(130F, 100.9167F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(90F, 12.99998F); + this.label17.StylePriority.UseFont = false; + this.label17.StylePriority.UseTextAlignment = false; + this.label17.Text = "Partner"; + this.label17.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(362F, 100.9167F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(85F, 12.99999F); + this.label18.StylePriority.UseFont = false; + this.label18.StylePriority.UseTextAlignment = false; + this.label18.Text = "Bizonylatszám"; + this.label18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(292.0001F, 100.9166F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(70F, 12.99999F); + this.label19.StylePriority.UseFont = false; + this.label19.StylePriority.UseTextAlignment = false; + this.label19.Text = "Teljesítés dátuma"; + this.label19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label20 + // + this.label20.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(220.0001F, 100.9167F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(72F, 12.99999F); + this.label20.StylePriority.UseFont = false; + this.label20.StylePriority.UseTextAlignment = false; + this.label20.Text = "ÁFA dátuma"; + this.label20.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft; + // + // label21 + // + this.label21.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(50F, 100.9166F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(80F, 12.99999F); + this.label21.StylePriority.UseFont = false; + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "Partner típusa"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label22 + // + this.label22.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(813.9999F, 100.9166F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(100F, 12.99999F); + this.label22.StylePriority.UseFont = false; + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "Beszerzést terh. ÁFA alap"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(713.9999F, 100.9166F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(100F, 12.99999F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Értékesítést terhelő ÁFA alap"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label30 + // + this.label30.Font = new System.Drawing.Font("Arial", 9F); + this.label30.LocationFloat = new DevExpress.Utils.PointFloat(501.1642F, 70.74471F); + this.label30.Name = "label30"; + this.label30.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label30.SizeF = new System.Drawing.SizeF(72.26578F, 13.58001F); + this.label30.StylePriority.UseFont = false; + this.label30.Text = "ÁFA dátum:"; + // + // label32 + // + this.label32.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.DateVAT", "{0:yyyy.MM.dd.}")}); + this.label32.LocationFloat = new DevExpress.Utils.PointFloat(573.4299F, 70.74474F); + this.label32.Name = "label32"; + this.label32.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label32.SizeF = new System.Drawing.SizeF(83.9841F, 13.58004F); + this.label32.Text = "label32"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "VATReport.CustomersFrom.DisplayName")}); + this.label1.Font = new System.Drawing.Font("Arial", 14F); + this.label1.ForeColor = System.Drawing.Color.Black; + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 26.48961F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(1123F, 22.78646F); + this.label1.StyleName = "Title"; + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseForeColor = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label35 + // + this.label35.Font = new System.Drawing.Font("Arial", 8F, System.Drawing.FontStyle.Bold); + this.label35.LocationFloat = new DevExpress.Utils.PointFloat(1018.333F, 100.9166F); + this.label35.Name = "label35"; + this.label35.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label35.SizeF = new System.Drawing.SizeF(100F, 12.99999F); + this.label35.StylePriority.UseFont = false; + this.label35.StylePriority.UseTextAlignment = false; + this.label35.Text = "Meg nem fizetett ÁFA alap"; + this.label35.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportFooter, + this.PageHeader}); + this.DisplayName = "ÁFA Riport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial", 8F); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Landscape = true; + this.Margins = new System.Drawing.Printing.Margins(23, 23, 23, 19); + this.Name = "xafReport1"; + this.PageHeight = 827; + this.PageWidth = 1169; + this.PaperKind = System.Drawing.Printing.PaperKind.A4; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + this.Version = "11.1"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segádanyag - Apartments alriport.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segádanyag - Apartments alriport.repx new file mode 100644 index 0000000..77f9ff6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segádanyag - Apartments alriport.repx @@ -0,0 +1,397 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand ReportHeader; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRTableCell tableCell4; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.ReportFooterBand ReportFooter; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.FormattingRule formattingRule1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgAiAAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgAkAAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAJgAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQAoAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAKQAAAAEgU0lTQnVzaW5lc3MuTW9kdWxlLkxvY2FsaXR5TGlzdHMBAAEAAQAAASvDnGd5dsOpZGkgc2Vnw6FkYW55YWcgLSBBcGFydG1lbnRzIGFscmlwb3J0"; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.ReportHeader = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.ReportFooter = new DevExpress.XtraReports.UI.ReportFooterBand(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell4 = new DevExpress.XtraReports.UI.XRTableCell(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.formattingRule1 = new DevExpress.XtraReports.UI.FormattingRule(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label1, + this.label3, + this.label2}); + this.detailBand1.HeightF = 14.88095F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.Scripts.OnBeforePrint = "detailBand1_BeforePrint"; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 0F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 16F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // ReportHeader + // + this.ReportHeader.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.label9, + this.label5, + this.label8, + this.label10}); + this.ReportHeader.HeightF = 48.78035F; + this.ReportHeader.Name = "ReportHeader"; + // + // ReportFooter + // + this.ReportFooter.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1}); + this.ReportFooter.HeightF = 8.333333F; + this.ReportFooter.Name = "ReportFooter"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AreaNetto", "{0} m2")}); + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(350.4172F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(136.577F, 14.88095F); + this.label1.StylePriority.UseFont = false; + this.label1.StylePriority.UseTextAlignment = false; + this.label1.Text = "label1"; + this.label1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ShortName")}); + this.label3.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(100.8501F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(249.5671F, 14.88095F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100.8501F, 14.88095F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "[LocalityType.ShortName]"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 29.76189F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(749F, 14.85178F); + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(0F, 14.88095F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(78.12499F, 14.88095F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "Szobák száma:"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(78.12499F, 14.88095F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Terület:"; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Apartments.AreaNettoForSale", "{0}m2")}); + this.label8.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(78.125F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(670.875F, 14.88095F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Apartments.RoomString", "{0} szoba")}); + this.label10.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(78.125F, 14.88094F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(670.875F, 14.88095F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "label10"; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell1, + this.tableCell2, + this.tableCell4}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell1 + // + this.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell1.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBorders = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.Text = "Helyiség típus"; + this.tableCell1.Weight = 0.67846639242770346D; + // + // tableCell2 + // + this.tableCell2.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell2.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.StylePriority.UseBorders = false; + this.tableCell2.StylePriority.UseFont = false; + this.tableCell2.Text = "Megnevezés"; + this.tableCell2.Weight = 1.67895697171092D; + // + // tableCell4 + // + this.tableCell4.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.tableCell4.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.tableCell4.Name = "tableCell4"; + this.tableCell4.StylePriority.UseBorders = false; + this.tableCell4.StylePriority.UseFont = false; + this.tableCell4.Text = "Netto terület [m2]"; + this.tableCell4.Weight = 2.0154355055396076D; + // + // line1 + // + this.line1.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 2.083333F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(739F, 6.25F); + // + // formattingRule1 + // + this.formattingRule1.Name = "formattingRule1"; + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.topMarginBand1, + this.bottomMarginBand1, + this.ReportHeader, + this.ReportFooter}); + this.DisplayName = "Ügyvédi segádanyag - Apartments alriport"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.FormattingRuleSheet.AddRange(new DevExpress.XtraReports.UI.FormattingRule[] { + this.formattingRule1}); + this.Margins = new System.Drawing.Printing.Margins(50, 51, 0, 16); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Customers.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Customers.repx new file mode 100644 index 0000000..d2dabca --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Customers.repx @@ -0,0 +1,520 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRLine line2; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgA0AAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgA2AAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAOAAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQA6AAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAOwAAAAEyU0lTQnVzaW5lc3MuTW9kdWxlLkNSTUVzdGF0ZV9PcHBvcnR1bml0eV9DdXN0b21lcnMBAAEAAQAAASHDnGd5dsOpZGkgc2Vnw6lkYW55YWcgLSBDdXN0b21lcnM="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label2, + this.label21, + this.label20, + this.label19, + this.label18, + this.label17, + this.label15, + this.label14, + this.label13, + this.label12, + this.label11, + this.label10, + this.label9, + this.label8, + this.label7, + this.label6, + this.label5, + this.label4, + this.label3, + this.label1}); + this.detailBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.detailBand1.HeightF = 132F; + this.detailBand1.Name = "detailBand1"; + this.detailBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.HeightF = 0F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line1, + this.label16}); + this.reportHeaderBand1.Font = new System.Drawing.Font("Arial", 9.75F); + this.reportHeaderBand1.HeightF = 41.62499F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseFont = false; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 14F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2}); + this.bottomMarginBand1.HeightF = 23F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Citizen")}); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(143.75F, 73.95834F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(212.5F, 23F); + this.label2.Text = "label2"; + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.VATNumber")}); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(143.75F, 97.91666F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(212.5F, 22.99999F); + this.label21.Text = "label21"; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.Address1.FullAddress")}); + this.label20.Font = new System.Drawing.Font("Arial", 8F); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 73.95834F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(270.25F, 23F); + this.label20.StylePriority.UseFont = false; + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(366.6667F, 97.91666F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Értesítési cím:"; + // + // label18 + // + this.label18.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(366.6667F, 73.95834F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "Lakcím:"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(366.6667F, 23.95836F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "Szem ig szám:"; + // + // label15 + // + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(366.6667F, 48.95833F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label15.StylePriority.UseFont = false; + this.label15.Text = "Anyja neve:"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(366.6667F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Személyi szám u. 4:"; + // + // label13 + // + this.label13.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(0F, 97.91666F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label13.StylePriority.UseFont = false; + this.label13.Text = "Adóazonosító:"; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(0F, 73.95834F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label12.StylePriority.UseFont = false; + this.label12.Text = "Állampolgárság:"; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(0F, 48.95833F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label11.StylePriority.UseFont = false; + this.label11.Text = "Születési hely, idő:"; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 23.95833F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label10.StylePriority.UseFont = false; + this.label10.Text = "Tulajdoni részarány:"; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0.9583473F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(138.5417F, 23F); + this.label9.StylePriority.UseFont = false; + this.label9.Text = "Név, leánykori név:"; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SocialNumber")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 23.95836F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(244.25F, 22.99999F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SocialNumberLastFourDigit")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(244.25F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "MotherName")}); + this.label6.Font = new System.Drawing.Font("Arial", 9F); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 48.95833F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(244.25F, 22.99999F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "label6"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "AddressNotice.FullAddress")}); + this.label5.Font = new System.Drawing.Font("Arial", 8F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(518.75F, 97.91666F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(270.25F, 22.99999F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "label5"; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial", 8F); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(143.75F, 46.95832F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(212.5F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "[BirthDay!yyyy. MMMM d.], [PlaceOfBirth]"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9F); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(143.75F, 23.95836F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(212.5F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "[RightState], [RightQuota] %"; + // + // label1 + // + this.label1.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Customers.FullName")}); + this.label1.Font = new System.Drawing.Font("Arial", 9F); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(143.75F, 0F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(212.5F, 23F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "label1"; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 37.45832F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(771.9584F, 4.166668F); + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(143.75F, 23F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Vevő adattábla:"; + // + // line2 + // + this.line2.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 0F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(771.9584F, 2.083333F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.DisplayName = "Ügyvédi segédanyag - Customers"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(25, 36, 14, 23); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Payment Forecast.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Payment Forecast.repx new file mode 100644 index 0000000..23954d6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag - Payment Forecast.repx @@ -0,0 +1,352 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class Report1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.PageHeaderBand pageHeaderBand1; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRLine line2; + private System.Resources.ResourceManager _resources; + public Report1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = @"zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OSNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAGAAAAAAAAAFBBRFBBRFAFQIOWxnS43uPx3+CsE1HiAYdpRdUcG3krAAAAYwAAADwAAADJAAAAAAAAAJQAAADGAQAAJkQAYQB0AGEAUwBvAHUAcgBjAGUAQwBsAGEAcwBzAE4AYQBtAGUAAAAAAAxGAGkAbAB0AGUAcgA7AAAAIkYAaQBsAHQAZQByAEQAZQBzAGMAcgBpAHAAdABpAG8AbgA9AAAALEYAaQBsAHQAZQByAEYAbwByAEQAZQBzAGkAZwBuAFAAcgBlAHYAaQBlAHcAPwAAADBQAGEAcgBhAG0AZQB0AGUAcgBzAE8AYgBqAGUAYwB0AFQAeQBwAGUATgBhAG0AZQBBAAAAFFIAZQBwAG8AcgB0AE4AYQBtAGUAQgAAAAE5U0lTQnVzaW5lc3MuTW9kdWxlLkNSTUVzdGF0ZV9PcHBvcnR1bml0eV9QYXltZW50X0ZvcmVjYXN0AQABAAEAAAEow5xneXbDqWRpIHNlZ8OpZGFueWFnIC0gUGF5bWVudCBGb3JlY2FzdA=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageHeaderBand1 = new DevExpress.XtraReports.UI.PageHeaderBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.line2 = new DevExpress.XtraReports.UI.XRLine(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label5, + this.label8, + this.label7, + this.label6, + this.label4, + this.label3, + this.label2}); + this.detailBand1.HeightF = 23F; + this.detailBand1.Name = "detailBand1"; + // + // pageHeaderBand1 + // + this.pageHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label12, + this.label11, + this.label10, + this.label9, + this.line1, + this.label14}); + this.pageHeaderBand1.Font = new System.Drawing.Font("Arial", 9F); + this.pageHeaderBand1.HeightF = 61.33335F; + this.pageHeaderBand1.Name = "pageHeaderBand1"; + this.pageHeaderBand1.StylePriority.UseFont = false; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.line2}); + this.pageFooterBand1.HeightF = 30F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // label5 + // + this.label5.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPricePercent", "{0} %")}); + this.label5.Font = new System.Drawing.Font("Arial", 9F); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(254.1667F, 0F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label5.StylePriority.UseFont = false; + this.label5.StylePriority.UseTextAlignment = false; + this.label5.Text = "label5"; + this.label5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label8 + // + this.label8.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "DateExecution", "{0:yyyy. MMMM d.}")}); + this.label8.Font = new System.Drawing.Font("Arial", 9F); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(359.375F, 0F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "label8"; + // + // label7 + // + this.label7.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Description")}); + this.label7.Font = new System.Drawing.Font("Arial", 9F); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(29.16667F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(225F, 23F); + this.label7.StylePriority.UseFont = false; + this.label7.Text = "label7"; + // + // label6 + // + this.label6.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "RowIndex", "{0}.")}); + this.label6.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(29.16667F, 23F); + this.label6.StylePriority.UseFont = false; + this.label6.StylePriority.UseTextAlignment = false; + this.label6.Text = "label6"; + this.label6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label4 + // + this.label4.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceVATHUF", "{0:#,##0}")}); + this.label4.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(559.375F, 0F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label4.StylePriority.UseFont = false; + this.label4.StylePriority.UseTextAlignment = false; + this.label4.Text = "label4"; + this.label4.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label3 + // + this.label3.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceBruttoHUF", "{0:#,##0}")}); + this.label3.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(659.375F, 0F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label3.StylePriority.UseFont = false; + this.label3.StylePriority.UseTextAlignment = false; + this.label3.Text = "label3"; + this.label3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label2 + // + this.label2.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SumPriceNettoHUF", "{0:#,##0}")}); + this.label2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(459.375F, 0F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "label2"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label12 + // + this.label12.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(221.875F, 29.45836F); + this.label12.Multiline = true; + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(155.2084F, 21.875F); + this.label12.StylePriority.UseFont = false; + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "Befizetés mértéke %"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label11 + // + this.label11.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(659.375F, 29.45836F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(100F, 21.875F); + this.label11.StylePriority.UseFont = false; + this.label11.StylePriority.UseTextAlignment = false; + this.label11.Text = "Bruttó"; + this.label11.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label10 + // + this.label10.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(559.375F, 29.45836F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(100F, 21.875F); + this.label10.StylePriority.UseFont = false; + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "ÁFA"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // label9 + // + this.label9.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(459.375F, 29.45836F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(100F, 21.875F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "Nettó"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 56.25003F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(759.375F, 5.083324F); + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 0F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(229.1667F, 23F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Fizetési ütemezés:"; + // + // line2 + // + this.line2.LineStyle = System.Drawing.Drawing2D.DashStyle.Dot; + this.line2.LocationFloat = new DevExpress.Utils.PointFloat(1.041667F, 4.166667F); + this.line2.Name = "line2"; + this.line2.SizeF = new System.Drawing.SizeF(769.7916F, 2.083333F); + // + // Report1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageHeaderBand1, + this.pageFooterBand1}); + this.DisplayName = "Ügyvédi segédanyag - Payment Forecast"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Margins = new System.Drawing.Printing.Margins(28, 51, 100, 100); + this.Name = "Report1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag.repx b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag.repx new file mode 100644 index 0000000..fcd008e --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/SIS/XafReports/Ügyvédi segédanyag.repx @@ -0,0 +1,851 @@ +/// +/// DevExpress.ExpressApp.Reports.v11.2, Version=11.2.11.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +/// C:\Windows\assembly\GAC_MSIL\DevExpress.ExpressApp.Reports.v11.2\11.2.11.0__b88d1754d700e49a\DevExpress.ExpressApp.Reports.v11.2.dll +/// DevExpress.ExpressApp.Reports.XafReport +/// hu-HU +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +/// +namespace XtraReportSerialization { + + public class xafReport1 : DevExpress.XtraReports.UI.XtraReport { + private DevExpress.XtraReports.UI.DetailBand detailBand1; + private DevExpress.XtraReports.UI.XRLabel label10; + private DevExpress.XtraReports.UI.XRLine line1; + private DevExpress.XtraReports.UI.XRLabel label27; + private DevExpress.XtraReports.UI.XRLabel label26; + private DevExpress.XtraReports.UI.XRLabel label25; + private DevExpress.XtraReports.UI.XRLabel label24; + private DevExpress.XtraReports.UI.XRLabel label23; + private DevExpress.XtraReports.UI.XRLabel label22; + private DevExpress.XtraReports.UI.XRLabel label21; + private DevExpress.XtraReports.UI.XRLabel label20; + private DevExpress.XtraReports.UI.XRLabel label19; + private DevExpress.XtraReports.UI.XRLabel label18; + private DevExpress.XtraReports.UI.XRLabel label17; + private DevExpress.XtraReports.UI.XRLabel label16; + private DevExpress.XtraReports.UI.XRLabel label14; + private DevExpress.XtraReports.UI.XRSubreport subreport3; + private DevExpress.XtraReports.UI.XRSubreport subreport2; + private DevExpress.XtraReports.UI.XRLabel label12; + private DevExpress.XtraReports.UI.XRLabel label15; + private DevExpress.XtraReports.UI.XRLabel label13; + private DevExpress.XtraReports.UI.XRLabel label11; + private DevExpress.XtraReports.UI.XRLabel label9; + private DevExpress.XtraReports.UI.XRLabel label8; + private DevExpress.XtraReports.UI.XRLabel label5; + private DevExpress.XtraReports.UI.XRSubreport subreport1; + private DevExpress.XtraReports.UI.XRLabel label7; + private DevExpress.XtraReports.UI.PageFooterBand pageFooterBand1; + private DevExpress.XtraReports.UI.XRPageInfo pageInfo2; + private DevExpress.XtraReports.UI.ReportHeaderBand reportHeaderBand1; + private DevExpress.XtraReports.UI.XRTable table1; + private DevExpress.XtraReports.UI.XRTableRow tableRow1; + private DevExpress.XtraReports.UI.XRTableCell tableCell2; + private DevExpress.XtraReports.UI.XRPictureBox pictureBox1; + private DevExpress.XtraReports.UI.XRTableCell tableCell1; + private DevExpress.XtraReports.UI.XRLabel label1; + private DevExpress.XtraReports.UI.XRLabel label3; + private DevExpress.XtraReports.UI.XRLabel label2; + private DevExpress.XtraReports.UI.XRLabel label4; + private DevExpress.XtraReports.UI.XRLabel label6; + private DevExpress.XtraReports.UI.TopMarginBand topMarginBand1; + private DevExpress.XtraReports.UI.BottomMarginBand bottomMarginBand1; + private DevExpress.XtraReports.UI.XRControlStyle Title; + private DevExpress.XtraReports.UI.XRControlStyle FieldCaption; + private DevExpress.XtraReports.UI.XRControlStyle PageInfo; + private DevExpress.XtraReports.UI.XRControlStyle DataField; + private DevExpress.XtraReports.UI.CalculatedField ParcelBrutto; + private DevExpress.XtraReports.UI.CalculatedField SuperStructureBrutto; + private DevExpress.XtraReports.UI.CalculatedField ParcelVAT; + private DevExpress.XtraReports.UI.CalculatedField SuperStructureVAT; + private System.Resources.ResourceManager _resources; + public xafReport1() { + this.InitializeComponent(); + } + private System.Resources.ResourceManager resources { + get { + if (_resources == null) { + string resourceString = "zsrvvgEAAACRAAAAbFN5c3RlbS5SZXNvdXJjZXMuUmVzb3VyY2VSZWFkZXIsIG1zY29ybGliLCBWZXJza" + + "W9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4O" + + "SNTeXN0ZW0uUmVzb3VyY2VzLlJ1bnRpbWVSZXNvdXJjZVNldAIAAAAIAAAAAQAAAGhTeXN0ZW0uRHJhd" + + "2luZy5CaXRtYXAsIFN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1bHR1cmU9bmV1dHJhb" + + "CwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYVBBRFBBRAVAg5ZIXnLBxnS43uPx3+CsE1HiA" + + "YdpReSG6V3VHBt5VgAAAAAAAACOAAAAZwAAAPQAAAArAAAADQEAAL8AAACQAgAAJiQAdABoAGkAcwAuA" + + "FMAYwByAGkAcAB0AHMAUwBvAHUAcgBjAGUAAAAAACZEAGEAdABhAFMAbwB1AHIAYwBlAEMAbABhAHMAc" + + "wBOAGEAbQBlAPMBAAAMRgBpAGwAdABlAHIAKAIAACJGAGkAbAB0AGUAcgBEAGUAcwBjAHIAaQBwAHQAa" + + "QBvAG4AKgIAACxGAGkAbAB0AGUAcgBGAG8AcgBEAGUAcwBpAGcAbgBQAHIAZQB2AGkAZQB3ACwCAAAwU" + + "ABhAHIAYQBtAGUAdABlAHIAcwBPAGIAagBlAGMAdABUAHkAcABlAE4AYQBtAGUALgIAABRSAGUAcABvA" + + "HIAdABOAGEAbQBlAC8CAAAicABpAGMAdAB1AHIAZQBCAG8AeAAxAC4ASQBtAGEAZwBlAEYCAAAB8AMNC" + + "lByaXZhdGUgU3ViIHN1YnJlcG9ydDFfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQ" + + "nlWYWwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCglDVHlwZShzZ" + + "W5kZXIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nID0iQXBhcnRtZW50cy5Jb" + + "W1vdmFibGVzX09pZD0nIiYgbGFiZWwxMS5UZXh0LlRvU3RyaW5nICYgIiciDQpFbmQgU3ViDQoNClBya" + + "XZhdGUgU3ViIHN1YnJlcG9ydDNfQmVmb3JlUHJpbnQoQnlWYWwgc2VuZGVyIEFzIE9iamVjdCwgQnlWY" + + "WwgZSBBcyBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludEV2ZW50QXJncykNCglDVHlwZShzZW5kZ" + + "XIsIFhSU3VicmVwb3J0KS5SZXBvcnRTb3VyY2UuRmlsdGVyU3RyaW5nID0iQ1JNRXN0YXRlX09wcG9yd" + + "HVuaXR5X0ltbW92YWJsZXMuSW1tb3ZhYmxlc19PaWQ9JyImIGxhYmVsMTEuVGV4dC5Ub1N0cmluZyAmI" + + "CInIg0KRW5kIFN1Yg0KATNTSVNCdXNpbmVzcy5Nb2R1bGUuQ1JNRXN0YXRlX09wcG9ydHVuaXR5X0ltb" + + "W92YWJsZXMBAAEAAQAAARXDnGd5dsOpZGkgc2Vnw6lkYW55YWdAAAEAAAD/////AQAAAAAAAAAMAgAAA" + + "FFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tle" + + "VRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJhd2luZy5CaXRtYXABAAAABERhdGEHA" + + "gIAAAAJAwAAAA8DAAAAhBAAAAKJUE5HDQoaCgAAAA1JSERSAAAAOAAAAEQIAgAAAFsEYfMAAAABc1JHQ" + + "gCuzhzpAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOvAAADrwBlbxySQAAEBlJREFUaEPVWWl0W8d1h" + + "iU7lWVbx3KSJjm247px6rQq6ypNm8RtTlWp57Q5aX+09RLL1kJKMiVbmyVZW2vJVCwljuxQlUAQC6HFs" + + "ikCBLhIJilRK0lxkUQSBMB938FFFMEN89aZ3nkDPDwAJCPnTymcd4aDefPmffi+e+/cudSReN0DcT0YK" + + "IHKBxFowkPUBuZmG2YU8CV+jaybNxdbhbsHUXqgE7DPwVaJSyFGHyTp185pM9CAA9FZ8GeI51irkf7tR" + + "4Kxaf182plTbYTXq9IzxHOs1UivUjgnDSBG+rlpANNIzwxg7koPyDY8HHSmOebvLP5opGdAtYjnUqqqc" + + "SbV61VqGdBVOvLm//e1OpZRQKkhEifMD+xaGvhwmfDRCnQI2uUoaZmQtIK2Hy0PJC0LJK0QDi9DScuhh" + + "T6MTDdOZwqHladYG1xhhr52zuEVgQ9/FtjxvRjptXSu0eENj09k/26ixS321AttXgnaLo/U4uZbPFJvA" + + "9/ZwLe4pQ6P0FUPLfT5Vhiv4ztpPzje6eU76+l4Z3ia1Kr0e5VpLR6hU+lDy/rweGed1FIFfbG3gWusn" + + "Eg/FCO9dsdfrSOJi/kKhx/x1c1tFXeqKt21FdVVFS53pctdUe2u8NZVuTysX+5yQ7+qxlNeXVfuoZ1KF" + + "/Rry2uqq7y1VS53+e2qiuo6GGR9uFWpTIMHy6trqqDvrSunj9fQOdB3VUPf09IziXi+2DndFqpKz4DeP" + + "Dc01JeemXnCoLdYLSazWW+yWk5aTWaT3pSadjINLr1Bb1Q6RpPRaE4zWtOMZiP9ak7Tm8zQscJ8i1lvo" + + "PNhkZTUFIPRlGa1Gs1W40loTfAgXccEj8C4so41Dd6YkZk1ONTLl2RG7kzaCAr9ENDh4Z6M7Cx4t9lqh" + + "tcYzRZzmkXpABIzXNCxqB2Yo4zAuDoZ+gZjioHiM5yz266VluTlf5lqSjWYTBbNUrAyPMIWNFtMx/Unz" + + "mU7/b4evtg+ndfDXspI1QC1XXCmmoAMSttXuqyn6HyTxZRiNGTmZHtcrv6+rgDi6urrgVez1TTLavCUL" + + "ct5z9elARrciubRXCRG+rvDvVnns/UpBvi5XwklExpYdGQ5XB6Pb3SUDPdJxTZ06/zo+PC1ohtUihnWB" + + "FIMRkuG3Tbka4tkVD2ExAAF6TPPO/UG01dj1KqYh8WUevpkUUnJ1MQUIURsr0GWHQFbkoxGaryeVGMqC" + + "D3TjzdZLLZM+7CvfQbpZ2AUTOw+GWV2ZrZanNlZZbdu1bd23x0dkTtrBfsB6dDL0uZn+UMrcH1ZY3t72" + + "umTMwGlUphSMnLsw90dfJFqo+zMxA71fyijdGkwOwslPqsgr9rj6ev38YN9grecZOwk+1+S1z9K3tKR1" + + "3R49QKSsWfYf+9qURG41LRYYRF9qikj1z7c1a4BCuDYUUSLOORMio3mpBhmsFGFP/AMsH1gMf/ixcbm1" + + "hG/Xxhsm7z+GTn2KtnxfbLua3QfhgUhTkP7Sx059A9yl7upq9t6+tRMpEJssTnsw/1R0qtEqocnjddnn" + + "nfoDRBuwi7P9FU812IBp/n884IrV5q7u0eHhuTu+kCBSTjyr/K736bIgMU1ESdHvFrHr32U2PaM+ScuX" + + "L0GAQEiWpSlwrtSwJmo9FpGtcfl+JABzMAoQGTGCq319MmLRdddXm9Pf//YQL9ce3Xq1D5+/0/ljd/Ak" + + "M0Ac5EQg3YFm/MbOvLxMq6vrqG19eSZaUiFxfUGQ4YjZ7i/gy+2aX6otuoUE0ftlFHYZCyMvzNnz9woK" + + "b5VVeVpbh7q6xN7usWbmUT/n2TrM3LC4xQiUzn2CB4aoaQmfpvPM477A3nXKKlg3FGkgmK2zMwYr4/NP" + + "rU7U6btuF5PIdrtJeXlnZ0tE0MDU0ODkF7wuQbh4D/iTd8M5oRRFAIyIA+WUltlAl6j4958CCf/G+pt8" + + "jY0nj57JiqkhKWPcCatD6m+Hwbal5v35WdfZJbeujMwODg50M9VXuE+f3/yxAZy8O/I208CPUEKo34t5" + + "W8+3vAE3rwYJy6m7ZanyIbHiGJdCqnf5Ar0I+NjVTU1lwovWU+BMQX3FCp9aori9drwpL4g0uvx209yJ" + + "eemAlMdQyNDg4NSXxu55Zg4vprb8jxe9zCOn0dNEK5pqywwuFKH3vne+NkDqCwbldq5Igd3+4JsiSerH" + + "mEP4pU6nPxz5OsZvDvq8XpZhqAaAJXekRnj9aqNahilQG+ew+IU9jUJF1PJgb8ibz+B1z5EdWT4Zi0EA" + + "Wdj234UuFMoY8ITgqGVZS7/OI2jihGDS/HvfIfLT4W7/UNDX6R/ATGOAVUYNWTk5iiMqs6k9Xot0MTF3" + + "E077mkhn/wTiX+UerHqJaotarFq0QOOlbqpnUtR1Q0Mu6fywVgmV04QAAoOBw/C/Dd0cvK/y+N9cmC0t" + + "t6bGiJ1hvA07TlutQ4Miyu14fZqsvsvYEcJxxoWeiBAQud1BT28kg2yEQUxeAwwiu4UUjIBJSEcluRL/" + + "0tem081+aUOwy7wuo7f+vSkZQspPeMbHkrPtCupIyVVkT424Eftn0qaR4ECo81usieOggie+ufJ735L3" + + "vVdeduzeNefyNuek9YvFBMekTb9sbz3T+HCm5+WV8+jP2yVDr3/Eqq8oeBUgMoSyjsubXgK73xa2v9na" + + "MeL0jtfh8n4VR05ujwwMuKubTh5+lRKKk159an6jFxHpDNpfUizMwUZ7agm+0JAwQPWL+AdSdztAu7OB" + + "VR1DbkuTZw9OG55dyLfwjXe5JrLUEkWf3y1vP15eeX8wI44VHmdAaVYZZl3XeGch1FNIdfp5ZrKuMunu" + + "N++Elj3lLjrz4WS9IGBe86cbJZ0Q36YkZOtJCXagK+qr2YnKqNNbvJBHBULGAVl4xcSTzaRKEPURaAXC" + + "BCRo98V2uigGOA9VwMHlvu3/BDdymPSE1mmt0U6SXlQ+YgS7u8aKzwzYVhHkv8ZDXdX1nhYpgJXBnh9X" + + "9ReP10+qkhvwy2usPQMqDsr5B7hvzLggEv9YIIKTo0e+C9UkgtM0mGep96EiSxJKk722wRJxrds0r44r" + + "ix7YHD8nMMB7g9HMfv588M9XZFeD7k9YFWLZKqNltpxh5vsD0kfBOqMAioN9KLrp3HzTUChejhyXx9Pf" + + "Q+V5sihQUww31GN8vVSmyuIXl2o6ZZ/60/Q8URuZKTMVcOSxiyQfqCXm/7MpMlHg4w2uaKld0cABWHRd" + + "Sfa+jx27iNSQI1EXG0JsuxFpVmcJAaFlkUp7zco/knkTMaU1/BHbK32J/6A3/ycWHWh19eb6XRA/M9wO" + + "kZ8nZEZvnqmU+OiaqOtGq+fjlGQExV+gRKfxmd3E3EyBBRztcXI+j4qzuEkiQHFsijkfYzWPj5l/1iUw" + + "FrDH769eizxB8Kaxybsh6ekQMWd25BD0lPoQG/s4U5J8DSn0FAcdc0uPQV6OR1tfAaf20s48BMFE5a5u" + + "hJ0ag+6kcWJKqOSXHAUJSwadx7lI4Hipjtjm5YEVi0UzQnc2GhZZRWEJzs4k697hjOTaqZar/+fSK+Pk" + + "p4B3fQMtu0lSAWKkbeIs+xEZTkoxCihjP4WgPIXTpBI6UnTbf+2vw5A9N33olR5rbGtE8ocDqdzeKAn0" + + "kajSuPhgG/DrbFeH2mj0zOKxYbSSeNWVJQuSgKTXgKvuvwJWrdoIjtaerHd7d++VHhDh996VDJvGhsez" + + "Su8DDZ6N8JGo0rMocRZkd6O22vIf98foxlhRimsprJxwxZ0w0YUlWkYkkWx4AhKeGLC+UmU9IGWCv/2H" + + "9Hd+HWd9P4Ssa26paPdWVAw1tfPl8RWSiKLZEGvb6wh9yM92CgA1dgo8hZzaXu4si9FjTOh879WpD8eJ" + + "b1QV+7f9rcC7P4rdWLCImLfPnLPX+Gtv+fr5q5qs6eo0ng4jtpwW01MwJ9Beg2j1JnA6817UNkFLVAx/" + + "whIjy58giOdiTTXjG1fygNQIOtNnbDvRdTiHeXFcf8QupIxa2k8nD19FUbDzgReX4xO7eaKskQxFImoj" + + "R7lAGjWp4IaXBXzFSA8bYmj0isHFTH+cZK+FUtEFCRUpAIF/mJL40Gvt2GQ/n5sNEZ6Gp5O7kZF2SgUn" + + "rAsCflHuYRFXPanEEfVPBWAglH6N8cJK0N5KuSKu1+QupqIjDVerzqTtjQeZNR+v9JDeIqQXgn4lp1go" + + "1IoEkHAp9InLELZnzIPUz9Cu8v/3g9FkJ658ltQ716MspP5yTFU4pj5P3fa8AT78h/iTJhKb6ZeHyZPC" + + "U/AKLJHSy+2uWh4YowGsc6TjvyL6GtDJWrFWZV+Gq+340Y3lZ4lzjNtoWxnOhsR8BVGt6JiB9Ls9Szgc" + + "zlU+ojMpsk1tm2pCKcGhhLeBW/8YInYW6sBqkofWSQLb6Fqhj8T0EtnuQ3fwuk7hYnJ4LYOXu8FoPu40" + + "qD0LI5KBUcoo85Po7ye76CM8izrZUAh+B/8y/GO+kAEo2yL1yLWJiWzSk+TZ9cN7tf/wV+zoClOTeel5" + + "gqIo6j0vBCKoxLdQmkcBUajgIL0EJ4iGAXQB+P41vrppFfLelobhTRv1nyUUhWYlLoa0dhdKZw6Y8FbP" + + "G7cFig9D0elUJonSRcVG3VG2yhudvm3LeVVG2UlloNxpE0LlBHJEueofJRuob8nzQNTY/A0+T3hBcFfk" + + "Hbv4CuB0gucJqHHV47ROJqbzGH1KKVkW60e//a/ibJRfn/cBNQGb2qdaZajCCQlUWem6MRZFu514/4WE" + + "hgXeIHIAvYPjxd+Nrnv5aktL6LCM/JoH7nbRe4OkNFBnPshF/8E+vwAN9KN7/ZAVZ/c7YH5fKlN3PT18" + + "IlcYVT6IG6qL0r66YpkweMyHO5ml16WwRD53/wCf/QzdHQV/7tX8a/+XnrvGXnNQzjhYbz3++TQT0jSj" + + "0nST8mhl/Hu57g350ubvysHB5Vbv3pZ3vsCSYj8Lw11priJdq0zzVAaDx+X984enmR0OYPb+B38io57T" + + "Scp9W+2GQZLfPAVIjlr4cDNqhXsK+xA7BaNJ9FAwUbFCBtl/s7a2ONyS8xxOTpxltFVO9r8AlRGaWWP1" + + "WrUkKx+jSpXsa/aNgYoMDrZFhWetAU9bT4Kx+WmarJ3SbB0Qyn5I+J2aGM11GlQ/ln0zrO0jgwvBqzgv" + + "KzOw0bgghG1w25pR6JusWLq6zq8b0mgpx6FnWmWIhnUnrpqqRlBkSxhIVm7gGz6Bi1AaD7gvuiaA+16C" + + "cOEjQtpBXTjY7Td9BhZr7RshPXVzuy3YJ34BTjpx+N9DZFeP11pnNVH8dg9cEkuL4XLP0bbSxa+twHyI" + + "Cg3QNLJw9FOkrieRnTjLJeTzOUboIzIFaTSyQUG2oGW9dk4vaUMFmgGI24do4vAhLxkrvRc4F4Pmr6ko" + + "9oA/X/9Au7LZORrQkNdnK9J7mqEFg10oIEmzteAuz2crxH5Okh3ExRQOV+73KWM0LvBfugpOqg82AytO" + + "giT5S6YDLe0d2HQw/sa5G4PP9CB26u43GP/By36UH+7SimzAAAAAElFTkSuQmCCCw=="; + this._resources = new DevExpress.XtraReports.Serialization.XRResourceManager(resourceString); + } + return this._resources; + } + } + private void InitializeComponent() { + this.detailBand1 = new DevExpress.XtraReports.UI.DetailBand(); + this.pageFooterBand1 = new DevExpress.XtraReports.UI.PageFooterBand(); + this.reportHeaderBand1 = new DevExpress.XtraReports.UI.ReportHeaderBand(); + this.topMarginBand1 = new DevExpress.XtraReports.UI.TopMarginBand(); + this.bottomMarginBand1 = new DevExpress.XtraReports.UI.BottomMarginBand(); + this.label10 = new DevExpress.XtraReports.UI.XRLabel(); + this.line1 = new DevExpress.XtraReports.UI.XRLine(); + this.label27 = new DevExpress.XtraReports.UI.XRLabel(); + this.label26 = new DevExpress.XtraReports.UI.XRLabel(); + this.label25 = new DevExpress.XtraReports.UI.XRLabel(); + this.label24 = new DevExpress.XtraReports.UI.XRLabel(); + this.label23 = new DevExpress.XtraReports.UI.XRLabel(); + this.label22 = new DevExpress.XtraReports.UI.XRLabel(); + this.label21 = new DevExpress.XtraReports.UI.XRLabel(); + this.label20 = new DevExpress.XtraReports.UI.XRLabel(); + this.label19 = new DevExpress.XtraReports.UI.XRLabel(); + this.label18 = new DevExpress.XtraReports.UI.XRLabel(); + this.label17 = new DevExpress.XtraReports.UI.XRLabel(); + this.label16 = new DevExpress.XtraReports.UI.XRLabel(); + this.label14 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport3 = new DevExpress.XtraReports.UI.XRSubreport(); + this.subreport2 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label12 = new DevExpress.XtraReports.UI.XRLabel(); + this.label15 = new DevExpress.XtraReports.UI.XRLabel(); + this.label13 = new DevExpress.XtraReports.UI.XRLabel(); + this.label11 = new DevExpress.XtraReports.UI.XRLabel(); + this.label9 = new DevExpress.XtraReports.UI.XRLabel(); + this.label8 = new DevExpress.XtraReports.UI.XRLabel(); + this.label5 = new DevExpress.XtraReports.UI.XRLabel(); + this.subreport1 = new DevExpress.XtraReports.UI.XRSubreport(); + this.label7 = new DevExpress.XtraReports.UI.XRLabel(); + this.pageInfo2 = new DevExpress.XtraReports.UI.XRPageInfo(); + this.table1 = new DevExpress.XtraReports.UI.XRTable(); + this.label1 = new DevExpress.XtraReports.UI.XRLabel(); + this.label3 = new DevExpress.XtraReports.UI.XRLabel(); + this.label2 = new DevExpress.XtraReports.UI.XRLabel(); + this.label4 = new DevExpress.XtraReports.UI.XRLabel(); + this.label6 = new DevExpress.XtraReports.UI.XRLabel(); + this.tableRow1 = new DevExpress.XtraReports.UI.XRTableRow(); + this.tableCell2 = new DevExpress.XtraReports.UI.XRTableCell(); + this.tableCell1 = new DevExpress.XtraReports.UI.XRTableCell(); + this.pictureBox1 = new DevExpress.XtraReports.UI.XRPictureBox(); + this.Title = new DevExpress.XtraReports.UI.XRControlStyle(); + this.FieldCaption = new DevExpress.XtraReports.UI.XRControlStyle(); + this.PageInfo = new DevExpress.XtraReports.UI.XRControlStyle(); + this.DataField = new DevExpress.XtraReports.UI.XRControlStyle(); + this.ParcelBrutto = new DevExpress.XtraReports.UI.CalculatedField(); + this.SuperStructureBrutto = new DevExpress.XtraReports.UI.CalculatedField(); + this.ParcelVAT = new DevExpress.XtraReports.UI.CalculatedField(); + this.SuperStructureVAT = new DevExpress.XtraReports.UI.CalculatedField(); + ((System.ComponentModel.ISupportInitialize)(this.table1)).BeginInit(); + ((System.ComponentModel.ISupportInitialize)(this)).BeginInit(); + // + // detailBand1 + // + this.detailBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.label10, + this.line1, + this.label27, + this.label26, + this.label25, + this.label24, + this.label23, + this.label22, + this.label21, + this.label20, + this.label19, + this.label18, + this.label17, + this.label16, + this.label14, + this.subreport3, + this.subreport2, + this.label12, + this.label15, + this.label13, + this.label11, + this.label9, + this.label8, + this.label5, + this.subreport1, + this.label7}); + this.detailBand1.HeightF = 255.2084F; + this.detailBand1.Name = "detailBand1"; + // + // pageFooterBand1 + // + this.pageFooterBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pageInfo2}); + this.pageFooterBand1.HeightF = 30.04169F; + this.pageFooterBand1.Name = "pageFooterBand1"; + // + // reportHeaderBand1 + // + this.reportHeaderBand1.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.table1, + this.label1, + this.label3, + this.label2, + this.label4, + this.label6}); + this.reportHeaderBand1.HeightF = 162.4584F; + this.reportHeaderBand1.Name = "reportHeaderBand1"; + this.reportHeaderBand1.StylePriority.UseTextAlignment = false; + this.reportHeaderBand1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleCenter; + // + // topMarginBand1 + // + this.topMarginBand1.HeightF = 25F; + this.topMarginBand1.Name = "topMarginBand1"; + // + // bottomMarginBand1 + // + this.bottomMarginBand1.HeightF = 21F; + this.bottomMarginBand1.Name = "bottomMarginBand1"; + // + // label10 + // + this.label10.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.AreaListPriceBruttoHUF", "{0:#,##0}")}); + this.label10.LocationFloat = new DevExpress.Utils.PointFloat(125.5952F, 99.80151F); + this.label10.Name = "label10"; + this.label10.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label10.SizeF = new System.Drawing.SizeF(126.0417F, 22.99999F); + this.label10.StylePriority.UseTextAlignment = false; + this.label10.Text = "label10"; + this.label10.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // line1 + // + this.line1.LocationFloat = new DevExpress.Utils.PointFloat(313.5417F, 125F); + this.line1.Name = "line1"; + this.line1.SizeF = new System.Drawing.SizeF(442.7083F, 3.125F); + // + // label27 + // + this.label27.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ParcelVAT", "{0:#,##0}")}); + this.label27.LocationFloat = new DevExpress.Utils.PointFloat(530.9583F, 76.80149F); + this.label27.Name = "label27"; + this.label27.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label27.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label27.StylePriority.UseTextAlignment = false; + this.label27.Text = "label27"; + this.label27.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label26 + // + this.label26.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SuperStructureVAT", "{0:#,##0}")}); + this.label26.LocationFloat = new DevExpress.Utils.PointFloat(530.9583F, 99.80151F); + this.label26.Name = "label26"; + this.label26.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label26.SizeF = new System.Drawing.SizeF(100F, 23F); + this.label26.StylePriority.UseTextAlignment = false; + this.label26.Text = "label26"; + this.label26.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label25 + // + this.label25.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label25.LocationFloat = new DevExpress.Utils.PointFloat(630.9583F, 59.62302F); + this.label25.Name = "label25"; + this.label25.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label25.SizeF = new System.Drawing.SizeF(126.0417F, 14.88094F); + this.label25.StylePriority.UseFont = false; + this.label25.StylePriority.UseTextAlignment = false; + this.label25.Text = "Bruttó"; + this.label25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label24 + // + this.label24.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label24.LocationFloat = new DevExpress.Utils.PointFloat(523.762F, 59.62302F); + this.label24.Name = "label24"; + this.label24.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label24.SizeF = new System.Drawing.SizeF(107.1962F, 14.88094F); + this.label24.StylePriority.UseFont = false; + this.label24.StylePriority.UseTextAlignment = false; + this.label24.Text = "ÁFA"; + this.label24.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label23 + // + this.label23.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label23.LocationFloat = new DevExpress.Utils.PointFloat(420.6369F, 59.62302F); + this.label23.Name = "label23"; + this.label23.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label23.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label23.StylePriority.UseFont = false; + this.label23.StylePriority.UseTextAlignment = false; + this.label23.Text = "Nettó"; + this.label23.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label22 + // + this.label22.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "SuperStructureBrutto", "{0:#,##0}")}); + this.label22.LocationFloat = new DevExpress.Utils.PointFloat(630.9583F, 99.80151F); + this.label22.Name = "label22"; + this.label22.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label22.SizeF = new System.Drawing.SizeF(126.0417F, 22.99999F); + this.label22.StylePriority.UseTextAlignment = false; + this.label22.Text = "label22"; + this.label22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label21 + // + this.label21.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "ParcelBrutto", "{0:#,##0}")}); + this.label21.LocationFloat = new DevExpress.Utils.PointFloat(630.9583F, 74.50396F); + this.label21.Name = "label21"; + this.label21.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label21.SizeF = new System.Drawing.SizeF(126.0417F, 22.99999F); + this.label21.StylePriority.UseTextAlignment = false; + this.label21.Text = "label21"; + this.label21.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label20 + // + this.label20.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.Immovables.LotNumber")}); + this.label20.LocationFloat = new DevExpress.Utils.PointFloat(125.5952F, 126.0754F); + this.label20.Name = "label20"; + this.label20.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label20.SizeF = new System.Drawing.SizeF(126.0417F, 23.00002F); + this.label20.Text = "label20"; + // + // label19 + // + this.label19.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label19.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543131F, 128.0417F); + this.label19.Name = "label19"; + this.label19.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label19.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label19.StylePriority.UseFont = false; + this.label19.Text = "Helyrajzi szám:"; + // + // label18 + // + this.label18.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name")}); + this.label18.Font = new System.Drawing.Font("Arial Narrow", 8.25F, System.Drawing.FontStyle.Bold); + this.label18.LocationFloat = new DevExpress.Utils.PointFloat(125.5952F, 0F); + this.label18.Name = "label18"; + this.label18.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label18.SizeF = new System.Drawing.SizeF(126.0417F, 23F); + this.label18.StylePriority.UseFont = false; + this.label18.Text = "label18"; + // + // label17 + // + this.label17.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label17.LocationFloat = new DevExpress.Utils.PointFloat(313.7917F, 128.0417F); + this.label17.Name = "label17"; + this.label17.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label17.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label17.StylePriority.UseFont = false; + this.label17.Text = "Bruttó vételár:"; + // + // label16 + // + this.label16.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label16.LocationFloat = new DevExpress.Utils.PointFloat(313.7917F, 99.80151F); + this.label16.Name = "label16"; + this.label16.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label16.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label16.StylePriority.UseFont = false; + this.label16.Text = "Felépítmény:"; + // + // label14 + // + this.label14.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label14.LocationFloat = new DevExpress.Utils.PointFloat(313.7917F, 74.50396F); + this.label14.Name = "label14"; + this.label14.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label14.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label14.StylePriority.UseFont = false; + this.label14.Text = "Telek:"; + // + // subreport3 + // + this.subreport3.LocationFloat = new DevExpress.Utils.PointFloat(0.0002543131F, 194.7917F); + this.subreport3.Name = "subreport3"; + this.subreport3.ReportSourceUrl = "Ügyvédi segédanyag - Customers"; + this.subreport3.Scripts.OnBeforePrint = "subreport3_BeforePrint"; + this.subreport3.SizeF = new System.Drawing.SizeF(757F, 60.41669F); + // + // subreport2 + // + this.subreport2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 151.0417F); + this.subreport2.Name = "subreport2"; + this.subreport2.ReportSourceUrl = "Ügyvédi segédanyag - Payment Forecast"; + this.subreport2.SizeF = new System.Drawing.SizeF(757F, 43.74998F); + // + // label12 + // + this.label12.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.ParcelPriceNettoHUF", "{0:#,##0}")}); + this.label12.LocationFloat = new DevExpress.Utils.PointFloat(420.6369F, 74.50396F); + this.label12.Name = "label12"; + this.label12.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label12.SizeF = new System.Drawing.SizeF(103.1251F, 23.00002F); + this.label12.StylePriority.UseTextAlignment = false; + this.label12.Text = "label12"; + this.label12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label15 + // + this.label15.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.ListPriceBruttoHUF", "{0:#,##0}")}); + this.label15.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.label15.LocationFloat = new DevExpress.Utils.PointFloat(630.9583F, 128.0417F); + this.label15.Name = "label15"; + this.label15.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label15.SizeF = new System.Drawing.SizeF(126.0417F, 23.00001F); + this.label15.StylePriority.UseFont = false; + this.label15.StylePriority.UseTextAlignment = false; + this.label15.Text = "label15"; + this.label15.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label13 + // + this.label13.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF", "{0:#,##0}")}); + this.label13.LocationFloat = new DevExpress.Utils.PointFloat(420.6369F, 99.80151F); + this.label13.Name = "label13"; + this.label13.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label13.SizeF = new System.Drawing.SizeF(103.1252F, 22.99999F); + this.label13.StylePriority.UseTextAlignment = false; + this.label13.Text = "label13"; + this.label13.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label11 + // + this.label11.Borders = ((DevExpress.XtraPrinting.BorderSide)((((DevExpress.XtraPrinting.BorderSide.Left | DevExpress.XtraPrinting.BorderSide.Top) + | DevExpress.XtraPrinting.BorderSide.Right) + | DevExpress.XtraPrinting.BorderSide.Bottom))); + this.label11.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "Immovables_Oid")}); + this.label11.LocationFloat = new DevExpress.Utils.PointFloat(613.7266F, 0F); + this.label11.Name = "label11"; + this.label11.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label11.SizeF = new System.Drawing.SizeF(143.2735F, 15.93916F); + this.label11.StylePriority.UseBorders = false; + this.label11.Text = "label11"; + this.label11.Visible = false; + // + // label9 + // + this.label9.DataBindings.AddRange(new DevExpress.XtraReports.UI.XRBinding[] { + new DevExpress.XtraReports.UI.XRBinding("Text", null, "CRMEstate_Leads_Immovables.Immovables.Ownership1")}); + this.label9.Font = new System.Drawing.Font("Arial Narrow", 9F); + this.label9.LocationFloat = new DevExpress.Utils.PointFloat(125.5952F, 74.50396F); + this.label9.Name = "label9"; + this.label9.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label9.SizeF = new System.Drawing.SizeF(126.0417F, 14.88094F); + this.label9.StylePriority.UseFont = false; + this.label9.StylePriority.UseTextAlignment = false; + this.label9.Text = "label9"; + this.label9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // label8 + // + this.label8.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label8.LocationFloat = new DevExpress.Utils.PointFloat(0F, 99.80151F); + this.label8.Name = "label8"; + this.label8.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label8.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label8.StylePriority.UseFont = false; + this.label8.Text = "Bruttó m2 ár:"; + // + // label5 + // + this.label5.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label5.LocationFloat = new DevExpress.Utils.PointFloat(0F, 74.50396F); + this.label5.Name = "label5"; + this.label5.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label5.SizeF = new System.Drawing.SizeF(102.6786F, 14.88095F); + this.label5.StylePriority.UseFont = false; + this.label5.Text = "Tulajdoni hányad:"; + // + // subreport1 + // + this.subreport1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 15.93914F); + this.subreport1.Name = "subreport1"; + this.subreport1.ReportSourceUrl = "Ügyvédi segádanyag - Apartments alriport"; + this.subreport1.Scripts.OnBeforePrint = "subreport1_BeforePrint"; + this.subreport1.SizeF = new System.Drawing.SizeF(757F, 31.94443F); + // + // label7 + // + this.label7.Borders = DevExpress.XtraPrinting.BorderSide.Bottom; + this.label7.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label7.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.label7.Name = "label7"; + this.label7.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label7.SizeF = new System.Drawing.SizeF(102.6786F, 14.88094F); + this.label7.StylePriority.UseBorders = false; + this.label7.StylePriority.UseFont = false; + this.label7.Text = "Ingatlan adatai:"; + // + // pageInfo2 + // + this.pageInfo2.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold); + this.pageInfo2.Format = "Oldal {0} / {1}"; + this.pageInfo2.LocationFloat = new DevExpress.Utils.PointFloat(444F, 7.041677F); + this.pageInfo2.Name = "pageInfo2"; + this.pageInfo2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.pageInfo2.SizeF = new System.Drawing.SizeF(313F, 23F); + this.pageInfo2.StyleName = "PageInfo"; + this.pageInfo2.StylePriority.UseFont = false; + this.pageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight; + // + // table1 + // + this.table1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.table1.Name = "table1"; + this.table1.Rows.AddRange(new DevExpress.XtraReports.UI.XRTableRow[] { + this.tableRow1}); + this.table1.SizeF = new System.Drawing.SizeF(800F, 69.75001F); + // + // label1 + // + this.label1.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 83.33334F); + this.label1.Name = "label1"; + this.label1.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label1.SizeF = new System.Drawing.SizeF(45.3869F, 14.88095F); + this.label1.StylePriority.UseFont = false; + this.label1.Text = "Címzett:"; + // + // label3 + // + this.label3.Font = new System.Drawing.Font("Arial", 9F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label3.LocationFloat = new DevExpress.Utils.PointFloat(45.38701F, 83.33334F); + this.label3.Name = "label3"; + this.label3.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label3.SizeF = new System.Drawing.SizeF(711.6132F, 14.88094F); + this.label3.StylePriority.UseFont = false; + this.label3.Text = "Németh és Herrmann Ügyvédi Iroda"; + // + // label2 + // + this.label2.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label2.LocationFloat = new DevExpress.Utils.PointFloat(0F, 108.6309F); + this.label2.Name = "label2"; + this.label2.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label2.SizeF = new System.Drawing.SizeF(45.3869F, 14.88095F); + this.label2.StylePriority.UseFont = false; + this.label2.StylePriority.UseTextAlignment = false; + this.label2.Text = "Tárgy:"; + this.label2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + // + // label4 + // + this.label4.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Bold); + this.label4.LocationFloat = new DevExpress.Utils.PointFloat(45.38689F, 108.6309F); + this.label4.Name = "label4"; + this.label4.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label4.SizeF = new System.Drawing.SizeF(711.6131F, 14.88094F); + this.label4.StylePriority.UseFont = false; + this.label4.Text = "Ingatlan adásvételi szerződés elkészítése"; + // + // label6 + // + this.label6.Font = new System.Drawing.Font("Arial Narrow", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.label6.LocationFloat = new DevExpress.Utils.PointFloat(0F, 136.3095F); + this.label6.Name = "label6"; + this.label6.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + this.label6.SizeF = new System.Drawing.SizeF(757F, 14.88094F); + this.label6.StylePriority.UseFont = false; + this.label6.Text = "Az alábbiakban közlöm az adás-vétel re vonatkozó adatokat:"; + // + // tableRow1 + // + this.tableRow1.Cells.AddRange(new DevExpress.XtraReports.UI.XRTableCell[] { + this.tableCell2, + this.tableCell1}); + this.tableRow1.Name = "tableRow1"; + this.tableRow1.Weight = 1D; + // + // tableCell2 + // + this.tableCell2.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[] { + this.pictureBox1}); + this.tableCell2.Name = "tableCell2"; + this.tableCell2.Text = "tableCell2"; + this.tableCell2.Weight = 0.26837054692124429D; + // + // tableCell1 + // + this.tableCell1.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(255)))), ((int)(((byte)(98)))), ((int)(((byte)(1))))); + this.tableCell1.Font = new System.Drawing.Font("Arial Narrow", 26.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.tableCell1.ForeColor = System.Drawing.Color.FromArgb(((int)(((byte)(255)))), ((int)(((byte)(255)))), ((int)(((byte)(255))))); + this.tableCell1.Name = "tableCell1"; + this.tableCell1.StylePriority.UseBackColor = false; + this.tableCell1.StylePriority.UseFont = false; + this.tableCell1.StylePriority.UseForeColor = false; + this.tableCell1.StylePriority.UseTextAlignment = false; + this.tableCell1.Text = " Pesti Házak Rt."; + this.tableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft; + this.tableCell1.Weight = 3.4239368468956659D; + // + // pictureBox1 + // + this.pictureBox1.Image = ((System.Drawing.Image)(resources.GetObject("pictureBox1.Image"))); + this.pictureBox1.LocationFloat = new DevExpress.Utils.PointFloat(0F, 0F); + this.pictureBox1.Name = "pictureBox1"; + this.pictureBox1.SizeF = new System.Drawing.SizeF(57.70833F, 69.125F); + // + // Title + // + this.Title.BackColor = System.Drawing.Color.White; + this.Title.BorderColor = System.Drawing.SystemColors.ControlText; + this.Title.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.Title.BorderWidth = 1; + this.Title.Font = new System.Drawing.Font("Times New Roman", 20F, System.Drawing.FontStyle.Bold); + this.Title.ForeColor = System.Drawing.Color.Maroon; + this.Title.Name = "Title"; + // + // FieldCaption + // + this.FieldCaption.BackColor = System.Drawing.Color.White; + this.FieldCaption.BorderColor = System.Drawing.SystemColors.ControlText; + this.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.FieldCaption.BorderWidth = 1; + this.FieldCaption.Font = new System.Drawing.Font("Arial", 10F, System.Drawing.FontStyle.Bold); + this.FieldCaption.ForeColor = System.Drawing.Color.Maroon; + this.FieldCaption.Name = "FieldCaption"; + // + // PageInfo + // + this.PageInfo.BackColor = System.Drawing.Color.White; + this.PageInfo.BorderColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.PageInfo.BorderWidth = 1; + this.PageInfo.Font = new System.Drawing.Font("Times New Roman", 10F, System.Drawing.FontStyle.Bold); + this.PageInfo.ForeColor = System.Drawing.SystemColors.ControlText; + this.PageInfo.Name = "PageInfo"; + // + // DataField + // + this.DataField.BackColor = System.Drawing.Color.White; + this.DataField.BorderColor = System.Drawing.SystemColors.ControlText; + this.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None; + this.DataField.BorderWidth = 1; + this.DataField.Font = new System.Drawing.Font("Times New Roman", 10F); + this.DataField.ForeColor = System.Drawing.SystemColors.ControlText; + this.DataField.Name = "DataField"; + this.DataField.Padding = new DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100F); + // + // ParcelBrutto + // + this.ParcelBrutto.Expression = "[CRMEstate_Leads_Immovables.ParcelPriceNettoHUF] * (1+[CRMEstate_Leads_Immovables" + + ".VAT.KeyValue])"; + this.ParcelBrutto.Name = "ParcelBrutto"; + // + // SuperStructureBrutto + // + this.SuperStructureBrutto.Expression = "[CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF] * (1+[CRMEstate_Leads_Im" + + "movables.VAT.KeyValue])"; + this.SuperStructureBrutto.Name = "SuperStructureBrutto"; + // + // ParcelVAT + // + this.ParcelVAT.Expression = "[CRMEstate_Leads_Immovables.ParcelPriceNettoHUF] * [CRMEstate_Leads_Immovables.VA" + + "T.KeyValue]"; + this.ParcelVAT.Name = "ParcelVAT"; + // + // SuperStructureVAT + // + this.SuperStructureVAT.Expression = "[CRMEstate_Leads_Immovables.SuperstructurePriceNettoHUF] * [CRMEstate_Leads_Immov" + + "ables.VAT.KeyValue]"; + this.SuperStructureVAT.Name = "SuperStructureVAT"; + // + // xafReport1 + // + this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[] { + this.detailBand1, + this.pageFooterBand1, + this.reportHeaderBand1, + this.topMarginBand1, + this.bottomMarginBand1}); + this.CalculatedFields.AddRange(new DevExpress.XtraReports.UI.CalculatedField[] { + this.ParcelBrutto, + this.SuperStructureBrutto, + this.ParcelVAT, + this.SuperStructureVAT}); + this.DisplayName = "Ügyvédi segédanyag"; + this.Extensions.Add("DataSerializationExtension", "XafReport"); + this.Extensions.Add("DataEditorExtension", "XafReport"); + this.Extensions.Add("ParameterEditorExtension", "XafReport"); + this.Font = new System.Drawing.Font("Arial Narrow", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(238))); + this.Margins = new System.Drawing.Printing.Margins(23, 27, 25, 21); + this.Name = "xafReport1"; + this.PageHeight = 1100; + this.PageWidth = 850; + this.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic; + this.ScriptsSource = resources.GetString("$this.ScriptsSource"); + this.StyleSheet.AddRange(new DevExpress.XtraReports.UI.XRControlStyle[] { + this.Title, + this.FieldCaption, + this.PageInfo, + this.DataField}); + this.Version = "11.2"; + ((System.ComponentModel.ISupportInitialize)(this.table1)).EndInit(); + ((System.ComponentModel.ISupportInitialize)(this)).EndInit(); + } + } +} diff --git a/SISBusiness.Module/BusinessObjects/Support/Answer/Answer.vb b/SISBusiness.Module/BusinessObjects/Support/Answer/Answer.vb new file mode 100644 index 0000000..daf5b7b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Answer/Answer.vb @@ -0,0 +1,158 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + 8", AppearanceItemType.ViewItem, "QuestionStatus <> 8", TargetItems:="QuestionInProgressState", visibility:=Editors.ViewItemVisibility.Hide)> _ +Public Class Answer + Inherits BaseObject + Private _Question As Question + Private _QuestionStatus As eQuestionStatus + Private _IssueType As eIssueType + Private _DocumentNumber As String + Private _Description As String + Private _ObjectCreated As Date + Private _UserCreated As User + Private _Attachment As FileData + Private _QuestionInProgressState As QuestionInProgressState + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = Now + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If NumberGenerator IsNot Nothing Then + DocumentNumber = NumberGenerator.GetNewNumber(NumberGenerator, Year(Now).ToString) + End If + End If + End Sub + Property Question As Question + Get + Return _Question + End Get + Set(value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property + _ + Property QuestionStatus As eQuestionStatus + Get + Return _QuestionStatus + End Get + Set(value As eQuestionStatus) + SetPropertyValue("QuestionStatus", _QuestionStatus, value) + End Set + End Property + Property IssueType As eIssueType + Get + Return _IssueType + End Get + Set(value As eIssueType) + SetPropertyValue("IssueType", _IssueType, value) + End Set + End Property + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Attachment As FileData + Get + Return _Attachment + End Get + Set(value As FileData) + SetPropertyValue("Attachment", _Attachment, value) + End Set + End Property + Property QuestionInProgressState As QuestionInProgressState + Get + Return _QuestionInProgressState + End Get + Set(value As QuestionInProgressState) + SetPropertyValue("QuestionInProgressState", _QuestionInProgressState, value) + End Set + End Property + + '-------------ReadOnly---------------- + _ + ReadOnly Property NumberGenerator As NumberGenerator + Get + Return TryCast(Session.FindObject(Of SupportNG)(CriteriaOperator.Parse("SupportType=1")), SupportNG).NumberGenerator + End Get + End Property + _ + _ + ReadOnly Property HTMLEvents As String + Get + If Question IsNot Nothing Then + Return Question.HTMLEvents + Else + Return "" + End If + End Get + End Property + _ + ReadOnly Property EventsAttachments As XPCollection(Of FileData) + Get + Dim _FileData_Collection As New XPCollection(Of FileData)(Session, CriteriaOperator.Parse("1=2")) + Dim _Events_Collection As New XPCollection(Of Events)(Session, CriteriaOperator.Parse("Question=?", Me.Question)) + Dim _Events As [Events] + For Each _Events In _Events_Collection + If _Events.Attachment IsNot Nothing Then + _FileData_Collection.Add(_Events.Attachment) + End If + Next + Return _FileData_Collection + End Get + End Property +End Class + + + diff --git a/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.Designer.vb new file mode 100644 index 0000000..ecc7b37 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.Designer.vb @@ -0,0 +1,48 @@ +Partial Class AnswerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSaveAnswer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSaveAnswer + ' + Me.aSaveAnswer.Caption = "Save Answer" + Me.aSaveAnswer.ConfirmationMessage = Nothing + Me.aSaveAnswer.Id = "aSaveAnswer" + Me.aSaveAnswer.ImageName = "disk_red" + Me.aSaveAnswer.Shortcut = Nothing + Me.aSaveAnswer.Tag = Nothing + Me.aSaveAnswer.TargetObjectsCriteria = Nothing + Me.aSaveAnswer.TargetViewId = "Answer_DetailView" + Me.aSaveAnswer.ToolTip = Nothing + Me.aSaveAnswer.TypeOfView = Nothing + + End Sub + Friend WithEvents aSaveAnswer As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.resx b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.resx new file mode 100644 index 0000000..ee42fea --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.vb b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.vb new file mode 100644 index 0000000..64b5cb7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Answer/AnswerVC.vb @@ -0,0 +1,141 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering +Imports System.Net.Mail +Imports DevExpress.Persistent.BaseImpl +Imports System.Reflection + +Public Class AnswerVC + 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 = "Answer_DetailView" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Answer As Answer + + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + 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) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + _Answer = TryCast(View.SelectedObjects(0), Answer) + If _ocur.Session.IsNewObject(_Answer) Then + Frame.GetController(Of AnswerVC).aSaveAnswer.Active.SetItemValue("", True) + Else + Frame.GetController(Of AnswerVC).aSaveAnswer.Active.SetItemValue("", False) + End If + If View.Id = "Answer_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Answer_DetailView" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aSaveAnswer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSaveAnswer.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Answer As Answer = TryCast(View.SelectedObjects(0), Answer) + + Dim _Events As Events + If _Answer IsNot Nothing Then + _Answer.Question.QuestionStatus = _Answer.QuestionStatus + _Answer.Question.IssueType = _Answer.IssueType + _Answer.Question.Save() + _Answer.Save() + + _ocur.CommitChanges() + + _Events = _onew.CreateObject(Of Events)() + _Events.Question = _onew.GetObject(_Answer.Question) + _Events.QuestionStatus = _Answer.QuestionStatus + _Events.Description = _Answer.Description + If _Answer.Attachment IsNot Nothing Then _Events.Attachment = _onew.GetObject(_Answer.Attachment) + _Events.Save() + _Events.EventDirection = eEventDirection.eOut + _onew.CommitChanges() + + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + Dim _MailMessage As New MailMessage + Dim _Attachment As Attachment + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_Answer.Question.UserCreated.Email) + _MailMessage.Subject = _Answer.Question.DocumentNumber + " szm bejelentsre vlasz" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody = String.Format(_EmailBody, _Answer.Question.UserCreated.FullName, _Answer.Question.DocumentNumber, DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Answer.Question.QuestionStatus.ToString) + _ + vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) + _EmailBody = _EmailBody + vbNewLine + CreateHTMLEventsMail(_Answer.Question, _ocur.Session) + + _MailMessage.Body = _EmailBody + _MailMessage.Attachments.Clear() + If Not String.IsNullOrEmpty(GLOBAL_ApplicationStartupPath_Mail) Then + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iRedArrow.png") + _Attachment.ContentId = "c001" + _MailMessage.Attachments.Add(_Attachment) + + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iGreenArrow.png") + _Attachment.ContentId = "c002" + _MailMessage.Attachments.Add(_Attachment) + End If + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _ocur.CommitChanges() + End Try + + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Answer.Question)) + View.Close() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Events.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Events.vb new file mode 100644 index 0000000..8a83bb7 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Events.vb @@ -0,0 +1,100 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eEventDirection + eIn = 0 + eOut = 1 +End Enum + _ + _ +Public Class Events + Inherits BaseObject + Private _EventDirection As eEventDirection + Private _Question As Question + Private _QuestionStatus As eQuestionStatus + Private _ObjectCreated As Date + Private _UserCreated As User + Private _Description As String + Private _Attachment As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = Now + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property EventDirection As eEventDirection + Get + Return _EventDirection + End Get + Set(value As eEventDirection) + SetPropertyValue("EventDirection", _EventDirection, value) + End Set + End Property + Property Question As Question + Get + Return _Question + End Get + Set(value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property + Property QuestionStatus As eQuestionStatus + Get + Return _QuestionStatus + End Get + Set(value As eQuestionStatus) + SetPropertyValue("QuestionStatus", _QuestionStatus, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property Attachment As FileData + Get + Return _Attachment + End Get + Set(value As FileData) + SetPropertyValue("Attachment", _Attachment, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Popup/QuestionClosePopup.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Popup/QuestionClosePopup.vb new file mode 100644 index 0000000..1521507 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Popup/QuestionClosePopup.vb @@ -0,0 +1,24 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class QuestionClosePopup + Inherits BaseObject + Property Description As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Question.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Question.vb new file mode 100644 index 0000000..33ef938 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Question.vb @@ -0,0 +1,363 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Utils + + _ + _ + _ + _ + _ + _ + _ +eInProgress (8)", AppearanceItemType:="ViewItem", TargetItems:="QuestionInProgressState", Visibility:=Editors.ViewItemVisibility.Hide, Criteria:="QuestionStatus<>8", Context:="Any")> _ +Public Class Question + Inherits BaseObject + Private _QuestionStatus As eQuestionStatus + Private _QuestionClosed As eQuestionClosed + Private _IssueType As eIssueType + Private _DocumentNumber As String + Private _Subject As String + Private _Attachment As FileData + Private _Description As String + Private _User As User + Private _UserResponsible As User 'Felels szemly + Private _ObjectCreated As Date + Private _UserCreated As User + Private _Customers As Customers + Private _AliasUser As User 'Aki ltrehozta az User nevben + Private _QuestionInProgressState As QuestionInProgressState + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ObjectCreated = GetSQLTime(Session) + DocumentNumber = "" + End Sub + Protected Overrides Sub OnSaving() + Dim _Contacts As Contacts + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = Now + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + If User Is Nothing Then + User = UserCreated + End If + If String.IsNullOrEmpty(DocumentNumber) And NumberGenerator IsNot Nothing Then + DocumentNumber = NumberGenerator.GetNewNumber(NumberGenerator, Year(Now).ToString) + End If + If AliasUser IsNot Nothing Then + _Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", AliasUser.Oid)) + If _Contacts IsNot Nothing Then Customers = _Contacts.Customers + Else + _Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", User.Oid)) + If _Contacts IsNot Nothing Then Customers = _Contacts.Customers + End If + + End If + End Sub + _ + Property QuestionStatus As eQuestionStatus + Get + Return _QuestionStatus + End Get + Set(value As eQuestionStatus) + SetPropertyValue("QuestionStatus", _QuestionStatus, value) + End Set + End Property + _ + Property QuestionClosed As eQuestionClosed + Get + Return _QuestionClosed + End Get + Set(value As eQuestionClosed) + SetPropertyValue("QuestionClosed", _QuestionClosed, value) + End Set + End Property + _ + Property IssueType As eIssueType + Get + Return _IssueType + End Get + Set(value As eIssueType) + SetPropertyValue("IssueType", _IssueType, value) + End Set + End Property + _ + Property DocumentNumber As String + Get + Return _DocumentNumber + End Get + Set(value As String) + SetPropertyValue("DocumentNumber", _DocumentNumber, value) + End Set + End Property + _ + _ + Property Subject As String + Get + Return _Subject + End Get + Set(value As String) + SetPropertyValue("Subject", _Subject, value) + End Set + End Property + _ + Property Attachment As FileData + Get + Return _Attachment + End Get + Set(value As FileData) + SetPropertyValue("Attachment", _Attachment, value) + End Set + End Property + _ + _ + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + _ + Property UserResponsible As User + Get + Return _UserResponsible + End Get + Set(value As User) + SetPropertyValue("UserResponsible", _UserResponsible, value) + End Set + End Property + _ + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property Customers As Customers + Get + Return _Customers + End Get + Set(value As Customers) + SetPropertyValue("Customers", _Customers, value) + End Set + End Property + Property AliasUser As User + Get + Return _AliasUser + End Get + Set(value As User) + SetPropertyValue("AliasUser", _AliasUser, value) + End Set + End Property + Property QuestionInProgressState As QuestionInProgressState + Get + Return _QuestionInProgressState + End Get + Set(value As QuestionInProgressState) + SetPropertyValue("QuestionInProgressState", _QuestionInProgressState, value) + End Set + End Property + + '----------------ReadOnly------------ + _ + _ + ReadOnly Property DisplayName As String + Get + Return DocumentNumber & ", " & Subject + End Get + End Property + _ + _ + _ + ReadOnly Property HTMLEvents As String + Get + Return CreateHTMLEvents(Me, Session) + End Get + End Property + _ + ReadOnly Property IMG As System.Drawing.Image + Get + If Me.QuestionStatus = eQuestionStatus.eActive Then + Return ImageLoader.Instance.GetImageInfo("mail2").Image + Else + Return ImageLoader.Instance.GetImageInfo("mail").Image + End If + End Get + End Property + _ + ReadOnly Property NumberGenerator As NumberGenerator + Get + Return TryCast(Session.FindObject(Of SupportNG)(CriteriaOperator.Parse("SupportType=0")), SupportNG).NumberGenerator + End Get + End Property + _ + ReadOnly Property WorkSheet_Header As XPCollection(Of WorkSheet_Header) + Get + Return New XPCollection(Of WorkSheet_Header)(Session, CriteriaOperator.Parse("Question.Oid=?", Me.Oid)) + End Get + End Property + _ + _ + Private ReadOnly Property UserResponsibles As XPCollection(Of User) + Get + Dim _UserResponsibles_Collection As XPCollection(Of User) = New XPCollection(Of User)(Session, CriteriaOperator.Parse("1=1")) + Dim _UserResponsibles_Back_Collection As New XPCollection(Of User)(Session, CriteriaOperator.Parse("1=2")) + Dim _Need As Boolean = False + For Each _ActUser As User In _UserResponsibles_Collection + _Need = False + If SecuritySystemHelper.IsUserInRole("Supporter", _ActUser) Then + _Need = True + Else + Dim _Contacts As Contacts = Session.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _ActUser.Oid)) + If _Contacts IsNot Nothing Then + Dim _Customers As Customers = _Contacts.Customers + + Dim _Subcontractor As Subcontractor = Session.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Customers)) + If _Subcontractor IsNot Nothing Then + _Need = True + End If + End If + End If + _UserResponsibles_Back_Collection.Add(_ActUser) + Next + Return _UserResponsibles_Back_Collection + End Get + End Property + + + 'Private Function CreateHTMLEvents() As String + ' Dim _Events_Collection As New XPCollection(Of Events)(Session, CriteriaOperator.Parse("Question.Oid=?", Me.Oid)) + ' Dim _Events As Events + ' Dim s As String = "" + ' If _Events_Collection IsNot Nothing Then + ' _Events_Collection.Sorting.Add(New SortProperty("ObjectCreated", DB.SortingDirection.Ascending)) + + ' For Each _Events In _Events_Collection + ' If _Events.EventDirection = eEventDirection.eIn Then + ' s += "" + ' s += "" + ' s += "]", "i"), bd = /checked\s*(?:[^=]|=\s*.checked.)/i, be = /\/(java|ecma)script/i, bf = /^\s*", ""], legend: [1, "
", "
"], thead: [1, "
_ +Public Class QuestionInProgressState + Inherits BaseObject + + Dim _ShortName As String + Private _Description As String 'Lers + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/QuestionStatus.vb b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionStatus.vb new file mode 100644 index 0000000..fe24f37 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionStatus.vb @@ -0,0 +1,31 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +Public Enum eQuestionStatus + eActive = 0 ' j bejelents + eReactivated = 6 ' jranyitott + eProcessedAnswered = 1 ' Megvlaszolt + eProcessedCustomerClosed = 2 ' Felhasznl lezrta + eProcessedDuplicate = 3 ' Dupliklt problma + eProcessedFixed = 4 ' Javtott hiba + eProcessedInsufficientInformation = 5 'Nem elgsges informci + eInProgress = 8 'Folyamatban + eReviewed = 7 'Elolvasva +End Enum +Public Enum eQuestionClosed + eOpen = 0 + eClosed = 1 +End Enum +Public Enum eIssueType + eQuestion = 0 + eBugReport = 1 + eRequest = 2 +End Enum diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.Designer.vb b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.Designer.vb new file mode 100644 index 0000000..8d7d567 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.Designer.vb @@ -0,0 +1,195 @@ +Partial Class QuestionVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateAnswer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateReply = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCreateQuestion = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aViewQuestionInfo = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aCloseQuestion = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aCreateWorkSheetfromQuestion = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aSetUserResponsibleQuestion = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aOpenWorkSheet_Subcontractor_Question = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aViewQuestionInfo_Subcontractor = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aCreateAnswer + ' + Me.aCreateAnswer.Caption = "Create Answer" + Me.aCreateAnswer.Category = "Save" + Me.aCreateAnswer.ConfirmationMessage = Nothing + Me.aCreateAnswer.Id = "aCreateAnswer" + Me.aCreateAnswer.ImageName = "contract" + Me.aCreateAnswer.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateAnswer.Shortcut = Nothing + Me.aCreateAnswer.Tag = Nothing + Me.aCreateAnswer.TargetObjectsCriteria = "QuestionClosed=0" + Me.aCreateAnswer.TargetViewId = "" + Me.aCreateAnswer.ToolTip = Nothing + Me.aCreateAnswer.TypeOfView = Nothing + ' + 'aCreateReply + ' + Me.aCreateReply.Caption = "Create reply" + Me.aCreateReply.Category = "aCreateReply" + Me.aCreateReply.ConfirmationMessage = Nothing + Me.aCreateReply.Id = "aCreateReply" + Me.aCreateReply.ImageName = "message_add" + Me.aCreateReply.Shortcut = Nothing + Me.aCreateReply.Tag = Nothing + Me.aCreateReply.TargetObjectsCriteria = Nothing + Me.aCreateReply.TargetViewId = "" + Me.aCreateReply.ToolTip = Nothing + Me.aCreateReply.TypeOfView = Nothing + ' + 'aCreateQuestion + ' + Me.aCreateQuestion.Caption = "Create Question" + Me.aCreateQuestion.Category = "Save" + Me.aCreateQuestion.ConfirmationMessage = Nothing + Me.aCreateQuestion.Id = "aCreateQuestion" + Me.aCreateQuestion.ImageName = "message_edit" + Me.aCreateQuestion.Shortcut = Nothing + Me.aCreateQuestion.Tag = Nothing + Me.aCreateQuestion.TargetObjectsCriteria = Nothing + Me.aCreateQuestion.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aCreateQuestion.TargetViewId = "" + Me.aCreateQuestion.ToolTip = Nothing + Me.aCreateQuestion.TypeOfView = Nothing + ' + 'aViewQuestionInfo + ' + Me.aViewQuestionInfo.Caption = "aViewQuestionInfo" + Me.aViewQuestionInfo.Category = "RecordEdit" + Me.aViewQuestionInfo.ConfirmationMessage = Nothing + Me.aViewQuestionInfo.Id = "aViewQuestionInfo" + Me.aViewQuestionInfo.ImageName = "Action_Printing_Preview" + Me.aViewQuestionInfo.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewQuestionInfo.Shortcut = Nothing + Me.aViewQuestionInfo.Tag = Nothing + Me.aViewQuestionInfo.TargetObjectsCriteria = Nothing + Me.aViewQuestionInfo.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aViewQuestionInfo.TargetViewId = "" + Me.aViewQuestionInfo.ToolTip = Nothing + Me.aViewQuestionInfo.TypeOfView = Nothing + ' + 'aCloseQuestion + ' + Me.aCloseQuestion.AcceptButtonCaption = Nothing + Me.aCloseQuestion.CancelButtonCaption = Nothing + Me.aCloseQuestion.Caption = "Close Question" + Me.aCloseQuestion.Category = "aCloseQuestion" + Me.aCloseQuestion.ConfirmationMessage = Nothing + Me.aCloseQuestion.Id = "aCloseQuestion" + Me.aCloseQuestion.ImageName = Nothing + Me.aCloseQuestion.Shortcut = Nothing + Me.aCloseQuestion.Tag = Nothing + Me.aCloseQuestion.TargetObjectsCriteria = Nothing + Me.aCloseQuestion.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aCloseQuestion.TargetViewId = "" + Me.aCloseQuestion.ToolTip = Nothing + Me.aCloseQuestion.TypeOfView = Nothing + ' + 'aCreateWorkSheetfromQuestion + ' + Me.aCreateWorkSheetfromQuestion.AcceptButtonCaption = Nothing + Me.aCreateWorkSheetfromQuestion.CancelButtonCaption = Nothing + Me.aCreateWorkSheetfromQuestion.Caption = "aCreateWorkSheetfromQuestion" + Me.aCreateWorkSheetfromQuestion.ConfirmationMessage = Nothing + Me.aCreateWorkSheetfromQuestion.Id = "aCreateWorkSheetfromQuestion" + Me.aCreateWorkSheetfromQuestion.ImageName = Nothing + Me.aCreateWorkSheetfromQuestion.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aCreateWorkSheetfromQuestion.Shortcut = Nothing + Me.aCreateWorkSheetfromQuestion.Tag = Nothing + Me.aCreateWorkSheetfromQuestion.TargetObjectsCriteria = Nothing + Me.aCreateWorkSheetfromQuestion.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aCreateWorkSheetfromQuestion.TargetViewId = Nothing + Me.aCreateWorkSheetfromQuestion.ToolTip = Nothing + Me.aCreateWorkSheetfromQuestion.TypeOfView = Nothing + ' + 'aSetUserResponsibleQuestion + ' + Me.aSetUserResponsibleQuestion.AcceptButtonCaption = Nothing + Me.aSetUserResponsibleQuestion.CancelButtonCaption = Nothing + Me.aSetUserResponsibleQuestion.Caption = "aSet User Responsible Question" + Me.aSetUserResponsibleQuestion.ConfirmationMessage = Nothing + Me.aSetUserResponsibleQuestion.Id = "aSetUserResponsibleQuestion" + Me.aSetUserResponsibleQuestion.ImageName = Nothing + Me.aSetUserResponsibleQuestion.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aSetUserResponsibleQuestion.Shortcut = Nothing + Me.aSetUserResponsibleQuestion.Tag = Nothing + Me.aSetUserResponsibleQuestion.TargetObjectsCriteria = Nothing + Me.aSetUserResponsibleQuestion.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aSetUserResponsibleQuestion.TargetViewId = Nothing + Me.aSetUserResponsibleQuestion.ToolTip = Nothing + Me.aSetUserResponsibleQuestion.TypeOfView = Nothing + ' + 'aOpenWorkSheet_Subcontractor_Question + ' + Me.aOpenWorkSheet_Subcontractor_Question.AcceptButtonCaption = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.CancelButtonCaption = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.Caption = "aOpenWorkSheet_Subcontractor_Question" + Me.aOpenWorkSheet_Subcontractor_Question.ConfirmationMessage = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.Id = "aOpenWorkSheet_Subcontractor_Question" + Me.aOpenWorkSheet_Subcontractor_Question.ImageName = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aOpenWorkSheet_Subcontractor_Question.Shortcut = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.Tag = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.TargetObjectsCriteria = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aOpenWorkSheet_Subcontractor_Question.TargetViewId = "Question_ListView_Subcontractor" + Me.aOpenWorkSheet_Subcontractor_Question.ToolTip = Nothing + Me.aOpenWorkSheet_Subcontractor_Question.TypeOfView = Nothing + ' + 'aViewQuestionInfo_Subcontractor + ' + Me.aViewQuestionInfo_Subcontractor.Caption = "aViewQuestionInfo_Subcontractor" + Me.aViewQuestionInfo_Subcontractor.Category = "RecordEdit" + Me.aViewQuestionInfo_Subcontractor.ConfirmationMessage = Nothing + Me.aViewQuestionInfo_Subcontractor.Id = "aViewQuestionInfo_Subcontractor" + Me.aViewQuestionInfo_Subcontractor.ImageName = "Action_Printing_Preview" + Me.aViewQuestionInfo_Subcontractor.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewQuestionInfo_Subcontractor.Shortcut = Nothing + Me.aViewQuestionInfo_Subcontractor.Tag = Nothing + Me.aViewQuestionInfo_Subcontractor.TargetObjectsCriteria = Nothing + Me.aViewQuestionInfo_Subcontractor.TargetObjectType = GetType(SISBusiness.[Module].Question) + Me.aViewQuestionInfo_Subcontractor.TargetViewId = "Question_ListView_Subcontractor" + Me.aViewQuestionInfo_Subcontractor.ToolTip = Nothing + Me.aViewQuestionInfo_Subcontractor.TypeOfView = Nothing + + End Sub + Protected WithEvents aViewQuestionInfo As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aCloseQuestion As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Protected WithEvents aCreateAnswer As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aCreateReply As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aCreateQuestion As DevExpress.ExpressApp.Actions.SimpleAction + Protected WithEvents aCreateWorkSheetfromQuestion As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aSetUserResponsibleQuestion As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Protected WithEvents aOpenWorkSheet_Subcontractor_Question As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Protected WithEvents aViewQuestionInfo_Subcontractor As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.resx b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.resx new file mode 100644 index 0000000..ec41c25 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 212 + + + 17, 251 + + + 17, 329 + + + 17, 134 + + + 17, 290 + + + 17, 173 + + + 17, 95 + + + 605, 275 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.vb b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.vb new file mode 100644 index 0000000..ad5793a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/QuestionVC.vb @@ -0,0 +1,876 @@ +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.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.ConditionalAppearance +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp.CloneObject +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports System.IO +Imports DevExpress.ExpressApp.Reports +Imports System.Net.Mail +Imports System.Reflection + +Public Class QuestionVC + Inherits DevExpress.ExpressApp.ViewController + Private _AppearanceController As AppearanceController + Protected _selection As New ArrayList + Protected _noselect As Boolean = False + 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 QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aSetUserResponsibleQuestion.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Question As Question + + If View.Id = "Question_WorkSheet_Header_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id Like "Question_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aSetUserResponsibleQuestion.Active.SetItemValue("", True) + _AppearanceController = Frame.GetController(Of AppearanceController)() + + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + AddHandler View.SelectionChanged, AddressOf Question_ListView_SelectionChanged + End If + + If View.Id = "Question_ListView_User" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of SISBusiness.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ? OR AliasUser=?", _ocur.GetObject(SecuritySystem.CurrentUser), _ocur.GetObject(SecuritySystem.CurrentUser)) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + _AppearanceController = Frame.GetController(Of AppearanceController)() + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + End If + + If View.Id = "Question_ListView_Customers" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", True) + Frame.GetController(Of RefreshController).Active.SetItemValue("", False) + 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 = ?", _Contacts.Customers) + 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 + _AppearanceController = Frame.GetController(Of AppearanceController)() + + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + End If + + If View.Id = "Question_WorkItem_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + If View.Id = "QuestionClosePopup_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + If View.Id = "Question_ListView_Subcontractor" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", True) + + Dim _Criteria As String = "" + + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + Dim _Contact_Collection As XPCollection(Of Contacts) = New XPCollection(Of Contacts)(_ocur.Session, CriteriaOperator.Parse("Customers=? And IsNull(User)=False", _Contacts.Customers)) + + + If _Contacts IsNot Nothing Then + If _Contact_Collection.Count > 0 Then + For ik = 0 To _Contact_Collection.Count - 1 + If ik < _Contact_Collection.Count - 1 Then + _Criteria += "UserResponsible.Oid = " + "'" + _Contact_Collection(ik).User.Oid.ToString + "'" + " Or " + Else + _Criteria += "UserResponsible.Oid = " + "'" + _Contact_Collection(ik).User.Oid.ToString + "'" + End If + Next + Else + _Criteria = "1=2" + End If + + If _Contacts.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse(_Criteria) + Else + TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("ByUserResponsible") = CriteriaOperator.Parse("1=2") + End If + End If + '-------------- DetailViewZ--------------------------- + + If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + End If + + If View.Id = "Question_DetailView" Then + + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + End If + + If View.Id = "Question_DetailView_User" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + + If View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + + _Question = TryCast(View.SelectedObjects(0), Question) + If _Question IsNot Nothing Then + If _Question.QuestionClosed = eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Dim _User As User = _ocur.GetObject(SecuritySystem.CurrentUser) + + If _Question.UserCreated.Oid <> _User.Oid Then + If _Question.AliasUser IsNot Nothing Then + If _Question.AliasUser.Email <> _User.Email Then + Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) + Else + Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", True) + If _Question.QuestionClosed <> eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", True) + End If + Else + Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) + End If + Else + Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", True) + If _Question.QuestionClosed <> eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", True) + End If + End If + End If + + If View.Id = "WorkSheet_Header_DetailView" Then + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + End If + + If View.Id = "Reply_DetailView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Sub aCloseQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCloseQuestion.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Events As Events + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + Dim _QuestionClosePopup As QuestionClosePopup = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), QuestionClosePopup)) + + If _Question IsNot Nothing Then + _Question.QuestionStatus = eQuestionStatus.eProcessedCustomerClosed + _Question.QuestionClosed = eQuestionClosed.eClosed + _Question.Save() + + _Events = _ocur.CreateObject(Of Events)() + _Events.Question = _Question + _Events.QuestionStatus = eQuestionStatus.eProcessedCustomerClosed + _Events.Description = _QuestionClosePopup.Description + _Events.Save() + _Events.EventDirection = eEventDirection.eIn + + _ocur.CommitChanges() + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_Question.UserCreated.Email) + _MailMessage.Subject = _Question.DocumentNumber + " szm bejelents" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.DocumentNumber, DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Question.QuestionStatus.ToString) + _ + vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) + + _EmailBody = _EmailBody + vbNewLine + _Question.HTMLEvents + _MailMessage.Body = _EmailBody + + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _ocur.CommitChanges() + End Try + + Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame) + If nestedFrame IsNot Nothing Then + Dim parentView As View = nestedFrame.View + parentView.ObjectSpace.Refresh() + End If + End If + End Sub + 'Protected Sub aCreateWorkSheetfromQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateWorkSheetfromQuestionqqq.Execute + ' Try + ' Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + ' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + ' Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + + ' If _Question Is Nothing Then Throw New Exception("*Nincs kivlasztott elem!") + + ' Dim _WorkSheet_Header As WorkSheet_Header = _onew.CreateObject(Of WorkSheet_Header)() + ' _WorkSheet_Header.Question = _onew.GetObject(_Question) + ' _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened + + ' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "WorkSheet_Header_DetailView", True, _WorkSheet_Header) + ' Catch exp As Exception + ' MsgBox(exp.Message) + ' End Try + 'End Sub + + Protected Sub aCreateWorkSheetfromQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateWorkSheetfromQuestion.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _WorkSheetfromQuestion_PopUp As WorkSheetfromQuestion_PopUp = _onew.CreateObject(Of WorkSheetfromQuestion_PopUp)() + + e.View = Application.CreateDetailView(_onew, "WorkSheetfromQuestion_PopUp_DetailView", False, _WorkSheetfromQuestion_PopUp) + End Sub + Protected Sub aCreateWorkSheetfromQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateWorkSheetfromQuestion.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + Dim _WorkSheet_Header As WorkSheet_Header = _onew.CreateObject(Of WorkSheet_Header)() + Dim _WorkSheetfromQuestion_PopUp As WorkSheetfromQuestion_PopUp = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), WorkSheetfromQuestion_PopUp)) + + _WorkSheet_Header.Question = _onew.GetObject(_Question) + _WorkSheet_Header.Customers = _onew.GetObjectByKey(Of Customers)(_Question.Customers.Oid) + + _WorkSheet_Header.WorkSheetState = eWorkSheetState.eOpened + _WorkSheet_Header.CustomersFrom = _onew.GetObject(_WorkSheetfromQuestion_PopUp.CustomersFrom) + _WorkSheet_Header.WorkSheetType = _onew.GetObject(_WorkSheetfromQuestion_PopUp.WorkSheetType) + _WorkSheet_Header.DateCreated = GetSQLTime(_onew.Session) + + Dim _ShowViewParameters As New ShowViewParameters + Dim _ShowViewSource As New ShowViewSource(Frame, Nothing) + + _ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "WorkSheet_Header_DetailView", True, _WorkSheet_Header) + _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild + _ShowViewParameters.TargetWindow = TargetWindow.NewWindow + Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource) + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Question As Question + + If View.Id Like "Question_ListView" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + _AppearanceController = Frame.GetController(Of AppearanceController)() + + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + End If + + If View.Id = "Question_ListView_User" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of SISBusiness.Module.AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + TryCast(View, ListView).CollectionSource.Criteria("ByUser") = CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + _AppearanceController = Frame.GetController(Of AppearanceController)() + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + End If + + If View.Id = "Question_ListView_Customers" Then + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + Frame.GetController(Of RefreshController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + If _User IsNot Nothing Then + If _User.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Customers = ?", _User.Customers) + 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 + _AppearanceController = Frame.GetController(Of AppearanceController)() + + If _AppearanceController IsNot Nothing Then + AddHandler _AppearanceController.CustomApplyAppearance, AddressOf _AppearanceController_CustomApplyAppearance + AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + End If + End If + + If View.Id = "Question_WorkItem_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + If View.Id = "QuestionClosePopup_DetailView" Then + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + If View.Id = "Question_ListView_Subcontractor" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateAnswer.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aViewQuestionInfo.Active.SetItemValue("", False) + End If + '-------------- DetailViewZ--------------------------- + + If View.Id = "Question_DetailView" Or View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + + If View.Id = "Question_DetailView" Then + + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + + End If + + If View.Id = "Question_DetailView_User" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + End If + + If View.Id = "Question_DetailView_Info" Then + Frame.GetController(Of NewObjectViewController).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) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of QuestionVC).aCreateQuestion.Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + + _Question = TryCast(View.SelectedObjects(0), Question) + If _Question IsNot Nothing Then + If _Question.QuestionClosed = eQuestionClosed.eClosed Then Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Dim _User As User = _ocur.GetObject(SecuritySystem.CurrentUser) + If _User IsNot Nothing Then + If _Question.UserCreated.Email <> _User.Email Then + Frame.GetController(Of QuestionVC).aCloseQuestion.Active.SetItemValue("", False) + Frame.GetController(Of QuestionVC).aCreateReply.Active.SetItemValue("", False) + End If + End If + End If + End If + + If View.Id = "WorkSheet_Header_DetailView" Then + Frame.GetController(Of QuestionVC).aCreateWorkSheetfromQuestion.Active.SetItemValue("", False) + End If + + If View.Id = "Reply_DetailView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End If + + Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True) + End Sub + + Protected Overridable Sub CustomizeDisabledEditorsAppearance(ByVal e As ApplyAppearanceEventArgs) + End Sub + Private Sub _AppearanceController_AppearanceApplied(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) + If e.AppearanceObject.Enabled = False Then + CustomizeDisabledEditorsAppearance(e) + End If + End Sub + Private Sub _AppearanceController_CustomApplyAppearance(ByVal sender As Object, ByVal e As ApplyAppearanceEventArgs) + 'If (TypeOf View Is ListView) AndAlso (e.ItemType = AppearanceItemType.ViewItem.ToString()) AndAlso (e.ItemName = "Category") AndAlso (e.ContextObjects.Length > 0) Then + ' If View.SelectedObjects.Contains(e.ContextObjects(0)) Then + ' CType(e.Item, IAppearanceFormat).FontColor = System.Drawing.Color.Black + ' e.Handled = True + ' End If + 'End If + 'Dim _Question As Question = TryCast(e.ContextObjects(0), Question) + 'If (TypeOf View Is ListView) Then + ' If _Question IsNot Nothing Then + ' If _Question.QuestionStatus = eQuestionStatus.eActive Then + ' CType(e.Item, IAppearanceFormat).FontStyle = Drawing.FontStyle.Bold + ' e.Handled = True + ' End If + ' End If + 'End If + End Sub + + Private Sub Question_ListView_SelectionChanged(sender As Object, e As EventArgs) + Dim _Question As Question + If _noselect Then Exit Sub + + If View Is Nothing Then Exit Sub + If View.SelectedObjects.Count > 0 Then + _selection.Clear() + For Each _Question In View.SelectedObjects + _selection.Add(_Question) + Next + End If + + End Sub + '---Action codeZ--- + Protected Sub aCreateAnswer_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateAnswer.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Question As Question = View.SelectedObjects(0) + Dim _Answer = _onew.CreateObject(Of Answer)() + If _Question IsNot Nothing Then + _Answer.Question = _onew.GetObject(_Question) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Answer_DetailView", True, _Answer) + End If + + End Sub + Protected Sub aCreateReply_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateReply.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Question As Question = View.SelectedObjects(0) + Dim _Reply As Reply + + If _Question IsNot Nothing Then + _Reply = _onew.CreateObject(Of Reply)() + _Reply.Question = _onew.GetObject(_Question) + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Reply_DetailView", True, _Reply) + End If + + End Sub + Protected Sub aCreateQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateQuestion.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + Dim _Events As Events + If _Question IsNot Nothing Then + If _Question.AliasUser IsNot Nothing Then + Dim _Contacts As Contacts + If _Question.AliasUser IsNot Nothing Then + _Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _Question.AliasUser.Oid)) + Else + _Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _Question.User.Oid)) + End If + If _Contacts IsNot Nothing Then + _Question.Customers = _Contacts.Customers + _Question.User = _Question.AliasUser + End If + End If + Replace(Replace(_Question.Description, "file:///P:/", "http://sis-r.hu/user/images/userimages/"), "\", "/") + _ocur.CommitChanges() + + _Events = _onew.CreateObject(Of Events)() + _Events.Question = _onew.GetObject(_Question) + _Events.Description = _Question.Description + If _Question.Attachment IsNot Nothing Then _Events.Attachment = _onew.GetObject(_Question.Attachment) + _Events.Save() + _Events.EventDirection = eEventDirection.eIn + _onew.CommitChanges() + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + Dim _MailMessage As New MailMessage + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_Question.User.Email) + _MailMessage.Subject = _Question.DocumentNumber + " szm bejelents" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionUpdate.HTMLBody + _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.ObjectCreated.ToString(), _Question.Description, TryCast(SecuritySystem.CurrentUser, User).FullName) + + _MailMessage.Body = _EmailBody + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + _MailMessage.To.Clear() + _MailMessage.To.Add(_WebParameters.Email_SupportAdmin) + _MailMessage.Subject = "j krds" + _MailMessage.Body = String.Format("{0} felhasznl j krdst rgztett {1} szmmal.", _Question.User.FullName, _Question.DocumentNumber) + + _SmtpClient.Send(_MailMessage) + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _ocur.CommitChanges() + End Try + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) + View.Close() + End If + End Sub + Protected Sub aViewQuestionInfo_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewQuestionInfo.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + Dim _Events As Events + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + + If _Question IsNot Nothing Then + + If _Question.QuestionStatus = eQuestionStatus.eActive Then + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + If SecuritySystemHelper.IsUserInRoleCurrentUser("Supporter") Then + + _Question.QuestionStatus = eQuestionStatus.eReviewed + + _Events = _ocur.CreateObject(Of Events)() + _Events.Question = _Question + _Events.QuestionStatus = eQuestionStatus.eReviewed + _Events.Description = "" + _Events.EventDirection = eEventDirection.eOut + + _ocur.CommitChanges() + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + Dim _MailMessage As New MailMessage + Dim _Attachment As Attachment + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_Question.UserCreated.Email) + _MailMessage.Subject = _Question.DocumentNumber + " szm bejelents" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody = String.Format(_EmailBody, _Question.UserCreated.FullName, _Question.DocumentNumber, DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Question.QuestionStatus.ToString) + _ + vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) + _EmailBody = _EmailBody + vbNewLine + CreateHTMLEventsMail(_Question, _ocur.Session) + + _MailMessage.Body = _EmailBody + _MailMessage.Attachments.Clear() + + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iRedArrow.png") + _Attachment.ContentId = "c001" + _MailMessage.Attachments.Add(_Attachment) + + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iGreenArrow.png") + _Attachment.ContentId = "c002" + _MailMessage.Attachments.Add(_Attachment) + + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _ocur.CommitChanges() + End Try + End If + End If + End If + End If + End If + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) + End Sub + Protected Sub aCloseQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCloseQuestion.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _QuestionClosePopup As QuestionClosePopup = _onew.CreateObject(Of QuestionClosePopup)() + + e.View = Application.CreateDetailView(_onew, "QuestionClosePopup_DetailView", False, _QuestionClosePopup) + End Sub + Private Sub aSetUserResponsibleQuestion_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSetUserResponsibleQuestion.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CollectionSource As New CollectionSource(_onew, GetType(User)) + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria.Clear() + _CollectionSource.Criteria("1") = CriteriaOperator.Parse("1=2") + _CollectionSource.EndUpdateCriteria() + + Dim _UserResponsibles_Collection As XPCollection(Of User) = New XPCollection(Of User)(_onew.Session, CriteriaOperator.Parse("1=1")) + Dim _UserResponsibles_Back_Collection As New XPCollection(Of User)(_onew.Session, CriteriaOperator.Parse("1=2")) + Dim _Need As Boolean = False + For Each _ActUser As User In _UserResponsibles_Collection + _Need = False + If SecuritySystemHelper.IsUserInRole("Supporter", _ActUser) Then + _Need = True + Else + Dim _Contacts As Contacts = _onew.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid=?", _ActUser.Oid)) + If _Contacts IsNot Nothing Then + Dim _Customers As Customers = _Contacts.Customers + + Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers=?", _Customers)) + If _Subcontractor IsNot Nothing Then + _Need = True + End If + End If + End If + _UserResponsibles_Back_Collection.Add(_ActUser) + Next + + For Each _User As User In _UserResponsibles_Back_Collection + _CollectionSource.Add(_User) + Next + + _noselect = True + e.View = Application.CreateListView("User_ListView_Find", _CollectionSource, True) + End Sub + Private Sub aSetUserResponsibleQuestion_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSetUserResponsibleQuestion.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _UserResponsible = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), User)) + Dim _Question_Selection As Question + Dim _Question As Question + Dim _Events As Events + For Each _Question_Selection In _selection + _Question = _ocur.GetObject(_Question_Selection) + If _Question.UserResponsible Is Nothing Then + _Events = _ocur.CreateObject(Of Events)() + _Events.QuestionStatus = eQuestionStatus.eInProgress + _Events.Question = _ocur.GetObject(_Question) + _Events.Description = "" + _Events.EventDirection = eEventDirection.eOut + End If + _Question.QuestionStatus = eQuestionStatus.eInProgress + _Question.UserResponsible = _UserResponsible + + Next + _ocur.CommitChanges() + 'View.Refresh() + + _noselect = False + End Sub + Protected Sub aOpenWorkSheet_Subcontractor_Question_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOpenWorkSheet_Subcontractor_Question.CustomizePopupWindowParams + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Question As Question = _onew.GetObject(TryCast(View.SelectedObjects(0), Question)) + + Dim _User As User + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + 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)() + _OpenWorkSheet_SubcontractorPopUp.Question = _Question + Dim _Subcontractor As Subcontractor = _onew.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers.Oid=?", _SubcontractorCustomers.Oid)) + + _OpenWorkSheet_SubcontractorPopUp.Subcontractor = _onew.GetObject(_Subcontractor) + + e.View = Application.CreateDetailView(_onew, "OpenWorkSheet_SubcontractorPopUp_DetailView", False, _OpenWorkSheet_SubcontractorPopUp) + End Sub + Protected Sub aOpenWorkSheet_Subcontractor_Question_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOpenWorkSheet_Subcontractor_Question.Execute + 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 + If _ocur IsNot Nothing Then + _User = _ocur.GetObjectByKey(Of User)(_ocur.GetKeyValue(SecuritySystem.CurrentUser)) + End If + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User=?", _User)) + Dim _SubcontractorCustomers As Customers = _Contacts.Customers + Dim _ReportData As ReportData + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + + Dim _WorkSheet_Header As WorkSheet_Header = _ocur.CreateObject(Of WorkSheet_Header)() + _WorkSheet_Header.Customers = _Question.Customers + _WorkSheet_Header.Question = _Question + _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 + + + _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 Sub aViewQuestionInfo_Subcontractor_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewQuestionInfo_Subcontractor.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Question As Question = TryCast(View.SelectedObjects(0), Question) + + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Question)) + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Reply.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Reply.vb new file mode 100644 index 0000000..9c55f4b --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Reply.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ConditionalAppearance + + _ + _ + _ + _ + _ + _ +Public Class Reply + Inherits BaseObject + Private _Question As Question + Private _UserCreated As User + Private _ObjectCreated As Date + Private _Description As String + Private _Attachment As FileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property Question As Question + Get + Return _Question + End Get + Set(value As Question) + SetPropertyValue("Question", _Question, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property Description As String + Get + Return _Description + End Get + Set(value As String) + SetPropertyValue("Description", _Description, value) + End Set + End Property + _ + Property Attachment As FileData + Get + Return _Attachment + End Get + Set(value As FileData) + SetPropertyValue("Attachment", _Attachment, value) + End Set + End Property + + _ + _ + ReadOnly Property HTMLEvents As String + Get + Return CreateHTMLEvents(Me.Question, Session) + End Get + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.Designer.vb new file mode 100644 index 0000000..33ebfeb --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.Designer.vb @@ -0,0 +1,49 @@ +Partial Class Reply_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aSaveReply = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aSaveReply + ' + Me.aSaveReply.Caption = "Save reply" + Me.aSaveReply.Category = "Save" + Me.aSaveReply.ConfirmationMessage = Nothing + Me.aSaveReply.Id = "aSaveReply" + Me.aSaveReply.ImageName = "disk_red" + Me.aSaveReply.Shortcut = Nothing + Me.aSaveReply.Tag = Nothing + Me.aSaveReply.TargetObjectsCriteria = Nothing + Me.aSaveReply.TargetViewId = "" + Me.aSaveReply.ToolTip = Nothing + Me.aSaveReply.TypeOfView = Nothing + + End Sub + Friend WithEvents aSaveReply As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.resx b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.resx new file mode 100644 index 0000000..881ba3c --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.vb b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.vb new file mode 100644 index 0000000..087b218 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Question/Reply_VC.vb @@ -0,0 +1,126 @@ +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.Data.Filtering +Imports System.Net.Mail +Imports DevExpress.Persistent.BaseImpl +Imports System.Reflection + +Public Class Reply_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + Frame.GetController(Of Reply_VC).aSaveReply.Active.SetItemValue("", False) + + + If View.Id = "Reply_DetailView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of Reply_VC).aSaveReply.Active.SetItemValue("", True) + If SecuritySystem.CurrentUserName <> "ivan.szabo" Then Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "Reply_DetailView" Then + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of Reply_VC)().aSaveReply.Active.SetItemValue("", False) + End If + End Sub + Protected Sub aSaveReply_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSaveReply.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _Reply As Reply = TryCast(View.SelectedObjects(0), Reply) + + Dim _Events As Events + If _Reply IsNot Nothing Then + _Reply.Question.QuestionStatus = eQuestionStatus.eActive + _Reply.Question.QuestionClosed = eQuestionClosed.eOpen + _Reply.Question.Save() + _Reply.Save() + + _ocur.CommitChanges() + + _Events = _onew.CreateObject(Of Events)() + _Events.Question = _onew.GetObject(_Reply.Question) + _Events.Description = _Reply.Description + If _Reply.Attachment IsNot Nothing Then _Events.Attachment = _onew.GetObject(_Reply.Attachment) + _Events.Save() + _Events.EventDirection = eEventDirection.eIn + _onew.CommitChanges() + + Try + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + If _WebParameters Is Nothing Then Throw New Exception("*Nincsnek e-mail paramterek belltva!") + If _WebParameters.SMTPHost Is Nothing Then Throw New Exception("*Nincs SMTP server belltva!") + If _WebParameters.SMTPUserName = "" Then Throw New Exception("*Nincs felhasznli nv belltva!") + If _WebParameters.SMTPPort = 0 Then Throw New Exception("*Nincs SMTP port belltva!") + + + + Dim _MailMessage As New MailMessage + Dim _Attachment As Attachment + Dim _SmtpClient As SmtpClient = New SmtpClient(_WebParameters.SMTPHost) + _MailMessage.From = New MailAddress(_WebParameters.Email_SupportAdmin) + _MailMessage.To.Add(_Reply.Question.UserCreated.Email) + _MailMessage.Subject = _Reply.Question.DocumentNumber + " szm bejelents" + _MailMessage.IsBodyHtml = True + + Dim _EmailBody As String = _WebParameters.HTMLMailTemplate_QuestionStatusUpdate.HTMLBody + _EmailBody = String.Format(_EmailBody, _Reply.Question.UserCreated.FullName, _Reply.Question.DocumentNumber, _ + DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Enums\SISBusiness.Module.eQuestionStatus", _Reply.Question.QuestionStatus.ToString) + _ + vbNewLine, TryCast(SecuritySystem.CurrentUser, User).FullName) + + _EmailBody = _EmailBody + vbNewLine + CreateHTMLEventsMail(_Reply.Question, _ocur.Session) + + _MailMessage.Body = _EmailBody + _MailMessage.Attachments.Clear() + + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iRedArrow.png") + _Attachment.ContentId = "c001" + _MailMessage.Attachments.Add(_Attachment) + + _Attachment = New Attachment(GLOBAL_ApplicationStartupPath_Mail & "Images\iGreenArrow.png") + _Attachment.ContentId = "c002" + _MailMessage.Attachments.Add(_Attachment) + + _SmtpClient.Port = _WebParameters.SMTPPort + _SmtpClient.Credentials = New System.Net.NetworkCredential(_WebParameters.SMTPUserName, _WebParameters.SMTPPassword) + _SmtpClient.EnableSsl = _WebParameters.EnableSsl + + _SmtpClient.Send(_MailMessage) + + _MailMessage.To.Clear() + _MailMessage.To.Add(_WebParameters.Email_SupportAdmin) + _MailMessage.Subject = "j vlasz rkezett" + _MailMessage.Body = String.Format("{0} felhasznl a(z) {1} krdshez j vlaszt rgztett.", _Reply.Question.UserCreated.FullName, _Reply.Question.DocumentNumber) + _SmtpClient.Send(_MailMessage) + + Catch ex As Exception + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _ocur.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _ocur.CommitChanges() + End Try + e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Question_DetailView_Info", True, _onew.GetObject(_Reply.Question)) + View.Close() + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.Designer.vb b/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.Designer.vb new file mode 100644 index 0000000..8488240 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.Designer.vb @@ -0,0 +1,32 @@ +Partial Class SupportDocuments + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.vb b/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.vb new file mode 100644 index 0000000..2320c19 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/SupportDocuments.vb @@ -0,0 +1,62 @@ +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.ExpressApp.CloneObject +Imports DevExpress.Data.Filtering + +Public Class SupportDocuments + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If View.Id = "SubcontractorDocuments_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False) + + Dim _User As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser))) + + If _User IsNot Nothing Then + If _User.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractor") = CriteriaOperator.Parse("Subcontractor.Customers = ?", _User.Customers) + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractor") = CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractor") = CriteriaOperator.Parse("1=2") + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "SubcontractorDocuments_ListView" Then + Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/SupportNG.vb b/SISBusiness.Module/BusinessObjects/Support/SupportNG.vb new file mode 100644 index 0000000..171ecdf --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/SupportNG.vb @@ -0,0 +1,44 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Public Enum eSupportType + eQuestion = 0 + eAnswer = 1 + eCustomersMeeting = 2 +End Enum + _ + _ +Public Class SupportNG + Inherits BaseObject + Private _SupportType As eSupportType + Private _NumberGenerator As NumberGenerator + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + Property SupportType As eSupportType + Get + Return _SupportType + End Get + Set(value As eSupportType) + SetPropertyValue("SupportType", _SupportType, value) + End Set + End Property + Property NumberGenerator As NumberGenerator + Get + Return _NumberGenerator + End Get + Set(value As NumberGenerator) + SetPropertyValue("NumberGenerator", _NumberGenerator, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/SupportRoles.vb b/SISBusiness.Module/BusinessObjects/Support/SupportRoles.vb new file mode 100644 index 0000000..68b359a --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/SupportRoles.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SupportRoles + Inherits BaseObject + + Private _ShortName As String + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/SupportUserRoles.vb b/SISBusiness.Module/BusinessObjects/Support/SupportUserRoles.vb new file mode 100644 index 0000000..df8cda3 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/SupportUserRoles.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ + _ +Public Class SupportUserRoles + Inherits BaseObject + + Private _SupportRoles As SupportRoles + Private _User As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + Property SupportRoles As SupportRoles + Get + Return _SupportRoles + End Get + Set(value As SupportRoles) + SetPropertyValue("SupportRoles", _SupportRoles, value) + End Set + End Property + Property User As User + Get + Return _User + End Get + Set(value As User) + SetPropertyValue("User", _User, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Support_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/Support/Support_VC.Designer.vb new file mode 100644 index 0000000..d7a2c42 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Support_VC.Designer.vb @@ -0,0 +1,52 @@ +Partial Class Support_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aCreateSupportUserRoles = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + ' + 'aCreateSupportUserRoles + ' + Me.aCreateSupportUserRoles.AcceptButtonCaption = Nothing + Me.aCreateSupportUserRoles.CancelButtonCaption = Nothing + Me.aCreateSupportUserRoles.Caption = "aCreate Support User Roles" + Me.aCreateSupportUserRoles.ConfirmationMessage = Nothing + Me.aCreateSupportUserRoles.Id = "aCreateSupportUserRoles" + Me.aCreateSupportUserRoles.ImageName = Nothing + Me.aCreateSupportUserRoles.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aCreateSupportUserRoles.Shortcut = Nothing + Me.aCreateSupportUserRoles.Tag = Nothing + Me.aCreateSupportUserRoles.TargetObjectsCriteria = Nothing + Me.aCreateSupportUserRoles.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.User) + Me.aCreateSupportUserRoles.TargetViewId = "User_ListView_Support" + Me.aCreateSupportUserRoles.ToolTip = Nothing + Me.aCreateSupportUserRoles.TypeOfView = Nothing + + End Sub + Friend WithEvents aCreateSupportUserRoles As DevExpress.ExpressApp.Actions.PopupWindowShowAction + +End Class diff --git a/SISBusiness.Module/BusinessObjects/Support/Support_VC.resx b/SISBusiness.Module/BusinessObjects/Support/Support_VC.resx new file mode 100644 index 0000000..e8edb98 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Support_VC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/BusinessObjects/Support/Support_VC.vb b/SISBusiness.Module/BusinessObjects/Support/Support_VC.vb new file mode 100644 index 0000000..3e82782 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/Support/Support_VC.vb @@ -0,0 +1,120 @@ +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 System.Reflection +Imports DevExpress.Data.Filtering + +Public Class Support_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "CRM_Opportunities_ListView_Support" Then + 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_Support" Then + 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 = "PCIGroup_ListView_Support" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User.Oid = ?", SecuritySystem.CurrentUserId)) + Frame.GetController(Of PCIVC).aRepairPCIGroup.Active.SetItemValue("", False) + If _Contacts IsNot Nothing Then + If _Contacts.Customers IsNot Nothing Then + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("Customers.Oid = ?", _Contacts.Customers.Oid) + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("1=2") + End If + Else + TryCast(View, ListView).CollectionSource.Criteria("BySubcontractorPCI") = CriteriaOperator.Parse("1=2") + End If + End If + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "OfferOutHeader_ListView_Support" Then + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True) + Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True) + End If + End Sub + Private Sub aCreateSupportUserRoles_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateSupportUserRoles.CustomizePopupWindowParams + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(SupportRoles)) + + e.View = Application.CreateListView("SupportRoles_ListView", _CS, False) + Catch ex As Exception + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _onew.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _onew.CommitChanges() + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub + Private Sub aCreateSupportUserRoles_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateSupportUserRoles.Execute + Try + Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace + Dim _SupportRoles As SupportRoles = TryCast(e.PopupWindow.View.SelectedObjects(0), SupportRoles) + + For Each _User As DevExpress.Persistent.BaseImpl.User In View.SelectedObjects + Dim _SupportUserRoles As SupportUserRoles = _ocur.CreateObject(Of SupportUserRoles)() + _SupportUserRoles.User = _User + _SupportUserRoles.SupportRoles = _ocur.GetObject(_SupportRoles) + Next + _ocur.CommitChanges() + Catch ex As Exception + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim sf As StackFrame = New StackFrame() + Dim _ErrorLog As ErrorLog = _onew.CreateObject(Of ErrorLog)() + _ErrorLog.Description = ex.Message + _ErrorLog.SubName = TryCast(sf.GetMethod(), MethodBase).Name + _onew.CommitChanges() + MsgBox(ex.Message, MsgBoxStyle.OkOnly) + End Try + End Sub +End Class diff --git a/SISBusiness.Module/BusinessObjects/ToDoObjects/MySceduleFileData.vb b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySceduleFileData.vb new file mode 100644 index 0000000..b347de6 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySceduleFileData.vb @@ -0,0 +1,58 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class MySceduleFileData + Inherits BaseObject + Private _MySchedule As MySchedule + Private _DocumentType As String + Private _DocumentFileData As DocumentFileData + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + _ + Property MyScedule As MySchedule + Get + Return _MySchedule + End Get + Set(value As MySchedule) + SetPropertyValue("MySchedule", _MySchedule, value) + End Set + End Property + Property DocumentType As String + Get + Return _DocumentType + End Get + Set(value As String) + SetPropertyValue("DocumentType", _DocumentType, value) + End Set + End Property + Property DocumentFileData As DocumentFileData + Get + Return _DocumentFileData + End Get + Set(value As DocumentFileData) + SetPropertyValue("DocumentFileData", _DocumentFileData, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule.vb b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule.vb new file mode 100644 index 0000000..0d62e2d --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ + _ +Public Class MyTasks + Inherits Task + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub +End Class +Public Enum eEventType + eMeeting = 0 'Találkozás + ePhoneConversation = 1 'Telefonbeszélgetés + eEmailOut = 2 'Kimenő email + eEMailIn = 3 'Bejövő email + eAlert = 4 'Figyelmeztetési aktivitás + eBusinessDirectory = 5 'Dokumentumtárhely kezelés +End Enum + _ + _ +Public Class MySchedule + Inherits [Event] + Private _HRPerson As HRPerson + Private _EventType As eEventType = eEventType.eMeeting + Private _Email_Oid As String 'Objektum string az emailek megkereséséhez + Private _ObjectCreated As Date 'Létrehozva + Private _UserCreated As User 'Létrehozó + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + Property HRPerson As HRPerson + Get + Return _HRPerson + End Get + Set(value As HRPerson) + SetPropertyValue("HRPerson", _HRPerson, value) + End Set + End Property + Property EventType As eEventType + Get + Return _EventType + End Get + Set(value As eEventType) + SetPropertyValue("EventType", _EventType, value) + End Set + End Property + _ + Property Email_Oid As String + Get + Return _Email_Oid + End Get + Set(value As String) + SetPropertyValue("Email_Oid", _Email_Oid, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property + _ + _ + ReadOnly Property MySceduleFileData As XPCollection(Of MySceduleFileData) + Get + Return GetCollection(Of MySceduleFileData)("MySceduleFileData") + End Get + End Property +End Class diff --git a/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.Designer.vb b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.Designer.vb new file mode 100644 index 0000000..9ad9a17 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class MySchedule_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.vb b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.vb new file mode 100644 index 0000000..e27bbd9 --- /dev/null +++ b/SISBusiness.Module/BusinessObjects/ToDoObjects/MySchedule_VC.vb @@ -0,0 +1,33 @@ +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 MySchedule_VC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "MySchedule_ListView" Then + + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "MySchedule_ListView" Then + + End If + End Sub +End Class diff --git a/SISBusiness.Module/ClassDiagrams/Bank.cd b/SISBusiness.Module/ClassDiagrams/Bank.cd new file mode 100644 index 0000000..4f7efa3 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Bank.cd @@ -0,0 +1,141 @@ + + + + + + + + + + + IBAAEBAQAADCQIQEgwAAAAEAgMAFBgBAIhIEACAgACA= + FinancialObjects\FinancialTransactions\Bank\GLBank.vb + + + + + + + + mBkBAKdgJECEANAJoICIOkEQAASIQQGgAEhEv5IDqHg= + FinancialObjects\FinancialTransactions\Base\GLHeader.vb + + + + + + + + FAWBioEBRATDJBEQCgEBFSAAIQAgCQFREFRigSBgkG4= + FinancialObjects\FinancialTransactions\Base\GLRows.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/CRMEstate.cd b/SISBusiness.Module/ClassDiagrams/CRMEstate.cd new file mode 100644 index 0000000..7493780 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/CRMEstate.cd @@ -0,0 +1,59 @@ + + + + + + + + + + BAgQkEQICAEAAYcAACEgQIAIJKEAAQCJCJAAQQQEAQg= + BusinessObjects\BusinessTransactions\Estate\CRM\CRMEstate_Leads.vb + + + + + + + + + + AAAAEACAAEAgAIIIADIAUAAAAAQAAAAUCAAIAAAAAAA= + BusinessObjects\BusinessTransactions\Estate\CRM\CRMEstate_Opportunity.vb + + + + + + + + + + AANAAAAAAAAAAYAEBAAAAAAAAAAIACAYCQAJAECAQEQ= + BusinessObjects\BusinessTransactions\Estate\CRM\CRMEstate_Opportunity_Customers.vb + + + + + + + + + + AJAAAAgAiAgBAKAAAFAAIACBAAAAACAIAECAAAEAAAA= + BusinessObjects\BusinessTransactions\Estate\CRM\CRMEstate_Opportunity_Immovables.vb + + + + + + + + + + EAAgAgAAAQAEAIAIYAAAIAQAUAAAQIEQgBACMAAAgEQ= + BusinessObjects\BusinessTransactions\Estate\CRM\CRMEstate_Opportunity_Payment_Forecast.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/ClassDiagram1.cd b/SISBusiness.Module/ClassDiagrams/ClassDiagram1.cd new file mode 100644 index 0000000..0519ecb --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/ClassDiagram1.cd @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/Customers.cd b/SISBusiness.Module/ClassDiagrams/Customers.cd new file mode 100644 index 0000000..bf42195 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Customers.cd @@ -0,0 +1,42 @@ + + + + + + + + + BAAAAAAQAAAAIICAAAQAAIAgAAAEAAAAABgggAAAACA= + GeneralObjects\Customers.vb + + + + + + AAAAAQAAAAAAAIAAAAAAAAAAgAAAAAAEAAAAAAACAAA= + GeneralObjects\Customers.vb + + + + + + AACAAAAAAAAACAAABAAAAAAAAAACAIAAAAAAAAACAAA= + GeneralObjects\Customers.vb + + + + + + AAAIAAAAAAAAAAAAAAAAAIAAAAgAAABAgAAAAAAAAAA= + FinancialObjects\FinancialStock.vb + + + + + + AAFBQBAAAAAAAIAAAAAAAIAAAAAAAAAAAAAAABAAAAI= + GeneralObjects\Contacts.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/DeliveryInvoice.cd b/SISBusiness.Module/ClassDiagrams/DeliveryInvoice.cd new file mode 100644 index 0000000..47319f9 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/DeliveryInvoice.cd @@ -0,0 +1,59 @@ + + + + + + + + + + AAAAAAAAAAAAQAAAAQAQAAAAAAAAAEABAAgAAAEAgAA= + BusinessObjects\BusinessTransactions\DeliveryNote.vb + + + + + + + + + + AAAAAABBAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + + + + + + + AAAACAAAAAAAQAAAAAQgEIAEAgAAAEACAAAgAIAAwAQ= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + + + + + + + AAAAgAAAEAEAQAAAQEAABAAAEjAAAABgAAAAAAAEggU= + BusinessObjects\BusinessTransactions\Order.vb + + + + + + + + + + IAggAgAGMQBgYAAKgAAiAABAAAAAAMAEkAQEIAQCgAM= + BusinessObjects\BusinessTransactions\Invoice.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/GLAccount.cd b/SISBusiness.Module/ClassDiagrams/GLAccount.cd new file mode 100644 index 0000000..2e8abc1 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/GLAccount.cd @@ -0,0 +1,123 @@ + + + + + + + + oAFABAAQQAEIAIAAAAAAAIEBAAAAAAAAAAIABBAgADA= + FinancialObjects\FinancialTransactions\Accounts\GLAccounts.vb + + + + + + + + FAWBioEBRATDJBEQCgEBFSAAIQAgCQFREFRigSBgkG4= + FinancialObjects\FinancialTransactions\Base\GLRows.vb + + + + + + + + mBkBAKdgJECEANAJoICIOkEQAASIQQGgAEhEv5IDqHg= + FinancialObjects\FinancialTransactions\Base\GLHeader.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/Graph1.dgml b/SISBusiness.Module/ClassDiagrams/Graph1.dgml new file mode 100644 index 0000000..9b4072f --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Graph1.dgml @@ -0,0 +1,66 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/Invoice.cd b/SISBusiness.Module/ClassDiagrams/Invoice.cd new file mode 100644 index 0000000..9527d6f --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Invoice.cd @@ -0,0 +1,253 @@ + + + + + + + + + + + + 5Vwkw0DeuQJhYKmIxiQqIsRMYggCRuA2kBSGoAQigI8= + BusinessObjects\Business\BusinessTransactions\Invoice\InvoiceRows.vb + + + + + + + + + + + + AEQJEhBQAAAQQEAAAAgABIkABAAkIAxBAYACEgPmARA= + BusinessObjects\Financial\FinancialObjects\Stocks\5D\Controlling.vb + + + + + + + + + + BusinessObjects\BusinessTransactions\Invoice.vb + + + + + nzteWa9OPfx6u/L47OK+s+G1rkcqUV41Gjm+lfQn7fM= + BusinessObjects\Business\BusinessTransactions\Invoice\InvoiceHeader.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/Piliscsoport raktárak.graphml b/SISBusiness.Module/ClassDiagrams/Piliscsoport raktárak.graphml new file mode 100644 index 0000000..abe79bd --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Piliscsoport raktárak.graphml @@ -0,0 +1,457 @@ + + + + + + + + + + + + + + + + + + + + + + + + Egység irányító rendszer +==================== +Piliscsoport Nagykereskedelmi Kft. +---------------------------------------- +pcs_whs + + + + + + + + + + + + + + + + + + + + + Jövedéki nagyker raktár + + + + + + + + + + + + + + + + + + + + + Szárazanyag nagyker raktár + + + + + + + + + + + + + + + + + + + + + Hűtött árú raktár + + + + + + + + + + + + + + + + + + + + + jaber.106.cassa2 +--------------------- +PilisDB + + + + + + + + + + + + + + + + + + + + + jaber.106 +========= +Jáber-Ker Kft. +------------------ +pcs_106 + + + + + + + + + + + + + + + + + + + + + + jaber.106.cassa1 +--------------------- +PilisDB + + + + + + + + + + + + + + + + + + + + + jaber.106.cassa3 +-------------------- +PilisDB + + + + + + + + + + + + + + + + + + + + + jaber.106.cassaY +--------------------- +PilisDB + + + + + + + + + + + + + + + + + <?xml version="1.0" encoding="utf-8"?> +<svg version="1.1" + xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" + x="0px" y="0px" width="40px" height="48px" viewBox="0 0 40 48" enable-background="new 0 0 40 48" xml:space="preserve"> +<defs> +</defs> +<linearGradient id="SVGID_1_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="655.0938" x2="409.4502" y2="655.0938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#4D4D4D"/> + <stop offset="0.0558" style="stop-color:#5F5F5F"/> + <stop offset="0.2103" style="stop-color:#8D8D8D"/> + <stop offset="0.3479" style="stop-color:#AEAEAE"/> + <stop offset="0.4623" style="stop-color:#C2C2C2"/> + <stop offset="0.5394" style="stop-color:#C9C9C9"/> + <stop offset="0.6247" style="stop-color:#C5C5C5"/> + <stop offset="0.7072" style="stop-color:#BABABA"/> + <stop offset="0.7885" style="stop-color:#A6A6A6"/> + <stop offset="0.869" style="stop-color:#8B8B8B"/> + <stop offset="0.9484" style="stop-color:#686868"/> + <stop offset="1" style="stop-color:#4D4D4D"/> +</linearGradient> +<path fill="url(#SVGID_1_)" d="M19.625,37.613C8.787,37.613,0,35.738,0,33.425v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,35.738,30.464,37.613,19.625,37.613z"/> +<linearGradient id="SVGID_2_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="649.0938" x2="409.4502" y2="649.0938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#B3B3B3"/> + <stop offset="0.0171" style="stop-color:#B6B6B6"/> + <stop offset="0.235" style="stop-color:#D7D7D7"/> + <stop offset="0.4168" style="stop-color:#EBEBEB"/> + <stop offset="0.5394" style="stop-color:#F2F2F2"/> + <stop offset="0.6579" style="stop-color:#EEEEEE"/> + <stop offset="0.7724" style="stop-color:#E3E3E3"/> + <stop offset="0.8853" style="stop-color:#CFCFCF"/> + <stop offset="0.9965" style="stop-color:#B4B4B4"/> + <stop offset="1" style="stop-color:#B3B3B3"/> +</linearGradient> +<path fill="url(#SVGID_2_)" d="M19.625,37.613c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.927-18.396,3.927 + c-9.481,0-17.396-1.959-18.396-3.927l-1.229,2C0,35.738,8.787,37.613,19.625,37.613z"/> +<linearGradient id="SVGID_3_" gradientUnits="userSpaceOnUse" x1="371.4297" y1="646" x2="408.2217" y2="646" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#C9C9C9"/> + <stop offset="1" style="stop-color:#808080"/> +</linearGradient> +<ellipse fill="url(#SVGID_3_)" cx="19.625" cy="31.425" rx="18.396" ry="3.926"/> +<linearGradient id="SVGID_4_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="641.0938" x2="409.4502" y2="641.0938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#4D4D4D"/> + <stop offset="0.0558" style="stop-color:#5F5F5F"/> + <stop offset="0.2103" style="stop-color:#8D8D8D"/> + <stop offset="0.3479" style="stop-color:#AEAEAE"/> + <stop offset="0.4623" style="stop-color:#C2C2C2"/> + <stop offset="0.5394" style="stop-color:#C9C9C9"/> + <stop offset="0.6247" style="stop-color:#C5C5C5"/> + <stop offset="0.7072" style="stop-color:#BABABA"/> + <stop offset="0.7885" style="stop-color:#A6A6A6"/> + <stop offset="0.869" style="stop-color:#8B8B8B"/> + <stop offset="0.9484" style="stop-color:#686868"/> + <stop offset="1" style="stop-color:#4D4D4D"/> +</linearGradient> +<path fill="url(#SVGID_4_)" d="M19.625,23.613C8.787,23.613,0,21.738,0,19.425v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,21.738,30.464,23.613,19.625,23.613z"/> +<linearGradient id="SVGID_5_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="635.0938" x2="409.4502" y2="635.0938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#B3B3B3"/> + <stop offset="0.0171" style="stop-color:#B6B6B6"/> + <stop offset="0.235" style="stop-color:#D7D7D7"/> + <stop offset="0.4168" style="stop-color:#EBEBEB"/> + <stop offset="0.5394" style="stop-color:#F2F2F2"/> + <stop offset="0.6579" style="stop-color:#EEEEEE"/> + <stop offset="0.7724" style="stop-color:#E3E3E3"/> + <stop offset="0.8853" style="stop-color:#CFCFCF"/> + <stop offset="0.9965" style="stop-color:#B4B4B4"/> + <stop offset="1" style="stop-color:#B3B3B3"/> +</linearGradient> +<path fill="url(#SVGID_5_)" d="M19.625,23.613c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.926-18.396,3.926 + c-9.481,0-17.396-1.959-18.396-3.926l-1.229,2C0,21.738,8.787,23.613,19.625,23.613z"/> +<linearGradient id="SVGID_6_" gradientUnits="userSpaceOnUse" x1="371.4297" y1="632" x2="408.2217" y2="632" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#C9C9C9"/> + <stop offset="1" style="stop-color:#808080"/> +</linearGradient> +<ellipse fill="url(#SVGID_6_)" cx="19.625" cy="17.426" rx="18.396" ry="3.926"/> +<linearGradient id="SVGID_7_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="627.5938" x2="409.4502" y2="627.5938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#4D4D4D"/> + <stop offset="0.0558" style="stop-color:#5F5F5F"/> + <stop offset="0.2103" style="stop-color:#8D8D8D"/> + <stop offset="0.3479" style="stop-color:#AEAEAE"/> + <stop offset="0.4623" style="stop-color:#C2C2C2"/> + <stop offset="0.5394" style="stop-color:#C9C9C9"/> + <stop offset="0.6247" style="stop-color:#C5C5C5"/> + <stop offset="0.7072" style="stop-color:#BABABA"/> + <stop offset="0.7885" style="stop-color:#A6A6A6"/> + <stop offset="0.869" style="stop-color:#8B8B8B"/> + <stop offset="0.9484" style="stop-color:#686868"/> + <stop offset="1" style="stop-color:#4D4D4D"/> +</linearGradient> +<path fill="url(#SVGID_7_)" d="M19.625,10.113C8.787,10.113,0,8.238,0,5.925v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,8.238,30.464,10.113,19.625,10.113z"/> +<linearGradient id="SVGID_8_" gradientUnits="userSpaceOnUse" x1="370.2002" y1="621.5938" x2="409.4502" y2="621.5938" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#B3B3B3"/> + <stop offset="0.0171" style="stop-color:#B6B6B6"/> + <stop offset="0.235" style="stop-color:#D7D7D7"/> + <stop offset="0.4168" style="stop-color:#EBEBEB"/> + <stop offset="0.5394" style="stop-color:#F2F2F2"/> + <stop offset="0.6579" style="stop-color:#EEEEEE"/> + <stop offset="0.7724" style="stop-color:#E3E3E3"/> + <stop offset="0.8853" style="stop-color:#CFCFCF"/> + <stop offset="0.9965" style="stop-color:#B4B4B4"/> + <stop offset="1" style="stop-color:#B3B3B3"/> +</linearGradient> +<path fill="url(#SVGID_8_)" d="M19.625,10.113c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.926-18.396,3.926 + c-9.481,0-17.396-1.959-18.396-3.926L0,5.925C0,8.238,8.787,10.113,19.625,10.113z"/> +<linearGradient id="SVGID_9_" gradientUnits="userSpaceOnUse" x1="371.4297" y1="618.5" x2="408.2217" y2="618.5" gradientTransform="matrix(1 0 0 1 -370.2002 -614.5742)"> + <stop offset="0" style="stop-color:#C9C9C9"/> + <stop offset="1" style="stop-color:#808080"/> +</linearGradient> +<ellipse fill="url(#SVGID_9_)" cx="19.625" cy="3.926" rx="18.396" ry="3.926"/> +<path opacity="0.24" fill="#FFFFFF" enable-background="new " d="M31.291,46.792c0,0-4.313,0.578-7.249,0.694 + C20.917,47.613,15,47.613,15,47.613l-2.443-10.279l-0.119-2.283l-1.231-1.842L9.789,23.024l-0.082-0.119L9.3,20.715l-1.45-1.44 + L5.329,8.793c0,0,5.296,0.882,7.234,1.07s8.375,0.25,8.375,0.25l3,9.875l-0.25,1.313l1.063,2.168l2.312,9.644l-0.375,1.875 + l1.627,2.193L31.291,46.792z"/> +</svg> + + <?xml version="1.0" encoding="utf-8"?> +<svg version="1.1" + xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" + x="0px" y="0px" width="41px" height="48px" viewBox="-0.875 -0.887 41 48" enable-background="new -0.875 -0.887 41 48" + xml:space="preserve"> +<defs> +</defs> +<linearGradient id="SVGID_1_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-979.1445" x2="682.0508" y2="-979.1445" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#3C89C9"/> + <stop offset="0.1482" style="stop-color:#60A6DD"/> + <stop offset="0.3113" style="stop-color:#81C1F0"/> + <stop offset="0.4476" style="stop-color:#95D1FB"/> + <stop offset="0.5394" style="stop-color:#9CD7FF"/> + <stop offset="0.636" style="stop-color:#98D4FD"/> + <stop offset="0.7293" style="stop-color:#8DCAF6"/> + <stop offset="0.8214" style="stop-color:#79BBEB"/> + <stop offset="0.912" style="stop-color:#5EA5DC"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_1_)" d="M19.625,36.763C8.787,36.763,0,34.888,0,32.575v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,34.888,30.464,36.763,19.625,36.763z"/> +<linearGradient id="SVGID_2_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-973.1445" x2="682.0508" y2="-973.1445" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#9CD7FF"/> + <stop offset="0.0039" style="stop-color:#9DD7FF"/> + <stop offset="0.2273" style="stop-color:#BDE5FF"/> + <stop offset="0.4138" style="stop-color:#D1EEFF"/> + <stop offset="0.5394" style="stop-color:#D9F1FF"/> + <stop offset="0.6155" style="stop-color:#D5EFFE"/> + <stop offset="0.6891" style="stop-color:#C9E7FA"/> + <stop offset="0.7617" style="stop-color:#B6DAF3"/> + <stop offset="0.8337" style="stop-color:#9AC8EA"/> + <stop offset="0.9052" style="stop-color:#77B0DD"/> + <stop offset="0.9754" style="stop-color:#4D94CF"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_2_)" d="M19.625,36.763c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.927-18.396,3.927 + c-9.481,0-17.396-1.959-18.396-3.927l-1.229,2C0,34.888,8.787,36.763,19.625,36.763z"/> +<path fill="#3C89C9" d="M19.625,26.468c10.16,0,19.625,2.775,19.625,2.775c-0.375,2.721-5.367,5.438-19.554,5.438 + c-12.125,0-18.467-2.484-19.541-4.918C-0.127,29.125,9.465,26.468,19.625,26.468z"/> +<linearGradient id="SVGID_3_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-965.6948" x2="682.0508" y2="-965.6948" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#3C89C9"/> + <stop offset="0.1482" style="stop-color:#60A6DD"/> + <stop offset="0.3113" style="stop-color:#81C1F0"/> + <stop offset="0.4476" style="stop-color:#95D1FB"/> + <stop offset="0.5394" style="stop-color:#9CD7FF"/> + <stop offset="0.636" style="stop-color:#98D4FD"/> + <stop offset="0.7293" style="stop-color:#8DCAF6"/> + <stop offset="0.8214" style="stop-color:#79BBEB"/> + <stop offset="0.912" style="stop-color:#5EA5DC"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_3_)" d="M19.625,23.313C8.787,23.313,0,21.438,0,19.125v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,21.438,30.464,23.313,19.625,23.313z"/> +<linearGradient id="SVGID_4_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-959.6948" x2="682.0508" y2="-959.6948" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#9CD7FF"/> + <stop offset="0.0039" style="stop-color:#9DD7FF"/> + <stop offset="0.2273" style="stop-color:#BDE5FF"/> + <stop offset="0.4138" style="stop-color:#D1EEFF"/> + <stop offset="0.5394" style="stop-color:#D9F1FF"/> + <stop offset="0.6155" style="stop-color:#D5EFFE"/> + <stop offset="0.6891" style="stop-color:#C9E7FA"/> + <stop offset="0.7617" style="stop-color:#B6DAF3"/> + <stop offset="0.8337" style="stop-color:#9AC8EA"/> + <stop offset="0.9052" style="stop-color:#77B0DD"/> + <stop offset="0.9754" style="stop-color:#4D94CF"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_4_)" d="M19.625,23.313c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.926-18.396,3.926 + c-9.481,0-17.396-1.959-18.396-3.926l-1.229,2C0,21.438,8.787,23.313,19.625,23.313z"/> +<path fill="#3C89C9" d="M19.476,13.019c10.161,0,19.625,2.775,19.625,2.775c-0.375,2.721-5.367,5.438-19.555,5.438 + c-12.125,0-18.467-2.485-19.541-4.918C-0.277,15.674,9.316,13.019,19.476,13.019z"/> +<linearGradient id="SVGID_5_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-952.4946" x2="682.0508" y2="-952.4946" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#3C89C9"/> + <stop offset="0.1482" style="stop-color:#60A6DD"/> + <stop offset="0.3113" style="stop-color:#81C1F0"/> + <stop offset="0.4476" style="stop-color:#95D1FB"/> + <stop offset="0.5394" style="stop-color:#9CD7FF"/> + <stop offset="0.636" style="stop-color:#98D4FD"/> + <stop offset="0.7293" style="stop-color:#8DCAF6"/> + <stop offset="0.8214" style="stop-color:#79BBEB"/> + <stop offset="0.912" style="stop-color:#5EA5DC"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_5_)" d="M19.625,10.113C8.787,10.113,0,8.238,0,5.925v10c0,2.313,8.787,4.188,19.625,4.188 + c10.839,0,19.625-1.875,19.625-4.188v-10C39.25,8.238,30.464,10.113,19.625,10.113z"/> +<linearGradient id="SVGID_6_" gradientUnits="userSpaceOnUse" x1="642.8008" y1="-946.4946" x2="682.0508" y2="-946.4946" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#9CD7FF"/> + <stop offset="0.0039" style="stop-color:#9DD7FF"/> + <stop offset="0.2273" style="stop-color:#BDE5FF"/> + <stop offset="0.4138" style="stop-color:#D1EEFF"/> + <stop offset="0.5394" style="stop-color:#D9F1FF"/> + <stop offset="0.6155" style="stop-color:#D5EFFE"/> + <stop offset="0.6891" style="stop-color:#C9E7FA"/> + <stop offset="0.7617" style="stop-color:#B6DAF3"/> + <stop offset="0.8337" style="stop-color:#9AC8EA"/> + <stop offset="0.9052" style="stop-color:#77B0DD"/> + <stop offset="0.9754" style="stop-color:#4D94CF"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<path fill="url(#SVGID_6_)" d="M19.625,10.113c10.839,0,19.625-1.875,19.625-4.188l-1.229-2c0,2.168-8.235,3.926-18.396,3.926 + c-9.481,0-17.396-1.959-18.396-3.926L0,5.925C0,8.238,8.787,10.113,19.625,10.113z"/> +<linearGradient id="SVGID_7_" gradientUnits="userSpaceOnUse" x1="644.0293" y1="-943.4014" x2="680.8223" y2="-943.4014" gradientTransform="matrix(1 0 0 -1 -642.8008 -939.4756)"> + <stop offset="0" style="stop-color:#9CD7FF"/> + <stop offset="1" style="stop-color:#3C89C9"/> +</linearGradient> +<ellipse fill="url(#SVGID_7_)" cx="19.625" cy="3.926" rx="18.396" ry="3.926"/> +<path opacity="0.24" fill="#FFFFFF" enable-background="new " d="M31.04,45.982c0,0-4.354,0.664-7.29,0.781 + c-3.125,0.125-8.952,0-8.952,0l-2.384-10.292l0.044-2.108l-1.251-1.154L9.789,23.024l-0.082-0.119L9.5,20.529l-1.65-1.254 + L5.329,8.793c0,0,4.213,0.903,7.234,1.07s8.375,0.25,8.375,0.25l3,9.875l-0.25,1.313l1.063,2.168l2.312,9.645l-0.521,1.416 + l1.46,1.834L31.04,45.982z"/> +</svg> + + + + diff --git a/SISBusiness.Module/ClassDiagrams/Registry.cd b/SISBusiness.Module/ClassDiagrams/Registry.cd new file mode 100644 index 0000000..0c43fd6 --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Registry.cd @@ -0,0 +1,54 @@ + + + + + + + + + FGtyfASADMABJICAIoCLOcAAMQQJgI4wCIAUEigmoTo= + FinancialObjects\Registry.vb + + + + + + + + + AgAAAgAAAAIAIAAABACQAAAAAAAAAAAAAAAAAAEAAAA= + FinancialObjects\Registry.vb + + + + + + + + + phwAhIAAwAEFAAEIIgCQAAGAAAAkEEAIIhwKAAEgIAw= + FinancialObjects\Registry.vb + + + + + + + + + AgAAAAEAAAABAFAQAAGQAAAAAAAAAgAQAAAAAAECABA= + FinancialObjects\Registry.vb + + + + + + + + + AgEwEAAAAAAAAAAAAACAQgAAAAAAAAAAAAAAACAAgAI= + FinancialObjects\Registry.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/RegistryVAT.cd b/SISBusiness.Module/ClassDiagrams/RegistryVAT.cd new file mode 100644 index 0000000..f5b609b --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/RegistryVAT.cd @@ -0,0 +1,114 @@ + + + + + + + + AgAAAgAAAAICIIAABACQAgAAAAAAAABAAQRAAAEAAAA= + FinancialObjects\Registry\RegistryRowsFinancial\RegistryRowsFinancial.vb + + + + + + + + plQAkIAQwAAFAIEIIgCQAoGAIAAkEEBIIBwKAAEgIAw= + FinancialObjects\Registry\RegistryRowsFinancialControlling\RegistryRowsFinancialControlling.vb + + + + + + + + FGtyfATADMABZMDAIoCLOcWAMQYLgI4wCIgUEqguoTo= + FinancialObjects\Registry\RegistryHeader.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/Storage.cd b/SISBusiness.Module/ClassDiagrams/Storage.cd new file mode 100644 index 0000000..8ea420e --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/Storage.cd @@ -0,0 +1,202 @@ + + + + + + + + AAABgAAAAAAAAAAAAAYAAAAAhgAEAAAACAAABAAAAgQ= + BusinessObjects\Storage\StorageComputed.vb + + + + + + + + + + + gAQBAAACBQAAQAAAAAQwAIgAAgEAABAigAQgAIAIwAQ= + BusinessObjects\StorageTransactions\In\StorageInRows.vb + + + + + + + + AAAACgAAAQAAQIAAAAQAEIgEAgAAAEACgAQgAIAAwAQ= + BusinessObjects\StorageTransactions\Out\StorageOutRows.vb + + + + + + + + AAAAAABBAQAASAAAAAAAAAAAAAAAAAAAgAAAAAAAgAA= + BusinessObjects\StorageTransactions\Out\StorageOutRowsInRows.vb + + + + + + + + EAAICAAAAAQgAIAIgAAAAEgAAAQAAIAGKAAAABADgAA= + BusinessObjects\Storage\Storage.vb + + + + + + + + + + + + AAAAAEBACGCAQKIAICqQIIAEBAwAAEAgCAADAAAQIjA= + BusinessObjects\StorageTransactions\In\StorageInHeader.vb + + + + + + + + AAEBEAABAAAAAAACAAIAAAACAAQAAAABAAAAABAAAgA= + BusinessObjects\Storage\StorageMoveType.vb + + + + + + + + EAFCABABAEAAQKIAMCqQIIgEBAyIAAIgCAABACAQgjg= + BusinessObjects\StorageTransactions\Out\StorageOutHeader.vb + + + + + + + + AAAAAABBAAAASIIAAKAAAAAABAAAAgAACAAAABAAgAE= + BusinessObjects\Storage\StorageMoveEvents.vb + + + + + + AIAAAAAAAAAAAABAAAAABAAAAAAAAAIAIAAgAgAACAA= + BusinessObjects\Storage\StorageMoveType.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/StorageOutIn.cd b/SISBusiness.Module/ClassDiagrams/StorageOutIn.cd new file mode 100644 index 0000000..9783d5d --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/StorageOutIn.cd @@ -0,0 +1,59 @@ + + + + + + + + + + AAABgAAAAAAAAAAAAAYAAAAAhgAEAAAACAAABAAAAgQ= + BusinessObjects\Storage.vb + + + + + + + + + + AAQBAAAAAQAAQAAAAAQwAIAAAgAAAAAigAQgAIAIwAQ= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + + + + + + + AAAACAAAAQAAQAAAAAQgEIAEAgAAAEACgAQgAIAAwAQ= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + + + + + + + AAAAAABBAQAASAAAAAAAAAAAAAAAAAAAgAAAAAAAgAA= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + + + + + + + AAAAAABACGAAAKIAACKQIIAAAAQAAEAgAAABAAAQAjA= + BusinessObjects\StorageTransactions\StorageTransactions.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/ClassDiagrams/WorkSheet.cd b/SISBusiness.Module/ClassDiagrams/WorkSheet.cd new file mode 100644 index 0000000..661825a --- /dev/null +++ b/SISBusiness.Module/ClassDiagrams/WorkSheet.cd @@ -0,0 +1,37 @@ + + + + + + + + + + AAAAAAAAAAAAAAAAgAABAAAQAxAAAABAEAACgAEAAAU= + BusinessObjects\Worksheet.vb + + + + + + + + + + AAABCCBAAEAAAAAAAAAIEIAABAQAAAAAAAAEEDAgAAQ= + BusinessObjects\Worksheet.vb + + + + + + + + + + AQAAAAAgAAAgAAAAAAAAAAAAAAAAAIAEAAAAAAACAAA= + BusinessObjects\Worksheet.vb + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.Designer.vb b/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.Designer.vb new file mode 100644 index 0000000..b889a3f --- /dev/null +++ b/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ActionToolTipforSysAdmin + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.vb b/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.vb new file mode 100644 index 0000000..c3358af --- /dev/null +++ b/SISBusiness.Module/Controllers/ActionToolTipforSysAdmin.vb @@ -0,0 +1,73 @@ +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.Templates +Imports DevExpress.ExpressApp.Editors + +Public Class ActionToolTipforSysAdmin + 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() + Dim _Container As IActionContainer + Dim _Action As DevExpress.ExpressApp.Actions.ActionBase + If Frame.Template IsNot Nothing Then + For Each _Container In Frame.Template.GetContainers + For Each _Action In _Container.Actions + _Action.ToolTip = "View Id: " & View.Id & Chr(13) + Chr(10) & "Action Id : " & _Action.Id & Chr(13) & Chr(10) & "Controller Id : " & _Action.Controller.Name + Next + Next + End If + If TryCast(Frame, NestedFrame) IsNot Nothing Then + If TryCast(Frame, NestedFrame).Controllers.Count > 0 Then + Dim _Controller As Controller + For Each _Controller In TryCast(Frame, NestedFrame).Controllers + For Each _Action In _Controller.Actions + _Action.ToolTip = "View Id: " & View.Id & Chr(13) + Chr(10) & "Action Id : " & _Action.Id & Chr(13) & Chr(10) & "Controller Id : " & _Action.Controller.Name + Next + Next + End If + End If + AddHandler View.ControlsCreated, AddressOf View_ControlsCreated + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + RemoveHandler View.ControlsCreated, AddressOf View_ControlsCreated + + End Sub + Private Sub View_ControlsCreated(sender As Object, e As EventArgs) + If TryCast(View, DetailView) IsNot Nothing Then + Dim _ViewItem As ViewItem + Dim _ActionContainerViewItem As ActionContainerViewItem + For Each _ViewItem In TryCast(View, DetailView).Items + _ActionContainerViewItem = TryCast(_ViewItem, ActionContainerViewItem) + If _ActionContainerViewItem IsNot Nothing Then + AddHandler _ActionContainerViewItem.ControlCreated, AddressOf ActionContainerViewItem_ControlCreated + End If + Next + End If + End Sub + + Private Sub ActionContainerViewItem_ControlCreated(sender As Object, e As EventArgs) + For Each _Action In TryCast(sender, ActionContainerViewItem).Actions + _Action.ToolTip = "View Id: " & View.Id & Chr(13) + Chr(10) & "Action Id : " & _Action.Id & Chr(13) & Chr(10) & "Controller Id : " & _Action.Controller.Name + Next + End Sub +End Class + + diff --git a/SISBusiness.Module/Controllers/AllowSortListViewController.vb b/SISBusiness.Module/Controllers/AllowSortListViewController.vb new file mode 100644 index 0000000..e884267 --- /dev/null +++ b/SISBusiness.Module/Controllers/AllowSortListViewController.vb @@ -0,0 +1,148 @@ +' Developer Express Code Central Example: +' How to prevent sorting by columns in a ListView +' +' This example provides a workaround solution to the +' http://www.devexpress.com/scid=S131144 suggestion. Below is the list of +' implemented features: +' 1. AllowSortAttribute - this is a regular attribute class +' that can be used in your code to mark either a business class or its property, +' to specify whether you want to allow columns to be sorted in the whole class, or +' for only a specific column: +' +' [AttributeUsage(AttributeTargets.Interface | +' AttributeTargets.Class | AttributeTargets.Field | +' AttributeTargets.Property)] +' public class AllowSortAttribute : Attribute +' { +' public AllowSortAttribute(bool allowSort) {...} +' public AllowSortAttribute() +' : this(true) { } +' ... +' +' +' See these examples below: +' a) This code prevents +' sorting by all columns in the +' ListView: +' +' [DefaultClassOptions] +' [AllowSort(false)] +' public class DemoIssue : +' BaseObject { +' ... +' +' +' b) This code prevents sorting by the Description column +' in the ListView: +' +' private string _Description; +' [AllowSort(false)] +' public +' string Description { +' get { return _Description; } +' set { +' SetPropertyValue("Description", ref _Description, value); } +' } +' +' When this +' attribute is applied to a class, its value is used to calculate the default +' value of the DefaultListViewAllowSortAttribute attribute on the BOModel | Class +' node level in the application model. +' When this attribute is applied to a +' property, its value is used to calculate the default value of the AllowSort +' attribute on the BOModel | Class | Member node level in the application +' model. +' +' 2. DefaultListViewAllowSortAttribute - this is an attribute declared +' on the BOModel | Class node level in the application model. You can use it to +' control the default sorting behavior for all ListViews of a business class. The +' value of this attribute is used to calculate the value of the attribute on the +' Views | ListView node level. +' +' 3. AllowSort - this is an attribute declared on +' the BOModel | Member, Views | ListView and ListView | Columns | ColumnInfo nodes +' level in the application model. You can use this attribute to flexibly control +' the sorting behavior of columns. +' +' 4. Sorting management, with the help of the +' AllowSort attribute, is supported in both Windows Forms and ASP.NET applications +' for the GridListEditor and ASPxGridListEditor correspondingly. +' +' See +' Also: +' http://www.devexpress.com/scid=E1253 +' http://www.devexpress.com/scid=E1276 +' Sorting +' (ms-help://DevExpress.WindowsForms/CustomDocument3499.htm) +' Sorting +' (ms-help://DevExpress.AspNet/CustomDocument3714.htm) +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1254 + +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Text +Imports DevExpress.Persistent.Base +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp +Imports DevExpress.Xpo.DB +Imports DevExpress.Xpo.Metadata +Imports DevExpress.Data +Imports DevExpress.ExpressApp.DC +Imports DevExpress.ExpressApp.Model + + + _ +Public Class AllowSortAttribute + Inherits Attribute + Public Const DefaultListViewAllowSortAttributeName As String = "DefaultListViewAllowSort" + Public Const AllowSortAttributeName As String = "AllowSort" + Public Shared [Default] As New AllowSortAttribute(True) + Private allowSortCore As Boolean = True + Public Sub New() + Me.New(True) + End Sub + Public Sub New(ByVal allowSort As Boolean) + Me.allowSortCore = allowSort + End Sub + Public Property AllowSort() As Boolean + Get + Return allowSortCore + End Get + Set(ByVal value As Boolean) + allowSortCore = value + End Set + End Property +End Class + + +Public MustInherit Class AllowSortListViewController + Inherits ViewController(Of ListView) + Protected MustOverride Sub UpdateAllowSort() + Private Sub ListView_InfoChanged(ByVal sender As Object, ByVal e As EventArgs) + UpdateAllowSort() + End Sub + Protected Function GetAllowSortListView() As Boolean + If View.Model IsNot Nothing Then + Return (CType(View.Model, IModelListViewAllowSort)).AllowSort + End If + Return False + End Function + Protected Function GetAllowSortColumn(ByVal column As IModelColumn) As Boolean + If column IsNot Nothing AndAlso GetAllowSortListView() Then + Return (CType(column, IModelColumnAllowSort)).AllowSort + End If + Return False + End Function + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + AddHandler View.ModelChanged, AddressOf ListView_InfoChanged + End Sub + Protected Overloads Overrides Sub OnDeactivated() + RemoveHandler View.ModelChanged, AddressOf ListView_InfoChanged + MyBase.OnDeactivated() + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/AppearanceVC.Designer.vb b/SISBusiness.Module/Controllers/AppearanceVC.Designer.vb new file mode 100644 index 0000000..e21bfec --- /dev/null +++ b/SISBusiness.Module/Controllers/AppearanceVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class AppearanceVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/AppearanceVC.vb b/SISBusiness.Module/Controllers/AppearanceVC.vb new file mode 100644 index 0000000..51974a6 --- /dev/null +++ b/SISBusiness.Module/Controllers/AppearanceVC.vb @@ -0,0 +1,46 @@ +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.ConditionalAppearance + +Public Class AppearanceVC + Inherits DevExpress.ExpressApp.ViewController + Private _AppearanceController As AppearanceController + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + '_AppearanceController = Frame.GetController(Of AppearanceController)() + + 'If _AppearanceController IsNot Nothing Then + ' AddHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + 'End If + + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + '_AppearanceController = Frame.GetController(Of AppearanceController)() + + 'If _AppearanceController IsNot Nothing Then + ' RemoveHandler _AppearanceController.AppearanceApplied, AddressOf _AppearanceController_AppearanceApplied + 'End If + End Sub + + Private Sub _AppearanceController_AppearanceApplied(sender As Object, e As ApplyAppearanceEventArgs) + + End Sub + + +End Class diff --git a/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.Designer.vb b/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.Designer.vb new file mode 100644 index 0000000..2544375 --- /dev/null +++ b/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class AuditToDatabaseVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.vb b/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.vb new file mode 100644 index 0000000..8e47ee1 --- /dev/null +++ b/SISBusiness.Module/Controllers/Audit/AuditToDatabaseVC.vb @@ -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 AuditToDatabaseVC + 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() + '//Biztonsg kedvrt berjuk ! + GLOBAL_HAS_Audit = True + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/Audit/AuditTrailVC.Designer.vb b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.Designer.vb new file mode 100644 index 0000000..a486d9c --- /dev/null +++ b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.Designer.vb @@ -0,0 +1,50 @@ +Partial Class AuditTrailVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aGetAuditTrail = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aGetAuditTrail + ' + Me.aGetAuditTrail.Caption = "aGet Audit Trail" + Me.aGetAuditTrail.Category = "View" + Me.aGetAuditTrail.ConfirmationMessage = Nothing + Me.aGetAuditTrail.Id = "aGetAuditTrail" + Me.aGetAuditTrail.ImageName = Nothing + Me.aGetAuditTrail.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aGetAuditTrail.Shortcut = Nothing + Me.aGetAuditTrail.Tag = Nothing + Me.aGetAuditTrail.TargetObjectsCriteria = Nothing + Me.aGetAuditTrail.TargetViewId = Nothing + Me.aGetAuditTrail.ToolTip = Nothing + Me.aGetAuditTrail.TypeOfView = Nothing + + End Sub + Friend WithEvents aGetAuditTrail As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/Controllers/Audit/AuditTrailVC.resx b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.resx new file mode 100644 index 0000000..bb7d1b4 --- /dev/null +++ b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/Audit/AuditTrailVC.vb b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.vb new file mode 100644 index 0000000..614f6a8 --- /dev/null +++ b/SISBusiness.Module/Controllers/Audit/AuditTrailVC.vb @@ -0,0 +1,64 @@ +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.Persistent.BaseImpl +Imports DevExpress.Data.Filtering + +Public Class AuditTrailVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + TargetViewType = ViewType.ListView + + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + GLOBAL_HAS_Audit = True + If View.Id Like "*AuditDataItemPersistent*" Then + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id Like "*AuditDataItemPersistent*" Then + Frame.GetController(Of AuditTrailVC).aGetAuditTrail.Active.SetItemValue("", True) + End If + End Sub + Private Sub aGetAuditTrail_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGetAuditTrail.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent) + Dim _AuditDataItemPersistent As AuditDataItemPersistent + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As New CollectionSource(_onew, GetType(AuditDataItemPersistent)) + + _AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_ocur.Session, View.SelectedObjects(0)) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Clear() + _CS.Criteria("First") = CriteriaOperator.Parse("1=2") + _CS.EndUpdateCriteria() + + If _AuditDataItemPersistent_Collection IsNot Nothing Then + For Each _AuditDataItemPersistent In _AuditDataItemPersistent_Collection + _CS.Add(_onew.GetObject(_AuditDataItemPersistent)) + Next + + e.ShowViewParameters.CreatedView = Application.CreateListView("AuditDataItemPersistent_ListView", _CS, False) + e.ShowViewParameters.NewWindowTarget = NewWindowTarget.Separate + e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + + End If + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/DBV_Dashboard_VC.Designer.vb b/SISBusiness.Module/Controllers/DBV_Dashboard_VC.Designer.vb new file mode 100644 index 0000000..459e039 --- /dev/null +++ b/SISBusiness.Module/Controllers/DBV_Dashboard_VC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class DBV_Dashboard_VC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/DBV_Dashboard_VC.vb b/SISBusiness.Module/Controllers/DBV_Dashboard_VC.vb new file mode 100644 index 0000000..5fcb056 --- /dev/null +++ b/SISBusiness.Module/Controllers/DBV_Dashboard_VC.vb @@ -0,0 +1,239 @@ +Imports System.Linq +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.Xpo + +' For more typical usage scenarios, be sure to check out https://documentation.devexpress.com/eXpressAppFramework/clsDevExpressExpressAppViewControllertopic.aspx. +Partial Public Class DBV_Dashboard_VC + Inherits ViewController(Of DashboardView) + + Private _DBV_CustomersOrder_ListView As DashboardViewItem + Private _DBV_Customers_ListView As DashboardViewItem + Private _DBV_OfferOutRows_ListView As DashboardViewItem + Private _DBV_OrderInRows_ListView As DashboardViewItem + Private _DBV_Products_ListView As DashboardViewItem + + Private _CustomersOrder As CustomersOrder + Private _Customers As Customers + Public Sub New() + InitializeComponent() + ' 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. + If View.Id = "DVB_Dashboard" Then + _DBV_CustomersOrder_ListView = CType(View.FindItem("DBV_CustomersOrder_ListView"), DashboardViewItem) + _DBV_Customers_ListView = CType(View.FindItem("DBV_Customers_ListView"), DashboardViewItem) + _DBV_OfferOutRows_ListView = CType(View.FindItem("DBV_OfferOutRows_ListView"), DashboardViewItem) + _DBV_OrderInRows_ListView = CType(View.FindItem("DBV_OrderInRows_ListView"), DashboardViewItem) + _DBV_Products_ListView = CType(View.FindItem("DBV_Products_ListView"), DashboardViewItem) + + If _DBV_CustomersOrder_ListView IsNot Nothing Then + AddHandler _DBV_CustomersOrder_ListView.ControlCreated, AddressOf DBV_CustomersOrder_ListView_ControlCreated + End If + If _DBV_Customers_ListView IsNot Nothing Then + AddHandler _DBV_Customers_ListView.ControlCreated, AddressOf DBV_Customers_ListView_ControlCreated + End If + End If + 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 DBV_CustomersOrder_ListView_ControlCreated(sender As Object, e As EventArgs) + + Dim _DashboardViewItem As DashboardViewItem = DirectCast(sender, DashboardViewItem) + Dim _DBV_CustomersOrder_ListView As ListView = TryCast(_DashboardViewItem.InnerView, ListView) + + If _DBV_CustomersOrder_ListView IsNot Nothing Then + RemoveHandler _DBV_CustomersOrder_ListView.SelectionChanged, AddressOf DBV_CustomersOrder_ListView_SelectionChanged + AddHandler _DBV_CustomersOrder_ListView.SelectionChanged, AddressOf DBV_CustomersOrder_ListView_SelectionChanged + End If + End Sub + + Private Sub DBV_CustomersOrder_ListView_SelectionChanged(sender As Object, e As EventArgs) + Dim _ocur As Xpo.XPObjectSpace = TryCast(TryCast(_DBV_CustomersOrder_ListView.InnerView, ListView).ObjectSpace, Xpo.XPObjectSpace) + Dim _Criteria As String = "" + Dim _Criteria2 As String = "" + Dim _Criteria3 As String = "" + + + If TryCast(_DBV_CustomersOrder_ListView.InnerView, ListView).SelectedObjects.Count > 0 Then + _CustomersOrder = TryCast(_DBV_CustomersOrder_ListView.InnerView, ListView).SelectedObjects(0) + Dim _Exists As Boolean = False + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("CustomersOrder.Oid=?", _CustomersOrder.Oid)) + + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + If _Criteria3 = "" Then + _Criteria3 = String.Format("Oid in ('{0}'", _CustomersOrderPriority.Products.Oid) + Else + _Criteria3 += String.Format(",'{0}'", _CustomersOrderPriority.Products.Oid) + End If + + _Exists = True + Next + If _Exists Then + _Criteria3 += ")" + Else + _Criteria3 = "1=2" + End If + + + + + _Exists = False + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _CustomersOrderPriority.Products)) + + For Each _OrderInRows As OrderInRows In _OrderInRows_Collection + If _Criteria = "" Then + _Criteria = String.Format("Oid in ('{0}'", _OrderInRows.OrderInHeader.Customers.Oid) + Else + _Criteria += String.Format(",'{0}'", _OrderInRows.OrderInHeader.Customers.Oid) + End If + _Exists = True + Next + Next + If _Exists Then + _Criteria += ")" + Else + _Criteria = "1=2" + End If + + _Exists = False + + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + + Dim _OfferOutRows_Collection As New XPCollection(Of OfferOutRows)(_ocur.Session, CriteriaOperator.Parse("Product=?", _CustomersOrderPriority.Products)) + + For Each _OfferOutRows As OfferOutRows In _OfferOutRows_Collection + If _Criteria2 = "" Then + _Criteria2 = String.Format("Oid in ('{0}'", _OfferOutRows.OfferOutHeader.Customers.Oid) + Else + _Criteria2 += String.Format(",'{0}'", _OfferOutRows.OfferOutHeader.Customers.Oid) + End If + _Exists = True + Next + Next + If _Exists Then + _Criteria2 += ")" + Else + _Criteria2 = "1=2" + End If + + _Criteria = String.Format("({0}) OR ({1})", _Criteria, _Criteria2) + Else + _CustomersOrder = Nothing + _Criteria = "1=2" + End If + + + + TryCast(_DBV_Customers_ListView.InnerView, ListView).CollectionSource.Criteria.Clear() + TryCast(_DBV_Customers_ListView.InnerView, ListView).CollectionSource.BeginUpdateCriteria() + TryCast(_DBV_Customers_ListView.InnerView, ListView).CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse(_Criteria) + TryCast(_DBV_Customers_ListView.InnerView, ListView).CollectionSource.EndUpdateCriteria() + + TryCast(_DBV_Products_ListView.InnerView, ListView).CollectionSource.Criteria.Clear() + TryCast(_DBV_Products_ListView.InnerView, ListView).CollectionSource.BeginUpdateCriteria() + TryCast(_DBV_Products_ListView.InnerView, ListView).CollectionSource.Criteria("Criteria") = CriteriaOperator.Parse(_Criteria3) + TryCast(_DBV_Products_ListView.InnerView, ListView).CollectionSource.EndUpdateCriteria() + + + End Sub + + Private Sub DBV_Customers_ListView_ControlCreated(sender As Object, e As EventArgs) + Dim _DashboardViewItem As DashboardViewItem = DirectCast(sender, DashboardViewItem) + Dim _DBV_Customers_ListView As ListView = TryCast(_DashboardViewItem.InnerView, ListView) + + If _DBV_Customers_ListView IsNot Nothing Then + RemoveHandler _DBV_Customers_ListView.SelectionChanged, AddressOf DBV_Customers_ListView_SelectionChanged + AddHandler _DBV_Customers_ListView.SelectionChanged, AddressOf DBV_Customers_ListView_SelectionChanged + End If + End Sub + + Private Sub DBV_Customers_ListView_SelectionChanged(sender As Object, e As EventArgs) + If _CustomersOrder Is Nothing Then Exit Sub + + Dim _ocur As Xpo.XPObjectSpace = TryCast(TryCast(_DBV_Customers_ListView.InnerView, ListView).ObjectSpace, Xpo.XPObjectSpace) + Dim _Criteria As String = "" + Dim _Criteria2 As String = "" + Dim _Exists As Boolean = False + + If TryCast(_DBV_Customers_ListView.InnerView, ListView).SelectedObjects.Count > 0 Then + _Customers = TryCast(_DBV_Customers_ListView.InnerView, ListView).SelectedObjects(0) + Else + _Customers = Nothing + End If + + If _Customers IsNot Nothing Then + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("CustomersOrder.Oid=?", _CustomersOrder.Oid)) + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _CustomersOrderPriority.Products)) + For Each _OrderInRows As OrderInRows In _OrderInRows_Collection + If _Criteria = "" Then + _Criteria = String.Format("Oid in ('{0}'", _OrderInRows.Oid) + Else + _Criteria += String.Format(",'{0}'", _OrderInRows.Oid) + End If + _Exists = True + Next + Next + If _Exists Then + _Criteria += ")" + Else + _Criteria = "1=2" + End If + Else + _Criteria = "1=2" + End If + + TryCast(_DBV_OrderInRows_ListView.InnerView, ListView).CollectionSource.Criteria.Clear() + + TryCast(_DBV_OrderInRows_ListView.InnerView, ListView).CollectionSource.BeginUpdateCriteria() + TryCast(_DBV_OrderInRows_ListView.InnerView, ListView).CollectionSource.Criteria("Products") = CriteriaOperator.Parse(_Criteria) + If _Customers IsNot Nothing Then TryCast(_DBV_OrderInRows_ListView.InnerView, ListView).CollectionSource.Criteria("Customers") = CriteriaOperator.Parse("OrderInHeader.Customers.Oid=?", _Customers.Oid) + TryCast(_DBV_OrderInRows_ListView.InnerView, ListView).CollectionSource.EndUpdateCriteria() + + _Exists = False + If _Customers IsNot Nothing Then + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("CustomersOrder.Oid=?", _CustomersOrder.Oid)) + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + Dim _OfferOutRows_Collection As New XPCollection(Of OfferOutRows)(_ocur.Session, CriteriaOperator.Parse("Product=?", _CustomersOrderPriority.Products)) + For Each _OfferOutRows As OfferOutRows In _OfferOutRows_Collection + If _Criteria2 = "" Then + _Criteria2 = String.Format("Oid in ('{0}'", _OfferOutRows.Oid) + Else + _Criteria2 += String.Format(",'{0}'", _OfferOutRows.Oid) + End If + _Exists = True + Next + Next + If _Exists Then + _Criteria2 += ")" + Else + _Criteria2 = "1=2" + End If + Else + _Criteria2 = "1=2" + End If + + + + + TryCast(_DBV_OfferOutRows_ListView.InnerView, ListView).CollectionSource.Criteria.Clear() + TryCast(_DBV_OfferOutRows_ListView.InnerView, ListView).CollectionSource.BeginUpdateCriteria() + TryCast(_DBV_OfferOutRows_ListView.InnerView, ListView).CollectionSource.Criteria("Products") = CriteriaOperator.Parse(_Criteria2) + If _Customers IsNot Nothing Then TryCast(_DBV_OfferOutRows_ListView.InnerView, ListView).CollectionSource.Criteria("Customers") = CriteriaOperator.Parse("OfferOutHeader.Customers.Oid=?", _Customers.Oid) + TryCast(_DBV_OfferOutRows_ListView.InnerView, ListView).CollectionSource.EndUpdateCriteria() + + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/DateYearCriteriaVC.Designer.vb b/SISBusiness.Module/Controllers/DateYearCriteriaVC.Designer.vb new file mode 100644 index 0000000..515d918 --- /dev/null +++ b/SISBusiness.Module/Controllers/DateYearCriteriaVC.Designer.vb @@ -0,0 +1,80 @@ +Partial Class DateYearCriteriaVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim ChoiceActionItem1 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem2 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem3 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem4 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem5 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Dim ChoiceActionItem6 As DevExpress.ExpressApp.Actions.ChoiceActionItem = New DevExpress.ExpressApp.Actions.ChoiceActionItem() + Me.aDateYearFilter = New DevExpress.ExpressApp.Actions.SingleChoiceAction(Me.components) + ' + 'aDateYearFilter + ' + Me.aDateYearFilter.Caption = "aDate Year Filter" + Me.aDateYearFilter.ConfirmationMessage = Nothing + Me.aDateYearFilter.Id = "aDateYearFilter" + ChoiceActionItem1.Caption = "CurrentYear" + ChoiceActionItem1.ImageName = Nothing + ChoiceActionItem1.Shortcut = Nothing + ChoiceActionItem1.ToolTip = Nothing + ChoiceActionItem2.Caption = "PrevYear" + ChoiceActionItem2.ImageName = Nothing + ChoiceActionItem2.Shortcut = Nothing + ChoiceActionItem2.ToolTip = Nothing + ChoiceActionItem3.Caption = "Prev2Year" + ChoiceActionItem3.ImageName = Nothing + ChoiceActionItem3.Shortcut = Nothing + ChoiceActionItem3.ToolTip = Nothing + ChoiceActionItem4.Caption = "Prev3Year" + ChoiceActionItem4.ImageName = Nothing + ChoiceActionItem4.Shortcut = Nothing + ChoiceActionItem4.ToolTip = Nothing + ChoiceActionItem5.Caption = "Prev4Year" + ChoiceActionItem5.ImageName = Nothing + ChoiceActionItem5.Shortcut = Nothing + ChoiceActionItem5.ToolTip = Nothing + ChoiceActionItem6.Caption = "All" + ChoiceActionItem6.ImageName = Nothing + ChoiceActionItem6.Shortcut = Nothing + ChoiceActionItem6.ToolTip = Nothing + Me.aDateYearFilter.Items.Add(ChoiceActionItem1) + Me.aDateYearFilter.Items.Add(ChoiceActionItem2) + Me.aDateYearFilter.Items.Add(ChoiceActionItem3) + Me.aDateYearFilter.Items.Add(ChoiceActionItem4) + Me.aDateYearFilter.Items.Add(ChoiceActionItem5) + Me.aDateYearFilter.Items.Add(ChoiceActionItem6) + Me.aDateYearFilter.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aDateYearFilter.ToolTip = Nothing + Me.aDateYearFilter.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aDateYearFilter As DevExpress.ExpressApp.Actions.SingleChoiceAction + +End Class diff --git a/SISBusiness.Module/Controllers/DateYearCriteriaVC.resx b/SISBusiness.Module/Controllers/DateYearCriteriaVC.resx new file mode 100644 index 0000000..768b167 --- /dev/null +++ b/SISBusiness.Module/Controllers/DateYearCriteriaVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/DateYearCriteriaVC.vb b/SISBusiness.Module/Controllers/DateYearCriteriaVC.vb new file mode 100644 index 0000000..135548c --- /dev/null +++ b/SISBusiness.Module/Controllers/DateYearCriteriaVC.vb @@ -0,0 +1,113 @@ +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 +Imports DevExpress.Data.Filtering + +Public Class DateYearCriteriaVC + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + 'Me.aDateYearFilter.Items.Clear() + 'Me.aDateYearFilter.Items.Add( + For Each _item In Me.aDateYearFilter.Items + Select Case _item.Caption + Case "CurrentYear" + _item.Caption = Year(Now).ToString + _item.Id = "CurrentYear" + Me.aDateYearFilter.SelectedItem = _item + Case "PrevYear" + _item.Caption = Year(DateAdd(DateInterval.Year, -1, Now)).ToString + _item.Id = "PrevYear" + Case "Prev2Year" + _item.Caption = Year(DateAdd(DateInterval.Year, -2, Now)).ToString + _item.Id = "Prev2Year" + Case "Prev3Year" + _item.Caption = Year(DateAdd(DateInterval.Year, -3, Now)).ToString + _item.Id = "Prev3Year" + Case "Prev4Year" + _item.Caption = Year(DateAdd(DateInterval.Year, -4, Now)).ToString + _item.Id = "Prev4Year" + Case "All" + _item.Id = "All" + End Select + Next + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + Frame.GetController(Of DateYearCriteriaVC).aDateYearFilter.Active.SetItemValue("", False) + + If TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _IModelListView As IModelListView + Dim _IModelListViewExtender As IModelListViewExtender + + _IModelListView = _ListView.Model + _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender) + + + If _IModelListViewExtender.DefaultDateYearInFilter = True Then + Frame.GetController(Of DateYearCriteriaVC).aDateYearFilter.Active.SetItemValue("", True) + Dim _Item As DevExpress.ExpressApp.Actions.ChoiceActionItem = Me.aDateYearFilter.FindItemByIdPath("CurrentYear") + If _Item IsNot Nothing Then + Me.aDateYearFilter.SelectedItem = _Item + If _ListView.Id Like "*LookupListView*" Then + Else + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(Now).ToString) + _ListView.CollectionSource.EndUpdateCriteria() + End If + End If + End If + End If + End Sub + + Private Sub aDateYearFilter_Execute(sender As Object, e As SingleChoiceActionExecuteEventArgs) Handles aDateYearFilter.Execute + Dim _ListView As ListView = TryCast(View, ListView) + Dim _IModelListView As IModelListView + Dim _IModelListViewExtender As IModelListViewExtender + + + + + If _ListView IsNot Nothing Then + If _ListView.Id Like "*LookupListView*" Then Exit Sub + _IModelListView = _ListView.Model + _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender) + + + _ListView.CollectionSource.BeginUpdateCriteria() + Select Case e.SelectedChoiceActionItem.Caption + Case Year(Now).ToString + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(Now).ToString) + Case Year(DateAdd(DateInterval.Year, -1, Now)).ToString + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -1, Now)).ToString) + Case Year(DateAdd(DateInterval.Year, -2, Now)).ToString + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -2, Now)).ToString) + Case Year(DateAdd(DateInterval.Year, -3, Now)).ToString + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -3, Now)).ToString) + Case Year(DateAdd(DateInterval.Year, -4, Now)).ToString + _ListView.CollectionSource.Criteria("DateYearFilter") = CriteriaOperator.Parse("GetYear(" & _IModelListViewExtender.DefaultDateYearInFilterProperty & ")=?", Year(DateAdd(DateInterval.Year, -4, Now)).ToString) + Case Else + _ListView.CollectionSource.BeginUpdateCriteria() + _ListView.CollectionSource.Criteria.Remove("DateYearFilter") + _ListView.CollectionSource.EndUpdateCriteria() + End Select + _ListView.CollectionSource.EndUpdateCriteria() + End If + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListView.vb b/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListView.vb new file mode 100644 index 0000000..b3f819f --- /dev/null +++ b/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListView.vb @@ -0,0 +1,110 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ModelListView + Inherits BaseObject + Private _MasterObject As Guid + Private _EditorType As String + Private _IsFooterVisible As Boolean + Private _IsGroupPanelVisible As Boolean + Private _ShowAutoFilterRow As Boolean + Private _ShowFindPanel As Boolean + Private _Id As String + Private _PivotSettings As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property MasterObject As Guid + Get + Return _MasterObject + End Get + Set(value As Guid) + SetPropertyValue("MasterObject", _MasterObject, value) + End Set + End Property + _ + Property EditorType As String + Get + Return _EditorType + End Get + Set(value As String) + SetPropertyValue("EditorType", _EditorType, value) + End Set + End Property + Property IsFooterVisible As Boolean + Get + Return _IsFooterVisible + End Get + Set(value As Boolean) + SetPropertyValue("IsFooterVisible", _IsFooterVisible, value) + End Set + End Property + Property IsGroupPanelVisible As Boolean + Get + Return _IsGroupPanelVisible + End Get + Set(value As Boolean) + SetPropertyValue("IsGroupPanelVisible", _IsGroupPanelVisible, value) + End Set + End Property + Property ShowAutoFilterRow As Boolean + Get + Return _ShowAutoFilterRow + End Get + Set(value As Boolean) + SetPropertyValue("ShowAutoFilterRow", _ShowAutoFilterRow, value) + End Set + End Property + Property ShowFindPanel As Boolean + Get + Return _ShowFindPanel + End Get + Set(value As Boolean) + SetPropertyValue("ShowFindPanel", _ShowFindPanel, value) + End Set + End Property + _ + Property Id As String + Get + Return _Id + End Get + Set(value As String) + SetPropertyValue("Id", _Id, value) + End Set + End Property + _ + Property PivotSettings As String + Get + Return _PivotSettings + End Get + Set(value As String) + SetPropertyValue("PivotSettings", _PivotSettings, value) + End Set + End Property + + ReadOnly Property ModelListViewColumn As XPCollection(Of ModelListViewColumn) + Get + Return New XPCollection(Of ModelListViewColumn)(Session, CriteriaOperator.Parse("ModelListView=?", Me)) + End Get + End Property +End Class diff --git a/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListViewColumn.vb b/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListViewColumn.vb new file mode 100644 index 0000000..9ddafdb --- /dev/null +++ b/SISBusiness.Module/Controllers/Interfaces/CentralListView/ModelListViewColumn.vb @@ -0,0 +1,292 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ModelListViewColumn + Inherits BaseObject + Private _ModelListView As ModelListView + Private _HideValueIfZero As Boolean + Private _InLineCriteria As String + Private _InLineEdit As Boolean + Private _PropertyEditorType As String + Private _AllowEdit As Boolean + Private _AllowSort As Boolean + Private _GroupInterval As DevExpress.ExpressApp.Model.GroupInterval + Private _ImmediatePostData As Boolean + Private _IsPassword As Boolean + Private _LookupEditorMode As DevExpress.Persistent.Base.LookupEditorMode + Private _SortOrder As DevExpress.Data.ColumnSortOrder + Private _DataSourceCriteria As String + Private _DataSourceProperty As String + Private _DataSourcePropertyIsNullCriteria As String + Private _LookupProperty As String + Private _ModelMember As String + Private _PropertyName As String + Private _DisplayFormat As String + Private _EditMask As String + Private _GroupIndex As Long + Private _MaxLength As Long + Private _SortIndex As Long + Private _Width As Long + Private _Caption As String + Private _GroupFooterSummaryType As DevExpress.Data.SummaryItemType + Private _Id As String + Private _Index As Long + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property ModelListView As ModelListView + Get + Return _ModelListView + End Get + Set(value As ModelListView) + SetPropertyValue("ModelListView", _ModelListView, value) + End Set + End Property + Property HideValueIfZero As Boolean + Get + Return _HideValueIfZero + End Get + Set(value As Boolean) + SetPropertyValue("HideValueIfZero", _HideValueIfZero, value) + End Set + End Property + _ + Property InLineCriteria As String + Get + Return _InLineCriteria + End Get + Set(value As String) + SetPropertyValue("InLineCriteria", _InLineCriteria, value) + End Set + End Property + Property InLineEdit As Boolean + Get + Return _InLineEdit + End Get + Set(value As Boolean) + SetPropertyValue("InLineEdit", _InLineEdit, value) + End Set + End Property + _ + Property PropertyEditorType As String + Get + Return _PropertyEditorType + End Get + Set(value As String) + SetPropertyValue("PropertyEditorType", _PropertyEditorType, value) + End Set + End Property + Property AllowEdit As Boolean + Get + Return _AllowEdit + End Get + Set(value As Boolean) + SetPropertyValue("AllowEdit", _AllowEdit, value) + End Set + End Property + Property AllowSort As Boolean + Get + Return _AllowSort + End Get + Set(value As Boolean) + SetPropertyValue("AllowSort", _AllowSort, value) + End Set + End Property + Property GroupInterval As DevExpress.ExpressApp.Model.GroupInterval + Get + Return _GroupInterval + End Get + Set(value As DevExpress.ExpressApp.Model.GroupInterval) + SetPropertyValue("GroupInterval", _GroupInterval, value) + End Set + End Property + Property ImmediatePostData As Boolean + Get + Return _ImmediatePostData + End Get + Set(value As Boolean) + SetPropertyValue("ImmediatePostData", _ImmediatePostData, value) + End Set + End Property + Property IsPassword As Boolean + Get + Return _IsPassword + End Get + Set(value As Boolean) + SetPropertyValue("IsPassword", _IsPassword, value) + End Set + End Property + Property LookupEditorMode As DevExpress.Persistent.Base.LookupEditorMode + Get + Return _LookupEditorMode + End Get + Set(value As DevExpress.Persistent.Base.LookupEditorMode) + SetPropertyValue("LookupEditorMode", _LookupEditorMode, value) + End Set + End Property + Property SortOrder As DevExpress.Data.ColumnSortOrder + Get + Return _SortOrder + End Get + Set(value As DevExpress.Data.ColumnSortOrder) + SetPropertyValue("SortOrder", _SortOrder, value) + End Set + End Property + _ + Property DataSourceCriteria As String + Get + Return _DataSourceCriteria + End Get + Set(value As String) + SetPropertyValue("DataSourceCriteria", _DataSourceCriteria, value) + End Set + End Property + _ + Property DataSourceProperty As String + Get + Return _DataSourceProperty + End Get + Set(value As String) + SetPropertyValue("DataSourceProperty", _DataSourceProperty, value) + End Set + End Property + _ + Property DataSourcePropertyIsNullCriteria As String + Get + Return _DataSourcePropertyIsNullCriteria + End Get + Set(value As String) + SetPropertyValue("DataSourcePropertyIsNullCriteria", _DataSourcePropertyIsNullCriteria, value) + End Set + End Property + _ + Property LookupProperty As String + Get + Return _LookupProperty + End Get + Set(value As String) + SetPropertyValue("LookupProperty", _LookupProperty, value) + End Set + End Property + _ + Property ModelMember As String + Get + Return _ModelMember + End Get + Set(value As String) + SetPropertyValue("ModelMember", _ModelMember, value) + End Set + End Property + _ + Property PropertyName As String + Get + Return _PropertyName + End Get + Set(value As String) + SetPropertyValue("PropertyName", _PropertyName, value) + End Set + End Property + Property DisplayFormat As String + Get + Return _DisplayFormat + End Get + Set(value As String) + SetPropertyValue("DisplayFormat", _DisplayFormat, value) + End Set + End Property + Property EditMask As String + Get + Return _EditMask + End Get + Set(value As String) + SetPropertyValue("EditMask", _EditMask, value) + End Set + End Property + Property GroupIndex As Long + Get + Return _GroupIndex + End Get + Set(value As Long) + SetPropertyValue("GroupIndex", _GroupIndex, value) + End Set + End Property + Property MaxLength As Long + Get + Return _MaxLength + End Get + Set(value As Long) + SetPropertyValue("MaxLength", _MaxLength, value) + End Set + End Property + Property SortIndex As Long + Get + Return _SortIndex + End Get + Set(value As Long) + SetPropertyValue("SortIndex", _SortIndex, value) + End Set + End Property + Property Width As Long + Get + Return _Width + End Get + Set(value As Long) + SetPropertyValue("Width", _Width, value) + End Set + End Property + _ + Property Caption As String + Get + Return _Caption + End Get + Set(value As String) + SetPropertyValue("Caption", _Caption, value) + End Set + End Property + Property GroupFooterSummaryType As DevExpress.Data.SummaryItemType + Get + Return _GroupFooterSummaryType + End Get + Set(value As DevExpress.Data.SummaryItemType) + SetPropertyValue("GroupFooterSummaryType", _GroupFooterSummaryType, value) + End Set + End Property + _ + Property Id As String + Get + Return _Id + End Get + Set(value As String) + SetPropertyValue("Id", _Id, value) + End Set + End Property + Property Index As Long + Get + Return _Index + End Get + Set(value As Long) + SetPropertyValue("Index", _Index, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Controllers/Interfaces/ChangeLogon.vb b/SISBusiness.Module/Controllers/Interfaces/ChangeLogon.vb new file mode 100644 index 0000000..6e5f804 --- /dev/null +++ b/SISBusiness.Module/Controllers/Interfaces/ChangeLogon.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.Security +Public Enum eSQLType + MSSQL = 0 + MySQL = 1 + PostgreSQL = 2 +End Enum +Public Interface ILogonConnection + Property DBConnection() As String + Property SQLServer As String + Property SQLType As eSQLType + Property Company As String +End Interface + _ + Public Class ChangeLogon + Inherits AuthenticationStandardLogonParameters + Implements ILogonConnection + Private _DBConnection As String + Private _SQLServer As String + Private _SQLType As eSQLType + Private _Company As String + Public Property DBConnection() As String Implements ILogonConnection.DBConnection + Get + Return _DBConnection + End Get + Set(ByVal value As String) + _DBConnection = value + End Set + End Property + Property SQLServer As String Implements ILogonConnection.SQLServer + Get + Return _SQLServer + End Get + Set(ByVal value As String) + _SQLServer = value + End Set + End Property + Property SQLType As eSQLType Implements ILogonConnection.SQLType + Get + Return _SQLType + End Get + Set(value As eSQLType) + _SQLType = value + End Set + End Property + Property Company As String Implements ILogonConnection.Company + Get + Return _Company + End Get + Set(value As String) + _Company = value + End Set + End Property +End Class + diff --git a/SISBusiness.Module/Controllers/Interfaces/ModelExtender.vb b/SISBusiness.Module/Controllers/Interfaces/ModelExtender.vb new file mode 100644 index 0000000..3f1213c --- /dev/null +++ b/SISBusiness.Module/Controllers/Interfaces/ModelExtender.vb @@ -0,0 +1,262 @@ +Imports Microsoft.VisualBasic +Imports DevExpress.Data +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Editors +Imports DevExpress.ExpressApp + +#Region "INTERFACE" + +Public Interface IModelOptionsExtender + Property RequreMinimumPriceCheck As Boolean + Property DefaultCustomersFileFolder As String + Property DefaultproductsFileFolder As String + Property NAVProgramPath As String + Property ExternalBrowserPath As String + + Property HeaderLeft As String + Property HeaderCenter As String + Property HeaderRight As String + Property FooterLeft As String + Property FooterCenter As String + Property FooterRight As String + +End Interface +Public Interface IModelListViewExtender + Property IsGroupFooterVisible() As Boolean + Property AdditionalCriteria As String + Property RequireCriteriaBeforeView As Boolean + Property RequireCriteriaBeforeViewCaption As String + Property RequireCriteriaBeforeViewCriteria As String + Property GridViewGroupFormat As String + Property IsCentralListView As Boolean + Property TreeListEnableFiltering As Boolean + Property DefaultDateYearInFilter As Boolean 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre filter szűrő + Property DefaultDateYearInFilterProperty As String 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre szűrő és melyik a dátum szűrése ! + Overloads Property IsFooterVisible As Boolean + Property Hints As String + + '// Grid nyomtatáshoz + '// {0} CustomersFrom.FullName alapértelmezettből ! + Property HeaderLeft As String + Property HeaderCenter As String + Property HeaderRight As String + Property FooterLeft As String + Property FooterCenter As String + Property FooterRight As String +End Interface +Public Interface IModelDetailViewExtender + Property Hints As String +End Interface +Public Interface IModelColumnExtender + _ + Property GroupFooterSummaryType() As SummaryItemType + _ + Property InLineEdit As Boolean + + Property InLineCriteria As String + _ + _ + Property InLineEditAutoCommit As Boolean + _ + Property HideValueIfZero As Boolean + '// ModelMember.Type -> a mező tipusára vonatkoztatva + '// ParentView.ModelClass.TypeInfo -> a ListView objektumára vonatkoztatva +End Interface +Public Enum DefaultDateYearInCriteriaEnum + CurrentYearOnly = 0 + CurrentYearAndPrevYear = 1 + NotSet = -1 +End Enum +Public Interface IModelClassAllowSort + Property DefaultListViewAllowSort() As Boolean + + Property NonPersistent As Boolean + Property IsPopup As Boolean + Property SISGroup1 As String + Property SISGroup2 As String + Property SISDescription As String + + Property LockObjectBeforeEdit As Boolean ' + Property LockObjectBeforeEditErrorString As String + + Property DefaultDateYearInFilter As Boolean 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre filter szűrő + Property DefaultDateYearInFilterProperty As String 'Az a képesség, hogy ListView esetén van-e automatikusan adott évre szűrő és melyik a dátum szűrése ! +End Interface +Public Interface IModelMemberAllowSort + Property AllowSort() As Boolean + + Property AllowRounding() As Boolean + Property RoundingTo() As Long + + Property HideValueIfZero As Boolean +End Interface +Public Interface IModelListViewAllowSort + Property AllowSort() As Boolean + + Property IsListViewProcess As Boolean + Property RowAutoHeight As Boolean + + +End Interface +Public Interface IModelColumnAllowSort + Property AllowSort() As Boolean +End Interface +Public Interface IModelActionExtender + Property SISGroup1 As String + Property SISGroup2 As String + Property SISDescription As String + Property FocusItem As String +End Interface +#End Region +#Region "DOMAIN LOGIC" + + + _ +Public NotInheritable Class ModelClassAllowSortLogic + Public Shared Function Get_DefaultListViewAllowSort(ByVal modelClass As IModelClass) As Boolean + If modelClass Is Nothing Then + Return True + End If + If modelClass.TypeInfo Is Nothing Then + Return True + End If + Dim attribute As AllowSortAttribute = modelClass.TypeInfo.FindAttribute(Of AllowSortAttribute)() + If attribute IsNot Nothing Then + Return attribute.AllowSort + Else + Return True + End If + End Function +End Class + _ +Public NotInheritable Class ModelMemberAllowSortLogic + Public Shared Function Get_AllowSort(ByVal modelMember As IModelMember) As Boolean + If modelMember Is Nothing Then + Return True + Else + If modelMember.MemberInfo Is Nothing Then + Return True + End If + Dim attribute As AllowSortAttribute = modelMember.MemberInfo.FindAttribute(Of AllowSortAttribute)() + If attribute IsNot Nothing Then + Return attribute.AllowSort + Else + Return True + End If + End If + End Function +End Class + _ +Public NotInheritable Class ModelListViewAllowSortLogic + Public Shared Function Get_AllowSort(ByVal modelListView As IModelListView) As Boolean + Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultListViewAllowSort + End Function +End Class + _ +Public NotInheritable Class ModelColumnAllowSortLogic + Public Shared Function Get_AllowSort(ByVal modelColumn As IModelColumn) As Boolean + If modelColumn.ModelMember IsNot Nothing Then + Return (CType(modelColumn.ModelMember, IModelMemberAllowSort)).AllowSort + Else + Return True + End If + End Function +End Class + _ +Public NotInheritable Class IModelColumnExtenderLogic + Public Shared Function Get_HideValueIfZero(ByVal modelColumn As IModelColumn) As Boolean + If modelColumn.ModelMember IsNot Nothing Then + Return (CType(modelColumn.ModelMember, IModelMemberAllowSort)).HideValueIfZero + Else + Return False + End If + End Function +End Class + _ +Public NotInheritable Class IModelListViewExtenderLogic + Public Shared Function Get_DefaultDateYearInFilter(ByVal modelListView As IModelListView) As Boolean + If modelListView.ModelClass IsNot Nothing Then + Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilter + Else + Return False + End If + End Function + Public Shared Function Get_DefaultDateYearInFilterProperty(ByVal modelListView As IModelListView) As String + If modelListView.ModelClass IsNot Nothing Then + Return (CType(modelListView.ModelClass, IModelClassAllowSort)).DefaultDateYearInFilterProperty + Else + Return "" + End If + End Function + Public Shared Function Get_HeaderLeft(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderLeft + Else + Return "" + End If + Else + Return "" + End If + End Function + Public Shared Function Get_HeaderCenter(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderCenter + Else + Return "" + End If + Else + Return "" + End If + End Function + Public Shared Function Get_HeaderRight(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).HeaderRight + Else + Return "" + End If + Else + Return "" + End If + End Function + Public Shared Function Get_FooterLeft(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterLeft + Else + Return "" + End If + Else + Return "" + End If + End Function + Public Shared Function Get_FooterCenter(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterCenter + Else + Return "" + End If + Else + Return "" + End If + End Function + Public Shared Function Get_FooterRight(ByVal modelListView As IModelListView) As String + If modelListView.Application IsNot Nothing Then + If modelListView.Application.Options IsNot Nothing Then + Return TryCast(modelListView.Application.Options, IModelOptionsExtender).FooterRight + Else + Return "" + End If + Else + Return "" + End If + End Function + +End Class + +#End Region diff --git a/SISBusiness.Module/Controllers/Linq/DisableActionsLinqListViewController.vb b/SISBusiness.Module/Controllers/Linq/DisableActionsLinqListViewController.vb new file mode 100644 index 0000000..426c2ef --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/DisableActionsLinqListViewController.vb @@ -0,0 +1,43 @@ +' Developer Express Code Central Example: +' How to populate a List View with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + +' Developer Express Code Central Example: +' How to populate the list view with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + + +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.SystemModule + +Namespace Dennis.Linq + Public Class DisableActionsLinqListViewController + Inherits ViewController + Private Const DefaultReason As String = "LinqListViewController is active" + Protected Overloads Overrides Sub OnActivated() + MyBase.OnActivated() + Dim flag As Boolean = Not View.Id.EndsWith(LinqCollectionSource.DefaultSuffix) + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active(DefaultReason) = flag + Frame.GetController(Of DeleteObjectsViewController)().Active(DefaultReason) = flag + Frame.GetController(Of NewObjectViewController)().Active(DefaultReason) = flag + Frame.GetController(Of FilterController)().Active(DefaultReason) = flag + End Sub + Protected Overloads Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.RemoveItem(DefaultReason) + Frame.GetController(Of DeleteObjectsViewController)().Active.RemoveItem(DefaultReason) + Frame.GetController(Of NewObjectViewController)().Active.RemoveItem(DefaultReason) + Frame.GetController(Of FilterController)().Active.RemoveItem(DefaultReason) + End Sub + End Class +End Namespace diff --git a/SISBusiness.Module/Controllers/Linq/IModelListViewLinq.vb b/SISBusiness.Module/Controllers/Linq/IModelListViewLinq.vb new file mode 100644 index 0000000..244b062 --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/IModelListViewLinq.vb @@ -0,0 +1,5 @@ +Imports DevExpress.ExpressApp.Model +Public Interface IModelListViewLinq + Inherits IModelNode + Property XPQueryMethod() As String +End Interface diff --git a/SISBusiness.Module/Controllers/Linq/LinqCollectionSource.vb b/SISBusiness.Module/Controllers/Linq/LinqCollectionSource.vb new file mode 100644 index 0000000..ee69a02 --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/LinqCollectionSource.vb @@ -0,0 +1,77 @@ +' Developer Express Code Central Example: +' How to populate a List View with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + +' Developer Express Code Central Example: +' How to populate the list view with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + + +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports DevExpress.Xpo +Imports System.Collections +Imports System.ComponentModel +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.DC +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Xpo + +Namespace Dennis.Linq + Public Class LinqCollectionSource + Inherits CollectionSourceBase + Public Const DefaultSuffix As String = "_Linq" + Private collectionCore As IBindingList + Private objectTypeInfoCore As ITypeInfo + Public Function ConvertQueryToCollection(ByVal sourceQuery As IQueryable) As IList + collectionCore = New BindingList(Of Object)() + For Each item In sourceQuery + collectionCore.Add(item) + Next item + Return collectionCore + End Function + Private queryCore As IQueryable = Nothing + Protected Sub New(ByVal objectSpace As IObjectSpace, ByVal mode As CollectionSourceMode) + MyBase.New(objectSpace, mode) + End Sub + Protected Sub New(ByVal objectSpace As IObjectSpace) + MyBase.New(objectSpace) + End Sub + Public Sub New(ByVal objectSpace As IObjectSpace, ByVal objectType As Type, ByVal query As IQueryable) + MyBase.New(objectSpace) + objectTypeInfoCore = XafTypesInfo.Instance.FindTypeInfo(objectType) + queryCore = query + End Sub + Public Property Query() As IQueryable + Get + Return queryCore + End Get + Set(ByVal value As IQueryable) + queryCore = value + End Set + End Property + Protected Overrides Function CreateCollection() As Object + CType(Query, XPQueryBase).Session = TryCast(ObjectSpace, XPObjectSpace).Session + Return ConvertQueryToCollection(Query) + End Function + Public Overrides Function IsObjectFitForCollection(ByVal obj As Object) As Boolean? + Return collectionCore.Contains(obj) + End Function + Protected Overrides Sub ApplyCriteriaCore(ByVal criteria As CriteriaOperator) + End Sub + Public Overrides ReadOnly Property ObjectTypeInfo() As ITypeInfo + Get + Return objectTypeInfoCore + End Get + End Property + End Class +End Namespace \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/Linq/LinqCollectionSourceProvider.vb b/SISBusiness.Module/Controllers/Linq/LinqCollectionSourceProvider.vb new file mode 100644 index 0000000..1c89ec2 --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/LinqCollectionSourceProvider.vb @@ -0,0 +1,109 @@ +' Developer Express Code Central Example: +' How to populate a List View with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + +' Developer Express Code Central Example: +' How to populate the list view with data from a LINQ query +' +' See the http://www.devexpress.com/scid=K18107 KB Article for more information. +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E859 + + +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports DevExpress.Xpo +Imports System.Reflection +Imports DevExpress.ExpressApp +Imports System.Collections.Generic +Imports SISBusiness.Module.Dennis.Linq + + +Public NotInheritable Class LinqCollectionSourceHelper + Private Sub New() + End Sub + Public Shared Sub CreateCustomCollectionSource(ByVal sender As Object, ByVal e As CreateCustomCollectionSourceEventArgs) + Dim listViewInfo As IModelListViewLinq = TryCast((CType(sender, XafApplication)).FindModelView(e.ListViewID), IModelListViewLinq) + If listViewInfo Is Nothing Then + Return + End If + If String.IsNullOrEmpty(listViewInfo.XPQueryMethod) Then + Return + End If + Dim query As IQueryable = LinqCollectionSourceHelper.InvokeMethod(e.ObjectType, listViewInfo.XPQueryMethod, (CType(e.ObjectSpace, Xpo.XPObjectSpace)).Session) + If query Is Nothing Then + Return + End If + e.CollectionSource = New LinqCollectionSource(e.ObjectSpace, e.ObjectType, query) + End Sub + Public Shared Function GetXPQueryMethods(ByVal type As Type) As String() + Dim names As New List(Of String)() + Dim methods() As MethodInfo = type.GetMethods(System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Static) + For Each mi As MethodInfo In methods + If IsCompatibleMethod(mi) Then + names.Add(mi.Name) + End If + Next mi + Return names.ToArray() + End Function + Public Shared Function IsCompatibleMethod(ByVal mi As MethodInfo) As Boolean + Dim pis() As ParameterInfo = mi.GetParameters() + Return mi.ReturnType IsNot Nothing AndAlso GetType(IQueryable).IsAssignableFrom(mi.ReturnType) AndAlso pis.Length = 1 AndAlso pis(0).ParameterType.IsAssignableFrom(GetType(Session)) + End Function + Public Shared Function InvokeMethod(ByVal type As Type, ByVal name As String, ByVal session As Session) As IQueryable + Dim method As MethodInfo = FindMethod(type, name) + If method Is Nothing Then + Return Nothing + End If + Return CType(method.Invoke(Nothing, New Object() {session}), IQueryable) + End Function + Private Shared Function FindMethod(ByVal type As Type, ByVal name As String) As MethodInfo + Dim methods() As MethodInfo = type.GetMethods(System.Reflection.BindingFlags.Public Or System.Reflection.BindingFlags.Static) + For Each mi As MethodInfo In methods + If mi.Name = name AndAlso IsCompatibleMethod(mi) Then + Return mi + End If + Next mi + Return Nothing + End Function + Public Shared Function GetDisplayableProperties(ByVal type As Type, ByVal name As String) As String() + Dim method As MethodInfo = FindMethod(type, name) + If method Is Nothing Then + Return Nothing + End If + For Each attribute As CustomQueryPropertiesAttribute In method.GetCustomAttributes(GetType(CustomQueryPropertiesAttribute), False) + If attribute.Name = "DisplayableProperties" Then + Return attribute.Value.Split(";"c) + End If + Next attribute + Return Nothing + End Function +End Class + _ +Public NotInheritable Class CustomQueryPropertiesAttribute + Inherits Attribute + Private theName As String + Private theValue As String + Public ReadOnly Property Name() As String + Get + Return theName + End Get + End Property + Public ReadOnly Property Value() As String + Get + Return theValue + End Get + End Property + Public Sub New(ByVal theName As String, ByVal theValue As String) + Me.theName = theName + Me.theValue = theValue + End Sub +End Class + + diff --git a/SISBusiness.Module/Controllers/Linq/ModelListViewLinqColumnsNodesGeneratorUpdater.vb b/SISBusiness.Module/Controllers/Linq/ModelListViewLinqColumnsNodesGeneratorUpdater.vb new file mode 100644 index 0000000..70a51bb --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/ModelListViewLinqColumnsNodesGeneratorUpdater.vb @@ -0,0 +1,34 @@ +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model.NodeGenerators + +Public Class ModelListViewLinqColumnsNodesGeneratorUpdater + Inherits ModelNodesGeneratorUpdater(Of ModelListViewColumnsNodesGenerator) + Public Overrides Sub UpdateNode(ByVal node As ModelNode) + Dim linqViewInfo As IModelListViewLinq = TryCast(node.Parent, IModelListViewLinq) + If linqViewInfo IsNot Nothing AndAlso (Not String.IsNullOrEmpty(linqViewInfo.XPQueryMethod)) Then + Dim listViewInfo As IModelListView = CType(linqViewInfo, IModelListView) + Dim columns() As String = LinqCollectionSourceHelper.GetDisplayableProperties(listViewInfo.ModelClass.TypeInfo.Type, linqViewInfo.XPQueryMethod) + If columns IsNot Nothing Then + If listViewInfo.Columns Is Nothing Then + listViewInfo.AddNode(Of IModelColumns)("Columns") + End If + Dim i As Integer = listViewInfo.Columns.Count + Do While i > 0 + i -= 1 + Dim col As IModelColumn = listViewInfo.Columns.Item(i) + If Array.IndexOf(columns, col.Id) < 0 Then + 'listViewInfo.Columns.Remove(col) + End If + Loop + For Each column As String In columns + Dim col As IModelColumn = listViewInfo.Columns.GetNode(column) + If col Is Nothing Then + col = listViewInfo.Columns.AddNode(Of IModelColumn)(column) + col.PropertyName = column + End If + Next column + End If + End If + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/Linq/ModelListViewLinqNodesGeneratorUpdater.vb b/SISBusiness.Module/Controllers/Linq/ModelListViewLinqNodesGeneratorUpdater.vb new file mode 100644 index 0000000..ba68980 --- /dev/null +++ b/SISBusiness.Module/Controllers/Linq/ModelListViewLinqNodesGeneratorUpdater.vb @@ -0,0 +1,27 @@ +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model.NodeGenerators +Imports SISBusiness.Module.Dennis.Linq + +Public Class ModelListViewLinqNodesGeneratorUpdater + Inherits ModelNodesGeneratorUpdater(Of ModelViewsNodesGenerator) + Public Overrides Sub UpdateNode(ByVal node As ModelNode) + For Each classInfo As IModelClass In node.Application.BOModel + If classInfo.TypeInfo.IsPersistent Then + If (Not String.IsNullOrEmpty(classInfo.Name)) Then + For Each method As String In LinqCollectionSourceHelper.GetXPQueryMethods(classInfo.TypeInfo.Type) + Dim id As String = String.Format("{0}_{1}{2}", ModelListViewNodesGenerator.GetListViewId(classInfo.TypeInfo.Type), method, LinqCollectionSource.DefaultSuffix) + Dim listViewInfo As IModelListView = node.Application.Views.GetNode(id) + If listViewInfo Is Nothing Then + listViewInfo = node.AddNode(Of IModelListView)(id) + End If + listViewInfo.ModelClass = classInfo + If TryCast(listViewInfo, IModelListViewLinq) IsNot Nothing Then + CType(listViewInfo, IModelListViewLinq).XPQueryMethod = method + End If + Next method + End If + End If + Next classInfo + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/ListViewProcess.Designer.vb b/SISBusiness.Module/Controllers/ListViewProcess.Designer.vb new file mode 100644 index 0000000..009fba0 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListViewProcess.Designer.vb @@ -0,0 +1,32 @@ +Partial Class ListViewProcess + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/ListViewProcess.vb b/SISBusiness.Module/Controllers/ListViewProcess.vb new file mode 100644 index 0000000..e3de030 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListViewProcess.vb @@ -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.SystemModule + +Public Class ListViewProcess + 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 ListViewProcessCurrentObjectController).Active.SetItemValue("", False) + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If CType(View.Model, IModelListViewAllowSort).IsListViewProcess Then + Else + Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True) + End If + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.Designer.vb b/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.Designer.vb new file mode 100644 index 0000000..41fd114 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.Designer.vb @@ -0,0 +1,32 @@ +Partial Class HRPerson_LookupListView + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.vb b/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.vb new file mode 100644 index 0000000..8725c30 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/HRPerson_LookupListView.vb @@ -0,0 +1,34 @@ +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 HRPerson_LookupListView + Inherits DevExpress.ExpressApp.ViewController + + Public Sub New() + MyBase.New() + InitializeComponent() + RegisterActions(components) + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + If View.Id = "HRPerson_LookupListView" Then + Dim _HRPerson_LookupListView As ListView = TryCast(View, ListView) + + Dim _HRPerson_LookupListView_CollectionSourece As CollectionSource = _HRPerson_LookupListView.CollectionSource + + _HRPerson_LookupListView_CollectionSourece.BeginUpdateCriteria() + _HRPerson_LookupListView_CollectionSourece.Criteria.Clear() + _HRPerson_LookupListView_CollectionSourece.Criteria.Add("ActiveHRPerson", DevExpress.Data.Filtering.CriteriaOperator.Parse("User.IsActive=True")) + _HRPerson_LookupListView_CollectionSourece.EndUpdateCriteria() + + End If + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainer.vb b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainer.vb new file mode 100644 index 0000000..74ecb76 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainer.vb @@ -0,0 +1,93 @@ +' Developer Express Code Central Example: +' How to show filter dialog before showing ListView +' +' When the ListView contains a large amount of data, it is useful to provide a +' capability for the end-user to set a filter for this View before loading it. To +' accomplish this task, I've performed the following actions in this example: +' 1. +' Extended the Application Model with the AdditionalCriteria attribute for the +' ListView node via the WinSampleModule.GetSchema overridden method. This +' attribute should store the filter, selected by the user. +' 2. Implemented the +' ViewFilterContainer class, whose DetailView is used as a filter dialog. +' 3. +' Implemented the ViewFilterObject class, which is used to store filters. +' 4. +' Implemented a ShowFilterDialogController, which shows the DetailView of the +' ViewFilterContainer object before showing ListView, and then shows the filtered +' ListView. +' 5. Implemented the ViewFilterContainerModificationsController, which +' sets the ObjectType property of the ViewFilterObject class, created by the +' lookup's New action. +' +' See Also: +' How to: Use Criteria Property Editors +' (ms-help://DevExpress.Xaf/CustomDocument3014.htm) +' How to: Extend the +' Application Model and Schema +' (ms-help://DevExpress.Xaf/CustomDocument2785.htm) +' ShowNavigationItemController +' Class +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleShowNavigationItemControllertopic.htm) +' Dialog +' Controller +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleDialogControllertopic.htm) +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1554 + +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports System.ComponentModel +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering + + + _ +Public Class ViewFilterContainer + Inherits BaseObject + Private _Criteria As String + Private _ObjectType As Type + Private _ViewID As String + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + _ + Public Property Criteria() As String + Get + Return _Criteria + End Get + Set(ByVal value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + _ + Public Property ObjectType() As Type + Get + Return _ObjectType + End Get + Set(ByVal value As Type) + SetPropertyValue("ObjectType", _ObjectType, value) + End Set + End Property + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + End Set + End Property + + ReadOnly Property ViewFilterContainerSaved As XPCollection(Of ViewFilterContainerSaved) + Get + Return New XPCollection(Of ViewFilterContainerSaved)(Session, CriteriaOperator.Parse("ViewID=?", Me.ViewID)) + End Get + End Property +End Class + diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerSaved.vb b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerSaved.vb new file mode 100644 index 0000000..811a019 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerSaved.vb @@ -0,0 +1,97 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ViewFilterContainerSaved + Inherits BaseObject + Private _ViewID As String + Private _ShortName As String + Private _Criteria As String + Private _IsPublic As Boolean = True + Private _ObjectCreated As DateTime + Private _UserCreated As User + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + Protected Overrides Sub OnSaving() + MyBase.OnSaving() + + If Session.IsNewObject(Me) Then + ObjectCreated = GetSQLTime(Session) + UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser)) + End If + End Sub + _ + Property ViewID As String + Get + Return _ViewID + End Get + Set(value As String) + SetPropertyValue("ViewID", _ViewID, value) + End Set + End Property + _ + _ + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + _ + Property Criteria As String + Get + Return _Criteria + End Get + Set(value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + Property IsPublic As Boolean + Get + Return _IsPublic + End Get + Set(value As Boolean) + SetPropertyValue("IsPublic", _IsPublic, value) + End Set + End Property + _ + Property ObjectCreated As Date + Get + Return _ObjectCreated + End Get + Set(value As Date) + SetPropertyValue("ObjectCreated", _ObjectCreated, value) + End Set + End Property + _ + Property UserCreated As User + Get + Return _UserCreated + End Get + Set(value As User) + SetPropertyValue("UserCreated", _UserCreated, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb new file mode 100644 index 0000000..f2dad1e --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.Designer.vb @@ -0,0 +1,112 @@ +Partial Class ViewFilterContainerVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aResetRequireCriteriaBeforeView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aFindRecords = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aLoadCriteria = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aSaveCriteria = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aDeleteCriteria = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aInitCriteria = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aResetRequireCriteriaBeforeView + ' + Me.aResetRequireCriteriaBeforeView.Caption = "aReset Require Criteria Before View" + Me.aResetRequireCriteriaBeforeView.Category = "aResetRequireCriteriaBeforeView" + Me.aResetRequireCriteriaBeforeView.ConfirmationMessage = Nothing + Me.aResetRequireCriteriaBeforeView.Id = "aResetRequireCriteriaBeforeView" + Me.aResetRequireCriteriaBeforeView.TargetObjectType = GetType(SISBusiness.[Module].ViewFilterContainer) + Me.aResetRequireCriteriaBeforeView.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aResetRequireCriteriaBeforeView.ToolTip = Nothing + Me.aResetRequireCriteriaBeforeView.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aFindRecords + ' + Me.aFindRecords.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept + Me.aFindRecords.Caption = "aFind Records" + Me.aFindRecords.Category = "aFindRecords" + Me.aFindRecords.ConfirmationMessage = Nothing + Me.aFindRecords.Id = "aFindRecords" + Me.aFindRecords.TargetObjectType = GetType(SISBusiness.[Module].ViewFilterContainer) + Me.aFindRecords.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aFindRecords.ToolTip = Nothing + Me.aFindRecords.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aLoadCriteria + ' + Me.aLoadCriteria.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept + Me.aLoadCriteria.Caption = "aLoad Criteria" + Me.aLoadCriteria.Category = "aLoadCriteria" + Me.aLoadCriteria.ConfirmationMessage = Nothing + Me.aLoadCriteria.Id = "aLoadCriteria" + Me.aLoadCriteria.TargetObjectType = GetType(SISBusiness.[Module].ViewFilterContainer) + Me.aLoadCriteria.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aLoadCriteria.ToolTip = Nothing + Me.aLoadCriteria.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aSaveCriteria + ' + Me.aSaveCriteria.AcceptButtonCaption = Nothing + Me.aSaveCriteria.CancelButtonCaption = Nothing + Me.aSaveCriteria.Caption = "aSave Criteria" + Me.aSaveCriteria.Category = "aSaveCriteria" + Me.aSaveCriteria.ConfirmationMessage = Nothing + Me.aSaveCriteria.Id = "aSaveCriteria" + Me.aSaveCriteria.TargetObjectType = GetType(SISBusiness.[Module].ViewFilterContainer) + Me.aSaveCriteria.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView + Me.aSaveCriteria.ToolTip = Nothing + Me.aSaveCriteria.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) + ' + 'aDeleteCriteria + ' + Me.aDeleteCriteria.Caption = "aDelete Criteria" + Me.aDeleteCriteria.Category = "ObjectsCreation" + Me.aDeleteCriteria.ConfirmationMessage = Nothing + Me.aDeleteCriteria.Id = "aDeleteCriteria" + Me.aDeleteCriteria.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aDeleteCriteria.TargetObjectType = GetType(SISBusiness.[Module].ViewFilterContainerSaved) + Me.aDeleteCriteria.ToolTip = Nothing + ' + 'aInitCriteria + ' + Me.aInitCriteria.Caption = "aInit Criteria" + Me.aInitCriteria.ConfirmationMessage = Nothing + Me.aInitCriteria.Id = "aInitCriteria" + Me.aInitCriteria.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aInitCriteria.ToolTip = Nothing + Me.aInitCriteria.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Friend WithEvents aResetRequireCriteriaBeforeView As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aFindRecords As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aLoadCriteria As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aSaveCriteria As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aDeleteCriteria As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aInitCriteria As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.resx b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.resx new file mode 100644 index 0000000..0d2e4a4 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 56 + + + 17, 134 + + + 17, 212 + + + 17, 95 + + + 17, 173 + + + 141, 173 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb new file mode 100644 index 0000000..5d9e981 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterContainerVC.vb @@ -0,0 +1,182 @@ +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.ExpressApp.Editors +Imports DevExpress.ExpressApp.Model + +Public Class ViewFilterContainerVC + Inherits DevExpress.ExpressApp.ViewController + Private dialogCotnroller As DialogController + Private oldListView As View + 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 = "ViewFilterContainer_DetailView" Then + If Frame.GetController(Of DialogController)() IsNot Nothing Then + Frame.GetController(Of DialogController).AcceptAction.Active.SetItemValue("", False) + Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", False) + End If + If Frame.GetController(Of RefreshController)() IsNot Nothing Then + Frame.GetController(Of RefreshController).Active.SetItemValue("", False) + End If + Frame.GetController(Of ModificationsController).Active.SetItemValue("", False) + 'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", False) + + End If + + Frame.GetController(Of ViewFilterContainerVC).aInitCriteria.Active.SetItemValue("", False) + If TryCast(View, ListView) IsNot Nothing Then + Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + If _IModelListViewExtender IsNot Nothing Then + If _IModelListViewExtender.RequireCriteriaBeforeView Then + _IModelListViewExtender.DefaultDateYearInFilter = False + TryCast(View.Model, IModelListView).DataAccessMode = CollectionSourceDataAccessMode.Client + View.SaveModel() + Frame.GetController(Of ViewFilterContainerVC).aInitCriteria.Active.SetItemValue("", True) + + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If View.Id = "ViewFilterContainer_DetailView" Then + If Frame.GetController(Of DialogController)() IsNot Nothing Then + Frame.GetController(Of DialogController).AcceptAction.Active.SetItemValue("", True) + Frame.GetController(Of DialogController).CancelAction.Active.SetItemValue("", True) + End If + If Frame.GetController(Of RefreshController)() IsNot Nothing Then + Frame.GetController(Of RefreshController).Active.SetItemValue("", True) + End If + Frame.GetController(Of ModificationsController).Active.SetItemValue("", True) + 'Frame.GetController(Of RecordsNavigationController).Active.SetItemValue("", True) + End If + End Sub + Private Sub aResetRequireCriteriaBeforeView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetRequireCriteriaBeforeView.Execute + Dim _ViewFilterContainer As ViewFilterContainer = TryCast(View.SelectedObjects(0), ViewFilterContainer) + Dim _IModelListViewExtender As IModelListViewExtender = TryCast(View.Model, IModelListViewExtender) + + For Each _View In Application.Model.Views + If _View.Id = _ViewFilterContainer.ViewID Then + + If TryCast(_View, IModelListViewExtender) IsNot Nothing Then + _ViewFilterContainer.Criteria = TryCast(_View, IModelListViewExtender).RequireCriteriaBeforeViewCriteria + End If + Exit For + End If + Next + End Sub + + Private Sub aFindRecords_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFindRecords.Execute + If Frame.GetController(Of DialogController)() IsNot Nothing Then + Frame.GetController(Of DialogController).AcceptAction.Active.SetItemValue("", True) + Frame.GetController(Of DialogController).AcceptAction.DoExecute() + Else + AcceptAction_Execute(sender, e) + End If + End Sub + + Private Sub aSaveCriteria_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aSaveCriteria.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _ViewFilterContainerSaved As ViewFilterContainerSaved = _onew.CreateObject(Of ViewFilterContainerSaved)() + e.View = Application.CreateDetailView(_onew, "ViewFilterContainerSaved_DetailView", False, _ViewFilterContainerSaved) + + End Sub + + Private Sub aSaveCriteria_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aSaveCriteria.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ViewFilterContainer As ViewFilterContainer = TryCast(View.SelectedObjects(0), ViewFilterContainer) + Dim _ViewFilterContainerSaved_Popup As ViewFilterContainerSaved = TryCast(e.PopupWindow.View.SelectedObjects(0), ViewFilterContainerSaved) + + Dim _ViewFilterContainerSaved As ViewFilterContainerSaved = _ocur.CreateObject(Of ViewFilterContainerSaved)() + _ViewFilterContainerSaved.ViewID = _ViewFilterContainer.ViewID + _ViewFilterContainerSaved.ShortName = _ViewFilterContainerSaved_Popup.ShortName + _ViewFilterContainerSaved.IsPublic = _ViewFilterContainerSaved_Popup.IsPublic + _ViewFilterContainerSaved.Criteria = _ViewFilterContainer.Criteria + + _ocur.CommitChanges() + View.Refresh() + + + + End Sub + + Private Sub aLoadCriteria_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aLoadCriteria.Execute + Dim _ViewFilterContainer As ViewFilterContainer = TryCast(View.SelectedObjects(0), ViewFilterContainer) + Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ViewFilterContainerSaved") + + If _ListView.ListView.SelectedObjects.Count > 0 Then + _ViewFilterContainer.Criteria = TryCast(_ListView.ListView.SelectedObjects(0), ViewFilterContainerSaved).Criteria + End If + + End Sub + + Private Sub aDeleteCriteria_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDeleteCriteria.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _ViewFilterContainerSaved As ViewFilterContainerSaved = TryCast(View.SelectedObjects(0), ViewFilterContainerSaved) + + For Each _ViewFilterContainerSaved In View.SelectedObjects + _ocur.Delete(_ViewFilterContainerSaved) + Next + _ocur.CommitChanges() + + End Sub + + Private Sub aInitCriteria_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aInitCriteria.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + oldListView = View + Dim newViewFilterContainer As ViewFilterContainer = _onew.CreateObject(Of ViewFilterContainer)() + Dim showViewParameters As ShowViewParameters = e.ShowViewParameters + newViewFilterContainer.ObjectType = oldListView.ObjectTypeInfo.Type + newViewFilterContainer.ViewID = oldListView.Id + newViewFilterContainer.Criteria = CType(oldListView.Model, IModelListViewExtender).AdditionalCriteria + showViewParameters.CreatedView = Application.CreateDetailView(_onew, newViewFilterContainer) + showViewParameters.CreatedView.Caption = String.Format((CType(oldListView.Model, IModelListViewExtender)).RequireCriteriaBeforeViewCaption, oldListView.Caption) + showViewParameters.TargetWindow = TargetWindow.Current + + dialogCotnroller = Application.CreateController(Of DialogController)() + AddHandler dialogCotnroller.AcceptAction.Execute, AddressOf AcceptAction_Execute + showViewParameters.Controllers.Add(dialogCotnroller) + End Sub + + Private Sub AcceptAction_Execute(sender As Object, e As SimpleActionExecuteEventArgs) + Try + Dim currentViewFilterContainer As ViewFilterContainer = CType(e.CurrentObject, ViewFilterContainer) + Dim _CollectionSource As CollectionSource + Dim _IModelListView As IModelListView + Dim _ModelClass As IModelClass + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + _IModelListView = TryCast(oldListView.Model, IModelListView) + _ModelClass = TryCast(_IModelListView.ModelClass, IModelClass) + + _CollectionSource = New CollectionSource(_onew, _ModelClass.TypeInfo.Type) + + _CollectionSource.BeginUpdateCriteria() + _CollectionSource.Criteria("ByViewFilterObject") = CriteriaEditorHelper.GetCriteriaOperator(currentViewFilterContainer.Criteria, currentViewFilterContainer.ObjectType, _onew) + _CollectionSource.EndUpdateCriteria() + + CType(oldListView.Model, IModelListViewExtender).AdditionalCriteria = currentViewFilterContainer.Criteria + + + e.ShowViewParameters.CreatedView = Application.CreateListView(oldListView.Id, _CollectionSource, False) + e.ShowViewParameters.TargetWindow = TargetWindow.Current + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba") + End Try + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterObject.vb b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterObject.vb new file mode 100644 index 0000000..741ff80 --- /dev/null +++ b/SISBusiness.Module/Controllers/ListviewFilter/ViewFilterObject.vb @@ -0,0 +1,111 @@ +' Developer Express Code Central Example: +' How to show filter dialog before showing ListView +' +' When the ListView contains a large amount of data, it is useful to provide a +' capability for the end-user to set a filter for this View before loading it. To +' accomplish this task, I've performed the following actions in this example: +' 1. +' Extended the Application Model with the AdditionalCriteria attribute for the +' ListView node via the WinSampleModule.GetSchema overridden method. This +' attribute should store the filter, selected by the user. +' 2. Implemented the +' ViewFilterContainer class, whose DetailView is used as a filter dialog. +' 3. +' Implemented the ViewFilterObject class, which is used to store filters. +' 4. +' Implemented a ShowFilterDialogController, which shows the DetailView of the +' ViewFilterContainer object before showing ListView, and then shows the filtered +' ListView. +' 5. Implemented the ViewFilterContainerModificationsController, which +' sets the ObjectType property of the ViewFilterObject class, created by the +' lookup's New action. +' +' See Also: +' How to: Use Criteria Property Editors +' (ms-help://DevExpress.Xaf/CustomDocument3014.htm) +' How to: Extend the +' Application Model and Schema +' (ms-help://DevExpress.Xaf/CustomDocument2785.htm) +' ShowNavigationItemController +' Class +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleShowNavigationItemControllertopic.htm) +' Dialog +' Controller +' (ms-help://DevExpress.Xaf/clsDevExpressExpressAppSystemModuleDialogControllertopic.htm) +' +' You can find sample updates and versions for different programming languages here: +' http://www.devexpress.com/example=E1554 + +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Editors +Imports System.ComponentModel +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.Data.Filtering + + _ + Public Class ViewFilterObject + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Private _ObjectTypeName As String + _ + Public Property ObjectTypeName() As String + Get + Return _ObjectTypeName + End Get + Set(ByVal value As String) + SetPropertyValue(Of String)("ObjectTypeName", _ObjectTypeName, value) + End Set + End Property + _ + Public Property ObjectType() As Type + Get + If ObjectTypeName IsNot Nothing Then + Return XafTypesInfo.Instance.FindTypeInfo(ObjectTypeName).Type + Else + Return Nothing + End If + End Get + Set(ByVal value As Type) + Dim stringValue As String + If value Is Nothing Then + stringValue = Nothing + Else + stringValue = value.FullName + End If + Dim savedObjectTypeName As String = ObjectTypeName + Try + If stringValue <> ObjectTypeName Then + ObjectTypeName = stringValue + End If + Catch e1 As Exception + ObjectTypeName = savedObjectTypeName + End Try + Criteria = String.Empty + End Set + End Property + Private _Criteria As String + _ + Public Property Criteria() As String + Get + Return _Criteria + End Get + Set(ByVal value As String) + SetPropertyValue("Criteria", _Criteria, value) + End Set + End Property + Private _FilterName As String + Public Property FilterName() As String + Get + Return _FilterName + End Get + Set(ByVal value As String) + SetPropertyValue("FilterName", _FilterName, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.Designer.vb b/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.Designer.vb new file mode 100644 index 0000000..5bb93dd --- /dev/null +++ b/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class LockObjectBeforeeditVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.vb b/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.vb new file mode 100644 index 0000000..4f0e85c --- /dev/null +++ b/SISBusiness.Module/Controllers/LockObjectBeforeEditVC.vb @@ -0,0 +1,90 @@ +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 + +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Xpo +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering + +Public Class LockObjectBeforeeditVC + 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 TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _IModelClass As IModelClass + + _IModelClass = _ListView.Model.ModelClass + If TryCast(_IModelClass, IModelClassAllowSort).LockObjectBeforeEdit = True Then + AddHandler Frame.GetController(Of ListViewProcessCurrentObjectController).CustomProcessSelectedItem, AddressOf ListView_CustomProcessSelectedItem + + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + If TryCast(View, DetailView) IsNot Nothing Then + '// DetailView utn a lock felszabadtsa ! + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _IModelClass As IModelClass = TryCast(View, DetailView).Model.ModelClass + If TryCast(_IModelClass, IModelClassAllowSort).LockObjectBeforeEdit = True Then + If View.SelectedObjects.Count > 0 Then + Dim _ActBusinessObject As Object = TryCast(View.SelectedObjects(0), Object) + LockingModule.UnLockObject(_uow_lock, _IModelClass.TypeInfo.Type, _ActBusinessObject.Oid.ToString, _User) + End If + End If + End If + If TryCast(View, ListView) IsNot Nothing Then + Dim _ListView As ListView = TryCast(View, ListView) + Dim _IModelClass As IModelClass + + _IModelClass = _ListView.Model.ModelClass + If TryCast(_IModelClass, IModelClassAllowSort).LockObjectBeforeEdit = True Then + RemoveHandler Frame.GetController(Of ListViewProcessCurrentObjectController).CustomProcessSelectedItem, AddressOf ListView_CustomProcessSelectedItem + End If + End If + End Sub + + Private Sub ListView_CustomProcessSelectedItem(sender As Object, e As CustomProcessListViewSelectedItemEventArgs) + '// Objektum lockolsa, ha nem megy akkor e.handled=True ! + Try + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User)) + Dim _IModelClass As IModelClass = TryCast(View, ListView).Model.ModelClass + Dim _ActBusinessObject As Object = TryCast(View.SelectedObjects(0), Object) + + If Not LockingModule.LockObject(_uow_lock, _IModelClass.TypeInfo.Type, _ActBusinessObject.Oid.ToString, _User) Then + e.Handled = True + Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("ObjectKey=?", _ActBusinessObject.Oid.ToString)) + If _LockingObject IsNot Nothing Then + MsgBox(String.Format(TryCast(_IModelClass, IModelClassAllowSort).LockObjectBeforeEditErrorString, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!") + Else + + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Hiba!") + End Try + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/LongOperationController.Designer.vb b/SISBusiness.Module/Controllers/LongOperationController.Designer.vb new file mode 100644 index 0000000..34b2370 --- /dev/null +++ b/SISBusiness.Module/Controllers/LongOperationController.Designer.vb @@ -0,0 +1,32 @@ +Partial MustInherit Class LongOperationController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/LongOperationController.vb b/SISBusiness.Module/Controllers/LongOperationController.vb new file mode 100644 index 0000000..94bbfa4 --- /dev/null +++ b/SISBusiness.Module/Controllers/LongOperationController.vb @@ -0,0 +1,103 @@ +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.Demos +Public Class LongOperationController + Inherits DevExpress.ExpressApp.ViewController + Private progressControl As IProgressControl + Private waitLongOperationCompleted As AsyncOperation + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + MustOverride Sub DoWorkCore(longOperation As LongOperation) + MustOverride Function CreateProgressControl() As IProgressControl + Private Sub DoWork(longOperation As LongOperation) + Try + DoWorkCore(longOperation) + Catch ex As Exception + longOperation.TerminateAsync() + End Try + End Sub + Private Sub WorkCompleted(state As Object) + OnOperationCompleted() + End Sub + Private Sub LongOperation_CancellingTimeoutExpired(sender As Object, e As EventArgs) + TryCast(sender, LongOperation).TerminateAsync() + End Sub + Private Sub LongOperation_Completed(sender As Object, e As LongOperationCompletedEventArgs) + progressControl.Dispose() + progressControl = Nothing + AddHandler TryCast(sender, LongOperation).CancellingTimeoutExpired, AddressOf LongOperation_CancellingTimeoutExpired + AddHandler TryCast(sender, LongOperation).Completed, AddressOf LongOperation_Completed + waitLongOperationCompleted.PostOperationCompleted(AddressOf WorkCompleted, Nothing) + waitLongOperationCompleted = Nothing + End Sub + Protected Sub OnOperationStarted() + RaiseEvent OperationStarted(Me, Nothing) + End Sub + Protected Sub OnOperationCompleted() + View.ObjectSpace.Refresh() + RaiseEvent OperationCompleted(Me, Nothing) + End Sub + Protected Sub StartLongOperation() + waitLongOperationCompleted = AsyncOperationManager.CreateOperation(Nothing) + Dim _longOperation As LongOperation = New LongOperation(AddressOf DoWork) + _longOperation.CancellingTimeoutMilliSeconds = 10000 + AddHandler _longOperation.CancellingTimeoutExpired, AddressOf LongOperation_CancellingTimeoutExpired + AddHandler _longOperation.Completed, AddressOf LongOperation_Completed + + progressControl = CreateProgressControl() + progressControl.ShowProgress(_longOperation) + _longOperation.StartAsync() + OnOperationStarted() + End Sub + Public Event OperationCompleted As EventHandler + Public Event OperationStarted As EventHandler +End Class +Public Class LongOperationTerminateException + Inherits Exception +End Class + _ +Public Class BatchCreationOptionsAttribute + Inherits Attribute + Private _objectsCount As Long + Private _commitInterval As Long + Sub New() + MyBase.New() + End Sub + Public Sub BatchCreationOptionsAttribute(objectsCount As Long) + _objectsCount = objectsCount + End Sub + Public Sub BatchCreationOptionsAttribute(objectsCount As Long, commitInterval As Integer) + _objectsCount = objectsCount + _commitInterval = commitInterval + End Sub + ReadOnly Property ObjectsCount As Long + Get + Return _objectsCount + End Get + End Property + ReadOnly Property CommitInterval As Long + Get + Return _commitInterval + End Get + End Property +End Class +Public Interface IObjectPropertiesInitializer + Sub InitializeObject(index As Integer) +End Interface +Public Interface IProgressControl + Inherits IDisposable + Sub ShowProgress(longOperation As LongOperation) +End Interface \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/MasterDetailView/IMasterDetailViewInfo.vb b/SISBusiness.Module/Controllers/MasterDetailView/IMasterDetailViewInfo.vb new file mode 100644 index 0000000..98e7511 --- /dev/null +++ b/SISBusiness.Module/Controllers/MasterDetailView/IMasterDetailViewInfo.vb @@ -0,0 +1,10 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Text + +Public Interface IMasterDetailViewInfo + ReadOnly Property MasterDetailViewId() As String + Sub AssignMasterDetailViewId(ByVal id As String) +End Interface + diff --git a/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.Designer.vb b/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.Designer.vb new file mode 100644 index 0000000..167e0df --- /dev/null +++ b/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.Designer.vb @@ -0,0 +1,32 @@ +Partial Class MasterModificationsControllerBase + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.vb b/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.vb new file mode 100644 index 0000000..98c365e --- /dev/null +++ b/SISBusiness.Module/Controllers/MasterDetailView/MasterDetailViewControllerBase.vb @@ -0,0 +1,26 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp.Editors + + +Public Class MasterModificationsControllerBase + Inherits ViewController + Public Sub New() + TargetViewType = ViewType.DetailView + TargetViewNesting = Nesting.Root + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + + 'For Each lpe As ListPropertyEditor In (CType(View, DetailView)).GetItems(Of ListPropertyEditor)() + ' For Each c As Controller In lpe.Frame.Controllers + ' If TypeOf c Is IMasterDetailViewInfo Then + ' CType(c, IMasterDetailViewInfo).AssignMasterDetailViewId(View.Id) + ' End If + ' Next c + 'Next lpe + End Sub +End Class + diff --git a/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.Designer.vb b/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.Designer.vb new file mode 100644 index 0000000..4ebd4ff --- /dev/null +++ b/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.Designer.vb @@ -0,0 +1,32 @@ +Partial Class NestedListViewControllerBase + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.vb b/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.vb new file mode 100644 index 0000000..2ebafef --- /dev/null +++ b/SISBusiness.Module/Controllers/MasterDetailView/NestedListViewControllerBase.vb @@ -0,0 +1,29 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Reflection +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Actions + + +Public MustInherit Class NestedListViewControllerBase + Inherits ViewController + Implements IMasterDetailViewInfo + Public Sub New() + TargetViewNesting = Nesting.Nested + TargetViewType = ViewType.ListView + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + End Sub + Private masterDetailViewIdCore As String = String.Empty +#Region "IMasterDetailViewInfo Members" + Public ReadOnly Property MasterDetailViewId() As String Implements IMasterDetailViewInfo.MasterDetailViewId + Get + Return masterDetailViewIdCore + End Get + End Property + Public Sub AssignMasterDetailViewId(ByVal id As String) Implements IMasterDetailViewInfo.AssignMasterDetailViewId + masterDetailViewIdCore = id + End Sub +#End Region +End Class diff --git a/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.Designer.vb b/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.Designer.vb new file mode 100644 index 0000000..e1609cc --- /dev/null +++ b/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.Designer.vb @@ -0,0 +1,31 @@ +Partial Class NavigationItemPermission + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.vb b/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.vb new file mode 100644 index 0000000..fdbe11e --- /dev/null +++ b/SISBusiness.Module/Controllers/Navigation/NavigationItemPermission.vb @@ -0,0 +1,126 @@ +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.Xpo +Imports DevExpress.Data.Filtering + + +Public Class NavigationItemPermission + Inherits DevExpress.ExpressApp.WindowController + Private _navigationController As ShowNavigationItemController + Private _ID As Long = 1 + Public Sub New() + MyBase.New() + + 'This call is required by the Component Designer. + InitializeComponent() + RegisterActions(components) + + End Sub + Protected Overrides Sub OnFrameAssigned() + + MyBase.OnFrameAssigned() + '_navigationController = Frame.GetController(Of ShowNavigationItemController)() + 'If _navigationController IsNot Nothing Then + ' AddHandler _navigationController.ItemsInitialized, AddressOf ItemsInitialized + 'End If + End Sub + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + End Sub + + Private Sub ItemsInitialized(sender As Object, e As EventArgs) + Dim _ChoiceActionItem As ChoiceActionItem + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _NavigationItemRole_Collection As XPCollection(Of NavigationItemRole) = New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("1=1")) + + + _uow.Delete(New XPCollection(Of ModelNavigation)(_uow)) + _uow.CommitChanges() + + For Each _ChoiceActionItem In _navigationController.ShowNavigationItemAction.Items + + RecursiveSetPermission(_ChoiceActionItem, _NavigationItemRole_Collection) + If SecuritySystem.CurrentUserName = "SysAdmin" Then + RecursiveAddModelNavigation(_uow, Nothing, _ChoiceActionItem) + End If + Next + _uow.CommitChanges() + + End Sub + + Sub RecursiveSetPermission(_ChoiceActionItem As ChoiceActionItem, _NavigationItemRole_Collection As XPCollection(Of NavigationItemRole)) + Dim _NavigationItemRole As NavigationItemRole + Dim _ChoiceActionItem_Child As ChoiceActionItem + + If _ChoiceActionItem.Items.Count > 0 Then + For Each _ChoiceActionItem_Child In _ChoiceActionItem.Items + RecursiveSetPermission(_ChoiceActionItem_Child, _NavigationItemRole_Collection) + Next + End If + If _ChoiceActionItem.Id = "@NavigationItemPermission" Then + If SecuritySystem.CurrentUserName <> "SysAdmin" Then + _ChoiceActionItem.Active.SetItemValue("", False) + End If + End If + For Each _NavigationItemRole In _NavigationItemRole_Collection + If _NavigationItemRole.ChoiceActionItemId = _ChoiceActionItem.Id Then + If _NavigationItemRole.Role IsNot Nothing Then + If SecuritySystemHelper.IsUserInRoleCurrentUser(_NavigationItemRole.Role.Name) Then + _ChoiceActionItem.Active.SetItemValue("", False) + End If + End If + If _NavigationItemRole.SubcontractorRoles IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SubcontractorUserRoles_Collection As New XPCollection(Of SubcontractorUserRoles)(_onew.Session, CriteriaOperator.Parse("User.Oid=?", TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User).Oid)) + + For Each _SubcontractorUserRoles As SubcontractorUserRoles In _SubcontractorUserRoles_Collection + If _NavigationItemRole.SubcontractorRoles.Oid = _SubcontractorUserRoles.SubcontractorRoles.Oid Then + _ChoiceActionItem.Active.SetItemValue("", False) + End If + Next + End If + If _NavigationItemRole.SupportRoles IsNot Nothing Then + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _SupportUserRoles_Collection As New XPCollection(Of SupportUserRoles)(_onew.Session, CriteriaOperator.Parse("User.Oid=?", TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User).Oid)) + + For Each _SupportUserRoles As SupportUserRoles In _SupportUserRoles_Collection + If _NavigationItemRole.SupportRoles.Oid = _SupportUserRoles.SupportRoles.Oid Then + _ChoiceActionItem.Active.SetItemValue("", False) + End If + Next + End If + End If + Next + + End Sub + Sub RecursiveAddModelNavigation(_uow As UnitOfWork, _ModelNavigationParent As ModelNavigation, _ChoiceActionItem As ChoiceActionItem) + Dim _ModelNavigation As ModelNavigation + Dim _ChoiceActionItem_Child As ChoiceActionItem + + _ID += 1 + _ModelNavigation = New ModelNavigation(_uow) + + _ModelNavigation.Parent = _ModelNavigationParent + _ModelNavigation.Name = _ChoiceActionItem.Id + _ModelNavigation.Navigation_Caption = _ChoiceActionItem.Caption + _ModelNavigation.Navigation_ImageName = _ChoiceActionItem.ImageName + + If _ChoiceActionItem.Items.Count > 0 Then + For Each _ChoiceActionItem_Child In _ChoiceActionItem.Items + RecursiveAddModelNavigation(_uow, _ModelNavigation, _ChoiceActionItem_Child) + Next + End If + + End Sub +End Class + diff --git a/SISBusiness.Module/Controllers/Navigation/NavigationItemRole.vb b/SISBusiness.Module/Controllers/Navigation/NavigationItemRole.vb new file mode 100644 index 0000000..453fa94 --- /dev/null +++ b/SISBusiness.Module/Controllers/Navigation/NavigationItemRole.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class NavigationItemRole + Inherits BaseObject + + Private _ChoiceActionItemId As String + Private _Role As Role + Private _SubcontractorRoles As SubcontractorRoles + Private _SupportRoles As SupportRoles + + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + End Sub + + _ + Property ChoiceActionItemId As String + Get + Return _ChoiceActionItemId + End Get + Set(value As String) + SetPropertyValue("ChoiceActionItemId", _ChoiceActionItemId, value) + End Set + End Property + Property Role As Role + Get + Return _Role + End Get + Set(value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property + Property SubcontractorRoles As SubcontractorRoles + Get + Return _SubcontractorRoles + End Get + Set(value As SubcontractorRoles) + SetPropertyValue("SubcontractorRoles", _SubcontractorRoles, value) + End Set + End Property + Property SupportRoles As SupportRoles + Get + Return _SupportRoles + End Get + Set(value As SupportRoles) + SetPropertyValue("SupportRoles", _SupportRoles, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Controllers/RoundingController.Designer.vb b/SISBusiness.Module/Controllers/RoundingController.Designer.vb new file mode 100644 index 0000000..ad92420 --- /dev/null +++ b/SISBusiness.Module/Controllers/RoundingController.Designer.vb @@ -0,0 +1,32 @@ +Partial Class RoundingController + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/RoundingController.vb b/SISBusiness.Module/Controllers/RoundingController.vb new file mode 100644 index 0000000..aac35ea --- /dev/null +++ b/SISBusiness.Module/Controllers/RoundingController.vb @@ -0,0 +1,59 @@ +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 + +Public Class RoundingController + 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() + Dim _SQL As String = "" + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + If View Is Nothing Then Exit Sub + + For Each _OwnMember In View.Model.ModelClass.OwnMembers + Dim _IModelMemberAllowSort As IModelMemberAllowSort = TryCast(_OwnMember, IModelMemberAllowSort) + If _IModelMemberAllowSort IsNot Nothing Then + If _IModelMemberAllowSort.AllowRounding Then + Try + Select Case GLOBAL_SQLType + Case eSQLType.MySQL, eSQLType.MSSQL + _SQL = "UPDATE " & View.Model.ModelClass.ShortName.ToString & " SET " & _OwnMember.Name.ToString & "=ROUND(" & _OwnMember.Name.ToString + _SQL += "," & _IModelMemberAllowSort.RoundingTo.ToString & ") WHERE " + _SQL += _OwnMember.Name.ToString & "<>ROUND(" & _OwnMember.Name.ToString & "," & _IModelMemberAllowSort.RoundingTo.ToString & ")" + + _ocur.Session.ExecuteNonQuery(_SQL) + Case eSQLType.PostgreSQL + _SQL = "UPDATE """ & View.Model.ModelClass.ShortName.ToString & """ SET """ & _OwnMember.Name.ToString & """=ROUND(""" & _OwnMember.Name.ToString + _SQL += """," & _IModelMemberAllowSort.RoundingTo.ToString & ") WHERE """ + _SQL += _OwnMember.Name.ToString & """<>ROUND(""" & _OwnMember.Name.ToString & """," & _IModelMemberAllowSort.RoundingTo.ToString & ")" + + _ocur.Session.ExecuteNonQuery(_SQL) + End Select + Catch exp As Exception + Dim _uow_exception As New UnitOfWork(_ocur.Session.DataLayer) + Dim _ErrorLog As ErrorLog = New ErrorLog(_uow_exception) + _ErrorLog.Description = exp.Message.ToString & " (" & _SQL & ")" + _ErrorLog.Save() + _uow_exception.CommitChanges() + End Try + End If + End If + Next + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/ModelActionRole.vb b/SISBusiness.Module/Controllers/Security Helper/ModelActionRole.vb new file mode 100644 index 0000000..0401f9b --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/ModelActionRole.vb @@ -0,0 +1,61 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + + _ +Public Class ModelActionRole + Inherits BaseObject + + Private _Action_ID As String + Private _Action_Controller As String + Private _Role As Role + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + _ + Property Action_ID As String + Get + Return _Action_ID + End Get + Set(value As String) + SetPropertyValue("Action_ID", _Action_ID, value) + End Set + End Property + _ + Property Action_Controller As String + Get + Return _Action_Controller + End Get + Set(value As String) + SetPropertyValue("Action_Controller", _Action_Controller, value) + End Set + End Property + Property Role As Role + Get + Return _Role + End Get + Set(value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property + +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/ModelActions.vb b/SISBusiness.Module/Controllers/Security Helper/ModelActions.vb new file mode 100644 index 0000000..09e434e --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/ModelActions.vb @@ -0,0 +1,57 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ +Public Class ModelActions + Inherits BaseObject + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + Action_Enabled = True + End Sub + + Property Action_ID As String + Property Action_ImageName As String + Property Action_Controller As String + Property Action_Caption As String + Property Action_SISGroup1 As String + Property Action_SISGroup2 As String + Property Action_Enabled As Boolean + _ + ReadOnly Property Image1 As Image + Get + Return ImageLoader.Instance.GetImageInfo(Action_ImageName).Image + End Get + End Property + _ + ReadOnly Property Action_Enabled_Image As Image + Get + If Action_Enabled Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property + +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/ModelBOModel.vb b/SISBusiness.Module/Controllers/Security Helper/ModelBOModel.vb new file mode 100644 index 0000000..1da582c --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/ModelBOModel.vb @@ -0,0 +1,106 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ +Public Class ModelBOModel + Inherits BaseObject + + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + BOModel_Create = True + BOModel_Read = True + BOModel_Write = True + BOModel_Delete = True + BOModel_Navigate = True + End Sub + + Property BOModel_ID As String + Property BOModel_ImageName As String + Property BOModel_Caption As String + Property BOModel_SISGroup1 As String + Property BOModel_SISGroup2 As String + Property BOModel_IsPopup As Boolean + Property BOModel_NonPersistent As Boolean + Property BOModel_Create As Boolean + Property BOModel_Read As Boolean + Property BOModel_Write As Boolean + Property BOModel_Delete As Boolean + Property BOModel_Navigate As Boolean + _ + ReadOnly Property Image1 As Image + Get + Return ImageLoader.Instance.GetImageInfo(BOModel_ImageName).Image + End Get + End Property + _ + ReadOnly Property BOModel_Create_Image As Image + Get + If BOModel_Create Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property + _ + ReadOnly Property BOModel_Read_Image As Image + Get + If BOModel_Read Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property + _ + ReadOnly Property BOModel_Write_Image As Image + Get + If BOModel_Write Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property + _ + ReadOnly Property BOModel_Delete_Image As Image + Get + If BOModel_Delete Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property + _ + ReadOnly Property BOModel_Navigate_Image As Image + Get + If BOModel_Navigate Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/ModelNavigation.vb b/SISBusiness.Module/Controllers/Security Helper/ModelNavigation.vb new file mode 100644 index 0000000..65b8584 --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/ModelNavigation.vb @@ -0,0 +1,53 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing +Imports DevExpress.ExpressApp.Utils + + _ +Public Class ModelNavigation + Inherits HCategory + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property MasterKey As Guid + Property Navigation_Caption As String + Property Navigation_ImageName As String + Property Navigation_Enabled As Boolean = True + Property Index As Long + _ + ReadOnly Property Image1 As Image + Get + Return ImageLoader.Instance.GetImageInfo(Navigation_ImageName).Image + End Get + End Property + _ + ReadOnly Property ImageDeny As Image + Get + If Navigation_Enabled Then + Return ImageLoader.Instance.GetImageInfo("Action_Grant").Image + Else + Return ImageLoader.Instance.GetImageInfo("Action_Deny").Image + End If + End Get + End Property +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.Designer.vb b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.Designer.vb new file mode 100644 index 0000000..3aaf987 --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.Designer.vb @@ -0,0 +1,207 @@ +Partial Class RolesModelSecurity + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aRoleActionEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleNavigationEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleNavigationDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleActionDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleNavigationView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRoleBOModelEnable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleBOModelView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + Me.aRoleBOModelDisable = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components) + Me.aRoleActionView = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aRoleActionEnable + ' + Me.aRoleActionEnable.AcceptButtonCaption = Nothing + Me.aRoleActionEnable.CancelButtonCaption = Nothing + Me.aRoleActionEnable.Caption = "aRole Action Enable" + Me.aRoleActionEnable.Category = "Save" + Me.aRoleActionEnable.ConfirmationMessage = Nothing + Me.aRoleActionEnable.Id = "aRoleActionEnable" + Me.aRoleActionEnable.ImageName = Nothing + Me.aRoleActionEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleActionEnable.Shortcut = Nothing + Me.aRoleActionEnable.Tag = Nothing + Me.aRoleActionEnable.TargetObjectsCriteria = Nothing + Me.aRoleActionEnable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleActionEnable.TargetViewId = Nothing + Me.aRoleActionEnable.ToolTip = Nothing + Me.aRoleActionEnable.TypeOfView = Nothing + ' + 'aRoleNavigationEnable + ' + Me.aRoleNavigationEnable.AcceptButtonCaption = Nothing + Me.aRoleNavigationEnable.CancelButtonCaption = Nothing + Me.aRoleNavigationEnable.Caption = "aRole Navigation Enable" + Me.aRoleNavigationEnable.Category = "Save" + Me.aRoleNavigationEnable.ConfirmationMessage = Nothing + Me.aRoleNavigationEnable.Id = "aRoleNavigationEnable" + Me.aRoleNavigationEnable.ImageName = Nothing + Me.aRoleNavigationEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleNavigationEnable.Shortcut = Nothing + Me.aRoleNavigationEnable.Tag = Nothing + Me.aRoleNavigationEnable.TargetObjectsCriteria = Nothing + Me.aRoleNavigationEnable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleNavigationEnable.TargetViewId = Nothing + Me.aRoleNavigationEnable.ToolTip = Nothing + Me.aRoleNavigationEnable.TypeOfView = Nothing + ' + 'aRoleNavigationDisable + ' + Me.aRoleNavigationDisable.AcceptButtonCaption = Nothing + Me.aRoleNavigationDisable.CancelButtonCaption = Nothing + Me.aRoleNavigationDisable.Caption = "aRole Navigation Disable" + Me.aRoleNavigationDisable.Category = "Save" + Me.aRoleNavigationDisable.ConfirmationMessage = Nothing + Me.aRoleNavigationDisable.Id = "aRoleNavigationDisable" + Me.aRoleNavigationDisable.ImageName = Nothing + Me.aRoleNavigationDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleNavigationDisable.Shortcut = Nothing + Me.aRoleNavigationDisable.Tag = Nothing + Me.aRoleNavigationDisable.TargetObjectsCriteria = Nothing + Me.aRoleNavigationDisable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleNavigationDisable.TargetViewId = Nothing + Me.aRoleNavigationDisable.ToolTip = Nothing + Me.aRoleNavigationDisable.TypeOfView = Nothing + ' + 'aRoleActionDisable + ' + Me.aRoleActionDisable.AcceptButtonCaption = Nothing + Me.aRoleActionDisable.CancelButtonCaption = Nothing + Me.aRoleActionDisable.Caption = "aRole Action Disable" + Me.aRoleActionDisable.Category = "Save" + Me.aRoleActionDisable.ConfirmationMessage = Nothing + Me.aRoleActionDisable.Id = "aRoleActionDisable" + Me.aRoleActionDisable.ImageName = Nothing + Me.aRoleActionDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleActionDisable.Shortcut = Nothing + Me.aRoleActionDisable.Tag = Nothing + Me.aRoleActionDisable.TargetObjectsCriteria = Nothing + Me.aRoleActionDisable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleActionDisable.TargetViewId = Nothing + Me.aRoleActionDisable.ToolTip = Nothing + Me.aRoleActionDisable.TypeOfView = Nothing + ' + 'aRoleNavigationView + ' + Me.aRoleNavigationView.Caption = "aRole Navigation View" + Me.aRoleNavigationView.Category = "View" + Me.aRoleNavigationView.ConfirmationMessage = Nothing + Me.aRoleNavigationView.Id = "aRoleNavigationView" + Me.aRoleNavigationView.ImageName = Nothing + Me.aRoleNavigationView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRoleNavigationView.Shortcut = Nothing + Me.aRoleNavigationView.Tag = Nothing + Me.aRoleNavigationView.TargetObjectsCriteria = Nothing + Me.aRoleNavigationView.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleNavigationView.TargetViewId = Nothing + Me.aRoleNavigationView.ToolTip = Nothing + Me.aRoleNavigationView.TypeOfView = Nothing + ' + 'aRoleBOModelEnable + ' + Me.aRoleBOModelEnable.AcceptButtonCaption = Nothing + Me.aRoleBOModelEnable.CancelButtonCaption = Nothing + Me.aRoleBOModelEnable.Caption = "aRole BOModel Enable" + Me.aRoleBOModelEnable.Category = "Save" + Me.aRoleBOModelEnable.ConfirmationMessage = Nothing + Me.aRoleBOModelEnable.Id = "aRoleBOModelEnable" + Me.aRoleBOModelEnable.ImageName = Nothing + Me.aRoleBOModelEnable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleBOModelEnable.Shortcut = Nothing + Me.aRoleBOModelEnable.Tag = Nothing + Me.aRoleBOModelEnable.TargetObjectsCriteria = Nothing + Me.aRoleBOModelEnable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleBOModelEnable.TargetViewId = Nothing + Me.aRoleBOModelEnable.ToolTip = Nothing + Me.aRoleBOModelEnable.TypeOfView = Nothing + ' + 'aRoleBOModelView + ' + Me.aRoleBOModelView.Caption = "aRole BOModel View" + Me.aRoleBOModelView.Category = "View" + Me.aRoleBOModelView.ConfirmationMessage = Nothing + Me.aRoleBOModelView.Id = "aRoleBOModelView" + Me.aRoleBOModelView.ImageName = Nothing + Me.aRoleBOModelView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRoleBOModelView.Shortcut = Nothing + Me.aRoleBOModelView.Tag = Nothing + Me.aRoleBOModelView.TargetObjectsCriteria = Nothing + Me.aRoleBOModelView.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleBOModelView.TargetViewId = Nothing + Me.aRoleBOModelView.ToolTip = Nothing + Me.aRoleBOModelView.TypeOfView = Nothing + ' + 'aRoleBOModelDisable + ' + Me.aRoleBOModelDisable.AcceptButtonCaption = Nothing + Me.aRoleBOModelDisable.CancelButtonCaption = Nothing + Me.aRoleBOModelDisable.Caption = "aRole BOModel Disable" + Me.aRoleBOModelDisable.Category = "Save" + Me.aRoleBOModelDisable.ConfirmationMessage = Nothing + Me.aRoleBOModelDisable.Id = "aRoleBOModelDisable" + Me.aRoleBOModelDisable.ImageName = Nothing + Me.aRoleBOModelDisable.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects + Me.aRoleBOModelDisable.Shortcut = Nothing + Me.aRoleBOModelDisable.Tag = Nothing + Me.aRoleBOModelDisable.TargetObjectsCriteria = Nothing + Me.aRoleBOModelDisable.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleBOModelDisable.TargetViewId = Nothing + Me.aRoleBOModelDisable.ToolTip = Nothing + Me.aRoleBOModelDisable.TypeOfView = Nothing + ' + 'aRoleActionView + ' + Me.aRoleActionView.Caption = "aRole Action View" + Me.aRoleActionView.Category = "View" + Me.aRoleActionView.ConfirmationMessage = Nothing + Me.aRoleActionView.Id = "aRoleActionView" + Me.aRoleActionView.ImageName = Nothing + Me.aRoleActionView.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aRoleActionView.Shortcut = Nothing + Me.aRoleActionView.Tag = Nothing + Me.aRoleActionView.TargetObjectsCriteria = Nothing + Me.aRoleActionView.TargetObjectType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.aRoleActionView.TargetViewId = Nothing + Me.aRoleActionView.ToolTip = Nothing + Me.aRoleActionView.TypeOfView = Nothing + + End Sub + Friend WithEvents aRoleActionEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleNavigationEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleNavigationDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleActionDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleNavigationView As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRoleBOModelEnable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleBOModelView As DevExpress.ExpressApp.Actions.SimpleAction + Friend WithEvents aRoleBOModelDisable As DevExpress.ExpressApp.Actions.PopupWindowShowAction + Friend WithEvents aRoleActionView As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.resx b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.resx new file mode 100644 index 0000000..1521601 --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 329 + + + 17, 290 + + + 17, 251 + + + 17, 212 + + + 17, 173 + + + 17, 134 + + + 17, 95 + + + 17, 56 + + + 190, 56 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.vb b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.vb new file mode 100644 index 0000000..d37071d --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/RolesModelSecurity.vb @@ -0,0 +1,501 @@ +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.ExpressApp.Model +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Xpo +Imports System.IO +Imports System.Security +Imports System.Xml +Imports System.Security.Principal +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Updating + +Public Class RolesModelSecurity + 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 OnFrameAssigned() + MyBase.OnFrameAssigned() + + End Sub + + Protected Overrides Sub OnActivated() + MyBase.OnActivated() + '// Ideiglenes tilts + 'Frame.GetController(Of RolesModelSecurity).aRoleActionDisable.Active.SetItemValue("", False) + 'Frame.GetController(Of RolesModelSecurity).aRoleActionEnable.Active.SetItemValue("", False) + Frame.GetController(Of RolesModelSecurity).aRoleBOModelDisable.Active.SetItemValue("", False) + Frame.GetController(Of RolesModelSecurity).aRoleBOModelEnable.Active.SetItemValue("", False) + + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + + If _ocur Is Nothing Then Exit Sub + + Dim _LoggedUser As User = TryCast(SecuritySystem.CurrentUser, User) + If _LoggedUser IsNot Nothing Then + For Each _Role As Role In _LoggedUser.Roles + Dim _ModelActionRole_Collection As New XPCollection(Of ModelActionRole)(_ocur.Session, CriteriaOperator.Parse("Role.Oid=?", _Role.Oid)) + + For Each _ModelActionRole As ModelActionRole In _ModelActionRole_Collection + For Each _Controller As Controller In Frame.Controllers + If Replace(_Controller.Name, ".Win", "") = _ModelActionRole.Action_Controller Then + For Each _Action As ActionBase In _Controller.Actions + If _Action.Id = _ModelActionRole.Action_ID Then + _Action.Active.SetItemValue("SISBusinessSecurity", False) + End If + Next + End If + If Replace(_Controller.Name, ".Web", "") = _ModelActionRole.Action_Controller Then + For Each _Action As ActionBase In _Controller.Actions + If _Action.Id = _ModelActionRole.Action_ID Then + _Action.Active.SetItemValue("SISBusinessSecurity", False) + End If + Next + End If + Next + Next + Next + End If + End Sub + + Private Sub aRoleActionEnable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRoleActionEnable.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelActions)) + Dim _ModelActions As ModelActions + Dim _Action As IModelAction + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + If _Role IsNot Nothing Then + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Controller.Name Like "SIS*" Then + _ModelActions = _onew.CreateObject(Of ModelActions)() + _ModelActions.Action_ID = _Action.Id + _ModelActions.Action_Caption = _Action.Caption + _ModelActions.Action_ImageName = _Action.ImageName + _ModelActions.Action_Controller = _Action.Controller.Name + + Dim _ModelActionRole As ModelActionRole = _onew.FindObject(Of ModelActionRole)(CriteriaOperator.Parse("Action_ID=? AND Action_Controller=? AND Role=?", _ + _ModelActions.Action_ID, _ModelActions.Action_Controller, _onew.GetObject(_Role))) + If _ModelActionRole IsNot Nothing Then + _ModelActions.Action_Enabled = False + Else + _ModelActions.Action_Enabled = True + End If + + _CS.Add(_ModelActions) + End If + Next + End If + e.View = Application.CreateListView("ModelActions_ListView", _CS, False) + End Sub + Private Sub aRoleActionEnable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRoleActionEnable.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + If _Role IsNot Nothing Then + For Each _ModelActions As ModelActions In e.PopupWindow.View.SelectedObjects + Dim _ModelActionRole As ModelActionRole = _ocur.FindObject(Of ModelActionRole)(CriteriaOperator.Parse("Action_ID=? AND Action_Controller=? AND Role=?", _ + _ModelActions.Action_ID, _ModelActions.Action_Controller, _Role)) + If _ModelActionRole IsNot Nothing Then + _ocur.Delete(_ModelActionRole) + End If + Next + End If + _ocur.CommitChanges() + End Sub + Private Sub aRoleActionView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRoleActionView.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelActions)) + Dim _ModelActions As ModelActions + Dim _Action As IModelAction + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Controller.Name Like "SIS*" Then + _ModelActions = _onew.CreateObject(Of ModelActions)() + _ModelActions.Action_ID = _Action.Id + _ModelActions.Action_Caption = _Action.Caption + _ModelActions.Action_ImageName = _Action.ImageName + _ModelActions.Action_Controller = _Action.Controller.Name + + _ModelActions.Action_SISGroup1 = TryCast(_Action, IModelActionExtender).SISGroup1 + _ModelActions.Action_SISGroup2 = TryCast(_Action, IModelActionExtender).SISGroup2 + + _CS.Add(_ModelActions) + End If + Next + + e.ShowViewParameters.CreatedView = Application.CreateListView("ModelActions_ListView", _CS, True) + e.ShowViewParameters.CreatedView.Caption += " (" & _Role.Name & ")" + End Sub + + Private Sub aRoleNavigationEnable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRoleNavigationEnable.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _MasterKey As Guid = SecuritySystem.CurrentUserId + + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _onew.Session.ExecuteNonQuery("delete from ""ModelNavigation"" where ""MasterKey""='" & _MasterKey.ToString & "'") + _onew.CommitChanges() + Case Else + _onew.Session.ExecuteNonQuery("delete from ModelNavigation where MasterKey='" & _MasterKey.ToString & "'") + _onew.CommitChanges() + End Select + + If View.SelectedObjects.Count = 1 Then + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + If _Role IsNot Nothing Then + Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("Role.Oid=?", _Role.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 _Role IsNot Nothing Then + e.View.Caption += " (" & _Role.Name & ")" + End If + End If + End If + End Sub + Private Sub aRoleNavigationEnable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRoleNavigationEnable.Execute + Dim _ModelNavigation As ModelNavigation + Dim _NavigationItemRole As NavigationItemRole + Dim _ocur As IObjectSpace = View.ObjectSpace + + Dim _Role As Role + + For Each _Role In View.SelectedObjects + For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects + _NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("Role.Oid=? and ChoiceActionItemId=?", _Role.Oid, _ModelNavigation.Name)) + If _NavigationItemRole IsNot Nothing Then + _ocur.Delete(_NavigationItemRole) + End If + Next + Next + _ocur.CommitChanges() + End Sub + + Private Sub aRoleNavigationDisable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRoleNavigationDisable.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _MasterKey As Guid = SecuritySystem.CurrentUserId + + + Select Case GLOBAL_SQLType + Case eSQLType.PostgreSQL + _onew.Session.ExecuteNonQuery("delete from ""ModelNavigation"" where ""MasterKey""='" & _MasterKey.ToString & "'") + _onew.CommitChanges() + Case Else + _onew.Session.ExecuteNonQuery("delete from ModelNavigation where MasterKey='" & _MasterKey.ToString & "'") + _onew.CommitChanges() + End Select + + If View.SelectedObjects.Count = 1 Then + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + If _Role IsNot Nothing Then + Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("Role.Oid=?", _Role.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 + _onew.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 _Role IsNot Nothing Then + e.View.Caption += " (" & _Role.Name & ")" + End If + End If + End If + + End Sub + Private Sub aRoleNavigationDisable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRoleNavigationDisable.Execute + Dim _ModelNavigation As ModelNavigation + Dim _NavigationItemRole As NavigationItemRole + Dim _ocur As IObjectSpace = View.ObjectSpace + + Dim _Role As Role + + For Each _Role In View.SelectedObjects + For Each _ModelNavigation In e.PopupWindow.View.SelectedObjects + _NavigationItemRole = _ocur.FindObject(Of NavigationItemRole)(CriteriaOperator.Parse("Role.Oid=? and ChoiceActionItemId=?", _Role.Oid, _ModelNavigation.Name)) + If _NavigationItemRole Is Nothing Then + _NavigationItemRole = _ocur.CreateObject(Of NavigationItemRole)() + _NavigationItemRole.Role = _ocur.GetObject(_Role) + _NavigationItemRole.ChoiceActionItemId = _ModelNavigation.Name + End If + Next + Next + _ocur.CommitChanges() + + End Sub + + Private Sub aRoleNavigationView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRoleNavigationView.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelNavigation)) + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + + Dim _NavigationItemRole_Collection As New XPCollection(Of NavigationItemRole)(_onew.Session, CriteriaOperator.Parse("Role.Oid=?", _Role.Oid)) + Dim _NavigationItemRole As NavigationItemRole + + Dim _ModelNavigation As ModelNavigation + + 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.ShowViewParameters.CreatedView = Application.CreateListView("ModelNavigation_ListView", _CS, True) + e.ShowViewParameters.CreatedView.Caption += " (" & _Role.Name & ")" + End Sub + + Private Sub aRoleBOModelEnable_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aRoleBOModelEnable.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelBOModel)) + Dim _ModelBOModel As ModelBOModel + Dim _IModelClass As IModelClass + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _IModelClass In Application.Model.BOModel + If _IModelClass.Name Like "SIS*" Then + _ModelBOModel = _onew.CreateObject(Of ModelBOModel)() + _ModelBOModel.BOModel_ID = _IModelClass.Name + _ModelBOModel.BOModel_Caption = _IModelClass.Caption + _ModelBOModel.BOModel_ImageName = _IModelClass.ImageName + _ModelBOModel.BOModel_SISGroup1 = TryCast(_IModelClass, IModelClassAllowSort).SISGroup1 + _ModelBOModel.BOModel_SISGroup2 = TryCast(_IModelClass, IModelClassAllowSort).SISGroup2 + _ModelBOModel.BOModel_NonPersistent = TryCast(_IModelClass, IModelClassAllowSort).NonPersistent + _ModelBOModel.BOModel_IsPopup = TryCast(_IModelClass, IModelClassAllowSort).IsPopup + _CS.Add(_ModelBOModel) + End If + + Next + + e.View = Application.CreateListView("ModelBOModel_ListView", _CS, False) + End Sub + Private Sub aRoleBOModelEnable_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aRoleBOModelEnable.Execute + + End Sub + + Private Sub aRoleBOModelView_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRoleBOModelView.Execute + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelBOModel)) + Dim _ModelBOModel As ModelBOModel + Dim _IModelClass As IModelClass + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + Dim _Permission As IPermission + Dim _XMLDocument As New XmlDocument + Dim _XmlNodes As Xml.XmlNodeList + Dim _XmlNode As Xml.XmlNode + Dim _XmlNode1 As Xml.XmlNode + Dim i As Long = 0 + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _IModelClass In Application.Model.BOModel + If _IModelClass.Name Like "SIS*" Then + _ModelBOModel = _onew.CreateObject(Of ModelBOModel)() + _ModelBOModel.BOModel_ID = _IModelClass.Name + _ModelBOModel.BOModel_Caption = _IModelClass.Caption + _ModelBOModel.BOModel_ImageName = _IModelClass.ImageName + _ModelBOModel.BOModel_SISGroup1 = TryCast(_IModelClass, IModelClassAllowSort).SISGroup1 + _ModelBOModel.BOModel_SISGroup2 = TryCast(_IModelClass, IModelClassAllowSort).SISGroup2 + _ModelBOModel.BOModel_NonPersistent = TryCast(_IModelClass, IModelClassAllowSort).NonPersistent + _ModelBOModel.BOModel_IsPopup = TryCast(_IModelClass, IModelClassAllowSort).IsPopup + _CS.Add(_ModelBOModel) + End If + Next + '// For Each _Permission In _Role.Permissions + For Each _Permission In _Role.Permissions + _XMLDocument.LoadXml(_Permission.ToXml.ToString) + _XmlNodes = _XMLDocument.SelectNodes("IPermission") + For Each _XmlNode In _XmlNodes + i = 0 + For Each _XmlNode1 In _XmlNode.SelectNodes("ParticularAccessItem") + For Each _ModelBOModel In _CS.List + If _ModelBOModel.BOModel_ID = _XmlNode1.Attributes("objectType").Value.ToString Then + Select Case _XmlNode1.Attributes("access").Value.ToString + Case "Create" + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _ModelBOModel.BOModel_Create = False + Case "Read" + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _ModelBOModel.BOModel_Read = False + Case "Write" + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _ModelBOModel.BOModel_Write = False + Case "Delete" + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _ModelBOModel.BOModel_Delete = False + Case "Navigate" + If _XmlNode1.Attributes("modifier").Value.ToString = "Deny" Then _ModelBOModel.BOModel_Navigate = False + End Select + End If + Next + Next + Next + Next + e.ShowViewParameters.CreatedView = Application.CreateListView("ModelBOModel_ListView", _CS, True) + e.ShowViewParameters.CreatedView.Caption += " (" & _Role.Name & ")" + 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 aRoleActionDisable_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aRoleActionDisable.CustomizePopupWindowParams + Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace + Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(ModelActions)) + Dim _ModelActions As ModelActions + Dim _Action As IModelAction + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + _CS.BeginUpdateCriteria() + _CS.Criteria.Add("Filter1", CriteriaOperator.Parse("1=2")) + _CS.EndUpdateCriteria() + + For Each _Action In Application.Model.ActionDesign.Actions + If _Action.Controller.Name Like "SIS*" Then + _ModelActions = _onew.CreateObject(Of ModelActions)() + _ModelActions.Action_ID = _Action.Id + _ModelActions.Action_Caption = _Action.Caption + _ModelActions.Action_ImageName = _Action.ImageName + _ModelActions.Action_Controller = _Action.Controller.Name + + Dim _ModelActionRole As ModelActionRole = _onew.FindObject(Of ModelActionRole)(CriteriaOperator.Parse("Action_ID=? AND Action_Controller=? AND Role=?", _ + _ModelActions.Action_ID, _ModelActions.Action_Controller, _onew.GetObject(_Role))) + If _ModelActionRole IsNot Nothing Then + _ModelActions.Action_Enabled = False + Else + _ModelActions.Action_Enabled = True + End If + + _CS.Add(_ModelActions) + End If + Next + + e.View = Application.CreateListView("ModelActions_ListView", _CS, False) + End Sub + Private Sub aRoleActionDisable_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aRoleActionDisable.Execute + Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) + Dim _Role As Role = TryCast(View.SelectedObjects(0), Role) + If _Role IsNot Nothing Then + For Each _ModelActions As ModelActions In e.PopupWindow.View.SelectedObjects + Dim _ModelActionRole As ModelActionRole = _ocur.FindObject(Of ModelActionRole)(CriteriaOperator.Parse("Action_ID=? AND Action_Controller=? AND Role=?", _ + _ModelActions.Action_ID, _ModelActions.Action_Controller, _Role)) + If _ModelActionRole Is Nothing Then + _ModelActionRole = New ModelActionRole(_ocur.Session) + With _ModelActionRole + .Role = _Role + .Action_Controller = _ModelActions.Action_Controller + .Action_ID = _ModelActions.Action_ID + End With + End If + Next + End If + _ocur.CommitChanges() + End Sub +End Class diff --git a/SISBusiness.Module/Controllers/Security Helper/SecurityHelperSystem.vb b/SISBusiness.Module/Controllers/Security Helper/SecurityHelperSystem.vb new file mode 100644 index 0000000..dd54db0 --- /dev/null +++ b/SISBusiness.Module/Controllers/Security Helper/SecurityHelperSystem.vb @@ -0,0 +1,36 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports DevExpress.Persistent.Base.Security +Imports DevExpress.Utils + + _ + Public Class SecuritySystemHelper + Public Shared Function IsUserInRole(ByVal userWithRoles As IUserWithRoles, ByVal roleName As String) As Boolean + 'Guard.ArgumentNotNull(userWithRoles, "userWithRoles") + If userWithRoles Is Nothing Then Return True + For Each role As IRole In userWithRoles.Roles + If role.Name = roleName Then + Return True + End If + Next role + Return False + End Function + Public Shared Function IsUserInRoleCurrentUser(ByVal roleName As String) As Boolean + Return IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), roleName) + End Function + Public Shared Function IsUserInRole(ByVal roleName As String, ByVal user As User) As Boolean + Return IsUserInRole(TryCast(user, IUserWithRoles), roleName) + End Function + Public Shared Function IsUserAdministrator(ByVal simpleUser As ISimpleUser) As Boolean + Guard.ArgumentNotNull(simpleUser, "simpleUser") + Return simpleUser.IsAdministrator + End Function +End Class diff --git a/SISBusiness.Module/Controllers/TabEnterVC.Designer.vb b/SISBusiness.Module/Controllers/TabEnterVC.Designer.vb new file mode 100644 index 0000000..efae554 --- /dev/null +++ b/SISBusiness.Module/Controllers/TabEnterVC.Designer.vb @@ -0,0 +1,32 @@ +Partial Class TabEnterVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/TabEnterVC.vb b/SISBusiness.Module/Controllers/TabEnterVC.vb new file mode 100644 index 0000000..cdc3a4f --- /dev/null +++ b/SISBusiness.Module/Controllers/TabEnterVC.vb @@ -0,0 +1,49 @@ +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 TabEnterVC + 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 OnViewControlsCreated() + MyBase.OnViewControlsCreated() + For Each propertyEditor As PropertyEditor In View.GetItems(Of PropertyEditor)() + AddHandler propertyEditor.ControlCreated, AddressOf propertyEditor_ControlCreated + Next + End Sub + Private Sub propertyEditor_ControlCreated(sender As Object, e As EventArgs) + On Error Resume Next + If TryCast(sender, PropertyEditor) IsNot Nothing Then + If TryCast(sender, PropertyEditor).Control IsNot Nothing Then + If TryCast(TryCast(sender, PropertyEditor).Control, Templates.IFrameTemplate) Is Nothing Then + Dim type As Type = DirectCast(sender, PropertyEditor).Control.GetType + If type.GetProperty("EnterMoveNextControl") IsNot Nothing Then + DirectCast(sender, PropertyEditor).Control.EnterMoveNextControl = True + End If + End If + End If + End If + End Sub + Protected Overrides Sub OnDeactivated() + MyBase.OnDeactivated() + 'For Each propertyEditor As PropertyEditor In View.GetItems(Of PropertyEditor)() + ' RemoveHandler propertyEditor.ControlCreated, AddressOf propertyEditor_ControlCreated + 'Next + End Sub +End Class + diff --git a/SISBusiness.Module/Controllers/UserModel/UserModelStore.vb b/SISBusiness.Module/Controllers/UserModel/UserModelStore.vb new file mode 100644 index 0000000..86774b7 --- /dev/null +++ b/SISBusiness.Module/Controllers/UserModel/UserModelStore.vb @@ -0,0 +1,71 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation + +' _ +Public Class XmlUser + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + Public Property User() As DevExpress.Persistent.BaseImpl.User + Get + Return GetPropertyValue(Of DevExpress.Persistent.BaseImpl.User)("User") + End Get + Set(ByVal value As DevExpress.Persistent.BaseImpl.User) + SetPropertyValue("User", value) + End Set + End Property + _ + _ + Public ReadOnly Property Aspects() As XPCollection(Of XmlStore) + Get + Return GetCollection(Of XmlStore)("Aspects") + End Get + End Property + +End Class + + _ +Public Class XmlStore + Inherits BaseObject + Public Sub New(ByVal session As Session) + MyBase.New(session) + End Sub + + _ + Public Property User() As XmlUser + Get + Return GetPropertyValue(Of XmlUser)("User") + End Get + Set(ByVal value As XmlUser) + SetPropertyValue("User", value) + End Set + End Property + + Public Property Aspect() As String + Get + Return GetPropertyValue(Of String)("Aspect") + End Get + Set(ByVal value As String) + SetPropertyValue("Aspect", value) + End Set + End Property + + _ + Public Property XmlData() As String + Get + Return GetPropertyValue(Of String)("XmlData") + End Get + Set(ByVal value As String) + SetPropertyValue("XmlData", value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.Designer.vb b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.Designer.vb new file mode 100644 index 0000000..5a2f78f --- /dev/null +++ b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.Designer.vb @@ -0,0 +1,23 @@ +Partial Class UserViewVariantsController + + _ + Public Sub New(ByVal Container As System.ComponentModel.IContainer) + MyClass.New() + + 'Required for Windows.Forms Class Composition Designer support + Container.Add(Me) + + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.resx b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.resx new file mode 100644 index 0000000..e5858cc --- /dev/null +++ b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.vb b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.vb new file mode 100644 index 0000000..d688514 --- /dev/null +++ b/SISBusiness.Module/Controllers/ViewVariants/UserViewVariantsController.vb @@ -0,0 +1,180 @@ +Imports DevExpress.ExpressApp + +Public Class UserViewVariantsController + Inherits ViewController + 'Private Const STR_HasViewVariants_EnabledKey As String = "HasViewVariants" + 'Private Const STR_IsRootViewVariant_EnabledKey As String = "IsRootViewVariant" + 'Private Const STR_NewViewVariant_Id As String = "NewViewVariant" + 'Private Const STR_DeleteViewVariant_Id As String = "DeleteViewVariant" + 'Private Const STR_EditViewVariant_Id As String = "EditViewVariant" + 'Private Const STR_UserViewVariants_Image As String = "Action_Copy" + 'Private Const STR_NewViewVariant_Image As String = "Action_New" + 'Private Const STR_DeleteViewVariant_Image As String = "Action_Delete" + 'Private Const STR_EditViewVariant_Image As String = "Action_Edit" + 'Private Const STR_UserViewVariants_Id As String = "UserViewVariants" + + 'Private ReadOnly userViewVariantsCore As SingleChoiceAction + ''Protected changeVariantMainWindowController As ChangeVariantMainWindowController + 'Protected changeVariantController As ChangeVariantController + 'Protected rootModelViewVariants As IModelList(Of IModelVariant) + 'Private modelViews As IModelList(Of IModelView) + + Public Sub New() + 'userViewVariantsCore = New SingleChoiceAction(Me, STR_UserViewVariants_Id, PredefinedCategory.View) With {.ImageName = STR_UserViewVariants_Image, .PaintStyle = ActionItemPaintStyle.CaptionAndImage, .Caption = CaptionHelper.ConvertCompoundName(STR_UserViewVariants_Id), .ItemType = SingleChoiceActionItemType.ItemIsOperation, .ShowItemsOnClick = True} + 'Dim addViewVariantItem As New ChoiceActionItem(STR_NewViewVariant_Id, CaptionHelper.ConvertCompoundName(STR_NewViewVariant_Id), STR_NewViewVariant_Id) With {.ImageName = STR_NewViewVariant_Image} + 'Dim removeViewVariantItem As New ChoiceActionItem(STR_DeleteViewVariant_Id, CaptionHelper.ConvertCompoundName(STR_DeleteViewVariant_Id), STR_DeleteViewVariant_Id) With {.ImageName = STR_DeleteViewVariant_Image} + 'Dim editViewVariantItem As New ChoiceActionItem(STR_EditViewVariant_Id, CaptionHelper.ConvertCompoundName(STR_EditViewVariant_Id), STR_EditViewVariant_Id) With {.ImageName = STR_EditViewVariant_Image} + 'userViewVariantsCore.Items.Add(addViewVariantItem) + 'userViewVariantsCore.Items.Add(editViewVariantItem) + 'userViewVariantsCore.Items.Add(removeViewVariantItem) + 'AddHandler userViewVariantsCore.Execute, AddressOf UserViewVariants_Execute + End Sub + ' Private Sub UserViewVariants_Execute(ByVal sender As Object, ByVal e As SingleChoiceActionExecuteEventArgs) + ' UserViewVariants(e) + ' End Sub + ' Protected Overridable Sub UserViewVariants(ByVal e As SingleChoiceActionExecuteEventArgs) + ' Dim data As String = Convert.ToString(e.SelectedChoiceActionItem.Data) + ' If data = STR_NewViewVariant_Id OrElse data = STR_EditViewVariant_Id Then + ' ShowViewVariantParameterDialog(e, data) + ' ElseIf data = STR_DeleteViewVariant_Id Then + ' DeleteViewVariant() + ' End If + ' End Sub + ' Protected Overloads Overrides Sub OnActivated() + ' MyBase.OnActivated() + ' 'Initialize() + ' 'UpdateUserViewVariantsAction() + ' End Sub + ' Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + ' 'If disposing Then + ' ' UnsubscribeFromEvents() + ' 'End If + ' MyBase.Dispose(disposing) + ' End Sub + ' Private Sub UnsubscribeFromEvents() + ' RemoveHandler userViewVariantsCore.Execute, AddressOf UserViewVariants_Execute + ' If changeVariantController IsNot Nothing AndAlso changeVariantController.ChangeVariantAction IsNot Nothing Then + ' RemoveHandler changeVariantController.ChangeVariantAction.Execute, AddressOf ChangeVariantAction_Executed + ' End If + ' End Sub + ' Private Sub Initialize() + ' changeVariantMainWindowController = Frame.GetController(Of ChangeVariantMainWindowController)() + ' changeVariantController = Frame.GetController(Of ChangeVariantController)() + ' AddHandler changeVariantController.ChangeVariantAction.Executed, AddressOf ChangeVariantAction_Executed + ' modelViews = CType(View.Model.Application.Views, IModelList(Of IModelView)) + ' rootModelViewVariants = CType((CType(modelViews(GetRootViewId()), IModelViewVariants)).Variants, IModelList(Of IModelVariant)) + ' End Sub + ' Private Sub ChangeVariantAction_Executed(ByVal sender As Object, ByVal e As ActionBaseEventArgs) + ' UpdateUserViewVariantsAction() + ' End Sub + ' Private Function GetRootViewId() As String + ' Dim variantsInfo As VariantsInfo = changeVariantMainWindowController.GetVariants(View) + ' Return If(variantsInfo IsNot Nothing, variantsInfo.RootViewId, View.Id) + ' End Function + ' Protected Overridable Sub ShowViewVariantParameterDialog(ByVal e As SingleChoiceActionExecuteEventArgs, ByVal mode As String) + ' Dim viewCaption As String = String.Empty + ' Dim parameter As New ViewVariantParameterObject(rootModelViewVariants) + ' If mode = STR_NewViewVariant_Id Then + ' parameter.Caption = String.Format("{0}_{1:g}", View.Caption, DateTime.Now) + ' viewCaption = CaptionHelper.GetLocalizedText("Texts", "NewViewVariantParameterCaption") + ' End If + ' If mode = STR_EditViewVariant_Id AndAlso changeVariantController.ChangeVariantAction.SelectedItem IsNot Nothing Then + ' parameter.Caption = changeVariantController.ChangeVariantAction.SelectedItem.Caption + ' viewCaption = CaptionHelper.GetLocalizedText("Texts", "EditViewVariantParameterCaption") + ' End If + ' Dim dialogController As DialogController = Application.CreateController(Of DialogController)() + ' AddHandler dialogController.Accepting, AddressOf dialogController_Accepting + ' dialogController.Tag = mode + ' Dim dv As DetailView = Application.CreateDetailView(ObjectSpaceInMemory.CreateNew(), parameter, False) + ' dv.ViewEditMode = ViewEditMode.Edit + ' dv.Caption = viewCaption + ' e.ShowViewParameters.CreatedView = dv + ' e.ShowViewParameters.Controllers.Add(dialogController) + ' e.ShowViewParameters.TargetWindow = TargetWindow.NewModalWindow + ' End Sub + ' Protected Sub dialogController_Accepting(ByVal sender As Object, ByVal e As DialogControllerAcceptingEventArgs) + ' Dim dialogController As DialogController = CType(sender, DialogController) + ' RemoveHandler dialogController.Accepting, AddressOf dialogController_Accepting + ' Dim data As String = Convert.ToString(dialogController.Tag) + ' Dim parameter As ViewVariantParameterObject = TryCast(dialogController.Window.View.CurrentObject, ViewVariantParameterObject) + ' If data = STR_NewViewVariant_Id Then + ' NewViewVariant(parameter) + ' ElseIf data = STR_EditViewVariant_Id Then + ' EditViewVariant(parameter) + ' End If + ' End Sub + ' Protected Overridable Sub NewViewVariant(ByVal parameter As ViewVariantParameterObject) + ' 'It is necessary to save the current View settings into the application model before copying them. + ' View.SynchronizeInfo() + ' 'Identifier of a new view variant will be based on the identifier of the root view variant. + ' Dim newViewVariantId As String = String.Format("{0}_{1}", GetRootViewId(), Guid.NewGuid()) + ' ' Adds a new child node of the IModelVariant type with a specific identifier to the parent IModelViewVariants node. + ' Dim newModelViewVariant As IModelVariant = (CType(rootModelViewVariants, ModelNode)).AddNode(Of IModelVariant)(newViewVariantId) + ' ' Creates a new node of the IModelView type by cloning the settings of the current View and then sets the clone to the View property of the view variant created above. + ' newModelViewVariant.View = TryCast((CType(modelViews, ModelNode)).AddClonedNode(CType(View.Model, ModelNode), newViewVariantId), IModelView) + ' 'Sets the Caption property of the view variant created above to the caption specified by an end-user in the dialog. + ' newModelViewVariant.Caption = parameter.Caption + ' 'It is necessary to add a default view variant node for the current View for correct operation of the Change Variant Action. + ' If rootModelViewVariants.Count = 1 Then + ' Dim currentModelViewVariant As IModelVariant = (CType(rootModelViewVariants, ModelNode)).AddNode(Of IModelVariant)(View.Id) + ' currentModelViewVariant.Caption = CaptionHelper.GetLocalizedText("Texts", "DefaultViewVariantCaption") + ' currentModelViewVariant.View = View.Model + ' End If + ' 'Updates the Change Variant Action structure based on the model customizations above. + ' changeVariantController.RefreshVariantsAction() + ' 'Sets the current view variant to the newly created one. + ' UpdateCurrentViewVariant(True) + ' 'Updates the items of our User View Variant Action based on the current the Change Variant Action structure. + ' UpdateUserViewVariantsAction() + ' End Sub + ' 'This method does almost the same work as NewViewVariant, but in reverse order. + ' Protected Overridable Sub DeleteViewVariant() + ' Dim variantsInfo As VariantsInfo = GetVariantsInfo() + ' 'You should not be able to remove the root view variant. + ' If variantsInfo IsNot Nothing AndAlso variantsInfo.CurrentVariantId <> GetRootViewId() Then + ' UpdateCurrentViewVariant(False) + ' rootModelViewVariants.Remove(rootModelViewVariants(variantsInfo.CurrentVariantId)) + ' modelViews.Remove(modelViews(variantsInfo.CurrentVariantId)) + ' changeVariantController.RefreshVariantsAction() + ' UpdateUserViewVariantsAction() + ' End If + ' If rootModelViewVariants.Count = 1 Then + ' CType(rootModelViewVariants, ModelNode).Undo() + ' End If + ' End Sub + ' Protected Overridable Sub EditViewVariant(ByVal parameter As ViewVariantParameterObject) + ' Dim variantsInfo As VariantsInfo = GetVariantsInfo() + ' If variantsInfo IsNot Nothing Then + ' rootModelViewVariants(variantsInfo.CurrentVariantId).Caption = parameter.Caption + ' End If + ' changeVariantController.RefreshVariantsAction() + ' End Sub + ' Private Sub UpdateCurrentViewVariant(ByVal isNew As Boolean) + ' Dim action As SingleChoiceAction = changeVariantController.ChangeVariantAction + ' If (Not isNew) AndAlso action.Items.Count > 1 Then + ' action.DoExecute(action.Items(action.Items.Count - 2)) + ' End If + ' If isNew AndAlso action.Items.Count > 0 Then + ' action.DoExecute(action.Items(action.Items.Count - 1)) + ' End If + ' End Sub + ' Private Sub UpdateUserViewVariantsAction() + ' Dim hasViewVariants As Boolean = changeVariantController.ChangeVariantAction.Items.Count > 0 + ' UserViewVarintsAction.Items.FindItemByID(STR_EditViewVariant_Id).Enabled(STR_HasViewVariants_EnabledKey) = hasViewVariants + ' UserViewVarintsAction.Items.FindItemByID(STR_DeleteViewVariant_Id).Enabled(STR_HasViewVariants_EnabledKey) = + 'UserViewVarintsAction.Items.FindItemByID(STR_EditViewVariant_Id).Enabled(STR_HasViewVariants_EnabledKey) + + ' If changeVariantController.ChangeVariantAction.SelectedItem IsNot Nothing Then + ' Dim variantInfo As VariantInfo = CType(changeVariantController.ChangeVariantAction.SelectedItem.Data, VariantInfo) + ' UserViewVarintsAction.Items.FindItemByID(STR_DeleteViewVariant_Id).Enabled(STR_IsRootViewVariant_EnabledKey) = variantInfo.ViewID <> GetRootViewId() + ' End If + ' End Sub + ' Private Function GetVariantsInfo() As VariantsInfo + ' Return changeVariantMainWindowController.GetVariants(GetRootViewId()) + ' End Function + ' Public ReadOnly Property UserViewVarintsAction() As SingleChoiceAction + ' Get + ' Return userViewVariantsCore + ' End Get + ' End Property +End Class diff --git a/SISBusiness.Module/Controllers/ViewVariants/ViewVariantParameterObject.vb b/SISBusiness.Module/Controllers/ViewVariants/ViewVariantParameterObject.vb new file mode 100644 index 0000000..dbb233f --- /dev/null +++ b/SISBusiness.Module/Controllers/ViewVariants/ViewVariantParameterObject.vb @@ -0,0 +1,40 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.ComponentModel +Imports DevExpress.ExpressApp.DC +Imports DevExpress.ExpressApp.Model +Imports DevExpress.Persistent.Validation +Imports DevExpress.ExpressApp.ViewVariantsModule + + + _ +Public Class ViewVariantParameterObject + Private ReadOnly variants As IModelList(Of IModelVariant) + Public Sub New(ByVal variants As IModelList(Of IModelVariant)) + Me.variants = variants + End Sub + _ + Public ReadOnly Property IsUniqueCaption() As Boolean + Get + Dim ok As Boolean = True + For Each [variant] As IModelVariant In variants + If [variant].Caption = Caption Then + ok = False + Exit For + End If + Next [variant] + Return ok + End Get + End Property + Private privateCaption As String + _ + Public Property Caption() As String + Get + Return privateCaption + End Get + Set(ByVal value As String) + privateCaption = value + End Set + End Property +End Class + diff --git a/SISBusiness.Module/Editors/SISHtmlEditor.vb b/SISBusiness.Module/Editors/SISHtmlEditor.vb new file mode 100644 index 0000000..626342f --- /dev/null +++ b/SISBusiness.Module/Editors/SISHtmlEditor.vb @@ -0,0 +1,37 @@ +Option Strict Off +Imports System +Imports System.ComponentModel +Imports System.Drawing +Imports System.Drawing.Design +Imports System.Reflection +Imports System.Windows.Forms +Imports System.Windows.Forms.Design + +' This UITypeEditor can be associated with Int32, Double and Single +' properties to provide a design-mode angle selection interface. + _ +Public Class SISHtmlEditor + Inherits System.Drawing.Design.UITypeEditor + + Public Sub New() + End Sub + + ' Indicates whether the UITypeEditor provides a form-based (modal) dialog, + ' drop down dialog, or no UI outside of the properties window. + Public Overloads Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + ' Displays the UI for value selection. + Public Overloads Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object + Dim edSvc As IWindowsFormsEditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + If (edSvc IsNot Nothing) Then + ' Display an angle selection control and retrieve the value. + Dim HtmlControl As New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditor + edSvc.ShowDialog(HtmlControl.FindForm) + Return HtmlControl.Html + End If + Return value + End Function +End Class + diff --git a/SISBusiness.Module/Functional Tests/Config.xml b/SISBusiness.Module/Functional Tests/Config.xml new file mode 100644 index 0000000..b35aa24 --- /dev/null +++ b/SISBusiness.Module/Functional Tests/Config.xml @@ -0,0 +1,33 @@ + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Module/Functional Tests/Sample.ets b/SISBusiness.Module/Functional Tests/Sample.ets new file mode 100644 index 0000000..208a11b --- /dev/null +++ b/SISBusiness.Module/Functional Tests/Sample.ets @@ -0,0 +1,26 @@ +;#DropDB SISBusinessEasyTest + +#Application SISBusinessWin +#Application SISBusinessWeb + +*Action Navigation(User) + +*ProcessRecord + Full Name = '' + +#IfDef SISBusinessWeb +*Action Edit +#EndIf + +*FillForm + Full Name = Test User + +*Action Cancel + +#IfDef SISBusinessWin +*HandleDialog + Respond = Yes +#EndIf + +*CheckFieldValues + Full Name = '' diff --git a/SISBusiness.Module/Functional Tests/WebSample.ets b/SISBusiness.Module/Functional Tests/WebSample.ets new file mode 100644 index 0000000..c7f5cb7 --- /dev/null +++ b/SISBusiness.Module/Functional Tests/WebSample.ets @@ -0,0 +1,19 @@ +;#DropDB AXAEasyTest + +#Application AXAWeb + +*Action Navigation(User) + +*ProcessRecord + Full Name = '' + +*Action Edit + +*FillForm + Full Name = Test User + +*Action Cancel + +*CheckFieldValues + Full Name = '' + diff --git a/SISBusiness.Module/Images/Images.CloneObject_Orange.png b/SISBusiness.Module/Images/Images.CloneObject_Orange.png new file mode 100644 index 0000000..9c152cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.CloneObject_Orange.png differ diff --git a/SISBusiness.Module/Images/Images.CloneObject_Orange_32x32.png b/SISBusiness.Module/Images/Images.CloneObject_Orange_32x32.png new file mode 100644 index 0000000..9f200cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.CloneObject_Orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.DOC.png b/SISBusiness.Module/Images/Images.DOC.png new file mode 100644 index 0000000..ed46ac5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.DOC.png differ diff --git a/SISBusiness.Module/Images/Images.DOC_32x32.png b/SISBusiness.Module/Images/Images.DOC_32x32.png new file mode 100644 index 0000000..24c350c Binary files /dev/null and b/SISBusiness.Module/Images/Images.DOC_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Fire.png b/SISBusiness.Module/Images/Images.Fire.png new file mode 100644 index 0000000..c1cd876 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Fire.png differ diff --git a/SISBusiness.Module/Images/Images.Fire_32x32.png b/SISBusiness.Module/Images/Images.Fire_32x32.png new file mode 100644 index 0000000..7f6dbfa Binary files /dev/null and b/SISBusiness.Module/Images/Images.Fire_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Logo.png b/SISBusiness.Module/Images/Images.Logo.png new file mode 100644 index 0000000..ecbd41c Binary files /dev/null and b/SISBusiness.Module/Images/Images.Logo.png differ diff --git a/SISBusiness.Module/Images/Images.MergeObject_Orange.png b/SISBusiness.Module/Images/Images.MergeObject_Orange.png new file mode 100644 index 0000000..2458eb6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.MergeObject_Orange.png differ diff --git a/SISBusiness.Module/Images/Images.MergeObject_Orange_32x32.png b/SISBusiness.Module/Images/Images.MergeObject_Orange_32x32.png new file mode 100644 index 0000000..f1e33e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.MergeObject_Orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.NoImage.png b/SISBusiness.Module/Images/Images.NoImage.png new file mode 100644 index 0000000..18fdf15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.NoImage.png differ diff --git a/SISBusiness.Module/Images/Images.NoImage_32x32.png b/SISBusiness.Module/Images/Images.NoImage_32x32.png new file mode 100644 index 0000000..0731548 Binary files /dev/null and b/SISBusiness.Module/Images/Images.NoImage_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAnswerIn.png b/SISBusiness.Module/Images/Images.OfferAnswerIn.png new file mode 100644 index 0000000..1d46145 Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAnswerIn.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAnswerIn_32x32.png b/SISBusiness.Module/Images/Images.OfferAnswerIn_32x32.png new file mode 100644 index 0000000..65ea417 Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAnswerIn_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAnswerOut.png b/SISBusiness.Module/Images/Images.OfferAnswerOut.png new file mode 100644 index 0000000..1b7c85b Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAnswerOut.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAnswerOut_32x32.png b/SISBusiness.Module/Images/Images.OfferAnswerOut_32x32.png new file mode 100644 index 0000000..a9bca68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAnswerOut_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAskIn.png b/SISBusiness.Module/Images/Images.OfferAskIn.png new file mode 100644 index 0000000..93a1dd0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAskIn.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAskIn_32x32.png b/SISBusiness.Module/Images/Images.OfferAskIn_32x32.png new file mode 100644 index 0000000..ca93b63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAskIn_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAskOut.png b/SISBusiness.Module/Images/Images.OfferAskOut.png new file mode 100644 index 0000000..2c61c8f Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAskOut.png differ diff --git a/SISBusiness.Module/Images/Images.OfferAskOut_32x32.png b/SISBusiness.Module/Images/Images.OfferAskOut_32x32.png new file mode 100644 index 0000000..b7aa12e Binary files /dev/null and b/SISBusiness.Module/Images/Images.OfferAskOut_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Add.png b/SISBusiness.Module/Images/Images.Opportunity_Add.png new file mode 100644 index 0000000..c9b0c1d Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Add.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Add_32x32.png b/SISBusiness.Module/Images/Images.Opportunity_Add_32x32.png new file mode 100644 index 0000000..c69fa68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Clone.png b/SISBusiness.Module/Images/Images.Opportunity_Clone.png new file mode 100644 index 0000000..5441a49 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Clone.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Clone_32x32.png b/SISBusiness.Module/Images/Images.Opportunity_Clone_32x32.png new file mode 100644 index 0000000..98bab58 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Clone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Rem.png b/SISBusiness.Module/Images/Images.Opportunity_Rem.png new file mode 100644 index 0000000..930e67e Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Rem.png differ diff --git a/SISBusiness.Module/Images/Images.Opportunity_Rem_32x32.png b/SISBusiness.Module/Images/Images.Opportunity_Rem_32x32.png new file mode 100644 index 0000000..d014ff9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Opportunity_Rem_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.Outlook2010.png b/SISBusiness.Module/Images/Images.Outlook2010.png new file mode 100644 index 0000000..eaae223 Binary files /dev/null and b/SISBusiness.Module/Images/Images.Outlook2010.png differ diff --git a/SISBusiness.Module/Images/Images.Outlook2010_32x32.png b/SISBusiness.Module/Images/Images.Outlook2010_32x32.png new file mode 100644 index 0000000..701c47e Binary files /dev/null and b/SISBusiness.Module/Images/Images.Outlook2010_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card.png b/SISBusiness.Module/Images/Images.PCI-card.png new file mode 100644 index 0000000..87041c9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_32x32.png new file mode 100644 index 0000000..e01529d Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_add.png b/SISBusiness.Module/Images/Images.PCI-card_add.png new file mode 100644 index 0000000..5c62dd9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_add.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_add_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_add_32x32.png new file mode 100644 index 0000000..83f43f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_delete.png b/SISBusiness.Module/Images/Images.PCI-card_delete.png new file mode 100644 index 0000000..34d449e Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_delete.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_delete_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_delete_32x32.png new file mode 100644 index 0000000..295ba00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_network.png b/SISBusiness.Module/Images/Images.PCI-card_network.png new file mode 100644 index 0000000..352a05c Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_network.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_network_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_network_32x32.png new file mode 100644 index 0000000..cf58080 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_preferences.png b/SISBusiness.Module/Images/Images.PCI-card_preferences.png new file mode 100644 index 0000000..282222a Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_preferences_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_preferences_32x32.png new file mode 100644 index 0000000..364019b Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_view.png b/SISBusiness.Module/Images/Images.PCI-card_view.png new file mode 100644 index 0000000..a048dce Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_view.png differ diff --git a/SISBusiness.Module/Images/Images.PCI-card_view_32x32.png b/SISBusiness.Module/Images/Images.PCI-card_view_32x32.png new file mode 100644 index 0000000..b204a71 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PCI-card_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PDF.png b/SISBusiness.Module/Images/Images.PDF.png new file mode 100644 index 0000000..8b1e93b Binary files /dev/null and b/SISBusiness.Module/Images/Images.PDF.png differ diff --git a/SISBusiness.Module/Images/Images.PDF_32x32.png b/SISBusiness.Module/Images/Images.PDF_32x32.png new file mode 100644 index 0000000..a420440 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PDF_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.PivotChart_Save.png b/SISBusiness.Module/Images/Images.PivotChart_Save.png new file mode 100644 index 0000000..2dc2c75 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PivotChart_Save.png differ diff --git a/SISBusiness.Module/Images/Images.PivotChart_Save_32x32.png b/SISBusiness.Module/Images/Images.PivotChart_Save_32x32.png new file mode 100644 index 0000000..611e494 Binary files /dev/null and b/SISBusiness.Module/Images/Images.PivotChart_Save_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.ProductFinder.png b/SISBusiness.Module/Images/Images.ProductFinder.png new file mode 100644 index 0000000..1fe26af Binary files /dev/null and b/SISBusiness.Module/Images/Images.ProductFinder.png differ diff --git a/SISBusiness.Module/Images/Images.ProductFinder_32x32.png b/SISBusiness.Module/Images/Images.ProductFinder_32x32.png new file mode 100644 index 0000000..f9845fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.ProductFinder_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.TXT.png b/SISBusiness.Module/Images/Images.TXT.png new file mode 100644 index 0000000..f13e3dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.TXT.png differ diff --git a/SISBusiness.Module/Images/Images.TXT_32x32.png b/SISBusiness.Module/Images/Images.TXT_32x32.png new file mode 100644 index 0000000..97b3954 Binary files /dev/null and b/SISBusiness.Module/Images/Images.TXT_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.XLS.png b/SISBusiness.Module/Images/Images.XLS.png new file mode 100644 index 0000000..312ce2f Binary files /dev/null and b/SISBusiness.Module/Images/Images.XLS.png differ diff --git a/SISBusiness.Module/Images/Images.XLS_32x32.png b/SISBusiness.Module/Images/Images.XLS_32x32.png new file mode 100644 index 0000000..f966621 Binary files /dev/null and b/SISBusiness.Module/Images/Images.XLS_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.about.png b/SISBusiness.Module/Images/Images.about.png new file mode 100644 index 0000000..1a36f54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.about.png differ diff --git a/SISBusiness.Module/Images/Images.about_32x32.png b/SISBusiness.Module/Images/Images.about_32x32.png new file mode 100644 index 0000000..afe2c65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.about_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.add.png b/SISBusiness.Module/Images/Images.add.png new file mode 100644 index 0000000..3bddf53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.add.png differ diff --git a/SISBusiness.Module/Images/Images.add2.png b/SISBusiness.Module/Images/Images.add2.png new file mode 100644 index 0000000..80f276e Binary files /dev/null and b/SISBusiness.Module/Images/Images.add2.png differ diff --git a/SISBusiness.Module/Images/Images.add2_32x32.png b/SISBusiness.Module/Images/Images.add2_32x32.png new file mode 100644 index 0000000..b75acc5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.add2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.add_32x32.png b/SISBusiness.Module/Images/Images.add_32x32.png new file mode 100644 index 0000000..07a21d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.address_book.png b/SISBusiness.Module/Images/Images.address_book.png new file mode 100644 index 0000000..333c220 Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book.png differ diff --git a/SISBusiness.Module/Images/Images.address_book2.png b/SISBusiness.Module/Images/Images.address_book2.png new file mode 100644 index 0000000..0b3efb7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book2.png differ diff --git a/SISBusiness.Module/Images/Images.address_book2_32x32.png b/SISBusiness.Module/Images/Images.address_book2_32x32.png new file mode 100644 index 0000000..079fa62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.address_book3.png b/SISBusiness.Module/Images/Images.address_book3.png new file mode 100644 index 0000000..38a573f Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book3.png differ diff --git a/SISBusiness.Module/Images/Images.address_book3_32x32.png b/SISBusiness.Module/Images/Images.address_book3_32x32.png new file mode 100644 index 0000000..57838f6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.address_book_32x32.png b/SISBusiness.Module/Images/Images.address_book_32x32.png new file mode 100644 index 0000000..827429e Binary files /dev/null and b/SISBusiness.Module/Images/Images.address_book_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock.png b/SISBusiness.Module/Images/Images.alarmclock.png new file mode 100644 index 0000000..a7dec19 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_32x32.png b/SISBusiness.Module/Images/Images.alarmclock_32x32.png new file mode 100644 index 0000000..5e5039f Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_pause.png b/SISBusiness.Module/Images/Images.alarmclock_pause.png new file mode 100644 index 0000000..69e7de5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_pause.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_pause_32x32.png b/SISBusiness.Module/Images/Images.alarmclock_pause_32x32.png new file mode 100644 index 0000000..e07e3c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_preferences.png b/SISBusiness.Module/Images/Images.alarmclock_preferences.png new file mode 100644 index 0000000..c8323cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_preferences_32x32.png b/SISBusiness.Module/Images/Images.alarmclock_preferences_32x32.png new file mode 100644 index 0000000..1a45759 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_run.png b/SISBusiness.Module/Images/Images.alarmclock_run.png new file mode 100644 index 0000000..ef86025 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_run.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_run_32x32.png b/SISBusiness.Module/Images/Images.alarmclock_run_32x32.png new file mode 100644 index 0000000..edb0177 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_stop.png b/SISBusiness.Module/Images/Images.alarmclock_stop.png new file mode 100644 index 0000000..9d0c729 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_stop.png differ diff --git a/SISBusiness.Module/Images/Images.alarmclock_stop_32x32.png b/SISBusiness.Module/Images/Images.alarmclock_stop_32x32.png new file mode 100644 index 0000000..76ebd77 Binary files /dev/null and b/SISBusiness.Module/Images/Images.alarmclock_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.ambulance.png b/SISBusiness.Module/Images/Images.ambulance.png new file mode 100644 index 0000000..590aff5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.ambulance.png differ diff --git a/SISBusiness.Module/Images/Images.ambulance_32x32.png b/SISBusiness.Module/Images/Images.ambulance_32x32.png new file mode 100644 index 0000000..1bfb9f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.ambulance_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.angel.png b/SISBusiness.Module/Images/Images.angel.png new file mode 100644 index 0000000..a952eea Binary files /dev/null and b/SISBusiness.Module/Images/Images.angel.png differ diff --git a/SISBusiness.Module/Images/Images.angel_32x32.png b/SISBusiness.Module/Images/Images.angel_32x32.png new file mode 100644 index 0000000..f7a8624 Binary files /dev/null and b/SISBusiness.Module/Images/Images.angel_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application.png b/SISBusiness.Module/Images/Images.application.png new file mode 100644 index 0000000..c12b498 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application.png differ diff --git a/SISBusiness.Module/Images/Images.application_32x32.png b/SISBusiness.Module/Images/Images.application_32x32.png new file mode 100644 index 0000000..20b1b0f Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_add.png b/SISBusiness.Module/Images/Images.application_add.png new file mode 100644 index 0000000..f0fcd84 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_add.png differ diff --git a/SISBusiness.Module/Images/Images.application_add_32x32.png b/SISBusiness.Module/Images/Images.application_add_32x32.png new file mode 100644 index 0000000..a5e95aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_certificate.png b/SISBusiness.Module/Images/Images.application_certificate.png new file mode 100644 index 0000000..5a05300 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_certificate.png differ diff --git a/SISBusiness.Module/Images/Images.application_certificate_32x32.png b/SISBusiness.Module/Images/Images.application_certificate_32x32.png new file mode 100644 index 0000000..950dc19 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_connection.png b/SISBusiness.Module/Images/Images.application_connection.png new file mode 100644 index 0000000..bd9eba2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_connection.png differ diff --git a/SISBusiness.Module/Images/Images.application_connection_32x32.png b/SISBusiness.Module/Images/Images.application_connection_32x32.png new file mode 100644 index 0000000..be72953 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_delete.png b/SISBusiness.Module/Images/Images.application_delete.png new file mode 100644 index 0000000..2999b4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_delete.png differ diff --git a/SISBusiness.Module/Images/Images.application_delete_32x32.png b/SISBusiness.Module/Images/Images.application_delete_32x32.png new file mode 100644 index 0000000..4450f12 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise.png b/SISBusiness.Module/Images/Images.application_enterprise.png new file mode 100644 index 0000000..7431d83 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_32x32.png new file mode 100644 index 0000000..4b8a2f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_add.png b/SISBusiness.Module/Images/Images.application_enterprise_add.png new file mode 100644 index 0000000..b4e0115 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_add.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_add_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_add_32x32.png new file mode 100644 index 0000000..cb35df4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_certificate.png b/SISBusiness.Module/Images/Images.application_enterprise_certificate.png new file mode 100644 index 0000000..f38b566 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_certificate.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_certificate_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_certificate_32x32.png new file mode 100644 index 0000000..ca2d94e Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_delete.png b/SISBusiness.Module/Images/Images.application_enterprise_delete.png new file mode 100644 index 0000000..3bcdb60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_delete.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_delete_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_delete_32x32.png new file mode 100644 index 0000000..b666d0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_new.png b/SISBusiness.Module/Images/Images.application_enterprise_new.png new file mode 100644 index 0000000..b49e715 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_new.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_new_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_new_32x32.png new file mode 100644 index 0000000..b2e7cd5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_preferences.png b/SISBusiness.Module/Images/Images.application_enterprise_preferences.png new file mode 100644 index 0000000..173fe5d Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_preferences_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_preferences_32x32.png new file mode 100644 index 0000000..cc0a107 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_run.png b/SISBusiness.Module/Images/Images.application_enterprise_run.png new file mode 100644 index 0000000..80b36c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_run.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_run_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_run_32x32.png new file mode 100644 index 0000000..88fdbe4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_stop.png b/SISBusiness.Module/Images/Images.application_enterprise_stop.png new file mode 100644 index 0000000..ecdf5a2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_stop.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_stop_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_stop_32x32.png new file mode 100644 index 0000000..0ad77fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_view.png b/SISBusiness.Module/Images/Images.application_enterprise_view.png new file mode 100644 index 0000000..03f110f Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_view.png differ diff --git a/SISBusiness.Module/Images/Images.application_enterprise_view_32x32.png b/SISBusiness.Module/Images/Images.application_enterprise_view_32x32.png new file mode 100644 index 0000000..351c9d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_enterprise_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_error.png b/SISBusiness.Module/Images/Images.application_error.png new file mode 100644 index 0000000..d373526 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_error.png differ diff --git a/SISBusiness.Module/Images/Images.application_error_32x32.png b/SISBusiness.Module/Images/Images.application_error_32x32.png new file mode 100644 index 0000000..2148eee Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_information.png b/SISBusiness.Module/Images/Images.application_information.png new file mode 100644 index 0000000..50d4193 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_information.png differ diff --git a/SISBusiness.Module/Images/Images.application_information_32x32.png b/SISBusiness.Module/Images/Images.application_information_32x32.png new file mode 100644 index 0000000..fba4cae Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_lock.png b/SISBusiness.Module/Images/Images.application_lock.png new file mode 100644 index 0000000..db05dc3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_lock.png differ diff --git a/SISBusiness.Module/Images/Images.application_lock_32x32.png b/SISBusiness.Module/Images/Images.application_lock_32x32.png new file mode 100644 index 0000000..7ab3d06 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_network.png b/SISBusiness.Module/Images/Images.application_network.png new file mode 100644 index 0000000..05f8834 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_network.png differ diff --git a/SISBusiness.Module/Images/Images.application_network_32x32.png b/SISBusiness.Module/Images/Images.application_network_32x32.png new file mode 100644 index 0000000..28d6ca7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_new.png b/SISBusiness.Module/Images/Images.application_new.png new file mode 100644 index 0000000..4276bef Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_new.png differ diff --git a/SISBusiness.Module/Images/Images.application_new_32x32.png b/SISBusiness.Module/Images/Images.application_new_32x32.png new file mode 100644 index 0000000..885606f Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_ok.png b/SISBusiness.Module/Images/Images.application_ok.png new file mode 100644 index 0000000..b145039 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_ok.png differ diff --git a/SISBusiness.Module/Images/Images.application_ok_32x32.png b/SISBusiness.Module/Images/Images.application_ok_32x32.png new file mode 100644 index 0000000..0dacc24 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_preferences.png b/SISBusiness.Module/Images/Images.application_preferences.png new file mode 100644 index 0000000..9741698 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.application_preferences_32x32.png b/SISBusiness.Module/Images/Images.application_preferences_32x32.png new file mode 100644 index 0000000..0954c75 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_run.png b/SISBusiness.Module/Images/Images.application_run.png new file mode 100644 index 0000000..ef07464 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_run.png differ diff --git a/SISBusiness.Module/Images/Images.application_run_32x32.png b/SISBusiness.Module/Images/Images.application_run_32x32.png new file mode 100644 index 0000000..cfe407f Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server.png b/SISBusiness.Module/Images/Images.application_server.png new file mode 100644 index 0000000..58e8428 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_32x32.png b/SISBusiness.Module/Images/Images.application_server_32x32.png new file mode 100644 index 0000000..5ddf8d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_add.png b/SISBusiness.Module/Images/Images.application_server_add.png new file mode 100644 index 0000000..0af323e Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_add.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_add_32x32.png b/SISBusiness.Module/Images/Images.application_server_add_32x32.png new file mode 100644 index 0000000..ac85d18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_delete.png b/SISBusiness.Module/Images/Images.application_server_delete.png new file mode 100644 index 0000000..7bc9057 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_delete.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_delete_32x32.png b/SISBusiness.Module/Images/Images.application_server_delete_32x32.png new file mode 100644 index 0000000..0abf41a Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_new.png b/SISBusiness.Module/Images/Images.application_server_new.png new file mode 100644 index 0000000..bc35cd7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_new.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_new_32x32.png b/SISBusiness.Module/Images/Images.application_server_new_32x32.png new file mode 100644 index 0000000..7f62e15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_preferences.png b/SISBusiness.Module/Images/Images.application_server_preferences.png new file mode 100644 index 0000000..b5ff3f8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_preferences_32x32.png b/SISBusiness.Module/Images/Images.application_server_preferences_32x32.png new file mode 100644 index 0000000..26b81ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_run.png b/SISBusiness.Module/Images/Images.application_server_run.png new file mode 100644 index 0000000..71e0e65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_run.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_run_32x32.png b/SISBusiness.Module/Images/Images.application_server_run_32x32.png new file mode 100644 index 0000000..3a4d6b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_stop.png b/SISBusiness.Module/Images/Images.application_server_stop.png new file mode 100644 index 0000000..df412b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_stop.png differ diff --git a/SISBusiness.Module/Images/Images.application_server_stop_32x32.png b/SISBusiness.Module/Images/Images.application_server_stop_32x32.png new file mode 100644 index 0000000..7c06e7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_server_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_stop.png b/SISBusiness.Module/Images/Images.application_stop.png new file mode 100644 index 0000000..c37d846 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_stop.png differ diff --git a/SISBusiness.Module/Images/Images.application_stop_32x32.png b/SISBusiness.Module/Images/Images.application_stop_32x32.png new file mode 100644 index 0000000..4774e28 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_view.png b/SISBusiness.Module/Images/Images.application_view.png new file mode 100644 index 0000000..c9a601e Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_view.png differ diff --git a/SISBusiness.Module/Images/Images.application_view_32x32.png b/SISBusiness.Module/Images/Images.application_view_32x32.png new file mode 100644 index 0000000..9011af0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.application_warning.png b/SISBusiness.Module/Images/Images.application_warning.png new file mode 100644 index 0000000..bd01ea7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_warning.png differ diff --git a/SISBusiness.Module/Images/Images.application_warning_32x32.png b/SISBusiness.Module/Images/Images.application_warning_32x32.png new file mode 100644 index 0000000..c029897 Binary files /dev/null and b/SISBusiness.Module/Images/Images.application_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.armour.png b/SISBusiness.Module/Images/Images.armour.png new file mode 100644 index 0000000..3eba3f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.armour.png differ diff --git a/SISBusiness.Module/Images/Images.armour_32x32.png b/SISBusiness.Module/Images/Images.armour_32x32.png new file mode 100644 index 0000000..bf88c74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.armour_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_blue.png b/SISBusiness.Module/Images/Images.arrow_down_blue.png new file mode 100644 index 0000000..b6b8201 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_blue_32x32.png new file mode 100644 index 0000000..199d137 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_box_blue.png b/SISBusiness.Module/Images/Images.arrow_down_box_blue.png new file mode 100644 index 0000000..50ebad3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_box_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_box_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_box_blue_32x32.png new file mode 100644 index 0000000..216b976 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_box_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_gear_blue.png b/SISBusiness.Module/Images/Images.arrow_down_gear_blue.png new file mode 100644 index 0000000..e03eaee Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_gear_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_gear_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_gear_blue_32x32.png new file mode 100644 index 0000000..6817abc Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_gear_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_green.png b/SISBusiness.Module/Images/Images.arrow_down_green.png new file mode 100644 index 0000000..ae63ad3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_green_32x32.png new file mode 100644 index 0000000..83905cd Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_minus_blue.png b/SISBusiness.Module/Images/Images.arrow_down_minus_blue.png new file mode 100644 index 0000000..78c0a20 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_minus_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_minus_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_minus_blue_32x32.png new file mode 100644 index 0000000..53e94ec Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_minus_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_orange.png b/SISBusiness.Module/Images/Images.arrow_down_orange.png new file mode 100644 index 0000000..7940fb5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_orange.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_orange_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_orange_32x32.png new file mode 100644 index 0000000..f96b44a Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_plus_blue.png b/SISBusiness.Module/Images/Images.arrow_down_plus_blue.png new file mode 100644 index 0000000..ee218f6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_plus_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_plus_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_plus_blue_32x32.png new file mode 100644 index 0000000..14b680b Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_plus_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_red.png b/SISBusiness.Module/Images/Images.arrow_down_red.png new file mode 100644 index 0000000..59728cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_red.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_down_red_32x32.png b/SISBusiness.Module/Images/Images.arrow_down_red_32x32.png new file mode 100644 index 0000000..06c5f87 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_down_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_left_blue.png b/SISBusiness.Module/Images/Images.arrow_left_blue.png new file mode 100644 index 0000000..b4c5873 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_left_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_left_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_left_blue_32x32.png new file mode 100644 index 0000000..eb3a282 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_left_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_left_green.png b/SISBusiness.Module/Images/Images.arrow_left_green.png new file mode 100644 index 0000000..3219132 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_left_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_left_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_left_green_32x32.png new file mode 100644 index 0000000..cb84aec Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_left_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_right_blue.png b/SISBusiness.Module/Images/Images.arrow_right_blue.png new file mode 100644 index 0000000..4391185 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_right_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_right_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_right_blue_32x32.png new file mode 100644 index 0000000..5eea8c9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_right_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_right_green.png b/SISBusiness.Module/Images/Images.arrow_right_green.png new file mode 100644 index 0000000..2ee0871 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_right_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_right_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_right_green_32x32.png new file mode 100644 index 0000000..a2635db Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_right_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_blue.png b/SISBusiness.Module/Images/Images.arrow_up_blue.png new file mode 100644 index 0000000..c60b018 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_blue_32x32.png new file mode 100644 index 0000000..1bc521e Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_box_blue.png b/SISBusiness.Module/Images/Images.arrow_up_box_blue.png new file mode 100644 index 0000000..e4d1b58 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_box_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_box_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_box_blue_32x32.png new file mode 100644 index 0000000..f1cb35a Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_box_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_box_green.png b/SISBusiness.Module/Images/Images.arrow_up_box_green.png new file mode 100644 index 0000000..0537551 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_box_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_box_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_box_green_32x32.png new file mode 100644 index 0000000..e1b5632 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_box_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_gear_blue.png b/SISBusiness.Module/Images/Images.arrow_up_gear_blue.png new file mode 100644 index 0000000..7468151 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_gear_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_gear_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_gear_blue_32x32.png new file mode 100644 index 0000000..9fd3066 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_gear_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_gear_green.png b/SISBusiness.Module/Images/Images.arrow_up_gear_green.png new file mode 100644 index 0000000..4fbde91 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_gear_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_gear_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_gear_green_32x32.png new file mode 100644 index 0000000..437761a Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_gear_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_green.png b/SISBusiness.Module/Images/Images.arrow_up_green.png new file mode 100644 index 0000000..020ebfb Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_green_32x32.png new file mode 100644 index 0000000..e399201 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_minus_blue.png b/SISBusiness.Module/Images/Images.arrow_up_minus_blue.png new file mode 100644 index 0000000..3a57435 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_minus_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_minus_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_minus_blue_32x32.png new file mode 100644 index 0000000..749eeb2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_minus_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_minus_green.png b/SISBusiness.Module/Images/Images.arrow_up_minus_green.png new file mode 100644 index 0000000..c1acb4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_minus_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_minus_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_minus_green_32x32.png new file mode 100644 index 0000000..0837c7a Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_minus_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_orange.png b/SISBusiness.Module/Images/Images.arrow_up_orange.png new file mode 100644 index 0000000..0c3c94f Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_orange.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_orange_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_orange_32x32.png new file mode 100644 index 0000000..d9dee2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_plus_blue.png b/SISBusiness.Module/Images/Images.arrow_up_plus_blue.png new file mode 100644 index 0000000..752d9fe Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_plus_blue.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_plus_blue_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_plus_blue_32x32.png new file mode 100644 index 0000000..6f6caab Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_plus_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_plus_green.png b/SISBusiness.Module/Images/Images.arrow_up_plus_green.png new file mode 100644 index 0000000..598c814 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_plus_green.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_plus_green_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_plus_green_32x32.png new file mode 100644 index 0000000..408c28c Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_plus_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_red.png b/SISBusiness.Module/Images/Images.arrow_up_red.png new file mode 100644 index 0000000..f01d301 Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_red.png differ diff --git a/SISBusiness.Module/Images/Images.arrow_up_red_32x32.png b/SISBusiness.Module/Images/Images.arrow_up_red_32x32.png new file mode 100644 index 0000000..6ce57af Binary files /dev/null and b/SISBusiness.Module/Images/Images.arrow_up_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.astrologer.png b/SISBusiness.Module/Images/Images.astrologer.png new file mode 100644 index 0000000..4b496ac Binary files /dev/null and b/SISBusiness.Module/Images/Images.astrologer.png differ diff --git a/SISBusiness.Module/Images/Images.astrologer_32x32.png b/SISBusiness.Module/Images/Images.astrologer_32x32.png new file mode 100644 index 0000000..8586b07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.astrologer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.at.png b/SISBusiness.Module/Images/Images.at.png new file mode 100644 index 0000000..59bb050 Binary files /dev/null and b/SISBusiness.Module/Images/Images.at.png differ diff --git a/SISBusiness.Module/Images/Images.at_32x32.png b/SISBusiness.Module/Images/Images.at_32x32.png new file mode 100644 index 0000000..fb05a82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.at_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.atom.png b/SISBusiness.Module/Images/Images.atom.png new file mode 100644 index 0000000..9de4ee8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.atom.png differ diff --git a/SISBusiness.Module/Images/Images.atom_32x32.png b/SISBusiness.Module/Images/Images.atom_32x32.png new file mode 100644 index 0000000..d9bf26d Binary files /dev/null and b/SISBusiness.Module/Images/Images.atom_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.auction_hammer.png b/SISBusiness.Module/Images/Images.auction_hammer.png new file mode 100644 index 0000000..34c6a67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.auction_hammer.png differ diff --git a/SISBusiness.Module/Images/Images.auction_hammer_32x32.png b/SISBusiness.Module/Images/Images.auction_hammer_32x32.png new file mode 100644 index 0000000..ac05469 Binary files /dev/null and b/SISBusiness.Module/Images/Images.auction_hammer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.band_aid.png b/SISBusiness.Module/Images/Images.band_aid.png new file mode 100644 index 0000000..aa50b7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.band_aid.png differ diff --git a/SISBusiness.Module/Images/Images.band_aid_32x32.png b/SISBusiness.Module/Images/Images.band_aid_32x32.png new file mode 100644 index 0000000..ae978d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.band_aid_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery.png b/SISBusiness.Module/Images/Images.battery.png new file mode 100644 index 0000000..b2fd2e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery.png differ diff --git a/SISBusiness.Module/Images/Images.battery_32x32.png b/SISBusiness.Module/Images/Images.battery_32x32.png new file mode 100644 index 0000000..c4aabad Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_add.png b/SISBusiness.Module/Images/Images.battery_add.png new file mode 100644 index 0000000..3c20a16 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_add.png differ diff --git a/SISBusiness.Module/Images/Images.battery_add_32x32.png b/SISBusiness.Module/Images/Images.battery_add_32x32.png new file mode 100644 index 0000000..5b1c599 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_connection.png b/SISBusiness.Module/Images/Images.battery_connection.png new file mode 100644 index 0000000..2b834ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_connection.png differ diff --git a/SISBusiness.Module/Images/Images.battery_connection_32x32.png b/SISBusiness.Module/Images/Images.battery_connection_32x32.png new file mode 100644 index 0000000..b3f0754 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_delete.png b/SISBusiness.Module/Images/Images.battery_delete.png new file mode 100644 index 0000000..eca967b Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_delete.png differ diff --git a/SISBusiness.Module/Images/Images.battery_delete_32x32.png b/SISBusiness.Module/Images/Images.battery_delete_32x32.png new file mode 100644 index 0000000..f2ed390 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_ok.png b/SISBusiness.Module/Images/Images.battery_ok.png new file mode 100644 index 0000000..588fefc Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_ok.png differ diff --git a/SISBusiness.Module/Images/Images.battery_ok_32x32.png b/SISBusiness.Module/Images/Images.battery_ok_32x32.png new file mode 100644 index 0000000..65bc05b Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_preferences.png b/SISBusiness.Module/Images/Images.battery_preferences.png new file mode 100644 index 0000000..20f82e7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.battery_preferences_32x32.png b/SISBusiness.Module/Images/Images.battery_preferences_32x32.png new file mode 100644 index 0000000..21f132e Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.battery_warning.png b/SISBusiness.Module/Images/Images.battery_warning.png new file mode 100644 index 0000000..4564ab2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_warning.png differ diff --git a/SISBusiness.Module/Images/Images.battery_warning_32x32.png b/SISBusiness.Module/Images/Images.battery_warning_32x32.png new file mode 100644 index 0000000..b05400e Binary files /dev/null and b/SISBusiness.Module/Images/Images.battery_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bed.png b/SISBusiness.Module/Images/Images.bed.png new file mode 100644 index 0000000..9172ff7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bed.png differ diff --git a/SISBusiness.Module/Images/Images.bed_32x32.png b/SISBusiness.Module/Images/Images.bed_32x32.png new file mode 100644 index 0000000..0d8de60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bed_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bell.png b/SISBusiness.Module/Images/Images.bell.png new file mode 100644 index 0000000..dd5c191 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bell.png differ diff --git a/SISBusiness.Module/Images/Images.bell_32x32.png b/SISBusiness.Module/Images/Images.bell_32x32.png new file mode 100644 index 0000000..c8ea5d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bell_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bomb.png b/SISBusiness.Module/Images/Images.bomb.png new file mode 100644 index 0000000..36eb038 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bomb.png differ diff --git a/SISBusiness.Module/Images/Images.bomb_32x32.png b/SISBusiness.Module/Images/Images.bomb_32x32.png new file mode 100644 index 0000000..0ee243d Binary files /dev/null and b/SISBusiness.Module/Images/Images.bomb_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue.png b/SISBusiness.Module/Images/Images.book_blue.png new file mode 100644 index 0000000..ae0b734 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_32x32.png b/SISBusiness.Module/Images/Images.book_blue_32x32.png new file mode 100644 index 0000000..c31af09 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_add.png b/SISBusiness.Module/Images/Images.book_blue_add.png new file mode 100644 index 0000000..f1115e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_add.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_add_32x32.png b/SISBusiness.Module/Images/Images.book_blue_add_32x32.png new file mode 100644 index 0000000..bb83207 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_delete.png b/SISBusiness.Module/Images/Images.book_blue_delete.png new file mode 100644 index 0000000..425921a Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_delete.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_delete_32x32.png b/SISBusiness.Module/Images/Images.book_blue_delete_32x32.png new file mode 100644 index 0000000..4398de7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_find.png b/SISBusiness.Module/Images/Images.book_blue_find.png new file mode 100644 index 0000000..aceffea Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_find.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_find_32x32.png b/SISBusiness.Module/Images/Images.book_blue_find_32x32.png new file mode 100644 index 0000000..1ad71cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_new.png b/SISBusiness.Module/Images/Images.book_blue_new.png new file mode 100644 index 0000000..2cf8211 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_new.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_new_32x32.png b/SISBusiness.Module/Images/Images.book_blue_new_32x32.png new file mode 100644 index 0000000..bbac155 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_next.png b/SISBusiness.Module/Images/Images.book_blue_next.png new file mode 100644 index 0000000..caf661a Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_next.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_next_32x32.png b/SISBusiness.Module/Images/Images.book_blue_next_32x32.png new file mode 100644 index 0000000..75302c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_preferences.png b/SISBusiness.Module/Images/Images.book_blue_preferences.png new file mode 100644 index 0000000..5341ab2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_preferences_32x32.png b/SISBusiness.Module/Images/Images.book_blue_preferences_32x32.png new file mode 100644 index 0000000..9e3238f Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_previous.png b/SISBusiness.Module/Images/Images.book_blue_previous.png new file mode 100644 index 0000000..2b9a447 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_previous.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_previous_32x32.png b/SISBusiness.Module/Images/Images.book_blue_previous_32x32.png new file mode 100644 index 0000000..c95d554 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_view.png b/SISBusiness.Module/Images/Images.book_blue_view.png new file mode 100644 index 0000000..4252917 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_view.png differ diff --git a/SISBusiness.Module/Images/Images.book_blue_view_32x32.png b/SISBusiness.Module/Images/Images.book_blue_view_32x32.png new file mode 100644 index 0000000..bc31ca0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_blue_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_green.png b/SISBusiness.Module/Images/Images.book_green.png new file mode 100644 index 0000000..93b79b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_green.png differ diff --git a/SISBusiness.Module/Images/Images.book_green_32x32.png b/SISBusiness.Module/Images/Images.book_green_32x32.png new file mode 100644 index 0000000..676866f Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_open.png b/SISBusiness.Module/Images/Images.book_open.png new file mode 100644 index 0000000..4d088e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_open.png differ diff --git a/SISBusiness.Module/Images/Images.book_open2.png b/SISBusiness.Module/Images/Images.book_open2.png new file mode 100644 index 0000000..881969b Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_open2.png differ diff --git a/SISBusiness.Module/Images/Images.book_open2_32x32.png b/SISBusiness.Module/Images/Images.book_open2_32x32.png new file mode 100644 index 0000000..78e5b7b Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_open2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_open_32x32.png b/SISBusiness.Module/Images/Images.book_open_32x32.png new file mode 100644 index 0000000..a98e3bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_open_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_red.png b/SISBusiness.Module/Images/Images.book_red.png new file mode 100644 index 0000000..5d6fefa Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_red.png differ diff --git a/SISBusiness.Module/Images/Images.book_red_32x32.png b/SISBusiness.Module/Images/Images.book_red_32x32.png new file mode 100644 index 0000000..5ee118b Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.book_yellow.png b/SISBusiness.Module/Images/Images.book_yellow.png new file mode 100644 index 0000000..676cce7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.book_yellow_32x32.png b/SISBusiness.Module/Images/Images.book_yellow_32x32.png new file mode 100644 index 0000000..284ab68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.book_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark.png b/SISBusiness.Module/Images/Images.bookmark.png new file mode 100644 index 0000000..42f0caf Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_32x32.png b/SISBusiness.Module/Images/Images.bookmark_32x32.png new file mode 100644 index 0000000..5534ba5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_add.png b/SISBusiness.Module/Images/Images.bookmark_add.png new file mode 100644 index 0000000..22e449a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_add.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_add_32x32.png b/SISBusiness.Module/Images/Images.bookmark_add_32x32.png new file mode 100644 index 0000000..dad9ac2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_delete.png b/SISBusiness.Module/Images/Images.bookmark_delete.png new file mode 100644 index 0000000..73baf98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_delete.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_delete_32x32.png b/SISBusiness.Module/Images/Images.bookmark_delete_32x32.png new file mode 100644 index 0000000..5094f48 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_down.png b/SISBusiness.Module/Images/Images.bookmark_down.png new file mode 100644 index 0000000..e550a34 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_down.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_down_32x32.png b/SISBusiness.Module/Images/Images.bookmark_down_32x32.png new file mode 100644 index 0000000..48e122a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_new.png b/SISBusiness.Module/Images/Images.bookmark_new.png new file mode 100644 index 0000000..a7c2158 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_new.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_new_32x32.png b/SISBusiness.Module/Images/Images.bookmark_new_32x32.png new file mode 100644 index 0000000..ae7b123 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_preferences.png b/SISBusiness.Module/Images/Images.bookmark_preferences.png new file mode 100644 index 0000000..8df2c64 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_preferences_32x32.png b/SISBusiness.Module/Images/Images.bookmark_preferences_32x32.png new file mode 100644 index 0000000..38269c7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_up.png b/SISBusiness.Module/Images/Images.bookmark_up.png new file mode 100644 index 0000000..dbd655a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_up.png differ diff --git a/SISBusiness.Module/Images/Images.bookmark_up_32x32.png b/SISBusiness.Module/Images/Images.bookmark_up_32x32.png new file mode 100644 index 0000000..3aeae71 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmark_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmarks.png b/SISBusiness.Module/Images/Images.bookmarks.png new file mode 100644 index 0000000..2c01549 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmarks.png differ diff --git a/SISBusiness.Module/Images/Images.bookmarks_32x32.png b/SISBusiness.Module/Images/Images.bookmarks_32x32.png new file mode 100644 index 0000000..8f089f8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmarks_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bookmarks_preferences.png b/SISBusiness.Module/Images/Images.bookmarks_preferences.png new file mode 100644 index 0000000..a304e10 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmarks_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.bookmarks_preferences_32x32.png b/SISBusiness.Module/Images/Images.bookmarks_preferences_32x32.png new file mode 100644 index 0000000..e1419ab Binary files /dev/null and b/SISBusiness.Module/Images/Images.bookmarks_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.books.png b/SISBusiness.Module/Images/Images.books.png new file mode 100644 index 0000000..addf5b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.books.png differ diff --git a/SISBusiness.Module/Images/Images.books_32x32.png b/SISBusiness.Module/Images/Images.books_32x32.png new file mode 100644 index 0000000..f91cd34 Binary files /dev/null and b/SISBusiness.Module/Images/Images.books_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.books_preferences.png b/SISBusiness.Module/Images/Images.books_preferences.png new file mode 100644 index 0000000..3f76098 Binary files /dev/null and b/SISBusiness.Module/Images/Images.books_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.books_preferences_32x32.png b/SISBusiness.Module/Images/Images.books_preferences_32x32.png new file mode 100644 index 0000000..eff9271 Binary files /dev/null and b/SISBusiness.Module/Images/Images.books_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bottle.png b/SISBusiness.Module/Images/Images.bottle.png new file mode 100644 index 0000000..7a36641 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bottle.png differ diff --git a/SISBusiness.Module/Images/Images.bottle_32x32.png b/SISBusiness.Module/Images/Images.bottle_32x32.png new file mode 100644 index 0000000..1176f59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bottle_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bottle_of_pills.png b/SISBusiness.Module/Images/Images.bottle_of_pills.png new file mode 100644 index 0000000..6d03f41 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bottle_of_pills.png differ diff --git a/SISBusiness.Module/Images/Images.bottle_of_pills_32x32.png b/SISBusiness.Module/Images/Images.bottle_of_pills_32x32.png new file mode 100644 index 0000000..0b10fc9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bottle_of_pills_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box.png b/SISBusiness.Module/Images/Images.box.png new file mode 100644 index 0000000..74c1105 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box.png differ diff --git a/SISBusiness.Module/Images/Images.box_32x32.png b/SISBusiness.Module/Images/Images.box_32x32.png new file mode 100644 index 0000000..925de8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_add.png b/SISBusiness.Module/Images/Images.box_add.png new file mode 100644 index 0000000..b8a6108 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_add.png differ diff --git a/SISBusiness.Module/Images/Images.box_add_32x32.png b/SISBusiness.Module/Images/Images.box_add_32x32.png new file mode 100644 index 0000000..4c91405 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_closed.png b/SISBusiness.Module/Images/Images.box_closed.png new file mode 100644 index 0000000..8e53766 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_closed.png differ diff --git a/SISBusiness.Module/Images/Images.box_closed_32x32.png b/SISBusiness.Module/Images/Images.box_closed_32x32.png new file mode 100644 index 0000000..7185b04 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_closed_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_delete.png b/SISBusiness.Module/Images/Images.box_delete.png new file mode 100644 index 0000000..a8f7c93 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_delete.png differ diff --git a/SISBusiness.Module/Images/Images.box_delete_32x32.png b/SISBusiness.Module/Images/Images.box_delete_32x32.png new file mode 100644 index 0000000..2b2332b Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_into.png b/SISBusiness.Module/Images/Images.box_into.png new file mode 100644 index 0000000..e4f0428 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_into.png differ diff --git a/SISBusiness.Module/Images/Images.box_into_32x32.png b/SISBusiness.Module/Images/Images.box_into_32x32.png new file mode 100644 index 0000000..4ccaa15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_new.png b/SISBusiness.Module/Images/Images.box_new.png new file mode 100644 index 0000000..b29ff92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_new.png differ diff --git a/SISBusiness.Module/Images/Images.box_new_32x32.png b/SISBusiness.Module/Images/Images.box_new_32x32.png new file mode 100644 index 0000000..fb52fa5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_next.png b/SISBusiness.Module/Images/Images.box_next.png new file mode 100644 index 0000000..7d55d83 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_next.png differ diff --git a/SISBusiness.Module/Images/Images.box_next_32x32.png b/SISBusiness.Module/Images/Images.box_next_32x32.png new file mode 100644 index 0000000..34fc490 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_out.png b/SISBusiness.Module/Images/Images.box_out.png new file mode 100644 index 0000000..7990e0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_out.png differ diff --git a/SISBusiness.Module/Images/Images.box_out_32x32.png b/SISBusiness.Module/Images/Images.box_out_32x32.png new file mode 100644 index 0000000..73a9617 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_preferences.png b/SISBusiness.Module/Images/Images.box_preferences.png new file mode 100644 index 0000000..4452f54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.box_preferences_32x32.png b/SISBusiness.Module/Images/Images.box_preferences_32x32.png new file mode 100644 index 0000000..d578ea0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_previous.png b/SISBusiness.Module/Images/Images.box_previous.png new file mode 100644 index 0000000..b2ca259 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_previous.png differ diff --git a/SISBusiness.Module/Images/Images.box_previous_32x32.png b/SISBusiness.Module/Images/Images.box_previous_32x32.png new file mode 100644 index 0000000..92fcc09 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_software.png b/SISBusiness.Module/Images/Images.box_software.png new file mode 100644 index 0000000..18a6ad4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_software.png differ diff --git a/SISBusiness.Module/Images/Images.box_software_32x32.png b/SISBusiness.Module/Images/Images.box_software_32x32.png new file mode 100644 index 0000000..bee4d39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_software_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_tall.png b/SISBusiness.Module/Images/Images.box_tall.png new file mode 100644 index 0000000..efffafd Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_tall.png differ diff --git a/SISBusiness.Module/Images/Images.box_tall_32x32.png b/SISBusiness.Module/Images/Images.box_tall_32x32.png new file mode 100644 index 0000000..e9ff89e Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_tall_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_view.png b/SISBusiness.Module/Images/Images.box_view.png new file mode 100644 index 0000000..4d1cc07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_view.png differ diff --git a/SISBusiness.Module/Images/Images.box_view_32x32.png b/SISBusiness.Module/Images/Images.box_view_32x32.png new file mode 100644 index 0000000..bd37d67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.box_white.png b/SISBusiness.Module/Images/Images.box_white.png new file mode 100644 index 0000000..48e773f Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_white.png differ diff --git a/SISBusiness.Module/Images/Images.box_white_32x32.png b/SISBusiness.Module/Images/Images.box_white_32x32.png new file mode 100644 index 0000000..0acda03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.box_white_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch.png b/SISBusiness.Module/Images/Images.branch.png new file mode 100644 index 0000000..7b420a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch.png differ diff --git a/SISBusiness.Module/Images/Images.branch_32x32.png b/SISBusiness.Module/Images/Images.branch_32x32.png new file mode 100644 index 0000000..596db80 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch_delete.png b/SISBusiness.Module/Images/Images.branch_delete.png new file mode 100644 index 0000000..1ed7ec6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_delete.png differ diff --git a/SISBusiness.Module/Images/Images.branch_delete_32x32.png b/SISBusiness.Module/Images/Images.branch_delete_32x32.png new file mode 100644 index 0000000..743a4de Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch_element.png b/SISBusiness.Module/Images/Images.branch_element.png new file mode 100644 index 0000000..5569286 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_element.png differ diff --git a/SISBusiness.Module/Images/Images.branch_element_32x32.png b/SISBusiness.Module/Images/Images.branch_element_32x32.png new file mode 100644 index 0000000..c0a0b35 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_element_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch_element_new.png b/SISBusiness.Module/Images/Images.branch_element_new.png new file mode 100644 index 0000000..7ed47dd Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_element_new.png differ diff --git a/SISBusiness.Module/Images/Images.branch_element_new_32x32.png b/SISBusiness.Module/Images/Images.branch_element_new_32x32.png new file mode 100644 index 0000000..9f588da Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_element_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch_find.png b/SISBusiness.Module/Images/Images.branch_find.png new file mode 100644 index 0000000..761dff4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_find.png differ diff --git a/SISBusiness.Module/Images/Images.branch_find_32x32.png b/SISBusiness.Module/Images/Images.branch_find_32x32.png new file mode 100644 index 0000000..5dc425c Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.branch_view.png b/SISBusiness.Module/Images/Images.branch_view.png new file mode 100644 index 0000000..8621b7b Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_view.png differ diff --git a/SISBusiness.Module/Images/Images.branch_view_32x32.png b/SISBusiness.Module/Images/Images.branch_view_32x32.png new file mode 100644 index 0000000..d8fc817 Binary files /dev/null and b/SISBusiness.Module/Images/Images.branch_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint.png b/SISBusiness.Module/Images/Images.breakpoint.png new file mode 100644 index 0000000..fdc0015 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_32x32.png new file mode 100644 index 0000000..d4bddef Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_add.png b/SISBusiness.Module/Images/Images.breakpoint_add.png new file mode 100644 index 0000000..5eb34a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_add.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_add_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_add_32x32.png new file mode 100644 index 0000000..9126d3e Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_delete.png b/SISBusiness.Module/Images/Images.breakpoint_delete.png new file mode 100644 index 0000000..f5a179b Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_delete.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_delete_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_delete_32x32.png new file mode 100644 index 0000000..e0cd91b Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_down.png b/SISBusiness.Module/Images/Images.breakpoint_down.png new file mode 100644 index 0000000..194b0c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_down.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_down_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_down_32x32.png new file mode 100644 index 0000000..afffd80 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_find.png b/SISBusiness.Module/Images/Images.breakpoint_find.png new file mode 100644 index 0000000..57d1685 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_find.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_find_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_find_32x32.png new file mode 100644 index 0000000..5c6566e Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_into.png b/SISBusiness.Module/Images/Images.breakpoint_into.png new file mode 100644 index 0000000..1532902 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_into.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_into_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_into_32x32.png new file mode 100644 index 0000000..3cf7b0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_new.png b/SISBusiness.Module/Images/Images.breakpoint_new.png new file mode 100644 index 0000000..d4b39cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_new.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_new_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_new_32x32.png new file mode 100644 index 0000000..14091f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_run.png b/SISBusiness.Module/Images/Images.breakpoint_run.png new file mode 100644 index 0000000..ff5e0c6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_run.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_run_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_run_32x32.png new file mode 100644 index 0000000..a9b44aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_selection.png b/SISBusiness.Module/Images/Images.breakpoint_selection.png new file mode 100644 index 0000000..4ba87e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_selection.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_selection_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_selection_32x32.png new file mode 100644 index 0000000..bc7ce6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_selection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_selection_delete.png b/SISBusiness.Module/Images/Images.breakpoint_selection_delete.png new file mode 100644 index 0000000..75bd116 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_selection_delete.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_selection_delete_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_selection_delete_32x32.png new file mode 100644 index 0000000..f657a92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_selection_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_up.png b/SISBusiness.Module/Images/Images.breakpoint_up.png new file mode 100644 index 0000000..f188e0f Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_up.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoint_up_32x32.png b/SISBusiness.Module/Images/Images.breakpoint_up_32x32.png new file mode 100644 index 0000000..ad7f959 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoint_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoints.png b/SISBusiness.Module/Images/Images.breakpoints.png new file mode 100644 index 0000000..66d953a Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoints.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoints_32x32.png b/SISBusiness.Module/Images/Images.breakpoints_32x32.png new file mode 100644 index 0000000..d456a21 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoints_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoints_delete.png b/SISBusiness.Module/Images/Images.breakpoints_delete.png new file mode 100644 index 0000000..7149fb9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoints_delete.png differ diff --git a/SISBusiness.Module/Images/Images.breakpoints_delete_32x32.png b/SISBusiness.Module/Images/Images.breakpoints_delete_32x32.png new file mode 100644 index 0000000..3f2b19e Binary files /dev/null and b/SISBusiness.Module/Images/Images.breakpoints_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.brickwall.png b/SISBusiness.Module/Images/Images.brickwall.png new file mode 100644 index 0000000..d4f2ccc Binary files /dev/null and b/SISBusiness.Module/Images/Images.brickwall.png differ diff --git a/SISBusiness.Module/Images/Images.brickwall_32x32.png b/SISBusiness.Module/Images/Images.brickwall_32x32.png new file mode 100644 index 0000000..532f64e Binary files /dev/null and b/SISBusiness.Module/Images/Images.brickwall_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase.png b/SISBusiness.Module/Images/Images.briefcase.png new file mode 100644 index 0000000..9912471 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2.png b/SISBusiness.Module/Images/Images.briefcase2.png new file mode 100644 index 0000000..f147375 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_32x32.png b/SISBusiness.Module/Images/Images.briefcase2_32x32.png new file mode 100644 index 0000000..e669d5a Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_document.png b/SISBusiness.Module/Images/Images.briefcase2_document.png new file mode 100644 index 0000000..1de7335 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_document.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_document_32x32.png b/SISBusiness.Module/Images/Images.briefcase2_document_32x32.png new file mode 100644 index 0000000..27269e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_document_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_document_del.png b/SISBusiness.Module/Images/Images.briefcase2_document_del.png new file mode 100644 index 0000000..081f956 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_document_del.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_document_del_32x32.png b/SISBusiness.Module/Images/Images.briefcase2_document_del_32x32.png new file mode 100644 index 0000000..98ede67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_document_del_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_view.png b/SISBusiness.Module/Images/Images.briefcase2_view.png new file mode 100644 index 0000000..2459338 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_view.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase2_view_32x32.png b/SISBusiness.Module/Images/Images.briefcase2_view_32x32.png new file mode 100644 index 0000000..b924d6f Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase2_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_32x32.png b/SISBusiness.Module/Images/Images.briefcase_32x32.png new file mode 100644 index 0000000..49b2395 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_document.png b/SISBusiness.Module/Images/Images.briefcase_document.png new file mode 100644 index 0000000..a86d61f Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_document.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_document_32x32.png b/SISBusiness.Module/Images/Images.briefcase_document_32x32.png new file mode 100644 index 0000000..98576f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_document_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_into.png b/SISBusiness.Module/Images/Images.briefcase_into.png new file mode 100644 index 0000000..138752c Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_into.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_into_32x32.png b/SISBusiness.Module/Images/Images.briefcase_into_32x32.png new file mode 100644 index 0000000..bc1e8ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_out.png b/SISBusiness.Module/Images/Images.briefcase_out.png new file mode 100644 index 0000000..7a16f11 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_out.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_out_32x32.png b/SISBusiness.Module/Images/Images.briefcase_out_32x32.png new file mode 100644 index 0000000..4dad1f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_view.png b/SISBusiness.Module/Images/Images.briefcase_view.png new file mode 100644 index 0000000..c115bbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_view.png differ diff --git a/SISBusiness.Module/Images/Images.briefcase_view_32x32.png b/SISBusiness.Module/Images/Images.briefcase_view_32x32.png new file mode 100644 index 0000000..0c1d2f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.briefcase_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.brush1.png b/SISBusiness.Module/Images/Images.brush1.png new file mode 100644 index 0000000..4bf6220 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush1.png differ diff --git a/SISBusiness.Module/Images/Images.brush1_32x32.png b/SISBusiness.Module/Images/Images.brush1_32x32.png new file mode 100644 index 0000000..d69e5b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.brush2.png b/SISBusiness.Module/Images/Images.brush2.png new file mode 100644 index 0000000..2a96872 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush2.png differ diff --git a/SISBusiness.Module/Images/Images.brush2_32x32.png b/SISBusiness.Module/Images/Images.brush2_32x32.png new file mode 100644 index 0000000..88e3b63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.brush3.png b/SISBusiness.Module/Images/Images.brush3.png new file mode 100644 index 0000000..12b349f Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush3.png differ diff --git a/SISBusiness.Module/Images/Images.brush3_32x32.png b/SISBusiness.Module/Images/Images.brush3_32x32.png new file mode 100644 index 0000000..4e11426 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.brush4.png b/SISBusiness.Module/Images/Images.brush4.png new file mode 100644 index 0000000..a980bd7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush4.png differ diff --git a/SISBusiness.Module/Images/Images.brush4_32x32.png b/SISBusiness.Module/Images/Images.brush4_32x32.png new file mode 100644 index 0000000..4792697 Binary files /dev/null and b/SISBusiness.Module/Images/Images.brush4_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bug-mail.png b/SISBusiness.Module/Images/Images.bug-mail.png new file mode 100644 index 0000000..2de48a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug-mail.png differ diff --git a/SISBusiness.Module/Images/Images.bug-mail_32x32.png b/SISBusiness.Module/Images/Images.bug-mail_32x32.png new file mode 100644 index 0000000..3e16497 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug-mail_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bug_green.png b/SISBusiness.Module/Images/Images.bug_green.png new file mode 100644 index 0000000..c73cc18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_green.png differ diff --git a/SISBusiness.Module/Images/Images.bug_green_32x32.png b/SISBusiness.Module/Images/Images.bug_green_32x32.png new file mode 100644 index 0000000..1b3bd4a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bug_red.png b/SISBusiness.Module/Images/Images.bug_red.png new file mode 100644 index 0000000..cbaaf4f Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_red.png differ diff --git a/SISBusiness.Module/Images/Images.bug_red_32x32.png b/SISBusiness.Module/Images/Images.bug_red_32x32.png new file mode 100644 index 0000000..ee67e9a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bug_yellow.png b/SISBusiness.Module/Images/Images.bug_yellow.png new file mode 100644 index 0000000..9ee49be Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.bug_yellow_32x32.png b/SISBusiness.Module/Images/Images.bug_yellow_32x32.png new file mode 100644 index 0000000..cadb19b Binary files /dev/null and b/SISBusiness.Module/Images/Images.bug_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_blue.png b/SISBusiness.Module/Images/Images.bullet_ball_blue.png new file mode 100644 index 0000000..70d7e29 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_blue.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_blue_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_blue_32x32.png new file mode 100644 index 0000000..cd95033 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_blue.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_blue.png new file mode 100644 index 0000000..7908ed4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_blue.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_blue_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_blue_32x32.png new file mode 100644 index 0000000..5dce594 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_green.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_green.png new file mode 100644 index 0000000..05b915d Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_green.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_green_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_green_32x32.png new file mode 100644 index 0000000..d0e8831 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_red.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_red.png new file mode 100644 index 0000000..842df4b Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_red.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_red_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_red_32x32.png new file mode 100644 index 0000000..e27a9c5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow.png new file mode 100644 index 0000000..b09d1a4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow_32x32.png new file mode 100644 index 0000000..03ba435 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_glass_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_green.png b/SISBusiness.Module/Images/Images.bullet_ball_green.png new file mode 100644 index 0000000..7b87bc0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_green.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_green_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_green_32x32.png new file mode 100644 index 0000000..d819486 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_red.png b/SISBusiness.Module/Images/Images.bullet_ball_red.png new file mode 100644 index 0000000..d5b0e18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_red.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_red_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_red_32x32.png new file mode 100644 index 0000000..368923c Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_yellow.png b/SISBusiness.Module/Images/Images.bullet_ball_yellow.png new file mode 100644 index 0000000..aefac48 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_ball_yellow_32x32.png b/SISBusiness.Module/Images/Images.bullet_ball_yellow_32x32.png new file mode 100644 index 0000000..f18eed8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_ball_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_blue.png b/SISBusiness.Module/Images/Images.bullet_square_blue.png new file mode 100644 index 0000000..c278d12 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_blue.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_blue_32x32.png b/SISBusiness.Module/Images/Images.bullet_square_blue_32x32.png new file mode 100644 index 0000000..cc964c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_green.png b/SISBusiness.Module/Images/Images.bullet_square_green.png new file mode 100644 index 0000000..4bf9084 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_green.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_green_32x32.png b/SISBusiness.Module/Images/Images.bullet_square_green_32x32.png new file mode 100644 index 0000000..76108f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_red.png b/SISBusiness.Module/Images/Images.bullet_square_red.png new file mode 100644 index 0000000..07078ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_red.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_red_32x32.png b/SISBusiness.Module/Images/Images.bullet_square_red_32x32.png new file mode 100644 index 0000000..70989b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_yellow.png b/SISBusiness.Module/Images/Images.bullet_square_yellow.png new file mode 100644 index 0000000..8b86a4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_square_yellow_32x32.png b/SISBusiness.Module/Images/Images.bullet_square_yellow_32x32.png new file mode 100644 index 0000000..c978812 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_square_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_blue.png b/SISBusiness.Module/Images/Images.bullet_triangle_blue.png new file mode 100644 index 0000000..7146abf Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_blue.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_blue_32x32.png b/SISBusiness.Module/Images/Images.bullet_triangle_blue_32x32.png new file mode 100644 index 0000000..e65cf2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_green.png b/SISBusiness.Module/Images/Images.bullet_triangle_green.png new file mode 100644 index 0000000..9626b03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_green.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_green_32x32.png b/SISBusiness.Module/Images/Images.bullet_triangle_green_32x32.png new file mode 100644 index 0000000..2ab32be Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_red.png b/SISBusiness.Module/Images/Images.bullet_triangle_red.png new file mode 100644 index 0000000..b1712d3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_red.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_red_32x32.png b/SISBusiness.Module/Images/Images.bullet_triangle_red_32x32.png new file mode 100644 index 0000000..cca971a Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_yellow.png b/SISBusiness.Module/Images/Images.bullet_triangle_yellow.png new file mode 100644 index 0000000..13ab168 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.bullet_triangle_yellow_32x32.png b/SISBusiness.Module/Images/Images.bullet_triangle_yellow_32x32.png new file mode 100644 index 0000000..79012d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullet_triangle_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.bullets.png b/SISBusiness.Module/Images/Images.bullets.png new file mode 100644 index 0000000..fdf4c10 Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullets.png differ diff --git a/SISBusiness.Module/Images/Images.bullets_32x32.png b/SISBusiness.Module/Images/Images.bullets_32x32.png new file mode 100644 index 0000000..598fcbd Binary files /dev/null and b/SISBusiness.Module/Images/Images.bullets_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman.png b/SISBusiness.Module/Images/Images.businessman.png new file mode 100644 index 0000000..9675e40 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman.png differ diff --git a/SISBusiness.Module/Images/Images.businessman2.png b/SISBusiness.Module/Images/Images.businessman2.png new file mode 100644 index 0000000..0b3bbf7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman2.png differ diff --git a/SISBusiness.Module/Images/Images.businessman2_32x32.png b/SISBusiness.Module/Images/Images.businessman2_32x32.png new file mode 100644 index 0000000..8f1b207 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_32x32.png b/SISBusiness.Module/Images/Images.businessman_32x32.png new file mode 100644 index 0000000..836bbb5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_add.png b/SISBusiness.Module/Images/Images.businessman_add.png new file mode 100644 index 0000000..453324e Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_add.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_add_32x32.png b/SISBusiness.Module/Images/Images.businessman_add_32x32.png new file mode 100644 index 0000000..121db83 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_delete.png b/SISBusiness.Module/Images/Images.businessman_delete.png new file mode 100644 index 0000000..67502b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_delete.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_delete_32x32.png b/SISBusiness.Module/Images/Images.businessman_delete_32x32.png new file mode 100644 index 0000000..1861955 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_find.png b/SISBusiness.Module/Images/Images.businessman_find.png new file mode 100644 index 0000000..ce77920 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_find.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_find_32x32.png b/SISBusiness.Module/Images/Images.businessman_find_32x32.png new file mode 100644 index 0000000..9fbc36a Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_preferences.png b/SISBusiness.Module/Images/Images.businessman_preferences.png new file mode 100644 index 0000000..9e8fea1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_preferences_32x32.png b/SISBusiness.Module/Images/Images.businessman_preferences_32x32.png new file mode 100644 index 0000000..9602192 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_view.png b/SISBusiness.Module/Images/Images.businessman_view.png new file mode 100644 index 0000000..2f919c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_view.png differ diff --git a/SISBusiness.Module/Images/Images.businessman_view_32x32.png b/SISBusiness.Module/Images/Images.businessman_view_32x32.png new file mode 100644 index 0000000..30bf9ed Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessman_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.businessmen.png b/SISBusiness.Module/Images/Images.businessmen.png new file mode 100644 index 0000000..4e56ed3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessmen.png differ diff --git a/SISBusiness.Module/Images/Images.businessmen_32x32.png b/SISBusiness.Module/Images/Images.businessmen_32x32.png new file mode 100644 index 0000000..ec22958 Binary files /dev/null and b/SISBusiness.Module/Images/Images.businessmen_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cabinet.png b/SISBusiness.Module/Images/Images.cabinet.png new file mode 100644 index 0000000..97f7260 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cabinet.png differ diff --git a/SISBusiness.Module/Images/Images.cabinet_32x32.png b/SISBusiness.Module/Images/Images.cabinet_32x32.png new file mode 100644 index 0000000..fbf62a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cabinet_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.calculator.png b/SISBusiness.Module/Images/Images.calculator.png new file mode 100644 index 0000000..01e6864 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calculator.png differ diff --git a/SISBusiness.Module/Images/Images.calculator_32x32.png b/SISBusiness.Module/Images/Images.calculator_32x32.png new file mode 100644 index 0000000..509c41b Binary files /dev/null and b/SISBusiness.Module/Images/Images.calculator_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.calendar.png b/SISBusiness.Module/Images/Images.calendar.png new file mode 100644 index 0000000..7ca043f Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_32x32.png b/SISBusiness.Module/Images/Images.calendar_32x32.png new file mode 100644 index 0000000..0da1e89 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_down.png b/SISBusiness.Module/Images/Images.calendar_down.png new file mode 100644 index 0000000..8bbf405 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_down.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_down_32x32.png b/SISBusiness.Module/Images/Images.calendar_down_32x32.png new file mode 100644 index 0000000..e8adde7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_preferences.png b/SISBusiness.Module/Images/Images.calendar_preferences.png new file mode 100644 index 0000000..601493b Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_preferences_32x32.png b/SISBusiness.Module/Images/Images.calendar_preferences_32x32.png new file mode 100644 index 0000000..b30064d Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_up.png b/SISBusiness.Module/Images/Images.calendar_up.png new file mode 100644 index 0000000..46dbe03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_up.png differ diff --git a/SISBusiness.Module/Images/Images.calendar_up_32x32.png b/SISBusiness.Module/Images/Images.calendar_up_32x32.png new file mode 100644 index 0000000..1082b91 Binary files /dev/null and b/SISBusiness.Module/Images/Images.calendar_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.camera.png b/SISBusiness.Module/Images/Images.camera.png new file mode 100644 index 0000000..1fc2a0a Binary files /dev/null and b/SISBusiness.Module/Images/Images.camera.png differ diff --git a/SISBusiness.Module/Images/Images.camera2.png b/SISBusiness.Module/Images/Images.camera2.png new file mode 100644 index 0000000..fa16b6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.camera2.png differ diff --git a/SISBusiness.Module/Images/Images.camera2_32x32.png b/SISBusiness.Module/Images/Images.camera2_32x32.png new file mode 100644 index 0000000..7396585 Binary files /dev/null and b/SISBusiness.Module/Images/Images.camera2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.camera_32x32.png b/SISBusiness.Module/Images/Images.camera_32x32.png new file mode 100644 index 0000000..b8c87df Binary files /dev/null and b/SISBusiness.Module/Images/Images.camera_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.candle.png b/SISBusiness.Module/Images/Images.candle.png new file mode 100644 index 0000000..35ce3d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.candle.png differ diff --git a/SISBusiness.Module/Images/Images.candle_32x32.png b/SISBusiness.Module/Images/Images.candle_32x32.png new file mode 100644 index 0000000..d753505 Binary files /dev/null and b/SISBusiness.Module/Images/Images.candle_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_blue.png b/SISBusiness.Module/Images/Images.car_compact_blue.png new file mode 100644 index 0000000..8036b4a Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_blue.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_blue_32x32.png b/SISBusiness.Module/Images/Images.car_compact_blue_32x32.png new file mode 100644 index 0000000..1264ae7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_green.png b/SISBusiness.Module/Images/Images.car_compact_green.png new file mode 100644 index 0000000..8bc73a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_green.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_green_32x32.png b/SISBusiness.Module/Images/Images.car_compact_green_32x32.png new file mode 100644 index 0000000..03da3ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_grey.png b/SISBusiness.Module/Images/Images.car_compact_grey.png new file mode 100644 index 0000000..7bbcf61 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_grey.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_grey_32x32.png b/SISBusiness.Module/Images/Images.car_compact_grey_32x32.png new file mode 100644 index 0000000..cb309b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_orange.png b/SISBusiness.Module/Images/Images.car_compact_orange.png new file mode 100644 index 0000000..dcab898 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_orange.png differ diff --git a/SISBusiness.Module/Images/Images.car_compact_orange_32x32.png b/SISBusiness.Module/Images/Images.car_compact_orange_32x32.png new file mode 100644 index 0000000..3a9ff02 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_compact_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_blue.png b/SISBusiness.Module/Images/Images.car_sedan_blue.png new file mode 100644 index 0000000..bedd6c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_blue.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_blue_32x32.png b/SISBusiness.Module/Images/Images.car_sedan_blue_32x32.png new file mode 100644 index 0000000..8477a4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_green.png b/SISBusiness.Module/Images/Images.car_sedan_green.png new file mode 100644 index 0000000..d9c4018 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_green.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_green_32x32.png b/SISBusiness.Module/Images/Images.car_sedan_green_32x32.png new file mode 100644 index 0000000..b317d1d Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_grey.png b/SISBusiness.Module/Images/Images.car_sedan_grey.png new file mode 100644 index 0000000..0f6ef1a Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_grey.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_grey_32x32.png b/SISBusiness.Module/Images/Images.car_sedan_grey_32x32.png new file mode 100644 index 0000000..9933950 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_orange.png b/SISBusiness.Module/Images/Images.car_sedan_orange.png new file mode 100644 index 0000000..709969c Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_orange.png differ diff --git a/SISBusiness.Module/Images/Images.car_sedan_orange_32x32.png b/SISBusiness.Module/Images/Images.car_sedan_orange_32x32.png new file mode 100644 index 0000000..ad4b863 Binary files /dev/null and b/SISBusiness.Module/Images/Images.car_sedan_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.carabiner.png b/SISBusiness.Module/Images/Images.carabiner.png new file mode 100644 index 0000000..80e1f99 Binary files /dev/null and b/SISBusiness.Module/Images/Images.carabiner.png differ diff --git a/SISBusiness.Module/Images/Images.carabiner_32x32.png b/SISBusiness.Module/Images/Images.carabiner_32x32.png new file mode 100644 index 0000000..15e0bfd Binary files /dev/null and b/SISBusiness.Module/Images/Images.carabiner_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cashier.png b/SISBusiness.Module/Images/Images.cashier.png new file mode 100644 index 0000000..ff7c273 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cashier.png differ diff --git a/SISBusiness.Module/Images/Images.cashier_32x32.png b/SISBusiness.Module/Images/Images.cashier_32x32.png new file mode 100644 index 0000000..76db200 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cashier_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.castle.png b/SISBusiness.Module/Images/Images.castle.png new file mode 100644 index 0000000..5f5f268 Binary files /dev/null and b/SISBusiness.Module/Images/Images.castle.png differ diff --git a/SISBusiness.Module/Images/Images.castle_32x32.png b/SISBusiness.Module/Images/Images.castle_32x32.png new file mode 100644 index 0000000..fb4758a Binary files /dev/null and b/SISBusiness.Module/Images/Images.castle_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd.png b/SISBusiness.Module/Images/Images.cd.png new file mode 100644 index 0000000..4875372 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd.png differ diff --git a/SISBusiness.Module/Images/Images.cd_32x32.png b/SISBusiness.Module/Images/Images.cd_32x32.png new file mode 100644 index 0000000..0de4fbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_add.png b/SISBusiness.Module/Images/Images.cd_add.png new file mode 100644 index 0000000..75361cd Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_add.png differ diff --git a/SISBusiness.Module/Images/Images.cd_add_32x32.png b/SISBusiness.Module/Images/Images.cd_add_32x32.png new file mode 100644 index 0000000..c0b0d13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_delete.png b/SISBusiness.Module/Images/Images.cd_delete.png new file mode 100644 index 0000000..8c3f8ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cd_delete_32x32.png b/SISBusiness.Module/Images/Images.cd_delete_32x32.png new file mode 100644 index 0000000..63bec73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_gold.png b/SISBusiness.Module/Images/Images.cd_gold.png new file mode 100644 index 0000000..e0f6eea Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_gold.png differ diff --git a/SISBusiness.Module/Images/Images.cd_gold_32x32.png b/SISBusiness.Module/Images/Images.cd_gold_32x32.png new file mode 100644 index 0000000..99b9cb3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_gold_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_into.png b/SISBusiness.Module/Images/Images.cd_into.png new file mode 100644 index 0000000..c19bce6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_into.png differ diff --git a/SISBusiness.Module/Images/Images.cd_into_32x32.png b/SISBusiness.Module/Images/Images.cd_into_32x32.png new file mode 100644 index 0000000..3abbd65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_music.png b/SISBusiness.Module/Images/Images.cd_music.png new file mode 100644 index 0000000..b9a17c5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_music.png differ diff --git a/SISBusiness.Module/Images/Images.cd_music_32x32.png b/SISBusiness.Module/Images/Images.cd_music_32x32.png new file mode 100644 index 0000000..21e67c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_music_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_new.png b/SISBusiness.Module/Images/Images.cd_new.png new file mode 100644 index 0000000..5816e5f Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_new.png differ diff --git a/SISBusiness.Module/Images/Images.cd_new_32x32.png b/SISBusiness.Module/Images/Images.cd_new_32x32.png new file mode 100644 index 0000000..f4d5b97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_out.png b/SISBusiness.Module/Images/Images.cd_out.png new file mode 100644 index 0000000..7fdc228 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_out.png differ diff --git a/SISBusiness.Module/Images/Images.cd_out_32x32.png b/SISBusiness.Module/Images/Images.cd_out_32x32.png new file mode 100644 index 0000000..46bb8ee Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_pause.png b/SISBusiness.Module/Images/Images.cd_pause.png new file mode 100644 index 0000000..837b60b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_pause.png differ diff --git a/SISBusiness.Module/Images/Images.cd_pause_32x32.png b/SISBusiness.Module/Images/Images.cd_pause_32x32.png new file mode 100644 index 0000000..6eac611 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_run.png b/SISBusiness.Module/Images/Images.cd_run.png new file mode 100644 index 0000000..9241762 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_run.png differ diff --git a/SISBusiness.Module/Images/Images.cd_run_32x32.png b/SISBusiness.Module/Images/Images.cd_run_32x32.png new file mode 100644 index 0000000..08393f5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cd_stop.png b/SISBusiness.Module/Images/Images.cd_stop.png new file mode 100644 index 0000000..ad8ac56 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_stop.png differ diff --git a/SISBusiness.Module/Images/Images.cd_stop_32x32.png b/SISBusiness.Module/Images/Images.cd_stop_32x32.png new file mode 100644 index 0000000..2e82012 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cd_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate.png b/SISBusiness.Module/Images/Images.certificate.png new file mode 100644 index 0000000..e9cdf99 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_32x32.png b/SISBusiness.Module/Images/Images.certificate_32x32.png new file mode 100644 index 0000000..c39aa02 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_add.png b/SISBusiness.Module/Images/Images.certificate_add.png new file mode 100644 index 0000000..0a0c8bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_add.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_add_32x32.png b/SISBusiness.Module/Images/Images.certificate_add_32x32.png new file mode 100644 index 0000000..d2b542a Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_broken.png b/SISBusiness.Module/Images/Images.certificate_broken.png new file mode 100644 index 0000000..2f43c8a Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_broken.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_broken_32x32.png b/SISBusiness.Module/Images/Images.certificate_broken_32x32.png new file mode 100644 index 0000000..d514f2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_broken_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_delete.png b/SISBusiness.Module/Images/Images.certificate_delete.png new file mode 100644 index 0000000..0da2d7b Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_delete.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_delete_32x32.png b/SISBusiness.Module/Images/Images.certificate_delete_32x32.png new file mode 100644 index 0000000..5543cfb Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_error.png b/SISBusiness.Module/Images/Images.certificate_error.png new file mode 100644 index 0000000..49e20d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_error.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_error_32x32.png b/SISBusiness.Module/Images/Images.certificate_error_32x32.png new file mode 100644 index 0000000..5c91919 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_information.png b/SISBusiness.Module/Images/Images.certificate_information.png new file mode 100644 index 0000000..62209d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_information.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_information_32x32.png b/SISBusiness.Module/Images/Images.certificate_information_32x32.png new file mode 100644 index 0000000..3f220c6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_new.png b/SISBusiness.Module/Images/Images.certificate_new.png new file mode 100644 index 0000000..72de320 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_new.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_new_32x32.png b/SISBusiness.Module/Images/Images.certificate_new_32x32.png new file mode 100644 index 0000000..2763163 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_ok.png b/SISBusiness.Module/Images/Images.certificate_ok.png new file mode 100644 index 0000000..904d401 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_ok.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_ok_32x32.png b/SISBusiness.Module/Images/Images.certificate_ok_32x32.png new file mode 100644 index 0000000..3000800 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_preferences.png b/SISBusiness.Module/Images/Images.certificate_preferences.png new file mode 100644 index 0000000..b842314 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_preferences_32x32.png b/SISBusiness.Module/Images/Images.certificate_preferences_32x32.png new file mode 100644 index 0000000..04296f6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_refresh.png b/SISBusiness.Module/Images/Images.certificate_refresh.png new file mode 100644 index 0000000..c664330 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_refresh_32x32.png b/SISBusiness.Module/Images/Images.certificate_refresh_32x32.png new file mode 100644 index 0000000..b1e46c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_view.png b/SISBusiness.Module/Images/Images.certificate_view.png new file mode 100644 index 0000000..37926f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_view.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_view_32x32.png b/SISBusiness.Module/Images/Images.certificate_view_32x32.png new file mode 100644 index 0000000..cf3f18a Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_warning.png b/SISBusiness.Module/Images/Images.certificate_warning.png new file mode 100644 index 0000000..0539058 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_warning.png differ diff --git a/SISBusiness.Module/Images/Images.certificate_warning_32x32.png b/SISBusiness.Module/Images/Images.certificate_warning_32x32.png new file mode 100644 index 0000000..e265c78 Binary files /dev/null and b/SISBusiness.Module/Images/Images.certificate_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.chart.png b/SISBusiness.Module/Images/Images.chart.png new file mode 100644 index 0000000..586a9e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.chart.png differ diff --git a/SISBusiness.Module/Images/Images.chart_32x32.png b/SISBusiness.Module/Images/Images.chart_32x32.png new file mode 100644 index 0000000..88ebcdf Binary files /dev/null and b/SISBusiness.Module/Images/Images.chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.check.png b/SISBusiness.Module/Images/Images.check.png new file mode 100644 index 0000000..b5ddebc Binary files /dev/null and b/SISBusiness.Module/Images/Images.check.png differ diff --git a/SISBusiness.Module/Images/Images.check2.png b/SISBusiness.Module/Images/Images.check2.png new file mode 100644 index 0000000..57c216b Binary files /dev/null and b/SISBusiness.Module/Images/Images.check2.png differ diff --git a/SISBusiness.Module/Images/Images.check2_32x32.png b/SISBusiness.Module/Images/Images.check2_32x32.png new file mode 100644 index 0000000..f5a01b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.check2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.check_32x32.png b/SISBusiness.Module/Images/Images.check_32x32.png new file mode 100644 index 0000000..df4f04d Binary files /dev/null and b/SISBusiness.Module/Images/Images.check_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.checks.png b/SISBusiness.Module/Images/Images.checks.png new file mode 100644 index 0000000..fde4624 Binary files /dev/null and b/SISBusiness.Module/Images/Images.checks.png differ diff --git a/SISBusiness.Module/Images/Images.checks_32x32.png b/SISBusiness.Module/Images/Images.checks_32x32.png new file mode 100644 index 0000000..676fef1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.checks_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.chest.png b/SISBusiness.Module/Images/Images.chest.png new file mode 100644 index 0000000..c02ff40 Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest.png differ diff --git a/SISBusiness.Module/Images/Images.chest_32x32.png b/SISBusiness.Module/Images/Images.chest_32x32.png new file mode 100644 index 0000000..156540e Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.chest_into.png b/SISBusiness.Module/Images/Images.chest_into.png new file mode 100644 index 0000000..184f7bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest_into.png differ diff --git a/SISBusiness.Module/Images/Images.chest_into_32x32.png b/SISBusiness.Module/Images/Images.chest_into_32x32.png new file mode 100644 index 0000000..69249f5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.chest_out.png b/SISBusiness.Module/Images/Images.chest_out.png new file mode 100644 index 0000000..94fa7ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest_out.png differ diff --git a/SISBusiness.Module/Images/Images.chest_out_32x32.png b/SISBusiness.Module/Images/Images.chest_out_32x32.png new file mode 100644 index 0000000..3d6ec5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.chest_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.chrystal_ball.png b/SISBusiness.Module/Images/Images.chrystal_ball.png new file mode 100644 index 0000000..ae91fac Binary files /dev/null and b/SISBusiness.Module/Images/Images.chrystal_ball.png differ diff --git a/SISBusiness.Module/Images/Images.chrystal_ball_32x32.png b/SISBusiness.Module/Images/Images.chrystal_ball_32x32.png new file mode 100644 index 0000000..7f68bb8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.chrystal_ball_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.client_network.png b/SISBusiness.Module/Images/Images.client_network.png new file mode 100644 index 0000000..ee3c7f5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.client_network.png differ diff --git a/SISBusiness.Module/Images/Images.client_network_32x32.png b/SISBusiness.Module/Images/Images.client_network_32x32.png new file mode 100644 index 0000000..5c2b5b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.client_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clients.png b/SISBusiness.Module/Images/Images.clients.png new file mode 100644 index 0000000..a203f85 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clients.png differ diff --git a/SISBusiness.Module/Images/Images.clients_32x32.png b/SISBusiness.Module/Images/Images.clients_32x32.png new file mode 100644 index 0000000..77ad6eb Binary files /dev/null and b/SISBusiness.Module/Images/Images.clients_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard.png b/SISBusiness.Module/Images/Images.clipboard.png new file mode 100644 index 0000000..e450f11 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_32x32.png b/SISBusiness.Module/Images/Images.clipboard_32x32.png new file mode 100644 index 0000000..b8fd577 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_empty.png b/SISBusiness.Module/Images/Images.clipboard_empty.png new file mode 100644 index 0000000..58e9144 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_empty.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_empty_32x32.png b/SISBusiness.Module/Images/Images.clipboard_empty_32x32.png new file mode 100644 index 0000000..558e37d Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_empty_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_next.png b/SISBusiness.Module/Images/Images.clipboard_next.png new file mode 100644 index 0000000..1ffec49 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_next.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_next_32x32.png b/SISBusiness.Module/Images/Images.clipboard_next_32x32.png new file mode 100644 index 0000000..d467364 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_next_down.png b/SISBusiness.Module/Images/Images.clipboard_next_down.png new file mode 100644 index 0000000..30a2696 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_next_down.png differ diff --git a/SISBusiness.Module/Images/Images.clipboard_next_down_32x32.png b/SISBusiness.Module/Images/Images.clipboard_next_down_32x32.png new file mode 100644 index 0000000..16eb319 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clipboard_next_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock.png b/SISBusiness.Module/Images/Images.clock.png new file mode 100644 index 0000000..2a4705a Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock.png differ diff --git a/SISBusiness.Module/Images/Images.clock_32x32.png b/SISBusiness.Module/Images/Images.clock_32x32.png new file mode 100644 index 0000000..e502e1a Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_pause.png b/SISBusiness.Module/Images/Images.clock_pause.png new file mode 100644 index 0000000..512fc17 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_pause.png differ diff --git a/SISBusiness.Module/Images/Images.clock_pause_32x32.png b/SISBusiness.Module/Images/Images.clock_pause_32x32.png new file mode 100644 index 0000000..3a5362a Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_preferences.png b/SISBusiness.Module/Images/Images.clock_preferences.png new file mode 100644 index 0000000..6b5e654 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.clock_preferences_32x32.png b/SISBusiness.Module/Images/Images.clock_preferences_32x32.png new file mode 100644 index 0000000..1d57153 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_refresh.png b/SISBusiness.Module/Images/Images.clock_refresh.png new file mode 100644 index 0000000..233e7fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.clock_refresh_32x32.png b/SISBusiness.Module/Images/Images.clock_refresh_32x32.png new file mode 100644 index 0000000..232906b Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_reset.png b/SISBusiness.Module/Images/Images.clock_reset.png new file mode 100644 index 0000000..7c7c966 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_reset.png differ diff --git a/SISBusiness.Module/Images/Images.clock_reset_32x32.png b/SISBusiness.Module/Images/Images.clock_reset_32x32.png new file mode 100644 index 0000000..1077d76 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_reset_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_run.png b/SISBusiness.Module/Images/Images.clock_run.png new file mode 100644 index 0000000..8319742 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_run.png differ diff --git a/SISBusiness.Module/Images/Images.clock_run_32x32.png b/SISBusiness.Module/Images/Images.clock_run_32x32.png new file mode 100644 index 0000000..00fde0b Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.clock_stop.png b/SISBusiness.Module/Images/Images.clock_stop.png new file mode 100644 index 0000000..67f4913 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_stop.png differ diff --git a/SISBusiness.Module/Images/Images.clock_stop_32x32.png b/SISBusiness.Module/Images/Images.clock_stop_32x32.png new file mode 100644 index 0000000..3989c07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.clock_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean.png b/SISBusiness.Module/Images/Images.coffeebean.png new file mode 100644 index 0000000..db495c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_32x32.png new file mode 100644 index 0000000..f1048d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_add.png b/SISBusiness.Module/Images/Images.coffeebean_add.png new file mode 100644 index 0000000..96d3f43 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_add.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_add_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_add_32x32.png new file mode 100644 index 0000000..3a92461 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_delete.png b/SISBusiness.Module/Images/Images.coffeebean_delete.png new file mode 100644 index 0000000..d29c6dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_delete.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_delete_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_delete_32x32.png new file mode 100644 index 0000000..dc6086c Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise.png new file mode 100644 index 0000000..9ff6ec1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_32x32.png new file mode 100644 index 0000000..862a14b Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_add.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_add.png new file mode 100644 index 0000000..c0c6bb4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_add.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_add_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_add_32x32.png new file mode 100644 index 0000000..d9dc426 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete.png new file mode 100644 index 0000000..e166ff7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete_32x32.png new file mode 100644 index 0000000..8394611 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_new.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_new.png new file mode 100644 index 0000000..8b33df1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_new.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_new_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_new_32x32.png new file mode 100644 index 0000000..c2c436e Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences.png new file mode 100644 index 0000000..7aca5d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences_32x32.png new file mode 100644 index 0000000..9aef170 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_view.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_view.png new file mode 100644 index 0000000..25b885e Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_view.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_enterprise_view_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_enterprise_view_32x32.png new file mode 100644 index 0000000..1f29cbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_enterprise_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_new.png b/SISBusiness.Module/Images/Images.coffeebean_new.png new file mode 100644 index 0000000..39e16fe Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_new.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_new_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_new_32x32.png new file mode 100644 index 0000000..cc6390b Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_preferences.png b/SISBusiness.Module/Images/Images.coffeebean_preferences.png new file mode 100644 index 0000000..0b21b05 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_preferences_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_preferences_32x32.png new file mode 100644 index 0000000..a9cca7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_view.png b/SISBusiness.Module/Images/Images.coffeebean_view.png new file mode 100644 index 0000000..c83112a Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_view.png differ diff --git a/SISBusiness.Module/Images/Images.coffeebean_view_32x32.png b/SISBusiness.Module/Images/Images.coffeebean_view_32x32.png new file mode 100644 index 0000000..0783638 Binary files /dev/null and b/SISBusiness.Module/Images/Images.coffeebean_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.colors.png b/SISBusiness.Module/Images/Images.colors.png new file mode 100644 index 0000000..2f3b082 Binary files /dev/null and b/SISBusiness.Module/Images/Images.colors.png differ diff --git a/SISBusiness.Module/Images/Images.colors_32x32.png b/SISBusiness.Module/Images/Images.colors_32x32.png new file mode 100644 index 0000000..f3cd115 Binary files /dev/null and b/SISBusiness.Module/Images/Images.colors_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column-chart.png b/SISBusiness.Module/Images/Images.column-chart.png new file mode 100644 index 0000000..fe72c01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column-chart.png differ diff --git a/SISBusiness.Module/Images/Images.column-chart_32x32.png b/SISBusiness.Module/Images/Images.column-chart_32x32.png new file mode 100644 index 0000000..375e3ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.column-chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column.png b/SISBusiness.Module/Images/Images.column.png new file mode 100644 index 0000000..2ce311a Binary files /dev/null and b/SISBusiness.Module/Images/Images.column.png differ diff --git a/SISBusiness.Module/Images/Images.column_32x32.png b/SISBusiness.Module/Images/Images.column_32x32.png new file mode 100644 index 0000000..4219b21 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column_add.png b/SISBusiness.Module/Images/Images.column_add.png new file mode 100644 index 0000000..fb72d1b Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add.png differ diff --git a/SISBusiness.Module/Images/Images.column_add_32x32.png b/SISBusiness.Module/Images/Images.column_add_32x32.png new file mode 100644 index 0000000..d43d5b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column_add_after.png b/SISBusiness.Module/Images/Images.column_add_after.png new file mode 100644 index 0000000..5bba051 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add_after.png differ diff --git a/SISBusiness.Module/Images/Images.column_add_after_32x32.png b/SISBusiness.Module/Images/Images.column_add_after_32x32.png new file mode 100644 index 0000000..2c0a15f Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add_after_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column_add_before.png b/SISBusiness.Module/Images/Images.column_add_before.png new file mode 100644 index 0000000..e444425 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add_before.png differ diff --git a/SISBusiness.Module/Images/Images.column_add_before_32x32.png b/SISBusiness.Module/Images/Images.column_add_before_32x32.png new file mode 100644 index 0000000..b6b966f Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_add_before_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column_delete.png b/SISBusiness.Module/Images/Images.column_delete.png new file mode 100644 index 0000000..47e385f Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_delete.png differ diff --git a/SISBusiness.Module/Images/Images.column_delete_32x32.png b/SISBusiness.Module/Images/Images.column_delete_32x32.png new file mode 100644 index 0000000..cc7887b Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.column_preferences.png b/SISBusiness.Module/Images/Images.column_preferences.png new file mode 100644 index 0000000..4854ad4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.column_preferences_32x32.png b/SISBusiness.Module/Images/Images.column_preferences_32x32.png new file mode 100644 index 0000000..b8560c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.column_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.compass.png b/SISBusiness.Module/Images/Images.compass.png new file mode 100644 index 0000000..5436e73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.compass.png differ diff --git a/SISBusiness.Module/Images/Images.compass_32x32.png b/SISBusiness.Module/Images/Images.compass_32x32.png new file mode 100644 index 0000000..d8c9a67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.compass_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component.png b/SISBusiness.Module/Images/Images.component.png new file mode 100644 index 0000000..e6b7c1d Binary files /dev/null and b/SISBusiness.Module/Images/Images.component.png differ diff --git a/SISBusiness.Module/Images/Images.component_32x32.png b/SISBusiness.Module/Images/Images.component_32x32.png new file mode 100644 index 0000000..7797a2e Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_add.png b/SISBusiness.Module/Images/Images.component_add.png new file mode 100644 index 0000000..8209489 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_add.png differ diff --git a/SISBusiness.Module/Images/Images.component_add_32x32.png b/SISBusiness.Module/Images/Images.component_add_32x32.png new file mode 100644 index 0000000..95843f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_delete.png b/SISBusiness.Module/Images/Images.component_delete.png new file mode 100644 index 0000000..1d2460b Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_delete.png differ diff --git a/SISBusiness.Module/Images/Images.component_delete_32x32.png b/SISBusiness.Module/Images/Images.component_delete_32x32.png new file mode 100644 index 0000000..6d1ec59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_edit.png b/SISBusiness.Module/Images/Images.component_edit.png new file mode 100644 index 0000000..04af043 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_edit.png differ diff --git a/SISBusiness.Module/Images/Images.component_edit_32x32.png b/SISBusiness.Module/Images/Images.component_edit_32x32.png new file mode 100644 index 0000000..32d6ad2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_find.png b/SISBusiness.Module/Images/Images.component_find.png new file mode 100644 index 0000000..7a9a50b Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_find.png differ diff --git a/SISBusiness.Module/Images/Images.component_find_32x32.png b/SISBusiness.Module/Images/Images.component_find_32x32.png new file mode 100644 index 0000000..d2c5c2c Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_green.png b/SISBusiness.Module/Images/Images.component_green.png new file mode 100644 index 0000000..55a428a Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_green.png differ diff --git a/SISBusiness.Module/Images/Images.component_green_32x32.png b/SISBusiness.Module/Images/Images.component_green_32x32.png new file mode 100644 index 0000000..5de38b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_new.png b/SISBusiness.Module/Images/Images.component_new.png new file mode 100644 index 0000000..f633fbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_new.png differ diff --git a/SISBusiness.Module/Images/Images.component_new_32x32.png b/SISBusiness.Module/Images/Images.component_new_32x32.png new file mode 100644 index 0000000..dbe98da Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_preferences.png b/SISBusiness.Module/Images/Images.component_preferences.png new file mode 100644 index 0000000..9f084bb Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.component_preferences_32x32.png b/SISBusiness.Module/Images/Images.component_preferences_32x32.png new file mode 100644 index 0000000..354000a Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_red.png b/SISBusiness.Module/Images/Images.component_red.png new file mode 100644 index 0000000..fe1f8e6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_red.png differ diff --git a/SISBusiness.Module/Images/Images.component_red_32x32.png b/SISBusiness.Module/Images/Images.component_red_32x32.png new file mode 100644 index 0000000..18b21ee Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_replace.png b/SISBusiness.Module/Images/Images.component_replace.png new file mode 100644 index 0000000..fab22f8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_replace.png differ diff --git a/SISBusiness.Module/Images/Images.component_replace_32x32.png b/SISBusiness.Module/Images/Images.component_replace_32x32.png new file mode 100644 index 0000000..83c4e4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_view.png b/SISBusiness.Module/Images/Images.component_view.png new file mode 100644 index 0000000..63ef0b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_view.png differ diff --git a/SISBusiness.Module/Images/Images.component_view_32x32.png b/SISBusiness.Module/Images/Images.component_view_32x32.png new file mode 100644 index 0000000..94c8887 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.component_yellow.png b/SISBusiness.Module/Images/Images.component_yellow.png new file mode 100644 index 0000000..b64dec0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.component_yellow_32x32.png b/SISBusiness.Module/Images/Images.component_yellow_32x32.png new file mode 100644 index 0000000..12b029c Binary files /dev/null and b/SISBusiness.Module/Images/Images.component_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.components.png b/SISBusiness.Module/Images/Images.components.png new file mode 100644 index 0000000..fd34657 Binary files /dev/null and b/SISBusiness.Module/Images/Images.components.png differ diff --git a/SISBusiness.Module/Images/Images.components_32x32.png b/SISBusiness.Module/Images/Images.components_32x32.png new file mode 100644 index 0000000..c04ee2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.components_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.console.png b/SISBusiness.Module/Images/Images.console.png new file mode 100644 index 0000000..ab51824 Binary files /dev/null and b/SISBusiness.Module/Images/Images.console.png differ diff --git a/SISBusiness.Module/Images/Images.console_32x32.png b/SISBusiness.Module/Images/Images.console_32x32.png new file mode 100644 index 0000000..df2ff9b Binary files /dev/null and b/SISBusiness.Module/Images/Images.console_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.console_network.png b/SISBusiness.Module/Images/Images.console_network.png new file mode 100644 index 0000000..b2a0db6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.console_network.png differ diff --git a/SISBusiness.Module/Images/Images.console_network_32x32.png b/SISBusiness.Module/Images/Images.console_network_32x32.png new file mode 100644 index 0000000..bc78309 Binary files /dev/null and b/SISBusiness.Module/Images/Images.console_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.contract.png b/SISBusiness.Module/Images/Images.contract.png new file mode 100644 index 0000000..3e48b43 Binary files /dev/null and b/SISBusiness.Module/Images/Images.contract.png differ diff --git a/SISBusiness.Module/Images/Images.contract_32x32.png b/SISBusiness.Module/Images/Images.contract_32x32.png new file mode 100644 index 0000000..bcbde7c Binary files /dev/null and b/SISBusiness.Module/Images/Images.contract_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_blue.png b/SISBusiness.Module/Images/Images.convertible_blue.png new file mode 100644 index 0000000..7a3a59c Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_blue.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_blue_32x32.png b/SISBusiness.Module/Images/Images.convertible_blue_32x32.png new file mode 100644 index 0000000..1502cbf Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_green.png b/SISBusiness.Module/Images/Images.convertible_green.png new file mode 100644 index 0000000..131b8f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_green.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_green_32x32.png b/SISBusiness.Module/Images/Images.convertible_green_32x32.png new file mode 100644 index 0000000..6f9ef39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_grey.png b/SISBusiness.Module/Images/Images.convertible_grey.png new file mode 100644 index 0000000..0a284dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_grey.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_grey_32x32.png b/SISBusiness.Module/Images/Images.convertible_grey_32x32.png new file mode 100644 index 0000000..0ec4fe3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_orange.png b/SISBusiness.Module/Images/Images.convertible_orange.png new file mode 100644 index 0000000..0a9b305 Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_orange.png differ diff --git a/SISBusiness.Module/Images/Images.convertible_orange_32x32.png b/SISBusiness.Module/Images/Images.convertible_orange_32x32.png new file mode 100644 index 0000000..fc3f451 Binary files /dev/null and b/SISBusiness.Module/Images/Images.convertible_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cookies.png b/SISBusiness.Module/Images/Images.cookies.png new file mode 100644 index 0000000..1ac43ee Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_32x32.png b/SISBusiness.Module/Images/Images.cookies_32x32.png new file mode 100644 index 0000000..debe1fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_delete.png b/SISBusiness.Module/Images/Images.cookies_delete.png new file mode 100644 index 0000000..f78fe36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_delete_32x32.png b/SISBusiness.Module/Images/Images.cookies_delete_32x32.png new file mode 100644 index 0000000..d4217e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_preferences.png b/SISBusiness.Module/Images/Images.cookies_preferences.png new file mode 100644 index 0000000..e6c72d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_preferences_32x32.png b/SISBusiness.Module/Images/Images.cookies_preferences_32x32.png new file mode 100644 index 0000000..50969b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_view.png b/SISBusiness.Module/Images/Images.cookies_view.png new file mode 100644 index 0000000..ac6f170 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_view.png differ diff --git a/SISBusiness.Module/Images/Images.cookies_view_32x32.png b/SISBusiness.Module/Images/Images.cookies_view_32x32.png new file mode 100644 index 0000000..198e177 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cookies_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.copy.png b/SISBusiness.Module/Images/Images.copy.png new file mode 100644 index 0000000..eb9f5b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.copy.png differ diff --git a/SISBusiness.Module/Images/Images.copy_32x32.png b/SISBusiness.Module/Images/Images.copy_32x32.png new file mode 100644 index 0000000..d66eb7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.copy_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.corn.png b/SISBusiness.Module/Images/Images.corn.png new file mode 100644 index 0000000..c8932f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.corn.png differ diff --git a/SISBusiness.Module/Images/Images.corn_32x32.png b/SISBusiness.Module/Images/Images.corn_32x32.png new file mode 100644 index 0000000..ddd4d21 Binary files /dev/null and b/SISBusiness.Module/Images/Images.corn_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu.png b/SISBusiness.Module/Images/Images.cpu.png new file mode 100644 index 0000000..fb1054b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_32x32.png b/SISBusiness.Module/Images/Images.cpu_32x32.png new file mode 100644 index 0000000..fa5ea2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_connection.png b/SISBusiness.Module/Images/Images.cpu_connection.png new file mode 100644 index 0000000..ca5bb7c Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_connection.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_connection_32x32.png b/SISBusiness.Module/Images/Images.cpu_connection_32x32.png new file mode 100644 index 0000000..2129ed2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_preferences.png b/SISBusiness.Module/Images/Images.cpu_preferences.png new file mode 100644 index 0000000..2ad6f82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_preferences_32x32.png b/SISBusiness.Module/Images/Images.cpu_preferences_32x32.png new file mode 100644 index 0000000..541fb57 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_run.png b/SISBusiness.Module/Images/Images.cpu_run.png new file mode 100644 index 0000000..1b43393 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_run.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_run_32x32.png b/SISBusiness.Module/Images/Images.cpu_run_32x32.png new file mode 100644 index 0000000..860f87e Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_stop.png b/SISBusiness.Module/Images/Images.cpu_stop.png new file mode 100644 index 0000000..3219b5a Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_stop.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_stop_32x32.png b/SISBusiness.Module/Images/Images.cpu_stop_32x32.png new file mode 100644 index 0000000..3f2320b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_time.png b/SISBusiness.Module/Images/Images.cpu_time.png new file mode 100644 index 0000000..992f714 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_time.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_time_32x32.png b/SISBusiness.Module/Images/Images.cpu_time_32x32.png new file mode 100644 index 0000000..2d19813 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_view.png b/SISBusiness.Module/Images/Images.cpu_view.png new file mode 100644 index 0000000..0f027f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_view.png differ diff --git a/SISBusiness.Module/Images/Images.cpu_view_32x32.png b/SISBusiness.Module/Images/Images.cpu_view_32x32.png new file mode 100644 index 0000000..d4691ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.cpu_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.creditcards.png b/SISBusiness.Module/Images/Images.creditcards.png new file mode 100644 index 0000000..21cfaf1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.creditcards.png differ diff --git a/SISBusiness.Module/Images/Images.creditcards_32x32.png b/SISBusiness.Module/Images/Images.creditcards_32x32.png new file mode 100644 index 0000000..841d983 Binary files /dev/null and b/SISBusiness.Module/Images/Images.creditcards_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.crutch.png b/SISBusiness.Module/Images/Images.crutch.png new file mode 100644 index 0000000..9e96db1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.crutch.png differ diff --git a/SISBusiness.Module/Images/Images.crutch_32x32.png b/SISBusiness.Module/Images/Images.crutch_32x32.png new file mode 100644 index 0000000..26c760b Binary files /dev/null and b/SISBusiness.Module/Images/Images.crutch_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue.png b/SISBusiness.Module/Images/Images.cube_blue.png new file mode 100644 index 0000000..ced8ff3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_32x32.png b/SISBusiness.Module/Images/Images.cube_blue_32x32.png new file mode 100644 index 0000000..255cc1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_add.png b/SISBusiness.Module/Images/Images.cube_blue_add.png new file mode 100644 index 0000000..1cc8536 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_add.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_add_32x32.png b/SISBusiness.Module/Images/Images.cube_blue_add_32x32.png new file mode 100644 index 0000000..dd56e32 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_delete.png b/SISBusiness.Module/Images/Images.cube_blue_delete.png new file mode 100644 index 0000000..b56c93b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_delete_32x32.png b/SISBusiness.Module/Images/Images.cube_blue_delete_32x32.png new file mode 100644 index 0000000..cd3c774 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_new.png b/SISBusiness.Module/Images/Images.cube_blue_new.png new file mode 100644 index 0000000..9a1d0fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_new.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_new_32x32.png b/SISBusiness.Module/Images/Images.cube_blue_new_32x32.png new file mode 100644 index 0000000..71f67dd Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_preferences.png b/SISBusiness.Module/Images/Images.cube_blue_preferences.png new file mode 100644 index 0000000..0af2967 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cube_blue_preferences_32x32.png b/SISBusiness.Module/Images/Images.cube_blue_preferences_32x32.png new file mode 100644 index 0000000..9b4b658 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_blue_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green.png b/SISBusiness.Module/Images/Images.cube_green.png new file mode 100644 index 0000000..df8b92a Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_32x32.png b/SISBusiness.Module/Images/Images.cube_green_32x32.png new file mode 100644 index 0000000..d5a8a95 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_add.png b/SISBusiness.Module/Images/Images.cube_green_add.png new file mode 100644 index 0000000..1633ced Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_add.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_add_32x32.png b/SISBusiness.Module/Images/Images.cube_green_add_32x32.png new file mode 100644 index 0000000..60b24da Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_delete.png b/SISBusiness.Module/Images/Images.cube_green_delete.png new file mode 100644 index 0000000..c59f065 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_delete_32x32.png b/SISBusiness.Module/Images/Images.cube_green_delete_32x32.png new file mode 100644 index 0000000..1890e62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_new.png b/SISBusiness.Module/Images/Images.cube_green_new.png new file mode 100644 index 0000000..c4fbab7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_new.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_new_32x32.png b/SISBusiness.Module/Images/Images.cube_green_new_32x32.png new file mode 100644 index 0000000..7010b23 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_preferences.png b/SISBusiness.Module/Images/Images.cube_green_preferences.png new file mode 100644 index 0000000..84abcd8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cube_green_preferences_32x32.png b/SISBusiness.Module/Images/Images.cube_green_preferences_32x32.png new file mode 100644 index 0000000..dc56f93 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_green_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule.png b/SISBusiness.Module/Images/Images.cube_molecule.png new file mode 100644 index 0000000..f6771cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_32x32.png new file mode 100644 index 0000000..2ccecdf Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_add.png b/SISBusiness.Module/Images/Images.cube_molecule_add.png new file mode 100644 index 0000000..af032cd Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_add.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_add_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_add_32x32.png new file mode 100644 index 0000000..a773691 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_delete.png b/SISBusiness.Module/Images/Images.cube_molecule_delete.png new file mode 100644 index 0000000..07aeef0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_delete_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_delete_32x32.png new file mode 100644 index 0000000..9aec722 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_new.png b/SISBusiness.Module/Images/Images.cube_molecule_new.png new file mode 100644 index 0000000..a76b154 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_new.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_new_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_new_32x32.png new file mode 100644 index 0000000..7188605 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_preferences.png b/SISBusiness.Module/Images/Images.cube_molecule_preferences.png new file mode 100644 index 0000000..aac553b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_preferences_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_preferences_32x32.png new file mode 100644 index 0000000..23a6aae Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_view.png b/SISBusiness.Module/Images/Images.cube_molecule_view.png new file mode 100644 index 0000000..0591df8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_view.png differ diff --git a/SISBusiness.Module/Images/Images.cube_molecule_view_32x32.png b/SISBusiness.Module/Images/Images.cube_molecule_view_32x32.png new file mode 100644 index 0000000..39edbac Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_molecule_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow.png b/SISBusiness.Module/Images/Images.cube_yellow.png new file mode 100644 index 0000000..056fb81 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_32x32.png b/SISBusiness.Module/Images/Images.cube_yellow_32x32.png new file mode 100644 index 0000000..f8f4ae1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_add.png b/SISBusiness.Module/Images/Images.cube_yellow_add.png new file mode 100644 index 0000000..9904e18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_add.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_add_32x32.png b/SISBusiness.Module/Images/Images.cube_yellow_add_32x32.png new file mode 100644 index 0000000..4867952 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_delete.png b/SISBusiness.Module/Images/Images.cube_yellow_delete.png new file mode 100644 index 0000000..34eecb3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_delete.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_delete_32x32.png b/SISBusiness.Module/Images/Images.cube_yellow_delete_32x32.png new file mode 100644 index 0000000..77d06c4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_new.png b/SISBusiness.Module/Images/Images.cube_yellow_new.png new file mode 100644 index 0000000..30aecad Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_new.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_new_32x32.png b/SISBusiness.Module/Images/Images.cube_yellow_new_32x32.png new file mode 100644 index 0000000..49713fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_preferences.png b/SISBusiness.Module/Images/Images.cube_yellow_preferences.png new file mode 100644 index 0000000..ab2f7a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.cube_yellow_preferences_32x32.png b/SISBusiness.Module/Images/Images.cube_yellow_preferences_32x32.png new file mode 100644 index 0000000..8a3330a Binary files /dev/null and b/SISBusiness.Module/Images/Images.cube_yellow_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cubes.png b/SISBusiness.Module/Images/Images.cubes.png new file mode 100644 index 0000000..cadda21 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_32x32.png b/SISBusiness.Module/Images/Images.cubes_32x32.png new file mode 100644 index 0000000..9910776 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_blue.png b/SISBusiness.Module/Images/Images.cubes_blue.png new file mode 100644 index 0000000..43f388e Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_blue.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_blue_32x32.png b/SISBusiness.Module/Images/Images.cubes_blue_32x32.png new file mode 100644 index 0000000..4da2b09 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_green.png b/SISBusiness.Module/Images/Images.cubes_green.png new file mode 100644 index 0000000..728775e Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_green.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_green_32x32.png b/SISBusiness.Module/Images/Images.cubes_green_32x32.png new file mode 100644 index 0000000..ccf199d Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_yellow.png b/SISBusiness.Module/Images/Images.cubes_yellow.png new file mode 100644 index 0000000..32b1660 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.cubes_yellow_32x32.png b/SISBusiness.Module/Images/Images.cubes_yellow_32x32.png new file mode 100644 index 0000000..f42770d Binary files /dev/null and b/SISBusiness.Module/Images/Images.cubes_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cup.png b/SISBusiness.Module/Images/Images.cup.png new file mode 100644 index 0000000..9544fe7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cup.png differ diff --git a/SISBusiness.Module/Images/Images.cup_32x32.png b/SISBusiness.Module/Images/Images.cup_32x32.png new file mode 100644 index 0000000..c9dd4b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.cup_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.currency_dollar.png b/SISBusiness.Module/Images/Images.currency_dollar.png new file mode 100644 index 0000000..9631005 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_dollar.png differ diff --git a/SISBusiness.Module/Images/Images.currency_dollar_32x32.png b/SISBusiness.Module/Images/Images.currency_dollar_32x32.png new file mode 100644 index 0000000..91f1d56 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_dollar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.currency_euro.png b/SISBusiness.Module/Images/Images.currency_euro.png new file mode 100644 index 0000000..e89acb4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_euro.png differ diff --git a/SISBusiness.Module/Images/Images.currency_euro_32x32.png b/SISBusiness.Module/Images/Images.currency_euro_32x32.png new file mode 100644 index 0000000..fa5f587 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_euro_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.currency_pound.png b/SISBusiness.Module/Images/Images.currency_pound.png new file mode 100644 index 0000000..5d86003 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_pound.png differ diff --git a/SISBusiness.Module/Images/Images.currency_pound_32x32.png b/SISBusiness.Module/Images/Images.currency_pound_32x32.png new file mode 100644 index 0000000..06703ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_pound_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.currency_yen.png b/SISBusiness.Module/Images/Images.currency_yen.png new file mode 100644 index 0000000..000f3b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_yen.png differ diff --git a/SISBusiness.Module/Images/Images.currency_yen_32x32.png b/SISBusiness.Module/Images/Images.currency_yen_32x32.png new file mode 100644 index 0000000..05a43be Binary files /dev/null and b/SISBusiness.Module/Images/Images.currency_yen_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.cut.png b/SISBusiness.Module/Images/Images.cut.png new file mode 100644 index 0000000..b349c4f Binary files /dev/null and b/SISBusiness.Module/Images/Images.cut.png differ diff --git a/SISBusiness.Module/Images/Images.cut_32x32.png b/SISBusiness.Module/Images/Images.cut_32x32.png new file mode 100644 index 0000000..700733b Binary files /dev/null and b/SISBusiness.Module/Images/Images.cut_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data.png b/SISBusiness.Module/Images/Images.data.png new file mode 100644 index 0000000..cb8f04d Binary files /dev/null and b/SISBusiness.Module/Images/Images.data.png differ diff --git a/SISBusiness.Module/Images/Images.data_32x32.png b/SISBusiness.Module/Images/Images.data_32x32.png new file mode 100644 index 0000000..4c7fe77 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_add.png b/SISBusiness.Module/Images/Images.data_add.png new file mode 100644 index 0000000..8c21457 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_add.png differ diff --git a/SISBusiness.Module/Images/Images.data_add_32x32.png b/SISBusiness.Module/Images/Images.data_add_32x32.png new file mode 100644 index 0000000..ecaab3f Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_certificate.png b/SISBusiness.Module/Images/Images.data_certificate.png new file mode 100644 index 0000000..081fbfe Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_certificate.png differ diff --git a/SISBusiness.Module/Images/Images.data_certificate_32x32.png b/SISBusiness.Module/Images/Images.data_certificate_32x32.png new file mode 100644 index 0000000..e844266 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_connection.png b/SISBusiness.Module/Images/Images.data_connection.png new file mode 100644 index 0000000..f31f7eb Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_connection.png differ diff --git a/SISBusiness.Module/Images/Images.data_connection_32x32.png b/SISBusiness.Module/Images/Images.data_connection_32x32.png new file mode 100644 index 0000000..ec67720 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_connection_delete.png b/SISBusiness.Module/Images/Images.data_connection_delete.png new file mode 100644 index 0000000..df1398b Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_connection_delete.png differ diff --git a/SISBusiness.Module/Images/Images.data_connection_delete_32x32.png b/SISBusiness.Module/Images/Images.data_connection_delete_32x32.png new file mode 100644 index 0000000..1e93562 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_connection_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_copy.png b/SISBusiness.Module/Images/Images.data_copy.png new file mode 100644 index 0000000..211fe81 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_copy.png differ diff --git a/SISBusiness.Module/Images/Images.data_copy_32x32.png b/SISBusiness.Module/Images/Images.data_copy_32x32.png new file mode 100644 index 0000000..8128e74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_copy_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_delete.png b/SISBusiness.Module/Images/Images.data_delete.png new file mode 100644 index 0000000..895f601 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_delete.png differ diff --git a/SISBusiness.Module/Images/Images.data_delete_32x32.png b/SISBusiness.Module/Images/Images.data_delete_32x32.png new file mode 100644 index 0000000..1eab36c Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_disk.png b/SISBusiness.Module/Images/Images.data_disk.png new file mode 100644 index 0000000..09719cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_disk.png differ diff --git a/SISBusiness.Module/Images/Images.data_disk_32x32.png b/SISBusiness.Module/Images/Images.data_disk_32x32.png new file mode 100644 index 0000000..debc776 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_disk_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_down.png b/SISBusiness.Module/Images/Images.data_down.png new file mode 100644 index 0000000..1fc0854 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_down.png differ diff --git a/SISBusiness.Module/Images/Images.data_down_32x32.png b/SISBusiness.Module/Images/Images.data_down_32x32.png new file mode 100644 index 0000000..360b604 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_edit.png b/SISBusiness.Module/Images/Images.data_edit.png new file mode 100644 index 0000000..a48cace Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_edit.png differ diff --git a/SISBusiness.Module/Images/Images.data_edit_32x32.png b/SISBusiness.Module/Images/Images.data_edit_32x32.png new file mode 100644 index 0000000..6b9bc3c Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_error.png b/SISBusiness.Module/Images/Images.data_error.png new file mode 100644 index 0000000..d9f638b Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_error.png differ diff --git a/SISBusiness.Module/Images/Images.data_error_32x32.png b/SISBusiness.Module/Images/Images.data_error_32x32.png new file mode 100644 index 0000000..c6bdddd Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_find.png b/SISBusiness.Module/Images/Images.data_find.png new file mode 100644 index 0000000..0a0214b Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_find.png differ diff --git a/SISBusiness.Module/Images/Images.data_find_32x32.png b/SISBusiness.Module/Images/Images.data_find_32x32.png new file mode 100644 index 0000000..57e8176 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_forbidden.png b/SISBusiness.Module/Images/Images.data_forbidden.png new file mode 100644 index 0000000..3fcab1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_forbidden.png differ diff --git a/SISBusiness.Module/Images/Images.data_forbidden_32x32.png b/SISBusiness.Module/Images/Images.data_forbidden_32x32.png new file mode 100644 index 0000000..72120ae Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_forbidden_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_gear.png b/SISBusiness.Module/Images/Images.data_gear.png new file mode 100644 index 0000000..0f37e97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_gear.png differ diff --git a/SISBusiness.Module/Images/Images.data_gear_32x32.png b/SISBusiness.Module/Images/Images.data_gear_32x32.png new file mode 100644 index 0000000..8b8b780 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_information.png b/SISBusiness.Module/Images/Images.data_information.png new file mode 100644 index 0000000..46959b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_information.png differ diff --git a/SISBusiness.Module/Images/Images.data_information_32x32.png b/SISBusiness.Module/Images/Images.data_information_32x32.png new file mode 100644 index 0000000..54e281c Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_into.png b/SISBusiness.Module/Images/Images.data_into.png new file mode 100644 index 0000000..45ee076 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_into.png differ diff --git a/SISBusiness.Module/Images/Images.data_into_32x32.png b/SISBusiness.Module/Images/Images.data_into_32x32.png new file mode 100644 index 0000000..277669a Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_lock.png b/SISBusiness.Module/Images/Images.data_lock.png new file mode 100644 index 0000000..e2deeae Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_lock.png differ diff --git a/SISBusiness.Module/Images/Images.data_lock_32x32.png b/SISBusiness.Module/Images/Images.data_lock_32x32.png new file mode 100644 index 0000000..e362802 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_new.png b/SISBusiness.Module/Images/Images.data_new.png new file mode 100644 index 0000000..33037e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_new.png differ diff --git a/SISBusiness.Module/Images/Images.data_new_32x32.png b/SISBusiness.Module/Images/Images.data_new_32x32.png new file mode 100644 index 0000000..05a59af Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_next.png b/SISBusiness.Module/Images/Images.data_next.png new file mode 100644 index 0000000..f3020be Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_next.png differ diff --git a/SISBusiness.Module/Images/Images.data_next_32x32.png b/SISBusiness.Module/Images/Images.data_next_32x32.png new file mode 100644 index 0000000..5f85cbe Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_ok.png b/SISBusiness.Module/Images/Images.data_ok.png new file mode 100644 index 0000000..4cfd9a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_ok.png differ diff --git a/SISBusiness.Module/Images/Images.data_ok_32x32.png b/SISBusiness.Module/Images/Images.data_ok_32x32.png new file mode 100644 index 0000000..1f62e97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_out.png b/SISBusiness.Module/Images/Images.data_out.png new file mode 100644 index 0000000..152bbf1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_out.png differ diff --git a/SISBusiness.Module/Images/Images.data_out_32x32.png b/SISBusiness.Module/Images/Images.data_out_32x32.png new file mode 100644 index 0000000..d669e0d Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_preferences.png b/SISBusiness.Module/Images/Images.data_preferences.png new file mode 100644 index 0000000..344643a Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.data_preferences_32x32.png b/SISBusiness.Module/Images/Images.data_preferences_32x32.png new file mode 100644 index 0000000..ee3a4dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_previous.png b/SISBusiness.Module/Images/Images.data_previous.png new file mode 100644 index 0000000..dcae65a Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_previous.png differ diff --git a/SISBusiness.Module/Images/Images.data_previous_32x32.png b/SISBusiness.Module/Images/Images.data_previous_32x32.png new file mode 100644 index 0000000..debd4d9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_refresh.png b/SISBusiness.Module/Images/Images.data_refresh.png new file mode 100644 index 0000000..e9c6dd9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.data_refresh_32x32.png b/SISBusiness.Module/Images/Images.data_refresh_32x32.png new file mode 100644 index 0000000..e9edbc8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_replace.png b/SISBusiness.Module/Images/Images.data_replace.png new file mode 100644 index 0000000..e83d9aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_replace.png differ diff --git a/SISBusiness.Module/Images/Images.data_replace_32x32.png b/SISBusiness.Module/Images/Images.data_replace_32x32.png new file mode 100644 index 0000000..f5fa2ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_scroll.png b/SISBusiness.Module/Images/Images.data_scroll.png new file mode 100644 index 0000000..1a3cbd7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_scroll.png differ diff --git a/SISBusiness.Module/Images/Images.data_scroll_32x32.png b/SISBusiness.Module/Images/Images.data_scroll_32x32.png new file mode 100644 index 0000000..cce1af8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_scroll_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_table.png b/SISBusiness.Module/Images/Images.data_table.png new file mode 100644 index 0000000..92a03c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_table.png differ diff --git a/SISBusiness.Module/Images/Images.data_table_32x32.png b/SISBusiness.Module/Images/Images.data_table_32x32.png new file mode 100644 index 0000000..8673c7a Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_table_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_time.png b/SISBusiness.Module/Images/Images.data_time.png new file mode 100644 index 0000000..a68d777 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_time.png differ diff --git a/SISBusiness.Module/Images/Images.data_time_32x32.png b/SISBusiness.Module/Images/Images.data_time_32x32.png new file mode 100644 index 0000000..0a4e24b Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_unknown.png b/SISBusiness.Module/Images/Images.data_unknown.png new file mode 100644 index 0000000..bd97f43 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_unknown.png differ diff --git a/SISBusiness.Module/Images/Images.data_unknown_32x32.png b/SISBusiness.Module/Images/Images.data_unknown_32x32.png new file mode 100644 index 0000000..5a93c3d Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_unknown_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_up.png b/SISBusiness.Module/Images/Images.data_up.png new file mode 100644 index 0000000..f163cf8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_up.png differ diff --git a/SISBusiness.Module/Images/Images.data_up_32x32.png b/SISBusiness.Module/Images/Images.data_up_32x32.png new file mode 100644 index 0000000..5500773 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_view.png b/SISBusiness.Module/Images/Images.data_view.png new file mode 100644 index 0000000..430e0d3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_view.png differ diff --git a/SISBusiness.Module/Images/Images.data_view_32x32.png b/SISBusiness.Module/Images/Images.data_view_32x32.png new file mode 100644 index 0000000..89bca53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.data_warning.png b/SISBusiness.Module/Images/Images.data_warning.png new file mode 100644 index 0000000..0dcaed3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_warning.png differ diff --git a/SISBusiness.Module/Images/Images.data_warning_32x32.png b/SISBusiness.Module/Images/Images.data_warning_32x32.png new file mode 100644 index 0000000..ae1ba36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.data_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.date-time.png b/SISBusiness.Module/Images/Images.date-time.png new file mode 100644 index 0000000..f228f24 Binary files /dev/null and b/SISBusiness.Module/Images/Images.date-time.png differ diff --git a/SISBusiness.Module/Images/Images.date-time_32x32.png b/SISBusiness.Module/Images/Images.date-time_32x32.png new file mode 100644 index 0000000..15c5a54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.date-time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.date-time_preferences.png b/SISBusiness.Module/Images/Images.date-time_preferences.png new file mode 100644 index 0000000..912c538 Binary files /dev/null and b/SISBusiness.Module/Images/Images.date-time_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.date-time_preferences_32x32.png b/SISBusiness.Module/Images/Images.date-time_preferences_32x32.png new file mode 100644 index 0000000..928d296 Binary files /dev/null and b/SISBusiness.Module/Images/Images.date-time_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug.png b/SISBusiness.Module/Images/Images.debug.png new file mode 100644 index 0000000..99978f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug.png differ diff --git a/SISBusiness.Module/Images/Images.debug_32x32.png b/SISBusiness.Module/Images/Images.debug_32x32.png new file mode 100644 index 0000000..28196e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_add.png b/SISBusiness.Module/Images/Images.debug_add.png new file mode 100644 index 0000000..c78d348 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_add.png differ diff --git a/SISBusiness.Module/Images/Images.debug_add_32x32.png b/SISBusiness.Module/Images/Images.debug_add_32x32.png new file mode 100644 index 0000000..c39f35d Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_delete.png b/SISBusiness.Module/Images/Images.debug_delete.png new file mode 100644 index 0000000..905d029 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_delete.png differ diff --git a/SISBusiness.Module/Images/Images.debug_delete_32x32.png b/SISBusiness.Module/Images/Images.debug_delete_32x32.png new file mode 100644 index 0000000..a8b5dd6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_edit.png b/SISBusiness.Module/Images/Images.debug_edit.png new file mode 100644 index 0000000..be5a682 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_edit.png differ diff --git a/SISBusiness.Module/Images/Images.debug_edit_32x32.png b/SISBusiness.Module/Images/Images.debug_edit_32x32.png new file mode 100644 index 0000000..eae5891 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_into.png b/SISBusiness.Module/Images/Images.debug_into.png new file mode 100644 index 0000000..a1f6268 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_into.png differ diff --git a/SISBusiness.Module/Images/Images.debug_into_32x32.png b/SISBusiness.Module/Images/Images.debug_into_32x32.png new file mode 100644 index 0000000..4c9367b Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_next.png b/SISBusiness.Module/Images/Images.debug_next.png new file mode 100644 index 0000000..daf5bfc Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_next.png differ diff --git a/SISBusiness.Module/Images/Images.debug_next_32x32.png b/SISBusiness.Module/Images/Images.debug_next_32x32.png new file mode 100644 index 0000000..03a090e Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_pause.png b/SISBusiness.Module/Images/Images.debug_pause.png new file mode 100644 index 0000000..5d56d6d Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_pause.png differ diff --git a/SISBusiness.Module/Images/Images.debug_pause_32x32.png b/SISBusiness.Module/Images/Images.debug_pause_32x32.png new file mode 100644 index 0000000..14cd90f Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_preferences.png b/SISBusiness.Module/Images/Images.debug_preferences.png new file mode 100644 index 0000000..43a81be Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.debug_preferences_32x32.png b/SISBusiness.Module/Images/Images.debug_preferences_32x32.png new file mode 100644 index 0000000..6560cbe Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_previous.png b/SISBusiness.Module/Images/Images.debug_previous.png new file mode 100644 index 0000000..ef55a65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_previous.png differ diff --git a/SISBusiness.Module/Images/Images.debug_previous_32x32.png b/SISBusiness.Module/Images/Images.debug_previous_32x32.png new file mode 100644 index 0000000..b050b04 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_reset.png b/SISBusiness.Module/Images/Images.debug_reset.png new file mode 100644 index 0000000..ff2c712 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_reset.png differ diff --git a/SISBusiness.Module/Images/Images.debug_reset_32x32.png b/SISBusiness.Module/Images/Images.debug_reset_32x32.png new file mode 100644 index 0000000..2eb37ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_reset_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_run.png b/SISBusiness.Module/Images/Images.debug_run.png new file mode 100644 index 0000000..99f4ee3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_run.png differ diff --git a/SISBusiness.Module/Images/Images.debug_run_32x32.png b/SISBusiness.Module/Images/Images.debug_run_32x32.png new file mode 100644 index 0000000..8dd311a Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_step_forward.png b/SISBusiness.Module/Images/Images.debug_step_forward.png new file mode 100644 index 0000000..1a36a37 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_step_forward.png differ diff --git a/SISBusiness.Module/Images/Images.debug_step_forward_32x32.png b/SISBusiness.Module/Images/Images.debug_step_forward_32x32.png new file mode 100644 index 0000000..0cfa96a Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_step_forward_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_stop.png b/SISBusiness.Module/Images/Images.debug_stop.png new file mode 100644 index 0000000..160ff2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_stop.png differ diff --git a/SISBusiness.Module/Images/Images.debug_stop_32x32.png b/SISBusiness.Module/Images/Images.debug_stop_32x32.png new file mode 100644 index 0000000..7513a69 Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_time.png b/SISBusiness.Module/Images/Images.debug_time.png new file mode 100644 index 0000000..3ae6ecf Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_time.png differ diff --git a/SISBusiness.Module/Images/Images.debug_time_32x32.png b/SISBusiness.Module/Images/Images.debug_time_32x32.png new file mode 100644 index 0000000..2ddb34b Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.debug_view.png b/SISBusiness.Module/Images/Images.debug_view.png new file mode 100644 index 0000000..d1441ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_view.png differ diff --git a/SISBusiness.Module/Images/Images.debug_view_32x32.png b/SISBusiness.Module/Images/Images.debug_view_32x32.png new file mode 100644 index 0000000..e054aeb Binary files /dev/null and b/SISBusiness.Module/Images/Images.debug_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.delete.png b/SISBusiness.Module/Images/Images.delete.png new file mode 100644 index 0000000..c13d669 Binary files /dev/null and b/SISBusiness.Module/Images/Images.delete.png differ diff --git a/SISBusiness.Module/Images/Images.delete2.png b/SISBusiness.Module/Images/Images.delete2.png new file mode 100644 index 0000000..069609d Binary files /dev/null and b/SISBusiness.Module/Images/Images.delete2.png differ diff --git a/SISBusiness.Module/Images/Images.delete2_32x32.png b/SISBusiness.Module/Images/Images.delete2_32x32.png new file mode 100644 index 0000000..e32c07b Binary files /dev/null and b/SISBusiness.Module/Images/Images.delete2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.delete_32x32.png b/SISBusiness.Module/Images/Images.delete_32x32.png new file mode 100644 index 0000000..d15beca Binary files /dev/null and b/SISBusiness.Module/Images/Images.delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.desktop.png b/SISBusiness.Module/Images/Images.desktop.png new file mode 100644 index 0000000..874e7a2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.desktop.png differ diff --git a/SISBusiness.Module/Images/Images.desktop_32x32.png b/SISBusiness.Module/Images/Images.desktop_32x32.png new file mode 100644 index 0000000..e42d8ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.desktop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.devil.png b/SISBusiness.Module/Images/Images.devil.png new file mode 100644 index 0000000..f5886c0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.devil.png differ diff --git a/SISBusiness.Module/Images/Images.devil_32x32.png b/SISBusiness.Module/Images/Images.devil_32x32.png new file mode 100644 index 0000000..c837024 Binary files /dev/null and b/SISBusiness.Module/Images/Images.devil_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.die.png b/SISBusiness.Module/Images/Images.die.png new file mode 100644 index 0000000..dd94263 Binary files /dev/null and b/SISBusiness.Module/Images/Images.die.png differ diff --git a/SISBusiness.Module/Images/Images.die_32x32.png b/SISBusiness.Module/Images/Images.die_32x32.png new file mode 100644 index 0000000..eddb0b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.die_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.die_gold.png b/SISBusiness.Module/Images/Images.die_gold.png new file mode 100644 index 0000000..c5ab565 Binary files /dev/null and b/SISBusiness.Module/Images/Images.die_gold.png differ diff --git a/SISBusiness.Module/Images/Images.die_gold_32x32.png b/SISBusiness.Module/Images/Images.die_gold_32x32.png new file mode 100644 index 0000000..8610917 Binary files /dev/null and b/SISBusiness.Module/Images/Images.die_gold_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue.png b/SISBusiness.Module/Images/Images.disk_blue.png new file mode 100644 index 0000000..8ed26bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_32x32.png new file mode 100644 index 0000000..3c01726 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_error.png b/SISBusiness.Module/Images/Images.disk_blue_error.png new file mode 100644 index 0000000..a07e4e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_error.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_error_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_error_32x32.png new file mode 100644 index 0000000..78740d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_information.png b/SISBusiness.Module/Images/Images.disk_blue_information.png new file mode 100644 index 0000000..1892307 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_information.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_information_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_information_32x32.png new file mode 100644 index 0000000..1931bd5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_ok.png b/SISBusiness.Module/Images/Images.disk_blue_ok.png new file mode 100644 index 0000000..c6d3b97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_ok.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_ok_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_ok_32x32.png new file mode 100644 index 0000000..0e3df23 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_warning.png b/SISBusiness.Module/Images/Images.disk_blue_warning.png new file mode 100644 index 0000000..7a63724 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_warning.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_warning_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_warning_32x32.png new file mode 100644 index 0000000..8bed9ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_window.png b/SISBusiness.Module/Images/Images.disk_blue_window.png new file mode 100644 index 0000000..60a6029 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_window.png differ diff --git a/SISBusiness.Module/Images/Images.disk_blue_window_32x32.png b/SISBusiness.Module/Images/Images.disk_blue_window_32x32.png new file mode 100644 index 0000000..37ae77c Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_blue_window_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green.png b/SISBusiness.Module/Images/Images.disk_green.png new file mode 100644 index 0000000..bb28ea8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green_32x32.png b/SISBusiness.Module/Images/Images.disk_green_32x32.png new file mode 100644 index 0000000..8ec4101 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green_A4_new.png b/SISBusiness.Module/Images/Images.disk_green_A4_new.png new file mode 100644 index 0000000..748a7a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green_A4_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green_A4_new_32x32.png b/SISBusiness.Module/Images/Images.disk_green_A4_new_32x32.png new file mode 100644 index 0000000..4aeaea0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green_A4_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green_X_new.png b/SISBusiness.Module/Images/Images.disk_green_X_new.png new file mode 100644 index 0000000..625ae75 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green_X_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_green_X_new_32x32.png b/SISBusiness.Module/Images/Images.disk_green_X_new_32x32.png new file mode 100644 index 0000000..b6b3a45 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_green_X_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red.png b/SISBusiness.Module/Images/Images.disk_red.png new file mode 100644 index 0000000..b06895b Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red_32x32.png b/SISBusiness.Module/Images/Images.disk_red_32x32.png new file mode 100644 index 0000000..b156022 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red_A4_new.png b/SISBusiness.Module/Images/Images.disk_red_A4_new.png new file mode 100644 index 0000000..30549f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red_A4_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red_A4_new_32x32.png b/SISBusiness.Module/Images/Images.disk_red_A4_new_32x32.png new file mode 100644 index 0000000..5e02938 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red_A4_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red_X_new.png b/SISBusiness.Module/Images/Images.disk_red_X_new.png new file mode 100644 index 0000000..7673f2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red_X_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_red_X_new_32x32.png b/SISBusiness.Module/Images/Images.disk_red_X_new_32x32.png new file mode 100644 index 0000000..76b98b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_red_X_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow.png b/SISBusiness.Module/Images/Images.disk_yellow.png new file mode 100644 index 0000000..cfd32d3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow_32x32.png b/SISBusiness.Module/Images/Images.disk_yellow_32x32.png new file mode 100644 index 0000000..46edd24 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow_A4_new.png b/SISBusiness.Module/Images/Images.disk_yellow_A4_new.png new file mode 100644 index 0000000..a45428a Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow_A4_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow_A4_new_32x32.png b/SISBusiness.Module/Images/Images.disk_yellow_A4_new_32x32.png new file mode 100644 index 0000000..b2bc978 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow_A4_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow_X_new.png b/SISBusiness.Module/Images/Images.disk_yellow_X_new.png new file mode 100644 index 0000000..2760c03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow_X_new.png differ diff --git a/SISBusiness.Module/Images/Images.disk_yellow_X_new_32x32.png b/SISBusiness.Module/Images/Images.disk_yellow_X_new_32x32.png new file mode 100644 index 0000000..154f695 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disk_yellow_X_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.diskdrive.png b/SISBusiness.Module/Images/Images.diskdrive.png new file mode 100644 index 0000000..a75da78 Binary files /dev/null and b/SISBusiness.Module/Images/Images.diskdrive.png differ diff --git a/SISBusiness.Module/Images/Images.diskdrive_32x32.png b/SISBusiness.Module/Images/Images.diskdrive_32x32.png new file mode 100644 index 0000000..d16123a Binary files /dev/null and b/SISBusiness.Module/Images/Images.diskdrive_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.disks.png b/SISBusiness.Module/Images/Images.disks.png new file mode 100644 index 0000000..6975998 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disks.png differ diff --git a/SISBusiness.Module/Images/Images.disks_32x32.png b/SISBusiness.Module/Images/Images.disks_32x32.png new file mode 100644 index 0000000..57cbf46 Binary files /dev/null and b/SISBusiness.Module/Images/Images.disks_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.doctor.png b/SISBusiness.Module/Images/Images.doctor.png new file mode 100644 index 0000000..c65a369 Binary files /dev/null and b/SISBusiness.Module/Images/Images.doctor.png differ diff --git a/SISBusiness.Module/Images/Images.doctor_32x32.png b/SISBusiness.Module/Images/Images.doctor_32x32.png new file mode 100644 index 0000000..acee2d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.doctor_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document.png b/SISBusiness.Module/Images/Images.document.png new file mode 100644 index 0000000..768be13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document.png differ diff --git a/SISBusiness.Module/Images/Images.document_32x32.png b/SISBusiness.Module/Images/Images.document_32x32.png new file mode 100644 index 0000000..135a77a Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_add.png b/SISBusiness.Module/Images/Images.document_add.png new file mode 100644 index 0000000..cc47d9a Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_add.png differ diff --git a/SISBusiness.Module/Images/Images.document_add_32x32.png b/SISBusiness.Module/Images/Images.document_add_32x32.png new file mode 100644 index 0000000..e182db1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_attachment.png b/SISBusiness.Module/Images/Images.document_attachment.png new file mode 100644 index 0000000..9258403 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_attachment.png differ diff --git a/SISBusiness.Module/Images/Images.document_attachment_32x32.png b/SISBusiness.Module/Images/Images.document_attachment_32x32.png new file mode 100644 index 0000000..28f59b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_attachment_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_certificate.png b/SISBusiness.Module/Images/Images.document_certificate.png new file mode 100644 index 0000000..071b77e Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_certificate.png differ diff --git a/SISBusiness.Module/Images/Images.document_certificate_32x32.png b/SISBusiness.Module/Images/Images.document_certificate_32x32.png new file mode 100644 index 0000000..2ca926a Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_chart.png b/SISBusiness.Module/Images/Images.document_chart.png new file mode 100644 index 0000000..fa4f179 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_chart.png differ diff --git a/SISBusiness.Module/Images/Images.document_chart_32x32.png b/SISBusiness.Module/Images/Images.document_chart_32x32.png new file mode 100644 index 0000000..847e21e Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_check.png b/SISBusiness.Module/Images/Images.document_check.png new file mode 100644 index 0000000..d999cee Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_check.png differ diff --git a/SISBusiness.Module/Images/Images.document_check_32x32.png b/SISBusiness.Module/Images/Images.document_check_32x32.png new file mode 100644 index 0000000..46b3dd0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_check_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_connection.png b/SISBusiness.Module/Images/Images.document_connection.png new file mode 100644 index 0000000..5a3a7a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_connection.png differ diff --git a/SISBusiness.Module/Images/Images.document_connection_32x32.png b/SISBusiness.Module/Images/Images.document_connection_32x32.png new file mode 100644 index 0000000..bd96d14 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_cup.png b/SISBusiness.Module/Images/Images.document_cup.png new file mode 100644 index 0000000..b2af09b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_cup.png differ diff --git a/SISBusiness.Module/Images/Images.document_cup_32x32.png b/SISBusiness.Module/Images/Images.document_cup_32x32.png new file mode 100644 index 0000000..6a45aa8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_cup_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_delete.png b/SISBusiness.Module/Images/Images.document_delete.png new file mode 100644 index 0000000..3a16b95 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_delete.png differ diff --git a/SISBusiness.Module/Images/Images.document_delete_32x32.png b/SISBusiness.Module/Images/Images.document_delete_32x32.png new file mode 100644 index 0000000..58831af Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_dirty.png b/SISBusiness.Module/Images/Images.document_dirty.png new file mode 100644 index 0000000..17afe8c Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_dirty.png differ diff --git a/SISBusiness.Module/Images/Images.document_dirty_32x32.png b/SISBusiness.Module/Images/Images.document_dirty_32x32.png new file mode 100644 index 0000000..500682a Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_dirty_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_down.png b/SISBusiness.Module/Images/Images.document_down.png new file mode 100644 index 0000000..3f65426 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_down.png differ diff --git a/SISBusiness.Module/Images/Images.document_down_32x32.png b/SISBusiness.Module/Images/Images.document_down_32x32.png new file mode 100644 index 0000000..32a12e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_edit.png b/SISBusiness.Module/Images/Images.document_edit.png new file mode 100644 index 0000000..01890bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_edit.png differ diff --git a/SISBusiness.Module/Images/Images.document_edit_32x32.png b/SISBusiness.Module/Images/Images.document_edit_32x32.png new file mode 100644 index 0000000..1b2d8e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_error.png b/SISBusiness.Module/Images/Images.document_error.png new file mode 100644 index 0000000..477151f Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_error.png differ diff --git a/SISBusiness.Module/Images/Images.document_error_32x32.png b/SISBusiness.Module/Images/Images.document_error_32x32.png new file mode 100644 index 0000000..1a45720 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_exchange.png b/SISBusiness.Module/Images/Images.document_exchange.png new file mode 100644 index 0000000..7aa0cd5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_exchange.png differ diff --git a/SISBusiness.Module/Images/Images.document_exchange_32x32.png b/SISBusiness.Module/Images/Images.document_exchange_32x32.png new file mode 100644 index 0000000..841af59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_exchange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_find.png b/SISBusiness.Module/Images/Images.document_find.png new file mode 100644 index 0000000..bfa0b92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_find.png differ diff --git a/SISBusiness.Module/Images/Images.document_find_32x32.png b/SISBusiness.Module/Images/Images.document_find_32x32.png new file mode 100644 index 0000000..7f8db73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_gear.png b/SISBusiness.Module/Images/Images.document_gear.png new file mode 100644 index 0000000..0c4bf96 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_gear.png differ diff --git a/SISBusiness.Module/Images/Images.document_gear_32x32.png b/SISBusiness.Module/Images/Images.document_gear_32x32.png new file mode 100644 index 0000000..a4576ed Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_heart.png b/SISBusiness.Module/Images/Images.document_heart.png new file mode 100644 index 0000000..66ee4ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_heart.png differ diff --git a/SISBusiness.Module/Images/Images.document_heart_32x32.png b/SISBusiness.Module/Images/Images.document_heart_32x32.png new file mode 100644 index 0000000..f7a4e5c Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_heart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_info.png b/SISBusiness.Module/Images/Images.document_info.png new file mode 100644 index 0000000..4c4c77b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_info.png differ diff --git a/SISBusiness.Module/Images/Images.document_info_32x32.png b/SISBusiness.Module/Images/Images.document_info_32x32.png new file mode 100644 index 0000000..3606c6b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_info_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_into.png b/SISBusiness.Module/Images/Images.document_into.png new file mode 100644 index 0000000..fb01938 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_into.png differ diff --git a/SISBusiness.Module/Images/Images.document_into_32x32.png b/SISBusiness.Module/Images/Images.document_into_32x32.png new file mode 100644 index 0000000..e63c970 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_lock.png b/SISBusiness.Module/Images/Images.document_lock.png new file mode 100644 index 0000000..104d888 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_lock.png differ diff --git a/SISBusiness.Module/Images/Images.document_lock_32x32.png b/SISBusiness.Module/Images/Images.document_lock_32x32.png new file mode 100644 index 0000000..ce31a5a Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_lock_red.png b/SISBusiness.Module/Images/Images.document_lock_red.png new file mode 100644 index 0000000..7485baf Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_lock_red.png differ diff --git a/SISBusiness.Module/Images/Images.document_lock_red_32x32.png b/SISBusiness.Module/Images/Images.document_lock_red_32x32.png new file mode 100644 index 0000000..7c5c7bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_lock_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_music.png b/SISBusiness.Module/Images/Images.document_music.png new file mode 100644 index 0000000..bc65f16 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_music.png differ diff --git a/SISBusiness.Module/Images/Images.document_music_32x32.png b/SISBusiness.Module/Images/Images.document_music_32x32.png new file mode 100644 index 0000000..12a5216 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_music_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_new.png b/SISBusiness.Module/Images/Images.document_new.png new file mode 100644 index 0000000..8bb3b3e Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_new.png differ diff --git a/SISBusiness.Module/Images/Images.document_new_32x32.png b/SISBusiness.Module/Images/Images.document_new_32x32.png new file mode 100644 index 0000000..4e84066 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_notebook.png b/SISBusiness.Module/Images/Images.document_notebook.png new file mode 100644 index 0000000..3be2d4f Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_notebook.png differ diff --git a/SISBusiness.Module/Images/Images.document_notebook_32x32.png b/SISBusiness.Module/Images/Images.document_notebook_32x32.png new file mode 100644 index 0000000..fa05499 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_notebook_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_ok.png b/SISBusiness.Module/Images/Images.document_ok.png new file mode 100644 index 0000000..50c983c Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_ok.png differ diff --git a/SISBusiness.Module/Images/Images.document_ok_32x32.png b/SISBusiness.Module/Images/Images.document_ok_32x32.png new file mode 100644 index 0000000..5407692 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_out.png b/SISBusiness.Module/Images/Images.document_out.png new file mode 100644 index 0000000..efc0e0d Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_out.png differ diff --git a/SISBusiness.Module/Images/Images.document_out_32x32.png b/SISBusiness.Module/Images/Images.document_out_32x32.png new file mode 100644 index 0000000..9a156e6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_out_back.png b/SISBusiness.Module/Images/Images.document_out_back.png new file mode 100644 index 0000000..9658f65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_out_back.png differ diff --git a/SISBusiness.Module/Images/Images.document_out_back_32x32.png b/SISBusiness.Module/Images/Images.document_out_back_32x32.png new file mode 100644 index 0000000..66c37e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_out_back_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_pinned.png b/SISBusiness.Module/Images/Images.document_pinned.png new file mode 100644 index 0000000..771abb8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_pinned.png differ diff --git a/SISBusiness.Module/Images/Images.document_pinned_32x32.png b/SISBusiness.Module/Images/Images.document_pinned_32x32.png new file mode 100644 index 0000000..4e4a668 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_pinned_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_plain.png b/SISBusiness.Module/Images/Images.document_plain.png new file mode 100644 index 0000000..8104358 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_plain.png differ diff --git a/SISBusiness.Module/Images/Images.document_plain_32x32.png b/SISBusiness.Module/Images/Images.document_plain_32x32.png new file mode 100644 index 0000000..ba32cf9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_plain_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_plain_new.png b/SISBusiness.Module/Images/Images.document_plain_new.png new file mode 100644 index 0000000..cce90df Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_plain_new.png differ diff --git a/SISBusiness.Module/Images/Images.document_plain_new_32x32.png b/SISBusiness.Module/Images/Images.document_plain_new_32x32.png new file mode 100644 index 0000000..82a9a65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_plain_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_preferences.png b/SISBusiness.Module/Images/Images.document_preferences.png new file mode 100644 index 0000000..8a4764e Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.document_preferences_32x32.png b/SISBusiness.Module/Images/Images.document_preferences_32x32.png new file mode 100644 index 0000000..f7af297 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_pulse.png b/SISBusiness.Module/Images/Images.document_pulse.png new file mode 100644 index 0000000..0cc859b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_pulse.png differ diff --git a/SISBusiness.Module/Images/Images.document_pulse_32x32.png b/SISBusiness.Module/Images/Images.document_pulse_32x32.png new file mode 100644 index 0000000..660a63b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_pulse_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_refresh.png b/SISBusiness.Module/Images/Images.document_refresh.png new file mode 100644 index 0000000..a12aa8b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.document_refresh_32x32.png b/SISBusiness.Module/Images/Images.document_refresh_32x32.png new file mode 100644 index 0000000..5ed6021 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_stop.png b/SISBusiness.Module/Images/Images.document_stop.png new file mode 100644 index 0000000..0e9501b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_stop.png differ diff --git a/SISBusiness.Module/Images/Images.document_stop_32x32.png b/SISBusiness.Module/Images/Images.document_stop_32x32.png new file mode 100644 index 0000000..8ba6410 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_text.png b/SISBusiness.Module/Images/Images.document_text.png new file mode 100644 index 0000000..790de20 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_text.png differ diff --git a/SISBusiness.Module/Images/Images.document_text_32x32.png b/SISBusiness.Module/Images/Images.document_text_32x32.png new file mode 100644 index 0000000..ce24954 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_text_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_time.png b/SISBusiness.Module/Images/Images.document_time.png new file mode 100644 index 0000000..8961117 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_time.png differ diff --git a/SISBusiness.Module/Images/Images.document_time_32x32.png b/SISBusiness.Module/Images/Images.document_time_32x32.png new file mode 100644 index 0000000..ff8fcf7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_up.png b/SISBusiness.Module/Images/Images.document_up.png new file mode 100644 index 0000000..fa56efb Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_up.png differ diff --git a/SISBusiness.Module/Images/Images.document_up_32x32.png b/SISBusiness.Module/Images/Images.document_up_32x32.png new file mode 100644 index 0000000..93ba7be Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_view.png b/SISBusiness.Module/Images/Images.document_view.png new file mode 100644 index 0000000..3ae2413 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_view.png differ diff --git a/SISBusiness.Module/Images/Images.document_view_32x32.png b/SISBusiness.Module/Images/Images.document_view_32x32.png new file mode 100644 index 0000000..eb7acaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_warning.png b/SISBusiness.Module/Images/Images.document_warning.png new file mode 100644 index 0000000..80d2113 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_warning.png differ diff --git a/SISBusiness.Module/Images/Images.document_warning_32x32.png b/SISBusiness.Module/Images/Images.document_warning_32x32.png new file mode 100644 index 0000000..4b28b84 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_zoom_in.png b/SISBusiness.Module/Images/Images.document_zoom_in.png new file mode 100644 index 0000000..44809fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_zoom_in.png differ diff --git a/SISBusiness.Module/Images/Images.document_zoom_in_32x32.png b/SISBusiness.Module/Images/Images.document_zoom_in_32x32.png new file mode 100644 index 0000000..8c3d653 Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_zoom_in_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.document_zoom_out.png b/SISBusiness.Module/Images/Images.document_zoom_out.png new file mode 100644 index 0000000..cc7240b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_zoom_out.png differ diff --git a/SISBusiness.Module/Images/Images.document_zoom_out_32x32.png b/SISBusiness.Module/Images/Images.document_zoom_out_32x32.png new file mode 100644 index 0000000..e4d592b Binary files /dev/null and b/SISBusiness.Module/Images/Images.document_zoom_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.documents.png b/SISBusiness.Module/Images/Images.documents.png new file mode 100644 index 0000000..330aca9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents.png differ diff --git a/SISBusiness.Module/Images/Images.documents_32x32.png b/SISBusiness.Module/Images/Images.documents_32x32.png new file mode 100644 index 0000000..c506744 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.documents_gear.png b/SISBusiness.Module/Images/Images.documents_gear.png new file mode 100644 index 0000000..d3dc5fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_gear.png differ diff --git a/SISBusiness.Module/Images/Images.documents_gear_32x32.png b/SISBusiness.Module/Images/Images.documents_gear_32x32.png new file mode 100644 index 0000000..ba29cd5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.documents_new.png b/SISBusiness.Module/Images/Images.documents_new.png new file mode 100644 index 0000000..e05bcb6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_new.png differ diff --git a/SISBusiness.Module/Images/Images.documents_new_32x32.png b/SISBusiness.Module/Images/Images.documents_new_32x32.png new file mode 100644 index 0000000..96b88ec Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.documents_preferences.png b/SISBusiness.Module/Images/Images.documents_preferences.png new file mode 100644 index 0000000..f1cf620 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.documents_preferences_32x32.png b/SISBusiness.Module/Images/Images.documents_preferences_32x32.png new file mode 100644 index 0000000..5e9ace1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.documents_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.door.png b/SISBusiness.Module/Images/Images.door.png new file mode 100644 index 0000000..f10e6f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.door.png differ diff --git a/SISBusiness.Module/Images/Images.door2.png b/SISBusiness.Module/Images/Images.door2.png new file mode 100644 index 0000000..d6162ed Binary files /dev/null and b/SISBusiness.Module/Images/Images.door2.png differ diff --git a/SISBusiness.Module/Images/Images.door2_32x32.png b/SISBusiness.Module/Images/Images.door2_32x32.png new file mode 100644 index 0000000..379bfee Binary files /dev/null and b/SISBusiness.Module/Images/Images.door2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.door_32x32.png b/SISBusiness.Module/Images/Images.door_32x32.png new file mode 100644 index 0000000..eb03124 Binary files /dev/null and b/SISBusiness.Module/Images/Images.door_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dot-chart.png b/SISBusiness.Module/Images/Images.dot-chart.png new file mode 100644 index 0000000..60621d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dot-chart.png differ diff --git a/SISBusiness.Module/Images/Images.dot-chart_32x32.png b/SISBusiness.Module/Images/Images.dot-chart_32x32.png new file mode 100644 index 0000000..ff4e5f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dot-chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.down_minus.png b/SISBusiness.Module/Images/Images.down_minus.png new file mode 100644 index 0000000..bd99e12 Binary files /dev/null and b/SISBusiness.Module/Images/Images.down_minus.png differ diff --git a/SISBusiness.Module/Images/Images.down_minus_32x32.png b/SISBusiness.Module/Images/Images.down_minus_32x32.png new file mode 100644 index 0000000..25a53e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.down_minus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.down_plus.png b/SISBusiness.Module/Images/Images.down_plus.png new file mode 100644 index 0000000..cd286a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.down_plus.png differ diff --git a/SISBusiness.Module/Images/Images.down_plus_32x32.png b/SISBusiness.Module/Images/Images.down_plus_32x32.png new file mode 100644 index 0000000..4b483ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.down_plus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.download.png b/SISBusiness.Module/Images/Images.download.png new file mode 100644 index 0000000..9401f4e Binary files /dev/null and b/SISBusiness.Module/Images/Images.download.png differ diff --git a/SISBusiness.Module/Images/Images.download_32x32.png b/SISBusiness.Module/Images/Images.download_32x32.png new file mode 100644 index 0000000..d382129 Binary files /dev/null and b/SISBusiness.Module/Images/Images.download_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.drink_blue.png b/SISBusiness.Module/Images/Images.drink_blue.png new file mode 100644 index 0000000..02e21a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_blue.png differ diff --git a/SISBusiness.Module/Images/Images.drink_blue_32x32.png b/SISBusiness.Module/Images/Images.drink_blue_32x32.png new file mode 100644 index 0000000..3d89da8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.drink_green.png b/SISBusiness.Module/Images/Images.drink_green.png new file mode 100644 index 0000000..261e99b Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_green.png differ diff --git a/SISBusiness.Module/Images/Images.drink_green_32x32.png b/SISBusiness.Module/Images/Images.drink_green_32x32.png new file mode 100644 index 0000000..79ac7a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.drink_red.png b/SISBusiness.Module/Images/Images.drink_red.png new file mode 100644 index 0000000..f8a5295 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_red.png differ diff --git a/SISBusiness.Module/Images/Images.drink_red_32x32.png b/SISBusiness.Module/Images/Images.drink_red_32x32.png new file mode 100644 index 0000000..1f49e20 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.drink_yellow.png b/SISBusiness.Module/Images/Images.drink_yellow.png new file mode 100644 index 0000000..6ecdb45 Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.drink_yellow_32x32.png b/SISBusiness.Module/Images/Images.drink_yellow_32x32.png new file mode 100644 index 0000000..57bcbce Binary files /dev/null and b/SISBusiness.Module/Images/Images.drink_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dude1.png b/SISBusiness.Module/Images/Images.dude1.png new file mode 100644 index 0000000..d6ccfad Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude1.png differ diff --git a/SISBusiness.Module/Images/Images.dude1_32x32.png b/SISBusiness.Module/Images/Images.dude1_32x32.png new file mode 100644 index 0000000..a5f4c67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dude2.png b/SISBusiness.Module/Images/Images.dude2.png new file mode 100644 index 0000000..86744b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude2.png differ diff --git a/SISBusiness.Module/Images/Images.dude2_32x32.png b/SISBusiness.Module/Images/Images.dude2_32x32.png new file mode 100644 index 0000000..efabde1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dude3.png b/SISBusiness.Module/Images/Images.dude3.png new file mode 100644 index 0000000..328b63e Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude3.png differ diff --git a/SISBusiness.Module/Images/Images.dude3_32x32.png b/SISBusiness.Module/Images/Images.dude3_32x32.png new file mode 100644 index 0000000..3acbe14 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dude4.png b/SISBusiness.Module/Images/Images.dude4.png new file mode 100644 index 0000000..5f8311e Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude4.png differ diff --git a/SISBusiness.Module/Images/Images.dude4_32x32.png b/SISBusiness.Module/Images/Images.dude4_32x32.png new file mode 100644 index 0000000..0daf463 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude4_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.dude5.png b/SISBusiness.Module/Images/Images.dude5.png new file mode 100644 index 0000000..e273a09 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude5.png differ diff --git a/SISBusiness.Module/Images/Images.dude5_32x32.png b/SISBusiness.Module/Images/Images.dude5_32x32.png new file mode 100644 index 0000000..e6c8253 Binary files /dev/null and b/SISBusiness.Module/Images/Images.dude5_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth.png b/SISBusiness.Module/Images/Images.earth.png new file mode 100644 index 0000000..bff0e5b Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth.png differ diff --git a/SISBusiness.Module/Images/Images.earth2.png b/SISBusiness.Module/Images/Images.earth2.png new file mode 100644 index 0000000..a8d6f82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth2.png differ diff --git a/SISBusiness.Module/Images/Images.earth2_32x32.png b/SISBusiness.Module/Images/Images.earth2_32x32.png new file mode 100644 index 0000000..c0e5bbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_32x32.png b/SISBusiness.Module/Images/Images.earth_32x32.png new file mode 100644 index 0000000..6b55f5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_add.png b/SISBusiness.Module/Images/Images.earth_add.png new file mode 100644 index 0000000..e900501 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_add.png differ diff --git a/SISBusiness.Module/Images/Images.earth_add_32x32.png b/SISBusiness.Module/Images/Images.earth_add_32x32.png new file mode 100644 index 0000000..71994b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_connection.png b/SISBusiness.Module/Images/Images.earth_connection.png new file mode 100644 index 0000000..6757a17 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_connection.png differ diff --git a/SISBusiness.Module/Images/Images.earth_connection_32x32.png b/SISBusiness.Module/Images/Images.earth_connection_32x32.png new file mode 100644 index 0000000..8759441 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_delete.png b/SISBusiness.Module/Images/Images.earth_delete.png new file mode 100644 index 0000000..6618f41 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_delete.png differ diff --git a/SISBusiness.Module/Images/Images.earth_delete_32x32.png b/SISBusiness.Module/Images/Images.earth_delete_32x32.png new file mode 100644 index 0000000..3c7604c Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_find.png b/SISBusiness.Module/Images/Images.earth_find.png new file mode 100644 index 0000000..c76efab Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_find.png differ diff --git a/SISBusiness.Module/Images/Images.earth_find_32x32.png b/SISBusiness.Module/Images/Images.earth_find_32x32.png new file mode 100644 index 0000000..2e1e3b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_location.png b/SISBusiness.Module/Images/Images.earth_location.png new file mode 100644 index 0000000..5319d19 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_location.png differ diff --git a/SISBusiness.Module/Images/Images.earth_location_32x32.png b/SISBusiness.Module/Images/Images.earth_location_32x32.png new file mode 100644 index 0000000..1a437f5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_location_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_lock.png b/SISBusiness.Module/Images/Images.earth_lock.png new file mode 100644 index 0000000..cc1ee3f Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_lock.png differ diff --git a/SISBusiness.Module/Images/Images.earth_lock_32x32.png b/SISBusiness.Module/Images/Images.earth_lock_32x32.png new file mode 100644 index 0000000..e9be0ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_music.png b/SISBusiness.Module/Images/Images.earth_music.png new file mode 100644 index 0000000..e047a36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_music.png differ diff --git a/SISBusiness.Module/Images/Images.earth_music_32x32.png b/SISBusiness.Module/Images/Images.earth_music_32x32.png new file mode 100644 index 0000000..a8c3967 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_music_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_network.png b/SISBusiness.Module/Images/Images.earth_network.png new file mode 100644 index 0000000..9c6625c Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_network.png differ diff --git a/SISBusiness.Module/Images/Images.earth_network_32x32.png b/SISBusiness.Module/Images/Images.earth_network_32x32.png new file mode 100644 index 0000000..c7d09da Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_new.png b/SISBusiness.Module/Images/Images.earth_new.png new file mode 100644 index 0000000..138872d Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_new.png differ diff --git a/SISBusiness.Module/Images/Images.earth_new_32x32.png b/SISBusiness.Module/Images/Images.earth_new_32x32.png new file mode 100644 index 0000000..874bf4b Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_preferences.png b/SISBusiness.Module/Images/Images.earth_preferences.png new file mode 100644 index 0000000..602876f Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.earth_preferences_32x32.png b/SISBusiness.Module/Images/Images.earth_preferences_32x32.png new file mode 100644 index 0000000..6a61c0b Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_time.png b/SISBusiness.Module/Images/Images.earth_time.png new file mode 100644 index 0000000..bc744e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_time.png differ diff --git a/SISBusiness.Module/Images/Images.earth_time_32x32.png b/SISBusiness.Module/Images/Images.earth_time_32x32.png new file mode 100644 index 0000000..186d0eb Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.earth_view.png b/SISBusiness.Module/Images/Images.earth_view.png new file mode 100644 index 0000000..07dd458 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_view.png differ diff --git a/SISBusiness.Module/Images/Images.earth_view_32x32.png b/SISBusiness.Module/Images/Images.earth_view_32x32.png new file mode 100644 index 0000000..e4d3884 Binary files /dev/null and b/SISBusiness.Module/Images/Images.earth_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.edit.png b/SISBusiness.Module/Images/Images.edit.png new file mode 100644 index 0000000..c3edcb3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.edit.png differ diff --git a/SISBusiness.Module/Images/Images.edit_32x32.png b/SISBusiness.Module/Images/Images.edit_32x32.png new file mode 100644 index 0000000..3d9de54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element.png b/SISBusiness.Module/Images/Images.element.png new file mode 100644 index 0000000..099a5bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.element.png differ diff --git a/SISBusiness.Module/Images/Images.element_32x32.png b/SISBusiness.Module/Images/Images.element_32x32.png new file mode 100644 index 0000000..9e35640 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_add.png b/SISBusiness.Module/Images/Images.element_add.png new file mode 100644 index 0000000..913a3a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_add.png differ diff --git a/SISBusiness.Module/Images/Images.element_add_32x32.png b/SISBusiness.Module/Images/Images.element_add_32x32.png new file mode 100644 index 0000000..9f5232d Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_copy.png b/SISBusiness.Module/Images/Images.element_copy.png new file mode 100644 index 0000000..02fa5c6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_copy.png differ diff --git a/SISBusiness.Module/Images/Images.element_copy_32x32.png b/SISBusiness.Module/Images/Images.element_copy_32x32.png new file mode 100644 index 0000000..7d44897 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_copy_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_delete.png b/SISBusiness.Module/Images/Images.element_delete.png new file mode 100644 index 0000000..9159efd Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_delete.png differ diff --git a/SISBusiness.Module/Images/Images.element_delete_32x32.png b/SISBusiness.Module/Images/Images.element_delete_32x32.png new file mode 100644 index 0000000..cfcf400 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_down.png b/SISBusiness.Module/Images/Images.element_down.png new file mode 100644 index 0000000..6ed54c4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_down.png differ diff --git a/SISBusiness.Module/Images/Images.element_down_32x32.png b/SISBusiness.Module/Images/Images.element_down_32x32.png new file mode 100644 index 0000000..2acbd81 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_find.png b/SISBusiness.Module/Images/Images.element_find.png new file mode 100644 index 0000000..91c1f90 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_find.png differ diff --git a/SISBusiness.Module/Images/Images.element_find_32x32.png b/SISBusiness.Module/Images/Images.element_find_32x32.png new file mode 100644 index 0000000..4e85683 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_into.png b/SISBusiness.Module/Images/Images.element_into.png new file mode 100644 index 0000000..3e38ecd Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_into.png differ diff --git a/SISBusiness.Module/Images/Images.element_into_32x32.png b/SISBusiness.Module/Images/Images.element_into_32x32.png new file mode 100644 index 0000000..7688300 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_into_input.png b/SISBusiness.Module/Images/Images.element_into_input.png new file mode 100644 index 0000000..7496ecf Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_into_input.png differ diff --git a/SISBusiness.Module/Images/Images.element_into_input_32x32.png b/SISBusiness.Module/Images/Images.element_into_input_32x32.png new file mode 100644 index 0000000..543a7bb Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_into_input_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_new.png b/SISBusiness.Module/Images/Images.element_new.png new file mode 100644 index 0000000..c66ac1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new.png differ diff --git a/SISBusiness.Module/Images/Images.element_new_32x32.png b/SISBusiness.Module/Images/Images.element_new_32x32.png new file mode 100644 index 0000000..fb23bcc Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_new_after.png b/SISBusiness.Module/Images/Images.element_new_after.png new file mode 100644 index 0000000..28d5414 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new_after.png differ diff --git a/SISBusiness.Module/Images/Images.element_new_after_32x32.png b/SISBusiness.Module/Images/Images.element_new_after_32x32.png new file mode 100644 index 0000000..b5e5751 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new_after_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_new_before.png b/SISBusiness.Module/Images/Images.element_new_before.png new file mode 100644 index 0000000..8b02b2c Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new_before.png differ diff --git a/SISBusiness.Module/Images/Images.element_new_before_32x32.png b/SISBusiness.Module/Images/Images.element_new_before_32x32.png new file mode 100644 index 0000000..f21216f Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_new_before_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_next.png b/SISBusiness.Module/Images/Images.element_next.png new file mode 100644 index 0000000..ba06a0a Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_next.png differ diff --git a/SISBusiness.Module/Images/Images.element_next_32x32.png b/SISBusiness.Module/Images/Images.element_next_32x32.png new file mode 100644 index 0000000..b136708 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_ok.png b/SISBusiness.Module/Images/Images.element_ok.png new file mode 100644 index 0000000..46cee1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_ok.png differ diff --git a/SISBusiness.Module/Images/Images.element_ok_32x32.png b/SISBusiness.Module/Images/Images.element_ok_32x32.png new file mode 100644 index 0000000..5484e7c Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_preferences.png b/SISBusiness.Module/Images/Images.element_preferences.png new file mode 100644 index 0000000..a322fdb Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.element_preferences_32x32.png b/SISBusiness.Module/Images/Images.element_preferences_32x32.png new file mode 100644 index 0000000..cf844a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_previous.png b/SISBusiness.Module/Images/Images.element_previous.png new file mode 100644 index 0000000..468e7e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_previous.png differ diff --git a/SISBusiness.Module/Images/Images.element_previous_32x32.png b/SISBusiness.Module/Images/Images.element_previous_32x32.png new file mode 100644 index 0000000..94de4f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_refresh.png b/SISBusiness.Module/Images/Images.element_refresh.png new file mode 100644 index 0000000..15d3178 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.element_refresh_32x32.png b/SISBusiness.Module/Images/Images.element_refresh_32x32.png new file mode 100644 index 0000000..8fe1f6d Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_replace.png b/SISBusiness.Module/Images/Images.element_replace.png new file mode 100644 index 0000000..751b54e Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_replace.png differ diff --git a/SISBusiness.Module/Images/Images.element_replace_32x32.png b/SISBusiness.Module/Images/Images.element_replace_32x32.png new file mode 100644 index 0000000..71a6893 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_run.png b/SISBusiness.Module/Images/Images.element_run.png new file mode 100644 index 0000000..90d87a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_run.png differ diff --git a/SISBusiness.Module/Images/Images.element_run_32x32.png b/SISBusiness.Module/Images/Images.element_run_32x32.png new file mode 100644 index 0000000..23ce4b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_selection.png b/SISBusiness.Module/Images/Images.element_selection.png new file mode 100644 index 0000000..48dce53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_selection.png differ diff --git a/SISBusiness.Module/Images/Images.element_selection_32x32.png b/SISBusiness.Module/Images/Images.element_selection_32x32.png new file mode 100644 index 0000000..e08ad3d Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_selection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_selection_delete.png b/SISBusiness.Module/Images/Images.element_selection_delete.png new file mode 100644 index 0000000..f2d588e Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_selection_delete.png differ diff --git a/SISBusiness.Module/Images/Images.element_selection_delete_32x32.png b/SISBusiness.Module/Images/Images.element_selection_delete_32x32.png new file mode 100644 index 0000000..b6d471c Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_selection_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_stop.png b/SISBusiness.Module/Images/Images.element_stop.png new file mode 100644 index 0000000..64ca150 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_stop.png differ diff --git a/SISBusiness.Module/Images/Images.element_stop_32x32.png b/SISBusiness.Module/Images/Images.element_stop_32x32.png new file mode 100644 index 0000000..2df0921 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_time.png b/SISBusiness.Module/Images/Images.element_time.png new file mode 100644 index 0000000..6aca8eb Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_time.png differ diff --git a/SISBusiness.Module/Images/Images.element_time_32x32.png b/SISBusiness.Module/Images/Images.element_time_32x32.png new file mode 100644 index 0000000..4bdbffd Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_up.png b/SISBusiness.Module/Images/Images.element_up.png new file mode 100644 index 0000000..1ef202f Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_up.png differ diff --git a/SISBusiness.Module/Images/Images.element_up_32x32.png b/SISBusiness.Module/Images/Images.element_up_32x32.png new file mode 100644 index 0000000..d6c252d Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.element_view.png b/SISBusiness.Module/Images/Images.element_view.png new file mode 100644 index 0000000..bd0a9ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_view.png differ diff --git a/SISBusiness.Module/Images/Images.element_view_32x32.png b/SISBusiness.Module/Images/Images.element_view_32x32.png new file mode 100644 index 0000000..b13aad8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.element_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.elements1.png b/SISBusiness.Module/Images/Images.elements1.png new file mode 100644 index 0000000..a2e90d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements1.png differ diff --git a/SISBusiness.Module/Images/Images.elements1_32x32.png b/SISBusiness.Module/Images/Images.elements1_32x32.png new file mode 100644 index 0000000..ddd5087 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.elements2.png b/SISBusiness.Module/Images/Images.elements2.png new file mode 100644 index 0000000..33261d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements2.png differ diff --git a/SISBusiness.Module/Images/Images.elements2_32x32.png b/SISBusiness.Module/Images/Images.elements2_32x32.png new file mode 100644 index 0000000..b684cd2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.elements_selection.png b/SISBusiness.Module/Images/Images.elements_selection.png new file mode 100644 index 0000000..4ab6f18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements_selection.png differ diff --git a/SISBusiness.Module/Images/Images.elements_selection_32x32.png b/SISBusiness.Module/Images/Images.elements_selection_32x32.png new file mode 100644 index 0000000..9b15965 Binary files /dev/null and b/SISBusiness.Module/Images/Images.elements_selection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment.png b/SISBusiness.Module/Images/Images.environment.png new file mode 100644 index 0000000..506bf13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment.png differ diff --git a/SISBusiness.Module/Images/Images.environment_32x32.png b/SISBusiness.Module/Images/Images.environment_32x32.png new file mode 100644 index 0000000..7fcccb3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_add.png b/SISBusiness.Module/Images/Images.environment_add.png new file mode 100644 index 0000000..8eb1fc8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_add.png differ diff --git a/SISBusiness.Module/Images/Images.environment_add_32x32.png b/SISBusiness.Module/Images/Images.environment_add_32x32.png new file mode 100644 index 0000000..bde70c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_delete.png b/SISBusiness.Module/Images/Images.environment_delete.png new file mode 100644 index 0000000..da71371 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_delete.png differ diff --git a/SISBusiness.Module/Images/Images.environment_delete_32x32.png b/SISBusiness.Module/Images/Images.environment_delete_32x32.png new file mode 100644 index 0000000..59bbd54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_error.png b/SISBusiness.Module/Images/Images.environment_error.png new file mode 100644 index 0000000..2fde73d Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_error.png differ diff --git a/SISBusiness.Module/Images/Images.environment_error_32x32.png b/SISBusiness.Module/Images/Images.environment_error_32x32.png new file mode 100644 index 0000000..2cf92ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_information.png b/SISBusiness.Module/Images/Images.environment_information.png new file mode 100644 index 0000000..3a44fd0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_information.png differ diff --git a/SISBusiness.Module/Images/Images.environment_information_32x32.png b/SISBusiness.Module/Images/Images.environment_information_32x32.png new file mode 100644 index 0000000..cf18cf5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_network.png b/SISBusiness.Module/Images/Images.environment_network.png new file mode 100644 index 0000000..5a09322 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_network.png differ diff --git a/SISBusiness.Module/Images/Images.environment_network_32x32.png b/SISBusiness.Module/Images/Images.environment_network_32x32.png new file mode 100644 index 0000000..9d31396 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_ok.png b/SISBusiness.Module/Images/Images.environment_ok.png new file mode 100644 index 0000000..20b9015 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_ok.png differ diff --git a/SISBusiness.Module/Images/Images.environment_ok_32x32.png b/SISBusiness.Module/Images/Images.environment_ok_32x32.png new file mode 100644 index 0000000..db3780d Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_preferences.png b/SISBusiness.Module/Images/Images.environment_preferences.png new file mode 100644 index 0000000..571c89f Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.environment_preferences_32x32.png b/SISBusiness.Module/Images/Images.environment_preferences_32x32.png new file mode 100644 index 0000000..6772af5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_view.png b/SISBusiness.Module/Images/Images.environment_view.png new file mode 100644 index 0000000..88131a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_view.png differ diff --git a/SISBusiness.Module/Images/Images.environment_view_32x32.png b/SISBusiness.Module/Images/Images.environment_view_32x32.png new file mode 100644 index 0000000..185d599 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.environment_warning.png b/SISBusiness.Module/Images/Images.environment_warning.png new file mode 100644 index 0000000..724f3d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_warning.png differ diff --git a/SISBusiness.Module/Images/Images.environment_warning_32x32.png b/SISBusiness.Module/Images/Images.environment_warning_32x32.png new file mode 100644 index 0000000..bde7664 Binary files /dev/null and b/SISBusiness.Module/Images/Images.environment_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.error.png b/SISBusiness.Module/Images/Images.error.png new file mode 100644 index 0000000..03c373c Binary files /dev/null and b/SISBusiness.Module/Images/Images.error.png differ diff --git a/SISBusiness.Module/Images/Images.error_32x32.png b/SISBusiness.Module/Images/Images.error_32x32.png new file mode 100644 index 0000000..7e8ac7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.excel.png b/SISBusiness.Module/Images/Images.excel.png new file mode 100644 index 0000000..a897c92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.excel.png differ diff --git a/SISBusiness.Module/Images/Images.excel_32x32.png b/SISBusiness.Module/Images/Images.excel_32x32.png new file mode 100644 index 0000000..e314909 Binary files /dev/null and b/SISBusiness.Module/Images/Images.excel_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.excel_icon.png b/SISBusiness.Module/Images/Images.excel_icon.png new file mode 100644 index 0000000..98cdb01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.excel_icon.png differ diff --git a/SISBusiness.Module/Images/Images.excel_icon_32x32.png b/SISBusiness.Module/Images/Images.excel_icon_32x32.png new file mode 100644 index 0000000..55c2123 Binary files /dev/null and b/SISBusiness.Module/Images/Images.excel_icon_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.exchange.png b/SISBusiness.Module/Images/Images.exchange.png new file mode 100644 index 0000000..16fb91a Binary files /dev/null and b/SISBusiness.Module/Images/Images.exchange.png differ diff --git a/SISBusiness.Module/Images/Images.exchange_32x32.png b/SISBusiness.Module/Images/Images.exchange_32x32.png new file mode 100644 index 0000000..3e31ff4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.exchange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.exit.png b/SISBusiness.Module/Images/Images.exit.png new file mode 100644 index 0000000..b5e32a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.exit.png differ diff --git a/SISBusiness.Module/Images/Images.exit_32x32.png b/SISBusiness.Module/Images/Images.exit_32x32.png new file mode 100644 index 0000000..09c91ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.exit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.export1.png b/SISBusiness.Module/Images/Images.export1.png new file mode 100644 index 0000000..dd5122b Binary files /dev/null and b/SISBusiness.Module/Images/Images.export1.png differ diff --git a/SISBusiness.Module/Images/Images.export1_32x32.png b/SISBusiness.Module/Images/Images.export1_32x32.png new file mode 100644 index 0000000..b0248cd Binary files /dev/null and b/SISBusiness.Module/Images/Images.export1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.export2.png b/SISBusiness.Module/Images/Images.export2.png new file mode 100644 index 0000000..8e48e74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.export2.png differ diff --git a/SISBusiness.Module/Images/Images.export2_32x32.png b/SISBusiness.Module/Images/Images.export2_32x32.png new file mode 100644 index 0000000..1173198 Binary files /dev/null and b/SISBusiness.Module/Images/Images.export2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.eyeglasses.png b/SISBusiness.Module/Images/Images.eyeglasses.png new file mode 100644 index 0000000..d720065 Binary files /dev/null and b/SISBusiness.Module/Images/Images.eyeglasses.png differ diff --git a/SISBusiness.Module/Images/Images.eyeglasses_32x32.png b/SISBusiness.Module/Images/Images.eyeglasses_32x32.png new file mode 100644 index 0000000..96af4ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.eyeglasses_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.factory.png b/SISBusiness.Module/Images/Images.factory.png new file mode 100644 index 0000000..37018af Binary files /dev/null and b/SISBusiness.Module/Images/Images.factory.png differ diff --git a/SISBusiness.Module/Images/Images.factory_32x32.png b/SISBusiness.Module/Images/Images.factory_32x32.png new file mode 100644 index 0000000..741e687 Binary files /dev/null and b/SISBusiness.Module/Images/Images.factory_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.fax.png b/SISBusiness.Module/Images/Images.fax.png new file mode 100644 index 0000000..00ca89e Binary files /dev/null and b/SISBusiness.Module/Images/Images.fax.png differ diff --git a/SISBusiness.Module/Images/Images.fax_32x32.png b/SISBusiness.Module/Images/Images.fax_32x32.png new file mode 100644 index 0000000..32b6788 Binary files /dev/null and b/SISBusiness.Module/Images/Images.fax_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.film.png b/SISBusiness.Module/Images/Images.film.png new file mode 100644 index 0000000..9120642 Binary files /dev/null and b/SISBusiness.Module/Images/Images.film.png differ diff --git a/SISBusiness.Module/Images/Images.film_32x32.png b/SISBusiness.Module/Images/Images.film_32x32.png new file mode 100644 index 0000000..fd30ef3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.film_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find.png b/SISBusiness.Module/Images/Images.find.png new file mode 100644 index 0000000..66652fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.find.png differ diff --git a/SISBusiness.Module/Images/Images.find_32x32.png b/SISBusiness.Module/Images/Images.find_32x32.png new file mode 100644 index 0000000..d804213 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find_again.png b/SISBusiness.Module/Images/Images.find_again.png new file mode 100644 index 0000000..71e9ae8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_again.png differ diff --git a/SISBusiness.Module/Images/Images.find_again_32x32.png b/SISBusiness.Module/Images/Images.find_again_32x32.png new file mode 100644 index 0000000..28bd77c Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_again_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find_next.png b/SISBusiness.Module/Images/Images.find_next.png new file mode 100644 index 0000000..f002d59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_next.png differ diff --git a/SISBusiness.Module/Images/Images.find_next_32x32.png b/SISBusiness.Module/Images/Images.find_next_32x32.png new file mode 100644 index 0000000..471fc17 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find_previous.png b/SISBusiness.Module/Images/Images.find_previous.png new file mode 100644 index 0000000..c821fe8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_previous.png differ diff --git a/SISBusiness.Module/Images/Images.find_previous_32x32.png b/SISBusiness.Module/Images/Images.find_previous_32x32.png new file mode 100644 index 0000000..8edf53c Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find_selection.png b/SISBusiness.Module/Images/Images.find_selection.png new file mode 100644 index 0000000..9f62198 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_selection.png differ diff --git a/SISBusiness.Module/Images/Images.find_selection_32x32.png b/SISBusiness.Module/Images/Images.find_selection_32x32.png new file mode 100644 index 0000000..9354317 Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_selection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.find_text.png b/SISBusiness.Module/Images/Images.find_text.png new file mode 100644 index 0000000..36f3cfd Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_text.png differ diff --git a/SISBusiness.Module/Images/Images.find_text_32x32.png b/SISBusiness.Module/Images/Images.find_text_32x32.png new file mode 100644 index 0000000..d0c767c Binary files /dev/null and b/SISBusiness.Module/Images/Images.find_text_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.firewall.png b/SISBusiness.Module/Images/Images.firewall.png new file mode 100644 index 0000000..3ddfe01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.firewall.png differ diff --git a/SISBusiness.Module/Images/Images.firewall_32x32.png b/SISBusiness.Module/Images/Images.firewall_32x32.png new file mode 100644 index 0000000..25860a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.firewall_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.first_aid.png b/SISBusiness.Module/Images/Images.first_aid.png new file mode 100644 index 0000000..41d0dab Binary files /dev/null and b/SISBusiness.Module/Images/Images.first_aid.png differ diff --git a/SISBusiness.Module/Images/Images.first_aid_32x32.png b/SISBusiness.Module/Images/Images.first_aid_32x32.png new file mode 100644 index 0000000..e661b65 Binary files /dev/null and b/SISBusiness.Module/Images/Images.first_aid_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.first_aid_box.png b/SISBusiness.Module/Images/Images.first_aid_box.png new file mode 100644 index 0000000..a6db412 Binary files /dev/null and b/SISBusiness.Module/Images/Images.first_aid_box.png differ diff --git a/SISBusiness.Module/Images/Images.first_aid_box_32x32.png b/SISBusiness.Module/Images/Images.first_aid_box_32x32.png new file mode 100644 index 0000000..89a36a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.first_aid_box_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.fit_to_size.png b/SISBusiness.Module/Images/Images.fit_to_size.png new file mode 100644 index 0000000..4de46b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.fit_to_size.png differ diff --git a/SISBusiness.Module/Images/Images.fit_to_size_32x32.png b/SISBusiness.Module/Images/Images.fit_to_size_32x32.png new file mode 100644 index 0000000..9ff3325 Binary files /dev/null and b/SISBusiness.Module/Images/Images.fit_to_size_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flag_yellow.png b/SISBusiness.Module/Images/Images.flag_yellow.png new file mode 100644 index 0000000..3c6d907 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flag_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.flag_yellow_32x32.png b/SISBusiness.Module/Images/Images.flag_yellow_32x32.png new file mode 100644 index 0000000..14c5478 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flag_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flash.png b/SISBusiness.Module/Images/Images.flash.png new file mode 100644 index 0000000..0cc27b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flash.png differ diff --git a/SISBusiness.Module/Images/Images.flash_32x32.png b/SISBusiness.Module/Images/Images.flash_32x32.png new file mode 100644 index 0000000..82dfaeb Binary files /dev/null and b/SISBusiness.Module/Images/Images.flash_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flashlight.png b/SISBusiness.Module/Images/Images.flashlight.png new file mode 100644 index 0000000..3ce1a97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flashlight.png differ diff --git a/SISBusiness.Module/Images/Images.flashlight_32x32.png b/SISBusiness.Module/Images/Images.flashlight_32x32.png new file mode 100644 index 0000000..664c00f Binary files /dev/null and b/SISBusiness.Module/Images/Images.flashlight_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flower_blue.png b/SISBusiness.Module/Images/Images.flower_blue.png new file mode 100644 index 0000000..de9be72 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_blue.png differ diff --git a/SISBusiness.Module/Images/Images.flower_blue_32x32.png b/SISBusiness.Module/Images/Images.flower_blue_32x32.png new file mode 100644 index 0000000..0590bbf Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flower_red.png b/SISBusiness.Module/Images/Images.flower_red.png new file mode 100644 index 0000000..4bf9776 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_red.png differ diff --git a/SISBusiness.Module/Images/Images.flower_red_32x32.png b/SISBusiness.Module/Images/Images.flower_red_32x32.png new file mode 100644 index 0000000..28c6f3d Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flower_white.png b/SISBusiness.Module/Images/Images.flower_white.png new file mode 100644 index 0000000..f099aaa Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_white.png differ diff --git a/SISBusiness.Module/Images/Images.flower_white_32x32.png b/SISBusiness.Module/Images/Images.flower_white_32x32.png new file mode 100644 index 0000000..a994e00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_white_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.flower_yellow.png b/SISBusiness.Module/Images/Images.flower_yellow.png new file mode 100644 index 0000000..4acf32a Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.flower_yellow_32x32.png b/SISBusiness.Module/Images/Images.flower_yellow_32x32.png new file mode 100644 index 0000000..2dac42a Binary files /dev/null and b/SISBusiness.Module/Images/Images.flower_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder.png b/SISBusiness.Module/Images/Images.folder.png new file mode 100644 index 0000000..37f00a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder.png differ diff --git a/SISBusiness.Module/Images/Images.folder_32x32.png b/SISBusiness.Module/Images/Images.folder_32x32.png new file mode 100644 index 0000000..a8805b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_add.png b/SISBusiness.Module/Images/Images.folder_add.png new file mode 100644 index 0000000..0ec3b1a Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_add.png differ diff --git a/SISBusiness.Module/Images/Images.folder_add_32x32.png b/SISBusiness.Module/Images/Images.folder_add_32x32.png new file mode 100644 index 0000000..f239ade Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_closed.png b/SISBusiness.Module/Images/Images.folder_closed.png new file mode 100644 index 0000000..078e85e Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_closed.png differ diff --git a/SISBusiness.Module/Images/Images.folder_closed_32x32.png b/SISBusiness.Module/Images/Images.folder_closed_32x32.png new file mode 100644 index 0000000..026bd5a Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_closed_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_cubes.png b/SISBusiness.Module/Images/Images.folder_cubes.png new file mode 100644 index 0000000..171700f Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_cubes.png differ diff --git a/SISBusiness.Module/Images/Images.folder_cubes_32x32.png b/SISBusiness.Module/Images/Images.folder_cubes_32x32.png new file mode 100644 index 0000000..c71e659 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_cubes_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_delete.png b/SISBusiness.Module/Images/Images.folder_delete.png new file mode 100644 index 0000000..8eb2e94 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_delete.png differ diff --git a/SISBusiness.Module/Images/Images.folder_delete_32x32.png b/SISBusiness.Module/Images/Images.folder_delete_32x32.png new file mode 100644 index 0000000..a770641 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_document.png b/SISBusiness.Module/Images/Images.folder_document.png new file mode 100644 index 0000000..5bd2bbd Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_document.png differ diff --git a/SISBusiness.Module/Images/Images.folder_document_32x32.png b/SISBusiness.Module/Images/Images.folder_document_32x32.png new file mode 100644 index 0000000..f827f50 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_document_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_edit.png b/SISBusiness.Module/Images/Images.folder_edit.png new file mode 100644 index 0000000..c873e99 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_edit.png differ diff --git a/SISBusiness.Module/Images/Images.folder_edit_32x32.png b/SISBusiness.Module/Images/Images.folder_edit_32x32.png new file mode 100644 index 0000000..40d3b47 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_forbidden.png b/SISBusiness.Module/Images/Images.folder_forbidden.png new file mode 100644 index 0000000..587642a Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_forbidden.png differ diff --git a/SISBusiness.Module/Images/Images.folder_forbidden_32x32.png b/SISBusiness.Module/Images/Images.folder_forbidden_32x32.png new file mode 100644 index 0000000..3a1cf95 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_forbidden_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_gear.png b/SISBusiness.Module/Images/Images.folder_gear.png new file mode 100644 index 0000000..ba12025 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_gear.png differ diff --git a/SISBusiness.Module/Images/Images.folder_gear_32x32.png b/SISBusiness.Module/Images/Images.folder_gear_32x32.png new file mode 100644 index 0000000..d74b5ec Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_information.png b/SISBusiness.Module/Images/Images.folder_information.png new file mode 100644 index 0000000..97cde82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_information.png differ diff --git a/SISBusiness.Module/Images/Images.folder_information_32x32.png b/SISBusiness.Module/Images/Images.folder_information_32x32.png new file mode 100644 index 0000000..27c5f6c Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_into.png b/SISBusiness.Module/Images/Images.folder_into.png new file mode 100644 index 0000000..2c8046b Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_into.png differ diff --git a/SISBusiness.Module/Images/Images.folder_into_32x32.png b/SISBusiness.Module/Images/Images.folder_into_32x32.png new file mode 100644 index 0000000..9632d0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_lock.png b/SISBusiness.Module/Images/Images.folder_lock.png new file mode 100644 index 0000000..2923189 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_lock.png differ diff --git a/SISBusiness.Module/Images/Images.folder_lock_32x32.png b/SISBusiness.Module/Images/Images.folder_lock_32x32.png new file mode 100644 index 0000000..c2cc4c0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_movie.png b/SISBusiness.Module/Images/Images.folder_movie.png new file mode 100644 index 0000000..b05e5f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_movie.png differ diff --git a/SISBusiness.Module/Images/Images.folder_movie_32x32.png b/SISBusiness.Module/Images/Images.folder_movie_32x32.png new file mode 100644 index 0000000..99d2713 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_movie_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_music.png b/SISBusiness.Module/Images/Images.folder_music.png new file mode 100644 index 0000000..ffb2d6a Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_music.png differ diff --git a/SISBusiness.Module/Images/Images.folder_music_32x32.png b/SISBusiness.Module/Images/Images.folder_music_32x32.png new file mode 100644 index 0000000..bfbdb36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_music_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_network.png b/SISBusiness.Module/Images/Images.folder_network.png new file mode 100644 index 0000000..54e3ce8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_network.png differ diff --git a/SISBusiness.Module/Images/Images.folder_network_32x32.png b/SISBusiness.Module/Images/Images.folder_network_32x32.png new file mode 100644 index 0000000..d268e23 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_new.png b/SISBusiness.Module/Images/Images.folder_new.png new file mode 100644 index 0000000..e162b3e Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_new.png differ diff --git a/SISBusiness.Module/Images/Images.folder_new_32x32.png b/SISBusiness.Module/Images/Images.folder_new_32x32.png new file mode 100644 index 0000000..24f847d Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_ok.png b/SISBusiness.Module/Images/Images.folder_ok.png new file mode 100644 index 0000000..88df8db Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_ok.png differ diff --git a/SISBusiness.Module/Images/Images.folder_ok_32x32.png b/SISBusiness.Module/Images/Images.folder_ok_32x32.png new file mode 100644 index 0000000..753305f Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_out.png b/SISBusiness.Module/Images/Images.folder_out.png new file mode 100644 index 0000000..bc429a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_out.png differ diff --git a/SISBusiness.Module/Images/Images.folder_out_32x32.png b/SISBusiness.Module/Images/Images.folder_out_32x32.png new file mode 100644 index 0000000..7fda0b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_preferences.png b/SISBusiness.Module/Images/Images.folder_preferences.png new file mode 100644 index 0000000..54078f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.folder_preferences_32x32.png b/SISBusiness.Module/Images/Images.folder_preferences_32x32.png new file mode 100644 index 0000000..c445adf Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_refresh.png b/SISBusiness.Module/Images/Images.folder_refresh.png new file mode 100644 index 0000000..4b28335 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.folder_refresh_32x32.png b/SISBusiness.Module/Images/Images.folder_refresh_32x32.png new file mode 100644 index 0000000..fb66765 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_time.png b/SISBusiness.Module/Images/Images.folder_time.png new file mode 100644 index 0000000..0ed79ed Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_time.png differ diff --git a/SISBusiness.Module/Images/Images.folder_time_32x32.png b/SISBusiness.Module/Images/Images.folder_time_32x32.png new file mode 100644 index 0000000..d59f5ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_up.png b/SISBusiness.Module/Images/Images.folder_up.png new file mode 100644 index 0000000..5cec06a Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_up.png differ diff --git a/SISBusiness.Module/Images/Images.folder_up_32x32.png b/SISBusiness.Module/Images/Images.folder_up_32x32.png new file mode 100644 index 0000000..8c73064 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_view.png b/SISBusiness.Module/Images/Images.folder_view.png new file mode 100644 index 0000000..151eded Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_view.png differ diff --git a/SISBusiness.Module/Images/Images.folder_view_32x32.png b/SISBusiness.Module/Images/Images.folder_view_32x32.png new file mode 100644 index 0000000..2c336ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_warning.png b/SISBusiness.Module/Images/Images.folder_warning.png new file mode 100644 index 0000000..d337b76 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_warning.png differ diff --git a/SISBusiness.Module/Images/Images.folder_warning_32x32.png b/SISBusiness.Module/Images/Images.folder_warning_32x32.png new file mode 100644 index 0000000..2c992f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folder_window.png b/SISBusiness.Module/Images/Images.folder_window.png new file mode 100644 index 0000000..5380853 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_window.png differ diff --git a/SISBusiness.Module/Images/Images.folder_window_32x32.png b/SISBusiness.Module/Images/Images.folder_window_32x32.png new file mode 100644 index 0000000..73389dd Binary files /dev/null and b/SISBusiness.Module/Images/Images.folder_window_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.folders.png b/SISBusiness.Module/Images/Images.folders.png new file mode 100644 index 0000000..8f59b67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.folders.png differ diff --git a/SISBusiness.Module/Images/Images.folders_32x32.png b/SISBusiness.Module/Images/Images.folders_32x32.png new file mode 100644 index 0000000..196754f Binary files /dev/null and b/SISBusiness.Module/Images/Images.folders_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.font.png b/SISBusiness.Module/Images/Images.font.png new file mode 100644 index 0000000..e764fd8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.font.png differ diff --git a/SISBusiness.Module/Images/Images.font_32x32.png b/SISBusiness.Module/Images/Images.font_32x32.png new file mode 100644 index 0000000..127f443 Binary files /dev/null and b/SISBusiness.Module/Images/Images.font_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.forbidden.png b/SISBusiness.Module/Images/Images.forbidden.png new file mode 100644 index 0000000..4425ff3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.forbidden.png differ diff --git a/SISBusiness.Module/Images/Images.forbidden_32x32.png b/SISBusiness.Module/Images/Images.forbidden_32x32.png new file mode 100644 index 0000000..a8ed7ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.forbidden_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.forklifter.png b/SISBusiness.Module/Images/Images.forklifter.png new file mode 100644 index 0000000..41c5b11 Binary files /dev/null and b/SISBusiness.Module/Images/Images.forklifter.png differ diff --git a/SISBusiness.Module/Images/Images.forklifter_32x32.png b/SISBusiness.Module/Images/Images.forklifter_32x32.png new file mode 100644 index 0000000..d9bfb29 Binary files /dev/null and b/SISBusiness.Module/Images/Images.forklifter_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.form_blue.png b/SISBusiness.Module/Images/Images.form_blue.png new file mode 100644 index 0000000..3702fcb Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_blue.png differ diff --git a/SISBusiness.Module/Images/Images.form_blue_32x32.png b/SISBusiness.Module/Images/Images.form_blue_32x32.png new file mode 100644 index 0000000..2fdea23 Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.form_green.png b/SISBusiness.Module/Images/Images.form_green.png new file mode 100644 index 0000000..f86af91 Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_green.png differ diff --git a/SISBusiness.Module/Images/Images.form_green_32x32.png b/SISBusiness.Module/Images/Images.form_green_32x32.png new file mode 100644 index 0000000..ff43abe Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.form_red.png b/SISBusiness.Module/Images/Images.form_red.png new file mode 100644 index 0000000..c5dd346 Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_red.png differ diff --git a/SISBusiness.Module/Images/Images.form_red_32x32.png b/SISBusiness.Module/Images/Images.form_red_32x32.png new file mode 100644 index 0000000..c2cbbf8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.form_yellow.png b/SISBusiness.Module/Images/Images.form_yellow.png new file mode 100644 index 0000000..dc8c71f Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.form_yellow_32x32.png b/SISBusiness.Module/Images/Images.form_yellow_32x32.png new file mode 100644 index 0000000..3b9e151 Binary files /dev/null and b/SISBusiness.Module/Images/Images.form_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.fortress.png b/SISBusiness.Module/Images/Images.fortress.png new file mode 100644 index 0000000..096a4bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.fortress.png differ diff --git a/SISBusiness.Module/Images/Images.fortress_32x32.png b/SISBusiness.Module/Images/Images.fortress_32x32.png new file mode 100644 index 0000000..a93a41e Binary files /dev/null and b/SISBusiness.Module/Images/Images.fortress_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel.png b/SISBusiness.Module/Images/Images.funnel.png new file mode 100644 index 0000000..dd8344c Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_32x32.png b/SISBusiness.Module/Images/Images.funnel_32x32.png new file mode 100644 index 0000000..3261a57 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_add.png b/SISBusiness.Module/Images/Images.funnel_add.png new file mode 100644 index 0000000..ab89707 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_add.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_add_32x32.png b/SISBusiness.Module/Images/Images.funnel_add_32x32.png new file mode 100644 index 0000000..5cefb14 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_delete.png b/SISBusiness.Module/Images/Images.funnel_delete.png new file mode 100644 index 0000000..f801e4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_delete.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_delete_32x32.png b/SISBusiness.Module/Images/Images.funnel_delete_32x32.png new file mode 100644 index 0000000..c12cb60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_down.png b/SISBusiness.Module/Images/Images.funnel_down.png new file mode 100644 index 0000000..147b358 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_down.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_down_32x32.png b/SISBusiness.Module/Images/Images.funnel_down_32x32.png new file mode 100644 index 0000000..ba7aaca Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_edit.png b/SISBusiness.Module/Images/Images.funnel_edit.png new file mode 100644 index 0000000..8440356 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_edit.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_edit_32x32.png b/SISBusiness.Module/Images/Images.funnel_edit_32x32.png new file mode 100644 index 0000000..e0ea54e Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_new.png b/SISBusiness.Module/Images/Images.funnel_new.png new file mode 100644 index 0000000..afc1dec Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_new.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_new_32x32.png b/SISBusiness.Module/Images/Images.funnel_new_32x32.png new file mode 100644 index 0000000..56ad0bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_preferences.png b/SISBusiness.Module/Images/Images.funnel_preferences.png new file mode 100644 index 0000000..2576755 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_preferences_32x32.png b/SISBusiness.Module/Images/Images.funnel_preferences_32x32.png new file mode 100644 index 0000000..bd8b83a Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_up.png b/SISBusiness.Module/Images/Images.funnel_up.png new file mode 100644 index 0000000..54149e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_up.png differ diff --git a/SISBusiness.Module/Images/Images.funnel_up_32x32.png b/SISBusiness.Module/Images/Images.funnel_up_32x32.png new file mode 100644 index 0000000..25b2702 Binary files /dev/null and b/SISBusiness.Module/Images/Images.funnel_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.garbage.png b/SISBusiness.Module/Images/Images.garbage.png new file mode 100644 index 0000000..fa6a61d Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage.png differ diff --git a/SISBusiness.Module/Images/Images.garbage_32x32.png b/SISBusiness.Module/Images/Images.garbage_32x32.png new file mode 100644 index 0000000..127688f Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.garbage_empty.png b/SISBusiness.Module/Images/Images.garbage_empty.png new file mode 100644 index 0000000..30a1524 Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage_empty.png differ diff --git a/SISBusiness.Module/Images/Images.garbage_empty_32x32.png b/SISBusiness.Module/Images/Images.garbage_empty_32x32.png new file mode 100644 index 0000000..49c76b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage_empty_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.garbage_full.png b/SISBusiness.Module/Images/Images.garbage_full.png new file mode 100644 index 0000000..85844fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage_full.png differ diff --git a/SISBusiness.Module/Images/Images.garbage_full_32x32.png b/SISBusiness.Module/Images/Images.garbage_full_32x32.png new file mode 100644 index 0000000..139265f Binary files /dev/null and b/SISBusiness.Module/Images/Images.garbage_full_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gauge.png b/SISBusiness.Module/Images/Images.gauge.png new file mode 100644 index 0000000..5f180e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauge.png differ diff --git a/SISBusiness.Module/Images/Images.gauge_32x32.png b/SISBusiness.Module/Images/Images.gauge_32x32.png new file mode 100644 index 0000000..61f7fe9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauge_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gauntlet.png b/SISBusiness.Module/Images/Images.gauntlet.png new file mode 100644 index 0000000..1d3e4aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauntlet.png differ diff --git a/SISBusiness.Module/Images/Images.gauntlet_32x32.png b/SISBusiness.Module/Images/Images.gauntlet_32x32.png new file mode 100644 index 0000000..c7d37b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauntlet_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gauze_bandage.png b/SISBusiness.Module/Images/Images.gauze_bandage.png new file mode 100644 index 0000000..278581d Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauze_bandage.png differ diff --git a/SISBusiness.Module/Images/Images.gauze_bandage_32x32.png b/SISBusiness.Module/Images/Images.gauze_bandage_32x32.png new file mode 100644 index 0000000..6a599ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.gauze_bandage_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear.png b/SISBusiness.Module/Images/Images.gear.png new file mode 100644 index 0000000..4ed6f68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear.png differ diff --git a/SISBusiness.Module/Images/Images.gear_32x32.png b/SISBusiness.Module/Images/Images.gear_32x32.png new file mode 100644 index 0000000..eff2293 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_add.png b/SISBusiness.Module/Images/Images.gear_add.png new file mode 100644 index 0000000..38dca0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_add.png differ diff --git a/SISBusiness.Module/Images/Images.gear_add_32x32.png b/SISBusiness.Module/Images/Images.gear_add_32x32.png new file mode 100644 index 0000000..28c763f Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_connection.png b/SISBusiness.Module/Images/Images.gear_connection.png new file mode 100644 index 0000000..e144026 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_connection.png differ diff --git a/SISBusiness.Module/Images/Images.gear_connection_32x32.png b/SISBusiness.Module/Images/Images.gear_connection_32x32.png new file mode 100644 index 0000000..38fa78c Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_delete.png b/SISBusiness.Module/Images/Images.gear_delete.png new file mode 100644 index 0000000..c598d63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_delete.png differ diff --git a/SISBusiness.Module/Images/Images.gear_delete_32x32.png b/SISBusiness.Module/Images/Images.gear_delete_32x32.png new file mode 100644 index 0000000..f618f5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_error.png b/SISBusiness.Module/Images/Images.gear_error.png new file mode 100644 index 0000000..dc58f2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_error.png differ diff --git a/SISBusiness.Module/Images/Images.gear_error_32x32.png b/SISBusiness.Module/Images/Images.gear_error_32x32.png new file mode 100644 index 0000000..180e34e Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_find.png b/SISBusiness.Module/Images/Images.gear_find.png new file mode 100644 index 0000000..0a82b0f Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_find.png differ diff --git a/SISBusiness.Module/Images/Images.gear_find_32x32.png b/SISBusiness.Module/Images/Images.gear_find_32x32.png new file mode 100644 index 0000000..a0baf9a Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_forbidden.png b/SISBusiness.Module/Images/Images.gear_forbidden.png new file mode 100644 index 0000000..a3f4dc4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_forbidden.png differ diff --git a/SISBusiness.Module/Images/Images.gear_forbidden_32x32.png b/SISBusiness.Module/Images/Images.gear_forbidden_32x32.png new file mode 100644 index 0000000..89f1480 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_forbidden_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_information.png b/SISBusiness.Module/Images/Images.gear_information.png new file mode 100644 index 0000000..ace5cd0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_information.png differ diff --git a/SISBusiness.Module/Images/Images.gear_information_32x32.png b/SISBusiness.Module/Images/Images.gear_information_32x32.png new file mode 100644 index 0000000..5fb605f Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_new.png b/SISBusiness.Module/Images/Images.gear_new.png new file mode 100644 index 0000000..7d4c618 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_new.png differ diff --git a/SISBusiness.Module/Images/Images.gear_new_32x32.png b/SISBusiness.Module/Images/Images.gear_new_32x32.png new file mode 100644 index 0000000..168eb51 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_ok.png b/SISBusiness.Module/Images/Images.gear_ok.png new file mode 100644 index 0000000..e32cbd0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_ok.png differ diff --git a/SISBusiness.Module/Images/Images.gear_ok_32x32.png b/SISBusiness.Module/Images/Images.gear_ok_32x32.png new file mode 100644 index 0000000..194e0cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_pause.png b/SISBusiness.Module/Images/Images.gear_pause.png new file mode 100644 index 0000000..61846af Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_pause.png differ diff --git a/SISBusiness.Module/Images/Images.gear_pause_32x32.png b/SISBusiness.Module/Images/Images.gear_pause_32x32.png new file mode 100644 index 0000000..622aab3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_preferences.png b/SISBusiness.Module/Images/Images.gear_preferences.png new file mode 100644 index 0000000..61a44c2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.gear_preferences_32x32.png b/SISBusiness.Module/Images/Images.gear_preferences_32x32.png new file mode 100644 index 0000000..df23a9e Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_refresh.png b/SISBusiness.Module/Images/Images.gear_refresh.png new file mode 100644 index 0000000..cb2bae6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.gear_refresh_32x32.png b/SISBusiness.Module/Images/Images.gear_refresh_32x32.png new file mode 100644 index 0000000..9021958 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_replace.png b/SISBusiness.Module/Images/Images.gear_replace.png new file mode 100644 index 0000000..52ae71a Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_replace.png differ diff --git a/SISBusiness.Module/Images/Images.gear_replace_32x32.png b/SISBusiness.Module/Images/Images.gear_replace_32x32.png new file mode 100644 index 0000000..9f25a62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_run.png b/SISBusiness.Module/Images/Images.gear_run.png new file mode 100644 index 0000000..c7de3db Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_run.png differ diff --git a/SISBusiness.Module/Images/Images.gear_run_32x32.png b/SISBusiness.Module/Images/Images.gear_run_32x32.png new file mode 100644 index 0000000..6fa4bc7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_run_back.png b/SISBusiness.Module/Images/Images.gear_run_back.png new file mode 100644 index 0000000..02e64af Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_run_back.png differ diff --git a/SISBusiness.Module/Images/Images.gear_run_back_32x32.png b/SISBusiness.Module/Images/Images.gear_run_back_32x32.png new file mode 100644 index 0000000..8e46dd4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_run_back_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_stop.png b/SISBusiness.Module/Images/Images.gear_stop.png new file mode 100644 index 0000000..b7dc5fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_stop.png differ diff --git a/SISBusiness.Module/Images/Images.gear_stop_32x32.png b/SISBusiness.Module/Images/Images.gear_stop_32x32.png new file mode 100644 index 0000000..96b4770 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_time.png b/SISBusiness.Module/Images/Images.gear_time.png new file mode 100644 index 0000000..0a28504 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_time.png differ diff --git a/SISBusiness.Module/Images/Images.gear_time_32x32.png b/SISBusiness.Module/Images/Images.gear_time_32x32.png new file mode 100644 index 0000000..54abb53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_view.png b/SISBusiness.Module/Images/Images.gear_view.png new file mode 100644 index 0000000..95802a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_view.png differ diff --git a/SISBusiness.Module/Images/Images.gear_view_32x32.png b/SISBusiness.Module/Images/Images.gear_view_32x32.png new file mode 100644 index 0000000..f0b68f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gear_warning.png b/SISBusiness.Module/Images/Images.gear_warning.png new file mode 100644 index 0000000..de59775 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_warning.png differ diff --git a/SISBusiness.Module/Images/Images.gear_warning_32x32.png b/SISBusiness.Module/Images/Images.gear_warning_32x32.png new file mode 100644 index 0000000..286a6d8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gear_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears.png b/SISBusiness.Module/Images/Images.gears.png new file mode 100644 index 0000000..2125ef7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears.png differ diff --git a/SISBusiness.Module/Images/Images.gears_32x32.png b/SISBusiness.Module/Images/Images.gears_32x32.png new file mode 100644 index 0000000..978706a Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears_pause.png b/SISBusiness.Module/Images/Images.gears_pause.png new file mode 100644 index 0000000..a6d9119 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_pause.png differ diff --git a/SISBusiness.Module/Images/Images.gears_pause_32x32.png b/SISBusiness.Module/Images/Images.gears_pause_32x32.png new file mode 100644 index 0000000..9f799de Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears_preferences.png b/SISBusiness.Module/Images/Images.gears_preferences.png new file mode 100644 index 0000000..61caa9e Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.gears_preferences_32x32.png b/SISBusiness.Module/Images/Images.gears_preferences_32x32.png new file mode 100644 index 0000000..9a763c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears_run.png b/SISBusiness.Module/Images/Images.gears_run.png new file mode 100644 index 0000000..87c4062 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_run.png differ diff --git a/SISBusiness.Module/Images/Images.gears_run_32x32.png b/SISBusiness.Module/Images/Images.gears_run_32x32.png new file mode 100644 index 0000000..e75c013 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears_stop.png b/SISBusiness.Module/Images/Images.gears_stop.png new file mode 100644 index 0000000..6230a2e Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_stop.png differ diff --git a/SISBusiness.Module/Images/Images.gears_stop_32x32.png b/SISBusiness.Module/Images/Images.gears_stop_32x32.png new file mode 100644 index 0000000..86d7229 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gears_view.png b/SISBusiness.Module/Images/Images.gears_view.png new file mode 100644 index 0000000..6125ced Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_view.png differ diff --git a/SISBusiness.Module/Images/Images.gears_view_32x32.png b/SISBusiness.Module/Images/Images.gears_view_32x32.png new file mode 100644 index 0000000..7042d59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gears_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.ghost.png b/SISBusiness.Module/Images/Images.ghost.png new file mode 100644 index 0000000..a093251 Binary files /dev/null and b/SISBusiness.Module/Images/Images.ghost.png differ diff --git a/SISBusiness.Module/Images/Images.ghost_32x32.png b/SISBusiness.Module/Images/Images.ghost_32x32.png new file mode 100644 index 0000000..7e3952c Binary files /dev/null and b/SISBusiness.Module/Images/Images.ghost_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_bronze.png b/SISBusiness.Module/Images/Images.goblet_bronze.png new file mode 100644 index 0000000..27e74e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_bronze.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_bronze_32x32.png b/SISBusiness.Module/Images/Images.goblet_bronze_32x32.png new file mode 100644 index 0000000..9972ff3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_bronze_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold.png b/SISBusiness.Module/Images/Images.goblet_gold.png new file mode 100644 index 0000000..ed915c9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_32x32.png b/SISBusiness.Module/Images/Images.goblet_gold_32x32.png new file mode 100644 index 0000000..a84bf0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_add.png b/SISBusiness.Module/Images/Images.goblet_gold_add.png new file mode 100644 index 0000000..625627f Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_add.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_add_32x32.png b/SISBusiness.Module/Images/Images.goblet_gold_add_32x32.png new file mode 100644 index 0000000..8fc3935 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_delete.png b/SISBusiness.Module/Images/Images.goblet_gold_delete.png new file mode 100644 index 0000000..2a5ac6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_delete.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_delete_32x32.png b/SISBusiness.Module/Images/Images.goblet_gold_delete_32x32.png new file mode 100644 index 0000000..866ba52 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_new.png b/SISBusiness.Module/Images/Images.goblet_gold_new.png new file mode 100644 index 0000000..54ece8b Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_new.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_new_32x32.png b/SISBusiness.Module/Images/Images.goblet_gold_new_32x32.png new file mode 100644 index 0000000..323c09d Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_preferences.png b/SISBusiness.Module/Images/Images.goblet_gold_preferences.png new file mode 100644 index 0000000..9dc14ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_gold_preferences_32x32.png b/SISBusiness.Module/Images/Images.goblet_gold_preferences_32x32.png new file mode 100644 index 0000000..856d3f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_gold_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_silver.png b/SISBusiness.Module/Images/Images.goblet_silver.png new file mode 100644 index 0000000..892f15d Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_silver.png differ diff --git a/SISBusiness.Module/Images/Images.goblet_silver_32x32.png b/SISBusiness.Module/Images/Images.goblet_silver_32x32.png new file mode 100644 index 0000000..7e6abaa Binary files /dev/null and b/SISBusiness.Module/Images/Images.goblet_silver_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar.png b/SISBusiness.Module/Images/Images.goldbar.png new file mode 100644 index 0000000..40a0cb9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar_32x32.png b/SISBusiness.Module/Images/Images.goldbar_32x32.png new file mode 100644 index 0000000..d88a286 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar_add.png b/SISBusiness.Module/Images/Images.goldbar_add.png new file mode 100644 index 0000000..94d1a55 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar_add.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar_add_32x32.png b/SISBusiness.Module/Images/Images.goldbar_add_32x32.png new file mode 100644 index 0000000..05eeff6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar_delete.png b/SISBusiness.Module/Images/Images.goldbar_delete.png new file mode 100644 index 0000000..0672797 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar_delete.png differ diff --git a/SISBusiness.Module/Images/Images.goldbar_delete_32x32.png b/SISBusiness.Module/Images/Images.goldbar_delete_32x32.png new file mode 100644 index 0000000..d3d7100 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbar_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.goldbars.png b/SISBusiness.Module/Images/Images.goldbars.png new file mode 100644 index 0000000..f4eb8fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbars.png differ diff --git a/SISBusiness.Module/Images/Images.goldbars_32x32.png b/SISBusiness.Module/Images/Images.goldbars_32x32.png new file mode 100644 index 0000000..3ac30d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.goldbars_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.graduate.png b/SISBusiness.Module/Images/Images.graduate.png new file mode 100644 index 0000000..77e37a2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduate.png differ diff --git a/SISBusiness.Module/Images/Images.graduate_32x32.png b/SISBusiness.Module/Images/Images.graduate_32x32.png new file mode 100644 index 0000000..305cc47 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.graduation_hat1.png b/SISBusiness.Module/Images/Images.graduation_hat1.png new file mode 100644 index 0000000..fa44744 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduation_hat1.png differ diff --git a/SISBusiness.Module/Images/Images.graduation_hat1_32x32.png b/SISBusiness.Module/Images/Images.graduation_hat1_32x32.png new file mode 100644 index 0000000..1340f36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduation_hat1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.graduation_hat2.png b/SISBusiness.Module/Images/Images.graduation_hat2.png new file mode 100644 index 0000000..df201d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduation_hat2.png differ diff --git a/SISBusiness.Module/Images/Images.graduation_hat2_32x32.png b/SISBusiness.Module/Images/Images.graduation_hat2_32x32.png new file mode 100644 index 0000000..2870258 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graduation_hat2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.graphics-tablet.png b/SISBusiness.Module/Images/Images.graphics-tablet.png new file mode 100644 index 0000000..930debf Binary files /dev/null and b/SISBusiness.Module/Images/Images.graphics-tablet.png differ diff --git a/SISBusiness.Module/Images/Images.graphics-tablet_32x32.png b/SISBusiness.Module/Images/Images.graphics-tablet_32x32.png new file mode 100644 index 0000000..5b232c7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.graphics-tablet_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.guard.png b/SISBusiness.Module/Images/Images.guard.png new file mode 100644 index 0000000..35edca5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.guard.png differ diff --git a/SISBusiness.Module/Images/Images.guard_32x32.png b/SISBusiness.Module/Images/Images.guard_32x32.png new file mode 100644 index 0000000..900d8a4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.guard_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.gun.png b/SISBusiness.Module/Images/Images.gun.png new file mode 100644 index 0000000..1450b13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.gun.png differ diff --git a/SISBusiness.Module/Images/Images.gun_32x32.png b/SISBusiness.Module/Images/Images.gun_32x32.png new file mode 100644 index 0000000..c259f8f Binary files /dev/null and b/SISBusiness.Module/Images/Images.gun_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hammer.png b/SISBusiness.Module/Images/Images.hammer.png new file mode 100644 index 0000000..22ec853 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hammer.png differ diff --git a/SISBusiness.Module/Images/Images.hammer2.png b/SISBusiness.Module/Images/Images.hammer2.png new file mode 100644 index 0000000..6d9a30b Binary files /dev/null and b/SISBusiness.Module/Images/Images.hammer2.png differ diff --git a/SISBusiness.Module/Images/Images.hammer2_32x32.png b/SISBusiness.Module/Images/Images.hammer2_32x32.png new file mode 100644 index 0000000..af3bf0b Binary files /dev/null and b/SISBusiness.Module/Images/Images.hammer2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hammer_32x32.png b/SISBusiness.Module/Images/Images.hammer_32x32.png new file mode 100644 index 0000000..5dad9fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.hammer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_money.png b/SISBusiness.Module/Images/Images.hand_money.png new file mode 100644 index 0000000..f2805f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_money.png differ diff --git a/SISBusiness.Module/Images/Images.hand_money_32x32.png b/SISBusiness.Module/Images/Images.hand_money_32x32.png new file mode 100644 index 0000000..704bcdc Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_money_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_offer.png b/SISBusiness.Module/Images/Images.hand_offer.png new file mode 100644 index 0000000..d5a2081 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_offer.png differ diff --git a/SISBusiness.Module/Images/Images.hand_offer_32x32.png b/SISBusiness.Module/Images/Images.hand_offer_32x32.png new file mode 100644 index 0000000..8815e35 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_offer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_paper.png b/SISBusiness.Module/Images/Images.hand_paper.png new file mode 100644 index 0000000..18ce8ee Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_paper.png differ diff --git a/SISBusiness.Module/Images/Images.hand_paper_32x32.png b/SISBusiness.Module/Images/Images.hand_paper_32x32.png new file mode 100644 index 0000000..31e3903 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_paper_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point.png b/SISBusiness.Module/Images/Images.hand_point.png new file mode 100644 index 0000000..06e84a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point2.png b/SISBusiness.Module/Images/Images.hand_point2.png new file mode 100644 index 0000000..c2c139d Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point2.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point2_32x32.png b/SISBusiness.Module/Images/Images.hand_point2_32x32.png new file mode 100644 index 0000000..9a81788 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point_32x32.png b/SISBusiness.Module/Images/Images.hand_point_32x32.png new file mode 100644 index 0000000..04dce0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point_disk.png b/SISBusiness.Module/Images/Images.hand_point_disk.png new file mode 100644 index 0000000..42a50ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point_disk.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point_disk_32x32.png b/SISBusiness.Module/Images/Images.hand_point_disk_32x32.png new file mode 100644 index 0000000..6ea3d6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point_disk_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point_find.png b/SISBusiness.Module/Images/Images.hand_point_find.png new file mode 100644 index 0000000..4c70025 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point_find.png differ diff --git a/SISBusiness.Module/Images/Images.hand_point_find_32x32.png b/SISBusiness.Module/Images/Images.hand_point_find_32x32.png new file mode 100644 index 0000000..2a39a90 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_point_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_red_card.png b/SISBusiness.Module/Images/Images.hand_red_card.png new file mode 100644 index 0000000..5a9e026 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_red_card.png differ diff --git a/SISBusiness.Module/Images/Images.hand_red_card_32x32.png b/SISBusiness.Module/Images/Images.hand_red_card_32x32.png new file mode 100644 index 0000000..b016806 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_red_card_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_stop.png b/SISBusiness.Module/Images/Images.hand_stop.png new file mode 100644 index 0000000..6db348f Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_stop.png differ diff --git a/SISBusiness.Module/Images/Images.hand_stop_32x32.png b/SISBusiness.Module/Images/Images.hand_stop_32x32.png new file mode 100644 index 0000000..f161310 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hand_yellow_card.png b/SISBusiness.Module/Images/Images.hand_yellow_card.png new file mode 100644 index 0000000..d866a0d Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_yellow_card.png differ diff --git a/SISBusiness.Module/Images/Images.hand_yellow_card_32x32.png b/SISBusiness.Module/Images/Images.hand_yellow_card_32x32.png new file mode 100644 index 0000000..94b9daa Binary files /dev/null and b/SISBusiness.Module/Images/Images.hand_yellow_card_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.handheld_device.png b/SISBusiness.Module/Images/Images.handheld_device.png new file mode 100644 index 0000000..a981135 Binary files /dev/null and b/SISBusiness.Module/Images/Images.handheld_device.png differ diff --git a/SISBusiness.Module/Images/Images.handheld_device_32x32.png b/SISBusiness.Module/Images/Images.handheld_device_32x32.png new file mode 100644 index 0000000..2775559 Binary files /dev/null and b/SISBusiness.Module/Images/Images.handheld_device_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.handshake.png b/SISBusiness.Module/Images/Images.handshake.png new file mode 100644 index 0000000..b9a5c57 Binary files /dev/null and b/SISBusiness.Module/Images/Images.handshake.png differ diff --git a/SISBusiness.Module/Images/Images.handshake_32x32.png b/SISBusiness.Module/Images/Images.handshake_32x32.png new file mode 100644 index 0000000..e1a76e6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.handshake_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk.png b/SISBusiness.Module/Images/Images.harddisk.png new file mode 100644 index 0000000..0f41f55 Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_32x32.png b/SISBusiness.Module/Images/Images.harddisk_32x32.png new file mode 100644 index 0000000..756e42a Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_add.png b/SISBusiness.Module/Images/Images.harddisk_add.png new file mode 100644 index 0000000..971dac0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_add.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_add_32x32.png b/SISBusiness.Module/Images/Images.harddisk_add_32x32.png new file mode 100644 index 0000000..2158745 Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_delete.png b/SISBusiness.Module/Images/Images.harddisk_delete.png new file mode 100644 index 0000000..3d81b2c Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_delete.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_delete_32x32.png b/SISBusiness.Module/Images/Images.harddisk_delete_32x32.png new file mode 100644 index 0000000..7750dcf Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_network.png b/SISBusiness.Module/Images/Images.harddisk_network.png new file mode 100644 index 0000000..839329a Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_network.png differ diff --git a/SISBusiness.Module/Images/Images.harddisk_network_32x32.png b/SISBusiness.Module/Images/Images.harddisk_network_32x32.png new file mode 100644 index 0000000..6045a1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.harddisk_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hat_gray.png b/SISBusiness.Module/Images/Images.hat_gray.png new file mode 100644 index 0000000..f3ca100 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_gray.png differ diff --git a/SISBusiness.Module/Images/Images.hat_gray_32x32.png b/SISBusiness.Module/Images/Images.hat_gray_32x32.png new file mode 100644 index 0000000..daaa9cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_gray_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hat_green.png b/SISBusiness.Module/Images/Images.hat_green.png new file mode 100644 index 0000000..d982ee1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_green.png differ diff --git a/SISBusiness.Module/Images/Images.hat_green_32x32.png b/SISBusiness.Module/Images/Images.hat_green_32x32.png new file mode 100644 index 0000000..046a0e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hat_red.png b/SISBusiness.Module/Images/Images.hat_red.png new file mode 100644 index 0000000..e027b91 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_red.png differ diff --git a/SISBusiness.Module/Images/Images.hat_red_32x32.png b/SISBusiness.Module/Images/Images.hat_red_32x32.png new file mode 100644 index 0000000..ee61f80 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hat_white.png b/SISBusiness.Module/Images/Images.hat_white.png new file mode 100644 index 0000000..a4f9576 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_white.png differ diff --git a/SISBusiness.Module/Images/Images.hat_white_32x32.png b/SISBusiness.Module/Images/Images.hat_white_32x32.png new file mode 100644 index 0000000..82166f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hat_white_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.headphones.png b/SISBusiness.Module/Images/Images.headphones.png new file mode 100644 index 0000000..ce9bda6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.headphones.png differ diff --git a/SISBusiness.Module/Images/Images.headphones_32x32.png b/SISBusiness.Module/Images/Images.headphones_32x32.png new file mode 100644 index 0000000..9e4d1ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.headphones_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.headset.png b/SISBusiness.Module/Images/Images.headset.png new file mode 100644 index 0000000..a487519 Binary files /dev/null and b/SISBusiness.Module/Images/Images.headset.png differ diff --git a/SISBusiness.Module/Images/Images.headset_32x32.png b/SISBusiness.Module/Images/Images.headset_32x32.png new file mode 100644 index 0000000..ac42703 Binary files /dev/null and b/SISBusiness.Module/Images/Images.headset_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart.png b/SISBusiness.Module/Images/Images.heart.png new file mode 100644 index 0000000..3fadb15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart.png differ diff --git a/SISBusiness.Module/Images/Images.heart_32x32.png b/SISBusiness.Module/Images/Images.heart_32x32.png new file mode 100644 index 0000000..5014208 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart_add.png b/SISBusiness.Module/Images/Images.heart_add.png new file mode 100644 index 0000000..c2ae256 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_add.png differ diff --git a/SISBusiness.Module/Images/Images.heart_add_32x32.png b/SISBusiness.Module/Images/Images.heart_add_32x32.png new file mode 100644 index 0000000..b80d55f Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart_broken.png b/SISBusiness.Module/Images/Images.heart_broken.png new file mode 100644 index 0000000..8e1ffca Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_broken.png differ diff --git a/SISBusiness.Module/Images/Images.heart_broken_32x32.png b/SISBusiness.Module/Images/Images.heart_broken_32x32.png new file mode 100644 index 0000000..3805dbf Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_broken_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart_delete.png b/SISBusiness.Module/Images/Images.heart_delete.png new file mode 100644 index 0000000..f466fa7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_delete.png differ diff --git a/SISBusiness.Module/Images/Images.heart_delete_32x32.png b/SISBusiness.Module/Images/Images.heart_delete_32x32.png new file mode 100644 index 0000000..d36f05d Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart_new.png b/SISBusiness.Module/Images/Images.heart_new.png new file mode 100644 index 0000000..50ef461 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_new.png differ diff --git a/SISBusiness.Module/Images/Images.heart_new_32x32.png b/SISBusiness.Module/Images/Images.heart_new_32x32.png new file mode 100644 index 0000000..1f551f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.heart_preferences.png b/SISBusiness.Module/Images/Images.heart_preferences.png new file mode 100644 index 0000000..fdd7ca2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.heart_preferences_32x32.png b/SISBusiness.Module/Images/Images.heart_preferences_32x32.png new file mode 100644 index 0000000..0f65c40 Binary files /dev/null and b/SISBusiness.Module/Images/Images.heart_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.helicopter.png b/SISBusiness.Module/Images/Images.helicopter.png new file mode 100644 index 0000000..3667172 Binary files /dev/null and b/SISBusiness.Module/Images/Images.helicopter.png differ diff --git a/SISBusiness.Module/Images/Images.helicopter_32x32.png b/SISBusiness.Module/Images/Images.helicopter_32x32.png new file mode 100644 index 0000000..c51402a Binary files /dev/null and b/SISBusiness.Module/Images/Images.helicopter_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.helmet.png b/SISBusiness.Module/Images/Images.helmet.png new file mode 100644 index 0000000..18cd6cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.helmet.png differ diff --git a/SISBusiness.Module/Images/Images.helmet_32x32.png b/SISBusiness.Module/Images/Images.helmet_32x32.png new file mode 100644 index 0000000..b70aa23 Binary files /dev/null and b/SISBusiness.Module/Images/Images.helmet_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.help.png b/SISBusiness.Module/Images/Images.help.png new file mode 100644 index 0000000..caa455d Binary files /dev/null and b/SISBusiness.Module/Images/Images.help.png differ diff --git a/SISBusiness.Module/Images/Images.help2.png b/SISBusiness.Module/Images/Images.help2.png new file mode 100644 index 0000000..b7079d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.help2.png differ diff --git a/SISBusiness.Module/Images/Images.help2_32x32.png b/SISBusiness.Module/Images/Images.help2_32x32.png new file mode 100644 index 0000000..c03fe51 Binary files /dev/null and b/SISBusiness.Module/Images/Images.help2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.help_32x32.png b/SISBusiness.Module/Images/Images.help_32x32.png new file mode 100644 index 0000000..de633bb Binary files /dev/null and b/SISBusiness.Module/Images/Images.help_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.help_earth.png b/SISBusiness.Module/Images/Images.help_earth.png new file mode 100644 index 0000000..863cd72 Binary files /dev/null and b/SISBusiness.Module/Images/Images.help_earth.png differ diff --git a/SISBusiness.Module/Images/Images.help_earth_32x32.png b/SISBusiness.Module/Images/Images.help_earth_32x32.png new file mode 100644 index 0000000..fb59ba1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.help_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.history.png b/SISBusiness.Module/Images/Images.history.png new file mode 100644 index 0000000..d6c5cb0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.history.png differ diff --git a/SISBusiness.Module/Images/Images.history2.png b/SISBusiness.Module/Images/Images.history2.png new file mode 100644 index 0000000..67129ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.history2.png differ diff --git a/SISBusiness.Module/Images/Images.history2_32x32.png b/SISBusiness.Module/Images/Images.history2_32x32.png new file mode 100644 index 0000000..e5ba8bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.history2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.history_32x32.png b/SISBusiness.Module/Images/Images.history_32x32.png new file mode 100644 index 0000000..3a8853d Binary files /dev/null and b/SISBusiness.Module/Images/Images.history_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.history_add.png b/SISBusiness.Module/Images/Images.history_add.png new file mode 100644 index 0000000..1a01aeb Binary files /dev/null and b/SISBusiness.Module/Images/Images.history_add.png differ diff --git a/SISBusiness.Module/Images/Images.history_add_32x32.png b/SISBusiness.Module/Images/Images.history_add_32x32.png new file mode 100644 index 0000000..868fdcf Binary files /dev/null and b/SISBusiness.Module/Images/Images.history_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.history_delete.png b/SISBusiness.Module/Images/Images.history_delete.png new file mode 100644 index 0000000..dd8b3e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.history_delete.png differ diff --git a/SISBusiness.Module/Images/Images.history_delete_32x32.png b/SISBusiness.Module/Images/Images.history_delete_32x32.png new file mode 100644 index 0000000..8a64a8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.history_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.holmes.png b/SISBusiness.Module/Images/Images.holmes.png new file mode 100644 index 0000000..0276d2b Binary files /dev/null and b/SISBusiness.Module/Images/Images.holmes.png differ diff --git a/SISBusiness.Module/Images/Images.holmes_32x32.png b/SISBusiness.Module/Images/Images.holmes_32x32.png new file mode 100644 index 0000000..4cf2fb2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.holmes_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.home.png b/SISBusiness.Module/Images/Images.home.png new file mode 100644 index 0000000..f685b7d Binary files /dev/null and b/SISBusiness.Module/Images/Images.home.png differ diff --git a/SISBusiness.Module/Images/Images.home_32x32.png b/SISBusiness.Module/Images/Images.home_32x32.png new file mode 100644 index 0000000..fbcd930 Binary files /dev/null and b/SISBusiness.Module/Images/Images.home_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.hourglass.png b/SISBusiness.Module/Images/Images.hourglass.png new file mode 100644 index 0000000..aeb0220 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hourglass.png differ diff --git a/SISBusiness.Module/Images/Images.hourglass_32x32.png b/SISBusiness.Module/Images/Images.hourglass_32x32.png new file mode 100644 index 0000000..7267cb4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.hourglass_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.house.png b/SISBusiness.Module/Images/Images.house.png new file mode 100644 index 0000000..eefec0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.house.png differ diff --git a/SISBusiness.Module/Images/Images.house_32x32.png b/SISBusiness.Module/Images/Images.house_32x32.png new file mode 100644 index 0000000..fdad183 Binary files /dev/null and b/SISBusiness.Module/Images/Images.house_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.houses.png b/SISBusiness.Module/Images/Images.houses.png new file mode 100644 index 0000000..97e47d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.houses.png differ diff --git a/SISBusiness.Module/Images/Images.houses_32x32.png b/SISBusiness.Module/Images/Images.houses_32x32.png new file mode 100644 index 0000000..b2e7876 Binary files /dev/null and b/SISBusiness.Module/Images/Images.houses_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.icecube.png b/SISBusiness.Module/Images/Images.icecube.png new file mode 100644 index 0000000..12238ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.icecube.png differ diff --git a/SISBusiness.Module/Images/Images.icecube_32x32.png b/SISBusiness.Module/Images/Images.icecube_32x32.png new file mode 100644 index 0000000..f4d3061 Binary files /dev/null and b/SISBusiness.Module/Images/Images.icecube_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card.png b/SISBusiness.Module/Images/Images.id_card.png new file mode 100644 index 0000000..4c40865 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card.png differ diff --git a/SISBusiness.Module/Images/Images.id_card2.png b/SISBusiness.Module/Images/Images.id_card2.png new file mode 100644 index 0000000..768e228 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card2.png differ diff --git a/SISBusiness.Module/Images/Images.id_card2_32x32.png b/SISBusiness.Module/Images/Images.id_card2_32x32.png new file mode 100644 index 0000000..5d0743f Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_32x32.png b/SISBusiness.Module/Images/Images.id_card_32x32.png new file mode 100644 index 0000000..e34e7e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_add.png b/SISBusiness.Module/Images/Images.id_card_add.png new file mode 100644 index 0000000..c6d52bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_add.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_add_32x32.png b/SISBusiness.Module/Images/Images.id_card_add_32x32.png new file mode 100644 index 0000000..3656688 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_delete.png b/SISBusiness.Module/Images/Images.id_card_delete.png new file mode 100644 index 0000000..74c2c86 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_delete.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_delete_32x32.png b/SISBusiness.Module/Images/Images.id_card_delete_32x32.png new file mode 100644 index 0000000..e218fb0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_error.png b/SISBusiness.Module/Images/Images.id_card_error.png new file mode 100644 index 0000000..f165919 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_error.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_error_32x32.png b/SISBusiness.Module/Images/Images.id_card_error_32x32.png new file mode 100644 index 0000000..dc8aa3a Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_information.png b/SISBusiness.Module/Images/Images.id_card_information.png new file mode 100644 index 0000000..c684bba Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_information.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_information_32x32.png b/SISBusiness.Module/Images/Images.id_card_information_32x32.png new file mode 100644 index 0000000..0890868 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_new.png b/SISBusiness.Module/Images/Images.id_card_new.png new file mode 100644 index 0000000..af363d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_new.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_new_32x32.png b/SISBusiness.Module/Images/Images.id_card_new_32x32.png new file mode 100644 index 0000000..45d928e Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_ok.png b/SISBusiness.Module/Images/Images.id_card_ok.png new file mode 100644 index 0000000..e8f6205 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_ok.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_ok_32x32.png b/SISBusiness.Module/Images/Images.id_card_ok_32x32.png new file mode 100644 index 0000000..700bf3d Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_preferences.png b/SISBusiness.Module/Images/Images.id_card_preferences.png new file mode 100644 index 0000000..a49e4cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_preferences_32x32.png b/SISBusiness.Module/Images/Images.id_card_preferences_32x32.png new file mode 100644 index 0000000..f5c8921 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_view.png b/SISBusiness.Module/Images/Images.id_card_view.png new file mode 100644 index 0000000..6cd852f Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_view.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_view_32x32.png b/SISBusiness.Module/Images/Images.id_card_view_32x32.png new file mode 100644 index 0000000..442f157 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_warning.png b/SISBusiness.Module/Images/Images.id_card_warning.png new file mode 100644 index 0000000..06458fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_warning.png differ diff --git a/SISBusiness.Module/Images/Images.id_card_warning_32x32.png b/SISBusiness.Module/Images/Images.id_card_warning_32x32.png new file mode 100644 index 0000000..466115c Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_card_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.id_cards.png b/SISBusiness.Module/Images/Images.id_cards.png new file mode 100644 index 0000000..dfdb3a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_cards.png differ diff --git a/SISBusiness.Module/Images/Images.id_cards_32x32.png b/SISBusiness.Module/Images/Images.id_cards_32x32.png new file mode 100644 index 0000000..0571280 Binary files /dev/null and b/SISBusiness.Module/Images/Images.id_cards_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.import1.png b/SISBusiness.Module/Images/Images.import1.png new file mode 100644 index 0000000..944d1ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.import1.png differ diff --git a/SISBusiness.Module/Images/Images.import1_32x32.png b/SISBusiness.Module/Images/Images.import1_32x32.png new file mode 100644 index 0000000..37b4f6d Binary files /dev/null and b/SISBusiness.Module/Images/Images.import1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.import2.png b/SISBusiness.Module/Images/Images.import2.png new file mode 100644 index 0000000..bfe90aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.import2.png differ diff --git a/SISBusiness.Module/Images/Images.import2_32x32.png b/SISBusiness.Module/Images/Images.import2_32x32.png new file mode 100644 index 0000000..319f409 Binary files /dev/null and b/SISBusiness.Module/Images/Images.import2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.inbox.png b/SISBusiness.Module/Images/Images.inbox.png new file mode 100644 index 0000000..f68a4ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.inbox.png differ diff --git a/SISBusiness.Module/Images/Images.inbox_32x32.png b/SISBusiness.Module/Images/Images.inbox_32x32.png new file mode 100644 index 0000000..af8b339 Binary files /dev/null and b/SISBusiness.Module/Images/Images.inbox_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.inbox_into.png b/SISBusiness.Module/Images/Images.inbox_into.png new file mode 100644 index 0000000..d536a73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.inbox_into.png differ diff --git a/SISBusiness.Module/Images/Images.inbox_into_32x32.png b/SISBusiness.Module/Images/Images.inbox_into_32x32.png new file mode 100644 index 0000000..d0bd414 Binary files /dev/null and b/SISBusiness.Module/Images/Images.inbox_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index.png b/SISBusiness.Module/Images/Images.index.png new file mode 100644 index 0000000..b779ac4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index.png differ diff --git a/SISBusiness.Module/Images/Images.index_32x32.png b/SISBusiness.Module/Images/Images.index_32x32.png new file mode 100644 index 0000000..0298824 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_add.png b/SISBusiness.Module/Images/Images.index_add.png new file mode 100644 index 0000000..04f5f5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_add.png differ diff --git a/SISBusiness.Module/Images/Images.index_add_32x32.png b/SISBusiness.Module/Images/Images.index_add_32x32.png new file mode 100644 index 0000000..eaa5df9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_delete.png b/SISBusiness.Module/Images/Images.index_delete.png new file mode 100644 index 0000000..0d3dc36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_delete.png differ diff --git a/SISBusiness.Module/Images/Images.index_delete_32x32.png b/SISBusiness.Module/Images/Images.index_delete_32x32.png new file mode 100644 index 0000000..629cf61 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_down.png b/SISBusiness.Module/Images/Images.index_down.png new file mode 100644 index 0000000..b858f32 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_down.png differ diff --git a/SISBusiness.Module/Images/Images.index_down_32x32.png b/SISBusiness.Module/Images/Images.index_down_32x32.png new file mode 100644 index 0000000..3879d78 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_new.png b/SISBusiness.Module/Images/Images.index_new.png new file mode 100644 index 0000000..d2056cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_new.png differ diff --git a/SISBusiness.Module/Images/Images.index_new_32x32.png b/SISBusiness.Module/Images/Images.index_new_32x32.png new file mode 100644 index 0000000..9126fce Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_preferences.png b/SISBusiness.Module/Images/Images.index_preferences.png new file mode 100644 index 0000000..d8e56e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.index_preferences_32x32.png b/SISBusiness.Module/Images/Images.index_preferences_32x32.png new file mode 100644 index 0000000..459cc2b Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_refresh.png b/SISBusiness.Module/Images/Images.index_refresh.png new file mode 100644 index 0000000..307e593 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.index_refresh_32x32.png b/SISBusiness.Module/Images/Images.index_refresh_32x32.png new file mode 100644 index 0000000..90fd5d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_replace.png b/SISBusiness.Module/Images/Images.index_replace.png new file mode 100644 index 0000000..3709b33 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_replace.png differ diff --git a/SISBusiness.Module/Images/Images.index_replace_32x32.png b/SISBusiness.Module/Images/Images.index_replace_32x32.png new file mode 100644 index 0000000..fc0796d Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_up.png b/SISBusiness.Module/Images/Images.index_up.png new file mode 100644 index 0000000..01d6f47 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_up.png differ diff --git a/SISBusiness.Module/Images/Images.index_up_32x32.png b/SISBusiness.Module/Images/Images.index_up_32x32.png new file mode 100644 index 0000000..40da8b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.index_view.png b/SISBusiness.Module/Images/Images.index_view.png new file mode 100644 index 0000000..5349cc7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_view.png differ diff --git a/SISBusiness.Module/Images/Images.index_view_32x32.png b/SISBusiness.Module/Images/Images.index_view_32x32.png new file mode 100644 index 0000000..302df33 Binary files /dev/null and b/SISBusiness.Module/Images/Images.index_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.information.png b/SISBusiness.Module/Images/Images.information.png new file mode 100644 index 0000000..ef3accc Binary files /dev/null and b/SISBusiness.Module/Images/Images.information.png differ diff --git a/SISBusiness.Module/Images/Images.information_32x32.png b/SISBusiness.Module/Images/Images.information_32x32.png new file mode 100644 index 0000000..6c96e68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.injection.png b/SISBusiness.Module/Images/Images.injection.png new file mode 100644 index 0000000..3148392 Binary files /dev/null and b/SISBusiness.Module/Images/Images.injection.png differ diff --git a/SISBusiness.Module/Images/Images.injection_32x32.png b/SISBusiness.Module/Images/Images.injection_32x32.png new file mode 100644 index 0000000..9f58602 Binary files /dev/null and b/SISBusiness.Module/Images/Images.injection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar.png b/SISBusiness.Module/Images/Images.jar.png new file mode 100644 index 0000000..622ad1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar.png differ diff --git a/SISBusiness.Module/Images/Images.jar_32x32.png b/SISBusiness.Module/Images/Images.jar_32x32.png new file mode 100644 index 0000000..eefd0b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_add.png b/SISBusiness.Module/Images/Images.jar_add.png new file mode 100644 index 0000000..91f2eb0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_add.png differ diff --git a/SISBusiness.Module/Images/Images.jar_add_32x32.png b/SISBusiness.Module/Images/Images.jar_add_32x32.png new file mode 100644 index 0000000..19d311f Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean.png b/SISBusiness.Module/Images/Images.jar_bean.png new file mode 100644 index 0000000..7367ed2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_32x32.png new file mode 100644 index 0000000..020dace Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_add.png b/SISBusiness.Module/Images/Images.jar_bean_add.png new file mode 100644 index 0000000..5b456fe Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_add.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_add_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_add_32x32.png new file mode 100644 index 0000000..b2dd3e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_delete.png b/SISBusiness.Module/Images/Images.jar_bean_delete.png new file mode 100644 index 0000000..765e1e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_delete.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_delete_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_delete_32x32.png new file mode 100644 index 0000000..4ff99b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise.png new file mode 100644 index 0000000..48036ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_32x32.png new file mode 100644 index 0000000..c5221e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_add.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_add.png new file mode 100644 index 0000000..2e5128e Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_add.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_add_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_add_32x32.png new file mode 100644 index 0000000..df31e58 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete.png new file mode 100644 index 0000000..bc4c49a Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete_32x32.png new file mode 100644 index 0000000..d2702fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences.png new file mode 100644 index 0000000..df59c60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences_32x32.png new file mode 100644 index 0000000..4892ad5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_view.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_view.png new file mode 100644 index 0000000..421bc2c Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_view.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_enterprise_view_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_enterprise_view_32x32.png new file mode 100644 index 0000000..0fcd7e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_enterprise_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_into.png b/SISBusiness.Module/Images/Images.jar_bean_into.png new file mode 100644 index 0000000..958236a Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_into.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_into_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_into_32x32.png new file mode 100644 index 0000000..5506ded Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_new.png b/SISBusiness.Module/Images/Images.jar_bean_new.png new file mode 100644 index 0000000..56c6b0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_new.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_new_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_new_32x32.png new file mode 100644 index 0000000..23492f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_out.png b/SISBusiness.Module/Images/Images.jar_bean_out.png new file mode 100644 index 0000000..12a5434 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_out.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_out_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_out_32x32.png new file mode 100644 index 0000000..fd16ef8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_preferences.png b/SISBusiness.Module/Images/Images.jar_bean_preferences.png new file mode 100644 index 0000000..8113718 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_preferences_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_preferences_32x32.png new file mode 100644 index 0000000..f418d4c Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_view.png b/SISBusiness.Module/Images/Images.jar_bean_view.png new file mode 100644 index 0000000..dc21389 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_view.png differ diff --git a/SISBusiness.Module/Images/Images.jar_bean_view_32x32.png b/SISBusiness.Module/Images/Images.jar_bean_view_32x32.png new file mode 100644 index 0000000..1a9f391 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_bean_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_delete.png b/SISBusiness.Module/Images/Images.jar_delete.png new file mode 100644 index 0000000..01dbdcf Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_delete.png differ diff --git a/SISBusiness.Module/Images/Images.jar_delete_32x32.png b/SISBusiness.Module/Images/Images.jar_delete_32x32.png new file mode 100644 index 0000000..027c25a Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_into.png b/SISBusiness.Module/Images/Images.jar_into.png new file mode 100644 index 0000000..0620ab3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_into.png differ diff --git a/SISBusiness.Module/Images/Images.jar_into_32x32.png b/SISBusiness.Module/Images/Images.jar_into_32x32.png new file mode 100644 index 0000000..d8cbbd2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_new.png b/SISBusiness.Module/Images/Images.jar_new.png new file mode 100644 index 0000000..07f07fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_new.png differ diff --git a/SISBusiness.Module/Images/Images.jar_new_32x32.png b/SISBusiness.Module/Images/Images.jar_new_32x32.png new file mode 100644 index 0000000..6164a5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_out.png b/SISBusiness.Module/Images/Images.jar_out.png new file mode 100644 index 0000000..6554342 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_out.png differ diff --git a/SISBusiness.Module/Images/Images.jar_out_32x32.png b/SISBusiness.Module/Images/Images.jar_out_32x32.png new file mode 100644 index 0000000..65a225a Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_preferences.png b/SISBusiness.Module/Images/Images.jar_preferences.png new file mode 100644 index 0000000..3c6fa59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.jar_preferences_32x32.png b/SISBusiness.Module/Images/Images.jar_preferences_32x32.png new file mode 100644 index 0000000..cd56095 Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.jar_view.png b/SISBusiness.Module/Images/Images.jar_view.png new file mode 100644 index 0000000..a81762a Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_view.png differ diff --git a/SISBusiness.Module/Images/Images.jar_view_32x32.png b/SISBusiness.Module/Images/Images.jar_view_32x32.png new file mode 100644 index 0000000..f1ae50d Binary files /dev/null and b/SISBusiness.Module/Images/Images.jar_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.joypad.png b/SISBusiness.Module/Images/Images.joypad.png new file mode 100644 index 0000000..9604dc7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.joypad.png differ diff --git a/SISBusiness.Module/Images/Images.joypad_32x32.png b/SISBusiness.Module/Images/Images.joypad_32x32.png new file mode 100644 index 0000000..bff75e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.joypad_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.joystick.png b/SISBusiness.Module/Images/Images.joystick.png new file mode 100644 index 0000000..4b19dd2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.joystick.png differ diff --git a/SISBusiness.Module/Images/Images.joystick_32x32.png b/SISBusiness.Module/Images/Images.joystick_32x32.png new file mode 100644 index 0000000..f214aae Binary files /dev/null and b/SISBusiness.Module/Images/Images.joystick_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.key1.png b/SISBusiness.Module/Images/Images.key1.png new file mode 100644 index 0000000..e309a07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1.png differ diff --git a/SISBusiness.Module/Images/Images.key1_32x32.png b/SISBusiness.Module/Images/Images.key1_32x32.png new file mode 100644 index 0000000..f37b262 Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.key1_add.png b/SISBusiness.Module/Images/Images.key1_add.png new file mode 100644 index 0000000..210ccab Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_add.png differ diff --git a/SISBusiness.Module/Images/Images.key1_add_32x32.png b/SISBusiness.Module/Images/Images.key1_add_32x32.png new file mode 100644 index 0000000..6401f6b Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.key1_delete.png b/SISBusiness.Module/Images/Images.key1_delete.png new file mode 100644 index 0000000..c94c4ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_delete.png differ diff --git a/SISBusiness.Module/Images/Images.key1_delete_32x32.png b/SISBusiness.Module/Images/Images.key1_delete_32x32.png new file mode 100644 index 0000000..4ef53ae Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.key1_preferences.png b/SISBusiness.Module/Images/Images.key1_preferences.png new file mode 100644 index 0000000..263f47d Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.key1_preferences_32x32.png b/SISBusiness.Module/Images/Images.key1_preferences_32x32.png new file mode 100644 index 0000000..a1617eb Binary files /dev/null and b/SISBusiness.Module/Images/Images.key1_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.key2.png b/SISBusiness.Module/Images/Images.key2.png new file mode 100644 index 0000000..27fadbe Binary files /dev/null and b/SISBusiness.Module/Images/Images.key2.png differ diff --git a/SISBusiness.Module/Images/Images.key2_32x32.png b/SISBusiness.Module/Images/Images.key2_32x32.png new file mode 100644 index 0000000..4185626 Binary files /dev/null and b/SISBusiness.Module/Images/Images.key2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard.png b/SISBusiness.Module/Images/Images.keyboard.png new file mode 100644 index 0000000..952fcdd Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard2.png b/SISBusiness.Module/Images/Images.keyboard2.png new file mode 100644 index 0000000..f2d62af Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard2.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard2_32x32.png b/SISBusiness.Module/Images/Images.keyboard2_32x32.png new file mode 100644 index 0000000..44464f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard2_cordless.png b/SISBusiness.Module/Images/Images.keyboard2_cordless.png new file mode 100644 index 0000000..ca9d06b Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard2_cordless.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard2_cordless_32x32.png b/SISBusiness.Module/Images/Images.keyboard2_cordless_32x32.png new file mode 100644 index 0000000..f601f44 Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard2_cordless_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard_32x32.png b/SISBusiness.Module/Images/Images.keyboard_32x32.png new file mode 100644 index 0000000..b7dd657 Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard_cordless.png b/SISBusiness.Module/Images/Images.keyboard_cordless.png new file mode 100644 index 0000000..d1c96ec Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard_cordless.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard_cordless_32x32.png b/SISBusiness.Module/Images/Images.keyboard_cordless_32x32.png new file mode 100644 index 0000000..2ac14df Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard_cordless_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard_key.png b/SISBusiness.Module/Images/Images.keyboard_key.png new file mode 100644 index 0000000..32801fe Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard_key.png differ diff --git a/SISBusiness.Module/Images/Images.keyboard_key_32x32.png b/SISBusiness.Module/Images/Images.keyboard_key_32x32.png new file mode 100644 index 0000000..bf39a10 Binary files /dev/null and b/SISBusiness.Module/Images/Images.keyboard_key_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.keys.png b/SISBusiness.Module/Images/Images.keys.png new file mode 100644 index 0000000..eaa751a Binary files /dev/null and b/SISBusiness.Module/Images/Images.keys.png differ diff --git a/SISBusiness.Module/Images/Images.keys_32x32.png b/SISBusiness.Module/Images/Images.keys_32x32.png new file mode 100644 index 0000000..37789bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.keys_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.knife.png b/SISBusiness.Module/Images/Images.knife.png new file mode 100644 index 0000000..28a7d6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.knife.png differ diff --git a/SISBusiness.Module/Images/Images.knife_32x32.png b/SISBusiness.Module/Images/Images.knife_32x32.png new file mode 100644 index 0000000..bfd71bb Binary files /dev/null and b/SISBusiness.Module/Images/Images.knife_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.knight.png b/SISBusiness.Module/Images/Images.knight.png new file mode 100644 index 0000000..5daed30 Binary files /dev/null and b/SISBusiness.Module/Images/Images.knight.png differ diff --git a/SISBusiness.Module/Images/Images.knight2.png b/SISBusiness.Module/Images/Images.knight2.png new file mode 100644 index 0000000..6e94d78 Binary files /dev/null and b/SISBusiness.Module/Images/Images.knight2.png differ diff --git a/SISBusiness.Module/Images/Images.knight2_32x32.png b/SISBusiness.Module/Images/Images.knight2_32x32.png new file mode 100644 index 0000000..0accae4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.knight2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.knight_32x32.png b/SISBusiness.Module/Images/Images.knight_32x32.png new file mode 100644 index 0000000..a9adf21 Binary files /dev/null and b/SISBusiness.Module/Images/Images.knight_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.laptop.png b/SISBusiness.Module/Images/Images.laptop.png new file mode 100644 index 0000000..5537d26 Binary files /dev/null and b/SISBusiness.Module/Images/Images.laptop.png differ diff --git a/SISBusiness.Module/Images/Images.laptop2.png b/SISBusiness.Module/Images/Images.laptop2.png new file mode 100644 index 0000000..75f9db4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.laptop2.png differ diff --git a/SISBusiness.Module/Images/Images.laptop2_32x32.png b/SISBusiness.Module/Images/Images.laptop2_32x32.png new file mode 100644 index 0000000..32a2994 Binary files /dev/null and b/SISBusiness.Module/Images/Images.laptop2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.laptop_32x32.png b/SISBusiness.Module/Images/Images.laptop_32x32.png new file mode 100644 index 0000000..9f7e1a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.laptop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.laserpointer.png b/SISBusiness.Module/Images/Images.laserpointer.png new file mode 100644 index 0000000..2ab47a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.laserpointer.png differ diff --git a/SISBusiness.Module/Images/Images.laserpointer_32x32.png b/SISBusiness.Module/Images/Images.laserpointer_32x32.png new file mode 100644 index 0000000..2f2a49a Binary files /dev/null and b/SISBusiness.Module/Images/Images.laserpointer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_center.png b/SISBusiness.Module/Images/Images.layout_center.png new file mode 100644 index 0000000..0df1232 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_center.png differ diff --git a/SISBusiness.Module/Images/Images.layout_center_32x32.png b/SISBusiness.Module/Images/Images.layout_center_32x32.png new file mode 100644 index 0000000..0eff0b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_center_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_east.png b/SISBusiness.Module/Images/Images.layout_east.png new file mode 100644 index 0000000..8833a3e Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_east.png differ diff --git a/SISBusiness.Module/Images/Images.layout_east_32x32.png b/SISBusiness.Module/Images/Images.layout_east_32x32.png new file mode 100644 index 0000000..89259e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_east_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_horizontal.png b/SISBusiness.Module/Images/Images.layout_horizontal.png new file mode 100644 index 0000000..9c0d062 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_horizontal.png differ diff --git a/SISBusiness.Module/Images/Images.layout_horizontal_32x32.png b/SISBusiness.Module/Images/Images.layout_horizontal_32x32.png new file mode 100644 index 0000000..a4266a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_horizontal_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_north.png b/SISBusiness.Module/Images/Images.layout_north.png new file mode 100644 index 0000000..670cc6c Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_north.png differ diff --git a/SISBusiness.Module/Images/Images.layout_north_32x32.png b/SISBusiness.Module/Images/Images.layout_north_32x32.png new file mode 100644 index 0000000..84d1eb0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_north_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_northeast.png b/SISBusiness.Module/Images/Images.layout_northeast.png new file mode 100644 index 0000000..82a746b Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_northeast.png differ diff --git a/SISBusiness.Module/Images/Images.layout_northeast_32x32.png b/SISBusiness.Module/Images/Images.layout_northeast_32x32.png new file mode 100644 index 0000000..3d49962 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_northeast_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_northwest.png b/SISBusiness.Module/Images/Images.layout_northwest.png new file mode 100644 index 0000000..d34874d Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_northwest.png differ diff --git a/SISBusiness.Module/Images/Images.layout_northwest_32x32.png b/SISBusiness.Module/Images/Images.layout_northwest_32x32.png new file mode 100644 index 0000000..21d24a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_northwest_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_south.png b/SISBusiness.Module/Images/Images.layout_south.png new file mode 100644 index 0000000..ceece64 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_south.png differ diff --git a/SISBusiness.Module/Images/Images.layout_south_32x32.png b/SISBusiness.Module/Images/Images.layout_south_32x32.png new file mode 100644 index 0000000..6400366 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_south_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_southeast.png b/SISBusiness.Module/Images/Images.layout_southeast.png new file mode 100644 index 0000000..21e281b Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_southeast.png differ diff --git a/SISBusiness.Module/Images/Images.layout_southeast_32x32.png b/SISBusiness.Module/Images/Images.layout_southeast_32x32.png new file mode 100644 index 0000000..4262545 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_southeast_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_southwest.png b/SISBusiness.Module/Images/Images.layout_southwest.png new file mode 100644 index 0000000..3b853a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_southwest.png differ diff --git a/SISBusiness.Module/Images/Images.layout_southwest_32x32.png b/SISBusiness.Module/Images/Images.layout_southwest_32x32.png new file mode 100644 index 0000000..9454fee Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_southwest_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_vertical.png b/SISBusiness.Module/Images/Images.layout_vertical.png new file mode 100644 index 0000000..b2aed34 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_vertical.png differ diff --git a/SISBusiness.Module/Images/Images.layout_vertical_32x32.png b/SISBusiness.Module/Images/Images.layout_vertical_32x32.png new file mode 100644 index 0000000..c1dfd7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_vertical_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.layout_west.png b/SISBusiness.Module/Images/Images.layout_west.png new file mode 100644 index 0000000..3a15cb1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_west.png differ diff --git a/SISBusiness.Module/Images/Images.layout_west_32x32.png b/SISBusiness.Module/Images/Images.layout_west_32x32.png new file mode 100644 index 0000000..888977e Binary files /dev/null and b/SISBusiness.Module/Images/Images.layout_west_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lifebelt.png b/SISBusiness.Module/Images/Images.lifebelt.png new file mode 100644 index 0000000..ece15a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lifebelt.png differ diff --git a/SISBusiness.Module/Images/Images.lifebelt_32x32.png b/SISBusiness.Module/Images/Images.lifebelt_32x32.png new file mode 100644 index 0000000..7b347c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lifebelt_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lightbulb.png b/SISBusiness.Module/Images/Images.lightbulb.png new file mode 100644 index 0000000..dd26129 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lightbulb.png differ diff --git a/SISBusiness.Module/Images/Images.lightbulb_32x32.png b/SISBusiness.Module/Images/Images.lightbulb_32x32.png new file mode 100644 index 0000000..e204123 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lightbulb_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lightbulb_on.png b/SISBusiness.Module/Images/Images.lightbulb_on.png new file mode 100644 index 0000000..b292ed4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lightbulb_on.png differ diff --git a/SISBusiness.Module/Images/Images.lightbulb_on_32x32.png b/SISBusiness.Module/Images/Images.lightbulb_on_32x32.png new file mode 100644 index 0000000..670f948 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lightbulb_on_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.line-chart.png b/SISBusiness.Module/Images/Images.line-chart.png new file mode 100644 index 0000000..dc4e6ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.line-chart.png differ diff --git a/SISBusiness.Module/Images/Images.line-chart_32x32.png b/SISBusiness.Module/Images/Images.line-chart_32x32.png new file mode 100644 index 0000000..0a6d743 Binary files /dev/null and b/SISBusiness.Module/Images/Images.line-chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.link.png b/SISBusiness.Module/Images/Images.link.png new file mode 100644 index 0000000..b65152c Binary files /dev/null and b/SISBusiness.Module/Images/Images.link.png differ diff --git a/SISBusiness.Module/Images/Images.link_32x32.png b/SISBusiness.Module/Images/Images.link_32x32.png new file mode 100644 index 0000000..7d2bf4e Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.link_add.png b/SISBusiness.Module/Images/Images.link_add.png new file mode 100644 index 0000000..3b7d200 Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_add.png differ diff --git a/SISBusiness.Module/Images/Images.link_add_32x32.png b/SISBusiness.Module/Images/Images.link_add_32x32.png new file mode 100644 index 0000000..5f298ab Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.link_delete.png b/SISBusiness.Module/Images/Images.link_delete.png new file mode 100644 index 0000000..b8346e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_delete.png differ diff --git a/SISBusiness.Module/Images/Images.link_delete_32x32.png b/SISBusiness.Module/Images/Images.link_delete_32x32.png new file mode 100644 index 0000000..bda59fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.link_new.png b/SISBusiness.Module/Images/Images.link_new.png new file mode 100644 index 0000000..1d8f7e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_new.png differ diff --git a/SISBusiness.Module/Images/Images.link_new_32x32.png b/SISBusiness.Module/Images/Images.link_new_32x32.png new file mode 100644 index 0000000..c9b47b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.link_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock.png b/SISBusiness.Module/Images/Images.lock.png new file mode 100644 index 0000000..00030c7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock.png differ diff --git a/SISBusiness.Module/Images/Images.lock2.png b/SISBusiness.Module/Images/Images.lock2.png new file mode 100644 index 0000000..823c8f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock2.png differ diff --git a/SISBusiness.Module/Images/Images.lock2_32x32.png b/SISBusiness.Module/Images/Images.lock2_32x32.png new file mode 100644 index 0000000..d76274f Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_32x32.png b/SISBusiness.Module/Images/Images.lock_32x32.png new file mode 100644 index 0000000..5cc2485 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_add.png b/SISBusiness.Module/Images/Images.lock_add.png new file mode 100644 index 0000000..3f97379 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_add.png differ diff --git a/SISBusiness.Module/Images/Images.lock_add_32x32.png b/SISBusiness.Module/Images/Images.lock_add_32x32.png new file mode 100644 index 0000000..e652abd Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_delete.png b/SISBusiness.Module/Images/Images.lock_delete.png new file mode 100644 index 0000000..60f26ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_delete.png differ diff --git a/SISBusiness.Module/Images/Images.lock_delete_32x32.png b/SISBusiness.Module/Images/Images.lock_delete_32x32.png new file mode 100644 index 0000000..ae37f85 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_error.png b/SISBusiness.Module/Images/Images.lock_error.png new file mode 100644 index 0000000..f3d11e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_error.png differ diff --git a/SISBusiness.Module/Images/Images.lock_error_32x32.png b/SISBusiness.Module/Images/Images.lock_error_32x32.png new file mode 100644 index 0000000..46d622f Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_information.png b/SISBusiness.Module/Images/Images.lock_information.png new file mode 100644 index 0000000..49db4b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_information.png differ diff --git a/SISBusiness.Module/Images/Images.lock_information_32x32.png b/SISBusiness.Module/Images/Images.lock_information_32x32.png new file mode 100644 index 0000000..3f34d84 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_new.png b/SISBusiness.Module/Images/Images.lock_new.png new file mode 100644 index 0000000..4516e5b Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_new.png differ diff --git a/SISBusiness.Module/Images/Images.lock_new_32x32.png b/SISBusiness.Module/Images/Images.lock_new_32x32.png new file mode 100644 index 0000000..4ecbf87 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_ok.png b/SISBusiness.Module/Images/Images.lock_ok.png new file mode 100644 index 0000000..575d4d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_ok.png differ diff --git a/SISBusiness.Module/Images/Images.lock_ok_32x32.png b/SISBusiness.Module/Images/Images.lock_ok_32x32.png new file mode 100644 index 0000000..e3bbb47 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_open.png b/SISBusiness.Module/Images/Images.lock_open.png new file mode 100644 index 0000000..190fc0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_open.png differ diff --git a/SISBusiness.Module/Images/Images.lock_open_32x32.png b/SISBusiness.Module/Images/Images.lock_open_32x32.png new file mode 100644 index 0000000..a54a8cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_open_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_preferences.png b/SISBusiness.Module/Images/Images.lock_preferences.png new file mode 100644 index 0000000..0f0dcd4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.lock_preferences_32x32.png b/SISBusiness.Module/Images/Images.lock_preferences_32x32.png new file mode 100644 index 0000000..73b9517 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_time.png b/SISBusiness.Module/Images/Images.lock_time.png new file mode 100644 index 0000000..8240c90 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_time.png differ diff --git a/SISBusiness.Module/Images/Images.lock_time_32x32.png b/SISBusiness.Module/Images/Images.lock_time_32x32.png new file mode 100644 index 0000000..98cc40f Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_view.png b/SISBusiness.Module/Images/Images.lock_view.png new file mode 100644 index 0000000..40709b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_view.png differ diff --git a/SISBusiness.Module/Images/Images.lock_view_32x32.png b/SISBusiness.Module/Images/Images.lock_view_32x32.png new file mode 100644 index 0000000..5d48c35 Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.lock_warning.png b/SISBusiness.Module/Images/Images.lock_warning.png new file mode 100644 index 0000000..6e8373f Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_warning.png differ diff --git a/SISBusiness.Module/Images/Images.lock_warning_32x32.png b/SISBusiness.Module/Images/Images.lock_warning_32x32.png new file mode 100644 index 0000000..0a2f0da Binary files /dev/null and b/SISBusiness.Module/Images/Images.lock_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.logic_and.png b/SISBusiness.Module/Images/Images.logic_and.png new file mode 100644 index 0000000..46ac370 Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_and.png differ diff --git a/SISBusiness.Module/Images/Images.logic_and_32x32.png b/SISBusiness.Module/Images/Images.logic_and_32x32.png new file mode 100644 index 0000000..81c21c1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_and_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.logic_not.png b/SISBusiness.Module/Images/Images.logic_not.png new file mode 100644 index 0000000..1a583f6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_not.png differ diff --git a/SISBusiness.Module/Images/Images.logic_not_32x32.png b/SISBusiness.Module/Images/Images.logic_not_32x32.png new file mode 100644 index 0000000..3134cfe Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_not_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.logic_or.png b/SISBusiness.Module/Images/Images.logic_or.png new file mode 100644 index 0000000..ad302a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_or.png differ diff --git a/SISBusiness.Module/Images/Images.logic_or_32x32.png b/SISBusiness.Module/Images/Images.logic_or_32x32.png new file mode 100644 index 0000000..87117d8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.logic_or_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker.png b/SISBusiness.Module/Images/Images.loudspeaker.png new file mode 100644 index 0000000..de9ca07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker2.png b/SISBusiness.Module/Images/Images.loudspeaker2.png new file mode 100644 index 0000000..6903908 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker2.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker2_32x32.png b/SISBusiness.Module/Images/Images.loudspeaker2_32x32.png new file mode 100644 index 0000000..ba67489 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker_32x32.png b/SISBusiness.Module/Images/Images.loudspeaker_32x32.png new file mode 100644 index 0000000..7dc3cac Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker_network.png b/SISBusiness.Module/Images/Images.loudspeaker_network.png new file mode 100644 index 0000000..5dc03ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker_network.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker_network_32x32.png b/SISBusiness.Module/Images/Images.loudspeaker_network_32x32.png new file mode 100644 index 0000000..901e021 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker_preferences.png b/SISBusiness.Module/Images/Images.loudspeaker_preferences.png new file mode 100644 index 0000000..36fd103 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.loudspeaker_preferences_32x32.png b/SISBusiness.Module/Images/Images.loudspeaker_preferences_32x32.png new file mode 100644 index 0000000..04c9ce5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.loudspeaker_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.magic-wand.png b/SISBusiness.Module/Images/Images.magic-wand.png new file mode 100644 index 0000000..554cc0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.magic-wand.png differ diff --git a/SISBusiness.Module/Images/Images.magic-wand2.png b/SISBusiness.Module/Images/Images.magic-wand2.png new file mode 100644 index 0000000..b704f1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.magic-wand2.png differ diff --git a/SISBusiness.Module/Images/Images.magic-wand2_32x32.png b/SISBusiness.Module/Images/Images.magic-wand2_32x32.png new file mode 100644 index 0000000..50eddfe Binary files /dev/null and b/SISBusiness.Module/Images/Images.magic-wand2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.magic-wand_32x32.png b/SISBusiness.Module/Images/Images.magic-wand_32x32.png new file mode 100644 index 0000000..2469dbf Binary files /dev/null and b/SISBusiness.Module/Images/Images.magic-wand_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.magician.png b/SISBusiness.Module/Images/Images.magician.png new file mode 100644 index 0000000..bcfb446 Binary files /dev/null and b/SISBusiness.Module/Images/Images.magician.png differ diff --git a/SISBusiness.Module/Images/Images.magician_32x32.png b/SISBusiness.Module/Images/Images.magician_32x32.png new file mode 100644 index 0000000..846429b Binary files /dev/null and b/SISBusiness.Module/Images/Images.magician_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail.png b/SISBusiness.Module/Images/Images.mail.png new file mode 100644 index 0000000..986b756 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail.png differ diff --git a/SISBusiness.Module/Images/Images.mail2.png b/SISBusiness.Module/Images/Images.mail2.png new file mode 100644 index 0000000..b543653 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail2.png differ diff --git a/SISBusiness.Module/Images/Images.mail2_32x32.png b/SISBusiness.Module/Images/Images.mail2_32x32.png new file mode 100644 index 0000000..982cd13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail2_view.png b/SISBusiness.Module/Images/Images.mail2_view.png new file mode 100644 index 0000000..610bc3c Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail2_view.png differ diff --git a/SISBusiness.Module/Images/Images.mail2_view_32x32.png b/SISBusiness.Module/Images/Images.mail2_view_32x32.png new file mode 100644 index 0000000..f6e2546 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail2_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_32x32.png b/SISBusiness.Module/Images/Images.mail_32x32.png new file mode 100644 index 0000000..a2c1a00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_add.png b/SISBusiness.Module/Images/Images.mail_add.png new file mode 100644 index 0000000..014e7c0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_add.png differ diff --git a/SISBusiness.Module/Images/Images.mail_add_32x32.png b/SISBusiness.Module/Images/Images.mail_add_32x32.png new file mode 100644 index 0000000..65ec21a Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_attachment.png b/SISBusiness.Module/Images/Images.mail_attachment.png new file mode 100644 index 0000000..3bbc28f Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_attachment.png differ diff --git a/SISBusiness.Module/Images/Images.mail_attachment_32x32.png b/SISBusiness.Module/Images/Images.mail_attachment_32x32.png new file mode 100644 index 0000000..0108516 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_attachment_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_delete.png b/SISBusiness.Module/Images/Images.mail_delete.png new file mode 100644 index 0000000..76fcf46 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_delete.png differ diff --git a/SISBusiness.Module/Images/Images.mail_delete_32x32.png b/SISBusiness.Module/Images/Images.mail_delete_32x32.png new file mode 100644 index 0000000..ee9c2ed Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_earth.png b/SISBusiness.Module/Images/Images.mail_earth.png new file mode 100644 index 0000000..059d8c2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_earth.png differ diff --git a/SISBusiness.Module/Images/Images.mail_earth_32x32.png b/SISBusiness.Module/Images/Images.mail_earth_32x32.png new file mode 100644 index 0000000..93b895a Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_exchange.png b/SISBusiness.Module/Images/Images.mail_exchange.png new file mode 100644 index 0000000..65ca96b Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_exchange.png differ diff --git a/SISBusiness.Module/Images/Images.mail_exchange_32x32.png b/SISBusiness.Module/Images/Images.mail_exchange_32x32.png new file mode 100644 index 0000000..830abf4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_exchange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_find.png b/SISBusiness.Module/Images/Images.mail_find.png new file mode 100644 index 0000000..91cde25 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_find.png differ diff --git a/SISBusiness.Module/Images/Images.mail_find_32x32.png b/SISBusiness.Module/Images/Images.mail_find_32x32.png new file mode 100644 index 0000000..b0b67ce Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_forward.png b/SISBusiness.Module/Images/Images.mail_forward.png new file mode 100644 index 0000000..16c5676 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_forward.png differ diff --git a/SISBusiness.Module/Images/Images.mail_forward_32x32.png b/SISBusiness.Module/Images/Images.mail_forward_32x32.png new file mode 100644 index 0000000..d549fb1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_forward_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_into.png b/SISBusiness.Module/Images/Images.mail_into.png new file mode 100644 index 0000000..fb62dcb Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_into.png differ diff --git a/SISBusiness.Module/Images/Images.mail_into_32x32.png b/SISBusiness.Module/Images/Images.mail_into_32x32.png new file mode 100644 index 0000000..58e46e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_lock.png b/SISBusiness.Module/Images/Images.mail_lock.png new file mode 100644 index 0000000..1f48167 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_lock.png differ diff --git a/SISBusiness.Module/Images/Images.mail_lock_32x32.png b/SISBusiness.Module/Images/Images.mail_lock_32x32.png new file mode 100644 index 0000000..091e957 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_new.png b/SISBusiness.Module/Images/Images.mail_new.png new file mode 100644 index 0000000..75ab392 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_new.png differ diff --git a/SISBusiness.Module/Images/Images.mail_new_32x32.png b/SISBusiness.Module/Images/Images.mail_new_32x32.png new file mode 100644 index 0000000..681de5b Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_out.png b/SISBusiness.Module/Images/Images.mail_out.png new file mode 100644 index 0000000..2163b0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_out.png differ diff --git a/SISBusiness.Module/Images/Images.mail_out_32x32.png b/SISBusiness.Module/Images/Images.mail_out_32x32.png new file mode 100644 index 0000000..5c13aff Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_preferences.png b/SISBusiness.Module/Images/Images.mail_preferences.png new file mode 100644 index 0000000..55114ac Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.mail_preferences_32x32.png b/SISBusiness.Module/Images/Images.mail_preferences_32x32.png new file mode 100644 index 0000000..9f55843 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_server.png b/SISBusiness.Module/Images/Images.mail_server.png new file mode 100644 index 0000000..ac297d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_server.png differ diff --git a/SISBusiness.Module/Images/Images.mail_server_32x32.png b/SISBusiness.Module/Images/Images.mail_server_32x32.png new file mode 100644 index 0000000..f46dea3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_server_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_view.png b/SISBusiness.Module/Images/Images.mail_view.png new file mode 100644 index 0000000..9552405 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_view.png differ diff --git a/SISBusiness.Module/Images/Images.mail_view_32x32.png b/SISBusiness.Module/Images/Images.mail_view_32x32.png new file mode 100644 index 0000000..ef1b4a2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mail_write.png b/SISBusiness.Module/Images/Images.mail_write.png new file mode 100644 index 0000000..78b5d6c Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_write.png differ diff --git a/SISBusiness.Module/Images/Images.mail_write_32x32.png b/SISBusiness.Module/Images/Images.mail_write_32x32.png new file mode 100644 index 0000000..03de0e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mail_write_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mailbox_empty.png b/SISBusiness.Module/Images/Images.mailbox_empty.png new file mode 100644 index 0000000..610f60d Binary files /dev/null and b/SISBusiness.Module/Images/Images.mailbox_empty.png differ diff --git a/SISBusiness.Module/Images/Images.mailbox_empty_32x32.png b/SISBusiness.Module/Images/Images.mailbox_empty_32x32.png new file mode 100644 index 0000000..69409cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.mailbox_empty_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mailbox_full.png b/SISBusiness.Module/Images/Images.mailbox_full.png new file mode 100644 index 0000000..1a9ba52 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mailbox_full.png differ diff --git a/SISBusiness.Module/Images/Images.mailbox_full_32x32.png b/SISBusiness.Module/Images/Images.mailbox_full_32x32.png new file mode 100644 index 0000000..1f9ff10 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mailbox_full_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.masks.png b/SISBusiness.Module/Images/Images.masks.png new file mode 100644 index 0000000..8bd2778 Binary files /dev/null and b/SISBusiness.Module/Images/Images.masks.png differ diff --git a/SISBusiness.Module/Images/Images.masks_32x32.png b/SISBusiness.Module/Images/Images.masks_32x32.png new file mode 100644 index 0000000..65c4166 Binary files /dev/null and b/SISBusiness.Module/Images/Images.masks_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mda.png b/SISBusiness.Module/Images/Images.mda.png new file mode 100644 index 0000000..a31c121 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mda.png differ diff --git a/SISBusiness.Module/Images/Images.mda_32x32.png b/SISBusiness.Module/Images/Images.mda_32x32.png new file mode 100644 index 0000000..f0cf441 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mda_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.medal.png b/SISBusiness.Module/Images/Images.medal.png new file mode 100644 index 0000000..ac66ad9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.medal.png differ diff --git a/SISBusiness.Module/Images/Images.medal_32x32.png b/SISBusiness.Module/Images/Images.medal_32x32.png new file mode 100644 index 0000000..48d053d Binary files /dev/null and b/SISBusiness.Module/Images/Images.medal_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_beginning.png b/SISBusiness.Module/Images/Images.media_beginning.png new file mode 100644 index 0000000..60a0323 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_beginning.png differ diff --git a/SISBusiness.Module/Images/Images.media_beginning_32x32.png b/SISBusiness.Module/Images/Images.media_beginning_32x32.png new file mode 100644 index 0000000..51849f5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_beginning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_end.png b/SISBusiness.Module/Images/Images.media_end.png new file mode 100644 index 0000000..2de17cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_end.png differ diff --git a/SISBusiness.Module/Images/Images.media_end_32x32.png b/SISBusiness.Module/Images/Images.media_end_32x32.png new file mode 100644 index 0000000..e5af2b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_end_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_fast_forward.png b/SISBusiness.Module/Images/Images.media_fast_forward.png new file mode 100644 index 0000000..0d4d35e Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_fast_forward.png differ diff --git a/SISBusiness.Module/Images/Images.media_fast_forward_32x32.png b/SISBusiness.Module/Images/Images.media_fast_forward_32x32.png new file mode 100644 index 0000000..9ebce5c Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_fast_forward_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_pause.png b/SISBusiness.Module/Images/Images.media_pause.png new file mode 100644 index 0000000..0557de6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_pause.png differ diff --git a/SISBusiness.Module/Images/Images.media_pause_32x32.png b/SISBusiness.Module/Images/Images.media_pause_32x32.png new file mode 100644 index 0000000..113bd30 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_play.png b/SISBusiness.Module/Images/Images.media_play.png new file mode 100644 index 0000000..abeef45 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_play.png differ diff --git a/SISBusiness.Module/Images/Images.media_play_32x32.png b/SISBusiness.Module/Images/Images.media_play_32x32.png new file mode 100644 index 0000000..11f514c Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_play_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_play_green.png b/SISBusiness.Module/Images/Images.media_play_green.png new file mode 100644 index 0000000..5da532e Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_play_green.png differ diff --git a/SISBusiness.Module/Images/Images.media_play_green_32x32.png b/SISBusiness.Module/Images/Images.media_play_green_32x32.png new file mode 100644 index 0000000..3e643a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_play_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_rewind.png b/SISBusiness.Module/Images/Images.media_rewind.png new file mode 100644 index 0000000..07c130a Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_rewind.png differ diff --git a/SISBusiness.Module/Images/Images.media_rewind_32x32.png b/SISBusiness.Module/Images/Images.media_rewind_32x32.png new file mode 100644 index 0000000..abd906b Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_rewind_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_step_back.png b/SISBusiness.Module/Images/Images.media_step_back.png new file mode 100644 index 0000000..7185171 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_step_back.png differ diff --git a/SISBusiness.Module/Images/Images.media_step_back_32x32.png b/SISBusiness.Module/Images/Images.media_step_back_32x32.png new file mode 100644 index 0000000..a773c5f Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_step_back_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_step_forward.png b/SISBusiness.Module/Images/Images.media_step_forward.png new file mode 100644 index 0000000..350c45f Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_step_forward.png differ diff --git a/SISBusiness.Module/Images/Images.media_step_forward_32x32.png b/SISBusiness.Module/Images/Images.media_step_forward_32x32.png new file mode 100644 index 0000000..83b427d Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_step_forward_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_stop.png b/SISBusiness.Module/Images/Images.media_stop.png new file mode 100644 index 0000000..a18f4a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_stop.png differ diff --git a/SISBusiness.Module/Images/Images.media_stop_32x32.png b/SISBusiness.Module/Images/Images.media_stop_32x32.png new file mode 100644 index 0000000..6ec5690 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.media_stop_red.png b/SISBusiness.Module/Images/Images.media_stop_red.png new file mode 100644 index 0000000..91e7048 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_stop_red.png differ diff --git a/SISBusiness.Module/Images/Images.media_stop_red_32x32.png b/SISBusiness.Module/Images/Images.media_stop_red_32x32.png new file mode 100644 index 0000000..d12f200 Binary files /dev/null and b/SISBusiness.Module/Images/Images.media_stop_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.medical_bag.png b/SISBusiness.Module/Images/Images.medical_bag.png new file mode 100644 index 0000000..da6d86d Binary files /dev/null and b/SISBusiness.Module/Images/Images.medical_bag.png differ diff --git a/SISBusiness.Module/Images/Images.medical_bag_32x32.png b/SISBusiness.Module/Images/Images.medical_bag_32x32.png new file mode 100644 index 0000000..d2668b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.medical_bag_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.megaphone.png b/SISBusiness.Module/Images/Images.megaphone.png new file mode 100644 index 0000000..bde5e44 Binary files /dev/null and b/SISBusiness.Module/Images/Images.megaphone.png differ diff --git a/SISBusiness.Module/Images/Images.megaphone_32x32.png b/SISBusiness.Module/Images/Images.megaphone_32x32.png new file mode 100644 index 0000000..70d9160 Binary files /dev/null and b/SISBusiness.Module/Images/Images.megaphone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.memorystick.png b/SISBusiness.Module/Images/Images.memorystick.png new file mode 100644 index 0000000..2c4d7b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.memorystick.png differ diff --git a/SISBusiness.Module/Images/Images.memorystick_32x32.png b/SISBusiness.Module/Images/Images.memorystick_32x32.png new file mode 100644 index 0000000..35c316b Binary files /dev/null and b/SISBusiness.Module/Images/Images.memorystick_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.message.png b/SISBusiness.Module/Images/Images.message.png new file mode 100644 index 0000000..f574f98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.message.png differ diff --git a/SISBusiness.Module/Images/Images.message_32x32.png b/SISBusiness.Module/Images/Images.message_32x32.png new file mode 100644 index 0000000..ed2611d Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.message_add.png b/SISBusiness.Module/Images/Images.message_add.png new file mode 100644 index 0000000..5f0e60e Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_add.png differ diff --git a/SISBusiness.Module/Images/Images.message_add_32x32.png b/SISBusiness.Module/Images/Images.message_add_32x32.png new file mode 100644 index 0000000..a269c24 Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.message_delete.png b/SISBusiness.Module/Images/Images.message_delete.png new file mode 100644 index 0000000..54a1d61 Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_delete.png differ diff --git a/SISBusiness.Module/Images/Images.message_delete_32x32.png b/SISBusiness.Module/Images/Images.message_delete_32x32.png new file mode 100644 index 0000000..852c1ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.message_edit.png b/SISBusiness.Module/Images/Images.message_edit.png new file mode 100644 index 0000000..58ec4fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_edit.png differ diff --git a/SISBusiness.Module/Images/Images.message_edit_32x32.png b/SISBusiness.Module/Images/Images.message_edit_32x32.png new file mode 100644 index 0000000..0965fdf Binary files /dev/null and b/SISBusiness.Module/Images/Images.message_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.messages.png b/SISBusiness.Module/Images/Images.messages.png new file mode 100644 index 0000000..90cac97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.messages.png differ diff --git a/SISBusiness.Module/Images/Images.messages_32x32.png b/SISBusiness.Module/Images/Images.messages_32x32.png new file mode 100644 index 0000000..76b7eea Binary files /dev/null and b/SISBusiness.Module/Images/Images.messages_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.microphone1.png b/SISBusiness.Module/Images/Images.microphone1.png new file mode 100644 index 0000000..c70267d Binary files /dev/null and b/SISBusiness.Module/Images/Images.microphone1.png differ diff --git a/SISBusiness.Module/Images/Images.microphone1_32x32.png b/SISBusiness.Module/Images/Images.microphone1_32x32.png new file mode 100644 index 0000000..2f3c104 Binary files /dev/null and b/SISBusiness.Module/Images/Images.microphone1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.microphone2.png b/SISBusiness.Module/Images/Images.microphone2.png new file mode 100644 index 0000000..c9e45a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.microphone2.png differ diff --git a/SISBusiness.Module/Images/Images.microphone2_32x32.png b/SISBusiness.Module/Images/Images.microphone2_32x32.png new file mode 100644 index 0000000..042dea0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.microphone2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_blue.png b/SISBusiness.Module/Images/Images.minibus_blue.png new file mode 100644 index 0000000..6a4d18e Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_blue.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_blue_32x32.png b/SISBusiness.Module/Images/Images.minibus_blue_32x32.png new file mode 100644 index 0000000..6d9f43d Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_green.png b/SISBusiness.Module/Images/Images.minibus_green.png new file mode 100644 index 0000000..045f03e Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_green.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_green_32x32.png b/SISBusiness.Module/Images/Images.minibus_green_32x32.png new file mode 100644 index 0000000..e113ff1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_grey.png b/SISBusiness.Module/Images/Images.minibus_grey.png new file mode 100644 index 0000000..185e438 Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_grey.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_grey_32x32.png b/SISBusiness.Module/Images/Images.minibus_grey_32x32.png new file mode 100644 index 0000000..a7c0744 Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_orange.png b/SISBusiness.Module/Images/Images.minibus_orange.png new file mode 100644 index 0000000..c6acc3a Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_orange.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_orange_32x32.png b/SISBusiness.Module/Images/Images.minibus_orange_32x32.png new file mode 100644 index 0000000..d6ec4d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_orange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_white.png b/SISBusiness.Module/Images/Images.minibus_white.png new file mode 100644 index 0000000..05d7783 Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_white.png differ diff --git a/SISBusiness.Module/Images/Images.minibus_white_32x32.png b/SISBusiness.Module/Images/Images.minibus_white_32x32.png new file mode 100644 index 0000000..60914bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.minibus_white_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mobilehome.png b/SISBusiness.Module/Images/Images.mobilehome.png new file mode 100644 index 0000000..5d583a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilehome.png differ diff --git a/SISBusiness.Module/Images/Images.mobilehome_32x32.png b/SISBusiness.Module/Images/Images.mobilehome_32x32.png new file mode 100644 index 0000000..2c682b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilehome_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone1.png b/SISBusiness.Module/Images/Images.mobilephone1.png new file mode 100644 index 0000000..905b324 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone1.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone1_32x32.png b/SISBusiness.Module/Images/Images.mobilephone1_32x32.png new file mode 100644 index 0000000..0a21f67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone2.png b/SISBusiness.Module/Images/Images.mobilephone2.png new file mode 100644 index 0000000..1c223f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone2.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone2_32x32.png b/SISBusiness.Module/Images/Images.mobilephone2_32x32.png new file mode 100644 index 0000000..fc267b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone3.png b/SISBusiness.Module/Images/Images.mobilephone3.png new file mode 100644 index 0000000..ab37b35 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone3.png differ diff --git a/SISBusiness.Module/Images/Images.mobilephone3_32x32.png b/SISBusiness.Module/Images/Images.mobilephone3_32x32.png new file mode 100644 index 0000000..0d68004 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mobilephone3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.modem.png b/SISBusiness.Module/Images/Images.modem.png new file mode 100644 index 0000000..8851eec Binary files /dev/null and b/SISBusiness.Module/Images/Images.modem.png differ diff --git a/SISBusiness.Module/Images/Images.modem_32x32.png b/SISBusiness.Module/Images/Images.modem_32x32.png new file mode 100644 index 0000000..a9d7736 Binary files /dev/null and b/SISBusiness.Module/Images/Images.modem_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.modem_earth.png b/SISBusiness.Module/Images/Images.modem_earth.png new file mode 100644 index 0000000..e0fe34e Binary files /dev/null and b/SISBusiness.Module/Images/Images.modem_earth.png differ diff --git a/SISBusiness.Module/Images/Images.modem_earth_32x32.png b/SISBusiness.Module/Images/Images.modem_earth_32x32.png new file mode 100644 index 0000000..ac8ab06 Binary files /dev/null and b/SISBusiness.Module/Images/Images.modem_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.money.png b/SISBusiness.Module/Images/Images.money.png new file mode 100644 index 0000000..4e71dbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.money.png differ diff --git a/SISBusiness.Module/Images/Images.money2.png b/SISBusiness.Module/Images/Images.money2.png new file mode 100644 index 0000000..e93f4fe Binary files /dev/null and b/SISBusiness.Module/Images/Images.money2.png differ diff --git a/SISBusiness.Module/Images/Images.money2_32x32.png b/SISBusiness.Module/Images/Images.money2_32x32.png new file mode 100644 index 0000000..fdb1b46 Binary files /dev/null and b/SISBusiness.Module/Images/Images.money2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.money_32x32.png b/SISBusiness.Module/Images/Images.money_32x32.png new file mode 100644 index 0000000..07117b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.money_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.money_envelope.png b/SISBusiness.Module/Images/Images.money_envelope.png new file mode 100644 index 0000000..21b9428 Binary files /dev/null and b/SISBusiness.Module/Images/Images.money_envelope.png differ diff --git a/SISBusiness.Module/Images/Images.money_envelope_32x32.png b/SISBusiness.Module/Images/Images.money_envelope_32x32.png new file mode 100644 index 0000000..09d1958 Binary files /dev/null and b/SISBusiness.Module/Images/Images.money_envelope_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag.png b/SISBusiness.Module/Images/Images.moneybag.png new file mode 100644 index 0000000..ea6719d Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_32x32.png b/SISBusiness.Module/Images/Images.moneybag_32x32.png new file mode 100644 index 0000000..43506df Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_IN.png b/SISBusiness.Module/Images/Images.moneybag_IN.png new file mode 100644 index 0000000..efd916d Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_IN.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_IN_32x32.png b/SISBusiness.Module/Images/Images.moneybag_IN_32x32.png new file mode 100644 index 0000000..621eb2f Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_IN_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_OUT.png b/SISBusiness.Module/Images/Images.moneybag_OUT.png new file mode 100644 index 0000000..5c9bc4a Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_OUT.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_OUT_32x32.png b/SISBusiness.Module/Images/Images.moneybag_OUT_32x32.png new file mode 100644 index 0000000..299e702 Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_OUT_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_dollar.png b/SISBusiness.Module/Images/Images.moneybag_dollar.png new file mode 100644 index 0000000..719475b Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_dollar.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_dollar_32x32.png b/SISBusiness.Module/Images/Images.moneybag_dollar_32x32.png new file mode 100644 index 0000000..1c356b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_dollar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_euro.png b/SISBusiness.Module/Images/Images.moneybag_euro.png new file mode 100644 index 0000000..8d1bef1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_euro.png differ diff --git a/SISBusiness.Module/Images/Images.moneybag_euro_32x32.png b/SISBusiness.Module/Images/Images.moneybag_euro_32x32.png new file mode 100644 index 0000000..1cda8e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.moneybag_euro_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor.png b/SISBusiness.Module/Images/Images.monitor.png new file mode 100644 index 0000000..7180649 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor.png differ diff --git a/SISBusiness.Module/Images/Images.monitor2.png b/SISBusiness.Module/Images/Images.monitor2.png new file mode 100644 index 0000000..fb3bae4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor2.png differ diff --git a/SISBusiness.Module/Images/Images.monitor2_32x32.png b/SISBusiness.Module/Images/Images.monitor2_32x32.png new file mode 100644 index 0000000..2a03eb8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_32x32.png b/SISBusiness.Module/Images/Images.monitor_32x32.png new file mode 100644 index 0000000..593124c Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_brush.png b/SISBusiness.Module/Images/Images.monitor_brush.png new file mode 100644 index 0000000..5ca9617 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_brush.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_brush_32x32.png b/SISBusiness.Module/Images/Images.monitor_brush_32x32.png new file mode 100644 index 0000000..1fb3137 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_brush_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_preferences.png b/SISBusiness.Module/Images/Images.monitor_preferences.png new file mode 100644 index 0000000..fdde272 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_preferences_32x32.png b/SISBusiness.Module/Images/Images.monitor_preferences_32x32.png new file mode 100644 index 0000000..9e24daa Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_rgb.png b/SISBusiness.Module/Images/Images.monitor_rgb.png new file mode 100644 index 0000000..cebf257 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_rgb.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_rgb_32x32.png b/SISBusiness.Module/Images/Images.monitor_rgb_32x32.png new file mode 100644 index 0000000..a333eaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_rgb_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_sleep.png b/SISBusiness.Module/Images/Images.monitor_sleep.png new file mode 100644 index 0000000..53fb4a0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_sleep.png differ diff --git a/SISBusiness.Module/Images/Images.monitor_sleep_32x32.png b/SISBusiness.Module/Images/Images.monitor_sleep_32x32.png new file mode 100644 index 0000000..9049fc2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.monitor_sleep_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mouse.png b/SISBusiness.Module/Images/Images.mouse.png new file mode 100644 index 0000000..7606242 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mouse.png differ diff --git a/SISBusiness.Module/Images/Images.mouse2.png b/SISBusiness.Module/Images/Images.mouse2.png new file mode 100644 index 0000000..94521e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mouse2.png differ diff --git a/SISBusiness.Module/Images/Images.mouse2_32x32.png b/SISBusiness.Module/Images/Images.mouse2_32x32.png new file mode 100644 index 0000000..d3cf835 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mouse2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.mouse_32x32.png b/SISBusiness.Module/Images/Images.mouse_32x32.png new file mode 100644 index 0000000..9df79e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.mouse_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.movie.png b/SISBusiness.Module/Images/Images.movie.png new file mode 100644 index 0000000..2be0e62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie.png differ diff --git a/SISBusiness.Module/Images/Images.movie_32x32.png b/SISBusiness.Module/Images/Images.movie_32x32.png new file mode 100644 index 0000000..fe6c10d Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.movie_pause.png b/SISBusiness.Module/Images/Images.movie_pause.png new file mode 100644 index 0000000..220e60e Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_pause.png differ diff --git a/SISBusiness.Module/Images/Images.movie_pause_32x32.png b/SISBusiness.Module/Images/Images.movie_pause_32x32.png new file mode 100644 index 0000000..2e55cff Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.movie_run.png b/SISBusiness.Module/Images/Images.movie_run.png new file mode 100644 index 0000000..950119b Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_run.png differ diff --git a/SISBusiness.Module/Images/Images.movie_run_32x32.png b/SISBusiness.Module/Images/Images.movie_run_32x32.png new file mode 100644 index 0000000..c16da09 Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.movie_stop.png b/SISBusiness.Module/Images/Images.movie_stop.png new file mode 100644 index 0000000..93a0d4f Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_stop.png differ diff --git a/SISBusiness.Module/Images/Images.movie_stop_32x32.png b/SISBusiness.Module/Images/Images.movie_stop_32x32.png new file mode 100644 index 0000000..8502418 Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.movie_view.png b/SISBusiness.Module/Images/Images.movie_view.png new file mode 100644 index 0000000..97b5c22 Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_view.png differ diff --git a/SISBusiness.Module/Images/Images.movie_view_32x32.png b/SISBusiness.Module/Images/Images.movie_view_32x32.png new file mode 100644 index 0000000..de853dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.movie_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.music.png b/SISBusiness.Module/Images/Images.music.png new file mode 100644 index 0000000..b913bce Binary files /dev/null and b/SISBusiness.Module/Images/Images.music.png differ diff --git a/SISBusiness.Module/Images/Images.music_32x32.png b/SISBusiness.Module/Images/Images.music_32x32.png new file mode 100644 index 0000000..03be35d Binary files /dev/null and b/SISBusiness.Module/Images/Images.music_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nail.png b/SISBusiness.Module/Images/Images.nail.png new file mode 100644 index 0000000..81f8a82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nail.png differ diff --git a/SISBusiness.Module/Images/Images.nail_32x32.png b/SISBusiness.Module/Images/Images.nail_32x32.png new file mode 100644 index 0000000..0250b01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nail_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_blue.png b/SISBusiness.Module/Images/Images.nav_down_blue.png new file mode 100644 index 0000000..fbae915 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_down_blue_32x32.png new file mode 100644 index 0000000..35ffb28 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_green.png b/SISBusiness.Module/Images/Images.nav_down_green.png new file mode 100644 index 0000000..12edc38 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_green_32x32.png b/SISBusiness.Module/Images/Images.nav_down_green_32x32.png new file mode 100644 index 0000000..5062293 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_blue.png b/SISBusiness.Module/Images/Images.nav_down_left_blue.png new file mode 100644 index 0000000..2a18430 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_down_left_blue_32x32.png new file mode 100644 index 0000000..cb4d051 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_green.png b/SISBusiness.Module/Images/Images.nav_down_left_green.png new file mode 100644 index 0000000..5a23807 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_green_32x32.png b/SISBusiness.Module/Images/Images.nav_down_left_green_32x32.png new file mode 100644 index 0000000..273e71f Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_red.png b/SISBusiness.Module/Images/Images.nav_down_left_red.png new file mode 100644 index 0000000..3007e39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_left_red_32x32.png b/SISBusiness.Module/Images/Images.nav_down_left_red_32x32.png new file mode 100644 index 0000000..e799403 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_left_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_red.png b/SISBusiness.Module/Images/Images.nav_down_red.png new file mode 100644 index 0000000..a69a448 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_red_32x32.png b/SISBusiness.Module/Images/Images.nav_down_red_32x32.png new file mode 100644 index 0000000..711ad7b Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_blue.png b/SISBusiness.Module/Images/Images.nav_down_right_blue.png new file mode 100644 index 0000000..2d1dad3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_down_right_blue_32x32.png new file mode 100644 index 0000000..2100961 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_green.png b/SISBusiness.Module/Images/Images.nav_down_right_green.png new file mode 100644 index 0000000..f25f130 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_green_32x32.png b/SISBusiness.Module/Images/Images.nav_down_right_green_32x32.png new file mode 100644 index 0000000..010f321 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_red.png b/SISBusiness.Module/Images/Images.nav_down_right_red.png new file mode 100644 index 0000000..8ff1345 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_down_right_red_32x32.png b/SISBusiness.Module/Images/Images.nav_down_right_red_32x32.png new file mode 100644 index 0000000..1fcbadf Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_down_right_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_blue.png b/SISBusiness.Module/Images/Images.nav_left_blue.png new file mode 100644 index 0000000..18b81bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_left_blue_32x32.png new file mode 100644 index 0000000..b4fb104 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_green.png b/SISBusiness.Module/Images/Images.nav_left_green.png new file mode 100644 index 0000000..30e9a02 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_green_32x32.png b/SISBusiness.Module/Images/Images.nav_left_green_32x32.png new file mode 100644 index 0000000..a7dd4c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_red.png b/SISBusiness.Module/Images/Images.nav_left_red.png new file mode 100644 index 0000000..087aaa2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_left_red_32x32.png b/SISBusiness.Module/Images/Images.nav_left_red_32x32.png new file mode 100644 index 0000000..cd03349 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_left_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_blue.png b/SISBusiness.Module/Images/Images.nav_plain_blue.png new file mode 100644 index 0000000..f37c702 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_plain_blue_32x32.png new file mode 100644 index 0000000..9b81211 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_green.png b/SISBusiness.Module/Images/Images.nav_plain_green.png new file mode 100644 index 0000000..0a6daaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_green_32x32.png b/SISBusiness.Module/Images/Images.nav_plain_green_32x32.png new file mode 100644 index 0000000..e4d1ad3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_red.png b/SISBusiness.Module/Images/Images.nav_plain_red.png new file mode 100644 index 0000000..f86607a Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_plain_red_32x32.png b/SISBusiness.Module/Images/Images.nav_plain_red_32x32.png new file mode 100644 index 0000000..551c183 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_plain_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_blue.png b/SISBusiness.Module/Images/Images.nav_right_blue.png new file mode 100644 index 0000000..1b699a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_right_blue_32x32.png new file mode 100644 index 0000000..7549436 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_green.png b/SISBusiness.Module/Images/Images.nav_right_green.png new file mode 100644 index 0000000..c5bdab8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_green_32x32.png b/SISBusiness.Module/Images/Images.nav_right_green_32x32.png new file mode 100644 index 0000000..4bf109f Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_red.png b/SISBusiness.Module/Images/Images.nav_right_red.png new file mode 100644 index 0000000..b1df947 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_right_red_32x32.png b/SISBusiness.Module/Images/Images.nav_right_red_32x32.png new file mode 100644 index 0000000..cd0a570 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_right_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_blue.png b/SISBusiness.Module/Images/Images.nav_up_blue.png new file mode 100644 index 0000000..fc23620 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_up_blue_32x32.png new file mode 100644 index 0000000..8a74087 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_green.png b/SISBusiness.Module/Images/Images.nav_up_green.png new file mode 100644 index 0000000..12b0dec Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_green_32x32.png b/SISBusiness.Module/Images/Images.nav_up_green_32x32.png new file mode 100644 index 0000000..1b9559c Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_blue.png b/SISBusiness.Module/Images/Images.nav_up_left_blue.png new file mode 100644 index 0000000..535234e Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_up_left_blue_32x32.png new file mode 100644 index 0000000..3e8c439 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_green.png b/SISBusiness.Module/Images/Images.nav_up_left_green.png new file mode 100644 index 0000000..628af6f Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_green_32x32.png b/SISBusiness.Module/Images/Images.nav_up_left_green_32x32.png new file mode 100644 index 0000000..e884963 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_red.png b/SISBusiness.Module/Images/Images.nav_up_left_red.png new file mode 100644 index 0000000..37a61e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_left_red_32x32.png b/SISBusiness.Module/Images/Images.nav_up_left_red_32x32.png new file mode 100644 index 0000000..0d28406 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_left_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_red.png b/SISBusiness.Module/Images/Images.nav_up_red.png new file mode 100644 index 0000000..945f0ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_red_32x32.png b/SISBusiness.Module/Images/Images.nav_up_red_32x32.png new file mode 100644 index 0000000..8807f06 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_blue.png b/SISBusiness.Module/Images/Images.nav_up_right_blue.png new file mode 100644 index 0000000..030d9cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_blue.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_blue_32x32.png b/SISBusiness.Module/Images/Images.nav_up_right_blue_32x32.png new file mode 100644 index 0000000..b877682 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_green.png b/SISBusiness.Module/Images/Images.nav_up_right_green.png new file mode 100644 index 0000000..36cc216 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_green.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_green_32x32.png b/SISBusiness.Module/Images/Images.nav_up_right_green_32x32.png new file mode 100644 index 0000000..0acce1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_red.png b/SISBusiness.Module/Images/Images.nav_up_right_red.png new file mode 100644 index 0000000..c68334c Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_red.png differ diff --git a/SISBusiness.Module/Images/Images.nav_up_right_red_32x32.png b/SISBusiness.Module/Images/Images.nav_up_right_red_32x32.png new file mode 100644 index 0000000..7adecca Binary files /dev/null and b/SISBusiness.Module/Images/Images.nav_up_right_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_beginning.png b/SISBusiness.Module/Images/Images.navigate_beginning.png new file mode 100644 index 0000000..20a83a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_beginning.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_beginning_32x32.png b/SISBusiness.Module/Images/Images.navigate_beginning_32x32.png new file mode 100644 index 0000000..b619bd4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_beginning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_check.png b/SISBusiness.Module/Images/Images.navigate_check.png new file mode 100644 index 0000000..0249887 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_check.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_check_32x32.png b/SISBusiness.Module/Images/Images.navigate_check_32x32.png new file mode 100644 index 0000000..aef335c Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_check_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_close.png b/SISBusiness.Module/Images/Images.navigate_close.png new file mode 100644 index 0000000..6eeaee1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_close.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_close_32x32.png b/SISBusiness.Module/Images/Images.navigate_close_32x32.png new file mode 100644 index 0000000..69a4d5d Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_close_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_cross.png b/SISBusiness.Module/Images/Images.navigate_cross.png new file mode 100644 index 0000000..c1f1ca7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_cross.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_cross_32x32.png b/SISBusiness.Module/Images/Images.navigate_cross_32x32.png new file mode 100644 index 0000000..eecc372 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_cross_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_down.png b/SISBusiness.Module/Images/Images.navigate_down.png new file mode 100644 index 0000000..e930163 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_down.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_down2.png b/SISBusiness.Module/Images/Images.navigate_down2.png new file mode 100644 index 0000000..63f6f91 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_down2.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_down2_32x32.png b/SISBusiness.Module/Images/Images.navigate_down2_32x32.png new file mode 100644 index 0000000..74e0bb4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_down2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_down_32x32.png b/SISBusiness.Module/Images/Images.navigate_down_32x32.png new file mode 100644 index 0000000..8ec33e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_end.png b/SISBusiness.Module/Images/Images.navigate_end.png new file mode 100644 index 0000000..7654598 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_end.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_end_32x32.png b/SISBusiness.Module/Images/Images.navigate_end_32x32.png new file mode 100644 index 0000000..5fbd056 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_end_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_left.png b/SISBusiness.Module/Images/Images.navigate_left.png new file mode 100644 index 0000000..4c48700 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_left.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_left2.png b/SISBusiness.Module/Images/Images.navigate_left2.png new file mode 100644 index 0000000..4072000 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_left2.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_left2_32x32.png b/SISBusiness.Module/Images/Images.navigate_left2_32x32.png new file mode 100644 index 0000000..3b0af5b Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_left2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_left_32x32.png b/SISBusiness.Module/Images/Images.navigate_left_32x32.png new file mode 100644 index 0000000..e6fa156 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_left_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_minus.png b/SISBusiness.Module/Images/Images.navigate_minus.png new file mode 100644 index 0000000..71edaf9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_minus.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_minus_32x32.png b/SISBusiness.Module/Images/Images.navigate_minus_32x32.png new file mode 100644 index 0000000..c57134a Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_minus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_open.png b/SISBusiness.Module/Images/Images.navigate_open.png new file mode 100644 index 0000000..e177657 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_open.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_open_32x32.png b/SISBusiness.Module/Images/Images.navigate_open_32x32.png new file mode 100644 index 0000000..8adfe4c Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_open_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_plus.png b/SISBusiness.Module/Images/Images.navigate_plus.png new file mode 100644 index 0000000..b5b7e87 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_plus.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_plus_32x32.png b/SISBusiness.Module/Images/Images.navigate_plus_32x32.png new file mode 100644 index 0000000..8ed466d Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_plus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_right.png b/SISBusiness.Module/Images/Images.navigate_right.png new file mode 100644 index 0000000..b994488 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_right.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_right2.png b/SISBusiness.Module/Images/Images.navigate_right2.png new file mode 100644 index 0000000..6735f12 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_right2.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_right2_32x32.png b/SISBusiness.Module/Images/Images.navigate_right2_32x32.png new file mode 100644 index 0000000..3b29fa8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_right2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_right_32x32.png b/SISBusiness.Module/Images/Images.navigate_right_32x32.png new file mode 100644 index 0000000..c824dc9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_right_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_up.png b/SISBusiness.Module/Images/Images.navigate_up.png new file mode 100644 index 0000000..d4ec497 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_up.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_up2.png b/SISBusiness.Module/Images/Images.navigate_up2.png new file mode 100644 index 0000000..0138cd8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_up2.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_up2_32x32.png b/SISBusiness.Module/Images/Images.navigate_up2_32x32.png new file mode 100644 index 0000000..fc9b964 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_up2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.navigate_up_32x32.png b/SISBusiness.Module/Images/Images.navigate_up_32x32.png new file mode 100644 index 0000000..1541fa6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.navigate_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news.png b/SISBusiness.Module/Images/Images.news.png new file mode 100644 index 0000000..b188a22 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news.png differ diff --git a/SISBusiness.Module/Images/Images.news_32x32.png b/SISBusiness.Module/Images/Images.news_32x32.png new file mode 100644 index 0000000..c46e642 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news_add.png b/SISBusiness.Module/Images/Images.news_add.png new file mode 100644 index 0000000..df283a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_add.png differ diff --git a/SISBusiness.Module/Images/Images.news_add_32x32.png b/SISBusiness.Module/Images/Images.news_add_32x32.png new file mode 100644 index 0000000..8fd28e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news_delete.png b/SISBusiness.Module/Images/Images.news_delete.png new file mode 100644 index 0000000..ebc1fa6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_delete.png differ diff --git a/SISBusiness.Module/Images/Images.news_delete_32x32.png b/SISBusiness.Module/Images/Images.news_delete_32x32.png new file mode 100644 index 0000000..d77317c Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news_new.png b/SISBusiness.Module/Images/Images.news_new.png new file mode 100644 index 0000000..606d12d Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_new.png differ diff --git a/SISBusiness.Module/Images/Images.news_new_32x32.png b/SISBusiness.Module/Images/Images.news_new_32x32.png new file mode 100644 index 0000000..04ea171 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news_preferences.png b/SISBusiness.Module/Images/Images.news_preferences.png new file mode 100644 index 0000000..cb58e50 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.news_preferences_32x32.png b/SISBusiness.Module/Images/Images.news_preferences_32x32.png new file mode 100644 index 0000000..d4eea56 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.news_view.png b/SISBusiness.Module/Images/Images.news_view.png new file mode 100644 index 0000000..9df05d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_view.png differ diff --git a/SISBusiness.Module/Images/Images.news_view_32x32.png b/SISBusiness.Module/Images/Images.news_view_32x32.png new file mode 100644 index 0000000..a054041 Binary files /dev/null and b/SISBusiness.Module/Images/Images.news_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.node.png b/SISBusiness.Module/Images/Images.node.png new file mode 100644 index 0000000..aebceee Binary files /dev/null and b/SISBusiness.Module/Images/Images.node.png differ diff --git a/SISBusiness.Module/Images/Images.node_32x32.png b/SISBusiness.Module/Images/Images.node_32x32.png new file mode 100644 index 0000000..ce55a93 Binary files /dev/null and b/SISBusiness.Module/Images/Images.node_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.node_add.png b/SISBusiness.Module/Images/Images.node_add.png new file mode 100644 index 0000000..4011f8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.node_add.png differ diff --git a/SISBusiness.Module/Images/Images.node_add_32x32.png b/SISBusiness.Module/Images/Images.node_add_32x32.png new file mode 100644 index 0000000..c414f44 Binary files /dev/null and b/SISBusiness.Module/Images/Images.node_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.node_delete.png b/SISBusiness.Module/Images/Images.node_delete.png new file mode 100644 index 0000000..5fb1652 Binary files /dev/null and b/SISBusiness.Module/Images/Images.node_delete.png differ diff --git a/SISBusiness.Module/Images/Images.node_delete_32x32.png b/SISBusiness.Module/Images/Images.node_delete_32x32.png new file mode 100644 index 0000000..8de025f Binary files /dev/null and b/SISBusiness.Module/Images/Images.node_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note.png b/SISBusiness.Module/Images/Images.note.png new file mode 100644 index 0000000..27155fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.note.png differ diff --git a/SISBusiness.Module/Images/Images.note_32x32.png b/SISBusiness.Module/Images/Images.note_32x32.png new file mode 100644 index 0000000..33874b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_add.png b/SISBusiness.Module/Images/Images.note_add.png new file mode 100644 index 0000000..556ac95 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_add.png differ diff --git a/SISBusiness.Module/Images/Images.note_add_32x32.png b/SISBusiness.Module/Images/Images.note_add_32x32.png new file mode 100644 index 0000000..e317d45 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_delete.png b/SISBusiness.Module/Images/Images.note_delete.png new file mode 100644 index 0000000..9bfc1ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_delete.png differ diff --git a/SISBusiness.Module/Images/Images.note_delete_32x32.png b/SISBusiness.Module/Images/Images.note_delete_32x32.png new file mode 100644 index 0000000..444c546 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_edit.png b/SISBusiness.Module/Images/Images.note_edit.png new file mode 100644 index 0000000..8cda541 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_edit.png differ diff --git a/SISBusiness.Module/Images/Images.note_edit_32x32.png b/SISBusiness.Module/Images/Images.note_edit_32x32.png new file mode 100644 index 0000000..96d3af0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_find.png b/SISBusiness.Module/Images/Images.note_find.png new file mode 100644 index 0000000..aebd7d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_find.png differ diff --git a/SISBusiness.Module/Images/Images.note_find_32x32.png b/SISBusiness.Module/Images/Images.note_find_32x32.png new file mode 100644 index 0000000..200f924 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_new.png b/SISBusiness.Module/Images/Images.note_new.png new file mode 100644 index 0000000..1ba4de7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_new.png differ diff --git a/SISBusiness.Module/Images/Images.note_new_32x32.png b/SISBusiness.Module/Images/Images.note_new_32x32.png new file mode 100644 index 0000000..10a094d Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_pinned.png b/SISBusiness.Module/Images/Images.note_pinned.png new file mode 100644 index 0000000..2b2d127 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_pinned.png differ diff --git a/SISBusiness.Module/Images/Images.note_pinned_32x32.png b/SISBusiness.Module/Images/Images.note_pinned_32x32.png new file mode 100644 index 0000000..ffb93a2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_pinned_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.note_view.png b/SISBusiness.Module/Images/Images.note_view.png new file mode 100644 index 0000000..2049078 Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_view.png differ diff --git a/SISBusiness.Module/Images/Images.note_view_32x32.png b/SISBusiness.Module/Images/Images.note_view_32x32.png new file mode 100644 index 0000000..8e834ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.note_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.notebook.png b/SISBusiness.Module/Images/Images.notebook.png new file mode 100644 index 0000000..6cb4f10 Binary files /dev/null and b/SISBusiness.Module/Images/Images.notebook.png differ diff --git a/SISBusiness.Module/Images/Images.notebook_32x32.png b/SISBusiness.Module/Images/Images.notebook_32x32.png new file mode 100644 index 0000000..040f12f Binary files /dev/null and b/SISBusiness.Module/Images/Images.notebook_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.notebook_preferences.png b/SISBusiness.Module/Images/Images.notebook_preferences.png new file mode 100644 index 0000000..cfcd0a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.notebook_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.notebook_preferences_32x32.png b/SISBusiness.Module/Images/Images.notebook_preferences_32x32.png new file mode 100644 index 0000000..4781a7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.notebook_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nurse1.png b/SISBusiness.Module/Images/Images.nurse1.png new file mode 100644 index 0000000..1fb8103 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nurse1.png differ diff --git a/SISBusiness.Module/Images/Images.nurse1_32x32.png b/SISBusiness.Module/Images/Images.nurse1_32x32.png new file mode 100644 index 0000000..83d0ca1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nurse1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nurse2.png b/SISBusiness.Module/Images/Images.nurse2.png new file mode 100644 index 0000000..ecaad2e Binary files /dev/null and b/SISBusiness.Module/Images/Images.nurse2.png differ diff --git a/SISBusiness.Module/Images/Images.nurse2_32x32.png b/SISBusiness.Module/Images/Images.nurse2_32x32.png new file mode 100644 index 0000000..b905e1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.nurse2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.nut_and_bolt.png b/SISBusiness.Module/Images/Images.nut_and_bolt.png new file mode 100644 index 0000000..683675a Binary files /dev/null and b/SISBusiness.Module/Images/Images.nut_and_bolt.png differ diff --git a/SISBusiness.Module/Images/Images.nut_and_bolt_32x32.png b/SISBusiness.Module/Images/Images.nut_and_bolt_32x32.png new file mode 100644 index 0000000..1824449 Binary files /dev/null and b/SISBusiness.Module/Images/Images.nut_and_bolt_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.office-building.png b/SISBusiness.Module/Images/Images.office-building.png new file mode 100644 index 0000000..deca893 Binary files /dev/null and b/SISBusiness.Module/Images/Images.office-building.png differ diff --git a/SISBusiness.Module/Images/Images.office-building_32x32.png b/SISBusiness.Module/Images/Images.office-building_32x32.png new file mode 100644 index 0000000..0bf77e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.office-building_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.oldtimer.png b/SISBusiness.Module/Images/Images.oldtimer.png new file mode 100644 index 0000000..3799e8f Binary files /dev/null and b/SISBusiness.Module/Images/Images.oldtimer.png differ diff --git a/SISBusiness.Module/Images/Images.oldtimer_32x32.png b/SISBusiness.Module/Images/Images.oldtimer_32x32.png new file mode 100644 index 0000000..f2f613c Binary files /dev/null and b/SISBusiness.Module/Images/Images.oldtimer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.oszillograph.png b/SISBusiness.Module/Images/Images.oszillograph.png new file mode 100644 index 0000000..2248aaa Binary files /dev/null and b/SISBusiness.Module/Images/Images.oszillograph.png differ diff --git a/SISBusiness.Module/Images/Images.oszillograph_32x32.png b/SISBusiness.Module/Images/Images.oszillograph_32x32.png new file mode 100644 index 0000000..169d5ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.oszillograph_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.outbox.png b/SISBusiness.Module/Images/Images.outbox.png new file mode 100644 index 0000000..20f970f Binary files /dev/null and b/SISBusiness.Module/Images/Images.outbox.png differ diff --git a/SISBusiness.Module/Images/Images.outbox_32x32.png b/SISBusiness.Module/Images/Images.outbox_32x32.png new file mode 100644 index 0000000..7a6c83e Binary files /dev/null and b/SISBusiness.Module/Images/Images.outbox_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.outbox_out.png b/SISBusiness.Module/Images/Images.outbox_out.png new file mode 100644 index 0000000..63eecc2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.outbox_out.png differ diff --git a/SISBusiness.Module/Images/Images.outbox_out_32x32.png b/SISBusiness.Module/Images/Images.outbox_out_32x32.png new file mode 100644 index 0000000..d687908 Binary files /dev/null and b/SISBusiness.Module/Images/Images.outbox_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package.png b/SISBusiness.Module/Images/Images.package.png new file mode 100644 index 0000000..26ad257 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package.png differ diff --git a/SISBusiness.Module/Images/Images.package_32x32.png b/SISBusiness.Module/Images/Images.package_32x32.png new file mode 100644 index 0000000..7c63aa4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_add.png b/SISBusiness.Module/Images/Images.package_add.png new file mode 100644 index 0000000..e763acd Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_add.png differ diff --git a/SISBusiness.Module/Images/Images.package_add_32x32.png b/SISBusiness.Module/Images/Images.package_add_32x32.png new file mode 100644 index 0000000..ce86449 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_delete.png b/SISBusiness.Module/Images/Images.package_delete.png new file mode 100644 index 0000000..42b08c5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_delete.png differ diff --git a/SISBusiness.Module/Images/Images.package_delete_32x32.png b/SISBusiness.Module/Images/Images.package_delete_32x32.png new file mode 100644 index 0000000..a837797 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_error.png b/SISBusiness.Module/Images/Images.package_error.png new file mode 100644 index 0000000..082cb22 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_error.png differ diff --git a/SISBusiness.Module/Images/Images.package_error_32x32.png b/SISBusiness.Module/Images/Images.package_error_32x32.png new file mode 100644 index 0000000..905618c Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_find.png b/SISBusiness.Module/Images/Images.package_find.png new file mode 100644 index 0000000..ef14985 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_find.png differ diff --git a/SISBusiness.Module/Images/Images.package_find_32x32.png b/SISBusiness.Module/Images/Images.package_find_32x32.png new file mode 100644 index 0000000..aef011e Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_new.png b/SISBusiness.Module/Images/Images.package_new.png new file mode 100644 index 0000000..5474f8c Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_new.png differ diff --git a/SISBusiness.Module/Images/Images.package_new_32x32.png b/SISBusiness.Module/Images/Images.package_new_32x32.png new file mode 100644 index 0000000..d23165a Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_ok.png b/SISBusiness.Module/Images/Images.package_ok.png new file mode 100644 index 0000000..6ccefd3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_ok.png differ diff --git a/SISBusiness.Module/Images/Images.package_ok_32x32.png b/SISBusiness.Module/Images/Images.package_ok_32x32.png new file mode 100644 index 0000000..24fb7f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_preferences.png b/SISBusiness.Module/Images/Images.package_preferences.png new file mode 100644 index 0000000..dea2618 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.package_preferences_32x32.png b/SISBusiness.Module/Images/Images.package_preferences_32x32.png new file mode 100644 index 0000000..d4f2e15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.package_view.png b/SISBusiness.Module/Images/Images.package_view.png new file mode 100644 index 0000000..89e4a53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_view.png differ diff --git a/SISBusiness.Module/Images/Images.package_view_32x32.png b/SISBusiness.Module/Images/Images.package_view_32x32.png new file mode 100644 index 0000000..7350e60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.package_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.palette.png b/SISBusiness.Module/Images/Images.palette.png new file mode 100644 index 0000000..24dfd98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette.png differ diff --git a/SISBusiness.Module/Images/Images.palette2.png b/SISBusiness.Module/Images/Images.palette2.png new file mode 100644 index 0000000..9874569 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette2.png differ diff --git a/SISBusiness.Module/Images/Images.palette2_32x32.png b/SISBusiness.Module/Images/Images.palette2_32x32.png new file mode 100644 index 0000000..8a65e74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.palette_32x32.png b/SISBusiness.Module/Images/Images.palette_32x32.png new file mode 100644 index 0000000..035c927 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.palette_preferences.png b/SISBusiness.Module/Images/Images.palette_preferences.png new file mode 100644 index 0000000..890337d Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.palette_preferences_32x32.png b/SISBusiness.Module/Images/Images.palette_preferences_32x32.png new file mode 100644 index 0000000..24b7157 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.palette_text.png b/SISBusiness.Module/Images/Images.palette_text.png new file mode 100644 index 0000000..1f90c1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette_text.png differ diff --git a/SISBusiness.Module/Images/Images.palette_text_32x32.png b/SISBusiness.Module/Images/Images.palette_text_32x32.png new file mode 100644 index 0000000..fa4f493 Binary files /dev/null and b/SISBusiness.Module/Images/Images.palette_text_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.paperclip.png b/SISBusiness.Module/Images/Images.paperclip.png new file mode 100644 index 0000000..b229522 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paperclip.png differ diff --git a/SISBusiness.Module/Images/Images.paperclip_32x32.png b/SISBusiness.Module/Images/Images.paperclip_32x32.png new file mode 100644 index 0000000..28a659a Binary files /dev/null and b/SISBusiness.Module/Images/Images.paperclip_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.paragraph.png b/SISBusiness.Module/Images/Images.paragraph.png new file mode 100644 index 0000000..7520a67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paragraph.png differ diff --git a/SISBusiness.Module/Images/Images.paragraph_32x32.png b/SISBusiness.Module/Images/Images.paragraph_32x32.png new file mode 100644 index 0000000..b73b2a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paragraph_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.paragraph_clone.png b/SISBusiness.Module/Images/Images.paragraph_clone.png new file mode 100644 index 0000000..6147c07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paragraph_clone.png differ diff --git a/SISBusiness.Module/Images/Images.paragraph_clone_32x32.png b/SISBusiness.Module/Images/Images.paragraph_clone_32x32.png new file mode 100644 index 0000000..022ef30 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paragraph_clone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.paste.png b/SISBusiness.Module/Images/Images.paste.png new file mode 100644 index 0000000..54334a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.paste.png differ diff --git a/SISBusiness.Module/Images/Images.paste_32x32.png b/SISBusiness.Module/Images/Images.paste_32x32.png new file mode 100644 index 0000000..b9274cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.paste_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn.png b/SISBusiness.Module/Images/Images.pawn.png new file mode 100644 index 0000000..c9a3a5d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_32x32.png b/SISBusiness.Module/Images/Images.pawn_32x32.png new file mode 100644 index 0000000..6589e2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_add.png b/SISBusiness.Module/Images/Images.pawn_add.png new file mode 100644 index 0000000..b53ab82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_add.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_add_32x32.png b/SISBusiness.Module/Images/Images.pawn_add_32x32.png new file mode 100644 index 0000000..b31b823 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_delete.png b/SISBusiness.Module/Images/Images.pawn_delete.png new file mode 100644 index 0000000..30371e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_delete.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_delete_32x32.png b/SISBusiness.Module/Images/Images.pawn_delete_32x32.png new file mode 100644 index 0000000..2f85c70 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_find.png b/SISBusiness.Module/Images/Images.pawn_find.png new file mode 100644 index 0000000..754f697 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_find.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_find_32x32.png b/SISBusiness.Module/Images/Images.pawn_find_32x32.png new file mode 100644 index 0000000..2bcd308 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_blue.png b/SISBusiness.Module/Images/Images.pawn_glass_blue.png new file mode 100644 index 0000000..fdd72bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_blue.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_blue_32x32.png b/SISBusiness.Module/Images/Images.pawn_glass_blue_32x32.png new file mode 100644 index 0000000..b1c42fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_green.png b/SISBusiness.Module/Images/Images.pawn_glass_green.png new file mode 100644 index 0000000..7194525 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_green.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_green_32x32.png b/SISBusiness.Module/Images/Images.pawn_glass_green_32x32.png new file mode 100644 index 0000000..d6e5b54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_red.png b/SISBusiness.Module/Images/Images.pawn_glass_red.png new file mode 100644 index 0000000..13eaa18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_red.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_red_32x32.png b/SISBusiness.Module/Images/Images.pawn_glass_red_32x32.png new file mode 100644 index 0000000..7dd2b8b Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_white.png b/SISBusiness.Module/Images/Images.pawn_glass_white.png new file mode 100644 index 0000000..8965c63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_white.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_white_32x32.png b/SISBusiness.Module/Images/Images.pawn_glass_white_32x32.png new file mode 100644 index 0000000..1cad5a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_white_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_yellow.png b/SISBusiness.Module/Images/Images.pawn_glass_yellow.png new file mode 100644 index 0000000..75a653d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_glass_yellow_32x32.png b/SISBusiness.Module/Images/Images.pawn_glass_yellow_32x32.png new file mode 100644 index 0000000..65f42f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_glass_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_new.png b/SISBusiness.Module/Images/Images.pawn_new.png new file mode 100644 index 0000000..6af509b Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_new.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_new_32x32.png b/SISBusiness.Module/Images/Images.pawn_new_32x32.png new file mode 100644 index 0000000..5d45db5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_preferences.png b/SISBusiness.Module/Images/Images.pawn_preferences.png new file mode 100644 index 0000000..4644c9d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_preferences_32x32.png b/SISBusiness.Module/Images/Images.pawn_preferences_32x32.png new file mode 100644 index 0000000..01cc632 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_view.png b/SISBusiness.Module/Images/Images.pawn_view.png new file mode 100644 index 0000000..9ba3f1f Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_view.png differ diff --git a/SISBusiness.Module/Images/Images.pawn_view_32x32.png b/SISBusiness.Module/Images/Images.pawn_view_32x32.png new file mode 100644 index 0000000..21c41bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.pawn_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda.png b/SISBusiness.Module/Images/Images.pda.png new file mode 100644 index 0000000..4206bfa Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda.png differ diff --git a/SISBusiness.Module/Images/Images.pda2.png b/SISBusiness.Module/Images/Images.pda2.png new file mode 100644 index 0000000..28c9f5c Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_32x32.png b/SISBusiness.Module/Images/Images.pda2_32x32.png new file mode 100644 index 0000000..8fce2bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_into.png b/SISBusiness.Module/Images/Images.pda2_into.png new file mode 100644 index 0000000..3518dcf Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_into.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_into_32x32.png b/SISBusiness.Module/Images/Images.pda2_into_32x32.png new file mode 100644 index 0000000..259b0a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_out.png b/SISBusiness.Module/Images/Images.pda2_out.png new file mode 100644 index 0000000..d343024 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_out.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_out_32x32.png b/SISBusiness.Module/Images/Images.pda2_out_32x32.png new file mode 100644 index 0000000..67c2ff1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_preferences.png b/SISBusiness.Module/Images/Images.pda2_preferences.png new file mode 100644 index 0000000..28bcde0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.pda2_preferences_32x32.png b/SISBusiness.Module/Images/Images.pda2_preferences_32x32.png new file mode 100644 index 0000000..a380c0c Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda2_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda_32x32.png b/SISBusiness.Module/Images/Images.pda_32x32.png new file mode 100644 index 0000000..57d92e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pda_write.png b/SISBusiness.Module/Images/Images.pda_write.png new file mode 100644 index 0000000..5f5d585 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda_write.png differ diff --git a/SISBusiness.Module/Images/Images.pda_write_32x32.png b/SISBusiness.Module/Images/Images.pda_write_32x32.png new file mode 100644 index 0000000..25663de Binary files /dev/null and b/SISBusiness.Module/Images/Images.pda_write_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pen_blue.png b/SISBusiness.Module/Images/Images.pen_blue.png new file mode 100644 index 0000000..9094bd6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pen_blue.png differ diff --git a/SISBusiness.Module/Images/Images.pen_blue_32x32.png b/SISBusiness.Module/Images/Images.pen_blue_32x32.png new file mode 100644 index 0000000..e64ba00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pen_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pen_red.png b/SISBusiness.Module/Images/Images.pen_red.png new file mode 100644 index 0000000..2c8dac7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pen_red.png differ diff --git a/SISBusiness.Module/Images/Images.pen_red_32x32.png b/SISBusiness.Module/Images/Images.pen_red_32x32.png new file mode 100644 index 0000000..9cdd0a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pen_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pencil.png b/SISBusiness.Module/Images/Images.pencil.png new file mode 100644 index 0000000..042aacc Binary files /dev/null and b/SISBusiness.Module/Images/Images.pencil.png differ diff --git a/SISBusiness.Module/Images/Images.pencil_32x32.png b/SISBusiness.Module/Images/Images.pencil_32x32.png new file mode 100644 index 0000000..6b2d302 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pencil_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pens.png b/SISBusiness.Module/Images/Images.pens.png new file mode 100644 index 0000000..49ba00f Binary files /dev/null and b/SISBusiness.Module/Images/Images.pens.png differ diff --git a/SISBusiness.Module/Images/Images.pens_32x32.png b/SISBusiness.Module/Images/Images.pens_32x32.png new file mode 100644 index 0000000..c4a8109 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pens_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.percent.png b/SISBusiness.Module/Images/Images.percent.png new file mode 100644 index 0000000..109b985 Binary files /dev/null and b/SISBusiness.Module/Images/Images.percent.png differ diff --git a/SISBusiness.Module/Images/Images.percent_32x32.png b/SISBusiness.Module/Images/Images.percent_32x32.png new file mode 100644 index 0000000..3b1ce74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.percent_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.photo_portrait.png b/SISBusiness.Module/Images/Images.photo_portrait.png new file mode 100644 index 0000000..a70b30d Binary files /dev/null and b/SISBusiness.Module/Images/Images.photo_portrait.png differ diff --git a/SISBusiness.Module/Images/Images.photo_portrait_32x32.png b/SISBusiness.Module/Images/Images.photo_portrait_32x32.png new file mode 100644 index 0000000..e9a09be Binary files /dev/null and b/SISBusiness.Module/Images/Images.photo_portrait_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.photo_scenery.png b/SISBusiness.Module/Images/Images.photo_scenery.png new file mode 100644 index 0000000..f675d49 Binary files /dev/null and b/SISBusiness.Module/Images/Images.photo_scenery.png differ diff --git a/SISBusiness.Module/Images/Images.photo_scenery_32x32.png b/SISBusiness.Module/Images/Images.photo_scenery_32x32.png new file mode 100644 index 0000000..16fe8a5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.photo_scenery_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pie-chart.png b/SISBusiness.Module/Images/Images.pie-chart.png new file mode 100644 index 0000000..f9f0a9f Binary files /dev/null and b/SISBusiness.Module/Images/Images.pie-chart.png differ diff --git a/SISBusiness.Module/Images/Images.pie-chart_32x32.png b/SISBusiness.Module/Images/Images.pie-chart_32x32.png new file mode 100644 index 0000000..34af82d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pie-chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pie-chart_view.png b/SISBusiness.Module/Images/Images.pie-chart_view.png new file mode 100644 index 0000000..8c309f8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pie-chart_view.png differ diff --git a/SISBusiness.Module/Images/Images.pie-chart_view_32x32.png b/SISBusiness.Module/Images/Images.pie-chart_view_32x32.png new file mode 100644 index 0000000..cc9b59a Binary files /dev/null and b/SISBusiness.Module/Images/Images.pie-chart_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pill_blue.png b/SISBusiness.Module/Images/Images.pill_blue.png new file mode 100644 index 0000000..f4b2aff Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_blue.png differ diff --git a/SISBusiness.Module/Images/Images.pill_blue_32x32.png b/SISBusiness.Module/Images/Images.pill_blue_32x32.png new file mode 100644 index 0000000..1ee4a36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pill_green.png b/SISBusiness.Module/Images/Images.pill_green.png new file mode 100644 index 0000000..23fa22c Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_green.png differ diff --git a/SISBusiness.Module/Images/Images.pill_green_32x32.png b/SISBusiness.Module/Images/Images.pill_green_32x32.png new file mode 100644 index 0000000..1d688a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pill_red.png b/SISBusiness.Module/Images/Images.pill_red.png new file mode 100644 index 0000000..7a35f62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_red.png differ diff --git a/SISBusiness.Module/Images/Images.pill_red_32x32.png b/SISBusiness.Module/Images/Images.pill_red_32x32.png new file mode 100644 index 0000000..99e8ed3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pill_yellow.png b/SISBusiness.Module/Images/Images.pill_yellow.png new file mode 100644 index 0000000..237736e Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.pill_yellow_32x32.png b/SISBusiness.Module/Images/Images.pill_yellow_32x32.png new file mode 100644 index 0000000..1a61bac Binary files /dev/null and b/SISBusiness.Module/Images/Images.pill_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pilot1.png b/SISBusiness.Module/Images/Images.pilot1.png new file mode 100644 index 0000000..52279f6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pilot1.png differ diff --git a/SISBusiness.Module/Images/Images.pilot1_32x32.png b/SISBusiness.Module/Images/Images.pilot1_32x32.png new file mode 100644 index 0000000..5e391d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pilot1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pilot2.png b/SISBusiness.Module/Images/Images.pilot2.png new file mode 100644 index 0000000..701527e Binary files /dev/null and b/SISBusiness.Module/Images/Images.pilot2.png differ diff --git a/SISBusiness.Module/Images/Images.pilot2_32x32.png b/SISBusiness.Module/Images/Images.pilot2_32x32.png new file mode 100644 index 0000000..8872dd9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pilot2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pin_blue.png b/SISBusiness.Module/Images/Images.pin_blue.png new file mode 100644 index 0000000..78d2bc3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_blue.png differ diff --git a/SISBusiness.Module/Images/Images.pin_blue_32x32.png b/SISBusiness.Module/Images/Images.pin_blue_32x32.png new file mode 100644 index 0000000..f853d4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pin_green.png b/SISBusiness.Module/Images/Images.pin_green.png new file mode 100644 index 0000000..244136c Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_green.png differ diff --git a/SISBusiness.Module/Images/Images.pin_green_32x32.png b/SISBusiness.Module/Images/Images.pin_green_32x32.png new file mode 100644 index 0000000..6a6581d Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pin_grey.png b/SISBusiness.Module/Images/Images.pin_grey.png new file mode 100644 index 0000000..fc15e45 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_grey.png differ diff --git a/SISBusiness.Module/Images/Images.pin_grey_32x32.png b/SISBusiness.Module/Images/Images.pin_grey_32x32.png new file mode 100644 index 0000000..320a007 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pin_red.png b/SISBusiness.Module/Images/Images.pin_red.png new file mode 100644 index 0000000..35f115a Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_red.png differ diff --git a/SISBusiness.Module/Images/Images.pin_red_32x32.png b/SISBusiness.Module/Images/Images.pin_red_32x32.png new file mode 100644 index 0000000..531e1d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.pin_yellow.png b/SISBusiness.Module/Images/Images.pin_yellow.png new file mode 100644 index 0000000..86af280 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.pin_yellow_32x32.png b/SISBusiness.Module/Images/Images.pin_yellow_32x32.png new file mode 100644 index 0000000..052e9b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.pin_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.planet.png b/SISBusiness.Module/Images/Images.planet.png new file mode 100644 index 0000000..d5df8b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.planet.png differ diff --git a/SISBusiness.Module/Images/Images.planet_32x32.png b/SISBusiness.Module/Images/Images.planet_32x32.png new file mode 100644 index 0000000..d5637bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.planet_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.plasma-tv.png b/SISBusiness.Module/Images/Images.plasma-tv.png new file mode 100644 index 0000000..6654509 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plasma-tv.png differ diff --git a/SISBusiness.Module/Images/Images.plasma-tv_32x32.png b/SISBusiness.Module/Images/Images.plasma-tv_32x32.png new file mode 100644 index 0000000..024d4c5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plasma-tv_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.playingcard.png b/SISBusiness.Module/Images/Images.playingcard.png new file mode 100644 index 0000000..d83001b Binary files /dev/null and b/SISBusiness.Module/Images/Images.playingcard.png differ diff --git a/SISBusiness.Module/Images/Images.playingcard_32x32.png b/SISBusiness.Module/Images/Images.playingcard_32x32.png new file mode 100644 index 0000000..0914182 Binary files /dev/null and b/SISBusiness.Module/Images/Images.playingcard_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.plug.png b/SISBusiness.Module/Images/Images.plug.png new file mode 100644 index 0000000..db357da Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug.png differ diff --git a/SISBusiness.Module/Images/Images.plug_32x32.png b/SISBusiness.Module/Images/Images.plug_32x32.png new file mode 100644 index 0000000..00ce703 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.plug_add.png b/SISBusiness.Module/Images/Images.plug_add.png new file mode 100644 index 0000000..e2cbb1d Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_add.png differ diff --git a/SISBusiness.Module/Images/Images.plug_add_32x32.png b/SISBusiness.Module/Images/Images.plug_add_32x32.png new file mode 100644 index 0000000..6be2eee Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.plug_delete.png b/SISBusiness.Module/Images/Images.plug_delete.png new file mode 100644 index 0000000..ce31354 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_delete.png differ diff --git a/SISBusiness.Module/Images/Images.plug_delete_32x32.png b/SISBusiness.Module/Images/Images.plug_delete_32x32.png new file mode 100644 index 0000000..8b0036f Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.plug_new.png b/SISBusiness.Module/Images/Images.plug_new.png new file mode 100644 index 0000000..3907cd1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_new.png differ diff --git a/SISBusiness.Module/Images/Images.plug_new_32x32.png b/SISBusiness.Module/Images/Images.plug_new_32x32.png new file mode 100644 index 0000000..36ad302 Binary files /dev/null and b/SISBusiness.Module/Images/Images.plug_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_bobby.png b/SISBusiness.Module/Images/Images.policeman_bobby.png new file mode 100644 index 0000000..ce48d5d Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_bobby.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_bobby_32x32.png b/SISBusiness.Module/Images/Images.policeman_bobby_32x32.png new file mode 100644 index 0000000..a208e8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_bobby_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_german.png b/SISBusiness.Module/Images/Images.policeman_german.png new file mode 100644 index 0000000..f38dc92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_german.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_german_32x32.png b/SISBusiness.Module/Images/Images.policeman_german_32x32.png new file mode 100644 index 0000000..b14d9d8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_german_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_usa.png b/SISBusiness.Module/Images/Images.policeman_usa.png new file mode 100644 index 0000000..c3c51fa Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_usa.png differ diff --git a/SISBusiness.Module/Images/Images.policeman_usa_32x32.png b/SISBusiness.Module/Images/Images.policeman_usa_32x32.png new file mode 100644 index 0000000..4bf3d7a Binary files /dev/null and b/SISBusiness.Module/Images/Images.policeman_usa_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.potion_blue.png b/SISBusiness.Module/Images/Images.potion_blue.png new file mode 100644 index 0000000..94783c4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_blue.png differ diff --git a/SISBusiness.Module/Images/Images.potion_blue_32x32.png b/SISBusiness.Module/Images/Images.potion_blue_32x32.png new file mode 100644 index 0000000..2eab895 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.potion_green.png b/SISBusiness.Module/Images/Images.potion_green.png new file mode 100644 index 0000000..c2537e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_green.png differ diff --git a/SISBusiness.Module/Images/Images.potion_green_32x32.png b/SISBusiness.Module/Images/Images.potion_green_32x32.png new file mode 100644 index 0000000..6dfce32 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.potion_red.png b/SISBusiness.Module/Images/Images.potion_red.png new file mode 100644 index 0000000..85f6a29 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_red.png differ diff --git a/SISBusiness.Module/Images/Images.potion_red_32x32.png b/SISBusiness.Module/Images/Images.potion_red_32x32.png new file mode 100644 index 0000000..99925a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.potion_yellow.png b/SISBusiness.Module/Images/Images.potion_yellow.png new file mode 100644 index 0000000..25c8ce3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.potion_yellow_32x32.png b/SISBusiness.Module/Images/Images.potion_yellow_32x32.png new file mode 100644 index 0000000..a751c2d Binary files /dev/null and b/SISBusiness.Module/Images/Images.potion_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.power-drill.png b/SISBusiness.Module/Images/Images.power-drill.png new file mode 100644 index 0000000..10a53c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.power-drill.png differ diff --git a/SISBusiness.Module/Images/Images.power-drill_32x32.png b/SISBusiness.Module/Images/Images.power-drill_32x32.png new file mode 100644 index 0000000..50e6a74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.power-drill_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.preferences.png b/SISBusiness.Module/Images/Images.preferences.png new file mode 100644 index 0000000..87d29e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.preferences.png differ diff --git a/SISBusiness.Module/Images/Images.preferences_32x32.png b/SISBusiness.Module/Images/Images.preferences_32x32.png new file mode 100644 index 0000000..b554e8e Binary files /dev/null and b/SISBusiness.Module/Images/Images.preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.presentation.png b/SISBusiness.Module/Images/Images.presentation.png new file mode 100644 index 0000000..b5be5b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.presentation.png differ diff --git a/SISBusiness.Module/Images/Images.presentation_32x32.png b/SISBusiness.Module/Images/Images.presentation_32x32.png new file mode 100644 index 0000000..a83a618 Binary files /dev/null and b/SISBusiness.Module/Images/Images.presentation_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.presentation_chart.png b/SISBusiness.Module/Images/Images.presentation_chart.png new file mode 100644 index 0000000..ce8407c Binary files /dev/null and b/SISBusiness.Module/Images/Images.presentation_chart.png differ diff --git a/SISBusiness.Module/Images/Images.presentation_chart_32x32.png b/SISBusiness.Module/Images/Images.presentation_chart_32x32.png new file mode 100644 index 0000000..260f1cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.presentation_chart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.press.png b/SISBusiness.Module/Images/Images.press.png new file mode 100644 index 0000000..9746ebc Binary files /dev/null and b/SISBusiness.Module/Images/Images.press.png differ diff --git a/SISBusiness.Module/Images/Images.press_32x32.png b/SISBusiness.Module/Images/Images.press_32x32.png new file mode 100644 index 0000000..a9a3ac2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.press_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.press_Clone.png b/SISBusiness.Module/Images/Images.press_Clone.png new file mode 100644 index 0000000..47196fd Binary files /dev/null and b/SISBusiness.Module/Images/Images.press_Clone.png differ diff --git a/SISBusiness.Module/Images/Images.press_Clone_32x32.png b/SISBusiness.Module/Images/Images.press_Clone_32x32.png new file mode 100644 index 0000000..d6b6a75 Binary files /dev/null and b/SISBusiness.Module/Images/Images.press_Clone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.press_Merge.png b/SISBusiness.Module/Images/Images.press_Merge.png new file mode 100644 index 0000000..9ab3f38 Binary files /dev/null and b/SISBusiness.Module/Images/Images.press_Merge.png differ diff --git a/SISBusiness.Module/Images/Images.press_Merge_32x32.png b/SISBusiness.Module/Images/Images.press_Merge_32x32.png new file mode 100644 index 0000000..2a87da0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.press_Merge_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer.png b/SISBusiness.Module/Images/Images.printer.png new file mode 100644 index 0000000..bda7099 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer.png differ diff --git a/SISBusiness.Module/Images/Images.printer2.png b/SISBusiness.Module/Images/Images.printer2.png new file mode 100644 index 0000000..ecfe08e Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer2.png differ diff --git a/SISBusiness.Module/Images/Images.printer2_32x32.png b/SISBusiness.Module/Images/Images.printer2_32x32.png new file mode 100644 index 0000000..5fe5a7a Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer3.png b/SISBusiness.Module/Images/Images.printer3.png new file mode 100644 index 0000000..71d89db Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer3.png differ diff --git a/SISBusiness.Module/Images/Images.printer3_32x32.png b/SISBusiness.Module/Images/Images.printer3_32x32.png new file mode 100644 index 0000000..088f0cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_32x32.png b/SISBusiness.Module/Images/Images.printer_32x32.png new file mode 100644 index 0000000..df5e37a Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_add.png b/SISBusiness.Module/Images/Images.printer_add.png new file mode 100644 index 0000000..d41a721 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_add.png differ diff --git a/SISBusiness.Module/Images/Images.printer_add_32x32.png b/SISBusiness.Module/Images/Images.printer_add_32x32.png new file mode 100644 index 0000000..4b4a81f Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_delete.png b/SISBusiness.Module/Images/Images.printer_delete.png new file mode 100644 index 0000000..4d02d82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_delete.png differ diff --git a/SISBusiness.Module/Images/Images.printer_delete_32x32.png b/SISBusiness.Module/Images/Images.printer_delete_32x32.png new file mode 100644 index 0000000..d9dda2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_error.png b/SISBusiness.Module/Images/Images.printer_error.png new file mode 100644 index 0000000..842b3e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_error.png differ diff --git a/SISBusiness.Module/Images/Images.printer_error_32x32.png b/SISBusiness.Module/Images/Images.printer_error_32x32.png new file mode 100644 index 0000000..3525a9c Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_information.png b/SISBusiness.Module/Images/Images.printer_information.png new file mode 100644 index 0000000..6f9222e Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_information.png differ diff --git a/SISBusiness.Module/Images/Images.printer_information_32x32.png b/SISBusiness.Module/Images/Images.printer_information_32x32.png new file mode 100644 index 0000000..c2c9129 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_network.png b/SISBusiness.Module/Images/Images.printer_network.png new file mode 100644 index 0000000..3029a85 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_network.png differ diff --git a/SISBusiness.Module/Images/Images.printer_network_32x32.png b/SISBusiness.Module/Images/Images.printer_network_32x32.png new file mode 100644 index 0000000..f1b9dc0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_new.png b/SISBusiness.Module/Images/Images.printer_new.png new file mode 100644 index 0000000..eb26f0f Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_new.png differ diff --git a/SISBusiness.Module/Images/Images.printer_new_32x32.png b/SISBusiness.Module/Images/Images.printer_new_32x32.png new file mode 100644 index 0000000..20ac57d Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_ok.png b/SISBusiness.Module/Images/Images.printer_ok.png new file mode 100644 index 0000000..15b3138 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_ok.png differ diff --git a/SISBusiness.Module/Images/Images.printer_ok_32x32.png b/SISBusiness.Module/Images/Images.printer_ok_32x32.png new file mode 100644 index 0000000..c1a1d9b Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_preferences.png b/SISBusiness.Module/Images/Images.printer_preferences.png new file mode 100644 index 0000000..e7d05a4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.printer_preferences_32x32.png b/SISBusiness.Module/Images/Images.printer_preferences_32x32.png new file mode 100644 index 0000000..04f1bb9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_view.png b/SISBusiness.Module/Images/Images.printer_view.png new file mode 100644 index 0000000..e46ce53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_view.png differ diff --git a/SISBusiness.Module/Images/Images.printer_view_32x32.png b/SISBusiness.Module/Images/Images.printer_view_32x32.png new file mode 100644 index 0000000..73168a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.printer_warning.png b/SISBusiness.Module/Images/Images.printer_warning.png new file mode 100644 index 0000000..c034aaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_warning.png differ diff --git a/SISBusiness.Module/Images/Images.printer_warning_32x32.png b/SISBusiness.Module/Images/Images.printer_warning_32x32.png new file mode 100644 index 0000000..7c78d03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.printer_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.product.png b/SISBusiness.Module/Images/Images.product.png new file mode 100644 index 0000000..0b75a78 Binary files /dev/null and b/SISBusiness.Module/Images/Images.product.png differ diff --git a/SISBusiness.Module/Images/Images.product2.png b/SISBusiness.Module/Images/Images.product2.png new file mode 100644 index 0000000..cede66e Binary files /dev/null and b/SISBusiness.Module/Images/Images.product2.png differ diff --git a/SISBusiness.Module/Images/Images.product2_32x32.png b/SISBusiness.Module/Images/Images.product2_32x32.png new file mode 100644 index 0000000..91c41e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.product2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.product_32x32.png b/SISBusiness.Module/Images/Images.product_32x32.png new file mode 100644 index 0000000..d44c51a Binary files /dev/null and b/SISBusiness.Module/Images/Images.product_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.product_information.png b/SISBusiness.Module/Images/Images.product_information.png new file mode 100644 index 0000000..52a5b85 Binary files /dev/null and b/SISBusiness.Module/Images/Images.product_information.png differ diff --git a/SISBusiness.Module/Images/Images.product_information_32x32.png b/SISBusiness.Module/Images/Images.product_information_32x32.png new file mode 100644 index 0000000..3a3a4b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.product_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.question_and_answer.png b/SISBusiness.Module/Images/Images.question_and_answer.png new file mode 100644 index 0000000..08070b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.question_and_answer.png differ diff --git a/SISBusiness.Module/Images/Images.question_and_answer_32x32.png b/SISBusiness.Module/Images/Images.question_and_answer_32x32.png new file mode 100644 index 0000000..a503172 Binary files /dev/null and b/SISBusiness.Module/Images/Images.question_and_answer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.radio.png b/SISBusiness.Module/Images/Images.radio.png new file mode 100644 index 0000000..25ce8b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.radio.png differ diff --git a/SISBusiness.Module/Images/Images.radio_32x32.png b/SISBusiness.Module/Images/Images.radio_32x32.png new file mode 100644 index 0000000..b355a3b Binary files /dev/null and b/SISBusiness.Module/Images/Images.radio_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.record.png b/SISBusiness.Module/Images/Images.record.png new file mode 100644 index 0000000..638dca7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.record.png differ diff --git a/SISBusiness.Module/Images/Images.record_32x32.png b/SISBusiness.Module/Images/Images.record_32x32.png new file mode 100644 index 0000000..9296a9f Binary files /dev/null and b/SISBusiness.Module/Images/Images.record_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.recycle.png b/SISBusiness.Module/Images/Images.recycle.png new file mode 100644 index 0000000..6f95523 Binary files /dev/null and b/SISBusiness.Module/Images/Images.recycle.png differ diff --git a/SISBusiness.Module/Images/Images.recycle_32x32.png b/SISBusiness.Module/Images/Images.recycle_32x32.png new file mode 100644 index 0000000..045f554 Binary files /dev/null and b/SISBusiness.Module/Images/Images.recycle_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.recycle_preferences.png b/SISBusiness.Module/Images/Images.recycle_preferences.png new file mode 100644 index 0000000..ba22dab Binary files /dev/null and b/SISBusiness.Module/Images/Images.recycle_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.recycle_preferences_32x32.png b/SISBusiness.Module/Images/Images.recycle_preferences_32x32.png new file mode 100644 index 0000000..3e858df Binary files /dev/null and b/SISBusiness.Module/Images/Images.recycle_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.redo.png b/SISBusiness.Module/Images/Images.redo.png new file mode 100644 index 0000000..9995b66 Binary files /dev/null and b/SISBusiness.Module/Images/Images.redo.png differ diff --git a/SISBusiness.Module/Images/Images.redo_32x32.png b/SISBusiness.Module/Images/Images.redo_32x32.png new file mode 100644 index 0000000..bcb371d Binary files /dev/null and b/SISBusiness.Module/Images/Images.redo_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.refresh.png b/SISBusiness.Module/Images/Images.refresh.png new file mode 100644 index 0000000..c7567da Binary files /dev/null and b/SISBusiness.Module/Images/Images.refresh.png differ diff --git a/SISBusiness.Module/Images/Images.refresh_32x32.png b/SISBusiness.Module/Images/Images.refresh_32x32.png new file mode 100644 index 0000000..ce59ede Binary files /dev/null and b/SISBusiness.Module/Images/Images.refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.registry.png b/SISBusiness.Module/Images/Images.registry.png new file mode 100644 index 0000000..1940cce Binary files /dev/null and b/SISBusiness.Module/Images/Images.registry.png differ diff --git a/SISBusiness.Module/Images/Images.registry_32x32.png b/SISBusiness.Module/Images/Images.registry_32x32.png new file mode 100644 index 0000000..4f1cf54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.registry_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol.png b/SISBusiness.Module/Images/Images.remotecontrol.png new file mode 100644 index 0000000..163b854 Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol2.png b/SISBusiness.Module/Images/Images.remotecontrol2.png new file mode 100644 index 0000000..6c080ad Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol2.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol2_32x32.png b/SISBusiness.Module/Images/Images.remotecontrol2_32x32.png new file mode 100644 index 0000000..6ed48c2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol3.png b/SISBusiness.Module/Images/Images.remotecontrol3.png new file mode 100644 index 0000000..273e5fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol3.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol3_32x32.png b/SISBusiness.Module/Images/Images.remotecontrol3_32x32.png new file mode 100644 index 0000000..4ffb869 Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol_32x32.png b/SISBusiness.Module/Images/Images.remotecontrol_32x32.png new file mode 100644 index 0000000..fdfc486 Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol_preferences.png b/SISBusiness.Module/Images/Images.remotecontrol_preferences.png new file mode 100644 index 0000000..1539a7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.remotecontrol_preferences_32x32.png b/SISBusiness.Module/Images/Images.remotecontrol_preferences_32x32.png new file mode 100644 index 0000000..8bffb9b Binary files /dev/null and b/SISBusiness.Module/Images/Images.remotecontrol_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.replace.png b/SISBusiness.Module/Images/Images.replace.png new file mode 100644 index 0000000..338a1df Binary files /dev/null and b/SISBusiness.Module/Images/Images.replace.png differ diff --git a/SISBusiness.Module/Images/Images.replace2.png b/SISBusiness.Module/Images/Images.replace2.png new file mode 100644 index 0000000..a220558 Binary files /dev/null and b/SISBusiness.Module/Images/Images.replace2.png differ diff --git a/SISBusiness.Module/Images/Images.replace2_32x32.png b/SISBusiness.Module/Images/Images.replace2_32x32.png new file mode 100644 index 0000000..5f05069 Binary files /dev/null and b/SISBusiness.Module/Images/Images.replace2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.replace_32x32.png b/SISBusiness.Module/Images/Images.replace_32x32.png new file mode 100644 index 0000000..763db7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row.png b/SISBusiness.Module/Images/Images.row.png new file mode 100644 index 0000000..5ecccfc Binary files /dev/null and b/SISBusiness.Module/Images/Images.row.png differ diff --git a/SISBusiness.Module/Images/Images.row_32x32.png b/SISBusiness.Module/Images/Images.row_32x32.png new file mode 100644 index 0000000..c3acf74 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_add.png b/SISBusiness.Module/Images/Images.row_add.png new file mode 100644 index 0000000..71502da Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add.png differ diff --git a/SISBusiness.Module/Images/Images.row_add_32x32.png b/SISBusiness.Module/Images/Images.row_add_32x32.png new file mode 100644 index 0000000..0d3f27b Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_add_after.png b/SISBusiness.Module/Images/Images.row_add_after.png new file mode 100644 index 0000000..02235a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add_after.png differ diff --git a/SISBusiness.Module/Images/Images.row_add_after_32x32.png b/SISBusiness.Module/Images/Images.row_add_after_32x32.png new file mode 100644 index 0000000..c888220 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add_after_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_add_before.png b/SISBusiness.Module/Images/Images.row_add_before.png new file mode 100644 index 0000000..f4fbba3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add_before.png differ diff --git a/SISBusiness.Module/Images/Images.row_add_before_32x32.png b/SISBusiness.Module/Images/Images.row_add_before_32x32.png new file mode 100644 index 0000000..1c82e43 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_add_before_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_delete.png b/SISBusiness.Module/Images/Images.row_delete.png new file mode 100644 index 0000000..08a8045 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_delete.png differ diff --git a/SISBusiness.Module/Images/Images.row_delete_32x32.png b/SISBusiness.Module/Images/Images.row_delete_32x32.png new file mode 100644 index 0000000..2bf233c Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_preferences.png b/SISBusiness.Module/Images/Images.row_preferences.png new file mode 100644 index 0000000..0323640 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.row_preferences_32x32.png b/SISBusiness.Module/Images/Images.row_preferences_32x32.png new file mode 100644 index 0000000..ef9457f Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.row_refresh_before.png b/SISBusiness.Module/Images/Images.row_refresh_before.png new file mode 100644 index 0000000..b741112 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_refresh_before.png differ diff --git a/SISBusiness.Module/Images/Images.row_refresh_before_32x32.png b/SISBusiness.Module/Images/Images.row_refresh_before_32x32.png new file mode 100644 index 0000000..abe93a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.row_refresh_before_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.rubberstamp.png b/SISBusiness.Module/Images/Images.rubberstamp.png new file mode 100644 index 0000000..684bd4c Binary files /dev/null and b/SISBusiness.Module/Images/Images.rubberstamp.png differ diff --git a/SISBusiness.Module/Images/Images.rubberstamp_32x32.png b/SISBusiness.Module/Images/Images.rubberstamp_32x32.png new file mode 100644 index 0000000..e54ffb1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.rubberstamp_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.safe.png b/SISBusiness.Module/Images/Images.safe.png new file mode 100644 index 0000000..37a6b79 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe.png differ diff --git a/SISBusiness.Module/Images/Images.safe_32x32.png b/SISBusiness.Module/Images/Images.safe_32x32.png new file mode 100644 index 0000000..109dd67 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.safe_into.png b/SISBusiness.Module/Images/Images.safe_into.png new file mode 100644 index 0000000..24d3193 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe_into.png differ diff --git a/SISBusiness.Module/Images/Images.safe_into_32x32.png b/SISBusiness.Module/Images/Images.safe_into_32x32.png new file mode 100644 index 0000000..a444997 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.safe_out.png b/SISBusiness.Module/Images/Images.safe_out.png new file mode 100644 index 0000000..66f3995 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe_out.png differ diff --git a/SISBusiness.Module/Images/Images.safe_out_32x32.png b/SISBusiness.Module/Images/Images.safe_out_32x32.png new file mode 100644 index 0000000..4d16738 Binary files /dev/null and b/SISBusiness.Module/Images/Images.safe_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.satellite_dish.png b/SISBusiness.Module/Images/Images.satellite_dish.png new file mode 100644 index 0000000..f6e583e Binary files /dev/null and b/SISBusiness.Module/Images/Images.satellite_dish.png differ diff --git a/SISBusiness.Module/Images/Images.satellite_dish_32x32.png b/SISBusiness.Module/Images/Images.satellite_dish_32x32.png new file mode 100644 index 0000000..aadf15b Binary files /dev/null and b/SISBusiness.Module/Images/Images.satellite_dish_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.save_as.png b/SISBusiness.Module/Images/Images.save_as.png new file mode 100644 index 0000000..9ccaf3b Binary files /dev/null and b/SISBusiness.Module/Images/Images.save_as.png differ diff --git a/SISBusiness.Module/Images/Images.save_as_32x32.png b/SISBusiness.Module/Images/Images.save_as_32x32.png new file mode 100644 index 0000000..ceab6be Binary files /dev/null and b/SISBusiness.Module/Images/Images.save_as_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scanner.png b/SISBusiness.Module/Images/Images.scanner.png new file mode 100644 index 0000000..f2081f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scanner.png differ diff --git a/SISBusiness.Module/Images/Images.scanner_32x32.png b/SISBusiness.Module/Images/Images.scanner_32x32.png new file mode 100644 index 0000000..ce15e33 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scanner_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.screwdriver.png b/SISBusiness.Module/Images/Images.screwdriver.png new file mode 100644 index 0000000..5960373 Binary files /dev/null and b/SISBusiness.Module/Images/Images.screwdriver.png differ diff --git a/SISBusiness.Module/Images/Images.screwdriver_32x32.png b/SISBusiness.Module/Images/Images.screwdriver_32x32.png new file mode 100644 index 0000000..6eaa93d Binary files /dev/null and b/SISBusiness.Module/Images/Images.screwdriver_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll.png b/SISBusiness.Module/Images/Images.scroll.png new file mode 100644 index 0000000..00aa93e Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll.png differ diff --git a/SISBusiness.Module/Images/Images.scroll2.png b/SISBusiness.Module/Images/Images.scroll2.png new file mode 100644 index 0000000..019b3da Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll2.png differ diff --git a/SISBusiness.Module/Images/Images.scroll2_32x32.png b/SISBusiness.Module/Images/Images.scroll2_32x32.png new file mode 100644 index 0000000..43c8cf1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_32x32.png b/SISBusiness.Module/Images/Images.scroll_32x32.png new file mode 100644 index 0000000..5234476 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_add.png b/SISBusiness.Module/Images/Images.scroll_add.png new file mode 100644 index 0000000..fc8b046 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_add.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_add_32x32.png b/SISBusiness.Module/Images/Images.scroll_add_32x32.png new file mode 100644 index 0000000..a88fe8b Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_delete.png b/SISBusiness.Module/Images/Images.scroll_delete.png new file mode 100644 index 0000000..b652c9f Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_delete.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_delete_32x32.png b/SISBusiness.Module/Images/Images.scroll_delete_32x32.png new file mode 100644 index 0000000..b6925e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_error.png b/SISBusiness.Module/Images/Images.scroll_error.png new file mode 100644 index 0000000..44e4f66 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_error.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_error_32x32.png b/SISBusiness.Module/Images/Images.scroll_error_32x32.png new file mode 100644 index 0000000..44d2eba Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_information.png b/SISBusiness.Module/Images/Images.scroll_information.png new file mode 100644 index 0000000..14ec9e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_information.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_information_32x32.png b/SISBusiness.Module/Images/Images.scroll_information_32x32.png new file mode 100644 index 0000000..c0b25d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_ok.png b/SISBusiness.Module/Images/Images.scroll_ok.png new file mode 100644 index 0000000..35a1de0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_ok.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_ok_32x32.png b/SISBusiness.Module/Images/Images.scroll_ok_32x32.png new file mode 100644 index 0000000..0742937 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_preferences.png b/SISBusiness.Module/Images/Images.scroll_preferences.png new file mode 100644 index 0000000..199e217 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_preferences_32x32.png b/SISBusiness.Module/Images/Images.scroll_preferences_32x32.png new file mode 100644 index 0000000..56f0e62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_refresh.png b/SISBusiness.Module/Images/Images.scroll_refresh.png new file mode 100644 index 0000000..01fc0c3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_refresh_32x32.png b/SISBusiness.Module/Images/Images.scroll_refresh_32x32.png new file mode 100644 index 0000000..ff3156b Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_replace.png b/SISBusiness.Module/Images/Images.scroll_replace.png new file mode 100644 index 0000000..025bc2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_replace.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_replace_32x32.png b/SISBusiness.Module/Images/Images.scroll_replace_32x32.png new file mode 100644 index 0000000..532a147 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_run.png b/SISBusiness.Module/Images/Images.scroll_run.png new file mode 100644 index 0000000..f7cfdeb Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_run.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_run_32x32.png b/SISBusiness.Module/Images/Images.scroll_run_32x32.png new file mode 100644 index 0000000..450e012 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_stop.png b/SISBusiness.Module/Images/Images.scroll_stop.png new file mode 100644 index 0000000..36df412 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_stop.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_stop_32x32.png b/SISBusiness.Module/Images/Images.scroll_stop_32x32.png new file mode 100644 index 0000000..92593b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_view.png b/SISBusiness.Module/Images/Images.scroll_view.png new file mode 100644 index 0000000..b86572f Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_view.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_view_32x32.png b/SISBusiness.Module/Images/Images.scroll_view_32x32.png new file mode 100644 index 0000000..4820246 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_warning.png b/SISBusiness.Module/Images/Images.scroll_warning.png new file mode 100644 index 0000000..9179068 Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_warning.png differ diff --git a/SISBusiness.Module/Images/Images.scroll_warning_32x32.png b/SISBusiness.Module/Images/Images.scroll_warning_32x32.png new file mode 100644 index 0000000..a6b218b Binary files /dev/null and b/SISBusiness.Module/Images/Images.scroll_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.security_agent.png b/SISBusiness.Module/Images/Images.security_agent.png new file mode 100644 index 0000000..590aae8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.security_agent.png differ diff --git a/SISBusiness.Module/Images/Images.security_agent_32x32.png b/SISBusiness.Module/Images/Images.security_agent_32x32.png new file mode 100644 index 0000000..b60d9b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.security_agent_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection.png b/SISBusiness.Module/Images/Images.selection.png new file mode 100644 index 0000000..3da06dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection.png differ diff --git a/SISBusiness.Module/Images/Images.selection_32x32.png b/SISBusiness.Module/Images/Images.selection_32x32.png new file mode 100644 index 0000000..4324aeb Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_delete.png b/SISBusiness.Module/Images/Images.selection_delete.png new file mode 100644 index 0000000..ab7e61f Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_delete.png differ diff --git a/SISBusiness.Module/Images/Images.selection_delete_32x32.png b/SISBusiness.Module/Images/Images.selection_delete_32x32.png new file mode 100644 index 0000000..49c9d36 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_down.png b/SISBusiness.Module/Images/Images.selection_down.png new file mode 100644 index 0000000..756ec01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_down.png differ diff --git a/SISBusiness.Module/Images/Images.selection_down_32x32.png b/SISBusiness.Module/Images/Images.selection_down_32x32.png new file mode 100644 index 0000000..44c8d07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_find.png b/SISBusiness.Module/Images/Images.selection_find.png new file mode 100644 index 0000000..f64f408 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_find.png differ diff --git a/SISBusiness.Module/Images/Images.selection_find_32x32.png b/SISBusiness.Module/Images/Images.selection_find_32x32.png new file mode 100644 index 0000000..c898894 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_recycle.png b/SISBusiness.Module/Images/Images.selection_recycle.png new file mode 100644 index 0000000..e0778c2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_recycle.png differ diff --git a/SISBusiness.Module/Images/Images.selection_recycle_32x32.png b/SISBusiness.Module/Images/Images.selection_recycle_32x32.png new file mode 100644 index 0000000..5953c39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_recycle_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_replace.png b/SISBusiness.Module/Images/Images.selection_replace.png new file mode 100644 index 0000000..49f48d7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_replace.png differ diff --git a/SISBusiness.Module/Images/Images.selection_replace_32x32.png b/SISBusiness.Module/Images/Images.selection_replace_32x32.png new file mode 100644 index 0000000..a742f05 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_up.png b/SISBusiness.Module/Images/Images.selection_up.png new file mode 100644 index 0000000..f6746a4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_up.png differ diff --git a/SISBusiness.Module/Images/Images.selection_up_32x32.png b/SISBusiness.Module/Images/Images.selection_up_32x32.png new file mode 100644 index 0000000..d375f1c Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_up_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.selection_view.png b/SISBusiness.Module/Images/Images.selection_view.png new file mode 100644 index 0000000..8ad04f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_view.png differ diff --git a/SISBusiness.Module/Images/Images.selection_view_32x32.png b/SISBusiness.Module/Images/Images.selection_view_32x32.png new file mode 100644 index 0000000..b2caa13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.selection_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server.png b/SISBusiness.Module/Images/Images.server.png new file mode 100644 index 0000000..5c2e828 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server.png differ diff --git a/SISBusiness.Module/Images/Images.server_32x32.png b/SISBusiness.Module/Images/Images.server_32x32.png new file mode 100644 index 0000000..1bedef2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_add.png b/SISBusiness.Module/Images/Images.server_add.png new file mode 100644 index 0000000..8d098e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_add.png differ diff --git a/SISBusiness.Module/Images/Images.server_add_32x32.png b/SISBusiness.Module/Images/Images.server_add_32x32.png new file mode 100644 index 0000000..e39ce7e Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_certificate.png b/SISBusiness.Module/Images/Images.server_certificate.png new file mode 100644 index 0000000..f95587b Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_certificate.png differ diff --git a/SISBusiness.Module/Images/Images.server_certificate_32x32.png b/SISBusiness.Module/Images/Images.server_certificate_32x32.png new file mode 100644 index 0000000..9842e08 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_certificate_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_client.png b/SISBusiness.Module/Images/Images.server_client.png new file mode 100644 index 0000000..d3b4a73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_client.png differ diff --git a/SISBusiness.Module/Images/Images.server_client_32x32.png b/SISBusiness.Module/Images/Images.server_client_32x32.png new file mode 100644 index 0000000..0aa40e6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_client_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_client_exchange.png b/SISBusiness.Module/Images/Images.server_client_exchange.png new file mode 100644 index 0000000..eb5e2ac Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_client_exchange.png differ diff --git a/SISBusiness.Module/Images/Images.server_client_exchange_32x32.png b/SISBusiness.Module/Images/Images.server_client_exchange_32x32.png new file mode 100644 index 0000000..4ee041c Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_client_exchange_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_connection.png b/SISBusiness.Module/Images/Images.server_connection.png new file mode 100644 index 0000000..84a4eb8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_connection.png differ diff --git a/SISBusiness.Module/Images/Images.server_connection_32x32.png b/SISBusiness.Module/Images/Images.server_connection_32x32.png new file mode 100644 index 0000000..f4dc875 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_delete.png b/SISBusiness.Module/Images/Images.server_delete.png new file mode 100644 index 0000000..c1a04b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_delete.png differ diff --git a/SISBusiness.Module/Images/Images.server_delete_32x32.png b/SISBusiness.Module/Images/Images.server_delete_32x32.png new file mode 100644 index 0000000..31419d5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_document.png b/SISBusiness.Module/Images/Images.server_document.png new file mode 100644 index 0000000..cc5e804 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_document.png differ diff --git a/SISBusiness.Module/Images/Images.server_document_32x32.png b/SISBusiness.Module/Images/Images.server_document_32x32.png new file mode 100644 index 0000000..6024449 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_document_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_earth.png b/SISBusiness.Module/Images/Images.server_earth.png new file mode 100644 index 0000000..ac727bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_earth.png differ diff --git a/SISBusiness.Module/Images/Images.server_earth_32x32.png b/SISBusiness.Module/Images/Images.server_earth_32x32.png new file mode 100644 index 0000000..272ccea Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_error.png b/SISBusiness.Module/Images/Images.server_error.png new file mode 100644 index 0000000..1353e40 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_error.png differ diff --git a/SISBusiness.Module/Images/Images.server_error_32x32.png b/SISBusiness.Module/Images/Images.server_error_32x32.png new file mode 100644 index 0000000..fde42a7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_error_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_forbidden.png b/SISBusiness.Module/Images/Images.server_forbidden.png new file mode 100644 index 0000000..100e49c Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_forbidden.png differ diff --git a/SISBusiness.Module/Images/Images.server_forbidden_32x32.png b/SISBusiness.Module/Images/Images.server_forbidden_32x32.png new file mode 100644 index 0000000..709b714 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_forbidden_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_from_client.png b/SISBusiness.Module/Images/Images.server_from_client.png new file mode 100644 index 0000000..69361e2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_from_client.png differ diff --git a/SISBusiness.Module/Images/Images.server_from_client_32x32.png b/SISBusiness.Module/Images/Images.server_from_client_32x32.png new file mode 100644 index 0000000..c7a67e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_from_client_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_id_card.png b/SISBusiness.Module/Images/Images.server_id_card.png new file mode 100644 index 0000000..e96d806 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_id_card.png differ diff --git a/SISBusiness.Module/Images/Images.server_id_card_32x32.png b/SISBusiness.Module/Images/Images.server_id_card_32x32.png new file mode 100644 index 0000000..6b47829 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_id_card_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_information.png b/SISBusiness.Module/Images/Images.server_information.png new file mode 100644 index 0000000..a28c1b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_information.png differ diff --git a/SISBusiness.Module/Images/Images.server_information_32x32.png b/SISBusiness.Module/Images/Images.server_information_32x32.png new file mode 100644 index 0000000..5d87963 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_into.png b/SISBusiness.Module/Images/Images.server_into.png new file mode 100644 index 0000000..5306af4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_into.png differ diff --git a/SISBusiness.Module/Images/Images.server_into_32x32.png b/SISBusiness.Module/Images/Images.server_into_32x32.png new file mode 100644 index 0000000..1a597f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_lock.png b/SISBusiness.Module/Images/Images.server_lock.png new file mode 100644 index 0000000..f56759b Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_lock.png differ diff --git a/SISBusiness.Module/Images/Images.server_lock_32x32.png b/SISBusiness.Module/Images/Images.server_lock_32x32.png new file mode 100644 index 0000000..98fd154 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail.png b/SISBusiness.Module/Images/Images.server_mail.png new file mode 100644 index 0000000..05247e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail_32x32.png b/SISBusiness.Module/Images/Images.server_mail_32x32.png new file mode 100644 index 0000000..2d80575 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail_download.png b/SISBusiness.Module/Images/Images.server_mail_download.png new file mode 100644 index 0000000..6868820 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail_download.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail_download_32x32.png b/SISBusiness.Module/Images/Images.server_mail_download_32x32.png new file mode 100644 index 0000000..1191242 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail_download_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail_upload.png b/SISBusiness.Module/Images/Images.server_mail_upload.png new file mode 100644 index 0000000..d708b33 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail_upload.png differ diff --git a/SISBusiness.Module/Images/Images.server_mail_upload_32x32.png b/SISBusiness.Module/Images/Images.server_mail_upload_32x32.png new file mode 100644 index 0000000..9f21283 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_mail_upload_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_network.png b/SISBusiness.Module/Images/Images.server_network.png new file mode 100644 index 0000000..58ab39a Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_network.png differ diff --git a/SISBusiness.Module/Images/Images.server_network_32x32.png b/SISBusiness.Module/Images/Images.server_network_32x32.png new file mode 100644 index 0000000..29dc7ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_new.png b/SISBusiness.Module/Images/Images.server_new.png new file mode 100644 index 0000000..2731863 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_new.png differ diff --git a/SISBusiness.Module/Images/Images.server_new_32x32.png b/SISBusiness.Module/Images/Images.server_new_32x32.png new file mode 100644 index 0000000..37f2f3d Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_ok.png b/SISBusiness.Module/Images/Images.server_ok.png new file mode 100644 index 0000000..281f95d Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_ok.png differ diff --git a/SISBusiness.Module/Images/Images.server_ok_32x32.png b/SISBusiness.Module/Images/Images.server_ok_32x32.png new file mode 100644 index 0000000..6bedf8a Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_out.png b/SISBusiness.Module/Images/Images.server_out.png new file mode 100644 index 0000000..33a41e7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_out.png differ diff --git a/SISBusiness.Module/Images/Images.server_out_32x32.png b/SISBusiness.Module/Images/Images.server_out_32x32.png new file mode 100644 index 0000000..1e34efe Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_preferences.png b/SISBusiness.Module/Images/Images.server_preferences.png new file mode 100644 index 0000000..6c842b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.server_preferences_32x32.png b/SISBusiness.Module/Images/Images.server_preferences_32x32.png new file mode 100644 index 0000000..6da481d Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_time.png b/SISBusiness.Module/Images/Images.server_time.png new file mode 100644 index 0000000..1e6ab94 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_time.png differ diff --git a/SISBusiness.Module/Images/Images.server_time_32x32.png b/SISBusiness.Module/Images/Images.server_time_32x32.png new file mode 100644 index 0000000..00473d4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_to_client.png b/SISBusiness.Module/Images/Images.server_to_client.png new file mode 100644 index 0000000..ed9be4b Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_to_client.png differ diff --git a/SISBusiness.Module/Images/Images.server_to_client_32x32.png b/SISBusiness.Module/Images/Images.server_to_client_32x32.png new file mode 100644 index 0000000..9cb4526 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_to_client_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_unknown.png b/SISBusiness.Module/Images/Images.server_unknown.png new file mode 100644 index 0000000..b1d30d9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_unknown.png differ diff --git a/SISBusiness.Module/Images/Images.server_unknown_32x32.png b/SISBusiness.Module/Images/Images.server_unknown_32x32.png new file mode 100644 index 0000000..48d44dc Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_unknown_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_view.png b/SISBusiness.Module/Images/Images.server_view.png new file mode 100644 index 0000000..7947a50 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_view.png differ diff --git a/SISBusiness.Module/Images/Images.server_view_32x32.png b/SISBusiness.Module/Images/Images.server_view_32x32.png new file mode 100644 index 0000000..aa5cf1b Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.server_warning.png b/SISBusiness.Module/Images/Images.server_warning.png new file mode 100644 index 0000000..4b96bba Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_warning.png differ diff --git a/SISBusiness.Module/Images/Images.server_warning_32x32.png b/SISBusiness.Module/Images/Images.server_warning_32x32.png new file mode 100644 index 0000000..84fa5d0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.server_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield.png b/SISBusiness.Module/Images/Images.shield.png new file mode 100644 index 0000000..da9e3d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield.png differ diff --git a/SISBusiness.Module/Images/Images.shield1.png b/SISBusiness.Module/Images/Images.shield1.png new file mode 100644 index 0000000..4bd8768 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield1.png differ diff --git a/SISBusiness.Module/Images/Images.shield1_32x32.png b/SISBusiness.Module/Images/Images.shield1_32x32.png new file mode 100644 index 0000000..cf33a60 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield2.png b/SISBusiness.Module/Images/Images.shield2.png new file mode 100644 index 0000000..3e4b7f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield2.png differ diff --git a/SISBusiness.Module/Images/Images.shield2_32x32.png b/SISBusiness.Module/Images/Images.shield2_32x32.png new file mode 100644 index 0000000..322da0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_32x32.png b/SISBusiness.Module/Images/Images.shield_32x32.png new file mode 100644 index 0000000..a40716d Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_add.png b/SISBusiness.Module/Images/Images.shield_add.png new file mode 100644 index 0000000..d7d01d3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_add.png differ diff --git a/SISBusiness.Module/Images/Images.shield_add_32x32.png b/SISBusiness.Module/Images/Images.shield_add_32x32.png new file mode 100644 index 0000000..b4485b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_delete.png b/SISBusiness.Module/Images/Images.shield_delete.png new file mode 100644 index 0000000..60f73c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_delete.png differ diff --git a/SISBusiness.Module/Images/Images.shield_delete_32x32.png b/SISBusiness.Module/Images/Images.shield_delete_32x32.png new file mode 100644 index 0000000..a21b0ab Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_green.png b/SISBusiness.Module/Images/Images.shield_green.png new file mode 100644 index 0000000..c2df41c Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_green.png differ diff --git a/SISBusiness.Module/Images/Images.shield_green_32x32.png b/SISBusiness.Module/Images/Images.shield_green_32x32.png new file mode 100644 index 0000000..9dbdf05 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_new.png b/SISBusiness.Module/Images/Images.shield_new.png new file mode 100644 index 0000000..da07444 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_new.png differ diff --git a/SISBusiness.Module/Images/Images.shield_new_32x32.png b/SISBusiness.Module/Images/Images.shield_new_32x32.png new file mode 100644 index 0000000..5892b0a Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_preferences.png b/SISBusiness.Module/Images/Images.shield_preferences.png new file mode 100644 index 0000000..dcdeb30 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.shield_preferences_32x32.png b/SISBusiness.Module/Images/Images.shield_preferences_32x32.png new file mode 100644 index 0000000..ccb78b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_red.png b/SISBusiness.Module/Images/Images.shield_red.png new file mode 100644 index 0000000..8fd75b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_red.png differ diff --git a/SISBusiness.Module/Images/Images.shield_red_32x32.png b/SISBusiness.Module/Images/Images.shield_red_32x32.png new file mode 100644 index 0000000..0b2b05e Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shield_yellow.png b/SISBusiness.Module/Images/Images.shield_yellow.png new file mode 100644 index 0000000..32fad27 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.shield_yellow_32x32.png b/SISBusiness.Module/Images/Images.shield_yellow_32x32.png new file mode 100644 index 0000000..4ddadad Binary files /dev/null and b/SISBusiness.Module/Images/Images.shield_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket.png b/SISBusiness.Module/Images/Images.shoppingbasket.png new file mode 100644 index 0000000..601a667 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_32x32.png b/SISBusiness.Module/Images/Images.shoppingbasket_32x32.png new file mode 100644 index 0000000..e973098 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_add.png b/SISBusiness.Module/Images/Images.shoppingbasket_add.png new file mode 100644 index 0000000..adf14f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_add.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_add_32x32.png b/SISBusiness.Module/Images/Images.shoppingbasket_add_32x32.png new file mode 100644 index 0000000..870225b Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_delete.png b/SISBusiness.Module/Images/Images.shoppingbasket_delete.png new file mode 100644 index 0000000..97be371 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_delete.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_delete_32x32.png b/SISBusiness.Module/Images/Images.shoppingbasket_delete_32x32.png new file mode 100644 index 0000000..46c41b4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_full.png b/SISBusiness.Module/Images/Images.shoppingbasket_full.png new file mode 100644 index 0000000..11c5ef9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_full.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingbasket_full_32x32.png b/SISBusiness.Module/Images/Images.shoppingbasket_full_32x32.png new file mode 100644 index 0000000..53db8a4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingbasket_full_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingcart.png b/SISBusiness.Module/Images/Images.shoppingcart.png new file mode 100644 index 0000000..b6a1eee Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingcart.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingcart_32x32.png b/SISBusiness.Module/Images/Images.shoppingcart_32x32.png new file mode 100644 index 0000000..64c2fa3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingcart_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingcart_full.png b/SISBusiness.Module/Images/Images.shoppingcart_full.png new file mode 100644 index 0000000..5855399 Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingcart_full.png differ diff --git a/SISBusiness.Module/Images/Images.shoppingcart_full_32x32.png b/SISBusiness.Module/Images/Images.shoppingcart_full_32x32.png new file mode 100644 index 0000000..64d293e Binary files /dev/null and b/SISBusiness.Module/Images/Images.shoppingcart_full_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.signaling_disk_green.png b/SISBusiness.Module/Images/Images.signaling_disk_green.png new file mode 100644 index 0000000..359e502 Binary files /dev/null and b/SISBusiness.Module/Images/Images.signaling_disk_green.png differ diff --git a/SISBusiness.Module/Images/Images.signaling_disk_green_32x32.png b/SISBusiness.Module/Images/Images.signaling_disk_green_32x32.png new file mode 100644 index 0000000..8f00b5f Binary files /dev/null and b/SISBusiness.Module/Images/Images.signaling_disk_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.signaling_disk_red.png b/SISBusiness.Module/Images/Images.signaling_disk_red.png new file mode 100644 index 0000000..5d23f98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.signaling_disk_red.png differ diff --git a/SISBusiness.Module/Images/Images.signaling_disk_red_32x32.png b/SISBusiness.Module/Images/Images.signaling_disk_red_32x32.png new file mode 100644 index 0000000..ab43527 Binary files /dev/null and b/SISBusiness.Module/Images/Images.signaling_disk_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.signpost.png b/SISBusiness.Module/Images/Images.signpost.png new file mode 100644 index 0000000..3ca0e6f Binary files /dev/null and b/SISBusiness.Module/Images/Images.signpost.png differ diff --git a/SISBusiness.Module/Images/Images.signpost_32x32.png b/SISBusiness.Module/Images/Images.signpost_32x32.png new file mode 100644 index 0000000..f91d4d3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.signpost_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sort_ascending.png b/SISBusiness.Module/Images/Images.sort_ascending.png new file mode 100644 index 0000000..bf6b1c0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_ascending.png differ diff --git a/SISBusiness.Module/Images/Images.sort_ascending_32x32.png b/SISBusiness.Module/Images/Images.sort_ascending_32x32.png new file mode 100644 index 0000000..ae74eaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_ascending_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sort_az_ascending.png b/SISBusiness.Module/Images/Images.sort_az_ascending.png new file mode 100644 index 0000000..3b4ae6d Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_az_ascending.png differ diff --git a/SISBusiness.Module/Images/Images.sort_az_ascending_32x32.png b/SISBusiness.Module/Images/Images.sort_az_ascending_32x32.png new file mode 100644 index 0000000..672b54e Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_az_ascending_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sort_az_descending.png b/SISBusiness.Module/Images/Images.sort_az_descending.png new file mode 100644 index 0000000..523af13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_az_descending.png differ diff --git a/SISBusiness.Module/Images/Images.sort_az_descending_32x32.png b/SISBusiness.Module/Images/Images.sort_az_descending_32x32.png new file mode 100644 index 0000000..e690561 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_az_descending_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sort_descending.png b/SISBusiness.Module/Images/Images.sort_descending.png new file mode 100644 index 0000000..f86be79 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_descending.png differ diff --git a/SISBusiness.Module/Images/Images.sort_descending_32x32.png b/SISBusiness.Module/Images/Images.sort_descending_32x32.png new file mode 100644 index 0000000..53c38b9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sort_descending_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.spam.png b/SISBusiness.Module/Images/Images.spam.png new file mode 100644 index 0000000..0db7ede Binary files /dev/null and b/SISBusiness.Module/Images/Images.spam.png differ diff --git a/SISBusiness.Module/Images/Images.spam_32x32.png b/SISBusiness.Module/Images/Images.spam_32x32.png new file mode 100644 index 0000000..85074e0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.spam_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sportscar.png b/SISBusiness.Module/Images/Images.sportscar.png new file mode 100644 index 0000000..ae3f680 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sportscar.png differ diff --git a/SISBusiness.Module/Images/Images.sportscar_32x32.png b/SISBusiness.Module/Images/Images.sportscar_32x32.png new file mode 100644 index 0000000..df4c3b3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sportscar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.spy.png b/SISBusiness.Module/Images/Images.spy.png new file mode 100644 index 0000000..b3447c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.spy.png differ diff --git a/SISBusiness.Module/Images/Images.spy_32x32.png b/SISBusiness.Module/Images/Images.spy_32x32.png new file mode 100644 index 0000000..5252d4d Binary files /dev/null and b/SISBusiness.Module/Images/Images.spy_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stapler.png b/SISBusiness.Module/Images/Images.stapler.png new file mode 100644 index 0000000..e7edff0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stapler.png differ diff --git a/SISBusiness.Module/Images/Images.stapler_32x32.png b/SISBusiness.Module/Images/Images.stapler_32x32.png new file mode 100644 index 0000000..dee4d1d Binary files /dev/null and b/SISBusiness.Module/Images/Images.stapler_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_blue.png b/SISBusiness.Module/Images/Images.star_blue.png new file mode 100644 index 0000000..b992f90 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_blue.png differ diff --git a/SISBusiness.Module/Images/Images.star_blue_32x32.png b/SISBusiness.Module/Images/Images.star_blue_32x32.png new file mode 100644 index 0000000..1d8d221 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_green.png b/SISBusiness.Module/Images/Images.star_green.png new file mode 100644 index 0000000..9945b54 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_green.png differ diff --git a/SISBusiness.Module/Images/Images.star_green_32x32.png b/SISBusiness.Module/Images/Images.star_green_32x32.png new file mode 100644 index 0000000..2fdd22e Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_grey.png b/SISBusiness.Module/Images/Images.star_grey.png new file mode 100644 index 0000000..e9c3de1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_grey.png differ diff --git a/SISBusiness.Module/Images/Images.star_grey_32x32.png b/SISBusiness.Module/Images/Images.star_grey_32x32.png new file mode 100644 index 0000000..eb373f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_grey_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_red.png b/SISBusiness.Module/Images/Images.star_red.png new file mode 100644 index 0000000..93f7944 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_red.png differ diff --git a/SISBusiness.Module/Images/Images.star_red_32x32.png b/SISBusiness.Module/Images/Images.star_red_32x32.png new file mode 100644 index 0000000..e98877b Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow.png b/SISBusiness.Module/Images/Images.star_yellow.png new file mode 100644 index 0000000..d9c5a31 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_32x32.png new file mode 100644 index 0000000..1d84bbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_add.png b/SISBusiness.Module/Images/Images.star_yellow_add.png new file mode 100644 index 0000000..c6c06dd Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_add.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_add_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_add_32x32.png new file mode 100644 index 0000000..6bf58df Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_delete.png b/SISBusiness.Module/Images/Images.star_yellow_delete.png new file mode 100644 index 0000000..9de40cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_delete.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_delete_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_delete_32x32.png new file mode 100644 index 0000000..dd376a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_new.png b/SISBusiness.Module/Images/Images.star_yellow_new.png new file mode 100644 index 0000000..7a8001a Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_new.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_new_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_new_32x32.png new file mode 100644 index 0000000..f5bd715 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_preferences.png b/SISBusiness.Module/Images/Images.star_yellow_preferences.png new file mode 100644 index 0000000..ed36306 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_preferences_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_preferences_32x32.png new file mode 100644 index 0000000..691caf7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_view.png b/SISBusiness.Module/Images/Images.star_yellow_view.png new file mode 100644 index 0000000..4367a89 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_view.png differ diff --git a/SISBusiness.Module/Images/Images.star_yellow_view_32x32.png b/SISBusiness.Module/Images/Images.star_yellow_view_32x32.png new file mode 100644 index 0000000..7ebac83 Binary files /dev/null and b/SISBusiness.Module/Images/Images.star_yellow_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step.png b/SISBusiness.Module/Images/Images.step.png new file mode 100644 index 0000000..1f81d46 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step.png differ diff --git a/SISBusiness.Module/Images/Images.step_32x32.png b/SISBusiness.Module/Images/Images.step_32x32.png new file mode 100644 index 0000000..ae63c92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step_Sum.png b/SISBusiness.Module/Images/Images.step_Sum.png new file mode 100644 index 0000000..1d6be00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_Sum.png differ diff --git a/SISBusiness.Module/Images/Images.step_Sum_32x32.png b/SISBusiness.Module/Images/Images.step_Sum_32x32.png new file mode 100644 index 0000000..9d46d2f Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_Sum_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step_add.png b/SISBusiness.Module/Images/Images.step_add.png new file mode 100644 index 0000000..7cf1d6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_add.png differ diff --git a/SISBusiness.Module/Images/Images.step_add_32x32.png b/SISBusiness.Module/Images/Images.step_add_32x32.png new file mode 100644 index 0000000..fda90c2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step_delete.png b/SISBusiness.Module/Images/Images.step_delete.png new file mode 100644 index 0000000..5856cec Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_delete.png differ diff --git a/SISBusiness.Module/Images/Images.step_delete_32x32.png b/SISBusiness.Module/Images/Images.step_delete_32x32.png new file mode 100644 index 0000000..a463b19 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step_excla_mark.png b/SISBusiness.Module/Images/Images.step_excla_mark.png new file mode 100644 index 0000000..d18f59e Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_excla_mark.png differ diff --git a/SISBusiness.Module/Images/Images.step_excla_mark_32x32.png b/SISBusiness.Module/Images/Images.step_excla_mark_32x32.png new file mode 100644 index 0000000..4ffd491 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_excla_mark_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.step_new.png b/SISBusiness.Module/Images/Images.step_new.png new file mode 100644 index 0000000..2d94395 Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_new.png differ diff --git a/SISBusiness.Module/Images/Images.step_new_32x32.png b/SISBusiness.Module/Images/Images.step_new_32x32.png new file mode 100644 index 0000000..c1a95cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.step_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stethoscope.png b/SISBusiness.Module/Images/Images.stethoscope.png new file mode 100644 index 0000000..b2843b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stethoscope.png differ diff --git a/SISBusiness.Module/Images/Images.stethoscope_32x32.png b/SISBusiness.Module/Images/Images.stethoscope_32x32.png new file mode 100644 index 0000000..ca25d13 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stethoscope_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stop.png b/SISBusiness.Module/Images/Images.stop.png new file mode 100644 index 0000000..2b54386 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stop.png differ diff --git a/SISBusiness.Module/Images/Images.stop_32x32.png b/SISBusiness.Module/Images/Images.stop_32x32.png new file mode 100644 index 0000000..765ab62 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch.png b/SISBusiness.Module/Images/Images.stopwatch.png new file mode 100644 index 0000000..33b8a12 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_32x32.png b/SISBusiness.Module/Images/Images.stopwatch_32x32.png new file mode 100644 index 0000000..95afb03 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_pause.png b/SISBusiness.Module/Images/Images.stopwatch_pause.png new file mode 100644 index 0000000..a3fdd47 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_pause.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_pause_32x32.png b/SISBusiness.Module/Images/Images.stopwatch_pause_32x32.png new file mode 100644 index 0000000..3cd0360 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_reset.png b/SISBusiness.Module/Images/Images.stopwatch_reset.png new file mode 100644 index 0000000..bd1b1ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_reset.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_reset_32x32.png b/SISBusiness.Module/Images/Images.stopwatch_reset_32x32.png new file mode 100644 index 0000000..76b3b07 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_reset_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_run.png b/SISBusiness.Module/Images/Images.stopwatch_run.png new file mode 100644 index 0000000..e87ea9a Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_run.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_run_32x32.png b/SISBusiness.Module/Images/Images.stopwatch_run_32x32.png new file mode 100644 index 0000000..4b223af Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_stop.png b/SISBusiness.Module/Images/Images.stopwatch_stop.png new file mode 100644 index 0000000..bd8093f Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_stop.png differ diff --git a/SISBusiness.Module/Images/Images.stopwatch_stop_32x32.png b/SISBusiness.Module/Images/Images.stopwatch_stop_32x32.png new file mode 100644 index 0000000..c263de2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.stopwatch_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.sunglasses.png b/SISBusiness.Module/Images/Images.sunglasses.png new file mode 100644 index 0000000..b8d1442 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sunglasses.png differ diff --git a/SISBusiness.Module/Images/Images.sunglasses_32x32.png b/SISBusiness.Module/Images/Images.sunglasses_32x32.png new file mode 100644 index 0000000..3302289 Binary files /dev/null and b/SISBusiness.Module/Images/Images.sunglasses_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.surgeon1.png b/SISBusiness.Module/Images/Images.surgeon1.png new file mode 100644 index 0000000..63040a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.surgeon1.png differ diff --git a/SISBusiness.Module/Images/Images.surgeon1_32x32.png b/SISBusiness.Module/Images/Images.surgeon1_32x32.png new file mode 100644 index 0000000..d70fa6a Binary files /dev/null and b/SISBusiness.Module/Images/Images.surgeon1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.surgeon2.png b/SISBusiness.Module/Images/Images.surgeon2.png new file mode 100644 index 0000000..d243700 Binary files /dev/null and b/SISBusiness.Module/Images/Images.surgeon2.png differ diff --git a/SISBusiness.Module/Images/Images.surgeon2_32x32.png b/SISBusiness.Module/Images/Images.surgeon2_32x32.png new file mode 100644 index 0000000..9e2ff8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.surgeon2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table.png b/SISBusiness.Module/Images/Images.table.png new file mode 100644 index 0000000..4a041b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table.png differ diff --git a/SISBusiness.Module/Images/Images.table_32x32.png b/SISBusiness.Module/Images/Images.table_32x32.png new file mode 100644 index 0000000..03e95a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_Save.png b/SISBusiness.Module/Images/Images.table_Save.png new file mode 100644 index 0000000..16dab9b Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_Save.png differ diff --git a/SISBusiness.Module/Images/Images.table_Save_32x32.png b/SISBusiness.Module/Images/Images.table_Save_32x32.png new file mode 100644 index 0000000..5064d87 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_Save_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_add.png b/SISBusiness.Module/Images/Images.table_add.png new file mode 100644 index 0000000..9b79223 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_add.png differ diff --git a/SISBusiness.Module/Images/Images.table_add_32x32.png b/SISBusiness.Module/Images/Images.table_add_32x32.png new file mode 100644 index 0000000..0696910 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_connection.png b/SISBusiness.Module/Images/Images.table_connection.png new file mode 100644 index 0000000..a6f2ff2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_connection.png differ diff --git a/SISBusiness.Module/Images/Images.table_connection_32x32.png b/SISBusiness.Module/Images/Images.table_connection_32x32.png new file mode 100644 index 0000000..8ced109 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_connection_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_delete.png b/SISBusiness.Module/Images/Images.table_delete.png new file mode 100644 index 0000000..b448716 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_delete.png differ diff --git a/SISBusiness.Module/Images/Images.table_delete_32x32.png b/SISBusiness.Module/Images/Images.table_delete_32x32.png new file mode 100644 index 0000000..d468544 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_new.png b/SISBusiness.Module/Images/Images.table_new.png new file mode 100644 index 0000000..df1195e Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_new.png differ diff --git a/SISBusiness.Module/Images/Images.table_new_32x32.png b/SISBusiness.Module/Images/Images.table_new_32x32.png new file mode 100644 index 0000000..40ce52b Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_preferences.png b/SISBusiness.Module/Images/Images.table_preferences.png new file mode 100644 index 0000000..0e9b1c4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.table_preferences_32x32.png b/SISBusiness.Module/Images/Images.table_preferences_32x32.png new file mode 100644 index 0000000..322d526 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_refresh.png b/SISBusiness.Module/Images/Images.table_refresh.png new file mode 100644 index 0000000..ec78c2f Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.table_refresh_32x32.png b/SISBusiness.Module/Images/Images.table_refresh_32x32.png new file mode 100644 index 0000000..92153ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_replace.png b/SISBusiness.Module/Images/Images.table_replace.png new file mode 100644 index 0000000..7cbbae7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_replace.png differ diff --git a/SISBusiness.Module/Images/Images.table_replace_32x32.png b/SISBusiness.Module/Images/Images.table_replace_32x32.png new file mode 100644 index 0000000..5ccf74e Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_replace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_all.png b/SISBusiness.Module/Images/Images.table_selection_all.png new file mode 100644 index 0000000..4f41e1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_all.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_all_32x32.png b/SISBusiness.Module/Images/Images.table_selection_all_32x32.png new file mode 100644 index 0000000..39b3d37 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_all_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_block.png b/SISBusiness.Module/Images/Images.table_selection_block.png new file mode 100644 index 0000000..f2dfa15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_block.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_block_32x32.png b/SISBusiness.Module/Images/Images.table_selection_block_32x32.png new file mode 100644 index 0000000..9d965df Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_block_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_cell.png b/SISBusiness.Module/Images/Images.table_selection_cell.png new file mode 100644 index 0000000..067c918 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_cell.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_cell_32x32.png b/SISBusiness.Module/Images/Images.table_selection_cell_32x32.png new file mode 100644 index 0000000..e25a0bc Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_cell_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_column.png b/SISBusiness.Module/Images/Images.table_selection_column.png new file mode 100644 index 0000000..286960c Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_column.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_column_32x32.png b/SISBusiness.Module/Images/Images.table_selection_column_32x32.png new file mode 100644 index 0000000..86deb59 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_column_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_row.png b/SISBusiness.Module/Images/Images.table_selection_row.png new file mode 100644 index 0000000..d96d19a Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_row.png differ diff --git a/SISBusiness.Module/Images/Images.table_selection_row_32x32.png b/SISBusiness.Module/Images/Images.table_selection_row_32x32.png new file mode 100644 index 0000000..21f8ea2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_selection_row_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql.png b/SISBusiness.Module/Images/Images.table_sql.png new file mode 100644 index 0000000..804ed97 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_32x32.png b/SISBusiness.Module/Images/Images.table_sql_32x32.png new file mode 100644 index 0000000..2e54811 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_add.png b/SISBusiness.Module/Images/Images.table_sql_add.png new file mode 100644 index 0000000..7fce784 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_add.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_add_32x32.png b/SISBusiness.Module/Images/Images.table_sql_add_32x32.png new file mode 100644 index 0000000..e30bcb3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_check.png b/SISBusiness.Module/Images/Images.table_sql_check.png new file mode 100644 index 0000000..ca2c49d Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_check.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_check_32x32.png b/SISBusiness.Module/Images/Images.table_sql_check_32x32.png new file mode 100644 index 0000000..e1d8fdf Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_check_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_create.png b/SISBusiness.Module/Images/Images.table_sql_create.png new file mode 100644 index 0000000..1900d79 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_create.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_create_32x32.png b/SISBusiness.Module/Images/Images.table_sql_create_32x32.png new file mode 100644 index 0000000..d22026f Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_create_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_delete.png b/SISBusiness.Module/Images/Images.table_sql_delete.png new file mode 100644 index 0000000..771be33 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_delete.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_delete_32x32.png b/SISBusiness.Module/Images/Images.table_sql_delete_32x32.png new file mode 100644 index 0000000..744e908 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_run.png b/SISBusiness.Module/Images/Images.table_sql_run.png new file mode 100644 index 0000000..40e80ef Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_run.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_run_32x32.png b/SISBusiness.Module/Images/Images.table_sql_run_32x32.png new file mode 100644 index 0000000..0c75551 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_select.png b/SISBusiness.Module/Images/Images.table_sql_select.png new file mode 100644 index 0000000..d050d7b Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_select.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_select_32x32.png b/SISBusiness.Module/Images/Images.table_sql_select_32x32.png new file mode 100644 index 0000000..07c26b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_select_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_view.png b/SISBusiness.Module/Images/Images.table_sql_view.png new file mode 100644 index 0000000..bcf9ad2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_view.png differ diff --git a/SISBusiness.Module/Images/Images.table_sql_view_32x32.png b/SISBusiness.Module/Images/Images.table_sql_view_32x32.png new file mode 100644 index 0000000..2a94d43 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_sql_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.table_view.png b/SISBusiness.Module/Images/Images.table_view.png new file mode 100644 index 0000000..02ac148 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_view.png differ diff --git a/SISBusiness.Module/Images/Images.table_view_32x32.png b/SISBusiness.Module/Images/Images.table_view_32x32.png new file mode 100644 index 0000000..17dbb35 Binary files /dev/null and b/SISBusiness.Module/Images/Images.table_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tables.png b/SISBusiness.Module/Images/Images.tables.png new file mode 100644 index 0000000..65c5134 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tables.png differ diff --git a/SISBusiness.Module/Images/Images.tables_32x32.png b/SISBusiness.Module/Images/Images.tables_32x32.png new file mode 100644 index 0000000..b4a6003 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tables_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tables_delete.png b/SISBusiness.Module/Images/Images.tables_delete.png new file mode 100644 index 0000000..0f2b0af Binary files /dev/null and b/SISBusiness.Module/Images/Images.tables_delete.png differ diff --git a/SISBusiness.Module/Images/Images.tables_delete_32x32.png b/SISBusiness.Module/Images/Images.tables_delete_32x32.png new file mode 100644 index 0000000..d7837e7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tables_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tape.png b/SISBusiness.Module/Images/Images.tape.png new file mode 100644 index 0000000..d548c84 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape.png differ diff --git a/SISBusiness.Module/Images/Images.tape_32x32.png b/SISBusiness.Module/Images/Images.tape_32x32.png new file mode 100644 index 0000000..e369e4e Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tape_measure1.png b/SISBusiness.Module/Images/Images.tape_measure1.png new file mode 100644 index 0000000..cd4032f Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape_measure1.png differ diff --git a/SISBusiness.Module/Images/Images.tape_measure1_32x32.png b/SISBusiness.Module/Images/Images.tape_measure1_32x32.png new file mode 100644 index 0000000..f297dd7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape_measure1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tape_measure2.png b/SISBusiness.Module/Images/Images.tape_measure2.png new file mode 100644 index 0000000..d80fabc Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape_measure2.png differ diff --git a/SISBusiness.Module/Images/Images.tape_measure2_32x32.png b/SISBusiness.Module/Images/Images.tape_measure2_32x32.png new file mode 100644 index 0000000..3377865 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tape_measure2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.target.png b/SISBusiness.Module/Images/Images.target.png new file mode 100644 index 0000000..65fc25d Binary files /dev/null and b/SISBusiness.Module/Images/Images.target.png differ diff --git a/SISBusiness.Module/Images/Images.target_32x32.png b/SISBusiness.Module/Images/Images.target_32x32.png new file mode 100644 index 0000000..e10591e Binary files /dev/null and b/SISBusiness.Module/Images/Images.target_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.telephone.png b/SISBusiness.Module/Images/Images.telephone.png new file mode 100644 index 0000000..b2d44b0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.telephone.png differ diff --git a/SISBusiness.Module/Images/Images.telephone_32x32.png b/SISBusiness.Module/Images/Images.telephone_32x32.png new file mode 100644 index 0000000..33a998b Binary files /dev/null and b/SISBusiness.Module/Images/Images.telephone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.telescope.png b/SISBusiness.Module/Images/Images.telescope.png new file mode 100644 index 0000000..fc4d971 Binary files /dev/null and b/SISBusiness.Module/Images/Images.telescope.png differ diff --git a/SISBusiness.Module/Images/Images.telescope_32x32.png b/SISBusiness.Module/Images/Images.telescope_32x32.png new file mode 100644 index 0000000..468102c Binary files /dev/null and b/SISBusiness.Module/Images/Images.telescope_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text.png b/SISBusiness.Module/Images/Images.text.png new file mode 100644 index 0000000..5c0b46d Binary files /dev/null and b/SISBusiness.Module/Images/Images.text.png differ diff --git a/SISBusiness.Module/Images/Images.text_32x32.png b/SISBusiness.Module/Images/Images.text_32x32.png new file mode 100644 index 0000000..a74b196 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_center.png b/SISBusiness.Module/Images/Images.text_align_center.png new file mode 100644 index 0000000..14ca9e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_center.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_center_32x32.png b/SISBusiness.Module/Images/Images.text_align_center_32x32.png new file mode 100644 index 0000000..30b2153 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_center_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_justified.png b/SISBusiness.Module/Images/Images.text_align_justified.png new file mode 100644 index 0000000..3fa8413 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_justified.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_justified_32x32.png b/SISBusiness.Module/Images/Images.text_align_justified_32x32.png new file mode 100644 index 0000000..2791676 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_justified_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_left.png b/SISBusiness.Module/Images/Images.text_align_left.png new file mode 100644 index 0000000..e561f98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_left.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_left_32x32.png b/SISBusiness.Module/Images/Images.text_align_left_32x32.png new file mode 100644 index 0000000..0e61c68 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_left_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_right.png b/SISBusiness.Module/Images/Images.text_align_right.png new file mode 100644 index 0000000..fc5dc5e Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_right.png differ diff --git a/SISBusiness.Module/Images/Images.text_align_right_32x32.png b/SISBusiness.Module/Images/Images.text_align_right_32x32.png new file mode 100644 index 0000000..57d94d2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_align_right_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_binary.png b/SISBusiness.Module/Images/Images.text_binary.png new file mode 100644 index 0000000..d88a7a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_binary.png differ diff --git a/SISBusiness.Module/Images/Images.text_binary_32x32.png b/SISBusiness.Module/Images/Images.text_binary_32x32.png new file mode 100644 index 0000000..2ca3ca3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_binary_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_bold.png b/SISBusiness.Module/Images/Images.text_bold.png new file mode 100644 index 0000000..6b06890 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_bold.png differ diff --git a/SISBusiness.Module/Images/Images.text_bold_32x32.png b/SISBusiness.Module/Images/Images.text_bold_32x32.png new file mode 100644 index 0000000..a0f9d30 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_bold_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_braille.png b/SISBusiness.Module/Images/Images.text_braille.png new file mode 100644 index 0000000..afafba8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_braille.png differ diff --git a/SISBusiness.Module/Images/Images.text_braille_32x32.png b/SISBusiness.Module/Images/Images.text_braille_32x32.png new file mode 100644 index 0000000..a6b3ad7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_braille_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code.png b/SISBusiness.Module/Images/Images.text_code.png new file mode 100644 index 0000000..08f06b6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_32x32.png b/SISBusiness.Module/Images/Images.text_code_32x32.png new file mode 100644 index 0000000..ee6c4be Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_c.png b/SISBusiness.Module/Images/Images.text_code_c.png new file mode 100644 index 0000000..307eedf Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_c.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_c_32x32.png b/SISBusiness.Module/Images/Images.text_code_c_32x32.png new file mode 100644 index 0000000..fe328a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_c_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_colored.png b/SISBusiness.Module/Images/Images.text_code_colored.png new file mode 100644 index 0000000..72b11cf Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_colored.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_colored_32x32.png b/SISBusiness.Module/Images/Images.text_code_colored_32x32.png new file mode 100644 index 0000000..225e066 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_colored_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_cplusplus.png b/SISBusiness.Module/Images/Images.text_code_cplusplus.png new file mode 100644 index 0000000..eda42b2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_cplusplus.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_cplusplus_32x32.png b/SISBusiness.Module/Images/Images.text_code_cplusplus_32x32.png new file mode 100644 index 0000000..bf8baac Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_cplusplus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_csharp.png b/SISBusiness.Module/Images/Images.text_code_csharp.png new file mode 100644 index 0000000..a736786 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_csharp.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_csharp_32x32.png b/SISBusiness.Module/Images/Images.text_code_csharp_32x32.png new file mode 100644 index 0000000..f6f1761 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_csharp_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_java.png b/SISBusiness.Module/Images/Images.text_code_java.png new file mode 100644 index 0000000..181e6ea Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_java.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_java_32x32.png b/SISBusiness.Module/Images/Images.text_code_java_32x32.png new file mode 100644 index 0000000..27805da Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_java_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_javascript.png b/SISBusiness.Module/Images/Images.text_code_javascript.png new file mode 100644 index 0000000..e87df8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_javascript.png differ diff --git a/SISBusiness.Module/Images/Images.text_code_javascript_32x32.png b/SISBusiness.Module/Images/Images.text_code_javascript_32x32.png new file mode 100644 index 0000000..c57c7bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_code_javascript_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_find.png b/SISBusiness.Module/Images/Images.text_find.png new file mode 100644 index 0000000..81f129d Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_find.png differ diff --git a/SISBusiness.Module/Images/Images.text_find_32x32.png b/SISBusiness.Module/Images/Images.text_find_32x32.png new file mode 100644 index 0000000..78f5a53 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_italics.png b/SISBusiness.Module/Images/Images.text_italics.png new file mode 100644 index 0000000..653de01 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_italics.png differ diff --git a/SISBusiness.Module/Images/Images.text_italics_32x32.png b/SISBusiness.Module/Images/Images.text_italics_32x32.png new file mode 100644 index 0000000..5ea7ac8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_italics_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_lock.png b/SISBusiness.Module/Images/Images.text_lock.png new file mode 100644 index 0000000..abeab4b Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_lock.png differ diff --git a/SISBusiness.Module/Images/Images.text_lock_32x32.png b/SISBusiness.Module/Images/Images.text_lock_32x32.png new file mode 100644 index 0000000..44c3a66 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_loudspeaker.png b/SISBusiness.Module/Images/Images.text_loudspeaker.png new file mode 100644 index 0000000..6f2a658 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_loudspeaker.png differ diff --git a/SISBusiness.Module/Images/Images.text_loudspeaker_32x32.png b/SISBusiness.Module/Images/Images.text_loudspeaker_32x32.png new file mode 100644 index 0000000..3ee994c Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_loudspeaker_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_marked.png b/SISBusiness.Module/Images/Images.text_marked.png new file mode 100644 index 0000000..bd02501 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_marked.png differ diff --git a/SISBusiness.Module/Images/Images.text_marked_32x32.png b/SISBusiness.Module/Images/Images.text_marked_32x32.png new file mode 100644 index 0000000..bf51d8c Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_marked_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_normal.png b/SISBusiness.Module/Images/Images.text_normal.png new file mode 100644 index 0000000..c87cf76 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_normal.png differ diff --git a/SISBusiness.Module/Images/Images.text_normal_32x32.png b/SISBusiness.Module/Images/Images.text_normal_32x32.png new file mode 100644 index 0000000..be7d92b Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_normal_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_ok.png b/SISBusiness.Module/Images/Images.text_ok.png new file mode 100644 index 0000000..e034a2a Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_ok.png differ diff --git a/SISBusiness.Module/Images/Images.text_ok_32x32.png b/SISBusiness.Module/Images/Images.text_ok_32x32.png new file mode 100644 index 0000000..3f6e648 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_ok_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich.png b/SISBusiness.Module/Images/Images.text_rich.png new file mode 100644 index 0000000..f637f17 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich_32x32.png b/SISBusiness.Module/Images/Images.text_rich_32x32.png new file mode 100644 index 0000000..95ba959 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich_colored.png b/SISBusiness.Module/Images/Images.text_rich_colored.png new file mode 100644 index 0000000..521fc63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich_colored.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich_colored_32x32.png b/SISBusiness.Module/Images/Images.text_rich_colored_32x32.png new file mode 100644 index 0000000..299cd28 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich_colored_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich_marked.png b/SISBusiness.Module/Images/Images.text_rich_marked.png new file mode 100644 index 0000000..7ae6073 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich_marked.png differ diff --git a/SISBusiness.Module/Images/Images.text_rich_marked_32x32.png b/SISBusiness.Module/Images/Images.text_rich_marked_32x32.png new file mode 100644 index 0000000..85027d7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_rich_marked_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_tree.png b/SISBusiness.Module/Images/Images.text_tree.png new file mode 100644 index 0000000..0c0b6c8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_tree.png differ diff --git a/SISBusiness.Module/Images/Images.text_tree_32x32.png b/SISBusiness.Module/Images/Images.text_tree_32x32.png new file mode 100644 index 0000000..0c92629 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_tree_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_underlined.png b/SISBusiness.Module/Images/Images.text_underlined.png new file mode 100644 index 0000000..66225b5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_underlined.png differ diff --git a/SISBusiness.Module/Images/Images.text_underlined_32x32.png b/SISBusiness.Module/Images/Images.text_underlined_32x32.png new file mode 100644 index 0000000..5c45e9e Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_underlined_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.text_view.png b/SISBusiness.Module/Images/Images.text_view.png new file mode 100644 index 0000000..c32e31e Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_view.png differ diff --git a/SISBusiness.Module/Images/Images.text_view_32x32.png b/SISBusiness.Module/Images/Images.text_view_32x32.png new file mode 100644 index 0000000..4d617ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.text_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.thermometer.png b/SISBusiness.Module/Images/Images.thermometer.png new file mode 100644 index 0000000..ecc2ef8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.thermometer.png differ diff --git a/SISBusiness.Module/Images/Images.thermometer2.png b/SISBusiness.Module/Images/Images.thermometer2.png new file mode 100644 index 0000000..b33e25f Binary files /dev/null and b/SISBusiness.Module/Images/Images.thermometer2.png differ diff --git a/SISBusiness.Module/Images/Images.thermometer2_32x32.png b/SISBusiness.Module/Images/Images.thermometer2_32x32.png new file mode 100644 index 0000000..365fa72 Binary files /dev/null and b/SISBusiness.Module/Images/Images.thermometer2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.thermometer_32x32.png b/SISBusiness.Module/Images/Images.thermometer_32x32.png new file mode 100644 index 0000000..de29f90 Binary files /dev/null and b/SISBusiness.Module/Images/Images.thermometer_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.thread.png b/SISBusiness.Module/Images/Images.thread.png new file mode 100644 index 0000000..76d20d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.thread.png differ diff --git a/SISBusiness.Module/Images/Images.thread_32x32.png b/SISBusiness.Module/Images/Images.thread_32x32.png new file mode 100644 index 0000000..52e0515 Binary files /dev/null and b/SISBusiness.Module/Images/Images.thread_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.toolbox.png b/SISBusiness.Module/Images/Images.toolbox.png new file mode 100644 index 0000000..c46daae Binary files /dev/null and b/SISBusiness.Module/Images/Images.toolbox.png differ diff --git a/SISBusiness.Module/Images/Images.toolbox_32x32.png b/SISBusiness.Module/Images/Images.toolbox_32x32.png new file mode 100644 index 0000000..dd03723 Binary files /dev/null and b/SISBusiness.Module/Images/Images.toolbox_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tractor_green.png b/SISBusiness.Module/Images/Images.tractor_green.png new file mode 100644 index 0000000..e6e365a Binary files /dev/null and b/SISBusiness.Module/Images/Images.tractor_green.png differ diff --git a/SISBusiness.Module/Images/Images.tractor_green_32x32.png b/SISBusiness.Module/Images/Images.tractor_green_32x32.png new file mode 100644 index 0000000..ab70bf0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tractor_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tractor_red.png b/SISBusiness.Module/Images/Images.tractor_red.png new file mode 100644 index 0000000..dd4fc04 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tractor_red.png differ diff --git a/SISBusiness.Module/Images/Images.tractor_red_32x32.png b/SISBusiness.Module/Images/Images.tractor_red_32x32.png new file mode 100644 index 0000000..50b7f42 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tractor_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_green.png b/SISBusiness.Module/Images/Images.trafficlight_green.png new file mode 100644 index 0000000..b3823f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_green.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_green_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_green_32x32.png new file mode 100644 index 0000000..f217393 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_green_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_off.png b/SISBusiness.Module/Images/Images.trafficlight_off.png new file mode 100644 index 0000000..f76994f Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_off.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_off_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_off_32x32.png new file mode 100644 index 0000000..81ac5a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_off_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_on.png b/SISBusiness.Module/Images/Images.trafficlight_on.png new file mode 100644 index 0000000..4a03982 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_on.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_on_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_on_32x32.png new file mode 100644 index 0000000..4d082bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_on_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_red.png b/SISBusiness.Module/Images/Images.trafficlight_red.png new file mode 100644 index 0000000..2663f3a Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_red.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_red_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_red_32x32.png new file mode 100644 index 0000000..145bf18 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_red_yellow.png b/SISBusiness.Module/Images/Images.trafficlight_red_yellow.png new file mode 100644 index 0000000..bc216b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_red_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_red_yellow_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_red_yellow_32x32.png new file mode 100644 index 0000000..3f7a102 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_red_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_yellow.png b/SISBusiness.Module/Images/Images.trafficlight_yellow.png new file mode 100644 index 0000000..adbc38a Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_yellow.png differ diff --git a/SISBusiness.Module/Images/Images.trafficlight_yellow_32x32.png b/SISBusiness.Module/Images/Images.trafficlight_yellow_32x32.png new file mode 100644 index 0000000..06d66d1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.trafficlight_yellow_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.transform.png b/SISBusiness.Module/Images/Images.transform.png new file mode 100644 index 0000000..5833334 Binary files /dev/null and b/SISBusiness.Module/Images/Images.transform.png differ diff --git a/SISBusiness.Module/Images/Images.transform2.png b/SISBusiness.Module/Images/Images.transform2.png new file mode 100644 index 0000000..3fba863 Binary files /dev/null and b/SISBusiness.Module/Images/Images.transform2.png differ diff --git a/SISBusiness.Module/Images/Images.transform2_32x32.png b/SISBusiness.Module/Images/Images.transform2_32x32.png new file mode 100644 index 0000000..3981567 Binary files /dev/null and b/SISBusiness.Module/Images/Images.transform2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.transform_32x32.png b/SISBusiness.Module/Images/Images.transform_32x32.png new file mode 100644 index 0000000..2c3003b Binary files /dev/null and b/SISBusiness.Module/Images/Images.transform_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.truck_blue.png b/SISBusiness.Module/Images/Images.truck_blue.png new file mode 100644 index 0000000..d30e035 Binary files /dev/null and b/SISBusiness.Module/Images/Images.truck_blue.png differ diff --git a/SISBusiness.Module/Images/Images.truck_blue_32x32.png b/SISBusiness.Module/Images/Images.truck_blue_32x32.png new file mode 100644 index 0000000..c57e2e1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.truck_blue_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.truck_red.png b/SISBusiness.Module/Images/Images.truck_red.png new file mode 100644 index 0000000..b6964f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.truck_red.png differ diff --git a/SISBusiness.Module/Images/Images.truck_red_32x32.png b/SISBusiness.Module/Images/Images.truck_red_32x32.png new file mode 100644 index 0000000..aecb177 Binary files /dev/null and b/SISBusiness.Module/Images/Images.truck_red_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tube.png b/SISBusiness.Module/Images/Images.tube.png new file mode 100644 index 0000000..4bda270 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tube.png differ diff --git a/SISBusiness.Module/Images/Images.tube_32x32.png b/SISBusiness.Module/Images/Images.tube_32x32.png new file mode 100644 index 0000000..767d2c4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tube_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.tv.png b/SISBusiness.Module/Images/Images.tv.png new file mode 100644 index 0000000..23a12d9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tv.png differ diff --git a/SISBusiness.Module/Images/Images.tv_32x32.png b/SISBusiness.Module/Images/Images.tv_32x32.png new file mode 100644 index 0000000..50e3553 Binary files /dev/null and b/SISBusiness.Module/Images/Images.tv_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.undo.png b/SISBusiness.Module/Images/Images.undo.png new file mode 100644 index 0000000..76b92ab Binary files /dev/null and b/SISBusiness.Module/Images/Images.undo.png differ diff --git a/SISBusiness.Module/Images/Images.undo_32x32.png b/SISBusiness.Module/Images/Images.undo_32x32.png new file mode 100644 index 0000000..6acb6b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.undo_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.unknown.png b/SISBusiness.Module/Images/Images.unknown.png new file mode 100644 index 0000000..53a40f2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.unknown.png differ diff --git a/SISBusiness.Module/Images/Images.unknown_32x32.png b/SISBusiness.Module/Images/Images.unknown_32x32.png new file mode 100644 index 0000000..5005f3b Binary files /dev/null and b/SISBusiness.Module/Images/Images.unknown_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.up_down.png b/SISBusiness.Module/Images/Images.up_down.png new file mode 100644 index 0000000..928f251 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_down.png differ diff --git a/SISBusiness.Module/Images/Images.up_down_32x32.png b/SISBusiness.Module/Images/Images.up_down_32x32.png new file mode 100644 index 0000000..ee4f2aa Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_down_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.up_down_question.png b/SISBusiness.Module/Images/Images.up_down_question.png new file mode 100644 index 0000000..93ad9a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_down_question.png differ diff --git a/SISBusiness.Module/Images/Images.up_down_question_32x32.png b/SISBusiness.Module/Images/Images.up_down_question_32x32.png new file mode 100644 index 0000000..b5a70dd Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_down_question_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.up_minus.png b/SISBusiness.Module/Images/Images.up_minus.png new file mode 100644 index 0000000..15815f9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_minus.png differ diff --git a/SISBusiness.Module/Images/Images.up_minus_32x32.png b/SISBusiness.Module/Images/Images.up_minus_32x32.png new file mode 100644 index 0000000..5ba7e48 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_minus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.up_plus.png b/SISBusiness.Module/Images/Images.up_plus.png new file mode 100644 index 0000000..0fdf6c9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_plus.png differ diff --git a/SISBusiness.Module/Images/Images.up_plus_32x32.png b/SISBusiness.Module/Images/Images.up_plus_32x32.png new file mode 100644 index 0000000..b1c68b8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.up_plus_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1.png b/SISBusiness.Module/Images/Images.user1.png new file mode 100644 index 0000000..5776eaa Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1.png differ diff --git a/SISBusiness.Module/Images/Images.user1_32x32.png b/SISBusiness.Module/Images/Images.user1_32x32.png new file mode 100644 index 0000000..61e8712 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_add.png b/SISBusiness.Module/Images/Images.user1_add.png new file mode 100644 index 0000000..943a955 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_add.png differ diff --git a/SISBusiness.Module/Images/Images.user1_add_32x32.png b/SISBusiness.Module/Images/Images.user1_add_32x32.png new file mode 100644 index 0000000..4006f82 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_back.png b/SISBusiness.Module/Images/Images.user1_back.png new file mode 100644 index 0000000..0de79a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_back.png differ diff --git a/SISBusiness.Module/Images/Images.user1_back_32x32.png b/SISBusiness.Module/Images/Images.user1_back_32x32.png new file mode 100644 index 0000000..ad56843 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_back_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_delete.png b/SISBusiness.Module/Images/Images.user1_delete.png new file mode 100644 index 0000000..d030b04 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_delete.png differ diff --git a/SISBusiness.Module/Images/Images.user1_delete_32x32.png b/SISBusiness.Module/Images/Images.user1_delete_32x32.png new file mode 100644 index 0000000..b79c4f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_earth.png b/SISBusiness.Module/Images/Images.user1_earth.png new file mode 100644 index 0000000..6ea99f4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_earth.png differ diff --git a/SISBusiness.Module/Images/Images.user1_earth_32x32.png b/SISBusiness.Module/Images/Images.user1_earth_32x32.png new file mode 100644 index 0000000..188e8e9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_find.png b/SISBusiness.Module/Images/Images.user1_find.png new file mode 100644 index 0000000..408718b Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_find.png differ diff --git a/SISBusiness.Module/Images/Images.user1_find_32x32.png b/SISBusiness.Module/Images/Images.user1_find_32x32.png new file mode 100644 index 0000000..d9fb882 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_find_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_information.png b/SISBusiness.Module/Images/Images.user1_information.png new file mode 100644 index 0000000..634a73b Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_information.png differ diff --git a/SISBusiness.Module/Images/Images.user1_information_32x32.png b/SISBusiness.Module/Images/Images.user1_information_32x32.png new file mode 100644 index 0000000..c7b6262 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_into.png b/SISBusiness.Module/Images/Images.user1_into.png new file mode 100644 index 0000000..9c4cee1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_into.png differ diff --git a/SISBusiness.Module/Images/Images.user1_into_32x32.png b/SISBusiness.Module/Images/Images.user1_into_32x32.png new file mode 100644 index 0000000..3e1b972 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_lock.png b/SISBusiness.Module/Images/Images.user1_lock.png new file mode 100644 index 0000000..3ec7535 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_lock.png differ diff --git a/SISBusiness.Module/Images/Images.user1_lock_32x32.png b/SISBusiness.Module/Images/Images.user1_lock_32x32.png new file mode 100644 index 0000000..73099a9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_lock_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_message.png b/SISBusiness.Module/Images/Images.user1_message.png new file mode 100644 index 0000000..b779097 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_message.png differ diff --git a/SISBusiness.Module/Images/Images.user1_message_32x32.png b/SISBusiness.Module/Images/Images.user1_message_32x32.png new file mode 100644 index 0000000..4594598 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_message_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_mobilephone.png b/SISBusiness.Module/Images/Images.user1_mobilephone.png new file mode 100644 index 0000000..79a0762 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_mobilephone.png differ diff --git a/SISBusiness.Module/Images/Images.user1_mobilephone_32x32.png b/SISBusiness.Module/Images/Images.user1_mobilephone_32x32.png new file mode 100644 index 0000000..d2ec485 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_mobilephone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_monitor.png b/SISBusiness.Module/Images/Images.user1_monitor.png new file mode 100644 index 0000000..444e242 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_monitor.png differ diff --git a/SISBusiness.Module/Images/Images.user1_monitor_32x32.png b/SISBusiness.Module/Images/Images.user1_monitor_32x32.png new file mode 100644 index 0000000..d04facb Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_monitor_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_new.png b/SISBusiness.Module/Images/Images.user1_new.png new file mode 100644 index 0000000..bac28f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_new.png differ diff --git a/SISBusiness.Module/Images/Images.user1_new_32x32.png b/SISBusiness.Module/Images/Images.user1_new_32x32.png new file mode 100644 index 0000000..3bdf4cb Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_preferences.png b/SISBusiness.Module/Images/Images.user1_preferences.png new file mode 100644 index 0000000..004b882 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.user1_preferences_32x32.png b/SISBusiness.Module/Images/Images.user1_preferences_32x32.png new file mode 100644 index 0000000..0c28b0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_refresh.png b/SISBusiness.Module/Images/Images.user1_refresh.png new file mode 100644 index 0000000..9a2de46 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_refresh.png differ diff --git a/SISBusiness.Module/Images/Images.user1_refresh_32x32.png b/SISBusiness.Module/Images/Images.user1_refresh_32x32.png new file mode 100644 index 0000000..2fcdbe5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_refresh_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_telephone.png b/SISBusiness.Module/Images/Images.user1_telephone.png new file mode 100644 index 0000000..f483446 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_telephone.png differ diff --git a/SISBusiness.Module/Images/Images.user1_telephone_32x32.png b/SISBusiness.Module/Images/Images.user1_telephone_32x32.png new file mode 100644 index 0000000..599eb7c Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_telephone_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_time.png b/SISBusiness.Module/Images/Images.user1_time.png new file mode 100644 index 0000000..641b5fb Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_time.png differ diff --git a/SISBusiness.Module/Images/Images.user1_time_32x32.png b/SISBusiness.Module/Images/Images.user1_time_32x32.png new file mode 100644 index 0000000..a283662 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user1_view.png b/SISBusiness.Module/Images/Images.user1_view.png new file mode 100644 index 0000000..5b4b6df Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_view.png differ diff --git a/SISBusiness.Module/Images/Images.user1_view_32x32.png b/SISBusiness.Module/Images/Images.user1_view_32x32.png new file mode 100644 index 0000000..7f622e7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user1_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user2.png b/SISBusiness.Module/Images/Images.user2.png new file mode 100644 index 0000000..14166d6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user2.png differ diff --git a/SISBusiness.Module/Images/Images.user2_32x32.png b/SISBusiness.Module/Images/Images.user2_32x32.png new file mode 100644 index 0000000..9700eaf Binary files /dev/null and b/SISBusiness.Module/Images/Images.user2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user3.png b/SISBusiness.Module/Images/Images.user3.png new file mode 100644 index 0000000..8e57751 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user3.png differ diff --git a/SISBusiness.Module/Images/Images.user3_32x32.png b/SISBusiness.Module/Images/Images.user3_32x32.png new file mode 100644 index 0000000..b975564 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user_headphones.png b/SISBusiness.Module/Images/Images.user_headphones.png new file mode 100644 index 0000000..34e4b98 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user_headphones.png differ diff --git a/SISBusiness.Module/Images/Images.user_headphones_32x32.png b/SISBusiness.Module/Images/Images.user_headphones_32x32.png new file mode 100644 index 0000000..4c790a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user_headphones_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.user_headset.png b/SISBusiness.Module/Images/Images.user_headset.png new file mode 100644 index 0000000..97d714d Binary files /dev/null and b/SISBusiness.Module/Images/Images.user_headset.png differ diff --git a/SISBusiness.Module/Images/Images.user_headset_32x32.png b/SISBusiness.Module/Images/Images.user_headset_32x32.png new file mode 100644 index 0000000..1f67175 Binary files /dev/null and b/SISBusiness.Module/Images/Images.user_headset_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users1.png b/SISBusiness.Module/Images/Images.users1.png new file mode 100644 index 0000000..4871b39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users1.png differ diff --git a/SISBusiness.Module/Images/Images.users1_32x32.png b/SISBusiness.Module/Images/Images.users1_32x32.png new file mode 100644 index 0000000..77217b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users2.png b/SISBusiness.Module/Images/Images.users2.png new file mode 100644 index 0000000..519657e Binary files /dev/null and b/SISBusiness.Module/Images/Images.users2.png differ diff --git a/SISBusiness.Module/Images/Images.users2_32x32.png b/SISBusiness.Module/Images/Images.users2_32x32.png new file mode 100644 index 0000000..d614fb2 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users3.png b/SISBusiness.Module/Images/Images.users3.png new file mode 100644 index 0000000..4e1168a Binary files /dev/null and b/SISBusiness.Module/Images/Images.users3.png differ diff --git a/SISBusiness.Module/Images/Images.users3_32x32.png b/SISBusiness.Module/Images/Images.users3_32x32.png new file mode 100644 index 0000000..d36181f Binary files /dev/null and b/SISBusiness.Module/Images/Images.users3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users3_preferences.png b/SISBusiness.Module/Images/Images.users3_preferences.png new file mode 100644 index 0000000..140d32c Binary files /dev/null and b/SISBusiness.Module/Images/Images.users3_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.users3_preferences_32x32.png b/SISBusiness.Module/Images/Images.users3_preferences_32x32.png new file mode 100644 index 0000000..be51740 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users3_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users4.png b/SISBusiness.Module/Images/Images.users4.png new file mode 100644 index 0000000..65a9700 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users4.png differ diff --git a/SISBusiness.Module/Images/Images.users4_32x32.png b/SISBusiness.Module/Images/Images.users4_32x32.png new file mode 100644 index 0000000..846c2e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users4_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users_back.png b/SISBusiness.Module/Images/Images.users_back.png new file mode 100644 index 0000000..0b279c5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_back.png differ diff --git a/SISBusiness.Module/Images/Images.users_back_32x32.png b/SISBusiness.Module/Images/Images.users_back_32x32.png new file mode 100644 index 0000000..2832081 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_back_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users_family.png b/SISBusiness.Module/Images/Images.users_family.png new file mode 100644 index 0000000..cc72c9d Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_family.png differ diff --git a/SISBusiness.Module/Images/Images.users_family_32x32.png b/SISBusiness.Module/Images/Images.users_family_32x32.png new file mode 100644 index 0000000..f55d5c6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_family_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.users_into.png b/SISBusiness.Module/Images/Images.users_into.png new file mode 100644 index 0000000..75135bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_into.png differ diff --git a/SISBusiness.Module/Images/Images.users_into_32x32.png b/SISBusiness.Module/Images/Images.users_into_32x32.png new file mode 100644 index 0000000..32590f0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.users_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera.png b/SISBusiness.Module/Images/Images.videocamera.png new file mode 100644 index 0000000..cd09707 Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_32x32.png b/SISBusiness.Module/Images/Images.videocamera_32x32.png new file mode 100644 index 0000000..304fd79 Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_pause.png b/SISBusiness.Module/Images/Images.videocamera_pause.png new file mode 100644 index 0000000..24008e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_pause.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_pause_32x32.png b/SISBusiness.Module/Images/Images.videocamera_pause_32x32.png new file mode 100644 index 0000000..7c1463d Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_pause_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_run.png b/SISBusiness.Module/Images/Images.videocamera_run.png new file mode 100644 index 0000000..4985958 Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_run.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_run_32x32.png b/SISBusiness.Module/Images/Images.videocamera_run_32x32.png new file mode 100644 index 0000000..dc799bd Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_run_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_stop.png b/SISBusiness.Module/Images/Images.videocamera_stop.png new file mode 100644 index 0000000..1781d63 Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_stop.png differ diff --git a/SISBusiness.Module/Images/Images.videocamera_stop_32x32.png b/SISBusiness.Module/Images/Images.videocamera_stop_32x32.png new file mode 100644 index 0000000..0ffb5ec Binary files /dev/null and b/SISBusiness.Module/Images/Images.videocamera_stop_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.view.png b/SISBusiness.Module/Images/Images.view.png new file mode 100644 index 0000000..31844c7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view.png differ diff --git a/SISBusiness.Module/Images/Images.view_1_1.png b/SISBusiness.Module/Images/Images.view_1_1.png new file mode 100644 index 0000000..88657a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_1_1.png differ diff --git a/SISBusiness.Module/Images/Images.view_1_1_32x32.png b/SISBusiness.Module/Images/Images.view_1_1_32x32.png new file mode 100644 index 0000000..e9a1b72 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_1_1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.view_32x32.png b/SISBusiness.Module/Images/Images.view_32x32.png new file mode 100644 index 0000000..0e01a0e Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.view_next.png b/SISBusiness.Module/Images/Images.view_next.png new file mode 100644 index 0000000..e4566fc Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_next.png differ diff --git a/SISBusiness.Module/Images/Images.view_next_32x32.png b/SISBusiness.Module/Images/Images.view_next_32x32.png new file mode 100644 index 0000000..2ccbb71 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_next_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.view_previous.png b/SISBusiness.Module/Images/Images.view_previous.png new file mode 100644 index 0000000..7248cd6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_previous.png differ diff --git a/SISBusiness.Module/Images/Images.view_previous_32x32.png b/SISBusiness.Module/Images/Images.view_previous_32x32.png new file mode 100644 index 0000000..637c2e3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.view_previous_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.wallet_closed.png b/SISBusiness.Module/Images/Images.wallet_closed.png new file mode 100644 index 0000000..c70b048 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wallet_closed.png differ diff --git a/SISBusiness.Module/Images/Images.wallet_closed_32x32.png b/SISBusiness.Module/Images/Images.wallet_closed_32x32.png new file mode 100644 index 0000000..00ca145 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wallet_closed_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.wallet_open.png b/SISBusiness.Module/Images/Images.wallet_open.png new file mode 100644 index 0000000..96c3ecd Binary files /dev/null and b/SISBusiness.Module/Images/Images.wallet_open.png differ diff --git a/SISBusiness.Module/Images/Images.wallet_open_32x32.png b/SISBusiness.Module/Images/Images.wallet_open_32x32.png new file mode 100644 index 0000000..c98dcc1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wallet_open_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war.png b/SISBusiness.Module/Images/Images.war.png new file mode 100644 index 0000000..c036a57 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war.png differ diff --git a/SISBusiness.Module/Images/Images.war_32x32.png b/SISBusiness.Module/Images/Images.war_32x32.png new file mode 100644 index 0000000..2f8ff15 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_add.png b/SISBusiness.Module/Images/Images.war_add.png new file mode 100644 index 0000000..07e60f1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_add.png differ diff --git a/SISBusiness.Module/Images/Images.war_add_32x32.png b/SISBusiness.Module/Images/Images.war_add_32x32.png new file mode 100644 index 0000000..75ade8d Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_delete.png b/SISBusiness.Module/Images/Images.war_delete.png new file mode 100644 index 0000000..2082922 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_delete.png differ diff --git a/SISBusiness.Module/Images/Images.war_delete_32x32.png b/SISBusiness.Module/Images/Images.war_delete_32x32.png new file mode 100644 index 0000000..a0711f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_into.png b/SISBusiness.Module/Images/Images.war_into.png new file mode 100644 index 0000000..342cd92 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_into.png differ diff --git a/SISBusiness.Module/Images/Images.war_into_32x32.png b/SISBusiness.Module/Images/Images.war_into_32x32.png new file mode 100644 index 0000000..f7c6fa7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_into_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_out.png b/SISBusiness.Module/Images/Images.war_out.png new file mode 100644 index 0000000..454559a Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_out.png differ diff --git a/SISBusiness.Module/Images/Images.war_out_32x32.png b/SISBusiness.Module/Images/Images.war_out_32x32.png new file mode 100644 index 0000000..8b81b72 Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_out_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_preferences.png b/SISBusiness.Module/Images/Images.war_preferences.png new file mode 100644 index 0000000..18e2cee Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.war_preferences_32x32.png b/SISBusiness.Module/Images/Images.war_preferences_32x32.png new file mode 100644 index 0000000..e0ad02a Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.war_view.png b/SISBusiness.Module/Images/Images.war_view.png new file mode 100644 index 0000000..a86446f Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_view.png differ diff --git a/SISBusiness.Module/Images/Images.war_view_32x32.png b/SISBusiness.Module/Images/Images.war_view_32x32.png new file mode 100644 index 0000000..6b536bf Binary files /dev/null and b/SISBusiness.Module/Images/Images.war_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.warning.png b/SISBusiness.Module/Images/Images.warning.png new file mode 100644 index 0000000..85f544d Binary files /dev/null and b/SISBusiness.Module/Images/Images.warning.png differ diff --git a/SISBusiness.Module/Images/Images.warning_32x32.png b/SISBusiness.Module/Images/Images.warning_32x32.png new file mode 100644 index 0000000..fe14bf6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.weight.png b/SISBusiness.Module/Images/Images.weight.png new file mode 100644 index 0000000..0874659 Binary files /dev/null and b/SISBusiness.Module/Images/Images.weight.png differ diff --git a/SISBusiness.Module/Images/Images.weight2.png b/SISBusiness.Module/Images/Images.weight2.png new file mode 100644 index 0000000..f25c8e5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.weight2.png differ diff --git a/SISBusiness.Module/Images/Images.weight2_32x32.png b/SISBusiness.Module/Images/Images.weight2_32x32.png new file mode 100644 index 0000000..7bcea70 Binary files /dev/null and b/SISBusiness.Module/Images/Images.weight2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.weight_32x32.png b/SISBusiness.Module/Images/Images.weight_32x32.png new file mode 100644 index 0000000..c3cfee7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.weight_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.wheel.png b/SISBusiness.Module/Images/Images.wheel.png new file mode 100644 index 0000000..e314bbc Binary files /dev/null and b/SISBusiness.Module/Images/Images.wheel.png differ diff --git a/SISBusiness.Module/Images/Images.wheel_32x32.png b/SISBusiness.Module/Images/Images.wheel_32x32.png new file mode 100644 index 0000000..c5b8970 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wheel_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window.png b/SISBusiness.Module/Images/Images.window.png new file mode 100644 index 0000000..b5871ba Binary files /dev/null and b/SISBusiness.Module/Images/Images.window.png differ diff --git a/SISBusiness.Module/Images/Images.window_32x32.png b/SISBusiness.Module/Images/Images.window_32x32.png new file mode 100644 index 0000000..90d5d8c Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_add.png b/SISBusiness.Module/Images/Images.window_add.png new file mode 100644 index 0000000..b943db9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_add.png differ diff --git a/SISBusiness.Module/Images/Images.window_add_32x32.png b/SISBusiness.Module/Images/Images.window_add_32x32.png new file mode 100644 index 0000000..06d8205 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application.png b/SISBusiness.Module/Images/Images.window_application.png new file mode 100644 index 0000000..3c1105f Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_32x32.png b/SISBusiness.Module/Images/Images.window_application_32x32.png new file mode 100644 index 0000000..b8a04a8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_add.png b/SISBusiness.Module/Images/Images.window_application_add.png new file mode 100644 index 0000000..129c61b Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_add.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_add_32x32.png b/SISBusiness.Module/Images/Images.window_application_add_32x32.png new file mode 100644 index 0000000..e99ed20 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_delete.png b/SISBusiness.Module/Images/Images.window_application_delete.png new file mode 100644 index 0000000..09ab860 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_delete.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_delete_32x32.png b/SISBusiness.Module/Images/Images.window_application_delete_32x32.png new file mode 100644 index 0000000..2dac757 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise.png b/SISBusiness.Module/Images/Images.window_application_enterprise.png new file mode 100644 index 0000000..e43a999 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise_32x32.png b/SISBusiness.Module/Images/Images.window_application_enterprise_32x32.png new file mode 100644 index 0000000..8f0e146 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise_add.png b/SISBusiness.Module/Images/Images.window_application_enterprise_add.png new file mode 100644 index 0000000..c48ca4a Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise_add.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise_add_32x32.png b/SISBusiness.Module/Images/Images.window_application_enterprise_add_32x32.png new file mode 100644 index 0000000..dc4b7cc Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise_add_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise_delete.png b/SISBusiness.Module/Images/Images.window_application_enterprise_delete.png new file mode 100644 index 0000000..6b22be6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise_delete.png differ diff --git a/SISBusiness.Module/Images/Images.window_application_enterprise_delete_32x32.png b/SISBusiness.Module/Images/Images.window_application_enterprise_delete_32x32.png new file mode 100644 index 0000000..059a95a Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_application_enterprise_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_colors.png b/SISBusiness.Module/Images/Images.window_colors.png new file mode 100644 index 0000000..31adb1e Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_colors.png differ diff --git a/SISBusiness.Module/Images/Images.window_colors_32x32.png b/SISBusiness.Module/Images/Images.window_colors_32x32.png new file mode 100644 index 0000000..83deafe Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_colors_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_delete.png b/SISBusiness.Module/Images/Images.window_delete.png new file mode 100644 index 0000000..44a3684 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_delete.png differ diff --git a/SISBusiness.Module/Images/Images.window_delete_32x32.png b/SISBusiness.Module/Images/Images.window_delete_32x32.png new file mode 100644 index 0000000..db38ff0 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_delete_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_dialog.png b/SISBusiness.Module/Images/Images.window_dialog.png new file mode 100644 index 0000000..fc94f1b Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_dialog.png differ diff --git a/SISBusiness.Module/Images/Images.window_dialog_32x32.png b/SISBusiness.Module/Images/Images.window_dialog_32x32.png new file mode 100644 index 0000000..4e95e00 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_dialog_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_earth.png b/SISBusiness.Module/Images/Images.window_earth.png new file mode 100644 index 0000000..79db3ae Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_earth.png differ diff --git a/SISBusiness.Module/Images/Images.window_earth_32x32.png b/SISBusiness.Module/Images/Images.window_earth_32x32.png new file mode 100644 index 0000000..70353f7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_earth_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_edit.png b/SISBusiness.Module/Images/Images.window_edit.png new file mode 100644 index 0000000..64edde9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_edit.png differ diff --git a/SISBusiness.Module/Images/Images.window_edit_32x32.png b/SISBusiness.Module/Images/Images.window_edit_32x32.png new file mode 100644 index 0000000..3b13fa6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_edit_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_environment.png b/SISBusiness.Module/Images/Images.window_environment.png new file mode 100644 index 0000000..e39e869 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_environment.png differ diff --git a/SISBusiness.Module/Images/Images.window_environment_32x32.png b/SISBusiness.Module/Images/Images.window_environment_32x32.png new file mode 100644 index 0000000..779327a Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_environment_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_gear.png b/SISBusiness.Module/Images/Images.window_gear.png new file mode 100644 index 0000000..65749ca Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_gear.png differ diff --git a/SISBusiness.Module/Images/Images.window_gear_32x32.png b/SISBusiness.Module/Images/Images.window_gear_32x32.png new file mode 100644 index 0000000..260d854 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_gear_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_information.png b/SISBusiness.Module/Images/Images.window_information.png new file mode 100644 index 0000000..62b73b7 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_information.png differ diff --git a/SISBusiness.Module/Images/Images.window_information_32x32.png b/SISBusiness.Module/Images/Images.window_information_32x32.png new file mode 100644 index 0000000..82f8865 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_information_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_new.png b/SISBusiness.Module/Images/Images.window_new.png new file mode 100644 index 0000000..05437a1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_new.png differ diff --git a/SISBusiness.Module/Images/Images.window_new_32x32.png b/SISBusiness.Module/Images/Images.window_new_32x32.png new file mode 100644 index 0000000..7113502 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_new_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_preferences.png b/SISBusiness.Module/Images/Images.window_preferences.png new file mode 100644 index 0000000..e7c0e39 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_preferences.png differ diff --git a/SISBusiness.Module/Images/Images.window_preferences_32x32.png b/SISBusiness.Module/Images/Images.window_preferences_32x32.png new file mode 100644 index 0000000..dca4ac4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_preferences_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_sidebar.png b/SISBusiness.Module/Images/Images.window_sidebar.png new file mode 100644 index 0000000..7df4f57 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_sidebar.png differ diff --git a/SISBusiness.Module/Images/Images.window_sidebar_32x32.png b/SISBusiness.Module/Images/Images.window_sidebar_32x32.png new file mode 100644 index 0000000..dc4b753 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_sidebar_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_split_hor.png b/SISBusiness.Module/Images/Images.window_split_hor.png new file mode 100644 index 0000000..4090589 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_split_hor.png differ diff --git a/SISBusiness.Module/Images/Images.window_split_hor_32x32.png b/SISBusiness.Module/Images/Images.window_split_hor_32x32.png new file mode 100644 index 0000000..acb0eda Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_split_hor_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_split_ver.png b/SISBusiness.Module/Images/Images.window_split_ver.png new file mode 100644 index 0000000..3222328 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_split_ver.png differ diff --git a/SISBusiness.Module/Images/Images.window_split_ver_32x32.png b/SISBusiness.Module/Images/Images.window_split_ver_32x32.png new file mode 100644 index 0000000..5ed4c7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_split_ver_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_star.png b/SISBusiness.Module/Images/Images.window_star.png new file mode 100644 index 0000000..1c39f5c Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_star.png differ diff --git a/SISBusiness.Module/Images/Images.window_star_32x32.png b/SISBusiness.Module/Images/Images.window_star_32x32.png new file mode 100644 index 0000000..ff0edf6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_star_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_time.png b/SISBusiness.Module/Images/Images.window_time.png new file mode 100644 index 0000000..c581bc9 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_time.png differ diff --git a/SISBusiness.Module/Images/Images.window_time_32x32.png b/SISBusiness.Module/Images/Images.window_time_32x32.png new file mode 100644 index 0000000..0221656 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_time_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_view.png b/SISBusiness.Module/Images/Images.window_view.png new file mode 100644 index 0000000..efa609a Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_view.png differ diff --git a/SISBusiness.Module/Images/Images.window_view_32x32.png b/SISBusiness.Module/Images/Images.window_view_32x32.png new file mode 100644 index 0000000..08a8455 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_view_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.window_warning.png b/SISBusiness.Module/Images/Images.window_warning.png new file mode 100644 index 0000000..61c1448 Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_warning.png differ diff --git a/SISBusiness.Module/Images/Images.window_warning_32x32.png b/SISBusiness.Module/Images/Images.window_warning_32x32.png new file mode 100644 index 0000000..5e43dad Binary files /dev/null and b/SISBusiness.Module/Images/Images.window_warning_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.windows.png b/SISBusiness.Module/Images/Images.windows.png new file mode 100644 index 0000000..3d5fe7f Binary files /dev/null and b/SISBusiness.Module/Images/Images.windows.png differ diff --git a/SISBusiness.Module/Images/Images.windows_32x32.png b/SISBusiness.Module/Images/Images.windows_32x32.png new file mode 100644 index 0000000..a568a73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.windows_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.woman1.png b/SISBusiness.Module/Images/Images.woman1.png new file mode 100644 index 0000000..c1d8541 Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman1.png differ diff --git a/SISBusiness.Module/Images/Images.woman1_32x32.png b/SISBusiness.Module/Images/Images.woman1_32x32.png new file mode 100644 index 0000000..ba2a802 Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.woman2.png b/SISBusiness.Module/Images/Images.woman2.png new file mode 100644 index 0000000..283ca73 Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman2.png differ diff --git a/SISBusiness.Module/Images/Images.woman2_32x32.png b/SISBusiness.Module/Images/Images.woman2_32x32.png new file mode 100644 index 0000000..9d9185b Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.woman3.png b/SISBusiness.Module/Images/Images.woman3.png new file mode 100644 index 0000000..cd36494 Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman3.png differ diff --git a/SISBusiness.Module/Images/Images.woman3_32x32.png b/SISBusiness.Module/Images/Images.woman3_32x32.png new file mode 100644 index 0000000..c6c4dde Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman3_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.woman4.png b/SISBusiness.Module/Images/Images.woman4.png new file mode 100644 index 0000000..b6eef0f Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman4.png differ diff --git a/SISBusiness.Module/Images/Images.woman4_32x32.png b/SISBusiness.Module/Images/Images.woman4_32x32.png new file mode 100644 index 0000000..52e38b1 Binary files /dev/null and b/SISBusiness.Module/Images/Images.woman4_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.word_icon.png b/SISBusiness.Module/Images/Images.word_icon.png new file mode 100644 index 0000000..18a37a3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.word_icon.png differ diff --git a/SISBusiness.Module/Images/Images.word_icon_32x32.png b/SISBusiness.Module/Images/Images.word_icon_32x32.png new file mode 100644 index 0000000..501a8f3 Binary files /dev/null and b/SISBusiness.Module/Images/Images.word_icon_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.worker.png b/SISBusiness.Module/Images/Images.worker.png new file mode 100644 index 0000000..9faea51 Binary files /dev/null and b/SISBusiness.Module/Images/Images.worker.png differ diff --git a/SISBusiness.Module/Images/Images.worker_32x32.png b/SISBusiness.Module/Images/Images.worker_32x32.png new file mode 100644 index 0000000..0b75170 Binary files /dev/null and b/SISBusiness.Module/Images/Images.worker_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.workplace.png b/SISBusiness.Module/Images/Images.workplace.png new file mode 100644 index 0000000..b5b0e95 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workplace.png differ diff --git a/SISBusiness.Module/Images/Images.workplace2.png b/SISBusiness.Module/Images/Images.workplace2.png new file mode 100644 index 0000000..3aaecfd Binary files /dev/null and b/SISBusiness.Module/Images/Images.workplace2.png differ diff --git a/SISBusiness.Module/Images/Images.workplace2_32x32.png b/SISBusiness.Module/Images/Images.workplace2_32x32.png new file mode 100644 index 0000000..1067a2c Binary files /dev/null and b/SISBusiness.Module/Images/Images.workplace2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.workplace_32x32.png b/SISBusiness.Module/Images/Images.workplace_32x32.png new file mode 100644 index 0000000..0256b56 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workplace_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.workstation1.png b/SISBusiness.Module/Images/Images.workstation1.png new file mode 100644 index 0000000..242acc5 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation1.png differ diff --git a/SISBusiness.Module/Images/Images.workstation1_32x32.png b/SISBusiness.Module/Images/Images.workstation1_32x32.png new file mode 100644 index 0000000..36f442d Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation1_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.workstation2.png b/SISBusiness.Module/Images/Images.workstation2.png new file mode 100644 index 0000000..3c7f8e8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation2.png differ diff --git a/SISBusiness.Module/Images/Images.workstation2_32x32.png b/SISBusiness.Module/Images/Images.workstation2_32x32.png new file mode 100644 index 0000000..a5ef17f Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation2_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.workstation_network.png b/SISBusiness.Module/Images/Images.workstation_network.png new file mode 100644 index 0000000..1c5d316 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation_network.png differ diff --git a/SISBusiness.Module/Images/Images.workstation_network_32x32.png b/SISBusiness.Module/Images/Images.workstation_network_32x32.png new file mode 100644 index 0000000..a476cf8 Binary files /dev/null and b/SISBusiness.Module/Images/Images.workstation_network_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.wrench.png b/SISBusiness.Module/Images/Images.wrench.png new file mode 100644 index 0000000..91d9036 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wrench.png differ diff --git a/SISBusiness.Module/Images/Images.wrench_32x32.png b/SISBusiness.Module/Images/Images.wrench_32x32.png new file mode 100644 index 0000000..47854a6 Binary files /dev/null and b/SISBusiness.Module/Images/Images.wrench_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.yinyang.png b/SISBusiness.Module/Images/Images.yinyang.png new file mode 100644 index 0000000..b814299 Binary files /dev/null and b/SISBusiness.Module/Images/Images.yinyang.png differ diff --git a/SISBusiness.Module/Images/Images.yinyang_32x32.png b/SISBusiness.Module/Images/Images.yinyang_32x32.png new file mode 100644 index 0000000..8a21d6e Binary files /dev/null and b/SISBusiness.Module/Images/Images.yinyang_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.zoom_in.png b/SISBusiness.Module/Images/Images.zoom_in.png new file mode 100644 index 0000000..1d621e4 Binary files /dev/null and b/SISBusiness.Module/Images/Images.zoom_in.png differ diff --git a/SISBusiness.Module/Images/Images.zoom_in_32x32.png b/SISBusiness.Module/Images/Images.zoom_in_32x32.png new file mode 100644 index 0000000..b88d4ff Binary files /dev/null and b/SISBusiness.Module/Images/Images.zoom_in_32x32.png differ diff --git a/SISBusiness.Module/Images/Images.zoom_out.png b/SISBusiness.Module/Images/Images.zoom_out.png new file mode 100644 index 0000000..467de2e Binary files /dev/null and b/SISBusiness.Module/Images/Images.zoom_out.png differ diff --git a/SISBusiness.Module/Images/Images.zoom_out_32x32.png b/SISBusiness.Module/Images/Images.zoom_out_32x32.png new file mode 100644 index 0000000..14db298 Binary files /dev/null and b/SISBusiness.Module/Images/Images.zoom_out_32x32.png differ diff --git a/SISBusiness.Module/Images/iGreenArrow.png b/SISBusiness.Module/Images/iGreenArrow.png new file mode 100644 index 0000000..9ba7ea0 Binary files /dev/null and b/SISBusiness.Module/Images/iGreenArrow.png differ diff --git a/SISBusiness.Module/Images/iOK.png b/SISBusiness.Module/Images/iOK.png new file mode 100644 index 0000000..ccfe627 Binary files /dev/null and b/SISBusiness.Module/Images/iOK.png differ diff --git a/SISBusiness.Module/Images/iQuestion.png b/SISBusiness.Module/Images/iQuestion.png new file mode 100644 index 0000000..e1fa895 Binary files /dev/null and b/SISBusiness.Module/Images/iQuestion.png differ diff --git a/SISBusiness.Module/Images/iRedArrow.png b/SISBusiness.Module/Images/iRedArrow.png new file mode 100644 index 0000000..57cf3a6 Binary files /dev/null and b/SISBusiness.Module/Images/iRedArrow.png differ diff --git a/SISBusiness.Module/Mobile/MobileListDashboards.vb b/SISBusiness.Module/Mobile/MobileListDashboards.vb new file mode 100644 index 0000000..d4ab43e --- /dev/null +++ b/SISBusiness.Module/Mobile/MobileListDashboards.vb @@ -0,0 +1,96 @@ +Imports System +Imports System.ComponentModel + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.Validation +Imports System.Drawing + + _ +Public Class MobileListDashboards + Inherits BaseObject + Private _GroupIndex As Long 'Csoportosts sorrendje + Private _GroupName As String 'Csoportosts megnevezse + Private _ShortName As String 'Megnevezs + Private _RowIndex As Long ' A csoporton belli sorrend + Private _Description As String 'Lers + Private _Image_32x32 As Image 'Kp + Private _Role As Role 'Szably + Private _BusinessDirectory As BusinessDirectory + + Public Sub New(ByVal session As Session) + MyBase.New(session) + ' This constructor is used when an object is loaded from a persistent storage. + ' Do not place any code here or place it only when the IsLoading property is false: + ' if (!IsLoading){ + ' It is now OK to place your initialization code here. + ' } + ' or as an alternative, move your initialization code into the AfterConstruction method. + End Sub + Public Overrides Sub AfterConstruction() + MyBase.AfterConstruction() + ' Place here your initialization code. + End Sub + + Property GroupIndex As Long + Get + Return _GroupIndex + End Get + Set(value As Long) + SetPropertyValue("GroupIndex", _GroupIndex, value) + End Set + End Property + Property GroupName As String + Get + Return _GroupName + End Get + Set(value As String) + SetPropertyValue("GroupName", _GroupName, value) + End Set + End Property + Property ShortName As String + Get + Return _ShortName + End Get + Set(value As String) + SetPropertyValue("ShortName", _ShortName, value) + End Set + End Property + Property RowIndex As Long + Get + Return _RowIndex + End Get + Set(value As Long) + SetPropertyValue("RowIndex", _RowIndex, value) + End Set + End Property + _ + Property Image_32x32 As Image + Get + Return _Image_32x32 + End Get + Set(value As Image) + SetPropertyValue("Image_32x32", _Image_32x32, value) + End Set + End Property + Property Role As Role + Get + Return _Role + End Get + Set(value As Role) + SetPropertyValue("Role", _Role, value) + End Set + End Property + Property BusinessDirectory As BusinessDirectory + Get + Return _BusinessDirectory + End Get + Set(value As BusinessDirectory) + SetPropertyValue("BusinessDirectory", _BusinessDirectory, value) + End Set + End Property +End Class diff --git a/SISBusiness.Module/Mobile/MobileListDashboardsVC.Designer.vb b/SISBusiness.Module/Mobile/MobileListDashboardsVC.Designer.vb new file mode 100644 index 0000000..04306b9 --- /dev/null +++ b/SISBusiness.Module/Mobile/MobileListDashboardsVC.Designer.vb @@ -0,0 +1,51 @@ +Partial Class MobileListDashboardsVC + + _ + 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. + _ + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.aViewDashboardBase = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) + ' + 'aViewDashboardBase + ' + Me.aViewDashboardBase.Caption = "aView Dashboard Base" + Me.aViewDashboardBase.ConfirmationMessage = Nothing + Me.aViewDashboardBase.Id = "aViewDashboardBase" + Me.aViewDashboardBase.ImageName = Nothing + Me.aViewDashboardBase.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject + Me.aViewDashboardBase.Shortcut = Nothing + Me.aViewDashboardBase.Tag = Nothing + Me.aViewDashboardBase.TargetObjectsCriteria = Nothing + Me.aViewDashboardBase.TargetObjectType = GetType(SISBusiness.[Module].MobileListDashboards) + Me.aViewDashboardBase.TargetViewId = Nothing + Me.aViewDashboardBase.TargetViewType = DevExpress.ExpressApp.ViewType.ListView + Me.aViewDashboardBase.ToolTip = Nothing + Me.aViewDashboardBase.TypeOfView = GetType(DevExpress.ExpressApp.ListView) + + End Sub + Protected WithEvents aViewDashboardBase As DevExpress.ExpressApp.Actions.SimpleAction + +End Class diff --git a/SISBusiness.Module/Mobile/MobileListDashboardsVC.resx b/SISBusiness.Module/Mobile/MobileListDashboardsVC.resx new file mode 100644 index 0000000..cd3830e --- /dev/null +++ b/SISBusiness.Module/Mobile/MobileListDashboardsVC.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.Module/Mobile/MobileListDashboardsVC.vb b/SISBusiness.Module/Mobile/MobileListDashboardsVC.vb new file mode 100644 index 0000000..750033b --- /dev/null +++ b/SISBusiness.Module/Mobile/MobileListDashboardsVC.vb @@ -0,0 +1,50 @@ +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.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Public Class MobileListDashboardsVC + 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 = "MobileListDashboards_ListView_User" Then + Dim _Collectionsource As CollectionSource = TryCast(View, ListView).CollectionSource + Dim _User As User = TryCast(SecuritySystem.CurrentUser, User) + Dim _s As String = "" + Dim _i As Long = 0 + _Collectionsource.BeginUpdateCriteria() + + For Each _Role As Role In _User.Roles + If _i = 0 Then + _s = "Role.Oid in ('" & _Role.Oid.ToString & "'" + Else + _s += ",'" & _Role.Oid.ToString & "'" + End If + _i += 1 + Next + If _s = "" Then + _Collectionsource.Criteria("ByRole") = CriteriaOperator.Parse("1=2") + Else + _s += ")" + _Collectionsource.Criteria("ByRole") = CriteriaOperator.Parse(_s) + End If + + _Collectionsource.EndUpdateCriteria() + End If + End Sub +End Class diff --git a/SISBusiness.Module/Model.DesignedDiffs.Localization.hu.xafml b/SISBusiness.Module/Model.DesignedDiffs.Localization.hu.xafml new file mode 100644 index 0000000..02e4393 --- /dev/null +++ b/SISBusiness.Module/Model.DesignedDiffs.Localization.hu.xafml @@ -0,0 +1,15854 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Model.DesignedDiffs.xafml b/SISBusiness.Module/Model.DesignedDiffs.xafml new file mode 100644 index 0000000..6cc6c2b --- /dev/null +++ b/SISBusiness.Module/Model.DesignedDiffs.xafml @@ -0,0 +1,29267 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Module.Designer.vb b/SISBusiness.Module/Module.Designer.vb new file mode 100644 index 0000000..04ebd4f --- /dev/null +++ b/SISBusiness.Module/Module.Designer.vb @@ -0,0 +1,58 @@ +Imports Microsoft.VisualBasic +Imports System + +Partial Public Class SISBusinessModule + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + ' + 'SISBusinessModule + ' + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.HCategory)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.Analysis)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.ReportData)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.Role)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.BasicUser)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.FileAttachmentBase)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.Note)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.PhoneType)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.PropertyBagDescriptor)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.SimpleUser)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.Persistent.BaseImpl.State)) + Me.AdditionalExportedTypes.Add(GetType(DevExpress.ExpressApp.Reports.ReportParametersObjectBase)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.SystemModule.SystemModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.AuditTrail.AuditTrailModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.CloneObject.CloneObjectModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Validation.ValidationModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Security.SecurityModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Kpi.KpiModule)) + Me.RequiredModuleTypes.Add(GetType(DevExpress.ExpressApp.Notifications.NotificationsModule)) + + End Sub + +#End Region +End Class diff --git a/SISBusiness.Module/Module.resx b/SISBusiness.Module/Module.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Module/Module.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Module/Module.vb b/SISBusiness.Module/Module.vb new file mode 100644 index 0000000..7125da1 --- /dev/null +++ b/SISBusiness.Module/Module.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.Collections.Generic +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Kpi +Imports System.Reflection +Imports DevExpress.Persistent.BaseImpl +Imports Microsoft.VisualBasic +Imports DevExpress.ExpressApp.Model +Imports DevExpress.ExpressApp.Model.Core + +Partial Public NotInheritable Class [SISBusinessModule] + Inherits ModuleBase + Public Sub New() + InitializeComponent() + Person.SetFullNameFormat("{LastName} {FirstName} {MiddleName}", "concat(FirstName, MiddleName, LastName)") + DateRangeRepository.RegisterRange(New DateRange("Rolling 1995", New RangePoint(New DateTime(1995, 1, 1), 0, TimeIntervalType.Day), New RangePoint(New DateTime(1995, 1, 1), DateTime.Today.DayOfYear, TimeIntervalType.Day))) + DateRangeRepository.RegisterRange(New DateRange("Rolling 1996", New RangePoint(New DateTime(1996, 1, 1), 0, TimeIntervalType.Day), New RangePoint(New DateTime(1996, 1, 1), DateTime.Today.DayOfYear, TimeIntervalType.Day))) + ' Address.SetFullAddressFormat("{Country} {ZipPostal} {City} {Street}", "concat(Country, ZipPostal, City, Street)") + End Sub + Public Overloads Overrides Sub Setup(ByVal application As XafApplication) + MyBase.Setup(application) + AddHandler application.CreateCustomCollectionSource, AddressOf LinqCollectionSourceHelper.CreateCustomCollectionSource + End Sub + Public Overrides Sub ExtendModelInterfaces(ByVal extenders As ModelInterfaceExtenders) + MyBase.ExtendModelInterfaces(extenders) + extenders.Add(Of IModelListView, IModelListViewExtender)() + extenders.Add(Of IModelColumn, IModelColumnExtender)() + extenders.Add(Of IModelClass, IModelClassAllowSort)() + extenders.Add(Of IModelMember, IModelMemberAllowSort)() + extenders.Add(Of IModelListView, IModelListViewAllowSort)() + extenders.Add(Of IModelColumn, IModelColumnAllowSort)() + extenders.Add(Of IModelAction, IModelActionExtender)() + extenders.Add(Of IModelListView, IModelListViewLinq)() + extenders.Add(Of IModelOptions, IModelOptionsExtender)() + extenders.Add(Of IModelDetailView, IModelDetailViewExtender)() + End Sub + Public Overrides Sub AddGeneratorUpdaters(ByVal updaters As ModelNodesGeneratorUpdaters) + MyBase.AddGeneratorUpdaters(updaters) + updaters.Add(New ModelListViewLinqNodesGeneratorUpdater()) + updaters.Add(New ModelListViewLinqColumnsNodesGeneratorUpdater()) + End Sub + Public Overrides Function GetStartupActions() As IList(Of Actions.PopupWindowShowAction) + Return MyBase.GetStartupActions() + End Function +End Class diff --git a/SISBusiness.Module/My Project/Application.Designer.vb b/SISBusiness.Module/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Module/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Module/My Project/Application.myapp b/SISBusiness.Module/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Module/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Module/My Project/AssemblyInfo.vb b/SISBusiness.Module/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ca1b8d5 --- /dev/null +++ b/SISBusiness.Module/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.Module/My Project/Resources.Designer.vb b/SISBusiness.Module/My Project/Resources.Designer.vb new file mode 100644 index 0000000..6bae2ee --- /dev/null +++ b/SISBusiness.Module/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Module.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Module/My Project/Resources.resx b/SISBusiness.Module/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.Module/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Module/My Project/Settings.Designer.vb b/SISBusiness.Module/My Project/Settings.Designer.vb new file mode 100644 index 0000000..90e15e8 --- /dev/null +++ b/SISBusiness.Module/My Project/Settings.Designer.vb @@ -0,0 +1,84 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Public ReadOnly Property InitialDataConnectionString() As String + Get + Return CType(Me("InitialDataConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.[Module].My.MySettings + Get + Return Global.SISBusiness.[Module].My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Module/My Project/Settings.settings b/SISBusiness.Module/My Project/Settings.settings new file mode 100644 index 0000000..3bd215c --- /dev/null +++ b/SISBusiness.Module/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\App_Data\InitialData.accdb;Persist Security Info=True</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\App_Data\InitialData.accdb;Persist Security Info=True + + + \ No newline at end of file diff --git a/SISBusiness.Module/My Project/licenses.licx b/SISBusiness.Module/My Project/licenses.licx new file mode 100644 index 0000000..d0930e5 --- /dev/null +++ b/SISBusiness.Module/My Project/licenses.licx @@ -0,0 +1,3 @@ +DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.ExpressApp.ModuleBase, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/SISBusiness.Module/SISBusiness.Module.vbproj b/SISBusiness.Module/SISBusiness.Module.vbproj new file mode 100644 index 0000000..32a84bf --- /dev/null +++ b/SISBusiness.Module/SISBusiness.Module.vbproj @@ -0,0 +1,5415 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + Library + SISBusiness.Module + SISBusiness.Module + Windows + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.0 + + + 4.0 + + true + http://localhost/SISBusiness.Module/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + + + true + Full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + false + + + true + bin\Release 64bit\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + AnyCPU + bin\Release\SISBusiness.Module.dll.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + AllRules.ruleset + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + + + false + true + true + bin\R64\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + AnyCPU + AllRules.ruleset + + + + + False + + + + + False + False + + + False + False + + + + + + + + + False + False + + + False + False + + + False + False + + + False + + + + False + False + + + False + False + + + + False + False + + + + + + + + + + + + + + + True + + + False + True + ..\..\..\..\..\..\..\Program Files (x86)\Microsoft Visual Studio 10.0\Visual Studio Tools for Office\PIA\Office14\Microsoft.Office.Interop.Outlook.dll + + + True + + + False + ..\..\..\..\..\Program Files (x86)\MySQL\Connector NET 6.8.3\Assemblies\v4.0\MySql.Data.dll + + + ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll + True + + + ..\..\..\..\..\Install\RabbitMQClient\bin\RabbitMQ.Client.dll + + + False + ..\..\..\..\..\..\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0\System.dll + + + False + + + + + + + + + + + + + + + + + + + + + + + + + + + + APCSheetReviewHeader_VC.vb + + + Component + + + + + APCSheetReview_VC.vb + + + Component + + + APCSheetVC.vb + + + Component + + + + + + + + + + + + + + ContractTemplate_VC.vb + + + Component + + + + + + + IntrastatHeader_VC.vb + + + Component + + + + + + + + + + CRMEstateStatisticsVC.vb + + + Component + + + + + + + + ImmovablesCostRecordVC.vb + + + Component + + + + ImmovablesVC.vb + + + Component + + + + + + + + + + + InvoiceFactoring_VC.vb + + + Component + + + + + InvoiceCreditNote_VC.vb + + + Component + + + + + + + InvoiceRowsPivotVC.vb + + + Component + + + + + + InvoiceHoldPopupVC.vb + + + Component + + + + + + + + + + + + OffersOutVC.vb + + + Component + + + + + + + + + + + + + OfferAskIn_VC.vb + + + Component + + + + + + + + + + Operation_VC.vb + + + Component + + + + + + + + OrderInHeader_PermissionVC.vb + + + Component + + + + + OrderInRowsVC.vb + + + Component + + + + + + + + + + + OrderOutStockVC.vb + + + Component + + + + + + + + + + + + + OnlineCassa_VC.vb + + + Component + + + + + + + PricingActionVC.vb + + + Component + + + + + + + ProductsDocumentations_VC.vb + + + Component + + + + + + + ProductsGant_VC.vb + + + Component + + + + + + + + InstallationVC.vb + + + Component + + + + + + + + + ProductsGroups_VC.vb + + + Component + + + ServiceFinderVC.vb + + + Component + + + + + + Services_VC.vb + + + Component + + + + + + + + SorageByDateVC.vb + + + Component + + + + + + + + + + + + + StorageComputedLocations_VC.vb + + + Component + + + + + StorageDateVC.vb + + + Component + + + + StorageLocation_VC.vb + + + Component + + + StorageMoveEventsVC.vb + + + Component + + + + + + + + + + + + + Technologies_VC.vb + + + Component + + + + + + HTMLMailTemplateVC.vb + + + Component + + + + + WebParameters_VC.vb + + + Component + + + + + + + + AssetsHandlingCPBVC.vb + + + Component + + + + + + + + + + + + + FixedassetsCardVC.vb + + + Component + + + + + + + + FixedAssetsQueryVC.vb + + + Component + + + + + + + FixedAssetsVC.vb + + + Component + + + + + + + + + + + GLOpenCloseVC.vb + + + Component + + + + + + GLReportCashflowVC.vb + + + Component + + + + + + + + PCICheckerVC.vb + + + Component + + + + + + PCICheckVC.vb + + + Component + + + + PCIGroupAgingVC.vb + + + Component + + + + SpecTranRevaluationVC.vb + + + Component + + + + + + + + + + + + ProjectPlanVC.vb + + + Component + + + + + + + RegistryTelephoneVC.vb + + + Component + + + CostHolderVC.vb + + + Component + + + + + + UniqueObjects_VC.vb + + + Component + + + + ChartOfAccountsBallance_VC.vb + + + Component + + + + + CurrencyRateVC.vb + + + Component + + + + + + + + + + + + + + + + + CustomersMeeting_VC.vb + + + Component + + + + + + + CustomersFileAttachment_VC.vb + + + Component + + + + + + + + + + + Dashboard_VC.vb + + + Component + + + + + + + EMailSendQueueVC.vb + + + Component + + + + + HRPersonTasks_VC.vb + + + Component + + + + + + + + OperationalLog_VC.vb + + + Component + + + + + + BusinessDirectory_VC.vb + + + Component + + + + + + + + + + + + + + + + HRPerson_VC.vb + + + Component + + + + + + + RTFDocumentsHandlerVC.vb + + + Component + + + + + + TextCollection_VC.vb + + + Component + + + User_VC.vb + + + Component + + + + + + + + + + + + + + + + + ProjectVC.vb + + + Component + + + + + + + + + SISChatVC.vb + + + Component + + + + + + + + Support_VC.vb + + + Component + + + + + SystemTool_VC.vb + + + Component + + + ActionToolTipforSysAdmin.vb + + + Component + + + + AppearanceVC.vb + + + Component + + + + + + + AuditToDatabaseVC.vb + + + Component + + + AuditTrailVC.vb + + + Component + + + CertificateOfContractVC.vb + + + Component + + + ContractPayablesVC.vb + + + Component + + + ContractReceivablesVC.vb + + + Component + + + ContractRowsVC.vb + + + Component + + + + + + + + + + + + + + + + + + + + + + + ContractProduct_VC.vb + + + Component + + + + + + DeliveryNoteInVC.vb + + + Component + + + + + + + DeliveryNoteOutVC.vb + + + Component + + + + + + + CRMEstate_OpportunityVC.vb + + + Component + + + + + + + + + + + + + + + + + + + + + ImmovablesPriceListVC.vb + + + Component + + + + + + ImmovablesCostRecordExcelVC.vb + + + Component + + + + + + + + + + + InvoiceRowVC.vb + + + Component + + + + + + + OffersInVC.vb + + + Component + + + + + OffersOutPrintVC.vb + + + Component + + + + + + + + + + + + + + + OrderInToDisposeVC.vb + + + Component + + + + + OrderInAcknowledgementVC.vb + + + Component + + + + + + OrderInRowsOtherVC.vb + + + Component + + + + + + + + + + + OrderInVC.vb + + + Component + + + + + + OrderOutVC.vb + + + Component + + + + + + + + + RecipeExecutionSimpleVC.vb + + + Component + + + + + + + + + + RecipeVC.vb + + + Component + + + + CRM_LeadsVC.vb + + + Component + + + + + + + + + + + + + + + + + + + + + + + + EstateVC.vb + + + Component + + + InvoiceVC.vb + + + Component + + + OrderInPrint.vb + + + Component + + + + TakeOverProtocolVC.vb + + + Component + + + CRM_OpportunitiesVC.vb + + + Component + + + + + + + + + + + + + + + CRMEstateVC.vb + + + Component + + + + + + + + + + + + ProductFinderVC.vb + + + Component + + + + + ProductsVC.vb + + + Component + + + + + + + + + + + StoragePDACollectionHeaderVC.vb + + + Component + + + + + + + + + + + InventoryVC.vb + + + Component + + + + + StorageTransactionsInVC.vb + + + Component + + + + + StorageTransactionsOutVC.vb + + + Component + + + + + + + + + Subcontractor_VC.vb + + + Component + + + + + + + + + + + + + + + + + + + WorkSheet_VC.vb + + + Component + + + + + DateYearCriteriaVC.vb + + + Component + + + DBV_Dashboard_VC.vb + + + Component + + + + + Component + + + + + + + + HRPerson_LookupListView.vb + + + Component + + + + + ViewFilterContainerVC.vb + + + Component + + + + CustomersFromVC.vb + + + Component + + + + + + + + + + + + GLBankVC.vb + + + Component + + + + GLBaseVC.vb + + + Component + + + + + + + GLRowsDivideVC.vb + + + Component + + + + + GLClosingVC.vb + + + Component + + + + + LiquidAssetsReturnVC.vb + + + Component + + + + DivideVAT_VC.vb + + + Component + + + RateDiffVC.vb + + + Component + + + + + + BallanceVC.vb + + + Component + + + + + + + ABRQueryVC.vb + + + Component + + + + + + PACIQVC.vb + + + Component + + + + PCIDetailVC.vb + + + Component + + + + PCIVC.vb + + + Component + + + + + PartnerConnectionInfoCleanUpVC.vb + + + Component + + + + + + + + + + + + + + + + + + + StorageTransactionsInPrint.vb + + + Component + + + StorageTransactionsOutPrint.vb + + + Component + + + StorageComputedVC.vb + + + Component + + + ContractsVC.vb + + + Component + + + + + + + + + + AssetsPCIVC.vb + + + Component + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + RegistryBankTransferVC.vb + + + Component + + + + + RegistryFinancialVC.vb + + + Component + + + + RegistryRowsFinancialControllingVC.vb + + + Component + + + RegistryRowsFinancialVC.vb + + + Component + + + + + + RegistryTaskVC.vb + + + Component + + + + + + + + + + + RRFCQueryVC.vb + + + Component + + + + + + + + + + ChartOfAccountsVC.vb + + + Component + + + + + + + + + + + + + + BookEntryVC.vb + + + Component + + + + GeneralLedgerVC.vb + + + Component + + + GLAccountsVC.vb + + + Component + + + GLCardVC.vb + + + Component + + + GLCassaVC.vb + + + Component + + + GLCompensationVC.vb + + + Component + + + GLMixedVC.vb + + + Component + + + + GLRowsVC.vb + + + Component + + + LiquidAssetsBallanceVC.vb + + + Component + + + TrialBalanceVC.vb + + + Component + + + VATReportVC.vb + + + Component + + + + RegistryVC.vb + + + Component + + + + ControllingVC.vb + + + Component + + + + + ContactsVC.vb + + + Component + + + + + + + + + + + + + + + CustomersVC.vb + + + Component + + + + + GeneralStocks_VC.vb + + + Component + + + + + + + ContractsLookupVC.vb + + + Component + + + CustomersBankAccountsLookupVC.vb + + + Component + + + LookupLinkController.vb + + + Component + + + + SetDefaultCountryHungaryVC.vb + + + Component + + + + + + + + ListViewProcess.vb + + + Component + + + LockObjectBeforeEditVC.vb + + + Component + + + LongOperationController.vb + + + Component + + + + MasterDetailViewControllerBase.vb + + + Component + + + NestedListViewControllerBase.vb + + + Component + + + + NavigationItemPermission.vb + + + Component + + + + RoundingController.vb + + + Component + + + + + + + RolesModelSecurity.vb + + + Component + + + TabEnterVC.vb + + + Component + + + + + MobileListDashboardsVC.vb + + + Component + + + Module.vb + + + Component + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + RepairRegistryVC.vb + + + Component + + + + + AnswerVC.vb + + + Component + + + + + + + QuestionVC.vb + + + Component + + + + Reply_VC.vb + + + Component + + + SupportDocuments.vb + + + Component + + + + + + MySchedule_VC.vb + + + Component + + + True + True + Reference.svcmap + + + + + UserViewVariantsController.vb + + + Component + + + + + + APCSheetReviewHeader_VC.vb + + + APCSheetReview_VC.vb + + + APCSheetVC.vb + + + ContractTemplate_VC.vb + + + IntrastatHeader_VC.vb + + + CRMEstateStatisticsVC.vb + + + ImmovablesCostRecordVC.vb + + + EstateVC.vb + + + ImmovablesVC.vb + + + InvoiceFactoring_VC.vb + + + InvoiceCreditNote_VC.vb + + + InvoiceRowsPivotVC.vb + + + InvoiceHoldPopupVC.vb + + + OffersOutVC.vb + + + OfferAskIn_VC.vb + + + Operation_VC.vb + + + OrderInHeader_PermissionVC.vb + + + OrderInRowsVC.vb + + + OrderOutStockVC.vb + + + PricingActionVC.vb + + + InstallationVC.vb + + + ProductsDocumentations_VC.vb + + + ProductsGant_VC.vb + + + ProductsGroups_VC.vb + + + Services_VC.vb + + + StorageComputedLocations_VC.vb + + + StorageDateVC.vb + + + StorageLocation_VC.vb + + + StorageMoveEventsVC.vb + + + Technologies_VC.vb + + + HTMLMailTemplateVC.vb + + + WebParameters_VC.vb + + + AssetsHandlingCPBVC.vb + + + FixedassetsCardVC.vb + + + FixedAssetsQueryVC.vb + + + FixedAssetsVC.vb + + + GLOpenCloseVC.vb + Designer + + + GLReportCashflowVC.vb + + + PCICheckerVC.vb + + + PCICheckVC.vb + + + PCIGroupAgingVC.vb + + + SpecTranRevaluationVC.vb + + + ProjectPlanVC.vb + + + RegistryTelephoneVC.vb + + + CostHolderVC.vb + + + UniqueObjects_VC.vb + + + ChartOfAccountsBallance_VC.vb + + + CurrencyRateVC.vb + + + CustomersMeeting_VC.vb + + + CustomersFileAttachment_VC.vb + + + EMailSendQueueVC.vb + + + HRPersonTasks_VC.vb + + + HRPerson_VC.vb + + + OperationalLog_VC.vb + + + BusinessDirectory_VC.vb + + + RTFDocumentsHandlerVC.vb + + + TextCollection_VC.vb + + + ProjectVC.vb + + + SISChatVC.vb + + + Support_VC.vb + + + SystemTool_VC.vb + + + AuditTrailVC.vb + + + CertificateOfContractVC.vb + Designer + + + ContractReceivablesVC.vb + + + ContractRowsVC.vb + + + ContractProduct_VC.vb + + + DeliveryNoteInVC.vb + + + DeliveryNoteOutVC.vb + + + CRMEstateVC.vb + + + CRMEstate_OpportunityVC.vb + + + ImmovablesPriceListVC.vb + + + ImmovablesCostRecordExcelVC.vb + + + InvoiceRowVC.vb + + + OffersInVC.vb + + + OffersOutPrintVC.vb + + + OrderInToDisposeVC.vb + + + OrderInAcknowledgementVC.vb + + + OrderInPrint.vb + + + OrderInRowsOtherVC.vb + + + OrderInVC.vb + + + OrderOutVC.vb + + + ContractsVC.vb + + + RecipeExecutionSimpleVC.vb + + + RecipeVC.vb + + + CRM_LeadsVC.vb + + + CRM_OpportunitiesVC.vb + + + ProductFinderVC.vb + + + ProductsVC.vb + + + StoragePDACollectionHeaderVC.vb + + + InventoryVC.vb + + + StorageTransactionsInPrint.vb + + + StorageTransactionsInVC.vb + + + StorageTransactionsOutPrint.vb + + + StorageTransactionsOutVC.vb + + + Subcontractor_VC.vb + + + WorkSheet_VC.vb + + + AssetsPCIVC.vb + + + GLBankVC.vb + + + GLBaseVC.vb + + + GLRowsDivideVC.vb + Designer + + + BookEntryVC.vb + + + LiquidAssetsReturnVC.vb + + + RateDiffVC.vb + + + BallanceVC.vb + + + GLRowsVC.vb + + + LiquidAssetsBallanceVC.vb + + + ABRQueryVC.vb + + + PACIQVC.vb + + + PCIDetailVC.vb + + + PCIVC.vb + + + VATReportVC.vb + + + RegistryBankTransferVC.vb + + + RegistryFinancialVC.vb + + + RegistryRowsFinancialControllingVC.vb + + + RegistryTaskVC.vb + + + RegistryVC.vb + + + RRFCQueryVC.vb + + + ControllingVC.vb + + + ChartOfAccountsVC.vb + + + ContactsVC.vb + + + CustomersVC.vb + + + SetDefaultCountryHungaryVC.vb + + + DateYearCriteriaVC.vb + + + ViewFilterContainerVC.vb + + + RolesModelSecurity.vb + + + + + MobileListDashboardsVC.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + RepairRegistryVC.vb + + + AnswerVC.vb + + + QuestionVC.vb + + + Reply_VC.vb + + + UserViewVariantsController.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + TakeOverProtocolVC.vb + + + StorageComputedVC.vb + + + GeneralLedgerVC.vb + + + GLAccountsVC.vb + + + GLCardVC.vb + + + GLCassaVC.vb + + + GLCompensationVC.vb + + + GLMixedVC.vb + + + TrialBalanceVC.vb + + + Model.DesignedDiffs.xafml + Designer + + + Designer + + + + + + WCF Proxy Generator + Reference.vb + + + + + + + Designer + + + Designer + + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + + + + + + + + + + + + + + + + Always + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Always + + + Always + + + Always + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Always + + + + + + + + + + + + + + + + + InvoiceVC.vb + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Module.vb + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/SISBusiness.Module.vbproj.vspscc b/SISBusiness.Module/SISBusiness.Module.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Module/SISBusiness.Module.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/MNBArfolyamServiceSoapImpl.wsdl b/SISBusiness.Module/Service References/MNBArfolyamService/MNBArfolyamServiceSoapImpl.wsdl new file mode 100644 index 0000000..322018c --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/MNBArfolyamServiceSoapImpl.wsdl @@ -0,0 +1,85 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/Reference.svcmap b/SISBusiness.Module/Service References/MNBArfolyamService/Reference.svcmap new file mode 100644 index 0000000..108473b --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/Reference.svcmap @@ -0,0 +1,34 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/Reference.vb b/SISBusiness.Module/Service References/MNBArfolyamService/Reference.vb new file mode 100644 index 0000000..ca4e3c9 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/Reference.vb @@ -0,0 +1,919 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System +Imports System.Runtime.Serialization + +Namespace MNBArfolyamService + + _ + Partial Public Class GetCurrenciesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrenciesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrenciesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrenciesResult() As String + Get + Return Me.GetCurrenciesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrenciesResultField, value) <> true) Then + Me.GetCurrenciesResultField = value + Me.RaisePropertyChanged("GetCurrenciesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private currencyNamesField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property currencyNames() As String + Get + Return Me.currencyNamesField + End Get + Set + If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then + Me.currencyNamesField = value + Me.RaisePropertyChanged("currencyNames") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrencyUnitsResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrencyUnitsResult() As String + Get + Return Me.GetCurrencyUnitsResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrencyUnitsResultField, value) <> true) Then + Me.GetCurrencyUnitsResultField = value + Me.RaisePropertyChanged("GetCurrencyUnitsResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetCurrentExchangeRatesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetCurrentExchangeRatesResult() As String + Get + Return Me.GetCurrentExchangeRatesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetCurrentExchangeRatesResultField, value) <> true) Then + Me.GetCurrentExchangeRatesResultField = value + Me.RaisePropertyChanged("GetCurrentExchangeRatesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateIntervalRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateIntervalResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetDateIntervalResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetDateIntervalResult() As String + Get + Return Me.GetDateIntervalResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetDateIntervalResultField, value) <> true) Then + Me.GetDateIntervalResultField = value + Me.RaisePropertyChanged("GetDateIntervalResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private startDateField As String + + _ + Private endDateField As String + + _ + Private currencyNamesField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property startDate() As String + Get + Return Me.startDateField + End Get + Set + If (Object.ReferenceEquals(Me.startDateField, value) <> true) Then + Me.startDateField = value + Me.RaisePropertyChanged("startDate") + End If + End Set + End Property + + _ + Public Property endDate() As String + Get + Return Me.endDateField + End Get + Set + If (Object.ReferenceEquals(Me.endDateField, value) <> true) Then + Me.endDateField = value + Me.RaisePropertyChanged("endDate") + End If + End Set + End Property + + _ + Public Property currencyNames() As String + Get + Return Me.currencyNamesField + End Get + Set + If (Object.ReferenceEquals(Me.currencyNamesField, value) <> true) Then + Me.currencyNamesField = value + Me.RaisePropertyChanged("currencyNames") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetExchangeRatesResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetExchangeRatesResult() As String + Get + Return Me.GetExchangeRatesResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetExchangeRatesResultField, value) <> true) Then + Me.GetExchangeRatesResultField = value + Me.RaisePropertyChanged("GetExchangeRatesResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetInfoRequestBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetInfoResponseBody + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private GetInfoResultField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property GetInfoResult() As String + Get + Return Me.GetInfoResultField + End Get + Set + If (Object.ReferenceEquals(Me.GetInfoResultField, value) <> true) Then + Me.GetInfoResultField = value + Me.RaisePropertyChanged("GetInfoResult") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Public Interface MNBArfolyamServiceSoap + + 'CODEGEN: Generating message contract since the operation GetCurrencies is neither RPC nor document wrapped. + _ + Function GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse + + 'CODEGEN: Generating message contract since the operation GetCurrencyUnits is neither RPC nor document wrapped. + _ + Function GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse + + 'CODEGEN: Generating message contract since the operation GetCurrentExchangeRates is neither RPC nor document wrapped. + _ + Function GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetDateInterval is neither RPC nor document wrapped. + _ + Function GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse + + 'CODEGEN: Generating message contract since the operation GetExchangeRates is neither RPC nor document wrapped. + _ + Function GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetInfo is neither RPC nor document wrapped. + _ + Function GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse + End Interface + + _ + Partial Public Class GetCurrenciesRequest + + _ + Public GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencies As MNBArfolyamService.GetCurrenciesRequestBody) + MyBase.New + Me.GetCurrencies = GetCurrencies + End Sub + End Class + + _ + Partial Public Class GetCurrenciesResponse + + _ + Public GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrenciesResponse1 As MNBArfolyamService.GetCurrenciesResponseBody) + MyBase.New + Me.GetCurrenciesResponse1 = GetCurrenciesResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsRequest + + _ + Public GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnits As MNBArfolyamService.GetCurrencyUnitsRequestBody) + MyBase.New + Me.GetCurrencyUnits = GetCurrencyUnits + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsResponse + + _ + Public GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnitsResponse1 As MNBArfolyamService.GetCurrencyUnitsResponseBody) + MyBase.New + Me.GetCurrencyUnitsResponse1 = GetCurrencyUnitsResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesRequest + + _ + Public GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRates As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) + MyBase.New + Me.GetCurrentExchangeRates = GetCurrentExchangeRates + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesResponse + + _ + Public GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRatesResponse1 As MNBArfolyamService.GetCurrentExchangeRatesResponseBody) + MyBase.New + Me.GetCurrentExchangeRatesResponse1 = GetCurrentExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetDateIntervalRequest + + _ + Public GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateInterval As MNBArfolyamService.GetDateIntervalRequestBody) + MyBase.New + Me.GetDateInterval = GetDateInterval + End Sub + End Class + + _ + Partial Public Class GetDateIntervalResponse + + _ + Public GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateIntervalResponse1 As MNBArfolyamService.GetDateIntervalResponseBody) + MyBase.New + Me.GetDateIntervalResponse1 = GetDateIntervalResponse1 + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesRequest + + _ + Public GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRates As MNBArfolyamService.GetExchangeRatesRequestBody) + MyBase.New + Me.GetExchangeRates = GetExchangeRates + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesResponse + + _ + Public GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRatesResponse1 As MNBArfolyamService.GetExchangeRatesResponseBody) + MyBase.New + Me.GetExchangeRatesResponse1 = GetExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetInfoRequest + + _ + Public GetInfo As MNBArfolyamService.GetInfoRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfo As MNBArfolyamService.GetInfoRequestBody) + MyBase.New + Me.GetInfo = GetInfo + End Sub + End Class + + _ + Partial Public Class GetInfoResponse + + _ + Public GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfoResponse1 As MNBArfolyamService.GetInfoResponseBody) + MyBase.New + Me.GetInfoResponse1 = GetInfoResponse1 + End Sub + End Class + + _ + Public Interface MNBArfolyamServiceSoapChannel + Inherits MNBArfolyamService.MNBArfolyamServiceSoap, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class MNBArfolyamServiceSoapClient + Inherits System.ServiceModel.ClientBase(Of MNBArfolyamService.MNBArfolyamServiceSoap) + Implements MNBArfolyamService.MNBArfolyamServiceSoap + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencies + Return MyBase.Channel.GetCurrencies(request) + End Function + + Public Function GetCurrencies(ByVal GetCurrencies1 As MNBArfolyamService.GetCurrenciesRequestBody) As MNBArfolyamService.GetCurrenciesResponseBody + Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest() + inValue.GetCurrencies = GetCurrencies1 + Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue) + Return retVal.GetCurrenciesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencyUnits + Return MyBase.Channel.GetCurrencyUnits(request) + End Function + + Public Function GetCurrencyUnits(ByVal GetCurrencyUnits1 As MNBArfolyamService.GetCurrencyUnitsRequestBody) As MNBArfolyamService.GetCurrencyUnitsResponseBody + Dim inValue As MNBArfolyamService.GetCurrencyUnitsRequest = New MNBArfolyamService.GetCurrencyUnitsRequest() + inValue.GetCurrencyUnits = GetCurrencyUnits1 + Dim retVal As MNBArfolyamService.GetCurrencyUnitsResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencyUnits(inValue) + Return retVal.GetCurrencyUnitsResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrentExchangeRates + Return MyBase.Channel.GetCurrentExchangeRates(request) + End Function + + Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As MNBArfolyamService.GetCurrentExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest() + inValue.GetCurrentExchangeRates = GetCurrentExchangeRates1 + Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue) + Return retVal.GetCurrentExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetDateInterval + Return MyBase.Channel.GetDateInterval(request) + End Function + + Public Function GetDateInterval(ByVal GetDateInterval1 As MNBArfolyamService.GetDateIntervalRequestBody) As MNBArfolyamService.GetDateIntervalResponseBody + Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest() + inValue.GetDateInterval = GetDateInterval1 + Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue) + Return retVal.GetDateIntervalResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetExchangeRates + Return MyBase.Channel.GetExchangeRates(request) + End Function + + Public Function GetExchangeRates(ByVal GetExchangeRates1 As MNBArfolyamService.GetExchangeRatesRequestBody) As MNBArfolyamService.GetExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetExchangeRatesRequest = New MNBArfolyamService.GetExchangeRatesRequest() + inValue.GetExchangeRates = GetExchangeRates1 + Dim retVal As MNBArfolyamService.GetExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetExchangeRates(inValue) + Return retVal.GetExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetInfo + Return MyBase.Channel.GetInfo(request) + End Function + + Public Function GetInfo(ByVal GetInfo1 As MNBArfolyamService.GetInfoRequestBody) As MNBArfolyamService.GetInfoResponseBody + Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest() + inValue.GetInfo = GetInfo1 + Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue) + Return retVal.GetInfoResponse1 + End Function + End Class +End Namespace diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource new file mode 100644 index 0000000..18eb91f --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource new file mode 100644 index 0000000..a43e7e6 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..561401d --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource new file mode 100644 index 0000000..3d12fe8 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..d7ddca4 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource new file mode 100644 index 0000000..52eb6c0 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody, Service References.MNBArfolyamService.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.disco b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.disco new file mode 100644 index 0000000..50b6aa3 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.disco @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.wsdl b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.wsdl new file mode 100644 index 0000000..f4639bc --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.wsdl @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.xsd b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.xsd new file mode 100644 index 0000000..d54837d --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok.xsd @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok1.xsd b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok1.xsd new file mode 100644 index 0000000..d58e7f3 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/arfolyamok1.xsd @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/configuration.svcinfo b/SISBusiness.Module/Service References/MNBArfolyamService/configuration.svcinfo new file mode 100644 index 0000000..7882ddd --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Service References/MNBArfolyamService/configuration91.svcinfo b/SISBusiness.Module/Service References/MNBArfolyamService/configuration91.svcinfo new file mode 100644 index 0000000..9c8c368 --- /dev/null +++ b/SISBusiness.Module/Service References/MNBArfolyamService/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + + + http://www.mnb.hu/arfolyamok.asmx + + + + + + basicHttpBinding + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + MNBArfolyamService.MNBArfolyamServiceSoap + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/UnusableNodes.xml b/SISBusiness.Module/UnusableNodes.xml new file mode 100644 index 0000000..3553da2 --- /dev/null +++ b/SISBusiness.Module/UnusableNodes.xml @@ -0,0 +1,9 @@ + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Module/Updater.vb b/SISBusiness.Module/Updater.vb new file mode 100644 index 0000000..91dca68 --- /dev/null +++ b/SISBusiness.Module/Updater.vb @@ -0,0 +1,2029 @@ +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 +Imports System.Data.SqlClient +Imports System.IO +Public Class Updater + Inherits DevExpress.ExpressApp.Updating.ModuleUpdater + + Public Sub New(ByVal ObjectSpace As IObjectSpace, ByVal currentDBVersion As Version) + MyBase.New(ObjectSpace, currentDBVersion) + End Sub + Public Overrides Sub UpdateDatabaseAfterUpdateSchema() + MyBase.UpdateDatabaseAfterUpdateSchema() + + 'Dim anonymousUser As SecurityUser = ObjectSpace.FindObject(Of SecurityUser)(New BinaryOperator("UserName", SecurityStrategy.AnonymousUserName)) + 'If anonymousUser Is Nothing Then + ' anonymousUser = ObjectSpace.CreateObject(Of SecurityUser)() + ' anonymousUser.UserName = SecurityStrategy.AnonymousUserName + ' anonymousUser.IsActive = True + ' anonymousUser.SetPassword("") + ' anonymousUser.Save() + 'End If + + + ' If a user named 'Sam' doesn't exist in the database, create this user + Dim _SysAdmin As User = ObjectSpace.FindObject(Of User)(New BinaryOperator("UserName", "SysAdmin")) + If _SysAdmin Is Nothing Then + _SysAdmin = ObjectSpace.CreateObject(Of User)() + _SysAdmin.UserName = "SysAdmin" + _SysAdmin.FirstName = "SysAdmin" + ' Set a password if the standard authentication type is used + _SysAdmin.SetPassword("SysAdmin") + End If + ' If a role with the Administrators name doesn't exist in the database, create this role + Dim adminRole As Role = ObjectSpace.FindObject(Of Role)(New BinaryOperator("Name", "Administrators")) + If adminRole Is Nothing Then + adminRole = ObjectSpace.CreateObject(Of Role)() + adminRole.Name = "Administrators" + End If + + Dim ListViewModelManagerRole As Role = ObjectSpace.FindObject(Of Role)(New BinaryOperator("Name", "ListViewModelManager")) + If ListViewModelManagerRole Is Nothing Then + ListViewModelManagerRole = ObjectSpace.CreateObject(Of Role)() + ListViewModelManagerRole.Name = "ListViewModelManager" + End If + + ' Delete all permissions assigned to the Administrators and Users roles + Do While adminRole.PersistentPermissions.Count > 0 + ObjectSpace.Delete(adminRole.PersistentPermissions(0)) + Loop + ' Allow full access to all objects to the Administrators role + adminRole.AddPermission(New ObjectAccessPermission(GetType(Object), ObjectAccess.AllAccess)) + ' Allow editing the Application Model to the Administrators role + adminRole.AddPermission(New EditModelPermission(ModelAccessModifier.Allow)) + ' Save the Administrators role to the database + adminRole.Save() + ' Allow full access to all objects to the Users role + ' Add the Administrators role to the _SysAdmin + _SysAdmin.Roles.Add(adminRole) + ' Save the users to the database + _SysAdmin.Save() + + 'Dim administratorRole As SecurityRole = ObjectSpace.FindObject(Of SecurityRole)(New BinaryOperator("Name", SecurityStrategy.AdministratorRoleName)) + 'If administratorRole Is Nothing Then + ' administratorRole = ObjectSpace.CreateObject(Of SecurityRole)() + ' administratorRole.Name = SecurityStrategy.AdministratorRoleName + ' administratorRole.CanEditModel = True + 'End If + + 'administratorRole.BeginUpdate() + 'administratorRole.Permissions.GrantRecursive(GetType(Object), SecurityOperations.FullAccess) + 'administratorRole.EndUpdate() + 'administratorRole.Save() + 'Dim adminName As String = "Administrator" + 'Dim administratorUser As SecurityUser = ObjectSpace.FindObject(Of SecurityUser)(New BinaryOperator("UserName", adminName)) + 'If administratorUser Is Nothing Then + ' administratorUser = ObjectSpace.CreateObject(Of SecurityUser)() + ' administratorUser.UserName = adminName + ' administratorUser.IsActive = True + ' administratorUser.SetPassword("") + ' administratorUser.Roles.Add(administratorRole) + ' administratorUser.Save() + 'End If + + + '-- Devizák hozzáadása + Dim _CurrencyName As CurrencyName = ObjectSpace.FindObject(Of CurrencyName)(New BinaryOperator("ShortName", "HUF")) + If _CurrencyName Is Nothing Then + _CurrencyName = ObjectSpace.CreateObject(Of CurrencyName)() + _CurrencyName.ShortName = "HUF" + End If + _CurrencyName.Save() + _CurrencyName = ObjectSpace.FindObject(Of CurrencyName)(New BinaryOperator("ShortName", "EUR")) + If _CurrencyName Is Nothing Then + _CurrencyName = ObjectSpace.CreateObject(Of CurrencyName)() + _CurrencyName.ShortName = "EUR" + End If + _CurrencyName.Save() + _CurrencyName = ObjectSpace.FindObject(Of CurrencyName)(New BinaryOperator("ShortName", "USD")) + If _CurrencyName Is Nothing Then + _CurrencyName = ObjectSpace.CreateObject(Of CurrencyName)() + _CurrencyName.ShortName = "USD" + End If + _CurrencyName.Save() + + Dim _NumberGeneratorGroups As NumberGeneratorGroups = ObjectSpace.FindObject(Of NumberGeneratorGroups)(New BinaryOperator("ShortName", "Support")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = ObjectSpace.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.ShortName = "Support" + _NumberGeneratorGroups.Description = "Support" + _NumberGeneratorGroups.Save() + End If + Dim _SupportNG As SupportNG = ObjectSpace.FindObject(Of SupportNG)(New BinaryOperator("SupportType", 0)) + If _SupportNG Is Nothing Then + Dim _NG As NumberGenerator + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "Q" + _NG.NewNumberPerYear = False + _NG.YearFormat = eYearFormat.YearNoDigit + _NG.SerialNumberDigit = 5 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _SupportNG = ObjectSpace.CreateObject(Of SupportNG)() + _SupportNG.SupportType = 0 + _SupportNG.NumberGenerator = _NG + _SupportNG.Save() + End If + _SupportNG = ObjectSpace.FindObject(Of SupportNG)(New BinaryOperator("SupportType", 1)) + If _SupportNG Is Nothing Then + Dim _NG As NumberGenerator + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "A" + _NG.NewNumberPerYear = False + _NG.YearFormat = eYearFormat.YearNoDigit + _NG.SerialNumberDigit = 5 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _SupportNG = ObjectSpace.CreateObject(Of SupportNG)() + _SupportNG.SupportType = 1 + _SupportNG.NumberGenerator = _NG + _SupportNG.Save() + End If + _SupportNG = ObjectSpace.FindObject(Of SupportNG)(New BinaryOperator("SupportType", 2)) + If _SupportNG Is Nothing Then + Dim _NG As NumberGenerator + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "PE" + _NG.NewNumberPerYear = False + _NG.YearFormat = eYearFormat.YearNoDigit + _NG.SerialNumberDigit = 5 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _SupportNG = ObjectSpace.CreateObject(Of SupportNG)() + _SupportNG.SupportType = 2 + _SupportNG.NumberGenerator = _NG + _SupportNG.Save() + End If + + Dim _LiquidAssetsBallanceHeader As LiquidAssetsBallanceHeader + + Dim _LiquidAssetsBallanceRows_Collection As New XPCollection(Of LiquidAssetsBallanceRows)(TryCast(ObjectSpace, Xpo.XPObjectSpace).Session) + ObjectSpace.Delete(_LiquidAssetsBallanceRows_Collection) + + Dim _LiquidAssetsBallanceHeader_Collection As New XPCollection(Of LiquidAssetsBallanceHeader)(TryCast(ObjectSpace, Xpo.XPObjectSpace).Session) + ObjectSpace.Delete(_LiquidAssetsBallanceHeader_Collection) + + _LiquidAssetsBallanceHeader = ObjectSpace.CreateObject(Of LiquidAssetsBallanceHeader)() + _LiquidAssetsBallanceHeader.DateExecution = Now + _LiquidAssetsBallanceHeader.Save() + '----------------------------SQL command ------------------------------------------------------------ + 'ExecuteSQLCommands("App_Data\SQLScripts.sql") + '---------------------------------------------------------------------------------------------------- + '_2011_01_07(ObjectSpace) + '_2011_03_08(ObjectSpace) + '_2011_04_20(ObjectSpace) + '_2011_05_10(ObjectSpace) + '_2011_06_01(ObjectSpace) + '_2011_06_28(ObjectSpace) + 'DropTable("PartnerConnectionInfo", True) + 'DeleteObjectType("SISBusiness.Module.PartnerConnectionInfo") + '_2011_09_09(ObjectSpace) + '_2011_09_25(ObjectSpace) + '_2011_09_30(ObjectSpace) + + + + + Dim _CustomersNG As CustomersNG = ObjectSpace.FindObject(Of CustomersNG)(CriteriaOperator.Parse("Oid=Oid")) + If _CustomersNG Is Nothing Then + Dim _NG As NumberGenerator + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "S" + _NG.NewNumberPerYear = False + _NG.YearFormat = eYearFormat.YearNoDigit + _NG.SerialNumberDigit = 5 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _CustomersNG = ObjectSpace.CreateObject(Of CustomersNG)() + _CustomersNG.NumberGenerator = _NG + _CustomersNG.ShortName = "Ügyfelek sorszámai" + + End If + + Dim _ContactsNG As ContactsNG = ObjectSpace.FindObject(Of ContactsNG)(CriteriaOperator.Parse("Oid=Oid")) + If _ContactsNG Is Nothing Then + Dim _NG As NumberGenerator + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "K" + _NG.NewNumberPerYear = False + _NG.YearFormat = eYearFormat.YearNoDigit + _NG.SerialNumberDigit = 5 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _ContactsNG = ObjectSpace.CreateObject(Of ContactsNG)() + _ContactsNG.NumberGenerator = _NG + _ContactsNG.ShortName = "Kapcsolatok sorszámai" + + End If + + SetDefaultStorage(ObjectSpace) + SetWorkflow(ObjectSpace) + SetCRM(ObjectSpace) + SetDefaultfixedAssets(ObjectSpace) + + '_2011_11_22(ObjectSpace, CurrentDBVersion) + _2012_03_01(ObjectSpace, CurrentDBVersion) + _2012_03_10(ObjectSpace, CurrentDBVersion) + _2012_04_13(ObjectSpace, CurrentDBVersion) + _2012_05_02(ObjectSpace, CurrentDBVersion) + _2012_05_08(ObjectSpace, CurrentDBVersion) + _2012_08_31(ObjectSpace, CurrentDBVersion) + _2012_10_29(ObjectSpace, CurrentDBVersion) + _2012_11_08(ObjectSpace, CurrentDBVersion) + _2013_04_17(ObjectSpace, CurrentDBVersion) + _2013_04_25(ObjectSpace, CurrentDBVersion) + _2013_07_23(ObjectSpace, CurrentDBVersion) + _2013_07_23_1(ObjectSpace, CurrentDBVersion) + _2014_02_14(ObjectSpace, CurrentDBVersion) + _2014_03_07(ObjectSpace, CurrentDBVersion) + _2016_01_28(ObjectSpace, CurrentDBVersion) + ProductsGant(ObjectSpace) + ' ZIPHUUpdate(ObjectSpace) + StorageOut_Storno_Regenerate(ObjectSpace) + 'RegistryHeader_UserCreated(ObjectSpace) + + + End Sub + Private Sub _2011_01_07(ByVal ObjectSpace As Xpo.XPObjectSpace) + 'RegistryBankTransfer javítása + Dim _RegistryHeader_Collection As XPCollection(Of RegistryHeader) = _ + New XPCollection(Of RegistryHeader)(ObjectSpace.Session, CriteriaOperator.Parse("RegistryType.RegistryMainType=0 and (F_AmountBruttoHUF>0 or F_AmountBruttoDEV > 0)")) + Dim _RegistryHeader As RegistryHeader + + For Each _RegistryHeader In _RegistryHeader_Collection + If _RegistryHeader.RegistryBankTransfer.Count = 0 Then + If _RegistryHeader.F_PayMode = ePayMode.InTransfer Or _RegistryHeader.F_PayMode = ePayMode.InContinuous Then + Dim _RegistryBankTransfer As RegistryBankTransfer = ObjectSpace.CreateObject(Of RegistryBankTransfer)() + _RegistryBankTransfer.RegistryHeader = _RegistryHeader + _RegistryBankTransfer.DatePayment = _RegistryHeader.F_DatePayment + _RegistryBankTransfer.AmountDEV = _RegistryHeader.F_AmountBruttoDEV + _RegistryBankTransfer.AmountHUF = _RegistryHeader.F_AmountBruttoHUF + _RegistryBankTransfer.Save() + End If + End If + Next + End Sub + Private Sub _2011_03_08(ByVal ObjectSpace As Xpo.XPObjectSpace) + 'ExecuteNonQueryCommand( + + End Sub + Private Sub _2011_04_20(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _COA As ChartOfAccounts + _COA = ObjectSpace.FindObject(Of ChartOfAccounts)(CriteriaOperator.Parse("isnull(ChartOfAccounts1)=True")) + If _COA IsNot Nothing Then + _COA.Reconfigure_ChartOfAccounts(ObjectSpace) + End If + End Sub + Private Sub _2011_05_10(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _GLRows As GLRows + Dim _InvoiceRows As InvoiceRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + Dim I As Long = 0 + Dim _GLRows_Collection As New XPCollection(Of GLRows) _ + (ObjectSpace.Session, CriteriaOperator.Parse("GLHeader.CurrencyName.ShortName='HUF' and AmountDEV<>0")) + + For Each _GLRows In _GLRows_Collection + _GLRows.AmountDEV = 0 + _GLRows.Save() + Next + + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows) _ + (ObjectSpace.Session, CriteriaOperator.Parse("isnull(ReadyforBookEntryRows)=True")) + For Each _InvoiceRows In _InvoiceRows_Collection + _InvoiceRows.ReadyforBookEntryRows = False + _InvoiceRows.Save() + Next + + Dim _RegistryRowsFinancialControlling_Collection As New XPCollection(Of RegistryRowsFinancialControlling) _ + (ObjectSpace.Session, CriteriaOperator.Parse("isnull(F_ReadyforBookEntryRows)=True")) + For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + _RegistryRowsFinancialControlling.F_ReadyforBookEntryRows = False + _RegistryRowsFinancialControlling.Save() + Next + + End Sub + Private Sub _2011_06_01(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _Controlling_Collection As New XPCollection(Of Controlling)(ObjectSpace.Session) + Dim _Controlling As Controlling + + For Each _Controlling In _Controlling_Collection + _Controlling.ReconfigureGroup(ObjectSpace, _Controlling, False) + Next + End Sub + Private Sub _2011_06_28(ByVal ObjectSpace As Xpo.XPObjectSpace) + + Dim _uow As New UnitOfWork(ObjectSpace.Session.DataLayer) + Dim _uow2 As New UnitOfWork(ObjectSpace.Session.DataLayer) + + + '// Stornó számlák javítása + Dim _InvoiceHeader_Collection As New XPCollection(_uow, GetType(InvoiceHeader), CriteriaOperator.Parse("IsStorno=True")) + Dim _OriginalInvoice As InvoiceHeader + Dim _OriginalInvoiceRows As InvoiceRows + Dim _RowsUpdateSucceded As Boolean + Dim _HasError As Boolean = False + + For Each _InvoiceHeader As InvoiceHeader In _InvoiceHeader_Collection + + 'Feltételezzük, hogy nincs benne hiba + _HasError = False + + For Each _InvoiceRows As InvoiceRows In _InvoiceHeader.InvoiceRows + + ' Ha a sorokban hiány lép fel akkor szinkronizáljuk az eredeti számlasorral a jelölő adatokat + + If _InvoiceRows.InvoiceRows Is Nothing Then + _OriginalInvoice = _uow.FindObject(Of InvoiceHeader)(CriteriaOperator.Parse("DocumentNumber=?", _InvoiceHeader.ConnectInfo)) + _OriginalInvoiceRows = _uow.FindObject(Of InvoiceRows)(CriteriaOperator.Parse("InvoiceHeader=? AND ShortName=?", _OriginalInvoice, _InvoiceRows.ShortName)) + 'Jelezzük, hogy újra kell könyvelni a sorhoz tartozó fejlécet + _HasError = True + _RowsUpdateSucceded = False + 'Jelölő adatok átadása + If _OriginalInvoiceRows IsNot Nothing Then + _InvoiceRows.JobNumberObjects = _OriginalInvoiceRows.JobNumberObjects + _InvoiceRows.UniqueObjects = _OriginalInvoiceRows.UniqueObjects + _InvoiceRows.Controlling = _OriginalInvoiceRows.Controlling + _InvoiceRows.CostHolder = _OriginalInvoiceRows.CostHolder + _InvoiceRows.CostPlace = _OriginalInvoiceRows.CostPlace + _InvoiceRows.InvoiceRows = _OriginalInvoiceRows + _RowsUpdateSucceded = True + End If + 'Könyvelhetőség visszaállítása + + _InvoiceRows.ReadyforBookEntryRows = False + + End If + Next + If _HasError And _InvoiceHeader.GLAccounts IsNot Nothing Then + 'Könyvelési tételek visszavonása + _InvoiceHeader.BookEntryRemove(_InvoiceHeader, _uow, True) + If _RowsUpdateSucceded Then + 'Újra könyvelés + _InvoiceHeader.ReadyforBookEntry = False + _InvoiceHeader.BookEntry(0, _InvoiceHeader, _uow, True) + End If + End If + Next + _uow.CommitChanges() + + '// Hibás könyvelt ÁFA sorok visszavonása + + Dim _GLRows_Collection As New XPCollection(_uow2, GetType(GLRows), (CriteriaOperator.Parse("GLHeader.GLRows.Count=1 AND GLHeader.GLDocumentType=1"))) + Dim _RegistryHeader_Collection As New XPCollection(_uow2, GetType(RegistryHeader), CriteriaOperator.Parse("1=2")) + For i As Integer = 0 To _GLRows_Collection.Count - 1 Step 1 + If _GLRows_Collection(i).GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then + Dim _RegistryHeader As RegistryHeader = _uow2.FindObject(Of RegistryHeader)(CriteriaOperator.Parse("F_GLAccounts.Oid=?", _GLRows_Collection(i).GLHeader.Oid)) + _RegistryHeader_Collection.Add(_RegistryHeader) + End If + Next + For Each _RegistryHeader As RegistryHeader In _RegistryHeader_Collection + _RegistryHeader.BookEntryRemove(_RegistryHeader, _uow2, True) + Next + + _uow2.CommitChanges() + + End Sub + Private Sub _2011_09_09(ByVal ObjectSpace As Xpo.XPObjectSpace) + 'ExecuteNonQueryCommand("update GLBank set LiquidAssets_Main=row_LiquidAssets_Main", False) + 'ExecuteNonQueryCommand("update GLCassa set LiquidAssets_Cassa=row_LiquidAssets_Cassa", False) + 'ExecuteNonQueryCommand("update GLCompensation set LiquidAssets_Main=row_LiquidAssets_Main", False) + End Sub + Private Sub _2011_09_25(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _GLCassa As GLCassa + Dim _InvoiceRows As InvoiceRows + Dim _InvoiceVATRows As InvoiceVATRows + Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + Dim _RegistryRowsFinancial As RegistryRowsFinancial + + Dim _GLCassa_Collection As New XPCollection(Of GLCassa)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(IsStorno)=True")) + For Each _GLCassa In _GLCassa_Collection + _GLCassa.IsStorno = False + _GLCassa.Save() + Next + Dim _GLCassa_Collection1 As New XPCollection(Of GLCassa)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(DocumentNumber)=True")) + For Each _GLCassa In _GLCassa_Collection1 + _GLCassa.DocumentNumber = "" + _GLCassa.Save() + Next + + + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(ObjectSpace.Session, CriteriaOperator.Parse("ReadyforBookEntryRows = True and InvoiceHeader.ReadyforBookEntry = False")) + For Each _InvoiceRows In _InvoiceRows_Collection + _InvoiceRows.InvoiceHeader.ReadyforBookEntry = True + _InvoiceRows.InvoiceHeader.Save() + Next + + Dim _InvoiceVATRows_Collection As New XPCollection(Of InvoiceVATRows)(ObjectSpace.Session, CriteriaOperator.Parse("ReadyforBookEntryRows = True and InvoiceHeader.ReadyforBookEntry = False")) + For Each _InvoiceVATRows In _InvoiceVATRows_Collection + _InvoiceVATRows.InvoiceHeader.ReadyforBookEntry = True + _InvoiceVATRows.InvoiceHeader.Save() + Next + + Dim _RegistryRowsFinancial_Collection As New XPCollection(Of RegistryRowsFinancial)(ObjectSpace.Session, CriteriaOperator.Parse("F_ReadyforBookEntryRows = True and RegistryHeader.F_ReadyforBookEntry = False")) + For Each _RegistryRowsFinancial In _RegistryRowsFinancial_Collection + _RegistryRowsFinancial.RegistryHeader.F_ReadyforBookEntry = True + _RegistryRowsFinancial.RegistryHeader.Save() + Next + + Dim _RegistryRowsFinancialControlling_Collection As New XPCollection(Of RegistryRowsFinancialControlling)(ObjectSpace.Session, CriteriaOperator.Parse("F_ReadyforBookEntryRows = True and RegistryHeader.F_ReadyforBookEntry = False")) + For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + _RegistryRowsFinancialControlling.RegistryHeader.F_ReadyforBookEntry = True + _RegistryRowsFinancialControlling.RegistryHeader.Save() + Next + + '-- GLAccounts javítása + Dim _GLRows_Collection As New XPCollection(Of GLRows)(ObjectSpace.Session, CriteriaOperator.Parse("VAT.InversState=True")) + Dim _GLRows As GLRows + Dim _GLAccounts As GLAccounts + For Each _GLRows In _GLRows_Collection + _GLAccounts = ObjectSpace.GetObjectByKey(Of GLAccounts)(_GLRows.GLHeader.Oid) + If _GLAccounts IsNot Nothing Then + _GLAccounts.RecalculateTotal() + _GLAccounts.Save() + End If + Next + + '-- Pénztári bizonylatok javítása + _GLRows_Collection = New XPCollection(Of GLRows)(ObjectSpace.Session, CriteriaOperator.Parse("GLHeader.GLDocumentType=3 and isnull(VAT)=False")) + For Each _GLRows In _GLRows_Collection + _GLRows.DateVAT = _GLRows.GLHeader.DateExecution + _GLRows.Save() + Next + + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(ObjectSpace.Session) + For Each _GLAccounts In _GLAccounts_Collection + _GLAccounts.IsRegistryGLAccounts = _GLAccounts.IsRegistry + _GLAccounts.Save() + Next + + End Sub + Private Sub _2011_09_30(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _VATReport As VATReport + Dim _VATReport_Collection As New XPCollection(Of VATReport)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _Contracts As Contracts + Dim _Contracts_Collection As New XPCollection(Of Contracts)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _TrialBalanceHeader As TrialBalanceHeader + Dim _TrialBalanceHeader_Collection As New XPCollection(Of TrialBalanceHeader)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _SpecTranRevaluation As SpecTranRevaluation + Dim _SpecTranRevaluation_Collection As New XPCollection(Of SpecTranRevaluation)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _GLReport As GLReport + Dim _GLReport_Collection As New XPCollection(Of GLReport)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _GLCardsHeader As GLCardsHeader + Dim _GLCardsHeader_Collection As New XPCollection(Of GLCardsHeader)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(ObjectCreated)=True Or isnull(UserCreated)=True")) + + Dim _User_Collection As New XPCollection(Of User)(ObjectSpace.Session, CriteriaOperator.Parse("1=1")) + Dim _User As User = Nothing + Dim _Audit_Collection As XPCollection(Of AuditDataItemPersistent) + Dim _Audit As AuditDataItemPersistent + + For Each _VATReport In _VATReport_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _VATReport) + + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _VATReport.ObjectCreated = _Audit.ModifiedOn + _VATReport.UserCreated = _User + _VATReport.Save() + End If + + Next + Next + + For Each _Contracts In _Contracts_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _Contracts) + If _Audit_Collection IsNot Nothing Then + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _Contracts.ObjectCreated = _Audit.ModifiedOn + _Contracts.UserCreated = _User + _Contracts.Save() + End If + + Next + End If + Next + + For Each _TrialBalanceHeader In _TrialBalanceHeader_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _TrialBalanceHeader) + + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _TrialBalanceHeader.ObjectCreated = _Audit.ModifiedOn + _TrialBalanceHeader.UserCreated = _User + _TrialBalanceHeader.Save() + End If + + Next + Next + + For Each _SpecTranRevaluation In _SpecTranRevaluation_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _SpecTranRevaluation) + + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _SpecTranRevaluation.ObjectCreated = _Audit.ModifiedOn + _SpecTranRevaluation.UserCreated = _User + _SpecTranRevaluation.Save() + End If + + Next + Next + + For Each _GLReport In _GLReport_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _GLReport) + + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _GLReport.ObjectCreated = _Audit.ModifiedOn + _GLReport.UserCreated = _User + _GLReport.Save() + End If + + Next + Next + + For Each _GLCardsHeader In _GLCardsHeader_Collection + _Audit_Collection = AuditedObjectWeakReference.GetAuditTrail(ObjectSpace.Session, _GLCardsHeader) + + For Each _Audit In _Audit_Collection + If _Audit.OperationType = "ObjectCreated" Then + + For Each _User In _User_Collection + If _User.UserName = _Audit.UserName Then + Exit For + End If + Next + + _GLCardsHeader.ObjectCreated = _Audit.ModifiedOn + _GLCardsHeader.UserCreated = _User + _GLCardsHeader.Save() + End If + + Next + Next + End Sub + Private Sub _2011_11_22(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + + If currentDBVersion.ToString <= "11.1.8.1083" Then + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(ObjectSpace.Session, CriteriaOperator.Parse("RegistryType.RegistryMainType='eAccount'")) + Dim _RegistryHeader As RegistryHeader + + For Each _RegistryHeader In _RegistryHeader_Collection + _RegistryHeader.F_ConnectInfo = _RegistryHeader.DocumentNumber + _RegistryHeader.Save() + Next + End If + End Sub + Private Sub _2012_03_01(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + Dim _ChartOfAccountsYear As ChartOfAccountsYear = ObjectSpace.FindObject(Of ChartOfAccountsYear)(CriteriaOperator.Parse("1=1")) + If _ChartOfAccountsYear Is Nothing Then + _ChartOfAccountsYear = ObjectSpace.CreateObject(Of ChartOfAccountsYear)() + _ChartOfAccountsYear.AccountYear = 2011 + _ChartOfAccountsYear.Save() + End If + + If currentDBVersion.ToString <= "11.2.8.1018" Then + Dim _ChartOfAccounts_Collection As New XPCollection(Of ChartOfAccounts)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(AccountYear)=True or AccountYear<=0")) + Dim _ChartOfAccounts As ChartOfAccounts + + For Each _ChartOfAccounts In _ChartOfAccounts_Collection + _ChartOfAccounts.AccountYear = 2011 + _ChartOfAccounts.Save() + Next + + Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(ObjectSpace.Session) + Dim _LiquidAssets As LiquidAssets + Dim _LiquidAssetsYear As LiquidAssetsYear + For Each _LiquidAssets In _LiquidAssets_Collection + If _LiquidAssets.LiquidAssetsYear.Count <= 0 Then + _LiquidAssetsYear = ObjectSpace.CreateObject(Of LiquidAssetsYear)() + _LiquidAssetsYear.AccountYear = 2011 + _LiquidAssetsYear.LiquidAssets = _LiquidAssets + _LiquidAssetsYear.ChartOfAccounts = _LiquidAssets.ChartOfAccounts + _LiquidAssetsYear.ChartOfAccountsMinus = _LiquidAssets.ChartOfAccountsMinus + _LiquidAssetsYear.ChartOfAccountsPlus = _LiquidAssetsYear.ChartOfAccountsPlus + End If + Next + + Dim _VAT_Collection As New XPCollection(Of VAT)(ObjectSpace.Session) + Dim _VAT As VAT + Dim _VATYear As VATYear + For Each _VAT In _VAT_Collection + If _VAT.VATYear.Count <= 0 Then + _VATYear = ObjectSpace.CreateObject(Of VATYear)() + _VATYear.AccountYear = 2011 + _VATYear.VAT = _VAT + _VATYear.ChartOfAccountsIn = _VAT.ChartOfAccountsIn + _VATYear.ChartOfAccountsOut = _VAT.ChartOfAccountsOut + End If + Next + + Dim _CustomersGLParameters_Collection As New XPCollection(Of CustomersGLParameters)(ObjectSpace.Session) + Dim _CustomersGLParameters As CustomersGLParameters + Dim _CustomersGLParametersYear As CustomersGLParametersYear + For Each _CustomersGLParameters In _CustomersGLParameters_Collection + If _CustomersGLParameters.CustomersGLParametersYear.Count <= 0 Then + _CustomersGLParametersYear = ObjectSpace.CreateObject(Of CustomersGLParametersYear)() + _CustomersGLParametersYear.AccountYear = 2011 + _CustomersGLParametersYear.CustomersGLParameters = _CustomersGLParameters + End If + Next + + Dim _Controlling_Collection As New XPCollection(Of Controlling)(ObjectSpace.Session) + Dim _Controlling As Controlling + Dim _ControllingYear As ControllingYear + For Each _Controlling In _Controlling_Collection + If _Controlling.ControllingYear.Count <= 0 Then + _ControllingYear = ObjectSpace.CreateObject(Of ControllingYear)() + _ControllingYear.AccountYear = 2011 + _ControllingYear.Controlling = _Controlling + _ControllingYear.ChartOfAccounts = _Controlling.ChartOfAccounts + _ControllingYear.ChartOfAccounts2 = _Controlling.ChartOfAccounts2 + End If + Next + + Dim _GLHeader_RateDiffParameter_Collection As New XPCollection(Of GLHeader_RateDiffParameter)(ObjectSpace.Session) + Dim _GLHeader_RateDiffParameter As GLHeader_RateDiffParameter + Dim _GLHeader_RateDiffParameterYear As GLHeader_RateDiffParameterYear + For Each _GLHeader_RateDiffParameter In _GLHeader_RateDiffParameter_Collection + If _GLHeader_RateDiffParameter.GLHeader_RateDiffParameterYear.Count <= 0 Then + _GLHeader_RateDiffParameterYear = ObjectSpace.CreateObject(Of GLHeader_RateDiffParameterYear)() + _GLHeader_RateDiffParameterYear.AccountYear = 2011 + _GLHeader_RateDiffParameterYear.GLHeader_RateDiffParameter = _GLHeader_RateDiffParameter + _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Loss = _GLHeader_RateDiffParameter.ChartOfAccounts_RateDiff_Loss + _GLHeader_RateDiffParameterYear.ChartOfAccounts_RateDiff_Win = _GLHeader_RateDiffParameter.ChartOfAccounts_RateDiff_Win + _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Loss = _GLHeader_RateDiffParameter.ChartOfAccounts_Rounding_Loss + _GLHeader_RateDiffParameterYear.ChartOfAccounts_Rounding_Win = _GLHeader_RateDiffParameter.ChartOfAccounts_Rounding_Win + End If + Next + End If + End Sub + Private Sub _2012_04_13(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString <= "11.2.8.1020" Then + Dim _Apartments_Collection As New XPCollection(Of Apartments)(ObjectSpace.Session) + Dim _Apartments As Apartments + For Each _Apartments In _Apartments_Collection + If _Apartments.AreaNettoForCostRecord = 0 Then + _Apartments.AreaNettoForCostRecord = _Apartments.AreaNettoForSale + _Apartments.Save() + End If + + Dim _Garages_Collection As New XPCollection(Of Garages)(ObjectSpace.Session) + Dim _Garages As Garages + For Each _Garages In _Garages_Collection + If _Garages.AreaNettoForCostRecord = 0 Then + _Garages.AreaNettoForCostRecord = _Garages.AreaNetto + _Garages.Save() + End If + Next + + Dim _Offices_Collection As New XPCollection(Of Offices)(ObjectSpace.Session) + Dim _Offices As Offices + For Each _Offices In _Offices_Collection + If _Offices.AreaNettoForCostRecord = 0 Then + _Offices.AreaNettoForCostRecord = _Offices.AreaNetto + _Offices.Save() + End If + Next + + Dim _Container_Collection As New XPCollection(Of Container)(ObjectSpace.Session) + Dim _Container As Container + For Each _Container In _Container_Collection + If _Container.AreaNettoForCostRecord = 0 Then + _Container.AreaNettoForCostRecord = _Container.AreaNetto + _Container.Save() + End If + Next + Next + End If + End Sub + Private Sub _2012_03_10(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "11.2.8.1026" Then + + + 'Dim _GLRows_Collection As New XPCollection(Of GLRows)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(GLHeader)=False and GLHeader.IsEditable=False")) + 'Dim _GLRows As GLRows + + 'For Each _GLRows In _GLRows_Collection + ' If _GLRows.DateExecution = Nothing Then + ' _GLRows.DateExecution = _GLRows.GLHeader.DateExecution.Date + ' End If + 'Next + + 'Dim _RegistryRowsFinancialControlling_Collection As New XPCollection(Of RegistryRowsFinancialControlling)(ObjectSpace.Session, CriteriaOperator.Parse("isnull(RegistryHeader)=False and RegistryHeader.IsEditable=False and RegistryHeader.RegistryType.RegistryMainType in ('eAccount')")) + 'Dim _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling + + 'For Each _RegistryRowsFinancialControlling In _RegistryRowsFinancialControlling_Collection + ' If _RegistryRowsFinancialControlling.DateExecution = Nothing Then + ' _RegistryRowsFinancialControlling.DateExecution = _RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date + ' End If + 'Next + + End If + End Sub + Private Sub _2012_05_02(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString <= "11.2.8.1027" Then + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(ObjectSpace.Session) + Dim _CustomersFrom As CustomersFrom + Dim _GLMixedNG As GLMixedNG + Dim _NumberGeneratorGroups As NumberGeneratorGroups = ObjectSpace.FindObject(Of NumberGeneratorGroups)(New BinaryOperator("ShortName", "Vegyes könyvelési tranzakciók")) + Dim _NG As NumberGenerator + + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = ObjectSpace.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.ShortName = "Vegyes könyvelési tranzakciók" + _NumberGeneratorGroups.Description = "Vegyes könyvelési tranzakciók" + _NumberGeneratorGroups.Save() + End If + + For Each _CustomersFrom In _CustomersFrom_Collection + + _GLMixedNG = ObjectSpace.FindObject(Of GLMixedNG)(CriteriaOperator.Parse("CustomersFrom=?", _CustomersFrom)) + + If _GLMixedNG Is Nothing Then + _GLMixedNG = ObjectSpace.CreateObject(Of GLMixedNG)() + _GLMixedNG.CustomersFrom = _CustomersFrom + End If + + If _GLMixedNG.NumberGenerator Is Nothing Then + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "VN-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 3 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _GLMixedNG.NumberGenerator = _NG + + End If + If _GLMixedNG.NumberGenerator_RateDiff Is Nothing Then + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "V-ÁRFOLY-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 3 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _GLMixedNG.NumberGenerator_RateDiff = _NG + + End If + If _GLMixedNG.NumberGenerator_Revaluation Is Nothing Then + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "V-ÁTÉRT-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 3 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _GLMixedNG.NumberGenerator_Revaluation = _NG + + End If + If _GLMixedNG.NumberGenerator_Rounding Is Nothing Then + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.PrefixString = "V-ELENG-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 3 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + + _GLMixedNG.NumberGenerator_Rounding = _NG + End If + + _GLMixedNG.Save() + Next + + + End If + End Sub + Private Sub _2012_05_08(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _WebParameters As WebParameters = _ocur.FindObject(Of WebParameters)(CriteriaOperator.Parse("1=1")) + + If _WebParameters Is Nothing Then + _WebParameters = _ocur.CreateObject(Of WebParameters)() + _WebParameters.Save() + End If + + + End Sub + Private Sub _2012_08_31(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _TrialBalanceHeader_Collection As New XPCollection(Of TrialBalanceHeader)(_ocur.Session, CriteriaOperator.Parse("isnull(IsGLOpenClose)=True")) + Dim _TrialBalanceHeader As TrialBalanceHeader + + For Each _TrialBalanceHeader In _TrialBalanceHeader_Collection + _TrialBalanceHeader.IsGLOpenClose = False + _TrialBalanceHeader.Save() + Next + + End Sub + Private Sub _2012_10_29(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.1.7.1002" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.IsEditable=False")) + Dim _InvoiceRows As InvoiceRows + For Each _InvoiceRows In _InvoiceRows_Collection + _InvoiceRows.CalculateSum() + _ocur.CommitChanges() + Next + End If + End Sub + Private Sub _2012_11_08(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.1.7.1002" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _APCSheetByProducts_Collection As New XPCollection(Of APCSheetByProducts)(_ocur.Session, CriteriaOperator.Parse("FundingAmountHUF-FundingAmountUsedHUF<>FundingAmountAvailableHUF")) + Dim _APCSheetByProducts As APCSheetByProducts + For Each _APCSheetByProducts In _APCSheetByProducts_Collection + _APCSheetByProducts.FundingAmountAvailableHUF = _APCSheetByProducts.FundingAmountHUF - _APCSheetByProducts.FundingAmountUsedHUF + _ocur.CommitChanges() + Next + End If + End Sub + Private Sub _2013_04_17(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.1.8.1036" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _uow As New UnitOfWork(_ocur.Session.DataLayer) + Dim _GLAccounts As GLAccounts + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_ocur.Session, + CriteriaOperator.Parse("IsNull(ConnectInfo)=True or ConnectInfo=''")) + For Each _GLAccounts In _GLAccounts_Collection + _GLAccounts.ConnectInfo = _GLAccounts.DocumentNumber + _GLAccounts.Save() + '_ocur.CommitChanges() + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + '_uow.CommitChanges() + Next + End If + End Sub + Private Sub _2013_04_25(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.1.8.1036" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _GLAccounts_Collection As New XPCollection(Of GLAccounts)(_ocur.Session, CriteriaOperator.Parse("IsNull(ImportedRegistryHeader)=False and GetDate(DatePayment)<>GetDate(ImportedRegistryHeader.F_DatePayment)")) + Dim _GLAccounts As GLAccounts + Dim _PCIGroup As PCIGroup + Dim _PCIDetail As PCIDetail + + For Each _GLAccounts In _GLAccounts_Collection + _GLAccounts.DatePayment = _GLAccounts.ImportedRegistryHeader.F_DatePayment + _PCIGroup = _ocur.FindObject(Of PCIGroup)(CriteriaOperator.Parse("CustomersFrom=? and PartnerType=1 and Customers=? and ConnectInfo=?", + _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.ConnectInfo)) + If _PCIGroup IsNot Nothing Then + _PCIGroup.DatePayment_Account = _GLAccounts.DatePayment + Dim _PCIDetail_Collection As New XPCollection(Of PCIDetail)(_ocur.Session, CriteriaOperator.Parse("PCIGroup=?", _PCIGroup)) + For Each _PCIDetail In _PCIDetail_Collection + _PCIDetail.DatePayment_Account = _PCIGroup.DatePayment_Account + Next + End If + + _ocur.CommitChanges() + Next + End If + End Sub + Private Sub _2013_07_23(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.2.11.1001" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, + CriteriaOperator.Parse("IsFactoring=True and IsNull(InvoiceFactoringBank)=True and Factoring_Send_Number<>'' and Factoring_Send=True")) + Dim _InvoiceFactoringBank As InvoiceFactoringBank + + For Each _InvoiceHeader In _InvoiceHeader_Collection + _InvoiceFactoringBank = _ocur.FindObject(Of InvoiceFactoringBank)(CriteriaOperator.Parse("Factoring_Send_Number=?", _InvoiceHeader.Factoring_Send_Number)) + If _InvoiceFactoringBank Is Nothing Then + _InvoiceFactoringBank = _ocur.CreateObject(Of InvoiceFactoringBank)() + _InvoiceFactoringBank.Factoring_Send_Number = _InvoiceHeader.Factoring_Send_Number + _InvoiceFactoringBank.Factoring_Send_Date = _InvoiceHeader.Factoring_Send_Date + _InvoiceFactoringBank.Customers = _InvoiceHeader.Customers + _InvoiceFactoringBank.CustomersFrom = _InvoiceHeader.CustomersFrom + End If + _InvoiceHeader.InvoiceFactoringBank = _InvoiceFactoringBank + _ocur.CommitChanges() + Next + + + End If + End Sub + Private Sub _2013_07_23_1(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "12.2.11.1001" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _InvoiceFactoringBank As InvoiceFactoringBank + Dim _InvoiceHeader As InvoiceHeader + Dim _InvoiceFactoringBank_Collection As New XPCollection(Of InvoiceFactoringBank)(_ocur.Session, CriteriaOperator.Parse(" IsNull(FileData)=True")) + For Each _InvoiceFactoringBank In _InvoiceFactoringBank_Collection + For Each _InvoiceHeader In _InvoiceFactoringBank.InvoiceHeader + If _InvoiceHeader.Factoring_PDF_Signed IsNot Nothing Then + _InvoiceFactoringBank.FileData = _InvoiceHeader.Factoring_PDF_Signed + Exit For + End If + Next + Next + _ocur.CommitChanges() + + 'Dim _InvoiceHeader_Collection As New XPCollection(Of InvoiceHeader)(_ocur.Session, CriteriaOperator.Parse("IsNull(IsAssetsHandling)=True")) + 'For Each _InvoiceHeader In _InvoiceHeader_Collection + ' _InvoiceHeader.IsAssetsHandling = True + ' _ocur.CommitChanges() + 'Next + + + End If + End Sub + Private Sub _2014_02_14(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "13.2.6.1001" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _GLRows As GLRows = Nothing + Dim _GLAccounts As GLAccounts = Nothing + Dim _GLRows_Collection As New XPCollection(Of GLRows)(_ocur.Session, CriteriaOperator.Parse("PartnerType<>-1 and (ConnectInfo='' or IsNull(ConnectInfo)=True)")) + For Each _GLRows In _GLRows_Collection + If TryCast(_GLRows.GLHeader, GLAccounts) IsNot Nothing Then + _GLAccounts = TryCast(_GLRows.GLHeader, GLAccounts) + If String.IsNullOrEmpty(_GLAccounts.ConnectInfo) = False Then + _GLRows.ConnectInfo = _GLAccounts.ConnectInfo + End If + End If + Next + _ocur.CommitChanges() + End If + End Sub + Private Sub _2014_03_07(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "13.2.6.1004" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _NumberGeneratorSemafor_Collection As New XPCollection(Of NumberGeneratorSemafor)(_ocur.Session) + Dim _NumberGeneratorSemafor As NumberGeneratorSemafor + + For Each _NumberGeneratorSemafor In _NumberGeneratorSemafor_Collection + If _NumberGeneratorSemafor.NewNumberPerMonth = True Then + Else + _NumberGeneratorSemafor.NewNumberPerMonth = False + + End If + Next + _ocur.CommitChanges() + End If + End Sub + Private Sub _2016_01_28(ByVal ObjectSpace As Xpo.XPObjectSpace, ByVal currentDBVersion As Version) + If currentDBVersion.ToString < "15.1.8.1002" Then + Dim _ocur As Xpo.XPObjectSpace = TryCast(ObjectSpace, Xpo.XPObjectSpace) + Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("IsNull(Products.CustomersOrder01)=True or IsNull(Products.CustomersOrder02)=True")) + + For Each _CustomersOrderPriority As CustomersOrderPriority In _CustomersOrderPriority_Collection + If _CustomersOrderPriority.Products IsNot Nothing Then + _CustomersOrderPriority.Products.Parameter_10 = "-" + End If + + Next + _ocur.CommitChanges() + End If + End Sub + Private Sub ExecuteSQLCommands(ByVal _FileName As String) + 'Dim sArray() As String + 'Dim con As New SqlConnection(GLOBAL_ConnectionString) + 'Dim cmd As New SqlCommand + 'Dim i As Long + 'Dim s As String + 's = File.OpenText(_FileName).ReadToEnd + 'sArray = Split(s, "go") + 'Try + ' con.Open() + ' If con.State = System.Data.ConnectionState.Open Then + ' For i = LBound(sArray) To UBound(sArray) + ' cmd.Connection = con + ' cmd.CommandType = System.Data.CommandType.Text + ' If LTrim(RTrim(sArray(i))) <> "" Then + ' cmd.CommandText = sArray(i) + ' cmd.ExecuteNonQuery() + ' End If + ' Next i + ' End If + 'Catch e As Exception + ' MsgBox(e) + 'End Try + End Sub + Private Sub SetDefaultStorage(ByVal _ocur As Xpo.XPObjectSpace) + Dim _Storage As Storage + Dim _CustomersFrom As CustomersFrom = _ocur.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=Oid")) + Dim _NumberGenerator + Dim _NumberGeneratorGroups As NumberGeneratorGroups + Dim _StorageMoveType As StorageMoveType + + If _CustomersFrom Is Nothing Then Exit Sub + + _Storage = _ocur.FindObject(Of Storage)(CriteriaOperator.Parse("Oid=Oid")) + + If _Storage Is Nothing Then + '-- 1. Raktár felvitele + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Raktári sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Raktári sorszámok" + _NumberGeneratorGroups.ShortName = "Raktári sorszámok" + End If + _Storage = _ocur.CreateObject(Of Storage)() + _Storage.Address = _CustomersFrom.Address1 + _Storage.CustomersFrom = _CustomersFrom + _Storage.Description = "1. Raktár" + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "BETÁR-1" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Betárolás 1. raktár" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorIn = _NumberGenerator + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "BETÁR-1-S" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Betárolás 1. raktár stornó" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorInS = _NumberGenerator + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "KITÁR-1" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Kitárolás 1. raktár" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorOut = _NumberGenerator + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "KITÁR-1-S" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Kitárolás 1. raktár stornó" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _Storage.NumberGeneratorOutS = _NumberGenerator + _Storage.ShortName = "1. Raktár" + + _Storage.Save() + '-- 2. Raktár felvitele + + '-- 3. Bizományos raktár felvitele + + '-- 4. Eszköz raktár felvitele + + '-- 5. Fogyóeszköz raktár felvitele + + '-- 6. + End If + + Dim _OrderInParameters As OrderInParameters = _ocur.FindObject(Of OrderInParameters)(CriteriaOperator.Parse("Oid=Oid")) + + If _OrderInParameters Is Nothing Then + _StorageMoveType = _ocur.CreateObject(Of StorageMoveType)() + _StorageMoveType.MoveType = eMoveType.Sales + + + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Rendelési sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Rendelési sorszámok" + _NumberGeneratorGroups.ShortName = "Rendelési sorszámok" + End If + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "V-REND" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Vevői rendelés" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _OrderInParameters = _ocur.CreateObject(Of OrderInParameters)() + + _OrderInParameters.CustomersFrom = _CustomersFrom + _OrderInParameters.CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _OrderInParameters.Description = "Bejövő megrendelés HUF paraméter" + _OrderInParameters.ShortName = "Bejövő megrendelés HUF paraméter" + + _OrderInParameters.NumberGenerator = _NumberGenerator + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "V-REND-IG" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Vevői rendelés visszaigazolása" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _OrderInParameters.NumberGeneratorAcknowledgement = _NumberGenerator + _OrderInParameters.StorageMoveType = _StorageMoveType + + _OrderInParameters.Save() + End If + + Dim _OfferInParameters As OfferInParameters = _ocur.FindObject(Of OfferInParameters)(CriteriaOperator.Parse("Oid=Oid")) + + If _OfferInParameters Is Nothing Then + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Ajánlati sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Ajánlati sorszámok" + _NumberGeneratorGroups.ShortName = "Ajánlati sorszámok" + End If + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "AJ-BE" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő ajánlat" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _OfferInParameters = _ocur.CreateObject(Of OfferInParameters)() + + _OfferInParameters.CustomersFrom = _CustomersFrom + _OfferInParameters.Description = "Bejövő ajánlat paraméter" + _OfferInParameters.ShortName = "Bejövő ajánlat paraméter" + _OfferInParameters.NumberGenerator = _NumberGenerator + + _OfferInParameters.Save() + End If + + Dim _OfferOutParameters As OfferOutParameters = _ocur.FindObject(Of OfferOutParameters)(CriteriaOperator.Parse("Oid=Oid")) + + If _OfferOutParameters Is Nothing Then + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Ajánlati sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Ajánlati sorszámok" + _NumberGeneratorGroups.ShortName = "Ajánlati sorszámok" + End If + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "AJ-KI" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Kimenő ajánlat" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _OfferOutParameters = _ocur.CreateObject(Of OfferOutParameters)() + + _OfferOutParameters.CustomersFrom = _CustomersFrom + _OfferOutParameters.Description = "Kimenő ajánlat paraméter" + _OfferOutParameters.ShortName = "Bejövő ajánlat paraméter" + _OfferOutParameters.NumberGenerator = _NumberGenerator + + _OfferOutParameters.Save() + End If + + Dim _DeliveryNoteOutType As DeliveryNoteOutType = _ocur.FindObject(Of DeliveryNoteOutType)(CriteriaOperator.Parse("Oid=Oid")) + If _DeliveryNoteOutType Is Nothing Then + + _DeliveryNoteOutType = _ocur.CreateObject(Of DeliveryNoteOutType)() + + _DeliveryNoteOutType.Description = "Vevői szállítólevél" + _DeliveryNoteOutType.ExportMode = eExportMode.eInternalwithVAT + _DeliveryNoteOutType.IsPrice = True + + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Szállítólevél sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Szállítólevél sorszámok" + _NumberGeneratorGroups.ShortName = "Szállítólevél sorszámok" + End If + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "V-SZÁLL" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Vevői szállítólevél" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _DeliveryNoteOutType.NumberGenerator = _NumberGenerator + _DeliveryNoteOutType.ShortName = "Vevői szállítólevél" + + _DeliveryNoteOutType.Save() + + End If + Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.FindObject(Of DeliveryNoteInType)(CriteriaOperator.Parse("Oid=Oid")) + If _DeliveryNoteInType Is Nothing Then + + _DeliveryNoteInType = _ocur.CreateObject(Of DeliveryNoteInType)() + + _DeliveryNoteInType.Description = "Szállítói szállítólevél" + _DeliveryNoteInType.ImportMode = eImportMode.eInternalwithVAT + _DeliveryNoteInType.IsPrice = False + + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Szállítólevél sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Szállítólevél sorszámok" + _NumberGeneratorGroups.ShortName = "Szállítólevél sorszámok" + End If + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "S-SZÁLL" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Szállítói szállítólevél" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _DeliveryNoteInType.NumberGenerator = _NumberGenerator + _DeliveryNoteInType.ShortName = "Szállítói szállítólevél" + + _DeliveryNoteInType.Save() + + End If + End Sub + Private Sub SetWorkflow(ByVal _ocur As Xpo.XPObjectSpace) + Dim _CustomersFrom As CustomersFrom = _ocur.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=Oid")) + If _CustomersFrom Is Nothing Then Exit Sub + + Dim _WorkflowSystemSteps As WorkflowSystemSteps + Dim _NumberGeneratorGroups As NumberGeneratorGroups + Dim _NumberGenerator As NumberGenerator + Dim _RegistryType As RegistryType = _ocur.FindObject(Of RegistryType) _ + (CriteriaOperator.Parse("Oid=Oid")) + + Dim _WorkflowSystem As WorkflowSystem = _ocur.FindObject(Of WorkflowSystem) _ + (CriteriaOperator.Parse("Oid=Oid")) + If _WorkflowSystem Is Nothing Then + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Szállítói számla iktatása" + _WorkflowSystem.PartnerType = ePartnerType.ePayabels + _WorkflowSystem.ShortName = "Szállítói számla iktatása" + _WorkflowSystem.Save() + + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Iktatórendszer'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Iktatórendszer" + _NumberGeneratorGroups.ShortName = "Iktatórendszer" + End If + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "BSZ" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő számla iktatási sorszáma" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eNotSet + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eAccount + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő számla iktatása" + + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Számla iktatása + ÁFA" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Szállítói számla iktatása + ÁFA bontása" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Számla igazolása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckControlling + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Szállítói számla igazolása" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "3. Számla könyvelése" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 3 + _WorkflowSystemSteps.TaskDescription = "Szállítói számla könyvelése" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.IsReadyForImport = True + _WorkflowSystemSteps.Save() + + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Bejövő posta iktatása" + _WorkflowSystem.PartnerType = ePartnerType.ePayabels + _WorkflowSystem.ShortName = "Bejövő posta iktatása" + _WorkflowSystem.Save() + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "BL" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő posta iktatása" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eNotSet + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eOther + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő posta iktatása" + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Postabontás + iktatás" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Postabontás + iktatás" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Felelős áttekintése" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Felelős áttekintése" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "3. Irattározva" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 3 + _WorkflowSystemSteps.TaskDescription = "Irattározva" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.IsReadyForImport = True + _WorkflowSystemSteps.Save() + + End If + End Sub + Private Sub SetDefaultfixedAssets(ByVal ObjectSpace As Xpo.XPObjectSpace) + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(TryCast(ObjectSpace, Xpo.XPObjectSpace).Session) + Dim _CustomersFrom As CustomersFrom + Dim _NG As NumberGenerator + Dim _NumberGeneratorGroups As NumberGeneratorGroups + Dim _FixedAssetsNGParameters As FixedAssetsNGParameters + + + _NumberGeneratorGroups = ObjectSpace.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Tárgyieszköz sorszámok'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = ObjectSpace.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.ShortName = "Tárgyieszköz sorszámok" + _NumberGeneratorGroups.Description = "Tárgyieszköz sorszámok" + _NumberGeneratorGroups.Save() + End If + + For Each _CustomersFrom In _CustomersFrom_Collection + _FixedAssetsNGParameters = ObjectSpace.FindObject(Of FixedAssetsNGParameters)(CriteriaOperator.Parse("CustomersFrom=?", _CustomersFrom)) + If _FixedAssetsNGParameters Is Nothing Then + _FixedAssetsNGParameters = ObjectSpace.CreateObject(Of FixedAssetsNGParameters)() + _FixedAssetsNGParameters.CustomersFrom = _CustomersFrom + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Aktiválás" + _NG.PrefixString = "TE-AKT" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_Activation = _NG + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Értékcsökkenés" + _NG.PrefixString = "TE-ÉCS" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_Decrepation = _NG + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Kivezetés selejtezés" + _NG.PrefixString = "TE-SEL" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_Disposal = _NG + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Kivezetés értékesítés" + _NG.PrefixString = "TE-ÉRT" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_Sold = _NG + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Kivezetés leltárhiány" + _NG.PrefixString = "TE-LEH" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_InventoryShortage = _NG + + _NG = ObjectSpace.CreateObject(Of NumberGenerator)() + _NG.NumberGeneratorGroups = _NumberGeneratorGroups + _NG.ShortName = "Tárgyieszközök" + _NG.PrefixString = "TE" + _NG.PrefixTag = "-" + _NG.SuffixString = "-" + _NG.NewNumberPerYear = True + _NG.YearFormat = eYearFormat.YearTwoDigit + _NG.SerialNumberDigit = 4 + _NG.SerialNumberPlace = ePlace.Right + _NG.Save() + _FixedAssetsNGParameters.NumberGenerator_UniqueObjects = _NG + + _FixedAssetsNGParameters.Save() + + End If + Next + + + + End Sub + Private Sub SetCRM(ByVal _ocur As Xpo.XPObjectSpace) + Dim _CustomersFrom As CustomersFrom = _ocur.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=Oid")) + If _CustomersFrom Is Nothing Then Exit Sub + + Dim _CRM_Opportunities_Probability As CRM_Opportunities_Probability = _ocur.FindObject(Of CRM_Opportunities_Probability)(CriteriaOperator.Parse("Oid=Oid")) + + If _CRM_Opportunities_Probability Is Nothing Then + _CRM_Opportunities_Probability = _ocur.CreateObject(Of CRM_Opportunities_Probability)() + _CRM_Opportunities_Probability.Probability = 0 + _CRM_Opportunities_Probability.ShortName = "Elvesztett" + + _CRM_Opportunities_Probability = _ocur.CreateObject(Of CRM_Opportunities_Probability)() + _CRM_Opportunities_Probability.Probability = 30 + _CRM_Opportunities_Probability.ShortName = "Árajánlatot kér" + + _CRM_Opportunities_Probability = _ocur.CreateObject(Of CRM_Opportunities_Probability)() + _CRM_Opportunities_Probability.Probability = 50 + _CRM_Opportunities_Probability.ShortName = "Árajánlat kiadva" + + _CRM_Opportunities_Probability = _ocur.CreateObject(Of CRM_Opportunities_Probability)() + _CRM_Opportunities_Probability.Probability = 80 + _CRM_Opportunities_Probability.ShortName = "Áralku" + + _CRM_Opportunities_Probability = _ocur.CreateObject(Of CRM_Opportunities_Probability)() + _CRM_Opportunities_Probability.Probability = 100 + _CRM_Opportunities_Probability.ShortName = "Megnyert" + + + End If + Dim _CRM_FirstMeet As CRM_FirstMeet = _ocur.FindObject(Of CRM_FirstMeet)(CriteriaOperator.Parse("Oid=Oid")) + If _CRM_FirstMeet Is Nothing Then + _CRM_FirstMeet = _ocur.CreateObject(Of CRM_FirstMeet)() + _CRM_FirstMeet.DefaultforBusiness = True + _CRM_FirstMeet.ShortName = "Meglévő ügyfelünk" + + _CRM_FirstMeet = _ocur.CreateObject(Of CRM_FirstMeet)() + _CRM_FirstMeet.DefaultforBusiness = False + _CRM_FirstMeet.ShortName = "Direkt marketing" + + _CRM_FirstMeet = _ocur.CreateObject(Of CRM_FirstMeet)() + _CRM_FirstMeet.DefaultforBusiness = False + _CRM_FirstMeet.ShortName = "Ügyfél ajánlás" + + _CRM_FirstMeet = _ocur.CreateObject(Of CRM_FirstMeet)() + _CRM_FirstMeet.DefaultforBusiness = False + _CRM_FirstMeet.ShortName = "Kiállítás alatti ismerkedés" + + _CRM_FirstMeet = _ocur.CreateObject(Of CRM_FirstMeet)() + _CRM_FirstMeet.DefaultforBusiness = False + _CRM_FirstMeet.ShortName = "Hirdetés, reklám, kampány" + End If + + Dim _WorkflowSystem As WorkflowSystem = _ocur.FindObject(Of WorkflowSystem)(CriteriaOperator.Parse("PartnerType=0")) + If _WorkflowSystem Is Nothing Then + Dim _NumberGeneratorGroups As NumberGeneratorGroups + Dim _NumberGenerator As NumberGenerator + Dim _RegistryType As RegistryType + Dim _WorkflowSystemSteps As WorkflowSystemSteps + + _NumberGeneratorGroups = _ocur.FindObject(Of NumberGeneratorGroups)(CriteriaOperator.Parse("ShortName='Iktatórendszer'")) + If _NumberGeneratorGroups Is Nothing Then + _NumberGeneratorGroups = _ocur.CreateObject(Of NumberGeneratorGroups)() + _NumberGeneratorGroups.Description = "Iktatórendszer" + _NumberGeneratorGroups.ShortName = "Iktatórendszer" + End If + + '-- Bejövő árajánlat kérés CRM folyamata ------------------------------------------------------------------------------- + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Bejövő árajánlat kérés" + _WorkflowSystem.PartnerType = ePartnerType.eReceivables + _WorkflowSystem.ShortName = "Bejövő árajánlat kérés" + _WorkflowSystem.Save() + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "B-AJK" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő ajánlat kérés iktatási sorszáma" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eOfferInAsk + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eCRM + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő ajánlat kérés" + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Ajánlatkérés iktatása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Ajánlatkérés iktatása" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Ajánlatkérés feldolgozása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Ajánlatkérés feldolgozása" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "4. Ajánlat vezetői ellenőrzése" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 4 + _WorkflowSystemSteps.TaskDescription = "Ajánlat vezetői ellenőrzése" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "5. Ajánlat kiadva" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 5 + _WorkflowSystemSteps.TaskDescription = "Ajánlat kiadva" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "6. Ajánlatkérés elvetése" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 6 + _WorkflowSystemSteps.TaskDescription = "Ajánlatkérés elvetése" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + '---------------------------------------------------------------------------------------------------------------------------- + '-- Bejövő árajánlat CRM folyamata + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Bejövő árajánlat" + _WorkflowSystem.PartnerType = ePartnerType.ePayabels + _WorkflowSystem.ShortName = "Bejövő árajánlat" + _WorkflowSystem.Save() + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "B-AJ" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő ajánlat iktatási sorszáma" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eOfferIn + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eCRM + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő ajánlat" + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Ajánlat iktatása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Ajánlat iktatása" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Ajánlat feldolgozása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Ajánlatkérés feldolgozása" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "3. Ajánlat elfogadása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 3 + _WorkflowSystemSteps.TaskDescription = "Ajánlat elfogadása" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "4. Ajánlat elutasítása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 4 + _WorkflowSystemSteps.TaskDescription = "Ajánlat elutasítása" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + + '-- Bejövő megrendelés CRM folyamata + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Bejövő megrendelés" + _WorkflowSystem.PartnerType = ePartnerType.eReceivables + _WorkflowSystem.ShortName = "Bejövő megrendelés" + _WorkflowSystem.Save() + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "B-MR" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő megrendelés iktatási sorszáma" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eOrderIn + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eCRM + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő megrendelés" + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Megrendelés iktatása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Megrendelés iktatása" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Megrendelés feldolgozása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Megrendelés feldolgozása" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "3. Vezetői ellenőrzés" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 3 + _WorkflowSystemSteps.TaskDescription = "Vezetői ellenőrzés" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + + '-- Bejövő reklamáció folyamata + _WorkflowSystem = _ocur.CreateObject(Of WorkflowSystem)() + _WorkflowSystem.CustomersFrom = _CustomersFrom + _WorkflowSystem.Description = "Bejövő reklamáció" + _WorkflowSystem.PartnerType = ePartnerType.eNotSet + _WorkflowSystem.ShortName = "Bejövő reklamáció" + _WorkflowSystem.Save() + + _NumberGenerator = _ocur.CreateObject(Of NumberGenerator)() + _NumberGenerator.MonthAfterYear = False + _NumberGenerator.NewNumberPerYear = True + _NumberGenerator.NumberGeneratorGroups = _NumberGeneratorGroups + _NumberGenerator.PrefixString = "B-RK" + _NumberGenerator.PrefixTag = "-" + _NumberGenerator.SerialNumber = 1 + _NumberGenerator.SerialNumberDigit = 4 + _NumberGenerator.SerialNumberPlace = ePlace.Right + _NumberGenerator.ShortName = "Bejövő reklamáció iktatási sorszáma" + _NumberGenerator.SuffixString = "-" + _NumberGenerator.SuffixTag = "" + _NumberGenerator.YearFormat = eYearFormat.YearTwoDigit + + _RegistryType = _ocur.CreateObject(Of RegistryType)() + _RegistryType.CustomersFrom = _CustomersFrom + _RegistryType.NumberGenerator = _NumberGenerator + _RegistryType.RegistryCRMType = eRegistryCRMType.eComplaintIn + _RegistryType.RegistryDirection = eRegistryDirection.eInput + _RegistryType.RegistryMainType = eRegistryMainType.eCRM + _RegistryType.WorkflowSystem = _WorkflowSystem + _RegistryType.ShortName = "Bejövő reklamáció" + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "1. Reklamáció iktatása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 1 + _WorkflowSystemSteps.TaskDescription = "Reklamáció iktatása" + _WorkflowSystemSteps.Save() + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "2. Ügyintézés folyamatban" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 2 + _WorkflowSystemSteps.TaskDescription = "Ügyintézés folyamatban" + _WorkflowSystemSteps.Save() + + + _WorkflowSystemSteps = _ocur.CreateObject(Of WorkflowSystemSteps)() + _WorkflowSystemSteps.WorkflowSystem = _WorkflowSystem + _WorkflowSystemSteps.ShortName = "3. Reklamáció lezárása" + _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eNoCheck + _WorkflowSystemSteps.StepIndex = 3 + _WorkflowSystemSteps.TaskDescription = " Reklamáció lezárása" + _WorkflowSystemSteps.IsLastStep = True + _WorkflowSystemSteps.Save() + + End If + End Sub + Private Sub ProductsGant(ByVal _ocur As Xpo.XPObjectSpace) + Dim _CustomersFrom_Collection As New XPCollection(Of CustomersFrom)(_ocur.Session) + + For Each _CustomersFrom As CustomersFrom In _CustomersFrom_Collection + Dim _ProductsGant As ProductsGant = _ocur.FindObject(Of ProductsGant)(CriteriaOperator.Parse("CustomersFrom=?", _CustomersFrom)) + If _ProductsGant Is Nothing Then + _ProductsGant = New ProductsGant(_ocur.Session) + _ProductsGant.CustomersFrom = _CustomersFrom + _ProductsGant.Save() + End If + Next + End Sub + Private Sub ZIPHUUpdate(ByVal _ocur As Xpo.XPObjectSpace) + Dim _Address_Collection As New XPCollection(Of Address)(_ocur.Session) + + For Each _Address As Address In _Address_Collection + Dim _ZIPHU As ZIPHU = _ocur.FindObject(Of ZIPHU)(CriteriaOperator.Parse("Zip=?", _Address.ZipPostal)) + If _ZIPHU IsNot Nothing Then + _Address.City = _ZIPHU.City + _Address.StateProvince = _ZIPHU.County + _Address.Save() + End If + Next + End Sub + Private Sub StorageOut_Storno_Regenerate(ByVal _ocur As Xpo.XPObjectSpace) + Dim _StoregeOutHeder_Storno_Collection As New XPCollection(Of StorageOutHeader)(_ocur.Session, CriteriaOperator.Parse("IsStorno=True AND Active=False")) + + If _StoregeOutHeder_Storno_Collection.Count > 0 Then + For Each _StorageOutHeader_Storno As StorageOutHeader In _StoregeOutHeder_Storno_Collection + If Not String.IsNullOrEmpty(_StorageOutHeader_Storno.ConnectInfo) Then + + Dim _StorageOutHeader_Original As StorageOutHeader = _ocur.FindObject(Of StorageOutHeader)(CriteriaOperator.Parse("DocumentNumber=?", _StorageOutHeader_Storno.ConnectInfo)) + If _StorageOutHeader_Original IsNot Nothing Then + With _StorageOutHeader_Original + .IsStorno = True + .Active = False + .IsEditable = False + End With + + _StorageOutHeader_Original.Save() + + For Each _StorageOutRows_Original As StorageOutRows In _StorageOutHeader_Original.StorageOutRows + Dim _StorageOutRowsInRows_Storno_Collection As New XPCollection(Of StorageOutRowsInRows)(_ocur.Session, CriteriaOperator.Parse("StorageOutRows=? AND QTT<0", _StorageOutRows_Original)) + + If _StorageOutRowsInRows_Storno_Collection.Count > 0 Then + For Each _StorageOutRowsInRows_Storno As StorageOutRowsInRows In _StorageOutRowsInRows_Storno_Collection + Dim _StorageOutRows_Storno As StorageOutRows = _ocur.FindObject(Of StorageOutRows)(CriteriaOperator.Parse("StorageOutHeader=? AND QTT=?", _StorageOutHeader_Storno, _StorageOutRowsInRows_Storno.QTT)) + If _StorageOutRows_Storno IsNot Nothing Then + _StorageOutRowsInRows_Storno.StorageOutRows = _StorageOutRows_Storno + End If + + _StorageOutRowsInRows_Storno.Save() + + Next + End If + Next + End If + End If + Next + End If + End Sub + Private Sub RegistryHeader_UserCreated(ByVal _ocur As Xpo.XPObjectSpace) + Try + Dim _RegistryHeader_Collection As New XPCollection(Of RegistryHeader)(_ocur.Session, CriteriaOperator.Parse("IsNull(UserCreated)=True ")) + If _RegistryHeader_Collection.Count > 0 Then + For Each _RegistryHeader As RegistryHeader In _RegistryHeader_Collection + Dim _AuditDataItemPersistent_Collection As XPCollection(Of AuditDataItemPersistent) + _AuditDataItemPersistent_Collection = AuditedObjectWeakReference.GetAuditTrail(_ocur.Session, _RegistryHeader) + If _AuditDataItemPersistent_Collection IsNot Nothing Then + If _AuditDataItemPersistent_Collection.Count > 0 Then + For Each _AuditDataItemPersistent In _AuditDataItemPersistent_Collection + If _AuditDataItemPersistent.OperationType = "ObjectCreated" Then + Dim _User As User = _ocur.FindObject(Of User)(CriteriaOperator.Parse("UserName=?", _AuditDataItemPersistent_Collection(0).UserName)) + If _User IsNot Nothing Then + _RegistryHeader.UserCreated = _User + End If + + _RegistryHeader.Save() + + Exit For + End If + Next + End If + End If + Next + End If + Catch ex As Exception + + End Try + End Sub +End Class + diff --git a/SISBusiness.Module/app.config b/SISBusiness.Module/app.config new file mode 100644 index 0000000..852f07a --- /dev/null +++ b/SISBusiness.Module/app.config @@ -0,0 +1,44 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Module/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..c6f3531 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ABRQueryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ABRQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ABRQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReviewHeader_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReviewHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReviewHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReview_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReview_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetReview_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.APCSheetVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.AnswerVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AnswerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AnswerVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsHandlingCPBVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsHandlingCPBVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsHandlingCPBVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsPCIVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsPCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AssetsPCIVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.AuditTrailVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AuditTrailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.AuditTrailVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.BallanceVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BallanceVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.BookEntryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BookEntryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BookEntryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.BusinessDirectory_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateStatisticsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateStatisticsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateStatisticsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstateVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstate_OpportunityVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstate_OpportunityVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRMEstate_OpportunityVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_LeadsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_LeadsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_LeadsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_OpportunitiesVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_OpportunitiesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CRM_OpportunitiesVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CertificateOfContractVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CertificateOfContractVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CertificateOfContractVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsBallance_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsBallance_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsBallance_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ChartOfAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContactsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContactsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContactsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractProduct_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractProduct_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractProduct_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractReceivablesVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractReceivablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractReceivablesVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractRowsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractTemplate_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractTemplate_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractTemplate_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ContractsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ControllingVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ControllingVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CostHolderVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CostHolderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CostHolderVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CurrencyRateVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CurrencyRateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CurrencyRateVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersFileAttachment_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersFileAttachment_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersFileAttachment_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersMeeting_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersMeeting_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersMeeting_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.CustomersVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.DateYearCriteriaVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DateYearCriteriaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DateYearCriteriaVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteInVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteInVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteOutVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.DeliveryNoteOutVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.EMailSendQueueVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.EMailSendQueueVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.EMailSendQueueVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.EstateVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.EstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.EstateVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsQueryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedAssetsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedassetsCardVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedassetsCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.FixedassetsCardVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLAccountsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBankVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBankVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBankVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBaseVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBaseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLBaseVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCardVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCardVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCassaVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCassaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCassaVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCompensationVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCompensationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLCompensationVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLMixedVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLMixedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLMixedVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLOpenCloseVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLOpenCloseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLOpenCloseVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLReportCashflowVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLReportCashflowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLReportCashflowVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsDivideVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsDivideVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsDivideVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GLRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.GeneralLedgerVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GeneralLedgerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.GeneralLedgerVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPersonTasks_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPersonTasks_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPersonTasks_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPerson_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPerson_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HRPerson_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.HTMLMailTemplateVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HTMLMailTemplateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.HTMLMailTemplateVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesCostRecordVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesPriceListVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesPriceListVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesPriceListVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ImmovablesVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InstallationVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InstallationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InstallationVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.IntrastatHeader_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.IntrastatHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.IntrastatHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InventoryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InventoryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InventoryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceCreditNote_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceCreditNote_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceCreditNote_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceFactoring_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceFactoring_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceFactoring_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceHoldPopupVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceHoldPopupVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceHoldPopupVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowsPivotVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowsPivotVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceRowsPivotVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.InvoiceVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsBallanceVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsBallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsBallanceVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsReturnVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsReturnVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.LiquidAssetsReturnVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.MobileListDashboardsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.MobileListDashboardsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.MobileListDashboardsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OfferAskIn_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OfferAskIn_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OfferAskIn_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersInVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersInVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutPrintVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutPrintVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutPrintVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OffersOutVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Operation_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Operation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Operation_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OperationalLog_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OperationalLog_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OperationalLog_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInAcknowledgementVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInAcknowledgementVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInAcknowledgementVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInHeader_PermissionVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInHeader_PermissionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInHeader_PermissionVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInPrint.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInPrint.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsOtherVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsOtherVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsOtherVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInToDisposeVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInToDisposeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInToDisposeVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderInVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutStockVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutStockVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutStockVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.OrderOutVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckerVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCICheckerVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIDetailVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIDetailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIDetailVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIGroupAgingVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIGroupAgingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIGroupAgingVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PCIVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.PricingActionVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PricingActionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.PricingActionVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductFinderVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductFinderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductFinderVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsDocumentations_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsDocumentations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsDocumentations_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGant_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGant_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGant_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGroups_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGroups_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsGroups_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProductsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectPlanVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectPlanVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectPlanVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ProjectVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.QuestionVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.QuestionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.QuestionVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RRFCQueryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RRFCQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RRFCQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RTFDocumentsHandlerVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RTFDocumentsHandlerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RTFDocumentsHandlerVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RateDiffVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RateDiffVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RateDiffVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeExecutionSimpleVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeExecutionSimpleVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeExecutionSimpleVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RecipeVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryBankTransferVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryBankTransferVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryBankTransferVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryFinancialVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryFinancialVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryFinancialVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTaskVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTaskVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTaskVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTelephoneVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTelephoneVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryTelephoneVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RegistryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RepairRegistryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RepairRegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RepairRegistryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Reply_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Reply_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Reply_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Resources.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Resources.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.RolesModelSecurity.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RolesModelSecurity.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.RolesModelSecurity.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISBusinessModule.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISBusinessModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISBusinessModule.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISChatVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISChatVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SISChatVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Services_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Services_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Services_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.SetDefaultCountryHungaryVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SetDefaultCountryHungaryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SetDefaultCountryHungaryVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.SpecTranRevaluationVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SpecTranRevaluationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SpecTranRevaluationVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedLocations_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedLocations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedLocations_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageComputedVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageDateVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageDateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageDateVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageLocation_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageLocation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageLocation_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageMoveEventsVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageMoveEventsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageMoveEventsVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StoragePDACollectionHeaderVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StoragePDACollectionHeaderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StoragePDACollectionHeaderVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInPrint.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInPrint.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsInVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutPrint.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutPrint.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.StorageTransactionsOutVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Subcontractor_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Subcontractor_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Subcontractor_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Support_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Support_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Support_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.SystemTool_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SystemTool_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.SystemTool_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.TakeOverProtocolVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TakeOverProtocolVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TakeOverProtocolVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.Technologies_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Technologies_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.Technologies_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.TextCollection_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TextCollection_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TextCollection_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.TrialBalanceVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TrialBalanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.TrialBalanceVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.UniqueObjects_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.UniqueObjects_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.UniqueObjects_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.UserViewVariantsController.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.UserViewVariantsController.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.UserViewVariantsController.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.VATReportVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.VATReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.VATReportVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.ViewFilterContainerVC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ViewFilterContainerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.ViewFilterContainerVC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.WebParameters_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.WebParameters_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.WebParameters_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.WorkSheet_VC.resources b/SISBusiness.Module/obj/Debug/SISBusiness.Module.WorkSheet_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.WorkSheet_VC.resources differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.dll b/SISBusiness.Module/obj/Debug/SISBusiness.Module.dll new file mode 100644 index 0000000..51aec44 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.dll differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.pdb b/SISBusiness.Module/obj/Debug/SISBusiness.Module.pdb new file mode 100644 index 0000000..b3fa4d6 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.pdb differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.FileListAbsolute.txt b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..b406e6e --- /dev/null +++ b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.FileListAbsolute.txt @@ -0,0 +1,298 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\SISBusiness.Module.dll.config +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\SISBusiness.Module.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Debug\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.APCSheetReviewHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.APCSheetReview_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.APCSheetVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContractTemplate_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.IntrastatHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CRMEstateStatisticsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ImmovablesCostRecordVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.EstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ImmovablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceFactoring_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceCreditNote_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceRowsPivotVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceHoldPopupVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OffersOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OfferAskIn_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Operation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInHeader_PermissionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderOutStockVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PricingActionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InstallationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProductsDocumentations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProductsGant_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProductsGroups_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Services_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageComputedLocations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageDateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageLocation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageMoveEventsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Technologies_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.HTMLMailTemplateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.WebParameters_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.AssetsHandlingCPBVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.FixedassetsCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.FixedAssetsQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.FixedAssetsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLOpenCloseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLReportCashflowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PCICheckerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PCICheckVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PCIGroupAgingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.SpecTranRevaluationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProjectPlanVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryTelephoneVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CostHolderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.UniqueObjects_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ChartOfAccountsBallance_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CurrencyRateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CustomersMeeting_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CustomersFileAttachment_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.EMailSendQueueVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.HRPersonTasks_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.HRPerson_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OperationalLog_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RTFDocumentsHandlerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.TextCollection_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProjectVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.SISChatVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Support_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.SystemTool_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.AuditTrailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CertificateOfContractVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContractReceivablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContractRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContractProduct_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.DeliveryNoteInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.DeliveryNoteOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CRMEstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CRMEstate_OpportunityVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ImmovablesPriceListVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ImmovablesCostRecordExcelVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceRowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OffersInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OffersOutPrintVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInToDisposeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInAcknowledgementVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInRowsOtherVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.OrderOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContractsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RecipeExecutionSimpleVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RecipeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CRM_LeadsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CRM_OpportunitiesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProductFinderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ProductsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StoragePDACollectionHeaderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InventoryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageTransactionsInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageTransactionsInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageTransactionsOutPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageTransactionsOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Subcontractor_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.WorkSheet_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.AssetsPCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLBankVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLBaseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLRowsDivideVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.BookEntryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.LiquidAssetsReturnVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RateDiffVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.BallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.LiquidAssetsBallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ABRQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PCIDetailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.PCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.VATReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryBankTransferVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryFinancialVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryRowsFinancialControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryTaskVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RRFCQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ChartOfAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ContactsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.CustomersVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.SetDefaultCountryHungaryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.DateYearCriteriaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.ViewFilterContainerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RolesModelSecurity.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.MobileListDashboardsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.RepairRegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.AnswerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.QuestionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.Reply_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.UserViewVariantsController.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.TakeOverProtocolVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.StorageComputedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GeneralLedgerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLCassaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLCompensationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.GLMixedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.TrialBalanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.InvoiceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.SISBusinessModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Debug\SISBusiness.Module.pdb diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.GenerateResource.Cache b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..9a7c5a7 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbprojResolveAssemblyReference.cache b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..6f661ed Binary files /dev/null and b/SISBusiness.Module/obj/Debug/SISBusiness.Module.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Module/obj/Debug/hu/SISBusiness.Module.resources.dll b/SISBusiness.Module/obj/Debug/hu/SISBusiness.Module.resources.dll new file mode 100644 index 0000000..49f7469 Binary files /dev/null and b/SISBusiness.Module/obj/Debug/hu/SISBusiness.Module.resources.dll differ diff --git a/SISBusiness.Module/obj/Debug/sisbusiness.module.dll.licenses b/SISBusiness.Module/obj/Debug/sisbusiness.module.dll.licenses new file mode 100644 index 0000000..cf6c01d Binary files /dev/null and b/SISBusiness.Module/obj/Debug/sisbusiness.module.dll.licenses differ diff --git a/SISBusiness.Module/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..cd4150f Binary files /dev/null and b/SISBusiness.Module/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ABRQueryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ABRQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ABRQueryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReviewHeader_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReviewHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReviewHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReview_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReview_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetReview_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.APCSheetVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.AnswerVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.AnswerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.AnswerVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsHandlingCPBVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsHandlingCPBVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsHandlingCPBVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsPCIVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsPCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.AssetsPCIVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.AuditTrailVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.AuditTrailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.AuditTrailVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.BallanceVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.BallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.BallanceVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.BookEntryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.BookEntryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.BookEntryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.BusinessDirectory_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateStatisticsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateStatisticsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateStatisticsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstateVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstate_OpportunityVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstate_OpportunityVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRMEstate_OpportunityVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_LeadsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_LeadsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_LeadsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_OpportunitiesVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_OpportunitiesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CRM_OpportunitiesVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CertificateOfContractVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CertificateOfContractVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CertificateOfContractVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsBallance_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsBallance_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsBallance_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ChartOfAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContactsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContactsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContactsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractProduct_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractProduct_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractProduct_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractReceivablesVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractReceivablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractReceivablesVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractRowsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractRowsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractTemplate_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractTemplate_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractTemplate_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ContractsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ControllingVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ControllingVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CostHolderVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CostHolderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CostHolderVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CurrencyRateVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CurrencyRateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CurrencyRateVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersFileAttachment_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersFileAttachment_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersFileAttachment_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersMeeting_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersMeeting_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersMeeting_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.CustomersVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.DateYearCriteriaVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.DateYearCriteriaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.DateYearCriteriaVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteInVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteInVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteOutVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.DeliveryNoteOutVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.EMailSendQueueVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.EMailSendQueueVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.EMailSendQueueVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.EstateVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.EstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.EstateVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsQueryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsQueryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedAssetsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedassetsCardVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedassetsCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.FixedassetsCardVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLAccountsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBankVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBankVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBankVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBaseVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBaseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLBaseVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCardVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCardVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCassaVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCassaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCassaVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCompensationVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCompensationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLCompensationVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLMixedVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLMixedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLMixedVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLOpenCloseVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLOpenCloseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLOpenCloseVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLReportCashflowVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLReportCashflowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLReportCashflowVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsDivideVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsDivideVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsDivideVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GLRowsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.GeneralLedgerVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.GeneralLedgerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.GeneralLedgerVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPersonTasks_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPersonTasks_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPersonTasks_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPerson_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPerson_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.HRPerson_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.HTMLMailTemplateVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.HTMLMailTemplateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.HTMLMailTemplateVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesCostRecordVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesPriceListVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesPriceListVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesPriceListVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ImmovablesVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InstallationVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InstallationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InstallationVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.IntrastatHeader_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.IntrastatHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.IntrastatHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InventoryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InventoryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InventoryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceCreditNote_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceCreditNote_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceCreditNote_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceFactoring_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceFactoring_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceFactoring_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceHoldPopupVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceHoldPopupVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceHoldPopupVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowsPivotVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowsPivotVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceRowsPivotVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.InvoiceVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsBallanceVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsBallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsBallanceVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsReturnVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsReturnVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.LiquidAssetsReturnVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.MobileListDashboardsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.MobileListDashboardsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.MobileListDashboardsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OfferAskIn_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OfferAskIn_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OfferAskIn_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersInVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersInVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutPrintVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutPrintVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutPrintVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OffersOutVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Operation_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Operation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Operation_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OperationalLog_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OperationalLog_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OperationalLog_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInAcknowledgementVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInAcknowledgementVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInAcknowledgementVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInHeader_PermissionVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInHeader_PermissionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInHeader_PermissionVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInPrint.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInPrint.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsOtherVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsOtherVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsOtherVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInRowsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInToDisposeVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInToDisposeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInToDisposeVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderInVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutStockVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutStockVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutStockVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.OrderOutVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckerVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCICheckerVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIDetailVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIDetailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIDetailVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIGroupAgingVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIGroupAgingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIGroupAgingVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PCIVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.PricingActionVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.PricingActionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.PricingActionVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductFinderVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductFinderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductFinderVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsDocumentations_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsDocumentations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsDocumentations_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGant_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGant_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGant_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGroups_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGroups_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsGroups_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProductsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectPlanVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectPlanVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectPlanVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ProjectVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.QuestionVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.QuestionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.QuestionVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RRFCQueryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RRFCQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RRFCQueryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RTFDocumentsHandlerVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RTFDocumentsHandlerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RTFDocumentsHandlerVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RateDiffVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RateDiffVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RateDiffVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeExecutionSimpleVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeExecutionSimpleVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeExecutionSimpleVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RecipeVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryBankTransferVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryBankTransferVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryBankTransferVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryFinancialVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryFinancialVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryFinancialVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTaskVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTaskVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTaskVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTelephoneVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTelephoneVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryTelephoneVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RegistryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RepairRegistryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RepairRegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RepairRegistryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Reply_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Reply_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Reply_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Resources.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Resources.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.RolesModelSecurity.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.RolesModelSecurity.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.RolesModelSecurity.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.SISBusinessModule.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.SISBusinessModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.SISBusinessModule.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.SISChatVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.SISChatVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.SISChatVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Services_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Services_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Services_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.SetDefaultCountryHungaryVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.SetDefaultCountryHungaryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.SetDefaultCountryHungaryVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.SpecTranRevaluationVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.SpecTranRevaluationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.SpecTranRevaluationVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedLocations_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedLocations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedLocations_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageComputedVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageDateVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageDateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageDateVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageLocation_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageLocation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageLocation_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageMoveEventsVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageMoveEventsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageMoveEventsVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StoragePDACollectionHeaderVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StoragePDACollectionHeaderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StoragePDACollectionHeaderVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInPrint.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInPrint.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsInVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutPrint.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutPrint.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.StorageTransactionsOutVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Subcontractor_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Subcontractor_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Subcontractor_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Support_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Support_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Support_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.SystemTool_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.SystemTool_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.SystemTool_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.TakeOverProtocolVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.TakeOverProtocolVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.TakeOverProtocolVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.Technologies_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.Technologies_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.Technologies_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.TextCollection_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.TextCollection_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.TextCollection_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.TrialBalanceVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.TrialBalanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.TrialBalanceVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.UniqueObjects_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.UniqueObjects_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.UniqueObjects_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.UserViewVariantsController.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.UserViewVariantsController.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.UserViewVariantsController.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.VATReportVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.VATReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.VATReportVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.ViewFilterContainerVC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.ViewFilterContainerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.ViewFilterContainerVC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.WebParameters_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.WebParameters_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.WebParameters_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.WorkSheet_VC.resources b/SISBusiness.Module/obj/R64/SISBusiness.Module.WorkSheet_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.WorkSheet_VC.resources differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.dll b/SISBusiness.Module/obj/R64/SISBusiness.Module.dll new file mode 100644 index 0000000..0136ae0 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.dll differ diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.FileListAbsolute.txt b/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..e48d396 --- /dev/null +++ b/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.FileListAbsolute.txt @@ -0,0 +1,295 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\SISBusiness.Module.dll.config +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\R64\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.APCSheetReviewHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.APCSheetReview_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.APCSheetVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContractTemplate_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.IntrastatHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CRMEstateStatisticsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ImmovablesCostRecordVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.EstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ImmovablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceFactoring_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceCreditNote_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceRowsPivotVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceHoldPopupVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OffersOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OfferAskIn_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Operation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInHeader_PermissionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderOutStockVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PricingActionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InstallationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProductsDocumentations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProductsGant_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProductsGroups_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Services_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageComputedLocations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageDateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageLocation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageMoveEventsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Technologies_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.HTMLMailTemplateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.WebParameters_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.AssetsHandlingCPBVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.FixedassetsCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.FixedAssetsQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.FixedAssetsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLOpenCloseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLReportCashflowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PCICheckerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PCICheckVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PCIGroupAgingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.SpecTranRevaluationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProjectPlanVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryTelephoneVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CostHolderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.UniqueObjects_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ChartOfAccountsBallance_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CurrencyRateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CustomersMeeting_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CustomersFileAttachment_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.EMailSendQueueVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.HRPersonTasks_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.HRPerson_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OperationalLog_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RTFDocumentsHandlerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.TextCollection_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProjectVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.SISChatVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Support_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.SystemTool_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.AuditTrailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CertificateOfContractVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContractReceivablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContractRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContractProduct_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.DeliveryNoteInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.DeliveryNoteOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CRMEstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CRMEstate_OpportunityVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ImmovablesPriceListVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ImmovablesCostRecordExcelVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceRowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OffersInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OffersOutPrintVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInToDisposeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInAcknowledgementVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInRowsOtherVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.OrderOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContractsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RecipeExecutionSimpleVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RecipeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CRM_LeadsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CRM_OpportunitiesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProductFinderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ProductsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StoragePDACollectionHeaderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InventoryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageTransactionsInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageTransactionsInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageTransactionsOutPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageTransactionsOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Subcontractor_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.WorkSheet_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.AssetsPCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLBankVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLBaseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLRowsDivideVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.BookEntryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.LiquidAssetsReturnVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RateDiffVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.BallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.LiquidAssetsBallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ABRQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PCIDetailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.PCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.VATReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryBankTransferVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryFinancialVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryRowsFinancialControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryTaskVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RRFCQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ChartOfAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ContactsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.CustomersVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.SetDefaultCountryHungaryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.DateYearCriteriaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.ViewFilterContainerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RolesModelSecurity.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.MobileListDashboardsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.RepairRegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.AnswerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.QuestionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.Reply_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.UserViewVariantsController.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.TakeOverProtocolVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.StorageComputedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GeneralLedgerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLCassaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLCompensationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.GLMixedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.TrialBalanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.InvoiceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.SISBusinessModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\R64\SISBusiness.Module.dll diff --git a/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.GenerateResource.Cache b/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..9a7c5a7 Binary files /dev/null and b/SISBusiness.Module/obj/R64/SISBusiness.Module.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module/obj/R64/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Module/obj/R64/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..258401f Binary files /dev/null and b/SISBusiness.Module/obj/R64/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Module/obj/R64/TempPE/Service References.MNBArfolyamService.Reference.vb.dll b/SISBusiness.Module/obj/R64/TempPE/Service References.MNBArfolyamService.Reference.vb.dll new file mode 100644 index 0000000..441956c Binary files /dev/null and b/SISBusiness.Module/obj/R64/TempPE/Service References.MNBArfolyamService.Reference.vb.dll differ diff --git a/SISBusiness.Module/obj/R64/hu/SISBusiness.Module.resources.dll b/SISBusiness.Module/obj/R64/hu/SISBusiness.Module.resources.dll new file mode 100644 index 0000000..754f3b8 Binary files /dev/null and b/SISBusiness.Module/obj/R64/hu/SISBusiness.Module.resources.dll differ diff --git a/SISBusiness.Module/obj/R64/sisbusiness.module.dll.licenses b/SISBusiness.Module/obj/R64/sisbusiness.module.dll.licenses new file mode 100644 index 0000000..cf6c01d Binary files /dev/null and b/SISBusiness.Module/obj/R64/sisbusiness.module.dll.licenses differ diff --git a/SISBusiness.Module/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Module/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..6334a6f Binary files /dev/null and b/SISBusiness.Module/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ABRQueryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ABRQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ABRQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReviewHeader_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReviewHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReviewHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReview_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReview_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetReview_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.APCSheetVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.AnswerVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.AnswerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.AnswerVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsHandlingCPBVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsHandlingCPBVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsHandlingCPBVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsPCIVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsPCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.AssetsPCIVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.AuditTrailVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.AuditTrailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.AuditTrailVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.BallanceVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.BallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.BallanceVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.BookEntryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.BookEntryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.BookEntryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.BusinessDirectory_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.BusinessDirectory_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.BusinessDirectory_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateStatisticsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateStatisticsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateStatisticsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstateVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstate_OpportunityVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstate_OpportunityVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRMEstate_OpportunityVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_LeadsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_LeadsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_LeadsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_OpportunitiesVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_OpportunitiesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CRM_OpportunitiesVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CertificateOfContractVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CertificateOfContractVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CertificateOfContractVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsBallance_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsBallance_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsBallance_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ChartOfAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContactsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContactsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContactsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractProduct_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractProduct_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractProduct_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractReceivablesVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractReceivablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractReceivablesVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractRowsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractTemplate_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractTemplate_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractTemplate_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ContractsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ControllingVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ControllingVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CostHolderVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CostHolderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CostHolderVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CurrencyRateVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CurrencyRateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CurrencyRateVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersFileAttachment_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersFileAttachment_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersFileAttachment_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersMeeting_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersMeeting_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersMeeting_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.CustomersVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.DateYearCriteriaVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.DateYearCriteriaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.DateYearCriteriaVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteInVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteInVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteOutVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.DeliveryNoteOutVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.EMailSendQueueVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.EMailSendQueueVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.EMailSendQueueVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.EstateVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.EstateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.EstateVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsQueryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedAssetsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedassetsCardVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedassetsCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.FixedassetsCardVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLAccountsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLAccountsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLAccountsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBankVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBankVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBankVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBaseVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBaseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLBaseVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCardVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCardVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCardVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCassaVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCassaVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCassaVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCompensationVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCompensationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLCompensationVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLMixedVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLMixedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLMixedVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLOpenCloseVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLOpenCloseVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLOpenCloseVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLReportCashflowVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLReportCashflowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLReportCashflowVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsDivideVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsDivideVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsDivideVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GLRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.GeneralLedgerVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.GeneralLedgerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.GeneralLedgerVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPersonTasks_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPersonTasks_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPersonTasks_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPerson_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPerson_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.HRPerson_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.HTMLMailTemplateVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.HTMLMailTemplateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.HTMLMailTemplateVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordExcelVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesCostRecordVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesPriceListVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesPriceListVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesPriceListVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ImmovablesVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InstallationVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InstallationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InstallationVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.IntrastatHeader_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.IntrastatHeader_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.IntrastatHeader_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InventoryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InventoryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InventoryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceCreditNote_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceCreditNote_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceCreditNote_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceFactoring_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceFactoring_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceFactoring_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceHoldPopupVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceHoldPopupVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceHoldPopupVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowsPivotVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowsPivotVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceRowsPivotVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.InvoiceVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsBallanceVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsBallanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsBallanceVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsReturnVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsReturnVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.LiquidAssetsReturnVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.MobileListDashboardsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.MobileListDashboardsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.MobileListDashboardsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OfferAskIn_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OfferAskIn_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OfferAskIn_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersInVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersInVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutPrintVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutPrintVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutPrintVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OffersOutVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Operation_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Operation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Operation_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OperationalLog_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OperationalLog_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OperationalLog_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInAcknowledgementVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInAcknowledgementVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInAcknowledgementVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInHeader_PermissionVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInHeader_PermissionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInHeader_PermissionVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInPrint.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInPrint.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsOtherVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsOtherVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsOtherVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInRowsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInToDisposeVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInToDisposeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInToDisposeVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderInVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutStockVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutStockVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutStockVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.OrderOutVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckerVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCICheckerVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIDetailVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIDetailVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIDetailVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIGroupAgingVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIGroupAgingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIGroupAgingVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PCIVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.PricingActionVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.PricingActionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.PricingActionVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductFinderVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductFinderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductFinderVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsDocumentations_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsDocumentations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsDocumentations_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGant_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGant_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGant_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGroups_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGroups_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsGroups_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProductsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectPlanVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectPlanVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectPlanVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ProjectVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.QuestionVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.QuestionVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.QuestionVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RRFCQueryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RRFCQueryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RRFCQueryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RTFDocumentsHandlerVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RTFDocumentsHandlerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RTFDocumentsHandlerVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RateDiffVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RateDiffVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RateDiffVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeExecutionSimpleVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeExecutionSimpleVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeExecutionSimpleVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RecipeVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryBankTransferVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryBankTransferVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryBankTransferVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryFinancialVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryFinancialVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryFinancialVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryRowsFinancialControllingVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTaskVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTaskVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTaskVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTelephoneVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTelephoneVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryTelephoneVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RegistryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RepairRegistryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RepairRegistryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RepairRegistryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Reply_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Reply_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Reply_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Resources.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Resources.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.RolesModelSecurity.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.RolesModelSecurity.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.RolesModelSecurity.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.SISBusinessModule.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.SISBusinessModule.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.SISBusinessModule.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.SISChatVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.SISChatVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.SISChatVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Services_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Services_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Services_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.SetDefaultCountryHungaryVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.SetDefaultCountryHungaryVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.SetDefaultCountryHungaryVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.SpecTranRevaluationVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.SpecTranRevaluationVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.SpecTranRevaluationVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedLocations_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedLocations_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedLocations_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageComputedVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageDateVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageDateVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageDateVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageLocation_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageLocation_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageLocation_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageMoveEventsVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageMoveEventsVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageMoveEventsVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StoragePDACollectionHeaderVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StoragePDACollectionHeaderVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StoragePDACollectionHeaderVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInPrint.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInPrint.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsInVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutPrint.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutPrint.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutPrint.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.StorageTransactionsOutVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Subcontractor_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Subcontractor_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Subcontractor_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Support_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Support_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Support_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.SystemTool_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.SystemTool_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.SystemTool_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.TakeOverProtocolVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.TakeOverProtocolVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.TakeOverProtocolVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.Technologies_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.Technologies_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.Technologies_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.TextCollection_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.TextCollection_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.TextCollection_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.TrialBalanceVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.TrialBalanceVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.TrialBalanceVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.UniqueObjects_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.UniqueObjects_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.UniqueObjects_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.UserViewVariantsController.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.UserViewVariantsController.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.UserViewVariantsController.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.VATReportVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.VATReportVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.VATReportVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.ViewFilterContainerVC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.ViewFilterContainerVC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.ViewFilterContainerVC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.WebParameters_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.WebParameters_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.WebParameters_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.WorkSheet_VC.resources b/SISBusiness.Module/obj/Release/SISBusiness.Module.WorkSheet_VC.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.WorkSheet_VC.resources differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.dll b/SISBusiness.Module/obj/Release/SISBusiness.Module.dll new file mode 100644 index 0000000..7250edb Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.dll differ diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.FileListAbsolute.txt b/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..8c84945 --- /dev/null +++ b/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.FileListAbsolute.txt @@ -0,0 +1,295 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\SISBusiness.Module.dll.config +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\bin\Release\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReviewHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetReview_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.APCSheetVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContractTemplate_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.IntrastatHeader_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CRMEstateStatisticsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ImmovablesCostRecordVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.EstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ImmovablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceFactoring_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceCreditNote_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceRowsPivotVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceHoldPopupVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OffersOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OfferAskIn_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Operation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInHeader_PermissionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderOutStockVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PricingActionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InstallationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProductsDocumentations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProductsGant_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProductsGroups_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Services_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageComputedLocations_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageDateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageLocation_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageMoveEventsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Technologies_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.HTMLMailTemplateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.WebParameters_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.AssetsHandlingCPBVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.FixedassetsCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.FixedAssetsQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.FixedAssetsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLOpenCloseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLReportCashflowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PCICheckerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PCICheckVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PCIGroupAgingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.SpecTranRevaluationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProjectPlanVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryTelephoneVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CostHolderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.UniqueObjects_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ChartOfAccountsBallance_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CurrencyRateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CustomersMeeting_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CustomersFileAttachment_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.EMailSendQueueVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.HRPersonTasks_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.HRPerson_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OperationalLog_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.BusinessDirectory_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RTFDocumentsHandlerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.TextCollection_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProjectVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.SISChatVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Support_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.SystemTool_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.AuditTrailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CertificateOfContractVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContractReceivablesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContractRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContractProduct_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.DeliveryNoteInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.DeliveryNoteOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CRMEstateVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CRMEstate_OpportunityVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ImmovablesPriceListVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ImmovablesCostRecordExcelVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceRowVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OffersInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OffersOutPrintVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInToDisposeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInAcknowledgementVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInRowsOtherVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.OrderOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContractsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RecipeExecutionSimpleVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RecipeVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CRM_LeadsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CRM_OpportunitiesVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProductFinderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ProductsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StoragePDACollectionHeaderVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InventoryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageTransactionsInPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageTransactionsInVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageTransactionsOutPrint.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageTransactionsOutVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Subcontractor_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.WorkSheet_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.AssetsPCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLBankVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLBaseVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLRowsDivideVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.BookEntryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.LiquidAssetsReturnVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RateDiffVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.BallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLRowsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.LiquidAssetsBallanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ABRQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PartnerAccountConnectionInfoQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PCIDetailVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.PCIVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.VATReportVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryBankTransferVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryFinancialVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryRowsFinancialControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryTaskVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RRFCQueryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ControllingVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ChartOfAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ContactsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.CustomersVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.SetDefaultCountryHungaryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.DateYearCriteriaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.ViewFilterContainerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RolesModelSecurity.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.MobileListDashboardsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.RepairRegistryVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.AnswerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.QuestionVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.Reply_VC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.UserViewVariantsController.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.TakeOverProtocolVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.StorageComputedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GeneralLedgerVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLAccountsVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLCardVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLCassaVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLCompensationVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.GLMixedVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.TrialBalanceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.InvoiceVC.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.SISBusinessModule.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Module\obj\Release\SISBusiness.Module.dll diff --git a/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.GenerateResource.Cache b/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..9a7c5a7 Binary files /dev/null and b/SISBusiness.Module/obj/Release/SISBusiness.Module.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Module/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Module/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..4fda7b9 Binary files /dev/null and b/SISBusiness.Module/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Module/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll b/SISBusiness.Module/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll new file mode 100644 index 0000000..be88e76 Binary files /dev/null and b/SISBusiness.Module/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll differ diff --git a/SISBusiness.Module/obj/Release/hu/SISBusiness.Module.resources.dll b/SISBusiness.Module/obj/Release/hu/SISBusiness.Module.resources.dll new file mode 100644 index 0000000..1c9ea67 Binary files /dev/null and b/SISBusiness.Module/obj/Release/hu/SISBusiness.Module.resources.dll differ diff --git a/SISBusiness.Module/obj/Release/sisbusiness.module.dll.licenses b/SISBusiness.Module/obj/Release/sisbusiness.module.dll.licenses new file mode 100644 index 0000000..cf6c01d Binary files /dev/null and b/SISBusiness.Module/obj/Release/sisbusiness.module.dll.licenses differ diff --git a/SISBusiness.Module/packages.config b/SISBusiness.Module/packages.config new file mode 100644 index 0000000..2c6c3f1 --- /dev/null +++ b/SISBusiness.Module/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Console/App.config b/SISBusiness.RabbitMQ.Console/App.config new file mode 100644 index 0000000..7ebe7f5 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/App.config @@ -0,0 +1,150 @@ + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.RabbitMQ.Console/AuditTrailHandler.vb b/SISBusiness.RabbitMQ.Console/AuditTrailHandler.vb new file mode 100644 index 0000000..33e56fc --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/AuditTrailHandler.vb @@ -0,0 +1,19 @@ +Imports DevExpress.Xpo +Imports DevExpress.Persistent.AuditTrail +Imports DevExpress.Persistent.BaseImpl + +Public Module AuditTrailHandler + Public Sub InitAuditTrail(_uow As UnitOfWork) + AuditTrailService.Instance.SetXPDictionary(_uow.Dictionary) + AuditTrailService.Instance.AuditDataStore = New AuditDataStore(Of AuditDataItemPersistent, AuditedObjectWeakReference)() + AuditTrailService.Instance.BeginSessionAudit(_uow, AuditTrailStrategy.OnObjectChanged, ObjectAuditingMode.Full) + AddHandler AuditTrailService.Instance.QueryCurrentUserName, AddressOf AuditTrailService_Instance_QueryCurrentUserName + End Sub + Public Sub SaveAuditTrail(_uow As UnitOfWork) + AuditTrailService.Instance.SaveAuditData(_uow) + End Sub + Private Sub AuditTrailService_Instance_QueryCurrentUserName(sender As Object, e As QueryCurrentUserNameEventArgs) + e.CurrentUserName = "SysAdmin" + End Sub + +End Module diff --git a/SISBusiness.RabbitMQ.Console/GetCustomers.vb b/SISBusiness.RabbitMQ.Console/GetCustomers.vb new file mode 100644 index 0000000..1d77a40 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/GetCustomers.vb @@ -0,0 +1,162 @@ +Imports System.Xml +Imports DevExpress.Xpo +Imports System.Configuration +Imports SISBusiness.RabbitMQ.Module +Imports DevExpress.Data.Filtering +Imports System.Collections.Specialized +Imports DevExpress.Persistent.BaseImpl +Imports SISBusiness.Module + +Public Module GetCustomers + Public Sub CustomerImport(_XML As XmlDocument, _RootXMLTag As String, _errorLogFile As String) + Try + Dim _Oid_DH As String = _XML.SelectSingleNode(_RootXMLTag + "/id").InnerText + Dim _uow As UnitOfWork + Dim _Session As New Session + _Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + _Session.Connect() + If _Session.IsConnected Then + + _uow = New UnitOfWork(_Session.DataLayer) + '_uow.Dictionary.GetDataStoreSchema(GetType(Customers).Assembly) + 'InitAuditTrail(_uow) + Console.WriteLine(String.Format("Fogadás... {0} OID_DH:{1} Ügyfélszám:{2}", GLOBAL_Index.ToString, _Oid_DH, _XML.SelectSingleNode(_RootXMLTag + "/ugyfelszam").InnerText)) + GLOBAL_Index += 1 + + + Dim _Customers As Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", _Oid_DH)) + If _Customers Is Nothing Then + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid_DH=?", _Oid_DH)) + End If + + If _Customers IsNot Nothing Then + _Customers.Oid_DH = _Oid_DH + If _Customers.Name <> _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText Then + _Customers.Name = _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText + _Customers.FullName = _Customers.Name + End If + Dim _konyvelesi_parameter As String = _XML.SelectSingleNode(_RootXMLTag + "/konyvelesi_parameter").InnerText + Dim _NameValueCollection As NameValueCollection = ConfigurationManager.GetSection("CustomersGLParameters") + + Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("Oid=?", _NameValueCollection(_konyvelesi_parameter))) + _Customers.CustomersGLParameters = _CustomersGLParameters + Dim _Address1City As String = _XML.SelectSingleNode(_RootXMLTag + "/varos").InnerText + Dim _Address1Street As String = _XML.SelectSingleNode(_RootXMLTag + "/utca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/hazszam").InnerText + Dim _Address1ZipPostal As String = _XML.SelectSingleNode(_RootXMLTag + "/irszam").InnerText + Dim _Address1 As Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? AND Street=? AND ZipPostal=?", _Address1City, _Address1Street, _Address1ZipPostal)) + + If _Address1 Is Nothing Then + _Address1 = New Address(_uow) + With _Address1 + .City = _Address1City + .Street = _Address1Street + .ZipPostal = _Address1ZipPostal + End With + + _Customers.Address1 = _Address1 + End If + + Dim _Address2City As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesivaros").InnerText + Dim _Address2Street As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiutca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/levelezesihazszam").InnerText + Dim _Address2ZipPostal As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiirszam").InnerText + Dim _Address2 As Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? AND Street=? AND ZipPostal=?", _Address2City, _Address2Street, _Address2ZipPostal)) + + If _Address2 Is Nothing Then + _Address2 = New Address(_uow) + With _Address2 + .City = _Address2City + .Street = _Address2Street + .ZipPostal = _Address2ZipPostal + End With + + _Customers.Address1 = _Address1 + End If + + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes(_RootXMLTag + "/bankszamlaszamok") + + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_Bank As XmlNode In _XmlNode.ChildNodes + Dim _AccountNumber As String = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + Dim _ShortName As String = _Customers.FullName + " " + _AccountNumber + + Dim _CustomerBankAccounts As CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=? AND ShortName=?", _AccountNumber, _ShortName)) + If _CustomerBankAccounts Is Nothing Then + _CustomerBankAccounts = New CustomerBankAccounts(_uow) + With _CustomerBankAccounts + .AccountNumber = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + .Customers = _Customers + .ShortName = _Customers.FullName + " " + .AccountNumber + Select Case _XmlNode_Bank.SelectSingleNode("automatikusfeldolgozas").InnerText + Case "1" + .AutomaticProcessing = True + Case "0" + .AutomaticProcessing = False + Case Else + .AutomaticProcessing = False + End Select + End With + _Customers.CustomerBankAccounts.Add(_CustomerBankAccounts) + End If + Next + End If + Next + _Customers.QueueUpdated = GetSQLTime(_uow) + Else + _Customers = New Customers(_uow) + With _Customers + .Oid_DH = _Oid_DH + .CustomerNumber = _XML.SelectSingleNode(_RootXMLTag + "/ugyfelszam").InnerText + .Name = _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText + .FullName = .Name + + Dim _konyvelesi_parameter As String = _XML.SelectSingleNode(_RootXMLTag + "/konyvelesi_parameter").InnerText + Dim _NameValueCollection As NameValueCollection = ConfigurationManager.GetSection("CustomersGLParameters") + + Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("Oid=?", _NameValueCollection(_konyvelesi_parameter))) + .CustomersGLParameters = _CustomersGLParameters + + Dim _Address1 As New Address(_uow) + With _Address1 + .City = _XML.SelectSingleNode(_RootXMLTag + "/varos").InnerText + .Street = _XML.SelectSingleNode(_RootXMLTag + "/utca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/hazszam").InnerText + .ZipPostal = _XML.SelectSingleNode(_RootXMLTag + "/irszam").InnerText + End With + .Address1 = _Address1 + + Dim _Address2 As New Address(_uow) + With _Address2 + .City = _XML.SelectSingleNode(_RootXMLTag + "/levelezesivaros").InnerText + .Street = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiutca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/levelezesihazszam").InnerText + .ZipPostal = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiirszam").InnerText + End With + .Address2 = _Address2 + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes(_RootXMLTag + "/bankszamlaszamok") + + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_Bank As XmlNode In _XmlNode.ChildNodes + Dim _CustomerBankAccounts As New CustomerBankAccounts(_uow) + With _CustomerBankAccounts + .AccountNumber = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + .Customers = _Customers + .ShortName = "Bank-" & _Customers.CustomerNumber + End With + .CustomerBankAccounts.Add(_CustomerBankAccounts) + Next + End If + Next + End With + End If + 'SaveAuditTrail(_uow) + _uow.CommitChanges() + + If _Session.IsConnected Then + _Session.Disconnect() + End If + End If + Catch ex As Exception + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + End Try + End Sub +End Module diff --git a/SISBusiness.RabbitMQ.Console/GetGLAccounts.vb b/SISBusiness.RabbitMQ.Console/GetGLAccounts.vb new file mode 100644 index 0000000..cba4212 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/GetGLAccounts.vb @@ -0,0 +1,202 @@ +Imports System.Xml +Imports System.Configuration +Imports DevExpress.Xpo +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports System.Collections.Specialized + +Public Module GetGLAccounts + Public Sub GLAccountImport(_XML As XmlDocument, _errorLogFile As String) + Dim _StartTime As DateTime = Now + + GetCustomers.CustomerImport(_XML, "JsonXML/params/ugyfel", _errorLogFile) + + Dim _decimalSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator + Dim _groupSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberGroupSeparator + Dim _uow As UnitOfWork + Dim _Session As New Session + Dim _Customers As Customers + _Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + _Session.Connect() + If _Session.IsConnected Then + + + + _uow = New UnitOfWork(_Session.DataLayer) + _uow.Dictionary.GetDataStoreSchema(GetType(GLAccounts).Assembly) + InitAuditTrail(_uow) + + Dim _GLAccounts As GLAccounts = _uow.FindObject(Of GLAccounts) _ + (CriteriaOperator.Parse("PartnerType=0 and CustomersFrom=? and Customers.CustomerNumber=? and DocumentNumber=?", _ + ConfigurationManager.AppSettings("CustomersFrom").ToString, _XML.SelectSingleNode("JsonXML/params/ugyfelszam").InnerText.ToString, _ + _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString)) + Dim _GLRows As GLRows + Dim _BruttoHUF As Double = 0, _BruttoDEV As Double = 0 + Dim _VATHUF As Double = 0, _VATDEV As Double = 0 + Dim _NettoHUF As Double = 0, _NettoDEV As Double = 0 + Dim _GUID As Guid = Guid.NewGuid + Dim _NV_Controlling As NameValueCollection = ConfigurationManager.GetSection("Services_Controlling") + Dim _NV_CostHolder As NameValueCollection = ConfigurationManager.GetSection("Services_CostHolder") + Dim _NV_VAT As NameValueCollection = ConfigurationManager.GetSection("Services_VAT") + + If _GLAccounts Is Nothing Then + + + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", _XML.SelectSingleNode("JsonXML/params/ugyfelszam").InnerText.ToString)) + + If _Customers Is Nothing Then + WriteErrorLog("Nincs ügyfél rögzítve ! -> " + _XML.SelectSingleNode("JsonXML/params/ügyfelszam").InnerText.ToString, _errorLogFile) + Exit Sub + End If + + + _GLAccounts = New GLAccounts(_uow) + _GLAccounts.IsEditable = True + _GLAccounts.IsStorno = False + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLAccounts.Customers = _Customers + _GLAccounts.CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=?", ConfigurationManager.AppSettings("CustomersFrom").ToString)) + _GLAccounts.ConnectInfo = _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString + _GLAccounts.DocumentNumber = _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString + _GLAccounts.DateCreated = _XML.SelectSingleNode("JsonXML/params/kiallitas").InnerText.ToString + _GLAccounts.DateExecution = _XML.SelectSingleNode("JsonXML/params/teljesites").InnerText.ToString + _GLAccounts.DatePayment = _XML.SelectSingleNode("JsonXML/params/hatarido").InnerText.ToString + _GLAccounts.NoteHeader = _XML.SelectSingleNode("JsonXML/params/megjegyzes").InnerText.ToString + _GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLAccounts.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("ShortName='ÁTUTALÁS'")) + + + + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes("JsonXML/params/szamlasorok") + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_szamlasorok As XmlNode In _XmlNode.ChildNodes + + + _GLAccounts.row_Controlling = _uow.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _NV_Controlling(_XmlNode_szamlasorok.SelectSingleNode("szolgaltatas/szolgaltatascsoport/id").InnerText))) + _GLAccounts.row_CostHolder = _uow.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _NV_CostHolder(_XmlNode_szamlasorok.SelectSingleNode("szolgaltatas/szolgaltatascsoport/id").InnerText))) + _GLAccounts.row_VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("Oid=?", _NV_VAT(_XmlNode_szamlasorok.SelectSingleNode("afanev").InnerText))) + + _GLAccounts.row_ChartOfAccounts = _GLAccounts.row_Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + + _GLAccounts.row_AmountDEV = 0 + _GLAccounts.row_AmountHUF = CDbl(Replace(_XmlNode_szamlasorok.SelectSingleNode("nettoar").InnerText, ".", _decimalSeparator)) + + _GLAccounts.row_DateVAT = _GLAccounts.DateExecution + + + _GLAccounts.row_NoteRows = _XmlNode_szamlasorok.SelectSingleNode("megnevezes").InnerText + vbNewLine + _XmlNode_szamlasorok.SelectSingleNode("megjegyzes").InnerText + _GLAccounts.row_UniqueObjects = Nothing + _GLAccounts.row_JobNumberObjects = Nothing + _GLAccounts.row_CostPlace = Nothing + + _GLAccounts.row_ConnectInfo = _GLAccounts.ConnectInfo + + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.row_ChartOfAccounts + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLAccounts.PartnerType = ePartnerType.ePayabels + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.row_ChartOfAccounts + End If + + + _BruttoHUF = _GLAccounts.row_AmountHUF + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.row_VAT.InversState = True Then + _VATHUF = Math.Round(_BruttoHUF * _GLAccounts.row_VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF + _BruttoHUF = _NettoHUF + _VATHUF + Else + _VATHUF = Math.Round(_BruttoHUF / (1 + _GLAccounts.row_VAT.KeyValue) * _GLAccounts.row_VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + End If + Else + _VATHUF = 0 + _NettoHUF = _BruttoHUF - _VATHUF + End If + + ' -- ÁFA vizsgálata -------------------------------------------------------------------------------------------- + ' -- Létrehoz egy sort a nettó összegre ------------------------------------------------------------------------------------------ + + _GLRows = New GLRows(_uow) + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _NettoHUF + _GLRows.DebitAmountDEV = _NettoDEV + Else + _GLRows.CreditAmountHUF = _NettoHUF + _GLRows.CreditAmountDEV = _NettoDEV + End If + _GLRows.AddGLRows(_GLAccounts, _GLAccounts.row_DebitChartOfAccounts, _GLAccounts.row_CreditChartOfAccounts, _ + _NettoDEV, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLAccounts.row_DateVAT, _GLAccounts.row_VAT, _ + _GLAccounts.row_NoteRows, _GLAccounts.row_UniqueObjects, _ + _GLAccounts.row_Controlling, _GLAccounts.row_JobNumberObjects, _GLAccounts.row_CostPlace, _ + _GLAccounts.row_CostHolder, _GLAccounts.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + Next + End If + Next + + '-- ÁFA összesítés egy, egy sorban ! + Dim _XmlNodeList_afaosszesites As XmlNodeList = _XML.SelectNodes("JsonXML/params/afaosszesitesek") + For Each _XmlNode As XmlNode In _XmlNodeList_afaosszesites + If _XmlNode.HasChildNodes Then + For Each _XmlNode_afaosszesites As XmlNode In _XmlNode.ChildNodes + _VATHUF = CDbl(Replace(_XmlNode_afaosszesites.SelectSingleNode("afa").InnerText, ".", _decimalSeparator)) + _GLAccounts.row_VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("Oid=?", _NV_VAT(_XmlNode_afaosszesites.SelectSingleNode("afakulcs").InnerText))) + + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLRows = New GLRows(_uow) + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _VATHUF + _GLRows.DebitAmountDEV = _VATDEV + Else + _GLRows.CreditAmountHUF = _VATHUF + _GLRows.CreditAmountDEV = _VATDEV + End If + _GLRows.AddGLRows(_GLAccounts, _GLAccounts.row_DebitChartOfAccounts, _GLAccounts.row_CreditChartOfAccounts, _ + _VATDEV, _VATHUF, _GLAccounts.row_LiquidAssets, _ + _GLAccounts.Customers, _GLAccounts.row_DateVAT, _GLAccounts.row_VAT, _GLAccounts.row_NoteRows, _ + _GLAccounts.row_UniqueObjects, _GLAccounts.row_Controlling, _GLAccounts.row_JobNumberObjects, _ + _GLAccounts.row_CostPlace, _GLAccounts.row_CostHolder, _GLAccounts.row_ConnectInfo, _ + eGLRowsTypeVAT.eVATRow, Nothing, eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + Next + End If + Next + '// Számla véglegesítése + _GLAccounts.IsEditable = False + For Each _GLRows In _GLAccounts.GLRows + _GLRows.ConnectInfo = _GLAccounts.row_ConnectInfo + _GLRows.DateVAT = _GLAccounts.row_DateVAT + If _GLRows.GLHeader.CurrencyName.ShortName <> "HUF" Then + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + If _GLRows.GLRowsTypeVAT <> eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRateVAT, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + Else + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + End If + Next + _GLAccounts.RecalculateTotal() + End If + _uow.CommitChanges() + SaveAuditTrail(_uow) + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + _uow.CommitChanges() + Dim _EndTime As DateTime = Now + Dim _ActTime As TimeSpan = _EndTime.Subtract(_StartTime) + WriteStatisticFile(String.Format("Current time: {0}, Record: [Customer: {1}, GLAccounts: {2}]", _ActTime.ToString, _Customers.Oid_DH, _GLAccounts.DocumentNumber), Environment.CurrentDirectory + "Statistic.txt") + End If + If _Session.IsConnected Then _Session.Disconnect() + End Sub +End Module diff --git a/SISBusiness.RabbitMQ.Console/GlobalVariables.vb b/SISBusiness.RabbitMQ.Console/GlobalVariables.vb new file mode 100644 index 0000000..774613e --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/GlobalVariables.vb @@ -0,0 +1,16 @@ +Imports System.IO + +Public Module GlobalVariables + Public GLOBAL_Index As Int32 = 0 + Public Sub WriteErrorLog(_ex As String, _errorLogFile As String) + Dim _StreamWriter As New StreamWriter(_errorLogFile, True) + _StreamWriter.WriteLine(_ex) + _StreamWriter.Close() + End Sub + Public Sub WriteStatisticFile(_Text As String, _StatLogFile As String) + Dim _StreamWriter As New StreamWriter(_StatLogFile, True) + _StreamWriter.WriteLine(_Text) + _StreamWriter.Close() + End Sub + +End Module diff --git a/SISBusiness.RabbitMQ.Console/My Project/Application.Designer.vb b/SISBusiness.RabbitMQ.Console/My Project/Application.Designer.vb new file mode 100644 index 0000000..8f147f7 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34003 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.RabbitMQ.Console/My Project/Application.myapp b/SISBusiness.RabbitMQ.Console/My Project/Application.myapp new file mode 100644 index 0000000..e62f1a5 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 2 + true + diff --git a/SISBusiness.RabbitMQ.Console/My Project/AssemblyInfo.vb b/SISBusiness.RabbitMQ.Console/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..7a87639 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +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 + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.RabbitMQ.Console/My Project/Resources.Designer.vb b/SISBusiness.RabbitMQ.Console/My Project/Resources.Designer.vb new file mode 100644 index 0000000..917f9fa --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34003 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.RabbitMQ.Console/My Project/Resources.resx b/SISBusiness.RabbitMQ.Console/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Console/My Project/Settings.Designer.vb b/SISBusiness.RabbitMQ.Console/My Project/Settings.Designer.vb new file mode 100644 index 0000000..2e9c86a --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34003 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.My.MySettings + Get + Return Global.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.RabbitMQ.Console/My Project/Settings.settings b/SISBusiness.RabbitMQ.Console/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.RabbitMQ.Console/Program.vb b/SISBusiness.RabbitMQ.Console/Program.vb new file mode 100644 index 0000000..3e425c0 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/Program.vb @@ -0,0 +1,185 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Linq +Imports System.Text +Imports System.Configuration +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports System.Collections +Imports DevExpress.ExpressApp.Xpo +Imports System.ServiceModel +Imports System.Runtime.Remoting.Channels +Imports System.Security.Principal +Imports System.Threading +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.AuditTrail + +Imports RabbitMQ.Client +Imports RabbitMQ.ServiceModel +Imports RabbitMQ.Client.Events +Imports Newtonsoft.Json +Imports DevExpress.Xpo +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports System.Xml +Imports System.IO +Imports System.Collections.Specialized +Imports SISBusiness.RabbitMQ.Module + +Friend Class Program + Private Shared _Session As DevExpress.Xpo.Session + + Private Shared _TimerCore As System.Threading.Timer + Private Shared _Semaphor As Boolean = True + Private Shared _ErrorLogPath As String + Private Shared _StatLogPath As String + Shared Sub Main(ByVal args() As String) + Dim _ErrorFileHandling As String() = (ConfigurationManager.AppSettings("ErrorLogPath")).Split(New Char() {";"c}) + + If _ErrorFileHandling(0).Replace("Path=", "") = "CurrentDirectory" Then + _ErrorLogPath = Environment.CurrentDirectory + _ErrorFileHandling(1).Replace("FileName=", "") + Else + _ErrorLogPath = _ErrorFileHandling(0).Replace("Path=", "") + _ErrorFileHandling(1).Replace("FileName=", "") + End If + Dim _RunningMode As String = ConfigurationManager.AppSettings("RunningMode") + + _Session = LoginSession() + + If _Session IsNot Nothing Then + If _Session.IsConnected Then + + Select Case _RunningMode + Case "0" 'Olvas + Try + Console.WriteLine("SIS Business RabbitMQ console application version 1.2.10234, XAF Version: 12.2.11, RabbitMQ version: 3.2.1") + Console.WriteLine(_ErrorLogPath) + ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition() + + Dim _Factory_HostName As String = ConfigurationManager.AppSettings("Factory_HostName") + Dim _Factory_UserName As String = ConfigurationManager.AppSettings("Factory_UserName") + Dim _Factory_Password As String = ConfigurationManager.AppSettings("Factory_Password") + Dim _Factory_VirtualHost As String = ConfigurationManager.AppSettings("Factory_VirtualHost") + + Dim _Queue_Name As String = ConfigurationManager.AppSettings("Queue_Name") + + Console.WriteLine("Starting...") + + Dim _factory As RabbitMQ.Client.ConnectionFactory + Dim _connection As RabbitMQ.Client.IConnection + Dim _channel As RabbitMQ.Client.IModel + Dim _consumer As EventingBasicConsumer + + + _factory = New ConnectionFactory + _factory.HostName = _Factory_HostName + _factory.UserName = _Factory_UserName + _factory.Password = _Factory_Password + _factory.VirtualHost = _Factory_VirtualHost + _factory.RequestedChannelMax = 10 + + _connection = _factory.CreateConnection + _channel = _connection.CreateModel + + Console.WriteLine("Setup...") + + _consumer = New EventingBasicConsumer + + + AddHandler _consumer.Received, AddressOf Consumer_Received + + Console.WriteLine("Starting server pool...") + + ' _channel.BasicConsume(_Queue_Name, False, _consumer) 'Fenthagyni a queue-ban + _channel.BasicConsume(_Queue_Name, True, _consumer) 'Leszedni a queue-ból + + Console.WriteLine("Server is started. Press Enter to stop.") + Console.ReadLine() + Console.WriteLine("Stopping...") + + '_channel.Dispose() + _channel.Close() + _connection.Close() + + Console.WriteLine("Server is stopped.") + + Catch e As Exception + Console.WriteLine("Exception occurs: " & e.Message) + Console.WriteLine("Press Enter to close.") + Console.ReadLine() + End Try + Case "1" 'Küld + Try + Console.WriteLine("SIS Business RabbitMQ console application version 1.2.10234, XAF Version: 12.2.11, RabbitMQ version: 3.2.1") + ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition() + + Console.WriteLine("Starting...") + + Console.WriteLine("Setup...") + _TimerCore = New System.Threading.Timer(AddressOf _TimerCore_Tick, Nothing, 0, 10000) + + Console.WriteLine("Starting server send...") + + Console.WriteLine("Server is started. Press Enter to stop.") + Console.ReadLine() + Console.WriteLine("Stopping...") + + Console.WriteLine("Server is stopped.") + Catch e As Exception + Console.WriteLine("Exception occurs: " & e.Message) + Console.WriteLine("Press Enter to close.") + Console.ReadLine() + End Try + Case "2" 'Mindkettő + + Case Else + 'Gáz van + + End Select + End If + End If + End Sub + Private Shared Sub Consumer_Received(sender As IBasicConsumer, args As BasicDeliverEventArgs) + + Try + If _Session IsNot Nothing Then + Dim _JSONText As String = Encoding.UTF8.GetString(args.Body) + Dim _XML As System.Xml.XmlDocument = JsonConvert.DeserializeXmlNode(_JSONText, "JsonXML") + + If _XML IsNot Nothing Then + Dim _method As String = _XML.SelectSingleNode("JsonXML/method").InnerText + + If _method.Contains("ugyfelimport") Then GetCustomers.CustomerImport(_XML, "JsonXML/params", "", _Session, True) + If _method.Contains("szamlaimport") Then GetGLAccounts.GLAccountImport(_XML, "", _Session, True) + If _method.Contains("get_version") Then SISVersion.SendSISVersion(_XML, args.BasicProperties) + End If + Else + Throw New Exception(String.Format("Nem lehet csatlakozni az SQL serverhez. ConnenctionString:{0}", ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString)) + End If + Catch ex As Exception + WriteErrorLog((Now + " " + ex.Message).ToString, _ErrorLogPath) + End Try + End Sub + Private Shared Sub _TimerCore_Tick(ByVal state As Object) + _TimerCore.Change(Timeout.Infinite, 0) + Console.WriteLine("Küldés : " + Now) + PublishCustomers.PublishCustomers(_ErrorLogPath, _Session) + _TimerCore.Change(0, 10000) + End Sub + Private Shared Function LoginSession() As DevExpress.Xpo.Session + Dim _Session As New DevExpress.Xpo.Session + + _Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + _Session.Connect() + + If Not _Session.IsConnected Then + _Session = Nothing + End If + + Return _Session + End Function + Private Shared Sub LogoffSession(_Session As DevExpress.Xpo.Session) + _Session.Connection.Close() + End Sub +End Class + diff --git a/SISBusiness.RabbitMQ.Console/PublishCustomers.vb b/SISBusiness.RabbitMQ.Console/PublishCustomers.vb new file mode 100644 index 0000000..ad491cc --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/PublishCustomers.vb @@ -0,0 +1,225 @@ +Imports DevExpress.Xpo +Imports System.Configuration +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports System.Threading +Imports RabbitMQ.Client + +Public Module PublishCustomers + Public Sub PublishCustomers(_errorLogFile As String) + Try + Dim _Session As New Session + _Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + _Session.Connect() + If _Session.IsConnected Then + Dim _uow As New UnitOfWork(_Session.DataLayer) + Dim _Customers_Collection As New XPCollection(Of Customers)(_uow, CriteriaOperator.Parse("IsNull(Oid_DH)=False AND Oid_DH<>''")) 'CriteriaOperator.Parse("ObjectChanged>QueueUpdated")) + If _Customers_Collection.Count > 0 Then + Dim _factory As RabbitMQ.Client.ConnectionFactory + Dim _connection As RabbitMQ.Client.IConnection + Dim _channel As RabbitMQ.Client.IModel + + _factory = New ConnectionFactory + _factory.HostName = ConfigurationManager.AppSettings("Factory_HostName") + _factory.UserName = ConfigurationManager.AppSettings("Factory_UserName") + _factory.Password = ConfigurationManager.AppSettings("Factory_Password") + _factory.VirtualHost = ConfigurationManager.AppSettings("Factory_VirtualHost") + + _connection = _factory.CreateConnection + _channel = _connection.CreateModel + + Dim _Exchange_Name = ConfigurationManager.AppSettings("Exchange_Name") + Dim _Exchange_RoutingKey As String = ConfigurationManager.AppSettings("Exchange_RoutingKey") + Dim _IBasicProperties As IBasicProperties = _channel.CreateBasicProperties + + For Each _Customers As Customers In _Customers_Collection + If _Customers.ObjectChanged > _Customers.QueueUpdated Then + Dim _Text4Send As String = CreateCustomerText(_Customers, _uow, _errorLogFile) + Dim uTime As Integer + uTime = (DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)).TotalSeconds + + _IBasicProperties.Timestamp = New RabbitMQ.Client.AmqpTimestamp(uTime) + _IBasicProperties.MessageId = Guid.NewGuid().ToString + _IBasicProperties.ContentType = "application/json" + _IBasicProperties.ContentEncoding = "UTF-8" + + + _IBasicProperties.Headers = New Collections.Generic.Dictionary(Of String, Object) + _IBasicProperties.Headers.Add("mq3c-message-type", "MQ3CMessage_JSON_RPC") + + _channel.BasicPublish(_Exchange_Name, _Exchange_RoutingKey, _IBasicProperties, StrToByteArray(_Text4Send)) + _Customers.QueueUpdated = GetSQLTime(_uow) + _Customers.Save() + End If + Next + _channel.Close() + _connection.Close() + End If + _uow.CommitChanges() + End If + Catch ex As Exception + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + Finally + + End Try + End Sub + Public Function StrToByteArray(str As String) As Byte() + Dim encoding As New System.Text.UTF8Encoding() + Return encoding.GetBytes(str) + End Function + Private Function CreateCustomerText(_Customers As Customers, _Session As Session, _errorLogFile As String) As String + Dim _CustomersText As String = "" + Try + _CustomersText += "{""jsonrpc"":""2.0"",""method"":""ugyfelimport"",""params"":{ ""ugyfel"":{" + _CustomersText += """id"":""" + _Customers.Oid_DH + """," + _CustomersText += """ugyfelszam"":""" + _Customers.CustomerNumber + """," + '_CustomersText += """kulsougyfelazonosito"":""""," + _CustomersText += """nev"":""" + _Customers.Name + """," + '_CustomersText += """nev"":""" + "ÁRVÍZTŰRŐTÜKÖRFÚRÓGÉP árvíztűrőtükörfúrógép" + """," + If _Customers.Address1 IsNot Nothing Then + If _Customers.Address1.Country IsNot Nothing Then + _CustomersText += """orszag"":""" + _Customers.Address1.Country.Name + """," + Else + _CustomersText += """orszag"":""""," + End If + _CustomersText += """varos"":""" + _Customers.Address1.City + """," + '_CustomersText += """emajto"":""""," + _CustomersText += """irszam"":""" + _Customers.Address1.ZipPostal + """," + _CustomersText += """utca"":""" + _Customers.Address1.Street + """," + Else + _CustomersText += """orszag"":""""," + _CustomersText += """varos"":""""," + ''_CustomersText += """emajto"":""""," + _CustomersText += """irszam"":""""," + _CustomersText += """utca"":""""," + End If + + '_CustomersText += """hazszam"":""""," + '_CustomersText += """szigsz"":""""," + '_CustomersText += """jogositvanyszam"":""""," + '_CustomersText += """utlevelszam"":""""," + '_CustomersText += """lakcimkartyaszam"":""""," + If _Customers.MotherName IsNot Nothing Then + _CustomersText += """anyjaneve"":""" + _Customers.MotherName + """," + Else + _CustomersText += """anyjaneve"":""""," + End If + _CustomersText += """szuletesidatum"":""" + Format(_Customers.BirthDate.Date, "yyyy-MM-dd") + """," + If _Customers.BirthAddress IsNot Nothing Then + _CustomersText += """szuletesihely"":""" + _Customers.BirthAddress.City + """," + Else + _CustomersText += """szuletesihely"":""""," + End If + '_CustomersText += """szuletesinev"":""""," + '_CustomersText += """meghatalmazott_nev"":""""," + '_CustomersText += """meghatalmazott_szuletesinev"":""""," + '_CustomersText += """meghatalmazott_anyjaneve"":""""," + '_CustomersText += """meghatalmazott_szigsz"":""""," + '_CustomersText += """meghatalmazott_jogositvanyszam"":""""," + '_CustomersText += """meghatalmazott_utlevelszam"":""""," + '_CustomersText += """meghatalmazott_lakcimkartyaszam"":""""," + '_CustomersText += """telefonszam"":""""," + '_CustomersText += """fax"":""""," + _CustomersText += """email"":""" + _Customers.Email + """," + ''_CustomersText += """eszamla_email"":""""," + _CustomersText += """megjegyzes"":""" + _Customers.Description + """," + '_CustomersText += """kiemelt"":""""," + '_CustomersText += """letrehozva"":""""," + '_CustomersText += """letrehozta"":""""," + '_CustomersText += """modositva"":""""," + '_CustomersText += """modositotta"":""""," + '_CustomersText += """torolve"":""""," + '_CustomersText += """torolte"":""""," + '_CustomersText += """jelleg"":""""," + _CustomersText += """cegjegyzekszam"":""" + _Customers.CompanyRegistrationNumber + """," + If _Customers.VATNumber IsNot Nothing Then + _CustomersText += """adoszam"":""" + _Customers.VATNumber + """," + Else + _CustomersText += """adoszam"":""""," + End If + '_CustomersText += """belsomegjegyzes"":""""," + '_CustomersText += """levelezesinev"":""""," + 'If _Customers.Address2 IsNot Nothing Then + ' If _Customers.Address2.Country IsNot Nothing Then + ' _CustomersText += """levelezesiorszag"":""" + _Customers.Address2.Country.Name + """," + ' Else + ' _CustomersText += """levelezesiorszag"":""""," + ' End If + + ' _CustomersText += """levelezesivaros"":""" + _Customers.Address2.City + """," + ' _CustomersText += """levelezesiemajto"":""""," + ' _CustomersText += """levelezesiutca"":""" + _Customers.Address2.Street + """," + ' _CustomersText += """levelezesihazszam"":""""," + ' _CustomersText += """levelezesiirszam"":""" + _Customers.Address2.ZipPostal + """," + 'Else + ' _CustomersText += """levelezesiorszag"":""""," + ' _CustomersText += """levelezesivaros"":""""," + ' _CustomersText += """levelezesiemajto"":""""," + ' _CustomersText += """levelezesiutca"":""""," + ' _CustomersText += """levelezesihazszam"":""""," + ' _CustomersText += """levelezesiirszam"":""""," + 'End If + If _Customers.CanUseMarketingInfo Then + _CustomersText += """adataimarketingcelrahasznalhatok"":""1""," + Else + _CustomersText += """adataimarketingcelrahasznalhatok"":""0""," + End If + If _Customers.CanUseMarketingInfoThirdParts Then + _CustomersText += """adataimarketingcelraharmadikfelnekkiadhatok"":""1""," + Else + _CustomersText += """adataimarketingcelraharmadikfelnekkiadhatok"":""0""," + End If + '_CustomersText += """telefonszam2"":""""," + '_CustomersText += """telefonszam3"":""""," + '_CustomersText += """szorszag"":""""," + '_CustomersText += """sznev"":""""," + '_CustomersText += """szadoszam"":""""," + '_CustomersText += """szvaros"":""""," + '_CustomersText += """szemajto"":""""," + '_CustomersText += """szutca"":""""," + '_CustomersText += """szhazszam"":""""," + '_CustomersText += """szirszam"":""""," + '_CustomersText += """ugyfeljutalek"":""""," + '_CustomersText += """befizeteskonyvelendo"":""""," + '_CustomersText += """email_penzugy"":""""," + '_CustomersText += """iszamla_ugyfelazon"":""""," + '_CustomersText += """felszolitando"":""""," + '_CustomersText += """hangbemondastartozas"":""""," + '_CustomersText += """megjegyzes_szamlara"":""""," + '_CustomersText += """kapcsolattarto"":""""," + '_CustomersText += """viszonteladokod"":""""," + '_CustomersText += """viszontelado"":""""," + '_CustomersText += """vevo"":""""," + '_CustomersText += """szallito"":""""," + '_CustomersText += """konyvelesi_parameter"":""""," + '_CustomersText += """partner_ugyfelszam"":""""," + '_CustomersText += """partner_viszonteladokod"":""""," + '_CustomersText += """partner_nev"":""""," + '_CustomersText += """szulo_ugyfel_ugyfelszam"":""""," + '_CustomersText += """szulo_ugyfel_viszonteladokod"":""""," + '_CustomersText += """szulo_ugyfel_nev"":""""," + '_CustomersText += """terulet"":""""," + _CustomersText += """sis_oid"":""" + _Customers.Oid.ToString + """," + _CustomersText += """bankszamlaszamok"":{" + + + For Each _CustomerBankAccounts As CustomerBankAccounts In _Customers.CustomerBankAccounts + _CustomersText += """" + CInt(Math.Ceiling(Rnd() * 100000)).ToString + """: {" + '_CustomersText += """id"": """"," + _CustomersText += """bankszamlaszam"": """ + _CustomerBankAccounts.AccountNumber + """" + '_CustomersText += """szamlatulajdonos"": """"," + '_CustomersText += """megjegyzes"": """"," + _CustomersText += "}" + Next + + _CustomersText += "}" 'bankszámlaszámok vége vége + _CustomersText += "}},""MQ3CMessage_JSON_RPC"":{" + + _CustomersText += "}}" 'params vége és utolsó szekció + Catch ex As Exception + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + _CustomersText = "" + End Try + Return _CustomersText + End Function +End Module diff --git a/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj b/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj new file mode 100644 index 0000000..130e6a0 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj @@ -0,0 +1,160 @@ + + + + + Debug + AnyCPU + {4B7A3116-446E-4926-9EE1-EFD38E3FF151} + Exe + Sub Main + + + SISBusiness.RabbitMQ.Console + 512 + Console + v4.0 + SAK + SAK + SAK + SAK + + + + x86 + true + full + true + true + bin\Debug\ + SISBusiness.RabbitMQ.Console.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + x86 + pdbonly + false + true + true + bin\Release\ + SISBusiness.RabbitMQ.Console.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + False + + + False + + + False + + + False + + + False + + + False + + + False + ..\..\..\..\..\..\jSON\Bin\Net\Newtonsoft.Json.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.Client.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.ServiceModel.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + SISBusiness.Module + + + {ac6169db-f71a-4c6f-aa54-e21c3057e2a7} + SISBusiness.RabbitMQ.Module + + + + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj.vspscc b/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.RabbitMQ.Console/SISBusiness.RabbitMQ.Console.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.RabbitMQ.Module/App.config b/SISBusiness.RabbitMQ.Module/App.config new file mode 100644 index 0000000..58262a1 --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/App.config @@ -0,0 +1,6 @@ + + + + + + diff --git a/SISBusiness.RabbitMQ.Module/AuditTrailHandler.vb b/SISBusiness.RabbitMQ.Module/AuditTrailHandler.vb new file mode 100644 index 0000000..33e56fc --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/AuditTrailHandler.vb @@ -0,0 +1,19 @@ +Imports DevExpress.Xpo +Imports DevExpress.Persistent.AuditTrail +Imports DevExpress.Persistent.BaseImpl + +Public Module AuditTrailHandler + Public Sub InitAuditTrail(_uow As UnitOfWork) + AuditTrailService.Instance.SetXPDictionary(_uow.Dictionary) + AuditTrailService.Instance.AuditDataStore = New AuditDataStore(Of AuditDataItemPersistent, AuditedObjectWeakReference)() + AuditTrailService.Instance.BeginSessionAudit(_uow, AuditTrailStrategy.OnObjectChanged, ObjectAuditingMode.Full) + AddHandler AuditTrailService.Instance.QueryCurrentUserName, AddressOf AuditTrailService_Instance_QueryCurrentUserName + End Sub + Public Sub SaveAuditTrail(_uow As UnitOfWork) + AuditTrailService.Instance.SaveAuditData(_uow) + End Sub + Private Sub AuditTrailService_Instance_QueryCurrentUserName(sender As Object, e As QueryCurrentUserNameEventArgs) + e.CurrentUserName = "SysAdmin" + End Sub + +End Module diff --git a/SISBusiness.RabbitMQ.Module/GetCustomers.vb b/SISBusiness.RabbitMQ.Module/GetCustomers.vb new file mode 100644 index 0000000..be6704f --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/GetCustomers.vb @@ -0,0 +1,168 @@ +Imports System.Xml +Imports DevExpress.Xpo +Imports System.Configuration +Imports SISBusiness.RabbitMQ.Module +Imports DevExpress.Data.Filtering +Imports System.Collections.Specialized +Imports DevExpress.Persistent.BaseImpl +Imports SISBusiness.Module + +Public Module GetCustomers + Public Sub CustomerImport(_XML As XmlDocument, _RootXMLTag As String, _errorLogFile As String, _Session As DevExpress.Xpo.Session, Optional IsService As Boolean = False) + Try + Dim _Oid_DH As String = _XML.SelectSingleNode(_RootXMLTag + "/id").InnerText + Dim _uow As UnitOfWork + If _Session.IsConnected Then + _uow = New UnitOfWork(_Session.DataLayer) + _uow.Dictionary.GetDataStoreSchema(GetType(Customers).Assembly) + InitAuditTrail(_uow) + If Not IsService Then + WriteErrorLog(String.Format("Fogadás... {0} OID_DH:{1} Ügyfélszám:{2}", GLOBAL_Index.ToString, _Oid_DH, _XML.SelectSingleNode(_RootXMLTag + "/ugyfelszam").InnerText), _errorLogFile) + End If + GLOBAL_Index += 1 + + + Dim _Customers As Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", _Oid_DH)) + If _Customers Is Nothing Then + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("Oid_DH=?", _Oid_DH)) + End If + + If _Customers IsNot Nothing Then + _Customers.Oid_DH = _Oid_DH + If _Customers.Name <> _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText Then + _Customers.Name = _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText + _Customers.FullName = _Customers.Name + End If + _Customers.Url_DH = _XML.SelectSingleNode(_RootXMLTag + "/dh_url").InnerText + Dim _konyvelesi_parameter As String = _XML.SelectSingleNode(_RootXMLTag + "/konyvelesi_parameter").InnerText + Dim _NameValueCollection As NameValueCollection = ConfigurationManager.GetSection("CustomersGLParameters") + + Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("Oid=?", _NameValueCollection(_konyvelesi_parameter))) + _Customers.CustomersGLParameters = _CustomersGLParameters + Dim _Address1City As String = _XML.SelectSingleNode(_RootXMLTag + "/varos").InnerText + Dim _Address1Street As String = _XML.SelectSingleNode(_RootXMLTag + "/utca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/hazszam").InnerText + Dim _Address1ZipPostal As String = _XML.SelectSingleNode(_RootXMLTag + "/irszam").InnerText + Dim _Address1 As Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? AND Street=? AND ZipPostal=?", _Address1City, _Address1Street, _Address1ZipPostal)) + + If _Address1 Is Nothing Then + _Address1 = New Address(_uow) + With _Address1 + .City = _Address1City + .Street = _Address1Street + .ZipPostal = _Address1ZipPostal + End With + + _Customers.Address1 = _Address1 + End If + + Dim _Address2City As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesivaros").InnerText + Dim _Address2Street As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiutca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/levelezesihazszam").InnerText + Dim _Address2ZipPostal As String = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiirszam").InnerText + Dim _Address2 As Address = _uow.FindObject(Of Address)(CriteriaOperator.Parse("City=? AND Street=? AND ZipPostal=?", _Address2City, _Address2Street, _Address2ZipPostal)) + + If _Address2 Is Nothing Then + _Address2 = New Address(_uow) + With _Address2 + .City = _Address2City + .Street = _Address2Street + .ZipPostal = _Address2ZipPostal + End With + + _Customers.Address1 = _Address1 + End If + + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes(_RootXMLTag + "/bankszamlaszamok") + + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_Bank As XmlNode In _XmlNode.ChildNodes + Dim _AccountNumber As String = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + Dim _ShortName As String = _Customers.FullName + " " + _AccountNumber + + Dim _CustomerBankAccounts As CustomerBankAccounts = _uow.FindObject(Of CustomerBankAccounts)(CriteriaOperator.Parse("AccountNumber=? AND ShortName=?", _AccountNumber, _ShortName)) + If _CustomerBankAccounts Is Nothing Then + _CustomerBankAccounts = New CustomerBankAccounts(_uow) + With _CustomerBankAccounts + .AccountNumber = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + .Customers = _Customers + .ShortName = _Customers.FullName + " " + .AccountNumber + Select Case _XmlNode_Bank.SelectSingleNode("automatikusfeldolgozas").InnerText + Case "1" + .AutomaticProcessing = True + Case "0" + .AutomaticProcessing = False + Case Else + .AutomaticProcessing = False + End Select + End With + _Customers.CustomerBankAccounts.Add(_CustomerBankAccounts) + End If + Next + End If + Next + _Customers.QueueUpdated = GetSQLTime(_uow) + If IsService Then + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Fogadás: [Customer:" + _Customers.Oid_DH + "]") + End If + Else + _Customers = New Customers(_uow) + With _Customers + .Oid_DH = _Oid_DH + .CustomerNumber = _XML.SelectSingleNode(_RootXMLTag + "/ugyfelszam").InnerText + .Name = _XML.SelectSingleNode(_RootXMLTag + "/nev").InnerText + .FullName = .Name + .Url_DH = _XML.SelectSingleNode(_RootXMLTag + "/dh_url").InnerText + Dim _konyvelesi_parameter As String = _XML.SelectSingleNode(_RootXMLTag + "/konyvelesi_parameter").InnerText + Dim _NameValueCollection As NameValueCollection = ConfigurationManager.GetSection("CustomersGLParameters") + + Dim _CustomersGLParameters As CustomersGLParameters = _uow.FindObject(Of CustomersGLParameters)(CriteriaOperator.Parse("Oid=?", _NameValueCollection(_konyvelesi_parameter))) + .CustomersGLParameters = _CustomersGLParameters + + Dim _Address1 As New Address(_uow) + With _Address1 + .City = _XML.SelectSingleNode(_RootXMLTag + "/varos").InnerText + .Street = _XML.SelectSingleNode(_RootXMLTag + "/utca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/hazszam").InnerText + .ZipPostal = _XML.SelectSingleNode(_RootXMLTag + "/irszam").InnerText + End With + .Address1 = _Address1 + + Dim _Address2 As New Address(_uow) + With _Address2 + .City = _XML.SelectSingleNode(_RootXMLTag + "/levelezesivaros").InnerText + .Street = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiutca").InnerText + " " + _XML.SelectSingleNode(_RootXMLTag + "/levelezesihazszam").InnerText + .ZipPostal = _XML.SelectSingleNode(_RootXMLTag + "/levelezesiirszam").InnerText + End With + .Address2 = _Address2 + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes(_RootXMLTag + "/bankszamlaszamok") + + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_Bank As XmlNode In _XmlNode.ChildNodes + Dim _CustomerBankAccounts As New CustomerBankAccounts(_uow) + With _CustomerBankAccounts + .AccountNumber = _XmlNode_Bank.SelectSingleNode("bankszamlaszam").InnerText + .Customers = _Customers + .ShortName = "Bank-" & _Customers.CustomerNumber + End With + .CustomerBankAccounts.Add(_CustomerBankAccounts) + Next + End If + Next + End With + _Customers.QueueUpdated = GetSQLTime(_uow) + 'If IsService Then + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Fogadás: [Customer:" + _Customers.Oid_DH + "]") + 'End If + End If + _uow.CommitChanges() + SaveAuditTrail(_uow) + End If + Catch ex As Exception + If IsService Then + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Fogadás HIBA: " + ex.Message) + Else + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + End If + End Try + End Sub +End Module diff --git a/SISBusiness.RabbitMQ.Module/GetGLAccounts.vb b/SISBusiness.RabbitMQ.Module/GetGLAccounts.vb new file mode 100644 index 0000000..3f6466d --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/GetGLAccounts.vb @@ -0,0 +1,199 @@ +Imports System.Xml +Imports System.Configuration +Imports DevExpress.Xpo +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports System.Collections.Specialized + +Public Module GetGLAccounts + Public Sub GLAccountImport(_XML As XmlDocument, _errorLogFile As String, _Session As DevExpress.Xpo.Session, Optional IsService As Boolean = True) + Dim _StartTime As DateTime = Now + + GetCustomers.CustomerImport(_XML, "JsonXML/params/ugyfel", _errorLogFile, _Session, True) + + Dim _decimalSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator + Dim _groupSeparator As String = Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberGroupSeparator + Dim _uow As UnitOfWork + Dim _Customers As Customers + + If _Session.IsConnected Then + _uow = New UnitOfWork(_Session.DataLayer) + _uow.Dictionary.GetDataStoreSchema(GetType(GLAccounts).Assembly) + InitAuditTrail(_uow) + + Dim _GLAccounts As GLAccounts = _uow.FindObject(Of GLAccounts) _ + (CriteriaOperator.Parse("PartnerType=0 and CustomersFrom=? and Customers.CustomerNumber=? and DocumentNumber=?", _ + ConfigurationManager.AppSettings("CustomersFrom").ToString, _XML.SelectSingleNode("JsonXML/params/ugyfelszam").InnerText.ToString, _ + _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString)) + Dim _GLRows As GLRows + Dim _BruttoHUF As Double = 0, _BruttoDEV As Double = 0 + Dim _VATHUF As Double = 0, _VATDEV As Double = 0 + Dim _NettoHUF As Double = 0, _NettoDEV As Double = 0 + Dim _GUID As Guid = Guid.NewGuid + Dim _NV_Controlling As NameValueCollection = ConfigurationManager.GetSection("Services_Controlling") + Dim _NV_CostHolder As NameValueCollection = ConfigurationManager.GetSection("Services_CostHolder") + Dim _NV_VAT As NameValueCollection = ConfigurationManager.GetSection("Services_VAT") + + If _GLAccounts Is Nothing Then + + + _Customers = _uow.FindObject(Of Customers)(CriteriaOperator.Parse("CustomerNumber=?", _XML.SelectSingleNode("JsonXML/params/ugyfelszam").InnerText.ToString)) + + If _Customers Is Nothing Then + WriteErrorLog("Nincs ügyfél rögzítve ! -> " + _XML.SelectSingleNode("JsonXML/params/ügyfelszam").InnerText.ToString, _errorLogFile) + Exit Sub + End If + + + _GLAccounts = New GLAccounts(_uow) + _GLAccounts.IsEditable = True + _GLAccounts.IsStorno = False + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLAccounts.Customers = _Customers + _GLAccounts.CustomersFrom = _uow.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("Oid=?", ConfigurationManager.AppSettings("CustomersFrom").ToString)) + _GLAccounts.ConnectInfo = _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString + _GLAccounts.DocumentNumber = _XML.SelectSingleNode("JsonXML/params/szamlasorszam").InnerText.ToString + _GLAccounts.DateCreated = _XML.SelectSingleNode("JsonXML/params/kiallitas").InnerText.ToString + _GLAccounts.DateExecution = _XML.SelectSingleNode("JsonXML/params/teljesites").InnerText.ToString + _GLAccounts.DatePayment = _XML.SelectSingleNode("JsonXML/params/hatarido").InnerText.ToString + _GLAccounts.NoteHeader = _XML.SelectSingleNode("JsonXML/params/megjegyzes").InnerText.ToString + _GLAccounts.CurrencyName = _uow.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'")) + _GLAccounts.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("ShortName='ÁTUTALÁS'")) + + Dim _XmlNodeList As XmlNodeList = _XML.SelectNodes("JsonXML/params/szamlasorok") + For Each _XmlNode As XmlNode In _XmlNodeList + If _XmlNode.HasChildNodes Then + For Each _XmlNode_szamlasorok As XmlNode In _XmlNode.ChildNodes + + + _GLAccounts.row_Controlling = _uow.FindObject(Of Controlling)(CriteriaOperator.Parse("Oid=?", _NV_Controlling(_XmlNode_szamlasorok.SelectSingleNode("szolgaltatas/szolgaltatascsoport/id").InnerText))) + _GLAccounts.row_CostHolder = _uow.FindObject(Of CostHolder)(CriteriaOperator.Parse("Oid=?", _NV_CostHolder(_XmlNode_szamlasorok.SelectSingleNode("szolgaltatas/szolgaltatascsoport/id").InnerText))) + _GLAccounts.row_VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("Oid=?", _NV_VAT(_XmlNode_szamlasorok.SelectSingleNode("afanev").InnerText))) + + _GLAccounts.row_ChartOfAccounts = _GLAccounts.row_Controlling.GetChartOfAccounts(_GLAccounts.DateExecution.Year, False) + + _GLAccounts.row_AmountDEV = 0 + _GLAccounts.row_AmountHUF = CDbl(Replace(_XmlNode_szamlasorok.SelectSingleNode("nettoar").InnerText, ".", _decimalSeparator)) + + _GLAccounts.row_DateVAT = _GLAccounts.DateExecution + + + _GLAccounts.row_NoteRows = _XmlNode_szamlasorok.SelectSingleNode("megnevezes").InnerText + vbNewLine + _XmlNode_szamlasorok.SelectSingleNode("megjegyzes").InnerText + _GLAccounts.row_UniqueObjects = Nothing + _GLAccounts.row_JobNumberObjects = Nothing + _GLAccounts.row_CostPlace = Nothing + + _GLAccounts.row_ConnectInfo = _GLAccounts.ConnectInfo + + If _GLAccounts.PartnerType = ePartnerType.eReceivables Then + _GLAccounts.PartnerType = ePartnerType.eReceivables + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.row_ChartOfAccounts + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + Else + _GLAccounts.PartnerType = ePartnerType.ePayabels + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eIn) + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.row_ChartOfAccounts + End If + + + _BruttoHUF = _GLAccounts.row_AmountHUF + If _GLAccounts.row_VAT IsNot Nothing Then + If _GLAccounts.row_VAT.InversState = True Then + _VATHUF = Math.Round(_BruttoHUF * _GLAccounts.row_VAT.InversKeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF + _BruttoHUF = _NettoHUF + _VATHUF + Else + _VATHUF = Math.Round(_BruttoHUF / (1 + _GLAccounts.row_VAT.KeyValue) * _GLAccounts.row_VAT.KeyValue, 0, MidpointRounding.AwayFromZero) + _NettoHUF = _BruttoHUF - _VATHUF + End If + Else + _VATHUF = 0 + _NettoHUF = _BruttoHUF - _VATHUF + End If + + ' -- ÁFA vizsgálata -------------------------------------------------------------------------------------------- + ' -- Létrehoz egy sort a nettó összegre ------------------------------------------------------------------------------------------ + + _GLRows = New GLRows(_uow) + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _NettoHUF + _GLRows.DebitAmountDEV = _NettoDEV + Else + _GLRows.CreditAmountHUF = _NettoHUF + _GLRows.CreditAmountDEV = _NettoDEV + End If + _GLRows.AddGLRows(_GLAccounts, _GLAccounts.row_DebitChartOfAccounts, _GLAccounts.row_CreditChartOfAccounts, _ + _NettoDEV, _NettoHUF, Nothing, _ + _GLAccounts.Customers, _GLAccounts.row_DateVAT, _GLAccounts.row_VAT, _ + _GLAccounts.row_NoteRows, _GLAccounts.row_UniqueObjects, _ + _GLAccounts.row_Controlling, _GLAccounts.row_JobNumberObjects, _GLAccounts.row_CostPlace, _ + _GLAccounts.row_CostHolder, _GLAccounts.row_ConnectInfo, eGLRowsTypeVAT.eNettoRow, _GUID, _ + eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + Next + End If + Next + + '-- ÁFA összesítés egy, egy sorban ! + Dim _XmlNodeList_afaosszesites As XmlNodeList = _XML.SelectNodes("JsonXML/params/afaosszesitesek") + For Each _XmlNode As XmlNode In _XmlNodeList_afaosszesites + If _XmlNode.HasChildNodes Then + For Each _XmlNode_afaosszesites As XmlNode In _XmlNode.ChildNodes + _VATHUF = CDbl(Replace(_XmlNode_afaosszesites.SelectSingleNode("afa").InnerText, ".", _decimalSeparator)) + _GLAccounts.row_VAT = _uow.FindObject(Of VAT)(CriteriaOperator.Parse("Oid=?", _NV_VAT(_XmlNode_afaosszesites.SelectSingleNode("afakulcs").InnerText))) + + _GLAccounts.row_CreditChartOfAccounts = _GLAccounts.row_VAT.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLAccounts.row_DebitChartOfAccounts = _GLAccounts.Customers.CustomersGLParameters.GetChartOfAccounts(_GLAccounts.DateExecution.Year, eVATMode.eOut) + _GLRows = New GLRows(_uow) + _GLRows.PartnerType = _GLAccounts.PartnerType + If _GLRows.PartnerType = ePartnerType.eReceivables Then + _GLRows.DebitAmountHUF = _VATHUF + _GLRows.DebitAmountDEV = _VATDEV + Else + _GLRows.CreditAmountHUF = _VATHUF + _GLRows.CreditAmountDEV = _VATDEV + End If + _GLRows.AddGLRows(_GLAccounts, _GLAccounts.row_DebitChartOfAccounts, _GLAccounts.row_CreditChartOfAccounts, _ + _VATDEV, _VATHUF, _GLAccounts.row_LiquidAssets, _ + _GLAccounts.Customers, _GLAccounts.row_DateVAT, _GLAccounts.row_VAT, _GLAccounts.row_NoteRows, _ + _GLAccounts.row_UniqueObjects, _GLAccounts.row_Controlling, _GLAccounts.row_JobNumberObjects, _ + _GLAccounts.row_CostPlace, _GLAccounts.row_CostHolder, _GLAccounts.row_ConnectInfo, _ + eGLRowsTypeVAT.eVATRow, Nothing, eTransactionType.eNotSet, eCashType.ePartner, _GLAccounts.PartnerType) + Next + End If + Next + '// Számla véglegesítése + _GLAccounts.IsEditable = False + For Each _GLRows In _GLAccounts.GLRows + _GLRows.ConnectInfo = _GLAccounts.row_ConnectInfo + _GLRows.DateVAT = _GLAccounts.row_DateVAT + If _GLRows.GLHeader.CurrencyName.ShortName <> "HUF" Then + If _GLAccounts.PartnerType = ePartnerType.ePayabels Then + If _GLRows.GLRowsTypeVAT <> eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + If _GLRows.GLRowsTypeVAT = eGLRowsTypeVAT.eVATRow Then + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRateVAT, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + Else + _GLRows.AmountHUF = Math.Round(Math.Round(_GLAccounts.CurrencyRate, 2, MidpointRounding.AwayFromZero) * Math.Round(_GLRows.AmountDEV, 2, MidpointRounding.AwayFromZero), 0, MidpointRounding.AwayFromZero) + End If + End If + Next + _GLAccounts.RecalculateTotal() + End If + _uow.CommitChanges() + SaveAuditTrail(_uow) + GLFunctions.ReconfigurePCI(_uow, _GLAccounts.CustomersFrom, _GLAccounts.Customers, _GLAccounts.PartnerType, _GLAccounts.ConnectInfo) + _uow.CommitChanges() + + Dim _EndTime As DateTime = Now + Dim _ActTime As TimeSpan = _EndTime.Subtract(_StartTime) + If IsService Then + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Küldés : " + String.Format("Record: [Customer: {1}, GLAccounts: {2}]", _Customers.Oid_DH, _GLAccounts.DocumentNumber)) + Else + WriteStatisticFile(String.Format("Current time: {0}, Record: [Customer: {1}, GLAccounts: {2}]", _ActTime.ToString, _Customers.Oid_DH, _GLAccounts.DocumentNumber), Environment.CurrentDirectory + "Statistic.txt") + End If + End If + End Sub +End Module diff --git a/SISBusiness.RabbitMQ.Module/GlobalVariables.vb b/SISBusiness.RabbitMQ.Module/GlobalVariables.vb new file mode 100644 index 0000000..774613e --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/GlobalVariables.vb @@ -0,0 +1,16 @@ +Imports System.IO + +Public Module GlobalVariables + Public GLOBAL_Index As Int32 = 0 + Public Sub WriteErrorLog(_ex As String, _errorLogFile As String) + Dim _StreamWriter As New StreamWriter(_errorLogFile, True) + _StreamWriter.WriteLine(_ex) + _StreamWriter.Close() + End Sub + Public Sub WriteStatisticFile(_Text As String, _StatLogFile As String) + Dim _StreamWriter As New StreamWriter(_StatLogFile, True) + _StreamWriter.WriteLine(_Text) + _StreamWriter.Close() + End Sub + +End Module diff --git a/SISBusiness.RabbitMQ.Module/My Project/AssemblyInfo.vb b/SISBusiness.RabbitMQ.Module/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..9c1b57c --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/My Project/AssemblyInfo.vb @@ -0,0 +1,38 @@ +Imports System.Resources + +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 + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: + + + + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Module/PublishCustomers.vb b/SISBusiness.RabbitMQ.Module/PublishCustomers.vb new file mode 100644 index 0000000..fee2b08 --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/PublishCustomers.vb @@ -0,0 +1,240 @@ +Imports DevExpress.Xpo +Imports System.Configuration +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports System.Threading +Imports RabbitMQ.Client + + +Public Module PublishCustomers + Public Sub PublishCustomers(_errorLogFile As String, _Session As DevExpress.Xpo.Session, Optional IsService As Boolean = False) + Try + If _Session IsNot Nothing Then + Dim _Customers As Customers = Nothing + If _Session.IsConnected Then + Dim _uow As New UnitOfWork(_Session.DataLayer) + ' Dim _Customers_Collection As New XPCollection(Of Customers)(_uow, CriteriaOperator.Parse("IsNull(Oid_DH)=False AND Oid_DH<>'' AND ObjectChanged > QueueUpdated")) 'CriteriaOperator.Parse("ObjectChanged>QueueUpdated")) + Dim _Customers_Collection As New XPCollection(Of Customers)(_uow, CriteriaOperator.Parse("ObjectChanged > QueueUpdated")) 'CriteriaOperator.Parse("ObjectChanged>QueueUpdated")) + If _Customers_Collection.Count > 0 Then + Dim _factory As ConnectionFactory + Dim _connection As IConnection + Dim _channel As IModel + + _factory = New ConnectionFactory + _factory.HostName = ConfigurationManager.AppSettings("Factory_HostName") + _factory.UserName = ConfigurationManager.AppSettings("Factory_UserName") + _factory.Password = ConfigurationManager.AppSettings("Factory_Password") + _factory.VirtualHost = ConfigurationManager.AppSettings("Factory_VirtualHost") + + _connection = _factory.CreateConnection + _channel = _connection.CreateModel + + Dim _Exchange_Name = ConfigurationManager.AppSettings("Exchange_Name") + Dim _Exchange_RoutingKey As String = ConfigurationManager.AppSettings("Exchange_RoutingKey") + Dim _IBasicProperties As IBasicProperties = _channel.CreateBasicProperties + + For Each _Customers In _Customers_Collection + If _Customers.ObjectChanged > _Customers.QueueUpdated Then + Dim _Text4Send As String = CreateCustomerText(_Customers, _uow, _errorLogFile) + Dim uTime As Integer + uTime = (DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)).TotalSeconds + + _IBasicProperties.Timestamp = New AmqpTimestamp(uTime) + _IBasicProperties.MessageId = Guid.NewGuid().ToString + _IBasicProperties.ContentType = "application/json" + _IBasicProperties.ContentEncoding = "UTF-8" + + + _IBasicProperties.Headers = New Collections.Generic.Dictionary(Of String, Object) + _IBasicProperties.Headers.Add("mq3c-message-type", "MQ3CMessage_JSON_RPC") + + _channel.BasicPublish(_Exchange_Name, _Exchange_RoutingKey, _IBasicProperties, StrToByteArray(_Text4Send)) + _Customers.QueueUpdated = GetSQLTime(_uow) + _Customers.Save() + _uow.CommitChanges() + If IsService Then + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Küldés: [Customer: " + _Customers.Oid_DH + "]") + End If + End If + Next + _channel.Close() + _connection.Close() + End If + End If + End If + Catch ex As Exception + If IsService Then + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Küldés HIBA : " + ex.Message) + Else + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + End If + + Finally + + End Try + End Sub + Public Function StrToByteArray(str As String) As Byte() + Dim encoding As New System.Text.UTF8Encoding() + Return encoding.GetBytes(str) + End Function + Private Function CreateCustomerText(_Customers As Customers, _Session As Session, _errorLogFile As String) As String + Dim _CustomersText As String = "" + Try + _CustomersText += "{""jsonrpc"":""2.0"",""method"":""ugyfelimport"",""params"":{ ""ugyfel"":{" + _CustomersText += """id"":""" + _Customers.Oid_DH + """," + _CustomersText += """ugyfelszam"":""" + _Customers.CustomerNumber + """," + '_CustomersText += """kulsougyfelazonosito"":""""," + _CustomersText += """nev"":""" + _Customers.Name + """," + '_CustomersText += """nev"":""" + "ÁRVÍZTŰRŐTÜKÖRFÚRÓGÉP árvíztűrőtükörfúrógép" + """," + If _Customers.Address1 IsNot Nothing Then + If _Customers.Address1.Country IsNot Nothing Then + _CustomersText += """orszag"":""" + _Customers.Address1.Country.Name + """," + Else + _CustomersText += """orszag"":""""," + End If + _CustomersText += """varos"":""" + _Customers.Address1.City + """," + '_CustomersText += """emajto"":""""," + _CustomersText += """irszam"":""" + _Customers.Address1.ZipPostal + """," + _CustomersText += """utca"":""" + _Customers.Address1.Street + """," + Else + _CustomersText += """orszag"":""""," + _CustomersText += """varos"":""""," + ''_CustomersText += """emajto"":""""," + _CustomersText += """irszam"":""""," + _CustomersText += """utca"":""""," + End If + + '_CustomersText += """hazszam"":""""," + '_CustomersText += """szigsz"":""""," + '_CustomersText += """jogositvanyszam"":""""," + '_CustomersText += """utlevelszam"":""""," + '_CustomersText += """lakcimkartyaszam"":""""," + If _Customers.MotherName IsNot Nothing Then + _CustomersText += """anyjaneve"":""" + _Customers.MotherName + """," + Else + _CustomersText += """anyjaneve"":""""," + End If + _CustomersText += """szuletesidatum"":""" + Format(_Customers.BirthDate.Date, "yyyy-MM-dd") + """," + If _Customers.BirthAddress IsNot Nothing Then + _CustomersText += """szuletesihely"":""" + _Customers.BirthAddress.City + """," + Else + _CustomersText += """szuletesihely"":""""," + End If + '_CustomersText += """szuletesinev"":""""," + '_CustomersText += """meghatalmazott_nev"":""""," + '_CustomersText += """meghatalmazott_szuletesinev"":""""," + '_CustomersText += """meghatalmazott_anyjaneve"":""""," + '_CustomersText += """meghatalmazott_szigsz"":""""," + '_CustomersText += """meghatalmazott_jogositvanyszam"":""""," + '_CustomersText += """meghatalmazott_utlevelszam"":""""," + '_CustomersText += """meghatalmazott_lakcimkartyaszam"":""""," + '_CustomersText += """telefonszam"":""""," + '_CustomersText += """fax"":""""," + _CustomersText += """email"":""" + _Customers.Email + """," + ''_CustomersText += """eszamla_email"":""""," + _CustomersText += """megjegyzes"":""" + _Customers.Description + """," + '_CustomersText += """kiemelt"":""""," + '_CustomersText += """letrehozva"":""""," + '_CustomersText += """letrehozta"":""""," + '_CustomersText += """modositva"":""""," + '_CustomersText += """modositotta"":""""," + '_CustomersText += """torolve"":""""," + '_CustomersText += """torolte"":""""," + '_CustomersText += """jelleg"":""""," + _CustomersText += """cegjegyzekszam"":""" + _Customers.CompanyRegistrationNumber + """," + If _Customers.VATNumber IsNot Nothing Then + _CustomersText += """adoszam"":""" + _Customers.VATNumber + """," + Else + _CustomersText += """adoszam"":""""," + End If + '_CustomersText += """belsomegjegyzes"":""""," + '_CustomersText += """levelezesinev"":""""," + 'If _Customers.Address2 IsNot Nothing Then + ' If _Customers.Address2.Country IsNot Nothing Then + ' _CustomersText += """levelezesiorszag"":""" + _Customers.Address2.Country.Name + """," + ' Else + ' _CustomersText += """levelezesiorszag"":""""," + ' End If + + ' _CustomersText += """levelezesivaros"":""" + _Customers.Address2.City + """," + ' _CustomersText += """levelezesiemajto"":""""," + ' _CustomersText += """levelezesiutca"":""" + _Customers.Address2.Street + """," + ' _CustomersText += """levelezesihazszam"":""""," + ' _CustomersText += """levelezesiirszam"":""" + _Customers.Address2.ZipPostal + """," + 'Else + ' _CustomersText += """levelezesiorszag"":""""," + ' _CustomersText += """levelezesivaros"":""""," + ' _CustomersText += """levelezesiemajto"":""""," + ' _CustomersText += """levelezesiutca"":""""," + ' _CustomersText += """levelezesihazszam"":""""," + ' _CustomersText += """levelezesiirszam"":""""," + 'End If + If _Customers.CanUseMarketingInfo Then + _CustomersText += """adataimarketingcelrahasznalhatok"":""1""," + Else + _CustomersText += """adataimarketingcelrahasznalhatok"":""0""," + End If + If _Customers.CanUseMarketingInfoThirdParts Then + _CustomersText += """adataimarketingcelraharmadikfelnekkiadhatok"":""1""," + Else + _CustomersText += """adataimarketingcelraharmadikfelnekkiadhatok"":""0""," + End If + '_CustomersText += """telefonszam2"":""""," + '_CustomersText += """telefonszam3"":""""," + '_CustomersText += """szorszag"":""""," + '_CustomersText += """sznev"":""""," + '_CustomersText += """szadoszam"":""""," + '_CustomersText += """szvaros"":""""," + '_CustomersText += """szemajto"":""""," + '_CustomersText += """szutca"":""""," + '_CustomersText += """szhazszam"":""""," + '_CustomersText += """szirszam"":""""," + '_CustomersText += """ugyfeljutalek"":""""," + '_CustomersText += """befizeteskonyvelendo"":""""," + '_CustomersText += """email_penzugy"":""""," + '_CustomersText += """iszamla_ugyfelazon"":""""," + '_CustomersText += """felszolitando"":""""," + '_CustomersText += """hangbemondastartozas"":""""," + '_CustomersText += """megjegyzes_szamlara"":""""," + '_CustomersText += """kapcsolattarto"":""""," + '_CustomersText += """viszonteladokod"":""""," + '_CustomersText += """viszontelado"":""""," + '_CustomersText += """vevo"":""""," + '_CustomersText += """szallito"":""""," + '_CustomersText += """konyvelesi_parameter"":""""," + '_CustomersText += """partner_ugyfelszam"":""""," + '_CustomersText += """partner_viszonteladokod"":""""," + '_CustomersText += """partner_nev"":""""," + '_CustomersText += """szulo_ugyfel_ugyfelszam"":""""," + '_CustomersText += """szulo_ugyfel_viszonteladokod"":""""," + '_CustomersText += """szulo_ugyfel_nev"":""""," + '_CustomersText += """terulet"":""""," + _CustomersText += """sis_oid"":""" + _Customers.Oid.ToString + """," + _CustomersText += """bankszamlaszamok"":{" + + Dim _Index As Long = 0 + For Each _CustomerBankAccounts As CustomerBankAccounts In _Customers.CustomerBankAccounts + _CustomersText += """" + CInt(Math.Ceiling(Rnd() * 100000)).ToString + """: {" + '_CustomersText += """id"": """"," + _CustomersText += """bankszamlaszam"": """ + _CustomerBankAccounts.AccountNumber + """" + '_CustomersText += """szamlatulajdonos"": """"," + '_CustomersText += """megjegyzes"": """"," + If _Index = (_Customers.CustomerBankAccounts.Count - 1) Then + _CustomersText += "}" + Else + _CustomersText += "}," + End If + _Index += 1 + Next + + _CustomersText += "}" 'bankszámlaszámok vége vége + _CustomersText += "}},""MQ3CMessage_JSON_RPC"":{" + + _CustomersText += "}}" 'params vége és utolsó szekció + Catch ex As Exception + WriteErrorLog(Now + " : " + ex.Message, _errorLogFile) + _CustomersText = "" + End Try + Return _CustomersText + End Function +End Module diff --git a/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj b/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj new file mode 100644 index 0000000..408a0bc --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj @@ -0,0 +1,113 @@ + + + + + Debug + AnyCPU + {AC6169DB-F71A-4C6F-AA54-E21C3057E2A7} + Library + SISBusiness.RabbitMQ.Module + SISBusiness.RabbitMQ.Module + 512 + Empty + v4.0 + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + SAK + SAK + SAK + SAK + + + + AnyCPU + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + x86 + pdbonly + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + SISBusiness.Module + + + + + + + + + + + ..\..\..\..\..\..\jSON\Bin\Net\Newtonsoft.Json.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.Client.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.ServiceModel.dll + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj.vspscc b/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/SISBusiness.RabbitMQ.Module.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.RabbitMQ.Module/SISVersion.vb b/SISBusiness.RabbitMQ.Module/SISVersion.vb new file mode 100644 index 0000000..ea768cd --- /dev/null +++ b/SISBusiness.RabbitMQ.Module/SISVersion.vb @@ -0,0 +1,92 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Linq +Imports System.Text +Imports System.ComponentModel +Imports System.Collections.Generic +Imports System.Xml +Imports RabbitMQ.Client +Imports System.Diagnostics +Imports System.Reflection +Imports System.Configuration + +Public Module SISVersion + Public Sub SendSISVersion(_XML As System.Xml.XmlDocument, _BasicProperties As IBasicProperties) + Dim _ReplyTo As String = _BasicProperties.ReplyTo + Dim _RoutingKey As String = "" + Dim _Excahnge As String = "" + Dim _MessageBodyId As String = _XML.SelectSingleNode("JsonXML/id").InnerText.ToString + If _ReplyTo.Contains("@") Then + Dim _Data() As String = _ReplyTo.Split(New Char() {"@"}) + _RoutingKey = _Data(0) + _Excahnge = _Data(1) + If String.IsNullOrEmpty(_Excahnge) Then + _Excahnge = ConfigurationManager.AppSettings("Exchange_Name") + End If + Else + _RoutingKey = _ReplyTo + _Excahnge = ConfigurationManager.AppSettings("Exchange_Name") + End If + + Dim _factory As ConnectionFactory + Dim _connection As IConnection + Dim _channel As IModel + + _factory = New ConnectionFactory + _factory.HostName = ConfigurationManager.AppSettings("Factory_HostName") + _factory.UserName = ConfigurationManager.AppSettings("Factory_UserName") + _factory.Password = ConfigurationManager.AppSettings("Factory_Password") + _factory.VirtualHost = ConfigurationManager.AppSettings("Factory_VirtualHost") + + _connection = _factory.CreateConnection + _channel = _connection.CreateModel + + Dim _IBasicProperties As IBasicProperties = _channel.CreateBasicProperties + + Dim _UserId As String = System.Configuration.ConfigurationManager.AppSettings("Factory_UserName") + Dim _CorrelationId As String = _BasicProperties.CorrelationId + Dim uTime As Integer = (DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)).TotalSeconds + Dim _Expiration As String = "17200000" + Dim _MessageID As String = Guid.NewGuid.ToString + + With _IBasicProperties + .UserId = _UserId + .Timestamp = New AmqpTimestamp(uTime) + .MessageId = _MessageID + .Headers = New Collections.Generic.Dictionary(Of String, Object) + .CorrelationId = _CorrelationId + .ContentType = "application/json" + .ContentEncoding = "UTF-8" + With .Headers + .Add("mq3c-message-type", "MQ3CMessage_JSON_RPC") + .Add("mq3clib-version", "1.0") + .Add("mq3clib-appname", "SISBusiness") + .Add("mq3clib-workername", "") + .Add("mq3clib-workerid", "") + .Add("mq3clib-environment", "testing/production") + .Add("mq3clib-appversion", "1.0 RC") + .Add("mq3clib-runtime", "") + .Add("mq3clib-uniquid", Guid.NewGuid.ToString) + End With + End With + + Dim _MessageText As String = GetSISVersion(_MessageBodyId) + + _channel.BasicPublish(_Excahnge, _RoutingKey, _IBasicProperties, StrToByteArray(_MessageText)) + End Sub + Public Function GetSISVersion(_MessageBodyId As String) As String + Dim _Message As String + _Message = "{""jsonrpc"": ""2.0"",""id"": """ + _MessageBodyId + _Message += """,""result"": """ + Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo([Assembly].GetExecutingAssembly().Location) + _Message += "ProductName: " + myFileVersionInfo.ProductName + "; " + _Message += "FileVersion: " + myFileVersionInfo.FileVersion + "; " + _Message += "ProductVersion: " + myFileVersionInfo.ProductVersion + "; " + _Message += "OSVersion: " + Environment.OSVersion.VersionString + "; " + _Message += "OSPlatform" + Environment.OSVersion.Platform.ToString + "; " + _Message += "OSServicePack: " + Environment.OSVersion.ServicePack + ";" + _Message += """,""MQ3CMessage_JSON_RPC"": {}}" + + Return _Message + End Function +End Module diff --git a/SISBusiness.RabbitMQ.Service/App.config b/SISBusiness.RabbitMQ.Service/App.config new file mode 100644 index 0000000..e0c38b4 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/App.config @@ -0,0 +1,153 @@ + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe new file mode 100644 index 0000000..1dd4b2c Binary files /dev/null and b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe differ diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe.config b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe.config new file mode 100644 index 0000000..39b6572 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtil.exe.config @@ -0,0 +1,6 @@ + + + + + + diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtilLib.dll b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtilLib.dll new file mode 100644 index 0000000..00595a0 Binary files /dev/null and b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/InstallUtilLib.dll differ diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/readme.txt b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/readme.txt new file mode 100644 index 0000000..e2aa0e7 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/InstallServiceManual/InstallUtil/readme.txt @@ -0,0 +1,10 @@ +A szervizek teleptshez s eltvoltshoz az InstallUtil mappban lv InstallUtil.exe-t kell hasznlni. A teleptskor a szerviz neve a teleptend szerviz mappjban elhelyezett Service.exe.config fileban lv kulcsok hatrozzk meg. + + + + +... +A szerviz viselkedst (klds/fogads) szint a config file-ban kell belltani + + + diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/WindowsResourceKitHelp.png b/SISBusiness.RabbitMQ.Service/InstallServiceManual/WindowsResourceKitHelp.png new file mode 100644 index 0000000..807b53f Binary files /dev/null and b/SISBusiness.RabbitMQ.Service/InstallServiceManual/WindowsResourceKitHelp.png differ diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/install.bat b/SISBusiness.RabbitMQ.Service/InstallServiceManual/install.bat new file mode 100644 index 0000000..e40f372 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/InstallServiceManual/install.bat @@ -0,0 +1,8 @@ +:: A telepteni kvnt service-t +:: a \InstallUtil\InstallUtil.exe file-al +:: lehet Windows Serviceknt regisztrlni + +installutil.exe Service.exe + +pause + diff --git a/SISBusiness.RabbitMQ.Service/InstallServiceManual/uninstall.bat b/SISBusiness.RabbitMQ.Service/InstallServiceManual/uninstall.bat new file mode 100644 index 0000000..c75fd3c --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/InstallServiceManual/uninstall.bat @@ -0,0 +1,8 @@ +:: Az eltvoltani kvnt service-t +:: a \InstallUtil\InstallUtil.exe /u file-al +:: lehet a Windows Service-kbl eltvoltani + +installutil.exe /u Service.exe + +pause + diff --git a/SISBusiness.RabbitMQ.Service/My Project/Application.Designer.vb b/SISBusiness.RabbitMQ.Service/My Project/Application.Designer.vb new file mode 100644 index 0000000..8f147f7 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.34003 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.RabbitMQ.Service/My Project/Application.myapp b/SISBusiness.RabbitMQ.Service/My Project/Application.myapp new file mode 100644 index 0000000..602de37 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 3 + true + diff --git a/SISBusiness.RabbitMQ.Service/My Project/AssemblyInfo.vb b/SISBusiness.RabbitMQ.Service/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ebf76e0 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +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 + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.RabbitMQ.Service/My Project/Resources.Designer.vb b/SISBusiness.RabbitMQ.Service/My Project/Resources.Designer.vb new file mode 100644 index 0000000..78f4d4e --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.18051 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.RabbitMQ.ServiceApp.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.RabbitMQ.Service/My Project/Resources.resx b/SISBusiness.RabbitMQ.Service/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Service/My Project/Settings.Designer.vb b/SISBusiness.RabbitMQ.Service/My Project/Settings.Designer.vb new file mode 100644 index 0000000..44ec4bc --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.18051 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.RabbitMQ.Service.My.MySettings + Get + Return Global.SISBusiness.RabbitMQ.Service.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.RabbitMQ.Service/My Project/Settings.settings b/SISBusiness.RabbitMQ.Service/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.RabbitMQ.Service/My Project/app.manifest b/SISBusiness.RabbitMQ.Service/My Project/app.manifest new file mode 100644 index 0000000..5752e76 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/My Project/app.manifest @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj b/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj new file mode 100644 index 0000000..c89e671 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj @@ -0,0 +1,171 @@ + + + + + Debug + AnyCPU + {B38A4B1D-95AB-4658-BC8C-D8CC87B9C69A} + WinExe + SISBusiness.RabbitMQ.Service.WinService + SISBusiness.RabbitMQ.Service + SISBusiness.RabbitMQ.Service + 512 + Console + v4.0 + SAK + SAK + SAK + SAK + + + + AnyCPU + true + full + true + true + bin\Debug\ + SISBusiness.RabbitMQ.Service.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + x86 + pdbonly + false + true + true + bin\Release\ + SISBusiness.RabbitMQ.Service.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + My Project\app.manifest + + + + + + + + False + + + + False + ..\..\..\..\..\..\jSON\Bin\Net\Newtonsoft.Json.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.Client.dll + + + ..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.ServiceModel.dll + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + Component + + + WinService.vb + + + Component + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + WinInstaller.vb + + + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + {ac6169db-f71a-4c6f-aa54-e21c3057e2a7} + SISBusiness.RabbitMQ.Module + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj.vspscc b/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/SISBusiness.RabbitMQ.Service.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.RabbitMQ.Service/WinInstaller.resx b/SISBusiness.RabbitMQ.Service/WinInstaller.resx new file mode 100644 index 0000000..aa307ee --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/WinInstaller.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 189, 17 + + + 17, 17 + + + False + + \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Service/WinInstaller.vb b/SISBusiness.RabbitMQ.Service/WinInstaller.vb new file mode 100644 index 0000000..afd8b03 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/WinInstaller.vb @@ -0,0 +1,64 @@ +Imports System +Imports System.Configuration +Imports System.ServiceProcess +Imports System.Reflection + + _ +Public Class WinInstaller + Inherits System.Configuration.Install.Installer + + Dim serviceInstaller As ServiceProcess.ServiceInstaller + Dim serviceProcessInstaller As ServiceProcess.ServiceProcessInstaller + + Sub New() + InitializeComponent() + + Me.Installers.Add(GetServiceInstaller) + Me.Installers.Add(GetServiceProcessInstaller) + End Sub + + Private Function GetServiceProcessInstaller() As ServiceProcessInstaller + Dim _installer As New ServiceProcessInstaller + + _installer.Account = ServiceAccount.LocalSystem + + Return _installer + End Function + Private Function GetServiceInstaller() As ServiceInstaller + Dim _installer As New ServiceInstaller + Dim _service As Assembly + Dim _config As Configuration + + _service = Assembly.GetAssembly(GetType(WinService)) + _config = ConfigurationManager.OpenExeConfiguration(_service.Location) + + _installer.ServiceName = _config.AppSettings.Settings("ServiceName").Value + _installer.DisplayName = _config.AppSettings.Settings("DisplayName").Value + _installer.Description = "SISBusines RabbitMQ Service for Customer and Invoice export / import" + _installer.StartType = ServiceStartMode.Automatic + + Return _installer + End Function + + Private Sub InitializeComponent() + ' Me.serviceInstaller = New System.ServiceProcess.ServiceInstaller() + ' Me.serviceProcessInstaller = New System.ServiceProcess.ServiceProcessInstaller() + ' ' + ' 'serviceInstaller + ' ' + ' Me.serviceInstaller.Description = "SISBusines RabbitMQ Service for Customer and Invoice export / import" + ' Me.serviceInstaller.DisplayName = "_Liba" 'ConfigurationManager.AppSettings("DisplayName") + ' Me.serviceInstaller.ServiceName = "_Liba" 'ConfigurationManager.AppSettings("ServiceName") + + ' ' + ' 'serviceProcessInstaller + ' ' + ' Me.serviceProcessInstaller.Account = System.ServiceProcess.ServiceAccount.LocalSystem + ' ' + ' 'WinInstaller + ' ' + ' Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.serviceProcessInstaller, Me.serviceInstaller}) + + End Sub + +End Class \ No newline at end of file diff --git a/SISBusiness.RabbitMQ.Service/WinService.Designer.vb b/SISBusiness.RabbitMQ.Service/WinService.Designer.vb new file mode 100644 index 0000000..d3f5f63 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/WinService.Designer.vb @@ -0,0 +1,48 @@ +Imports System.ServiceProcess +Imports System.Configuration + + _ +Partial Class WinService + Inherits System.ServiceProcess.ServiceBase + + 'UserService overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + ' The main entry point for the process + _ + _ + Shared Sub Main() + Dim ServicesToRun() As System.ServiceProcess.ServiceBase + + ' More than one NT Service may run within the same process. To add + ' another service to this process, change the following line to + ' create a second service object. For example, + ' + ' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService} + ' + ServicesToRun = New System.ServiceProcess.ServiceBase() {New WinService} + + System.ServiceProcess.ServiceBase.Run(ServicesToRun) + 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. + _ + Private Sub InitializeComponent() + + End Sub + +End Class diff --git a/SISBusiness.RabbitMQ.Service/WinService.vb b/SISBusiness.RabbitMQ.Service/WinService.vb new file mode 100644 index 0000000..37cb778 --- /dev/null +++ b/SISBusiness.RabbitMQ.Service/WinService.vb @@ -0,0 +1,164 @@ +Imports System +Imports System.IO +Imports System.Configuration +Imports DevExpress.Persistent.Base + +Imports Microsoft.VisualBasic +Imports System.Collections.Generic +Imports System.Linq +Imports System.Text +Imports DevExpress.ExpressApp +Imports System.Collections +Imports DevExpress.ExpressApp.Xpo +Imports System.Runtime.Remoting.Channels +Imports System.Security.Principal +Imports System.Threading +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Persistent.AuditTrail + +Imports RabbitMQ.Client +Imports RabbitMQ.ServiceModel +Imports RabbitMQ.Client.Events +Imports Newtonsoft.Json +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports System.Xml +Imports System.Collections.Specialized +Imports SISBusiness.RabbitMQ.Module + +Public Class WinService + Inherits System.ServiceProcess.ServiceBase + + Private _Session As DevExpress.Xpo.Session + + Dim _TimerCore As System.Threading.Timer + Dim _Semaphor As Boolean = True + Dim _RunningMode As String = ConfigurationManager.AppSettings("RunningMode") + + Dim _factory As ConnectionFactory + Dim _connection As IConnection + Dim _channel As IModel + Dim _consumer As EventingBasicConsumer + + Protected Overrides Sub OnStart(ByVal args() As String) + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Service Start at " + Now.ToString) + + _Session = LoginSession() + Try + If _Session IsNot Nothing Then + If _Session.IsConnected Then + Select Case _RunningMode + Case "0" 'Olvas + Try + ' ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition() + + Dim _Factory_HostName As String = ConfigurationManager.AppSettings("Factory_HostName") + Dim _Factory_UserName As String = ConfigurationManager.AppSettings("Factory_UserName") + Dim _Factory_Password As String = ConfigurationManager.AppSettings("Factory_Password") + Dim _Factory_VirtualHost As String = ConfigurationManager.AppSettings("Factory_VirtualHost") + + Dim _Queue_Name As String = ConfigurationManager.AppSettings("Queue_Name") + + _factory = New ConnectionFactory + _factory.HostName = _Factory_HostName + _factory.UserName = _Factory_UserName + _factory.Password = _Factory_Password + _factory.VirtualHost = _Factory_VirtualHost + _factory.RequestedChannelMax = 10 + + + _connection = _factory.CreateConnection + _channel = _connection.CreateModel + + _consumer = New EventingBasicConsumer + + AddHandler _consumer.Received, AddressOf Consumer_Received + + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Starting server pool at " + Now.ToString) + + ' _channel.BasicConsume(_Queue_Name, False, _consumer) 'Fenthagyni a queue-ban + _channel.BasicConsume(_Queue_Name, True, _consumer) 'Leszedni a queue-ból + + Catch e As Exception + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), e.Message) + End Try + Case "1" 'Küld + Try + ' ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition() + + _TimerCore = New System.Threading.Timer(AddressOf _TimerCore_Tick, Nothing, 0, 10000) + + Catch e As Exception + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), e.Message) + End Try + Case "2" 'Mindkettő + + Case Else + 'Gáz van + + End Select + End If + Else + 'Throw New Exception(String.Format("Nem lehet csatlakozni az SQL serverhez. ConnenctionString:{0}", ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString)) + End If + Catch ex As Exception + 'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), ex.Message) + End Try + End Sub + Protected Overrides Sub OnStop() + Select Case _RunningMode + Case "0" 'Olvas + _channel.Close() + _connection.Close() + Case "1" + _TimerCore.Change(Timeout.Infinite, 0) + _TimerCore.Dispose() + Case "2" + End Select + + If _Session.IsConnected Then LogoffSession(_Session) + + ' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Service STOP") + End Sub + Private Sub Consumer_Received(sender As IBasicConsumer, args As BasicDeliverEventArgs) + '// Itt afogadás + 'Console.WriteLine("Fogadás...") + + Try + Dim _JSONText As String = Encoding.UTF8.GetString(args.Body) + Dim _XML As System.Xml.XmlDocument = JsonConvert.DeserializeXmlNode(_JSONText, "JsonXML") + + If _XML IsNot Nothing Then + Dim _method As String = _XML.SelectSingleNode("JsonXML/method").InnerText + + If _method.Contains("ugyfelimport") Then GetCustomers.CustomerImport(_XML, "JsonXML/params", "", _Session, True) + If _method.Contains("szamlaimport") Then GetGLAccounts.GLAccountImport(_XML, "", _Session, True) + If _method.Contains("get_version") Then SISVersion.SendSISVersion(_XML, args.BasicProperties) + End If + Catch ex As Exception + WriteErrorLog((Now + " " + ex.Message).ToString, "") + End Try + End Sub + Private Sub _TimerCore_Tick(ByVal state As Object) + _TimerCore.Change(Timeout.Infinite, 0) + PublishCustomers.PublishCustomers("", _Session, True) + _TimerCore.Change(0, 10000) + End Sub + Private Function LoginSession() As DevExpress.Xpo.Session + Dim _Session As New DevExpress.Xpo.Session + + _Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + _Session.AutoCreateOption = DB.AutoCreateOption.None + _Session.Connect() + + If Not _Session.IsConnected Then + _Session = Nothing + End If + + Return _Session + End Function + Private Sub LogoffSession(_Session As DevExpress.Xpo.Session) + _Session.Connection.Close() + End Sub + +End Class diff --git a/SISBusiness.WIN.Company/ExpressApp.ico b/SISBusiness.WIN.Company/ExpressApp.ico new file mode 100644 index 0000000..d4c7fc7 Binary files /dev/null and b/SISBusiness.WIN.Company/ExpressApp.ico differ diff --git a/SISBusiness.WIN.Company/Model.xafml b/SISBusiness.WIN.Company/Model.xafml new file mode 100644 index 0000000..a1a5415 --- /dev/null +++ b/SISBusiness.WIN.Company/Model.xafml @@ -0,0 +1,66 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Model_en.xafml b/SISBusiness.WIN.Company/Model_en.xafml new file mode 100644 index 0000000..5d50b0e --- /dev/null +++ b/SISBusiness.WIN.Company/Model_en.xafml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Model_hu.xafml b/SISBusiness.WIN.Company/Model_hu.xafml new file mode 100644 index 0000000..530d939 --- /dev/null +++ b/SISBusiness.WIN.Company/Model_hu.xafml @@ -0,0 +1,137 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/Application.Designer.vb b/SISBusiness.WIN.Company/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.WIN.Company/My Project/Application.myapp b/SISBusiness.WIN.Company/My Project/Application.myapp new file mode 100644 index 0000000..e32a102 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + Form1 + false + 0 + true + 0 + true + diff --git a/SISBusiness.WIN.Company/My Project/AssemblyInfo.vb b/SISBusiness.WIN.Company/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..e380feb --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +' 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: +' + + + diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource new file mode 100644 index 0000000..930ba4c --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrenciesResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource new file mode 100644 index 0000000..fe00fb7 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrencyUnitsResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..6ba19d7 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetCurrentExchangeRatesResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource new file mode 100644 index 0000000..429ecb5 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetDateIntervalResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource new file mode 100644 index 0000000..f1d8cd4 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetExchangeRatesResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource new file mode 100644 index 0000000..6c144c9 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/DataSources/SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody.datasource @@ -0,0 +1,10 @@ + + + + SISBusiness.Module.MNBArfolyamService.GetInfoResponseBody, SISBusiness.Module, Version=14.1.9.1001, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/My Project/Resources.Designer.vb b/SISBusiness.WIN.Company/My Project/Resources.Designer.vb new file mode 100644 index 0000000..fe40c65 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.Win.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.WIN.Company/My Project/Resources.resx b/SISBusiness.WIN.Company/My Project/Resources.resx new file mode 100644 index 0000000..d0d99d6 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.WIN.Company/My Project/Settings.Designer.vb b/SISBusiness.WIN.Company/My Project/Settings.Designer.vb new file mode 100644 index 0000000..11af349 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SISBusiness.Win.My.MySettings + Get + Return Global.SISBusiness.Win.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.WIN.Company/My Project/Settings.settings b/SISBusiness.WIN.Company/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.WIN.Company/My Project/app.manifest b/SISBusiness.WIN.Company/My Project/app.manifest new file mode 100644 index 0000000..f5ca617 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/app.manifest @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.WIN.Company/My Project/licenses.licx b/SISBusiness.WIN.Company/My Project/licenses.licx new file mode 100644 index 0000000..fee3f88 --- /dev/null +++ b/SISBusiness.WIN.Company/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/SISBusiness.WIN.Company/NSIS/SISBusiness.nsi b/SISBusiness.WIN.Company/NSIS/SISBusiness.nsi new file mode 100644 index 0000000..06123ee --- /dev/null +++ b/SISBusiness.WIN.Company/NSIS/SISBusiness.nsi @@ -0,0 +1,465 @@ + +;-------------------------------- +;Include Modern UI + !include "MUI.nsh" + !include "MUI2.nsh" + !include "x64.nsh" +;-------------------------------- +;General + + !define APPNAME "SIS Business" + !define COMPANYNAME "SIS-Rendszerhz Kft." + !define DESCRIPTION "SIS BUSINESS ERP Framework System" + + ;Name and file + Name "SISBusiness" + OutFile "Setup.exe" + + ;Default installation folder + InstallDir "$APPDATA\SISBusiness" + + ;Get installation folder from registry if available + InstallDirRegKey HKCU "Software\SISBusiness" "" + + ;Request application privileges for Windows Vista + RequestExecutionLevel admin + +;-------------------------------- +;Interface Settings + + !define MUI_ICON "ProteinChip.ico" + !define MUI_UNICON "ProteinChip.ico" + !define MUI_ABORTWARNING + +;-------------------------------- +;Language Selection Dialog Settings + + ;Remember the installer language + !define MUI_LANGDLL_REGISTRY_ROOT "HKCU" + !define MUI_LANGDLL_REGISTRY_KEY "Software\SISBusiness" + !define MUI_LANGDLL_REGISTRY_VALUENAME "Installer Language" + +;-------------------------------- +;Pages + + !insertmacro MUI_PAGE_WELCOME + !insertmacro MUI_PAGE_LICENSE "License.txt" + + Page Custom SerialPageShow SerialPageLeave + + !insertmacro MUI_PAGE_COMPONENTS + !insertmacro MUI_PAGE_DIRECTORY + !insertmacro MUI_PAGE_INSTFILES + + !insertmacro MUI_UNPAGE_CONFIRM + !insertmacro MUI_UNPAGE_INSTFILES +;-------------------------------- + + + ;Languages + + !insertmacro MUI_LANGUAGE "Hungarian";first language is the default language + +;-------------------------------- +;Reserve Files + + ;If you are using solid compression, files that are required before + ;the actual installation should be stored first in the data block, + ;because this will make your installer start faster. + + !insertmacro MUI_RESERVEFILE_LANGDLL + +;-------------------------------- +;Installer Sections + +Section "SISBusiness" ProteinChip + SetShellVarContext all + SetOutPath "$INSTDIR" + + ;${If} ${RunningX64} + ; ExecWait "$INSTDIR\AccessDatabaseEngine_x64.exe /quiet" + ;${Else} + ; ExecWait "$INSTDIR\AccessDatabaseEngine.exe /quiet" + ;${EndIf} + + ;ADD YOUR OWN FILES HERE... + File "database.sql" + File "crdatabase.cmd" + + ;DevExpress files ... + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Data.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.DataAccess.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Validation.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Validation.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.ViewVariantsModule.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.BonusSkins.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.AuditTrail.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.ConditionalAppearance.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.FileAttachment.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Images.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Objects.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.ReportsV2.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.ReportsV2.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Security.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.TreeListEditors.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.TreeListEditors.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Win.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.Xpo.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.ExpressApp.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Office.v13.2.Core.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Persistent.Base.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Persistent.BaseImpl.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Printing.v13.2.Core.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.RichEdit.v13.2.Core.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Utils.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Utils.v13.2.UI.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.Xpo.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraBars.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraEditors.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraGrid.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraLayout.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraNavBar.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraPrinting.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraReports.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraReports.v13.2.Extensions.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraTreeList.v13.2.dll" + File "c:\Program Files (x86)\DevExpress 13.2\Components\Bin\Framework\DevExpress.XtraVerticalGrid.v13.2.dll" + + ;DevExpress localization files ! + SetOutPath "$INSTDIR\HU" + File "HU\DevExpress.Charts.Designer.v13.2.resources.dll" + File "HU\DevExpress.Dashboard.v13.2.Core.resources.dll" + File "HU\DevExpress.Dashboard.v13.2.Win.resources.dll" + File "HU\DevExpress.Data.v13.2.resources.dll" + File "HU\DevExpress.DataAccess.v13.2.resources.dll" + + File "HU\DevExpress.DataAccess.v13.2.UI.resources.dll" + File "HU\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.PivotChart.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.Reports.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.Scheduler.v13.2.resources.dll" + + File "HU\DevExpress.ExpressApp.Security.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.Validation.v13.2.resources.dll" + File "HU\DevExpress.ExpressApp.Win.v13.2.resources.dll" + + File "HU\DevExpress.Office.v13.2.Core.resources.dll" + File "HU\DevExpress.Pdf.v13.2.Core.resources.dll" + File "HU\DevExpress.PivotGrid.v13.2.Core.resources.dll" + File "HU\DevExpress.Printing.v13.2.Core.resources.dll" + File "HU\DevExpress.RichEdit.v13.2.Core.resources.dll" + + File "HU\DevExpress.Snap.v13.2.Core.resources.dll" + File "HU\DevExpress.Snap.v13.2.Extensions.resources.dll" + File "HU\DevExpress.Snap.v13.2.resources.dll" + + File "HU\DevExpress.Sparkline.v13.2.Core.resources.dll" + File "HU\DevExpress.Spreadsheet.v13.2.Core.resources.dll" + File "HU\DevExpress.Utils.v13.2.resources.dll" + File "HU\DevExpress.Utils.v13.2.UI.resources.dll" + File "HU\DevExpress.XtraBars.v13.2.resources.dll" + + File "HU\DevExpress.XtraCharts.v13.2.resources.dll" + File "HU\DevExpress.XtraCharts.v13.2.Wizard.resources.dll" + File "HU\DevExpress.XtraEditors.v13.2.resources.dll" + File "HU\DevExpress.XtraGauges.v13.2.Core.resources.dll" + File "HU\DevExpress.XtraGauges.v13.2.Presets.resources.dll" + File "HU\DevExpress.XtraGrid.v13.2.resources.dll" + File "HU\DevExpress.XtraLayout.v13.2.resources.dll" + + File "HU\DevExpress.XtraNavBar.v13.2.resources.dll" + File "HU\DevExpress.XtraPdfViewer.v13.2.resources.dll" + File "HU\DevExpress.XtraPivotGrid.v13.2.resources.dll" + File "HU\DevExpress.XtraPrinting.v13.2.resources.dll" + File "HU\DevExpress.XtraReports.v13.2.Extensions.resources.dll" + + File "HU\DevExpress.XtraReports.v13.2.resources.dll" + File "HU\DevExpress.XtraRichEdit.v13.2.Extensions.resources.dll" + File "HU\DevExpress.XtraRichEdit.v13.2.resources.dll" + File "HU\DevExpress.XtraScheduler.v13.2.Core.resources.dll" + + File "HU\DevExpress.XtraScheduler.v13.2.Extensions.resources.dll" + File "HU\DevExpress.XtraScheduler.v13.2.Reporting.resources.dll" + File "HU\DevExpress.XtraScheduler.v13.2.resources.dll" + File "HU\DevExpress.XtraSpellChecker.v13.2.resources.dll" + File "HU\DevExpress.XtraSpreadsheet.v13.2.resources.dll" + + File "HU\DevExpress.XtraTreeList.v13.2.resources.dll" + File "HU\DevExpress.XtraVerticalGrid.v13.2.resources.dll" + File "HU\DevExpress.XtraWizard.v13.2.resources.dll" + + ;Other runtime files + SetOutPath "$INSTDIR" + + File "C:\Program Files (x86)\Microsoft Visual Studio 11.0\Visual Studio Tools for Office\PIA\Common\Microsoft.mshtml.dll" + File "MySql.Data.dll" + File "ProteinChip.ico" + ;AForge.NET + File "..\bin\Release\AForge.dll" + File "..\bin\Release\AForge.Imaging.dll" + File "..\bin\Release\AForge.Math.dll" + + ;ProteinChip module + File "..\bin\Release\ProteinChip.BarcodeScanner.dll" + File "..\bin\Release\ProteinChip.DatabaseUserSettings.dll" + File "..\bin\Release\ProteinChip.Module.dll" + File "..\bin\Release\ProteinChip.Module.Win.dll" + File "..\bin\Release\ProteinChip.Win.exe" + File "ProteinChip.Win.exe.config" + + + ;Model + File "..\bin\Release\Model.xafml" + File "..\bin\Release\Model_hu.xafml" + + ;Store installation folder + WriteRegStr HKCU "Software\SISBusiness" "" $INSTDIR + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\SISBusiness" "DisplayName" "Protein Chip kpfeldolgoz rendszer" + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\SISBusiness" "UninstallString" "$\"$INSTDIR\uninstall.exe$\"" + WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\SISBusiness" "QuietUninstallString" "$\"$INSTDIR\uninstall.exe$\" /S" + + ;Create uninstaller + WriteUninstaller "$INSTDIR\Uninstall.exe" + + SetOutPath "$INSTDIR\HU" + ;ProteinChip HU resources + File "..\bin\Release\hu\ProteinChip.Module.resources.dll" + File "..\bin\Release\hu\ProteinChip.Module.Win.resources.dll" + + ;After copy run dbupdater ! + SetOutPath "$INSTDIR" + ExecWait '"$INSTDIR\crdatabase.cmd" $\"$INSTDIR\database.sql$\" root protein!12345' + + CreateShortCut "$DESKTOP\ProteinChip.lnk" "$INSTDIR\ProteinChip.Win.exe" + CreateShortCut "$SMPROGRAMS\ProteinChip.lnk" "$INSTDIR\ProteinChip.Win.exe" "" "$INSTDIR\ProteinChip.ico" + +SectionEnd + +Function SerialPageShow + !insertmacro MUI_HEADER_TEXT "Biztonsgi kd megadsa" "Adja meg a telepthz mellkelt biztonsgi kdot a telepts folytatshoz." + + PassDialog::Dialog Serial \ + /HEADINGTEXT 'Krem adja meg a biztonsgi kdot ( a ktjeleket nem kell berni!)' \ + /CENTER \ + /BOXDASH 12 70 5 '' \ + /BOXDASH 92 70 5 '' \ + /BOXDASH 172 70 5 '' \ + /BOXDASH 252 70 5 '' \ + /BOX 332 70 5 '' + + Pop $R0 # success, back, cancel or error + +FunctionEnd +Function SerialPageLeave +## Pop values from stack + Pop $R0 + Pop $R1 + Pop $R2 + Pop $R3 + Pop $R4 + + ## A bit of validation + StrCmp $R0 '3AWYM' +3 + MessageBox MB_OK "Hibs biztonsgi kd !" + Abort + StrCmp $R1 'BZT4E' +3 + MessageBox MB_OK "Hibs biztonsgi kd !" + Abort + StrCmp $R2 'WLM3G' +3 + MessageBox MB_OK "Hibs biztonsgi kd !" + Abort + StrCmp $R3 'AMJH7' +3 + MessageBox MB_OK "Hibs biztonsgi kd !" + Abort + StrCmp $R4 'TPXKS' +3 + MessageBox MB_OK "Hibs biztonsgi kd !" + Abort + FunctionEnd + +;-------------------------------- +;Installer Functions + +Function .onInit + + !insertmacro MUI_LANGDLL_DISPLAY + +FunctionEnd + +;-------------------------------- +;Descriptions + + ;USE A LANGUAGE STRING IF YOU WANT YOUR DESCRIPTIONS TO BE LANGAUGE SPECIFIC + + ;Assign descriptions to sections + !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN + !insertmacro MUI_DESCRIPTION_TEXT ${ProteinChip} "A test section." + !insertmacro MUI_FUNCTION_DESCRIPTION_END + + +;-------------------------------- +;Uninstaller Section + +Section "Uninstall" + SetShellVarContext all + SetOutPath "$INSTDIR" + + ;ADD YOUR OWN FILES HERE... + Delete "$INSTDIR\database.sql" + Delete "$INSTDIR\crdatabase.cmd" + + ;DevExpress files ... + Delete "$INSTDIR\DevExpress.Data.v13.2.dll" + Delete "$INSTDIR\DevExpress.DataAccess.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Validation.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Validation.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.ViewVariantsModule.v13.2.dll" + Delete "$INSTDIR\DevExpress.BonusSkins.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.AuditTrail.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.ConditionalAppearance.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.FileAttachment.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Images.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Objects.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.ReportsV2.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.ReportsV2.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Security.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.TreeListEditors.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.TreeListEditors.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Win.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.Xpo.v13.2.dll" + Delete "$INSTDIR\DevExpress.ExpressApp.v13.2.dll" + Delete "$INSTDIR\DevExpress.Office.v13.2.Core.dll" + Delete "$INSTDIR\DevExpress.Persistent.Base.v13.2.dll" + Delete "$INSTDIR\DevExpress.Persistent.BaseImpl.v13.2.dll" + Delete "$INSTDIR\DevExpress.Printing.v13.2.Core.dll" + Delete "$INSTDIR\DevExpress.RichEdit.v13.2.Core.dll" + Delete "$INSTDIR\DevExpress.Utils.v13.2.dll" + Delete "$INSTDIR\DevExpress.Utils.v13.2.UI.dll" + Delete "$INSTDIR\DevExpress.Xpo.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraBars.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraEditors.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraGrid.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraLayout.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraNavBar.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraPrinting.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraReports.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraReports.v13.2.Extensions.dll" + Delete "$INSTDIR\DevExpress.XtraRichEdit.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraTreeList.v13.2.dll" + Delete "$INSTDIR\DevExpress.XtraVerticalGrid.v13.2.dll" + + ;DevExpress localization + Delete "$INSTDIR\HU\DevExpress.Charts.Designer.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Dashboard.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Dashboard.v13.2.Win.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Data.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.DataAccess.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.DataAccess.v13.2.UI.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.PivotChart.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.Reports.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.Scheduler.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.ExpressApp.Security.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.Validation.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.ExpressApp.Win.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.Office.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Pdf.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.PivotGrid.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Printing.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.RichEdit.v13.2.Core.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.Snap.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Snap.v13.2.Extensions.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Snap.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.Sparkline.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Spreadsheet.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Utils.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.Utils.v13.2.UI.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraBars.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.XtraCharts.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraCharts.v13.2.Wizard.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraEditors.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraGauges.v13.2.Core.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraGauges.v13.2.Presets.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraGrid.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraLayout.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.XtraNavBar.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraPdfViewer.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraPivotGrid.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraPrinting.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraReports.v13.2.Extensions.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.XtraReports.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraRichEdit.v13.2.Extensions.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraRichEdit.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraScheduler.v13.2.Core.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.XtraScheduler.v13.2.Extensions.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraScheduler.v13.2.Reporting.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraScheduler.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraSpellChecker.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraSpreadsheet.v13.2.resources.dll" + + Delete "$INSTDIR\HU\DevExpress.XtraTreeList.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraVerticalGrid.v13.2.resources.dll" + Delete "$INSTDIR\HU\DevExpress.XtraWizard.v13.2.resources.dll" + ;Other runtime files + Delete "$INSTDIR\Microsoft.mshtml.dll" + Delete "$INSTDIR\ProteinChip.ico" + Delete "$INSTDIR\MySql.Data.dll" + + ;AForge.NET + Delete "$INSTDIR\AForge.dll" + Delete "$INSTDIR\AForge.Imaging.dll" + Delete "$INSTDIR\AForge.Math.dll" + + ;ProteinChip module + Delete "$INSTDIR\ProteinChip.BarcodeScanner.dll" + Delete "$INSTDIR\ProteinChip.DatabaseUserSettings.dll" + Delete "$INSTDIR\ProteinChip.Module.dll" + Delete "$INSTDIR\ProteinChip.Module.Win.dll" + Delete "$INSTDIR\ProteinChip.Win.exe" + Delete "$INSTDIR\ProteinChip.Win.exe.config" + + + ;Model editor + Delete "$INSTDIR\Model.xafml" + Delete "$INSTDIR\Model_hu.xafml" + + Delete "$INSTDIR\ModulesVersionInfo" + Delete "$INSTDIR\ModelAssembly.dll" + Delete "$INSTDIR\Uninstall.exe" + Delete "$INSTDIR\proteinchip.mdb" + + + Delete "$INSTDIR\hu\ProteinChip.Module.resources.dll" + Delete "$INSTDIR\hu\ProteinChip.Module.Win.resources.dll" + + Delete "$DESKTOP\ProteinChip.lnk" + Delete "$SMPROGRAMS\ProteinChip.lnk" + + RMDir "$INSTDIR\HU" + RMDir "$INSTDIR" + + DeleteRegKey /ifempty HKCU "Software\SISBusiness" + DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\SISBusiness" +SectionEnd + +;-------------------------------- +;Uninstaller Functions + +Function un.onInit + + !insertmacro MUI_UNGETLANGUAGE + +FunctionEnd \ No newline at end of file diff --git a/SISBusiness.WIN.Company/PostgreSQL.vb b/SISBusiness.WIN.Company/PostgreSQL.vb new file mode 100644 index 0000000..f54921b --- /dev/null +++ b/SISBusiness.WIN.Company/PostgreSQL.vb @@ -0,0 +1,53 @@ +Imports DevExpress.Xpo.DB +Imports DevExpress.Xpo.DB.Helpers +Imports DevExpress.Data.Filtering +Imports System.Globalization + + +Public Class PostgreSqlConnectionProviderEx + Inherits PostgreSqlConnectionProvider + Public Shadows Const XpoProviderTypeString As String = "PostgresEx" + + Public Shared Shadows Function GetConnectionString(ByVal server As String, ByVal userid As String, ByVal password As String, ByVal database As String) As String + Return String.Format("{4}={5};Server={0};User Id={1};Password={2};Database={3};Encoding=UNICODE;", server, + userid, password, database, DataStoreBase.XpoProviderTypeParameterName, XpoProviderTypeString) + End Function + + Public Shared Shadows Function GetConnectionString(ByVal server As String, ByVal port As Integer, ByVal userid As String, ByVal password As String, ByVal database As String) As String + Return String.Format("{5}={6};Server={0};User Id={1};Password={2};Database={3};Encoding=UNICODE;Port={4}", _ + server, userid, password, database, port, DataStoreBase.XpoProviderTypeParameterName, _ + XpoProviderTypeString) + End Function + + Public Shared Shadows Sub Register() + End Sub + + Shared Sub New() + RegisterDataStoreProvider(XpoProviderTypeString, New DataStoreCreationFromStringDelegate(AddressOf CreateProviderFromString)) + End Sub + + Public Shared Shadows Function CreateProviderFromString(ByVal connectionString As String, ByVal autoCreateOption As AutoCreateOption, _ + ByRef objectsToDisposeOnDisconnect() As IDisposable) As IDataStore + Dim connection As IDbConnection = New Npgsql.NpgsqlConnection(connectionString) + objectsToDisposeOnDisconnect = New IDisposable() {connection} + Return CreateProviderFromConnection(connection, autoCreateOption) + End Function + + Public Shared Shadows Function CreateProviderFromConnection(ByVal connection As IDbConnection, +ByVal autoCreateOption As AutoCreateOption) As IDataStore + Return New PostgreSqlConnectionProviderEx(connection, autoCreateOption) + End Function + + Public Sub New(ByVal connection As IDbConnection, ByVal autoCreateOption As AutoCreateOption) + MyBase.New(connection, autoCreateOption) + End Sub + + Public Overrides Function FormatBinary(ByVal operatorType As BinaryOperatorType, ByVal leftOperand As String, ByVal rightOperand As String) As String + Select Case operatorType + Case BinaryOperatorType.Like + Return String.Format(CultureInfo.InvariantCulture, "{0} ilike {1}", leftOperand, rightOperand) + Case Else + Return MyBase.FormatBinary(operatorType, leftOperand, rightOperand) + End Select + End Function +End Class \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Program.vb b/SISBusiness.WIN.Company/Program.vb new file mode 100644 index 0000000..8658f57 --- /dev/null +++ b/SISBusiness.WIN.Company/Program.vb @@ -0,0 +1,124 @@ +Imports System +Imports System.Configuration +Imports System.Windows.Forms + +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Win + +Imports SISBusiness.Module.Win +Imports DevExpress.Persistent.AuditTrail +Imports Microsoft.VisualBasic + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model +Imports SISBusiness.Module + +Friend NotInheritable Class Program + Private Sub New() + End Sub + _ + Public Shared Sub Main(ByVal arguments() As String) +#If EASYTEST Then + DevExpress.ExpressApp.EasyTest.WinAdapter.RemotingRegistration.Register(4100) +#End If + + Application.EnableVisualStyles() + Application.SetCompatibleTextRenderingDefault(False) + EditModelPermission.AlwaysGranted = System.Diagnostics.Debugger.IsAttached + + '-- Eredeti kód + 'Dim _application As SISBusinessWindowsFormsApplication_DB = New SISBusinessWindowsFormsApplication_DB() + + 'If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + ' _application.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + 'End If + 'If System.Diagnostics.Debugger.IsAttached Then + ' _application.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + 'End If + 'Try + ' Dim timeStampStrategy As IAuditTimestampStrategy = New SISBusiness.Module.TimeStamp + ' AuditTrailService.Instance.TimestampStrategy = timeStampStrategy + + ' _application.Setup() + ' _application.Start() + 'Catch e As Exception + ' _application.HandleException(e) + 'End Try + + '-- Új kód + Do + Dim winApplication As SISBusinessWindowsFormsApplication + If LogOnDB.NewApplication Is Nothing Then + winApplication = SISBusinessWindowsFormsApplication.CreateApplication() + Else + winApplication = CType(LogOnDB.NewApplication, SISBusinessWindowsFormsApplication) + LogOnDB.NewApplication = Nothing + End If + Try + 'AddHandler Application.Idle, AddressOf Application_Idle + + AddHandler AuditTrailService.Instance.SaveAuditTrailData, AddressOf Instance_SaveAuditTrailData + AddHandler winApplication.CreateCustomUserModelDifferenceStore, AddressOf winApplication_CreateCustomUserModelDifferenceStore + AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting + winApplication.DelayedViewItemsInitialization = True + winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen + + AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.Lightweight + + winApplication.Setup() + winApplication.Start() + If WinChangeDatabaseHelper.AuthenticatedUserLogonFailed Then + WinChangeDatabaseHelper.SkipLogonDialog = False + winApplication.Start() + End If + Catch e As Exception + winApplication.HandleException(e) + End Try + winApplication.Dispose() + Loop While LogOnDB.NewApplication IsNot Nothing + '-- Új kód vége + End Sub + Shared Sub winApplication_CreateCustomUserModelDifferenceStore(ByVal sender As Object, ByVal e As CreateCustomModelDifferenceStoreEventArgs) + Dim userDiffs As New UserStore(CType(sender, WinApplication)) + e.Store = userDiffs + e.Handled = True + End Sub + + Private Shared Sub Instance_SaveAuditTrailData(sender As Object, e As SaveAuditTrailDataEventArgs) + If GLOBAL_HAS_Audit = False Then + e.Handled = True + End If + End Sub + Shared Sub winApplication_LastLogonParametersWriting(ByVal sender As Object, ByVal e As LastLogonParametersWritingEventArgs) + 'If (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName <> "SysAdmin" Then + e.SettingsStorage.SaveOption("", "UserName", (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName) + e.SettingsStorage.SaveOption("", "DBConnection", GLOBAL_SQLDatabase) + e.SettingsStorage.SaveOption("", "SQLServer", GLOBAL_SQLServer) + e.SettingsStorage.SaveOption("", "Company", GLOBAL_Company) + + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + e.SettingsStorage.SaveOption("", "SQLType", "MSSQL") + Case eSQLType.MySQL + e.SettingsStorage.SaveOption("", "SQLType", "MySQL") + Case eSQLType.PostgreSQL + e.SettingsStorage.SaveOption("", "SQLType", "PostgreSQL") + End Select + + e.Handled = True + End Sub + + Private Shared Sub Application_Idle(sender As Object, e As EventArgs) + + End Sub + +End Class + + + diff --git a/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj b/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj new file mode 100644 index 0000000..e5cf0dc --- /dev/null +++ b/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj @@ -0,0 +1,477 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {7BDC6966-B18D-4CC9-979B-E80917C4E45F} + WinExe + Sub Main + SISBusiness.Win + SISBusiness.Win + WindowsFormsWithCustomSubMain + sis-05.ico + On + Binary + Off + On + SAK + SAK + SAK + SAK + v4.0 + + + 4.0 + + true + + + http://localhost/SISBusiness.Win/ + true + Web + true + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + None + false + true + true + bin\Release\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + false + false + + + true + true + true + bin\EasyTest\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + false + + + My Project\app.manifest + + + true + bin\Release 64bit\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + bin\Release\SISBusiness.Win.exe.CodeAnalysisLog.xml + true + GlobalSuppressions.vb + AllRules.ruleset + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\\Rule Sets + true + ;C:\Program Files (x86)\Microsoft Visual Studio 10.0\Team Tools\Static Analysis Tools\FxCop\\Rules + true + false + + + + False + True + + + + + False + ..\..\..\..\..\Program Files (x86)\DevExpress 15.2\Components\Bin\Framework\DevExpress.ExpressApp.Reports.v15.2.dll + + + False + True + + + False + True + + + True + + + + + True + + + True + + + False + True + + + True + + + True + + + + True + + + True + + + + + True + + + True + + + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + + + + False + True + + + False + True + + + + + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + False + True + + + + + + + + + + + + + + ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\Mono.Security.dll + True + + + ..\packages\Newtonsoft.Json.8.0.3\lib\net40\Newtonsoft.Json.dll + True + + + False + ..\..\..\..\..\..\..\Program Files (x86)\PostgreSQL\Npgsql\ms.net4.0\Npgsql.dll + True + + + ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\policy.2.0.Npgsql.dll + True + + + False + + + False + + + False + + + False + + + + False + + + + + + False + + + False + + + + + + + + + + + + + + + + True + True + Reference.svcmap + + + Component + + + + True + Application.myapp + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + WinApplication.vb + + + Component + + + + SISSplashScreen.vb + + + Form + + + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + WinApplication.vb + Designer + + + SISSplashScreen.vb + + + + + + + + + + + + + + Designer + + + + Designer + + + + + WCF Proxy Generator + Reference.vb + + + + + Always + Designer + + + Model.xafml + Always + Designer + + + Model.xafml + Always + Designer + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + {b9ef03ff-d05b-4fd4-a8e9-f90d819cb1dc} + SISBusiness.Module.CSharp + + + {98539dcf-bf11-4158-aec0-4b008a404a0e} + SISBusiness.Module.Win + + + {60bf693f-7dea-4cf6-85bd-ea96829d79dd} + SISBusiness.Module + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj.vspscc b/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.WIN.Company/SISBusiness.Win.Company.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.svcmap b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.svcmap new file mode 100644 index 0000000..4c46b16 --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.svcmap @@ -0,0 +1,34 @@ + + + + false + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.vb b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.vb new file mode 100644 index 0000000..a97b02e --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/Reference.vb @@ -0,0 +1,385 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace MNBArfolyamService + + _ + Public Interface MNBArfolyamServiceSoap + + 'CODEGEN: Generating message contract since the operation GetCurrencies is neither RPC nor document wrapped. + _ + Function GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse + + 'CODEGEN: Generating message contract since the operation GetCurrencyUnits is neither RPC nor document wrapped. + _ + Function GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse + + 'CODEGEN: Generating message contract since the operation GetCurrentExchangeRates is neither RPC nor document wrapped. + _ + Function GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetDateInterval is neither RPC nor document wrapped. + _ + Function GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse + + 'CODEGEN: Generating message contract since the operation GetExchangeRates is neither RPC nor document wrapped. + _ + Function GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse + + 'CODEGEN: Generating message contract since the operation GetInfo is neither RPC nor document wrapped. + _ + Function GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse + End Interface + + _ + Partial Public Class GetCurrenciesRequest + + _ + Public GetCurrencies As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencies As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody) + MyBase.New + Me.GetCurrencies = GetCurrencies + End Sub + End Class + + _ + Partial Public Class GetCurrenciesResponse + + _ + Public GetCurrenciesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrenciesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesResponseBody) + MyBase.New + Me.GetCurrenciesResponse1 = GetCurrenciesResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsRequest + + _ + Public GetCurrencyUnits As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnits As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsRequestBody) + MyBase.New + Me.GetCurrencyUnits = GetCurrencyUnits + End Sub + End Class + + _ + Partial Public Class GetCurrencyUnitsResponse + + _ + Public GetCurrencyUnitsResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrencyUnitsResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsResponseBody) + MyBase.New + Me.GetCurrencyUnitsResponse1 = GetCurrencyUnitsResponse1 + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesRequest + + _ + Public GetCurrentExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody) + MyBase.New + Me.GetCurrentExchangeRates = GetCurrentExchangeRates + End Sub + End Class + + _ + Partial Public Class GetCurrentExchangeRatesResponse + + _ + Public GetCurrentExchangeRatesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCurrentExchangeRatesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesResponseBody) + MyBase.New + Me.GetCurrentExchangeRatesResponse1 = GetCurrentExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetDateIntervalRequest + + _ + Public GetDateInterval As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateInterval As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody) + MyBase.New + Me.GetDateInterval = GetDateInterval + End Sub + End Class + + _ + Partial Public Class GetDateIntervalResponse + + _ + Public GetDateIntervalResponse1 As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateIntervalResponse1 As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalResponseBody) + MyBase.New + Me.GetDateIntervalResponse1 = GetDateIntervalResponse1 + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesRequest + + _ + Public GetExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRates As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesRequestBody) + MyBase.New + Me.GetExchangeRates = GetExchangeRates + End Sub + End Class + + _ + Partial Public Class GetExchangeRatesResponse + + _ + Public GetExchangeRatesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetExchangeRatesResponse1 As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesResponseBody) + MyBase.New + Me.GetExchangeRatesResponse1 = GetExchangeRatesResponse1 + End Sub + End Class + + _ + Partial Public Class GetInfoRequest + + _ + Public GetInfo As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfo As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody) + MyBase.New + Me.GetInfo = GetInfo + End Sub + End Class + + _ + Partial Public Class GetInfoResponse + + _ + Public GetInfoResponse1 As SISBusiness.[Module].MNBArfolyamService.GetInfoResponseBody + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetInfoResponse1 As SISBusiness.[Module].MNBArfolyamService.GetInfoResponseBody) + MyBase.New + Me.GetInfoResponse1 = GetInfoResponse1 + End Sub + End Class + + _ + Public Interface MNBArfolyamServiceSoapChannel + Inherits MNBArfolyamService.MNBArfolyamServiceSoap, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class MNBArfolyamServiceSoapClient + Inherits System.ServiceModel.ClientBase(Of MNBArfolyamService.MNBArfolyamServiceSoap) + Implements MNBArfolyamService.MNBArfolyamServiceSoap + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencies(ByVal request As MNBArfolyamService.GetCurrenciesRequest) As MNBArfolyamService.GetCurrenciesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencies + Return MyBase.Channel.GetCurrencies(request) + End Function + + Public Function GetCurrencies(ByVal GetCurrencies1 As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrenciesResponseBody + Dim inValue As MNBArfolyamService.GetCurrenciesRequest = New MNBArfolyamService.GetCurrenciesRequest() + inValue.GetCurrencies = GetCurrencies1 + Dim retVal As MNBArfolyamService.GetCurrenciesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencies(inValue) + Return retVal.GetCurrenciesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrencyUnits(ByVal request As MNBArfolyamService.GetCurrencyUnitsRequest) As MNBArfolyamService.GetCurrencyUnitsResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrencyUnits + Return MyBase.Channel.GetCurrencyUnits(request) + End Function + + Public Function GetCurrencyUnits(ByVal GetCurrencyUnits1 As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrencyUnitsResponseBody + Dim inValue As MNBArfolyamService.GetCurrencyUnitsRequest = New MNBArfolyamService.GetCurrencyUnitsRequest() + inValue.GetCurrencyUnits = GetCurrencyUnits1 + Dim retVal As MNBArfolyamService.GetCurrencyUnitsResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrencyUnits(inValue) + Return retVal.GetCurrencyUnitsResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetCurrentExchangeRates(ByVal request As MNBArfolyamService.GetCurrentExchangeRatesRequest) As MNBArfolyamService.GetCurrentExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetCurrentExchangeRates + Return MyBase.Channel.GetCurrentExchangeRates(request) + End Function + + Public Function GetCurrentExchangeRates(ByVal GetCurrentExchangeRates1 As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetCurrentExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetCurrentExchangeRatesRequest = New MNBArfolyamService.GetCurrentExchangeRatesRequest() + inValue.GetCurrentExchangeRates = GetCurrentExchangeRates1 + Dim retVal As MNBArfolyamService.GetCurrentExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetCurrentExchangeRates(inValue) + Return retVal.GetCurrentExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetDateInterval(ByVal request As MNBArfolyamService.GetDateIntervalRequest) As MNBArfolyamService.GetDateIntervalResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetDateInterval + Return MyBase.Channel.GetDateInterval(request) + End Function + + Public Function GetDateInterval(ByVal GetDateInterval1 As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetDateIntervalResponseBody + Dim inValue As MNBArfolyamService.GetDateIntervalRequest = New MNBArfolyamService.GetDateIntervalRequest() + inValue.GetDateInterval = GetDateInterval1 + Dim retVal As MNBArfolyamService.GetDateIntervalResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetDateInterval(inValue) + Return retVal.GetDateIntervalResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetExchangeRates(ByVal request As MNBArfolyamService.GetExchangeRatesRequest) As MNBArfolyamService.GetExchangeRatesResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetExchangeRates + Return MyBase.Channel.GetExchangeRates(request) + End Function + + Public Function GetExchangeRates(ByVal GetExchangeRates1 As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetExchangeRatesResponseBody + Dim inValue As MNBArfolyamService.GetExchangeRatesRequest = New MNBArfolyamService.GetExchangeRatesRequest() + inValue.GetExchangeRates = GetExchangeRates1 + Dim retVal As MNBArfolyamService.GetExchangeRatesResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetExchangeRates(inValue) + Return retVal.GetExchangeRatesResponse1 + End Function + + _ + Function MNBArfolyamService_MNBArfolyamServiceSoap_GetInfo(ByVal request As MNBArfolyamService.GetInfoRequest) As MNBArfolyamService.GetInfoResponse Implements MNBArfolyamService.MNBArfolyamServiceSoap.GetInfo + Return MyBase.Channel.GetInfo(request) + End Function + + Public Function GetInfo(ByVal GetInfo1 As SISBusiness.[Module].MNBArfolyamService.GetInfoRequestBody) As SISBusiness.[Module].MNBArfolyamService.GetInfoResponseBody + Dim inValue As MNBArfolyamService.GetInfoRequest = New MNBArfolyamService.GetInfoRequest() + inValue.GetInfo = GetInfo1 + Dim retVal As MNBArfolyamService.GetInfoResponse = CType(Me,MNBArfolyamService.MNBArfolyamServiceSoap).GetInfo(inValue) + Return retVal.GetInfoResponse1 + End Function + End Class +End Namespace diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.disco b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.disco new file mode 100644 index 0000000..50b6aa3 --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.disco @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.wsdl b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.wsdl new file mode 100644 index 0000000..322018c --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.wsdl @@ -0,0 +1,85 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.xsd b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.xsd new file mode 100644 index 0000000..d54837d --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok.xsd @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.wsdl b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.wsdl new file mode 100644 index 0000000..f4639bc --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.wsdl @@ -0,0 +1,95 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.xsd b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.xsd new file mode 100644 index 0000000..d58e7f3 --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/arfolyamok1.xsd @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration.svcinfo b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration.svcinfo new file mode 100644 index 0000000..7882ddd --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration91.svcinfo b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration91.svcinfo new file mode 100644 index 0000000..9c8c368 --- /dev/null +++ b/SISBusiness.WIN.Company/Service References/MNBArfolyamService/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Collection) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + + + http://www.mnb.hu/arfolyamok.asmx + + + + + + basicHttpBinding + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + MNBArfolyamService.MNBArfolyamServiceSoap + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + BasicHttpBinding_MNBArfolyamServiceSoap + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/WinApplication.Designer.vb b/SISBusiness.WIN.Company/WinApplication.Designer.vb new file mode 100644 index 0000000..60fc2ec --- /dev/null +++ b/SISBusiness.WIN.Company/WinApplication.Designer.vb @@ -0,0 +1,206 @@ +Imports Microsoft.VisualBasic +Imports System +Imports DevExpress.ExpressApp.Security + +Partial Public Class SISBusinessWindowsFormsApplication + ''' + ''' Required designer variable. + ''' + Private components As System.ComponentModel.IContainer = Nothing + + ''' + ''' Clean up any resources being used. + ''' + ''' true if managed resources should be disposed; otherwise, false. + 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" + + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule() + Me.module3 = New SISBusiness.[Module].SISBusinessModule() + Me.module4 = New SISBusiness.[Module].Win.SISBusinessWindowsFormsModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.module7 = New DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.FileAttachmentsWindowsFormsModule1 = New DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule() + Me.HtmlPropertyEditorWindowsFormsModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotChartWindowsFormsModule1 = New DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule() + Me.AuditTrailModule2 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.TreeListEditorsWindowsFormsModule1 = New DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + Me.ReportsWindowsFormsModule1 = New DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerWindowsFormsModule1 = New DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.ChartWindowsFormsModule1 = New DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.PivotGridWindowsFormsModule1 = New DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule() + Me.CSharpModule1 = New SISBusiness.[Module].CSharp.CSharpModule() + Me.NotificationsModule1 = New DevExpress.ExpressApp.Notifications.NotificationsModule() + Me.NotificationsWindowsFormsModule1 = New DevExpress.ExpressApp.Notifications.Win.NotificationsWindowsFormsModule() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + Me.module5.IgnoreWarningAndInformationRules = False + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISBusiness;Integrated Security=SSPI;Pooling=" & _ + "false" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'ViewVariantsModule1 + ' + Me.ViewVariantsModule1.ShowAdditionalNavigation = True + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'AuthenticationStandard1 + ' + Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'AuditTrailModule2 + ' + Me.AuditTrailModule2.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'NotificationsModule1 + ' + Me.NotificationsModule1.NotificationsRefreshInterval = System.TimeSpan.Parse("00:05:00") + Me.NotificationsModule1.NotificationsStartDelay = System.TimeSpan.Parse("00:00:05") + Me.NotificationsModule1.ShowNotificationsWindow = True + ' + 'SISBusinessWindowsFormsApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.AuditTrailModule2) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.NotificationsModule1) + Me.Modules.Add(Me.module3) + Me.Modules.Add(Me.FileAttachmentsWindowsFormsModule1) + Me.Modules.Add(Me.HtmlPropertyEditorWindowsFormsModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartWindowsFormsModule1) + Me.Modules.Add(Me.module7) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsWindowsFormsModule1) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsWindowsFormsModule1) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartWindowsFormsModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridWindowsFormsModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerWindowsFormsModule1) + Me.Modules.Add(Me.NotificationsWindowsFormsModule1) + Me.Modules.Add(Me.module4) + Me.Modules.Add(Me.CSharpModule1) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.NavBarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LayoutControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.GridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Localization.PreviewControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.BarControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Security.ServerDataLogLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.RichEditControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.TreeListControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.VerticalGridControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.XtraEditorsLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Localization.LargeStringEditFindFormLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.MainFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.DetailViewFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.NestedFrameTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.LookupControlTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Win.Templates.PopupFormTemplateLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditorControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.PivotGridLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.ChartLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.AnalysisControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Reports.Win.ReportControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.SchedulerModuleBaseLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Win.SchedulerControlLocalizer)) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + +#End Region + + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Win.SystemModule.SystemWindowsFormsModule + Private module3 As Global.SISBusiness.Module.SISBusinessModule + Private module4 As Global.SISBusiness.Module.Win.SISBusinessWindowsFormsModule + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private module7 As DevExpress.ExpressApp.Validation.Win.ValidationWindowsFormsModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents FileAttachmentsWindowsFormsModule1 As DevExpress.ExpressApp.FileAttachments.Win.FileAttachmentsWindowsFormsModule + Friend WithEvents HtmlPropertyEditorWindowsFormsModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlPropertyEditorWindowsFormsModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotChartWindowsFormsModule1 As DevExpress.ExpressApp.PivotChart.Win.PivotChartWindowsFormsModule + Friend WithEvents AuditTrailModule2 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents TreeListEditorsWindowsFormsModule1 As DevExpress.ExpressApp.TreeListEditors.Win.TreeListEditorsWindowsFormsModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + Friend WithEvents ReportsWindowsFormsModule1 As DevExpress.ExpressApp.Reports.Win.ReportsWindowsFormsModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerWindowsFormsModule1 As DevExpress.ExpressApp.Scheduler.Win.SchedulerWindowsFormsModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents ChartWindowsFormsModule1 As DevExpress.ExpressApp.Chart.Win.ChartWindowsFormsModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents PivotGridWindowsFormsModule1 As DevExpress.ExpressApp.PivotGrid.Win.PivotGridWindowsFormsModule + Friend WithEvents CSharpModule1 As SISBusiness.Module.CSharp.CSharpModule + Friend WithEvents NotificationsModule1 As DevExpress.ExpressApp.Notifications.NotificationsModule + Friend WithEvents NotificationsWindowsFormsModule1 As DevExpress.ExpressApp.Notifications.Win.NotificationsWindowsFormsModule +End Class diff --git a/SISBusiness.WIN.Company/WinApplication.resx b/SISBusiness.WIN.Company/WinApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.WIN.Company/WinApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/WinApplication.vb b/SISBusiness.WIN.Company/WinApplication.vb new file mode 100644 index 0000000..a34170b --- /dev/null +++ b/SISBusiness.WIN.Company/WinApplication.vb @@ -0,0 +1,140 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Win +Imports SISBusiness.Module.Win +Imports DevExpress.ExpressApp +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.XtraBars.Alerter +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.Xpo +Imports SISBusiness.Module.GeneralFunction +Imports System.Data.SqlClient +Imports System.IO +Imports System.Net +Imports Newtonsoft.Json +Imports SISBusiness.Module +Imports System.Text + +Partial Public Class SISBusinessWindowsFormsApplication + Inherits WinApplication + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + Protected Overrides Function GetTraceLogDirectory() As String + Return MyBase.GetTraceLogDirectory() + End Function + Protected Overrides Function CreateLogonWindowControllers() As System.Collections.Generic.List(Of DevExpress.ExpressApp.Controller) + Dim _result As System.Collections.Generic.List(Of DevExpress.ExpressApp.Controller) + Dim _CreateLogonWindowsControllerVC As New CreateLogonWindowsControllerVC + _result = MyBase.CreateLogonWindowControllers() + _result.Add(_CreateLogonWindowsControllerVC) + Return _result + End Function + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + Protected Overrides Sub OnLoggedOn(args As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(args) + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User) + + '// Itt sikeres a belps !!! + SISPushInfoSSL() + End Sub + + Protected Overrides Sub OnLoggingOff(args As DevExpress.ExpressApp.LoggingOffEventArgs) + MyBase.OnLoggingOff(args) + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User) + End Sub + Private Sub SISPushInfoSSL() + Dim _PushInfoClass As New PushInfoClass + Dim _InfoString As String = "" + Try + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + + _PushInfoClass.UserName = _User.UserName + _PushInfoClass.FullName = _User.FullName + + _InfoString = JsonConvert.SerializeObject(_PushInfoClass) + _InfoString = AESEncrypt(_InfoString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + _InfoString = Convert.ToBase64String(Encoding.UTF8.GetBytes(_InfoString)) + + Dim _url = "http://sis-r.hu/SISChat/SISPushInfoSSL.ashx?id=" & _InfoString + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) + Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) + Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) + _InfoString = _reader.ReadToEnd + + GLOBAL_ActivityID = _InfoString + Catch ex As Exception + + End Try + End Sub + +End Class +Public Class PushInfoClass + Property Company As String + Property ComputerName As String + Property ComputerIPAddress As String + Property ComputerUserName As String + Property ComputerUserDomainName As String + Property UserName As String + Property FullName As String + Sub New() + Company = GLOBAL_Company + ComputerName = Environment.MachineName + ComputerIPAddress = GetIPv4Address() + ComputerUserName = Environment.UserName + ComputerUserDomainName = Environment.UserDomainName + End Sub + Private Function GetIPv4Address() As String + Dim _GetIPv4Address As String = "" + GetIPv4Address = String.Empty + Dim strHostName As String = System.Net.Dns.GetHostName() + Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName) + + For Each ipheal As System.Net.IPAddress In iphe.AddressList + If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then + If _GetIPv4Address = "" Then + _GetIPv4Address = ipheal.ToString() + Else + _GetIPv4Address += ";" + ipheal.ToString() + End If + End If + Next + Return _GetIPv4Address + End Function + +End Class + diff --git a/SISBusiness.WIN.Company/WinApplication_DB.vb b/SISBusiness.WIN.Company/WinApplication_DB.vb new file mode 100644 index 0000000..fb7adc6 --- /dev/null +++ b/SISBusiness.WIN.Company/WinApplication_DB.vb @@ -0,0 +1,130 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Win +Imports DevExpress.ExpressApp.Updating +Imports DevExpress.ExpressApp +Imports System.Configuration +Imports DevExpress.ExpressApp.Security +Imports SISBusiness.Module +Imports DevExpress.Persistent.BaseImpl +Imports SISBusiness.Module.Win +Imports DevExpress.Xpo +Imports DevExpress.Xpo.DB +Imports System.Net +Imports System.IO +Imports System.Text +Imports Newtonsoft.Json + +Partial Public Class SISBusinessWindowsFormsApplication + Inherits WinApplication + Implements IApplicationFactory + Friend WithEvents SystemModule1 As DevExpress.ExpressApp.SystemModule.SystemModule + Protected Overrides Sub ReadLastLogonParametersCore(ByVal storage As DevExpress.ExpressApp.Utils.SettingsStorage, ByVal logonObject As Object) + Dim standardLogonParameters As AuthenticationStandardLogonParameters = TryCast(logonObject, AuthenticationStandardLogonParameters) + If (standardLogonParameters IsNot Nothing) AndAlso String.IsNullOrEmpty(standardLogonParameters.UserName) Then + MyBase.ReadLastLogonParametersCore(storage, logonObject) + Try + TryCast(logonObject, ChangeLogon).DBConnection = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\DBConnection") + TryCast(logonObject, ChangeLogon).SQLServer = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\SQLServer") + TryCast(logonObject, ChangeLogon).Company = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\Company") + Select Case TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnString).Values("\SQLType") + Case "MSSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MSSQL + Case "PostgreSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.PostgreSQL + Case "MySQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MySQL + End Select + Catch + End Try + End If + End Sub + Protected Overrides Sub OnLoggingOn(ByVal args As LogonEventArgs) + Dim connstr As String = "" + Dim _ChangeLogon As ChangeLogon + + + MyBase.OnLoggingOn(args) + + _ChangeLogon = TryCast(args.LogonParameters, ChangeLogon) + + GLOBAL_Company = _ChangeLogon.Company + + 'Me.ConnectionString = GetConnectionGLOBAL() + Me.ConnectionString = GetSISSecurity() + SISGetInfoSSL() + Dim anm As System.Reflection.AssemblyName = System.Reflection.AssemblyName.GetAssemblyName(Application.StartupPath & "\SISBusiness.Module.dll") + + GLOBAL_MainModuleVersion = anm.Version.ToString + GLOBAL_ConnectionString = connstr + GLOBAL_WINFormCaption = String.Format("SISBusiness Framework version: {0} [{1}]", Application.ProductVersion, anm.Version.ToString) + GLOBAL_WINFormCaption += String.Format(", ({0})", GLOBAL_Company_Info) + GLOBAL_ApplicationStartupPath = Application.StartupPath & "\" + End Sub + Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean + If WinChangeDatabaseHelper.SkipLogonDialog Then + Return True + End If + Return MyBase.OnLogonFailed(logonParameters, e) + End Function + Public Shared Function CreateApplication() As SISBusinessWindowsFormsApplication + Dim winApplication As New SISBusinessWindowsFormsApplication + + CType(winApplication.Security, SecurityBase).Authentication = New WinChangeDatabaseStandardAuthentication() + Return winApplication + End Function + Private Function IApplicationFactory_CreateApplication() As WinApplication Implements IApplicationFactory.CreateApplication + Return CreateApplication() + End Function + Protected Overrides Function GetModelAssemblyFilePath() As String + Return Nothing + End Function + + Private Function GetSISSecurity() As String + Dim _ConnectionString As String = "" + Try + + Dim _url = "http://sis-r.hu/SISChat/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) + Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) + Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) + _ConnectionString = _reader.ReadToEnd + + _ConnectionString = Encoding.UTF8.GetString(Convert.FromBase64String(_ConnectionString)) + _ConnectionString = AESDecrypt(_ConnectionString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + + Catch ex As Exception + + End Try + Return _ConnectionString + End Function + Private Sub SISGetInfoSSL() + Dim _InfoString As String = "" + Dim _GetInfoClass As New GetInfoClass + Try + Dim _url = "http://sis-r.hu/SISChat/SISGetInfoSSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) + Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) + Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) + _InfoString = _reader.ReadToEnd + + _InfoString = Encoding.UTF8.GetString(Convert.FromBase64String(_InfoString)) + _InfoString = AESDecrypt(_InfoString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + + _GetInfoClass = JsonConvert.DeserializeObject(Of GetInfoClass)(_InfoString) + + + GLOBAL_Company_Info = String.Format("Server: {0}, Database: {1}", _GetInfoClass.SQLServer, _GetInfoClass.SQLDatabase) + GLOBAL_SQLType = _GetInfoClass.SQLType + Catch ex As Exception + End Try + End Sub +End Class +Public Class GetInfoClass + Property SQLType As eSQLType + Property SQLServer As String + Property SQLDatabase As String +End Class + diff --git a/SISBusiness.WIN.Company/WinForms/SISSplash.vb b/SISBusiness.WIN.Company/WinForms/SISSplash.vb new file mode 100644 index 0000000..f3b4283 --- /dev/null +++ b/SISBusiness.WIN.Company/WinForms/SISSplash.vb @@ -0,0 +1,28 @@ +Imports DevExpress.ExpressApp.Win +'... +Public Class SISSplash + Implements ISplash + Private Shared form As SISSplashScreen + Private _isStarted As Boolean + Public Sub Start() Implements ISplash.Start + _isStarted = True + form = New SISSplashScreen + form.Show() + System.Windows.Forms.Application.DoEvents() + End Sub + Public Sub [Stop]() Implements ISplash.Stop + If form IsNot Nothing Then + form.Hide() + form.Close() + form = Nothing + End If + _isStarted = False + End Sub + Public Sub SetDisplayText(ByVal displayText As String) Implements ISplash.SetDisplayText + End Sub + Public ReadOnly Property IsStarted() As Boolean Implements ISplash.IsStarted + Get + Return _isStarted + End Get + End Property +End Class diff --git a/SISBusiness.WIN.Company/WinForms/SISSplashScreen.Designer.vb b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.Designer.vb new file mode 100644 index 0000000..298ae89 --- /dev/null +++ b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.Designer.vb @@ -0,0 +1,113 @@ + _ +Partial Class SISSplashScreen + Inherits DevExpress.XtraSplashScreen.SplashScreen + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SISSplashScreen)) + Me.pictureEdit2 = New DevExpress.XtraEditors.PictureEdit() + Me.pictureEdit1 = New DevExpress.XtraEditors.PictureEdit() + Me.labelControl2 = New DevExpress.XtraEditors.LabelControl() + Me.labelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.marqueeProgressBarControl1 = New DevExpress.XtraEditors.MarqueeProgressBarControl() + CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.marqueeProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'pictureEdit2 + ' + Me.pictureEdit2.Cursor = System.Windows.Forms.Cursors.Default + Me.pictureEdit2.EditValue = CType(resources.GetObject("pictureEdit2.EditValue"), Object) + Me.pictureEdit2.Location = New System.Drawing.Point(12, 12) + Me.pictureEdit2.Name = "pictureEdit2" + Me.pictureEdit2.Properties.AllowFocused = False + Me.pictureEdit2.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.pictureEdit2.Properties.Appearance.Options.UseBackColor = True + Me.pictureEdit2.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pictureEdit2.Properties.ShowMenu = False + Me.pictureEdit2.Size = New System.Drawing.Size(426, 180) + Me.pictureEdit2.TabIndex = 14 + ' + 'pictureEdit1 + ' + Me.pictureEdit1.Cursor = System.Windows.Forms.Cursors.Default + Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object) + Me.pictureEdit1.Location = New System.Drawing.Point(278, 268) + Me.pictureEdit1.Name = "pictureEdit1" + Me.pictureEdit1.Properties.AllowFocused = False + Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent + Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True + Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.pictureEdit1.Properties.ShowMenu = False + Me.pictureEdit1.Size = New System.Drawing.Size(155, 48) + Me.pictureEdit1.TabIndex = 13 + ' + 'labelControl2 + ' + Me.labelControl2.Location = New System.Drawing.Point(23, 206) + Me.labelControl2.Name = "labelControl2" + Me.labelControl2.Size = New System.Drawing.Size(50, 13) + Me.labelControl2.TabIndex = 12 + Me.labelControl2.Text = "Starting..." + ' + 'labelControl1 + ' + Me.labelControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + Me.labelControl1.Location = New System.Drawing.Point(23, 286) + Me.labelControl1.Name = "labelControl1" + Me.labelControl1.Size = New System.Drawing.Size(221, 13) + Me.labelControl1.TabIndex = 11 + Me.labelControl1.Text = "Copyright © 1998-2013 SIS-Rendszerház Kft." + ' + 'marqueeProgressBarControl1 + ' + Me.marqueeProgressBarControl1.EditValue = 0 + Me.marqueeProgressBarControl1.Location = New System.Drawing.Point(23, 231) + Me.marqueeProgressBarControl1.Name = "marqueeProgressBarControl1" + Me.marqueeProgressBarControl1.Size = New System.Drawing.Size(404, 18) + Me.marqueeProgressBarControl1.TabIndex = 10 + ' + 'SISSplashScreen + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(450, 320) + Me.Controls.Add(Me.pictureEdit2) + Me.Controls.Add(Me.pictureEdit1) + Me.Controls.Add(Me.labelControl2) + Me.Controls.Add(Me.labelControl1) + Me.Controls.Add(Me.marqueeProgressBarControl1) + Me.Name = "SISSplashScreen" + Me.Text = "Form1" + CType(Me.pictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.marqueeProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Private WithEvents pictureEdit2 As DevExpress.XtraEditors.PictureEdit + Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit + Private WithEvents labelControl2 As DevExpress.XtraEditors.LabelControl + Private WithEvents labelControl1 As DevExpress.XtraEditors.LabelControl + Private WithEvents marqueeProgressBarControl1 As DevExpress.XtraEditors.MarqueeProgressBarControl +End Class diff --git a/SISBusiness.WIN.Company/WinForms/SISSplashScreen.resx b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.resx new file mode 100644 index 0000000..1ffa7c8 --- /dev/null +++ b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.resx @@ -0,0 +1,689 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAaoAAAC0CAIAAABKRv/+AAAABGdBTUEAALGPC/xhBQAAd/VJREFUeF7d + 3YeWHEeS7nm8/1usuLs7d6abzWaTBEmQIAgSWhS0lgRVd8/cV1gzN3fzzz5z94jMKrJn95z/yRMZGakK + FT94iMw69z8+vmz9n3/R/o+Pvpv1v//50p7+tz8dHz3UInptO7P3OMx/Drn/6+Pvx/110P/91x+G/T+f + jPrblVn/Vvqfn9b+/bOrvc+v5f4D+tP569KfpS9ufPTljY+/uvXpxTtfXr739ZWH3157fOm69t2NJ+Nu + Prkc+/5W7un3t55hP9wedOX2c+3OuKt3t7u26sWgkxfX773c2Y3TJc8l70J+Pt9eeyQ/2K+vPBh0dWcP + Y482u3htlbykQdcfz7JfiVn8GzLs5q4u33y6WfntCl1O0a/fqHLf2xtV/owAwoIigHJk2XHRY86i17Yz + xy7n2FFMHpbsk0g9j+Gzknqew3c0f1nAL77rAvKvbwvh85J9/PtH8HnoHUXSDdtFnnRSI+DWEWcHJU96 + 5c4zWZ/FmgOxI+mGVeO+mYTS5Vg9K5HnoXQ5+vUYl5gbRswNa79d68Lv3rTbuRF/tv6TFBTpQxFhp4we + fBi9vD25dDn0jmLysGSfROp5DJ+V1JP+LcJnHcSfC6j8gYB/++bO+e9OLvzw4OL1R5duHCBghG/8K0jw + WUQeRdjldqrnEXDrSLSdyR3lqeUnIDR8c02oIt0oRG1vhF2OvMNYPSuRhyF2OfrdGJSYG0bMzYq/Y7P4 + d28QwzfunK3/JAVF9FCE1+mjx8/Ry9uTSzeMyPPYOyzBZ5F6HsNnJfisaN9VaZM/KfPnA0AT8C8Xbn7y + ze3PL9396of7sqoUAce/38Tf6PeSf+EIPou8w0i63BS+pJ6Huu2JaNtM7iIvTN6+/OjIvgtXrIcWiXZQ + hB2F2FGsnufY3eDkjYwT++R3Iyl2XFU32oYF9az4CzaLf/Fy9EtoEXyW8kdSUERPjvA6ZfTgw+gV7gmx + o4g8jMnDEnwSkYcxfNbIPuBP4TsD/qQvb0gu4Gci4Pf3L159WP57Xwi4/tVsv3DlN4l+265YST0PpUu9 + kPar5yFtOyPgBt2vXbv34srd55dvPRFHilOmXvUuh6IdFHlHEXnYt9dHJfLQwUCeVeCT9NcgQRbaXKDF + 8Hnyq9Wm6wapT9g0140bRr+E65Q/YoIid3KE1+mjxx9GL3Iz8g4j7zD2DkvwWUSex+p5CT4L4WP79vHX + BfxCRn+lJuDHX9385Otbn30rAt77Zi4g2mcNfhfhP1JJfqWqel5Sz0vkSaqet189j2g7qCF5ltwqD/6D + 7+wrSBF2XjkM0oqu7Sx4d61dttA7rIzyILvq5I3q5I1Cv06TA7euqzet/Jrhbx3AJyFtOzsVfyTXmURP + kaNXuBl5RxF5HnuHJfUsIg9j9VqkXivYdzx/X6h9yJ/YpwNAF1APhpxcKBvCRwrov4jll4ntsxJ83lA9 + DGnbGYp2JsmgT16JrF2XbjwRfYSnlXe5pNtmiN1e+xA+LJGHkXcYEXZ0ZNysJF2ueQe/ciHh704pArdu + xR+5QxFbZxU9S45e5GbkHUbkeewdleCTyDuMyPP+7W+Zv6vZPulg/s5rzp/0kRUF/OuFW3+zXYF9Q3hD + QObv1lP6fWL7pKSeh9LNIt02I7xOmTygvE5ZP8sGb7WPgVuXdFtXpfOhX4zU81g9K3mHkXcYEXaa0LhZ + Sbpcwo5y+3Lya2mXo47kj8w6w+iJKHqFm5F3GJHnMXZUgs8i8jBST1L42D6Fbxd/ST3P4UP+bOhX+UsC + fmy7Ai/e1XNifngoKxLxJ1X7/Jc1Rr9PbJ+U1MMIO+yIjV+LCDuua/deXtGjHDrokw1JtYlc21nUbTPy + jkLyPFbPS+R55B1FhB2d/84sStLlEnap4J1n8/2XE29q8/978UfPQtHL24y8w4g8j7GjknoWeYeN4Qv8 + dfgssk/ayx/YJ9VtXhIQ+CsC3pL+euG2nhNz6USGgW1vIAiYfo/PTMDRlm9VD0vAbUaWHZq8DHkj8sYF + PhmFsWh7Sq7tibCjSD2P1bPm0pUdHfOSYlQ8JWAa/ZIMYuaGsXQ5dm0z/129M+eP6KGIrTOJniJHr3Ad + eYcReR5jhyXyPPIOW9lX+WP7JLJPOpS/P5XG/HUBb/6lZAJ+fOGWDwP1xMCrjxRB/KUfwef1XymCzyL1 + pLu9qXpYAm4zEm1PN9rWrrwjefsii6pEruUiYUcn//Egajk9mpHnkHotIg9j7zD4F59FzM3CX49BzNwg + +V0i6XLBtUNbjP6IHozYOqvoWSh6eZsReR6R57F3WCLPI++wFXxSUs8i+Kz9/Bl8W/zd9EhAGwZ+dunu + l9/flxX74vWyLbzvF9r5kxp85UNv+NE3UM+7ujix2Uu6rbpXI92G+dFeuWOB75m85bq1O+yMvBPsKHQt + 9+21x+P8nD5INtjBO5nu9UF9Lkk3zHcEL6LfjUGKV8COwl+nYafk70rpvwt/9BQUvbbNiDyPyPPYOyyR + 55F32NK+8aDPIvisPfzpod4lf9JHX9yozQT8+tZfv74tw8BPv9XPh+C28OECgn3SSD2PsRtGxuWaejHd + i0fkSa4ew3cd4GvStVOaj/wUh1QPZcxT464H7yhWzzLvYKeeXSXyvEoYkoeBcbOIuVn0i8E1vGbhL9Ii + I4wi5ob5wmP+SB+K5DqT6Ckwem2bEXkWeecxdlQizyPvsDl80u9l3xZ/5YMfC/4u6OhP+7oi+DfZFgYE + xQVZQ7YEjL+dop5v7cLQD+HzGLth5J3E2HmqHkUCSvKYFT775gIAy8nLFc72x9LVbI9em1D7llXpKISv + ReRhCNlx6T4QM84mRpc0jksxdjn8LZrlhG02s0/6b8EfPT5GL2wdkecReRZLRyXvMPIOW8G3tE8i+Kw1 + fwZftk9C+Bb8ffTVzb+UXMC/Kn+3PpFhYEXw7g4E66mnXcD6qxYEJPKoIN2slXor6TB7EPntl7VRVmkf + 8RFzVP9qgysPInDrADvzzq76TBn6JewoVs9K8FlEnoeKHVdnbtjQPp4TmBvmTtXfIvt1StGvVqvTtqf/ + //BH5EnkncfSYUk6irDDNgZ9R9knNfisAXxz/jp8VufPBPyqZwL+VXf/lYqAQwR1n2A5TToi2Pij32D9 + JQu/oEQextLlzD7mb9s7T9W7+1xelazMl260gxtz+JC8GBk3z4ybR9LlWD0rqWcReRhCdkRBuklRulw3 + bhb+5oSWv1Rbde+oY/iTyK/TRI/s0UuatfZuQ7fhzHnkHbYB39nYV/kj+CyETz/qm+yTwL4baJ+k5wCO + +EMB6+bwpZMvL/vRYd1nJP/tVwTjrzL8noVfR1KPYvIshw8i2hbJwrrdDcM9cWeoHgLHwaaxXGXmhiXs + KJIux+p5Kh1Xd+G1ztA+iaQbFrGjwu/GLDSuh/PLNP1GHV79zfwX80cP69HryRF5GTiCKWTfMkAzP+mW + SWvsML97gk86lX0SwKf2EXmYw2cRfF4766XzZ+M+3fjdErAheEdGgp9fOvni8v2vvlcmZAxlK5iuAAVB + 2zyR/Pes1H//iDxqrd4sxK4ODEm9NNxbYWcV6fiyTTB2ueQdRdhRTF6L1LPIPk3Yskvp1tNQQ82y41qz + dIEkXS5iRwXjZnXjluEv0ikb8yeRRzmC7LjoMSV6GdjAuyZdNci+QaClfNjoqXYt1m8ya/yO1UcryVif + C0rqSe1lROly9tSD5IUF+66SdxjCN+WvfeWB8+fwIX87BLxjfXrx7meXTs5/d+/L7+9/9YMK8q04eL1v + FJ8GQUdto74J3Dp5IXe3LVxZ8WTVNfXMI/BO+BMEeyqaBcCt68zNithRCbscwyc178LgTnLLAnx2GeAr + wdVOmGIHV+vMhlfbs1Gm23jfY+8ouO8kBG4R/v7srR1z69Ptpn8lf/SAEr0GK5CH3hWehBjBwnULKGDN + hVl4R8l9lAc3yAhEbwqfFKXLdewwedJo338s7ZPovUgZPuKP7JMG/HUBb+sJMS7gxTuY7Rb8QhyU8eAP + 90UWWfMzhfsQ7B//0HOhCTsPsJPMO3lYWT1kZZMVXneEiSmijDgF27ZEXo6AW9eZGyXPvohQG6Rvoe3U + g6ukntVHeTmXbhJ7lyKnRqF0nPzTp+UHoXGz8Ndmb66eX4WO508izg6KHkqiF2DqZfIECMcOvQvYeY2D + HJwUMk2XbI9PIKq8n4pxE/sic8O6d1i0r8C3tu+6hO/LyvChfQcIWODzPvmmhvx9WhIEbaNYKbx87ysd + EupxEoGgfDhBv0iOBoZBw/h72bd/PWdOqr/QukrICiYruQyIChAqi+lzkHoYGbfInmgWYndRP0PyWC9b + atkiezspUs8K2OWSdxhJlyOkdhf4w9KSGhq3qBK2P/+FmXQq/iRCbWf0IJI/L6o3JM/X/MAclizwSLdZ + /RABJPP1QcpT6ysxoVTD4mDSbVHwzhsP+hb2XffwPUp77JPIPsn5KwLeru0W0BFUB9uQUCjUUWHVUAeG + woGBaJUVuK1sfgS5nEADG1y6IsnK3Db9KgfyULIVaRJV736430u07QyNm+XMDUPpcv7ex4F3GJKHBeyo + 5B3mxi1yoY5L2ULdaLpk/wX2+ZOYtnVJumFT/iQSahbRthnd3Z8uqFfGUIICkScF6bBIAIW6DSPsFtmX + BXz0pd7rT+f1JekB2TIqlEg6rDI3bDzom9l3fWGftAmfRfZJzb76PQhD/uwQcG0poDtoFNqoUDUs+wqx + ogmMlUYZc5IY91UrYPeDXIURX7gadNuTPRemO+zwDL5l5B3F3lEJPil4h5F3WPLOq7S1iVlk2RF1v2wa + 57QKWBXBeVG3zZJ0w86AP4mAG0Z3kexZZLhH6uWBnsTYYWn9p5A5imijTLrQV7HykQkZatkT2YkpTNu6 + KXy77JP8bWr2JVdb8Flkn1Q/+tYi+D7xfX8HCvjZJdkotk4+/+6edb6kw8MyQqwslkHiIlmmLqY9sCpz + aN84No7qRz/8vBaxzE9UPiTyDmPsqEBeLXiHsXchsoyyvRDD+jKJs4Mi5oYxW4E8j5ZZloxbtOJPIrAW + EXYULWwPbvCtx3oWe2fZCr8VeYcRdhirJxF8GthRHBRT/lyOouxycLq1uxc+qb/TAp/bh8zNCq//q1tS + t++CffxjYJ+1LeAlVQ86UftaZh+mAjYHte8HNfuqepoMHu3S7TsEQfSuh8M970ABD/DOM/Julgw+m75Z + voglYydF7zAnbJbvm+vxTOaM8q3XYegXkYcxXsMcLJqfsgNoffmtNviTSK51C/IsecC6d68N9wQCG+6l + tb3G6lnnYc2fR95h5J3H6lkMn4R2QDAelBeP28WhKXxD++ShxunbbPBZZNyi9poVvs5fge9o/lTAb2um + nof8dQEv97p9npJX1QvpSLDD1ye27dPYOwk2cj0SbX/smgXDulnuHcbkeUweb9suiswNY+wowi6H/GHH + 2GeXi8qSZt8svktpmz+JCDsueRzfzi3nixwLn3Q+GDeLvMOIPI/Vs3bA18dNLR8MyiuR92IOaqDeaeCT + 9G2eyr4OnwbwqX3pyO8nhwl4VyLyQt9pyJ8l6n1Zu69F9bBqX4qwG0bSDSPUcn3XJJy+p2fwiWXm3S71 + nliXbg6qp+nlALscYUcRZEeEhPUMvjJdsbs7qS7QgFuUwNJwflvs6skLLvJH2d138WcRZ/uT+/bt3A7f + eDvXY/K88x24ReQdRuR5rJ7E8ElBPYnUo3QZGgwO7OP33pK7TCP49H0l4+bJKw/wWQG+nfxd9My+uxLu + +GP1pAKf5+p5FT4swucRfFjH7urDYYRdjrCjsnpW0g2r0uVIPY/V8xJ5HmGXI8uOqJM3qfNnlzhRa35J + RtgwXGxewc7VAwGpKOC1uy8O4E8i1zaTu9AOPhvu/X/Tvr3kSc6Hz5F7/fnLG+LUf5xXBOn9pq4vQvWk + +r4YuFn1i14IPstfdm/OXzn3Bbv7KbRHQDsc7EeEsaqejPjs0oZ+aQAokXrSJnwWYef5ySvkHRXVgz19 + TJ7H5GGknjXwrkwQZ1K9tUQ39e1Zm77zrJZQ29kPd56vA5iIPKzp5sv71RZSVZeZxMxZdvI8zWnTesL8 + ofxZZNwwWQzh8+3ctXoWk+edZ+aGuXTDSD3vrOxjPqzy2QkZWBmCHwlb5YyZUddXyRtM8OmbCsDNqvBV + /iJ8g3GfNeSvn/qn+eEO5g8OfaB9563OXzv0QQKaeliyT/oKT3nJW75JPWxEHsbkYUgeltTzFsyNathR + pBvVsaPIPk9E84kyrLPLZewdRjBB0b4dXT0JAlq0jOSi7c8+LCQdw59H5Fl20//4+HIe8aVVfRCThxXd + 1rkIw4g87/eGz/tELhUaAUieV14wvf3rixC+A+0L8NVvOojw7eWvwVdy9Tzd3+dl/ip8nb9+5PcgAfFU + mD7iy/ZJiTyrqhewyzF5HpHnEXl+5krwrpy7h9MMnyXYJf4Iu1wgL2fSTUrMxQqLFZ02UtttH/YiRQto + V8W+RX0xpm0zt0/5kzGac3Ym2aBv/z4+jL3DInPDXIRhRJ73R9pX++a23PqxMPSlfZhE3vv1WfrWJvDp + m2LpqAF8bh/CZ4UXbzl/oJ4EX3xQqkd7y9Av8Wcn/QX7LLcv7f6z2L4SquexehiM8qj93mFEHta9w0y6 + SayeFdXzCDuKsaOSd1TAbpLzdGwE3zgC6yrZB6FlUrojR8srf2clYNraPQA+ib3DInOz0IUcqedN4JN2 + 2cdeWARftwOSmwQdRbCfOB3Uk84aPovUs8Lr9wp8FsHX+WtnulQBoXa284w/PvJL/Elk35dRPYzVg0g9 + iGnbE5Hnh3dZPSt5h7F6VlLPI+8o9g5L2FHE3LBk2cEJQCTdMARr1Ni+YXhHukmq/J1eQDuV79DdfB57 + RzXgFiENOSLP2xz0WUSex1hYm/Bh4suF23qWTPmgbnhTR8InTe2rbyfZJ/G7kOQtdPtuB/jsOK/wF+yT + KnztoIcXN359x1/kT6rqeU09jODzSD3tqkbkYUTbZuqdbdvaBGzwMnxWIs9j9ewQx2h/n3X51rMmnUxw + tvNu3J3nJcfOroZgG5bV88iyQ0OJLFLPomVmEWTrZst3/o5GUO5lg74jtnYtxi6HKIxCHYYhedgZ2wfw + SYG5dV/fFoCUKhMQ4HP7knHDInxShK++o2SflN5Ih8/q8Dl/PPRLH3f7th/xUP5cPSzax/Al+6ygngfk + YVk9j3TLxSO80/NaWD0rkQc17Cj07nbBTi5LCpkzZ18M4XM6bS1brNwEtHHJvtzZ2CchXoMEvt32SQTZ + cZ2TURvyJ5Fu6/wQx3HwWYwdBczNcuZmIXlegk8KTEhEnhewsI6DD6rDwHJ0eP9n11oJPinBp+8owSfF + d9GOdcSX5+RpTcA5fyeWn9+HZ7qEYND3hZ/vgiX7pK6eeLeyzw50sHoWG5ewo4g8rHjXDmtYN596iJrV + xnGxJl2uczaM7IMSZ4PIqcPjEVxqy74W8WTRMhItsJ19NWT8mkjpnAzchLAjEJRlfNB3xNaux9jlEnY5 + wi5H8Elp3MdMWKSe1bHoZPRIjUV1PFXymR9/fUvZYt0WRfK8kX0SwWeVd9GOcthBXuTvoobqeSP+Cnz+ + WTfgbyjgF9/f1y6XyjTzJ0X46te9WA6fFY/wWqSeVdVD+5b8kXetcjpLKmBH/M3+WFoiD2PvsESeR8wN + i5AdF2E3iPya5TAN27PMIP1jWNG+JqDyNxPQIvUkmSkL22fXfE8fobYzlm4YMDeLsMsN7Av8sREWqeed + 0j5Urwag6DKyLVxeQJIuF8nz4hvBCD5NX3mEz/kr8HX+Yvm4R1VvD38y6OvHfCt8M/7qdq6o1+zr/MFX + GGjJPonU0zJ/W7l3ChxvyXLBuxTDZyXyPPaOSup5JN2wZNlhuVzrqkQQLSDRAuOcsJ2VPwQItUcoVf5c + wBmCmCx8+g1eiZmbdZ6xyxF2uYF9nT8GwiP1rCl8Z2FfPY9EpnVbWE+TTt550TsvvQuM1PM/as7wWaKe + vObEn79IV+/TSzVXz2P72m6+WhEQ7bO6fXZ6swgY7Sv8Rfi8xF/9vhbY2q32TYvHdnEv3g7+CDuK1bMS + eR5jB/mOuWFiE0mXQ8iOiwgbVL6pe50sdu3kZSwsUIt41WgZivnz9L7nZBDnAiKCQwdl5h836PPOM3Y5 + wi7H8FX7WAeM1POm9m3xx+pJDRRmpaQCCk8DAaN3XnoLOYLP+oTUk+w1N/gsenlaU29mnwQjvjbca4M+ + b6Cew9dC+DyGz2rqfX1NQ/KwGXZWHeu1CQJuEWFHsXpeUs/rzG1/HqOnNpFuQ+xOJtFikwJz85ikYaYS + IyjhMjvyJfUSvRtU+IsCWuigpfO7fccP+iQGbt15xi5H2OXYPuWPacgRfFK2r8J3OvuYlZYI+IkMzcIw + MJJnTXbzURk+qbyFqJ4F8MVPtpXsBBeDr00wfKUKn0mX4LMW6vVdfjvs0yO8hTyM1PPIO6uqlyLjFpF3 + lIqWvIvn6G2N72Rmn8+jOY+cmtj3Yh0QJtINEmVgmXHVo3UJpprwZ5c60YBbVx9Q0796uqzx50UEsTPZ + 4JVYt80KcOsIuxzbp5/5347skxC+AsdR9gF82b7P9ABCT+a0DeFyZgx459HLHpbVa28hwWcV9bz28upp + fZU8FxD489NcdNyXpPPaoV5tDd+Cv3oqH35n3z7+SD2P1LMIuEWMHQXklZ5ZRB7W1RvE5HnM3LCEHUWK + xeoncAM6ZSIt2Txal2DqFQGv3+/Bre3ZJ/mffp45eE5Qs6YOlqv2IbbTbPB6rNtmwNwswo766Evir3wp + aQKCIvi02bhPIjughX3NlBrB5wk6ckc9LcYEPAi+C9oQvvou0gu20L7yUuEDbTYB8EldvQJf3dmX1JMQ + Pu37ewv1rKherXpHjfiD7VyP4bMIPouM89IXji6/Y7lhR5F3WPKOYvUsZm5W8o4ixXJEyagmkS4M0xTf + a1DnD6ZpmVJ/IrTPo+XPiWsu4NBBmXP6nX0Y67YuSTeLyLMEPivAdwR/tsus8Rfgk5Id3gy+AkqPvIvV + M+lUwK9v/+VCOS1mj30FPrTPycPoBXsOX321rp5XR3w1gm/IH6lXv8J+CZ+F6nkMn1TJe2R1+GSCEWT4 + JFLPIvKwpt58uIcl+Cwiz0vY5UA9O8ohl+paC7GjEnYUSTeMKFnWVert5s+9m0XL2+MTfMOUPw8RtGz+ + 6Td4MQZusyTdMIJPcvuagGCfRV6kyD7jj+2Tkh3WzL5D4fPkviKgvRJ6qaF98En0gqHwgqUAX8nhq/xF + +CxWT7wD+CySLrfDvnZeS1PPi+R5DJ9F8Enl6+ZZPQ/hO5V9fqoKTCtwd9tlijlz/mT0Z/DFnXRYwZG9 + o0i6XBLnyNSvNJNC6VbBknqvHQX+BrWdfUTYaWLdNkvSDVvb9xEN/SxSIzaw70KCz2I7ahk+deRY+yy5 + l+0KHAu4Gz6LXnBJv9dgzV99Md0+Vs/i4Z4U4atHe5N3lm/tTvjrp/J5CJ+V4LMYPmvTO4zsk5g8yXfz + 3XnWE/jadLAPmqnnNfXCqcUSIdUiAelWrg/QSldHIU+nycHiyk0by8wqd7nRcuxy5wQ4jdSTyvyz2uDF + WLfNknTD1vYdwx/AJ03tk1gQbT3ok5J3XseOsr+ZKxMuoFRfcFRvGz5+2VU97aKGr1xfPMJn4UHebF/+ + DueonsfqRfhG9tlB3qYebOrmEnxSla5X4WPg1pF9UpUO1bOSet50IzdgV7dqPSIPI8iOqMHU+aPO0D4p + sJUrC1TFDknvcq/eUSdKCJ/V+Eud1YGOHOu2p4RdbgHfMfwJJdG+OX+ISI/5iCXyvEhMy+DzZE4XEMjb + VM/Sl91fKsOX7ZP6iwH1vADf5dqIvwCfxPAl+yRUr9nXd/B5BJ/E8N3QkDz7yFr94FoCbl1V73apTLB6 + LRrZeXW33bBEnkfeYQTZcRFPxydjN4xuLZFZs6piJbppFt6lV0AM/AlzOTvQQWydVUzbnqJ0w9b2WXv5 + s5EUwDfhb3S6XMvhIPikRJ7VfIkRfJ7c9LeL+o0sB8Mn1Rc5gC/zV15weTFJPQ/V8yJ/DJ9VyZvb95V7 + 56e2jOyTyD4J1fOQPI9o28gOdxh8LfCu79qzSD2LvcMSeRiR55Fix0U8nSZjqMLnCPocWGZPN+6/SvEy + WCdvnvIn0uV+j0Efxrpt1oxbtGmftIs/330W7Uv8NfuW/KF6XoJP6t5hRF6vfIneZ5eqgGTcsPqy68ub + wmeFFy+vJHmHVe+igAE++DoDy87yY/skgE8Heu4dleyTBvapd48pgs9i4FJ+aos1ZG4YqecxeVKSLndl + 9wcthvnWKye3lgmH6ZRdv/9qVBDqoJJ9WEStLr+rc2ULl2KtzjzWbbMC3KI09GP4rA3+GnzWaeyTHDvq + ePhkkGXZZmYV8EQeU56OsMPqa64vbAM+q75aP9aRyJP8lVTymL+mXrMvn9jM9kminn9W9xD+QL12KCPB + J5F6XmXuVqtME3kl28fHxk1L6nnkGtYOawxCyw7Nd97NY8UGjQZxVFJvGEtkbM1K5OXCo+0s88dUnXlM + 284Kc8PSXj9Wz1vxF+37eMofwGcBeV7lY9TB9rl6jZuWfobM5svD6qfTEoKgnrVtXxn0VfWG9uUXg+qV + 7GSXDp/aF+GzNu3bw5+qpxu5TT0v2ScF9W7WunpJumFsHHZHL7txsxJ5HnlHkWj7S9LlWLGcSVSv2sSI + wiTdoAVeTp6nCzyAwh1H6WIva/DIOeFPT+jzTosU5A9F0WJ7O8/qWWZf44+9o6b8RfisEX/JPin4ov1t + F39MnhXgk5I1pfLh2ZYt8Om3ghe/Emh7xKcbvN/elcIHPORVEXz4SspVVC/Y51u7lxk+CdXzXL21feKd + qWcxfFayTyL4LNJtVd3NF8ibnbwisXpeUs8j7zASLfayRDN7BzE3i1QaJvqQdMOCVtOaU0ae2+cTs2wB + zB8q1vk7lU3zXD2PFtjb+Sl8jT/GLjfmb2TfiL8EnwXKCHwWkYed0j6ET2vifHZJqBLgwusp7YFP1av2 + pcLLiC9G8hfgTY7weukElzaB8FmoXvh7bA2+KX8JPkmkqxu5MTaOsoMbbaJ6RyX4JCbPY/JeeHQ0Q8NT + kWlvXc/sK92D2tXFhur+iLlZJBGpZxWPStWmrWyxWbSwRAuECnxtVHhuoNL5RgzOPEX+FPxEB+WvqkT2 + /fkLlm4Y8wfwLe27LX1C6lkAjdu35I/Jsxg+ycVxaCbwWbKACiic9Ze0B7464jMBCb762hJ5LXnS8Bpm + Z/ZJrl61rw33MLJPquot7ZPYPsnJg0g9K0jngXdNvRrDZ7F9yz+gcfKiJuT5ZZlA7KhgHwfkea7hCWyi + rnPscLpEfqXG9k1jklq0mEeLLdq7fBXw3IKYEC52eKe1z2ovJtt3DH8w7kP4rG37ujLaTvuG/DF8EtvX + 1fti9OfAJQVIBBS2xDW3L2KHBfiifeG19deAKXzIX1XPJ4J9D6SFel6Ar3tXyPMifNZavRKr5wX1vKTe + Dvvqnw3yKnYyvrNLy6Qbxd5RTF6NnMq5TVbwrrW+Vbr+4FVPvPPLWAdrXZBo3qHLH5zwdx6M24w82t0Z + 8je0bw9/bF/jj+Cz0L4BfxP4rEie1XaoRf5YPWsPfBFB+9NoMlEEPJFnIeywDh+U4bMPtNUXwwPAzl/z + DgvwScTcLIfPvrYgqOeBepaTF9WDQxyl6h0c5dBG/BF52Bi+u8U7uYS6dzEyDmPvqASfRdjlnLYjGthn + 9XEfzBFQnCqbcL8wW2B/cpeHZcIut7pZopmzDuTPIpX+sOb2Hcaf2Vf4I/U8h2/A39I+aWEfEsPqWZv2 + jeBr3Zc5MhaTZxHjSD2JNnW9mX2dv1Af9yX4rDDi2xz0WQ2+eEg3F+2TZNA39C6E9rWJ2RFe8C4d4nDy + wlW2TyL1LPKOYu+wpJ5F0g0j0Y6IyKAqf2k+1/l7XYq3zrv5UNNpubTiApTxR9Ey3lH8SQTTH9Kfz18b + wmcRdrkAX+lj/WDvsD7uC/xtwWfN4HNlmDwPiHH41D73bmmfnlhnAn538qmeEa3edfjcvqievaQAn11O + vsTF4AvbvAE+tc/h28NfG/R1+CyGzwrwmX0JO8+O7crQz+Dr5HlD+4J6NVNv2JZ6HnlHMXleUs/zjVNN + sMOrJYLsiMiLM+jh61DV0OPljb/czMGbD163goCYL3zOQWHgNks8/a6pfZ0/ts8i76iBfWP+7LNuR9on + LeyTmDyvclMGVh5ghw3gg2QBeSgTsL+YSJ7F6vm0nekS1CvRCS4RPn32CJ9F3ln+R3h38de9q+p5wTss + nNoyy+F7Ztk3EZh3GJPXIuDWkXdYEy0evhiFwzrCLhe2UnN14Cabty25i1+WCZfibCL7JCHPJ0L1LqTe + MBwYAn9UEFCShTt/OfYul5D6nar2Vf5YPY+8oxi+MX/+HQeRv932SQv7BBdWTyqf3yj8AXw77TN0koBy + X9lulafDZ8cidlg7yy/BR/ZJBp8+YzqvxWP1EnxD+yQa6xX+unoWkyeBenV/35S/p9/dflYT+8oEqSeR + dxQB1zvxxkc2pDjEY+Y89w5ToXaVyMMaMVRjUabHJI0Dg2bdfPha6vYtak9K0i2Sp7bHV+zscqMlfx6r + hyWqzrYOX+WPycPIO2pgn5TgG/B3iH1/+wbsS9wwfFK1T4gJ8FVfYgE+Ic/Uc3qafdYXl++rgHpG9OCV + VOxsol6t8LF9Bb4Rf/DUvTF//VtbInwWwScRfN8k+CzyDsnzOnZePbAb4EP7yLhFrJ4Fx3M99g5L5Hmk + npeYi/WhXLesBvyRTaM6QylaEuyzCZuOVZ5SbJ8lz5KWJPKoWw9fS7qYAecTk3bxJ7F6XgLrDGP79NAH + k4eRd9TAPmltn/0B3L3wSfodfzP7pDF8pWBfmZjbV4Bjd7SvSuXWB3IpD0X8Nely3T4pw2cZfDLis0Yv + g+3jr6tK9kkBvjDue+wRfBbZJwF8T61IHtbhs4i2cXf7zj73Lnw8Iw7xLPaOSupdvV8S6Wwz1tTDrVrT + zaUbl9SDOQEpv8Q5BtDOkK1hc/sWdc6mBf4kuwumiyX4rL38WWyfldg6kwb2nY4/hs9K9klon/GXmBtW + vt9U+CNuoJl9lT8bVbWJEXxla5fF0Qy+kn6OogL0/X1RTDjbD59E5EEdPoteA6rndfgm/AX1PIDPCur5 + CS4D+6p6tTF8WjiysbYPyPNYPS/ZJ/nBikEm3SQkryZDP9Ntwz6pkRfhszmBvIF9UiLMcuyAP/eoL5by + ZfY3gGzalD+vLon82d//JuYWsX1Skuv0je3b4k8i8ry/DPkb2SehfVJiLlfhW9sngX0dPqvaB7F949EW + wlft80QiQeq8DeWUtvIyjoJvh31Sed6FfZLDd63G8ElD+5w8jPlT7+plicjzyD6JydP4hD4f7u2y716P + ycMSeR7DV0uWcc2+eR27WboM4OXS4Uzo5iNn6CwjvyxaJrbiz6sLO38eYTeM+ZOSX6dpat9R/LW/8Tbk + j+GzHL5PDrRPj7TO7ZPyoK82+vBsh8+PbERuFvD1rjwQQ+vGbCnDp/PZO0/hs9ezyR/CZ7F94h3YNx73 + SQ7fDW0Mn2Tq3eq5eh6p53X4+v6+/oGNUFTPq39Nrf1doRbDt7SPvaNEumFk2TD1KxZudQJKCNlh2dBP + 7LPk0Xzar7ZnGQC0Fd5lFt/lES8wSxZm/jwiD2P7pETY0a3sO5w/ty/xx3/GqFa/NrnaJyXsqA6fNYNP + G8InFZVcPYvhW9mXyCvZTjcxSBY+L5CBgKGAnafqOXwS2Sfhi5FQPa/DJ+QZf3vObRb1in3psxwew2d1 + 9bwEn+TkeUxeK5DXD+ZqQB4U4bOCd1SXjqt767zo1zoex8UQi1nM3LJunMNnc+CqiiOXc5vqI8T0pt2c + 1fy5cOakKX8SqYf9Tvxt2CdF7HIz+yJ//Nd70T7j75Nt/sKgz2PyrDbgGsInuTIKTd/mbfDFYx074fOE + oS++twEgDAPZO4/hq69qZR/v77MCfGXQh/BZnbx6rEPtM/W8Th6d2pLs6+p5Ab56iAPU8xg+K6tnsXrW + vZeUAFePWgxL5GHVsgPhs9rW66gHO/gDtmq0QLDvTSveJVbtwxJGgx690XQi3TQLn8KiBaBz4gKph5F6 + 2JkLuG2fFLHj5vZJbB/x1+yTPtnmb2CfnWDM8EmwsZnhs7oyzp/B5zVr1vZdSPZZuhPw8n07pzp5543h + kxA+y9XzyD4J4bsAf5INI/vKN9SjfU8kVi/aB5/o2FDPA/VavoNP1PM9fYbdSMBGHu7p6+RhA+m24JMq + ZEfbt4wgG2Rm+YRfpTmlKlRrRiGTtIiQio8PpSUtfCgMb2oLK38WweeRet7Z8rcNn4XYUV92/vxNYUfY + JyX4pIPsS/BZiT+Hr/KHm72Fm13wDfgrBl15KELJGNA40yfdB5+1hs8K9l3VHD6L4Pu6kSf8wcc5jD9V + r9pH6pX0CC/AZ1X1+iWrNzjEoYd0xwd2JSKvBeRZdQuX4ZPUMrzcHYl2UIQdVRVblOQK8326TCSSOB8b + tjlgEGYe5TnbT5HugnPWIX8SwecRfN5Z8bfXPgm9w4p9xh++IyzYh/w1+NoXxK/5G8M34G846LOifRLZ + JwX79C+iTeGTunqKjlfhawlSeiagRfDtsY+8wxC+/uwNPrbverUvqGcBfFYlj76xKtkndftG6nmKncNX + Jxg+C89Y5oQ8u7SG5+4dSJ5HnGG2846uYn7+h0X2SdWvSYJCZW5HSaJ5j0s0EyXKmWX6kuhes+Ld9xX4 + s8g+i+CzAn9Scm1PB9gnIXlWg8+i9wLFoZ/xB4M++PsYM/6mg74Bfw2+YF9ST9K/ELTF3wZ8Lk7nz4Zd + Nf0mFbm88lCW9wHgedkWPgv4LIGvv4z6Arp9yF8d8TF/7Zy+ZF9Qz0v2STPvar6/z+ALMXzSWD3J4bPL + EqlnEWpUPWnZAtHW6e624dknNhPOv5v3Js3pkQ6zjuTPo1tD4YlKtMDO6EHGndOPgrEUbJ9E8Fmn5+8w + +ySET4r2TYZ+9XuumL+RfXP+tu2TyL4On7XbPinyx+pJdcQX0JESfBAMAOVSM92QPGs/fFK0z5898Ifq + WQE+29MX+eMRn8fw6aCPsbMaeV6CT2reWW0jt3uXa+p5BJ8VvHvwCguo7d7BF7wbRZYNgq3R3IGC0MLL + 0D6MFjuLbvMcetmhwp8V1SD+JLLPOo2AB9snTeyzXX4j/qp9zB9s9qJ9xB/b1+Ab2ietNnilgX2DD7dZ + 1T7zJabwuX1jejQd8UX+ZI7cvXhXdVs028fXaxu8+akRPhrxeV29XlXPC+SxfWVTtzXErgY3GXlVOqzv + 2lvax+pp9eAGhuTdb+r5hFiWyduBIGGXY+xyiTwsqrEVKmbRAh4uQNM4B2eeIuHPivMZPgv42xKQ4LOO + 5u/3sC/x1+0L/Jl9hT+yT/qE+RvYN+ZvMe6zEnz2+TaCT9KzXgCaqX0z+Ei9mkpkx0CENsLOK+rtha8U + nrpV4bMifOVTHAyfhvBV+0w9IG9wdoudx5f5C3OeS/VEFsrI84kt/uAkvvqBjT7Ew5p0vcYfobazsl+v + Q0bwSXjrtEQeFr3YCrWSS2cLp0u3bc6eRo/gnHl+0zBaGCP7pHMfI3+nFzAxN+wY+6Qt+yJ/wT6J7NPv + sk/2SaKeN7NPyvYZf0weRvb5libBZ0M/4Ibhs4kRfFJSz+oYiVlD/rbhkzuCel54AfnE5gjfjL8OXznQ + ofxF9di+fqBjcBqzeefZ6SxBPQ/Us9A7/kqCdpayx+p5CF/MOZv2MF7mQxZw/IGv2pxRxApVdNidPZSX + 51hl/u3Hb6HdGtb7lqJiXn0xqXovu2O6e1us8bcQ8GD+pIQddaR90pZ9UnvlAT6L7dvPX7JPAvj6B93Y + OwoHfSP+KnzRPqnD5x0OXz3DTqZlEzgKuA1fKcMX7Kvw9WeszwvqWQSfVeEz+8oEquexfbLZy/BZ4Qw+ + i+GTgnq1/kUs9HcjjT+7tAnfzqWidBiKtrdyFyWMmMP8VlwMZzp/TRa6Grzw6VltmfA4o6J9WH+QxeOE + xfDZfbpz1gt38Uuf05IlK387BST4vP38HW+ftGWfNLNP3hTbt5O/BJ8E9lX4pM+W/J2nr7Ra2Bf5C/b5 + hKNTcuzcOMqPscq0kGT8xfozhsKIj+2TTL0Gn7WyTyL4JFRvZV8Z61EJvnY0IwrI8FmgXrXPpZPsb0Va + bbiHsXotIs9DzsI0mUhXy5yGGm+xliJ2tbiAnUEiptilh2QQEzhRvOjZTVB4TCipN2z6OHhTz18AvqRS + fy/r2vLnRIGBgBP+ZgIG/qSknnUq+6Qt+yRWzypviu3b5O+b26SeR/bVA75z/tQ+5w/sM/4CfMAfb/PW + ykl8u+27GE8qtpk+ANyAr1xO7ZMHkRfQ1bOaffXkPlDPc/hu1gJ8lqt3u1QmCD6J4LM6f80+ieGTyr68 + nm3tIn/YTvuWX7VCotHOu3WRs4MjVnKJJKyRYZdPUrZA6s7jt1J6tJ3J3TV8wFAjLBefN90LppU/aSHg + MfxJ/wr7PiL1rPaO2D4p2dc/7WtfcZrgs3CD1+2b8dfti/BZ1b74GQ+DT+vqNfjAPjy2695hCB/2zfVH + svkcsPPKcM8aw1fUs/zZSwE+TV4DqmdF+Mo0qGc17yb2tfNa8uEOsW+02Ss5eV6Ar02zeiU2jnoQIvI8 + 4uygyLIjIuwoQGdHTyhAMFJoDHn8OFvdeSL3qgiuHKRAwPS85VZYuPIn7RwAEnzemr/T2idPscO+AX/w + jvyd9pJ9lT//eucEnzWwT095Yf4qfFaCT8d9CT4r8FeHfs2+xl+kh/kj72o3Sjr9WGySB5/ZN1AP4ePX + 0OAD+0TYoJ7n8GkRPj/W4fBBfEqzYDfkL5MX1fvhbuJvaZ/E3llRvRKTh5Foi2xb1TdjyxzmDKsbsAWy + MD8Atw6N2Ir585qDjUL1yzOMcJpt4vrCdWLpoA392tV6l3pHeqK+2LlPgIMg4IS/mYDMn3SG9kkr+xS+ + AX/+Xsr78rdZS/BV/vCr7RN8+hdyyxfZd/g27bOjvck+PeYws8/0yfCVnDxvGz5L+Xus6daonwQT7Ave + YQU+U88L8DX72nFeecYInw36yqVv6ip/Rl4XENV7ZnXylnXvaqAewCcRfFI5lyXCN9jIrd+45wc3MPIO + Q91yVTogr7dln1SNs4moXp0ThzyDUDEBgiZs2vI5OwoGYWafTzBP2mBhamtIWJbxhftEewpdZsBfFnAP + fxLzJ52VfVLwDuv2Bf78XbQ35W+ztmnfgL+pfcQf2xf564dcR7WRl4bqWYOTmffYZ+M+s8/yAaCNAesz + JvWkEXx4Wp/n8AX+8ElBPc3gw0RAUE+qgz6SLs2xrzBQ8hw7S8gjBEvNOyyop5XpTh6W7JMSeXgQg8nz + 2LtB7B3F3qVchGkGlqAAeA2riLToVooW1oyhrJJfbTyF+bn+CHVI6Pmb6gtjdsfyRJLytzkAPJo/nf8H + 2ieRffZ2LH+PtWSf1OEb8Kf2SUP7nL8OH9rX+LNB38K+L3+Y8vf10j72zsvwWTYAvPrwCPjorOb6Gsi+ + 9ixlon2cA+Cjr6sq2W6+rp43G/qZenVT12gz7BJ5dmTDS/aNv3Se1bOQvIe9Jl1rh31Swo5i7HKEXc5F + mJbkChmL5TJQkup3KdGte9u0zzPF6jQ7qPmSw5w/F9CkIP52CjiwzzqlfV9cT+pZbJ80s0/q8FnJvk9W + /FX7PnX+AD5rPOjzHL72gbMMnzXkT+GzAD6Lju2GhvC1BCl5HBGN1ZOW8KF9hm/g74ZWnqJ/erfa19RL + 9hX49NQWhk9S6fJwz3bw4akt0TsvwNe3czFWz2L1SnVwB+ppXbrRaSuJPGxtnPoFwNGt0i23qU3IHKre + WhPvaE4Hax3zsdlTuNzZfvtyeN+FgLDYOVnn8wDw9PzRTUzbZnDfj8b8MXzWzD7J32At2SdN+KvwWUP7 + pF32QTvtq4O+wF/Xh72zZiM+yL5CWdgy2sg+IM/q8F2AZ+/2GX8FvpI8RfwAr9sHoz+Hr5/MnOyTOnmm + 3vDA7g71PPWOSvZJTJ5H9pUSeZYA9yZX8XrIug323EmzBWRad+qBUGTZ0DVaxubg1Xl3nryDOiLTnD8P + b110hgj69KjO33oAuIc/aWyfLI+0bQb3Pci+j+b2SR0+bWAf83dR6oO+hX3214um9n13QvBJGb5St08K + 6llgn6HD8En74DOVvrn+uKBW4YvkeR0+t6+rJ3X46h8nkgJ8adwndfUqfDYxsK9v4RJ8o6FfUE+K8OVv + Y66Zd3YAV+Gbn76X4LMieVgfqVHMmZXnSKRemyaeagZcZs6L80mEXFsM7aPC8j2Ez8KZuOSgHY9/6gp/ + TUCjwbAg/nYKOLbPQuAWwX3VvgF/ST3rq8qfe0cF+4A/t0+K9vG4Tw96DOxrhzuSelo81jG3rx5+dfsu + DPgb0DOEr9MTs6OrOMcOgIhxthWcCvCZffjssMFb1QsvwOCzZ4zwDeyLQ796qNe+nNm9syajP4ZPEu/s + Mv79DYIPzlzpTb+CRbF7Td14BMFV8i5kQ7/T5YSdJhJh2tN3gwJSKZduZ/SM9GgaLbAjGQzOx5LnZFU/ + Q/5Szb4cqWfBfY+wT3Lsctk+hM+K9il/aF/mz+1r32UQE/vK2c4D+Kxon/HXTnJG/h7VSB/kb2GfnVMC + 4a2CVxlUUpVaj563pvYF+OprQPhsQuGrO/jUPicv8efwadm+1A/013U9IM9D9Tz1DhFcDf2AvGERQSYP + IsiOiBQ7OhJhGsGHCUx2SfVlInOz9FnahJYesOfL7GsiYOAPBTyOv4++xKvRu9xZ27cY+kkVvsYfqueh + feWTbcE+4g/tG/DXTnNx/pJ6h9nH9JQQPnUHXLMIPsxulXsV4HbD5yM+s49PbQnn9NUAPuavRerVnX0J + O6yc5qIxfFayT6rkgYABvhar1wrSYa4eRN5RZNmgJ29Dj+2yL0CKbfT03axdmnTIJplKcebdVLupMTdM + n067+6TcpXq3KL7UQ2r8SafmT+wD/qJ0w9b2MX9JPanBZ/Yt+Wvjvrl9UrSv8dfsc/76nypvX+EX+AP4 + xvZVATt8ZF/jrw36JDKoVOzr9KB6Rtui7/RvA+mEHgCpA8BOnkVPV8mr0wpf5w8+y8H2ydNt2ScF+NoE + eSdV8rp9ST0re2cTKVDvVT2XJWc7+Gb8Jfgs8q5mR2/Vr35kdth4z91sd94oZ0h7wup5dmtY+EwqeM2K + Czf4YnSXXrBvGDM3a8qftOZPCmYV+xp/kblFZ2rfnD95R40/wC7E474SwGfN7Ov8mXrwCd/JuI/tS/x1 + +IYYkX3SXvsKfJ0/GQCWPYAYPZcWR3y1CJ++DOKv7enDCD6rqze3T6r2FfjGxzqke/EkPrNvJKCTF+Br + RzPoKqvnJfhKKF07XtEHfYxdjiw7okjMpISUzQzLPCvhxI7oYRfBvbb4y682qJdj7+627Kryh9u/zJ80 + F7Cb1ewr/EXgtqsPoo+DHW6fBOR5wb4xf/ITUP722Bc2eLFqX/xqg/rB3rl9Bl+0z070W3mkpxPHrc5D + 4Ws9vXTz6cUbT2ZPpPmgL8LXd/l1AZ/Uz3Xc6pfb9hXscgSfhOp5qJ6ltAl2c/Wu3n9ldfIw5y/G6nmP + 3lCiXmNuFmOXI8sODUzZiEAZ9KxfVgGHHfqwk7Yf4XQIuoAS84cCVlO2+EP7RKuk2zJd/szskyJ8ktqn + /LXjvAP+in2flK/2A/uYv8/oC12G9sX0Mx7MX4dP7Rvw185zBvtQpQrfhD/2DkvwWUKSIKWf1YVnqflM + hA/sU/4APrXP4WsTwT7k784zL6hnJfu+H352DdTzFLilegbfQfZJRJ6O7NYntaxi7HLE2a6ets6cvwMT + DflBDm/Xa7McRIYPa/zpXsV6eVr+yD6LjZtVvsXABDwT+6ShffpVVyv77qh934B9ib/ySY/xoE8qm71j + +5S/0aBP7WvwNf4afFeLfaPRX7AP+DsOPpdIlpFHq9JZyxGfVq6GEZ9l8LUCfBaoZzF8ah/y98Jj+xJ8 + UiLP6+pN7ZNIvUevLR3WzbHLJe8wlo4j1GK6Djtz8xC4dQqW2TELXNuuLX/y7L10F8PH3NeJPk6NbtpT + ErBWblUBV/xJasqcP52T7JOYuWFunz7skL8En7S0TxraN+UP7Av8qX2dP7NvyN9w0Cet7SP4SmDfaOhX + zm4Z2ycF7KghfJKPwoS/W3r8F8Z61gg+nL4R4bPaoM+Kz8jwWTDia+l0V8/q6hl8eAmRenYOczm8W9QD + ARk+y8h7WNVr9pXjGLv5S961npQKcP1gbgJOakMVXm/bfBWwxJaV5gcNhrlc2Gz+7oy/3tM+HZ59GfLn + 0TKbpZ+hZjcBf9Ih/NU5yT6JpcuhfdZZ2Cdl++ztDPiL9lX+KnydP7dP/4xRtm8+6NO+d/7APuavfNxC + yHP7bPQHMXxWs+/bIX868tqGrybbv+UEwAF8lpNXp5+ofbK5jfCBelJ7AfLgz2oj/oJ6Go/4rD7WS96V + wqktnTyvkeexehqQp5u3IQJu2uNyrEONa9ilSLocraiDAnaDfM3fFQ7Q3CZTrEwEenbn2C0qT2fB64Hw + qXtlPi25Gf8Mi4BT/kzAykoSsF89gr9sn3Vq+6SxfRLxl+zTHX/BPinYR/zNDnQ4fBbDx/zVT5uV01yg + Bp95xPBZBb7BLr9OT7KP1IPkjvpcBtxUPc0+zDuwT2pPXdNH7h/kIP4u39Wiel5Xz767pUvH/G3BZ2X+ + ZHwn3tmlVUZ8pJ7FxmHFu1q5qsb1gV6bsOFekm4YraWDInY5XO23c/hyemukB0LsciTdIuWvX4bXRs9o + 8OWrdK+N4Cd5Jvw1v1rsHTazr5fgk/bZJ43tk5w/hW+PfXfIPuRvY9zX7NNTXrJ9nb/+SduxfTP+2qDP + 7Ov8GTrtnD6Gb83fLT3+a48c4IMcPo3gwxegX9insX0SwNf4I/ikupGLRfKsAB9v6lKm3sPXnmInQ7wH + cDQjjfi84F0xzlLd8qZu9a6Th5F0w3zlVMvs0vP5eMg1FSTCNT/P0Zng3SjSqgUMxexZTp6/1/hee6vP + PhsADjtoVFh+kgP+XMAZf+HqJFbPOs4+aZ99f9my769D+8b8FftEvchfgW96kJfsc/6SfQ2+Yl/mz9Qb + 2CcGXQ/wdf4KPQBftG+VwiT8yeMYf3YwdwGfXDJ8zp/Zd2vAnx7fAPgu330ukX3lfOZo391t9TbsA/UU + vjLQU+zIPinBZ7l3vapePGQhJe8wYm6Q7c4bwuehdHjVpmXFNgKMIZ+g6VCXbhjBtDfjz6Nb9wXPHqVb + tBPB2cYv8lcFBO9icpPwRIRpDJ/1O9tX+XP1vC37En9lr19TzzvUPinAZ8Ggb2Df1YdoX+Cv2DSwz8Zc + x8AnFZjkspz+0s5i6SFzuQ6fVtXz/MFrQl4VUOEj+8o5fXBmHyC4Vs9j9XxTF9Srg75hWT2rYBfsKzF8 + ViIPwyOzs6px8xJepy9gN8w9Oiy0zy8pX3hvEbtlwTuMDn1UAWf8SebdVyWw7wD+NuyTonrWIfYpf04e + Vuwr/PE2r0f2faofbgv2fS78JfikhX1f/jDlz+1D/r6Rro34K4M+ieDTxJ0A3377ok13nslDKXlt9Dc4 + qhsL8EkAn+WPXAP4kL+qng39GnnYgjyP1bMjvPfLPr4Uwyc5dhyr5w3gs8t5RbfN2Dsq4XXayBeCz2Kz + vHhfjhb28CZazO+7q4Adl3YUdv5ah/Bn9lX+qn17+Wv2zfmL6lkH2vcX944q9kkdvmgf8De1T7d8Z/B1 + +yp8U/t+4L9QLoF9AT60Lw/6nKHj4Ov2CUzlUhg9GL52Wh+O+/yJ6PHJPglGfF6E72RxHh9k5CF8LYLP + quO7ONG9oxJ81pA83piNJelyjF2vbeESTIcU1MMSKynkCSfwEpM5eeYsehC77zFF77C0D/FA/tw+5a/b + ZyXL/jX2TYZ+lT/Z8p3ZJ6F9xJ+f7je1T0r2TYZ+zF+1z/9a24g/hk8Chg6xL8JnKrVELnnMtX0dPgnt + K/zhc9WH9acA9UYbvFZTD3b2sXTYg1cekueRelYlL8bkeUk9q5NX+CPmhgXL9mTeFfK8JFrqeQunZ7V7 + JUdGmU2ez8k3eYubZtHDyiVO7I2xm7XiTzL+yiXwJ1f38/cH2jfa61f5C/Yl/soZf8W+xB+e6jy1T4rw + zfgj+6QCX7Mv8zexDxk6yD6GzyfuPL90W7d/F/UnJfhK9VnulJw/L8KX7BvAN7VPvLPPriXvqKCe19UL + n9IdlNTztsh7l0PFxpl0fom1OQ6W5+t8n0nA4dVJwR0PHrzc+mMsLjxM73Wm4evZjrHLHcFfcWcnf3+s + fcwf2Nf5i/BJ5ZMeHT7nT+HbaR/+9SKBbzb6y0O/+Cd6ib/Bzr4s0c0G38q+6Yiv9Fz6/s5zWUbPWAbv + vP50ST1Ln8Xg08rZLTGEzyL4frin0Wl9DJ80H+tRgTwM1PP2kGfdmn7RHnun2ZdKlYlq3DzaIB2W1vAU + eTEp8Pfs/T2ZafedPYjNfFHgs8tx8V4lffDTlF+PvcgDCuRhkb8moAsi8FnBPmmLP+mPty/wZ/bJO3L+ + BLvhuC/ZJ5F9zl+CT6p/vA3hY/vqiX6dP/9u0Rl/C/vAo2MHfb1iX/FoyF+Hzw7s5mx/X1OP7avnuAz5 + A/jKJcJnZfuUtrh3j7PP6k6/m4/hu+G0Rfv6eXypBF8JvkFPc/tKJN0wkm5YX6VNgWyBG3FIIhRFC9RH + Fvgo5g/rd6cHl/DWg+L74nvfVeTvUx0TTfn764WbUhMQOoQ/mt+K6lmns6/z5/Y1/kg9qcBX7BsM/Qp/ + YJ/xl+CTmn0AX4nhQ/7W9vnHe2f2NZX0eOt60CcA1Y/T4mfL6nQd9LlHsrxw5gJ2+Mg7rx3r0D/LC/Yp + f/0clzrhz1IKI74Zf2wfnsuSM/VarJ5XvKuXlg/6Bp/VbUd1YwU7qF5lzg7q7vMCnF9Sxt/zci6xrMO+ + 5g8uB/q0ZvMDTOv0EUw9vxxWn6t2r8aPJtEr2ZM/Wv9RWHJ1V/v4+0QE6fwJN9GgffzRzFZUzzq1fRLb + 5/zFcV+3z/b3AX/1+5yjfdIYvlK2r/K3tG/In8EX+IvwSQafDccSeV6ED/lrDNm5Jn5VnJIH1A+uHQIf + 2YcjPp/2p+ifZgP1PLBvfH4feVcvy1gP7It7+jzb3wfq2cRooBe986McpUhejzjj0l48CuyrG6Rhol3W + lRzXea/OZ3r2dO8F9j4UtdLCwoMqf9HBZlaVa1Z4R/P4oWz73arGbbbkT+wD/mQr+Bj+aE4rqmedhX0S + 2ydd1Dbsa/yZfbrjL9p3nvlr9uEuP7BP+RPyooDVPr2Ej7U1+HbaJ7l9UlLPAvhClaF6kl0UULSSsaSe + Qb2Gzy4LfMifYkf8tcrjt8/w0rgPUvXul9b2NfgUuw7f6CiH5cc6wL7RRu5EPb9aLkk9jzjTBtK9v/P0 + vV6mKnaQr+oHJSKMuNFcomFEmKYzRxTSYvOqgKU+H5+rvrb2yBC9r2Ht7j8af/WyTCTsxo35007N36So + ntXs2+Jvw76Ps33yviJ/Y/sKf24f8lc/6RH4C/bJxNi+2IWrD3zQF/hrO/u+Afs2+GsYJfWkuo8vDPqq + gwP4KHmEOqxrvPb8JoDP6vCN+VP7Onxj/l5K69ObK3lhoBfU81i9kp7T18jDqm5uHNZm1r17VoLPStLF + dAzI5Hk2uKN1+4g6B0fkJJlK+6/u7r5P0zPaVa35BdF7pOC+XrujGecToyb8Ffsaf2rfmr+hgH9Jc0oR + Puns7Cv8HWWffsSt2+f8uX3nLzt/zT7nrw/9VvYV/kb2VQGDfXq+S1LPMowmRzz68Q1Qr8K3aZ+oJIO4 + ahzCJ03gk8K4j+17/v2JFuCzQL0K39q++y+rd/F0Fq59PV9Qb26fFLBrE8E7L5HXStilys67wtwoXJ9X + vZjUFuigUAzEKLrLrP1LjhIBrT4TH9BfTCMs52/Wg3tRbRhoSzbysBF/zb7Cn3YEf/bBOJrJ8Elnap8U + 7Iv8BfuigGSf8Yf2Nf4YPuBvw76y5Tvir327VLBvyF/9Hr1mX+Cvw2c1+Kp9LB0lHpUBWufPBfSrI/jY + PqnZp/AV/jp5XoTPIu9q+JcnSTrPv6Qv2tfh84MbqcGIrzTBLhzMxbp00wO4TF4P1uSNHDsnz+a0mbrO + Eyiz9iwz6xT3df4wvWn4mDKz1vmz6ttvxYUpuOM2f2CfXD2OP7Mv8Rfhsw6yT14Gkuc1+2TLN9gH/K3G + faNvN/i8f8GB8ze2T+rw8c6+qX0S2uf8lQ+3LewbnOFc4ZvYx9JRESbnTx85nseH+RNxDh9ET4GbuthQ + vdbEPvHOJ1qgXoNvwV+C79ZTTbGrArJ0WNmkXZAH+U69Rh7OoZV5mmM3qSuAgvi0N1vgJWRX/XLUQLEd + 3X/Jd8RoYc3ekQaQlfCHA4tNwj2Ddi/ir1x2+w7gTwhrzLl9kb+onrXLPmmvfZW/8l6QvyPsq/w1+8pZ + L0P7tgZ9OmEHfKN9yl+3z/ir9mX+sn2NP4JPu13h27Yv7ZJT3dy+KuBu++4E9bz++AJfuST4JFcvw2d1 + 8jAjL+7mY/USfHCsI/JX4Kv2iW524h6evRzJwxi7HHpHMX92LIJmluLBBKjeOoCD5khmAc30nD+3zyZs + GhcoMwkvrN5rVBVQLj24oxXuYi/YLxt/nC9v2TsdV3+kZ8wf2gf8RfWsA+0bb/ZG+5Q/U8/ToZ/xV7yj + bd65fcof2Ff5S/YZfwSfVNSr8GX+1L7IX93gHfJX4LMQPt7gBQQPHfRZV05efK/AmXoHwle0JfgsfXDb + 01c/0cH2XZmM+DbtQ/X0RJbsnU3P/vhGVM+n3TsyjvMNXpIu15jr5EFlPexHYBfx6n3mvfxQAuMwXaBd + +hyhaoTXonavD/dfWCsEPbtXL1rmDZYPS3Kdv4Zgt28vf+Vqtk/6g+3L/JW/XC78BfWs+mXOE/t03x/Y + p/yN7JMIPsk3eDN/Fb61fX7Atw36sn0VPiMP4LNPcTB2lHiUxn36aTPh764wN7APHp/qHxoh9awKn6jX + P83G9klD9TyGr+TkYXmsZyX45DKQhzFzVNnBd4B9oJ6NOFLMHGdDPFldca2eFW0K+U2+gF22hKQm4LB4 + x1bHC9NHi1dj9nTj9KbpvbjIGQrYl+dleudkZCTqfSpMdP6qfRv8Sc0+acJfVM/6o+yTCn/wdQZoX4RP + Qvsaf80+5q/al4d+edw3sA/4E/sif+V8lwIf2qf81UHfYGefY/T92r5InmXwKUwnL+xxDoDP7cv83Xsh + Rfispl6bWMBXz2pO9kkEn0XqeZU8+g56884HfaUgXWRO8zlwazVuWSKvpfvsqm79kmoz+zq/yHiyic3w + XipOkghKGrYEGtPKwBpO+xwqPUtIFxjcsb9sqqE2XV5u9QnnT+wD/kIbo79wle2TGD7pd7Nvwl855nu4 + fYU/tA/56/Yhf+3vlLN9EtsngX3AX7cP4bPG8LVplWjN3ww+qzil38uyEz5Xz0P4ZCBp9nEBvrLLL5En + FfW06dCP4ZOIvFpWz472Nu+orptNrIKz9obhFi4coNDCHJDOg0GfX/bVeFHWzSZwvpVnChYE0FaOYLla + uDGwKJNoOFPn9wfUZIs4T/jCqfo2vZGAnt4KC5/77Fvk784B/EH6ieBkn/g4s2+Lv132bfJn9hF/m9u8 + pQof2Of8HWjfNY3tk8C+wh+c5Jzgs4J9PlE8qvYVhlg9aw2fwdT4m6fwrewrIz6Db2TfC7WvVL+xam3f + 7MTmuNlb9/chf0+8t5LD18/gq0d1BwX4bFov+ynKFDFXSzMBu1yTbitcb1cRarNGS1ZuzjLwzhKG/LJH + 95qE+wqbaFb4CUj7EDwD/uoXIiT7FvzRI8SW9kkT+6TIX7UP+ds37rvn/DX4nL9gn/PX7Ot/uqjbp0M/ + 5g/hK4UPeJB6JRj3dfUqSd2+4dDPyIOdfQk+qQzHVvzN4bNAPQ8eX+CzOnxj/gJ8yb5+qBfU8yp8Sp72 + uE4MTmNO6lkRvsQcZbT5BE3HEnneYcbRahxSHWyCI+MkWkBq85M4h/Yqzam11+avEF9qnaa7TNJRIdxX + kruXaHCnLRAU/mDj984B/F2oE2Zf4k/tY/5+Z/sktO+TZp/zt98+KcJnsX3GX7AP+atfbZDsu078dfva + Fw1QesQjqadV+EClsX2b8NVeyCPouXv8REv4ZDtXHjzZJ9WnqPC9IPgs4q+p5zX1/PJhOq9FUvi6dx0+ + Uk9K5GHFvqCex8zZVfLOr/oCLfeOP0UrKyGoNMgWKJd9Y/AMiny0Hrz8QKU77kgEtGg+ZgbZ8+I0LUbZ + T8B/DnUCHgTSH5q0HAY6f2rfXv7EvsKf2xf5q/YF/n5/+yS0j/g7yL64zWvVoR/aJ7F9zl+zj/b6lS+z + cv7qn44M9kX+6tHeAX8RvjbB9uVBn6ukVfjstDuZI48Q+Svw4RNhBt/MvqZeKWzwemSfFOCzsV6zz89x + Cer1y2YfbO1W/ky3qX1wTl9Sz6qiOWezOaVwZMPyVTGXpaPpOJMFHII4nLm7B69YQI+WnGbwIYI4zTl8 + oBgvs6y/33b3lP4YRwgaf9pe/sy+KX/dvs7fLvukyh+rZ23ZJ3X7yqXzV/b3MX8L+0abvcof2deGfmCf + 8Qf2IX9D+4y/kX0VPu12+O746pGT1CYCfLHZoM/gc/7sYxvtidrj5/QUmfLIdpnskyp8OsH7++wbm4df + 2qzwuXoth6/yJ95ZjqAe2A3qeQk7qXtn6abuegdfMo5i76RDNmk7cOt0jfVVHTqdd1TlTy5zQKFHd6+5 + enZJ+WKz5J3SnHUoIAbSSfbTxjkr/sy+wJ/b174DdZu/A+076FAvpqfsmH2tOvQz/nbaN+DP7Ouf6nX7 + Cn/RPinaV/kz+Dp/YJ/9kXLmL9kHo79gX2tmX4evXzb7nL8yIQtX/vxhs4BlxFcHfV62r/JX4bPW8F17 + ULDDQR/B91jr9pl69aQWVs9awFfJq/BZrJ63Yg6L5NXy3iiMgNuqr/C/Z6yeZDPxJp8uCFrhcYi8YbaY + X54mEZD/G5ggCMNA4e/uEfx9POYv2Ce5fVv8nYV98prbuM/5s7e21752tBf4m9tXR3/RvnKgw+Gr/KF9 + yt9h9g2GfsJQFHBln2FUGwz6PFm+2nfSH7ln8OGgzyP4pAifpOoV/pJ6kv4Zcv1L5KZe/BCbw1eP84p6 + ZdBX4dvkTy+7ehW+enCDYvW8lXHDM/ViTB6WgFsXVm9E5KzrzA2jBexqQ7DnrxCzp7AJn5MnzqwJgshf + tk9i/tC+AX+D/lD7YK+fZfbpjr+VfZU/tK/x5/YF/k5ln57v0u0L/BX4un3tJGfmzzAa2BdJWthn/CUE + 5S76gAv74uPXCD57FrTvgTYa9L3WCnw2zcM9SeHr57jolzPnT7DhOX0QqXf7WS2p57F6urVbqurRuXjY + EsHgHeZr5v5MB0zWcJyAy86T2WTzywReHVbvtTNZ3sI5OvFTq73IYfKMNMeyVwKv6oBwJKjTRT37GQKC + u/m7sObvFsEn/aH2ScIf2FeHfnbMd2Wf8jezD77GGexrkX2Fv2Df1wRfsi/yt22f8jcb9AF/aWu3qkTe + UUJYPX0PBTwUPuevqOdF+EoGn437StG+9s3Mxl+ZiORhrt47L8C34K8OAzt2IYKPpvdl0mk+0SorJKyo + dQ7NhNwFv6Rg5oOXrs+sDNbk6v4KWDBn/Iz+Ivekd7G3f8pcQOkA/krBvsBfGRsSf6e3T9riL3xED/ir + e/38dL+VfSe6v4+3fMm+yh/aF/izo71Xg33l+6zIPuXP4ev85XFfFzDYp/yxfaySelfJCyp16aKD10oy + MeBvYZ/U7QP4pAhf+x4XhM+q6iX7wnBPCnv6GD4pquc177TGX4Cvfyy3fWoNjmZ4VbHd6qlrxFy92j8j + ce8FfljikEwEm/A5NB/q7hiFBKJczUTWJQs6r0sG0P7svv0yPn5PF6AXXBu8kZY8oL3x06YI7uBPACoY + Bfsif9k+acs+6fT2DYZ+Zt/fmn3G38w+iew7X77ZBeCz2D6J7EP+zL7Gn9vXPt2B/DX7Kn9t0Ffti/xt + 29fVsypJ6B1m9lX+VDrnbw6fDfrKhD9+D8Z9Bl+wr53VLNNoX+MvwOfq1Vg907Da19XzEd+oEXzlG1nc + PpsACkk3KjBnzbHLpXVyq4jCZixOxi6Hy7zORRP3+giPOS4sz++0XK23uqr+Mzk02C4W/nQjcZM/tk+a + Df3YuFmn2uxl+xp/bh/yt7Dvc/heA7NPSvbdV+/ylm+Fb2pf4a/ZVy6DfW2DtxbgG9hn/FX40KNSHPFJ + 1SPEjnL7En8T+9rWbpkG8izc2ScP2PkD+8plP59Zqgd5Ab4SwWc18qy6wcvwIX/JQVYvl8aA5B1WFUPd + ZDpjZzPzfF8h99cU6DRslaA5MLRvenUPiPCY08Jd6I1ItIDFP6JD2uKvWFNImtp3FH9nbV/hD+1z/j5z + /gg+6TLxp/Zl/gg+i8Z9lT+AL9iXh371823dPuRP4RvxN7UvwCepR1ct8M5D+CyZWeHTTWB+fK2N+Oy7 + mpm/Zh+op/DVIx4BvsZfg88a89fg6/wBfOVrC6J6HpAXR3ys22AORN5RZNkR4aqoKzMMbcLE6Xr4+ift + VbksJXfmVeB21p7UEGQH04NvVO+4EtB/Pvazij/SzZb8NW6KSpm/al/grwEnC/h06lT2SdU+h69U7btY + 7WP+CD5pYl/e8iX4tP6VVlP79EsNwL7AH9lX+Gtbvg2+Q+2rA8BOEnoHFYks4E8eIXxuF5/CZ2rRPlOv + TNTHj/BV+wJ8JYAv26dbvhE+qatX4GvfUtXGfT76kwkgrwRHchNwlH86rcXkYWTZOl177XKxMuds9T41 + gg4fIjgsGUTALRssDxSqhvCwewtvZOOH1hC0ULphU/7cGiFJhoG7+GvA2djQr8bOzj4QUL+vAcZ9zp99 + 3oPhk4p9wF+3L/G3bZ/yF+Hr9jUByb7OX/tbQgv79G+2KX/l8G7c37dxlCNk5JWigHKriBa+s8CfwqZ1 + ZoWv2teGex0+K9pn/IF6VrHvocbwSXa4o8MXP8rW4LOrtNm7Po1ZgZsLOFBv63AHAzcsetcrN/HaO+zU + 9lmqm9lHAtLM4a2xCNye2kjw9Qd7wGTcnsLbqS1+ODsEVP7Mvhl/tgcw8dftq/w14My+CX9L+6Qt/ob2 + Vf6ifZLZ99mlxF+zr/EX7Iv8pQO+/Zucl/bBoC/b56e5KHw29Mv2NQHNPt3r5ySV6nCv89fsG2/zRvU8 + 4a8gJXfs9nXyrA6f2jeDT4rwSfLgHT6d6Bu8mTzNpmXjN3+A1+GDGL7KH8MnEXbeSr0lfxvqeYBdnrZV + tK6rvLaffUjYIFsgLza/Y2JuR/FZ8OUdkjAK0g3zH6z/W6Q6fw6fyeLcjPgL9il/YNw2f3ogJapn7bSv + vDzMvqqL7KtDv/IXLGf2Ff427Av87bOvD/3IvsJft8/4I/sAvl32KX8VPrWPPKpN7GvJMgJo986epV4N + 9v2gSw7tY/WsNuIz9WpdPYSv91YK8KF9OF34i/CNx30SqecdMNZT8kplglakaa7eq59yaa2et5DiEEQM + nd+vzlxOXkCbrsun14MvdSsV0OvqecafTUD4rzPir5ji4mzbNxr6jfhbDv1OZR9v+da9fvWv90pj+z5v + Qz+3D/jbZd+FcJx3YF/nD8d9bYO39CzYB1X7ynnODp90iH1Nosxf/biFTsuSlb8lfFZ6ojF8lnrHB3kb + f0hevarwqX35z+8afD6t8GkJvrF9UlTvR4+My1XyKD2BNqxI0xJ5mK7G0QXOb8Jl8vK42OLWMk3iHNLP + ac5G/XlTdRl/PfDC6rvYV7nvCEHnD+dEAVf8FXEOGPqhfYm/09tX+JvZB/yZfcBfOed5n32Nv2pf56/a + J23Zl+HbaR/w54M+si/AZ60HfWLQcNzXSLKrsnAjb8s+eoo5fMZrJY/sQ/hqHT4e92FNvVI+xGFF9Qy+ + yl9XzyPsvOwdTvv6s1HyjuqrcaShNpnfsZBLn7D5Xp5j2fw3o3CxaSJgjpYZRG/BomV6/r5K/ac0yZds + yyf4cuUfKPHnuIz5K1ohf7IlW4D7F9vX+HP7PgX7lL9kn/E3sm8w9DvCvsqfH+hw/rqAA/iCfX6S88w+ + ab3Bu8M+SR5EyavjvgifpDjWDV7Y7J3DB5/kdfW8BJ/U4eP9fa2u3rOys88uw6DPa/DZQK+P+xg+q2I3 + G+UNWu7v65u61ki6nHHgEzRN2dpuQKQ1XxvOzCF5KGCeb9M9sg+jJcfh26GbQqM3Un9iKVpsMB7EwWCb + jvyhL80+4K9oFe2Tsn3S0L5Tbfbia8v2Ff7QvsJfs4+HfmqftLav8rd/3Lfe5pX6oC/Z1wQ8xr6RgGv4 + 0L6repbyfNBXJtC+wl/72j56Fj3Hpdknz5Lsk7J9rp4KmEZ//Vua4VS+yh/DpzXscgyfVEd5ZF8c6JWr + 9SiHx94N4NNoFR0XOdgTr+rHZbTl6Ca/Gub/3GMBqfZ0k3a9nagb/wBbuExtuFsQHAT+0JeKTrJPivyZ + cWSfNOSvP4jX7LOrBJ9U7Yv8VfvkZQN/ZN+naF/g7wzsg4927B73Lew7atxH3nnlXJaokgX2df4eNv50 + 6Bfha1u7ufGgz9QrQ7/6LNm+uOVbTmwG/kxAgk/tY/W8YN9zTaXrIz6M4dOeg3SDWL1aYi4EFNL6OQ5c + S/2c5mhl3XZ9YG0/tM5ZDG+aLPnozc9Wd9AL/FntcY5rPp6lHybd2u/YvAvJxu9i6LfBX7k6tE/ab1+4 + qWm4sE/K9nX+mn3GX7Wv81ftOx/5G9vXt3nhcMcR9qX9fdm+Dh9+oUsizyPyPDuPj2FKH7CV/Gzka8If + wrewr3ySVybCg5fHqfbRs2T+AnxT+wJ8UjmTeZiRV+x7b6l0A/6AvAZf4i8x571ql2ViNtbL0co5zWl7 + 87Mm6vnlKOZmlrhDczwnKbm2yu7S7uUCDhy0p6725eChoEf6mD89SvN7Ewfxh0k31bvUSx4MNv6iL4m/ + xlO0r8xh+KQjxn1hDtkX+eNtXrPP+Kv2Jf7i0M9OdV7YZ/wN7Cuf7ljYhxu8wb68v2846Ntn35V7Y/6m + 9j0IKunMZp8kG7CBv7V95UMd/cEdvvgUGttXzvXr8JVsy9cuS2Bf3bvXQ/W8pl4twVdP6CP7oG5czrwT + yMy73ep5uFrWXDqrzOlkSDZtV/0yl5fE6eF96eqq5t1WCt/rJqBNwFV+WJnDgVMlsa8iKI+fbuUENdAN + f859AZvA2m5BqfB3cc0fFO1bDv26fSv+6CrU+YMXVjd7s31StE/qn3U7E/uG4z7gr9rX+Kv2AX/DE1y6 + fdCh474KX+JPGSL7AD69+uCV0LZz0Fc+0dH4s0Ff+8pSfArFzi4RvlKHrxbgq9u8pJ6V4bNDHIU8FLCr + F05pjqf1wTSTBylhx8KnhzuabiGaY6urrJPZCJzj08Nsgc3FvLR8BavkM1MBPgzvntP70jPKxKAulAvo + 4a3jgLz6Ux3a523yJ/b99cLtLtQRQ7+twx2DOaUy+rNX0l/Vyr7OX7XvM4Ov89ftc/7O3j4f9zl8bdC3 + si8O+qb22aAvHeiY2gfw1Zlmn7JYZDT+4rgvwCfBoK/z54O+Vn2iOXwD/tqgr8JnZ/bZGS25DJ/zF6vq + BfvK6M9yAXfyt7/X6l2tiOa0caOZ1QVMRKA5v2dklkXLtIJ9Ht13VniowB8F/MF2sVwGxaTMnMwpMzcR + PCeCuC+1OvKa8Neu6sAw2SedcrNXKjv+4kvatO9b46/bF/kb2Vf5O9a+POgr/FX4wD6Bb2Pc1/jbti+1 + xz6pDdb6uM/SLd/FoK9cInyWkudntxh/W/DFXX5Wg8/sazF8i1OaI3w66CP1akzeycsaeUcxcFSRTvFy + 7PyqZVd3F1z4F0VUrYM7HiagpMD5pdXh61X13D6rXCXIZtm/Bc301vyBfdIfaJ8WX9WGfcpfs4/5U/uI + v+G4Txra1+Cr9o3h0y8ubfA1++zTbHu2eVfwbR7oiPApRssNXpwvutm4j+EbDfpKPO7TunoVvmCfH+7Q + EZ9e3vLvrQL1/Gqwr2/wRvgsgK9v8y7Us8w+HfdZrJ7H3uFJfM7WUdJxb/SyQ3BQb9slRnN84R2RUwel + d3/bijeN8x2FJX0BAwE9cNCn9zg4F/AcEqOBfUcN/bp9C/7EOLzqoX3IXxn6Le3T4x593Le2r/F3vH1B + PR3xVfvy1zVX+wA+ss/gO9S+Dl+0D3Xz1D7Y4K09ajv+sn12meCr57tE+MC+CF9Tr1a2fBt8zT4SsOTq + eaxey9Xz2ugveie14Z4Eh3otVs9z9apxnrOF05sV4/QS8zllwg3CYP3v9fnOTQnVGy4g4TJafDqp3vE0 + 2XPhxCHVVzJD0PiDkaBFtGnLLV9J+RNcHJoVf226bBQv+TvFLr+xfQCfFe2r/NmJfsBf+QuWYJ/xd4R9 + ZTffk29vPRHUhDPzy76A76pslt5Thq7ff6UJEA0pVMwWVu9qVb2VffdmpzQP4JOCbhjdZFrJlq+et3wA + fGqfFO1r/IF9zbtuX9ns7fCN1LNuP4unNxcKB+pNzuybktfHejlWTyvwBfIoE21PIJ1vJNZwTlkbYSU/ + qF8evS35RKgZZFdleSfJb2rTbmKdeZrgYUO4zDDBrnhHCIZlXD0UsEzbT3Jc0jCO/mb2Qdv2Ff7oXhoY + R3N8vtvnApZx32SzF+0z/trQr/A3/Ou9Y/vy1xl8fa38mY4bj2VwV7x7Lh7dePDq1qM3dx6/PXn6Trr3 + 9N395+8fvPjx0csPtVellx8evvjw4MWH+8/e35NkzXzy7o6s8wJEEeeqflB3ad9IPWsIn2AUgGvdKIWZ + BT5JhoRCW7DPkmcZ2defq6nnMXwx3eCt/LU9fSP+Cnyzj3bAWE8mBvbBycyuHkwn8rDqXT/NpcXkeQSc + 5cwV6folMae1FbvW5shKHtbw3XXpjqqjaY9WkXr8tlbnUPgCFuHCfl/PF7PMOLxs1Z/PwEEJHGwaonGj + 5HF04txo6Kf2Dfkz+yb8ndFmbxz9Te3r/NUPe6B9zt/IvsDfV/2jHdW+b649+vbmE9mMlfHd1ZMXNx++ + vvtEvbv//MfHr3569uaX529/efHu15fS+19f/fjbqx///lr6gP1D+/HvL9//Zsnyz97+8lR+6LJJJSMR + WZ+fvJVHVg0LhS09A3nDPpTIctpiZl/nz+CzwZrwVyDeA1+w72HhD4Z+xl8gD66O7QP+mnoNvrTlKyXs + sAqfhoO+naM/9M62dts2L5OHDckz2mSl8suQSbddWrf35ZadSQJiMfFxrVP4uLDIiln0kjxaTKL5viTl + 0rWJ+Q8KhoEy4dPyk6/eQX0M+DOM/k419Ntln0ZXS92+PPTbZ9+nlwJ/1b7I39w+gU//RK9s4cpYT9ST + bdjbj97ce/ZOBnFPXv/8/O2v6t3730S0Nx+wf9R+ipextz97/5SrwuXLH38TDR/L+iNrqazhT94IUtfu + G4VMnjWGTxLR8inHYF/lz9Qr3VD+BDV5WD304QJu2GfHjjWyL36Mt9nn8OnZLaMvsNoDX/8cm9WHfqBe + gc+q3kX7JFbvJfy9cPHO8qtlgsmTXD2Dr1xW3WRdqtNt/SxDueOKK3ZrgUW9KRJ2djUEdzhILwzLi+Ec + yxdeFH+w8dauXq9KN67xt7CvmbVz6Nfv6Ll0eU5pyF/Z7N1rX+YP4VP70mav26fDvRu6hXvt3stbD0W9 + 92WU9/PLdzKyU/KsCJ/U7BuSZ3X41D5OKPzw9xfvf30q/9O++unk2fvbj9/eFFAEnWDf5Itb5jv7BvaV + S/9bunJfca0O+jbhk+b2df7yoM9OaW4fZcPYPinyVz/NVj7QNlVPEvXKpZKX1POqenHbNqiXCuRF+4J3 + OhFWyGOCnW51vxsl6/bmnMTWGQYCUgBiiV9VtyndRPkCeBcMN3tt2igcbA5L7KCThwX+Tm/fgL8CXJgP + 8El5l5+0GvpV+xp/9WznFX/Dcd+FKwqfDPd+uPP8xoNX956+e/Tyw1NV79fXql6Dr2zPruwD/qp6DJ+k + 3r37RcNpnyNP8fzdr0/f/vzgxYe7T9/d9L2EE/j2DPo0E0puAvvkqkDm/B1inz4vwme5egP7moDdPhv3 + 6WXwDjP1XMDxcK9M8MnMCb6Tlx8khk9a2ndf/zbFAD67aqtcx2tnaBxdTekKjCLQ9DQGC+ecMiAv9oam + txyk+ZbN91txYquyI6/+i4SbYBN4tjlc+Nva5pXm/MmcqX16GmCZ328a2jcc+p2Rfflwh9gnm7rf3Xpy + 9eS5D/d087aqd4h9Bt8HgG9kH2IX+0/on+9+/qeMB2W7WAaD956/v/X4rRDWGep177AAn2TYmVC9N3LV + 7NuGT0r22QN6A/sifHLZ7SsRdl4nL9gX1fPt3GEZvhLrlnvNBfViXbSdJd20Mn+wtvtMzhiCOXXhJlS5 + 2iXaqt9xd/QIIYHPHXQE/fjJrjcIyWKWTeOcSfVHXRyMN0X+4p7Bc82+FX9z+6SxffWjbxcqf/0m5o/h + k1TkoX2dv7DZS/yt7ZOt3Ys3Hhf4Xt9/9v7J659tv17ZzgX72nGMTfsCfFK0L2JHdfveQ3LT6590MPj4 + tSJ4+4kiqCevVI9YPSvAJwXyPLVPHkQGldv2uXp1Wo94IHxW4K98lgPhs1Q9P8g7+vqWcmJzUK9kpzQD + fD6NIz6swVeP5+7hz72TDV6/XPIn1ZVtd32t9kucSNAcXffo2OgBKV3mXQvuNQ1Z1Efwt7w7/KHJZS5u + FOsPfICg1NWr6ejvdPYN+dtt33izV+xD/qb2jfhD+yS1TwUs8F15ePH64+9vP5NNXYLv97BPhnJq3HTo + F+H7tV1aZaY8/ov3v9puwVuP39h5y6Ybwucze827m22ipLvnBKzC3BK+6p1X4JOSfZLDp+nor6tX7avq + KXy3nmpj+Mw+u2wf57jz4n2Fz+xr06xei9TzmDyok6eXzNw43esXdNtMV7/oyN7eHZgo4zyZUDh9bOEl + yRx/TCrea5yPDVtduoPqrg3qP/ZBXcBzY/vSSc4j/pb2KX877Iv8Vfu+6fxN7WvwoX2fR/5wl59s7V66 + +eT6/Zf3nr17Ypu6Db5gX4PvbOybFkd8ZN+v//ljyea//ukfMhIUBO8WBIm5tX2Nv3JcwvgrW9O7B30N + vn32hdEf2ifqNfucvwCfFeGznDyM1MvDPYrIwzYHejU7u8WnjxkAMiJ7a65147ZSZVClYbiM27Q/v2+O + llx1IIL6Y4TpRWX0NxkGWmX0Z/x1pKRd9klr+yJ/0T5psdmLo79oX+MP7HP+ZvbZoO/K3ee3H715+OLD + i3e/CHy/i312ucO+rl7K4MNsviD47N2v91/8qNvC4k5nrrjm8LX5Zl/hr9sn8+spL2Bfh0+9w1b22bMg + fNYAvhSrV2vwmX3l8u6aP9u794Kx4xJ5UBMtZ97NI91CbdceTgTRDg11G85JVxUX8ghn4q1+Nc/cDJek + u2w+CGwUo4N7KfTYtdYUvp7wB/aVAZ1fXduX+ZvaJx1on/G3xz7/sAfy59u8F64+bIO+93pU930Y9J2l + fbvHfcG+iCDBV/vtv378VfrPtz//88X73x6//unk+fubIk6iTXvY4dN0sdrNsowY5/DN7UvwgYD1iexh + AT7nbwHfeNDXPs3W7avwTfizwxqm3sI++xRHmSbysIF6djkqnNmXc+98Os6pcu0OdFBKHLguS5v2m/qt + 7355EvP5WnvM7XBJvEud/2sPb7UF/NLnbLQbQcFreBVoqy0RPNeFMvsSfwk+aWmf8re2b77ZC1X7On9t + szcgWL/moHzCt/Lnhzu+uf7o+9vPbj18LYO+52950Bf4A/tW/C3HfQrf0r4KXyTPC+R5Yp/3q24yyzDw + yZuf7714f0sGWY02ZUgn2D7jTxazlD/7qC/ZZ+rVCbDP1BvaJ4+c7GuHOMqmrhXtS/w1+KS+tUsF+OTy + RE/iK67N7DP45uRhATvkTzdvsaZYgWzVcIEyk3ST0vq/zB3ZXefvLUzH6C7bT4QL6DQIqMGtdYHRHLnc + bsdIUBSbTe+o8TeyL6nnsX0S2ddv2mGf8ifklV1+Vhr6De1T/si+OvT74b5u8J68OHn6rp7UkuCTDrOv + 8Bfgk3DQ97vaV9OF5emev//14csPd57oGYJVIjvppNpXpvVqsO/6ozfGX4evktft6+qlFL72XFXABp99 + hd8avsgfwCfZpu5zgs9q8NWjusBfbgjfSyavJ9KNxnrq3XDvXuRsnN0EC+ia1tbJtIZPQi8cC5q5L8Ju + Z+FB8KntlfCLIQEhuq9f+pyN+mBwm0LJf9Q2vVXhL9mXvMOKfccP/bY3e1f8dfjUPsnsc/4Evq+uPLh4 + 47Ft8D57Mx70SWcz7kP+EnlesC8JyOrVCD5P7yIbwi9//K0cD3lXpfPMO7patBL+BoO+2mhPX3QwwGeB + fWWzl+GT+OMcpF5rYZ+r13b5jfgbbOcm7Cz6WuagXmPOa4QNSgsMVj+fbvUV2wk4JlIm34RzNEXtPYRX + G3khHC22aXrMmL+YUTvfsv9wBu0WMAfeUee6fYU/IyyR5+2yr/M3tC/yN7RP+avwNfvEu8Bf/XJTsu/C + lQeXbj65cf/Vg+fvZxu80hH2MX9kn/E3QrDbN+IvqVcS5kb8fSjJhNyxbAj//fGbn0/0BOk3UvfOp+Gq + aCWEsX11ess+ua+TBzl87XDHHD6dfi8F+GAiwad1+KBOnqmHIz7hTwWM3llAXr0sE7qRux7oWTYnz6c1 + jXrXgqu6MtNqL9lKTnPoap+TfNnRk/clnYgC2oRf9Zmb0StMzzgvvTvL36NNjDvEQTEOp1OdPycskVcr + tx5inxTsm2/2Jvu0rXHf0L7vbj298eDVYmefdJh9rbOxL8bq1QJ5ntmHAkqC8pO3P5ePiAB5mMDUpkW0 + YN9s0CeRfT7iaxMNvm4f8dfhq6l9EsPXrjJ8baCXy/BZVbRcgk83ePtBDyDPM9ryREnXHF+pKJPOyavw + lYMScKmrsa/zns+kW/FqnyZQdlUFrAjm6YIaImhztuovLz3jqsXb9DnTKoJ7HfQyf3/5shNG5Hnl1mIf + 8Of3qs3tK/xNNnvjLr8d9klqH+31E/su33p688HrRy8/2M6+lX2Rv5V9Mu4rl4E/KfOXCvYl/pJ6pTl5 + lD/Om5//8fTtL/de/Hj7qUrXHXSbykyRq2C3wz6sjPt06AfbvEP7pDV8WsMu2Fdq8JWtXS/ZJ5F6XvfO + c/haTh7W1aMafHW18VVoViUvYmcTMV7PMVm3aQ7VF0ig7Khih/xhg/k7QAzHVfgZdzV71z5fyRt2iID2 + j4j8qX1L/tpNwT5fvmfz1/ZF/mabvWJf4G9oXxz6Xbj64PLtp7cevn68tE862L7lZq/yl9SzFvBJrJ61 + Dz6rLFYf7e3P/3z67hc9K/Dp27ohDDbZHOVPj/wW+HCDl7zrFfjsssFX7dPLrp7HX1rVNngNvmqfBwgO + 4LOyfcafjf5443eqnhTI2/yr4TbQs5UE15xxU+YW6aprK/YpUq1Sokme49WZbFwMF/NLm9DAwTGIdXl8 + 3n3xG+QCfFz6d1nW+WuEJfKwbt9HfNOGfdJ46De0r/O3GvfhiX467rv99PajN0fYt+Kv2Rf4i/bNvs7g + GPvaNi8xt0gWfv/rf70vI0F5Jc9cwHIOinhUPmrW+Hvs/Cl8wb6Bg1U9jwd9ow+3Bfu0CXzUED5raN8k + 8s4Kwz3zzqfbZYCvFFYSn+4173JCm13O41V62Hsoz4TpRhLU9Fk1vAvNpGyBsFjjzxoJ6CXpNoM37glz + djlta6M4/oNW/gaihfrQb7wk2pf4O8y+yt9ws7fu8sPN3q/KNi+P+06/2SvqgYAz+7b5O9C+Df7+3ipX + bXnjT6oCvhQB34l6t50/zflr8KF9fmlF+KRuX1JPsvOck33Sln0vfrRYPQ/hq7F6915rE/VaBp91EH+9 + yNyi44zLLRbzmWUB8KhYs3mJE8PWt3q0mL4SzOf3knGblfcortkEXe3qUUsBoXPCmcWi9ap908WWQ79q + X+Rvvdkr9lX+gn1S3ez1od+XP9z/7taTmw9e7R337bcv8zeyb8jfwfY1yKQuXc7tq/z9rw9//19+R3v8 + IuCvth9wxl+Qjq5qbYMXBoAFvjLoG8E35q/At2mfbvMOv75lCB/ZV+CzibF6kp7REu2DCVLPgzUk6baj + vqJu5qI1y/q0z/c5w5llokPj6Jxt+ZFxTtMtzM9XJyXycvXtp2PNpF5uA8HKH4sWuvXRl5XIwZLHfbZ3 + ZZ/yt2ezV+y7dPPxjQcv8VjHcOjX7QP+pvaZemCf8jexb8Rfsy/xx+pZe+wz75C/v6t9mvP323+W/usN + CqgbwpU/0Uq/rW/gXcuwy5u9Nu4b2mcPbvzRjj8zbnSUA+Eb7/KTMnzIn8HX7UtfWwBn81Xv3L4MXzuk + 2/pFItEOi1bRdaaYTSzKy+BVGgNSooxfnnmm2OxqzhZIJfLGlSXbT8MS5uxy3GokeO6jL28su1lbDv2q + fZN22df5Gw79gn3SF9/fv3jj0fX7L8u3GIB9ET7rlPZJM/sSf+2rXCJ8EqtngX1S944K8EnNPuBP0q3g + Mgy0Y8EnL97DGPCdgHVDR3YNO0LQvQP+9Kzmutmb4LP6dLTvGXx3C+XqDb/Aqg36Gn8AnxXVaw3V8xp/ + Ih1u6ibytDcl4myRbOraZSysn+sqYb9OkxV+fVkmqix+OcxvWixzXPjUckmP73PwJptO1Xc0ry1Z9zOG + Hybb540RXPMX7BsN/WCzt5w1Pc6GgWZf5G9on/KX7KOh3zfXHl279wLPbd62b88X+UX1vH38qX3Kn5EH + CLJ6lpgVT/EL5FkMnwT2lfzuYl+d+PU/X//8j8dvfr4rm5+KlH0Q7a1Y1r0L/I0HfbL8jQhftw/gG57v + wupJ7fBursNXJ/oXNYfaoE/J02MdCl/d7BXmiD+4qtjlfXyZvwKfTQTjcsacT3g2p1yG1bLGa3KtWVZd + OPMEC5qDrW89kzafoorWCz+fUboYnHATfs5sHxYQ3MHferO3nTU95Q83hE8z9INdfheuPrxy8vzes3do + 35C/YN/ml9eLdCMBV/Z1/qJ9MYZPalR5DJ/E8EmVvJ9KxB8mT/rqw98fvf5JNj91s1SFKvyZemifeRf5 + K/Cxfc27ls6p9t3asg9P68Nxn8TwvRjZZ9u8lbyuntexs2m8ip9mM+zYPinyZ8ZhhppN7IpXVw9X8h5x + cCb9mOYs0tfwWywucHT47obv1GbKZYp+dFRcuOi2C8E+Ejz35y+uJ/Ws+WZvPVXwMPsyf0P7En/dPqns + 8tPTXO4+efvsTfl7u7vsK/wdNe6TDrBv52Zv0ko61L4N/sopgS9+/Pv9lx/uFP4k2Yzt6i3sK/CN7bMJ + hK/YJ5cz/lQ94s8LX2RQ4Cv2MX8Cn3+Yd2SfVLHzYE6Ab9pSveAahDfp9K9YWj8hXPnPPFFvGN2Ed+mR + gBYtc0xPbSK/9+GcUQifF5aXwWAZDwYErYmA5/50/tqfzl9PCDb7WpU8Tx0E/kg9D+2z7d+vq4Ar+zp/ + vNn7xff3v73x+NbDV/6Nzfv4q0O/qX27+Nthn/EHCDJ8UqLK2uKP7fvpHyv+JNkWllf1/P2vIqCqpPy9 + ZfhiBT62r2/n9uloH8BnBftCEb4+9KvqeVU9G/F5ST3Pscsl6YY17zCnzYGj+W+Dd0ZeCNdqy9ZYajjz + 6NA4Y244neeUuz99/xuVNPTqXXYmAiqC9mb9LS/eu9wU4x9vqS7Zl4fNYZEOL1Pn/uPza1JC8BD7ZvyB + fYW/cPRjZV/kz+2zXX7lcMePB9u35i+Rhy3tG/G3tm/+XQbBPruc2Veq89OjYW9++af8l6g7AcUp+6Zo + s2+4sy/bZ/D1AL5in44rR/Yl+Cwa8RX4yL5XWrWvf4PL9OMcFg73oHK4g6Xr+T4graMGl4N+req95fWw + 58clSn199nCl/V1z2rzhzNjTH3/rJQ29IzQ0Ab06H38O+WeionHhpy1zxgvD0A+nkb9///yqVRBUAf/8 + xSZ/x2z2Yp/Y37Gs9s346/YZf19deXDlTt3lt+bvrO0L/Kl9xp9eRvuAP4ZPSjZZXT1r075/1Gw+PVru + 1Yd/PHz1k37L3tN3ulNv1PTUlpl9aYPXG31laat9Xyke4ggV+4w/VQ+/viWRZ4U9fRG+yl8SMKjXi8wx + f009WveacT2fCQv09XMWrsNnlXHm0zjHJnwa57SrxyIolUeYpPDJg7uArpVN+5I+TTOh+hMuTZZJB0aM + ws7fZ1drVUDpBgqY7Dt4s1f5w6Ffa2qf8tfsK5e+2Xv70eun7S+07bCv83ekffuGfmdsX2hin03ITekB + c+9+1U3gBy8/iIA6ABzAN7IP+dNpgM+xGwgI2MkYEIeBbl+Gr6ln02HE5/BFAat63gg+C494JPIgxK7b + V8njsR4yNwsXoPXTpzGdn/lwUzbLCwfOOJu5XEaBQwQxuwkctAavIaX8WQ3BSuE6+7kpaqH6LyLTuLCl + C8D3FTb1nMJz//PTq5YJ+O9lDKgCfqmxfdKeoZ+E9sG4r/N30fir9kX+wi4/STZ7v776MJ/lt8Xfln1L + AdsH3Rb2KX/dvsYfw6cxSVaAT9ppXxOw3MqPOext2QSWMZdYNrYvfpqtw6c1+Nb20f6+tP3b4BvZZ5dl + a7eM+xp8Fqh3EHzWcsSHhRFfXUNg7WLRLLxpNtHStVFXSwIiZKYMZ1Z3foSZkC9cb4KrT+RWrrwSNa5M + 96s8bQ/lzzLNl5GJVn8B+q57FT5H0K46ghmy4ZyU/LSXy8RhoPTul/8XRHrdOCcRhyoAAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAAJQAAAAeCAYAAADKFzdqAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAApXSURBVHhe7ZnZdxxHFcbLj3jTjGzLli3Zoxmtoxlp + ZHm3vMtLfPLgQEzYAoKAIGGJWYJYg+DJb372v+B/IA8+OfoHlAgSiBMSo4QlLAGJJXm+fF9NVZ/bNT3q + kSwLCF3nfKe6b92qHnX/5n41LfPLT428+NpnqnLvsxV5Y6oib35hWN76Yll+M12Wt78yJO88Myi/+9qA + /OEbA/LujX7507f65C/f6ZP3vtsrf/teryx9vyTLPyzKP35clH8+3yP/+kmPvD/bIx/8tCAf/KzwooiY + TP8/Mq9+ckR+9emqvPZkVV7/XEV+/flhefOpYbn/pbIsfnlI3n56SH771UH5/dcB1bMD8sdv9sufvw2o + nuuTv84QqpIs/aAkf/+RggpAvV8HCtdIvnCmD6fMq58YEVQpC9W9JysRVG89VY6geufpwQiqd5/tj6B6 + 77neOlS2SjmongdUqFIeqvCCmT7cMq88MSqsUoRqHaxvEVVqDlVqFtY3Bes7m3TRTGvTuQsXJiFxugkx + xp7nS5Afn3Hnt6H7rvfz5iG9DsfCdZOuE16f86bd8XXXF80vPj4qrzwxYqFag/UtwPpuoUpdg/Xlkm5C + pvWTeoAEhr1/wIzfhQgP+zsQ44THj7MnHEV1HvbjUF6d6+vo6/ueMYJL8brG/Pz6qBCqVVjfAqC6Aesr + AKrEPzzTwxEemH+QFCuEf+Ac88e6GnkRIn9M2PQ64TmPNTDsuXZ4fc5jzFdIC51ZeLwmhCrF+pZhfbdg + fYXq6KgZHRszB8fHzaEjR2J/8OmzZ3NYdGry0qVblx95ZOHqo48iHL8pmzZtuuskCWL8JjRp/oPt3jOj + M5CkyaVvWMO99Q+UVYTnSRXK5/CcPauHB4MxzvE5hEHPYZ9UwVi59PU9RDrGYwD1MQD1eL1KJVjfMqrU + LKwvNzA0ZIaGh02lWjUjtZqpHTxoDh46ZA4fPVo4evz4jRMTEwsTp0/LmXPn5PzkpFy8fFmuXL2aBFQS + SEkiXEV3Lze0AZb/VqA8QPbhOfmK5PdQvhqxqkRW5GI6j8e+93sgipXHxylfnaikuI/ZHPPyR2viq1Rg + fbOwvlyxt9f09veb/sFBM1gum3KlYiojI4Rqamx8fG788GEBVHLsxAk5OTEhp86ckbPnz8uFixfl0pUr + aUDdh3zFmncxrSVow6ECLCFQd5Pk0rOm20sA6mVUKWV9c6hShe4DB8yBnh7TUyyaEqDqA1QDgGqoXJ4a + rlQWYX0C6xNAJbA+OXLsmBw/eVJOnjolsD5LMawvDagZ9zFsw3kRuqPGqQ1/cIAlBpQLZ62V9tJjY2Kr + VN36bnTu3Wv2dXWZrv37zX5AVSBUpZIp9fVN9Q0MLML6BNYnw9WqjAAqWJ/A+uQwoIL1yQlApa1vNUD5 + hngI1YbuqTKgHqDNXxsTQLUMqGode/aYPZ2dpnPfPrOvu9t0E6pCoVYoFudgfQLrE1ifwPoE1iewPoH1 + Wai09WE/FVnfGoFipdJ5N91Q1BDLMw7RLmmNtMzbUASfi/k15l04aohpcKPx1QAV5kLTbsg2nN9XY3dc + mPFojjuf5LiK87jhi6TG/bzrkL2GTVANMX422jPHKa4Z+3y+IZ6HmD8P+Wv4OeMuLT0PQC3MPzaW27lr + l9m1e7fZTahQpfYCqq7u7llYn8D6BNYnsL4YVLA+iVkfoLLWx/2Us761AMWGMYLi82K2h/NxiBDptbTs + TUM/E8TzdgHXcK7XiD4LbkzLQLEhhw8turkuzPi0ii9B0fVVnNJ5oUJA9Rhhis5dCnP40PUDD3XbpdqG + 87T86y3nAahc+44dZsfOnWZnR4fpIFSdnTlY39zeri6B9Qmsrw5VqSSwPoH1ibY+QlUDVLQ+7qdofdxP + 0foeAKgYDC7MOKuXBsG+ZoBCeJgXVjp7Y9hwTCj1WLT5x40Jq05sM+4UVU0cj0M630KA3lYOp9jfquJa + XDd8YARRfzY9ptfXQOk1WDkIHqHlWj4egYrj2yrOnJsQ7wF7/QVJz8vl8ybf3m4sVKxSHR20vkVYn8D6 + BPspgfUJrE9gfVIEVL2Aqh9QDQKqNOt7CEDR1hLn45xw+TH7LUSvbS/6ZuJYrx+zQ3eT/I1rpljVxLm+ + 2XzQtDB/3mC3asxL20pYsXT11HGK8BAYa4/o9dzwM+qKpkHxMSr60oWtpby2XC6CClWqButbhvUJrE9g + fQLrE+ynxFofoKL1Je2nqoDKWx+hovURqocAlJ4fWhgrlR+zDxG9Xie6iTjW+6eweqwFKNqBrgC6eqy4 + F4JiFsSGmK4y0bVUjOI1YvcA56xyfrzhoasxys5Frz83rxvBrVtLedvb2upQtbdfQ5VaBlQC6xNYn8D6 + BNYn1voAVSvWR6i09T0AULoSeThCm1pRbk5oe9Y+0GvbjL3rwo2KAeXCqS2c59QAC1uQ03AfGNM5LtzK + PP3Q0+SrGi0rHCOs4RctPW/b9u2EqtaWzy+jSgmgElifwPoE1ifa+ux+itYHqLz1eajKgKrCVwnO+uyr + BFjfAwClrcr+OkKvK1Cq7EJoONZrTUMazCQ7WitQrFL6ZlOJ1hDkrCdQejxNUeXEcRIsFCuR/jGxct7W + bdtq29rallGlBNYnFipWKUKVZH2AitZn91NNXiWMAipvfWsBCvEQHP+rLYzzvKnsYmg41rbHfZY+b/lh + prVwnlNks7oFOWmfodl+Jw0orsG9XDOFdskY94JhlQt/FTbPA1ALqFKCKiUeKlultPUBKm190asEWh+g + 6gNUA4CqwfoA1WqBQozvl3RFoTVFf7iKUw17k6SGPG17XFvbacO/dnBjVg0U8opqDm1A3+y0B9/wng0x + vYdKfH8FJa2r91AN4600zGOljf2ic0Oxlpi3ZetWAVQSQeWrlLY+QLWS9YX7KW19qwEK56wsGqaknNjL + SCj2LWvWXK6eZ3s3HGu4MWsBij/P/RzO12sQrrAa+DE/vtKvPP0TX8eTgAqvm7jB1g05SV+qhndcLeVt + 3rJFIqhUlYpZH6Cy1geoVmN9hCoFKP3P4aQXlQ0bWsTCjTnnseLQxii7lkuPmhvT86jEbzBuTAwoyL97 + CuXfN9ECfK6Fx0lXqVgVUnEv5nJNXZmo2C+5YCwJKF6Xc3QeYfeQ8zgEmPm8LvdHzGGvP7utkOjT8z6y + ebNYqHSV8lB56wNU3vrsfiq0PvcWPbI+9RY9BahmIiSJD5sNY9xYJwGoFftm4jz8tUc1fOPYcGNCoJrJ + fkb0+gFGn5vHKk5F1wvi+qGE8djfEYw3+0LwRWsIVSj/2bVVJ4nrMKelPAL1QqxKKagi6wNU3vr8q4TI + +gAVra/Jq4QXEoDS/1LRYpyVhrCk2hhyCIj/X55fw1c8VqOGNRCL2Z4LNzTcmJaBctIxDU1YpZq9T+Ia + tDkPAedwb5JkMbF5LtzQMMZrc11WPf8Z2POclcWCil7n6bV5zri9j+zd+Yp5sYe9EcpavakHQjUF43+u + JT30h6ms1VsG1Dopa/WWAbVOylq9ZUCtk7JWbxlQmTKlSsy/AR/H/5hLZETDAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/WinForms/SISSplashScreen.vb b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.vb new file mode 100644 index 0000000..8d1cf5b --- /dev/null +++ b/SISBusiness.WIN.Company/WinForms/SISSplashScreen.vb @@ -0,0 +1,15 @@ +Imports DevExpress.ExpressApp.Win + +Public Class SISSplashScreen + Sub New() + InitializeComponent() + End Sub + + Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object) + MyBase.ProcessCommand(cmd, arg) + End Sub + + Public Enum SplashScreenCommand + SomeCommandId + End Enum +End Class diff --git a/SISBusiness.WIN.Company/XMLUserStore/UserStore.vb b/SISBusiness.WIN.Company/XMLUserStore/UserStore.vb new file mode 100644 index 0000000..f32c45a --- /dev/null +++ b/SISBusiness.WIN.Company/XMLUserStore/UserStore.vb @@ -0,0 +1,93 @@ +Imports System +Imports System.Configuration +Imports System.Windows.Forms + +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Win + +Imports SISBusiness.Module.Win +Imports DevExpress.Persistent.AuditTrail +Imports Microsoft.VisualBasic + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model +Imports SISBusiness.Module + +Public Class UserStore + Inherits ModelDifferenceStore + Private Shared ReadOnly xmlHeader As String = "" & System.Environment.NewLine + Private application As WinApplication + + Public Overrides ReadOnly Property Name() As String + Get + Return "UserStore" + End Get + End Property + + Public Sub New(ByVal winApplication As WinApplication) + application = winApplication + End Sub + + Private Function FindStoreByAspect(ByVal stores As XPCollection(Of XmlStore), ByVal aspect As String) As XmlStore + For Each store As XmlStore In stores + If store.Aspect = aspect Then + Return store + End If + Next store + Return Nothing + End Function + + Private Function FindXmlUserByCurrentUser() As XmlUser + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim currentUser As DevExpress.Persistent.BaseImpl.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + Dim user As XmlUser = Nothing + Try + user = objectSpace.FindObject(Of XmlUser)(CriteriaOperator.Parse("User=?", currentUser), True) + Catch + End Try + Return user + End Function + + Public Overrides Sub Load(ByVal model As ModelApplicationBase) + Dim xmlReader As New ModelXmlReader() + Dim user As XmlUser = FindXmlUserByCurrentUser() + If user IsNot Nothing Then + For Each store As XmlStore In user.Aspects + xmlReader.ReadFromString(model, store.Aspect, store.XmlData) + Next store + End If + End Sub + + Public Overrides Sub SaveDifference(ByVal model As ModelApplicationBase) + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim user As XmlUser = objectSpace.GetObject(FindXmlUserByCurrentUser()) + If user Is Nothing Then + user = New XmlUser(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + user.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + End If + For i As Integer = 0 To model.AspectCount - 1 + Dim xmlWriter As New ModelXmlWriter() + Dim aspect As String = model.GetAspect(i) + Dim xmlContent As String = xmlWriter.WriteToString(model, i) + If (Not String.IsNullOrEmpty(xmlContent)) Then + Dim store As XmlStore = FindStoreByAspect(user.Aspects, aspect) + If store Is Nothing Then + store = New XmlStore(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + End If + store.User = user + store.Aspect = aspect + store.XmlData = xmlHeader & xmlContent + End If + Next i + objectSpace.CommitChanges() + End Sub + + +End Class + diff --git a/SISBusiness.WIN.Company/app.config b/SISBusiness.WIN.Company/app.config new file mode 100644 index 0000000..f356d17 --- /dev/null +++ b/SISBusiness.WIN.Company/app.config @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.WIN.Company/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..fca2b3b Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..faefcbb --- /dev/null +++ b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt @@ -0,0 +1,454 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Model.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Model_hu.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Model_en.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Win.exe.config +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Win.exe +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Win.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.EasyTest.WinAdapter.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Images.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Validation.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraEditors.v15.2.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\policy.2.0.Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.CSharp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.EasyTest.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\EnvDTE.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\EnvDTE80.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.Windows.Design.Interaction.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\VSLangProj.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.CommandBars.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\stdole.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.Windows.Design.Extensibility.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.VisualStudio.VSHelp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.MSXML.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.CSharp.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.Win.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\SISBusiness.Module.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Validation.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Newtonsoft.Json.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.EasyTest.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.Windows.Design.Interaction.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\Microsoft.Windows.Design.Extensibility.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Debug\policy.2.0.Npgsql.config +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.SISBusinessWindowsFormsApplication.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.SISSplashScreen.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.Company.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.exe.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.exe +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Debug\SISBusiness.Win.pdb diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.GenerateResource.Cache b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..41e3784 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..9796237 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Resources.resources b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.Resources.resources differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISSplashScreen.resources b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISSplashScreen.resources new file mode 100644 index 0000000..8ca3f70 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.SISSplashScreen.resources differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.exe b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.exe new file mode 100644 index 0000000..507e32e Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.exe differ diff --git a/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.pdb b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.pdb new file mode 100644 index 0000000..526e6f7 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/SISBusiness.Win.pdb differ diff --git a/SISBusiness.WIN.Company/obj/Debug/sisbusiness.win.exe.licenses b/SISBusiness.WIN.Company/obj/Debug/sisbusiness.win.exe.licenses new file mode 100644 index 0000000..7d3c50a Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Debug/sisbusiness.win.exe.licenses differ diff --git a/SISBusiness.WIN.Company/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.WIN.Company/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..bb362fb Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release 64bit/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..69c3fdd Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/Service References.MNBArfolyamService.Reference.vb.dll b/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/Service References.MNBArfolyamService.Reference.vb.dll new file mode 100644 index 0000000..b11fe16 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release 64bit/TempPE/Service References.MNBArfolyamService.Reference.vb.dll differ diff --git a/SISBusiness.WIN.Company/obj/Release 64bit/build.force b/SISBusiness.WIN.Company/obj/Release 64bit/build.force new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.WIN.Company/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.WIN.Company/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..3ac683c Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..139ed11 --- /dev/null +++ b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.FileListAbsolute.txt @@ -0,0 +1,448 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Excels\XLSImports.xlsx +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Model.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Model_hu.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Model_en.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\SISBusiness.Win.exe.config +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\SISBusiness.Win.exe +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.EasyTest.WinAdapter.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Images.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Notifications.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Validation.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraEditors.v15.2.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Mono.Security.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\policy.2.0.Npgsql.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\SISBusiness.Module.CSharp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\SISBusiness.Module.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Gnostice.PDFOne.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Spreadsheet.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraSpreadsheet.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\exontrol.exg2antt.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\MySql.Data.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\exontrol.exprint.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Spread.Design.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.EasyTest.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\EnvDTE.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\EnvDTE80.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Ionic.Zlib.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.Windows.Design.Interaction.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\VSLangProj.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.CommandBars.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\stdole.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.Windows.Design.Extensibility.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.VisualStudio.VSHelp.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.MSXML.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Chart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.FileAttachment.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotChart.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.PivotGrid.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Reports.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Scheduler.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.TreeListEditors.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Validation.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Npgsql.pdb +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Npgsql.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Gnostice.PDFOne.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Spreadsheet.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraSpreadsheet.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Spread.Design.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.EasyTest.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.Windows.Design.Interaction.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\Microsoft.Windows.Design.Extensibility.xml +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\en\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\hu\SISBusiness.Module.CSharp.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\en\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\hu\SISBusiness.Module.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.FileAttachment.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.PivotChart.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Reports.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Scheduler.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Validation.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\fi\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\fr\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\zh-CN\Npgsql.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Spreadsheet.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraSpreadsheet.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\bin\Release\policy.2.0.Npgsql.config +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.SISBusinessWindowsFormsApplication.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.SISSplashScreen.resources +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.Company.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.exe.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.WIN.Company\obj\Release\SISBusiness.Win.exe diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.GenerateResource.Cache b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..41e3784 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..90dc8fe Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Company.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Resources.resources b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.Resources.resources differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISBusinessWindowsFormsApplication.resources differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISSplashScreen.resources b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISSplashScreen.resources new file mode 100644 index 0000000..8ca3f70 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.SISSplashScreen.resources differ diff --git a/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.exe b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.exe new file mode 100644 index 0000000..32b4953 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/SISBusiness.Win.exe differ diff --git a/SISBusiness.WIN.Company/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.WIN.Company/obj/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..f6868b9 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.WIN.Company/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll b/SISBusiness.WIN.Company/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll new file mode 100644 index 0000000..3649d35 Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/TempPE/Service References.MNBArfolyamService.Reference.vb.dll differ diff --git a/SISBusiness.WIN.Company/obj/Release/sisbusiness.win.exe.licenses b/SISBusiness.WIN.Company/obj/Release/sisbusiness.win.exe.licenses new file mode 100644 index 0000000..7d3c50a Binary files /dev/null and b/SISBusiness.WIN.Company/obj/Release/sisbusiness.win.exe.licenses differ diff --git a/SISBusiness.WIN.Company/packages.config b/SISBusiness.WIN.Company/packages.config new file mode 100644 index 0000000..2c6c3f1 --- /dev/null +++ b/SISBusiness.WIN.Company/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.WIN.Company/sis-03.ICO b/SISBusiness.WIN.Company/sis-03.ICO new file mode 100644 index 0000000..4e7c4dd Binary files /dev/null and b/SISBusiness.WIN.Company/sis-03.ICO differ diff --git a/SISBusiness.WIN.Company/sis-05.ico b/SISBusiness.WIN.Company/sis-05.ico new file mode 100644 index 0000000..8af2a52 Binary files /dev/null and b/SISBusiness.WIN.Company/sis-05.ico differ diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButton.skin new file mode 100644 index 0000000..70550fd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButtonEdit.skin new file mode 100644 index 0000000..4a22a69 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCalendar.skin new file mode 100644 index 0000000..f394c13 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCalendar.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCallbackPanel.skin new file mode 100644 index 0000000..8a3e552 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCaptcha.skin new file mode 100644 index 0000000..7cc5437 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCaptcha.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCheckBox.skin new file mode 100644 index 0000000..16fc390 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCloudControl.skin new file mode 100644 index 0000000..9a54d9a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxColorEdit.skin new file mode 100644 index 0000000..0f3c673 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxColorEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxComboBox.skin new file mode 100644 index 0000000..cb8dbb7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxComboBox.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDataView.skin new file mode 100644 index 0000000..866d79d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDataView.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateEdit.skin new file mode 100644 index 0000000..d493259 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateEdit.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateNavigator.skin new file mode 100644 index 0000000..2db9e82 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDropDownEdit.skin new file mode 100644 index 0000000..e357f90 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxDropDownEdit.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxFilterControl.skin new file mode 100644 index 0000000..f1ad0fe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxGridView.skin new file mode 100644 index 0000000..719489f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxGridView.skin @@ -0,0 +1,38 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHeadline.skin new file mode 100644 index 0000000..937a6ba --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHeadline.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHtmlEditor.skin new file mode 100644 index 0000000..b539234 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHyperLink.skin new file mode 100644 index 0000000..b99c394 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLabel.skin new file mode 100644 index 0000000..965492c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLabel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxListBox.skin new file mode 100644 index 0000000..bb30c25 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLoadingPanel.skin new file mode 100644 index 0000000..c514800 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMemo.skin new file mode 100644 index 0000000..716e6fe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMenu.skin new file mode 100644 index 0000000..0dd1899 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxMenu.skin @@ -0,0 +1,36 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNavBar.skin new file mode 100644 index 0000000..53814b2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNavBar.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNewsControl.skin new file mode 100644 index 0000000..1f8acda --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxNewsControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPageControl.skin new file mode 100644 index 0000000..d9673c6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPager.skin new file mode 100644 index 0000000..b131c28 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPager.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPivotGrid.skin new file mode 100644 index 0000000..5611386 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPivotGrid.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupControl.skin new file mode 100644 index 0000000..17a303f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupMenu.skin new file mode 100644 index 0000000..68581ca --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxProgressBar.skin new file mode 100644 index 0000000..2396a29 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButton.skin new file mode 100644 index 0000000..099ebef --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButton.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButtonList.skin new file mode 100644 index 0000000..0734224 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRadioButtonList.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRatingControl.skin new file mode 100644 index 0000000..e83c5c5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRoundPanel.skin new file mode 100644 index 0000000..9f67eb1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxRoundPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxScheduler.skin new file mode 100644 index 0000000..c7dbc6d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxScheduler.skin @@ -0,0 +1,38 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSiteMapControl.skin new file mode 100644 index 0000000..f7a71f7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSiteMapControl.skin @@ -0,0 +1,42 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpellChecker.skin new file mode 100644 index 0000000..873bfeb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpellChecker.skin @@ -0,0 +1,26 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpinEdit.skin new file mode 100644 index 0000000..b1e0d68 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSpinEdit.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSplitter.skin new file mode 100644 index 0000000..93c5f32 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTabControl.skin new file mode 100644 index 0000000..34b7ef1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTabControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTextBox.skin new file mode 100644 index 0000000..3e2d81f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTimeEdit.skin new file mode 100644 index 0000000..dbd1805 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTimeEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTitleIndex.skin new file mode 100644 index 0000000..a37a5da --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTitleIndex.skin @@ -0,0 +1,35 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeList.skin new file mode 100644 index 0000000..e3adf7b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeList.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeView.skin new file mode 100644 index 0000000..fba0dcf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/MonthEdit.skin new file mode 100644 index 0000000..99fdba8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/MonthEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportToolbar.skin new file mode 100644 index 0000000..600deed --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportToolbar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportViewer.skin new file mode 100644 index 0000000..be87a3e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/ReportViewer.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekDaysEdit.skin new file mode 100644 index 0000000..48ff90e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekDaysEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekOfMonthEdit.skin new file mode 100644 index 0000000..0650935 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Aqua/WeekOfMonthEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButton.skin new file mode 100644 index 0000000..1960fb0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButtonEdit.skin new file mode 100644 index 0000000..9551299 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxButtonEdit.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCalendar.skin new file mode 100644 index 0000000..0428e0a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCallbackPanel.skin new file mode 100644 index 0000000..40ee8fb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCaptcha.skin new file mode 100644 index 0000000..6f247da --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCaptcha.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxChartControl.skin new file mode 100644 index 0000000..9b15cb1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCheckBox.skin new file mode 100644 index 0000000..9a783a2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCheckBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCloudControl.skin new file mode 100644 index 0000000..317ac22 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxCloudControl.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxcc" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxColorEdit.skin new file mode 100644 index 0000000..0470c49 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxColorEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxComboBox.skin new file mode 100644 index 0000000..bc1d00b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxComboBox.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDataView.skin new file mode 100644 index 0000000..9c1f2db --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateEdit.skin new file mode 100644 index 0000000..3826dea --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateNavigator.skin new file mode 100644 index 0000000..03e35d1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDateNavigator.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDockPanel.skin new file mode 100644 index 0000000..72fc7a7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDockPanel.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDropDownEdit.skin new file mode 100644 index 0000000..2f78941 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxDropDownEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFileManager.skin new file mode 100644 index 0000000..441c597 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFilterControl.skin new file mode 100644 index 0000000..dac508a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridLookup.skin new file mode 100644 index 0000000..cb2ad0f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridLookup.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridView.skin new file mode 100644 index 0000000..c8d2ff1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxGridView.skin @@ -0,0 +1,26 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHeadline.skin new file mode 100644 index 0000000..ec5ec6c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHeadline.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHtmlEditor.skin new file mode 100644 index 0000000..26a507e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHyperLink.skin new file mode 100644 index 0000000..2f4f217 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxHyperLink.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLabel.skin new file mode 100644 index 0000000..389c91e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxListBox.skin new file mode 100644 index 0000000..6f0480e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxListBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLoadingPanel.skin new file mode 100644 index 0000000..a0e9463 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMemo.skin new file mode 100644 index 0000000..97e5743 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMemo.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMenu.skin new file mode 100644 index 0000000..54b01b7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNavBar.skin new file mode 100644 index 0000000..c943508 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNewsControl.skin new file mode 100644 index 0000000..98fba65 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxNewsControl.skin @@ -0,0 +1,40 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPageControl.skin new file mode 100644 index 0000000..dbfc5c5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPager.skin new file mode 100644 index 0000000..f448d19 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPivotGrid.skin new file mode 100644 index 0000000..987e603 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPivotGrid.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwpg" Namespace="DevExpress.Web.ASPxPivotGrid" Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupControl.skin new file mode 100644 index 0000000..1f3fc35 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupMenu.skin new file mode 100644 index 0000000..5b326bb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxPopupMenu.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxProgressBar.skin new file mode 100644 index 0000000..a6cee5e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButton.skin new file mode 100644 index 0000000..fb7c88e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButton.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButtonList.skin new file mode 100644 index 0000000..13175c1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRadioButtonList.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRatingControl.skin new file mode 100644 index 0000000..2916f4b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRatingControl.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRoundPanel.skin new file mode 100644 index 0000000..b510cc7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxScheduler.skin new file mode 100644 index 0000000..fc7effd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxScheduler.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSiteMapControl.skin new file mode 100644 index 0000000..a27aabb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSiteMapControl.skin @@ -0,0 +1,38 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpellChecker.skin new file mode 100644 index 0000000..d615a48 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpinEdit.skin new file mode 100644 index 0000000..6de0d03 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSplitter.skin new file mode 100644 index 0000000..e68ccb8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTabControl.skin new file mode 100644 index 0000000..60c5e20 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTextBox.skin new file mode 100644 index 0000000..c6ba77f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTimeEdit.skin new file mode 100644 index 0000000..15f56e9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTitleIndex.skin new file mode 100644 index 0000000..2dad85d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTitleIndex.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeList.skin new file mode 100644 index 0000000..21729a0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeList.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeView.skin new file mode 100644 index 0000000..d5575fc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxUploadControl.skin new file mode 100644 index 0000000..10906ec --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/MonthEdit.skin new file mode 100644 index 0000000..893c240 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..7d96bf6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/RecurrenceTypeEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportDocumentMap.skin new file mode 100644 index 0000000..fbfb18f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportDocumentMap.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportParametersPanel.skin new file mode 100644 index 0000000..edd872e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportParametersPanel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportToolbar.skin new file mode 100644 index 0000000..2997885 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportViewer.skin new file mode 100644 index 0000000..1f4f730 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekDaysEdit.skin new file mode 100644 index 0000000..fc8666e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekDaysEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekOfMonthEdit.skin new file mode 100644 index 0000000..9072bf6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/BlackGlass/WeekOfMonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButton.skin new file mode 100644 index 0000000..076e84f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButtonEdit.skin new file mode 100644 index 0000000..a6bfade --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCalendar.skin new file mode 100644 index 0000000..e631ede --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCallbackPanel.skin new file mode 100644 index 0000000..83d47c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCaptcha.skin new file mode 100644 index 0000000..fce86ab --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCaptcha.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxChartControl.skin new file mode 100644 index 0000000..9a43d5e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCheckBox.skin new file mode 100644 index 0000000..73811a5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCloudControl.skin new file mode 100644 index 0000000..9df7f25 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxCloudControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxColorEdit.skin new file mode 100644 index 0000000..211a3df --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxComboBox.skin new file mode 100644 index 0000000..d43c011 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDataView.skin new file mode 100644 index 0000000..bdc529b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDataView.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateEdit.skin new file mode 100644 index 0000000..d2e4932 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateNavigator.skin new file mode 100644 index 0000000..c5f2bb0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDockPanel.skin new file mode 100644 index 0000000..b628843 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDropDownEdit.skin new file mode 100644 index 0000000..a587b35 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFileManager.skin new file mode 100644 index 0000000..a092e83 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFilterControl.skin new file mode 100644 index 0000000..24699d8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridLookup.skin new file mode 100644 index 0000000..f4502e5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridLookup.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridView.skin new file mode 100644 index 0000000..2d8b4b5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHeadline.skin new file mode 100644 index 0000000..9140258 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHtmlEditor.skin new file mode 100644 index 0000000..420aa2a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHyperLink.skin new file mode 100644 index 0000000..f59d287 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLabel.skin new file mode 100644 index 0000000..c633645 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxListBox.skin new file mode 100644 index 0000000..0bb2afc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLoadingPanel.skin new file mode 100644 index 0000000..228524d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMemo.skin new file mode 100644 index 0000000..e717173 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMenu.skin new file mode 100644 index 0000000..8ec05b3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNavBar.skin new file mode 100644 index 0000000..b98fb11 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNewsControl.skin new file mode 100644 index 0000000..8cd6589 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPageControl.skin new file mode 100644 index 0000000..e757fb2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPager.skin new file mode 100644 index 0000000..cd2c1ad --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPivotGrid.skin new file mode 100644 index 0000000..9fd22ab --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupControl.skin new file mode 100644 index 0000000..d5e8e0c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupMenu.skin new file mode 100644 index 0000000..30dca1a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxProgressBar.skin new file mode 100644 index 0000000..a8604a9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButton.skin new file mode 100644 index 0000000..26a2cb1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButtonList.skin new file mode 100644 index 0000000..1ae65b5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRatingControl.skin new file mode 100644 index 0000000..18534d5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRoundPanel.skin new file mode 100644 index 0000000..6ac5ab8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxScheduler.skin new file mode 100644 index 0000000..e777455 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSiteMapControl.skin new file mode 100644 index 0000000..7009980 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpellChecker.skin new file mode 100644 index 0000000..ca35bab --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpinEdit.skin new file mode 100644 index 0000000..eb12f14 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSplitter.skin new file mode 100644 index 0000000..da6c2fd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTabControl.skin new file mode 100644 index 0000000..a4b907b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTextBox.skin new file mode 100644 index 0000000..002a465 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTimeEdit.skin new file mode 100644 index 0000000..d4f11b9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTitleIndex.skin new file mode 100644 index 0000000..a5d93d4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeList.skin new file mode 100644 index 0000000..98d9068 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeList.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeView.skin new file mode 100644 index 0000000..215a74f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxUploadControl.skin new file mode 100644 index 0000000..aca4bd3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/MonthEdit.skin new file mode 100644 index 0000000..f645781 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..8b22f64 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportDocumentMap.skin new file mode 100644 index 0000000..52c909f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportParametersPanel.skin new file mode 100644 index 0000000..42a546e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportToolbar.skin new file mode 100644 index 0000000..f0ca092 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportViewer.skin new file mode 100644 index 0000000..1187c89 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekDaysEdit.skin new file mode 100644 index 0000000..ef36a40 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekOfMonthEdit.skin new file mode 100644 index 0000000..6fe1299 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/DevEx/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButton.skin new file mode 100644 index 0000000..162cbcc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButtonEdit.skin new file mode 100644 index 0000000..15e8351 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCalendar.skin new file mode 100644 index 0000000..1949ea1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCallbackPanel.skin new file mode 100644 index 0000000..099b85a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCaptcha.skin new file mode 100644 index 0000000..328edac --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxChartControl.skin new file mode 100644 index 0000000..b27cefc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCheckBox.skin new file mode 100644 index 0000000..27d8909 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCloudControl.skin new file mode 100644 index 0000000..9da853b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxCloudControl.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxColorEdit.skin new file mode 100644 index 0000000..c5c1f58 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxComboBox.skin new file mode 100644 index 0000000..2524476 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDataView.skin new file mode 100644 index 0000000..0b585c7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateEdit.skin new file mode 100644 index 0000000..2f195c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateEdit.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateNavigator.skin new file mode 100644 index 0000000..49c7251 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDockPanel.skin new file mode 100644 index 0000000..0a29cd6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDropDownEdit.skin new file mode 100644 index 0000000..43e91d3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFileManager.skin new file mode 100644 index 0000000..60efa78 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFilterControl.skin new file mode 100644 index 0000000..be14080 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridLookup.skin new file mode 100644 index 0000000..cfa9f2f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridLookup.skin @@ -0,0 +1,27 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridView.skin new file mode 100644 index 0000000..f701206 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxGridView.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHeadline.skin new file mode 100644 index 0000000..28f4b81 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHeadline.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHtmlEditor.skin new file mode 100644 index 0000000..3616cd9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHtmlEditor.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHyperLink.skin new file mode 100644 index 0000000..9a90d24 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLabel.skin new file mode 100644 index 0000000..54b34e8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxListBox.skin new file mode 100644 index 0000000..d968836 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLoadingPanel.skin new file mode 100644 index 0000000..2a89669 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMemo.skin new file mode 100644 index 0000000..f96d4a5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMenu.skin new file mode 100644 index 0000000..9148395 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNavBar.skin new file mode 100644 index 0000000..414150f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNewsControl.skin new file mode 100644 index 0000000..078d9a2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxNewsControl.skin @@ -0,0 +1,37 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPageControl.skin new file mode 100644 index 0000000..679d0a8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPager.skin new file mode 100644 index 0000000..4ff1b0b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPivotGrid.skin new file mode 100644 index 0000000..89839c3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPivotGrid.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupControl.skin new file mode 100644 index 0000000..f8308d0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupMenu.skin new file mode 100644 index 0000000..0f0165f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxPopupMenu.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxProgressBar.skin new file mode 100644 index 0000000..e364fd4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButton.skin new file mode 100644 index 0000000..53fd4bb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButtonList.skin new file mode 100644 index 0000000..3da2a04 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRatingControl.skin new file mode 100644 index 0000000..47be6a7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRoundPanel.skin new file mode 100644 index 0000000..8bea9c3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxScheduler.skin new file mode 100644 index 0000000..7ac87ba --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxScheduler.skin @@ -0,0 +1,127 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSiteMapControl.skin new file mode 100644 index 0000000..1316cc5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSiteMapControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpellChecker.skin new file mode 100644 index 0000000..89de694 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpinEdit.skin new file mode 100644 index 0000000..3a81f96 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSplitter.skin new file mode 100644 index 0000000..adab7ea --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxSplitter.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTabControl.skin new file mode 100644 index 0000000..b4d3738 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTabControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTextBox.skin new file mode 100644 index 0000000..b474351 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTimeEdit.skin new file mode 100644 index 0000000..40e9ae1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTimeEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTitleIndex.skin new file mode 100644 index 0000000..a073a98 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTitleIndex.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeList.skin new file mode 100644 index 0000000..6e9cd18 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeList.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeView.skin new file mode 100644 index 0000000..a03a348 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxUploadControl.skin new file mode 100644 index 0000000..8e68fb5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/MonthEdit.skin new file mode 100644 index 0000000..7559d68 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/MonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..ea52b9a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportDocumentMap.skin new file mode 100644 index 0000000..055c0e5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportParametersPanel.skin new file mode 100644 index 0000000..25597e5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportToolbar.skin new file mode 100644 index 0000000..dbdfc4d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportViewer.skin new file mode 100644 index 0000000..4a67211 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekDaysEdit.skin new file mode 100644 index 0000000..36497c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekDaysEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekOfMonthEdit.skin new file mode 100644 index 0000000..d3f3ef2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Glass/WeekOfMonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButton.skin new file mode 100644 index 0000000..54679a1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButtonEdit.skin new file mode 100644 index 0000000..15a3d5f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCalendar.skin new file mode 100644 index 0000000..968cfc1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..463f386 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCaptcha.skin new file mode 100644 index 0000000..b3c351d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxChartControl.skin new file mode 100644 index 0000000..7187d6e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCheckBox.skin new file mode 100644 index 0000000..0da57dc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCloudControl.skin new file mode 100644 index 0000000..3300739 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxColorEdit.skin new file mode 100644 index 0000000..48e06a4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxComboBox.skin new file mode 100644 index 0000000..a8165dd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDataView.skin new file mode 100644 index 0000000..c89aaa6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateEdit.skin new file mode 100644 index 0000000..00c6ef1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateNavigator.skin new file mode 100644 index 0000000..c04b7ee --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDockPanel.skin new file mode 100644 index 0000000..39ebbd6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..544c1e5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFileManager.skin new file mode 100644 index 0000000..3fd9f8a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFilterControl.skin new file mode 100644 index 0000000..028e555 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridLookup.skin new file mode 100644 index 0000000..8273a72 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridView.skin new file mode 100644 index 0000000..fb2794e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxGridView.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHeadline.skin new file mode 100644 index 0000000..f020c28 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..a1a4393 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHyperLink.skin new file mode 100644 index 0000000..65a164d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLabel.skin new file mode 100644 index 0000000..39084e6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxListBox.skin new file mode 100644 index 0000000..657975d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..5863faf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMemo.skin new file mode 100644 index 0000000..520234b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMemo.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMenu.skin new file mode 100644 index 0000000..c53b9f0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNavBar.skin new file mode 100644 index 0000000..353080c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNavBar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNewsControl.skin new file mode 100644 index 0000000..cd183c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPageControl.skin new file mode 100644 index 0000000..c0f49f3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPager.skin new file mode 100644 index 0000000..a3b68c0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPivotGrid.skin new file mode 100644 index 0000000..4ba8a7f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupControl.skin new file mode 100644 index 0000000..b8f3239 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupMenu.skin new file mode 100644 index 0000000..74b04db --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxProgressBar.skin new file mode 100644 index 0000000..36a186e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButton.skin new file mode 100644 index 0000000..20cb350 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..9c5188c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRatingControl.skin new file mode 100644 index 0000000..cd78575 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRoundPanel.skin new file mode 100644 index 0000000..3a71817 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxScheduler.skin new file mode 100644 index 0000000..0044381 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..2709cf6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpellChecker.skin new file mode 100644 index 0000000..5cf332c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpinEdit.skin new file mode 100644 index 0000000..9215ef2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSplitter.skin new file mode 100644 index 0000000..52444ad --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTabControl.skin new file mode 100644 index 0000000..10b3c38 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTextBox.skin new file mode 100644 index 0000000..af4dbac --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTimeEdit.skin new file mode 100644 index 0000000..2328257 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTitleIndex.skin new file mode 100644 index 0000000..9fe058d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeList.skin new file mode 100644 index 0000000..25bdd8e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeView.skin new file mode 100644 index 0000000..5c07877 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxUploadControl.skin new file mode 100644 index 0000000..e483e09 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/MonthEdit.skin new file mode 100644 index 0000000..db152e4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..bbc7398 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportDocumentMap.skin new file mode 100644 index 0000000..f4e6023 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportParametersPanel.skin new file mode 100644 index 0000000..e82e953 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportToolbar.skin new file mode 100644 index 0000000..d38918b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportViewer.skin new file mode 100644 index 0000000..acc97b0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekDaysEdit.skin new file mode 100644 index 0000000..6a0ea6e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..bd2726f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Blue/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButton.skin new file mode 100644 index 0000000..21be9de --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButtonEdit.skin new file mode 100644 index 0000000..9affd73 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCalendar.skin new file mode 100644 index 0000000..02671a4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCallbackPanel.skin new file mode 100644 index 0000000..5c260bc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCaptcha.skin new file mode 100644 index 0000000..e72299f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxChartControl.skin new file mode 100644 index 0000000..4c08eda --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCheckBox.skin new file mode 100644 index 0000000..88bc3fc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCloudControl.skin new file mode 100644 index 0000000..3fa8210 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxColorEdit.skin new file mode 100644 index 0000000..8cbf009 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxComboBox.skin new file mode 100644 index 0000000..2974c5d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxComboBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDataView.skin new file mode 100644 index 0000000..c9eb3cd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDataView.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateEdit.skin new file mode 100644 index 0000000..71316bf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateNavigator.skin new file mode 100644 index 0000000..40abbfc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDockPanel.skin new file mode 100644 index 0000000..508e0f9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDropDownEdit.skin new file mode 100644 index 0000000..7fbe148 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFileManager.skin new file mode 100644 index 0000000..d121545 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFilterControl.skin new file mode 100644 index 0000000..3878267 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridLookup.skin new file mode 100644 index 0000000..12aaee4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridView.skin new file mode 100644 index 0000000..1d5962a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxGridView.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHeadline.skin new file mode 100644 index 0000000..64a3f9a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHtmlEditor.skin new file mode 100644 index 0000000..f03c64f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHyperLink.skin new file mode 100644 index 0000000..6418936 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLabel.skin new file mode 100644 index 0000000..f077522 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxListBox.skin new file mode 100644 index 0000000..b196d75 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLoadingPanel.skin new file mode 100644 index 0000000..4e8cf7c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMemo.skin new file mode 100644 index 0000000..8e0e2bd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMemo.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMenu.skin new file mode 100644 index 0000000..653ae72 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNavBar.skin new file mode 100644 index 0000000..e109402 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNewsControl.skin new file mode 100644 index 0000000..590dcce --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPageControl.skin new file mode 100644 index 0000000..780fd31 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPager.skin new file mode 100644 index 0000000..d5aa801 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPivotGrid.skin new file mode 100644 index 0000000..5fca665 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupControl.skin new file mode 100644 index 0000000..873c2f9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupMenu.skin new file mode 100644 index 0000000..19c03fa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxProgressBar.skin new file mode 100644 index 0000000..2748a94 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButton.skin new file mode 100644 index 0000000..b87fafa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButtonList.skin new file mode 100644 index 0000000..4e9ab7e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRatingControl.skin new file mode 100644 index 0000000..224bbbd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRoundPanel.skin new file mode 100644 index 0000000..a0bed58 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxScheduler.skin new file mode 100644 index 0000000..9aec22f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSiteMapControl.skin new file mode 100644 index 0000000..ffafccf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpellChecker.skin new file mode 100644 index 0000000..654134f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpinEdit.skin new file mode 100644 index 0000000..1489bb4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSplitter.skin new file mode 100644 index 0000000..b7b1fe6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTabControl.skin new file mode 100644 index 0000000..c862c9d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTextBox.skin new file mode 100644 index 0000000..9155a97 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTimeEdit.skin new file mode 100644 index 0000000..50e28c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTitleIndex.skin new file mode 100644 index 0000000..ba88f88 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeList.skin new file mode 100644 index 0000000..f0bc36b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeView.skin new file mode 100644 index 0000000..02c4a7d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxUploadControl.skin new file mode 100644 index 0000000..1c4a98f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/MonthEdit.skin new file mode 100644 index 0000000..41645e4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..eac6c8c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportDocumentMap.skin new file mode 100644 index 0000000..792edec --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportParametersPanel.skin new file mode 100644 index 0000000..c6c1ec7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportToolbar.skin new file mode 100644 index 0000000..8815287 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportViewer.skin new file mode 100644 index 0000000..308ddf2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekDaysEdit.skin new file mode 100644 index 0000000..61e7b4d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekDaysEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekOfMonthEdit.skin new file mode 100644 index 0000000..19e7442 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Olive/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButton.skin new file mode 100644 index 0000000..26c073a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButtonEdit.skin new file mode 100644 index 0000000..b90bea7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCalendar.skin new file mode 100644 index 0000000..dc47c8b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCallbackPanel.skin new file mode 100644 index 0000000..fc813b3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCaptcha.skin new file mode 100644 index 0000000..4ab21fc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxChartControl.skin new file mode 100644 index 0000000..0107367 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCheckBox.skin new file mode 100644 index 0000000..783481d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCloudControl.skin new file mode 100644 index 0000000..fa6b4a7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxColorEdit.skin new file mode 100644 index 0000000..bfe7e7c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxComboBox.skin new file mode 100644 index 0000000..3ffeea0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxComboBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDataView.skin new file mode 100644 index 0000000..12413a8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateEdit.skin new file mode 100644 index 0000000..d551e6e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateNavigator.skin new file mode 100644 index 0000000..ced4659 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDockPanel.skin new file mode 100644 index 0000000..3f07ba1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDropDownEdit.skin new file mode 100644 index 0000000..1697f6e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFileManager.skin new file mode 100644 index 0000000..cfecd26 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFilterControl.skin new file mode 100644 index 0000000..0362b87 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridLookup.skin new file mode 100644 index 0000000..be19412 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridView.skin new file mode 100644 index 0000000..7eda12e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHeadline.skin new file mode 100644 index 0000000..5a5bd5a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHtmlEditor.skin new file mode 100644 index 0000000..d234148 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHyperLink.skin new file mode 100644 index 0000000..03e1d97 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLabel.skin new file mode 100644 index 0000000..5442473 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxListBox.skin new file mode 100644 index 0000000..8da9441 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLoadingPanel.skin new file mode 100644 index 0000000..a15596e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMemo.skin new file mode 100644 index 0000000..ffe08a0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMemo.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMenu.skin new file mode 100644 index 0000000..22ea6a2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNavBar.skin new file mode 100644 index 0000000..9ceef45 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNewsControl.skin new file mode 100644 index 0000000..092e654 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPageControl.skin new file mode 100644 index 0000000..b99124a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPager.skin new file mode 100644 index 0000000..4d20b5f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPivotGrid.skin new file mode 100644 index 0000000..7e46195 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupControl.skin new file mode 100644 index 0000000..7e452bf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupMenu.skin new file mode 100644 index 0000000..bcc9dae --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxProgressBar.skin new file mode 100644 index 0000000..3e09cdd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButton.skin new file mode 100644 index 0000000..9ac428c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButtonList.skin new file mode 100644 index 0000000..55339b0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRatingControl.skin new file mode 100644 index 0000000..fa90416 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRoundPanel.skin new file mode 100644 index 0000000..dcaa72a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxScheduler.skin new file mode 100644 index 0000000..d82676c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSiteMapControl.skin new file mode 100644 index 0000000..c7636cd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpellChecker.skin new file mode 100644 index 0000000..daced95 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpinEdit.skin new file mode 100644 index 0000000..c122fdc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSplitter.skin new file mode 100644 index 0000000..77e0ad6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTabControl.skin new file mode 100644 index 0000000..b57dc1c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTextBox.skin new file mode 100644 index 0000000..6184027 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTimeEdit.skin new file mode 100644 index 0000000..12cb296 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTitleIndex.skin new file mode 100644 index 0000000..67ed872 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTitleIndex.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeList.skin new file mode 100644 index 0000000..0636007 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeView.skin new file mode 100644 index 0000000..0ecf5e6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxUploadControl.skin new file mode 100644 index 0000000..37c6094 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/MonthEdit.skin new file mode 100644 index 0000000..f2cf7be --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..0b0b84a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportDocumentMap.skin new file mode 100644 index 0000000..4ee5134 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportParametersPanel.skin new file mode 100644 index 0000000..8514d56 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportToolbar.skin new file mode 100644 index 0000000..0be16f0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportViewer.skin new file mode 100644 index 0000000..2406451 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekDaysEdit.skin new file mode 100644 index 0000000..567d321 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekDaysEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekOfMonthEdit.skin new file mode 100644 index 0000000..8736112 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2003Silver/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButton.skin new file mode 100644 index 0000000..6f48eab --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButtonEdit.skin new file mode 100644 index 0000000..256fd37 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCalendar.skin new file mode 100644 index 0000000..c382386 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCallbackPanel.skin new file mode 100644 index 0000000..740a1c4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCaptcha.skin new file mode 100644 index 0000000..3b41e88 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxChartControl.skin new file mode 100644 index 0000000..c8c90ea --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCheckBox.skin new file mode 100644 index 0000000..612c8a7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCloudControl.skin new file mode 100644 index 0000000..3bb4169 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxColorEdit.skin new file mode 100644 index 0000000..ca3a960 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxComboBox.skin new file mode 100644 index 0000000..53eea3f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDataView.skin new file mode 100644 index 0000000..79d0d81 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDataView.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateEdit.skin new file mode 100644 index 0000000..a251232 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateNavigator.skin new file mode 100644 index 0000000..bffb7f6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDockPanel.skin new file mode 100644 index 0000000..eaad9f3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDropDownEdit.skin new file mode 100644 index 0000000..2410ba8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFileManager.skin new file mode 100644 index 0000000..bf02f1f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFilterControl.skin new file mode 100644 index 0000000..009a3a2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridLookup.skin new file mode 100644 index 0000000..5935410 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridLookup.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridView.skin new file mode 100644 index 0000000..a705a08 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxGridView.skin @@ -0,0 +1,27 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHeadline.skin new file mode 100644 index 0000000..008b095 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHtmlEditor.skin new file mode 100644 index 0000000..2e627a5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHyperLink.skin new file mode 100644 index 0000000..f44d217 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLabel.skin new file mode 100644 index 0000000..82e4098 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxListBox.skin new file mode 100644 index 0000000..3686c94 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLoadingPanel.skin new file mode 100644 index 0000000..de86401 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMemo.skin new file mode 100644 index 0000000..8092887 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMenu.skin new file mode 100644 index 0000000..1fffbd1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNavBar.skin new file mode 100644 index 0000000..28b1e9c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNewsControl.skin new file mode 100644 index 0000000..6740455 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPageControl.skin new file mode 100644 index 0000000..499ddc6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPager.skin new file mode 100644 index 0000000..d432663 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPivotGrid.skin new file mode 100644 index 0000000..9d5aa2b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupControl.skin new file mode 100644 index 0000000..b6240da --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupMenu.skin new file mode 100644 index 0000000..748148a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxProgressBar.skin new file mode 100644 index 0000000..5a9f1b1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButton.skin new file mode 100644 index 0000000..d1d9bcd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButtonList.skin new file mode 100644 index 0000000..3e47d1c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRatingControl.skin new file mode 100644 index 0000000..4f298f2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRoundPanel.skin new file mode 100644 index 0000000..5d53357 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxScheduler.skin new file mode 100644 index 0000000..3b13efb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSiteMapControl.skin new file mode 100644 index 0000000..c44dda2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpellChecker.skin new file mode 100644 index 0000000..068753f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpinEdit.skin new file mode 100644 index 0000000..2246c11 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSplitter.skin new file mode 100644 index 0000000..bbe88c5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTabControl.skin new file mode 100644 index 0000000..564b548 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTextBox.skin new file mode 100644 index 0000000..f9cdd67 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTimeEdit.skin new file mode 100644 index 0000000..ca3b1b6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTitleIndex.skin new file mode 100644 index 0000000..5b57d02 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeList.skin new file mode 100644 index 0000000..3ff6a52 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeList.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeView.skin new file mode 100644 index 0000000..3fd07ca --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxUploadControl.skin new file mode 100644 index 0000000..41ceaa6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/MonthEdit.skin new file mode 100644 index 0000000..f381c51 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..44fb512 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportDocumentMap.skin new file mode 100644 index 0000000..d3364f7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportParametersPanel.skin new file mode 100644 index 0000000..599a217 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportToolbar.skin new file mode 100644 index 0000000..5106458 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportViewer.skin new file mode 100644 index 0000000..7c7b0b8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekDaysEdit.skin new file mode 100644 index 0000000..97f1ba6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekOfMonthEdit.skin new file mode 100644 index 0000000..6abd42a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Black/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButton.skin new file mode 100644 index 0000000..cf4922d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButtonEdit.skin new file mode 100644 index 0000000..aefec6c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCalendar.skin new file mode 100644 index 0000000..16f715a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..89ca369 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCaptcha.skin new file mode 100644 index 0000000..871da39 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxChartControl.skin new file mode 100644 index 0000000..45ffa73 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCheckBox.skin new file mode 100644 index 0000000..eeb419e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCloudControl.skin new file mode 100644 index 0000000..27e673d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxColorEdit.skin new file mode 100644 index 0000000..e88b3cc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxComboBox.skin new file mode 100644 index 0000000..870828e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDataView.skin new file mode 100644 index 0000000..a1ec774 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDataView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateEdit.skin new file mode 100644 index 0000000..1ab6eb1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateNavigator.skin new file mode 100644 index 0000000..0e78316 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDockPanel.skin new file mode 100644 index 0000000..0f793cd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..dbcbe3d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFileManager.skin new file mode 100644 index 0000000..8d93054 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFilterControl.skin new file mode 100644 index 0000000..605c037 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridLookup.skin new file mode 100644 index 0000000..f5a5278 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridLookup.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + +
+ + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridView.skin new file mode 100644 index 0000000..c9d1a9d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxGridView.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHeadline.skin new file mode 100644 index 0000000..a1ed635 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..5f7ed24 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHyperLink.skin new file mode 100644 index 0000000..d13702e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLabel.skin new file mode 100644 index 0000000..2d88e1b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxListBox.skin new file mode 100644 index 0000000..e89ef02 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..5e0ad53 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMemo.skin new file mode 100644 index 0000000..4a4cf81 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMenu.skin new file mode 100644 index 0000000..ddfbd8c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNavBar.skin new file mode 100644 index 0000000..823f19a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNewsControl.skin new file mode 100644 index 0000000..253b932 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPageControl.skin new file mode 100644 index 0000000..c4dd413 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPager.skin new file mode 100644 index 0000000..3b79f2d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPivotGrid.skin new file mode 100644 index 0000000..2b3f4f8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPivotGrid.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupControl.skin new file mode 100644 index 0000000..0e9b176 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupMenu.skin new file mode 100644 index 0000000..4af7a85 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxProgressBar.skin new file mode 100644 index 0000000..c30b791 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButton.skin new file mode 100644 index 0000000..7e6e666 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..2752924 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRatingControl.skin new file mode 100644 index 0000000..22e68c5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRoundPanel.skin new file mode 100644 index 0000000..71736b4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxScheduler.skin new file mode 100644 index 0000000..990293d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..eb69018 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpellChecker.skin new file mode 100644 index 0000000..9993296 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpinEdit.skin new file mode 100644 index 0000000..5f6baac --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSplitter.skin new file mode 100644 index 0000000..b56762e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTabControl.skin new file mode 100644 index 0000000..9d72920 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTextBox.skin new file mode 100644 index 0000000..8d9dbad --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTimeEdit.skin new file mode 100644 index 0000000..8bc5e01 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTitleIndex.skin new file mode 100644 index 0000000..4c2a727 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeList.skin new file mode 100644 index 0000000..31f4d74 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeList.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeView.skin new file mode 100644 index 0000000..4976d40 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxUploadControl.skin new file mode 100644 index 0000000..ae53cc0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/MonthEdit.skin new file mode 100644 index 0000000..028a2cf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..d5fef24 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportDocumentMap.skin new file mode 100644 index 0000000..8afd1e8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportParametersPanel.skin new file mode 100644 index 0000000..a05ddae --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportToolbar.skin new file mode 100644 index 0000000..1de0086 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportViewer.skin new file mode 100644 index 0000000..1a2366e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekDaysEdit.skin new file mode 100644 index 0000000..2ad9a76 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..a1d1228 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Blue/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButton.skin new file mode 100644 index 0000000..eda0531 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButtonEdit.skin new file mode 100644 index 0000000..d798f96 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCalendar.skin new file mode 100644 index 0000000..b504e0f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCallbackPanel.skin new file mode 100644 index 0000000..7bc9be2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCaptcha.skin new file mode 100644 index 0000000..30e8455 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxChartControl.skin new file mode 100644 index 0000000..2d82694 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCheckBox.skin new file mode 100644 index 0000000..9fb3c0a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCloudControl.skin new file mode 100644 index 0000000..29766c3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxColorEdit.skin new file mode 100644 index 0000000..507a656 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxComboBox.skin new file mode 100644 index 0000000..8c19d19 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDataView.skin new file mode 100644 index 0000000..9d715b6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDataView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateEdit.skin new file mode 100644 index 0000000..c5e4023 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateNavigator.skin new file mode 100644 index 0000000..030fbf9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDockPanel.skin new file mode 100644 index 0000000..3552bc6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDropDownEdit.skin new file mode 100644 index 0000000..dcc99b0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFileManager.skin new file mode 100644 index 0000000..128d349 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFilterControl.skin new file mode 100644 index 0000000..70b1ea8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridLookup.skin new file mode 100644 index 0000000..324500f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridLookup.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridView.skin new file mode 100644 index 0000000..835cd94 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHeadline.skin new file mode 100644 index 0000000..f30f309 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHtmlEditor.skin new file mode 100644 index 0000000..e96d33c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHyperLink.skin new file mode 100644 index 0000000..a4528bf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLabel.skin new file mode 100644 index 0000000..b2f4d1d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxListBox.skin new file mode 100644 index 0000000..8845d8a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLoadingPanel.skin new file mode 100644 index 0000000..fd23370 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMemo.skin new file mode 100644 index 0000000..25aae62 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMenu.skin new file mode 100644 index 0000000..fb65669 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNavBar.skin new file mode 100644 index 0000000..54c49cc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNewsControl.skin new file mode 100644 index 0000000..bdd694a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPageControl.skin new file mode 100644 index 0000000..2d1953e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPager.skin new file mode 100644 index 0000000..35b9dbd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPivotGrid.skin new file mode 100644 index 0000000..4eec77f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupControl.skin new file mode 100644 index 0000000..8633887 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupMenu.skin new file mode 100644 index 0000000..2cdc26e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxProgressBar.skin new file mode 100644 index 0000000..c60a506 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButton.skin new file mode 100644 index 0000000..c696bcb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButtonList.skin new file mode 100644 index 0000000..bdb802f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRatingControl.skin new file mode 100644 index 0000000..a41d63b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRoundPanel.skin new file mode 100644 index 0000000..201d9d8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxScheduler.skin new file mode 100644 index 0000000..46b7ebf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSiteMapControl.skin new file mode 100644 index 0000000..597d79d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpellChecker.skin new file mode 100644 index 0000000..483b93d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpinEdit.skin new file mode 100644 index 0000000..ffa4e8d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSplitter.skin new file mode 100644 index 0000000..bcce541 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTabControl.skin new file mode 100644 index 0000000..f02a6c9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTextBox.skin new file mode 100644 index 0000000..9cfd097 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTimeEdit.skin new file mode 100644 index 0000000..c75a4c2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTitleIndex.skin new file mode 100644 index 0000000..4125448 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeList.skin new file mode 100644 index 0000000..0242c6a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeList.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeView.skin new file mode 100644 index 0000000..5fca3f2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxUploadControl.skin new file mode 100644 index 0000000..d99314a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/MonthEdit.skin new file mode 100644 index 0000000..201eb90 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..574fd6a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportDocumentMap.skin new file mode 100644 index 0000000..235b50b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportParametersPanel.skin new file mode 100644 index 0000000..383cfd6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportToolbar.skin new file mode 100644 index 0000000..4586e97 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportViewer.skin new file mode 100644 index 0000000..a1c0226 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekDaysEdit.skin new file mode 100644 index 0000000..036b3c2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekOfMonthEdit.skin new file mode 100644 index 0000000..f49860a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Office2010Silver/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButton.skin new file mode 100644 index 0000000..30d1cd0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButtonEdit.skin new file mode 100644 index 0000000..80ff76f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCalendar.skin new file mode 100644 index 0000000..2a0fe19 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..2dff92f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCallbackPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCaptcha.skin new file mode 100644 index 0000000..9f51a2c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxChartControl.skin new file mode 100644 index 0000000..d2131d0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCheckBox.skin new file mode 100644 index 0000000..d6d3760 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCloudControl.skin new file mode 100644 index 0000000..b75b02d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxCloudControl.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxColorEdit.skin new file mode 100644 index 0000000..c56abe7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxComboBox.skin new file mode 100644 index 0000000..2e5ec46 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDataView.skin new file mode 100644 index 0000000..2cfb54c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDataView.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateEdit.skin new file mode 100644 index 0000000..366c97c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateNavigator.skin new file mode 100644 index 0000000..a195127 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDateNavigator.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDockPanel.skin new file mode 100644 index 0000000..7cca8f6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDockPanel.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + +
+ +
+ + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..9598cec --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFileManager.skin new file mode 100644 index 0000000..603bbc6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFilterControl.skin new file mode 100644 index 0000000..5a7c905 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridLookup.skin new file mode 100644 index 0000000..bd385eb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridLookup.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridView.skin new file mode 100644 index 0000000..e911d53 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxGridView.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHeadline.skin new file mode 100644 index 0000000..f40ad31 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHeadline.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..fd2804f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHyperLink.skin new file mode 100644 index 0000000..33bd6f8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLabel.skin new file mode 100644 index 0000000..9b3f67d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxListBox.skin new file mode 100644 index 0000000..44b53c5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..7b03b5e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMemo.skin new file mode 100644 index 0000000..3a15e53 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMenu.skin new file mode 100644 index 0000000..d2629cd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxMenu.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNavBar.skin new file mode 100644 index 0000000..ea94f14 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNavBar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNewsControl.skin new file mode 100644 index 0000000..c7b4732 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxNewsControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPageControl.skin new file mode 100644 index 0000000..65957d7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPager.skin new file mode 100644 index 0000000..917dead --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPivotGrid.skin new file mode 100644 index 0000000..7e1dd3c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwpg" Namespace="DevExpress.Web.ASPxPivotGrid" Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupControl.skin new file mode 100644 index 0000000..c7dff8b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupMenu.skin new file mode 100644 index 0000000..b9a3572 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxProgressBar.skin new file mode 100644 index 0000000..5369809 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButton.skin new file mode 100644 index 0000000..82a25ad --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..cd7bb1a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRatingControl.skin new file mode 100644 index 0000000..b4411f2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRoundPanel.skin new file mode 100644 index 0000000..499c3f7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxRoundPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxScheduler.skin new file mode 100644 index 0000000..00b11bd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxScheduler.skin @@ -0,0 +1,125 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..e381266 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSiteMapControl.skin @@ -0,0 +1,35 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpellChecker.skin new file mode 100644 index 0000000..3f83bcd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpinEdit.skin new file mode 100644 index 0000000..c28f2f1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSplitter.skin new file mode 100644 index 0000000..c7eac5d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTabControl.skin new file mode 100644 index 0000000..256d678 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTabControl.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTextBox.skin new file mode 100644 index 0000000..477f658 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTimeEdit.skin new file mode 100644 index 0000000..7459642 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTitleIndex.skin new file mode 100644 index 0000000..03d8171 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTitleIndex.skin @@ -0,0 +1,35 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeList.skin new file mode 100644 index 0000000..c8ee1bb --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeList.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeView.skin new file mode 100644 index 0000000..b5d4821 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxUploadControl.skin new file mode 100644 index 0000000..abe6b8a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/MonthEdit.skin new file mode 100644 index 0000000..4f059de --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..37f1874 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportDocumentMap.skin new file mode 100644 index 0000000..8646667 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportParametersPanel.skin new file mode 100644 index 0000000..5fce505 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportToolbar.skin new file mode 100644 index 0000000..593f672 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportViewer.skin new file mode 100644 index 0000000..24e7d61 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekDaysEdit.skin new file mode 100644 index 0000000..e053b3d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekDaysEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..8cfa3c1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/PlasticBlue/WeekOfMonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButton.skin new file mode 100644 index 0000000..2d3f95e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButtonEdit.skin new file mode 100644 index 0000000..60e90e1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxButtonEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCalendar.skin new file mode 100644 index 0000000..ea799a7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCalendar.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCallbackPanel.skin new file mode 100644 index 0000000..980049b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCaptcha.skin new file mode 100644 index 0000000..c5e3bbd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxChartControl.skin new file mode 100644 index 0000000..5e0b037 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCheckBox.skin new file mode 100644 index 0000000..8f1e0ef --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCloudControl.skin new file mode 100644 index 0000000..f2ec488 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxColorEdit.skin new file mode 100644 index 0000000..1bd03c0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxColorEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxComboBox.skin new file mode 100644 index 0000000..e79d119 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxComboBox.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDataView.skin new file mode 100644 index 0000000..7dd3fd2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDataView.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateEdit.skin new file mode 100644 index 0000000..e775cae --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateEdit.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateNavigator.skin new file mode 100644 index 0000000..f30c289 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDockPanel.skin new file mode 100644 index 0000000..d02643c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDropDownEdit.skin new file mode 100644 index 0000000..b0796cd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxDropDownEdit.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFileManager.skin new file mode 100644 index 0000000..d8a87b8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFilterControl.skin new file mode 100644 index 0000000..c484420 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridLookup.skin new file mode 100644 index 0000000..b411fb7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridLookup.skin @@ -0,0 +1,46 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridView.skin new file mode 100644 index 0000000..a1fd9fa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxGridView.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHeadline.skin new file mode 100644 index 0000000..249c68d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHeadline.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHtmlEditor.skin new file mode 100644 index 0000000..3bc431c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHtmlEditor.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHyperLink.skin new file mode 100644 index 0000000..40b5aaa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLabel.skin new file mode 100644 index 0000000..7b1a58a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLabel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxListBox.skin new file mode 100644 index 0000000..2da7461 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLoadingPanel.skin new file mode 100644 index 0000000..b76f80e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMemo.skin new file mode 100644 index 0000000..5b5a444 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMenu.skin new file mode 100644 index 0000000..6a2d49d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxMenu.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNavBar.skin new file mode 100644 index 0000000..f0c8920 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNewsControl.skin new file mode 100644 index 0000000..5fd33f8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPageControl.skin new file mode 100644 index 0000000..62724c9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPager.skin new file mode 100644 index 0000000..b7bbcb5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPager.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPivotGrid.skin new file mode 100644 index 0000000..992d1c3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupControl.skin new file mode 100644 index 0000000..c5c3f04 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupMenu.skin new file mode 100644 index 0000000..4540734 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxProgressBar.skin new file mode 100644 index 0000000..46e053b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButton.skin new file mode 100644 index 0000000..c467943 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButtonList.skin new file mode 100644 index 0000000..84ca8d3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRadioButtonList.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRatingControl.skin new file mode 100644 index 0000000..37aadc6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRoundPanel.skin new file mode 100644 index 0000000..e49c231 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxRoundPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxScheduler.skin new file mode 100644 index 0000000..1b65093 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxScheduler.skin @@ -0,0 +1,132 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSiteMapControl.skin new file mode 100644 index 0000000..19b3540 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSiteMapControl.skin @@ -0,0 +1,42 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpellChecker.skin new file mode 100644 index 0000000..d195208 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpellChecker.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpinEdit.skin new file mode 100644 index 0000000..ff700a8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSplitter.skin new file mode 100644 index 0000000..59d3aef --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTabControl.skin new file mode 100644 index 0000000..7a2b604 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTabControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTextBox.skin new file mode 100644 index 0000000..a9e1a67 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTimeEdit.skin new file mode 100644 index 0000000..2b10f28 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTitleIndex.skin new file mode 100644 index 0000000..9d9df11 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTitleIndex.skin @@ -0,0 +1,36 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeList.skin new file mode 100644 index 0000000..9291f2a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeList.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeView.skin new file mode 100644 index 0000000..728ea7e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxUploadControl.skin new file mode 100644 index 0000000..df20109 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/MonthEdit.skin new file mode 100644 index 0000000..a5222aa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/MonthEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..de8e13b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/RecurrenceTypeEdit.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportDocumentMap.skin new file mode 100644 index 0000000..b813505 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportParametersPanel.skin new file mode 100644 index 0000000..3c849d1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportToolbar.skin new file mode 100644 index 0000000..746aaff --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportViewer.skin new file mode 100644 index 0000000..f11431a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekDaysEdit.skin new file mode 100644 index 0000000..b5b4dc8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekDaysEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekOfMonthEdit.skin new file mode 100644 index 0000000..c91fa6c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/RedWine/WeekOfMonthEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButton.skin new file mode 100644 index 0000000..798994a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButtonEdit.skin new file mode 100644 index 0000000..db44be6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxButtonEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCalendar.skin new file mode 100644 index 0000000..9d6b402 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCalendar.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCallbackPanel.skin new file mode 100644 index 0000000..7ad9907 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCaptcha.skin new file mode 100644 index 0000000..1388777 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxChartControl.skin new file mode 100644 index 0000000..cecc02f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCheckBox.skin new file mode 100644 index 0000000..b6f2cc6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCheckBox.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCloudControl.skin new file mode 100644 index 0000000..95e9e0a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxCloudControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxColorEdit.skin new file mode 100644 index 0000000..449e05d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxComboBox.skin new file mode 100644 index 0000000..17a7e6e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDataView.skin new file mode 100644 index 0000000..2235169 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDataView.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateEdit.skin new file mode 100644 index 0000000..3e24b18 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateNavigator.skin new file mode 100644 index 0000000..bf81bb7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDockPanel.skin new file mode 100644 index 0000000..fdfc172 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDockPanel.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDropDownEdit.skin new file mode 100644 index 0000000..301c034 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxDropDownEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFileManager.skin new file mode 100644 index 0000000..740bb6f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFilterControl.skin new file mode 100644 index 0000000..7af5574 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridLookup.skin new file mode 100644 index 0000000..29b3561 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridLookup.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridView.skin new file mode 100644 index 0000000..34f5af3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxGridView.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHeadline.skin new file mode 100644 index 0000000..4561761 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHeadline.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHtmlEditor.skin new file mode 100644 index 0000000..2c63b05 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHyperLink.skin new file mode 100644 index 0000000..4e15a26 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLabel.skin new file mode 100644 index 0000000..7e1a06e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxListBox.skin new file mode 100644 index 0000000..8e2a8ce --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLoadingPanel.skin new file mode 100644 index 0000000..c6b015f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMemo.skin new file mode 100644 index 0000000..f297333 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMenu.skin new file mode 100644 index 0000000..064dc01 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNavBar.skin new file mode 100644 index 0000000..22e5ba1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNewsControl.skin new file mode 100644 index 0000000..17f6e24 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxNewsControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPageControl.skin new file mode 100644 index 0000000..28bbbe2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPageControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPager.skin new file mode 100644 index 0000000..8cd8787 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPivotGrid.skin new file mode 100644 index 0000000..e7523f5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPivotGrid.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupControl.skin new file mode 100644 index 0000000..5bbe2d0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupMenu.skin new file mode 100644 index 0000000..98567e8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxProgressBar.skin new file mode 100644 index 0000000..00faa8f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButton.skin new file mode 100644 index 0000000..1157677 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButtonList.skin new file mode 100644 index 0000000..a9c836f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRatingControl.skin new file mode 100644 index 0000000..df7f6fe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRoundPanel.skin new file mode 100644 index 0000000..177d62c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxScheduler.skin new file mode 100644 index 0000000..39d0763 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxScheduler.skin @@ -0,0 +1,126 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSiteMapControl.skin new file mode 100644 index 0000000..b4df736 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSiteMapControl.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpellChecker.skin new file mode 100644 index 0000000..6b4f576 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpinEdit.skin new file mode 100644 index 0000000..19f819d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSpinEdit.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSplitter.skin new file mode 100644 index 0000000..7988023 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTabControl.skin new file mode 100644 index 0000000..53ee8b4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTabControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTextBox.skin new file mode 100644 index 0000000..483e3b7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTimeEdit.skin new file mode 100644 index 0000000..4bc6a0e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTitleIndex.skin new file mode 100644 index 0000000..c41244c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTitleIndex.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeList.skin new file mode 100644 index 0000000..0ec662c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeList.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeView.skin new file mode 100644 index 0000000..eedabac --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxUploadControl.skin new file mode 100644 index 0000000..915ad87 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/MonthEdit.skin new file mode 100644 index 0000000..f6b3ecf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..d9c15a3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportDocumentMap.skin new file mode 100644 index 0000000..a86c208 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportParametersPanel.skin new file mode 100644 index 0000000..1e6bbbe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportToolbar.skin new file mode 100644 index 0000000..d34a9f9 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportViewer.skin new file mode 100644 index 0000000..af57118 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekDaysEdit.skin new file mode 100644 index 0000000..b395e50 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekDaysEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekOfMonthEdit.skin new file mode 100644 index 0000000..e835faa --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/SoftOrange/WeekOfMonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButton.skin new file mode 100644 index 0000000..483cd91 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButtonEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButtonEdit.skin new file mode 100644 index 0000000..fa55794 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCalendar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCalendar.skin new file mode 100644 index 0000000..f0604d2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCallbackPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCallbackPanel.skin new file mode 100644 index 0000000..12d6acc --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCaptcha.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCaptcha.skin new file mode 100644 index 0000000..d00ec6a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxChartControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxChartControl.skin new file mode 100644 index 0000000..525fa7d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCheckBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCheckBox.skin new file mode 100644 index 0000000..ffc4d48 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCloudControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCloudControl.skin new file mode 100644 index 0000000..a281c93 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxCloudControl.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxColorEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxColorEdit.skin new file mode 100644 index 0000000..7fd91e1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxComboBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxComboBox.skin new file mode 100644 index 0000000..dd34587 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxComboBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDataView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDataView.skin new file mode 100644 index 0000000..04cea72 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDataView.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateEdit.skin new file mode 100644 index 0000000..0180f93 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateEdit.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateNavigator.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateNavigator.skin new file mode 100644 index 0000000..b96320a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDockPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDockPanel.skin new file mode 100644 index 0000000..06a3483 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDockPanel.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDropDownEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDropDownEdit.skin new file mode 100644 index 0000000..ae442f5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFileManager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFileManager.skin new file mode 100644 index 0000000..562011a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFilterControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFilterControl.skin new file mode 100644 index 0000000..0777317 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridLookup.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridLookup.skin new file mode 100644 index 0000000..2852bef --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridLookup.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridView.skin new file mode 100644 index 0000000..1b99098 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxGridView.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + +
+ + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHeadline.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHeadline.skin new file mode 100644 index 0000000..8e3d4d7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHeadline.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHtmlEditor.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHtmlEditor.skin new file mode 100644 index 0000000..69a21ed --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHtmlEditor.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHyperLink.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHyperLink.skin new file mode 100644 index 0000000..0832590 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLabel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLabel.skin new file mode 100644 index 0000000..f8f78ab --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLabel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxListBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxListBox.skin new file mode 100644 index 0000000..2378f34 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLoadingPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLoadingPanel.skin new file mode 100644 index 0000000..8fb2069 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMemo.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMemo.skin new file mode 100644 index 0000000..90656e8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMenu.skin new file mode 100644 index 0000000..414f56d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNavBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNavBar.skin new file mode 100644 index 0000000..746c468 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNavBar.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNewsControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNewsControl.skin new file mode 100644 index 0000000..98801f5 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPageControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPageControl.skin new file mode 100644 index 0000000..3a0b2bd --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPageControl.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPager.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPager.skin new file mode 100644 index 0000000..be54640 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPivotGrid.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPivotGrid.skin new file mode 100644 index 0000000..9084da0 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPivotGrid.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupControl.skin new file mode 100644 index 0000000..793560d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupMenu.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupMenu.skin new file mode 100644 index 0000000..d826566 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxProgressBar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxProgressBar.skin new file mode 100644 index 0000000..16f3cfe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButton.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButton.skin new file mode 100644 index 0000000..e033d78 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButtonList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButtonList.skin new file mode 100644 index 0000000..1df7ad7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRatingControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRatingControl.skin new file mode 100644 index 0000000..9cc3557 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRoundPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRoundPanel.skin new file mode 100644 index 0000000..b2b278a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxScheduler.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxScheduler.skin new file mode 100644 index 0000000..a23eff6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxScheduler.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSiteMapControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSiteMapControl.skin new file mode 100644 index 0000000..e307685 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSiteMapControl.skin @@ -0,0 +1,39 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpellChecker.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpellChecker.skin new file mode 100644 index 0000000..0eec7ef --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpinEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpinEdit.skin new file mode 100644 index 0000000..cafa129 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSplitter.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSplitter.skin new file mode 100644 index 0000000..d1c18b8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTabControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTabControl.skin new file mode 100644 index 0000000..6a4cbfe --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTabControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTextBox.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTextBox.skin new file mode 100644 index 0000000..91e7565 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTimeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTimeEdit.skin new file mode 100644 index 0000000..a604e0e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTitleIndex.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTitleIndex.skin new file mode 100644 index 0000000..9183898 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeList.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeList.skin new file mode 100644 index 0000000..c81a1cf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeList.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeView.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeView.skin new file mode 100644 index 0000000..d013ad6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxUploadControl.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxUploadControl.skin new file mode 100644 index 0000000..0f6f723 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/MonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/MonthEdit.skin new file mode 100644 index 0000000..716a7c2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/MonthEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/RecurrenceTypeEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..2f0a8ec --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportDocumentMap.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportDocumentMap.skin new file mode 100644 index 0000000..70fbf97 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportParametersPanel.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportParametersPanel.skin new file mode 100644 index 0000000..b48289e --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportToolbar.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportToolbar.skin new file mode 100644 index 0000000..9546acf --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportViewer.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportViewer.skin new file mode 100644 index 0000000..7cbb6e7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekDaysEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekDaysEdit.skin new file mode 100644 index 0000000..bfdbde3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekDaysEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekOfMonthEdit.skin b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekOfMonthEdit.skin new file mode 100644 index 0000000..42e682b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/App_Themes/Youthful/WeekOfMonthEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.resx b/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.vb b/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.vb new file mode 100644 index 0000000..fdb5b1d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/ApplicationCode/WebApplication.vb @@ -0,0 +1,235 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Xpo +Imports DevExpress.Persistent.BaseImpl + +Partial Public Class SISBusinessAccountLiteAspNetApplication + Inherits WebApplication + + Private _ocur As Xpo.XPObjectSpace + + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule + + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + + Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule + Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents SisBusinessModule1 As SISBusiness.Module.SISBusinessModule + + + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents SisBusinessAspNetModule1 As SISBusiness.Module.Web.SISBusinessAspNetModule + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessSupportAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule() + Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.SisBusinessModule1 = New SISBusiness.[Module].SISBusinessModule() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.SisBusinessAspNetModule1 = New SISBusiness.[Module].Web.SISBusinessAspNetModule() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISSupport;Integrated Security=SSPI;Pooling=f" & _ + "alse" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'AuditTrailModule1 + ' + Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ViewVariantsModule1 + ' + Me.ViewVariantsModule1.GenerateVariantsNode = True + Me.ViewVariantsModule1.ShowAdditionalNavigation = False + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'AuthenticationStandard1 + ' + Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'SISBusinessAccountLiteAspNetApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.AuditTrailModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1) + Me.Modules.Add(Me.FileAttachmentsAspNetModule1) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartAspNetModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartAspNetModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridAspNetModule1) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsAspNetModule1) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsAspNetModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerAspNetModule1) + Me.Modules.Add(Me.SisBusinessModule1) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.SisBusinessAspNetModule1) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Localization.PreviewControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.MiddleTier.ServerDataLogLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxGridViewControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxGridViewResourceLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxImagePropertyEditorLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxEditorsResourceLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxperienceResourceLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Web.Localization.ASPxCriteriaPropertyEditorLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Web.Localization.ASPxHtmlEditorResourceLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.HtmlPropertyEditor.Web.Localization.ASPxSpellCheckerResourceLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.PivotGridLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.ChartLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotChart.AnalysisControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.PivotGrid.PivotGridListEditorLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Reports.Web.ASPxReportControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.SchedulerModuleBaseLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.ASPxSchedulerControlLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.SchedulerControlCoreLocalizer)) + Me.ResourcesExportedToModel.Add(GetType(DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModuleLocalizer)) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + + Protected Overrides Sub OnLoggedOn(ByVal e As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(e) + CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _ + DevExpress.ExpressApp.Editors.ViewEditMode.Edit + + + '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 + + ' Else + ' MsgBox("n nem jogosult a rendszer hasznlatra !") + ' ForceLogout() + ' End If + 'Else + ' MsgBox("n nem jogosult a rendszer hasznlatra !") + ' ForceLogout() + 'End If + + End Sub + Protected Overrides Sub OnObjectSpaceCreated(objectSpace As DevExpress.ExpressApp.IObjectSpace) + MyBase.OnObjectSpaceCreated(objectSpace) + _ocur = objectSpace + End Sub + + Private Sub ForceLogout() + SecuritySystem.Instance.Logoff() + HttpContext.Current.Session.Abandon() + FormsAuthentication.SignOut() + HttpContext.Current.Response.Redirect(HttpContext.Current.Request.Url.ToString()) + End Sub +End Class + diff --git a/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx new file mode 100644 index 0000000..6c1601a --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx @@ -0,0 +1,20 @@ +<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %> + +<%@ Register assembly="DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %> + + + + + + + + +
+
+ + + +
+
+ + diff --git a/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.designer.vb b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.designer.vb new file mode 100644 index 0000000..7f759c6 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.designer.vb @@ -0,0 +1,33 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class DashboardViewer + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ASPxDashboardViewer1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ASPxDashboardViewer1 As Global.DevExpress.DashboardWeb.ASPxDashboardViewer +End Class diff --git a/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.vb b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.vb new file mode 100644 index 0000000..8409be8 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Controls/DashboardViewer.aspx.vb @@ -0,0 +1,36 @@ +Imports SISBusiness.Module.GeneralFunction +Imports DevExpress.DashboardCommon + +Public Class DashboardViewer + Inherits System.Web.UI.Page + + Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.ASPxDashboardViewer1.DashboardXmlFile = GLOBAL_DASHBOARD_XML_DashboardXmlFile + End Sub + + Private Sub ASPxDashboardViewer1_ConfigureDataConnection(sender As Object, e As DevExpress.DashboardCommon.ConfigureDataConnectionEventArgs) Handles ASPxDashboardViewer1.ConfigureDataConnection + Select Case GLOBAL_DASHBOARD_XML_SQLType + Case "MSSQL" + Dim _ConnectionParameters_MSSQL As New MsSqlConnectionParameters + _ConnectionParameters_MSSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MSSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MSSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MSSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MSSQL + Case "MYSQL" + Dim _ConnectionParameters_MYSQL As New MySqlConnectionParameters + _ConnectionParameters_MYSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MYSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MYSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MYSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MYSQL + Case "PSQL" + Dim _ConnectionParameters_PSQL As New PostgreSqlConnectionParameters + _ConnectionParameters_PSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_PSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_PSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_PSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_PSQL + End Select + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/Default.aspx b/SISBusiness.Web.Account.Lite/Default.aspx new file mode 100644 index 0000000..e726515 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Default.aspx @@ -0,0 +1,22 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="Default.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> + + + + Main Page + + + +
+ + + + +
+ + + diff --git a/SISBusiness.Web.Account.Lite/Default.aspx.designer.vb b/SISBusiness.Web.Account.Lite/Default.aspx.designer.vb new file mode 100644 index 0000000..0e64e14 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Default.aspx.designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''UPPopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPPopupWindowControl As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''PopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupWindowControl As Global.DevExpress.ExpressApp.Web.Controls.XafPopupWindowControl + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Account.Lite/Default.aspx.vb b/SISBusiness.Web.Account.Lite/Default.aspx.vb new file mode 100644 index 0000000..88f3d09 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Default.aspx.vb @@ -0,0 +1,36 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers + +Partial Public Class [Default] + Inherits BaseXafPage + + Shared Sub New() + WebWindowTemplateHttpHandler.CurrentRequestTemplateType = TemplateType.Vertical + End Sub + + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + + Protected Sub Page_Init() + AddHandler CustomizeTemplateContent, _ + Sub(sender As Object, e As CustomizeTemplateContentEventArgs) + Dim _content As DefaultVerticalTemplateContent = TryCast(e.TemplateContent, DefaultVerticalTemplateContent) + If _content IsNot Nothing Then + _content.HeaderImageControl.DefaultThemeImageLocation = "Images" + _content.HeaderImageControl.ImageName = "Logo.png" + End If + End Sub + End Sub + Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Account.Lite/Error.aspx b/SISBusiness.Web.Account.Lite/Error.aspx new file mode 100644 index 0000000..32eee14 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Error.aspx @@ -0,0 +1,80 @@ +<%@ Page language="vb" AutoEventWireup="false" Inherits="ErrorPage" enableViewState="false" validateRequest="false" CodeBehind="Error.aspx.vb" %> + + + + Error + + + +
+
+
+
+ + + + + +
+

+ 		+ +
+
+ +
+ + + +

+

+ +

+ Your report was sent. Thank you.
 + We are currently unable to serve your request: RequestUrl.
+ We apologize, but an error occurred and your request could not be completed.
 + You could go back and try again + + previous page + , or retry your request: RequestUrl.

+ + Show Error details + + + + Report error
 +

This error has been logged. If you have additional information that you believe may have caused this error please report the problem.

+ +
+
+
+ + + + + +
+
+
+
+ +
+ + diff --git a/SISBusiness.Web.Account.Lite/Error.aspx.designer.vb b/SISBusiness.Web.Account.Lite/Error.aspx.designer.vb new file mode 100644 index 0000000..41e9cb3 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Error.aspx.designer.vb @@ -0,0 +1,206 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5446 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class ErrorPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ApplicationTitle control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApplicationTitle As Global.System.Web.UI.WebControls.Literal + + ''' + '''InfoMessagesPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents InfoMessagesPanel As Global.System.Web.UI.WebControls.Literal + + ''' + '''Table1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Table1 As Global.System.Web.UI.WebControls.Table + + ''' + '''TableRow2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TableRow2 As Global.System.Web.UI.WebControls.TableRow + + ''' + '''ViewSite control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ViewSite As Global.System.Web.UI.WebControls.TableCell + + ''' + '''ErrorTitleLiteral control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorTitleLiteral As Global.System.Web.UI.WebControls.Literal + + ''' + '''ErrorPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorPanel As Global.System.Web.UI.WebControls.Panel + + ''' + '''ReportResult control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportResult As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''ApologizeMessage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApologizeMessage As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''RequestUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''HyperLink1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLink1 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''LiteralReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents LiteralReturn As Global.System.Web.UI.WebControls.Literal + + ''' + '''HyperLinkReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLinkReturn As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''RequestUrl2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl2 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''Details control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Details As Global.System.Web.UI.WebControls.Panel + + ''' + '''DetailsText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DetailsText As Global.System.Web.UI.WebControls.Literal + + ''' + '''ReportForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportForm As Global.System.Web.UI.WebControls.Panel + + ''' + '''DescriptionTextBox control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DescriptionTextBox As Global.System.Web.UI.WebControls.TextBox + + ''' + '''ReportButton control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportButton As Global.System.Web.UI.WebControls.Button +End Class diff --git a/SISBusiness.Web.Account.Lite/Error.aspx.vb b/SISBusiness.Web.Account.Lite/Error.aspx.vb new file mode 100644 index 0000000..599a14c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Error.aspx.vb @@ -0,0 +1,97 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.IO +Imports System.Collections +Imports System.ComponentModel +Imports System.Data +Imports System.Globalization +Imports System.Threading +Imports System.Drawing +Imports System.Web +Imports System.Web.SessionState +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.HtmlControls + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.TestScripts +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Web.SystemModule + +Partial Public Class ErrorPage + Inherits System.Web.UI.Page + Private Function GetApplicationInfoString() As String + AboutInfo.Instance.Init(WebApplication.Instance) + Return AboutInfo.Instance.AboutInfoString + End Function + Protected Overrides Sub InitializeCulture() + If WebApplication.Instance IsNot Nothing Then + WebApplication.Instance.InitializeCulture() + End If + End Sub + Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim testScriptsManager As New TestScriptsManager(Page) + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "RequestUrl", TestControlType.Field, "RequestUrl") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "DescriptionTextBox", TestControlType.Field, "Description") + testScriptsManager.RegisterControl(JSDefaultTestControl.ClassName, "ReportButton", TestControlType.Action, "Report") + testScriptsManager.AllControlRegistered("") + If WebApplication.Instance IsNot Nothing Then + ApplicationTitle.Text = WebApplication.Instance.Title + Else + ApplicationTitle.Text = "No application" + End If + Header.Title = "Application Error - " & ApplicationTitle.Text + + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + RequestUrl.NavigateUrl = errorInfo.Url + RequestUrl.Text = errorInfo.Url + RequestUrl2.NavigateUrl = errorInfo.Url + RequestUrl2.Text = errorInfo.Url + If (Not String.IsNullOrEmpty(errorInfo.UrlReferrer)) Then + HyperLinkReturn.NavigateUrl = errorInfo.UrlReferrer + Else + LiteralReturn.Visible = False + HyperLinkReturn.Visible = False + End If + If ErrorHandling.CanShowDetailedInformation Then + DetailsText.Text = errorInfo.GetTextualPresentation(True) + Else + Details.Visible = False + End If + ReportResult.Visible = False + ReportForm.Visible = ErrorHandling.CanSendAlertToAdmin + Else + ErrorPanel.Visible = False + End If + End Sub +#Region "Web Form Designer generated code" + Protected Overrides Sub OnInit(ByVal e As EventArgs) + InitializeComponent() + MyBase.OnInit(e) + End Sub + + Private Sub InitializeComponent() +' Me.Load += New System.EventHandler(Me.Page_Load); +' Me.PreRender += New EventHandler(ErrorPage_PreRender); + End Sub + + Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.PreRender + RegisterThemeAssemblyController.RegisterThemeResources(CType(sender, Page)) + End Sub + +#End Region + Protected Sub ReportButton_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + ErrorHandling.SendAlertToAdmin(errorInfo.Id, DescriptionTextBox.Text, errorInfo.Exception.Message) + ErrorHandling.ClearApplicationError() + ApologizeMessage.Visible = False + ReportForm.Visible = False + Details.Visible = False + ReportResult.Visible = True + End If + End Sub +End Class diff --git a/SISBusiness.Web.Account.Lite/GetAttachments.ashx b/SISBusiness.Web.Account.Lite/GetAttachments.ashx new file mode 100644 index 0000000..7b4b712 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/GetAttachments.ashx @@ -0,0 +1 @@ +<%@ WebHandler Language="VB" CodeBehind="GetAttachments.ashx.vb" Class=".GetAttachments" %> diff --git a/SISBusiness.Web.Account.Lite/GetAttachments.ashx.vb b/SISBusiness.Web.Account.Lite/GetAttachments.ashx.vb new file mode 100644 index 0000000..5cdaf12 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/GetAttachments.ashx.vb @@ -0,0 +1,42 @@ +Imports System.Web +Imports System.Web.Services +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.FileAttachments +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.Web.Internal + +Public Class GetAttachments + Implements System.Web.IHttpHandler + Private _Session As DevExpress.Xpo.Session + Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest + Dim _Oid As String + Dim _ConnectionString As String + Dim _Attachment As FileData + + _Oid = context.Request.QueryString("id") + _ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString + + _Session = New DevExpress.Xpo.Session + _Session.ConnectionString = _ConnectionString + _Session.Connect() + + If _Session.IsConnected Then + _Attachment = _Session.FindObject(Of FileData)(CriteriaOperator.Parse("Oid=?", _Oid)) + + If _Attachment IsNot Nothing Then + Dim _Stream As New MemoryStream + _Attachment.SaveToStream(_Stream) + HttpUtils.WriteFileToResponse(Nothing, _Stream, _Attachment.FileName, True, "") + End If + End If + End Sub + + ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable + Get + Return False + End Get + End Property + +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/Global.asax b/SISBusiness.Web.Account.Lite/Global.asax new file mode 100644 index 0000000..aa2e26f --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Global.asax @@ -0,0 +1 @@ +<%@ Application Language="vb" CodeBehind="Global.asax.vb" Inherits="Global"%> diff --git a/SISBusiness.Web.Account.Lite/Global.asax.vb b/SISBusiness.Web.Account.Lite/Global.asax.vb new file mode 100644 index 0000000..0c483d7 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Global.asax.vb @@ -0,0 +1,69 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Configuration +Imports System.Web.Configuration +Imports System.Web + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Web +Imports DevExpress.Web + +Public Class [Global] + Inherits System.Web.HttpApplication + Public Sub New() + InitializeComponent() + End Sub + Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) + AddHandler ASPxWebControl.CallbackError, AddressOf Application_Error +#If EASYTEST Then + DevExpress.ExpressApp.Web.TestScripts.TestScriptsManager.EasyTestEnabled = True +#End If + + End Sub + Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.SetInstance(Session, New SISBusinessAccountLiteAspNetApplication()) +#If EASYTEST Then + If (Not ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString").ConnectionString + End If +#End If + If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + End If + If System.Diagnostics.Debugger.IsAttached Then + WebApplication.Instance.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + End If + WebApplication.Instance.Setup() + WebApplication.Instance.Start() + End Sub + Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) + Dim filePath As String = HttpContext.Current.Request.PhysicalPath + If (Not String.IsNullOrEmpty(filePath)) AndAlso (filePath.IndexOf("Images") >= 0) AndAlso (Not System.IO.File.Exists(filePath)) Then + HttpContext.Current.Response.End() + End If + End Sub + Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) + ErrorHandling.Instance.ProcessApplicationError() + End Sub + Protected Sub Session_End(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.LogOff(Session) + WebApplication.DisposeInstance(Session) + End Sub + Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs) + End Sub +#Region "Web Form Designer generated code" + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + End Sub +#End Region +End Class diff --git a/SISBusiness.Web.Account.Lite/Images/ButtonBkg.gif b/SISBusiness.Web.Account.Lite/Images/ButtonBkg.gif new file mode 100644 index 0000000..cf70093 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/ButtonBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/ExpressAppLogo.png b/SISBusiness.Web.Account.Lite/Images/ExpressAppLogo.png new file mode 100644 index 0000000..3a6eaad Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/ExpressAppLogo.png differ diff --git a/SISBusiness.Web.Account.Lite/Images/FooterBkg.gif b/SISBusiness.Web.Account.Lite/Images/FooterBkg.gif new file mode 100644 index 0000000..e6c0924 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/FooterBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/GridHeaderBkg.gif b/SISBusiness.Web.Account.Lite/Images/GridHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/GridHeaderBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/HeaderBkg.gif b/SISBusiness.Web.Account.Lite/Images/HeaderBkg.gif new file mode 100644 index 0000000..3e2bca4 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/HeaderBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/LayoutHeaderBkg.gif b/SISBusiness.Web.Account.Lite/Images/LayoutHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/LayoutHeaderBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/Logo.png b/SISBusiness.Web.Account.Lite/Images/Logo.png new file mode 100644 index 0000000..ecbd41c Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/Logo.png differ diff --git a/SISBusiness.Web.Account.Lite/Images/Progress.gif b/SISBusiness.Web.Account.Lite/Images/Progress.gif new file mode 100644 index 0000000..9925182 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/Progress.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedCenter.gif b/SISBusiness.Web.Account.Lite/Images/SelectedCenter.gif new file mode 100644 index 0000000..74edae8 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedCenter.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedCenterWhite.gif b/SISBusiness.Web.Account.Lite/Images/SelectedCenterWhite.gif new file mode 100644 index 0000000..087423a Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedCenterWhite.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedLeft.gif b/SISBusiness.Web.Account.Lite/Images/SelectedLeft.gif new file mode 100644 index 0000000..bca0446 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedLeft.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedLeftWhite.gif b/SISBusiness.Web.Account.Lite/Images/SelectedLeftWhite.gif new file mode 100644 index 0000000..3dcd672 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedLeftWhite.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedRight.gif b/SISBusiness.Web.Account.Lite/Images/SelectedRight.gif new file mode 100644 index 0000000..ff75c77 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedRight.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SelectedRightWhite.gif b/SISBusiness.Web.Account.Lite/Images/SelectedRightWhite.gif new file mode 100644 index 0000000..21aa896 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SelectedRightWhite.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SideBarRDCorner.gif b/SISBusiness.Web.Account.Lite/Images/SideBarRDCorner.gif new file mode 100644 index 0000000..88489cb Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SideBarRDCorner.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/SideBarRUCorner.gif b/SISBusiness.Web.Account.Lite/Images/SideBarRUCorner.gif new file mode 100644 index 0000000..fb57ca4 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/SideBarRUCorner.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/TabContentBkg.gif b/SISBusiness.Web.Account.Lite/Images/TabContentBkg.gif new file mode 100644 index 0000000..fe8858f Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/TabContentBkg.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/UnSelectedCenter.gif b/SISBusiness.Web.Account.Lite/Images/UnSelectedCenter.gif new file mode 100644 index 0000000..87f9e01 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/UnSelectedCenter.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/UnSelectedLeft.gif b/SISBusiness.Web.Account.Lite/Images/UnSelectedLeft.gif new file mode 100644 index 0000000..ef32fd0 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/UnSelectedLeft.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/UnSelectedRight.gif b/SISBusiness.Web.Account.Lite/Images/UnSelectedRight.gif new file mode 100644 index 0000000..cc2f697 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/UnSelectedRight.gif differ diff --git a/SISBusiness.Web.Account.Lite/Images/iGreenArrow.png b/SISBusiness.Web.Account.Lite/Images/iGreenArrow.png new file mode 100644 index 0000000..9ba7ea0 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/iGreenArrow.png differ diff --git a/SISBusiness.Web.Account.Lite/Images/iOK.png b/SISBusiness.Web.Account.Lite/Images/iOK.png new file mode 100644 index 0000000..ccfe627 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/iOK.png differ diff --git a/SISBusiness.Web.Account.Lite/Images/iQuestion.png b/SISBusiness.Web.Account.Lite/Images/iQuestion.png new file mode 100644 index 0000000..e1fa895 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/iQuestion.png differ diff --git a/SISBusiness.Web.Account.Lite/Images/iRedArrow.png b/SISBusiness.Web.Account.Lite/Images/iRedArrow.png new file mode 100644 index 0000000..57cf3a6 Binary files /dev/null and b/SISBusiness.Web.Account.Lite/Images/iRedArrow.png differ diff --git a/SISBusiness.Web.Account.Lite/Login.aspx b/SISBusiness.Web.Account.Lite/Login.aspx new file mode 100644 index 0000000..eee2f06 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Login.aspx @@ -0,0 +1,35 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers" + TagPrefix="cc2" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls" + TagPrefix="tc" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> + + + + Logon + + +
+
+ +
+ +
+
+ +
+ + diff --git a/SISBusiness.Web.Account.Lite/Login.aspx.designer.vb b/SISBusiness.Web.Account.Lite/Login.aspx.designer.vb new file mode 100644 index 0000000..a1c45b4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Login.aspx.designer.vb @@ -0,0 +1,53 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class LoginPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Account.Lite/Login.aspx.vb b/SISBusiness.Web.Account.Lite/Login.aspx.vb new file mode 100644 index 0000000..acd7c80 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Login.aspx.vb @@ -0,0 +1,17 @@ +Imports Microsoft.VisualBasic +Imports System + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates + +Partial Public Class LoginPage + Inherits BaseXafPage + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As System.Web.UI.Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Account.Lite/Model.xafml b/SISBusiness.Web.Account.Lite/Model.xafml new file mode 100644 index 0000000..b2f754b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Model.xafml @@ -0,0 +1,133 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/Model_hu.xafml b/SISBusiness.Web.Account.Lite/Model_hu.xafml new file mode 100644 index 0000000..6b8a5ae --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Model_hu.xafml @@ -0,0 +1,77 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/My Project/Application.Designer.vb b/SISBusiness.Web.Account.Lite/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Web.Account.Lite/My Project/Application.myapp b/SISBusiness.Web.Account.Lite/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Web.Account.Lite/My Project/AssemblyInfo.vb b/SISBusiness.Web.Account.Lite/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..12a2b93 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/AssemblyInfo.vb @@ -0,0 +1,34 @@ +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 + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.Web.Account.Lite/My Project/PublishProfiles/78.131.7.14.pubxml b/SISBusiness.Web.Account.Lite/My Project/PublishProfiles/78.131.7.14.pubxml new file mode 100644 index 0000000..f28c8d4 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/PublishProfiles/78.131.7.14.pubxml @@ -0,0 +1,39 @@ + + + + + MSDeploy + R64 + Any CPU + + False + http://78.131.7.14 + Default Web Site/support + + True + RemoteAgent + False + Administrator + <_SavePWD>True + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/My Project/Resources.Designer.vb b/SISBusiness.Web.Account.Lite/My Project/Resources.Designer.vb new file mode 100644 index 0000000..28c3d4c --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Account.Lite/My Project/Resources.resx b/SISBusiness.Web.Account.Lite/My Project/Resources.resx new file mode 100644 index 0000000..e8c096b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Resources.resx @@ -0,0 +1,116 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Web.Account.Lite/My Project/Settings.Designer.vb b/SISBusiness.Web.Account.Lite/My Project/Settings.Designer.vb new file mode 100644 index 0000000..45fbf20 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.My.MySettings + Get + Return Global.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Account.Lite/My Project/Settings.settings b/SISBusiness.Web.Account.Lite/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Web.Account.Lite/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Web.Account.Lite/My Project/licenses.licx b/SISBusiness.Web.Account.Lite/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.Publish.xml b/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.Publish.xml new file mode 100644 index 0000000..3973483 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.Publish.xml @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.vbproj b/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.vbproj new file mode 100644 index 0000000..9df86f2 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/SISBusiness.Web.Account.Lite.vbproj @@ -0,0 +1,1455 @@ + + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {FFF48185-C696-4B2E-9F02-6E003CCAE2F6} + {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Library + + + SISBusiness.Web.Support + v4.0 + + + 4.0 + false + + + SAK + SAK + SAK + SAK + + + + + + + true + full + false + false + bin\ + SISSupport.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + pdbonly + true + true + true + bin\ + SISSupport.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + true + true + true + bin\ + SISSupport.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + + + On + + + Binary + + + Off + + + On + + + + + + False + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + False + True + + + True + + + True + + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + + False + True + + + False + True + + + True + + + True + + + False + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + True + + + + True + + + + False + True + + + True + + + False + True + + + True + + + True + + + True + + + True + + + True + + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + + False + + + + + + + + + + + + + + + + + + + + + + + + + + DashboardViewer.aspx + + + DashboardViewer.aspx + ASPXCodebehind + + + Default.aspx + + + Default.aspx + ASPXCodeBehind + + + AppointmentDragToolTip.ascx + + + AppointmentForm.ascx + + + AppointmentFormEx.ascx + + + AppointmentToolTip.ascx + + + GotoDateForm.ascx + + + HorizontalAppointmentTemplate.ascx + + + HorizontalSameDayAppointmentTemplate.ascx + + + InplaceEditor.ascx + + + RecurrentAppointmentDeleteForm.ascx + + + RecurrentAppointmentEditForm.ascx + + + ReminderForm.ascx + + + SelectionToolTip.ascx + + + VerticalAppointmentTemplate.ascx + + + Error.aspx + + + GetAttachments.ashx + + + Global.asax + + + Login.aspx + + + Error.aspx + ASPXCodeBehind + + + Login.aspx + ASPXCodeBehind + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Component + + + + + WebApplication.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + + Always + + + Always + + + Always + + + Always + + + + Always + Designer + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Model.xafml + Always + Designer + + + + + + + + + + + + + + + + + + + + + + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + ASPXCodeBehind + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + Model.xafml + Designer + + + Designer + + + + + {b87eaccf-fa6c-4043-aa73-800c77d8df11} + SISBusiness.Module.Web + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + true + true + bin\ + SISSupport.WebApp.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + AllRules.ruleset + + + + + + + + + + False + True + 56289 + / + + + False + False + + + False + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/Scripts/jquery-1.7.2.min.js b/SISBusiness.Web.Account.Lite/Scripts/jquery-1.7.2.min.js new file mode 100644 index 0000000..fc48759 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Scripts/jquery-1.7.2.min.js @@ -0,0 +1,11 @@ +/*! jQuery v1.7.2 jquery.com | jquery.org/license */ +(function(a, b) { + function cy(a) { return f.isWindow(a) ? a : a.nodeType === 9 ? a.defaultView || a.parentWindow : !1 } function cu(a) { if (!cj[a]) { var b = c.body, d = f("<" + a + ">").appendTo(b), e = d.css("display"); d.remove(); if (e === "none" || e === "") { ck || (ck = c.createElement("iframe"), ck.frameBorder = ck.width = ck.height = 0), b.appendChild(ck); if (!cl || !ck.createElement) cl = (ck.contentWindow || ck.contentDocument).document, cl.write((f.support.boxModel ? "" : "") + ""), cl.close(); d = cl.createElement(a), cl.body.appendChild(d), e = f.css(d, "display"), b.removeChild(ck) } cj[a] = e } return cj[a] } function ct(a, b) { var c = {}; f.each(cp.concat.apply([], cp.slice(0, b)), function() { c[this] = a }); return c } function cs() { cq = b } function cr() { setTimeout(cs, 0); return cq = f.now() } function ci() { try { return new a.ActiveXObject("Microsoft.XMLHTTP") } catch (b) { } } function ch() { try { return new a.XMLHttpRequest } catch (b) { } } function cb(a, c) { a.dataFilter && (c = a.dataFilter(c, a.dataType)); var d = a.dataTypes, e = {}, g, h, i = d.length, j, k = d[0], l, m, n, o, p; for (g = 1; g < i; g++) { if (g === 1) for (h in a.converters) typeof h == "string" && (e[h.toLowerCase()] = a.converters[h]); l = k, k = d[g]; if (k === "*") k = l; else if (l !== "*" && l !== k) { m = l + " " + k, n = e[m] || e["* " + k]; if (!n) { p = b; for (o in e) { j = o.split(" "); if (j[0] === l || j[0] === "*") { p = e[j[1] + " " + k]; if (p) { o = e[o], o === !0 ? n = p : p === !0 && (n = o); break } } } } !n && !p && f.error("No conversion from " + m.replace(" ", " to ")), n !== !0 && (c = n ? n(c) : p(o(c))) } } return c } function ca(a, c, d) { var e = a.contents, f = a.dataTypes, g = a.responseFields, h, i, j, k; for (i in g) i in d && (c[g[i]] = d[i]); while (f[0] === "*") f.shift(), h === b && (h = a.mimeType || c.getResponseHeader("content-type")); if (h) for (i in e) if (e[i] && e[i].test(h)) { f.unshift(i); break } if (f[0] in d) j = f[0]; else { for (i in d) { if (!f[0] || a.converters[i + " " + f[0]]) { j = i; break } k || (k = i) } j = j || k } if (j) { j !== f[0] && f.unshift(j); return d[j] } } function b_(a, b, c, d) { if (f.isArray(b)) f.each(b, function(b, e) { c || bD.test(a) ? d(a, e) : b_(a + "[" + (typeof e == "object" ? b : "") + "]", e, c, d) }); else if (!c && f.type(b) === "object") for (var e in b) b_(a + "[" + e + "]", b[e], c, d); else d(a, b) } function b$(a, c) { var d, e, g = f.ajaxSettings.flatOptions || {}; for (d in c) c[d] !== b && ((g[d] ? a : e || (e = {}))[d] = c[d]); e && f.extend(!0, a, e) } function bZ(a, c, d, e, f, g) { f = f || c.dataTypes[0], g = g || {}, g[f] = !0; var h = a[f], i = 0, j = h ? h.length : 0, k = a === bS, l; for (; i < j && (k || !l); i++) l = h[i](c, d, e), typeof l == "string" && (!k || g[l] ? l = b : (c.dataTypes.unshift(l), l = bZ(a, c, d, e, l, g))); (k || !l) && !g["*"] && (l = bZ(a, c, d, e, "*", g)); return l } function bY(a) { return function(b, c) { typeof b != "string" && (c = b, b = "*"); if (f.isFunction(c)) { var d = b.toLowerCase().split(bO), e = 0, g = d.length, h, i, j; for (; e < g; e++) h = d[e], j = /^\+/.test(h), j && (h = h.substr(1) || "*"), i = a[h] = a[h] || [], i[j ? "unshift" : "push"](c) } } } function bB(a, b, c) { var d = b === "width" ? a.offsetWidth : a.offsetHeight, e = b === "width" ? 1 : 0, g = 4; if (d > 0) { if (c !== "border") for (; e < g; e += 2) c || (d -= parseFloat(f.css(a, "padding" + bx[e])) || 0), c === "margin" ? d += parseFloat(f.css(a, c + bx[e])) || 0 : d -= parseFloat(f.css(a, "border" + bx[e] + "Width")) || 0; return d + "px" } d = by(a, b); if (d < 0 || d == null) d = a.style[b]; if (bt.test(d)) return d; d = parseFloat(d) || 0; if (c) for (; e < g; e += 2) d += parseFloat(f.css(a, "padding" + bx[e])) || 0, c !== "padding" && (d += parseFloat(f.css(a, "border" + bx[e] + "Width")) || 0), c === "margin" && (d += parseFloat(f.css(a, c + bx[e])) || 0); return d + "px" } function bo(a) { var b = c.createElement("div"); bh.appendChild(b), b.innerHTML = a.outerHTML; return b.firstChild } function bn(a) { var b = (a.nodeName || "").toLowerCase(); b === "input" ? bm(a) : b !== "script" && typeof a.getElementsByTagName != "undefined" && f.grep(a.getElementsByTagName("input"), bm) } function bm(a) { if (a.type === "checkbox" || a.type === "radio") a.defaultChecked = a.checked } function bl(a) { return typeof a.getElementsByTagName != "undefined" ? a.getElementsByTagName("*") : typeof a.querySelectorAll != "undefined" ? a.querySelectorAll("*") : [] } function bk(a, b) { var c; b.nodeType === 1 && (b.clearAttributes && b.clearAttributes(), b.mergeAttributes && b.mergeAttributes(a), c = b.nodeName.toLowerCase(), c === "object" ? b.outerHTML = a.outerHTML : c !== "input" || a.type !== "checkbox" && a.type !== "radio" ? c === "option" ? b.selected = a.defaultSelected : c === "input" || c === "textarea" ? b.defaultValue = a.defaultValue : c === "script" && b.text !== a.text && (b.text = a.text) : (a.checked && (b.defaultChecked = b.checked = a.checked), b.value !== a.value && (b.value = a.value)), b.removeAttribute(f.expando), b.removeAttribute("_submit_attached"), b.removeAttribute("_change_attached")) } function bj(a, b) { if (b.nodeType === 1 && !!f.hasData(a)) { var c, d, e, g = f._data(a), h = f._data(b, g), i = g.events; if (i) { delete h.handle, h.events = {}; for (c in i) for (d = 0, e = i[c].length; d < e; d++) f.event.add(b, c, i[c][d]) } h.data && (h.data = f.extend({}, h.data)) } } function bi(a, b) { return f.nodeName(a, "table") ? a.getElementsByTagName("tbody")[0] || a.appendChild(a.ownerDocument.createElement("tbody")) : a } function U(a) { var b = V.split("|"), c = a.createDocumentFragment(); if (c.createElement) while (b.length) c.createElement(b.pop()); return c } function T(a, b, c) { b = b || 0; if (f.isFunction(b)) return f.grep(a, function(a, d) { var e = !!b.call(a, d, a); return e === c }); if (b.nodeType) return f.grep(a, function(a, d) { return a === b === c }); if (typeof b == "string") { var d = f.grep(a, function(a) { return a.nodeType === 1 }); if (O.test(b)) return f.filter(b, d, !c); b = f.filter(b, d) } return f.grep(a, function(a, d) { return f.inArray(a, b) >= 0 === c }) } function S(a) { return !a || !a.parentNode || a.parentNode.nodeType === 11 } function K() { return !0 } function J() { return !1 } function n(a, b, c) { var d = b + "defer", e = b + "queue", g = b + "mark", h = f._data(a, d); h && (c === "queue" || !f._data(a, e)) && (c === "mark" || !f._data(a, g)) && setTimeout(function() { !f._data(a, e) && !f._data(a, g) && (f.removeData(a, d, !0), h.fire()) }, 0) } function m(a) { for (var b in a) { if (b === "data" && f.isEmptyObject(a[b])) continue; if (b !== "toJSON") return !1 } return !0 } function l(a, c, d) { if (d === b && a.nodeType === 1) { var e = "data-" + c.replace(k, "-$1").toLowerCase(); d = a.getAttribute(e); if (typeof d == "string") { try { d = d === "true" ? !0 : d === "false" ? !1 : d === "null" ? null : f.isNumeric(d) ? +d : j.test(d) ? f.parseJSON(d) : d } catch (g) { } f.data(a, c, d) } else d = b } return d } function h(a) { var b = g[a] = {}, c, d; a = a.split(/\s+/); for (c = 0, d = a.length; c < d; c++) b[a[c]] = !0; return b } var c = a.document, d = a.navigator, e = a.location, f = function() { function J() { if (!e.isReady) { try { c.documentElement.doScroll("left") } catch (a) { setTimeout(J, 1); return } e.ready() } } var e = function(a, b) { return new e.fn.init(a, b, h) }, f = a.jQuery, g = a.$, h, i = /^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/, j = /\S/, k = /^\s+/, l = /\s+$/, m = /^<(\w+)\s*\/?>(?:<\/\1>)?$/, n = /^[\],:{}\s]*$/, o = /\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g, p = /"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g, q = /(?:^|:|,)(?:\s*\[)+/g, r = /(webkit)[ \/]([\w.]+)/, s = /(opera)(?:.*version)?[ \/]([\w.]+)/, t = /(msie) ([\w.]+)/, u = /(mozilla)(?:.*? rv:([\w.]+))?/, v = /-([a-z]|[0-9])/ig, w = /^-ms-/, x = function(a, b) { return (b + "").toUpperCase() }, y = d.userAgent, z, A, B, C = Object.prototype.toString, D = Object.prototype.hasOwnProperty, E = Array.prototype.push, F = Array.prototype.slice, G = String.prototype.trim, H = Array.prototype.indexOf, I = {}; e.fn = e.prototype = { constructor: e, init: function(a, d, f) { var g, h, j, k; if (!a) return this; if (a.nodeType) { this.context = this[0] = a, this.length = 1; return this } if (a === "body" && !d && c.body) { this.context = c, this[0] = c.body, this.selector = a, this.length = 1; return this } if (typeof a == "string") { a.charAt(0) !== "<" || a.charAt(a.length - 1) !== ">" || a.length < 3 ? g = i.exec(a) : g = [null, a, null]; if (g && (g[1] || !d)) { if (g[1]) { d = d instanceof e ? d[0] : d, k = d ? d.ownerDocument || d : c, j = m.exec(a), j ? e.isPlainObject(d) ? (a = [c.createElement(j[1])], e.fn.attr.call(a, d, !0)) : a = [k.createElement(j[1])] : (j = e.buildFragment([g[1]], [k]), a = (j.cacheable ? e.clone(j.fragment) : j.fragment).childNodes); return e.merge(this, a) } h = c.getElementById(g[2]); if (h && h.parentNode) { if (h.id !== g[2]) return f.find(a); this.length = 1, this[0] = h } this.context = c, this.selector = a; return this } return !d || d.jquery ? (d || f).find(a) : this.constructor(d).find(a) } if (e.isFunction(a)) return f.ready(a); a.selector !== b && (this.selector = a.selector, this.context = a.context); return e.makeArray(a, this) }, selector: "", jquery: "1.7.2", length: 0, size: function() { return this.length }, toArray: function() { return F.call(this, 0) }, get: function(a) { return a == null ? this.toArray() : a < 0 ? this[this.length + a] : this[a] }, pushStack: function(a, b, c) { var d = this.constructor(); e.isArray(a) ? E.apply(d, a) : e.merge(d, a), d.prevObject = this, d.context = this.context, b === "find" ? d.selector = this.selector + (this.selector ? " " : "") + c : b && (d.selector = this.selector + "." + b + "(" + c + ")"); return d }, each: function(a, b) { return e.each(this, a, b) }, ready: function(a) { e.bindReady(), A.add(a); return this }, eq: function(a) { a = +a; return a === -1 ? this.slice(a) : this.slice(a, a + 1) }, first: function() { return this.eq(0) }, last: function() { return this.eq(-1) }, slice: function() { return this.pushStack(F.apply(this, arguments), "slice", F.call(arguments).join(",")) }, map: function(a) { return this.pushStack(e.map(this, function(b, c) { return a.call(b, c, b) })) }, end: function() { return this.prevObject || this.constructor(null) }, push: E, sort: [].sort, splice: [].splice }, e.fn.init.prototype = e.fn, e.extend = e.fn.extend = function() { var a, c, d, f, g, h, i = arguments[0] || {}, j = 1, k = arguments.length, l = !1; typeof i == "boolean" && (l = i, i = arguments[1] || {}, j = 2), typeof i != "object" && !e.isFunction(i) && (i = {}), k === j && (i = this, --j); for (; j < k; j++) if ((a = arguments[j]) != null) for (c in a) { d = i[c], f = a[c]; if (i === f) continue; l && f && (e.isPlainObject(f) || (g = e.isArray(f))) ? (g ? (g = !1, h = d && e.isArray(d) ? d : []) : h = d && e.isPlainObject(d) ? d : {}, i[c] = e.extend(l, h, f)) : f !== b && (i[c] = f) } return i }, e.extend({ noConflict: function(b) { a.$ === e && (a.$ = g), b && a.jQuery === e && (a.jQuery = f); return e }, isReady: !1, readyWait: 1, holdReady: function(a) { a ? e.readyWait++ : e.ready(!0) }, ready: function(a) { if (a === !0 && ! --e.readyWait || a !== !0 && !e.isReady) { if (!c.body) return setTimeout(e.ready, 1); e.isReady = !0; if (a !== !0 && --e.readyWait > 0) return; A.fireWith(c, [e]), e.fn.trigger && e(c).trigger("ready").off("ready") } }, bindReady: function() { if (!A) { A = e.Callbacks("once memory"); if (c.readyState === "complete") return setTimeout(e.ready, 1); if (c.addEventListener) c.addEventListener("DOMContentLoaded", B, !1), a.addEventListener("load", e.ready, !1); else if (c.attachEvent) { c.attachEvent("onreadystatechange", B), a.attachEvent("onload", e.ready); var b = !1; try { b = a.frameElement == null } catch (d) { } c.documentElement.doScroll && b && J() } } }, isFunction: function(a) { return e.type(a) === "function" }, isArray: Array.isArray || function(a) { return e.type(a) === "array" }, isWindow: function(a) { return a != null && a == a.window }, isNumeric: function(a) { return !isNaN(parseFloat(a)) && isFinite(a) }, type: function(a) { return a == null ? String(a) : I[C.call(a)] || "object" }, isPlainObject: function(a) { if (!a || e.type(a) !== "object" || a.nodeType || e.isWindow(a)) return !1; try { if (a.constructor && !D.call(a, "constructor") && !D.call(a.constructor.prototype, "isPrototypeOf")) return !1 } catch (c) { return !1 } var d; for (d in a); return d === b || D.call(a, d) }, isEmptyObject: function(a) { for (var b in a) return !1; return !0 }, error: function(a) { throw new Error(a) }, parseJSON: function(b) { if (typeof b != "string" || !b) return null; b = e.trim(b); if (a.JSON && a.JSON.parse) return a.JSON.parse(b); if (n.test(b.replace(o, "@").replace(p, "]").replace(q, ""))) return (new Function("return " + b))(); e.error("Invalid JSON: " + b) }, parseXML: function(c) { if (typeof c != "string" || !c) return null; var d, f; try { a.DOMParser ? (f = new DOMParser, d = f.parseFromString(c, "text/xml")) : (d = new ActiveXObject("Microsoft.XMLDOM"), d.async = "false", d.loadXML(c)) } catch (g) { d = b } (!d || !d.documentElement || d.getElementsByTagName("parsererror").length) && e.error("Invalid XML: " + c); return d }, noop: function() { }, globalEval: function(b) { b && j.test(b) && (a.execScript || function(b) { a.eval.call(a, b) })(b) }, camelCase: function(a) { return a.replace(w, "ms-").replace(v, x) }, nodeName: function(a, b) { return a.nodeName && a.nodeName.toUpperCase() === b.toUpperCase() }, each: function(a, c, d) { var f, g = 0, h = a.length, i = h === b || e.isFunction(a); if (d) { if (i) { for (f in a) if (c.apply(a[f], d) === !1) break } else for (; g < h; ) if (c.apply(a[g++], d) === !1) break } else if (i) { for (f in a) if (c.call(a[f], f, a[f]) === !1) break } else for (; g < h; ) if (c.call(a[g], g, a[g++]) === !1) break; return a }, trim: G ? function(a) { return a == null ? "" : G.call(a) } : function(a) { return a == null ? "" : (a + "").replace(k, "").replace(l, "") }, makeArray: function(a, b) { var c = b || []; if (a != null) { var d = e.type(a); a.length == null || d === "string" || d === "function" || d === "regexp" || e.isWindow(a) ? E.call(c, a) : e.merge(c, a) } return c }, inArray: function(a, b, c) { var d; if (b) { if (H) return H.call(b, a, c); d = b.length, c = c ? c < 0 ? Math.max(0, d + c) : c : 0; for (; c < d; c++) if (c in b && b[c] === a) return c } return -1 }, merge: function(a, c) { var d = a.length, e = 0; if (typeof c.length == "number") for (var f = c.length; e < f; e++) a[d++] = c[e]; else while (c[e] !== b) a[d++] = c[e++]; a.length = d; return a }, grep: function(a, b, c) { var d = [], e; c = !!c; for (var f = 0, g = a.length; f < g; f++) e = !!b(a[f], f), c !== e && d.push(a[f]); return d }, map: function(a, c, d) { var f, g, h = [], i = 0, j = a.length, k = a instanceof e || j !== b && typeof j == "number" && (j > 0 && a[0] && a[j - 1] || j === 0 || e.isArray(a)); if (k) for (; i < j; i++) f = c(a[i], i, d), f != null && (h[h.length] = f); else for (g in a) f = c(a[g], g, d), f != null && (h[h.length] = f); return h.concat.apply([], h) }, guid: 1, proxy: function(a, c) { if (typeof c == "string") { var d = a[c]; c = a, a = d } if (!e.isFunction(a)) return b; var f = F.call(arguments, 2), g = function() { return a.apply(c, f.concat(F.call(arguments))) }; g.guid = a.guid = a.guid || g.guid || e.guid++; return g }, access: function(a, c, d, f, g, h, i) { var j, k = d == null, l = 0, m = a.length; if (d && typeof d == "object") { for (l in d) e.access(a, c, l, d[l], 1, h, f); g = 1 } else if (f !== b) { j = i === b && e.isFunction(f), k && (j ? (j = c, c = function(a, b, c) { return j.call(e(a), c) }) : (c.call(a, f), c = null)); if (c) for (; l < m; l++) c(a[l], d, j ? f.call(a[l], l, c(a[l], d)) : f, i); g = 1 } return g ? a : k ? c.call(a) : m ? c(a[0], d) : h }, now: function() { return (new Date).getTime() }, uaMatch: function(a) { a = a.toLowerCase(); var b = r.exec(a) || s.exec(a) || t.exec(a) || a.indexOf("compatible") < 0 && u.exec(a) || []; return { browser: b[1] || "", version: b[2] || "0"} }, sub: function() { function a(b, c) { return new a.fn.init(b, c) } e.extend(!0, a, this), a.superclass = this, a.fn = a.prototype = this(), a.fn.constructor = a, a.sub = this.sub, a.fn.init = function(d, f) { f && f instanceof e && !(f instanceof a) && (f = a(f)); return e.fn.init.call(this, d, f, b) }, a.fn.init.prototype = a.fn; var b = a(c); return a }, browser: {} }), e.each("Boolean Number String Function Array Date RegExp Object".split(" "), function(a, b) { I["[object " + b + "]"] = b.toLowerCase() }), z = e.uaMatch(y), z.browser && (e.browser[z.browser] = !0, e.browser.version = z.version), e.browser.webkit && (e.browser.safari = !0), j.test(" ") && (k = /^[\s\xA0]+/, l = /[\s\xA0]+$/), h = e(c), c.addEventListener ? B = function() { c.removeEventListener("DOMContentLoaded", B, !1), e.ready() } : c.attachEvent && (B = function() { c.readyState === "complete" && (c.detachEvent("onreadystatechange", B), e.ready()) }); return e } (), g = {}; f.Callbacks = function(a) { a = a ? g[a] || h(a) : {}; var c = [], d = [], e, i, j, k, l, m, n = function(b) { var d, e, g, h, i; for (d = 0, e = b.length; d < e; d++) g = b[d], h = f.type(g), h === "array" ? n(g) : h === "function" && (!a.unique || !p.has(g)) && c.push(g) }, o = function(b, f) { f = f || [], e = !a.memory || [b, f], i = !0, j = !0, m = k || 0, k = 0, l = c.length; for (; c && m < l; m++) if (c[m].apply(b, f) === !1 && a.stopOnFalse) { e = !0; break } j = !1, c && (a.once ? e === !0 ? p.disable() : c = [] : d && d.length && (e = d.shift(), p.fireWith(e[0], e[1]))) }, p = { add: function() { if (c) { var a = c.length; n(arguments), j ? l = c.length : e && e !== !0 && (k = a, o(e[0], e[1])) } return this }, remove: function() { if (c) { var b = arguments, d = 0, e = b.length; for (; d < e; d++) for (var f = 0; f < c.length; f++) if (b[d] === c[f]) { j && f <= l && (l--, f <= m && m--), c.splice(f--, 1); if (a.unique) break } } return this }, has: function(a) { if (c) { var b = 0, d = c.length; for (; b < d; b++) if (a === c[b]) return !0 } return !1 }, empty: function() { c = []; return this }, disable: function() { c = d = e = b; return this }, disabled: function() { return !c }, lock: function() { d = b, (!e || e === !0) && p.disable(); return this }, locked: function() { return !d }, fireWith: function(b, c) { d && (j ? a.once || d.push([b, c]) : (!a.once || !e) && o(b, c)); return this }, fire: function() { p.fireWith(this, arguments); return this }, fired: function() { return !!i } }; return p }; var i = [].slice; f.extend({ Deferred: function(a) { var b = f.Callbacks("once memory"), c = f.Callbacks("once memory"), d = f.Callbacks("memory"), e = "pending", g = { resolve: b, reject: c, notify: d }, h = { done: b.add, fail: c.add, progress: d.add, state: function() { return e }, isResolved: b.fired, isRejected: c.fired, then: function(a, b, c) { i.done(a).fail(b).progress(c); return this }, always: function() { i.done.apply(i, arguments).fail.apply(i, arguments); return this }, pipe: function(a, b, c) { return f.Deferred(function(d) { f.each({ done: [a, "resolve"], fail: [b, "reject"], progress: [c, "notify"] }, function(a, b) { var c = b[0], e = b[1], g; f.isFunction(c) ? i[a](function() { g = c.apply(this, arguments), g && f.isFunction(g.promise) ? g.promise().then(d.resolve, d.reject, d.notify) : d[e + "With"](this === i ? d : this, [g]) }) : i[a](d[e]) }) }).promise() }, promise: function(a) { if (a == null) a = h; else for (var b in h) a[b] = h[b]; return a } }, i = h.promise({}), j; for (j in g) i[j] = g[j].fire, i[j + "With"] = g[j].fireWith; i.done(function() { e = "resolved" }, c.disable, d.lock).fail(function() { e = "rejected" }, b.disable, d.lock), a && a.call(i, i); return i }, when: function(a) { function m(a) { return function(b) { e[a] = arguments.length > 1 ? i.call(arguments, 0) : b, j.notifyWith(k, e) } } function l(a) { return function(c) { b[a] = arguments.length > 1 ? i.call(arguments, 0) : c, --g || j.resolveWith(j, b) } } var b = i.call(arguments, 0), c = 0, d = b.length, e = Array(d), g = d, h = d, j = d <= 1 && a && f.isFunction(a.promise) ? a : f.Deferred(), k = j.promise(); if (d > 1) { for (; c < d; c++) b[c] && b[c].promise && f.isFunction(b[c].promise) ? b[c].promise().then(l(c), j.reject, m(c)) : --g; g || j.resolveWith(j, b) } else j !== a && j.resolveWith(j, d ? [a] : []); return k } }), f.support = function() { var b, d, e, g, h, i, j, k, l, m, n, o, p = c.createElement("div"), q = c.documentElement; p.setAttribute("className", "t"), p.innerHTML = "
a", d = p.getElementsByTagName("*"), e = p.getElementsByTagName("a")[0]; if (!d || !d.length || !e) return {}; g = c.createElement("select"), h = g.appendChild(c.createElement("option")), i = p.getElementsByTagName("input")[0], b = { leadingWhitespace: p.firstChild.nodeType === 3, tbody: !p.getElementsByTagName("tbody").length, htmlSerialize: !!p.getElementsByTagName("link").length, style: /top/.test(e.getAttribute("style")), hrefNormalized: e.getAttribute("href") === "/a", opacity: /^0.55/.test(e.style.opacity), cssFloat: !!e.style.cssFloat, checkOn: i.value === "on", optSelected: h.selected, getSetAttribute: p.className !== "t", enctype: !!c.createElement("form").enctype, html5Clone: c.createElement("nav").cloneNode(!0).outerHTML !== "<:nav>", submitBubbles: !0, changeBubbles: !0, focusinBubbles: !1, deleteExpando: !0, noCloneEvent: !0, inlineBlockNeedsLayout: !1, shrinkWrapBlocks: !1, reliableMarginRight: !0, pixelMargin: !0 }, f.boxModel = b.boxModel = c.compatMode === "CSS1Compat", i.checked = !0, b.noCloneChecked = i.cloneNode(!0).checked, g.disabled = !0, b.optDisabled = !h.disabled; try { delete p.test } catch (r) { b.deleteExpando = !1 } !p.addEventListener && p.attachEvent && p.fireEvent && (p.attachEvent("onclick", function() { b.noCloneEvent = !1 }), p.cloneNode(!0).fireEvent("onclick")), i = c.createElement("input"), i.value = "t", i.setAttribute("type", "radio"), b.radioValue = i.value === "t", i.setAttribute("checked", "checked"), i.setAttribute("name", "t"), p.appendChild(i), j = c.createDocumentFragment(), j.appendChild(p.lastChild), b.checkClone = j.cloneNode(!0).cloneNode(!0).lastChild.checked, b.appendChecked = i.checked, j.removeChild(i), j.appendChild(p); if (p.attachEvent) for (n in { submit: 1, change: 1, focusin: 1 }) m = "on" + n, o = m in p, o || (p.setAttribute(m, "return;"), o = typeof p[m] == "function"), b[n + "Bubbles"] = o; j.removeChild(p), j = g = h = p = i = null, f(function() { var d, e, g, h, i, j, l, m, n, q, r, s, t, u = c.getElementsByTagName("body")[0]; !u || (m = 1, t = "padding:0;margin:0;border:", r = "position:absolute;top:0;left:0;width:1px;height:1px;", s = t + "0;visibility:hidden;", n = "style='" + r + t + "5px solid #000;", q = "
" + "" + "
", d = c.createElement("div"), d.style.cssText = s + "width:0;height:0;position:static;top:0;margin-top:" + m + "px", u.insertBefore(d, u.firstChild), p = c.createElement("div"), d.appendChild(p), p.innerHTML = "
t
", k = p.getElementsByTagName("td"), o = k[0].offsetHeight === 0, k[0].style.display = "", k[1].style.display = "none", b.reliableHiddenOffsets = o && k[0].offsetHeight === 0, a.getComputedStyle && (p.innerHTML = "", l = c.createElement("div"), l.style.width = "0", l.style.marginRight = "0", p.style.width = "2px", p.appendChild(l), b.reliableMarginRight = (parseInt((a.getComputedStyle(l, null) || { marginRight: 0 }).marginRight, 10) || 0) === 0), typeof p.style.zoom != "undefined" && (p.innerHTML = "", p.style.width = p.style.padding = "1px", p.style.border = 0, p.style.overflow = "hidden", p.style.display = "inline", p.style.zoom = 1, b.inlineBlockNeedsLayout = p.offsetWidth === 3, p.style.display = "block", p.style.overflow = "visible", p.innerHTML = "
", b.shrinkWrapBlocks = p.offsetWidth !== 3), p.style.cssText = r + s, p.innerHTML = q, e = p.firstChild, g = e.firstChild, i = e.nextSibling.firstChild.firstChild, j = { doesNotAddBorder: g.offsetTop !== 5, doesAddBorderForTableAndCells: i.offsetTop === 5 }, g.style.position = "fixed", g.style.top = "20px", j.fixedPosition = g.offsetTop === 20 || g.offsetTop === 15, g.style.position = g.style.top = "", e.style.overflow = "hidden", e.style.position = "relative", j.subtractsBorderForOverflowNotVisible = g.offsetTop === -5, j.doesNotIncludeMarginInBodyOffset = u.offsetTop !== m, a.getComputedStyle && (p.style.marginTop = "1%", b.pixelMargin = (a.getComputedStyle(p, null) || { marginTop: 0 }).marginTop !== "1%"), typeof d.style.zoom != "undefined" && (d.style.zoom = 1), u.removeChild(d), l = p = d = null, f.extend(b, j)) }); return b } (); var j = /^(?:\{.*\}|\[.*\])$/, k = /([A-Z])/g; f.extend({ cache: {}, uuid: 0, expando: "jQuery" + (f.fn.jquery + Math.random()).replace(/\D/g, ""), noData: { embed: !0, object: "clsid:D27CDB6E-AE6D-11cf-96B8-444553540000", applet: !0 }, hasData: function(a) { a = a.nodeType ? f.cache[a[f.expando]] : a[f.expando]; return !!a && !m(a) }, data: function(a, c, d, e) { if (!!f.acceptData(a)) { var g, h, i, j = f.expando, k = typeof c == "string", l = a.nodeType, m = l ? f.cache : a, n = l ? a[j] : a[j] && j, o = c === "events"; if ((!n || !m[n] || !o && !e && !m[n].data) && k && d === b) return; n || (l ? a[j] = n = ++f.uuid : n = j), m[n] || (m[n] = {}, l || (m[n].toJSON = f.noop)); if (typeof c == "object" || typeof c == "function") e ? m[n] = f.extend(m[n], c) : m[n].data = f.extend(m[n].data, c); g = h = m[n], e || (h.data || (h.data = {}), h = h.data), d !== b && (h[f.camelCase(c)] = d); if (o && !h[c]) return g.events; k ? (i = h[c], i == null && (i = h[f.camelCase(c)])) : i = h; return i } }, removeData: function(a, b, c) { if (!!f.acceptData(a)) { var d, e, g, h = f.expando, i = a.nodeType, j = i ? f.cache : a, k = i ? a[h] : h; if (!j[k]) return; if (b) { d = c ? j[k] : j[k].data; if (d) { f.isArray(b) || (b in d ? b = [b] : (b = f.camelCase(b), b in d ? b = [b] : b = b.split(" "))); for (e = 0, g = b.length; e < g; e++) delete d[b[e]]; if (!(c ? m : f.isEmptyObject)(d)) return } } if (!c) { delete j[k].data; if (!m(j[k])) return } f.support.deleteExpando || !j.setInterval ? delete j[k] : j[k] = null, i && (f.support.deleteExpando ? delete a[h] : a.removeAttribute ? a.removeAttribute(h) : a[h] = null) } }, _data: function(a, b, c) { return f.data(a, b, c, !0) }, acceptData: function(a) { if (a.nodeName) { var b = f.noData[a.nodeName.toLowerCase()]; if (b) return b !== !0 && a.getAttribute("classid") === b } return !0 } }), f.fn.extend({ data: function(a, c) { var d, e, g, h, i, j = this[0], k = 0, m = null; if (a === b) { if (this.length) { m = f.data(j); if (j.nodeType === 1 && !f._data(j, "parsedAttrs")) { g = j.attributes; for (i = g.length; k < i; k++) h = g[k].name, h.indexOf("data-") === 0 && (h = f.camelCase(h.substring(5)), l(j, h, m[h])); f._data(j, "parsedAttrs", !0) } } return m } if (typeof a == "object") return this.each(function() { f.data(this, a) }); d = a.split(".", 2), d[1] = d[1] ? "." + d[1] : "", e = d[1] + "!"; return f.access(this, function(c) { if (c === b) { m = this.triggerHandler("getData" + e, [d[0]]), m === b && j && (m = f.data(j, a), m = l(j, a, m)); return m === b && d[1] ? this.data(d[0]) : m } d[1] = c, this.each(function() { var b = f(this); b.triggerHandler("setData" + e, d), f.data(this, a, c), b.triggerHandler("changeData" + e, d) }) }, null, c, arguments.length > 1, null, !1) }, removeData: function(a) { return this.each(function() { f.removeData(this, a) }) } }), f.extend({ _mark: function(a, b) { a && (b = (b || "fx") + "mark", f._data(a, b, (f._data(a, b) || 0) + 1)) }, _unmark: function(a, b, c) { a !== !0 && (c = b, b = a, a = !1); if (b) { c = c || "fx"; var d = c + "mark", e = a ? 0 : (f._data(b, d) || 1) - 1; e ? f._data(b, d, e) : (f.removeData(b, d, !0), n(b, c, "mark")) } }, queue: function(a, b, c) { var d; if (a) { b = (b || "fx") + "queue", d = f._data(a, b), c && (!d || f.isArray(c) ? d = f._data(a, b, f.makeArray(c)) : d.push(c)); return d || [] } }, dequeue: function(a, b) { b = b || "fx"; var c = f.queue(a, b), d = c.shift(), e = {}; d === "inprogress" && (d = c.shift()), d && (b === "fx" && c.unshift("inprogress"), f._data(a, b + ".run", e), d.call(a, function() { f.dequeue(a, b) }, e)), c.length || (f.removeData(a, b + "queue " + b + ".run", !0), n(a, b, "queue")) } }), f.fn.extend({ queue: function(a, c) { var d = 2; typeof a != "string" && (c = a, a = "fx", d--); if (arguments.length < d) return f.queue(this[0], a); return c === b ? this : this.each(function() { var b = f.queue(this, a, c); a === "fx" && b[0] !== "inprogress" && f.dequeue(this, a) }) }, dequeue: function(a) { return this.each(function() { f.dequeue(this, a) }) }, delay: function(a, b) { a = f.fx ? f.fx.speeds[a] || a : a, b = b || "fx"; return this.queue(b, function(b, c) { var d = setTimeout(b, a); c.stop = function() { clearTimeout(d) } }) }, clearQueue: function(a) { return this.queue(a || "fx", []) }, promise: function(a, c) { function m() { --h || d.resolveWith(e, [e]) } typeof a != "string" && (c = a, a = b), a = a || "fx"; var d = f.Deferred(), e = this, g = e.length, h = 1, i = a + "defer", j = a + "queue", k = a + "mark", l; while (g--) if (l = f.data(e[g], i, b, !0) || (f.data(e[g], j, b, !0) || f.data(e[g], k, b, !0)) && f.data(e[g], i, f.Callbacks("once memory"), !0)) h++, l.add(m); m(); return d.promise(c) } }); var o = /[\n\t\r]/g, p = /\s+/, q = /\r/g, r = /^(?:button|input)$/i, s = /^(?:button|input|object|select|textarea)$/i, t = /^a(?:rea)?$/i, u = /^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i, v = f.support.getSetAttribute, w, x, y; f.fn.extend({ attr: function(a, b) { return f.access(this, f.attr, a, b, arguments.length > 1) }, removeAttr: function(a) { return this.each(function() { f.removeAttr(this, a) }) }, prop: function(a, b) { return f.access(this, f.prop, a, b, arguments.length > 1) }, removeProp: function(a) { a = f.propFix[a] || a; return this.each(function() { try { this[a] = b, delete this[a] } catch (c) { } }) }, addClass: function(a) { var b, c, d, e, g, h, i; if (f.isFunction(a)) return this.each(function(b) { f(this).addClass(a.call(this, b, this.className)) }); if (a && typeof a == "string") { b = a.split(p); for (c = 0, d = this.length; c < d; c++) { e = this[c]; if (e.nodeType === 1) if (!e.className && b.length === 1) e.className = a; else { g = " " + e.className + " "; for (h = 0, i = b.length; h < i; h++) ~g.indexOf(" " + b[h] + " ") || (g += b[h] + " "); e.className = f.trim(g) } } } return this }, removeClass: function(a) { var c, d, e, g, h, i, j; if (f.isFunction(a)) return this.each(function(b) { f(this).removeClass(a.call(this, b, this.className)) }); if (a && typeof a == "string" || a === b) { c = (a || "").split(p); for (d = 0, e = this.length; d < e; d++) { g = this[d]; if (g.nodeType === 1 && g.className) if (a) { h = (" " + g.className + " ").replace(o, " "); for (i = 0, j = c.length; i < j; i++) h = h.replace(" " + c[i] + " ", " "); g.className = f.trim(h) } else g.className = "" } } return this }, toggleClass: function(a, b) { var c = typeof a, d = typeof b == "boolean"; if (f.isFunction(a)) return this.each(function(c) { f(this).toggleClass(a.call(this, c, this.className, b), b) }); return this.each(function() { if (c === "string") { var e, g = 0, h = f(this), i = b, j = a.split(p); while (e = j[g++]) i = d ? i : !h.hasClass(e), h[i ? "addClass" : "removeClass"](e) } else if (c === "undefined" || c === "boolean") this.className && f._data(this, "__className__", this.className), this.className = this.className || a === !1 ? "" : f._data(this, "__className__") || "" }) }, hasClass: function(a) { var b = " " + a + " ", c = 0, d = this.length; for (; c < d; c++) if (this[c].nodeType === 1 && (" " + this[c].className + " ").replace(o, " ").indexOf(b) > -1) return !0; return !1 }, val: function(a) { var c, d, e, g = this[0]; { if (!!arguments.length) { e = f.isFunction(a); return this.each(function(d) { var g = f(this), h; if (this.nodeType === 1) { e ? h = a.call(this, d, g.val()) : h = a, h == null ? h = "" : typeof h == "number" ? h += "" : f.isArray(h) && (h = f.map(h, function(a) { return a == null ? "" : a + "" })), c = f.valHooks[this.type] || f.valHooks[this.nodeName.toLowerCase()]; if (!c || !("set" in c) || c.set(this, h, "value") === b) this.value = h } }) } if (g) { c = f.valHooks[g.type] || f.valHooks[g.nodeName.toLowerCase()]; if (c && "get" in c && (d = c.get(g, "value")) !== b) return d; d = g.value; return typeof d == "string" ? d.replace(q, "") : d == null ? "" : d } } } }), f.extend({ valHooks: { option: { get: function(a) { var b = a.attributes.value; return !b || b.specified ? a.value : a.text } }, select: { get: function(a) { var b, c, d, e, g = a.selectedIndex, h = [], i = a.options, j = a.type === "select-one"; if (g < 0) return null; c = j ? g : 0, d = j ? g + 1 : i.length; for (; c < d; c++) { e = i[c]; if (e.selected && (f.support.optDisabled ? !e.disabled : e.getAttribute("disabled") === null) && (!e.parentNode.disabled || !f.nodeName(e.parentNode, "optgroup"))) { b = f(e).val(); if (j) return b; h.push(b) } } if (j && !h.length && i.length) return f(i[g]).val(); return h }, set: function(a, b) { var c = f.makeArray(b); f(a).find("option").each(function() { this.selected = f.inArray(f(this).val(), c) >= 0 }), c.length || (a.selectedIndex = -1); return c } } }, attrFn: { val: !0, css: !0, html: !0, text: !0, data: !0, width: !0, height: !0, offset: !0 }, attr: function(a, c, d, e) { var g, h, i, j = a.nodeType; if (!!a && j !== 3 && j !== 8 && j !== 2) { if (e && c in f.attrFn) return f(a)[c](d); if (typeof a.getAttribute == "undefined") return f.prop(a, c, d); i = j !== 1 || !f.isXMLDoc(a), i && (c = c.toLowerCase(), h = f.attrHooks[c] || (u.test(c) ? x : w)); if (d !== b) { if (d === null) { f.removeAttr(a, c); return } if (h && "set" in h && i && (g = h.set(a, d, c)) !== b) return g; a.setAttribute(c, "" + d); return d } if (h && "get" in h && i && (g = h.get(a, c)) !== null) return g; g = a.getAttribute(c); return g === null ? b : g } }, removeAttr: function(a, b) { var c, d, e, g, h, i = 0; if (b && a.nodeType === 1) { d = b.toLowerCase().split(p), g = d.length; for (; i < g; i++) e = d[i], e && (c = f.propFix[e] || e, h = u.test(e), h || f.attr(a, e, ""), a.removeAttribute(v ? e : c), h && c in a && (a[c] = !1)) } }, attrHooks: { type: { set: function(a, b) { if (r.test(a.nodeName) && a.parentNode) f.error("type property can't be changed"); else if (!f.support.radioValue && b === "radio" && f.nodeName(a, "input")) { var c = a.value; a.setAttribute("type", b), c && (a.value = c); return b } } }, value: { get: function(a, b) { if (w && f.nodeName(a, "button")) return w.get(a, b); return b in a ? a.value : null }, set: function(a, b, c) { if (w && f.nodeName(a, "button")) return w.set(a, b, c); a.value = b } } }, propFix: { tabindex: "tabIndex", readonly: "readOnly", "for": "htmlFor", "class": "className", maxlength: "maxLength", cellspacing: "cellSpacing", cellpadding: "cellPadding", rowspan: "rowSpan", colspan: "colSpan", usemap: "useMap", frameborder: "frameBorder", contenteditable: "contentEditable" }, prop: function(a, c, d) { var e, g, h, i = a.nodeType; if (!!a && i !== 3 && i !== 8 && i !== 2) { h = i !== 1 || !f.isXMLDoc(a), h && (c = f.propFix[c] || c, g = f.propHooks[c]); return d !== b ? g && "set" in g && (e = g.set(a, d, c)) !== b ? e : a[c] = d : g && "get" in g && (e = g.get(a, c)) !== null ? e : a[c] } }, propHooks: { tabIndex: { get: function(a) { var c = a.getAttributeNode("tabindex"); return c && c.specified ? parseInt(c.value, 10) : s.test(a.nodeName) || t.test(a.nodeName) && a.href ? 0 : b } }} }), f.attrHooks.tabindex = f.propHooks.tabIndex, x = { get: function(a, c) { var d, e = f.prop(a, c); return e === !0 || typeof e != "boolean" && (d = a.getAttributeNode(c)) && d.nodeValue !== !1 ? c.toLowerCase() : b }, set: function(a, b, c) { var d; b === !1 ? f.removeAttr(a, c) : (d = f.propFix[c] || c, d in a && (a[d] = !0), a.setAttribute(c, c.toLowerCase())); return c } }, v || (y = { name: !0, id: !0, coords: !0 }, w = f.valHooks.button = { get: function(a, c) { var d; d = a.getAttributeNode(c); return d && (y[c] ? d.nodeValue !== "" : d.specified) ? d.nodeValue : b }, set: function(a, b, d) { var e = a.getAttributeNode(d); e || (e = c.createAttribute(d), a.setAttributeNode(e)); return e.nodeValue = b + "" } }, f.attrHooks.tabindex.set = w.set, f.each(["width", "height"], function(a, b) { f.attrHooks[b] = f.extend(f.attrHooks[b], { set: function(a, c) { if (c === "") { a.setAttribute(b, "auto"); return c } } }) }), f.attrHooks.contenteditable = { get: w.get, set: function(a, b, c) { b === "" && (b = "false"), w.set(a, b, c) } }), f.support.hrefNormalized || f.each(["href", "src", "width", "height"], function(a, c) { f.attrHooks[c] = f.extend(f.attrHooks[c], { get: function(a) { var d = a.getAttribute(c, 2); return d === null ? b : d } }) }), f.support.style || (f.attrHooks.style = { get: function(a) { return a.style.cssText.toLowerCase() || b }, set: function(a, b) { return a.style.cssText = "" + b } }), f.support.optSelected || (f.propHooks.selected = f.extend(f.propHooks.selected, { get: function(a) { var b = a.parentNode; b && (b.selectedIndex, b.parentNode && b.parentNode.selectedIndex); return null } })), f.support.enctype || (f.propFix.enctype = "encoding"), f.support.checkOn || f.each(["radio", "checkbox"], function() { f.valHooks[this] = { get: function(a) { return a.getAttribute("value") === null ? "on" : a.value } } }), f.each(["radio", "checkbox"], function() { f.valHooks[this] = f.extend(f.valHooks[this], { set: function(a, b) { if (f.isArray(b)) return a.checked = f.inArray(f(a).val(), b) >= 0 } }) }); var z = /^(?:textarea|input|select)$/i, A = /^([^\.]*)?(?:\.(.+))?$/, B = /(?:^|\s)hover(\.\S+)?\b/, C = /^key/, D = /^(?:mouse|contextmenu)|click/, E = /^(?:focusinfocus|focusoutblur)$/, F = /^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/, G = function( +a) { var b = F.exec(a); b && (b[1] = (b[1] || "").toLowerCase(), b[3] = b[3] && new RegExp("(?:^|\\s)" + b[3] + "(?:\\s|$)")); return b }, H = function(a, b) { var c = a.attributes || {}; return (!b[1] || a.nodeName.toLowerCase() === b[1]) && (!b[2] || (c.id || {}).value === b[2]) && (!b[3] || b[3].test((c["class"] || {}).value)) }, I = function(a) { return f.event.special.hover ? a : a.replace(B, "mouseenter$1 mouseleave$1") }; f.event = { add: function(a, c, d, e, g) { var h, i, j, k, l, m, n, o, p, q, r, s; if (!(a.nodeType === 3 || a.nodeType === 8 || !c || !d || !(h = f._data(a)))) { d.handler && (p = d, d = p.handler, g = p.selector), d.guid || (d.guid = f.guid++), j = h.events, j || (h.events = j = {}), i = h.handle, i || (h.handle = i = function(a) { return typeof f != "undefined" && (!a || f.event.triggered !== a.type) ? f.event.dispatch.apply(i.elem, arguments) : b }, i.elem = a), c = f.trim(I(c)).split(" "); for (k = 0; k < c.length; k++) { l = A.exec(c[k]) || [], m = l[1], n = (l[2] || "").split(".").sort(), s = f.event.special[m] || {}, m = (g ? s.delegateType : s.bindType) || m, s = f.event.special[m] || {}, o = f.extend({ type: m, origType: l[1], data: e, handler: d, guid: d.guid, selector: g, quick: g && G(g), namespace: n.join(".") }, p), r = j[m]; if (!r) { r = j[m] = [], r.delegateCount = 0; if (!s.setup || s.setup.call(a, e, n, i) === !1) a.addEventListener ? a.addEventListener(m, i, !1) : a.attachEvent && a.attachEvent("on" + m, i) } s.add && (s.add.call(a, o), o.handler.guid || (o.handler.guid = d.guid)), g ? r.splice(r.delegateCount++, 0, o) : r.push(o), f.event.global[m] = !0 } a = null } }, global: {}, remove: function(a, b, c, d, e) { var g = f.hasData(a) && f._data(a), h, i, j, k, l, m, n, o, p, q, r, s; if (!!g && !!(o = g.events)) { b = f.trim(I(b || "")).split(" "); for (h = 0; h < b.length; h++) { i = A.exec(b[h]) || [], j = k = i[1], l = i[2]; if (!j) { for (j in o) f.event.remove(a, j + b[h], c, d, !0); continue } p = f.event.special[j] || {}, j = (d ? p.delegateType : p.bindType) || j, r = o[j] || [], m = r.length, l = l ? new RegExp("(^|\\.)" + l.split(".").sort().join("\\.(?:.*\\.)?") + "(\\.|$)") : null; for (n = 0; n < r.length; n++) s = r[n], (e || k === s.origType) && (!c || c.guid === s.guid) && (!l || l.test(s.namespace)) && (!d || d === s.selector || d === "**" && s.selector) && (r.splice(n--, 1), s.selector && r.delegateCount--, p.remove && p.remove.call(a, s)); r.length === 0 && m !== r.length && ((!p.teardown || p.teardown.call(a, l) === !1) && f.removeEvent(a, j, g.handle), delete o[j]) } f.isEmptyObject(o) && (q = g.handle, q && (q.elem = null), f.removeData(a, ["events", "handle"], !0)) } }, customEvent: { getData: !0, setData: !0, changeData: !0 }, trigger: function(c, d, e, g) { if (!e || e.nodeType !== 3 && e.nodeType !== 8) { var h = c.type || c, i = [], j, k, l, m, n, o, p, q, r, s; if (E.test(h + f.event.triggered)) return; h.indexOf("!") >= 0 && (h = h.slice(0, -1), k = !0), h.indexOf(".") >= 0 && (i = h.split("."), h = i.shift(), i.sort()); if ((!e || f.event.customEvent[h]) && !f.event.global[h]) return; c = typeof c == "object" ? c[f.expando] ? c : new f.Event(h, c) : new f.Event(h), c.type = h, c.isTrigger = !0, c.exclusive = k, c.namespace = i.join("."), c.namespace_re = c.namespace ? new RegExp("(^|\\.)" + i.join("\\.(?:.*\\.)?") + "(\\.|$)") : null, o = h.indexOf(":") < 0 ? "on" + h : ""; if (!e) { j = f.cache; for (l in j) j[l].events && j[l].events[h] && f.event.trigger(c, d, j[l].handle.elem, !0); return } c.result = b, c.target || (c.target = e), d = d != null ? f.makeArray(d) : [], d.unshift(c), p = f.event.special[h] || {}; if (p.trigger && p.trigger.apply(e, d) === !1) return; r = [[e, p.bindType || h]]; if (!g && !p.noBubble && !f.isWindow(e)) { s = p.delegateType || h, m = E.test(s + h) ? e : e.parentNode, n = null; for (; m; m = m.parentNode) r.push([m, s]), n = m; n && n === e.ownerDocument && r.push([n.defaultView || n.parentWindow || a, s]) } for (l = 0; l < r.length && !c.isPropagationStopped(); l++) m = r[l][0], c.type = r[l][1], q = (f._data(m, "events") || {})[c.type] && f._data(m, "handle"), q && q.apply(m, d), q = o && m[o], q && f.acceptData(m) && q.apply(m, d) === !1 && c.preventDefault(); c.type = h, !g && !c.isDefaultPrevented() && (!p._default || p._default.apply(e.ownerDocument, d) === !1) && (h !== "click" || !f.nodeName(e, "a")) && f.acceptData(e) && o && e[h] && (h !== "focus" && h !== "blur" || c.target.offsetWidth !== 0) && !f.isWindow(e) && (n = e[o], n && (e[o] = null), f.event.triggered = h, e[h](), f.event.triggered = b, n && (e[o] = n)); return c.result } }, dispatch: function(c) { c = f.event.fix(c || a.event); var d = (f._data(this, "events") || {})[c.type] || [], e = d.delegateCount, g = [].slice.call(arguments, 0), h = !c.exclusive && !c.namespace, i = f.event.special[c.type] || {}, j = [], k, l, m, n, o, p, q, r, s, t, u; g[0] = c, c.delegateTarget = this; if (!i.preDispatch || i.preDispatch.call(this, c) !== !1) { if (e && (!c.button || c.type !== "click")) { n = f(this), n.context = this.ownerDocument || this; for (m = c.target; m != this; m = m.parentNode || this) if (m.disabled !== !0) { p = {}, r = [], n[0] = m; for (k = 0; k < e; k++) s = d[k], t = s.selector, p[t] === b && (p[t] = s.quick ? H(m, s.quick) : n.is(t)), p[t] && r.push(s); r.length && j.push({ elem: m, matches: r }) } } d.length > e && j.push({ elem: this, matches: d.slice(e) }); for (k = 0; k < j.length && !c.isPropagationStopped(); k++) { q = j[k], c.currentTarget = q.elem; for (l = 0; l < q.matches.length && !c.isImmediatePropagationStopped(); l++) { s = q.matches[l]; if (h || !c.namespace && !s.namespace || c.namespace_re && c.namespace_re.test(s.namespace)) c.data = s.data, c.handleObj = s, o = ((f.event.special[s.origType] || {}).handle || s.handler).apply(q.elem, g), o !== b && (c.result = o, o === !1 && (c.preventDefault(), c.stopPropagation())) } } i.postDispatch && i.postDispatch.call(this, c); return c.result } }, props: "attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "), fixHooks: {}, keyHooks: { props: "char charCode key keyCode".split(" "), filter: function(a, b) { a.which == null && (a.which = b.charCode != null ? b.charCode : b.keyCode); return a } }, mouseHooks: { props: "button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "), filter: function(a, d) { var e, f, g, h = d.button, i = d.fromElement; a.pageX == null && d.clientX != null && (e = a.target.ownerDocument || c, f = e.documentElement, g = e.body, a.pageX = d.clientX + (f && f.scrollLeft || g && g.scrollLeft || 0) - (f && f.clientLeft || g && g.clientLeft || 0), a.pageY = d.clientY + (f && f.scrollTop || g && g.scrollTop || 0) - (f && f.clientTop || g && g.clientTop || 0)), !a.relatedTarget && i && (a.relatedTarget = i === a.target ? d.toElement : i), !a.which && h !== b && (a.which = h & 1 ? 1 : h & 2 ? 3 : h & 4 ? 2 : 0); return a } }, fix: function(a) { if (a[f.expando]) return a; var d, e, g = a, h = f.event.fixHooks[a.type] || {}, i = h.props ? this.props.concat(h.props) : this.props; a = f.Event(g); for (d = i.length; d; ) e = i[--d], a[e] = g[e]; a.target || (a.target = g.srcElement || c), a.target.nodeType === 3 && (a.target = a.target.parentNode), a.metaKey === b && (a.metaKey = a.ctrlKey); return h.filter ? h.filter(a, g) : a }, special: { ready: { setup: f.bindReady }, load: { noBubble: !0 }, focus: { delegateType: "focusin" }, blur: { delegateType: "focusout" }, beforeunload: { setup: function(a, b, c) { f.isWindow(this) && (this.onbeforeunload = c) }, teardown: function(a, b) { this.onbeforeunload === b && (this.onbeforeunload = null) } } }, simulate: function(a, b, c, d) { var e = f.extend(new f.Event, c, { type: a, isSimulated: !0, originalEvent: {} }); d ? f.event.trigger(e, null, b) : f.event.dispatch.call(b, e), e.isDefaultPrevented() && c.preventDefault() } }, f.event.handle = f.event.dispatch, f.removeEvent = c.removeEventListener ? function(a, b, c) { a.removeEventListener && a.removeEventListener(b, c, !1) } : function(a, b, c) { a.detachEvent && a.detachEvent("on" + b, c) }, f.Event = function(a, b) { if (!(this instanceof f.Event)) return new f.Event(a, b); a && a.type ? (this.originalEvent = a, this.type = a.type, this.isDefaultPrevented = a.defaultPrevented || a.returnValue === !1 || a.getPreventDefault && a.getPreventDefault() ? K : J) : this.type = a, b && f.extend(this, b), this.timeStamp = a && a.timeStamp || f.now(), this[f.expando] = !0 }, f.Event.prototype = { preventDefault: function() { this.isDefaultPrevented = K; var a = this.originalEvent; !a || (a.preventDefault ? a.preventDefault() : a.returnValue = !1) }, stopPropagation: function() { this.isPropagationStopped = K; var a = this.originalEvent; !a || (a.stopPropagation && a.stopPropagation(), a.cancelBubble = !0) }, stopImmediatePropagation: function() { this.isImmediatePropagationStopped = K, this.stopPropagation() }, isDefaultPrevented: J, isPropagationStopped: J, isImmediatePropagationStopped: J }, f.each({ mouseenter: "mouseover", mouseleave: "mouseout" }, function(a, b) { f.event.special[a] = { delegateType: b, bindType: b, handle: function(a) { var c = this, d = a.relatedTarget, e = a.handleObj, g = e.selector, h; if (!d || d !== c && !f.contains(c, d)) a.type = e.origType, h = e.handler.apply(this, arguments), a.type = b; return h } } }), f.support.submitBubbles || (f.event.special.submit = { setup: function() { if (f.nodeName(this, "form")) return !1; f.event.add(this, "click._submit keypress._submit", function(a) { var c = a.target, d = f.nodeName(c, "input") || f.nodeName(c, "button") ? c.form : b; d && !d._submit_attached && (f.event.add(d, "submit._submit", function(a) { a._submit_bubble = !0 }), d._submit_attached = !0) }) }, postDispatch: function(a) { a._submit_bubble && (delete a._submit_bubble, this.parentNode && !a.isTrigger && f.event.simulate("submit", this.parentNode, a, !0)) }, teardown: function() { if (f.nodeName(this, "form")) return !1; f.event.remove(this, "._submit") } }), f.support.changeBubbles || (f.event.special.change = { setup: function() { if (z.test(this.nodeName)) { if (this.type === "checkbox" || this.type === "radio") f.event.add(this, "propertychange._change", function(a) { a.originalEvent.propertyName === "checked" && (this._just_changed = !0) }), f.event.add(this, "click._change", function(a) { this._just_changed && !a.isTrigger && (this._just_changed = !1, f.event.simulate("change", this, a, !0)) }); return !1 } f.event.add(this, "beforeactivate._change", function(a) { var b = a.target; z.test(b.nodeName) && !b._change_attached && (f.event.add(b, "change._change", function(a) { this.parentNode && !a.isSimulated && !a.isTrigger && f.event.simulate("change", this.parentNode, a, !0) }), b._change_attached = !0) }) }, handle: function(a) { var b = a.target; if (this !== b || a.isSimulated || a.isTrigger || b.type !== "radio" && b.type !== "checkbox") return a.handleObj.handler.apply(this, arguments) }, teardown: function() { f.event.remove(this, "._change"); return z.test(this.nodeName) } }), f.support.focusinBubbles || f.each({ focus: "focusin", blur: "focusout" }, function(a, b) { var d = 0, e = function(a) { f.event.simulate(b, a.target, f.event.fix(a), !0) }; f.event.special[b] = { setup: function() { d++ === 0 && c.addEventListener(a, e, !0) }, teardown: function() { --d === 0 && c.removeEventListener(a, e, !0) } } }), f.fn.extend({ on: function(a, c, d, e, g) { var h, i; if (typeof a == "object") { typeof c != "string" && (d = d || c, c = b); for (i in a) this.on(i, c, d, a[i], g); return this } d == null && e == null ? (e = c, d = c = b) : e == null && (typeof c == "string" ? (e = d, d = b) : (e = d, d = c, c = b)); if (e === !1) e = J; else if (!e) return this; g === 1 && (h = e, e = function(a) { f().off(a); return h.apply(this, arguments) }, e.guid = h.guid || (h.guid = f.guid++)); return this.each(function() { f.event.add(this, a, e, d, c) }) }, one: function(a, b, c, d) { return this.on(a, b, c, d, 1) }, off: function(a, c, d) { if (a && a.preventDefault && a.handleObj) { var e = a.handleObj; f(a.delegateTarget).off(e.namespace ? e.origType + "." + e.namespace : e.origType, e.selector, e.handler); return this } if (typeof a == "object") { for (var g in a) this.off(g, c, a[g]); return this } if (c === !1 || typeof c == "function") d = c, c = b; d === !1 && (d = J); return this.each(function() { f.event.remove(this, a, d, c) }) }, bind: function(a, b, c) { return this.on(a, null, b, c) }, unbind: function(a, b) { return this.off(a, null, b) }, live: function(a, b, c) { f(this.context).on(a, this.selector, b, c); return this }, die: function(a, b) { f(this.context).off(a, this.selector || "**", b); return this }, delegate: function(a, b, c, d) { return this.on(b, a, c, d) }, undelegate: function(a, b, c) { return arguments.length == 1 ? this.off(a, "**") : this.off(b, a, c) }, trigger: function(a, b) { return this.each(function() { f.event.trigger(a, b, this) }) }, triggerHandler: function(a, b) { if (this[0]) return f.event.trigger(a, b, this[0], !0) }, toggle: function(a) { var b = arguments, c = a.guid || f.guid++, d = 0, e = function(c) { var e = (f._data(this, "lastToggle" + a.guid) || 0) % d; f._data(this, "lastToggle" + a.guid, e + 1), c.preventDefault(); return b[e].apply(this, arguments) || !1 }; e.guid = c; while (d < b.length) b[d++].guid = c; return this.click(e) }, hover: function(a, b) { return this.mouseenter(a).mouseleave(b || a) } }), f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "), function(a, b) { f.fn[b] = function(a, c) { c == null && (c = a, a = null); return arguments.length > 0 ? this.on(b, null, a, c) : this.trigger(b) }, f.attrFn && (f.attrFn[b] = !0), C.test(b) && (f.event.fixHooks[b] = f.event.keyHooks), D.test(b) && (f.event.fixHooks[b] = f.event.mouseHooks) }), function() { function x(a, b, c, e, f, g) { for (var h = 0, i = e.length; h < i; h++) { var j = e[h]; if (j) { var k = !1; j = j[a]; while (j) { if (j[d] === c) { k = e[j.sizset]; break } if (j.nodeType === 1) { g || (j[d] = c, j.sizset = h); if (typeof b != "string") { if (j === b) { k = !0; break } } else if (m.filter(b, [j]).length > 0) { k = j; break } } j = j[a] } e[h] = k } } } function w(a, b, c, e, f, g) { for (var h = 0, i = e.length; h < i; h++) { var j = e[h]; if (j) { var k = !1; j = j[a]; while (j) { if (j[d] === c) { k = e[j.sizset]; break } j.nodeType === 1 && !g && (j[d] = c, j.sizset = h); if (j.nodeName.toLowerCase() === b) { k = j; break } j = j[a] } e[h] = k } } } var a = /((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g, d = "sizcache" + (Math.random() + "").replace(".", ""), e = 0, g = Object.prototype.toString, h = !1, i = !0, j = /\\/g, k = /\r\n/g, l = /\W/; [0, 0].sort(function() { i = !1; return 0 }); var m = function(b, d, e, f) { e = e || [], d = d || c; var h = d; if (d.nodeType !== 1 && d.nodeType !== 9) return []; if (!b || typeof b != "string") return e; var i, j, k, l, n, q, r, t, u = !0, v = m.isXML(d), w = [], x = b; do { a.exec(""), i = a.exec(x); if (i) { x = i[3], w.push(i[1]); if (i[2]) { l = i[3]; break } } } while (i); if (w.length > 1 && p.exec(b)) if (w.length === 2 && o.relative[w[0]]) j = y(w[0] + w[1], d, f); else { j = o.relative[w[0]] ? [d] : m(w.shift(), d); while (w.length) b = w.shift(), o.relative[b] && (b += w.shift()), j = y(b, j, f) } else { !f && w.length > 1 && d.nodeType === 9 && !v && o.match.ID.test(w[0]) && !o.match.ID.test(w[w.length - 1]) && (n = m.find(w.shift(), d, v), d = n.expr ? m.filter(n.expr, n.set)[0] : n.set[0]); if (d) { n = f ? { expr: w.pop(), set: s(f)} : m.find(w.pop(), w.length === 1 && (w[0] === "~" || w[0] === "+") && d.parentNode ? d.parentNode : d, v), j = n.expr ? m.filter(n.expr, n.set) : n.set, w.length > 0 ? k = s(j) : u = !1; while (w.length) q = w.pop(), r = q, o.relative[q] ? r = w.pop() : q = "", r == null && (r = d), o.relative[q](k, r, v) } else k = w = [] } k || (k = j), k || m.error(q || b); if (g.call(k) === "[object Array]") if (!u) e.push.apply(e, k); else if (d && d.nodeType === 1) for (t = 0; k[t] != null; t++) k[t] && (k[t] === !0 || k[t].nodeType === 1 && m.contains(d, k[t])) && e.push(j[t]); else for (t = 0; k[t] != null; t++) k[t] && k[t].nodeType === 1 && e.push(j[t]); else s(k, e); l && (m(l, h, e, f), m.uniqueSort(e)); return e }; m.uniqueSort = function(a) { if (u) { h = i, a.sort(u); if (h) for (var b = 1; b < a.length; b++) a[b] === a[b - 1] && a.splice(b--, 1) } return a }, m.matches = function(a, b) { return m(a, null, null, b) }, m.matchesSelector = function(a, b) { return m(b, null, null, [a]).length > 0 }, m.find = function(a, b, c) { var d, e, f, g, h, i; if (!a) return []; for (e = 0, f = o.order.length; e < f; e++) { h = o.order[e]; if (g = o.leftMatch[h].exec(a)) { i = g[1], g.splice(1, 1); if (i.substr(i.length - 1) !== "\\") { g[1] = (g[1] || "").replace(j, ""), d = o.find[h](g, b, c); if (d != null) { a = a.replace(o.match[h], ""); break } } } } d || (d = typeof b.getElementsByTagName != "undefined" ? b.getElementsByTagName("*") : []); return { set: d, expr: a} }, m.filter = function(a, c, d, e) { var f, g, h, i, j, k, l, n, p, q = a, r = [], s = c, t = c && c[0] && m.isXML(c[0]); while (a && c.length) { for (h in o.filter) if ((f = o.leftMatch[h].exec(a)) != null && f[2]) { k = o.filter[h], l = f[1], g = !1, f.splice(1, 1); if (l.substr(l.length - 1) === "\\") continue; s === r && (r = []); if (o.preFilter[h]) { f = o.preFilter[h](f, s, d, r, e, t); if (!f) g = i = !0; else if (f === !0) continue } if (f) for (n = 0; (j = s[n]) != null; n++) j && (i = k(j, f, n, s), p = e ^ i, d && i != null ? p ? g = !0 : s[n] = !1 : p && (r.push(j), g = !0)); if (i !== b) { d || (s = r), a = a.replace(o.match[h], ""); if (!g) return []; break } } if (a === q) if (g == null) m.error(a); else break; q = a } return s }, m.error = function(a) { throw new Error("Syntax error, unrecognized expression: " + a) }; var n = m.getText = function(a) { var b, c, d = a.nodeType, e = ""; if (d) { if (d === 1 || d === 9 || d === 11) { if (typeof a.textContent == "string") return a.textContent; if (typeof a.innerText == "string") return a.innerText.replace(k, ""); for (a = a.firstChild; a; a = a.nextSibling) e += n(a) } else if (d === 3 || d === 4) return a.nodeValue } else for (b = 0; c = a[b]; b++) c.nodeType !== 8 && (e += n(c)); return e }, o = m.selectors = { order: ["ID", "NAME", "TAG"], match: { ID: /#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/, CLASS: /\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/, NAME: /\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/, ATTR: /\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/, TAG: /^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/, CHILD: /:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/, POS: /:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/, PSEUDO: /:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/ }, leftMatch: {}, attrMap: { "class": "className", "for": "htmlFor" }, attrHandle: { href: function(a) { return a.getAttribute("href") }, type: function(a) { return a.getAttribute("type") } }, relative: { "+": function(a, b) { var c = typeof b == "string", d = c && !l.test(b), e = c && !d; d && (b = b.toLowerCase()); for (var f = 0, g = a.length, h; f < g; f++) if (h = a[f]) { while ((h = h.previousSibling) && h.nodeType !== 1); a[f] = e || h && h.nodeName.toLowerCase() === b ? h || !1 : h === b } e && m.filter(b, a, !0) }, ">": function(a, b) { var c, d = typeof b == "string", e = 0, f = a.length; if (d && !l.test(b)) { b = b.toLowerCase(); for (; e < f; e++) { c = a[e]; if (c) { var g = c.parentNode; a[e] = g.nodeName.toLowerCase() === b ? g : !1 } } } else { for (; e < f; e++) c = a[e], c && (a[e] = d ? c.parentNode : c.parentNode === b); d && m.filter(b, a, !0) } }, "": function(a, b, c) { var d, f = e++, g = x; typeof b == "string" && !l.test(b) && (b = b.toLowerCase(), d = b, g = w), g("parentNode", b, f, a, d, c) }, "~": function(a, b, c) { var d, f = e++, g = x; typeof b == "string" && !l.test(b) && (b = b.toLowerCase(), d = b, g = w), g("previousSibling", b, f, a, d, c) } }, find: { ID: function(a, b, c) { if (typeof b.getElementById != "undefined" && !c) { var d = b.getElementById(a[1]); return d && d.parentNode ? [d] : [] } }, NAME: function(a, b) { if (typeof b.getElementsByName != "undefined") { var c = [], d = b.getElementsByName(a[1]); for (var e = 0, f = d.length; e < f; e++) d[e].getAttribute("name") === a[1] && c.push(d[e]); return c.length === 0 ? null : c } }, TAG: function(a, b) { if (typeof b.getElementsByTagName != "undefined") return b.getElementsByTagName(a[1]) } }, preFilter: { CLASS: function(a, b, c, d, e, f) { a = " " + a[1].replace(j, "") + " "; if (f) return a; for (var g = 0, h; (h = b[g]) != null; g++) h && (e ^ (h.className && (" " + h.className + " ").replace(/[\t\n\r]/g, " ").indexOf(a) >= 0) ? c || d.push(h) : c && (b[g] = !1)); return !1 }, ID: function(a) { return a[1].replace(j, "") }, TAG: function(a, b) { return a[1].replace(j, "").toLowerCase() }, CHILD: function(a) { if (a[1] === "nth") { a[2] || m.error(a[0]), a[2] = a[2].replace(/^\+|\s*/g, ""); var b = /(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2] === "even" && "2n" || a[2] === "odd" && "2n+1" || !/\D/.test(a[2]) && "0n+" + a[2] || a[2]); a[2] = b[1] + (b[2] || 1) - 0, a[3] = b[3] - 0 } else a[2] && m.error(a[0]); a[0] = e++; return a }, ATTR: function(a, b, c, d, e, f) { var g = a[1] = a[1].replace(j, ""); !f && o.attrMap[g] && (a[1] = o.attrMap[g]), a[4] = (a[4] || a[5] || "").replace(j, ""), a[2] === "~=" && (a[4] = " " + a[4] + " "); return a }, PSEUDO: function(b, c, d, e, f) { if (b[1] === "not") if ((a.exec(b[3]) || "").length > 1 || /^\w/.test(b[3])) b[3] = m(b[3], null, null, c); else { var g = m.filter(b[3], c, d, !0 ^ f); d || e.push.apply(e, g); return !1 } else if (o.match.POS.test(b[0]) || o.match.CHILD.test(b[0])) return !0; return b }, POS: function(a) { a.unshift(!0); return a } }, filters: { enabled: function(a) { return a.disabled === !1 && a.type !== "hidden" }, disabled: function(a) { return a.disabled === !0 }, checked: function(a) { return a.checked === !0 }, selected: function(a) { a.parentNode && a.parentNode.selectedIndex; return a.selected === !0 }, parent: function(a) { return !!a.firstChild }, empty: function(a) { return !a.firstChild }, has: function(a, b, c) { return !!m(c[3], a).length }, header: function(a) { return /h\d/i.test(a.nodeName) }, text: function(a) { var b = a.getAttribute("type"), c = a.type; return a.nodeName.toLowerCase() === "input" && "text" === c && (b === c || b === null) }, radio: function(a) { return a.nodeName.toLowerCase() === "input" && "radio" === a.type }, checkbox: function(a) { return a.nodeName.toLowerCase() === "input" && "checkbox" === a.type }, file: function(a) { return a.nodeName.toLowerCase() === "input" && "file" === a.type }, password: function(a) { return a.nodeName.toLowerCase() === "input" && "password" === a.type }, submit: function(a) { var b = a.nodeName.toLowerCase(); return (b === "input" || b === "button") && "submit" === a.type }, image: function(a) { return a.nodeName.toLowerCase() === "input" && "image" === a.type }, reset: function(a) { var b = a.nodeName.toLowerCase(); return (b === "input" || b === "button") && "reset" === a.type }, button: function(a) { var b = a.nodeName.toLowerCase(); return b === "input" && "button" === a.type || b === "button" }, input: function(a) { return /input|select|textarea|button/i.test(a.nodeName) }, focus: function(a) { return a === a.ownerDocument.activeElement } }, setFilters: { first: function(a, b) { return b === 0 }, last: function(a, b, c, d) { return b === d.length - 1 }, even: function(a, b) { return b % 2 === 0 }, odd: function(a, b) { return b % 2 === 1 }, lt: function(a, b, c) { return b < c[3] - 0 }, gt: function(a, b, c) { return b > c[3] - 0 }, nth: function(a, b, c) { return c[3] - 0 === b }, eq: function(a, b, c) { return c[3] - 0 === b } }, filter: { PSEUDO: function(a, b, c, d) { var e = b[1], f = o.filters[e]; if (f) return f(a, c, b, d); if (e === "contains") return (a.textContent || a.innerText || n([a]) || "").indexOf(b[3]) >= 0; if (e === "not") { var g = b[3]; for (var h = 0, i = g.length; h < i; h++) if (g[h] === a) return !1; return !0 } m.error(e) }, CHILD: function(a, b) { var c, e, f, g, h, i, j, k = b[1], l = a; switch (k) { case "only": case "first": while (l = l.previousSibling) if (l.nodeType === 1) return !1; if (k === "first") return !0; l = a; case "last": while (l = l.nextSibling) if (l.nodeType === 1) return !1; return !0; case "nth": c = b[2], e = b[3]; if (c === 1 && e === 0) return !0; f = b[0], g = a.parentNode; if (g && (g[d] !== f || !a.nodeIndex)) { i = 0; for (l = g.firstChild; l; l = l.nextSibling) l.nodeType === 1 && (l.nodeIndex = ++i); g[d] = f } j = a.nodeIndex - e; return c === 0 ? j === 0 : j % c === 0 && j / c >= 0 } }, ID: function(a, b) { return a.nodeType === 1 && a.getAttribute("id") === b }, TAG: function(a, b) { return b === "*" && a.nodeType === 1 || !!a.nodeName && a.nodeName.toLowerCase() === b }, CLASS: function(a, b) { return (" " + (a.className || a.getAttribute("class")) + " ").indexOf(b) > -1 }, ATTR: function(a, b) { var c = b[1], d = m.attr ? m.attr(a, c) : o.attrHandle[c] ? o.attrHandle[c](a) : a[c] != null ? a[c] : a.getAttribute(c), e = d + "", f = b[2], g = b[4]; return d == null ? f === "!=" : !f && m.attr ? d != null : f === "=" ? e === g : f === "*=" ? e.indexOf(g) >= 0 : f === "~=" ? (" " + e + " ").indexOf(g) >= 0 : g ? f === "!=" ? e !== g : f === "^=" ? e.indexOf(g) === 0 : f === "$=" ? e.substr(e.length - g.length) === g : f === "|=" ? e === g || e.substr(0, g.length + 1) === g + "-" : !1 : e && d !== !1 }, POS: function(a, b, c, d) { var e = b[2], f = o.setFilters[e]; if (f) return f(a, c, b, d) } } }, p = o.match.POS, q = function(a, b) { return "\\" + (b - 0 + 1) }; for (var r in o.match) o.match[r] = new RegExp(o.match[r].source + /(?![^\[]*\])(?![^\(]*\))/.source), o.leftMatch[r] = new RegExp(/(^(?:.|\r|\n)*?)/.source + o.match[r].source.replace(/\\(\d+)/g, q)); o.match.globalPOS = p; var s = function(a, b) { a = Array.prototype.slice.call(a, 0); if (b) { b.push.apply(b, a); return b } return a }; try { Array.prototype.slice.call(c.documentElement.childNodes, 0)[0].nodeType } catch (t) { s = function(a, b) { var c = 0, d = b || []; if (g.call(a) === "[object Array]") Array.prototype.push.apply(d, a); else if (typeof a.length == "number") for (var e = a.length; c < e; c++) d.push(a[c]); else for (; a[c]; c++) d.push(a[c]); return d } } var u, v; c.documentElement.compareDocumentPosition ? u = function(a, b) { if (a === b) { h = !0; return 0 } if (!a.compareDocumentPosition || !b.compareDocumentPosition) return a.compareDocumentPosition ? -1 : 1; return a.compareDocumentPosition(b) & 4 ? -1 : 1 } : (u = function(a, b) { if (a === b) { h = !0; return 0 } if (a.sourceIndex && b.sourceIndex) return a.sourceIndex - b.sourceIndex; var c, d, e = [], f = [], g = a.parentNode, i = b.parentNode, j = g; if (g === i) return v(a, b); if (!g) return -1; if (!i) return 1; while (j) e.unshift(j), j = j.parentNode; j = i; while (j) f.unshift(j), j = j.parentNode; c = e.length, d = f.length; for (var k = 0; k < c && k < d; k++) if (e[k] !== f[k]) return v(e[k], f[k]); return k === c ? v(a, f[k], -1) : v(e[k], b, 1) }, v = function(a, b, c) { if (a === b) return c; var d = a.nextSibling; while (d) { if (d === b) return -1; d = d.nextSibling } return 1 }), function() { var a = c.createElement("div"), d = "script" + (new Date).getTime(), e = c.documentElement; a.innerHTML = "", e.insertBefore(a, e.firstChild), c.getElementById(d) && (o.find.ID = function(a, c, d) { if (typeof c.getElementById != "undefined" && !d) { var e = c.getElementById(a[1]); return e ? e.id === a[1] || typeof e.getAttributeNode != "undefined" && e.getAttributeNode("id").nodeValue === a[1] ? [e] : b : [] } }, o.filter.ID = function(a, b) { var c = typeof a.getAttributeNode != "undefined" && a.getAttributeNode("id"); return a.nodeType === 1 && c && c.nodeValue === b }), e.removeChild(a), e = a = null } (), function() { var a = c.createElement("div"); a.appendChild(c.createComment("")), a.getElementsByTagName("*").length > 0 && (o.find.TAG = function(a, b) { var c = b.getElementsByTagName(a[1]); if (a[1] === "*") { var d = []; for (var e = 0; c[e]; e++) c[e].nodeType === 1 && d.push(c[e]); c = d } return c }), a.innerHTML = "", a.firstChild && typeof a.firstChild.getAttribute != "undefined" && a.firstChild.getAttribute("href") !== "#" && (o.attrHandle.href = function(a) { return a.getAttribute("href", 2) }), a = null } (), c.querySelectorAll && function() { var a = m, b = c.createElement("div"), d = "__sizzle__"; b.innerHTML = "

"; if (!b.querySelectorAll || b.querySelectorAll(".TEST").length !== 0) { m = function(b, e, f, g) { e = e || c; if (!g && !m.isXML(e)) { var h = /^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b); if (h && (e.nodeType === 1 || e.nodeType === 9)) { if (h[1]) return s(e.getElementsByTagName(b), f); if (h[2] && o.find.CLASS && e.getElementsByClassName) return s(e.getElementsByClassName(h[2]), f) } if (e.nodeType === 9) { if (b === "body" && e.body) return s([e.body], f); if (h && h[3]) { var i = e.getElementById(h[3]); if (!i || !i.parentNode) return s([], f); if (i.id === h[3]) return s([i], f) } try { return s(e.querySelectorAll(b), f) } catch (j) { } } else if (e.nodeType === 1 && e.nodeName.toLowerCase() !== "object") { var k = e, l = e.getAttribute("id"), n = l || d, p = e.parentNode, q = /^\s*[+~]/.test(b); l ? n = n.replace(/'/g, "\\$&") : e.setAttribute("id", n), q && p && (e = e.parentNode); try { if (!q || p) return s(e.querySelectorAll("[id='" + n + "'] " + b), f) } catch (r) { } finally { l || k.removeAttribute("id") } } } return a(b, e, f, g) }; for (var e in a) m[e] = a[e]; b = null } } (), function() { var a = c.documentElement, b = a.matchesSelector || a.mozMatchesSelector || a.webkitMatchesSelector || a.msMatchesSelector; if (b) { var d = !b.call(c.createElement("div"), "div"), e = !1; try { b.call(c.documentElement, "[test!='']:sizzle") } catch (f) { e = !0 } m.matchesSelector = function(a, c) { c = c.replace(/\=\s*([^'"\]]*)\s*\]/g, "='$1']"); if (!m.isXML(a)) try { if (e || !o.match.PSEUDO.test(c) && !/!=/.test(c)) { var f = b.call(a, c); if (f || !d || a.document && a.document.nodeType !== 11) return f } } catch (g) { } return m(c, null, null, [a]).length > 0 } } } (), function() { var a = c.createElement("div"); a.innerHTML = "
"; if (!!a.getElementsByClassName && a.getElementsByClassName("e").length !== 0) { a.lastChild.className = "e"; if (a.getElementsByClassName("e").length === 1) return; o.order.splice(1, 0, "CLASS"), o.find.CLASS = function(a, b, c) { if (typeof b.getElementsByClassName != "undefined" && !c) return b.getElementsByClassName(a[1]) }, a = null } } (), c.documentElement.contains ? m.contains = function(a, b) { return a !== b && (a.contains ? a.contains(b) : !0) } : c.documentElement.compareDocumentPosition ? m.contains = function(a, b) { return !!(a.compareDocumentPosition(b) & 16) } : m.contains = function() { return !1 }, m.isXML = function(a) { var b = (a ? a.ownerDocument || a : 0).documentElement; return b ? b.nodeName !== "HTML" : !1 }; var y = function(a, b, c) { var d, e = [], f = "", g = b.nodeType ? [b] : b; while (d = o.match.PSEUDO.exec(a)) f += d[0], a = a.replace(o.match.PSEUDO, ""); a = o.relative[a] ? a + "*" : a; for (var h = 0, i = g.length; h < i; h++) m(a, g[h], e, c); return m.filter(f, e) }; m.attr = f.attr, m.selectors.attrMap = {}, f.find = m, f.expr = m.selectors, f.expr[":"] = f.expr.filters, f.unique = m.uniqueSort, f.text = m.getText, f.isXMLDoc = m.isXML, f.contains = m.contains } (); var L = /Until$/, M = /^(?:parents|prevUntil|prevAll)/, N = /,/, O = /^.[^:#\[\.,]*$/, P = Array.prototype.slice, Q = f.expr.match.globalPOS, R = { children: !0, contents: !0, next: !0, prev: !0 }; f.fn.extend({ find: function(a) { var b = this, c, d; if (typeof a != "string") return f(a).filter(function() { for (c = 0, d = b.length; c < d; c++) if (f.contains(b[c], this)) return !0 }); var e = this.pushStack("", "find", a), g, h, i; for (c = 0, d = this.length; c < d; c++) { g = e.length, f.find(a, this[c], e); if (c > 0) for (h = g; h < e.length; h++) for (i = 0; i < g; i++) if (e[i] === e[h]) { e.splice(h--, 1); break } } return e }, has: function(a) { var b = f(a); return this.filter(function() { for (var a = 0, c = b.length; a < c; a++) if (f.contains(this, b[a])) return !0 }) }, not: function(a) { return this.pushStack(T(this, a, !1), "not", a) }, filter: function(a) { return this.pushStack(T(this, a, !0), "filter", a) }, is: function(a) { return !!a && (typeof a == "string" ? Q.test(a) ? f(a, this.context).index(this[0]) >= 0 : f.filter(a, this).length > 0 : this.filter(a).length > 0) }, closest: function(a, b) { var c = [], d, e, g = this[0]; if (f.isArray(a)) { var h = 1; while (g && g.ownerDocument && g !== b) { for (d = 0; d < a.length; d++) f(g).is(a[d]) && c.push({ selector: a[d], elem: g, level: h }); g = g.parentNode, h++ } return c } var i = Q.test(a) || typeof a != "string" ? f(a, b || this.context) : 0; for (d = 0, e = this.length; d < e; d++) { g = this[d]; while (g) { if (i ? i.index(g) > -1 : f.find.matchesSelector(g, a)) { c.push(g); break } g = g.parentNode; if (!g || !g.ownerDocument || g === b || g.nodeType === 11) break } } c = c.length > 1 ? f.unique(c) : c; return this.pushStack(c, "closest", a) }, index: function(a) { if (!a) return this[0] && this[0].parentNode ? this.prevAll().length : -1; if (typeof a == "string") return f.inArray(this[0], f(a)); return f.inArray(a.jquery ? a[0] : a, this) }, add: function(a, b) { var c = typeof a == "string" ? f(a, b) : f.makeArray(a && a.nodeType ? [a] : a), d = f.merge(this.get(), c); return this.pushStack(S(c[0]) || S(d[0]) ? d : f.unique(d)) }, andSelf: function() { return this.add(this.prevObject) } }), f.each({ parent: function(a) { var b = a.parentNode; return b && b.nodeType !== 11 ? b : null }, parents: function(a) { return f.dir(a, "parentNode") }, parentsUntil: function(a, b, c) { return f.dir(a, "parentNode", c) }, next: function(a) { return f.nth(a, 2, "nextSibling") }, prev: function(a) { return f.nth(a, 2, "previousSibling") }, nextAll: function(a) { return f.dir(a, "nextSibling") }, prevAll: function(a) { return f.dir(a, "previousSibling") }, nextUntil: function(a, b, c) { return f.dir(a, "nextSibling", c) }, prevUntil: function(a, b, c) { return f.dir(a, "previousSibling", c) }, siblings: function(a) { return f.sibling((a.parentNode || {}).firstChild, a) }, children: function(a) { return f.sibling(a.firstChild) }, contents: function(a) { return f.nodeName(a, "iframe") ? a.contentDocument || a.contentWindow.document : f.makeArray(a.childNodes) } }, function(a, b) { f.fn[a] = function(c, d) { var e = f.map(this, b, c); L.test(a) || (d = c), d && typeof d == "string" && (e = f.filter(d, e)), e = this.length > 1 && !R[a] ? f.unique(e) : e, (this.length > 1 || N.test(d)) && M.test(a) && (e = e.reverse()); return this.pushStack(e, a, P.call(arguments).join(",")) } }), f.extend({ filter: function(a, b, c) { c && (a = ":not(" + a + ")"); return b.length === 1 ? f.find.matchesSelector(b[0], a) ? [b[0]] : [] : f.find.matches(a, b) }, dir: function(a, c, d) { var e = [], g = a[c]; while (g && g.nodeType !== 9 && (d === b || g.nodeType !== 1 || !f(g).is(d))) g.nodeType === 1 && e.push(g), g = g[c]; return e }, nth: function(a, b, c, d) { b = b || 1; var e = 0; for (; a; a = a[c]) if (a.nodeType === 1 && ++e === b) break; return a }, sibling: function(a, b) { var c = []; for (; a; a = a.nextSibling) a.nodeType === 1 && a !== b && c.push(a); return c } }); var V = "abbr|article|aside|audio|bdi|canvas|data|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video", W = / jQuery\d+="(?:\d+|null)"/g, X = /^\s+/, Y = /<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig, Z = /<([\w:]+)/, $ = /
", "
"], tr: [2, "", "
"], td: [3, "", "
"], col: [2, "", "
"], area: [1, "", ""], _default: [0, "", ""] }, bh = U(c); bg.optgroup = bg.option, bg.tbody = bg.tfoot = bg.colgroup = bg.caption = bg.thead, bg.th = bg.td, f.support.htmlSerialize || (bg._default = [1, "div
", "
"]), f.fn.extend({ text: function(a) { return f.access(this, function(a) { return a === b ? f.text(this) : this.empty().append((this[0] && this[0].ownerDocument || c).createTextNode(a)) }, null, a, arguments.length) }, wrapAll: function(a) { if (f.isFunction(a)) return this.each(function(b) { f(this).wrapAll(a.call(this, b)) }); if (this[0]) { var b = f(a, this[0].ownerDocument).eq(0).clone(!0); this[0].parentNode && b.insertBefore(this[0]), b.map(function() { var a = this; while (a.firstChild && a.firstChild.nodeType === 1) a = a.firstChild; return a }).append(this) } return this }, wrapInner: function(a) { if (f.isFunction(a)) return this.each(function(b) { f(this).wrapInner(a.call(this, b)) }); return this.each(function() { var b = f(this), c = b.contents(); c.length ? c.wrapAll(a) : b.append(a) }) }, wrap: function(a) { var b = f.isFunction(a); return this.each(function(c) { f(this).wrapAll(b ? a.call(this, c) : a) }) }, unwrap: function() { return this.parent().each(function() { f.nodeName(this, "body") || f(this).replaceWith(this.childNodes) }).end() }, append: function() { return this.domManip(arguments, !0, function(a) { this.nodeType === 1 && this.appendChild(a) }) }, prepend: function() { return this.domManip(arguments, !0, function(a) { this.nodeType === 1 && this.insertBefore(a, this.firstChild) }) }, before: function() { + if (this[0] && this[0].parentNode) return this.domManip(arguments, !1, function(a) { this.parentNode.insertBefore(a, this) }); if (arguments.length) { + var a = f +.clean(arguments); a.push.apply(a, this.toArray()); return this.pushStack(a, "before", arguments) + } +}, after: function() { if (this[0] && this[0].parentNode) return this.domManip(arguments, !1, function(a) { this.parentNode.insertBefore(a, this.nextSibling) }); if (arguments.length) { var a = this.pushStack(this, "after", arguments); a.push.apply(a, f.clean(arguments)); return a } }, remove: function(a, b) { for (var c = 0, d; (d = this[c]) != null; c++) if (!a || f.filter(a, [d]).length) !b && d.nodeType === 1 && (f.cleanData(d.getElementsByTagName("*")), f.cleanData([d])), d.parentNode && d.parentNode.removeChild(d); return this }, empty: function() { for (var a = 0, b; (b = this[a]) != null; a++) { b.nodeType === 1 && f.cleanData(b.getElementsByTagName("*")); while (b.firstChild) b.removeChild(b.firstChild) } return this }, clone: function(a, b) { a = a == null ? !1 : a, b = b == null ? a : b; return this.map(function() { return f.clone(this, a, b) }) }, html: function(a) { return f.access(this, function(a) { var c = this[0] || {}, d = 0, e = this.length; if (a === b) return c.nodeType === 1 ? c.innerHTML.replace(W, "") : null; if (typeof a == "string" && !ba.test(a) && (f.support.leadingWhitespace || !X.test(a)) && !bg[(Z.exec(a) || ["", ""])[1].toLowerCase()]) { a = a.replace(Y, "<$1>"); try { for (; d < e; d++) c = this[d] || {}, c.nodeType === 1 && (f.cleanData(c.getElementsByTagName("*")), c.innerHTML = a); c = 0 } catch (g) { } } c && this.empty().append(a) }, null, a, arguments.length) }, replaceWith: function(a) { if (this[0] && this[0].parentNode) { if (f.isFunction(a)) return this.each(function(b) { var c = f(this), d = c.html(); c.replaceWith(a.call(this, b, d)) }); typeof a != "string" && (a = f(a).detach()); return this.each(function() { var b = this.nextSibling, c = this.parentNode; f(this).remove(), b ? f(b).before(a) : f(c).append(a) }) } return this.length ? this.pushStack(f(f.isFunction(a) ? a() : a), "replaceWith", a) : this }, detach: function(a) { return this.remove(a, !0) }, domManip: function(a, c, d) { var e, g, h, i, j = a[0], k = []; if (!f.support.checkClone && arguments.length === 3 && typeof j == "string" && bd.test(j)) return this.each(function() { f(this).domManip(a, c, d, !0) }); if (f.isFunction(j)) return this.each(function(e) { var g = f(this); a[0] = j.call(this, e, c ? g.html() : b), g.domManip(a, c, d) }); if (this[0]) { i = j && j.parentNode, f.support.parentNode && i && i.nodeType === 11 && i.childNodes.length === this.length ? e = { fragment: i} : e = f.buildFragment(a, this, k), h = e.fragment, h.childNodes.length === 1 ? g = h = h.firstChild : g = h.firstChild; if (g) { c = c && f.nodeName(g, "tr"); for (var l = 0, m = this.length, n = m - 1; l < m; l++) d.call(c ? bi(this[l], g) : this[l], e.cacheable || m > 1 && l < n ? f.clone(h, !0, !0) : h) } k.length && f.each(k, function(a, b) { b.src ? f.ajax({ type: "GET", global: !1, url: b.src, async: !1, dataType: "script" }) : f.globalEval((b.text || b.textContent || b.innerHTML || "").replace(bf, "/*$0*/")), b.parentNode && b.parentNode.removeChild(b) }) } return this } +}), f.buildFragment = function(a, b, d) { var e, g, h, i, j = a[0]; b && b[0] && (i = b[0].ownerDocument || b[0]), i.createDocumentFragment || (i = c), a.length === 1 && typeof j == "string" && j.length < 512 && i === c && j.charAt(0) === "<" && !bb.test(j) && (f.support.checkClone || !bd.test(j)) && (f.support.html5Clone || !bc.test(j)) && (g = !0, h = f.fragments[j], h && h !== 1 && (e = h)), e || (e = i.createDocumentFragment(), f.clean(a, i, e, d)), g && (f.fragments[j] = h ? e : 1); return { fragment: e, cacheable: g} }, f.fragments = {}, f.each({ appendTo: "append", prependTo: "prepend", insertBefore: "before", insertAfter: "after", replaceAll: "replaceWith" }, function(a, b) { f.fn[a] = function(c) { var d = [], e = f(c), g = this.length === 1 && this[0].parentNode; if (g && g.nodeType === 11 && g.childNodes.length === 1 && e.length === 1) { e[b](this[0]); return this } for (var h = 0, i = e.length; h < i; h++) { var j = (h > 0 ? this.clone(!0) : this).get(); f(e[h])[b](j), d = d.concat(j) } return this.pushStack(d, a, e.selector) } }), f.extend({ clone: function(a, b, c) { var d, e, g, h = f.support.html5Clone || f.isXMLDoc(a) || !bc.test("<" + a.nodeName + ">") ? a.cloneNode(!0) : bo(a); if ((!f.support.noCloneEvent || !f.support.noCloneChecked) && (a.nodeType === 1 || a.nodeType === 11) && !f.isXMLDoc(a)) { bk(a, h), d = bl(a), e = bl(h); for (g = 0; d[g]; ++g) e[g] && bk(d[g], e[g]) } if (b) { bj(a, h); if (c) { d = bl(a), e = bl(h); for (g = 0; d[g]; ++g) bj(d[g], e[g]) } } d = e = null; return h }, clean: function(a, b, d, e) { var g, h, i, j = []; b = b || c, typeof b.createElement == "undefined" && (b = b.ownerDocument || b[0] && b[0].ownerDocument || c); for (var k = 0, l; (l = a[k]) != null; k++) { typeof l == "number" && (l += ""); if (!l) continue; if (typeof l == "string") if (!_.test(l)) l = b.createTextNode(l); else { l = l.replace(Y, "<$1>"); var m = (Z.exec(l) || ["", ""])[1].toLowerCase(), n = bg[m] || bg._default, o = n[0], p = b.createElement("div"), q = bh.childNodes, r; b === c ? bh.appendChild(p) : U(b).appendChild(p), p.innerHTML = n[1] + l + n[2]; while (o--) p = p.lastChild; if (!f.support.tbody) { var s = $.test(l), t = m === "table" && !s ? p.firstChild && p.firstChild.childNodes : n[1] === "" && !s ? p.childNodes : []; for (i = t.length - 1; i >= 0; --i) f.nodeName(t[i], "tbody") && !t[i].childNodes.length && t[i].parentNode.removeChild(t[i]) } !f.support.leadingWhitespace && X.test(l) && p.insertBefore(b.createTextNode(X.exec(l)[0]), p.firstChild), l = p.childNodes, p && (p.parentNode.removeChild(p), q.length > 0 && (r = q[q.length - 1], r && r.parentNode && r.parentNode.removeChild(r))) } var u; if (!f.support.appendChecked) if (l[0] && typeof (u = l.length) == "number") for (i = 0; i < u; i++) bn(l[i]); else bn(l); l.nodeType ? j.push(l) : j = f.merge(j, l) } if (d) { g = function(a) { return !a.type || be.test(a.type) }; for (k = 0; j[k]; k++) { h = j[k]; if (e && f.nodeName(h, "script") && (!h.type || be.test(h.type))) e.push(h.parentNode ? h.parentNode.removeChild(h) : h); else { if (h.nodeType === 1) { var v = f.grep(h.getElementsByTagName("script"), g); j.splice.apply(j, [k + 1, 0].concat(v)) } d.appendChild(h) } } } return j }, cleanData: function(a) { var b, c, d = f.cache, e = f.event.special, g = f.support.deleteExpando; for (var h = 0, i; (i = a[h]) != null; h++) { if (i.nodeName && f.noData[i.nodeName.toLowerCase()]) continue; c = i[f.expando]; if (c) { b = d[c]; if (b && b.events) { for (var j in b.events) e[j] ? f.event.remove(i, j) : f.removeEvent(i, j, b.handle); b.handle && (b.handle.elem = null) } g ? delete i[f.expando] : i.removeAttribute && i.removeAttribute(f.expando), delete d[c] } } } }); var bp = /alpha\([^)]*\)/i, bq = /opacity=([^)]*)/, br = /([A-Z]|^ms)/g, bs = /^[\-+]?(?:\d*\.)?\d+$/i, bt = /^-?(?:\d*\.)?\d+(?!px)[^\d\s]+$/i, bu = /^([\-+])=([\-+.\de]+)/, bv = /^margin/, bw = { position: "absolute", visibility: "hidden", display: "block" }, bx = ["Top", "Right", "Bottom", "Left"], by, bz, bA; f.fn.css = function(a, c) { return f.access(this, function(a, c, d) { return d !== b ? f.style(a, c, d) : f.css(a, c) }, a, c, arguments.length > 1) }, f.extend({ cssHooks: { opacity: { get: function(a, b) { if (b) { var c = by(a, "opacity"); return c === "" ? "1" : c } return a.style.opacity } } }, cssNumber: { fillOpacity: !0, fontWeight: !0, lineHeight: !0, opacity: !0, orphans: !0, widows: !0, zIndex: !0, zoom: !0 }, cssProps: { "float": f.support.cssFloat ? "cssFloat" : "styleFloat" }, style: function(a, c, d, e) { if (!!a && a.nodeType !== 3 && a.nodeType !== 8 && !!a.style) { var g, h, i = f.camelCase(c), j = a.style, k = f.cssHooks[i]; c = f.cssProps[i] || i; if (d === b) { if (k && "get" in k && (g = k.get(a, !1, e)) !== b) return g; return j[c] } h = typeof d, h === "string" && (g = bu.exec(d)) && (d = +(g[1] + 1) * +g[2] + parseFloat(f.css(a, c)), h = "number"); if (d == null || h === "number" && isNaN(d)) return; h === "number" && !f.cssNumber[i] && (d += "px"); if (!k || !("set" in k) || (d = k.set(a, d)) !== b) try { j[c] = d } catch (l) { } } }, css: function(a, c, d) { var e, g; c = f.camelCase(c), g = f.cssHooks[c], c = f.cssProps[c] || c, c === "cssFloat" && (c = "float"); if (g && "get" in g && (e = g.get(a, !0, d)) !== b) return e; if (by) return by(a, c) }, swap: function(a, b, c) { var d = {}, e, f; for (f in b) d[f] = a.style[f], a.style[f] = b[f]; e = c.call(a); for (f in b) a.style[f] = d[f]; return e } }), f.curCSS = f.css, c.defaultView && c.defaultView.getComputedStyle && (bz = function(a, b) { var c, d, e, g, h = a.style; b = b.replace(br, "-$1").toLowerCase(), (d = a.ownerDocument.defaultView) && (e = d.getComputedStyle(a, null)) && (c = e.getPropertyValue(b), c === "" && !f.contains(a.ownerDocument.documentElement, a) && (c = f.style(a, b))), !f.support.pixelMargin && e && bv.test(b) && bt.test(c) && (g = h.width, h.width = c, c = e.width, h.width = g); return c }), c.documentElement.currentStyle && (bA = function(a, b) { var c, d, e, f = a.currentStyle && a.currentStyle[b], g = a.style; f == null && g && (e = g[b]) && (f = e), bt.test(f) && (c = g.left, d = a.runtimeStyle && a.runtimeStyle.left, d && (a.runtimeStyle.left = a.currentStyle.left), g.left = b === "fontSize" ? "1em" : f, f = g.pixelLeft + "px", g.left = c, d && (a.runtimeStyle.left = d)); return f === "" ? "auto" : f }), by = bz || bA, f.each(["height", "width"], function(a, b) { f.cssHooks[b] = { get: function(a, c, d) { if (c) return a.offsetWidth !== 0 ? bB(a, b, d) : f.swap(a, bw, function() { return bB(a, b, d) }) }, set: function(a, b) { return bs.test(b) ? b + "px" : b } } }), f.support.opacity || (f.cssHooks.opacity = { get: function(a, b) { return bq.test((b && a.currentStyle ? a.currentStyle.filter : a.style.filter) || "") ? parseFloat(RegExp.$1) / 100 + "" : b ? "1" : "" }, set: function(a, b) { var c = a.style, d = a.currentStyle, e = f.isNumeric(b) ? "alpha(opacity=" + b * 100 + ")" : "", g = d && d.filter || c.filter || ""; c.zoom = 1; if (b >= 1 && f.trim(g.replace(bp, "")) === "") { c.removeAttribute("filter"); if (d && !d.filter) return } c.filter = bp.test(g) ? g.replace(bp, e) : g + " " + e } }), f(function() { f.support.reliableMarginRight || (f.cssHooks.marginRight = { get: function(a, b) { return f.swap(a, { display: "inline-block" }, function() { return b ? by(a, "margin-right") : a.style.marginRight }) } }) }), f.expr && f.expr.filters && (f.expr.filters.hidden = function(a) { var b = a.offsetWidth, c = a.offsetHeight; return b === 0 && c === 0 || !f.support.reliableHiddenOffsets && (a.style && a.style.display || f.css(a, "display")) === "none" }, f.expr.filters.visible = function(a) { return !f.expr.filters.hidden(a) }), f.each({ margin: "", padding: "", border: "Width" }, function(a, b) { f.cssHooks[a + b] = { expand: function(c) { var d, e = typeof c == "string" ? c.split(" ") : [c], f = {}; for (d = 0; d < 4; d++) f[a + bx[d] + b] = e[d] || e[d - 2] || e[0]; return f } } }); var bC = /%20/g, bD = /\[\]$/, bE = /\r?\n/g, bF = /#.*$/, bG = /^(.*?):[ \t]*([^\r\n]*)\r?$/mg, bH = /^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i, bI = /^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/, bJ = /^(?:GET|HEAD)$/, bK = /^\/\//, bL = /\?/, bM = /)<[^<]*)*<\/script>/gi, bN = /^(?:select|textarea)/i, bO = /\s+/, bP = /([?&])_=[^&]*/, bQ = /^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/, bR = f.fn.load, bS = {}, bT = {}, bU, bV, bW = ["*/"] + ["*"]; try { bU = e.href } catch (bX) { bU = c.createElement("a"), bU.href = "", bU = bU.href } bV = bQ.exec(bU.toLowerCase()) || [], f.fn.extend({ load: function(a, c, d) { if (typeof a != "string" && bR) return bR.apply(this, arguments); if (!this.length) return this; var e = a.indexOf(" "); if (e >= 0) { var g = a.slice(e, a.length); a = a.slice(0, e) } var h = "GET"; c && (f.isFunction(c) ? (d = c, c = b) : typeof c == "object" && (c = f.param(c, f.ajaxSettings.traditional), h = "POST")); var i = this; f.ajax({ url: a, type: h, dataType: "html", data: c, complete: function(a, b, c) { c = a.responseText, a.isResolved() && (a.done(function(a) { c = a }), i.html(g ? f("
").append(c.replace(bM, "")).find(g) : c)), d && i.each(d, [c, b, a]) } }); return this }, serialize: function() { return f.param(this.serializeArray()) }, serializeArray: function() { return this.map(function() { return this.elements ? f.makeArray(this.elements) : this }).filter(function() { return this.name && !this.disabled && (this.checked || bN.test(this.nodeName) || bH.test(this.type)) }).map(function(a, b) { var c = f(this).val(); return c == null ? null : f.isArray(c) ? f.map(c, function(a, c) { return { name: b.name, value: a.replace(bE, "\r\n")} }) : { name: b.name, value: c.replace(bE, "\r\n")} }).get() } }), f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "), function(a, b) { f.fn[b] = function(a) { return this.on(b, a) } }), f.each(["get", "post"], function(a, c) { f[c] = function(a, d, e, g) { f.isFunction(d) && (g = g || e, e = d, d = b); return f.ajax({ type: c, url: a, data: d, success: e, dataType: g }) } }), f.extend({ getScript: function(a, c) { return f.get(a, b, c, "script") }, getJSON: function(a, b, c) { return f.get(a, b, c, "json") }, ajaxSetup: function(a, b) { b ? b$(a, f.ajaxSettings) : (b = a, a = f.ajaxSettings), b$(a, b); return a }, ajaxSettings: { url: bU, isLocal: bI.test(bV[1]), global: !0, type: "GET", contentType: "application/x-www-form-urlencoded; charset=UTF-8", processData: !0, async: !0, accepts: { xml: "application/xml, text/xml", html: "text/html", text: "text/plain", json: "application/json, text/javascript", "*": bW }, contents: { xml: /xml/, html: /html/, json: /json/ }, responseFields: { xml: "responseXML", text: "responseText" }, converters: { "* text": a.String, "text html": !0, "text json": f.parseJSON, "text xml": f.parseXML }, flatOptions: { context: !0, url: !0} }, ajaxPrefilter: bY(bS), ajaxTransport: bY(bT), ajax: function(a, c) { function w(a, c, l, m) { if (s !== 2) { s = 2, q && clearTimeout(q), p = b, n = m || "", v.readyState = a > 0 ? 4 : 0; var o, r, u, w = c, x = l ? ca(d, v, l) : b, y, z; if (a >= 200 && a < 300 || a === 304) { if (d.ifModified) { if (y = v.getResponseHeader("Last-Modified")) f.lastModified[k] = y; if (z = v.getResponseHeader("Etag")) f.etag[k] = z } if (a === 304) w = "notmodified", o = !0; else try { r = cb(d, x), w = "success", o = !0 } catch (A) { w = "parsererror", u = A } } else { u = w; if (!w || a) w = "error", a < 0 && (a = 0) } v.status = a, v.statusText = "" + (c || w), o ? h.resolveWith(e, [r, w, v]) : h.rejectWith(e, [v, w, u]), v.statusCode(j), j = b, t && g.trigger("ajax" + (o ? "Success" : "Error"), [v, d, o ? r : u]), i.fireWith(e, [v, w]), t && (g.trigger("ajaxComplete", [v, d]), --f.active || f.event.trigger("ajaxStop")) } } typeof a == "object" && (c = a, a = b), c = c || {}; var d = f.ajaxSetup({}, c), e = d.context || d, g = e !== d && (e.nodeType || e instanceof f) ? f(e) : f.event, h = f.Deferred(), i = f.Callbacks("once memory"), j = d.statusCode || {}, k, l = {}, m = {}, n, o, p, q, r, s = 0, t, u, v = { readyState: 0, setRequestHeader: function(a, b) { if (!s) { var c = a.toLowerCase(); a = m[c] = m[c] || a, l[a] = b } return this }, getAllResponseHeaders: function() { return s === 2 ? n : null }, getResponseHeader: function(a) { var c; if (s === 2) { if (!o) { o = {}; while (c = bG.exec(n)) o[c[1].toLowerCase()] = c[2] } c = o[a.toLowerCase()] } return c === b ? null : c }, overrideMimeType: function(a) { s || (d.mimeType = a); return this }, abort: function(a) { a = a || "abort", p && p.abort(a), w(0, a); return this } }; h.promise(v), v.success = v.done, v.error = v.fail, v.complete = i.add, v.statusCode = function(a) { if (a) { var b; if (s < 2) for (b in a) j[b] = [j[b], a[b]]; else b = a[v.status], v.then(b, b) } return this }, d.url = ((a || d.url) + "").replace(bF, "").replace(bK, bV[1] + "//"), d.dataTypes = f.trim(d.dataType || "*").toLowerCase().split(bO), d.crossDomain == null && (r = bQ.exec(d.url.toLowerCase()), d.crossDomain = !(!r || r[1] == bV[1] && r[2] == bV[2] && (r[3] || (r[1] === "http:" ? 80 : 443)) == (bV[3] || (bV[1] === "http:" ? 80 : 443)))), d.data && d.processData && typeof d.data != "string" && (d.data = f.param(d.data, d.traditional)), bZ(bS, d, c, v); if (s === 2) return !1; t = d.global, d.type = d.type.toUpperCase(), d.hasContent = !bJ.test(d.type), t && f.active++ === 0 && f.event.trigger("ajaxStart"); if (!d.hasContent) { d.data && (d.url += (bL.test(d.url) ? "&" : "?") + d.data, delete d.data), k = d.url; if (d.cache === !1) { var x = f.now(), y = d.url.replace(bP, "$1_=" + x); d.url = y + (y === d.url ? (bL.test(d.url) ? "&" : "?") + "_=" + x : "") } } (d.data && d.hasContent && d.contentType !== !1 || c.contentType) && v.setRequestHeader("Content-Type", d.contentType), d.ifModified && (k = k || d.url, f.lastModified[k] && v.setRequestHeader("If-Modified-Since", f.lastModified[k]), f.etag[k] && v.setRequestHeader("If-None-Match", f.etag[k])), v.setRequestHeader("Accept", d.dataTypes[0] && d.accepts[d.dataTypes[0]] ? d.accepts[d.dataTypes[0]] + (d.dataTypes[0] !== "*" ? ", " + bW + "; q=0.01" : "") : d.accepts["*"]); for (u in d.headers) v.setRequestHeader(u, d.headers[u]); if (d.beforeSend && (d.beforeSend.call(e, v, d) === !1 || s === 2)) { v.abort(); return !1 } for (u in { success: 1, error: 1, complete: 1 }) v[u](d[u]); p = bZ(bT, d, c, v); if (!p) w(-1, "No Transport"); else { v.readyState = 1, t && g.trigger("ajaxSend", [v, d]), d.async && d.timeout > 0 && (q = setTimeout(function() { v.abort("timeout") }, d.timeout)); try { s = 1, p.send(l, w) } catch (z) { if (s < 2) w(-1, z); else throw z } } return v }, param: function(a, c) { var d = [], e = function(a, b) { b = f.isFunction(b) ? b() : b, d[d.length] = encodeURIComponent(a) + "=" + encodeURIComponent(b) }; c === b && (c = f.ajaxSettings.traditional); if (f.isArray(a) || a.jquery && !f.isPlainObject(a)) f.each(a, function() { e(this.name, this.value) }); else for (var g in a) b_(g, a[g], c, e); return d.join("&").replace(bC, "+") } }), f.extend({ active: 0, lastModified: {}, etag: {} }); var cc = f.now(), cd = /(\=)\?(&|$)|\?\?/i; f.ajaxSetup({ jsonp: "callback", jsonpCallback: function() { return f.expando + "_" + cc++ } }), f.ajaxPrefilter("json jsonp", function(b, c, d) { var e = typeof b.data == "string" && /^application\/x\-www\-form\-urlencoded/.test(b.contentType); if (b.dataTypes[0] === "jsonp" || b.jsonp !== !1 && (cd.test(b.url) || e && cd.test(b.data))) { var g, h = b.jsonpCallback = f.isFunction(b.jsonpCallback) ? b.jsonpCallback() : b.jsonpCallback, i = a[h], j = b.url, k = b.data, l = "$1" + h + "$2"; b.jsonp !== !1 && (j = j.replace(cd, l), b.url === j && (e && (k = k.replace(cd, l)), b.data === k && (j += (/\?/.test(j) ? "&" : "?") + b.jsonp + "=" + h))), b.url = j, b.data = k, a[h] = function(a) { g = [a] }, d.always(function() { a[h] = i, g && f.isFunction(i) && a[h](g[0]) }), b.converters["script json"] = function() { g || f.error(h + " was not called"); return g[0] }, b.dataTypes[0] = "json"; return "script" } }), f.ajaxSetup({ accepts: { script: "text/javascript, application/javascript, application/ecmascript, application/x-ecmascript" }, contents: { script: /javascript|ecmascript/ }, converters: { "text script": function(a) { f.globalEval(a); return a } } }), f.ajaxPrefilter("script", function(a) { a.cache === b && (a.cache = !1), a.crossDomain && (a.type = "GET", a.global = !1) }), f.ajaxTransport("script", function(a) { if (a.crossDomain) { var d, e = c.head || c.getElementsByTagName("head")[0] || c.documentElement; return { send: function(f, g) { d = c.createElement("script"), d.async = "async", a.scriptCharset && (d.charset = a.scriptCharset), d.src = a.url, d.onload = d.onreadystatechange = function(a, c) { if (c || !d.readyState || /loaded|complete/.test(d.readyState)) d.onload = d.onreadystatechange = null, e && d.parentNode && e.removeChild(d), d = b, c || g(200, "success") }, e.insertBefore(d, e.firstChild) }, abort: function() { d && d.onload(0, 1) } } } }); var ce = a.ActiveXObject ? function() { for (var a in cg) cg[a](0, 1) } : !1, cf = 0, cg; f.ajaxSettings.xhr = a.ActiveXObject ? function() { return !this.isLocal && ch() || ci() } : ch, function(a) { f.extend(f.support, { ajax: !!a, cors: !!a && "withCredentials" in a }) } (f.ajaxSettings.xhr()), f.support.ajax && f.ajaxTransport(function(c) { if (!c.crossDomain || f.support.cors) { var d; return { send: function(e, g) { var h = c.xhr(), i, j; c.username ? h.open(c.type, c.url, c.async, c.username, c.password) : h.open(c.type, c.url, c.async); if (c.xhrFields) for (j in c.xhrFields) h[j] = c.xhrFields[j]; c.mimeType && h.overrideMimeType && h.overrideMimeType(c.mimeType), !c.crossDomain && !e["X-Requested-With"] && (e["X-Requested-With"] = "XMLHttpRequest"); try { for (j in e) h.setRequestHeader(j, e[j]) } catch (k) { } h.send(c.hasContent && c.data || null), d = function(a, e) { var j, k, l, m, n; try { if (d && (e || h.readyState === 4)) { d = b, i && (h.onreadystatechange = f.noop, ce && delete cg[i]); if (e) h.readyState !== 4 && h.abort(); else { j = h.status, l = h.getAllResponseHeaders(), m = {}, n = h.responseXML, n && n.documentElement && (m.xml = n); try { m.text = h.responseText } catch (a) { } try { k = h.statusText } catch (o) { k = "" } !j && c.isLocal && !c.crossDomain ? j = m.text ? 200 : 404 : j === 1223 && (j = 204) } } } catch (p) { e || g(-1, p) } m && g(j, k, m, l) }, !c.async || h.readyState === 4 ? d() : (i = ++cf, ce && (cg || (cg = {}, f(a).unload(ce)), cg[i] = d), h.onreadystatechange = d) }, abort: function() { d && d(0, 1) } } } }); var cj = {}, ck, cl, cm = /^(?:toggle|show|hide)$/, cn = /^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i, co, cp = [["height", "marginTop", "marginBottom", "paddingTop", "paddingBottom"], ["width", "marginLeft", "marginRight", "paddingLeft", "paddingRight"], ["opacity"]], cq; f.fn.extend({ show: function(a, b, c) { var d, e; if (a || a === 0) return this.animate(ct("show", 3), a, b, c); for (var g = 0, h = this.length; g < h; g++) d = this[g], d.style && (e = d.style.display, !f._data(d, "olddisplay") && e === "none" && (e = d.style.display = ""), (e === "" && f.css(d, "display") === "none" || !f.contains(d.ownerDocument.documentElement, d)) && f._data(d, "olddisplay", cu(d.nodeName))); for (g = 0; g < h; g++) { d = this[g]; if (d.style) { e = d.style.display; if (e === "" || e === "none") d.style.display = f._data(d, "olddisplay") || "" } } return this }, hide: function(a, b, c) { if (a || a === 0) return this.animate(ct("hide", 3), a, b, c); var d, e, g = 0, h = this.length; for (; g < h; g++) d = this[g], d.style && (e = f.css(d, "display"), e !== "none" && !f._data(d, "olddisplay") && f._data(d, "olddisplay", e)); for (g = 0; g < h; g++) this[g].style && (this[g].style.display = "none"); return this }, _toggle: f.fn.toggle, toggle: function(a, b, c) { var d = typeof a == "boolean"; f.isFunction(a) && f.isFunction(b) ? this._toggle.apply(this, arguments) : a == null || d ? this.each(function() { var b = d ? a : f(this).is(":hidden"); f(this)[b ? "show" : "hide"]() }) : this.animate(ct("toggle", 3), a, b, c); return this }, fadeTo: function(a, b, c, d) { return this.filter(":hidden").css("opacity", 0).show().end().animate({ opacity: b }, a, c, d) }, animate: function(a, b, c, d) { function g() { e.queue === !1 && f._mark(this); var b = f.extend({}, e), c = this.nodeType === 1, d = c && f(this).is(":hidden"), g, h, i, j, k, l, m, n, o, p, q; b.animatedProperties = {}; for (i in a) { g = f.camelCase(i), i !== g && (a[g] = a[i], delete a[i]); if ((k = f.cssHooks[g]) && "expand" in k) { l = k.expand(a[g]), delete a[g]; for (i in l) i in a || (a[i] = l[i]) } } for (g in a) { h = a[g], f.isArray(h) ? (b.animatedProperties[g] = h[1], h = a[g] = h[0]) : b.animatedProperties[g] = b.specialEasing && b.specialEasing[g] || b.easing || "swing"; if (h === "hide" && d || h === "show" && !d) return b.complete.call(this); c && (g === "height" || g === "width") && (b.overflow = [this.style.overflow, this.style.overflowX, this.style.overflowY], f.css(this, "display") === "inline" && f.css(this, "float") === "none" && (!f.support.inlineBlockNeedsLayout || cu(this.nodeName) === "inline" ? this.style.display = "inline-block" : this.style.zoom = 1)) } b.overflow != null && (this.style.overflow = "hidden"); for (i in a) j = new f.fx(this, b, i), h = a[i], cm.test(h) ? (q = f._data(this, "toggle" + i) || (h === "toggle" ? d ? "show" : "hide" : 0), q ? (f._data(this, "toggle" + i, q === "show" ? "hide" : "show"), j[q]()) : j[h]()) : (m = cn.exec(h), n = j.cur(), m ? (o = parseFloat(m[2]), p = m[3] || (f.cssNumber[i] ? "" : "px"), p !== "px" && (f.style(this, i, (o || 1) + p), n = (o || 1) / j.cur() * n, f.style(this, i, n + p)), m[1] && (o = (m[1] === "-=" ? -1 : 1) * o + n), j.custom(n, o, p)) : j.custom(n, h, "")); return !0 } var e = f.speed(b, c, d); if (f.isEmptyObject(a)) return this.each(e.complete, [!1]); a = f.extend({}, a); return e.queue === !1 ? this.each(g) : this.queue(e.queue, g) }, stop: function(a, c, d) { typeof a != "string" && (d = c, c = a, a = b), c && a !== !1 && this.queue(a || "fx", []); return this.each(function() { function h(a, b, c) { var e = b[c]; f.removeData(a, c, !0), e.stop(d) } var b, c = !1, e = f.timers, g = f._data(this); d || f._unmark(!0, this); if (a == null) for (b in g) g[b] && g[b].stop && b.indexOf(".run") === b.length - 4 && h(this, g, b); else g[b = a + ".run"] && g[b].stop && h(this, g, b); for (b = e.length; b--; ) e[b].elem === this && (a == null || e[b].queue === a) && (d ? e[b](!0) : e[b].saveState(), c = !0, e.splice(b, 1)); (!d || !c) && f.dequeue(this, a) }) } }), f.each({ slideDown: ct("show", 1), slideUp: ct("hide", 1), slideToggle: ct("toggle", 1), fadeIn: { opacity: "show" }, fadeOut: { opacity: "hide" }, fadeToggle: { opacity: "toggle"} }, function(a, b) { f.fn[a] = function(a, c, d) { return this.animate(b, a, c, d) } }), f.extend({ speed: function(a, b, c) { var d = a && typeof a == "object" ? f.extend({}, a) : { complete: c || !c && b || f.isFunction(a) && a, duration: a, easing: c && b || b && !f.isFunction(b) && b }; d.duration = f.fx.off ? 0 : typeof d.duration == "number" ? d.duration : d.duration in f.fx.speeds ? f.fx.speeds[d.duration] : f.fx.speeds._default; if (d.queue == null || d.queue === !0) d.queue = "fx"; d.old = d.complete, d.complete = function(a) { f.isFunction(d.old) && d.old.call(this), d.queue ? f.dequeue(this, d.queue) : a !== !1 && f._unmark(this) }; return d }, easing: { linear: function(a) { return a }, swing: function(a) { return -Math.cos(a * Math.PI) / 2 + .5 } }, timers: [], fx: function(a, b, c) { this.options = b, this.elem = a, this.prop = c, b.orig = b.orig || {} } }), f.fx.prototype = { update: function() { this.options.step && this.options.step.call(this.elem, this.now, this), (f.fx.step[this.prop] || f.fx.step._default)(this) }, cur: function() { if (this.elem[this.prop] != null && (!this.elem.style || this.elem.style[this.prop] == null)) return this.elem[this.prop]; var a, b = f.css(this.elem, this.prop); return isNaN(a = parseFloat(b)) ? !b || b === "auto" ? 0 : b : a }, custom: function(a, c, d) { function h(a) { return e.step(a) } var e = this, g = f.fx; this.startTime = cq || cr(), this.end = c, this.now = this.start = a, this.pos = this.state = 0, this.unit = d || this.unit || (f.cssNumber[this.prop] ? "" : "px"), h.queue = this.options.queue, h.elem = this.elem, h.saveState = function() { f._data(e.elem, "fxshow" + e.prop) === b && (e.options.hide ? f._data(e.elem, "fxshow" + e.prop, e.start) : e.options.show && f._data(e.elem, "fxshow" + e.prop, e.end)) }, h() && f.timers.push(h) && !co && (co = setInterval(g.tick, g.interval)) }, show: function() { var a = f._data(this.elem, "fxshow" + this.prop); this.options.orig[this.prop] = a || f.style(this.elem, this.prop), this.options.show = !0, a !== b ? this.custom(this.cur(), a) : this.custom(this.prop === "width" || this.prop === "height" ? 1 : 0, this.cur()), f(this.elem).show() }, hide: function() { this.options.orig[this.prop] = f._data(this.elem, "fxshow" + this.prop) || f.style(this.elem, this.prop), this.options.hide = !0, this.custom(this.cur(), 0) }, step: function(a) { var b, c, d, e = cq || cr(), g = !0, h = this.elem, i = this.options; if (a || e >= i.duration + this.startTime) { this.now = this.end, this.pos = this.state = 1, this.update(), i.animatedProperties[this.prop] = !0; for (b in i.animatedProperties) i.animatedProperties[b] !== !0 && (g = !1); if (g) { i.overflow != null && !f.support.shrinkWrapBlocks && f.each(["", "X", "Y"], function(a, b) { h.style["overflow" + b] = i.overflow[a] }), i.hide && f(h).hide(); if (i.hide || i.show) for (b in i.animatedProperties) f.style(h, b, i.orig[b]), f.removeData(h, "fxshow" + b, !0), f.removeData(h, "toggle" + b, !0); d = i.complete, d && (i.complete = !1, d.call(h)) } return !1 } i.duration == Infinity ? this.now = e : (c = e - this.startTime, this.state = c / i.duration, this.pos = f.easing[i.animatedProperties[this.prop]](this.state, c, 0, 1, i.duration), this.now = this.start + (this.end - this.start) * this.pos), this.update(); return !0 } }, f.extend(f.fx, { tick: function() { var a, b = f.timers, c = 0; for (; c < b.length; c++) a = b[c], !a() && b[c] === a && b.splice(c--, 1); b.length || f.fx.stop() }, interval: 13, stop: function() { clearInterval(co), co = null }, speeds: { slow: 600, fast: 200, _default: 400 }, step: { opacity: function(a) { f.style(a.elem, "opacity", a.now) }, _default: function(a) { a.elem.style && a.elem.style[a.prop] != null ? a.elem.style[a.prop] = a.now + a.unit : a.elem[a.prop] = a.now } } }), f.each(cp.concat.apply([], cp), function(a, b) { b.indexOf("margin") && (f.fx.step[b] = function(a) { f.style(a.elem, b, Math.max(0, a.now) + a.unit) }) }), f.expr && f.expr.filters && (f.expr.filters.animated = function(a) { return f.grep(f.timers, function(b) { return a === b.elem }).length }); var cv, cw = /^t(?:able|d|h)$/i, cx = /^(?:body|html)$/i; "getBoundingClientRect" in c.documentElement ? cv = function(a, b, c, d) { try { d = a.getBoundingClientRect() } catch (e) { } if (!d || !f.contains(c, a)) return d ? { top: d.top, left: d.left} : { top: 0, left: 0 }; var g = b.body, h = cy(b), i = c.clientTop || g.clientTop || 0, j = c.clientLeft || g.clientLeft || 0, k = h.pageYOffset || f.support.boxModel && c.scrollTop || g.scrollTop, l = h.pageXOffset || f.support.boxModel && c.scrollLeft || g.scrollLeft, m = d.top + k - i, n = d.left + l - j; return { top: m, left: n} } : cv = function(a, b, c) { var d, e = a.offsetParent, g = a, h = b.body, i = b.defaultView, j = i ? i.getComputedStyle(a, null) : a.currentStyle, k = a.offsetTop, l = a.offsetLeft; while ((a = a.parentNode) && a !== h && a !== c) { if (f.support.fixedPosition && j.position === "fixed") break; d = i ? i.getComputedStyle(a, null) : a.currentStyle, k -= a.scrollTop, l -= a.scrollLeft, a === e && (k += a.offsetTop, l += a.offsetLeft, f.support.doesNotAddBorder && (!f.support.doesAddBorderForTableAndCells || !cw.test(a.nodeName)) && (k += parseFloat(d.borderTopWidth) || 0, l += parseFloat(d.borderLeftWidth) || 0), g = e, e = a.offsetParent), f.support.subtractsBorderForOverflowNotVisible && d.overflow !== "visible" && (k += parseFloat(d.borderTopWidth) || 0, l += parseFloat(d.borderLeftWidth) || 0), j = d } if (j.position === "relative" || j.position === "static") k += h.offsetTop, l += h.offsetLeft; f.support.fixedPosition && j.position === "fixed" && (k += Math.max(c.scrollTop, h.scrollTop), l += Math.max(c.scrollLeft, h.scrollLeft)); return { top: k, left: l} }, f.fn.offset = function(a) { if (arguments.length) return a === b ? this : this.each(function(b) { f.offset.setOffset(this, a, b) }); var c = this[0], d = c && c.ownerDocument; if (!d) return null; if (c === d.body) return f.offset.bodyOffset(c); return cv(c, d, d.documentElement) }, f.offset = { bodyOffset: function(a) { var b = a.offsetTop, c = a.offsetLeft; f.support.doesNotIncludeMarginInBodyOffset && (b += parseFloat(f.css(a, "marginTop")) || 0, c += parseFloat(f.css(a, "marginLeft")) || 0); return { top: b, left: c} }, setOffset: function(a, b, c) { var d = f.css(a, "position"); d === "static" && (a.style.position = "relative"); var e = f(a), g = e.offset(), h = f.css(a, "top"), i = f.css(a, "left"), j = (d === "absolute" || d === "fixed") && f.inArray("auto", [h, i]) > -1, k = {}, l = {}, m, n; j ? (l = e.position(), m = l.top, n = l.left) : (m = parseFloat(h) || 0, n = parseFloat(i) || 0), f.isFunction(b) && (b = b.call(a, c, g)), b.top != null && (k.top = b.top - g.top + m), b.left != null && (k.left = b.left - g.left + n), "using" in b ? b.using.call(a, k) : e.css(k) } }, f.fn.extend({ position: function() { if (!this[0]) return null; var a = this[0], b = this.offsetParent(), c = this.offset(), d = cx.test(b[0].nodeName) ? { top: 0, left: 0} : b.offset(); c.top -= parseFloat(f.css(a, "marginTop")) || 0, c.left -= parseFloat(f.css(a, "marginLeft")) || 0, d.top += parseFloat(f.css(b[0], "borderTopWidth")) || 0, d.left += parseFloat(f.css(b[0], "borderLeftWidth")) || 0; return { top: c.top - d.top, left: c.left - d.left} }, offsetParent: function() { return this.map(function() { var a = this.offsetParent || c.body; while (a && !cx.test(a.nodeName) && f.css(a, "position") === "static") a = a.offsetParent; return a }) } }), f.each({ scrollLeft: "pageXOffset", scrollTop: "pageYOffset" }, function(a, c) { var d = /Y/.test(c); f.fn[a] = function(e) { return f.access(this, function(a, e, g) { var h = cy(a); if (g === b) return h ? c in h ? h[c] : f.support.boxModel && h.document.documentElement[e] || h.document.body[e] : a[e]; h ? h.scrollTo(d ? f(h).scrollLeft() : g, d ? g : f(h).scrollTop()) : a[e] = g }, a, e, arguments.length, null) } }), f.each({ Height: "height", Width: "width" }, function(a, c) { var d = "client" + a, e = "scroll" + a, g = "offset" + a; f.fn["inner" + a] = function() { var a = this[0]; return a ? a.style ? parseFloat(f.css(a, c, "padding")) : this[c]() : null }, f.fn["outer" + a] = function(a) { var b = this[0]; return b ? b.style ? parseFloat(f.css(b, c, a ? "margin" : "border")) : this[c]() : null }, f.fn[c] = function(a) { return f.access(this, function(a, c, h) { var i, j, k, l; if (f.isWindow(a)) { i = a.document, j = i.documentElement[d]; return f.support.boxModel && j || i.body && i.body[d] || j } if (a.nodeType === 9) { i = a.documentElement; if (i[d] >= i[e]) return i[d]; return Math.max(a.body[e], i[e], a.body[g], i[g]) } if (h === b) { k = f.css(a, c), l = parseFloat(k); return f.isNumeric(l) ? l : k } f(a).css(c, h) }, c, a, arguments.length, null) } }), a.jQuery = a.$ = f, typeof define == "function" && define.amd && define.amd.jQuery && define("jquery", [], function() { return f }) +})(window); \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/UnusableNodes.xml b/SISBusiness.Web.Account.Lite/UnusableNodes.xml new file mode 100644 index 0000000..7704472 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/UnusableNodes.xml @@ -0,0 +1,47 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Account.Lite/Web.Config b/SISBusiness.Web.Account.Lite/Web.Config new file mode 100644 index 0000000..8d3ef60 --- /dev/null +++ b/SISBusiness.Web.Account.Lite/Web.Config @@ -0,0 +1,224 @@ + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButton.skin new file mode 100644 index 0000000..b0ab819 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButton.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButtonEdit.skin new file mode 100644 index 0000000..4ac8efc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxButtonEdit.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCalendar.skin new file mode 100644 index 0000000..ca4a09f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCalendar.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCallbackPanel.skin new file mode 100644 index 0000000..5f71e02 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCallbackPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCaptcha.skin new file mode 100644 index 0000000..d745b91 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCaptcha.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCheckBox.skin new file mode 100644 index 0000000..23748ed --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCheckBox.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCloudControl.skin new file mode 100644 index 0000000..23538e4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxCloudControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxColorEdit.skin new file mode 100644 index 0000000..cfaab2d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxColorEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxComboBox.skin new file mode 100644 index 0000000..568eed5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxComboBox.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDataView.skin new file mode 100644 index 0000000..ae50a83 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDataView.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateEdit.skin new file mode 100644 index 0000000..9805cf1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateEdit.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateNavigator.skin new file mode 100644 index 0000000..2db9e82 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDropDownEdit.skin new file mode 100644 index 0000000..46ca969 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxDropDownEdit.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxFilterControl.skin new file mode 100644 index 0000000..9df5f55 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxFilterControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxGridView.skin new file mode 100644 index 0000000..fbd6ec5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxGridView.skin @@ -0,0 +1,37 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHeadline.skin new file mode 100644 index 0000000..86392a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHeadline.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHtmlEditor.skin new file mode 100644 index 0000000..e644788 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHtmlEditor.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHyperLink.skin new file mode 100644 index 0000000..a612630 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxHyperLink.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLabel.skin new file mode 100644 index 0000000..92e6e4c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLabel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxListBox.skin new file mode 100644 index 0000000..ee6e9e8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxListBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLoadingPanel.skin new file mode 100644 index 0000000..a68041b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxLoadingPanel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMemo.skin new file mode 100644 index 0000000..329f6e2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMemo.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMenu.skin new file mode 100644 index 0000000..1bb7c93 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNavBar.skin new file mode 100644 index 0000000..3f5deba --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNavBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNewsControl.skin new file mode 100644 index 0000000..a0389c9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxNewsControl.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPageControl.skin new file mode 100644 index 0000000..a6f3a62 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPageControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPager.skin new file mode 100644 index 0000000..85f732a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPivotGrid.skin new file mode 100644 index 0000000..5611386 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPivotGrid.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupControl.skin new file mode 100644 index 0000000..c79d0b1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupMenu.skin new file mode 100644 index 0000000..b3d8af7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxPopupMenu.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxProgressBar.skin new file mode 100644 index 0000000..b8922d9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxProgressBar.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButton.skin new file mode 100644 index 0000000..7d37ff7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButton.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButtonList.skin new file mode 100644 index 0000000..fbd6cc1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRadioButtonList.skin @@ -0,0 +1,3 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRatingControl.skin new file mode 100644 index 0000000..a899ba6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRatingControl.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRoundPanel.skin new file mode 100644 index 0000000..54b1fd3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxRoundPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxScheduler.skin new file mode 100644 index 0000000..0107464 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxScheduler.skin @@ -0,0 +1,38 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSiteMapControl.skin new file mode 100644 index 0000000..ac69018 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSiteMapControl.skin @@ -0,0 +1,39 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpellChecker.skin new file mode 100644 index 0000000..c795acb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpellChecker.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpinEdit.skin new file mode 100644 index 0000000..607a763 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSpinEdit.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSplitter.skin new file mode 100644 index 0000000..67b0eed --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxSplitter.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTabControl.skin new file mode 100644 index 0000000..50e6acf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTabControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTextBox.skin new file mode 100644 index 0000000..86f7835 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTextBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTimeEdit.skin new file mode 100644 index 0000000..88fe4ec --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTimeEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTitleIndex.skin new file mode 100644 index 0000000..bbca614 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTitleIndex.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTreeList.skin new file mode 100644 index 0000000..041e505 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ASPxTreeList.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/MonthEdit.skin new file mode 100644 index 0000000..99fdba8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/MonthEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ReportToolbar.skin new file mode 100644 index 0000000..1514733 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ReportToolbar.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/ReportViewer.skin new file mode 100644 index 0000000..be87a3e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/ReportViewer.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/WeekDaysEdit.skin new file mode 100644 index 0000000..48ff90e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/WeekDaysEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/Aqua/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Aqua/WeekOfMonthEdit.skin new file mode 100644 index 0000000..0650935 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Aqua/WeekOfMonthEdit.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButton.skin new file mode 100644 index 0000000..1960fb0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButtonEdit.skin new file mode 100644 index 0000000..9551299 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxButtonEdit.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCalendar.skin new file mode 100644 index 0000000..0428e0a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCallbackPanel.skin new file mode 100644 index 0000000..40ee8fb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCaptcha.skin new file mode 100644 index 0000000..6f247da --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCaptcha.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxChartControl.skin new file mode 100644 index 0000000..9b15cb1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCheckBox.skin new file mode 100644 index 0000000..9a783a2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCheckBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCloudControl.skin new file mode 100644 index 0000000..317ac22 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxCloudControl.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxcc" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxColorEdit.skin new file mode 100644 index 0000000..0470c49 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxColorEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxComboBox.skin new file mode 100644 index 0000000..bc1d00b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxComboBox.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDataView.skin new file mode 100644 index 0000000..9c1f2db --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateEdit.skin new file mode 100644 index 0000000..3826dea --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateNavigator.skin new file mode 100644 index 0000000..03e35d1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDateNavigator.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDockPanel.skin new file mode 100644 index 0000000..72fc7a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDockPanel.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDropDownEdit.skin new file mode 100644 index 0000000..2f78941 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxDropDownEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFileManager.skin new file mode 100644 index 0000000..441c597 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFilterControl.skin new file mode 100644 index 0000000..dac508a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridLookup.skin new file mode 100644 index 0000000..cb2ad0f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridLookup.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridView.skin new file mode 100644 index 0000000..c8d2ff1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxGridView.skin @@ -0,0 +1,26 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHeadline.skin new file mode 100644 index 0000000..ec5ec6c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHeadline.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHtmlEditor.skin new file mode 100644 index 0000000..26a507e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHyperLink.skin new file mode 100644 index 0000000..2f4f217 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxHyperLink.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLabel.skin new file mode 100644 index 0000000..389c91e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxListBox.skin new file mode 100644 index 0000000..6f0480e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxListBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLoadingPanel.skin new file mode 100644 index 0000000..a0e9463 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMemo.skin new file mode 100644 index 0000000..97e5743 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMemo.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMenu.skin new file mode 100644 index 0000000..54b01b7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNavBar.skin new file mode 100644 index 0000000..c943508 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNewsControl.skin new file mode 100644 index 0000000..98fba65 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxNewsControl.skin @@ -0,0 +1,40 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPageControl.skin new file mode 100644 index 0000000..dbfc5c5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPager.skin new file mode 100644 index 0000000..f448d19 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPivotGrid.skin new file mode 100644 index 0000000..987e603 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPivotGrid.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwpg" Namespace="DevExpress.Web.ASPxPivotGrid" Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupControl.skin new file mode 100644 index 0000000..1f3fc35 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupMenu.skin new file mode 100644 index 0000000..5b326bb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxPopupMenu.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxProgressBar.skin new file mode 100644 index 0000000..a6cee5e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButton.skin new file mode 100644 index 0000000..fb7c88e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButton.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButtonList.skin new file mode 100644 index 0000000..13175c1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRadioButtonList.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRatingControl.skin new file mode 100644 index 0000000..2916f4b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRatingControl.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRoundPanel.skin new file mode 100644 index 0000000..b510cc7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxScheduler.skin new file mode 100644 index 0000000..fc7effd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxScheduler.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSiteMapControl.skin new file mode 100644 index 0000000..a27aabb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSiteMapControl.skin @@ -0,0 +1,38 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpellChecker.skin new file mode 100644 index 0000000..d615a48 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpinEdit.skin new file mode 100644 index 0000000..6de0d03 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSplitter.skin new file mode 100644 index 0000000..e68ccb8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTabControl.skin new file mode 100644 index 0000000..60c5e20 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTextBox.skin new file mode 100644 index 0000000..c6ba77f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTimeEdit.skin new file mode 100644 index 0000000..15f56e9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTitleIndex.skin new file mode 100644 index 0000000..2dad85d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTitleIndex.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeList.skin new file mode 100644 index 0000000..21729a0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeList.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeView.skin new file mode 100644 index 0000000..d5575fc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxUploadControl.skin new file mode 100644 index 0000000..10906ec --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/MonthEdit.skin new file mode 100644 index 0000000..893c240 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..7d96bf6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/RecurrenceTypeEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportDocumentMap.skin new file mode 100644 index 0000000..fbfb18f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportDocumentMap.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportParametersPanel.skin new file mode 100644 index 0000000..edd872e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportParametersPanel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportToolbar.skin new file mode 100644 index 0000000..2997885 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportViewer.skin new file mode 100644 index 0000000..1f4f730 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekDaysEdit.skin new file mode 100644 index 0000000..fc8666e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekDaysEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekOfMonthEdit.skin new file mode 100644 index 0000000..9072bf6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/BlackGlass/WeekOfMonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButton.skin new file mode 100644 index 0000000..076e84f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButtonEdit.skin new file mode 100644 index 0000000..a6bfade --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCalendar.skin new file mode 100644 index 0000000..e631ede --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCallbackPanel.skin new file mode 100644 index 0000000..83d47c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCaptcha.skin new file mode 100644 index 0000000..fce86ab --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCaptcha.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxChartControl.skin new file mode 100644 index 0000000..9a43d5e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCheckBox.skin new file mode 100644 index 0000000..73811a5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCloudControl.skin new file mode 100644 index 0000000..9df7f25 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxCloudControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxColorEdit.skin new file mode 100644 index 0000000..211a3df --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxComboBox.skin new file mode 100644 index 0000000..d43c011 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDataView.skin new file mode 100644 index 0000000..bdc529b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDataView.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateEdit.skin new file mode 100644 index 0000000..d2e4932 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateNavigator.skin new file mode 100644 index 0000000..c5f2bb0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDockPanel.skin new file mode 100644 index 0000000..b628843 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDropDownEdit.skin new file mode 100644 index 0000000..a587b35 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFileManager.skin new file mode 100644 index 0000000..a092e83 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFilterControl.skin new file mode 100644 index 0000000..24699d8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridLookup.skin new file mode 100644 index 0000000..f4502e5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridLookup.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridView.skin new file mode 100644 index 0000000..2d8b4b5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHeadline.skin new file mode 100644 index 0000000..9140258 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHtmlEditor.skin new file mode 100644 index 0000000..420aa2a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHyperLink.skin new file mode 100644 index 0000000..f59d287 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLabel.skin new file mode 100644 index 0000000..c633645 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxListBox.skin new file mode 100644 index 0000000..0bb2afc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLoadingPanel.skin new file mode 100644 index 0000000..228524d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMemo.skin new file mode 100644 index 0000000..e717173 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMenu.skin new file mode 100644 index 0000000..8ec05b3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNavBar.skin new file mode 100644 index 0000000..b98fb11 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNewsControl.skin new file mode 100644 index 0000000..8cd6589 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPageControl.skin new file mode 100644 index 0000000..e757fb2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPager.skin new file mode 100644 index 0000000..cd2c1ad --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPivotGrid.skin new file mode 100644 index 0000000..9fd22ab --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupControl.skin new file mode 100644 index 0000000..d5e8e0c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupMenu.skin new file mode 100644 index 0000000..30dca1a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxProgressBar.skin new file mode 100644 index 0000000..a8604a9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButton.skin new file mode 100644 index 0000000..26a2cb1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButtonList.skin new file mode 100644 index 0000000..1ae65b5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRatingControl.skin new file mode 100644 index 0000000..18534d5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRoundPanel.skin new file mode 100644 index 0000000..6ac5ab8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxScheduler.skin new file mode 100644 index 0000000..e777455 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSiteMapControl.skin new file mode 100644 index 0000000..7009980 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpellChecker.skin new file mode 100644 index 0000000..ca35bab --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpinEdit.skin new file mode 100644 index 0000000..eb12f14 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSplitter.skin new file mode 100644 index 0000000..da6c2fd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTabControl.skin new file mode 100644 index 0000000..a4b907b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTextBox.skin new file mode 100644 index 0000000..002a465 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTimeEdit.skin new file mode 100644 index 0000000..d4f11b9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTitleIndex.skin new file mode 100644 index 0000000..a5d93d4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeList.skin new file mode 100644 index 0000000..98d9068 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeList.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeView.skin new file mode 100644 index 0000000..215a74f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxUploadControl.skin new file mode 100644 index 0000000..aca4bd3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/MonthEdit.skin new file mode 100644 index 0000000..f645781 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..8b22f64 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportDocumentMap.skin new file mode 100644 index 0000000..52c909f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportParametersPanel.skin new file mode 100644 index 0000000..42a546e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportToolbar.skin new file mode 100644 index 0000000..f0ca092 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportViewer.skin new file mode 100644 index 0000000..1187c89 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/WeekDaysEdit.skin new file mode 100644 index 0000000..ef36a40 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/DevEx/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/DevEx/WeekOfMonthEdit.skin new file mode 100644 index 0000000..6fe1299 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/DevEx/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButton.skin new file mode 100644 index 0000000..162cbcc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButtonEdit.skin new file mode 100644 index 0000000..15e8351 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCalendar.skin new file mode 100644 index 0000000..1949ea1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCallbackPanel.skin new file mode 100644 index 0000000..099b85a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCaptcha.skin new file mode 100644 index 0000000..328edac --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxChartControl.skin new file mode 100644 index 0000000..b27cefc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCheckBox.skin new file mode 100644 index 0000000..27d8909 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCloudControl.skin new file mode 100644 index 0000000..9da853b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxCloudControl.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxColorEdit.skin new file mode 100644 index 0000000..c5c1f58 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxComboBox.skin new file mode 100644 index 0000000..2524476 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDataView.skin new file mode 100644 index 0000000..0b585c7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateEdit.skin new file mode 100644 index 0000000..2f195c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateEdit.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateNavigator.skin new file mode 100644 index 0000000..49c7251 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDockPanel.skin new file mode 100644 index 0000000..0a29cd6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDropDownEdit.skin new file mode 100644 index 0000000..43e91d3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFileManager.skin new file mode 100644 index 0000000..60efa78 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFilterControl.skin new file mode 100644 index 0000000..be14080 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridLookup.skin new file mode 100644 index 0000000..cfa9f2f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridLookup.skin @@ -0,0 +1,27 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridView.skin new file mode 100644 index 0000000..f701206 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxGridView.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHeadline.skin new file mode 100644 index 0000000..28f4b81 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHeadline.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHtmlEditor.skin new file mode 100644 index 0000000..3616cd9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHtmlEditor.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHyperLink.skin new file mode 100644 index 0000000..9a90d24 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLabel.skin new file mode 100644 index 0000000..54b34e8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxListBox.skin new file mode 100644 index 0000000..d968836 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLoadingPanel.skin new file mode 100644 index 0000000..2a89669 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMemo.skin new file mode 100644 index 0000000..f96d4a5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMenu.skin new file mode 100644 index 0000000..9148395 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNavBar.skin new file mode 100644 index 0000000..414150f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNewsControl.skin new file mode 100644 index 0000000..078d9a2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxNewsControl.skin @@ -0,0 +1,37 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPageControl.skin new file mode 100644 index 0000000..679d0a8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPager.skin new file mode 100644 index 0000000..4ff1b0b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPivotGrid.skin new file mode 100644 index 0000000..89839c3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPivotGrid.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupControl.skin new file mode 100644 index 0000000..f8308d0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupMenu.skin new file mode 100644 index 0000000..0f0165f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxPopupMenu.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxProgressBar.skin new file mode 100644 index 0000000..e364fd4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButton.skin new file mode 100644 index 0000000..53fd4bb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButtonList.skin new file mode 100644 index 0000000..3da2a04 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRatingControl.skin new file mode 100644 index 0000000..47be6a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRoundPanel.skin new file mode 100644 index 0000000..8bea9c3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxScheduler.skin new file mode 100644 index 0000000..7ac87ba --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxScheduler.skin @@ -0,0 +1,127 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSiteMapControl.skin new file mode 100644 index 0000000..1316cc5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSiteMapControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpellChecker.skin new file mode 100644 index 0000000..89de694 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpinEdit.skin new file mode 100644 index 0000000..3a81f96 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSplitter.skin new file mode 100644 index 0000000..adab7ea --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxSplitter.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTabControl.skin new file mode 100644 index 0000000..b4d3738 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTabControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTextBox.skin new file mode 100644 index 0000000..b474351 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTimeEdit.skin new file mode 100644 index 0000000..40e9ae1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTimeEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTitleIndex.skin new file mode 100644 index 0000000..a073a98 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTitleIndex.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeList.skin new file mode 100644 index 0000000..6e9cd18 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeList.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeView.skin new file mode 100644 index 0000000..a03a348 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxUploadControl.skin new file mode 100644 index 0000000..8e68fb5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/MonthEdit.skin new file mode 100644 index 0000000..7559d68 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/MonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..ea52b9a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ReportDocumentMap.skin new file mode 100644 index 0000000..055c0e5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ReportParametersPanel.skin new file mode 100644 index 0000000..25597e5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ReportToolbar.skin new file mode 100644 index 0000000..dbdfc4d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Glass/ReportViewer.skin new file mode 100644 index 0000000..4a67211 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/WeekDaysEdit.skin new file mode 100644 index 0000000..36497c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/WeekDaysEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Glass/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Glass/WeekOfMonthEdit.skin new file mode 100644 index 0000000..d3f3ef2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Glass/WeekOfMonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButton.skin new file mode 100644 index 0000000..54679a1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButtonEdit.skin new file mode 100644 index 0000000..15a3d5f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCalendar.skin new file mode 100644 index 0000000..968cfc1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..463f386 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCaptcha.skin new file mode 100644 index 0000000..b3c351d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxChartControl.skin new file mode 100644 index 0000000..7187d6e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCheckBox.skin new file mode 100644 index 0000000..0da57dc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCloudControl.skin new file mode 100644 index 0000000..3300739 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxColorEdit.skin new file mode 100644 index 0000000..48e06a4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxComboBox.skin new file mode 100644 index 0000000..a8165dd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDataView.skin new file mode 100644 index 0000000..c89aaa6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateEdit.skin new file mode 100644 index 0000000..00c6ef1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateNavigator.skin new file mode 100644 index 0000000..c04b7ee --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDockPanel.skin new file mode 100644 index 0000000..39ebbd6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..544c1e5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFileManager.skin new file mode 100644 index 0000000..3fd9f8a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFilterControl.skin new file mode 100644 index 0000000..028e555 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridLookup.skin new file mode 100644 index 0000000..8273a72 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridView.skin new file mode 100644 index 0000000..fb2794e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxGridView.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHeadline.skin new file mode 100644 index 0000000..f020c28 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..a1a4393 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHyperLink.skin new file mode 100644 index 0000000..65a164d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLabel.skin new file mode 100644 index 0000000..39084e6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxListBox.skin new file mode 100644 index 0000000..657975d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..5863faf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMemo.skin new file mode 100644 index 0000000..520234b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMemo.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMenu.skin new file mode 100644 index 0000000..c53b9f0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNavBar.skin new file mode 100644 index 0000000..353080c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNavBar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNewsControl.skin new file mode 100644 index 0000000..cd183c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPageControl.skin new file mode 100644 index 0000000..c0f49f3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPager.skin new file mode 100644 index 0000000..a3b68c0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPivotGrid.skin new file mode 100644 index 0000000..4ba8a7f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupControl.skin new file mode 100644 index 0000000..b8f3239 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupMenu.skin new file mode 100644 index 0000000..74b04db --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxProgressBar.skin new file mode 100644 index 0000000..36a186e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButton.skin new file mode 100644 index 0000000..20cb350 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..9c5188c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRatingControl.skin new file mode 100644 index 0000000..cd78575 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRoundPanel.skin new file mode 100644 index 0000000..3a71817 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxScheduler.skin new file mode 100644 index 0000000..0044381 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..2709cf6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpellChecker.skin new file mode 100644 index 0000000..5cf332c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpinEdit.skin new file mode 100644 index 0000000..9215ef2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSplitter.skin new file mode 100644 index 0000000..52444ad --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTabControl.skin new file mode 100644 index 0000000..10b3c38 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTextBox.skin new file mode 100644 index 0000000..af4dbac --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTimeEdit.skin new file mode 100644 index 0000000..2328257 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTitleIndex.skin new file mode 100644 index 0000000..9fe058d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeList.skin new file mode 100644 index 0000000..25bdd8e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeView.skin new file mode 100644 index 0000000..5c07877 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxUploadControl.skin new file mode 100644 index 0000000..e483e09 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/MonthEdit.skin new file mode 100644 index 0000000..db152e4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..bbc7398 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportDocumentMap.skin new file mode 100644 index 0000000..f4e6023 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportParametersPanel.skin new file mode 100644 index 0000000..e82e953 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportToolbar.skin new file mode 100644 index 0000000..d38918b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportViewer.skin new file mode 100644 index 0000000..acc97b0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekDaysEdit.skin new file mode 100644 index 0000000..6a0ea6e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..bd2726f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Blue/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButton.skin new file mode 100644 index 0000000..21be9de --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButtonEdit.skin new file mode 100644 index 0000000..9affd73 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCalendar.skin new file mode 100644 index 0000000..02671a4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCallbackPanel.skin new file mode 100644 index 0000000..5c260bc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCaptcha.skin new file mode 100644 index 0000000..e72299f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxChartControl.skin new file mode 100644 index 0000000..4c08eda --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCheckBox.skin new file mode 100644 index 0000000..88bc3fc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCloudControl.skin new file mode 100644 index 0000000..3fa8210 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxColorEdit.skin new file mode 100644 index 0000000..8cbf009 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxComboBox.skin new file mode 100644 index 0000000..2974c5d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxComboBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDataView.skin new file mode 100644 index 0000000..c9eb3cd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDataView.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateEdit.skin new file mode 100644 index 0000000..71316bf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateNavigator.skin new file mode 100644 index 0000000..40abbfc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDockPanel.skin new file mode 100644 index 0000000..508e0f9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDropDownEdit.skin new file mode 100644 index 0000000..7fbe148 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFileManager.skin new file mode 100644 index 0000000..d121545 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFilterControl.skin new file mode 100644 index 0000000..3878267 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridLookup.skin new file mode 100644 index 0000000..12aaee4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridView.skin new file mode 100644 index 0000000..1d5962a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxGridView.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHeadline.skin new file mode 100644 index 0000000..64a3f9a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHtmlEditor.skin new file mode 100644 index 0000000..f03c64f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHyperLink.skin new file mode 100644 index 0000000..6418936 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLabel.skin new file mode 100644 index 0000000..f077522 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxListBox.skin new file mode 100644 index 0000000..b196d75 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLoadingPanel.skin new file mode 100644 index 0000000..4e8cf7c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMemo.skin new file mode 100644 index 0000000..8e0e2bd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMemo.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMenu.skin new file mode 100644 index 0000000..653ae72 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNavBar.skin new file mode 100644 index 0000000..e109402 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNewsControl.skin new file mode 100644 index 0000000..590dcce --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPageControl.skin new file mode 100644 index 0000000..780fd31 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPager.skin new file mode 100644 index 0000000..d5aa801 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPivotGrid.skin new file mode 100644 index 0000000..5fca665 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupControl.skin new file mode 100644 index 0000000..873c2f9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupMenu.skin new file mode 100644 index 0000000..19c03fa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxProgressBar.skin new file mode 100644 index 0000000..2748a94 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButton.skin new file mode 100644 index 0000000..b87fafa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButtonList.skin new file mode 100644 index 0000000..4e9ab7e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRatingControl.skin new file mode 100644 index 0000000..224bbbd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRoundPanel.skin new file mode 100644 index 0000000..a0bed58 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxScheduler.skin new file mode 100644 index 0000000..9aec22f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSiteMapControl.skin new file mode 100644 index 0000000..ffafccf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpellChecker.skin new file mode 100644 index 0000000..654134f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpinEdit.skin new file mode 100644 index 0000000..1489bb4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSplitter.skin new file mode 100644 index 0000000..b7b1fe6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTabControl.skin new file mode 100644 index 0000000..c862c9d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTextBox.skin new file mode 100644 index 0000000..9155a97 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTimeEdit.skin new file mode 100644 index 0000000..50e28c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTitleIndex.skin new file mode 100644 index 0000000..ba88f88 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeList.skin new file mode 100644 index 0000000..f0bc36b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeView.skin new file mode 100644 index 0000000..02c4a7d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxUploadControl.skin new file mode 100644 index 0000000..1c4a98f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/MonthEdit.skin new file mode 100644 index 0000000..41645e4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..eac6c8c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportDocumentMap.skin new file mode 100644 index 0000000..792edec --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportParametersPanel.skin new file mode 100644 index 0000000..c6c1ec7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportToolbar.skin new file mode 100644 index 0000000..8815287 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportViewer.skin new file mode 100644 index 0000000..308ddf2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekDaysEdit.skin new file mode 100644 index 0000000..61e7b4d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekDaysEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekOfMonthEdit.skin new file mode 100644 index 0000000..19e7442 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Olive/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButton.skin new file mode 100644 index 0000000..26c073a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButtonEdit.skin new file mode 100644 index 0000000..b90bea7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxButtonEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCalendar.skin new file mode 100644 index 0000000..dc47c8b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCalendar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCallbackPanel.skin new file mode 100644 index 0000000..fc813b3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCaptcha.skin new file mode 100644 index 0000000..4ab21fc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxChartControl.skin new file mode 100644 index 0000000..0107367 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCheckBox.skin new file mode 100644 index 0000000..783481d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCloudControl.skin new file mode 100644 index 0000000..fa6b4a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxColorEdit.skin new file mode 100644 index 0000000..bfe7e7c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxComboBox.skin new file mode 100644 index 0000000..3ffeea0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxComboBox.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDataView.skin new file mode 100644 index 0000000..12413a8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDataView.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateEdit.skin new file mode 100644 index 0000000..d551e6e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateNavigator.skin new file mode 100644 index 0000000..ced4659 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDockPanel.skin new file mode 100644 index 0000000..3f07ba1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDockPanel.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDropDownEdit.skin new file mode 100644 index 0000000..1697f6e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFileManager.skin new file mode 100644 index 0000000..cfecd26 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFilterControl.skin new file mode 100644 index 0000000..0362b87 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridLookup.skin new file mode 100644 index 0000000..be19412 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridLookup.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridView.skin new file mode 100644 index 0000000..7eda12e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHeadline.skin new file mode 100644 index 0000000..5a5bd5a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHeadline.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHtmlEditor.skin new file mode 100644 index 0000000..d234148 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHyperLink.skin new file mode 100644 index 0000000..03e1d97 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLabel.skin new file mode 100644 index 0000000..5442473 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxListBox.skin new file mode 100644 index 0000000..8da9441 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxListBox.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLoadingPanel.skin new file mode 100644 index 0000000..a15596e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMemo.skin new file mode 100644 index 0000000..ffe08a0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMemo.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMenu.skin new file mode 100644 index 0000000..22ea6a2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNavBar.skin new file mode 100644 index 0000000..9ceef45 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNewsControl.skin new file mode 100644 index 0000000..092e654 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxNewsControl.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPageControl.skin new file mode 100644 index 0000000..b99124a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPager.skin new file mode 100644 index 0000000..4d20b5f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPivotGrid.skin new file mode 100644 index 0000000..7e46195 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupControl.skin new file mode 100644 index 0000000..7e452bf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupMenu.skin new file mode 100644 index 0000000..bcc9dae --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxProgressBar.skin new file mode 100644 index 0000000..3e09cdd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButton.skin new file mode 100644 index 0000000..9ac428c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButtonList.skin new file mode 100644 index 0000000..55339b0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRatingControl.skin new file mode 100644 index 0000000..fa90416 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRoundPanel.skin new file mode 100644 index 0000000..dcaa72a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxScheduler.skin new file mode 100644 index 0000000..d82676c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxScheduler.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSiteMapControl.skin new file mode 100644 index 0000000..c7636cd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSiteMapControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpellChecker.skin new file mode 100644 index 0000000..daced95 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpinEdit.skin new file mode 100644 index 0000000..c122fdc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSplitter.skin new file mode 100644 index 0000000..77e0ad6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTabControl.skin new file mode 100644 index 0000000..b57dc1c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTabControl.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTextBox.skin new file mode 100644 index 0000000..6184027 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTimeEdit.skin new file mode 100644 index 0000000..12cb296 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTitleIndex.skin new file mode 100644 index 0000000..67ed872 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTitleIndex.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeList.skin new file mode 100644 index 0000000..0636007 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeList.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeView.skin new file mode 100644 index 0000000..0ecf5e6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxUploadControl.skin new file mode 100644 index 0000000..37c6094 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/MonthEdit.skin new file mode 100644 index 0000000..f2cf7be --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/MonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..0b0b84a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportDocumentMap.skin new file mode 100644 index 0000000..4ee5134 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportParametersPanel.skin new file mode 100644 index 0000000..8514d56 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportToolbar.skin new file mode 100644 index 0000000..0be16f0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportViewer.skin new file mode 100644 index 0000000..2406451 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekDaysEdit.skin new file mode 100644 index 0000000..567d321 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekDaysEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekOfMonthEdit.skin new file mode 100644 index 0000000..8736112 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2003Silver/WeekOfMonthEdit.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButton.skin new file mode 100644 index 0000000..6f48eab --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButtonEdit.skin new file mode 100644 index 0000000..256fd37 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCalendar.skin new file mode 100644 index 0000000..c382386 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCallbackPanel.skin new file mode 100644 index 0000000..740a1c4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCaptcha.skin new file mode 100644 index 0000000..3b41e88 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxChartControl.skin new file mode 100644 index 0000000..c8c90ea --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCheckBox.skin new file mode 100644 index 0000000..612c8a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCloudControl.skin new file mode 100644 index 0000000..3bb4169 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxColorEdit.skin new file mode 100644 index 0000000..ca3a960 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxComboBox.skin new file mode 100644 index 0000000..53eea3f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDataView.skin new file mode 100644 index 0000000..79d0d81 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDataView.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateEdit.skin new file mode 100644 index 0000000..a251232 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateNavigator.skin new file mode 100644 index 0000000..bffb7f6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDockPanel.skin new file mode 100644 index 0000000..eaad9f3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDropDownEdit.skin new file mode 100644 index 0000000..2410ba8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFileManager.skin new file mode 100644 index 0000000..bf02f1f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFilterControl.skin new file mode 100644 index 0000000..009a3a2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridLookup.skin new file mode 100644 index 0000000..5935410 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridLookup.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridView.skin new file mode 100644 index 0000000..a705a08 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxGridView.skin @@ -0,0 +1,27 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHeadline.skin new file mode 100644 index 0000000..008b095 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHtmlEditor.skin new file mode 100644 index 0000000..2e627a5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHyperLink.skin new file mode 100644 index 0000000..f44d217 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLabel.skin new file mode 100644 index 0000000..82e4098 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxListBox.skin new file mode 100644 index 0000000..3686c94 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLoadingPanel.skin new file mode 100644 index 0000000..de86401 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMemo.skin new file mode 100644 index 0000000..8092887 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMenu.skin new file mode 100644 index 0000000..1fffbd1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNavBar.skin new file mode 100644 index 0000000..28b1e9c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNewsControl.skin new file mode 100644 index 0000000..6740455 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPageControl.skin new file mode 100644 index 0000000..499ddc6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPager.skin new file mode 100644 index 0000000..d432663 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPivotGrid.skin new file mode 100644 index 0000000..9d5aa2b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupControl.skin new file mode 100644 index 0000000..b6240da --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupMenu.skin new file mode 100644 index 0000000..748148a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxProgressBar.skin new file mode 100644 index 0000000..5a9f1b1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButton.skin new file mode 100644 index 0000000..d1d9bcd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButtonList.skin new file mode 100644 index 0000000..3e47d1c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRatingControl.skin new file mode 100644 index 0000000..4f298f2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRoundPanel.skin new file mode 100644 index 0000000..5d53357 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxScheduler.skin new file mode 100644 index 0000000..3b13efb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSiteMapControl.skin new file mode 100644 index 0000000..c44dda2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpellChecker.skin new file mode 100644 index 0000000..068753f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpinEdit.skin new file mode 100644 index 0000000..2246c11 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSplitter.skin new file mode 100644 index 0000000..bbe88c5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTabControl.skin new file mode 100644 index 0000000..564b548 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTextBox.skin new file mode 100644 index 0000000..f9cdd67 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTimeEdit.skin new file mode 100644 index 0000000..ca3b1b6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTitleIndex.skin new file mode 100644 index 0000000..5b57d02 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeList.skin new file mode 100644 index 0000000..3ff6a52 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeList.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeView.skin new file mode 100644 index 0000000..3fd07ca --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxUploadControl.skin new file mode 100644 index 0000000..41ceaa6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/MonthEdit.skin new file mode 100644 index 0000000..f381c51 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..44fb512 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportDocumentMap.skin new file mode 100644 index 0000000..d3364f7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportParametersPanel.skin new file mode 100644 index 0000000..599a217 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportToolbar.skin new file mode 100644 index 0000000..5106458 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportViewer.skin new file mode 100644 index 0000000..7c7b0b8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekDaysEdit.skin new file mode 100644 index 0000000..97f1ba6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekOfMonthEdit.skin new file mode 100644 index 0000000..6abd42a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Black/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButton.skin new file mode 100644 index 0000000..cf4922d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButtonEdit.skin new file mode 100644 index 0000000..aefec6c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCalendar.skin new file mode 100644 index 0000000..16f715a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..89ca369 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCaptcha.skin new file mode 100644 index 0000000..871da39 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxChartControl.skin new file mode 100644 index 0000000..45ffa73 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCheckBox.skin new file mode 100644 index 0000000..eeb419e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCloudControl.skin new file mode 100644 index 0000000..27e673d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxColorEdit.skin new file mode 100644 index 0000000..e88b3cc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxComboBox.skin new file mode 100644 index 0000000..870828e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDataView.skin new file mode 100644 index 0000000..a1ec774 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDataView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateEdit.skin new file mode 100644 index 0000000..1ab6eb1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateNavigator.skin new file mode 100644 index 0000000..0e78316 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDockPanel.skin new file mode 100644 index 0000000..0f793cd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..dbcbe3d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFileManager.skin new file mode 100644 index 0000000..8d93054 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFilterControl.skin new file mode 100644 index 0000000..605c037 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridLookup.skin new file mode 100644 index 0000000..f5a5278 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridLookup.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + +
+ + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridView.skin new file mode 100644 index 0000000..c9d1a9d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxGridView.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHeadline.skin new file mode 100644 index 0000000..a1ed635 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..5f7ed24 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHyperLink.skin new file mode 100644 index 0000000..d13702e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLabel.skin new file mode 100644 index 0000000..2d88e1b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxListBox.skin new file mode 100644 index 0000000..e89ef02 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..5e0ad53 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMemo.skin new file mode 100644 index 0000000..4a4cf81 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMenu.skin new file mode 100644 index 0000000..ddfbd8c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNavBar.skin new file mode 100644 index 0000000..823f19a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNewsControl.skin new file mode 100644 index 0000000..253b932 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPageControl.skin new file mode 100644 index 0000000..c4dd413 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPager.skin new file mode 100644 index 0000000..3b79f2d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPivotGrid.skin new file mode 100644 index 0000000..2b3f4f8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPivotGrid.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupControl.skin new file mode 100644 index 0000000..0e9b176 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupMenu.skin new file mode 100644 index 0000000..4af7a85 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxProgressBar.skin new file mode 100644 index 0000000..c30b791 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButton.skin new file mode 100644 index 0000000..7e6e666 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..2752924 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRatingControl.skin new file mode 100644 index 0000000..22e68c5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRoundPanel.skin new file mode 100644 index 0000000..71736b4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxScheduler.skin new file mode 100644 index 0000000..990293d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..eb69018 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpellChecker.skin new file mode 100644 index 0000000..9993296 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpinEdit.skin new file mode 100644 index 0000000..5f6baac --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSplitter.skin new file mode 100644 index 0000000..b56762e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTabControl.skin new file mode 100644 index 0000000..9d72920 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTextBox.skin new file mode 100644 index 0000000..8d9dbad --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTimeEdit.skin new file mode 100644 index 0000000..8bc5e01 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTitleIndex.skin new file mode 100644 index 0000000..4c2a727 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeList.skin new file mode 100644 index 0000000..31f4d74 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeList.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeView.skin new file mode 100644 index 0000000..4976d40 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxUploadControl.skin new file mode 100644 index 0000000..ae53cc0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/MonthEdit.skin new file mode 100644 index 0000000..028a2cf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..d5fef24 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportDocumentMap.skin new file mode 100644 index 0000000..8afd1e8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportParametersPanel.skin new file mode 100644 index 0000000..a05ddae --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportToolbar.skin new file mode 100644 index 0000000..1de0086 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportViewer.skin new file mode 100644 index 0000000..1a2366e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekDaysEdit.skin new file mode 100644 index 0000000..2ad9a76 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..a1d1228 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Blue/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButton.skin new file mode 100644 index 0000000..eda0531 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButtonEdit.skin new file mode 100644 index 0000000..d798f96 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxButtonEdit.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCalendar.skin new file mode 100644 index 0000000..b504e0f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCalendar.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCallbackPanel.skin new file mode 100644 index 0000000..7bc9be2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCaptcha.skin new file mode 100644 index 0000000..30e8455 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxChartControl.skin new file mode 100644 index 0000000..2d82694 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxChartControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCheckBox.skin new file mode 100644 index 0000000..9fb3c0a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCloudControl.skin new file mode 100644 index 0000000..29766c3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxColorEdit.skin new file mode 100644 index 0000000..507a656 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxColorEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxComboBox.skin new file mode 100644 index 0000000..8c19d19 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxComboBox.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDataView.skin new file mode 100644 index 0000000..9d715b6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDataView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateEdit.skin new file mode 100644 index 0000000..c5e4023 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateNavigator.skin new file mode 100644 index 0000000..030fbf9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDateNavigator.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDockPanel.skin new file mode 100644 index 0000000..3552bc6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDropDownEdit.skin new file mode 100644 index 0000000..dcc99b0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxDropDownEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFileManager.skin new file mode 100644 index 0000000..128d349 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFilterControl.skin new file mode 100644 index 0000000..70b1ea8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxFilterControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridLookup.skin new file mode 100644 index 0000000..324500f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridLookup.skin @@ -0,0 +1,25 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridView.skin new file mode 100644 index 0000000..835cd94 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxGridView.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHeadline.skin new file mode 100644 index 0000000..f30f309 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHeadline.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHtmlEditor.skin new file mode 100644 index 0000000..e96d33c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHtmlEditor.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHyperLink.skin new file mode 100644 index 0000000..a4528bf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLabel.skin new file mode 100644 index 0000000..b2f4d1d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxListBox.skin new file mode 100644 index 0000000..8845d8a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxListBox.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLoadingPanel.skin new file mode 100644 index 0000000..fd23370 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMemo.skin new file mode 100644 index 0000000..25aae62 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMemo.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMenu.skin new file mode 100644 index 0000000..fb65669 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxMenu.skin @@ -0,0 +1,34 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNavBar.skin new file mode 100644 index 0000000..54c49cc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNavBar.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNewsControl.skin new file mode 100644 index 0000000..bdd694a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxNewsControl.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPageControl.skin new file mode 100644 index 0000000..2d1953e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPageControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPager.skin new file mode 100644 index 0000000..35b9dbd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPivotGrid.skin new file mode 100644 index 0000000..4eec77f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPivotGrid.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupControl.skin new file mode 100644 index 0000000..8633887 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupControl.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupMenu.skin new file mode 100644 index 0000000..2cdc26e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxProgressBar.skin new file mode 100644 index 0000000..c60a506 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButton.skin new file mode 100644 index 0000000..c696bcb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButtonList.skin new file mode 100644 index 0000000..bdb802f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRatingControl.skin new file mode 100644 index 0000000..a41d63b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRoundPanel.skin new file mode 100644 index 0000000..201d9d8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxRoundPanel.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxScheduler.skin new file mode 100644 index 0000000..46b7ebf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxScheduler.skin @@ -0,0 +1,18 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSiteMapControl.skin new file mode 100644 index 0000000..597d79d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSiteMapControl.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpellChecker.skin new file mode 100644 index 0000000..483b93d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpellChecker.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpinEdit.skin new file mode 100644 index 0000000..ffa4e8d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSpinEdit.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSplitter.skin new file mode 100644 index 0000000..bcce541 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTabControl.skin new file mode 100644 index 0000000..f02a6c9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTabControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTextBox.skin new file mode 100644 index 0000000..9cfd097 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTextBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTimeEdit.skin new file mode 100644 index 0000000..c75a4c2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTitleIndex.skin new file mode 100644 index 0000000..4125448 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTitleIndex.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeList.skin new file mode 100644 index 0000000..0242c6a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeList.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeView.skin new file mode 100644 index 0000000..5fca3f2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxTreeView.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxUploadControl.skin new file mode 100644 index 0000000..d99314a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/MonthEdit.skin new file mode 100644 index 0000000..201eb90 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/MonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..574fd6a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportDocumentMap.skin new file mode 100644 index 0000000..235b50b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportParametersPanel.skin new file mode 100644 index 0000000..383cfd6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportToolbar.skin new file mode 100644 index 0000000..4586e97 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportToolbar.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportViewer.skin new file mode 100644 index 0000000..a1c0226 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/ReportViewer.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekDaysEdit.skin new file mode 100644 index 0000000..036b3c2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekDaysEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekOfMonthEdit.skin new file mode 100644 index 0000000..f49860a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Office2010Silver/WeekOfMonthEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButton.skin new file mode 100644 index 0000000..30d1cd0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButtonEdit.skin new file mode 100644 index 0000000..80ff76f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCalendar.skin new file mode 100644 index 0000000..2a0fe19 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCallbackPanel.skin new file mode 100644 index 0000000..2dff92f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCallbackPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCaptcha.skin new file mode 100644 index 0000000..9f51a2c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxChartControl.skin new file mode 100644 index 0000000..d2131d0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCheckBox.skin new file mode 100644 index 0000000..d6d3760 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCloudControl.skin new file mode 100644 index 0000000..b75b02d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxCloudControl.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxColorEdit.skin new file mode 100644 index 0000000..c56abe7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxComboBox.skin new file mode 100644 index 0000000..2e5ec46 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDataView.skin new file mode 100644 index 0000000..2cfb54c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDataView.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateEdit.skin new file mode 100644 index 0000000..366c97c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateNavigator.skin new file mode 100644 index 0000000..a195127 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDateNavigator.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDockPanel.skin new file mode 100644 index 0000000..7cca8f6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDockPanel.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + +
+ +
+ + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDropDownEdit.skin new file mode 100644 index 0000000..9598cec --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFileManager.skin new file mode 100644 index 0000000..603bbc6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFileManager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFilterControl.skin new file mode 100644 index 0000000..5a7c905 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxFilterControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridLookup.skin new file mode 100644 index 0000000..bd385eb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridLookup.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridView.skin new file mode 100644 index 0000000..e911d53 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxGridView.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + +
+ + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHeadline.skin new file mode 100644 index 0000000..f40ad31 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHeadline.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHtmlEditor.skin new file mode 100644 index 0000000..fd2804f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHyperLink.skin new file mode 100644 index 0000000..33bd6f8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLabel.skin new file mode 100644 index 0000000..9b3f67d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxListBox.skin new file mode 100644 index 0000000..44b53c5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLoadingPanel.skin new file mode 100644 index 0000000..7b03b5e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMemo.skin new file mode 100644 index 0000000..3a15e53 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMenu.skin new file mode 100644 index 0000000..d2629cd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxMenu.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNavBar.skin new file mode 100644 index 0000000..ea94f14 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNavBar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNewsControl.skin new file mode 100644 index 0000000..c7b4732 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxNewsControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPageControl.skin new file mode 100644 index 0000000..65957d7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPager.skin new file mode 100644 index 0000000..917dead --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPager.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPivotGrid.skin new file mode 100644 index 0000000..7e1dd3c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwpg" Namespace="DevExpress.Web.ASPxPivotGrid" Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupControl.skin new file mode 100644 index 0000000..c7dff8b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupMenu.skin new file mode 100644 index 0000000..b9a3572 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxProgressBar.skin new file mode 100644 index 0000000..5369809 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButton.skin new file mode 100644 index 0000000..82a25ad --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButtonList.skin new file mode 100644 index 0000000..cd7bb1a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRadioButtonList.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRatingControl.skin new file mode 100644 index 0000000..b4411f2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRoundPanel.skin new file mode 100644 index 0000000..499c3f7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxRoundPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxScheduler.skin new file mode 100644 index 0000000..00b11bd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxScheduler.skin @@ -0,0 +1,125 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSiteMapControl.skin new file mode 100644 index 0000000..e381266 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSiteMapControl.skin @@ -0,0 +1,35 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpellChecker.skin new file mode 100644 index 0000000..3f83bcd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpinEdit.skin new file mode 100644 index 0000000..c28f2f1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSplitter.skin new file mode 100644 index 0000000..c7eac5d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTabControl.skin new file mode 100644 index 0000000..256d678 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTabControl.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTextBox.skin new file mode 100644 index 0000000..477f658 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTimeEdit.skin new file mode 100644 index 0000000..7459642 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTitleIndex.skin new file mode 100644 index 0000000..03d8171 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTitleIndex.skin @@ -0,0 +1,35 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeList.skin new file mode 100644 index 0000000..c8ee1bb --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeList.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeView.skin new file mode 100644 index 0000000..b5d4821 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxUploadControl.skin new file mode 100644 index 0000000..abe6b8a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/MonthEdit.skin new file mode 100644 index 0000000..4f059de --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..37f1874 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportDocumentMap.skin new file mode 100644 index 0000000..8646667 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportParametersPanel.skin new file mode 100644 index 0000000..5fce505 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportToolbar.skin new file mode 100644 index 0000000..593f672 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportViewer.skin new file mode 100644 index 0000000..24e7d61 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekDaysEdit.skin new file mode 100644 index 0000000..e053b3d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekDaysEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekOfMonthEdit.skin new file mode 100644 index 0000000..8cfa3c1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/PlasticBlue/WeekOfMonthEdit.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButton.skin new file mode 100644 index 0000000..2d3f95e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButtonEdit.skin new file mode 100644 index 0000000..60e90e1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxButtonEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCalendar.skin new file mode 100644 index 0000000..ea799a7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCalendar.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCallbackPanel.skin new file mode 100644 index 0000000..980049b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCallbackPanel.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCaptcha.skin new file mode 100644 index 0000000..c5e3bbd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxChartControl.skin new file mode 100644 index 0000000..5e0b037 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCheckBox.skin new file mode 100644 index 0000000..8f1e0ef --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCloudControl.skin new file mode 100644 index 0000000..f2ec488 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxCloudControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxColorEdit.skin new file mode 100644 index 0000000..1bd03c0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxColorEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxComboBox.skin new file mode 100644 index 0000000..e79d119 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxComboBox.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDataView.skin new file mode 100644 index 0000000..7dd3fd2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDataView.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateEdit.skin new file mode 100644 index 0000000..e775cae --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateEdit.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateNavigator.skin new file mode 100644 index 0000000..f30c289 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDockPanel.skin new file mode 100644 index 0000000..d02643c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDockPanel.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDropDownEdit.skin new file mode 100644 index 0000000..b0796cd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxDropDownEdit.skin @@ -0,0 +1,22 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFileManager.skin new file mode 100644 index 0000000..d8a87b8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFilterControl.skin new file mode 100644 index 0000000..c484420 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridLookup.skin new file mode 100644 index 0000000..b411fb7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridLookup.skin @@ -0,0 +1,46 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridView.skin new file mode 100644 index 0000000..a1fd9fa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxGridView.skin @@ -0,0 +1,29 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHeadline.skin new file mode 100644 index 0000000..249c68d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHeadline.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHtmlEditor.skin new file mode 100644 index 0000000..3bc431c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHtmlEditor.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHyperLink.skin new file mode 100644 index 0000000..40b5aaa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLabel.skin new file mode 100644 index 0000000..7b1a58a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLabel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxListBox.skin new file mode 100644 index 0000000..2da7461 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLoadingPanel.skin new file mode 100644 index 0000000..b76f80e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMemo.skin new file mode 100644 index 0000000..5b5a444 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMenu.skin new file mode 100644 index 0000000..6a2d49d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxMenu.skin @@ -0,0 +1,33 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNavBar.skin new file mode 100644 index 0000000..f0c8920 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNewsControl.skin new file mode 100644 index 0000000..5fd33f8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPageControl.skin new file mode 100644 index 0000000..62724c9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPageControl.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPager.skin new file mode 100644 index 0000000..b7bbcb5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPager.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPivotGrid.skin new file mode 100644 index 0000000..992d1c3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPivotGrid.skin @@ -0,0 +1,20 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupControl.skin new file mode 100644 index 0000000..c5c3f04 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupControl.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupMenu.skin new file mode 100644 index 0000000..4540734 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxProgressBar.skin new file mode 100644 index 0000000..46e053b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButton.skin new file mode 100644 index 0000000..c467943 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButtonList.skin new file mode 100644 index 0000000..84ca8d3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRadioButtonList.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRatingControl.skin new file mode 100644 index 0000000..37aadc6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRoundPanel.skin new file mode 100644 index 0000000..e49c231 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxRoundPanel.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxScheduler.skin new file mode 100644 index 0000000..1b65093 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxScheduler.skin @@ -0,0 +1,132 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSiteMapControl.skin new file mode 100644 index 0000000..19b3540 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSiteMapControl.skin @@ -0,0 +1,42 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpellChecker.skin new file mode 100644 index 0000000..d195208 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpellChecker.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpinEdit.skin new file mode 100644 index 0000000..ff700a8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSplitter.skin new file mode 100644 index 0000000..59d3aef --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTabControl.skin new file mode 100644 index 0000000..7a2b604 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTabControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTextBox.skin new file mode 100644 index 0000000..a9e1a67 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTimeEdit.skin new file mode 100644 index 0000000..2b10f28 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTitleIndex.skin new file mode 100644 index 0000000..9d9df11 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTitleIndex.skin @@ -0,0 +1,36 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeList.skin new file mode 100644 index 0000000..9291f2a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeList.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeView.skin new file mode 100644 index 0000000..728ea7e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxUploadControl.skin new file mode 100644 index 0000000..df20109 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/MonthEdit.skin new file mode 100644 index 0000000..a5222aa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/MonthEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..de8e13b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/RecurrenceTypeEdit.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportDocumentMap.skin new file mode 100644 index 0000000..b813505 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportParametersPanel.skin new file mode 100644 index 0000000..3c849d1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportToolbar.skin new file mode 100644 index 0000000..746aaff --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportViewer.skin new file mode 100644 index 0000000..f11431a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/WeekDaysEdit.skin new file mode 100644 index 0000000..b5b4dc8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/WeekDaysEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/RedWine/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/RedWine/WeekOfMonthEdit.skin new file mode 100644 index 0000000..c91fa6c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/RedWine/WeekOfMonthEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButton.skin new file mode 100644 index 0000000..798994a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButtonEdit.skin new file mode 100644 index 0000000..db44be6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxButtonEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCalendar.skin new file mode 100644 index 0000000..9d6b402 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCalendar.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCallbackPanel.skin new file mode 100644 index 0000000..7ad9907 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCaptcha.skin new file mode 100644 index 0000000..1388777 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCaptcha.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxChartControl.skin new file mode 100644 index 0000000..cecc02f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCheckBox.skin new file mode 100644 index 0000000..b6f2cc6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCheckBox.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCloudControl.skin new file mode 100644 index 0000000..95e9e0a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxCloudControl.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxColorEdit.skin new file mode 100644 index 0000000..449e05d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxComboBox.skin new file mode 100644 index 0000000..17a7e6e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxComboBox.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDataView.skin new file mode 100644 index 0000000..2235169 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDataView.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateEdit.skin new file mode 100644 index 0000000..3e24b18 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateEdit.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateNavigator.skin new file mode 100644 index 0000000..bf81bb7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDockPanel.skin new file mode 100644 index 0000000..fdfc172 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDockPanel.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDropDownEdit.skin new file mode 100644 index 0000000..301c034 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxDropDownEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFileManager.skin new file mode 100644 index 0000000..740bb6f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFilterControl.skin new file mode 100644 index 0000000..7af5574 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridLookup.skin new file mode 100644 index 0000000..29b3561 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridLookup.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridView.skin new file mode 100644 index 0000000..34f5af3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxGridView.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHeadline.skin new file mode 100644 index 0000000..4561761 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHeadline.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHtmlEditor.skin new file mode 100644 index 0000000..2c63b05 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHtmlEditor.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHyperLink.skin new file mode 100644 index 0000000..4e15a26 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLabel.skin new file mode 100644 index 0000000..7e1a06e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLabel.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxListBox.skin new file mode 100644 index 0000000..8e2a8ce --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLoadingPanel.skin new file mode 100644 index 0000000..c6b015f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMemo.skin new file mode 100644 index 0000000..f297333 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMenu.skin new file mode 100644 index 0000000..064dc01 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxMenu.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNavBar.skin new file mode 100644 index 0000000..22e5ba1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNavBar.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNewsControl.skin new file mode 100644 index 0000000..17f6e24 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxNewsControl.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPageControl.skin new file mode 100644 index 0000000..28bbbe2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPageControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPager.skin new file mode 100644 index 0000000..8cd8787 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPivotGrid.skin new file mode 100644 index 0000000..e7523f5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPivotGrid.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupControl.skin new file mode 100644 index 0000000..5bbe2d0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupMenu.skin new file mode 100644 index 0000000..98567e8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxPopupMenu.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxProgressBar.skin new file mode 100644 index 0000000..00faa8f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButton.skin new file mode 100644 index 0000000..1157677 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButtonList.skin new file mode 100644 index 0000000..a9c836f --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRatingControl.skin new file mode 100644 index 0000000..df7f6fe --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRoundPanel.skin new file mode 100644 index 0000000..177d62c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxScheduler.skin new file mode 100644 index 0000000..39d0763 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxScheduler.skin @@ -0,0 +1,126 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSiteMapControl.skin new file mode 100644 index 0000000..b4df736 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSiteMapControl.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpellChecker.skin new file mode 100644 index 0000000..6b4f576 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpinEdit.skin new file mode 100644 index 0000000..19f819d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSpinEdit.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSplitter.skin new file mode 100644 index 0000000..7988023 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTabControl.skin new file mode 100644 index 0000000..53ee8b4 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTabControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTextBox.skin new file mode 100644 index 0000000..483e3b7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTimeEdit.skin new file mode 100644 index 0000000..4bc6a0e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTitleIndex.skin new file mode 100644 index 0000000..c41244c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTitleIndex.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeList.skin new file mode 100644 index 0000000..0ec662c --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeList.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeView.skin new file mode 100644 index 0000000..eedabac --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxUploadControl.skin new file mode 100644 index 0000000..915ad87 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/MonthEdit.skin new file mode 100644 index 0000000..f6b3ecf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/MonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..d9c15a3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportDocumentMap.skin new file mode 100644 index 0000000..a86c208 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportParametersPanel.skin new file mode 100644 index 0000000..1e6bbbe --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportToolbar.skin new file mode 100644 index 0000000..d34a9f9 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportViewer.skin new file mode 100644 index 0000000..af57118 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekDaysEdit.skin new file mode 100644 index 0000000..b395e50 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekDaysEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekOfMonthEdit.skin new file mode 100644 index 0000000..e835faa --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/SoftOrange/WeekOfMonthEdit.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButton.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButton.skin new file mode 100644 index 0000000..483cd91 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButtonEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButtonEdit.skin new file mode 100644 index 0000000..fa55794 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxButtonEdit.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCalendar.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCalendar.skin new file mode 100644 index 0000000..f0604d2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCalendar.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCallbackPanel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCallbackPanel.skin new file mode 100644 index 0000000..12d6acc --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCallbackPanel.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCaptcha.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCaptcha.skin new file mode 100644 index 0000000..d00ec6a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCaptcha.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxChartControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxChartControl.skin new file mode 100644 index 0000000..525fa7d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxChartControl.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcharts" namespace="DevExpress.XtraCharts" assembly="DevExpress.XtraCharts.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxchartsui" namespace="DevExpress.XtraCharts.Web" assembly="DevExpress.XtraCharts.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCheckBox.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCheckBox.skin new file mode 100644 index 0000000..ffc4d48 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCheckBox.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCloudControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCloudControl.skin new file mode 100644 index 0000000..a281c93 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxCloudControl.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxcc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxColorEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxColorEdit.skin new file mode 100644 index 0000000..7fd91e1 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxColorEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxComboBox.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxComboBox.skin new file mode 100644 index 0000000..dd34587 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxComboBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDataView.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDataView.skin new file mode 100644 index 0000000..04cea72 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDataView.skin @@ -0,0 +1,9 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxdv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateEdit.skin new file mode 100644 index 0000000..0180f93 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateEdit.skin @@ -0,0 +1,16 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateNavigator.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateNavigator.skin new file mode 100644 index 0000000..b96320a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDateNavigator.skin @@ -0,0 +1,10 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDockPanel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDockPanel.skin new file mode 100644 index 0000000..06a3483 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDockPanel.skin @@ -0,0 +1,15 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDropDownEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDropDownEdit.skin new file mode 100644 index 0000000..ae442f5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxDropDownEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFileManager.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFileManager.skin new file mode 100644 index 0000000..562011a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFileManager.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFilterControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFilterControl.skin new file mode 100644 index 0000000..0777317 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxFilterControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridLookup.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridLookup.skin new file mode 100644 index 0000000..2852bef --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridLookup.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridView.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridView.skin new file mode 100644 index 0000000..1b99098 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxGridView.skin @@ -0,0 +1,28 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxgv" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + +
+ + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHeadline.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHeadline.skin new file mode 100644 index 0000000..8e3d4d7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHeadline.skin @@ -0,0 +1,13 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxhl" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHtmlEditor.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHtmlEditor.skin new file mode 100644 index 0000000..69a21ed --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHtmlEditor.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHyperLink.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHyperLink.skin new file mode 100644 index 0000000..0832590 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxHyperLink.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLabel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLabel.skin new file mode 100644 index 0000000..f8f78ab --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLabel.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxListBox.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxListBox.skin new file mode 100644 index 0000000..2378f34 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxListBox.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLoadingPanel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLoadingPanel.skin new file mode 100644 index 0000000..8fb2069 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxLoadingPanel.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxlp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMemo.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMemo.skin new file mode 100644 index 0000000..90656e8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMemo.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMenu.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMenu.skin new file mode 100644 index 0000000..414f56d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxMenu.skin @@ -0,0 +1,32 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNavBar.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNavBar.skin new file mode 100644 index 0000000..746c468 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNavBar.skin @@ -0,0 +1,24 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnb" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNewsControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNewsControl.skin new file mode 100644 index 0000000..98801f5 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxNewsControl.skin @@ -0,0 +1,31 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxnc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPageControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPageControl.skin new file mode 100644 index 0000000..3a0b2bd --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPageControl.skin @@ -0,0 +1,23 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPager.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPager.skin new file mode 100644 index 0000000..be54640 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPager.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpg" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPivotGrid.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPivotGrid.skin new file mode 100644 index 0000000..9084da0 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPivotGrid.skin @@ -0,0 +1,17 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxPivotGrid.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxPivotGrid" TagPrefix="dxwpg" %> +<%@ Register Assembly="DevExpress.PivotGrid.v15.2.Core, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.XtraPivotGrid" TagPrefix="temp" %> + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupControl.skin new file mode 100644 index 0000000..793560d --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupControl.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxpc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupMenu.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupMenu.skin new file mode 100644 index 0000000..d826566 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxPopupMenu.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxProgressBar.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxProgressBar.skin new file mode 100644 index 0000000..16f3cfe --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxProgressBar.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButton.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButton.skin new file mode 100644 index 0000000..e033d78 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButton.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButtonList.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButtonList.skin new file mode 100644 index 0000000..1df7ad7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRadioButtonList.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRatingControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRatingControl.skin new file mode 100644 index 0000000..9cc3557 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRatingControl.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRoundPanel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRoundPanel.skin new file mode 100644 index 0000000..b2b278a --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxRoundPanel.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxrp" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxScheduler.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxScheduler.skin new file mode 100644 index 0000000..a23eff6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxScheduler.skin @@ -0,0 +1,19 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxScheduler" TagPrefix="temp" %> + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSiteMapControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSiteMapControl.skin new file mode 100644 index 0000000..e307685 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSiteMapControl.skin @@ -0,0 +1,39 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxsm" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpellChecker.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpellChecker.skin new file mode 100644 index 0000000..0eec7ef --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpellChecker.skin @@ -0,0 +1,8 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwsc" Namespace="DevExpress.Web.ASPxSpellChecker" Assembly="DevExpress.Web.ASPxSpellChecker.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpinEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpinEdit.skin new file mode 100644 index 0000000..cafa129 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSpinEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSplitter.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSplitter.skin new file mode 100644 index 0000000..d1c18b8 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxSplitter.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTabControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTabControl.skin new file mode 100644 index 0000000..6a4cbfe --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTabControl.skin @@ -0,0 +1,21 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxtc" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTextBox.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTextBox.skin new file mode 100644 index 0000000..91e7565 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTextBox.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTimeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTimeEdit.skin new file mode 100644 index 0000000..a604e0e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTimeEdit.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTitleIndex.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTitleIndex.skin new file mode 100644 index 0000000..9183898 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTitleIndex.skin @@ -0,0 +1,30 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxti" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeList.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeList.skin new file mode 100644 index 0000000..c81a1cf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeList.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwtl" Namespace="DevExpress.Web.ASPxTreeList" Assembly="DevExpress.Web.ASPxTreeList.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeView.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeView.skin new file mode 100644 index 0000000..d013ad6 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxTreeView.skin @@ -0,0 +1,14 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2" %> + + + + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxUploadControl.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxUploadControl.skin new file mode 100644 index 0000000..0f6f723 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ASPxUploadControl.skin @@ -0,0 +1,6 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dx" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/MonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/MonthEdit.skin new file mode 100644 index 0000000..716a7c2 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/MonthEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/RecurrenceTypeEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/RecurrenceTypeEdit.skin new file mode 100644 index 0000000..2f0a8ec --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/RecurrenceTypeEdit.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ReportDocumentMap.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportDocumentMap.skin new file mode 100644 index 0000000..70fbf97 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportDocumentMap.skin @@ -0,0 +1,5 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ReportParametersPanel.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportParametersPanel.skin new file mode 100644 index 0000000..b48289e --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportParametersPanel.skin @@ -0,0 +1,4 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ReportToolbar.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportToolbar.skin new file mode 100644 index 0000000..9546acf --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportToolbar.skin @@ -0,0 +1,11 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/ReportViewer.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportViewer.skin new file mode 100644 index 0000000..7cbb6e7 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/ReportViewer.skin @@ -0,0 +1,7 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxxr" Namespace="DevExpress.XtraReports.Web" Assembly="DevExpress.XtraReports.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/WeekDaysEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/WeekDaysEdit.skin new file mode 100644 index 0000000..bfdbde3 --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/WeekDaysEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/App_Themes/Youthful/WeekOfMonthEdit.skin b/SISBusiness.Web.CRM/App_Themes/Youthful/WeekOfMonthEdit.skin new file mode 100644 index 0000000..42e682b --- /dev/null +++ b/SISBusiness.Web.CRM/App_Themes/Youthful/WeekOfMonthEdit.skin @@ -0,0 +1,12 @@ +<%@ Register TagPrefix="dx" Namespace="DevExpress.Data" Assembly="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxe" Namespace="DevExpress.Web" Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register TagPrefix="dxwschs" Namespace="DevExpress.Web.ASPxScheduler.Controls" Assembly="DevExpress.Web.ASPxScheduler.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> + + + + + + + + + diff --git a/SISBusiness.Web.CRM/Default.aspx b/SISBusiness.Web.CRM/Default.aspx new file mode 100644 index 0000000..e726515 --- /dev/null +++ b/SISBusiness.Web.CRM/Default.aspx @@ -0,0 +1,22 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="Default.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> + + + + Main Page + + + +
+ + + + +
+ + + diff --git a/SISBusiness.Web.CRM/Default.aspx.designer.vb b/SISBusiness.Web.CRM/Default.aspx.designer.vb new file mode 100644 index 0000000..0e64e14 --- /dev/null +++ b/SISBusiness.Web.CRM/Default.aspx.designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''UPPopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPPopupWindowControl As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''PopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupWindowControl As Global.DevExpress.ExpressApp.Web.Controls.XafPopupWindowControl + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.CRM/Default.aspx.vb b/SISBusiness.Web.CRM/Default.aspx.vb new file mode 100644 index 0000000..689cbf4 --- /dev/null +++ b/SISBusiness.Web.CRM/Default.aspx.vb @@ -0,0 +1,37 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers + +Partial Public Class [Default] + Inherits BaseXafPage + + Shared Sub New() + WebWindowTemplateHttpHandler.CurrentRequestTemplateType = TemplateType.Vertical + End Sub + + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + + Protected Sub Page_Init() + AddHandler CustomizeTemplateContent, _ + Sub(sender As Object, e As CustomizeTemplateContentEventArgs) + Dim _content As DefaultVerticalTemplateContent = TryCast(e.TemplateContent, DefaultVerticalTemplateContent) + If _content IsNot Nothing Then + _content.HeaderImageControl.DefaultThemeImageLocation = "Images" + _content.HeaderImageControl.ImageName = "Logo.png" + End If + End Sub + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.CRM/DefaultHorizontal.aspx b/SISBusiness.Web.CRM/DefaultHorizontal.aspx new file mode 100644 index 0000000..b7bcc79 --- /dev/null +++ b/SISBusiness.Web.CRM/DefaultHorizontal.aspx @@ -0,0 +1,216 @@ +<%@ Page Language="vb" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="DefaultHorizontal.aspx.vb" %> +<%@ Register Assembly="DevExpress.Web.v15.2" Namespace="DevExpress.Web" + TagPrefix="dxrp" %> + +<%@ Register Assembly="DevExpress.Web.v15.2" Namespace="DevExpress.Web" + TagPrefix="dx" %> +<%@ Register Assembly="DevExpress.Web.v15.2" Namespace="DevExpress.Web" + TagPrefix="dxge" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers" + TagPrefix="cc2" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls" + TagPrefix="tc" %> + + + + Main Page + + + + + +
+ + +
+
+ + + + + + + + + + + +
+
+ + + + + +
+ + + +
+ + + + + + + +
+
+ + + + + + +
+
+ + + +
+ +
+ 		+
+
+
+
+ 		+ + + + + + + + + + + + +
+ + + + + + + + + + + + + + +
+ + + + + + +
+ + +

+ + +

+ + 		+ + + +
+
+ +
+ + + + + +
+
+ + + + + + + +
+ + + + + + + + + + +
+
+
+ + + + + +
+
+
+
+
+ + + + +
+ +
+ + + diff --git a/SISBusiness.Web.CRM/DefaultHorizontal.aspx.designer.vb b/SISBusiness.Web.CRM/DefaultHorizontal.aspx.designer.vb new file mode 100644 index 0000000..8ad770d --- /dev/null +++ b/SISBusiness.Web.CRM/DefaultHorizontal.aspx.designer.vb @@ -0,0 +1,303 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''GE control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents GE As Global.DevExpress.Web.ASPxGlobalEvents + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''LogoLink control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents LogoLink As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''TIC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TIC As Global.DevExpress.ExpressApp.Web.Controls.ThemedImageControl + + ''' + '''UPSAC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPSAC As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''SAC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents SAC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPNTAC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPNTAC As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''NTAC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents NTAC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.NavigationTabsActionContainer + + ''' + '''UPLP control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPLP As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''VTC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents VTC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''DAC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DAC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPTB control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPTB As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''TB control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TB As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPVH control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPVH As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''VIC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents VIC As Global.DevExpress.ExpressApp.Web.Controls.ViewImageControl + + ''' + '''VCC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents VCC As Global.DevExpress.ExpressApp.Web.Controls.ViewCaptionControl + + ''' + '''VHC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents VHC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.NavigationHistoryActionContainer + + ''' + '''RNC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RNC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPEMA control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPEMA As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''EMA control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents EMA As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPEI control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPEI As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''ErrorInfo control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorInfo As Global.DevExpress.ExpressApp.Web.Templates.Controls.ErrorInfoControl + + ''' + '''UPVSC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPVSC As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''VSC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents VSC As Global.DevExpress.ExpressApp.Web.Controls.ViewSiteControl + + ''' + '''EditModeActions2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents EditModeActions2 As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.ActionContainerHolder + + ''' + '''UPQC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPQC As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''QC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents QC As Global.DevExpress.ExpressApp.Web.Templates.ActionContainers.QuickAccessNavigationActionContainer + + ''' + '''UPIMP control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPIMP As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''InfoMessagesPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents InfoMessagesPanel As Global.System.Web.UI.WebControls.Literal + + ''' + '''AIC control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents AIC As Global.DevExpress.ExpressApp.Web.Controls.AboutInfoControl +End Class diff --git a/SISBusiness.Web.CRM/DefaultHorizontal.aspx.vb b/SISBusiness.Web.CRM/DefaultHorizontal.aspx.vb new file mode 100644 index 0000000..ea3883b --- /dev/null +++ b/SISBusiness.Web.CRM/DefaultHorizontal.aspx.vb @@ -0,0 +1,31 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering + +Partial Public Class [Default] + Inherits BaseXafPage + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.Instance.CreateControls(Me) + + End Sub + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + Protected Overrides Function GetDefaultContainer() As IActionContainer + Return TB.FindActionContainerById("View") + End Function + Public Overrides Sub SetStatus(ByVal statusMessages As System.Collections.Generic.ICollection(Of String)) + InfoMessagesPanel.Text = String.Join("
", New List(Of String)(statusMessages).ToArray()) + End Sub + Protected Overrides Sub OnViewChanged(ByVal view As DevExpress.ExpressApp.View) + ViewSiteControl = VSC + MyBase.OnViewChanged(view) + End Sub +End Class diff --git a/SISBusiness.Web.CRM/Error.aspx b/SISBusiness.Web.CRM/Error.aspx new file mode 100644 index 0000000..32eee14 --- /dev/null +++ b/SISBusiness.Web.CRM/Error.aspx @@ -0,0 +1,80 @@ +<%@ Page language="vb" AutoEventWireup="false" Inherits="ErrorPage" enableViewState="false" validateRequest="false" CodeBehind="Error.aspx.vb" %> + + + + Error + + + +
+
+
+
+ + + + + +
+

+ 		+ +
+
+ +
+ + + +

+

+ +

+ Your report was sent. Thank you.
 + We are currently unable to serve your request: RequestUrl.
+ We apologize, but an error occurred and your request could not be completed.
 + You could go back and try again + + previous page + , or retry your request: RequestUrl.

+ + Show Error details + + + + Report error
 +

This error has been logged. If you have additional information that you believe may have caused this error please report the problem.

+ +
+
+
+ + + + + +
+
+
+
+ +
+ + diff --git a/SISBusiness.Web.CRM/Error.aspx.designer.vb b/SISBusiness.Web.CRM/Error.aspx.designer.vb new file mode 100644 index 0000000..41e9cb3 --- /dev/null +++ b/SISBusiness.Web.CRM/Error.aspx.designer.vb @@ -0,0 +1,206 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5446 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class ErrorPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ApplicationTitle control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApplicationTitle As Global.System.Web.UI.WebControls.Literal + + ''' + '''InfoMessagesPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents InfoMessagesPanel As Global.System.Web.UI.WebControls.Literal + + ''' + '''Table1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Table1 As Global.System.Web.UI.WebControls.Table + + ''' + '''TableRow2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TableRow2 As Global.System.Web.UI.WebControls.TableRow + + ''' + '''ViewSite control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ViewSite As Global.System.Web.UI.WebControls.TableCell + + ''' + '''ErrorTitleLiteral control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorTitleLiteral As Global.System.Web.UI.WebControls.Literal + + ''' + '''ErrorPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorPanel As Global.System.Web.UI.WebControls.Panel + + ''' + '''ReportResult control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportResult As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''ApologizeMessage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApologizeMessage As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''RequestUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''HyperLink1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLink1 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''LiteralReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents LiteralReturn As Global.System.Web.UI.WebControls.Literal + + ''' + '''HyperLinkReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLinkReturn As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''RequestUrl2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl2 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''Details control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Details As Global.System.Web.UI.WebControls.Panel + + ''' + '''DetailsText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DetailsText As Global.System.Web.UI.WebControls.Literal + + ''' + '''ReportForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportForm As Global.System.Web.UI.WebControls.Panel + + ''' + '''DescriptionTextBox control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DescriptionTextBox As Global.System.Web.UI.WebControls.TextBox + + ''' + '''ReportButton control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportButton As Global.System.Web.UI.WebControls.Button +End Class diff --git a/SISBusiness.Web.CRM/Error.aspx.vb b/SISBusiness.Web.CRM/Error.aspx.vb new file mode 100644 index 0000000..599a14c --- /dev/null +++ b/SISBusiness.Web.CRM/Error.aspx.vb @@ -0,0 +1,97 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.IO +Imports System.Collections +Imports System.ComponentModel +Imports System.Data +Imports System.Globalization +Imports System.Threading +Imports System.Drawing +Imports System.Web +Imports System.Web.SessionState +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.HtmlControls + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.TestScripts +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Web.SystemModule + +Partial Public Class ErrorPage + Inherits System.Web.UI.Page + Private Function GetApplicationInfoString() As String + AboutInfo.Instance.Init(WebApplication.Instance) + Return AboutInfo.Instance.AboutInfoString + End Function + Protected Overrides Sub InitializeCulture() + If WebApplication.Instance IsNot Nothing Then + WebApplication.Instance.InitializeCulture() + End If + End Sub + Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim testScriptsManager As New TestScriptsManager(Page) + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "RequestUrl", TestControlType.Field, "RequestUrl") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "DescriptionTextBox", TestControlType.Field, "Description") + testScriptsManager.RegisterControl(JSDefaultTestControl.ClassName, "ReportButton", TestControlType.Action, "Report") + testScriptsManager.AllControlRegistered("") + If WebApplication.Instance IsNot Nothing Then + ApplicationTitle.Text = WebApplication.Instance.Title + Else + ApplicationTitle.Text = "No application" + End If + Header.Title = "Application Error - " & ApplicationTitle.Text + + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + RequestUrl.NavigateUrl = errorInfo.Url + RequestUrl.Text = errorInfo.Url + RequestUrl2.NavigateUrl = errorInfo.Url + RequestUrl2.Text = errorInfo.Url + If (Not String.IsNullOrEmpty(errorInfo.UrlReferrer)) Then + HyperLinkReturn.NavigateUrl = errorInfo.UrlReferrer + Else + LiteralReturn.Visible = False + HyperLinkReturn.Visible = False + End If + If ErrorHandling.CanShowDetailedInformation Then + DetailsText.Text = errorInfo.GetTextualPresentation(True) + Else + Details.Visible = False + End If + ReportResult.Visible = False + ReportForm.Visible = ErrorHandling.CanSendAlertToAdmin + Else + ErrorPanel.Visible = False + End If + End Sub +#Region "Web Form Designer generated code" + Protected Overrides Sub OnInit(ByVal e As EventArgs) + InitializeComponent() + MyBase.OnInit(e) + End Sub + + Private Sub InitializeComponent() +' Me.Load += New System.EventHandler(Me.Page_Load); +' Me.PreRender += New EventHandler(ErrorPage_PreRender); + End Sub + + Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.PreRender + RegisterThemeAssemblyController.RegisterThemeResources(CType(sender, Page)) + End Sub + +#End Region + Protected Sub ReportButton_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + ErrorHandling.SendAlertToAdmin(errorInfo.Id, DescriptionTextBox.Text, errorInfo.Exception.Message) + ErrorHandling.ClearApplicationError() + ApologizeMessage.Visible = False + ReportForm.Visible = False + Details.Visible = False + ReportResult.Visible = True + End If + End Sub +End Class diff --git a/SISBusiness.Web.CRM/GetAttachments.ashx b/SISBusiness.Web.CRM/GetAttachments.ashx new file mode 100644 index 0000000..7b4b712 --- /dev/null +++ b/SISBusiness.Web.CRM/GetAttachments.ashx @@ -0,0 +1 @@ +<%@ WebHandler Language="VB" CodeBehind="GetAttachments.ashx.vb" Class=".GetAttachments" %> diff --git a/SISBusiness.Web.CRM/GetAttachments.ashx.vb b/SISBusiness.Web.CRM/GetAttachments.ashx.vb new file mode 100644 index 0000000..5cdaf12 --- /dev/null +++ b/SISBusiness.Web.CRM/GetAttachments.ashx.vb @@ -0,0 +1,42 @@ +Imports System.Web +Imports System.Web.Services +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.FileAttachments +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.Web.Internal + +Public Class GetAttachments + Implements System.Web.IHttpHandler + Private _Session As DevExpress.Xpo.Session + Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest + Dim _Oid As String + Dim _ConnectionString As String + Dim _Attachment As FileData + + _Oid = context.Request.QueryString("id") + _ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString + + _Session = New DevExpress.Xpo.Session + _Session.ConnectionString = _ConnectionString + _Session.Connect() + + If _Session.IsConnected Then + _Attachment = _Session.FindObject(Of FileData)(CriteriaOperator.Parse("Oid=?", _Oid)) + + If _Attachment IsNot Nothing Then + Dim _Stream As New MemoryStream + _Attachment.SaveToStream(_Stream) + HttpUtils.WriteFileToResponse(Nothing, _Stream, _Attachment.FileName, True, "") + End If + End If + End Sub + + ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable + Get + Return False + End Get + End Property + +End Class \ No newline at end of file diff --git a/SISBusiness.Web.CRM/Global.asax b/SISBusiness.Web.CRM/Global.asax new file mode 100644 index 0000000..aa2e26f --- /dev/null +++ b/SISBusiness.Web.CRM/Global.asax @@ -0,0 +1 @@ +<%@ Application Language="vb" CodeBehind="Global.asax.vb" Inherits="Global"%> diff --git a/SISBusiness.Web.CRM/Global.asax.vb b/SISBusiness.Web.CRM/Global.asax.vb new file mode 100644 index 0000000..e93876a --- /dev/null +++ b/SISBusiness.Web.CRM/Global.asax.vb @@ -0,0 +1,69 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Configuration +Imports System.Web.Configuration +Imports System.Web + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Web +Imports DevExpress.Web + +Public Class [Global] + Inherits System.Web.HttpApplication + Public Sub New() + InitializeComponent() + End Sub + Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) + AddHandler ASPxWebControl.CallbackError, AddressOf Application_Error +#If EASYTEST Then + DevExpress.ExpressApp.Web.TestScripts.TestScriptsManager.EasyTestEnabled = True +#End If + + End Sub + Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.SetInstance(Session, New SISBusinessAspNetApplication()) +#If EASYTEST Then + If (Not ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString").ConnectionString + End If +#End If + If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + End If + If System.Diagnostics.Debugger.IsAttached Then + WebApplication.Instance.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + End If + WebApplication.Instance.Setup() + WebApplication.Instance.Start() + End Sub + Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) + Dim filePath As String = HttpContext.Current.Request.PhysicalPath + If (Not String.IsNullOrEmpty(filePath)) AndAlso (filePath.IndexOf("Images") >= 0) AndAlso (Not System.IO.File.Exists(filePath)) Then + HttpContext.Current.Response.End() + End If + End Sub + Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) + ErrorHandling.Instance.ProcessApplicationError() + End Sub + Protected Sub Session_End(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.LogOff(Session) + WebApplication.DisposeInstance(Session) + End Sub + Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs) + End Sub +#Region "Web Form Designer generated code" + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + End Sub +#End Region +End Class diff --git a/SISBusiness.Web.CRM/Images/ButtonBkg.gif b/SISBusiness.Web.CRM/Images/ButtonBkg.gif new file mode 100644 index 0000000..cf70093 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/ButtonBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/ExpressAppLogo.png b/SISBusiness.Web.CRM/Images/ExpressAppLogo.png new file mode 100644 index 0000000..3a6eaad Binary files /dev/null and b/SISBusiness.Web.CRM/Images/ExpressAppLogo.png differ diff --git a/SISBusiness.Web.CRM/Images/FooterBkg.gif b/SISBusiness.Web.CRM/Images/FooterBkg.gif new file mode 100644 index 0000000..e6c0924 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/FooterBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/GridHeaderBkg.gif b/SISBusiness.Web.CRM/Images/GridHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/GridHeaderBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/HeaderBkg.gif b/SISBusiness.Web.CRM/Images/HeaderBkg.gif new file mode 100644 index 0000000..3e2bca4 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/HeaderBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/LayoutHeaderBkg.gif b/SISBusiness.Web.CRM/Images/LayoutHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/LayoutHeaderBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/Logo.png b/SISBusiness.Web.CRM/Images/Logo.png new file mode 100644 index 0000000..ecbd41c Binary files /dev/null and b/SISBusiness.Web.CRM/Images/Logo.png differ diff --git a/SISBusiness.Web.CRM/Images/Progress.gif b/SISBusiness.Web.CRM/Images/Progress.gif new file mode 100644 index 0000000..9925182 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/Progress.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedCenter.gif b/SISBusiness.Web.CRM/Images/SelectedCenter.gif new file mode 100644 index 0000000..74edae8 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedCenter.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedCenterWhite.gif b/SISBusiness.Web.CRM/Images/SelectedCenterWhite.gif new file mode 100644 index 0000000..087423a Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedCenterWhite.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedLeft.gif b/SISBusiness.Web.CRM/Images/SelectedLeft.gif new file mode 100644 index 0000000..bca0446 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedLeft.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedLeftWhite.gif b/SISBusiness.Web.CRM/Images/SelectedLeftWhite.gif new file mode 100644 index 0000000..3dcd672 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedLeftWhite.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedRight.gif b/SISBusiness.Web.CRM/Images/SelectedRight.gif new file mode 100644 index 0000000..ff75c77 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedRight.gif differ diff --git a/SISBusiness.Web.CRM/Images/SelectedRightWhite.gif b/SISBusiness.Web.CRM/Images/SelectedRightWhite.gif new file mode 100644 index 0000000..21aa896 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SelectedRightWhite.gif differ diff --git a/SISBusiness.Web.CRM/Images/SideBarRDCorner.gif b/SISBusiness.Web.CRM/Images/SideBarRDCorner.gif new file mode 100644 index 0000000..88489cb Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SideBarRDCorner.gif differ diff --git a/SISBusiness.Web.CRM/Images/SideBarRUCorner.gif b/SISBusiness.Web.CRM/Images/SideBarRUCorner.gif new file mode 100644 index 0000000..fb57ca4 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/SideBarRUCorner.gif differ diff --git a/SISBusiness.Web.CRM/Images/TabContentBkg.gif b/SISBusiness.Web.CRM/Images/TabContentBkg.gif new file mode 100644 index 0000000..fe8858f Binary files /dev/null and b/SISBusiness.Web.CRM/Images/TabContentBkg.gif differ diff --git a/SISBusiness.Web.CRM/Images/UnSelectedCenter.gif b/SISBusiness.Web.CRM/Images/UnSelectedCenter.gif new file mode 100644 index 0000000..87f9e01 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/UnSelectedCenter.gif differ diff --git a/SISBusiness.Web.CRM/Images/UnSelectedLeft.gif b/SISBusiness.Web.CRM/Images/UnSelectedLeft.gif new file mode 100644 index 0000000..ef32fd0 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/UnSelectedLeft.gif differ diff --git a/SISBusiness.Web.CRM/Images/UnSelectedRight.gif b/SISBusiness.Web.CRM/Images/UnSelectedRight.gif new file mode 100644 index 0000000..cc2f697 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/UnSelectedRight.gif differ diff --git a/SISBusiness.Web.CRM/Images/iGreenArrow.png b/SISBusiness.Web.CRM/Images/iGreenArrow.png new file mode 100644 index 0000000..9ba7ea0 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/iGreenArrow.png differ diff --git a/SISBusiness.Web.CRM/Images/iOK.png b/SISBusiness.Web.CRM/Images/iOK.png new file mode 100644 index 0000000..ccfe627 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/iOK.png differ diff --git a/SISBusiness.Web.CRM/Images/iQuestion.png b/SISBusiness.Web.CRM/Images/iQuestion.png new file mode 100644 index 0000000..e1fa895 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/iQuestion.png differ diff --git a/SISBusiness.Web.CRM/Images/iRedArrow.png b/SISBusiness.Web.CRM/Images/iRedArrow.png new file mode 100644 index 0000000..57cf3a6 Binary files /dev/null and b/SISBusiness.Web.CRM/Images/iRedArrow.png differ diff --git a/SISBusiness.Web.CRM/Login.aspx b/SISBusiness.Web.CRM/Login.aspx new file mode 100644 index 0000000..eee2f06 --- /dev/null +++ b/SISBusiness.Web.CRM/Login.aspx @@ -0,0 +1,35 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers" + TagPrefix="cc2" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls" + TagPrefix="tc" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> + + + + Logon + + +
+
+ +
+ +
+
+ +
+ + diff --git a/SISBusiness.Web.CRM/Login.aspx.designer.vb b/SISBusiness.Web.CRM/Login.aspx.designer.vb new file mode 100644 index 0000000..a1c45b4 --- /dev/null +++ b/SISBusiness.Web.CRM/Login.aspx.designer.vb @@ -0,0 +1,53 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class LoginPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.CRM/Login.aspx.vb b/SISBusiness.Web.CRM/Login.aspx.vb new file mode 100644 index 0000000..acd7c80 --- /dev/null +++ b/SISBusiness.Web.CRM/Login.aspx.vb @@ -0,0 +1,17 @@ +Imports Microsoft.VisualBasic +Imports System + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates + +Partial Public Class LoginPage + Inherits BaseXafPage + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As System.Web.UI.Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.CRM/Model.xafml b/SISBusiness.Web.CRM/Model.xafml new file mode 100644 index 0000000..c0a89eb --- /dev/null +++ b/SISBusiness.Web.CRM/Model.xafml @@ -0,0 +1,78 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/Model_hu.xafml b/SISBusiness.Web.CRM/Model_hu.xafml new file mode 100644 index 0000000..0050fcd --- /dev/null +++ b/SISBusiness.Web.CRM/Model_hu.xafml @@ -0,0 +1,61 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/My Project/Application.Designer.vb b/SISBusiness.Web.CRM/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Web.CRM/My Project/Application.myapp b/SISBusiness.Web.CRM/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Web.CRM/My Project/AssemblyInfo.vb b/SISBusiness.Web.CRM/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b411867 --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/AssemblyInfo.vb @@ -0,0 +1,34 @@ +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 + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.Web.CRM/My Project/Resources.Designer.vb b/SISBusiness.Web.CRM/My Project/Resources.Designer.vb new file mode 100644 index 0000000..28c3d4c --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.CRM/My Project/Resources.resx b/SISBusiness.Web.CRM/My Project/Resources.resx new file mode 100644 index 0000000..e8c096b --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Resources.resx @@ -0,0 +1,116 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Web.CRM/My Project/Settings.Designer.vb b/SISBusiness.Web.CRM/My Project/Settings.Designer.vb new file mode 100644 index 0000000..45fbf20 --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.My.MySettings + Get + Return Global.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.CRM/My Project/Settings.settings b/SISBusiness.Web.CRM/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Web.CRM/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Web.CRM/My Project/licenses.licx b/SISBusiness.Web.CRM/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/SISBusiness.Web.CRM/SISBusiness.Web.CRM.Publish.xml b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.Publish.xml new file mode 100644 index 0000000..6d3f46d --- /dev/null +++ b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.Publish.xml @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj new file mode 100644 index 0000000..b357629 --- /dev/null +++ b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj @@ -0,0 +1,1214 @@ + + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {DDAB10EC-565F-46A1-9ADF-79D0488F6B2E} + {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Library + + + SISBusiness.Web + v4.0 + + + 4.0 + SAK + SAK + SAK + SAK + + + + false + + + + + + + true + full + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + + + pdbonly + false + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + true + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + + + On + + + Binary + + + Off + + + On + + + + False + + + False + + + + + + + + + + False + + + + False + + + + + + + + + + + False + + + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + + + False + + + + False + + + False + + + False + + + False + + + + + + + + + + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + False + + + False + + + False + + + + + + + + + + + + + + + + + + + + + + + + + + + Component + + + Default.aspx + + + Default.aspx + ASPXCodeBehind + + + Error.aspx + + + Error.aspx + ASPXCodeBehind + + + GetAttachments.ashx + + + Global.asax + + + Login.aspx + + + Login.aspx + ASPXCodeBehind + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Component + + + + + WebApplication.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + Always + + + + Always + + + Always + + + Always + + + Always + + + Always + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Model.xafml + Always + Designer + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + {B87EACCF-FA6C-4043-AA73-800C77D8DF11} + SISBusiness.Module.Web + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + true + bin\ + SISBusiness.WebApp.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + AllRules.ruleset + + + + + + + + + + False + True + 56279 + / + + + False + False + + + False + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj.vspscc b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Web.CRM/SISBusiness.Web.CRM.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Web.CRM/Web.Config b/SISBusiness.Web.CRM/Web.Config new file mode 100644 index 0000000..140c7a5 --- /dev/null +++ b/SISBusiness.Web.CRM/Web.Config @@ -0,0 +1,216 @@ + + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/WebApplication.resx b/SISBusiness.Web.CRM/WebApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Web.CRM/WebApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Web.CRM/WebApplication.vb b/SISBusiness.Web.CRM/WebApplication.vb new file mode 100644 index 0000000..f1993f8 --- /dev/null +++ b/SISBusiness.Web.CRM/WebApplication.vb @@ -0,0 +1,181 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Xpo +Imports DevExpress.ExpressApp + +Partial Public Class SISBusinessAspNetApplication + Inherits WebApplication + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule + Private module3 As SISBusiness.Module.SISBusinessModule + Private module4 As SISBusiness.Module.Web.SISBusinessAspNetModule + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule + Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule() + Me.module3 = New SISBusiness.[Module].SISBusinessModule() + Me.module4 = New SISBusiness.[Module].Web.SISBusinessAspNetModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule() + Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISBusiness;Integrated Security=SSPI;Pooling=" & _ + "false" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'AuditTrailModule1 + ' + Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ViewVariantsModule1 + ' + Me.ViewVariantsModule1.GenerateVariantsNode = True + Me.ViewVariantsModule1.ShowAdditionalNavigation = False + ' + 'AuthenticationStandard1 + ' + 'Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + Me.AuthenticationStandard1.LogonParametersType = GetType(SISBusiness.Module.ChangeLogon) + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'SISBusinessAspNetApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.AuditTrailModule1) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.module3) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartAspNetModule1) + Me.Modules.Add(Me.FileAttachmentsAspNetModule1) + Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartAspNetModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridAspNetModule1) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsAspNetModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerAspNetModule1) + Me.Modules.Add(Me.module4) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsAspNetModule1) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Protected Overrides Sub OnLoggedOn(args As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(args) + CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _ + DevExpress.ExpressApp.Editors.ViewEditMode.Edit + End Sub +End Class + + diff --git a/SISBusiness.Web.CRM/WebApplication_DB.vb b/SISBusiness.Web.CRM/WebApplication_DB.vb new file mode 100644 index 0000000..6c01739 --- /dev/null +++ b/SISBusiness.Web.CRM/WebApplication_DB.vb @@ -0,0 +1,76 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports SISBusiness.Module.Web +Imports System.Web +Imports DevExpress.Xpo.DB.Helpers +Imports DevExpress.ExpressApp +Imports SISBusiness.Module +Imports System.Web.Security +Imports DevExpress.Xpo.DB +Imports DevExpress.Xpo +Partial Public Class SISBusinessAspNetApplication + Inherits WebApplication + Protected Overrides Sub ReadSecuredLogonParameters() + MyBase.ReadSecuredLogonParameters() ' the "UserName" is restored in the base method. + End Sub + Private canReadSecuredLogonParameters_Renamed As Boolean = True + Protected Overrides Function CanReadSecuredLogonParameters() As Boolean + If (Not canReadSecuredLogonParameters_Renamed) Then + Return False + End If + Return MyBase.CanReadSecuredLogonParameters() + End Function + Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean + If CanReadSecuredLogonParameters() Then + FormsAuthentication.SignOut() + canReadSecuredLogonParameters_Renamed = False + Try + Start() + Finally + canReadSecuredLogonParameters_Renamed = True + End Try + Return True + Else + Return MyBase.OnLogonFailed(logonParameters, e) + End If + End Function + Protected Overrides Sub ReadLastLogonParametersCore(ByVal storage As DevExpress.ExpressApp.Utils.SettingsStorage, ByVal logonObject As Object) + MyBase.ReadLastLogonParametersCore(storage, logonObject) + End Sub + Protected Overrides Sub OnLoggingOn(ByVal args As LogonEventArgs) + Dim connstr As String + Dim _ChangeLogon As ChangeLogon + Dim _plattform As String = "" + MyBase.OnLoggingOn(args) + _ChangeLogon = TryCast(args.LogonParameters, ChangeLogon) + Select Case _ChangeLogon.SQLType + Case eSQLType.MSSQL + connstr = " User ID=sa; " + connstr &= " Password=pcl718;" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _ChangeLogon.SQLServer & ";" + connstr &= " Initial Catalog=" & _ChangeLogon.DBConnection + _plattform = "MS SQL" + Case eSQLType.MySQL + connstr = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection) + _plattform = "MySQL" + Case eSQLType.PostgreSQL + connstr = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection) + _plattform = "postgreSQL" + Case Else + connstr = " User ID=sa; " + connstr &= " Password=pcl718;" + connstr &= " Pooling=false;" + connstr &= " Data Source=" & _ChangeLogon.SQLServer & ";" + connstr &= " Initial Catalog=" & _ChangeLogon.DBConnection + End Select + + Me.ConnectionString = connstr + 'GLOBAL_ConnectionString = connstr + 'GLOBAL_WINFormCaption = "SISBusiness Framework version: " & Application.ProductVersion + 'GLOBAL_WINFormCaption += ", (" & _plattform & ") Server: " & UCase(_ChangeLogon.SQLServer) & ", Database: " & UCase(_ChangeLogon.DBConnection) + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Company/ApplicationCode/UserStore.vb b/SISBusiness.Web.Company/ApplicationCode/UserStore.vb new file mode 100644 index 0000000..7f8d7a0 --- /dev/null +++ b/SISBusiness.Web.Company/ApplicationCode/UserStore.vb @@ -0,0 +1,91 @@ +Imports System +Imports System.Configuration + +Imports DevExpress.Persistent.Base +Imports DevExpress.ExpressApp +Imports DevExpress.ExpressApp.Security + +Imports DevExpress.Persistent.AuditTrail +Imports Microsoft.VisualBasic + +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering +Imports DevExpress.Persistent.BaseImpl + +Imports DevExpress.ExpressApp.Model.Core +Imports DevExpress.ExpressApp.Model +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.Web + +Public Class UserStore + Inherits ModelDifferenceStore + Private Shared ReadOnly xmlHeader As String = "" & System.Environment.NewLine + Private application As WebApplication + + Public Overrides ReadOnly Property Name() As String + Get + Return "UserStore" + End Get + End Property + + Public Sub New(ByVal WebApplication As WebApplication) + application = WebApplication + End Sub + + Private Function FindStoreByAspect(ByVal stores As XPCollection(Of XmlStore), ByVal aspect As String) As XmlStore + For Each store As XmlStore In stores + If store.Aspect = aspect Then + Return store + End If + Next store + Return Nothing + End Function + + Private Function FindXmlUserByCurrentUser() As XmlUser + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim currentUser As DevExpress.Persistent.BaseImpl.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + Dim user As XmlUser = Nothing + Try + user = objectSpace.FindObject(Of XmlUser)(CriteriaOperator.Parse("User=?", currentUser), True) + Catch + End Try + Return user + End Function + + Public Overrides Sub Load(ByVal model As ModelApplicationBase) + Dim xmlReader As New ModelXmlReader() + Dim user As XmlUser = FindXmlUserByCurrentUser() + If user IsNot Nothing Then + For Each store As XmlStore In user.Aspects + xmlReader.ReadFromString(model, store.Aspect, store.XmlData) + Next store + End If + End Sub + + Public Overrides Sub SaveDifference(ByVal model As ModelApplicationBase) + Dim objectSpace As IObjectSpace = application.CreateObjectSpace() + Dim user As XmlUser = objectSpace.GetObject(FindXmlUserByCurrentUser()) + If user Is Nothing Then + user = New XmlUser(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + user.User = objectSpace.GetObject(CType(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User)) + End If + For i As Integer = 0 To model.AspectCount - 1 + Dim xmlWriter As New ModelXmlWriter() + Dim aspect As String = model.GetAspect(i) + Dim xmlContent As String = xmlWriter.WriteToString(model, i) + If (Not String.IsNullOrEmpty(xmlContent)) Then + Dim store As XmlStore = FindStoreByAspect(user.Aspects, aspect) + If store Is Nothing Then + store = New XmlStore(TryCast(objectSpace, Xpo.XPObjectSpace).Session) + End If + store.User = user + store.Aspect = aspect + store.XmlData = xmlHeader & xmlContent + End If + Next i + objectSpace.CommitChanges() + End Sub + + +End Class + diff --git a/SISBusiness.Web.Company/ApplicationCode/WebApplication.resx b/SISBusiness.Web.Company/ApplicationCode/WebApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Web.Company/ApplicationCode/WebApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/ApplicationCode/WebApplication.vb b/SISBusiness.Web.Company/ApplicationCode/WebApplication.vb new file mode 100644 index 0000000..e85702d --- /dev/null +++ b/SISBusiness.Web.Company/ApplicationCode/WebApplication.vb @@ -0,0 +1,199 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Xpo +Imports DevExpress.ExpressApp +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Partial Public Class SISBusinessAspNetApplication + Inherits WebApplication + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule + Private module3 As SISBusiness.Module.SISBusinessModule + Private module4 As SISBusiness.Module.Web.SISBusinessAspNetModule + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule + Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule() + Me.module3 = New SISBusiness.[Module].SISBusinessModule() + Me.module4 = New SISBusiness.[Module].Web.SISBusinessAspNetModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule() + Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISBusiness;Integrated Security=SSPI;Pooling=" & _ + "false" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'AuditTrailModule1 + ' + Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ViewVariantsModule1 + ' + Me.ViewVariantsModule1.GenerateVariantsNode = True + Me.ViewVariantsModule1.ShowAdditionalNavigation = False + ' + 'AuthenticationStandard1 + ' + 'Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + Me.AuthenticationStandard1.LogonParametersType = GetType(SISBusiness.Module.ChangeLogon) + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'SISBusinessAspNetApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.AuditTrailModule1) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.module3) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartAspNetModule1) + Me.Modules.Add(Me.FileAttachmentsAspNetModule1) + Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartAspNetModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridAspNetModule1) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsAspNetModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerAspNetModule1) + Me.Modules.Add(Me.module4) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsAspNetModule1) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Protected Overrides Sub OnLoggedOn(args As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(args) + CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _ + DevExpress.ExpressApp.Editors.ViewEditMode.Edit + + Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User) + End Sub + Protected Overrides Sub OnLoggingOff(args As LoggingOffEventArgs) + + 'Dim _onew As Xpo.XPObjectSpace = Me.ObjectSpaceProvider.CreateObjectSpace() + 'Dim _uow As New UnitOfWork(_onew.Session.DataLayer) + 'Dim _User As DevExpress.Persistent.BaseImpl.User = _onew.FindObject(Of DevExpress.Persistent.BaseImpl.User)(CriteriaOperator.Parse("Oid=?", SecuritySystem.CurrentUserId)) + 'SISBusiness.Module.LockingModule.ReleaseAllLocking(_uow, _User) + + 'MyBase.OnLoggingOff(args) + End Sub + +End Class + + diff --git a/SISBusiness.Web.Company/ApplicationCode/WebApplication_DB.vb b/SISBusiness.Web.Company/ApplicationCode/WebApplication_DB.vb new file mode 100644 index 0000000..da510f5 --- /dev/null +++ b/SISBusiness.Web.Company/ApplicationCode/WebApplication_DB.vb @@ -0,0 +1,95 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports SISBusiness.Module.Web +Imports System.Web +Imports DevExpress.Xpo.DB.Helpers +Imports DevExpress.ExpressApp +Imports SISBusiness.Module +Imports System.Web.Security +Imports DevExpress.Xpo.DB +Imports DevExpress.Xpo +Imports DevExpress.ExpressApp.Security +Imports System.Net +Imports System.IO + +Partial Public Class SISBusinessAspNetApplication + Inherits WebApplication + Protected Overrides Sub ReadSecuredLogonParameters() + MyBase.ReadSecuredLogonParameters() ' the "UserName" is restored in the base method. + End Sub + Private canReadSecuredLogonParameters_Renamed As Boolean = True + Protected Overrides Function CanReadSecuredLogonParameters() As Boolean + If (Not canReadSecuredLogonParameters_Renamed) Then + Return False + End If + Return MyBase.CanReadSecuredLogonParameters() + End Function + Protected Overrides Function OnLogonFailed(ByVal logonParameters As Object, ByVal e As Exception) As Boolean + If CanReadSecuredLogonParameters() Then + FormsAuthentication.SignOut() + canReadSecuredLogonParameters_Renamed = False + Try + Start() + Finally + canReadSecuredLogonParameters_Renamed = True + End Try + Return True + Else + Return MyBase.OnLogonFailed(logonParameters, e) + End If + End Function + Protected Overrides Sub ReadLastLogonParametersCore(ByVal storage As DevExpress.ExpressApp.Utils.SettingsStorage, ByVal logonObject As Object) + Dim standardLogonParameters As AuthenticationStandardLogonParameters = TryCast(logonObject, AuthenticationStandardLogonParameters) + If (standardLogonParameters IsNot Nothing) AndAlso String.IsNullOrEmpty(standardLogonParameters.UserName) Then + MyBase.ReadLastLogonParametersCore(storage, logonObject) + Try + TryCast(logonObject, ChangeLogon).DBConnection = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "DBConnection") + TryCast(logonObject, ChangeLogon).SQLServer = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "SQLServer") + TryCast(logonObject, ChangeLogon).Company = TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "Company") + Select Case TryCast(storage, DevExpress.ExpressApp.Utils.SettingsStorageOnCookies).LoadOption("", "SQLType") + Case "MSSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MSSQL + Case "PostgreSQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.PostgreSQL + Case "MySQL" + TryCast(logonObject, ChangeLogon).SQLType = eSQLType.MySQL + End Select + Catch + End Try + End If + End Sub + Protected Overrides Sub OnLoggingOn(ByVal args As LogonEventArgs) + Dim connstr As String = "" + Dim _ChangeLogon As ChangeLogon + Dim _plattform As String = "" + MyBase.OnLoggingOn(args) + + _ChangeLogon = TryCast(args.LogonParameters, ChangeLogon) + + GLOBAL_Company = _ChangeLogon.Company + + Me.ConnectionString = GetSISSecurity() + + End Sub + Private Function GetSISSecurity() As String + Dim _ConnectionString As String = "" + Try + + Dim _url = "http://sis-r.hu/SISChat/SISSecuritySSL.ashx?id=" & UCase(GLOBAL_Company) + Dim _request As HttpWebRequest = TryCast(WebRequest.Create(_url), HttpWebRequest) + Dim _response As HttpWebResponse = TryCast(_request.GetResponse, HttpWebResponse) + Dim _reader As StreamReader = New StreamReader(_response.GetResponseStream()) + _ConnectionString = _reader.ReadToEnd + + _ConnectionString = Encoding.UTF8.GetString(Convert.FromBase64String(_ConnectionString)) + _ConnectionString = AESDecrypt(_ConnectionString, "HrX12!!0Zm7764W2", "vXm657YS+!0@mmT") + + Catch ex As Exception + + End Try + Return _ConnectionString + End Function +End Class diff --git a/SISBusiness.Web.Company/Controls/DashboardViewer.aspx b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx new file mode 100644 index 0000000..3fb9955 --- /dev/null +++ b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx @@ -0,0 +1,20 @@ +<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %> + +<%@ Register assembly="DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %> + + + + + + + + +
+
+ + + +
+
+ + diff --git a/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.designer.vb b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.designer.vb new file mode 100644 index 0000000..7f759c6 --- /dev/null +++ b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.designer.vb @@ -0,0 +1,33 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class DashboardViewer + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ASPxDashboardViewer1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ASPxDashboardViewer1 As Global.DevExpress.DashboardWeb.ASPxDashboardViewer +End Class diff --git a/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.vb b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.vb new file mode 100644 index 0000000..a1e5b51 --- /dev/null +++ b/SISBusiness.Web.Company/Controls/DashboardViewer.aspx.vb @@ -0,0 +1,38 @@ +Imports SISBusiness.Module.GeneralFunction +Imports DevExpress.DashboardCommon +Imports DevExpress.DataAccess +Imports DevExpress.DataAccess.ConnectionParameters + +Public Class DashboardViewer + Inherits System.Web.UI.Page + + Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.ASPxDashboardViewer1.DashboardXmlFile = GLOBAL_DASHBOARD_XML_DashboardXmlFile + End Sub + + Private Sub ASPxDashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles ASPxDashboardViewer1.ConfigureDataConnection + Select Case GLOBAL_DASHBOARD_XML_SQLType + Case "MSSQL" + Dim _ConnectionParameters_MSSQL As New MsSqlConnectionParameters + _ConnectionParameters_MSSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MSSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MSSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MSSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MSSQL + Case "MYSQL" + Dim _ConnectionParameters_MYSQL As New MySqlConnectionParameters + _ConnectionParameters_MYSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MYSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MYSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MYSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MYSQL + Case "PSQL" + Dim _ConnectionParameters_PSQL As New PostgreSqlConnectionParameters + _ConnectionParameters_PSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_PSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_PSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_PSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_PSQL + End Select + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Company/Default.aspx b/SISBusiness.Web.Company/Default.aspx new file mode 100644 index 0000000..ea869f0 --- /dev/null +++ b/SISBusiness.Web.Company/Default.aspx @@ -0,0 +1,22 @@ +<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="Default.aspx.vb" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> + + + + Main Page + + + +
+ + + + +
+ + + diff --git a/SISBusiness.Web.Company/Default.aspx.designer.vb b/SISBusiness.Web.Company/Default.aspx.designer.vb new file mode 100644 index 0000000..fd53621 --- /dev/null +++ b/SISBusiness.Web.Company/Default.aspx.designer.vb @@ -0,0 +1,69 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''UPPopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPPopupWindowControl As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''PopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupWindowControl As Global.DevExpress.ExpressApp.Web.Controls.XafPopupWindowControl + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Company/Default.aspx.vb b/SISBusiness.Web.Company/Default.aspx.vb new file mode 100644 index 0000000..29fb6c1 --- /dev/null +++ b/SISBusiness.Web.Company/Default.aspx.vb @@ -0,0 +1,36 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers + +Partial Public Class [Default] + Inherits BaseXafPage + + Shared Sub New() + WebWindowTemplateHttpHandler.CurrentRequestTemplateType = TemplateType.Vertical + End Sub + + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + Protected Sub Page_Init() + AddHandler CustomizeTemplateContent, Sub(sender As Object, e As CustomizeTemplateContentEventArgs) + Dim _content As DefaultVerticalTemplateContent = TryCast(TemplateContent, DefaultVerticalTemplateContent) + If _content Is Nothing Then + Return + End If + _content.HeaderImageControl.DefaultThemeImageLocation = "" + _content.HeaderImageControl.ImageName = WebApplication.Instance.Model.Application.Logo + End Sub + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Company/Error.aspx b/SISBusiness.Web.Company/Error.aspx new file mode 100644 index 0000000..32eee14 --- /dev/null +++ b/SISBusiness.Web.Company/Error.aspx @@ -0,0 +1,80 @@ +<%@ Page language="vb" AutoEventWireup="false" Inherits="ErrorPage" enableViewState="false" validateRequest="false" CodeBehind="Error.aspx.vb" %> + + + + Error + + + +
+
+
+
+ + + + + +
+

+ 		+ +
+
+ +
+ + + +

+

+ +

+ Your report was sent. Thank you.
 + We are currently unable to serve your request: RequestUrl.
+ We apologize, but an error occurred and your request could not be completed.
 + You could go back and try again + + previous page + , or retry your request: RequestUrl.

+ + Show Error details + + + + Report error
 +

This error has been logged. If you have additional information that you believe may have caused this error please report the problem.

+ +
+
+
+ + + + + +
+
+
+
+ +
+ + diff --git a/SISBusiness.Web.Company/Error.aspx.designer.vb b/SISBusiness.Web.Company/Error.aspx.designer.vb new file mode 100644 index 0000000..41e9cb3 --- /dev/null +++ b/SISBusiness.Web.Company/Error.aspx.designer.vb @@ -0,0 +1,206 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5446 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class ErrorPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ApplicationTitle control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApplicationTitle As Global.System.Web.UI.WebControls.Literal + + ''' + '''InfoMessagesPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents InfoMessagesPanel As Global.System.Web.UI.WebControls.Literal + + ''' + '''Table1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Table1 As Global.System.Web.UI.WebControls.Table + + ''' + '''TableRow2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TableRow2 As Global.System.Web.UI.WebControls.TableRow + + ''' + '''ViewSite control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ViewSite As Global.System.Web.UI.WebControls.TableCell + + ''' + '''ErrorTitleLiteral control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorTitleLiteral As Global.System.Web.UI.WebControls.Literal + + ''' + '''ErrorPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorPanel As Global.System.Web.UI.WebControls.Panel + + ''' + '''ReportResult control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportResult As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''ApologizeMessage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApologizeMessage As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''RequestUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''HyperLink1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLink1 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''LiteralReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents LiteralReturn As Global.System.Web.UI.WebControls.Literal + + ''' + '''HyperLinkReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLinkReturn As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''RequestUrl2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl2 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''Details control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Details As Global.System.Web.UI.WebControls.Panel + + ''' + '''DetailsText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DetailsText As Global.System.Web.UI.WebControls.Literal + + ''' + '''ReportForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportForm As Global.System.Web.UI.WebControls.Panel + + ''' + '''DescriptionTextBox control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DescriptionTextBox As Global.System.Web.UI.WebControls.TextBox + + ''' + '''ReportButton control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportButton As Global.System.Web.UI.WebControls.Button +End Class diff --git a/SISBusiness.Web.Company/Error.aspx.vb b/SISBusiness.Web.Company/Error.aspx.vb new file mode 100644 index 0000000..599a14c --- /dev/null +++ b/SISBusiness.Web.Company/Error.aspx.vb @@ -0,0 +1,97 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.IO +Imports System.Collections +Imports System.ComponentModel +Imports System.Data +Imports System.Globalization +Imports System.Threading +Imports System.Drawing +Imports System.Web +Imports System.Web.SessionState +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.HtmlControls + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.TestScripts +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Web.SystemModule + +Partial Public Class ErrorPage + Inherits System.Web.UI.Page + Private Function GetApplicationInfoString() As String + AboutInfo.Instance.Init(WebApplication.Instance) + Return AboutInfo.Instance.AboutInfoString + End Function + Protected Overrides Sub InitializeCulture() + If WebApplication.Instance IsNot Nothing Then + WebApplication.Instance.InitializeCulture() + End If + End Sub + Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim testScriptsManager As New TestScriptsManager(Page) + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "RequestUrl", TestControlType.Field, "RequestUrl") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "DescriptionTextBox", TestControlType.Field, "Description") + testScriptsManager.RegisterControl(JSDefaultTestControl.ClassName, "ReportButton", TestControlType.Action, "Report") + testScriptsManager.AllControlRegistered("") + If WebApplication.Instance IsNot Nothing Then + ApplicationTitle.Text = WebApplication.Instance.Title + Else + ApplicationTitle.Text = "No application" + End If + Header.Title = "Application Error - " & ApplicationTitle.Text + + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + RequestUrl.NavigateUrl = errorInfo.Url + RequestUrl.Text = errorInfo.Url + RequestUrl2.NavigateUrl = errorInfo.Url + RequestUrl2.Text = errorInfo.Url + If (Not String.IsNullOrEmpty(errorInfo.UrlReferrer)) Then + HyperLinkReturn.NavigateUrl = errorInfo.UrlReferrer + Else + LiteralReturn.Visible = False + HyperLinkReturn.Visible = False + End If + If ErrorHandling.CanShowDetailedInformation Then + DetailsText.Text = errorInfo.GetTextualPresentation(True) + Else + Details.Visible = False + End If + ReportResult.Visible = False + ReportForm.Visible = ErrorHandling.CanSendAlertToAdmin + Else + ErrorPanel.Visible = False + End If + End Sub +#Region "Web Form Designer generated code" + Protected Overrides Sub OnInit(ByVal e As EventArgs) + InitializeComponent() + MyBase.OnInit(e) + End Sub + + Private Sub InitializeComponent() +' Me.Load += New System.EventHandler(Me.Page_Load); +' Me.PreRender += New EventHandler(ErrorPage_PreRender); + End Sub + + Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.PreRender + RegisterThemeAssemblyController.RegisterThemeResources(CType(sender, Page)) + End Sub + +#End Region + Protected Sub ReportButton_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + ErrorHandling.SendAlertToAdmin(errorInfo.Id, DescriptionTextBox.Text, errorInfo.Exception.Message) + ErrorHandling.ClearApplicationError() + ApologizeMessage.Visible = False + ReportForm.Visible = False + Details.Visible = False + ReportResult.Visible = True + End If + End Sub +End Class diff --git a/SISBusiness.Web.Company/GetAttachments.ashx b/SISBusiness.Web.Company/GetAttachments.ashx new file mode 100644 index 0000000..7b4b712 --- /dev/null +++ b/SISBusiness.Web.Company/GetAttachments.ashx @@ -0,0 +1 @@ +<%@ WebHandler Language="VB" CodeBehind="GetAttachments.ashx.vb" Class=".GetAttachments" %> diff --git a/SISBusiness.Web.Company/GetAttachments.ashx.vb b/SISBusiness.Web.Company/GetAttachments.ashx.vb new file mode 100644 index 0000000..5cdaf12 --- /dev/null +++ b/SISBusiness.Web.Company/GetAttachments.ashx.vb @@ -0,0 +1,42 @@ +Imports System.Web +Imports System.Web.Services +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.FileAttachments +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.Web.Internal + +Public Class GetAttachments + Implements System.Web.IHttpHandler + Private _Session As DevExpress.Xpo.Session + Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest + Dim _Oid As String + Dim _ConnectionString As String + Dim _Attachment As FileData + + _Oid = context.Request.QueryString("id") + _ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString + + _Session = New DevExpress.Xpo.Session + _Session.ConnectionString = _ConnectionString + _Session.Connect() + + If _Session.IsConnected Then + _Attachment = _Session.FindObject(Of FileData)(CriteriaOperator.Parse("Oid=?", _Oid)) + + If _Attachment IsNot Nothing Then + Dim _Stream As New MemoryStream + _Attachment.SaveToStream(_Stream) + HttpUtils.WriteFileToResponse(Nothing, _Stream, _Attachment.FileName, True, "") + End If + End If + End Sub + + ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable + Get + Return False + End Get + End Property + +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Company/Global.asax b/SISBusiness.Web.Company/Global.asax new file mode 100644 index 0000000..aa2e26f --- /dev/null +++ b/SISBusiness.Web.Company/Global.asax @@ -0,0 +1 @@ +<%@ Application Language="vb" CodeBehind="Global.asax.vb" Inherits="Global"%> diff --git a/SISBusiness.Web.Company/Global.asax.vb b/SISBusiness.Web.Company/Global.asax.vb new file mode 100644 index 0000000..b73d1ef --- /dev/null +++ b/SISBusiness.Web.Company/Global.asax.vb @@ -0,0 +1,111 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Configuration +Imports System.Web.Configuration +Imports System.Web + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Web +Imports DevExpress.Web + +Imports SISBusiness.Module +Imports DevExpress.Xpo +Imports DevExpress.Data.Filtering + +Public Class [Global] + Inherits System.Web.HttpApplication + Public Sub New() + InitializeComponent() + End Sub + Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) + AddHandler ASPxWebControl.CallbackError, AddressOf Application_Error +#If EASYTEST Then + DevExpress.ExpressApp.Web.TestScripts.TestScriptsManager.EasyTestEnabled = True +#End If + + End Sub + Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.SetInstance(Session, New SISBusinessAspNetApplication()) +#If EASYTEST Then + If (Not ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString").ConnectionString + End If +#End If + If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + End If + + + '/// IDEIGLENESEN !!! + 'If System.Diagnostics.Debugger.IsAttached Then + ' WebApplication.Instance.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + 'End If + + AddHandler WebApplication.Instance.LastLogonParametersWriting, AddressOf WebApplication_LastLogonParametersWriting + AddHandler WebApplication.Instance.CreateCustomUserModelDifferenceStore, AddressOf WebApplication_CreateCustomUserModelDifferenceStore + AddHandler WebApplication.Instance.LoggingOff, AddressOf WebApplication_LoggingOff + WebApplication.Instance.Setup() + WebApplication.Instance.Start() + End Sub + Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) + Dim filePath As String = HttpContext.Current.Request.PhysicalPath + If (Not String.IsNullOrEmpty(filePath)) AndAlso (filePath.IndexOf("Images") >= 0) AndAlso (Not System.IO.File.Exists(filePath)) Then + HttpContext.Current.Response.End() + End If + End Sub + Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) + ErrorHandling.Instance.ProcessApplicationError() + End Sub + Protected Sub Session_End(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.LogOff(Session) + WebApplication.DisposeInstance(Session) + End Sub + Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Private Sub WebApplication_LastLogonParametersWriting(sender As Object, e As LastLogonParametersWritingEventArgs) + e.SettingsStorage.SaveOption("", "UserName", (CType(e.LogonObject, AuthenticationStandardLogonParameters)).UserName) + e.SettingsStorage.SaveOption("", "DBConnection", GLOBAL_SQLDatabase) + e.SettingsStorage.SaveOption("", "SQLServer", GLOBAL_SQLServer) + e.SettingsStorage.SaveOption("", "Company", GLOBAL_Company) + Select Case GLOBAL_SQLType + Case eSQLType.MSSQL + e.SettingsStorage.SaveOption("", "SQLType", "MSSQL") + Case eSQLType.MySQL + e.SettingsStorage.SaveOption("", "SQLType", "MySQL") + Case eSQLType.PostgreSQL + e.SettingsStorage.SaveOption("", "SQLType", "PostgreSQL") + End Select + + e.Handled = True + End Sub + + Private Sub WebApplication_CreateCustomUserModelDifferenceStore(sender As Object, e As CreateCustomModelDifferenceStoreEventArgs) + + Dim userDiffs As New UserStore(CType(sender, WebApplication)) + e.Store = userDiffs + e.Handled = True + End Sub + + Private Sub WebApplication_LoggingOff(sender As Object, e As LoggingOffEventArgs) + + End Sub +#Region "Web Form Designer generated code" + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + End Sub +#End Region + + + + +End Class diff --git a/SISBusiness.Web.Company/Images/ButtonBkg.gif b/SISBusiness.Web.Company/Images/ButtonBkg.gif new file mode 100644 index 0000000..cf70093 Binary files /dev/null and b/SISBusiness.Web.Company/Images/ButtonBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/ExpressAppLogo.png b/SISBusiness.Web.Company/Images/ExpressAppLogo.png new file mode 100644 index 0000000..3a6eaad Binary files /dev/null and b/SISBusiness.Web.Company/Images/ExpressAppLogo.png differ diff --git a/SISBusiness.Web.Company/Images/FooterBkg.gif b/SISBusiness.Web.Company/Images/FooterBkg.gif new file mode 100644 index 0000000..e6c0924 Binary files /dev/null and b/SISBusiness.Web.Company/Images/FooterBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/GridHeaderBkg.gif b/SISBusiness.Web.Company/Images/GridHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Company/Images/GridHeaderBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/HeaderBkg.gif b/SISBusiness.Web.Company/Images/HeaderBkg.gif new file mode 100644 index 0000000..3e2bca4 Binary files /dev/null and b/SISBusiness.Web.Company/Images/HeaderBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/LayoutHeaderBkg.gif b/SISBusiness.Web.Company/Images/LayoutHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Company/Images/LayoutHeaderBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/Logo.png b/SISBusiness.Web.Company/Images/Logo.png new file mode 100644 index 0000000..ecbd41c Binary files /dev/null and b/SISBusiness.Web.Company/Images/Logo.png differ diff --git a/SISBusiness.Web.Company/Images/Progress.gif b/SISBusiness.Web.Company/Images/Progress.gif new file mode 100644 index 0000000..9925182 Binary files /dev/null and b/SISBusiness.Web.Company/Images/Progress.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedCenter.gif b/SISBusiness.Web.Company/Images/SelectedCenter.gif new file mode 100644 index 0000000..74edae8 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedCenter.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedCenterWhite.gif b/SISBusiness.Web.Company/Images/SelectedCenterWhite.gif new file mode 100644 index 0000000..087423a Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedCenterWhite.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedLeft.gif b/SISBusiness.Web.Company/Images/SelectedLeft.gif new file mode 100644 index 0000000..bca0446 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedLeft.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedLeftWhite.gif b/SISBusiness.Web.Company/Images/SelectedLeftWhite.gif new file mode 100644 index 0000000..3dcd672 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedLeftWhite.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedRight.gif b/SISBusiness.Web.Company/Images/SelectedRight.gif new file mode 100644 index 0000000..ff75c77 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedRight.gif differ diff --git a/SISBusiness.Web.Company/Images/SelectedRightWhite.gif b/SISBusiness.Web.Company/Images/SelectedRightWhite.gif new file mode 100644 index 0000000..21aa896 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SelectedRightWhite.gif differ diff --git a/SISBusiness.Web.Company/Images/SideBarRDCorner.gif b/SISBusiness.Web.Company/Images/SideBarRDCorner.gif new file mode 100644 index 0000000..88489cb Binary files /dev/null and b/SISBusiness.Web.Company/Images/SideBarRDCorner.gif differ diff --git a/SISBusiness.Web.Company/Images/SideBarRUCorner.gif b/SISBusiness.Web.Company/Images/SideBarRUCorner.gif new file mode 100644 index 0000000..fb57ca4 Binary files /dev/null and b/SISBusiness.Web.Company/Images/SideBarRUCorner.gif differ diff --git a/SISBusiness.Web.Company/Images/TabContentBkg.gif b/SISBusiness.Web.Company/Images/TabContentBkg.gif new file mode 100644 index 0000000..fe8858f Binary files /dev/null and b/SISBusiness.Web.Company/Images/TabContentBkg.gif differ diff --git a/SISBusiness.Web.Company/Images/UnSelectedCenter.gif b/SISBusiness.Web.Company/Images/UnSelectedCenter.gif new file mode 100644 index 0000000..87f9e01 Binary files /dev/null and b/SISBusiness.Web.Company/Images/UnSelectedCenter.gif differ diff --git a/SISBusiness.Web.Company/Images/UnSelectedLeft.gif b/SISBusiness.Web.Company/Images/UnSelectedLeft.gif new file mode 100644 index 0000000..ef32fd0 Binary files /dev/null and b/SISBusiness.Web.Company/Images/UnSelectedLeft.gif differ diff --git a/SISBusiness.Web.Company/Images/UnSelectedRight.gif b/SISBusiness.Web.Company/Images/UnSelectedRight.gif new file mode 100644 index 0000000..cc2f697 Binary files /dev/null and b/SISBusiness.Web.Company/Images/UnSelectedRight.gif differ diff --git a/SISBusiness.Web.Company/Login.aspx b/SISBusiness.Web.Company/Login.aspx new file mode 100644 index 0000000..eee2f06 --- /dev/null +++ b/SISBusiness.Web.Company/Login.aspx @@ -0,0 +1,35 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers" + TagPrefix="cc2" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls" + TagPrefix="tc" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> + + + + Logon + + +
+
+ +
+ +
+
+ +
+ + diff --git a/SISBusiness.Web.Company/Login.aspx.designer.vb b/SISBusiness.Web.Company/Login.aspx.designer.vb new file mode 100644 index 0000000..a1c45b4 --- /dev/null +++ b/SISBusiness.Web.Company/Login.aspx.designer.vb @@ -0,0 +1,53 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class LoginPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Company/Login.aspx.vb b/SISBusiness.Web.Company/Login.aspx.vb new file mode 100644 index 0000000..d3bf51d --- /dev/null +++ b/SISBusiness.Web.Company/Login.aspx.vb @@ -0,0 +1,16 @@ +Imports Microsoft.VisualBasic +Imports System + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates + +Partial Public Class LoginPage + Inherits BaseXafPage + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Public Overrides ReadOnly Property InnerContentPlaceHolder() As System.Web.UI.Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Company/Model.xafml b/SISBusiness.Web.Company/Model.xafml new file mode 100644 index 0000000..68014b1 --- /dev/null +++ b/SISBusiness.Web.Company/Model.xafml @@ -0,0 +1,51 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/Model_hu.xafml b/SISBusiness.Web.Company/Model_hu.xafml new file mode 100644 index 0000000..6779fa6 --- /dev/null +++ b/SISBusiness.Web.Company/Model_hu.xafml @@ -0,0 +1,64 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/My Project/Application.Designer.vb b/SISBusiness.Web.Company/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Web.Company/My Project/Application.myapp b/SISBusiness.Web.Company/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Web.Company/My Project/AssemblyInfo.vb b/SISBusiness.Web.Company/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b411867 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/AssemblyInfo.vb @@ -0,0 +1,34 @@ +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 + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2008.pubxml b/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2008.pubxml new file mode 100644 index 0000000..34b7245 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2008.pubxml @@ -0,0 +1,40 @@ + + + + + MSDeploy + Release 64bit + Any CPU + + False + microserver2008 + Default Web Site/Company + + True + WMSVC + True + SISDOMAIN\ivan.szabo + <_SavePWD>True + + + + + + + + + + + + + + + True + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2012.pubxml b/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2012.pubxml new file mode 100644 index 0000000..ba7c2e6 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/PublishProfiles/Microserver2012.pubxml @@ -0,0 +1,43 @@ + + + + + MSDeploy + Release 64bit + Any CPU + http://MICROSERVER2012 + False + MICROSERVER2012 + Default Web Site/SISWEB + + True + WMSVC + True + Administrator + <_SavePWD>True + + + + + + + + + + + + + + + True + True + False + DonotMerge + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/My Project/PublishProfiles/W2012R2.pubxml b/SISBusiness.Web.Company/My Project/PublishProfiles/W2012R2.pubxml new file mode 100644 index 0000000..44eb915 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/PublishProfiles/W2012R2.pubxml @@ -0,0 +1,17 @@ + + + + + FileSystem + Release + Any CPU + + True + False + E:\Dashboard + False + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/My Project/Resources.Designer.vb b/SISBusiness.Web.Company/My Project/Resources.Designer.vb new file mode 100644 index 0000000..28c3d4c --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Company/My Project/Resources.resx b/SISBusiness.Web.Company/My Project/Resources.resx new file mode 100644 index 0000000..e8c096b --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Resources.resx @@ -0,0 +1,116 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Web.Company/My Project/Settings.Designer.vb b/SISBusiness.Web.Company/My Project/Settings.Designer.vb new file mode 100644 index 0000000..45fbf20 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.My.MySettings + Get + Return Global.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Company/My Project/Settings.settings b/SISBusiness.Web.Company/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Web.Company/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Web.Company/My Project/licenses.licx b/SISBusiness.Web.Company/My Project/licenses.licx new file mode 100644 index 0000000..8b13789 --- /dev/null +++ b/SISBusiness.Web.Company/My Project/licenses.licx @@ -0,0 +1 @@ + diff --git a/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj b/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj new file mode 100644 index 0000000..6c45bea --- /dev/null +++ b/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj @@ -0,0 +1,431 @@ + + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {25ED4445-57D7-4F21-98DE-E96942EFAF2D} + {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Library + + + SISBusiness.Web + v4.0 + + + 4.0 + SAK + SAK + SAK + SAK + + + + false + + + + + + + true + full + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + true + + + pdbonly + false + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + true + true + true + bin\ + SISBusiness.WebApp.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + + + On + + + Binary + + + Off + + + On + + + + + + + False + + + False + + + + + + + + + + False + + + + False + + + + + + + + + + + False + + + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + + + False + + + + False + + + False + + + False + + + False + + + + + + False + + + False + + + False + + + + + + + + + + + + + + ..\..\..\..\..\MySQL\MySql.Data.dll + + + False + ..\..\..\..\..\..\..\Program Files (x86)\postgreSQL\Npgsql2.0.11-bin-ms.net4.0\Npgsql.dll + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + False + + + False + + + False + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Component + + + DashboardViewer.aspx + + + DashboardViewer.aspx + ASPXCodeBehind + + + Default.aspx + + + Default.aspx + ASPXCodeBehind + + + Error.aspx + + + Error.aspx + ASPXCodeBehind + + + GetAttachments.ashx + + + Global.asax + + + Login.aspx + + + Login.aspx + ASPXCodeBehind + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Component + + + + + WebApplication.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + + + + Always + Designer + + + Model.xafml + Always + Designer + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + Model.xafml + Designer + + + Model.xafml + Designer + + + + + + {B87EACCF-FA6C-4043-AA73-800C77D8DF11} + SISBusiness.Module.Web + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + true + bin\ + SISBusiness.WebApp.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + pdbonly + AnyCPU + AllRules.ruleset + + + + + + + + + + False + True + 62387 + / + + + False + False + + + False + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj.vspscc b/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Web.Company/SISBusiness.Web.Company.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Web.Company/Scripts/jquery-1.7.2.min.js b/SISBusiness.Web.Company/Scripts/jquery-1.7.2.min.js new file mode 100644 index 0000000..fc48759 --- /dev/null +++ b/SISBusiness.Web.Company/Scripts/jquery-1.7.2.min.js @@ -0,0 +1,11 @@ +/*! jQuery v1.7.2 jquery.com | jquery.org/license */ +(function(a, b) { + function cy(a) { return f.isWindow(a) ? a : a.nodeType === 9 ? a.defaultView || a.parentWindow : !1 } function cu(a) { if (!cj[a]) { var b = c.body, d = f("<" + a + ">").appendTo(b), e = d.css("display"); d.remove(); if (e === "none" || e === "") { ck || (ck = c.createElement("iframe"), ck.frameBorder = ck.width = ck.height = 0), b.appendChild(ck); if (!cl || !ck.createElement) cl = (ck.contentWindow || ck.contentDocument).document, cl.write((f.support.boxModel ? "" : "") + ""), cl.close(); d = cl.createElement(a), cl.body.appendChild(d), e = f.css(d, "display"), b.removeChild(ck) } cj[a] = e } return cj[a] } function ct(a, b) { var c = {}; f.each(cp.concat.apply([], cp.slice(0, b)), function() { c[this] = a }); return c } function cs() { cq = b } function cr() { setTimeout(cs, 0); return cq = f.now() } function ci() { try { return new a.ActiveXObject("Microsoft.XMLHTTP") } catch (b) { } } function ch() { try { return new a.XMLHttpRequest } catch (b) { } } function cb(a, c) { a.dataFilter && (c = a.dataFilter(c, a.dataType)); var d = a.dataTypes, e = {}, g, h, i = d.length, j, k = d[0], l, m, n, o, p; for (g = 1; g < i; g++) { if (g === 1) for (h in a.converters) typeof h == "string" && (e[h.toLowerCase()] = a.converters[h]); l = k, k = d[g]; if (k === "*") k = l; else if (l !== "*" && l !== k) { m = l + " " + k, n = e[m] || e["* " + k]; if (!n) { p = b; for (o in e) { j = o.split(" "); if (j[0] === l || j[0] === "*") { p = e[j[1] + " " + k]; if (p) { o = e[o], o === !0 ? n = p : p === !0 && (n = o); break } } } } !n && !p && f.error("No conversion from " + m.replace(" ", " to ")), n !== !0 && (c = n ? n(c) : p(o(c))) } } return c } function ca(a, c, d) { var e = a.contents, f = a.dataTypes, g = a.responseFields, h, i, j, k; for (i in g) i in d && (c[g[i]] = d[i]); while (f[0] === "*") f.shift(), h === b && (h = a.mimeType || c.getResponseHeader("content-type")); if (h) for (i in e) if (e[i] && e[i].test(h)) { f.unshift(i); break } if (f[0] in d) j = f[0]; else { for (i in d) { if (!f[0] || a.converters[i + " " + f[0]]) { j = i; break } k || (k = i) } j = j || k } if (j) { j !== f[0] && f.unshift(j); return d[j] } } function b_(a, b, c, d) { if (f.isArray(b)) f.each(b, function(b, e) { c || bD.test(a) ? d(a, e) : b_(a + "[" + (typeof e == "object" ? b : "") + "]", e, c, d) }); else if (!c && f.type(b) === "object") for (var e in b) b_(a + "[" + e + "]", b[e], c, d); else d(a, b) } function b$(a, c) { var d, e, g = f.ajaxSettings.flatOptions || {}; for (d in c) c[d] !== b && ((g[d] ? a : e || (e = {}))[d] = c[d]); e && f.extend(!0, a, e) } function bZ(a, c, d, e, f, g) { f = f || c.dataTypes[0], g = g || {}, g[f] = !0; var h = a[f], i = 0, j = h ? h.length : 0, k = a === bS, l; for (; i < j && (k || !l); i++) l = h[i](c, d, e), typeof l == "string" && (!k || g[l] ? l = b : (c.dataTypes.unshift(l), l = bZ(a, c, d, e, l, g))); (k || !l) && !g["*"] && (l = bZ(a, c, d, e, "*", g)); return l } function bY(a) { return function(b, c) { typeof b != "string" && (c = b, b = "*"); if (f.isFunction(c)) { var d = b.toLowerCase().split(bO), e = 0, g = d.length, h, i, j; for (; e < g; e++) h = d[e], j = /^\+/.test(h), j && (h = h.substr(1) || "*"), i = a[h] = a[h] || [], i[j ? "unshift" : "push"](c) } } } function bB(a, b, c) { var d = b === "width" ? a.offsetWidth : a.offsetHeight, e = b === "width" ? 1 : 0, g = 4; if (d > 0) { if (c !== "border") for (; e < g; e += 2) c || (d -= parseFloat(f.css(a, "padding" + bx[e])) || 0), c === "margin" ? d += parseFloat(f.css(a, c + bx[e])) || 0 : d -= parseFloat(f.css(a, "border" + bx[e] + "Width")) || 0; return d + "px" } d = by(a, b); if (d < 0 || d == null) d = a.style[b]; if (bt.test(d)) return d; d = parseFloat(d) || 0; if (c) for (; e < g; e += 2) d += parseFloat(f.css(a, "padding" + bx[e])) || 0, c !== "padding" && (d += parseFloat(f.css(a, "border" + bx[e] + "Width")) || 0), c === "margin" && (d += parseFloat(f.css(a, c + bx[e])) || 0); return d + "px" } function bo(a) { var b = c.createElement("div"); bh.appendChild(b), b.innerHTML = a.outerHTML; return b.firstChild } function bn(a) { var b = (a.nodeName || "").toLowerCase(); b === "input" ? bm(a) : b !== "script" && typeof a.getElementsByTagName != "undefined" && f.grep(a.getElementsByTagName("input"), bm) } function bm(a) { if (a.type === "checkbox" || a.type === "radio") a.defaultChecked = a.checked } function bl(a) { return typeof a.getElementsByTagName != "undefined" ? a.getElementsByTagName("*") : typeof a.querySelectorAll != "undefined" ? a.querySelectorAll("*") : [] } function bk(a, b) { var c; b.nodeType === 1 && (b.clearAttributes && b.clearAttributes(), b.mergeAttributes && b.mergeAttributes(a), c = b.nodeName.toLowerCase(), c === "object" ? b.outerHTML = a.outerHTML : c !== "input" || a.type !== "checkbox" && a.type !== "radio" ? c === "option" ? b.selected = a.defaultSelected : c === "input" || c === "textarea" ? b.defaultValue = a.defaultValue : c === "script" && b.text !== a.text && (b.text = a.text) : (a.checked && (b.defaultChecked = b.checked = a.checked), b.value !== a.value && (b.value = a.value)), b.removeAttribute(f.expando), b.removeAttribute("_submit_attached"), b.removeAttribute("_change_attached")) } function bj(a, b) { if (b.nodeType === 1 && !!f.hasData(a)) { var c, d, e, g = f._data(a), h = f._data(b, g), i = g.events; if (i) { delete h.handle, h.events = {}; for (c in i) for (d = 0, e = i[c].length; d < e; d++) f.event.add(b, c, i[c][d]) } h.data && (h.data = f.extend({}, h.data)) } } function bi(a, b) { return f.nodeName(a, "table") ? a.getElementsByTagName("tbody")[0] || a.appendChild(a.ownerDocument.createElement("tbody")) : a } function U(a) { var b = V.split("|"), c = a.createDocumentFragment(); if (c.createElement) while (b.length) c.createElement(b.pop()); return c } function T(a, b, c) { b = b || 0; if (f.isFunction(b)) return f.grep(a, function(a, d) { var e = !!b.call(a, d, a); return e === c }); if (b.nodeType) return f.grep(a, function(a, d) { return a === b === c }); if (typeof b == "string") { var d = f.grep(a, function(a) { return a.nodeType === 1 }); if (O.test(b)) return f.filter(b, d, !c); b = f.filter(b, d) } return f.grep(a, function(a, d) { return f.inArray(a, b) >= 0 === c }) } function S(a) { return !a || !a.parentNode || a.parentNode.nodeType === 11 } function K() { return !0 } function J() { return !1 } function n(a, b, c) { var d = b + "defer", e = b + "queue", g = b + "mark", h = f._data(a, d); h && (c === "queue" || !f._data(a, e)) && (c === "mark" || !f._data(a, g)) && setTimeout(function() { !f._data(a, e) && !f._data(a, g) && (f.removeData(a, d, !0), h.fire()) }, 0) } function m(a) { for (var b in a) { if (b === "data" && f.isEmptyObject(a[b])) continue; if (b !== "toJSON") return !1 } return !0 } function l(a, c, d) { if (d === b && a.nodeType === 1) { var e = "data-" + c.replace(k, "-$1").toLowerCase(); d = a.getAttribute(e); if (typeof d == "string") { try { d = d === "true" ? !0 : d === "false" ? !1 : d === "null" ? null : f.isNumeric(d) ? +d : j.test(d) ? f.parseJSON(d) : d } catch (g) { } f.data(a, c, d) } else d = b } return d } function h(a) { var b = g[a] = {}, c, d; a = a.split(/\s+/); for (c = 0, d = a.length; c < d; c++) b[a[c]] = !0; return b } var c = a.document, d = a.navigator, e = a.location, f = function() { function J() { if (!e.isReady) { try { c.documentElement.doScroll("left") } catch (a) { setTimeout(J, 1); return } e.ready() } } var e = function(a, b) { return new e.fn.init(a, b, h) }, f = a.jQuery, g = a.$, h, i = /^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/, j = /\S/, k = /^\s+/, l = /\s+$/, m = /^<(\w+)\s*\/?>(?:<\/\1>)?$/, n = /^[\],:{}\s]*$/, o = /\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g, p = /"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g, q = /(?:^|:|,)(?:\s*\[)+/g, r = /(webkit)[ \/]([\w.]+)/, s = /(opera)(?:.*version)?[ \/]([\w.]+)/, t = /(msie) ([\w.]+)/, u = /(mozilla)(?:.*? rv:([\w.]+))?/, v = /-([a-z]|[0-9])/ig, w = /^-ms-/, x = function(a, b) { return (b + "").toUpperCase() }, y = d.userAgent, z, A, B, C = Object.prototype.toString, D = Object.prototype.hasOwnProperty, E = Array.prototype.push, F = Array.prototype.slice, G = String.prototype.trim, H = Array.prototype.indexOf, I = {}; e.fn = e.prototype = { constructor: e, init: function(a, d, f) { var g, h, j, k; if (!a) return this; if (a.nodeType) { this.context = this[0] = a, this.length = 1; return this } if (a === "body" && !d && c.body) { this.context = c, this[0] = c.body, this.selector = a, this.length = 1; return this } if (typeof a == "string") { a.charAt(0) !== "<" || a.charAt(a.length - 1) !== ">" || a.length < 3 ? g = i.exec(a) : g = [null, a, null]; if (g && (g[1] || !d)) { if (g[1]) { d = d instanceof e ? d[0] : d, k = d ? d.ownerDocument || d : c, j = m.exec(a), j ? e.isPlainObject(d) ? (a = [c.createElement(j[1])], e.fn.attr.call(a, d, !0)) : a = [k.createElement(j[1])] : (j = e.buildFragment([g[1]], [k]), a = (j.cacheable ? e.clone(j.fragment) : j.fragment).childNodes); return e.merge(this, a) } h = c.getElementById(g[2]); if (h && h.parentNode) { if (h.id !== g[2]) return f.find(a); this.length = 1, this[0] = h } this.context = c, this.selector = a; return this } return !d || d.jquery ? (d || f).find(a) : this.constructor(d).find(a) } if (e.isFunction(a)) return f.ready(a); a.selector !== b && (this.selector = a.selector, this.context = a.context); return e.makeArray(a, this) }, selector: "", jquery: "1.7.2", length: 0, size: function() { return this.length }, toArray: function() { return F.call(this, 0) }, get: function(a) { return a == null ? this.toArray() : a < 0 ? this[this.length + a] : this[a] }, pushStack: function(a, b, c) { var d = this.constructor(); e.isArray(a) ? E.apply(d, a) : e.merge(d, a), d.prevObject = this, d.context = this.context, b === "find" ? d.selector = this.selector + (this.selector ? " " : "") + c : b && (d.selector = this.selector + "." + b + "(" + c + ")"); return d }, each: function(a, b) { return e.each(this, a, b) }, ready: function(a) { e.bindReady(), A.add(a); return this }, eq: function(a) { a = +a; return a === -1 ? this.slice(a) : this.slice(a, a + 1) }, first: function() { return this.eq(0) }, last: function() { return this.eq(-1) }, slice: function() { return this.pushStack(F.apply(this, arguments), "slice", F.call(arguments).join(",")) }, map: function(a) { return this.pushStack(e.map(this, function(b, c) { return a.call(b, c, b) })) }, end: function() { return this.prevObject || this.constructor(null) }, push: E, sort: [].sort, splice: [].splice }, e.fn.init.prototype = e.fn, e.extend = e.fn.extend = function() { var a, c, d, f, g, h, i = arguments[0] || {}, j = 1, k = arguments.length, l = !1; typeof i == "boolean" && (l = i, i = arguments[1] || {}, j = 2), typeof i != "object" && !e.isFunction(i) && (i = {}), k === j && (i = this, --j); for (; j < k; j++) if ((a = arguments[j]) != null) for (c in a) { d = i[c], f = a[c]; if (i === f) continue; l && f && (e.isPlainObject(f) || (g = e.isArray(f))) ? (g ? (g = !1, h = d && e.isArray(d) ? d : []) : h = d && e.isPlainObject(d) ? d : {}, i[c] = e.extend(l, h, f)) : f !== b && (i[c] = f) } return i }, e.extend({ noConflict: function(b) { a.$ === e && (a.$ = g), b && a.jQuery === e && (a.jQuery = f); return e }, isReady: !1, readyWait: 1, holdReady: function(a) { a ? e.readyWait++ : e.ready(!0) }, ready: function(a) { if (a === !0 && ! --e.readyWait || a !== !0 && !e.isReady) { if (!c.body) return setTimeout(e.ready, 1); e.isReady = !0; if (a !== !0 && --e.readyWait > 0) return; A.fireWith(c, [e]), e.fn.trigger && e(c).trigger("ready").off("ready") } }, bindReady: function() { if (!A) { A = e.Callbacks("once memory"); if (c.readyState === "complete") return setTimeout(e.ready, 1); if (c.addEventListener) c.addEventListener("DOMContentLoaded", B, !1), a.addEventListener("load", e.ready, !1); else if (c.attachEvent) { c.attachEvent("onreadystatechange", B), a.attachEvent("onload", e.ready); var b = !1; try { b = a.frameElement == null } catch (d) { } c.documentElement.doScroll && b && J() } } }, isFunction: function(a) { return e.type(a) === "function" }, isArray: Array.isArray || function(a) { return e.type(a) === "array" }, isWindow: function(a) { return a != null && a == a.window }, isNumeric: function(a) { return !isNaN(parseFloat(a)) && isFinite(a) }, type: function(a) { return a == null ? String(a) : I[C.call(a)] || "object" }, isPlainObject: function(a) { if (!a || e.type(a) !== "object" || a.nodeType || e.isWindow(a)) return !1; try { if (a.constructor && !D.call(a, "constructor") && !D.call(a.constructor.prototype, "isPrototypeOf")) return !1 } catch (c) { return !1 } var d; for (d in a); return d === b || D.call(a, d) }, isEmptyObject: function(a) { for (var b in a) return !1; return !0 }, error: function(a) { throw new Error(a) }, parseJSON: function(b) { if (typeof b != "string" || !b) return null; b = e.trim(b); if (a.JSON && a.JSON.parse) return a.JSON.parse(b); if (n.test(b.replace(o, "@").replace(p, "]").replace(q, ""))) return (new Function("return " + b))(); e.error("Invalid JSON: " + b) }, parseXML: function(c) { if (typeof c != "string" || !c) return null; var d, f; try { a.DOMParser ? (f = new DOMParser, d = f.parseFromString(c, "text/xml")) : (d = new ActiveXObject("Microsoft.XMLDOM"), d.async = "false", d.loadXML(c)) } catch (g) { d = b } (!d || !d.documentElement || d.getElementsByTagName("parsererror").length) && e.error("Invalid XML: " + c); return d }, noop: function() { }, globalEval: function(b) { b && j.test(b) && (a.execScript || function(b) { a.eval.call(a, b) })(b) }, camelCase: function(a) { return a.replace(w, "ms-").replace(v, x) }, nodeName: function(a, b) { return a.nodeName && a.nodeName.toUpperCase() === b.toUpperCase() }, each: function(a, c, d) { var f, g = 0, h = a.length, i = h === b || e.isFunction(a); if (d) { if (i) { for (f in a) if (c.apply(a[f], d) === !1) break } else for (; g < h; ) if (c.apply(a[g++], d) === !1) break } else if (i) { for (f in a) if (c.call(a[f], f, a[f]) === !1) break } else for (; g < h; ) if (c.call(a[g], g, a[g++]) === !1) break; return a }, trim: G ? function(a) { return a == null ? "" : G.call(a) } : function(a) { return a == null ? "" : (a + "").replace(k, "").replace(l, "") }, makeArray: function(a, b) { var c = b || []; if (a != null) { var d = e.type(a); a.length == null || d === "string" || d === "function" || d === "regexp" || e.isWindow(a) ? E.call(c, a) : e.merge(c, a) } return c }, inArray: function(a, b, c) { var d; if (b) { if (H) return H.call(b, a, c); d = b.length, c = c ? c < 0 ? Math.max(0, d + c) : c : 0; for (; c < d; c++) if (c in b && b[c] === a) return c } return -1 }, merge: function(a, c) { var d = a.length, e = 0; if (typeof c.length == "number") for (var f = c.length; e < f; e++) a[d++] = c[e]; else while (c[e] !== b) a[d++] = c[e++]; a.length = d; return a }, grep: function(a, b, c) { var d = [], e; c = !!c; for (var f = 0, g = a.length; f < g; f++) e = !!b(a[f], f), c !== e && d.push(a[f]); return d }, map: function(a, c, d) { var f, g, h = [], i = 0, j = a.length, k = a instanceof e || j !== b && typeof j == "number" && (j > 0 && a[0] && a[j - 1] || j === 0 || e.isArray(a)); if (k) for (; i < j; i++) f = c(a[i], i, d), f != null && (h[h.length] = f); else for (g in a) f = c(a[g], g, d), f != null && (h[h.length] = f); return h.concat.apply([], h) }, guid: 1, proxy: function(a, c) { if (typeof c == "string") { var d = a[c]; c = a, a = d } if (!e.isFunction(a)) return b; var f = F.call(arguments, 2), g = function() { return a.apply(c, f.concat(F.call(arguments))) }; g.guid = a.guid = a.guid || g.guid || e.guid++; return g }, access: function(a, c, d, f, g, h, i) { var j, k = d == null, l = 0, m = a.length; if (d && typeof d == "object") { for (l in d) e.access(a, c, l, d[l], 1, h, f); g = 1 } else if (f !== b) { j = i === b && e.isFunction(f), k && (j ? (j = c, c = function(a, b, c) { return j.call(e(a), c) }) : (c.call(a, f), c = null)); if (c) for (; l < m; l++) c(a[l], d, j ? f.call(a[l], l, c(a[l], d)) : f, i); g = 1 } return g ? a : k ? c.call(a) : m ? c(a[0], d) : h }, now: function() { return (new Date).getTime() }, uaMatch: function(a) { a = a.toLowerCase(); var b = r.exec(a) || s.exec(a) || t.exec(a) || a.indexOf("compatible") < 0 && u.exec(a) || []; return { browser: b[1] || "", version: b[2] || "0"} }, sub: function() { function a(b, c) { return new a.fn.init(b, c) } e.extend(!0, a, this), a.superclass = this, a.fn = a.prototype = this(), a.fn.constructor = a, a.sub = this.sub, a.fn.init = function(d, f) { f && f instanceof e && !(f instanceof a) && (f = a(f)); return e.fn.init.call(this, d, f, b) }, a.fn.init.prototype = a.fn; var b = a(c); return a }, browser: {} }), e.each("Boolean Number String Function Array Date RegExp Object".split(" "), function(a, b) { I["[object " + b + "]"] = b.toLowerCase() }), z = e.uaMatch(y), z.browser && (e.browser[z.browser] = !0, e.browser.version = z.version), e.browser.webkit && (e.browser.safari = !0), j.test(" ") && (k = /^[\s\xA0]+/, l = /[\s\xA0]+$/), h = e(c), c.addEventListener ? B = function() { c.removeEventListener("DOMContentLoaded", B, !1), e.ready() } : c.attachEvent && (B = function() { c.readyState === "complete" && (c.detachEvent("onreadystatechange", B), e.ready()) }); return e } (), g = {}; f.Callbacks = function(a) { a = a ? g[a] || h(a) : {}; var c = [], d = [], e, i, j, k, l, m, n = function(b) { var d, e, g, h, i; for (d = 0, e = b.length; d < e; d++) g = b[d], h = f.type(g), h === "array" ? n(g) : h === "function" && (!a.unique || !p.has(g)) && c.push(g) }, o = function(b, f) { f = f || [], e = !a.memory || [b, f], i = !0, j = !0, m = k || 0, k = 0, l = c.length; for (; c && m < l; m++) if (c[m].apply(b, f) === !1 && a.stopOnFalse) { e = !0; break } j = !1, c && (a.once ? e === !0 ? p.disable() : c = [] : d && d.length && (e = d.shift(), p.fireWith(e[0], e[1]))) }, p = { add: function() { if (c) { var a = c.length; n(arguments), j ? l = c.length : e && e !== !0 && (k = a, o(e[0], e[1])) } return this }, remove: function() { if (c) { var b = arguments, d = 0, e = b.length; for (; d < e; d++) for (var f = 0; f < c.length; f++) if (b[d] === c[f]) { j && f <= l && (l--, f <= m && m--), c.splice(f--, 1); if (a.unique) break } } return this }, has: function(a) { if (c) { var b = 0, d = c.length; for (; b < d; b++) if (a === c[b]) return !0 } return !1 }, empty: function() { c = []; return this }, disable: function() { c = d = e = b; return this }, disabled: function() { return !c }, lock: function() { d = b, (!e || e === !0) && p.disable(); return this }, locked: function() { return !d }, fireWith: function(b, c) { d && (j ? a.once || d.push([b, c]) : (!a.once || !e) && o(b, c)); return this }, fire: function() { p.fireWith(this, arguments); return this }, fired: function() { return !!i } }; return p }; var i = [].slice; f.extend({ Deferred: function(a) { var b = f.Callbacks("once memory"), c = f.Callbacks("once memory"), d = f.Callbacks("memory"), e = "pending", g = { resolve: b, reject: c, notify: d }, h = { done: b.add, fail: c.add, progress: d.add, state: function() { return e }, isResolved: b.fired, isRejected: c.fired, then: function(a, b, c) { i.done(a).fail(b).progress(c); return this }, always: function() { i.done.apply(i, arguments).fail.apply(i, arguments); return this }, pipe: function(a, b, c) { return f.Deferred(function(d) { f.each({ done: [a, "resolve"], fail: [b, "reject"], progress: [c, "notify"] }, function(a, b) { var c = b[0], e = b[1], g; f.isFunction(c) ? i[a](function() { g = c.apply(this, arguments), g && f.isFunction(g.promise) ? g.promise().then(d.resolve, d.reject, d.notify) : d[e + "With"](this === i ? d : this, [g]) }) : i[a](d[e]) }) }).promise() }, promise: function(a) { if (a == null) a = h; else for (var b in h) a[b] = h[b]; return a } }, i = h.promise({}), j; for (j in g) i[j] = g[j].fire, i[j + "With"] = g[j].fireWith; i.done(function() { e = "resolved" }, c.disable, d.lock).fail(function() { e = "rejected" }, b.disable, d.lock), a && a.call(i, i); return i }, when: function(a) { function m(a) { return function(b) { e[a] = arguments.length > 1 ? i.call(arguments, 0) : b, j.notifyWith(k, e) } } function l(a) { return function(c) { b[a] = arguments.length > 1 ? i.call(arguments, 0) : c, --g || j.resolveWith(j, b) } } var b = i.call(arguments, 0), c = 0, d = b.length, e = Array(d), g = d, h = d, j = d <= 1 && a && f.isFunction(a.promise) ? a : f.Deferred(), k = j.promise(); if (d > 1) { for (; c < d; c++) b[c] && b[c].promise && f.isFunction(b[c].promise) ? b[c].promise().then(l(c), j.reject, m(c)) : --g; g || j.resolveWith(j, b) } else j !== a && j.resolveWith(j, d ? [a] : []); return k } }), f.support = function() { var b, d, e, g, h, i, j, k, l, m, n, o, p = c.createElement("div"), q = c.documentElement; p.setAttribute("className", "t"), p.innerHTML = "
a", d = p.getElementsByTagName("*"), e = p.getElementsByTagName("a")[0]; if (!d || !d.length || !e) return {}; g = c.createElement("select"), h = g.appendChild(c.createElement("option")), i = p.getElementsByTagName("input")[0], b = { leadingWhitespace: p.firstChild.nodeType === 3, tbody: !p.getElementsByTagName("tbody").length, htmlSerialize: !!p.getElementsByTagName("link").length, style: /top/.test(e.getAttribute("style")), hrefNormalized: e.getAttribute("href") === "/a", opacity: /^0.55/.test(e.style.opacity), cssFloat: !!e.style.cssFloat, checkOn: i.value === "on", optSelected: h.selected, getSetAttribute: p.className !== "t", enctype: !!c.createElement("form").enctype, html5Clone: c.createElement("nav").cloneNode(!0).outerHTML !== "<:nav>", submitBubbles: !0, changeBubbles: !0, focusinBubbles: !1, deleteExpando: !0, noCloneEvent: !0, inlineBlockNeedsLayout: !1, shrinkWrapBlocks: !1, reliableMarginRight: !0, pixelMargin: !0 }, f.boxModel = b.boxModel = c.compatMode === "CSS1Compat", i.checked = !0, b.noCloneChecked = i.cloneNode(!0).checked, g.disabled = !0, b.optDisabled = !h.disabled; try { delete p.test } catch (r) { b.deleteExpando = !1 } !p.addEventListener && p.attachEvent && p.fireEvent && (p.attachEvent("onclick", function() { b.noCloneEvent = !1 }), p.cloneNode(!0).fireEvent("onclick")), i = c.createElement("input"), i.value = "t", i.setAttribute("type", "radio"), b.radioValue = i.value === "t", i.setAttribute("checked", "checked"), i.setAttribute("name", "t"), p.appendChild(i), j = c.createDocumentFragment(), j.appendChild(p.lastChild), b.checkClone = j.cloneNode(!0).cloneNode(!0).lastChild.checked, b.appendChecked = i.checked, j.removeChild(i), j.appendChild(p); if (p.attachEvent) for (n in { submit: 1, change: 1, focusin: 1 }) m = "on" + n, o = m in p, o || (p.setAttribute(m, "return;"), o = typeof p[m] == "function"), b[n + "Bubbles"] = o; j.removeChild(p), j = g = h = p = i = null, f(function() { var d, e, g, h, i, j, l, m, n, q, r, s, t, u = c.getElementsByTagName("body")[0]; !u || (m = 1, t = "padding:0;margin:0;border:", r = "position:absolute;top:0;left:0;width:1px;height:1px;", s = t + "0;visibility:hidden;", n = "style='" + r + t + "5px solid #000;", q = "
" + "" + "
", d = c.createElement("div"), d.style.cssText = s + "width:0;height:0;position:static;top:0;margin-top:" + m + "px", u.insertBefore(d, u.firstChild), p = c.createElement("div"), d.appendChild(p), p.innerHTML = "
t
", k = p.getElementsByTagName("td"), o = k[0].offsetHeight === 0, k[0].style.display = "", k[1].style.display = "none", b.reliableHiddenOffsets = o && k[0].offsetHeight === 0, a.getComputedStyle && (p.innerHTML = "", l = c.createElement("div"), l.style.width = "0", l.style.marginRight = "0", p.style.width = "2px", p.appendChild(l), b.reliableMarginRight = (parseInt((a.getComputedStyle(l, null) || { marginRight: 0 }).marginRight, 10) || 0) === 0), typeof p.style.zoom != "undefined" && (p.innerHTML = "", p.style.width = p.style.padding = "1px", p.style.border = 0, p.style.overflow = "hidden", p.style.display = "inline", p.style.zoom = 1, b.inlineBlockNeedsLayout = p.offsetWidth === 3, p.style.display = "block", p.style.overflow = "visible", p.innerHTML = "
", b.shrinkWrapBlocks = p.offsetWidth !== 3), p.style.cssText = r + s, p.innerHTML = q, e = p.firstChild, g = e.firstChild, i = e.nextSibling.firstChild.firstChild, j = { doesNotAddBorder: g.offsetTop !== 5, doesAddBorderForTableAndCells: i.offsetTop === 5 }, g.style.position = "fixed", g.style.top = "20px", j.fixedPosition = g.offsetTop === 20 || g.offsetTop === 15, g.style.position = g.style.top = "", e.style.overflow = "hidden", e.style.position = "relative", j.subtractsBorderForOverflowNotVisible = g.offsetTop === -5, j.doesNotIncludeMarginInBodyOffset = u.offsetTop !== m, a.getComputedStyle && (p.style.marginTop = "1%", b.pixelMargin = (a.getComputedStyle(p, null) || { marginTop: 0 }).marginTop !== "1%"), typeof d.style.zoom != "undefined" && (d.style.zoom = 1), u.removeChild(d), l = p = d = null, f.extend(b, j)) }); return b } (); var j = /^(?:\{.*\}|\[.*\])$/, k = /([A-Z])/g; f.extend({ cache: {}, uuid: 0, expando: "jQuery" + (f.fn.jquery + Math.random()).replace(/\D/g, ""), noData: { embed: !0, object: "clsid:D27CDB6E-AE6D-11cf-96B8-444553540000", applet: !0 }, hasData: function(a) { a = a.nodeType ? f.cache[a[f.expando]] : a[f.expando]; return !!a && !m(a) }, data: function(a, c, d, e) { if (!!f.acceptData(a)) { var g, h, i, j = f.expando, k = typeof c == "string", l = a.nodeType, m = l ? f.cache : a, n = l ? a[j] : a[j] && j, o = c === "events"; if ((!n || !m[n] || !o && !e && !m[n].data) && k && d === b) return; n || (l ? a[j] = n = ++f.uuid : n = j), m[n] || (m[n] = {}, l || (m[n].toJSON = f.noop)); if (typeof c == "object" || typeof c == "function") e ? m[n] = f.extend(m[n], c) : m[n].data = f.extend(m[n].data, c); g = h = m[n], e || (h.data || (h.data = {}), h = h.data), d !== b && (h[f.camelCase(c)] = d); if (o && !h[c]) return g.events; k ? (i = h[c], i == null && (i = h[f.camelCase(c)])) : i = h; return i } }, removeData: function(a, b, c) { if (!!f.acceptData(a)) { var d, e, g, h = f.expando, i = a.nodeType, j = i ? f.cache : a, k = i ? a[h] : h; if (!j[k]) return; if (b) { d = c ? j[k] : j[k].data; if (d) { f.isArray(b) || (b in d ? b = [b] : (b = f.camelCase(b), b in d ? b = [b] : b = b.split(" "))); for (e = 0, g = b.length; e < g; e++) delete d[b[e]]; if (!(c ? m : f.isEmptyObject)(d)) return } } if (!c) { delete j[k].data; if (!m(j[k])) return } f.support.deleteExpando || !j.setInterval ? delete j[k] : j[k] = null, i && (f.support.deleteExpando ? delete a[h] : a.removeAttribute ? a.removeAttribute(h) : a[h] = null) } }, _data: function(a, b, c) { return f.data(a, b, c, !0) }, acceptData: function(a) { if (a.nodeName) { var b = f.noData[a.nodeName.toLowerCase()]; if (b) return b !== !0 && a.getAttribute("classid") === b } return !0 } }), f.fn.extend({ data: function(a, c) { var d, e, g, h, i, j = this[0], k = 0, m = null; if (a === b) { if (this.length) { m = f.data(j); if (j.nodeType === 1 && !f._data(j, "parsedAttrs")) { g = j.attributes; for (i = g.length; k < i; k++) h = g[k].name, h.indexOf("data-") === 0 && (h = f.camelCase(h.substring(5)), l(j, h, m[h])); f._data(j, "parsedAttrs", !0) } } return m } if (typeof a == "object") return this.each(function() { f.data(this, a) }); d = a.split(".", 2), d[1] = d[1] ? "." + d[1] : "", e = d[1] + "!"; return f.access(this, function(c) { if (c === b) { m = this.triggerHandler("getData" + e, [d[0]]), m === b && j && (m = f.data(j, a), m = l(j, a, m)); return m === b && d[1] ? this.data(d[0]) : m } d[1] = c, this.each(function() { var b = f(this); b.triggerHandler("setData" + e, d), f.data(this, a, c), b.triggerHandler("changeData" + e, d) }) }, null, c, arguments.length > 1, null, !1) }, removeData: function(a) { return this.each(function() { f.removeData(this, a) }) } }), f.extend({ _mark: function(a, b) { a && (b = (b || "fx") + "mark", f._data(a, b, (f._data(a, b) || 0) + 1)) }, _unmark: function(a, b, c) { a !== !0 && (c = b, b = a, a = !1); if (b) { c = c || "fx"; var d = c + "mark", e = a ? 0 : (f._data(b, d) || 1) - 1; e ? f._data(b, d, e) : (f.removeData(b, d, !0), n(b, c, "mark")) } }, queue: function(a, b, c) { var d; if (a) { b = (b || "fx") + "queue", d = f._data(a, b), c && (!d || f.isArray(c) ? d = f._data(a, b, f.makeArray(c)) : d.push(c)); return d || [] } }, dequeue: function(a, b) { b = b || "fx"; var c = f.queue(a, b), d = c.shift(), e = {}; d === "inprogress" && (d = c.shift()), d && (b === "fx" && c.unshift("inprogress"), f._data(a, b + ".run", e), d.call(a, function() { f.dequeue(a, b) }, e)), c.length || (f.removeData(a, b + "queue " + b + ".run", !0), n(a, b, "queue")) } }), f.fn.extend({ queue: function(a, c) { var d = 2; typeof a != "string" && (c = a, a = "fx", d--); if (arguments.length < d) return f.queue(this[0], a); return c === b ? this : this.each(function() { var b = f.queue(this, a, c); a === "fx" && b[0] !== "inprogress" && f.dequeue(this, a) }) }, dequeue: function(a) { return this.each(function() { f.dequeue(this, a) }) }, delay: function(a, b) { a = f.fx ? f.fx.speeds[a] || a : a, b = b || "fx"; return this.queue(b, function(b, c) { var d = setTimeout(b, a); c.stop = function() { clearTimeout(d) } }) }, clearQueue: function(a) { return this.queue(a || "fx", []) }, promise: function(a, c) { function m() { --h || d.resolveWith(e, [e]) } typeof a != "string" && (c = a, a = b), a = a || "fx"; var d = f.Deferred(), e = this, g = e.length, h = 1, i = a + "defer", j = a + "queue", k = a + "mark", l; while (g--) if (l = f.data(e[g], i, b, !0) || (f.data(e[g], j, b, !0) || f.data(e[g], k, b, !0)) && f.data(e[g], i, f.Callbacks("once memory"), !0)) h++, l.add(m); m(); return d.promise(c) } }); var o = /[\n\t\r]/g, p = /\s+/, q = /\r/g, r = /^(?:button|input)$/i, s = /^(?:button|input|object|select|textarea)$/i, t = /^a(?:rea)?$/i, u = /^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i, v = f.support.getSetAttribute, w, x, y; f.fn.extend({ attr: function(a, b) { return f.access(this, f.attr, a, b, arguments.length > 1) }, removeAttr: function(a) { return this.each(function() { f.removeAttr(this, a) }) }, prop: function(a, b) { return f.access(this, f.prop, a, b, arguments.length > 1) }, removeProp: function(a) { a = f.propFix[a] || a; return this.each(function() { try { this[a] = b, delete this[a] } catch (c) { } }) }, addClass: function(a) { var b, c, d, e, g, h, i; if (f.isFunction(a)) return this.each(function(b) { f(this).addClass(a.call(this, b, this.className)) }); if (a && typeof a == "string") { b = a.split(p); for (c = 0, d = this.length; c < d; c++) { e = this[c]; if (e.nodeType === 1) if (!e.className && b.length === 1) e.className = a; else { g = " " + e.className + " "; for (h = 0, i = b.length; h < i; h++) ~g.indexOf(" " + b[h] + " ") || (g += b[h] + " "); e.className = f.trim(g) } } } return this }, removeClass: function(a) { var c, d, e, g, h, i, j; if (f.isFunction(a)) return this.each(function(b) { f(this).removeClass(a.call(this, b, this.className)) }); if (a && typeof a == "string" || a === b) { c = (a || "").split(p); for (d = 0, e = this.length; d < e; d++) { g = this[d]; if (g.nodeType === 1 && g.className) if (a) { h = (" " + g.className + " ").replace(o, " "); for (i = 0, j = c.length; i < j; i++) h = h.replace(" " + c[i] + " ", " "); g.className = f.trim(h) } else g.className = "" } } return this }, toggleClass: function(a, b) { var c = typeof a, d = typeof b == "boolean"; if (f.isFunction(a)) return this.each(function(c) { f(this).toggleClass(a.call(this, c, this.className, b), b) }); return this.each(function() { if (c === "string") { var e, g = 0, h = f(this), i = b, j = a.split(p); while (e = j[g++]) i = d ? i : !h.hasClass(e), h[i ? "addClass" : "removeClass"](e) } else if (c === "undefined" || c === "boolean") this.className && f._data(this, "__className__", this.className), this.className = this.className || a === !1 ? "" : f._data(this, "__className__") || "" }) }, hasClass: function(a) { var b = " " + a + " ", c = 0, d = this.length; for (; c < d; c++) if (this[c].nodeType === 1 && (" " + this[c].className + " ").replace(o, " ").indexOf(b) > -1) return !0; return !1 }, val: function(a) { var c, d, e, g = this[0]; { if (!!arguments.length) { e = f.isFunction(a); return this.each(function(d) { var g = f(this), h; if (this.nodeType === 1) { e ? h = a.call(this, d, g.val()) : h = a, h == null ? h = "" : typeof h == "number" ? h += "" : f.isArray(h) && (h = f.map(h, function(a) { return a == null ? "" : a + "" })), c = f.valHooks[this.type] || f.valHooks[this.nodeName.toLowerCase()]; if (!c || !("set" in c) || c.set(this, h, "value") === b) this.value = h } }) } if (g) { c = f.valHooks[g.type] || f.valHooks[g.nodeName.toLowerCase()]; if (c && "get" in c && (d = c.get(g, "value")) !== b) return d; d = g.value; return typeof d == "string" ? d.replace(q, "") : d == null ? "" : d } } } }), f.extend({ valHooks: { option: { get: function(a) { var b = a.attributes.value; return !b || b.specified ? a.value : a.text } }, select: { get: function(a) { var b, c, d, e, g = a.selectedIndex, h = [], i = a.options, j = a.type === "select-one"; if (g < 0) return null; c = j ? g : 0, d = j ? g + 1 : i.length; for (; c < d; c++) { e = i[c]; if (e.selected && (f.support.optDisabled ? !e.disabled : e.getAttribute("disabled") === null) && (!e.parentNode.disabled || !f.nodeName(e.parentNode, "optgroup"))) { b = f(e).val(); if (j) return b; h.push(b) } } if (j && !h.length && i.length) return f(i[g]).val(); return h }, set: function(a, b) { var c = f.makeArray(b); f(a).find("option").each(function() { this.selected = f.inArray(f(this).val(), c) >= 0 }), c.length || (a.selectedIndex = -1); return c } } }, attrFn: { val: !0, css: !0, html: !0, text: !0, data: !0, width: !0, height: !0, offset: !0 }, attr: function(a, c, d, e) { var g, h, i, j = a.nodeType; if (!!a && j !== 3 && j !== 8 && j !== 2) { if (e && c in f.attrFn) return f(a)[c](d); if (typeof a.getAttribute == "undefined") return f.prop(a, c, d); i = j !== 1 || !f.isXMLDoc(a), i && (c = c.toLowerCase(), h = f.attrHooks[c] || (u.test(c) ? x : w)); if (d !== b) { if (d === null) { f.removeAttr(a, c); return } if (h && "set" in h && i && (g = h.set(a, d, c)) !== b) return g; a.setAttribute(c, "" + d); return d } if (h && "get" in h && i && (g = h.get(a, c)) !== null) return g; g = a.getAttribute(c); return g === null ? b : g } }, removeAttr: function(a, b) { var c, d, e, g, h, i = 0; if (b && a.nodeType === 1) { d = b.toLowerCase().split(p), g = d.length; for (; i < g; i++) e = d[i], e && (c = f.propFix[e] || e, h = u.test(e), h || f.attr(a, e, ""), a.removeAttribute(v ? e : c), h && c in a && (a[c] = !1)) } }, attrHooks: { type: { set: function(a, b) { if (r.test(a.nodeName) && a.parentNode) f.error("type property can't be changed"); else if (!f.support.radioValue && b === "radio" && f.nodeName(a, "input")) { var c = a.value; a.setAttribute("type", b), c && (a.value = c); return b } } }, value: { get: function(a, b) { if (w && f.nodeName(a, "button")) return w.get(a, b); return b in a ? a.value : null }, set: function(a, b, c) { if (w && f.nodeName(a, "button")) return w.set(a, b, c); a.value = b } } }, propFix: { tabindex: "tabIndex", readonly: "readOnly", "for": "htmlFor", "class": "className", maxlength: "maxLength", cellspacing: "cellSpacing", cellpadding: "cellPadding", rowspan: "rowSpan", colspan: "colSpan", usemap: "useMap", frameborder: "frameBorder", contenteditable: "contentEditable" }, prop: function(a, c, d) { var e, g, h, i = a.nodeType; if (!!a && i !== 3 && i !== 8 && i !== 2) { h = i !== 1 || !f.isXMLDoc(a), h && (c = f.propFix[c] || c, g = f.propHooks[c]); return d !== b ? g && "set" in g && (e = g.set(a, d, c)) !== b ? e : a[c] = d : g && "get" in g && (e = g.get(a, c)) !== null ? e : a[c] } }, propHooks: { tabIndex: { get: function(a) { var c = a.getAttributeNode("tabindex"); return c && c.specified ? parseInt(c.value, 10) : s.test(a.nodeName) || t.test(a.nodeName) && a.href ? 0 : b } }} }), f.attrHooks.tabindex = f.propHooks.tabIndex, x = { get: function(a, c) { var d, e = f.prop(a, c); return e === !0 || typeof e != "boolean" && (d = a.getAttributeNode(c)) && d.nodeValue !== !1 ? c.toLowerCase() : b }, set: function(a, b, c) { var d; b === !1 ? f.removeAttr(a, c) : (d = f.propFix[c] || c, d in a && (a[d] = !0), a.setAttribute(c, c.toLowerCase())); return c } }, v || (y = { name: !0, id: !0, coords: !0 }, w = f.valHooks.button = { get: function(a, c) { var d; d = a.getAttributeNode(c); return d && (y[c] ? d.nodeValue !== "" : d.specified) ? d.nodeValue : b }, set: function(a, b, d) { var e = a.getAttributeNode(d); e || (e = c.createAttribute(d), a.setAttributeNode(e)); return e.nodeValue = b + "" } }, f.attrHooks.tabindex.set = w.set, f.each(["width", "height"], function(a, b) { f.attrHooks[b] = f.extend(f.attrHooks[b], { set: function(a, c) { if (c === "") { a.setAttribute(b, "auto"); return c } } }) }), f.attrHooks.contenteditable = { get: w.get, set: function(a, b, c) { b === "" && (b = "false"), w.set(a, b, c) } }), f.support.hrefNormalized || f.each(["href", "src", "width", "height"], function(a, c) { f.attrHooks[c] = f.extend(f.attrHooks[c], { get: function(a) { var d = a.getAttribute(c, 2); return d === null ? b : d } }) }), f.support.style || (f.attrHooks.style = { get: function(a) { return a.style.cssText.toLowerCase() || b }, set: function(a, b) { return a.style.cssText = "" + b } }), f.support.optSelected || (f.propHooks.selected = f.extend(f.propHooks.selected, { get: function(a) { var b = a.parentNode; b && (b.selectedIndex, b.parentNode && b.parentNode.selectedIndex); return null } })), f.support.enctype || (f.propFix.enctype = "encoding"), f.support.checkOn || f.each(["radio", "checkbox"], function() { f.valHooks[this] = { get: function(a) { return a.getAttribute("value") === null ? "on" : a.value } } }), f.each(["radio", "checkbox"], function() { f.valHooks[this] = f.extend(f.valHooks[this], { set: function(a, b) { if (f.isArray(b)) return a.checked = f.inArray(f(a).val(), b) >= 0 } }) }); var z = /^(?:textarea|input|select)$/i, A = /^([^\.]*)?(?:\.(.+))?$/, B = /(?:^|\s)hover(\.\S+)?\b/, C = /^key/, D = /^(?:mouse|contextmenu)|click/, E = /^(?:focusinfocus|focusoutblur)$/, F = /^(\w*)(?:#([\w\-]+))?(?:\.([\w\-]+))?$/, G = function( +a) { var b = F.exec(a); b && (b[1] = (b[1] || "").toLowerCase(), b[3] = b[3] && new RegExp("(?:^|\\s)" + b[3] + "(?:\\s|$)")); return b }, H = function(a, b) { var c = a.attributes || {}; return (!b[1] || a.nodeName.toLowerCase() === b[1]) && (!b[2] || (c.id || {}).value === b[2]) && (!b[3] || b[3].test((c["class"] || {}).value)) }, I = function(a) { return f.event.special.hover ? a : a.replace(B, "mouseenter$1 mouseleave$1") }; f.event = { add: function(a, c, d, e, g) { var h, i, j, k, l, m, n, o, p, q, r, s; if (!(a.nodeType === 3 || a.nodeType === 8 || !c || !d || !(h = f._data(a)))) { d.handler && (p = d, d = p.handler, g = p.selector), d.guid || (d.guid = f.guid++), j = h.events, j || (h.events = j = {}), i = h.handle, i || (h.handle = i = function(a) { return typeof f != "undefined" && (!a || f.event.triggered !== a.type) ? f.event.dispatch.apply(i.elem, arguments) : b }, i.elem = a), c = f.trim(I(c)).split(" "); for (k = 0; k < c.length; k++) { l = A.exec(c[k]) || [], m = l[1], n = (l[2] || "").split(".").sort(), s = f.event.special[m] || {}, m = (g ? s.delegateType : s.bindType) || m, s = f.event.special[m] || {}, o = f.extend({ type: m, origType: l[1], data: e, handler: d, guid: d.guid, selector: g, quick: g && G(g), namespace: n.join(".") }, p), r = j[m]; if (!r) { r = j[m] = [], r.delegateCount = 0; if (!s.setup || s.setup.call(a, e, n, i) === !1) a.addEventListener ? a.addEventListener(m, i, !1) : a.attachEvent && a.attachEvent("on" + m, i) } s.add && (s.add.call(a, o), o.handler.guid || (o.handler.guid = d.guid)), g ? r.splice(r.delegateCount++, 0, o) : r.push(o), f.event.global[m] = !0 } a = null } }, global: {}, remove: function(a, b, c, d, e) { var g = f.hasData(a) && f._data(a), h, i, j, k, l, m, n, o, p, q, r, s; if (!!g && !!(o = g.events)) { b = f.trim(I(b || "")).split(" "); for (h = 0; h < b.length; h++) { i = A.exec(b[h]) || [], j = k = i[1], l = i[2]; if (!j) { for (j in o) f.event.remove(a, j + b[h], c, d, !0); continue } p = f.event.special[j] || {}, j = (d ? p.delegateType : p.bindType) || j, r = o[j] || [], m = r.length, l = l ? new RegExp("(^|\\.)" + l.split(".").sort().join("\\.(?:.*\\.)?") + "(\\.|$)") : null; for (n = 0; n < r.length; n++) s = r[n], (e || k === s.origType) && (!c || c.guid === s.guid) && (!l || l.test(s.namespace)) && (!d || d === s.selector || d === "**" && s.selector) && (r.splice(n--, 1), s.selector && r.delegateCount--, p.remove && p.remove.call(a, s)); r.length === 0 && m !== r.length && ((!p.teardown || p.teardown.call(a, l) === !1) && f.removeEvent(a, j, g.handle), delete o[j]) } f.isEmptyObject(o) && (q = g.handle, q && (q.elem = null), f.removeData(a, ["events", "handle"], !0)) } }, customEvent: { getData: !0, setData: !0, changeData: !0 }, trigger: function(c, d, e, g) { if (!e || e.nodeType !== 3 && e.nodeType !== 8) { var h = c.type || c, i = [], j, k, l, m, n, o, p, q, r, s; if (E.test(h + f.event.triggered)) return; h.indexOf("!") >= 0 && (h = h.slice(0, -1), k = !0), h.indexOf(".") >= 0 && (i = h.split("."), h = i.shift(), i.sort()); if ((!e || f.event.customEvent[h]) && !f.event.global[h]) return; c = typeof c == "object" ? c[f.expando] ? c : new f.Event(h, c) : new f.Event(h), c.type = h, c.isTrigger = !0, c.exclusive = k, c.namespace = i.join("."), c.namespace_re = c.namespace ? new RegExp("(^|\\.)" + i.join("\\.(?:.*\\.)?") + "(\\.|$)") : null, o = h.indexOf(":") < 0 ? "on" + h : ""; if (!e) { j = f.cache; for (l in j) j[l].events && j[l].events[h] && f.event.trigger(c, d, j[l].handle.elem, !0); return } c.result = b, c.target || (c.target = e), d = d != null ? f.makeArray(d) : [], d.unshift(c), p = f.event.special[h] || {}; if (p.trigger && p.trigger.apply(e, d) === !1) return; r = [[e, p.bindType || h]]; if (!g && !p.noBubble && !f.isWindow(e)) { s = p.delegateType || h, m = E.test(s + h) ? e : e.parentNode, n = null; for (; m; m = m.parentNode) r.push([m, s]), n = m; n && n === e.ownerDocument && r.push([n.defaultView || n.parentWindow || a, s]) } for (l = 0; l < r.length && !c.isPropagationStopped(); l++) m = r[l][0], c.type = r[l][1], q = (f._data(m, "events") || {})[c.type] && f._data(m, "handle"), q && q.apply(m, d), q = o && m[o], q && f.acceptData(m) && q.apply(m, d) === !1 && c.preventDefault(); c.type = h, !g && !c.isDefaultPrevented() && (!p._default || p._default.apply(e.ownerDocument, d) === !1) && (h !== "click" || !f.nodeName(e, "a")) && f.acceptData(e) && o && e[h] && (h !== "focus" && h !== "blur" || c.target.offsetWidth !== 0) && !f.isWindow(e) && (n = e[o], n && (e[o] = null), f.event.triggered = h, e[h](), f.event.triggered = b, n && (e[o] = n)); return c.result } }, dispatch: function(c) { c = f.event.fix(c || a.event); var d = (f._data(this, "events") || {})[c.type] || [], e = d.delegateCount, g = [].slice.call(arguments, 0), h = !c.exclusive && !c.namespace, i = f.event.special[c.type] || {}, j = [], k, l, m, n, o, p, q, r, s, t, u; g[0] = c, c.delegateTarget = this; if (!i.preDispatch || i.preDispatch.call(this, c) !== !1) { if (e && (!c.button || c.type !== "click")) { n = f(this), n.context = this.ownerDocument || this; for (m = c.target; m != this; m = m.parentNode || this) if (m.disabled !== !0) { p = {}, r = [], n[0] = m; for (k = 0; k < e; k++) s = d[k], t = s.selector, p[t] === b && (p[t] = s.quick ? H(m, s.quick) : n.is(t)), p[t] && r.push(s); r.length && j.push({ elem: m, matches: r }) } } d.length > e && j.push({ elem: this, matches: d.slice(e) }); for (k = 0; k < j.length && !c.isPropagationStopped(); k++) { q = j[k], c.currentTarget = q.elem; for (l = 0; l < q.matches.length && !c.isImmediatePropagationStopped(); l++) { s = q.matches[l]; if (h || !c.namespace && !s.namespace || c.namespace_re && c.namespace_re.test(s.namespace)) c.data = s.data, c.handleObj = s, o = ((f.event.special[s.origType] || {}).handle || s.handler).apply(q.elem, g), o !== b && (c.result = o, o === !1 && (c.preventDefault(), c.stopPropagation())) } } i.postDispatch && i.postDispatch.call(this, c); return c.result } }, props: "attrChange attrName relatedNode srcElement altKey bubbles cancelable ctrlKey currentTarget eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "), fixHooks: {}, keyHooks: { props: "char charCode key keyCode".split(" "), filter: function(a, b) { a.which == null && (a.which = b.charCode != null ? b.charCode : b.keyCode); return a } }, mouseHooks: { props: "button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "), filter: function(a, d) { var e, f, g, h = d.button, i = d.fromElement; a.pageX == null && d.clientX != null && (e = a.target.ownerDocument || c, f = e.documentElement, g = e.body, a.pageX = d.clientX + (f && f.scrollLeft || g && g.scrollLeft || 0) - (f && f.clientLeft || g && g.clientLeft || 0), a.pageY = d.clientY + (f && f.scrollTop || g && g.scrollTop || 0) - (f && f.clientTop || g && g.clientTop || 0)), !a.relatedTarget && i && (a.relatedTarget = i === a.target ? d.toElement : i), !a.which && h !== b && (a.which = h & 1 ? 1 : h & 2 ? 3 : h & 4 ? 2 : 0); return a } }, fix: function(a) { if (a[f.expando]) return a; var d, e, g = a, h = f.event.fixHooks[a.type] || {}, i = h.props ? this.props.concat(h.props) : this.props; a = f.Event(g); for (d = i.length; d; ) e = i[--d], a[e] = g[e]; a.target || (a.target = g.srcElement || c), a.target.nodeType === 3 && (a.target = a.target.parentNode), a.metaKey === b && (a.metaKey = a.ctrlKey); return h.filter ? h.filter(a, g) : a }, special: { ready: { setup: f.bindReady }, load: { noBubble: !0 }, focus: { delegateType: "focusin" }, blur: { delegateType: "focusout" }, beforeunload: { setup: function(a, b, c) { f.isWindow(this) && (this.onbeforeunload = c) }, teardown: function(a, b) { this.onbeforeunload === b && (this.onbeforeunload = null) } } }, simulate: function(a, b, c, d) { var e = f.extend(new f.Event, c, { type: a, isSimulated: !0, originalEvent: {} }); d ? f.event.trigger(e, null, b) : f.event.dispatch.call(b, e), e.isDefaultPrevented() && c.preventDefault() } }, f.event.handle = f.event.dispatch, f.removeEvent = c.removeEventListener ? function(a, b, c) { a.removeEventListener && a.removeEventListener(b, c, !1) } : function(a, b, c) { a.detachEvent && a.detachEvent("on" + b, c) }, f.Event = function(a, b) { if (!(this instanceof f.Event)) return new f.Event(a, b); a && a.type ? (this.originalEvent = a, this.type = a.type, this.isDefaultPrevented = a.defaultPrevented || a.returnValue === !1 || a.getPreventDefault && a.getPreventDefault() ? K : J) : this.type = a, b && f.extend(this, b), this.timeStamp = a && a.timeStamp || f.now(), this[f.expando] = !0 }, f.Event.prototype = { preventDefault: function() { this.isDefaultPrevented = K; var a = this.originalEvent; !a || (a.preventDefault ? a.preventDefault() : a.returnValue = !1) }, stopPropagation: function() { this.isPropagationStopped = K; var a = this.originalEvent; !a || (a.stopPropagation && a.stopPropagation(), a.cancelBubble = !0) }, stopImmediatePropagation: function() { this.isImmediatePropagationStopped = K, this.stopPropagation() }, isDefaultPrevented: J, isPropagationStopped: J, isImmediatePropagationStopped: J }, f.each({ mouseenter: "mouseover", mouseleave: "mouseout" }, function(a, b) { f.event.special[a] = { delegateType: b, bindType: b, handle: function(a) { var c = this, d = a.relatedTarget, e = a.handleObj, g = e.selector, h; if (!d || d !== c && !f.contains(c, d)) a.type = e.origType, h = e.handler.apply(this, arguments), a.type = b; return h } } }), f.support.submitBubbles || (f.event.special.submit = { setup: function() { if (f.nodeName(this, "form")) return !1; f.event.add(this, "click._submit keypress._submit", function(a) { var c = a.target, d = f.nodeName(c, "input") || f.nodeName(c, "button") ? c.form : b; d && !d._submit_attached && (f.event.add(d, "submit._submit", function(a) { a._submit_bubble = !0 }), d._submit_attached = !0) }) }, postDispatch: function(a) { a._submit_bubble && (delete a._submit_bubble, this.parentNode && !a.isTrigger && f.event.simulate("submit", this.parentNode, a, !0)) }, teardown: function() { if (f.nodeName(this, "form")) return !1; f.event.remove(this, "._submit") } }), f.support.changeBubbles || (f.event.special.change = { setup: function() { if (z.test(this.nodeName)) { if (this.type === "checkbox" || this.type === "radio") f.event.add(this, "propertychange._change", function(a) { a.originalEvent.propertyName === "checked" && (this._just_changed = !0) }), f.event.add(this, "click._change", function(a) { this._just_changed && !a.isTrigger && (this._just_changed = !1, f.event.simulate("change", this, a, !0)) }); return !1 } f.event.add(this, "beforeactivate._change", function(a) { var b = a.target; z.test(b.nodeName) && !b._change_attached && (f.event.add(b, "change._change", function(a) { this.parentNode && !a.isSimulated && !a.isTrigger && f.event.simulate("change", this.parentNode, a, !0) }), b._change_attached = !0) }) }, handle: function(a) { var b = a.target; if (this !== b || a.isSimulated || a.isTrigger || b.type !== "radio" && b.type !== "checkbox") return a.handleObj.handler.apply(this, arguments) }, teardown: function() { f.event.remove(this, "._change"); return z.test(this.nodeName) } }), f.support.focusinBubbles || f.each({ focus: "focusin", blur: "focusout" }, function(a, b) { var d = 0, e = function(a) { f.event.simulate(b, a.target, f.event.fix(a), !0) }; f.event.special[b] = { setup: function() { d++ === 0 && c.addEventListener(a, e, !0) }, teardown: function() { --d === 0 && c.removeEventListener(a, e, !0) } } }), f.fn.extend({ on: function(a, c, d, e, g) { var h, i; if (typeof a == "object") { typeof c != "string" && (d = d || c, c = b); for (i in a) this.on(i, c, d, a[i], g); return this } d == null && e == null ? (e = c, d = c = b) : e == null && (typeof c == "string" ? (e = d, d = b) : (e = d, d = c, c = b)); if (e === !1) e = J; else if (!e) return this; g === 1 && (h = e, e = function(a) { f().off(a); return h.apply(this, arguments) }, e.guid = h.guid || (h.guid = f.guid++)); return this.each(function() { f.event.add(this, a, e, d, c) }) }, one: function(a, b, c, d) { return this.on(a, b, c, d, 1) }, off: function(a, c, d) { if (a && a.preventDefault && a.handleObj) { var e = a.handleObj; f(a.delegateTarget).off(e.namespace ? e.origType + "." + e.namespace : e.origType, e.selector, e.handler); return this } if (typeof a == "object") { for (var g in a) this.off(g, c, a[g]); return this } if (c === !1 || typeof c == "function") d = c, c = b; d === !1 && (d = J); return this.each(function() { f.event.remove(this, a, d, c) }) }, bind: function(a, b, c) { return this.on(a, null, b, c) }, unbind: function(a, b) { return this.off(a, null, b) }, live: function(a, b, c) { f(this.context).on(a, this.selector, b, c); return this }, die: function(a, b) { f(this.context).off(a, this.selector || "**", b); return this }, delegate: function(a, b, c, d) { return this.on(b, a, c, d) }, undelegate: function(a, b, c) { return arguments.length == 1 ? this.off(a, "**") : this.off(b, a, c) }, trigger: function(a, b) { return this.each(function() { f.event.trigger(a, b, this) }) }, triggerHandler: function(a, b) { if (this[0]) return f.event.trigger(a, b, this[0], !0) }, toggle: function(a) { var b = arguments, c = a.guid || f.guid++, d = 0, e = function(c) { var e = (f._data(this, "lastToggle" + a.guid) || 0) % d; f._data(this, "lastToggle" + a.guid, e + 1), c.preventDefault(); return b[e].apply(this, arguments) || !1 }; e.guid = c; while (d < b.length) b[d++].guid = c; return this.click(e) }, hover: function(a, b) { return this.mouseenter(a).mouseleave(b || a) } }), f.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "), function(a, b) { f.fn[b] = function(a, c) { c == null && (c = a, a = null); return arguments.length > 0 ? this.on(b, null, a, c) : this.trigger(b) }, f.attrFn && (f.attrFn[b] = !0), C.test(b) && (f.event.fixHooks[b] = f.event.keyHooks), D.test(b) && (f.event.fixHooks[b] = f.event.mouseHooks) }), function() { function x(a, b, c, e, f, g) { for (var h = 0, i = e.length; h < i; h++) { var j = e[h]; if (j) { var k = !1; j = j[a]; while (j) { if (j[d] === c) { k = e[j.sizset]; break } if (j.nodeType === 1) { g || (j[d] = c, j.sizset = h); if (typeof b != "string") { if (j === b) { k = !0; break } } else if (m.filter(b, [j]).length > 0) { k = j; break } } j = j[a] } e[h] = k } } } function w(a, b, c, e, f, g) { for (var h = 0, i = e.length; h < i; h++) { var j = e[h]; if (j) { var k = !1; j = j[a]; while (j) { if (j[d] === c) { k = e[j.sizset]; break } j.nodeType === 1 && !g && (j[d] = c, j.sizset = h); if (j.nodeName.toLowerCase() === b) { k = j; break } j = j[a] } e[h] = k } } } var a = /((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g, d = "sizcache" + (Math.random() + "").replace(".", ""), e = 0, g = Object.prototype.toString, h = !1, i = !0, j = /\\/g, k = /\r\n/g, l = /\W/; [0, 0].sort(function() { i = !1; return 0 }); var m = function(b, d, e, f) { e = e || [], d = d || c; var h = d; if (d.nodeType !== 1 && d.nodeType !== 9) return []; if (!b || typeof b != "string") return e; var i, j, k, l, n, q, r, t, u = !0, v = m.isXML(d), w = [], x = b; do { a.exec(""), i = a.exec(x); if (i) { x = i[3], w.push(i[1]); if (i[2]) { l = i[3]; break } } } while (i); if (w.length > 1 && p.exec(b)) if (w.length === 2 && o.relative[w[0]]) j = y(w[0] + w[1], d, f); else { j = o.relative[w[0]] ? [d] : m(w.shift(), d); while (w.length) b = w.shift(), o.relative[b] && (b += w.shift()), j = y(b, j, f) } else { !f && w.length > 1 && d.nodeType === 9 && !v && o.match.ID.test(w[0]) && !o.match.ID.test(w[w.length - 1]) && (n = m.find(w.shift(), d, v), d = n.expr ? m.filter(n.expr, n.set)[0] : n.set[0]); if (d) { n = f ? { expr: w.pop(), set: s(f)} : m.find(w.pop(), w.length === 1 && (w[0] === "~" || w[0] === "+") && d.parentNode ? d.parentNode : d, v), j = n.expr ? m.filter(n.expr, n.set) : n.set, w.length > 0 ? k = s(j) : u = !1; while (w.length) q = w.pop(), r = q, o.relative[q] ? r = w.pop() : q = "", r == null && (r = d), o.relative[q](k, r, v) } else k = w = [] } k || (k = j), k || m.error(q || b); if (g.call(k) === "[object Array]") if (!u) e.push.apply(e, k); else if (d && d.nodeType === 1) for (t = 0; k[t] != null; t++) k[t] && (k[t] === !0 || k[t].nodeType === 1 && m.contains(d, k[t])) && e.push(j[t]); else for (t = 0; k[t] != null; t++) k[t] && k[t].nodeType === 1 && e.push(j[t]); else s(k, e); l && (m(l, h, e, f), m.uniqueSort(e)); return e }; m.uniqueSort = function(a) { if (u) { h = i, a.sort(u); if (h) for (var b = 1; b < a.length; b++) a[b] === a[b - 1] && a.splice(b--, 1) } return a }, m.matches = function(a, b) { return m(a, null, null, b) }, m.matchesSelector = function(a, b) { return m(b, null, null, [a]).length > 0 }, m.find = function(a, b, c) { var d, e, f, g, h, i; if (!a) return []; for (e = 0, f = o.order.length; e < f; e++) { h = o.order[e]; if (g = o.leftMatch[h].exec(a)) { i = g[1], g.splice(1, 1); if (i.substr(i.length - 1) !== "\\") { g[1] = (g[1] || "").replace(j, ""), d = o.find[h](g, b, c); if (d != null) { a = a.replace(o.match[h], ""); break } } } } d || (d = typeof b.getElementsByTagName != "undefined" ? b.getElementsByTagName("*") : []); return { set: d, expr: a} }, m.filter = function(a, c, d, e) { var f, g, h, i, j, k, l, n, p, q = a, r = [], s = c, t = c && c[0] && m.isXML(c[0]); while (a && c.length) { for (h in o.filter) if ((f = o.leftMatch[h].exec(a)) != null && f[2]) { k = o.filter[h], l = f[1], g = !1, f.splice(1, 1); if (l.substr(l.length - 1) === "\\") continue; s === r && (r = []); if (o.preFilter[h]) { f = o.preFilter[h](f, s, d, r, e, t); if (!f) g = i = !0; else if (f === !0) continue } if (f) for (n = 0; (j = s[n]) != null; n++) j && (i = k(j, f, n, s), p = e ^ i, d && i != null ? p ? g = !0 : s[n] = !1 : p && (r.push(j), g = !0)); if (i !== b) { d || (s = r), a = a.replace(o.match[h], ""); if (!g) return []; break } } if (a === q) if (g == null) m.error(a); else break; q = a } return s }, m.error = function(a) { throw new Error("Syntax error, unrecognized expression: " + a) }; var n = m.getText = function(a) { var b, c, d = a.nodeType, e = ""; if (d) { if (d === 1 || d === 9 || d === 11) { if (typeof a.textContent == "string") return a.textContent; if (typeof a.innerText == "string") return a.innerText.replace(k, ""); for (a = a.firstChild; a; a = a.nextSibling) e += n(a) } else if (d === 3 || d === 4) return a.nodeValue } else for (b = 0; c = a[b]; b++) c.nodeType !== 8 && (e += n(c)); return e }, o = m.selectors = { order: ["ID", "NAME", "TAG"], match: { ID: /#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/, CLASS: /\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/, NAME: /\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/, ATTR: /\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(?:(['"])(.*?)\3|(#?(?:[\w\u00c0-\uFFFF\-]|\\.)*)|)|)\s*\]/, TAG: /^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/, CHILD: /:(only|nth|last|first)-child(?:\(\s*(even|odd|(?:[+\-]?\d+|(?:[+\-]?\d*)?n\s*(?:[+\-]\s*\d+)?))\s*\))?/, POS: /:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/, PSEUDO: /:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/ }, leftMatch: {}, attrMap: { "class": "className", "for": "htmlFor" }, attrHandle: { href: function(a) { return a.getAttribute("href") }, type: function(a) { return a.getAttribute("type") } }, relative: { "+": function(a, b) { var c = typeof b == "string", d = c && !l.test(b), e = c && !d; d && (b = b.toLowerCase()); for (var f = 0, g = a.length, h; f < g; f++) if (h = a[f]) { while ((h = h.previousSibling) && h.nodeType !== 1); a[f] = e || h && h.nodeName.toLowerCase() === b ? h || !1 : h === b } e && m.filter(b, a, !0) }, ">": function(a, b) { var c, d = typeof b == "string", e = 0, f = a.length; if (d && !l.test(b)) { b = b.toLowerCase(); for (; e < f; e++) { c = a[e]; if (c) { var g = c.parentNode; a[e] = g.nodeName.toLowerCase() === b ? g : !1 } } } else { for (; e < f; e++) c = a[e], c && (a[e] = d ? c.parentNode : c.parentNode === b); d && m.filter(b, a, !0) } }, "": function(a, b, c) { var d, f = e++, g = x; typeof b == "string" && !l.test(b) && (b = b.toLowerCase(), d = b, g = w), g("parentNode", b, f, a, d, c) }, "~": function(a, b, c) { var d, f = e++, g = x; typeof b == "string" && !l.test(b) && (b = b.toLowerCase(), d = b, g = w), g("previousSibling", b, f, a, d, c) } }, find: { ID: function(a, b, c) { if (typeof b.getElementById != "undefined" && !c) { var d = b.getElementById(a[1]); return d && d.parentNode ? [d] : [] } }, NAME: function(a, b) { if (typeof b.getElementsByName != "undefined") { var c = [], d = b.getElementsByName(a[1]); for (var e = 0, f = d.length; e < f; e++) d[e].getAttribute("name") === a[1] && c.push(d[e]); return c.length === 0 ? null : c } }, TAG: function(a, b) { if (typeof b.getElementsByTagName != "undefined") return b.getElementsByTagName(a[1]) } }, preFilter: { CLASS: function(a, b, c, d, e, f) { a = " " + a[1].replace(j, "") + " "; if (f) return a; for (var g = 0, h; (h = b[g]) != null; g++) h && (e ^ (h.className && (" " + h.className + " ").replace(/[\t\n\r]/g, " ").indexOf(a) >= 0) ? c || d.push(h) : c && (b[g] = !1)); return !1 }, ID: function(a) { return a[1].replace(j, "") }, TAG: function(a, b) { return a[1].replace(j, "").toLowerCase() }, CHILD: function(a) { if (a[1] === "nth") { a[2] || m.error(a[0]), a[2] = a[2].replace(/^\+|\s*/g, ""); var b = /(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2] === "even" && "2n" || a[2] === "odd" && "2n+1" || !/\D/.test(a[2]) && "0n+" + a[2] || a[2]); a[2] = b[1] + (b[2] || 1) - 0, a[3] = b[3] - 0 } else a[2] && m.error(a[0]); a[0] = e++; return a }, ATTR: function(a, b, c, d, e, f) { var g = a[1] = a[1].replace(j, ""); !f && o.attrMap[g] && (a[1] = o.attrMap[g]), a[4] = (a[4] || a[5] || "").replace(j, ""), a[2] === "~=" && (a[4] = " " + a[4] + " "); return a }, PSEUDO: function(b, c, d, e, f) { if (b[1] === "not") if ((a.exec(b[3]) || "").length > 1 || /^\w/.test(b[3])) b[3] = m(b[3], null, null, c); else { var g = m.filter(b[3], c, d, !0 ^ f); d || e.push.apply(e, g); return !1 } else if (o.match.POS.test(b[0]) || o.match.CHILD.test(b[0])) return !0; return b }, POS: function(a) { a.unshift(!0); return a } }, filters: { enabled: function(a) { return a.disabled === !1 && a.type !== "hidden" }, disabled: function(a) { return a.disabled === !0 }, checked: function(a) { return a.checked === !0 }, selected: function(a) { a.parentNode && a.parentNode.selectedIndex; return a.selected === !0 }, parent: function(a) { return !!a.firstChild }, empty: function(a) { return !a.firstChild }, has: function(a, b, c) { return !!m(c[3], a).length }, header: function(a) { return /h\d/i.test(a.nodeName) }, text: function(a) { var b = a.getAttribute("type"), c = a.type; return a.nodeName.toLowerCase() === "input" && "text" === c && (b === c || b === null) }, radio: function(a) { return a.nodeName.toLowerCase() === "input" && "radio" === a.type }, checkbox: function(a) { return a.nodeName.toLowerCase() === "input" && "checkbox" === a.type }, file: function(a) { return a.nodeName.toLowerCase() === "input" && "file" === a.type }, password: function(a) { return a.nodeName.toLowerCase() === "input" && "password" === a.type }, submit: function(a) { var b = a.nodeName.toLowerCase(); return (b === "input" || b === "button") && "submit" === a.type }, image: function(a) { return a.nodeName.toLowerCase() === "input" && "image" === a.type }, reset: function(a) { var b = a.nodeName.toLowerCase(); return (b === "input" || b === "button") && "reset" === a.type }, button: function(a) { var b = a.nodeName.toLowerCase(); return b === "input" && "button" === a.type || b === "button" }, input: function(a) { return /input|select|textarea|button/i.test(a.nodeName) }, focus: function(a) { return a === a.ownerDocument.activeElement } }, setFilters: { first: function(a, b) { return b === 0 }, last: function(a, b, c, d) { return b === d.length - 1 }, even: function(a, b) { return b % 2 === 0 }, odd: function(a, b) { return b % 2 === 1 }, lt: function(a, b, c) { return b < c[3] - 0 }, gt: function(a, b, c) { return b > c[3] - 0 }, nth: function(a, b, c) { return c[3] - 0 === b }, eq: function(a, b, c) { return c[3] - 0 === b } }, filter: { PSEUDO: function(a, b, c, d) { var e = b[1], f = o.filters[e]; if (f) return f(a, c, b, d); if (e === "contains") return (a.textContent || a.innerText || n([a]) || "").indexOf(b[3]) >= 0; if (e === "not") { var g = b[3]; for (var h = 0, i = g.length; h < i; h++) if (g[h] === a) return !1; return !0 } m.error(e) }, CHILD: function(a, b) { var c, e, f, g, h, i, j, k = b[1], l = a; switch (k) { case "only": case "first": while (l = l.previousSibling) if (l.nodeType === 1) return !1; if (k === "first") return !0; l = a; case "last": while (l = l.nextSibling) if (l.nodeType === 1) return !1; return !0; case "nth": c = b[2], e = b[3]; if (c === 1 && e === 0) return !0; f = b[0], g = a.parentNode; if (g && (g[d] !== f || !a.nodeIndex)) { i = 0; for (l = g.firstChild; l; l = l.nextSibling) l.nodeType === 1 && (l.nodeIndex = ++i); g[d] = f } j = a.nodeIndex - e; return c === 0 ? j === 0 : j % c === 0 && j / c >= 0 } }, ID: function(a, b) { return a.nodeType === 1 && a.getAttribute("id") === b }, TAG: function(a, b) { return b === "*" && a.nodeType === 1 || !!a.nodeName && a.nodeName.toLowerCase() === b }, CLASS: function(a, b) { return (" " + (a.className || a.getAttribute("class")) + " ").indexOf(b) > -1 }, ATTR: function(a, b) { var c = b[1], d = m.attr ? m.attr(a, c) : o.attrHandle[c] ? o.attrHandle[c](a) : a[c] != null ? a[c] : a.getAttribute(c), e = d + "", f = b[2], g = b[4]; return d == null ? f === "!=" : !f && m.attr ? d != null : f === "=" ? e === g : f === "*=" ? e.indexOf(g) >= 0 : f === "~=" ? (" " + e + " ").indexOf(g) >= 0 : g ? f === "!=" ? e !== g : f === "^=" ? e.indexOf(g) === 0 : f === "$=" ? e.substr(e.length - g.length) === g : f === "|=" ? e === g || e.substr(0, g.length + 1) === g + "-" : !1 : e && d !== !1 }, POS: function(a, b, c, d) { var e = b[2], f = o.setFilters[e]; if (f) return f(a, c, b, d) } } }, p = o.match.POS, q = function(a, b) { return "\\" + (b - 0 + 1) }; for (var r in o.match) o.match[r] = new RegExp(o.match[r].source + /(?![^\[]*\])(?![^\(]*\))/.source), o.leftMatch[r] = new RegExp(/(^(?:.|\r|\n)*?)/.source + o.match[r].source.replace(/\\(\d+)/g, q)); o.match.globalPOS = p; var s = function(a, b) { a = Array.prototype.slice.call(a, 0); if (b) { b.push.apply(b, a); return b } return a }; try { Array.prototype.slice.call(c.documentElement.childNodes, 0)[0].nodeType } catch (t) { s = function(a, b) { var c = 0, d = b || []; if (g.call(a) === "[object Array]") Array.prototype.push.apply(d, a); else if (typeof a.length == "number") for (var e = a.length; c < e; c++) d.push(a[c]); else for (; a[c]; c++) d.push(a[c]); return d } } var u, v; c.documentElement.compareDocumentPosition ? u = function(a, b) { if (a === b) { h = !0; return 0 } if (!a.compareDocumentPosition || !b.compareDocumentPosition) return a.compareDocumentPosition ? -1 : 1; return a.compareDocumentPosition(b) & 4 ? -1 : 1 } : (u = function(a, b) { if (a === b) { h = !0; return 0 } if (a.sourceIndex && b.sourceIndex) return a.sourceIndex - b.sourceIndex; var c, d, e = [], f = [], g = a.parentNode, i = b.parentNode, j = g; if (g === i) return v(a, b); if (!g) return -1; if (!i) return 1; while (j) e.unshift(j), j = j.parentNode; j = i; while (j) f.unshift(j), j = j.parentNode; c = e.length, d = f.length; for (var k = 0; k < c && k < d; k++) if (e[k] !== f[k]) return v(e[k], f[k]); return k === c ? v(a, f[k], -1) : v(e[k], b, 1) }, v = function(a, b, c) { if (a === b) return c; var d = a.nextSibling; while (d) { if (d === b) return -1; d = d.nextSibling } return 1 }), function() { var a = c.createElement("div"), d = "script" + (new Date).getTime(), e = c.documentElement; a.innerHTML = "", e.insertBefore(a, e.firstChild), c.getElementById(d) && (o.find.ID = function(a, c, d) { if (typeof c.getElementById != "undefined" && !d) { var e = c.getElementById(a[1]); return e ? e.id === a[1] || typeof e.getAttributeNode != "undefined" && e.getAttributeNode("id").nodeValue === a[1] ? [e] : b : [] } }, o.filter.ID = function(a, b) { var c = typeof a.getAttributeNode != "undefined" && a.getAttributeNode("id"); return a.nodeType === 1 && c && c.nodeValue === b }), e.removeChild(a), e = a = null } (), function() { var a = c.createElement("div"); a.appendChild(c.createComment("")), a.getElementsByTagName("*").length > 0 && (o.find.TAG = function(a, b) { var c = b.getElementsByTagName(a[1]); if (a[1] === "*") { var d = []; for (var e = 0; c[e]; e++) c[e].nodeType === 1 && d.push(c[e]); c = d } return c }), a.innerHTML = "", a.firstChild && typeof a.firstChild.getAttribute != "undefined" && a.firstChild.getAttribute("href") !== "#" && (o.attrHandle.href = function(a) { return a.getAttribute("href", 2) }), a = null } (), c.querySelectorAll && function() { var a = m, b = c.createElement("div"), d = "__sizzle__"; b.innerHTML = "

"; if (!b.querySelectorAll || b.querySelectorAll(".TEST").length !== 0) { m = function(b, e, f, g) { e = e || c; if (!g && !m.isXML(e)) { var h = /^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b); if (h && (e.nodeType === 1 || e.nodeType === 9)) { if (h[1]) return s(e.getElementsByTagName(b), f); if (h[2] && o.find.CLASS && e.getElementsByClassName) return s(e.getElementsByClassName(h[2]), f) } if (e.nodeType === 9) { if (b === "body" && e.body) return s([e.body], f); if (h && h[3]) { var i = e.getElementById(h[3]); if (!i || !i.parentNode) return s([], f); if (i.id === h[3]) return s([i], f) } try { return s(e.querySelectorAll(b), f) } catch (j) { } } else if (e.nodeType === 1 && e.nodeName.toLowerCase() !== "object") { var k = e, l = e.getAttribute("id"), n = l || d, p = e.parentNode, q = /^\s*[+~]/.test(b); l ? n = n.replace(/'/g, "\\$&") : e.setAttribute("id", n), q && p && (e = e.parentNode); try { if (!q || p) return s(e.querySelectorAll("[id='" + n + "'] " + b), f) } catch (r) { } finally { l || k.removeAttribute("id") } } } return a(b, e, f, g) }; for (var e in a) m[e] = a[e]; b = null } } (), function() { var a = c.documentElement, b = a.matchesSelector || a.mozMatchesSelector || a.webkitMatchesSelector || a.msMatchesSelector; if (b) { var d = !b.call(c.createElement("div"), "div"), e = !1; try { b.call(c.documentElement, "[test!='']:sizzle") } catch (f) { e = !0 } m.matchesSelector = function(a, c) { c = c.replace(/\=\s*([^'"\]]*)\s*\]/g, "='$1']"); if (!m.isXML(a)) try { if (e || !o.match.PSEUDO.test(c) && !/!=/.test(c)) { var f = b.call(a, c); if (f || !d || a.document && a.document.nodeType !== 11) return f } } catch (g) { } return m(c, null, null, [a]).length > 0 } } } (), function() { var a = c.createElement("div"); a.innerHTML = "
"; if (!!a.getElementsByClassName && a.getElementsByClassName("e").length !== 0) { a.lastChild.className = "e"; if (a.getElementsByClassName("e").length === 1) return; o.order.splice(1, 0, "CLASS"), o.find.CLASS = function(a, b, c) { if (typeof b.getElementsByClassName != "undefined" && !c) return b.getElementsByClassName(a[1]) }, a = null } } (), c.documentElement.contains ? m.contains = function(a, b) { return a !== b && (a.contains ? a.contains(b) : !0) } : c.documentElement.compareDocumentPosition ? m.contains = function(a, b) { return !!(a.compareDocumentPosition(b) & 16) } : m.contains = function() { return !1 }, m.isXML = function(a) { var b = (a ? a.ownerDocument || a : 0).documentElement; return b ? b.nodeName !== "HTML" : !1 }; var y = function(a, b, c) { var d, e = [], f = "", g = b.nodeType ? [b] : b; while (d = o.match.PSEUDO.exec(a)) f += d[0], a = a.replace(o.match.PSEUDO, ""); a = o.relative[a] ? a + "*" : a; for (var h = 0, i = g.length; h < i; h++) m(a, g[h], e, c); return m.filter(f, e) }; m.attr = f.attr, m.selectors.attrMap = {}, f.find = m, f.expr = m.selectors, f.expr[":"] = f.expr.filters, f.unique = m.uniqueSort, f.text = m.getText, f.isXMLDoc = m.isXML, f.contains = m.contains } (); var L = /Until$/, M = /^(?:parents|prevUntil|prevAll)/, N = /,/, O = /^.[^:#\[\.,]*$/, P = Array.prototype.slice, Q = f.expr.match.globalPOS, R = { children: !0, contents: !0, next: !0, prev: !0 }; f.fn.extend({ find: function(a) { var b = this, c, d; if (typeof a != "string") return f(a).filter(function() { for (c = 0, d = b.length; c < d; c++) if (f.contains(b[c], this)) return !0 }); var e = this.pushStack("", "find", a), g, h, i; for (c = 0, d = this.length; c < d; c++) { g = e.length, f.find(a, this[c], e); if (c > 0) for (h = g; h < e.length; h++) for (i = 0; i < g; i++) if (e[i] === e[h]) { e.splice(h--, 1); break } } return e }, has: function(a) { var b = f(a); return this.filter(function() { for (var a = 0, c = b.length; a < c; a++) if (f.contains(this, b[a])) return !0 }) }, not: function(a) { return this.pushStack(T(this, a, !1), "not", a) }, filter: function(a) { return this.pushStack(T(this, a, !0), "filter", a) }, is: function(a) { return !!a && (typeof a == "string" ? Q.test(a) ? f(a, this.context).index(this[0]) >= 0 : f.filter(a, this).length > 0 : this.filter(a).length > 0) }, closest: function(a, b) { var c = [], d, e, g = this[0]; if (f.isArray(a)) { var h = 1; while (g && g.ownerDocument && g !== b) { for (d = 0; d < a.length; d++) f(g).is(a[d]) && c.push({ selector: a[d], elem: g, level: h }); g = g.parentNode, h++ } return c } var i = Q.test(a) || typeof a != "string" ? f(a, b || this.context) : 0; for (d = 0, e = this.length; d < e; d++) { g = this[d]; while (g) { if (i ? i.index(g) > -1 : f.find.matchesSelector(g, a)) { c.push(g); break } g = g.parentNode; if (!g || !g.ownerDocument || g === b || g.nodeType === 11) break } } c = c.length > 1 ? f.unique(c) : c; return this.pushStack(c, "closest", a) }, index: function(a) { if (!a) return this[0] && this[0].parentNode ? this.prevAll().length : -1; if (typeof a == "string") return f.inArray(this[0], f(a)); return f.inArray(a.jquery ? a[0] : a, this) }, add: function(a, b) { var c = typeof a == "string" ? f(a, b) : f.makeArray(a && a.nodeType ? [a] : a), d = f.merge(this.get(), c); return this.pushStack(S(c[0]) || S(d[0]) ? d : f.unique(d)) }, andSelf: function() { return this.add(this.prevObject) } }), f.each({ parent: function(a) { var b = a.parentNode; return b && b.nodeType !== 11 ? b : null }, parents: function(a) { return f.dir(a, "parentNode") }, parentsUntil: function(a, b, c) { return f.dir(a, "parentNode", c) }, next: function(a) { return f.nth(a, 2, "nextSibling") }, prev: function(a) { return f.nth(a, 2, "previousSibling") }, nextAll: function(a) { return f.dir(a, "nextSibling") }, prevAll: function(a) { return f.dir(a, "previousSibling") }, nextUntil: function(a, b, c) { return f.dir(a, "nextSibling", c) }, prevUntil: function(a, b, c) { return f.dir(a, "previousSibling", c) }, siblings: function(a) { return f.sibling((a.parentNode || {}).firstChild, a) }, children: function(a) { return f.sibling(a.firstChild) }, contents: function(a) { return f.nodeName(a, "iframe") ? a.contentDocument || a.contentWindow.document : f.makeArray(a.childNodes) } }, function(a, b) { f.fn[a] = function(c, d) { var e = f.map(this, b, c); L.test(a) || (d = c), d && typeof d == "string" && (e = f.filter(d, e)), e = this.length > 1 && !R[a] ? f.unique(e) : e, (this.length > 1 || N.test(d)) && M.test(a) && (e = e.reverse()); return this.pushStack(e, a, P.call(arguments).join(",")) } }), f.extend({ filter: function(a, b, c) { c && (a = ":not(" + a + ")"); return b.length === 1 ? f.find.matchesSelector(b[0], a) ? [b[0]] : [] : f.find.matches(a, b) }, dir: function(a, c, d) { var e = [], g = a[c]; while (g && g.nodeType !== 9 && (d === b || g.nodeType !== 1 || !f(g).is(d))) g.nodeType === 1 && e.push(g), g = g[c]; return e }, nth: function(a, b, c, d) { b = b || 1; var e = 0; for (; a; a = a[c]) if (a.nodeType === 1 && ++e === b) break; return a }, sibling: function(a, b) { var c = []; for (; a; a = a.nextSibling) a.nodeType === 1 && a !== b && c.push(a); return c } }); var V = "abbr|article|aside|audio|bdi|canvas|data|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video", W = / jQuery\d+="(?:\d+|null)"/g, X = /^\s+/, Y = /<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig, Z = /<([\w:]+)/, $ = /]", "i"), bd = /checked\s*(?:[^=]|=\s*.checked.)/i, be = /\/(java|ecma)script/i, bf = /^\s*", ""], legend: [1, "
", "
"], thead: [1, "", "
"], tr: [2, "", "
"], td: [3, "", "
"], col: [2, "", "
"], area: [1, "", ""], _default: [0, "", ""] }, bh = U(c); bg.optgroup = bg.option, bg.tbody = bg.tfoot = bg.colgroup = bg.caption = bg.thead, bg.th = bg.td, f.support.htmlSerialize || (bg._default = [1, "div
", "
"]), f.fn.extend({ text: function(a) { return f.access(this, function(a) { return a === b ? f.text(this) : this.empty().append((this[0] && this[0].ownerDocument || c).createTextNode(a)) }, null, a, arguments.length) }, wrapAll: function(a) { if (f.isFunction(a)) return this.each(function(b) { f(this).wrapAll(a.call(this, b)) }); if (this[0]) { var b = f(a, this[0].ownerDocument).eq(0).clone(!0); this[0].parentNode && b.insertBefore(this[0]), b.map(function() { var a = this; while (a.firstChild && a.firstChild.nodeType === 1) a = a.firstChild; return a }).append(this) } return this }, wrapInner: function(a) { if (f.isFunction(a)) return this.each(function(b) { f(this).wrapInner(a.call(this, b)) }); return this.each(function() { var b = f(this), c = b.contents(); c.length ? c.wrapAll(a) : b.append(a) }) }, wrap: function(a) { var b = f.isFunction(a); return this.each(function(c) { f(this).wrapAll(b ? a.call(this, c) : a) }) }, unwrap: function() { return this.parent().each(function() { f.nodeName(this, "body") || f(this).replaceWith(this.childNodes) }).end() }, append: function() { return this.domManip(arguments, !0, function(a) { this.nodeType === 1 && this.appendChild(a) }) }, prepend: function() { return this.domManip(arguments, !0, function(a) { this.nodeType === 1 && this.insertBefore(a, this.firstChild) }) }, before: function() { + if (this[0] && this[0].parentNode) return this.domManip(arguments, !1, function(a) { this.parentNode.insertBefore(a, this) }); if (arguments.length) { + var a = f +.clean(arguments); a.push.apply(a, this.toArray()); return this.pushStack(a, "before", arguments) + } +}, after: function() { if (this[0] && this[0].parentNode) return this.domManip(arguments, !1, function(a) { this.parentNode.insertBefore(a, this.nextSibling) }); if (arguments.length) { var a = this.pushStack(this, "after", arguments); a.push.apply(a, f.clean(arguments)); return a } }, remove: function(a, b) { for (var c = 0, d; (d = this[c]) != null; c++) if (!a || f.filter(a, [d]).length) !b && d.nodeType === 1 && (f.cleanData(d.getElementsByTagName("*")), f.cleanData([d])), d.parentNode && d.parentNode.removeChild(d); return this }, empty: function() { for (var a = 0, b; (b = this[a]) != null; a++) { b.nodeType === 1 && f.cleanData(b.getElementsByTagName("*")); while (b.firstChild) b.removeChild(b.firstChild) } return this }, clone: function(a, b) { a = a == null ? !1 : a, b = b == null ? a : b; return this.map(function() { return f.clone(this, a, b) }) }, html: function(a) { return f.access(this, function(a) { var c = this[0] || {}, d = 0, e = this.length; if (a === b) return c.nodeType === 1 ? c.innerHTML.replace(W, "") : null; if (typeof a == "string" && !ba.test(a) && (f.support.leadingWhitespace || !X.test(a)) && !bg[(Z.exec(a) || ["", ""])[1].toLowerCase()]) { a = a.replace(Y, "<$1>"); try { for (; d < e; d++) c = this[d] || {}, c.nodeType === 1 && (f.cleanData(c.getElementsByTagName("*")), c.innerHTML = a); c = 0 } catch (g) { } } c && this.empty().append(a) }, null, a, arguments.length) }, replaceWith: function(a) { if (this[0] && this[0].parentNode) { if (f.isFunction(a)) return this.each(function(b) { var c = f(this), d = c.html(); c.replaceWith(a.call(this, b, d)) }); typeof a != "string" && (a = f(a).detach()); return this.each(function() { var b = this.nextSibling, c = this.parentNode; f(this).remove(), b ? f(b).before(a) : f(c).append(a) }) } return this.length ? this.pushStack(f(f.isFunction(a) ? a() : a), "replaceWith", a) : this }, detach: function(a) { return this.remove(a, !0) }, domManip: function(a, c, d) { var e, g, h, i, j = a[0], k = []; if (!f.support.checkClone && arguments.length === 3 && typeof j == "string" && bd.test(j)) return this.each(function() { f(this).domManip(a, c, d, !0) }); if (f.isFunction(j)) return this.each(function(e) { var g = f(this); a[0] = j.call(this, e, c ? g.html() : b), g.domManip(a, c, d) }); if (this[0]) { i = j && j.parentNode, f.support.parentNode && i && i.nodeType === 11 && i.childNodes.length === this.length ? e = { fragment: i} : e = f.buildFragment(a, this, k), h = e.fragment, h.childNodes.length === 1 ? g = h = h.firstChild : g = h.firstChild; if (g) { c = c && f.nodeName(g, "tr"); for (var l = 0, m = this.length, n = m - 1; l < m; l++) d.call(c ? bi(this[l], g) : this[l], e.cacheable || m > 1 && l < n ? f.clone(h, !0, !0) : h) } k.length && f.each(k, function(a, b) { b.src ? f.ajax({ type: "GET", global: !1, url: b.src, async: !1, dataType: "script" }) : f.globalEval((b.text || b.textContent || b.innerHTML || "").replace(bf, "/*$0*/")), b.parentNode && b.parentNode.removeChild(b) }) } return this } +}), f.buildFragment = function(a, b, d) { var e, g, h, i, j = a[0]; b && b[0] && (i = b[0].ownerDocument || b[0]), i.createDocumentFragment || (i = c), a.length === 1 && typeof j == "string" && j.length < 512 && i === c && j.charAt(0) === "<" && !bb.test(j) && (f.support.checkClone || !bd.test(j)) && (f.support.html5Clone || !bc.test(j)) && (g = !0, h = f.fragments[j], h && h !== 1 && (e = h)), e || (e = i.createDocumentFragment(), f.clean(a, i, e, d)), g && (f.fragments[j] = h ? e : 1); return { fragment: e, cacheable: g} }, f.fragments = {}, f.each({ appendTo: "append", prependTo: "prepend", insertBefore: "before", insertAfter: "after", replaceAll: "replaceWith" }, function(a, b) { f.fn[a] = function(c) { var d = [], e = f(c), g = this.length === 1 && this[0].parentNode; if (g && g.nodeType === 11 && g.childNodes.length === 1 && e.length === 1) { e[b](this[0]); return this } for (var h = 0, i = e.length; h < i; h++) { var j = (h > 0 ? this.clone(!0) : this).get(); f(e[h])[b](j), d = d.concat(j) } return this.pushStack(d, a, e.selector) } }), f.extend({ clone: function(a, b, c) { var d, e, g, h = f.support.html5Clone || f.isXMLDoc(a) || !bc.test("<" + a.nodeName + ">") ? a.cloneNode(!0) : bo(a); if ((!f.support.noCloneEvent || !f.support.noCloneChecked) && (a.nodeType === 1 || a.nodeType === 11) && !f.isXMLDoc(a)) { bk(a, h), d = bl(a), e = bl(h); for (g = 0; d[g]; ++g) e[g] && bk(d[g], e[g]) } if (b) { bj(a, h); if (c) { d = bl(a), e = bl(h); for (g = 0; d[g]; ++g) bj(d[g], e[g]) } } d = e = null; return h }, clean: function(a, b, d, e) { var g, h, i, j = []; b = b || c, typeof b.createElement == "undefined" && (b = b.ownerDocument || b[0] && b[0].ownerDocument || c); for (var k = 0, l; (l = a[k]) != null; k++) { typeof l == "number" && (l += ""); if (!l) continue; if (typeof l == "string") if (!_.test(l)) l = b.createTextNode(l); else { l = l.replace(Y, "<$1>"); var m = (Z.exec(l) || ["", ""])[1].toLowerCase(), n = bg[m] || bg._default, o = n[0], p = b.createElement("div"), q = bh.childNodes, r; b === c ? bh.appendChild(p) : U(b).appendChild(p), p.innerHTML = n[1] + l + n[2]; while (o--) p = p.lastChild; if (!f.support.tbody) { var s = $.test(l), t = m === "table" && !s ? p.firstChild && p.firstChild.childNodes : n[1] === "" && !s ? p.childNodes : []; for (i = t.length - 1; i >= 0; --i) f.nodeName(t[i], "tbody") && !t[i].childNodes.length && t[i].parentNode.removeChild(t[i]) } !f.support.leadingWhitespace && X.test(l) && p.insertBefore(b.createTextNode(X.exec(l)[0]), p.firstChild), l = p.childNodes, p && (p.parentNode.removeChild(p), q.length > 0 && (r = q[q.length - 1], r && r.parentNode && r.parentNode.removeChild(r))) } var u; if (!f.support.appendChecked) if (l[0] && typeof (u = l.length) == "number") for (i = 0; i < u; i++) bn(l[i]); else bn(l); l.nodeType ? j.push(l) : j = f.merge(j, l) } if (d) { g = function(a) { return !a.type || be.test(a.type) }; for (k = 0; j[k]; k++) { h = j[k]; if (e && f.nodeName(h, "script") && (!h.type || be.test(h.type))) e.push(h.parentNode ? h.parentNode.removeChild(h) : h); else { if (h.nodeType === 1) { var v = f.grep(h.getElementsByTagName("script"), g); j.splice.apply(j, [k + 1, 0].concat(v)) } d.appendChild(h) } } } return j }, cleanData: function(a) { var b, c, d = f.cache, e = f.event.special, g = f.support.deleteExpando; for (var h = 0, i; (i = a[h]) != null; h++) { if (i.nodeName && f.noData[i.nodeName.toLowerCase()]) continue; c = i[f.expando]; if (c) { b = d[c]; if (b && b.events) { for (var j in b.events) e[j] ? f.event.remove(i, j) : f.removeEvent(i, j, b.handle); b.handle && (b.handle.elem = null) } g ? delete i[f.expando] : i.removeAttribute && i.removeAttribute(f.expando), delete d[c] } } } }); var bp = /alpha\([^)]*\)/i, bq = /opacity=([^)]*)/, br = /([A-Z]|^ms)/g, bs = /^[\-+]?(?:\d*\.)?\d+$/i, bt = /^-?(?:\d*\.)?\d+(?!px)[^\d\s]+$/i, bu = /^([\-+])=([\-+.\de]+)/, bv = /^margin/, bw = { position: "absolute", visibility: "hidden", display: "block" }, bx = ["Top", "Right", "Bottom", "Left"], by, bz, bA; f.fn.css = function(a, c) { return f.access(this, function(a, c, d) { return d !== b ? f.style(a, c, d) : f.css(a, c) }, a, c, arguments.length > 1) }, f.extend({ cssHooks: { opacity: { get: function(a, b) { if (b) { var c = by(a, "opacity"); return c === "" ? "1" : c } return a.style.opacity } } }, cssNumber: { fillOpacity: !0, fontWeight: !0, lineHeight: !0, opacity: !0, orphans: !0, widows: !0, zIndex: !0, zoom: !0 }, cssProps: { "float": f.support.cssFloat ? "cssFloat" : "styleFloat" }, style: function(a, c, d, e) { if (!!a && a.nodeType !== 3 && a.nodeType !== 8 && !!a.style) { var g, h, i = f.camelCase(c), j = a.style, k = f.cssHooks[i]; c = f.cssProps[i] || i; if (d === b) { if (k && "get" in k && (g = k.get(a, !1, e)) !== b) return g; return j[c] } h = typeof d, h === "string" && (g = bu.exec(d)) && (d = +(g[1] + 1) * +g[2] + parseFloat(f.css(a, c)), h = "number"); if (d == null || h === "number" && isNaN(d)) return; h === "number" && !f.cssNumber[i] && (d += "px"); if (!k || !("set" in k) || (d = k.set(a, d)) !== b) try { j[c] = d } catch (l) { } } }, css: function(a, c, d) { var e, g; c = f.camelCase(c), g = f.cssHooks[c], c = f.cssProps[c] || c, c === "cssFloat" && (c = "float"); if (g && "get" in g && (e = g.get(a, !0, d)) !== b) return e; if (by) return by(a, c) }, swap: function(a, b, c) { var d = {}, e, f; for (f in b) d[f] = a.style[f], a.style[f] = b[f]; e = c.call(a); for (f in b) a.style[f] = d[f]; return e } }), f.curCSS = f.css, c.defaultView && c.defaultView.getComputedStyle && (bz = function(a, b) { var c, d, e, g, h = a.style; b = b.replace(br, "-$1").toLowerCase(), (d = a.ownerDocument.defaultView) && (e = d.getComputedStyle(a, null)) && (c = e.getPropertyValue(b), c === "" && !f.contains(a.ownerDocument.documentElement, a) && (c = f.style(a, b))), !f.support.pixelMargin && e && bv.test(b) && bt.test(c) && (g = h.width, h.width = c, c = e.width, h.width = g); return c }), c.documentElement.currentStyle && (bA = function(a, b) { var c, d, e, f = a.currentStyle && a.currentStyle[b], g = a.style; f == null && g && (e = g[b]) && (f = e), bt.test(f) && (c = g.left, d = a.runtimeStyle && a.runtimeStyle.left, d && (a.runtimeStyle.left = a.currentStyle.left), g.left = b === "fontSize" ? "1em" : f, f = g.pixelLeft + "px", g.left = c, d && (a.runtimeStyle.left = d)); return f === "" ? "auto" : f }), by = bz || bA, f.each(["height", "width"], function(a, b) { f.cssHooks[b] = { get: function(a, c, d) { if (c) return a.offsetWidth !== 0 ? bB(a, b, d) : f.swap(a, bw, function() { return bB(a, b, d) }) }, set: function(a, b) { return bs.test(b) ? b + "px" : b } } }), f.support.opacity || (f.cssHooks.opacity = { get: function(a, b) { return bq.test((b && a.currentStyle ? a.currentStyle.filter : a.style.filter) || "") ? parseFloat(RegExp.$1) / 100 + "" : b ? "1" : "" }, set: function(a, b) { var c = a.style, d = a.currentStyle, e = f.isNumeric(b) ? "alpha(opacity=" + b * 100 + ")" : "", g = d && d.filter || c.filter || ""; c.zoom = 1; if (b >= 1 && f.trim(g.replace(bp, "")) === "") { c.removeAttribute("filter"); if (d && !d.filter) return } c.filter = bp.test(g) ? g.replace(bp, e) : g + " " + e } }), f(function() { f.support.reliableMarginRight || (f.cssHooks.marginRight = { get: function(a, b) { return f.swap(a, { display: "inline-block" }, function() { return b ? by(a, "margin-right") : a.style.marginRight }) } }) }), f.expr && f.expr.filters && (f.expr.filters.hidden = function(a) { var b = a.offsetWidth, c = a.offsetHeight; return b === 0 && c === 0 || !f.support.reliableHiddenOffsets && (a.style && a.style.display || f.css(a, "display")) === "none" }, f.expr.filters.visible = function(a) { return !f.expr.filters.hidden(a) }), f.each({ margin: "", padding: "", border: "Width" }, function(a, b) { f.cssHooks[a + b] = { expand: function(c) { var d, e = typeof c == "string" ? c.split(" ") : [c], f = {}; for (d = 0; d < 4; d++) f[a + bx[d] + b] = e[d] || e[d - 2] || e[0]; return f } } }); var bC = /%20/g, bD = /\[\]$/, bE = /\r?\n/g, bF = /#.*$/, bG = /^(.*?):[ \t]*([^\r\n]*)\r?$/mg, bH = /^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i, bI = /^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/, bJ = /^(?:GET|HEAD)$/, bK = /^\/\//, bL = /\?/, bM = /)<[^<]*)*<\/script>/gi, bN = /^(?:select|textarea)/i, bO = /\s+/, bP = /([?&])_=[^&]*/, bQ = /^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/, bR = f.fn.load, bS = {}, bT = {}, bU, bV, bW = ["*/"] + ["*"]; try { bU = e.href } catch (bX) { bU = c.createElement("a"), bU.href = "", bU = bU.href } bV = bQ.exec(bU.toLowerCase()) || [], f.fn.extend({ load: function(a, c, d) { if (typeof a != "string" && bR) return bR.apply(this, arguments); if (!this.length) return this; var e = a.indexOf(" "); if (e >= 0) { var g = a.slice(e, a.length); a = a.slice(0, e) } var h = "GET"; c && (f.isFunction(c) ? (d = c, c = b) : typeof c == "object" && (c = f.param(c, f.ajaxSettings.traditional), h = "POST")); var i = this; f.ajax({ url: a, type: h, dataType: "html", data: c, complete: function(a, b, c) { c = a.responseText, a.isResolved() && (a.done(function(a) { c = a }), i.html(g ? f("
").append(c.replace(bM, "")).find(g) : c)), d && i.each(d, [c, b, a]) } }); return this }, serialize: function() { return f.param(this.serializeArray()) }, serializeArray: function() { return this.map(function() { return this.elements ? f.makeArray(this.elements) : this }).filter(function() { return this.name && !this.disabled && (this.checked || bN.test(this.nodeName) || bH.test(this.type)) }).map(function(a, b) { var c = f(this).val(); return c == null ? null : f.isArray(c) ? f.map(c, function(a, c) { return { name: b.name, value: a.replace(bE, "\r\n")} }) : { name: b.name, value: c.replace(bE, "\r\n")} }).get() } }), f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "), function(a, b) { f.fn[b] = function(a) { return this.on(b, a) } }), f.each(["get", "post"], function(a, c) { f[c] = function(a, d, e, g) { f.isFunction(d) && (g = g || e, e = d, d = b); return f.ajax({ type: c, url: a, data: d, success: e, dataType: g }) } }), f.extend({ getScript: function(a, c) { return f.get(a, b, c, "script") }, getJSON: function(a, b, c) { return f.get(a, b, c, "json") }, ajaxSetup: function(a, b) { b ? b$(a, f.ajaxSettings) : (b = a, a = f.ajaxSettings), b$(a, b); return a }, ajaxSettings: { url: bU, isLocal: bI.test(bV[1]), global: !0, type: "GET", contentType: "application/x-www-form-urlencoded; charset=UTF-8", processData: !0, async: !0, accepts: { xml: "application/xml, text/xml", html: "text/html", text: "text/plain", json: "application/json, text/javascript", "*": bW }, contents: { xml: /xml/, html: /html/, json: /json/ }, responseFields: { xml: "responseXML", text: "responseText" }, converters: { "* text": a.String, "text html": !0, "text json": f.parseJSON, "text xml": f.parseXML }, flatOptions: { context: !0, url: !0} }, ajaxPrefilter: bY(bS), ajaxTransport: bY(bT), ajax: function(a, c) { function w(a, c, l, m) { if (s !== 2) { s = 2, q && clearTimeout(q), p = b, n = m || "", v.readyState = a > 0 ? 4 : 0; var o, r, u, w = c, x = l ? ca(d, v, l) : b, y, z; if (a >= 200 && a < 300 || a === 304) { if (d.ifModified) { if (y = v.getResponseHeader("Last-Modified")) f.lastModified[k] = y; if (z = v.getResponseHeader("Etag")) f.etag[k] = z } if (a === 304) w = "notmodified", o = !0; else try { r = cb(d, x), w = "success", o = !0 } catch (A) { w = "parsererror", u = A } } else { u = w; if (!w || a) w = "error", a < 0 && (a = 0) } v.status = a, v.statusText = "" + (c || w), o ? h.resolveWith(e, [r, w, v]) : h.rejectWith(e, [v, w, u]), v.statusCode(j), j = b, t && g.trigger("ajax" + (o ? "Success" : "Error"), [v, d, o ? r : u]), i.fireWith(e, [v, w]), t && (g.trigger("ajaxComplete", [v, d]), --f.active || f.event.trigger("ajaxStop")) } } typeof a == "object" && (c = a, a = b), c = c || {}; var d = f.ajaxSetup({}, c), e = d.context || d, g = e !== d && (e.nodeType || e instanceof f) ? f(e) : f.event, h = f.Deferred(), i = f.Callbacks("once memory"), j = d.statusCode || {}, k, l = {}, m = {}, n, o, p, q, r, s = 0, t, u, v = { readyState: 0, setRequestHeader: function(a, b) { if (!s) { var c = a.toLowerCase(); a = m[c] = m[c] || a, l[a] = b } return this }, getAllResponseHeaders: function() { return s === 2 ? n : null }, getResponseHeader: function(a) { var c; if (s === 2) { if (!o) { o = {}; while (c = bG.exec(n)) o[c[1].toLowerCase()] = c[2] } c = o[a.toLowerCase()] } return c === b ? null : c }, overrideMimeType: function(a) { s || (d.mimeType = a); return this }, abort: function(a) { a = a || "abort", p && p.abort(a), w(0, a); return this } }; h.promise(v), v.success = v.done, v.error = v.fail, v.complete = i.add, v.statusCode = function(a) { if (a) { var b; if (s < 2) for (b in a) j[b] = [j[b], a[b]]; else b = a[v.status], v.then(b, b) } return this }, d.url = ((a || d.url) + "").replace(bF, "").replace(bK, bV[1] + "//"), d.dataTypes = f.trim(d.dataType || "*").toLowerCase().split(bO), d.crossDomain == null && (r = bQ.exec(d.url.toLowerCase()), d.crossDomain = !(!r || r[1] == bV[1] && r[2] == bV[2] && (r[3] || (r[1] === "http:" ? 80 : 443)) == (bV[3] || (bV[1] === "http:" ? 80 : 443)))), d.data && d.processData && typeof d.data != "string" && (d.data = f.param(d.data, d.traditional)), bZ(bS, d, c, v); if (s === 2) return !1; t = d.global, d.type = d.type.toUpperCase(), d.hasContent = !bJ.test(d.type), t && f.active++ === 0 && f.event.trigger("ajaxStart"); if (!d.hasContent) { d.data && (d.url += (bL.test(d.url) ? "&" : "?") + d.data, delete d.data), k = d.url; if (d.cache === !1) { var x = f.now(), y = d.url.replace(bP, "$1_=" + x); d.url = y + (y === d.url ? (bL.test(d.url) ? "&" : "?") + "_=" + x : "") } } (d.data && d.hasContent && d.contentType !== !1 || c.contentType) && v.setRequestHeader("Content-Type", d.contentType), d.ifModified && (k = k || d.url, f.lastModified[k] && v.setRequestHeader("If-Modified-Since", f.lastModified[k]), f.etag[k] && v.setRequestHeader("If-None-Match", f.etag[k])), v.setRequestHeader("Accept", d.dataTypes[0] && d.accepts[d.dataTypes[0]] ? d.accepts[d.dataTypes[0]] + (d.dataTypes[0] !== "*" ? ", " + bW + "; q=0.01" : "") : d.accepts["*"]); for (u in d.headers) v.setRequestHeader(u, d.headers[u]); if (d.beforeSend && (d.beforeSend.call(e, v, d) === !1 || s === 2)) { v.abort(); return !1 } for (u in { success: 1, error: 1, complete: 1 }) v[u](d[u]); p = bZ(bT, d, c, v); if (!p) w(-1, "No Transport"); else { v.readyState = 1, t && g.trigger("ajaxSend", [v, d]), d.async && d.timeout > 0 && (q = setTimeout(function() { v.abort("timeout") }, d.timeout)); try { s = 1, p.send(l, w) } catch (z) { if (s < 2) w(-1, z); else throw z } } return v }, param: function(a, c) { var d = [], e = function(a, b) { b = f.isFunction(b) ? b() : b, d[d.length] = encodeURIComponent(a) + "=" + encodeURIComponent(b) }; c === b && (c = f.ajaxSettings.traditional); if (f.isArray(a) || a.jquery && !f.isPlainObject(a)) f.each(a, function() { e(this.name, this.value) }); else for (var g in a) b_(g, a[g], c, e); return d.join("&").replace(bC, "+") } }), f.extend({ active: 0, lastModified: {}, etag: {} }); var cc = f.now(), cd = /(\=)\?(&|$)|\?\?/i; f.ajaxSetup({ jsonp: "callback", jsonpCallback: function() { return f.expando + "_" + cc++ } }), f.ajaxPrefilter("json jsonp", function(b, c, d) { var e = typeof b.data == "string" && /^application\/x\-www\-form\-urlencoded/.test(b.contentType); if (b.dataTypes[0] === "jsonp" || b.jsonp !== !1 && (cd.test(b.url) || e && cd.test(b.data))) { var g, h = b.jsonpCallback = f.isFunction(b.jsonpCallback) ? b.jsonpCallback() : b.jsonpCallback, i = a[h], j = b.url, k = b.data, l = "$1" + h + "$2"; b.jsonp !== !1 && (j = j.replace(cd, l), b.url === j && (e && (k = k.replace(cd, l)), b.data === k && (j += (/\?/.test(j) ? "&" : "?") + b.jsonp + "=" + h))), b.url = j, b.data = k, a[h] = function(a) { g = [a] }, d.always(function() { a[h] = i, g && f.isFunction(i) && a[h](g[0]) }), b.converters["script json"] = function() { g || f.error(h + " was not called"); return g[0] }, b.dataTypes[0] = "json"; return "script" } }), f.ajaxSetup({ accepts: { script: "text/javascript, application/javascript, application/ecmascript, application/x-ecmascript" }, contents: { script: /javascript|ecmascript/ }, converters: { "text script": function(a) { f.globalEval(a); return a } } }), f.ajaxPrefilter("script", function(a) { a.cache === b && (a.cache = !1), a.crossDomain && (a.type = "GET", a.global = !1) }), f.ajaxTransport("script", function(a) { if (a.crossDomain) { var d, e = c.head || c.getElementsByTagName("head")[0] || c.documentElement; return { send: function(f, g) { d = c.createElement("script"), d.async = "async", a.scriptCharset && (d.charset = a.scriptCharset), d.src = a.url, d.onload = d.onreadystatechange = function(a, c) { if (c || !d.readyState || /loaded|complete/.test(d.readyState)) d.onload = d.onreadystatechange = null, e && d.parentNode && e.removeChild(d), d = b, c || g(200, "success") }, e.insertBefore(d, e.firstChild) }, abort: function() { d && d.onload(0, 1) } } } }); var ce = a.ActiveXObject ? function() { for (var a in cg) cg[a](0, 1) } : !1, cf = 0, cg; f.ajaxSettings.xhr = a.ActiveXObject ? function() { return !this.isLocal && ch() || ci() } : ch, function(a) { f.extend(f.support, { ajax: !!a, cors: !!a && "withCredentials" in a }) } (f.ajaxSettings.xhr()), f.support.ajax && f.ajaxTransport(function(c) { if (!c.crossDomain || f.support.cors) { var d; return { send: function(e, g) { var h = c.xhr(), i, j; c.username ? h.open(c.type, c.url, c.async, c.username, c.password) : h.open(c.type, c.url, c.async); if (c.xhrFields) for (j in c.xhrFields) h[j] = c.xhrFields[j]; c.mimeType && h.overrideMimeType && h.overrideMimeType(c.mimeType), !c.crossDomain && !e["X-Requested-With"] && (e["X-Requested-With"] = "XMLHttpRequest"); try { for (j in e) h.setRequestHeader(j, e[j]) } catch (k) { } h.send(c.hasContent && c.data || null), d = function(a, e) { var j, k, l, m, n; try { if (d && (e || h.readyState === 4)) { d = b, i && (h.onreadystatechange = f.noop, ce && delete cg[i]); if (e) h.readyState !== 4 && h.abort(); else { j = h.status, l = h.getAllResponseHeaders(), m = {}, n = h.responseXML, n && n.documentElement && (m.xml = n); try { m.text = h.responseText } catch (a) { } try { k = h.statusText } catch (o) { k = "" } !j && c.isLocal && !c.crossDomain ? j = m.text ? 200 : 404 : j === 1223 && (j = 204) } } } catch (p) { e || g(-1, p) } m && g(j, k, m, l) }, !c.async || h.readyState === 4 ? d() : (i = ++cf, ce && (cg || (cg = {}, f(a).unload(ce)), cg[i] = d), h.onreadystatechange = d) }, abort: function() { d && d(0, 1) } } } }); var cj = {}, ck, cl, cm = /^(?:toggle|show|hide)$/, cn = /^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i, co, cp = [["height", "marginTop", "marginBottom", "paddingTop", "paddingBottom"], ["width", "marginLeft", "marginRight", "paddingLeft", "paddingRight"], ["opacity"]], cq; f.fn.extend({ show: function(a, b, c) { var d, e; if (a || a === 0) return this.animate(ct("show", 3), a, b, c); for (var g = 0, h = this.length; g < h; g++) d = this[g], d.style && (e = d.style.display, !f._data(d, "olddisplay") && e === "none" && (e = d.style.display = ""), (e === "" && f.css(d, "display") === "none" || !f.contains(d.ownerDocument.documentElement, d)) && f._data(d, "olddisplay", cu(d.nodeName))); for (g = 0; g < h; g++) { d = this[g]; if (d.style) { e = d.style.display; if (e === "" || e === "none") d.style.display = f._data(d, "olddisplay") || "" } } return this }, hide: function(a, b, c) { if (a || a === 0) return this.animate(ct("hide", 3), a, b, c); var d, e, g = 0, h = this.length; for (; g < h; g++) d = this[g], d.style && (e = f.css(d, "display"), e !== "none" && !f._data(d, "olddisplay") && f._data(d, "olddisplay", e)); for (g = 0; g < h; g++) this[g].style && (this[g].style.display = "none"); return this }, _toggle: f.fn.toggle, toggle: function(a, b, c) { var d = typeof a == "boolean"; f.isFunction(a) && f.isFunction(b) ? this._toggle.apply(this, arguments) : a == null || d ? this.each(function() { var b = d ? a : f(this).is(":hidden"); f(this)[b ? "show" : "hide"]() }) : this.animate(ct("toggle", 3), a, b, c); return this }, fadeTo: function(a, b, c, d) { return this.filter(":hidden").css("opacity", 0).show().end().animate({ opacity: b }, a, c, d) }, animate: function(a, b, c, d) { function g() { e.queue === !1 && f._mark(this); var b = f.extend({}, e), c = this.nodeType === 1, d = c && f(this).is(":hidden"), g, h, i, j, k, l, m, n, o, p, q; b.animatedProperties = {}; for (i in a) { g = f.camelCase(i), i !== g && (a[g] = a[i], delete a[i]); if ((k = f.cssHooks[g]) && "expand" in k) { l = k.expand(a[g]), delete a[g]; for (i in l) i in a || (a[i] = l[i]) } } for (g in a) { h = a[g], f.isArray(h) ? (b.animatedProperties[g] = h[1], h = a[g] = h[0]) : b.animatedProperties[g] = b.specialEasing && b.specialEasing[g] || b.easing || "swing"; if (h === "hide" && d || h === "show" && !d) return b.complete.call(this); c && (g === "height" || g === "width") && (b.overflow = [this.style.overflow, this.style.overflowX, this.style.overflowY], f.css(this, "display") === "inline" && f.css(this, "float") === "none" && (!f.support.inlineBlockNeedsLayout || cu(this.nodeName) === "inline" ? this.style.display = "inline-block" : this.style.zoom = 1)) } b.overflow != null && (this.style.overflow = "hidden"); for (i in a) j = new f.fx(this, b, i), h = a[i], cm.test(h) ? (q = f._data(this, "toggle" + i) || (h === "toggle" ? d ? "show" : "hide" : 0), q ? (f._data(this, "toggle" + i, q === "show" ? "hide" : "show"), j[q]()) : j[h]()) : (m = cn.exec(h), n = j.cur(), m ? (o = parseFloat(m[2]), p = m[3] || (f.cssNumber[i] ? "" : "px"), p !== "px" && (f.style(this, i, (o || 1) + p), n = (o || 1) / j.cur() * n, f.style(this, i, n + p)), m[1] && (o = (m[1] === "-=" ? -1 : 1) * o + n), j.custom(n, o, p)) : j.custom(n, h, "")); return !0 } var e = f.speed(b, c, d); if (f.isEmptyObject(a)) return this.each(e.complete, [!1]); a = f.extend({}, a); return e.queue === !1 ? this.each(g) : this.queue(e.queue, g) }, stop: function(a, c, d) { typeof a != "string" && (d = c, c = a, a = b), c && a !== !1 && this.queue(a || "fx", []); return this.each(function() { function h(a, b, c) { var e = b[c]; f.removeData(a, c, !0), e.stop(d) } var b, c = !1, e = f.timers, g = f._data(this); d || f._unmark(!0, this); if (a == null) for (b in g) g[b] && g[b].stop && b.indexOf(".run") === b.length - 4 && h(this, g, b); else g[b = a + ".run"] && g[b].stop && h(this, g, b); for (b = e.length; b--; ) e[b].elem === this && (a == null || e[b].queue === a) && (d ? e[b](!0) : e[b].saveState(), c = !0, e.splice(b, 1)); (!d || !c) && f.dequeue(this, a) }) } }), f.each({ slideDown: ct("show", 1), slideUp: ct("hide", 1), slideToggle: ct("toggle", 1), fadeIn: { opacity: "show" }, fadeOut: { opacity: "hide" }, fadeToggle: { opacity: "toggle"} }, function(a, b) { f.fn[a] = function(a, c, d) { return this.animate(b, a, c, d) } }), f.extend({ speed: function(a, b, c) { var d = a && typeof a == "object" ? f.extend({}, a) : { complete: c || !c && b || f.isFunction(a) && a, duration: a, easing: c && b || b && !f.isFunction(b) && b }; d.duration = f.fx.off ? 0 : typeof d.duration == "number" ? d.duration : d.duration in f.fx.speeds ? f.fx.speeds[d.duration] : f.fx.speeds._default; if (d.queue == null || d.queue === !0) d.queue = "fx"; d.old = d.complete, d.complete = function(a) { f.isFunction(d.old) && d.old.call(this), d.queue ? f.dequeue(this, d.queue) : a !== !1 && f._unmark(this) }; return d }, easing: { linear: function(a) { return a }, swing: function(a) { return -Math.cos(a * Math.PI) / 2 + .5 } }, timers: [], fx: function(a, b, c) { this.options = b, this.elem = a, this.prop = c, b.orig = b.orig || {} } }), f.fx.prototype = { update: function() { this.options.step && this.options.step.call(this.elem, this.now, this), (f.fx.step[this.prop] || f.fx.step._default)(this) }, cur: function() { if (this.elem[this.prop] != null && (!this.elem.style || this.elem.style[this.prop] == null)) return this.elem[this.prop]; var a, b = f.css(this.elem, this.prop); return isNaN(a = parseFloat(b)) ? !b || b === "auto" ? 0 : b : a }, custom: function(a, c, d) { function h(a) { return e.step(a) } var e = this, g = f.fx; this.startTime = cq || cr(), this.end = c, this.now = this.start = a, this.pos = this.state = 0, this.unit = d || this.unit || (f.cssNumber[this.prop] ? "" : "px"), h.queue = this.options.queue, h.elem = this.elem, h.saveState = function() { f._data(e.elem, "fxshow" + e.prop) === b && (e.options.hide ? f._data(e.elem, "fxshow" + e.prop, e.start) : e.options.show && f._data(e.elem, "fxshow" + e.prop, e.end)) }, h() && f.timers.push(h) && !co && (co = setInterval(g.tick, g.interval)) }, show: function() { var a = f._data(this.elem, "fxshow" + this.prop); this.options.orig[this.prop] = a || f.style(this.elem, this.prop), this.options.show = !0, a !== b ? this.custom(this.cur(), a) : this.custom(this.prop === "width" || this.prop === "height" ? 1 : 0, this.cur()), f(this.elem).show() }, hide: function() { this.options.orig[this.prop] = f._data(this.elem, "fxshow" + this.prop) || f.style(this.elem, this.prop), this.options.hide = !0, this.custom(this.cur(), 0) }, step: function(a) { var b, c, d, e = cq || cr(), g = !0, h = this.elem, i = this.options; if (a || e >= i.duration + this.startTime) { this.now = this.end, this.pos = this.state = 1, this.update(), i.animatedProperties[this.prop] = !0; for (b in i.animatedProperties) i.animatedProperties[b] !== !0 && (g = !1); if (g) { i.overflow != null && !f.support.shrinkWrapBlocks && f.each(["", "X", "Y"], function(a, b) { h.style["overflow" + b] = i.overflow[a] }), i.hide && f(h).hide(); if (i.hide || i.show) for (b in i.animatedProperties) f.style(h, b, i.orig[b]), f.removeData(h, "fxshow" + b, !0), f.removeData(h, "toggle" + b, !0); d = i.complete, d && (i.complete = !1, d.call(h)) } return !1 } i.duration == Infinity ? this.now = e : (c = e - this.startTime, this.state = c / i.duration, this.pos = f.easing[i.animatedProperties[this.prop]](this.state, c, 0, 1, i.duration), this.now = this.start + (this.end - this.start) * this.pos), this.update(); return !0 } }, f.extend(f.fx, { tick: function() { var a, b = f.timers, c = 0; for (; c < b.length; c++) a = b[c], !a() && b[c] === a && b.splice(c--, 1); b.length || f.fx.stop() }, interval: 13, stop: function() { clearInterval(co), co = null }, speeds: { slow: 600, fast: 200, _default: 400 }, step: { opacity: function(a) { f.style(a.elem, "opacity", a.now) }, _default: function(a) { a.elem.style && a.elem.style[a.prop] != null ? a.elem.style[a.prop] = a.now + a.unit : a.elem[a.prop] = a.now } } }), f.each(cp.concat.apply([], cp), function(a, b) { b.indexOf("margin") && (f.fx.step[b] = function(a) { f.style(a.elem, b, Math.max(0, a.now) + a.unit) }) }), f.expr && f.expr.filters && (f.expr.filters.animated = function(a) { return f.grep(f.timers, function(b) { return a === b.elem }).length }); var cv, cw = /^t(?:able|d|h)$/i, cx = /^(?:body|html)$/i; "getBoundingClientRect" in c.documentElement ? cv = function(a, b, c, d) { try { d = a.getBoundingClientRect() } catch (e) { } if (!d || !f.contains(c, a)) return d ? { top: d.top, left: d.left} : { top: 0, left: 0 }; var g = b.body, h = cy(b), i = c.clientTop || g.clientTop || 0, j = c.clientLeft || g.clientLeft || 0, k = h.pageYOffset || f.support.boxModel && c.scrollTop || g.scrollTop, l = h.pageXOffset || f.support.boxModel && c.scrollLeft || g.scrollLeft, m = d.top + k - i, n = d.left + l - j; return { top: m, left: n} } : cv = function(a, b, c) { var d, e = a.offsetParent, g = a, h = b.body, i = b.defaultView, j = i ? i.getComputedStyle(a, null) : a.currentStyle, k = a.offsetTop, l = a.offsetLeft; while ((a = a.parentNode) && a !== h && a !== c) { if (f.support.fixedPosition && j.position === "fixed") break; d = i ? i.getComputedStyle(a, null) : a.currentStyle, k -= a.scrollTop, l -= a.scrollLeft, a === e && (k += a.offsetTop, l += a.offsetLeft, f.support.doesNotAddBorder && (!f.support.doesAddBorderForTableAndCells || !cw.test(a.nodeName)) && (k += parseFloat(d.borderTopWidth) || 0, l += parseFloat(d.borderLeftWidth) || 0), g = e, e = a.offsetParent), f.support.subtractsBorderForOverflowNotVisible && d.overflow !== "visible" && (k += parseFloat(d.borderTopWidth) || 0, l += parseFloat(d.borderLeftWidth) || 0), j = d } if (j.position === "relative" || j.position === "static") k += h.offsetTop, l += h.offsetLeft; f.support.fixedPosition && j.position === "fixed" && (k += Math.max(c.scrollTop, h.scrollTop), l += Math.max(c.scrollLeft, h.scrollLeft)); return { top: k, left: l} }, f.fn.offset = function(a) { if (arguments.length) return a === b ? this : this.each(function(b) { f.offset.setOffset(this, a, b) }); var c = this[0], d = c && c.ownerDocument; if (!d) return null; if (c === d.body) return f.offset.bodyOffset(c); return cv(c, d, d.documentElement) }, f.offset = { bodyOffset: function(a) { var b = a.offsetTop, c = a.offsetLeft; f.support.doesNotIncludeMarginInBodyOffset && (b += parseFloat(f.css(a, "marginTop")) || 0, c += parseFloat(f.css(a, "marginLeft")) || 0); return { top: b, left: c} }, setOffset: function(a, b, c) { var d = f.css(a, "position"); d === "static" && (a.style.position = "relative"); var e = f(a), g = e.offset(), h = f.css(a, "top"), i = f.css(a, "left"), j = (d === "absolute" || d === "fixed") && f.inArray("auto", [h, i]) > -1, k = {}, l = {}, m, n; j ? (l = e.position(), m = l.top, n = l.left) : (m = parseFloat(h) || 0, n = parseFloat(i) || 0), f.isFunction(b) && (b = b.call(a, c, g)), b.top != null && (k.top = b.top - g.top + m), b.left != null && (k.left = b.left - g.left + n), "using" in b ? b.using.call(a, k) : e.css(k) } }, f.fn.extend({ position: function() { if (!this[0]) return null; var a = this[0], b = this.offsetParent(), c = this.offset(), d = cx.test(b[0].nodeName) ? { top: 0, left: 0} : b.offset(); c.top -= parseFloat(f.css(a, "marginTop")) || 0, c.left -= parseFloat(f.css(a, "marginLeft")) || 0, d.top += parseFloat(f.css(b[0], "borderTopWidth")) || 0, d.left += parseFloat(f.css(b[0], "borderLeftWidth")) || 0; return { top: c.top - d.top, left: c.left - d.left} }, offsetParent: function() { return this.map(function() { var a = this.offsetParent || c.body; while (a && !cx.test(a.nodeName) && f.css(a, "position") === "static") a = a.offsetParent; return a }) } }), f.each({ scrollLeft: "pageXOffset", scrollTop: "pageYOffset" }, function(a, c) { var d = /Y/.test(c); f.fn[a] = function(e) { return f.access(this, function(a, e, g) { var h = cy(a); if (g === b) return h ? c in h ? h[c] : f.support.boxModel && h.document.documentElement[e] || h.document.body[e] : a[e]; h ? h.scrollTo(d ? f(h).scrollLeft() : g, d ? g : f(h).scrollTop()) : a[e] = g }, a, e, arguments.length, null) } }), f.each({ Height: "height", Width: "width" }, function(a, c) { var d = "client" + a, e = "scroll" + a, g = "offset" + a; f.fn["inner" + a] = function() { var a = this[0]; return a ? a.style ? parseFloat(f.css(a, c, "padding")) : this[c]() : null }, f.fn["outer" + a] = function(a) { var b = this[0]; return b ? b.style ? parseFloat(f.css(b, c, a ? "margin" : "border")) : this[c]() : null }, f.fn[c] = function(a) { return f.access(this, function(a, c, h) { var i, j, k, l; if (f.isWindow(a)) { i = a.document, j = i.documentElement[d]; return f.support.boxModel && j || i.body && i.body[d] || j } if (a.nodeType === 9) { i = a.documentElement; if (i[d] >= i[e]) return i[d]; return Math.max(a.body[e], i[e], a.body[g], i[g]) } if (h === b) { k = f.css(a, c), l = parseFloat(k); return f.isNumeric(l) ? l : k } f(a).css(c, h) }, c, a, arguments.length, null) } }), a.jQuery = a.$ = f, typeof define == "function" && define.amd && define.amd.jQuery && define("jquery", [], function() { return f }) +})(window); \ No newline at end of file diff --git a/SISBusiness.Web.Company/UnusableNodes.xml b/SISBusiness.Web.Company/UnusableNodes.xml new file mode 100644 index 0000000..67b941c --- /dev/null +++ b/SISBusiness.Web.Company/UnusableNodes.xml @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/UnusableNodes_hu.xml b/SISBusiness.Web.Company/UnusableNodes_hu.xml new file mode 100644 index 0000000..c81c8df --- /dev/null +++ b/SISBusiness.Web.Company/UnusableNodes_hu.xml @@ -0,0 +1,16 @@ + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Company/Web.Config b/SISBusiness.Web.Company/Web.Config new file mode 100644 index 0000000..6993e71 --- /dev/null +++ b/SISBusiness.Web.Company/Web.Config @@ -0,0 +1,233 @@ + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.resx b/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.vb b/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.vb new file mode 100644 index 0000000..248b691 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/ApplicationCode/WebApplication.vb @@ -0,0 +1,219 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Xpo +Imports DevExpress.Persistent.BaseImpl + +Partial Public Class SISBusinessContractorAspNetApplication + Inherits WebApplication + + Private _ocur As Xpo.XPObjectSpace + + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule + + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + + Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule + Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents SisBusinessModule1 As SISBusiness.Module.SISBusinessModule + + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents SisBusinessAspNetModule1 As SISBusiness.Module.Web.SISBusinessAspNetModule + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessContractorAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule() + Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.SisBusinessModule1 = New SISBusiness.[Module].SISBusinessModule() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.SisBusinessAspNetModule1 = New SISBusiness.[Module].Web.SISBusinessAspNetModule() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISSupport;Integrated Security=SSPI;Pooling=f" & _ + "alse" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'AuditTrailModule1 + ' + Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'ViewVariantsModule1 + ' + Me.ViewVariantsModule1.GenerateVariantsNode = True + Me.ViewVariantsModule1.ShowAdditionalNavigation = False + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'AuthenticationStandard1 + ' + Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(ReportData) + ' + 'SISBusinessContractorAspNetApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.AuditTrailModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1) + Me.Modules.Add(Me.FileAttachmentsAspNetModule1) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartAspNetModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartAspNetModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridAspNetModule1) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsAspNetModule1) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsAspNetModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerAspNetModule1) + Me.Modules.Add(Me.SisBusinessModule1) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.SisBusinessAspNetModule1) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Protected Overrides Sub OnLoggedOn(ByVal e As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(e) + CType(MyBase.ShowViewStrategy, ShowViewStrategy).CollectionsEditMode = _ + DevExpress.ExpressApp.Editors.ViewEditMode.Edit + + 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 + Dim _Subcontractor As Subcontractor = _ocur.FindObject(Of Subcontractor)(CriteriaOperator.Parse("Customers.Oid=?", _Contacts.Customers.Oid)) + If _Subcontractor Is Nothing Then + MsgBox("n nem jogosult a rendszer hasznlatra !") + ForceLogout() + End If + Else + MsgBox("n nem jogosult a rendszer hasznlatra !") + ForceLogout() + End If + Else + MsgBox("n nem jogosult a rendszer hasznlatra !") + ForceLogout() + End If + + End Sub + Protected Overrides Sub OnObjectSpaceCreated(objectSpace As DevExpress.ExpressApp.IObjectSpace) + MyBase.OnObjectSpaceCreated(objectSpace) + _ocur = objectSpace + End Sub + + Private Sub ForceLogout() + SecuritySystem.Instance.Logoff() + HttpContext.Current.Session.Abandon() + FormsAuthentication.SignOut() + HttpContext.Current.Response.Redirect(HttpContext.Current.Request.Url.ToString()) + End Sub +End Class + diff --git a/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx new file mode 100644 index 0000000..bc16bb9 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx @@ -0,0 +1,18 @@ +<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %> + +<%@ Register assembly="DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %> + + + + + + + + +
+ + + + + + diff --git a/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.designer.vb b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.designer.vb new file mode 100644 index 0000000..7f759c6 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.designer.vb @@ -0,0 +1,33 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class DashboardViewer + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ASPxDashboardViewer1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ASPxDashboardViewer1 As Global.DevExpress.DashboardWeb.ASPxDashboardViewer +End Class diff --git a/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.vb b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.vb new file mode 100644 index 0000000..51796f3 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Controls/DashboardViewer.aspx.vb @@ -0,0 +1,39 @@ +Imports SISBusiness.Module.GeneralFunction +Imports DevExpress.DashboardCommon +Imports DevExpress.DataAccess +Imports DevExpress.DataAccess.ConnectionParameters +Imports DevExpress.DataAccess.Sql + +Public Class DashboardViewer + Inherits System.Web.UI.Page + + Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.ASPxDashboardViewer1.DashboardXmlFile = GLOBAL_DASHBOARD_XML_DashboardXmlFile + End Sub + + Private Sub ASPxDashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles ASPxDashboardViewer1.ConfigureDataConnection + Select Case GLOBAL_DASHBOARD_XML_SQLType + Case "MSSQL" + Dim _ConnectionParameters_MSSQL As New MsSqlConnectionParameters + _ConnectionParameters_MSSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MSSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MSSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MSSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MSSQL + Case "MYSQL" + Dim _ConnectionParameters_MYSQL As New MySqlConnectionParameters + _ConnectionParameters_MYSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MYSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MYSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MYSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MYSQL + Case "PSQL" + Dim _ConnectionParameters_PSQL As New PostgreSqlConnectionParameters + _ConnectionParameters_PSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_PSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_PSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_PSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_PSQL + End Select + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/Controls/MC_DASH_Test.xml b/SISBusiness.Web.Subcontractor/Controls/MC_DASH_Test.xml new file mode 100644 index 0000000..867e4d6 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Controls/MC_DASH_Test.xml @@ -0,0 +1,57 @@ + + + + + + + + + + + + + + + + + +
+ + + + +
+ + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/Default.aspx b/SISBusiness.Web.Subcontractor/Default.aspx new file mode 100644 index 0000000..e726515 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Default.aspx @@ -0,0 +1,22 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="Default.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> + + + + Main Page + + + +
+ + + + +
+ + + diff --git a/SISBusiness.Web.Subcontractor/Default.aspx.designer.vb b/SISBusiness.Web.Subcontractor/Default.aspx.designer.vb new file mode 100644 index 0000000..0e64e14 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Default.aspx.designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''UPPopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents UPPopupWindowControl As Global.DevExpress.ExpressApp.Web.Templates.XafUpdatePanel + + ''' + '''PopupWindowControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupWindowControl As Global.DevExpress.ExpressApp.Web.Controls.XafPopupWindowControl + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Subcontractor/Default.aspx.vb b/SISBusiness.Web.Subcontractor/Default.aspx.vb new file mode 100644 index 0000000..4a33862 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Default.aspx.vb @@ -0,0 +1,37 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers + +Partial Public Class [Default] + Inherits BaseXafPage + + Shared Sub New() + + End Sub + + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + + Protected Sub Page_Init() + AddHandler CustomizeTemplateContent, _ + Sub(sender As Object, e As CustomizeTemplateContentEventArgs) + Dim _content As DefaultVerticalTemplateContent = TryCast(e.TemplateContent, DefaultVerticalTemplateContent) + If _content IsNot Nothing Then + _content.HeaderImageControl.DefaultThemeImageLocation = "Images" + _content.HeaderImageControl.ImageName = "Logo.png" + End If + End Sub + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Subcontractor/Error.aspx b/SISBusiness.Web.Subcontractor/Error.aspx new file mode 100644 index 0000000..32eee14 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Error.aspx @@ -0,0 +1,80 @@ +<%@ Page language="vb" AutoEventWireup="false" Inherits="ErrorPage" enableViewState="false" validateRequest="false" CodeBehind="Error.aspx.vb" %> + + + + Error + + + +
+
+
+
+ + + + + +
+

+ 		+ +
+
+ +
+ + + +

+

+ +

+ Your report was sent. Thank you.
 + We are currently unable to serve your request: RequestUrl.
+ We apologize, but an error occurred and your request could not be completed.
 + You could go back and try again + + previous page + , or retry your request: RequestUrl.

+ + Show Error details + + + + Report error
 +

This error has been logged. If you have additional information that you believe may have caused this error please report the problem.

+ +
+
+
+ + + + + +
+
+
+
+ +
+ + diff --git a/SISBusiness.Web.Subcontractor/Error.aspx.designer.vb b/SISBusiness.Web.Subcontractor/Error.aspx.designer.vb new file mode 100644 index 0000000..41e9cb3 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Error.aspx.designer.vb @@ -0,0 +1,206 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5446 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class ErrorPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ApplicationTitle control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApplicationTitle As Global.System.Web.UI.WebControls.Literal + + ''' + '''InfoMessagesPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents InfoMessagesPanel As Global.System.Web.UI.WebControls.Literal + + ''' + '''Table1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Table1 As Global.System.Web.UI.WebControls.Table + + ''' + '''TableRow2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents TableRow2 As Global.System.Web.UI.WebControls.TableRow + + ''' + '''ViewSite control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ViewSite As Global.System.Web.UI.WebControls.TableCell + + ''' + '''ErrorTitleLiteral control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorTitleLiteral As Global.System.Web.UI.WebControls.Literal + + ''' + '''ErrorPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ErrorPanel As Global.System.Web.UI.WebControls.Panel + + ''' + '''ReportResult control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportResult As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''ApologizeMessage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ApologizeMessage As Global.System.Web.UI.WebControls.PlaceHolder + + ''' + '''RequestUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''HyperLink1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLink1 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''LiteralReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents LiteralReturn As Global.System.Web.UI.WebControls.Literal + + ''' + '''HyperLinkReturn control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HyperLinkReturn As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''RequestUrl2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents RequestUrl2 As Global.System.Web.UI.WebControls.HyperLink + + ''' + '''Details control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Details As Global.System.Web.UI.WebControls.Panel + + ''' + '''DetailsText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DetailsText As Global.System.Web.UI.WebControls.Literal + + ''' + '''ReportForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportForm As Global.System.Web.UI.WebControls.Panel + + ''' + '''DescriptionTextBox control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents DescriptionTextBox As Global.System.Web.UI.WebControls.TextBox + + ''' + '''ReportButton control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ReportButton As Global.System.Web.UI.WebControls.Button +End Class diff --git a/SISBusiness.Web.Subcontractor/Error.aspx.vb b/SISBusiness.Web.Subcontractor/Error.aspx.vb new file mode 100644 index 0000000..599a14c --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Error.aspx.vb @@ -0,0 +1,97 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.IO +Imports System.Collections +Imports System.ComponentModel +Imports System.Data +Imports System.Globalization +Imports System.Threading +Imports System.Drawing +Imports System.Web +Imports System.Web.SessionState +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.HtmlControls + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.TestScripts +Imports DevExpress.ExpressApp.Utils +Imports DevExpress.ExpressApp.SystemModule +Imports DevExpress.ExpressApp.Web.SystemModule + +Partial Public Class ErrorPage + Inherits System.Web.UI.Page + Private Function GetApplicationInfoString() As String + AboutInfo.Instance.Init(WebApplication.Instance) + Return AboutInfo.Instance.AboutInfoString + End Function + Protected Overrides Sub InitializeCulture() + If WebApplication.Instance IsNot Nothing Then + WebApplication.Instance.InitializeCulture() + End If + End Sub + Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load + Dim testScriptsManager As New TestScriptsManager(Page) + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "FormCaption", TestControlType.Field, "FormCaption") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "RequestUrl", TestControlType.Field, "RequestUrl") + testScriptsManager.RegisterControl(JSLabelTestControl.ClassName, "DescriptionTextBox", TestControlType.Field, "Description") + testScriptsManager.RegisterControl(JSDefaultTestControl.ClassName, "ReportButton", TestControlType.Action, "Report") + testScriptsManager.AllControlRegistered("") + If WebApplication.Instance IsNot Nothing Then + ApplicationTitle.Text = WebApplication.Instance.Title + Else + ApplicationTitle.Text = "No application" + End If + Header.Title = "Application Error - " & ApplicationTitle.Text + + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + RequestUrl.NavigateUrl = errorInfo.Url + RequestUrl.Text = errorInfo.Url + RequestUrl2.NavigateUrl = errorInfo.Url + RequestUrl2.Text = errorInfo.Url + If (Not String.IsNullOrEmpty(errorInfo.UrlReferrer)) Then + HyperLinkReturn.NavigateUrl = errorInfo.UrlReferrer + Else + LiteralReturn.Visible = False + HyperLinkReturn.Visible = False + End If + If ErrorHandling.CanShowDetailedInformation Then + DetailsText.Text = errorInfo.GetTextualPresentation(True) + Else + Details.Visible = False + End If + ReportResult.Visible = False + ReportForm.Visible = ErrorHandling.CanSendAlertToAdmin + Else + ErrorPanel.Visible = False + End If + End Sub +#Region "Web Form Designer generated code" + Protected Overrides Sub OnInit(ByVal e As EventArgs) + InitializeComponent() + MyBase.OnInit(e) + End Sub + + Private Sub InitializeComponent() +' Me.Load += New System.EventHandler(Me.Page_Load); +' Me.PreRender += New EventHandler(ErrorPage_PreRender); + End Sub + + Private Sub ErrorPage_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.PreRender + RegisterThemeAssemblyController.RegisterThemeResources(CType(sender, Page)) + End Sub + +#End Region + Protected Sub ReportButton_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim errorInfo As ErrorInfo = ErrorHandling.GetApplicationError() + If errorInfo IsNot Nothing Then + ErrorHandling.SendAlertToAdmin(errorInfo.Id, DescriptionTextBox.Text, errorInfo.Exception.Message) + ErrorHandling.ClearApplicationError() + ApologizeMessage.Visible = False + ReportForm.Visible = False + Details.Visible = False + ReportResult.Visible = True + End If + End Sub +End Class diff --git a/SISBusiness.Web.Subcontractor/GetAttachments.ashx b/SISBusiness.Web.Subcontractor/GetAttachments.ashx new file mode 100644 index 0000000..7b4b712 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/GetAttachments.ashx @@ -0,0 +1 @@ +<%@ WebHandler Language="VB" CodeBehind="GetAttachments.ashx.vb" Class=".GetAttachments" %> diff --git a/SISBusiness.Web.Subcontractor/GetAttachments.ashx.vb b/SISBusiness.Web.Subcontractor/GetAttachments.ashx.vb new file mode 100644 index 0000000..5cdaf12 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/GetAttachments.ashx.vb @@ -0,0 +1,42 @@ +Imports System.Web +Imports System.Web.Services +Imports SISBusiness.Module +Imports DevExpress.ExpressApp.FileAttachments +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.Data.Filtering +Imports System.IO +Imports DevExpress.Web.Internal + +Public Class GetAttachments + Implements System.Web.IHttpHandler + Private _Session As DevExpress.Xpo.Session + Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest + Dim _Oid As String + Dim _ConnectionString As String + Dim _Attachment As FileData + + _Oid = context.Request.QueryString("id") + _ConnectionString = ConfigurationManager.ConnectionStrings("ConnectionString").ToString + + _Session = New DevExpress.Xpo.Session + _Session.ConnectionString = _ConnectionString + _Session.Connect() + + If _Session.IsConnected Then + _Attachment = _Session.FindObject(Of FileData)(CriteriaOperator.Parse("Oid=?", _Oid)) + + If _Attachment IsNot Nothing Then + Dim _Stream As New MemoryStream + _Attachment.SaveToStream(_Stream) + HttpUtils.WriteFileToResponse(Nothing, _Stream, _Attachment.FileName, True, "") + End If + End If + End Sub + + ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable + Get + Return False + End Get + End Property + +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/Global.asax b/SISBusiness.Web.Subcontractor/Global.asax new file mode 100644 index 0000000..aa2e26f --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Global.asax @@ -0,0 +1 @@ +<%@ Application Language="vb" CodeBehind="Global.asax.vb" Inherits="Global"%> diff --git a/SISBusiness.Web.Subcontractor/Global.asax.vb b/SISBusiness.Web.Subcontractor/Global.asax.vb new file mode 100644 index 0000000..e01ea9a --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Global.asax.vb @@ -0,0 +1,69 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Configuration +Imports System.Web.Configuration +Imports System.Web + +Imports DevExpress.ExpressApp +Imports DevExpress.Persistent.Base +Imports DevExpress.Persistent.BaseImpl +Imports DevExpress.ExpressApp.Security +Imports DevExpress.ExpressApp.Web +Imports DevExpress.Web + +Public Class [Global] + Inherits System.Web.HttpApplication + Public Sub New() + InitializeComponent() + End Sub + Protected Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs) + AddHandler ASPxWebControl.CallbackError, AddressOf Application_Error +#If EASYTEST Then + DevExpress.ExpressApp.Web.TestScripts.TestScriptsManager.EasyTestEnabled = True +#End If + + End Sub + Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.SetInstance(Session, New SISBusinessContractorAspNetApplication()) +#If EASYTEST Then + If (Not ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("EasyTestConnectionString").ConnectionString + End If +#End If + If (Not ConfigurationManager.ConnectionStrings.Item("ConnectionString") Is Nothing) Then + WebApplication.Instance.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString + End If + 'If System.Diagnostics.Debugger.IsAttached Then + ' WebApplication.Instance.DatabaseUpdateMode = DatabaseUpdateMode.UpdateDatabaseAlways + 'End If + WebApplication.Instance.Setup() + WebApplication.Instance.Start() + End Sub + Protected Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) + Dim filePath As String = HttpContext.Current.Request.PhysicalPath + If (Not String.IsNullOrEmpty(filePath)) AndAlso (filePath.IndexOf("Images") >= 0) AndAlso (Not System.IO.File.Exists(filePath)) Then + HttpContext.Current.Response.End() + End If + End Sub + Protected Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs) + End Sub + Protected Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) + ErrorHandling.Instance.ProcessApplicationError() + End Sub + Protected Sub Session_End(ByVal sender As Object, ByVal e As EventArgs) + WebApplication.LogOff(Session) + WebApplication.DisposeInstance(Session) + End Sub + Protected Sub Application_End(ByVal sender As Object, ByVal e As EventArgs) + End Sub +#Region "Web Form Designer generated code" + ''' + ''' Required method for Designer support - do not modify + ''' the contents of this method with the code editor. + ''' + Private Sub InitializeComponent() + End Sub +#End Region +End Class diff --git a/SISBusiness.Web.Subcontractor/Images/BO_Task.png b/SISBusiness.Web.Subcontractor/Images/BO_Task.png new file mode 100644 index 0000000..32c3b92 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/BO_Task.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/BO_Task_32x32.png b/SISBusiness.Web.Subcontractor/Images/BO_Task_32x32.png new file mode 100644 index 0000000..8bb2b35 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/BO_Task_32x32.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/ButtonBkg.gif b/SISBusiness.Web.Subcontractor/Images/ButtonBkg.gif new file mode 100644 index 0000000..cf70093 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/ButtonBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/ExpressAppLogo.png b/SISBusiness.Web.Subcontractor/Images/ExpressAppLogo.png new file mode 100644 index 0000000..3a6eaad Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/ExpressAppLogo.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/FooterBkg.gif b/SISBusiness.Web.Subcontractor/Images/FooterBkg.gif new file mode 100644 index 0000000..e6c0924 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/FooterBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/GridHeaderBkg.gif b/SISBusiness.Web.Subcontractor/Images/GridHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/GridHeaderBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/HeaderBkg.gif b/SISBusiness.Web.Subcontractor/Images/HeaderBkg.gif new file mode 100644 index 0000000..3e2bca4 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/HeaderBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/LayoutHeaderBkg.gif b/SISBusiness.Web.Subcontractor/Images/LayoutHeaderBkg.gif new file mode 100644 index 0000000..ce32290 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/LayoutHeaderBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/Logo.png b/SISBusiness.Web.Subcontractor/Images/Logo.png new file mode 100644 index 0000000..ecbd41c Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/Logo.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/Progress.gif b/SISBusiness.Web.Subcontractor/Images/Progress.gif new file mode 100644 index 0000000..9925182 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/Progress.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedCenter.gif b/SISBusiness.Web.Subcontractor/Images/SelectedCenter.gif new file mode 100644 index 0000000..74edae8 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedCenter.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedCenterWhite.gif b/SISBusiness.Web.Subcontractor/Images/SelectedCenterWhite.gif new file mode 100644 index 0000000..087423a Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedCenterWhite.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedLeft.gif b/SISBusiness.Web.Subcontractor/Images/SelectedLeft.gif new file mode 100644 index 0000000..bca0446 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedLeft.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedLeftWhite.gif b/SISBusiness.Web.Subcontractor/Images/SelectedLeftWhite.gif new file mode 100644 index 0000000..3dcd672 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedLeftWhite.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedRight.gif b/SISBusiness.Web.Subcontractor/Images/SelectedRight.gif new file mode 100644 index 0000000..ff75c77 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedRight.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SelectedRightWhite.gif b/SISBusiness.Web.Subcontractor/Images/SelectedRightWhite.gif new file mode 100644 index 0000000..21aa896 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SelectedRightWhite.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SideBarRDCorner.gif b/SISBusiness.Web.Subcontractor/Images/SideBarRDCorner.gif new file mode 100644 index 0000000..88489cb Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SideBarRDCorner.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/SideBarRUCorner.gif b/SISBusiness.Web.Subcontractor/Images/SideBarRUCorner.gif new file mode 100644 index 0000000..fb57ca4 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/SideBarRUCorner.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/TabContentBkg.gif b/SISBusiness.Web.Subcontractor/Images/TabContentBkg.gif new file mode 100644 index 0000000..fe8858f Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/TabContentBkg.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/UnSelectedCenter.gif b/SISBusiness.Web.Subcontractor/Images/UnSelectedCenter.gif new file mode 100644 index 0000000..87f9e01 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/UnSelectedCenter.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/UnSelectedLeft.gif b/SISBusiness.Web.Subcontractor/Images/UnSelectedLeft.gif new file mode 100644 index 0000000..ef32fd0 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/UnSelectedLeft.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/UnSelectedRight.gif b/SISBusiness.Web.Subcontractor/Images/UnSelectedRight.gif new file mode 100644 index 0000000..cc2f697 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/UnSelectedRight.gif differ diff --git a/SISBusiness.Web.Subcontractor/Images/iGreenArrow.png b/SISBusiness.Web.Subcontractor/Images/iGreenArrow.png new file mode 100644 index 0000000..9ba7ea0 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/iGreenArrow.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/iOK.png b/SISBusiness.Web.Subcontractor/Images/iOK.png new file mode 100644 index 0000000..ccfe627 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/iOK.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/iQuestion.png b/SISBusiness.Web.Subcontractor/Images/iQuestion.png new file mode 100644 index 0000000..e1fa895 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/iQuestion.png differ diff --git a/SISBusiness.Web.Subcontractor/Images/iRedArrow.png b/SISBusiness.Web.Subcontractor/Images/iRedArrow.png new file mode 100644 index 0000000..57cf3a6 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/Images/iRedArrow.png differ diff --git a/SISBusiness.Web.Subcontractor/Login.aspx b/SISBusiness.Web.Subcontractor/Login.aspx new file mode 100644 index 0000000..eee2f06 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Login.aspx @@ -0,0 +1,35 @@ +<%@ Page Language="C#" AutoEventWireup="true" Inherits="LoginPage" CodeBehind="Login.aspx.cs" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.ActionContainers" + TagPrefix="cc2" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates.Controls" + TagPrefix="tc" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Controls" + TagPrefix="cc4" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2" Namespace="DevExpress.ExpressApp.Web.Templates" + TagPrefix="cc3" %> + + + + Logon + + +
+
+ +
+ +
+
+ +
+ + diff --git a/SISBusiness.Web.Subcontractor/Login.aspx.designer.vb b/SISBusiness.Web.Subcontractor/Login.aspx.designer.vb new file mode 100644 index 0000000..a1c45b4 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Login.aspx.designer.vb @@ -0,0 +1,53 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.5448 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + +Partial Public Class LoginPage + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Subcontractor/Login.aspx.vb b/SISBusiness.Web.Subcontractor/Login.aspx.vb new file mode 100644 index 0000000..acd7c80 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Login.aspx.vb @@ -0,0 +1,17 @@ +Imports Microsoft.VisualBasic +Imports System + +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates + +Partial Public Class LoginPage + Inherits BaseXafPage + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + End Sub + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As System.Web.UI.Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Subcontractor/Model.xafml b/SISBusiness.Web.Subcontractor/Model.xafml new file mode 100644 index 0000000..fccfd7f --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Model.xafml @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/Model_hu.xafml b/SISBusiness.Web.Subcontractor/Model_hu.xafml new file mode 100644 index 0000000..2f511ab --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Model_hu.xafml @@ -0,0 +1,98 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/My Project/Application.Designer.vb b/SISBusiness.Web.Subcontractor/My Project/Application.Designer.vb new file mode 100644 index 0000000..71cab15 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/SISBusiness.Web.Subcontractor/My Project/Application.myapp b/SISBusiness.Web.Subcontractor/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/SISBusiness.Web.Subcontractor/My Project/AssemblyInfo.vb b/SISBusiness.Web.Subcontractor/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..c9ee618 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/AssemblyInfo.vb @@ -0,0 +1,34 @@ +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 + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' 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: +' + + + diff --git a/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/78.131.7.14.pubxml b/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/78.131.7.14.pubxml new file mode 100644 index 0000000..11d11a4 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/78.131.7.14.pubxml @@ -0,0 +1,40 @@ + + + + + MSDeploy + R64 + Any CPU + + False + http://78.131.7.14 + Default Web Site/subcontractor + + True + RemoteAgent + False + Administrator + <_SavePWD>True + + + + + + + + + + + + + + + True + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/sis-r.hu.pubxml b/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/sis-r.hu.pubxml new file mode 100644 index 0000000..d69722e --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/PublishProfiles/sis-r.hu.pubxml @@ -0,0 +1,40 @@ + + + + + MSDeploy + + http://192.168.1.102 + Default Web Site/MC/subcontractor + + True + RemoteAgent + SISDOMAIN\ivan.szabo + <_SavePWD>True + Release 64bit + Any CPU + True + False + False + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/My Project/Resources.Designer.vb b/SISBusiness.Web.Subcontractor/My Project/Resources.Designer.vb new file mode 100644 index 0000000..28c3d4c --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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("Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Subcontractor/My Project/Resources.resx b/SISBusiness.Web.Subcontractor/My Project/Resources.resx new file mode 100644 index 0000000..e8c096b --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Resources.resx @@ -0,0 +1,116 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + diff --git a/SISBusiness.Web.Subcontractor/My Project/Settings.Designer.vb b/SISBusiness.Web.Subcontractor/My Project/Settings.Designer.vb new file mode 100644 index 0000000..45fbf20 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.17929 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.My.MySettings + Get + Return Global.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SISBusiness.Web.Subcontractor/My Project/Settings.settings b/SISBusiness.Web.Subcontractor/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SISBusiness.Web.Subcontractor/My Project/licenses.licx b/SISBusiness.Web.Subcontractor/My Project/licenses.licx new file mode 100644 index 0000000..50127a0 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/My Project/licenses.licx @@ -0,0 +1,7 @@ +DevExpress.DashboardWeb.ASPxDashboardViewer, DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + + + diff --git a/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.Publish.xml b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.Publish.xml new file mode 100644 index 0000000..d145082 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.Publish.xml @@ -0,0 +1,5 @@ + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj new file mode 100644 index 0000000..46dacfd --- /dev/null +++ b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj @@ -0,0 +1,518 @@ + + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {D8896885-D837-4E03-885F-0B8636218B58} + {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Library + + + SISBusiness.Web.Subcontractor + v4.0 + + + 4.0 + SAK + SAK + SAK + SAK + + + + false + + + + + + + true + full + true + true + bin\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + x86 + + + None + false + true + true + bin\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + AllRules.ruleset + AnyCPU + + + true + true + true + bin\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + full + AnyCPU + EASYTEST + AllRules.ruleset + + + On + + + Binary + + + Off + + + On + + + + + + True + + + + False + True + + + False + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + False + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + True + + + False + True + + + False + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + True + + + True + + + False + True + + + False + True + + + False + True + + + False + True + + + True + + + True + + + True + + + + True + + + + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + False + + + False + + + False + + + + False + + + False + + + False + + + + + + + False + + + False + + + False + + + + + + + + + + + + + + + + + + + + + + + + + + + + Component + + + DashboardViewer.aspx + + + DashboardViewer.aspx + ASPXCodeBehind + + + Default.aspx + + + Default.aspx + ASPXCodeBehind + + + Error.aspx + + + Error.aspx + ASPXCodeBehind + + + GetAttachments.ashx + + + Global.asax + + + Login.aspx + + + Login.aspx + ASPXCodeBehind + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + WebApplication.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + + + + + Always + + + + + Always + + + Always + + + Always + + + Always + + + Model.xafml + Always + Designer + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + Designer + + + + + {b87eaccf-fa6c-4043-aa73-800c77d8df11} + SISBusiness.Module.Web + + + {60BF693F-7DEA-4CF6-85BD-EA96829D79DD} + SISBusiness.Module + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + true + bin\ + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + None + AnyCPU + AllRules.ruleset + + + + + + + + + + False + True + 65378 + / + + + False + False + + + False + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj.vspscc b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj.vspscc new file mode 100644 index 0000000..b6d3289 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/SISBusiness.Web.Subcontractor.vbproj.vspscc @@ -0,0 +1,10 @@ +"" +{ +"FILE_VERSION" = "9237" +"ENLISTMENT_CHOICE" = "NEVER" +"PROJECT_FILE_RELATIVE_PATH" = "" +"NUMBER_OF_EXCLUDED_FILES" = "0" +"ORIGINAL_PROJECT_FILE_PATH" = "" +"NUMBER_OF_NESTED_PROJECTS" = "0" +"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER" +} diff --git a/SISBusiness.Web.Subcontractor/Web.Config b/SISBusiness.Web.Subcontractor/Web.Config new file mode 100644 index 0000000..5db2d78 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/Web.Config @@ -0,0 +1,227 @@ + + + + +
+
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Subcontractor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Web.Subcontractor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..ce4f3b7 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache b/SISBusiness.Web.Subcontractor/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..a3a0e9f Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/Resources.resources b/SISBusiness.Web.Subcontractor/obj/R64/Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/Resources.resources differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.dll b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.dll new file mode 100644 index 0000000..484162c Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.dll differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.FileListAbsolute.txt b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..035bc18 --- /dev/null +++ b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.FileListAbsolute.txt @@ -0,0 +1,437 @@ +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Images\iGreenArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Images\iOK.png +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Images\iQuestion.png +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Images\iRedArrow.png +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\BusinessObjects\SIS\App_Data\InitialData.accdb +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Model.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Model_hu.xafml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\SISBusiness.Web.Subcontractor.dll.config +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\SISBusiness.Web.Subcontractor.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Charts.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Data.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.DataAccess.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.DataAccess.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.AuditTrail.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Chart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Chart.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.CloneObject.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ConditionalAppearance.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Demos.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.FileAttachment.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.HtmlPropertyEditor.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Images.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Kpi.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Objects.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotChart.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotChart.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotGrid.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Reports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Reports.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Scheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Scheduler.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Security.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.TreeListEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.TreeListEditors.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Validation.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ViewVariantsModule.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Map.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Office.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Persistent.Base.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Persistent.BaseImpl.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.PivotGrid.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Printing.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.RichEdit.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Sparkline.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Utils.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxHtmlEditor.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxScheduler.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxSpellChecker.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxThemes.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Xpo.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraEditors.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Presets.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraMap.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraPivotGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraPrinting.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraScheduler.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\SISBusiness.Module.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\SISBusiness.Module.Web.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.Spread.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Newtonsoft.Json.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Notifications.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.CodeParser.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ReportsV2.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.SpellChecker.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Pdf.v15.2.Core.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Pdf.v15.2.Drawing.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraLayout.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraBars.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraTreeList.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Utils.v15.2.UI.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraRichEdit.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraNavBar.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraVerticalGrid.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.Wizard.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.CalcEngine.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Excel.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.Chart.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.PluginCalendar.WinForms.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.PDF.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraRichEdit.v15.2.Extensions.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Win.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Microsoft.mshtml.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.BonusSkins.v15.2.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.DataAccess.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Map.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Printing.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Data.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.AuditTrail.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Chart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Chart.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.CloneObject.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ConditionalAppearance.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.FileAttachment.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.HtmlPropertyEditor.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Kpi.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotChart.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotChart.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.PivotGrid.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Reports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Reports.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Scheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Scheduler.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Security.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.TreeListEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.TreeListEditors.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Validation.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ViewVariantsModule.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Persistent.Base.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Persistent.BaseImpl.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.PivotGrid.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Utils.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxHtmlEditor.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxScheduler.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxSpellChecker.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.ASPxTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Office.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.RichEdit.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Web.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Xpo.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraEditors.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Presets.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGauges.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraMap.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraPivotGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraPrinting.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Sparkline.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.DataAccess.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraReports.v15.2.Web.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraScheduler.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.Spread.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Dashboard.v15.2.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\Newtonsoft.Json.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Notifications.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.ReportsV2.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.SpellChecker.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Pdf.v15.2.Core.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Pdf.v15.2.Drawing.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraLayout.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraBars.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraTreeList.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.Utils.v15.2.UI.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraRichEdit.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraNavBar.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraVerticalGrid.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraCharts.v15.2.Wizard.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.CalcEngine.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Excel.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.Win.Chart.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.PluginCalendar.WinForms.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\FarPoint.PDF.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.XtraRichEdit.v15.2.Extensions.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\DevExpress.ExpressApp.Win.v15.2.xml +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\hu\SISBusiness.Module.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\hu\SISBusiness.Module.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.DataAccess.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Dashboard.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Map.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Printing.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Data.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.AuditTrail.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Chart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.CloneObject.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.FileAttachment.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Kpi.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Objects.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.PivotChart.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.PivotChart.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.PivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Reports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Reports.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Scheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Scheduler.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Security.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Validation.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.ViewVariantsModule.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.PivotGrid.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Utils.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Web.ASPxHtmlEditor.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Web.ASPxScheduler.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Web.ASPxSpellChecker.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Web.ASPxTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Office.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.RichEdit.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Web.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Xpo.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraCharts.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Dashboard.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraEditors.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraGauges.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraGauges.v15.2.Presets.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraPivotGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraPrinting.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Sparkline.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraReports.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.DataAccess.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraReports.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraReports.v15.2.Web.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraScheduler.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Dashboard.v15.2.Win.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.HtmlPropertyEditor.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.ReportsV2.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Pdf.v15.2.Core.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraLayout.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraBars.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraTreeList.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.Utils.v15.2.UI.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraRichEdit.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraNavBar.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraVerticalGrid.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraCharts.v15.2.Wizard.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.XtraRichEdit.v15.2.Extensions.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\de\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\es\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ja\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\bin\ru\DevExpress.ExpressApp.Win.v15.2.resources.dll +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\SISBusiness.Web.Subcontractor.vbprojResolveAssemblyReference.cache +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\SISBusinessContractorAspNetApplication.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\Resources.resources +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\SISBusiness.Web.Subcontractor.vbproj.GenerateResource.Cache +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\SISBusiness.Web.Subcontractor.dll.licenses +C:\SISBusiness\v_15_2_5\SISBusiness.Web.Subcontractor\obj\R64\SISBusiness.Web.Subcontractor.dll diff --git a/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.GenerateResource.Cache b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..b360abc Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbproj.GenerateResource.Cache differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbprojResolveAssemblyReference.cache b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbprojResolveAssemblyReference.cache new file mode 100644 index 0000000..918563f Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/SISBusiness.Web.Subcontractor.vbprojResolveAssemblyReference.cache differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/SISBusinessContractorAspNetApplication.resources b/SISBusiness.Web.Subcontractor/obj/R64/SISBusinessContractorAspNetApplication.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/SISBusinessContractorAspNetApplication.resources differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/TempPE/My Project.Resources.Designer.vb.dll b/SISBusiness.Web.Subcontractor/obj/R64/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..47e57de Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/SISBusiness.Web.Subcontractor/obj/R64/sisbusiness.web.subcontractor.dll.licenses b/SISBusiness.Web.Subcontractor/obj/R64/sisbusiness.web.subcontractor.dll.licenses new file mode 100644 index 0000000..e1857f3 Binary files /dev/null and b/SISBusiness.Web.Subcontractor/obj/R64/sisbusiness.web.subcontractor.dll.licenses differ diff --git a/SISBusiness.Web.Support/ApplicationCode/WebApplication.resx b/SISBusiness.Web.Support/ApplicationCode/WebApplication.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/SISBusiness.Web.Support/ApplicationCode/WebApplication.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SISBusiness.Web.Support/ApplicationCode/WebApplication.vb b/SISBusiness.Web.Support/ApplicationCode/WebApplication.vb new file mode 100644 index 0000000..a96c737 --- /dev/null +++ b/SISBusiness.Web.Support/ApplicationCode/WebApplication.vb @@ -0,0 +1,232 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.ComponentModel +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp +Imports SISBusiness.Module +Imports DevExpress.Data.Filtering +Imports DevExpress.ExpressApp.Xpo +Imports DevExpress.Persistent.BaseImpl + +Partial Public Class SISBusinessSupportAspNetApplication + Inherits WebApplication + + Private _ocur As Xpo.XPObjectSpace + + Private module1 As DevExpress.ExpressApp.SystemModule.SystemModule + Private module2 As DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule + + Private module5 As DevExpress.ExpressApp.Validation.ValidationModule + Private module6 As DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule + Private securityModule1 As DevExpress.ExpressApp.Security.SecurityModule + + Friend WithEvents AuditTrailModule1 As DevExpress.ExpressApp.AuditTrail.AuditTrailModule + Friend WithEvents ConditionalAppearanceModule1 As DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule + Friend WithEvents FileAttachmentsAspNetModule1 As DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule + Friend WithEvents HtmlPropertyEditorAspNetModule1 As DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule + Friend WithEvents ViewVariantsModule1 As DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule + Friend WithEvents SecurityComplex1 As DevExpress.ExpressApp.Security.SecurityComplex + Friend WithEvents AuthenticationStandard1 As DevExpress.ExpressApp.Security.AuthenticationStandard + Friend WithEvents ChartAspNetModule1 As DevExpress.ExpressApp.Chart.Web.ChartAspNetModule + Friend WithEvents ChartModule1 As DevExpress.ExpressApp.Chart.ChartModule + Friend WithEvents CloneObjectModule1 As DevExpress.ExpressApp.CloneObject.CloneObjectModule + Friend WithEvents PivotChartAspNetModule1 As DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule + Friend WithEvents PivotChartModuleBase1 As DevExpress.ExpressApp.PivotChart.PivotChartModuleBase + Friend WithEvents PivotGridAspNetModule1 As DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule + Friend WithEvents PivotGridModule1 As DevExpress.ExpressApp.PivotGrid.PivotGridModule + Friend WithEvents TreeListEditorsAspNetModule1 As DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule + Friend WithEvents TreeListEditorsModuleBase1 As DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase + Friend WithEvents ReportsAspNetModule1 As DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule + Friend WithEvents ReportsModule1 As DevExpress.ExpressApp.Reports.ReportsModule + Friend WithEvents SchedulerAspNetModule1 As DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule + Friend WithEvents SchedulerModuleBase1 As DevExpress.ExpressApp.Scheduler.SchedulerModuleBase + Friend WithEvents SisBusinessModule1 As SISBusiness.Module.SISBusinessModule + + + Friend WithEvents KpiModule1 As DevExpress.ExpressApp.Kpi.KpiModule + Friend WithEvents SisBusinessAspNetModule1 As SISBusiness.Module.Web.SISBusinessAspNetModule + Friend WithEvents ReportsModuleV21 As DevExpress.ExpressApp.ReportsV2.ReportsModuleV2 + Friend WithEvents NotificationsModule1 As DevExpress.ExpressApp.Notifications.NotificationsModule + Friend WithEvents ReportsAspNetModuleV21 As DevExpress.ExpressApp.ReportsV2.Web.ReportsAspNetModuleV2 + Private sqlConnection1 As System.Data.SqlClient.SqlConnection + + Public Sub New() + InitializeComponent() + End Sub + + Private Sub SISBusinessSupportAspNetApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch +#If EASYTEST Then + e.Updater.Update() + e.Handled = True +#Else + If System.Diagnostics.Debugger.IsAttached Then + e.Updater.Update() + e.Handled = True + Else + Throw New InvalidOperationException( _ + "The application cannot connect to the specified database, because the latter doesn't exist or its version is older than that of the application." & Constants.vbCrLf & _ + "This error occurred because the automatic database update was disabled when the application was started without debugging." & Constants.vbCrLf & _ + "To avoid this error, you should either start the application under Visual Studio in debug mode, or modify the " & _ + "source code of the 'DatabaseVersionMismatch' event handler to enable automatic database update, " & _ + "or manually create a database using the 'DBUpdater' tool." & Constants.vbCrLf & _ + "Anyway, refer to the 'Update Application and Database Versions' help topic at http://www.devexpress.com/Help/?document=ExpressApp/CustomDocument2795.htm " & _ + "for more detailed information. If this doesn't help, please contact our Support Team at http://www.devexpress.com/Support/Center/") + End If +#End If + End Sub + + Private Sub InitializeComponent() + Me.module1 = New DevExpress.ExpressApp.SystemModule.SystemModule() + Me.module2 = New DevExpress.ExpressApp.Web.SystemModule.SystemAspNetModule() + Me.module5 = New DevExpress.ExpressApp.Validation.ValidationModule() + Me.module6 = New DevExpress.ExpressApp.Objects.BusinessClassLibraryCustomizationModule() + Me.securityModule1 = New DevExpress.ExpressApp.Security.SecurityModule() + Me.sqlConnection1 = New System.Data.SqlClient.SqlConnection() + Me.AuditTrailModule1 = New DevExpress.ExpressApp.AuditTrail.AuditTrailModule() + Me.ConditionalAppearanceModule1 = New DevExpress.ExpressApp.ConditionalAppearance.ConditionalAppearanceModule() + Me.FileAttachmentsAspNetModule1 = New DevExpress.ExpressApp.FileAttachments.Web.FileAttachmentsAspNetModule() + Me.HtmlPropertyEditorAspNetModule1 = New DevExpress.ExpressApp.HtmlPropertyEditor.Web.HtmlPropertyEditorAspNetModule() + Me.ViewVariantsModule1 = New DevExpress.ExpressApp.ViewVariantsModule.ViewVariantsModule() + Me.SecurityComplex1 = New DevExpress.ExpressApp.Security.SecurityComplex() + Me.AuthenticationStandard1 = New DevExpress.ExpressApp.Security.AuthenticationStandard() + Me.ChartAspNetModule1 = New DevExpress.ExpressApp.Chart.Web.ChartAspNetModule() + Me.ChartModule1 = New DevExpress.ExpressApp.Chart.ChartModule() + Me.CloneObjectModule1 = New DevExpress.ExpressApp.CloneObject.CloneObjectModule() + Me.PivotChartAspNetModule1 = New DevExpress.ExpressApp.PivotChart.Web.PivotChartAspNetModule() + Me.PivotChartModuleBase1 = New DevExpress.ExpressApp.PivotChart.PivotChartModuleBase() + Me.PivotGridAspNetModule1 = New DevExpress.ExpressApp.PivotGrid.Web.PivotGridAspNetModule() + Me.PivotGridModule1 = New DevExpress.ExpressApp.PivotGrid.PivotGridModule() + Me.TreeListEditorsAspNetModule1 = New DevExpress.ExpressApp.TreeListEditors.Web.TreeListEditorsAspNetModule() + Me.TreeListEditorsModuleBase1 = New DevExpress.ExpressApp.TreeListEditors.TreeListEditorsModuleBase() + Me.ReportsAspNetModule1 = New DevExpress.ExpressApp.Reports.Web.ReportsAspNetModule() + Me.ReportsModule1 = New DevExpress.ExpressApp.Reports.ReportsModule() + Me.SchedulerAspNetModule1 = New DevExpress.ExpressApp.Scheduler.Web.SchedulerAspNetModule() + Me.SchedulerModuleBase1 = New DevExpress.ExpressApp.Scheduler.SchedulerModuleBase() + Me.SisBusinessModule1 = New SISBusiness.[Module].SISBusinessModule() + Me.KpiModule1 = New DevExpress.ExpressApp.Kpi.KpiModule() + Me.SisBusinessAspNetModule1 = New SISBusiness.[Module].Web.SISBusinessAspNetModule() + Me.ReportsModuleV21 = New DevExpress.ExpressApp.ReportsV2.ReportsModuleV2() + Me.NotificationsModule1 = New DevExpress.ExpressApp.Notifications.NotificationsModule() + Me.ReportsAspNetModuleV21 = New DevExpress.ExpressApp.ReportsV2.Web.ReportsAspNetModuleV2() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'module5 + ' + Me.module5.AllowValidationDetailsAccess = True + Me.module5.IgnoreWarningAndInformationRules = False + ' + 'sqlConnection1 + ' + Me.sqlConnection1.ConnectionString = "Data Source=(local);Initial Catalog=SISSupport;Integrated Security=SSPI;Pooling=f" & _ + "alse" + Me.sqlConnection1.FireInfoMessageEventOnUserErrors = False + ' + 'AuditTrailModule1 + ' + Me.AuditTrailModule1.AuditDataItemPersistentType = GetType(DevExpress.Persistent.BaseImpl.AuditDataItemPersistent) + ' + 'SecurityComplex1 + ' + Me.SecurityComplex1.Authentication = Me.AuthenticationStandard1 + Me.SecurityComplex1.RoleType = GetType(DevExpress.Persistent.BaseImpl.Role) + Me.SecurityComplex1.UserType = GetType(DevExpress.Persistent.BaseImpl.User) + ' + 'AuthenticationStandard1 + ' + Me.AuthenticationStandard1.LogonParametersType = GetType(DevExpress.ExpressApp.Security.AuthenticationStandardLogonParameters) + ' + 'PivotChartModuleBase1 + ' + Me.PivotChartModuleBase1.ShowAdditionalNavigation = False + ' + 'ReportsModule1 + ' + Me.ReportsModule1.EnableInplaceReports = True + Me.ReportsModule1.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportData) + ' + 'ReportsModuleV21 + ' + Me.ReportsModuleV21.EnableInplaceReports = True + Me.ReportsModuleV21.ReportDataType = GetType(DevExpress.Persistent.BaseImpl.ReportDataV2) + ' + 'NotificationsModule1 + ' + Me.NotificationsModule1.NotificationsRefreshInterval = System.TimeSpan.Parse("00:05:00") + Me.NotificationsModule1.NotificationsStartDelay = System.TimeSpan.Parse("00:00:05") + Me.NotificationsModule1.ShowNotificationsWindow = True + ' + 'ReportsAspNetModuleV21 + ' + 'Me.ReportsAspNetModuleV21.ClientLibrariesLocation = DevExpress.ExpressApp.ReportsV2.Web.ClientLibrariesLocations.Embedded + ' + 'SISBusinessSupportAspNetApplication + ' + Me.ApplicationName = "SISBusiness" + Me.Connection = Me.sqlConnection1 + Me.Modules.Add(Me.module1) + Me.Modules.Add(Me.module2) + Me.Modules.Add(Me.module6) + Me.Modules.Add(Me.ViewVariantsModule1) + Me.Modules.Add(Me.ConditionalAppearanceModule1) + Me.Modules.Add(Me.AuditTrailModule1) + Me.Modules.Add(Me.module5) + Me.Modules.Add(Me.HtmlPropertyEditorAspNetModule1) + Me.Modules.Add(Me.FileAttachmentsAspNetModule1) + Me.Modules.Add(Me.ChartModule1) + Me.Modules.Add(Me.ChartAspNetModule1) + Me.Modules.Add(Me.securityModule1) + Me.Modules.Add(Me.CloneObjectModule1) + Me.Modules.Add(Me.PivotChartModuleBase1) + Me.Modules.Add(Me.PivotChartAspNetModule1) + Me.Modules.Add(Me.PivotGridModule1) + Me.Modules.Add(Me.PivotGridAspNetModule1) + Me.Modules.Add(Me.TreeListEditorsModuleBase1) + Me.Modules.Add(Me.TreeListEditorsAspNetModule1) + Me.Modules.Add(Me.ReportsModule1) + Me.Modules.Add(Me.ReportsAspNetModule1) + Me.Modules.Add(Me.SchedulerModuleBase1) + Me.Modules.Add(Me.SchedulerAspNetModule1) + Me.Modules.Add(Me.KpiModule1) + Me.Modules.Add(Me.ReportsModuleV21) + Me.Modules.Add(Me.NotificationsModule1) + Me.Modules.Add(Me.SisBusinessModule1) + Me.Modules.Add(Me.SisBusinessAspNetModule1) + Me.Modules.Add(Me.ReportsAspNetModuleV21) + Me.Security = Me.SecurityComplex1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Protected Overrides Sub CreateDefaultObjectSpaceProvider(args As CreateCustomObjectSpaceProviderEventArgs) + args.ObjectSpaceProvider = New XPObjectSpaceProvider(args.ConnectionString, args.Connection) + End Sub + + Protected Overrides Sub OnLoggedOn(ByVal e As DevExpress.ExpressApp.LogonEventArgs) + MyBase.OnLoggedOn(e) + 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 + + Else + MsgBox("n nem jogosult a rendszer hasznlatra !") + ForceLogout() + End If + Else + MsgBox("n nem jogosult a rendszer hasznlatra !") + ForceLogout() + End If + + End Sub + Protected Overrides Sub OnObjectSpaceCreated(objectSpace As DevExpress.ExpressApp.IObjectSpace) + MyBase.OnObjectSpaceCreated(objectSpace) + _ocur = objectSpace + End Sub + + Private Sub ForceLogout() + SecuritySystem.Instance.Logoff() + HttpContext.Current.Session.Abandon() + FormsAuthentication.SignOut() + HttpContext.Current.Response.Redirect(HttpContext.Current.Request.Url.ToString()) + End Sub +End Class + diff --git a/SISBusiness.Web.Support/Controls/DashboardViewer.aspx b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx new file mode 100644 index 0000000..e9979a1 --- /dev/null +++ b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx @@ -0,0 +1,19 @@ +<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="DashboardViewer.aspx.vb" Inherits=".DashboardViewer" %> + +<%@ Register assembly="DevExpress.Dashboard.v15.2.Web, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.DashboardWeb" tagprefix="dx" %> + + + + + + + + +
+
+ + +
+
+ + diff --git a/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.designer.vb b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.designer.vb new file mode 100644 index 0000000..7f759c6 --- /dev/null +++ b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.designer.vb @@ -0,0 +1,33 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class DashboardViewer + + ''' + '''form1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ASPxDashboardViewer1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ASPxDashboardViewer1 As Global.DevExpress.DashboardWeb.ASPxDashboardViewer +End Class diff --git a/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.vb b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.vb new file mode 100644 index 0000000..51796f3 --- /dev/null +++ b/SISBusiness.Web.Support/Controls/DashboardViewer.aspx.vb @@ -0,0 +1,39 @@ +Imports SISBusiness.Module.GeneralFunction +Imports DevExpress.DashboardCommon +Imports DevExpress.DataAccess +Imports DevExpress.DataAccess.ConnectionParameters +Imports DevExpress.DataAccess.Sql + +Public Class DashboardViewer + Inherits System.Web.UI.Page + + Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.ASPxDashboardViewer1.DashboardXmlFile = GLOBAL_DASHBOARD_XML_DashboardXmlFile + End Sub + + Private Sub ASPxDashboardViewer1_ConfigureDataConnection(sender As Object, e As ConfigureDataConnectionEventArgs) Handles ASPxDashboardViewer1.ConfigureDataConnection + Select Case GLOBAL_DASHBOARD_XML_SQLType + Case "MSSQL" + Dim _ConnectionParameters_MSSQL As New MsSqlConnectionParameters + _ConnectionParameters_MSSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MSSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MSSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MSSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MSSQL + Case "MYSQL" + Dim _ConnectionParameters_MYSQL As New MySqlConnectionParameters + _ConnectionParameters_MYSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_MYSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_MYSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_MYSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_MYSQL + Case "PSQL" + Dim _ConnectionParameters_PSQL As New PostgreSqlConnectionParameters + _ConnectionParameters_PSQL.UserName = GLOBAL_DASHBOARD_XML_UserName + _ConnectionParameters_PSQL.Password = GLOBAL_DASHBOARD_XML_Password + _ConnectionParameters_PSQL.ServerName = GLOBAL_DASHBOARD_XML_ServerName + _ConnectionParameters_PSQL.DatabaseName = GLOBAL_DASHBOARD_XML_DatabaseName + e.ConnectionParameters = _ConnectionParameters_PSQL + End Select + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Support/Default.aspx b/SISBusiness.Web.Support/Default.aspx new file mode 100644 index 0000000..60f4a90 --- /dev/null +++ b/SISBusiness.Web.Support/Default.aspx @@ -0,0 +1,19 @@ +<%@ Page Language="VB" AutoEventWireup="true" Inherits="Default" EnableViewState="false" + ValidateRequest="false" CodeBehind="Default.aspx.vb" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" + Namespace="DevExpress.ExpressApp.Web.Templates" TagPrefix="cc3" %> +<%@ Register Assembly="DevExpress.ExpressApp.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" + Namespace="DevExpress.ExpressApp.Web.Controls" TagPrefix="cc4" %> + + + + Main Page + + + +
+ +
+ + + diff --git a/SISBusiness.Web.Support/Default.aspx.designer.vb b/SISBusiness.Web.Support/Default.aspx.designer.vb new file mode 100644 index 0000000..403f171 --- /dev/null +++ b/SISBusiness.Web.Support/Default.aspx.designer.vb @@ -0,0 +1,51 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class [Default] + + ''' + '''Head1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead + + ''' + '''form2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm + + ''' + '''ProgressControl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ProgressControl As Global.DevExpress.ExpressApp.Web.Controls.ASPxProgressControl + + ''' + '''Content control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Content As Global.System.Web.UI.HtmlControls.HtmlGenericControl +End Class diff --git a/SISBusiness.Web.Support/Default.aspx.vb b/SISBusiness.Web.Support/Default.aspx.vb new file mode 100644 index 0000000..08bd304 --- /dev/null +++ b/SISBusiness.Web.Support/Default.aspx.vb @@ -0,0 +1,26 @@ +Imports Microsoft.VisualBasic +Imports System +Imports System.Collections.Generic +Imports System.Web.UI +Imports DevExpress.ExpressApp.Templates +Imports DevExpress.ExpressApp.Web +Imports DevExpress.ExpressApp.Web.Templates +Imports DevExpress.ExpressApp.Web.Templates.ActionContainers + +Partial Public Class [Default] + Inherits BaseXafPage + + Shared Sub New() + End Sub + + Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu + Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports") + End Function + + + Public Overrides ReadOnly Property InnerContentPlaceHolder() As Control + Get + Return Content + End Get + End Property +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx new file mode 100644 index 0000000..55731c0 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx @@ -0,0 +1,126 @@ +<%@ Control Language="vb" AutoEventWireup="true" Inherits="ImagePropertiesForm" Codebehind="ImagePropertiesForm.ascx.vb" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ + + +
+
+
+ +
+ + + +
+
+ +
+
+
+
+ +
+ + +
+ \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.designer.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.designer.vb new file mode 100644 index 0000000..ff8e563 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.designer.vb @@ -0,0 +1,186 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class ImagePropertiesForm + + ''' + '''lblSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblSize As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbSize As Global.DevExpress.Web.ASPxComboBox + + ''' + '''lblWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblWidth As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnWidth As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblPixelWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblPixelWidth As Global.DevExpress.Web.ASPxLabel + + ''' + '''lblHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblHeight As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnHeight As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblPixelHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblPixelHeight As Global.DevExpress.Web.ASPxLabel + + ''' + '''cellContarainTop control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cellContarainTop As Global.System.Web.UI.HtmlControls.HtmlTableCell + + ''' + '''cellContarainSwitcher control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cellContarainSwitcher As Global.System.Web.UI.HtmlControls.HtmlTableCell + + ''' + '''cellContarainBottom control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cellContarainBottom As Global.System.Web.UI.HtmlControls.HtmlTableCell + + ''' + '''ckbCreateThumbnail control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbCreateThumbnail As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''lblThumbnailFileName control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblThumbnailFileName As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbThumbnailFileName control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbThumbnailFileName As Global.DevExpress.Web.ASPxTextBox + + ''' + '''lblImagePosition control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblImagePosition As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbImagePosition control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbImagePosition As Global.DevExpress.Web.ASPxComboBox + + ''' + '''ckbWrapTextArroundImage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbWrapTextArroundImage As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''lblImageDescription control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblImageDescription As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbDescription control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbDescription As Global.DevExpress.Web.ASPxTextBox +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.vb new file mode 100644 index 0000000..e6cad49 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/ImagePropertiesForm.ascx.vb @@ -0,0 +1,72 @@ +Imports System +Imports System.Data +Imports System.Configuration +Imports System.Collections +Imports System.Web +Imports System.Web.Security +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.WebControls.WebParts +Imports System.Web.UI.HtmlControls +Imports DevExpress.Web.ASPxHtmlEditor +Imports DevExpress.Web.ASPxHtmlEditor.Localization +Imports DevExpress.Web +Imports DevExpress.Web.Internal + +Partial Public Class ImagePropertiesForm + Inherits HtmlEditorUserControl + Protected Overrides Sub PrepareChildControls() + ckbCreateThumbnail.ClientVisible = Not String.IsNullOrEmpty(HtmlEditor.SettingsImageUpload.UploadImageFolder) + CreateConstrainProportionsImages() + Localize() + + MyBase.PrepareChildControls() + End Sub + Private Sub Localize() + lblSize.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Size) & ":" + cmbSize.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_OriginalSize), "original") + cmbSize.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_CustomSize), "custom") + cmbSize.SelectedIndex = 0 + lblWidth.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Width) & ":" + lblPixelWidth.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Pixels) + lblHeight.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Height) & ":" + lblPixelHeight.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Pixels) + ckbCreateThumbnail.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_CreateThumbnail) + lblThumbnailFileName.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_NewImageName) & ":" + txbThumbnailFileName.ValidationSettings.RequiredField.ErrorText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError) + lblImagePosition.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Position) & ":" + cmbImagePosition.Items.Add("", "") + cmbImagePosition.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_PositionLeft), "left") + cmbImagePosition.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_PositionCenter), "center") + cmbImagePosition.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_PositionRight), "right") + cmbImagePosition.SelectedIndex = 0 + lblImageDescription.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ImageProps_Description) & ":" + ckbWrapTextArroundImage.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_UseFloat) + End Sub + Protected Overrides Function GetChildDxEdits() As ASPxEditBase() + Return New ASPxEditBase() {lblSize, cmbSize, lblWidth, spnWidth, lblPixelWidth, lblHeight, spnHeight, lblPixelHeight, lblImagePosition, cmbImagePosition, lblImageDescription, txbDescription, ckbCreateThumbnail, lblThumbnailFileName, txbThumbnailFileName, ckbWrapTextArroundImage } + End Function + Protected Sub CreateConstrainProportionsImages() + Dim imgTop As Image = RenderUtils.CreateImage() + cellContarainTop.Controls.Add(imgTop) + HtmlEditor.GetInsertImageDialogConstrainProportionsTop().AssignToControl(imgTop, False) + + Dim imgBottom As Image = RenderUtils.CreateImage() + cellContarainBottom.Controls.Add(imgBottom) + HtmlEditor.GetInsertImageDialogConstrainProportionsBottom().AssignToControl(imgBottom, False) + + Dim imgSwitcherOn As Image = RenderUtils.CreateImage() + imgSwitcherOn.ID = "imgOn" + cellContarainSwitcher.Controls.Add(imgSwitcherOn) + HtmlEditor.GetInsertImageDialogConstrainProportionsMiddleOn().AssignToControl(imgSwitcherOn, False) + + Dim imgSwitcherOff As Image = RenderUtils.CreateImage() + imgSwitcherOff.ID = "imgOff" + cellContarainSwitcher.Controls.Add(imgSwitcherOff) + HtmlEditor.GetInsertImageDialogConstrainProportionsMiddleOff().AssignToControl(imgSwitcherOff, False) + + imgSwitcherOn.Attributes.Add("onclick", "aspxConstrainProportionsSwitchClick(event, '" & imgSwitcherOff.ClientID & "')") + imgSwitcherOff.Attributes.Add("onclick", "aspxConstrainProportionsSwitchClick(event,'" & imgSwitcherOn.ClientID & "')") + imgSwitcherOff.Style.Add("display", "none") + End Sub +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx new file mode 100644 index 0000000..24c7394 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx @@ -0,0 +1,229 @@ +<%@ Control Language="vb" AutoEventWireup="true" Inherits="InsertImageForm" Codebehind="InsertImageForm.ascx.vb" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxp" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> +<%@ Register assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" namespace="DevExpress.Web" tagprefix="dxhf" %> +<%@ Register Src="ImagePropertiesForm.ascx" TagName="ImagePropertiesForm" TagPrefix="ucip" %> +<%@ Register Src="SelectImageForm.ascx" TagName="SelectImageForm" TagPrefix="ucip" %> + + + + + + + + + + <%-- Button Cells --%> + + +
+ + + + + + + + + + +
+ + + + + +
+ + + + + + + +
+
+ + + + <%-- Image Properties --%> + + +
+ + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + + +
+ <% =DevExpress.Web.ASPxHtmlEditor.Localization.ASPxHtmlEditorLocalizer.GetString(DevExpress.Web.ASPxHtmlEditor.Localization.ASPxHtmlEditorStringId.InsertImage_Preview)%> + +
+
+ + + + + + + + + +
+
+ + + +
+
+ + + + + +
+ + + + + + + + + + +
+
+ + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.designer.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.designer.vb new file mode 100644 index 0000000..55faf1e --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.designer.vb @@ -0,0 +1,177 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class InsertImageForm + + ''' + '''Panel1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents Panel1 As Global.DevExpress.Web.ASPxPanel + + ''' + '''rblFromTheWeb control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rblFromTheWeb As Global.DevExpress.Web.ASPxRadioButton + + ''' + '''rblFromThisComputer control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rblFromThisComputer As Global.DevExpress.Web.ASPxRadioButton + + ''' + '''rpInsertImage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpInsertImage As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''lblImageUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblImageUrl As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbInsertImageUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbInsertImageUrl As Global.DevExpress.Web.ASPxButtonEdit + + ''' + '''BrowsePopup control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents BrowsePopup As Global.DevExpress.Web.ASPxPopupControl + + ''' + '''PopupControlContentControl1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupControlContentControl1 As Global.DevExpress.Web.PopupControlContentControl + + ''' + '''ucSelectImageForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ucSelectImageForm As Global.SelectImageForm + + ''' + '''ckbSaveToServer control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbSaveToServer As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''lblBrowse control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblBrowse As Global.DevExpress.Web.ASPxLabel + + ''' + '''uplImage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents uplImage As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorUploadControl + + ''' + '''ucImagePropertiesForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ucImagePropertiesForm As Global.ImagePropertiesForm + + ''' + '''ckbMoreImageOptions control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbMoreImageOptions As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''btnInsertImage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnInsertImage As Global.DevExpress.Web.ASPxButton + + ''' + '''btnChangeImage control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnChangeImage As Global.DevExpress.Web.ASPxButton + + ''' + '''btnInsertImageCancel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnInsertImageCancel As Global.DevExpress.Web.ASPxButton + + ''' + '''dxHiddenField control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents dxHiddenField As Global.DevExpress.Web.ASPxHiddenField +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.vb new file mode 100644 index 0000000..c9b087a --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertImageForm.ascx.vb @@ -0,0 +1,81 @@ +Imports System +Imports System.Data +Imports System.Configuration +Imports System.Collections +Imports System.IO +Imports System.Web +Imports System.Web.Security +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.WebControls.WebParts +Imports System.Web.UI.HtmlControls +Imports DevExpress.Web.ASPxHtmlEditor +Imports DevExpress.Web.ASPxHtmlEditor.Localization +Imports DevExpress.Web + +Partial Public Class InsertImageForm + Inherits HtmlEditorUserControl + + Protected Overrides Sub PrepareChildControls() + ckbSaveToServer.ClientVisible = HtmlEditor.Settings.AllowInsertDirectImageUrls AndAlso Not String.IsNullOrEmpty(HtmlEditor.SettingsImageUpload.UploadImageFolder) + rblFromThisComputer.ClientEnabled = Not String.IsNullOrEmpty(HtmlEditor.SettingsImageUpload.UploadImageFolder) + uplImage.UploadMode = If(HtmlEditor.SettingsImageUpload.UseAdvancedUploadMode, UploadControlUploadMode.Advanced, UploadControlUploadMode.Standard) + Localize() + + MyBase.PrepareChildControls() + + Dim imageSelectorEnabled As Boolean = HtmlEditor.SettingsImageSelector.Enabled + txbInsertImageUrl.Buttons(0).Visible = imageSelectorEnabled + BrowsePopup.Visible = imageSelectorEnabled + End Sub + Private Sub Localize() + rblFromTheWeb.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_FromWeb) + rblFromThisComputer.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_FromLocal) + lblImageUrl.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_EnterUrl) & ":" + txbInsertImageUrl.ValidationSettings.RequiredField.ErrorText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError) + ckbSaveToServer.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_SaveToServer) + lblBrowse.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_UploadInstructions) & ":" + ckbMoreImageOptions.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_MoreOptions) + btnInsertImage.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonInsert) + btnChangeImage.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonChange) + btnInsertImageCancel.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonCancel) + BrowsePopup.HeaderText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.SelectImage) + txbInsertImageUrl.Buttons(0).ToolTip = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertImage_SelectImage) + dxHiddenField.Add("RequiredFieldError", ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError)) + End Sub + Protected Overrides Function GetChildDxEdits() As ASPxEditBase() + Return New ASPxEditBase() {rblFromTheWeb, rblFromThisComputer, txbInsertImageUrl, ckbSaveToServer, ckbMoreImageOptions} + End Function + Protected Overrides Function GetChildDxButtons() As ASPxButton() + Return New ASPxButton() {btnInsertImage, btnChangeImage, btnInsertImage, btnInsertImageCancel} + End Function + Protected Overrides Function GetChildDxHtmlEditorRoundPanel() As ASPxHtmlEditorRoundPanel + Return rpInsertImage + End Function + + Protected Function SaveUploadFile() As String + Dim fileName As String = "" + If HasFile() Then + Dim uploadFolder As String = HtmlEditor.SettingsImageUpload.UploadImageFolder + fileName = MapPath(uploadFolder) + uplImage.UploadedFiles(0).FileName + Try + uplImage.UploadedFiles(0).SaveAs(fileName, False) + Catch e1 As IOException + fileName = MapPath(uploadFolder) + uplImage.GetRandomFileName() + uplImage.UploadedFiles(0).SaveAs(fileName) + End Try + End If + Return Path.GetFileName(fileName) + End Function + Protected Function HasFile() As Boolean + Return uplImage.UploadedFiles IsNot Nothing AndAlso uplImage.UploadedFiles.Length > 0 AndAlso uplImage.UploadedFiles(0).FileName <> "" + End Function + Protected Sub uplImage_FileUploadComplete(ByVal sender As Object, ByVal args As DevExpress.Web.FileUploadCompleteEventArgs) + Try + args.CallbackData = SaveUploadFile() + Catch e As Exception + args.IsValid = False + args.ErrorText = e.Message + End Try + End Sub +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx new file mode 100644 index 0000000..af97729 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx @@ -0,0 +1,239 @@ +<%@ Control Language="vb" AutoEventWireup="true" Inherits="InsertLinkForm" Codebehind="InsertLinkForm.ascx.vb" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxp" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dx" %> +<%@ Register Src="SelectDocumentForm.ascx" TagName="SelectDocumentForm" TagPrefix="ucip" %> + + + + + + + + + + +
+ + + + + + + + + + +
+ + + + + +
+ + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + +
+ + +
+ + + + + +
+
+ + + + + +
+ + + +
+ + +
+
+ + + + + +
+ + + + + + + + + + +
+
+ + + + \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.designer.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.designer.vb new file mode 100644 index 0000000..4608558 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.designer.vb @@ -0,0 +1,204 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class InsertLinkForm + + ''' + '''MainPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents MainPanel As Global.DevExpress.Web.ASPxPanel + + ''' + '''rblLinkType control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rblLinkType As Global.DevExpress.Web.ASPxRadioButtonList + + ''' + '''rpInsertLink control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpInsertLink As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''lblUrl control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblUrl As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbURL control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbURL As Global.DevExpress.Web.ASPxButtonEdit + + ''' + '''BrowsePopup control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents BrowsePopup As Global.DevExpress.Web.ASPxPopupControl + + ''' + '''PopupControlContentControl1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PopupControlContentControl1 As Global.DevExpress.Web.PopupControlContentControl + + ''' + '''ucSelectDocumentForm control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ucSelectDocumentForm As Global.SelectDocumentForm + + ''' + '''lblEmailTo control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblEmailTo As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbEmailTo control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbEmailTo As Global.DevExpress.Web.ASPxTextBox + + ''' + '''lblSubject control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblSubject As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbSubject control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbSubject As Global.DevExpress.Web.ASPxTextBox + + ''' + '''lblLinkDisplay control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblLinkDisplay As Global.DevExpress.Web.ASPxLabel + + ''' + '''lblText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblText As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbText control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbText As Global.DevExpress.Web.ASPxTextBox + + ''' + '''lblToolTip control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblToolTip As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbToolTip control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbToolTip As Global.DevExpress.Web.ASPxTextBox + + ''' + '''ckbOpenInNewWindow control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbOpenInNewWindow As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''btnOk control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnOk As Global.DevExpress.Web.ASPxButton + + ''' + '''btnChange control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnChange As Global.DevExpress.Web.ASPxButton + + ''' + '''btnCancel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnCancel As Global.DevExpress.Web.ASPxButton +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.vb new file mode 100644 index 0000000..06b6728 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertLinkForm.ascx.vb @@ -0,0 +1,54 @@ +Imports System +Imports System.Data +Imports System.Configuration +Imports System.Collections +Imports System.Web +Imports System.Web.Security +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports System.Web.UI.WebControls.WebParts +Imports System.Web.UI.HtmlControls +Imports DevExpress.Web.ASPxHtmlEditor +Imports DevExpress.Web.ASPxHtmlEditor.Localization +Imports DevExpress.Web + +Partial Public Class InsertLinkForm + Inherits HtmlEditorUserControl + Protected Overrides Sub PrepareChildControls() + Localize() + + MyBase.PrepareChildControls() + + Dim documentSelectorEnabled As Boolean = HtmlEditor.SettingsDocumentSelector.Enabled + txbURL.Buttons(0).Visible = documentSelectorEnabled + BrowsePopup.Visible = documentSelectorEnabled + End Sub + Private Sub Localize() + rblLinkType.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_Url), "URL") + rblLinkType.Items.Add(ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_Email), "Email") + lblUrl.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_Url) & ":" + txbURL.ValidationSettings.RequiredField.ErrorText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError) + lblEmailTo.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_EmailTo) & ":" + txbEmailTo.ValidationSettings.RequiredField.ErrorText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.RequiredFieldError) + lblSubject.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_Subject) & ":" + lblLinkDisplay.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_DisplayProperties) + lblText.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_Text) & ":" + lblToolTip.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_ToolTip) & ":" + ckbOpenInNewWindow.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_OpenInNewWindow) + btnOk.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonOk) + btnChange.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonChange) + btnCancel.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonCancel) + BrowsePopup.HeaderText = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.SelectDocument) + txbURL.Buttons(0).ToolTip = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertLink_SelectDocument) + End Sub + + Protected Overrides Function GetChildDxEdits() As ASPxEditBase() + Return New ASPxEditBase() {rblLinkType, lblUrl, txbURL, lblEmailTo, txbEmailTo, lblSubject, txbSubject, lblLinkDisplay, lblText, txbText, lblToolTip, txbToolTip, ckbOpenInNewWindow} + End Function + Protected Overrides Function GetChildDxButtons() As ASPxButton() + Return New ASPxButton() {btnOk, btnCancel, btnChange} + End Function + Protected Overrides Function GetChildDxHtmlEditorRoundPanel() As ASPxHtmlEditorRoundPanel + Return rpInsertLink + End Function +End Class \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx new file mode 100644 index 0000000..4afb73a --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx @@ -0,0 +1,456 @@ +<%@ Control Language="vb" AutoEventWireup="true" Inherits="InsertTableForm" Codebehind="InsertTableForm.ascx.vb" %> + +<%@ Assembly name="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" + TagPrefix="dxhe" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" + TagPrefix="dxe" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" + TagPrefix="dxp" %> + +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> + + + + + + + + + + + + +
+ + + + +
+ + + + + + + + + + + +
+ + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + +
+
+ 		+ + + + + +
+
+ + + + + + + + + + + +
+ + +
+
+ + + + + + + + + + +
+
+ + + +
+
+ + + + + + + + + + + + +
+ + +
+ + + + + + + + + + + + + + + +
+ + + + + + +
+
+ 		+ + + + + + + + + + + +
+
+ + + + + +
+
+ + + +
+
+ + + + + + + + + + + + +
+ + +
+ + + + + + + + + + + + + + + +
+ + + + + + +
+
+ 		+ + + + + +
+
+ + + + + +
+
+ + + +
+
+
+ + + +
+ + + + + + + +
+ + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + +
+ + + + + +
+
+ + + +
+
+ + + + + +
+ + + + + + + +
+
+ + + + + \ No newline at end of file diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.designer.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.designer.vb new file mode 100644 index 0000000..5910499 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.designer.vb @@ -0,0 +1,438 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Partial Public Class InsertTableForm + + ''' + '''MainPanel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents MainPanel As Global.DevExpress.Web.ASPxPanel + + ''' + '''PanelContent1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents PanelContent1 As Global.DevExpress.Web.PanelContent + + ''' + '''rpSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpSize As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''HtmlEditorRoundPanelContent1 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HtmlEditorRoundPanelContent1 As Global.DevExpress.Web.ASPxHtmlEditor.HtmlEditorRoundPanelContent + + ''' + '''lblSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblSize As Global.DevExpress.Web.ASPxLabel + + ''' + '''lblColumns control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblColumns As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnColumns control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnColumns As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblRows control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblRows As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnRows control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnRows As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblWidth As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbWidth As Global.DevExpress.Web.ASPxComboBox + + ''' + '''txbWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbWidth As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''cmbWidthType control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbWidthType As Global.DevExpress.Web.ASPxComboBox + + ''' + '''ckbColumnsEqualWidth control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbColumnsEqualWidth As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''lblHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblHeight As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbHeight As Global.DevExpress.Web.ASPxComboBox + + ''' + '''txbHeight control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbHeight As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''cmbHeightType control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbHeightType As Global.DevExpress.Web.ASPxComboBox + + ''' + '''rpLayout control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpLayout As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''HtmlEditorRoundPanelContent4 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HtmlEditorRoundPanelContent4 As Global.DevExpress.Web.ASPxHtmlEditor.HtmlEditorRoundPanelContent + + ''' + '''lblLayout control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblLayout As Global.DevExpress.Web.ASPxLabel + + ''' + '''lblPadding control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblPadding As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnPadding control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnPadding As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblAlign control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblAlign As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbAlign control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbAlign As Global.DevExpress.Web.ASPxComboBox + + ''' + '''lblSpacing control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblSpacing As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnSpacing control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnSpacing As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''rpAppearance control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpAppearance As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''HtmlEditorRoundPanelContent3 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HtmlEditorRoundPanelContent3 As Global.DevExpress.Web.ASPxHtmlEditor.HtmlEditorRoundPanelContent + + ''' + '''lblAppearance control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblAppearance As Global.DevExpress.Web.ASPxLabel + + ''' + '''lblBorderColor control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblBorderColor As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbBorderColor control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbBorderColor As Global.DevExpress.Web.ASPxColorEdit + + ''' + '''lblBorderSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblBorderSize As Global.DevExpress.Web.ASPxLabel + + ''' + '''spnBorderSize control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents spnBorderSize As Global.DevExpress.Web.ASPxSpinEdit + + ''' + '''lblBackgroundColor control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblBackgroundColor As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbBackgroundColor control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbBackgroundColor As Global.DevExpress.Web.ASPxColorEdit + + ''' + '''ckbAccessibility control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents ckbAccessibility As Global.DevExpress.Web.ASPxCheckBox + + ''' + '''rpAccessibility control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents rpAccessibility As Global.DevExpress.Web.ASPxHtmlEditor.ASPxHtmlEditorRoundPanel + + ''' + '''HtmlEditorRoundPanelContent2 control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents HtmlEditorRoundPanelContent2 As Global.DevExpress.Web.ASPxHtmlEditor.HtmlEditorRoundPanelContent + + ''' + '''lblHeaders control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblHeaders As Global.DevExpress.Web.ASPxLabel + + ''' + '''cmbHeaders control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents cmbHeaders As Global.DevExpress.Web.ASPxComboBox + + ''' + '''lblCaption control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblCaption As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbCaption control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbCaption As Global.DevExpress.Web.ASPxTextBox + + ''' + '''lblSummary control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents lblSummary As Global.DevExpress.Web.ASPxLabel + + ''' + '''txbSummary control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents txbSummary As Global.DevExpress.Web.ASPxTextBox + + ''' + '''btnOk control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnOk As Global.DevExpress.Web.ASPxButton + + ''' + '''btnCancel control. + ''' + ''' + '''Auto-generated field. + '''To modify move field declaration from designer file to code-behind file. + ''' + Protected WithEvents btnCancel As Global.DevExpress.Web.ASPxButton +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.vb b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.vb new file mode 100644 index 0000000..8665f47 --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/InsertTableForm.ascx.vb @@ -0,0 +1,66 @@ +Imports System +Imports System.Collections.Generic +Imports System.Web +Imports System.Web.UI +Imports System.Web.UI.WebControls +Imports DevExpress.Web.ASPxHtmlEditor +Imports DevExpress.Web +Imports DevExpress.Web.ASPxHtmlEditor.Localization + +Partial Public Class InsertTableForm + Inherits HtmlEditorUserControl + Protected Overrides Sub PrepareChildControls() + Localize() + + MyBase.PrepareChildControls() + End Sub + Private Sub Localize() + btnOk.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonOk) + btnCancel.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.ButtonCancel) + + lblSize.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Size) & ":" + lblColumns.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Columns) & ":" + lblRows.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Rows) & ":" + lblWidth.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Width) & ":" + lblHeight.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Height) & ":" + cmbWidth.Items(0).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_FullWidth) + cmbWidth.Items(1).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_AutoFitToContent) + cmbWidth.Items(2).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Custom) + ckbColumnsEqualWidth.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_EqualColumnWidths) + + cmbHeight.Items(0).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_AutoFitToContent) + cmbHeight.Items(1).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Custom) + + lblLayout.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Layout) & ":" + lblPadding.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_CellPaddings) & ":" + lblAlign.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Alignment) & ":" + cmbAlign.Items(0).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_None) + cmbAlign.Items(1).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Alignment_Left) + cmbAlign.Items(2).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Alignment_Center) + cmbAlign.Items(3).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Alignment_Right) + lblSpacing.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_CellSpacing) & ":" + + lblAppearance.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Appearance) & ":" + lblBorderColor.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_BorderColor) & ":" + lblBorderSize.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_BorderSize) & ":" + lblBackgroundColor.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_BgColor) & ":" + + ckbAccessibility.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Accessibility) + lblHeaders.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Headers) & ":" + cmbHeaders.Items(0).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_None) + cmbHeaders.Items(1).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_FirstRow) + cmbHeaders.Items(2).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_FirstColumn) + cmbHeaders.Items(3).Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Both) + lblCaption.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Caption) & ":" + lblSummary.Text = ASPxHtmlEditorLocalizer.GetString(ASPxHtmlEditorStringId.InsertTable_Summary) & ":" + End Sub + Protected Overrides Function GetChildDxEdits() As ASPxEditBase() + Return New ASPxEditBase() { spnRows, spnColumns, lblLayout, lblSize, lblWidth, cmbWidth, txbWidth, lblHeight, cmbHeight, txbHeight, spnPadding, spnSpacing, cmbAlign, lblAppearance, lblBorderSize, lblBorderColor, spnBorderSize, txbBorderColor, txbBackgroundColor, ckbAccessibility, cmbHeaders, txbCaption, txbSummary, ckbColumnsEqualWidth, cmbWidthType, cmbHeightType} + End Function + Protected Overrides Function GetChildDxButtons() As ASPxButton() + Return New ASPxButton() { btnOk, btnCancel } + End Function + Protected Overrides Function GetChildDxHtmlEditorRoundPanels() As ASPxHtmlEditorRoundPanel() + Return New ASPxHtmlEditorRoundPanel() { rpSize, rpLayout, rpAppearance, rpAccessibility } + End Function +End Class diff --git a/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/PasteFromWordForm.ascx b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/PasteFromWordForm.ascx new file mode 100644 index 0000000..0f1fdba --- /dev/null +++ b/SISBusiness.Web.Support/DevExpress/ASPxHtmlEditorForms/PasteFromWordForm.ascx @@ -0,0 +1,78 @@ +<%@ Control Language="vb" AutoEventWireup="true" Inherits="PasteFromWordForm" Codebehind="PasteFromWordForm.ascx.vb" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxe" %> +<%@ Register Assembly="DevExpress.Web.ASPxHtmlEditor.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web.ASPxHtmlEditor" TagPrefix="dxhe" %> +<%@ Register Assembly="DevExpress.Web.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" Namespace="DevExpress.Web" TagPrefix="dxp" %> + +<%-- B141214 --%> +